盤1:=COST(0.33); 盤2:=COST(5); 盤3:=COST(15); 盤4:=COST(55); 盤5:=COST(97); 獲利:=WINNER(CLOSE)*100; 套牢:=100-WINNER(CLOSE)*100; DRAWTEXT_FIX(1,0.02,0,0,EXTERNSTR(0,1))COLOR0000FF; DRAWTEXT_FIX (1,0.5,0,1,'升浪:'); DRAWNUMBER_FIX(1,0.55,0,0,CONST(COST(55))),COLORYELLOW; DRAWTEXT_FIX (1,0.6,0,0,'預測:'),COLOR00FFFF; DRAWNUMBER_FIX(1,0.65,0,0,CONST(COST(97))),COLORD9D900; DRAWTEXT_FIX (1,0.7,0,0,'獲利:'); DRAWNUMBER_FIX(1,0.75,0,0,CONST(WINNER(CLOSE)*100)),COLORWHITE; {DRAWTEXTABS(675,25,'升浪:'+NUMTOSTRN(盤4,2)),COLOR00FFFF; DRAWTEXTABS(520,40,'獲利:'+NUMTOSTRN(獲利,2)+'%'),COLOR00FFFF; DRAWTEXTABS(600,40,'套牢:'+NUMTOSTRN(套牢,2)+'%'),COLOR00FFFF; DRAWTEXTABS(675,40,'預測:'+NUMTOSTRN(盤5,2)),COLOR00FFFF;} MA1:=MA(CLOSE,5); MA2:=MA(CLOSE,10); MA3:=MA(CLOSE,20); MA4:=MA(CLOSE,30); 多頭排列:= MA1>MA2 AND MA2>MA3 AND MA3>MA4 ; MA60:=MA(C,60),COLORFFCC66; MA13:=MA(C,13),COLORFFCC66; MA75:=MA(C,75),COLORFFCC66; 空頭排列:= MA1<MA2 AND MA2<MA3 AND MA3<MA4 ; 下跌趨勢:=MA4<REF(MA4,3)AND MA4<REF(MA4,1); 上升趨勢:=MA4>REF(MA4,3) AND MA4>REF(MA4,1) ; 下降成:=CONST(IF(下跌趨勢 AND MA1<REF(MA1,1) AND REF(NOT(下跌趨勢),1),1,0)); 上升成:=CONST(IF(上升趨勢 AND REF(NOT(上升趨勢),1),1,0)); DRAWTEXT_FIX(ISLASTBAR AND 下降成=1,0.8,0.2,0,'下降趨勢成'),COLORD9D900; DRAWTEXT_FIX(ISLASTBAR AND 上升成=1,0.8,0.2,0,'上升趨勢成'),COLOR00FFFF; 一陰穿2線:=C/O<0.985 AND H>MA1 AND C<MA3; 一陽穿2線:=C/O>1.016 AND L<MIN(MA1,MA3)AND C>MAX(MA1,MA3); 發散度:=MA1/MA4; 均線下發散:=下跌趨勢 AND 發散度<0.9 AND 發散度<0.99*REF(發散度,1); 均線上發散:=MA1>REF(MA1,1) AND MA2>REF(MA2,1) AND MA3>REF(MA3,1) AND MA4>REF(MA4,1) AND MA1>MA2 AND MA2>MA3 AND MA3>MA4; AAAA1:=MAX(MAX(MA(V,5),MA(V,10)),MA(V,60))/MIN(MIN(MA(V,5),MA(V,10)),MA(V,60))<=1.4; AAAA2:=MAX(MA(C,5),MA(C,10))/MIN(MA(C,5),MA(C,10))<=1.4; DIFF:=EMA(C,12)-EMA(C,26); DEA:=EMA(DIFF,9); 升:=CONST(IF( DIFF>0,1,0)),COLORRED; DRAWTEXT_FIX(ISLASTBAR AND 升=1,0.1,0.35,0,'處于上升趨勢'),COLOR00FFFF; 降:=CONST(IF( DIFF<-0,1,0)),COLORRED; DRAWTEXT_FIX(ISLASTBAR AND 降=1,0.1,0.35,0,'處于下降趨勢'),COLORD9D900; VARF:=LOW*0.9; MA5:=MA(CLOSE,5); MA10:=MA(CLOSE,10); MA20:=MA(CLOSE,20); RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; K:=SMA(RSV,3,1); D:=SMA(K,3,1); J:=3*K-2*D; 均線密集:=DIFF>DEA AND K >D AND(MA5-MA10)<0.05 AND (MA20-MA5)<0.05 AND (MA10-MA5)<0.05 AND (MA5-MA20)<0.05; A:=MA(-100*(HHV(H,34)-C)/(HHV(H,34)-LLV(L,34)),19); B:=-100*(HHV(H,14)-C)/(HHV(H,14)-LLV(L,14)); DD:=EMA(-100*(HHV(H,34)-C)/(HHV(H,34)-LLV(L,34)),4); 長線:=A+100; 短線:=B+100; 中線:=DD+100; 見頂:=(REF(中線,1)>85 AND REF(短線,1)>85 AND REF(長線,1)>65 AND CROSS(長線,短線)); 頂區:=(中線 >REF(中線,1) AND REF(中線,1)>80 AND REF(短線,1)>95 OR REF(短線,2)>95 AND 長線>60 AND 短線<83.5 AND 短線<中線 AND 短線<長線+4); 底區:=長線<20 AND 中線<18 AND 短線<40 AND REF(短線,1)<5 AND 中線 >REF(中線,1)AND 短線 >REF(短線,1); 頂部:=FILTER(頂區,4); {STICKLINE(見頂,H,(H+L)/2,3,0), ,COLORRED; STICKLINE(頂部,H,(H+L)/2,3,0), ,COLORRED;} VAR2N:=LLV(LOW,3)<=LLV(LOW,60); VAR3N:= C>O AND (C/O>1.03 OR C>1.03*REF(C,1)); 絕地反擊:=IF(VAR2N AND VAR3N,90,0),COLORYELLOW,LINETHICK2; LC := REF(CLOSE,1); RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100; A1:=SMA(MAX(C-LC,0),6,1); B1:=SMA(ABS(C-LC),6,1); 界:=IF(C>LC,(REF(A1,1)*5-REF(B1,1)*5*0.5)/(0.5-1)+LC,LC+REF(B1,1)*5-REF(A1,1)*5/0.5),COLORWHITE; MACD:=4*(DIFF-DEA); {STICKLINE(MACD>0,中軸,中軸+MACD,0,1),COLORRED; STICKLINE(MACD<0,中軸,中軸+MACD,0,1),COLORLIBLUE; STICKLINE(MACD<REF(MACD,1)AND MACD>0,中軸,中軸+MACD,0,0 ),COLOR00BBFF; STICKLINE(MACD>=REF(MACD,1)AND MACD>0,中軸,中軸+MACD,0,0 ),COLOR0011BB; STICKLINE(MACD>REF(MACD,1)AND MACD<0,中軸,中軸+MACD,0,0),COLORBB11BB; STICKLINE(MACD<=REF(MACD,1)AND MACD<0,中軸,中軸+MACD,0,0),COLORFFBB11;} 縮頭:=IF(MACD>0 AND REF(MACD,1)>REF(MACD,2) AND MACD< REF(MACD,1),1,0); 縮腳:=IF(MACD<0 AND REF(MACD,1)< REF(MACD,2) AND MACD>REF(MACD,1),1,0); { DRAWICON( 縮腳,(中軸+MACD)-0.1,1),COLOR00FF00; DRAWICON(FILTER(縮頭,3) AND 縮頭,(中軸+MACD)+0.1,2),COLORFF00FF; SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100,COLORRED; DRAWICON(SAT>=100 AND MACD>0,(中軸+MACD)+0.2,12);} ZDIF:=EMA(INDEXC,12)-EMA(INDEXC,26); ZHIDEA:=EMA(ZDIF,9); ZEMACD:=(ZDIF-ZHIDEA)*2/100,COLORSTICK;DK:=ZEMACD; {STICKLINE(DK<REF(DK,1)AND DK>0,RC,RC+DK,0,0 ),COLOR00BBFF; STICKLINE(DK>=REF(DK,1)AND DK>0,RC,RC+DK,0,0 ),COLOR0011BB; STICKLINE(DK>REF(DK,1)AND DK<0,RC,RC+DK,0,0),COLORBB11BB; STICKLINE(DK<=REF(DK,1)AND DK<0,RC,RC+DK,0,0),COLORFFBB11;} Z縮頭:=IF(DK>0 AND REF(DK,1)>REF(DK,2) AND DK< REF(DK,1),1,0); Z縮腳:=IF(DK<0 AND REF(DK,1)< REF(DK,2) AND DK>REF(DK,1),1,0); { DRAWICON( Z縮腳,(RC+DK)-0.1,1),COLOR00FF00; DRAWICON(FILTER(Z縮頭,3) AND Z縮頭,(RC+DK)+0.1,2),COLORFF00FF; } TT:=240/FROMOPEN; 比:=TT; J12:=(HIGH - ((HIGH - LOW) / 3)); J23:=(LOW + ((HIGH - LOW) / 3)); AAA1:=CONST(HHV(H,90)); BBB:=CONST(LLV(L,30))+2; T1:=CONST(IF(CLOSE>界,1,0)); T2:=CONST(IF(CLOSE<界,1,0)); T3:=CONST(IF(C<MA(C,75),1,0)); T4:=CONST(IF(CROSS(CLOSE,界),1,0)); T5:=CONST(IF(CROSS(MA(CLOSE,13),CLOSE),1,0)); T6:=CONST(IF(C>=MA(C,5) AND C<MA(C,13),1,0)); T7:=CONST(IF(C>=MA(C,75),1,0)); VAR1Y:=VOL/CAPITAL*100; VAR2Y:=LLVBARS(LOW,10); VAR3Y:=(CLOSE-REF(OPEN,VAR2Y))/REF(OPEN,VAR2Y)*100; VAR4Y:=REF(CLOSE,2)*0.865; VAR5Y:=REF(CLOSE,13)*0.772; VAR6Y:=MAX(VAR4Y,VAR5Y); T9:=(CLOSE-VAR6Y)/CLOSE>0.2 AND VAR3Y<50 AND SUM(VAR1Y,5)/5>5; T10:=CONST(IF(VAR2N AND VAR3N,1,0)); T11:=CONST(IF(縮腳,1,0)); T12:=CONST(IF( ZDIF<0 ,1,0)); T14:=CONST(IF(ZEMACD>=REF(ZEMACD,1) AND ZEMACD>0 AND ZDIF>=0 ,1,0)); DRAWTEXT_FIX(ISLASTBAR ,0.01,0.2,0,'均線趨勢:'),COLORFFFFFF; DRAWTEXT_FIX(ISLASTBAR ,0.01,0.35,0,'MACD趨勢:'),COLORFFFFFF; DRAWTEXT_FIX(ISLASTBAR ,0.01,0.5,0,'大盤趨勢:'),COLORFFFFFF; DRAWTEXT_FIX(ISLASTBAR ,0.01,0.65,0,'買賣提示:'),COLORFFFFFF; DRAWTEXT_FIX(ISLASTBAR AND T1=1,0.25,0.2,0,'短線上升持股'),COLORYELLOW; DRAWTEXT_FIX(ISLASTBAR AND T2=1,0.25,0.2,0,'短線下降持幣'),COLORD9D900; DRAWTEXT_FIX(ISLASTBAR AND T3=1,0.37,0.2,0,'長線下降持幣'),COLORD9D900; DRAWTEXT_FIX(ISLASTBAR AND T7=1,0.37,0.2,0,'長線上升持股'),COLORYELLOW; DRAWTEXT_FIX(ISLASTBAR AND T6=1,0.1,0.65,0,'低買點持股信號'),COLOR00FFFF; DRAWTEXT_FIX(ISLASTBAR AND T4=1,0.65,0.65,0,'加買點信號'),COLOR00FFFF; DRAWTEXT_FIX(ISLASTBAR AND T5=1,0.65,0.65,0,'短線賣出信號'),COLORFFFF00; DRAWTEXT_FIX(ISLASTBAR AND T14=1,0.1,0.5,0,'大盤處于上升趨勢'),COLORRED; DRAWTEXT_FIX(ISLASTBAR AND T12=1,0.1,0.5,0,'大盤處于下降趨勢'),COLORD9D900; DRAWTEXT_FIX(ISLASTBAR AND T9=1,0.2,0.65,0,'陽線賣點'),COLOR00FFFF; LC1:=REF(INDEXC,1); ZRSI:=SMA(MAX(INDEXC-LC1,0),6,1)/SMA(ABS(INDEXC-LC1),6,1)*100,COLORD9D900; X:=INDEXC; Y:=INDEXO; Z:=INDEXL; I:=INDEXH; 急速超跌:=(X-MA(X,34))/MA(X,34)*100<-5; 當日收陽:=(I-Z)/Z>0.01 AND (X-Y)/Y>0.01 AND X/REF(X,1)>1.01; 超跌收陽:=CONST(IF(急速超跌 AND 當日收陽,1,0)); DRAWTEXT_FIX(ISLASTBAR AND 超跌收陽=1 ,0.65,0.5,0,'大盤短底，少量買'),COLORWHITE ; A1W:=SMA(MAX(X-LC1,0),6,1); B1W:=SMA(ABS(X-LC1),6,1); 界1:=IF(X>LC1,(REF(A1W,1)*5-REF(B1W,1)*5*0.5)/(0.5-1)+LC1,LC1+REF(B1W,1)*5-REF(A1W,1)*5/0.5),COLORWHITE; TYP := (Z +I + X)/3; YY:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)),LINETHICK0; BB:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)); 超賣:=CONST(IF(CROSS(BB,-200),1,0)); DRAWTEXT_FIX(ISLASTBAR AND 超賣=1 ,0.65,0.5,0,'大盤超賣，少量買'),COLORWHITE ; KS:=(C-MA(C,17))/MA(C,17)*(-100); RKS:=REF(KS,1); MLS:=RKS/KS>=1.23 AND RKS>=8 AND C/REF(C,1)>=1.01; 大盤4:=CONST(IF(X>界1,1,0)); 大盤3:=CONST(IF(X<界1,1,0)); 大盤12{M13}:=CONST(IF(ZEMACD>REF(ZEMACD,1) AND ZEMACD>0 AND ZDIF<0 ,1,0)); 大盤13:=CONST(IF(ZEMACD<0 AND ZDIF>0 ,1,0)); M整理:=CONST(IF( MACD<0 AND DIFF>0,1,0)); M走緩:=CONST(IF(MACD<REF(MACD,1) AND MACD>0 AND DIFF>0 ,1,0)); DRAWTEXT_FIX(ISLASTBAR AND M整理=1 ,0.25,0.35,0,'股價升途整理股'),COLORWHITE ; DRAWTEXT_FIX(ISLASTBAR AND M走緩=1 ,0.25,0.35,0,'股價上升走緩'),COLORWHITE ; 大盤16:=CONST(IF(ZEMACD<REF(ZEMACD,1) AND ZEMACD<0 AND ZDIF>0 ,1,0)); 大盤11:=CONST(IF(KS>=17 ,1,0)); 大盤2:=CONST(IF(MLS=1,1,0)); DRAWTEXT_FIX(ISLASTBAR AND 大盤4=1 ,0.21,0.5,0,'大盤短線持股'),COLORWHITE ; DRAWTEXT_FIX(大盤3=1 AND ISLASTBAR,0.21,0.5,0,'大盤短線持幣'),COLORWHITE ; DRAWTEXT_FIX(大盤13=1 AND ISLASTBAR,0.3,0.5,0,'大盤上升趨勢，升途整理，謹慎'),COLORWHITE ; DRAWTEXT_FIX(大盤11=1 AND ISLASTBAR,0.2,0.65,0,'今日股價超跌了'),COLORWHITE ; DRAWTEXT_FIX(大盤2=1 AND ISLASTBAR,0.2,0.65,0,'今日股價反彈'),COLORWHITE ; M彈:=CONST(IF(MACD>REF(MACD,1) AND MACD>0 AND DIFF<0,1,0)); {DRAWTEXT_FIX(大盤12=1 AND ISLASTBAR,0.3,0.5,0,'大盤下降趨勢，反彈，謹慎'),COLORWHITE ;} DRAWTEXT_FIX(大盤12 AND ISLASTBAR,0.5,0.5,0,'大盤處于反彈區'),COLOR00FFFF; DRAWTEXT_FIX(M彈=1 AND ISLASTBAR,0.25,0.35,0,'股價反彈階段小心'),COLORYELLOW; MM3:=CONST(IF(RSI1<ZRSI,1,0)); MM4:=CONST(IF((RSI1>=ZRSI),1,0)); DRAWTEXT_FIX(ISLASTBAR AND MM3=1,0.1,0.2,0,'個股弱于大盤走勢'),COLORD9D900; DRAWTEXT_FIX(ISLASTBAR AND MM4=1,0.1,0.2,0,'個股強于大盤走勢'),COLOR00FFFF; 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);MFI:=(HIGH-LOW)*1000000/(VOL*比); 綠燈:=MFI>=REF(MFI,1)AND VOL*比>=REF(VOL,1); M1:=CONST(IF(空頭排列 AND 均線下發散,1,0)); M2:=CONST(IF(多頭排列 AND 均線上發散,1,0)); M3:=CONST(IF(空頭排列 AND NOT(均線下發散),1,0)); M9:=CONST(IF(空頭排列 ,1,0)); M10:=CONST(IF(多頭排列 ,1,0)); MM1:=CONST(IF(均線密集,1,0)); MM2:=CONST(IF(上升趨勢 AND NOT(一陰穿2線) AND REF(上升趨勢,1),1,0)); M4:=CONST(IF(下跌趨勢 AND NOT(一陽穿2線),1,0)); MM5:=CONST(IF(DIFF<0 AND MACD<0 AND MACD>REF(MACD,1),1,0)); MM7:=CONST(IF(ZEMACD>REF(ZEMACD,1) AND ZEMACD<0,1,0)); MM8:=CONST(IF(下跌趨勢 AND REF(下跌趨勢,1) AND NOT(一陽穿2線),1,0)); MM9:=CONST(IF(ZEMACD<REF(ZEMACD,1) AND ZEMACD>0,1,0)); 量大:=(賣盤+買盤)/REF(VOL,1)>2; M5:=CONST(量大); 量縮:=REF(VOL,1)/(賣盤+買盤)>1.5; M6:=CONST(量縮); 賣量大:=(賣盤-買盤)/買盤>0.4; M7:=CONST(賣量大); 買量大:=(買盤-賣盤)/賣盤>0.4; M8:=CONST(買量大); DRAWTEXT_FIX(ISLASTBAR AND M2=1,0.6,0.2,0,'均線多頭發散，注意13日線得失'),COLORD9D900; DRAWTEXT_FIX(ISLASTBAR AND M7=1,0.8,0,0,'☆賣出量大于買入量40％以上'),COLORD9D900; DRAWTEXT_FIX(ISLASTBAR AND M8=1,0.8,0,0,'☆買入量大于賣出量40％以上'),COLOR00FFFF; {{DRAWTEXT_FIX(ISLASTBAR AND MM1=1,0.2,0,7,'均線密集，注意方向變化'),COLORYELLOW;} DRAWTEXT_FIX(ISLASTBAR AND M1=1,0.4,0.2,0,'有加速下跌趨勢'),COLORRED; DRAWTEXT_FIX(ISLASTBAR AND M2=1,0.4,0.2,0,'有加速上升趨勢'),COLOR00FFFF; DRAWTEXT_FIX(ISLASTBAR AND M4=1,0.5,0.2,0,'下跌趨勢未變，'),COLORFFFF00; DRAWTEXT_FIX(ISLASTBAR AND MM2=1,0.5,0.2,0,'上升趨勢未變，'),COLOR00FFFF; DRAWTEXT_FIX(ISLASTBAR AND M9=1,0.8,0.2,0,'均線空頭排列，'),COLORD9D900; DRAWTEXT_FIX(ISLASTBAR AND M10=1,0.8,0.2,0,'均線多頭排列，'),COLOR00FFFF; DRAWTEXT_FIX(ISLASTBAR AND MM5=1,0.25,0.35,0,'下跌趨勢趨緩，可能轉折，'),COLOR00FFFF; {DRAWTEXT(VAR2N AND VAR3N,L*0.99,'反擊'),COLOR00FF00;} BIAS1:=(C-MA(C,6))/MA(C,6)*100; BIAS2:=(C-MA(C,12))/MA(C,12)*100; BIAS3:=(C-MA(C,24))/MA(C,24)*100; BIAS:=(BIAS1+2*BIAS2+3*BIAS3)/6; 乖離:=MA(BIAS,3); 乖:=CONST(IF(CROSS(BIAS,乖離) AND 乖離<-9,1,0)),COLOR00FFFF; DRAWTEXT_FIX(ISLASTBAR AND 乖=1,0.65,0.35,0,'乖離買點，'),COLOR00FFFF; 坑:=CONST(IF( 乖離<-19,1,0)),COLORRED; DRAWTEXT_FIX(ISLASTBAR AND 坑=1,0.65,0.5,0,'深坑買點，'),COLOR00FFFF;
