新聞資訊
推薦產(chǎn)品
- 喜利得激光測(cè)距儀
- 博飛全站儀
- 中海達(dá)全站儀
- 蘇州全站儀
- 中緯gps
- 徠卡全站儀
- 蘇州gps
- 博飛gps
- 中海達(dá)gps
- 徠卡gps
- 賓得經(jīng)緯儀
- 賓得水準(zhǔn)儀
- 賓得電子經(jīng)緯儀
- 賓得垂準(zhǔn)儀
- 中緯全站儀
- 三鼎電子經(jīng)緯儀
- 樓板檢測(cè)
- 檢測(cè)儀器
- 實(shí)驗(yàn)儀器
- 測(cè)量?jī)x器大全
- 混凝土檢測(cè)儀器
- 賓得電子水準(zhǔn)儀
- 測(cè)距望遠(yuǎn)鏡
- 喜利得測(cè)距儀
- 三鼎電子水準(zhǔn)儀
- 三鼎垂準(zhǔn)儀
- 三鼎經(jīng)緯儀
- 偉創(chuàng)激光測(cè)距儀
- 偉創(chuàng)測(cè)距儀
- 測(cè)繪儀器大全
- 公路實(shí)驗(yàn)儀器
聯(lián)系我們
聯(lián)系人：劉經(jīng)理
電話：024-64671927
郵箱：[email protected]
地址：沈陽(yáng)市鐵西區(qū)北二路27號(hào)3門
5800計(jì)算器全線坐標(biāo)計(jì)算放樣正反算
發(fā)布者：沈陽(yáng)精測(cè)鴻圖儀器設(shè)備有限公司發(fā)表時(shí)間：2018-07-26
主程序坐標(biāo)正反算
程序名稱：ZBZFS
LB1A↙
Cls:Fix4:30→DimZ:"0=ZS,1=FS"?Z↙
IfZ=0:ThenGotoB:IfEnd↙(Z=0進(jìn)入里程點(diǎn)坐標(biāo)正算）
IfZ=1:ThenProg"FSLCBZ":GotoA:IfEnd↙(Z=1進(jìn)入反算里程邊樁）
Lb1B↙
“K=”?K：（計(jì)算里程）Prog"SJK1":Prog”ZBFY”:GotoA↙
子程序數(shù)據(jù)庫(kù)SJK1
IFK<本段曲線終點(diǎn)里程ANDK≥上段曲線終點(diǎn)里程：THEN本段終點(diǎn)里程→Z[1]:上段曲線終點(diǎn)里程→Z[2]：1→O（注：左偏曲線輸入-1→O,右偏曲線輸入1→O）:半徑→R:曲線偏角→A:第一緩和曲線→Z[6]:第二緩和曲線→Z[7]:交點(diǎn)X→B:交點(diǎn)Y→C:小里程向交點(diǎn)方位角→E:交點(diǎn)向大里程方位角→F:Prog”XLZBJSCX”:Return:IFEND↙
IF…………Prog”XLZBJSCX”:Return:IFEND（曲線段分段輸入）↙
補(bǔ)充直線段輸入如下(單獨(dú)直線段）
IFK<本段直線終點(diǎn)里程ANDK≥本段直線起點(diǎn)里程:THEN本段直線終點(diǎn)里程→Z[3]:終點(diǎn)X→Z[16]:終點(diǎn)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↙（曲線要素計(jì)算）
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]↙（曲線總長(zhǎng)）
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點(diǎn)X）
C+Z[12]*SIN(E+180)→Z[17]↙（ZH點(diǎn)Y）
Z[1]-Z[25]→Z[3]↙(ZH點(diǎn)里程)
Z[3]+Z[6]→Z[4]↙(HY點(diǎn)里程)
Z[1]-Z[7]→Z[5]↙(YH點(diǎn)里程)
GOTO3↙
LB13↙(判斷里程點(diǎn)與曲線關(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↙（里程小于直緩點(diǎn)直線獨(dú)立坐標(biāo)）
K-Z[3]→Z[23]:0→Z[24]:E→T:GOTO8↙
LB15↙（第一緩和曲線獨(dú)立坐標(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↙（圓曲線獨(dú)立坐標(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↙（第二緩和曲線獨(dú)立坐標(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↙（輸入任意測(cè)點(diǎn)的XY坐標(biāo)）:“K=”?K（試算里程，任意輸入標(biāo)段內(nèi)里程點(diǎn)即可，也可以輸入大致的估算里程加快速度）↙
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(后視點(diǎn)X):"YHS="?L(后視點(diǎn)Y):"XZJ="?M(置鏡點(diǎn)X):"YZJ="?N(置鏡點(diǎn)Y):Pol(G-M,L-N):"DH=":I(后視距)◢J<0=>J+360→J:"FH=":J→DMS◢(后視方位角)“QXJ=”:T◢（計(jì)算里程點(diǎn)切線方位角，可以不顯示）
“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進(jìn)入里程點(diǎn)坐標(biāo)正算）
IfZ=1:ThenProg"FSLCBZ":GotoA:IfEnd↙(Z=1進(jìn)入反算里程邊樁）
Lb1B↙
“K=”?K：（計(jì)算里程）Prog"SJK1":Prog”ZBFY”:GotoA↙
子程序數(shù)據(jù)庫(kù)SJK1
IFK<本段曲線終點(diǎn)里程ANDK≥上段曲線終點(diǎn)里程：THEN本段終點(diǎn)里程→Z[1]:上段曲線終點(diǎn)里程→Z[2]：1→O（注：左偏曲線輸入-1→O,右偏曲線輸入1→O）:半徑→R:曲線偏角→A:第一緩和曲線→Z[6]:第二緩和曲線→Z[7]:交點(diǎn)X→B:交點(diǎn)Y→C:小里程向交點(diǎn)方位角→E:交點(diǎn)向大里程方位角→F:Prog”XLZBJSCX”:Return:IFEND↙
IF…………Prog”XLZBJSCX”:Return:IFEND（曲線段分段輸入）↙
補(bǔ)充直線段輸入如下(單獨(dú)直線段）
IFK<本段直線終點(diǎn)里程ANDK≥本段直線起點(diǎn)里程:THEN本段直線終點(diǎn)里程→Z[3]:終點(diǎn)X→Z[16]:終點(diǎn)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↙（曲線要素計(jì)算）
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]↙（曲線總長(zhǎng)）
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點(diǎn)X）
C+Z[12]*SIN(E+180)→Z[17]↙（ZH點(diǎn)Y）
Z[1]-Z[25]→Z[3]↙(ZH點(diǎn)里程)
Z[3]+Z[6]→Z[4]↙(HY點(diǎn)里程)
Z[1]-Z[7]→Z[5]↙(YH點(diǎn)里程)
GOTO3↙
LB13↙(判斷里程點(diǎn)與曲線關(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↙（里程小于直緩點(diǎn)直線獨(dú)立坐標(biāo)）
K-Z[3]→Z[23]:0→Z[24]:E→T:GOTO8↙
LB15↙（第一緩和曲線獨(dú)立坐標(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↙（圓曲線獨(dú)立坐標(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↙（第二緩和曲線獨(dú)立坐標(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↙（輸入任意測(cè)點(diǎn)的XY坐標(biāo)）:“K=”?K（試算里程，任意輸入標(biāo)段內(nèi)里程點(diǎn)即可，也可以輸入大致的估算里程加快速度）↙
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(后視點(diǎn)X):"YHS="?L(后視點(diǎn)Y):"XZJ="?M(置鏡點(diǎn)X):"YZJ="?N(置鏡點(diǎn)Y):Pol(G-M,L-N):"DH=":I(后視距)◢J<0=>J+360→J:"FH=":J→DMS◢(后視方位角)“QXJ=”:T◢（計(jì)算里程點(diǎn)切線方位角，可以不顯示）
“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)簽：
推薦資訊
- 【2025-04-14】混凝土溫度應(yīng)力試驗(yàn)機(jī)，目前定量評(píng)價(jià)早期開裂最準(zhǔn)確的設(shè)備
- 【2025-04-08】垂準(zhǔn)儀和水準(zhǔn)儀的區(qū)別
- 【2025-04-02】激光垂準(zhǔn)儀的使用方法
- 【2025-03-27】9種常用測(cè)量測(cè)繪儀器，你用了哪幾種？
