  顶底分型 1
A:=(3*CLOSE+LOW+OPEN+HIGH)/6; HH1:= IFELSE (H<REF(H,2)&&REF(H,1)<REF(H,2),REF(H,2),0); LL1:= IFELSE (L>REF(L,2)&&REF(L,1)>REF(L,2),REF(L,2),0); HH2:=VALUEWHEN(HH1>0,HH1); LL2:=VALUEWHEN(LL1>0,LL1); KA1:= IFELSE (CLOSE>HH2,-3,IFELSE(CLOSE<LL2,1,0)); KA2:=VALUEWHEN(KA1<>0,KA1); HO:= HIGH >REF( HIGH,1) &&HIGH >REF(HIGH,2) && HIGH >=REFX(HIGH,1) && IFELSE(HIGH =REFX(HIGH,2), HIGH >REFX(HIGH,3), HIGH >REFX(HIGH,2)); FXH:=CROSS(HO,0.9); HH:=REF(HIGH,BARSLAST(FXH)); LO:= LOW <REF(LOW,1) && LOW <REF(LOW,2) && LOW <=REFX(LOW,1) && IFELSE(LOW =REFX(LOW,2), LOW <REFX(LOW,3), LOW <REFX(LOW,2)); FXL:=CROSS(LO,0.9); LL:=REF(LOW,BARSLAST(FXL)); STICKLINE(CLOSE,HH,HH-0.0001,COLORMAGENTA,0); STICKLINE(CLOSE,LL,LL-0.0001,COLORLIGHTBLUE,0); AUTOFILTER; 
HH1:=IFELSE(H<REF(H,1) && REF(H,1)<REF(H,2),REF(H,2),0); LL1:=IFELSE(L>REF(L,1) && REF(L,1)>REF(L,2),REF(L,2),0); HH2:=VALUEWHEN(HH1>0,HH1); LL2:=VALUEWHEN(LL1>0,LL1); K1:=IFELSE(CLOSE>HH2,-3,IFELSE(CLOSE<LL2,1,0)); K2:=VALUEWHEN(K1<>0,K1); G:=IFELSE(K2=1,HH2,LL2); G1:=VALUEWHEN(ISLASTBAR,G); W1:=K2; W2:=OPEN-CLOSE; HT:=IFELSE(OPEN>CLOSE,OPEN,CLOSE); LT:=IFELSE(OPEN<CLOSE,OPEN,CLOSE); BAA:=1; MA4:=EMA(CLOSE,10)*BAA; HH:=HHV(HIGH,5)*BAA; LL:=LLV(LOW,5)*BAA; H1:=IFELSE(CLOSE>REF(HH,1),1,0)*BAA; L1:=IFELSE(CLOSE<REF(LL,1),-1,0)*BAA; H0:=REF(HIGH,1)*BAA; L0:=REF(LOW,1)*BAA; P7:=H1+L1*BAA; P8:=IFELSE(P7=0,REF(P7,1),P7)*BAA; P9:=IFELSE(P8=0,REF(P8,1),P8)*BAA; P10:=IFELSE(P9=0,REF(P9,1),P9)*BAA; P11:=IFELSE(P10=0,REF(P10,1),P10)*BAA; P12:=IFELSE(P11=0,REF(P11,1),P11)*BAA; P13:=IFELSE(P12=0,REF(P12,1),P12)*BAA; P14:=IFELSE(P13=0,REF(P13,1),P13)*BAA; P15:=IFELSE(P14=0,REF(P14,1),P14)*BAA; P16:=IFELSE(P15=0,REF(P15,1),P15)*BAA; P17:=IFELSE(P16=0,REF(P16,1),P16)*BAA; P18:=IFELSE(P17=0,REF(P17,1),P17)*BAA; P19:=IFELSE(P18=0,REF(P18,1),P18)*BAA; P20:=IFELSE(P19=0,REF(P19,1),P19)*BAA; P21:=IFELSE(P20=0,REF(P20,1),P20)*BAA; P22:=IFELSE(P21=0,REF(P21,1),P21)*BAA; P23:=IFELSE(P22=0,REF(P22,1),P22)*BAA; P24:=IFELSE(P23=0,REF(P23,1),P23)*BAA; P25:=IFELSE(P24=0,REF(P24,1),P24)*BAA; P26:=IFELSE(P25=0,REF(P25,1),P25)*BAA; P27:=IFELSE(P26=0,REF(P26,1),P26)*BAA; P28:=IFELSE(P27=0,REF(P27,1),P27)*BAA; P29:=IFELSE(P28=0,REF(P28,1),P28)*BAA; P30:=IFELSE(P29=0,REF(P29,1),P29)*BAA; T:=IFELSE(P30=0,REF(P30,1),P30)*BAA; DD:=BARSLAST(CROSS(T=1,0.5)); KK:=BARSLAST(CROSS(T=-1,0.5)); //SETEXPIREDATE(?'); N1:=7; N2:=14; LC:=REF(CLOSE,1); RSI1:=SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100; RSI2:=SMA(MAX(CLOSE-LC,0),N2,1)/SMA(ABS(CLOSE-LC),N2,1)*100; SHORT:=5; LONG:=34; M:=5; DIFF:=EMA(CLOSE,SHORT)-EMA(CLOSE,LONG); DEA:=EMA(DIFF,M); V1:=LLV(LOW,10); V2:=HHV(H,25); 价位线:=EMA((C-V1)/(V2-V1)*4,4); VV1:=(C*2+H+L)/4*10; VV2:=EMA(VV1,13)-EMA(VV1,34); VV3:=EMA(VV2,5); VV4:=2*(VV2-VV3)*5.5; 主力撤:=IF(VV4<=0,VV4,0); 主力进:=IF(VV4>=0,VV4,0); V11:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1); 趋势线:=EMA(V11,3); V12:=(趋势线-REF(趋势线,1))/REF(趋势线,1)*100; 买入:=趋势线<=13 && V12>13; BB:=(趋势线<=13 && V12>13) && FILTER((趋势线<=13 && V12>13),10); 逃顶:=FILTER(趋势线>90 && 趋势线<REF(趋势线,1) && 主力进<REF(主力进,1),8); KD1:=CROSS(T=1,0.5) && W1=-3 && DD<KK; KD2:=(W1=-3 && DD<KK && DIFF>DEA && RSI1>RSI2); PK1:=CROSS(T=-1,0.5) && W1=1 && KK<DD; PK2:=W1=1 && KK<DD && DIFF<DEA && RSI1<RSI2; KDD:=BARSLAST(CROSS(W1=-3 && DD<KK,0.5))+1; PKK:=BARSLAST(CROSS(W1=1 && KK<DD,0.5))+1; DD11:=(CROSS(COUNT(KD1 || KD2,KDD)=1,0.5) || KD1); T1:=CROSS(3.5,价位线) && (DIFF<DEA || RSI1<RSI2); T2:=逃顶 && (DIFF<DEA || RSI1<RSI2); T3:=NOT(W1=-3 && DD<KK) && REF(W1=-3 && DD<KK,1); T31:=CROSS(DIFF<DEA && RSI1<RSI2,0.5); T4:=CROSS(COUNT(T1 || T2 || T3 || T31,BARSLAST(DD11)+1)=1,0.5); KK11:=(CROSS(COUNT(PK1 || PK2,PKK)=1,0.5) || PK1); S1:=CROSS(价位线,0.3) && (DIFF>DEA || RSI1>RSI2); S2:=BB && (DIFF>DEA || RSI1>RSI2); S3:=NOT(W1=1 && DD>KK) && REF(W1=1 && DD>KK,1); S31:=CROSS(DIFF>DEA && RSI1>RSI2,0.5); S4:=CROSS(COUNT(S1 || S2 || S3 || S31,BARSLAST(KK11)+1)=1,0.5); MA5:=EMA(C,110),NODRAW; CROSS(MA5>REF(MA5,1),0.5)||CROSSDOWN(MA5>REF(MA5,1),0.5),SOUND('A'); CURRBARSCOUNT:=REFX1(BARPOS,9999)-BARPOS+1; {箱体} TC1S:=IF(H=HHV(H,48),H,NULL); TC2S:=REFX1(BARSLAST(TC1S=H),9999)+1; UPPERS:=REFX1(IF(TC2S=1,H,REF(H,TC2S-1)),9999); BC1S:=IF(L=LLV(L,48),L,NULL); BC2S:=REFX1(BARSLAST(BC1S=L),9999)+1; LOWERS:=REFX1(IF(BC2S=1,L,REF(L,BC2S-1)),9999); LPS:=CURRBARSCOUNT<=BC2S AND L=LOWERS; HPS:=CURRBARSCOUNT<=TC2S AND H=UPPERS; AB1S:=EMA(((2*C+H+L)/4-LLV(LOW,30))/ (HHV(HIGH,30)-LLV(LOW,30))*100,8); BA1S:=EMA(AB1S,120); 峰谷:=1; PA:=2; PB:=REF(HIGH,PA)=HHV(HIGH,2*PA+1); PC:=FILTER(PB,PA); PD:=BACKSET(PC,PA+1); PE:=FILTER(PD,PA); {高点} AA21:=REF(LOW,PA)=LLV(LOW,2*PA+1); BB21:=FILTER(AA21,PA); CC21:=BACKSET(BB21,PA+1); DD21:=FILTER(CC21,PA); 局部低点预选A:=BACKSET(LLV(L,PA)<REF(LLV(L,PA-1),1),PA-1); 局部低点预选B:=BACKSET(局部低点预选A=0 AND REF(局部低点预选A,1)=1,2); 局部低点预选C:=IF(局部低点预选B=1 AND REF(局部低点预选B,1)=0,-1,0); 局部高点预选A:=BACKSET(HHV(H,PA)>REF(HHV(H,PA-1),1),PA-1); 局部高点预选B:=BACKSET(局部高点预选A=0 AND REF(局部高点预选A,1)=1,2); 局部高点预选C:=IF(局部高点预选B=1 AND REF(局部高点预选B,1)=0,1,0); 缺口判断:=IF(L>REF(H,1),1,IF(H<REF(L,1),-1,0)); 距前高天:=BARSLAST(局部高点预选C=1); 距前低天:=BARSLAST(局部低点预选C=-1); 小值周期:=100; 大值周期:=100; 低保留AA:=IF(局部低点预选C=-1 AND REF(距前高天,1)>REF(距前低天,1) AND LLV(L,距前高天 +1)<REF(LLV(L,距前高天+1),1),-1,0); 低保留AB:=IF(局部低点预选C=-1 AND REF(距前高天,1)<=REF(距前低天,1) AND (距前高天>=4 OR LLV(缺口判断,距前高天)=-1 OR LLV(L,距前低天+2)<REF(LLV(L,距前低天+1),1)),-1,0); 低保留S:=IF((低保留AA=-1 OR 低保留AB=-1) AND L<REF(H,距前高天+1),-1,0); 预判:=IF((距前低天<4 AND HHV(缺口判断,距前低天)<>1) OR REF(低保留S,距前低天)=0,1,0); 判断:=IF(局部高点预选C=1 AND REF(距前低天,1)<=REF(距前高天,1) AND 预判=1 AND 大值周期>REF(小值周期,距前低天+1) AND 大值周期>REF(小值周期,距前低天) AND 大值周期>REF(大值周期,距前高天),1,0); 高保留A:=IF(局部高点预选C=1 AND REF(距前低天,1)>REF(距前高天,1) AND HHV(H,距前低天 +1)>REF(HHV(H,距前低天+1),1),1,0); 高保留B:=IF(局部高点预选C=1 AND REF(距前低天,1)<=REF(距前高天,1) AND REF(低保留S,距前低天)=-1 AND (距前低天>=4 OR HHV(缺口判断,距前低天)=1),1,0); 高保留:=IF((高保留A=1 OR 高保留B=1 OR 判断=1) AND H>REF(L,距前低天+1),1,0); 预判A:=IF((距前高天<4 AND HHV(缺口判断,距前高天)<>1) OR REF(高保留,距前高天)=0,1,0); 判断A:=IF(局部低点预选C=-1 AND REF(距前高天,1)<=REF(距前低天,1) AND 预判A=1 AND 小值周期>REF(大值周期,距前高天+1) AND 小值周期>REF(大值周期,距前高天) AND 小值周期>REF(小值周期,距前低天),-1,0); 低保留A:=IF(局部低点预选C=-1 AND REF(距前高天,1)>REF(距前低天,1) AND LLV(L,距前高天 +1)<REF(LLV(L,距前高天+1),1),-1,0); 低保留B:=IF(局部低点预选C=-1 AND REF(距前高天,1)<=REF(距前低天,1) AND (距前高天>=4 OR LLV(缺口判断,距前高天)=-1 OR 判断A=-1),-1,0); 低保留:=IF((低保留A=-1 OR 低保留B=-1) AND L<REF(H,距前高天+1),-1,0); 距前高天A:=BARSLAST(高保留=1); 距前低天A:=BARSLAST(低保留=-1); 预判X:=IF((距前低天A<4 AND HHV(缺口判断,距前低天A)<>1) OR REF(低保留,距前低天A)=0,1,0); 判断X:=IF(局部高点预选C=1 AND REF(距前低天A,1)<=REF(距前高天A,1) AND 预判X=1 AND 大值周期>REF(小值周期,距前低天A+1) AND 大值周期>REF(小值周期,距前低天A) AND 大值周期>REF(大值周期,距前高天A),1,0); 高保留XA:=IF(局部高点预选C=1 AND REF(距前低天A,1)>REF(距前高天A,1) AND HHV(H,距前低天A+1)>REF(HHV(H,距前低天A+1),1),1,0); 高保留XB:=IF(局部高点预选C=1 AND REF(距前低天A,1)<=REF(距前高天A,1) AND REF(低保留,距前低天A)=-1 AND (距前低天A>=4 OR HHV(缺口判断,距前低天A)=1),1,0); 高保留X:=IF((高保留XA=1 OR 高保留XB=1 OR 判断X=1) AND H>REF(L,距前低天A+1),1,0); 预判XA:=IF((距前高天A<4 AND HHV(缺口判断,距前高天A)<>1) OR REF(高保留XA,距前高天A)=0,1,0); 判断XA:=IF(局部低点预选C=-1 AND REF(距前高天A,1)<=REF(距前低天A,1) AND 预判XA=1 AND 小值周期>REF(大值周期,距前高天A+1) AND 小值周期>REF(大值周期,距前高天A) AND 小值周期>REF(小值周期,距前低天A),-1,0); 低保留XA:=IF(局部低点预选C=-1 AND REF(距前高天A,1)>REF(距前低天A,1) AND LLV(L,距前高天A+1)<REF(LLV(L,距前高天A+1),1),-1,0); 低保留XB:=IF(局部低点预选C=-1 AND REF(距前高天A,1)<=REF(距前低天A,1) AND (距前高天A>=4 OR LLV(缺口判断,距前高天A)=-1 OR 判断XA=-1),-1,0); 低保留X:=IF((低保留XA=-1 OR 低保留XB=-1) AND L<REF(H,距前高天A+1),-1,0); 距前高天YA:=BARSLAST(高保留X=1); 距前低天YA:=BARSLAST(低保留X=-1); 预判YX:=IF((距前低天YA<4 AND HHV(缺口判断,距前低天YA)<>1) OR REF(低保留X,距前低天YA)=0,1,0); 判断YX:=IF(局部高点预选C=1 AND REF(距前低天YA,1)<=REF(距前高天YA,1) AND 预判YX=1 AND 大值周期>REF(小值周期,距前低天YA+1) AND 大值周期>REF(小值周期,距前低天YA) AND 大值周期>REF(大值周期,距前高天YA),1,0); 高保留YXA:=IF(局部高点预选C=1 AND REF(距前低天YA,1)>REF(距前高天YA,1) AND HHV(H, 距前低天YA+1)>REF(HHV(H,距前低天YA+1),1),1,0); 高保留YXB:=IF(局部高点预选C=1 AND REF(距前低天YA,1)<=REF(距前高天YA,1) AND REF(低保留X,距前低天YA)=-1 AND (距前低天YA>=4 OR HHV(缺口判断,距前低天YA)=1),1,0); 高保留YX:=IF((高保留YXA=1 OR 高保留YXB=1 OR 判断YX=1) AND H>REF(L,距前低天YA+1),1,0); 预判YXA:=IF((距前高天YA<4 AND HHV(缺口判断,距前高天YA)<>1) OR REF(高保留YXA,距前高天YA)=0,1,0); 判断YXA:=IF(局部低点预选C=-1 AND REF(距前高天YA,1)<=REF(距前低天YA,1) AND 预判YXA=1 AND 小值周期>REF(大值周期,距前高天YA+1) AND 小值周期>REF(大值周期,距前高天YA) AND 小值周期>REF(小值周期,距前低天YA),-1,0); 低保留YXA:=IF(局部低点预选C=-1 AND REF(距前高天YA,1)>REF(距前低天YA,1) AND LLV(L,距前高天YA+1)<REF(LLV(L,距前高天YA+1),1),-1,0); 低保留YXB:=IF(局部低点预选C=-1 AND REF(距前高天YA,1)<=REF(距前低天YA,1) AND (距前高天YA>=4 OR LLV(缺口判断,距前高天YA)=-1 OR 判断YXA=-1),-1,0); 低保留YX:=IF((低保留YXA=-1 OR 低保留YXB=-1) AND L<REF(H,距前高天YA+1),-1,0); AAAD:=IF(高保留YX=1 AND 低保留YX=-1 AND H>REF(H,REF(距前高天YA,1)+2),1,IF(高保留YX=1 AND 低保留YX=-1 AND L<REF(L,REF(距前低天YA,1)+2),-1,0)); 极点保留:=IF(AAAD=0,高保留YX+低保留YX,AAAD); 局部极点:IF(极点保留=-1,L,IF(极点保留=1,H,NULL)),CIRCLEDOT ,COLORCYAN; 底:VALUEWHEN(极点保留=-1,L),CIRCLEDOT,RGB(255,128,64); Z:=IF(极点保留=1,H,L); DRAWHORIZONTALLINE(极点保留=1||极点保留=-1,Z,COLORYELLOW),DOT; DRAWSL1(极点保留=1||ISLASTBAR&&BARSLAST(极点保留=-1)<BARSLAST(极点保留=1),VALUEWHEN(极点保留=-1,L),0,BARSLAST(极点保留=-1),1),COLORYELLOW; DRAWSL1(极点保留=-1||ISLASTBAR&&BARSLAST(极点保留=-1)>BARSLAST(极点保留=1),VALUEWHEN(极点保留=1,H),0,BARSLAST(极点保留=1),1),LINETHICK2,RGB(128,0,255);
//// TY:=C; A1:=REF(TY,10)=HHV(TY,2*10+1); VB1:=FILTER(A1,10); C1:=BACKSET(VB1,10+1); HD:=FILTER(C1,10); A2:=REF(TY,10)=LLV(TY,2*10+1); VB2:=FILTER(A2,10); C2:=BACKSET(VB2,10+1); LD:=FILTER(C2,10); A:=REF(C,BARSLAST(HD)); B:=REF(C,BARSLAST(LD)); T11:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD); T21:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD); 波峰:=IF(T11,A,A),COLORFF00FF,POINTDOT; STICKLINE1(T11,A,A,9,0),COLORFF00FF; STICKLINE1(波峰=REF(波峰,1),波峰,波峰,2,0),COLORFF00FF; 波谷:=IF(T21,B,B),COLOR80FF00,POINTDOT; STICKLINE1(T21,B,B,9,0),COLOR80FF00; STICKLINE1(波谷=REF(波谷,1),波谷,波谷,2,0),COLOR80FF00;
|
|
|
顶底分型 2
收盘价 
