Version(6.0);
SetOption("NoDefaultColumns", True );
AddTextColumn( Name(), "Ticker",1, colorDefault,colorDefault, 80);
//AddTextColumn( FullName(), "Company",1, colorDefault,colorDefault,100);
AddColumn( DateTime() , "Date", formatDateTime, colorDefault,colorDefault, 80 );
AddTextColumn("#", "BullBar");
AddTextColumn("#", "BearBar");
AddTextColumn("#", "Bull Engulfing");
AddTextColumn("#", "Bear Engulfing");
AddTextColumn("$", "Shorting Star");
dt =Datenum();
for ( i = 1; i <=15; i++ )
{
TimeFrameSet( i * in1Minute );
O1 = Ref(O,-1);
C1 = Ref(C,-1);
MP = (H+L)/2;
R = H-L;
//-- Condition
blBar=C>MP AND O<MP;
brBar=C<MP AND O>MP;
blEngulf = ((O1>C1) AND (C>O) AND (C>=O1) AND (C1>=O) AND ((C-O)>(O1-C1)));
brEngulf = ((C1>O1) AND (O>C) AND (O>=C1) AND (O1>=C) AND ((O-C)>(C1-O1)));
ss = ((R>4*(O-C)) AND ((H-C)/(.001+R)>= 0.75) AND ((H-O)/(.001+R)>= 0.75));
Filter = blBar OR brBar OR blEngulf OR brEngulf;
if ( NOT LastValue(Filter) ) break;
x= StrFormat("%02g-min", i);
str = "";
str = str + WriteIf(blBar, x, "\t");
str = str + WriteIf(brBar, x, "\t");
str = str + WriteIf(blEngulf, x, "\t");
str = str + WriteIf(brEngulf, x, "\t");
str = str + WriteIf(ss, x, "");
AddRow(Name()+"\t"+DateTimeToStr( dt[i] )+"\t"+str); /// this line has one \t less
TimeFrameRestore();
}
SetSortColumns(1, -2, 3,4,5,6,7);
Version(6.0);
SetOption("NoDefaultColumns", True );
AddTextColumn( Name(), "Ticker",1, colorDefault,colorDefault, 80);
//AddTextColumn( FullName(), "Company",1, colorDefault,colorDefault,100);
[COLOR="Red"][B]AddColumn( DateTime() , "Date", formatDateTime, colorDefault,colorDefault, 80 );
[/B]
[/COLOR]
AddTextColumn("#", "BullBar");
AddTextColumn("#", "BearBar");
AddTextColumn("#", "Bull Engulfing");
AddTextColumn("#", "Bear Engulfing");
AddTextColumn("$", "Shorting Star");
for ( i = 1; i <=15; i++ )
{
TimeFrameSet( i * in1Minute );
O1 = Ref(O,-1);
C1 = Ref(C,-1);
MP = (H+L)/2;
R = H-L;
//-- Condition
blBar=C>MP AND O<MP;
brBar=C<MP AND O>MP;
blEngulf = ((O1>C1) AND (C>O) AND (C>=O1) AND (C1>=O) AND ((C-O)>(O1-C1)));
brEngulf = ((C1>O1) AND (O>C) AND (O>=C1) AND (O1>=C) AND ((O-C)>(C1-O1)));
ss = ((R>4*(O-C)) AND ((H-C)/(.001+R)>= 0.75) AND ((H-O)/(.001+R)>= 0.75));
Filter = blBar OR brBar OR blEngulf OR brEngulf;
if ( NOT LastValue(Filter) ) break;
x= StrFormat("%02g-min", i);
str = "";
str = str + WriteIf(blBar, x, "\t");
str = str + WriteIf(brBar, x, "\t");
str = str + WriteIf(blEngulf, x, "\t")+
str = str + WriteIf(brEngulf, x, "\t")+
str = str + WriteIf(ss, x, "");
[COLOR="red"][B] AddRow(Name()+"\t\t\t"+str);
[/B]
[/COLOR]
TimeFrameRestore();
}
SetSortColumns(1, -2, 3,4,5,6,7);
Version(6.0);
SetOption("NoDefaultColumns", True );
AddTextColumn( Name(), "Ticker",1, colorDefault,colorDefault, 80);
//AddTextColumn( FullName(), "Company",1, colorDefault,colorDefault,100);
AddColumn( DateTime() , "Date", formatDateTime, colorDefault,colorDefault, 80 );
AddTextColumn("#", "BullBar");
AddTextColumn("#", "BearBar");
AddTextColumn("#", "Bull Engulfing");
AddTextColumn("#", "Bear Engulfing");
AddTextColumn("$", "Shorting Star");
dt =Datenum();
for ( i = 1; i <=15; i++ )
{
TimeFrameSet( i * in1Minute );
O1 = Ref(O,-1);
C1 = Ref(C,-1);
MP = (H+L)/2;
R = H-L;
//-- Condition
blBar=C>MP AND O<MP;
brBar=C<MP AND O>MP;
blEngulf = ((O1>C1) AND (C>O) AND (C>=O1) AND (C1>=O) AND ((C-O)>(O1-C1)));
brEngulf = ((C1>O1) AND (O>C) AND (O>=C1) AND (O1>=C) AND ((O-C)>(C1-O1)));
ss = ((R>4*(O-C)) AND ((H-C)/(.001+R)>= 0.75) AND ((H-O)/(.001+R)>= 0.75));
Filter = blBar OR brBar OR blEngulf OR brEngulf;
if ( NOT LastValue(Filter) ) break;
x= StrFormat("%02g-min", i);
str = "";
str = str + WriteIf(blBar, x, "\t");
str = str + WriteIf(brBar, x, "\t");
str = str + WriteIf(blEngulf, x, "\t");
str = str + WriteIf(brEngulf, x, "\t");
str = str + WriteIf(ss, x, "");
AddRow(Name()+"\t"+DateTimeToStr( dt[i] )+"\t"+str); /// this line has one \t less
TimeFrameRestore();
}
SetSortColumns(1, -2, 3,4,5,6,7);
Version(6.0);
SetOption("NoDefaultColumns", True );
AddTextColumn( Name(), "Ticker",1, colorDefault,colorDefault, 80);
//AddTextColumn( FullName(), "Company",1, colorDefault,colorDefault,100);
[B]AddColumn( Null , "Date", formatDateTime, colorDefault,colorDefault, 80 );
[/B]
AddTextColumn("#", "BullBar");
AddTextColumn("#", "BearBar");
AddTextColumn("#", "Bull Engulfing");
AddTextColumn("#", "Bear Engulfing");
AddTextColumn("$", "Shorting Star");
dt =Datenum();
for ( i = 1; i <=15; i++ )
{
TimeFrameSet( i * in1Minute );
O1 = Ref(O,-1);
C1 = Ref(C,-1);
MP = (H+L)/2;
R = H-L;
//-- Condition
blBar=C>MP AND O<MP;
brBar=C<MP AND O>MP;
blEngulf = ((O1>C1) AND (C>O) AND (C>=O1) AND (C1>=O) AND ((C-O)>(O1-C1)));
brEngulf = ((C1>O1) AND (O>C) AND (O>=C1) AND (O1>=C) AND ((O-C)>(C1-O1)));
ss = ((R>4*(O-C)) AND ((H-C)/(.001+R)>= 0.75) AND ((H-O)/(.001+R)>= 0.75));
[B] Filter = 1;
[/B]
if ( NOT LastValue(Filter) ) break;
x= StrFormat("%02g-min", i);
str = "";
str = str + WriteIf(blBar, x, "\t");
str = str + WriteIf(brBar, x, "\t");
str = str + WriteIf(blEngulf, x, "\t");
str = str + WriteIf(brEngulf, x, "\t");
str = str + WriteIf(ss, x, "");
[B]AddRow(Name()+"\t"+DateTimeToStr( dt[i] )+"\t"+str); /// this line has one \t less [/B]
TimeFrameRestore();
}
SetSortColumns(1, -2, 3,4,5,6,7);
Version( 5.91 );
SetOption("NoDefaultColumns", True );
Filter = Status( "lastbarinrange" );
AddColumn( Null, "Symbol", 1, colorDefault, colorDefault, 60**);
AddColumn( Null, "DateTime", 1, colorDefault, colorDefault, 120**);
AddColumn( Null, "Indicator", 1, colorDefault, colorDefault, 90 );
AddColumn( Null, "Value", 1, colorDefault, colorDefault, 90 );
for( i = 10; i <= 100; i = i + 10 )
{
AddRow( StrFormat( Name() + "\t" + Date() + "\tRSI(%g)\t%1.2f", i, Nz(
RSI( i ) ) ) );
}
Version( 5.91 );
SetOption("NoDefaultColumns", True );
Filter = Status( "lastbarinrange" );
AddColumn( Null, "Symbol", 1, colorDefault, colorDefault, 60**);
AddColumn( Null, "DateTime", 1, colorDefault, colorDefault, 120**);
AddColumn( Null, "Indicator", 1, colorDefault, colorDefault, 90 );
AddColumn( Null, "Value", 1, colorDefault, colorDefault, 90 );
for( i = 10; i <= 100; i = i + 10 )
{
AddRow( StrFormat( Name() + "\t" + Date() + "\tRSI(%g)\t%1.2f", i, Nz(
RSI( i ) ) ) );
}