DRAWGBK(C>O,RGB(10,0,0),RGB(0,0,0),1,2,1); DRAWKLINE(H,O,L,C); 安全:=MA(C,30),CIRCLEDOT,COLORFF00FF; 當(dāng)日成本:=IF(C>REF(C,1),(3*H+4*C+3*OPEN+2*L)/12,(2*H+4*C+3*OPEN+3*L)/12);
所屬板塊:=STRCAT('【所屬板塊】',STRCAT(STRCAT(STRCAT(' [行業(yè)]—',HYBLOCK),STRCAT(' [地域]—',DYBLOCK)),STRCAT(' [概念]—',GNBLOCK))); 總股本:=STRCAT(STRCAT(' 總股本:',CON2STR(TOTALCAPITAL/1000000,2)),'億'); 流通盤:=STRCAT(STRCAT(' 流通盤:',CON2STR(CAPITAL/1000000,2)),'億'); 全流通:=STRCAT(STRCAT(' 流通比:',CON2STR(CAPITAL/TOTALCAPITAL*100,2)),'%'); 市值:=STRCAT(STRCAT(' 流通市值:',CON2STR((CAPITAL/1000000)*C,2)),'億'); 上市日期:=STRCAT(' 上市日期: ',CON2STR(HHV((BARSCOUNT(C)=0)*(DATE+19000000),0),0)); 股本市值:=STRCAT('【股本市值】',STRCAT(STRCAT(STRCAT(STRCAT(總股本,流通盤),全流通),市值),上市日期)); 市盈率:=STRCAT(' 市盈率:',CON2STR(C/FINANCE(33),2)); 市銷率:=STRCAT(' 市銷率:',CON2STR(C/(FINANCE(20)/FINANCE(1)),2)); 市凈率:=STRCAT(' 市凈率:',CON2STR(C/FINANCE(34),2)); 凈資收益率:=STRCAT(' 凈資收益率:',CON2STR(FINANCE(33)/FINANCE(34)*100,2)); 毛利率:=STRCAT(' 毛利率:',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2)); 凈利潤(rùn)率:=STRCAT(' 凈利率:',CON2STR(FINANCE(30)/FINANCE(20)*100,2)); 主營(yíng)利潤(rùn)率:=STRCAT(' 主營(yíng)利潤(rùn)率:',CON2STR(FINANCE(23)/FINANCE(20)*100,2)); 當(dāng)前業(yè)績(jī):=STRCAT('【當(dāng)前業(yè)績(jī)】',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(市盈率,市銷率),市凈率),凈資收益率),毛利率),凈利潤(rùn)率),主營(yíng)利潤(rùn)率)); DRAWTEXT_FIX(ISLASTBAR,0.005,0.02,0,所屬板塊),COLORYELLOW; DRAWTEXT_FIX(ISLASTBAR,0.005,0.07,0,股本市值),COLORMAGENTA; DRAWTEXT_FIX(ISLASTBAR,0.005,0.12,0,當(dāng)前業(yè)績(jī)),COLORMAGENTA; DRAWTEXT_FIX(1,0.005,0.17,0,'蕕利比例:'),COLORYELLOW; DRAWNUMBER_FIX(1,0.06,0.17,0,CONST(WINNER(C )*100)),COLORYELLOW; DRAWNUMBER_FIX(1,0.15,0.17,0,CONST(DYNAINFO(37)*100)),COLORYELLOW; DRAWTEXT_FIX (1,0.12,0.17,0,'換手:'),COLORYELLOW; DRAWNUMBER_FIX(1,0.25,0.17,0,CONST(DYNAINFO(17))),COLORYELLOW; DRAWTEXT_FIX (1,0.22,0.17,0,'量比:'),COLORYELLOW; DRAWTEXT_FIX (1,0.30,0.17,0,'漲幅:'),COLORYELLOW; DRAWNUMBER_FIX(1,0.33,0.17,0,CONST(DYNAINFO(14)*100)),COLORYELLOW; DRAWNUMBER_FIX(1,0.33,0.17,0,IF(CONST(DYNAINFO(14)*100)<0,CONST(DYNAINFO(14)*100),DRAWNULL)),COLORYELLOW; X1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2; X2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4; X3:=FINANCE(23)/FINANCE(10)*3.3; X4:=FINANCE(19)/FINANCE(15)*0.6; X5:=FINANCE(20)/FINANCE(15)*0.999; Z值:=X1+X2+X3+X4+X5; 預(yù)警:=IF(Z值<1.2,'重警',IF(Z值>=1.2 AND Z值<2.6,'輕警','無(wú)警')); 財(cái)務(wù)預(yù)警:=STRCAT('財(cái)務(wù)預(yù)警: ',STRCAT(預(yù)警,STRCAT('-Z值: ',CON2STR(Z值,3)))); 優(yōu)質(zhì)資產(chǎn)率:=STRCAT(' 優(yōu)質(zhì)資產(chǎn)率: ',CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2)); 現(xiàn)金負(fù)債比:=STRCAT(' 現(xiàn)金負(fù)債比: ',CON2STR(FINANCE(25)/FINANCE(15),3)); 財(cái)務(wù)系數(shù):=STRCAT('風(fēng)險(xiǎn)系數(shù): ',STRCAT(STRCAT(財(cái)務(wù)預(yù)警,優(yōu)質(zhì)資產(chǎn)率),現(xiàn)金負(fù)債比)); DRAWTEXT_FIX(ISLASTBAR,0.005,0.23,0,財(cái)務(wù)系數(shù)),COLORGREEN;
龍一:EMA(H,55),COLORGREEN,LINETHICK1; 龍二:EMA(L,55),COLORGREEN,LINETHICK1; NA1:=PLOYLINE(C>龍一,龍一); IF(C>龍一,NA1,DRAWNULL),COLORMAGENTA,LINETHICK1; NB1:=PLOYLINE(C>龍二,龍二); IF(C>龍二,NB1,DRAWNULL),COLORMAGENTA,LINETHICK1;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; K:=SMA(RSV,3,1); D:=SMA(K,3,1); J:=3*K-2*D; DRAWICON(CROSS(J,0),L*0.999,34); DRAWICON(CROSS(100,J),H*1.003,35);
A1:=C>REF(C,4); A2:=C<REF(C,4); T1:=A2 AND REF(A1,1); T2:=A2 AND REF(T1,1); T3:=A2 AND REF(T2,1); T4:=A2 AND REF(T3,1); T5:=A2 AND REF(T4,1); T6:=A2 AND REF(T5,1); T7:=A2 AND REF(T6,1); T8:=A2 AND REF(T7,1); T9:=A2 AND REF(T8,1); DRAWTEXT(T6,L*0.995,'6'),COLORGREEN; DRAWTEXT(T7,L*0.995,'7'),COLORGREEN; DRAWTEXT(T8,L*0.995,'8'),COLORGREEN; DRAWTEXT(T9,L*0.995,'9'),COLORGREEN; B1:=C<REF(C,4); B2:=C>REF(C,4); D1:=B2 AND REF(B1,1); D2:=B2 AND REF(D1,1); D3:=B2 AND REF(D2,1); D4:=B2 AND REF(D3,1); D5:=B2 AND REF(D4,1); D6:=B2 AND REF(D5,1); D7:=B2 AND REF(D6,1); D8:=B2 AND REF(D7,1); D9:=B2 AND REF(D8,1); DRAWTEXT(D6,H*1.008,'6'),COLORYELLOW; DRAWTEXT(D7,H*1.008,'7'),COLORYELLOW; DRAWTEXT(D8,H*1.008,'8'),COLORYELLOW; DRAWTEXT(D9,H*1.008,'9'),COLORYELLOW; 慢牛線:=EXPMEMA(當(dāng)日成本,51),LINETHICK2,COLORMAGENTA; 波段高:(XMA(XMA(HIGH,30),30)-XMA(XMA(LOW,30),30))*2+XMA(XMA(HIGH,30),30),COLORWHITE,LINETHICK1; 波段低:XMA(XMA(LOW,30),30)-(XMA(XMA(HIGH,30),30)-XMA(XMA(LOW,30),30))*1.5,COLORWHITE,LINETHICK1; 波段中值:(波段高+波段低)/2,DOTLINE,COLOR909090; IF(波段高>=REF(波段高,1),波段高,DRAWNULL),COLORRED,LINETHICK2; IF(波段低>=REF(波段低,1),波段低,DRAWNULL),COLORRED,LINETHICK2; IF(波段高<=REF(波段高,1),波段高,DRAWNULL),COLOR008800,LINETHICK3; IF(波段低<=REF(波段低,1),波段低,DRAWNULL),COLOR008800,LINETHICK3; STICKLINE(REF(LOW,1)<波段低 AND CLOSE>波段低 AND 波段高>=REF(波段高,1) AND CLOSE>OPEN,CLOSE,OPEN,(-1),0),COLORYELLOW; STICKLINE(REF(HIGH,1)>=波段高 AND REF(CLOSE,1)>REF(OPEN,1) AND CLOSE<OPEN,CLOSE,OPEN,(-1),0),COLORFF6600; DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
|