角度K线 计算上涨角度 通达信副图指标 源码 贴图

HJ:=ATAN((HIGH-REF(HIGH,1))/REF(HIGH,1)/0.1)/6.28*360;
LJ:=ATAN((LOW-REF(LOW,1))/REF(LOW,1)/0.1)/6.28*360;
CJ:=ATAN((CLOSE-REF(CLOSE,1))/REF(CLOSE,1)/0.1)/6.28*360;
OJ:=ATAN((OPEN-REF(OPEN,1))/REF(OPEN,1)/0.1)/6.28*360;
HLJ:=ATAN((HIGH-REF(LOW,1))/REF(LOW,1)/0.1)/6.28*360;
HLK:=ATAN((LOW-REF(HIGH,1))/REF(HIGH,1)/0.1)/6.28*360;
A:=MIN(MIN(MIN(CJ,OJ),HJ),LJ);
B:=MAX(MAX(MAX(CJ,OJ),HJ),LJ);
TDXSTEP109:DRAWKLINE(B,OJ,A,CJ);
TDXSTEP110:STICKLINE(CJ>=OJ AND HJ<CJ,CJ,HJ,1,(-1)),COLORGREEN;
TDXSTEP111:STICKLINE(CJ<OJ AND HJ<OJ,OJ,HJ,1,(-1)),COLORGREEN;
TDXSTEP112:STICKLINE(CJ>=OJ AND HJ>CJ,CJ,HJ,0.1,0),COLORRED;
TDXSTEP113:STICKLINE(CJ<OJ AND HJ>OJ,OJ,HJ,0.1,0),COLORRED;
TDXSTEP114:STICKLINE(CJ>=OJ AND LJ<OJ,OJ,LJ,0.1,1),COLORCYAN;
TDXSTEP115:STICKLINE(CJ<OJ AND LJ<CJ,CJ,LJ,0.1,1),COLORCYAN;
TDXSTEP116:STICKLINE(CJ>=OJ AND LJ>OJ,OJ,LJ,0.1,0),COLORYELLOW;
TDXSTEP117:STICKLINE(CJ<OJ AND LJ>CJ,CJ,LJ,0.1,0),COLORYELLOW;
二%:ATAN(0.02/0.1)/6.28*360,POINTDOT,COLORCYAN;
五%:ATAN(0.05/0.1)/6.28*360,POINTDOT,COLORMAGENTA;
八%:ATAN(0.08/0.1)/6.28*360,POINTDOT,COLORRED;
{WWW.GPXIAZAI.COM}
十%:=ATAN(0.1/0.1)/6.28*360;
负二%:(-ATAN(0.02/0.1))/6.28*360,POINTDOT,COLORCYAN;
负五%:(-ATAN(0.05/0.1))/6.28*360,POINTDOT,COLORCYAN;
负八%:(-ATAN(0.08/0.1))/6.28*360,POINTDOT,COLORCYAN;
负十%:=(-ATAN(0.1/0.1))/6.28*360;
N:0,COLORMAGENTA;