{主图源码如下}
N:=10;
T1:=CONST(HHVBARS(V,10)),COLOR0000FF,LINETHICK1;
ZBGS32:=CLOSE/REF(CLOSE,1)>=1.095 AND CLOSE/REF(CLOSE,1)<=1.105 OR (CLOSE/REF(CLOSE,1)>=1.195 AND CLOSE/REF(CLOSE,1)<=1.205) OR (CLOSE/REF(CLOSE,1)>=1.295 AND CLOSE/REF(CLOSE,1)<=1.305) AND CLOSE=HIGH;
STICKLINE(ZBGS32,OPEN,CLOSE,1,0),COLORMAGENTA;
DRAWTEXT(ZBGS32,H*1.026,' '),COLORYELLOW;
ZBGS31:=(3*CLOSE+OPEN+HIGH+LOW)/6;
控盘度:=(EMA(ZBGS31,12)-REF(EMA(ZBGS31,36),1))/REF(EMA(ZBGS31,36),1)*100+50,NODRAW;
VA13:=0.01*EMA(AMOUNT,13)/EMA(VOL,13);
高度:(CLOSE-VA13)/VA13*1000,NODRAW;
VA:=VOL/CAPITAL*100;
ZBGS35:=IF(CODELIKE('688'),0,1);
ZBGS36:=COST(85);
ZBGS37:=COST(15);
ZBGS38:=ZBGS36-ZBGS37;
ZBGS39:=(ZBGS36+ZBGS37)/2;
参数:=ZBGS38/ZBGS39*100< 30,LINETHICK0;
ZBGS310:=HHV(HIGH,250);
ZBGS311:=LLV(LOW,250);
ZBGS312:=ZBGS310-ZBGS311;
ZBGS313:=(ZBGS39-ZBGS311);
比例:=ZBGS39< (ZBGS312*04+ZBGS311),LINETHICK0;
吸筹结束:=参数 AND 比例;
ZBGS315:=C/REF(C,1)>1.04;
VA手%:=EMA(100*(CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30)),3);
VA手:=VA手%>=75 AND C>0 AND CLOSE>OPEN;
真龙:=FILTER(VA手 AND 吸筹结束 AND ZBGS313 AND WINNER(C)>=0.90 AND ZBGS315 AND C/REF(C,1)>1.092 AND C=H AND C< 40 AND ZBGS35 AND VA< 20 ,10),NODRAW;
短线:EMA(CLOSE,5),LINETHICK1,COLORWHITE DOTLINE;
A:=(3*C+L+O+H)/6;
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;
中线:EMA(X,34),LINETHICK2,COLORRED;
STICKLINE(真龙,O,C,1,0),COLORFF0080;
LTJY1:=REF(CLOSE,1)/REF(CLOSE,2)>1.095;
LTJY2:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100>9.9 AND (CLOSE-REF(CLOSE,3))/REF(CLOSE,3)*100< 31 AND (CLOSE-REF(CLOSE,4))/REF(CLOSE,4)*100< 40;
LTJY3:=LTJY1 AND LTJY2 AND CLOSE< 16 AND REF(VOL/CAPITAL*100,1)< 25 AND MA(CLOSE,5)>MA(CLOSE,10) AND MA(CLOSE,10)>MA(CLOSE,21) AND MA(CLOSE,5)>MA(CLOSE,34) AND VOL<=REF(VOL,1)*3.1 AND (CLOSE-REF(CLOSE,9))/REF(CLOSE,9)*100< 50 AND (CLOSE-REF(CLOSE,7))/REF(CLOSE,7)*100< 50 AND (CLOSE-REF(CLOSE,12))/REF(CLOSE,12)*100< 150 AND REF(VOL/CAPITAL*100,0)< 30 AND REF(VOL/CAPITAL*100,2)< 45 AND MA(CLOSE,3)>MA(CLOSE,5);
DIFF:= EMA(CLOSE,9) - EMA(CLOSE,26);
DEA:= EMA(DIFF,12);
MACD:= 2*(DIFF-DEA);
ZC:=50*(IF(MACD>REF(MACD,1) AND REF(MACD,1)>0 AND REF(MACD,2)>REF(MACD,1),0.2,0));
去昨天:=IF(REF((H-MAX(C,O))/ABS(C-O)>1,1),0,1);
真龙腾起:=BARSLASTCOUNT(高度>0 AND 高度>=50)=1 AND MACD.MACD>0 AND ZC AND 去昨天;
STICKLINE(真龙腾起,C,O,2,0),COLORYELLOW;
DRAWICON(真龙腾起,L*1.002,1);
{选股源码如下}
DIFF:= EMA(CLOSE,9) - EMA(CLOSE,26);
DEA:= EMA(DIFF,12);
MACD:= 2*(DIFF-DEA);
ZC:=50*(IF(MACD>REF(MACD,1) AND REF(MACD,1)>0 AND REF(MACD,2)>REF(MACD,1),0.2,0));
去昨天:=IF(REF((H-MAX(C,O))/ABS(C-O)>1,1),0,1);
VA13:=0.01*EMA(AMOUNT,13)/EMA(VOL,13);
高度:=(CLOSE-VA13)/VA13*1000;
开始:=BARSLASTCOUNT(高度>0 AND 高度>=50)=1;
XG:开始 AND MACD.MACD>0 AND ZC AND 去昨天;
