|
PureBytes Links
Trading Reference Links
|
Mike,
It seems impossible to manually adjust the values of an indicator,
unless you write it into the syntax.
Therefore, I suggest that you draw up an indicator, which also
"adjusts" mathematically, with whatever conditions you need, and plot
it as a histogram.
That's the best I can think of.
Roy's suggestions of writing a DLL also is a possiblility, though I
have absolutely NO IDEA of how to even start a DLL.
Dusant
--- In equismetastock@xxxxxxxxxxxxxxx, "Michael Bethell" <mdtmn@xxxx>
wrote:
> 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@xxxx
>
>
> -----Original Message-----
> From: Dusant [mailto:cooldush@x...]
> 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 Ink Cartridges & Refill Kits for Your Epson at Myinks.com
Free shipping on orders $50 or more to the US and Canada.
http://www.c1tracking.com/l.asp?cid=5705&lp=home/epson.asp
http://us.click.yahoo.com/brYXfA/_xWGAA/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/
|