Уразбаева К. Т., Мақамбаев М. Б. Компьютерлік модельдеу элементтері физика пәнінде

3 сурет. Электронға әсер ететін күштер

uses Crt, Graph;

var d,Ro,Eo,L,q,m,Vo,Fx,Fy,Vx,Vy,Ax,Ay,x,y,p,t,dt: real;

R1,R2,F1,F2,F1x,F1y,F2x,F2y,Z,mas: real;

Gd,Gm,x0,y0,x1,y1,i,n,c: integer; s: string;

begin

d:=0.002; Ro:=-2.9E-9; Eo:=8.85E-12; L:=0.006; mas:=5E4;

e:=-1.6E-19; m:=9.1E-31; Vo:=1E7; dt:=1E-13; n:=10;

{********************************************************}

Gd:=detect; InitGraph(Gd, Gm,''); SetColor(12);SetTextStyle(7,0,2);

OutTextXY(240,6,'Traektoria electrona');

x0:=GetMaxX div 2; y0:=GetMaxY div 2;

SetColor(8); Line(0,y0,2*x0,y0); Line(x0,0,x0,2*y0);

Line(x0,0,x0-4,12); Line(x0,0,x0+4,12);

Line(2*x0,y0,2*x0-12,y0-4); Line(2*x0,y0,2*x0-12,y0+4);

SetColor(11); SetTextStyle(0,0,1);

OutTextXY(2*x0-40,y0-15,'x(мм)'); OutTextXY(x0+6,0,'y(мм)');

OutTextXY(x0-12,y0+8,'0');

For i:=1 to 6 do

begin

SetColor(8); str(-i:2,s); line(0,y0+50*i,2*x0,y0+50*i);

line(0,y0-50*i,2*x0,y0-50*i); OutTextXY(x0-18,y0-50*i-8,s); str(i:2,s);

line(x0+50*i,0,x0+50*i,2*y0); OutTextXY(x0+50*i-18,y0+4,s);

str(-i:2,s); line(x0-50*i,0,x0-50*i,2*y0); OutTextXY(x0-50*i-16,y0+4,s);

end;

SetColor(11); SetFillStyle(1,12); FillEllipse(x0,Round(y0-d/2*mas),5,5);

y1:=Round(y0-d/3*mas); FillEllipse(18,y1,7,7);

Line(15,y1,21,y1); SetColor(12); Line(25,y1,81,y1);

MoveTo(81,y1); LineRel(-10,-3); MoveTo(81,y1); LineRel(-10,3);

SetColor(11); OutTextXY(88,y1-2,'Vo');

OutTextXY(x0+10,Round(y0-d/1.65*mas),'P1');

OutTextXY(x0+10,Round(y0+d/1.8*mas),'P2');

p:=-d/4; c:=0;

while p<=d/4 do

begin

Repeat

begin

Z:=Ro*e/(2*Pi*Eo); F1:=Z/R1; F2:=Z/R2;

F1x:=F1*x/R1; F1y:=F1*(d/2+y)/R2;

F2x:=F2*x/R2; F2y:=F2*(d/2-y)/R2;

Ax:=(F1x+F2x)/m; Ay:=(F1y-F2y)/m;

Vx:=Vx+Ax*dt; Vy:=Vy+Ay*dt;

x:=x+Vx*dt; y:=y+Vy*dt; t:=t+dt;

end;

PutPixel(x1,y1,c);

until (x1>=640) or (y1>=480) or (y1<=0) or KeyPressed;

p:=p+d/20;

end;

SetTextStyle(0,0,1); SetColor(11);

Str(Ro*1E9:4:2,s); OutTextXY(372,364,'Ro = '+s+'E-9 Клl/м');

Str(Eo*1E12:4:2,s); OutTextXY(372,378,'Eo = '+s+'E-12 Ф/м');

Str(e*1E19:4:2,s); OutTextXY(372,392,'e = '+s+'E-19 Клl');

Str(m*1E31:4:2,s); OutTextXY(372,406,'m = '+s+'E-31 кг');

Str(Vo*1E-7:4:2,s); OutTextXY(372,420,'Vo = '+s+'E7 м/с');