diff options
Diffstat (limited to '3745/CH1/EX1.51/Ex1_51.sce')
| -rw-r--r-- | 3745/CH1/EX1.51/Ex1_51.sce | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/3745/CH1/EX1.51/Ex1_51.sce b/3745/CH1/EX1.51/Ex1_51.sce new file mode 100644 index 000000000..c1de12ac1 --- /dev/null +++ b/3745/CH1/EX1.51/Ex1_51.sce @@ -0,0 +1,24 @@ +// Ex 51 Page 396 + +clc;clear;close; +// Given +ZA=0.15+0.5*%i;//ohm +ZB=0.1+0.6*%i;//ohm +EA=207;//V +EB=205;//V +ZL=2+1.5*%i;//ohm + +IA=(EA*ZB+(EA-EB)*ZL)/(ZA*ZB+ZL*(ZA+ZB));//A +IB=(EB*ZA-(EA-EB)*ZL)/(ZA*ZB+ZL*(ZA+ZB));//A +V2=(IA+IB)*ZL;//V +fi_A=atand(imag(V2)/real(V2))-(atand(imag(IA)/real(IA))) +pf_A=cosd(fi_A);//lag +printf("pf transformer A = %.2f lag",pf_A) +fi_B=atand(imag(V2)/real(V2))-(atand(imag(IB)/real(IB))) +pf_B=cosd(fi_B);//lag +printf("\n pf transformer B = %.2f lag",pf_B) +PA=abs(V2*IA*pf_A);//W +printf("\n power output transformer A = %.f W",PA) +PB=abs(V2*IB*pf_B);//W +printf("\n power output transformer B = %.f W",PB) +//Power output ans are wrong in the book. |