مين يتكرم علينا بمعادلة مؤشر center of gravity لتكرتشارت وله الشكر الجزيل

Num:= MP();
Num:= Num + (2 * Ref(MP(),-1));
Num:= Num + (3 * Ref(MP(),-2));
Num:= Num + (4 * Ref(MP(),-3));
Num:= Num + (5 * Ref(MP(),-4));
Num:= Num + (6 * Ref(MP(),-5));
Num:= Num + (7 * Ref(MP(),-6));
Num:= Num + (8 * Ref(MP(),-7));
Num:= Num + (9 * Ref(MP(),-8));
Num:= Num + (10 * Ref(MP(),-9));
Num:= Num + (11 * Ref(MP(),-10));
Num:= Num + (12 * Ref(MP(),-11));
Num:= Num + (13 * Ref(MP(),-12));
Num:= Num + (14 * Ref(MP(),-13));
Num:= Num + (15 * Ref(MP(),-14));
Denom:= MP();
Denom:= Denom + Ref(MP(),-1);
Denom:= Denom + Ref(MP(),-2);
Denom:= Denom + Ref(MP(),-3);
Denom:= Denom + Ref(MP(),-4);
Denom:= Denom + Ref(MP(),-5);
Denom:= Denom + Ref(MP(),-6);
Denom:= Denom + Ref(MP(),-7);
Denom:= Denom + Ref(MP(),-8);
Denom:= Denom + Ref(MP(),-9);
Denom:= Denom + Ref(MP(),-10);
Denom:= Denom + Ref(MP(),-11);
Denom:= Denom + Ref(MP(),-12);
Denom:= Denom + Ref(MP(),-13);
Denom:= Denom + Ref(MP(),-14);

{CG:= (Div(Num,Denom)) * -1;}
CG:= (Num / Denom) * -1;
CG1:= Ref(CG,-1);
CG1;