通达信〖七剑神尾〗识别特定形态的强势股公式源码

M:=29;
boll:=MA(CLOSE,M);
UB:=BOLL+2*STD(CLOSE,M);
LB:=BOLL-2*STD(CLOSE,M);
M30:=MA(CLOSE,30);
M60:=MA(CLOSE,60);
GSSS:=C/REF(C,1)>1.099 AND H=C AND H>L;
GSGGS:=SMA(MAX(CLOSE- REF(CLOSE,1),0),2,1)/SMA(Abs(CLOSE- REF(CLOSE,1)),2,1)*100;
A1:=crOSS(GSGGS,50) AND BARSLAST(GSSS)<=10 AND BARSLAST(GSSS)>0;
B1:=CROSS(GSGGS,50) AND BARSLAST(GSSS)=0 AND COUNT(GSSS,10)=2;
GSS:=A1 OR B1;
GSG:=MA(C,3);
AA:=C>MA(C,10);
VAR1:=GSG>REF(GSG,1) AND GSG>REF(GSG,2) AND V>0;
VAR2:=REF(VAR1,1) AND GSG<=REF(GSG,1) AND GSG>=REF(GSG,2);
VAR3:=REF(VAR2,1) AND GSG>=REF(GSG,1) AND GSG<=REF(GSG,2);
VAR4:=REF(VAR3,1) AND GSG<=REF(GSG,1) AND GSG<=REF(GSG,2);
VAR5:=REF(VAR4,1) AND GSG>=REF(GSG,1) AND GSG<=REF(GSG,2);
VAR6:=REF(VAR5,1) AND GSG<=REF(GSG,1) AND GSG>=REF(GSG,2);
VAR7:=REF(VAR6,1) AND GSG>=REF(GSG,1) AND GSG<=REF(GSG,2);
VAR8:=REF(VAR7,1) AND GSG<=REF(GSG,1) AND GSG>=REF(GSG,2);
VAR9:=REF(VAR8,1) AND GSG>=REF(GSG,1) AND GSG<=REF(GSG,2);
VARA:=REF(VAR9,1) AND GSG<=REF(GSG,1) AND GSG>=REF(GSG,2);
VARB:=REF(VARA,1) AND GSG>=REF(GSG,1) AND GSG<=REF(GSG,2);
VARC:=REF(VARB,1) AND GSG<=REF(GSG,1) AND GSG>=REF(GSG,2);
VARD:=GSG< REF(GSG,1) AND GSG< REF(GSG,2);
VARE:=REF(VARD,1) AND GSG>=REF(GSG,1) AND GSG<=REF(GSG,2);
VARF:=REF(VARE,1) AND GSG<=REF(GSG,1) AND GSG>=REF(GSG,2);
VAR10:=REF(VARF,1) AND GSG>=REF(GSG,1) AND GSG<=REF(GSG,2);
VAR11:=REF(VAR10,1) AND GSG<=REF(GSG,1) AND GSG>=REF(GSG,2);
VAR12:=REF(VAR11,1) AND GSG>=REF(GSG,1) AND GSG<=REF(GSG,2);
VAR13:=REF(VAR12,1) AND GSG<=REF(GSG,1) AND GSG>=REF(GSG,2);
VAR14:=REF(VAR13,1) AND GSG>=REF(GSG,1) AND GSG<=REF(GSG,2);
VAR15:=REF(VAR14,1) AND GSG<=REF(GSG,1) AND GSG>=REF(GSG,2);
VAR16:=REF(VAR15,1) AND GSG>=REF(GSG,1) AND GSG<=REF(GSG,2);
VAR17:=REF(VAR16,1) AND GSG<=REF(GSG,1) AND GSG>=REF(GSG,2);
VAR18:=REF(VAR17,1) AND GSG>=REF(GSG,1) AND GSG<=REF(GSG,2);
VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1;
XG1:=VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC;
T:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),14);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
MP:=SUM(IF(HD>0&&HD>LD,HD,0),14);
MM:=SUM(IF(LD>0&&LD>HD,LD,0),14);
PD:=MP*100/T;
MD:=MM*100/T;
A:=PD-MD>=0;
B:=PD-MD< 0;
D:=(PD-MD);
DD:=D>=0;
双紫:=BARSLASTCOUNT(D>0 AND (VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC))=1;
上影线比例:= (HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)< 0.2;
涨幅:=CLOSE/REF(CLOSE,1)< 1.07 AND CLOSE/REF(CLOSE,1)>1.02;
U1:= (C-REF(C,1))/REF(C,1)*100,NODRAW;
U2:=BARSLAST(GSSS)*10,NODRAW;
七剑神打分:=U1+U2+GSGGS;
七剑神打分选:=七剑神打分>=120;
成交量:=vol/REF(VOL,1)<=1.3;
XG:=GSS AND 上影线比例 AND 七剑神打分选 AND 涨幅 AND H< UB AND 成交量 AND MA(CLOSE,60)> MA(CLOSE,120) AND C>MA(CLOSE,30);
STICKLINE(XG,C,O,1,0),COLORYELLOW;
DRAWTEXT(XG,LOW*0.986,'七剑神'),COLORRED;