5800万能坐标正反算程序(超短型)_5800坐标计算程序

5800万能坐标正反算程序(超短型)由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“5800坐标计算程序”。

卡西欧5800任意线元坐标正反算程序（包括直线，圆曲线，缓和曲线正算及反算）

“A=?,NEW=0，OLD≠0”?A: A≠0=>Goto S:“O=”?O:“U=”?U:“V=”?V:“G=”?G:“H=”?H:“P=”?P:“R=”?R:“Q=”?Q: Lbl S ：Fix 3:7→DimZ:1÷P→C:(P-R)÷(2HPR)→D:180÷∏→E:“1=>ZS,2=>FS”?N:If N=1：Then“Z-H=”?S:“-L,+R=”?Z: S-O→W:If WH:Then“=>ERROR!”◢ Goto S:IfEnd:Else “X=”?X:“Y=”?Y:X→I:Y→J:G-90→T:Abs((Y-V)cos(T)-(X-U)sin(T)→W:0→Z:IfEnd:Lbl A:0.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L→F:1-K→M:

U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))→Z[5]:

V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))→Z[6]:G+QEW(C+WD)+90→F:Z[5]+Zcos(F)→Z[5]:Z[6]+Zsin(F)→Z[6]: T+QEW(C+WD)→L:(J-Z[6])cos(L)-(I-Z[5])sin(L)→Z:If N=1:Then“FWJ=”:F-90◣DMS◢“X=”:Z[5]→X◢“Y=”:Z[6]→Y◢Goto S:IfEnd:If Abs(Z)＜0.00001:Then(J-Z[6])÷sin(F)→Z:O+W→S:Else W+Z→W:Goto A:IfEnd:If SO+H:Then“=>ERROR!”◢Goto S:IfEnd:“Z-H=”:S◢“-L,+R=”:Z◢Goto S

说明：A：等于0为输入新的线元参数数据，反之进入坐标正反算。

O：线元起点桩号。U：线元起点X坐标。V：线元起点Y坐标。

G：线元起点切线方位角。H：线元长度。

P: 线元起点半径。R: 线元终点半径。

Q：偏转系数（左偏输入-1，右偏输入1）。

45注：半径为0时，输入10×10。直线偏转系数输入0。

本程序占用764字节。输入之前与输入之后分别查看剩余内存，两者之差不等于764，说明输入有误！