5800公路線路坐標(biāo)正反算程序(已修改)
2025-08-16 08:47 本頁面
【正文】 5800公路線路坐標(biāo)正反算程序時間:20100801 18:59:01 來源:本站作者:張玉楠我要投稿我要收藏投稿指南一單交點對稱：本程序由一個主程序JD和三個子程序（JDA、JDB、JDC）構(gòu)成，運行時只需運行主程序即可！本程序適用于單交點對稱型、不對稱型、有無緩和曲線單圓曲線型一個交點范圍內(nèi)（含交點前后有直線段時）的曲線要素核對和坐標(biāo)計算，手工輸入要素，對設(shè)計圖紙的“直線、曲線轉(zhuǎn)角表”中交點數(shù)據(jù)進行復(fù)核驗證，并為線元法程序提供起點坐標(biāo)起點切線方位角等數(shù)據(jù)！當(dāng)然本程序也可單獨逐交點輸入進行放樣計算用！鑒于5800計算器的空間和以上所述本程序的主要目的，故此程序不修改為數(shù)據(jù)庫版本！需要的自行修改結(jié)合XY框架自己修改為數(shù)據(jù)庫反算程序等！主程序名：JD24→Dimz↙Cls :＂K（JD）＂?K :＂X（JD）＂?X :＂Y（JD）＂?Y :＂LS1＂?B :＂LS2＂?C : ?R : ＂（ZH）FWJ＂?M : ＂α（Z,Y+）＂?O : M+O→N : Prog ＂JDA＂↙Cls :＂T1=＂:＂T2=＂:＂L=＂:＂LY=＂: Locate 4,1,S : Locate 4,2,T : Locate 4,3,L : Locate 4,4,Q◢Cls :＂E=＂:＂K（ZH）=＂: Locate 7,1,E : Locate 7,2,Z[1] ◢Cls : ＂K（HY）=＂:＂K（QZ）=＂:＂K（YH）=＂:＂K（HZ）=＂: Locate 7,1, Z[2] : Locate 7,2, Z[3] : Locate 7,3, Z[4] : Locate 7,4, Z[5] ◢◢LbI 0 : ＂JSLC＂?P : ＂(L,Z=0,+R)＂?D : If D≠0 :Then ＂RJ＂?H : IfEnd : Prog ＂JDB＂↙If D＜0 :Then Cls : ＂X(L)=＂:＂Y(L)=＂: Locate 6,1,F : Locate 6,2,G◢◢Goto 0 : IfEnd↙If D=0 :Then Cls : ＂X(Z)=＂:＂Y(Z)=＂: Locate 6,1,F : Locate 6,2,G ◢＂QXFWJ(Z)=＂: Z▼DMS◢Goto 0 : IfEnd↙If D＞0 :Then Cls : ＂X(R)=＂:＂Y(R)=＂: Locate 6,1,F : Locate 6,2,G◢Goto 0 : IfEnd↙子程序1名： JDAIf O＜0 :Then 1→W : Else 1→W : IfEnd : WO→A ↙B2 247。24247。RB^(4)247。2688247。R ^(3) →Z[6] ↙C2 247。24247。RC^(4)247。2688247。R ^(3) →Z[7] ↙B247。2B^(3)247。240247。R2 →Z[8] ↙C247。2C^(3)247。240247。R2 →Z[9] ↙Z[8]+((R+Z[7](R+Z[6])cos(A))247。sin(A))→S↙Z[9]+((R+Z[6](R+Z[7])cos(A))247。sin(A))→T↙RAπ247。180+(B+C) 247。2→L↙RAπ247。180(B+C) 247。2→Q↙(R+(Z[6]+Z[7])247。2)247。cos(A247。2)R→E↙KS→Z[1] ↙↙Z[1]+B→Z[2] ↙↙ Z[2]+Q247。2→Z[3]↙Z[1]+LC→Z[4]↙Z[4]+C→Z[5]↙子程序2名： JDBXScos(M)→Z[19]:YSsin(M)→Z[20]↙X+Tcos(N)→Z[21]:Y+Tsin(N)→Z[22]↙If P＞Z[1]:Then Goto 1 :IfEnd↙Z[1]P→L↙X(S+L)cos(M)+Dcos(Z+H)→F↙Y(S+L)sin(M)+Dsin(Z+H)→G↙M→Z : Goto 5↙LbI 1 : If P＞Z[2]:Then Goto 2 :IfEnd↙PZ[1]→L:L→Z[12]:B→Z[13]:Prog＂JDC＂↙Z[19]+Z[14]cos(M)WZ[15]sin(M)+Dcos(Z+H)→F↙Z[20]+Z[14]sin(M)+WZ[15]cos(M)+Dsin(Z+H)→G↙M+90WL2 247。(BRπ)→Z↙Goto 5↙LbI 2 : If P＞Z[4]:Then Goto 3 :IfEnd↙PZ[1]→L:90(2LB)247。R247。π→Z[11]↙Rsin(Z[11])+Z[8]→Z[14]:R(1cos(Z[11]))+Z[6]→Z[15]↙ Z[19]+Z[14]cos(M)WZ[15]sin(M)+Dcos(Z+H)→F↙
法律信息相關(guān)推薦
鄂ICP備17016276號-1