- Private Sub CommandButton1_Click()
- ReDim x(10)
- ReDim y(10)
- x(0) = 0
- y(0) = 0
- For i = 1 To 10
- y(i) = y(i - 1) + 0.1 * (2 * x(i - 1) - y(i - 1))
- x(i) = x(i - 1) + 0.1
- Cells(1, i) = x(i)
- Cells(2, i) = y(i)
- Next i
- End Sub
We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.
We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!
Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.