1 files changed, 35 insertions, 0 deletions
diff --git a/3864/CH7/EX7.1/Ex7_1.sce b/3864/CH7/EX7.1/Ex7_1.sce
new file mode 100644
index 000000000..98d6372db
--- /dev/null
+++ b/3864/CH7/EX7.1/Ex7_1.sce
@@ -0,0 +1,35 @@
+clear
+//
+//
+
+//Initilization of Variables
+
+sigma1=30 //N/mm**2 //Stress in tension
+d=20 //mm //Diameter 
+sigma2=90 //N/mm**2 //Max compressive stress
+sigma3=25 //N/mm**2
+
+//Calculations
+
+//In TEnsion
+
+//Corresponding stress in shear
+P=sigma1*2**-1 //N/mm**2
+
+//Tensile force
+F=%pi*4**-1*d**2*sigma1
+
+//In Compression
+
+//Correspong shear stress
+P2=sigma2*2**-1 //N/mm**2
+
+//Correspong compressive(axial) stress
+p=2*sigma3 //N/mm**2 
+
+//Corresponding Compressive force
+P3=p*%pi*4**-1*d**2 //N
+
+//Result
+printf("\n Failure Loads are: %0.2f  N",F)
+printf("\n                  : %0.2f  N",P3)