5800公路坐标计算程序

《5800公路坐标计算程序》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、[JD25]110°21′1.71″→F：76°37′52.9″→A：4683.729→T:5500→R:670→L:8026.08→O:129832.926→H:3463752.598→P:487552.957→K:1→U[JD26]186°58′54.66″→F:32°19′45.3″→A：2364.752→T:7000→R:670→L:4619.76→O:138950.898→H:345672.592→P:486563.455→K:-1→U[KL]C≤H=>-Z［7］→Z［8］:C≤H=>○→Z［9］:C≤H=>○→Z［1

2、0］:C≤H=>Goto2C≤Z［3］=>Z［7］-Z［7］^5/40/R^2/L^2→Z［8］:C≤Z［3］=>Z［7］^3/6/R/L-Z［7］^7/336/R^3/L^3→Z［9］:C≤Z［3］=>90Z［7］^2/R/L/π→Z［10］:C≤Z［3］=>Goto2C≤Z［4］=>90L/R/π+180(Z［7］-L)/R/π→Z［10］:C≤Z［4］=>RsinZ［10］+0.5L-L^3/240/R^2→Z［8］:C≤Z［4］=>R(1-cosZ［10］)+L^2/24/R→Z［9］:C≤Z［4］=>Goto2C≥Z［

3、5］=>-(Z［7］-O)→X:C≥Z［5］=>○→Y:C≥Z［5］=>A→Z［10］:C≥Z［5］=>Goto1C≥Z［4］=>A-90(O-Z［7］)^2/R/L/π→Z［10］:C≥Z［4］=>(O-Z［7］)-(O-Z［7］)^5/40/R^2/L^2→X:C≥Z［4］=>(O-Z［7］)^3/6/R/L-(O-Z［7］)^7/336/R^3/L^3→YLbl1:T+（T-X）cosA-YsinA→Z［8］:（T-X）sinA+YcosA→Z［9］:Goto2Lbl2：Pol(Z［8］,Z［9］):F+JU→Z［7］:F

4、+Z［10］U→Q:Z［1］+IcosZ［7］→X:Z［2］+IsinZ［7］→Y[GL]P+Tcos（F+180）→Z［1］:K+Tsin（F+180）→Z［2］:H+L→Z［3］:H+O-L→Z［4］:H+O→Z［5］Lbl○：Abs（C-H）→Z［7］Prog“kL”“Q=”:Q◢“0X0=”:X◢“0Y0=”:Y◢“LP”?M:“X=”:X+Mcos(Q+90)→X◢“Y=”:Y+Msin(Q+90)→Y[HS]P+Tcos(F+180)→Z［1］:K+Tsin(F+180)→Z［2］:H+L→Z［3］:H+O-L→Z［

5、4］:H+0→Z［5］Lbl0：“LC”:Abs(C-H)→Z［7］Prog“kL”-((X-M)sin(Q+90)-(Y-N)cos(Q+90)→S:AbsS<0.00001=>“LC”:AbsS<0.00001=>“LP=”:AbsS<0.00001=>（X-M）sinQ-（Y-N）cosQ→W◢AbsS≥0.00001=>C+S→C:AbsS≥0.00001=>Goto0C≥○=>“LC”:C[GLDS]“LC”?CC<138000=>Prog“JD25”:C≥138000=>Prog“JD26”Prog“GL”[HSDS

6、]“X0”?M:“Y0”?NPol(M-3458963.655,N-486966.4886):J<0=>J+360→JIfJ≥96°58′54.66″:ThenIfJ≤276°58′54.66″:ThenProg“JD26”:ElseProg“JD25”:IfEnd:ElseProg“JD25”:IfEndProg“HS”