input
  inp0:"number of time periods in average", 40, 10, 200;
end_input

var
  x:=inp0;
  x2:=x * 2;
  pd:=C - Mov(C, x, E);
  hpd:=Highest(pd, x2);
  lpd:=Lowest(pd, x2);
  nf:=0;
end_var

if hpd <> lpd then
  nf:=200/(hpd - lpd);


return ((pd - lpd) * nf) - 100;