MACD指標(biāo)大全

{MACD(費(fèi)虛)}



{N=21}

WY:=((H-REF(H,1))+(L-REF(L,1)))/2;
HX:=V/(H-L);
Y:=(WY/HX*1000);
老費(fèi)MACD:FORCAST(Y,21),colorstick,COLORWHITE;


{MACD(楊文峰） s:12  p:26  m: 9              }

DIFF: EMA(CLOSE,S) - EMA(CLOSE,P),colorred;
DEA:EMA(DIFF,M),COLORYELLOW;
MACD: 2*(DIFF-DEA),COLORSTICK;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,2,0),COLORYELLOW;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,2,0),COLORMAGENTA;
PARTLINE(DIFF<DEA,DIFF),COLORGREEN;
EXPLAINEX(1=1,'獲利盤比例=',WINNER(c)*100,2,0),COLORCYAN;
EXPLAINEX(1=1,'套牢盤比例=',100-WINNER(c)*100,2,0),COLORGREEN;
Var11:=ma((v/(h-l)),4);
Var33:=abs(c-o);
Var44:=v/(h-l);
EXPLAIN(Var44<var11 AND Var33<ma(Var33,4),'資金無入場意愿，萎縮中'),COLORMAGENTA;
EXPLAIN(Var44<var11 AND Var33>ma(Var33,4),'場內(nèi)資金運(yùn)作'),COLORRED;
EXPLAIN(Var44>var11 AND Var33<ma(Var33,4),'多空激烈爭奪'),COLORGREEN;
EXPLAIN(Var44>var11 AND Var33>ma(Var33,4),'場外資金介入（或出局）意愿強(qiáng)烈'),COLORMAGENTA;
TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14),COLORRED;
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
PDI:= DMP*100/TR;
MDI:= DMM*100/TR;
ADX:= MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;
EXPLAIN(cross(pdi,mdi),'PDI線從下向上突破MDI線，顯示有新多頭進(jìn)場，為買進(jìn)信號'),COLORMAGENTA;
EXPLAIN(cross(mdi,pdi),'PDI線從上向下跌破MDI線，顯示有新空頭進(jìn)場，為賣出信號'),COLORCYAN;
EXPLAIN(adx< ref(adx,1) and adx<20,'ADX值遞減，降到20以下，且橫向行進(jìn)時，市場氣氛為盤整'),COLORRED;
EXPLAIN(adx< ref(adx,1) and ref(adx,1)<ref(adx,2) and ref(adx,2)>ref(adx,3) and ref(adx,3)>ref(adx,4),'ADX值從上升傾向轉(zhuǎn)為下降時，表明行情即將反轉(zhuǎn)'),COLORCYAN;
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;
EXPLAIN(1=1,'MACD,KDJ,CCI,W&R,RSI,MTM等指標(biāo)的判斷:'),COLORGREEN;
EXPLAINEX(1=1,'MACD=',macd,2,1),COLORMAGENTA;
EXPLAIN(MACD>0 and diff>0,'大勢屬多頭市場'),COLORRED;
EXPLAIN(MACD>0.35,'超買中，隨時有可能見頂回落'),COLORCYAN;
EXPLAIN(MACD<0 and diff<0,'大勢屬空頭市場'),COLORMAGENTA;
EXPLAIN(MACD<-0.35,'超賣中，隨時有可能反彈'),COLORCYAN;
EXPLAIN(cross(diff,dea) and cross(macd,0),'上穿o軸，可考慮買入'),COLORRED;
EXPLAIN(cross(j,k) and k<50,'KDJ金叉'),COLORGREEN;
EXPLAIN(cross(k,d) and k>70,'KDJ死叉'),COLORCYAN;
EXPLAIN(j>84,'KDJ指標(biāo)高位');EXPLAIN(j<16,'KDJ指標(biāo)低位'),COLORGREEN;
TYP := (HIGH + LOW + CLOSE)/3;
cci:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
EXPLAIN(cci<-180,'CCI指標(biāo)底位，買入機(jī)會'),COLORRED;
EXPLAIN(cci>180,'CCI指標(biāo)高位，賣出機(jī)會'),COLORGREEN;
EXPLAINEX(1=1,'CCI=',cci,2,1),COLORMAGENTA;
EXPLAINEX(1=1,'換手率=',vol/CAPITAl*100,2,1),COLORMAGENTA;
explain((vol/CAPITAl)>0.075,'換手過大，小心主力出逃，短期頭部'),COLORMAGENTA;
wr:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14)),COLORRED;
EXPLAINEX(1=1,'威廉指標(biāo)=',wr,2,1),COLORGREEN;
explain(wr>-20,'W&R超買，短線即將見頂，應(yīng)及時賣出'),COLORCYAN;
explain(wr<-80,'W&R超賣，短線即將見底，應(yīng)伺機(jī)買進(jìn)'),COLORGREEN;
MTM := CLOSE-REF(CLOSE,6);
MTMMA := MA(MTM,6);
EXPLAIN(CROSS(MTM,MTMMA) and MTMMA<-0.8,'MTM從下向上突破MTMMA，買入信號'),COLORCYAN;
EXPLAIN(CROSS(MTMMA,MTM) and MTMMA>0.8,'MTM從上向下跌破MTMMA，賣出信號'),COLORGREEN;
LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
EXPLAINEX(1=1,'相對強(qiáng)弱RSI1=',RSI1,2,1),COLORGREEN;
EXPLAIN(RSI1>85,'6日RSI超買,防止回?fù)鮘n'),COLORCYAN;
EXPLAIN(RSI1>80,'6日RSI向上突破85，超買,考慮賣出'),COLORMAGENTA;
EXPLAIN(RSI1<15,'6日RSI超賣,隨時有可能反彈\n');
EXPLAIN(RSI1<15,'6日RSI向下跌破15，超賣，考慮買入'),COLORRED;
EXPLAIN(CROSS(RSI1,15),'6日RSI向上突破15，買進(jìn)信號'),COLORCYAN;
EXPLAIN(CROSS(RSI1,85),'6日RSI向下跌破85，賣出信號'),COLORGREEN;
psy:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
EXPLAINEX(1=1,'心理線,PSY=',psy,2,1),COLORGREEN;
Aa:=(EMA(C,30)*2+MA(C,60))/3;
Ra:=(VOL*CLOSE);
VL1a:=EMA(Ra,13)/EMA(VOL,13);
VL2a:=EMA(Ra,60)/EMA(VOL,60);
VLa:=EMA((VL1a+VL2a)/2,3);
分水嶺:=ma((Aa+VLa)/2,1);
EXPLAINEX(1=1,'分水嶺=',分水嶺,2,1),COLORGREEN;
EXPLAIN(close>分水嶺,'股價在分水嶺之上,大勢屬多頭,可積極做多'),COLORRED;
EXPLAIN(close<分水嶺,'股價在分水嶺之下,大勢屬空頭,超跌只能搶反彈'),COLORGREEN;
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
UPR:=BBI+3*STD(BBI,10);
DWN:=BBI-3*STD(BBI,10);
var55:=(UPR-DWN)/UPR<0.03;
var56:=(UPR-DWN)/UPR>0.18;
var57:=(ma(c,60)-ma(c,5))/ma(c,60)>0.15;
var58:=(ma(c,5)-ma(c,60))/ma(c,5)>0.15;
EXPLAIN(var55,'多空布林收斂中，有變盤的可能，上下自己分析'),COLORMAGENTA;
EXPLAIN(var57 and var56 and c>o ,'布林上下乖離太大，有反彈的可能'),COLORGREEN;
W1:=C<=MA(C,5) AND C<=MA(C,10);
W2:=O>MA(C,5) AND O>MA(C,10);
W3:=MA(V,5)<=MA(V,10);
W4:=diff<=dea;
EXPLAIN(W1 AND W2,'斷頭鍘刀:向下的趨勢,不是洗盤就是將下跌,賣出'),colorgreen;
EXPLAIN(W1 ,'5日均線死叉10均線,短線空頭勢力強(qiáng)大,賣出'),coloryellow;
EXPLAIN(W3 ,'5日均量死叉10日均量,做多能量枯竭,賣出'),colorred;
EXPLAIN(W4 ,'DIFF下穿DEA,空頭形成,賣出'),colorff00ff;
EXPLAIN(W1 AND W2 AND W3 AND W4 ,'三死叉見頂,賣出'),coloryellow;
EXPLAIN(W1 AND W3 AND W4 ,'多方潰敗,空方強(qiáng)大,向下徹底形成,賣出'),colorgreen;




{MACD+KD}


DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  : EMA(DIFF,9);
MACD : 2*(DIFF-DEA), COLORSTICK;
D1:=EMA(C,3)-EMA(C,8);
D2:=EMA(O,3)-EMA(O,8);
D3:=EMA(H,3)-EMA(H,8);
D4:=EMA(L,3)-EMA(L,8);
DRAWICON(cross(d1,diff) and diff<-0.05 ,d4-0.1,10);
DRAWICON(cross(diff,d1) and diff>0.1 ,d3+0.1,12);
STICKLINE(D1>=D2,D1,D2,8,0),COLOR0055AA;
STICKLINE(D1<=D2,D1,D2,8,0),COLOR006600;
STICKLINE(D1>=D2,D1,D2,5,0),COLOR0077CC;
STICKLINE(D1>=D2,D1,D2,3,0),COLOR0099DD;
STICKLINE(D1>=D2,D3,D4,0,0),COLOR00BBFF;
STICKLINE(D1<=D2,D1,D2,5,0),COLOR009900;
STICKLINE(D1<=D2,D1,D2,3,0),COLOR00BB00;
STICKLINE(D1<=D2,D3,D4,0,0),COLOR00EE00;



{MACD+KD解盤}
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA :=EMA(DIFF,9);
MACD:2*(DIFF-DEA), COLORSTICK;
MAC := DIFF>ref(DIFF ,1);
DIF:2*DIFF;
Var1:=EMA(CLOSE,34)-EMA(CLOSE,5);
Var2:=EMA(Var1,5);
趨勢:=(-3)*(Var1-Var2);
趨勢,colorred;
長期趨勢:EMA(Var1,10)*(-1);
Jm:=CROSS(DIFF,DEA)*0.2;
JmCount:=COUNT(Jm=0.2,BARSLAST(DEA>0));

DRAWTEXT(DEA<0 AND Jm=0.2,Jm,'0軸下第'),colorgreen;
DRAWNUMBER(DEA<0 AND Jm=0.2,0,JmCount,0),coloryellow;
DRAWTEXT(DEA<0 AND Jm=0.2,0,'   次金叉'),coloryellow;
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;
DRAWTEXT(CROSS(K,D)AND(COUNT(VOL>REF(VOL,1),30)>3AND(VOL/CAPITAL<=(10/100)))
        AND((K<=20 AND D<=20)) ,0.40,
        '短線KD金叉'),COLORYELLOW;
DRAWTEXT(CROSS(K,D)AND(COUNT(VOL>REF(VOL,1),30)>3AND
       (VOL/CAPITAL<=(10/100)))AND(BARSLAST(CROSS(K,D)AND(COUNT(VOL>REF(VOL,1),30)>3
        AND(VOL/CAPITAL<=(10/100)))AND((K<=20 AND D<=20)))>=1)AND(BARSLAST(CROSS(k,D)
        AND(COUNT(VOL>REF(VOL,1),30)>3AND(VOL/CAPITAL<=(10/100)))AND((K<=30 AND D<=20)))<=7) ,0.40,
       '短線KD二次金叉'),Color00FFFF,LINETHICK2,ALIGN2;
b:=CROSS(D,K) AND K>60 AND D>60;
b1:=COUNT(b,BARSLAST( D<60));
DRAWTEXT(b AND b1=1,0.50, '短線KD死叉'),ColorFFFFFF,LINETHICK2,ALIGN2;
DRAWTEXT(b AND b1=2,0.70, '短線KD二次死叉'),ColorFFFFFF,LINETHICK2,ALIGN2;




{MACD+短線DIFF}

DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  : EMA(DIFF,9);
MACD : 2*(DIFF-DEA), COLORSTICK;
D1:=EMA(C,3)-EMA(C,8);
D2:=EMA(O,3)-EMA(O,8);
D3:=EMA(H,3)-EMA(H,8);
D4:=EMA(L,3)-EMA(L,8);
DRAWICON(cross(d1,diff) and diff<-0.05 ,d4-0.1,1);
DRAWICON(cross(diff,d1) and diff>0.1 ,d3+0.1,2);
STICKLINE(D1>=D2,D1,D2,8,0),COLOR0055AA;
STICKLINE(D1<=D2,D1,D2,8,0),COLOR006600;
STICKLINE(D1>=D2,D1,D2,5,0),COLOR0077CC;
STICKLINE(D1>=D2,D1,D2,3,0),COLOR0099DD;
STICKLINE(D1>=D2,D3,D4,0,0),COLOR00BBFF;
STICKLINE(D1<=D2,D1,D2,5,0),COLOR009900;
STICKLINE(D1<=D2,D1,D2,3,0),COLOR00BB00;
STICKLINE(D1<=D2,D3,D4,0,0),COLOR00EE00;

[ 本帖最后由 小黑19 于 2007-10-20 20:01 編輯 ]

{MACDSDS}


{INPUT:SHORT(12,1,100,1),LONG(26,1,100,1), M(9,1,100,2);}
DIF:=EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);
MACD:=EMA(DIF,M),COLOR58FF58;
DEF:=2*(DIF-MACD),COLORFFFF00,LINETHICK0;
{STICKLINE(DEF>=0 AND DEF>=REF(DEF,1),0,DEF,6,1),COLOR6058FF;}
{STICKLINE(DEF>=0 AND DEF< REF(DEF,1),0,DEF,6,0),COLOR6058FF;}
{STICKLINE(DEF<0 AND DEF>=REF(DEF,1),0,DEF,6,1),COLORFFFF00;}
{STICKLINE(DEF<0 AND DEF< REF(DEF,1),0,DEF,6,0),COLORFFFF00;}
{IF(DIF<1000,1,0)COLORBROWN;}
多頭趨勢:=IF(DIF>=0 AND MACD>=0 OR (DIF<0 AND MACD>=0),1,0);
空頭趨勢:=DIF<0 AND MACD<0 OR (DIF>=0 AND MACD<0);
縮頭:=IF(DEF>0 AND REF(DEF,1)>REF(DEF,2) AND DEF< REF(DEF,1),1,0);
縮腳:=IF(DEF<0 AND REF(DEF,1)< REF(DEF,2) AND DEF>REF(DEF,1),1,0);
SDS:=縮腳,LINETHICK0;
阻力:=IF(CROSS(C,MA(C,20)) OR CROSS(C,MA(C,60)),1,0);
支撐:=IF(CROSS(MA(C,20),C) OR CROSS(MA(C,60),C),1,0);
做多:=IF(CROSS(MACD,DIF) AND DIF>0 AND MACD>0,1,0);
放空:=IF(CROSS(DIF,MACD) AND DIF<0 AND MACD<0,1,0);
{DRAWICON(多頭趨勢,DIF,1);}
{DRAWICON(空頭趨勢,DIF,2);}
{IF(DIF<1000,0,1),COLORCCFFFF,LINETHICK2;}
{IF(MACD<1000,MACD,1),COLOR58FF58;}
{PDRAWICON(FILTER(縮頭,3) AND 縮頭,DEF+0.01,5);}
{DRAWICON(FILTER(縮腳,3) AND 縮腳,DEF,4);}
{DRAWICON(FILTER(阻力,16) AND DEF>=0,DEF+0.01,12);}
{DRAWICON(FILTER(支撐,16) AND DEF<0,DEF,12);}
sds



{MACD背離}

input:n(1,0.1,100);
dif:=stkindi('','macd.diff',0,6);
fz1:=PEAKBARSA(dif*17,1,1);
fz2:=PEAKBARSA(dif*17,1,2);
v1:=fz1=1 and ref(dif,fz1)>ref(dif,fz2) and ref(c,fz1)<ref(c,fz2);
v2:=fz1=1 and ref(dif,fz1)<ref(dif,fz2) and ref(c,fz1)>ref(c,fz2);
頂背離:STICKLINE(v1 or v2,0,1,3,0.1),colorffff54;
dz1:=TROUGHBARSA(dif*17,1,1);
dz2:=TROUGHBARSA(dif*17,1,2);
v3:=dz1=1 and ref(dif,dz1)>ref(dif,dz2) and ref(c,dz1)<ref(c,dz2);
v4:=dz1=1 and ref(dif,dz1)<ref(dif,dz2) and ref(c,dz1)>ref(c,dz2);
底背離:STICKLINE(v3 or v4,0,1,3,0.1),color5454ff;




{MACD變色優(yōu)化}
input:LONG(22,20,100),SHORT(10,5,40),m(9,2,60);
DIFF: EMA(CLOSE,SHORT) - EMA(CLOSE,LONG),colorred;
DEA:EMA(DIFF,M),COLORYELLOW;
MACD: 2*(DIFF-DEA),COLORSTICK;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,2,0),COLORYELLOW;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,2,0),COLORwhite;
PARTLINE(DIFF<DEA,DIFF),COLORGREEN;




{MACD疊加K線}


DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  : EMA(DIFF,9),colorred;
MACD : 2*(DIFF-DEA), COLORSTICK;
D1:=EMA(C,3)-EMA(C,8);
D2:=EMA(O,3)-EMA(O,8);
D3:=EMA(H,3)-EMA(H,8);
D4:=EMA(L,3)-EMA(L,8);
DRAWICON(cross(d1,diff) and diff<-0.05 ,d4-0.1,1);
DRAWICON(cross(diff,d1) and diff>0.1 ,d3+0.1,2);
STICKLINE(D1>=D2,D1,D2,7,0),COLORMAGENTA;
STICKLINE(D1<=D2,D1,D2,7,0),COLORGREEN;



{MACD多空趨勢}
A:EMA((CLOSE-ref(c,1))/ref(c,1)*10-(INDEXC-ref(INDEXC,1))/ref(INDEXC,1)*10,5)LINETHICK0;
STICKLINE(A>0,0,A,1,2),LINETHICK3,COLORred;
STICKLINE(A<0,0,A,1,2),LINETHICK2,COLORyellow;
HSNP1:=CLOSE-REF(CLOSE,1);
HSNP2:=IF(CLOSE-REF(CLOSE,1)>=0,HSNP1,0);
HSNP3:=REF(CLOSE,1)-CLOSE;
HSNP4:=IF(CLOSE-REF(CLOSE,1)<=0,HSNP3,0);
HSNP5:=SUM(HSNP2,90)/SUM(HSNP4,90);
HSNP6:=100-100/(1+HSNP5);
HSNP7:=EMA(HSNP6,21);
HSNP8:=EMA(HSNP7,5);
HSNP:=EMA(HSNP7,3);
np:= (HSNP7-HSNP);
nl:=(HSNP-HSNP7);
STICKLINE(np>0,0,np,1,2),COLORff00ff;  
STICKLINE(np<0,0,np,1,2),COLORcyan;  
JJ :=(C*2+H+L)/4;
SK := EMA(JJ,13) - EMA(JJ,21);
SD := EMA(SK,3);
SP := EMA(SK,10);
長線1:IF(SD>=SP,SD,SP),LINETHICK2;
長線2:IF(SP-SD,SP,SD),LINETHICK2;
A1:=EMA(CLOSE,7)-EMA(CLOSE,21);
B1:=EMA((0.668*REF(A1,1)+0.333*A1),1);
做多:IF(A1>=B1,A1,B1),LINETHICK2,colorred;
做空:IF(B1-A1,B1,A1),LINETHICK2;

{MACD加K線疊加}

DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  : EMA(DIFF,9);
MACD : 2*(DIFF-DEA), COLORSTICK;
D1:=EMA(C,3)-EMA(C,8);
D2:=EMA(O,3)-EMA(O,8);
D3:=EMA(H,3)-EMA(H,8);
D4:=EMA(L,3)-EMA(L,8);
DRAWICON(cross(d1,diff) and diff<0 ,d4-0.1,10);
STICKLINE(D1>=D2,D1,D2,8,0),COLOR0055AA;
STICKLINE(D1<=D2,D1,D2,8,0),COLOR006600;
STICKLINE(D1>=D2,D1,D2,5,0),COLOR0077CC;
STICKLINE(D1>=D2,D1,D2,3,0),COLOR0099DD;
STICKLINE(D1>=D2,D3,D4,0,0),COLOR00BBFF;
STICKLINE(D1<=D2,D1,D2,5,0),COLOR009900;
STICKLINE(D1<=D2,D1,D2,3,0),COLOR00BB00;
STICKLINE(D1<=D2,D3,D4,0,0),COLOR00EE00;




{MACD交易}
DIFF: EMA(CLOSE,12) - EMA(CLOSE,26),COLORYELLOW,LINETHICK2;
DEA1:=EMA(DIFF,9);0.10;
MACD: 2*(DIFF-DEA1),LINETHICK0;
STICKLINE(MACD>0,0,MACD,8,1),COLORRED;
STICKLINE(MACD<0,0,MACD,8,1),COLORCYAN;
DEA: EMA(DIFF,9),COLORGREEN;
PARTLINE(DIFF>DEA,DIFF),COLORff11cc,LINETHICK2;
PARTLINE(DIFF>DEA AND DIFF<0,DIFF),COLORred,LINETHICK2;
DRAWICON(CROSS(DIFF,DEA),DIFF-0.01,6);
DRAWICON(CROSS(DEA,DIFF),DIFF,11);
V1:=EMA(EMA(CLOSE,n),n);
V2:=100*WINNER(CLOSE*0.95);
控盤力度:(V1-REF(V1,1))/REF(V1,1)*10,colorwhite,LINETHICK1;
無莊控盤:IF(控盤力度<0,控盤力度,0),LINETHICK2,COLOR00ff00,STICK;
有莊控盤:IF(控盤力度>REF(控盤力度,1) AND 控盤力度>0,控盤力度,0),LINETHICK2,COLORff00ff,STICK;
主力減倉:IF(控盤力度< REF(控盤力度,1) AND 控盤力度>0,控盤力度,0),LINETHICK2,COLOrBLUE,STICK;
高度控盤:IF(V2>50 AND COST(85)< CLOSE AND 控盤力度>0,控盤力度,0),LINETHICK2,COLORRED,STICK;
開始控盤:IF(CROSS(控盤力度,0),0.2,0),LINETHICK2,COLORFF00FF;
Var1:=EMA(CLOSE,34)-EMA(CLOSE,5);
Var2:=EMA(Var1,5);
趨勢:=(-3)*(Var1-Var2), COLORSTICK;
趨勢,colorred;
長期趨勢:EMA(Var1,10)*(-1);
EXPLAIN(趨勢>0,'Z線趨勢上升中\(zhòng)n');
EXPLAIN(趨勢<0,'Z線趨勢下降中\(zhòng)n');
EXPLAIN(cross(趨勢,0),'Z線考慮買入\n');
EXPLAIN(cross(0,趨勢),'Z線考慮賣出\n');
Var11:=ma((v/(h-l)),4);
Var33:=abs(c-o);
Var44:=v/(h-l);
EXPLAIN(Var44<var11 AND Var33<ma(Var33,4),'資金無入場意愿，萎縮中\(zhòng)n');
EXPLAIN(Var44<var11 AND Var33>ma(Var33,4),'場內(nèi)資金運(yùn)作行為\n');
EXPLAIN(Var44>var11 AND Var33<ma(Var33,4),'多空雙方激烈爭奪中\(zhòng)n');
EXPLAIN(Var44>var11 AND Var33>ma(Var33,4),'場外資金介入（或出局）意愿強(qiáng)烈\n');
TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
PDI:= DMP*100/TR;
MDI:= DMM*100/TR;
ADX:= MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;
EXPLAIN(cross(pdi,mdi),'PDI線從下向上突破MDI線，顯示有新多頭進(jìn)場，為買進(jìn)信號\n');
EXPLAIN(cross(mdi,pdi),'PDI線從上向下跌破MDI線，顯示有新空頭進(jìn)場，為賣出信號\n');
EXPLAIN(adx>ref(adx,1),'ADX值持續(xù)高于前一日，行情將維持原趨勢\n');
EXPLAIN(adx<ref(adx,1) and adx<20,'ADX值遞減，降到20以下，且橫向行進(jìn)時，市場氣氛為盤整\n');
EXPLAIN(adx<ref(adx,1) and ref(adx,1)<ref(adx,2) and ref(adx,2)>ref(adx,3) and ref(adx,3)>ref(adx,4),'ADX值從上升傾向轉(zhuǎn)為下降時，表明行情即將反轉(zhuǎn)\n');
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;
EXPLAIN(1=1,'下面為:macd,KDJ,CCI,W&R,RSI,MTM等指標(biāo)的判斷:');
EXPLAINEX(1=1,'（中標(biāo)）macd=',macd,2,1);
EXPLAIN(macd>0 and diff>0,'大勢屬多頭市場\n');
EXPLAIN(macd>0.35,'超買中，隨時有可能見頂回落\n');
EXPLAIN(macd<0 and diff<0,'大勢屬空頭市場\n');
EXPLAIN(macd<-0.35,'超賣中，隨時有可能反彈\n');
EXPLAIN(cross(diff,dea) and cross(macd,0),'上穿o軸，可考慮買入\n');
EXPLAIN(cross(j,k) and k<50,'KDJ金叉\n');
EXPLAIN(cross(k,d) and k>70,'KDJ死叉\n');
EXPLAIN(j>84,'KDJ指標(biāo)高位');EXPLAIN(j<16,'KDJ指標(biāo)低位\n');
TYP := (HIGH + LOW + CLOSE)/3;
cci:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
EXPLAIN(cci<-180,'CCI指標(biāo)底位，買入機(jī)會\n');
EXPLAIN(cci>180,'CCI指標(biāo)高位，賣出機(jī)會\n');
EXPLAINEX(1=1,'（短標(biāo)）cci=',cci,2,1);
EXPLAINEX(1=1,'換手率=',vol/CAPITAl*100,2,1);
explain((vol/CAPITAl)>0.075,'換手過大，小心主力出逃，短期頭部\n');
wr:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
EXPLAINEX(1=1,'威廉指標(biāo)（短標(biāo)）=',wr,2,1);
explain(wr>-20,'W&R超買，短線即將見頂，應(yīng)及時賣出\n');
explain(wr<-80,'W&R超賣，短線即將見底，應(yīng)伺機(jī)買進(jìn)\n');
MTM := CLOSE-REF(CLOSE,6);
MTMMA := MA(MTM,6);
EXPLAIN(CROSS(MTM,MTMMA) and MTMMA<-0.8,'MTM從下向上突破MTMMA，買入信號\n');
EXPLAIN(CROSS(MTMMA,MTM) and MTMMA>0.8,'MTM從上向下跌破MTMMA，賣出信號\n');

LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
EXPLAINEX(1=1,'相對強(qiáng)弱RSI1=',RSI1,2,1);
EXPLAIN(RSI1>85,'6日RSI超買,防止回?fù)鮘n');
EXPLAIN(RSI1>80,'6日RSI向上突破85，超買,考慮賣出\n');
EXPLAIN(RSI1<15,'6日RSI超賣,隨時有可能反彈\n');
EXPLAIN(RSI1<15,'6日RSI向下跌破15，超賣，考慮買入\n');
EXPLAIN(CROSS(RSI1,15),'6日RSI向上突破15，買進(jìn)信號\n');
EXPLAIN(CROSS(RSI1,85),'6日RSI向下跌破85，賣出信號\n');
psy:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
EXPLAINEX(1=1,'12天心理線,PSY=',psy,2,1);
EXPLAINEX(1=1,'獲利盤比例=',WINNER(c)*100,2,1);
EXPLAINEX(1=1,'套牢盤比例=',100-WINNER(c)*100,2,1);
Aa:=(EMA(C,30)*2+MA(C,60))/3;
Ra:=(VOL*CLOSE);
VL1a:=EMA(Ra,13)/EMA(VOL,13);
VL2a:=EMA(Ra,60)/EMA(VOL,60);
VLa:=EMA((VL1a+VL2a)/2,3);
分水嶺:=ma((Aa+VLa)/2,1);
EXPLAINEX(1=1,'分水嶺（中長標(biāo)）=',分水嶺,2,1);
EXPLAIN(close>分水嶺,'股價在分水嶺之上,大勢屬多頭,可積極做多\n');
EXPLAIN(close<分水嶺,'股價在分水嶺之下,大勢屬空頭,超跌只能搶反彈\n');
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
UPR:=BBI+3*STD(BBI,10);
DWN:=BBI-3*STD(BBI,10);
var55:=(UPR-DWN)/UPR<0.03;
var56:=(UPR-DWN)/UPR>0.18;
var57:=(ma(c,60)-ma(c,5))/ma(c,60)>0.15;
var58:=(ma(c,5)-ma(c,60))/ma(c,5)>0.15;
EXPLAIN(var55,'多空布林收斂中，有變盤的可能，上下自己分析\n');
EXPLAIN(var57 and var56 and c>o ,'布林上下乖離太大，有反彈的可能\n');
EXPLAIN(var58 and var56 and c<o ,'布林上下乖離太大，有回落的可能\n');

{MACD實(shí)戰(zhàn)}
INPUT:LONG(26,20,100),SHORT(12,5,40),M(9,2,60);
DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG),COLORCCFFFF;
MACD:EMA(DIF,M),COLOR58FF58;
DEF:2*(DIF-MACD),COLORFFFF00,LINETHICK0;
STICKLINE(DEF>=0 AND DEF>=REF(DEF,1),0,DEF,6,1),COLOR6058FF;
STICKLINE(DEF>=0 AND DEF< REF(DEF,1),0,DEF,6,0),COLOR6058FF;
STICKLINE(DEF<0 AND DEF>=REF(DEF,1),0,DEF,6,1),COLORFFFF00;
STICKLINE(DEF<0 AND DEF< REF(DEF,1),0,DEF,6,0),COLORFFFF00;
PARTLINE(DIF<1000,0),COLORBROWN;
多頭趨勢:=IF(DIF>=0 AND MACD>=0 OR (DIF<0 AND MACD>=0),1,0);
空頭趨勢:=DIF<0 AND MACD<0 OR (DIF>=0 AND MACD<0);
縮頭:=IF(DEF>0 AND REF(DEF,1)>REF(DEF,2) AND DEF< REF(DEF,1),1,0);
縮腳:=IF(DEF<0 AND REF(DEF,1)< REF(DEF,2) AND DEF>REF(DEF,1),1,0);
阻力:=IF(CROSS(C,MA(C,20)) OR CROSS(C,MA(C,60)),1,0);
支撐:=IF(CROSS(MA(C,20),C) OR CROSS(MA(C,60),C),1,0);
做多:=IF(CROSS(MACD,DIF) AND DIF>0 AND MACD>0,1,0);
放空:=IF(CROSS(DIF,MACD) AND DIF<0 AND MACD<0,1,0);
DRAWICON(多頭趨勢,DIF,10),ALIGN4;
DRAWICON(空頭趨勢,DIF,11),ALIGN5;
PARTLINE(DIF<1000,DIF),,COLORCCFFFF,LINETHICK2;
PARTLINE(MACD<1000,MACD),COLOR58FF58;
DRAWICON(FILTER(縮頭,3) AND 縮頭,DEF+0.01,5),ALIGN0;
DRAWICON(FILTER(縮腳,3) AND 縮腳,DEF,4),ALIGN1;
DRAWICON(FILTER(阻力,16) AND DEF>=0,DEF+0.01,12),ALIGN0;
DRAWICON(FILTER(支撐,16) AND DEF<0,DEF,12),ALIGN1;
EXPLAIN(DIF<1000,'----------------------------------------------------------------------------'),COLORBROWN;
EXPLAIN(多頭趨勢, '§§§§長線為多頭趨勢§§§§'),COLORRED;
EXPLAIN(空頭趨勢, '§§§§長線為空頭趨勢§§§§'),COLORGREEN;
EXPLAIN(DIF<1000,'----------------------------------------------------------------------------'),COLORBROWN;
EXPLAIN(縮頭, '§請注意DEF柱狀縮頭'),COLORFFFF00;
EXPLAIN(縮腳, '§請注意DEF柱狀縮腳'),COLORFFFF00;
EXPLAIN(FILTER(支撐,16) AND DEF<0, '§DEF柱狀特殊研判'),COLORFFFF00;
EXPLAIN(做多=0 AND FILTER(支撐,16) AND DEF<0, '§多頭注意今明兩日低點(diǎn)支撐'),COLORFFFF00;
EXPLAIN(FILTER(阻力,16) AND DEF>=0, '§DEF柱狀特殊研判'),COLORFFFF00;
EXPLAIN(放空=0 AND FILTER(阻力,16) AND DEF>=0, '§空頭注意今明兩日高點(diǎn)壓力'),COLORFFFF00;
EXPLAIN(做多, '§多頭注意今明兩日低點(diǎn)支撐'),COLORFFFF00;
EXPLAIN(做多, '§找日出K線做多，用線控盤'),COLORFFFF00;
EXPLAIN(放空, '§空頭注意今明兩日高點(diǎn)壓力'),COLORFFFF00;
EXPLAIN(放空, '§找日落K線放空，用線控盤'),COLORFFFF00;
EXPLAIN(CROSS(MACD,0), '§注意長線趨勢空轉(zhuǎn)多'),COLORRED;
EXPLAIN(CROSS(0,MACD), '§注意長線趨勢多轉(zhuǎn)空'),COLORGREEN;
A:=C>=REF(C,2);
B:=C< REF(C,2);
ZA:=BARSLAST(A);
ZB:=BARSLAST(B);
LA:=REF(L,ZA);
HB:=REF(H,ZB);
EXPLAIN(多頭趨勢 AND C< LA, '§防守價跌破：多頭小心'),COLORRED;
EXPLAIN(空頭趨勢 AND C>HB, '§防守價突破：空頭小心'),COLORRED;
EXPLAIN(DIF<1000,'----------------------------------------------------------------------------'),COLORBROWN;
EXPLAINEX(多頭趨勢, 'MACD多頭防守價:',LA,2,0),COLOR3399FF ;
EXPLAINEX(空頭趨勢, 'MACD空頭防守價:',HB,2,0),COLOR3399FF ;
EXPLAIN(DIF<1000,'----------------------------------------------------------------------------'),COLORBROWN;
EXPLAIN((COUNT(C>REF(C,1),30)>18 AND (COUNT(C>REF(C,1),3)=3)) AND (COUNT(DEF< REF(DEF,1),30)>18),'§反轉(zhuǎn)--股價將可能反轉(zhuǎn)向下'),COLOR58FF58;
EXPLAIN((COUNT(C< REF(C,1),30)>18 AND (COUNT(C< REF(C,1),3)=3)) AND (COUNT(DEF>REF(DEF,1),30)>18),'§反轉(zhuǎn)--股價將可能反轉(zhuǎn)向上'),COLOR58FF58;
EXPLAIN(DEF<0 AND ABS(DEF)>REF(ABS(DEF),1),'§MACD綠柱增長'),COLOR58FF58;
EXPLAIN(DEF<0 AND ABS(DEF)< REF(ABS(DEF),1),'§MACD綠柱縮短'),COLOR58FF58;
EXPLAIN(DEF>0 AND DEF>REF(DEF,1),'§MACD紅柱增長'),COLOR58FF58;
EXPLAIN(DEF>0 AND DEF< REF(DEF,1),'§MACD紅柱縮短'),COLOR58FF58;
EX55188(L,60)=L) AND (NOT(LLV(MACD,60)=MACD)),'§底背離--屬買入信號'),COLOR58FF58;
EXPLAIN((HHV(H,60)=H) AND (NOT(HHV(MACD,60)=MACD)),'§頂背離--屬賣出信號'),COLOR58FF58;
EXPLAIN(CROSS(MACD,DIF) AND MACD<0,'§MACD在0軸下死叉'),COLOR58FF58;
EXPLAIN(CROSS(DIF,MACD) AND MACD<0,'§MACD在0軸下金叉'),COLOR58FF58;
EXPLAIN(CROSS(DIF,MACD),'§金叉--屬買入信號'),COLOR58FF58;
EXPLAIN(CROSS(MACD,DIF),'§死叉--屬賣出信號'),COLOR58FF58;
EXPLAIN(CROSS(DIF,MACD) AND MACD>0,'§MACD在0軸上金叉'),COLOR58FF58;
EXPLAIN(CROSS(MACD,DIF) AND MACD>0,'§MACD在0軸上死叉'),COLOR58FF58;
EXPLAIN(CROSS(DIF,MACD) AND CROSS(DEF,0),'§上穿0軸，可考慮買入'),COLOR58FF58;
EXPLAIN(FILTER(CROSS(DIF,MACD) AND MACD>0,13),'§高位金叉'),COLOR58FF58;
EXPLAIN(FILTER(CROSS(DIF,MACD) AND MACD<0,6),'§低位金叉'),COLOR58FF58;
EXPLAIN(COUNT(CROSS(DIF,MACD) AND MACD>0,20)=2 AND CROSS(DIF,MACD) AND
MACD>0,'§0軸上二次金叉'),COLOR58FF58;
EXPLAIN(COUNT(CROSS(DIF,MACD) AND MACD>0,20)=3 AND CROSS(DIF,MACD) AND MACD>0,'§0軸上三次金叉'),COLOR58FF58;
EXPLAIN(COUNT(CROSS(DIF,MACD) AND MACD>0,20)=4 AND CROSS(DIF,MACD) AND MACD>0,'§0軸上四次金叉'),COLOR58FF58;
EXPLAIN(COUNT(CROSS(MACD,DIF),20)=2 AND CROSS(MACD,DIF),'§二次死叉，跌幅可能較深'),COLOR58FF58;
EXPLAIN(COUNT(CROSS(DIF,MACD),20)=2 AND CROSS(DIF,MACD),'§二次金叉，漲幅可能較大'),COLOR58FF58;
EXPLAIN(DIF>=0 AND DEF>=0 AND DEF<=REF(DEF,1),'§上漲趨勢有所減緩，短線投資者可逢高賣出，但當(dāng)回落至均線或其他支撐位時應(yīng)及時回補(bǔ)'),COLOR58FF58;
EXPLAIN(DIF<0 AND DEF>0 AND DEF>REF(DEF,1),'§目前正處于反彈階段，應(yīng)保持謹(jǐn)慎'),COLOR58FF58;
EXPLAIN(DEF>0 AND DIF>0 AND DIF>MACD AND DIF>REF(DIF,1) AND C>REF(C,1),'§上升趨勢尚未改變'),COLOR58FF58;
EXPLAIN(DIF<0 AND DEF>0 AND DEF< REF(DEF,1),'§短線反彈已經(jīng)結(jié)束，應(yīng)繼續(xù)堅持謹(jǐn)慎原則'),COLOR58FF58;
EXPLAIN(DIF<0 AND DEF<=0 AND DEF< REF(DEF,1),'§有加速下跌趨勢'),COLOR58FF58;
EXPLAIN(DIF<0 AND DEF<=0 AND DEF>=REF(DEF,1),'§下跌趨勢有所減緩，可在W&R指標(biāo)大于90時逢低買入，但有可能再次加速下跌，注意及時止損'),COLOR58FF58;
EXPLAIN(DEF<0 AND DIF<0 AND DIF< MACD AND DIF< REF(DIF,1) AND C< REF(C,1),'§下降趨勢尚未改變'),COLOR58FF58;
EXPLAIN(DIF>=0 AND DEF>=0 AND DEF>REF(DEF,1),'§有加速上漲趨勢'),COLOR58FF58;
EXPLAIN(DIF>=0 AND DEF<0 AND DEF< REF(DEF,1),'§目前正處于回落整理階段，且回落有加速趨勢'),COLOR58FF58;
EXPLAIN(DIF>=0 AND DEF<0 AND DEF>=REF(DEF,1),'§目前正處于回落整理階段，但整理即將結(jié)束，可在均線或其他支撐位附近逢低買入，但當(dāng)整理完成后選擇再次向下突破時應(yīng)注意及時止損'),COLOR58FF58;
EXPLAIN(DEF<-0.35,'§超賣中，隨時有可能反彈'),COLOR58FF58;
EXPLAIN(DEF>0.35,'§股價超買中，隨時有可能回檔'),COLOR58FF58;
EXPLAIN(DIF<1000,'----------------------------------------------------------------------------'),COLORBROWN;
G:=26;
S:=12;
CC:=CLOSE;
ESS:=EMA(CC,12);
EGG:=EMA(CC,12);
RDIF:=REF(DIF,1);
RSS:=REF(ESS,1);
RGG:=REF(EGG,1);
RMACD:=REF(MACD,1);
RDEF:=REF(DEF,1);
RZZZ:=(RMACD+((M+1)/(2*(M-1)))*RDEF);
XDIF:=((G-1)*(S+1)*RGG-(G+1)*(S-1)*RSS+(S+1)*(G+1)*RDIF)/(2*G-2*S);
XMACD:=((G-1)*(S+1)*RGG-(G+1)*(S-1)*RSS+(S+1)*(G+1)*RMACD)/(2*G-2*S);
XDEF:=((G-1)*(S+1)*RGG-(G+1)*(S-1)*RSS+(S+1)*(G+1)*RZZZ)/(2*G-2*S);
AA:=ISLASTBAR;
BB:=BACKSET(AA=1,1);
Y:=BARSLAST(BB=1);
X:=Y+1;
TDIF:=DIF*X;
TSS:=ESS*X;
TGG:=EGG*X;
TMACD:=MACD*X;
TDEF:=DEF*X;
TZZZ:=(TMACD+((M+1)/(2*(M-1)))*TDEF);
YDIF:=((G-1)*(S+1)*TGG-(G+1)*(S-1)*TSS+(S+1)*(G+1)*TDIF)/(2*G-2*S);
YMACD:=((G-1)*(S+1)*TGG-(G+1)*(S-1)*TSS+(S+1)*(G+1)*TMACD)/(2*G-2*S);
YDEF:=((G-1)*(S+1)*TGG-(G+1)*(S-1)*TSS+(S+1)*(G+1)*TZZZ)/(2*G-2*S);
EE:=1;
EXPLAINEX(EE=1,'DIF....今日轉(zhuǎn)折：',XDIF,2,1),COLORCCFFFF ;
EXPLAINEX(EE=1,'MACD今日轉(zhuǎn)折：',XMACD,2,1),COLOR3399FF ;
EXPLAINEX(EE=1,'DEF...今日轉(zhuǎn)折：',XDEF,2,1),COLORFF9966 ;
EXPLAIN(DIF<1000,'----------------------------------------------------------------------------'),COLORBROWN;
EXPLAINEX(EE=1,'DIF....明日轉(zhuǎn)折：',YDIF,2,1),COLORCCFFFF;
EXPLAINEX(EE=1,'MACD明日轉(zhuǎn)折：',YMACD,2,1),COLOR3399FF;
EXPLAINEX(EE=1,'DEF...明日轉(zhuǎn)折：',YDEF,2,1),COLORFF9966;
EXPLAIN(DIF<1000,'----------------------------------------------------------------------------'),colorcyan;


{MACD角>30}{n:0.05}
Var1:="MACD.DIFF"+1;
Var2:=BARSLAST(CROSS(Var1,1));
Var3:=(Var1-REF(Var1,Var2))/REF(Var1,Var2)/N/Var2;
Var4:=IF(Var1>=1,ATAN(Var3)/3.142*180,0);
MACD角大于30度: Var4>30, , {00050002};

{MACD解盤指標(biāo)}


DIFF: EMA(CLOSE,12) - EMA(CLOSE,26),COLORYELLOW,LINETHICK2;
DEA1:=EMA(DIFF,9);0.10;

MACD: 2*(DIFF-DEA1),LINETHICK0;
s1:=MACD<ref(MACD,1)and MACD>0;
s2:=MACD<ref(MACD,1)/2 and MACD<0;
STICKLINE(MACD>=0,MACD,0,8,1),COLORRED;
STICKLINE(s1,0,MACD,8,1),COLOR00ffff;
STICKLINE(s2,0,MACD,8,0),COLORffffff;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,8,1),COLORffff00;


DEA: EMA(DIFF,9),COLORGREEN;
PARTLINE(DIFF>DEA,DIFF),COLORff11cc,LINETHICK2;
PARTLINE(DIFF>DEA AND DIFF<0,DIFF),COLORred,LINETHICK2;
DRAWICON(CROSS(DIFF,DEA),DIFF-0.01,6);
DRAWICON(CROSS(DEA,DIFF),DIFF,11);
MAC:3*DIFF-2*DEA1,LINETHICK1;

Var1:=EMA(CLOSE,34)-EMA(CLOSE,5);
Var2:=EMA(Var1,5);
趨勢:=(-3)*(Var1-Var2), COLORSTICK;
EXPLAIN(趨勢>0,'Z線趨勢上升中');
EXPLAIN(趨勢<0,'Z線趨勢下降中');
EXPLAIN(cross(趨勢,0),'Z線考慮買入');
EXPLAIN(cross(0,趨勢),'Z線考慮賣出');
Var11:=ma((v/(h-l)),4);
Var33:=abs(c-o);
Var44:=v/(h-l);


TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
PDI:= DMP*100/TR;
MDI:= DMM*100/TR;
ADX:= MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;
EXPLAIN(cross(pdi,mdi),'PDI線從下向上突破MDI線，顯示有新多頭進(jìn)場，為買進(jìn)信號');
EXPLAIN(cross(mdi,pdi),'PDI線從上向下跌破MDI線，顯示有新空頭進(jìn)場，為賣出信號');
EXPLAIN(adx>ref(adx,1),'ADX值持續(xù)高于前一日，行情將維持原趨勢');
M周▲:DRAWTEXT(CROSS("MACD.DIFF#WEEK" ,"MACD.DEA#WEEK"),DEA1,'▲M周'),COLORred;
M月個:DRAWTEXT(CROSS("MACD.DIFF#MONTH" ,"MACD.DEA#MONTH"),DEA1,'個M月'),COLORMAGENTA;

W1:=C<=MA(C,5) AND C<=MA(C,10) ;
W2:=O>MA(C,5) AND O>MA(C,10) ;
W3:=MA(V,5)<=MA(V,10);
W4:=diff<dea;
EXPLAIN(W1 AND W2,'斷頭鍘刀:向下的趨勢,不是洗盤就是將下跌,賣出')colorgreen;
EXPLAIN(W1 ,'5日均線死叉10均線,短線空頭勢力強(qiáng)大,賣出')coloryellow;
EXPLAIN(W3 ,'5日均量死叉10日均量,做多能量枯竭,賣出')colorred;
EXPLAIN(W4 ,'DIFF下穿DEA,空頭形成,賣出')colorff00ff;
EXPLAIN(W1 AND W2 AND W3 AND W4 ,'三死叉見頂,賣出')coloryellow;

EXPLAIN(W1 AND W3 AND W4 ,'多方潰敗,空方強(qiáng)大,向下徹底形成,賣出')colorgreen;
DRAWTEXT(W1 AND  W2 AND W3 AND W4,DIFF,'＃'),colorFFFF10;



EXPLAINEX(1=1,'換手率=',vol/CAPITAl*100,2,0);
explain((vol/CAPITAl)>0.075,'換手過大，小心主力出逃，短期頭部');

LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
EXPLAINEX(1=1,'相對強(qiáng)弱RSI1=',RSI1,2,0);
EXPLAIN(RSI1>85,'6日RSI超買,防止回?fù)鮘n');
EXPLAIN(RSI1>80,'6日RSI向上突破85，超買,考慮賣出');
EXPLAIN(RSI1<15,'6日RSI超賣,隨時有可能反彈');
EXPLAIN(RSI1<15,'6日RSI向下跌破15，超賣，考慮買入');
EXPLAIN(CROSS(RSI1,15),'6日RSI向上突破15，買進(jìn)信號');
EXPLAIN(CROSS(RSI1,85),'6日RSI向下跌破85，賣出信號');
psy:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
EXPLAINEX(1=1,'12天心理線,PSY=',psy,2,0);
EXPLAINEX(1=1,'獲利盤比例=',WINNER(c)*100,2,0);
EXPLAINEX(1=1,'套牢盤比例=',100-WINNER(c)*100,2,0);
Aa:=(EMA(C,30)*2+MA(C,60))/3;
Ra:=(VOL*CLOSE);
VL1a:=EMA(Ra,13)/EMA(VOL,13);
VL2a:=EMA(Ra,60)/EMA(VOL,60);
VLa:=EMA((VL1a+VL2a)/2,3);
分水嶺:=ma((Aa+VLa)/2,1);
EXPLAINEX(1=1,'分水嶺（中長標(biāo)）=',分水嶺,2,0);
EXPLAIN(close>分水嶺,'股價在分水嶺之上,大勢屬多頭,可積極做多');
EXPLAIN(close<分水嶺,'股價在分水嶺之下,大勢屬空頭,超跌只能搶反彈');
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
UPR:=BBI+3*STD(BBI,10);
DWN:=BBI-3*STD(BBI,10);
var55:=(UPR-DWN)/UPR<0.03;
var56:=(UPR-DWN)/UPR>0.18;
var57:=(ma(c,60)-ma(c,5))/ma(c,60)>0.15;
var58:=(ma(c,5)-ma(c,60))/ma(c,5)>0.15;
EXPLAIN(var55,'多空布林收斂中，有變盤的可能，上下自己分析\n');
EXPLAIN(var57 and var56 and c>o ,'布林上下乖離太大，有反彈的可能\n');


{MACD實(shí)戰(zhàn)1}

DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  : EMA(DIFF,9);
MACD : 2*(DIFF-DEA), COLORSTICK;
D1:=EMA(C,3)-EMA(C,8);
D2:=EMA(O,3)-EMA(O,8);
D3:=EMA(H,3)-EMA(H,8);
D4:=EMA(L,3)-EMA(L,8);
DRAWICON(cross(d1,diff) and diff<-0.05 ,d4-0.1,1);
DRAWICON(cross(diff,d1) and diff>0.1 ,d3+0.1,2);
STICKLINE(D1>=D2,D1,D2,8,0),COLOR0055AA;
STICKLINE(D1<=D2,D1,D2,8,0),COLOR006600;
STICKLINE(D1>=D2,D1,D2,5,0),COLOR0077CC;
STICKLINE(D1>=D2,D1,D2,3,0),COLOR0099DD;
STICKLINE(D1>=D2,D3,D4,0,0),COLOR00BBFF;
STICKLINE(D1<=D2,D1,D2,5,0),COLOR009900;
STICKLINE(D1<=D2,D1,D2,3,0),COLOR00BB00;
STICKLINE(D1<=D2,D3,D4,0,0),COLOR00EE00;

{MACD實(shí)戰(zhàn)1.1}



input:LONG(26,20,100),SHORT(12,5,40),M(9,2,60);
DIFF:=(EMA(CLOSE,SHORT) - EMA(CLOSE,LONG));
DEA:=EMA(DIFF,M);
MACD2:=(2 * (DIFF - DEA));
VERTLINE(((CLOSE < 0) AND CROSS(DIFF,0))),color80;
VERTLINE(((CLOSE < 0) AND CROSS(MACD2,0))),color80;
VERTLINE(((CLOSE < 0) AND CROSS(0,DIFF))),color808080;
VERTLINE(((CLOSE < 0) AND CROSS(0,MACD2))),color808080;
DU0:=CROSS(DIFF,0);
UD0:=CROSS(0,DIFF);
TDU0:=BARSLAST(DU0);
TUD0:=BARSLAST(UD0);
DU3:=REF(DU0,1);
UD3:=REF(UD0,1);
TDU3:=BARSLAST(DU3);
TUD3:=BARSLAST(UD3);
UDGLINE:=IF((TDU3 < TUD3),REF(HHV(HIGH,2),TDU3),REF(LLV(LOW,2),TUD3));
JDU0:=(((REF(CLOSE,1) <= REF(UDGLINE,1)) AND (CLOSE > UDGLINE)) AND (TDU0 < TUD0));
JUD0:=(((REF(CLOSE,1) >= REF(UDGLINE,1)) AND (CLOSE < UDGLINE)) AND (TUD0 < TDU0));
JDU1:=(JDU0 AND (COUNT(JDU0,TDU0) = 1));
JUD1:=(JUD0 AND (COUNT(JUD0,TUD0) = 1));
JDU2:=(JDU1 AND (REF(BARSLAST(JUD1),1) < REF(BARSLAST(JDU1),1)));
JUD2:=(JUD1 AND (REF(BARSLAST(JUD1),1) > REF(BARSLAST(JDU1),1)));
JDU3:=(JDU1 AND (REF(BARSLAST(JUD1),1) > REF(BARSLAST(JDU1),1)));
JUD3:=(JUD1 AND (REF(BARSLAST(JUD1),1) < REF(BARSLAST(JDU1),1)));
BSLINE:=IF((BARSLAST(JDU2) < BARSLAST(JUD2)),IF(REF(CROSS(0,MACD2),1),LLV(LOW,2),REF(LLV(LOW,2),BARSLAST(REF(CROSS(0,MACD2),1)))),IF(REF(CROSS(MACD2,0),1),HHV(HIGH,2),REF(HHV(HIGH,2),BARSLAST(REF(CROSS(MACD2,0),1)))));
DRAWICON((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),0,10),ALIGN4;
DRAWICON((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),0,11),ALIGN5;
STICKLINE((MACD2 >= 0),0,MACD2,6,1),colorFF;
STICKLINE(((MACD2 >= 0) AND (MACD2 < REF(MACD2,1))),0,MACD2,6,0),colorFF;
STICKLINE((MACD2 < 0),0,MACD2,6,0),colorFFFF00;
STICKLINE(((MACD2 < 0) AND (MACD2 > REF(MACD2,1))),0,MACD2,6,1),colorFFFF00;
DIF:DIFF,LINETHICK2,colorFFFF;
MACD:DEA,colorFF00;
DEF:MACD2,LINETHICK0,colorFFFF00;
STICKLINE((CLOSE > 0),0,0,10,0),color808080;
DEFUT:=BARSLAST(CROSS(MACD2,0));
DEFDT:=BARSLAST(CROSS(0,MACD2));
DEFUL:=IF((MACD2 >= 0),HHV(MACD2,(DEFUT + 1)),REF(HHV(MACD2,(DEFUT + 1)),(DEFDT + 1)));
DEFDL:=IF((MACD2 < 0),LLV(MACD2,(DEFDT + 1)),REF(LLV(MACD2,(DEFDT + 1)),(DEFUT + 1)));
DEFU2L:=REF(DEFUL,(DEFUT + 1));
DEFD2L:=REF(DEFDL,(DEFDT + 1));
DRAWICON(((((LLV(MACD2,4) > 0) AND (MACD2 < REF(MACD2,1))) AND (REF(MACD2,1) > REF(MACD2,2))) AND (REF(MACD2,2) > REF(MACD2,3))),MACD2,5),ALIGN0;
DRAWICON(((((HHV(MACD2,4) < 0) AND (MACD2 > REF(MACD2,1))) AND (REF(MACD2,1) < REF(MACD2,2))) AND (REF(MACD2,2) < REF(MACD2,3))),MACD2,4);
DRAWICON(((((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND (MACD2 >= 0)) AND (REF(MACD2,1) < REF(DEFU2L,1))) AND (MACD2 > DEFU2L)),MACD2,12),ALIGN0;
DRAWICON(((((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND (MACD2 < 0)) AND (REF(MACD2,1) > REF(DEFD2L,1))) AND (MACD2 < DEFD2L)),MACD2,12);
EXPLAIN(JDU2,'注意長線趨勢空轉(zhuǎn)多');
EXPLAIN(JUD2,'注意長線趨勢多轉(zhuǎn)空');
EXPLAIN((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),'長線為多頭趨勢');
EXPLAIN((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),'長線為空頭趨勢');
EXPLAINEX((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),'MACD多頭防守價',BSLINE,2,1);
EXPLAINEX((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),'MACD空頭防守價',BSLINE,2,1);
EXPLAIN(((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND (CLOSE < BSLINE)),'防守價跌破：多頭小心');
EXPLAIN(((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND (CLOSE > BSLINE)),'防守價突破：空頭小心');
EXPLAIN(((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND CROSS(MACD2,0)),'空頭注意今明兩日高點(diǎn)壓力\n找日落K線放空，用線控盤');
EXPLAIN(((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND CROSS(0,MACD2)),'多頭注意今明兩日低點(diǎn)支撐\n找日出K線做多，用線控盤');
EXPLAIN(((((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND (MACD2 >= 0)) AND (REF(MACD2,1) < REF(DEFU2L,1))) AND (MACD2 > DEFU2L)),'DEF柱狀特殊研判\(zhòng)n空頭注意今明兩日高點(diǎn)壓力');
EXPLAIN(((((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND (MACD2 < 0)) AND (REF(MACD2,1) > REF(DEFD2L,1))) AND (MACD2 < DEFD2L)),'DEF柱狀特殊研判\(zhòng)n多頭注意今明兩日低點(diǎn)支撐');
EXPLAINEX((REF((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),1) AND CROSS(REF(MACD2,1),0)),'空頭注意壓力',HHV(HIGH,2),2,1);
EXPLAIN((REF((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),1) AND CROSS(REF(MACD2,1),0)),'找日落K線放空，用線控盤');
EXPLAINEX((REF((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),1) AND CROSS(0,REF(MACD2,1))),'多頭注意支撐',LLV(LOW,2),2,1);
EXPLAIN((REF((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),1) AND CROSS(0,REF(MACD2,1))),'找日出K線進(jìn)場，用線控盤');
EXPLAIN(((((LLV(MACD2,4) > 0) AND (MACD2 < REF(MACD2,1))) AND (REF(MACD2,1) > REF(MACD2,2))) AND (REF(MACD2,2) > REF(MACD2,3))),'請注意DEF柱狀縮頭');
EXPLAIN(((((HHV(MACD2,4) < 0) AND (MACD2 > REF(MACD2,1))) AND (REF(MACD2,1) < REF(MACD2,2))) AND (REF(MACD2,2) < REF(MACD2,3))),'請注意DEF柱狀縮腳');


{MACD選股}
input:n(5,2,1000);
diff:=stkindi('','macd.diff',0,6);
dea:=stkindi('','macd.dea',0,6);
MACD:=stkindi('','macd.MACD',0,6);
T1:=REF(C,2)<REF(O,2) AND REF(C,2)<REF(C,3) AND C>O AND C>REF(C,1);
T2:=DIFF>DEA AND REF(MACD,1)<REF(MACD,2) AND REF(MACD,2)<REF(MACD,3);
T3:=DIFF<REFX(DIFF,1) AND REFX(DIFF,1)<REFX(DIFF,2);


{MACD優(yōu)化}
DIFF: EMA(CLOSE,12) - EMA(CLOSE,26),COLORYELLOW,LINETHICK2;
DEA1:=EMA(DIFF,9);0.10;
MACD: 2*(DIFF-DEA1),LINETHICK0;
STICKLINE(MACD>0,0,MACD,8,1),COLORRED;
STICKLINE(MACD<0,0,MACD,8,1),COLORCYAN;
DEA: EMA(DIFF,9),COLORGREEN;
PARTLINE(DIFF>DEA,DIFF),COLORff11cc,LINETHICK2;
PARTLINE(DIFF>DEA AND DIFF<0,DIFF),COLORred,LINETHICK2;
DRAWICON(CROSS(DIFF,DEA),DIFF-0.01,6);
DRAWICON(CROSS(DEA,DIFF),DIFF,11);
Var1:=EMA(CLOSE,34)-EMA(CLOSE,5);
Var2:=EMA(Var1,5);
趨勢:=(-3)*(Var1-Var2), COLORSTICK;
EXPLAIN(趨勢>0,'Z線趨勢上升中\(zhòng)n');
EXPLAIN(趨勢<0,'Z線趨勢下降中\(zhòng)n');
EXPLAIN(cross(趨勢,0),'Z線考慮買入\n');
EXPLAIN(cross(0,趨勢),'Z線考慮賣出\n');
Var11:=ma((v/(h-l)),4);
Var33:=abs(c-o);
Var44:=v/(h-l);
EXPLAIN(Var44<var11 AND Var33<ma(Var33,4),'資金無入場意愿，萎縮中\(zhòng)n');
EXPLAIN(Var44<var11 AND Var33>ma(Var33,4),'場內(nèi)資金運(yùn)作行為\n');
EXPLAIN(Var44>var11 AND Var33<ma(Var33,4),'多空雙方激烈爭奪中\(zhòng)n');
EXPLAIN(Var44>var11 AND Var33>ma(Var33,4),'場外資金介入（或出局）意愿強(qiáng)烈\n');
TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
PDI:= DMP*100/TR;
MDI:= DMM*100/TR;
ADX:= MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;
EXPLAIN(cross(pdi,mdi),'PDI線從下向上突破MDI線，顯示有新多頭進(jìn)場，為買進(jìn)信號\n');
EXPLAIN(cross(mdi,pdi),'PDI線從上向下跌破MDI線，顯示有新空頭進(jìn)場，為賣出信號\n');
EXPLAIN(adx>ref(adx,1),'ADX值持續(xù)高于前一日，行情將維持原趨勢\n');
EXPLAIN(adx<ref(adx,1) and adx<20,'ADX值遞減，降到20以下，且橫向行進(jìn)時，市場氣氛為盤整\n');
EXPLAIN(adx<ref(adx,1) and ref(adx,1)<ref(adx,2) and ref(adx,2)>ref(adx,3) and ref(adx,3)>ref(adx,4),'ADX值從上升傾向轉(zhuǎn)為下降時，表明行情即將反轉(zhuǎn)\n');
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;
EXPLAIN(1=1,'下面為:macd,KDJ,CCI,W&R,RSI,MTM等指標(biāo)的判斷:');
EXPLAINEX(1=1,'（中標(biāo)）macd=',macd,2,1);
EXPLAIN(macd>0 and diff>0,'大勢屬多頭市場\n');
EXPLAIN(macd>0.35,'超買中，隨時有可能見頂回落\n');
EXPLAIN(macd<0 and diff<0,'大勢屬空頭市場\n');
EXPLAIN(macd<-0.35,'超賣中，隨時有可能反彈\n');
EXPLAIN(cross(diff,dea) and cross(macd,0),'上穿o軸，可考慮買入\n');
EXPLAIN(cross(j,k) and k<50,'KDJ金叉\n');
EXPLAIN(cross(k,d) and k>70,'KDJ死叉\n');
EXPLAIN(j>84,'KDJ指標(biāo)高位');EXPLAIN(j<16,'KDJ指標(biāo)低位\n');
TYP := (HIGH + LOW + CLOSE)/3;
cci:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
EXPLAIN(cci<-180,'CCI指標(biāo)底位，買入機(jī)會\n');
EXPLAIN(cci>180,'CCI指標(biāo)高位，賣出機(jī)會\n');
EXPLAINEX(1=1,'（短標(biāo)）cci=',cci,2,1);
EXPLAINEX(1=1,'換手率=',vol/CAPITAl*100,2,1);
explain((vol/CAPITAl)>0.075,'換手過大，小心主力出逃，短期頭部\n');
wr:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
EXPLAINEX(1=1,'威廉指標(biāo)（短標(biāo)）=',wr,2,1);
explain(wr>-20,'W&R超買，短線即將見頂，應(yīng)及時賣出\n');
explain(wr<-80,'W&R超賣，短線即將見底，應(yīng)伺機(jī)買進(jìn)\n');
MTM := CLOSE-REF(CLOSE,6);
MTMMA := MA(MTM,6);
EXPLAIN(CROSS(MTM,MTMMA) and MTMMA<-0.8,'MTM從下向上突破MTMMA，買入信號\n');
EXPLAIN(CROSS(MTMMA,MTM) and MTMMA>0.8,'MTM從上向下跌破MTMMA，賣出信號\n');

LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
EXPLAINEX(1=1,'相對強(qiáng)弱RSI1=',RSI1,2,1);
EXPLAIN(RSI1>85,'6日RSI超買,防止回?fù)鮘n');
EXPLAIN(RSI1>80,'6日RSI向上突破85，超買,考慮賣出\n');
EXPLAIN(RSI1<15,'6日RSI超賣,隨時有可能反彈\n');
EXPLAIN(RSI1<15,'6日RSI向下跌破15，超賣，考慮買入\n');
EXPLAIN(CROSS(RSI1,15),'6日RSI向上突破15，買進(jìn)信號\n');
EXPLAIN(CROSS(RSI1,85),'6日RSI向下跌破85，賣出信號\n');
psy:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
EXPLAINEX(1=1,'12天心理線,PSY=',psy,2,1);
EXPLAINEX(1=1,'獲利盤比例=',WINNER(c)*100,2,1);
EXPLAINEX(1=1,'套牢盤比例=',100-WINNER(c)*100,2,1);
Aa:=(EMA(C,30)*2+MA(C,60))/3;
Ra:=(VOL*CLOSE);
VL1a:=EMA(Ra,13)/EMA(VOL,13);
VL2a:=EMA(Ra,60)/EMA(VOL,60);
VLa:=EMA((VL1a+VL2a)/2,3);
分水嶺:=ma((Aa+VLa)/2,1);
EXPLAINEX(1=1,'分水嶺（中長標(biāo)）=',分水嶺,2,1);
EXPLAIN(close>分水嶺,'股價在分水嶺之上,大勢屬多頭,可積極做多\n');
EXPLAIN(close<分水嶺,'股價在分水嶺之下,大勢屬空頭,超跌只能搶反彈\n');
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
UPR:=BBI+3*STD(BBI,10);
DWN:=BBI-3*STD(BBI,10);
var55:=(UPR-DWN)/UPR<0.03;
var56:=(UPR-DWN)/UPR>0.18;
var57:=(ma(c,60)-ma(c,5))/ma(c,60)>0.15;
var58:=(ma(c,5)-ma(c,60))/ma(c,5)>0.15;
EXPLAIN(var55,'多空布林收斂中，有變盤的可能，上下自己分析\n');
EXPLAIN(var57 and var56 and c>o ,'布林上下乖離太大，有反彈的可能\n');
EXPLAIN(var58 and var56 and c<o ,'布林上下乖離太大，有回落的可能\n');


T1 AND T2 AND T3;

{MACD周叉 LONG 26 SHORT 12 MID 9 }

DIFF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG),COLORWHITE;
DEA:EMA(DIFF,M),COLORYELLOW;
MACD:(DIFF-DEA)*2,COLORSTICK;
周DIFF:MA("MACD.DIFF#WEEK"(LONG,SHORT,M),5),POINTDOT,LINETHICK1,COLORWHITE;
周DEA:MA("MACD.DEA#WEEK"(LONG,SHORT,M),5),POINTDOT,LINETHICK1,COLOR33FF99;
周金▲:DRAWTEXT(CROSS("MACD.DIFF#WEEK"(LONG,SHORT,M) ,"MACD.DEA#WEEK"(LONG,SHORT,M)),0,'▲'),COLORred;
周死▼:DRAWTEXT(CROSS("MACD.DEA#WEEK"(LONG,SHORT,M) ,"MACD.DIFF#WEEK"(LONG,SHORT,M)),0,'▼')COLORgreen;
月金個:DRAWTEXT(CROSS("MACD.DIFF#MONTH"(LONG,SHORT,M) ,"MACD.DEA#MONTH"(LONG,SHORT,M)),0,'個'),COLORMAGENTA;
月死丫:DRAWTEXT(CROSS("MACD.DEA#MONTH"(LONG,SHORT,M) ,"MACD.DIFF#MONTH"(LONG,SHORT,M)),0,'丫'),COLORYELLOW;


{MACD周期背離}
input:n(30,0.1,100);
dif:=stkindi('','macd.diff',0,6);
tj1:=c>ref(c,n) and dif<ref(dif,n);
tj2:=c<ref(c,n) and dif>ref(dif,n);
背離:tj1 or tj2;
aa:=BACKSET(背離,n);
PARTLINE(aa,c/10);




{變色MACD}


input: SHORT(5,1,1000), LONG(9,1,1000),M(26,1,1000);

DIFF : (EMA(CLOSE,SHORT) - EMA(CLOSE,LONG)),linethick2,colorgreen;
DEA  : EMA(DIFF,M),colorcyan;
MACD:2*(DIFF-DEA), COLORSTICK;
tj:=(diff>dea);
tj1:=(diff>0);
PARTLINE(tj,diff),colormagenta,linethick2;

partline(tj1 and tj,diff),colorred,linethick2;
tj2:=diff<-1 and diff<dea and macd<-1;
partline(tj2,diff),colorblue,linethick2;
B1:=LLV(MACD,999999);
B2:=HHV(MACD,999999);
B3:=(B2-B1);
C1:=LLV(low,999999);
C2:=HHV(high,999999);
C3:=(C2-C1);
D:=B3/C3;
W1:=C<=MA(C,5) AND C<=MA(C,10) ;
W2:=O>MA(C,5) AND O>MA(C,10) ;
W3:=MA(V,5)<=MA(V,10);
W4:=diff<=dea;
EXPLAIN(W1 AND W2,'斷頭鍘刀:向下的趨勢,不是洗盤就是將下跌,賣出')colorgreen;
EXPLAIN(W1 ,'5日均線死叉10均線,短線空頭勢力強(qiáng)大,賣出')coloryellow;
EXPLAIN(W3 ,'5日均量死叉10日均量,做多能量枯竭,賣出')colorred;
EXPLAIN(W4 ,'DIFF下穿DEA,空頭形成,賣出')colorff00ff;
EXPLAIN(W1 AND W2 AND W3 AND W4 ,'三死叉見頂,賣出')coloryellow;

EXPLAIN(W1 AND W3 AND W4 ,'多方潰敗,空方強(qiáng)大,向下徹底形成,賣出')colorgreen;
VERTLINE(W1 AND  W2 AND W3 AND W4),colorgreen;

{變色MACD三死叉見頂}{


DIFF : (EMA(CLOSE,SHORT) - EMA(CLOSE,LONG)),linethick2,colorgreen;
DEA  : EMA(DIFF,M),colorcyan;
MACD:2*(DIFF-DEA), COLORSTICK;
tj:=(diff>dea);
tj1:=(diff>0);
PARTLINE(tj,diff),colormagenta,linethick2;

partline(tj1 and tj,diff),colorred,linethick2;
tj2:=diff<-1 and diff<dea and macd<-1;
partline(tj2,diff),colorblue,linethick2;
B1:=LLV(MACD,999999);
B2:=HHV(MACD,999999);
B3:=(B2-B1);
C1:=LLV(low,999999);
C2:=HHV(high,999999);
C3:=(C2-C1);
D:=B3/C3;
W1:=C<=MA(C,5) AND C<=MA(C,10) ;
W2:=O>MA(C,5) AND O>MA(C,10) ;
W3:=MA(V,5)<=MA(V,10);
W4:=diff<=dea;
EXPLAIN(W1 AND W2,'斷頭鍘刀:向下的趨勢,不是洗盤就是將下跌,賣出')colorgreen;
EXPLAIN(W1 ,'5日均線死叉10均線,短線空頭勢力強(qiáng)大,賣出')coloryellow;
EXPLAIN(W3 ,'5日均量死叉10日均量,做多能量枯竭,賣出')colorred;
EXPLAIN(W4 ,'DIFF下穿DEA,空頭形成,賣出')colorff00ff;
EXPLAIN(W1 AND W2 AND W3 AND W4 ,'三死叉見頂,賣出')coloryellow;

EXPLAIN(W1 AND W3 AND W4 ,'多方潰敗,空方強(qiáng)大,向下徹底形成,賣出')colorgreen;
VERTLINE(W1 AND  W2 AND W3 AND W4),colorgreen;


{超級疊加MACD}


DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA : EMA(DIFF,9);
MACD : 2*(DIFF-DEA), COLORSTICK;
D1:=EMA(C,3)-EMA(C,8);
D2:=EMA(O,3)-EMA(O,8);
D3:=EMA(H,3)-EMA(H,8);
D4:=EMA(L,3)-EMA(L,8);
DRAWICON(cross(d1,diff) and diff<-0.05 ,d4-0.1,1);
DRAWICON(cross(diff,d1) and diff>0.1 ,d3+0.1,2);
STICKLINE(D1>=D2,D1,D2,8,0),COLOR0055AA;
STICKLINE(D1<=D2,D1,D2,8,0),COLOR006600;
STICKLINE(D1>=D2,D1,D2,5,0),COLOR0077CC;
STICKLINE(D1>=D2,D1,D2,3,0),COLOR0099DD;
STICKLINE(D1>=D2,D3,D4,0,0),COLOR00BBFF;
STICKLINE(D1<=D2,D1,D2,5,0),COLOR009900;
STICKLINE(D1<=D2,D1,D2,3,0),COLOR00BB00;
STICKLINE(D1<=D2,D3,D4,0,0),COLOR00EE00;


{超前MACD}
aaa:=(C-MA(CLOSE,13))*100;
j值A(chǔ):EMA(MA(aaa,7),1),COLOR00ffff,PRECISION1;
j值B:EMA(j值A(chǔ),7),COLORff33ff,PRECISION1;
macd:(j值A(chǔ)-j值B)*2,COLORSTICK;
tj:=(j值A(chǔ)>j值B);
tj1:=(j值A(chǔ)>0);
PARTLINE(tj,j值A(chǔ)),colormagenta,linethick2;

partline(tj1 and tj,j值A(chǔ)),colorred,linethick2;
tj2:=j值A(chǔ)<-1 and j值A(chǔ)<j值B and macd<-1;
partline(tj2,j值A(chǔ)),colorblue,linethick2;


{超前MACD1}
DIFF:=(C-MA(CLOSE,13))*100;
AA:EMA(MA(DIFF,7),1),COLOR00ffff;
BB:EMA(AA,7),COLORff33ff;
MACD: (AA-BB)*2,COLORSTICK；

[ 本帖最后由 小黑19 于 2007-10-20 20:11 編輯 ]

{多彩MACD}


{LONG=26  SHORT=12  M=9}
DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  : EMA(DIFF,9);
MACD : 2*(DIFF-DEA), COLORSTICK;
s1:=MACD<ref(MACD,1)and MACD>0;
s2:=MACD<ref(MACD,1)/2 and MACD<0;
STICKLINE(MACD>=0,MACD,ref(MACD,2),1,1),COLORRED;
STICKLINE(s1,ref(MACD,2),MACD,1,1),COLOR00ffff;
STICKLINE(s2,ref(MACD,2),MACD,1,0),ColorFF0091;
STICKLINE(MACD>ref(MACD,2)and MACD<0,ref(MACD,1),MACD,1,1),COLORffff00;
s3:=BARSLAST(cross(diff,dea));
s4:=ref(s3,s3+1);
s5:=dea>ref(dea,s4);
s6:=dea<ref(dea,s4);
上成立:=cross(diff,dea) and s5;
下成立:=cross(diff,dea) and s6;
L1:=(EMA(CLOSE,3) - EMA(CLOSE,13));
L2:=EMA(L1,9);
L3:=BARSLAST(cross(L1,L2));
L4:=ref(L3,L3+1);
L5:=L2<ref(L2,L4);
變盤:cross(L1,L2) and L5,LINETHICK0,ColorD6FF9C;
STICKLINE(變盤,0.1,-0.1,2,1),ColorD6FF9C;
成立距今:BARSLAST(cross(diff,dea)),LINETHICK0;
L6:=BARSCOUNT(CLOSE);
DRAWICON(CROSS(L1,L2),DIFF,4);
DRAWICON(CROSS(L2,L1),DIFF,5);
ref(dea,s3),POINTDOT,COLORGREEN;{時間之窗}
IF(L1>L2,ref(dea,s3),0),POINTDOT,ColorB078FF;
IF(MACD<0,ref(dea,s3),0),POINTDOT,COLORGREEN;
VERTLINE(上成立),Color9D60FF;
VERTLINE(下成立),ColorFF0043;
VERTLINE(變盤),ColorD6FF9C;


{芳香MACD}

DIFF : EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);
DEA  : EMA(DIFF,M);
MACD1 : 3*DIFF-2*DEA;
MACD2 : 2*(DIFF-DEA), COLORSTICK


{好看的MACD}


DIFF : EMA(CLOSE,12) - EMA(CLOSE,26),LINETHICK0;
DEA  : EMA(DIFF,9);
MACD : 2*(DIFF-DEA),LINETHICK0;
PARTLINE(DIFF>REF(DIFF,1),DIFF),COLORRED;
PARTLINE(DIFF<REF(DIFF,1),DIFF),COLORGREEN;
STICKLINE(MACD>REF(MACD,1) AND MACD>0,MACD,0,8,0),COLOR0000AA;
STICKLINE(MACD>REF(MACD,1) AND MACD>0,MACD,0,5,0),COLOR0000CC;
STICKLINE(MACD>REF(MACD,1) AND MACD>0,MACD,0,2.5,0),COLOR0000DD;
STICKLINE(MACD<REF(MACD,1) AND MACD>0,MACD,0,8,0),COLOR0000AA;
STICKLINE(MACD<REF(MACD,1) AND MACD>0,MACD,0,5,0),COLOR0077FF;
STICKLINE(MACD<REF(MACD,1) AND MACD>0,MACD,0,3,0),COLOR00FFFF;

STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,8,0),COLORFF9900;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,5,0),COLORFFBB00;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,MACD,0,3,0),COLORFFFF00;
STICKLINE(MACD<REF(MACD,1) AND MACD<0,MACD,0,8,0),COLORFF0000;
STICKLINE(MACD<REF(MACD,1) AND MACD<0,MACD,0,5,0),COLORFF4400;
STICKLINE(MACD<REF(MACD,1) AND MACD<0,MACD,0,3,0),COLORFF8800;


{量價MACD}
OBV:=MA(SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0)/25000,1);
DIFF : EMA(obv,12) - EMA(obv,26),COLORYELLOW,LINETHICK2;
DEA : EMA(DIFF,9)COLORGREEN;
MACD : 2*(DIFF-DEA), ;
STICKLINE(MACD>0,0,MACD,8,1),COLORRED;
STICKLINE(MACD<0,0,MACD,8,1),COLORCYAN;

PARTLINE(DIFF>DEA,DIFF),COLORff11cc,LINETHICK2;
PARTLINE(DIFF>DEA AND DIFF<0,DIFF),COLORred,LINETHICK2;
DRAWICON(CROSS(DIFF,DEA),DIFF-0.01,6);
DRAWICON(CROSS(DEA,DIFF),DIFF,5);

[ 本帖最后由 小黑19 于 2007-10-20 20:13 編輯 ]

{解盤}


MA5:MA(C,5) colorwhite;
MA10:MA(C,10)coloryellow;
POLYLINE(C,MA(C,20)) color999999;
MA30:MA(C,30)colorgreen;
POLYLINE(C,MA(C,45)) color999999;
MA60:MA(C,60)colormagenta;
POLYLINE(C,MA(C,90)) color999999;
MA120:MA(C,120)colorcyan;
POLYLINE(C,MA(C,150)) color999999;
POLYLINE(C,MA(C,180)) color999999;
POLYLINE(C,MA(C,210)) color999999;
MA250:MA(C,250)colorred;
VK:=SQRT(VOL/CAPITAL*100*5);
STICKLINE(C>=O,H,L,0,0) COLORred;
STICKLINE(C>=O,C,O,VK+3.8,0) COLORred;
STICKLINE(C< O,H,L,0,0) COLORgreen;
STICKLINE(C< O,C,O,VK+3.8,0) COLORgreen;
EXPLAIN((MA5>MA10 and MA10>MA30 and MA5>MA30),'解：短期均線排列：多頭')COLORred;
EXPLAIN((MA5<MA10 and MA10<MA30 and MA5<MA30),'解：短期均線排列：空頭');
EXPLAIN((MA30>MA60 and MA30>MA120 and MA60>MA120),'解：中期均線排列：多頭');
EXPLAIN((MA30<MA60 and MA30<MA120 and MA60<MA120),'解：中期均線排列：空頭');
EXPLAIN((MA60>MA120 and MA120>MA250 and MA60>MA250),'解：長期均線排列：多頭');
EXPLAIN((MA60<MA120 and MA120<MA250 and MA60<MA250),'解：長期均線排列：空頭');
EXPLAIN((CROSS(MA5,MA10)),'解：短期均線5x10：金叉')COLORred;
EXPLAIN((CROSS(MA10,MA5)),'解：短期均線5x10：死叉');
EXPLAIN((CROSS(C,MA120)),'解：今日股價上穿半年線');
EXPLAIN((CROSS(MA120,C)),'解：今日股價跌破半年線');
EXPLAIN((CROSS(C,MA250)),'解：今日股價上穿一年線');
EXPLAIN((CROSS(MA250,C)),'解：今日股價跌破一年線');
EXPLAIN((CROSS(C,MA60) and CROSS(C,MA120) and CROSS(C,MA250)),'解：股價一陽上穿三線');
EXPLAIN((MA30>REF(MA30,1)),'解：30日均線趨勢：向上');
EXPLAIN((MA30>REF(MA30,1) AND MA30<REF(MA30,1)*1.001),'解：30日均線趨勢：走平');
EXPLAIN((MA30<REF(MA30,1)),'解：30日均線趨勢：向下');
EXPLAIN((MA5>REF(MA5,1)*1.015),'解：5日均線：強(qiáng)勁向上');
EXPLAIN((MA5>REF(MA5,1) AND MA5<REF(MA5,1)*1.005),'解：5日均線：方向不明');
EXPLAIN((MA5<REF(MA5,1)*0.985),'解：5日均線：快速向下');
DIFF:=EMA(C,5)-EMA(C,20);
DEA:=EMA(DIFF,10);
MACD:=2*(DIFF-DEA);
JC:=CROSS(DIFF,DEA);
SC:=CROSS(DEA,DIFF);
DCJC:=JC AND DEA>0;
EXPLAIN((JC AND DEA>0),'解：MACD在0軸上金叉')COLORred;
EXPLAIN((JC AND DEA<0),'解：MACD在0軸下金叉');
EXPLAIN((SC AND DEA>0),'解：MACD在0軸上死叉');
EXPLAIN((SC AND DEA<0),'解：MACD在0軸下死叉');
EXPLAIN((MACD>0 AND MACD>REF(MACD,1)),'解：MACD的紅柱：增長');
EXPLAIN((MACD>0 AND MACD<REF(MACD,1)),'解：MACD的紅柱：縮短');
EXPLAIN((MACD<0 AND ABS(MACD)>REF(ABS(MACD),1)),'解：MACD的綠柱：增長');
EXPLAIN((MACD<0 AND ABS(MACD)<REF(ABS(MACD),1)),'解：MACD的綠柱：縮短');
EXPLAIN((COUNT(DCJC,20)=2 AND JC AND DEA>0),'解：0軸上金叉次數(shù)：2')COLORredCOLORred;
EXPLAIN((COUNT(DCJC,20)=3 AND JC AND DEA>0),'解：0軸上金叉次數(shù)：3');
EXPLAIN((COUNT(DCJC,20)=4 AND JC AND DEA>0),'解：0軸上金叉次數(shù)：4');
EXPLAINICON(HIGH>=HHV(HIGH,20), 'MyBMP');
EM5:EMA(C,5) colorwhite;
EM10:EMA(C,10)coloryellow;
POLYLINE(C,EMA(C,20)) color999999;
EM30:EMA(C,30)colorgreen;
POLYLINE(C,EMA(C,45)) color999999;
EM60:EMA(C,60)colormagenta;
POLYLINE(C,EMA(C,90)) color999999;
EM120:EMA(C,120)colorcyan;
POLYLINE(C,EMA(C,150)) color999999;
POLYLINE(C,EMA(C,180)) color999999;
POLYLINE(C,EMA(C,210)) color999999;
EM250:EMA(C,250)colorred;
FILLRGN(EMA(C,5)>EMA(C,10),EMA(C,5),EMA(C,10))COLOR6699FF;
FILLRGN(EMA(C,5)<EMA(C,10),EMA(C,5),EMA(C,10))COLORFF6666;
{VK:=SQRT(VOL/CAPITAL*100*5);}
STICKLINE(C>=O,H,L,0,0) COLORred;
STICKLINE(C>=O,C,O,VK+3.8,0) COLORred;
STICKLINE(C< O,H,L,0,0) COLORgreen;
STICKLINE(C< O,C,O,VK+3.8,0) COLORgreen;
EXPLAIN((EM5>EM10 and EM10>EM30 and EM5>EM30),'解：短期均線排列：多頭');
EXPLAIN((EM5<EM10 and EM10<EM30 and EM5<EM30),'解：短期均線排列：空頭');
EXPLAIN((EM30>EM60 and EM30>EM120 and EM60>EM120),'解：中期均線排列：多頭');
EXPLAIN((EM30<EM60 and EM30<EM120 and EM60<EM120),'解：中期均線排列：空頭');
EXPLAIN((EM60>EM120 and EM120>EM250 and EM60>EM250),'解：長期均線排列：多頭');
EXPLAIN((EM60<EM120 and EM120<EM250 and EM60<EM250),'解：長期均線排列：空頭');
EXPLAIN((CROSS(EM5,EM10)),'解：短期均線5x10：金叉');
EXPLAIN((CROSS(EM10,EM5)),'解：短期均線5x10：死叉');
EXPLAIN((CROSS(C,EM120)),'解：今日股價上穿半年線');
EXPLAIN((CROSS(EM120,C)),'解：今日股價跌破半年線');
EXPLAIN((CROSS(C,EM250)),'解：今日股價上穿一年線');
EXPLAIN((CROSS(EM250,C)),'解：今日股價跌破一年線');
EXPLAIN((CROSS(C,EM60) and CROSS(C,EM120) and CROSS(C,EM250)),'解：股價一陽上穿三線');
EXPLAIN((EM30>REF(EM30,1)),'解：30日均線趨勢：向上');
EXPLAIN((EM30>REF(EM30,1) AND EM30<REF(EM30,1)*1.001),'解：30日均線趨勢：走平');
EXPLAIN((EM30<REF(EM30,1)),'解：30日均線趨勢：向下');
EXPLAIN((EM5>REF(EM5,1)*1.015),'解：5日均線：強(qiáng)勁向上');
EXPLAIN((EM5>REF(EM5,1) AND EM5<REF(EM5,1)*1.005),'解：5日均線：方向不明');
EXPLAIN((EM5<REF(EM5,1)*0.985),'解：5日均線：快速向下');
EXPLAIN((JC AND DEA>0),'解：MACD在0軸上金叉');
EXPLAIN((JC AND DEA<0),'解：MACD在0軸下金叉');
EXPLAIN((SC AND DEA>0),'解：MACD在0軸上死叉');
EXPLAIN((SC AND DEA<0),'解：MACD在0軸下死叉');
EXPLAIN((MACD>0 AND MACD>REF(MACD,1)),'解：MACD的紅柱：增長');
EXPLAIN((MACD>0 AND MACD<REF(MACD,1)),'解：MACD的紅柱：縮短');
EXPLAIN((MACD<0 AND ABS(MACD)>REF(ABS(MACD),1)),'解：MACD的綠柱：增長');
EXPLAIN((MACD<0 AND ABS(MACD)<REF(ABS(MACD),1)),'解：MACD的綠柱：縮短');
EXPLAIN((COUNT(DCJC,20)=2 AND JC AND DEA>0),'解：0軸上金叉次數(shù)：2');
EXPLAIN((COUNT(DCJC,20)=3 AND JC AND DEA>0),'解：0軸上金叉次數(shù)：3');
EXPLAIN((COUNT(DCJC,20)=4 AND JC AND DEA>0),'解：0軸上金叉次數(shù)：4');


{世志MACD}
{M:1 100 26 M1:1 100 3  M2: 1 100 3}
Var1:=(CLOSE-LLV(LOW,m))/(HHV(HIGH,m)-LLV(LOW,m))*100-50,LINETHICK3;
K:SMA(Var1,m1,1),LINETHICK2,COLORFFFFAA;
D:SMA(K,m2,1),LINETHICK2,COLORBLUE;
MACD: 2*(K-D),LINETHICK3, COLORSTICK;
VAR2:=(CLOSE-LLV(LOW,85))/(HHV(HIGH,85)-LLV(LOW,85))*100-50,LINETHICK3;
底: SMA(Var2,5,1),COLOR9900FF,LINETHICK3;
45;
上:40,POINTDOT,COLORRED,LINETHICK3;
中:0,LINETHICK2,POINTDOT;
下:-40,LINETHICK3,POINTDOT,COLORGREEN;
-45;



{天堂星MACD實(shí)戰(zhàn)YM}
MA3:=MA(CLOSE,3);
MA5:=MA(CLOSE,5);
MA7:=MA(CLOSE,7);
MA15:=MA(CLOSE,15);
ma30:=ma(close,30);
ma60:=ma(close,60),coloryellow;
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
雙線合一:=count(cross(diff,dea),2)=1 ;
短均線多頭:=ma3>ma5 and ma5>ma7;
中均線多頭:=ma15>ma30 and ma30>ma60;
aa:=雙線合一 and 短均線多頭 and filter(雙線合一 and 短均線多頭,2);
介入1:aa and diff<0.15;
介入2:aa  and diff>macd and diff<0.15;


{新MACD金叉、死叉}
{MACD周叉 LONG 26 SHORT 12 MID 9  日線、周線、周&月金叉、死叉同一圖}
input:LONG(26,26 ,26 ),SHORT(12,12 ,12), MID(9,9, 9 );
DIFF:指數(shù)平滑移動平均(收盤價,SHORT)-指數(shù)平滑移動平均(收盤價,LONG),COLORWHITE;
DEA:指數(shù)平滑移動平均(DIFF,MID),COLORYELLOW;
MACD:(DIFF-DEA)*2,彩色棒狀線;

DEA:= 指數(shù)平滑移動平均(DIFF,9),COLORGREEN;
畫分段線(DIFF>DEA,DIFF),COLORRED,LINETHICK2;
畫分段線(DIFF>DEA AND DIFF<0,DIFF),COLORMAGENTA,LINETHICK2;
畫圖標(biāo)(交叉函數(shù)(DIFF,DEA),DIFF,10);
畫圖標(biāo)(交叉函數(shù)(DEA,DIFF),DIFF,11);

周DIFF:簡單移動平均("MACD.DIFF#WEEK"(LONG,SHORT,MID),5),點(diǎn)狀線,LINETHICK1,COLORWHITE;
周DEA:簡單移動平均("MACD.DEA#WEEK"(LONG,SHORT,MID),5),點(diǎn)狀線,LINETHICK1,COLOR33FF99;
周金▲:顯示文字(交叉函數(shù)("MACD.DIFF#WEEK"(LONG,SHORT,MID) ,"MACD.DEA#WEEK"(LONG,SHORT,MID)),0,'▲'),COLORred;
周死▼:顯示文字(交叉函數(shù)("MACD.DEA#WEEK"(LONG,SHORT,MID) ,"MACD.DIFF#WEEK"(LONG,SHORT,MID)),0,'▼')COLORgreen;
月金個:顯示文字(交叉函數(shù)("MACD.DIFF#MONTH"(LONG,SHORT,MID) ,"MACD.DEA#MONTH"(LONG,SHORT,MID)),0,'個'),COLORMAGENTA;
月死丫:顯示文字(交叉函數(shù)("MACD.DEA#MONTH"(LONG,SHORT,MID) ,"MACD.DIFF#MONTH"(LONG,SHORT,MID)),0,'丫'),Color00FFFF;



Jm:=CROSS(DIFF,DEA);
JmCount:=COUNT(Jm,BARSLAST(DEA>0));
次數(shù):=NUMTOSTR(JmCount,0);
DRAWTEXT(DEA<0 AND Jm,0,'0軸下金叉'),colorgreen;{Macd在0軸線以下第}
DRAWNUMBER(DEA<0 AND Jm,0-0.1,JmCount,0);

{新彩色MACD}

DIFF: EMA(CLOSE,12) - EMA(CLOSE,26),Color00FF00,LINETHICK2;
DEA1:=EMA(DIFF,9);
MACD: 2*(DIFF-DEA1),LINETHICK0;
STICKLINE(MACD>0,0,MACD,8,1),COLORRED;
STICKLINE(MACD<0,0,MACD,8,1),COLORCYAN;
DEA: EMA(DIFF,9),ColorFFFFFF,LINETHICK2;
PARTLINE(DIFF>DEA,DIFF),COLORMAGENTA,LINETHICK2;
PARTLINE(DIFF>DEA AND DIFF<0,DIFF),COLORRED,LINETHICK2;DRAWICON(CROSS(DIFF,DEA),DIFF,4);
DRAWICON(CROSS(DEA,DIFF),DIFF,11);

a:=macd/4;
STICKLINE(a>=0,0,0+a,7,0),color00ffff;
STICKLINE(a>=0,0+a,0+2*a,7,0),color0099ff;
STICKLINE(a>=0,0+2*a,0+3*a,7,0),color0066ff;
STICKLINE(a>=0,0+3*a,macd,7,0),color0033ff;
STICKLINE(a<=0,0,a,7,0),COLORffff99;
STICKLINE(a<=0,0+a,2*a,7,0),COLORffcc66;
STICKLINE(a<=0,0+2*a,3*a,7,0),COLORff9966;
STICKLINE(a<=0,0+3*a,macd,7,0),COLORff9933;tj:=(diff>dea);
tj1:=(diff>0);
PARTLINE(tj,diff),colormagenta,linethick2;

partline(tj1 and tj,diff),colorred,linethick2;
tj2:=diff<-1 and diff<dea and macd<-1;
partline(tj2,diff),colorblue,linethick2;


{智能MACD}

DIFF:(EMA(CLOSE,3) - EMA(CLOSE,13)),colorred;

DEA:EMA(DIFF,9),colorff00ff;
MACD:0.9*(DIFF-DEA), COLORSTICK;
if(diff<0,diff,0),coloryellow,linethick1;
if(diff<0,0,diff),colorred,linethick1;
if(diff<dea,diff,dea),color00ff00,linethick1;
if(diff>dea,dea,dea),colorff00ff,linethick1;
aa:=cross(diff,dea);
二次金叉買就贏:0 ,LINETHICK0;
加倉要等綠變紅:0 ,LINETHICK0;
時間之窗做參考:0 ,LINETHICK0;
見到死叉快點(diǎn)逃:0,LINETHICK0;
     Var1:=(HIGH+LOW+CLOSE)/3;
Var2:=(EMA(Var1,2)+EMA(Var1,5)+EMA(Var1,8))/3;
Var3:=(EMA(Var1,6)+EMA(Var1,9)+EMA(Var1,12))/3;
Var4:=BARSCOUNT(CLOSE);
Var5:=HHV(HIGH,200);
Var6:=LLV(LOW,200);
Var7:=(Var5-Var6)/40;
Var8:=HIGH+Var7;
Var9:=LOW-Var7;
sjzc:=IF((Var4+0)/34=FLOOR((Var4+0)/34),50,0),COLORred,LINESTICK;
DRAWICON(sjzc ,0.09,1);

DRAWICON(CROSS(DIFF,DEA),DIFF-0.01,4);
DRAWICON(CROSS(DEA,DIFF),DIFF,2);

{主圖MACD}

DIFF1:=EMA(CLOSE,4)-EMA(CLOSE,10);
DEA1:=EMA(DIFF1,5);
DIFF:DIFF1*4.5+EMA(C,4)*0.9,COLORWHITE;
DEA:DEA1*4.5+EMA(C,5)*0.9,COLORYELLOW;

STICKLINE(DIFF>DEA,DIFF,DEA,3,0),COLORmagenta;

STICKLINE(C>=O,C,O,7,0),COLORRED;
STICKLINE(C>=O,C,O,4,0),COLORB0B0FF;
aa:=STICKLINE(C>=O,C,O,2,0),COLORYELLOW;
STICKLINE(C>=O,H,L,0,0),COLORYELLOW;
STICKLINE(C<=O,C,O,7,0),COLORFF2020;
STICKLINE(C<=O,C,O,4,0),COLORFF6600;
BB:=STICKLINE(C<=O,C,O,2,0),COLORCYAN;
STICKLINE(C<=O,H,L,0,0),COLORCYAN;

{紫氣MACD交易}{n:20}


DIFF: EMA(CLOSE,12) - EMA(CLOSE,26),COLORYELLOW,LINETHICK2;
DEA1:=EMA(DIFF,9);
MACD: 2*(DIFF-DEA1),LINETHICK0;
STICKLINE(MACD>0,0,MACD,8,1),COLORRED;
STICKLINE(MACD<0,0,MACD,8,1),COLORCYAN;
DEA: EMA(DIFF,9),COLORGREEN;
PARTLINE(DIFF>DEA,DIFF),COLORff11cc,LINETHICK2;
PARTLINE(DIFF>DEA AND DIFF<0,DIFF),COLORred,LINETHICK2;
DRAWICON(CROSS(DIFF,DEA),DIFF-0.01,6);
DRAWICON(CROSS(DEA,DIFF),DIFF,11);
V1:=EMA(EMA(CLOSE,n),n);
V2:=100*WINNER(CLOSE*0.95);
控盤力度:(V1-REF(V1,1))/REF(V1,1)*10,colorwhite,LINETHICK1;
無莊控盤:IF(控盤力度<0,控盤力度,0),LINETHICK2,COLOR00ff00,STICK;
有莊控盤:IF(控盤力度>REF(控盤力度,1) AND 控盤力度>0,控盤力度,0),LINETHICK2,COLORff00ff,STICK;
主力減倉:IF(控盤力度< REF(控盤力度,1) AND 控盤力度>0,控盤力度,0),LINETHICK2,COLOrBLUE,STICK;
高度控盤:IF(V2>50 AND COST(85)< CLOSE AND 控盤力度>0,控盤力度,0),LINETHICK2,COLORRED,STICK;
開始控盤:IF(CROSS(控盤力度,0),0.2,0),LINETHICK2,COLORFF00FF;
Var1:=EMA(CLOSE,34)-EMA(CLOSE,5);
Var2:=EMA(Var1,5);
趨勢:=(-3)*(Var1-Var2), COLORSTICK;
趨勢,colorred;
長期趨勢:EMA(Var1,10)*(-1);
EXPLAIN(趨勢>0,'Z線趨勢上升中'),COLORRED;
EXPLAIN(趨勢<0,'Z線趨勢下降中'),COLORGREEN;
EXPLAIN(cross(趨勢,0),'Z線考慮買入'),COLORCYAN;
EXPLAIN(cross(0,趨勢),'Z線考慮賣出'),COLORCYAN;
Var11:=ma((v/(h-l)),4);
Var33:=abs(c-o);
Var44:=v/(h-l);
EXPLAIN(Var44<var11 AND Var33<ma(Var33,4),'資金無入場意愿，萎縮中'),COLORCYAN;
EXPLAIN(Var44<var11 AND Var33>ma(Var33,4),'場內(nèi)資金運(yùn)作行為'),COLORRED;
EXPLAIN(Var44>var11 AND Var33<ma(Var33,4),'多空雙方激烈爭奪中'),colorwhite;
EXPLAIN(Var44>var11 AND Var33>ma(Var33,4),'場外資金介入（或出局）意愿強(qiáng)烈'),coloryellow;
TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14),colormagenta;
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
PDI:= DMP*100/TR;
MDI:= DMM*100/TR;
ADX:= MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;
EXPLAIN(cross(pdi,mdi),'PDI線從下向上突破MDI線，顯示有新多頭進(jìn)場，為買進(jìn)信號'),COLORRED;
EXPLAIN(cross(mdi,pdi),'PDI線從上向下跌破MDI線，顯示有新空頭進(jìn)場，為賣出信號'),COLORGREEN;
EXPLAIN(adx>ref(adx,1),'ADX值持續(xù)高于前一日，行情將維持原趨勢'),coloryellow;
EXPLAIN(adx<ref(adx,1) and adx<20,'ADX值遞減，降到20以下，且橫向行進(jìn)時，市場氣氛為盤整'),colorwhite;
EXPLAIN(adx<ref(adx,1) and ref(adx,1)<ref(adx,2) and ref(adx,2)>ref(adx,3) and ref(adx,3)>ref(adx,4),'ADX值從上升傾向轉(zhuǎn)為下降時，表明行情即將反轉(zhuǎn)'),colorblue;
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;
EXPLAINEX(1=1,'（中標(biāo)）macd=',macd,2,1),colorwhite;
EXPLAIN(macd>0 and diff>0,'大勢屬多頭市場'),COLORRED;
EXPLAIN(macd>0.35,'超買中，隨時有可能見頂回落'),COLORGREEN;
EXPLAIN(macd<0 and diff<0,'大勢屬空頭市場'),coloryellow;
EXPLAIN(macd<-0.35,'超賣中，隨時有可能反彈'),colorblue;
EXPLAIN(cross(diff,dea) and cross(macd,0),'上穿o軸，可考慮買入');
EXPLAIN(cross(j,k) and k<50,'KDJ金叉'),coloryellow;
EXPLAIN(cross(k,d) and k>70,'KDJ死叉'),colorblue;
EXPLAIN(j>84,'KDJ指標(biāo)高位');EXPLAIN(j<16,'KDJ指標(biāo)低位'),COLORGREEN;
TYP := (HIGH + LOW + CLOSE)/3;
cci:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
EXPLAIN(cci<-180,'CCI指標(biāo)底位，買入機(jī)會'),COLORRED;
EXPLAIN(cci>180,'CCI指標(biāo)高位，賣出機(jī)會'),COLORGREEN;
EXPLAINEX(1=1,'（短標(biāo)）cci=',cci,2,1),colorblue;
EXPLAINEX(1=1,'換手率=',vol/CAPITAl*100,2,1),COLORGREEN;
explain((vol/CAPITAl)>0.075,'換手過大，小心主力出逃，短期頭部'),coloryellow;
wr:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
EXPLAINEX(1=1,'威廉指標(biāo)（短標(biāo)）=',wr,2,1),coloryellow;
explain(wr>-20,'W&R超買，短線即將見頂，應(yīng)及時賣出'),colorblue;
explain(wr<-80,'W&R超賣，短線即將見底，應(yīng)伺機(jī)買進(jìn)'),colorwhite;
MTM := CLOSE-REF(CLOSE,6);
MTMMA := MA(MTM,6);
EXPLAIN(CROSS(MTM,MTMMA) and MTMMA<-0.8,'MTM從下向上突破MTMMA，買入信號'),COLORRED;
EXPLAIN(CROSS(MTMMA,MTM) and MTMMA>0.8,'MTM從上向下跌破MTMMA，賣出信號'),COLORGREEN;
LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
EXPLAINEX(1=1,'相對強(qiáng)弱RSI1=',RSI1,2,1),COLORRED;
EXPLAIN(RSI1>85,'6日RSI超買,防止回?fù)?),colorblue;
EXPLAIN(RSI1>80,'6日RSI向上突破85，超買,考慮賣出'),colormagenta;
EXPLAIN(RSI1<15,'6日RSI超賣,隨時有可能反彈'),colorblue;
EXPLAIN(RSI1<15,'6日RSI向下跌破15，超賣，考慮買入'),colormagenta;
EXPLAIN(CROSS(RSI1,15),'6日RSI向上突破15，買進(jìn)信號'),COLORRED;
EXPLAIN(CROSS(RSI1,85),'6日RSI向下跌破85，賣出信號'),colormagenta;
psy:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
EXPLAINEX(1=1,'12天心理線,PSY=',psy,2,1),COLORGREEN;
EXPLAINEX(1=1,'獲利盤比例=',WINNER(c)*100,2,1),coloryellow;
EXPLAINEX(1=1,'套牢盤比例=',100-WINNER(c)*100,2,1),colorblue;
Aa:=(EMA(C,30)*2+MA(C,60))/3;
Ra:=(VOL*CLOSE);
VL1a:=EMA(Ra,13)/EMA(VOL,13);
VL2a:=EMA(Ra,60)/EMA(VOL,60);
VLa:=EMA((VL1a+VL2a)/2,3);
分水嶺:=ma((Aa+VLa)/2,1);
EXPLAINEX(1=1,'分水嶺（中長標(biāo)）=',分水嶺,2,1),coloryellow;
EXPLAIN(close>分水嶺,'股價在分水嶺之上,大勢屬多頭,可積極做多'),COLORRED;
EXPLAIN(close<分水嶺,'股價在分水嶺之下,大勢屬空頭,超跌只能搶反彈'),colorblue;
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
UPR:=BBI+3*STD(BBI,10);
DWN:=BBI-3*STD(BBI,10);
var55:=(UPR-DWN)/UPR<0.03;
var56:=(UPR-DWN)/UPR>0.18;
var57:=(ma(c,60)-ma(c,5))/ma(c,60)>0.15;
var58:=(ma(c,5)-ma(c,60))/ma(c,5)>0.15;
EXPLAIN(var55,'多空布林收斂中，有變盤的可能，上下自己分析'),coloryellow;
EXPLAIN(var57 and var56 and c>o ,'布林上下乖離太大，有反彈的可能'),COLORRED;
EXPLAIN(var58 and var56 and c<o ,'布林上下乖離太大，有回落的可能'),colorblue;