summaryrefslogtreecommitdiff
path: root/3862/CH5/EX5.6/Ex5_6.sce
diff options
context:
space:
mode:
Diffstat (limited to '3862/CH5/EX5.6/Ex5_6.sce')
-rw-r--r--3862/CH5/EX5.6/Ex5_6.sce27
1 files changed, 27 insertions, 0 deletions
diff --git a/3862/CH5/EX5.6/Ex5_6.sce b/3862/CH5/EX5.6/Ex5_6.sce
new file mode 100644
index 000000000..56751a264
--- /dev/null
+++ b/3862/CH5/EX5.6/Ex5_6.sce
@@ -0,0 +1,27 @@
+clear
+//
+o1=60.0*3.14/180.0 //angle of inclination of plane AC
+o2=30.0*3.14/180.0 //angle of inclination of plane BC
+Wbc=1000.0 //weight of block on plane BC
+ubc=0.28 //coefficient of friction between the load and the plane BC
+uac=0.20 //coefficient of friction between the load and the plane AC
+//for least weight
+N1=Wbc*cos(o2) //Normal Reaction
+F1=ubc*N1 //frictional Force
+T=Wbc*sin(o2)-F1 //Tension
+//for block on plane AC
+//N2=Wcoso1
+//F2=uac*N2
+//T=F2+W sino2
+W=T/(uac*cos(o1)+sin(o1))
+printf("\n Least Weight is %0.3f N",W)
+//for greatest weight
+N1=Wbc*cos(o2) //Normal Reaction
+F1=ubc*N1 //frictional Force
+T=Wbc*sin(o2)+F1 //Tension
+//for block on plane AC
+//N2=Wcoso1
+//F2=uac*N2
+//T=F2+W sino2
+W=T/(-1*uac*cos(o1)+sin(o1))
+printf("\n Greatest Weight is %0.3f N",W)