[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[amibroker] Re: One-step top10 exploration



PureBytes Links

Trading Reference Links

Andrew,
I created a new array g0, inside the loop.
The first highest value is placed as the last element of g0, the 2nd 
as the last-1 and so on.
Then, we may have the result of g0 *outside* the loop, ie available 
for any further research.
For graphic reasons, go was plotted negative.
The result gathers the top5 at the end of this new array g0, in order.
I think it is done !!
// Select the top5 at the end of a new array g0
R= StochD();Plot(R,"",colorRed,1);
H0=StochD();G0=0;
L1=LastValue(Cum(1));
N=50;
TOP=5;Counter=0;Title=Name()+",\n";
for(K=1;K<=TOP;K++)
{
H1=LastValue(HHV(H0,n));
BAR1=LastValue((ValueWhen(H0==H1,Cum(1)-1)));
H0[BAR1]=-10;
Counter=Counter+1;
G0[L1-CountER]=-H1;
shape=IIf(Counter==1,shapeDigit1,
IIf(Counter==2 ,shapeDigit2,
IIf(Counter==3 ,shapeDigit3,
IIf(Counter==4 ,shapeDigit4,shapeDigit5))));
PlotShapes((Cum(1)==bar1+1)*shape,colorWhite,0,Graph0,5);
Title=Title+WriteVal(Counter,1.0)+")"+WriteVal(H1)+" ["+WriteVal(L1-
bar1-1,1.0)+"]"+"\n";
}
Plot((Cum(1)>L1-N)*R,"",(H0==-10)*6+1,2);
Plot(G0,"",5,2);
GraphXSpace=3;
--- In amibroker@xxxxxxxxxxxxxxx, "DIMITRIS TSOKAKIS" <TSOKAKIS@xxxx> 
wrote:
> Something similar to
> http://groups.yahoo.com/group/amibroker/message/47388
> for the AA window ?
> Dimitris Tsokakis
> 
> --- In amibroker@xxxxxxxxxxxxxxx, "DIMITRIS TSOKAKIS" 
<TSOKAKIS@xxxx> 
> wrote:
> > Andrew,
> > Just wondering if there is a shorter way to create an ascending 
> order 
> > for the topX selected values...
> > An indicator builder attempt will arrive ...soon on this list
> > Dimitris Tsokakis
> > --- In amibroker@xxxxxxxxxxxxxxx, "Andrew" <ae_perrin@xxxx> wrote:
> > > A different approach to obtaining in this case the top 20 of 
> > > whatever you want to rank.  Arrays are ROR1 - value of top 
> ranking, 
> > > Ind1 - Ordinal Number of top ranked share.  ROR2 - 2nd top 
> ranking 
> > > etc. In AA window set apply to - Current Stock.  Range From - 
To- 
> > > whatever is your desired period.  AFL is a bit "longwinded" but 
> can 
> > > be easily expanded to rank top 30 etc.
> > > 
> > > Andrew
> > > 
> > >  In AA window paste the
> > > 
> > > // 
> ****************************************************************
> > > // APPLY TO - CURRENT STOCK - Select any  
> > > // RANGE - FROM -    TO - ,
> > > // Explore
> > > // 
> ****************************************************************
> > > 
> > > 	Swatchlist = 3; //set watchlist #
> > >    	
> > > 	sBegBar = LastValue( ValueWhen( Status("firstbarinrange"), 
> > > BarIndex() ) );
> > > 	sEndBar = LastValue( ValueWhen( Status("lastbarinrange"), 
> > > BarIndex() ) );	
> > > 
> > > 
> > > 	ROR1  = 0;		Ind1  = 0;  // Highest ROR
> > > 	ROR2  = 0;		Ind2  = 0;  // 2nd highest ROR etc.
> > > 	ROR3  = 0;		Ind3  = 0;
> > > 	ROR4  = 0;		Ind4  = 0;  
> > > 	ROR5  = 0;		Ind5  = 0;  
> > > 	ROR6  = 0;		Ind6  = 0;  
> > > 	ROR7  = 0;		Ind7  = 0;  
> > > 	ROR8  = 0;		Ind8  = 0;  
> > > 	ROR9  = 0;		Ind9  = 0;  
> > > 	ROR10 = 0;		Ind10 = 0;  
> > > 	ROR11 = 0;		Ind11 = 0;  
> > > 	ROR12 = 0;		Ind12 = 0;  
> > > 	ROR13 = 0;		Ind13 = 0;  
> > > 	ROR14 = 0;		Ind14 = 0;  
> > > 	ROR15 = 0;		Ind15 = 0;  
> > > 	ROR16 = 0;		Ind16 = 0;  
> > > 	ROR17 = 0;		Ind17 = 0;  
> > > 	ROR18 = 0;		Ind18 = 0;  
> > > 	ROR19 = 0;		Ind19 = 0;  
> > > 	ROR20 = 0;		Ind20 = 0;  
> > > 
> > > 	//today = DateNum();
> > > 	List = GetCategorySymbols( categoryWatchlist, Swatchlist);
> > > 	for (j=0; (sTicker = StrExtract (List , j)) !=""; j++ )
> > >    	{
> > > // -------------------------------------------------------------
--
> > > // Insert ranking formula here - return result as "ROR"
> > > // -------------------------------------------------------------
--
> > > 
> > > 	 sClose = Foreign(STicker, "C");
> > > 	 ROR =RSIa( sClose , 14 );
> > > 
> > > // -------------------------------------------------------------
--
> --
> > > // end of ranking formula
> > > // -------------------------------------------------------------
--
> --
> > > 
> > > 	 RORempty = IsEmpty(ROR);
> > > 	 Industry = j; //xxStockPropertyGet(STicker, "IndustryID");
> > >     i = sBegBar;
> > >     while(i <= sEndBar)
> > >      {
> > >       if (RORempty[i] == 0 && ROR[i] > ROR1[i] )
> > >       {	ROR20[i] = ROR19[i]; ROR19[i] = ROR18[i]; ROR18[i] = 
> > ROR17
> > > [i]; ROR17[i] = ROR16[i];
> > > 			ROR16[i] = ROR15[i]; ROR15[i] = ROR14[i]; 
> > > ROR14[i] = ROR13[i]; ROR13[i] = ROR12[i]; 
> > > 			ROR12[i] = ROR11[i]; ROR11[i] = ROR10[i]; 
> > > ROR10[i] = ROR9[i] ; ROR9[i]  = ROR8[i] ;
> > > 			ROR8[i]  = ROR7[i] ; ROR7[i]  = ROR6[i] ; 
> > > ROR6[i]  = ROR5[i] ; ROR5[i]  = ROR4[i] ;
> > > 			ROR4[i]  = ROR3[i] ; ROR3[i]  = ROR2[i] ; 
> > > ROR2[i]  = ROR1[i] ; ROR1[i]  = ROR[i]  ;
> > > 			Ind20[i] = Ind19[i]; Ind19[i] = Ind18[i]; 
> > > Ind18[i] = Ind17[i]; Ind17[i] = Ind16[i];
> > > 			Ind16[i] = Ind15[i]; Ind15[i] = Ind14[i]; 
> > > Ind14[i] = Ind13[i]; Ind13[i] = Ind12[i];
> > > 			Ind12[i] = Ind11[i]; Ind11[i] = Ind10[i]; 
> > > Ind10[i] = Ind9[i] ; Ind9[i]  = Ind8[i] ;
> > > 			Ind8[i]  = Ind7[i] ; Ind7[i]  = Ind6[i] ; 
> > > Ind6[i]  = Ind5[i] ; Ind5[i]  = Ind4[i] ;
> > > 			Ind4[i]  = Ind3[i] ; Ind3[i]  = Ind2[i] ; 
> > > Ind2[i]  = Ind1[i] ; Ind1[i]  = Industry;
> > > 	   } else
> > > 	   if (RORempty[i] == 0 && ROR[i] > ROR2[i] )
> > >       {	ROR20[i] = ROR19[i]; ROR19[i] = ROR18[i]; ROR18[i] = 
> > ROR17
> > > [i]; ROR17[i] = ROR16[i];
> > > 			ROR16[i] = ROR15[i]; ROR15[i] = ROR14[i]; 
> > > ROR14[i] = ROR13[i]; ROR13[i] = ROR12[i]; 
> > > 			ROR12[i] = ROR11[i]; ROR11[i] = ROR10[i]; 
> > > ROR10[i] = ROR9[i] ; ROR9[i]  = ROR8[i] ;
> > > 			ROR8[i]  = ROR7[i] ; ROR7[i]  = ROR6[i] ; 
> > > ROR6[i]  = ROR5[i] ; ROR5[i]  = ROR4[i] ;
> > > 			ROR4[i]  = ROR3[i] ; ROR3[i]  = ROR2[i] ; 
> > > ROR2[i]  = ROR[i]  ;
> > > 			Ind20[i] = Ind19[i]; Ind19[i] = Ind18[i]; 
> > > Ind18[i] = Ind17[i]; Ind17[i] = Ind16[i];
> > > 			Ind16[i] = Ind15[i]; Ind15[i] = Ind14[i]; 
> > > Ind14[i] = Ind13[i]; Ind13[i] = Ind12[i];
> > > 			Ind12[i] = Ind11[i]; Ind11[i] = Ind10[i]; 
> > > Ind10[i] = Ind9[i] ; Ind9[i]  = Ind8[i] ;
> > > 			Ind8[i]  = Ind7[i] ; Ind7[i]  = Ind6[i] ; 
> > > Ind6[i]  = Ind5[i] ; Ind5[i]  = Ind4[i] ;
> > > 			Ind4[i]  = Ind3[i] ; Ind3[i]  = Ind2[i] ; 
> > > Ind2[i]  = Industry;
> > > 	   } else
> > >       if (RORempty[i] == 0 && ROR[i] > ROR3[i] )
> > >       {	ROR20[i] = ROR19[i]; ROR19[i] = ROR18[i]; ROR18[i] = 
> > ROR17
> > > [i]; ROR17[i] = ROR16[i];
> > > 			ROR16[i] = ROR15[i]; ROR15[i] = ROR14[i]; 
> > > ROR14[i] = ROR13[i]; ROR13[i] = ROR12[i]; 
> > > 			ROR12[i] = ROR11[i]; ROR11[i] = ROR10[i]; 
> > > ROR10[i] = ROR9[i] ; ROR9[i]  = ROR8[i] ;
> > > 			ROR8[i]  = ROR7[i] ; ROR7[i]  = ROR6[i] ; 
> > > ROR6[i]  = ROR5[i] ; ROR5[i]  = ROR4[i] ;
> > > 			ROR4[i]  = ROR3[i] ; ROR3[i]  = ROR[i]  ;
> > > 			Ind20[i] = Ind19[i]; Ind19[i] = Ind18[i]; 
> > > Ind18[i] = Ind17[i]; Ind17[i] = Ind16[i];
> > > 			Ind16[i] = Ind15[i]; Ind15[i] = Ind14[i]; 
> > > Ind14[i] = Ind13[i]; Ind13[i] = Ind12[i];
> > > 			Ind12[i] = Ind11[i]; Ind11[i] = Ind10[i]; 
> > > Ind10[i] = Ind9[i] ; Ind9[i]  = Ind8[i] ;
> > > 			Ind8[i]  = Ind7[i] ; Ind7[i]  = Ind6[i] ; 
> > > Ind6[i]  = Ind5[i] ; Ind5[i]  = Ind4[i] ;
> > > 			Ind4[i]  = Ind3[i] ; Ind3[i]  = Industry;
> > > 	   } else
> > >       if (RORempty[i] == 0 && ROR[i] > ROR4[i] )
> > >       {	ROR20[i] = ROR19[i]; ROR19[i] = ROR18[i]; ROR18[i] = 
> > ROR17
> > > [i]; ROR17[i] = ROR16[i];
> > > 			ROR16[i] = ROR15[i]; ROR15[i] = ROR14[i]; 
> > > ROR14[i] = ROR13[i]; ROR13[i] = ROR12[i]; 
> > > 			ROR12[i] = ROR11[i]; ROR11[i] = ROR10[i]; 
> > > ROR10[i] = ROR9[i] ; ROR9[i]  = ROR8[i] ;
> > > 			ROR8[i]  = ROR7[i] ; ROR7[i]  = ROR6[i] ; 
> > > ROR6[i]  = ROR5[i] ; ROR5[i]  = ROR4[i] ;
> > > 			ROR4[i]  = ROR[i]  ;
> > > 			Ind20[i] = Ind19[i]; Ind19[i] = Ind18[i]; 
> > > Ind18[i] = Ind17[i]; Ind17[i] = Ind16[i];
> > > 			Ind16[i] = Ind15[i]; Ind15[i] = Ind14[i]; 
> > > Ind14[i] = Ind13[i]; Ind13[i] = Ind12[i];
> > > 			Ind12[i] = Ind11[i]; Ind11[i] = Ind10[i]; 
> > > Ind10[i] = Ind9[i] ; Ind9[i]  = Ind8[i] ;
> > > 			Ind8[i]  = Ind7[i] ; Ind7[i]  = Ind6[i] ; 
> > > Ind6[i]  = Ind5[i] ; Ind5[i]  = Ind4[i] ;
> > > 			Ind4[i]  = Industry;
> > > 	   } else
> > >       if (RORempty[i] == 0 && ROR[i] > ROR5[i] )
> > >       {	ROR20[i] = ROR19[i]; ROR19[i] = ROR18[i]; ROR18[i] = 
> > ROR17
> > > [i]; ROR17[i] = ROR16[i];
> > > 			ROR16[i] = ROR15[i]; ROR15[i] = ROR14[i]; 
> > > ROR14[i] = ROR13[i]; ROR13[i] = ROR12[i]; 
> > > 			ROR12[i] = ROR11[i]; ROR11[i] = ROR10[i]; 
> > > ROR10[i] = ROR9[i] ; ROR9[i]  = ROR8[i] ;
> > > 			ROR8[i]  = ROR7[i] ; ROR7[i]  = ROR6[i] ; 
> > > ROR6[i]  = ROR5[i] ; ROR5[i]  = ROR[i]  ;
> > > 			Ind20[i] = Ind19[i]; Ind19[i] = Ind18[i]; 
> > > Ind18[i] = Ind17[i]; Ind17[i] = Ind16[i];
> > > 			Ind16[i] = Ind15[i]; Ind15[i] = Ind14[i]; 
> > > Ind14[i] = Ind13[i]; Ind13[i] = Ind12[i];
> > > 			Ind12[i] = Ind11[i]; Ind11[i] = Ind10[i]; 
> > > Ind10[i] = Ind9[i] ; Ind9[i]  = Ind8[i] ;
> > > 			Ind8[i]  = Ind7[i] ; Ind7[i]  = Ind6[i] ; 
> > > Ind6[i]  = Ind5[i] ; Ind5[i]  = Industry;
> > > 	   } else
> > >       if (RORempty[i] == 0 && ROR[i] > ROR6[i] )
> > >       {	ROR20[i] = ROR19[i]; ROR19[i] = ROR18[i]; ROR18[i] = 
> > ROR17
> > > [i]; ROR17[i] = ROR16[i];
> > > 			ROR16[i] = ROR15[i]; ROR15[i] = ROR14[i]; 
> > > ROR14[i] = ROR13[i]; ROR13[i] = ROR12[i]; 
> > > 			ROR12[i] = ROR11[i]; ROR11[i] = ROR10[i]; 
> > > ROR10[i] = ROR9[i] ; ROR9[i]  = ROR8[i] ;
> > > 			ROR8[i]  = ROR7[i] ; ROR7[i]  = ROR6[i] ; 
> > > ROR6[i]  = ROR[i]  ;
> > > 			Ind20[i] = Ind19[i]; Ind19[i] = Ind18[i]; 
> > > Ind18[i] = Ind17[i]; Ind17[i] = Ind16[i];
> > > 			Ind16[i] = Ind15[i]; Ind15[i] = Ind14[i]; 
> > > Ind14[i] = Ind13[i]; Ind13[i] = Ind12[i];
> > > 			Ind12[i] = Ind11[i]; Ind11[i] = Ind10[i]; 
> > > Ind10[i] = Ind9[i] ; Ind9[i]  = Ind8[i] ;
> > > 			Ind8[i]  = Ind7[i] ; Ind7[i]  = Ind6[i] ; 
> > > Ind6[i]  = Industry;
> > > 	   } else
> > >       if (RORempty[i] == 0 && ROR[i] > ROR7[i] )
> > >       {	ROR20[i] = ROR19[i]; ROR19[i] = ROR18[i]; ROR18[i] = 
> > ROR17
> > > [i]; ROR17[i] = ROR16[i];
> > > 			ROR16[i] = ROR15[i]; ROR15[i] = ROR14[i]; 
> > > ROR14[i] = ROR13[i]; ROR13[i] = ROR12[i]; 
> > > 			ROR12[i] = ROR11[i]; ROR11[i] = ROR10[i]; 
> > > ROR10[i] = ROR9[i] ; ROR9[i]  = ROR8[i] ;
> > > 			ROR8[i]  = ROR7[i] ; ROR7[i]  = ROR[i]  ;
> > > 			Ind20[i] = Ind19[i]; Ind19[i] = Ind18[i]; 
> > > Ind18[i] = Ind17[i]; Ind17[i] = Ind16[i];
> > > 			Ind16[i] = Ind15[i]; Ind15[i] = Ind14[i]; 
> > > Ind14[i] = Ind13[i]; Ind13[i] = Ind12[i];
> > > 			Ind12[i] = Ind11[i]; Ind11[i] = Ind10[i]; 
> > > Ind10[i] = Ind9[i] ; Ind9[i]  = Ind8[i] ;
> > > 			Ind8[i]  = Ind7[i] ; Ind7[i]  = Industry;
> > > 	   } else
> > >       if (RORempty[i] == 0 && ROR[i] > ROR8[i] )
> > >       {	ROR20[i] = ROR19[i]; ROR19[i] = ROR18[i]; ROR18[i] = 
> > ROR17
> > > [i]; ROR17[i] = ROR16[i];
> > > 			ROR16[i] = ROR15[i]; ROR15[i] = ROR14[i]; 
> > > ROR14[i] = ROR13[i]; ROR13[i] = ROR12[i]; 
> > > 			ROR12[i] = ROR11[i]; ROR11[i] = ROR10[i]; 
> > > ROR10[i] = ROR9[i] ; ROR9[i]  = ROR8[i] ;
> > > 			ROR8[i]  = ROR[i]  ;
> > > 			Ind20[i] = Ind19[i]; Ind19[i] = Ind18[i]; 
> > > Ind18[i] = Ind17[i]; Ind17[i] = Ind16[i];
> > > 			Ind16[i] = Ind15[i]; Ind15[i] = Ind14[i]; 
> > > Ind14[i] = Ind13[i]; Ind13[i] = Ind12[i];
> > > 			Ind12[i] = Ind11[i]; Ind11[i] = Ind10[i]; 
> > > Ind10[i] = Ind9[i] ; Ind9[i]  = Ind8[i] ;
> > > 			Ind8[i]  = Industry;
> > > 	   } else
> > >       if (RORempty[i] == 0 && ROR[i] > ROR9[i] )
> > >       {	ROR20[i] = ROR19[i]; ROR19[i] = ROR18[i]; ROR18[i] = 
> > ROR17
> > > [i]; ROR17[i] = ROR16[i];
> > > 			ROR16[i] = ROR15[i]; ROR15[i] = ROR14[i]; 
> > > ROR14[i] = ROR13[i]; ROR13[i] = ROR12[i]; 
> > > 			ROR12[i] = ROR11[i]; ROR11[i] = ROR10[i]; 
> > > ROR10[i] = ROR9[i] ; ROR9[i]  = ROR[i]  ;
> > > 			Ind20[i] = Ind19[i]; Ind19[i] = Ind18[i]; 
> > > Ind18[i] = Ind17[i]; Ind17[i] = Ind16[i];
> > > 			Ind16[i] = Ind15[i]; Ind15[i] = Ind14[i]; 
> > > Ind14[i] = Ind13[i]; Ind13[i] = Ind12[i];
> > > 			Ind12[i] = Ind11[i]; Ind11[i] = Ind10[i]; 
> > > Ind10[i] = Ind9[i] ; Ind9[i]  = Industry;
> > > 	   } else
> > >       if (RORempty[i] == 0 && ROR[i] > ROR10[i] )
> > >       {	ROR20[i] = ROR19[i]; ROR19[i] = ROR18[i]; ROR18[i] = 
> > ROR17
> > > [i]; ROR17[i] = ROR16[i];
> > > 			ROR16[i] = ROR15[i]; ROR15[i] = ROR14[i]; 
> > > ROR14[i] = ROR13[i]; ROR13[i] = ROR12[i]; 
> > > 			ROR12[i] = ROR11[i]; ROR11[i] = ROR10[i]; 
> > > ROR10[i] = ROR[i]  ;
> > > 			Ind20[i] = Ind19[i]; Ind19[i] = Ind18[i]; 
> > > Ind18[i] = Ind17[i]; Ind17[i] = Ind16[i];
> > > 			Ind16[i] = Ind15[i]; Ind15[i] = Ind14[i]; 
> > > Ind14[i] = Ind13[i]; Ind13[i] = Ind12[i];
> > > 			Ind12[i] = Ind11[i]; Ind11[i] = Ind10[i]; 
> > > Ind10[i] = Industry;
> > > 	   } else
> > >       if (RORempty[i] == 0 && ROR[i] > ROR11[i] )
> > >       {	ROR20[i] = ROR19[i]; ROR19[i] = ROR18[i]; ROR18[i] = 
> > ROR17
> > > [i]; ROR17[i] = ROR16[i];
> > > 			ROR16[i] = ROR15[i]; ROR15[i] = ROR14[i]; 
> > > ROR14[i] = ROR13[i]; ROR13[i] = ROR12[i]; 
> > > 			ROR12[i] = ROR11[i]; ROR11[i] = ROR[i]  ;
> > > 			Ind20[i] = Ind19[i]; Ind19[i] = Ind18[i]; 
> > > Ind18[i] = Ind17[i]; Ind17[i] = Ind16[i];
> > > 			Ind16[i] = Ind15[i]; Ind15[i] = Ind14[i]; 
> > > Ind14[i] = Ind13[i]; Ind13[i] = Ind12[i];
> > > 			Ind12[i] = Ind11[i]; Ind11[i] = Industry;
> > > 	   } else
> > >       if (RORempty[i] == 0 && ROR[i] > ROR12[i] )
> > >       {	ROR20[i] = ROR19[i]; ROR19[i] = ROR18[i]; ROR18[i] = 
> > ROR17
> > > [i]; ROR17[i] = ROR16[i];
> > > 			ROR16[i] = ROR15[i]; ROR15[i] = ROR14[i]; 
> > > ROR14[i] = ROR13[i]; ROR13[i] = ROR12[i]; 
> > > 			ROR12[i] = ROR[i]  ;
> > > 			Ind20[i] = Ind19[i]; Ind19[i] = Ind18[i]; 
> > > Ind18[i] = Ind17[i]; Ind17[i] = Ind16[i];
> > > 			Ind16[i] = Ind15[i]; Ind15[i] = Ind14[i]; 
> > > Ind14[i] = Ind13[i]; Ind13[i] = Ind12[i];
> > > 			Ind12[i] = Industry;
> > > 	   } else
> > >       if (RORempty[i] == 0 && ROR[i] > ROR13[i] )
> > >       {	ROR20[i] = ROR19[i]; ROR19[i] = ROR18[i]; ROR18[i] = 
> > ROR17
> > > [i]; ROR17[i] = ROR16[i];
> > > 			ROR16[i] = ROR15[i]; ROR15[i] = ROR14[i]; 
> > > ROR14[i] = ROR13[i]; ROR13[i] = ROR[i]  ;
> > > 			Ind20[i] = Ind19[i]; Ind19[i] = Ind18[i]; 
> > > Ind18[i] = Ind17[i]; Ind17[i] = Ind16[i];
> > > 			Ind16[i] = Ind15[i]; Ind15[i] = Ind14[i]; 
> > > Ind14[i] = Ind13[i]; Ind13[i] = Industry;
> > > 	   } else
> > >       if (RORempty[i] == 0 && ROR[i] > ROR14[i] )
> > >       {	ROR20[i] = ROR19[i]; ROR19[i] = ROR18[i]; ROR18[i] = 
> > ROR17
> > > [i]; ROR17[i] = ROR16[i];
> > > 			ROR16[i] = ROR15[i]; ROR15[i] = ROR14[i]; 
> > > ROR14[i] = ROR[i]  ;
> > > 			Ind20[i] = Ind19[i]; Ind19[i] = Ind18[i]; 
> > > Ind18[i] = Ind17[i]; Ind17[i] = Ind16[i];
> > > 			Ind16[i] = Ind15[i]; Ind15[i] = Ind14[i]; 
> > > Ind14[i] = Industry;
> > > 	   } else
> > >       if (RORempty[i] == 0 && ROR[i] > ROR15[i] )
> > >       {	ROR20[i] = ROR19[i]; ROR19[i] = ROR18[i]; ROR18[i] = 
> > ROR17
> > > [i]; ROR17[i] = ROR16[i];
> > > 			ROR16[i] = ROR15[i]; ROR15[i] = ROR[i]  ;
> > > 			Ind20[i] = Ind19[i]; Ind19[i] = Ind18[i]; 
> > > Ind18[i] = Ind17[i]; Ind17[i] = Ind16[i];
> > > 			Ind16[i] = Ind15[i]; Ind15[i] = Industry;
> > > 	   } else
> > >       if (RORempty[i] == 0 && ROR[i] > ROR16[i] )
> > >       {	ROR20[i] = ROR19[i]; ROR19[i] = ROR18[i]; ROR18[i] = 
> > ROR17
> > > [i]; ROR17[i] = ROR16[i];
> > > 			ROR16[i] = ROR[i]  ;
> > > 			Ind20[i] = Ind19[i]; Ind19[i] = Ind18[i]; 
> > > Ind18[i] = Ind17[i]; Ind17[i] = Ind16[i];
> > > 			Ind16[i] = Industry;
> > >  	   } else
> > >       if (RORempty[i] == 0 && ROR[i] > ROR17[i] )
> > >       {	ROR20[i] = ROR19[i]; ROR19[i] = ROR18[i]; ROR18[i] = 
> > ROR17
> > > [i]; ROR17[i] = ROR[i]  ;
> > > 			Ind20[i] = Ind19[i]; Ind19[i] = Ind18[i]; 
> > > Ind18[i] = Ind17[i]; Ind17[i] = Industry;
> > > 	   } else
> > >       if (RORempty[i] == 0 && ROR[i] > ROR18[i] )
> > >       {	ROR20[i] = ROR19[i]; ROR19[i] = ROR18[i]; ROR18[i] = 
> > ROR
> > > [i]  ;
> > > 			Ind20[i] = Ind19[i]; Ind19[i] = Ind18[i]; 
> > > Ind18[i] = Industry;
> > > 	   } else
> > >       if (RORempty[i] == 0 && ROR[i] > ROR19[i] )
> > >       {	ROR20[i] = ROR19[i]; ROR19[i] = ROR[i]  ;
> > > 			Ind20[i] = Ind19[i]; Ind19[i] = Industry;
> > > 	   } else
> > >       if (RORempty[i] == 0 && ROR[i] > ROR20[i] )
> > >       {	ROR20[i] = ROR[i]  ;
> > > 			Ind20[i] = Industry;
> > > 	   }
> > >        i = i + 1;
> > >      }
> > > 
> > >   }
> > > 
> > > // ----------- COMPLETE ----------- 
> > > Filter = 1;
> > > 
> > > AddColumn( Ind1, "ORD 1", 1.0);
> > > AddColumn( ROR1, "Rank1", 1.2);
> > > AddColumn( Ind2, "ORD 2", 1.0);
> > > AddColumn( ROR2, "Rank2", 1.2);
> > > AddColumn( Ind3, "ORD 3", 1.0);
> > > AddColumn( ROR3, "Rank3", 1.2);
> > > AddColumn( Ind4, "ORD 4", 1.0);
> > > AddColumn( ROR4, "Rank4", 1.2);
> > > AddColumn( Ind5, "ORD 5", 1.0);
> > > AddColumn( ROR5, "Rank5", 1.2);
> > > AddColumn( Ind6, "ORD 6", 1.0);
> > > AddColumn( ROR6, "Rank6", 1.2);
> > > AddColumn( Ind7, "ORD 7", 1.0);
> > > AddColumn( ROR7, "Rank7", 1.2);
> > > AddColumn( Ind8, "ORD 8", 1.0);
> > > AddColumn( ROR8, "Rank8", 1.2);
> > > AddColumn( Ind9, "ORD 9", 1.0);
> > > AddColumn( ROR9, "Rank9", 1.2);
> > > AddColumn( Ind10, "ORD 10", 1.0);
> > > AddColumn( ROR10, "Rank10", 1.2);
> > > AddColumn( Ind11, "ORD 11", 1.0);
> > > AddColumn( ROR11, "Rank11", 1.2);
> > > AddColumn( Ind12, "ORD 12", 1.0);
> > > AddColumn( ROR12, "Rank12", 1.2);
> > > AddColumn( Ind13, "ORD 13", 1.0);
> > > AddColumn( ROR13, "Rank13", 1.2);
> > > AddColumn( Ind14, "ORD 14", 1.0);
> > > AddColumn( ROR14, "Rank14", 1.2);
> > > AddColumn( Ind15, "ORD 15", 1.0);
> > > AddColumn( ROR15, "Rank15", 1.2);
> > > AddColumn( Ind16, "ORD 16", 1.0);
> > > AddColumn( ROR16, "Rank16", 1.2);
> > > AddColumn( Ind17, "ORD 17", 1.0);
> > > AddColumn( ROR17, "Rank17", 1.2);
> > > AddColumn( Ind18, "ORD 18", 1.0);
> > > AddColumn( ROR18, "Rank18", 1.2);
> > > AddColumn( Ind19, "ORD 19", 1.0);
> > > AddColumn( ROR19, "Rank19", 1.2);
> > > AddColumn( Ind20, "ORD 20", 1.0);
> > > AddColumn( ROR20, "Rank20", 1.2);


------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for Your HP, Epson, Canon or Lexmark
Printer at Myinks.com. Free s/h on orders $50 or more to the US & Canada. http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/l.m7sD/LIdGAA/qnsNAA/GHeqlB/TM
---------------------------------------------------------------------~->

Send BUG REPORTS to bugs@xxxxxxxxxxxxx
Send SUGGESTIONS to suggest@xxxxxxxxxxxxx
-----------------------------------------
Post AmiQuote-related messages ONLY to: amiquote@xxxxxxxxxxxxxxx 
(Web page: http://groups.yahoo.com/group/amiquote/messages/)
--------------------------------------------
Check group FAQ at: http://groups.yahoo.com/group/amibroker/files/groupfaq.html 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/