B1:=REF(CLOSE,1);
B2:=REF(CLOSE,2);
B3:=REF(CLOSE,3);
B4:=REF(CLOSE,4);
CMAX:=MAX(MAX(MAX(CLOSE,B1),B2),B3);
CMIN:=MIN(MIN(MIN(CLOSE,B1),B2),B3);
持股:STICKLINE(CLOSE=CMAX AND (B1>=B2 OR B1>=B3) OR B1=CMAX AND (B2=CMIN OR B3=CMIN) AND CLOSE>=B2 OR
B2=CMAX AND B3=CMIN AND CLOSE>=B1 OR B3=CMAX AND CLOSE>=B1 AND CLOSE>=B2,B1,CLOSE,8,0),COLOR0000ff;
變盤:STICKLINE(CLOSE=CMAX AND B1=CMIN,B2,CLOSE,8,0),COLOR0099ef;
下跌:STICKLINE(CLOSE=CMIN AND (B1<B2 OR B1<B3) OR B1=CMIN AND (B2=CMAX OR B3=CMAX) AND CLOSE<B2 OR
B2=CMIN AND B3=CMAX AND CLOSE<B1 OR B3=CMIN AND CLOSE<B1 AND CLOSE<B2,B1,CLOSE,8,1),COLOR00ff00;
STICKLINE(B1=CMAX AND CLOSE=CMIN,B2,CLOSE,8,0),COLOR009900;
買入:STICKLINE(B1=CMIN AND CLOSE>=B2 OR (B2=CMIN AND B1<=B3 OR
B3=CMIN AND B1<=B2) AND B2<B4 AND CLOSE>=B1,B1,B2,8,0),COLORffffff;
拋售:STICKLINE(B1=CMAX AND CLOSE<B2 OR (B2=CMAX AND B1>B3 OR
B3=CMAX AND B1>B2) AND B2>=B4 AND CLOSE<B1,B1,B2,8,0),COLOR00ffff;
a1:=cost(95);
a2:=cost(5);
ly:=(a1-a2)*100/(a1+a2);
drawicon(ly>ref(ly,1), l*0.98,8)ALIGN5;
Var1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);
Var2:=REF(Var1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var3:=REF(Var2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var4:=REF(Var3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var5:=REF(Var4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var6:=REF(Var5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var7:=REF(Var6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var8:=REF(Var7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var9:=REF(Var8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VarA:=REF(Var9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VarB:=REF(VarA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VarC:=REF(VarB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VarD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
VarE:=REF(VarD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VarF:=REF(VarE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var10:=REF(VarF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var11:=REF(Var10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var12:=REF(Var11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var13:=REF(Var12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var14:=REF(Var13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var15:=REF(Var14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var16:=REF(Var15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
Var17:=REF(Var16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
Var18:=REF(Var17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
bs:=REF(VarD OR VarE OR VarF OR Var10 OR Var11 OR Var12 OR Var13 OR Var14 OR Var15 OR Var16 OR Var17 OR Var18,1) AND Var1;
ns:=REF(Var1 OR Var2 OR Var3 OR Var4 OR Var5 OR Var6 OR Var7 OR Var8 OR Var9 OR VarA OR VarB OR VarC,1) AND VarD;
stickline(ns,h*1.009,h*1.010,8,0),colorgreen;
stickline(bs,l*0.996,l*0.997,8,0),colorwhite;
Var3:=(2*(C+L)/2+(C+H)/2+L)/4*1;
下降通道阻擊線:=EMA(Var3,89)*0.91*1;
Var5:=IF(VOL>0,1,0);
Var6:=LOW<=下降通道阻擊線;
Var7:=FILTER(Var6*Var5,30)*1;
Var9:=IF(VOL>0,1,0);
VarA:=FILTER(Var6,13)*1;
VarB:=Var7 OR VarA*Var9;
DRAWTEXT(VarB*1,LOW,'阻擊'),coloryellow ;

A:=REF(H,9)=HHV(H,2*9+1);
B:=FILTER(A,3);
D:=BACKSET(B,9+1);
HD:=FILTER(D,9);
A2:=REF(L,9)=LLV(L,2*9+1);
B2:=FILTER(A2,9);
D2:=BACKSET(B2,9+1);
LD:=FILTER(D2,9);
STICKLINE(REF(HD,1),REF(H,1),REF(H,1),18,0),LINETHICK6,COLORMAGENTA;
STICKLINE(REF(LD,1),REF(L,1),REF(L,1),18,0),LINETHICK6,COLORGREEN;
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);
DRAWTEXT(FILTER(B1>0,5),L*0.977,'▲MACD底背離'),COLORGREEN;
A2:=BARSLAST(REF(CROSS("KDJ指標.K","KDJ指標.D"),1));
B2:=REF(C,A2+1)>C AND REF("KDJ指標.K",A2+1)<"KDJ指標.K" AND CROSS("KDJ指標.K","KDJ指標.D");
DRAWTEXT(FILTER(B2>0,5),L*0.96,'△KDJ底背離'),COLORYELLOW;
A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2");
DRAWTEXT(FILTER(B3>0,5),L*0.995,'↑RSI底背離'),COLORCYAN;

C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);
DRAWTEXT(FILTER(D1>0,5),H*1.035,'▼MACD頂背離'),COLOR0066FF;
C2:=BARSLAST(REF(CROSS("KDJ指標.D","KDJ指標.K"),1));
D2:=REF(C,C2+1)<C AND REF("KDJ指標.K",C2+1)>"KDJ指標.K" AND CROSS("KDJ指標.D","KDJ指標.K");
DRAWTEXT(FILTER(D2>0,5),H*1.02,'▽KDJ頂背離'),COLORRED;
C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1",C3+1)>"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1");
DRAWTEXT(FILTER(D3>0,5),H*1.005,'↓RSI頂背離'),COLORMAGENTA;

a:=BARSCOUNT(c);
ah:=hhv(h,200);
al:=llv(l,200);
b0:=(ah-al)/40;
b1:=h+b0;
b2:=l-b0;
stickline((a+0)/14=FLOOR((a+0)/14),b2,b2-3*b0,3,0),COLORYELLOW;
drawtext((a+0)/14=FLOOR((a+0)/14),b2-2*b0,'時間窗'),COLORFFFFFF;



V1:=REF(C,1);
V2:=SMA(MAX(C-V1,0),6,1)/SMA(ABS(C-V1),6,1)*100;
DRAWICON(IF(CROSS(81,V2),1,0),h*1.01,10),COLORYELLOW;

pepy200263 附帶上了此圖片:

感謝pepy200263大大分享,不過公式有點小錯誤,小弟做了小小修正,給大家參考!!

附件: 主圖背離.ALG
此文件已被下載 460 次。

__________________
心造萬法 不執多空 文殊教回 善用其心
決戰多空 賺錢第一
------------------------------------------------------------
Thomas Du

感謝pepy200263大大分享以及 湯瑪斯兄 整理

__________________
至誠能勝天下至偽
至拙能勝天下至巧