Home My Page Projects Code Snippets Project Openings diderot

# SCM Repository

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

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

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*)
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