|
{繪制最強(qiáng)壓力支撐線，股價(jià)跌至黑馬線則反彈，漲至黑馬線則遇阻} {NOTEXT黑馬線:EXPMA(C,453),LINETHICK3,COLORFF0000; IF(ATAN((NOTEXT黑馬線/REF(NOTEXT黑馬線,1)-1)*100)*180/3.1416<0,NOTEXT黑馬線,DRAWNULL),LINETHICK3,COLOR675103;} NOTEXTMA30:MA(C,30),COLORWHITE,LINETHICK1,DOTLINE; {––定義參數(shù)––}; A0:=(3*C+L+O+H)/6; VAR1:=SLOPE(EMA(C,2),5)*15+C; VAR2:=EMA(VAR1,5); VARA:=EMA(EMA(EMA(EMA(EMA(EMA(EMA(EMA(VAR2,5),5),5),5),5),5),5),5); VARB:=BARSLAST(CROSS(C,VARA)); VARC:=BARSLAST(CROSS(VARA,C)); T:=BARSLAST(L>REF(H,1)); E:=COUNT(L<REF(H,T+1),T)<2; {––定義線形––} EMA5:=EMA(C,5); EMA13:=EMA(C,13); EMA21:=EMA((C+O+H+L)/4,21); {--操作波段--} XS1:=(8*A0+7*REF(A0,1)+6*REF(A0,2)+5*REF(A0,3)+4*REF(A0,4)+3*REF(A0,5)+2*REF(A0,6)+REF(A0,7))/36; XS2:=(LLV(XS1,1)+LLV(XS1,3)+LLV(XS1,5))/3; DRAWBAND(XS1,RGB(30,38,38),XS2,RGB(30,38,38)); {繪制垂簾聽股系統(tǒng)：1、繪制主力成本線和資金生命線；2、繪制卷簾和垂簾圖形。本質(zhì)是尋找圓弧底，粉簾操作、綠簾休息} {平滑處理13日均線} NOTEXTX1:(20*A0+19*REF(A0,1)+18*REF(A0,2)+17*REF(A0,3)+16*REF(A0,4)+15*REF(A0,5)+14*REF(A0,6)+13*REF(A0,7)+12*REF(A0,8)+11*REF(A0,9)+10*REF(A0,10)+9*REF(A0,11)+8*REF(A0,12)+7*REF(A0,13)+6*REF(A0,14)+5*REF(A0,15)+4*REF(A0,16)+3*REF(A0,17)+2*REF(A0,18)+REF(A0,19))/210,COLOR40FF00,POINTDOT,LINETHICK3; 主力成本線:IF(NOTEXTX1>REF(NOTEXTX1,1),NOTEXTX1,DRAWNULL),COLORRED,POINTDOT,LINETHICK3; {平滑處理21日均線} NOTEXTX2:MA(NOTEXTX1,5),COLORC08000,POINTDOT,LINETHICK3; 資金生命線:IF(NOTEXTX1>NOTEXTX2 AND NOTEXTX2>REF(NOTEXTX2,1),NOTEXTX2,DRAWNULL),COLORYELLOW,POINTDOT,LINETHICK3; {上漲卷簾} NOTEXT上漲簾軸:IF(C>VARA AND C>REF(C,VARB),REF(C,VARB),DRAWNULL),COLORFFC8FF,LINETHICK2; STICKLINE(C>VARA AND C>REF(C,VARB) AND NOTEXTX1<=REF(C,VARB),REF(C,VARB),NOTEXTX1,0,-1),COLORFFC8FF; STICKLINE(C>VARA AND C>REF(C,VARB) AND NOTEXTX2>=REF(C,VARB),REF(C,VARB),NOTEXTX2,0,-1),COLORFFC8FF; {下跌掛簾} NOTEXT下跌簾軸:IF(C<VARA,REF(C,VARC),DRAWNULL),COLOR00FF00,LINETHICK2; STICKLINE(C<VARA AND C<REF(C,VARC) AND NOTEXTX1>=REF(C,VARC),REF(C,VARC),NOTEXTX1,0,-1),COLOR00FF00; STICKLINE(C<VARA AND C<REF(C,VARC) AND NOTEXTX2<=REF(C,VARC),REF(C,VARC),NOTEXTX2,0,-1),COLOR00FF00; {--畫K線形式--} STICKLINE(C>=O,H,L,0,0),COLORRED; STICKLINE(C<O,H,L,0,0),COLORFFFF52; STICKLINE(C>=O,C,O,3,1),COLORRED; STICKLINE(C<O,C,O,3,0),COLORFFFF52; STICKLINE(RANGE(C/O,0.995,1.005) AND H>MAX(C,O) AND L<MIN(C,O) AND C>=O AND XS1<>XS2,C,O,3,0),COLORYELLOW; STICKLINE(RANGE(C/O,0.995,1.005) AND H>MAX(C,O) AND L<MIN(C,O) AND C>=O AND XS1<>XS2,H,L,0,0),COLORYELLOW; 漲停:=C/REF(C,1)>1.0925 AND C=H; STICKLINE(漲停,O,C,3,0),COLORRED; 跌停:=REF(C,1)/C>1.095 AND C=L; STICKLINE(跌停,O,C,3,0),COLORGREEN; STICKLINE(跌停,H,L,0,0),COLORGREEN; {STICKLINE(L<REF(H,T+1) AND E,L,L-0.09,3,0),COLOR0099FF;{補(bǔ)缺口} {畫線：上軌類5日線，下軌類10日線} NOTEXT上軌:XS1,COLORWHITE; 短上軌:IF(XS1>REF(XS1,1),XS1,DRAWNULL),COLORMAGENTA,LINETHICK2; NOTEXT下軌:XS2,COLORYELLOW; 短下軌:IF(XS2>REF(XS2,1),XS2,DRAWNULL),COLORMAGENTA,LINETHICK2; NOTEXT跌下軌:IF(XS1=XS2,XS2,DRAWNULL),COLORGREEN,LINETHICK1; {繪制參考圖標(biāo)：小人跑步是走強(qiáng)買點(diǎn)（五日線和21日線的金叉），小黃圓點(diǎn)是13日線和21日線形成的圓弧底（底確認(rèn)）} STICKLINE(CROSS(EMA(EMA(C,13),1),EMA(NOTEXTX1,8)) AND XS1>REF(XS1,1),H,H*1.05,0,-1),COLORYELLOW; DRAWICON(CROSS(EMA(EMA(C,13),1),EMA(NOTEXTX1,8)) AND XS1>REF(XS1,1),H*1.05,15); {圓弧底} NOTEXTCRLBTM:IF(CROSS(NOTEXTX1,NOTEXTX2),NOTEXTX1,DRAWNULL),CIRCLEDOT,COLORYELLOW,LINETHICK7; {波段黃金坑買入標(biāo)志：看多B信號(hào)}; MTM:=C-REF(C,1); DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6); 買:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,EMA(DX,2)),1,0); VAR1K:=MA(CLOSE,27); VAR2K:=(CLOSE-VAR1K)/VAR1K*100; RRA:=MA(VAR2K,2); RRB:=BARSLAST(CROSS(-10,RRA)=1); RRD1:=RRA<-10 AND RRB>3;{黃金坑 黃金坑1} VAR1P:=(CLOSE-LLV(LOW,55.144))/(HHV(HIGH,55.144)-LLV(LOW,55))*80; VAR2P:=SMA(VAR1P,7,1); VAR3P:=SMA(VAR2P,5,1); RRD2:=CROSS(VAR2P,VAR3P) AND VAR2P<20; {頂?shù)字甘緘 頂:=REFDATE(HHV(H,144),DATE); 底:=REFDATE(LLV(L,144),DATE); NOTEXT頂部:REFDATE(頂,DATE),LINETHICK3,COLORRED; NOTEXT底部:REFDATE(底,DATE),LINETHICK3,COLORGREEN; {輔助線角度計(jì)算和顯示} {ATAN5:=ATAN((EMA5/REF(EMA5,1)-1)*100)*180/3.1416; ATAN13:=ATAN((EMA13/REF(EMA13,1)-1)*100)*180/3.1416; ATAN21:=ATAN((EMA21/REF(EMA21,1)-1)*100)*180/3.1416; DRAWTEXT_FIX(CURRBARSCOUNT=1,0.01,0.01,0,'攻擊線角度： °'),COLOR624AE8; DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.19,0.01,0,INTPART(ATAN5)),COLOR624AE8; DRAWTEXT_FIX(CURRBARSCOUNT=1,0.01,0.1,0,'工作線角度： °'),COLORWHITE; DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.19,0.1,0,INTPART(ATAN13)),COLORWHITE; DRAWTEXT_FIX(CURRBARSCOUNT=1,0.01,0.17,0,'黃金線角度： °'),COLORYELLOW; DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.19,0.17,0,INTPART(ATAN21)),COLORYELLOW;} {區(qū)間漲幅} VARX:=(CONST(C)-CONST(LLV(L,55+1)))/CONST(LLV(L,55+1))*100; DRAWTEXT_FIX(CURRBARSCOUNT=1,1,0,0,STRCAT(STRCAT('漲',VAR2STR(VARX,1)),'﹪')),COLORYELLOW; {離5日線高度} DRAWTEXT_FIX(CURRBARSCOUNT=1,0.8,0,0,STRCAT(STRCAT('五日乖離',VAR2STR((C-MA(C,5))/MA(C,5)*100,1)),'﹪')),COLORYELLOW; {高量量能平臺(tái) 高量:=VOL>=REF(V,1)*1.91 AND C>REF(C,1)*1.01; 量能:=FILTERX(高量,BARSCOUNT(高量)); NOTEXT量能:IF(CURRBARSCOUNT<=CONST(BARSLAST(量能)+1),REF(C,高量-1),DRAWNULL),COLORWHITE,LINETHICK1;}; SZ1:=REF(XS1,1)=REF(XS2,1) AND XS1>XS2 AND CLOSE>XS1; SZ2:=XS1>XS2 AND XS1>REF(XS1,1) AND XS2>REF(XS2,1) AND H/XS1<1.1 AND L>XS2 AND CLOSE>XS1; SZ3:=XS1>XS2 AND XS1>REF(XS1,1) AND XS2>=REF(XS2,1) AND H/XS1>1.1; SZ4:=XS1>XS2 AND XS1>REF(XS1,1) AND XS2>REF(XS2,1) AND CLOSE>XS2 AND CLOSE<XS1; SZ5:=(XS1>XS2 AND XS2>REF(XS2,1) AND XS1<>REF(XS1,1) AND CLOSE<XS2) OR (XS1>XS2 AND XS1<REF(XS1,1) AND XS2<REF(XS2,1) AND CLOSE<XS2); SZ6:=REF(XS1,1)>REF(XS2,1) AND XS1=XS2 AND CLOSE<XS2; XD1:=XS1=XS2 AND CLOSE<XS2 OR (XS1<REF(XS1,1) AND XS2<REF(XS2,1) AND REF(XS1,1)=REF(XS2,1) AND CLOSE<XS2); XD2:=XS1=XS2 AND CLOSE>XS1; DRAWTEXT_FIX(BARSTATUS=2 AND SZ1,0.01,0,0,'調(diào)整結(jié)束短線介入'),COLORRED; DRAWTEXT_FIX(BARSTATUS=2 AND SZ2,0.01,0,0,'上升通道走勢(shì)良好'),COLORRED; DRAWTEXT_FIX(BARSTATUS=2 AND SZ3,0.01,0,0,'股價(jià)偏離注意調(diào)整'),COLORYELLOW; DRAWTEXT_FIX(BARSTATUS=2 AND SZ4,0.01,0,0,'上升通道調(diào)整洗盤'),COLORYELLOW; DRAWTEXT_FIX(BARSTATUS=2 AND SZ5,0.01,0,0,'轉(zhuǎn)向特征注意離場(chǎng)'),COLORYELLOW; DRAWTEXT_FIX(BARSTATUS=2 AND SZ6,0.01,0,0,'通道改變堅(jiān)決離場(chǎng)'),COLORGREEN; DRAWTEXT_FIX(BARSTATUS=2 AND XD1,0.01,0,0,'下跌通道只宜觀望'),COLORGREEN; DRAWTEXT_FIX(BARSTATUS=2 AND XD2,0.01,0,0,'短期底部準(zhǔn)備進(jìn)入'),COLORYELLOW; {根據(jù)量比判斷放量情況} 縮量:=(DYNAINFO(17)<0.8); 正常量:=(DYNAINFO(17)>=0.8 AND DYNAINFO(17)<1.5); 溫和量:=(DYNAINFO(17)>=1.5 AND DYNAINFO(17)<2.5); 明顯量:=(DYNAINFO(17)>=2.5 AND DYNAINFO(17)<5); 劇烈量:=(DYNAINFO(17)>=5 AND DYNAINFO(17)<10); 異動(dòng):=(DYNAINFO(17)>=10); DRAWTEXT_FIX(縮量,0.35,0,0,'縮量'),COLORGREEN; DRAWTEXT_FIX(正常量,0.35,0,0,'正常量'),COLORWHITE; DRAWTEXT_FIX(溫和量,0.35,0,0,'溫和量'),COLORLIRED; DRAWTEXT_FIX(明顯量,0.35,0,0,'明顯量'),COLORYELLOW; DRAWTEXT_FIX(劇烈量,0.35,0,0,'劇烈量'),COLORRED; DRAWTEXT_FIX(異動(dòng),0.35,0,0,'異動(dòng)'),COLORMAGENTA; {倉(cāng)位管理} X_1:=(2*CLOSE+HIGH+LOW+OPEN)/5; X_2:=EMA(EMA(EMA(X_1,4),4),4); X_3:=(X_2-REF(X_2,1))/REF(X_2,1)*100; X_4:=MA(X_3,2); X_5:=EMA(CLOSE,5)-EMA(CLOSE,55); X_6:=EMA(X_5,10); NOTEXT持五成倉(cāng):IF(X_3>X_4 AND X_5<X_6,底,DRAWNULL),LINETHICK4,COLORMAGENTA; NOTEXT滿倉(cāng):IF(X_3>X_4 AND X_5>X_6,底,DRAWNULL),LINETHICK4,COLORRED; NOTEXT減五成倉(cāng):IF(X_3<X_4 AND X_5>X_6,底,DRAWNULL),LINETHICK4,COLORLICYAN; NOTEXT空倉(cāng):IF(X_3<X_4 AND X_5<X_6,底,DRAWNULL),LINETHICK4,COLORGREEN; {波段買底} NOTEXTBTM:IF(RRD1 OR RRD2,NOTEXT底部,DRAWNULL),LINETHICK4,COLORYELLOW; BUYBTM:=(FILTER(買=1,5) AND RRD1) OR RRD2; DRAWTEXT(BUYBTM,L*0.99,'▲'),COLORYELLOW,DRAWABOVE;
|
|
|
