diff options
Diffstat (limited to '564/CH18/EX18.1/18_1.sce')
-rwxr-xr-x | 564/CH18/EX18.1/18_1.sce | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/564/CH18/EX18.1/18_1.sce b/564/CH18/EX18.1/18_1.sce new file mode 100755 index 000000000..518fc8e23 --- /dev/null +++ b/564/CH18/EX18.1/18_1.sce @@ -0,0 +1,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
\ No newline at end of file |