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/CH4/EX4.23/Example4_23.sce | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 2078/CH4/EX4.23/Example4_23.sce

(limited to '2078/CH4/EX4.23')

diff --git a/2078/CH4/EX4.23/Example4_23.sce b/2078/CH4/EX4.23/Example4_23.sce
new file mode 100755
index 000000000..fdb3e36fd
--- /dev/null
+++ b/2078/CH4/EX4.23/Example4_23.sce
@@ -0,0 +1,32 @@
+//Exa 4.23
+clc;
+clear;
+close;
+//Given data :
+VL=132;//kV
+f=50;//Hz
+r=5/2;//cm
+rdash=0.7788*r*10^-2;//m
+d=6.5;//m
+s=0.4;//m
+epsilon_o=8.854*10^-12;//permitivity
+Ds=sqrt(rdash*s);//m
+dab=6.5;//m
+dab_dash=6.9;//m
+d_adash_b=6.1;//m
+d_adash_bdash=6.5;//m
+Dab=(dab*dab_dash*d_adash_b*d_adash_bdash)^(1/4);//m
+Dbc=Dab;//m
+dca=13;//m
+dca_dash=12.6;//m
+d_cdash_a=13.4;//m
+d_cdash_adash=13;//m
+Dca=(dca*dca_dash*d_cdash_a*d_cdash_adash)^(1/4);//m
+Dm=(Dab*Dbc*Dca)^(1/3);//m
+L=0.2*log(Dm/Ds);//mH/km
+C=2*%pi*epsilon_o/log(Dm/Ds);//F/m
+C=C/10^-3;//F/km
+disp(C,"Capacitance per km(F/km) : ");
+Vph=VL*1000/sqrt(3);//Volt
+Ic=2*%pi*f*C*Vph;//A/km
+disp(Ic,"Charging current per km(A/km) : ");
-- 
cgit