home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e002 / 1.ddi / STAT.TX_ / STAT.TX
Encoding:
Text File  |  1991-11-30  |  455 b   |  21 lines
  1. %B=%(%H,@Link,2)/* the link worksheet name */
  2.  
  3. /* the script in Stat.cnf file
  4.  * save the worksheet's selection in
  5.  * name.C1 and name.C2
  6.  */
  7. for(j=1,i=%B.SELC1;i<=%B.SELC2;j+=1,i+=1) {
  8.     sum(%(%B,i));
  9.     %(%H,1,j) = %(%B,@Col,i);
  10.     col(mean)[j] = sum.mean;
  11.     col(max)[j] = sum.max;
  12.     col(min)[j] = sum.min;
  13.     col(sd)[j] = sum.sd;
  14.     dummy={1,99};
  15.     dummy=percentile(%(%B,i),dummy);
  16.     col(P1)[j] = dummy[1];
  17.     col(P99)[j] = dummy[2];
  18. }
  19.  
  20. del dummy
  21.