initial commit / add all books

6 files changed, 67 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
diff --git a/278/CH7/EX7.2/ex_7_2.sce b/278/CH7/EX7.2/ex_7_2.sce
new file mode 100755
index 000000000..dd4c53df8
--- /dev/null
+++ b/278/CH7/EX7.2/ex_7_2.sce
@@ -0,0 +1,10 @@
+d=500

+p=2

+t=20

+//hoop stress

+sigmat1=(p*d)/(2*t)

+disp(sigmat1,"Hoop stress in MPa=")

+sigmat2=(p*d)/(4*t)

+disp(sigmat2,"Longitudinal stress in MPa=")

+tau=(sigmat1-sigmat2)/2

+disp(tau,"Maximum stress=")
\ No newline at end of file
diff --git a/278/CH7/EX7.3/ex_7_3.sce b/278/CH7/EX7.3/ex_7_3.sce
new file mode 100755
index 000000000..c6b630b81
--- /dev/null
+++ b/278/CH7/EX7.3/ex_7_3.sce
@@ -0,0 +1,24 @@
+p=3

+d=800

+n=1

+sigmat1=50

+F=25*10^3

+sigmatc=30

+nH=0.8

+nP=0.6

+t=(p*d)/(2*sigmat1*n)

+disp(t,"Thickness of pressure tank in mm=")

+F1=F+0.1*F

+p1=3-0.2//p1=pressure in tank-pressure drop

+D=sqrt(27500/2.2)

+t1=(p1*D)/(2*sigmatc)

+disp(t1,"Thickness of cylinder in mm=")

+// Power o/p of cylinder

+sp=0.45//stroke of piston=450mm

+ts=5//time req for working stroke=5s

+dp=sp/ts//distance moved by piston/sec=0.45/5

+w=F1*dp

+disp(w,"Power output of the cylinder in watts=")

+pp=(w*10^3*5)/(nH*nP*30)

+disp(pp,"Power of the motor in kW=")

+

diff --git a/278/CH7/EX7.4/ex_7_4.sce b/278/CH7/EX7.4/ex_7_4.sce
new file mode 100755
index 000000000..5ce76c78a
--- /dev/null
+++ b/278/CH7/EX7.4/ex_7_4.sce
@@ -0,0 +1,10 @@
+syms sigmat1;

+p=(5/8)*sigmat1

+d=100//diameter=100mm

+p1=90//N/mm^2

+E=205*10^3//N/mm^2

+mu=0.29

+t=(p*d)/(2*sigmat1)//thickness of a tube

+disp(t,"Thickness of a tube in mm")

+deltad=((p1*d^2)*(2-mu))/(2*t*E*2)

+disp(deltad,"Increase in diameter of tube in mm")
\ No newline at end of file
diff --git a/278/CH7/EX7.5/ex_7_5.sce b/278/CH7/EX7.5/ex_7_5.sce
new file mode 100755
index 000000000..fe981e423
--- /dev/null
+++ b/278/CH7/EX7.5/ex_7_5.sce
@@ -0,0 +1,6 @@
+d=3000//mm

+p=1.5//N-mm^2

+sigmat=90//Mpa

+n=0.75

+t=(p*d)/(4*sigmat*n)//mm

+disp(t,"Thickness of the vessel in mm")
\ No newline at end of file
diff --git a/278/CH7/EX7.6/ex_7_6.sce b/278/CH7/EX7.6/ex_7_6.sce
new file mode 100755
index 000000000..6edeed373
--- /dev/null
+++ b/278/CH7/EX7.6/ex_7_6.sce
@@ -0,0 +1,7 @@
+d=900//mm

+t=10//mm

+deltav=150*10^3//mm^3

+E=200*10^3//N/mm^2

+mu=0.3

+p=(deltav*8*t*E)/(%pi*d^4*(1-mu))

+disp(p,"Pressure exerted by the fluid on the shell in N/mm^2")
\ No newline at end of file