CURRBARSCOUNT:=BARPOS;
DA1:=IF(130>BARPOS,BARPOS,130);
DA:=IF(CURRBARSCOUNT>DA1,0,DA1);
HI:=REFX1(HHV(H,DA),10000);
LO:=REFX1(LLV(L,DA),10000);
C1001:=IF(CURRBARSCOUNT<=DA,C,NULL);
GZ:=EXP(LN(HI/LO)/30);
LH1:=SUM(IF(C1001>=(HI/GZ),V,0),DA);
LH2:=SUM(IF(C1001>=(HI/POW(GZ,2)) AND C1001
LH3:=SUM(IF(C1001>=(HI/POW(GZ,3)) AND C1001
LH4:=SUM(IF(C1001>=(HI/POW(GZ,4)) AND C1001
LH5:=SUM(IF(C1001>=(HI/POW(GZ,5)) AND C1001
LH6:=SUM(IF(C1001>=(HI/POW(GZ,6)) AND C1001
LH7:=SUM(IF(C1001>=(HI/POW(GZ,7)) AND C1001
LH8:=SUM(IF(C1001>=(HI/POW(GZ,8)) AND C1001
LH9:=SUM(IF(C1001>=(LO*GZ) AND C1001 LH10:=SUM(IF(C1001>=LO AND C1001 L1001:=REFX1(HHV(LH1,DA),10000),NODRAW; L2001:=REFX1(HHV(LH2,DA),10000),NODRAW; L3001:=REFX1(HHV(LH3,DA),10000),NODRAW; L4001:=REFX1(HHV(LH4,DA),10000); L5001:=REFX1(HHV(LH5,DA),10000); L6001:=REFX1(HHV(LH6,DA),10000); L7:=REFX1(HHV(LH7,DA),10000); L8:=REFX1(HHV(LH8,DA),10000); L9:=REFX1(HHV(LH9,DA),10000); L10:=REFX1(HHV(LH10,DA),10000); SSS:=(L1001+L2001+L3001+L4001+L5001+L6001+L7+L8+L9+L10); VAR121:=ZIGZAG(C,6,1)=REF(ZIGZAG(C,6,1),2) AND REF(ZIGZAG(C,6,1),2)>=REF(ZIGZAG(C,6,1),C); VAR141:=ZIGZAG(C,22,1)=REF(ZIGZAG(C,22,1),2) AND REF(ZIGZAG(C,22,1),2)>=REF(ZIGZAG(C,22,1),C); VAR161:=ZIGZAG(C,51,1)=REF(ZIGZAG(C,51,1),2) AND REF(ZIGZAG(C,51,1),2)>=REF(ZIGZAG(C,51,1),C); VAR181:=ZIGZAG(C,72,1)=REF(ZIGZAG(C,72,1),2) AND REF(ZIGZAG(C,72,1),2)>=REF(ZIGZAG(C,72,1),C); 卖:=(VAR121+VAR141+VAR161+VAR181),LINETHICK2; STICKLINE1(CEILING(DA*L2001/SSS,1)*3>=CURRBARSCOUNT AND BARSCOUNT(C)>100 ,HI/POW(GZ,1)*99/100,HI/POW(GZ,2),9,0),COLOR7C7C7A,LINETHICK3; STICKLINE1(CEILING(DA*L3001/SSS,1)*3>=CURRBARSCOUNT AND BARSCOUNT(C)>100 ,HI/POW(GZ,2)*99/100,HI/POW(GZ,3),9,0),COLOR3C3C3A,LINETHICK3; STICKLINE1(CEILING(DA*L4001/SSS,1)*3>=CURRBARSCOUNT AND BARSCOUNT(C)>100 ,HI/POW(GZ,3)*99/100,HI/POW(GZ,4),9,0),COLOR3C3C3A,LINETHICK3; STICKLINE1(CEILING(DA*L5001/SSS,1)*3>=CURRBARSCOUNT AND BARSCOUNT(C)>100 ,HI/POW(GZ,4)*99/100,HI/POW(GZ,5),9,0),COLOR3C3C3A,LINETHICK3; STICKLINE1(CEILING(DA*L6001/SSS,1)*3>=CURRBARSCOUNT AND BARSCOUNT(C)>100 ,HI/POW(GZ,5)*99/100,HI/POW(GZ,6),9,0),COLOR3C3C3A,LINETHICK3; STICKLINE1(CEILING(DA*L7/SSS,1)*3>=CURRBARSCOUNT AND BARSCOUNT(C)>100 ,HI/POW(GZ,6)*99/100,HI/POW(GZ,7),9,0),COLOR3C3C3A,LINETHICK3; STICKLINE1(CEILING(DA*L8/SSS,1)*3>=CURRBARSCOUNT AND BARSCOUNT(C)>100 ,LO*POW(GZ,2),LO*POW(GZ,3)*99/100,9,0),COLOR3C3C3A,LINETHICK3; STICKLINE1(CEILING(DA*L9/SSS,1)*3>=CURRBARSCOUNT AND BARSCOUNT(C)>100 ,LO*POW(GZ,1),LO*POW(GZ,2)*99/100,9,0),COLOR3C3C3A,LINETHICK3; STICKLINE1(CEILING(DA*L10/SSS,1)*3>=CURRBARSCOUNT AND BARSCOUNT(C)>100 ,LO,LO*POW(GZ,1)*99/100,9,0),COLOR3C3C3A,LINETHICK3; STICKLINE1(CEILING(DA*L1001/SSS,1)*3>=CURRBARSCOUNT AND BARSCOUNT(C)>100,HI*99/100,HI/GZ,9,0),COLOR3C3C3A,LINETHICK3; DRAWKLINE1(HIGH,OPEN,LOW,CLOSE); /* 上榜:=SIGNALS_USER(300, 0), NODRAW; {上榜金额>1，则表示上榜了，这个是上榜总金额} 净买入:=SIGNALS_USER(299, 0), NODRAW; DRAWICON(上榜>=1 AND 净买入>=0 ,L*0.995,38); DRAWICON(上榜>=1 AND 净买入<0 ,L*0.995,39); NAME_299 := '↖ 龙' OUTTEXT_299:=VARCAT(VARCAT(NAME_299, ' '), VAR2STR(净买入, 0)), NODRAW; DRAWTEXT((上榜>=1) ,-LOW*0.01+LOW,OUTTEXT_299),COLORLIRED; */ N:=8; KK:=0; TYP := (HIGH + LOW + CLOSE)/3; CCI1:=(TYP-MA(TYP,6))/(0.015*AVEDEV(TYP,6)); CCI2:=(TYP-MA(TYP,10))/(0.015*AVEDEV(TYP,10)); CCI3:=(TYP-MA(TYP,20))/(0.015*AVEDEV(TYP,20)); CCI4:=(TYP-MA(TYP,30))/(0.015*AVEDEV(TYP,30)); CCI5:=(TYP-MA(TYP,60))/(0.015*AVEDEV(TYP,60)); CCI:=CCI1+CCI2+CCI3+CCI4+CCI5; AAAB:=(3*C+H+L+O)/6; VVAR1:=(8*AAAB+7*REF(AAAB,1)+6*REF(AAAB,2)+5*REF(AAAB,3)+4*REF(AAAB,4)+3*REF(AAAB,5)+2*REF(AAAB,6)+REF(AAAB,8))/36; VVAR6:=(LLV(VVAR1,2)+LLV(VVAR1,4)+LLV(VVAR1,6))/3; 短线:IF(KK=0, VVAR1, NULL),COLORWHITE; 中线:IF(KK=0,VVAR6, NULL),COLORYELLOW; FILLRGN1(短线>中线,中线,短线),RGB(200,10,10); FILLRGN1(短线<=中线,中线,短线),RGB(200,10,10),RGB(10,200,10); 下跌:IF(KK=0 AND VVAR1=VVAR6,VVAR6, NULL),COLORGREEN; 中:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4; 上轨:IF(KK=1,中+3*STD(中,10),NULL),COLOR000088,LINETHICK1; IF(KK=1,2*MA(上轨,12)-MA(C,21),NULL),COLOR666666; N1:=10; N2:=10; DISP:=2; P1:=PEAK(1,1,1,1); P2:=PEAK(1,1,2,1); WP1:=PEAKBARS(1,1,1,1); WP2:=PEAKBARS(1,1,2,1); T1:=TROUGH(2,1,1,1); T2:=TROUGH(2,1,2,1); WT1:=TROUGHBARS(2,1,1,1); WT2:=TROUGHBARS(2,1,2,1); TJ1:=P1>T1 AND P2>T2 ; ZD:=MAX(T1,T2); ZG:=MIN(P1,P2); LL:=MIN(T1,T2); HH:=MAX(P1,P2); TJ2:=FILTER(ZG>ZD,2); TJ3:=ZG=REF(ZG,BARSLAST(TJ2)) OR ZD=REF(ZD,BARSLAST(TJ2)); TJ4:=TJ1&&TJ2&&NOT(TJ3); TJ5:=BETWEEN(ZD,REF(ZD,REF(BARSLAST(TJ4),1)),REF(ZG,REF(BARSLAST(TJ4),1))); TJ6:=BETWEEN(ZG,REF(ZD,REF(BARSLAST(TJ4),1)),REF(ZG,REF(BARSLAST(TJ4),1))); TJ7:=ZG>REF(ZG,REF(BARSLAST(TJ4),1))&&ZD TJ8:=TJ4&&NOT(TJ5 OR TJ6 OR TJ7); ZSD:=IF(TJ8,ZD,NULL); ZSG:=IF(TJ8,ZG,NULL); ZSH:=IF(TJ8,HH,NULL); ZSL:=IF(TJ8,LL,NULL); STICKLINE1(TJ8,ZSH,ZSL,0,-1),COLORMAGENTA; STICKLINE1(TJ8,ZSD,ZSG,0,1),COLORMAGENTA; DRAWTEXT(DISP=2,ZSH,'中枢'),COLORRED; POLYLINE(DISP=2,REF(ZSD,BARSLAST(TJ8)),COLORRED),CROSSDOT; POLYLINE(DISP=2,REF(ZSG,BARSLAST(TJ8)),COLORGREEN),CROSSDOT; POLYLINE(DISP=2,REF(ZSH,BARSLAST(TJ8)),COLORRED),POINTDOT; POLYLINE(DISP=2,REF(ZSL,BARSLAST(TJ8)),COLORGREEN),POINTDOT; POLYLINE(DISP=3,ZIGZAG(H,1,1),COLORBLUE); POLYLINE(DISP=3,ZIGZAG(L,1,1),COLORBLUE); 局部低点预选A:=BACKSET(LLV(L,5) 局部低点预选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,5)>REF(HHV(H,4),1),4); 局部高点预选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 距前高天:=BARSLAST(局部高点预选C=1); 距前低天:=BARSLAST(局部低点预选C=-1); 小值周期:=20; 大值周期:=20; 低保留AA:=IF(局部低点预选C=-1 AND REF(距前高天,1)>REF(距前低天,1) AND LLV(L,距前高天+1) 低保留AB:=IF(局部低点预选C=-1 AND REF(距前高天,1)<=REF(距前低天,1) AND (距前高天>=4 OR LLV(缺口判断,距前高天)=-1 OR LLV(L,距前低天+2) 高保留:=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) 低保留B:=IF(局部低点预选C=-1 AND REF(距前高天,1)<=REF(距前低天,1) AND (距前高天>=4 OR LLV(缺口判断,距前高天)=-1 OR 判断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) 低保留XB:=IF(局部低点预选C=-1 AND REF(距前高天A,1)<=REF(距前低天A,1) AND (距前高天A>=4 OR LLV(缺口判断,距前高天A)=-1 OR 判断XA=-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) 低保留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 AAAD:=IF(高保留YX=1 AND 低保留YX=-1 AND H>REF(H,REF(距前高天YA,1)+2),1,IF(高保留YX=1 AND 低保留YX=-1 AND L 极点保留:=IF(AAAD=0,高保留YX+低保留YX,AAAD); 局部极点:IF(极点保留=-1,L,IF(极点保留=1,H,NULL)) ,CIRCLEDOT ,COLORYELLOW; DRAWLINE1(极点保留=-1,局部极点,极点保留=1,局部极点,0),COLORRED; DRAWLINE1(极点保留=1,局部极点,极点保留=-1,局部极点,0),COLORYELLOW; DD1:=BARSLAST(ABS(极点保留)<>1); //MA5:MA(CLOSE,5),COLORFF00FF,LINETHICK2; //判:IF(MA5 DRAWICON(极点保留=1,局部极点,2); DRAWICON(极点保留=-1,局部极点,1); FROMOPEN:=IF(HOUR<12,60*(HOUR-9)-30+MINUTE,120+60*(HOUR-13)+MINUTE); V2:=IF(CURRBARSCOUNT=1,VOL*240/FROMOPEN/REF(VOL,1)-1,VOL/REF(VOL,1)-1); STICKLINE(V2>=1,O,C,1,0),COLORYELLOW; TY:=C; //{收盘价} A1:=REF(TY,10)=HHV(TY,2*10+1); //{10日前收盘价等于21天内最高价} VB1:=FILTER(A1,10); //{当出现A1条件时，过滤10天后连续出现的信号} C1:=BACKSET(VB1,10+1); //{将当前位置到11天前的位置设为1} HD:=FILTER(C1,10); //{将当前位置到10天后的位置设为1} A2:=REF(TY,10)=LLV(TY,2*10+1); //{10天前的收盘价等于21天内最低价} VB2:=FILTER(A2,10); //{过滤10天内连续出现的信号} C2:=BACKSET(VB2,10+1); //{将当前位置到11天前的位置设为1} LD:=FILTER(C2,10); //{当出现C2后，10天后的数据不予记录} A:=REF(C,BARSLAST(HD)); //{设值上次高点位置} B:=REF(C,BARSLAST(LD)); //{设值上次低点位置} T11:=BARSLAST(HD) //{上升波段回调不创新低没新高} T21:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD); //{下降波段反弹不创新高没新低} 波峰:IF(T11,A,A),COLORFF00FF,POINTDOT; //符合T1条件，高位线为紫色点状线} STICKLINE(T11,A,A,9,0),COLORFF00FF; //{高位画横线} 波谷:IF(T21,B,B),COLOR80FF00,POINTDOT; //{符合T2条件，高位线为绿色点状线} STICKLINE1(T21,B,B,9,0),COLOR80FF00; /*低位画横线}; {假阳真阴*/ AMOUNT:=AVPRICE*V; 均价:=AMOUNT/VOL/100; 假阳:=C>O AND REF(C,1)>均价 AND C>均价 AND C<300 ; STICKLINE1(假阳,O,C,1,0); 标志阴:=REF(C,1)/C>1.04; STICKLINE1(标志阴,O,C,1,0),COLORWHITE; {假阴真阳} 假阴:=O>C AND 均价>REF(C,1) AND C>MA(C,5); STICKLINE(假阴,O,C,1,0),COLORRED; DRAWTEXT_FIX( ISLASTBAR AND C DRAWTEXT_FIX( ISLASTBAR AND C>上线 AND C>O , 0.85,0.95,0,'【上线过，可做多】'),COLORWHITE; DRAWTEXT_FIX( ISLASTBAR AND C>中线 AND CO, 0.85,0.95,0,'【中线过，分强弱】'),COLORWHITE; DRAWTEXT_FIX( ISLASTBAR AND C>下线 AND CO, 0.85,0.95,0,'【中线下，走势弱】'),COLORWHITE; {涨跌停K线标识}; */ ST:=NAMELIKE('ST')=1 OR NAMELIKE('*ST')=1 OR NAMELIKE('SST')=1 OR NAMELIKE('S*ST')=1 OR NAMELIKE('S ST')=1; 涨停:=C>=REF(C,DAYBARPOS)*1.099; 跌停:=C<=REF(C,DAYBARPOS)*0.91; STICKLINE1(涨停,C,O,3,0),COLORMAGENTA; STICKLINE1(跌停,C,O,3,0),COLORGREEN; //DRAWICON(H=ZTPRICE(REF(CLOSE,1),0.1) AND C!=H,L*0.965,15); STICKLINE1(C/REF(C,1)>=1.04 OR C/REF(C,1)<=0.96,(C+O)/2,(C+O)/2,2,1),COLORLIGHTBLUE; //{中分线}; STICKLINE(C/REF(C,1)>=1.04 OR C/REF(C,1)<=0.96,(MAX(O,C)-MIN(O,C))*2/3+MIN(O,C),(MAX(O,C)-MIN(O,C))*2/3+MIN(O,C),2,1),COLORLIGHTBLUE; //{上三一线}; STICKLINE(C/REF(C,1)>=1.04 OR C/REF(C,1)<=0.96,(MAX(O,C)-MIN(O,C))/3+MIN(O,C),(MAX(O,C)-MIN(O,C))/3+MIN(O,C),2,1),COLORLIGHTBLUE; //{下三一线}; //{下三一线};
閱讀更多 德蒙爾樂 的文章
