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

SCM Repository

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

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

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

revision 2399, Sun Jul 7 02:22:44 2013 UTC revision 2400, Sun Jul 7 13:29:54 2013 UTC
# Line 69  Line 69 
69      }      }
70    
71    
 (* scalar times a scalar product: <s1 * s2> *)  
 val scalarxscalar = G.EIN{  
         params = [G.TEN, G.TEN],  
         index = [],  
         body = G.Prod[G.Tensor(0, []),  G.Tensor(1, []) ]  
     }  
72    
73    
74  (* scalar times tensor product: <s * T_{\alpha}>_{\alpha} *)  (* scalar times tensor product: <s * T_{\alpha}>_{\alpha} *)
# Line 91  Line 85 
85      }      }
86    
87    
   
88  val conv = G.EIN{  val conv = G.EIN{
89      params = [],      params = [],
90      index = [G.MX],      index = [G.MX],
# Line 107  Line 100 
100    
101  (* Probe: <F(x)>_{\alpha}   *)  (* Probe: <F(x)>_{\alpha}   *)
102  val probe = G.EIN{  val probe = G.EIN{
103               params = [G.FLD],               params = [G.FLD,G.TEN],
104               index= [G.MX],               index= [G.MX,G.MX],
105               body= G.Probe(G.Field(0, [0]), 1) (* F_{\alpha}  Tensor1 is position*)               body= G.Probe(G.Field(0, [1]), 1) (* F_{\alpha}  Tensor1 is position*)
106          }          }
107    
108    

Legend:
Removed from v.2399  
changed lines
  Added in v.2400

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