Schnittpunkt zweier Kurven

[steddys]

Hallo zusammen...

ich bin neu hier in diesem Forum und arbeite seit ca. 5 Monaten mit Diadem 10. Ich habe für meine Datenauswertungen auch schon einige VBS-Scripte geschrieben, habe jetzt allerdings eine Fragestellung bezgl. Schnittpunkte von Kurven:

Wie kann ich den Schnittpunkt zweier Kurvenverläufe bestimmen bzw. wie kann ich mir die Zeile (vielleicht über den "find"-Befehl) des Schnittpunktes ausgeben lassen, damit ich dieser Zeile dann z.B. einen Wert zuordnen kann? Anbei habe ich mal ein Bsp.-Diagramm gestellt, in dem ein Schnittpunkt abgebildet ist zweier Kurven abgebildet ist.

Ich habe auch schon in der Hilfe nachgeschaut und habe unter "intersection" bzw. Schnittpunkt auch etwas gefunden, was mir aber glaube ich nicht viel weiter hilft!

Würde mich sehr freuen, wenn jmd. diesbezgl. eine Antwort für mich parat hätte!

MfG

Sebastian

[steddys]

irgendwie hat das mit dem Attachment nicht gefunzt, aber jetzt....

[Ralf_Mueller]

Hallo Sebastian,

das von Ihnen gefundene ausführbare DIAdem-Beispiel sucht den Schnittpunkt der Tangenten zweier Kurven und ist deshalb entsprechend komplizierter. Zur Berechnung des Kurvenschnittpunkts genügt es, die Differenz der beiden Kanäle zu berechnen und im Ergebniskanal nach dem Wert Null zu suchen. Am Beispiel des Datensatzes Data4.TDM im Demo-Verzeichnis könnte das wie folgt aussehen:

Call ChnCalculate("Ch(""Chn_Diff"") = Ch(""[1]/T_min"") - Ch(""[1]/T_min_mittlere"")")
L1 = PNo("Chn_Diff",0)
call MsgBoxDisp("Der Schnittpunkt liegt beim Kurvenindex: "&L1)

Die Funktion PNo sucht die Zeile, deren Wert dem Zielwert am nächsten kommt.

Falls es nicht immer einen Schnittpunkt gibt, ist der Vergleich mit einem angemessen kleinen Epsilon-Wert mittels Find-Funktion besser.

Viel Erfolg,
Ralf