From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 2078/CH9/EX9.1/Example9_1.sce   | 24 ++++++++++++++++++++++++
 2078/CH9/EX9.10/Example9_10.sce | 22 ++++++++++++++++++++++
 2078/CH9/EX9.11/Example9_11.sce | 13 +++++++++++++
 2078/CH9/EX9.12/Example9_12.sce | 24 ++++++++++++++++++++++++
 2078/CH9/EX9.2/Example9_2.sce   | 26 ++++++++++++++++++++++++++
 2078/CH9/EX9.3/Example9_3.sce   | 20 ++++++++++++++++++++
 2078/CH9/EX9.4/Example9_4.sce   | 16 ++++++++++++++++
 2078/CH9/EX9.5/Example9_5.sce   | 14 ++++++++++++++
 2078/CH9/EX9.6/Example9_6.sce   | 16 ++++++++++++++++
 2078/CH9/EX9.7/Example9_7.sce   | 15 +++++++++++++++
 2078/CH9/EX9.8/Example9_8.sce   | 20 ++++++++++++++++++++
 2078/CH9/EX9.9/Example9_9.sce   | 21 +++++++++++++++++++++
 12 files changed, 231 insertions(+)
 create mode 100755 2078/CH9/EX9.1/Example9_1.sce
 create mode 100755 2078/CH9/EX9.10/Example9_10.sce
 create mode 100755 2078/CH9/EX9.11/Example9_11.sce
 create mode 100755 2078/CH9/EX9.12/Example9_12.sce
 create mode 100755 2078/CH9/EX9.2/Example9_2.sce
 create mode 100755 2078/CH9/EX9.3/Example9_3.sce
 create mode 100755 2078/CH9/EX9.4/Example9_4.sce
 create mode 100755 2078/CH9/EX9.5/Example9_5.sce
 create mode 100755 2078/CH9/EX9.6/Example9_6.sce
 create mode 100755 2078/CH9/EX9.7/Example9_7.sce
 create mode 100755 2078/CH9/EX9.8/Example9_8.sce
 create mode 100755 2078/CH9/EX9.9/Example9_9.sce

(limited to '2078/CH9')

diff --git a/2078/CH9/EX9.1/Example9_1.sce b/2078/CH9/EX9.1/Example9_1.sce
new file mode 100755
index 000000000..228cf149b
--- /dev/null
+++ b/2078/CH9/EX9.1/Example9_1.sce
@@ -0,0 +1,24 @@
+//Exa 9.1
+clc;
+clear;
+close;
+//Given data :
+C1=1;//
+C=6;
+K=C1/C;
+V2byV1=(1+K);
+V3byV1=(1+3*K+K^2);
+V4byV1=(1+6*K+5*K^2+K^3);
+//I5=I4+i4;
+//omega*C*V5=omega*C*V4+omega*C1*(V1+V2+V3+V4)
+V5byV1=1+10*K+15*K^2+7*K^3+K^4
+VbyV1=1+V2byV1+V3byV1+V4byV1+V5byV1;
+V1byV=1/VbyV1;
+disp("Voltage across the first unit is "+string(V1byV*100)+" % of V");
+disp("Voltage across the seconf unit is "+string(V2byV1*V1byV*100)+" % of V");
+disp("Voltage across the third unit is "+string(V3byV1*V1byV*100)+" % of V");
+disp("Voltage across the fourth unit is "+string(V4byV1*V1byV*100)+" % of V");
+disp("Voltage across the bottom most unit is "+string(V5byV1*V1byV*100)+" % of V");
+n=5;//no. of unit
+Strinf_eff=1/n/(V5byV1*V1byV);//%
+disp(Strinf_eff*100,"String Efficiency(%)");
diff --git a/2078/CH9/EX9.10/Example9_10.sce b/2078/CH9/EX9.10/Example9_10.sce
new file mode 100755
index 000000000..29aa15e97
--- /dev/null
+++ b/2078/CH9/EX9.10/Example9_10.sce
@@ -0,0 +1,22 @@
+//Exa 9.10
+clc;
+clear;
+close;
+//Given data :
+n=8;//no. of units
+p=1:8;
+//Cp=p*C/(n-p)
+C1byC=1/(n-p(1));
+C2byC=2/(n-p(2));
+C3byC=3/(n-p(3));
+C4byC=4/(n-p(4));
+C5byC=5/(n-p(5));
+C6byC=6/(n-p(6));
+C7byC=7/(n-p(7));
+disp("C1 is "+string(C1byC)+" times of C");
+disp("C2 is "+string(C2byC)+" times of C");
+disp("C3 is "+string(C3byC)+" times of C");
+disp("C4 is "+string(C4byC)+" times of C");
+disp("C5 is "+string(C5byC)+" times of C");
+disp("C6 is "+string(C6byC)+" times of C");
+disp("C7 is "+string(C7byC)+" times of C");
diff --git a/2078/CH9/EX9.11/Example9_11.sce b/2078/CH9/EX9.11/Example9_11.sce
new file mode 100755
index 000000000..3534149e5
--- /dev/null
+++ b/2078/CH9/EX9.11/Example9_11.sce
@@ -0,0 +1,13 @@
+//Exa 9.11
+clc;
+clear;
+close;
+//Given data :
+v2byv1=25/23.25;//ratio(By Kirchoff law)
+v3byv1=1.65/1.1625;//ratio(By Kirchoff law)
+Vbyv1=1+v2byv1+v3byv1;//ratio(Final voltage between line conductor & earth)
+v1byV=1/Vbyv1;//ratio
+v2byV=v2byv1*v1byV;//ratio
+v3byV=v3byv1*v1byV;//ratio
+eff=1/3/v3byV*100;//string efficiency in %(V/3/v3)
+disp(eff,"String efficiency in % is ");
diff --git a/2078/CH9/EX9.12/Example9_12.sce b/2078/CH9/EX9.12/Example9_12.sce
new file mode 100755
index 000000000..78697ee7f
--- /dev/null
+++ b/2078/CH9/EX9.12/Example9_12.sce
@@ -0,0 +1,24 @@
+//Exa 9.12
+clc;
+clear;
+close;
+//Given data :
+V=20;//kV
+C=poly(0,'C');
+//Cmutual=C;//F
+CmutualBYC=1;
+//Cshunt=C/5;//F
+CshuntBYC=1/5;
+//I2=I1+i1//omega*C*V2=omega*C*V1+omega*Cshunt*V1
+V2BYV1=1+CshuntBYC;
+V3BYV2=1;//a V2=V3
+//V=V1+V2+V3
+V1=V/(V3BYV2+V2BYV1+V2BYV1);//kV
+V2=V2BYV1*V1;//kV
+V3=V2;//kV
+disp(V3,"Voltage onn the line end unit in kV : ");
+//I3+ix=I2+i2
+CxBYC=(V2+CshuntBYC*(V1+V2)-V3)/V3;
+disp("Capacitance required is "+string(CxBYC)+"C(in F).");
+
+
diff --git a/2078/CH9/EX9.2/Example9_2.sce b/2078/CH9/EX9.2/Example9_2.sce
new file mode 100755
index 000000000..41d45da95
--- /dev/null
+++ b/2078/CH9/EX9.2/Example9_2.sce
@@ -0,0 +1,26 @@
+//Exa 9.2
+clc;
+clear;
+close;
+//Given data :
+C1=1;//
+C=10;
+K=C1/C;
+V2byV1=(1+K);
+V3byV1=(1+3*K+K^2);
+V4byV1=(1+6*K+5*K^2+K^3);
+V5byV1=1+10*K+15*K^2+7*K^3+K^4
+//I6=I5+i5;
+//omega*C*V6=omega*C*V5+omega*C1*(V1+V2+V3+V4+V5)
+V6byV1=V5byV1+K*(1+V2byV1+V3byV1+V4byV1+V5byV1);
+VbyV1=1+V2byV1+V3byV1+V4byV1+V5byV1+V6byV1;
+V1byV=1/VbyV1;
+disp("Voltage across the first unit is "+string(V1byV*100)+" % of V");
+disp("Voltage across the seconf unit is "+string(V2byV1*V1byV*100)+" % of V");
+disp("Voltage across the third unit is "+string(V3byV1*V1byV*100)+" % of V");
+disp("Voltage across the fourth unit is "+string(V4byV1*V1byV*100)+" % of V");
+disp("Voltage across the fifth unit is "+string(V5byV1*V1byV*100)+" % of V");
+disp("Voltage across the sixth unit is "+string(V6byV1*V1byV*100)+" % of V");
+n=6;//no. of unit
+Strinf_eff=1/n/(V6byV1*V1byV);//%
+disp(Strinf_eff*100,"String Efficiency(%)");
diff --git a/2078/CH9/EX9.3/Example9_3.sce b/2078/CH9/EX9.3/Example9_3.sce
new file mode 100755
index 000000000..d4a9f2701
--- /dev/null
+++ b/2078/CH9/EX9.3/Example9_3.sce
@@ -0,0 +1,20 @@
+//Exa 9.3
+clc;
+clear;
+close;
+//Given data :
+V=66;//kV
+//Part(i)
+n=5;//no. of uniits
+K=1/5;//shunt to mutual capacitance ratio
+V1=V/(5+20*K+21*K^2+8*K^3+K^4);//kV
+V5=V1*(1+10*K+15*K^2+7*K^3+K^4);//kV
+Strinf_eff=V/n/V5;
+disp(Strinf_eff*100,"Part(i) Percentage String Efficiency(%)");
+//Part(ii)
+n=5;//no. of uniits
+K=1/6;//shunt to mutual capacitance ratio
+V1=V/(5+20*K+21*K^2+8*K^3+K^4);//kV
+V5=V1*(1+10*K+15*K^2+7*K^3+K^4);//kV
+Strinf_eff=V/n/V5;
+disp(Strinf_eff*100,"Part(ii) Percentage String Efficiency(%)");
diff --git a/2078/CH9/EX9.4/Example9_4.sce b/2078/CH9/EX9.4/Example9_4.sce
new file mode 100755
index 000000000..9155647ba
--- /dev/null
+++ b/2078/CH9/EX9.4/Example9_4.sce
@@ -0,0 +1,16 @@
+//Exa 9.4
+clc;
+clear;
+close;
+//Given data :
+Vs=20;//kV
+n=3;//no. of uniits
+K=0.1;//shunt to mutual capacitance ratio
+V3=Vs;//kV
+V1=V3/(1+3*K+K^2);//kV
+disp(V1,"Voltage across top most unit(kV)");
+V2=V1*(1+K);//kV
+disp(V2,"Voltage across middle unit(kV)");
+V=V1+V2+V3;//kV
+Strinf_eff=V/n/V3;
+disp(Strinf_eff*100,"Percentage String Efficiency(%)");
diff --git a/2078/CH9/EX9.5/Example9_5.sce b/2078/CH9/EX9.5/Example9_5.sce
new file mode 100755
index 000000000..9510c06bf
--- /dev/null
+++ b/2078/CH9/EX9.5/Example9_5.sce
@@ -0,0 +1,14 @@
+//Exa 9.5
+clc;
+clear;
+close;
+//Given data :
+Vs=17.5;//kV
+n=3;//no. of uniits
+K=1/8;//shunt to mutual capacitance ratio
+V3=Vs;//kV
+V1=V3/(1+3*K+K^2);//kV
+V2=V1*(1+K);//kV
+V=V1+V2+V3;//kV
+//Strinf_eff=V/n/V3;
+disp(V,"Maximum safe working voltage(kV)");
diff --git a/2078/CH9/EX9.6/Example9_6.sce b/2078/CH9/EX9.6/Example9_6.sce
new file mode 100755
index 000000000..c3388b969
--- /dev/null
+++ b/2078/CH9/EX9.6/Example9_6.sce
@@ -0,0 +1,16 @@
+//Exa 9.6
+clc;
+clear;
+close;
+//Given data :
+Vs=12;//kV
+n=4;//no. of uniits
+K=0.1;//shunt to mutual capacitance ratio
+V4=Vs;//kV
+V1=V4/(1+6*K+5*K^2+K^3);//kV
+V2=V1*(1+K);//kV
+V3=V1*(1+3*K+K^2);//kV
+V=V1+V2+V3+V4;//kV
+disp(V,"Maximum safe working voltage(kV)");
+Strinf_eff=V/n/V4;
+disp(Strinf_eff*100,"Percentage String Efficiency(%)");
diff --git a/2078/CH9/EX9.7/Example9_7.sce b/2078/CH9/EX9.7/Example9_7.sce
new file mode 100755
index 000000000..be97caa53
--- /dev/null
+++ b/2078/CH9/EX9.7/Example9_7.sce
@@ -0,0 +1,15 @@
+//Exa 9.7
+clc;
+clear;
+close;
+//Given data :
+Vs=11;//kV
+n=5;//no. of uniits
+K=0.1;//shunt to mutual capacitance ratio
+V5=Vs;//kV
+V1=V5/(1+10*K+15*K^2+7*K^3+K^4);//kV
+V2=V1*(1+K);//kV
+V3=V1*(1+3*K+K^2);//kV
+V4=V1*(1+6*K+5*K^2+K^3);//kV
+V=V1+V2+V3+V4+V5;//kV
+disp(V,"Maximum safe working voltage(kV)");
diff --git a/2078/CH9/EX9.8/Example9_8.sce b/2078/CH9/EX9.8/Example9_8.sce
new file mode 100755
index 000000000..dae6aa61f
--- /dev/null
+++ b/2078/CH9/EX9.8/Example9_8.sce
@@ -0,0 +1,20 @@
+//Exa 9.8
+clc;
+clear;
+close;
+//Given data :
+V2=15;//kV
+V3=21;//kV
+n=4;//no. of uniits
+//V3/V2=(1+3*K+K^2)/(1+K)
+//K^2*V2+K*(V3+3*V2)-V2+V3=0;
+p=[V2 -V3+3*V2 V2-V3];
+K=roots(p);
+K=K(2);//Taking +ve value
+V1=V2/(1+K);//kV
+V4=(1+6*K+5*K^2+K^3)*V1;//kV
+V=V1+V2+V3+V4;//kV
+VL=sqrt(3)*V;//kV
+disp(VL,"Voltage between conductors(kV)");
+Strinf_eff=V/n/V4;
+disp(Strinf_eff*100,"Percentage String Efficiency(%)");
diff --git a/2078/CH9/EX9.9/Example9_9.sce b/2078/CH9/EX9.9/Example9_9.sce
new file mode 100755
index 000000000..7f2ce0d25
--- /dev/null
+++ b/2078/CH9/EX9.9/Example9_9.sce
@@ -0,0 +1,21 @@
+//Exa 9.9
+clc;
+clear;
+close;
+//Given data :
+K=0.1;//shunt to mutual capacitance ratio
+CbyC1=10;
+C2byC1=(1+K)*CbyC1;
+C3byC1=(1+3*K)*CbyC1;
+C4byC1=(1+6*K)*CbyC1;
+disp("C2 is "+string(C2byC1)+" times of C1");
+disp("C3 is "+string(C3byC1)+" times of C1");
+disp("C4 is "+string(C4byC1)+" times of C1");
+//I5=I4+i4
+//omega*C5*v=omega*C4*v+omega*C1*4*v
+C5byC1=(1+10*K)*CbyC1;
+disp("C5 is "+string(C5byC1)+" times of C1");
+//I6=I5+i5
+//omega*C6*v=omega*C5*v+omega*C1*5*v
+C6byC1=(1+15*K)*CbyC1;
+disp("C6 is "+string(C6byC1)+" times of C1");
-- 
cgit