MWDXaverage

INPUTS : PRICE(NUMERICSERIES),FAC(NUMERICSERIES);

VARS   : FACTOR(0);



VALUE2=2/FAC-1;

IF VALUE2 + 1 <> 0 THEN BEGIN

  IF CURRENTBAR <= 1 THEN BEGIN

    FACTOR = 2 / (VALUE2 + 1);

    VALUE1 = PRICE;

  END

  ELSE  

   VALUE1 = FACTOR * PRICE + (1 - FACTOR) * VALUE1[1];

    MWDXAVERAGE=VALUE1;

END;