1 files changed, 12 insertions, 0 deletions
diff --git a/1586/CH7/EX7.8/EXP7_8.sce b/1586/CH7/EX7.8/EXP7_8.sce
new file mode 100644
index 000000000..0500469dd
--- /dev/null
+++ b/1586/CH7/EX7.8/EXP7_8.sce
@@ -0,0 +1,12 @@
+clc;funcprot(0);//EXAMPLE 7.8
+// Initialisation of Variables
+m=9;.........//Weibull modulus of an ceramic 
+sigma1=250;.......//The flexural strength in MPa
+F1=0.4;.......//probability of failure 
+F2=0.1;.......//Expected the probability of failure
+//CALCULATIONS
+sigma2=exp(log(sigma1)-(log(log(1/(1-F1)))/m ));.....// The characteristic strength of the ceramic
+sigma3=exp((log(log(1/(1-F2)))/m)+log(sigma2));........//Expected level of stress that can be supported in MPa
+disp(sigma2,"The characteristic strength of the ceramic in MPa:")
+disp(sigma3,"Expected level of stress that can be supported in MPa:")
+