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

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

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

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

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

Реферат Два памятника Н.В. Гоголю
Реферат Международная коммуникационная политика
Реферат Ахматова а Стихотворение а ахматовой заплаканная осень как вдова 2
Реферат Методологические основы построения систем обеспечения финансового 2
Реферат Стратегия производственной логистики промышленной организации
Реферат Характеристика методов экономического районирования
Реферат Учет и контроль привлеченных денежных средств в депозиты и вклады банка на примере Филиала ОАО Банк "Менатеп
Реферат Право общей собственности
Реферат Исследование развития психомоторных способностей старших школьников средствами нетрадиционных видов гимнастики
Реферат Проблематика античной государственности
Реферат Arendt Paper Essay Research Paper Arendt s
Реферат Ethics In American Beauty Essay Research Paper
Реферат Использование художественного творчества в процессе обучения детей младшего школьного возраста с общим недоразвитием речи
Реферат Германия во время Первой мировой войны
Реферат Изменение двигательных показателей девушек под влиянием занятия аэробикой -
Реклама на сайте
© 2015-2025