Top.Mail.Ru
Ответы
Аватар пользователя
14лет
Изменено
Аватар пользователя
Аватар пользователя
Аватар пользователя
Программирование
+4

Помогите пожалуйста составить программу по следующему заданию в World Excel Visual Basic(VBA):"Линейное программирование

программирование. Метод Монте-Карло. В квадрате с дополнительными ограничениями."
Должен получиться график, на нем квадрат с границами, ограничивающие его. Программа должна находить случайные числа, которые входят в область квадрата.

Прошу вас написать мне программу, не объяснение ее и дурацких ссылок с объяснениями, только написаная программа, так как по времения ограничен, должен сдать зачет по Информатике до 17 декабря 2010 года собствено.

По дате
По рейтингу
Аватар пользователя
Новичок
14лет

вот ты обвиняешь людей в дурацких ссылках а сам по дурацки написал условие: что это за дополнительные ограничения в квадрате??? ?
Когда же вы поймете, что правильно и подробно написанное условие - это треть решения задачи ?-)
Соответственно вам лень писать условие - людям лень тогда решать)) )
Я понял условие задачи так:
Дан генератор случайных чисел от 0 до B
пара последовательных чисел представляют собою координаты точек попадающих в этот квадрат.
внутри его находится квадрат со стороной А меньше В
Тогда по методу Монте-Карло отношение площадей квадратов равно отношению числа точек попавших в квадрат А из числа всех точек.
Решение:
Sub ppp()
A = 10
B = 15
NNB = 0
NNA = 0
For ii = 1 To 1000
xx = Rnd() * B
yy = Rnd() * B
NNB = NNB + 1
If (xx <= A) And (yy <= A) Then
NNA = NNA + 1 ' вот условие попадания в квадрат А
End If
Cells(ii, 1) = NNA / NNB
Next ii
End Sub