1 files changed, 30 insertions, 0 deletions
diff --git a/1367/CH8/EX8.3/8_3.sce b/1367/CH8/EX8.3/8_3.sce
new file mode 100755
index 000000000..f5d7a31cb
--- /dev/null
+++ b/1367/CH8/EX8.3/8_3.sce
@@ -0,0 +1,30 @@
+//Find Rupture Energy Modulous Of Rupture and Notch Imapct Strength
+//Ex:8.3
+clc;
+clear;
+close;
+l=0.1;//frictinal and windage losses in kgf-m
+dr=5.9;//dial reading in kgf-m
+u=dr-l;//in kgf-m
+disp(u,"Rupture Energy (in kgf-m) = ");
+t=10;//in mm
+d=t/5;//depth of V-notch in mm
+te=t-d;//effective thickness in mm
+ve=75*10*te;//effective volume in cu. mm
+vem=ve*10^-9;//in cu. m
+mr=u/vem;//in kgf/sqm
+disp(mr,"Modulous Of Rupture (in kgf/sqm) = ");
+ae=t*te;//effective area of cross section in sqmm
+aem=ae*10^-6;//in sqm
+is=u/aem;//in kg/m
+disp(is,"Notch Imapct Strength (in kg/m) = ");
+ui=30;//in kgf-m
+a=160;//angle in degrees
+r=0.8;//swing radius in m
+uf=ui-u;//in kgf-m
+w=19.33;//weight of hammer in kgf-m
+hf=uf/w;//in m
+disp(hf,"Height risen by Hammer (in m) = ");
+//hf=r*(1-cos(b))
+b=acosd((r-hf)/r);//in degrees
+disp(b,"Angle after Breaking the specimen (in degress) = ");
+\ No newline at end of file