QQQ.page



Scalper , QQQ/Stocks Version

	var trigger, XUP, XDOWN, X: float; var N1, N2, LOWBAR, HIGHBAR, START, KUP, KDOWN, FACTOR1, FACTOR2, FACTOR3, FACTOR4, BAR: integer; var ROCPANE: integer; SetShareSize( 1000 ); ROCPane := CreatePane( 75, false, true ); PlotSeries( ROCSeries( EMASeries(#Close,20), 2 ), ROCPane, #Red, #Thin); DrawHorzLine( 0, ROCPane, #Blue, #Thick ); DrawText( 'Slope of EMA', ROCPane, 4, 4, #Red, 12 ); HideVolume; Start := 40; KUp := CreateSeries(); KDown := CreateSeries(); factor1 := CreateSeries(); factor2 := CreateSeries(); factor3 := CreateSeries(); factor4 := CreateSeries(); xUp := 0.0; xDown := 0.0; for Bar:= 20 to BarCount -1 do begin end; for Bar := 20 to BarCount - 1 do begin x := ((PriceHigh(Bar) - PriceLow(Bar))*2.5); SetSeriesValue(Bar, factor1, x); x := ((PriceClose(Bar) + PriceHigh(Bar) + PriceLow(Bar)) / 3.0); SetSeriesValue(Bar, factor2, x); if (ROC(Bar, EMASeries(#Close,20), 2 )>0) then SetBackgroundColor( Bar, #GreenBkg ); if (ROC(Bar, EMASeries(#Close,20), 2 )<0) then SetBackgroundColor( Bar, #RedBkg ); end; for Bar := Start + 1 to BarCount - 1 do begin SetSeriesValue(Bar, factor3, EMA(Bar, factor1,20)); SetSeriesValue(Bar, factor4, EMA(Bar, factor2,20)); xUp := GetSeriesValue(Bar, factor4) + GetSeriesValue(Bar, factor3); SetSeriesValue(Bar, KUp, xUp); xDown := GetSeriesValue(Bar, factor4) - GetSeriesValue(Bar, factor3); SetSeriesValue(Bar, KDown, xDown); end; PlotSeries( KDown, 0, #Blue, 0 ); PlotSeries( Kup, 0, #Blue, 0 ); PlotSeries( EMASeries(#Close,20), 0, #Red, 0); for Bar := 20 to BarCount - 1 do begin if not LastPositionActive then { Entry Rules } begin trigger:=EMA(bar,#Close,20); n1 := Trunc(LowestBar( Bar, #Low, 15 )); n2 := Trunc(HighestBar( Bar, #High, 15 )); if (PriceLow(n1)<GetSeriesValue(n1, KDown)) AND (GetHour(Bar)<15) AND (ROC(Bar, EMASeries(#Close,20), 2 )<0) then ShortAtLimit(Bar+1, trigger,''); if (PriceHigh(n2)>GetSeriesValue(n2, KUp)) AND (GetHour(Bar)<15) AND (ROC(Bar, EMASeries(#Close,20), 2)>0) then BuyAtLimit(Bar+1,trigger,''); end else { Exit Rules } begin if PositionLong(LastPosition) then if Bar - PositionEntryBar( LastPosition ) = 3 then begin SellAtMarket( Bar + 1, LastPosition, '' ); end else begin SellAtLimit(Bar+1,PositionEntryPrice(LastPosition)+0.25,LastPosition,''); SellAtStop(Bar+1,PositionEntryPrice(LastPosition)-0.50,LastPosition,''); end; if PositionShort(LastPosition) then if Bar - PositionEntryBar( LastPosition ) = 3 then begin CoverAtMarket( Bar + 1, LastPosition, '' ); end else begin CoverAtLimit(Bar+1,PositionEntryPrice(LastPosition)-0.25,LastPosition,''); CoverAtStop(Bar+1,PositionEntryPrice(LastPosition)+0.50,LastPosition,''); end; end; end;

		Comments: QQQ/Stocks Version of the EMINI S&P, results probably not as good as for the EMINI (Note: EMINI is probably better for daytrading with a script, you wont get false ticks, therefore no false triggers) Test Market: 1 minute QQQ Needs the WLD2 software + realtime feed to work since the script uses intraday functions. You can see some backtesting results here. (May take a while to load.) Revised 04/28 : I accidentally deleted 2 lines in the original entry. I have added the 2 lines back and made the script trade in 1000 share lots. Also added a profit target and stop loss, not much difference since the trade is exited in 3 minutes

		Warning: Use this script at your own risk. Back to the Main Page , Go to the Download Page Comments and questions can be submitted here. If the script works for you and you decide to get the software, remember to get it here !!