Расчёт полного электрического сопротивления участка электрической цепи
Дипломная работа - Физика
Другие дипломы по предмету Физика
Complex);.Re:=c1.Re+c2.Re;.Im:=c1.Im+c2.Im;;MulC(c1,c2: Complex; var C: Complex);.Re:=c1.Re*c2.Re-c1.Im*c2.Im;.Im:=c1.Re*c2.Im+c1.Im*c2.Re;;DivC(c1,c2: Complex; var C: Complex);chisl, znam:real;.Re:=(c1.Re*c2.Re-c1.Im*c2.Im)/(sqr(c2.Re)-sqr(c2.Im));:=c1.Re*c2.Im+c1.Im*c2.Re;:=(sqr(c2.Re)-sqr(c2.Im));.Im:=chisl/znam;;Par(c1,c2: Complex; var C: Complex);m,a: Complex;(c1,c2,a);(c1,c2,m);(m,a,C);;.
)Модуль GRAFIK.PASGrafik;graph;= 100;= array [1..MAX,0..5] of Real;= array [0..5] of String;Simpleplot(data: DataArray; num: integer;SA: StAr);lg(x:real):real;lg(x:real):real;:=ln(x)/ln(10);Simpleplot(data: DataArray; num: integer;SA: StAr);x0=40;=580;=450;=10;, incr:integer;,d,maxd: real;,str2: String;, Craphmode: integer;, y,xp,yp,i,j,s: integer;:= detect;(GraphDriver, Craphmode, '');(x0, y0+5, '0'); { }(0, 50, '50'); { }(xmax-60, y0+5, '5'); { }(x0, y0, x0, ymax);i:=1 to 10 do(x0-2, y0-40*i, x0+2, y0-40*i);(x0, y0, xmax, y0);i:=1 to 5 do(x0+100*i, y0-2, x0+100*i, y0+2);:=data[1,0];j:=0 to 5 do begini:=1 to num do if data[i,j]>max then maxd:=data[i,j];;:=1;:=trunc(lg(maxd))-1;i:=1 to s do d:=d*10;(s:1,Str2);:='*10^'+str2;(0, 60, str1);j:=0 to 4 do begin(13-j);(600, 10+10*j, SA[j]);t:= 2 to num do:= trunc(8*data[t,j]/d);:= trunc(8*data[t-1,j]/d);:= ((t-1)*100)+x0;:= x-100;(xp, y0-yp, x, y0-y);;;;.
)Основная программа CEP.PAScep;graph,Grafik,Compl,Pict;i,j,gd,gm:integer;,r2,c1,c2,l1,l2,f: Real;,cr2,cc1,cc2,cl1,cl2,ct1,ct2,ct3: Complex;: array[0..5,0..5] of Complex;: StAr;: DataArray;(0,0,'r2.bmp',true); {}i:=0 to 10 do Writeln;('Введите начальные данные:');('Значение частоты сети f,Гц f='); Readln(f);('Значение сопpотивления R1,Ом R1='); Readln(r1);('Значение емкости C1,пФ C1='); Readln(c1);('Значение емкости C2,пФ C2='); Readln(c2);('Значение индуктивности L1,мГн L1='); Readln(l1);('Значение индуктивности L2,мГн L2='); Readln(l2);j:=0 to 4 do begini:=0 to 5 do begin.Re:=r1; cr1.Im:=0;.Re:=0; cc1.Im:=-1000000000/(2*pi*f*c1);.Re:=0; cc2.Im:=-1000000000/(2*pi*f*c2);.Re:=0; cl1.Im:=2*pi*f*0.001*l1;.Re:=0; cl2.Im:=2*pi*f*0.001*l2;j of
: cr1.Re:=r1+0.01*i*r1;
: cc1.Im:=-1000000000/(2*pi*f*(c1+0.01*i*c1));
: cc2.Im:=-1000000000/(2*pi*f*(c2+0.01*i*c2));
: cl1.Im:=2*pi*f*0.001*(l1+0.01*i*l1);
: cl2.Im:=2*pi*f*0.001*(l2+0.01*i*l2);;(cl2,cc2,ct1);(ct1,cc1,ct3);(ct3,cr1,ct1);(ct1,cl1,ct2);[i,j].Re:=ct2.Re; Z[i,j].Im:=ct2.Im;;j:=0 to 4 do begini:=1 to 6 do begin[i,j]:=sqrt(sqr(Z[i-1,j].Re)+sqr(Z[i-1,j].Im));;;;('Полное сопpотивление Z=',Z[0,0].re:8:4,'+j',Z[0,0].Im:8:4);('Модуль полного сопpотивления |Z|=',Zr[1,0]:8:4);('Угол сдвига фаз F=',Arctan(Z[0,0].re/Z[0,0].Im):8:4);;[0]:='R1';[1]:='C1';[2]:='C2';[3]:='L1';[4]:='L2';(zr, 6,SA);;;.
Результаты работы программы
(цвета рисунков инвертированы)
)Ввод данных
)Результаты расчёта
)Анализ результатов расчёта