Уразбаева К. Т., Мақамбаев М. Б. Компьютерлік модельдеу элементтері физика пәнінде
жүктеу/скачать 0,85 Mb.
|
- Бұл бет үшін навигация:
- 3.3 Электрон қозғалысын моделдеу .
| Zarad программасы кезкелген аттас не қарама-қарсы екі зарядтың электр өрісінің күш сызықтарын экранда сызып көрсете алады.
Program Zarad; uses Crt, Graph; var Gd, Gm, code, mas, i: integer; sc: char; q1, q2, L, ya: real; Procedure Culon; const du=0.2; x0=12; y0=260; x1=320; r=3; var x,y,xa,xb,yb,R1,R2,u,tgu,Fx,Fy: real; y1,i: integer; s: string; begin u:=0;
Repeat u:=u+du; tgu:=sin(u)/cos(u); if u<=Pi then begin yb:=ya; x:=L/2+yb/tgu; end else if u<=2*Pi then begin yb:=-ya; x:=L/2+yb/tgu; end else if u<=3*Pi then begin yb:=ya; x:=-L/2+yb/tgu; end else begin yb:=-ya; x:=-L/2+yb/tgu; end; y:=yb; while y<=220/yb do begin xa:=L/2+x; xb:=L/2-x; R1:=sqrt(sqr(xa)+sqr(y)); R2:=sqrt(sqr(xb)+sqr(y)); R1:=sqr(R1)*R1; R2:=sqr(R2)*R2; Fx:=q1*xa/R1-q2*xb/R2; Fy:=(q1/R1+q2/R2)*y; if Fy<>0 then begin x:=x+yb*Fx/Fy; PutPixel(Round(x1+x),Round(y0+y),3); PutPixel(Round(x1+x),Round(y0-y),3); end;
y:=y+yb; end;
until u>4*Pi; SetColor(11); SetFillStyle(1,12); y1:=Round(L/2); FillEllipse(x1-y1,y0,r,r); FillEllipse(x1+y1,y0,r,r); SetColor(8); SetLineStyle(1,0,1); Line(x1-y1+3,y0,x1+y1-3,y0); SetTextStyle(0,0,1); SetColor(14); OutTextXY(x1,y0-10,'L'); str(q1:3:1,s); OutTextXY(150,26,'(q1='+s+'10-3 Кл,'); str(q2:3:1,s); OutTextXY(294,26,'q2='+s+'10-3 Клl,'); str(L/mas*100:3:0,s); OutTextXY(430,26,'L='+s+' см)'); OutTextXY(x1-y1-6,y0+8,'q2'); OutTextXY(x1+y1-6,y0+8,'q1'); Readln; ClearDevice; end; begin
Gd:=detect; InitGraph(Gd, Gm,''); i:=1; ya:=1.0; Repeat q1:=1E-3; q2:=3.5E-3; L:=0.2; mas:=1000; q1:=q1*mas; q2:=q2*mas; L:=L*mas; SetColor(12); SetTextStyle(7,0,4); OutTextXY(60,10,'Silovie linii electrichescogo polja'); OutTextXY(190,50,'dvuch zarjadov'); SetColor(1); SetFillStyle(1,1); Bar(190,200+(i-1)*40,420,190+i*40); SetColor(14); SetTextStyle(1,0,2); OutTextXY(200,200,' q1∙q2>0 '); OutTextXY(200,240,' q1∙q2<0 '); OutTextXY(200,280,' Exit '); sc:=ReadKey; if sc=#0 then sc:=ReadKey; code:=Ord(sc); if (code=72) and (i>1) then begin SetColor(0); SetFillStyle(1,0); Bar(190,200+(i-1)*40,420,190+i*40); i:=i-1;
end; if (code=80) and (i<3) then begin SetColor(0); SetFillStyle(1,0); Bar(190,200+(i-1)*40,420,190+i*40); i:=i+1;
end; if code=13 then case i of 1: begin
ClearDevice; SetColor(12); SetTextStyle(7,0,2); OutTextXY(130,0,'Silovie linii odnoimennich zarjadov'); Culon;
end; 2: begin
ClearDevice; SetColor(12); SetTextStyle(7,0,2); OutTextXY(130,0,'Silovie linii raznoimennich zarjadov'); q2:=-q2; Culon; end; 3: Break; end; until code=27; CloseGraph; end. 3.3 Электрон қозғалысын моделдеу. Ара қашықтығы d=2 мм болатын бір–біріне параллель орналасқан және оң (теріс) зарядталған екі жіңішке сымның зарядтарының сызықтық тығыздығы ρ=  3,0∙10-9 Кл/м тең. Олардың жазықтығына перпендикуляр бағытта L = 5 см қашықтықтан V = 107 м/с бастапқы жылдамдықпен электрон қозғалып келеді (2 сурет). Бастапқыда электронның остік бағыттан ауытқуын p ≤ d/4 деп алып, p-ның әртүрлі мәндері үшін электронның траекториясын сызыңдар.
2 сурет. Электрон қозғалысын моделдеу Зарядталған сымның одан r қашықтықтағы электр өрісінің кернеулілігі  , ал оның электронға әсер күші  тең. Мұнда,  8,85∙10-12 Ф/м – электрлік тұрақты, e=-1,6∙10-19 Кл – электрон заряды. Координаталар басын Z1 және Z2 сымдарының ортасына (3-суретте олардың көлденең қимасы кескінделген) деп алсақ, онда электронның координаталары жүктеу/скачать 0,85 Mb. Достарыңызбен бөлісу:
|