打印本文
關閉窗口
DRAWBAND(20,RGB(25,60,68),10,RGB(0,0,0));
DRAWBAND(90,RGB(25,60,68),80,RGB(0,0,0));
DPK30:=SMA(((INDEXC-LLV(INDEXL,30))/(HHV(INDEXH,30)-LLV(INDEXL,30))*100),3,1),COLORGRAY;
K30:=SMA(((CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100),3,1);
關注區:IF(K30>DPK30 AND K30>=50,46,DRAWNULL),CIRCLEDOT,COLORFF00FF;
STICKLINE(K30>=50,50,K30,3,0),COLOR000080;
STICKLINE(K30>=50,50,K30,2,0),COLOR0000A6;
STICKLINE(K30>=50,50,K30,1,0),COLOR0000CE;
STICKLINE(K30>=50,50,K30,0,0),COLOR0000FF;
STICKLINE(K30<50,50,K30,3,0),COLOR800000;
STICKLINE(K30<50,50,K30,2,0),COLORB00000;
STICKLINE(K30<50,50,K30,1,0),COLORD50000;
STICKLINE(K30<50,50,K30,0,0),COLORFF0000;
{DRAWBAND(K30,RGB(150,20,20),50,RGB(10,150,20));}
個股:K30,NODRAW,COLORRED;
大盤:DPK30,COLORYELLOW,DOTLINE;
K250:SMA(((CLOSE-LLV(LOW,250))/(HHV(HIGH,250)-LLV(LOW,250))*100),3,1),COLORGREEN;
DRAWICON(CROSS(90,K30),K30,2);
DRAWICON(CROSS(K30,大盤) AND K30<50,K30,1);
DRAWTEXT(CROSS(K30,K250),42,'轉強');
DRAWTEXT(FILTER(CROSS(10,K30),20),42,'吸'),COLOR00C0FF;
DRAWTEXT(FILTER(CROSS(10,K30),20),30,'籌'),COLORFFFF6F;
DRAWTEXT(FILTER(CROSS(10,K30),20),20,'區'), COLORB47DFF;
A1:=LLV(LOW,6)=LLV(LOW,41) AND LLV(LOW,6)<HHV(LOW,41)*71/100;
B2:=HIGH>LOW*1.033;DRAWICON(A1>0 AND B2,86,1);
{年月日星期}
D1:=YEAR AND MONTH AND DAY ;
AA1:=STRCAT(CON2STR(YEAR,0),'年');
AA2:=STRCAT(CON2STR(MONTH,0),'月');
AA3:=STRCAT(CON2STR(DAY,0),'日');
AA4:=STRCAT('星期',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',
IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',
IF(WEEKDAY=6,'六','日')))))));
AA:=STRCAT(STRCAT(STRCAT(AA1,AA2),STRCAT(AA3,AA4)),'');
DRAWTEXT_FIX(D1,0.01,0.03,0,AA),COLORMAGENTA;
{風險系數}
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;
預警:=IF(Z值<1.2,'重警',IF(Z值>=1.2 AND Z值<2.6,'輕警','無警'));
財務預警:=STRCAT('財務預警: ',STRCAT(預警,STRCAT('-Z值: ',CON2STR(Z值,3))));
優質資產率:=STRCAT(' 優質資產率: ',CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2));{理論上越大越好但不同行業有不同標準};
現金負債比:=STRCAT(' 現金負債比: ',CON2STR(FINANCE(25)/FINANCE(15),3));{缺長期負債或負債總額，理論上越大越好但不同行業有不同標準};
財務系數:=STRCAT('風險系數: ',STRCAT(STRCAT(財務預警,優質資產率),現金負債比));
DRAWTEXT_FIX(ISLASTBAR,0.00,0.82,0,財務系數),COLORYELLOW;
http://www.gushow.com/plus/view.php?aid=3675