blob: 518fc8e2391ebbd0c96b27fa2eca9d147438a17f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
pathname=get_absolute_file_path('18_1.sce')
filename=pathname+filesep()+'18_1data.sci'
exec(filename)
clear
A=%pi*d*d/4;
tmin1=Tmax/(2*A*Smax);
tmin2= (Tmax*%pi*d*0.5*L)/(4*A*A*G*angle);
if(tmin1<tmin2) then
printf("\nminimum allowable thickness is: %f mm",tmin2);
else
printf("\nminimum allowable thickness is: %f mm",tmin1);
end
|
