【TYQXJS2】直线曲线线元法坐标正反算Lbl0：→DimZ:〝1.ZF≠1.FS〞:〝N〞？N：N≠1?Goto2:〝〞？→Z[]:〝〞？→Z[]?
Lbl1:〝K=〞？S:〝B=〞？Z:Prog〝SUB-SJK2〞:1÷P→C:（P-R）÷（2HPR）→D:180÷π→E:Abs(S-O)→W:Prog〝SUB1〞:Cls:〝X=〞:Locate4,1,X:〝Y=〞:Locate4,2,Y:〝FWJ°°°=〞:F-90?DMS◢Z[7],Y-Z[8]）:J＜0?360+J→J：〝DH〞J°◢Goto1?
Lbl2:〝GAILUE(K=)〞？S:Prog〝SUB-SJK2〞:〝X=〞？X:〝Y=〞？Y:X→I:Y→J:Prog〝SUB2〞:O+W→S:Cls:〝K=〞:Locate4,1,S:〝B=〞:Locate4,2,Z◢Goto2?
使用说明：按提示字符分别输入1或≠1的数选择正反算。
〝K=、B=〞正算时，输入所求点桩号和距中（左-右+中0）。
〝X=、Y=、FWJ°°°=〞显示所求点X、Y值及所求点切线方位角。
〝GAILUE(K=)〞反算时，输入所求点概略桩号。
5.〝X=〞？〝Y=〞？反算时，输入所求点X、Y值。
【SUB-SJK2】直线曲线线元法坐标正反算数据库
IfS＜78.283:Then552.632→U：756.198→V：0→O:324°52°29.82°→G:78.283→H:10^（45）→P:10^（45）→R:0→Q:Return：IfEnd?
IfS＜113.283:Then616.66→U：711.157→V：78.283→O:324°52°29.82°→G:35→H:10^（45）→P:280→R:-1→Q:Return：IfEnd?
IfS＜167.387:Then………………-1→Q:Return：IfEnd?
使用说明：（本程序为线元法坐标正反算）
S：线元终点桩号，U、V：线元起点X，Y坐标，O：线元起点桩号，G：线元起点方位角，H：线元长度，P：线元起点半径，R：线元终点半径，Q：线元线型选择（直线0.左转-1.右转+1）
线元为直线时，P.R线元起、终点半径取10^（45）。
当线元起点或终点的方位角G=90°、270°时，G应减去0.1〞。保证【SUB2】中(J-Y)÷sin(F)→Z的sin(F)≠0
【SUB1】线元法坐标正算子程序
0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1-L→F：1-K→M：G+QEKW(C+KWD)→Z[1]：G+QELW(C+LWD)→Z[2]：
G+QEFW(C+FWD)→Z[3]：G+QEMW(C+MWD)→Z[4]：U+W(Acos(Z[1])+Bcos(Z[2])+Bcos(Z[3])+Acos(Z[4]))→X：V+W(Asin(Z[1])+Bsin(Z[2])+Bsin(Z[3])+Asin(Z[4]))→Y：G+QEW(C+WD)+90→F：X+Zcos(F)→X：Y+Zsin(F)→Y【SUB2】线元法坐标反算子程序G-90→T:Abs((Y-V)cos(T)-(X-U)sin(T))→W:0→Z:Lbl4:Prog“SUB1”:T+QEW(C+WD)→L:(J-Y)cos(L)-(I-X)sin(L)→Z:
IfAbs(Z)<10^(-3):Then0→Z：Prog“SUB1”：(J-Y)÷sin(F)→Z:ElseW+Z→W:Goto4:IfEnd
1
|
|
