فیلتر کراس رو به بالا تنکان و کیجن (الگوریتم اصلاح شده): true==function() { var avr=0;var i=0;var j=0 var sum=0;var dlen=60 var dle=0;var yb=0 var xb=0;var yc=0 var pr=0 var dt=9 var dk=26 var tx var tn var kx var kn for(i=0;i<dlen;i++) { if([ih][i].QTotTran5J>0) { yb++ } } dle=yb yc=yb var opn=[];opn.length=dle+1 var clos=[];clos.length=dle+1 var min=[];min.length=dle+1 var max=[];max.length=dle+1 var vol=[];vol.length=dle+1 var pan=[];pan.length=dle+1 var tkn=[];tkn.lenght=dle+1 var kij=[];kij.lenght=dle+1 for(i=0;i<dlen;i++) { if([ih][i].QTotTran5J>0) { opn[yc]=[ih][i].PriceFirst clos[yc]=[ih][i].PDrCotVal min[yc]=[ih][i].PriceMin max[yc]=[ih][i].PriceMax vol[yc]=[ih][i].QTotTran5J pan[yc]=[ih][i].PClosing yc-- } } if((pl)!=[ih][0].PDrCotVal&&(tvol)!=[ih][0].QTotTran5J&&(tvol)>0) { dle++ opn[dle]=(pf) clos[dle]=(pl) min[dle]=(pmin) max[dle]=(pmax) vol[dle]=(tvol) pan[dle]=(pc) } nw=((clos[dle]/pan[dle-1])-1)*100 nw=Math.round(nw*100)/100 /// PERCENT function RTE(pr) //// MOVING { sum=0 for(xb=dle-pr+1;xb<=dle;xb++) { sum+=vol[xb] } sum=sum/pr sum=vol[dle]/sum sum=Math.round(sum*100)/100 return sum } for(i=dt;i<=dle;i++){ tx=0 tn=1000000 for(j=(i-dt+1);j<=i;j++){ if(max[j]>tx){tx=max[j]}else{} if(min[j]<tn){tn=min[j]}else{} } tkn[i]=(tx+tn)/2 } for(i=dk;i<=dle;i++){ kx=0 kn=10000000 for(j=(i-dk+1);j<=i;j++){ if(max[j]>kx){kx=max[j]}else{} if(min[j]<kn){kn=min[j]}else{} } kij[i]=(kx+kn)/2 } if(tkn[dle]>=kij[dle]&&tkn[dle-1]<kij[dle-1]){ (cfield0)=dle (cfield1)=tkn[dle] (cfield2)=kij[dle] return true }else{ return false } }();