I was emailing with Mike Parker (MP) this week about forex trading. MP told me he was playing the reversals. A currency seems to follow a pattern - certain hours it goes down and other hours it goes up.
TRO 24hours displays the candle body size. Green is up and Red is down.
What pattern do you see?
Code: Select all
{ _TRO_24Hours }
{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 2007 Avery T. Horton, Jr.}
inputs:
iDecimals(4),
iPlotDate(1070817),
iPlotValue(close - open);
variables:
pv1(white),
pv2(white),
pv3(white),
pv4(white),
pv5(white),
pv6(white),
pv7(white),
pv8(white),
pv9(white),
pv10(white),
pv11(white),
pv12(white),
pv13(white),
pv14(white),
pv15(white),
pv16(white),
pv17(white),
pv18(white),
pv19(white),
pv20(white),
pv21(white),
pv22(white),
pv23(white),
pv24(white);
variables:
FG1(white),
FG2(white),
FG3(white),
FG4(white),
FG5(white),
FG6(white),
FG7(white),
FG8(white),
FG9(white),
FG10(white),
FG11(white),
FG12(white),
FG13(white),
FG14(white),
FG15(white),
FG16(white),
FG17(white),
FG18(white),
FG19(white),
FG20(white),
FG21(white),
FG22(white),
FG23(white),
FG24(white),
BG1(white),
BG2(white),
BG3(white),
BG4(white),
BG5(white),
BG6(white),
BG7(white),
BG8(white),
BG9(white),
BG10(white),
BG11(white),
BG12(white),
BG13(white),
BG14(white),
BG15(white),
BG16(white),
BG17(white),
BG18(white),
BG19(white),
BG20(white),
BG21(white),
BG22(white),
BG23(white),
BG24(white);
{commentary variables}
variables:
xcomm(0),
oComm1( "" ),
oComm2( "" ),
oComm3( "" ),
oComm4( "" ),
oComm5( "" ),
oComm6( "" ),
oComm7( "" ),
oComm8( "" ),
oComm9( "" ),
oComm10( "" );
{ INITIALIZE }
FG1 = black ;
FG2 = black ;
FG3 = black ;
FG4 = black ;
FG5 = black ;
FG6 = black ;
FG7 = black ;
FG8 = black ;
FG9 = black ;
FG10 = black ;
FG11 = black ;
FG12 = black ;
FG13 = black ;
FG14 = black ;
FG15 = black ;
FG16 = black ;
FG17 = black ;
FG18 = black ;
FG19 = black ;
FG20 = black ;
FG21 = black ;
FG22 = black ;
FG23 = black ;
FG24 = black ;
If date = iPlotDate
then begin
if time = 0000
then begin
FG1 = white ;
pv1 = iPlotValue ;
If iPlotValue > 0
then begin
BG1 = green;
end
else
If iPlotValue < 0
then begin
BG1 = red;
end;
end; // if time= 0000
if time = 0100
then begin
FG2 = white ;
pv2 = iPlotValue ;
If iPlotValue > 0
then begin
BG2 = green;
end
else
If iPlotValue < 0
then begin
BG2 = red;
end;
end; // if time= 0100
if time = 0200
then begin
FG3 = white ;
pv3 = iPlotValue ;
If iPlotValue > 0
then begin
BG3 = green;
end
else
If iPlotValue < 0
then begin
BG3 = red;
end;
end; // if time= 0200
if time = 0300
then begin
FG4 = white ;
pv4 = iPlotValue ;
If iPlotValue > 0
then begin
BG4 = green;
end
else
If iPlotValue < 0
then begin
BG4 = red;
end;
end; // if time= 0300
if time = 0400
then begin
FG5 = white ;
pv5 = iPlotValue ;
If iPlotValue > 0
then begin
BG5 = green;
end
else
If iPlotValue < 0
then begin
BG5 = red;
end;
end; // if time= 0400
if time = 0500
then begin
FG6 = white ;
pv6 = iPlotValue ;
If iPlotValue > 0
then begin
BG6 = green;
end
else
If iPlotValue < 0
then begin
BG6 = red;
end;
end; // if time= 0500
if time = 0600
then begin
FG7 = white ;
pv7 = iPlotValue ;
If iPlotValue > 0
then begin
BG7 = green;
end
else
If iPlotValue < 0
then begin
BG7 = red;
end;
end; // if time= 0600
if time = 0700
then begin
FG8 = white ;
pv8 = iPlotValue ;
If iPlotValue > 0
then begin
BG8 = green;
end
else
If iPlotValue < 0
then begin
BG8 = red;
end;
end; // if time= 0700
if time = 0800
then begin
FG9 = white ;
pv9 = iPlotValue ;
If iPlotValue > 0
then begin
BG9 = green;
end
else
If iPlotValue < 0
then begin
BG9 = red;
end;
end; // if time= 0800
if time = 0900
then begin
FG10 = white ;
pv10 = iPlotValue ;
If iPlotValue > 0
then begin
BG10 = green;
end
else
If iPlotValue < 0
then begin
BG10 = red;
end;
end; // if time= 0900
if time = 1000
then begin
FG11 = white ;
pv11 = iPlotValue ;
If iPlotValue > 0
then begin
BG11 = green;
end
else
If iPlotValue < 0
then begin
BG11 = red;
end;
end; // if time= 1000
if time = 1100
then begin
FG12 = white ;
pv12 = iPlotValue ;
If iPlotValue > 0
then begin
BG12 = green;
end
else
If iPlotValue < 0
then begin
BG12 = red;
end;
end; // if time= 1100
if time = 1200
then begin
FG13 = white ;
pv13 = iPlotValue ;
If iPlotValue > 0
then begin
BG13 = green;
end
else
If iPlotValue < 0
then begin
BG13 = red;
end;
end; // if time= 1200
if time = 1300
then begin
FG14 = white ;
pv14 = iPlotValue ;
If iPlotValue > 0
then begin
BG14 = green;
end
else
If iPlotValue < 0
then begin
BG14 = red;
end;
end; // if time= 1300
if time = 1400
then begin
FG15 = white ;
pv15 = iPlotValue ;
If iPlotValue > 0
then begin
BG15 = green;
end
else
If iPlotValue < 0
then begin
BG15 = red;
end;
end; // if time= 1400
if time = 1500
then begin
FG16 = white ;
pv16 = iPlotValue ;
If iPlotValue > 0
then begin
BG16 = green;
end
else
If iPlotValue < 0
then begin
BG16 = red;
end;
end; // if time= 1500
if time = 1600
then begin
FG17 = white ;
pv17 = iPlotValue ;
If iPlotValue > 0
then begin
BG17 = green;
end
else
If iPlotValue < 0
then begin
BG17 = red;
end;
end; // if time= 1600
if time = 1700
then begin
FG18 = white ;
pv18 = iPlotValue ;
If iPlotValue > 0
then begin
BG18 = green;
end
else
If iPlotValue < 0
then begin
BG18 = red;
end;
end; // if time= 1700
if time = 1800
then begin
FG19 = white ;
pv19 = iPlotValue ;
If iPlotValue > 0
then begin
BG19 = green;
end
else
If iPlotValue < 0
then begin
BG19 = red;
end;
end; // if time= 1800
if time = 1900
then begin
FG20 = white ;
pv20 = iPlotValue ;
If iPlotValue > 0
then begin
BG20 = green;
end
else
If iPlotValue < 0
then begin
BG20 = red;
end;
end; // if time= 1900
if time = 2000
then begin
FG21 = white ;
pv21 = iPlotValue ;
If iPlotValue > 0
then begin
BG21 = green;
end
else
If iPlotValue < 0
then begin
BG21 = red;
end;
end; // if time= 2000
if time = 2100
then begin
FG22 = white ;
pv22 = iPlotValue ;
If iPlotValue > 0
then begin
BG22 = green;
end
else
If iPlotValue < 0
then begin
BG22 = red;
end;
end; // if time= 2100
if time = 2200
then begin
FG23 = white ;
pv23 = iPlotValue ;
If iPlotValue > 0
then begin
BG23 = green;
end
else
If iPlotValue < 0
then begin
BG23 = red;
end;
end; // if time= 2200
if time = 2300
then begin
FG24 = white ;
pv24 = iPlotValue ;
If iPlotValue > 0
then begin
BG24 = green;
end
else
If iPlotValue < 0
then begin
BG24 = red;
end;
end; // if time= 2300
end; //If date = iPlotDate
{ PLOT }
Plot1 ( pv1 , "0000", fg1 );
SetPlotBGColor( 1, bg1);
Plot2 ( pv2 , "0100", fg2 );
SetPlotBGColor( 2, bg2);
Plot3 ( pv3 , "0200", fg3);
SetPlotBGColor( 3, bg3);
Plot4 ( pv4 , "0300", fg4);
SetPlotBGColor( 4, bg4);
Plot5 ( pv5 , "0400", fg5);
SetPlotBGColor( 5, bg5);
Plot6 ( pv6 , "0500", fg6);
SetPlotBGColor( 6, bg6);
Plot7 ( pv7 , "0600", fg7);
SetPlotBGColor( 7, bg7);
Plot8 ( pv8 , "0700", fg8);
SetPlotBGColor( 8, bg8);
Plot9 ( pv9 , "0800", fg9);
SetPlotBGColor( 9, bg9);
Plot10 ( pv10 , "0900", fg10);
SetPlotBGColor( 10, bg10);
Plot11 ( pv11 , "1000", fg11);
SetPlotBGColor( 11, bg11);
Plot12 ( pv12 , "1100", fg12);
SetPlotBGColor( 12, bg12);
Plot13 ( pv13 , "1200", fg13);
SetPlotBGColor( 13, bg13);
Plot14 ( pv14 , "1300", fg14);
SetPlotBGColor( 14, bg14);
Plot15 ( pv15 , "1400", fg15);
SetPlotBGColor( 15, bg15);
Plot16 ( pv16 , "1500", fg16);
SetPlotBGColor( 16, bg16);
Plot17 ( pv17 , "1600", fg17);
SetPlotBGColor( 17, bg17);
Plot18 ( pv18 , "1700", fg18);
SetPlotBGColor( 18, bg18);
Plot19 ( pv19 , "1800", fg19);
SetPlotBGColor( 19, bg19);
Plot20 ( pv20 , "1900", fg20);
SetPlotBGColor( 20, bg20);
Plot21 ( pv21 , "2000", fg21);
SetPlotBGColor( 21, bg21);
Plot22 ( pv22 , "2100", fg22);
SetPlotBGColor( 22, bg22);
Plot23 ( pv23 , "2200", fg23);
SetPlotBGColor( 23, bg23);
Plot24 ( pv24 , "2300", fg24);
SetPlotBGColor( 24, bg24);
Plot25 ( iPlotDate , "date", white);
SetPlotBGColor( 25, black);
xComm = _fCommentary(oComm1, oComm2, oComm3, oComm4, oComm5, oComm6, oComm7, oComm8, oComm9, oComm10);
CommentaryCl(oComm1 );
CommentaryCl(oComm2 );
CommentaryCl(oComm3 );
CommentaryCl(oComm4 );
CommentaryCl(oComm5 );
CommentaryCl(oComm6 );
CommentaryCl(oComm7 );
CommentaryCl(oComm8 );
CommentaryCl(oComm9 );
CommentaryCl(oComm10 );
CommentaryCl( " " );
