Определение координат центра тяжести и моментов инерции плоской фигуры, Maple и maplet. Лань, 2012. с.128.

>

restart:

>	A[1]:=22.2: A[2]:=4.96:As:=A[1]+A[2]:

     Координаты центра тяжести (см)                                                                  (4.2)

>	x:=9,1.69:

>	y:=2.13,-1.69:

>	xc:=add(x[i]*A[i],i=1..2)/As;

>	yc:=add(y[i]*A[i],i=1..2)/As;

>	Jx:=105,18.9: Jy:=1190,18.9:Jxy:=0,11:

>	Jxc:=add(Jx[i]+A[i]*(yc-y[i])^2,i=1..2);

>	Jyc:=add(Jy[i]+A[i]*(xc-x[i])^2,i=1..2);

>	Jxyc:=add(Jxy[i]+A[i]*(xc-x[i])*(yc-y[i]),i=1..2);

Jxc := 183.0604694"

Jyc := 1425.540495

Jxyc := 124.2102176

   Главные центральные моменты инерции (см4)                                            (4.4)

>	Jmax:=((Jxc+Jyc)/2+sqrt((Jxc-Jyc)^2/4+Jxyc^2));

>	Jmin:=((Jxc+Jyc)/2-sqrt((Jxc-Jyc)^2/4+Jxyc^2));

Jmax := 1437.836063

Jmin := 170.7649015