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 --- 2273/CH2/EX2.1/ex2_1.sce | 17 +++++++++++++++++ 2273/CH2/EX2.2/ex2_2.sce | 19 +++++++++++++++++++ 2273/CH2/EX2.3/ex2_3.sce | 24 ++++++++++++++++++++++++ 2273/CH2/EX2.4/ex2_4.sce | 25 +++++++++++++++++++++++++ 2273/CH2/EX2.5/ex2_5.sce | 29 +++++++++++++++++++++++++++++ 2273/CH2/EX2.6/ex2_6.sce | 30 ++++++++++++++++++++++++++++++ 6 files changed, 144 insertions(+) create mode 100755 2273/CH2/EX2.1/ex2_1.sce create mode 100755 2273/CH2/EX2.2/ex2_2.sce create mode 100755 2273/CH2/EX2.3/ex2_3.sce create mode 100755 2273/CH2/EX2.4/ex2_4.sce create mode 100755 2273/CH2/EX2.5/ex2_5.sce create mode 100755 2273/CH2/EX2.6/ex2_6.sce (limited to '2273/CH2') 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); -- cgit