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);