| version 1.33, 2004/08/31 05:30:20 |
version 1.34, 2004/09/01 05:06:09 |
|
|
| % $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.32 2004/08/31 04:45:42 takayama Exp $ |
% $OpenXM: OpenXM/src/kan96xx/Kan/dr.sm1,v 1.33 2004/08/31 05:30:20 takayama Exp $ |
| %% dr.sm1 (Define Ring) 1994/9/25, 26 |
%% dr.sm1 (Define Ring) 1994/9/25, 26 |
| %% This file is error clean. |
%% This file is error clean. |
| |
|
|
|
| [ |
[ |
| /mat arg1 def |
/mat arg1 def |
| /m mat length def |
/m mat length def |
| |
{ |
| |
m 0 eq { /ans [ ] def exit } { } ifelse |
| mat 0 get isArray |
mat 0 get isArray |
| { } |
{ } |
| { (transpose: Argument must be an array of arrays.) error } |
{ (transpose: Argument must be an array of arrays.) error } |
|
|
| ans [ j i ] << mat i get j get >> put |
ans [ j i ] << mat i get j get >> put |
| } for |
} for |
| } for |
} for |
| |
exit |
| |
} loop |
| /arg1 ans def |
/arg1 ans def |
| ] pop |
] pop |
| popVariables |
popVariables |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to dr.sm1 CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Kan