通达信牛魔王A主图指标公式源码

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

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

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

　　市值:=STRCAT(STRCAT(' 流通市值: ',CON2STR((CAPITAL/1000000)*C,2)),'亿');

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

　　{业绩}

　　净资收益率:=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.005,0.06,0,所属板块),COLORYELLOW;

　　DRAWTEXT_FIX(ISLASTBAR,0.005,0.12,0,股本市值),COLORGREEN;

　　DRAWTEXT_FIX(ISLASTBAR,0.005,0.18,0,当前业绩),COLORGREEN;

　　ZT:=C=ZTPRICE(REF(C,1),0.1) AND C=H;

　　ZT1:=C=ZTPRICE(REF(C,1),0.2) AND C=H;

　　DT:=C=DTPRICE(REF(C,1),0.1) AND C=L;

　　DT1:=C=DTPRICE(REF(C,1),0.2) AND C=L;

　　STICKLINE(DT OR DT1,O,C,-1,0),COLORBLUE;

　　STICKLINE(DT OR DT1,H,L,0,0),COLORBLUE;

　　ma5:=MA(CLOSE,5);

　　DIR2:=Abs(CLOSE-REF(CLOSE,30));

　　VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),30);

　　ER2:=DIR2/VIR2;

　　CS2:=ER2*(0.8-2/24)+2/24;

　　CQ2:=CS2*CS2;

　　AMA2:EMA(DMA(CLOSE,CQ2),2),COLORGREEN,LINETHICK1;

　　牛熊分界:AMA2;

　　AMA3:IF(AMA2/REF(AMA2,1)>0.997,AMA2,DRAWNULL),COLORBLUE,LINETHICK1;

　　AMA4:IF(AMA2/REF(AMA2,1)>1.001,AMA2,DRAWNULL),COLORRED,LINETHICK1;

　　M168:MA(C,168),COLORRED,LINETHICK2;

　　XX1:=C>牛熊分界 AND 牛熊分界>REF(牛熊分界,1);

　　DRAWTEXT_FIX(ISLASTBAR AND XX1,0.1,0.01,0,'【牛区持股】'),COLORRED;

　　XX2:=C<牛熊分界 AND 牛熊分界<=REF(牛熊分界,1);

　　DRAWTEXT_FIX(ISLASTBAR AND XX2,0.1,0.01,0,'【熊区观望】'),COLORGREEN;

　　AA1:=ABS(((3.48*CLOSE+HIGH+LOW)/4-EMA(CLOSE,20))/EMA(CLOSE,20));

　　AA2:=DMA(((2.15*CLOSE+LOW+HIGH)/4),AA1);

　　牛魔王:EMA(AA2,200)*1.118 ,LINETHICK5,COLORD30094;