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/CH3/EX3.3/Example3_3.sce | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 2078/CH3/EX3.3/Example3_3.sce

(limited to '2078/CH3/EX3.3/Example3_3.sce')

diff --git a/2078/CH3/EX3.3/Example3_3.sce b/2078/CH3/EX3.3/Example3_3.sce
new file mode 100755
index 000000000..a745baad1
--- /dev/null
+++ b/2078/CH3/EX3.3/Example3_3.sce
@@ -0,0 +1,23 @@
+//Exa 3.3
+clc;
+clear;
+close;
+//Given data :
+t=2600;//hour
+Con_Cost=3;//Rs/kg(conductor cost)
+R=1.78*10^-8;//ohm-m
+D=6200;//kg/m^3
+E_Cost=10/100;//Rs/unit(energy cost)
+i=12;//%(interest and depreciation)
+a=poly(0,'a');//mm^2    ////cross sectional area
+W=a*1000*D/1000/1000;//kg/km(Weight of conductor of 1km length)
+cost=Con_Cost*W;//Rs./km(cost of conductor of 1km length)
+In_Dep=cost*i/100;//Rs(Annual interest and depreciation per conductor per km)
+In_DepBYa=In_Dep/a;
+I=poly(0,'I');//A
+E_lost_aBY_Isqr=R*1000/10^-6*t/1000;//Energy lost/annum/km/conductor
+E_lost_cost_aBY_Isqr=E_Cost*E_lost_aBY_Isqr;//Rs/annum
+//In_Dep=E_lost_cost;//For most economical cross section
+IBYa=sqrt(coeff(numer(In_DepBYa)/numer(E_lost_cost_aBY_Isqr)));//cm^2
+disp(IBYa,"Best current density in A/mm^2 : ");
+//Answer in the textbook is not accurate.
-- 
cgit