Scalper , S&P EMINI Version
		var decipart, wholepart, trigger, XUP, XDOWN, X: float; var N1, N2, LOWBAR, HIGHBAR, START, KUP, KDOWN, FACTOR1, FACTOR2, FACTOR3, FACTOR4, BAR: integer; var ROCPANE: integer; 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; SetScaleDaily; RestorePrimarySeries; 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 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 n1 := Trunc(LowestBar( Bar, #Low, 15 )); n2 := Trunc(HighestBar( Bar, #High, 15 )); decipart:= FRAC(EMA(bar,#Close,20)); wholepart:=TRUNC(EMA(bar,#Close,20)); if (decipart<=0.125) then trigger:=wholepart; if (decipart>0.125) AND (decipart<=0.375) then trigger:=wholepart+0.25; if (decipart>0.375) AND (decipart<=0.625) then trigger:=wholepart+0.50; if (decipart>0.625) AND (decipart<=0.875) then trigger:=wholepart+0.75; if (decipart>0.875) then trigger:=wholepart+1.00; if (PriceLow(n1)<GetSeriesValue(n1, KDown)) AND (GetHour(Bar)<15) AND (ROC(Bar, EMASeries(#Close,20), 2 )<0) then ShortAtLimit(Bar+1, trigger,'Short Trigger'); if (PriceHigh(n2)>GetSeriesValue(n2, KUp)) AND (GetHour(Bar)<15) AND (ROC(Bar, EMASeries(#Close,20), 2)>0) then BuyAtLimit(Bar+1, trigger,'Long Trigger'); end else { Exit Rules } begin if PositionLong(LastPosition) then if Bar - PositionEntryBar( LastPosition ) = 5 then begin SellAtMarket( Bar + 1, LastPosition, '' ); end else begin SellAtLimit(Bar+1,PositionEntryPrice(LastPosition)+1.50,LastPosition,'Target Reached'); SellAtStop(Bar+1,PositionEntryPrice(LastPosition)-2,LastPosition,'Stopped Out'); end; if PositionShort(LastPosition) then if Bar - PositionEntryBar( LastPosition ) = 5 then begin CoverAtMarket( Bar + 1, LastPosition, '' ); end else begin CoverAtLimit(Bar+1,PositionEntryPrice(LastPosition)-1.50,LastPosition,'Target Reached'); CoverAtStop(Bar+1,PositionEntryPrice(LastPosition)+2,LastPosition,'Stopped Out'); end; end; end;
			Comments: Very quick in and out scalper for the EMINI S&P, high win/loss ratio, low drawdown, enough trades (about 5 per day) not to get you bored, but you have to be fast on the trigger and you will not always get filled at the trigger price. Test Market:  1 minute S&P EMINI (ES) 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.)
			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 !!