INPUT:SHORT(12,1,100,1),LONG(26,1,100,1), M(9,1,100,2);
DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG),PRECISION2;
MACD:EMA(DIF,M),COLOR58FF58,PRECISION2;
DEF:2*(DIF-MACD),COLORFFFF00,LINETHICK0,PRECISION2;
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),COLOR00AADD{,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),ColorFF0000{,COLORFFFF00};
PARTLINE(DIF<1000,0),COLORBROWN;
p33:=barslast(cross(DEF,REF(DEF,1)));
p44:=barslast(cross(REF(DEF,1),DEF));
漲T:if(p33<p44,p33+1,0),COLORRED,LINETHICK0;
↗:(c-REF(c,漲T))/REF(c,漲T)*100,COLORWHITE,LINETHICK0,PRECISION1;//{漲幅}
跌T:if(p33>p44,p44+1,0),COLORGREEN,LINETHICK0;
↘:(c-REF(c,跌T))/REF(c,跌T)*100,COLORWHITE,LINETHICK0,PRECISION1;//{跌幅}
阻力:=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);
{多頭趨勢(shì):=IF(DIF>=0 AND MACD>=0 OR (DIF<0 AND MACD>=0),1,0);
空頭趨勢(shì):=DIF<0 AND MACD<0 OR (DIF>=0 AND MACD<0);}
多頭趨勢(shì):=(DIF>REF(DIF,1));
空頭趨勢(shì):=(DIF<REF(DIF,1));
DRAWICON(多頭趨勢(shì),DIF,10),ALIGN4;
DRAWICON(空頭趨勢(shì),DIF,11),ALIGN5;
PARTLINE(DIF<1000,DIF),,COLORCCFFFF,LINETHICK2;
PARTLINE(MACD<1000,MACD),COLOR58FF58;
縮頭:=IF(DEF>0 AND REF(DEF,1)>REF(DEF,2) AND DEF< REF(DEF,1),1,0),LINETHICK0;
縮腳:=IF(DEF<0 AND REF(DEF,1)< REF(DEF,2) AND DEF>REF(DEF,1),1,0),LINETHICK0;
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(多頭趨勢(shì), '§§§長(zhǎng)線為多頭趨勢(shì)§§§§'),COLORRED;
EXPLAIN(空頭趨勢(shì), '§§§長(zhǎng)線為空頭趨勢(shì)§§§§'),COLORGREEN;
EXPLAIN(DIF<1000,'----------------------------------------------------------------------------'),COLORBROWN;
EXPLAIN(縮頭, '§請(qǐng)注意DEF柱狀縮頭'),COLORFFFF00;
EXPLAIN(縮腳, '§請(qǐng)注意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線做多，用線控盤(pán)'),COLORFFFF00;
EXPLAIN(放空, '§空頭注意今明兩日高點(diǎn)壓力'),COLORFFFF00;
EXPLAIN(放空, '§找日落K線放空，用線控盤(pán)'),COLORFFFF00;
EXPLAIN(CROSS(MACD,0), '§注意長(zhǎng)線趨勢(shì)空轉(zhuǎn)多'),COLORRED;
EXPLAIN(CROSS(0,MACD), '§注意長(zhǎng)線趨勢(shì)多轉(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(多頭趨勢(shì) AND C< LA, '§防守價(jià)跌破：多頭小心'),COLORRED;
EXPLAIN(空頭趨勢(shì) AND C>HB, '§防守價(jià)突破：空頭小心'),COLORRED;
EXPLAIN(DIF<1000,'----------------------------------------------------------------------------'),COLORBROWN;
EXPLAINEX(多頭趨勢(shì), 'MACD多頭防守價(jià):',LA,2,0),COLOR3399FF ;
EXPLAINEX(空頭趨勢(shì), 'MACD空頭防守價(jià):',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)--股價(jià)將可能反轉(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)--股價(jià)將可能反轉(zhuǎn)向上'),COLOR58FF58;
EXPLAIN(DEF<0 AND ABS(DEF)>REF(ABS(DEF),1),'§MACD綠柱增長(zhǎng)'),COLOR58FF58;
EXPLAIN(DEF<0 AND ABS(DEF)< REF(ABS(DEF),1),'§MACD綠柱縮短'),COLOR58FF58;
EXPLAIN(DEF>0 AND DEF>REF(DEF,1),'§MACD紅柱增長(zhǎng)'),COLOR58FF58;
EXPLAIN(DEF>0 AND DEF< REF(DEF,1),'§MACD紅柱縮短'),COLOR58FF58;
EXPLAIN((LLV(L,60)=L) AND (NOT(LLV(MACD,60)=MACD)),'§底背離--屬買(mǎi)入信號(hào)'),COLOR58FF58;
EXPLAIN((HHV(H,60)=H) AND (NOT(HHV(MACD,60)=MACD)),'§頂背離--屬賣(mài)出信號(hào)'),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),'§金叉--屬買(mǎi)入信號(hào)'),COLOR58FF58;
EXPLAIN(CROSS(MACD,DIF),'§死叉--屬賣(mài)出信號(hào)'),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軸，可考慮買(mǎi)入'),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),'§上漲趨勢(shì)有所減緩，短線投資者可逢高賣(mài)出，但當(dāng)回落至均線或其他支撐位時(shí)應(yīng)及時(shí)回補(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),'§上升趨勢(shì)尚未改變'),COLOR58FF58;
EXPLAIN(DIF<0 AND DEF>0 AND DEF< REF(DEF,1),'§短線反彈已經(jīng)結(jié)束，應(yīng)繼續(xù)堅(jiān)持謹(jǐn)慎原則'),COLOR58FF58;
EXPLAIN(DIF<0 AND DEF<=0 AND DEF< REF(DEF,1),'§有加速下跌趨勢(shì)'),COLOR58FF58;
EXPLAIN(DIF<0 AND DEF<=0 AND DEF>=REF(DEF,1),'§下跌趨勢(shì)有所減緩，可在W&R指標(biāo)大于90時(shí)逢低買(mǎi)入，但有可能再次加速下跌，注意及時(shí)止損'),COLOR58FF58;
EXPLAIN(DEF<0 AND DIF<0 AND DIF< MACD AND DIF< REF(DIF,1) AND C< REF(C,1),'§下降趨勢(shì)尚未改變'),COLOR58FF58;
EXPLAIN(DIF>=0 AND DEF>=0 AND DEF>REF(DEF,1),'§有加速上漲趨勢(shì)'),COLOR58FF58;
EXPLAIN(DIF>=0 AND DEF<0 AND DEF< REF(DEF,1),'§目前正處于回落整理階段，且回落有加速趨勢(shì)'),COLOR58FF58;
EXPLAIN(DIF>=0 AND DEF<0 AND DEF>=REF(DEF,1),'§目前正處于回落整理階段，但整理即將結(jié)束，可在均線或其他支撐位附近逢低買(mǎi)入，但當(dāng)整理完成后選擇再次向下突破時(shí)應(yīng)注意及時(shí)止損'),COLOR58FF58;
EXPLAIN(DEF<-0.35,'§超賣(mài)中，隨時(shí)有可能反彈'),COLOR58FF58;
EXPLAIN(DEF>0.35,'§股價(jià)超買(mǎi)中，隨時(shí)有可能回檔'),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,'----------------------------------------------------------------------------'),COLORBROWN;
{Var1:=CLOSE;
Var2:=REF(CLOSE,1);
Var3:=REF(CLOSE,2);
Var4:=Var1>Var2 AND Var1>Var3 AND Var1>MA(CLOSE,3) AND WINNER(CLOSE)<0.05;
Var5:=Var1<Var2 AND Var1<Var3 AND Var1<MA(CLOSE,3) AND WINNER(CLOSE)>0.95;
Var6:=MIN(HHV(CLOSE,20),LLV(CLOSE,20));
賣(mài)出: 0-Var5*(Var1-Var6*0.95+7), STICK;
買(mǎi)入: Var4*(Var1+10-Var6*0.95), STICK;}
Var1:=MA(LOW,1);
Var2:=MA(HIGH,2);
Var3:=MA(CLOSE,2);
Var4:=(Var3-LLV(Var1,9))/(HHV(Var2,9)-LLV(Var1,9))*100;
Var5:=SMA(Var4,3,1);
陽(yáng):=SMA(Var5,3,1);
地:=SMA(陽(yáng),3,1),Color008080,LINETHICK2;
Var6:=(HHV(Var2,9)-Var3)/(HHV(Var2,9)-LLV(Var1,9))*100;
陰:= SMA(Var6,3,1);
天:=SMA(陰,3,1),ColorFF8000,LINETHICK2;
Var7:=REF(Var3,1);
我:=SMA(MAX(Var3-Var7,0),5,1)/SMA(ABS(Var3-Var7),5,1)*100,Color0000FF,LINETHICK2;
吃貨:=15*(CROSS(我,天)),Color4080FF,LINETHICK3;//62.13% 66.01
出貨:=15*(CROSS(地,我)),Color40FF00,LINETHICK2;//53.52%
個(gè):=EMA(((100 * (CLOSE - LLV(LOW,34))) / (HHV(HIGH,34) - LLV(LOW,34))),3);
果斷:=15*(出貨>0 AND 個(gè)>80),Color400000,LINETHICK5;
DRAWTEXT(出貨>0,DEF*2,'▼'),COLORWHITE,ALIGN4;
DRAWTEXT(果斷>0,DEF*2,'▼\n▼'),COLORWHITE,ALIGN4;
DRAWTEXT(吃貨>0,MACD,'♂'),COLORYELLOW;
p3:=barslast(cross(DIF,0));
p4:=barslast(cross(0,DIF));
〇上:if(p3<p4,p3+1,0),COLORMAGENTA,LINETHICK0;
↗幅:(c-REF(c,〇上))/REF(c,〇上)*100,ColorFFFFFF,LINETHICK0,PRECISION1;
〇下:if(p3>p4,p4+1,0),COLORCYAN,LINETHICK0;
↘跌:(c-REF(c,〇下))/REF(c,〇下)*100,ColorFFFFFF,LINETHICK0,PRECISION1;
⑴距:DIF-MACD,LINETHICK0;
①金:CROSS(DIF,MACD),LINETHICK0;
