Home My Page Projects Code Snippets Project Openings diderot

# SCM Repository

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

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

revision 2529, Wed Jan 29 06:58:55 2014 UTC revision 2530, Wed Jan 29 20:58:31 2014 UTC
# Line 233  Line 233
233          }          }
234          end          end
235
236          (*< Sigma d F_alpha /  d x_i>iALpha *)          (*< Sigma d F_alpha /  d x_i>ALpha  i CHANGE HERE *)
237          fun dotimes(dim,alpha)= let          fun dotimes(dim,alpha)= let
238               val n=length(alpha)               val n=length(alpha)
239               fun expIndex(n,inc)=List.tabulate(n, (fn(x)=>E.V (x+inc)))               fun expIndex(n,inc)=List.tabulate(n, (fn(x)=>E.V (x+inc)))
240               val i'=expIndex(n,1)               val i'=expIndex(n,0)
241
242
243          in E.EIN{          in E.EIN{
244              params = [E.FLD(dim)], index =[dim]@alpha,              params = [E.FLD(dim)], index =alpha@[dim],
245              body = E.Apply(E.Partial [E.V 0] ,E.Field(0,i'))              body = E.Apply(E.Partial [E.V n] ,E.Field(0,i'))
246          }          }
247          end          end
248

Legend:
 Removed from v.2529 changed lines Added in v.2530