initial commit / add all books

4 files changed, 175 insertions, 0 deletions

diff --git a/278/CH31/EX31.1/ex_31_1.sce b/278/CH31/EX31.1/ex_31_1.sce
new file mode 100755
index 000000000..25d3f63c5
--- /dev/null
+++ b/278/CH31/EX31.1/ex_31_1.sce
@@ -0,0 +1,20 @@
+//find

+clc

+//solution

+//given

+n=3

+m=6

+Dw=50//mm

+Tg=30

+q=(%pi/180)*14.5

+u=0.05

+//tan(y)=m*n/Dw

+y=(%pi/180)*19.8 //rad

+printf("lead angle is,%f deg\n",y)

+vr=Tg/n

+printf("velocity ratio is,%f \n",vr)

+Dg=m*Tg

+x=(Dw+Dg)/2

+printf("centre diat is,%f mm\n",x)

+eff=tan(y)*(cos(q)-u*tan(y))/(cos(q)*tan(y)+u)

+printf("effi is,%f \n",eff)

diff --git a/278/CH31/EX31.2/ex_31_2.sce b/278/CH31/EX31.2/ex_31_2.sce
new file mode 100755
index 000000000..575eb4a2a
--- /dev/null
+++ b/278/CH31/EX31.2/ex_31_2.sce
@@ -0,0 +1,24 @@
+//find

+clc

+//solution

+//given

+P=15000//W

+Nw=2000//rpm

+Ng=75//rpm

+n=3

+Dw=65//mm

+Tg=90

+m=6//mm

+q=(%pi/180)*20

+u=0.1

+T=P*60000/(2*%pi*Nw)//N-mm

+Wt=T/(Dw/2)//N

+printf("tangential force acting is,%f N\n",Wt)

+//let y be lead angle

+//tan(y)=m*n/Dw

+y=(%pi/180)*15.5 //rad

+Wa=Wt/tan(y)

+Wr=Wa*tan(q)

+printf("axial force and separating force acting is%f N\n,%f N\n",Wa,Wr)

+eff=tan(y)*(cos(q)-u*tan(y))/(cos(q)*tan(y)+u)

+printf("effi is,%f \n",eff)

diff --git a/278/CH31/EX31.3/ex_31_3.sce b/278/CH31/EX31.3/ex_31_3.sce
new file mode 100755
index 000000000..cc894a9a1
--- /dev/null
+++ b/278/CH31/EX31.3/ex_31_3.sce
@@ -0,0 +1,87 @@
+//find

+clc

+//solution

+//given

+q=(%pi/180)*20

+P=10000//W

+NW=1400//rpm

+vr=12

+x=225//mm

+//1/(tan(y))^3=vr

+y=(%pi/180)*23.6

+printf("lead angle is ,%f  rad\n",y)

+//let x/ln=u

+u=(1/2/%pi)*(1/sin(y)+vr/(cos(y)))

+ln=x/u

+//printf("normal lead is,%f mm\n",ln)

+l=ln/cos(y)

+//printf("axial lead is,%f mm\n",l)

+n=4

+Tw=n

+//pa=l/4//axial pitch

+m=8//assume

+pa=%pi*m

+printf("axial pitch is,%f mm\n",pa)

+l1=pa*n

+printf("axial lead is,%f mm\n",l1)

+ln1=l1*cos(y)

+printf("normal lead is,%f mm\n",ln1)

+x1=(ln1/2/%pi)*(1/sin(y)+vr/(cos(y)))

+printf("cenetre diatance is,%f mm\n",x1)

+Dw=l1/(%pi*tan(y))//mm

+printf("pitch circle dia is,%f mm\n",Dw)

+Lw1=pa*(4.5 + 0.02 *Tw)//using table 31.3

+//this length is to be inc by 25 to 30 mm for feed marks,therefore

+Lw=Lw1+25//mm

+printf("length of threaded portion is,%f mm\n",Lw)

+h=0.623*pa

+printf("depth of tooth is,%f mm\n",h)

+a=0.286*pa

+printf("addendum is,%f mm\n",a)

+Dow=Dw+2*a

+printf("outside dia of worm is,%f mm\n",Dow)

+Tg=n*vr

+Dg=m*Tg

+printf("pitc circle dia of worm gear si,%f mm\n",Dg)

+Dog=Dg+0.8903*pa

+printf("outside dia of worm gear is,%f mm\n",Dog)

+Dt=Dg +0.572*pa

+printf("throat dia is,%f mm\n",Dt)

+b=2.15*pa + 5

+printf("face width is,%f mm\n",b)

+NG=NW/vr

+T=P*60/(2*%pi*NG)//N-m

+WT=2*T*1000/Dg//N

+v=%pi*0.384*Ng/60//m/s

+Cv=6/(6+v)

+y1=0.154-(0.912/Tg)

+fo=84

+//Wt=fo*Cv*b*%pi*m*y1=84*0.72*b*m*0.135

+Wt=84*0.72*59*%pi*m*0.135

+printf("tangtial load actingi is %f N\n",Wt)

+printf("since it is more than load acting on gear ,so desing is safe\n")

+WD=Wt/Cv

+printf("dynamic load is,%f N\n",WD)

+printf("since WD>Wt,design is safe\n")

+WS=168*b*%pi*m*y1

+printf("static loac is ,%f N\n",WS)

+printf("since WS>Wt,design is safe\n")

+K=0.55

+WW=Dg*b*K'

+printf("wear laod is,%f N \n",WW)

+printf("since WW>Wt,design is safe\n")

+rv=%pi*Dw*NW/cos(y)/1000

+u2=0.025+rv/18000

+//tan(q2)=u2

+q2=(%pi/180)*2.548

+eff2=tan(y)/(tan(q2+y))

+Qg=1.25*P*(1-eff2)

+Aw=(%pi/4)*Dw^2//mm^2

+Ag=(%pi/4)*Dg^2

+A=Aw+Ag//mm^2

+//Qd=A*(t2-t1)*378

+Qd=Qg

+//t2-t1=G

+G=Qg/45.4

+printf("temp diff is,%f degree C\n",G)

+

diff --git a/278/CH31/EX31.4/ex_31_4.sce b/278/CH31/EX31.4/ex_31_4.sce
new file mode 100755
index 000000000..189007bb4
--- /dev/null
+++ b/278/CH31/EX31.4/ex_31_4.sce
@@ -0,0 +1,44 @@
+//find

+clc

+//solution

+//given

+P=1100//W

+vr=27

+Nw=1440//rpm

+q=(%pi/180)*20

+x=100//mm

+//Dw=(x)^(0.875)/(1.416)//

+printf("pitch circle dia is,%f mm\n",(x)^(0.875)/(1.416))

+printf("pitch cirlce dia is,say 40mm\n")

+Dw=40//mm

+Dg=2*x-Dw//mm

+Tg=2*27//27 is transmission ratio,,from table 31.2

+pa=%pi*Dg/Tg//mm

+pc=pa

+m=pc/%pi//mm//module

+DG=pc*Tg/%pi

+printf("actual pitch is%f mm\n",DG)

+DW=2*x-DG

+printf("actual dia is,%f mm\n",DW)

+b=0.73*DW

+printf("face width is,%f mm\n",b)

+Ng=Nw/vr//rpm

+v=%pi*Dg*Ng/60//m/s'

+Cv=6/(6+v)

+y=0.154-(0.912/Tg)

+fo=84

+Wt=fo*Cv*b*%pi*m*y//N

+P1=Wt*v

+printf("power tran due to tangential load is,%f W\n",P1)

+printf("since power tran is more then given power,hence design is safe\n")

+WD=Wt/Cv//N

+P2=WD*v

+printf("powr due to dynamic load is,%f W\n",P2)

+printf("since power tran is more then given power,hence design is safe\n")

+fe=168

+Ws=fe*b*%pi*m*y//N

+P3=Ws*v

+printf("powr due to static load is,%f W\n",P3)

+P4=3650*(x)^(1.7)/(vr+ 5)

+printf("power due to heat des is,%f W",P4)

+printf("since power tran is more then given power,hence design is safe\n")
\ No newline at end of file