Будь умным!

У вас вопросы?
У нас ответы:) SamZan.net

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

Работа добавлена на сайт samzan.net:

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Имя

Выберите тип работы:

Принимаю Политику конфиденциальности

Скидка 25% при заказе до 9.11.2024

Program bipolar;

uses {wincrt,windos}crt,dos,graph;

Label 1;

var

t1,t2,t3,t4,

Uc, Uccs, Ucb, Uec, Ueb, VA, VJC, VJE,

Is0, Is, Ieb, Icb ,Ib ,Ic, Iy,Ik,Ie,{Ib1,}

CJC0, CJE0, CBE, CJE, CDE, CBC, CJC, CDC,

RB,RC,RJ,

T, TNOM, TCB,

Kyf,a,BF, BR, EG, TAUF, TAUR, MJC, MJE, CCS, K, FIt, q,expon: extended;

ii,col,row:integer; { real }

an,key:char;

function st(a:extended; b:extended):extended;

begin

if b<0 then

begin

if (-1*b * ln(a)) < 1.1356523e4 then

begin

st:=1/ (exp((-1*b) * ln(a)));

end

else st:= 1;

end

else

begin

if (b * ln(a)) > 1.1356523e4 then

begin

st:=1e4000;

end

else

begin

st:=exp((b) * ln(a));

end;

end;

end;

Procedure Model(Ueb,Ucb:extended;var Ieb,Icb,Ib,Iy:extended);

Begin

If Ueb > Uc then

begin

Ieb := 1 / BF * (Ic+ (Ueb - Uc) / RJ );

end

else

begin

Ieb :=1 / BF * Is * (st(expon,Ueb / FIt) -1);

end;

If Ucb > Uc then

begin

Icb:= 1/BR * (Ic + (Ucb-Uc)/RJ);

end

else

begin

{ if (st(expon,(Ucb/FIt))-1) < 1e4800/(1/BR * Is) then}

begin

Icb:= 1/BR * Is* (st(expon, Ucb/FIt)-1);

end

{ else Icb:= 1e4800;}

end;

Ib:= Ieb + Icb;

Iy:= Ieb*BF - Icb*BR;

end;

procedure InputTrans;

Label 1,2,3;

begin

clrscr;

BF:=75;

BR:= 0.3;

TCB:=2500;

Is0:=3.5e-15;

EG:=1.11;

CJC0:=4e-12;

CJE0:=1.2e-12;

RB:=67;

RC:=7.3;

VA:=102;

TAUF:=9.4e-11;

TAUR:=6.692e-8;

MJC:=0.33;

VJC:=0.65;

MJE:=0.69;

VJE:=0.69;

CCS:=1e-12;

RJ:=0.01;

writeln(' It is default parameters of transistor KT316B (Y/N) ');

gotoxy(col+3,row+3);

write('[Forward beta] ');

gotoxy(col+39,row+3);

write(BF);

gotoxy(col+3,row+4);

write('[Revers beta] ');

gotoxy(col+39,row+4);

write(BR);

gotoxy(col+3,row+5);

write('[Temp. coef. of BETTA (PPM)] ');

gotoxy(col+39,row+5);

write(TCB);

gotoxy(col+3,row+6);

write('[Saturation Current] ');

gotoxy(col+39,row+6);

write(Is0);

gotoxy(col+3,row+7);

write('[Energy gap (0.6 to 1.3)] ');

gotoxy(col+39,row+7);

write(EG);

EG:=EG*1.6e-19;

gotoxy(col+3,row+8);

write('[CJC0] ');

gotoxy(col+39,row+8);

write(CJC0);

gotoxy(col+3,row+9);

write('[CJE0] ');

gotoxy(col+39,row+9);

write(CJE0);

gotoxy(col+3,row+10);

write('[Base resistance] ');

gotoxy(col+39,row+10);

write(RB);

gotoxy(col+3,row+11);

write('[Collector resistance] ');

gotoxy(col+39,row+11);

write(RC);

gotoxy(col+3,row+12);

write('[Early Valtage] ');

gotoxy(col+39,row+12);

write(VA);

gotoxy(col+3,row+13);

write('[TAU forward] ');

gotoxy(col+39,row+13);

write(TAUF);

gotoxy(col+3,row+14);

write('[TAU reverse] ');

gotoxy(col+39,row+14);

write(TAUR);

gotoxy(col+3,row+15);

write('[MJC] ');

gotoxy(col+39,row+15);

write(MJC);

gotoxy(col+3,row+16);

write('[VJC] ');

gotoxy(col+39,row+16);

write(VJC);

gotoxy(col+3,row+17);

write('[MJE] ');

gotoxy(col+39,row+17);

write(MJE);

gotoxy(col+3,row+18);

write('[VJE] ');

gotoxy(col+39,row+18);

write(VJE);

gotoxy(col+3,row+19);

write('[CSUB] ');

gotoxy(col+39,row+19);

write(CCS);

gotoxy(col+3,row+20);

write('[Minimum junction resistance] ');

gotoxy(col+39,row+20);

write(RJ);

gotoxy(col+6,row+25);

write('Accept parameters of transistor (Y/N) ');

an:=readkey;

case an of 'y': goto 3; {writeln('F1'); }

'Y': goto 3; {writeln('F2'); }

'n': goto 2; {writeln('F2'); }

'N': goto 2; {writeln('F2'); }

else

begin

sound(500);

delay(1000);

nosound;

goto 1;

end;

end;

2: clrscr;

gotoxy(col+25,row+1);

write('Input next parameters of transistor');

gotoxy(col+3,row+3);

write('[Forward beta] ');

gotoxy(col+40,row+3);

read(BF);

gotoxy(col+39,row+3);

write(BF);

gotoxy(col+3,row+4);

write('[Revers beta] ');

gotoxy(col+40,row+4);

read(BR);

gotoxy(col+39,row+4);

write(BR);

gotoxy(col+3,row+5);

write('[Temp. coef. of BETTA (PPM)] ');

gotoxy(col+40,row+5);

read(TCB);

gotoxy(col+39,row+5);

write(TCB);

gotoxy(col+3,row+6);

write('[Saturation Current] ');

gotoxy(col+40,row+6);

read(Is0);

gotoxy(col+39,row+6);

write(Is0);

gotoxy(col+3,row+7);

write('[Energy gap (0.6 to 1.3)] ');

gotoxy(col+40,row+7);

read(EG);

gotoxy(col+39,row+7);

write(EG);

gotoxy(col+3,row+8);

write('[CJC0] ');

gotoxy(col+40,row+8);

read(CJC0);

gotoxy(col+39,row+8);

write(CJC0);

gotoxy(col+3,row+9);

write('[CJE0] ');

gotoxy(col+40,row+9);

read(CJE0);

gotoxy(col+39,row+9);

write(CJE0);

gotoxy(col+3,row+10);

write('[Base resistance] ');

gotoxy(col+40,row+10);

read(RB);

gotoxy(col+39,row+10);

write(RB);

gotoxy(col+3,row+11);

write('[Collector resistance] ');

gotoxy(col+40,row+11);

read(RC);

gotoxy(col+39,row+11);

write(RC);

gotoxy(col+3,row+12);

write('[Early Valtage] ');

gotoxy(col+40,row+12);

read(VA);

gotoxy(col+39,row+12);

write(VA);

gotoxy(col+3,row+13);

write('[TAU forward] ');

gotoxy(col+40,row+13);

read(TAUF);

gotoxy(col+39,row+13);

write(TAUF);

gotoxy(col+3,row+14);

write('[TAU reverse] ');

gotoxy(col+40,row+14);

read(TAUR);

gotoxy(col+39,row+14);

write(TAUR);

gotoxy(col+3,row+15);

write('[MJC] ');

gotoxy(col+40,row+15);

read(MJC);

gotoxy(col+39,row+15);

write(MJC);

gotoxy(col+3,row+16);

write('[VJC] ');

gotoxy(col+40,row+16);

read(VJC);

gotoxy(col+39,row+16);

write(VJC);

gotoxy(col+3,row+17);

write('[MJE] ');

gotoxy(col+40,row+17);

read(MJE);

gotoxy(col+39,row+17);

write(MJE);

gotoxy(col+3,row+18);

write('[VJE] ');

gotoxy(col+40,row+18);

read(VJE);

gotoxy(col+39,row+18);

write(VJE);

gotoxy(col+3,row+19);

write('[CSUB] ');

gotoxy(col+40,row+19);

read(CCS);

gotoxy(col+39,row+19);

write(CCS);

gotoxy(col+3,row+20);

write('[Minimum junction resistance] ');

gotoxy(col+40,row+20);

read(RJ);

gotoxy(col+39,row+20);

write(RJ);

writeln;

1: gotoxy(col+6,row+25);

write('Accept parameters of transistor (Y/N) ');

an:=readkey;

case an of 'y': goto 3; {writeln('F1'); }

'Y': goto 3; {writeln('F2'); }

'n': goto 2; {writeln('F2'); }

'N': goto 2; {writeln('F2'); }

else

begin

sound(500);

delay(1000);

nosound;

goto 1;

end;

end;

3:;

end;

Procedure InputCurrent;

Label 1,2,3;

begin

clrscr;

TNOM:=27;

T:=21;

Ueb:=0.8;

Uec:=2;

Ucb:=-1.2;

gotoxy(col+25,row+1);

write(' Default parameters');

gotoxy(col+3,row+3);

write('[Nominal temperature (C)] ');

gotoxy(col+39,row+3);

write(TNOM);

gotoxy(col+3,row+4);

write('[Current temperature (C)] ');

gotoxy(col+39,row+4);

write(T);

gotoxy(col+3,row+5);

write('[Emitter-Base voltage] ');

gotoxy(col+39,row+5);

write(Ueb);

gotoxy(col+3,row+6);

write('[Emitter-Collector voltage] ');

gotoxy(col+39,row+6);

write(Uec);

gotoxy(col+3,row+7);

write('[Collector-Base voltage] ');

gotoxy(col+39,row+7);

write(Ucb);

1: gotoxy(col+6,row+25);

write('Accept current parameters (Y/N) ');

an:=readkey;

case an of 'y': goto 3; {writeln('F1'); }

'Y': goto 3; {writeln('F2'); }

'n': goto 2; {writeln('F2'); }

'N': goto 2; {writeln('F2'); }

else

begin

sound(500);

delay(1000);

nosound;

goto 1;

end;

end;

2: clrscr;

gotoxy(col+20,row+2);

write('Input next current parameters');

gotoxy(col+3,row+3);

write('[Nominal temperature (C)] ');

gotoxy(col+40,row+3);

read(TNOM);

gotoxy(col+39,row+3);

write(TNOM);

gotoxy(col+3,row+4);

write('[Current temperature (C)] ');

gotoxy(col+40,row+4);

read(T);

gotoxy(col+39,row+4);

write(T);

gotoxy(col+3,row+5);

write('[Emitter-Base voltage] ');

gotoxy(col+40,row+5);

read(Ueb);

gotoxy(col+39,row+5);

write(Ueb);

gotoxy(col+3,row+6);

write('[Emitter-Collector voltage] ');

gotoxy(col+40,row+6);

read(Uec);

gotoxy(col+39,row+6);

write(Uec);

if (Ueb = 0) or (Uec = 0) then

begin

gotoxy(col+3,row+7);

write('[Collector-Base voltage] ');

gotoxy(col+40,row+7);

read(Ucb);

gotoxy(col+39,row+7);

write(Ucb);

if Uec <> 0 then

begin

Ueb := Uec + Ucb;

gotoxy(col+39,row+5);

write(Ueb);

end

else

begin

Uec := Ueb - Ucb;

gotoxy(col+39,row+6);

write(Uec);

end;

goto 1;

end;

Ucb := -(Uec - Ueb);

gotoxy(col+3,row+7);

write('[Collector-Base voltage] ');

gotoxy(col+39,row+7);

write(Ucb);

3: TNOM:=TNOM+273.15;

T:=T+273.15;

BF:=BF*(1+(T-TNOM)*TCB*10e-6);

BR:=BR*(1+(T-TNOM)*TCB*10e-6);

gotoxy(col+39,row+8);

end;

procedure OutputResult;

begin

clrscr;

writeln(' It is result ');

K:=1.38e-23;

q:=1.6e-19;

expon:=exp(1.0);

FIt:=K*T/q;

gotoxy(col+3,row+3);

write('[FIt] ');

gotoxy(col+39,row+3);

write(FIt);

t1:=Is0 * (1+ Uec/VA);

t2:=st(T/TNOM,3);

t3:=-EG/K*(1/T-1/TNOM);

t4:=st(expon,-EG/K*(1/T-1/TNOM));

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

gotoxy(col+3,row+4);

write('[Is]');

gotoxy(col+39,row+4);

write(Is);

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

gotoxy(col+3,row+5);

write('[Uc] ');

gotoxy(col+39,row+5);

write(Uc);

if (st(expon,(Uec/FIt))-1) < 1e4800/Is then

begin

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

end

else Ic:= 1e4800;

gotoxy(col+3,row+6);

write('[Ic]');

gotoxy(col+39,row+6);

write(Ic);

Model(Ueb,Ucb,Ieb,Icb,Ib,Iy);

gotoxy(col+3,row+7);

write('[Ieb] ');

gotoxy(col+39,row+7);

write(Ieb);

gotoxy(col+3,row+8);

write('[Icb] ');

gotoxy(col+39,row+8);

write(Icb);

gotoxy(col+3,row+9);

write('[Ib] ');

gotoxy(col+39,row+9);

write(Ib);

gotoxy(col+3,row+10);

write('[Iy] ');

gotoxy(col+39,row+10);

write(Iy);

Ik:=Iy-Icb;

gotoxy(col+3,row+11);

write('[Ik] ');

gotoxy(col+39,row+11);

write(Ik);

Ie:=Iy+Ieb;

gotoxy(col+3,row+12);

write('[Ie] ');

gotoxy(col+39,row+12);

write(Ie);

If Ueb < VJE/2 then

begin

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

end

else

begin

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

end;

gotoxy(col+3,row+13);

write('[CJE] ');

gotoxy(col+39,row+13);

write(CJE);

If Ieb > 0 then

begin

CDE := Ieb * BF * TAUF / FIt;

end

else

begin

CDE := 0;

end;

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

begin

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

end

else

begin

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

end;

gotoxy(col+3,row+16);

write('[CJC] ');

gotoxy(col+39,row+16);

write(CJC);

If Icb > 0 then

begin

CDC := Icb * BR * TAUR / FIt;

end

else

begin

CDC := 0;

end;

gotoxy(col+3,row+17);

write('[CDC] ');

gotoxy(col+39,row+17);

write(CDC);

CBC := CJC + CDC;

gotoxy(col+3,row+18);

write('[CBC] ');

gotoxy(col+39,row+18);

write(CBC);

gotoxy(col+6,row+25);

write('Pres any key to Main menu ');

readkey;

end;

procedure IGraph;

var

grDriver: Integer;

grMode: Integer;

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:=350;

Kyf:=0;

OutTextXY(250,10,'Graphic Ib=f(-Ueb)');

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

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

setcolor(0);

LineTo(x0+200, y0-300);

setcolor(2);

for i:=200 downto -200 do

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;

grMode: Integer;

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

{ Model(Ueb,Ueb-Uec,Ieb,Icb,Ib,Iy);

Ik:=Iy-Icb;

Kyf:=abs(300/Ik);

Str(Ik,stro1);

Str(Uec,stro2);}

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;

if 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+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;

begin

textbackground(1);

textcolor(14);

col:=-2;

row:=0;

repeat

clrscr;

writeln(' Mogel p-n-p transistor Eabers-Mol whith 1 SIDI');

writeln;

writeln(' Main menu');

writeln;

writeln('1: Input parameters of transistor');

writeln('2: Input current parameters');

writeln('3: Output text result');

writeln('4: Input-graphic result');

writeln('5: Output-graphic result');

writeln('ECS:exit');

key:=Readkey;

case key of '1': InputTrans;

'2': InputCurrent;

'3': OutputResult;

'4': IGraph;

'5': OGraph;

#27: halt ;

else

begin

sound(500);

delay(1000);

nosound;

end;

end;

until key=#27;

{row:=28;}

{donewincrt;}

end.

1. Public reltions Поведения специалиста по СО основываются на том что любые действия должны соответствовать мора
2. Транзисторды~ активті режимі дегеніміз ~
3. Статья- Экономическая основа рационального природопользования
4. ЗАДАНИЕ 1. Дайте определение Спорт в его узком и широком смыслах.
5. Экология ж~не т~ра~ты даму Топтар ФСТИМ 1214; СТР1215 ~~у формасы ж~не тілі ~ к~ндізгі каза~ша Кур
6. тема нормативного регулирования учёта затрат на содержание основных средств
7. Заголовок Оголошення
8. Реферат Туристские перспективы строительства спортивного гоночного комплекса класса Формула 1 в России
9. Контрольная работа- Политика и власть, типы избирательных систем
10. Diferensil t~nlikl~rd~n bu modell~ri t~dqiq etm~k ’n ehtiml v~ vrisiy ~sullr~ndn potensillr n~z~riyy~sind~n v~ b~q ~sullrdn istifd~ olunur.html
11. Расчет привода поперечно-строгального станка
12. Контрольная работа- Формирование целей организации - кондитерский цех
13. QSPM Ключевые факторы Стратегические альтернати
14. Тема Основи віршування Поняття про віршовану й прозову мови спільне й відмінне між ними
15. Спартак Игрок Голы Яковчик В
16. Шпет Скептик и его душаЭтюд по философской интерпретации Мышление уже имеет некоторую историю к
17. Горообразование и образование рельефа
18. Теоретические аспекты учета затрат и калькулирования себестоимости продукции организации
19. тема ценообразования в экономике Неоклассический подход А
20. А як виду спорту; підвищення ефективності навчальноспортивної роботи у спортивних секціях спортивних к

Материалы собраны группой SamZan и находятся в свободном доступе