Stock Portfolio Organizer

The ultimate porfolio management solution.

Shares, Margin, CFD's, Futures and Forex
EOD and Realtime
Dividends and Trust Distributions
And Much More ....
For Portfolio Manager Click Here

WiseTrader Toolbox

#1 Selling Amibroker Plugin featuring:

Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
Find Out More Here

Psychological Index for Metastock
chsmcp
over 14 years ago
Metastock

Rating:
4 / 5 (Votes 3)
Tags:
oscillator, metastock

{Futures Magazine, Vol.29 No.6, June 2000, P.48}

Overbought/oversold indicator described in the June 2000 Futures Magazine called the Psychological Index.

Similar Indicators / Formulas

Guppy MMA Divergence Oscillator
Submitted by kaiji almost 15 years ago
Polarized Fractal Efficiency by Hans Hannula
Submitted by kaiji over 14 years ago
3-10 Oscillator
Submitted by mayurs over 12 years ago
Relative Vigor Index
Submitted by vargasc1 over 13 years ago
Bull and Bear Balance Indicator
Submitted by kaiji almost 15 years ago

Indicator / Formula

Copy & Paste Friendly
{Futures Magazine, Vol.29 No.6, June 2000, P.48}
LookBack:= Input("Number of lookback periods", 2, 100, 12);
UThreshold:= Input("Upper threshold (%)", 0, 100, 75);
LThreshold:= Input("Lower threshold (%)", 0, 100, 25);
UpDay:= If(CLOSE > Ref(CLOSE,-1), 1, 0);
PsychIndex:= Sum(UpDay,LookBack) / LookBack * 100;
PsychIndex;
UThreshold;
LThreshold

3 comments

1. chuquangkhue

Anyone please help me what is the formula for this index. I want to code it in Amibroker.

If you have already coded it in Amibroker, please help to share.

Br,

2. vVvendetta
//{Futures Magazine, Vol.29 No.6, June 2000, P.48}

function StochTransform(array, period) 
{
   return 100*(array-LLV(array,period))/(HHV(array,period)-LLV(array,period));
}

LookBack= Param("Number of lookback periods", 2, 1, 100);
UThreshold= Param("Upper threshold (%)", 0, 75, 100);
LThreshold= Param("Lower threshold (%)", 0, 25, 100);
UpDay= IIf((H==L),0, IIf(C > Ref(C,-1),1,0));
PsychIndex= Sum(UpDay,LookBack) / LookBack;

Per = ParamOptimize("Periods", 1, 1, 252, 1 );
system = StochTransform(PsychIndex,Per)
Plot(system ,"Psychological Index",colorRed,styleline,Null,Null,0,0,2);
3. dominhy

Error:

Per = ParamOptimize("Periods", 1, 1, 252, 1 );
system = StochTransform(PsychIndex,Per)

==>

Per = Optimize("Periods", 12,1,252,1);
system = StochTransform(PsychIndex,Per);

Leave Comment

Please login here to leave a comment.

Back