New Chart Indicator: _TRO_POOR_MANs_SLOT
Posted: Mon Jun 26, 2006 12:46 pm
New Chart Indicator: _TRO_POOR_MANs_SLOT
This is for all of the trader's who don't have RadarScreen.
Since I am still on version 8.0, there are only 2 triggers but you can expand the code to handle more.
The top Green/Red dots indicate buy/sell.
The bottom DarkGreen/DarkRed dots indicator cover/short.
The triggers/colors are all user inputs so you can use this to test your trade triggers before you actually trade them with real money.
My favorite triggers are the defaults.
ELD attached.
MAY ALL YOUR FILLS BE COMPLETE.
This is for all of the trader's who don't have RadarScreen.
Since I am still on version 8.0, there are only 2 triggers but you can expand the code to handle more.
The top Green/Red dots indicate buy/sell.
The bottom DarkGreen/DarkRed dots indicator cover/short.
The triggers/colors are all user inputs so you can use this to test your trade triggers before you actually trade them with real money.
My favorite triggers are the defaults.
ELD attached.
MAY ALL YOUR FILLS BE COMPLETE.
Code: Select all
// _TRO_POOR_MANs_SLOT - chart version of slot machine
{Attn: TradeStation
if this indicator is posted on the TradeStation Forum, I, TheRumpledOne, did NOT post it there,
so I can't be blamed for this indicator having my contact info.}
{Programmer: Avery T. Horton, Jr. aka TheRumpledOne,
gifts and donations accepted, PO Box 43575, Tucson, AZ 85733 }
{ © Copyright 2006 Avery T. Horton, Jr.}
inputs:
iLgEntryTrigger1( close crosses above xavg(close,5) and xavg(close,5) > xavg(close[1],5) ),
iShEntryTrigger1( close crosses below xavg(close,5) and xavg(close,5) < xavg(close[1],5) ),
iLgExitTrigger1(c < c[1] and c[1] < c[2]),
iShExitTrigger1(c > c[1] and c[1] > c[2]),
iLgEntryColor1 ( green ),
iShEntryColor1 ( darkred ),
iLgExitColor1 ( red ),
iShExitColor1 ( darkgreen ),
iLgEntryTrigger2( close crosses above ( h[1] + l[1] ) *.5 ),
iShEntryTrigger2( close crosses below ( h[1] + l[1] ) *.5 ),
iLgExitTrigger2(c < ( h + l ) *.5 ),
iShExitTrigger2(c > ( h + l ) *.5 ),
iLgEntryColor2 ( green ),
iShEntryColor2 ( darkred ),
iLgExitColor2 ( red ),
iShExitColor2 ( darkgreen );
variables:
sFirstPass(true),
xPlot1( 1 ),
xPlot2( -1 ),
xPlot3( 3 ),
xPlot4( -3 );
variables:
FG1(white),
BG1(black),
fg2(white),
bg2(black),
fg3(white),
bg3(black),
fg4(white),
bg4(black);
{ INITIALIZE }
FG1 = BLACK;
BG1 = BLACK;
fg2 = BLACK;
bg2 = BLACK;
fg3 = BLACK;
bg3 = BLACK;
fg4 = BLACK;
bg4 = BLACK;
{ Alert criteria }
If iLgEntryTrigger1
then begin
Fg1 = iLgEntryColor1 ;
end
else
If iLgExitTrigger1
then begin
Fg1 = iLgExitColor1 ;
end;
If iShExitTrigger1
then begin
Fg2 = iShExitColor1 ;
end;
If iShEntryTrigger1
then begin
Fg2 = iShEntryColor1 ;
end;
If iLgEntryTrigger2
then begin
Fg3 = iLgEntryColor2 ;
end
else
If iLgExitTrigger2
then begin
Fg3 = iLgExitColor2 ;
end;
If iShExitTrigger2
then begin
Fg4 = iShExitColor2 ;
end;
If iShEntryTrigger2
then begin
Fg4 = iShEntryColor2 ;
end;
{ PLOT }
Plot1( xPlot1 , "LgTrade1", fg1 ) ;
Plot2( xPlot2 , "ShTrade1 ", fg2 ) ;
Plot3( xPlot3 , "LgTrade2", fg3 ) ;
Plot4( xPlot4 , "ShTrade2 ", fg4 ) ;