复制内容到剪贴板
代码:
{以下语句为新结构波浪}
A1:=REF(HIGH,3)=HHV(HIGH,2*3+1);
B1:=FILTER(A1,3);
C1:=BACKSET(B1,3+1);
D1:=FILTER(C1,3);{高点}
A2:=REF(LOW,3)=LLV(LOW,2*3+1);
B2:=FILTER(A2,3);
C2:=BACKSET(B2,3+1);
D2:=FILTER(C2,3);{低点}
E1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2;
E2:=(HIGH+LOW)/2;{高低点出现在同一K线上时可作取舍}
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
L1:=(D2 AND NOT(D1 AND E1<E2));
H2:=D1 AND NOT(D2 AND E1>=E2);
X1:=REF(BARSLAST(H1),1)+1;
F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));
G1:=F1>REF(F1,1);
I1:=BACKSET(G1,2);
LD:=I1>REF(I1,1);{过滤后低点}
L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
X2:=REF(BARSLAST(L2),1)+1;
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));
G2:=F2>REF(F2,1);
I2:=BACKSET(G2,2);
HD:=I2>REF(I2,1);{过滤后高点}
DRAWLINE(LD,L,HD,H,0),COLORWHITE,LINETHICK1;
DRAWLINE(HD,H,LD,L,0),COLORWHITE,LINETHICK1;
J1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HD),BARSLAST(LD))+1);
J2:=J1>REF(J1,1);
DRAWLINE(J2,IF(HD,H,L),ISLASTBAR,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),COLORWHITE,LINETHICK1;
{以上语句为新结构波浪}
A3:=H<REF(H,REF(BARSLAST(HD),1)+1);
B3:=REF(H,REF(BARSLAST(HD),1)+1)>REF(H,REF(BARSLAST(HD),1)+2+REF(BARSLAST(HD),REF(BARSLAST(HD),1)+2));
D3:=A3 AND B3 AND HD; E3:=BACKSET(D3,REF(BARSLAST(HD),1)+2);
HH:=E3>REF(E3,1);{找出全部长期高点}
A4:=L>REF(L,REF(BARSLAST(LD),1)+1);
B4:=REF(L,REF(BARSLAST(LD),1)+1)<REF(L,REF(BARSLAST(LD),1)+2+REF(BARSLAST(LD),REF(BARSLAST(LD),1)+2));
D4:=A4 AND B4 AND LD; E4:=BACKSET(D4,REF(BARSLAST(LD),1)+2);
LL:=E4>REF(E4,1);{找出全部长期低点}
DRAWNUMBER(hd,h,if(hd,h,0),2),ALIGN2;
DRAWNUMBER(ld,l,if(ld,l,0),2),ALIGN2;
{DRAWICON(Hd,H,10),ALIGN1;
DRAWICON(Ld,L,12),ALIGN1;}
H3:=HH OR ISLASTBAR OR BARSCOUNT(C)=1; {后面进行过滤，方法同前。只是不用考虑高低点出现在同一K线}
X3:=REF(BARSLAST(H3),1)+1;
F3:=BACKSET(H3 AND COUNT(LL,X3)>0,LLVBARS(IF(LL,L,POW(10,20)),X3));
G3:=F3>REF(F3,1);
I3:=BACKSET(G3,2);
LZ:=I3>REF(I3,1); {长期低点，也可供引用}
L4:=LZ OR ISLASTBAR OR BARSCOUNT(C)=1;
X4:=REF(BARSLAST(L4),1)+1;
F4:=BACKSET(L4 AND COUNT(HH,X4)>0,HHVBARS(IF(HH,H,-POW(10,20)),X4));
G4:=F4>REF(F4,1);
I4:=BACKSET(G4,2);
HZ:=I4>REF(I4,1),LINETHICK0;{长期高点，也可供引用}
DRAWLINE(HZ,H,LZ,L,0),COLORGREEN,LINETHICK2;
DRAWLINE(LZ,L,HZ,H,0),COLORGREEN,LINETHICK2;{长期连线}
K1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HZ),BARSLAST(LZ))+1);
K2:=K1>REF(K1,1);
DRAWLINE(K2,IF(HZ,H,L),ISLASTBAR,h,0),COLORGREEN,LINETHICK2; {最后的长期连线，连在收盘价上}
{以下是两条趋势线原码}
低1:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);
一低:=低1>REF(低1,1);
低2:=BACKSET(一低,REF(BARSLAST(LD),1)+2);
二低:=低2>REF(低2,1);
低3:=BACKSET(二低,REF(BARSLAST(LD),1)+2);
三低:=低3>REF(低3,1);
低4:=BACKSET(三低,REF(BARSLAST(LD),1)+2);
四低:=低4>REF(低4,1);
低5:=BACKSET(四低,REF(BARSLAST(LD),1)+2);
五低:=低5>REF(低5,1);
低6:=BACKSET(五低,REF(BARSLAST(LD),1)+2);
六低:=低6>REF(低6,1);
低7:=BACKSET(六低,REF(BARSLAST(LD),1)+2);
七低:=低7>REF(低7,1);
低8:=BACKSET(七低,REF(BARSLAST(LD),1)+2);
八低:=低8>REF(低8,1);
低9:=BACKSET(八低,REF(BARSLAST(LD),1)+2);
九低:=低9>REF(低9,1);
DRAWLINE(二低,L,一低,L,1),COLORYELLOW,LINETHICK1;
DRAWLINE(三低,L,二低,L,1),COLORYELLOW,LINETHICK1;
DRAWLINE(四低,L,三低,L,1),COLORYELLOW,LINETHICK1;
DRAWLINE(五低,L,四低,L,1),COLORYELLOW,LINETHICK1;
DRAWLINE(六低,L,五低,L,1),COLORYELLOW,LINETHICK1;
DRAWLINE(七低,L,六低,L,1),COLORYELLOW,LINETHICK1;
DRAWLINE(八低,L,七低,L,1),COLORYELLOW,LINETHICK1;
DRAWLINE(九低,L,八低,L,1),COLORYELLOW,LINETHICK1;
高1:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);
一高:=高1>REF(高1,1);
高2:=BACKSET(一高,REF(BARSLAST(HD),1)+2);
二高:=高2>REF(高2,1);
高3:=BACKSET(二高,REF(BARSLAST(HD),1)+2);
三高:=高3>REF(高3,1);
高4:=BACKSET(三高,REF(BARSLAST(HD),1)+2);
四高:=高4>REF(高4,1);
高5:=BACKSET(四高,REF(BARSLAST(HD),1)+2);
五高:=高5>REF(高5,1);
高6:=BACKSET(五高,REF(BARSLAST(HD),1)+2);
六高:=高6>REF(高6,1);
高7:=BACKSET(六高,REF(BARSLAST(HD),1)+2);
七高:=高7>REF(高7,1);
高8:=BACKSET(七高,REF(BARSLAST(HD),1)+2);
八高:=高8>REF(高8,1);
高9:=BACKSET(八高,REF(BARSLAST(HD),1)+2);
九高:=高9>REF(高9,1);
DRAWLINE(二高,H,一高,H,1),COLORRED,LINETHICK1;
DRAWLINE(三高,H,二高,H,1),COLORRED,LINETHICK1;
DRAWLINE(四高,H,三高,H,1),COLORRED,LINETHICK1;
DRAWLINE(五高,H,四高,H,1),COLORRED,LINETHICK1;
DRAWLINE(六高,H,五高,H,1),COLORRED,LINETHICK1;
DRAWLINE(七高,H,六高,H,1),COLORRED,LINETHICK1;
DRAWLINE(八高,H,七高,H,1),COLORRED,LINETHICK1;
DRAWLINE(九高,H,八高,H,1),COLORRED,LINETHICK1;
前一低:REF(L,BARSLAST(一低)),COLORGREEN,POINTDOT,LINETHICK2;
前二低:REF(L,BARSLAST(二低)),COLORGREEN,POINTDOT,LINETHICK2;
前三低:REF(L,BARSLAST(三低)),COLORGREEN,POINTDOT,LINETHICK2;
前四低:REF(L,BARSLAST(四低)),COLORGREEN,POINTDOT,LINETHICK2;
前五低:REF(L,BARSLAST(五低)),COLORGREEN,POINTDOT,LINETHICK2;
前六低:REF(L,BARSLAST(六低)),COLORGREEN,POINTDOT,LINETHICK2;
前七低:REF(L,BARSLAST(七低)),COLORGREEN,POINTDOT,LINETHICK2;
前八低:REF(L,BARSLAST(八低)),COLORGREEN,POINTDOT,LINETHICK2;
前九低:REF(L,BARSLAST(九低)),COLORGREEN,POINTDOT,LINETHICK2;
前一高:REF(H,BARSLAST(一高)),COLORRED,POINTDOT,LINETHICK2;
前二高:REF(H,BARSLAST(二高)),COLORRED,POINTDOT,LINETHICK2;
前三高:REF(H,BARSLAST(三高)),COLORRED,POINTDOT,LINETHICK2;
前四高:REF(H,BARSLAST(四高)),COLORRED,POINTDOT,LINETHICK2;
前五高:REF(H,BARSLAST(五高)),COLORRED,POINTDOT,LINETHICK2;
前六高:REF(H,BARSLAST(六高)),COLORRED,POINTDOT,LINETHICK2;
前七高:REF(H,BARSLAST(七高)),COLORRED,POINTDOT,LINETHICK2;
前八高:REF(H,BARSLAST(八高)),COLORRED,POINTDOT,LINETHICK2;
前九高:REF(H,BARSLAST(九高)),COLORRED,POINTDOT,LINETHICK2;
EXPLAIN(HD OR LD OR BARSTATUS=2,STKNAME);
EXPLAINEX(HD or LD OR BARSTATUS=2,'日期=',DATE-1000000+20000000,0,0);
EXPLAINEX(HD,'区间高点=',H,2,0);
EXPLAINEX(LD,'区间低点=',L,2,0);
EXPLAINEX(HD,'已经上涨(天)=',BARSLAST(LD ),0,0);
EXPLAINEX(LD,'已经下跌(天)=',BARSLAST(HD ),0,0);
EXPLAINEX(HD,'最大涨幅(%)=',(H-TROUGH(4,7,1))/TROUGH(4,7,1)*100,2,0);
EXPLAINEX(LD,'最大跌幅(%)=',(PEAK(4,7,1)-L)/PEAK(4,7,1)*100*(-1),2,0);
EXPLAINEX(HD,'上涨区间金额(亿元)=',SUM(AMOUNT,BARSLAST(LD))/100000000,2,0);
EXPLAINEX(LD,'下跌区间金额(亿元)=',SUM(AMOUNT,BARSLAST(HD))/100000000,2,0);
EXPLAINEX(HD,'区间换手(%)=',SUM( v,BARSLAST(LD))/CAPITAL*100,2,0);
EXPLAINEX(LD,'区间换手(%)=',SUM( v,BARSLAST(HD))/CAPITAL*100,2,0);
EXPLAINEX(LD,'区间平均价=',SUM(AMOUNT,BARSLAST(HD))/SUM( v,BARSLAST(HD))/100,2,0);
EXPLAINEX(HD,'区间平均价=',SUM(AMOUNT,BARSLAST(LD))/SUM( v,BARSLAST(LD))/100,2,0);
EXPLAINEX(C>一低 AND BARSTATUS=2,'区间高点=',HHV(H,3),2,0);
EXPLAINEX(C<一高 AND BARSTATUS=2,'区间低点=',LLV(L,3),2,0);
EXPLAINEX(C>一低 AND BARSTATUS=2,'已经上涨(天)=',BARSLAST(LD ),0,0);
EXPLAINEX(C<一高 AND BARSTATUS=2,'已经下跌(天)=',BARSLAST(HD ),0,0);
EXPLAINEX(C>一低 AND BARSTATUS=2,'最大涨幅(%)=',(HHV(H,3)-TROUGH(4,7,1))/TROUGH(4,7,1)*100,2,0);
EXPLAINEX(C<一高 AND BARSTATUS=2,'最大跌幅(%)=',(PEAK(4,7,1)-LLV(L,3))/PEAK(4,7,1)*100*(-1),2,0);
EXPLAINEX(C>一低 AND BARSTATUS=2,'实际涨幅(%)=',(C-TROUGH(4,7,1))/TROUGH(4,7,1)*100,2,0);
EXPLAINEX(C<一高 AND BARSTATUS=2,'实际跌幅(%)=',(PEAK(4,7,1)-C)/PEAK(4,7,1)*100*(-1),2,0);
EXPLAINEX(C>一低 AND BARSTATUS=2,'上涨区间金额(亿元)=',SUM(AMOUNT,BARSLAST(LD))/100000000,2,0);
EXPLAINEX(C<一高 AND BARSTATUS=2,'下跌区间金额(亿元)=',SUM(AMOUNT,BARSLAST(HD))/100000000,2,0);
EXPLAINEX(C>一低 AND BARSTATUS=2,'区间换手(%)=',SUM( v,BARSLAST(一低))/CAPITAL*100,2,0);
EXPLAINEX(C<一高 AND BARSTATUS=2,'区间换手(%)=',SUM( v,BARSLAST(一高))/CAPITAL*100,2,0);
EXPLAINEX(C<一高 AND BARSTATUS=2,'区间平均价=',SUM(AMOUNT,BARSLAST(一高))/SUM( v,BARSLAST(HD))/100,2,0);
EXPLAINEX(C>一低 AND BARSTATUS=2,'区间平均价=',SUM(AMOUNT,BARSLAST(一低))/SUM( v,BARSLAST(LD))/100,2,0);
{以下语句是大盘趋势叠加
常数:=REF(INDEXC,BARSLAST(VV))/REF(C,BARSLAST(VV));
叠1:INDEXC/常数,COLORGRAY,LINETHICK0;
PARTLINE(1,叠1),colorcyan;
常数2:=REF(INDEXC,BARSLAST(XX))/REF(C,BARSLAST(XX));
叠2:INDEXC/常数2,COLORGRAY,LINETHICK0;
PARTLINE(1,叠2),colorcyan;}
{DRAWNUMBER(HD,1.02*H,DATEDIFF(REF(DATE,BARSLAST(LD)),DATE),0),COLORCYAN;}
{DRAWNUMBER(LD,0.98*L,DATEDIFF(REF(DATE,BARSLAST(HD)),DATE),0),COLORCYAN;
DRAWNUMBER(LD,0.98*L,BARSLAST(HD),0),COLORCYAN,ALIGN0;
DRAWNUMBER(HD,1.02*H,BARSLAST(LD),0),COLORCYAN,ALIGN0;
DRAWNUMBER(HD,H*(1+0.002),H,2),Color00FFFF,ALIGN0;
DRAWNUMBER(LD,L*(1.001-0.002),L,2),Color00FFFF,ALIGN0;}
