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 2508, Tue Nov 12 17:14:33 2013 UTC revision 2509, Tue Nov 12 21:24:35 2013 UTC
# Line 242  Line 242 
242          }          }
243          end          end
244    
245      (*< d F /  d_i>_i  or hessian *)      (*< d F /  d_i>_i  *)
246          fun grad(a::alpha)=let          fun grad(a::alpha)=let
247          val (index', expindex')= specialize(a::alpha,0)          val (index', expindex')= specialize(a::alpha,0)
248          in E.EIN{          in E.EIN{
# Line 254  Line 254 
254    
255          (*< Sigma d F_alpha /  d x_ij> *)          (*< Sigma d F_alpha /  d x_ij> *)
256          fun hessian(dim,alpha)= let          fun hessian(dim,alpha)= let
   
257               val n=length(alpha)               val n=length(alpha)
   
258               fun expIndex(n,inc)=List.tabulate(n, (fn(x)=>E.V (x+inc)))               fun expIndex(n,inc)=List.tabulate(n, (fn(x)=>E.V (x+inc)))
259               val i'=expIndex(n,0)               val i'=expIndex(n,0)
260    

Legend:
Removed from v.2508  
changed lines
  Added in v.2509

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