summaryrefslogtreecommitdiff
path: root/1802/CH5
diff options
context:
space:
mode:
Diffstat (limited to '1802/CH5')
-rwxr-xr-x1802/CH5/EX5.1/Exa5_1.sce23
-rwxr-xr-x1802/CH5/EX5.10/Exa5_10.sce23
-rwxr-xr-x1802/CH5/EX5.11/Exa5_11.sce24
-rwxr-xr-x1802/CH5/EX5.12/Exa5_12.sce20
-rwxr-xr-x1802/CH5/EX5.13/Exa5_13.sce22
-rwxr-xr-x1802/CH5/EX5.2/Exa5_2.sce16
-rwxr-xr-x1802/CH5/EX5.3/Exa5_3.sce24
-rwxr-xr-x1802/CH5/EX5.4/Exa5_4.sce19
-rwxr-xr-x1802/CH5/EX5.5/Exa5_5.sce32
-rwxr-xr-x1802/CH5/EX5.6/Exa5_6.sce14
-rwxr-xr-x1802/CH5/EX5.7/Exa5_7.sce17
-rwxr-xr-x1802/CH5/EX5.8/Exa5_8.sce30
-rwxr-xr-x1802/CH5/EX5.9/Exa5_9.sce13
13 files changed, 277 insertions, 0 deletions
diff --git a/1802/CH5/EX5.1/Exa5_1.sce b/1802/CH5/EX5.1/Exa5_1.sce
new file mode 100755
index 000000000..fa6293645
--- /dev/null
+++ b/1802/CH5/EX5.1/Exa5_1.sce
@@ -0,0 +1,23 @@
+//Exa 5.1
+clc;
+clear;
+close;
+//Given Data :
+format('v',6);
+Load=100;//in MW
+V=380;//in KV
+d=100;//in km
+rho=0.045;//in ohm/cm^2/km
+w=0.01;//in kg/cm^3
+Eff=90;//in %
+IL=Load*10^6/(sqrt(3)*V*10^3);//in Ampere
+P_loss=Load*(100-Eff)/100;//in MW
+P_loss=P_loss*10^6;//in Watt
+P_loss=P_loss/3;//in watt/conductor
+R_con=P_loss/IL^2;//in ohm/conductor
+//R_con=R_con/d;//in ohm/conductor/km
+a=rho*d/R_con;//in cm^2
+vol=a*d;//in cm^3
+W_cu=vol*w;//in Kg
+disp(W_cu*100*10^3*3,"Weight of Cu for 3 onductors of 100 km length(in Kg) :");
+//Note : answer in the book is not accurate. \ No newline at end of file
diff --git a/1802/CH5/EX5.10/Exa5_10.sce b/1802/CH5/EX5.10/Exa5_10.sce
new file mode 100755
index 000000000..49495ed0d
--- /dev/null
+++ b/1802/CH5/EX5.10/Exa5_10.sce
@@ -0,0 +1,23 @@
+//Exa 5.10
+clc;
+clear;
+close;
+//Given Data :
+format('v',8);
+Pt=4000*10^3;//in watt(power to be transmitted)
+VR=11000;//in volt
+cos_fir=0.9;//unitless
+R=1;//in ohm
+X=2.5;//in ohm
+I=Pt/VR;//in Ampere
+Vs=VR+I*R*cos_fir+I*X*sqrt(1-cos_fir^2);//in volt
+disp(Vs,"Sending end voltage(in volts) : ");
+Reg=(Vs-VR)*100/VR;//in %
+disp(Reg,"% Regulation : ");
+cos_fis=(VR*cos_fir+I*R)/Vs;//unitless
+disp(cos_fis,"Sending end pf(lag) : ");
+losses=I^2*R;//in watts
+Pr=Pt*cos_fir;//in wats(Receiving end power)
+Psend=Pr+losses;//in watts
+Eff=Pr*100/Psend;//unitless
+disp(Eff,"Transmission efficiency (in %) :"); \ No newline at end of file
diff --git a/1802/CH5/EX5.11/Exa5_11.sce b/1802/CH5/EX5.11/Exa5_11.sce
new file mode 100755
index 000000000..fdc297fe2
--- /dev/null
+++ b/1802/CH5/EX5.11/Exa5_11.sce
@@ -0,0 +1,24 @@
+//Exa 5.11
+clc;
+clear;
+close;
+//Given Data :
+format('v',8);
+L=20;//in Km(length of the line)
+Pdev=3000*10^3;//in watt(power delivered)
+cos_fir=0.8;//unitless
+VR=11*1000;//in volt
+R=0.15*L;//in ohm
+X=0.4*L;//in ohm
+I=Pdev/VR;//in Ampere
+Vs=VR+I*R*cos_fir-I*X*sqrt(1-cos_fir^2);//in volt
+disp(Vs,"Sending end voltage(in volts) : ");
+Reg=(VR-Vs)*100/VR;//in %
+disp(Reg,"% Regulation : ");
+cos_fis=(VR*cos_fir+I*R)/Vs;//unitless
+disp(cos_fis,"Sending end pf(lag) : ");
+losses=I^2*R;//in watts
+Pr=Pdev*cos_fir;//in wats(Receiving end power)
+Psend=Pr+losses;//in watts
+Eff=Pr*100/Psend;//unitless
+disp(Eff,"Transmission efficiency (in %) :"); \ No newline at end of file
diff --git a/1802/CH5/EX5.12/Exa5_12.sce b/1802/CH5/EX5.12/Exa5_12.sce
new file mode 100755
index 000000000..6c7651f41
--- /dev/null
+++ b/1802/CH5/EX5.12/Exa5_12.sce
@@ -0,0 +1,20 @@
+//Exa 5.12
+clc;
+clear;
+close;
+//Given Data :
+format('v',8);
+R=2;//in ohm
+X=3;//in ohm
+VR=10*1000;//in volt
+P=1000*10^3;//in watt(power delivered)
+cos_fir=0.8;//unitless
+I=P/(VR*cos_fir);//in Ampere
+Vs=sqrt((VR*cos_fir+I*R)^2+(VR*sqrt(1-cos_fir^2)+I*X)^2);//in volt
+Reg=(Vs-VR)*100/VR;//in %
+disp(Reg,"% Regulation : ");
+losses=I^2*R;//in watts
+Pr=P*cos_fir;//in wats(Receiving end power)
+Psend=Pr+losses;//in watts
+Eff=Pr*100/Psend;//unitless
+disp(Eff,"Transmission efficiency (in %) :"); \ No newline at end of file
diff --git a/1802/CH5/EX5.13/Exa5_13.sce b/1802/CH5/EX5.13/Exa5_13.sce
new file mode 100755
index 000000000..922b0ca73
--- /dev/null
+++ b/1802/CH5/EX5.13/Exa5_13.sce
@@ -0,0 +1,22 @@
+//Exa 5.12
+clc;
+clear;
+close;
+//Given Data :
+format('v',8);
+R=1.5;//in ohm
+X=4;//in ohm
+VR=11*1000;//in volt
+VRphase=VR/sqrt(3);//in volt/phase
+P=6000;//in KVA(power delivered)
+cos_fir=0.8;//unitless
+I=P*1000/(3*VRphase);//in Ampere
+Vs=VRphase+cos_fir*I*R+sqrt(1-cos_fir^2)*I*X;//in volt
+Vs=Vs*sqrt(3);//in volt(not phase)
+Reg=(Vs-VR)*100/VR;//in %
+disp(Reg,"% Regulation : ");
+losses=3*I^2*R/1000;//in Kw
+Pr=P*cos_fir;//in wats(Receiving end power)
+Psend=Pr+losses;//in watts
+Eff=Pr*100/Psend;//unitless
+disp(Eff,"Transmission efficiency (in %) :"); \ No newline at end of file
diff --git a/1802/CH5/EX5.2/Exa5_2.sce b/1802/CH5/EX5.2/Exa5_2.sce
new file mode 100755
index 000000000..7ee4eef9d
--- /dev/null
+++ b/1802/CH5/EX5.2/Exa5_2.sce
@@ -0,0 +1,16 @@
+//Exa 5.2
+clc;
+clear;
+close;
+//Given Data :
+format('v',7);
+R=2;//in ohm
+X=6;//in ohm
+P=10000*10^3;//in watts
+cos_fir=0.8;//unitless
+VR=22*10^3;//in volt
+I=P/(sqrt(3)*VR*cos_fir);//in Ampere
+VR_phase=VR/sqrt(3);//in volt
+Vs=sqrt((VR_phase*cos_fir+I*R)^2+(VR_phase*sqrt(1-cos_fir^2)+I*X)^2);
+disp(Vs,"Sending end voltage Vs(phase) :");
+disp(((Vs-VR_phase)/VR_phase)*100,"% Regulation : "); \ No newline at end of file
diff --git a/1802/CH5/EX5.3/Exa5_3.sce b/1802/CH5/EX5.3/Exa5_3.sce
new file mode 100755
index 000000000..0ff948fde
--- /dev/null
+++ b/1802/CH5/EX5.3/Exa5_3.sce
@@ -0,0 +1,24 @@
+//Exa 5.3
+clc;
+clear;
+close;
+//Given Data :
+format('v',7);
+l=10*10^3;//in meter
+P_del=4000;//in KVA
+cos_fir=0.9;//unitless
+VL=11*10^3;//in volt
+R=0.2*10;//in ohm/phase/10km
+X=0.3*10;//in ohm/phase/10km
+I=P_del*10^3/(sqrt(3)*VL);//in Ampere
+VR_phase=VL/sqrt(3);//in volt
+Vs=sqrt((VR_phase*cos_fir+I*R)^2+(VR_phase*sqrt(1-cos_fir^2)+I*X)^2);
+disp(Vs*sqrt(3)/1000,"Sending end voltage Vs(line in KV) :");
+disp(((Vs-VR_phase)/VR_phase)*100,"% Regulation : ");
+Losses3line=3*I^2*R;//in watt
+P_rec=P_del*cos_fir;//in KW
+Pin=P_rec+Losses3line/1000;//in KW
+ETA=P_rec/Pin;//unitless
+disp(ETA*100,"Transmission Efficiency(in %) :")
+cos_fis=(VR_phase*cos_fir+I*R)/Vs;//unitless
+disp(cos_fis,"Sending end PF(lag) :"); \ No newline at end of file
diff --git a/1802/CH5/EX5.4/Exa5_4.sce b/1802/CH5/EX5.4/Exa5_4.sce
new file mode 100755
index 000000000..1878e72d1
--- /dev/null
+++ b/1802/CH5/EX5.4/Exa5_4.sce
@@ -0,0 +1,19 @@
+//Exa 5.4
+clc;
+clear;
+close;
+//Given Data :
+format('v',7);
+l=15*10^3;//in meter
+Pt=10000;//in KW
+cos_fir=0.8;//unitless
+VL=33*10^3;//in volt
+R=0.2*15;//in ohm/phase/15km
+X=0.4*15;//in ohm/phase/15km
+I=Pt*10^3/(sqrt(3)*VL*cos_fir);//in Ampere
+VR_phase=VL/sqrt(3);//in volt
+Vs=sqrt((VR_phase*cos_fir+I*R)^2+(VR_phase*sqrt(1-cos_fir^2)-I*X)^2);
+disp(Vs*sqrt(3)/1000,"Sending end voltage Vs(line) in KV :");
+cos_fis=(VR_phase*cos_fir+I*R)/Vs;//unitless
+disp(cos_fis,"Sending end PF(leading) :");
+disp(((Vs-VR_phase)/VR_phase)*100,"% Regulation : "); \ No newline at end of file
diff --git a/1802/CH5/EX5.5/Exa5_5.sce b/1802/CH5/EX5.5/Exa5_5.sce
new file mode 100755
index 000000000..bd80d23e0
--- /dev/null
+++ b/1802/CH5/EX5.5/Exa5_5.sce
@@ -0,0 +1,32 @@
+//Exa 5.5
+clc;
+clear;
+close;
+//Given Data :
+format('v',9);
+Vs_line=33*10^3;//in volt
+cos_fir=0.8;//unitless
+P_KVA=6000;//in KVA
+P_KW=P_KVA*cos_fir;//in KW
+cos_fir=0.8;//unitless
+impedence=2+%i*6;//in ohm
+R=real(impedence);//in ohm
+X=imag(impedence);//in ohm
+Vs_phase=Vs_line/sqrt(3);//in volt
+disp("Sending end Voltage, Vs(in Volt) = VR+I*R*cos_fir+I*X*sin_fir ");
+disp("It gives polynomial p = [1 -Vs_phase P_KVA*10^3*R*cos_fir/sqrt(3)+P_KVA*10^3*X*sin_fir/sqrt(3)].")
+sin_fir=sqrt(1-cos_fir^2);
+p=[1 -Vs_phase P_KVA*10^3*R*cos_fir/sqrt(3)+P_KVA*10^3*X*sin_fir/sqrt(3)];
+VR=roots(p);
+VR=VR(1);//(root calculated using -ve sign is discarded in shreedharacharya method)
+VR_line=VR*sqrt(3);//in volt
+disp(VR_line/1000,"Line voltage at receiving end(in KV) :");
+Regulation=((Vs_line-VR_line)/VR_line)*100;//unitless
+disp(Regulation,"% Regulation : ");
+I=P_KVA*10^3/(sqrt(3)*VR_line)
+//I=P*10^3/(sqrt(3)*VR_line);//in Ampere
+TotalLoss=3*I^2*R;//in watt
+Pout=P_KVA*cos_fir;//in KW
+Pin=Pout+TotalLoss/1000;//in KW
+ETA=Pout/Pin;//unitless
+disp(ETA*100,"Transmission Efficiency(in %) :");
diff --git a/1802/CH5/EX5.6/Exa5_6.sce b/1802/CH5/EX5.6/Exa5_6.sce
new file mode 100755
index 000000000..c326ced20
--- /dev/null
+++ b/1802/CH5/EX5.6/Exa5_6.sce
@@ -0,0 +1,14 @@
+//Exa 5.6
+clc;
+clear;
+close;
+//Given Data :
+format('v',6);
+P_del=10000*10^3;//in Watts
+cos_fir=0.8;//unitless
+R=0.95;//in ohm/km
+VR=132*10^3;//in volt
+IL=P_del/(sqrt(3)*VR*cos_fir);//in Ampere
+//TotalLosses=3*I^2*R and should be equal to (7.5/100)*P_del;//in watt
+l=(7.5/100)*P_del/(3*IL^2*R);//in km
+disp(l,"Distance (in km) :"); \ No newline at end of file
diff --git a/1802/CH5/EX5.7/Exa5_7.sce b/1802/CH5/EX5.7/Exa5_7.sce
new file mode 100755
index 000000000..285bf0c4f
--- /dev/null
+++ b/1802/CH5/EX5.7/Exa5_7.sce
@@ -0,0 +1,17 @@
+//Exa 5.7
+clc;
+clear;
+close;
+//Given Data :
+format('v',7);
+I=180;//in Ampere
+cos_fir=0.8;//unitless
+R=0.7;//in ohm/phase
+X=1.2;//in ohm/phase
+ETA=90;//in %
+Pdev_BY_VR=3*I*cos_fir;//in KW
+Psending_BY_VR=Pdev_BY_VR/(ETA/100);//in kW
+Losses=3*I^2*R;//in watt
+VR=Losses/(Psending_BY_VR-Pdev_BY_VR);//in volt
+Vs=sqrt((VR*cos_fir+I*R)^2+(VR*sqrt(1-cos_fir^2)+I*X)^2);
+disp(Vs*sqrt(3),"Sending end voltage Vs(line) in volts :"); \ No newline at end of file
diff --git a/1802/CH5/EX5.8/Exa5_8.sce b/1802/CH5/EX5.8/Exa5_8.sce
new file mode 100755
index 000000000..32773744e
--- /dev/null
+++ b/1802/CH5/EX5.8/Exa5_8.sce
@@ -0,0 +1,30 @@
+//Exa 5.8
+clc;
+clear;
+close;
+//Given Data :
+format('v',7);
+d=1*100;//in cm
+dia=1;//in cm
+r=dia/2;//in cm
+Length=20;//in km
+V=33;//in KV
+P=10;//in MW
+cosfi=0.8;//unitless
+f=50;//in Hz
+R=0.19;//in ohm/km/phase
+//Part (i) :
+L=2*10^-7*log(d/r);//in H/m
+L20=L*Length*10^3;//in H
+XL=2*%pi*f*L20;//in ohm
+R20=R*Length;//in ohm
+Z=sqrt(R20^2+XL^2);//in ohm
+IR=P*10^3/(sqrt(3)*V*cosfi)
+Losses=3*IR^2*R20;//in watt
+ETA=P/(P+Losses/10^6);//unitless
+disp(ETA*100,"Efficiency of line(in %) :");
+//Part (ii) :
+VR=V*1000/sqrt(3);//in volt
+Vs=((VR*cosfi+IR*R20)+(VR*sqrt(1-cosfi^2)+IR*XL));
+disp(((Vs-VR)/VR)*100,"% Regulation : ");
+//Note : Answer in the book is wrong. In second last line of the solution in the book 16079+12885 is taken as 20605 instead of 28964. \ No newline at end of file
diff --git a/1802/CH5/EX5.9/Exa5_9.sce b/1802/CH5/EX5.9/Exa5_9.sce
new file mode 100755
index 000000000..af4e47b9f
--- /dev/null
+++ b/1802/CH5/EX5.9/Exa5_9.sce
@@ -0,0 +1,13 @@
+//Exa 5.9
+clc;
+clear;
+close;
+//Given Data :
+format('v',8);
+R=2.5;//in ohm
+X=4.33;//in ohm
+I=120;//in Ampere
+Vr=3300;//in volt
+cos_fir=0.8;//unitless
+Vs=Vr+I*R*cos_fir+I*X*sqrt(1-cos_fir^2);//in volt
+disp(Vs,"Sending end voltage(in volts) : "); \ No newline at end of file
generated by cgit (git 2.34.1) at 2025-03-13 00:56:28 +0000