Need AFL help: Plotting lines.

#1
Hello Senior Members,

I tried my all efforts but could not succeed. Please help me to plot lines on the values for the strings that I have highlighted in RED color.

Many Thanks to all.
_____________________________________________________________


_SECTION_BEGIN("Setup");
//required settings:
// Tools --> Preferences | go to Intraday tab and select "START time of interval"
// View --> Intraday --> "Show 24 Hours Trading"
// View --> Intraday --> "Filter Weekends"

// Rounding the Study line values
StopLst = ParamList("Select Stop", ".25|.33|.50|.66|.75|1.0|1.5", 6);
TargetLst = ParamList("Adjust Target", "0.50|0.66|0.75|1.00|1.10|1.20|1.25|1.30|1.35" , 0);
Instrument = ParamList("Instrument", "Stocks|Forex|Futures");
length = ParamList("Digits to R of Decimal","0|2|4",1); // Number or numbers to the right of the decimal
rounding = ParamList("Rounding (for pts.)", "Truncate|NearestQuarter"); // don't round, round to nearest 1, round to nearest .25
ExpFilter = ParamList("Exploration", "ORB|STATS|OHLC", 1);
FltrHolidays = ParamToggle("Filter Holidays", "YES|NO", 0);
UseDaySave = ParamToggle("Daylight Savings", "YES|NO", 0);
UserSpringFoward = ParamDate("SpringForward", "3/8/2009");
UserFallBehind = ParamDate("FallBehind", "11/2/2008");
UserOpen = ParamTime("Market Open", "09:30");
UserClose = ParamTime("Market Close", "16:00");
_SECTION_END();
_SECTION_BEGIN("Plot lines");
//Set parameter default to YES for displaying the final
//results of the break out calculations.
PlotBreak = ParamToggle("Plot Breakout", "YES|NO", 0);
//set parameter default to YES for displaying PP, S1 and R1
PPSR1 = ParamToggle("PP,S1/R1", "YES|NO", 0);
//set paramter default to NO for displaying S2 and R2
S2R2 = ParamToggle("S2,R2", "YES|NO", 1);
//set parameter default to NO for dsiplaying S3 and R3
S3R3 = ParamToggle("S3,R3", "YES|NO", 1);
//set paramter default to NO for diplaying S4 and R4
S4R4 = ParamToggle("S4,R4", "YES|NO", 1);
_SECTION_END();

_SECTION_BEGIN("Price");
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
SetChartBkColor(ParamColor("Panel color ",colorLightBlue));
_SECTION_END();

_SECTION_BEGIN("Speed Lines");
P20 = 20;
Plot( EMA( C, P20 ), "Spd20" ,colorBlack, styleLine | styleThick );

P18 = 18;
Plot( EMA( C, P18 ), "Spd18" ,colorCustom9, styleLine | styleThick );

P50 = 50;
Plot( MA( C, P50 ), "Spd 50" , colorBlue,styleDashed | styleThick);

P200 = 200;
Plot( MA( C, P200 ), "Spd 200" , colorRed, ParamStyle("Style") );

Prd3HLC = Param("HLC 3 Prds", 3, 3, 10, 1);
Plot(MA((H + L + C)/3, Prd3HLC), "HLC 3MA", colorBlue, styleLine | styleThick);

Prd5HLC = Param("HLC 5 Prds", 5, 3, 10, 1);
Plot(MA((H + L + C)/3, Prd5HLC), "HLC 5MA", colorCustom12, styleLine | styleThick);
_SECTION_END();

_SECTION_BEGIN("Open Range Break Out");

CurBarTime = TimeNum();

//Need to use VBscript here to take the user selected date
//and covert it to the DateNum() format for use by AFL
EnableScript("vbscript");
<%
dim VarPart
varPartSpring = Split(AFL("UserSpringFoward"), "/", 3)

AFL("Spring") = varPartSpring(0)
VarPartFall = Split(AFL("UserFallBehind"), "/", 3)
AFL("Fall") = VarPartFall(0)

%>
//convert VBscript output to number format and assign to
//AFL variables
SpringForward = StrToNum(Spring);
FallBehind = StrToNum(Fall);

//based on user selection in parameters dialog for daylight savings and
// market open and close times, adjust the Open/Close for the market accordingly
if(UseDaySave == 0)
{
//if user selects daylight savings then test to see if each bar is within the daylight
//savings time window. For each bar that lies within the window, shift the time one hour
//forward.
TimeOpen = IIf(DateTimeConvert( 0, DateTime() ) >= FallBehind AND DateTimeConvert( 0, DateTime() ) <= SpringForward,
UserOpen + 10000, UserOpen ) ;
CalcClose = IIf(DateTimeConvert( 0, DateTime() ) >= FallBehind AND DateTimeConvert( 0, DateTime() ) <= SpringForward,
UserClose + 10000, UserClose ) ;
}
if(UseDaySave == 1)
{
//if user selects no for daylight savings then use the values as the are
TimeOpen = UserOpen ;
CalcClose = UserClose;
}
//Here is the $64,000.00 code. How to convert the TimeNum() output into
//a form which allows one to subtract the number of minutes based on
//the time frame selected. You have no idea how much brain mojo this took
//to put together. I could NOT have done it without an Excel spread sheet
//=IF(MID(A17,3,2)="00",6000-(B17*100)+(A17-10000),A17-(100*B17))
TimeClose = IIf(StrMid(NumToStr(CalcClose ,1,False),2,2)=="00",
6000-((Interval()/60)*100)+(CalcClose-10000),
CalcClose-(100*(Interval()/60)));

//Determine the value of the market open. Initial setting is for
//9:30 AM to match US Market Open. Adjust as need for your market
MrktOpen = ValueWhen(CurBarTime == TimeOpen , Open);
DlyOpen =ValueWhen(CurBarTime == TimeClose, MrktOpen);
//Determine the highest high for each day's trading.
//Adjust time as needed for your market.
DlyHigh = HighestSince(CurBarTime == TimeOpen , High);
//Take a snapshot value of the day's high at the time of market
//close. Intial stting is 4:00 pm to match US Market Close.
//Adjust as needed for your market.
DlyHighest = ValueWhen(CurBarTime == TimeClose , DlyHigh);
//Do the same for the lowest value of the trading day.
//Adjust time as needed for your market.
DlyLow = LowestSince(CurBarTime == TimeOpen , Low);
DlyLowest = ValueWhen(CurBarTime == TimeClose , DlyLow);
//determine the market closing price
DlyClose = ValueWhen(CurBarTime == TimeClose , C);
//Now calculate the min range value using Open, Low and High
//variables calculated above
RngMin = Min(DlyHighest - MrktOpen, MrktOpen - DlyLowest);
//Compres this to a daily time frame in order to capture
//the final value of the Range Min for each trading day
DlyRngMin = TimeFrameCompress(RngMin, inDaily, compressLast);
//Use the compressed variable to calculate a 10 day average\
RngMinAvg = MA(DlyRngMin , 10);

//uncompress the daily variable so that it can be used in
//calcuating the long and short break out levels for each day
RngMinAvg = TimeFrameExpand(RngMinAvg, inDaily);

//caclculate the max range value using the opn, low and high
//variables
RngMax = Max(DlyHighest - MrktOpen, MrktOpen - DlyLowest);
//compress this to a daily time frame in order to capture
//the final value of the range max for each trading day
DlyRngMax = TimeFrameCompress(RngMax, inDaily, compressLast);
//use the compressed variable to calculate a 10 day average
RngMaxAvg = MA(DlyRngMax, 10);
//uncompress the daily variable so that it can be used in
//calculating the profit target for opening range breakouts
RngMaxAvg = TimeFrameExpand(RngMaxAvg, inDaily);
//Use the values calculated above to determine the opening
//range break outs. Notice the Range Min has been shifted so
//that is reads the previous day's value and this is used against
//the current day's open to determine the break out levels
BreakOutLong = MrktOpen + Ref(RngMinAvg, -1);
BreakOutShort = MrktOpen - Ref(RngMinAvg, -1);

//round the breakout levels based on user selection in parameters
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if(Length == "0")
{
breakOutLong = int(breakOutLong );
breakOutShort = int(breakOutShort );
}
else if(Length == "2")
{
if(rounding == "NearestQuarter" AND Instrument == "Futures")
{
breakOutLong = 0.25 * ceil( 0.5 + BreakOutLong * 4 );
breakOutShort = 0.25 * floor( 0.5 + BreakOutShort * 4 );
}
else
{
breakOutLong = 0.01 * round(0.5 + BreakOutLong * 100);
breakOutShort = 0.01 * round(0.5 + BreakOutShort * 100);
}
test = 0;
}
else if(Length == "4")
{
breakOutLong = Prec(breakOutLong , 4);
breakOutShort = Prec(breakOutShort , 4);
}
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
//now use the average max range to calculate a profit target
//for each day's opening range break out
UserTarget = StrToNum(TargetLst);

//allow user to modify the profit target from selection made in
//the parameters.
ProfitLong = MrktOpen + (Ref(RngMaxAvg, -1))*UserTarget ;
ProfitShort = MrktOpen - (Ref(RngMaxAvg, -1))*UserTarget ;

UserStop = StrToNum(StopLst);


//Allow user to modify the stop loss values from selection made
//in the parameters.
StopAmtLong = Prec((breakOutLong - MrktOpen)*UserStop ,2);
StopAmtShort = Prec((MrktOpen - breakOutShort)*UserStop ,2);

//round the stop and profit target levels based on user selection in parameter
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
if(Length == "0")
{
StopAmtShort = int(StopAmtShort);
StopAmtLong = int(StopAmtLong);
ProfitShort = int(ProfitShort) ;
ProfitLong = int(ProfitLong);
}
else if(Length == "2")
{
if(rounding == "NearestQuarter" AND Instrument == "Futures")
{
StopAmtShort = 0.25 * ceil( 0.5 + StopAmtShort * 4 )+0.25;
StopAmtLong = 0.25 * floor( 0.5 + StopAmtLong * 4 );
ProfitShort = 0.25 * ceil( 0.5 + ProfitShort * 4 ) ;
ProfitLong = 0.25 * floor( 0.5 + ProfitLong * 4 ) - 0.25;
}
else
{
StopAmtShort = 0.01 * floor(0.5 + StopAmtShort * 100);
StopAmtLong = 0.01 * round(0.5 + StopAmtLong * 100)+0.01;
ProfitShort = Prec(ProfitShort , 2) ;
ProfitLong = Prec(ProfitLong , 2);
}

}
else if(Length == "4")
{
StopAmtShort = Prec(StopAmtShort , 4);
StopAmtLong = Prec(StopAmtLong , 4);
ProfitShort = Prec(ProfitShort , 4) ;
ProfitLong = Prec(ProfitLong , 4);
}

//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@

//create the title layout for the various levels
TitleBreakOuts = EncodeColor(colorCustom11) +"Today's Breakout Levels:" +"\n"
+"Long Target: " +ProfitLong + "\n"
+"Breakout Long: " +breakOutLong +"\n"
+"Long Stop: " +(BreakOutLong - StopAmtLong) +"\n"
+"Today's Open: " +MrktOpen +"\n"
+"Breakout Short: " +breakOutShort +"\n"
+"Short Target: " +ProfitShort +"\n"
+"Short Stop: " + (BreakOutShort + StopAmtShort)+"\n";

_SECTION_END();

_SECTION_BEGIN("Toby Crabel Patterns");
TitleHeader = EncodeColor(colorYellow) +"Yesterday's Price Patterns" +"\n";
TitleSwing = EncodeColor(colorLavender) +"1 Day Swing Trend" + "\n";

//compress daily high and low for use in calculations
DlyC = TimeFrameCompress(DlyClose , inDaily, compressLast);
DlyH = TimeFrameCompress(DlyHighest, inDaily, compressLast);
DlyL = TimeFrameCompress(DlyLowest, inDaily, compressLast);
DlyO = TimeFrameCompress(MrktOpen, inDaily, compressLast);
DlyRng = DlyH-DlyL;
//use compressed daily high and low to expand day's 2-5
PrevO = TimeFrameExpand(DlyO, inDaily);//day 2 open
//PrevO2 = TimeFrameExpand(Ref(DlyO, -1), inDaily);//day 3 open
CurH = TimeFrameExpand(DlyH, inDaily);//day 2 high
PrevH = TimeFrameExpand(Ref(DlyH,-1), inDaily);//day 3 high
PrevH2 = TimeFrameExpand(Ref(DlyH,-2), inDaily);//day 4 high
//PrevH3 = TimeFrameExpand(Ref(DlyH,-3), inDaily);//day 5 high
CurL = TimeFrameExpand(DlyL, inDaily);//day 2 low
PrevL = TimeFrameExpand(Ref(DlyL,-1), inDaily);//day 3 low
PrevL2 = TimeFrameExpand(Ref(DlyL,-2), inDaily);//day 4 low
//PrevL3 = TimeFrameExpand(Ref(DlyL,-3), inDaily);//day 5 low
PrevC = TimeFrameExpand(DlyC, inDaily);//day 2 close
PrevC2 = TimeFrameExpand(Ref(DlyC,-1), inDaily);//day 3 close
PrevC3 = TimeFrameExpand(Ref(DlyC,-2), inDaily);//day 4 close

//code and plot the Doji
//abs(O-C)/(H-L) < .11 AND (O+C)/2 < H-((H-L)*.33) AND (O+C)/2 > L+((H-L)*.33)
DlyDoji = (abs(DlyO-DlyC)/(DlyRng)) < 0.11 AND
((DlyO+DlyC)/2) < (DlyH-((DlyRng)*0.33)) AND
((DlyO+DlyC)/2) > (DlyL+((DlyRng)*0.33));
doji = TimeFrameExpand(DlyDoji, inDaily);

Cntr = 0;
Holiday = 0;
for(i=1;i<BarCount;i++)
{
if(CurBarTime >= TimeOpen AND CurBarTime <= TimeClose)
Cntr = 1;
if(Cntr >= 1 AND CurBarTime == TimeClose)
{
Cntr = 2;
}
if(Cntr < 2 AND CurBarTime > TimeClose)
{
Holiday = 1;
}
}

Holiday = TimeFrameCompress(Holiday,inDaily);

//apply holiday filter if the user selects it in the parameters
if(FltrHolidays == 0)
{

//code and plot the NR4
DlyNR4 = IIf(Holiday OR (BarsSince(Holiday) >= 1 AND BarsSince(Holiday) <= 4),
(LLV(DlyRng,5) == (DlyRng)),
(LLV(DlyRng,4) == (DlyRng)));
//code and plot the WS4
DlyWS4 = IIf(Holiday OR (BarsSince(Holiday) >= 1 AND BarsSince(Holiday) <= 4),
(HHV(DlyRng,5) == (DlyRng)),
HHV(DlyRng,4) == (DlyRng));
//code and plot the NR7
DlyNR7 = IIf(Holiday OR (BarsSince(Holiday) >= 1 AND BarsSince(Holiday) <= 7),
(LLV(DlyRng,8) == (DlyRng)),
(LLV(DlyRng,7) == (DlyRng)));
//code and plot the WS7
DlyWS7 = IIf(Holiday OR (BarsSince(Holiday) >= 1 AND BarsSince(Holiday) <= 7),
(HHV(DlyRng,8) == (DlyRng)),
(HHV(DlyRng,7) == (DlyRng)));
//calculate the 2 day range
DlyTwoDayRng = IIf(Holiday OR (BarsSince(Holiday) == 1 ),
HHV(DlyH ,3) - LLV(DlyL ,3),
HHV(DlyH ,2) - LLV(DlyL ,2));
//calculate the 3 day range
DlyThreeDayRng = IIf(Holiday OR (BarsSince(Holiday) >= 1 AND BarsSince(Holiday) <= 2),
HHV(DlyH ,4) - LLV(DlyL ,4),
HHV(DlyH ,3) - LLV(DlyL ,3));

TitleDoji = WriteIf(Holiday OR (BarsSince(Holiday) >= 1 AND BarsSince(Holiday) <= 2),
EncodeColor(colorGold) +WriteIf(Ref(doji,-2), " Doji Day" +"\n", ""),
EncodeColor(colorGold) +WriteIf(Ref(doji,-1), " Doji Day" +"\n", ""));
}


//calculate the price patterns based on standard method if the user
//has selected NO in the filter holidays parameter.
if(FltrHolidays == 1)
{
//code and plot the NR4
DlyNR4 = (LLV(DlyRng,4) == (DlyRng));
//code and plot the WS4
DlyWS4 = (HHV(DlyRng,4) == (DlyRng));
//code and plot the NR7
DlyNR7 = (LLV(DlyRng,7) == (DlyRng));
//code and plot the WS7
DlyWS7 = (HHV(DlyRng,7) == (DlyRng));
//calculate the 2 day range
DlyTwoDayRng = HHV(DlyH ,2) - LLV(DlyL ,2);
//calculate the 3 day range
DlyThreeDayRng = HHV(DlyH ,3) - LLV(DlyL ,3);

TitleDoji = EncodeColor(colorGold) +WriteIf(Ref(doji,-1), " Doji Day" +"\n", "");
}

//code the NR
NR = (CurH - CurL) < (PrevH - PrevL);

NR4 = TimeFrameExpand(DlyNR4, inDaily);
TitleNR4 = EncodeColor(colorWhite) + WriteIf(Ref(NR4,0), " NR4 Day"+"\n", "");

WS4 = TimeFrameExpand(DlyWS4, inDaily);
TitleWS4 = EncodeColor(colorRed) +WriteIf(Ref(WS4,0), " WS4 Day"+"\n", "");

NR7 = TimeFrameExpand(DlyNR7, inDaily);
TitleNR7 = EncodeColor(colorWhite) + WriteIf(Ref(NR7,0), " NR7 Day"+"\n", "");

WS7 = TimeFrameExpand(DlyWS7, inDaily);
TitleWS7 = EncodeColor(colorRed) +WriteIf(Ref(WS7,0), " WS7 Day" +"\n", "");

TwoDayRng = TimeFrameExpand(DlyTwoDayRng, inDaily);

//determine lowest 2 day range in previous 20 days
DlyTwoBarNR = LLV(DlyTwoDayRng , 20) == DlyTwoDayRng ;
TwoBarNR = TimeFrameExpand(DlyTwoBarNR, inDaily);
TitleTwoBarNR = WriteIf(Ref(TwoBarNR, -1), " 2DayNR" +"\n", "");

ThreeDayRng = TimeFrameExpand(DlyThreeDayRng, inDaily);

//determine lowest 3 day range in previous 20 days
DlyThreeBarNR = LLV(DlyThreeDayRng , 20) == DlyThreeDayRng ;
ThreeBarNR = TimeFrameExpand(DlyThreeBarNR, inDaily);
TitleThreeBarNR = WriteIf(Ref(ThreeBarNR, -1), " 3DayNR" +"\n", "");

//code and plot the pivot top
PivotTop = CurL < PrevL AND CurH < PrevH AND PrevH > PrevH2;

//code and plot the pivot bottom
PivotBottom = CurH > PrevH AND CurL > PrevL AND PrevL < PrevL2;

SwingUP = PrevC > ValueWhen(PivotTop, PrevH,1);
SwingDWN = PrevC < ValueWhen(PivotBottom, PrevL,1);

TitleSwingTrend = WriteIf(SwingUP, " Swing UP" +"\n",
WriteIf(SwingDWN, " Swing DWN" +"\n", " Swing Flat" +"\n"));
ExpSwingTrend = IIf(SwingUP, 9,
IIf(SwingDWN, 0, 1));

//determine if previous day closed up or down
CloseUP = PrevO > PrevH;
//printf("Closed: " +WriteIf( Ref(DlyO,-1) < DlyC, "UP" +"\n", "DWN" +"\n"));
TitleUPDWN = WriteIf(PrevO > PrevH, " UP Day" +"\n", " DWN Day" +"\n");
GapDayUP = PrevO > PrevH2 ;
GapDayDWN = PrevO < PrevL2;
TitleGapDay = WriteIf(GapDayUP,
WriteIf(CloseUP, " Gap UP and closed UP" +"\n", " Gap UP and closed DWN" +"\n"),
WriteIf(GapDayDWN,
WriteIf(CloseUP, " Gap DWN and closed UP" +"\n", " Gap DWN and closed DWN" +"\n"),""));
_SECTION_END();

_SECTION_BEGIN("Exploration");
//the exploration is divided into two sections. each section is tied to the
//the value of the parameter toggle which is used to select from two choices

//Choice 1 is ORB which is a simple scan showing the brekout, profit and stop
//levels for each ticker. Run this scan within first minutes of market open to
//record the levels for each of the securities you are tracking. Set the range
//of the analsys window to 'n last days' where n=1.

//Choice 2 is STATS wich is a more thorough scan that is intended to be used on
//a single security at a time. Results can then be exported into a spread sheet for
//further analysis. While it is not perfect the intended goal is to output a set
//of data which can be used to measure the profitabilty of the system on a given
//security as well as determine the best way to filter out undesirable trades. Set
//the range in the analysis window to include whatever range of days you want to
//output.

/*
$$$$$$$$ The two lines below display the output of the STATS exploration $$$$$$$$$$
$$$$$$$$ The top line contains the column headings and the bottom line $$$$$$$$$$
$$$$$$$$ contains the data for each time stamp. Trend is measured as a 1 $$$$$$$$$$
$$$$$$$$ day swing pivot. U means the previous day closed above a recent $$$$$$$$$$
$$$$$$$$ pivot top. D mena the previous day closed below a recent $$$$$$$$$$
$$$$$$$$ pivot bottom. F means the previous day closed between a $$$$$$$$$$
$$$$$$$$ both the recent pivot top and pivot bottom. D3 and D2 are plus $$$$$$$$$$
$$$$$$$$ and minus symbols to show the close of each day relative to the $$$$$$$$$$
$$$$$$$$ previous. D1 is the current day's open relative to previous $$$$$$$$$$
$$$$$$$$ day's close. D1 is trade day, D2 is the day before trade day $$$$$$$$$$
$$$$$$$$ and D3 is the day before that. After this is a series of 5 $$$$$$$$$$
$$$$$$$$ price patterns taken from Toby Crabel's book. 1's and 0's show $$$$$$$$$$
$$$$$$$$ for each time stamp what the PREVIOUS day's price pattern $$$$$$$$$$
$$$$$$$$ looked like. After the price patterns you find the 6 dollar $$$$$$$$$$
$$$$$$$$ values for the breakout, stop and profit targets. The final 6 $$$$$$$$$$
$$$$$$$$ columns show what occured during each step and using 1's and $$$$$$$$$$
$$$$$$$$ 0's diplays when you enter long/short, stop out long/short or $$$$$$$$$$
$$$$$$$$ hit the long/short target. $$$$$$$$$$

Ticker Date/Time Trend D3 D2 D1 WS4 WS7 Doji NR4 NR7 BOL LngTarg LngStp BOS ShrtTarg ShrtStp LngEnt StpOut Targ ShrtEnt StpOut Targ
ESU9-GLOBEX-FUT 5/1/2009 9:37 U + - + 1 1 0 0 0 873 886.75 871.5 867.25 853.25 868.5 0 0 0 1 0 0

So the line above tells us these things:
(Trend) Yesterday closed above a recent pivot top. (D1)Today's open was above yesterday's close, (D2) yesterday
closed below the previous day's close and (D3) that day closed above it's prior day. Yesterday was
also WS4 and WS7 day which means expansion. At 9:37 am pries broke below the short breakout level
and a short entry was indicated.
It is best to run the STATS exploration in a 1 minute time frame to prevent false stops occurring when
a single 5 or 15 minute bar stretches across both the stop loss and breakout levels
*/

intraHigh = HighestSince(CurBarTime == TimeOpen, H);
intraLow = LowestSince(CurBarTime == TimeOpen, L);
FirstBOL = Cross(H, breakOutLong) AND Ref(intraHigh,-1) < breakOutLong OR
H == breakOutLong AND Ref(intrahigh,-1) < breakOutlong OR
Cross(H, breakOutLong) AND CurBarTime == TimeOpen OR
H == breakOutLong AND CurBarTime == TimeOpen;

LongStop = L <= (breakOutLong - StopAmtLong) AND intraHigh >= breakOutLong AND intraHigh < ProfitLong;
FirstLongStop = LongStop AND Ref(LowestSince(Ref(FirstBOL,-1),L),-1) > (BreakOutLong - StopAmtLong) OR
LongStop AND Ref(FirstBOL,-1);

StgProfitLong = Cross(H, ProfitLong) AND Ref(intraHigh,-1) <= ProfitLong;
FirstProfitLong = IIf(HighestSince(CurBarTime == TimeOpen, LongStop) < 1, StgProfitLong, 0);

FirstBOS = Cross(BreakOutShort, L) AND Ref(intraLow,-1) > breakOutShort OR
L == breakOutShort AND Ref(intraLow,-1) > breakOutShort OR
Cross(breakOutShort, L) AND CurBarTime == TimeOpen OR
L == breakOutShort AND CurBarTime == TimeOpen;

ShortStop = H >= (BreakOutShort + StopAmtShort) AND intraLow <= breakoutShort AND intraLow > ProfitShort;
FirstShortStop = ShortStop AND Ref(HighestSince(Ref(FirstBOS,-1),H),-1) < (BreakOutShort + StopAmtShort) OR
ShortStop AND Ref(FirstBOS,-1);

StgProfitShort = Cross(ProfitShort, L) AND Ref(intraLow,-1) >= ProfitShort;
FirstProfitShort = IIf(HighestSince(CurBarTime == TimeOpen, ShortStop) < 1, StgProfitShort , 0);
MrktHours = CurBarTime >= TimeOpen AND CurBarTime <= TimeClose;
if(expFilter == "ORB")
{
Filter = TimeNum() == TimeOpen;
AddColumn(breakOutLong, "BOL", 1.2);
AddColumn(ProfitLong, "LngTarg", 1.2);
AddColumn(breakOutLong - StopAmtLong, "LngStp", 1.2);
AddColumn(breakOutShort, "BOS", 1.2);
AddColumn(ProfitShort, "ShrtTarg", 1.2);
AddColumn(breakOutShort + StopAmtShort, "ShrtStp", 1.2);

}
if(expFilter == "STATS")
{

Filter = MrktHours AND
( FirstBOS OR FirstShortStop OR FirstProfitShort OR FirstBOL OR FirstLongStop OR FirstProfitLong );
AddColumn(IIf( ExpSwingTrend == 9, 85,
IIf( ExpSwingTrend == 0, 68, 70 )), "Trend", formatChar );
AddColumn(IIf(PrevC2 > PrevC3, 43, 45), "D3", formatChar);
AddColumn(IIf(PrevC > PrevC2, 43, 45), "D2", formatChar);
AddColumn(IIf(MrktOpen > PrevC, 43, 45), "D1", formatChar);
AddColumn(WS4, "WS4", 1);
AddColumn(WS7, "WS7", 1);
AddColumn(doji, "Doji", 1);
AddColumn(NR4, "NR4", 1);
AddColumn(NR7, "NR7", 1);

AddColumn(breakOutLong, "BOL", 1.2);
AddColumn(ProfitLong, "LngTarg", 1.2);
AddColumn(breakOutLong - StopAmtLong, "LngStp", 1.2);
AddColumn(breakOutShort, "BOS", 1.2);
AddColumn(ProfitShort, "ShrtTarg", 1.2);
AddColumn(breakOutShort + StopAmtShort, "ShrtStp", 1.2);

AddColumn(FirstBOL, "LngEnt", 1);
AddColumn(FirstLongStop, "StpOut", 1);
AddColumn(FirstProfitLong, "Targ", 1);

AddColumn(FirstBOS, "ShrtEnt", 1);
AddColumn(FirstShortStop, "StpOut", 1);
AddColumn(FirstProfitShort, "Targ", 1);
}

if(expFilter == "OHLC")
{
//When exploration filter is set to OHLC in parameters,
//this will output the O,H,L,C for each day/ticker selected in
//the analysis window.
Filter = CurBarTime == TimeClose ;
AddColumn(DlyOpen, "O", 1.2);
AddColumn(DlyHighest, "H", 1.2);
AddColumn(DlyLowest, "L", 1.2);
AddColumn(DlyClose, "C", 1.2);

}
_SECTION_END();

_SECTION_BEGIN("Daily Pivots");
//Determine the value of the market close. Initial setting is for
//4:00 PM to match US Market Open. Adjust as need for your market
MrktClose = ValueWhen(CurBarTime == TimeClose , Close);
Range = DlyHighest - DlyLowest;
PP = (DlyHighest + DlyLowest + MrktClose)/3;
PP = round(PP * 4) / 4;
R1 = (2 * PP) - DlyLowest;
S1 = (2 * PP) - DlyHighest;
R2 = PP + Range;
S2 = PP - Range;
R3 = R2 + Range;
S3 = S2 - Range;
R4 = R3 + Range;
S4 = S3 - Range;

TitlePivots = EncodeColor(colorBlack) +"Today's Daily Pivots" +"\n"
+"R1: " +R1 +"\n" +"PP: " +PP +"\n" +"S1: " +S1 +"\n";
if(PPSR1 == 0)
{
Plot(R1, "Dly R1", colorBlue, styleLine | styleThick | styleNoRescale);
Plot(PP, "Dly Pivot", colorCustom12, styleLine | styleThick | styleNoRescale);
Plot(S1, "Dly S1", colorBlue, styleLine | styleThick | styleNoRescale);
}
if(S2R2 == 0)
{
Plot(R2, "Dly R2", colorBlue, styleLine | styleNoRescale);
Plot(S2, "Dly S2", colorBlue, styleLine | styleNoRescale);
}
if(S3R3 == 0)
{
Plot(R3, "Dly R3", colorBlue, styleDashed | styleThick | styleNoRescale);
Plot(S3, "Dly S3", colorBlue, styleDashed | styleThick | styleNoRescale);
}
if(S4R4 == 0)
{
Plot(R4, "Dly R4", colorBlue, styleDashed | styleNoRescale);
Plot(S4, "Dly S4", colorBlue, styleDashed | styleNoRescale);
}

_SECTION_END();
if(PlotBreak == 0)
{
Plot(MrktOpen, "Daily Open", colorBlack, styleLine | styleNoRescale);
Plot(BreakOutLong , "Break Out Long", colorGreen, styleLine | styleNoRescale);
Plot(BreakOutShort , "Break Out Short", colorRed, styleLine | styleNoRescale);
Plot(ProfitLong, "Long Target", colorGold, styleDots | styleThick | styleNoRescale);
Plot(ProfitShort, "Short Target", colorGold, styleDots | styleThick | styleNoRescale);
PlotOHLC(MrktOpen, breakOutLong, MrktOpen, MrktOpen, "", colorPaleGreen, styleCloud | styleNoRescale | styleNoLabel);
PlotOHLC(MrktOpen, MrktOpen, BreakOutShort , MrktOpen, "", colorRose, styleCloud | styleNoRescale | styleNoLabel);
}
RibbonColor = IIf(MrktHours , colorGreen, colorRed);

Plot( 2, "ribbon",RibbonColor,styleOwnScale|styleArea|s tyle NoLabel, -1, 100 );

_SECTION_BEGIN("Title");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) ", O, H, L, C,
SelectedValue( ROC( C, 1 ) ) )+"\n" +TitleBreakOuts +TitlePivots +TitleSwing +TitleSwingTrend +TitleHeader
+TitleNR4 +TitleNR7 +TitleTwoBarNR +TitleThreeBarNR +TitleWS4
+TitleWS7 +TitleDoji
+EncodeColor(colorWhite) +WriteIf(TitleGapDay == "", TitleUPDWN, "") +TitleGapDay );

___________________________________
 

KelvinHand

Well-Known Member
#2
Simple. D yourself and add the following.
Code:
CellHeight = 12;  CellWidth = 150; 
IX =4; IY=4;


function PrintInCell( string, row, Col) 
{ 
GfxDrawText( string, IX+Col * CellWidth, IY+row * CellHeight, IX+(Col + 1 ) * CellWidth, IY+(row + 1 ) * CellHeight, 0); 
} 


GfxSelectFont( "Tahoma", 8); 
GfxSetTextColor(colorCustom11); 

i=1;
PrintInCell( "Today's Breakout Levels:", i,0); 
i=3;
PrintInCell( "Breakout Long: " +breakOutLong, i++,0); 
PrintInCell( "Long Stop: " +(BreakOutLong - StopAmtLong), i++,0); 
PrintInCell( "Today's Open: " +MrktOpen , i++,0); 
PrintInCell( "Breakout Short: " +breakOutShort, i++,0); 
PrintInCell( "Short Target: " +ProfitShort, i++,0); 
PrintInCell( "Short Stop: " + (BreakOutShort + StopAmtShort), i++,0); 

//---Underline ----------
i=2;
GfxSetTextColor(colorLime); 
GfxSelectFont("Tahoma", 8, 400, False, True ); 
PrintInCell( "Long Target: "+ProfitLong, i,0);
However, the rest of titles string like titlePivot...etc need to do the same thing as CODE.
and remove from _N(Titile = ....)
 
Last edited:

KelvinHand

Well-Known Member
#5
getting error:0x80040154 (CoCreateInstance() for CLSID_VBScript/CLSID_JScript)

I do a _TRACE() check, the VBScript is not necessary.
The following remark away the VBScript:
Code:
_SECTION_BEGIN("Setup");
//required settings:
// Tools --> Preferences | go to Intraday tab and select "START time of interval"
// View --> Intraday --> "Show 24 Hours Trading"
// View --> Intraday --> "Filter Weekends"

// Rounding the Study line values
StopLst = ParamList("Select Stop", ".25|.33|.50|.66|.75|1.0|1.5", 6);
TargetLst = ParamList("Adjust Target", "0.50|0.66|0.75|1.00|1.10|1.20|1.25|1.30|1.35" , 0);
Instrument = ParamList("Instrument", "Stocks|Forex|Futures");
length = ParamList("Digits to R of Decimal","0|2|4",1); // Number or numbers to the right of the decimal
rounding = ParamList("Rounding (for pts.)", "Truncate|NearestQuarter"); // don't round, round to nearest 1, round to nearest .25
ExpFilter = ParamList("Exploration", "ORB|STATS|OHLC", 1);
FltrHolidays = ParamToggle("Filter Holidays", "YES|NO", 0);
UseDaySave = ParamToggle("Daylight Savings", "YES|NO", 0);
UserSpringFoward = ParamDate("SpringForward", "3/8/2009");
UserFallBehind = ParamDate("FallBehind", "11/2/2008");
UserOpen = ParamTime("Market Open", "09:30");
UserClose = ParamTime("Market Close", "16:00");
_SECTION_END();
_SECTION_BEGIN("Plot lines");
//Set parameter default to YES for displaying the final
//results of the break out calculations.
PlotBreak = ParamToggle("Plot Breakout", "YES|NO", 0);
//set parameter default to YES for displaying PP, S1 and R1
PPSR1 = ParamToggle("PP,S1/R1", "YES|NO", 0);
//set paramter default to NO for displaying S2 and R2
S2R2 = ParamToggle("S2,R2", "YES|NO", 1);
//set parameter default to NO for dsiplaying S3 and R3
S3R3 = ParamToggle("S3,R3", "YES|NO", 1);
//set paramter default to NO for diplaying S4 and R4
S4R4 = ParamToggle("S4,R4", "YES|NO", 1);
_SECTION_END();

_SECTION_BEGIN("Price");
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
SetChartBkColor(ParamColor("Panel color ",colorLightBlue));
_SECTION_END();

_SECTION_BEGIN("Speed Lines");
P20 = 20;
Plot( EMA( C, P20 ), "Spd20" ,colorBlack, styleLine | styleThick );

P18 = 18;
Plot( EMA( C, P18 ), "Spd18" ,colorCustom9, styleLine | styleThick );

P50 = 50;
Plot( MA( C, P50 ), "Spd 50" , colorBlue,styleDashed | styleThick);

P200 = 200;
Plot( MA( C, P200 ), "Spd 200" , colorRed, ParamStyle("Style") );

Prd3HLC = Param("HLC 3 Prds", 3, 3, 10, 1);
Plot(MA((H + L + C)/3, Prd3HLC), "HLC 3MA", colorBlue, styleLine | styleThick);

Prd5HLC = Param("HLC 5 Prds", 5, 3, 10, 1);
Plot(MA((H + L + C)/3, Prd5HLC), "HLC 5MA", colorCustom12, styleLine | styleThick);
_SECTION_END();

_SECTION_BEGIN("Open Range Break Out");

CurBarTime = TimeNum();

//Need to use VBscript here to take the user selected date
//and covert it to the DateNum() format for use by AFL
/*
EnableScript("vbscript");
<%
dim VarPart
varPartSpring = Split(AFL("UserSpringFoward"), "/", 3)

AFL("Spring") = varPartSpring(0)
VarPartFall = Split(AFL("UserFallBehind"), "/", 3)
AFL("Fall") = VarPartFall(0)

%>

//convert VBscript output to number format and assign to
//AFL variables
SpringForward = StrToNum(Spring);
FallBehind = StrToNum(Fall);
*/

SpringForward = UserSpringFoward;
FallBehind = UserFallBehind;

//_TRACE("SpringForward = " + SpringForward+ ", FallBehind = "+ FallBehind);
//_TRACE("UserSpringFoward = " + UserSpringFoward+ ", UserFallBehind = "+ UserFallBehind);

//based on user selection in parameters dialog for daylight savings and
// market open and close times, adjust the Open/Close for the market accordingly
if(UseDaySave == 0)
{
//if user selects daylight savings then test to see if each bar is within the daylight
//savings time window. For each bar that lies within the window, shift the time one hour
//forward.
TimeOpen = IIf(DateTimeConvert( 0, DateTime() ) >= FallBehind AND DateTimeConvert( 0, DateTime() ) <= SpringForward,
UserOpen + 10000, UserOpen ) ;
CalcClose = IIf(DateTimeConvert( 0, DateTime() ) >= FallBehind AND DateTimeConvert( 0, DateTime() ) <= SpringForward,
UserClose + 10000, UserClose ) ;
}
if(UseDaySave == 1)
{
//if user selects no for daylight savings then use the values as the are
TimeOpen = UserOpen ;
CalcClose = UserClose;
}
//Here is the $64,000.00 code. How to convert the TimeNum() output into
//a form which allows one to subtract the number of minutes based on
//the time frame selected. You have no idea how much brain mojo this took
//to put together. I could NOT have done it without an Excel spread sheet
//=IF(MID(A17,3,2)="00",6000-(B17*100)+(A17-10000),A17-(100*B17))
TimeClose = IIf(StrMid(NumToStr(CalcClose ,1,False),2,2)=="00",
6000-((Interval()/60)*100)+(CalcClose-10000),
CalcClose-(100*(Interval()/60)));

//Determine the value of the market open. Initial setting is for
//9:30 AM to match US Market Open. Adjust as need for your market
MrktOpen = ValueWhen(CurBarTime == TimeOpen , Open);
DlyOpen =ValueWhen(CurBarTime == TimeClose, MrktOpen);
//Determine the highest high for each day's trading.
//Adjust time as needed for your market.
DlyHigh = HighestSince(CurBarTime == TimeOpen , High);
//Take a snapshot value of the day's high at the time of market
//close. Intial stting is 4:00 pm to match US Market Close.
//Adjust as needed for your market.
DlyHighest = ValueWhen(CurBarTime == TimeClose , DlyHigh);
//Do the same for the lowest value of the trading day.
//Adjust time as needed for your market.
DlyLow = LowestSince(CurBarTime == TimeOpen , Low);
DlyLowest = ValueWhen(CurBarTime == TimeClose , DlyLow);
//determine the market closing price
DlyClose = ValueWhen(CurBarTime == TimeClose , C);
//Now calculate the min range value using Open, Low and High
//variables calculated above
RngMin = Min(DlyHighest - MrktOpen, MrktOpen - DlyLowest);
//Compres this to a daily time frame in order to capture
//the final value of the Range Min for each trading day
DlyRngMin = TimeFrameCompress(RngMin, inDaily, compressLast);
//Use the compressed variable to calculate a 10 day average\
RngMinAvg = MA(DlyRngMin , 10);

//uncompress the daily variable so that it can be used in
//calcuating the long and short break out levels for each day
RngMinAvg = TimeFrameExpand(RngMinAvg, inDaily);

//caclculate the max range value using the opn, low and high
//variables
RngMax = Max(DlyHighest - MrktOpen, MrktOpen - DlyLowest);
//compress this to a daily time frame in order to capture
//the final value of the range max for each trading day
DlyRngMax = TimeFrameCompress(RngMax, inDaily, compressLast);
//use the compressed variable to calculate a 10 day average
RngMaxAvg = MA(DlyRngMax, 10);
//uncompress the daily variable so that it can be used in
//calculating the profit target for opening range breakouts
RngMaxAvg = TimeFrameExpand(RngMaxAvg, inDaily);
//Use the values calculated above to determine the opening
//range break outs. Notice the Range Min has been shifted so
//that is reads the previous day's value and this is used against
//the current day's open to determine the break out levels
BreakOutLong = MrktOpen + Ref(RngMinAvg, -1);
BreakOutShort = MrktOpen - Ref(RngMinAvg, -1);

//round the breakout levels based on user selection in parameters
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if(Length == "0")
{
breakOutLong = int(breakOutLong );
breakOutShort = int(breakOutShort );
}
else if(Length == "2")
{
if(rounding == "NearestQuarter" AND Instrument == "Futures")
{
breakOutLong = 0.25 * ceil( 0.5 + BreakOutLong * 4 );
breakOutShort = 0.25 * floor( 0.5 + BreakOutShort * 4 );
}
else
{
breakOutLong = 0.01 * round(0.5 + BreakOutLong * 100);
breakOutShort = 0.01 * round(0.5 + BreakOutShort * 100);
}
test = 0;
}
else if(Length == "4")
{
breakOutLong = Prec(breakOutLong , 4);
breakOutShort = Prec(breakOutShort , 4);
}
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
//now use the average max range to calculate a profit target
//for each day's opening range break out
UserTarget = StrToNum(TargetLst);

//allow user to modify the profit target from selection made in
//the parameters.
ProfitLong = MrktOpen + (Ref(RngMaxAvg, -1))*UserTarget ;
ProfitShort = MrktOpen - (Ref(RngMaxAvg, -1))*UserTarget ;

UserStop = StrToNum(StopLst);


//Allow user to modify the stop loss values from selection made
//in the parameters.
StopAmtLong = Prec((breakOutLong - MrktOpen)*UserStop ,2);
StopAmtShort = Prec((MrktOpen - breakOutShort)*UserStop ,2);

//round the stop and profit target levels based on user selection in parameter
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
if(Length == "0")
{
StopAmtShort = int(StopAmtShort);
StopAmtLong = int(StopAmtLong);
ProfitShort = int(ProfitShort) ;
ProfitLong = int(ProfitLong);
}
else if(Length == "2")
{
if(rounding == "NearestQuarter" AND Instrument == "Futures")
{
StopAmtShort = 0.25 * ceil( 0.5 + StopAmtShort * 4 )+0.25;
StopAmtLong = 0.25 * floor( 0.5 + StopAmtLong * 4 );
ProfitShort = 0.25 * ceil( 0.5 + ProfitShort * 4 ) ;
ProfitLong = 0.25 * floor( 0.5 + ProfitLong * 4 ) - 0.25;
}
else
{
StopAmtShort = 0.01 * floor(0.5 + StopAmtShort * 100);
StopAmtLong = 0.01 * round(0.5 + StopAmtLong * 100)+0.01;
ProfitShort = Prec(ProfitShort , 2) ;
ProfitLong = Prec(ProfitLong , 2);
}

}
else if(Length == "4")
{
StopAmtShort = Prec(StopAmtShort , 4);
StopAmtLong = Prec(StopAmtLong , 4);
ProfitShort = Prec(ProfitShort , 4) ;
ProfitLong = Prec(ProfitLong , 4);
}

//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@

//create the title layout for the various levels
TitleBreakOuts = /*EncodeColor(colorCustom11) +*/"Today's Breakout Levels:" +","
+"Long Target: " +ProfitLong + ","
+"Breakout Long: " +breakOutLong +","
+"Long Stop: " +(BreakOutLong - StopAmtLong) +","
+"Today's Open: " +MrktOpen +","
+"Breakout Short: " +breakOutShort +","
+"Short Target: " +ProfitShort +","
+"Short Stop: " + (BreakOutShort + StopAmtShort);

_SECTION_END();

_SECTION_BEGIN("Toby Crabel Patterns");
TitleHeader = /*EncodeColor(colorYellow) +*/"Yesterday's Price Patterns"; // +"\n";
TitleSwing = /*EncodeColor(colorLavender) +*/"1 Day Swing Trend"; // + "\n";

//compress daily high and low for use in calculations
DlyC = TimeFrameCompress(DlyClose , inDaily, compressLast);
DlyH = TimeFrameCompress(DlyHighest, inDaily, compressLast);
DlyL = TimeFrameCompress(DlyLowest, inDaily, compressLast);
DlyO = TimeFrameCompress(MrktOpen, inDaily, compressLast);
DlyRng = DlyH-DlyL;
//use compressed daily high and low to expand day's 2-5
PrevO = TimeFrameExpand(DlyO, inDaily);//day 2 open
//PrevO2 = TimeFrameExpand(Ref(DlyO, -1), inDaily);//day 3 open
CurH = TimeFrameExpand(DlyH, inDaily);//day 2 high
PrevH = TimeFrameExpand(Ref(DlyH,-1), inDaily);//day 3 high
PrevH2 = TimeFrameExpand(Ref(DlyH,-2), inDaily);//day 4 high
//PrevH3 = TimeFrameExpand(Ref(DlyH,-3), inDaily);//day 5 high
CurL = TimeFrameExpand(DlyL, inDaily);//day 2 low
PrevL = TimeFrameExpand(Ref(DlyL,-1), inDaily);//day 3 low
PrevL2 = TimeFrameExpand(Ref(DlyL,-2), inDaily);//day 4 low
//PrevL3 = TimeFrameExpand(Ref(DlyL,-3), inDaily);//day 5 low
PrevC = TimeFrameExpand(DlyC, inDaily);//day 2 close
PrevC2 = TimeFrameExpand(Ref(DlyC,-1), inDaily);//day 3 close
PrevC3 = TimeFrameExpand(Ref(DlyC,-2), inDaily);//day 4 close

//code and plot the Doji
//abs(O-C)/(H-L) < .11 AND (O+C)/2 < H-((H-L)*.33) AND (O+C)/2 > L+((H-L)*.33)
DlyDoji = (abs(DlyO-DlyC)/(DlyRng)) < 0.11 AND
((DlyO+DlyC)/2) < (DlyH-((DlyRng)*0.33)) AND
((DlyO+DlyC)/2) > (DlyL+((DlyRng)*0.33));
doji = TimeFrameExpand(DlyDoji, inDaily);

Cntr = 0;
Holiday = 0;
for(i=1;i<BarCount;i++)
{
if(CurBarTime[i] >= TimeOpen[i] AND CurBarTime[i] <= TimeClose[i])
Cntr = 1;
if(Cntr[i] >= 1 AND CurBarTime[i] == TimeClose[i])
{
Cntr = 2;
}
if(Cntr[i] < 2 AND CurBarTime[i] > TimeClose[i])
{
Holiday[i] = 1;
}
}

Holiday = TimeFrameCompress(Holiday,inDaily);

//apply holiday filter if the user selects it in the parameters
if(FltrHolidays == 0)
{

//code and plot the NR4
DlyNR4 = IIf(Holiday OR (BarsSince(Holiday) >= 1 AND BarsSince(Holiday) <= 4),
(LLV(DlyRng,5) == (DlyRng)),
(LLV(DlyRng,4) == (DlyRng)));
//code and plot the WS4
DlyWS4 = IIf(Holiday OR (BarsSince(Holiday) >= 1 AND BarsSince(Holiday) <= 4),
(HHV(DlyRng,5) == (DlyRng)),
HHV(DlyRng,4) == (DlyRng));
//code and plot the NR7
DlyNR7 = IIf(Holiday OR (BarsSince(Holiday) >= 1 AND BarsSince(Holiday) <= 7),
(LLV(DlyRng,8) == (DlyRng)),
(LLV(DlyRng,7) == (DlyRng)));
//code and plot the WS7
DlyWS7 = IIf(Holiday OR (BarsSince(Holiday) >= 1 AND BarsSince(Holiday) <= 7),
(HHV(DlyRng,8) == (DlyRng)),
(HHV(DlyRng,7) == (DlyRng)));
//calculate the 2 day range
DlyTwoDayRng = IIf(Holiday OR (BarsSince(Holiday) == 1 ),
HHV(DlyH ,3) - LLV(DlyL ,3),
HHV(DlyH ,2) - LLV(DlyL ,2));
//calculate the 3 day range
DlyThreeDayRng = IIf(Holiday OR (BarsSince(Holiday) >= 1 AND BarsSince(Holiday) <= 2),
HHV(DlyH ,4) - LLV(DlyL ,4),
HHV(DlyH ,3) - LLV(DlyL ,3));

TitleDoji = WriteIf(Holiday OR (BarsSince(Holiday) >= 1 AND BarsSince(Holiday) <= 2),
/*EncodeColor(colorGold) +*/WriteIf(Ref(doji,-2), " Doji Day" +"\n", ""),
/*EncodeColor(colorGold) +*/WriteIf(Ref(doji,-1), " Doji Day" +"\n", ""));
}


//calculate the price patterns based on standard method if the user
//has selected NO in the filter holidays parameter.
if(FltrHolidays == 1)
{
//code and plot the NR4
DlyNR4 = (LLV(DlyRng,4) == (DlyRng));
//code and plot the WS4
DlyWS4 = (HHV(DlyRng,4) == (DlyRng));
//code and plot the NR7
DlyNR7 = (LLV(DlyRng,7) == (DlyRng));
//code and plot the WS7
DlyWS7 = (HHV(DlyRng,7) == (DlyRng));
//calculate the 2 day range
DlyTwoDayRng = HHV(DlyH ,2) - LLV(DlyL ,2);
//calculate the 3 day range
DlyThreeDayRng = HHV(DlyH ,3) - LLV(DlyL ,3);

TitleDoji = EncodeColor(colorGold) +WriteIf(Ref(doji,-1), " Doji Day" +"\n", "");
}

//code the NR
NR = (CurH - CurL) < (PrevH - PrevL);

NR4 = TimeFrameExpand(DlyNR4, inDaily);
TitleNR4 =/* EncodeColor(colorWhite) + */WriteIf(Ref(NR4,0), " NR4 Day"+"\n", "");

WS4 = TimeFrameExpand(DlyWS4, inDaily);
TitleWS4 = /*EncodeColor(colorRed) +*/WriteIf(Ref(WS4,0), " WS4 Day"+"\n", "");

NR7 = TimeFrameExpand(DlyNR7, inDaily);
TitleNR7 = /*EncodeColor(colorWhite) + */WriteIf(Ref(NR7,0), " NR7 Day"+"\n", "");

WS7 = TimeFrameExpand(DlyWS7, inDaily);
TitleWS7 = /*EncodeColor(colorRed) +*/WriteIf(Ref(WS7,0), " WS7 Day" +"\n", "");

TwoDayRng = TimeFrameExpand(DlyTwoDayRng, inDaily);

//determine lowest 2 day range in previous 20 days
DlyTwoBarNR = LLV(DlyTwoDayRng , 20) == DlyTwoDayRng ;
TwoBarNR = TimeFrameExpand(DlyTwoBarNR, inDaily);
TitleTwoBarNR = WriteIf(Ref(TwoBarNR, -1), " 2DayNR" +"\n", "");

ThreeDayRng = TimeFrameExpand(DlyThreeDayRng, inDaily);

//determine lowest 3 day range in previous 20 days
DlyThreeBarNR = LLV(DlyThreeDayRng , 20) == DlyThreeDayRng ;
ThreeBarNR = TimeFrameExpand(DlyThreeBarNR, inDaily);
TitleThreeBarNR = WriteIf(Ref(ThreeBarNR, -1), " 3DayNR" +"\n", "");

//code and plot the pivot top
PivotTop = CurL < PrevL AND CurH < PrevH AND PrevH > PrevH2;

//code and plot the pivot bottom
PivotBottom = CurH > PrevH AND CurL > PrevL AND PrevL < PrevL2;

SwingUP = PrevC > ValueWhen(PivotTop, PrevH,1);
SwingDWN = PrevC < ValueWhen(PivotBottom, PrevL,1);

TitleSwingTrend = WriteIf(SwingUP, " Swing UP" +"\n",
WriteIf(SwingDWN, " Swing DWN" +"\n", " Swing Flat" +"\n"));
ExpSwingTrend = IIf(SwingUP, 9,
IIf(SwingDWN, 0, 1));

//determine if previous day closed up or down
CloseUP = PrevO > PrevH;
//printf("Closed: " +WriteIf( Ref(DlyO,-1) < DlyC, "UP" +"\n", "DWN" +"\n"));
TitleUPDWN = WriteIf(PrevO > PrevH, " UP Day" +"\n", " DWN Day" +"\n");
GapDayUP = PrevO > PrevH2 ;
GapDayDWN = PrevO < PrevL2;
TitleGapDay = WriteIf(GapDayUP,
WriteIf(CloseUP, " Gap UP and closed UP" +"\n", " Gap UP and closed DWN" +"\n"),
WriteIf(GapDayDWN,
WriteIf(CloseUP, " Gap DWN and closed UP" +"\n", " Gap DWN and closed DWN" +"\n"),""));
_SECTION_END();

_SECTION_BEGIN("Exploration");
//the exploration is divided into two sections. each section is tied to the
//the value of the parameter toggle which is used to select from two choices

//Choice 1 is ORB which is a simple scan showing the brekout, profit and stop
//levels for each ticker. Run this scan within first minutes of market open to
//record the levels for each of the securities you are tracking. Set the range
//of the analsys window to 'n last days' where n=1.

//Choice 2 is STATS wich is a more thorough scan that is intended to be used on
//a single security at a time. Results can then be exported into a spread sheet for
//further analysis. While it is not perfect the intended goal is to output a set
//of data which can be used to measure the profitabilty of the system on a given
//security as well as determine the best way to filter out undesirable trades. Set
//the range in the analysis window to include whatever range of days you want to
//output.

/*
$$$$$$$$ The two lines below display the output of the STATS exploration $$$$$$$$$$
$$$$$$$$ The top line contains the column headings and the bottom line $$$$$$$$$$
$$$$$$$$ contains the data for each time stamp. Trend is measured as a 1 $$$$$$$$$$
$$$$$$$$ day swing pivot. U means the previous day closed above a recent $$$$$$$$$$
$$$$$$$$ pivot top. D mena the previous day closed below a recent $$$$$$$$$$
$$$$$$$$ pivot bottom. F means the previous day closed between a $$$$$$$$$$
$$$$$$$$ both the recent pivot top and pivot bottom. D3 and D2 are plus $$$$$$$$$$
$$$$$$$$ and minus symbols to show the close of each day relative to the $$$$$$$$$$
$$$$$$$$ previous. D1 is the current day's open relative to previous $$$$$$$$$$
$$$$$$$$ day's close. D1 is trade day, D2 is the day before trade day $$$$$$$$$$
$$$$$$$$ and D3 is the day before that. After this is a series of 5 $$$$$$$$$$
$$$$$$$$ price patterns taken from Toby Crabel's book. 1's and 0's show $$$$$$$$$$
$$$$$$$$ for each time stamp what the PREVIOUS day's price pattern $$$$$$$$$$
$$$$$$$$ looked like. After the price patterns you find the 6 dollar $$$$$$$$$$
$$$$$$$$ values for the breakout, stop and profit targets. The final 6 $$$$$$$$$$
$$$$$$$$ columns show what occured during each step and using 1's and $$$$$$$$$$
$$$$$$$$ 0's diplays when you enter long/short, stop out long/short or $$$$$$$$$$
$$$$$$$$ hit the long/short target. $$$$$$$$$$

Ticker Date/Time Trend D3 D2 D1 WS4 WS7 Doji NR4 NR7 BOL LngTarg LngStp BOS ShrtTarg ShrtStp LngEnt StpOut Targ ShrtEnt StpOut Targ
ESU9-GLOBEX-FUT 5/1/2009 9:37 U + - + 1 1 0 0 0 873 886.75 871.5 867.25 853.25 868.5 0 0 0 1 0 0

So the line above tells us these things:
(Trend) Yesterday closed above a recent pivot top. (D1)Today's open was above yesterday's close, (D2) yesterday
closed below the previous day's close and (D3) that day closed above it's prior day. Yesterday was
also WS4 and WS7 day which means expansion. At 9:37 am pries broke below the short breakout level
and a short entry was indicated.
It is best to run the STATS exploration in a 1 minute time frame to prevent false stops occurring when
a single 5 or 15 minute bar stretches across both the stop loss and breakout levels
*/

intraHigh = HighestSince(CurBarTime == TimeOpen, H);
intraLow = LowestSince(CurBarTime == TimeOpen, L);
FirstBOL = Cross(H, breakOutLong) AND Ref(intraHigh,-1) < breakOutLong OR
H == breakOutLong AND Ref(intrahigh,-1) < breakOutlong OR
Cross(H, breakOutLong) AND CurBarTime == TimeOpen OR
H == breakOutLong AND CurBarTime == TimeOpen;

LongStop = L <= (breakOutLong - StopAmtLong) AND intraHigh >= breakOutLong AND intraHigh < ProfitLong;
FirstLongStop = LongStop AND Ref(LowestSince(Ref(FirstBOL,-1),L),-1) > (BreakOutLong - StopAmtLong) OR
LongStop AND Ref(FirstBOL,-1);

StgProfitLong = Cross(H, ProfitLong) AND Ref(intraHigh,-1) <= ProfitLong;
FirstProfitLong = IIf(HighestSince(CurBarTime == TimeOpen, LongStop) < 1, StgProfitLong, 0);

FirstBOS = Cross(BreakOutShort, L) AND Ref(intraLow,-1) > breakOutShort OR
L == breakOutShort AND Ref(intraLow,-1) > breakOutShort OR
Cross(breakOutShort, L) AND CurBarTime == TimeOpen OR
L == breakOutShort AND CurBarTime == TimeOpen;

ShortStop = H >= (BreakOutShort + StopAmtShort) AND intraLow <= breakoutShort AND intraLow > ProfitShort;
FirstShortStop = ShortStop AND Ref(HighestSince(Ref(FirstBOS,-1),H),-1) < (BreakOutShort + StopAmtShort) OR
ShortStop AND Ref(FirstBOS,-1);

StgProfitShort = Cross(ProfitShort, L) AND Ref(intraLow,-1) >= ProfitShort;
FirstProfitShort = IIf(HighestSince(CurBarTime == TimeOpen, ShortStop) < 1, StgProfitShort , 0);
MrktHours = CurBarTime >= TimeOpen AND CurBarTime <= TimeClose;
if(expFilter == "ORB")
{
Filter = TimeNum() == TimeOpen;
AddColumn(breakOutLong, "BOL", 1.2);
AddColumn(ProfitLong, "LngTarg", 1.2);
AddColumn(breakOutLong - StopAmtLong, "LngStp", 1.2);
AddColumn(breakOutShort, "BOS", 1.2);
AddColumn(ProfitShort, "ShrtTarg", 1.2);
AddColumn(breakOutShort + StopAmtShort, "ShrtStp", 1.2);

}
if(expFilter == "STATS")
{

Filter = MrktHours AND
( FirstBOS OR FirstShortStop OR FirstProfitShort OR FirstBOL OR FirstLongStop OR FirstProfitLong );
AddColumn(IIf( ExpSwingTrend == 9, 85,
IIf( ExpSwingTrend == 0, 68, 70 )), "Trend", formatChar );
AddColumn(IIf(PrevC2 > PrevC3, 43, 45), "D3", formatChar);
AddColumn(IIf(PrevC > PrevC2, 43, 45), "D2", formatChar);
AddColumn(IIf(MrktOpen > PrevC, 43, 45), "D1", formatChar);
AddColumn(WS4, "WS4", 1);
AddColumn(WS7, "WS7", 1);
AddColumn(doji, "Doji", 1);
AddColumn(NR4, "NR4", 1);
AddColumn(NR7, "NR7", 1);

AddColumn(breakOutLong, "BOL", 1.2);
AddColumn(ProfitLong, "LngTarg", 1.2);
AddColumn(breakOutLong - StopAmtLong, "LngStp", 1.2);
AddColumn(breakOutShort, "BOS", 1.2);
AddColumn(ProfitShort, "ShrtTarg", 1.2);
AddColumn(breakOutShort + StopAmtShort, "ShrtStp", 1.2);

AddColumn(FirstBOL, "LngEnt", 1);
AddColumn(FirstLongStop, "StpOut", 1);
AddColumn(FirstProfitLong, "Targ", 1);

AddColumn(FirstBOS, "ShrtEnt", 1);
AddColumn(FirstShortStop, "StpOut", 1);
AddColumn(FirstProfitShort, "Targ", 1);
}

if(expFilter == "OHLC")
{
//When exploration filter is set to OHLC in parameters,
//this will output the O,H,L,C for each day/ticker selected in
//the analysis window.
Filter = CurBarTime == TimeClose ;
AddColumn(DlyOpen, "O", 1.2);
AddColumn(DlyHighest, "H", 1.2);
AddColumn(DlyLowest, "L", 1.2);
AddColumn(DlyClose, "C", 1.2);

}
_SECTION_END();

_SECTION_BEGIN("Daily Pivots");
//Determine the value of the market close. Initial setting is for
//4:00 PM to match US Market Open. Adjust as need for your market
MrktClose = ValueWhen(CurBarTime == TimeClose , Close);
Range = DlyHighest - DlyLowest;
PP = (DlyHighest + DlyLowest + MrktClose)/3;
PP = round(PP * 4) / 4;
R1 = (2 * PP) - DlyLowest;
S1 = (2 * PP) - DlyHighest;
R2 = PP + Range;
S2 = PP - Range;
R3 = R2 + Range;
S3 = S2 - Range;
R4 = R3 + Range;
S4 = S3 - Range;

TitlePivots = /*EncodeColor(colorBlack) +*/"Today's Daily Pivots" +","
+"R1: " +R1 +"," +"PP: " +PP +"," +"S1: " +S1;
if(PPSR1 == 0)
{
Plot(R1, "Dly R1", colorBlue, styleLine | styleThick | styleNoRescale);
Plot(PP, "Dly Pivot", colorCustom12, styleLine | styleThick | styleNoRescale);
Plot(S1, "Dly S1", colorBlue, styleLine | styleThick | styleNoRescale);
}
if(S2R2 == 0)
{
Plot(R2, "Dly R2", colorBlue, styleLine | styleNoRescale);
Plot(S2, "Dly S2", colorBlue, styleLine | styleNoRescale);
}
if(S3R3 == 0)
{
Plot(R3, "Dly R3", colorBlue, styleDashed | styleThick | styleNoRescale);
Plot(S3, "Dly S3", colorBlue, styleDashed | styleThick | styleNoRescale);
}
if(S4R4 == 0)
{
Plot(R4, "Dly R4", colorBlue, styleDashed | styleNoRescale);
Plot(S4, "Dly S4", colorBlue, styleDashed | styleNoRescale);
}

_SECTION_END();
if(PlotBreak == 0)
{
Plot(MrktOpen, "Daily Open", colorBlack, styleLine | styleNoRescale);
Plot(BreakOutLong , "Break Out Long", colorGreen, styleLine | styleNoRescale);
Plot(BreakOutShort , "Break Out Short", colorRed, styleLine | styleNoRescale);
Plot(ProfitLong, "Long Target", colorGold, styleDots | styleThick | styleNoRescale);
Plot(ProfitShort, "Short Target", colorGold, styleDots | styleThick | styleNoRescale);
PlotOHLC(MrktOpen, breakOutLong, MrktOpen, MrktOpen, "", colorPaleGreen, styleCloud | styleNoRescale | styleNoLabel);
PlotOHLC(MrktOpen, MrktOpen, BreakOutShort , MrktOpen, "", colorRose, styleCloud | styleNoRescale | styleNoLabel);
}
RibbonColor = IIf(MrktHours , colorGreen, colorRed);

Plot( 2, "ribbon",RibbonColor,styleOwnScale|styleArea|styleNoLabel, -1, 100 );

_SECTION_BEGIN("Title");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) ", O, H, L, C,
SelectedValue( ROC( C, 1 ) ) )+"\n" /*+TitleBreakOuts +TitlePivots +TitleSwing +TitleSwingTrend +TitleHeader
+TitleNR4 +TitleNR7 +TitleTwoBarNR +TitleThreeBarNR +TitleWS4
+TitleWS7 +TitleDoji 
+EncodeColor(colorWhite) +WriteIf(TitleGapDay == "", TitleUPDWN, "") +TitleGapDay*/ );


CellHeight = 12;  CellWidth = 150; 
IX =4; IY=4;


function PrintText( string, line) 
{ 
 GfxTextOut ( string, Ix, iY+Line*CellHeight);
} 

//GfxSetBkMode( 2);
GfxSetBkColor( colorLightBlue ); 
GfxSelectFont( "Tahoma", 8); 
GfxSetTextColor(colorCustom11); 

i=1;
str = StrExtract(TitleBreakOuts, 0);
PrintText( str, i++); 

//---Underline ----------
GfxSelectFont("Tahoma", 8, 400, False, True ); 
str = StrExtract(TitleBreakOuts, 1);
PrintText( str, i++);

GfxSelectFont( "Tahoma", 8); 
str = StrExtract(TitleBreakOuts, 2);
PrintText( str, i++); 

str = StrExtract(TitleBreakOuts, 3);
PrintText( str, i++); 

str = StrExtract(TitleBreakOuts, 4);
PrintText( str , i++); 

str = StrExtract(TitleBreakOuts, 5);
PrintText( str , i++); 

str = StrExtract(TitleBreakOuts, 6);
PrintText( str , i++); 

str = StrExtract(TitleBreakOuts, 7);
PrintText( str , i++); 


GfxSetTextColor(colorBlack); 
str = StrExtract(TitlePivots, 0);
PrintText( str , i++); 

str = StrExtract(TitlePivots, 1);
PrintText( str , i++); 

str = StrExtract(TitlePivots, 2);
PrintText( str , i++); 

str = StrExtract(TitlePivots, 3);
PrintText( str , i++); 

GfxSetTextColor(colorLavender); 
PrintText( TitleSwing, i++);

PrintText( TitleSwingTrend, i++);

GfxSetTextColor(colorYellow); 
PrintText( TitleHeader, i++);

if (TitleNR4!="")
{
GfxSetTextColor(colorWhite); 
PrintText( TitleNR4, i++);
}

if (TitleNR7 !="")
{
 GfxSetTextColor(colorYellow); 
 PrintText( TitleNR7, i++);
}

if (TitleTwoBarNR !="")
{
 GfxSetTextColor(colorYellow); 
 PrintText( TitleTwoBarNR, i++);
}

if (TitleThreeBarNR !="")
{
 GfxSetTextColor(colorYellow); 
 PrintText( TitleThreeBarNR, i++);
}

if (TitleWS4 !="")
{
  GfxSetTextColor(colorRed); 
  PrintText( TitleWS4, i++);
}

if (TitleWS7!="")
{
 GfxSetTextColor(colorRed); 
 PrintText( TitleWS7, i++);
}

if (TitleDoji!="")
{
GfxSetTextColor(colorGold); 
PrintText( TitleDoji, i++);
}
GfxSetTextColor(colorWhite); 
str = WriteIf(TitleGapDay == "", TitleUPDWN, "") +TitleGapDay;
PrintText( str, i++);
 
Last edited:
#6
Thanks Kevin,

Perhaps I was not clear enough what I am looking for.

I am attaching an image. One of the values on left top says Long Target. In the image below it is 841.8

I am looking for this line (Green Line in chart) to plot on this price level for present day only.

Please see if you can help me.

As always, many thanks.
 
Last edited:

KelvinHand

Well-Known Member
#7
Thanks Kevin,

Perhaps I was not clear enough what I am looking for.

I am attaching an image. One of the values on left top says Long Target. In the image below it is 841.8

I am looking for this line (Green Line in chart) to plot on this price level for present day only.

Please see if you can help me.

As always, many thanks.
try Post#5
 
#8
Hello KelvinHand,

I tried the AFL in post #5. It Underlines the text Long Target.

I want the line to plot on the price value displayed next to this text.

In the image I have uploaded, a green line is shown for the price against Long Target.

Thanks,
John.
 

KelvinHand

Well-Known Member
#9
Hello KelvinHand,

I tried the AFL in post #5. It Underlines the text Long Target.

I want the line to plot on the price value displayed next to this text.

In the image I have uploaded, a green line is shown for the price against Long Target.

Thanks,
John.
cut and replace just the underline section. Manual set the string instead of StrExtract

//---Underline ----------
str = "Long Target:";
PrintText( str, i);


GfxSelectFont("Tahoma", 8, 400, False, True );
//str = StrExtract(TitleBreakOuts, 1);


IX=64;
str = " "+ProfitLong+ " ";

PrintText( str, i++);
IX=4;
 
Last edited:
#10
The image will clear the details.

The line should plot on the chart - Highlighted by RED Circle.
The value - Highlighted in Green Circle on top left.
 
Last edited:

Similar threads