summaryrefslogtreecommitdiff
path: root/2732/CH6
diff options
context:
space:
mode:
Diffstat (limited to '2732/CH6')
-rwxr-xr-x2732/CH6/EX6.11/Ex6_11.sce15
-rwxr-xr-x2732/CH6/EX6.12/Ex6_12.sce18
-rwxr-xr-x2732/CH6/EX6.13/Ex6_13.sce17
-rwxr-xr-x2732/CH6/EX6.14/Ex6_14.sce14
-rwxr-xr-x2732/CH6/EX6.15/Ex6_15.sce15
-rwxr-xr-x2732/CH6/EX6.16/Ex6_16.sce47
-rwxr-xr-x2732/CH6/EX6.17/Ex6_17.sce17
-rwxr-xr-x2732/CH6/EX6.18/Ex6_18.sce13
-rwxr-xr-x2732/CH6/EX6.19/Ex6_19.sce15
-rwxr-xr-x2732/CH6/EX6.20/Ex6_20.sce52
-rwxr-xr-x2732/CH6/EX6.21/Ex6_21.sce17
-rwxr-xr-x2732/CH6/EX6.3/Ex6_3.sce14
-rwxr-xr-x2732/CH6/EX6.4/Ex6_4.sce23
-rwxr-xr-x2732/CH6/EX6.5/Ex6_5.sce16
-rwxr-xr-x2732/CH6/EX6.6/Ex6_6.sce21
-rwxr-xr-x2732/CH6/EX6.7/Ex6_7.sce20
16 files changed, 334 insertions, 0 deletions
diff --git a/2732/CH6/EX6.11/Ex6_11.sce b/2732/CH6/EX6.11/Ex6_11.sce
new file mode 100755
index 000000000..58799b05f
--- /dev/null
+++ b/2732/CH6/EX6.11/Ex6_11.sce
@@ -0,0 +1,15 @@
+clc
+//initialization of variables
+clear
+d=5 //cm
+rpm1=300 //rpm
+rpm2=30000 //rpm
+s=1000 //kg/cm^2
+//calcuations
+T=(d/2)*%pi*10^2*s/32
+hp1= 2*%pi*rpm1*T/4500
+hp2=hp1*100
+// results
+printf('Horse power at 300 rpm and 30000 rpm are respecively %d, %d h.p.',hp1/10,hp2/10)
+
+// wrong/approximate answers in the text
diff --git a/2732/CH6/EX6.12/Ex6_12.sce b/2732/CH6/EX6.12/Ex6_12.sce
new file mode 100755
index 000000000..556baf399
--- /dev/null
+++ b/2732/CH6/EX6.12/Ex6_12.sce
@@ -0,0 +1,18 @@
+clc
+// initialization of variables
+clear
+hp=300 //h.p.
+N1=30 //rpm
+N2=30000 //rpm
+fs=600 //kg/cm^2
+// calculations
+T1=4500*hp*100/(2*%pi*N1)
+T2=T1/1000
+D1=16*T1/(%pi*fs)
+D1=D1^(1/3)
+D2=16*T2/(%pi*fs)
+D2=D2^(1/3)
+// results
+printf('Diameters required are %.1f, %.1f cm',D1,D2)
+
+// wrong calculations in the text
diff --git a/2732/CH6/EX6.13/Ex6_13.sce b/2732/CH6/EX6.13/Ex6_13.sce
new file mode 100755
index 000000000..5ac0c30b2
--- /dev/null
+++ b/2732/CH6/EX6.13/Ex6_13.sce
@@ -0,0 +1,17 @@
+clc
+// initialization of variables
+clear
+d=10 //cm
+t =1 //mm
+T= 100 //kg-m
+L=5 //m
+G=8*10^5 //kg/cm^2
+
+//calculations
+r=d/2
+fs=T*r*100/(r^2*2*%pi*L*t*10^-1)
+U=fs^2/(2*G)
+U1=U*(%pi*L*100)
+// results
+printf('Energy per unit volume = %.3f kg-cm/cm^3',U)
+printf('\n Total strain energy= %d kg-cm',U1)
diff --git a/2732/CH6/EX6.14/Ex6_14.sce b/2732/CH6/EX6.14/Ex6_14.sce
new file mode 100755
index 000000000..ddd876ec1
--- /dev/null
+++ b/2732/CH6/EX6.14/Ex6_14.sce
@@ -0,0 +1,14 @@
+clc
+//initialization of variables
+clear
+D=10 //cm
+d= 1 //cm
+n=20
+P=60 //kg
+G=8*10^5 //kg/cm^2
+//calculations
+n=n-0.75*2
+delta=P*n*%pi*D^3*32/(4*%pi*G)
+// results
+printf('The deflection is %.1f cm',delta)
+
diff --git a/2732/CH6/EX6.15/Ex6_15.sce b/2732/CH6/EX6.15/Ex6_15.sce
new file mode 100755
index 000000000..428ac058d
--- /dev/null
+++ b/2732/CH6/EX6.15/Ex6_15.sce
@@ -0,0 +1,15 @@
+clc
+//initialization of variables
+clear
+// linked to 6_14
+D=10 //cm
+d= 1 //cm
+n=20
+P=60 //kg
+G=8*10^5 //kg/cm^2
+// calculations
+m=D/d
+fs=8*P*D/(d^3*%pi)
+fs1=fs*(1+0.615/m+3/(4*m-4))
+// results
+printf('The shear stress with and without correction facor are \n respectively %d, %d kg/cm^2',fs,fs1)
diff --git a/2732/CH6/EX6.16/Ex6_16.sce b/2732/CH6/EX6.16/Ex6_16.sce
new file mode 100755
index 000000000..a98f005cc
--- /dev/null
+++ b/2732/CH6/EX6.16/Ex6_16.sce
@@ -0,0 +1,47 @@
+clc
+//initialization of variables
+clear
+
+// circle
+D=1 //unit diameter
+Ip=D^4/32
+Zp=D^3/16
+
+//Square
+s=sqrt(%pi/4)*D
+Is=0.886*D^4/32
+Zs=0.7383*D^3/16
+
+//Rectangle
+a=sqrt(%pi/2)*D
+b=sqrt(%pi/8)*D
+Ir=0.719*D^4/32
+Zr=0.616*D^3/16
+
+// Trianle
+t=sqrt(%pi/sqrt(3))*D
+It=0.725*D^4/32
+Zt=0.622*D^3/16
+
+//Ellipse
+A=D/sqrt(2)
+B=D/sqrt(8)
+Ie=A^3*B^3/(A^2+B^2)
+Ze=A*B^2/2
+
+//Normalization
+Is=Is/Ip
+Ie=Ie/Ip
+It=It/Ip
+Ir=Ir/Ip
+
+Zs=Zs/Zp
+Ze=Ze/Zp
+Zt=Zt/Zp
+Zr=Zr/Zp
+Ip=1
+Zp=1
+//results
+printf('Z:: Circle:Square:Ellipse:Triangle:Rectangle = %.3f : %.3f : %.3f : %.3f : %.3f',Zp,Zs,Ze,Zt,Zr)
+printf('\n I:: Circle:Square:Ellipse:Triangle:Rectangle = %.3f : %.3f : %.3f : %.3f : %.3f',Ip,Is,Ie,It,Ir)
+
diff --git a/2732/CH6/EX6.17/Ex6_17.sce b/2732/CH6/EX6.17/Ex6_17.sce
new file mode 100755
index 000000000..817204825
--- /dev/null
+++ b/2732/CH6/EX6.17/Ex6_17.sce
@@ -0,0 +1,17 @@
+clc
+//initialization of variables
+clear
+
+yp=2450 //kg/cm^2
+d=0.4 //cm
+ys=4200 //kg/cm^2
+sa=1.6 //mm
+sb=7 //mm
+// calculations
+sa=sa/10
+sb=sb/10
+T1=yp*%pi*d^3/16
+T2=ys*0.303*sa^2*sb
+// results
+printf('The maximum torque that can be transitted by the screw-driver is %.1f kg-cm',T2)
+
diff --git a/2732/CH6/EX6.18/Ex6_18.sce b/2732/CH6/EX6.18/Ex6_18.sce
new file mode 100755
index 000000000..8471c0941
--- /dev/null
+++ b/2732/CH6/EX6.18/Ex6_18.sce
@@ -0,0 +1,13 @@
+clc
+//initialization of variables
+clear
+b=5 //cm
+h=10 //cm
+tL=3 //mm
+tl=1.5 //mm
+T=100 //kg-cm
+// calculations
+tl=tl/10
+fs=T*100/(2*b*h*tl)
+// results
+printf('The maximum stress is %.1f kg/cm^2',fs)
diff --git a/2732/CH6/EX6.19/Ex6_19.sce b/2732/CH6/EX6.19/Ex6_19.sce
new file mode 100755
index 000000000..082c3e29c
--- /dev/null
+++ b/2732/CH6/EX6.19/Ex6_19.sce
@@ -0,0 +1,15 @@
+clc
+//initialization of variables
+clear
+b=5 //cm
+h=10 //cm
+tL=3 //mm
+tl=1.5 //mm
+T=100 //kg-cm
+// calculations
+D=2*(b+h)/%pi
+AR=b*h
+AC=%pi*D^2/4
+r=AC/AR
+// results
+printf('The ratio is 1:%.2f',r)
diff --git a/2732/CH6/EX6.20/Ex6_20.sce b/2732/CH6/EX6.20/Ex6_20.sce
new file mode 100755
index 000000000..a80931fe6
--- /dev/null
+++ b/2732/CH6/EX6.20/Ex6_20.sce
@@ -0,0 +1,52 @@
+clc
+//initialization of variables
+clear
+G=8*10^5 //kg/cm^2
+//part (a)
+T =20 //kg-m
+t1=0.9 //cm
+t2=0.5 //cm
+b1=6.8 //cm
+b2=14.2 //cm
+I0=1/3*(2*b1*t1^3+b2*t2^3)
+Zt=I0/max(t1,t2)
+fs=T*100/Zt
+Phi=T*100/(G*I0)
+printf('part (a)')
+printf('\n The maximum shear stress and twist rate are respectively \n %d kg/cm^2, %.2e radians/cm ',fs,Phi)
+
+//part (b)
+t1=1 //cm
+t2=1 //cm
+b1=10 //cm
+b2=9 //cm
+I0=1/3*(b1*t1^3+b2*t2^3)
+Zt=I0/max(t1,t2)
+fs=T*100/Zt
+Phi=T*100/(G*I0)
+printf('\n part (b)')
+printf('\n The maximum shear stress and twist rate are respectively \n %d kg/cm^2, %.2e radians/cm ',fs,Phi)
+
+//part (c)
+t1=0.76 //cm
+t2=0.48 //cm
+b1=8 //cm
+b2=14.04 //cm
+I0=1/3*(2*b1*t1^3+b2*t2^3)
+Zt=I0/max(t1,t2)
+fs=T*100/Zt
+Phi=T*100/(G*I0)
+printf('\n part (c)')
+printf('\n The maximum shear stress and twist rate are respectively \n %d kg/cm^2, %.2e radians/cm ',fs,Phi)
+
+//part(d)
+t=1 //cm
+b=19 //cm
+I0=1/3*t^3*b
+Zt=I0/t
+fs=T*100/Zt
+Phi=T*100/(G*I0)
+printf('\n part (d)')
+printf('\n The maximum shear stress and twist rate are respectively \n %d kg/cm^2, %.2e radians/cm ',fs,Phi)
+
+// Twist rate: answers differ by a scale of 10. wrong answers in the text
diff --git a/2732/CH6/EX6.21/Ex6_21.sce b/2732/CH6/EX6.21/Ex6_21.sce
new file mode 100755
index 000000000..3a36175be
--- /dev/null
+++ b/2732/CH6/EX6.21/Ex6_21.sce
@@ -0,0 +1,17 @@
+clc
+// initialization of variables
+clear
+D=5 //cm
+d=2 //cm
+t_y=3000 //kg/cm^2
+// calculations
+R=D/2
+r=d/2
+Tep=2*%pi*R^3*t_y/3-%pi*r^3*t_y/6
+t_er=2*Tep/(%pi*R^3)
+t_er1=t_er*r/R
+prs=t_y-t_er1
+nrs=t_er-t_y
+// results
+printf('Maximum +ve residual stress occurs at %d cm radius and is equal to \n %d kg/cm^2',r,prs)
+printf('\n Maximum -ve residual stress occurs at %d cm radius and is equal to \n %d kg/cm^2',R,-nrs)
diff --git a/2732/CH6/EX6.3/Ex6_3.sce b/2732/CH6/EX6.3/Ex6_3.sce
new file mode 100755
index 000000000..847cdfa40
--- /dev/null
+++ b/2732/CH6/EX6.3/Ex6_3.sce
@@ -0,0 +1,14 @@
+clc
+// initialization o variables
+clear
+p=5 //cm
+D=10 //cm
+d=2 //mm
+T= 10 //kgm
+ss= 785 //kg/cm^2
+// calculations
+P= 2*T/(%pi*D^2)
+P=P*5*100
+// results
+printf('Force per rivet is %.1f kg',P)
+printf('\n The diameter of rivet, using a permissible stress of %d kg/cm^2 = 0.227 cm',ss)
diff --git a/2732/CH6/EX6.4/Ex6_4.sce b/2732/CH6/EX6.4/Ex6_4.sce
new file mode 100755
index 000000000..46147d9d3
--- /dev/null
+++ b/2732/CH6/EX6.4/Ex6_4.sce
@@ -0,0 +1,23 @@
+clc
+// initialization of variables
+clear
+D=5 //cm
+Y=3500 //kg/cm^2
+
+//part (a)
+Ta=350 //kg-m
+tau=Y/2
+Ip=Ta*D*100/(2*tau)
+d1=Ip*32/%pi
+d1=(D^4-d1)^(1/4)
+
+//part (b)
+Tb= 700 //kg-m
+Ip=Tb*D*100/(2*tau)
+d2=Ip*32/%pi
+d2=(D^4-d2)
+T=tau*%pi*(D^4)*2/(32*D)
+// results
+printf('The maximum diameter corresponding to the case a is %.2f cm',d1)
+printf('\n Since the daimeter for the case (b) is coming out to be negative, \n The maximum torque transmitted is %.d kg-m',T/100)
+
diff --git a/2732/CH6/EX6.5/Ex6_5.sce b/2732/CH6/EX6.5/Ex6_5.sce
new file mode 100755
index 000000000..ff4b471f9
--- /dev/null
+++ b/2732/CH6/EX6.5/Ex6_5.sce
@@ -0,0 +1,16 @@
+clc
+// initialization of variables
+clear
+A=3 //cm^2
+E= 2*10^6 //kg/cm^2
+nu= 0.25
+l= 60 //m
+L=150 //cm
+d=0.5 //cm
+dd=10 //cm
+D=180 //cm
+//calculations
+K=(l*100/(A*E))+(L*D/2*D*32*2*(1+nu)/(E*%pi*dd^4*2))
+P=d/K
+// results
+printf('The weight of the students that entered the length is %d kg',P)
diff --git a/2732/CH6/EX6.6/Ex6_6.sce b/2732/CH6/EX6.6/Ex6_6.sce
new file mode 100755
index 000000000..8735087d2
--- /dev/null
+++ b/2732/CH6/EX6.6/Ex6_6.sce
@@ -0,0 +1,21 @@
+clc
+// initialization of variables
+clear
+// linked to 6_5
+A=3 //cm^2
+E= 2*10^6 //kg/cm^2
+nu= 0.25
+l= 60 //m
+L=150 //cm
+d=0.5 //cm
+dd=10 //cm
+D=180 //cm
+//calculations
+K=(l*100/(A*E))+(L*D/2*D*32*2*(1+nu)/(E*%pi*dd^4*2))
+P=d/K
+Ts=P/A
+fs=dd*D*P*32/(%pi*4*dd^4)
+
+// results
+printf('The tensile stress is %.1f kg/cm^2',Ts)
+printf('\n Maximum shear stress is %.1f kg/cm^2',fs)
diff --git a/2732/CH6/EX6.7/Ex6_7.sce b/2732/CH6/EX6.7/Ex6_7.sce
new file mode 100755
index 000000000..66ba48264
--- /dev/null
+++ b/2732/CH6/EX6.7/Ex6_7.sce
@@ -0,0 +1,20 @@
+clc
+// initialization of variables
+clear
+F=500 //kg
+k=25 //kg/cm
+dd=15 //cm
+ss=3500 //kg/cm^2
+L=2 //m
+G=8*10^5 //kg/cm^2
+// calculations
+x=sqrt(%pi*G/(25*L*32*100))
+d=x*16*(F+dd*k)/(ss*%pi)
+x2=x*d^2
+// results
+printf('d=%.2f cm',d)
+printf('\n x=%.2f cm',x2)
+
+// Text: not exact
+
+
generated by cgit (git 2.34.1) at 2025-03-13 05:18:59 +0000