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 2552, Fri Feb 28 19:03:27 2014 UTC revision 2553, Sun Mar 2 19:53:33 2014 UTC
# Line 38  Line 38 
38    
39       val zero=E.EIN{       val zero=E.EIN{
40          params = [], index = [],          params = [], index = [],
41          body = E.Const(0.0)          body = E.Const(0)
42          }          }
43    
44    
# Line 64  Line 64 
64      fun trace(dim) = E.EIN{      fun trace(dim) = E.EIN{
65          params = [E.TEN(1,[dim,dim])],         (* M *)          params = [E.TEN(1,[dim,dim])],         (* M *)
66          index = [],           (* i *)          index = [],           (* i *)
67          body = E.Sum([(E.V 0,1,dim-1)],E.Tensor(0, [E.V 0, E.V 0]))          body = E.Sum([(E.V 0,0,dim-1)],E.Tensor(0, [E.V 0, E.V 0]))
68      }      }
69    
70      fun negTen(alpha)=let      fun negTen(alpha)=let

Legend:
Removed from v.2552  
changed lines
  Added in v.2553

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