[转载]文华主图1

H1:=IFELSE(H<REF(H,2)&&REF(H,1)<REF(H,2)&&REF(H,2)>=REF(H,3)&&REF(H,2)>=REF(H,4), REF(H,2),0);

L1:=IFELSE(L>REF(L,2)&&REF(L,1)>REF(L,2)&&REF(L,2)<=REF(L,3)&&REF(L,2)<=REF(L,4), REF(L,2),0);

H2:=VALUEWHEN(H1>0,H1);

L2:=VALUEWHEN(L1>0,L1);

K1:=IFELSE(H>H2,-3,IFELSE(L<L2,1,0));

K2:=VALUEWHEN(K1<>0,K1);

G:=IFELSE(K2=1,H2,L2);

G1:=VALUEWHEN(ISLASTBAR,G);

DRAWNUMBER(L>0,G1,G1,0,COLORCYAN);

TMP:=VALUEWHEN(K1<>0,K1);

DRAWLINE(TMP>0.00001,HIGH,TMP>0.00001,OPEN,COLORCYAN);

DRAWLINE(TMP>0.00001,LOW,TMP>0.00001,CLOSE,COLORCYAN);

DRAWLINE(TMP<-0.00001,HIGH,TMP<-0.00001,CLOSE,COLORRED);

DRAWLINE(TMP<-0.00001,LOW,TMP<-0.00001,OPEN,COLORRED);

DRAWLINE(ABS(TMP)<0.00001,LOW,ABS(TMP)<0.00001,OPEN,COLORWHITE);

DRAWLINE(ABS(TMP)<0.00001,HIGH,ABS(TMP)<0.00001,OPEN,COLORWHITE);

STICKLINE(TMP>0,OPEN,CLOSE,COLORCYAN,0);

STICKLINE(TMP<=0,OPEN,CLOSE,COLORRED,0);

DRAWLINE(TMP=1&&REF(TMP,1)=1,G,TMP=1&&REF(TMP,1)=1,REF(G,1),COLORCYAN);

DRAWLINE(TMP=-3&&REF(TMP,1)=-3,G,TMP=-3&&REF(TMP,1)=-3,REF(G,1),COLORRED);

DRAWSL(K2=1,G,0,1,0,COLORCYAN);

DRAWSL(K2=-3,G,0,1,0,COLORRED);