以下是本人撰写的两点买入通达信版源码，对于想学习如何编程实现两点买入指标的朋友，可以相互探讨一下。

{两点买入}
高位价:=REF(REF(H,高点),1),COLORGRAY,POINTDOT;
低位价:=REF(REF(L,低点),1),COLORGRAY,POINTDOT;
H11:=高位价,NODRAW;
H12:=低位价,NODRAW;
L22:=DRAWNULL,NODRAW;
VVC1:=IF(高点<低点,H11,L22),NODRAW;
VVC2:=IF(LOW>=低位价,H11,L22),NODRAW;
CL3:=VVC1 AND VVC2,COLOR00FFFF,NODRAW;
两点买入成立:=CL3,NODRAW;
VVD1:=IF(高点>低点,L22,H11),NODRAW;
VVD2:=IF(LOW<低位价,L22,H11),NODRAW;
CBL3:=VVD1 AND VVD2,COLORGREEN,NODRAW;
两点买入不成立:=CBL3,NODRAW;
高位价1:=IFC(CL3,H11,L22);
低位价1:=IFC(CL3,H12,L22);
VAR1:=高位价1/低位价1;
VAR2:=SQRT(SQRT(VAR1));
VAR3:=SQRT(VAR1);
VAR4:=VAR3+VAR2-1;
VAR5:=高位价1/VAR2;
VAR6:=高位价1/VAR3;
VAR7:=高位价1/VAR4;
VAR8:=REFDATE(HHV(H,高点+1),DATE);
VAR9:=REFDATE(LLV(L,低点+1),DATE);
买C1:=CONST(VAR5),NODRAW;
买C2:=CONST(VAR6),NODRAW;
买C3:=CONST(VAR7),NODRAW;
买入C1:DRAWLINE(VV2,CONST(买C1),CURRBARSCOUNT=1,买C1,1),COLORFF8800,DOTLINE;
买入C2:DRAWLINE(VV2,CONST(买C2),CURRBARSCOUNT=1,买C2,1),COLORFF8800,DOTLINE;
买入C3:DRAWLINE(VV2,CONST(买C3),CURRBARSCOUNT=1,买C3,1),COLORFF8800,DOTLINE;
DRAWTEXT(VV2,买C1,VARCAT('C1:',VAR2STR(买C1,2))),COLORWHITE;
DRAWTEXT(VV2,买C2,VARCAT('C2:',VAR2STR(买C2,2))),COLORWHITE;
DRAWTEXT(VV2,买C3,VARCAT('C3:',VAR2STR(买C3,2))),COLORWHITE;

STICKLINE(VV2,H,CONST(VAR7),0,-1),COLORFF8800;
DRAWLINE(VV,L,VV2,H,0),COLORFF8800,LINETHICK3;
DRAWLINE(VV2,H,CURRBARSCOUNT=1,CONST(VAR7),0),COLORFF8800,DOTLINE;

手机版编程效果图