6 files changed, 125 insertions, 0 deletions
diff --git a/3862/CH1/EX1.1/Ex1_1.sce b/3862/CH1/EX1.1/Ex1_1.sce
new file mode 100644
index 000000000..80d587abe
--- /dev/null
+++ b/3862/CH1/EX1.1/Ex1_1.sce
@@ -0,0 +1,18 @@
+clear
+//downstream direction as x
+//direction across river as y
+
+//
+
+//variable declaration
+
+Vx= 8                       //velocity of stream, km/hour
+Vy=(20)                       //velocity of boat,km/hour
+
+V=sqrt((Vx**2)+(Vy**2)) //resultant velocity** km/hour
+theta=Vy/Vx
+
+alpha= atan(theta)*180/%pi   //angle, degrees     
+
+printf("\n  The resultant velocity : %0.2f  km/hour",V)
+printf("\n %0.2f °",alpha)
diff --git a/3862/CH1/EX1.2/Ex1_2.sce b/3862/CH1/EX1.2/Ex1_2.sce
new file mode 100644
index 000000000..4bbebabfb
--- /dev/null
+++ b/3862/CH1/EX1.2/Ex1_2.sce
@@ -0,0 +1,13 @@
+clear
+//components of force in horizontal and vertical components. 
+//
+//variable declaration
+
+F= 20                        //force in wire, KN
+
+//calculations
+Fx= F*cos(60*%pi/180)          
+Fy= F*sin(60*%pi/180)
+
+printf("\n %0.3f KN totheleft ",Fx)
+printf("\n %0.3f KN downward ",Fy)
diff --git a/3862/CH1/EX1.4/Ex1_4.sce b/3862/CH1/EX1.4/Ex1_4.sce
new file mode 100644
index 000000000..f5f561d0b
--- /dev/null
+++ b/3862/CH1/EX1.4/Ex1_4.sce
@@ -0,0 +1,20 @@
+clear
+//Let the magnitude of the smaller force be F. Hence the magnitude of the larger force is 2F
+
+//
+//variable declaration
+R1=260            //resultant of two forces,N
+R2=(180)          //resultant of two forces if larger force is reversed,N
+
+
+
+//calculations
+
+F=sqrt(((R1**2)+(R2**2))/10)
+F1=F
+F2=2*F
+theta=acos(((R1**2)-(F1**2)-(F2**2))/(2*F1*F2))*180/%pi 
+
+printf("\n F1= %0.3f  N",F1)
+printf("\n F2= %0.3f  N",F2)
+printf("\n theta= %0.1f  °",theta)
diff --git a/3862/CH1/EX1.5/Ex1_5.sce b/3862/CH1/EX1.5/Ex1_5.sce
new file mode 100644
index 000000000..aa00cb0a1
--- /dev/null
+++ b/3862/CH1/EX1.5/Ex1_5.sce
@@ -0,0 +1,26 @@
+clear
+//Let //ABC be the triangle of forces drawn to some scale
+//Two forces F1 and F2 are acting at point A
+//angle in degrees '°'
+
+//
+  
+//variabble declaration
+cnv=%pi/180
+
+BAC = 20*cnv                           //Resultant R makes angle with F1    
+ 
+ABC = 130*cnv                    
+
+ACB = 30*cnv   
+
+R =  500                            //resultant force,N
+
+//calculations
+//sinerule
+
+F1=R*sin(ACB)/sin(ABC)
+F2=R*sin(BAC)/sin(ABC)
+
+printf("\n F1= %0.2f  N",F1)
+printf("\n F2= %0.2f  N",F2)
diff --git a/3862/CH1/EX1.6/Ex1_6.sce b/3862/CH1/EX1.6/Ex1_6.sce
new file mode 100644
index 000000000..dcf86caf5
--- /dev/null
+++ b/3862/CH1/EX1.6/Ex1_6.sce
@@ -0,0 +1,19 @@
+clear
+//Let ABC  be the triangle of forces,'theta' be the angle between F1 and F2, and 'alpha' be the angle between resultant and F1 
+
+//
+
+//variable declaration
+cnv= 180/%pi 
+F1=(400)                         //all forces are in newtons,'N'
+F2=(260)
+R=(520)
+
+//calculations
+
+theta=acos(((R**2)-(F1**2)-(F2**2))/(2*F1*F2))*cnv
+
+alpha=asin(F2*sin(theta*%pi/180)/R)*cnv
+
+printf("\n theta= %0.2f  °",theta)
+printf("\n alpha= %0.2f  °",alpha)
diff --git a/3862/CH1/EX1.7/Ex1_7.sce b/3862/CH1/EX1.7/Ex1_7.sce
new file mode 100644
index 000000000..d7190ab81
--- /dev/null
+++ b/3862/CH1/EX1.7/Ex1_7.sce
@@ -0,0 +1,29 @@
+clear
+//The force of 3000 N acts along line AB. Let AB make angle alpha with horizontal.
+
+//
+
+//variable declaration
+F=3000                        //force in newtons,'N'
+BC=80                         //length of crank BC, 'mm'
+AB=200                        //length of connecting rod AB ,'mm'
+theta=60*%pi/180               //angle b/w BC & AC
+
+//calculations
+
+alpha=asin(BC*sin(theta)/200)*180/%pi 
+
+HC=F*cos(alpha*%pi/180)                    //Horizontal component 
+VC= F*sin(alpha*%pi/180)                   //Vertical component 
+
+//Components along and normal to crank
+//The force makes angle alpha + 60  with crank.
+alpha2=alpha+60
+CAC=F*cos(alpha2*%pi/180)             // Component along crank 
+CNC= F*sin(alpha2*%pi/180)             //Component normal to crank 
+
+
+printf("\n horizontal component= %0.1f  N",HC)
+printf("\n Vertical component =  %0.1f  N",VC)
+printf("\n Component along crank = %0.1f  N",CAC)
+printf("\n Component normal to crank= %0.1f  N",CNC)