version 1.7, 2003/12/12 06:05:21 |
version 1.8, 2003/12/12 06:07:02 |
|
|
% $OpenXM: OpenXM/doc/Papers/rims-2003-12-16-ja-ohp.tex,v 1.6 2003/12/12 01:54:05 noro Exp $ |
% $OpenXM: OpenXM/doc/Papers/rims-2003-12-16-ja-ohp.tex,v 1.7 2003/12/12 06:05:21 noro Exp $ |
%% xdvi -paper a4r rims-2003-12-16-ja-ohp |
%% xdvi -paper a4r rims-2003-12-16-ja-ohp |
%% dvips -f -t landscape rims-2003-12-16-ja-ohp| psnup -8 -r | lpr -Pxerox6 |
%% dvips -f -t landscape rims-2003-12-16-ja-ohp| psnup -8 -r | lpr -Pxerox6 |
%% dvipdfm -l rims-2003-12-16-ja-ohp |
%% dvipdfm -l rims-2003-12-16-ja-ohp |
Line 570 $Data$ $B$,;XDj$5$l$?>l9g(B, $B%9%?%C%/$K%W%C%7%e$7 |
|
Line 570 $Data$ $B$,;XDj$5$l$?>l9g(B, $B%9%?%C%/$K%W%C%7%e$7 |
|
def d_mul(F1,F2) |
def d_mul(F1,F2) |
{ |
{ |
Procs = getopt(proc); |
Procs = getopt(proc); |
|
/* process $B;XDj$,$J$$>l9g$K$O(B, $B<+J,$G7W;;(B */ |
|
if ( type(Procs) == -1 ) return umul(F1,F2); |
if ( !var(F1) || !var(F2) ) return F1*F2; |
if ( !var(F1) || !var(F2) ) return F1*F2; |
NP = length(Procs); |
NP = length(Procs); |
/* $B0z?t$r(B server 0 $B$KAw$k(B */ |
/* $B0z?t$r(B server 0 $B$KAw$k(B */ |