авось, вы чем-нибудь да и подсобите. Элементарщина - а я в ступоре уже не один день.
работаю в Microsoft Visual Basic 2010.
Надобно написать программу, которая выводила бы на экран диаграмму динамики роста популяции насекомых (посмотреть и формулу, и диаграмму можно тут). Смысл, что мне дана формула, и вот такие значения: λ=100 β=7; λ=[0,100], xn=[0,6] - где два последних промежутка - для системы координат.
есть написанная похожая программа для эквивалентной диаграммы - бифуркационной, Ферхюльста.
часть программы, которая в ходе подстановки моей формулы - динамики популяции насекомых, должна претерпеть изменения:
Private Sub Ferhulst(ByVal N As Long, ByVal x0 As Double, ByVal r As Double, ByVal e As PaintEventArgs)
Dim i As Long
Dim xn As Double
Dim xni As Double
Dim RedPen As New Pen(Color.FromArgb(255, 255, 0, 0), 1)
'1-я точка(0,x0)
xn = x0
'остальные N-1 точки
For i = 0 To 5120
For r = rmin To rmax Step 0.00001
xni = (1 + r) * xn - r * xn * xn
If i > 5000 Then
e.Graphics.DrawRectangle(RedPen, xe(r), ye(xni), 1, 1)
xn = xni
End If
Next r
Next i
End Sub
собственно, по аналогии нужно сделать и для этой долбаной популяции насекомых. НО - ни черта не получается. Не могу нормально сообразить - по какой переменной цикл строить, как лучше поставить строчку с рисованием и тэ дэ.
Если у кого нибудь есть какие то идеи - то поделитесь пожалста. У меня всё иссякло. мой максимум - рисует из нулевой точки одну прямую, она делится на две и эти две прямых ускакивают чуть ли не в бесконечность.