UIF-2022: 8.2
SCIENCE AND INNOVATION
ISSN: 2181-3337
INTERNATIONAL SCIENTIFIC JOURNAL
2022
№4
27
‘ Bir jinsli elektr maydonidagi harakat
P1.Cls
‘ elektronning zaryadi, massasi, tezligi va elektr maydon kuchlanganligi
q = 1.6E-19: m = 9.1E-31: E = 100000#: v0 = 10000000#: l = 0.02
a = q * E / m: tm = 1.7 * l / v0: dt = tm / 50 ‘
elektron tezlanishi va vaqt intervali
kx = 200000: ky = 20000
RTF.FileName = "Elektrr.rtf"
‘faylni yuklash
P1.Print
P1.Print "Bir jinsli elektr maydonidagi harakat"
P1.Print "E="; E / 1000; "(kV/m)Vo="; v0 / 1000000#; "(Mm/s)"
P1.Line (3000, 1300)-(3000, 1800), QBColor(3)
‘ kondensatorni chizish
P1.PSet (3100, 1400), vbCyan: P1.Print "-"
P1.Line (1000, 1800)-(5000, 1800), QBColor(3)
P1.Line (1000, 3600)-(5000, 3600), QBColor(3)
P1.Line (3000, 3600)-(3000, 4100), QBColor(3)
P1.PSet (3100, 3900), vbCyan: P1.Print "+"
t = 0 x = 0 y = 0111 x = x + v0 * dt ‘
koordinatalar y = a * x ^ 2 / (2 * v0 ^ 2)
P1.Circle (x * kx + 500, y * ky + 2000), 20, QBColor(4) ‘
Grafik chizish
For j = 1 To 2000000: Next j
P1.Circle (x * kx + 500, y * ky + 2000), 20, QBColor(10) ‘
Grafik chizish
For j = 1 To 2000000: Next j t = t + dt
If t < tm Then GoTo 111 End Sub
Private Sub Command2_Click() ‘
Davriy elektr maydonidagi harakat P1.Cls
q = 1.6E-19: m = 9.1E-31: E0 = 100000#: v0 = 10000000#: l = 0.02
tm = 1.7 * l / v0: dt = tm / 50: w = 1E+15 kx = 200000: ky = 20000
RTF.FileName = "Davr.rtf" ‘
faylni yuklash
For iw = 1 To 4 P1.Cls
P1.Print
P1.Print "Davriy elektr maydonidagi harakat"
P1.Print "Eo="; E0 / 1000; "(kV/m)Vo="; v0 / 1000000#; "(Mm/s)"
w = 1E+15 * 10 ^ iw
P1.Print "w="; w; "(Gs)" P1.Line (3000, 1300)-(3000, 1800), QBColor(3)
P1.Line (1000, 1800)-(5000, 1800), QBColor(3)
P1.Line (1000, 3600)-(5000, 3600), QBColor(3)
P1.Line (3000, 3600)-(3000, 4100), QBColor(3)
t = 0: x = 0: y = 0
111 x = x + v0 * dt E = E0 * Cos(w * dt) a = q * E / m
y = a * x ^ 2 / (2 * v0 ^ 2)
P1.Circle (x * kx + 1000, y * ky + 3000), 20, QBColor(4) For j = 1 To 2000000: Next j
P1.Circle (x * kx + 1000, y * ky + 3000), 20, QBColor(10)
For j = 1 To 2000000: Next j t = t+ dt
If t < tm Then GoTo 111 Next iw
End Sub
Private Sub Command3_Click()
‘Nuqtaviy zaryad maydonidagi harakat P1.Cls
