Kreslik.com - traders community since 2006


https://www.kreslik.com/forums/

TRO 24Hours

https://www.kreslik.com/forums/viewtopic.php?f=10&t=864

Page 1 of 3

TRO 24Hours

Posted: Sat Aug 18, 2007 5:33 pm
by TheRumpledOne
TRO 24Hours



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( " " );

Posted: Sat Aug 18, 2007 5:38 pm
by cvax
Looks like a zero sum to me lol. Maybe we could find slight skews towards red/green if we take this over a sample of many years.

Posted: Sat Aug 18, 2007 9:30 pm
by TheRumpledOne
Look at 0800.

Look at 1600.

Look at 2100.

Remember, I am on Pacific Time.

Posted: Sun Aug 19, 2007 3:47 pm
by Patch
TRO

Thanks for writing this ELD and posting it along with the code. Will this code run as an ELS in my 2000i? I will need to load 2000i on my system and see.

Thanks,

Patch
In VA

TRO 24Hours

Posted: Fri Aug 24, 2007 10:51 pm
by bbtrader
TRO

Are you saying something like...
go short during the 0800 hour
long at 1600 hour
and short during the 2100 hour?

Certainly looks good....just trying to figure out how to make a tradeable strategy from it.

Re: TRO 24Hours

Posted: Sat Aug 25, 2007 7:16 pm
by TheRumpledOne
bbtrader wrote:TRO

Are you saying something like...
go short during the 0800 hour
long at 1600 hour
and short during the 2100 hour?

Certainly looks good....just trying to figure out how to make a tradeable strategy from it.


Just see if you can find a ( profitable ) pattern to exploit.

Posted: Sun Aug 26, 2007 2:57 pm
by Shane280us
TRO,

What are the numbers within each green and red box representing. PIP movement ? or something else.

Tks

Shane

Posted: Wed Aug 29, 2007 11:27 pm
by TheRumpledOne
I added a comment input field.

ELD attached.

Re: TRO 24Hours

Posted: Wed Sep 12, 2007 11:25 am
by fibcat
TheRumpledOne wrote:TRO 24Hours



... A currency seems to follow a pattern - certain hours it goes down and other hours it goes up.



The colors/values in the hour columns, wich Time are referred to?
London GMT ? NY? Other? How many hours must I subtract to obtain GMT?

Posted: Wed Sep 12, 2007 10:54 pm
by TheRumpledOne
AZ time, which at the moment is the same as pacific time.
All times are UTC
Page 1 of 3
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/