$SB1-X5.226
p Function heislerplacaexacta(Bi,Fo,X)
y_1=Interpolate1(Biot,xi_1,Biot=Bi)
y_2=Interpolate1(Biot,xi_2,Biot=Bi)
y_3=Interpolate1(Biot,xi_3,Biot=Bi)
y_4=Interpolate1(Biot,xi_4,Biot=Bi)
A_1=(2*sin(y_1*Convert(rad,deg)))/(y_1+sin(y_1*Convert(rad,deg))*cos(y_1*Convert(rad,deg)))
f_1=cos(y_1*X*Convert(rad,deg))
theta_1=A_1*exp(-y_1^2*Fo)*f_1
A_2=(2*sin(y_2*Convert(rad,deg)))/(y_2+sin(y_2*Convert(rad,deg))*cos(y_2*Convert(rad,deg)))
f_2=cos(y_2*X*Convert(rad,deg))
theta_2=A_2*exp(-y_2^2*Fo)*f_2
A_3=(2*sin(y_3*Convert(rad,deg)))/(y_3+sin(y_3*Convert(rad,deg))*cos(y_3*Convert(rad,deg)))
f_3=cos(y_3*X*Convert(rad,deg))
theta_3=A_3*exp(-y_3^2*Fo)*f_3
A_4=(2*sin(y_4*Convert(rad,deg)))/(y_4+sin(y_4*Convert(rad,deg))*cos(y_4*Convert(rad,deg)))
f_4=cos(y_4*X*Convert(rad,deg))
theta_4=A_4*exp(-y_4^2*Fo)*f_4
heislerplacaexacta=theta_1+theta_2+theta_3+theta_4
END
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
