INVESTOX-Forum

Quellcode

''Script-MACD ------------------------------------------------------------
dim i
dim mymacd
if scriptberechneformel("macd(close)", mymacd) then
  for i= 1 to AllePerioden
    Ergebnis(i)=mymacd(i)
  next
end if

msgbox tradeanzahl ''  <---------- WIE VIELE TRADES WURDEN GENERIERT?----------------

''Script-GetTradeInfo ------------------------------------------------------------
dim aktTradeNr
dim startperiod
dim endperiod
dim wert
dim datum
dim TradeStartdatum
dim DatenOffset

if tradeanzahl>0 then  ''  <---------- HIER KOMME ICH NIE DURCH ------------------------------
	'Zuerst ermitteln, welcher Offset in den Perioden von
	'Tradeliste und Chartdaten besteht
	getdatum datum
	TradeStartdatum=tradeergebnis(1,"startdate")
	Startperiod=tradeergebnis(1,"startperiod")
	for i=1 to alleperioden
		if datum(i)>=TradeStartdatum then
			DatenOffset=i-Startperiod
			exit for
		end if			
	next 
	' Jetzt das gewünschte Ergebnis kopieren
	for aktTradeNr = 1 to tradeanzahl
		startperiod=tradeergebnis(akttradenr,"startperiod")
		endperiod=tradeergebnis(akttradenr,"endperiod")
		' Hier wird "Opendrawdown" kopiert
		' ansonsten stehen zur Verfügung:
		'  "position"
		'  "startperiod"
		'  "endperiod"
		'  "tradedperiods"
		'  "investStart"
		'  "investEnd"
		'  "paidcommissions"
		'  "opendrawdown"
		'  "exitreason"
		'  "startdate"
		'  "enddate"
		'  "stückzahl"
		'  "cash"
		'  "zinsen"
		'  "paidtax"
		'  "enterbasis"
		'  "exitbasis"
		'  "maxgewinn"
		'  "stopnr"
		'  "pyramidstückzahl"
		'  "tradehigh"
		'  "tradelow"
		wert=tradeergebnis(akttradenr,"cash")
		for i = startperiod to endperiod
			if i+datenoffset <= AllePerioden then
				ergebnis(i+datenoffset)=wert
			end if
		next
	next
else
	'Ohne Tradeliste: Alles auf 0 setzen
	for i=1 to alleperioden
		ergebnis(i)=0
	next
end if