Random 20 c1;
 Normal 16 4.

Sample 1000 C1 c11;
  Replace.
Sample 1000 C1 c12;
  Replace.
Sample 1000 C1 c13;
  Replace.
Sample 1000 C1 c14;
  Replace.
Sample 1000 C1 c15;
  Replace.
Sample 1000 C1 c16;
  Replace.
Sample 1000 C1 c17;
  Replace.
Sample 1000 C1 c18;
  Replace.
Sample 1000 C1 c19;
  Replace.
Sample 1000 C1 c20;
  Replace.
Sample 1000 C1 c21;
  Replace.
Sample 1000 C1 c22;
  Replace.
Sample 1000 C1 c23;
  Replace.
Sample 1000 C1 c24;
  Replace.
Sample 1000 C1 c25;
  Replace.
Sample 1000 C1 c26;
  Replace.
Sample 1000 C1 c27;
  Replace.
Sample 1000 C1 c28;
  Replace.
Sample 1000 C1 c29;
  Replace.
Sample 1000 C1 c30;
  Replace.

 RStDev C11-C30 c31.

let c32=c31*c31
let c33=c32 - mean(c32)

Sort C33 c34;
By C33.

let k1 = c34(25)
let K2 = c34(975)

let k3=StDev(c1)*StDev(c1) - k1
let k4=StDev(c1)*StDev(c1) - K2

print k4 
print k3