Предыдущая страница реферата | 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

Поделитесь этой записью или добавьте в закладки