源码不全，需者联系本人，有偿的，有点贵喔。

N:=8; WR:100-100*(V(HIGH,5*N)-CLE)/(HHV(HIGH,5*N)-L(L,5*N)), COLORFFFFFF,LINETHICK3; M18:E(WR,18),LINETHICK3; 强弱分界线:50,POINTDOT,COLORFFFFCC; -15,COLOR00FFFF,LINETHICK2;0,COLORFFFF33; 20,POINTDOT,COLOR00FF00; 80,POINTDOT,COLOR00FF00; 100,COLORFFFF33; 113,COLOR00FFFF,LINETHICK2; V1:=LLV(LOW,10); V2:=HHV(H,25); 价位线:=EMA((C-V1)/(V2-V1)*4,4); DRAWTEXT(CROSS(价位线,0.3),-1,'底部区'),COLOR33FF33; DRAWTEXT(CROSS(3.5,价位线),111,'顶部区'),COLOR33FF33; {HZL红主力} D27:"KDJ.D"(27,3,3),COLORFF99FF; MM3:EMA(D27,3),COLORFFFFFF; 红主力:STICKLINE(D27>=REF(D27,1),D27,0,5,0),COLORRED; DRAWICON(CROSS(85,D27),90,2); 顶: STICKLINE(CROSS(85,D27),100,50,5,0),COLORGREEN ; 底: STICKLINE(CROSS(D27,20),0,50,5,0),COLOR00FFFF ; DRAWICON(CROSS(D27,20),10,1); BIAS20:=(C-MA(C,20))/MA(C,20)*100,COLOR00FFFF,LINETHICK2; 

{指标说明： 1.取值范围0－100; 2.20以下为空头控盘区域，不得介入; 3.80以上为多头快速拉抬区，经常为主升浪阶段; 4.20到80之间为多头控盘区，正常的股价拉升及调整区域; 5.当“WR”由上穿20时为买入信号，回穿20再次上穿为加仓信号; 6.当“WR”由下穿80为卖出信号，如“WR”为100, 则通常第二天必然出现近期最高价，考虑第二天出货。 7.该指标不适用于领涨股及主力完全控盘无量上涨的股票，因为 这类股票经常会在80左右反复震荡，但股价却不断走高，它比较 适用于二线股，跟涨的股票 8.红主力中好,绿柱出仓、红柱是持股区};