$nmax = 101
If $n < 101 Then $nmax = $n
For $z = 1 To $nmax
$d1[$z] = $v * $M / ($M + $z * $mu )
$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
For $z = 102 To $n
$d1[$z] = $v * $M / ($M + $z * $mu )
$d2[$z] = ( 100 * $v * ( $M ^ ( $z / 100 ) ) / ($M + $mu * 100 ) ^ ( $z / 100 ) ) / 100
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 |
