diff options
Diffstat (limited to '509/CH13')
| -rw-r--r-- | 509/CH13/EX13.1/13_1.sci | 26 | ||||
| -rw-r--r-- | 509/CH13/EX13.2/13_2.sci | 29 |
2 files changed, 55 insertions, 0 deletions
diff --git a/509/CH13/EX13.1/13_1.sci b/509/CH13/EX13.1/13_1.sci new file mode 100644 index 000000000..8c620954e --- /dev/null +++ b/509/CH13/EX13.1/13_1.sci @@ -0,0 +1,26 @@ +// Chapter 13 Example 1//
+clc
+clear
+//air density factor=d,air pressure =b,air temperature=t//
+b=72;// in cm of Hg//
+t=27;// in celsius//
+d0=(3.92*b)/(273+t);
+printf("\n Air density factor = %.4f \n",d0);
+// phase to neutral critical disruptive voltage=vc,distance between conductors=d//
+// surface factor=mv,surface irregularity factor=m,diameter of the conductor=d1//
+d=600;// in cms//
+mv=0.82;
+m=0.90;
+d1=2;// in cms//
+go=21.1;
+r=d1/2;
+vc=r*go*m*d0*log(d/r);
+printf("\n Phase-to-neutral critical disruptive voltage = %.2f kV\n",vc);
+// this voltage is phase voltage to get line voltage multiply by square root 3//
+vcl=vc*sqrt(3);
+printf("\n Line to line critical disruptive voltage = %.2f kV\n",vcl);
+// critical visual disruptive voltage=vv//
+vv=21.1*mv*r*d0*(1+(0.3/sqrt(r*d0)))*log(d/r);
+printf("\n Phase-to-neutral Critical visual disruptive voltage = %.2f kV\n",vv);
+vvl=vv*sqrt(3);
+printf("\n Line to line Critical visual disruptive voltage = %.2f kV\n",vvl);
diff --git a/509/CH13/EX13.2/13_2.sci b/509/CH13/EX13.2/13_2.sci new file mode 100644 index 000000000..311d69384 --- /dev/null +++ b/509/CH13/EX13.2/13_2.sci @@ -0,0 +1,29 @@ +// Chapter 13 Example 22//
+clc
+clear
+// air density factor=d0 ,barometric pressure=b,temperature=t,rating of transmission line=vcc//
+vcc=220; // in kV//
+b=73;// in cm of Hg//
+t=20;// in celsius//
+d0=3.92*b/(273+t);
+printf("\n Air density factor = %.4f \n",d0);
+// phase to neutral critical disruptive voltage=vc,distance between conductors=d//
+// surface irregularity factor=m ,diameter of conductor=d1//
+d=400;// in cms//
+m=0.96;
+d1=2;// in cms//
+r=d1/2;
+go=21.1;
+vc=r*go*m*d0*log(d/r);
+printf("\n Phase-to-neutral critical disruptive voltage = %.2f kV\n",vc);
+vp=vcc/sqrt(3);
+printf("\n Line to line critical disruptive voltage = %.2f kV\n",vp);
+// Since vp > vc cornoa will be present, corona loss is given by//
+f=50;// in Hz//
+pc=241*(10^-5)*((f+25)/d0)*sqrt(r/d)*(vp-vc)^2;
+printf("\n Corona loss is given by %.2f kW/phase/km\n",pc);
+// in rainy weather vc=0.8*vc//
+pc1=241*(10^-5)*((f+25)/d0)*sqrt(r/d)*(vp-0.8*vc)^2;
+printf("\n Corona loss for rainy weather is given by %.2f kW/phase/km\n",pc1);
+
+
|