diff options
Diffstat (limited to '3862/CH5/EX5.7/Ex5_7.sce')
| -rw-r--r-- | 3862/CH5/EX5.7/Ex5_7.sce | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/3862/CH5/EX5.7/Ex5_7.sce b/3862/CH5/EX5.7/Ex5_7.sce new file mode 100644 index 000000000..9781c9674 --- /dev/null +++ b/3862/CH5/EX5.7/Ex5_7.sce @@ -0,0 +1,22 @@ +clear +// +u=0.4 //The coefficient of friction on the horizontal plane +oi=30 //angle of inclined plane +o=20.0 //The limiting angle of friction for block B on the inclined plane +wb=5000.0 //weight of block b +ub=tan(o*3.14/180.0) //coefficcient of friction on plane +//for block B +//N1 N2 N3 are normal reaction +//F1 F2 are frictional forces +//F1=ub*N1 +//N1 sinoi + F1 cos oi=wb +N1=wb/(sin(oi*3.14/180.0)+ub*cos(oi*3.14/180.0)) +F1=ub*N1 +C=N1*cos(oi*3.14/180.0)-F1*sin(oi*3.14/180.0) + +//force balance on A in horizontal balance +F2=C +N2=F2/u +//force balance on A in vertical balance +W=N2 +printf("\n Weight %0.3f N",W) |