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

SCM Repository

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

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

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

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

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