计算机物理学.doc

作业1
Private mand1_Click()
Dim x, y, pi As Double
pi =
Scale (- * pi, 2)-( * pi, -2)
For x = -4 * pi To 4 * pi Step
Let y = Sin(x)
PSet (x, y)
Next x
Line (-4 * pi, 0)-(4 * pi, 0), , B
Line (-4 * pi, )-(4 * pi, -), , B
End Sub
作业2
Private mand1_Click()
Dim x, y, r, t, pi As Double
t = 0
r = 1
pi =
Scale (- * , )-( * , -)
Do Until t > 2 * pi
x = r * Cos(3 * t)
y = r * Sin(5 * t)
t = t +
PSet (x, y)
Loop

End Sub
作业3
Private Sub C1_Click()
Const pi =
h =
r =
m =
c =
v = 20
g =
Scale (-, 25)-(, -)
Line (0, 22)-(, 0), , B
For t = 0 To 7 Step
a = * c * * pi * r ^ 2 / m * v ^ 2 + g
PSet (t, a)
v = v - h * a
If v <= 0 Then
Exit For
End If
PSet (t, v)
s = s + v * h
PSet (t, s)
Next t
CurrentX =
CurrentY =
Print "a(t)阻力"
CurrentX =
CurrentY = 18
Print "s(t)阻力"
CurrentX =
CurrentY = 3
Print "v(t)阻力"
End Sub
Private Sub C2_Click()
Const pi =
h =
r =
m =
无阻力
c =
v = 20
g =
Scale (-, 25)-(, -)
Line (0, 22)-(, 0), , B
a = g
For t = 0 To 10 Step
PSet (t, a)
v = v - h * a
If v <= 0 Then
Print "a(t)"
Exit For
End If
PSet (t, v)
s = s + v * h
PSet (t, s)
Next t
CurrentX =
CurrentY = 18
Print "s(t)"
CurrentX =
CurrentY =
Print "v(t)"
CurrentX = -
CurrentY = -
Print "0"
CurrentX = 0
CurrentY = 0
Print "0"
CurrentX = -
CurrentY = 23
Print "22"
CurrentX =
CurrentY = 1
Print "20"
End Sub
作业4(1)
Private Sub Form_click()
Scale (-, )-(, -2)
Line (0, 30)-(10, 0), , B
Dim v, h, a As Double
g =
c =
ρ=
pi =
r =
m =
h =
v = 0
s = 0
t = 0
For t = 0 To 10 Step h
a = g - * c * ρ* pi * r ^ 2 / m * v ^ 2
v = v + h * a
s = s + h * v
PSet (t, a * 3)
PSet (t, v)
PSet (t, s / 10)
Next
End Sub
作业4(2)
Pr