Список проголосовавших за комментарий "anatolyutkin, ага. Понял. Вот тогда окончательный вариант с учетом поправок. Надеюсь нет ни ошибок, ни опечаток. Проверь сам обязательно:)<br/> <br/> Обрати внимание на жирное — как проводится проверка на ноль. Это тебе на будущее (безотносительно к твоему коду, просто — важный момент) — никогда не проверяй даблы и пр. с плав. точкой на равенство! Нулю, другому даблу и пр. Только на больше-меньше.<br/> <br/> ------------------------------------------------<br/> Sub Leverage_22()<br/> <br/> Const PIPI As Double = 3.14159265358979<br/> Const MIND As Double = 4.94065645841247E-324<br/> <br/> Dim dS#, dComiss#, dSigma#, dShare#, _<br/> dXX#(), dYY#(), dVal#(1 To 3) ' все в даблах<br/> Dim i%, iMax%<br/> Dim j As Byte<br/> <br/> dSigma = 1: dSigma = dSigma / 100<br/> dComiss = 0.03: dComiss = dComiss / 100<br/> dShare = 3<br/> dS = 1<br/> <br/> iMax = 10000<br/> ReDim dXX(2 To iMax): ReDim dYY(2 To iMax)<br/> <br/> Randomize ' инициализация Rnd<br/> For i = 2 To iMax<br/> dXX(i) = Rnd<br/> ' закомментировать ненужное<br/> If <strong>Not (dXX(i) > 0)</strong> Then dXX(i) = Rnd ' сгенерить следующее<br/> If Not (dXX(i) > 0) Then dXX(i) = MIND ' взять мин возм double<br/> If Not (dXX(i) > 0) Then dXX(i) = CDbl(«4E-324») ' взять мин возм double<br/> Next<br/> <br/> Randomize ' инициализация Rnd<br/> For i = 2 To iMax<br/> dYY(i) = Rnd<br/> Next<br/> <br/> For i = 2 To iMax<br/> dVal(1) = ((-2 * Log(dXX(i))) ^ (0.5)) * Cos(2 * PIPI * dYY(i))<br/> dVal(2) = Exp(dSigma * dVal(1)) — 1 — dComiss<br/> <br/> dS = dS * (1 + dShare * dVal(2))<br/> If Not (dS > 0) Then dS = 0 ' dS = -dS * CInt(dS > 0)<br/> <br/> dVal(3) = dS ' dS оставлено для понимания<br/> <br/> For j = 1 To 3<br/> Cells(i, j).Value = dVal(j)<br/> Next<br/> <br/> 'If dS = 0 Then Exit For ' добавил от себя<br/> Next<br/> End Sub"