1 files changed, 28 insertions, 0 deletions
diff --git a/3862/CH11/EX11.6/Ex11_6.sce b/3862/CH11/EX11.6/Ex11_6.sce
new file mode 100644
index 000000000..04a7891f6
--- /dev/null
+++ b/3862/CH11/EX11.6/Ex11_6.sce
@@ -0,0 +1,28 @@
+clear
+//
+//variable declaration
+//Let the principal plane make anticlockwise angle theta with the plane of px with y-axis. Then
+
+px=(-100)                    //N/mm^2
+py=(-75)                    //N/mm^2
+q=(-50)                     //N/mm^2
+
+
+p1=(px+py)/2+sqrt((((px-py)/2)**2)+(q**2))
+
+printf("\n p1= %0.2f  N/mm^2",p1)
+
+p2=(px+py)/2-sqrt((((px-py)/2)**2)+(q**2))
+
+printf("\n p2= %0.2f  N/mm^2",p2)
+
+qmax=sqrt((((px-py)/2**2))+(q**2))
+
+printf("\n qmax= %0.2f  N/mm^2",qmax)
+
+//let theta be the inclination of principal stress to the plane of px.
+
+
+theta1=(atan((2*q)/(px-py))*180)/(%pi*2)                        
+theta2=90+theta1
+printf("\n theta= %0.2f ° and  %0.2f °",theta1,theta2)