请教：关于sas中的sum函数

shiyiming

请问在sas中如果要用sum函数计算x1的平方一直加到x20的平方，该怎么编写程序？

shiyiming

[code:12u03b0m]data two;
        array x[20];
        do i=1 to 20;
                x[i]=ceil(ranuni(34534)*100);
                drop i;
        end;
run;

data three;
        set two;
        array x[20] x1-x20;
        do i=1 to 20;
              x[i]=(x[i])**2;
                drop i;
        end;
        sum_square=sum(of x[*]);
run;[/code:12u03b0m]

shiyiming

[code:o4zyocyu]data two;
   array x[20];
   do i=1 to 20;
      x[i]=ceil(ranuni(34534)*100);
      drop i;
   end;
run;

data three;
   set two;
   array x[20] x1-x20;
   do i=1 to 20;
         sum_square+x[i]**2;
      drop i;
   end;   
run;[/code:o4zyocyu]