软件名称：[B]纯画圆弧[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2012-11-29 02:41:50
软件简介:

纯画圆弧

参数：

{纯画圆弧 - 理想论坛 壹瓣杺埖 原创-创幻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;

[url=http://www.70822.com/soft/sort013/sort02/down-55464.html]纯画圆弧[/url]