Уразбаева К. Т., Мақамбаев М. Б. Компьютерлік модельдеу элементтері физика пәнінде
жүктеу/скачать 0,85 Mb.
|
- Бұл бет үшін навигация:
- Traektorja_electrona
x,y болғанда оның сымдардан қашықтықтарын 10 суретті пайдаланып табамыз:
 және  .
3 сурет. Электронға әсер ететін күштер Электронға әсер ететін күштерді F1 және F2 десек, онда олардың остерге проекциялары  тең. Бұдан, қорытқы күш проекцияларының формулаларын аламыз:
 .
Мұнда  . Электрон қозғалысының
 теңдеулерін пайдаланып оның траекториясын оңай сызуға болады (me = 9,1∙10-31 кг – электрон массасы).
Traektorja_electrona программасы p-ның әртүрлі 11 мәндері үшін электронның қозғалыс траекторияларын сызады. Program Traectorja_electrona; 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); OutTextXY(x0-18,y0+50*i-8,s); str(i:2,s); 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); FillEllipse(x0,Round(y0+d/2*mas),5,5); SetColor(14); SetFillStyle(1,1); 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
c:=c+1; Vx:=Vo; Vy:=0; x:=-L; y:=p; t:=0; Repeat
for i:=0 to n do begin
R1:=sqrt(sqr(x)+sqr(d/2+y)); R2:=sqrt(sqr(x)+sqr(d/2-y)); 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;
x1:=Round(x0+x*mas); y1:=Round(y0-y*mas); 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(d*1E3:2:0,s); OutTextXY(372,350,'d = '+s+' мм'); 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 м/с'); Readln; CloseGraph; end. жүктеу/скачать 0,85 Mb. Достарыңызбен бөлісу:
|