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 3090, Tue Mar 17 19:46:26 2015 UTC revision 3091, Tue Mar 17 19:50:27 2015 UTC
# Line 464  Line 464 
464      }      }
465    
466    
467      val detF3  =E.EIN{      val detF3  = let
468            val a=E.Field(0, [E.C 0,E.C 0])
469            val b=E.Field(0, [E.C 0,E.C 1])
470            val c=E.Field(0, [E.C 0,E.C 2])
471            val d=E.Field(0, [E.C 1,E.C 0])
472            val e=E.Field(0, [E.C 1,E.C 1])
473            val f=E.Field(0, [E.C 1,E.C 2])
474            val g=E.Field(0, [E.C 2,E.C 0])
475            val h=E.Field(0, [E.C 2,E.C 1])
476            val i=E.Field(0, [E.C 2,E.C 2])
477        in E.EIN{
478          params = [E.FLD(3)], index= [],          params = [E.FLD(3)], index= [],
479          body=          body=E.Sub(
480          E.Add[              E.Add[E.Prod[a,e,i],E.Prod[b,f,g],E.Prod[c,d,h]],
481          E.Prod[E.Field(0, [E.C 0,E.C 0]),E.Field(0, [E.C 1,E.C 1]),E.Field(0, [E.C 2,E.C 2])],              E.Add[E.Prod[c,e,g], E.Prod[b,d,i],E.Prod[a,f,h]])
         E.Prod[E.Field(0, [E.C 0,E.C 1]),E.Field(0, [E.C 1,E.C 2]),E.Field(0, [E.C 2,E.C 0])],  
         E.Prod[E.Field(0, [E.C 0,E.C 2]),E.Field(0, [E.C 1,E.C 0]),E.Field(0, [E.C 2,E.C 1])],  
         E.Neg(E.Prod[E.Field(0, [E.C 0,E.C 2]),E.Field(0, [E.C 1,E.C 1]),E.Field(0, [E.C 2,E.C 0])]),  
         E.Neg(E.Prod[E.Field(0, [E.C 0,E.C 1]),E.Field(0, [E.C 1,E.C 0]),E.Field(0, [E.C 2,E.C 2])]),  
         E.Neg(E.Prod[E.Field(0, [E.C 0,E.C 0]),E.Field(0, [E.C 1,E.C 2]),E.Field(0, [E.C 2,E.C 1])])  
         ]  
482      }      }
483        end
484    
485      (************************* other tensor ops *************************)      (************************* other tensor ops *************************)
486      fun modulate dim =E.EIN{      fun modulate dim =E.EIN{

Legend:
Removed from v.3090  
changed lines
  Added in v.3091

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