|
{啟動金鉆} DIF9:=EMA(C,12)-EMA(C,26); DEA9:=EMA(DIF9,200); A:=(DIF9-DEA9)*2.5; 黃金鉆信號:IF(A<0,0,A*A),LINETHICK3,,COLORRED; DIF2:=EMA(C,9)-EMA(C,34); DEA2:=EMA(DIF2,200); AA:=(DIF2-DEA2)*2.5; 啟動引導(dǎo)線:IF(A<0,0,AA*AA),LINETHICK2,COLOR0055FF; 紅碼:=MA(C,30)+2*STD(C,30); DRAWICON(C>紅碼 AND C>=O ,黃金鉆信號,26); {牛熊短線} VAR1:=REF(LOW,1); VAR2:=SMA(ABS(LOW-VAR1),13,1)/SMA(MAX(LOW-VAR1,0),13,1)*4; VAR3:=EMA(VAR2,13); A01:=(3); A03:=BARSCOUNT(CLOSE); A04:=(SMA((CLOSE / HHV(HIGH,120)),3,1) * 100); A05:=IF((A03 > 20),A04,0); A06:=IF((LOW > A01),0,IF((HIGH < A01),1,(((A01 - LOW) + 0.009) / ((HIGH - LOW) + 0.009)))); A07:=DMA(A06,(VOL / CAPITAL)) * 60; A09:=IF((((A07 > 0) AND (A07 > REF(A07,1))) AND (A05 <= 200)),A07,0); 趨勢:=EMA(VAR3,3)-10; STICKLINE(趨勢>80,趨勢,80,6,0); DRAWTEXT(CROSS(趨勢,0),0,'▲'),COLOR0000FF; STICKLINE((A09 > 0 AND (趨勢<20 OR 趨勢>REF(趨勢,1)AND 趨勢<50)),0,A09,5,0),COLORFFFF00; 機構(gòu)建倉區(qū):0,LINETHICK0,COLORFFFF00; {KKDD大趨勢} LOWV1:=EMA(LLV(LOW,34),3); HIGHV1:=EMA(HHV(HIGH,34),3); RSV1:=EMA((CLOSE-LOWV1)/(HIGHV1-LOWV1)*100,3); KK:=SMA(RSV1,8,1),COLOR4080FF,LINETHICK1; DD:=SMA(KK,6,1),COLOR008000,LINETHICK1; DRAWBAND(KK,RGB(200,0,200),DD,RGB(100,100,100)); {一三買入法} MA10:=MA(CLOSE,10); MA34:=MA(CLOSE,34); {倍量表示：今日大于昨日2倍量} VOLUME:=VOL; TJ:=(V/REF(V,1)>2) AND MA10<MA34 AND MA10>REF(MA10,1); 三連陰:=LAST(C<O,3,0); 三縮量:=LAST(VOL<REF(VOL,1),3,0); 選股:=REF(三連陰,1)>0 AND REF(三縮量,1)>0 AND O<C AND TJ; STICKLINE(選股,0,40,1.2,0),COLORRED; DRAWTEXT(選股>0.9,38,'一三買'),COLORRED,LINETHICK2; {盤整突破} 突破角度:=(ATAN((MA(CLOSE,5)/REF(MA(CLOSE,5),1)-1)*100)*180/3.14115926)>50; {>45 數(shù)字可調(diào)整為你喜歡的任何角度} 去除停牌:=DYNAINFO(17)!=0; VARR:=(C+H+O+L)/4; 上軌:=EMA(VARR,10)*1.09; 盤整突破:=LAST((H-L)/REF(C,1)<0.1,20,0) AND VOL>REF(VOL,1)*1.5 AND C>REF(C,1)*1.03 AND "DMI.PDI">"DMI.MDI" AND"DMI.ADXR">"DMI.MDI"AND "DMI.PDI">"DMI.ADX" AND(CROSS("DMI.ADX","DMI.ADXR")OR("DMI.ADX">"DMI.ADXR")) AND"KDJ.D">REF("KDJ.D",1) AND"KDJ.D"<75 AND C<上軌 AND 突破角度 AND 去除停牌; STICKLINE(盤整突破,0,45,1.2,0),COLORWHITE; DRAWTEXT(盤整突破,45,'突破'),COLORWHITE,LINETHICK1; {財神到} XXBB:= EMA((CLOSE-LLV(LOW,25))/(HHV(HIGH,25)-LLV(LOW,25))*4,5)*100; 財神到:=REF(XXBB,1)<50 AND XXBB-REF(XXBB,1)>25; STICKLINE(財神到,33,50,3,0),COLOR2222AA; STICKLINE(財神到,16.5,33,3,0),COLOR11AA88; STICKLINE(財神到,0,16.5,3,0),COLORAAAA00; DRAWTEXT(財神到,44.5,'財'),COLORYELLOW; DRAWTEXT(財神到,27.5,'神'),COLORYELLOW; DRAWTEXT(財神到,10.5,'到'),COLORYELLOW; {買入} A5:=C-REF(C,1); A6:=100*EMA(EMA(A5,6),6)/EMA(EMA(ABS(A5),6),6); RMA1:=EMA(CLOSE,7); NMA1:=EMA(CLOSE,19); UP1:=DRAWLINE(L=LLV(L,BARSLAST(CROSS(NMA1,RMA1))+1),LLV(L,BARSLAST(CROSS(NMA1, RMA1))+1),H =HHV(H,BARSLAST(CROSS(RMA1,NMA1))+1),HHV(H,BARSLAST(CROSS(RMA1,NMA1))+1),0); DOWN1:=DRAWLINE(H=HHV(H,BARSLAST(CROSS(RMA1,NMA1))+1),HHV(H,BARSLAST(CROSS(RMA1, NMA1))+1),L =LLV(L,BARSLAST(CROSS(NMA1,RMA1))+1),LLV(L,BARSLAST(CROSS(NMA1,RMA1))+1),0); 買入:=(LLV(A6,2)=LLV(A6,7) AND COUNT(A6<0,2) AND CROSS(A6,MA(A6,2))) AND REF(DOWN1,1)<REF(DOWN1,2) AND UP1>REF(DOWN1,1); IF(買入,0,35),COLORCYAN,LINETHICK2; {短線買點選股} DIFF1:=EMA(DCLOSE,12)-EMA(DCLOSE,26); 短線買點:=CROSS(((DIFF1-EMA(DIFF1,9))*10-REF((DIFF1-EMA(DIFF1,9))*10,1)),1) AND (DIFF1-EMA(DIFF1,9))*10>1; IF(短線買點,60,0),LINETHICK2,COLOR00FFFF; DRAWTEXT(短線買點>0,50,'* 短買'),LINETHICK1,COLOR00FFFF; {橫盤啟動突破} LOWV:=LLV(LOW,15); {15天內(nèi)的最低價} HIGHV:=HHV(HIGH,15); {15天內(nèi)的最高價} HIGHVV:=HHV(HIGH,40); {40天內(nèi)的最高價} V0:=V; {當(dāng)天的成交量} V1:=REF(V,1); {一天前的成交量} V2:=REF(V,2); {兩天前的成交量} V3:=REF(V,3); {三天前的成交量} HV22:=HHV(V,35); {35天內(nèi)的最大成交量} D0U:=C>O; {今天是陽線} D1U:=REF(C,1)>=REF(C,2); {昨天是陽線} 橫盤:=((HIGHV-LOWV)/HIGHV)<0.15; {半個月內(nèi)價格波動小于15%} 放量1:=V0>=(1.8*((V1+V2+V3)/3)); {今天量是前三天均量的1.8倍} 放量2:=V0<=(3.8*V1); { 今天的量在昨天量的四倍范圍內(nèi)} 今天陽線:=D0U; {今天是陽線} 昨天陽線:=D1U; {昨天是陽線} 今天中陽:=(C-REF(C,1))/REF(C,1)>=0.018; {今天漲幅大于1.8%} 開盤非最高價:=C<=HIGHVV; {收盤非40天內(nèi)最高價} 收盤非最高價:=O<=HIGHVV; {開盤非40天內(nèi)最高價} 非最大成交量:=V0<HV22; {非一個月內(nèi)最高成交量} 啟動突破:=(橫盤 AND 放量1 AND 放量2 AND 今天陽線 AND 昨天陽線 AND 今天中陽 AND 開盤非最高價 AND 收盤非最高價 AND 非最大成交量) AND 盤整突破; IF(啟動突破>0,40,0),COLORWHITE,LINETHICK2; DRAWTEXT(啟動突破>0,30,'啟動'),COLORFFFFFF; {中頂大頂} X:=MA(AMOUNT,5)/MA(V,5)/100; VAR9:=(X-MA(AMOUNT,125)/MA(V,125)/100)/X; VAR11:=MA((LLV(L,45)-C)/(HHV(H,45)-LLV(L,45))*100,3); VAR12:=C/MA(C,60)-1; 中頂:IF(CROSS(VAR11,-95) AND VAR12<0.35 AND VAR12>=0.2,-60,0),COLORMAGENTA,LINETHICK2; DRAWTEXT(中頂<0,-30,'中頂'),COLORMAGENTA,LINETHICK1; 大頂:IF(CROSS(VAR11,-95) AND VAR12>=0.35,-60,0),COLORFF7F00,LINETHICK2; DRAWTEXT(大頂<0,-30,' '),COLORFF7F00,LINETHICK1; 0,COLORRED,LINETHICK2; DIF:(EMA(CLOSE,5)-EMA(CLOSE,27))/((EMA(CLOSE,5)+EMA(CLOSE,27))/2)*1000,COLOR00FFFF; DEA1:=EMA(DIF,9),COLORWHITE; MACD:2*(DIF-DEA1),NODRAW,COLORRED; {紅綠箭頭} DRAWICON(CROSS(DIF,DEA1),DEA1,1); {DRAWICON(CROSS(DEA1,DIF),DEA1,2);} {DIF變色線沒有未來函數(shù)} DEA:EMA(DIF,9),COLORWHITE,LINETHICK2; {自動射線} OBV:=DIF; P:=12; A1:=REF(OBV,P)=HHV(OBV,2*P+1); B1:=FILTER(A1,P); C1:=BACKSET(B1,P+1); D1:=FILTER(C1,P);{高點1} R11:=BACKSET(ISLASTBAR,BARSLAST(D1)+1); S11:=R11>REF(R11,1); 藍(lán):DRAWLINE(D1,OBV,S11,OBV,1),COLORFF7F00,LINETHICK1; A2:=REF(OBV,P)=LLV(OBV,2*P+1); B2:=FILTER(A2,P); C2:=BACKSET(B2,P+1); D2:=FILTER(C2,P);{低點1} T11:=BACKSET(ISLASTBAR,BARSLAST(D2)+1); U11:=T11>REF(T11,1); 粉:DRAWLINE(D2,OBV,U11,OBV,1),COLORLIRED,LINETHICK1; Q2:=INTPART(3*8/18); A22:=REF(OBV,Q2)=LLV(OBV,2*Q2+1); B22:=FILTER(A22,Q2); C22:=BACKSET(B22,Q2+1); D22:=FILTER(C22,Q2);{低點2} T112:=BACKSET(ISLASTBAR,BARSLAST(D22)+1); U112:=T112>REF(T112,1); 紅:DRAWLINE(U11,OBV,U112,OBV,1),COLORRED,LINETHICK1; HHV(IF(U11,OBV,DRAWNULL),0),COLOR00FFFF,LINETHICK1; DIF,IF(DEA,DIF,DRAWNULL),COLOR00FFFF,LINETHICK2; IF(DIF<REF(DIF,1),DIF,DRAWNULL),COLORGREEN,LINETHICK2; IF(DIF>REF(DIF,1),DIF,DRAWNULL),COLORRED,LINETHICK2; 8,COLOR00FFFF,POINTDOT,LINETHICK2; 80,COLOR008000,POINTDOT,LINETHICK2; {莊家吸籌} VAR81:=IF(YEAR>=2038 AND MONTH>=1,0,1); VAR82:=REF(LOW,1)*VAR81; VAR83:=SMA(ABS(LOW-VAR82),3,1)/SMA(MAX(LOW-VAR82,0),3,1)*100*VAR81; VAR84:=EMA(IF(CLOSE*1.3,VAR83*10,VAR83/10),3)*VAR81; VAR85:=LLV(LOW,30)*VAR81; VAR86:=HHV(VAR84,30)*VAR81; VAR87:=IF(MA(CLOSE,58),1,0)*VAR81; VAR88:=EMA(IF(LOW<=VAR85,(VAR84+VAR86*2)/2,0),3)/618*VAR87*VAR81; 吸籌:IF(VAR88>100,100,VAR88)*VAR81,COLORGREEN; 莊家吸籌:STICKLINE(吸籌>-150,0,吸籌,8,0),COLORRED; {見底逃命} VAR71:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100; VAR72:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100; VAR73:=BARSCOUNT(CLOSE); VAR74:=VAR71<20 AND VAR72<23 AND VAR73>35; VAR75:=VAR74 AND COUNT(VAR74,1)=1; VAR76:=EMA(CLOSE,21)-EMA(CLOSE,8); VAR77:=EMA(VAR76,5); VAR78:=TROUGHBARS(3,6,1)<4 AND CROSS(VAR76,VAR77); VAR79:=(HIGH+LOW+CLOSE)/3; VAR710:=IF(TROUGHBARS(3,18,1)=0 AND HIGH>LOW+0.04,100,0); VAR711:=(VAR79-MA(VAR79,14))/(0.015*AVEDEV(VAR79,14)); 見底: VAR710,COLORYELLOW,LINETHICK3; DRAWTEXT(VAR711<-110 AND 見底>0,90,'*見底'), ,COLORYELLOW; DRAWTEXT(見底 AND VAR711<-110 AND VAR78 AND VAR75>0,4.1,'★組合5分鐘線選股思路獲利5%以上'), , COLORRED; DRAWICON(見底>0,100,1); VAR712:=PEAKBARS(3,15,1)<10; VAR713:=IF(VAR712=1,2,0); 頂:= IF(VAR713=2,2,0); 逃命:IF(頂>REF(頂,1),60,0),COLORRED,LINETHICK3; DRAWTEXT(逃命=60,60,'* 逃'),COLORRED; {頂?shù)妆畴x} DIFF:=EMA(DCLOSE,12)-EMA(DCLOSE,26); DEAA:=EMA(DIFF,9),COLORFFFF00; MACD1:=(DIFF-DEAA)*2; A61:=BARSLAST(REF(CROSS(DIFF,DEAA),1)); A62:=BARSLAST(REF(CROSS(DEAA,DIFF),1)); 底背離:=REF(CLOSE,A61+1)>CLOSE AND DIFF>REF(DIFF,A61+1) AND CROSS(DIFF,DEAA); 頂背離:=REF(CLOSE,A62+1)<CLOSE AND REF(DIFF,A62+1)>DIFF AND CROSS(DEAA,DIFF); ￥④:IF(底背離,57,0),LINETHICK3,COLORBROWN; DRAWTEXT(底背離,60,' MACD底背離'),COLORRED; |
|
|
