initial commit / add all books

1 files changed, 32 insertions, 0 deletions

diff --git a/2078/CH3/EX3.7/Example3_7.sce b/2078/CH3/EX3.7/Example3_7.sce
new file mode 100755
index 000000000..2521dcf62
--- /dev/null
+++ b/2078/CH3/EX3.7/Example3_7.sce
@@ -0,0 +1,32 @@
+//Exa 3.7

+clc;

+clear;

+close;

+//Given data :

+P1=1000;//kW

+pf1=0.8;//

+t1=10;//hours

+P2=500;//kW

+pf2=0.9;//

+t2=8;//hours

+P3=100;//kW

+pf3=1;//

+t3=6;//hours

+a=poly(0,'a');//cross section area

+I=poly(0,'I');//Current

+L=poly(0,'L');//length in km

+CcBYL=(8000*a+1500)//Rs/km(variable cost)

+i=10;//%(depreciation)

+E_lost_cost=80/100;//Rs/kWh

+rho=1.72*10^-6;//ohm-cm

+Cc_varBYL=8000*a*i/100//Rs/km(variable cost)

+I1=P1*1000/sqrt(3)/10000/pf1;//A

+I2=P2*1000/sqrt(3)/10000/pf2;//A

+I3=P3*1000/sqrt(3)/10000/pf3;//A

+R_into_a_BY_L=rho*1000*100;//ohm

+W_into_A_BY_Isqr=R_into_a_BY_L;//W

+E_loss_into_A_BY_L=3*R_into_a_BY_L*[I1^2*t1+I2^2*t2+I3^2*t3]*365/1000;//kWh

+E_loss_cost_into_A_BY_L=E_loss_into_A_BY_L*E_lost_cost;//Rs

+//Cc_var=E_loss_cost;//For most economical cross section

+a=sqrt(coeff((numer(E_loss_cost_into_A_BY_L))/coeff(numer(Cc_varBYL/a))));//cm^2

+disp(a,"Most economical cross sectional area in cm^2 : ");