summaryrefslogtreecommitdiff
path: root/3472/CH24/EX24.8/Example24_8.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3472/CH24/EX24.8/Example24_8.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3472/CH24/EX24.8/Example24_8.sce')
-rw-r--r--3472/CH24/EX24.8/Example24_8.sce29
1 files changed, 29 insertions, 0 deletions
diff --git a/3472/CH24/EX24.8/Example24_8.sce b/3472/CH24/EX24.8/Example24_8.sce
new file mode 100644
index 000000000..5522c76d1
--- /dev/null
+++ b/3472/CH24/EX24.8/Example24_8.sce
@@ -0,0 +1,29 @@
+// A Texbook on POWER SYSTEM ENGINEERING
+// A.Chakrabarti, M.L.Soni, P.V.Gupta, U.S.Bhatnagar
+// DHANPAT RAI & Co.
+// SECOND EDITION
+
+// PART II : TRANSMISSION AND DISTRIBUTION
+// CHAPTER 17: ELECTRIC POWER SUPPLY SYSTEMS
+
+// EXAMPLE : 17.8 :
+// Page number 428-429
+clear ; clc ; close ; // Clear the work space and console
+
+// Given data
+cost_km_cu = 2800.0 // Cost per km for each copper conductor of sq.cm(Rs)
+LF_I = 80.0/100 // Load factor of load current
+LF_loss = 65.0/100 // Load factor of losses
+interest_per = 10.0/100 // Rate of interest and depreciation
+cost_energy = 5.0/100 // Cost of energy(Rs/kWh)
+rho = 1.78*10**-8 // Resistivity(ohm-m)
+
+// Calculations
+P_2 = cost_km_cu*interest_per // Cost in terms of L(Rs)
+time_year = 365.0*24 // Total hours in a year
+P_3 = cost_energy*rho*10**4*time_year*LF_loss // Cost in terms of I^2 & L(Rs)
+delta = (P_2/P_3)**0.5 // Economical current density for the transmission line(A/sq.cm)
+
+// Results
+disp("PART II - EXAMPLE : 17.8 : SOLUTION :-")
+printf("\nMost economical current density for the transmission line, δ = %.f A/sq.cm", delta)