5800曲线坐标子程序(实例版)
曲线任意坐标正反算5800p好用
曲线任意坐标正反算5800pTYQXJS(主程序名)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:?Q 1÷P→C：(P-R)÷(2HPR) →D：180÷π→EN=2=>Goto 2LbI 1:Cls:?S:S=0=>Goto 0?Z:Abs(S-O)→WProg"SUB1":Cls"XS=":X◢"YS=":Y◢"FS=":F-90 ►DMS◢Goto 1LbI 2:Cls:?XX=0=>Goto 0?Y:X→I:Y→JProg"SUB2":O+W→S:Cls"S=":S◢"Z=":Z◢Goto 2注:紅色部可以不要,亦可以要,它的作用是將S或X輸入0時,程序會重新由頭開始運行,(即是可以計算下段線元)SUB1(子程序名)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]A×cos(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)＜1E-6:Then 0→Z :Prog"SUB1":(J-Y)÷sin(F)→ZElse W+Z→W:Goto 4:IfEnd数据库If S≤终点桩号：Then1→N:。
卡西欧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曲线道路全线坐标正反算(已验证)
CASIO fx-5800P线元法坐标正反算程序V2.0说明：本程序适用于卡西欧计算器 CASIO fx-5800P,可对全线贯通坐标正反算、竖曲线高程计算。
该程序可计算任意线型，包含（直线、圆曲线、缓和曲线、卵形曲线）等,还可以能通过坐标反推该点里程和距中线距离,适用测量员专用。
主程序名：ABCYT第1步Deg：Fix 3：10→DimZ第2步Lbl 3：＂1.DK=>XY＂：＂2.XY=>DK＂：＂Q＂?W：＂K0+＂?S：Prog＂ABCYTSJ＂：If P=0：Then 10^(45)→P：IfEnd：If R=0：Then 10^(45)→R：IfEnd第3步1÷P→C：(P-R)÷(2HPR)→D：180÷π→E：If W=1：Then Goto 1：Else Goto2：IfEnd第4步Lbl 1：＂E＂?Z90=N：Abs(S-O)→W：Prog ＂ABCYTZ＂第5步Cls：＂F=＂：Locate 3,1,F°：＂X=＂：Locate 3,2,X：＂Y=＂：Locate 3,3,Y◢第6步Prog＂ABCYTSQX＂：Cls：＂H=＂：Locate 3,1,H◢第7步1→W：90→N：Goto 3第8步Lbl 2：?X：?Y：X→I：Y→J：Prog＂ABCYTF＂：O+W→S第9步Cls：＂K=＂：Locate 3,1,S：＂E=＂：Locate 3,2,Z◢第10步2→W：Goto 3正算子程序名：ABCYTZ第1步0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L第2步1-L→F：1-K→M第3步U+W×(A×cos(G+Q×E×K×W×(C+K×W×D))+B×cos(G+Q×E×L×W×(C+L×W×D))+B×cos(G+Q×E×F×W×(C+F×W×D))+A×cos(G+Q×E×M×W×(C+M×W×D)))→X第4步V+W×(A×sin(G+Q×E×K×W×(C+K×W×D))+B×sin(G+Q×E×L×W×(C+L×W×D))+B×sin(G+Q×E×F×W×(C+F×W×D))+A×sin(G+Q×E×M×W×(C+M×W×D)))→Y第5步G+Q×E×W×(C+W×D)→F：F+ N→Z[1]第6步X+Z×cos（Z[1]）→X：Y+Z×sin（Z[1]）→Y反算子程序名：ABCYTF第1步Lbl 2：（S-O）→W：0→Z：Prog ＂ABCYTZ＂：F-90→Z[9]：(J-Y)×cos(Z[9])-(I-X)×sin(Z[9])→Z[10]第2步If Abs(Z[10])>0.001：Then S+Z[10]→S：Goto 2：Else Goto 1：IfEnd第3步Lbl 1：(Y-J)÷sin(Z[9])→Z数据库名：ABCYTSJ第1步Goto1第2步Lbl 1：If S<7586.707 Or S>13346.96：Then Cls：Locate 2,2,＂PQX＂：Locate 4,3,＂CHAOXIAN＂：Locate 10,4,＂→Stop＂◢第3步Stop：IfEnd第4步Lbl 1：IF S<7946.707：Then 98°56′56″→G：7586.707→o：3378605.445→U：453648.704→V：0→P：4500→R：360→H：1→Q：Return：IfEnd第5步Lbl 1：IF S<11766.03：Then 101°14′26″→G：7946.707→o：3378544.714→U：454003.518→V：4500→P：4500→R：3819.323→H：1→Q：Return：IfEnd第6步Lbl 1：IF S<12126.03：Then 149°52′11″→G：11766.03→o：3376389.890→U：457018.324→V：4500→P：0→R：360→H：1→Q：Return：IfEnd第7步Lbl 1：IF S<13346.96：Then 152°09′41.68″→G：12126.03→o：3376073.846→U：457190.654→V：0→P：0→R：1220.93→H：0→Q：Return：IfEnd第n步……………………………………………………数据输入说明：第1步Goto1第2步Lbl 1：If S<本条线路起点里程S>本条线路止点里程Cls：Locate 2,2,＂PQX＂：Locate 4,3,＂CHAOXIAN＂：Locate 10,4,＂→Stop＂◢第3步Stop：IfEnd第4步Lbl 1：If S<本线元止点里程：Then线元起点切线方位角→G：线元起点桩号→O：线元起点坐标X→U：线元起点坐标Y→V：线元起点半径（直线为0、曲线为半径）→P：线元止点半径（直线为0、曲线为半径）→R：线元长度→H：线元转向（左转为-1、右转为1、直线为0）→Q：Return：IfEnd第n步Lbl 1：每增加一行则为增加一个线元要素。
5800坐标计算程序PQX
1、 Lb1 0：Deg ：Prog “A ”2、 E －D →J3、 Arg (cosCJ)+ i sin(J))→J4、 Abs (J)÷J →H5、 S 2 ÷(24R)-S 4÷(2268R 3)+ i (S ÷2-S 3 ÷(240R 2)) →P 6、 JH ÷2→M7、 90÷(R π) →N8、 （R+ReP (P)）tan(M)+ImP (P) →T9、 M ÷N+S →L10、 C-T →U11、A-T(cos(D)+ i sin(D))→B 12、 If K<U:Then C-K →I: 0→F:A-I(cos(D)+ i sin(D)) →X:Goto1:Else IfK<U+S:Then K-U →W:Goto2:Else If K<U+L-S:Then GotoA:Else If K<U+L:Then U+L-K →W:Goto2:Else GotoB :IfEnd: IfEnd: IfEnd: IfEnd13、Lbl 2:NW 2÷S →F:W-W 5÷(40R 2S 2)+W 9÷(3456R 6S 6)+ i (W 3÷(6RS)-W 7÷(336R 4 S 4) →I: If K<U+S:Then Goto3:Else GOto4: IfEnd14、 Lbl 3:B+Abs(I)(cos(D+H Arg(I))+ i sin(D+H Arg(I)) →X:Goto115、 Lbl A:K-U-S →W:2NW+NS →F:R sin(F)+Imp (P)+ i (R-R cos(F)+Rep (P)) →I:Goto316、 Lbl B:K-U-L →W: 0→F:A+(W+T)(cos(E)+ i sin(E)) →X:E →D:Goto117、 Lbl4:E-HArg(I)→V:E →D:-H →H:A+T(cos(E)+i sin(E))-Abs(I)(cos(V)+i sin(V))→X:Goto118、 Lbl 1:D+HF+Z →Q: “X+Y i=”:X+G(cos(Q)+i sin(Q))+Ｏ（cos(Q-Y)+i sin(Q-Y)）→X ▲19、 Goto 0A(数据库)1、“DK ”？K: “L-R ”?G: “XJ ”?Z:? Ｏ:?Y2、If K<141216.781(第二曲线起点)：Then 1300(半径) →R: 165 (缓和曲线长) →S: 73688.363+61082.739i (交点坐标X+Y i ) →A: 140083.413(交点桩号)→C:297 51 48.67（与前一交点方位角）→D: 236 24 44.84(与后一交点方位角) →E: Return:If End1、Lbl 0:Prog“B”2、(B-C)R÷200→T3、If K<J-T:Then H-0.01B(J-K) →X:Else If K<J+T:Then K-J+T→D:H-0.01B(T-D)-D2÷(2R) →X:ElseH+0.01C(K-J) →X:IfEnd:IfEnd4、X-0→X:Prog“Z”:“Z+Xi=”：X+Z+Xi→Z▲“Y=”：X+Y→Y▲4、Goto 0B（数据库）1、“DK”？K：If K≦140815（下一个竖曲线起点）：Then -1000(半径凸 +，凹 -)→R:-2.2(前一纵坡坡度) →B:2.9(后一纵坡坡度)→C: 140200（边坡点桩号）→J:219.755（边坡点高程）→H: Return:IfEndZ (5800超高程序)1、Prog“C”:“B”?V2、0.04S÷(0.02+C) →D:A-T→E:E+D→F:E+S→G:G+L→I:I+S→M:M-D→J3、If K<E:Then -0.02V→Z:Z→Y::Goto1:Else If K<F:Then Goto2:Else If K<G:Then H((0.02+C)V(K-E)÷S-0.02V→Z:-Z→Y:Goto1:Else If K<I:Then HVC→Z:-Z→Y:Goto1：Else If K<J:Then H((0.02+C)V(M-K)÷S-0.02V→Z:-Z→Y:Goto1:Else If K<M:Then Goto3:Else -0.02V→Z:Z→Y:Goto1:IfEnd: IfEnd: IfEnd: IfEnd: IfEnd: IfEnd:。
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直线、圆曲线缓和曲线、坐标计算程序
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：待求点里程。
CASIO5800圆曲线（已知两点及半径）坐标计算程序
CASIO5800圆曲线（已知两点及半径）坐标计算程序
圆曲线（已知两点和半径）座标计算fx-5800程序
作者：李艳阳
A:?B: ?C: ?D: ?R↙
Pol(C-A,D-B):J-Sin-1(I÷2÷R)→F↙
A+R Cos(F+90)→X↙
B+R Sin(F+90)→Y↙
Lbl 1:?L↙
F-90+(L÷R)( 180÷π) →T↙
“N=”:X+RCos(T)→N ◢
“E=”:Y+RSin(T)→E ◢
Goto 1↙
说明： 1. A、B为第一点X、Y
2. A、B为第二点X、Y
3. R为曲线半径，向左偏为负，向右偏为正
4. L输入待求点到A点的曲线长度
5. N、E为待求点的XY
ABCD分别输入X1、Y1、X2、Y2。
R按前进方向左-右+。
Fx-5800曲线坐标综合计算程序
名称：CAS58-ZHYQX
说明：
1、A：转角，左偏为“-A”；右偏为“+A”；
2、R：圆曲线半径；
3、LS：缓和曲线长度；
4、JD（DK）：本个交点桩号；
5、X（JD）与Y（JD）：本个交点X与Y的坐标；
6、FWJ：曲线起始边坐标方位角；
7、J：输0为只计算中桩坐标，输1为计算中桩与边桩坐标；
8、Z：待求点里程桩号；
9、W：边桩至中桩的偏距。
CASIO 5800综合曲线坐标计算程序(使用中)
C A SI O f x-5800P综合曲线坐标计算程序说明：该程序适用于计算器C ASI O f x-5800P，可计算线路中心的缓和曲线、圆曲线、直线段，中、边桩坐标及切线方位角。
1、α? 输入转角：左转为负，右转为正2、R?输入圆曲线半径3、LS? 输入缓和曲线长度4、J D(DK)?输入交点里程桩号5、X(JD)?输入本交点X 坐标6、Y(JD)?输入本交点Y 坐标7、F W J?输入待求点切线方位角9、J? 输入0 程序计算中桩，输入 1 程序计算边桩10、JSDK? 输入里程桩号主程序名：ZHQ X1. Deg：Fix 4↙2. Lb1 A↙3. ＂α＂?A：?R：＂LS＂?C：＂JD(DK)＂?D：＂X(JD)＂?N：＂Y(JD)＂?E：＂FWJ＂?F↙4. Lb1 B↙5. ?J ↙6. C∧2÷24÷R-C∧（4）÷2688÷R∧（3）→P↙7. C÷2-C∧（3）÷240÷R∧2→Q↙8. 90×C÷兀÷R→B↙9. ＂T=＂：(R+P)tan(Abs(A)÷2)+Q→T◢10. ＂E=＂：(R+P)÷c o s(A÷2)-R→W◢11. ＂L=＂：(Abs(A)-2×B)兀R÷180+2×C→L◢12. ＂ZH=＂：D-T→G◢13. ＂HY=＂：G+C→H◢14. ＂QZ=＂：G+L÷2→I◢15. ＂YH=＂：G+L-C→K◢16. ＂HZ=＂：G+L→M◢17. If A＜0：Th en-1→S：E l se1→S：If End↙（本行中0 为数字）18. F+A÷2+90×S→U↙19. W+R→V↙20. N+V×cos(U)→B↙21. E+V×sin(U)→O↙（本行中O 为字母）22. Lbl 1 ↙23. ＂JS DK＂?Z↙24. If Z≤G：Th en T+G-Z→L ↙25. F+180→V ↙26. ＂FW J=＂：F→U◢27. Goto 2 ↙28. IfEnd ↙29. If Z≤H：Th en Z-G→L ↙30. L-L∧(5)÷(90×R∧2×C∧2)→V↙31. 30×L∧2×S÷(兀RC)→L ↙32. F+180→P ↙33. F+L→Q↙34. ＂FW J=＂：F+3×L→U◢35. Goto 4 ↙36. IfEnd ↙37. If Z≤K：Th en F+A÷2+90×S+180+180(Z-I)×S÷R÷兀→L↙38. ＂FW J=＂：L+90×S→U：If U≥360：The n U-360→U◢39. Else U→U◢40. IfEnd：G o to5：If End↙41. If Z≤M：Th en M-Z→L↙42. L-L∧(5)÷(90×R∧2×C∧2)→V↙43. 30×S×L∧2÷(兀RC)→L ↙44. F+A→P ↙45. F+A+180-L→Q↙46. ＂FW J=＂：F-3×L+A→U：If U≥360：Th en U-360→U◢47. Else U→U◢48. IfEnd：G o to4：If End↙49. If Z>M：Then Z-M+T→L↙50. F+A→U ↙51. U→V ↙52.G o to2 ↙53. Lbl 2 ↙54. ＂X=＂：N+L×cos(V)→X◢55. ＂Y=＂：E+L×sin(V)→Y◢56. G o to6 ↙57. If End↙58. Lbl 3 ↙59. ?W60. ＂XL=＂：X+W×cos(U-90)→P◢61. ＂YL=＂：Y+W×sin(U-90)→Q◢62. ＂XR=＂：X+W×cos(U+90)→P◢63. ＂XL=＂：Y+W×sin(U+90)→Q◢64. G o to1 ↙65. Lbl 4 ↙66. ＂X=＂：N+T×cos(P)+V×cos(Q)→X◢67. ＂Y=＂：E+T×sin(P)+V×cos(Q)→Y◢68. G o to6 ↙69.Lbl 5 ↙70. ＂X=＂：B+R×cos(L)→X◢71. ＂Y=＂：O+R×sin(L)→Y◢（本行中O 为字母）72. G o to6 ↙73. Lbl 6 ↙74. J=1 G o to3 ↙75. G o to1 ↙。
fx-5800P曲线正算万能程序
fx-5800P曲线正算万能程序主程序文件名：QXZS-WNLbl 1:“QDX”？A：“QDY”？B：“QDLC”？G：“QDFWJ”？Q：“QDR”？R：“ZDR”？O：“ZDLC”？ELbl 2: ?L:“JJ°”?J:?K :Prog“ZO1ZS”Lbl 3:“CFJS”？Z：If Z=1：Then Goto 2 ：Else X→A:Y→B:W→Q:E→G:O→R:Goto 1：Ifend说明：输入:“QDX”？、“QDY”？起点坐标“QDLC”？起点里程“QDFWJ”？Q起点切线方位角“QDR”？起点半径，左转弯输入“-1÷R”，右转弯输入“1÷R”,直线输入0“ZDR”？终点半径，左转弯输入“-1÷R”，右转弯输入“1÷R”,直线输入0“ZDLC”？终点里程L？待求点里程“JJ°”？与待求点里程中线的切线方向的交角0~180,一般为正交90“K”？距中线距离，右正左负，计算中线输入0“CFJS”？输入1重复该段计算，输入其他重新输入要素计算显示：CXFWJ=待求点切线方位角X= 、Y=待求点坐标子程序文件名：ZO1ZS6→N:(L-G)÷N→H:(O-R)÷(E-G)→U:NUH+R→P:90H÷л→S:“CXFWJ=”:Q+(P+R)×N×S→W:If W﹥36Ø:Then W°-36Ø°→W◢Else W°→W◢If End1→TA+H÷6×(cos(Q)+cos(W)+4×∑(cos(Q+((T+Ø.5)HU+2R)×(T+Ø.5)S),T,Ø,(N-1))+2×∑(cos(Q+(UHT+2R)TS),T,1,(N-1)))+K cos(W+J) →XB+H÷6×(sin(Q)+sin(W)+4×∑(sin(Q+((T+Ø.5)HU+2R)×(T+Ø.5)S),T,Ø,(N-1))+2×∑(sin(Q+(UHT+2R)TS),T,1,(N-1)))+K sin(W+J)→Y“X=”: X◢“Y=”: Y◢文件名：根据工程名称自己设定Lbl Ø:？L:“JJ°”?J:?KLbl 1:If L≤终点里程：Then起点X坐标→A:起点X坐标→B:起点里程→G:起点方位角→Q:1÷起点半径→R：1÷终点半径→O:终点里程→E: Prog“ZØ1ZS”:Else Goto 2：Ifend:Goto ØLbl 2:······说明：单项工程全线贯通编程，按设计图纸的平曲线要素，按直线、圆曲线、缓和曲线分段输入。
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左中线坐标。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1522.265
2613.653
3
JD6
ZK24+326.328
右46°53'24.9"
368.782
368.782
160
160
449.879
449.879
850
536.867
ZK23+876.449
ZK24+036.449
ZK24+304.883
ZK24+573.316
ZK24+733.316
2999778.314
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
注：第二合同段起点K17+211.935=第一合同段终点K17+202.814短链9.121米
2996009.434
510841.643
1
BP
K17+211.935
0
0
0
0
0
0
0
0
286°11′21.1″
0
296.805
2
JD1
K17+508.74
If 224740≥ Z And Z ≥ 222357.227 : Then 160 → A : 160 → B : 2999731.381→ C : 505428.452 → D :223879.493 → E : 276°46′10.9″→ F : 46°58′24.9″→ I : 850→ R :IfEnd↵
ZK21+798.519
左54°02'43.8"
419.524
419.524
160
160
641.509
641.509
1100
877.599
ZK21+157.01
ZK24+317.01
ZK21+755.81
ZK22+194.609
ZK22+354.609
2999470.27
508023.85
276°46′10.9″
0
663.912
4
JD3
K19+212.176
左40°01'27.7"
357.771
357.771
160
160
371.828
371.828
800
398.846
K18+840.348
K19+000.348
K19+199.771
K19+399.194
K19+559.194
2997420.802
509550.056
右25°17'55.2"
392.938
392.938
160
160
296.805
296.805
965
266.091
K17+211.935
K17+371.935
K17+504.981
K17+638.026
K17+798.026
2996092.187
510556.607
311°29′16.3″
468.3
1057.19
If 27548.447≥ Z And Z ≥ 26005.754 : Then 160 → A : 160 → B : 3000721.589→ C : 503170.493 → D :26597.536 → E : 264°40′04.7″→ F : -39°36′38.6″→ I : 830→ R :IfEnd↵
225°03′26.1″
217.101
596.445
4
EP
K27+548.447
0
0
0
0
0
0
0
0
3000300.26
502748.321
注：第二合同段起点K17+211.935-终点K26+300.000
输入数据的顺序：
1、HZ
2、桩号
3、LS1
4、坐标
5、ZH
6、方位角
7、转角
8、圆曲线半径
1522.14
3
JD8
K26+976.88
右39°36'38.6"
364.417
364.417
160
160
379.344
379.344
830
413.81
K26+597.536
K26+757.536
K26+964.441
K27+171.346
K27+331.346
3000721.589
503170.493
If 222357.227≥ Z And Z ≥ 221100 : Then 160 → A : 160 → B : 2999473.287→ C : 508023.883 → D :221159.628 → E : 330°48′54.7″→ F : -54°02′43.8″→ I : 1100→ R :IfEnd↵
505428.842
323°44′35.8″
3.64
453.519
4
EP
ZK24+739.66
0
0
0
0
0
0
0
0
3000146.201
505159.029
2998861.159
508366.777
1
BP
YK21+100
0
0
0
0
0
0
0
0
330°48′54.7″
57.01
698.519
2
JD5
YK21+801.137
505428.452
323°44′35.8″
6.344
456.223
4
EP
YK24+740
0
0
0
0
0
0
0
0
3000147.088
505160.239
3000217.137
505159.756
1
BP
K24+740
0
0
0
0
0
0
0
0
323°44′35.8″
249.976
800.991
2
JD7
K25+540.991
左59°04'31.1"
364.417
364.417
160
160
551.015
551.015
830
685.779
K24+989.976
K25+149.976
K25+497.865
K25+845.754
K26+005.754
3000863.037
504686.046
264°40′04.7″
591.781
5800计算器曲线坐标程序清单（子程序）
实例：贵州省黔西至大方高速公路石板至东关段第二合同段
子程序S -- 1
If17798.026≥ Z And Z ≥17211.935: Then160→ A :160→ B :2996092.187→ C :510556.607→ D :17211.935→ E : 286°11′21.1″→ F :25°17′55.2″→ I :965→ R :IfEnd↵
If 124739.66≥ Z And Z ≥ 122354.609 : Then 160 → A : 160 → B : 2999778.314→ C : 505428.842 → D :123876.449 → E : 276°46′10.9″→ F : 46°58′24.9″→ I : 850→ R :IfEnd↵
If 18840.348≥ Z And Z ≥ 17798.026 : Then 160 → A : 160 → B : 2996792.534 → C : 509764.67 → D :18266.326 → E : 311°29′16.3″→ F : 29°39′07.7″→ I : 800→ R :IfEnd↵
If 122354.609≥ Z And Z ≥ 121100 : Then 160 → A : 160 → B : 2999470.27 → C : 508023.85 → D :121157.01 → E : 330°49′54.7″→ F : -54°02′43.8″→ I : 1100→ R :IfEnd↵
If 21144.579≥ Z And Z ≥ 19559.194 : Then 159.744 → A : 159.744 → B : 2997767.428 → C : 508975.803 → D :19559.194 → E : 301°06′56.3″→ F : 29°41′58.4″→ I : 825→ R :IfEnd↵
2997767.428
508975.803
330°48′54.7″
997.998
1296.928