Реферат: Программный комплекс расчета и моделирования катушки управления электромагнита постоянного тока
--PAGE_BREAK--Алгоритмы и программа расчета обмотки управления<img width=«126» height=«66» src=«ref-2_148860765-471.coolpic» alt=«Блок-схема: документ: печать » v:shapes="_x0000_s1582"><img width=«2» height=«26» src=«ref-2_148861236-76.coolpic» v:shapes="_x0000_s1608"><img width=«26» height=«2» src=«ref-2_148861312-76.coolpic» v:shapes="_x0000_s1607"><img width=«14» height=«2» src=«ref-2_148861388-75.coolpic» v:shapes="_x0000_s1610"><img width=«14» height=«2» src=«ref-2_148861388-75.coolpic» v:shapes="_x0000_s1609"><img width=«2» height=«26» src=«ref-2_148861236-76.coolpic» v:shapes="_x0000_s1604"><img width=«26» height=«2» src=«ref-2_148861312-76.coolpic» v:shapes="_x0000_s1603"><img width=«14» height=«2» src=«ref-2_148861388-75.coolpic» v:shapes="_x0000_s1606"><img width=«14» height=«2» src=«ref-2_148861388-75.coolpic» v:shapes="_x0000_s1605"><img width=«14» height=«2» src=«ref-2_148861388-75.coolpic» v:shapes="_x0000_s1602"><img width=«14» height=«2» src=«ref-2_148861388-75.coolpic» v:shapes="_x0000_s1601"><img width=«2» height=«26» src=«ref-2_148861236-76.coolpic» v:shapes="_x0000_s1600"><img width=«26» height=«2» src=«ref-2_148861312-76.coolpic» v:shapes="_x0000_s1599"><img width=«158» height=«2» src=«ref-2_148862142-82.coolpic» v:shapes="_x0000_s1565"><img width=«2» height=«230» src=«ref-2_148862224-84.coolpic» v:shapes="_x0000_s1598"><img width=«12» height=«267» src=«ref-2_148862308-221.coolpic» v:shapes="_x0000_s1597"><img width=«182» height=«2» src=«ref-2_148862529-83.coolpic» v:shapes="_x0000_s1551"><img width=«12» height=«267» src=«ref-2_148862308-221.coolpic» v:shapes="_x0000_s1573"><img width=«38» height=«2» src=«ref-2_148862833-76.coolpic» v:shapes="_x0000_s1586"><img width=«75» height=«12» src=«ref-2_148862909-109.coolpic» v:shapes="_x0000_s1585"><img width=«2» height=«26» src=«ref-2_148863018-75.coolpic» v:shapes="_x0000_s1574"><img width=«38» height=«2» src=«ref-2_148862833-76.coolpic» v:shapes="_x0000_s1575"><img width=«2» height=«38» src=«ref-2_148863169-76.coolpic» v:shapes="_x0000_s1570"> <img width=«2» height=«26» src=«ref-2_148863018-75.coolpic» v:shapes="_x0000_s1583"> <img width=«2» height=«26» src=«ref-2_148863018-75.coolpic» v:shapes="_x0000_s1581"> <img width=«2» height=«26» src=«ref-2_148863018-75.coolpic» v:shapes="_x0000_s1578"> <img width=«152» height=«54» src=«ref-2_148863755-410.coolpic» alt=«Блок-схема: подготовка: m=1,10» v:shapes="_x0000_s1571"><img width=«2» height=«26» src=«ref-2_148863018-75.coolpic» v:shapes="_x0000_s1566"><img width=«26» height=«2» src=«ref-2_148864240-75.coolpic» v:shapes="_x0000_s1587"><img width=«2» height=«314» src=«ref-2_148864315-86.coolpic» v:shapes="_x0000_s1588"><img width=«138» height=«42» src=«ref-2_148864401-325.coolpic» alt=«Блок-схема: знак завершения: Конец» v:shapes="_x0000_s1589"> <img width=«75» height=«12» src=«ref-2_148862909-109.coolpic» v:shapes="_x0000_s1564"><img width=«38» height=«2» src=«ref-2_148862833-76.coolpic» v:shapes="_x0000_s1563"><img width=«12» height=«255» src=«ref-2_148864911-217.coolpic» v:shapes="_x0000_s1547"><img width=«2» height=«26» src=«ref-2_148863018-75.coolpic» v:shapes="_x0000_s1548"><img width=«2» height=«38» src=«ref-2_148863169-76.coolpic» v:shapes="_x0000_s1562"><img width=«126» height=«54» src=«ref-2_148865279-393.coolpic» alt=«Блок-схема: документ: печать » v:shapes="_x0000_s1559"> <img width=«2» height=«26» src=«ref-2_148863018-75.coolpic» v:shapes="_x0000_s1560"> <img width=«2» height=«26» src=«ref-2_148863018-75.coolpic» v:shapes="_x0000_s1558"> <img width=«2» height=«26» src=«ref-2_148863018-75.coolpic» v:shapes="_x0000_s1555"><img width=«38» height=«2» src=«ref-2_148862833-76.coolpic» v:shapes="_x0000_s1549"> <img width=«152» height=«54» src=«ref-2_148866258-393.coolpic» alt=«Блок-схема: подготовка: i=1, n» v:shapes="_x0000_s1543"><img width=«2» height=«26» src=«ref-2_148863018-75.coolpic» v:shapes="_x0000_s1552"><img width=«106» height=«52» src=«ref-2_148866726-376.coolpic» v:shapes="_x0000_s1540 _x0000_s1541 _x0000_s1542"><img width=«2» height=«50» src=«ref-2_148867102-77.coolpic» v:shapes="_x0000_s1569"><img width=«126» height=«66» src=«ref-2_148867179-564.coolpic» alt=«Блок-схема: документ: печать » v:shapes="_x0000_s1567"> <img width=«2» height=«26» src=«ref-2_148863018-75.coolpic» v:shapes="_x0000_s1539"><img width=«150» height=«65» src=«ref-2_148867818-489.coolpic» v:shapes="_x0000_s1536 _x0000_s1537 _x0000_s1538"><img width=«2» height=«26» src=«ref-2_148863018-75.coolpic» v:shapes="_x0000_s1535"> <img width=«2» height=«26» src=«ref-2_148863018-75.coolpic» v:shapes="_x0000_s1534"> <img width=«2» height=«26» src=«ref-2_148863018-75.coolpic» v:shapes="_x0000_s1529"><img width=«152» height=«54» src=«ref-2_148868532-465.coolpic» alt=«Блок-схема: данные: Ввод исх. данных» v:shapes="_x0000_s1525"> <img width=«126» height=«42» src=«ref-2_148868997-326.coolpic» alt=«Блок-схема: знак завершения: Начало» v:shapes="_x0000_s1526"><img width=«2» height=«26» src=«ref-2_148869323-75.coolpic» v:shapes="_x0000_s1528"><img width=«672» height=«408» src=«ref-2_148869398-701.coolpic» v:shapes="_x0000_s1615 _x0000_s1614 _x0000_s1616 _x0000_s1619 _x0000_s1620"><img width=«672» height=«408» src=«ref-2_148870099-73.coolpic» v:shapes="_x0000_i1051">
<img width=«54» height=«54» src=«ref-2_148870172-260.coolpic» alt=«Блок-схема: узел: 1» v:shapes="_x0000_s1400"> <img width=«126» height=«42» src=«ref-2_148870432-319.coolpic» alt=«Блок-схема: знак завершения: Начало» v:shapes="_x0000_s1344">
<img width=«642» height=«870» src=«ref-2_148870751-15252.coolpic» v:shapes="_x0000_s1523 _x0000_s1497 _x0000_s1399 _x0000_s1504 _x0000_s1492 _x0000_s1488 _x0000_s1456 _x0000_s1164 _x0000_s1345 _x0000_s1346 _x0000_s1347 _x0000_s1348 _x0000_s1349 _x0000_s1350 _x0000_s1351 _x0000_s1352 _x0000_s1353 _x0000_s1354 _x0000_s1355 _x0000_s1356 _x0000_s1357 _x0000_s1358 _x0000_s1359 _x0000_s1360 _x0000_s1361 _x0000_s1362 _x0000_s1363 _x0000_s1364 _x0000_s1365 _x0000_s1368 _x0000_s1369 _x0000_s1370 _x0000_s1384 _x0000_s1386 _x0000_s1387 _x0000_s1388 _x0000_s1393 _x0000_s1394 _x0000_s1395 _x0000_s1396 _x0000_s1397 _x0000_s1401 _x0000_s1402 _x0000_s1403 _x0000_s1404 _x0000_s1405 _x0000_s1406 _x0000_s1407 _x0000_s1408 _x0000_s1409 _x0000_s1410 _x0000_s1411 _x0000_s1412 _x0000_s1413 _x0000_s1414 _x0000_s1415 _x0000_s1416 _x0000_s1417 _x0000_s1418 _x0000_s1419 _x0000_s1420 _x0000_s1421 _x0000_s1422 _x0000_s1423 _x0000_s1425 _x0000_s1426 _x0000_s1427 _x0000_s1428 _x0000_s1429 _x0000_s1430 _x0000_s1431 _x0000_s1432 _x0000_s1433 _x0000_s1434 _x0000_s1435 _x0000_s1436 _x0000_s1437 _x0000_s1438 _x0000_s1439 _x0000_s1440 _x0000_s1441 _x0000_s1442 _x0000_s1443 _x0000_s1444 _x0000_s1445 _x0000_s1446 _x0000_s1447 _x0000_s1448 _x0000_s1449 _x0000_s1450 _x0000_s1451 _x0000_s1452 _x0000_s1453 _x0000_s1454 _x0000_s1455 _x0000_s1487 _x0000_s1489 _x0000_s1491 _x0000_s1501 _x0000_s1383 _x0000_s1503 _x0000_s1505 _x0000_s1506 _x0000_s1507 _x0000_s1508 _x0000_s1510 _x0000_s1511 _x0000_s1512 _x0000_s1513 _x0000_s1385 _x0000_s1515 _x0000_s1496 _x0000_s1516 _x0000_s1517 _x0000_s1518 _x0000_s1519 _x0000_s1521 _x0000_s1522">
Рис. 3 — Расчет минимальной толщины ОУ (а)
и коэффициента теплоотдачи (б)
<img width=«357» height=«835» src=«ref-2_148886003-6602.coolpic» v:shapes="_x0000_s1296 _x0000_s1297 _x0000_s1298 _x0000_s1299 _x0000_s1300 _x0000_s1301 _x0000_s1302 _x0000_s1303 _x0000_s1304 _x0000_s1305 _x0000_s1306 _x0000_s1307 _x0000_s1308 _x0000_s1309 _x0000_s1310 _x0000_s1311 _x0000_s1312 _x0000_s1313 _x0000_s1314 _x0000_s1315 _x0000_s1316 _x0000_s1317 _x0000_s1318 _x0000_s1319 _x0000_s1320 _x0000_s1321 _x0000_s1322 _x0000_s1323 _x0000_s1324 _x0000_s1325 _x0000_s1326 _x0000_s1327 _x0000_s1328 _x0000_s1329 _x0000_s1330 _x0000_s1331 _x0000_s1332 _x0000_s1333 _x0000_s1334 _x0000_s1335 _x0000_s1336 _x0000_s1337 _x0000_s1338 _x0000_s1339 _x0000_s1341 _x0000_s1342 _x0000_s1457 _x0000_s1458"> <img width=«246» height=«934» src=«ref-2_148892605-6177.coolpic» v:shapes="_x0000_s1251 _x0000_s1252 _x0000_s1253 _x0000_s1254 _x0000_s1255 _x0000_s1256 _x0000_s1257 _x0000_s1258 _x0000_s1259 _x0000_s1260 _x0000_s1261 _x0000_s1262 _x0000_s1263 _x0000_s1264 _x0000_s1265 _x0000_s1266 _x0000_s1267 _x0000_s1268 _x0000_s1269 _x0000_s1270 _x0000_s1271 _x0000_s1272 _x0000_s1273 _x0000_s1274 _x0000_s1275 _x0000_s1276 _x0000_s1277 _x0000_s1278 _x0000_s1279 _x0000_s1280 _x0000_s1281 _x0000_s1282 _x0000_s1283 _x0000_s1284 _x0000_s1285 _x0000_s1286 _x0000_s1287 _x0000_s1288 _x0000_s1289 _x0000_s1290 _x0000_s1291 _x0000_s1292 _x0000_s1293 _x0000_s1294 _x0000_s1295"> <img width=«353» height=«102» src=«ref-2_148898782-1638.coolpic» v:shapes="_x0000_s1340 _x0000_s1343">
Программа расчета обмотки управления.
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<=0.01) then km:=2.1*(1+0.005*(T-T0))/exp(1/3*ln(Soxl));
if (Soxl>0.01) and (Soxl<=0.5) then km:=3.6*(1+0.005*(T-T0))/exp(1/5*ln(Soxl));
if Soxl>0.5 then goto 2;
if Soxl<0.0001 then goto 3;
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<=0.01) then km:=2.1*(1+0.005*(T-T0))/exp(1/3*ln(Soxl));
if (Soxl>0.01)and(Soxl<=0.5) then km:=3.6*(1+0.005*(T-T0))/exp(1/5*ln(Soxl));
if Soxl>0.5 then goto 2;
if Soxl<0.0001 then goto 3;
y2:=sqr(Umax/Umin)*sqr(F)*pgor/n/km/t1dop/kz-Q*Soxl/lcp;
if abs(y2)<e1 then goto 4 else begin
if y1*y2<0 then hb:=h else ha:=h;
if abs(hb-ha)<e2 then goto 4 else goto 5 end;
{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<=0.01) then km1:=2.1*(1+0.005*(T-T0))/exp(1/3*ln(Soxl));
if (Soxl>0.01) and (Soxl<=0.5) then km1:=3.6*(1+0.005*(T-T0))/exp(1/5*ln(Soxl));
if Soxl>0.5 then goto 2;
if Soxl<0.0001 then goto 3;
P:=sqr(Umax)/Rgc;
T1:=T0+P/km1/Soxl;
if abs((T1-T)/T1)<e1 then goto 10 else
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<=0.01) then km:=2.1*(1+0.005*(T-T0))/exp(1/3*ln(Soxl));
if (Soxl>0.01) and (Soxl<=0.5) then km:=3.6*(1+0.005*(T-T0))/exp(1/5*ln(Soxl));
if Soxl>0.5 then goto 2;
if Soxl<0.0001 then goto 3;
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<=0.01) then km1:=2.1*(1+0.005*(T-T0))/exp(1/3*ln(Soxl));
if (Soxl>0.01) and (Soxl<=0.5) then km1:=3.6*(1+0.005*(T-T0))/exp(1/5*ln(Soxl));
if Soxl>0.5 then goto 2;
if Soxl<0.0001 then goto 3;
P:=sqr(Umax)/Rgc;
T1:=T0+P/km1/Soxl;
if abs((T1-T)/T1)<e1 then goto 20 else
begin T:=T1; goto 29 end;
20:
Rgc:=p0*(1+a*T1)*4*W*lcp/pi/sqr(dp);
if (Soxl>=0.0001) and (Soxl<=0.01) then km1:=2.1*(1+0.005*(T1-T0))/exp(1/3*ln(Soxl));
if (Soxl>0.01) and (Soxl<=0.5) then km1:=3.6*(1+0.005*(T1-T0))/exp(1/5*ln(Soxl));
if Soxl>0.5 then goto 2;
if Soxl<0.0001 then goto 3;
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<=0.01) then km:=2.1*(1+0.005*(Tdop-T0))/exp(1/3*ln(Soxl));
if (Soxl>0.01) and (Soxl<=0.5) then km:=3.6*(1+0.005*(Tdop-T0))/exp(1/5*ln(Soxl));
if Soxl>0.5 then goto 2;
if Soxl<0.0001 then goto 3;
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<=0.01) then km:=2.1*(1+0.005*(Tdop-T0))/exp(1/3*ln(Soxl));
if (Soxl>0.01)and(Soxl<=0.5) then km:=3.6*(1+0.005*(Tdop-T0))/exp(1/5*ln(Soxl));
if Soxl>0.5 then goto 2;
if Soxl<0.0001 then goto 3;
y2:=sqr(Umax/Umin)*sqr(F)*pgor/n/km/t1dop/kz-Q*Soxl/lcp;
if abs(y2)<e1 then goto 14 else begin
if y1*y2<0 then hb:=h else ha:=h;
if abs(hb-ha)<e2 then goto 14 else goto 15 end;
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<0.0001 m*m'); goto 7;
7:readln;
end.
продолжение
--PAGE_BREAK--
еще рефераты
Еще работы по производству
Реферат по производству
Гносеологика дискретной темпоралогии
2 Сентября 2013
Реферат по производству
Метод решения уравнений Ньютона - Рафсона
2 Сентября 2013
Реферат по производству
Технология машиностроения и техническое нормирование
2 Сентября 2013
Реферат по производству
Стенд обкаточно тормозной
2 Сентября 2013