这个要用结构来实现了 程序如下:
new;
@create pv structure for storing matrices@
#include pv.sdf;
pp = pvcreate;
@suppose create 100 data i (10*10) i = 1:100 of random standard normal distribution@
for i(1,100,1);
mat = rndn(10,10);
@name string of matrices@
mat_nm = ftos(i,"data %*.*lf",1,0);
@pack (data i) into struct pp@
pp = pvpacki(pp,mat,mat_nm,i);
endfor;
@save struct on hard disk@
retc = saveStruct(pp,"pp");
|