分享

「翔博精选指标」MA主图2021,做上升趋势的票 附用法说明(通达信公式 主图 源码 测试图)

 昵称73868802 2021-02-24
 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))<10  AND P1/C<20/100   AND ( COST(85) - COST(15))/( COST(85)+COST(15))/2<0.033  AND C>COST(70) 
AND  MA2>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; {股权变更转让相关信息 显示权字样};

你是否每天很想精准、 快速找到新增一线天筹码股?我来为你解密!一线天3.0选股指标 可以帮你搞定!见下图(天天有更新)一线天小圈子为你正面回答:免费! 免费 ! 免费!盘中不定时发文,但都会是重磅

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约