Params

Numeric  ns(24);

Vars

   Series<Numeric> hi;

Series<Numeric> li;

Numeric trns;

   Numeric mas;

Numeric qs;

Numeric qshl;

Numeric trhl;

Numeric non;

Numeric n1;

   Series<Numeric> n1h;

   Series<Numeric> n1l;

Events

   onBar(ArrayRef<Integer> indexs)

   {  

       hi = h[1];

    li = l[1];

    trns = Average(hi-li,ns);

    mas = Average( open, ns);

    Qs = AvgDeviation(open,ns)*1.5;

    QsHl = (MAs+Qs)-(MAs-Qs);

    trhl = trns*2/qshl;

       non = iif(trhl==0,1,trhl);

       n1 =  RoundUp(ns*non,0);

    n1h = Highest(Hi, n1);

    n1l = Lowest(Li, n1);

    PlotNumeric("n1h",n1h,0,White);

    PlotNumeric("n1l",n1l,0,Green);

   }