data a;
do i=1 to 100;
x=ranuni(10)*10;
output;
end;
format x f8.2;
run;
proc transpose data=a out=b;
var x;
run;
data _null_;
set b;
retain n 1;
array col col1-col100;
do i=1 to 100;
n=n*col(i);
end;
put n=;
run;
data a;
do i=1 to 100;
x=ranuni(10)*10;
output;
end;
format x f8.2;
run;
data a;
set a(keep=x);
n=log(x);
run;
proc sql;
select sum(n) as sum into:sum from a;
quit;
data a;
set a;
%put n=%sysfunc(exp(&sum.));
run;
扫码加好友，拉您进群
全部版块
我的主页
收藏
