Here are 8 binary systems for Momentum.4 systems that are stand alone.4 systems w Trend
Normal
0
false
false
false
EN-US
X-NONE
X-NONE
MicrosoftInternetExplorer4
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:"";
mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-para-margin-top:0in;
mso-para-margin-right:0in;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0in;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:"Times New Roman";
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;}
Type:=Input("Type of Data",1,5 ,5);
INDLen:=Input("Length",1,100,13);
Type2:=If(Type=1,(H+L)/2,If(Type=2,(H+L+C)/3,If(Type=3,(O+H+L+C)/4,If(Type=4,(O+H+L+(2*C))/5,C))));
Long:=Mo(Type2,IndLen)>100 ;
Short:=Mo(Type2,IndLen)<100 ;
Binary:=Long-Short;
Binary;
Type:=Input("Type of Data",1,5 ,5);
INDLen:=Input("Length",1,100,13);
Type2:=If(Type=1,(H+L)/2,If(Type=2,(H+L+C)/3,If(Type=3,(O+H+L+C)/4,If(Type=4,(O+H+L+(2*C))/5,C))));
A:=If(Sum(Type2>Mov(Type2,65,S),3)>2,1,If(Sum(Type2<Mov(Type2,65,S),3)>2,-1,0));{Trend}
Long:=Mo(Type2,IndLen)>100 and A=1;
Short:=Mo(Type2,IndLen)<100 and A=-1;
Binary:=Long-Short;
Binary;
_____________________________________________________________________________________
Type:=Input("Type of Data",1,5 ,5);
INDLen:=Input("Length",1,100,13);
Type2:=If(Type=1,(H+L)/2,If(Type=2,(H+L+C)/3,If(Type=3,(O+H+L+C)/4,If(Type=4,(O+H+L+(2*C))/5,C))));
A1:=Mov(Mov(Mov(Mo(Type2,IndLen),2,S),2,S),2,S);
Long:=A1>Ref(A1,-1) ;
Short:=A1<Ref(A1,-1);
Binary:=Long-Short;
Binary;
Type:=Input("Type of Data",1,5 ,5);
INDLen:=Input("Length",1,100,13);
Type2:=If(Type=1,(H+L)/2,If(Type=2,(H+L+C)/3,If(Type=3,(O+H+L+C)/4,If(Type=4,(O+H+L+(2*C))/5,C))));
A:=If(Sum(Type2>Mov(Type2,65,S),3)>2,1,If(Sum(Type2<Mov(Type2,65,S),3)>2,-1,0));{Trend}
A1:=Mov(Mov(Mov(Mo(Type2,IndLen),2,S),2,S),2,S);
Long:=A1>Ref(A1,-1) and A=1;
Short:=A1<Ref(A1,-1)and A=-1;
Binary:=Long-Short;
Binary;
___________________________________________________________________________________
Type:=Input("Type of Data",1,5 ,5);
INDLen:=Input("Length",1,100,13);
Type2:=If(Type=1,(H+L)/2,If(Type=2,(H+L+C)/3,If(Type=3,(O+H+L+C)/4,If(Type=4,(O+H+L+(2*C))/5,C))));
Long:=Mo(Type2,IndLen)>Mov(Mo(Type2,IndLen),8,S);
Short:=Mo(Type2,IndLen)<Mov(Mo(Type2,IndLen),8,S) ;
Binary:=Long-Short;
Binary;
Type:=Input("Type of Data",1,5 ,5);
INDLen:=Input("Length",1,100,13);
Type2:=If(Type=1,(H+L)/2,If(Type=2,(H+L+C)/3,If(Type=3,(O+H+L+C)/4,If(Type=4,(O+H+L+(2*C))/5,C))));
A:=If(Sum(Type2>Mov(Type2,65,S),3)>2,1,If(Sum(Type2<Mov(Type2,65,S),3)>2,-1,0));{Trend}
Long:=Mo(Type2,IndLen)>Mov(Mo(Type2,IndLen),8,S) and A=1;
Short:=Mo(Type2,IndLen)<Mov(Mo(Type2,IndLen),8,S) and
A=-1;
Binary:=Long-Short;
Binary;
__________________________________________________________________________________
Type:=Input("Type of Data",1,5 ,5);
INDLen:=Input("Length",1,100,13);
Type2:=If(Type=1,(H+L)/2,If(Type=2,(H+L+C)/3,If(Type=3,(O+H+L+C)/4,If(Type=4,(O+H+L+(2*C))/5,C))));
A1:=Mo(Type2,IndLen);
Long:=A1>Ref(A1,-1);
Short:=A1<Ref(A1,-1);
Binary:=Long-Short;
Binary;
Type:=Input("Type of Data",1,5 ,5);
INDLen:=Input("Length",1,100,13);
Type2:=If(Type=1,(H+L)/2,If(Type=2,(H+L+C)/3,If(Type=3,(O+H+L+C)/4,If(Type=4,(O+H+L+(2*C))/5,C))));
A:=If(Sum(Type2>Mov(Type2,65,S),3)>2,1,If(Sum(Type2<Mov(Type2,65,S),3)>2,-1,0));{Trend}
A1:=Mo(Type2,IndLen);
Long:=A1>Ref(A1,-1) and A=1;
Short:=A1<Ref(A1,-1) and A=-1;
Binary:=Long-Short;
Binary;
You will notice that smoothing out the data reduces whip saws.
further reduction of whipsaws are done with a Trend filter