通达信龙脉战法主图指标公式

安装后如下图，友情提示（指标只是辅助，不作建议） 所有程序均为免费分享。

不会安装点击 安装指南 步骤操作。

龙脉:EMA(CLOSE,17),COLORYELLOW,LINETHICK2;
火龙:EMA(CLOSE,50),COLORRED,LINETHICK2; 
青龙:EMA(CLOSE,99),COLORGREEN;
孕龙:MA(CLOSE,181),COLORBLUE;
牛:=EMA(CLOSE,144)>=REF(EMA(CLOSE,144),1);DRAWKLINE(H,O,L,C);
DRAWTEXT((龙脉>=REF(龙脉,1) AND L<龙脉 AND C>龙脉) ,L, '★龙脉'),COLORYELLOW;
DRAWTEXT((青龙>=REF(青龙,1) AND 牛 AND L<青龙 AND H>青龙) AND ((CLOSE<REF(CLOSE,1) OR O>C)),L*0.98 , '●青龙'),COLORGREEN;
DRAWTEXT((火龙>=REF(火龙,1) AND 牛 AND L<火龙 AND H>火龙) {AND ((CLOSE<REF(CLOSE,1) OR O>C))},L*0.96  , '◆火龙'),COLORRED;
DRAWTEXT( (孕龙>=REF(孕龙,1) AND 牛 AND  L<孕龙 AND H>孕龙)AND ((CLOSE<REF(CLOSE,1) OR O>C)),L*0.94  , '●龙苗'),COLORBLUE;
总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'亿');
流通市值:=STRCAT(STRCAT(' 流通市值: ',CON2STR((CAPITAL/1000000)*C,2)),'亿');
全流通:=STRCAT(' 全流通: ',CON2STR((CAPITAL/1000000)/(TOTALCAPITAL/1000000),2));
市值Z:=STRCAT(STRCAT(' 流通市值Z: ',CON2STR(FINANCE(46)*C/100000000,2)),'亿');
股本市值:=STRCAT('股本市值: ',STRCAT(STRCAT(STRCAT(总股本,流通市值),全流通),市值Z));
{需要编写选股关注微信公众号：程序化指标}
净资收益率:=STRCAT(' 净资收益率: ',CON2STR(FINANCE(29)/FINANCE(19)*100,2));
毛利率:=STRCAT(' 毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));
主营利润率:=STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
当前业绩:=STRCAT('当前业绩: ',STRCAT(STRCAT(净资收益率,毛利率),主营利润率));
DRAWTEXT_FIX(ISLASTBAR,0.00,0.12,0,股本市值),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,0.00,0.18,0,当前业绩),COLORWHITE;

DRAWTEXT_FIX(ISLASTBAR,0.450,0.18,0,STRCAT('利润同比: ',CON2STR(FINANCE(43),2))),COLORCYAN;

{流通市值}
DRAWTEXT_FIX(1,0.710,0.96,0,STRCAT(STRCAT('流通市值Z：',CON2STR(FINANCE(46)*C/100000000,2)),'亿元'))COLORCYAN;