1 files changed, 35 insertions, 0 deletions
diff --git a/278/CH17/EX17.5/ex_17_5.sce b/278/CH17/EX17.5/ex_17_5.sce
new file mode 100755
index 000000000..dcc7147be
--- /dev/null
+++ b/278/CH17/EX17.5/ex_17_5.sce
@@ -0,0 +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
+printf("the effi in this cse is,%f ",eff2)
+\ No newline at end of file