|
PureBytes Links
Trading Reference Links
|
i'm not sure but don't you have to say tl_extendright
= false?
but maybe there are more prof doders here. anyway the
tool is great
alexandra
----- Original Message -----
From: "Jim." <jim_booner@xxxxxxx>
To: <omega-list@xxxxxxxxxx>
Sent: Monday, April 25, 2005 2:18 PM
Subject: support & resistance code help needed
> I've found this very valuable code for drawing sup&
res, so the credt goes
> to Mr Anonymous.
>
> Can someone help me to change the code that the
support and resistance lines
> will stop when a line is crossed by a close?
>
> At the moment all lines are extended to the right
and after some time the
> chart is a little bit too confused.
>
> It should be possible but I don't know what I have
to change.
> thanks
> Jim
> ______-
>
> inputs:LS(30
),RS(5),TLCount(5),tlStyle(tool_dotted),tlSize(1),
> DecPlaces(2),
ExtendRight(true),TextVPos(0),ColorScheme(1),
ShowText(true);
>
> vars: x( 0 ), MaxTL( 100 ),color( 0
),NoColor(GetBackGroundColor),
> NumTL(TLCount),Color_Scheme(0),Color_Index(1);
>
> array: PivotLowTL [ 3,100 ](-1);{tlID, price and
textID for 100 trendlines}
> array: PivotHighTL[ 3,100 ](-1);{tlID, price and
textID for 100 trendlines}
> array: Colors[2,8](0); { light and dark colors }
>
> { verify within array bounds }
> if BarNumber = 1 then
> begin
> if NumTL > MaxTL then
> NumTL = MaxTL;
>
> { color scheme 1 light colors }
> Colors[1,1] = tool_blue;
> Colors[1,2] = tool_cyan;
> Colors[1,3] = tool_green;
> Colors[1,4] = tool_magenta;
> Colors[1,5] = tool_red;
> Colors[1,6] = tool_yellow;
> Colors[1,7] = tool_white;
> Colors[1,8] = tool_LightGray;
> { color scheme 2 dark colors }
> Colors[2,1] = tool_black;
> Colors[2,2] = tool_DarkBlue;
> Colors[2,3] = tool_DarkCyan;
> Colors[2,4] = tool_DarkGreen;
> Colors[2,5] = tool_DarkMagenta;
> Colors[2,6] = tool_DarkRed;
> Colors[2,7] = tool_DarkBrown;
> Colors[2,8] = tool_DarkGray;
>
> { verify ColorScheme ok }
> Color_Scheme = ColorScheme;
> if Color_Scheme > 2 then
> Color_Scheme = 2;
> if Color_Scheme < 1 then
> Color_Scheme = 1;
> end;
>
> { see if we have a new pivot in place }
> x = PivotLowVSBar(1,low,LS,RS,RS+1);
> if x = RS then
> begin
> { delete oldest trendline and text }
> if tl_Exist( PivotLowTL[ 1,1 ] ) then
> begin
> tl_delete(PivotLowTL[ 1,1 ]);
> if ShowText and text_exist(PivotLowTL[ 3,1 ])
then
> text_delete(PivotLowTL[ 3,1 ]);
> end;
> { push back array }
> for x = 1 to NumTL-1
> begin
> PivotLowTL[ 1,x ] = PivotLowTL[ 1,x+1 ];
> PivotLowTL[ 2,x ] = PivotLowTL[ 2,x+1 ];
> PivotLowTL[ 3,x ] = PivotLowTL[ 3,x+1 ];
> end;
> { create new trendline for new pivot }
> PivotLowTL[ 2,NumTL ] = low[ RS ];
> begin
> PivotLowTL[ 1,NumTL ] = tl_new(date[ RS ],time[ RS
],PivotLowTL[
> 2,NumTL ],date,time,PivotLowTL[ 2,NumTL ]);
> tl_SetStyle(PivotLowTL[ 1,NumTL ],tlStyle);
> tl_SetSize(PivotLowTL[ 1,NumTL ],tlSize);
> if ExtendRight then
> tl_SetExtRight(PivotLowTL[ 1,NumTL ],true);
>
> { increment color...if at last color goto first
color}
> { uses color schemes with min = 1 and max = 8 }
> color_index = IFF(color_index = 8,1,color_index +
1);
> {if new color = background then increment color}
> color_index = IFF(colors[Color_Scheme,Color_Index]
= NoColor,color_index +
> 1,color_index);
> {if new color beyond last then goto first
color }
> color_index = IFF(color_index > 8,1,color_index);
> color = colors[Color_Scheme,color_index];
>
> tl_SetColor(PivotLowTL[1,NumTL],color);
>
> if ShowText then
> begin
> PivotLowTL[ 3,NumTL ] = text_New(date[ RS ],time[
RS ],PivotLowTL[
> 2,NumTL ],NumToStr(PivotLowTL[ 2,NumTL
],DecPlaces));
> text_SetColor(PivotLowTL[ 3,NumTL ],color);
> text_SetStyle(PivotLowTL[ 3,NumTL ],1,TextVPos);
> end;
> end;
> end;
> { update positions of trendlines }
> if ExtendRight = false then
> begin
> for x = 1 to NumTL
> begin
> if PivotLowTL[ 1,x ] > 0 then
> tl_SetEnd(PivotLowTL[ 1,x ],date,time,PivotLowTL[
2,x ]);
> end;
> end;
>
> { see if we have a new pivot in place }
> x = PivotHighVSBar(1,High,LS,RS,RS+1);
> if x = RS then
> begin
> { delete oldest trendline and text }
> if tl_Exist( PivotHighTL[1,1] ) then
> tl_delete(PivotHighTL[1,1]);
> if ShowText and text_exist(PivotHighTL[3,1]) then
> text_delete(PivotHighTL[3,1]);
>
> { push back array entries }
> for x = 1 to NumTL-1
> begin
> PivotHighTL[ 1,x ] = PivotHighTL[ 1,x+1 ];
> PivotHighTL[ 2,x ] = PivotHighTL[ 2,x+1 ];
> PivotHighTL[ 3,x ] = PivotHighTL[ 3,x+1 ];
> end;
> { create new trendline for new pivot }
> PivotHighTL[2,NumTL] = high[RS];
> begin
> PivotHighTL[ 1,NumTL ] = tl_new(date[ RS ],time[
RS ],PivotHighTL[
> 2,NumTL ],date,time,PivotHighTL[ 2,NumTL ]);
> tl_SetStyle(PivotHighTL[ 1,NumTL ],tlStyle);
> tl_SetSize(PivotHighTL[ 1,NumTL ],tlSize);
> if ExtendRight then
> tl_SetExtRight(PivotHighTL[ 1,NumTL ],true);
>
> { increment color...if at last color goto first
color}
> { uses color schemes with min = 1 and max = 8 }
> color_index = IFF(color_index = 8,1,color_index +
1);
> {if new color = background then increment color}
> color_index = IFF(colors[Color_Scheme,Color_Index]
= NoColor,color_index +
> 1,color_index);
> {if new color beyond last then goto first
color }
> color_index = IFF(color_index > 8,1,color_index);
> color = colors[Color_Scheme,color_index];
>
> tl_SetColor(PivotHighTL[1,NumTL],color);
>
> if ShowText then
> begin
> PivotHighTL[ 3,NumTL ] = text_New(date[ RS
],time[ RS ],PivotHighTL[
> 2,NumTL ],NumToStr(PivotHighTL[ 2,NumTL
],DecPlaces));
> text_SetColor(PivotHighTL[ 3,NumTL ],color);
> text_SetStyle(PivotHighTL[ 3,NumTL ],1,TextVPos);
> end;
> end;
> end;
> { update positions of trendlines }
> if ExtendRight = false then
> begin
> for x = 1 to NumTL
> begin
> if PivotHighTL[ 1,x ] > 0 then
> tl_SetEnd(PivotHighTL[ 1,x
],date,time,PivotHighTL[ 2,x ]);
> end;
> end;
>
___________________________________________________________
|