卡西歐Casio fx-4800P道路中邊樁坐標(biāo)計(jì)算程序.doc

卡西歐Casio fx-4800P道路中邊樁坐標(biāo)計(jì)算程序 ，卡西歐Casio fx-4800P道路中邊樁坐標(biāo)計(jì)算程序。
歡迎下載！
程序清單如下： Casiofx-4800P道路中邊樁坐標(biāo)計(jì)算程序 程序目的：依平曲線要素計(jì)算直線、圓曲線、緩和曲線的任意中樁、左、右樁坐標(biāo)。
程序說(shuō)明： K0：起始樁號(hào) X0：起始X坐標(biāo) Y0：起始Y坐標(biāo) ALF：起始方位角 R：半徑 LS：緩和曲線長(zhǎng) N：曲線左轉(zhuǎn)N=1，右轉(zhuǎn)N=2 K：待求樁號(hào) LL、LR：左、右樁距離 Q：左、右樁與中線斜交角 求得XZ、YZ、XL、YL、XR、YR分別為中樁、左、右樁坐標(biāo)。

一、 直線段 文件名：ZX(COMP) 程式： L”K0”:O”X0”:P”Y0”:W”ALF”: Lbl0:{K}:X”XZ”=O+(K-L)cosW Y”YZ”=P+(K-L)sinW {B}:S”XL”=X-B”LL”cos(W+Q) T”YL”=Y-Bsin(W+Q) {C}:U”XR”=X+C”LR”cos(W+Q) V”YR”=Y+Csin(W+Q) Goto0 注：在程序執(zhí)行過(guò)程中，賦給的要素變數(shù)的值被固定不變，可對(duì)變數(shù)（K、LL、LR）賦予不同值，迅速求得所需坐標(biāo)。

二、 圓曲線段 文件名：YQX(COMP) 程式： L”K0”:O”X0”:P”Y0”:W”ALF”:Lbl1:{K}: J=(-1)^N(K-L)÷R×180÷π:D=2Rsin((-1)^NJ÷2): X”XZ”=O+Dcos(W+J÷2) Y”YZ”=P+Dsin(W+J÷2) {B}:S”XL”=X-B”LL”cos(W+J+Q) T”YL”=Y-Bsin(W+J+Q) {C}:U”XR”=X+C”LR”cos(W+J+Q) V”YR”=Y+Csin(W+J+Q) Goto1 注：若沒(méi)有直接HY點(diǎn)方位角，則ALFHY=ALFZH±Ls/2/R×180/π,(左轉(zhuǎn)-，右轉(zhuǎn)+)。

三、 緩和曲線 文件名：HHQX(COMP) 程式： L”K0”:O”X0”:P”Y0”:W”ALF”:M”LS”:Lbl3:{K}: I=(-1)^N×(K-L)^2÷M÷R÷6×180÷π: D=(K-L)-(K-L)^5÷90÷(RM)^2: X”XZ”=O+Dcos(W+I) Y”YZ”=P+Dsin(W+I) {B}:S”XL”=X-B”LL”cos(W+3I+Q) T”YL”=Y-Bsin(W+3I+Q) {C}:U”XR”=X+C”LR”cos(W+3I+Q) V”YR”=Y+Csin(W+3I+Q) Goto3 注：
1、坐標(biāo)計(jì)算方法是根據(jù)偏角法原理；
2、緩和曲線（ZH~HY或YH~HZ）以ZH（或HZ）為起始點(diǎn)；
3、平曲線左轉(zhuǎn)（ZH~HY段N=1，YH~HZ段N=2），曲線右轉(zhuǎn)（ZH~HY段N=2，YH~HZ段N=1）。
Casiofx-4800P豎曲線計(jì)算程序"SQX" IA“I1”B“I2”C“BP”F“HP”RT D=C－T：E=C+T Lbl0：{K} KX=C－K：N=A：Goto1 K≥E=>X=C－K：N=B：Goto1 K≤C=>X=K－D：Y=C-K：N=A：Goto2：≠>X=E－K：Y=C－K：N=B：Goto2 Lbl