Читать диплом по всему другому: "Построение графиков переходного процесса в электрических цепях" Страница 2

(Назад) (Cкачать работу)

: = '';(nom+1);(v);:=xt1+1;

: = ((y0)-20)/max;: = (xmax-x0-2*m)/k;

: = round(chisloy*(fmas[nom,v-1]));: = round(chisloy*(fmas[nom,v]));(x0+round(xt1*chislox),round(y0-yt),x0+round(xt1*chislox+chislox),round(y0-yt1));

_y: = m/chisloy;(kletka_y:5:3,st); str(nom,st1);:='setka_no_y_'+st1+'='+st+fNadpis[nom];(x0+250,20*nom, st);(1);:=m/(chislox*10);(t1:3:0,st); st: = 'setka_no_Ox = '+st+fnadpis[1];(x0+450,20,st);fmas[nom,1] 0 then(round(fmas[nom, 1]),st1);(3,round(y0-fmas[nom,1]*chisloy), st1);;v >= k;;; vychislenie (var mas_: znach; E_, C_, L_, r_: real; var NadpisNaOs: TNadpis);u1,i1,t,t0,i0,u0,step: real; k1: integer;, W1, gamma, B: real;: = 0;: = 0;: = 0;: = 0;: = 0; : =1/ (2*r_*C_); W0: = 1/ (sqrt (L_*C_)); W1: = sqrt(sqr(W0)-sqr(B));: = arctan (B/W1); step: = 0.0001;[1]: = '-t,mC';[2]: = '-I,A';[3]: = '-U,B';(k1);_[1,k1]: = t;

{Значения тока}

mas_ [2, k1]:=E/ (W1*L)*exp(-B*t)*sin(W1*t);:=E/ (W1*L)*exp (-B*t)*sin (W1*t);

{Значения напряжения}_ [3, k1]:= E+E*(W0/W1)*exp(-B*t)*sin(W1*t-lambda);:= E+E*(W0/W1)*exp(-B*t)*sin(W1*t-lambda);: = t + step;:= t;:= i1;:= u1;t >= 0.07;: = k1;;

openforread (var f:text;coment:string; var flagcons: boolean): boolean;vu: char; filename: string;('Укажите ВУ для чтения ',coment);('1 - клавиатура ');('2 - файл ');('3 - выход ');(vu); flagcons: = false; openforread: = false;vu of

'1': begin: = true;: = true;(f,'con');(f);;

'2': begin('Укажите имя файла для чтения ', coment);

readln (filename);

assign (f, filename);

{$I-}(f);

{$I+}IOresult0 writeln ('Ошибка открытия файла ')

else openforread: = true;;

'3': openforread: = false; writeln ('Нет такого пункта ');

end;vu in ['1'..'3'];;

readfile (var f1:text; flagcons1:boolean;var _E, _C, _L, _r: real);flagcons1('Введите в столбик E, C, L, R')(f1);(f1,_E);(f1,_C);(f1,_L);(f1,_r);not flagcons1('Введено: ');('E= ',_E:1:5,' V');('C= ',_C:1:6,' F');('L= ',_L:1:5,' Kl');('r= ',_r:1:5,' Om');(f1);;

openforwrite (var t:text;var fcons: boolean; com: string): boolean;name: string;vu_: word;

writeln ('Укажите ВУ для записи ',com);

writeln ('1 - экран ');('2 - файл '); ('3 - не записывать ');

readln (vu_); openforwrite: = false; fcons: = false;vu_ of

: begin: = true; fcons: = true;;

: begin

writeln ('Введите имя файла для записи ',com);

readln (name);(t, name);

{$I-}(t);

{$I+}IOresult 0 then writeln ('Ошибка открытия файла для записи ',com)openforwrite: = true;;

: openforwrite: = false;;;

writefile (var t1:text;var writemas:znach;kolvo1:integer;var fcons1:boolean);nom1, j: integer;fcons1 then begin(' t sila toka I naprijenie U');j: = 1 to kolvo1 donom1: = 1 to strok do(writemas[nom1,j]:8:4,' ');;;begin(t1,' t sila toka I naprijenie U');j: = 1 to kolvo1 donom1: = 1 to strok do(t1,writemas[nom1,j]:8:4,' ');(t1);;;;

closefile (var T_: text);(T_);;;openforread (file_,' данных цепи ',flag)(file_, flag, E, C, L, r);(mas, E, C, L, r, Nadpis);openforwrite (file_, flag,'')(file_, mas, Nznach, flag);not flag then closefile (file_);

else writeln('Данные не записаны ');

writeln ('Строить график? Y/N ');

if readkey = 'y' then

begin

writeln ('Нажмите любую клавишу для просмотра изображения ');

readkey;init=0 then: = getmaxx;: = getmaxy;: = round (ym/ 2);: = 20; n: = 4; mashtab: = round (Oy/n);_osi (mashtab, Oy, Ox, xm, ym);_grafic (mas, Oy, Ox, xm, mashtab, Nznach, strok, Nadpis);: = readkey;ord (pres) = 27;;begin('График не построен');;

end;

end

else

begin

Writeln ('Файл для чтения данных не открыт. Конец работы');

readkey;;.

5. Распечатка файла с исходными данными Данные цепи:

- напряжение (U);

.00005 - ёмкость (C);

.01 - индуктивность (L);

- сопротивление (r).6. Распечатка файла с результатами счёта t sila toka I naprijenie U

.0000 0.0000 0.0000

.0001 2.1709 6.5236

.0002 4.2559 17.1380

.0003 6.2155 31.5525

.0004 8.0134 49.4069

.0005 9.6173 70.2801

.0006 10.9993 93.6997

.0007 12.1365 119.1523

.0008 13.0113 146.0945

.0009 13.6115 173.9642

.0010 13.9308 202.1921

.0011 13.9683 230.2131

.0012 13.7290 257.4773

.0013 13.2231 283.4608

.0014 12.4657 307.6753

.0015 11.4769 329.6771

.0016 10.2809 349.0751

.0017 8.9052 365.5373

.0018 7.3808 378.7966

.0019 5.7407 388.6542

.0020 4.0195 394.9826

.0021 2.2530 397.7265

.0022 0.4769 396.9028

.0023 -1.2735 392.5983

.0024 -2.9640 384.9670

.0025 -4.5625 374.2258

.0026 -6.0391 360.6484

.0027 -7.3670 344.5595

.0028 -8.5231 326.3268

.0029 -9.4878 306.3533

.0030 -10.2458 285.0682

.0031 -10.7863 262.9183

.0032 -11.1028 240.3586

.0033 -11.1936 217.8431

.0034 -11.0613 195.8161

.0035 -10.7130 174.7033

.0036 -10.1597 154.9040

.0037 -9.4166 136.7837

.0038 -8.5021 120.6672

.0039 -7.4376 106.8334

.0040 -6.2471 95.5107

.0041 -4.9568 86.8732

.0042 -3.5939 81.0384

.0043 -2.1871 78.0661

.0044

Похожие работы