通达信龙头全抓选股指标 源码 贴图

龙头全抓:=DYNAINFO(4)>0 AND HHV(HIGH,10)/LLV(LOW,10)<1.25 AND REF(CLOSE,1)<LLV(LOW,15)+(HHV(HIGH,15)-LLV(LOW,15))*0.85 AND CLOSE>OPEN AND CLOSE>=HHV(HIGH,10);
LC:=IF(DATETODAY(DATE)<900101,1,1);
M5:=EMA(CLOSE,5);
M10:=EMA(CLOSE,10);
M14:=EMA(CLOSE,14);
M18:=EMA(CLOSE,18);
M40:=EMA(CLOSE,40);
M60:=EMA(CLOSE,60);
LC1:=IF(DATE<2342.459961*500,1,1);
龙头全抓0:=MAX(M40,M60);
龙头全抓1:=CLOSE>龙头全抓0 AND 龙头全抓 AND (CLOSE>REF(HHV(HIGH,3),1)*LC AND (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)>0.07);
龙头全抓2:=VOL;{公式网WWW.GPXIAZAI.COM}
龙头全抓3:=MA(龙头全抓2,5);
龙头全抓4:=龙头全抓3+龙头全抓3>龙头全抓2;
龙头全抓5:=DYNAINFO(4)>0 AND HHV(HIGH,10)/LLV(LOW,10)<1.25 AND REF(CLOSE,1)<(LLV(LOW,15)+(HHV(HIGH,15)-LLV(LOW,15))*0.85)*LC AND CLOSE>OPEN AND CLOSE>=HHV(HIGH,10)*LC1;
龙头全抓6:=(CLOSE>REF(HHV(HIGH,3),1)*LC AND (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)>0.07)*LC AND 龙头全抓5 AND 龙头全抓4;
龙头全抓7:=DYNAINFO(4)>0 AND HHV(HIGH,10)/LLV(LOW,10)<1.25 AND REF(CLOSE,1)*LC<LLV(LOW,15)+(HHV(HIGH,15)-LLV(LOW,15))*0.85 AND CLOSE>OPEN AND CLOSE>=HHV(HIGH,10);
龙头全抓8:=(CLOSE-REF(CLOSE,1)*LC)/REF(CLOSE,1)*100>7;
龙头全抓9:=龙头全抓7 AND 龙头全抓8;
LC2:=(龙头全抓1 AND 龙头全抓9);
LC3:=EMA(CLOSE,5);
LC4:=EMA(CLOSE,10);
LC5:=EMA(CLOSE,14);
LC6:=EMA(CLOSE,18);
LC7:=EMA(CLOSE,40);
LC8:=EMA(CLOSE,60);
LC9:=MAX(MAX(MAX(MAX(MAX(LC3,M10),LC5),LC6),LC7),LC8)*LC1;
M50:=MIN(MIN(MIN(MIN(MIN(LC3,M10),LC5),LC6),LC7),LC8)*LC1;
M51:=CLOSE>LC9 AND LOW<M50 AND (CLOSE>REF(HHV(HIGH,3),1) AND (CLOSE-REF(CLOSE,1)*LC)/REF(CLOSE,1)>0.09);
M52:=FILTER(M51>0,0)=1;
M55:=M52;
M56:=MA(REF(HHV(CLOSE,26),1),2);
M57:=MA(CLOSE,26);
M58:=POW(CLOSE-M57,2);
M59:=MA(M58,13);
M100:=SQRT(M59);
M101:=M57+2*M100;
M102:=REF(M101,1);
M103:=CROSS(CLOSE,M56) AND HIGH>REF(M101,1) OR (CLOSE>M56 AND CROSS(CLOSE,REF(M101,1))) AND CLOSE/OPEN>0.998;
M104:=MACD.MACD;
M105:=KD.K;
M106:=KD.D;
M107:=RSI.RSI1;
M108:=RSI.RSI3;
M109:=CLOSE-REF(CLOSE,1);
M140:=IF(M109>=0,M109,0)*LC1;
M141:=IF(M109<0,-M109,0)*LC1;
M142:=MEMA(M140,10);
M143:=MEMA(M141,10);
M144:=MEMA(M140,6);
M145:=MEMA(M141,6);
M146:=MA(100*M142/(M142+M143),10)*LC1;
M147:=MA(100*M144/(M144+M145),6)*LC1;
M148:=MA(CLOSE,5)/MA(CLOSE,10)>0.999 AND MA(CLOSE,10)/MA(CLOSE,20)>0.9847 AND MA(CLOSE,20)>MA(CLOSE,60) AND REF(COUNT(MA(CLOSE,10)/MA(CLOSE,20)<1.017 OR MA(CLOSE,5)/MA(CLOSE,10)<1.017,8)>=1,1) AND MA(CLOSE,20)/MA(CLOSE,60)<1.121;
M149:=(CLOSE-MA(CLOSE,60))/MA(CLOSE,60)*100;
M180:=COUNT(M149<35,100)>=95;
M181:=M103 AND M148>0 AND NOT(DYNAINFO(4)=0) AND M180 AND REF(COUNT(MA(CLOSE,20)>MA(CLOSE,30),4)=4 AND COUNT(CLOSE>MA(CLOSE,5),3)>=2,1) AND VOL>REF(VOL,1) AND (REF(COUNT(CLOSE>OPEN,10)>=6 OR COUNT(CLOSE>OPEN,5)>=4,1) OR CLOSE=HIGH) AND (CROSS(M147,M146) OR CROSS(M104,0) OR REF(COUNT(CROSS(M104,0),3)=1 AND M104<0.15 AND CLOSE/OPEN>0.989 AND CLOSE/REF(CLOSE,1)<1.03,1) OR CROSS(M105,M106) OR CROSS(M107,M108)) AND REF(CLOSE/OPEN>0.988 AND (CLOSE>OPEN OR (CLOSE<=OPEN AND HIGH/LOW<1.049)),1) AND HIGH/CLOSE<1.013 AND CLOSE/OPEN>1.05;
M182:=龙头全抓1+龙头全抓6+龙头全抓9+M52+M181>=2;
M183:=MA(CLOSE,5)>MA(CLOSE,10) AND MA(CLOSE,10)>MA(CLOSE,20) AND MA(CLOSE,20)>MA(CLOSE,60) AND MA(CLOSE,60)>MA(CLOSE,120) AND MA(CLOSE,5)>REF(MA(CLOSE,5),1);
M184:=CLOSE>REF(CLOSE,1)*1.1-0.01;
M185:=HHV(HIGH,20)=HHV(CLOSE,1) AND VOL>0 AND BARSCOUNT(CLOSE)*LC>=20;
M186:=VOL/REF(VOL,1)*LC>1.9;
M187:=M183 AND M184 AND M185 AND M186;
M188:=MA(CLOSE,5);
M189:=MA(CLOSE,10);
M400:=MA(CLOSE,20);
M401:=MA(CLOSE,30);
M402:=MA(CLOSE,60);
M403:=CLOSE>M188 AND M188>M189 AND M189>M400 AND CLOSE>M402;
M404:=CLOSE/REF(CLOSE,1)>1.05 AND REF(CLOSE,1)/REF(CLOSE,2)<1.05 AND CLOSE/LLV(CLOSE,10)<1.4;
M405:=VOL/REF(VOL,1)>2 OR VOL=HHV(VOL,15);
M406:=CAPITAL<10000000;{公式网WWW.GPXIAZAI.COM}
M407:=ATAN((MA(CLOSE,5)/REF(MA(CLOSE,5),1)-1)*100)*57.299999>40;
M408:=ATAN((MA(CLOSE,10)/REF(MA(CLOSE,10),1)-1)*100)*57.299999>30;
M409:=ATAN((MA(CLOSE,20)/REF(MA(CLOSE,20),1)-1)*100)*57.299999>20;
M600:=ATAN((MA(CLOSE,30)/REF(MA(CLOSE,30),1)-1)*100)*57.299999>10;
M601:=M407 AND M408 AND M409 AND M600;
M602:=KDJ.K>REF(KDJ.K,1)*LC;
M603:=KDJ.D>REF(KDJ.D,1)*LC AND KDJ.D<70;
M604:=KDJ.J>REF(KDJ.J,1)*LC;
M605:=M602 AND M603 AND M604;
M606:=M40 AND M404 AND M405 AND M406 AND M601 AND M605;
M607:=FILTER(M606,15)*LC;
M608:=M187 OR M607;
获取龙头:((M608 AND M182)*LC OR M55 OR LC2),COLORRED;