merhaba,
n1 := 10;
n2 := 21;
ap := (H+L+C)/3;
esa := MOV(ap, n1, E);
d := MOV(abs(ap - esa), n1, E);
ci := (ap - esa) / (0.015 * d);
tci := MOV(ci, n2, E);
wt1 := tci;
wt2 := MOV(wt1, 4, S);
wt1>ref(wt1,-1) AND wt2<ref(wt2,-1) AND wt2<-30
formülü size kesmeye yakın olanları verecektir,
bir deneyip inceleyiniz,
bilgilerinize