通达信五圆弧主图及选股指标公式源码

通达信五圆弧主图及选股指标公式源码

源码正文：

A:=CURRBARSCOUNT{XG51};
HA:=IF(BETWEEN(DATE,1150601,1150630),H,-999){XG51};
T:=HHVBARS(HA,0){XG51};
TT:=BArslAst(L=LLV(L,T+1)){XG51};
T1:=BARSLAST(A=CONST(TT)+1){XG51};
T2:=BARSLAST(A=CONST(T)+1){XG51};
GT:=CONST(T2)+1{XG51};
DT:=CONST(T1)+1{XG51};
AA:=DRAWLINE(A=GT,H,A=DT,L,0){XG51};
DRAWBAND(AA,RGB(69,139,0),AA,RGB(69,139,0)){XG51};
HH:=CONST(REF(L,BARSLAST(A=DT+1))){XG51};
LL:=CONST(REF(H,BARSLAST(A=GT+1))){XG51};
JJ:=HH-LL{XG51};
TJ:=Abs(GT-DT){XG51};
PT:=TJ/2+MIN(GT,DT){XG51};
PJ:=(HH+LL)/2{XG51};
LJ:=HH*LL{XG51};
BT:=2*LJ/TJ{XG51};
BJ:=LJ/JJ{XG51};
TJA:=IF(A<PT,PT-A,A-PT)*BT{XG51};
TJB:=IF(TJA<LJ,SQRT(LJ*LJ-TJA*TJA),0)/BJ{XG51};
XH:IF(DT<GT,PJ+TJB,PJ-TJB),COLORmaGENTA{XG51};
SH:IF(DT<GT,PJ-TJB,PJ+TJB),COLORLIMAGENTA{XG51};
XG1:=COUNT(crOSS(C,SH),T1+1)=1 AND CROSS(C,SH) AND A<DT{XG51};
TB:=A=ROUND((GT+DT)/2){XG51};
ZF:=(REF(C,T1)-REF(C,T2+1))/REF(C,T2+1)*100{XG51};
DRAWTEXT(TB,AA,VARCAT(VARCAT('跌幅：',VAR2STR(CONST(ZF),2)),'%')),COLORCYAN{XG51};
DRAWTEXT(A=DT-1,SH*1.02,VARCAT(VARCAT('突破价：',VAR2STR(SH,2)),'元')),COLORBLUE{XG51};
STICKLINE(XG1,L,H,0,0),COLOR0088EE{XG51};
STICKLINE(XG1,CLOSE,OPEN,3,0),COLOR0055AA{XG51};
STICKLINE(XG1,CLOSE,OPEN,2.8,0),COLOR0066BB{XG51};
STICKLINE(XG1,CLOSE,OPEN,2.5,0),COLOR0077CC{XG51};
STICKLINE(XG1,CLOSE,OPEN,2.2,0),COLOR0088DD{XG51};
STICKLINE(XG1,CLOSE,OPEN,1.7,0),COLOR0099EE{XG51};
STICKLINE(XG1,CLOSE,OPEN,1.2,0),COLOR00AAFF{XG51};
STICKLINE(XG1,CLOSE,OPEN,0.7,0),COLOR00CCFF{XG51};
STICKLINE(XG1,CLOSE,OPEN,0.2,0),COLOR00FFFF{X?G?5?1?C?N?{};