Автор работы: Пользователь скрыл имя, 21 Мая 2013 в 16:14, реферат
Цель исследования – разработка программы расчета разветвленной электрической цепи синусоидального тока методом проводимостей, позволяющей произвести расчёт основных параметров электрической цепи.
Задачи исследования:
1. Изучение теоретического материала;
2. Расчёт общего и частного случая разветвлённой электрической цепи синусоидального тока;
3. Разработать программу расчёта разветвленной электрической цепи на языке Паскаль.
Введение………………………………………………………………………3
Глава 1. Общие понятия и определения. …………………………………..6
§1.1 Понятие электрической цепи………………………………………. 6
§1.2 Электрические цепи синусоидального тока………………………...10
§1.3 Виды проводимостей………………………......................................16
Глава 2. Примеры расчётов разветвлённых электрических цепей синусоидального тока методом проводимостей…………………………17
§2.1.Общий случай расчёта разветвлённой электрической цепи синусоидального тока методом проводимостей…………………………17
§2.2.Частный случай расчёта разветвлённой электрической цепи синусоидального тока методом проводимостей…………………………20
Глава 3. Программная реализация расчёта разветвлённой электрической цепи синусоидального тока методом проводимостей. ……………………24
§3.1. Листинг-программа………………………………………………….24
Заключение…………………………………………………………………30
Список использованной литературы…………………………………….31
где n- количество ветвей.
Требуется произвести расчёт электрической цепи со смешанным соединением элементов, состоящей из двух параллельных ветвей (рис. 4).
Задано:
Рис. 4. - Электрическая схема
Расчёт производим в следующем порядке:
const U=100; //В, напряжение
MaxN=10; // максимальное количество ветвей
MaxElem=5; // максимальное количество элементов каждого типа в одной ветви
var XL,XC,R,Z,g,b,X,y,Ia,Ip,I,
I_a,I_p,I_,cosfi:real;
j,k: integer; v:real;
N: integer;// количество ветвей
NEl: integer;// количество элементов в каждой ветви
begin
repeat
write('Введите количество ветвей N = ');readln(N);
if N<2 then writeln('Количество ветвей должно быть не менее двух!');
until N>=2;
j:=0; // счетчик кол-ва ветвей
while j<N do
begin
j:=j+1;
//ввод исходных данных по каждой ветви
writeln('Информация по ',j,'-ой ветви:');
write('Введите количество элементов R ');readln(NEl);
k:=0;
while k<NEl do
begin
k:=k+1;
write('R',k,' = '); readln(v);
R[j]:=R[j]+v; // суммируем все сопротивления
end;
write('Введите количество элементов XL ');readln(NEl);
k:=0;
while k<NEl do
begin
k:=k+1;
write('XL',k,' = '); readln(v);
XL[j]:=XL[j]+v;
end;
write('Введите количество элементов XC ');readln(NEl);
k:=0;
while k<NEl do
begin
k:=k+1;
write('XC',k,' = '); readln(v);
XC[j]:=XC[j]+v;
end;
writeln;
end;
//расчет суммарного
реактивного сопротивления
for j:=1 to N do
X[j]:=XL[j]-XC[j];
//расчет каждой ветви
for j:=1 to N do
begin
//полное сопротивление
Z[j]:=sqrt(sqr(R[j])+sqr(X[j])
//активная проводимость
g[j]:=R[j]/sqr(Z[j]);
//реактивная проводимость
b[j]:=X[j]/sqr(Z[j]);
//полная проводимость
y[j]:=1/Z[j];
//активная составляющая тока
Ia[j]:=U*g[j];
//реактивная составляющая тока
Ip[j]:=U*b[j];
//полный ток
I[j]:=U/Z[j];
end;
for j:=2 to N do
//активная проводимость всей цепи
begin
g[1]:=g[1]+g[j];
//реактивная проводимость всей цепи
b[1]:=b[1]+b[j];
end;
//расчет полной проводимости вей цепи
y[1]:=sqrt(sqr(g[1])+sqr(b[1])
//расчет активной
составляющей тока в
I_a:=U*g[1];
//расчет реактивной
составляющей тока в
I_p:=U*b[1];
//расчет полного тока в неразветвлённой части цепи
I_:=U*y[1];
// расчет каждой ветви
for j:=1 to N do
begin
//коэффициенты мощности
cosf[j]:=R[j]/Z[j];
//полная мощность
S[j]:=U*I[j];
//активная мощность
P[j]:=U*I[j]*cosf[j];
//реактивная мощность
Q[j]:=U*Ip[j];
end;
// коэффициент мощности всей цепи
cosfi:=g[1]/y[1];
// полная мощность всей цепи
S[1]:=U*I_;
//активная мощность всей цепи
for j:=2 to N do
P[1]:=P[1]+P[j];
writeln('P=',P[1]:0:3,' Вт');
//реактивная мощность всей цепи
for j:=2 to N do
Q[1]:=Q[1]+Q[j];
writeln('Q=',Q[1]:0:3,' BAp');
if P[1]<>0 then
if Q[1]>0 then writeln('Активно-индуктивный характер цепи')
else writeln('Активно-ёмкостный характер цепи')
else
if Q[1]>0 then writeln('Индуктивный характер цепи')
else writeln('Ёмкостный характер цепи');
end.
В настоящее время почти вся электрическая энергия вырабатывается в виде энергии переменного тока. Поэтому есть необходимость более детального изучения разветвлённых электрических цепей синусоидального (переменного) тока. Исходя из этого, мы можем говорить об актуальности избранной темы научно-исследовательской работы.
В процессе исследования были решены следующие задачи:
Таким образом, поставленная цель дипломной работы достигнута.
Результаты теоретической и практической работы по исследованию разветвлённых электрических цепей синусоидального тока приводят к следующим выводам:
Информация о работе Расчёт разветвлённой электрической цепи синусоидального тока