initial commit / add all books

6 files changed, 144 insertions, 0 deletions

diff --git a/2273/CH2/EX2.1/ex2_1.sce b/2273/CH2/EX2.1/ex2_1.sce
new file mode 100755
index 000000000..a9f1513a2
--- /dev/null
+++ b/2273/CH2/EX2.1/ex2_1.sce
@@ -0,0 +1,17 @@
+//Calculate the most economical cross sectional area

+clear;

+clc;

+//soltion

+//given

+id=0.15;//interest & depreciation charges

+i=260;//ampere//max current

+d=0.173;//ohm//resistance of conductor

+cst=.03;//rs// cost of energy per unit

+t=(365*24)/2;//time of energy loss

+printf("Annual cost of 2 core feeder cable is Rs(90a+10)per meter\n");

+P3=(2*i^2*d*t*cst)/1000//kWh//annual cost of energy loss

+printf("Energy loss per annum= P3/a= %f/a \n",P3);

+P2=90*1000*id;//energy lost per annum

+printf("Capital cost= P2*a= %d*a \n", P2);

+a=sqrt(P3/P2);

+printf("Economic cross section of conductor is= √(P3/P2)= %f square cm",a);

diff --git a/2273/CH2/EX2.2/ex2_2.sce b/2273/CH2/EX2.2/ex2_2.sce
new file mode 100755
index 000000000..b4ff935c8
--- /dev/null
+++ b/2273/CH2/EX2.2/ex2_2.sce
@@ -0,0 +1,19 @@
+//Calculate the most economical current density

+clear;

+clc;

+//soltion

+//given

+id=0.1;//interest & depreciation charges

+d=1.78*10^-8;//ohm m//resistivity

+R=(d*1000)/10^-4;//ohm//resistance of conductor

+cst=.50;//rs// cost of energy per unit

+t=(365*24);//time of energy loss

+lf=.7;//load factor of losses

+printf("Annual cost of cable is Rs(2800a+1300)per km\n\n");

+printf("Resistance of each conductor= %f/a \n", R);

+P3=(R*t*cst*lf)/1000;//*I^2//kWh//annual cost of energy loss

+printf("Annual cost of energy loss= P3/a= (%f*I^2)/a \n", P3);

+P2=2800*id;//energy lost per annum

+printf("Annual charge on account of intrest and depreciation on variable cost of line= P2*a= %d*a\n", P2);

+J=sqrt(P2/P3);//current density I/a

+printf("Economic current density of conductor is %f A/cm square",J);

diff --git a/2273/CH2/EX2.3/ex2_3.sce b/2273/CH2/EX2.3/ex2_3.sce
new file mode 100755
index 000000000..fe805fd99
--- /dev/null
+++ b/2273/CH2/EX2.3/ex2_3.sce
@@ -0,0 +1,24 @@
+//Calculate the most economical current density and diameter of conductor

+clear;

+clc;

+//soltion

+//given

+id=0.1;//interest & depreciation charges

+cst=.02;//rs// cost of energy per unit

+d=0.173;//ohm//resistance of conductor

+pf=.8;//lagging

+P=1500*10^3;//Watts//load

+V=11000;//volts//supply voltage

+t=200*8;//hours

+printf("annual cost of 3 core feeder cable is Rs(8000 + 20000 a)per km\n");

+printf("Resistance of each conductor= %.3f/a \n", d);

+i=P/(sqrt(3)*V*pf);//ampere

+printf("Current in each conductor= %.3f A\n", i);

+P2=20000*id;//energy lost per annum

+printf("Capital cost= P2*a= %d*a \n", P2);

+P3=(3*i^2*d*t*cst)/1000;//kWh//annual cost of energy loss

+printf("Energy loss per annum= P3/a= %f/a \n",P3);

+a=sqrt(P3/P2);

+printf("Economic cross section of conductor is= √(P3/P2)= %f square cm \n",a);

+printf("Diameter of conductor= %.1f cm \n", sqrt(4*a/%pi));

+printf("Current density= %f A/cm square", i/a);

diff --git a/2273/CH2/EX2.4/ex2_4.sce b/2273/CH2/EX2.4/ex2_4.sce
new file mode 100755
index 000000000..14bdfd89f
--- /dev/null
+++ b/2273/CH2/EX2.4/ex2_4.sce
@@ -0,0 +1,25 @@
+//Calculate the most economical cross sectional area

+clear;

+clc;

+//soltion

+//given

+id=0.1;//interest & depreciation charges

+pf=.8;//lagging

+P=10^6;//Watts//load

+V=11000;//volts//supply voltage

+cst=.15;//rs// cost of energy per unit

+d=1.75*10^-6;//ohm cm//specific resistance

+l=1000//m//length of the cable

+t=3000;//hours

+printf("Annual cost of 2 core feeder cable is Rs(30 + 500a)per meter\n");

+R=(d*1000*100);//ohm//resistance of conductor

+printf("Resistance of each conductor= %f/a \n", R);

+i=P/(V*pf);//ampere

+printf("Current in each conductor= %f A\n", i);

+P2=500*10^3*id;//energy lost per annum

+printf("Capital cost= P2*a= %d*a \n", P2);

+P3=(2*i^2*R*t*cst)/1000;//kWh//annual cost of energy loss

+printf("Energy loss per annum= P3/a= %f/a \n",P3);

+a=sqrt(P3/P2);

+printf("Economic cross section of conductor is= √(P3/P2)= %f square cm \n",a);

+printf("Diameter of conductor= %f cm \n", sqrt(4*a/%pi));

diff --git a/2273/CH2/EX2.5/ex2_5.sce b/2273/CH2/EX2.5/ex2_5.sce
new file mode 100755
index 000000000..94ca6812d
--- /dev/null
+++ b/2273/CH2/EX2.5/ex2_5.sce
@@ -0,0 +1,29 @@
+

+//Calculate the most economical cross sectional area

+clear;

+clc;

+//soltion

+//given

+id=0.1;//interest & depreciation charges

+pf=.85;//lagging

+Pm=10^3;//Watts//Max Demand

+Pt=5*10^6//kWh//Toatal energy consumption

+V=11000;//volts//supply voltage

+cst=.05;//rs// cost of energy per unit

+d=1.72*10^-6;//ohm cm//specific resistance

+t=(365*24);//time of energy loss

+printf("Annual cost of cable is Rs(80000a + 20000)per km\n");

+lf=Pt/(Pm*t)//Annual load factor

+printf("Annual load factor= %f\n", lf);

+llf=.25*lf+.75*lf^2;//Loss load factor

+printf("Loss load factor= %f\n",llf);

+i=Pm*1000/(sqrt(3)*V*pf);//ampere

+printf("Current in each conductor= %.1f A\n", i);

+P2=80000*id;//energy lost per annum

+printf("Capital cost= P2*a= %d*a*l \n", P2);

+R=d*100*1000;//ohm

+P3=(3*i^2*R*t*cst*llf)/1000;//kWh//annual cost of energy loss

+printf("Energy loss per annum= (P3*l)/a= (%f*l)/a \n",P3);

+a=sqrt(P3/P2);

+printf("Economic cross section of conductor is= √(P3/P2)= %f square cm \n",a);

+//THERE IS TYPOGRAPHICAL ERROR IN THE ANS IN BOOK IT IS 0.2404 cm^2

diff --git a/2273/CH2/EX2.6/ex2_6.sce b/2273/CH2/EX2.6/ex2_6.sce
new file mode 100755
index 000000000..0bd961a8b
--- /dev/null
+++ b/2273/CH2/EX2.6/ex2_6.sce
@@ -0,0 +1,30 @@
+//Calculate the most economical cross sectional area

+clear;

+clc;

+//soltion

+//given

+id=0.1;//interest & depreciation charges

+V=20000;//volts//supply voltage

+d=1.72*10^-6;//ohm cm//specific resistance

+cst=.6;//rs// cost of energy per unit

+p1=1500//kilowatts

+t1=8//hours

+pf1=.8//power factor

+p2=1000//kilowatts

+t2=10//hours

+pf2=.9//power factor

+p3=100//kilowatts

+t3=6//hours

+pf3=1//power factor

+t=365//no. of days

+i1=p1*1000/(sqrt(3)*V*pf1);//ampere//current at time t1

+i2=p2*1000/(sqrt(3)*V*pf2);//ampere//current at time t2

+i3=p3*1000/(sqrt(3)*V*pf3);//ampere//current at time t3

+R=d*100*1000;//ohm

+P2=8000*id;//Loss load factor

+printf("Annual cost of cable is Rs(80000a + 20000)per km\n");

+printf("Capital cost= P2*a= %d*a*l \n", P2);

+P3=(3*((i1^2*t1)+(i2^2*t2)+(i3^2*t3))*R*t*cst)/1000;//kWh//annual cost of energy loss

+printf("Energy loss per annum= (P3*l)/a= (%f*l)/a \n",P3);

+a=sqrt(P3/P2);

+printf("Economic cross section of conductor is= √(P3/P2)= %f square cm \n",a);