【圖】同學們要的分析家用抄班主圖C

海天云騫 2017-05-25

展開全文

{CZW-c分析家用}
x01:=(C-LLV(LOW,3))/(HHV(HIGH,3)-LLV(LOW,3));
x11:=SMA(x01,2,1);
x21:=SMa(x11,2,1);
x31:=3*x11-2*x21 ;
x41:=2*x31-0.5;
sg:C*(1-(x41-x21)/15),colorWHITE,linethick2;
PARTLINE(sg,c<sg),COLORBLUE,LINETHICK2;
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;
k1:=llv(l,barslast(DISPSTATUS=1)+1);
a1:=cost(95);
a2:=cost(5);
ly:=(a1-a2)*100/(a1+a2);
drawicon(ly>ref(ly,1),k1,8);
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;
Var33:=(2*(C+L)/2+(C+H)/2+L)/4*1;
下降通道阻擊線:=EMA(Var33,89)*0.91*1;
Var55:=IF(VOL>0,1,0);
Var66:=LOW<=下降通道阻擊線;
Var77:=FILTER(Var66*Var55,30)*1;
Var99:=IF(VOL>0,1,0);
VarA:=FILTER(Var66,13)*1;
VarB:=Var77 OR VarA*Var99;
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);
AA2:=REF(L,9)=LLV(L,2*9+1);
BB2:=FILTER(AA2,9);
DD2:=BACKSET(BB2,9+1);
LD:=FILTER(DD2,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);
AA1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
BB1:=REF(C,AA1+1)>C AND REF(DIFF,AA1+1)<DIFF AND CROSS(DIFF,DEA);
DRAWTEXT(FILTER(BB1>0,5),L*0.977,'▲MACD底背離'),COLORGREEN;
nA2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));
nB2:=REF(C,nA2+1)>C AND REF("KDJ.K",nA2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D");
DRAWTEXT(FILTER(nB2>0,5),L*0.96,'△KDJ底背離'),COLORYELLOW;
nA3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));
nB3:=REF(C,nA3+1)>C AND REF("RSI.RSI1",nA3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2");
DRAWTEXT(FILTER(nB3>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;

上市年:REF(YEAR,BARSCOUNT(C)-1),LINETHICK0,COLORGREEN;
月:REF(MONTH,BARSCOUNT(C)-1),LINETHICK0,COLORMAGENTA;
e:=BARSCOUNT(c);
ah:=hhv(h,200);
al:=llv(l,200);
b0:=(ah-al)/40;
kb1:=h+b0;
kb2:=l-b0;
stickline((e+0)/34=FLOOR((e+0)/34),kb2,kb2-b0,2,0),COLORYELLOW;
drawtext((e+0)/34=FLOOR((e+0)/34),kb2,'時間窗'),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,5),COLORYELLOW;股票論壇 www.55188.com