主程式「>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 「sub1」:」xs」:x◢
「ys」:y◢
「fs」:f-90->f◢
goto 1
lbl 2:」x」?x:」y」?y:x->i:y->j:prog 「sub2」:o+w->s
「s」:s◢
「z」:z◢
goto 2
子程式「sub1」
0.1739274226->a:0.
3260725774->b:0.0694318442->k:
0.3300094782->l:1-l->f:
1-k->m:u+w(acos(g+qekw(c+kwd))+bcos(g+qelw(c+lwd))+bcos(g+qefw(c+fwd))+acos(g+qemw(c+mwd)))->x:v+w(asin(g+qekw(c+kwd))+bsin(g+qelw(c+lwd))+bsin(g+qefw(c+fwd))+asin(g+qemw(c+mwd)))->y:
g+qew(c+wd)+90->f:x+zcos(f)->x:y+zsin(f)->y
子程式「sub2」
g-90->t:abs((y-v)cos(t)-(x-u)sin(t))->w:0->z:
lbl0:prog 「sub1」:t+qew(c+wd)->l:
(j-y)cos(l)-(i-x)sin(l)->z:if abs(z)<1*10^(-6):then goto 1:
else w+z->w:goto 0:ifend
lbl 1: 0->z:prog」sub1」：(j-y)/sin(f)->z
子程式1中增加兩個紅顏色），子程式2中將一對紅色括號刪掉。
說明：輸入與顯示
輸入部分：
1. sz => xy
2. xy = > sz
n ? 選擇計算方式，輸入1表示進行由里程、邊距計算座標 ；輸入2 表示由座標反算里程和邊距。
xa ？線元起點的x座標
ya ？線元起點的y座標
dka ？線元起點里程
ca ？線元起點切線方位角
ls ？線元長度
ra ？線元起點半徑 （直線上輸10的45次方）
rb ？線元止點半徑（直線上輸10的45次方）
q ？ 線元左右偏標誌(左偏q=-1，右偏q=1，直線段q=0)
dki ？ 正算時所求點的里程
d ？正算時所求點距中線的邊距(左側取負，值右側取正值，
在中線上取零)
x ？反算時所求點的x座標
y ？反算時所求點的y座標
顯示部分：
xs=××× 正算時，計算得出的所求點的x座標
ys=××× 正算時，計算得出的所求點的y座標
s=××× 反算時，計算得出的所求點的里程
z=××× 反算時，計算得出的所求點的邊距
規定 (1) 以道路中線的前進方向（即里程增大的方向）區分左右；當線元往左偏時， q=-1；當線元往右偏時，q=1；當線元為直線時，q=0。
(2) 當所求點位於中線時，z=0；當位於中線左鍘時，z取負值；當位於中線中線右側時，z取正值。
(3) 當線元為直線時，其起點、止點的半徑為無窮大，以10的45次代替。
(4) 當線元為圓曲線時，無論其起點、止點與什麼線元相接，其半徑均等於圓弧的半徑。
(5) 當線元為完整緩和曲線時，起點與直線相接時，半徑為無窮大，以10的45次代替；與圓曲線相接時，半徑等於圓曲線的半徑。止點與直線相接時，半徑為無窮大，以10的45次代替；與圓曲線相接時，半徑等於圓曲線的半徑。
(6) 當線元為非完整緩和曲線時，起點與直線相接時，半徑等於設計規定的值；與圓曲線相接時半徑等於圓曲線的半徑。止點與直線相接時，半徑等於設計規定的值；與圓曲線相接時，半徑等於圓曲線的半徑。
5800計算器全線座標計算放樣正反算ZBZFS
5800計算器全線座標計算放樣正反算 5800計算器全線座標計算放樣正反算程式 定稿 主程式座標正反算程式名稱 zbzfslb1 a cls fix4 30 dimz 0 zs,1 fs z if z 0 then gotob ifend z 0進入里程點座標正算 if z 1 then prog ...
5800座標 高程計算程式
一 程式功能 本程式由乙個主程式 zhuchenxu 和幾個子程式 正運算元程式 sub1 反運算元程式 sub2 資料庫 sub3 曲線要數 sub4,4 1 邊坡放樣程式 bianpo 可以根據直線 圓曲線 緩和曲線 完整或非完整型 的線元要素 起點座標 起點里程 起點切線方位角 線元長度 起點...
機械二座標運動平台課程設計 二座標數控工作台設計
機械學院 機械設計製造及其自動化專業 機電模組課程設計 2011 03 目錄.機電專業課程設計目的1 二.機電專業課程設計的任務和要求1 三.x軸方案及引數計算1 方案擬定1 x軸步進電機引數確定及選擇1 軸聯軸器選擇3 四.x軸機械結構總體設計計算3 x軸滾珠絲槓設計計算3 軸滾動導軌設計計算4 ...