奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 應用交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=33)
-- HLDD收盤價 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=10890)

HLDD收盤價

TY:=C;
A1:=REF(TY,10)=HHV(TY,2*10+1);
B1:=FILTER(A1,10);
C1:=BACKSET(B1,10+1);
HD:=FILTER(C1,10);
A2:=REF(TY,10)=LLV(TY,2*10+1);
B2:=FILTER(A2,10);
C2:=BACKSET(B2,10+1);
LD:=FILTER(C2,10);
A:REF(C,BARSLAST(HD)),COLOR00FF20,LINETHICK;
B:REF(C,BARSLAST(LD)),COLORFF00FF,LINETHICK;
T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
PARTLINE(T1>=1,A),COLOR00FF20;
PARTLINE(T1<1,A),POINTDOT,COLOR00FF20;
STICKLINE(T1<1,A,A,0.1,0),POINTDOT,COLOR00FF20;
PARTLINE(T2>=1,B),COLORFF00FF;
PARTLINE(T2<1,B),POINTDOT,COLORFF00FF;
STICKLINE(T2<1,B,B,0.1,0),POINTDOT,COLORFF00FF;

CLOSE;