summaryrefslogtreecommitdiff
path: root/3648/CH2/EX2.8/Ex2_8.sce
diff options
context:
space:
mode:
Diffstat (limited to '3648/CH2/EX2.8/Ex2_8.sce')
-rw-r--r--3648/CH2/EX2.8/Ex2_8.sce16
1 files changed, 16 insertions, 0 deletions
diff --git a/3648/CH2/EX2.8/Ex2_8.sce b/3648/CH2/EX2.8/Ex2_8.sce
new file mode 100644
index 000000000..ba482d4f2
--- /dev/null
+++ b/3648/CH2/EX2.8/Ex2_8.sce
@@ -0,0 +1,16 @@
+//Example 2_8
+clc();
+clear;
+//To find the tension in the Muscle and the Component Forces at elbow
+F1=65 //units in Newtons
+d1=0.1 //units in Meters
+F2=20 //Units in Newtons
+d2=0.35 //units in meters
+theta1=20 //units in degrees
+d3=0.035 //units in Meters
+Tm=((F1*d1)+(F2*d2))/(cos(theta1*%pi/180)*d3) //units in Newtons
+V=F1+F2-(Tm*cos(theta1*%pi/180))
+H=Tm*sin(theta1*%pi/180)
+printf("Tension T=%d N\n",Tm)
+printf("H=%d N\n",H)
+printf("V=%d N",V)