通达信海阔龙脉战法主图 短线趋势两相宜 源码

龙脉战法 2021震撼登场！整合经典！阻击龙头起爆点！跟随市场总龙头！强者恒强 ！短线趋势两相宜
 申明：指标不是万能的，但能结合盘面预判走势。
 本指标，自己珍藏多年，已浮现市场总龙头、趋势龙、分支龙无数！！！
 万事万物皆周期，每个市场龙头、妖股孕育成龙、最终能否成为市场总龙头，建立自己的周期王朝，成王称帝，必然在股价运行中留下痕迹，本战法最重要的是龙脉线运用。
1、孕龙、青龙、火龙和龙脉线依次向上必须呈多头排列形式。
2、股价上穿或回踩龙脉线反身向上均为买点。
3、股价不破龙脉线可以一路持有。
4、结合板块、个股基本面、热点确定仓位。
5、本战法短线、趋势两相宜。
DF:=(C-REF(C,1))/REF(C,1)*100<-5 OR O/C>1.05;
神龙潜浮线:DRAWLINE(DF,O,REF(DF,1),REF(O,1),1),DOTLINE,COLORWHITE;

龙脉: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);
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;

DRAWTEXT_FIX(1,0.00,0.00,0,'主题概念：')COLORWHITE;
DRAWTEXT_FIX(1,0.08,0.00,0,EXTERNSTR(0,1))COLORWHITE;
DRAWTEXT_FIX(1,0.00,0.06,0,'主营业务：')COLORWHITE;
DRAWTEXT_FIX(1,0.08,0.06,0,EXTERNSTR(0,2))COLORWHITE;

总股本:=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;