casio4800公路高程計算程式(計算任一點中邊樁高程，輸入樁號即
可）(示例）
[b]作者：陳he ming浙江共司令
有了它，上工地時，告別圖紙，資料（高程）[/b]zdgc(程式名)
１v 「change 0-only one:1-auto next one」（回車）
２v=1=> l=1000k+m-20: ≠>v﹥1=>prog 「zdgc」⊿⊿(如v取1,則將自動計算每隔20m)3lbl 0
4 v=1 =>l=l+20:goto 1⊿(要得到10m乙個樁的高程,把20改成10就可.或則在執行時取v=0即可，就是每次要輸入樁號)5 6 l=1000k+m7 lbl 18 prog 「g」9prog 「sqx」10prog 「g1」11prog 「pqx-h」12 goto 0
（１－１2為步號，在輸入４８００時，不要輸，步號間用回車．下同）主程式2sqx(程式名)1 t=abs(r*(i-j)/2)2 r=((i-j)/abs(i-j))*r3 n=a-t4 w=a+t5 u=abs (a-l)
6 l≤n=>z=h-ju:goto 1⊿
7 l≤a=>z=h-ju+(l-n)2(平方)/(2r):goto 1⊿8 l≤w=>z=h+iu+(w-l)2(平方)/(2r):goto 1⊿9l>w=>z=h+iu⊿10 lbl 1主程式3pqx-h(程式名)
1 l≤s=>e=0.02:g=e:goto 1⊿(其中ｅ＝．０２為預設橫披值)
2 l≤(s+b)=>e=0.02-(l-s)/b×(0.02+c):g= -e:abs (e) ≤0.02=>g=0.02:⊿goto 1:⊿
3 l≤(s+q-b)=>e= -c:g= -e:goto 1⊿
4 l≤(s+q)=>e=0.02-(s+q-l)/b×(0.02+c):g= -e:abs (e) ≤0.02=>g=0.02:⊿goto1:⊿
5 l＞(s+q)=>e=0.02:g=e⊿
6 lbl 1
7 （輸入邊樁距中樁距離）8 d=99=>prog 「zdgc」⊿
9 f=1=>o=z-(d-1)e:p=z-(d-1)g: ≠>f=-1=>o=z-(d-1)g:
p=z-(d-1)e⊿⊿((d-1)中，把１改成0．５則**分隔帶為１m.預設**分隔帶為2m)10 prog 「xs1」
子程式1（豎曲線引導程式）g(程式名)
0 l﹤31182.853=>「input l≥k31+182.853」:
prog「zdgc」：⊿1 l ≤31495=>prog「1」:goto 1:
⊿（31495為第一豎曲線終點樁號）2 l≤31960=>prog「2」:goto 1:⊿3 l≤32769.
975=>prog「3」:goto 1:⊿4 l≤33380.
9=>prog「4」:goto 1:⊿5 l≤33875=>prog「5」:
goto 1:⊿6 l≤34425=>prog「6」:goto 1:
⊿7 l≤35125=>prog「7」:goto 1:⊿8 l≤35580=>prog「8」:
goto 1:⊿9 l≤36010=>prog「9」:goto 1:
⊿10 l≤36835=>prog「10」:goto 1:⊿11 l≤37660=>prog「11」:
goto 1:⊿
12 l≤38547.5=>prog 「12」⊿（123458為公路終點樁號）
13 l＞38547.5=>「input l≤38547.5」:prog「zdgc」：⊿（123458為公路終點樁號）14 lbl 1
子程式2（平曲線引導程式）g1(程式名)
1 l ≤31508.947=>prog「21」:goto 1:
⊿（31508.947為第一平曲線超高終點樁號）2 l≤32396.483=>prog「22」:
goto 1:⊿3 l≤33897.097=>prog「24」:
goto 1:⊿4 l≤35186.287=>prog「25」:
goto 1:⊿5 l≤36030.863=>prog「26」:
goto 1:⊿6 l≤36958.143=>prog「27」:
goto 1:⊿7 l≤37713.274=>prog「28」:
goto 1:⊿
8l≤38681.034=>prog 「29」⊿（38681.034為公路終點樁號）9 lbl 1
子程式（豎曲線要素）1(程式名)
1 r=35000 (豎曲線半徑,輸入正值)2 a=31320（豎曲線中心樁號）3 h=977.55(變坡點高程)4 j= -0.04（變坡點前縱坡）
5 i= -0.03（變坡點後縱坡）2(程式名)
1 r=60000 (豎曲線半徑,輸入正值)2 a=31780（豎曲線中心樁號）3 h=963.75(變坡點高程)4 j= -0.03（變坡點前縱坡）5 i= -0.
036（變坡點後縱坡）3(程式名)
1 r= 13000 (豎曲線半徑,輸入正值)2 a=32600（豎曲線中心樁號）3 h=934.23(變坡點高程)4 j= -0.036（變坡點前縱坡）5 i= -0.
0098（變坡點後縱坡）
4(程式名)
1 r= 12000 (豎曲線半徑,輸入正值)2 a=33200（豎曲線中心樁號）3 h=928.32(變坡點高程)4 j= -0.0098（變坡點前縱坡）5 i= -0.
04（變坡點後縱坡）5(程式名)
1 r= 35000 (豎曲線半徑,輸入正值)2 a=33700（豎曲線中心樁號）3 h=908.32(變坡點高程)4 j= -0.04（變坡點前縱坡）5 i= -0.
03（變坡點後縱坡）6(程式名)
1 r= 35000 (豎曲線半徑,輸入正值)2 a=34250（豎曲線中心樁號）3 h=891.82(變坡點高程)4 j= -0.03（變坡點前縱坡）5 i= -0.
04（變坡點後縱坡）7(程式名)
1 r= 35000 (豎曲線半徑,輸入正值)2 a=34950（豎曲線中心樁號）3 h=863.82(變坡點高程)4 j= -0.04（變坡點前縱坡）5 i= -0.
03（變坡點後縱坡）8(程式名)
1 r= 20000 (豎曲線半徑,輸入正值)2 a=35400（豎曲線中心樁號）3 h=850.32(變坡點高程)4 j= -0.03（變坡點前縱坡）5 i= -0.
04（變坡點後縱坡）
9(程式名)
1 r= 10000 (豎曲線半徑,輸入正值)2 a=35860（豎曲線中心樁號）3 h=828.24(變坡點高程)4 j= -0.04（變坡點前縱坡）5 i= -0.
018（變坡點後縱坡）10(程式名)
1 r= 45000 (豎曲線半徑,輸入正值)2 a=36610（豎曲線中心樁號）3 h=814.74(變坡點高程)4 j= -0.018（變坡點前縱坡）5 i= -0.
028（變坡點後縱坡）11(程式名)
1 r= 60000 (豎曲線半徑,輸入正值)2 a=37450（豎曲線中心樁號）3 h=791.22(變坡點高程)4 j= -0.028（變坡點前縱坡）5 i= -0.
021（變坡點後縱坡）12(程式名)
1 r= 35000 (豎曲線半徑,輸入正值)2 a=38320（豎曲線中心樁號）3 h=934.23(變坡點高程)4 j= -0.021（變坡點前縱坡）5 i= -0.
034（變坡點後縱坡）子程式（平曲線要素）21(程式名)
1 b=145 (超高緩和曲線長度)2 q=471.094 (超高曲線全長度)3 c=0.03 (超高值)
4 f= -1（曲線右，左引數）
5 s=31037.853（超高緩和起點樁號）
22(程式名)
1 b=140 (超高緩和曲線長度)2 q=892.536 (超高曲線全長度)3 c=0.04 (超高值)4 f=1（曲線右，左引數）
5 s=31508.947（超高緩和起點樁號）
6 l>=32256.483=>b=140:q=882.536:s=31513.947:⊿
24(程式名)
1 b=140 (超高緩和曲線長度)2 q=395.3(超高曲線全長度)
3 c=0.02(超高值)
4 f=1（曲線右，左引數）
5 s=33491.797（超高緩和起點樁號）
6 l>=33747.097=>b=150:q=415.3:s=33481.797:⊿25(程式名)
1 b=160 (超高緩和曲線長度)2 q=488.351 (超高曲線全長度)3 c=0.03 (超高值)
4 f= -1（曲線右，左引數）
5 s=34697.936（超高緩和起點樁號）
26(程式名)
1 b=150 (超高緩和曲線長度)2 q=420.508 (超高曲線全長度)3 c=0.02 (超高值)
4 f=1（曲線右，左引數）
5 s=35640.355（超高緩和起點樁號）
6 l>=35910.863=>b=120:q=360.508:s=35670.355:⊿27(程式名)
1 b=120 (超高緩和曲線長度)2 q=897.28 (超高曲線全長度)3 c=0.04 (超高值)
4 f= -1（曲線右，左引數）
5 s=36030.863（超高緩和起點樁號）
6 l>=36808.143=>b=150:q=957.28:s=36000.863:⊿28(程式名)
1 b=130 (超高緩和曲線長度)2 q=581.915 (超高曲線全長度)3 c=0.04 (超高值)
4 f=1（曲線右，左引數）
5 s=37131.359（超高緩和起點樁號）
29(程式名)
1 b=180 (超高緩和曲線長度)2 q=967.76 (超高曲線全長度)3 c=0.03 (超高值)
4 f= -1（曲線右，左引數）
5 s=37713.274（超高緩和起點樁號）
xs1(程式名)
1 fix 3：z「h1」=z◢(顯示縱斷設計值)2 v=0=>goto 0⊿
3 l◢(當自動計算時顯示樁號)4 lbl0
5 d=0=>goto 1⊿
6 o 「h1l」=o◢(顯示左邊樁值)7 p 「h1r」=p◢(顯示右邊樁值)8 lbl 1：norm(保留3位小數）
平曲線要素表
交點半徑第一超高緩和曲線長第二超高緩和曲線長曲線左，右引數1 1000 145 145左2 800 145 140右3 2700 140 140左4 2000 140 150右5 1000 160 160左6 1600 150 120右7 800 120 150左8 800 130 130右9 1000 180 180左
交點zhhyyhhz超高值1 k31+037.853 k31+182.853 k31+363.
947 31+508.947 0.032 k31+508.
947 k31+653.947 k32+256.483 k32+396.
483 0.043 k32+396.483 k32+536.
483 k33+351.797 k33+491.797 04 k33+491.
797 k33+631.797 k33+747.097 k33+897.
097 0.025 k34+697.936 k34+857.
836 k35+026.287 k35+186.287 0.
036 k35+640.355 k35+790.355 k35+910.
863 k36+030.863 0.027 k36+030.
863 k36+150.863 k36+808.143 k36+958.
143 0.048 k37+131.359 k37+261.
359 k37+583.274 k37+713.274 0.
049 k37+713.274 k37+893.274 k38+501.
034 k38+681.034 0.03
豎曲線要素表
編號半徑切線變坡點樁號變坡點高程前坡後坡凹/凸1 35000 175 k31+320 977.55 -0.04 -0.
03凹2 -60000 180 k31+780 963.75 -0.03 -0.
036凸3 13000 169.975 k32+600 934.23 -0.
036 -0.0098凹4 -12000 180.9 k33+200 928.
32 -0.0098 -0.04凸5 35000 175 k33+700 908.
32 -0.04 -0.03凹6 -35000 175 k34+250 891.
82 -0.03 -0.04凸7 35000 175 k34+950 863.
82 -0.04 -0.03凹8 -20000 180 k35+400 850.
32 -0.03 -0.04凸9 10000 150 k35+860 828.
24 -0.04 -0.018凹10 -45000 225 k36+610 814.
74 -0.018 -0.028凸11 60000 210 k37+450 791.
22 -0.028 -0.021凹12 -35000 227.
5 k38+320 772.95 -0.021 -0.
034凸**分隔帶為2公尺。預設橫坡為0.02
路線起點為k31+037.853。終點為k38+501.034。
此程式用於等超高緩和段與不等超高緩和段的程式
謝謝發貼！平均使用者評分：+7【測量空間】
Casio卡西歐手錶功能介紹
個城市的世界時間，可同時顯示3個時間區的時間，精確到1 100秒的秒錶，倒計時，鬧鈴，全自動日曆，12 24小時時制等多樣強勁功能。卡西歐手錶調整注意事項 卡西歐手錶的日曆 星期 月相之調整切勿在卡西歐手錶時間21 00pm 3 00am 之間操作，此期間日曆功能正在進行運作，同時也是齒輪齒合度較低...
casio9750圖形機教學案
案例01 分段函式 出處 新課標華東師大天津版數學教材必修1第31頁，例4 繪製函式的圖象，並求當x為9，16，20時y的值.目標 利用圖形計算器繪製分段函式圖象，體會分段函式圖象的特點.流程 設計 說明 本案例03 步可根據問題需要預先將螢幕設定為所需大小 利用本例也可以繪製新課標華東師大天津版數...
CASIO 4800常見程式序集
序集1 由乙個已知點座標和乙個已知方位角計算支導線座標 程式名 zbjs 程式清單 x y t lb1 0 fixm t t a 180 t 0 t t 360 t 360 t t 360 t x x scos t y y ssin t goto0 程式執行說明 執行 zbjs 每執行一步按exe鍵...