1 files changed, 17 insertions, 0 deletions
diff --git a/3753/CH6/EX6.8/Ex6_8.sce b/3753/CH6/EX6.8/Ex6_8.sce
new file mode 100644
index 000000000..9ec548571
--- /dev/null
+++ b/3753/CH6/EX6.8/Ex6_8.sce
@@ -0,0 +1,17 @@
+//Example number 6.8, Page number 6.48
+
+clc;clear;close
+
+// Variable declaration
+r=poly([0],'r')
+
+// Calculation
+a1=4*r/sqrt(3); // in m
+R1=(a1/2)-r;           // radius of largest sphere
+a2=4*r/sqrt(2); //in m
+R2=(a2/2)-r;       // maximum radius of sphere
+
+
+// Result
+disp(R1,"radius of largest sphere is")
+disp(R2,"maximum radius of sphere is")