新聞資訊
推薦產(chǎn)品
聯(lián)系我們
聯(lián)系人：劉經(jīng)理
電話：024-64671927
郵箱：syboif@163.com
地址：沈陽市鐵西區(qū)北二路27號3門
5800計算器全線坐標(biāo)計算放樣正反算
發(fā)布者：沈陽精測鴻圖儀器設(shè)備有限公司發(fā)表時間：2018-07-26
主程序坐標(biāo)正反算
程序名稱：ZBZFS
LB1A↙
Cls:Fix4:30→DimZ:"0=ZS,1=FS"?Z↙
IfZ=0:ThenGotoB:IfEnd↙(Z=0進入里程點坐標(biāo)正算）
IfZ=1:ThenProg"FSLCBZ":GotoA:IfEnd↙(Z=1進入反算里程邊樁）
Lb1B↙
“K=”?K：（計算里程）Prog"SJK1":Prog”ZBFY”:GotoA↙
子程序數(shù)據(jù)庫SJK1
IFK<本段曲線終點里程ANDK≥上段曲線終點里程：THEN本段終點里程→Z[1]:上段曲線終點里程→Z[2]：1→O（注：左偏曲線輸入-1→O,右偏曲線輸入1→O）:半徑→R:曲線偏角→A:第一緩和曲線→Z[6]:第二緩和曲線→Z[7]:交點X→B:交點Y→C:小里程向交點方位角→E:交點向大里程方位角→F:Prog”XLZBJSCX”:Return:IFEND↙
IF…………Prog”XLZBJSCX”:Return:IFEND（曲線段分段輸入）↙
補充直線段輸入如下(單獨直線段）
IFK<本段直線終點里程ANDK≥本段直線起點里程:THEN本段直線終點里程→Z[3]:終點X→Z[16]:終點Y→Z[17]:方位角→E:Z[16]+(K-Z[3])*COSE→Z[18]:Z[17]+(K-Z[3])*SINE→Z[19]:Return:IFEND
子程序坐標(biāo)正算，名稱：XLZBJSCX
LB12↙（曲線要素計算）
Z[6]/2-Z[6]^3/(240*R^2)+Z[6]^5/(34560*R^4)→Z[8]↙（M1）
Z[7]/2-Z[7]^3/(240*R^2)+Z[7]^5/(34560*R^4)→Z[9]↙（M2）
Z[6]^2/(24*R)-Z[6]^4/(2688*R^3)→Z[10]↙（P1）
Z[7]^2/(24*R)-Z[7]^4/(2688*R^3)→Z[11]↙（P2）
π*A*R/180+0.5*(Z[6]+Z[7])→Z[25]↙（曲線總長）
90*Z[6]/(R*π)→Z[14]↙（第一緩和曲線總偏角）
90*Z[7]/(R*π)→Z[15]↙（第二緩和曲線總偏角,可以省略）
Z[8]＋（R+Z[10])TAN(A/2)-(Z[10]-Z[11])/SINA→Z[12]↙(切線T1)
Z[9]＋（R+Z[11])TAN(A/2)+(Z[10]-Z[11])/SINA→Z[13]↙(切線T2)
B+Z[12]*COS(E+180)→Z[16]↙（ZH點X）
C+Z[12]*SIN(E+180)→Z[17]↙（ZH點Y）
Z[1]-Z[25]→Z[3]↙(ZH點里程)
Z[3]+Z[6]→Z[4]↙(HY點里程)
Z[1]-Z[7]→Z[5]↙(YH點里程)
GOTO3↙
LB13↙(判斷里程點與曲線關(guān)系)
IFK≤Z[3]ANDK>Z[2]:THENGOTO4:IFEND↙
IFK≤Z[4]ANDK>Z[3]:THENGOTO5:IFEND↙
IFK≤Z[5]ANDK>Z[4]:THENGOTO6:IFEND↙
IFK≤Z[1]ANDK>Z[5]:THENGOTO7:IFEND↙
LB14↙（里程小于直緩點直線獨立坐標(biāo)）
K-Z[3]→Z[23]:0→Z[24]:E→T:GOTO8↙
LB15↙（第一緩和曲線獨立坐標(biāo)）
K-Z[3]→H↙
H-H^5/(40*R^2*Z[6]^2)+H^9/(3456*R^4*Z[6]^4)→Z[23]↙
H^3/(6*R*Z[6])-H^7/(336*R^3*Z[6]^3)→Z[24]↙
90*H^2/(R*π*Z[6])→T↙
IFO>0：THENT+E→T:ELSEE-T→T:T<0=>360+T→T:IFEND↙
GOTO8↙
LB16↙（圓曲線獨立坐標(biāo)）
K-Z[4]→H↙
H*180/(R*π)+Z[14]→T↙
R*SINT+Z[8]→Z[23]↙
R*(1-COST)+Z[10]→Z[24]↙
IFO>0：THENT+E→T:ELSEE-T→T:T<0=>360+T→T:IFEND↙
GOTO8↙
LB17↙（第二緩和曲線獨立坐標(biāo)）
Z[1]-K→H↙
H-H^5/(40*R^2*Z[7]^2)+H^9/(3456*R^4*Z[7]^4)→U↙
H^3/(6*R*Z[7])-H^7/(336*R^3*Z[7]^3)→V↙
90*H^2/(R*π*Z[7])→T↙
Z[13]COSA+Z[12]-U*COSA-V*SINA→Z[23]↙
Z[13]*SINA-U*SINA+V*COSA→Z[24]↙
IFO>0：THENF-T→T:T<0=>360+T→T:ELSEF+T→T:IFEND↙
GOTO8↙
LLb18
IFO<0:THEN-Z[24]→Z[24]:IFEND↙
Z[16]+Z[23]*COSE-Z[24]*SINE→Z[18]↙
Z[17]+Z[23]*SINE+Z[24]*COSE→Z[19]↙
ReTurn↙
子程序反算里程邊樁，名稱：FSLCBZ
Lb11↙
"XK="?X:"YK="?Y↙（輸入任意測點的XY坐標(biāo)）:“K=”?K（試算里程，任意輸入標(biāo)段內(nèi)里程點即可，也可以輸入大致的估算里程加快速度）↙
Lb12↙
Prog"SJK1":T-90→W:W<0=>360+W→W:Abs((Y-Z[19])*CosW-(X-Z[18])*SinW)→S↙
IfS<0.0001:ThenGoto4:ElseGoto3:Ifend↙
Lb13↙
K+S→K:Prog"SJK1":T-90→W:W<0=>360+W→W:Abs((Y-Z[19])*CosW-(X-Z[18])*SinW)→Q↙
IfQ<0.0001:ThenQ→S:Goto4:ElseIFQ<S:THENK+Q→K:Goto2:ElseIFQ>S:THENK-Q→K:Goto2:Ifend:Ifend:Ifend↙
Lb14↙
Pol(X-Z[18],Y-Z[19]:
"DP(-Z+Y)=":I◢(偏距）（由于該程序不能準(zhǔn)確判斷邊樁左右方向，暫作修改，取消左右邊判定）
"K=":K+S→K◢（里程）
Return↙
子程序坐標(biāo)放樣：ZBFY
LB10↙
“XHS="?G(后視點X):"YHS="?L(后視點Y):"XZJ="?M(置鏡點X):"YZJ="?N(置鏡點Y):Pol(G-M,L-N):"DH=":I(后視距)◢J<0=>J+360→J:"FH=":J→DMS◢(后視方位角)“QXJ=”:T◢（計算里程點切線方位角，可以不顯示）
“XI=”:Z[18]◢（中線X）
“YI=”:Z[19]◢（中線Y）
Pol(Z[18]-M,Z[19]-N):"DI=":I（中樁放樣距）◢J<0=>J+360→J:"FI=":J→DMS◢（中樁放樣方位角）
“PJ=”?P◢(輸入邊樁與線路夾角，左-右+)
“PD=”?D◢（輸入邊樁距）
Z[18]+D*COS(T+P)→Z[20]↙
Z[19]+D*SIN(T+P)→Z[21]↙
“XP=”:Z[20]◢（邊樁X）
“YP=”:Z[21]◢（邊樁Y）
Pol(Z[20]-M,Z[21]-N):"DP=":I◢（邊樁放樣距）J<0=>J+360→J:"FP=":J→DMS◢（邊樁放樣方位角）
Return↙
程序名稱：ZBZFS
LB1A↙
Cls:Fix4:30→DimZ:"0=ZS,1=FS"?Z↙
IfZ=0:ThenGotoB:IfEnd↙(Z=0進入里程點坐標(biāo)正算）
IfZ=1:ThenProg"FSLCBZ":GotoA:IfEnd↙(Z=1進入反算里程邊樁）
Lb1B↙
“K=”?K：（計算里程）Prog"SJK1":Prog”ZBFY”:GotoA↙
子程序數(shù)據(jù)庫SJK1
IFK<本段曲線終點里程ANDK≥上段曲線終點里程：THEN本段終點里程→Z[1]:上段曲線終點里程→Z[2]：1→O（注：左偏曲線輸入-1→O,右偏曲線輸入1→O）:半徑→R:曲線偏角→A:第一緩和曲線→Z[6]:第二緩和曲線→Z[7]:交點X→B:交點Y→C:小里程向交點方位角→E:交點向大里程方位角→F:Prog”XLZBJSCX”:Return:IFEND↙
IF…………Prog”XLZBJSCX”:Return:IFEND（曲線段分段輸入）↙
補充直線段輸入如下(單獨直線段）
IFK<本段直線終點里程ANDK≥本段直線起點里程:THEN本段直線終點里程→Z[3]:終點X→Z[16]:終點Y→Z[17]:方位角→E:Z[16]+(K-Z[3])*COSE→Z[18]:Z[17]+(K-Z[3])*SINE→Z[19]:Return:IFEND
子程序坐標(biāo)正算，名稱：XLZBJSCX
LB12↙（曲線要素計算）
Z[6]/2-Z[6]^3/(240*R^2)+Z[6]^5/(34560*R^4)→Z[8]↙（M1）
Z[7]/2-Z[7]^3/(240*R^2)+Z[7]^5/(34560*R^4)→Z[9]↙（M2）
Z[6]^2/(24*R)-Z[6]^4/(2688*R^3)→Z[10]↙（P1）
Z[7]^2/(24*R)-Z[7]^4/(2688*R^3)→Z[11]↙（P2）
π*A*R/180+0.5*(Z[6]+Z[7])→Z[25]↙（曲線總長）
90*Z[6]/(R*π)→Z[14]↙（第一緩和曲線總偏角）
90*Z[7]/(R*π)→Z[15]↙（第二緩和曲線總偏角,可以省略）
Z[8]＋（R+Z[10])TAN(A/2)-(Z[10]-Z[11])/SINA→Z[12]↙(切線T1)
Z[9]＋（R+Z[11])TAN(A/2)+(Z[10]-Z[11])/SINA→Z[13]↙(切線T2)
B+Z[12]*COS(E+180)→Z[16]↙（ZH點X）
C+Z[12]*SIN(E+180)→Z[17]↙（ZH點Y）
Z[1]-Z[25]→Z[3]↙(ZH點里程)
Z[3]+Z[6]→Z[4]↙(HY點里程)
Z[1]-Z[7]→Z[5]↙(YH點里程)
GOTO3↙
LB13↙(判斷里程點與曲線關(guān)系)
IFK≤Z[3]ANDK>Z[2]:THENGOTO4:IFEND↙
IFK≤Z[4]ANDK>Z[3]:THENGOTO5:IFEND↙
IFK≤Z[5]ANDK>Z[4]:THENGOTO6:IFEND↙
IFK≤Z[1]ANDK>Z[5]:THENGOTO7:IFEND↙
LB14↙（里程小于直緩點直線獨立坐標(biāo)）
K-Z[3]→Z[23]:0→Z[24]:E→T:GOTO8↙
LB15↙（第一緩和曲線獨立坐標(biāo)）
K-Z[3]→H↙
H-H^5/(40*R^2*Z[6]^2)+H^9/(3456*R^4*Z[6]^4)→Z[23]↙
H^3/(6*R*Z[6])-H^7/(336*R^3*Z[6]^3)→Z[24]↙
90*H^2/(R*π*Z[6])→T↙
IFO>0：THENT+E→T:ELSEE-T→T:T<0=>360+T→T:IFEND↙
GOTO8↙
LB16↙（圓曲線獨立坐標(biāo)）
K-Z[4]→H↙
H*180/(R*π)+Z[14]→T↙
R*SINT+Z[8]→Z[23]↙
R*(1-COST)+Z[10]→Z[24]↙
IFO>0：THENT+E→T:ELSEE-T→T:T<0=>360+T→T:IFEND↙
GOTO8↙
LB17↙（第二緩和曲線獨立坐標(biāo)）
Z[1]-K→H↙
H-H^5/(40*R^2*Z[7]^2)+H^9/(3456*R^4*Z[7]^4)→U↙
H^3/(6*R*Z[7])-H^7/(336*R^3*Z[7]^3)→V↙
90*H^2/(R*π*Z[7])→T↙
Z[13]COSA+Z[12]-U*COSA-V*SINA→Z[23]↙
Z[13]*SINA-U*SINA+V*COSA→Z[24]↙
IFO>0：THENF-T→T:T<0=>360+T→T:ELSEF+T→T:IFEND↙
GOTO8↙
LLb18
IFO<0:THEN-Z[24]→Z[24]:IFEND↙
Z[16]+Z[23]*COSE-Z[24]*SINE→Z[18]↙
Z[17]+Z[23]*SINE+Z[24]*COSE→Z[19]↙
ReTurn↙
子程序反算里程邊樁，名稱：FSLCBZ
Lb11↙
"XK="?X:"YK="?Y↙（輸入任意測點的XY坐標(biāo)）:“K=”?K（試算里程，任意輸入標(biāo)段內(nèi)里程點即可，也可以輸入大致的估算里程加快速度）↙
Lb12↙
Prog"SJK1":T-90→W:W<0=>360+W→W:Abs((Y-Z[19])*CosW-(X-Z[18])*SinW)→S↙
IfS<0.0001:ThenGoto4:ElseGoto3:Ifend↙
Lb13↙
K+S→K:Prog"SJK1":T-90→W:W<0=>360+W→W:Abs((Y-Z[19])*CosW-(X-Z[18])*SinW)→Q↙
IfQ<0.0001:ThenQ→S:Goto4:ElseIFQ<S:THENK+Q→K:Goto2:ElseIFQ>S:THENK-Q→K:Goto2:Ifend:Ifend:Ifend↙
Lb14↙
Pol(X-Z[18],Y-Z[19]:
"DP(-Z+Y)=":I◢(偏距）（由于該程序不能準(zhǔn)確判斷邊樁左右方向，暫作修改，取消左右邊判定）
"K=":K+S→K◢（里程）
Return↙
子程序坐標(biāo)放樣：ZBFY
LB10↙
“XHS="?G(后視點X):"YHS="?L(后視點Y):"XZJ="?M(置鏡點X):"YZJ="?N(置鏡點Y):Pol(G-M,L-N):"DH=":I(后視距)◢J<0=>J+360→J:"FH=":J→DMS◢(后視方位角)“QXJ=”:T◢（計算里程點切線方位角，可以不顯示）
“XI=”:Z[18]◢（中線X）
“YI=”:Z[19]◢（中線Y）
Pol(Z[18]-M,Z[19]-N):"DI=":I（中樁放樣距）◢J<0=>J+360→J:"FI=":J→DMS◢（中樁放樣方位角）
“PJ=”?P◢(輸入邊樁與線路夾角，左-右+)
“PD=”?D◢（輸入邊樁距）
Z[18]+D*COS(T+P)→Z[20]↙
Z[19]+D*SIN(T+P)→Z[21]↙
“XP=”:Z[20]◢（邊樁X）
“YP=”:Z[21]◢（邊樁Y）
Pol(Z[20]-M,Z[21]-N):"DP=":I◢（邊樁放樣距）J<0=>J+360→J:"FP=":J→DMS◢（邊樁放樣方位角）
Return↙
相關(guān)標(biāo)簽：
推薦資訊
- 【2024-08-23】激光垂準(zhǔn)儀的使用與維護
- 【2024-08-14】如何用望遠鏡測距
- 【2024-08-07】混凝土回彈儀使用方法
- 【2024-07-31】測量儀器有哪幾種
