Автоматизированный расчет выпрямительного устройства.

При составлении алгоритма автоматизированного выбора и расчета выпрямительного устройства следует ориентироваться на материал, изложенный в пункте 3.1.

Так при токе менее 0,01А используется емкостной фильтр, при токе более 10А – индуктивный фильтр, при токе 0,01 ÷ 10A в зависимости от коэффициента сглаживания – одно- или двухзвенный RC- или LC-фильтр. При этом выбор RC- или LC-фильтра производится после расчета их параметров и определения величин ΔЭ и ΔЦ, где ΔЭ(р.) – стоимость потерь электроэнергии на активном сопротивлении RC-фильтра за 10 лет его работы: ΔЭ = I₀² ∙R∙365∙24∙10∙2∙10^-5;

ΔЦ(р.) – разница в стоимостях RC- и LC-фильтров, принимая равной стоимости индуктивности LC-фильтра и определяется по формуле: ΔЦ = α∙L,

где L – индуктивность, Гн;

α – стоимость индуктивности величиной в 1 Гн (α = 10 р.).

После выбора фильтра и определения его параметров производится расчет выпрямительной схемы.

Алгоритм для автоматизированного расчета выпрямительного устройства представлен на рисунке 3.2.

Список идентификаторов:

uo, io ® U₀, I₀ – напряжение и ток на нагрузке;

n, f ® n, f – число фаз и частота;

ksgl ® K_сгл – коэффициент сглаживания;

kp ® K_п – коэффициент пульсации;

kpn ® К_пн – коэффициент пульсации на нагрузке;

r,l,c - R,L,C – элементы схемы;

de ® DЭ = I₀^2.R^.365^.24^.2^.10^-5;

dc ® DЦ = α^.L = 10L;

PR1 - подпрограмма вычисления параметров

С-фильтра;

PR2 - подпрограмма вычисления параметров

L-фильтра;

PR3 - подпрограмма вычисления параметров

двузвенных LC и RC фильтров;

PR4 - подпрограмма вычисления параметров

однозвенных LC и RC фильтров;

PR5 - подпрограмма вычисления параметров

выпрямителя.

Рис. 3.2 Алгоритм для автоматизированного расчета выпрямительного устройства.

Листинг программы на языке Pascal и результат ее выполнения:

PROGRAM Kyrsovoy;

Uses Crt;

Var

uo,io,kpn,f,m,kp,ksgl,r,l,c,ksgl1,dc,de,n: Real;

begin clrscr;

writeln('ВВЕДИТЕ:':36);

writeln;

writeln('Требуемое значение напряжения на нагрузке':53);

write ('Uo=':32); readln(uo);

writeln('Значение тока в нагрузке':44);

write('Io=':32); readln(io);

writeln('Значение коэффициента пульсации':47);

write('Kpn=':33); readln(kpn);

writeln('Частота':35);

write('f=':32); readln(f);

writeln('Количество фаз':39);

write('n=':32); readln(n); m:=n*2;

writeln;

writeln('ПОЛУЧАЕМ:':37);

kp:=2/(m*m-1); ksgl:=kp/kpn;

writeln('Коэффициент сглаживания =':43,ksgl:3:2);

if io<0.01 then begin c:=ksgl*io*(m*m-1)/(4*uo*m*f);

write('C-фильтр: C=':39,c:5:4,'.');

end;

else begin if io>10 then begin

l:=ksgl*uo/(2*3.14*m*f*io);

writeln('L-фильтр: L= ':39,l:3:4,'.');

end;

else begin if ksgl>25 then

begin ksgl1:=sqr(ksgl);

c:=0.001;

l:=(ksgl1+1)/(4*3.14*3.14*m*m*f*f*c);

dc:=2*l*10;

r:=ksgl1/(2*3.14*f*m*c);

de:=io*io*r*365*24*20*0.00001;

if de>dc then

write('Двузвeнный LC фильтр: L1=L2=':37,1:3,';' C1=C2=',c:2:4,'.')

else

write('Двузвeнный RC фильтр: R1=R2=':37,r:3:2,'; ','C1=C2=',c:2:4,');

end;

else begin;

c:=0.001;

l:=(ksgl+l)/(4*m*m*3.14*3.14*f*f*c);

r:=ksgl/(2*3.14*f*m*c); end

else begin;

dc:=10*l;

de:=io*io*r*365*24*10*2*0.00001;

if de>dc then

write('Однозвенный LC фильтр: L=':37,l:3:2,'; ','C= ',c:5:4,')

else write ('Однозвенный RC фильтр: R= ':37,r: 3:2,'; ','C=',c:3:2,'.');

end;

end;

writeln;writeln;

writeln('ПРОГРАММА ЗАВЕРШЕНА НАЖМИТЕ ЛЮБУЮ КЛАВИШУ!':56);

REPEAT UNTIL KEYPRESSED

end.

ВВЕДИТЕ:

Требуемое значение напряжения на нагрузке

Uo=35

Значение тока в нагрузке

Io=35

Значение коэффициента пульсации

Kpn=0.003

Частоту

f=50

Количество фаз

n=3

ПОЛУЧАЕМ:

Коэффициент сглаживания =19.05

L-фильтр: L= 0.0101.

ПРОГРАММА ЗАВЕРШЕНА НАЖМИТЕ ЛЮБУЮ КЛАВИШУ!

---

Дата добавления: 2015-10-21