一、程式功能
本程式由乙個主程式(zhuchenxu)和幾個子程式——正運算元程式(sub1)、反運算元程式(sub2)、資料庫(sub3)、曲線要數（sub4,4-1）、邊坡放樣程式(bianpo)，可以根據直線、圓曲線、緩和曲線（完整或非完整型）的線元要素（起點座標、起點里程、起點切線方位角、線元長度、起點曲率半徑、止點曲率半徑）及里程邊距或座標及中樁高程，對該曲線段範圍內任意里程中邊樁座標進行正反算。
二、源程式
增加變數18→dimz
1.主程式(zhuchenxu)
" → xy， → sz， bianpo "？n：
lbl 1：」zhuanghao=」?s：
prog "sub3"： n≥2=>goto 2： abs(s-o)→w：
」bianzhu=」?→z:prog "sub1"：
prog"sub4"：「h=」h◢ "xs=」:x→x◢"ys=」:
y→y◢"fs=」:(f-90) →f:fdms◢ goto1
lbl 2：」cx=」?x:
x→i：」cy=」?y:
y→j：」dmg=」?→z[7]：
prog "sub2"： "s=":(o+w) →s◢"z="z→z◢ z→z[17] :
if n=3:then prog」sdyx」: ifend ：
if n=4:then prog」bianpo」:ifend:
goto 2
正運算元程式名)
0.1739274226→a:0.3260725774→b
0.0694318442→k:0.330009482→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
反運算元程式名)
g-90→t
(y-v)cos(t)-(x-u)sin(t)→w
abs(w)→w:0→z
lbi 4:prog"sub1"
t+qew(c+wd)→l
(j-y)cos(l)-(i-x)sin(l)→z
if abs(z)＜1e-6:then 0→z :prog"sub1"
(j-y)÷sin(f)→z
else w+z→w:goto 4:ifend
注:1e-6即是10的負6次方,亦即是等於0.000001
輸入時按shift---log---(-)---6
4. 資料庫(sub3)
if s<226100:then cls:stop: ifend
if s<226255.833:then 226100→o：
99037.9736→u： 4282.
3590→v： 201.3266304→g：
1045→p： 1045→r： 253.
543→h： 0→q: goto 1:
ifend
if s>and s<……
……if s>236005.651:then cls:stop: ifend
lbl 1: 1÷p→c：(p-r)÷(2hpr) →d：180÷π→e：
5、曲線主程式:
fix 3:prog」
r abs(d-c)/2→t:
if d-c>θ :then 1→w:else -1→w:ifend
if sθ:then z+il→h:else z+il+w(t-l)2/2/r→h:"hs=":h◢
曲線資料庫:
if s<332.599:then 0.
02793→c:-0.03309→d:
1800→r:235→a:32.
7→z: goto 1:ifend
if s>322.599 and k<734.085:
then -0.03309→c:-0.
00485→d:6000→r:460→a:
25.254→z: goto 1:
ifend
----
lbl 1
c—前坡:d—後坡:r—呵呵,都知道是什麼!a—變坡點:z—變坡點設計高
o—從設計高程點處垂直向下的距離:n—距設計高程處的平距(若你的設計高程線是路中線的話，請把0.75改為0):j—所求樁號處的橫坡.
6. 邊坡放樣程式(bianpo) （sub6）
「qpdjl=」? → z[3]: 「qpdgd=」 :
prog 「（sub4）」：h→ z[4]◢「pg=」 ? → z[5]：
ptk→z[6]： 「p1=」 ? → z[8]：
「p2=」 ? → z[9]： 「p3=」 ?
→ z[10] (沒有的話就刪)： z[7]-z[4] → z[11]：if z[11]〈0 thenabsz[11] →z[11]:
「t=」：z[11] ◢else「w=」：z[11] ◢ifen
z[11]÷z[5] →z[12]：if z[12]〈1 then z[8]×z[11] →z[13]：else z[8]×z[5]+z[9]×z[5]×（z[12]-1）→z[13]：
ifend: absz[17]-（z[13]+z[6] ×int (z[12])+z[3]）→z[14]:「bp+c-j=」:
z[14] ◢
說明：z[3]= qpdjl ………………起坡點離中樁距離
z[4]=「qpdgd」 ……………起坡點設計標高
z[5]=「pg」 ………………坡高
z[6]=「ptk」 ……………… 平台寬度
z[7]=「dmg」 ………………實測地面高度
z[8]=「p1」 ………………一級邊坡坡度
z[9]=「p2」 ………………二級邊坡坡度
z[10]=「p3」 ……………… **邊坡坡度(沒有的話就刪)
z[14]=「bp+c-j=」 ………………邊坡超欠挖寬度（+表超，-表欠）
三、使用說明
1、規定
(1) 以道路中線的前進方向（即里程增大的方向）區分左右；當線元往左偏時， q=-1；當線元往右偏時，q=1；當線元為直線時，q=0。
(2) 當所求點位於中線時，z=0；當位於中線左鍘時，z取負值；當位於中線中線右側時，z取正值。
(3) 當線元為直線時，其起點、止點的曲率半徑為無窮大，以10的45次代替。
(4) 當線元為圓曲線時，無論其起點、止點與什麼線元相接，其曲率半徑均等於圓弧的半徑。
(5) 當線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時，曲率半徑等於圓曲線的半徑。止點與直線相接時，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時，曲率半徑等於圓曲線的半徑。
(6) 當線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等於設計規定的值；與圓曲線相接時，曲率半徑等於圓曲線的半徑。止點與直線相接時，曲率半徑等於設計規定的值；與圓曲線相接時，曲率半徑等於圓曲線的半徑。
2、輸入與顯示說明
sz → xy， → sz， bianpo
n ?選擇計算方式，輸入1表示進行由里程、邊距計算座標 ；輸入2表示由座標反算里程和邊距。輸入3表示隧道圓心放樣和計算實測半徑；輸入4表示進行路基邊坡放樣。
4、sub3資料庫說明：
s待求樁號，o=曲線起點樁號，u曲線起點x座標，v曲線起點y座標，g曲線起點切線方位角，
p曲線起點半徑， r曲線終點半徑， h=曲線長度，q轉向（直線0，左轉-1，右轉1）
5800座標正反算
主程式 xy kd n n xa u ya v dka o ca g ls h ra p rb r q q 1 p c p r 2 h p r d 180 e if n 1 then goto 1 else goto 2 ifend lbl 1 dki s d z abs s o w prog su...
機械二座標運動平台課程設計 二座標數控工作台設計
機械學院 機械設計製造及其自動化專業 機電模組課程設計 2011 03 目錄.機電專業課程設計目的1 二.機電專業課程設計的任務和要求1 三.x軸方案及引數計算1 方案擬定1 x軸步進電機引數確定及選擇1 軸聯軸器選擇3 四.x軸機械結構總體設計計算3 x軸滾珠絲槓設計計算3 軸滾動導軌設計計算4 ...
5 3座標系的圖形
有效教學流程46 5.3直角座標系中的圖形 製作人杜長春審核人王愛玲 學習目標經歷圖形座標變化與圖形的平移，軸對稱，伸長，壓縮之間關係的探索過程，發展學生的形象思維能力和數形結合意識。教學過程 一 引入新課 8分鐘 將座標是 0，0 5，4 3，0 5，1 5，1 3，0 4，2 0，0 的點依次用...