a1:=hhv(h,256);
a2:=llv(l,256);
m1:ma(c,64);
m2:ma(c,256);
k1:(0.618*a1+0.382*a2);
k2:(0.5*a1+0.5*a2);
k3:(0.382*a1+0.618*a2);