Params

Numeric  m(4);  

Vars

Numeric barm1;

   Numeric barm2;

   Numeric opd;

   Numeric nn;

   Numeric n3;

   Series<Numeric> ma3;

Events

   onBar(ArrayRef<Integer> indexs)

   {  

       barm1 = BarsSinceToday+1;

    barm2 = NthCon(barm1==1,3);

    opd = Highest(barm1,barm2);

    nn = opd*m;

       n3 = iif(opd>=70,m,nn);

       ma3 = Average( open, n3 );

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

    Commentary("n3=" + Text(n3));

    Commentary("opd=" + Text(opd));

   }