Реферат по предмету "Производство"

  1. Главная
  2. Рефераты
  3. Производство
Узнать цену реферата по вашей теме

Программный комплекс расчета и моделирования катушки управления электромагнита постоянного тока

--PAGE_BREAK--Алгоритмы и программа расчета обмотки управления
                                     

 



Рис. 3 — Расчет минимальной толщины ОУ (а)

                   и коэффициента теплоотдачи (б)








 Программа расчета обмотки управления.

 programkr;

 uses graph, crt;

 const m0=4*3.1415926535897932385*0.00000010;pi=3.1415926535897932385;n1=33;

 label 2,3,4,5,6,7,8,9,10,12,14,15,16,25,26,20,29;

 var F,Unom,Umax,Umin,dc,e1,e2,h,Sn,km,y1,y2,dh,dx,pgor,Tdop,T0,T,T1,Ta,Tb,

 kz,Q,Soxl,lcp,km1,l,n,d0,m,avn,p0,a,hnp,Svn,ha,hb,z,dp,R,W,dci,e,P,Rxc,Rgc,

 t1dop,Pp,Ik:real;

 D1,D,K:array[1..n1] of real; i,j:integer;

 begin

 clrscr;

 {ishodnie dannie}

 F:=4800;Unom:=110;dc:=24*0.001;Tdop:=105;T0:=40;

 n:=1;Umax:=1.15*Unom;Umin:=0.9*Unom;kz:=0.5;m:=5;

 avn:=1.7; p0:=1.62*0.00000001;a:=4.3*0.001; d0:=dc+0.0001;

 pgor:=p0*(1+a*Tdop);

 t1dop:=Tdop-T0;
 {Raschet minimalnih razmerov OU metodom polovinnogo delenia}

 {write('vvedite ha:= ');readln(ha);

 write('vvedite hb:= ');readln(hb);}

 ha:=0.001;hb:=0.100;

 e1:=0.000001;e2:=0.000001; T:=Tdop;

 5:

 h:=ha;

 l:=m*h;

 Sn:=pi*(d0+2*h)*l;

 Svn:=pi*d0*l;

 Q:=h*l;

 Soxl:= Sn+avn*Svn;

 lcp:=pi*(d0+h);

 if (Soxl>=0.0001) and (Soxl

 if (Soxl>0.01) and (Soxl

 if Soxl>0.5 then goto 2;

 if Soxl

 y1:=sqr(Umax/Umin)*sqr(F)*pgor/n/km/t1dop/kz-Q*Soxl/lcp;

 h:=(ha+hb)/2;

 l:=m*h;

 Sn:=pi*(d0+2*h)*l;

 Svn:=pi*d0*l;

 Q:=h*l;

 Soxl:= Sn+avn*Svn;

 lcp:=pi*(d0+h);

 if (Soxl>=0.0001) and (Soxl

 if (Soxl>0.01)and(Soxl

 if Soxl>0.5 then goto 2;

 if Soxl

 y2:=sqr(Umax/Umin)*sqr(F)*pgor/n/km/t1dop/kz-Q*Soxl/lcp;

 if abs(y2)

 if y1*y2

 if abs(hb-ha)
 {Raschet i vibor diametra provoda iz standartnogo rada,raschet parametrov

 OU v holodnom sostoanii}

 4:

 D[1]:=0.050*0.001; K[1]:=0.250;  D1[1]:=0.080*0.001;

 D[2]:=0.063*0.001; K[2]:=0.290;  D1[2]:=0.090*0.001;

 D[3]:=0.071*0.001; K[3]:=0.340;  D1[3]:=0.100*0.001;

 D[4]:=0.080*0.001; K[4]:=0.380;  D1[4]:=0.110*0.001;

 D[5]:=0.090*0.001; K[5]:=0.410;  D1[5]:=0.120*0.001;

 D[6]:=0.100*0.001; K[6]:=0.440;  D1[6]:=0.130*0.001;

 D[7]:=0.112*0.001; K[7]:=0.460;  D1[7]:=0.140*0.001;

 D[8]:=0.125*0.001; K[8]:=0.480;  D1[8]:=0.155*0.001;

 D[9]:=0.140*0.001; K[9]:=0.495;  D1[9]:=0.170*0.001;

 D[10]:=0.160*0.001;K[10]:=0.510;D1[10]:=0.200*0.001;

 D[11]:=0.180*0.001;K[11]:=0.527;D1[11]:=0.220*0.001;

 D[12]:=0.200*0.001;K[12]:=0.538;D1[12]:=0.240*0.001;

 D[13]:=0.224*0.001;K[13]:=0.550;D1[13]:=0.270*0.001;

 D[14]:=0.250*0.001;K[14]:=0.560;D1[14]:=0.300*0.001;

 D[15]:=0.280*0.001;K[15]:=0.572;D1[15]:=0.330*0.001;

 D[16]:=0.315*0.001;K[16]:=0.580;D1[16]:=0.365*0.001;

 D[17]:=0.355*0.001;K[17]:=0.589;D1[17]:=0.415*0.001;

 D[18]:=0.400*0.001;K[18]:=0.597;D1[18]:=0.460*0.001;

 D[19]:=0.450*0.001;K[19]:=0.605;D1[19]:=0.510*0.001;

 D[20]:=0.500*0.001;K[20]:=0.612;D1[20]:=0.570*0.001;

 D[21]:=0.560*0.001;K[21]:=0.618;D1[21]:=0.630*0.001;

 D[22]:=0.630*0.001;K[22]:=0.625;D1[22]:=0.700*0.001;

 D[23]:=0.710*0.001;K[23]:=0.631;D1[23]:=0.790*0.001;

 D[24]:=0.750*0.001;K[24]:=0.634;D1[24]:=0.840*0.001;

 D[25]:=0.800*0.001;K[25]:=0.637;D1[25]:=0.890*0.001;

 D[26]:=0.850*0.001;K[26]:=0.640;D1[26]:=0.940*0.001;

 D[27]:=0.900*0.001;K[27]:=0.643;D1[27]:=0.990*0.001;

 D[28]:=0.950*0.001;K[28]:=0.646;D1[28]:=1.040*0.001;

 D[29]:=1.000*0.001;K[29]:=0.648;D1[29]:=1.100*0.001;

 D[30]:=1.060*0.001;K[30]:=0.650;D1[30]:=1.160*0.001;

 D[31]:=1.120*0.001;K[31]:=0.651;D1[31]:=1.220*0.001;

 D[32]:=1.180*0.001;K[32]:=0.652;D1[32]:=1.280*0.001;

 D[33]:=1.250*0.001;K[33]:=0.652;D1[33]:=1.350*0.001;

 dp:=sqrt(4*pgor*lcp*F/pi/Umin);

 for i:=1 to n1 do begin

 if dp>D[i] then else goto 6 end;

writeln('trebuemi diametr otsutstvuet');

 6:

 dp:=D[i];kz:=K[i]; dci:=D1[i];

 W:=4*Q*kz/pi/sqr(dp);

 Rxc:=p0*(1+a*T0)*4*W*lcp/pi/sqr(dp);

 Ik:=F/W;

 Pp:=Ik*Unom;
 {Raschet temperaturi nagreva OU metodom iteracii, raschet parametrov

 OU v holodnom sostoanii}

 T:=Tdop;e:=0.01;

 9:

 Rgc:=p0*(1+a*T)*4*W*lcp/pi/sqr(dp);

 if (Soxl>=0.0001) and (Soxl

 if (Soxl>0.01) and (Soxl

 if Soxl>0.5 then goto 2;

 if Soxl

 P:=sqr(Umax)/Rgc;

 T1:=T0+P/km1/Soxl;

 if abs((T1-T)/T1)

 begin T:=T1; goto 9 end;

 10:

 Rgc:=p0*(1+a*T1)*4*W*lcp/pi/sqr(dp);

P:=sqr(Umax)/Rgc;
 {Vivod rezultatov rascheta}

 writeln('Mihimalnie razmeri OU');

 writeln('h:= ',h:7:5,'; l:= ',h*m:7:5,'; Soxl:=',Soxl:7:5,'; Q:=',Q:7:5,

 '; km:= ',km:5:3,' pri T=Tdop=105');

 writeln ;

 writeln('Diametr provoda');

 writeln('dp:= ',sqrt(4*pgor*lcp*F/pi/Umin):10:7, '; d:= ',dp:10:7,'; dci:= ',dci:10:7,

 '; kz:= ',kz:4:3);

 writeln('Chislo witkov');

 writeln('W:= ',W:10:3);

 writeln('Soprotivlenie OU v xolodnom sostoanii');

 writeln('Rxc:= ',Rxc:8:3);

 writeln('Potreblaemaa mosnost i tok OU');

 writeln('Pp:=',Pp:7:3,'; I:=',Ik:7:3);

 writeln;

 writeln('Temperatura nagrewa OU');

 writeln('Tk:= ',T:4:2,'; km:= ',km1:5:3,' pri T=Tk');

 writeln('Soprotivlenie OU v nagretom sostoanii');

 writeln('Rgc:= ',Rgc:8:3);

 writeln('Teplovie poteri');

 writeln('P:= ',P:5:3);
 {Issledovanie zavisimosti potreblaemoi mosnosti i temperaturi nagreva OU

 ot razmerov poperechnogo sechenia OU (l/h=1..10) dla MDC OU F=const,

 obmotochnoe okno Q=const}

 readln; clrscr;

 writeln('zavisimost Pp i Tk ot l/h=1..10 dla F=const Q=const');writeln;

 for j:=1 to 10 do

 begin

 m:=j;

 h:=sqrt(Q/m);

 l:=m*h;

 Sn:=pi*(d0+2*h)*l;

 Svn:=pi*d0*l;

 Soxl:= Sn+avn*Svn;

 lcp:=pi*(d0+h);

 if (Soxl>=0.0001) and (Soxl

 if (Soxl>0.01) and (Soxl

 if Soxl>0.5 then goto 2;

 if Soxl

 dp:=sqrt(4*pgor*lcp*F/pi/Umin);

 for i:=1 to n1 do begin

 if dp>D[i] then else goto 26 end;

 26:

 dp:=D[i];kz:=K[i]; dci:=D1[i];

 W:=4*Q*kz/pi/sqr(dp);

 Rxc:=p0*(1+a*T0)*4*W*lcp/pi/sqr(dp);

 Ik:=F/W;

 Pp:=Ik*Unom;

 {metod iteracii}

 T:=Tdop;e:=0.0001;

 29:

 Rgc:=p0*(1+a*T)*4*W*lcp/pi/sqr(dp);

 if (Soxl>=0.0001) and (Soxl

 if (Soxl>0.01) and (Soxl

 if Soxl>0.5 then goto 2;

 if Soxl

 P:=sqr(Umax)/Rgc;

 T1:=T0+P/km1/Soxl;

 if abs((T1-T)/T1)

 begin T:=T1; goto 29 end;

 20:

 Rgc:=p0*(1+a*T1)*4*W*lcp/pi/sqr(dp);

 if (Soxl>=0.0001) and (Soxl

 if (Soxl>0.01) and (Soxl

 if Soxl>0.5 then goto 2;

 if Soxl

 P:=sqr(Umax)/Rgc;

 if m=5 then textcolor (red) else textcolor (white);

 writeln('l/h:=',m:2:0,'; Pp:=',Pp:5:3,'; Tk:=',T:6:2,'; Q:=',Q:6:5,'; h:=',

 h:7:6,'; l:=',l:7:6);

 end;
 {Issledovanie zavisimosti potreblaemoi mosnosti OU ot razmerov poperechnogo

 sechenia serdechnika magnitiprovoda (-20%..+50% ot dc=0.0024) dla MDC OU

 F=const,temperatura nagreva OU T=Tdop}

 readln; clrscr;

 writeln('zawisimost Pp ot dc=(-20%..+50%)dc dla F=const T=Tdop');writeln;

 for j:=0 to 14 do

 begin

 m:=5;

 kz:=0.5;

 ha:=0.001;

 hb:=0.100;

 dc:=(0.8+j/20)*24*0.001;

 15:

 h:=ha;

 l:=m*h;

 Sn:=pi*((dc+0.0001)+2*h)*l;

 Svn:=pi*(dc+0.0001)*l;

 Q:=h*l;

 Soxl:= Sn+avn*Svn;

 lcp:=pi*((dc+0.0001)+h);

 if (Soxl>=0.0001) and (Soxl

 if (Soxl>0.01) and (Soxl

 if Soxl>0.5 then goto 2;

 if Soxl

 y1:=sqr(Umax/Umin)*sqr(F)*pgor/n/km/t1dop/kz-Q*Soxl/lcp;

 h:=(ha+hb)/2;

 l:=m*h;

 Sn:=pi*((dc+0.0001)+2*h)*l;

 Svn:=pi*(dc+0.0001)*l;

 Q:=h*l;

 Soxl:= Sn+avn*Svn;

 lcp:=pi*((dc+0.0001)+h);

 if (Soxl>=0.0001) and (Soxl

 if (Soxl>0.01)and(Soxl

 if Soxl>0.5 then goto 2;

 if Soxl

 y2:=sqr(Umax/Umin)*sqr(F)*pgor/n/km/t1dop/kz-Q*Soxl/lcp;

 if abs(y2)

 if y1*y2

 if abs(hb-ha)

 14:

 dp:=sqrt(4*pgor*lcp*F/pi/Umin);

 for i:=1 to 33 do

 begin

 if dp>D[i] then else goto 16

 end;

 16:

 dp:=D[i];

 kz:=K[i];

 dci:=D1[i];

 W:=4*Q*kz/pi/sqr(dp);

 Rxc:=p0*(1+a*T0)*4*W*lcp/pi/sqr(dp);

 Ik:=F/W;

 Pp:=Ik*Unom;

 if dc=0.0240 then textcolor (red) else textcolor (white);

 writeln('dc:=',dc:5:4,'; Pp:=',Pp:5:3,'; h:=',h:6:5,'; Ik:=',Ik:6:4,'; W:=',W:7:2);

 end;

goto 7;

2:writeln('Soxl>0.5 m*m');goto 7;

3:writeln('Soxl

7:readln;

end.

    продолжение
--PAGE_BREAK--

Не сдавайте скачаную работу преподавателю!
Данный реферат Вы можете использовать для подготовки курсовых проектов.
Доработать Узнать цену написания по вашей теме
Поделись с друзьями, за репост + 100 мильонов к студенческой карме :
Пишем реферат самостоятельно:
! Как писать рефераты
Практические рекомендации по написанию студенческих рефератов.
! План реферата Краткий список разделов, отражающий структура и порядок работы над будующим рефератом.
! Введение реферата Вводная часть работы, в которой отражается цель и обозначается список задач.
! Заключение реферата В заключении подводятся итоги, описывается была ли достигнута поставленная цель, каковы результаты.
! Оформление рефератов Методические рекомендации по грамотному оформлению работы по ГОСТ.

Читайте также:
→ Виды рефератов Какими бывают рефераты по своему назначению и структуре.

Другие популярные рефераты:

Сейчас смотрят :

Реферат Особенности организации и регулирования деятельности банка на российском рынке ценных бумаг
Реферат Судебная реформа в России 1864г.
Реферат Annals Of Xanten Essay Research Paper Feudal
Реферат Тезисы Русь под властью монголо-татар
Реферат Технологический процесс изготовления шкива 2
Реферат Розробка служби Win32
Реферат Итальянская республика
Реферат Анонсы ведущих периодических изданий содержание выпуска
Реферат Шевченко Тарас Григорович поет художник мислитель
Реферат 107. Бунке А. С., Мовчан А. П. Использование искусственного интеллекта для оптимизации работы систем управления технологическими процессами Вольчин К. В., Мысак В. Ф
Реферат Формирование профессии современного бухгалтера специалиста внутреннего и внешнего аудита
Реферат Ли Тхань Тонг
Реферат Понятие об информации и ее свойствах. Кодирование информации
Реферат Розробка системи пошуку автомобілів
Реферат Peoplenet - национальный провайдер телекоммуникационных услуг
Реклама на сайте
© 2015-2024