updated the code

7 files changed, 222 insertions, 225 deletions

diff --git a/278/CH17/EX17.1/ex_17_1.sce b/278/CH17/EX17.1/ex_17_1.sce
index 9ac612283..583a3260a 100755
--- a/278/CH17/EX17.1/ex_17_1.sce
+++ b/278/CH17/EX17.1/ex_17_1.sce
@@ -1,24 +1,24 @@
-//determine dia of the wheel

-clc

-//solution

-//given

-d=50//mm

-p=12.5//mm

-W=10000//N

-D=60//mm

-R=30//mm

-u=0.15//tan(q)=u

-u1=0.18

-P1=100//N

-//tan(a)=p/(%pi/d)=b=0.08

-b=0.08

-//P=W*tan(u+a)

-//P=W*[(tan(a)+tan(q))/(1-tan(a)*tan(q))]

-P=W*[(b+u)/(1-(b*u))]//N

-T=(P*d/2)+(u1*W*R)//N-mm

-//let D1 be dia of wheel

-P1=100

-//T=2*P1*D1/2=100*D1

-D1=T/100//mm

-

-printf("the dia of wheel is,%f mm\n",D1)

+
+clc
+//solution
+//given
+d=50//mm
+p=12.5//mm
+W=10000//N
+D=60//mm
+R=30//mm
+u=0.15//tan(q)=u
+u1=0.18
+P1=100//N
+//tan(a)=p/(%pi/d)=b=0.08
+b=0.08
+//P=W*tan(u+a)
+//P=W*[(tan(a)+tan(q))/(1-tan(a)*tan(q))]
+P=W*[(b+u)/(1-(b*u))]//N
+T=(P*d/2)+(u1*W*R)//N-mm
+//let D1 be dia of wheel
+P1=100
+//T=2*P1*D1/2=100*D1
+D1=T/100//mm
+
+printf("the dia of wheel is,%f mm\n",D1)
diff --git a/278/CH17/EX17.3/ex_17_3.sce b/278/CH17/EX17.3/ex_17_3.sce
index 953d8c98f..d4778eec8 100755
--- a/278/CH17/EX17.3/ex_17_3.sce
+++ b/278/CH17/EX17.3/ex_17_3.sce
@@ -1,29 +1,29 @@
-//determine power and effi

-clc

-//soluiton

-//given

-do=55//mm

-p=10//mm

-W=400//N

-D2=60//mm

-D1=90//mm

-R1=45//mm

-R2=30//mm

-u=0.15

-u1=0.15//=//tan(q)

-v=6//m/min

-d=do-(p/2)//mm

-//tan(a)=p/(%pi/d)=b=0.0637

-b=0.0637

-//P=W*tan(u+a)

-//P=W*[(tan(a)+tan(q))/(1-tan(a)*tan(q))]

-P=W*[(b+u)/(1-(b*u))]//N

-R=(R1+R2)/2//mm

-T=[(P*d/2)+(u1*W*R)]/1000//N-mm

-N=v/0.01//rpm

-w=2*%pi*N/60//rad/sec

-P=T*w//W

-printf("the power transmitted is,%f W\n",P)

-//eff=To/T

-eff=(W*b*(d/2))/(1000*T)

+
+clc
+//soluiton
+//given
+do=55//mm
+p=10//mm
+W=400//N
+D2=60//mm
+D1=90//mm
+R1=45//mm
+R2=30//mm
+u=0.15
+u1=0.15//=//tan(q)
+v=6//m/min
+d=do-(p/2)//mm
+//tan(a)=p/(%pi/d)=b=0.0637
+b=0.0637
+//P=W*tan(u+a)
+//P=W*[(tan(a)+tan(q))/(1-tan(a)*tan(q))]
+P=W*[(b+u)/(1-(b*u))]//N
+R=(R1+R2)/2//mm
+T=[(P*d/2)+(u1*W*R)]/1000//N-mm
+N=v/0.01//rpm
+w=2*%pi*N/60//rad/sec
+P=T*w//W
+printf("the power transmitted is,%f W\n",P)
+//eff=To/T
+eff=(W*b*(d/2))/(1000*T)
 printf("the efficuency is,%f",eff)
\ No newline at end of file
diff --git a/278/CH17/EX17.4/ex_17_4.sce b/278/CH17/EX17.4/ex_17_4.sce
index 20757300a..eb6cc9e78 100755
--- a/278/CH17/EX17.4/ex_17_4.sce
+++ b/278/CH17/EX17.4/ex_17_4.sce
@@ -1,32 +1,32 @@
-//find force reqird at the end of lever

-clc

-//soltuion

-//given

-d=100//mm

-p=20//mm

-W=18000//N

-D1=250//mm

-R1=125//mm

-D2=100//mm

-R2=50//mm

-l=400//mm

-u=0.15//=tan(q)

-u1=0.20

-Lead=2*p

-//tan(a)=Lead/(%pi/d)=b=0.127

-b=0.127

-//P=W*tan(u+a)

-//P=W*[(tan(a)+tan(q))/(1-tan(a)*tan(q))]

-P=W*[(b+u)/(1-(b*u))]//N

-R=(R1+R2)/2//mm

-T=[(P*d/2)+(u1*W*R)]//N-mm

-//let P1 be req force

-P1=T/l//N

-printf("the req force is,%f N\n",P1)

-//P=W*tan(u-a)

-//P=W*[(tan(a)-tan(q))/(1+tan(a)*tan(q))]

-P2=W*[(u-b)/(1+(b*u))]//N

-T2=[(P2*d/2)+(u1*W*R)]//N-mm

-//let P3 be the force req

-P3=T2/l//N

-printf("the force req for lowering load is,%f N",P3)

+
+clc
+//soltuion
+//given
+d=100//mm
+p=20//mm
+W=18000//N
+D1=250//mm
+R1=125//mm
+D2=100//mm
+R2=50//mm
+l=400//mm
+u=0.15//=tan(q)
+u1=0.20
+Lead=2*p
+//tan(a)=Lead/(%pi/d)=b=0.127
+b=0.127
+//P=W*tan(u+a)
+//P=W*[(tan(a)+tan(q))/(1-tan(a)*tan(q))]
+P=W*[(b+u)/(1-(b*u))]//N
+R=(R1+R2)/2//mm
+T=[(P*d/2)+(u1*W*R)]//N-mm
+//let P1 be req force
+P1=T/l//N
+printf("the req force is,%f N\n",P1)
+//P=W*tan(u-a)
+//P=W*[(tan(a)-tan(q))/(1+tan(a)*tan(q))]
+P2=W*[(u-b)/(1+(b*u))]//N
+T2=[(P2*d/2)+(u1*W*R)]//N-mm
+//let P3 be the force req
+P3=T2/l//N
+printf("the force req for lowering load is,%f N",P3)
diff --git a/278/CH17/EX17.5/ex_17_5.sce b/278/CH17/EX17.5/ex_17_5.sce
index dcc7147be..c0bbd45c1 100755
--- a/278/CH17/EX17.5/ex_17_5.sce
+++ b/278/CH17/EX17.5/ex_17_5.sce
@@ -1,35 +1,35 @@
-//find work done

-clc

-//soltuion

-//given

-p=10//mm

-d=50//mm

-W=20000//N

-D1=60//mm

-R1=30//mm

-D2=10//mm

-R2=5//mm

-u=0.08//=tan(q)

-u1=u

-//tan(a)=p/(%pi/d)=b=0.0637

-b=0.0637

-//P=W*tan(u+a)

-//P=W*[(tan(a)+tan(q))/(1-tan(a)*tan(q))]

-P=W*[(b+u)/(1-(b*u))]//N

-T=(P*d/2)/1000//N-m

-N=170/10

-Wd1=T*2*%pi*N//N-m

-//wen load rotates with th screw

-printf("the workdone in lifting is,%f N-m\n",Wd1)

-//eff1=tan(a)/(tan(a+q))

-eff1=b*(1-b*u)/(b+u)

-printf("the eff is,%f \n",eff1)

-//wen load doesn't trotate

-R=(R1+R2)/2//mm

-T2={(P*d/2)+(u1*W*R)}/1000//N-m

-Wd2=T2*2*%pi*N//N-m

-printf("the work done wen scre dosnt rotate is,%f N-m\n",Wd2)

-//To=W*tan(a)*d/2

-To=W*b*d/2/1000//N-m

-eff2=To/T2

+
+clc
+//soltuion
+//given
+p=10//mm
+d=50//mm
+W=20000//N
+D1=60//mm
+R1=30//mm
+D2=10//mm
+R2=5//mm
+u=0.08//=tan(q)
+u1=u
+//tan(a)=p/(%pi/d)=b=0.0637
+b=0.0637
+//P=W*tan(u+a)
+//P=W*[(tan(a)+tan(q))/(1-tan(a)*tan(q))]
+P=W*[(b+u)/(1-(b*u))]//N
+T=(P*d/2)/1000//N-m
+N=170/10
+Wd1=T*2*%pi*N//N-m
+//wen load rotates with th screw
+printf("the workdone in lifting is,%f N-m\n",Wd1)
+//eff1=tan(a)/(tan(a+q))
+eff1=b*(1-b*u)/(b+u)
+printf("the eff is,%f \n",eff1)
+//wen load doesn't trotate
+R=(R1+R2)/2//mm
+T2={(P*d/2)+(u1*W*R)}/1000//N-m
+Wd2=T2*2*%pi*N//N-m
+printf("the work done wen scre dosnt rotate is,%f N-m\n",Wd2)
+//To=W*tan(a)*d/2
+To=W*b*d/2/1000//N-m
+eff2=To/T2
 printf("the effi in this cse is,%f ",eff2)
\ No newline at end of file
diff --git a/278/CH17/EX17.6/ex_17_6.sce b/278/CH17/EX17.6/ex_17_6.sce
index 907660250..cba733347 100755
--- a/278/CH17/EX17.6/ex_17_6.sce
+++ b/278/CH17/EX17.6/ex_17_6.sce
@@ -1,31 +1,29 @@
-//find power rquire and eff

-clc

-//soltuion

-//given

-do=50//mm

-p=8//mm

-W=2500//N

-D1=110//mm

-R1=55//mm

-D2=55//mm

-R2=27.5//mm

-N=30//rpm

-u=0.15//=tan(q)

-u2=0.12

-//tan(a)=p/(%pi/d)=b=0.055

-b=0.055

-//u1=u/cos(B)=0.15/cos(14.5)=0.155

-u1=0.155

-//P=W*tan(u+a)

-//P=W*[(tan(a)+tan(q1))/(1-tan(a)*tan(q1))]

-P=W*[(b+u1)/(1-(b*u1))]//N

-T1=(P*d/2)//N-mm

-R=(R1+R2)/2//mm

-T2=u2*W*R//N-mm

-T=(T1+T2)/1000//N-m

-Power=T*2*%pi*N/60//W

-printf("the power req is,%f W\n",Power)

-To=W*b*d/2/1000//N-m

-printf("the torque acting is,%f N-m\n",To)

-eff=To/T

-printf("the eff is,%f ",eff)
\ No newline at end of file
+//soltuion
+//given
+do=50//mm
+p=8//mm
+W=2500//N
+D1=110//mm
+R1=55//mm
+D2=55//mm
+R2=27.5//mm
+N=30//rpm
+u=0.15//=tan(q)
+u2=0.12
+//tan(a)=p/(%pi/d)=b=0.055
+b=0.055
+//u1=u/cos(B)=0.15/cos(14.5)=0.155
+u1=0.155
+//P=W*tan(u+a)
+//P=W*[(tan(a)+tan(q1))/(1-tan(a)*tan(q1))]
+P=W*[(b+u1)/(1-(b*u1))]//N
+T1=(P*do/2)//N-mm
+R=(R1+R2)/2//mm
+T2=u2*W*R//N-mm
+T=(T1+T2)/1000//N-m
+Power=T*2*%pi*N/60//W
+printf("the power req is %f W\n",Power)
+To=W*b*do/2/1000//N-m
+printf("the torque acting is %f N-m\n",To)
+eff=To/T
+printf("the eff is %f ",eff)
\ No newline at end of file
diff --git a/278/CH17/EX17.7/ex_17_7.sce b/278/CH17/EX17.7/ex_17_7.sce
index 5b2f13f1f..966e3a411 100755
--- a/278/CH17/EX17.7/ex_17_7.sce
+++ b/278/CH17/EX17.7/ex_17_7.sce
@@ -1,37 +1,37 @@
-//find torque req,stress,numbr of threads

-clc

-//soltuion

-//given

-do=25//mm

-p=5//mm

-W=10000//N

-D1=50//mm

-R1=25//mm

-D2=20//mm

-R2=10//mm

-u=0.2//=tan(q)

-u1=0.15

-N=12//rpm

-pb=5.8//N/mm^2

-d=do-(p/2)//mm

-Lead=2*p

-//tan(a)=Lead/(%pi/d)=b=0.1414

-b=0.1414

-//P=W*tan(u+a)

-//P=W*[(tan(a)+tan(q))/(1-tan(a)*tan(q))]

-P=W*[(b+u)/(1-(b*u))]//N

-R=(R1+R2)/2//mm

-T=[(P*d/2)+(u1*W*R)]/1000//N-mm

-printf("the torque acting is,%f N-m\n",T)

-dc=do-p//mm

-Ac=(%pi/4)*dc^2//mm^2

-fc=W/Ac//N/mm^2

-printf("the direct stress acting,%f N/mm^2\n",fc)

-t=(16*T*1000)/(%pi*dc^3)//N/mm^2

-printf("the shear stressa acting is,%f N/mm^2\n",t)

-tmax=0.5*sqrt(fc^2 +4*t^2)//N/mm^2

-printf("the stressa cting is ,%f N/mm^2\n",tmax)

-//let n be number of threads

-t1=p/2//mm//thickness of threads

-n=W/(%pi*d*t1*5.8)

+
+clc
+//soltuion
+//given
+do=25//mm
+p=5//mm
+W=10000//N
+D1=50//mm
+R1=25//mm
+D2=20//mm
+R2=10//mm
+u=0.2//=tan(q)
+u1=0.15
+N=12//rpm
+pb=5.8//N/mm^2
+d=do-(p/2)//mm
+Lead=2*p
+//tan(a)=Lead/(%pi/d)=b=0.1414
+b=0.1414
+//P=W*tan(u+a)
+//P=W*[(tan(a)+tan(q))/(1-tan(a)*tan(q))]
+P=W*[(b+u)/(1-(b*u))]//N
+R=(R1+R2)/2//mm
+T=[(P*d/2)+(u1*W*R)]/1000//N-mm
+printf("the torque acting is,%f N-m\n",T)
+dc=do-p//mm
+Ac=(%pi/4)*dc^2//mm^2
+fc=W/Ac//N/mm^2
+printf("the direct stress acting,%f N/mm^2\n",fc)
+t=(16*T*1000)/(%pi*dc^3)//N/mm^2
+printf("the shear stressa acting is,%f N/mm^2\n",t)
+tmax=0.5*sqrt(fc^2 +4*t^2)//N/mm^2
+printf("the stressa cting is ,%f N/mm^2\n",tmax)
+//let n be number of threads
+t1=p/2//mm//thickness of threads
+n=W/(%pi*d*t1*5.8)
 printf("the number of threads are,%f ",n)
\ No newline at end of file
diff --git a/278/CH17/EX17.9/ex_17_9.sce b/278/CH17/EX17.9/ex_17_9.sce
index f79d8294d..338d6c865 100755
--- a/278/CH17/EX17.9/ex_17_9.sce
+++ b/278/CH17/EX17.9/ex_17_9.sce
@@ -1,41 +1,40 @@
-//find...

-clc

-//soltuion

-//given

-W1=18000//N

-F=4000//N

-do=60//mm

-p=10//mm

-D1=150//mm

-R1=75//mm

-D2=50//mm

-R2=25//mm

-u=0.1//=tan(q)

-u1=0.12

-pb=7//N/mm^2

-//let P1 be max force

-dc=do-p//mm

-d=(do+dc)/2//mm

-//tan(a)=p/(%pi*d)=0.058

-b=0.058

-W=W1+F//N

-T1=W*[(b+u)/(1-(b*u))]*d/2//N-mm//torque aacting

-R=(R1+R2)/2//mm

-T2=u1*W*R//N-mm

-T=T1+T2//N-mm

-//T=2*P1*1000

-P1=T/(2*1000)//N

-printf("the force acting at end of lever is,%f N\n",P1)

-W2=W1-F//N

-T3=W2*[(u-b)/(1+(b*u))]*d/2//N-mm

-T4=u1*W2*R//N-mm

-T5=T4+T3//N-mm

-P2=T5/(2000)//N

-printf("the force acting in lowering the agte is,%f N\n",P2)

-To=W*b*d/2//N-mm

-eff=To/T

-printf("the eff is,%f \n",eff)

-//let n be numbr of theads

-t=p/2//mm//thikness

-n=(W)/(7*%pi*d*t)

+
+//soltuion
+//given
+W1=18000//N
+F=4000//N
+do=60//mm
+p=10//mm
+D1=150//mm
+R1=75//mm
+D2=50//mm
+R2=25//mm
+u=0.1//=tan(q)
+u1=0.12
+pb=7//N/mm^2
+//let P1 be max force
+dc=do-p//mm
+d=(do+dc)/2//mm
+//tan(a)=p/(%pi*d)=0.058
+b=0.058
+W=W1+F//N
+T1=W*[(b+u)/(1-(b*u))]*d/2//N-mm//torque aacting
+R=(R1+R2)/2//mm
+T2=u1*W*R//N-mm
+T=T1+T2//N-mm
+//T=2*P1*1000
+P1=T/(2*1000)//N
+printf("the force acting at end of lever is,%f N\n",P1)
+W2=W1-F//N
+T3=W2*[(u-b)/(1+(b*u))]*d/2//N-mm
+T4=u1*W2*R//N-mm
+T5=T4+T3//N-mm
+P2=T5/(2000)//N
+printf("the force acting in lowering the agte is,%f N\n",P2)
+To=W*b*d/2//N-mm
+eff=To/T
+printf("the eff is,%f \n",eff)
+//let n be numbr of theads
+t=p/2//mm//thikness
+n=(W)/(7*%pi*d*t)
 printf("the numbr of threads are ,%f",n)
\ No newline at end of file