Flächeninhalt zw. 2 Aktienkursen minimieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Flächeninhalt zw. 2 Aktienkursen minimieren

24.09.2003 16:50:22

axel.meyer

24.09.2003 17:28:45

axel.meyer

AW: PS

25.09.2003 20:12:14

atze

AW: PS

27.09.2003 12:19:48

axel.meyer

hi atze,

so sollte es gehen:
wirf den makrorekorder an.
mach ein xy-diagramm von einer zeitkurve
rechte maustaste auf den graph: trendlinie hinzufügen, hier: polynomisch, 6. grades, gleichung im diagrammfeld darstellen
makrorekorder stop

das was du bisher hast, kannst du dir in eine schleife einbauen, nach dem selben prinzip, wie die jetzt kommende schleife

und jetzt baust du dir eine schleife:
for i = 1 to kurvenanzahl
ActiveSheet.ChartObjects("Diagramm " & i).Activate
variable = ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Characters.Text
Range("B" & i) = variable
next i

dann hast du erst einmal für alle graphen eine kurve (übereinstimmungsgrade testen!)

mit hilfe von Instring, Left(), Mid(), Right() kannst du dir jetzt die koeffizienten der gleichungen auslesen und die rechnung durchführen.

noch was zur mathematik: die grüne fläche entspricht nicht der differenz der beiden integrale. die grüne fläche enspricht der differenz der integrale von einem schnittpunkt bis zum nächten, denn: wie du selbst gesagt hast: es ist die obere minus die untere kurve. nur welche ist oben/unten bei sich mehrfach kreuzenden graphen? bsp: integral sin(a) ist in den grenzen von 0-unendlich auch null, weil sich die positiven bäuche mit den negativen wegheben. wenn du aber die "x-achse" als deine zweite kurve ansiehst und immer den zwischenraum als flächenergebnis haben willst, mußt du, bezogen auf das sin()-beispiel immer von 0-Pi integrieren, da dort immer die schnittpunkte liegen. und diese integrationsgrenzen mußt du dir erst mal festlegen, indem du je zwei gleichungen gleichsetzt. danach ist die integration, selbst in einem programm auch nicht mehr so schwierig, sondern simpler oberstufenstoff (pisa ;)

hoffe ich hab dich nicht nur verwirrt, sondern auch etwas unterstützt.

gruß, axel

tach atze,

übereinstimmung-GRade, nicht gErade :)

nein, ich meinte damit einfach, daß du nachsehen mußt, wie gut sich die polynome 6. grades anpassen, grad der übereinstimmung. die muß nicht unbedingt zufriedenstellend sein, wenn du aber nur von schnittpunkt zu schnittpunkt polynome legst, könnte das, auch wenn es in teilbereichen abweicht, insgesamt ein gutes ergebnis liefern.

bzgl mid(), right(), left():

dieses makro erklärt es eigentlich schon sehr gut, die anderen unteren sind zur ergänzung, daraus kannst du dir deinen code zusammenbasteln, mit dem du die koeffizienten des polynoms ausliest.

wenn du noch fragen hast, mail mir einfach an axel.meyer@gmx.at

gruß, axel


Sub teilen()
Dim strTest As String
Dim var1 As String
Dim var2 As String
Dim var3 As String
strTest = "MAN200GRT"
'strTest =Range("A1")
var1 = Left(strTest, 3)
var2 = Mid(strTest, 4, 3)
var3 = Right(strTest, 3)
End Sub

dim textlänge
txt = "Dies ist ein Text"
textlaenge = Len(txt)

hiermit könntest du einen text trennen und eine zahl aus einem text lesen (zumindest die erste zahl nach den buchstaben)

Dim intCounter As Integer
intCounter = 1
Do Until Not IsNumeric(Mid(txt, intCounter, 1))
intCounter = intCounter + 1
Loop
NumberFilter = Val(Left(txt, intCounter - 1))

hiermit kannst du den string um stellen kürzen, indem du nach dem tennungszeichen x suchst.

Dim txt As String
txt = ThisWorkbook.Name
txt = Left(txt, InStr(txt, "x") - 1)
txt = Left(txt, Len(txt) - 2) & ".xls"


Sub zahlkuerzen()
Dim txt As Variant
Dim Text_Laenge, Laenge_Bis_Komma
txt = Range("c4").Value
Text_Laenge = Len(txt)
Laenge_Bis_Komma = InStr(txt, ",")
txt = Right(txt, Text_Laenge - (Laenge_Bis_Komma + 1))
MsgBox txt
End Sub

Beliebteste Forumthreads (12 Monate)

Flächeninhalt zw. 2 Aktienkursen minimieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread