writeln(myfile, ``, ll:8:5, ``, m:8:5)
ll:=ll+0.25;
end;
writeln;
end;
procedure SchetTPS;
begin
writeln(myfile, `промежуточный параметр а=`, а1:8:3);
writeln(myfile, `по нему определяем константы аlfa, z`);
readln (infile, alfa, ze);
x2:= a2*alfa*ze;
l1:=1.98e-3*ls*sqrt (u0)*(23+g)/(54.6*s*x2);
l0:=l1+l2;
b1:=3.5e-4*sqrt(i0)/sqrt(sqrt(u0));
b2:=1/(rs*sqrt(abs((rs*hi/100-rs)/rs)));
b:=b1*b2;
z0:=z;
dli:=ls/4;
p:=fma/fmi;
t:=-1/cos(pi*p/(1+p));
aa2:=2*(1-1/sqr(t));
g1:=0.5*ln(z0/zv)/(2+aa2);
g2:=aa2*g1;
zz1:=z0*exp(-2*g1);
zz2:=zz1*exp(-2*g2);
dv:=exp((-zv/138)*ln(10));
dd1:=exp((-zz1/138)*ln(10));
dd2:=exp((-zz2/138)*ln(10));
dvh:=exp((-z0/138)*ln(10));
end;
procedure SchetZS;
begin
fma:=c/ln0;
fmi:=c/lnv;
ls:=2*ln0*lnv/(ln0+lnv);
fs:=c/ls;
a:=3.14e-4*ls*et*sqrt(u0);
h:=39.6*a*a/(ls*(0.31+0.95*et)*(0.72+0.06*et));
d:=0.5*h;
r:=ln0/4;
rs:=15*ls/(2*pi*a);
z:=w*c/(5.93e7*sqrt(u0));
i0:=pi*0.25*a*a*j0;
s:=exp(1/3*ln((z*i0)/(4*u0)));
ar:=1.83e10*sqrt(j0)*sqrt(sqrt(u0))/(2*pi*5e9);
fom:=q4*s*s*s/(ar*ar);
a1:=-sqr(q4*s)*q4*s/sqr(1-fom);
a2:=-(1-fom)/(q4*s);
end;
procedure Input;
begin
writeln(`IN: диапазон рабочих длин волн (н/в), см`);
readln(infile, ln0, lnv);
writeln(`IN: напряжение второго анода, В`);
readln (infile, u0);
writeln (`IN: коэффициентусиления, дБ`);
readln (infile, G);
writeln (`IN: выходнуюмощность`);
readln (infile, pv);
writeln (`IN: уголпролета`);
readln (infile, et);
writeln (`IN: длинупоглотителясм`);
readln (infile, l2);
writeln (`IN: коэффициентмодуляцииэл. пучка, %`);
readln (infile, hi);
writeln (`IN: плотностьтокаэл. пучка, А/см2`);
readln (infile, j0);
writeln (`IN: параметр4q`);
readln(infile, q4);
writeln(`IN: параметр для определения волн. сопрот.`);
readln(infile, W);
writeln(`IN: входное сопротивление линии, Ом`);
readln (infile, zv);
end;
procedure OutRes;
begin
writeln(myfile, `данные замедляющей системы`);
writeln(myfile, `радиус спирали`, А:8:5, `см`);
writeln(myfile, `шаг спирали` h:8:5, `см`);
writeln(myfile, `диаметр проволоки` d:8:5, `см`);
writeln(myfile, `ток электронного пучка`, i0, `A`);
writeln(myfile, `сопротивление сязи` rs:8:5, `Ом`);
writeln(myfile, `общая длина замедляющей системы`, l0:8:5, `см`);
writeln(myfile, `магнитное поле`,b, `вб/см2`);
writeln(myfile);
writeln(myfile, `расчетТПС`);
writeln(myfile, `волновое сопротивление зам. системы`, z:8:5, `Ом`);
writeln(myfile, `сопротивление 1-ой ступени`, zz1:8:5, `Ом`);
writeln(myfile, ` сопротивление 2-ой ступени`, zz2:8:5, `Ом `);
writeln(myfile, `длина участков`, dli:8:5, `см`);
writeln(myfile, `диаметр 1-й ступени`, dv:8:5, `см`);
writeln(myfile, ` диаметр 2-й ступени`, dd2:8:5, `см``);
writeln(myfile, ` диаметр 3-й ступени`, dd1:8:5, `см``);
writeln(myfile, ` диаметр 4-й ступени`, dvh:8:5, `см``);
end;
begin
assign (myfile, `resut. txt`);
assign (myfile, `inp. dat`);
reset(infile);
rewrite(myfile);
Input;
SchetZS;
SchetTPS;
SchetDH;
Outres;
Close(myfile);
Close(infile);
end.
промежуточный параметр а=-0.001
по нему определяем константы alfa, z
ДИСПЕРСИОННАЯ ХАРАКТЕРИСТИКА
L, смС/Vф
4.5000017.60018
4.7500017.58604
5.0000017.57188
5.2500017.55771
5.5000017.54353
5.7500017.52933
6.0000017.51513
6.2500017.50091
6.5000017.48668
6.7500017.47244
7.0000017.45819
7.2500017.44393
7.5000017.42966
7.7500017.41537
8.0000017.40107
8.2500017.38676
8.5000017.37244
8.7500017.25811
9.0000017.34376
данные замедляющей системы:
радиус спирали: 0.07975
шаг спирали: 0.02811
диаметр проволоки: 0.014406
ток электронного пучка: 4.99561909282908Е-0005А
сопротивление связи: 179.60280 Ом
общая длина замедляющей системы:27.73414 см
магнитное поле: 3.20056068335627Е-0009вб/см2
расчет ТПС
волновое сопротивление зам. системы: 184.90302 Ом
сопротивление 1-й ступени: 184.93073 Ом
сопротивление 2-й ступени: 184.97229 Ом
длина участков: 1.5 см
диаметр 1-й ступени: 0.04565 см
диаметр 2-й ступени: 0.04567 см
диаметр 3-й ступени: 0.04570 см
диаметр 4-й ступени: 0.04572 см