From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 278/CH7/EX7.1/ex_7_1.sce | 10 ++++++++++
 278/CH7/EX7.2/ex_7_2.sce | 10 ++++++++++
 278/CH7/EX7.3/ex_7_3.sce | 24 ++++++++++++++++++++++++
 278/CH7/EX7.4/ex_7_4.sce | 10 ++++++++++
 278/CH7/EX7.5/ex_7_5.sce |  6 ++++++
 278/CH7/EX7.6/ex_7_6.sce |  7 +++++++
 6 files changed, 67 insertions(+)
 create mode 100755 278/CH7/EX7.1/ex_7_1.sce
 create mode 100755 278/CH7/EX7.2/ex_7_2.sce
 create mode 100755 278/CH7/EX7.3/ex_7_3.sce
 create mode 100755 278/CH7/EX7.4/ex_7_4.sce
 create mode 100755 278/CH7/EX7.5/ex_7_5.sce
 create mode 100755 278/CH7/EX7.6/ex_7_6.sce

(limited to '278/CH7')

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
-- 
cgit