|
PureBytes Links
Trading Reference Links
|
Hi Dusant,
<span
> Thanks for your
input.
Is there another way to custom code a vertical line in an indicator .<span
> 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
<span
>-----Original Message-----
From: Dusant
[mailto:cooldush@xxxxxxxxxxx]
Sent: <st1:date
Month="7" Day="19" Year="2003">Saturday, 19 July 2003<font
size=2 face=Tahoma> <st1:time
Hour="14" Minute="14">2:14 PM<span
>
To: equismetastock@xxxxxxxxxxxxxxx
Subject: [EquisMetaStock Group]
Re: plotting a line Modify
<font size=3
face="Times New Roman">
<font size=2
face="Courier New">Michael<font
size=2 face="Courier New">
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 <font
size=2 face="Courier New">Normal<font
size=2 face="Courier New"> Scale with Date
Indicator}<span
>
> > 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 <font
size=2 face="Courier New">Normal<font
size=2 face="Courier New"> Scale}<font
size=2 face="Courier New">
> >
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
<font size=2
face="Courier New">To unsubscribe from this
group, send an email to:<span
>
equismetastock-unsubscribe@xxxxxxxxxxxxxxx
Your use of
Yahoo! Groups is subject to the Yahoo!
Terms of Service.
Yahoo! Groups Sponsor
ADVERTISEMENT
To unsubscribe from this group, send an email to:
equismetastock-unsubscribe@xxxxxxxxxxxxxxx
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
|