1. 主程式(tyqxjs)
lbl 4："1sz => xy， 2xy => sz"？n：？s：prog「sub0」↙
1÷p→c: (p-r)÷(2hpr) →d:180÷∏→e:n=1 => goto1： goto2：↙
lbl 1:」dz」? z： abs(s-o) →w：prog "sub1"： "xs"：x◢
"ys"：y◢prog 「sqx」（豎曲線的程式名字）
f-90→f： 「fs=」：f▲dms◢prog 「cqw」（隧道超欠挖的程式名字）
goto4↙
lbl 2：」x」？x： 「y」？y：x→i：y→j： prog「sub2」：o+w→s：「s」：s◢「z」：z◢
prog「cqw」
goto4↙
2. 正運算元程式(sub1)
0.1739274226→a： 0.
3260725774→b： 0.0694318442→k：
0.3300094782→l： 1-l→f：
1-k→m
g+qekw(c+kwd)→z[1]
g+qelw(c+lwd)→z[2]
g+qefw(c+fwd)→z[3]
g+qemw(c+mwd)→z[4]
a×cos(z[1])→x
x+bcos(z[2])→x
x+bcos(z[3])→x
x+acos(z[4])→x
u+wx→x
asin(z[1])→y
y+bsin(z[2])→y
y+bsin(z[3])→y
y+asin(z[4])→y
v+wy→y
g+qew(c+wd)+90→f
x+zcos(f)→x
y+zsin(f)→y
2. 反運算元程式(sub2)
g-90→t： (y-v)cos(t)-(x-u)sin(t) →w：abs(w) →w:0→z
lbl 0：prog "sub1"
t+qew(c+wd) →l： (j-y)cos（l）-(i-x)sin（l）→z：if abs（z）<0.000001：then0→z:prog "sub1"
(j-y)÷sin（f）→z
else w+z→w
goto0:ifend
sub0 資料庫子程式
goto1↙
lbl 1：if s<***（線元終點里程）:then***→g（線元起點方位角）:
***→o（線元起點里程）:***→u（線元起點x）:***→v（線元起點y）:
***→p（線元起點曲率半徑）:***→r（線元終點曲率半徑）: ***→h（線元起點至終點長度）：
0或1、-1→q：return:ifend↙
lbl 1：if s<***（線元終點里程）:then***→g（線元起點方位角）:
***→o（線元起點里程）:***→u（線元起點x）:***→v（線元起點y）:
***→p（線元起點曲率半徑）:***→r（線元終點曲率半徑）: ***→h（線元起點至終點長度）：
0或1、-1→q：return:ifend
……………..
為了便於解讀，每增加乙個線元增加一行語句，每增加一條曲線增加乙個lbl，每增加乙個工程增加乙個檔案。只要給資料庫裡的變數輸完即可使用。
cqw(程式名)隧道超欠挖
「sch」?a:」r」?g:」hsj」?h:」dz」?z
√((a-h-設計標高到圓心的高度)2+（z±隧道中線到測設線的距離）2) →d
g-d→z[4]
「cw-,qw+」:z[4] ◢
程式執行到「sch」?a:」r」?g在「sch」下輸入實際測的高度， 「r」下輸入上導的開挖半徑
後面的不用，超挖為-，欠挖+
以上不加cqw(程式名)也可以使用，把主程式的prog 「cqw」（隧道超欠挖）刪掉，要算豎曲線給最後的豎曲線程式輸入計算器即可，巢狀已經在以上程式中了，需要注意的是以上子母不要改變，改變後可能和後面的豎曲線程式出現子母衝突，發生計算錯誤。不用豎曲線把prog 「sqx」（豎曲線）刪掉
三、使用說明
1、規定
(1) 以道路中線的前進方向（即里程增大的方向）區分左右；當線元往左偏時，
q=-1；當線元往右偏時，q=1；當線元為直線時，q=0。
(2) 當所求點位於中線時，z=0；當位於中線左鍘時，z取負值；當位於中線中線右
側時，z取正值。
(3) 當線元為直線時，其起點、止點的曲率半徑為無窮大，以10的45次代替。
(4) 當線元為圓曲線時，無論其起點、止點與什麼線元相接，其曲率半徑均等於圓
弧的半徑。
(5) 當線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大，以10的45
次代替；與圓曲線相接時，曲率半徑等於圓曲線的半徑。止點與直線相接時，曲率半
徑為無窮大，以10的45次代替；與圓曲線相接時，曲率半徑等於圓曲線的半徑。
(6) 當線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等於設計規定的
值；與圓曲線相接時，曲率半徑等於圓曲線的半徑。止點與直線相接時，曲率半徑等
於設計規定的值；與圓曲線相接時，曲率半徑等於圓曲線的半徑。
2、輸入與顯示說明
輸入部分：
1. sz => xy
2. xy = > sz
n ? 選擇計算方式，輸入1表示進行由里程、邊距計算座標 ；輸入2表示由座標反算里程和邊距。
s ？正算時所求點的里程，反算時為所求點的近似里程，反算時輸入的近似里程不能誇線元，若誇線元的話，需進行第二次反算，並以第一次的結果做為近似里程，否則反算的里程及邊距不對， z ？正算時所求點距中線的邊距(左側取負，值右側取正值，在中線上取零)
x ？反算時所求點的x座標
y ？反算時所求點的y座標
顯示部分：
xs=××× 正算時，計算得出的所求點的x座標
ys=××× 正算時，計算得出的所求點的y座標
fs=××× 正算時，所求點對應的中線點的切線方位角
s=××× 反算時，計算得出的所求點的里程
z=××× 反算時，計算得出的所求點的邊距
→÷≤≥＝
豎曲線sqx（程式名）
if s＜邊坡終點and s≥邊坡起點：then大里程坡度→a：小里程坡度→b：邊坡點里程→o：邊坡點高度→g：半徑→r：prog「z-sqx」:ifend
有多個豎曲線，依照上面的依次變更，每多乙個，就增加乙個。每次只需要修改以上的資料或增加乙個判斷，子程式不用變動。
z-sqx（子程式名）
o-s→l:a-b→w:abs(r*w÷2) →t:o-t→m:o+t→p
if s≤m:theng-l*b→h:goto5:
else if s≤o:then goto3:else if s≤p:
then goto4:ifend: ifend:
ifend
lbi3
if w＞0：then g+(m-s)2÷2÷r-l*b→h:goto5:
else if w＜0: then g-(m-s)2÷2÷r-l*b→h:goto5:
ifend: ifend
lbi4
if w＞0：then g+( s-p)2÷2÷r-l*a→h:goto5:
else if w＜0: then g-( s-p)2÷2÷r-l*a→h:goto5:
ifend: ifend
lbi5
h→h:」h」:h◢（為所求的高度）
翻譯句子UNIT5
1.你想看什麼節目？2.你認為脫口秀節目怎麼樣？3.我不介意它們。4.讓我們一起看一場訪談節目吧。5.林輝認為他能從處境喜劇中學到很多。6.新聞比處境喜劇更有教育意義。7.我打算看一場電影。8.你打算今晚看連續劇嗎？9.我希望了解世界上正在發生什麼事。10.我們就電視節目進行了一次討論。11.我受不...
5外文翻譯規範要求及模版格式
二 外文翻譯 每位學生必須閱讀2篇以上 符左右 的外文材料，應完成2000漢字以上的英譯漢翻譯。加 外文翻譯 封面，全文1.5倍行距。原文可用a4紙影印,每篇原文後附譯文 即中文不要直接翻譯在原文的同一頁 模板外文翻譯 畢業設計題目 原文1譯文1 原文2譯文2 原文標題 原文1 headaches ...
九年英語Unit5翻譯句子
unit5 一 句子 1 它一定是carla 的。12 2.他可能正在跑步鍛鍊 3.如果你知道它可能在 請打 給我 4.anxious 是什麼意思？1235.當心不叫的狗 6.也許它的意思是你怕作業太多 7.他可能正在跑去趕公車 8.你認為這是誰的書包 9.我兩天沒見到我的貓，我很擔心她 10 他是...