2 files changed, 53 insertions, 0 deletions
diff --git a/3863/CH24/EX24.10/Ex24_10.sce b/3863/CH24/EX24.10/Ex24_10.sce
new file mode 100644
index 000000000..494d7c28e
--- /dev/null
+++ b/3863/CH24/EX24.10/Ex24_10.sce
@@ -0,0 +1,26 @@
+clear
+//
+//
+
+//Given
+//Variable declaration
+P=9*1000                   //Axial pull in N
+F=4.5*1000                 //Shear force in N
+sigmat_star=225            //Elastic limit in tension in N/sq.mm
+Sf=3                       //Factor of safety
+mu=0.3                     //Poisson's ratio
+sigma3=0                   //third principle stress
+
+//Calculation
+sigmat=sigmat_star/Sf
+sigma=(P/(%pi/4))
+tau=(F/(%pi/4))
+sigma1=((tau)+int((sqrt((sigma/2)**2+tau**2))))
+
+sigma2=((tau)-int((sqrt((sigma/2)**2+tau**2))))
+
+d=(((((sigma1-sigma2)**2+(sigma2-sigma3)**2+(sigma3-sigma1)**2)/(2*(sigmat**2)))**(1/4)))
+
+
+//Result
+printf("\n Diameter of the bolt = %0.3f  mm",d)
diff --git a/3863/CH24/EX24.12/Ex24_12.sce b/3863/CH24/EX24.12/Ex24_12.sce
new file mode 100644
index 000000000..933c2f32f
--- /dev/null
+++ b/3863/CH24/EX24.12/Ex24_12.sce
@@ -0,0 +1,27 @@
+clear
+//
+//
+//Given
+//Variable declaration
+d=1.2               //Diameter in m
+p=1.5               //Internal pressure in MN/sq.m
+sigmat_star=200     //Yield stress in MN/sq.m
+Sf=3                //Factor of safety
+
+//Calculation
+sigmat=sigmat_star/Sf    //Permissible stress in simple tension in MN/sq.m
+
+//case(i):Thickness on the basis of Maximum principal stress theory
+t1=((p*d)/2)/sigmat*1e3
+
+//case(ii):Thickness on the basis of Maximum shear stress theory
+t2=((p*d)/2)/sigmat*1e3
+
+//case(iii):Thickness on the basis of Maximum shear strain energy theory
+t3=(sqrt((((p*d/2)**2)+((p*d/4)**2)-((p*d/2)*(p*d/4)))/(sigmat**2)))
+
+
+//Result
+printf("\n Thickness of plate on the basis of maximum principal stress theory = %0.3f mm  ",t1)
+printf("\n Thickness of plate on the basis of maximum shear stress theory = %0.3f mm ",t2)
+printf("\n Thickness of plate on the basis of maximum shear strain energy theory = %0.3f mm  ",t3)