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

begin

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

if Kyf=0 then

begin

Kyf:=300/Ib;

Str(Ieb,stro1);

Str(Ueb,stro2);

end;

if abs(Kyf*Ib)< 10e5 then Lineto(x0+i, y0-round(Kyf*Ib));

end;

Str(-Ieb,stro3);

Str(-Ueb,stro4);

OutTextXY(x0-40,Y0-300,'+Ib = ');

OutTextXY(x0+3,Y0-300,Stro1);

OutTextXY(x0+60,Y0+10,'+Ueb = ');

OutTextXY(x0+100,Y0+10,Stro2);

OutTextXY(x0-250,Y0+10,'-Ib = ');

OutTextXY(x0-210,Y0+10,Stro3);

OutTextXY(x0-300,Y0-10,'-Ueb = ');

OutTextXY(x0-250,Y0-10,Stro4);

OutTextXY(40,470,'Pres any key to Main menu');

Readkey;

CloseGraph;

end

else Writeln('Graphics error:', GraphErrorMsg(ErrCode));

end;

procedure OGraph;

var

grDriver: Integer;