diff options
Diffstat (limited to '3640/CH2/EX2.8')
| -rw-r--r-- | 3640/CH2/EX2.8/Ex2_8.sce | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/3640/CH2/EX2.8/Ex2_8.sce b/3640/CH2/EX2.8/Ex2_8.sce new file mode 100644 index 000000000..52b925862 --- /dev/null +++ b/3640/CH2/EX2.8/Ex2_8.sce @@ -0,0 +1,25 @@ +clc +VLB=2400 //line to base voltage in volts +Ix=2005 //current in amperes +xda=VLB/(sqrt(3)*Ix) +mprintf("xda=%fΩ\n",xda)//ans may vary due to roundoff error +Ifv=116 //current in amperes +ma1=VLB/(sqrt(3)*Ifv)//equal to ma` in textbook +mprintf("má=V1B/Ifv=%fΩ\n",ma1)//ans may vary due to roundoff error +//from ex 2_7 +V1=VLB/sqrt(3) //reference phasor in volts +kVAB=9375 //rated kVA +I1B=(kVAB*1000)/(sqrt(3)*VLB)//current in amperes +pf=0.8 //power factor +I1=I1B*exp((-1)*%i*(acos(pf)))//current in amperes +Ef=V1+%i*I1*xda +disp('Ef='+string(Ef)+'V')//ans may vary due to roundoff error +mprintf("If=|Ef|/má=%fA\n",abs(Ef)/ma1)//ans may vary due to roundoff error +Voc=2960 //line to line volatge in Volts +mprintf("V1oc=%fV\n",Voc/sqrt(3))//ans may vary due to roundoff error +If=240 //current in amperes +Efmax=ma1*If +mprintf("Efmax=%dV\n",Efmax)//ans in textbook is wrong +I1max=(Efmax-V1)/xda //ans in textbook is wrong +mprintf("I1max=%fA\n",I1max)//ans may vary due to roundoff error +mprintf("Qmax=%fMVAR",sqrt(3)*VLB*I1max*(10^-6))//ans may vary due to roundoff error
\ No newline at end of file |