[LegacyColorValue = true]; 

{ TSMFractalEfficiency, also Kaufman's "Efficiency Ratio"
  Copyright 1990-1999, P.J.Kaufman.  All rights reserved. }
  
	input:	period(numericsimple);
	vars:	change(0), noise(0), diff(0), ratio(0), signal(0);

	ratio = 0;
	diff = AbsValue(close - close[1]);
	if currentbar > period then begin
	      change = close - close[period];
    		signal = AbsValue(change);
      	noise = summation(diff,period);
      	ratio = 0;
      	if noise <> 0 then ratio = signal/noise;
            end;
	TSMFractalEfficiency = ratio;