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 2605, Wed Apr 30 01:46:09 2014 UTC revision 2606, Wed Apr 30 16:05:25 2014 UTC
# Line 394  Line 394 
394          fun f x=fs(length(x))          fun f x=fs(length(x))
395    
396       (* generic inner product: <T_{\alpha i} * T_{i \beta}>_{\alpha \beta} *)       (* generic inner product: <T_{\alpha i} * T_{i \beta}>_{\alpha \beta} *)
397    
398          fun innerProductField(shape1,dim,i::beta) = let          fun innerProductField(shape1,dim,i::beta) = let
399              val alpha= List.take(shape1,length(shape1)-1)              val alpha= List.take(shape1,length(shape1)-1)
400              val (indexA, expindexA)= specialize(alpha,0)              val (indexA, expindexA)= specialize(alpha,0)
# Line 404  Line 405 
405              val _=print(String.concat["Inner product Field. ",f(indexA)])              val _=print(String.concat["Inner product Field. ",f(indexA)])
406              in E.EIN{              in E.EIN{
407                  params = [E.FLD(dim) ,E.FLD(dim)],              (* T and T' *)                  params = [E.FLD(dim) ,E.FLD(dim)],              (* T and T' *)
408                  index = indexA@indexB,   (* \alpha \beta, i *)                  index = [],(*indexA@indexB,  *) (* \alpha \beta, i *)
409                  body = E.Sum(s'', E.Prod[                  body = E.Sum(s'', E.Prod[
410                      E.Field(0, expindexA@[s']),   (* F_{\alpha i} *)                      E.Field(0, expindexA@[s']),   (* F_{\alpha i} *)
411                      E.Field(1, [s']@expindexB )  (* F'_{i \beta} *)                      E.Field(1, [s']@expindexB )  (* F'_{i \beta} *)

Legend:
Removed from v.2605  
changed lines
  Added in v.2606

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