490
> "Введите коэффициенты температуропроводности слоев": a[1]:=
:a[2]:= :
> "Введите плотность теплового потока":POT:= :
> "Введите температуру окружающей среды в градусах K":TC:= :
> "Введите начальную температуру обуви в градусах K": TP:= :
> "Введите коэффициент теплоотдачи":al:= :
> F:=(z,l1,l2,l3,h1,h2,h3,k1,k2,k3,R0,R1,R2,R3,al)-> h[2]*(BesselJ(1,
z*R[2]/k[2]^(1/2))*(h[1]*(BesselJ(1, z*R[1]/k[1]^(1/2))*BesselY(1,
z*R[0]/k[1]^(1/2))-BesselJ(1, z*R[0]/k[1]^(1/2))*BesselY(1, z*R[1]/
k[1]^(1/2))) k[2]^(1/2)*BesselY(0, z*R[1]/k[2]^(1/2))-
k[1]^(1/2)*(BesselJ(0, z*R[1]/k[1]^(1/2))*BesselY(1, z*R[0]/k[1]^(1/2))-
BesselJ(1, z*R[0]/k[1]^(1/2))* BesselY(0,
z*R[1]/k[1]^(1/2)))*h[2]*BesselY(1, z*R[1] /k[2]^(1/2)))+(-
h[1]*(BesselJ(1, z*R[1]/k[1]^(1/2))* BesselY(1, z*R[0]/k[1]^(1/2))-
BesselJ(1, z*R[0]/ k[1]^(1/2))*BesselY(1, z*R[1]/k[1]^(1/2))) *k[2]^(1/2)*
BesselJ(0, z*R[1]/k[2]^(1/2))+k[1]^(1/2)*(BesselJ(0,
z*R[1]/k[1]^(1/2))*BesselY(1, z*R[0]/k[1]^(1/2))-BesselJ(1,
z*R[0]/k[1]^(1/2))*BesselY(0, z*R[1]/ k[1]^(1/2)))*h[2]*BesselJ(1,
z*R[1]/k[2]^(1/2)))* BesselY(1, z*R[2]/k[2]^(1/2)))*(BesselJ(0,
z*R[2]/k[3]^(1/2))*(al*BesselY(0, z*R[3]/k[3]^(1/2))-h[3]*z*BesselY(1,
z*R[3]/k[3]^(1/2))/k[3]^(1/2))+ (h[3]*z*BesselJ(1,
z*R[3]/k[3]^(1/2))/k[3]^(1/2)-al*BesselJ(0, z*R[3]/
k[3]^(1/2)))*BesselY(0, z*R[2]/k[3]^(1/2)))/k[2]^(1/2)-(h[3]*(BesselJ(1,
z*R[2]/k[3]^(1/2))*(al*BesselY(0, z*R[3]/k[3]^(1/2))-h[3]*z*BesselY(1,
z*R[3]/k[3]^(1/2))/k[3]^(1/2))+ (h[3]*z*BesselJ(1,
z*R[3]/k[3]^(1/2))/k[3]^(1/2)-al*BesselJ(0,
z*R[3]/k[3]^(1/2)))*BesselY(1, z*R[2]/ k[3]^(1/2)))*(BesselJ(0,
z*R[2]/k[2]^(1/2))* (h[1]* (BesselJ(1, z*R[1]/k[1]^(1/2))*BesselY(1,