Hallo,
eine solche Abfrage erfordert Schleifen etc. und ist daher als externer Indikator oder als VBScript umzusetzen. Hier ein Vorschlag für VBScript (im Beispiel wird Volume statts OpenInt verwendet):
|
Quellcode
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
VBScript(#>>'VBScript
Dim FeldC, FeldV, i, j, StartI
GetDaten "Close", FeldC
GetDaten "Volume", FeldV
StartI=ErsteDatenPeriode(FeldV)
for i=ErsteDatenPeriode(FeldC) to LetzteDatenPeriode(FeldC)
Ergebnis(i)=0 ' Wert, wenn nichts gefunden wird
if i>=StartI then
for j=i-1 to StartI Step-1
'Eine Toleranz beim Vergleichen zulassen
if (FeldC(j)/FeldC(i)-1)<0.000001 then
Ergebnis(i)=FeldV(j)
exit for
end if
next
end if
next<<#)
|
Viele Grüße
Andreas Knöpfel