100 likes | 289 Views
Dag van de Trader - Een casus in TA-script. TA-script is programmeertaal voor Wall Street & Alex Pro Parabolic SAR systeem als voorbeeld voor structuur Parameters definiëren Indicator berekenen Signalen bepalen Lijnen tekenen script staat vanavond op www.ta-script.com.
E N D
Dag van de Trader - Een casus in TA-script • TA-script is programmeertaal voor Wall Street & Alex Pro • Parabolic SAR systeem als voorbeeld voor structuur • Parameters definiëren • Indicator berekenen • Signalen bepalen • Lijnen tekenen • script staat vanavond op www.ta-script.com
Dag van de Trader - Parabolic SAR systeem • Parameters definiëren • Indicator berekenen • Signalen bepalen • Lijnen tekenen nAcc := CreateParameterReal('ParSar acc.factor', 0, 1, 0.01, true); nADX := CreateParameterInteger('ADX periode', 1, 999, 14, true); function CreateParameterReal(Name: string; // parameternaam MinValue, // min.waarde MaxValue, // max.waarde DefaultValue: real; // standaardwaarde CanOptimize: boolean): real; // optimaliseerbaar?
Dag van de Trader - Parabolic SAR systeem • Parameters definiëren • Indicator berekenen • Signalen bepalen • Lijnen tekenen sPAR := Parabolic(High, Low, nAcc, nMaxAcc, Tomorrow); sADX := ADX(High, Low, Close, nADX); DMI(High, Low, Close, nDMI, sDIPlus, sDIMinus); procedure DMI(High, Low, Close: TSeries; Period: integer; var DIPlus, DIMinus: TSeries);
Dag van de Trader - Parabolic SAR systeem • Parameters definiëren • Indicator berekenen • Signalen bepalen • Lijnen tekenen xPar := Crossings(Close, sPAR); for i:=0 to BarCount-1 do begin case xPar[i] of lc1Over2: // Parabolic slaat om, koers boven Parabolic begin if (sADX[i]>=nADXMin) and (sDIPlus[i]>=sDIMinus[i]) then EnterLong(i) else ExitShort(i); end; lc2Over1: ...
Dag van de Trader - Parabolic SAR systeem • Parameters definiëren • Indicator berekenen • Signalen bepalen • Lijnen tekenen with CreateLine(sPAR) do begin Name := 'ParSar'; Color := clYellow; LineType := ltDot; end; type TIndicatorLine = record Name: string; // naam van de lijn Color: TColor; // kleur LineType: TLineType; // lijntype (lijn, candlestick.. Width: integer; // lijndikte ...
Dag van de Trader - Parabolic SAR systeem • Parameters definiëren • Indicator berekenen • Signalen bepalen • Lijnen tekenen xPar := Crossings(Close, sPAR); for i:=0 to BarCount-1 do begin case xPar[i] of lc1Over2: // Parabolic slaat om, koers boven Parabolic begin if (sADX[i]>=nADXMin) and (sDIPlus[i]>=sDIMinus[i]) then EnterLong(i) else ExitShort(i); end; lc2Over1: ...
Dag van de Trader - Parabolic SAR systeem • Exitstrategieën • entry informatie bewaren • stoploss bewaken • profitbars stop bewaken • takeprofit bewaken for i:=0 to BarCount-1 do ... if EnterLong(i) then begin xEntryBar := i; // entrybar onthouden xEntryPrice := Close[i]; // entrykoers onthouden xStopLevel := Close[i] * (1 - nMSL/100); xProfitLevel := Close[i] * (1 + nTakeProfit/100); end;
Dag van de Trader - Parabolic SAR systeem • Exitstrategieën • entry informatie bewaren • stoploss bewaken • profitbars stop bewaken • takeprofit bewaken for i:=0 to BarCount-1 do ... if MarketPosition(i) > 0 then begin { moving stoploss berekenen - long positie } xStopLevel := Max(xStopLevel, Close[i] * (1 - nMSL/100)); if Close[i] < xStopLevel then ExitLong(i);
Dag van de Trader - Parabolic SAR systeem • Exitstrategieën • entry informatie bewaren • stoploss bewaken • profitbars stop bewaken • takeprofit bewaken for i:=0 to BarCount-1 do ... if MarketPosition(i) > 0 then begin { profitbars stop trigger - long positie } if (i <= xEntryBar + nSLBars) and ((Close[i]-xEntryPrice)/xEntryPrice >= nSLProfit/100) then bEntryStop := true; if bEntryStop and (Close[i] < xEntryPrice) then ExitLong(i);
Dag van de Trader - Parabolic SAR systeem • Exitstrategieën • entry informatie bewaren • stoploss bewaken • profitbars stop bewaken • takeprofit bewaken for i:=0 to BarCount-1 do ... if MarketPosition(i) > 0 then begin { take profit bewaken - long positie } if Close[i] > xProfitLevel then ExitLong(i);