|
N1:=30; N2:=199; 牛線:MA(COST(98),2)COLOR4080FF,LINETHICK2; 強(qiáng)壓力:HHV((MA(C,1)),N2)*0.93 COLORGREEN,LINETHICK1; H1:EMA(CLOSE,6),COLORWHITE DOTLINE; IF((ATAN((H1/REF(H1,1)-1)*100)*57.3)>N1,H1,DRAWNULL),COLORWHITE,LINETHICK2; STICKLINE(CROSS(C,H1)AND C/REF(C,1)>=1.09,O,C,0.9,0),COLORMAGENTA; H2:EMA(EMA(CLOSE,6),18),COLORMAGENTA DOTLINE; IF(H1>H2 AND (ATAN((H2/REF(H2,1)-1)*100)*57.3)>5,H2,DRAWNULL),COLORMAGENTA,LINETHICK2; DRAWICON(CROSS(H1,H2*1.008) ,H2,1); MA50:MA(C,50),COLOR81A5C6,LINETHICK1; IF((ATAN((MA(C,50)/REF(MA(C,50),1)-1)*100)*57.3)>=15,MA(C,50),DRAWNULL),COLOR81A5C6,LINETHICK2; DRAWICON(CROSS(EMA(EMA(CLOSE,6),18),MA50) ,MA50*0.96,9); DRAWTEXT(REF(強(qiáng)壓力,1)<=REF(強(qiáng)壓力,2)*1.012 AND (ATAN((EMA(CLOSE,6)/REF(EMA(CLOSE,6),1)-1)*100)*57.3)>N1 AND C>=強(qiáng)壓力 AND 強(qiáng)壓力>REF(強(qiáng)壓力,1),L*0.97,'突破')COLORRED; {洗盤殺入線} {T1:=CONST(LLVBARS(LOW,N2)); T1HIGH:=CONST(REF(HIGH,T1)); EE:=CONST(CURRBARSCOUNT); T2:=CONST(BARSLAST((CURRBARSCOUNT >(EE+T1)) AND (HIGH>T1HIGH))); T2HIGH:=CONST(REF(HIGH,T2)); T3:=CONST(BARSLAST((CURRBARSCOUNT >(EE+T2)) AND (HIGH>T2HIGH))); T3HIGH:=CONST(REF(HIGH,T3)); 洗盤殺入線:DRAWLINE(CURRBARSCOUNT=T3+1, T3HIGH, ISLASTBAR, T3HIGH, 1),LINETHICK2,COLOR0000FF; DRAWTEXT(ISLASTBAR, T3HIGH,'洗盤殺入線'),LINETHICK1,COLORYELLOW;} {止損線} {STICKLINE(ISLASTBAR,HHV(C,5)*0.95-0.01,HHV(C,5)*0.95,50,0),COLOR00FFFF; DRAWTEXT(ISLASTBAR,HHV(C,5)*0.96,'止損價位'),COLORYELLOW;} {徐九} A001:=C>REF(C,4); NT:=BARSLASTCOUNT(A001); TJ11:=NT=9; TJ13:=ISLASTBAR AND BETWEEN(NT,5,8); AY:=(BACKSET(TJ11>0,9) OR BACKSET(TJ13>0,NT))*NT; DRAWTEXT(AY>0,H*1.02,VAR2STR(AY,0)),COLORFF00FF; DRAWTEXT(NT=9,H*1.02,'9'),COLORGREEN; B01:=C TJ21:=NT0=9 ; TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8); AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0; DRAWTEXT(AY1>0,L*0.98,VAR2STR(AY1,0)),COLORFF00FF; DRAWTEXT(NT0=9,L*0.98,'9'),COLORGREEN; TT:=240/FROMOPEN; 比:=TT; YYA4:=MA(CLOSE,20); YYA5:=(CLOSE > MA(CLOSE,5)); YYA6:=(MA(CLOSE,5) > MA(CLOSE,10)); YYA7:=(CLOSE > MA(CLOSE,10)); YYA8:=(MA(CLOSE,5) > MA(CLOSE,20)); YYA9:=(CLOSE > MA(CLOSE,20)); YYA10:=REF(YYA4,1); YYA11:=(YYA4 > YYA10); YYAVX:=(((((IF(YYA5,10,(0 - 10)) + IF(YYA6,10,(0 - 10))) + IF(YYA7,10,(0 - 10))) + IF(YYA8,10,(0 - 10))) + IF(YYA9,10,(0 - 10))) + IF(YYA11,10,(0 - 10))); DSLX:=(CLOSE / INDEXC); DSLX1:=MA(DSLX,5); DSLX2:=MA(DSLX,10); YYV1:=MA(VOL,5); YYV2:=MA(VOL,10); 情況1:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0)),NODRAW; 情況2:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0)); 情況3:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 > YYV2)) AND (DSLX < DSLX1)),1,0)); 情況4:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 <= YYV2)) AND (DSLX < DSLX1)),1,0)); 情況5:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0)); 情況6:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0)); 情況7:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)); 情況8:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0)); 情況9:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0)); 情況10:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0)); 情況11:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)),NODRAW; 情況12:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0)); 情況13:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0)); 情況14:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0)); 情況15:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)); 情況16:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0)); 大盤1:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 >= YYV2)),1,0)); 大盤2:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 < YYV2)),1,0)); 大盤3:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 >= YYV2)),1,0)); 大盤4:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 < YYV2)),1,0)); 大盤5:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)),1,0)); 大盤6:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)),1,0)); 大盤7:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)),1,0)); 大盤8:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)),1,0)); MFI:=(HIGH-LOW)*1000000/(VOL*比); 綠燈:=MFI>=REF(MFI,1)AND VOL*比>=REF(VOL,1); MMM1:=CONST(綠燈); 衰退:=MFI 偽裝:=MFI>=REF(MFI,1)AND VOL*比 蟄伏:=MFI MMM4:=CONST(蟄伏); WJ:=(H+L+C)/3; V1:=IF(H=L,1,H-MAX(O,C)); V2:=IF(H=L,1,MAX(C,O)-WJ); V3:=IF(H=L,1,MIN(O,C)-L); V4:=IF(H=L,1,WJ-MIN(C,O)); V5:=VOL/IF(H=L,4,H-L); V6:=(V1*V5); V7:=(V2*V5); V8:=(V3*V5); V9:=(V4*V5); 買盤1:=DYNAINFO(23)*比; 賣盤1:=DYNAINFO(22)*比; 買盤2:=IF(ISLASTBAR AND C>300,(V9+V8)*TT,(V9+V8)); 賣盤2:=IF(ISLASTBAR AND C>300,(V6+V7)*TT,(V6+V7)); 買盤:=IF(ISLASTBAR AND PERIOD=5 AND C<300,買盤1,買盤2); 賣盤:=IF(ISLASTBAR AND PERIOD=5 AND C<300,賣盤1,賣盤2); {買賣差:=買盤-賣盤;} 量大:=(賣盤+買盤)/REF(VOL,1)>2; MMM5:=CONST(量大); 量縮:=REF(VOL,1)/(賣盤+買盤)>1.5; MMM6:=CONST(量縮); 賣量大:=(賣盤-買盤)/買盤>0.4; MMM7:=CONST(賣量大); 買量大:=(買盤-賣盤)/賣盤>0.4; MMM8:=CONST(買量大); DRAWTEXT_FIX(情況1=1 ,0.10,0,0,'量能理想,明顯走強(qiáng)，中線參與，倉位控制在70%左右。'),COLORFF00FF; DRAWTEXT_FIX(情況2=1 ,0.10,0,0,'走勢趨強(qiáng),量能不足，短線進(jìn)場，倉位控制在50%左右。'),COLORFF00FF; DRAWTEXT_FIX(情況3=1 ,0.10,0,0,'量價良好,并無明顯走強(qiáng)，短線可進(jìn)場，倉位50%左右。'),COLORFF00FF; DRAWTEXT_FIX(情況4=1 ,0.10,0,0,'形態(tài)尚可,量能不足，未全走強(qiáng)，短入，倉位30%左右。'),COLORFF00FF; DRAWTEXT_FIX(情況5=1 ,0.10,0,0,'形態(tài)已變壞,走勢尚可，重倉者減大半，清倉者%觀望。'),COLOR00FFFF; DRAWTEXT_FIX(情況6=1 ,0.10,0,0,'隨大盤下跌，明顯縮量，考慮大盤風(fēng)險，減持或清倉。'),COLOR00FFFF; DRAWTEXT_FIX(情況7=1 ,0.10,0,0,'該股放量下跌，走勢明顯偏弱，不搶反彈，離場觀望。'),COLORFFFFFF; DRAWTEXT_FIX(情況8=1 ,0.10,0,0,'該股縮量下跌，走勢偏弱無力，人氣散失，離場觀望。'),COLORFFFF00; DRAWTEXT_FIX(情況9=1 ,0.10,0,0,'該股形態(tài)良好，強(qiáng)勢明顯，量能充足，可以繼續(xù)持有。'),COLOR00FFFF; DRAWTEXT_FIX(情況10=1,0.10,0,0,'上行趨勢不變，強(qiáng)勢依然，量能開始轉(zhuǎn)弱，注意風(fēng)險。'),COLOR00FFFF; DRAWTEXT_FIX(情況11=1,0.10,0,0,'該股仍然具備上漲潛力，但股性偏弱，可以考慮減倉。'),COLORFFFFFF; DRAWTEXT_FIX(情況12=1,0.10,0,0,'該股走勢趨弱，量能明顯不足，減大部分籌碼或空倉。'),COLORFFFF00; DRAWTEXT_FIX(情況13=1,0.10,0,0,'該股形態(tài)不佳，注意成交量變化，但目前不適合參與。'),COLORFFFF00; DRAWTEXT_FIX(情況14=1,0.10,0,0,'該股趨勢不明，股價偏弱，注意量能變化，暫不參與。'),COLORFFFF00; DRAWTEXT_FIX(情況15=1,0.10,0,0,'有走強(qiáng)跡象，但量能不足，趨勢不明朗，不適合操作。'),COLORFFFF00; DRAWTEXT_FIX(情況16=1,0.10,0,0,'該股走勢太弱，主動性買盤弱，沒有太大的參與價值。'),COLORFFFFFF; DRAWTEXT_FIX(大盤1,0.10,0.05,0,'總勢量能理想,70%倉位, 若最佳買點(diǎn)，否則謹(jǐn)慎介入。'),COLOR00FF00; DRAWTEXT_FIX(大盤2,0.10,0.05,0,'總勢趨強(qiáng)，量不足,若前輪下跌，短進(jìn)50%，量大加倉。'),COLORFF00FF; DRAWTEXT_FIX(大盤3,0.10,0.05,0,'總勢形態(tài)走壞，重倉者可減去大部分倉位或放空籌碼。'),COLORAAAAAA; DRAWTEXT_FIX(大盤4,0.10,0.05,0,'總勢縮量調(diào)整，注意大盤系統(tǒng)風(fēng)險，短線可清倉觀望。'),COLORFFFFFF; DRAWTEXT_FIX(大盤5,0.10,0.05,0,'總勢走勢良好，量能理想，可繼續(xù)持有或加倉強(qiáng)勢股。'),COLOR00FFFF; DRAWTEXT_FIX(大盤6,0.10,0.05,0,'總勢形態(tài)良好，但量能稍顯不足，隨時準(zhǔn)備減倉調(diào)倉。'),COLOR00FF00; DRAWTEXT_FIX(大盤7,0.10,0.05,0,'總勢趨勢不明，注意成交量變化，目前暫不適宜進(jìn)場。'),COLORFFFFFF; DRAWTEXT_FIX(大盤8,0.10,0.05,0,'總勢趨勢向下，量能萎縮，短線可殺跌，不適合進(jìn)場。'),COLORFFFFFF; DRAWTEXT_FIX(MMM1,0.10,0.10,0,'［綠燈］實(shí)計(jì)交易量增加。MFI促進(jìn)指數(shù)增加。'),COLORFFFFFF; DRAWTEXT_FIX(MMM2,0.10,0.10,0,'［衰退］實(shí)計(jì)交易量減少。MFI促進(jìn)指數(shù)減少。'),COLORGREEN; DRAWTEXT_FIX(MMM3,0.10,0.10,0,'［偽裝］實(shí)計(jì)交易量減少。MFI促進(jìn)指數(shù)增加。'),COLORGREEN; DRAWTEXT_FIX(MMM4,0.10,0.10,0,'［蟄伏］實(shí)計(jì)交易量增加。MFI促進(jìn)指數(shù)減少。'),COLORYELLOW; DRAWTEXT_FIX(MMM5,0.10,0.15,0,'★今天比昨天的成交量放大一倍以上。'),COLORGREEN; DRAWTEXT_FIX(MMM6,0.10,0.15,0,'★今天比昨天的成交量縮量一半以上。'),COLORYELLOW; DRAWTEXT_FIX(MMM7,0.10,0.20,0,'☆該股今天賣出量大于買入量40％以上。'),COLORGREEN; DRAWTEXT_FIX(MMM8,0.10,0.20,0,'☆該股今天買入量大于賣出量40％以上。'),COLORYELLOW; Z11:=STRCAT(DYBLOCK,' '); Z22:=STRCAT(Z11,HYBLOCK); Z3:=STRCAT(Z22,' '); Z4:=STRCAT(Z3,GNBLOCK); Z5:=STRCAT(Z4,' '); Z6:=STRCAT(Z5,FGBLOCK); DRAWTEXT_FIX(ISLASTBAR,0.4,0.012,0,STRCAT(Z6,ZHBLOCK)),COLORRED; DRAWTEXT_FIX(1,0,0.075,0,STRCAT('',ZDBLOCK)),COLORYELLOW; |
|
|
