ВУЗ:
Составители:
22
BEGIN
ns:=6e+14; d:=7.6e-6; h:=0.025; rp1:=9.98e-6;
drp1:=3.31e-6; drp2:=4.57e-6;
k2:=d+(rp1-d)*drp2/drp1; k3:=(4.0*eps0*epssi*k*t)/(q*q);
for i:=0 to 20 do begin
if i:=0 then begin doza[i]:=0.0; n:=ns end else begin
doza[i]:=h*i;
w1:=rp1;
n1:=6.25e+12*doza[i]*(fn1(d)+fn1(rp1))/2;
repeat
w:=w1; n:=n1;
w1:=sqrt(k3*abs(2.3*ln(n/ni))/n);
n1:=6.25e+12*doza[i]*gauss8(d, w+d)/w+ns;
until (abs(w1-w)/(w1+w)<0.001) and (abs(n1-n)/(n1+n)<0.001)
end;
c1:=eps0*epssio2/d;
u1:=(2.0*k*t*2.3*ln(n/ni))/q;
u2:=sqrt(2.0*q*q*n*eps0*epssi*abs(u1))/c1;
u3:=abs(u1+u2);
G[i]:=1/sqrt(1+2*eps0*epssio2*epssio2*u3/(q*n*epssi*d*d)) end;
writeln;
writeln(' доза,мкКл/см 2 G'); writeln;
for i:=0 to 20 do writeln(doza[i]:12:3,G[i]:17:2);
writeln;
END.
В результате расчета по программе PR3 получены следующие результаты.
Доза,
мкКл/см
2
параметр
G
Доза,
мкКл/см
2
параметр
G
0.000
0.025
0.050
0.075
0.100
0.125
0.150
0.175
0.200
0.225
0.14
0.22
0.32
0.40
0.48
0.55
0.60
0.65
0.70
0.73
0.250
0.275
0.300
0.325
0.350
0.375
0.400
0.425
0.450
0.475
0500
0.76
0.79
0.81
0.83
0.84
0.86
0.87
0.88
0.88
0.89
0.90
22 BEGIN ns:=6e+14; d:=7.6e-6; h:=0.025; rp1:=9.98e-6; drp1:=3.31e-6; drp2:=4.57e-6; k2:=d+(rp1-d)*drp2/drp1; k3:=(4.0*eps0*epssi*k*t)/(q*q); for i:=0 to 20 do begin if i:=0 then begin doza[i]:=0.0; n:=ns end else begin doza[i]:=h*i; w1:=rp1; n1:=6.25e+12*doza[i]*(fn1(d)+fn1(rp1))/2; repeat w:=w1; n:=n1; w1:=sqrt(k3*abs(2.3*ln(n/ni))/n); n1:=6.25e+12*doza[i]*gauss8(d, w+d)/w+ns; until (abs(w1-w)/(w1+w)<0.001) and (abs(n1-n)/(n1+n)<0.001) end; c1:=eps0*epssio2/d; u1:=(2.0*k*t*2.3*ln(n/ni))/q; u2:=sqrt(2.0*q*q*n*eps0*epssi*abs(u1))/c1; u3:=abs(u1+u2); G[i]:=1/sqrt(1+2*eps0*epssio2*epssio2*u3/(q*n*epssi*d*d)) end; writeln; writeln(' доза,мкКл/см2 G'); writeln; for i:=0 to 20 do writeln(doza[i]:12:3,G[i]:17:2); writeln; END. В результате расчета по программе PR3 получены следующие результаты. Доза, параметр Доза, параметр мкКл/см2 G мкКл/см2 G 0.000 0.14 0.250 0.76 0.025 0.22 0.275 0.79 0.050 0.32 0.300 0.81 0.075 0.40 0.325 0.83 0.100 0.48 0.350 0.84 0.125 0.55 0.375 0.86 0.150 0.60 0.400 0.87 0.175 0.65 0.425 0.88 0.200 0.70 0.450 0.88 0.225 0.73 0.475 0.89 0500 0.90