N1:=6;N2:=12;
Aa:=(H+L+O+2*C)/5;
bb1:=MA(Aa,n1);
bb2:=MA(Aa,n2);
V1:=bb1/REF(bb1,1);
V2:=bb2/REF(bb2,1);
Hsl:=vol/SHGZG*100;
m1:=MA(VOL,n1)*bb1/MA(Hsl,n1);
m2:=MA(VOL,n2)*bb2/MA(Hsl,n2);
始动能:=1/2*m2*V2*V2;
末动能:=1/2*m1*V1*V1;
动能:(末动能-始动能)/10000,coloryellow,LINETHICK2;
FILLRGN(动能,0,动能>0,RGB(255,0,0),动能<0,RGB(0,255,0));