Данная программа производит расчет первичных и вторичных параметров по приведенным выше формулам. Расчет осуществляется в цикле: от 1 до 30 кГц. Результаты расчетов выводятся в файл в виде таблицы.
Program parametr;
Var
Rp, Rm, Lp, Lm, Cp, Cm, Gp, Gm, ap, am, bp, bm, kr, Fkr, Gkr, Hkr, Zvp, Zvm,
Vp, Vm, tp, tm, sigma, Rpe, Rbe1, Rbe2, Ro, Rz, Qkr:real;:integer;:text;(zz, 'A:\otvet.pas');:=0;(zz);(zz, ' f ', ' Rp ', ' Rm ', ' Lp ', ' Lm ', ' Cp ',
' Cm ', ' Gp ', ' Gm ', ' ap ', ' am ', ' bp ',
' bm ', ' Zvp ', ' Zvm ', ' Vp ', ' Vm ', ' tp ',
' tm ');f:=1 to 30 do:=0.0126*sqrt (1000*f);:=2*sqrt(2)/kr;f=1 then Fkr:=0.000325; If f=1 then Gkr:=0.000975; If f=1 then Hkr:=0.04;f=2 then Fkr:=0.000326; If f=2 then Gkr:=0.000976; If f=2 then Hkr:=0.042;f=3 then Fkr:=0.00039; If f=3 then Gkr:=0.01000; If f=3 then Hkr:=0.049;f=4 then Fkr:=0.0048; If f=4 then Gkr:=0.01480; If f=4 then Hkr:=0.050;f=5 then Fkr:=0.005; If f=5 then Gkr:=0.015; If f=5 then Hkr:=0.051;f=6 then Fkr:=0.00519; If f=6 then Gkr:=0.01519; If f=6 then Hkr:=0.053;f=7 then Fkr:=0.0052; If f=7 then Gkr:=0.0152; If f=7 then Hkr:=0.057;f=8 then Fkr:=0.006; If f=8 then Gkr:=0.02; If f=8 then Hkr:=0.059;f=9 then Fkr:=0.01; If f=9 then Gkr:=0.040; If f=9 then Hkr:=0.065;f=10 then Fkr:=0.02; If f=10 then Gkr:=0.05; If f=10 then Hkr:=0.075;f=11 then Fkr:=0.021; If f=11 then Gkr:=0.06; If f=11 then Hkr:=0.08;f=12 then Fkr:=0.023; If f=12 then Gkr:=0.061; If f=12 then Hkr:=0.083;f=13 then Fkr:=0.025; If f=13 then Gkr:=0.065; If f=13 then Hkr:=0.089;f=14 then Fkr:=0.0258; If f=14 then Gkr:=0.0691; If f=14 thenHkr:=0.092;f=15 then Fkr:=0.03; If f=15 then Gkr:=0.07; If f=15 then Hkr:=0.095;f=16 then Fkr:=0.04; If f=16 then Gkr:=0.09; If f=16 then Hkr:=0.98;f=17 then Fkr:=0.046; If f=17 then Gkr:=0.095; If f=17 then Hkr:=0.1;f=18 then Fkr:=0.05; If f=18 then Gkr:=0.1; If f=18 then Hkr:=0.11;f=19 then Fkr:=0.07; If f=19 then Gkr:=0.14; If f=19 then Hkr:=0.14;f=20 then Fkr:=0.071; If f=20 then Gkr:=0.141; If f=20 then Hkr:=0.141;f=21 then Fkr:=0.074; If f=21 then Gkr:=0.15; If f=21 then Hkr:=0.149;f=22 then Fkr:=0.075; If f=22 then Gkr:=0.16; If f=22 then Hkr:=0.15;f=23 then Fkr:=0.078; If f=23 then Gkr:=0.165; If f=23 then Hkr:=0.16;f=24 then Fkr:=0.078; If f=24 then Gkr:=0.17; If f=24 then Hkr:=0.161;f=25 then Fkr:=0.0782; If f=25 then Gkr:=0.1724; If f=25 then Hkr:=0.169;f=26 then Fkr:=0.0785; If f=26 then Gkr:=0.173; If f=26 then Hkr:=0.17;f=27 then Fkr:=0.079; If f=27 then Gkr:=0.174; If f=27 then Hkr:=0.18;f=28 then Fkr:=0.085; If f=28 then Gkr:=0.18; If f=28 then Hkr:=0.19;f=29 then Fkr:=0.09; If f=29 then Gkr:=0.2; If f=29 then Hkr:=0.2;f=30 then Fkr:=0.1; If f=30 then Gkr:=0.21; If f=30 then Hkr:=0.21;:=Gkr*sqr (1.2/4.34)/(1-Hkr*sqr (1.2/4.34));:=Gkr*sqr (1.2/0.7)/(1-Hkr*sqr (1.2/0.7));:=31.5;:=sqr(pi)*f*0.1;:=1/(0.01*sqr (0.6)*pi);:=Ro+Rbe1+Rpe;:=Ro+Rbe2+Rpe+Rz;:=1/sqrt (pi*1000*f*0.01);:=(4*ln((4.34-0.6)/0.6)+Qkr)*0.0001;:=(1.336-0.1*ln (1000*f*sigma))*0.001;:=0.000001*1.25/(36*ln (4.34/0.6));:=0.000000001*55.5/(23.9*ln (0.7/0.6));:=2*pi*1000*f*Cp*0.0004;:=2*pi*1000*f*Cm*0.0004;:=(Rp/2*sqrt (Cp/Lp)+Gp/2*sqrt (Lp/Cp));:=(Rm/2*sqrt (Cm/Lm)+Gm/2*sqrt (Lm/Cm));:=2*pi*1000*f*sqrt (Lp*Cp);:=2*pi*1000*f*sqrt (Lm*Cm);:=sqrt (Lp/Cp);:=sqrt (Lm/Cm);:=2*pi*1000*f/bp;:=2*pi*1000*f/bm;:=2/Vp;:=2/Vm;(zz, ' ', f, ' ', Rp:2:3,' ', Rm:2:3,' ', Lp:2:9,' ', Lm:2:9,' ', Cp:1:11,' ', Cm:1:11,' ', Gp:1:8,
' ', Gm:2:8,' ', ap:2:4,' ', am:2:2,' ', bp:2:3,' ', bm:2:3,' ', Zvp:4:2,' ', Zvm:4:2,
' ', Vp:5:3,' ', Vm:5:3,' ', tp:2:6,' ', tm:2:7);;
close(zz);
end.
Самое читаемое:
Разработка методики монтажа и эксплуатации вычислителя тепла
расход тепло монтаж теплосчетчик
Автоматизация производства представляет собой процесс
передачи функции контроля и управления производством от человека автоматическим
устройством.
При создании автоматизированных систем следует
принимать во внимание уровень технологии и оборудования, состояние организации
и управления производством ...