L24.mws

>    restart;

[Maple OLE 2.0 Object]

>    R1,r1,ro1:=2,1,1:

>    R2,r2,ro2:=3,2,3:

>    R3,r3,ro3:=4,2,3:

>    m1,m2,m3,m4,m5:=4,12,144,72,144:

>    w1:=v/R1:w2:=w1*(r1+R1)/R2:

>    w3:=w2*r2/(R3+r3):

>    v3:=w3*R3:

>    v4:=w3*(R3-r3)/2:

>    w5:=v4/r5:

>    J1:=m1*ro1^2:J2:=m2*ro2^2:J3:=m3*ro3^2:

>    T1:=J1*w1^2/2+m1*v^2/2;mu1:=2*T1/v^2;

T1 := 5/2*v^2

mu1 := 5

>    T2:=J2*w2^2/2;mu2:=2*T2/v^2;

T2 := 27/2*v^2

mu2 := 27

>    T3:=J3*w3^2/2+m3*v3^2/2;mu3:=2*T3/v^2;

T3 := 50*v^2

mu3 := 100

>    T4:=3*v4^2/4*m4;mu4:=2*T4/v^2;

T4 := 3/2*v^2

mu4 := 3

>    J5:=m5*r5^2/2:

>    T5:=J5*w5^2/2;mu5:=2*T5/v^2;

T5 := v^2

mu5 := 2

>    mu:=add(mu||k,k=1..5);# Приведенная масса системы

>    v:=sqrt(2*m1*g*S[k]/mu):

mu := 137

>    g:=9.81:

>    p:=[0.1,0.4,0.3,0.2]:#Ряд распределения случайной величины S

>    S:=[3.2,3.5,3.6,3.9]:

>    add(sqrt(2*m1*g*S[k]/mu)*p[k],k=1..4); #Мат.ожидание скорости

1.431533472