通达信惘然捉妖主图选股指标公式源码

通达信惘然捉妖主图选股指标公式源码

源码正文：

人线1:=ma(L,24) COLORBLUE {XG51};
天线:=人线1+2.65*stD(CLOSE,21)COLORYELLOW LINETHICK3{XG51};
地线:=人线1-2.3*STD(CLOSE,21)COLORCYAN LINETHICK3{XG51};
DRAWKLINE(H,O,L,C){XG51};
人线:=MA(C,20)COLORBLUE,LINETHICK1{XG51};
凤线:=MA(C,40)COLORLIMAGENTA,LINETHICK1{XG51};
龙线:=MA(C,60)COLORGREEN,LINETHICK1{XG51};
DRAWKLINE(H,O,L,C){XG51};
RC1:=REF(C,1){XG51};
CS:=IF(C>=1,10000,100000){XG51};
C涨停10:=1.10*RC1-49/CS{XG51};
C涨停5 :=1.05*RC1-49/CS{XG51};
C跌停10:=0.90*RC1+51/CS{XG51};
C跌停5 :=0.95*RC1+51/CS{XG51};
ST:=NAMELIKE('S') OR NAMELIKE('*S'){XG51};
涨停:= IF(ST, C>=C涨停5, C>=C涨停10){XG51};
跌停:= IF(ST, C<=C跌停5, C<=C跌停10){XG51};
盘中涨停:=IF(ST, H>=C涨停5, H>=C涨停10){XG51};
盘中跌停:=IF(ST, L<=C跌停5, L<=C跌停10){XG51};
STICKLINE(盘中涨停,H,MAX(C,O),0,0),COLORLIMAGENTA{XG51};
STICKLINE(盘中跌停,L,MIN(C,O),0,0),COLORYELLOW{XG51};
STICKLINE(涨停,O,C,3,0),COLORBLUE{XG51};
STICKLINE(跌停,O,C,3,0),COLORYELLOW{XG51};
RSV:=(CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100{XG51};
K:=SMA(RSV,3,1),LINETHICK2,COLORCYAN{XG51};
D:=SMA(K,3,1),LINETHICK2{XG51};
MA1:=MA(CLOSE,3)NODRAW{XG51};
MA2:=MA(CLOSE,21)NODRAW{XG51};
volUME:=VOL,VOLSTICK NODRAW{XG51};
连续下跌:=(HHV(H,10)-L)/L*100>=15{XG51};
昨日阴线:=REF(O,1)<=REF(REF(MIN(C,O),1),1) AND (REF(H,1)-REF(L,1))/REF(L,1)>=0.04 AND REF(C,1)<REF(O,1)NODRAW{XG51};
箭在弦上:=MAX(C,O)<=REF(C,1)AND(H-MAX(C,O))>=(MAX(C,O)-MIN(C,O))*3 AND(H-MAX(C,O))>=(MIN(C,O)-L)*5 AND (H-L)/L>=0.05 NODRAW{XG51};
DRAWTEXT(昨日阴线 AND 箭在弦上 AND 连续下跌 AND K<=30,L*0.98,'箭')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 箭在弦上 AND 连续下跌 AND K<=30,L*0.95,'在')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 箭在弦上 AND 连续下跌 AND K<=30,L*0.92,'弦')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 箭在弦上 AND 连续下跌 AND K<=30,L*0.89,'上')COLORBLUE{XG51};
箭在弦上1:=MAX(C,O)<=REF(C,1)AND(H-MAX(C,O))>=(MAX(C,O)-MIN(C,O))*3 AND(H-MAX(C,O))>=(MIN(C,O)-L)*5 AND (H-L)/L>=0.05 AND (MAX(C,O))<=REF(MIN(C,O),1) NODRAW{XG51};
DRAWTEXT(昨日阴线 AND 箭在弦上1 AND 连续下跌 AND K<=30,L*0.98,'箭')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 箭在弦上1 AND 连续下跌 AND K<=30,L*0.95,'在')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 箭在弦上1 AND 连续下跌 AND K<=30,L*0.92,'弦')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 箭在弦上1 AND 连续下跌 AND K<=30,L*0.89,'上')COLORBLUE{XG51};
火箭升空:=(H-L)/L>=0.07 AND (MIN(C,O)-L)>=(H-MAX(C,O))*5 AND MIN(C,O)-L>=(Abs(C-O))*3 NODRAW{XG51};
DRAWTEXT(昨日阴线 AND 火箭升空 AND 连续下跌 AND K<=30,L*0.98,'火')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 火箭升空 AND 连续下跌 AND K<=30,L*0.95,'箭')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 火箭升空 AND 连续下跌 AND K<=30,L*0.92,'升')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 火箭升空 AND 连续下跌 AND K<=30,L*0.89,'空')COLORBLUE{XG51};
火箭升空1:=(H-L)/L>=0.07 AND (MIN(C,O)-L)>=(H-MAX(C,O))*5 AND (MAX(C,O))<=REF(MIN(C,O),1)AND MIN(C,O)-L>=(ABS(C-O))*3 NODRAW{XG51};
DRAWTEXT(昨日阴线 AND 火箭升空1 AND 连续下跌 AND K<=30,L*0.98,'火')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 火箭升空1 AND 连续下跌 AND K<=30,L*0.95,'箭')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 火箭升空1 AND 连续下跌 AND K<=30,L*0.92,'升')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 火箭升空1 AND 连续下跌 AND K<=30,L*0.89,'空')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 火箭升空1 AND 连续下跌 AND C<REF(L,1) AND K<=30,L*0.98,'火')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 火箭升空1 AND 连续下跌 AND C<REF(L,1) AND K<=30,L*0.95,'箭')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 火箭升空1 AND 连续下跌 AND C<REF(L,1) AND K<=30,L*0.92,'升')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 火箭升空1 AND 连续下跌 AND C<REF(L,1) AND K<=30,L*0.89,'空')COLORBLUE{XG51};
过滤ST1:=IF(NAMELIKE('*ST'),0,1) AND IF(NAMELIKE('S'),0,1){XG51};
落叶归根:=(H-L)/L>=0.07 AND (MIN(C,O)-L)>=(H-MAX(C,O))*5 AND MIN(C,O)-L>=(ABS(C-O))*3 AND C=O NODRAW{XG51};
DRAWTEXT(昨日阴线 AND 落叶归根 AND 连续下跌 AND K<=30 AND 过滤ST1,L*0.98,'落')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 落叶归根 AND 连续下跌 AND K<=30 AND 过滤ST1,L*0.95,'叶')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 落叶归根 AND 连续下跌 AND K<=30 AND 过滤ST1,L*0.92,'归')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 落叶归根 AND 连续下跌 AND K<=30 AND 过滤ST1,L*0.89,'根')COLORBLUE{XG51};
火箭升空2:=(H-L)/L>=0.07 AND (MIN(C,O)-L)>=(H-MAX(C,O))*5 AND (MAX(C,O))<=REF(MIN(C,O),1)AND MIN(C,O)-L>=(ABS(C-O))*3 AND C=O NODRAW{XG51};
DRAWTEXT(昨日阴线 AND 火箭升空2 AND 连续下跌 AND K<=30 AND 过滤ST1,L*0.98,'落')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 火箭升空2 AND 连续下跌 AND K<=30 AND 过滤ST1,L*0.95,'叶')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 火箭升空2 AND 连续下跌 AND K<=30 AND 过滤ST1,L*0.92,'归')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 火箭升空2 AND 连续下跌 AND K<=30 AND 过滤ST1,L*0.89,'根')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 火箭升空2 AND 连续下跌 AND C<REF(L,1) AND K<=30 AND 过滤ST1,L*0.98,'落')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 火箭升空2 AND 连续下跌 AND C<REF(L,1) AND K<=30 AND 过滤ST1,L*0.95,'叶')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 火箭升空2 AND 连续下跌 AND C<REF(L,1) AND K<=30 AND 过滤ST1,L*0.92,'归')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND 火箭升空2 AND 连续下跌 AND C<REF(L,1) AND K<=30 AND 过滤ST1,L*0.89,'根')COLORBLUE{XG51};
看涨吞没:=O<REF(C,1)AND REF(O,1)>REF(C,1) AND C>REF(O,1)AND V>REF(V,1) NODRAW{XG51};
DRAWTEXT(昨日阴线 AND(REF(C,1)-C)/REF(C,1)>=0.05 AND 看涨吞没 AND 连续下跌 AND K<=30,L*0.98,'看')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND(REF(C,1)-C)/REF(C,1)>=0.05 AND 看涨吞没 AND 连续下跌 AND K<=30,L*0.95,'涨')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND(REF(C,1)-C)/REF(C,1)>=0.05 AND 看涨吞没 AND 连续下跌 AND K<=30,L*0.92,'吞')COLORBLUE{XG51};
DRAWTEXT(昨日阴线 AND(REF(C,1)-C)/REF(C,1)>=0.05 AND 看涨吞没 AND 连续下跌 AND K<=30,L*0.89,'没')COLORBLUE{XG51};
昨日跌幅:=(REF(REF(C,1),1)-REF(C,1))/REF(REF(C,1),1)>=0.05 NODRAW{XG51};
曙光初现:=O<REF(L,1) AND C>O AND REF(O+(C-O)*0.5,1)<=C NODRAW{XG51};
昨天阴线实体:=REF(O>C,1)AND(REF(O,1)-REF(C,1))/2<C NODRAW{XG51};
实体振幅:=(C-O)/O>=0.05 NODRAW{XG51};
DRAWTEXT(昨日跌幅 AND 曙光初现 AND 连续下跌 AND 昨天阴线实体 AND 实体振幅 AND C>REF(C,1)AND K<=40,L*0.98,'曙')COLORBLUE{XG51};
DRAWTEXT(昨日跌幅 AND 曙光初现 AND 连续下跌 AND 昨天阴线实体 AND 实体振幅 AND C>REF(C,1)AND K<=40,L*0.95,'光')COLORWHITE{XG51};
DRAWTEXT(昨日跌幅 AND 曙光初现 AND 连续下跌 AND 昨天阴线实体 AND 实体振幅 AND C>REF(C,1)AND K<=40,L*0.92,'出')COLORBLUE{XG51};
DRAWTEXT(昨日跌幅 AND 曙光初现 AND 连续下跌 AND 昨天阴线实体 AND 实体振幅 AND C>REF(C,1)AND K<=40,L*0.89,'现')COLORBLUE{XG51};
ZDF:=(C-REF(C,1))/REF(C,1)*100{XG51};
旭日东升:=REF(ZDF,1)<-3 AND ZDF>=6 AND C>REF(O,1) AND K<40 NODRAW{XG51};
DRAWTEXT(旭日东升,L*0.98,'旭')COLORCYAN{XG51};
DRAWTEXT(旭日东升,L*0.95,'日')COLORWHITE{XG51};
DRAWTEXT(旭日东升,L*0.92,'东')COLORCYAN{XG51};
DRAWTEXT(旭日东升,L*0.89,'升')COLORCYAN{XG51};
DRAWTEXT(C>REF(HHV(C,60),1)AND REF(C,1)/REF(REF(C,1),1)>1.098 AND C/REF(C,1)>1.098 AND NOT(C>=REF(C,1)*1.097 AND C=O AND H=L),L*0.98 ,'捉')COLORLIMAGENTA{XG51};
DRAWTEXT(C>REF(HHV(C,60),1)AND REF(C,1)/REF(REF(C,1),1)>1.098 AND C/REF(C,1)>1.098 AND NOT(C>=REF(C,1)*1.097 AND C=O AND H=L),L*0.95 ,'妖')COLORBLUE{XG51};
ZT:=C/REF(C,1)>=1.0989 AND C=H NODRAW{XG51};
TJ:=EVERY(ZT,1)NODRAW{XG51};
ZF:=(HHV(H,5)-LLV(L,5))/LLV(L,5)*100<=20 NODRAW{XG51};
XG1:=ZT AND (REF(TJ,6)) AND ZF NODRAW{XG51};
DRAWTEXT(XG1,L*0.98,'空中加油')COLORBLUE{X+G_5-1+C+N+{};