sample 70 c2 c3 
unstack c1 c4 c5 c6 c7 c8;
subs c3.

let c9(k1)= (mean(c4)-mean(c1))**2+(mean(c5)-mean(c1))**2+(mean(c6)-mean(c1))**2+(mean(c7)-mean(c1))**2+(mean(c8)-mean(c1))**2
let c9(k1)=c9(k1)*14/4

let c10(k1)=(std(c4)**2+std(c5)**2+std(c6)**2+std(c7)**2+std(c8)**2)/5

let k1=k1+1