软件名称：[B]三角形-飞狐版-by舍得快乐[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：2.00 KB
官方主页：Home Page
更新时间：2011-10-06 04:38:37
软件简介:

[通达信] [转帖] 听雪寻股老师的一个公式---线的角度（源码、主图、贴图）
再此感谢(创幻)舍得快乐老师
俺的主图是俺乱玩的，俺发的是听雪寻股老师的源码。
 

N的参数是10
ZQ:=DATACOUNT-BARPOS;
HH20:=REFX(HHV(H,N*3),ZQ);
LL20:=REFX(LLV(L,N*3),ZQ);
K:=(HH20-LL20)/(N),LINETHICK;
XY:LINEVALUE(ZQ+1=N,LL20,ZQ+1=1,HH20,0,0),LINETHICK1,COLORFFFFFF;
YX:LINEVALUE(ZQ+1=N,HH20,ZQ+1=1,LL20,0,0),LINETHICK1,COLORFFFFFF;
中位线:(XY+YX)/2,LINETHICK1,COLORFFFFFF;
XX:IF(ZQ+1<N+1,HH20,0),LINETHICK,COLORFFFFFF;
PARTLINE(ZQ+1<N,HH20),LINETHICK1,COLORFFFFFF;
YY:IF(ZQ+1<N+1,LL20,0),LINETHICK,COLORFFFFFF;
PARTLINE(ZQ+1<N,LL20),LINETHICK1,COLORFFFFFF;
STICKLINE(ZQ+1=1,HH20,LL20,0,0),COLORFFFFFF;
STICKLINE(ZQ+1=N,HH20,LL20,0,0),COLORFFFFFF;
//参考标准角:=ATAN((HH20-LL20)/(N*K))*57.29633,COLORFFFFFF,LINETHICK;
MAN:=MA(C,N),COLORAAAAFF;
DRAWTEXT(ZQ+1=N-2,LL20*1.03,'主图画面参考标准角=45°'),COLORAAFFFF;
X角K:=REFX(REF(MAN,1)-MAN,ZQ)*(ZQ)+REFX(MAN,ZQ);
MAN角斜线:LINEVALUE(ZQ+1=N,X角K,ZQ+1=1,X角K,0,0),LINETHICK2,COLOR00FFFF;
MAN角水平线A:=IF(ZQ+1<=N,REFX(REF(MAN角斜线,N-1),ZQ),0);
MAN角水平线:MAN角水平线A[DATACOUNT],LINETHICK,COLOR00FFFF;
PARTLINE(ZQ+1<N,MAN角水平线),LINETHICK2,COLOR00FFFF;
STICKLINE(ZQ+1=1,REFX(MAN角水平线,ZQ),MAN角斜线,0.8,0),COLOR00FFFF,LINETHICK2;
MAN线:MAN,LINETHICK2,COLORAAAAFF;
MAN角:REFX(ATAN((MAN角斜线-MAN角水平线)/(N*K))*57.29633,ZQ),LINETHICK;{原文链接：

[url=http://www.70822.com/soft/sort013/sort02/down-39565.html]三角形-飞狐版-by舍得快乐[/url]