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; //{下三一線}; //{下三一線};
閱讀更多 德蒙爾樂 的文章
