1 files changed, 16 insertions, 0 deletions
diff --git a/3651/CH5/EX5.1/1.sce b/3651/CH5/EX5.1/1.sce
new file mode 100644
index 000000000..af657fccb
--- /dev/null
+++ b/3651/CH5/EX5.1/1.sce
@@ -0,0 +1,16 @@
+//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)			
+
+printf('insulation resistance is %0.3f *10**18 ohm',(Ri/10**18))
+printf('answer varies due to rounding off errors')
+\ No newline at end of file