類別:技術(shù)、主圖
作者:清揚
說明:峰點和趨勢合一。為清揚早期作品。
INPUT:N(3,1,999),M(3,1,999);
AA:=REF(H,N)=HHV(H,2*N+1);
BB:=BACKSET(AA,N+1);
CC:=FILTER(BB,N) AND H=HHV(H,N+1);
DRAWICON(CC,H*1.02,10);
AA2:=REF(L,N)=LLV(L,2*N+1);
BB2:=BACKSET(AA2,N+1);
CC2:=FILTER(BB2,N) AND L=LLV(L,N+1);
DRAWICON(CC2,L*0.99,11);
DRAWLINE(CC,H,ISLASTBAR,REF(H,BARSLAST(CC)),1);
DRAWLINE(CC2,L,ISLASTBAR,REF(L,BARSLAST(CC2)),1);
ZZ:=BACKSET(ISLASTBAR,BARSLAST(CC)+1);
YY:=ZZ>REF(ZZ,1);
短高:REF(H,BARSLAST(YY)),LINETHICK0;
ZZ2:=BACKSET(ISLASTBAR,BARSLAST(CC2)+1);
YY2:=ZZ2>REF(ZZ2,1);
短低:REF(L,BARSLAST(YY2)),LINETHICK0;
短比:(短高-短低)/(C-短低),LINETHICK0;
AA3:=REF(H,2*N)=HHV(H,4*N+1);
BB3:=BACKSET(AA3,2*N+1);
CC3:=FILTER(BB3,2*N) AND H=HHV(H,2*N+1);
DRAWICON(CC3,H*1.03,8);
AA4:=REF(L,2*N)=LLV(L,4*N+1);
BB4:=BACKSET(AA4,2*N+1);
CC4:=FILTER(BB4,2*N) AND L=LLV(L,2*N+1);
DRAWICON(CC4,L*0.97,9);
ZZ3:=BACKSET(ISLASTBAR,BARSLAST(CC3)+1);
YY3:=ZZ3>REF(ZZ3,1);
中高:REF(H,BARSLAST(YY3)),LINETHICK0;
ZZ4:=BACKSET(ISLASTBAR,BARSLAST(CC4)+1);
YY4:=ZZ4>REF(ZZ4,1);
中低:REF(L,BARSLAST(YY4)),LINETHICK0;
中比:(中高-中低)/(C-中低),LINETHICK0;
DD:=BACKSET(ISLASTBAR,BARSLAST(CC3));
DRAWICON(DD,REF(H,BARSLAST(CC3)),10);
DD2:=BACKSET(ISLASTBAR,BARSLAST(CC4));
DRAWICON(DD2,REF(L,BARSLAST(CC4)),11);
ZJ:=BACKSET(ISLASTBAR,BARSLAST(CC2)+1);
ZX:=ZJ>REF(ZJ,1);
常數(shù):=REF(INDEXC,BARSLAST(ZX))/REF(C,BARSLAST(ZX));
疊1:INDEXC/常數(shù),COLORBLUE;
ZJ2:=BACKSET(ISLASTBAR,BARSLAST(CC4)+1);
ZX2:=ZJ2>REF(ZJ2,1);
常數(shù)2:=REF(INDEXC,BARSLAST(ZX2))/REF(C,BARSLAST(ZX2));
疊2:INDEXC/常數(shù)2,COLORBLUE;
DRAWICON(CROSS(C,疊1) OR CROSS(C,疊2),L*0.998,12);
DRAWICON(CROSS(C,REF(H,BARSLAST(CC))),L*0.98,7);
DRAWICON(CROSS(C,REF(H,BARSLAST(CC3))),L*0.96,5);
DRAWICON(CROSS(REF(L,BARSLAST(CC2)),C),L*0.98,6);
DRAWICON(CROSS(REF(L,BARSLAST(CC4)),C),L*0.96,4);
AA5:=REF(H,M)=HHV(H,2*M+1);
BB5:=BACKSET(AA5,M+1);
CC5:=FILTER(BB5,M) AND H=HHV(H,M+1);
AA6:=REF(L,M)=LLV(L,2*M+1);
BB6:=BACKSET(AA6,M+1);
CC6:=FILTER(BB6,M) AND L=LLV(L,M+1);
AA7:=REF(H,2*M)=HHV(H,4*M+1);
BB7:=BACKSET(AA7,2*M+1);
CC7:=FILTER(BB7,2*M) AND H=HHV(H,2*M+1);
AA8:=REF(L,2*M)=LLV(L,4*M+1);
BB8:=BACKSET(AA8,2*M+1);
CC8:=FILTER(BB8,2*M) AND L=LLV(L,2*M+1);
GG:=ISLASTBAR AND REF(CC5,BARSLAST(CC5));
HH:=BACKSET(GG,BARSLAST(CC5)+1);
II:=HH>REF(HH,1);
JJ:=REF(BARSLAST(CC5),1);
KK:=BACKSET(II,JJ+2);
LL:=KK>REF(KK,1);
DRAWLINE(LL,H,II,H,1),COLORGRAY;
CS:=(REF(H,BARSLAST(II))-REF(H,BARSLAST(LL)))/(BARSLAST(LL)-BARSLAST(II));
阻力線:=REF(H,BARSLAST(II))+BARSLAST(II)*CS;
DRAWICON(CROSS(C,阻力線),L*0.998,12);
GG2:=ISLASTBAR AND REF(CC6,BARSLAST(CC6));
HH2:=BACKSET(GG2,BARSLAST(CC6)+1);
II2:=HH2>REF(HH2,1);
JJ2:=REF(BARSLAST(CC6),1);
KK2:=BACKSET(II2,JJ2+2);
LL2:=KK2>REF(KK2,1);
DRAWLINE(LL2,L,II2,L,1),COLORGREEN,COLORGRAY;
GG3:=ISLASTBAR AND REF(CC7,BARSLAST(CC7));
HH3:=BACKSET(GG3,BARSLAST(CC7)+1);
II3:=HH3>REF(HH3,1);
JJ3:=REF(BARSLAST(CC7),1);
KK3:=BACKSET(II3,JJ3+2);
LL3:=KK3>REF(KK3,1);
DRAWLINE(LL3,H,II3,H,1),COLORFFCC99;
CS3:=(REF(H,BARSLAST(II3))-REF(H,BARSLAST(LL3)))/(BARSLAST(LL3)-BARSLAST(II3));
阻力線3:=REF(H,BARSLAST(II3))+BARSLAST(II3)*CS3;
DRAWICON(CROSS(C,阻力線3),L*0.998,12);
GG4:=ISLASTBAR AND REF(CC8,BARSLAST(CC8));
HH4:=BACKSET(GG4,BARSLAST(CC8)+1);
II4:=HH4>REF(HH4,1);
JJ4:=REF(BARSLAST(CC8),1);
KK4:=BACKSET(II4,JJ4+2);
LL4:=KK4>REF(KK4,1);
DRAWLINE(LL4,L,II4,L,1),COLORGREEN,COLORFFCC99;股票論壇 www.55188.com
本站僅提供存儲服務,所有內(nèi)容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請
點擊舉報。