|
Elektronning elektr va magnit maydonlaridagi harakatini modellashtirishBog'liq elektronning-elektr-va-magnit-maydonlaridagi-harakatini-modellashtirish-12022
№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
|
| |
