diff options
Diffstat (limited to '1067/CH20/EX20.14')
-rwxr-xr-x | 1067/CH20/EX20.14/20_14.sce | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/1067/CH20/EX20.14/20_14.sce b/1067/CH20/EX20.14/20_14.sce new file mode 100755 index 000000000..360be08a2 --- /dev/null +++ b/1067/CH20/EX20.14/20_14.sce @@ -0,0 +1,26 @@ +clear;
+clc;
+rb=75000e3;
+ro=50e6;
+v1=11e3;
+v2=66e3;
+xa=.25*rb/ro;
+xb=.75;
+xt=.1;
+v=1;
+xeq=inv(inv(xa)+inv(xb))+xt;
+i=v/xeq;
+i=round(i*100)/100;
+ia=i*xb/(xa+xb);
+ib=i*xa/(xa+xb);
+ia=round(ia*100)/100;
+ilt=rb/(sqrt(3)*v1);
+iht=rb/(sqrt(3)*v2);
+i=i*iht;
+i=fix(i)
+ia=ia*ilt;
+ilt=rb/(1.73*v1);
+ib=ib*ilt;
+ia=round(ia);
+ib=round(ib/10)*10;
+mprintf("sub transient current generator A=%dA \n generator B=%dA \n HT side=%dA",ia,ib,i);
|