diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3764/CH7/EX7.05/Ex7_05.sce | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2 Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip | |
initial commit / add all books
Diffstat (limited to '3764/CH7/EX7.05/Ex7_05.sce')
| -rw-r--r-- | 3764/CH7/EX7.05/Ex7_05.sce | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/3764/CH7/EX7.05/Ex7_05.sce b/3764/CH7/EX7.05/Ex7_05.sce new file mode 100644 index 000000000..c02347b5a --- /dev/null +++ b/3764/CH7/EX7.05/Ex7_05.sce @@ -0,0 +1,35 @@ +clc +// +// + +//Variable declaration +p=180 // Internal gage pressure(psi) +t=(5/16.0) // Length(in) +r=(15-t) // Distance(in) + + + +//Calculation +//Case(a) Spherical Cap +s=((p)*(r))/(2.0*t) // Stress(psi) +tmax=(1/2.0)*((p*r)/(t)) // Maximum shearing stress(psi) + +//Case(b) Cylindrical Body of the Tank +t=3/8.0 // Distance(in) +r=15-t // Distance(in) +s1=(p*r)/(t) // Stress(psi) +s2=(1/2.0)*s1 // Stress(psi) +Save=(1/2.0)*(s1+s2) // Stress average(psi) +R=(1/2.0)*(s1-s2) // Stress(psi) + +//Stresses at the Weld +Sw=(Save-(R*cos(50*(((%pi)*2)/360.0)))) // Stress at the weld(psi) + +tw=(R*sin(50*(((%pi)*2)/360.0))) // Shearing stress at the weld(psi) + + +// Result +printf("\n Case(a) Normal stress = %0.3f ' ,s) +printf("\n Case(a) Maximum shearing stress = %0.3f ' ,tmax) +printf("\n Case(b) Stress in direction perpendicular to helical weld = %0.3f ' ,Sw) +printf("\n Case(b) Stress in direction parallel to helical weld = %0.3f ' ,tw) |