Page 1 of 1
Not Getting It
Posted: Sun Dec 20, 2009 10:44 pm
by blackda14
Alright sometimes you search read and dont get it. So heres my issue. Trading stocks how do you reference in indicators the first bar high and low of a 60 min chart/bar/candle, and have those static through out the day. Say opening range 60 min high gets broke in the afternoon. I want to know in radarscreen where it is in reference to that point in the day (point = being high and low of the first 60 min candle with out changing if there is a higher high later I still want to know what the high was in the first bar).
Sorry to make it confusing its probably pretty basic concept but it sure is kicking my butt right now.
Thanks
Dennis
Posted: Mon Dec 21, 2009 4:00 am
by TheRumpledOne
You have to look at the bar time. I think I wrote an indicator to do that. Part of the DIRECTIONAL DAY FILTER idea. I don't recall the indicator name.
cup & handle
Posted: Sat Jan 30, 2010 1:10 am
by blackda14
If you have a minute can you slide this into a SMAA for RS also trying to add a column for date last occured?
Code: Select all
[LegacyColorValue = true];
Inputs: AlrtLen(4);
Vars: SH(0), LftSide(0), LftLen(0), B(0), CC(0), AvgVal(0), Cup(False), CupBar(0), RgtSide(0);
Vars: HiVolume(0), AvgVolume(0), CHP(0), KBar(0), RS(0), RSLine(0), AlertReset(0);
SH = SwingHigh(1, Close, 1, 2)[2];
AvgVal = Average(Close, 5);
IF AvgVal > AvgVal[1] Then
CC = CC + 1
Else
CC = 0;
HiVolume = Highest(Volume, 5);
AvgVolume = Average(Volume, 50);
IF SH <> -1 AND HiVolume > AvgVolume[2] AND Highest(Close, 3) <= SH Then Begin
LftSide = SH;
LftLen = 0;
For value1 = 145 DownTo 25 Begin
IF Close[value1] >= LftSide AND HiVolume[value1-2] > AvgVolume[value1] Then Begin
LftSide = Close[value1];
LftLen = value1;
End;
End;
IF LftLen <> 0 Then Begin
IF Highest(Close, LftLen-8)[4] < SH Then Begin
CHP = Text_New(Date[LftLen], Time[LftLen], Close[LftLen], "LS");
Text_SetStyle(CHP, 2, 1);
CHP = Text_New(Date[3], Time[3], SH, "RS");
Text_SetStyle(CHP, 2, 1);
B = Close[CC[3]+3];
CHP = Text_New(Date[CC[3]+3],Time[CC[3]+3],B,"B");
Text_SetStyle(CHP, 2, 0);
IF Lowest(Close, 35)[LftLen] <= B Then Begin
KBar = LowestBar(Close, 30)[LftLen];
CHP = Text_New(Date[KBar],Time[KBar],Close[KBar],"K");
Text_SetStyle(CHP, 2, 0);
Cup = True;
CupBar = BarNumber[3];
RgtSide = SH;
AlertReset = 0;
RS = SH;
RSLine = TL_New(Date[3], Time[3], RS, Date, Time, RS);
End;
End;
End;
End;
IF Cup AND BarNumber > CupBar + 3 Then Begin
TL_SetEnd(RSLine, Date, Time, RS);
IF Close < (RgtSide*.80) Then
Cup = False
Else
IF Close > RgtSide AND Volume > AvgVolume Then Begin
Plot1(Close, "C&H_Brkout");
AlertReset = 0;
Cup = False;
End;
End;
AlertReset = AlertReset + 1;
IF AlertReset <= AlrtLen Then
Alert = True;