|
買:ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<REF(ZIG(3,10),2),COLOR00FFFF,LINETHICK3,NODRAW; {DRAWICON(買,L*0.991,1);} STICKLINE(買,3,4.5,2,1),COLORRED;四量圖 賣:ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>REF(ZIG(3,10),2),COLORFFFF00,LINETHICK3,NODRAW; {DRAWICON(賣,H*1.005,2);} STICKLINE(賣,3,4.5,2,1),COLORWHITE; MID9:=(3*CLOSE+LOW+OPEN+HIGH)/6; 牛線1:=(20*MID9+19*REF(MID9,1)+18*REF(MID9,2)+17*REF(MID9,3)+16*REF(MID9,4)+15*REF(MID9,5)+14*REF(MID9,6)+13*REF(MID9,7)+12*REF(MID9,8)+11*REF(MID9,9)+10*REF(MID9,10)+9*REF(MID9,11)+8*REF(MID9,12)+7*REF(MID9,13)+6*REF(MID9,14)+5*REF(MID9,15)+4*REF(MID9,16)+3*REF(MID9,17)+2*REF(MID9,18)+REF(MID9,20))/210,COLORGREEN{COLORRED}; 馬線1:=MA(牛線1,6),COLORMAGENTA{COLORYELLOW}; STICKLINE(C>牛線1,-1.9,-0.4,4,0),COLOR000099{COLOR017700},LINETHICK2; STICKLINE(C<馬線1,-1.9,-0.4,4,0),COLOR017700{COLOR000099},LINETHICK2; STICKLINE(牛線1>=C AND C>=馬線1,-1.9,-0.4,8,0),,COLOR017700{COLOR000099},LINETHICK2; DRAWTEXT(ISLASTBAR=1,IF(V>=0,-1,-0.4),'機構(gòu)'),COLORWHITE; 時間:DATE+1900/00/00,NODRAW ,COLORWHITE; MID1:=(3*CLOSE+LOW+OPEN+HIGH)/6; 牛線:=(20*MID1+19*REF(MID1,1)+18*REF(MID1,2)+17*REF(MID1,3)+16*REF(MID1,4)+15*REF(MID1,5)+14*REF(MID1,6)+13*REF(MID1,7)+12*REF(MID1,8)+11*REF(MID1,9)+10*REF(MID1,10)+9*REF(MID1,11)+8*REF(MID1,12)+7*REF(MID1,13)+6*REF(MID1,14)+5*REF(MID1,15)+4*REF(MID1,16)+3*REF(MID1,17)+2*REF(MID1,18)+REF(MID1,20))/210,COLORGREEN{COLORRED}; 馬線:=MA(牛線,3),COLORMAGENTA{COLORYELLOW}; GB:=(C-牛線); 換手:=V*100/CAPITAL; 主:=MA(換手,5); 大:=MA(換手,12); 中:=MA(換手,34); 散:=MA(換手,55); 均:=(主+大+中+散)/4; GBB:=(主-散); GB1:=GB+GBB; STICKLINE(GB1>=0,2.5,4,4,0),COLOR000099{COLOR017700},LINETHICK2; STICKLINE(GB1<0,2.5,4,4,0),COLOR017700{COLOR000099},LINETHICK2; DRAWTEXT(ISLASTBAR=1,IF(V>=0,3.2,0),'散戶'),COLORWHITE; AA:=MAX(MA(C,60),MA(C,120)); BB:=MIN(MA(C,60),MA(C,120)); 成交量:=V,COLORWHITE,LINETHICK0; Q:=EMA(V,5); Q1:=EMA(V,50); OBV:=SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0); OBV1:=EMA(OBV,5); OBV2:=EMA(OBV,50); W:=(Q-Q1)*0.00001; W1:=(OBV1-OBV2)*0.000001; W2:=W+W1; STICKLINE(W2>=0,0.3,1.8,4,0),COLOR000099{COLOR017700},LINETHICK2; STICKLINE(W2<0,0.3,1.8,4,0),COLOR017700{COLOR000099},LINETHICK2; DRAWTEXT(ISLASTBAR=1,IF(V>=0,1,0),'游資'),COLORWHITE; J:=MAX(MA(C,30),MA(C,60)); K:=MIN(MA(C,30),MA(C,60)); MID:=(3*CLOSE+LOW+OPEN+HIGH)/6; DKX:=(20*MID+19*REF(MID,1)+18*REF(MID,2)+17*REF(MID,3)+16*REF(MID,4)+15*REF(MID,5)+14*REF(MID,6)+ 13*REF(MID,7)+12*REF(MID,8)+11*REF(MID,9)+10*REF(MID,10)+9*REF(MID,11)+8*REF(MID,12)+ 7*REF(MID,13)+6*REF(MID,14)+5*REF(MID,15)+4*REF(MID,16)+3*REF(MID,17)+2*REF(MID,18)+REF(MID,20))/210; MADKX:=MA(DKX,6); MDD:=(DKX-MADKX)*1.2; V1:=(C*2+H+L)/4*10; V2:=EMA(V1,6)-EMA(V1,55); V3:=EMA(V2,6); V4:=2*(V2-V3)*5.5; V5:=(V2-V3)*0.06; V6:=MDD+V5; STICKLINE(V6>=0,-4.1,-2.6,4,0),COLOR000099{COLOR017700},LINETHICK2; STICKLINE(V6<0,-4.1,-2.6,4,0),COLOR017700{COLOR000099},LINETHICK2; DRAWTEXT(ISLASTBAR=1,IF(V>=0,-3.4,0),'主力'),COLORWHITE; BQIUV:(GB1),COLORWHITE,NODRAW; BQIUSV:(W2),COLORYELLOW,NODRAW; WWW:(C-牛線1),COLORYELLOW,NODRAW; XEV:(V6),COLORGREEN,NODRAW; XG:C>牛線1 AND V6>=0 AND W2>=0 AND GB1>=0,COLOR0000FF,NODRAW ;{機構(gòu) 主力 游資 散戶} P310:=BARSLAST(CROSS(XG,0.5)); P410:=BARSLAST(CROSS(0.5,XG)); 全紅T:IF(P310<P410,P310+1,0),COLORFFFFFF,NODRAW; {漲幅%:DYNAINFO(14)*100,NODRAW;} {WN:=BARSCOUNT(DCLOSE); WM:=SUM(AMOUNT,WN)/SUM(VOL*100,WN); SHI:=BETWEEN((DCLOSE)/WM,1.05,0.95); TOU:=IF(SHI=0,MA((DCLOSE),WN),WM); WA:=DCLOSE/TOU; EXPX:EXPMA(WA,13),COLORRED; EXPY:EXPMA(WA,20),COLORYELLOW; EXPZ:EXPMA(WA,88),COLORGREEN; YJ:CROSS(EXPX,1.03)COLORFF0080,NODRAW; IF(EXPX>1.003,EXPX,DRAWNULL),COLORMAGENTA; IF(EXPX>1.03,EXPX,DRAWNULL),COLORRED; WW:=EXPX>EXPZ AND EXPX>REF(EXPX,1); P34:=BARSLAST(CROSS(WW,0.5)); P33:=BARSLAST(CROSS(0.5,WW)); 爆:IF(P34<P33,P34+1,0)COLORFFFFFF,NODRAW; 漲停:CROSS(EXPY,1.04),COLORRED,NODRAW; 三:=EXPX>EXPY AND EXPY>EXPZ; P134:=BARSLAST(CROSS(三,0.5)); P133:=BARSLAST(CROSS(0.5,三)); 三色:IF(P34<P33,P34+1,0)COLOR00FF00,NODRAW; DRAWTEXT(WW,EXPX,''),COLORRED,NODRAW; DRAWTEXT(漲停,1.03,'OR漲停'),COLORYELLOW; DRAWICON(CROSS(EXPX,1.03),1.03,13); P14:=BARSLAST(CROSS(EXPZ,REF(EXPZ,1))); P13:=BARSLAST(CROSS(REF(EXPZ,1),EXPZ)); 綠色:IF(P14<P13,P14+1,0)COLOR80FF00,NODRAW; DRAWICON(三色=1,EXPZ,1); XGXG:CROSS((EXPX-0.003),EXPZ)AND CROSS(EXPY,EXPZ),NODRAW; VAR1:=LLV(LOW,21); VAR2:=HHV(HIGH,21); AK1:=EMA((((CLOSE-VAR1)/(VAR2-VAR1))*100),5); AK:=EMA((((CLOSE-VAR1)/(VAR2-VAR1))*50),13); 牛窩:CROSS(AK1,AK),NODRAW; DRAWTEXT(牛窩,L,'牛');} SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20)); 量能飽和度:IF(SAT>1,1,SAT)*100,COLORYELLOW,NODRAW; 機構(gòu):=C>牛線1; P301:=BARSLAST(CROSS(C,牛線1)); P401:=BARSLAST(CROSS(牛線1,C)); 機構(gòu)流入:IF(P301<P401,P301+1,0),COLORFFFFFF,NODRAW; DIF:EMA(CLOSE,12)-EMA(CLOSE,26),COLORFF00FF,LINETHICK2; DEA:EMA(DIF,9),COLORYELLOW,LINETHICK1; MACD:(DIF-DEA)*2,COLORSTICK; ZF:=(C-REF(C,1))/REF(C,1)*100; 每天一個點:C>O AND ZF<0 AND O<REF(L,1),COLORYELLOW,NODRAW; DRAWICON(每天一個點,-1,41); 主力做多:=100*EMA(EMA(MTM,12),12)/EMA(EMA(ABS(MTM),12),12); 多空趨勢線:=MA(主力做多,6); 能量:=主力做多-多空趨勢線; XG8:=UPNDAY(能量,1)AND UPNDAY(主力做多,1) AND UPNDAY(多空趨勢線,1); DRAWICON(XG8,3.9,26); 年:=YEAR,NODRAW; 月:=MONTH,NODRAW; 星期:=WEEKDAY,NODRAW; 日1:=DATETODAY(DATE); 上市日:=REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT); 自然日:=日1-DATETODAY(上市日)+1; ZB:=(自然日-REF(自然日,1))!=星期-REF(星期,1)OR TOTALBARSCOUNT-CURRBARSCOUNT=0; 本周第幾天:=BARSLAST(ZB)+1; 本月第幾天:=BARSLAST(年*100+月!=REF(年*100+月,1))+1; MA1:=REF(C,本周第幾天); MA2:=REF(MA1,本周第幾天); MA3:=REF(MA2,本周第幾天); MA4:=REF(MA3,本周第幾天); MA5:=REF(MA4,本周第幾天); MA6:=REF(MA5,本周第幾天); MA7:=REF(MA6,本周第幾天); MA8:=REF(MA7,本周第幾天); MA9:=REF(MA8,本周第幾天); 十周價:=(C+MA1+MA2+MA3+MA4+MA5+MA6+MA7+MA8+MA9)/10,NODRAW; 出擊突破:REFDATE(十周價,DATE),COLOR4080FF,NODRAW; {DRAWTEXT(ISLASTBAR,0,' 出擊突破'),COLORLIMAGENTA;} MA10:=MA(CLOSE,10),COLORYELLOW; MA54:=MA(CLOSE,54),COLORFFCCCC; PL1:=(((CLOSE - MA54) / MA54) < 0.1); PL2:=(((CLOSE - MA10) / MA10) < 0.3); 偏離率:=(((PL1 = 1) AND (PL2 = 1)) * 0.2); 平臺突破:((((偏離率=0) AND (REF(偏離率,1)=0.2)) AND (REF((COUNT((偏離率 =0.2),10)=10),1)=1))*1),COLORWHITE,NODRAW; DRAWTEXT(平臺突破,0.5,'===突破★牛股=========='),COLORWHITE; AB1:=REF(C,1); AB2:=DCLOSE; AB3:=(AB2-AB1)/AB1*100; AA1:=(AB3-REF(AB3,1)); 搶:=CROSS(AA1,9.8),COLORFFFF80,NODRAW; A11:=REF(V,1); A12:=DVOL; A13:=A12/A11; AA3:=(A13-REF(A13,1)); 劫:=CROSS(AA3,500),COLORRED,NODRAW; 搶劫:劫 AND 搶,COLORRED,NODRAW; DRAWICON(搶劫,2,20); DRAWICON(搶劫,2,1); |
|
|