卡西欧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。

5800坐标计算,竖曲线缓和曲线程序

(E-D)÷Abs(G-F) →P:Abs (H-F) →Q:PQ→I:C+90Q(I+2D) ÷π→J:C+45Q(I÷8+D) ÷π→M:C+135Q(3I÷8+D) ÷π→N:C+45Q(I÷2+2D) ÷π→K
A+Q(Cos(C) +4(Cos(M)+Cos(N))+2Cos(K)+Cos(J))÷12→U:
Lbl 4: ＂END″
说明：QZHAO：曲中点里程（竖曲线），QDHAO：起点里程，ZDHAO：终点里程，B—HB曲中点高程，SX：上下（路面标高下多少为水稳层面），I1：第一坡度，I2：第二坡度，R：半径，T切线长，L—DQHAO：待求点里程，PY：偏移（中桩到边桩的距离），XIELV：斜率（横坡的坡度，左负右正）o-YIGAO：仪器高a
Goto 1
Lbl 2
L<G Goto 4
＂HL=″:B+0.01 (L-J)C+0.01UV+Q →H
＂H0=″:o-H→H
Goto 1
Lab 3
L>K Goto 4
＂HL=″:B+0.01 (L-J)D+0.01UV+Q →H
＂HO=:o-H→Z
Goto 1
Lbl 1
＂L—DQHAO=″?L:＂PY=″?U:＂XIELV=″?V
If L<X:Then Goto 2:Else If L＞Y:Then Goto 3:If End:I End
＂HL=″:B+0.01C(L-J)+A(L-J+T) ÷(2R)+0.01UV+Q→Q

卡西欧5800道路编程程序

卡西欧5800道路编程程序相关搜索: 卡西欧, 道路, 程序说明:该程序适用于计算器CASIO fx-5800P,可计算线路中心的缓和曲线、圆曲线、直线段,中、边桩坐标及切线方位角。

1、A? 输入转角:左转为负,右转为正2、R? 输入圆曲线半径3、LS? 输入缓和曲线长度4、JD(DK)? 输入交点里程桩号5、X(JD)? 输入本交点X坐标6、Y(JD)? 输入本交点Y坐标7、FWJ? 输入待求点切线方位角9、J? 输入0程序计算中桩,输入1程序计算边桩10、Z? 输入里程桩号1 A:R:C“LS”:D“JD(DK)”2 P=C∧2/24/R-C∧4/2688/R∧33 Q=C/2-C∧3/240/R∧24 B=90C/兀/R5 T=(R+P)tan(AbsA/2)+Q◢6 W=(R+P)/cos(A/2)-R◢7 L=((AbsA)-2B)兀R/180+2C◢8 G“ZH”=D-T◢9 H“HY”=G+C◢10 I“QZ”=G+L/2◢11 K“YH”=G+L-C◢12 M“HZ”=G+L◢13 N”X(JD)”:E”Y(JD)”:F”FWJ”: J14 A<0=>S=-1:≠=>S=1⊿(提示:0为数字“0”)15 U=F+A/2+90S16 V=W+R17 B=N+VcosU18 O=E+VsinU (提示:O为字母“O”)19 Lbl 120 {Z}21 Z≤G=>L=T+G-Z22 V=F+18023 U=F24 Goto 2⊿25 Z≤H=>L=Z-G26 V=L-L∧5/(90R∧2C∧2)27 L=30L∧2S/(兀RC)28 P=F+18029 Q=F+L30 U“FWJ”=F+3L◢31 Goto 4⊿32 Z≤K=>L=F+A/2+90S+180+180(Z-I)S/R/兀33 U“FWJ”=L+90S◢34 Goto 5⊿35 Z≤M=>L=M-Z36 V=L-L∧5/(90R∧2C∧2)37 L=30SL∧2/(兀RC)38 P=F+A39 Q=F+A+180-L40 U=F-3L+A◢41 Goto4⊿42 Z>M=>L=Z-M+T43 U=F+A44 V=U45 Goto 246 Lbl 247 X=N+LcosV◢48 Y=E+LsinV◢49 Goto 6⊿50 Lbl 351 {W}52 P“XL”=X+Wcos(U-90) ◢53 Q“YL”=Y+Wsin(U-90) ◢54 P“XR”=X+Wcos(U+90) ◢55 Q“YR”=Y+Wsin(U+90) ◢56 Goto 157 Lbl 458 X=N+TcosP+VcosQ◢59 Y=E+TsinP+VsinQ◢60 Goto 661 Lbl 562 X=B+R cosL◢63 Y=O+RsinL◢(提示:O为字母“O”)64 Goto 665 Lbl 666 J=1=> Goto 3⊿67 Goto 1注:1、◢为输出指令,若在后面加上,即可显示前面的计算结果输出在屏幕上。

卡西欧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”所求点边桩高程。

卡西欧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=〃RLbl 1”DQHAO=〃LL<G Or L＞C GOTO 2”PY=〃K180(L-G)÷(πR) →E2RSin →FReC(Abs(F),D+：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(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) →HLbl 1”END〃说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。

卡西欧5800自编程序

＂Ａ＂？Ａ：＂Ｒ＂？Ｒ：＂ＺＨ＂？Ｅ：＂ＦＷＪ＂？Ｖ：＂Ｌ１＂？Ｌ：＂Ｌ２＂？Ｍ：＂Ｘ０＂？Ｇ：＂Ｙ０＂？Ｈ：＂Ｌ：－１Ｒ：１＂？Ｗ：Ａ＝９０＝＞Ａ－１μ→Ａ： LbI ０：＂ＬＮ＂？Ｚ：Ａbs （Ｚ－Ｅ）→Ｋ：０．５Ｌ－Ｌ３／（２４０Ｒ２→Ｎ：０．５Ｍ－Ｍ３／２４０／Ｒ２→Ｏ：Ｌ２／（２４Ｒ）－Ｌ４／（２６８８Ｒ３→Ｐ：Ｍ２／２４／Ｒ－Ｍ４／２６８８／Ｒ３→Ｑ：Ｎ－（Ｒ＋Ｐ）／tan Ａ＋（Ｒ＋Ｑ）／sin Ａ→Ｔ：Ｏ－（Ｒ＋Ｑ）／tan Ａ＋（Ｒ＋Ｐ）／sin Ａ→Ｕ：∏ＲＡ／１８０＋０．５（Ｌ＋Ｍ）→Ｓ：Ｚ＜Ｅ＝＞Ｖ＋１８０→Ｆ：Ｚ＞Ｅ＝＞ＧＯＴＯ１＂Ｘ＝＂：Ｇ＋Ｋcos Ｆ▲＂Ｙ＝＂：Ｈ＋Ｋsin Ｆ▲＂Ｓ＂？Ｃ：Ｃ≠０＝＞ＧＯＴＯ６ＧＯＴＯ０LbI ６：＂Ｘ＝＂：Ｘ＋Ｃcos Ｆ＋９０▲＂Ｙ＝＂：Ｙ＋Ｃsin Ｆ＋９０▲ＧＯＴＯ０LbI １：Ｋ＞Ｌ＝＞ＧＯＴＯ２：９０Ｋ２／（∏ＲＬ→Ｂ：Ｋ－Ｋ５／（２４０Ｒ２Ｌ２→Ｘ：Ｋ３／（６ＲＬ）－Ｋ７／（３３６Ｒ３Ｌ３→Ｙ：ＧＯＴＯ５：LbI ２：Ｋ＞Ｓ－Ｍ＝＞ＧＯＴＯ３：１８０（Ｋ－０．５Ｌ）／（∏Ｒ）→Ｂ：Ｎ＋Ｒsin Ｂ→Ｘ：Ｐ＋Ｒ（１－cos Ｂ）→Ｙ：ＧＯＴＯ５：LbI ３：Ｋ＞Ｓ＝＞ＧＯＴＯ４：Ａ－９０（Ｓ－Ｋ）２／（∏ＲＭ→Ｂ：Ｔ＋Ｒec(Pol(Ｕ－（Ｓ－Ｋ）＋（Ｓ－Ｋ）５／（４０Ｒ２Ｍ２，（Ｓ－Ｋ）３／（６ＲＭ）－（Ｓ－Ｋ）７／（３３６Ｒ３Ｍ３，Ａ＋Ｊ→Ｘ：Ｊ→Ｙ：ＧＯＴＯ５：LbI ４：Ａ→Ｂ：Ｔ＋Ｒec （Ｕ＋Ｋ－Ｓ，Ｂ→Ｘ：Ｊ→Ｙ：LbI ５：Ｉ＝Pol （Ｘ，Ｙ：Ｊ→Ｊ：＂Ｘ＝＂：Ｇ＋Ｉcos （Ｖ＋ＪＷ▲＂Ｙ＝＂：Ｈ＋Ｉsin （Ｖ＋ＪＷ▲＂Ｓ＂？Ｃ：Ｃ≠０＝＞ＧＯＴＯ７ＧＯＴＯ０LbI ７：＂Ｘ＝＂：Ｘ＋Ｃcos （Ｖ＋ＷＢ＋９０▲＂Ｙ＝＂：Ｙ＋Ｃsin （Ｖ＋ＷＢ＋９０▲ＧＯＴＯ０Ａ为JD 点转角 R 为半径 ZH 为起点里程FWJ 为起点方位角 L1、L2为缓和曲线长 X0、Y0为起点坐标 L ：－１ R ：1为路线方向左为负、右为正 LN 为所求点里程 S 为左右边桩：左为负、右为正＂Ｈ＝＂？Ｈ：＂Ｋ＝＂？Ｋ：＂Ｔ＝＂？Ｔ：＂Ｒ＝＂？Ｒ：＂Ｉ１＝＂？Ａ：＂Ｉ２＝＂？Ｂ：Lbl０：＂Ｐ＝＂？Ｐ：Ｐ<(Ｋ－Ｔ)=>GOTO 1:P>(K+T) =>GOTO 2If Ｋ≥Ｐ：Ｔhen –A→C:Else P-K→G:ifEndIf Ｋ≤Ｐ：Ｔhen B→C:Else K-P→G:ifEndA-B→QIf Q<0：Ｔhen 1→M: ifEndIf Q>0：Ｔhen -1→M: ifEnd＂ＨＰ＝＂：Ｈ＋ＣＧ＋Ｍ（Ｔ－Ｇ）２／（２Ｒ◢GOTO 0Lbl１：＂ＨＰ＝＂：Ｈ－Ａ(Ｋ－Ｐ◢GOTO 0Lbl 2：”HP=”：H+B(P－K◢GOTO 0H 为交点高程K为交点里程T为切线R为半径I1、I2 为坡度P为所求点里程＂Ｘ０＂？Ｃ：＂Ｙ０＂？Ｄ：＂Ｘ１＂？Ｅ：＂Ｙ１＂？Ｆ：＂Ｒ＂？Ｒ：pol（E-C，F-D）：cls：I→S：IF J＜０：Ｔhen J+360→A:Else J→A:ifend:＂-L,+R(Deg)＂?Q:IF Q<0:Then -1→N:Else 1→1:IFend: ＂ZY＂?WLbl 0:＂LN＂?T:T-W→O:Sin-1 (S/2/R) →K:90O/(πR)→G:2RSin(G)→H: ＂X=＂:C+Hcos(A-KN+GN)→Z[3]◢＂Y=＂:D+Hsin(A-KN+GN)→Z[4]◢＂S＂?V:V≠0=>GOTO 1GOTO 0Lbl 1:＂X=＂:Z[3]+Vcos(A-KN+2GN+90◢＂Y=＂:Z[4]+Vsin(A-KN+2GN+90◢GOTO 0X0、Y0为起点坐标X1、Y1为终点坐标R为半径Q为路线转角左为—1、右为+1 ZY为起始点里程LN为所求点里程S为边桩距离左为负数、右为正数“X”?C:”Y0”?D:”R”?R:”FWJ”?V:”L-1 R:1”?W:”ZY”?QLbl 0:”LN”?Z:Z-O→L:180L/(πR)→B:R Sin(B→X:R(1-cos(B→Y:pol（X,Y→I:J→J: IF J＜０：Ｔhen J+360→J:Else J→J:ifend:”X=”:C+I cos(V+JW◢”X=”:D+ISin (V+JW◢GOTO 0＂Ｘ０＂？Ｃ：＂Ｙ０＂？Ｄ：＂Ｘ１＂？Ｅ：＂Ｙ１＂？Ｆ：＂Ｒ＂？Ｒ：pol（E-C，F-D）：cls：I→S：IF J＜０：Ｔhen J+360→A:Else J→A:ifend:＂-L,+R(Deg)＂?Q:IF Q<0:Then -1→N:Else 1→1:IFend: ＂ZY＂?WLbl 0:＂LN＂?T:T-W→O:Sin-1 (S/2/R) →K:90O/(πR)→G:2RSin(G) →H: ＂X=＂:C+Hcos(A-KN+GN)→Z[3]◢＂Y=＂:D+Hsin(A-KN+GN)→Z[4]◢＂S＂?V:V≠0=>GOTO 1GOTO 0Lbl 1:＂X=＂:Z[3]+Vcos(A-KN+2GN+90◢＂Y=＂:Z[4]+Vsin(A-KN+2GN+90◢GOTO 0X0、Y0为起点坐标X1、Y1为终点坐标R为半径Q为路线转角左为—1、右为+1 ZY为起始点里程LN为所求点里程S为边桩距离左为负数、右为正数＂X0＂？Ｃ：＂Ｙ０＂？Ｄ：＂Ｘ１＂？Ｅ：＂Ｙ１＂？Ｆ：＂Ｑ＂？Ｑ：Ｐol(E-C,F-D):Cls:IF J<0:Then J+360→A:Else J→A:IFEndLbl 0:”S”?S:S-Q→O:＂X=＂:C+Ocos(A)→Z[1]◢＂Y=＂:D+Osin(A)→Z[2]◢＂B＂?B:≠0=>GOTO 1GOTO 0Lbl 1：＂X=＂:Z[1]+Bcos(A+90◢＂Y=＂:Z[2]+Bsin(A+90◢GOTO 0X0、Y0为起点坐标X1Y1为终点坐标Q为起点里程S为所求点里程B为边桩距离左为负数右为正数。

自编卡西欧5800程序(简单易懂-有说明1)

一、直线段中边桩坐标计算Deg:Fix3（设置角度单位为十进制，3位固定小数显示）“QD:K=”？→A: “QD:X=”？→B: “QD:Y=”？→C: “QD:FWJ=”？→D （输入起点桩号、坐标、方位角）Lbl 1（设置程序标签）“K=”?→E:“L=”?→F：“JJ=”?→J（输入待求点桩号；边距：左负右正）B+(E-A)cos(D)+Fcos(D+J)→HC+(E-A)sin(D)+Fsin(D+J)→I“Xn=”:H◢“Yn=”:I◢（计算并显示待求点坐标）Goto 1（转向程序标签1继续执行程序）二、圆曲线中边桩坐标计算Deg:Fix3（设置角度单位为十进制，3位固定小数显示）“ZY:K=”？→A: “ZY:X=”？→B: “ZY:Y=”？→C: “ZY:FWJ=”？→D: “R=”？→E: “ZJ=”？→F（输入ZY点桩号、坐标、方位角，圆曲线半径，转角：左负右正）Lbl 1（设置程序标签）“K=”?→G:“L=”?→H：“JJ=”?→S（输入待求点桩号；边距：左负右正）（G-A）×180°÷π÷E→J（计算圆心角）D+J→M（计算P点的切向方位角）2Esin(J÷2) →K（计算弦长）If F＞0:Then （D+J÷2)→L :Else（D-J÷2)→L :IfEnd（计算ZY到P点的方位角）B+Kcos(L)+Hcos(M+S) →NC+Ksin(L)+Hsin(M+S) →O“Xn=”:N◢“Yn=”:O◢“a=”:M◢（计算并显示待求点坐标、路线切向方位角）Goto 1（转向程序标签1继续执行程序）三、第一完整缓和曲线中边桩坐标计算Deg:Fix3（设置角度单位为十进制，3位固定小数显示）“ZH:K=”？→A:“ZH:X=”？→B:“ZH:Y=”？→C:“ZH:FWJ=”？→D:“R=”？→E:“L1=”？→F:“ZJ=”？→G（输入起点桩号、坐标、方位角，圆曲线半径，缓和曲线长度，转角：左负右正）Lbl 1“K=”?→H:“L=”?→I ：“JJ=”?→V（输入待求点桩号；边距：左负右正） (H-A)- (H-A)5÷40÷E 2÷F 2→K(H-A)3÷6÷E ÷F-(H-A)7÷336÷E 3÷F 3→L(H-A)2×90°÷π÷E ÷F →MIf G ＞0:Then D+M →N : Else D-M →N: IfEnd任意点的切向方位角TL K →+22计算弦长If G ＞0:Then D+M ÷3→U : Else D-M ÷3→U: IfEnd计算弦的方位角 B+TcosU+Icos(N+V) →R C+TsinU+Isin(N+V) →S“Xn=”:R ◢ “Yn=”:S ◢ “a=”:N ◢ Goto 1四、第二完整缓和曲线中边桩坐标计算 Deg:Fix3（设置角度单位为十进制，3位固定小数显示） “HZ:K=”？→A:“JD:X=”？→B:“JD:Y=”？→C: “ZH:FWJ=”？→D: “ZJ=”？→E :“T2=”？→F:“L2=”？→G: “R=”？→H（输入终点桩号，交点坐标，起点方位角，转角：正左负右，第二缓和曲线长度、切线长，圆曲线半径）If E＜0:Then D+180°-(180°+E)→I:IfEnd: If E＞0:Then D+180°+(180°-E)→I :IfEndB+Fcos(I) →KC+Fsin(I) →L“HZ:X=”:K◢“HZ:Y=”:L◢“a=”:I◢Lbl 1“K=”?→M:“L=”?→N:“JJ=”?→O（输入待求点桩号；边距;夹角：正左负右）(A-M)- (A-M)5÷40÷H2÷G2→P(A-M)3÷6÷H÷G-(A-M)7÷336÷H3÷G3→QIf E＜0:Then I+180°+180°+90°→R :IfEnd: If E＞0:Then I+180°+180°-90°→R :IfEnd(A-M)2×180°÷2÷π÷H÷G→UIf E＜0:Then I+180°+(180°-U)→V:IfEnd: If E＞0:Then I+180°-(180°-U)→V :IfEndK+Pcos(I+180°)+QcosR+Ncos(X+180°+O)→SL+Psin(I+180°)+QsinR+Nsin(X+180°+O)→T“Xn=”:S◢“Yn=”:T◢“a=”:V◢Goto 1二、圆曲线中边桩坐标计算Deg:Fix3（设置角度单位为十进制，3位固定小数显示）“ZY:K=”？→A: “ZY:X=”？→B: “ZY:Y=”？→C: “ZY:FWJ=”？→D: “R=”？→E: “ZJ=”？→F（输入ZY点桩号、坐标、方位角，圆曲线半径，转角：左负右正）Lbl 1（设置程序标签）“K=”?→G:“L=”?→H：“JJ=”?→S（输入待求点桩号；边距：左负右正）（G-A）×180°÷π÷E→J（计算圆心角）D+J→M（计算P点的切向方位角）If F＞0:Then （D+90°)→L :Else（D-90°)→L :IfEnd（计算ZY到圆心O的方位角）If F＞0:Then （L+180°+J)→X:Else（L+180°-J)→X :IfEndB+Ecos(L)+(E+H)cos(X) →NC+Esin(L)+(E+H)sin(X) →O“Xn=”:N◢“Yn=”:O◢“a=”:M◢（计算并显示待求点坐标、路线切向方位角）Goto 1（转向程序标签1继续执行程序）。

卡西欧5800计算器如何编程

卡西欧5800计算器如何编程摘要：...需要极坐标放样程序QH1－5地具体输入方法最佳答案:公路平/竖曲线放样、坐标反算桩号GL.3－25PHF程序fx-5800pF1 GL.3－25PHF （K+，XY ≠ 0?）输入其她进入反算。

输入0时进入测站点、后视点坐标(X0,Y0,H0)、(X1,Y1)输入及两点距离(D0)、方位角(T0)输出。

H0=0时，不计算竖曲线。

L1 Z［1→Q:Lbl 8:“GL.3-25PHF=”？Q:Q→Z［1］:IF Q<3 Or Q>25:Then Goto8:IfEnd:0→V:0→N:“K，X≠0”？V:V≠0=>Goto 0:“X0”？C:“Y0”？D:“H0”？H:“X1”？E:E－C→I:“Y1”？F:F－D→J:Prog“1”:“T0O=”:J▲DMS◢“D0=”:I◢放样点桩号(Kp+)斜交角(ApO)距离(Sp)输入 143L2 Lbl 0:Z［1→Q:If V=0:Then 90→Z:“Kp+”？K:“ApO”？Z:“Sp”？B:Goto 4:IfEnd:If N≠－2:Then“Xp”？C:“Yp”？D:1T→P:1→G:IfEnd:Lbl 7:C－Z［4+G→I:D－Z［Q+4+G→J:Prog“1”:If N=－2:Then I→P:J→Z:G→B:Goto 4:IfEnd:If P－I>0:Then I→P:J→Z:G→B:IfEnd:IfG<Q-2:Then G+1→G:Goto 7:IfEnd:Lbl 4:1→G:Z［3］→W:Lbl 5:Z［1→QL3 Q-2→N:Z［3→A:Z［4+G→X:Z［Q+4+G→Y:Z［2Q+3+G→R:R=0 =>1μ→R:Z［3Q+1+G→L:Z［3+G］－X→I:Z［Q+3+G］－Y→J:Prog“1”:J→O:Z［5+G］－X→I:Z［Q+5+G］－Y→J:Prog“1”:J→U:Prog“P”L4 If V≠0:Then If G<B:Then G+1→G:W+I－2T+S→W:Goto 5:IfEnd:Prog“F”:Goto0:IfEnd:N=0=> Goto 0:N=－1=>Goto 5:H=0=>Goto 0:1→G:Lbl 6:Z［1→QL3 Q-2→N:Z［4Q+1→A:Z［4Q+G→W:Z［5Q+G→U:Z［6Q-1+G→R:Z［5Q-1+G］－U→I:Z ［4Q-1+G］－W→J:Prog“1”:J→O:Z［5Q+1+G］－U→I:Z［4Q+1+G］－W→J:Prog“1”:Prog“H”:N=－1=>Goto 6:Goto 0F2 CS.3－25PHF （参数输入完成时，可取消此子程序） I?输入0时进入转点号N?(N－P 为平曲线、N－H为竖曲线，均输入1至8、15、25地整数)及其参数地输入(平曲线K?、X?、Y?、R？、L?)、（竖曲线K?、H?、R?）输入桩号、坐标或高程、园半径、缓和曲线长度。

卡西欧5800-交点法-任意里程坐标计算程序(对称型、不对称型、有无缓和曲线、单圆曲线型)

Fx-5800p单交点对称型、不对称型、有无缓和曲线单圆曲线型任意里程坐标计算本程序适用于单交点对称型、不对称型、有无缓和曲线单圆曲线型一个交点范围内（含交点前后有直线段时）的曲线要素核对和坐标计算，手工输入要素，对设计图纸的“直线、曲线转角表”中的交点数据进行复核验证，专为“线元法的中边桩坐标正反算程序”提供：起点坐标和起点切线方位角等数据！当然本程序也可单独逐交点输入进行放样计算用！本程序由一个主程序QXJS和三个子程序（QXJS1、QXJS2、QXJS3）构成，运行时只需运行主程序QXJS即可！主程序名：QXJS24→Dimz↙Cls :＂K（JD）＂?K :＂X（JD）＂?X :＂Y（JD）＂?Y :＂LS1＂?B :＂LS2＂?C : ?R :＂FWJ（ZH）＂?M : ＂α（Z-,Y+）＂?O : M+O→N :Prog ＂QXJS1＂↙Cls :＂T1=＂:＂T2=＂:＂L=＂:＂LY=＂: Locate 4,1,S : Locate4,2,T : Locate 4,3,L : Locate 4,4,Q◢Cls :＂E=＂:＂K（ZH）=＂: Locate 7,1,E : Locate 7,2,Z[1] ◢Cls : ＂K（HY）=＂:＂K（QZ）=＂:＂K（YH）=＂:＂K（HZ）=＂: Locate 7,1, Z[2] : Locate 7,2, Z[3] : Locate 7,3, Z[4] : Locate 7,4, Z[5] ◢LbI 0 : ＂K×+×××＂?P : ＂Z＂?D : If D≠0 :Then ＂90°＂?H : IfEnd : Prog ＂QXJS2＂↙If D＜0 :Then Cls : ＂X(L)=＂:＂Y(L)=＂: Locate 6,1,F : Locate 6,2,G◢Goto 0 : IfEnd↙If D=0 :Then Cls : ＂X(Z)=＂:＂Y(Z)=＂: Locate 6,1,F : Locate 6,2,G:＂QXFWJ(Z)=＂: Z▶DMS◢Goto 0 : IfEnd↙If D＞0 :Then Cls : ＂X(R)=＂:＂Y(R)=＂: Locate 6,1,F : Locate 6,2,G◢Goto 0 : IfEnd↙子程序1名： QXJS1If O＜0 :Then -1→W : Else 1→W : IfEnd : WO→A ↙B² ÷24÷R-B^(4)÷2688÷R ^(3) →Z[6] ↙C² ÷24÷R-C^(4)÷2688÷R ^(3) →Z[7] ↙B÷2-B^(3)÷240÷R² →Z[8] ↙C÷2-C^(3)÷240÷R² →Z[9] ↙Z[8]+((R+Z[7]-(R+Z[6])cos(A))÷sin(A))→S↙Z[9]+((R+Z[6]-(R+Z[7])cos(A))÷sin(A))→T↙RAπ÷180+(B+C) ÷2→L↙RAπ÷180-(B+C) ÷2→Q↙(R+(Z[6]+Z[7])÷2)÷cos(A÷2)-R→E↙K-S→Z[1] ↙Z[1]+B→Z[2] ↙Z[2]+Q÷2→Z[3]↙Z[1]+L-C→Z[4]↙Z[4]+C→Z[5]↙子程序2名： QXJS2X-Scos(M)→Z[19]:Y-Ssin(M)→Z[20]↙X+Tcos(N)→Z[21]:Y+Tsin(N)→Z[22]↙If P＞Z[1]:Then Goto 1 :IfEnd↙Z[1]-P→L↙X-(S+L)cos(M)+Dcos(Z+H)→F↙Y-(S+L)sin(M)+Dsin(Z+H)→G↙M→Z : Goto 5↙LbI 1 : If P＞Z[2]:Then Goto 2 :IfEnd↙P-Z[1]→L:L→Z[12]:B→Z[13]:Prog＂QXJS3＂↙Z[19]+Z[14]cos(M)-WZ[15]sin(M)+Dcos(Z+H)→F↙Z[20]+Z[14]sin(M)+WZ[15]cos(M)+Dsin(Z+H)→G↙M+90WL² ÷(BRπ)→Z↙Goto 5↙LbI 2 : If P＞Z[4]:Then Goto 3 :IfEnd↙P-Z[1]→L:90(2L-B)÷R÷π→Z[11]↙Rsin(Z[11])+Z[8]→Z[14]:R(1-cos(Z[11]))+Z[6]→Z[15]↙ Z[19]+Z[14]cos(M)-WZ[15]sin(M)+Dcos(Z+H)→F↙Z[20]+Z[14]sin(M)+WZ[15]cos(M)+Dsin(Z+H)→G↙M+WZ[11]→Z↙Goto 5↙LbI 3 : If P＞Z[5]:Then Goto 4 :IfEnd↙Z[5]-P→L:L→Z[12]:C→Z[13]:Prog＂QXJS3＂↙Z[21]-Z[14]cos(N)-WZ[15]sin(N)+Dcos(Z+H)→F↙Z[22]-Z[14]sin(N)+WZ[15]cos(N)+Dsin(Z+H)→G↙N-90WL² ÷(CRπ)→Z↙Goto 5↙LbI 4 : P-Z[5]→L↙X+(T+L)cos(N)+Dcos(Z+H)→F↙Y+(T+L)sin(N)+Dsin(Z+H)→G↙N→Z↙Goto 5↙LbI 5 : 360Frac((Z+360)÷360)→Z↙子程序3名： QXJS3If Z[12]=0 :Then 0→Z[14]: 0→Z[15]:Else↙Z[12]- Z[12]^(5)÷40÷(RZ[13])²+ Z[12]^(9)÷3456÷(RZ[13])^(4)→Z[14]↙Z[12]^(3)÷6÷(RZ[13])-Z[12]^(7)÷336÷(RZ[13])^(3)+Z[12]^(11) ÷42240÷(RZ[13])^(5)→Z[15] ↙IfEnd↙程序说明：已知数据输入：K（JD）? 交点桩号X（JD）? 交点X坐标Y（JD）? 交点Y坐标LS1 ? 第一缓和曲线长度LS2 ? 第二缓和曲线长度R ? 圆曲线半径FWJ（ZH）? 交点前（即前交点至本交点也即ZH点）的正切线方位角α（Z-,Y+）? 本交点处线路转角（左转为负，右转为正，度分秒输入）K×+×××? 待求桩号Z ? 待求桩号距中距离（左负值，右正值，中为0）90°? 斜交右角（线路切线前进方向与边桩右侧夹角）垂直中桩即输90计算结果显示：T1= 第一切线长T2= 第二切线长L= 曲线总长LY= 圆曲线长E= 曲线外距K(ZH)=直缓点桩号K(HY)=缓圆点桩号K(QZ)=曲中点桩号K(YH)=圆缓点桩号K(HZ)=缓直点桩号X= ；Y= 待求点的坐标（L-左，Z-中，R-右）QXFWJ(Z)=待求点的中桩切线方位角（在求中桩坐标时显示）。

卡西欧5800曲线计算

″QSX=″?A:″QSY=″?B:″QSL=″?Q:?F←Lb12:″JSL=″?J:?L:?P←A+(J－Q)cos(F)+Lcos(F+P)→C←″X=″:C◢B+(J－Q)sin(F)+Lsin(F+P)→D←″Y=″:D◢Goto2完！备注：A=起算点X1坐标B=起算点Y1坐标Q=起算点里程F=起算点方位角J=计算点方位角FWJ(反算坐标)Lb10:″X1=″?A:″Y1=″?B←″X2=″?C←″Y2=″?D←PoL(C－A,D－B):cls←J<0=>J+360→J←″s=″:I◢″F(DMS)=″:J◆DMS◢Goto0←完！备注：A=起算点X1坐标B=起算点Y1坐标C=起算点X2坐标D=起算点Y2坐标SQX-1(另外一个竖曲线程序)″S1=″?A:″H1=″?B:?T:″I1=″?C:″I2=″?D:?R←Lb10:?S←S－A→L←B+(L+R×(C+D)÷2)2÷(2×R)－(R×C×D)÷2→E←″H=″:E◢Goto0完！S1变坡点里程H1变坡点高程T切线长R半径（凸曲线为-R凹曲线为+R）CQW(超欠挖)Lb19:?A:?B:?Z:?D←(A－3909081.230)cos(132°44′24.8″)+(B－379097.265)sin(132°44′24.8″)+672900.62→Q←″J=″:Q◢(B－379097.265)cos(132°44′24.8″)－(A－3909081.230)sin(132°44′24.8″)－D→F←″O=″:F◢604.21－0.0057×(Q－673400)→W←″H=″:W◢W+2.12→G←√(F2+(Z－G)2)－6.48→I←″P=″:I◢Goto9完！″QSX=″?A:″QSY=″?B:″HXC=″?H:″QSL=″?Q:?F:?R←Lb14:″JSL=″?J:?L:?P←J－Q→N:N×√((1－(N2)2÷(40R2H2))2+(N2÷(6RH))2)→M←tan-1((20RHN2÷(120R2H2－(N2)2))→K:90N2÷(兀RH)→G←A+Mcos(F+K)+Lcos(F+G+P)→C←″X=″:C◢B+Msin(F+K)+Lsin(F+G+P)→D←″Y=″:D◢F+G→E←″T(DMS)=″:E◆DMS◢Goto4完！只适合第一第二缓和曲线等长度计算第二缓和曲线长度时从后往前计算半径R:左偏-R右偏+RYQX(圆曲线小程序)″QSX=″?A:″QSY=″?B:″QSL=″?Q:?F:?R←Lb13:″JSL=″?J:?L:?P←J－Q→S:90S÷(兀R)→O:√(2Rsin(O))2→I:A+Icos(F+O)→E:B+Isin(F+O)→G←E+Lcos(F+2O+P)→C←″X=″:C◢G+Lsin(F+2O+P)→D←″Y=″:D◢F+180×(J－Q)÷(兀R)→G←″T(DMS)=″:G◆DMS◢Goto3完！YQX-HQX(圆曲线大程序包括缓和曲线和圆曲线)″X0=″?A:″Y0=″?B:″S0=″?P:″R0=″?E:″R=″?F:″T0=″?G:″ZZ－YZ:-1,1=″?H←If H=(-1):Then(-F)→F:(-E)→E:Else F→F:E→E:IfEnd←If E=F:Then Goto5:Else If E>F:Then1→D:″QXYZD:S1″?W:Goto6:Else(-1)→D:″QXYZD:S1″?W:Goto6:IfEnd:IfEnd←Lb15:″S=″?Q←E=F=>A+F×(sin(G+180×(Q－P)÷F÷兀)－sin(G))→M←″XS=″:M◢B－F×(cos(G+180×(Q－P)÷F÷兀)－cos(G))→N←″YS=″:N◢G+(Q－P)×180÷F÷兀→O←″TS=″:O◆DMS◢O<0=>O+360→O◆DMS◢O≥360=>O+360→O◆DMS◢Goto5←Lb16:″S=″?Q←(W－P)×E×F÷(E－F)→C←C<0=>(－C)→C←C÷E→T←T+D×(Q－P)→L←(L－T)－(Lˆ(5)－Tˆ(5))÷(40×Cˆ(2))+(Lˆ(9)－Tˆ(9))÷(3456×Cˆ(4))－(Lˆ(13)－Tˆ(13))÷(599040×Cˆ(6))→U←(Lˆ(3)－Tˆ(3))÷(6×C)－(Lˆ(7)－Tˆ(7))÷(336×Cˆ(3))+(Lˆ(11)－Tˆ(11))÷(42240×Cˆ(5))－(Lˆ(15)－Tˆ(15))÷(9676800×Cˆ(7))→V←G－D×Tˆ(2)×180÷2÷C÷兀→Z←A+D×U×cos(Z)－V×sin(Z)→M←″XS=″:M◢B+D×U×sin(Z)+V×cos(Z)→N←″YS=″:N◢If H=(-1):Then(-F)→F:(-E)→E:(-1)→K:Else F→F:E→E:1→K:IfEnd←If E>F:Then(G－K×180×C÷2÷兀÷E2+K×180×(Q－P+C÷E)2÷2÷C÷兀)→O←Else(G+k×180×C÷2÷兀÷E2－K×180×(－Q+W+C÷F)2÷2÷C÷兀）→O:IfEnd←″TS=″:O◆DMS◢Goto6完！注：本程序内R0=,和R=是输入8个9，而4800程序内是输入9个9，请注意！注：请注意程序里面O和0的区分！程序内←符号在计算器里面是←形状，请注意区分。