1 files changed, 13 insertions, 0 deletions
diff --git a/3648/CH15/EX15.4/Ex15_4.sce b/3648/CH15/EX15.4/Ex15_4.sce
new file mode 100644
index 000000000..ca7d485d3
--- /dev/null
+++ b/3648/CH15/EX15.4/Ex15_4.sce
@@ -0,0 +1,13 @@
+//Example 15_4
+clc();
+clear;
+//To find the resultant force on 20 micro C
+f1=2 //Units in N
+f2=1.8     //Units in N
+theta=37       //Units in degrees
+f2x=f2*cos(theta*%pi/180)      //Units in N
+f2y=f2*sin(theta*%pi/180)      //Units in N
+fy=f1+f2y     //Units in N
+f=sqrt(fy^2+f2x^2) //Units in N
+theta=atan(fy/f2x)*180/%pi  //Unitsta in degrees
+printf("The resultant force is f=%.1f N \n The resultant angle is theta=%.1f degrees",f,theta)