Математическое моделирование биполярных транзисторов типа p-n-p
| Категория реферата: Рефераты по радиоэлектронике
| Теги реферата: сочинения по картинам, диплом работа
| Добавил(а) на сайт: Lapunov.
Предыдущая страница реферата | 2 3 4 5 6 7 8 9 10 11 12
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);
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
Скачали данный реферат: Saluhov, Vasilisa, Ячиков, Jasinskij, Janushkovskij, Vinokurov, Ulanov, Gnusarev.
Последние просмотренные рефераты на тему: курсовые работы бесплатно, смс сообщения, доклад 8 класс, доклади.
Категории:
Предыдущая страница реферата | 2 3 4 5 6 7 8 9 10 11 12
Главная