{ Downloaded From https://www.WiseStockTrader.com } {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