Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/charisee_dev/src/compiler/ein/mkoperators.sml
ViewVC logotype

Diff of /branches/charisee_dev/src/compiler/ein/mkoperators.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3394, Tue Nov 10 17:42:19 2015 UTC revision 3395, Tue Nov 10 18:23:07 2015 UTC
# Line 19  Line 19 
19          val vs=List.tabulate(n, (fn v=>E.V (v+inc)))          val vs=List.tabulate(n, (fn v=>E.V (v+inc)))
20          in ListPair.map  (fn(v,i)=>(v, 0, i-1))   (vs, alpha) end          in ListPair.map  (fn(v,i)=>(v, 0, i-1))   (vs, alpha) end
21       fun sumIds2(n,i)=List.tabulate(n, (fn v=>(E.V v, 0, i)))       fun sumIds2(n,i)=List.tabulate(n, (fn v=>(E.V v, 0, i)))
22      val subst_flag =0      val subst_flag =0(*here*)
23      (******************************* Add *****************************************)      (******************************* Add *****************************************)
24      val addRR = E.EIN{      val addRR = E.EIN{
25          params = [E.TEN(subst_flag,[]), E.TEN(subst_flag,[])] ,          params = [E.TEN(subst_flag,[]), E.TEN(subst_flag,[])] ,
# Line 477  Line 477 
477          val g=E.Tensor(1, expindexDot)          val g=E.Tensor(1, expindexDot)
478          val e=          val e=
479              E.EIN{              E.EIN{
480              params = [E.TEN(0,alpha) ,E.TEN(0,alpha)],              params = [E.TEN(subst_flag ,alpha) ,E.TEN(subst_flag,alpha)],
481              index = alpha,              index = alpha,
482              body = E.Prod[f,E.Div(E.Const 1,E.Sqrt(E.Sum(sx, E.Prod[g,g])))]              body = E.Prod[f,E.Div(E.Const 1,E.Sqrt(E.Sum(sx, E.Prod[g,g])))]
483              }              }

Legend:
Removed from v.3394  
changed lines
  Added in v.3395

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0