diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3472/CH10/EX10.13/Example10_13.sce | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-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/CH10/EX10.13/Example10_13.sce')
| -rw-r--r-- | 3472/CH10/EX10.13/Example10_13.sce | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/3472/CH10/EX10.13/Example10_13.sce b/3472/CH10/EX10.13/Example10_13.sce new file mode 100644 index 000000000..a7fa309e3 --- /dev/null +++ b/3472/CH10/EX10.13/Example10_13.sce @@ -0,0 +1,33 @@ +// 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 3: STEADY STATE CHARACTERISTICS AND PERFORMANCE OF TRANSMISSION LINES
+
+// EXAMPLE : 3.13 :
+// Page number 143-144
+clear ; clc ; close ; // Clear the work space and console
+
+// Given data
+V_r = 220.0*10**3 // Receiving end voltage(V)
+Z = complex(20,100) // Impedance(ohm/phase)
+Y = %i*0.0010 // Admittance(mho)
+I_r = 300.0 // Receiving end current(A)
+PF_r = 0.9 // Lagging power factor
+
+// Calculations
+V_2 = V_r/3**0.5 // Receiving end phase voltage(V)
+I_2 = I_r*exp(%i*-acos(PF_r)) // Receiving end current(A)
+I_C2 = (Y/2)*V_2 // Capacitive current at receiving end(A)
+I = I_2+I_C2
+V_1 = V_2+I*Z // Voltage across shunt admittance at sending end(V)
+V_1kV = V_1/1000.0 // Voltage across shunt admittance at sending end(kV)
+I_C1 = (Y/2)*V_1 // Capacitive current at sending end(A)
+I_1 = I_C1+I_2 // Sending end current(A)
+
+// Results
+disp("PART II - EXAMPLE : 3.13 : SOLUTION :-")
+printf("\nSending end voltage, V_1 = %.2f∠%.2f° kV", abs(V_1kV),phasemag(V_1kV))
+printf("\nSending end current, I_1 = %.3f∠%.4f° A", abs(I_1),phasemag(I_1))
|