第一篇座標正反算通用程式(終極篇)
1. 座標正算主程式(命名為zbzs)
第1行:lbl 0:」k=」?k:」bian=」? z:」α=」?b
第2行:prog 「a」
第3行:」x=」:n+zcos(f+b)◢
第4行:」y=」:e+zsin(f+b)◢
第5行:」f=」:f◢
第6行:goto 0
k——計算點的里程
bian——計算點到中樁的距離(左負右正)
α——取前右夾角為正
更改紅色字型部分可呼叫其他線路資料庫,本程式呼叫a匝道資料
顯示x座標
顯示y座標
顯示中線切線方位角,可省掉
2. 座標反算樁號和偏距主程式(命名為zbfs)
第1行:」x1=」? c:」y1=」?d: 」k1=」?k
第2行:lbl 0:prog 「a」
第3行:pol(c-n,d-e)
第4行:list ans[1]→i
第5行:list ans[2]→j
第6行:icos(f-j)→s:k+s→k
第7行:abs(s)>0.0001=>goto 0
第8行:」k1=」:k◢
第9行:」bian=」:isin(j-f)→z◢
x1——取樣點的x座標
y1——取樣點的y座標
k1——輸入時為計算起始點(**路內即可),輸出時為反算點的樁號
z——偏距(左負右正)
更改紅色字型部分可呼叫其他線路資料庫,本程式呼叫a匝道資料
取出距離,在9860中,pol和rec函式結果儲存在list ans列表中
取出方位角
反算樁號
反算偏距,為方便其他程式的呼叫,賦值到變數z
注:第4行和第5行為5800版本計算器以上特有的語句,在5800中不能增加此語句,其餘程式語句均可與5800共用。
3. 計算座標子程式(命名為xyf)
為了簡潔,本程式由資料庫直接呼叫,上述中的正反算主程式不直接呼叫此程式
第1行:k-a→s:(q-p)÷l→i
第2行:n+∫(cos(f+x(2p+xi)×90÷π),0,s)→n
第3行:e+∫(sin(f+x(2p+xi)×90÷π),0,s)→e
第4行:f+s(2p+si)×90÷π→f
反向計算時需改為abs(k-a)→s
計算中樁的x座標
計算中樁的y座標
計算中線切線方位角
4. 資料庫(命名為a)
第1行:k≤175.191=>stop
第2行:175.191→a:
428513.730→n:557954.
037→e:92°26′40″→f:0→p:
1/240→q:70.417→l:
k≤a+l =>goto 1(第一緩和曲線,圓半徑為240)
第3行:245.607→a:
428507.298→n:558024.
092→e: 100°50′59.4″→f:
1/240→p:1/240→q:
72.915→l: k≤a+l =>goto 1(第圓曲線,半徑為240)
第4行:318.522→a:
428482.988→n:558092.
538→e: 118°15′25.2″→f:
1/240→p: 0→q: 55.
104→l: k≤a+l =>goto 1(第二緩和曲線,圓半徑為240)
第5行:373.627→a:
428453.283→n:558138.
912→e:124°50′4.5″→f:
0→p:-1/180→q:67.
222→l:
k≤a+l=>goto 1:stop(第一緩和曲線,圓半徑為180)
第6行:lbl 1:prog 「xyf」
a——曲線段起點的里程
n——曲線段起點的x座標
e——曲線段起點的y座標
f——曲線段起點的座標方位角
p——曲線段起點的曲率(左負右正)
q——曲線段終點的曲率(左負右正)
l——曲線段長度(盡量使用長度,為計算斷鏈方便)
說明:(1)在9860中,程式中所有公式和部分函式結果均儲存在list ans列表陣列中,要想多次呼叫最好隨公式取出結果,並賦給變數。
(2)正算主程式可以計算一般邊樁的座標,如要計算類似涵洞端牆的座標需增加第二偏距和轉角兩個變數。
(3)程式規定,左偏曲線曲率(半徑倒數)輸入負值,右偏曲線曲率輸入正值,直線上點曲率輸入0,例如直線段,線元起點和終點均輸入0,第一緩和曲線分別輸入0和圓半徑的倒數,圓曲線均輸入半徑倒數,第二緩和曲線分別輸入圓半徑倒數和0,卵形曲線分別輸入對應圓半徑的倒數
(4)若是從大里程向小里程的反方向計算,則曲率取正方向時的負值,方位角減去(或加上)180度。
(5)有多個匝道的專案,可隨時更改正反算主程式中的紅色字型部分來呼叫其它線路的資料
(6)反算樁號偏差為1mm
(7)資料庫還可以採用簡約模式,即省掉前面已經賦值的變數,使資料庫**達到最短(曲線元法中)
(8)可以計算任意線型的任意點座標
第1行:175.191→a:
428513.730→n:557954.
037→e:92°26′40″→f:0→p:
1/240→q:70.417→l:
k≤a+l =>goto 1(第一緩和曲線,圓半徑為240)
第2行:245.607→a:
428507.298→n:558024.
092→e: 100°50′59.4″→f:
q→p: 72.915→l:
k≤a+l =>goto 1(第圓曲線,半徑為240)
第3行:318.522→a:
428482.988→n:558092.
538→e: 118°15′25.2″→f:
0→q: 55.104→l:
k≤a+l =>goto 1(第二緩和曲線,圓半徑為240)
第4行:373.627→a:
428453.283→n:558138.
912→e:124°50′4.5″→f:
0→p:-1/180→q:67.
222→l
第5行:lbl 1:prog 「xyf」
5. 座標計算通用程式(命名為zb)
本程式與上述中的幾個程式無關,是在計算座標時採用輸入曲線元引數模式下的程式,為臨時使用方便。
第1行:」k0=「? a:
」x0=「? n:」y0=「?
e:」f0=「?f:
」1÷r1=「?p:」1÷r2=「?
q」:「l0=「?l
第2行:lbl 0:」k=」?k:」bian=」? z:」α=」?b
第3行:abs(k-a)→s:(q-p)÷l→i
第4行:n+∫(cos(f+x(2p+xi)×90÷π),0,s)→x
第5行:e+∫(sin(f+x(2p+xi)×90÷π),0,s)→y
第6行:」f=」:f+s(2p+si)×90÷π◢(可省掉)
第7行:」x=」:x+zcos(z+b)◢
第8行:」y=」:y+zsin(z+b)◢
第9行:goto 0流程圖
卡西歐5800p計算器所有程式設計命令解釋
1.norm 1 指數顯示 norm 2 小數顯示 2.x 只顯示 字元 x 顯示字元 x 顯示 x?字元 x 顯示字元 有 則不顯示該變數當前值 3.判斷表示式 語句1 語句2。如果判斷表示式為真 或非零 則不跳過語句1.如果判斷表示式為假 或是零 則會跳過語句1.4.if.then else i...
用計算器計算
班級姓名第組第號 一 學習目標 1 了解計算器各鍵的用途與用法,2 會用計算器進行有理數加 減 乘 除 乘方運算以及混合運算。3 在使用計算器中感受到操作簡便,計算準確,速度快捷,從而產生對數學學習的濃厚興趣。二 學法指導 通過動手操作 合作與交流,並借助計算器的說明書,自主 計算器的使用方法,會用...
用計算器計算
學習目標 1 我會用計算器進行加減乘除等基本的四則運算。重點 2 我能運用計算器解決生活中的實際問題。難點 課前熱身 1 開始使用電子計算器時,先按一下鍵,這個鍵的功能是停止使用時,再按一下鍵,這個鍵的功能是 新知 一 認識計算器上的ce鍵 2 根據下面的步驟,用計算器算一算。386 179 我是按...