Nice
work guys. Is it possible to express what Panagiotes came up with as an exploration?
That is the following code:
pds1:=Input("Starting
Day",1,260,10);
pds2:=Input("Days Range",1,260,10);
Mov(If(C>=Ref(C,-pds1),1,-1),pds2,S)*10;
0
Any
suggestions would be appreciated
Kevin
-----Original Message-----
From: Panagiotes. E. Savvides
[mailto:psavi@xxxxxx]
Sent: Saturday, 19
February 2005 6:19 PM
To: equismetastock@xxxxxxxxxxxxxxx
Subject: [EquisMetaStock Group]
TrendScore
-----Original Message-----
From: Jose
[mailto:josesilva22@xxxxxxxxx]
Sent: Saturday,
February 19, 2005 3:29 AM
To: equismetastock@xxxxxxxxxxxxxxx
Subject: [EquisMetaStock Group]
Re: TrendScore
Try this:
---8<------------------
pds:=Input("Starting day",1,130,11);
TrendScore:=
If(C>=Ref(C,-pds),1,-1)+
If(C>=Ref(C,-(pds+1)),1,-1)+
If(C>=Ref(C,-(pds+2)),1,-1)+
If(C>=Ref(C,-(pds+3)),1,-1)+
If(C>=Ref(C,-(pds+4)),1,-1)+
If(C>=Ref(C,-(pds+5)),1,-1)+
If(C>=Ref(C,-(pds+6)),1,-1)+
If(C>=Ref(C,-(pds+7)),1,-1)+
If(C>=Ref(C,-(pds+8)),1,-1)+
If(C>=Ref(C,-(pds+9)),1,-1);
0;TrendScore
---8<------------------
You may also want to try something simpler, but perhaps just as
effective:
---8<------------------
pds:=Input("SMA periods",1,260,10);
Mov(If(C>=Ref(C,-pds),1,-1),pds,S)*10
---8<------------------
jose '-)
http://www.metastocktools.com
pds1:=Input("Starting
Day",1,260,10);
pds2:=Input("Days Range",1,260,10);
Mov(If(C>=Ref(C,-pds1),1,-1),pds2,S)*10;
0
Yahoo! Groups Links
|