以下是通达信高抛低吸副图源码（无源码的请下载附件导入）

通达信,高抛低吸副图,源码

{公式在线提供：www.gszx.com.cn}

90,DOTLINE,COLORGRAY;
20,DOTLINE,COLORGRAY;
LSC:=REF(C,1);
RMI:=SMA(MAX(C-LSC,0),7,1)/SMA(ABS(C-LSC),7,1)*100;
RMIM:=SMA(RMI,3,1);
STICKLINE(RMIM>=50,50,RMIM,4,0),COLOR000080;
STICKLINE(RMIM>=50,50,RMIM,3,0),COLOR0000A6;
STICKLINE(RMIM>=50,50,RMIM,2,0),COLOR0000CE;
STICKLINE(RMIM>=50,50,RMIM,1,0),COLOR0000FF;
STICKLINE(RMIM<50,50,RMIM,4,0),COLOR800000;
STICKLINE(RMIM<50,50,RMIM,3,0),COLORB00000;
STICKLINE(RMIM<50,50,RMIM,2,0),COLORD50000;
STICKLINE(RMIM<50,50,RMIM,1,0),COLORFF0000;
STICKLINE(RMIM>80,80,RMIM,5,0),COLORGREEN;
STICKLINE(RMIM<20,20,RMIM,5,0),COLORWHITE;
A:=(C*3+O+H+L)/6;
XJ:=(A+0.618*REF(A,1)+0.382*REF(A,2)+0.236*REF(A,3)+0.146*REF(A,4))/2.382;
LX:=REF(XJ,1);{公式在线提供：www.gszx.com.cn}
D1:(SMA(MAX(XJ-LX,0),5,1)/SMA(ABS(XJ-LX),5,1))*100,COLOR0000FF;
D2:(SMA(MAX(XJ-LX,0),7,1)/SMA(ABS(XJ-LX),7,1))*100,COLOR00FFFF;