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

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+Uec*(i)/200,Ueb,Ieb,Icb,Ib,Iy);

Ik:=(Iy-Icb);

end;

if Kyf=0 then

begin

Kyf:=abs(20/Ik);

Str(Ik,stro1);

Str(Uec,stro2);

setcolor(0);

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

setcolor(2);

end;

if abs(Kyf*Ik)< 10e5 then

Lineto(x0+i, y0-round(Kyf*Ik));

end;

OutTextXY(x0-40,Y0-210,'+Ik = ');

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

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

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

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

Readkey;

CloseGraph;

end

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

end;