summaryrefslogtreecommitdiff
path: root/564/CH18/EX18.1/18_1.sce
diff options
context:
space:
mode:
Diffstat (limited to '564/CH18/EX18.1/18_1.sce')
-rwxr-xr-x564/CH18/EX18.1/18_1.sce12
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