Casio4800平曲線坐標(biāo)計(jì)算參考模板

1、Casio fx-4800P平曲線坐標(biāo)計(jì)算程序  湖南新光工程有限公司三板溪項(xiàng)目部 李甲生 程序目的：依平曲線要素計(jì)算直線、圓曲線、緩和曲線的任意中樁、左、右樁坐標(biāo)。 程序說明：K0：起始樁號(hào) X0：起始X坐標(biāo) Y0：起始Y坐標(biāo) ALF：起始方位角 R：半徑 LS：緩和曲線長 N：曲線左轉(zhuǎn)N=1，右轉(zhuǎn)N=2 K：待求樁號(hào) LL、LR：左、右樁距離 Q：左、右樁與中線斜交角 求得XZ、YZ、XL、YL、XR、YR分別為中樁、左、右樁坐標(biāo)。 

2、;一、 直線段 文件名：ZX (COMP) 程式： L”K0”:O”X0”:P”Y0”:W”ALF”: Lbl 0: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)  Goto 0 注：在程序執(zhí)行過程中，賦給的

3、要素變數(shù)的值被固定不變，可對(duì)變數(shù)（K、LL、LR）賦予不同值，迅速求得所需坐標(biāo)。 二、 圓曲線段 文件名：YQX (COMP) 程式： L”K0”:O”X0”:P”Y0”:W”ALF”: Lbl 1:K: J=(-1)N (K-L)÷R×180÷:D=2Rsin(-1)N J÷2): X”XZ”=O+Dcos(W+J÷2)  Y”YZ”=P+Dsin(W+J÷2)  B:S”X

4、L”=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)  Goto 1 注：若沒有直接HY點(diǎn)方位角，則ALFHY=ALFZH±Ls/2/R×180/,(左轉(zhuǎn)-，右轉(zhuǎn)+)。 三、 緩和曲線 文件名：HHQX (COMP) 程式： L”K0”:O”X0”:P”Y0”:W”ALF”: M”L

5、S”:Lbl 3: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+3

6、I+Q)  Goto 3 2 / 4注：1、坐標(biāo)計(jì)算方法是根據(jù)偏角法原理； 2、緩和曲線（ZHHY或YHHZ）以ZH（或HZ）為起始點(diǎn)； 3、平曲線左轉(zhuǎn)（ZHHY段N=1，YHHZ段N=2），曲線右轉(zhuǎn)（ZHHY段N=2，YHHZ段N=1）。 Casio fx-4800P計(jì)算機(jī)具有強(qiáng)大的儲(chǔ)存記憶、程序設(shè)計(jì)功能，能為眾多專業(yè)技術(shù)工作提供大量復(fù)雜程序計(jì)算。筆者根據(jù)工程測量中的需要匯編以上程序，本著嚴(yán)密準(zhǔn)確、計(jì)算程式簡潔，避免冗長復(fù)雜化的計(jì)算過程。以上三部分平曲線計(jì)算程序有待繼續(xù)研究成更簡便的三合一程序。筆者另編寫Casi

7、o fx-4800P方位角計(jì)算程序、豎曲線設(shè)計(jì)高程計(jì)算程序，及依坐標(biāo)求算里程樁號(hào)及至中樁距離的程序，Excel坐標(biāo)計(jì)算程序、Excel平曲線要素表計(jì)算程序、Excel豎曲線計(jì)算程序均具大批量計(jì)算并打印功能， 程序準(zhǔn)確實(shí)用、方法簡捷，下次見面。望大家不吝賜教，謝謝！ =上面是內(nèi)容，謝謝！轉(zhuǎn)帖豎曲線標(biāo)高計(jì)算程序(4800)程序說明： (適用于4800)     此程序?yàn)樨Q曲線標(biāo)高計(jì)算程序，程序用變坡點(diǎn)高程和樁號(hào)來計(jì)算坡度，使高程計(jì)算比較精確，程序運(yùn)行時(shí)，先按順序輸入三點(diǎn)的樁號(hào)、高程和中間曲線的半徑，然后可輸入樁號(hào)求相應(yīng)

8、點(diǎn)的高程，當(dāng)樁號(hào)到達(dá)曲線尾和下一曲線間的直線段時(shí)，會(huì)出現(xiàn)“AFTER QX”的提示，這時(shí)可繼續(xù)輸入樁號(hào)求標(biāo)高，也可輸入一負(fù)值進(jìn)行輸入下一變坡點(diǎn)數(shù)據(jù)，輸入負(fù)值后會(huì)出現(xiàn)提示要求輸入R，此R為第三個(gè)變坡點(diǎn)的半徑，繼續(xù)要求輸入的EF則為第四個(gè)變坡點(diǎn)的樁號(hào)和高程。程序自動(dòng)將前次的后兩個(gè)變坡點(diǎn)的數(shù)據(jù)交換到計(jì)算時(shí)所用的第一第二個(gè)變坡點(diǎn)，而不用每次都輸入。但要注意的是，不能輸入超過下一個(gè)曲線的樁號(hào)，否則會(huì)出現(xiàn)標(biāo)高錯(cuò)誤，最好在出現(xiàn)“AFTER QX”提示后便進(jìn)行下一變坡點(diǎn)數(shù)據(jù)的輸入。本程序在輸出標(biāo)高后可設(shè)計(jì)簡單的橫坡度、超高坡度計(jì)算程序，可一次輸出斷面中的標(biāo)高。  

9、60; 變量說明： <程序運(yùn)算符定義> A 前一個(gè)變坡點(diǎn)樁號(hào) B 前一個(gè)變坡點(diǎn)高程 R 中間變坡點(diǎn)半徑C 中間變坡點(diǎn)樁號(hào)         D 中間變坡點(diǎn)高程         G 前段坡度E 后一個(gè)變坡點(diǎn)樁號(hào) F 后一個(gè)變坡點(diǎn)高程 H 后段坡度L&#

10、160;中間曲線的切線長 I 所求點(diǎn)的高程         J 切線至豎曲線的豎向距離K 所求樁號(hào) 程   序   清   單文件1  程序名：SQX ABCD:Lbl 0:ERF:REF:G=(D-B)÷(C-A):H=(F-D)÷(E-C):L=R×Abs(G-H)÷2 &#

11、160;Lbl 1:K:K0>Goto 2KC+L>L=-Abs L:Prog "SHU":M=D+(K-C)H+J:>M=D+(K-C)H:"AFTER QX"L=Abs L:KC>Prog "SHU":M=B+(K-A)G+JKC-L>M=B+(K-A)GM=1000M:Prog "SSWR":I=M÷1000 K=K+20:Goto 1:Lbl 2:A=C:B=D:C=E:D