通达信顶底源码副图

以下是通达信顶底源码副图（无源码的请下载附件导入）

N:=150;判断高低:=3；
 高:=REF(HHV(H,N),判断高低)；
 近期顶:REFDATE(高,DATE),COLORGREEN,LINETHIKC3;
最顶:=REFDATE(近期顶,DATE),NODRAW;
出;=最顶=H AND （（C-L）<(O-L)OR(O-L)<(C-O)),NODRAW
 STICKLINE(出,C,O,3,O),COLORGEEN;
 STICKLINE(出,C,O,2,O),COLORGEEN;
低:=REF(LLV(L,N)判断高低);

近期底:REFDATE(低,DATE),COLORRED,LINETHICK3;
最低:=REFDATE(近期底,DATE),NODRAW;
进:=最底=L AND((C+L)<(O+L)<(C+O)),NODRAW;
 STICKLINE(进,C,O,3,O),COLORRED;
 STICKLINE(进,C,O,2,O),COLORRED;