简化唐仁政老师的好指标--庄影难逃

总的看指标很好,但自己感觉所用语句太繁(也许是通达信必须的吧),所以,力求不改变原意的基础上简化成飞狐版(去掉了含有隐蔽未来的趋势线的笑脸;删除了无大用的大额分析及不必要的线条,优化了显示部分),希望对大家有帮助:

[Copy to clipboard] [ - ]CODE:
{限制}
限制:=CAPITAL>0;
tt1:=BARPOS=SYSPARAM(2); 
GZL:=llv(L,sysparam(3)-sysparam(2)+1); 
GZH:=hhv(L,sysparam(3)-sysparam(2)+1); 
GZQ:=(GZL+GZH)/2;
DRAWTEXT(tt1&&限制=0,GZQ[sysparam(3)],'                                  ←对不起，此公式不易"大盘"使用！'),COLORYELLOW;
IF 限制=0 THEN EXIT;
{macd}
DIF:=EMA(C,20)-EMA(C,5);
DEA:=EMA(DIF,10);
MACD:=300*(DIF-DEA)*2/EMA(C,30);
{}
VARA:=EMA(REF(C,1),4);
青山:=(SMA(MAX(C-VARA,0),6,1)/SMA(ABS(C-VARA),6,1)*100);
绿水:=青山<3.5;
太阳:=CROSS(青山,90),COLOR00FF00;
FILLRGN(C,12000,0),SHIFT1,Color68008E;{背景 === 紫色}
DD:=IF(MACD>=0,MACD,0)*1.5;
STICKLINE(DD AND DD>REF(DD,1),0,DD*80,7,0),COLOR0000FF;
STICKLINE(DD AND DD<REF(DD,1),0,DD*80,7,1),COLOR0000FF;
PARTLINE(C,(青山-25)*150),COLOR5BE000,LINETHICK6;
FILLRGN((青山-25)*1.5>0,0,(青山-25)*150),Color007600;{背景 === 绿色}
ZJ2:=V/((H-L)*2-ABS(C-O));
ZJ3:=IF(C>O,ZJ2*(H-L),IF(C<O,ZJ2*(H-O+(C-L)),V/2))+IF(C>O,0-ZJ2*(H-C+(O-L)),IF(C<O,0-ZJ2*(H-L),0-V/2));
攻击流量:=ZJ3/20/1.15;
ZJ5:=攻击流量*0.55+REF(攻击流量,1)*0.33+REF(攻击流量,2)*0.22;
日流量:=EMA(ZJ5,3);
{控制}
p:=sysparam(1);   W:=SYSPARAM(2);   Q:=SYSPARAM(3);   ZZ:=(Q-W)+1;  ll:=llv(日流量,ZZ);  zll:=ll[Q];  线低:=MIN(-5000,zll);
FILLRGN(C,0,线低),SHIFT1,ColorBEAF00; {背景 === 青色}
STICKLINE(C>0 AND 日流量>=0,日流量,0,7,0),COLORMAGENTA;
STICKLINE(C>0 AND 日流量<=0,日流量,0,7,0),COLORBLUE;
{}
AR1:=LLV(LOW,10);
AR2:=HHV(H,25);
AR3:=EMA((C-AR1)/(AR2-AR1)*4,4);
红红的天:=3*SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1)-2*SMA(SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1),3,1);
抄底:=CROSS(红红的天,2);{抄底 == 买点}
STICKLINE(抄底,线低,7000,4,0),COLORMAGENTA;{抄底 == 买点}
PARTLINE(红红的天<=10,线低),CIRCLEDOT,COLORRED;{低 == 区}
{kdj}
N:=IF(C,20,6);
L1:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*200-60;
STICKLINE(CROSS(3.5,AR3),10000,12000,6,0),LINETHICK2,COLORYELLOW;{逃 == 顶}
STICKLINE(CROSS(AR3,0.3),-5000,-3000,6,0),LINETHICK2,COLORRED;   {抄 == 底}
DRAWTEXT(CROSS(0,MACD)AND 青山>75 OR 太阳,9800,'♀'),ALIGN,COLORYELLOW;   {逃 == 顶}
DRAWTEXT(绿水,线低/2,'︼'),COLORYELLOW;     {抄 == 底}
{盘龙驸凤}
龙Ｋ:IF(C,SMA(L1,3,1)*100,0),PRECISION2,COLORWHITE;
凤Ｄ:IF(C,SMA(龙Ｋ,3,1),0),PRECISION2,COLORYELLOW;
DRAWICON(FILTER(CROSS((青山-25)*150,0),3),线低/3,1);{波段启动点}