Diff of /branches/charisee/src/compiler/translate/translate-basis.sml

Parent Directory | Revision Log | Patch

	revision 2505, Tue Nov 5 19:03:38 2013 UTC	revision 2506, Fri Nov 8 00:05:57 2013 UTC
#	Line 185	Line 185
185	(BV.op_probe,           fn (y, [_, Ty.DIM d, Ty.SHAPE dd], xs) =>	(BV.op_probe,           fn (y, [_, Ty.DIM d, Ty.SHAPE dd], xs) =>
186	[assignEin(y, (mk.probe(dd,d,[d])),xs)]),	[assignEin(y, (mk.probe(dd,d,[d])),xs)]),
187	(BV.op_D,               fn (y, [_, Ty.DIM d], xs) =>  [assignEin(y, mk.grad([d]),xs)]),	(BV.op_D,               fn (y, [_, Ty.DIM d], xs) =>  [assignEin(y, mk.grad([d]),xs)]),
188	(BV.op_Dotimes,         fn (y, [_, Ty.DIM d1,  Ty.SHAPE dd, Ty.DIM d2], xs) =>	(BV.op_Dotimes,         fn (y, [_, Ty.DIM d1,  Ty.SHAPE dd, Ty.DIM d2], xs) => let val x= print (Int.toString(d1))
189		val e= print (Int.toString(d2))
190		val z= print (Int.toString(length(dd)))
191		val u= print "\n"
192		in
193		[assignEin(y, mk.hessian(d1, dd),xs)] end ),
194		(BV.op_Ddot,         fn (y, [_, Ty.DIM d1,  Ty.SHAPE dd, Ty.DIM d2], xs) =>
195	[assignEin(y, mk.divergence(d1, dd),xs)]),	[assignEin(y, mk.divergence(d1, dd),xs)]),
196
197
198	(BV.op_norm,            fn (y, [sv], xs) => (case shapeVarToTensor sv	(BV.op_norm,            fn (y, [sv], xs) => (case shapeVarToTensor sv
199	of DstTy.TensorTy[] => assign(y, Op.Abs DstTy.realTy, xs)	of DstTy.TensorTy[] => assign(y, Op.Abs DstTy.realTy, xs)
200	| ty => assign(y, Op.Norm ty, xs)	| ty => assign(y, Op.Norm ty, xs)

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.2505   changed lines   Added in v.2506

---

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