線路中樁坐標(biāo)和切線方位角計(jì)算方法一：線路中樁坐標(biāo)和切線方位角計(jì)算（CASIO-4800P程序）適用于直線、第一緩和曲線（ZH-HY）、園曲線、卵形曲線（YH-HY，可以從大半徑到小半徑，也可以從小半徑到大半徑）、第二緩和曲線（YH-HZ）。輸入變量：A=起點(diǎn)樁號(hào)；B=終點(diǎn)樁號(hào)；D=起點(diǎn)切線方位角；F=起點(diǎn)X坐標(biāo)；H=起點(diǎn)Y坐標(biāo)；K=起點(diǎn)曲率；R=終點(diǎn)曲率（曲率為1÷半徑，直線的曲率為0）；M=判斷因子（線路左轉(zhuǎn)M=－1；線路右轉(zhuǎn)M=1；直線M=0）；C=樁號(hào)（起點(diǎn)和終點(diǎn)之間的任意樁號(hào)，A≦C≦B）。輸出：X，Y=樁號(hào)為C點(diǎn)的坐標(biāo)；P=樁號(hào)為C點(diǎn)的切線方位角（單位：度）。程序開(kāi)始：ABDFHKRMLbl0:{C}K-R=0=>S=C-A:Goto5:≠=>Goto2⊿Lbl2:G=ABS((B-A)÷(R-K))K=0=>L=0:S=C-A:Goto1⊿R=0=>L=B-A:S=L-C+A:Goto1⊿L=KGK<R=>S=L+C-A:≠=>S=L-C+A⊿Lbl1:N=S-L-(S^5-L^5)/(40G^2)+(S^9-L^9)/(3456G^4)-(S^13-L^13)/(599040G^6)+(S^17-L^17)/175472640G^8)-(S^21-L^21)/(78033715200G^10)K>R=>N=-N:Z=-1:≠=>N=N：Z=1⊿T=D-90MZL^2÷(πG)X=F+NcosT-MEsinT◢Y=H+NsinT+MEcosT◢渾P=D+彩90M古Abs(S既^2-L^2福)/邁(撕π艱G)麻

P<0=>繪P=P+36蟻0慧⊿鮮P>360=校>P=P-3內(nèi)60急⊿P=P◢Goto0杏Lbl5:忍K=0=>G愉oto6:邊灘≠付=>Goto免7籍⊿冒Lbl6:挖X=F+Sc堡osD眾◢析英Y=H+Ss株inD遇◢磨盲P=D票◢Goto0軋Lbl7:頂X=F+2s舉in(90S待R賢÷否π節(jié))×cos(碌D+90MS蟲(chóng)R什÷轟π暮)÷R懂◢癢Y=H+2s鹿in(90S縫R病÷原π極)×sin(頑D+90MS已R屢÷閘π葬)÷R償◢同詠P=D+18粒0SR吧÷息π邊P<0=>P岡=P+360把⊿酒P>360=尸>P=P-3倚60引⊿P=P◢Goto0程序結(jié)束反線路中樁坐標(biāo)中和切線方位角慧計(jì)算公式（方杠法一）口A蘋=脹起點(diǎn)樁號(hào)似，協(xié)B抽=鋼終點(diǎn)樁號(hào)羊，叉C=A屠B供上任意點(diǎn)樁號(hào)復(fù)，膠D獵=暴起點(diǎn)切線方位晃角，莊X0假=竿起吼點(diǎn)還X漢坐標(biāo)劉，授Y0覆=守起澆點(diǎn)左Y稱坐標(biāo)悼，綿M主=也左轉(zhuǎn)麥為須-庫(kù)1巡；右轉(zhuǎn)蜂為苦1債；直線閥為雞0積，乞K沙=屑起點(diǎn)曲率蔬，福R辟=家終點(diǎn)曲率。盤直線：Ｋ籠＝誕R錄＝０鍬，升S=C-A場(chǎng)X=X帶0惜+ScosD貫兵潤(rùn)

Y=Y果0泛+SsinD鴨男歇

P=D甘園曲線：Ｋ＝勝Ｒ羨≠烤０夜，衡S=C-A熄X=X鄰0映+2si奴n澇（萌90SR唯/謀π箏）歐.co體s晌（偵D+90MS誤R輔/缺π吉）免/R君Y=Y歲0搖+2si濁n次（效90SR言/醒π阻）悄.si逼n淹（砍D+90MS窩R煤/飄π辯）夠/R北P=D+18戲0MSR夫/討π母緩和曲線：曲煉線參饑數(shù)銅G=Ab耳s俊（鋼（桌B-關(guān)A欲）律/竄（川R-尤K叛））壯第一緩和曲線世：Ｋ＝０，沙Ｒ訴≠第０騎，囑L=嚇0序，憑S=C-A哨第二緩和曲線飛：黎Ｋ三≠微０，Ｒ＝０蠅，南L=B-涉A康，郵S=L物-筋（泉C-游A亦）哲=B-C淹是卵形曲線嚴(yán)：詠政未Ｋ箱≠也０，聯(lián)Ｒ旋≠寸0且，魄Ｋ回≠豎Ｒ焦，予L=KG陶Ｋ?。架汻誘，饅S=L+(C諸-A),Z寨=1潤(rùn)優(yōu)寨汗序鈔Ｋ盡＞龍R革，磨S=L-(C罪-A),Z頁(yè)=-1懼Ｎ＝晚（忘S-揚(yáng)L聯(lián)）－族（懷S突5鮮-L臟5蔬）免／杯40G吐２摩＋財(cái)（是S匹9板-L蕉9次）劫／宋3456G災(zāi)４問(wèn)-淚（景S領(lǐng)13外-L多13竿）員／愿599040堡G螞6咱＋枝（黃S嫌17戰(zhàn)-L喬17撕）恢／己175472緩640G伏8培-救（夠S跪21委-L吧21使）奏／學(xué)780337豐15200G僚10捕Ｅ＝漿（鬧S夕３谷－掠L友３自）／京６水G右－照（打S叢７福－稈L給７天）犧／綿336G使３都＋通（效S句１１傲－端L檢１１芒）趕／發(fā)42240G版５墊-寶（子S的15涌-L俯15賞）寇／前967680申0G是7身＋撿（鐵S鄰19斃-L士19鳥(niǎo)）斃／蜻353009膊6640G針9胃-校（久S尺23狼-L以23珍）賀／圍188024礙094720尾0G烘11鋒K架＞智R,N=-勸N狡T=D-90胡MZL窄2勁/餐π木G款X=X患0漠+NcosT翅-MEsin熄T哄Y=Y沒(méi)0孔+NsinT揪+MEcos師T什P=D+還90M兄Ab誦s員（袍S躺2色-L帥2尿）捎/非π蜘G

劑方法二：緩和濟(jì)曲線中樁坐標(biāo)貢和切線方位角為計(jì)算程序（暴PC-E50紛0萬(wàn)）副適用于第一緩限和曲線、第二嫌緩和曲線、卵治型曲線站（勺R(shí)1>R緣2豬或禿R2>R勵(lì)1銅）。該方法無(wú)料須知道起點(diǎn)切份線方位角，但奴要已知終點(diǎn)坐震標(biāo)。如果想用保它求起點(diǎn)切線客方位角，只要近輸入的樁標(biāo)號(hào)倆C揮比死A嶺大租1駐毫米就可以了慮。1.輸入信息臨A弊=須起點(diǎn)樁號(hào)割；扒B懷=用終點(diǎn)樁號(hào)蜓；洗X誼A捎，啟YA攤=啄起點(diǎn)坐標(biāo)堅(jiān)；追X傘B外，乎YB車=器終點(diǎn)坐標(biāo)偉；汽R1坊=駕起點(diǎn)半徑縮；枯R2南=認(rèn)終點(diǎn)半徑唉；濫K撓=漫左偏啦為王-踩1脹，右偏培為鐘1遺；第C=A眠B呼之間任意點(diǎn)樁罪號(hào)耳，厭A欠＜晚C鄭≤勝B堵。直緩（緩直貍）點(diǎn)半徑華輸麥1E5率0看；跪Y觸$養(yǎng)輸姻“生Y稀”放，結(jié)束，回車痰繼續(xù)下一個(gè)樁退號(hào)的計(jì)算。2.輸出信息騙

X青P笛，簽YP將=周樁號(hào)懸為接C航紅點(diǎn)的坐標(biāo)烈；群AT睜=寫樁號(hào)吹為播C繭卡點(diǎn)的切線方位減角（銜度肚.切分秒）。3.源程序：續(xù)10:INP譜UT"A="掘;A:INP知UT"B="做;B:INP夏UT"XA=路";XA:I舟NPUT"Y呼A=";YA每:INPUT本"XB=";勞XB:INP督UT"YB=旅";YB夏15:INP惕UT"R1柄=";R1:啟INPUT烏"R2=";叢R2:INP制UT"K=供";K索20:G=A那BS(R1萬(wàn)*R2*(B追-A)/(R填1-R2))頌:S=SQR羊((YB-丟YA)^2+級(jí)(XB-XA倍)^2)

拘球桃注名取占祥忙21:P0=召ASN((蘇YB-YA)史/S)天23:IF莖(XB-XA籮)<0TH教ENP0=哀180-P0芽買24:IF文(XB-XA鳥(niǎo))>0AN幕DP0<0肅THEN溫P0=P0+錄360

匆25:IF希R1<R2階THENZ檔=-1:M=橡G/R2+B田-A:GOT獸O30

年隱26:Z=1洗:M=G/R華1

禾30:L=B酬-A:GOS疤UB104有0略31:P1=鵲PP螞35:INP界UT"C=疤";C:L=版C-A矩40:GOS篩UB104肆0灘50:P2=漲P1-PP:吧P3=P0-哪K*P2煙60:XP=逝XA+DP*只COSP3社:YP=YA棵+DP*SI硬NP3們70:P4=隙180*(M互*L+Z*L泉^2/2)/準(zhǔn)G/PI:出AT=P3+佛K*(P4-非PP)犁80:PRI籃NT"XP茄=";XP:伍PRINT答"YP=";賞YP:PRI僚NT"AT戴=";DMS示AT悉100:IN挽PUT"E荷ND?";Y貼$鴉110:IF烈Y$="Y膜"THEN張END憲120:GO苗TO35耗1040:X道=L-L^3廈*(M*M/服3+Z*M*腦L/4+L*鋼L/20)/睬(2*G^2左)+L^5*淡(M^4/5猾+Z*M^3餅*L/3+3鑒*M^2*L絨^2/14+娛Z*M*L^辰3/16+L彼^4/144駁)/24/G購(gòu)^4瘋1050:Y板1=L^2*公(M+Z*L算/3)/2/灌G-L^4*很(M^3/2稍+3*Z*M古^2*L/5筐+M*L^2振/4+Z*L保^3/28)型/12/G