牛股主升 主副圖2個指標(biāo) 源碼 通達(dá)信版 貼圖

 牛股主圖源碼：

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;