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

SCM Repository

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

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

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

revision 4403, Wed Aug 10 22:51:46 2016 UTC revision 4404, Thu Aug 11 14:00:48 2016 UTC
# Line 684  Line 684 
684          )          )
685          }          }
686    
687        fun mkField(ix, jx)= E.Field(0, [E.C ix, E.C jx])
688        fun invF2(dim) = let
689            val f00 = mkField(0,0)
690            val f11 = mkField(1,1) - mkField(0,1)*mkField(1,0);
691            return [[m[1,1],-m[0,1]],[-m[1,0],m[0,0]]]/d;
692    
693    
694      (************************* Pow **************************)      (************************* Pow **************************)

Legend:
Removed from v.4403  
changed lines
  Added in v.4404

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