5800P编程计算器坐标正反算程序.docVIP

5800P编程计算器坐标正反算程序 主程序 文件名（TYQXJS） LbI 4:“1.SZ XY’’:’’2.XY SZ’’︰?N:?S:Prog“SUB0” 1÷P→C： P－R ÷ 2HPR →D：180÷π→E：N 1 Goto1:Goto2 LbI 1: ？Z:Abs s－O →W︰Prog“SUB1” ︰“XS ”:X? “YS ”:Y? F－90→F:”FS ”:F?DMS? Goto 4 LbI 2:?X:?Y:X→I:Y→J:Prog”SUB2”:O＋W→S﹕“S ”S? “Z ” ：Z? Goto 4 二:子程序（文件名SUB1） 0.1座机电话号码6→A:0.座机电话号码74→B:0.0座机电话号码2→K:0.座机电话号码82→L:1－L→F:1－K→M:U＋W Acos G＋QEKW C＋KWD ＋Bcos G＋QELW C＋QELW C＋LWD ＋Bcos G＋QEFW C＋FWD ＋Acos G＋QEMW C＋MWD →X:V＋W Asin G＋QEKW C＋KWD ＋Bsin G＋QELW C＋LWD ＋Bsin G＋QEFW C＋FWD ＋Asin G＋QEMW C＋QEMW C＋QEMW C＋MWD →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:LbI 0:Prog“SUB1”:T＋QEW C＋WD →L: J－Y cos L － I－X sin L →Z:IfAbs Z ＜0.000001:ThenGoto1:Else W＋Z→W:Goto0 LbI 1:0→Z:Prog“SUB1”: J－Y ÷sin F →Z: 四:数据库 文件名 LbI 1:If S＜止点里程:Then起点方位角→G:起点里程→O:起点X坐标→X:起点Y坐标→Y:起点半径→P:止点半径→R:曲线长→H:左转 -1 右转 1 直线 0 →Q:Return:IfEnd 数据库说明: 每增加一段曲线就增加以上一句上面的语句，当半径为无穷大时以10的45次方代替，左转输入负1，右转输入正1 五:程序输入及显示说明 1:输入部分 SZ XY XY SZ N? 选择计算方式输入1表示由里程边距计算坐标 正算 输入2表示由坐标计算里程及边距 反算 S? 正算时输入所求点的里程，反算时为所求点的近似里程 注意反算时的近似里程不能跨曲线，如果跨曲线需要进行两次反算，并以第一的里程结果作为近似里程，否则，反算的里程及边距不对。 Z? 正算时输入所求点距控制平曲线的边距，左取负，右取正，控制线上取零。 X? 反算时输入所求点X坐标。 Y? 反算时输入所求点Y坐标。 2显示部分 XS YS FS S Z