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"fslcbz":gotoa:ifend↙(z=1進入反算里程邊樁）lb1b↙
「k=」?k：（計算里程）prog"sjk1":prog」zbfy」:gotoa↙子程式資料庫sjk1
if k《本段曲線終點里程andk≥上段曲線終點里程：then本段終點里程→z[1]:上段曲線終點里程→z[2]：
1→o（注：左偏曲線輸入-1→o,右偏曲線輸入1→o）:半徑→r:
曲線偏角→a:第一緩和曲線→z[6]:第二緩和曲線→z[7]:
交點x→b:交點y→c:小里程向交點方位角→e:
交點向大里程方位角→f:prog」xlzbjscx」:return:
ifend↙
if…………prog」xlzbjscx」:return:ifend（曲線段分段輸入）↙補充直線段輸入如下(單獨直線段）
ifk《本段直線終點里程andk≥本段直線起點里程:then本段直線終點里程→z[3]:終點x→z[16]:
終點y→z[17]:方位角→t:z[16]+(k-z[3])*cost→z[18]:
z[17]+(k-z[3])*sint→z[19]:return:ifend子程式座標正算，名稱：
xlzbjscxlb1 2↙（曲線要素計算）
z[6]/2-z[6]^3/(240*r^2)+z[6]^5/(34560*r^4)→z[8]↙（m1）z[7]/2-z[7]^3/(240*r^2)+z[7]^5/(34560*r^4)→z[9]↙（m2）z[6]^2/(24*r)-z[6]^4/(2688*r^3)→z[10]↙（p1）z[7]^2/(24*r)-z[7]^4/(2688*r^3)→z[11]↙（p2）π*a*r/180+0.5*(z[6]+z[7])→z[25]↙（曲線總長）90*z[6]/(r*π)→z[14]↙（第一緩和曲線總偏角）90*z[7]/(r*π)→z[15]↙（第二緩和曲線總偏角,可以省略）
z[8]＋（r+z[10])tan(a/2)-(z[10]-z[11])/sina→z[12]↙(切線t1)z[9]＋（r+z[11])tan(a/2)+(z[10]-z[11])/sina→z[13]↙(切線t2)b+z[12]*cos(e+180)→z[16]↙（zh點x）c+z[12]*sin(e+180)→z[17]↙（zh點y）z[1]-z[25]→z[3]↙(zh點里程)z[3]+z[6]→z[4]↙(hy點里程)z[1]-z[7]→z[5]↙(yh點里程)goto3↙
lb1 3↙(判斷里程點與曲線關係)
ifk≤z[3]and k>z[2]:then goto 4:ifend↙ifk≤z[4]and k>z[3]:
then goto 5:ifend↙ifk≤z[5]and k>z[4]:then goto 6:
ifend↙ifk≤z[1]and k>z[5]:then goto 7:ifend↙lb1 4↙（里程小於直緩點直線獨立座標）k-z[3]→z[23]:
0→z[24]:e→t:goto8↙lb1 5↙（第一緩和曲線獨立座標）k-z[3]→h↙
h-h^5/(40*r^2*z[6]^2)+h^9/(3456*r^4*z[6]^4)→z[23]↙h^3/(6*r*z[6])-h^7/(336*r^3*z[6]^3)→z[24]↙90*h^2/(r*π*z[6])→t↙
ifo>0：thent+e→t:elsee-t→t:t<0=>360+t→t:ifend↙goto8↙
lb16↙（圓曲線獨立座標）k-z[4]→h↙
h*180/(r*π)+z[14]→t↙r*sint+z[8]→z[23]↙r*(1-cost)+z[10]→z[24]↙
ifo>0：thent+e→t:elsee-t→t:t<0=>360+t→t:ifend↙goto8↙
lb17↙（第二緩和曲線獨立座標）
z[1]-k→h↙
h-h^5/(40*r^2*z[7]^2)+h^9/(3456*r^4*z[7]^4)→u↙h^3/(6*r*z[7])-h^7/(336*r^3*z[7]^3)→v↙90*h^2/(r*π*z[7])→t↙
ifo>0：then f-t→t:t<0=>360+t→t:elsef+t→t:ifend↙goto 8↙llb18
ifo<0 :then -z[24]→z[24]:ifend↙z[16]+z[23]*cose-z[24]*sine→z[18]↙z[17]+z[23]*sine+z[24]*cose→z[19]↙return↙
子程式反算里程邊樁，名稱：fslcbzlb1 1↙
"xk="?x:"yk="?y↙（輸入任意測點的xy座標）:「k=」?k（試算里程，任意輸入標段內里程點即可，也可以輸入大致的估算里程加快速度）↙lb1 2↙
prog"sjk1":t-90→w:w<0=>360+w→w:abs((y-z[19])*cosw-(x-z[18])*sinw)→s↙
if s<0.0001:then goto 4:else goto3:ifend↙lb1 3↙
k+s→k:prog"sjk1":t-90→w:w<0=>360+w→w:abs((y-z[19])*cosw-(x-z[18])*sinw)→q↙
ifq<0.0001:thenq→s:
goto4:elseif qs :then k-q→k:
goto2:ifend:ifend:
ifend↙lb1 4↙
pol(x-z[18],y-z[19]:j<0=>j+360→j:(j-t)<0=>-i→i↙"dp(-z+y)=":
i◢(偏距，－左＋右）"k=":k+s→k◢（里程）return↙
子程式座標放樣：zbfylb1 0↙
「xhs="?g(後視點x):"yhs="?
l(後視點y):"xzj="?m(置鏡點x):
"yzj="?n(置鏡點y):pol(g-m,l-n):
"dh=":i(後視距)◢j<0=>j+360→j:"fh=":
j→dms◢(後視方位角)「qxj=」:t◢（計算里程點切線方位角，可以不顯示）「xi=」:z[18]◢（中線x）「yi=」:
z[19]◢（中線y）
pol(z[18]-m,z[19]-n):"di=":i（中樁放樣距）◢j<0=>j+360→j:"fi=":j→dms◢（中樁放樣方位角）
「pj=」?p◢(輸入邊樁與線路夾角，左-右+)「pd=」?d◢（輸入邊樁距）z[18]+d*cos(t+p)→z[20]↙z[19]+d*sin(t+p)→z[21]↙「xp=」:
z[20]◢（邊樁x）「yp=」:z[21]◢（邊樁y）
pol(z[20]-m,z[21]-n):"dp=":i◢（邊樁放樣距）j<0=>j+360→j:"fp=":j→dms◢（邊樁放樣方位角）return↙
09年4月15日晚於河南鄭漯高速
用計算器計算
班級姓名第組第號 一 學習目標 1 了解計算器各鍵的用途與用法，2 會用計算器進行有理數加 減 乘 除 乘方運算以及混合運算。3 在使用計算器中感受到操作簡便，計算準確，速度快捷，從而產生對數學學習的濃厚興趣。二 學法指導 通過動手操作 合作與交流，並借助計算器的說明書，自主 計算器的使用方法，會用...
用計算器計算
學習目標 1 我會用計算器進行加減乘除等基本的四則運算。重點 2 我能運用計算器解決生活中的實際問題。難點 課前熱身 1 開始使用電子計算器時，先按一下鍵，這個鍵的功能是停止使用時，再按一下鍵，這個鍵的功能是 新知 一 認識計算器上的ce鍵 2 根據下面的步驟，用計算器算一算。386 179 我是按...
計算器哲學
我們需要收藏值得收藏的一些記憶，我們需要欣賞值得欣賞的一些風景，我們需要記住應該記住的一些人事，我們需要明白應該明白的一些道理。比如，計算器哲學 擺渡自己胡亂取得名兒 就值得我們銘記。有許多人常認為做好加法和乘法，而且能夠把加法和乘法做到極致，就是大聰明。他們怎麼也無法理解 有時候，把減法和除法做好...