Added new codeHEADmaster

2 files changed, 44 insertions, 0 deletions

diff --git a/3863/CH8/EX8.12/Ex8_12.sce b/3863/CH8/EX8.12/Ex8_12.sce
new file mode 100644
index 000000000..43cebdacd
--- /dev/null
+++ b/3863/CH8/EX8.12/Ex8_12.sce
@@ -0,0 +1,18 @@
+clear
+//
+//
+
+//Given
+//Variable declaration
+F=50*10**3              //Shear force in N
+b=250                   //Base width in mm
+h=200                   //height in mm
+
+//Calculation
+tau_max=int((3*F)/(b*h))     //Maximum shear stress in N/sq.mm
+tau=((8*F)/(3*b*h))   //Shear stress at N.A. in N/sq.mm
+
+
+//Result
+printf("\n Maximum shear stress = %0.3f  N/mm^2",tau_max)
+printf("\n Shear stress at N.A. = %0.3f  N/mm^2",tau)
diff --git a/3863/CH8/EX8.6/Ex8_6.sce b/3863/CH8/EX8.6/Ex8_6.sce
new file mode 100644
index 000000000..0af86c38f
--- /dev/null
+++ b/3863/CH8/EX8.6/Ex8_6.sce
@@ -0,0 +1,26 @@
+clear
+//
+//
+//Given
+//Variable declaration
+D=100           //Diameter in mm
+R=D/2           //Radius in mm
+F=5*10**3       //Shear force in N
+y=40            //given distance from N.A. in mm
+
+//Calculation
+//case(i):Average shear stress
+A=%pi*R**2
+tau_avg=(F/A)
+
+//case(ii):Maximum shear stress for a circular section
+tau_max=(4/3*tau_avg)
+
+//case(iii):Shear stress at a distance 40mm from N.A.
+I=%pi/64*D**4
+tau=((F/(3*I)*(R**2-y**2)))
+
+//Result
+printf("\n Average shear stress = %0.3f  N/mm^2",tau_avg)
+printf("\n Maximum shear stress = %0.3f  N/mm^2",tau_max)
+printf("\n Shear stress at a distance 40mm from N.A. = %0.3f  N/mm^2",tau)