diff options
Diffstat (limited to '3862/CH5/EX5.8/Ex5_8.sce')
| -rw-r--r-- | 3862/CH5/EX5.8/Ex5_8.sce | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/3862/CH5/EX5.8/Ex5_8.sce b/3862/CH5/EX5.8/Ex5_8.sce new file mode 100644 index 000000000..a20ff3285 --- /dev/null +++ b/3862/CH5/EX5.8/Ex5_8.sce @@ -0,0 +1,14 @@ +clear +// +w=20000.0 //weight of upper block +o=15.0 //The angle of friction for all surfaces of contact +u=tan(o) //coefficient of friction +//R1 R2 are forces +Or1=15.0 //angle force R1 makes with x axis +Or2=35.0 //angle force R2 makes with Y axis +R2=w*sin((90-Or1)*3.14/180.0)/sin((90+Or1+Or2)*3.14/180.0) +//applyig lamis theorem on block B +Or1=15.0 //angle force R3 makes with Y axis +Or2=35.0 //angle force R2 makes with Y axis +P=R2*sin((180-Or1-Or2)*3.14/180.0)/sin((90+Or1)*3.14/180.0) +printf("\n Force = %0.3f N",P) |