|
Elektronning elektr va magnit maydonlaridagi harakatini modellashtirishBog'liq elektronning-elektr-va-magnit-maydonlaridagi-harakatini-modellashtirish-1 2-ma'ruza (2), Toshkent avtomobil va yo\'llar kasb-hunar kolleji, муд.олдинги ва муд.утган хом, 25 30 апрель қуйи бўғин рахбарлари МО дарс жадвали ХУДУДларга, Abdumalikova Odinaxon..., Faoliyat va uning tuzulishi, титуль, Технические характеристики. Niva Travel, 1, Курс лойихаси бўйича топшириқ БЛАНКА, 2, C tilida bir o\'lchovli, ikki o\'lchovli massivlar., Xushnudbek 1- dedline (wecompress.com), 200 янги тест, Xalqaro moliyaviy hisobot standartlari va ularning standart talablari2022
№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
|
| |