MA主图2021，做上升趋势的票 附用法说明（通达信公式 主图 源码 测试图）
MA1:=MA(C,5);MA2:=MA(C,10);MA3:=MA(C,20);P1:=ABS(MA1-MA2)+ABS(MA2-MA3);B1:=HHV(HIGH,250);B2:=LLV(LOW,250);B3:=B1-B2;DRAWICON(PERIOD=5 AND COST(10)/(COST(80)-COST(10))<10AND P1/C<20/100 AND ( COST(85) - COST(15))/( COST(85)+COST(15))/2<0.033AND C>COST(70) ANDMA2>MA3 AND MA(C,20)>MA(C,55) AND (ABS(REF(MA(CLOSE,240),55)-MA(CLOSE,240))/55<0.0123 ) AND C/MA(C,20)<1.12 AND L/MA(C,30)<1.05 ,L*0.995,5);W05:=(5*C+4*REF(C,1)+3*REF(C,2)+2*REF(C,3)+REF(C,4))/15,COLORAAAAAA; HHJSJDA:=(3*CLOSE+OPEN+LOW+HIGH)/6;多空线:=(20*HHJSJDA+19*REF(HHJSJDA,1)+18*REF(HHJSJDA,2)+17*REF(HHJSJDA,3)+16*REF(HHJSJDA,4)+15*REF(HHJSJDA,5)+14*REF(HHJSJDA,6)+13*REF(HHJSJDA,7)+12*REF(HHJSJDA,8)+11*REF(HHJSJDA,9)+10*REF(HHJSJDA,10)+9*REF(HHJSJDA,11)+8*REF(HHJSJDA,12)+7*REF(HHJSJDA,13)+6*REF(HHJSJDA,14)+5*REF(HHJSJDA,15)+4*REF(HHJSJDA,16)+3*REF(HHJSJDA,17)+2*REF(HHJSJDA,18)+REF(HHJSJDA,20))/210,COLORAAAAFF;DRAWTEXT(CURRBARSCOUNT=2,(C+O)/2,EXTERNSTR(0,9995))COLORYELLOW;{ST特殊提示};大宗金额:=INTPART(TDXDLL1(1,DATE,9989,STR2CON(CODE))),COLORYELLOW,NODRAW;DRAWTEXT(TDXDLL1(1,DATE,9990,STR2CON(CODE))>=0,L*0.989,VARCAT('宗',VAR2STR(大宗金额,0))),COLORYELLOW; {溢价大宗交易}DRAWTEXT(TDXDLL1(1,DATE,9990,STR2CON(CODE))<0,L*0.989,VARCAT('宗',VAR2STR(大宗金额,0))),COLORGREEN; {折价大宗交易}DRAWTEXT(CURRBARSCOUNT=1,(MIN(C,O)+L)/2*0.985,EXTERNSTR(0,9997));{ 涨停原因}DRAWTEXT(CURRBARSCOUNT=1,(MIN(C,O)+L)/2*0.965,EXTERNSTR(0,9885))COLORFF00FF;{选股宝 涨停原因}DRAWTEXT_FIX(1,0.02,0.05,0,'板块：')COLOR0000FF;DRAWTEXT_FIX(1,0.06,0.05,0,STRCAT(STRCAT(STRCAT(STRCAT(HYBLOCK,'_____'),GNBLOCK),'__'),DYBLOCK))COLOR0000FF; {板块信息}DRAWTEXT_FIX(1,0.02,0.10,0,'同花：')COLORLIGREEN; {同花顺}DRAWTEXT_FIX(1,0.06,0.10,0,EXTERNSTR(0,9886))COLORLIGREEN;DRAWTEXT_FIX(1,0.02,0.15,0,'主营：')COLORFF00FF; DRAWTEXT_FIX(1,0.06,0.15,0,EXTERNSTR(0,9996))COLORFF00FF; {上市公司主营}DRAWTEXT_FIX(1,0.02,0.20,0,'涨停：')COLOR0000FF;DRAWTEXT_FIX(1,0.06,0.25,0,EXTERNSTR(0,9885))COLORFF00FF;{最近涨停信息:对应板块的信息}DRAWTEXT_FIX(1,0.06,0.20,0,STRCAT(STRCAT(STRCAT(STRCAT(EXTERNSTR(0,9882),'首封时间__'),EXTERNSTR(0,9883)),'末封时间______'),EXTERNSTR(0,9884)))COLORRED; {最近涨停信息:包括首次涨停,最后涨停和个股对应新闻}商誉:=FINVALUE(35)/100000000 NODRAW;商誉占净资产率:=FINVALUE(35)/FINVALUE(72)*100 NODRAW;DRAWTEXT_FIX(1,0.02,0.30,0,'商誉：')COLORFF00FF;DRAWTEXT_FIX(1,0.06,0.30,0,STRCAT(STRCAT(VAR2STR(商誉,2),' 亿,占比资产率：'),VAR2STR(商誉占净资产率,2)))COLORFF00FF;{商誉信息,需要下载通达信自带的专业财务数据}十大流通占比:=FINONE(244,0,0)/CAPITAL NODRAW;DRAWTEXT_FIX(1,0.02,0,0,'十大流通股东占比：')COLORLIGREEN;DRAWTEXT_FIX(1,0.12,0,0,VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(十大流通占比,2),'%__自由市值__'),VAR2STR(C*FINANCE(46)/100000000,2)),'__流通__'),VAR2STR(C*CAPITAL/1000000,2)))COLORYELLOW;DRAWTEXT_FIX(1,0.02,0.40,0,'游资：')COLOR0000FF;DRAWTEXT_FIX(1,0.06,0.40,0,EXTERNSTR(0,9701))COLOR0000FF; {游资协战席位}DRAWTEXT_FIX(1,0.02,0.45,0,' ')COLOR0000FF; {未来三个月内有解禁}DRAWTEXT_FIX(1,0.06,0.45,0,EXTERNSTR(0,901))COLOR0000FF;DRAWTEXT(TDXDLL1(1,DATE,9001,999999)>0,L-0.04,'盘'),COLORRED; {大盘异动标准大于1.5}DRAWTEXT(TDXDLL1(1,DATE,9001,999999)<0,L-0.04,'盘'),COLORGREEN;DRAWTEXT(TDXDLL1(1,DATE,9999,STR2CON(CODE))>0,H*1.011,'↙涨'),COLORRED; {竞价涨停}DRAWTEXT(TDXDLL1(1,DATE,9999,STR2CON(CODE))<0,H*1.011,'↙跌'),COLORLIGREEN; {竞价跌停}DRAWTEXT(TDXDLL1(1,DATE,9991,STR2CON(CODE))=1,H*1.012,'增'),COLORFF00FF; {增持}DRAWTEXT(TDXDLL1(1,DATE,9991,STR2CON(CODE))=-1,L*0.990,'减'),COLORGREEN; {减持}DRAWICON(触板,H*1.025,43);{炸板表示一个空字样 TDXDLL1(1,DATE,9002,STR2CON(CODE))=0};STRLONGHU:=TDXDLL1(1,DATE,9888,STR2CON(CODE))NODRAW;{当日龙虎榜净额}DRAWNUMBER(STRLONGHU>0,(O+C)/2,INTPART(STRLONGHU))COLORYELLOW;{黄色为流入}DRAWNUMBER(STRLONGHU<0,(O+C)/2,INTPART(STRLONGHU))COLORWHITE;{白色为流出}STRLONGHU3WZ:=IF(MAX(C,O)/MIN(C,O)<1.02 AND C/REF(C,1)>1.0975,C*0.98,MIN(C,O)-(MIN(C,O)-L)/2)NODRAW;STRLONGHU3:=TDXDLL1(1,DATE,9889,STR2CON(CODE))NODRAW;{三天龙虎榜净额}DRAWNUMBER(STRLONGHU3>0,STRLONGHU3WZ,INTPART(STRLONGHU3))COLORYELLOW;{ 三天黄色为流入}DRAWNUMBER(STRLONGHU3<0,STRLONGHU3WZ,INTPART(STRLONGHU3))COLORWHITE;{ 三天白色为流出};STRINFO:=IF(MAX(C,O)/MIN(C,O)<1.04,(O+C)/2+(MAX(C,O)-L)/2,(O+C)/2+((MAX(C,O)-(O+C)/2))/2)NODRAW;{龙虎榜成交占比}STRINFONEW:=IF(C=O AND C/REF(C,1)>1.0981,C*1.02,STRINFO)NODRAW;DRAWNUMBER(STRLONGHU>0,STRINFONEW,ROUND2(STRLONGHU/(AMOUNT/10000)*100,2))COLORYELLOW;DRAWNUMBER(STRLONGHU<0,STRINFONEW,ROUND2(STRLONGHU/(AMOUNT/10000)*100,2))COLORWHITE;DRAWTEXT(TDXDLL1(1,DATE,9992,STR2CON(CODE))=1 AND TDXDLL1(1,DATE,9991,STR2CON(CODE))<>1,H*1.020,'拟'),COLORFF00FF; {拟增持}DRAWTEXT(TDXDLL1(1,DATE,9992,STR2CON(CODE))=-1 AND TDXDLL1(1,DATE,9991,STR2CON(CODE))<>-1,L*0.980,'拟'),COLORGREEN; {拟减持}DRAWTEXT(TDXDLL1(1,DATE,9995,STR2CON(CODE))=0,L*0.970,'重'),COLORFF00FF; {重组进展相关信息 显示重字样}DRAWTEXT(TDXDLL1(1,DATE,9886,STR2CON(CODE))=0,L*0.960,'权'),COLORFF00FF; {股权变更转让相关信息 显示权字样}DRAWNUMBER(TDXDLL1(1,DATE,9887,STR2CON(CODE))>=0,(MIN(C,O)+L)/2*0.965,TDXDLL1(1,DATE,9887,STR2CON(CODE)) )COLORYELLOW;{涨停打开次数位于涨停板下影线下方，0为未打开};X_A1:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100)/3;逃命顶:=X_A1>20 AND FILTER(X_A1<REF(X_A1,1),5),COLORYELLOW;DRAWTEXT(FILTER(逃命顶,3),MAX(C,O),'逃命顶')COLORCYAN;DRAWTEXT(TDXDLL1(1,DATE,9990,STR2CON(CODE))>=0,L*0.989,'宗'),COLORYELLOW; {溢价大宗交易}DRAWTEXT(TDXDLL1(1,DATE,9990,STR2CON(CODE))<0,L*0.989,'宗'),COLORLIGREEN; {折价大宗交易}DRAWTEXT(CURRBARSCOUNT=1,(MIN(C,O)+L)/2*0.995,EXTERNSTR(0,9997));{ 涨停原因}{DRAWTEXT_FIX(1,0.35,0.05,0,'板块：')COLOR0000FF;DRAWTEXT_FIX(1,0.39,0.05,0,STRCAT(STRCAT(STRCAT(STRCAT(HYBLOCK,'_____'),GNBLOCK),'__'),DYBLOCK))COLOR0000FF; {板块信息}{DRAWTEXT_FIX(1,0.35,0.10,0,'同花：')COLORLIGREEN; {同花顺}{DRAWTEXT_FIX(1,0.39,0.10,0,EXTERNSTR(0,9886))COLORLIGREEN;DRAWTEXT_FIX(1,0.35,0.15,0,'主营：')COLORFF00FF; DRAWTEXT_FIX(1,0.39,0.15,0,EXTERNSTR(0,9996))COLORFF00FF; {上市公司主营}{DRAWTEXT_FIX(1,0.35,0.20,0,'涨停：')COLOR0000FF;DRAWTEXT_FIX(1,0.39,0.20,0,STRCAT(STRCAT(STRCAT(STRCAT(EXTERNSTR(0,9882),'首封时间__'),EXTERNSTR(0,9883)),'末封时间______'),EXTERNSTR(0,9884)))COLORRED; {最近涨停信息:包括首次涨停,最后涨停和个股对应新闻}{DRAWTEXT_FIX(1,0.39,0.25,0,EXTERNSTR(0,9885))COLORFF00FF;{最近涨停信息:对应板块的信息}DRAWTEXT_FIX(1,0.02,0.35,0,'解禁： ')COLORLIGREEN; {未来三个月内有解禁}DRAWTEXT_FIX(1,0.06,0.35,0,EXTERNSTR(0,901))COLORLIGREEN;DRAWTEXT(TDXDLL1(1,DATE,9001,999999)>0,L-0.04,'盘'),COLORRED; {大盘异动涨标记大于1.5 ↙↖}DRAWTEXT(TDXDLL1(1,DATE,9001,999999)<0,L-0.04,'盘'),COLORGREEN; {大盘异动跌标记}DRAWTEXT(TDXDLL1(1,DATE,9999,STR2CON(CODE))>0,H*1.011,'↙涨'),COLORRED; {竞价涨停}DRAWTEXT(TDXDLL1(1,DATE,9999,STR2CON(CODE))<0,H*1.011,'↙跌'),COLORLIGREEN; {竞价跌停}DRAWTEXT(TDXDLL1(1,DATE,9991,STR2CON(CODE))=1,H*1.012,'增'),COLORFF00FF; {增持}DRAWTEXT(TDXDLL1(1,DATE,9991,STR2CON(CODE))=-1,L*0.990,'减'),COLORBLUE; {减持}DRAWICON(TDXDLL1(1,DATE,9002,STR2CON(CODE))=0,H*1.025,43);{炸板，上面显示图标空字};{STRLONGHU:=TDXDLL1(1,DATE,9888,STR2CON(CODE))NODRAW;{当日龙虎榜净额，在实体K线中间}DRAWNUMBER(STRLONGHU>0,(O+C)/2,INTPART(STRLONGHU))COLORYELLOW;{黄色为流入}DRAWNUMBER(STRLONGHU<0,(O+C)/2,INTPART(STRLONGHU))COLORWHITE;{白色为流出}STRLONGHUST:=TDXDLL1(1,DATE,9889,STR2CON(CODE))NODRAW;{三天龙虎榜净额，在实体K线最下面}DRAWNUMBER(STRLONGHUST>0, MIN(C,O),INTPART(STRLONGHUST))COLORYELLOW;{ 三天黄色为流入}DRAWNUMBER(STRLONGHUST<0, MIN(C,O),INTPART(STRLONGHUST))COLORWHITE;{ 三天白色为流出};DRAWTEXT(CURRBARSCOUNT=1,(H+L)/2,EXTERNSTR(0,9995))COLORYELLOW;{特殊提示，如即将ST} DRAWTEXT(TDXDLL1(1,DATE,9992,STR2CON(CODE))=1 AND TDXDLL1(1,DATE,9991,STR2CON(CODE))<>1,H*1.020,'拟'),COLORFF00FF; {黄色拟增持}DRAWTEXT(TDXDLL1(1,DATE,9992,STR2CON(CODE))=-1 AND TDXDLL1(1,DATE,9991,STR2CON(CODE))<>-1,L*0.988,'拟'),COLORBLUE; {蓝色拟减持}DRAWTEXT(TDXDLL1(1,DATE,9995,STR2CON(CODE))=0,L*0.970,'重'),COLORFF00FF; {重组进展相关信息 显示重字样}DRAWNUMBER(TDXDLL1(1,DATE,9887,STR2CON(CODE))>=0,(MIN(C,O)+L)/2*0.975,TDXDLL1(1,DATE,9887,STR2CON(CODE)) )COLORYELLOW;{涨停打开次数位于涨停板下影线下方，0为未打开}{DRAWTEXT_FIX(1,0.22,0.93,0,'最近涨停分析：')COLOR0000FF;DRAWTEXT_FIX(1,0.30,0.93,0,STRCAT(STRCAT(STRCAT(STRCAT(EXTERNSTR(0,9882),'首封时间__'),EXTERNSTR(0,9883)),'末封时间______'),EXTERNSTR(0,9884)))COLORFF00FF; {最近涨停信息:包括首次涨停,最后涨停和个股对应新闻}{DRAWTEXT_FIX(1,0.30,0.97,0,EXTERNSTR(0,9885))COLORFF00FF;{最近涨停信息:对应板块的信息}
DRAWTEXT(TDXDLL1(1,DATE,9886,STR2CON(CODE))=0,L*0.960,'权'),COLORFF00FF; {股权变更转让相关信息 显示权字样};
牛的一批！ 找了很久了，多谢！ 感谢感谢！楼主功德无量，哈哈！ 多谢分享！ 不错的内容！
页:
[1]