Dear members,
Here I post some of my METASTOCK EOD formulas. Below is one of them.
{NAME:BASU'S TRENDS}
pt:= FmlVar("BASU'S POINT THEORY","bPT");{already there in my previous posts}
ah:=ROC(H,4,$)-ROC(H,1,$)+Mov(H,6,E);
al:=ROC(L,4,$)-ROC(L,1,$)+Mov(L,6,E);
ac:=ROC(C,4,$)-ROC(C,1,$)+Mov(C,6,E);
ao:=ROC(O,4,$)-ROC(O,1,$)+Mov(O,6,E);
a:=If(ac>aO+7*pt,(aH+aC-ao-aL)*.8,
If(ac>aO+4*pt,(ac-al)*1.5,
If(ac>aO+2*pt,(ah-ao)*.5,
If(ac>aO-2*pt,(ao-ah)*.6,
If(ac>aO-4*pt,(al-ao)*.5,
If(ac>aO-7*pt,(ac-ah)*1.5,(ac-ao+al-ah)*.8))))));
a1:=If(a>8*pt,ah-a*.8,
If(a>5*pt,ah-a,
If(a>3*pt,aH-a,
If(a>2*pt,(aC+ao)/2-a*2,
If(a>pt,aC-a*2,
If(a>O,aO-a*3,
If(a>-pt,aO-a*3,
If(a>-2*pt,aC-a*2,
If(a>-3.5*pt,(aC+ao)/2-a*2,
If(a>-5*pt,aL-a,
If(a>-8*pt,al-a,al-a*.8)))))))))));
Mov((O-a+a1)/2,2,E)
{(TREND: BUY: BLUE)
fml("BASU'S TRENDS ")<c
(TREND: SELL: RED)
fml("BASU'S TRENDS")>c}
BASUDEO
Here I post some of my METASTOCK EOD formulas. Below is one of them.
{NAME:BASU'S TRENDS}
pt:= FmlVar("BASU'S POINT THEORY","bPT");{already there in my previous posts}
ah:=ROC(H,4,$)-ROC(H,1,$)+Mov(H,6,E);
al:=ROC(L,4,$)-ROC(L,1,$)+Mov(L,6,E);
ac:=ROC(C,4,$)-ROC(C,1,$)+Mov(C,6,E);
ao:=ROC(O,4,$)-ROC(O,1,$)+Mov(O,6,E);
a:=If(ac>aO+7*pt,(aH+aC-ao-aL)*.8,
If(ac>aO+4*pt,(ac-al)*1.5,
If(ac>aO+2*pt,(ah-ao)*.5,
If(ac>aO-2*pt,(ao-ah)*.6,
If(ac>aO-4*pt,(al-ao)*.5,
If(ac>aO-7*pt,(ac-ah)*1.5,(ac-ao+al-ah)*.8))))));
a1:=If(a>8*pt,ah-a*.8,
If(a>5*pt,ah-a,
If(a>3*pt,aH-a,
If(a>2*pt,(aC+ao)/2-a*2,
If(a>pt,aC-a*2,
If(a>O,aO-a*3,
If(a>-pt,aO-a*3,
If(a>-2*pt,aC-a*2,
If(a>-3.5*pt,(aC+ao)/2-a*2,
If(a>-5*pt,aL-a,
If(a>-8*pt,al-a,al-a*.8)))))))))));
Mov((O-a+a1)/2,2,E)
{(TREND: BUY: BLUE)
fml("BASU'S TRENDS ")<c
(TREND: SELL: RED)
fml("BASU'S TRENDS")>c}
BASUDEO