4 files changed, 49 insertions, 0 deletions
diff --git a/1067/CH33/EX33.01/33_01.sce b/1067/CH33/EX33.01/33_01.sce
new file mode 100755
index 000000000..197bec6fc
--- /dev/null
+++ b/1067/CH33/EX33.01/33_01.sce
@@ -0,0 +1,12 @@
+clear;
+clc;
+v=11e3/sqrt(3);
+v=round(v);
+r=5e6;
+per=20;
+i=r/(3*v);
+i=round(i);
+i0=i*25/100;
+R=per*v/(i0*1000);
+R=round(R*100)/100;
+printf("the resistance to be added=%fohms",R);
diff --git a/1067/CH33/EX33.02/33_02.sce b/1067/CH33/EX33.02/33_02.sce
new file mode 100755
index 000000000..f75778490
--- /dev/null
+++ b/1067/CH33/EX33.02/33_02.sce
@@ -0,0 +1,11 @@
+clear;
+clc;
+v=10e3/sqrt(3);
+R=10;
+i=1;
+ct=1000/5;
+ip=i*ct;
+per=R*ip*100/v;
+p=10;
+res=p/100*v/ip;
+mprintf("the percentage of unprotected winding=%fpercent\nResistance for 90percent winding protection=%fohms",100-(per),res);
diff --git a/1067/CH33/EX33.03/33_03.sce b/1067/CH33/EX33.03/33_03.sce
new file mode 100755
index 000000000..b05c0104e
--- /dev/null
+++ b/1067/CH33/EX33.03/33_03.sce
@@ -0,0 +1,13 @@
+clear;
+clc;
+per=.2;
+r=10e6;
+R=7;
+v=11e3;
+i=r/(sqrt(3)*v);
+i=round(i);
+i0=per*i;
+v=v/sqrt(3);
+p=R*i0/v*100;
+p=round(p*10)/10;
+printf("percentage of unprotected winding for earth fault=%fpercent",p);
diff --git a/1067/CH33/EX33.05/33_05.sce b/1067/CH33/EX33.05/33_05.sce
new file mode 100755
index 000000000..b4d62a375
--- /dev/null
+++ b/1067/CH33/EX33.05/33_05.sce
@@ -0,0 +1,13 @@
+clear;
+clc;
+i=200;
+c=.1;
+v=11e3/sqrt(3);
+per=.15;
+x=per*v/(i);
+ru=c*x;
+vi=v*c;
+y=i\vi;
+r=sqrt((y^2)-(ru^2));
+r=round(r*100)/100;
+printf("the neutral earthing resistance=%fohms",r);