Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1028to1032
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Minimum

Minimum
03.12.2008 21:42:23
Rolf
Hallo Leute!
Ich möchte ein Munimum von Funktion
per Makro berechnet bekommen(ohne Solver!)
f=x*x-x+2
dabei kann "x" Werte bekommen von -2 bis 5,
interval 0.5
Also bei welchem "x" Wert ist "f" minimal.
Wäre es was für Euch?
Grüße
Rolf

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Minimum
03.12.2008 22:06:05
Original
Hi,

Sub t()
Dim f, x, i, z, arr()
i = -2
For x = i To 5 Step 0.5
z = z + 1
ReDim Preserve arr(z)
f = x * x - x + 2
arr(z) = f
Next
MsgBox Application.Min(arr)
End Sub


mfg Kurt

AW: Minimum
04.12.2008 13:57:38
Rolf
Hallo Kurt!!
Also ich bin sprachlos!
Solche perfekte Lösung!
Bedanke mich herzlich!
Mit warmen Grüßen
Rolf
AW: Minimum
04.12.2008 14:12:00
Rolf
Hallo Kurt!
Ist es auch möglich den "x"Wert
ermitteln bei dem "f" minimal ist?
Grüße
Rolf
AW: Minimum
04.12.2008 20:40:57
Original
Hi,

Sub t()
Dim f, x, i, z, arr(), arx()
i = -2
For x = i To 5 Step 0.5
z = z + 1
ReDim Preserve arr(z)
ReDim Preserve arx(z)
f = x * x - x + 2
arr(z) = f
arx(z) = x
Next
MsgBox "Minimum f: " & Application.Min(arr) & Chr(10) & _
"Minimum x: " & Application.Min(arx)
End Sub


mfg Kurt

Anzeige
AW: Minimum
05.12.2008 10:30:05
Rolf
Hallo Kurt!
Die Funktion "f" Minimum wird richtig ausgerechnet!
Aber der der dazu gehörende Wert "x" -falsch!
Er nimmt einfach den minimalen Grenzwert(-2).
Normal ist der Wert von "x" bei Minimum der Funktion(0.5).
Könntest DU nicht die Formel berichtigen?
Grüße
Rolf
AW: Minimum
05.12.2008 17:13:00
Original
Hi,

Option Explicit
Option Base 1
Sub t()
Dim f, x, i, z, arr(), arx()
i = -2
For x = i To 5 Step 0.5
z = z + 1
ReDim Preserve arr(z)
ReDim Preserve arx(z)
f = x * x - x + 2
arr(z) = f
arx(z) = x
Next
For x = LBound(arr) To UBound(arr)
If arr(x) = Application.Min(arr) Then
MsgBox "Minimum f: " & Application.Min(arr) & Chr(10) & _
"x bei min(f): " & arx(x)
Exit For
End If
Next
End Sub


mfg Kurt

Anzeige
AW: Minimum
05.12.2008 17:42:08
Rolf
Hallo Kurt!!
Die letzte Ausführung arbeitet perfekt!!
Ich bin Dir sehr dankbar!
Dieses Makro von Dir ist ein kleiner "optimieser".
Also man kann "min" oder "max" einer Funktion
leicht finden!Ich nehme an das DU damit vielen Leuten
geholfen hast da im Internet nichts vergleichbares zu finden ist!
Herzliche Grüße
Rolf

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige