a:=Input("ZigZag minimum
percentage",.01,100,5); b:=Input("Fib levels based on:
[1]Troughs, [2]Peaks",1,2,1); d:=Input("HHV/LLV
periods",1,500,50);
formulal:=Trough(1,L,a); formulSat:=Peak(1,H,a); al:=LLV(formulal,d); sat:=HHV(formulsat,d);
feb:=sat-al; feb0:=(al)
; feb1:=(al+feb*.236); feb2:=(al+feb*.382); feb3:=(al+feb*..486); feb4:=(al+feb*.618); feb5:=(sat)
; feb6:=(sat-feb*.236); feb7:=(sat-feb*.382); feb8:=(sat-feb*.618);
{ Plot on price chart
} If(b=1,feb0,feb8); If(b=1,feb3,feb3); If(b=1,feb1,feb7); If(b=1,feb2,feb6); If(b=1,feb4,feb0); feb5;
{Created By Özgür
YILDIRIM} {Code fixed by jOsE}
{Modifications Suggested by
Dusant}
{Plot as dots in thick
mode}
See attached chart for multi
coloured plotting.
Dusant
----- Original Message -----
Sent: Saturday, March 05, 2005 2:48
PM
Subject: [EquisMetaStock Group] Re:
Febhonichi oran;
Özgür, how are things in Molvania? http://www.jetlagtravel.com/molvania
This
code plots the same output,
faster:
---8<--------------------- a:=Input("ZigZag minimum
percentage",.01,100,5); b:=Input("Fib levels based on:
[1]Troughs, [2]Peaks",1,2,1); d:=Input("HHV/LLV
periods",1,500,50);
formulal:=Trough(1,C,a); formulSat:=Peak(1,C,a); al:=LLV(formulal,d); sat:=HHV(formulsat,d);
feb:=sat-al; feb0:=LastValue(al)
; feb1:=LastValue(al+feb*.236); feb2:=LastValue(al+feb*.382); feb3:=LastValue(al+feb*.500); feb4:=LastValue(al+feb*.618); feb5:=LastValue(sat)
; feb6:=LastValue(sat-feb*.236); feb7:=LastValue(sat-feb*.382); feb8:=LastValue(sat-feb*.618);
{
Plot on price chart
} If(b=1,feb0,feb8); If(b=1,feb3,feb3); If(b=1,feb1,feb7); If(b=1,feb2,feb6); If(b=1,feb4,feb0); feb5;
{Created
By Özgür YILDIRIM} {Code fixed by
jOsE}
---8<---------------------
jose '-) http://www.metastocktools.com
Yahoo! Groups Sponsor |
ADVERTISEMENT
| |
|
Yahoo! Groups Links
Yahoo! India Matrimony: Find your life partner
online. |