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表示由坐标反算里程和边距。
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附件：本程序附曲线要素坐标计算核对表。
分享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直线、圆曲线缓和曲线、坐标计算程序
5800直线、圆曲线缓和曲线、坐标计算CASIO fx—5800计算器工程测量与公路测量程序1、坐标正算＂X0=″?X:＂Y0=″?Y:＂I=″?I:＂J=″?JX+ICos(J)→U:Y+ISin(J)→V＂X=″:U （待求点的X坐标）＂Y=″:V （待求点的Y坐标）说明：X0 Y0：已知点坐标I：两点的距离J：方位角2、坐标反算Lbl 0＂X1=″?X:＂Y1=″?Y:＂X2=″?U:＂Y2=″?VPol(U-X,V-Y):J<0 J+360→J＂I=″:I＂J=″:J DMSGOTO 0说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角3、圆曲线＂X0=″?X: ＂Y0=″?Y:＂FWJ=″?D:＂QDHAO=″?G: ＂ZDHAO=″?C: ＂R=″?R Lbl 1＂DQHAO=″?LL<G Or L＞C GOTO 2＂PY=″?K180(L-G)÷(πR) →E2RSin(0.5E) →FReC(Abs(F),D+0.5E)：Cls＂X=″:X+I+KCos(D+E+90) →A＂Y=″:Y+J+KSin(D+E+90) →BD+E→o:o<0 360+o→0o＂FWJ=″:o DMSGoto 1Lbl 2＂END″说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO 终点里程，R：半径，DQHAO：待求点里程，PY：偏移量4、竖曲线＂QZHAO =″?J: ＂H+B″=?B:＂I1=″?C:＂I2=″?D:＂R=″?R:＂T=″?T:((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(0.5R(D-C) ÷100)→S＂T″:SJ-T→XJ＋T→YLbl 0＂DQ=″?LIf L<X:Then Goto 1:Else If L＞Y:Then Goto 1:If End:If End＂GC=″:B+C(L-J) ÷100+A(L-J+T) ÷(2R) →HGoto 0Lbl 1＂END″说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。
5800交点正反算坐标(可计算不对称缓和曲线)
1、主程序程序名：1XY-KMLbI 0:5→DimZ：Norm 2:1→A：＂A:X,Y=1，KM,D=2＂?A:A=1=>Goto 1:A=2=>Goto 2:LbI 1：Prog ＂DX＂:LbI A:Prog＂QX＂:90→B:＂PJ＂?B:B→Z [1]：LbI B:1→F:＂KM＂?Z:Z= -1=>Goto 0:Z=-2=>Goto A:Z=-3=>Goto X :Prog＂KM＂:?D: Prog "Z":I+D×COS(Z[2]+Z[1]) →X: J+D×Sin(Z[2]+Z[1]) →Y: Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ：＂Ｙ＝＂：Locate 6,4,Ｙ：Prog＂JS＂:Goto B LbI 2：LbI A:Prog＂QX＂:90→Z[1]：LbI C:2→F:＂KM＂?Z:Z = -1=>Goto 0:Z=-2=>Goto A:Z=-3=>Goto X :Prog＂KM＂“X0”? X:”Y0”?Y:?D:Prog ＂ZX＂: Fix 3:＂ＫＭ＝＂：Locate 6, 4,Ｚ：＂Ｄ＝＂：Locate 6,4,Ｄ：Goto C:LbI X:Mat F◢Goto 02. 交点法正算子程序(Z)程序名：ZH2÷R÷24-H∧(4)÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B:（（H2-N2）÷24÷R）÷Sin(Abs(P))-((H∧(4)-N∧(4))÷2688÷R ∧(3)) ÷Sin(Abs(P))→E:(R+A)tan(Abs(P)÷2)+B-E→T:P÷Ab s(P) →W:0→M:H→C:If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 2: IfEnd:If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:Goto 4:IfEnd:If Z≤O-T+ΠR×Abs(P)÷180+H÷2-N÷2: Then 180(Z-O+T-0. 5H) ÷R÷Π→S : A+R(1-Cos(S))→B:H÷2-H∧(3) ÷240÷R2+Rsin(S)→A:R→M:G+WS→Z[2]:Goto 4: IfEnd:O-T+ΠR×Abs(P)÷180+H÷2+N÷2-Z→S:(R+N2÷R÷24-N∧(4)÷2688÷R∧(3))tan(Abs(P) ÷2)+N÷2-N∧(3) ÷240÷R2+E→T :N→H:Prog “HX”:G+P→S:S-WK→Z[2]:U+(T-A)Cos(S)-WBSi n(S)→I:V+(T-A)Sin(S)+WBcos(S)→J:Goto 3:LbI 4:U+(A-T)cos(G)-WBsin(G)→I:V+(A-T)Sin(G)+WBcos(G) →J: Goto 3:LbI 2:U+Scos(Z[2])→I:V+Ssin(Z[2]) →J: LbI 3:C→H3. 交点法缓和段转化子程序(HX)程序名：HXS-S∧(5) ÷40÷R2÷H2+S∧(9) ÷3456÷R∧(4) ÷H∧(4)→A:S∧(3)÷6÷R÷H-S∧(7) ÷336÷R∧(3) ÷H∧(3)+S∧(11) ÷42240÷R ∧(5) ÷H∧(5)→B:90S2÷Π÷R÷H→K:RH÷S→M4. 交点法反算子程序(ZX)程序名：ZXZ:0→D:LbI 0:Prog “Z”:Pol(X-I,Y-J):J-Z[2] →J:Isin(J) →S:Icos(J) →I:If Abs(I)<0.1:Then Z+I→Z:S→D:Goto 2:Else Goto 1: LbI 1:If M=0:Then Z+I→Z:Goto 0:Eles Pol(M-WS,I):(JMΠ)/180→I:Z+I→Z:Goto 0:IfEndLbI 25．线路选择子程序(线路选择输0时。
卡西欧fx5800计算器缓和曲线编程
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坐标。
卡西欧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。
CASIO+FX-5800P+综合曲线坐标计算程序(正确)2010.1.17
圆曲线坐标计算交点桩号YK20+734.498；N=2889769.961；E=527002.305 ；方位角314'24'58.3' 转角27'19'31.4' 切线长度T1= 814.345 ；T2= 814.347 ；半径R=3000 ；曲线长度LS1：170；LC=1260.752；LS2= 170 曲线总长=1600.752 求ZH,HY,QZ,YH,HZ以及圆心点的坐标。
1、A？输入转(偏)角；左转为负，右转为正。
转角27'19'31.4'2、R？输入曲线半径。
30003、LS？输入缓和曲线长度。
1704、JD（DK）？输入交点里程桩号。
20734.498结果显示T = 814.347 W=87.776 L=1600.754 ZH=19920.151;HY=20090.151; QZ=20720.528; YH=21350.905; HZ=21520.9055、X（JD）？输入本交点X坐标。
2889769.9616、Y（JD）？输入本交点Y坐标。
527002.3057、FWJ？输入直缓(ZH)点切线方位角。
314'24'58.3'8、J？输入0程序计算中桩，输入1程序计算边桩。
09、Z？输入里程桩号。
ZH=19920.151FWJ:314.416 X=2889200.028 Y= 527583.973完（FWJ:314.416=314'24'57.6' ）ZH(2889200.026 527583.975) HY(2889320.140 527463. 682)QZ(2889816.373 527076.808) YH(2890382.383 526801.950)HZ(2890543.311 526747.167)例如2:JD15:4013872.8781;456031.1661 JD16:4015349.321;451808.075ZH:75+137.901 ay:16.45.49.69 R=9000 缓和曲线长：490 T=1571.257 JD(DK) =76709.158 FWJ=289-16-12.85 给我算一下74+400;75+300;75+800;76+500左中线坐标。
5800不等缓和曲线程序
5800不等缓和曲线程序1.10→Dimz换行【【扩展变量Z为10个】】2.“JDKM”？→A：【【交点桩号】】3.“JDX”？→B：【【交点X坐标】】4.“JDY”？→C：【【交点Y坐标】】5.“FWJ”？→D：【【起点方位角】】6.“PJ”？→V：【【交点偏角，左偏输入负值；右偏输入正值】】7.“R”？→R：【【圆曲线半径】】8.“LS1”？→E：【【第一缓和曲线长度】】9.“LS2”？→F换行【【第二缓和曲线长度】】10.Lbi 0换行【【标签0】】11.E/2-Eˇ（3）/（240R2）→Z[1]：【【第一缓和曲线切垂足】】12.F/2-Fˇ（3）/（240R2）→Z[2]：【【第二缓和曲线切垂足】】13.E2/（24R）-Eˇ（4）/（2688Rˇ（3））→Z[3]：【【第一缓和曲线圆曲内移值】】14.F2/（24R）-Fˇ（4）/（2688Rˇ（3））→Z[4]：【【第二缓和曲线圆曲内移值】】15.Z[1]+（R+Z[3]）/tan(180-Abs(V))+ （R+Z[4]）/sin(180-Abs(V)) →Z[5]：【【曲线一切线长】】16.Z[2]+（R+Z[4]）/tan(180-Abs(V))+ （R+Z[3]）/sin(180-Abs(V)) →Z[6]：【【曲线二切线长】】17.Abs(V)*Rπ/180-(E+F)/2→L：【【圆曲线长度】】18.B-Z[5]*cos(D) →X：【【直缓点X坐标】】19.C-Z[5]*sin(D) →Y：【【直缓点Y坐标】】20.A-Z[5] →Z[7]：【【直缓点里程】】21.Z[7]+E→Z[8]：【【圆缓点里程】】22.Z[8]+L→Z[9]：【【缓圆点里程】】23.Z[9]+F→Z[10]换行【【缓直点里程】】24.LBI 1换行【【标签1】】25.“P---K---M”? →P：【【待求点桩号】】26.“I I”? →K：【【边桩偏角度数，左偏输入负值；右偏输入正值】】27.“I------I”? →S：【【边桩距中桩距离，正值】】28.D→J:E→G：29.If P≤Z[7]：30.Then31.D+K→H：32.P-Z[7] →M:33.0→N:34.Goto5:35.Else if P≤ z[8]:Then P-Z[7] →I:36.90*I2/(RπE) →H:37.V＜0＝＞ -H→H:38.H+K+D→H:39.Goto 3:Else If P≤ Z[9]:40.Then P-Z[8] →I:41.Goto4:Else Goto 2:IfEnd:IfEnd:IfEnd:IfEnd换行42.Lbi 2换行43.B+Z[6]*cos(D+V) →X:44.C+Z[6]*sin(D+V) →Y:45.D+V+180→J:46.G→F:47.If P≤ Z[10]:Then Z[10]-P→I:48.90*I2/(RπF) →H:49.V＞ 0＝＞ -H→H:50.H+J+K+180→H51.Goto 3:Else P-Z[10] →I:52.-I→M:53.0→N:54.J+K+180→H:55.Goto 5:IfEnd换行56.Lbi 3换行57.I-I﹀(5)/(40R2G2) →M:58.I﹀(3)/(6RG)-I﹀(7)/(336R﹀(3)) →N:59.Goto 5换行60.Lbi 4换行61.90(E+2I)/( Rπ) →H:62.R*sin(H)+Z[1] →M:63.R*(1-cos(H))+Z[3] →N:64.V＜0＝＞ -H→H:65.J+H+K→H：66.Goto 5换行67.Lbi 5换行68.If P＜Z[9]:Then -N→N:69.X+M*cos(J)-N*sin(J)+S*cos(H) →X:”PX＝”:X▲70.Y+M*sin(J)-N*cos(J)+S*sin(H) →Y:”PY＝”:Y▲71.Goto 072.73.功能：计算完整曲线（直+缓+圆+缓+直）任意点坐标;两缓和曲线可以不相等；可以不存在（提示时输入0即可）。
5800曲线要素计算程序
主程序[SENDY-YS]Lbl 1:Fix 3:“X1”?C:“Y1”?D:“X2”?O:“Y2”?F:“X3”?G:“Y3”?H:? R:“LS”?L:“JDK”?KC-O→I:D-F→J: Prog“C”:J→N:G-O→I:H-F→J:Prog“C”:J→Q:N-Q→A:A＜0＝＞A+360→A:If A＜180:Then 180-A→A:“A=R”:A→DMS◢Else A-180→A:“A=L”:A→DMS◢IfEnd:L2÷(24R→B:L÷2-L＾(3)÷(240R2→M:M+(R+B)tan(A÷2→T:(R+B)÷cos(A÷2)-R→E:πRA÷180+L→S:K-T→U:U+L→V:V+(S-2L)÷2→W:V+S-2L→X:X+L→Y:Cls:Locate 1,1,“T=”:Locate 10,1, T:Locate 1,2,“E=”:Locate 11,2,E:Locate 1,3,“S=”:Locate 9,3,S:Locate 1,4,“ZH=”:Locate 9,4,U◢Cls:Locate 1,1,“HY=”:Locate 9,1,V:Locate 1,2,“QZ=”:Locate 9,2,W:Locate 1,3,“YH=”:Locate 9,3,X:Locate 1,4,“HZ=”:Locate 9,4,Y◢Cls:Goto 1曲线要素程序输入：X1---交点1的X坐标Y1---交点1的Y坐标X2---交点2的X坐标Y2---交点2的Y坐标X3---交点3的X坐标Y3---交点3的Y坐标R---半径LS---缓和曲线长度JDK---交点2的桩号结果：A=R 道路右转的转角A=L 道路左转的转角T=切线长度E=外距S=曲线总长度ZH=直缓点桩号HY=缓圆点桩QZ= 曲线中点桩YH= 圆缓点桩号HZ= 缓直点桩号主程序[ZXXY-2]?X:?Y:“QDX”?E:“QDY”?F:“QDK”?G:“FWJ”?HLbl 0:Fix 3:?K:?B90→A:K-G→P:A+H-90→Q:E+Pcos(H)-Bsin(Q→M:F+Psin(H)+Bcos(Q→N:M-X→I:N-Y→J: Prog“C”: Cls:Locate 1,1,“J=”:Locate 4,1, J°:Locate 1,2,“I=”:Locate 10,2,I:Locate 1,3,“M=”:Locate 8,3,M:Locate 1,4,“N=”:Locate 8,4,N◢Cls:Goto 0直线放样程序输入：X---测站X坐标Y---测站Y坐标QDX ---直线起点X坐标（或直线上的P点X坐标）QDY ---直线起点Y坐标（或直线上的P点Y坐标）QDK ---直线起点桩号（或直线上的P点的桩号）FWJ---直线起点往终点的方位角K---桩号B---距中（左负右正中零）结果：J=测站到放样点的方位角I=测站到放样点的平距M=放样点X坐标N=放样点Y坐标备注：若求斜交时边桩坐标，程序中90→A修改为斜交角度→A真似されているQQ:79868685。
卡西欧5800曲线坐标计算程序-正确
CASIO4800改5800p坐标计算程序-角度以度为单位1、该程序适用于计算器CASVO fx-4800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线、直线段中、边桩坐标及切线方位角。
2、A？输入转角：左转为负，右转为正3、R？输入圆曲线半径4、LS？输入缓和曲线长度5、JD？输入交点桩号6、J？输入0程序计算中桩，输入1程序计算边桩7、N？E？输入交点X、Y坐标8、FW 待求点切线方位角9、当计算交角为60°时，则公式改为（U+60），（U-120）1 ？A：？R：“LS”？C：“JD”？D2 C∧2/24/R-C∧4/2688/R∧3→P 求缓和曲线内移、值3 C/2-C∧3/240/R∧2→Q 切距差4 90C/兀/R→B 缓和曲线角度β05 (R+P)tan(AbsA/2)+Q→T 切线长6 (R+P)/cos(A/2)-R→W 外矢距7 ((AbsA)-2B)兀R/180+2C→L 缓和曲线长8 D-T→G 直缓点里程9 G+C→H 缓圆点里程10 G+L/2→I 曲中点里程11 G+L-C→K 圆缓点里程12 G+L→M 缓直点里程13 ？N：？E：？F：？Ｊf为方位角14 If A＜0：Then -1→S：Else 1→S：IfEnd15 F+A/2+90S→U16 W+R→V17 N+VcosU→B18 E+VsinU→O19 Lbl 120 ？Z21 If Z≤G：Then T+G-Z→L22 F+180→V23 F→U24 Goto 225 IfEnd26 If Z≤H：Then Z-G→L27 L-L∧5/(90R∧2C∧2)→V28 30L∧2S/(兀RC)→L29 F+180→P30 F+L→Q31 “FW=“：F+3L→U◢32 Goto 433 IfEnd34 If Z≤K：Then F+A/2+90S-180+180(Z-I)S/R/兀→L35 “FW=“：L+90S→U36 Goto 537 IfEnd38 If Z≤M：Then M-Z→L39 L-L∧5/(90R∧2C∧2)→V40 30SL∧2/(兀RC)→L41 F+A→P42 F+A+180-L→Q43 F-3L+A→U44 Goto445 IfEnd46 If Z>M：Then Z-M+T→L47 F+A→U48 U→V49 Goto 250 IfEnd51 Lbl 252 “X=“：N+LcosV→X◢53 “Y=“：E+LsinV→Y◢54 Goto 655 Lbl 356 ？W57 “XL=”：X+Wcos(U-90) ◢58 “YL=”：Y+Wsin(U-90) ◢59 “XR=”：X+Wcos(U+90) ◢60 “YR=”：Y+Wsin (U+90) ◢61 Goto 162 Lbl 463 ”X=“：N+TcosP+VcosQ→X◢64 ”Y=“：E+TsinP+VsinQ→Y◢65 Goto 666 Lbl 567 “X=”：B+R cosL→X◢68 “Y=”：O+RsinL→Y◢69 Goto 670 Lbl 671 J=1=> Goto 372 Goto 1注：◢为输出指令，只要在后面加上，即把前面的结果输出在屏幕上。
正确5800计算器公式
]一、曲线程序5800“Q”?Q:“W”?W:“K”?K:“R”?R:“F”?F:“N”?N:“V”?V:“G”?G◢“M=”:V÷2-V∧(3) ÷(240R2) →M◢“P=”:V2÷(24R)-V∧(4) ÷(2688R∧(3)) →P◢“L=”: ΠRN÷180+V→L◢“T=”:（R+P）tan(N÷2)+M→T◢“A=”:Q-T→A◢“B=”:A+V→B◢“D=”:A+L→D◢“C=”:D-V→C◢Rec(T,F+180)回车键“Z[1]= ”:W+I→Z[1] ◢“Z[2]= ”:K+J→Z[2] ◢Rec(T,F+GN) 回车键“Z[3]= ”:W+I→Z[3] ◢“Z[4]= ”:K+J→Z[4] ◢Lbl 零回车键“S”?S:“H”?H:“E”?E 回车键S÷(Abs(S+10×10-9))→U:Abs(S)→S回车键If H＜A:Then Goto1:Else If H＜B:Then Goto 2：Else If H ＜C:Then Goto 3: Else If H＜D:Then Goto 4: Else Goto 5:If End If End If End If End If End回车键Rec(Q-H,F+180)回车键W+I→X:K+J→Y回车键Rec(S,F+180-(180-E)U)回车键X+I→X◢Y+J→Y◢SU→S回车键Goto 零回车键Lbl 2回车键H-A→Z◢90Z2÷(ΠRV)→O回车键“X=”:Z-Z∧(5)÷(40R2V2)+ Z∧(9)÷(3456R∧(4)V∧(4))→X回车键Z∧(3)÷(6RV)- Z∧(7)÷(336R∧(3)V∧(3)+ Z∧(11)÷42240 R∧(5)V∧(5)→Z回Lbl 6回车键Rec(X,F) 回车键Z[1]+I→X:Z[2]+J→Y回车键Rec(Z,F+90G) 回车键X+I→X:Y+J→Y回车键Rec(S,F+OG+EU) 回车键“X=”:X+I→X◢“Y=”:Y+J→Y◢SU→S回车键Goto 零回车键Lbl 3回车键H-A-V→Z回车键180V÷(2RΠ)→T回车键180Z÷(RΠ)+T→O回车键“X=”:Rsin(o)+M→X回车键R(1-cos(O))+P→Z回车键Goto 6 回车键Lbl 4回车键D-H→Z回车键90Z2÷(ΠRV)→O回车键“X=”:Z-Z∧(5)÷(40R2V2)+ Z∧(9)÷(3456R∧(4)V∧(4))→X回车键Z∧(3)÷(6RV)- Z∧(7)÷(336R∧(3)V∧(3))+ Z∧(11)÷(42240 R∧(5)V∧(5))→Z回车键Rec(X,F+GN+180) 回车键Z[3]+I→X:Z[4]+J→Y回车键Rec(Z,F+GN+180-90G) 回车键X+I→X:Y+J→Y回车键Rec(S,F+GN+180-OG-(180-E)U) 回车键“X=”:X+I→X◢“Y=”:Y+J→Y◢SU→S回车键Goto 零回车键Lbl 5回车键Rec(H-D+T，F+GN) 回车键W+I→X:K+J→Y回车键Rec(S，F+GN+EU) 回车键“X=”:X+I→X◢“Y=”:Y+J→Y◢SU→S回车键Goto 零Q说明：1、Q?交点桩号列37+549、输37549，W?交点X坐标，K?交点Y坐标，R半径，F？方位角，N转角值，V?缓和曲线，G?左右转角列-1左、1右，S?左右边桩距离左负右正，H?所求点桩号，E?公路角度。
卡西欧5800完整程序
卡西欧5800计算程序（请仔细核对）（程序输完毕后记得先在普通模式扩展变量，输入：35→Dimz，按EXE键，出现Done,扩展成功）ZHYHZ（不运行，该程序为主线坐标的计算程序）E2÷24÷R→Z[1]: E÷2-E^（3）÷(240R2) →Z[2]: F2÷24÷R→Z[3]: F÷2-F^3÷(240R2) →Z[4]: (R+Z[1])tan(H÷2)+Z[2]-（Z[1]-Z[3])÷sin （H）→Z[5]： (R+Z[3])tan (H÷2)+Z[4]+(Z[1]-Z[3])÷sin (H)→Z[6]: tan-1 ((R+Z[1])÷(Z[5]-Z[2]))→ Z[7]: tan-1 ((R+Z[3])÷(Z[6]-Z[4])) →Z[8]: E÷R×90°÷π→Z[9]: F÷R×90°÷π→Z[10]: G+DH→Z[11]: A-Z[5]→Z[12]: Z[12]+E→Z[13]: Z[13]+( 90°-Z[7]-Z[9])Rπ÷180°→Z[14]: Z[13]+(H-Z[9]-Z[10]) Rπ÷180°→Z[15]: Z[15]+F→Z[16]: B+Z[5]cos (G-180°)→Z[17]: C+Z[5]sin (G-180°)→Z[18]: B+Z[6]cos （Z[11]）→Z[19]: C+Z[6]sin （Z[11]）→Z[20] ←┚If K≤Z[14]:Then E→Q: K-Z[12] →L: Else F→Q: Z[16]-K→L:IfEnd ←┚If K≤Z[12]: Then Goto 1：Else If K＞Z[12] And K≤Z[13]: Then Goto 2: Else If K＞Z[13] And K≤Z[14]: Then Goto 3: Else If K ＞Z[14] And K≤Z[15]: Then Goto 4: Else If K＞Z[15] And K≤Z[16]: Then Goto 5: Else If K＞Z[16]: Then Goto 6:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd←┚LbI 1:G→Z[26]: Z[17]-Lcos (G-180°)→Z[21]: Z[18]-Lsin(G-180°) →Z[22]: Goto 9←┚LbI 2: L-L^5÷(40R2Q2) →Z[23]: L^（3）÷(6RQ)- L^（7）÷(336R^（3）Q^（3）) →Z[24]: G+DL2×90°÷(QRπ) →Z[26]: Goto 7←┚LbI 3: (L-Q)×180°÷(Rπ)+Z[9]→Z[25]: Rsin （Z[25]）+Z[2]→Z[23]: R(1-cos （Z[25])）+Z[1]→Z[24]: G+DZ[25]→Z[26]: Goto 7←┚LbI 4: (L-Q)×180°÷(Rπ)+Z[10]→Z[25]: Rsin（ Z[25]）+Z[4]→Z[23]: R(1-cos （Z[25]）)+Z[3]→Z[24]: Z[11]-DZ[25]→Z[26]: Goto 8←┚LbI 5: L-L^5÷(40R2Q2)→Z[23]: L^（3）÷(6RQ)- L^7÷(336R^（3）Q^（3）)→Z[24]: Z[11]-DL2×90°÷(QRπ)→Z[26]: Goto 8←┚LbI 6: Z[11]→Z[26]: Z[19]-L×cosZ[11]→Z[21]: Z[20]-Lsin （Z[11]）→Z[22]: Goto 9←┚LbI 7: Z[17]+Z[23]cos（G）+Z[24]cos(G+D×90°)→Z[21]: Z[18]+ Z[23]sin（G）+Z[24]sin（G+D×90°)→Z[22]: Goto 9←┚LbI 8: Z[19]+Z[23]cos(Z[11]+180°)+Z[24]cos(Z[11]+ D×90°)→Z[21]: Z[20]+Z[23]sin(Z[11]+180°)+Z[24]sin（Z[11]+D×90°)→Z[22]: Goto 9←┚LbI 9: ＂JJ＂?N:＂PJ＂?P: ＂X=＂：Z[21]+Pcos(z[26]+N)→X◢＂Y=＂: Z[22]+Psin(Z[26]+N)→Y◢＂QXFWJ=＂DMS◢←┚ZXZB（该程序为主线程序，只运行该程序）＂CZX＂?S:＂CZY＂?W ←┚LbI 0: ＂K＂?K: If K＜54074.263（第1条曲线的终点桩号带大桩号，也就是是缓直点桩号，下面同上）: Then Goto A：Else If K＜56247.409 （第2条曲线的终点桩号带大桩号）And K≥54074.263（第1条曲线的终点桩号带大桩号）: Then Goto B:Else If K＜58007.266 And K ≥56247.409: Then Goto C:IfEnd:IfEnd:IfEnd←┚（有几条曲线就是几个IfEnd）LbI A: 53203.87266（第1条曲线的交点桩号）→ A: 3560815.660（第1条曲线交点的X坐标）→B:484158.7230（第1条曲线交点的Y 坐标）→ C:76°10＇54.56＂（计算方位角）→G: 16°49＇2.2＂（转角）→ H:-1（路线左右偏，左-，右+）→D:4500（半径）→R:430→（第1缓和曲线的长度）E:430（第2缓和曲线的长度）→F:Prog＂ZHYHZ＂: GotoW←┚（下面同上）LbI B: 55278.9644→ A: 3561878.191→B: 485952.830→ C: 59°21＇52.34＂→G: 19°22＇48.7＂→ H:+1→D:4500→R:430→E:430→F:Prog＂ZHYHZ＂: GotoW←┚LbI C: 57236.8579→ A: 3562263.305→B: 487888.000→ C: 78°44＇41＂→G:14°13＇19.1＂→ H:-1→D:4500→R:430→E:430→F:Prog＂ZHYHZ＂: GotoW←┚LbI W:＂PJ1＂?T←┚If T=0：Then X→Z: Y→M: GotoP: Else GotoV: IfEnd←┚LbI V:＂JJ1＂?O←┚＂X1=＂: X+Tcos（Z[26]+N+O）→U◢＂Y1=＂：Y+Tsin（Z[26]+N+ O）→V◢U→Z: V→M: GotoP←┚LbI P:Pol(Z-S,M-W): If J≤0：Then J+360°→J: IfEnd←┚＂JL=＂:I◢＂FWJ=＂DMS◢Goto0显示：1、CZX？（输入仪站X坐标）2、CZY？(输入仪站Y坐标)3、K？（输入所求桩号，带大桩号）4、JJ？（输入夹角，正交输90°，斜交输夹角）5、PJ？（输入偏距，左负右正，中桩输0）6、X=（所求X坐标）7、Y=（所求Y坐标）8、QXFWJ（所求曲线方位角）9、PJ1?（输入左右边桩再偏距离，前负后正，不需要再偏输0）10、JJ1？（输入左右边桩再偏夹角，上面输0，该步不会显示）11、X1= (所求左右边桩再偏X坐标)12、Y1= (所求左右边桩再偏Y坐标)13、JL= （仪站点至所求点的距离）14、FWJ=（仪站点至所求点的方位角）再往下继续计算Z-ZBFSLbI 0＂DQX＂?W:＂DQY＂?S←┚＂JDX＂?A:＂JDY＂?B:＂A0＂?G:＂ZJ＂?H:＂Z(-1)Y(1)＂?D:＂R＂?R:＂LS1＂?E:＂LS2＂?F:＂K＂?K←┚LbI 1←┚Norm 1: Prog＂ZHYHZ＂: Pol(W-Z[21],S-Z[22]): If J＞0：Then J →J:I→I: Else J+360°→J: I=I:IfEnd←┚J-Z[26]→Z[27]:Icos(Z[27])→Z[28]:K+Z[28]→K: If Abs（Z[28]≥0.001：Then Goto1：Else Fix 3：IfEnd：Isin（Z[27]）→Z[29]: Fix 3:＂FSJL=＂:Z[29] ◢＂FSK=＂:K◢Goto 0反算时要在反算区域正算一次，获取曲线要素显示1、DQX?(输入反算时的X坐标)2、DQY?(输入反算时的Y坐标)3、然后一直按＂EXE＂出现下面的字符4、FSJL= (所求反算左右偏距，左负右正)5、FSK= (所求反算的桩号)6、再按继续运算WN（不运行）＂ZS=1,FS=2＂？N: 1÷P→C:(P-R)÷(2HPH)→D:180÷π→E: If N=1: Then Goto 1: Else Goto 2: IfEnd←┚LbI 1:1→I:0→Z：Abs(K-Ｏ)→W: Prog＂ZS＂←┚F-90→F←┚＂JJ＂?K:＂PJ＂?L: ＂ZX=＂：Z[7]+Lcos(F+K)→Z[3]◢＂ZY=＂: Z[8]+Lsin(F+K)→Z[4]◢＂QXFWJ=＂DMS◢Abs(Z)→Z：Goto 8←┚LbI 2:＂X＂?I:＂Y＂?J: Prog＂FS＂:＂FSZH=＂:Ｏ+W→K◢＂FSJL=＂:Z◢Lbl 8正算子程序（ZS）（不运行）1÷P→C:(P-R)÷(2HPR)→D: 180÷π→E0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1-L→F：1-K→M：U+W（Acos（G+QEKW（C+KWD））+Bcos（G+QELW（C+LWD））+Bcos（G+QEFW（C+FWD））+Acos（G+QEMW（C+MWD）））→Z[7]：V+W（Asin（G+QEKW（C+KWD））+Bsin（G+QELW（C+LWD））+Bsin（G+QEFW（C+FWD））+Asin（G+QEMW（C+MWD）））→Z[8]：G+QEW（C+WD）+90→F：Z[7]+ZcosF→Z[7]：Z[8]+ZsinF→Z[8]3反算子程序（FS）（不运行）G-90→T：Abs（（Z[8]-V）cosT-（Z[7]-U）sinT）→W：0→Z←┚Lbl 0←┚prog＂ZS＂：T+QEW（C+WD）→L：（J-Z[8]）cosL-（I-Z[7]）sinL→Z：If Abs(Z)＜0.001: Then Goto1：Else W+Z→W：IfEnd :Goto 0←┚Lbl 1：0→Z：Prog＂ZS＂：（J-Y）÷sinF→ZZX-WN（运行主程序，该程序适用于匝道，对全段完整非完整曲线计算太过麻烦）＂CZX＂?S(仪站X坐标):＂CZY＂?W（仪站Y坐标）LbI 0: ＂K＂?K: If K≤218.50（第1条单一曲线的终点下面同上）: Then Goto A：Else If K≤373.307 And K＞218.50: Then Goto B:Else If K≤526.691 And K＞373.307: Then Goto C：Else If K≤946.255 And K＞526.691: Then Goto D IfEnd:IfEnd:IfEnd: IfEnd←┚LbI A:3803701.508（起点X坐标）→U:494281.813（起点Y坐标）→V:0起点桩号→O:293°47＇49＂（方位角）→G:218.50（曲线长度）→H:3990.75 （起点半径）→P:3990.75 （止点半径）→R:+1（路线左右偏，左负右正）→Q:Prog ＂WN＂:Goto WLbI B:3803795.099→U:494084.403→V:218.50→O:296°56＇2.4＂→G:154.807→H:10^45 →P:10^45 →R:0→Q:Prog ＂WN＂:Goto W LbI C:3803865.221→U:493946.388→V:373.307→O: 296°56＇2.4＂→G:153.384→H:10^45 →P:496.5 →R:+1→Q:Prog ＂WN＂:Goto W LbI D:3803941.562→U:493813.538→V:526.691→O: 305°47＇3.15＂→G:419.564→H:496.5 →P:496.5 →R:+1→Q:Prog ＂WN＂:Goto WLbI W:＂PJ1＂?T←┚（该项是只左右边桩再左右偏距，输0为不再左右偏，适用于桥梁桥台、盖梁、涵洞八字墙等放样，以路线前进方向，前-，后+）If T=0：Then Z[3]→Z: Z[4]→M: Goto P: Else Goto V: IfEnd←┚LbI V:＂JJ1＂?O←┚（左右边桩再偏夹角，用180°减去路线夹角）＂X1=＂: Z[3]+Tcos（F+K+O）→U◢＂Y1=＂ :Z[4]+Tsin（F+K+ O）→V◢U→Z: V→M: GotoP←┚LbI P:Pol(Z-S,M-W): If J≤0：Then J+360°→J: IfEnd←┚＂JL=＂:I◢（仪站至测点的距离）＂FWJ=＂DMS◢（仪站至测点的方位角）Goto01．规定以道路中线前进方向（即里程增大的方向）区分左右；当线元往左偏时Q=-1；当元线往右偏时，Q=1：当元线为直线时，Q=0°2．当所求点位于中线时，Z=0；当位于中线左侧时，Z取负值：当位于中线右侧时，Z取正值°当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次方代替°3．当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径°4．当线元为完整的缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次方代替°与圆曲线相接时，曲率半径等于圆曲线的半径，止点跟直线相接时，曲率半径为无穷大，以10的45次方代替；与圆曲线相接时，曲率半径等于圆曲线的半径°5．当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线衔接时，曲率半径等于圆曲线的半径°止点与直线相接时，曲率半径等于设计规定的值；与圆曲线衔接时，曲率半径等于圆曲线的半径°二、输入与显示说明1.输入部分：2.. 输入3.ZS=1，FS=2，选择计算方式，输入1正算；输入2反算4.数据库的输入5.U？线元起点的X坐标6.V？线元起点的Y坐标7.O？线元起点的里程8.G？线元的起点切点方位角9.H？线元的长度10.P？线元起点的曲率的半径11.R？线元止点的曲率的半径.12.ZY？线元左右偏标志（左偏Q=-1，右偏Q=1，直线段Q=0）13.计算时：14.K？正算时所求的里程15.JJ？夹角，（正交90°，斜交直接输角度）16.PJ？偏距（左负右正）17..结果18.ZX=正算时，计算得出的测点的X坐标19.ZY=正算时，计算得出的测点的Y坐标20.QXFWJ=正算时，测点对应中线点的切线方位角21.PJ1?：左右桩号再偏距离，不需要时输022.JJ1? :左右边桩再偏角度23.JL=仪站与测点的距离24.FWJ=仪站与测点的方位角25.反算时输入：26.X？反算时所求点的X坐标27.Y？反算时所求点的Y坐标28.结果29.FSZH=反算时，计算得出的所求点的里程30.FSJL=反算时，计算得出的所求点的边距（负为左偏，正为右偏）GCJSAbs(C-D)×R÷2→Z[1]: A-Z[1]→Z[2]: A+Z[1]→Z[3]:If D-C＞0：Then 1→E:Else -1→E:IfEnd←┚If K≤Z[2] ：Then Goto 1：Else If K＞Z[2] And K≤A: Then Goto 2: Else If K＞A And K≤Z[3]: Then Goto 3: Else IF K>Z[3]:then Goto 4:IfEnd:IfEnd:IfEnd:IfEnd←┚LbI 1： Z[2]-K→L: B-(Z[1]+L)×C→H: Goto 5←┚LbI 2: K-Z[2]→L: B-(Z[1]-L)×C+E×L2÷R÷2→H: Goto 5←┚LbI 3: Z[3]-K→L: B+(Z[1]-L)×D+E×L2÷R÷2→H: Goto 5←┚LbI 4: K-Z[3]→L: B+(Z[1]+L)×D→H:Goto 5←┚LbI 5:＂EL=＂：H◢←┚主线高程（ZXGC）LbI 0: ＂K＂?K: If K≤552.156（第1条竖曲线的终点下面同上）: Then Goto A：Else If K≤1352.805 And K＞552.156: Then Goto B:Else If K≤2045.311 And K＞1352.805: Then Goto C:Else If K≤2493.942 And K＞2045.311: Then Goto D：Else If K≤3265.244 And K＞2493.942: Then Goto E：IfEnd:IfEnd:IfEnd:IfEnd: IfEnd←┚LbI A: 501.436（边坡点桩号）→ A: 226.395（边坡点高程）→B: -0.0257（边坡点前坡比）→ C: -0.005（边坡点后坡比）→D:4900（半径）→R: Prog＂GCJS＂: Goto F←┚（下面同上）LbI B: 1303.305→A: 222.386→B: -0.005→ C: 0.04→D:2200→R: Prog＂GCJS＂: Goto F←┚LbI C: 1985.311→A: 249.666→B: 0.04→ C: -0.04→D:1500→R: Prog＂GCJS＂: Goto F←┚LbI D: 2425.578→A: 232.055→B: -0.04→ C: -0.0218→D:7500→R: Prog＂GCJS＂: Goto F←┚LbI E: 2849.694→A: 222.823→B: -0.0218→ C: -0.03→D:6000→R: Prog＂GCJS＂: Goto F←┚LbI F：If K≤309.562（第1条曲线的终点）: Then Goto 1：Else If K≤1053.022 （第2条曲线终点）And K＞309.562: Then Goto 2:Else If K≤1354.954 And K＞1053.022: Then Goto 3:Else If K≤1613.025 And K＞1354.954: Then Goto 4：Else If K≤1863.124 And K＞1613.025: Then Goto 5：Else If K≤2937.433 And K＞2312.560: Then Goto 6：Else If K≤3145.553 And K＞2937.433: Then Goto 7：IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:←┚LbI 1: -0.015（直线段横坡）→ F: -0.02（圆曲线线段横坡）→G: 126.9（第1缓和曲线起点）→ I: 176.9（第1缓和曲线终点）→J:259.562（原曲线终点）→L: 309.562(第2缓和曲线终点)→M: 1(方向,左负右正)→N :Goto G←┚（下面同上）LbI 2: -0.015→ F: -0.02→G: 860.749→ I: 920.749→J:993.022→L: 1053.022→M:-1→N :Goto G←┚LbI 3: -0.015→F: -0.02→G: 1248.441→I: 1283.441→J:1319.954→L: 1354.954→M:+1→N :Goto G←┚LbI 4: -0.015→F: -0.02→G: 1439.731→I: 1489.731→J:1563.025→L: 1613.025→M:-1→N :Goto G←┚LbI 5: -0.015→ F: -0.02→G: 1712.165→ I: 1757.165→J:818.124→L: 1863.124→M: 1→N :Goto G←┚LbI 6: -0.015→F: -0.02→G: 2121.544→I: 2121.544→J:2312.560→L: 2312.560→M: 1→N :Goto G←┚LbI 7: -0.015→F: -0.02→G: 2752.223→I: 2812.223→J:2877.433→L: 2937.433→M: 1→N :Goto G←┚LbI 8: -0.015→F: -0.02→G: 3060.515→I: 3060.515→J:3145.553→L: 3145.553→M:-1→N :Goto G←┚LbI G:IfK≤I:Then Goto H :Else If K≤J And K＞I: Then Goto I: Else If K≤L And K＞J: Then Goto J: Else If K≤M And K＞L: Then Goto K: Else If K＞M: Then Goto L: IfEnd:IfEnd:IfEnd:IfEnd: IfEnd←┚LbI H:F→Z:F→Y: Goto 9LbI I:J=I=＞Goto J:（(K-I)× (Abs(F)+ Abs(G))）÷(J-I) -Abs(F)→Z[1]:If N=-1: Then Goto M: Else Goto N: IfEnd←┚LbI M:Z[1]→Y:If Z[1]≤-F:Then F→Z:Else –Z[1]→Z: IfEnd :Goto 9LbI N:Z[1]→Z:If Z[1]≤-F:Then F→Y:Else –Z[1]→Y: IfEnd :Goto 9LbI J:If N=-1:Then G→Z:-G→Y:Else -G→Z: G→Y: IfEnd: Goto 9←┚LbI K: M=L=＞Goto L: (M-K)×(Abs(F)+ Abs(G))÷(M-L)- Abs(F)→Z[2]: If N=-1: Then Goto P: Else Goto Q: IfEnd←┚LbI P:Z[2]→Y:If Z[2]≤-F:Then F→Z:Else –Z[2]→Z: IfEnd :Goto 9LbI Q:Z[2]→Z:If Z[2]≤-F:Then F→Y:Else –Z[2]→Y: IfEnd :Goto 9LbI L:F→Z:F→Y: Goto 9Lbl 9:＂ZC=1,YC=2＂?X:If X=1:Then Goto V:EIse Goto W: IfEnd Ibl V:” BJZ”?J:”BHZ=”:H+J×Z◢Goto 0Ibl W:” BJY”?S:”BHY=”:H+S×Y◢Goto 0显示K？输入桩号显示结果：EL= 所求点中桩高程显示“ZC=1,YC=2”？左侧边桩输1，右侧边桩输2显示“BJZ”或“BJY”输入左右边桩的距离显示结果：“BHZ=”或“BHY=”所求点左右边桩的高程。
缓和曲线不相等直线曲线放样程序
缓和曲线不相等直线曲线放样程序该程序适用于计算器CASIO fx-5800p，可计算线路中的缓和曲线、圆曲线、直线段，中、边桩（包括超宽段）坐标及切线方位角，高程。
（缓和曲线不相等：LS1≠LS2）J ？输入转角：左转为负，右转为正LS1、LS2 ？输入缓和曲线长度JD ？输入交点里程桩号R ？输入圆曲线半径X（JD）？输入本交点X 坐标Y（JD）？输入本交点Y 坐标FWJ ？输入第一切线方位角（ZH至JD的方位角）P？输入里程桩号(待求点)BZ：边距；BJ：（Z：-,Y：+）边转角◢为输出指令→相当于＝号（）括号中说明，无需输入←┚为回车键标识O输0计算中桩坐标和高程；O输1计算边桩坐标和高程；O输2计算超宽边桩坐标和高程。
调用程序时带有？号为输入项，无？号则为程序计算项注意：斜交时求边桩输入转角时左侧输入（转）交角的补角；即BJ（K）±180该程序可计算范围：从上一个单元曲线的缓直点（HZ）到下一个单元曲线的直缓点（ZH）范围内都可用该程序计算中桩坐标和高程，边桩（包括超宽段）的坐标和高程。
①LS1＝0、LS2＝0，则为无缓和曲线的单圆曲线段；（LS1和LS2不能输入0，应输入一个极微的小数，如0.0000001）；②LS1＝0、入口无缓和曲线段；③LS2＝0、出口无缓和曲线段；④LS1＝LS2、为相等缓和曲线段；⑤LS1≠LS2、为不相等的缓和曲线段。
该程序简单、方便、易懂。
完全能满足公路、铁路、和其他各种道路的施工放样作业。
程序中关键部位附有标注。
已知：缓和曲线中缓和曲线长分别为L01、L02，圆曲线半径R ，交点JD 转（外）角α；求其余各要素。
基本计算公式：β角 β01＝（90×L01）÷（πR ）β02＝（90×L02）÷（πR ）缓和曲线增值 q1＝L01÷2－L013÷（240R 2）q2＝L02÷2－L023÷（240R 2）内移值 P1＝L012÷（24R ）－L014÷（2688R 3）P2＝L022÷（24R ）－L024÷（2688R 3）Z1＝（P1－P2）÷tan α Z2＝（P1－P2）÷sin α公切线长 T ＝（R ＋P2）× tan （α÷2）第一切线长 T1＝q1＋T －Z1第二切线长 T2＝q2＋T －Z2圆曲线圆心角 αy ＝α－β01－β02圆曲线长 Ly ＝（πR αy ）÷180曲线全长 L ＝L01＋Ly ＋L02新外角 α1＝tan -1（（T1－q1）÷（R ＋P1））α2＝tan -1（（T2－q2）÷（R ＋P2））外矢距 E1＝（R ＋P1）÷（cos α1）－RE12＝（R ＋P2）÷（cos α2）－RE ＝（E1＋E2）÷2或者：E ＝（R ＋（P1＋P2）÷2）÷cos （α÷2）－R第一圆弧长 Ly1＝（πR ）÷180－（α1－β01）第二圆弧长 Ly2＝（πR ）÷180－（α2－β02）缓和曲线参数 A1＝01RL A2＝02RL缓和曲线上（ZH ～HY 或YH ～HZ ）任意一点有关要素横距 Q ＝L －L 5÷（40R 2L02）＋L 9÷（3456R 4L04）纵距 I ＝L 3÷（6RL0）－L 7÷（336R 3L03）夾角 U ＝tan -1（I ÷Q ） 弦长 C ＝22I Q ＋弦切角 G ＝（90L 2）÷（πR L0）计算方位角 J ＝F0（ZH 或HZ ）＋WU （W ：Z-1，Y+1）方位角 F ＝JHY 点:横距和纵距Q ＝M －M 3÷（40R 2）＋M 5÷（3456R 4）－M 7÷（599040R 6）I ＝M 2÷（6R ）－M 4÷（336R 3）＋M 6÷（42240R 5）圆曲线上（HY ～YH ）任意一点有关于要素（支距法）弦切角 U ＝（90L ）÷（πR ） 弦长 C ＝2R sin U方位角 J ＝F （HY ）＋WU ＝F （W ：Z-，Y+）程序名：ZHYQX ( 5800计算器 ) 作者：徐金树Deg ←┚ ClrStat ←┚30→DimZ ←┚ (扩展变量数据)Lbl 0←┚“J ：Z-，Y+”？J ：？R ：“LS1”？M ：“LS2”？N ：“JD ”？T ←┚M ∧（2）÷（24R ）－M ∧（4）÷（2688R ∧（3））→Z [1] ←┚（内移值p1）N ∧（2）÷（24R ）－N ∧（4）÷（2688R ∧（3））→Z [2] ←┚（内移值p2）M ÷2－M ∧（3）÷（240R ∧（2））→Z [3] ←┚（缓和曲线增值q1）N ÷2－N ∧（3）÷（240R ∧（2））→Z [4] ←┚（缓和曲线增值q2）（90×M ）÷（π×R ）→Z [5] ←┚ （β角1）（90×N ）÷（π×R ）→Z [6] ←┚ （β角2）（Z[1]－Z[2]）÷ tan （Abs(J)）→Z[7] ←┚ （Z1即m1）（Z[1]－Z[2]）÷ sin （Abs(J)）→Z[8] ←┚ （Z2即m2）Abs(J)－Z[5]－Z[6]→Z[9] ←┚（圆心角αy）（R＋Z[2]）×tan（Abs(J)÷2）→Z[10]←┚（公切线T）“T1=”：Z[3]＋Z[10]－Z[7]→Z[11]◢（第一切线长）“T2=”：Z[4]＋Z[10]－Z[8]→Z[12]◢（第二切线长）“LY=”：（Abs（J）－Z[5]－Z[6]）×π×R÷180→Z[13]◢（圆曲线长Ly）“L=”：M＋Z[13]＋N→Z[14]◢（曲线全长L）“E=”：（R＋（Z[1]＋Z[2]）÷2）÷cos（Abs(J)÷2）－R →Z[15]◢（外矢距E）“ZH=”：T －Z[11] → Z[16] ◢（直缓点）“HY=”： Z[16]＋M →Z[17] ◢（缓圆点）“QZ=”： Z[16]＋M＋Z[13]÷2→Z[18] ◢（曲中）“YH=”： Z[16]＋M＋Z[13]→Z[19] ◢（圆缓点）“HZ=”： Z[16]＋Z[14] →Z[20] ◢（缓直点）“X（JD）”？A：“Y（JD）”？B：“FWJ”？F：←┚“P0”？V ：（变坡起点桩号）“H0”？H ←┚（变坡起点高程）“W：＋，－”？W ←┚（变坡比、上＋,下－）If J＜ 0 （0 为数字）：Then－1→I：Else 1→I：If End ←┚M－M∧（3）÷（90×R∧（2））→Z[21] ←┚30×I×M÷（π×R）→Z[22]←┚A＋Z[11]×cos（F＋180）＋Z[21]×cos（F＋Z[22]）→Z[23]←┚B＋Z[11]×sin（F＋180）＋Z[21]×sin（F＋Z[22]）→Z[24]←┚Lbl 1←┚？P ←┚If P ≤Z[16] ：(ZH点) Then P－T → C ←┚F →G ←┚“FWJ=”： F → U ：U▶DMS◢Goto 2 ←┚If End ←┚If P ≤Z[17] ：(HY点) Then P－Z[16] → L ←┚L－L∧（5）÷（90×R∧(2)×M∧(2）)→ C ←┚30×I×L∧(2)÷（π×R×M）→ S←┚F＋180 → G ←┚ F＋S→ Q ←┚“FWJ=”： F＋3 S → U ：U▶DMS ◢Goto 3 ←┚If End ←┚If P ≤Z[19] ：(YH点) ThenF＋3×Z[22]＋（P－Z[17]）×90×I÷π÷R→ G ←┚2×R×sin（（P－Z[17]）×90÷π÷R）→ C ←┚F＋3×Z [22]＋（P－Z [17]）×180×I÷π÷R→ U←┚“FWJ=”：U → U ：U ▶DMS◢Goto 4 ←┚If End ←┚If P ≤Z[20]：(HZ点) Then Z[20] －P → L ←┚L－L∧（5）÷（90×R∧(2)×N∧(2)）→ C ←┚30×I×L∧(2)÷（π×R ×N）→ S ←┚F＋J → G ←┚F＋J＋180－S → Q ←┚“FWJ＝”：F－3S＋J → U ：U▶DMS◢Goto 5 ←┚If End ←┚If P＞Z[20] ：(HZ点) ThenP－Z[20]＋Z[12] →C←┚F＋J → G ←┚“FWJ＝”：G → U ：U ▶DMS◢Goto 2 ←┚Lbl 2 ←┚“X=”：A＋C×cos（G）→ X ◢“Y=”：B＋C×sin（G）→ Y ◢“Z=”：H＋W（P－V）→ Z◢（计算中桩高程）Goto 7←┚If End ←┚Lbl 6 ←┚“BJ：Z-,Y+”？K ：（边桩转角）“BI：＋，－”？E：（横坡比）“BD”？D：（路基宽度）“XB=”：X＋D×cos（U＋K）→Z[25] ◢“YB=”：Y＋D×sin（U＋K）→Z[26] ◢“BZ=”：Z＋E×D→ Z[27] ◢（计算边桩高程）Goto 1 ←┚Lbl 3 ←┚“X=”：A＋Z[11]×cos（G）＋C× cos（Q）→ X ◢“Y=”：B＋Z[11]×sin（G）＋C× sin（Q）→ Y ◢“Z=”：H＋W（P－V）→ Z ◢（计算中桩高程）Goto 7 ←┚Lbl 4 ←┚“X=”：Z[23]＋C×cos（G）→ X ◢“Y=”：Z[24]＋C×sin（G）→ Y ◢“Z=”：H＋W（P－V）→ Z ◢（计算中桩高程）Goto 7 ←┚Lbl 5 ←┚“X=”：A＋Z[12]×cos（G）＋C× cos（Q）→ X ◢“Y=”：B＋Z[12]×sin（G）＋C× sin（Q）→ Y ◢Goto 7 ←┚Lbl 8 ←┚“B0：＋，－”？L：（超宽起点ZH或终点HZ桩号）“BB”？I：（曲中QZ最宽宽度）“BS”？S：（一般路基宽度）I÷Abs（Z[18]－L）→Z[28] ←┚（超宽比值）Z[28]×Abs（P－L）＋S→D ←┚（该桩号的超宽量）Goto 6 ←┚Lbl 7 ←┚“O＝0, 1, 2，3”？O←┚O＝1＝＞Goto 1 ←┚（O为字母）O＝2＝＞Goto 6 ←┚（O为字母）O＝3＝＞Goto 8 ←┚（O为字母）Goto 0 ←┚。
卡西欧5800程序使用说明
“SBJS”坐标计算程序
此说明适用于有对称完整的缓和曲线，圆曲线
“X0”后视点X坐标，
“Y0”后视点Y坐标，
“X1”测站点X坐标，
“Y1”测站点Y坐标，
“ANGLE”测站点坐标方位角，
“DIST”测站点到后视点的距离，
“KJD”交点桩号
“XJD”交点X坐标，“YJD”交点Y坐标
“FWJ”方位角，“O”转角，“FH”左转为-1，右转为1
“A1”第一个缓和曲线的缓和参数，“R”第一个缓和曲线的半径
“A2”第二个缓和曲线的缓和参数，
“T1、T2”第一、二切线长，
“K”放样点桩号，“DD1”距中桩的距离（左边为正数，右边为负数），“JJ1”与路线方向的右夹角（90度时为0，95度时为5度，85度时为-5度）
“DD2，JJ2”全部输0，
“X2，Y2”所求点的坐标，“ANGLE”测站点于所求点的方位角，“DIST”测站点到所求点的距离。
“SJGC”计算路面标高的程序
“KJD”交点桩号，
“HJD”交点桩号的高程，
“I1、I2”前、后纵坡值（这个值最好自己算，多保留几位小数，图纸上的数据只保留了三位小数，使用图纸的数据可能计算出来的标高有差异），
“R”竖曲线半径，
“K”所求桩号，
“DD”距中桩的距离（方向是与路线方向成90度角的，计算中桩时输0），
“HP”横坡值（边桩比中桩高时输正数，边桩比中桩低时输负数），“HZ”所求点中桩高程，
“HB”所求点边桩高程。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
正算主程序(ZS)
Lb1 0
FIX4：?S：?Z：Prog“PM-SJ”：Abs(S-O) →W：Prog "SUB1"："XS="：X◢
"YS="：Y◢F-90→F(需要时可以让他显示，不要时不必输入)：Prog“SQX-SJ”: Prog“SQX”：“H=”：H◢
Goto 0
S代表正算桩号
Z代表偏距左负右正
XS所求点的X坐标
YS所求点的Y坐标
H所求桩号设计高程
反算主程序(FS)
Lb1 0
FIX4：?X：?Y：Prog“PM-SJ”：X→I:Y→J: Prog "SUB2"："S="：O+W→S◢
"Z="：Z◢
Prog“SQX-SJ”: Prog“SQX”：“H=”：H◢
Goto 0
X测点的X坐标
Y测点的Y坐标
S测点的桩号
Z测点的偏距左负右正
H测点所在桩号的设计高程
正算子程序(SUB1)：
1÷P→C: (P-R)÷(2HPR) →D：180÷π→E：0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1-L→F：1-K→M：U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW( C+MWD))) →X：V+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+ZcosF→X：Y+ZsinF→Y
反算子程序(SUB2)：
G-90→T
Abs((Y-V)cosT-(X-U)sin（T）) →W：0→Z：Lbl 0：Prog "SUB1"：T+QEW(C+WD) →L：(J-Y)cosL-(I-X)sinL→Z：ifAbsZ<1E-6：thenGoto1：ElseW+Z→W：Goto 0：IfEnd←┘：
Lbl 1:0→Z：Prog "SUB1"：(J-Y)÷sinF→Z
子程序（平面线形数据库）PM-SJ
直线
ifS≥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（线元起点曲率半径）：10^（45）→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←┘
子程序（竖曲线数据库）SQX-SJ
ifS≤999.812（竖曲线终点里程）：then0.0357（前坡度：上坡正下坡负）→E：0.0227（后坡度：上坡正下坡负）→F：600→R（竖曲线半径）：780→G（变坡点里程）：110→C（变坡点高程）：IfEnd←┘
子程序（竖曲线计算公式）SQX
E-F→J：ifJ＞0：then-R→R：ElssR→R：Abs（R*J÷2）→T：IfEnd←┘
ifS≤G-T：thenG-S→L：C-LE→H：IfEnd←┘
ifS＞G-T And S≤G：thenG-S→L：（S+T-G）2÷2÷R→N：C-LE+N →H：IfEnd←┘
ifS＞G And S≤G+T：then S-G→L：（G +T- S）2÷2÷R→N：C+LF+N →H：IfEnd←┘
ifS＞G+T ：thenS-G→L：C+LF →H：IfEnd←┘
三、使用说明
1、规定
(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
(2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z 取正值。
(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。
(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。
(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。
止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。
(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。
止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。