Реферат: Математическое моделирование биполярных транзисторов типа p-n-p

ErrCode: Integer;

i,x0,y0: Integer;

stro1,stro2,stro3,stro4:string;

begin

grDriver := Detect;

InitGraph(grDriver, grMode,'');

ErrCode := GraphResult;

if ErrCode = grOk then

begin { Do graphics }

x0:=320;

y0:=240;

Kyf:=0;

OutTextXY(250,10,'Graphic Ik=f(Uec)');

Line(x0, y0-150, x0, Y0+150);

Line(x0-200, y0, X0+200, Y0);

setcolor(0);

LineTo(x0+200, round(y0-Kyf*Ik));

setcolor(2);

Kyf:=0;

for i:=200 downto -200 do

begin

if (i>0) or (i=0) then

begin

Is:=Is0 * (1+ Uec*(i)/200/VA) * st(T/TNOM,3) * st(expon,-EG/K*(1/T-1/TNOM));

Uc:=Fit*ln(FIt/(Is*RJ));

Ic:= Is * (st(expon,Uc/FIt)-1);

Model(Ueb,Ueb-Uec*(i)/200,Ieb,Icb,Ib,Iy);

Ik:=Iy-Icb;

end;