□Ｋ2010.06.13 回答

座標、樁號換算

檔名

LbI 4：”1。SZ=>NE”：”2。NE=>SZ”：？Q：Prog “檔名―3”

LbI ：Q=1=>Goto 1：Q=2=>Goto 2

LbI 1：？S：？Z：Prog“檔名―1”：”N”：N◢

“E=”：E◢

“F=”：FΔDMS◢

Goto 4

LbI 2：”N=”：？B：”E=”：？C：B→N：C→E：Prog”檔名―2”：”S=”：S◢

“Z=”：Z◢

Goto 4

檔名―1

Prog “檔名―3”：0。5（1÷R-1÷P） ÷L→D：S-O→X

U+∫（cos（A+（X÷P+DX2）×180÷∏），O，X）→N

V+∫（sin（A+（X÷P+ DX2）×180÷∏），O，X）→E

A+（X÷P+ DX2）×180÷∏→F

N+Zcos（F+90）→N：E+Zsin（F+90） →E

檔名―2

LbI 1：0→Z：1→Q：Prog “檔名―3”：Prog “檔名―1”

Pol（N-B+10＾（-46），E-C+10＾（-46）：Isin（F-90-J） →W：S+W→S

Abs（W）>0。001=>Goto 1

LbI 2：0→Z：Prog “檔名―1”：（C-E）÷sin（F+90） →Z

檔名―3

If S≧QD樁 號And S

If S≧ZY點樁號And S

If S≧YZ點樁號And S

If S≧ZD樁 號And S

LbI 0：QD樁 號→O：QD橫座標→U：QD縱座標→V：QD段直線方位角→A：1000000000→P：ZY至QD距離→L：1000000000→R：Return

LbI 1：ZY點樁號→O：ZY橫座標→U：ZY縱座標→V：上段直線方位角→A：半徑→P：引數中L值→L：半徑→R：Return

LbI 2：YZ點樁號→O：YZ橫座標→U：YZ縱座標→V：下段直線方位角→A：1000000000→P：YZ至ZD距離→L：1000000000→R：Return

LbI 3：ZD樁號→O：ZD橫座標→U：ZD縱座標→V：對應直線方位角→A：1000000000→P：ZD至延長位置距離→L：1000000000→R：Return

注：圓曲線交點在路線左邊R為正，在路線右邊R為負。直線半徑為無窮大

方位角―距離

Do

“X1”？A ：“Y1”？B

“X2”？C

“Y2”？D

Pol（C-A，D-B）：Cls

J＜0=>J+360→J

“D”：I◢

“A”：JΔDMS◢

J→J

？ K ： Lbl 0 ： ？ N ： ？ E

A+（N-K）cos（J） – Esin（J）→X：X→X◢

B+（N-K）sin（J） + Ecos（J）→Y：Y→Y◢

Goto 0

注：K為所輸座標（X1，Y1）對應的樁號

N為所求座標的樁號 E為所求座標的偏距

圓曲線

Lbl 0：？X：？Y：？A：？R：？Q：？Z：（Z-Q）÷R×180÷∏→J：2Rsin（0。5j） →T：A+J→W◢

X+Tcos（A+0。5J）→M◢

Y+Tsin（A+0。5J）→N◢

？S：M+cos（W+90）→B◢

N+Ssin（W+90）→C◢

Goto 0

縱斷面設計高程

Lbl 0：？K：If K≧起點樁號And K≦ZY點樁號：Then Goto 1：IfEnd

If K≧ZY點樁號And K≦YZ點樁號：Then Goto 2：IfEnd

If K≧YZ樁號And K≦ZD點樁號：Then Goto 3：IfEnd

Lbl 1：QD高程→V：QD樁號→Q：QD~ZY坡度→W：半徑→R：Goto X

Lbl 2：ZY點高程→V：ZY點樁號→Q：QD~ZY坡度→W：半徑→R：Goto X

Lbl 3：YZ點高程→V：YZ點樁號→Q：YZ~ZD坡度→W：半徑→R：Goto X

Lbl X：V+（K-Q）W+（K-Q）2÷（2×R）→Y◢

Goto 0

注：圓曲線交點在路線上方R為負，在路線下方R為正。直線半徑為無窮大（1×10^45）