1 files changed, 14 insertions, 0 deletions
diff --git a/608/CH40/EX40.04/40_04.sce b/608/CH40/EX40.04/40_04.sce
new file mode 100755
index 000000000..d35af8704
--- /dev/null
+++ b/608/CH40/EX40.04/40_04.sce
@@ -0,0 +1,14 @@
+//Problem 40.04: A single-core concentric cable has a capacitance of 80 pF per metre length. The relative permittivity of the dielectric is 3.5 and the core diameter is 8.0 mm. Determine the internal diameter of the sheath.
+
+//initializing the variables:
+C = 80E-12; // in Farads
+e0 = 8.85E-12; 
+er = 3.5;
+d0 = 0.008; // in m
+
+//calculation: 
+//internal diameter
+di = d0*(%e^(2*%pi*e0*er/C))
+
+printf("\n\n Result \n\n")
+printf("\n internal diameter is %.5f m.",di)
+\ No newline at end of file