8 lines
229 B
Mathematica
8 lines
229 B
Mathematica
|
DMLAINI5 ; ; 20-NOV-2012
|
||
|
|
;;22.2;LANGUAGE FILE INITS;;NOV 20, 2012
|
||
|
|
K ^UTILITY("DIF",$J) S DIFRDIFI=1 F I=1:1:2 S ^UTILITY("DIF",$J,DIFRDIFI)=$T(IXF+I),DIFRDIFI=DIFRDIFI+1
|
||
|
|
Q
|
||
|
|
IXF ;;
|
||
|
|
;;.85I;LANGUAGE;^DI(.85,;0;y;y;;n;;;y;o;n
|
||
|
|
;;
|