咨詢內容：

請大師修改

G:=HHV(HIGH,3);
N:=LLV(LOW,3);
H10:=IF(H<REF(H,1)&&H<REF(H,2)&&H<REF(H,4)&&L<REF(L,1)&&L<REF(L,3)&&L<REF(L,5)&&OPEN>CLOSE&&(HHV(OPEN,0)-CLOSE)>0,REF(H,4),0);
L10:=IF(L>REF(L,1)&&L>REF(L,3)&&L>REF(L,5)&&H>REF(H,1)&&H>REF(H,2)&&H>REF(H,4)&&OPEN<CLOSE&&(CLOSE-LLV(OPEN,0))>0,REF(L,4),0);
H20:=VALUEWHEN(H10>0,H10);
L20:=VALUEWHEN(L10>0,L10);
K1:=IF(C>H20,-3,IF(C<L20,1,0));
K2:=VALUEWHEN(K1<>0,K1);
GG:=IF(K2=1,H20,L20);
GG1:=VALUEWHEN(ISLASTBAR,GG);
DRAWNUMBER(L>0,GG1,GG1,0,COLORCYAN);
TMP:=K2;
W1:=K2;
W2:=OPEN-CLOSE;


HT:=IF(OPEN>CLOSE,OPEN,CLOSE);
LT:=IF(OPEN<CLOSE,OPEN,CLOSE);
DRAWLINE(W1=1,HIGH,W1=1,HT,COLORCYAN);
DRAWLINE(W1=1,LOW,W1=1,LT,COLORCYAN);
DRAWLINE(W1=-3,HIGH,W1=-3,HT,COLORRED);
DRAWLINE(W1=-3,LOW,W1=-3,LT,COLORRED);
STICKLINE(W1>0,OPEN,CLOSE,COLORCYAN,1);
STICKLINE(W1<=0,OPEN,CLOSE,COLORRED,1);
STICKLINE(W2>0&&W1<=0,OPEN,CLOSE,COLORRED,0);
STICKLINE(W2>0&&W1>0,OPEN,CLOSE,COLORCYAN,0);
DRAWTEXT(CROSS(TMP,0),H,'賣');
DRAWTEXT(CROSS(0,TMP),L,'買');
DRAWNUMBER(CROSS(TMP,0),G,G,2,COLORGREEN);
DRAWNUMBER(CROSS(0,TMP),N,N,2,COLORYELLOW),ALIGN0;


D1過濾:=FILTER(BACKSET(FILTER(REF(H,5)=HHV(H,2*5+1),5),5+1),5);
D2過濾:=FILTER(BACKSET(FILTER(REF(L,5)=LLV(L,2*5+1),5),5+1),5);
H1過濾:=D1過濾 AND NOT((D2過濾 AND (REF(LLV(L,2*5),1)+REF(HHV(H,2*5),1))/2>=(H+L)/2)) OR ISLASTBAR OR BARSCOUNT(C)=1;
L1過濾:=D2過濾 AND NOT((D1過濾 AND (REF(LLV(L,2*5),1)+REF(HHV(H,2*5),1))/2<(H+L)/2));
H2過濾:=D1過濾 AND NOT((D2過濾 AND (REF(LLV(L,2*5),1)+REF(HHV(H,2*5),1))/2>=(H+L)/2));
F1過濾:=BACKSET(H1過濾 AND COUNT(L1過濾,REF(BARSLAST(H1過濾),1)+1)>0,LLVBARS(L,REF(BARSLAST(H1過濾),1)+1)+1);
LD過濾:=BACKSET(F1過濾>REF(F1過濾,1),1)>REF(BACKSET(F1過濾>REF(F1過濾,1),1),1);
L2過濾:=LD過濾 OR ISLASTBAR OR BARSCOUNT(C)=1;
F2過濾:=BACKSET(L2過濾 AND COUNT(H2過濾,REF(BARSLAST(L2過濾),1)+1)>0,HHVBARS(H,REF(BARSLAST(L2過濾),1)+1)+1);
HD過濾:=BACKSET(F2過濾>REF(F2過濾,1),1)>REF(BACKSET(F2過濾>REF(F2過濾,1),1),1);
HH過濾:=HD過濾&&NOT(LD過濾)&&REFX1(BACKSET(HD過濾&&H>HV(H,BARSLAST(LD過濾)),BARSLAST(LD過濾))<>1,1);
LL過濾:=LD過濾&&NOT(HD過濾)&&REFX1(BACKSET(LD過濾&&L<LV(L,BARSLAST(HD過濾)),BARSLAST(HD過濾))<>1,1);
AA:=BACKSET(ISLASTBAR,SUMBARS(HH過濾,2));
BB:=BACKSET(ISLASTBAR,SUMBARS(LL過濾,2));
CC:=IF(BARSLAST(HH過濾)>BARSLAST(LL過濾),REF(L,BARSLAST(LL過濾))-REF(H,SUMBARS(HH過濾=1,2)),REF(H,BARSLAST(HH過濾))-REF(L,SUMBARS(LL過濾=1,2)));
DD:=IF(BARSLAST(HH過濾)>BARSLAST(LL過濾),REF(L,BARSLAST(LL過濾)),REF(H,BARSLAST(HH過濾)));

//DRAWLINE1(LL過濾&&BB&&REFX1(CC,10000)>=0,L,HH過濾&&AA&&REFX1(CC,10000)>=0,H,0),COLORRED,LINETHICK3;
//DRAWLINE1(HH過濾&&AA&&REFX1(CC,10000)>=0,H,LL過濾&&BB&&REFX1(CC,10000)>=0,L,0),COLORRED,LINETHICK3;
//DRAWLINE1(LL過濾&&BB&&REFX1(CC,10000)<0,L,HH過濾&&AA&&REFX1(CC,10000)<0,H,0),COLORGREEN,LINETHICK3;
//DRAWLINE1(HH過濾&&AA&&REFX1(CC,10000)<0,H,LL過濾&&BB&&REFX1(CC,10000)<0,L,0),COLORGREEN,LINETHICK3;
SS:=BACKSET(ISLASTBAR,SUMBARS(LL過濾,1));
QQ:=BACKSET(ISLASTBAR,SUMBARS(HH過濾,1));
DRAWCOLORKLINE(C>REF(L,BARSLAST(LL過濾))&&ISUP&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5)),COLORRED,1);
DRAWCOLORKLINE(C>REF(L,BARSLAST(LL過濾))&&ISDOWN&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5)),COLORRED,0);
DRAWCOLORKLINE(C<REF(H,BARSLAST(HH過濾))&&ISUP&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5)),COLORGREEN,1);
DRAWCOLORKLINE(C<REF(H,BARSLAST(HH過濾))&&ISDOWN&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5)),COLORGREEN,0);
做多:IF(C>REF(L,BARSLAST(LL過濾))&&ISUP&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5))||C>REF(L,BARSLAST(LL過濾))&&ISDOWN&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5)),VALUEWHEN(CROSS(C>REF(L,BARSLAST(LL過濾))&&ISUP&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5))||C>REF(L,BARSLAST(LL過濾))&&ISDOWN&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5)),0.5),L),NULL),COLORCC33FF,LINETHICK4;
做空:IF(C<REF(H,BARSLAST(HH過濾))&&ISUP&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5))||C<REF(H,BARSLAST(HH過濾))&&ISDOWN&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5)),VALUEWHEN(CROSS(C<REF(H,BARSLAST(HH過濾))&&ISUP&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5))||C<REF(H,BARSLAST(HH過濾))&&ISDOWN&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5)),0.5),H),NULL),COLORFFFFFF,LINETHICK4;
DRAWTEXT(ISLASTBAR,做多,'做多'),COLORFFFFFF,FONTSIZE25,ALIGN2;
DRAWTEXT(ISLASTBAR,做空,'做空'),COLORFFFFFF,FONTSIZE25,ALIGN2;


DRAWLINE(TMP=1&&REF(TMP,1)=1,G,TMP=1&&REF(TMP,1)=1,REF(G,1),COLORFF8000),LINETHICK3;
DRAWLINE(TMP=-3&&REF(TMP,1)=-3,N,TMP=-3&&REF(TMP,1)=-3,REF(N,1),COLOR990099),LINETHICK3;
DRAWSL(K2=1,G,0,1,0,COLORFF8000),LINETHICK3;
DRAWSL(K2=-3,N,0,1,0,COLOR990099),LINETHICK3;
Q:=BARSLAST(CROSS(K2,0))+1;
W:=BARSLAST(CROSSDOWN(K2,0))+1;
DRAWSL(CROSS(K2,0),HHV(H,W),0,-HHVBARS(H,W),0,COLORFF8000),LINETHICK3;
DRAWSL(CROSSDOWN(K2,0),LLV(L,Q),0,-LLVBARS(L,Q),0,COLOR990099),LINETHICK3;
DRAWLINE(CROSS(K2,0)&&K2=1,G,CROSS(K2,0)&&K2=1,HHV(H,W),COLORFF8000),LINETHICK3;
DRAWLINE(CROSSDOWN(K2,0)&&K2=-3,G,CROSSDOWN(K2,0)&&K2=-3,LLV(L,Q),COLOR990099),LINETHICK3;

HH01:=IF(H<REF(H,2)&&REF(H,1)<REF(H,2),HHV(H,2),0);
LL01:=IF(L>REF(L,2)&&REF(L,1)>REF(L,2),LLV(L,2),0);
HH02:=VALUEWHEN(HH01>0,HH01);
LL02:=VALUEWHEN(LL01>0,LL01);
K01:=IF(CLOSE>HH02,-3,IF(CLOSE<LL02,1,0));
K02:=VALUEWHEN(K01<>0,K01);
DRAWTEXT(CROSS(K02,0),REF(H,3),'頂'),COLORGREEN,FONTSIZE20,ALIGN2;
DRAWTEXT(CROSS(0,K02),REF(L,2),'底'),COLORYELLOW,VALIGN0,FONTSIZE20,ALIGN2;






A:=BACKSET(ISLASTBAR,DAYBARPOS);
IF(A,REF(HHV(H,DAYBARPOS),DAYBARPOS),NULL);
IF(A,REF(LLV(L,DAYBARPOS),DAYBARPOS),NULL);
DRAWTEXT(ISLASTBAR,REF(HHV(H,DAYBARPOS),DAYBARPOS),'昨天最高價');
DRAWTEXT(ISLASTBAR,REF(LLV(L,DAYBARPOS),DAYBARPOS),'昨天最低價');

?

?來源:程序化99網（ www.tumamayizhan.com ）

博易技術人員： G:=HHV(HIGH,3);
N:=LLV(LOW,3);
H10:=IF(H<REF(H,1)&&H<REF(H,2)&&H<REF(H,4)&&L<REF(L,1)&&L<REF(L,3)&&L<REF(L,5)&&OPEN>CLOSE&&(HHV(OPEN,0)-CLOSE)>0,REF(H,4),0);
L10:=IF(L>REF(L,1)&&L>REF(L,3)&&L>REF(L,5)&&H>REF(H,1)&&H>REF(H,2)&&H>REF(H,4)&&OPEN<CLOSE&&(CLOSE-LLV(OPEN,0))>0,REF(L,4),0);
H20:=VALUEWHEN(H10>0,H10);
L20:=VALUEWHEN(L10>0,L10);
K1:=IF(C>H20,-3,IF(C<L20,1,0));
K2:=VALUEWHEN(K1<>0,K1);
GG:=IF(K2=1,H20,L20);
GG1:=VALUEWHEN(ISLASTBAR,GG);
DRAWNUMBER(L>0,GG1,GG1,0),COLORCYAN;
TMP:=K2;?
W1:=K2;
W2:=OPEN-CLOSE;


HT:=IF(OPEN>CLOSE,OPEN,CLOSE);
LT:=IF(OPEN<CLOSE,OPEN,CLOSE);
//DRAWLINE(W1=1,HIGH,W1=1,HT,COLORCYAN);
//DRAWLINE(W1=1,LOW,W1=1,LT,COLORCYAN);
//DRAWLINE(W1=-3,HIGH,W1=-3,HT,COLORRED);
//DRAWLINE(W1=-3,LOW,W1=-3,LT,COLORRED);
STICKLINE(W1>0,OPEN,CLOSE,9,1),COLORCYAN;
STICKLINE(W1<=0,OPEN,CLOSE,9,1),COLORRED;
STICKLINE(W2>0&&W1<=0,OPEN,CLOSE,9,0),COLORRED;
STICKLINE(W2>0&&W1>0,OPEN,CLOSE,9,0),COLORCYAN;
DRAWTEXT(CROSS(TMP,0),H,'賣');
DRAWTEXT(CROSS(0,TMP),L,'買');?
DRAWNUMBER(CROSS(TMP,0),G,G,2),COLORGREEN;
DRAWNUMBER(CROSS(0,TMP),N,N,2),COLORYELLOW,ALIGN0;


D1過濾:=FILTER(BACKSET(FILTER(REF(H,5)=HHV(H,2*5+1),5),5+1),5);
D2過濾:=FILTER(BACKSET(FILTER(REF(L,5)=LLV(L,2*5+1),5),5+1),5);
H1過濾:=D1過濾 AND NOT((D2過濾 AND (REF(LLV(L,2*5),1)+REF(HHV(H,2*5),1))/2>=(H+L)/2)) OR ISLASTBAR OR BARSCOUNT(C)=1;
L1過濾:=D2過濾 AND NOT((D1過濾 AND (REF(LLV(L,2*5),1)+REF(HHV(H,2*5),1))/2<(H+L)/2));
H2過濾:=D1過濾 AND NOT((D2過濾 AND (REF(LLV(L,2*5),1)+REF(HHV(H,2*5),1))/2>=(H+L)/2));
F1過濾:=BACKSET(H1過濾 AND COUNT(L1過濾,REF(BARSLAST(H1過濾),1)+1)>0,LLVBARS(L,REF(BARSLAST(H1過濾),1)+1)+1);
LD過濾:=BACKSET(F1過濾>REF(F1過濾,1),1)>REF(BACKSET(F1過濾>REF(F1過濾,1),1),1);
L2過濾:=LD過濾 OR ISLASTBAR OR BARSCOUNT(C)=1;
F2過濾:=BACKSET(L2過濾 AND COUNT(H2過濾,REF(BARSLAST(L2過濾),1)+1)>0,HHVBARS(H,REF(BARSLAST(L2過濾),1)+1)+1);
HD過濾:=BACKSET(F2過濾>REF(F2過濾,1),1)>REF(BACKSET(F2過濾>REF(F2過濾,1),1),1);
HH過濾:=HD過濾&&NOT(LD過濾)&&REFX(BACKSET(HD過濾&&H>=HHV(H,BARSLAST(LD過濾)),BARSLAST(LD過濾))<>1,1);
LL過濾:=LD過濾&&NOT(HD過濾)&&REFX(BACKSET(LD過濾&&L<=LLV(L,BARSLAST(HD過濾)),BARSLAST(HD過濾))<>1,1);
AA:=BACKSET(ISLASTBAR,SUMBARS(HH過濾,2));
BB:=BACKSET(ISLASTBAR,SUMBARS(LL過濾,2));
CC:=IF(BARSLAST(HH過濾)>BARSLAST(LL過濾),REF(L,BARSLAST(LL過濾))-REF(H,SUMBARS(HH過濾=1,2)),REF(H,BARSLAST(HH過濾))-REF(L,SUMBARS(LL過濾=1,2)));
DD:=IF(BARSLAST(HH過濾)>BARSLAST(LL過濾),REF(L,BARSLAST(LL過濾)),REF(H,BARSLAST(HH過濾)));

//DRAWLINE1(LL過濾&&BB&&REFX1(CC,10000)>=0,L,HH過濾&&AA&&REFX1(CC,10000)>=0,H,0),COLORRED,LINETHICK3;
//DRAWLINE1(HH過濾&&AA&&REFX1(CC,10000)>=0,H,LL過濾&&BB&&REFX1(CC,10000)>=0,L,0),COLORRED,LINETHICK3;
//DRAWLINE1(LL過濾&&BB&&REFX1(CC,10000)<0,L,HH過濾&&AA&&REFX1(CC,10000)<0,H,0),COLORGREEN,LINETHICK3;
//DRAWLINE1(HH過濾&&AA&&REFX1(CC,10000)<0,H,LL過濾&&BB&&REFX1(CC,10000)<0,L,0),COLORGREEN,LINETHICK3;
SS:=BACKSET(ISLASTBAR,SUMBARS(LL過濾,1));
QQ:=BACKSET(ISLASTBAR,SUMBARS(HH過濾,1));
DRAWKLINEEX(C>REF(L,BARSLAST(LL過濾))&&ISUP&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5)),H,O,L,C),COLORRED;
DRAWKLINEEX(C>REF(L,BARSLAST(LL過濾))&&ISDOWN&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5)),H,O,L,C),COLORRED;
DRAWKLINEEX(C<REF(H,BARSLAST(HH過濾))&&ISUP&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5)),H,O,L,C),COLORGREEN;
DRAWKLINEEX(C<REF(H,BARSLAST(HH過濾))&&ISDOWN&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5)),H,O,L,C),COLORGREEN;
做多:IF(C>REF(L,BARSLAST(LL過濾))&&ISUP&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5))||C>REF(L,BARSLAST(LL過濾))&&ISDOWN&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5)),VALUEWHEN(CROSS(C>REF(L,BARSLAST(LL過濾))&&ISUP&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5))||C>REF(L,BARSLAST(LL過濾))&&ISDOWN&&SS&&BARSLAST(CROSS(QQ,0.5))>BARSLAST(CROSS(SS,0.5)),0.5),L),DRAWNULL),COLORCC33FF,LINETHICK4;
做空:IF(C<REF(H,BARSLAST(HH過濾))&&ISUP&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5))||C<REF(H,BARSLAST(HH過濾))&&ISDOWN&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5)),VALUEWHEN(CROSS(C<REF(H,BARSLAST(HH過濾))&&ISUP&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5))||C<REF(H,BARSLAST(HH過濾))&&ISDOWN&&QQ&&BARSLAST(CROSS(QQ,0.5))<BARSLAST(CROSS(SS,0.5)),0.5),H),DRAWNULL),COLORFFFFFF,LINETHICK4;
DRAWTEXT(ISLASTBAR,做多,'做多'),COLORFFFFFF,FONTSIZE25,ALIGN2;
DRAWTEXT(ISLASTBAR,做空,'做空'),COLORFFFFFF,FONTSIZE25,ALIGN2;


DRAWLINE(TMP=1&&REF(TMP,1)=1,G,TMP=1&&REF(TMP,1)=1,REF(G,1),COLORFF8000),LINETHICK3;
DRAWLINE(TMP=-3&&REF(TMP,1)=-3,N,TMP=-3&&REF(TMP,1)=-3,REF(N,1),COLOR990099),LINETHICK3;
DRAWSL(K2=1,G,0,1,0),COLORFF8000,LINETHICK3;
DRAWSL(K2=-3,N,0,1,0),COLOR990099,LINETHICK3;
Q:=BARSLAST(CROSS(K2,0))+1;
W:=BARSLAST(CROSS(0,K2))+1;
DRAWSL(CROSS(K2,0),HHV(H,W),0,-HHVBARS(H,W),0),COLORFF8000,LINETHICK3;
DRAWSL(CROSS(0,K2),LLV(L,Q),0,-LLVBARS(L,Q),0),COLOR990099,LINETHICK3;
DRAWLINE(CROSS(K2,0)&&K2=1,G,CROSS(K2,0)&&K2=1,HHV(H,W),COLORFF8000),LINETHICK3;
DRAWLINE(CROSS(0,K2)&&K2=-3,G,CROSS(0,K2)&&K2=-3,LLV(L,Q),COLOR990099),LINETHICK3;

HH01:=IF(H<REF(H,2)&&REF(H,1)<REF(H,2),HHV(H,2),0);
LL01:=IF(L>REF(L,2)&&REF(L,1)>REF(L,2),LLV(L,2),0);
HH02:=VALUEWHEN(HH01>0,HH01);
LL02:=VALUEWHEN(LL01>0,LL01);
K01:=IF(CLOSE>HH02,-3,IF(CLOSE<LL02,1,0));
K02:=VALUEWHEN(K01<>0,K01);
DRAWTEXT(CROSS(K02,0),REF(H,3),'頂'),COLORGREEN,FONTSIZE20,ALIGN2;
DRAWTEXT(CROSS(0,K02),REF(L,2),'底'),COLORYELLOW,VALIGN0,FONTSIZE20,ALIGN2;





DAYBARPOS:=BARSLAST(REF(HOUR,1)=15 AND HOUR<>15);
A:=BACKSET(ISLASTBAR,DAYBARPOS);
IF(A,REF(HHV(H,DAYBARPOS),DAYBARPOS),DRAWNULL);
IF(A,REF(LLV(L,DAYBARPOS),DAYBARPOS),DRAWNULL);
DRAWTEXT(ISLASTBAR,REF(HHV(H,DAYBARPOS),DAYBARPOS),'昨天最高價');
DRAWTEXT(ISLASTBAR,REF(LLV(L,DAYBARPOS),DAYBARPOS),'昨天最低價'); 謝謝老師，效果不對

?
? 來源 程序化久久網