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

  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 мильонов к студенческой карме :
Пишем реферат самостоятельно:
! Как писать рефераты
Практические рекомендации по написанию студенческих рефератов.
! План реферата Краткий список разделов, отражающий структура и порядок работы над будующим рефератом.
! Введение реферата Вводная часть работы, в которой отражается цель и обозначается список задач.
! Заключение реферата В заключении подводятся итоги, описывается была ли достигнута поставленная цель, каковы результаты.
! Оформление рефератов Методические рекомендации по грамотному оформлению работы по ГОСТ.

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

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

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

Реферат Ii. Свойства полупроводников. Полупроводниковые приборы. Общие свойства полупроводников
Реферат Классическая культура античности
Реферат Puritan And Native American Conflict Essay Research
Реферат Обмен веществ при деятельности организма
Реферат Утерянные инструменты обучения
Реферат Методология научно-исследовательских программ ИЛакатоса
Реферат Che Guevara Essay Research Paper On November
Реферат Генезис и формационная принадлежность оруденения месторождения Восточный Джимидон
Реферат Iii всероссийская научная конференция «принципы и способы сохранения биоразнообразия» Глубокоуважаемые коллеги!
Реферат Налоговый менеджмент в добывающих организациях
Реферат Diseases As A Reflection Of The Psyche
Реферат Реформы Екатерины Второй
Реферат Магдебургское право и его роль в социально-экономической жизни городов Беларуси
Реферат Affirmative Actions Essay Research Paper Affirmative ActionAffirmative
Реферат Анализ методика заполнения и ведения карточки уч та ДТП
Реклама на сайте
© 2015-2024