資源描述：
《Casio4800平曲線坐標(biāo)計(jì)算.doc》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。
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)。?一、?直線段?文件名：ZX?(COMP)?程式：?L”K0”:O”X0”:P”Y0”:W”ALF”:?Lbl?0:{K}:X”XZ”=O+(K-L)cosW◢
2、?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í)行過程中，賦給的要素變數(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(
3、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)?◢?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”LS”:Lbl?3:{K}:?I=(-1)^N×(K-L)^2÷M÷R÷6×180÷π:?D=(K-
4、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)?◢?Goto?3?注：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）。?Casio?fx-4800P
5、計(jì)算機(jī)具有強(qiáng)大的儲(chǔ)存記憶、程序設(shè)計(jì)功能，能為眾多專業(yè)技術(shù)工作提供大量復(fù)雜程序計(jì)算。筆者根據(jù)工程測(cè)量中的需要匯編以上程序，本著嚴(yán)密準(zhǔn)確、計(jì)算程式簡潔，避免冗長復(fù)雜化的計(jì)算過程。以上三部分平曲線計(jì)算程序有待繼續(xù)研究成更簡便的三合一程序。筆者另編寫Casio?fx-4800P方位角計(jì)算程序、豎曲線設(shè)計(jì)高程計(jì)算程序，及依坐標(biāo)求算里程樁號(hào)及至中樁距離的程序，Excel坐標(biāo)計(jì)算程序、Excel平曲線要素表計(jì)算程序、Excel豎曲線計(jì)算程序均具大批量計(jì)算并打印功能，?程序準(zhǔn)確實(shí)用、方法簡捷，下次見面。望大家不吝賜教，謝謝！?=========================================
6、========上面是內(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)點(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)，而
7、不用每次都輸入。但要注意的是，不能輸入超過下一個(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)高。????變量說明：?<程序運(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
