卡西欧fx-5800计算器缓和曲线编程
卡西欧5800直线缓和曲线程序(1)
卡西欧5800直线、缓和曲线程序1. 主程序：TYQXJS″1.SZ=>XY″：″2.XY=>SZ″：″N″？N：″XA″？U：″YA″？V：″DKA″？O：″CA″？G：″LS″？H：″RA″？P:″RB″？R：″Q″？Q： 1÷P→C:（P-R）÷（2HPR）→D： 180÷π→E：If N=1: Then Goto1:Else Goto 2:ifEndLBI 1: ″DKI″?S: ″D″?Z:Abs(S-O)→W:Prog″SUB1″: ″XS″:X⊿″YS″:Y⊿″FS″:F-90⊿Goto 1LbI 2：″X″?X: ″Y″?Y：X→I:Y→J：Prog″SUB2″：O+W→S:″S″:S⊿″Z″:Z⊿Goto 22. 子程序：SUB10.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L→F:1-K→M:U+(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+ FWD))+Acos(G+QEMW(C+MWD))→X:Y+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))→Y:G+QEW(C+WD)+90→F:X+Zcos(F)→X:Y+Zsin(F)→Y3. 子程序：SUB2G-90→T： Abs((Y-V)cosT-(X-U)sin(T))→W:0→Z： Lbl 0：Prog″SUB1″:T +QEW(C+WD)→L :(J-Y)cos(L)-(I-X)sin(L)→Z:IfAbs(Z)<1*10-6: Then Goto1:ElseW+Z→W:Goto0:IfEndLbl 1: 0→Z: Prog″SUB1″: (J-Y) ÷sin(F)→Z4. 输入与显示说明N ：选择计算方式，输入1表示进行由里程、边距计算坐标；输入2表示由坐标反算里程和边距。
圆曲线缓和曲线线路中边桩放样卡西欧5800坐标计算程序
圆曲线缓和曲线线路中边桩放样卡西欧5800坐标计算程序程序名：FYXY"JD"?Q:"JDX"?W:"JDY"?K:R:"QDFWJ"?F:"A0"?N:"LS"?V:"-L,+R"?G:"DKQD"?C:"DK ZD" ?D:”ZJX"?A:”ZJY”?B8→DimzV÷2-V^(3)÷(240R2)→MV2÷(24R)－V^(4)÷(2688R^(3))→PpRN÷180+V→LM+(R+P)tan(N÷2)→TQ-T→Z[5]Z[5]+V→Z[6]Z[5]+L→Z[8]Z[8]-V→Z[7]Rec(T，F+180)W+I→Z[1]:K+J→Z[2]Rec(T，F+GN)W+I→Z[3]:K+J→Z[4]Lbl 0"DKI"?H:"BIAN JU"?S:"JIA JIAO"?EIf H<C:Then Goto 0:IfEndIf H>D:Then Goto 0:IfEndIf H<Z[5]:Then Goto 1:IfEnd:If H<Z[6]:Then Goto 2:IfEnd:If H<Z[7]:Then Goto 3:IfEnd:If H<Z[8]:Then Goto 4:Else Goto 5:IfEndLbl 1W+I→X: K+J→YRec(S，F+E)"X=":X+I→X◢"Y=":Y+J→Y◢Goto 7Lbl 2H-Z[5]→Z90Z2÷(pRV)→OZ-Z^(5)÷(40R2V2)+Z^(9)÷(3456R^(4)V^(4))→XZ^(3)÷(6RV)-Z^(7)÷(336R^(3)V^(3))+Z^(11)÷(42240R^(5)V^(5))→Y Rec(√(X2+Y2)，F+Gtan-1(Y÷X))Z[1]+I→X:Z[2]+J→YRec(S，F+GO+E)"X=":X+I→X◢"Y=":Y+J→Y◢Goto 7Lbl 3H-(Q-T)-V÷2→Z180Z÷(Rp)→ORsin (O)+M→XR(1-cos(O))+P→ZRec(X，F)Z[1]+I→X:Z[2]+J→YX+I→X:Y+J→YRec(S，F+OG＋E)"X=":X+I→X◢"Y=":Y+J→Y◢Goto 7Lbl 4Z[8]-H→Z90Z2÷(VRp)→OZ-Z^(5)÷(40R2V2)+Z^(9)÷(3456R^(4)V^(4))→XZ^(3)÷(6RV)-Z^(7)÷(336R^(3)V^(3))+Z^(11)÷(42240R^(5)V^(5))→Y Rec(√(X2+Y2)，F＋GN+180-Gtan-1(Y÷X))Z[3]+I→X:Z[4]+J→YRec(S，F+GN+180-OG-(180-E))"X=":X+I→X◢"Y=":Y+J→Y◢Goto 7Lbl 5Rec(H-Z[8]+T，F+GN)W+I→X:K+J→YRec(S，F+GN+E)"X=":X+I→X◢"Y=":Y+J→Y◢Goto 7Lbl 7Pol(X-A，Y-B)If J<0:Then J+360→J:IfEnd"FWJ=":J…DMS◢"CJ=":I◢Goto 0注：FYXY程序单代号Q"J D" 交点里程桩号W"JDX" 交点X坐标值K"JDY" 交点Y坐标值R 圆曲线半径F"QDFWJ" 第一直线段方位角N"A 0" 交点转向角V"LS" 缓和曲线长度G"-L,+R" 如果为左转角输入“－1”，如果为右转角输入“1”C"DKQD" 所求段起点里程桩号D"DKEZD" 所求段终点里程桩号ZJX 置镜点Ｘ坐标ZJY 置镜点Y坐标H"DKI" 所求点的里程桩号S"BIAN JU" 边桩至中桩的距离，求中桩时输入0 距离不为负E"JIA JIAO" 左边桩输入“－90”，右边桩输入“90”X Y 所求点的坐标值C J 置镜点至待求点的距离FWJ 置镜点至待求点的方位角。
卡西欧fx-5800计算器缓和曲线编程
1fx－5800P计算器编程缓和曲线程序14→DimZ ：“ZHK”：?K：?R ：? A：?L：? T：? F：“Y＋1，Z－1”：?P：“JDX”：?Q：“JDY”：?W：180÷（πR）→Z：0.5L－L^3÷(240R2)→Z[8]：“LZ”：ZL÷2→B：A÷Z＋L→Z[13]◢“ZHK=”：K◢“HYK=”：K+L→Z[1]◢“YHK=”：K+ Z[13] －L→Z[2]◢“HZK=”：K+ Z[13]→Z[3]◢“ZHX=”：Q+Tcos(F+180)→U◢“ZHY=”：W+Tsin(F+180)→V◢“HZX=”：Q+ Tcos(F+PA)→Z[6]◢“HZY=”：W+ Tsin (F+PA)→Z[7]◢Lb1 0：“CDZH”：?MIf M≤K：Then Goto 6：Else If M≤Z[1] ：Then Goto 1：Else If M≤Z[2] ：Then Goto 2：Else If M≥Z[3] ：Then Goto 7：Else If M≥Z[2] ：Then Goto 5：If End：If End：If End：If End：If EndLb1 1：M－K→G：√（（G－G^(5)÷(40L2R2)＋G^(9)÷(3456R^(4)L^(4)))2＋(G^(3)÷(6RL)－G^(7)÷(336R^(3)L^(3)) ＋G^(11)÷(42240R^(5)L^(5)))2）→D F＋PZG2÷(6L)→C：F＋PBG2÷L2→H：Goto 3Lb1 2：M－Z[1]→G：R（1－cos（B＋ZG））＋L2÷（24R）→Z[9]：√（Z[9]2＋（Rsin（B＋ZG）＋Z[8]）2）→DF＋Ptg-1(Z[9]÷(Rsin(B＋ZG)＋Z[8]))→C：F＋P(B＋ZG)→HLb1 3“X=”:U＋Dcos(C)→X◢“Y=”:V＋Dsin(C)→Y◢Lb1 B：“ZBJS1，FY－1”：?JIf J>0：Then Goto 4：Else If J〈0：Then Goto A：If End：If EndLb1 4：“ZB”：?S“ZBX”:X＋Scos（H－90）◢“ZBY”:Y＋Ssin（H－90）◢“YB”：?N“YBX”:X＋Ncos（H＋90）◢“YBY”:Y＋Nsin（H＋90）◢Goto 0Lb1 5：Z[3]－M→G：（T－G＋G^(5)÷(40L2R2)－G^(9)÷(3456R^(4)L^(4))) sin(A) ＋(G^(3)÷(6RL)－G^(7)÷(336R^(3)L^(3))＋G^(11)÷(42240R^(5)L^(5))) cos(A)→Z[4]：T＋（T －G＋G^(5)÷(40L2R2)）cos(A) －(G^(3)÷(6RL)－G^(7)÷(336R^(3)L^(3))) sin(A)→Z[5]：√（Z[4]2＋Z[5]2）→D ：F＋Ptg-1(Z[4]÷Z[5])→C：F＋P(A－BG2÷L2) →H：Goto 3Lb1 6：K－M→D：F＋180→C：F→H：Goto 3Lb1 7：M－Z[3]→D：F＋PA→C：C→H：Goto 9Lb1 9：“X=”: Z[6]＋Dcos(C)→X◢“Y=”: Z[7]＋Dsin(C)→Y◢Goto BLb1 A：“N”：?N:“E”：?S：“H”：?I“X=”:（N－X）cos(H)＋(S－Y)sin(H)＋M→Z[10]◢“Y=”:（S－Y）cos(H)－(N－X)sin(H) →Z[11]◢“MS”：1711.15+0.004(Z[10]-85030) →E◢If I≥E+2 ：Then“+－R1”：6.57－√((I－E－2)) 2+ Z[11] 2→OElse If I<E+2 ：Then“+R2”：7.47－√((E+2－I) 2+(Abs( Z[11])+0.9) 2→O◢“﹦＞DB”:(I－E+0.5)→O◢Z[10] →M：If End：If EndGoto 01.1程序说明“DimZ”—内存变量扩充“ZHK”—输入直缓点桩号“R”—输入曲半径“L”—输入缓和曲线长“A”—输入偏角“Y＋1，Z－1”—路线右转输＋1，左转输－1“FWJ”—输入起算方位角“JDX”—输入交点X坐标“JDY”—输入交点Y坐标“ZHK=”：得出直缓点桩号“HYK=”：得出缓圆点桩号“YHK=”：得出圆缓点桩号“HZK=”：得出缓直点桩号“ZHX=”：得出直缓点X“ZHY=”：得出直缓点Y“HZX=”：得出缓直点X“HZY=”：得出缓直点Y“CDZH”—输入待测点桩号“X=”：得出测点桩号中心桩N“Y=”：得出测点桩号中心桩E“ZBJS1，FY－1”—①（坐标计算）施工坐标转大地坐标输+1，“ZB”—输入中桩到左边桩的距离；“ZBX”: 得出待测点左边N值“ZBY”: 得出待测点左边E值“YB”—输入中桩到右边桩的距离；“YBX”: 得出待测点右边N值“YBY”: 得出待测点右边E值②（放样）大地坐标转施工坐标输－1，“N”—输入大地坐标的N坐标；“E”—输入大地坐标的E坐标。
CASIO 5800 QXZB 曲线放样程序
[正确] CASIO fx-5800P QXZB曲线坐标计算CASIO fx-5800P QXZB程序可计算不等缓和曲线、圆曲线上的任意中、边桩坐标：该程序适用于计算器 CASIO fx-5800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线中、边桩坐标及待测点方位角和距离。
1、DK(JD)？输入交点桩号2、X(JD)？输入交点坐标X3、Y(JD)？输入交点坐标Y4、T1？输入第一切线长(如果只有一条切线两者都输入一致)5、T2？输入第二切线长(如果只有一条切线两者都输入一致)6、FWJ？输入直线方位角(ZH→JD)7、A？输入转角：左转为负，右转为正8、R？输入圆曲线半径9、LS1？输入第一缓和曲线长(如果只有一条缓和曲线两者都输入一致)10、LY？输入圆曲线长(L-LS1-LS2)11、LS2？输入第二缓和曲线长(如果只有一条缓和曲线两者都输入一致)12、X(ZJD)？输入置镜点坐标X13、Y(ZJD)？输入置镜点坐标Y14、JSDK？输入前视点里程15、PL？输入偏距16、PA？输入偏角程序名称：QXZB＂DK(JD)＂?R：＂X(JD)＂?S：＂Y(JD)＂?T：＂T1＂?U：＂T2＂?V：＂FWJ＂?F：＂A＂?W：＂R＂?H：＂LS1＂?I：＂LY＂?J：＂LS2＂?K：＂X(ZJD)＂?D：＂Y(ZJD)＂?EF+W→GIf W>0： Then -1→L ：IfEnd(式中为数字0…括号内不输入)If W<0： Then 1→L ：IfEnd (式中为数字0…括号内不输入)If W=0： Then 0→L ：IfEnd (式中为数字0…括号内不输入)R-U→AS-Ucos( F) →BT-Usin( F) →CS+Vcos( G) →Z[1]T+Vsin( G) →Z[2]180÷π→O(式中为字母0…括号内不输入)Lb1 A＂JSDK＂?MM-A→PIf M<A： Then Goto A ：IfEndIf M>(A+I+J+K)： Then Goto A ：IfEnd＂PL＂?NIf M>(A+I+J) ：Then Goto D：IfEndIf M>(A+I) ：Then Goto C：IfEndLb1 BB+(P-(P^(5)÷40÷H^2÷I^2))cos( F)+(P^(3)÷6÷H÷I-P^(7)÷336÷H^(3)÷I^(3))Lsin( F)→XC+(P-(P^(5)÷40÷H^2÷I^2))sin( F)-(P^(3)÷6÷H÷I-P^(7)÷336÷H^(3)÷I^(3))Lcos( F)→Y“X=”：X+Ncos(F-(P^2÷2÷H÷I)OL+Z) →X ◢(式中OL为字母O…括号内不输入)“Y=”：Y+Nsin(F-(P^2÷2÷H÷I)OL+Z) →Y ◢(式中OL为字母O…括号内不输入)Prog＂ZBFS＂(此处为调用直线程序…括号内不输入)Goto ALb1 CB+(Hsin(((P-I)÷H+I÷2÷H)O)+(I÷2-I^(3)÷240÷H^2))cos(F)-(H(1-cos(((P-I)÷H+I÷2÷H)O))+I^2÷24÷H)(-1)Lsin( F)→X(中间O为字母O)C+(Hsin(((P-I)÷H+I÷2÷H)O)+(I÷2-I^(3)÷240÷H^2))sin(F)+(H(1-cos(((P-I)÷H+I÷2÷H)O))+I^2÷24÷H)(-1)Lcos( F)→Y(式中为字母0…括号内不输入)“X=”：X+Ncos(F-((P-I)÷H+I÷2÷H)OL+Z) →X ◢(式中OL为字母O…括号内不输入)“Y=”：Y+Nsin(F-((P-I)÷H+I÷2÷H)OL+Z) →Y ◢(式中OL为字母O…括号内不输入)Prog ＂ZBFS＂(此处为调用直线程序…括号内不输入)Goto ALb1 D(A+I+J+K-M) →QZ[1]-(Q-Q^(5)÷40÷H^2÷K^2)cos( G)+(Q^(3)÷6÷H÷K-Q^(7)÷336÷H^(3)÷K^(3))Lsin( G)→XZ[2]-(Q-Q^(5)÷40÷H^2÷K^2)sin( G)+(Q^(3)÷6÷H÷K-Q^(7)÷336÷H^(3)÷K^(3))Lcos( G)→Y “X=”：X+Ncos(F-(I÷2÷H+J÷H+K÷2÷H-Q^2÷2÷H÷K)OL+Z) →X ◢(OL为字母O…括号内不输入) “Y=”：Y+Nsin(F-(I÷2÷H+J÷H+K÷2÷H-Q^2÷2÷H÷K)OL+Z) →Y ◢(OL为字母O…括号内不输入) Prog＂ZBFS＂(调用直线程序…括号内不输入)Goto A--------------------------------------------------------------------------------说明：本程序需要扩展变量，方法：20→DimZ附件：本程序附曲线要素坐标计算核对表。
卡西欧fx5800标准曲线竖曲线版
卡西欧fx-5800P程序1坐标反算(ST)Lb1 1：＂X1=＂？A：＂Y1=＂？BLb2 2：＂X2=＂？C：＂Y2=＂？D＂S(1-2)=＂：POL(C－A,D－B)→S▲IF J﹥0：Then J→T：Else J+360→T：If End＂T=＂：T→DMS▲＂K=＂？ＫIf K=1：Then Goto1：If EndIf K=2：Then Goto2：If EndIf K=3：Then C→A：D→B：Goto 2：If End 0说明：1、首先输入架站点坐标X0、Y0（O点）。
2、再输入后视点坐标XP、YP（P点）。
3、计算出O―P的边长S和方位角J。
4、当K＝1时，重新输入O、P点的坐标。
5、当K＝2时，以原O点坐标不变，重新输入新P点坐，计算出边长S和方位角J。
6、当K＝3时，以原P点坐标为架站点坐标O（X0、Y0），重新输入新的P点坐标，计算出边长S和方位角J。
2 坐标正算(XY)LbI 0：＂X0=＂？A：＂Y0=＂？B：＂P(1→Z，2→F)=＂？PIf P=1：Then Goto2：Else Goto5：If EndLbI 2：＂XA=＂？C：＂YA=＂？D＂S(0－A)=＂：POL(C－A，D－B)→S▲IF J﹥0：Then J→F：Else J+360→F：If End＂T(0－A )=＂：F→DMS▲Goto6Lb1 5：＂T(0－A )=＂？FLb16：＂S(0－P )=＂？S：＂E(∠AOP=)＂？EE+F→T：＂XP=＂：A+Rec(S，T) →X▲＂YP=＂：B+J→Y▲If T≥360：Then T-360→T：If End＂T(0－P)=＂：T→DMS▲＂K=＂？KIf K=1：Then Goto0：If EndIf K=2：Then Goto6：If EndIf K=3：Then X→A：Y→B：T+180→F：Goto6：If End说明：1、首先输入架站点O（X0、Y0）坐标2、输入判断值P: 当P=1时输入后视点的坐标，计算出到后视点距离＂S(0－A)=＂S和方位角T(0－A )=F; 当P=2时直接输入后视点的方位角T(0－A )=F。
分享5800程序
[分享] CASIO fx-5800p交点法计算缓和曲线内任意点计算程序关于“5800p求缓和曲...”的内容本站搜索更多关于“5800p求缓和曲线要素”的内容SpiraL curve（缓和曲线任意点坐标计算）程序说明：本程序是基于计算对称性缓和曲线而编写的程序，是以交点法为基础，故输入数据多了点。
程序思路：根据曲线的交点数据，进而推算曲线要素，并进行曲线内任意点的坐标计算。
LbL 0：Cls19→DimZ 变量赋值“INTα(s)=”?F 输入交点坐标方位角“JD PEG=”?K 输入交点桩号“INT X(JD)=”?X 输入交点X坐标“INT Y(JD)=”?Y输入交点Y坐标“INT R(s)=”?R 输入缓和曲线半径“INT L(s)=”?L 输入缓和曲线长“TURNING ANGLE=”?A输入转角“TURNING DIRECTION –L,+R=”?I 输入路线转向：左负右正I赋值为1L2÷(24×R)→PL÷2-L3÷(240×R2)→Q90×L÷（π×R）→B（R+P）Tan（A÷2）+Q→T 计算切线长R（A-2B）×π÷180→O 计算圆曲线长R（A-2B）×π÷180+2L→C 计算曲线长（R+P）÷cos（A÷2）-R→E 计算外距2T-C→D 计算切曲差K-T→Z[3] ZH点Z[3]+L→Z[4] HY点Z[4]+O→Z[5] YH点Z[5]+L→Z[6] HZ点Z[6]-C÷2→Z[7] QZ点X+Tcos（F+180）→Z[16] ZH点X坐标Y+TsIn（F+180）→Z[17] ZH点Y坐标L-L3÷（90R2）→GZ[16]+Gcos(F+30×I×L÷(π×R) )→Z[8] HY点X坐标Z[17]+Gsin(F+30×I×L÷(π×R)) →Z[9] HY点Y坐标Z[8]+2Rsin(45×O÷(πR))cos(F+I×45×O÷(π×R)+I×90×L÷(π×R)) →Z[14] QZ点X坐标Z[9]+2Rsin(45×O÷(πR))sin(F+I×45×O÷(π×R)+I×90×L÷(π×R)) →Z[15] QZ点Y坐标Z[8]+2Rsin(90×O÷(πR))cos(F+I×90×O÷(π×R)+I×90×L÷(π×R)) →Z[10] YH点X坐标Z[9]+2Rsin(90×O÷(πR))sin(F+I×90×O÷(π×R)+I×90×L÷(π×R)) →Z[11] YH点Y坐标X+Tcos（F+I×A）→Z[12] HZ点X坐标Y+TsIn（F+I×A）→Z[13] HZ点Y坐标LbL 2“XIAN SHI QXYS 0→YES,1→NO”→？Z:CLs 显示曲线要素？输入：0→YES,1→NOIf Z=0:Then GoTo 3ELse If Z=1:Then GoTo 4:IfEnd:IfEndLbL 3 <本段为曲线要素显示结果部分>“QIE XIAN C=”:T▲“QU XIAN C=”:C▲“Y QU XIAN=”:O▲“WAI JU=”:E▲“QIE QU CHA=”:D▲“ZH PEG=”:Z[3] ▲“X(ZH)=”:Z[16] ▲“Y(ZH)=”:Z[17] ▲“HY PEG=”:Z[4] ▲“X(HY)=”:Z[8] ▲“Y(HY)=”:Z[9] ▲“QZ PEG=”:Z[7] ▲“X(QZ)=”:Z[14] ▲“Y(QZ)=”:Z[15] ▲“YH PEG=”:Z[5] ▲“X(YH)=”:Z[10] ▲“Y(YH)=”:Z[11] ▲“HZ PEG=”:Z[6] ▲“X(HZ)=”:Z[12] ▲“Y(HZ)=”:Z[13] ▲GoTo 0LbL 4 <本段为待求点桩号计算部分>“INT P PEG=”?H 输入待求点桩号If H<Z[3]:Then GoTo 4:IfEndIf H≥Z[3]And H<Z[4]:Then GoTo AELse If H≥Z[4] And H<Z[5]:Then GoTo BELse If H≥Z[5] And H≤Z[6]:Then GoTo C :IfendIfend : IfendIf H>Z[6]:Then GoTo 4:IfendLbL A{待求点位于ZH到HY段上时}“PIAN JIAO -L ,+R = ”? V 输入边桩与路线中心线夹角：左负右正“PIAN JU = ”? W 边桩与路中法线距离H–Z[3]→JJ–J5 ÷(90×R2×L2)→SZ[16]+S cos(F+30×I×J2÷(π×R×L)→MZ[17]+S sin(F+30×I×J2÷(π×R×L)→NM+W×cos(F+90×I×J2÷(π×R×L +V) →Z[18]N+W×sin(F+90×I×J2÷(π×R×L +v) →Z[19]“X(p)= ”: Z[18] ▲“Y(p)= ”: Z[19] ▲GoTo 4LbL B {待求点位于HY到YH段上时}“PIAN JIAO -L ,+R = ” ? V“PIAN JU = ”? WH–Z[4]→JZ[8]+2Rsin(90×J÷(π×R)cos[F+90×I×J÷(π×R)+90×I×L÷(π×R)]→MZ[9]+2Rsin(90×J÷(π×R)sin[F+90×I×J÷(π×R)+90×I×L÷(π×R)]→NM+Wcos(F+90×I×L÷(π×R)+180×I×J÷(π×R)+V) →Z[18]N+Wsin(F+90×I×L÷(π×R)+180×I×J÷(π×R)+V) →Z[19]“X(P)= ”: Z[18] ▲“Y(P)= ”: Z[19] ▲GoTo 4LbL C {待求点位于YH到HZ段时}“PIAN JIAO -L ,+R = ” ?V“PIAN JU = ”? WZ[6] –H →JJ–J5÷(90×R2×L2)→SZ[12]+Scos(F+I×A+180-30×I×J2÷(π×R×L)→MZ[13]+Ssin(F+I×A+180-30×I×J2÷(π×R×L)→NM+Wcos(F+I×A-90×I×J2÷(π×R×L)+V) →Z[18]N+Wsin(F+I×A-90×I×J2÷(π×R×L)+V) →Z[19]“X(p)= ”: Z[18] ▲“Y(p)= ”: Z[19] ▲GoTo 4程序补充说明：本程序需要输入：坐标方位角，交点桩号，坐标，缓和曲线半径，缓和曲线长，转角，转向（左负右正），程序运行时会显示说“XIAN SHI QXYS 0→YES,1→NO”→Z:CLs：显示曲线要素0→显示，1→不显示。
卡西欧5800缓和曲线坐标计算程序
缓和曲线段坐标计算HHQXZBJS第一缓和曲线段任意里程位各点的坐标计算。
程序如下:曲线起点里程→Q:曲线起点X坐标→E:曲线起点Y坐标→F:曲线起点前进切线方位角→T:圆曲线半径→R:缓和曲线长度→U:曲线转向方向(左转取-1,右转取+1)→P:Lbl 0:5→DimZ:“KM=”?L: 待求点里程“L-1,R+1”?K: 待求点位于前进方向左侧为-1,右侧为+1“PJ=”?S: 待求点到线路设计中心的平距Abs(L-Q)→Z[1]:Pol(Z[1]-Z[1]^(5)÷(40R²U²)+Z[1]^(9)÷(3456(RU)^(4)), Z[1]^(3)÷(6RU)-Z[1]^(7)÷(336(RU)^(3))+Z[1]^(11)÷(42240(RU)^(5))):J→Z[2]:Rec(I,T+Z[2]P):E+I→Z[3]:F+J→Z[4]:T+Z[2]P+60PZ[1]²÷(RUπ)+90→Z[5]:If K=1:Then Rec(S,Z[5]):Else Rec(S,Z[5]+180):IfEnd:Z[3]+I→X:Z[4]+J→Y:Cls:Fix 3:“Xp=”: 计算的X坐标“Yp=”: 计算的Y坐标Locate 7,1,X: X坐标显示在第一行Locate 7,2,Y◢Y坐标显示在第二行Goto 0注解:如果本程序不需要反复计算其它里程位的坐标值,可以将Lbl 0和Goto 0删除掉。
这里是按第一缓和曲线编制的,在应用于第二缓和曲线时,起算点和转向方向都要改变,同时原路线方向上的左侧变成了右侧,原路线方向上的右侧变成了左侧,等等,这点要注意。
FX5800缓和加圆曲线坐标正反算(原创)
缓和曲线与圆曲线正反算程序一、正算程序：ZD-ZS※※→X※※→Y※※→N※※→E※※→C※※→D※※→T※※→I※※→R※※→S（本线到中线的距离,向左为负，向右为正）Lbl 1arcCos（（N-X）÷√((N-X) 2 +(E-Y) 2 ) )→Aif E>Y：Then A: ELSE 360-A→A：IFENDarcCos（（C-N）÷√((C-N) 2 +(D-E) 2 ) )→Uif D>E：Then U: ELSE 360-U→U：IFEND1→KIF A>U：Then K：ELSE K-2→K：IFEND0→MIf K=1 ：Then M ：ELSE M+1→M：IFENDN+T×（X-N）÷√（（N-X）2+（E-Y）2）→CE+T×（Y-E）÷√（（N-X）2+（E-Y）2）→DLbl 2“L”？→OO-※※(曲线起点里程)→LL>I=>Goto 5C+√（（L~（3）÷6÷R÷I）2+（L-L~（5）÷40÷R2÷I2）2）×COS（A+K×ARCTAN（6RI ÷L2-3×L2÷20÷R÷I）+180×M-90）+S×cos（A-K×L2×180÷2÷R÷I÷3.1415926+90）→V◢D+√（（L~（3）÷6÷R÷I）2+（L-L~（5）÷40÷R2÷I2）2）×Sin（A+K×ArcTan（6RI÷L2-3×L2÷20÷R÷I）+180×M-90）+S×sin（A-K×L2×180÷2÷R÷I÷3.1415926+90）→Q◢※※(起算点轨面高程)+（O-※※(起算点里程)）×※※（坡比）-※※（轨面高程与坑底高程差）→J◢Lbl 3“XZWY”? →GG=1=>Goto 2G=2=>Goto 4Lbl 4“S”? →Z“H”? →HV+Z×cos（A-K×L2×180÷2÷R÷I÷3.1415926+90）◢Q+Z×sin（A-K×L2×180÷2÷R÷I÷3.1415926+90）◢H+J◢Goto 3Lbl 5R×Sin(90×(2L-I)÷3.1415926÷R)+I÷2-I~(3)÷240÷R2→YK(R×(1-COS(90×(2L-I)÷3.1415926÷R))+I2÷24÷R-I~(4)÷2688÷R~(3)) →X√(X2+Y2)→FA+ArcTan(Y÷X)+M×180-90→UC+F×Cos（U）+S×COS(A-K×180×(2×L-I)÷2÷3.1415926÷R+90)→V◢D+F×Sin（U）+S×Sin(A-K×180×(2×L-I)÷2÷3.1415926÷R+90)→Q◢※※(起算点轨面高程)+（O-※※(起算点里程)）×※※（坡比）-※※（轨面高程与坑底高程差）→J◢Lbl 6“XZWY”? →GG=1=>Goto 2G=2=>Goto 7Lbl 7“S”? →Z“H”? →HV+ Z×COS(A-K×180×(2×L-I)÷2÷301415926÷R+90)◢Q+ Z×Sin(A-K×180×(2×L-I)÷2÷301415926÷R+90)◢H+J◢Goto 6二、反算程序：ZD-FS ※※→X※※→Y※※→N※※→E※※→C※※→D※※→T※※→I※※→R※※→S（本线到中线的距离,向左为负，向右为正）※※→W(曲线起点里程)※※→V(圆心N)※※→Q(圆心E)※※→B(HY---N)※※→J(HY---E)arcCos（（N-X）÷√((N-X) 2 +(E-Y) 2 ) )→Aif E>Y：Then A: ELSE 360-A→A：IFENDarcCos（（C-N）÷√((C-N) 2 +(D-E) 2 ) )→Uif D>E：Then U: ELSE 360-U→U：IFEND1→KIF A>U：Then K：ELSE K-2→K：IFEND0→MIf K=1 ：Then M ：ELSE M+1→M：IFENDN+T×（X-N）÷√（（N-X）2+（E-Y）2）→CE+T×（Y-E）÷√（（N-X）2+（E-Y）2）→DLbl 1“N”? →X“E”? →Y“H”? →H1→G：IF D>J：Then G ：Else -1→G：IfEndK×G×X→OK×G×((V-B)×Y÷(Q-J)+V-(V-B)×Q÷(Q-J))→FIF O>F：Then O ：GOTO 2：IfEndW→O√（（X-C）2+（Y-D）2）→G：While G>0.001 ：G+O→O：O-※※(曲线起点里程)→LC+√（（L~（3）÷6÷R÷I）2+（L-L~（5）÷40÷R2÷I2）2）×COS（A+K×ARCTAN（6RI÷L2-3×L2÷20÷R÷I）+180×M-90）→ND+√（（L~（3）÷6÷R÷I）2+（L-L~（5）÷40÷R2÷I2）2）×Sin（A+K×ArcTan（6RI ÷L2-3×L2÷20÷R÷I）+180×M-90）→EA-K×L2×180÷2÷R÷I÷3.1415926+90 ×(N-X)÷√（N-X）2→UarcCos（（N-X）÷√((N-X) 2 +(E-Y) 2 ) )→Fif E>Y：Then F: ELSE 360-F→F：IFEND√（（X-N）2+（Y-E）2）sin（√（F-U）2）→G：WhileEnd：O+G→O◢O-※※(曲线起点里程)→LC+√（（L~（3）÷6÷R÷I）2+（L-L~（5）÷40÷R2÷I2）2）×COS（A+K×ARCTAN（6RI÷L2-3×L2÷20÷R÷I）+180×M-90）+S×cos（A-K×L2×180÷2÷R÷I÷3.1415926+90）→TD+√（（L~（3）÷6÷R÷I）2+（L-L~（5）÷40÷R2÷I2）2）×Sin（A+K×ArcTan（6RI÷L2-3×L2÷20÷R÷I）+180×M-90）+S×cos（A-K×L2×180÷2÷R÷I÷3.1415926+90）→Z(X-N)÷√（N-X）2×√（（T-X）2+（Z-Y）2）→P◢H-（※※(起算点轨面高程)+（O-※※(起算点里程)）×※※（坡比）-※※（轨面高程与坑底高程差））→G◢Lbl 2G- 2.785→G6.93→ZG>=0 => “zy=” :√P2-√(Z2+G2)◢“SX=”:G-√(Z2-P2)◢GOTO 1G<=0: G>=-0.97 =>”ZY=”:√P2-Z◢GOTO 1G<=-0.97:G>=-3.05 =>”ZY=”:√P2-(Z-0.36×(-G-0.97)÷2.08)◢GOTO 1G<=-3.05G>=-3.886 =>”ZY=”:√P2-√(2.912-(1.2+G)2)◢GOTO 1G<-3.886:√P2<=4.83 =>”SX=”: G+(√(15.272-P2)-3.67-Z)◢GOTO 1G<-3.886:√P2>4.83 =>”ZY=”: P-√(15.272-(3.67+Z-G)2)◢GOTO 1Lbl 3arcCos（（X-V）÷√((X-V) 2 +(Y-Q) 2 ) )→Uif Y>Q：Then U: ELSE 360-U→U：IFEND3.1415926×R×(A+K×90-U)÷180÷K＋I÷2→LL+ W→O◢R×Sin(90×(2L-I)÷3.1415926÷R)+I÷2-I~(3)÷240÷R2→EK(R×(1-COS(90×(2L-I)÷3.1415926÷R))+I2÷24÷R-I~(4)÷2688÷R~(3)) →N √(X2+Y2)→FA+ArcTan(Y÷X)+M×180-90→UC+F×Cos（U）+S×COS(A-K×180×(2×L-I)÷2÷3.1415926÷R+90)→TD+F×Sin（U）+S×Sin(A-K×180×(2×L-I)÷2÷3.1415926÷R+90)→Z(X-N)÷√（N-X）2×√（（T-X）2+（Z-Y）2）→P◢H-（※※(起算点轨面高程)+（O-※※(起算点里程)）×※※（坡比）-※※（轨面高程与坑底高程差））→G◢LbI 4G- 2.785→G6.93→ZG>=0 => “zy=” :√P2-√(Z2+G2)◢“SX=”:G-√(Z2-P2)◢GOTO 1G<=0: G>=-0.97 =>”ZY=”:√P2-Z◢GOTO 1G<=-0.97:G>=-3.05 =>”ZY=”:√P2-(Z-0.36×(-G-0.97)÷2.08)◢GOTO 1G<=-3.05G>=-3.886 =>”ZY=”:√P2-√(2.912-(1.2+G)2)◢GOTO 1G<-3.886:√P2<=4.83 =>”SX=”: G+(√(15.272-P2)-3.67-Z)◢GOTO 1G<-3.886:√P2>4.83 =>”ZY=”: P-√(15.272-(3.67+Z-G)2)◢GOTO 1。
CASIO5800程序编辑说明
CASIO 5800程序编辑说明CASIO-5800P计算器程序编辑说明一(程序名称:直线坐标计算——Z-X-Z程序内容:1. “X=“,A : “Y=“,B : “Q=”,Q2. LbI 03. “N=”,N : “S=”,S : ”E=”,E4. A + N cos(Q) ?D : B + N sin(Q) ?F5. D + S cos(Q + E) ?6. F + S sin(Q + E) ?7. Goto 0内容说明:A 、 B——以知点即起算点的x,y坐标值;Q——直线段方位角;N——直线段距离;S——边桩距离;E——转向角;(左转为“,E”，右转为“E”) 二(程序名称:圆曲线任意坐标计算——ZY-YZ程序内容:1. “Q=”,Q : “ X= ”,W : “ Y= “,K : “R= ”,R:“F=”,F : “N=”,N : “U=”,U2. R tan(N?2) ? T3. Q–T ? A4. W+T cos(F+180) ?M : K+T sin(F+180) ?G5. LbI 06. “H=” ,H : ” S=” ?,S : “E=” ,E7. Abs(H - A) ? D8. 180 D?(Rπ) ?О9. R sin(О) ?C10. R (1-cos(О)) ?D11. M+C cos(F) ? I : G+C sin(F) ? J12. I+D cos(F+90U) ?X : J+D sin(F+90U) ? Y13. X+S cos(F+ОU+E) ?14. Y+S sin(F+ОU+E) ?15. Goto 0内容说明: Q——交点里程桩号;W 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”)H——圆曲线上任意一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”) 三(程序名称:极坐标放样元素计算——J-Z-B-F-J程序内容: 1. “X=”,A : “Y=”,B : “X0=”,C :“Y0=”,D2. PoI ( C - A,D - B ) : CIs3. If J，0 : Then J+360?E : EIse J?E:IfEnd:E?DMS?4. I?5. LbI 06. “XN=”,U7. WhiIe U?0 (输入“0”即结束程序)8. “YN=”,V9. PoI(U-A,V-B):CIs10. If J，0:Then J+360?F:EIse J?F:IfEnd:F?DMS?11. I?12. F – E ? H13. If H，0:Then H+360?H:IfEnd : H?DMS?14. Goto 0内容说明: A、B——测站点坐标C、D——0方向点坐标E——计算出的测站点至0方向点的方位角I——计算出的测站点至0方向点的距离U，V——N方向点坐标F——计算出的测站点至N方向点的方位角I——计算出的测站点至N方向点的距离H——计算出的0方向与N方向的水平夹角表格:点号 X坐标 Y坐标距离方位角起止点号夹角测站点0点 0?01点 0?12点 0?2四(程序名称:有缓和曲线的圆曲线上点位坐标计算 F-Y-X-Y 程序内容:1(“Q=”,Q :“J=”,J :“K=”,K :“R=”,R :“F=”,F :“N=”,N :“I =”,I :“U=”,U2(6 ? Dim Z3(90 I?(Rπ) ? G (切线角，即缓和曲线角计算)3 24 4(I?(24R) - I?(2688R) ? P (内移距)32 5(I?2 - I?(240R) ? M (切线增值)6((R+P) tan (N?2)+M ? T (切线长)7(πRN ? 180 + I ? L (曲线长)8(Q – T ? A : A + I ? B :A + L ? D : D – I ? C9(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2]10(LbI 011(“H=”,H :“S=”,S :“E=”,E12(H – A – I ? Z13(180 Z?(Rπ) + G ? О14(R sin(О) + M ? X15(R (1 –cos(О)) + P ? Z16(Z[1]+ Xcos( F ) ? Z[3] : Z[2] + X sin( F )? Z[4]17(Z[3]+ Z cos (F + 90U ) ? Z[5] :Z[4] + Z sin(F + 90U )? Z[6]18(Z[5]+ S cos ( F +ОU + E ) ?19. Z[6] + S sin( F+ОU + E ) ?20(Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”) H——有缓和圆曲的线圆曲线上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”)第9项——ZH点坐标;五(程序名称:缓和曲线段上点位坐标计算 F-H-X-Y程序内容:1 (“Q=”,Q :“J=”,J :“K=”,K :“R=”,R : “F=”,F :“N=”,N :“I =”,I :“U=”,U2(12 ? Dim Z32 3(I?2 - I?(240R) ? M (切线增值)3 24 4(I?(24R) - I?(2688R) ? P (内移距)5(πRN ? 180 + I ? L (曲线长)6(M+ (R+P) tan (N?2) ? T (切线长)7(Q – T ? A : A + I ? B : (ZH : HY)A + L ? D : D – I ? C (HZ:YH)8(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2] 9. J + T cos(F+NU) ? Z[3] : K + T sin (F+NU) ? Z[4] 10(LbI 011(“H=”,H :“S=”,S :“E=”,E12. H，B? Goto 113. H，D? Goto 214(LbI 115(Abs(H - A) ? Z216(90 Z?(πR I ) ?О229445 17(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155318(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 19(Z[1]+ Xcos( F ) ? Z[5] : Z[2] + X sin( F )? Z[6] 20(Z[5]+ Z cos (F + 90U ) ? Z[7] :Z[6] + Z sin(F + 90U )? Z[8]21(Z[7]+ S cos ( F +ОU + E ) ?22. Z[8] + S sin( F+ОU + E ) ?23(Goto 024. LbI 225. D - H ? Z226(90 Z?(πR I ) ?О229445 27(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155328(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 29(Z[3]+ X cos( F + NU+180 ) ? Z[9] :Z[4] + X sin( F + NU+180)? Z[10]30(Z[9]+ Z cos (F + NU+180 - 90U ) ? Z[11] :Z[10] + Z sin(F + NU+180 - 90U )? Z[12]31(Z[11]+ S cos ( F +NU+180 - ОU -(180 – E)) ?32. Z[12] + S sin( F+ NU+180 - ОU -(180 - E)) ?33. Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前直线段正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”) H——缓和曲线段上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”)第8项——ZH点坐标第9项——HZ点坐标。
casio5800缓和曲线、圆曲线、直线程序
LbI 0:4→Dimz:Cls"1.SZ→XY""2.XY→SZ"?→N:Cls"XO"?U: "YO"?V: "SO"?O:"FO"?G: "LS"?H: "RO"?P:"RN"?R:?Q1÷P→C：(P-R)÷(2HPR) →D：180÷π→EN=2=>Goto 2LbI 1:Cls:?SS=0=>Goto 0 (注:当S输入0时,程序会由LbI 0开始重新运行) ?Z:Abs(S-O)→WProg"SUB1":Cls"XS=":X◢"YS=":Y◢"FS=":F-90▼DMS◢Goto 1LbI 2:Cls:?XX=0=>Goto 0 (注:当X输入0时,程序会由LbI 0开始重新运行) ?Y:X→I:Y→JProg"SUB2":O+W→S:Cls"S=":S◢"Z=":Z◢Goto 2SUB1(子程序名)0.1739274226→A:0.3260725774→B0.0694318442→K:0.330009482→L1-L→F:1-K→MG+QEKW(C+KWD)→Z[1]G+QELW(C+LWD)→Z[2]G+QEFW(C+FWD)→Z[3]G+QEMW(C+MWD)→Z[4]Acos(Z[1])→XX+Bcos(Z[2])→XX+Bcos(Z[3])→XX+Acos(Z[4])→XU+WX→XAsin(Z[1])→YY+Bsin(Z[2])→YY+Bsin(Z[3])→YY+Asin(Z[4])→YV+WY→YG+QEW(C+WD)+90→FX+Zcos(F)→XY+Zsin(F)→YSUB2(子程序名)G-90→T(Y-V)cos(T)-(X-U)sin(T)→WAbs(W)→W:0→ZLbI 4:Prog"SUB1"T+QEW(C+WD)→L(J-Y)cos(L)-(I-X)sin(L)→ZIf Abs(Z)＜0.000001:Then 0→Z :Prog"SUB1"(J-Y)÷sin(F)→ZElse W+Z→W:Goto 4:IfEnd子程序（平面线形数据库）PM-SJ-1÷P→ CG-90→TLbl 1ifS ≥500（线元起点里程）AndS＜769.256（线元止点里程）：Then19942.837 →U（线元起点X坐标）：28343.561 →V（线元起点Y坐标）：500 →O（线元起点里程）：125°16°31°→G（线元起点方位角）：269.265 →H（线元长度）：10^（45）→P（线元起点曲率半径）：10^（45）→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左负右正）：IfEnd←┘ifS ≥769.256（线元起点里程）AndS＜806.748（线元止点里程）：Then19787.34 →U（线元起点X坐标）：28563.378→V（线元起点Y坐标）：769.256→O（线元起点里程）：125°16°31°→G （线元起点方位角）：37.492→H（线元长度）：10^（45）→P（线元起点曲率半径）：221.75→R （线元终点曲率半径）：-1→Q（线元左右偏标志：左负右正）：IfEnd←┘ifS ≥806.748（线元起点里程）AndS＜919.527（线元止点里程）：Then19766.566→U（线元起点X坐标）：28594.574→V（线元起点Y坐标）：806.748→O（线元起点里程）：120°25°54.07°→G（线元起点方位角）：112.779→H（线元长度）：221.75→P（线元起点曲率半径）：221.75→R（线元终点曲率半径）：-1→Q（线元左右偏标志：左负右正）：IfEnd←┘ifS ≥919.527（线元起点里程）AndS＜999.812（线元止点里程）：Then19736.072 →U（线元起点X坐标）：28701.893 →V（线元起点Y坐标）：919.527→O（线元起点里程）：91°17°30.63°→G（线元起点方位角）：80.285→H（线元长度）：221.75→P（线元起点曲率半径）：9579.228→R（线元终点曲率半径）：-1→Q（线元左右偏标志：左负右正）：IfEnd←┘ifS ≥999.812（线元起点里程）：Then19744.038 →U（线元起点X坐标）：28781.659→V（线元起点Y坐标）：999.812→O（线元起点里程）：80°40°50°→G（线元起点方位角）：100→H （线元长度）：10^（45）→P（线元起点曲率半径）：10^（45）→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左负右正）：IfEnd←┘使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1fx－5800P计算器编程
缓和曲线程序
14→DimZ ：“ZHK”：?K：?R ：? A：?L：? T：? F：“Y＋1，Z－1”：?P：“JDX”：?Q：“JDY”：?W：180÷（πR）→Z：0.5L－L^3÷(240R2)→Z[8]：“LZ”：ZL÷2→B：A÷Z＋L→Z[13]◢
“ZHK=”：K◢
“HYK=”：K+L→Z[1]◢
“YHK=”：K+ Z[13] －L→Z[2]◢
“HZK=”：K+ Z[13]→Z[3]◢
“ZHX=”：Q+Tcos(F+180)→U◢
“ZHY=”：W+Tsin(F+180)→V◢
“HZX=”：Q+ Tcos(F+PA)→Z[6]◢
“HZY=”：W+ Tsin (F+PA)→Z[7]◢
Lb1 0：“CDZH”：?M
If M≤K：Then Goto 6：Else If M≤Z[1] ：Then Goto 1：Else If M≤Z[2] ：Then Goto 2：Else If M≥Z[3] ：Then Goto 7：Else If M≥Z[2] ：Then Goto 5：If End：If End：If End：If End：If End
Lb1 1：M－K→G：√（（G－G^(5)÷(40L2R2)＋G^(9)÷(3456R^(4)L^(4)))2＋(G^(3)÷(6RL)－G^(7)÷(336R^(3)L^(3)) ＋G^(11)÷(42240R^(5)L^(5)))2）→D F＋PZG2÷(6L)→C：F＋PBG2÷L2→H：Goto 3
Lb1 2：M－Z[1]→G：R（1－cos（B＋ZG））＋L2÷（24R）→Z[9]：√（Z[9]2＋（Rsin（B＋ZG）＋Z[8]）2）→D
F＋Ptg-1(Z[9]÷(Rsin(B＋ZG)＋Z[8]))→C：F＋P(B＋ZG)→H
Lb1 3
“X=”:U＋Dcos(C)→X◢
“Y=”:V＋Dsin(C)→Y◢
Lb1 B：“ZBJS1，FY－1”：?J
If J>0：Then Goto 4：Else If J〈0：Then Goto A：If End：If End
Lb1 4：“ZB”：?S
“ZBX”:X＋Scos（H－90）◢
“ZBY”:Y＋Ssin（H－90）◢
“YB”：?N
“YBX”:X＋Ncos（H＋90）◢
“YBY”:Y＋Nsin（H＋90）◢
Goto 0
Lb1 5：Z[3]－M→G：（T－G＋G^(5)÷(40L2R2)－G^(9)÷(3456R^(4)L^(4))) sin(A) ＋(G^(3)÷(6RL)－G^(7)÷(336R^(3)L^(3))＋G^(11)÷(42240R^(5)L^(5))) cos(A)→Z[4]：T＋（T －G＋G^(5)÷(40L2R2)）cos(A) －(G^(3)÷(6RL)－G^(7)÷(336R^(3)L^(3))) sin(A)→Z[5]：√（Z[4]2＋Z[5]2）→D ：F＋Ptg-1(Z[4]÷Z[5])→C：F＋P(A－BG2÷L2) →H：Goto 3
Lb1 6：K－M→D：F＋180→C：F→H：Goto 3
Lb1 7：M－Z[3]→D：F＋PA→C：C→H：Goto 9
Lb1 9：“X=”: Z[6]＋Dcos(C)→X◢
“Y=”: Z[7]＋Dsin(C)→Y◢
Goto B
Lb1 A：“N”：?N:“E”：?S：“H”：?I
“X=”:（N－X）cos(H)＋(S－Y)sin(H)＋M→Z[10]◢
“Y=”:（S－Y）cos(H)－(N－X)sin(H) →Z[11]◢
“MS”：1711.15+0.004(Z[10]-85030) →E◢
If I≥E+2 ：Then“+－R1”：6.57－√((I－E－2)) 2+ Z[11] 2→O
Else If I<E+2 ：Then“+R2”：7.47－√((E+2－I) 2+(Abs( Z[11])+0.9) 2→O◢
“﹦＞DB”:(I－E+0.5)→O◢
Z[10] →M：If End：If End
Goto 0
1.1程序说明
“DimZ”—内存变量扩充
“ZHK”—输入直缓点桩号
“R”—输入曲半径
“L”—输入缓和曲线长
“A”—输入偏角
“Y＋1，Z－1”—路线右转输＋1，左转输－1
“FWJ”—输入起算方位角
“JDX”—输入交点X坐标
“JDY”—输入交点Y坐标
“ZHK=”：得出直缓点桩号
“HYK=”：得出缓圆点桩号
“YHK=”：得出圆缓点桩号
“HZK=”：得出缓直点桩号
“ZHX=”：得出直缓点X
“ZHY=”：得出直缓点Y
“HZX=”：得出缓直点X
“HZY=”：得出缓直点Y
“CDZH”—输入待测点桩号
“X=”：得出测点桩号中心桩N
“Y=”：得出测点桩号中心桩E
“ZBJS1，FY－1”—
①（坐标计算）施工坐标转大地坐标输+1，
“ZB”—输入中桩到左边桩的距离；
“ZBX”: 得出待测点左边N值
“ZBY”: 得出待测点左边E值
“YB”—输入中桩到右边桩的距离；
“YBX”: 得出待测点右边N值
“YBY”: 得出待测点右边E值②（放样）大地坐标转施工坐标输－1，
“N”—输入大地坐标的N坐标；
“E”—输入大地坐标的E坐标。
“I”—输入大地坐标的H坐标。
“X=”：得出测点桩号X
“Y=”：得出测点偏心Y
“MS”：得出测点设计高程
“+-R1”：得出测点R1的超欠挖
“+-R2”：得出测点R2的超欠挖
“﹦＞DB”测点到底部超欠挖。