画圆弧选
input:N(11,1,99),K(3,1,99),转(3,1,10),M(0,0,2500);
未来1:=BACKSET(ISLASTBAR,(M + 1));
未来2:=BACKSET(ISLASTBAR,1);
区域:=(未来1 - 未来2);
P:=NOT(区域);
VERTLINE(((REF(未来1,1) = 0) AND (未来1 = 1))),colorFF00;
A:=(ZIG(4,N) * P);
Z:IF((P = 1),(A * P),REF(A,1)),PRECISION2;
ZF:=REFX(((REF(Z,1) < REF(Z,2)) AND (Z > REF(Z,1))),1);
TT:=BARSLAST((Z = LOW));
TEND:=((DATACOUNT - TT[(DATACOUNT - 1)]) - 1);
DD:=ZF;
SD:=SUM(DD,0);
SDD:=((SD[DATACOUNT] - SD) + 1);
WX1:=BARSSINCE((SDD = K));
WX2:=BARSSINCE((SDD = (K - 1)));
WX3:=BARSSINCE((SDD = (K - 2)));
RY1:=HHV(((WX1 = 0) * LOW),0);
RY2:=HHV(((WX2 = 0) * LOW),0);
RY3:=HHV(((WX3 = 0) * LOW),0);
RX2:=HHV(((WX2 = 0) * WX1),(WX1 + 1));
RX3:=HHV(((WX3 = 0) * WX1),(WX1 + 1));
X2:=RX2[DATACOUNT];
X3:=RX3[DATACOUNT];
Y1:=RY1[DATACOUNT];
Y2:=(RY2[DATACOUNT] - RY1[DATACOUNT]);
Y3:=(RY3[DATACOUNT] - RY1[DATACOUNT]);
XY:=(POW(X2,2) + POW(Y2,2));
E:=((((X3 * XY) / X2) - ((X3 * X3) + (Y3 * Y3))) / (Y3 - ((X3 * Y2) / X2)));
D:=(0 - (((Y2 * E) + XY) / X2));
Y1:=POW(((((D * D) + (E * E)) / 4) - POW((WX1 + (D / 2)),2)),0.5);
Y2:=(0 - POW(((((D * D) + (E * E)) / 4) - POW((WX1 + (D / 2)),2)),0.5));
C1:=(REF(LOW,WX1) - REF(Y1,WX1));
UP:=(Y1 + C1);
C2:=(REF(LOW,WX1) + REF(Y1,WX1));
DW:=(Y2 + C2);
OUT1:=(ABS((Z[TEND] - UP[TEND])) < 0.01);
OUT2:=(ABS((Z[TEND] - DW[TEND])) < 0.01);
B:=(IF(OUT1,UP,IF(OUT2,DW,0)) * P);
OUT:IF((P = 1),(B * P),REF(B,1)),PRECISION2;
弧选:(((REF(OUT,1) = REF(Z,1)) AND (REF(Z,2) > REF(Z,1))) AND (Z > REF(Z,1))),LINETHICK0,colorFFFF;
VERTLINE((弧选 = 1)),POINTDOT,colorFFFF;
转1:=ZIG(3,((5 * 2) * 转));
转2:=ZIG(3,(5 * 转));
转3:=ZIG(3,(2.5 * 转));
A1:=((转1 > REF(转1,1)) AND (REF(转1,2) > REF(转1,1)));
A2:=((转2 > REF(转2,1)) AND (REF(转2,2) > REF(转2,1)));
A3:=((转3 > REF(转3,1)) AND (REF(转3,2) > REF(转3,1)));
B1:=((转1 < REF(转1,1)) AND (REF(转1,2) < REF(转1,1)));
B2:=((转2 < REF(转2,1)) AND (REF(转2,2) < REF(转2,1)));
B3:=((转3 < REF(转3,1)) AND (REF(转3,2) < REF(转3,1)));
转选:(((A1 = 1) AND (A2 = 1)) AND (A3 = 1)),LINETHICK0,colorFF;
VERTLINE((转选 = 1)),POINTDOT,LINETHICK0,colorFF;
③:ZIG(3,((5 * 2) * 转)),LINETHICK2,PRECISION2,colorFFFF;
②:ZIG(3,(5 * 转)),POINTDOT,LINETHICK2,PRECISION2,colorFF00;
