summaryrefslogtreecommitdiff
path: root/278/CH17/EX17.6/ex_17_6.sce
diff options
context:
space:
mode:
Diffstat (limited to '278/CH17/EX17.6/ex_17_6.sce')
-rwxr-xr-x278/CH17/EX17.6/ex_17_6.sce60
1 files changed, 29 insertions, 31 deletions
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