Added new codeHEADmaster

14 files changed, 305 insertions, 0 deletions

diff --git a/3863/CH4/EX4.1/Ex4_1.sce b/3863/CH4/EX4.1/Ex4_1.sce
new file mode 100644
index 000000000..cc43c5926
--- /dev/null
+++ b/3863/CH4/EX4.1/Ex4_1.sce
@@ -0,0 +1,31 @@
+clear
+//
+
+//Given
+//Variable declaration
+P=60*10**3    //Load in N
+d=4*10        //diameter in mm
+L=5*10**3     //Length of rod in mm
+E=2e5         //Youngs Modulus in N/sq.mm
+
+
+//Calculation
+A=(%pi/4)*d**2           //Area in sq.mm
+V=int(A*L)                   //Volume of rod in cubic.mm
+//case (ii):stress in the rod
+sigma=(P/A)           //stress in N/sq.mm
+
+
+//case (i):stretch in the rod
+x=((sigma/E)*L)       //stretch or extension in mm
+
+
+//case (iii):strain energy absorbed by the rod
+U=((sigma**2/(2*E)*V))*1e-3     //strain energy absorbed by the rod in Nm
+
+
+
+//Result
+printf("\n stress in the rod = %0.3f  N/mm^2",sigma)
+printf("\n stretch in the rod = %0.3f  mm",x)
+printf("\n strain energy absorbed by the rod = %0.3f  N-m",U)
diff --git a/3863/CH4/EX4.10/Ex4_10.sce b/3863/CH4/EX4.10/Ex4_10.sce
new file mode 100644
index 000000000..997208cbe
--- /dev/null
+++ b/3863/CH4/EX4.10/Ex4_10.sce
@@ -0,0 +1,27 @@
+clear
+//
+//Given
+//Variable declaration
+P=100           //Impact load in N
+h=2*10          //Height in mm
+L=1.5*1000      //Length of bar in mm
+A=1.5*100       //Area of bar in sq.mm
+E=2e5           //Modulus of elasticity in N/sq.mm
+
+//Calculation
+V=A*L           //Volume in mm^3
+//case(i):Maximum instantaneous stress induced in the vertical bar
+sigma=((P/A)*(1+(sqrt(1+((2*E*A*h)/(P*L))))))
+
+//case(ii):Maximum instantaneous elongation
+delL=(sigma*L/E)
+
+//case(iii):Strain energy stored in the vertical rod
+U=(sigma**2/(2*E)*V*1e-3)
+
+
+//Result
+printf("\n NOTE:The answer in the book for instantaneous stress is incorrect.The correct answer is,")
+printf("\n Maximum instantaneous stress = %0.3f  N/mm^2",sigma)
+printf("\n Maximum instantaneous elongation = %0.3f  mm",delL)
+printf("\n Strain energy = %0.3f  N-m",U)
diff --git a/3863/CH4/EX4.11/Ex4_11.sce b/3863/CH4/EX4.11/Ex4_11.sce
new file mode 100644
index 000000000..24af8f5fe
--- /dev/null
+++ b/3863/CH4/EX4.11/Ex4_11.sce
@@ -0,0 +1,23 @@
+clear
+//
+//Given
+//Variable declaration
+delL=2.1          //Instantaneous extension in mm
+L=3*10**3         //Length of bar in mm
+A=5*100           //Area of bar in mm
+h=4*10            //Height in mm
+E=2e5             //Modulus of elasticity in N/sq.mm
+
+//Calculation
+V=A*L                           //Volume of bar in mm^3
+
+//case(i):Instantaneous stress induced in the vertical bar
+sigma=int(E*delL/L)
+
+//case(ii):Unknown weight
+P=(((sigma**2)/(2*E)*V)/(h+delL))
+
+
+//Result
+printf("\n Instantaneous stress = %0.3f  N/mm^2",sigma)
+printf("\n Unknown weight = %0.3f  N",P)
diff --git a/3863/CH4/EX4.13/Ex4_13.sce b/3863/CH4/EX4.13/Ex4_13.sce
new file mode 100644
index 000000000..c4540ae77
--- /dev/null
+++ b/3863/CH4/EX4.13/Ex4_13.sce
@@ -0,0 +1,22 @@
+clear
+//
+//Given
+//Variable declaration
+d=12        //Diameter of bar in mm
+delL=3      //Increase in length in mm
+W=8000      //Steady load in N
+P=800       //Falling weight in N
+h=8*10      //Vertical distance in mm
+E=2e5       //Youngs modulus in N/sq.mm
+
+//Calculation
+A=((%pi/4)*d**2)           //Area of bar in sq.mm
+
+L=(E*A*delL/W)                 //Length of the bar in mm
+
+sigma=((P/A)*(1+(sqrt(1+((2*E*A*h)/(P*L))))))
+
+sigma=(sigma)           //Stress produced by the falling weight in N/sq.mm
+
+//Result
+printf("\n Stress produced by the falling weight = %0.3f  N/mm^2",sigma)
diff --git a/3863/CH4/EX4.14/Ex4_14.sce b/3863/CH4/EX4.14/Ex4_14.sce
new file mode 100644
index 000000000..731aa56c8
--- /dev/null
+++ b/3863/CH4/EX4.14/Ex4_14.sce
@@ -0,0 +1,23 @@
+clear
+//
+//Given
+//Variable declaration
+d=12.5           //Diameter of the rod in mm
+delL=3.2         //Increase in length in mm
+W=10*1000        //Steady load in N
+P=700            //Falling load in N
+h=75             //Falling height in mm
+E=2.1e5          //Youngs modulus in N/sq.mm
+
+//Calculation
+A=((%pi/4)*d**2)                                 //Area of rod in sq.mm
+
+L=(E*A*delL/W)                                       //Length of the rod in mm
+
+sigma=((P/A)*(1+(sqrt(1+((2*E*A*h)/(P*L))))))   //Stress produced by the falling weight in N/mm^2
+
+
+//Result
+printf("\n NOTE:The given answer for stress is wrong.The correct answer is,")
+printf("\n Stress = %.2f N/mm^2",sigma)
+
diff --git a/3863/CH4/EX4.15/Ex4_15.sce b/3863/CH4/EX4.15/Ex4_15.sce
new file mode 100644
index 000000000..28208b0b9
--- /dev/null
+++ b/3863/CH4/EX4.15/Ex4_15.sce
@@ -0,0 +1,30 @@
+clear
+//
+
+//Given
+//Variable declaration
+L=1.82*1000      //Length of rod in mm
+h1=30            //Height through which load falls in mm
+h2=47.5          //Fallen height in mm
+sigma=157        //Maximum stress induced in N/sq.mm
+E=2.1e5          //Youngs modulus in N/sq.mm
+
+//Calculation
+U=sigma**2/(2*E)      //Strain energy stored in the rod in N-m
+delL=sigma*L/E        //Extension of the rod in mm
+Tot_dist=h1+delL      //Total distance in mm
+
+//case(i):Stress induced in the rod if the load is applied gradually
+sigma1=((U/Tot_dist)*L)
+
+
+//case(ii):Maximum stress if the load had fallen from a height of 47.5 mm
+sigma2=((sigma1)*(1+(sqrt(1+((2*E*h2)/(sigma1*L))))))
+
+
+//Result
+printf("\n Stress induced in the rod = %.1f N/mm^2",sigma1)
+
+printf("\n NOTE:The given answer for stress(2nd case) in the book is wrong.The correct answer is,")
+printf("\n Maximum stress if the load has fallen = %.2f N/mm^2",sigma2)
+
diff --git a/3863/CH4/EX4.17/Ex4_17.sce b/3863/CH4/EX4.17/Ex4_17.sce
new file mode 100644
index 000000000..53ec41545
--- /dev/null
+++ b/3863/CH4/EX4.17/Ex4_17.sce
@@ -0,0 +1,27 @@
+clear
+//
+
+//Given
+//Variable declaration
+L=4*10**3     //Length of bar in mm
+A=2000        //Area of bar in sq.mm
+P1=3000       //Falling weight in N(for 1st case)
+h1=20*10      //Height in mm(for 1st case)
+P2=30*1000    //Falling weight in N(for 2nd case)
+h2=2*10       //Height in mm(for 2nd case)
+E=2e5         //Youngs modulus in N/sq.mm
+
+//Calculation
+V=A*L             //Volume of bar in mm^3
+
+//case(i):Maximum stress when a 3000N weight falls through a height of 20cm
+sigma1=(((sqrt((2*E*P1*h1)/(A*L)))))
+
+
+//case(ii):Maximum stress when a 30kN weight falls through a height of 2cm
+sigma2=((P2/A)*(1+(sqrt(1+((2*E*A*h2)/(P2*L))))))
+
+
+//Result
+printf("\n Maximum stress induced(when a weight of 3000N falls through a height of 20cm)= %0.3f  N/mm^2",sigma1)
+printf("\n Maximum stress induced(when a weight of 30kN falls through a height of 2cm)= %0.3f  N/mm^2",sigma2)
diff --git a/3863/CH4/EX4.18/Ex4_18.sce b/3863/CH4/EX4.18/Ex4_18.sce
new file mode 100644
index 000000000..30207c5e8
--- /dev/null
+++ b/3863/CH4/EX4.18/Ex4_18.sce
@@ -0,0 +1,21 @@
+clear
+//
+//
+
+//Given
+//Variable declaration
+A=6.25*100     //Area in sq.mm
+W=10*10**3     //Load in N
+V=(40/60)      //Velocity in m/s
+L=10000        //Length of chain unwound in mm
+E=2.1e5        //Youngs modulus in N/sq.mm
+g=9.81         //acceleration due to gravity
+
+//Calculation
+K_E=(((W/g)*(V**2))/2)*1e3          //K.E of the crane in N mm
+
+sigma=(sqrt(K_E*E*2/(A*L)))    //Stress induced in the chain in N/sq.mm
+
+
+//Result
+printf("\n Stress induced in the chain due to sudden stoppage = %0.3f  N/mm^2",sigma)
diff --git a/3863/CH4/EX4.19/Ex4_19.sce b/3863/CH4/EX4.19/Ex4_19.sce
new file mode 100644
index 000000000..3ce7a930f
--- /dev/null
+++ b/3863/CH4/EX4.19/Ex4_19.sce
@@ -0,0 +1,19 @@
+clear
+//
+
+//Given
+//Variable declaration
+W=60*10**3      //Weight in N
+V=1             //Velocity in m/s
+L=15*10**3      //Free length in mm
+A=25*100        //Area in sq.mm
+E=2e5           //Youngs modulus in N/sq.mm
+g=9.81          //acceleration due to gravity
+
+//Calculation
+K_E=((W/g)*(V**2))/2*1e3                  //Kinetic Energy of the cage in N mm
+sigma=(sqrt(K_E*E*2/(A*L)))   //Maximum stress in N/sq.mm
+
+
+//Result
+printf("\n Maximum stress produced in the rope = %0.3f  N/mm^2",sigma)
diff --git a/3863/CH4/EX4.20/Ex4_20.sce b/3863/CH4/EX4.20/Ex4_20.sce
new file mode 100644
index 000000000..3c55aaa15
--- /dev/null
+++ b/3863/CH4/EX4.20/Ex4_20.sce
@@ -0,0 +1,11 @@
+clear
+//Given
+//Variable declaration
+tau=50       //Shear stress in N/sq.mm
+C=8e4        //Modulus of rigidity in N/sq.mm
+
+//Calculation
+ste=(tau**2)/(2*C)    //Strain energy per unit volume in N/sq.mm
+
+//Result
+printf("\n Strain energy per unit volume = %0.3f  N/mm^2",ste)
diff --git a/3863/CH4/EX4.3/Ex4_3.sce b/3863/CH4/EX4.3/Ex4_3.sce
new file mode 100644
index 000000000..2ed022d16
--- /dev/null
+++ b/3863/CH4/EX4.3/Ex4_3.sce
@@ -0,0 +1,15 @@
+clear
+//Given
+//Variable declaration
+A=10*10**2         //Area of bar in sq.mm
+L=3*10**3          //Length of bar in mm
+x=1.5              //Extension due to suddenly applied load in mm
+E=2e5              //Youngs Modulus in N/sq.mm
+
+//Calculation
+sigma=int(x*E/L)            //Instantaneous stress due to sudden load in N/sq.mm
+P=int((sigma*A)/2*1e-3)     //Suddenly applied load in kN
+
+//Result
+printf("\n Instantaneous stress produced by a sudden load = %0.3f  N/mm^2",sigma)
+printf("\n Suddenly applied load = %0.3f  kN",P)
diff --git a/3863/CH4/EX4.4/Ex4_4.sce b/3863/CH4/EX4.4/Ex4_4.sce
new file mode 100644
index 000000000..44a89a633
--- /dev/null
+++ b/3863/CH4/EX4.4/Ex4_4.sce
@@ -0,0 +1,19 @@
+clear
+//
+
+//Given
+//Variable declaration
+L=2*10**3            //Length in mm
+d=50                 //Diameter in mm
+P=100*10**3          //Suddenly applied load in N
+E=200e3              //Youngs Modulus in N/sq.mm
+
+//Calculation
+A=(%pi/4)*d**2        //Area in sq.mm
+sigma=(2*P/A)      //Instantaneous stress induced in N/sq.mm
+
+dL=(sigma*L)/E            //Elongation in mm
+
+//Result
+printf("\n Instantaneous stress induced = %0.3f  N/mm^2",sigma)
+printf("\n Instantaneous elongation = %0.3f  mm",dL)
diff --git a/3863/CH4/EX4.5/Ex4_5.sce b/3863/CH4/EX4.5/Ex4_5.sce
new file mode 100644
index 000000000..21736ce34
--- /dev/null
+++ b/3863/CH4/EX4.5/Ex4_5.sce
@@ -0,0 +1,19 @@
+clear
+//Given
+//Variable declaration
+A=700              //Area in sq.mm
+L=1.5*10**3        //Length of a metal bar in mm
+sigma=160          //Stress at elastic limit in N/sq.mm
+E=2e5              //Youngs Modulus in N/sq.mm
+
+
+//Calculation
+V=A*L                           //Volume of bar in sq.mm
+Pr=(sigma**2/(2*E)*V)*1e-3      //Proof resilience in N-m
+P=int(sigma*A/2*1e-3)           //Suddenly applied load in kN
+P1=int(sigma*A*1e-3)            //gradually applied load in kN
+
+//Result
+printf("\n Proof resilience = %0.3f  N-m",Pr)
+printf("\n Suddenly applied load = %0.3f  kN",P)
+printf("\n Gradually applied load = %0.3f  kN",P1)
diff --git a/3863/CH4/EX4.9/Ex4_9.sce b/3863/CH4/EX4.9/Ex4_9.sce
new file mode 100644
index 000000000..0e07d3505
--- /dev/null
+++ b/3863/CH4/EX4.9/Ex4_9.sce
@@ -0,0 +1,18 @@
+clear
+//
+
+//Given
+//Variable declaration
+P=10*10**3             //Falling weight in N
+h=30                   //Falling height in mm
+L=4*10**3              //Length of bar in mm
+A=1000                 //Area of bar in sq.m
+E=2.1e5                //Youngs modulus in N/sq.mm
+
+//Calculation
+sigma=((P/A)*(1+(sqrt(1+((2*E*A*h)/(P*L))))))
+delL=(sigma*L/E)
+
+
+//Result
+printf("\n Instantaneous elongation due to falling weight = %0.3f  mm",delL)