|
PureBytes Links
Trading Reference Links
|
Well, I guess on something like this I need
to make it TS4 compatible.
This version will run in TS4, TS2K, and in
all probability SC also.
Junk.gif is a picture from TS4 (and I had
the maximum number of
trendlines set to 120 to make sure that was
working and it did).
WHEN SPECIFYING COLOR FOR TS4, you must
prefix the color with tool_
so for ts4 the default color value would
be tool_red works just
as good as a number but you don't have to
remember what number is what
color.
It looked in Prosper's chart that the damn
thing was making extensions
to the right so I added some statements
that would prohibit this.
Also, I put in the junk necessary to keep
from doing more than some
number of trendlines. For TS4 I
typically set this to 400 or so.
An .ela (ts4 compatible)
is attached.
{Indicator: NBarBox}
{Purpose: Draw a box covering NBars with the bottom of
the
box corresponding to the Lowest Low in the
NBars
of the group and the top of the box being
the
Highest High in the group.
<FONT face="Courier New"
size=2>
Vertical lines are drawn at the beginning and
end
of the group of bars and extends from LL to HH.
<FONT face="Courier New"
size=2> Use: Display higher time
frame on chart.
Problems: ONLY FOR TS2000
unless you add something to
insure
only the most recent 600 or so trendlines are
drawn -- that would cover 150 groups.
<FONT face="Courier New"
size=2>
DO NOT APPLY TO A VERY LONG DATA SERIES AS IT
WILL
TAKE A VERY LONG TIME TO UPDATE ! ! !
Author: Clyde
Lee, Copyright 2001
Permission: This application for
Omega Tradestation can be
freely distributed with proper credit.}
Input:
NBars(4), {Number of
bars to be included in box }
Shift(0), {Move
starting bar by amount entered
} LColor(tool_red),
{Line color for
box
}
LSize(0); {Line size
for
box
}Input: MaxNoTL(400); {For TS4 set
to 400 for TS2K set=zero }
Vars:
MBars(NBars-1),HH(0),LL(0),TLKount(0);
If Mod(CurrentBar,NBars)=Shift then
begin HH=Highest(H,NBars); LL=Lowest(L,Nbars);
Value1=TL_New(Date[Mbars], Time[MBars], HH, Date, Time, HH);
Value2=TL_New(Date[Mbars], Time[MBars], LL, Date, Time, LL);
Value3=TL_New(Date[Mbars], Time[MBars], HH, Date[MBars], Time[MBars], LL);
Value4=TL_New(Date, Time, HH, Date, Time, LL);
TL_SetColor(Value1, LColor); TL_SetColor(Value2, LColor);
TL_SetColor(Value3, LColor); TL_SetColor(Value4, LColor);
TL_SetSize(Value1, LSize); TL_SetSize(Value2, LSize);
TL_SetSize(Value3, LSize); TL_SetSize(Value4, LSize);
TL_SetExtRight(Value1,False); TL_SetExtRight(Value2,False);
TL_SetExtRight(Value3,False); TL_SetExtRight(Value4,False);
{if TS4 then get rid of TL's if more than MaxNoTL} If MaxNoTL>0
then begin TLKount=TLKount+4; If
TLKount>MaxNoTL then begin For Value1=1 to
20 begin
Value2=TL_GetFirst(1);
TL_Delete(Value2);
End; TLKount=TLKount-20;
End; End;End;
<FONT face="Courier New"
size=2>
If false then Plot1(c,"c");
- - - - - - - - - - - - - - - - - - - - - - - - - - - -Clyde
Lee
Chairman/CEO (Home of
SwingMachine)SYTECH
Corporation email: <A
href="mailto:clydelee@xxxxxxxxxxxx";>clydelee@xxxxxxxxxxxx 7910
Westglen, Suite 105
Office: (713) 783-9540Houston, TX
77063
Fax: (713) 783-1092Details
at:
www.theswingmachine.com- - - -
- - - - - - - - - - - - - - - - - - - - - - - -
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
----- Original Message -----
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black">From:
Prosper
To: <A title=realtraders@xxxxxxxxxxxxxxx
href="mailto:realtraders@xxxxxxxxxxxxxxx";>Real Traders
Sent: Sunday, July 01, 2001 16:38
Subject: [RT] N bar Box in TS 4.0
Hi,The only change that I made was to change the
LColor input to a number like
To unsubscribe from this group, send an email to:
realtraders-unsubscribe@xxxxxxxxxxxxxxx
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
Attachment:
Description: "junk.gif"
Attachment:
Description: "nbarbox.ela"
|