summaryrefslogtreecommitdiff
path: root/3862/CH5/EX5.7/Ex5_7.sce
diff options
context:
space:
mode:
authorprashantsinalkar2018-02-03 11:01:52 +0530
committerprashantsinalkar2018-02-03 11:01:52 +0530
commit7bc77cb1ed33745c720952c92b3b2747c5cbf2df (patch)
tree449d555969bfd7befe906877abab098c6e63a0e8 /3862/CH5/EX5.7/Ex5_7.sce
parentd1e070fe2d77c8e7f6ba4b0c57b1b42e26349059 (diff)
downloadScilab-TBC-Uploads-7bc77cb1ed33745c720952c92b3b2747c5cbf2df.tar.gz
Scilab-TBC-Uploads-7bc77cb1ed33745c720952c92b3b2747c5cbf2df.tar.bz2
Scilab-TBC-Uploads-7bc77cb1ed33745c720952c92b3b2747c5cbf2df.zip
Added new codeHEADmaster
Diffstat (limited to '3862/CH5/EX5.7/Ex5_7.sce')
-rw-r--r--3862/CH5/EX5.7/Ex5_7.sce22
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)