For $z = 1 To $n
$d1[$z] = $v * $M / ($M + $z * $mu )
$d2[$z] = ( ($z / 10) * $v * ( $M ^ ( $z / ($z / 10) ) ) / ($M + $mu * ($z / 10) ) ^ ( $z / ($z / 10) ) ) / ($z / 10)
; $d2[$z] = $v * ( $M ^ $z ) / (($M + $mu ) ^ $z) ; для сравнения - оригинальная формула
GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & "n = " & $z & @TAB & @TAB & "v1 = " & StringFormat("%.15f",$d1[$z]) & @TAB & @TAB & "v2 = " & StringFormat("%.15f",$d2[$z]) & @TAB & @TAB)
If $d1[$z] = $d2[$z] Then GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & "v1 = v2" )
If $d1[$z] > $d2[$z] Then GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & "v1 > v2" )
GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & @CRLF)
Next |
