通达信版牛股主升 主副图2个指标源码 贴图

牛股主升 主副图2个指标 源码 通达信版 贴图

 牛股主图源码：

N:=89;M1:=3;M2:=3;
 AA:=100*(C-REF(C,1))/REF(C,1);
 BB:=100*(H-C)/REF(C,1);
 HH:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
 EE:=SMA(HH,M1,1);
 FF:=SMA(EE,M2,1);
 GG:=3*EE-2*FF;
 V5:=EMA(CLOSE,1);
 AE:=EMA(V5,5) ;
 AB:=EMA(HHV(AE,5),1);
 AJ:EMA(HHV(AB,17),1),COLORYELLOW,LINETHICK1;
 WJ:EMA(HHV(AJ,17),2),COLORBLUE;
 AF:EMA(HHV(WJ,17),3),COLORRED,LINETHICK1;
 ER:(1+6/100)*MA(CLOSE,25),COLORGREEN,LINETHICK1;
 {CC:=C<FF;
 OK: C>FF AND LAST(CC,22,1) AND AA>3 AND BB<3 AND GG<87 AND H!=L
 AND LAST(GG<80,20,1) AND LLV(GG,32)<3 AND GG>REF(GG,1)*1.25;};
 ZDT:=(C-REF(C,1))/REF(C,1)*100;
 STICKLINE(ZDT>6,O,C,0.5,0),COLORYELLOW;
 STICKLINE(ZDT<-9.8,O,C,0.5,0),COLOR00FF00;
涨停:=ZDT>7;
不破价:=REF(L,BARSLAST(涨停));

GP:=0;
满足返回:=TESTSKIP(PERIOD!=5);
总股本:=STRCAT(CON2STR(FINANCE(1)/100000000,2),' 亿');流通盘:=CON2STR(FINANCE(7)/100000000,2);
 OUTSJ:=STRCAT(STRCAT(STRCAT(IF(DYBLOCK=DRAWNULL,' ',DYBLOCK),STRCAT(' 总股本: ',IF(STRCMP(总股本,' ')=0,总股本,' '))),STRCAT(' ',IF(STRCMP(流通盘,' ')=0,STRCAT('流通盘: ',流通盘),''))),STRCAT(' ','亿'));
DRAWTEXT_FIX(GP=0,0.01,0.02,0,OUTSJ);

牛股副图：

N:=500;
 BJQD:=100*CLOSE/INDEXC;
 B:=SUM(BJQD,N)/N;
 XDQD1:=BJQD/B;
 XDQD:XDQD1/(SUM(XDQD1,60)/60),COLORFF33FF,LINETHICK2;
 B1:0.9,COLORBLUE;
 B2:1.0,COLORFFAA00,LINETHICK2;
 B3:1.12,COLORRED,LINETHICK2;
 DRAWICON(CROSS(XDQD,B3),B3,5);
 BF:=C>0.97*REF(C,BARSLAST(CROSS(B3,XDQD)+1)) AND (LONGCROSS(XDQD,B3,30));
 STICKLINE(BF,B1,B3,1,0),COLORRED;
 STICKLINE(LONGCROSS(B3,XDQD,20),B1,B3,1,0),COLORYELLOW;