|
PureBytes Links
Trading Reference Links
|
Michael
There is a possible way to adjust the height of a vertical line without
resorting to a dll. I don't know if what you want can be done by a dll but
I certainly don't see the feature in any of the 20+ dll's I currently have.
What you could experiment with, along the lines of Dusant's suggestion, is
having a second (and third?) line to "blank" portions of the original
vertical line. I see problems in implementing this, even if it works,
because of the difficulty in scaling to your chart value without the zero
portion of the histogram skewing your entire chart. Putting that aside, one
way to blank a line is to draw another partial line over the top of the
original line and colour it to the colour of your background. There is also
an "invisible" option that may be of use.
At the end of the day these ideas are going to be entirely impractical
unless you incorporate the setup in your default template so you don't have
to recreate it every time you open a chart.
Roy
----- Original Message -----
From: "Michael Bethell" <mdtmn@xxxxxxxxxxxxxxxx>
To: <equismetastock@xxxxxxxxxxxxxxx>
Sent: Sunday, July 20, 2003 11:55 AM
Subject: RE: [EquisMetaStock Group] Re: plotting a line Modify
Hi Dusant,
Thanks for your input.
Is there another way to custom code a vertical line in an
indicator . As I need to be able to adjust the height of the vertical
line ( as you would the length of the trendline drawing tool )
Michael Bethell
mdtmn@xxxxxxxxxxxxxxxx
-----Original Message-----
From: Dusant [mailto:cooldush@xxxxxxxxxxx]
Sent: Saturday, 19 July 2003 2:14 PM
To: equismetastock@xxxxxxxxxxxxxxx
Subject: [EquisMetaStock Group] Re: plotting a line Modify
Michael
To plot a vertical line, create a binary indicator which satisfies
your condition.
A binary indicator would be:
if(<condition> = true, 1, 0)
Drag the indicator on the price plot, and select overlay without
scale. Then select the indicator, choose the style as a histogram. You
would get your vertical line.
Hope this helps.
Dusant
--- In equismetastock@xxxxxxxxxxxxxxx, "mdtmn" <mdtmn@xxxx> wrote:
> Hello Dusant,
> Would you know if the formula you posted, could be
> modifed to draw a vertical line thru one point on the chart screen?
> Thanks
> Michael B
> mdtmn@xxxx
> --- In equismetastock@xxxxxxxxxxxxxxx, "Dusant" <cooldush@xxxx>
> wrote:
> > This is not my material. This was posted by fredcom about a three
> > weeks ago.
> > -------------
> > {Highs Normal Scale with Date Indicator}
> > j:=Input("Day",1,31,15);
> > {by FREDCOM, 26May2003 --> V3.06}
> > m:=Input("Month",1,12,1);
> > an:=Input("Year",1800,2200,2003);
> > cdate:=ValueWhen( 1, ((Year()-2000)*10000+Month()*100+DayOfMonth()
)
> =
> > ((an-2000)*10000+m*100+j), Cum(1) );
> > peri:=Input("Période?",2,100,4);
> > {by FREDCOM, 29april2003 --> V1.09}
> > hic:= H>Ref(HHV(H,peri),-1) AND H>=Ref(HHV(H,peri),peri) AND
Cum(1)
> <=
> > (LastValue(cdate)-peri);
> > y1t:=LastValue(ValueWhen( 2, hic=1, H ));
> > y2t:=LastValue(ValueWhen( 1, hic=1, H ));
> > x1t:=LastValue(ValueWhen( 2, hic=1 , Cum(1) ));
> > x2t:=LastValue(ValueWhen( 1, hic=1 , Cum(1) ));
> > {at:=(y1t-y2t)/(x1t-x2t);bt:=y1t-at*x1t;}
> > yt:=(y1t-y2t)/(x1t-x2t)*Cum(1)+y1t-(y1t-y2t)/(x1t-x2t)*x1t;
> > {yt:=at*cum(1)+bt;}
> > {e1:=H-yt;}
> > {ret1:=LastValue(Cum(1)-(x1t+Int((x2t-x1t)/2)-1));}
> > {seg1:=LastValue(Int((x2t-x1t)/2+Int(2*peri/5)));}
> > x1:=LastValue(Cum(1)-HHVBars(Ref({e1}H-yt,{-ret1}-LastValue(Cum(1)
-
> > (x1t+Int((x2t-x1t)/2)-1))),{seg1}LastValue(Int((x2t-x1t)
> > /2+Int(2*peri/5)))){-ret1}-LastValue(Cum(1)-(x1t+Int((x2t-x1t)/2)-
> 1)))
> > ;
> > y1:=LastValue(ValueWhen(1,x1=Cum(1),H));
> > ret2:=LastValue(Cum(1)-(x2t+Int(4*peri/5)));
> > seg2:=LastValue(Int((x2t-x1t)/2)+Int(4*peri/5));
> > x2:=LastValue(Cum(1)-HHVBars(Ref({e1}H-yt,-ret2),seg2)-ret2);
> > y2:=LastValue(ValueWhen(1,x2=Cum(1),H));
> > {a:=(y1-y2)/(x1-x2);b:=y1-a*x1;}
> >
> > HiTL:=If(Cum(1)>x1t-5,(y1-y2)/(x1-x2)*Cum(1)+y1-(y1-y2)/(x1-x2)
> > *x1,BarsSince(Cum(1)>x1t-5));
> >
> > Diff:=Ref(HiTL-L,-LastValue(Cum(1)-x2t));
> > decal:=LastValue(HHV(Diff,x2t-x1t));
> > If(Cum(1)=LastValue(cdate),HiTL*1.02,HiTL);HiTL;HiTL-decal;
> > -------------
> > {Highs Log Scale}
> > peri:=Input("Période?",2,100,5);
> > {by FREDCOM, 26Mai2003 --> V2.13}
> > hic:= H>Ref(HHV(H,peri),-1) AND H>=Ref(HHV(H,peri),peri);
> > y1t:=Log(LastValue(ValueWhen( 2, hic=1, H )));
> > y2t:=Log(LastValue(ValueWhen( 1, hic=1, H )));
> > x1t:=LastValue(ValueWhen( 2, hic=1 , Cum(1) ));
> > x2t:=LastValue(ValueWhen( 1, hic=1 , Cum(1) ));
> > {at:=(y1t-y2t)/(x1t-x2t);bt:=y1t-at*x1t;}
> > yt:=Exp((y1t-y2t)/(x1t-x2t)*Cum(1)+y1t-(y1t-y2t)/(x1t-x2t)*x1t);
> > {yt:=at*cum(1)+bt;}
> > e1:=H-yt;
> > ret1:=LastValue(Cum(1)-(x1t+Int((x2t-x1t)/2)-1));
> > seg1:=LastValue(Int((x2t-x1t)/2+Int(2*peri/5)));
> > x1:=LastValue(Cum(1)-HHVBars(Ref(e1,-ret1),seg1)-ret1);
> > y1:=Log(LastValue(ValueWhen(1,x1=Cum(1),H)));
> > ret2:=LastValue(Cum(1)-(x2t+Int(4*peri/5)));
> > seg2:=LastValue(Int((x2t-x1t)/2)+Int(4*peri/5){+Int(1*peri/5)});
> > x2:=LastValue(Cum(1)-HHVBars(Ref(e1,-ret2),seg2)-ret2);
> > y2:=Log(LastValue(ValueWhen(1,x2=Cum(1),H)));
> > {a:=(y1-y2)/(x1-x2);b:=y1-a*x1;}
> > HiTL:=Exp(If(Cum(1)>x1t-5,(y1-y2)/(x1-x2)*Cum(1)+y1-(y1-y2)
/(x1-x2)
> > *x1,BarsSince(Cum(1)>x1t-5)));
> >
> > Diff:=Ref(Log(HiTL)-Log( L ),-LastValue(Cum(1)-x2t));
> > decal:=LastValue(HHV(Diff,x2t-x1t));
> > HiTL;Exp(Log(HiTL)-decal);
> > -------------
> > {Highs Normal Scale}
> > peri:=Input("Période?",1,100,5);
> > {by FREDCOM, 26Mai2003 --> V1.13}
> > hic:= H>Ref(HHV(H,peri),-1) AND H>=Ref(HHV(H,peri),peri);
> > y1t:=LastValue(ValueWhen( 2, hic=1, H ));
> > y2t:=LastValue(ValueWhen( 1, hic=1, H ));
> > x1t:=LastValue(ValueWhen( 2, hic=1 , Cum(1) ));
> > x2t:=LastValue(ValueWhen( 1, hic=1 , Cum(1) ));
> > {at:=(y1t-y2t)/(x1t-x2t);bt:=y1t-at*x1t;}
> > yt:=(y1t-y2t)/(x1t-x2t)*Cum(1)+y1t-(y1t-y2t)/(x1t-x2t)*x1t;
> > {yt:=at*cum(1)+bt;}
> > e1:=H-yt;
> > ret1:=LastValue(Cum(1)-(x1t+Int((x2t-x1t)/2)-1));
> > seg1:=LastValue(Int((x2t-x1t)/2+Int(2*peri/5)){+peri-1});
> > x1:=LastValue(Cum(1)-HHVBars(Ref(e1,-ret1),seg1)-ret1);
> > y1:=LastValue(ValueWhen(1,x1=Cum(1),H));
> > ret2:=LastValue(Cum(1)-(x2t+Int(4*peri/5)));
> > seg2:=LastValue(Int((x2t-x1t)/2)+Int(4*peri/5));
> > x2:=LastValue(Cum(1)-HHVBars(Ref(e1,-ret2),seg2)-ret2);
> > y2:=LastValue(ValueWhen(1,x2=Cum(1),H));
> > {a:=(y1-y2)/(x1-x2);b:=y1-a*x1;}
> > a:=(y1-y2)/(x1-x2);
> > HiTL:=If(Cum(1)>x1t-5,(y1-y2)/(x1-x2)*Cum(1)+y1-(y1-y2)/(x1-x2)
> > *x1,BarsSince(Cum(1)>x1t-5));
> >
> > Diff:=Ref(HiTL-L,-LastValue(Cum(1)-x2t));
> > decal:=LastValue(HHV(Diff,x2t-x1t));
> > HiTL;HiTL-decal;
> > -------------
> > {Lows with Date Indication}
> > j:=Input("Day",1,31,15);
> > {by FREDCOM, 26May2003 --> V3.06}
> > m:=Input("Month (1=Jan, 2=Feb,...)",1,12,1);
> > an:=Input("Year",1800,2200,2003);
> > date:=ValueWhen( 1, ((Year()-2000)*10000+Month()*100+DayOfMonth())
=
> > ((an-2000)*10000+m*100+j), Cum(1) );
> > peri:=Input("Période?",2,100,4);
> > loc:= L<Ref(LLV(L,peri),-1) AND L<=Ref(LLV(L,peri),peri) AND
Cum(1)
> <=
> > (LastValue(date)-peri);
> > y1t:=LastValue(ValueWhen( 2, loc=1, L ));
> > y2t:=LastValue(ValueWhen( 1, loc=1, L ));
> > x1t:=LastValue(ValueWhen( 2, loc=1, Cum(1) ));
> > x2t:=LastValue(ValueWhen( 1, loc=1, Cum(1) ));
> > {at:=(y1t-y2t)/(x1t-x2t);bt:=y1t-at*x1t;}
> > yt:=(y1t-y2t)/(x1t-x2t)*Cum(1)+y1t-(y1t-y2t)/(x1t-x2t)*x1t;
> > {yt:=at*cum(1)+bt;}
> > {e1:=(L-yt)};
> > {ret1:=LastValue(Cum(1)-(x1t+Int((x2t-x1t)/2)-1))};
> > {seg1:=LastValue(Int((x2t-x1t)/2+Int(2*peri/5)))};
> > x1:=LastValue(Cum(1)-LLVBars(Ref({e1}(L-yt),{-ret1}-LastValue(Cum
> (1)-
> > (x1t+Int((x2t-x1t)/2)-1))),{seg1}LastValue(Int((x2t-x1t)
> > /2+Int(2*peri/5)))){-ret1}-LastValue(Cum(1)-(x1t+Int((x2t-x1t)/2)-
> 1)))
> > ;
> > y1:=LastValue(ValueWhen(1,x1=Cum(1),L));
> > ret2:=LastValue(Cum(1)-(x2t+Int(4*peri/5)));
> > seg2:=LastValue(Int((x2t-x1t)/2)+Int(4*peri/5));
> > x2:=LastValue(Cum(1)-LLVBars(Ref({e1}(L-yt),-ret2),seg2)-ret2);
> > y2:=LastValue(ValueWhen(1,x2=Cum(1),L));
> > {a:=(y1-y2)/(x1-x2);b:=y1-a*x1;}
> >
> > LoTL:=If(Cum(1)>x1t-5,(y1-y2)/(x1-x2)*Cum(1)+y1-(y1-y2)/(x1-x2)
> > *x1,BarsSince(Cum(1)>x1t-5));
> >
> > Diff:=Ref(H-LoTL,-LastValue(Cum(1)-x2t));
> > decal:=LastValue(HHV(Diff,x2t-x1t));
> > If(Cum(1)=LastValue(date),LoTL*.98,LoTL);LoTL;LoTL+decal;
> > ---------------
> > {Lows Log Scale}
> > peri:=Input("Période?",2,100,5);
> > {by FREDCOM, 26Mai2003 --> V2.13}
> > loc:= L<Ref(LLV(L,peri),-1) AND L<=Ref(LLV(L,peri),peri);
> > y1t:=Log(LastValue(ValueWhen( 2, loc=1, L )));
> > y2t:=Log(LastValue(ValueWhen( 1, loc=1, L )));
> > x1t:=LastValue(ValueWhen( 2, loc=1, Cum(1) ));
> > x2t:=LastValue(ValueWhen( 1, loc=1, Cum(1) ));
> > {at:=(y1t-y2t)/(x1t-x2t);bt:=y1t-at*x1t;}
> > yt:=Exp((y1t-y2t)/(x1t-x2t)*Cum(1)+y1t-(y1t-y2t)/(x1t-x2t)*x1t);
> > {yt:=exp(at*cum(1)+bt);}
> > e1:=L-yt;
> > ret1:=LastValue(Cum(1)-(x1t+Int((x2t-x1t)/2)-1));
> > seg1:=LastValue(Int((x2t-x1t)/2+Int(2*peri/5)));
> > x1:=LastValue(Cum(1)-LLVBars(Ref(e1,-ret1),seg1)-ret1);
> > y1:=Log(LastValue(ValueWhen(1,x1=Cum(1),L)));
> > ret2:=LastValue(Cum(1)-(x2t+Int(4*peri/5)));
> > seg2:=LastValue(Int((x2t-x1t)/2)+Int(4*peri/5)+Int(1*peri/5));
> > x2:=LastValue(Cum(1)-LLVBars(Ref(e1,-ret2),seg2)-ret2);
> > y2:=Log(LastValue(ValueWhen(1,x2=Cum(1),L)));
> > {a:=(y1-y2)/(x1-x2);b:=y1-a*x1;}
> > LoTL:=Exp(If(Cum(1)>x1t-5,(y1-y2)/(x1-x2)*Cum(1)+y1-(y1-y2)
/(x1-x2)
> > *x1,BarsSince(Cum(1)>x1t-5)));
> >
> > Diff:=Ref(Log(H)-Log(LoTL),-LastValue(Cum(1)-x2t));
> > decal:=LastValue(HHV(Diff,x2t-x1t));
> > LoTL;Exp(Log(LoTL)+decal);
> > --------------
> > {Lows Normal Scale}
> > peri:=Input("Période?",2,100,4);
> > {by FREDCOM, 26May2003 --> V1.13}
> > loc:= L<Ref(LLV(L,peri),-1) AND L<=Ref(LLV(L,peri),peri);
> > y1t:=LastValue(ValueWhen( 2, loc=1, L ));
> > y2t:=LastValue(ValueWhen( 1, loc=1, L ));
> > x1t:=LastValue(ValueWhen( 2, loc=1, Cum(1) ));
> > x2t:=LastValue(ValueWhen( 1, loc=1, Cum(1) ));
> > {at:=(y1t-y2t)/(x1t-x2t);bt:=y1t-at*x1t;}
> > yt:=(y1t-y2t)/(x1t-x2t)*Cum(1)+y1t-(y1t-y2t)/(x1t-x2t)*x1t;
> > {yt:=at*cum(1)+bt;}
> > e1:=L-yt;
> > ret1:=LastValue(Cum(1)-(x1t+Int((x2t-x1t)/2)-1));
> > seg1:=LastValue(Int((x2t-x1t)/2+Int(2*peri/5)){+peri-1});
> > x1:=LastValue(Cum(1)-LLVBars(Ref(e1,-ret1),seg1)-ret1);
> > y1:=LastValue(ValueWhen(1,x1=Cum(1),L));
> > ret2:=LastValue(Cum(1)-(x2t+Int(5*peri/5)));
> > seg2:=LastValue(Int((x2t-x1t)/2)+Int(4*peri/5));
> > x2:=LastValue(Cum(1)-LLVBars(Ref(e1,-ret2),seg2)-ret2);
> > y2:=LastValue(ValueWhen(1,x2=Cum(1),L));
> > {a:=(y1-y2)/(x1-x2);b:=y1-a*x1;}
> > a:=(y1-y2)/(x1-x2);
> > LoTL:=If(Cum(1)>x1t-5,(y1-y2)/(x1-x2)*Cum(1)+y1-(y1-y2)/(x1-x2)
> > *x1,BarsSince(Cum(1)>x1t-5));
> > Diff:=Ref(H-LoTL,-LastValue(Cum(1)-x2t));
> > decal:=LastValue(HHV(Diff,x2t-x1t));
> > LoTL;LoTL+decal;
> > -----------------
> > Hope this helps.
> > And it would always be better to do an archive search. There's
> plenty
> > of material available here. Some of them are gems.
> >
> > Dusant
Yahoo! Groups Sponsor
ADVERTISEMENT
<http://rd.yahoo.com/M=194081.3551198.4824677.1261774/D=egroupweb/S=1705
375617:HM/A=1663535/R=0/SIG=11ps6rfef/*http:/www.ediets.com/start.cfm?co
de=30504&media=atkins> click here
<http://us.adserver.yahoo.com/l?M=194081.3551198.4824677.1261774/D=egrou
pmail/S=:HM/A=1663535/rand=871210145>
To unsubscribe from this group, send an email to:
equismetastock-unsubscribe@xxxxxxxxxxxxxxx
Your use of Yahoo! Groups is subject to the Yahoo!
<http://docs.yahoo.com/info/terms/> Terms of Service.
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy No Snore & Get a Good Night's Sleep. Natural Oral Spray -- $24.95
(1 bottle, 1 month supply, with sweet almond oil, eucalyptus oil & more).
http://www.challengerone.com/t/l.asp?cid=2881&lp=h515.html
http://us.click.yahoo.com/2oMABA/nuYGAA/ySSFAA/BefplB/TM
---------------------------------------------------------------------~->
To unsubscribe from this group, send an email to:
equismetastock-unsubscribe@xxxxxxxxxxxxxxx
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
|