HH:BACKSET(ISLASTBAR,SUMBARS(HD,2)),NODRAW;
LL:BACKSET(ISLASTBAR,SUMBARS(LD,2)),NODRAW;
DRAWLINE1(HD&&HH,H,HD&&HH,H,1);
DRAWLINE1(LD&&LL,L,LD&&LL,L,1);

高點壓力:TRENDLINES(HD&&HH,H,HD&&HH,H),NODRAW;
低點支撐:TRENDLINES(LD&&LL,L,LD&&LL,L),NODRAW;
A:=REF(H,BARSLAST(HD));
B:=REF(L,BARSLAST(LD));
T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
壓力線:=IF(T1,A,A),COLORCYAN,DOT;
支撐線:=IF(T1,B,B),COLORYELLOW,DOT;
DRAWSL(1,壓力線,0,1,0,COLORCYAN),DOT;
DRAWSL(1,支撐線,0,1,0,COLORYELLOW),DOT;

VAR3:=LLV(H,240);
VAR4:=100*(C-VAR3)/VAR3;
VAR5:=(C-LLV(L,528))/(HHV(H,528)-LLV(L,528))*100;
VAR6:=(C-LLV(C,530))/(HHV(C,530)-LLV(C,530))*100;
VAR7:=0;
VAR8:=MA(HHV(C-REF(C,1),0),34)/MA(ABS(C-REF(C,1)),7)*100;
VAR9:=MA(HHV(C-REF(C,1),0),13)/MA(ABS(C-REF(C,1)),13)*100;
VARA:=BARSCOUNT(C);
VARB:=VAR8<20 AND VAR9<23 AND VARA>35;
VARC:=VARB AND COUNT(VARB,1)=1;
VARD:=EMA(C,21)-EMA(C,8);
VARE:=EMA(VARD,5);
VARF:=TROUGH(C,6,1,0)<4 AND CROSS(VARD,VARE);
VAR10:=IF(TROUGH(C,16,1,0)=0 AND H>L+0.04,4,0);
VAR11:=ZIGZAG(C,6,0)>REF(ZIGZAG(C,6,0),1)
AND REF(ZIGZAG(C,6,0),1)<=REF(ZIGZAG(C,6,0),2)
AND REF(ZIGZAG(C,6,0),2)<=REF(ZIGZAG(C,6,0),3);
VAR12:=ZIGZAG(C,6,0)<REF(ZIGZAG(C,6,0),1)
AND REF(ZIGZAG(C,6,0),1)>=REF(ZIGZAG(C,6,0),2)
AND REF(ZIGZAG(C,6,0),2)>=REF(ZIGZAG(C,6,0),3);
VAR13:=ZIGZAG(C,22,0)>REF(ZIGZAG(C,22,0),1)
AND REF(ZIGZAG(C,22,0),1)<=REF(ZIGZAG(C,22,0),2)
AND REF(ZIGZAG(C,22,0),2)<=REF(ZIGZAG(C,22,0),3);
VAR14:=ZIGZAG(C,22,0)<REF(ZIGZAG(C,22,0),1)
AND REF(ZIGZAG(C,22,0),1)>=REF(ZIGZAG(C,22,0),2)
AND REF(ZIGZAG(C,22,0),2)>=REF(ZIGZAG(C,22,0),3);
VAR15:=ZIGZAG(C,51,0)>REF(ZIGZAG(C,51,0),1)
AND REF(ZIGZAG(C,51,0),1)<=REF(ZIGZAG(C,51,0),2)
AND REF(ZIGZAG(C,51,0),2)<=REF(ZIGZAG(C,51,0),3);
VAR16:=ZIGZAG(C,51,0)<REF(ZIGZAG(C,51,0),1)
AND REF(ZIGZAG(C,51,0),1)>=REF(ZIGZAG(C,51,0),2)
AND REF(ZIGZAG(C,51,0),2)>=REF(ZIGZAG(C,51,0),3);
VAR1

?

?來源:程序化99