// Filter Name : SMART ANALAYZER FILTER FOR DAILY FLUCTUATIONS- HF-VIP-FLAC 1.1.4 - VIP
    // User: MOSTAFA EJARESTAGHI
    // UPDATE: 1399/12/21
    // Version : V 1.1.4
    // ------------ SUBJECT-------------
    // description : VIP FILTER FOR FLUCTUATIONS  OF www.hooshefaal.com
    // SUPPORT EMAIL : hooshefaal@gmail.com
    // --------------END---------------
    true==function() 
    {
                var Queue=1; // با صفر کردن این گزینه نمادهایی که صف هستند نیز نمایش داده می شوند
                var LASTTR=-2; // کمترین حد مجاز برای درصد آخرین معامله
                var CLOSETR=2; //مقدار اختلاف بین قیمت آخرین معامله با پایانی
                (cfield0) = 0;
                (cfield1) = "";
                (cfield2) = "";
                var flag = false;
                var star = "";
                var score = 0;
                var message = "";
                var shoppingLine=true;
                var Stoch=null;
                var diferent=false;
                // shopping line
                if((tmax)==(pf)&& (pl)==(tmax)){
                    shoppingLine=false;
                }
                // تیک صعودی یا الگوی ساعت
                if ((plp)-(pcp)>2 && (pd1)< (tmax)) { 
                    score += 40;
                    message += "ـ الگو تیک صعودی ـ";
                    star+="&#9733;"
                    }
                // ورود پول هوشمند
             if((tvol)>(([ih][0].QTotTran5J+[ih][1].QTotTran5J+[ih][2].QTotTran5J+[ih][3].QTotTran5J+
                [ih][4].QTotTran5J+[ih][5].QTotTran5J+[ih][6].QTotTran5J+[ih][7].QTotTran5J+[ih][8].QTotTran5J+
                [ih][9].QTotTran5J+[ih][10].QTotTran5J+[ih][11].QTotTran5J+[ih][12].QTotTran5J+[ih][13].QTotTran5J+
                [ih][14].QTotTran5J+[ih][15].QTotTran5J+[ih][16].QTotTran5J+[ih][17].QTotTran5J+[ih][18].QTotTran5J+
                [ih][19].QTotTran5J+[ih][20].QTotTran5J+[ih][21].QTotTran5J+[ih][22].QTotTran5J+[ih][23].QTotTran5J+
                [ih][24].QTotTran5J+[ih][25].QTotTran5J+[ih][26].QTotTran5J+[ih][27].QTotTran5J+[ih][28].QTotTran5J+
                [ih][29].QTotTran5J)/30)&&((ct).Buy_I_Volume/(ct).Buy_CountI)>=((ct).Sell_I_Volume/(ct).Sell_CountI)&&(pl)>=(pc)&&(plp)>0) { 
                score += 30;
                message += "_ورود پول هوشمند_";
                star+="&#9733;";
                     }
                //---------------Increase trading volume
                var tv6 = function () {
                    var vol1 = [ih][0].QTotTran5J;
                    var n;
                    for (n = 1; n < 5; n++)
                        vol1 = vol1 + [ih][n].QTotTran5J;
                    return vol1;
                }
                var tv14 = function () {
                    var vol2 = [ih][6].QTotTran5J;
                    var m;
                    for (m = 7; m < 14; m++)
                        vol2 = vol2 + [ih][m].QTotTran5J;
                    return vol2;
                }
                var minv14 = function () {
                    var min = [ih][0].QTotTran5J;
                    var a;
                    for (a = 1; a < 14; a++)
                        if (min > [ih][a].QTotTran5J)
                            min = [ih][a].QTotTran5J;
                    return min;
                }
                var maxp52 = function () {
                    var max1 = [ih][0].PriceMax;
                    var b;
                    for (b = 1; b < 52; b++)
                        if (max1 < [ih][b].PriceMax)
                            max1 = [ih][b].PriceMax;
                    return max1;
                };
                if ((tv6()) > (tv14()) && ((pc) < .9 * maxp52()) && (minv14() > 0)) {
                    score += 30;
                    message += "_افزایش حجم معاملات_";
                    star+="&#9733;"
                  
                }
                 //-----------------------Real money entry
                if ((ct).Buy_I_Volume / (ct).Buy_CountI > 3 * (ct).Sell_I_Volume / (ct).Sell_CountI) {
                    score += 10;
                    message += "_ورود پول حقیقی_";
                }
                if ((pd1) * (qd1) + (pd2) * (qd2) + (pd3) * (qd3) > 2 * ((po1) * (qo1) + (po2) * (qo2) + (po3) * (qo3))) {
                    score += 10;
                    message += "_بالا بودن ارزش ریالی خریداران_";
                }
                 //------------ Buyer four times more than seller
                 if (((qd1) + (qd2) + (qd3)) > (4 * ((qo1) + (qo2) + (qo3))) && (pl) < (pc)) {
                    score += 10;
                    message += "_خرید 4 برابر_";
                }
                
                    // Stoch Astic 14 SHOW VALUE IN (cfield1) AND (cfield2) -- BEGIN
                    var max = [ih][0].PriceMax;
                    var min = [ih][0].PriceMin;
                    
                   for (var ipos = 0; ipos < 14; ipos++)
                    {  
                        if([ih][ipos].PriceMax>0){
                            if (max < [ih][ipos].PriceMax) max = [ih][ipos].PriceMax;
                        }
                    }
                    for (var ipos = 0; ipos < 14; ipos++)
                    {  
                        if([ih][ipos].PriceMin>0){
                            if (min > [ih][ipos].PriceMin) min = [ih][ipos].PriceMin; 
                        }
                    }
                    K = ((((pc)-min) / (max - min)) * 100);
                    
                    D=(K +((([ih][0].PClosing-min)/(max - min))*100)+((([ih][1].PClosing-min)/(max-min))*100))/3;
                    
                    Stoch=K;
                    
                    // Math.round(D);
                    if(Stoch<=30){
                        score += 50;
                        message += "_سطح حمایتی_";
                    }

                    // Stoch Astic 14 SHOW VALUE IN (cfield1) AND (cfield2) -- END
                    // -----WWW.HOOSHEFAAL.IR----- 
                        if ((plp)<=LASTTR && (pcp)>((plp)+ CLOSETR))  { 
                        //-------- YOUR COMMAND BEGIN ---------- 
                        diferent=true;
                        //-------- YOUR COMMAND END ---------- 
                             }
                    //==================END IF ================

                if(diferent && score>50)
                {
                    if(shoppingLine){
                    (cfield0)=score;
                    (cfield1)="<span style='color:orange'>"+star+"</span>";
                    (cfield2)=message;
                    if(Queue){
                        if((tmax)!=(pl)){
                            return true;
                        }
                    }else{
                        return true;
                    }
                   
                    }
                }
    
    }() 
    //=========================END FUNCTION =========================