CASIO 卡西欧计算器程序
网站：http://www.fffsky.com/blog
论坛：http://dict.5d6d.com
适用：CASIO fx-5800P
Q Q：２９５１８８３１６
[原创] CASIO fx-5800P YFX圆弧线坐标计算程序
说明：该程序适用于计算器 CASIO fx-5800P，针对圆弧线线形
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
，可计算公路交叉口圆弧线线路中、边桩坐标、切线方位角及斜交。
1、K? 输入起点桩号
2、X? 输入起点坐标X
3、Y? 输入起点坐标Y
4、R? 输入曲线半径
5、FQ? 输入起点方位角
6、FZ? 输入止点方位角
主程序名：YFX
Deg：Fix 3：10→DimZ↙ （基本设置）
＂K＂?Z：＂X＂?U：＂Y＂?V：＂R＂?R：＂FQ＂?F：＂FZ＂?H↙ （曲线要素）
H-F→Z[1]：If Z[1]<0：Then -1→Z[6]：Else 1→Z[6]：IfEnd↙ （转角）
Abs(Z[1])→Z[1]↙ （赋值）
R×tan(Z[1]÷2)→T↙ （切线长）
R×Z[1]×π÷180→L↙ （曲线长）
R×(1÷cos(Z[1]÷2)-1)→E↙ （外失距）
Z+L÷2→Z[7]↙ （曲中里程）
Z+L→Z[8]↙ （圆直里程）
Cls：＂T=＂：Locate 3,1,T：＂L=＂：Locate 3,2,L：＂E=＂：Locate 3,3,E◢ （显示）
Cls：＂ZY=＂：Locate 4,1,Z：＂QZ=＂：Locate 4,2,Z[7]：＂YZ=＂：Locate 4,3,Z[8]◢（显示）
Lb1 1↙
Lbl A↙
＂JK＂?K↙ （计算里程）
If K≤0：Then Goto A：IfEnd↙ （当K≤0时,则返回至K）
＂PJ＂?I↙ （计算偏距）
＂PA＂?J↙ （计算偏角）
K-Z→M↙ （计算点距直圆点间距）
M÷R×180÷π→N↙ （计算点圆心角）
R×sin(N)→Z[5]↙ （xi）
R×(1-cos(N))→P↙ （yi）
√(Z[5]^2+P^2)→Z[9]↙ （弦长）
tan-1(P÷Z[5])→S↙ （偏角）
F+N×Z[6]→Z[4]↙ （计算点切线方位角）
U+Z[9]×cos(F+S×Z[6])+I×cos(Z[4]+J)→X↙ （计算结果坐标X）
V+Z[9]×sin(F+S×Z[6])+I×sin(Z[4]+J)→Y↙ （计算结果坐标Y）
If Z[4]>360：Then Z[4]-360→Z[4]：Else If Z[4]<0：Then Z[4]+360→Z[4]：IfEnd：IfEnd
Cls：＂F=＂：Locate 3,1,Z[4]°：＂X=＂：Locate 3,2,X：＂Y=＂：Locate 3,3,Y◢
Goto 1↙
注：
1、◢ 为显示指令。
2、√为根号。
3、↙为回车(EXE)标识。
4、（）括号内为程序说明，无需输入。
计算参数：
1、K? 0 （起点桩号）
2、X? 685.312 （起点坐标X）
3、Y? 1165.147 （起点坐标Y）
4、R? 50 （曲线半径）
5、FQ? 45° （起点方位角）
6、FZ? 135° （止点方位角）
7、T= 50 （计算结果：切线长T）
8、L= 78.54 （计算结果：曲线长L）
9、E= 20.711 （计算结果：外失距E）
10、ZY= 00.00 （计算结果：直圆桩号ZY）
11、QZ= 39.27 （计算结果：曲中桩号QZ）
12、YZ= 78.54 （计算结果：圆直桩号YZ）
13、JK? 39.27 （输入待求点桩号）
14、PJ? 0 （输入计算偏距）
15、PA? 0 （输入计算偏角，正交为90°）
16、F= 90°00ˊ00.38″ （计算结果：切线方位角F）
17、X= 699.957 （计算结果：坐标X）
18、Y= 1200.502 （计算结果：坐标Y）
计算图示
本程序由【陈超】编著：版权归作者所有 ——若有疑问请至Email：ceo@fffsky.com
_1354015073.dwg
浙公网安备 33021202002483