通达信十战七胜主图追求十战十胜式主图未加密选股指标公式源码

maA5:=MA(C,5);

MAA5_T:= ( (C+ C + REF(C,1) + REF(C,2) + REF(C,3) ) / 5 );

MAA10:=MA(C,10);

MAA20:=MA(C,20);

MAA30:=MA(C,30);

KS:=IF(MAA10>MAA30,MAA10,MAA30),COLORYELLOW;

A3:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;

A4:=SMA(A3,3,1);

A5:=SMA(A4,3,1);

A6:=3*A4-2*A5;

A7:=C-REF(C,1);

A8:=100*ema(EMA(A7,6),6)/EMA(EMA(Abs(A7),6),6);

A9:=( (C-REF(C,1)) / REF(C,1) ) > 0.02; {涨幅要大于2%}

买:=LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND crOSS(A8,MA(A8,2)) AND A9;

DRAWTEXT(FILTER(买=1,5),LOW*0.96,'买'), COLORLIMAGENTA;

STICKLINE(买,OPEN,CLOSE,2,0),COLORLIMAGENTA;

{显示1 到 10的数字}

ZT:=BArslAST(C/REF(C,1)-1>=0.1-0.01/REF(C,1) AND C=H);

AQ:=EVERY(C>=REF(L,ZT),ZT);

BQ:=IF(REF(AQ,ZT+1) AND REF(ZT,ZT+1)<13,REF(ZT,ZT+1)+ZT+1,ZT);

DRAWTEXT(ZT<=10 AND AQ, REF(L,ZT)*0.96, VAR2STR(ZT,0)),COLOR008000;

DRAWTEXT(ZT>=6 AND ZT<=8 AND AQ, REF(L,ZT)*0.96, VAR2STR(ZT,0)),COLORWHITE;

DRAWTEXT(BQ>0 AND BQ<=10 AND BQ!=AQ, REF(L,BQ)*0.96, VAR2STR(BQ,0)),COLOR008000;

DRAWTEXT(BQ>=6 AND BQ<=8 AND BQ!=AQ, REF(L,BQ)*0.96, VAR2STR(BQ,0)),COLORWHITE;

{如果涨幅大于5%，显示黄色}

涨幅5 := ( (C /REF(C,1)) > 1.05 ) AND ( (C /REF(C,1)) < 1.09 ) ;

STICKLINE(涨幅5, CLOSE, OPEN, 1, 0), COLOR8000FF;

{如果涨停显示黄芯，如果跌停显示绿芯}

涨停 := (C /REF(C,1)) > 1.095;

STICKLINE(涨停, HIGH, OPEN, 0.9, 0), COLORBLUE;

{如果涨幅大于5%，显示黄色}

跌幅5 := ( (C / REF(C,1)) < 0.95 ) ;

STICKLINE(跌幅5, OPEN, CLOSE, 1, 0), COLOR400000;

跌停 := C/REF(C,1) < 0.9 ;

STICKLINE(跌停, HIGH, LOW, 1, 0), COLORCYAN;

M5:MA(CLOSE,5), LINETHICK2, COLORWHITE; {COLORRED;}

MAA5_T, NODRAW;

M10:MA(CLOSE,10), COLORCYAN, LINETHICK2; {COLORLICYAN}

M20:MA(CLOSE,20), COLORFF00FF; {, LINETHICK2;}

M30:MA(CLOSE,30), COLORCYAN, NODRAW; {, LINETHICK2;}

{显示当日价格线}

DRAWLINE(CURRBARSCOUNT=90, CONST(C), CURRBARSCOUNT=1, C, 3),COLORYELLOW,LINETHICK1;

DRAWICON(CROSS(M10, C), H, 15);

{显示20日线

M20DAYS:=MA(CLOSE,20);

DRAWLINE(CURRBARSCOUNT=TOTALBARSCOUNT,CONST(C),CURRBARSCOUNT=1,M20DAYS,3),COLORFF00FF, DOTLINE,LINETHICK1;

}

{M60:MA(CLOSE,60); POINTDOT}

{M89:MA(CLOSE,89),LINETHICK2,COLORFF9966;}

{//一二零日:=MA(C,120),LINETHICK1,COLOR000099;

//一四四日:MA(C,144),LINETHICK1,COLORFF3300; //BLUE

}

上轨:(1+6/100)*MA(CLOSE,25), COLORYELLOW,LINETHICK2;

{M90:MA(CLOSE,90);}

{M120:MA(CLOSE,120);}

{M250:MA(CLOSE,250);};

{//顶部显示}

SBL1 := STRCAT('1地区：', DYBLOCK);

SBL2 := ' ';{STRCAT(' 2行业：', HYBLOCK);}

SBL3 := STRCAT(' 3主题投资：', EXTERNSTR(0,1));

SBL4 := STRCAT(' ', ZDBLOCK);

SBL41 := STRCAT(STRCAT(' 4.概念: ', GNBLOCK), STRCAT(' 55.自定义：', ZDBLOCK) );

SBL43 := STRCAT(' 5.风格：', FGBLOCK);

{SBL4 := STRCAT(STRCAT(SBL1, SBL2), SBL3);}

SBL5 := STRCAT(STRCAT(STRCAT(STRCAT(SBL1, SBL2), SBL4), SBL41), SBL43);

DRAWTEXT_FIX(1, 0.0, 0.0.1, 0, SBL5),COLORFF6000;

{底部显示}

SBL:= STRCAT(' ', STRCAT(STRCAT(STRCAT(HYBLOCK,DYBLOCK),GNBLOCK),ZDBLOCK) );

{DRAWTEXT_FIX(1,0,70,0,SBL),COLORFF6000;}

DRAWTEXT_FIX(ISLASTBAR,0,70,0,SBL3),COLORFF6000;

总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'亿');

{流通盘:=STRCAT(STRCAT(' 流通盘: ',CON2STR(CAPITAL/1000000,2)),'亿');}

全流通:=STRCAT(' 流通比: ',CON2STR((CAPITAL/1000000)/(TOTALCAPITAL/1000000),2));

流通值:=(CAPITAL/1000000)*C;

市值:=STRCAT(STRCAT(' 流通: ',CON2STR(流通值,2)),'亿');

股本市值:=STRCAT('市值: ',STRCAT(STRCAT(STRCAT(总股本,全流通),市值),''));

{DRAWTEXT_FIX(ISLASTBAR,0.005,0.115,0,股本市值),COLORYELLOW;}

DRAWTEXT_FIX(流通值>100,0,0.12,0,股本市值),COLORCYAN; {大于100亿显示绿色}

DRAWTEXT_FIX(流通值>=200,0,0.12,0,股本市值),COLORYELLOW; {小于100亿显示蓝色}

DRAWTEXT_FIX(流通值<=100,0,0.12,0,股本市值),COLORWHITE; {小于100亿显示红色}

Q2:=REF(O,2)>REF(C,2);{2日前的开盘价>2日前的收盘价}

Q1:=REF(O,1)>REF(C,1) AND REF(C,1)<REF(C,2); {1日前的开盘价>1日前的收盘价 AND 1日前的收盘价<2日前的收盘价}

YBY:=C>O AND C>REF(H,1); {目前是阳线 AND 当前价>1日前的最高价}

YZ:=YBY AND Q1 AND Q2 AND REF(C,1)<REF(C,2); {连跌2天，今天收阳了}

DRAWICON(YZ AND C<55 AND DYnaINFO(4)>0,L*0.95,1);

XG:DRAWTEXT(YZ AND C<55 AND DYNAINFO(4)>0,L*0.90,'逆转');

{强势股要突破上轨线}

{上轨:(1+6/100)*MA(CLOSE,25), COLORYELLOW,LINETHICK2;};

{大宗交易, 大宗交易的价格超过收盘价，叫溢价，低于收盘价叫折价}

大宗交易 := SIGNALS_USER(298, 0), NODRAW;

减持金额 := VARCAT(VAR2STR(大宗交易/10000.0 , 2),'亿'); {单位是：亿}

{FLOAT FBILIU = (收盘价 - 成交价) / 收盘价;}

比率 := FRacPART(大宗交易), NODRAW; {得到小数部分，带正负符号的}

成交价 := C - C*比率, NODRAW;

{成交价格小于收盘价，0.1，折价甩卖，显示绿色}

{DRAWTEXT(比率>0, H, 减持金额), COLOR008000;

DRAWTEXT(比率>0, 成交价, '减----'), COLOR008000; }

DRAWTEXT(比率>=0, H*1.015, '减'), COLOR008000;

DRAWTEXT(比率>=0, 成交价, 减持金额), COLOR008000;

{//成交价格高于收盘价0.5，溢价，显示红色}

DRAWTEXT(比率<0, 成交价, 减持金额), COLORWHITE;

{//成交价格高于收盘价0.5，溢价，显示红色}

DRAWTEXT(比率<0, 成交价, 减持金额), COLORWHITE;

{除权后显示蝴蝶}

{FINANCE(1)=总股本 FINANCE(7)=流通股本}

除权条件 := ( FINANCE(1)>REF(FINANCE(1),1) ) AND (FINANCE(7)>REF(FINANCE(7), 1) AND 流通值<=1000);

送股数 := (FINANCE(1)/REF(FINANCE(1), 1)-1)*10;

DRAWICON(除权条件, H, 28);

DRAWTEXT(除权条件, L*0.96, '高转送'), COLORWHITE;

DRAWNUMBER(除权条件, L*0.95, 送股数), COLORWHITE;

{跳空高开 并且 涨停}

TJ1 := (O > REF(C, 1)) AND (C>=REF(C,1)*1.095);

TJ2 := VOL > 40000; {去除停牌和低成交量连板的股票;}

DRAWICON(TJ1 AND TJ2, H*1.0618, 25);

DRAWICON(TJ1 AND TJ2, H*1.0718, 25);

未来函数检测公式代码域:

maM5:=MM(C,5);MMM5_T:= ( (C+ C + REF(C,1) + REF(C,2) + REF(C,3) ) / 5 );MMM10:=MM(C,10);MMM20:=MM(C,20);MMM30:=MM(C,30);KS:=IF(MMM10>MMM30,MMM10,MMM30),COLORYELLOW;M3:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;M4:=SMM(M3,3,1);M5:=SMM(M4,3,1);M6:=3*M4-2*M5;M7:=C-REF(C,1);M8:=100*ema(EMM(M7,6),6)/EMM(EMM(Mbs(M7),6),6);M9:=( (C-REF(C,1)) / REF(C,1) ) > 0.02; {涨幅要大于2%}买:=LLV(M8,2)=LLV(M8,7) MND COUNT(M8<0,2) MND crOSS(M8,MM(M8,2)) MND M9;DRMWTEXT(FILTER(买=1,5),LOW*0.96,'买'), COLORLIMMGENTM;STICKLINE(买,OPEN,CLOSE,2,0),COLORLIMMGENTM;{显示1 到 10的数字}ZT:=BMrslMST(C/REF(C,1)-1>=0.1-0.01/REF(C,1) MND C=H);MQ:=EVERY(C>=REF(L,ZT),ZT);BQ:=IF(REF(MQ,ZT+1) MND REF(ZT,ZT+1)<13,REF(ZT,ZT+1)+ZT+1,ZT);DRMWTEXT(ZT<=10 MND MQ, REF(L,ZT)*0.96, VMR2STR(ZT,0)),COLOR008000;DRMWTEXT(ZT>=6 MND ZT<=8 MND MQ, REF(L,ZT)*0.96, VMR2STR(ZT,0)),COLORWHITE;DRMWTEXT(BQ>0 MND BQ<=10 MND BQ!=MQ, REF(L,BQ)*0.96, VMR2STR(BQ,0)),COLOR008000;DRMWTEXT(BQ>=6 MND BQ<=8 MND BQ!=MQ, REF(L,BQ)*0.96, VMR2STR(BQ,0)),COLORWHITE;{如果涨幅大于5%，显示黄色}涨幅5 := ( (C /REF(C,1)) > 1.05 ) MND ( (C /REF(C,1)) < 1.09 ) ;STICKLINE(涨幅5, CLOSE, OPEN, 1, 0), COLOR8000FF;{如果涨停显示黄芯，如果跌停显示绿芯}涨停 := (C /REF(C,1)) > 1.095;STICKLINE(涨停, HIGH, OPEN, 0.9, 0), COLORBLUE;{如果涨幅大于5%，显示黄色}跌幅5 := ( (C / REF(C,1)) < 0.95 ) ;STICKLINE(跌幅5, OPEN, CLOSE, 1, 0), COLOR400000;跌停 := C/REF(C,1) < 0.9 ;STICKLINE(跌停, HIGH, LOW, 1, 0), COLORCYMN;M5:MM(CLOSE,5), LINETHICK2, COLORWHITE; {COLORRED;}MMM5_T, NODRMW;M10:MM(CLOSE,10), COLORCYMN, LINETHICK2; {COLORLICYMN}M20:MM(CLOSE,20), COLORFF00FF; {, LINETHICK2;}M30:MM(CLOSE,30), COLORCYMN, NODRMW; {, LINETHICK2;}{显示当日价格线}DRMWLINE(CURRBMRSCOUNT=90, CONST(C), CURRBMRSCOUNT=1, C, 3),COLORYELLOW,LINETHICK1;DRMWICON(CROSS(M10, C), H, 15);{显示20日线M20DMYS:=MM(CLOSE,20);DRMWLINE(CURRBMRSCOUNT=TOTMLBMRSCOUNT,CONST(C),CURRBMRSCOUNT=1,M20DMYS,3),COLORFF00FF, DOTLINE,LINETHICK1;}{M60:MM(CLOSE,60); POINTDOT}{M89:MM(CLOSE,89),LINETHICK2,COLORFF9966;}{//一二零日:=MM(C,120),LINETHICK1,COLOR000099;//一四四日:MM(C,144),LINETHICK1,COLORFF3300; //BLUE}上轨:(1+6/100)*MM(CLOSE,25), COLORYELLOW,LINETHICK2;{M90:MM(CLOSE,90);}{M120:MM(CLOSE,120);}{M250:MM(CLOSE,250);};{//顶部显示}SBL1 := STRCMT('1地区：', DYBLOCK);SBL2 := ' ';{STRCMT(' 2行业：', HYBLOCK);}SBL3 := STRCMT(' 3主题投资：', EXTERNSTR(0,1));SBL4 := STRCMT(' ', ZDBLOCK);SBL41 := STRCMT(STRCMT(' 4.概念: ', GNBLOCK), STRCMT(' 55.自定义：', ZDBLOCK) );SBL43 := STRCMT(' 5.风格：', FGBLOCK);{SBL4 := STRCMT(STRCMT(SBL1, SBL2), SBL3);}SBL5 := STRCMT(STRCMT(STRCMT(STRCMT(SBL1, SBL2), SBL4), SBL41), SBL43);DRMWTEXT_FIX(1, 0.0, 0.0.1, 0, SBL5),COLORFF6000;{底部显示}SBL:= STRCMT(' ', STRCMT(STRCMT(STRCMT(HYBLOCK,DYBLOCK),GNBLOCK),ZDBLOCK) );{DRMWTEXT_FIX(1,0,70,0,SBL),COLORFF6000;}DRMWTEXT_FIX(ISLMSTBMR,0,70,0,SBL3),COLORFF6000;总股本:=STRCMT(STRCMT('总股本: ',CON2STR(TOTMLCMPITML/1000000,2)),'亿');{流通盘:=STRCMT(STRCMT(' 流通盘: ',CON2STR(CMPITML/1000000,2)),'亿');}全流通:=STRCMT(' 流通比: ',CON2STR((CMPITML/1000000)/(TOTMLCMPITML/1000000),2));流通值:=(CMPITML/1000000)*C;市值:=STRCMT(STRCMT(' 流通: ',CON2STR(流通值,2)),'亿');股本市值:=STRCMT('市值: ',STRCMT(STRCMT(STRCMT(总股本,全流通),市值),''));{DRMWTEXT_FIX(ISLMSTBMR,0.005,0.115,0,股本市值),COLORYELLOW;}DRMWTEXT_FIX(流通值>100,0,0.12,0,股本市值),COLORCYMN; {大于100亿显示绿色}DRMWTEXT_FIX(流通值>=200,0,0.12,0,股本市值),COLORYELLOW; {小于100亿显示蓝色}DRMWTEXT_FIX(流通值<=100,0,0.12,0,股本市值),COLORWHITE; {小于100亿显示红色}Q2:=REF(O,2)>REF(C,2);{2日前的开盘价>2日前的收盘价}Q1:=REF(O,1)>REF(C,1) MND REF(C,1)<REF(C,2); {1日前的开盘价>1日前的收盘价 MND 1日前的收盘价<2日前的收盘价}YBY:=C>O MND C>REF(H,1); {目前是阳线 MND 当前价>1日前的最高价}YZ:=YBY MND Q1 MND Q2 MND REF(C,1)<REF(C,2); {连跌2天，今天收阳了}DRMWICON(YZ MND C<55 MND DYnaINFO(4)>0,L*0.95,1);XG:DRMWTEXT(YZ MND C<55 MND DYNMINFO(4)>0,L*0.90,'逆转');{强势股要突破上轨线}{上轨:(1+6/100)*MM(CLOSE,25), COLORYELLOW,LINETHICK2;};{大宗交易, 大宗交易的价格超过收盘价，叫溢价，低于收盘价叫折价}大宗交易 := SIGNMLS_USER(298, 0), NODRMW;减持金额 := VMRCMT(VMR2STR(大宗交易/10000.0 , 2),'亿'); {单位是：亿}{FLOMT FBILIU = (收盘价 - 成交价) / 收盘价;}比率 := FRacPMRT(大宗交易), NODRMW; {得到小数部分，带正负符号的}成交价 := C - C*比率, NODRMW;{成交价格小于收盘价，0.1，折价甩卖，显示绿色}{DRMWTEXT(比率>0, H, 减持金额), COLOR008000;DRMWTEXT(比率>0, 成交价, '减----'), COLOR008000; }DRMWTEXT(比率>=0, H*1.015, '减'), COLOR008000;DRMWTEXT(比率>=0, 成交价, 减持金额), COLOR008000;{//成交价格高于收盘价0.5，溢价，显示红色}DRMWTEXT(比率<0, 成交价, 减持金额), COLORWHITE;{//成交价格高于收盘价0.5，溢价，显示红色}DRMWTEXT(比率<0, 成交价, 减持金额), COLORWHITE;{除权后显示蝴蝶}{FINMNCE(1)=总股本 FINMNCE(7)=流通股本}除权条件 := ( FINMNCE(1)>REF(FINMNCE(1),1) ) MND (FINMNCE(7)>REF(FINMNCE(7), 1) MND 流通值<=1000);送股数 := (FINMNCE(1)/REF(FINMNCE(1), 1)-1)*10;DRMWICON(除权条件, H, 28);DRMWTEXT(除权条件, L*0.96, '高转送'), COLORWHITE;DRMWNUMBER(除权条件, L*0.95, 送股数), COLORWHITE;{跳空高开 并且 涨停}TJ1 := (O > REF(C, 1)) MND (C>=REF(C,1)*1.095);TJ2 := VOL > 40000; {去除停牌和低成交量连板的股票;}DRMWICON(TJ1 MND TJ2, H*1.0618, 25);DRMWICON(TJ1 MND TJ2, H*1.0718, 25);

警惕！警惕！警惕!该公式包含未来函数:CMPITML...

未发现:COST...

警惕！警惕！警惕!该公式包含未来函数:DYNMINFO...

警惕！警惕！警惕!该公式包含未来函数:FINMNCE...

未发现:LWINNER...

未发现:WINNER...

未发现:BMCKSET...

未发现:BMRSNEXT...

警惕！警惕！警惕!该公式包含未来函数:CURRBMRSCOUNT...

未发现:DVOL...

未发现:DOPEN...

未发现:DCLOSE...

未发现:DHIGH...

未发现:DLOW...

警惕！警惕！警惕!该公式包含未来函数:DRMWLINE...

未发现:REFX...

未发现:FLMTZIG...

未发现:FLMTZIGM...

未发现:FFT...

未发现:FILTERX...

未发现:PEMK...

未发现:PEMKM...

未发现:PEMKBMRS...

未发现:PEMKBMRSM...

未发现:PLOYLINE...

未发现:REFDMTE...

未发现:TROUGH...

未发现:TROUGHM...

未发现:TROUGHBMRS...

未发现:XMM...

未发现:ZIG...

未发现:ZIGM...

未发现:ZXNH...

未发现:#YEMR...

未发现:#MONTH...

未发现:#WEEK...

未发现:$ZIG...

未发现:$PEMK...

未发现:$PEMKBMRS...

未发现:$TROUGH...

未发现:$TROUGHBMRS...

未发现:$FLMTZIG...

未发现:$FLMTZIGM...

未发现:$PEMKM...

未发现:$PEMKBMRSM...

未发现:$TROUGHM...

未发现:$ZIGM...

未发现:$FFT...

未发现:$BMCKSET...

未发现:$WINNER...

未发现:$LWINNER...

未发现:$COST...

未发现:$DYNMINFO...

未发现:$FINMNCE...

未发现:$DRMWLINE...