Список проголосовавших за комментарий "anatolyutkin, вот уточненный варинат:<br/> <br/> Sub Leverage_21()<br/> <br/> Const PIPI As Double = 3.14159265358979<br/> <br/> Dim dS#, dComiss#, dSigma#, dShare#, _<br/> dX#, dY#, dVal#(1 To 3) ' все в даблах<br/> Dim i%, iMax%<br/> Dim j As Byte<br/> <br/> iMax = 10000<br/> <br/> dSigma = 1: dSigma = dSigma / 100<br/> dComiss = 0.03: dComiss = dComiss / 100<br/> dShare = 3<br/> dS = 1<br/> <br/> Randomize ' инициализация Rnd<br/> For i = 2 To iMax<br/> dX = Rnd(): dY = Rnd()<br/> <br/> dVal(1) = ((-2 * Log(dX)) ^ (0.5)) * Cos(2 * PIPI * dY)<br/> dVal(2) = Exp(dSigma * dVal(1)) — 1 — dComiss<br/> dS = -dS * (1 + dShare * dVal(2)) * CInt(dS > 0)<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"