summaryrefslogtreecommitdiff
path: root/1067/CH20/EX20.16.a/20_16_a.sce
blob: 8b832bf81d2dd5f86bdf5abc925fdc7d85555ed0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
clear;
clc;
rb=2e6;
r=1.2e6;
x=7*rb/r;
v=6.6e3;
i=rb/v;
zb=v/i;
r=1200e3;
rb=2000e3;
v=6.6e3;
i=rb/v;
x=.1;
z0=v*x/i;
x1=7*rb/r;
z1=v*x1/(100*i);
z2=2;
z=z0+z1+z2;
ish=v/z;
zb=round(zb*10)/10;
ish=round(ish/10)*10;
mprintf("the shortcircuit current by direct ohmic method=%fA\n",ish);
mprintf("the base impedence=%fohm",zb);