纯画圆弧

参数：

{纯画圆弧 - 理想论坛 壹瓣杺埖 原创-创幻loy518改飞狐版}
INPUT:低天(28,1,9999),高天(10,1,9999);
CURR:=DATACOUNT-BARPOS+1;
高低:=LINEVALUE(CURR=高天,H,CURR=低天,L,0,0);
低高:=LINEVALUE(CURR=低天,L,CURR=高天,H,0,0);
高低线:=IF(高天>低天,高低,低高);
//DRAWBAND(高低线,RGB(225,226,199),高低线,RGB(225,226,199));
PARTLINE(CURR>=MIN(低天,高天) AND CURR<=MAX(低天,高天),高低线),ColorC7E2E1;
//IF(CURR=高天,H,IF(CURR=低天,L,IF(CURR=ROUND((低天+高天)/2),高低线,0))),COLORAA00AA,CROSSDOT,LINETHICK3;
PARTLINE(CURR=高天,H),COLORAA00AA,CROSSDOT,LINETHICK3;
PARTLINE(CURR=低天,L),COLORAA00AA,CROSSDOT,LINETHICK3;
PARTLINE(CURR=ROUND((低天+高天)/2),高低线),COLORAA00AA,CROSSDOT,LINETHICK3;
SSH:=REF(H,BARSLAST(CURR=高天));
SSL:=REF(L,BARSLAST(CURR=低天));
SH:=SSH[DATACOUNT];
SL:=SSL[DATACOUNT];
高低距:=SH-SL;
天距:=ABS(低天-高天);
PR:=ABS(低天-高天)/2+IF(高天>低天,低天,高天);
RN:=(SH+SL)/2;
Y弧:=(SH*SL);
BX:=2*(SH*SL)/天距;
BY:=(SH*SL)/高低距;
XW:=IF(CURR<PR,PR-CURR,CURR-PR)*BX;
SY:=IF(XW<Y弧,SQRT(Y弧*Y弧-XW*XW),0)/BY;
Y震谱1:IF(高天<低天,RN+SY,RN-SY),COLOR00FFFF;
Y震谱2:IF(高天<低天,RN-SY,RN+SY),COLOR00FFFF;