Developing.ru

Код: Выделить всё

program elmgmv;
uses Grt,Graph;
var gd,gm,xd,yd:Integer;
x,y,z,mx,t,dt,q,m,v,al,vx,vy,vz,fx,fy,fz:real;
e,ex,ey,ez,b,bx,by,bz:real;
Begin
q:=-1.6e-19; m:=9.1e-31; v:=1e8; al:=85;
al:=al*pi/180;mx:=1e4;
ex:=2e3;ey:=0;ez:=0;
bx:=0.1; by:=0; bz:=0;
gd:=ega; gm:=1; InitGraph(Gd,Gm,'');
{SetColor()11;}LINE(0,225,630,225);
LINE(150,175,20,305);
x:=0;y:=0;z:=0;dt=1e-12;
vx=v*cos(al);vy:=v*sin(al);vz:=0;
repeat
fx:=q*(ex+(vy*bz-vz*by)); vx:=vx+fx*dt/m;
x:=x+vx*dt;
fy:=q*(ey+(vz*bx-vx*bz)); vy:=vy+fy*dt/m;
y:=y+vy*dt;
fz:=q*(ez+(vx*by-vy*bx)); vz:=vz+fz*dt/m;
z:=z+vz*dt;
xd:=100+Round((x-z/3)*mx);
yd:=225-Round((y-z/3)*mx);
putpixel(xd,yd,12);
if(xd<0)or(xd>630)or(yd<0)or(yd>450)
then
break;
t:=t+dt;
until t>5e-8;
Readlen;CloseGraph;End.