diff options
Diffstat (limited to '3862/CH5/EX5.1/Ex5_1.sce')
| -rw-r--r-- | 3862/CH5/EX5.1/Ex5_1.sce | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/3862/CH5/EX5.1/Ex5_1.sce b/3862/CH5/EX5.1/Ex5_1.sce new file mode 100644 index 000000000..2bd85cb19 --- /dev/null +++ b/3862/CH5/EX5.1/Ex5_1.sce @@ -0,0 +1,33 @@ +clear +// +Wa=1000.0 //weight of block a +Wb=2000.0 //weight of block b +uab=1.0/4.0 //coefficient of friction between A and B +ubg=1.0/3.0 //coefficient of friction between g and B + +//When P is horizontal +//considering equilibrium of block A +N1=Wa //Normal Reaction on block A from block B +F1=uab*N1 //limiting Friction between A and B +T=F1 //tension +//considering equilibrium of block B +N2=N1+ Wb //Normal Reaction on block B from G + +F2=ubg*N2 //limiting Friction between A and g + +P=F1+F2 +printf("\n P= %0.3f N",P) +//When P is inclined at angle o +o=30.0*3.14/180.0 +//considering equilibrium of block A +N1=Wa //Normal Reaction on block A from block B +F1=uab*N1 //limiting Friction between A and B +T=F1 //tension +//considering equilibrium of block B +//from +//N2+Psin30=N1+Wb +//Pcos30=F1+F2 +//F1=ubg*N2 +N2=(N1+Wb-F1*tan(o))/(1+ubg*tan(o)) +P=(N1+Wb-N2)/sin(o) +printf("\n P= %0.3f N",P) |