{K線變色}
STICKLINE(CLOSE>OPEN,HIGH,LOW,0.5,0 ),COLOR0000FF;
STICKLINE(OPEN>=CLOSE,HIGH,LOW,0.5 ,0 ),COLOR00FF00;
STICKLINE(open>=close ,close ,open,0,0 ),COLOR00FF00,LAYER0;
STICKLINE(open>=close ,close ,open,8,0 ),COLOR008800,LAYER0;
STICKLINE(open>=close ,close ,open,7,0 ),COLOR009900,LAYER0;
STICKLINE(open>=close ,close ,open,6,0 ),COLOR00AA00,LAYER0;
STICKLINE(open>=close ,close ,open,5,0 ),COLOR00BB00,LAYER0;
STICKLINE(open>=close ,close ,open,4,0 ),COLOR00CC00,LAYER0;
STICKLINE(open>=close ,close ,open,3,0 ),COLOR00DD00,LAYER0;
STICKLINE(open>=close ,close ,open,2,0 ),COLOR00EE00,LAYER0;
STICKLINE(open>=close ,close ,open,1,0 ),COLOR00FF00,LAYER0;
STICKLINE(close>open,close,open,0,0) ,COLORFFBBFF,LAYER0;
STICKLINE(close>open,close,open,8,0) ,COLORFF00FF,LAYER0;
STICKLINE(close>open,close,open,7,0) ,COLORFF22FF,LAYER0;
STICKLINE(close>open,close,open,6,0) ,COLORFF44FF,LAYER0;
STICKLINE(close>open,close,open,5,0) ,COLORFF66FF,LAYER0;
STICKLINE(close>open,close,open,4,0) ,COLORFF88FF,LAYER0;
STICKLINE(close>open,close,open,3,0) ,COLORFF99FF,LAYER0;
STICKLINE(close>open,close,open,2,0) ,COLORFFAAFF,LAYER0;
STICKLINE(close>open,close,open,1,0) ,COLORFFBBFF,LAYER0;
現(xiàn)價: if (DYNAINFO(4)=0,C,DYNAINFO(7)),colorwhite,POINTDOT;
箱頂:WMA(REF(HHV(C,30),1),3),COLOR0099FF,LINETHICK2;
箱底:WMA(REF(LLV(C,30),1),3),COLORFF9900,LINETHICK2;
(箱頂+箱底)/2,COLOR00FFff,LINETHICK1;;
VARJ:FORCAST(C+C*(CLOSE-FORCAST(CLOSE,13))/FORCAST(CLOSE,13),8),colorwhite,DOTLINE,LAYER0;;
x9:FORCAST(C,9),Colorwhite,LINETHICK2;
llx:=llv(FORCAST(C,9),2);
PARTLINE(x9,x9=llx,rgb(0,255,0),x9<>llx,rgb(255,0,0)),linethick2,LAYER0;
FILLRGN(VARJ ,x9 ,VARJ>x9,RGB(80,0,80)),LINETHICK1,LAYER7;
{ZIG ————-未來函數(shù)————–}
ZF:=10;
Z10:=ZIG(4,ZF);
Low1:=TROUGH(4,ZF ,1);
High1:=PEAK(4,ZF,1);
X:=BARSLAST(DISPSTATUS=1)+1;
持有:LAST(Z10>=REF(Z10,1)),PRECIS0 ,LINETHICK0;
空倉:LAST(Z10 JD:=HHvall(HHv(H,X))*1.05;
DRAWTEXT(barstatus=2 AND 持有>0,JD,’★ZIG上漲能飄逸范圍【L:’+Low1+’→H:’+NUMTOSTRN(Low1*(1+ZF/100),2)+’】’),ALIGN2,Color0099ff,linethick3,LAYER0;
DRAWTEXT(barstatus=2 AND 空倉>0,JD,’★ZIG下跌能飄逸范圍【H:’+High1+’→L:’+NUMTOSTRN(High1*(1-ZF/100),2)+’】’),ALIGN2,Color00FF00,linethick3,LAYER0;
STICKLINE(BARSTATUS=2 AND 持有>0,Low1,Low1*(1+ZF/100),14,1),COLOR0099dd,LINETHICK1,LAYER4;
STICKLINE(BARSTATUS=2 AND 持有>0,Low1*(1+ZF/100),Low1*(1+ZF/100),150,1),COLOR0000ff,LINETHICK2,LAYER2;
STICKLINE(BARSTATUS=2 AND 空倉>0,High1,High1*(1-ZF/100),14,1),COLORff9900,LINETHICK1,LAYER4;
STICKLINE(BARSTATUS=2 AND 空倉>0,High1*(1-ZF/100),High1*(1-ZF/100),150,1),COLOR00ff00,LINETHICk2,LAYER2;
{PARTLINE(Z10,Z10>=REF(Z10,1),rgb(255,0,0),Z10 DRAWGBK(Z10>REF(Z10,1) ,STRIP(RGB(0,0,150),RGB(0,80,255),0)); {—-ZIG波段—–};
{主圖儀表}
M5:=MA(C,5);
M10:=MA(C,10);
M20:=MA(C,20);
M30:=MA(C,30);;
M60:=MA(C,60);
M120:=MA(C,120);
LC:=REF(C,1);
主升浪:=DISPSTATUS=2 AND M5>M20 AND M20>M60 AND M60>M120 AND M20>=REF(M20,1) AND M60>=REF(M60,1) AND M120>=REF(M120,1);
主浪回調(diào):=DISPSTATUS=2 AND CM20 AND M20>M60 AND M20>=REF(M20,1) AND M60>=REF(M60,1);
主浪深調(diào):=DISPSTATUS=2 AND CM20 AND M20>M60 AND M20>=REF(M20,1) AND M60>=REF(M60,1);
初升浪:=DISPSTATUS=2 AND C>LC AND C>(M5 OR M10) AND M5>(M20 OR M10) AND M5>=REF(M5,1) AND C>M20 AND (M5 OR M10)>M20 AND M20>=REF(M20,1) AND M60<(C OR M5 OR M10);
底部反彈:=DISPSTATUS=2 AND C>LC AND M120>M60 AND M60>M20 AND M5>M20;
有牛:=DISPSTATUS=2 AND C>LC AND M20>=REF(M20,1) AND C>=M60 AND M60<(C OR M5 OR M10) AND C>=M120;
放棄:=DISPSTATUS=2 AND C 滿倉:=IF(DISPSTATUS=2 AND (C>M5 OR M5>=REF(M5,1)) AND C>M10 AND (M5>=M10 OR (M5>=M20 AND M5>=REF(M5,1)))
AND M5>M20 AND M10>M20 AND M20>M60 AND M30>M120 AND M10>=REF(M10,1) AND M20>=REF(M20,1)
AND M60>=REF(M60,1) AND M120>=REF(M120,1),1,0);
大半倉:=DISPSTATUS=2 AND (C>M10 OR (C>M5 AND M10>=REF(M10,1))) AND M5>=M20 AND (M10>=M20 OR M10>=REF(M10,1)) AND M20>=M60
AND (M10>=REF(M10,1) OR (C>M5 AND M5>=REF(M5,1))) AND M20>=REF(M20,1) AND M60>=REF(M60,1);
上升回調(diào):=DISPSTATUS=2 AND CM20 AND M10>M20 AND M20>M60 AND M5<=REF(M5,1) AND
M10=REF(M20,1) AND M60>=REF(M60,1);
減倉:=DISPSTATUS=2 AND C=REF(M20,1);
半倉:=DISPSTATUS=2 AND C>M5 AND M5>M10 AND M10>M20 AND M20>=M30 AND M5>=REF(M5,1) AND M10>=REF(M10,1)
AND M20>=REF(M20,1) AND M30>=REF(M30,1) AND M30>=M60 AND M60<=REF(M60,1);
反彈:=DISPSTATUS=2 AND C>M5 AND C>M10 AND M5>M20 AND M60>M20 AND M20>=REF(M20,1) AND M60 初升浪:=DISPSTATUS=2 AND C>LC AND C>(M5 OR M10) AND M5>(M20 OR M10) AND M5>=REF(M5,1) AND C>M20 AND (M5 OR M10)>M20 AND M20>=REF(M20,1) AND M60<(C OR M5 OR M10);
探底階段:=DISPSTATUS=2 AND C AND M20 小半倉:=DISPSTATUS=2 AND C>=LC AND C>=M5 AND M5>=M10 AND M10>=M20 AND M5>=REF(M5,1) AND M10>=REF(M10,1) AND
M20>=REF(M20,1) AND M20 關(guān)注:=DISPSTATUS=2 AND C>LC AND C>M5 AND C>M20 AND M5>M10 AND M5>REF(M5,1) AND M10>REF(M10,1) AND M20<=REF(M20,1) AND
M20<=M60;
空倉:=DISPSTATUS=2 AND (M5 上穿3線:=IF(DISPSTATUS=2 AND C>MAX(M5,MAX(M10,MIN(M20,M30))) AND LC<=(MIN(REF(M5,1),MIN(REF(M10,1),MAX(REF(M20,1),REF(M30,1))))),1,0);
下破3線:=IF(DISPSTATUS=2 AND C=(MAX(REF(M5,1),MAX(REF(M10,1),MIN(REF(M20,1),REF(M30,1))))),1,0);
觀望:=DISPSTATUS=2 AND 滿倉=0 AND 大半倉=0 AND 上升回調(diào)=0 AND 減倉=0 AND 半倉=0 AND 反彈=0 AND 探底階段=0
AND 小半倉=0 AND 關(guān)注=0 AND 空倉=0 AND 上穿3線=0 AND 下破3線=0;
IF 滿倉 AND 上穿3線=0 THEN BEGIN
DRAWTEXTABS(950,15, ‘【滿倉】’),color0044FF,LINETHICK7; END;
IF 主升浪 THEN BEGIN
DRAWTEXTABS(800,15, ‘【主升浪】’),color0099FF,LINETHICK7; END;
IF 主浪回調(diào) THEN BEGIN
DRAWTEXTABS(950,50, ‘【主浪回調(diào)】’),color00FF00,LINETHICK7; END;
IF 主浪深調(diào) THEN BEGIN
DRAWTEXTABS(950,15, ‘【主浪深調(diào)】’),color00FF00,LINETHICK7; END;
IF 底部反彈 THEN BEGIN
DRAWTEXTABS(950,15, ‘【底部反彈】’),color0099FF,LINETHICK7; END;
IF 有牛 THEN BEGIN
DRAWTEXTABS(800,15, ‘【有?！?#8217;),color0000FF,LINETHICK7; END;
IF 放棄 THEN BEGIN
DRAWTEXTABS(950,15, ‘【放棄】’),color00FF00,LINETHICK7; END;
IF 上升回調(diào) THEN BEGIN
DRAWTEXTABS(950,15, ‘【上升回調(diào)】’),color99FF99,LINETHICK7; END;
IF 大半倉 AND (滿倉=0 AND BARSCOUNT(C)>60) THEN BEGIN
DRAWTEXTABS(980,15, ‘【大半倉】’),colorff00FF,LINETHICK7; END;
IF 減倉 THEN BEGIN
DRAWTEXTABS(950,15, ‘【減倉】’),color00FF00,LINETHICK7; END;
IF 半倉 THEN BEGIN
DRAWTEXTABS(800,15, ‘【半倉】’),color0099FF,LINETHICK7; END;
IF 反彈 THEN BEGIN
DRAWTEXTABS(800,15, ‘【反彈】’),color0044FF,LINETHICK7; END;
IF 初升浪 THEN BEGIN
DRAWTEXTABS(950,15, ‘【初升浪】’),color0099FF,LINETHICK7; END;
IF 探底階段 THEN BEGIN
DRAWTEXTABS(800,15, ‘【探底階段】’),color0099FF,LINETHICK7; END;
IF 關(guān)注 THEN BEGIN
DRAWTEXTABS(800,15, ‘【關(guān)注】’),color0044FF,LINETHICK7; END;
IF 初升浪 THEN BEGIN
DRAWTEXTABS(950,15, ‘【初升浪】’),color0099FF,LINETHICK7; END;
IF 上穿3線 THEN BEGIN
DRAWTEXTABS(800,50, ‘【上穿3線】’),color0099FF,LINETHICK7; END;
IF 下破3線 THEN BEGIN
DRAWTEXTABS(800,50, ‘【下破3線】’),color00FF00,LINETHICK7; END;
IF 觀望 THEN BEGIN
DRAWTEXTABS(800,45, ‘【觀望】’),color00FFff,LINETHICK7; END;
VARF1:=COUNT(CROSS(WMA(C,1.8),WMA(WMA(C,5),3)),3)=1;
VARF2:=COUNT(CROSS(WMA(C,5),WMA(WMA(C,5),3)),3)=1;
ZAI:=FILTER(VARF1 AND VARF2,5);
DRAWTEXT(ZAI,L*0.99,’↖拉升’),COLOR00FFFF,linethick1;
AAX:=(C-ma(C,8))/ma(C,8)*100;
VARM:=MIN(COUNT(C,0),8);
AAX1:=EMA(AAX,VARM) *VARM;
AAX2:=MA(AAX1,3);
AAX3:=MA(AAX1,5);
賣:aax3>10 AND aax1 減倉:filter(賣,5) ,PRECIS0,linethick0;
DRAWTEXT(減倉,H*1.03,’←減倉’),COLOR00FF00,linethick1,ALIGN0;