function k=pernum(f1,f2,s1,s2)
k=1E-4*(round(1E4*(0.6+1E-4*(125*s1+25*f1+5*s2+f2))));
