江湖上失传已久的通达信顶底主图公式、源码

MA(C,30);
 N:=150;判断高低:=3;
高:=REF(HHV(H,N),判断高低);
近期顶:REFDATE(高,DATE),COLORGREEN,LINETHICK3;
最顶:=REFDATE(近期顶,DATE),NODRAW;
出:=最顶=H AND ((C-L)<(O-C) OR (O-L)<(C-O)),NODRAW;
 STICKLINE(出,C,O,3,0),COLORGREEN;
 STICKLINE(出,C,O,2,0),COLORGREEN;
低:=REF(LLV(L,N),判断高低);
近期底:REFDATE(低,DATE),COLORRED,LINETHICK3;
最底:=REFDATE(近期底,DATE),NODRAW;
进:=最底=L AND ((C+L)<(O+C) OR (O+L)<(C+O)),NODRAW;
 STICKLINE(进,H,L,3,0),COLORRED;
 STICKLINE(进,C,O,2,0),COLORRED;
 N250:=250;
 PT250:=CONST(HHVBARS(V,N250));
 T250:IF(CURRBARSCOUNT<=N250,CONST(IF(PT250=0,C,REF(C,PT250))),DRAWNULL),COLORMAGENTA,LINETHICK2;
 IF(CURRBARSCOUNT=PT250+1,T250*1.01,DRAWNULL),CIRCLEDOT,COLORFF0000,LINETHICK2;
 DRAWTEXT(CURRBARSCOUNT=N250,T250,'250'),COLOR990000;
 N120:=120;
 PT120:=CONST(HHVBARS(V,N120));
 T120:IF(CURRBARSCOUNT<=N120,CONST(IF(PT120=0,C,REF(C,PT120))),DRAWNULL),COLORAAAA00,LINETHICK2;
 IF(CURRBARSCOUNT=PT120+1,T120,DRAWNULL),CIRCLEDOT,COLORFFFF00,LINETHICK2;
 DRAWTEXT(CURRBARSCOUNT=N120,T120,'120'),COLORAAAA00;
 N60:=60;
 PT60:=CONST(HHVBARS(V,N60));
 T60:IF(CURRBARSCOUNT<=N60,CONST(IF(PT60=0,C,REF(C,PT60))),DRAWNULL),COLOR00BB00,LINETHICK2;
 IF(CURRBARSCOUNT=PT60+1,T60,DRAWNULL),CIRCLEDOT,COLOR00FF00,LINETHICK2;
 DRAWTEXT(CURRBARSCOUNT=N60,T60,'60'),COLOR00BB00;
 N30:=30;
 PT30:=CONST(HHVBARS(V,N30));
 T30:IF(CURRBARSCOUNT<=N30,CONST(IF(PT30=0,C,REF(C,PT30))),DRAWNULL),COLOR0000CC,LINETHICK2;
 IF(CURRBARSCOUNT=PT30+1,T30,DRAWNULL),CIRCLEDOT,COLOR0000FF,LINETHICK2;
 DRAWTEXT(CURRBARSCOUNT=N30,T30,'30'),COLOR0000CC;
 N20:=20;
 PT20:=CONST(HHVBARS(V,N20));
 T20:IF(CURRBARSCOUNT<=N20,CONST(IF(PT20=0,C,REF(C,PT20))),DRAWNULL),COLORDD00DD,LINETHICK2;
 IF(CURRBARSCOUNT=PT20+1,T20,DRAWNULL),CIRCLEDOT,COLORFF00FF,LINETHICK2;
 DRAWTEXT(CURRBARSCOUNT=N20,T20,'20'),COLORDD00DD;
阻力:REFDATE(REF(HHV(H,22),1),DATE),DOTLINE;
底:REFDATE(REF(LLV(L,22),1),DATE),DOTLINE;