|
,1
Rasm 57 a,b,c. Tasodifiy jarayonlar grafiklari
|
| bet | 116/135 | | Sana | 22.05.2024 | | Hajmi | 15,08 Mb. | | #250347 |
Bog'liq Fizik jarayonlarni kompyuterda modellashtirish.
0,1
Rasm 57 a,b,c. Tasodifiy jarayonlar grafiklari.
Yadro turiga qarab neytronni moddadan o’tishini modellashtirishga dastur(Pascal dasturlashtirish tilida):
Program born_kislota;
uses crt;
label a12,a23,a34;
var s,z,zs,e:real;
a,m,h,x,j,i,sch1,sch2,sch3,b,b1:integer;
procedure o’zaro_ta’sir;
var g,k,p1,p2,p3,s11,s12,s13,s21,s22,s23,s31,s32,s33,pv1,pv2,pv3:real;
begin k:=random;
s11:=1.3*(3/(0.5*e+1.49)+1/(0.5*e+0.073));
s12:=0; s13:=0; s21:=3.5; s22:=0; s23:=0; s31:=4+2.2*e; s32:=0; s33:=0.113/sqrt(e);
s:=s11+2*s21+s31+s12+2*s22+s32+s13+2*s23+s33;
p1:=(s11+s12+s13)/s;
p2:=2*(s21+s22+s23)/s;
p3:=(s31+s32+s33)/s;
if k(p1+p2) then i:=3;
{Бор} case i of 1: write(' Водород');
2:write(' Кислород');
3:write(' Бор');
end;
{end;
procedure vzaimod2;
var g,e,s11,s12,s13,s21,s22,s23,s31,s32,s33,pv1,pv2,pv3:real;
begin
}
g:=random; pv1:=(s11+s21+s31)/s; pv2:=(s12+s22+s32)/s; pv3:=(s13+s23+s33)/s; if g(pv1+pv2) then m:=3;
{
Olish
}
case m of 111 1:writeln(' упругое');
2:writeln(' неупругое');
3:writeln(' захват');
end;
end;
procedure dlinna_probega;
var x,g1,cos:real;
begin x:=random;
x:=-ln(x);
g1:=random;
cos:=2*g1-1;
z:=x*cos;
end;
{ Bosh dastur} begin clrscr;
randomize;
sch3:=0;
sch1:=0;
sch2:=0;
h:=5;
b:=0;
e:=0.001+11*random;
for a:=1 to 1000 do begin a12: vzaimodeistvie;
if m=3 then begin sch3:=sch3+1;
goto a23;
end;
if m=2 then begin sch2:=sch2+1;
end;
if m=1 then begin sch1:=sch1+1;
end;
dlinna_probega; zs:=zs+z;
writeln(zs);
if zsh then begin b:=b+1;
goto a23;
end else goto a12;
a23: end; writeln('упругое', sch1, ' неупругое ',sch2,' Захват ',sch3); writeln('Захват ',sch3,' Akslangan neytronlar',b1,' O’tuvchi neytronlar', b); readln;
end.
|
| |
