1 files changed, 22 insertions, 0 deletions
diff --git a/3763/CH6/EX6.1/Ex6_1.sce b/3763/CH6/EX6.1/Ex6_1.sce
new file mode 100644
index 000000000..2834c3614
--- /dev/null
+++ b/3763/CH6/EX6.1/Ex6_1.sce
@@ -0,0 +1,22 @@
+clear
+//
+//
+//
+
+//Variable declaration
+rho=5*10**16   //resistivity(ohm m)
+l=5*10**-2    //thickness(m)
+b=8*10**-2    //length(m)
+w=3*10**-2    //width(m)
+
+//Calculation
+A=b*w    //area(m**2)
+Rv=rho*l/A    
+X=l+b      //length(m)
+Y=w      //perpendicular(m)
+Rs=Rv*X/Y    
+Ri=Rs*Rv/(Rs+Rv)       //insulation resistance(ohm)
+
+//Result
+printf("\n insulation resistance is %0.2f  *10**18 ohm",Ri/10**18)
+printf("\n answer varies due to rounding off errors")