Elektronning elektr va magnit maydonlaridagi harakatini modellashtirish

2022 
№4
29 
490 For j = 0 To 2000000: Next j Next p 
End Sub 
Private Sub Command5_Click() 
‘Bir jinsli magnit maydonidagi harakat 
P1.Cls 
m = 9E-31: q = 1.6E-19: b = 0.1: pi = 3.1415926 
w = q * b / m: t9 = 2 * pi / w: k = 2000000 RTF.FileName = "Mag.rtf" 
For v = 2000000# To 16000000# Step 4000000# 
f = 0: t = 0 
r = m * v / (q * b) P1.Cls 
P1.Print 
P1.Print "Bir jinsli magnit maydonidagi harakat" 
P1.Print "B="; b; " Tl";:
P1.Print "w="; Left(w / 1000000000#, 5); " GGs" 
P1.Print "v="; v / 1000; " km/s";:
P1.Print "R="; r * 1000; " mm" 
P1.Print "Aylanish radiusining tezlikka bog'liqligi" 
t1 = t9 / 300
f = f + w * t1 
y = r * Sin(f): z = r * (1 Cos(f)) t = t + t1 x8 = z * k + 1500 y8 = y * k + 2500 
P1.Circle (500 + x8, 1000 + y8), 20, vbRed For j = 1 To 300000: Next j 
P1.Circle (500 + x8, 1000 + y8), 20, vbGreen For j = 1 To 300000: Next j 
If t > t9 Then GoTo 52 GoTo 140 
52 Next v End Sub 
Private Sub Command6_Click() 
‘Doimiy magnit maydoniga burchak ostida kirgandagi harakat 
m = 0.000000000009: q = 1.6: b = 0.1: pi = 3.1415926w = q * b / m: t9 = 2 * pi / w: t1 = t9 
/ 200 k = 100000000#: v = 200000: s = 0.3 
RTF.FileName = "Bur.rtf" 
For aa = 0 To pi / 2 Step pi / 10 aaa = aa * 180 / pi 
P1.Cls: P1.Print 
P1.Print "Doimiy magnit maydoniga burchak ostida kirgandagi harakat" P1.Print "Vo va B 
orasidagi burchak:"; Left(aaa, 5) 
v1 = v * Cos(aa): v2 = v * Sin(aa) f = 0: t = 0: x = 0 
r = m * v2 / (q * b) 
230: f = f + w * t1: t = t + t1 
y = r * Sin(f): z = r * (1 - Cos(f)): x = x + v1 * t1 x8 = (x + z / 1.4) * k + 1000 
y8 = (y - z / 2.8) * k + 1600 
P1.Circle (x8 - 500, y8 + 1700), 20, vbBlue For j = 1 To 300000: Next j 
P1.Circle (x8 - 500, y8 + 1700), 20, vbGreen For j = 1 To 300000: Next j 
If x8 > 7500 Then GoTo 330 
If aa = pi / 2 And f > 10 * pi Then GoTo 330 GoTo 230 
330 Next aa End Sub