Assistance in managing the price range (indicator) fluctuates around the value of the center

Question

I am not an expert programmer, but I am trying to change the way some technical indicators are displayed in the TradeStation financial charting package (not that the particular chart provider matters).

Here's the problem: most indicators are built around the zero point, sometimes they fluctuate close to this point, and sometimes far away. I would like to change the way the indicators are built so that they oscillate around zero much more. But here is the hard part, I do not want to distort their shape too much; some changes are beautiful and inevitable, but I would still like the indicators to be recognizable for what they were originally.

In the past I tried many ways, one of the methods used a logarithmic type scale, but it was not successful, because it made any fluctuations that were very large, almost insignificant, which is not the goal. The goal is to try to keep any fluctuation of the indicator almost the same, but to change its placement so that it approaches zero (in the center). Or in another way; the goal is to make the indicators perform similar fluctuations, but the center of these oscillations should be closer to zero (center of the indicator scale).

Does anyone know or can think of how this can be done? Are there any algorithms that could help any price range to oscillate more around a central point without unduly distorting the original?

Any help on this would be greatly appreciated, thanks.

== UPDATE == - , , . . , , Zero ... , ; . Detrend , , .

2

y 50% 80%. , , , , ? ? , . , , /, .

, , , .

, , .

3

, , . . . , , , , . , , ... , ?

- , ? !!!

Answer 1

- , , , .

, :

. , 1,5% . :

!

2

, hi-pass, , , .

Mathematica ( ):

centerOsc[x_] := 
  Module[{list, n, fp, coef, s}, 
   list = (Transpose@FinancialData[#, "Jan. 1, 2005"])[[2]] &@x;
   n = Length@list;
   fp = Transpose[{N[Range[n]]/n, list}];
   coef = FourierDST[list, 1]/Sqrt[n/2];
   coef = Table[N[coef[[i]] (1 - E^(-i/6))], {i, 1, Length@coef}];
   s = IntegerPart[Length@coef/100]; s = 1;
   {fp, {#, 
       Sum[coef[[r]]*Sin[Pi r #], {r, s, n - 1}]} & /@ (N[Range[n]]/
       n)}];
l = {"GE", "GOOG", "IBM", "MSFT"} ;(*Real prices from*)
GraphicsGrid@
 Partition[ListLinePlot[centerOsc[#],
     Axes -> False, Frame -> True, PlotLabel -> #,
     PlotRange -> {{0.1, .9}, Full}, 
     Epilog -> Line[{{0, 0}, {1, 0}}]] & /@ l, 2]

2

, , . , , y 50% 80% ( , ):

:

Answer 2

, , 0 1. , , 0.

http://en.wikipedia.org/wiki/Standard_score

-Ralph Winters

Answer 3

/ : , @belisarius , - FFT . - . BTW, 1D convolution . , ​​ [-1; 3; -1]. , . FFT .

HTH