Данная программа производит расчет первичных и вторичных параметров по приведенным выше формулам. Расчет осуществляется в цикле: от 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.
Самое читаемое:
Разработка микроконтроллерного устройства стабилизации температуры
Эффективная организация контроля информации приобретает всё большее
практическое значение, прежде всего как условие успешной практической
деятельности людей. Объем информации, необходимой для нормального
функционирования современного общества, растёт из года в год. На сегодняшний
день складывается ситуация, в которой наряду с самой ...