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

else CJE := st(2,MJE) * CJE0 * (MJE* Ueb / VJE/2 + 1 - MJE);

gotoxy(col+3,row+13);

write('[CJE] ');

gotoxy(col+39,row+13);

write(CJE);

If Ieb > 0 then CDE := Ieb * BF * TAUF / FIt

else CDE := 0;

gotoxy(col+3,row+14);

write('[CDE] ');

gotoxy(col+39,row+14);

write(CDE);

CBE:=CJE+CDE;

gotoxy(col+3,row+15);

write('[CBE] ');

gotoxy(col+39,row+15);

write(CBE);

If Ucb < (VJC / 2) then CJC := CJC0 * 1 / st(1- Ucb/VJC,MJC)

else CJC := 2 * st(2,MJC) * CJC0 * (MJC * Ucb / VJC / 2 + 1 - MJC);

gotoxy(col+3,row+16);

write('[CJC] ');

gotoxy(col+39,row+16);

write(CJC);

If Icb > 0 then CDC := Icb * BR * TAUR / FIt

else CDC := 0;

gotoxy(col+3,row+17);

write('[CDC] ');

gotoxy(col+39,row+17);

write(CDC);

CBC := CJC + CDC;