1 files changed, 24 insertions, 0 deletions
diff --git a/2078/CH4/EX4.4/Example4_4.sce b/2078/CH4/EX4.4/Example4_4.sce
new file mode 100755
index 000000000..c92095c46
--- /dev/null
+++ b/2078/CH4/EX4.4/Example4_4.sce
@@ -0,0 +1,24 @@
+//Exa 4.4
+clc;
+clear;
+close;
+//Given data :
+r=3;//mm
+d11=r;//mm
+d12=2*r;//mm
+d34=2*r;//mm
+d16=2*r;//mm
+d17=2*r;//mm
+d14=4*r;//mm
+d13=sqrt(d14^2-d34^2);//mm
+d15=d13;//mm
+Ds1=(0.7788*d11*d12*d13*d14*d15*d16*d17)^(1/7);//mm
+Ds2=Ds1;//mm
+Ds3=Ds1;//mm
+Ds4=Ds1;//mm
+Ds5=Ds1;//mm
+Ds6=Ds1;//mm
+Ds7=(2*r*0.7788*d11*d12*d13*2*r*2*r)^(1/7);//mm
+Ds=(Ds1*Ds2*Ds3*Ds4*Ds5*Ds6*Ds7)^(1/7);//mm
+disp(Ds,"Geometric mean radius(mm)");
+//Answer in the book is wrong