ich habe eine Funktion und möchte mit einem Makro deren maximalen Wert ermitteln(x=1 To 3)
F(x)=2*x*sqr(x^2-6*x+10)+(2*x-6)*sqr(9+x^2). Das ist zunächst meine letzte Frage!
Gruß, Alifa
Sub tt()
MsgBox gross()
End Sub
Function gross()
Dim x, W(1 To 3)
For x = 1 To 3
W(x) = 2 * x * Sqr(x ^ 2 - 6 * x + 10) + (2 * x - 6) * Sqr(9 + x ^ 2)
Next x
gross = W(1)
For x = 2 To 3
If gross
Gruß
Reinhard