|
均:SUM(CLOSE*VOL,FROMOPEN)/SUM(VOL,FROMOPEN),COLORYELLOW,DOTLINE;
最新1:CLOSE,LINETHICK2,COLORWHITE;
{能量豎線}
MA25:=EMA(CLOSE,25);
強(qiáng)弱:EMA(CLOSE,905);
IF(MA25>強(qiáng)弱,MA25,DRAWNULL),COLOR0000FF;
IF(MA25<強(qiáng)弱,MA25,DRAWNULL),COLOR00FF00;
STICKLINE((MA25 >強(qiáng)弱),MA25,強(qiáng)弱,0,0),COLOR0000FF;
STICKLINE((MA25 >強(qiáng)弱)AND MA25<REF(MA25,1),MA25,強(qiáng)弱,0,0),COLORYELLOW;
STICKLINE((MA25 >強(qiáng)弱)AND 強(qiáng)弱<REF(強(qiáng)弱,1),MA25,強(qiáng)弱,0,0),COLORCYAN;
STICKLINE((MA25 <強(qiáng)弱),MA25,強(qiáng)弱,0,0),COLOR00FF00;
STICKLINE((MA25 <強(qiáng)弱)AND MA25>REF(MA25,1),MA25,強(qiáng)弱,0,0),COLORCYAN;
STICKLINE((MA25 <強(qiáng)弱)AND 強(qiáng)弱>REF(強(qiáng)弱,1),MA25,強(qiáng)弱,0,0),COLORLIRED;
DRAWICON(CROSS(MA25,強(qiáng)弱),強(qiáng)弱*0.99,0);
{區(qū)間線、買賣標(biāo)志}
H1:=MAX(DYNAINFO(3),DYNAINFO(5));
L1:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H1-L1;
T1:(L1+P1*8.5/9),COLORFFFFFF;{白色頂線}
阻力:(L1+P1*7/9),COLOR00DD00;{綠色00DD00阻力線}
Z:(L1+P1*4.5/9),COLORWHITE,LINETHICK1,POINTDOT;{紅000099中線}
B:(L1+P1*2.0/9),COLORYELLOW;{支撐線}
支撐:(L1+P1*0.5/9),COLORFFFFFF;{白色FFFFFF底線}
現(xiàn)價:=CLOSE,COLORYELLOW;
{DRAWTEXT( ISLASTBAR AND 現(xiàn)價,現(xiàn)價,STRCAT('←',CON2STR(現(xiàn)價,2))),COLORYELLOW;{分時線價格標(biāo)注}
STICKLINE(CROSS(支撐,現(xiàn)價),Z,支撐,1,0),COLORMAGENTA;
DRAWTEXT(LONGCROSS(支撐,現(xiàn)價,2),支撐*1.001,'☆買'),COLORMAGENTA;{吸}
DRAWTEXT(LONGCROSS(現(xiàn)價,阻力,2),現(xiàn)價,'★賣'),COLORGREEN;{拋};
DRAWICON(CROSS(現(xiàn)價,T1),現(xiàn)價*0.999,8);
{DRAWTEXT(CROSS(現(xiàn)價,B),支撐,'買')COLORWHITE;}
STICKLINE(FILTER(C,60)>0,T1,支撐,0.5,0),COLORRED;{時間分割線};
DRAWTEXT(CURRBARSCOUNT=8,T1+0.003,'頂'),COLORGREEN,LINETHICK1;
DRAWTEXT(CURRBARSCOUNT=8,支撐-0.003,'底'),COLORLIRED,LINETHICK1;
DRAWTEXT(CURRBARSCOUNT=8,Z,'中'),COLORWHITE,LINETHICK1;
最新:CLOSE,LINETHICK2,COLORWHITE;
AA:=SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C));
BB:=BETWEEN(C/AA,C+H,C-H);
DRAWTEXT( ISLASTBAR AND 最新>REF(最新,1),最新,STRCAT(' 漲▲',CON2STR(最新,2))),COLORMAGENTA;
DRAWTEXT( ISLASTBAR AND 最新<REF(最新,1),最新,STRCAT(' 跌▼',CON2STR(最新,2))),COLOR00FF00;
均價:=SUM(C*V,240)/SUM(V,240),COLORYELLOW,LINETHICK2,DOTLINE;
TT:=BARSCOUNT(C);
前高:=REF(HHV(H,TT),1);
突破:=CROSS(C,REF(HHV(H,TT),1)){ AND HHVBARS(VOL,TT)=0} AND C/均價<1.09 AND TT>1 AND TT<240;
DRAWTEXT(CROSS(C,REF(HHV(H,TT),1)) AND {HHVBARS(VOL,TT)=0 AND} C/均價<1.09 AND TT>=1 AND TT<240 ,前高, '←突'),COLORRED;
主力掃盤:=COUNT(突破,13)>=3 AND CROSS(C,REF(HHV(H,TT),1)){ AND HHVBARS(VOL,TT)=0};
DRAWTEXT(主力掃盤,前高, '←掃盤'),COLORYELLOW;
{已主力掃盤:=BARSLAST(主力掃盤)<13;
DRAWTEXT(BARSLAST(主力掃盤)<8,(DYNAINFO(3))*9.5/10 , '↖已掃'),COLORGREEN;}
全倉買進(jìn):=CROSS(C,REF(HHV(H,TT),1)) AND HHVBARS(VOL,TT)=0 AND C/均價<1.09 AND TT>1 AND TT<240 AND BARSLAST(主力掃盤)>=21;
DRAWTEXT(全倉買進(jìn) ,前高, '←全倉'),COLORCYAN;
VAR1:=EMA(EMA(C,13),13);
控盤:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
JJ:=DYNAINFO(11);
P:=55;
S:=8;
M1:=3;
能量:=(EMA(C,S)-EMA(C,P))*10;
空頭:=EMA(能量,M1);
BTJ11:=(C-JJ)/JJ<-0.03;
BTJ2:=控盤>REF(控盤,1) AND 控盤<-0.2;
BTJ3:=CROSS(能量,空頭) AND 能量<-0.3;
BTJ811:=FILTER(BTJ11 AND BTJ2 AND BTJ3,13);
有莊:=BTJ811;
DRAWTEXT(BTJ811,C*0.999,'←有莊'),COLORRED;
HHH1:=MAX(DYNAINFO(3),DYNAINFO(5));
LLL1:=MIN(DYNAINFO(3),DYNAINFO(6));
PPP1:=HHH1-LLL1;
阻力6:=LLL1+PPP1*7/8,COLORGREEN;
支撐6:=LLL1+PPP1*0.5/8,COLORMAGENTA;
{DRAWICON(LONGCROSS(支撐,C,2),C,5);
DRAWICON(LONGCROSS(C,阻力,2),C,6);}
{資金流入:=SUM(IF(C>REF(C,1),C*V,0),FROMOPEN);
資金流出:=-SUM(IF(C<REF(C,1),C*V,0),FROMOPEN);
凈資金:=(資金流入+資金流出)/10000;
{DRAWTEXT_FIX(1,0.700,1-0.15,0,STRCAT(STRCAT('【凈買】',CON2STR(凈資金,1)),'萬')),COLORRED;}
KP:=DYNAINFO(4);
ZX:=DYNAINFO(7);
分時頂:HHV(H,480),COLORRED,DOTLINE;
分時底:LLV(L,480),COLORGREEN,DOTLINE;
{DRAWICON(FILTER(CROSS(C,DYNAINFO(3)*1.1-0.01),60),C,1);}
DRAWNUMBER(FILTER(CROSS(C,DYNAINFO(3)*1.1-0.01),60),C*0.99,TIME);
DRAWNUMBER(FILTER(CROSS(C,DYNAINFO(3)*1.1-0.01),60),C*0.98,C),COLORYELLOW;
{乖離主圖}
IF(MACD.DEA<0,CLOSE,DRAWNULL),COLORYELLOW,LINETHICK9;{畫加倉黃線}
XA_1:=MAX(DYNAINFO(3),DYNAINFO(5));
XA_2:=MIN(DYNAINFO(3),DYNAINFO(6));
XA_3:=XA_1-XA_2;
XA_4:=XA_2+XA_3*7/8;
XA_5:=XA_2+XA_3*0.5/8;
DRAWICON(LONGCROSS(XA_5,CLOSE,2),CLOSE,1);
DRAWICON(LONGCROSS(CLOSE,XA_4,2),CLOSE,2);
XA_6:=DYNAINFO(4);
XA_7:=DYNAINFO(5);
XA_8:=DYNAINFO(6);
XA_9:=DYNAINFO(11);
XA_10:=CLOSE;
XA_11:=BARSCOUNT(XA_10);
XA_12:=SUM(VOL*CLOSE,0)/SUM(VOL,0);
XA_13:=MA(XA_10,XA_11);
XA_14:=XA_13+2*STD(XA_10,3);
XA_15:=XA_13-2*STD(XA_10,3);
DRAWICON(CROSS(XA_12,XA_13),XA_12,38);
XA_16:=TIME>93000;
XA_17:=XA_10/REF(CLOSE,1)>1.02;
XA_18:=XA_10/REF(CLOSE,1)<0.98;
XA_19:=(HHV(XA_10,XA_11)-LLV(XA_10,XA_11))/XA_10<0.05;
XA_20:=SMA(VOL,30,1);
XA_21:=(XA_20-LLV(LLV(XA_20,1),30))/(HHV(HHV(XA_20,1),30)-LLV(LLV(XA_20,1),30))>0.95;
XA_22:=XA_17 OR XA_18;
XA_23:=XA_22=0 AND XA_19 AND XA_21 AND CROSS(XA_12,XA_13);
DRAWTEXT(FILTER(XA_23,10),XA_12,506),COLORYELLOW;
XA_24:=XA_22=0 AND XA_19 AND XA_21 AND CROSS(CLOSE,XA_12) AND CROSS(CLOSE,XA_13);
DRAWTEXT(FILTER(XA_24,10),XA_12*0.99,507),COLORRED;
攻擊量:=((HSL*0.50+REF(HSL,1)*0.33)+(REF(HSL,2)*0.17))*SUM(C,FROMOPEN)/FROMOPEN;
攻擊量A:=SUM(IF(C>REF(C,1),攻擊量*V,0),FROMOPEN),COLOR0000FF,LINETHICK0;
攻擊量B:=-SUM(IF(C<REF(C,1),攻擊量*V,0),FROMOPEN),COLOR00FF00,LINETHICK0;
攻擊流量:=攻擊量A+攻擊量B,COLORSTICK;
攻擊比:=攻擊流量/SUM(V,FROMOPEN)*100,COLORRED,LINETHICK1;
資金攻擊度:=IF(攻擊比>=0,(攻擊比+50),100-ABS((攻擊比-50)));
資金流入:=SUM(IF(C>REF(C,1),V,0),FROMOPEN),STICK,COLORRED;
資金流出:=-SUM(IF(C<REF(C,1),V,0),FROMOPEN),STICK,COLOR00FF00;
資金出入:=資金流入+資金流出,COLORSTICK;
資金比:=資金出入/SUM(V,FROMOPEN)*100,COLOR00FFFF,LINETHICK1;
資金流量比:=IF(資金比>=0,(資金比+100)/2,100-ABS((資金比-100)/2));
DRAWTEXT_FIX(1,0.500,0.00,0,STRCAT(STRCAT('資金流量比',CON2STR(資金流量比,2)),'％買')),COLORCYAN;
DRAWTEXT_FIX(1,0.280,0.00,0,STRCAT(STRCAT('資金攻擊度',CON2STR(資金攻擊度,2)),' ％買')),COLORCYAN;
A1:=SUM(IF(CLOSE>REF(CLOSE,1),VOL/CAPITAL*100,IF(CLOSE<REF(CLOSE,1),-VOL/CAPITAL*100,0)),0);
成交額:=V*C/100,NODRAW;
A2:=SUM((IF(((成交額/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交額,0)),0);
A3:=SUM((IF(((成交額/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交額,0)),0);
A4:=SUM((IF(((成交額/8<20) AND (CLOSE>(REF(CLOSE,1)))),成交額,0)),0);
A5:=SUM((IF(((成交額/8<20) AND (CLOSE<(REF(CLOSE,1)))),成交額,0)),0);
A6:=((A2+A3)+A4)+A5;
A7:=IF((ISLASTBAR),((100*A2)/A6),0);
A8:=IF((ISLASTBAR),((100*A3)/A6),0);
A9:=IF((ISLASTBAR),((100*A4)/A6),0);
A10:=IF((ISLASTBAR),((100*A5)/A6),0);
DD1:=1;
AAA1:=STRCAT(STRCAT('機(jī)構(gòu)買入',CON2STR((100*A2)/A6,0)),'%');
AAA2:=STRCAT(STRCAT('機(jī)構(gòu)賣出',CON2STR((100*A3)/A6,0)),'%');
AAA0:=STRCAT(STRCAT('機(jī)構(gòu)總買入',CON2STR((100*(A2-A3))/A6,0)),'%');
AAA3:=STRCAT(STRCAT('散戶買入',CON2STR((100*A4)/A6,0)),'%');
AAA4:=STRCAT(STRCAT('散戶賣出',CON2STR((100*A5)/A6,0)),'%');
AAA5:=STRCAT(STRCAT('散戶總買入',CON2STR((100*(A4-A5))/A6,0)),'%');
DRAWTEXT_FIX(DD1=1,0.100,1.00,0,AAA1),COLORRED;
DRAWTEXT_FIX(DD1=1,0.230,1.00,0,AAA2),COLORGREEN;
DRAWTEXT_FIX(DD1=1,0.360,1.00,0,AAA3),COLORRED;
DRAWTEXT_FIX(DD1=1,0.490,1.00,0,AAA4),COLORGREEN;
DRAWTEXT_FIX(DD1=1,0.620,1.00,0,AAA0),LINETHICK5,COLORYELLOW;
DRAWTEXT_FIX(DD1=1,0.780,1.00,0,AAA5),LINETHICK5,COLORCYAN;
|
