diff options
Diffstat (limited to '278/CH7/EX7.1')
| -rwxr-xr-x | 278/CH7/EX7.1/ex_7_1.sce | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/278/CH7/EX7.1/ex_7_1.sce b/278/CH7/EX7.1/ex_7_1.sce new file mode 100755 index 000000000..cafd83af4 --- /dev/null +++ b/278/CH7/EX7.1/ex_7_1.sce @@ -0,0 +1,10 @@ +d=1200
+p=1.75
+sigmat2=28
+sigmat1=42
+//when longitudinal stress does not exceed 28Mpa
+t2=(p*d)/(4*sigmat2)
+disp(t,"Minimum wall thickness in mm=")
+//when circumferential stress does not exceed 42MPa
+t1=(p*d)/(2*sigmat1)
+disp(t,"Minimum wall thickness in mm=")
\ No newline at end of file |