通达信圆弧改进版本主图选股指标公式源码

通达信圆弧改进版本主图选股指标公式源码

源码正文：

P:=15{XG51};
GT:=1{XG51};
DT:=1{XG51};
半径:=5{XG51};
DRAWTEXT_FIX(ISLAstBAR ,0.5,0.9,0,' 波 段 圆 主 图 '),COLORBLUE{XG51};
P1:=IF(PERIOD<5 OR PERIOD=8,60,P){XG51};
A1:=REF(H,2)=HHV(H,P1) AND REF(H,2)>maX(REF(H,1),H){XG51};
B1:=FILTER(A1,2){XG51};
C1:=BacKSET(B1,3){XG51};
D1:=FILTER(C1,2){XG51};
A2:=REF(L,2)=LLV(L,P1) AND REF(L,2)<MIN(REF(L,1),L){XG51};
B2:=FILTER(A2,2){XG51};
C2:=BACKSET(B2,3){XG51};
D2:=FILTER(C2,2){XG51};
E1:=(REF(LLV(LOW,2*2),1)+REF(HHV(HIGH,2*2),1))/2{XG51};
E02:=(HIGH+LOW)/2;  
H1:=(D1 AND NOT((D2 AND E1>=E02))) OR ISLASTBAR  OR BARSCOUNT(CLOSE)=1{XG51};
L1:=(D2 AND NOT((D1 AND E1<E02))){XG51};
H2:=D1 AND NOT((D2 AND E1>=E02)){XG51};
X1:=REF(BArslAST(H1),1)+1{XG51};
F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1)){XG51};
G1:=F1>REF(F1,1){XG51};
I1:=BACKSET(G1,2){XG51};
LD:=I1>REF(I1,1){XG51};
L2:=LD OR ISLASTBAR  OR BARSCOUNT(CLOSE)=1{XG51};
X2:=REF(BARSLAST(L2),1)+1{XG51};
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2)){XG51};
G2:=F2>REF(F2,1){XG51};
I2:=BACKSET(G2,2){XG51};
HD:=I2>REF(I2,1){XG51};
DRAWICON(LD,L*0.99,1){XG51};
DRAWICON(HD,H*1.01,2){XG51};
BDH:=REF(H,BARSLAST(HD)){XG51};
BDL:=REF(L,BARSLAST(LD)){XG51};
R11:=BACKSET(ISLASTBAR,BARSLAST(HD)+GT){XG51};
S11:=R11>REF(R11,1);
T11:=BACKSET(ISLASTBAR,BARSLAST(LD)+DT){XG51};
U11:=T11>REF(T11,1);
高点:REF(H,BARSLAST(S11)),COLOR00FF00{XG51};
低点:REF(L,BARSLAST(U11)),COLORFFCC00{XG51};
低天:=CONST(BARSLAST(U11)){XG51};
高天:=CONST(BARSLAST(S11)){XG51};
CURR:=CURRBARSCOUNT{XG51};
DRAWLINE(U11,L,S11,H,0),COLORBLUE{XG51};
DRAWLINE(S11,H,U11,L,0),COLORRED{XG51};
SH:=CONST(高点){XG51};
SL:=CONST(低点){XG51};
高低差:=SH-SL{XG51};
天距:=Abs(低天-高天){XG51};
PR:=(高天+低天)/2{XG51};
RN:=(SH+SL)/2{XG51};
Y弧:=(SH*SL){XG51};
BX:=2*(SH*SL)/天距{XG51};
BY:=(SH*SL)/高低差{XG51};
XW:=IF(CURR<PR,PR-CURR,CURR-PR)*BX{XG51};
SY:=IF(XW<Y弧,SQRT(Y弧*Y弧-XW*XW),0)/BY/半径{XG51};
YX1:RN+SY,COLOR00FFFF{XG51};
YX2:RN-SY,COLOR00FFFF{X_G~5^1_C_N_{};