Расчет режима работы электрической цепи» по дисциплине «Основы программирования»

Автор работы: Пользователь скрыл имя, 25 Марта 2013 в 09:21, курсовая работа

Описание работы

Opr_2(a22,a23,a32,a33,d31);
Opr_2(a21,a23,a31,a33,d32);
Opr_2(a21,a22,a31,a32,d33);
proiz(a11,d31,b1);
proiz(a12,d32,b2);

Содержание работы

Титульный лист
Бланк Задания на курсовую работу
Исходные данные и схема принципиальная электрическая заданной цепи (документ Word)
Расчет режима работы цепи в среде MathCAD (не менее четырех способов)
В среде MathCAD методом эквивалентного генератора определить ток в ветви с сопротивлением Z3
Листинг программы Pascal для расчета режима работы цепи

Файлы: 1 файл

Курсовая П.Никитин ЭС-08.doc

— 558.50 Кб (Скачать файл)

 

Министерство  образования и науки РФ

Якутский государственный  университет им. М.К.Аммосова

Физико - технический институт

Кафедра «Электроснабжение»

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 Курсовая работа

 на тему

«Расчет режима работы электрической цепи»

по дисциплине «Основы программирования»

Вариант № 91

 

 

 

 

 

 

 

 

 

Выполнил: студент группы ЭС-08

Никитин Петр Прокопьевич

Проверил: старший преподаватель

Олесов Леонид Александрович

Дата: «___» / ___________ / 2009 год.

 

 

 

 

 

 

 

 

 

 

 

Якутск – 2009 г.

 


МИНИСТЕРСТВО  ОБРАЗОВАНИЯ И НАУКИ РФ

ФИЗИКО-ТЕХНИЧЕСКИЙ ИНСТИТУТ ЯГУ

КАФЕДРА «ЭЛЕКТРОСНАБЖЕНИЕ»

ЗАДАНИЕ

на курсовую работу

по дисциплине «Основы  программирования»

студенту группы ЭС–08

Никитину Петру Прокопьевичу


(фамилия, имя, отчество)

на тему «Расчет режима работы электрической цепи»

Вариант № 91

  Содержание работы:

  1. Титульный лист
  2. Бланк Задания на курсовую работу
  3. Исходные данные и схема принципиальная электрическая заданной цепи (документ Word)
  4. Расчет режима работы цепи в среде MathCAD (не менее четырех способов)
  5. В среде MathCAD методом эквивалентного генератора определить ток в ветви с сопротивлением Z3
  6. Листинг программы Pascal для расчета режима работы цепи

Дата выдачи задания  «    12   »     марта      2009 г.

Преподаватель ___________________Л.А.Олесов

 

   Исходные данные:   

Z1, Ом

Z2, Ом

Z3, Ом

12-j4

14+j6

13+j7

Z4, Ом

Z5, Ом

Z6, Ом

15+j3

16-j5

5+j

E1, В

E1, В

E3, В

21e-j10

17e j50

J1, А

J2, А

J3, А

-

2e-j45

1,5e  j40





   Метод контурных токов


I и II законы Кирхгофа:




 

 


Метод наложения:

 


 

 

 

 

 

 

 

 

 

 

 



 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 


 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

                                        Метод эквивалентного генератора:

 

Находим ток в ветви с сопротивлением Z1:

 

 

 


 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

                                                                      


Метод узловых напряжений.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 


Баланс мощностей.

 

 


Листинг программы Pascal для расчета режима работы цепи:

uses crt, graph;

type

complex=record

x,y:single;

end;

var gd,gm:integer;

d,m:string;

procedure summa(a,b:complex; var c:complex);

begin

c.x:=a.x+b.x;

c.y:=a.y+b.y;

end;

procedure raz(a,b:complex; var c:complex);

begin

c.x:=a.x-b.x;

c.y:=a.y-b.y;

end;

procedure proiz(a,b:complex; var c:complex);

begin

c.x:=a.x*b.x-a.y*b.y;

c.y:=a.x*b.y+a.y*b.x;

end;

procedure chast(a,b:complex; var c:complex);

var m:single;

begin

m:=sqr(b.x)+sqr(b.y);

c.x:=(a.x*b.x+a.y*b.y)/m;

c.y:=(-a.x*b.y+a.y*b.x)/m;

end;

procedure zamena(a:complex; Var c:complex);

begin

c.x:=a.x;

c.y:=-a.y;

end;

procedure Opr_2(a11,a12,a21,a22:complex; var d2:complex);

var d21,d22:complex;

begin

proiz(a11,a22,d21);

proiz(a12,a21,d22);

raz(d21,d22,d2);

end;

procedure Opr_3(a11,a12,a13,a21,a22,a23,a31,a32,a33:complex;var d3:complex);

var d31,d32,d33,b1,b2,b3,b11:complex;

begin

Opr_2(a22,a23,a32,a33,d31);

Opr_2(a21,a23,a31,a33,d32);

Opr_2(a21,a22,a31,a32,d33);

proiz(a11,d31,b1);

proiz(a12,d32,b2);

proiz(a13,d33,b3);

raz(b1,b2,b11);

summa(b11,b3,d3);

end;

var U1,U2,U3,U4,U5,U6,S1,S2,S3,S4,S5,S6,Z1,Z2,Z3,Z4,Z5,Z6,J6,J3,E2,E3,q,

t,t1,t2,t3,t4,t5,t6:complex;

q1,q2,q3,q4,q5,q6,d4,d41,d42,d43,I11,I22,I33,I1,I2,I3,I4,I5,I6,

h1,h2,h3,h4,h5,h6,S11,g1,g2,g3,g4,g11,

g22,S22,p22,p33,x1,x2,x3,x4,w1,w2,w3,w4,w5:complex;

S13,S23:complex;

begin

 

 

 

 

 

Clrscr;

 

Z1.x:=14;Z1.y:=-6;

Z2.x:=13; Z2.y:=5;

Z3.x:=9; Z3.y:=2;


Z4.x:=10; Z4.y:=-3;

Z5.x:=15;Z5.y:=4;

Z6.x:=16;Z6.y:=2;

q.x:=0;q.y:=0;

E2.x:=16*cos(-25*pi/180);

E2.y:=16*sin(-25*pi/180);

E3.x:=8*cos(20*pi/180);

E3.y:=8*sin(20*pi/180);

J3.x:=2.7*cos(-15*pi/180);

J3.y:=2.7*sin(-15*pi/180);

J6.x:=1.2*cos(90*pi/180);

J6.y:=1.2*sin(90*pi/180);

readln;

summa(Z4,Z5,q1);

summa(q1,Z3,q2);

summa(Z1,Z3,q3);

summa(q3,Z6,q4);

summa(Z2,Z1,q5);

summa(q5,Z5,q6);

proiz(J3,Z3,t1);

raz(E3,t1,t2);

proiz(J6,Z6,t3);

summa(E3,t3,t4);

raz(t4,t1,t5);

raz(q,Z1,t);

Opr_3(q2,Z3,Z5,Z3,q4,t,Z5,t,q6,d4);

Opr_3(t2,Z3,Z5,t5,q4,t,E2,t,q6,d41);

Opr_3(q2,t2,Z5,Z3,t5,t,Z5,E2,q6,d42);

Opr_3(q2,Z3,t2,Z3,q4,t5,Z5,t,E2,d43);

chast(d41,d4,I11);

chast(d42,d4,I22);

chast(d43,d4,I33);

summa(I22,I33,I1);

raz(I33,I22,I1);

raz(q,I11,t6);

raz(t6,I33,I5);

raz(t6,I22,I3);

I2:=I33;

I4:=I11;

I6:=I22;

if I1.y>0 then writeln('I1=',I1.x:6:3,'+j',I1.y:6:3)

else writeln('I1=',I1.x:6:3,'-j',abs(I1.y):6:3);

if I2.y>0 then writeln('I2=',I2.x:6:3,'+j',I2.y:6:3)

else writeln('I2=',I2.x:6:3,'-j',abs(I2.y):6:3);

if I3.y>0 then writeln('I3=',I3.x:6:3,'+j',I3.y:6:3)

else writeln('I3=',I3.x:6:3,'-j',abs(I3.y):6:3);

if I4.y>0 then writeln('I4=',I4.x:6:3,'+j',I4.y:6:3)

else writeln('I4=',I4.x:6:3,'-j',abs(I4.y):6:3);

if I5.y>0 then writeln('I5=',I5.x:6:3,'+j',I5.y:6:3)

else writeln('I5=',I5.x:6:3,'-j',abs(I5.y):6:3);

if I6.y>0 then writeln('I6=',I6.x:6:3,'+j',I6.y:6:3)

else writeln('I6=',I6.x:6:3,'-j',abs(I6.y):6:3);

 

 

 

 

 

 

 

 

 

 

 

 

raz(J3,I3,p22);

raz(J6,I6,p33);

 

proiz(Z1,I1,U1);

proiz(Z2,I2,U2);

proiz(Z3,p22,U3);

proiz(Z4,I4,U4);

proiz(Z5,I5,U5);

proiz(Z6,p33,U6);


zamena(I3,I3);

zamena(I6,I6);

ZAMENA(I1,I1);

ZAMENA(I2,I2);

ZAMENA(p22,p22);

ZAMENA(I4,I4);

ZAMENA(I5,I5);

ZAMENA(p33,p33);

proiz(U1,I1,S1);

proiz(U2,I2,S2);

proiz(U3,p22,S3);

proiz(U4,I4,S4);

proiz(U5,I5,S5);

proiz(U6,p33,S6);

if U1.y>0 then writeln('U1=',U1.x:6:3,'+j',U1.y:6:3)

else writeln('U1=',U1.x:6:3,'-j',abs(U1.y):6:3);

if U2.y>0 then writeln('U2=',U2.x:6:3,'+j',U2.y:6:3)

else writeln('U2=',U2.x:6:3,'-j',abs(U2.y):6:3);

if U3.y>0 then writeln('U3=',U3.x:6:3,'+j',U3.y:6:3)

else writeln('U3=',U3.x:6:3,'-j',abs(U3.y):6:3);

if U4.y>0 then writeln('U4=',U4.x:6:3,'+j',U4.y:6:3)

else writeln('U4=',U4.x:6:3,'-j',abs(U4.y):6:3);

if U5.y>0 then writeln('U5=',U5.x:6:3,'+j',U5.y:6:3)

else writeln('U5=',U5.x:6:3,'-j',abs(U5.y):6:3);

if U6.y>0 then writeln('U6=',U6.x:6:3,'+j',U6.y:6:3)

else writeln('U6=',U6.x:6:3,'-j',abs(U6.y):6:3);

if S1.y>0 then writeln('S1=',S1.x:6:3,'+j',S1.y:6:3)

else writeln('S1=',S1.x:6:3,'-j',abs(S1.y):6:3);

if S2.y>0 then writeln('S2=',S2.x:6:3,'+j',S2.y:6:3)

else writeln('S2=',S2.x:6:3,'-j',abs(S2.y):6:3);

if S3.y>0 then writeln('S3=',S3.x:6:3,'+j',S3.y:6:3)

else writeln('S3=',S3.x:6:3,'-j',abs(S3.y):6:3);

if S4.y>0 then writeln('S4=',S4.x:6:3,'+j',S4.y:6:3)

else writeln('S4=',S4.x:6:3,'-j',abs(S4.y):6:3);

if S5.y>0 then writeln('S5=',S5.x:6:3,'+j',S5.y:6:3)

else writeln('S5=',S5.x:6:3,'-j',abs(S5.y):6:3);

if S6.y>0 then writeln('S6=',S6.x:6:3,'+j',S6.y:6:3)

else writeln('S6=',S6.x:6:3,'-j',abs(S6.y):6:3);

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

zamena(J6,J6);

zamena(J3,J3);

proiz(J3,U3,x1);

proiz(J6,U6,x2);

proiz(E2,I2,w1);

proiz(E3,I3,w2);

raz(w1,w2,w3);

summa(w3,x1,w5);

summa(w5,x2,S11);

summa(S1,S2,g1);

summa(g1,S3,g2);

summa(g2,S4,g3);

summa(g3,S5,g4);

summa(g4,S6,S22);

if S11.y>0 then writeln('S11=',S11.x:6:3,'+j',S11.y:6:3) else writeln('S11=',S11.x:6:3,'-j',abs(S11.y):6:3);

if S22.y>0 then writeln('S22=',S22.x:6:3,'+j',S22.y:6:3) else writeln('S22=',S22.x:6:3,'-j',abs(S22.y):6:3);

ZAMENA(I1,I1);

ZAMENA(I2,I2);

ZAMENA(I3,I3);

ZAMENA(I4,I4);

ZAMENA(I5,I5);

ZAMENA(I6,I6);

readln;

begin

gd:=detect;

initgraph(gd,gm,'C:\TP7.1\BGI');

circle(10,100,2);


floodfill(10,100,15);

circle(90,100,2);

floodfill(90,100,15);

circle(160,100,2);

floodfill(160,100,15);

circle(180,100,2);

floodfill(180,100,15);

circle(280,100,2);

floodfill(280,100,15);

circle(10,220,2);

floodfill(10,220,15);

circle(80,250,2);

floodfill(80,250,15);

circle(180,250,2);

floodfill(180,250,15);

circle(10,100,2);

floodfill(10,100,15);

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

{Z1}

rectangle(175,160,185,190);

outtextxy(160,160,'Z1');

line(160,170,172,170);

{Z2}

rectangle(210,245,240,255);

outtextxy(210,260,'Z2');

line(210,270,225,270);

{Z3}

rectangle(110,95,140,105);

outtextxy(110,110,'Z3');

line(110,120,123,120);

{Z4}

rectangle(110,5,140,15);

outtextxy(100,17,'Z4');

line(100,25,114,25);

{Z5}

rectangle(210,95,240,105);

outtextxy(210,80,'Z5');

line(210,90,223,90);

{Z6}

rectangle(30,245,60,255);

outtextxy(30,260,'Z6');

line(30,270,43,270);

{E2}

circle(280,175,15);

line(280,170,280,180);

line(280,180,277,175);

line(280,180,283,175);

outtextxy(295,160,'E2');

fillellipse(298,155,1,1);

{E3}

circle(45,100,15);

line(40,100,50,100);

line(50,100,45,97);

line(50,100,45,103);

outtextxy(50,70,'E3');

fillellipse(53,65,1,1);

{J3}

circle(125,70,15);

line(120,70,125,67);

line(120,70,125,73);

line(125,70,130,67);

line(125,70,130,73);

outtextxy(95,78,'J3');

fillellipse(100,73,1,1);

 

 

 

 

 

 

 


Информация о работе Расчет режима работы электрической цепи» по дисциплине «Основы программирования»