{大盘评分系统副图源码如下}
{1. RSI6超跌(大盘版)}
RSI6:=SMA(MAX(INDEXC-REF(INDEXC,1),0),6,1)/SMA(ABS(INDEXC-REF(INDEXC,1)),6,1)*100;
DAPAN1:=IF(RSI6<22,1,0); {大盘RSI阈值放宽至22}
{2. 威廉指标超跌(大盘版)}
WR:=(HHV(INDEXH,14)-INDEXC)/(HHV(INDEXH,14)-LLV(INDEXL,14))*100;
DAPAN2:=IF(WR>85,1,0); {大盘WR阈值调至85}
{3. KDJ指标超跌(大盘版)}
RSV:=(INDEXC-LLV(INDEXL,9))/(HHV(INDEXH,9)-LLV(INDEXL,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
DAPAN3:=IF(J<5,1,0); {大盘J值阈值设为5}
{4. 乖离率超跌(大盘版)}
BIAS6:=(INDEXC-MA(INDEXC,6))/MA(INDEXC,6)*100;
DAPAN4:=IF(BIAS6<-6,1,0); {大盘BIAS阈值调至-6}
{5. 动量指标超跌(大盘版)}
MTM:=INDEXC-REF(INDEXC,12);
MTMMA:=MA(MTM,6);
DAPAN5:=IF(MTM<0 AND MTMMA<0,1,0);
{6. 心理线超跌(大盘版)}
PSY:=COUNT(INDEXC>REF(INDEXC,1),12)/12*100;
DAPAN6:=IF(PSY<20,1,0); {大盘PSY阈值调至20}
{7. 成交额超跌(大盘专用)}
AMO_MA5:=MA(INDEXA,5);
AMO_MA20:=MA(INDEXA,20);
DAPAN7:=IF(INDEXA<AMO_MA20*0.55 AND INDEXA<AMO_MA5*0.75,1,0); {大盘成交额更严格}
{8. 布林带超跌(大盘版)}
BOLL_LOWER:=MA(INDEXC,20)-2*STD(INDEXC,20);
DAPAN8:=IF(INDEXC<BOLL_LOWER*0.98,1,0); {突破下轨98%}
{9. 年线偏离超跌(大盘专用)}
MA250:=MA(INDEXC,250); {年线}
偏离率:=(INDEXC-MA250)/MA250*100;
DAPAN9:=IF(偏离率<-15,1,0); {大盘年线偏离阈值-15%}
{10. 涨跌家数比(大盘专用)}
上涨家数:=ADVANCE;
下跌家数:=DECLINE;
ADR:=上涨家数/MAX(下跌家数,1);
DAPAN10:=IF(ADR<0.45 AND 下跌家数>1.5*上涨家数,1,0);
大盘评分:DAPAN1+DAPAN2+DAPAN3+DAPAN4+DAPAN5+DAPAN6+DAPAN7+DAPAN8+DAPAN9+DAPAN10;
DRAWICON(大盘评分>=6,大盘评分,1),COLORRED;
{个股价格超跌打分系统副图源码如下}
{价格超跌打分系统,用于寻底}
{1. RSI6超跌}
RSI6:=SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),6,1)*100;
TTDD1:=IF(RSI6<20,1,0);
{2. 威廉指标超跌}
WR:=(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14))*100;
TTDD2:=IF(WR>80,1,0);
{3. KDJ指标超跌}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
TTDD3:=IF(J<0,1,0);
{4. 乖离率超跌}
BIAS6:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
TTDD4:=IF(BIAS6<-5,1,0);
{5. 动量指标超跌}
MTM:=CLOSE-REF(CLOSE,12);
MTMMA:=MA(MTM,6);
TTDD5:=IF(MTM<0 AND MTMMA<0,1,0);
{6. 心理线超跌}
PSY:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
TTDD6:=IF(PSY<25,1,0);
{7. 成交量超跌}
VOL_MA5:=MA(VOL,5);
VOL_MA20:=MA(VOL,20);
TTDD7:=IF(VOL<VOL_MA20*0.6 AND VOL<VOL_MA5*0.8,1,0);
{8. 布林带超跌}
BOLL_LOWER:=MA(CLOSE,20)-2*STD(CLOSE,20);
TTDD8:=IF(CLOSE<BOLL_LOWER,1,0);
{9. 价格偏离均线超跌}
MA60:=MA(CLOSE,60);
偏离率:=(CLOSE-MA60)/MA60*100;
TTDD9:=IF(偏离率<-20,1,0);
{10. 涨跌比率超跌}
上涨家数:=COUNT(CLOSE>REF(CLOSE,1),10);
下跌家数:=COUNT(CLOSE<REF(CLOSE,1),10);
ADR:=上涨家数/MAX(下跌家数,1); {防止除数为0}
TTDD10:=IF(ADR<0.5,1,0);
综合评分:TTDD1+TTDD2+TTDD3+TTDD4+TTDD5+TTDD6+TTDD7+TTDD8+TTDD9+TTDD10,COLORYELLOW,LINETHICK2;
DRAWICON(综合评分>=6,综合评分,1);