CASIO_fx5800P实用圆曲线中边桩放样程序
圆曲线缓和曲线线路中边桩放样卡西欧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 置镜点至待求点的方位角。
卡西欧5800P计算器-道路中桩及边桩计算程序
If K<3269.093(第三段终点桩号） ：Then759.748(第二段终点桩号)￫ O:35349.174(第三段起点 y 坐标）￫V:9°36′35″（第三段起点方位角）￫G：2509.345(第三段 的距离） ￫H:3000(第二段的曲线半径） ￫P:10^(45)(直线） ￫R:0(数字）
卡西欧 5800P 计算器-道路中桩及边桩计算程序 Lbl 4:“1：KD￫ XY,2：XY￫ KD” ？N:?K If k<270.348:(第一段的终点桩号）Then0（0 是零，起点桩号） ￫ O（字母符）:355933.039(起点 x 坐标）￫ U:467305.867(起点 y 坐标）￫ V:0°15′46″（第一段 的方位角）￫ G:270.348(第一段的 距离） ￫ H:10^（45） （直线） ￫ P:3000(曲线半径）￫ R:0（数字） ￫ Q:Goto 0（数字）:Ifend If k<759.748：(第二段的终点桩 号）Then270.348(第一段的终点桩 号）￫O(字母） ：3559603.384(第一 ￫U:467307.108 段终点 x 坐标） （第 一段终点 y 坐标）￫V:0°15′46″ （ 第 二 段 起 点 方 位 角 ） ￫ G:489.4(第二段距离）￫H:3000(第 ￫P:3000(第二段曲线半径） ￫Q:Goto 二段曲线半径） ￫ R:1(右转） 0IfEen
￫Q:Goto 0(数字） ：IfEnd Lbl 0(数字） ：1÷P￫C:(P-R)÷(2HPR)￫D:180÷π￫E N=1Goto 1：Goto 2 Lbl 1:?Z:K￫S:Abs(S-O)￫W:Prog“SUB1”:“X=”:X◢（s-o,o 是字母 符） “Y=”:Y◢ “FWJ=”:F-90￫F◢ Goto4 Lbl 2:?X:?Y:X￫I:Y￫J:Prog“SUB2”:O+W￫K:“K=”:K◢（o 是字母） Z￫D:“D=”:D◢ Goto 4 注：线性是直线或圆曲线，缓和曲线不能用此程序。 “SUB1，SUB2” 是两个子程序。 “SUB1” 0.1739274226￫ A:0.3260725774￫ B:0.0694318442￫ P:0.3300094782￫ L:1-L￫ F:1-P￫ M:U+W(ACos （G+QEPW(C+PWD))+BCos(G+QELW(C+LWD))+BCos(G+QEFW(C+FWD))+AC os(G+QEMW(C+MWD)))￫ X:V+W(ASin(G+QEPW(C+PWD))+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)￫ Y “SUB2”程序
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附件：本程序附曲线要素坐标计算核对表。
卡西欧5800P计算器曲线任意里程中边桩坐标正反算
卡西欧5800P计算器曲线任意⾥程中边桩坐标正反算卡西欧5800P计算器曲线任意⾥程中边桩坐标正反算⼀、程序功能本程序由⼀个主程序(ZHUCHENXU)和⼏个⼦程序——正算⼦程序(SUB1)、反算⼦程序(SUB2)、数据库(SUB3)、算⽅位⾓程序(FA)、使⽤⽅位⾓算坐标(NE)、边坡放样程序(BIANPO)、隧道圆⼼放样程序（SDYX）构成，可以根据直线、圆曲线、缓和曲线（完整或⾮完整型）的线元要素（起点坐标、起点⾥程、起点切线⽅位⾓、线元长度、起点曲率半径、⽌点曲率半径）及⾥程边距或坐标，对该曲线段范围内任意⾥程中边桩坐标进⾏正反算。
⼆、源程序增加变量16→DimZ1.主程序(ZHUCHENXU)"1.SZ → XY，2.XY → SZ，3.SDYX，4. BIANPO "？N：Lbl 1：”ZHUANGHAO=”?S：Prog "SUB3"：N≥2=>Goto 2：Abs(S-O)→W：”BIANZHU=”?→Z:Prog "SUB1"："XS=”:X→X ◢"YS=”:Y→Y◢"FS=”:(F-90) →F:F►DMS◢Prog "FA"：Goto 1:Lbl 2：”CX=”?X:X→I：”CY=”?Y: Y→J：”DMG=”?→Z[7]：Prog "SUB2"："S=":(O+W) →S◢"Z="Z→Z◢If N=3:ThenProg”SDYX”:IfEnd ：If N=4:Then Prog”BIANPO”:IfEnd:Goto 22. 正算⼦程序(SUB1)0.1739274226 →Z[1]：0.3260725774→B：0.0694318442→K：0.3300094782→L：(1-L) →F：(1-K)→M：U+W(Z[1]cos(G+QEK W(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+Z[1]cos(G+QEMW(C+MWD)))→X：V+W(Z[1]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Z[1]sin(G+QEMW(C+MWD))) →Y：G+QEW(C+WD)+90→F：X+ZcosF→X：Y+ZsinF→Y3. 反算⼦程序(SUB2)G-90 →Z[2]：Abs((Y-V)cosZ[2]-(X-U)sinZ[2]) →W：0→Z：Lbl 0：Prog "SUB1"：Z[2]+QEW(C+WD) →L：(J-Y)cosL-(I-X)sinL→Z：If Abs(Z)<1E-6:Then Goto1：Else W+Z→W：Goto 0: IfEndLbl 1：0→Z：Prog "SUB1"：(J-Y)÷sinF→Z4. 数据库(SUB3)If S<226100:Then Cls:Stop: IfEndIf S<226255.833:Then 226100→O：99037.9736→U：4282.3590→V：201.3266304→G：1045→P：1045→R：253.543→H：0→Q: Goto 1:IfEnd…………If S>236005.651:Then Cls:Stop: IfEndLbl 1: 1÷P→C：(P-R)÷(2HPR) →D：180÷π→E：5. 算⽅位⾓程序(FA)LbI0：“XC=”? A : “YC=”? T :X：Y0→J：POI（X-A，Y-T）→I：“BC=”：I◢If J＜0 Then 360+J→J：ElseJ→J :IfEnd“FW=”：J►DMS◢ Goto06. 使⽤⽅位⾓算坐标(NE)LbI0：“X=”? X: “Y=”? Y: “L=”? L:“F0”?F：L×Cos（F）+X→N: “N=”N◢L×Sin（F）+Y→E: “E=”E◢Goto07. 边坡放样程序(BIANPO)“QPDJL=”? → Z[3]: “QPDGD=”? → Z[4]: “PG=” ? → Z[5]：2→Z[6]：“P1=” ? → Z[8]：“P2=” ? → Z[9]：“P3=” ? → Z[10] (没有的话就删)：Z[7]-Z[4] → Z[11]：If Z[11]〈0 Then AbsZ[11] →Z[11]: “T=”：Z[11] ◢Else“W=”：Z[11] ◢IfEndZ[11]÷Z[5] →Z[12]：If Z[12]〈1 Then Z[8]×Z[11] →Z[13]：Else Z[8]×Z[5]+Z[9]×Z[5]×（Z[12]-1）→Z[13]：IfEnd:AbsZ-（Z[13]+Z[6]×Int Z[12]+Z[3]）→Z[14]:“BP+C-J=”: Z[14] ◢说明：Z[3]= QPDJL ………………起坡点离中桩距离Z[4]=“QPDGD” ……………起坡点设计标⾼Z[5]=“PG” ………………坡⾼Z[6]=“PTK” ……………… 平台宽度Z[7]=“DMG” ………………实测地⾯⾼度Z[8]=“P1” ………………⼀级边坡坡度Z[9]=“P2” ………………⼆级边坡坡度Z[10]=“P3” ……………… 三级边坡坡度(没有的话就删)Z[14]=“BP+C-J=” ………………边坡超⽋挖宽度（+表超，-表⽋）8. 隧道圆⼼放样程序（SDYX）IF S<229000:THEN 243.997+0.0205×(S-226520)-(S-227318)^2/2/16000+1.503 →Z[10]:“NGC=”：Z[10] ◢ELSE 286.385-0.023×(S-230500)- (S-230593.753)^2/2/165000+1.503→Z[10]:“YLJ=”：Z[10] ◢IfEndZ[10]- Z[7] →Z[15]:“+SG,-JD”：Z[15] ◢√（Z[15]^2+(ABS(Z)-6.8)^2）→Z[16]: “R=”:Z[16] ◢三、使⽤说明1、规定(1) 以道路中线的前进⽅向（即⾥程增⼤的⽅向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
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 ↙。
绝对有用的道路中边桩坐标放样正反算CASIO fx
道路中边桩坐标放样正反算CASIO fx-5800P程序（全线贯通）
程序的特点：
1．可进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写；
2．主程序通过调用数据库子程序，省却了使用时输入平面参数的繁琐；3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。
.二、程序代码
.
.
.
.
.
.
注：路线数据库子程序ROAD－DATA1是根据计算示例项目的直曲表编写，大家使用时应按各自项目的直曲表改写或新建。
.
.
四、程序变量清单
.
.
五、计算流程示例
1．中桩坐标计算示例
计算任务：计算高速公路K6+100～K6+700段的中桩坐标及切线方位角（桩距20m），并在导线点（2807118.026，474113.687）上架设全站仪，计算各中桩的极坐标放样数据。
使用道路中边桩坐标放样正反算程序RAOD－2的操作流程见下表。
.
.
.
.
2．边桩坐标计算示例
计算任务：计算HY高速公路主线K6+100～K6+700段的边桩（左右各12.25米）坐标（桩距20m）。
使用道路中边桩坐标放样正反算程序RAOD－2的操作流程见下表。
.
.
3．坐标反算计算示例
计算任务：根据前面计算的K6+100的中桩、左右边桩的坐标，反算对应桩号及偏距，并进行验证。
使用道路中边桩坐标放样正反算程序RAOD－2的操作流程见下表。
.。
CASIO fx5800P实用程序-圆曲线放样
3．单圆曲线(YQX)“KO”?O:“X0”?A:“Y0”?B：“JDX”?X：“JDY”？Y：“FWJ”？J：“FO”？F：?N：?R：6→DimZ←┘（K0为输入起算点桩号，X0为输入起算点X坐标，Y0为输入起算点Y坐标，JDX输入曲线所在交点X坐标，无输入0，JDY为输入曲线所在的Y坐标，无输入0，FWJ为输入起算点的方位角，F0为输入交点处的转角，带正负号，N为转角方向，正输入+1，负输入-1，R为输入曲线半径）Abs(F)÷2→G◢“T=”：Rtan(G)→T◢（计算切线长）“L=”：GRπ÷90→L◢（计算圆曲线长）“E=”：R÷cos(G)-R→E◢（计算外距，即交点到QZ点的距离）LbI 1←┘K：180N（K-O）÷(πR)→V：2Rsin(0.5NV)→M←┘（K为输入待求点的桩号）V为带求点与起算点间的弦长说对应的圆心角“XZ=”:A+Mcos(J+0.5V)→Z[1]◢（计算出的中桩X坐标）“YZ=”:B+Msin(J+0.5V)→Z[2]◢（计算出的中桩Y坐标）tan-1（（Z[2]-Y）÷（Z[1]-X））→U←┘If U＜0:Then U+360→U:Else U→U:If End←┘“FW=”?U :U DMS◢（计算出的中桩与交点的方位角）W:“XL=”：Z[1]-NWcos（J+V+90）→Z[3]◢（W为输入路半宽，计算出的左边桩X坐标）“YL=”：Z[2]-NWsin（J+V+90）→Z[4]◢（计算出的左边桩Y坐标）“XR=”[1]+NWcos（J+V+90）→Z[5]：Z◢（计算出的右边桩X坐标）“YR=”：Z[2]+NWsin（J+V+90）→Z[6]◢（计算出的右边桩Y坐标）“OK”？S：If S=1：Then Goto 1：Else“STOP”:Stop（S输入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左中线坐标。
线元法曲线任意里程中边桩坐标正反算(CASIO_fx-5800P计算器)程序(附带高程)
线元法曲线任意里程中边桩坐标正反算(CASIO fx-5800P计算器)程序（附带高程）一、功能及原理说明1. 功能说明：本程序由一个主程序(1-MAIN)和七个子程序——正算子程序(1-SUB-ZS)、反算子程序(1-SUB-FS)等构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。
本修改版程序既可实现正算全线贯通，亦可实现反算全线贯通。
本程序在CASIO FX-5800P计算器运行。
2．计算原理：利用Gauss-Legendre 5点通用公式正算线路中边桩坐标、线外测点至曲线元起点和终点的垂距的符号是否相异（即Dca×Dcb<=0=>该测点在其线元内）进行判断并利用该线元要素反算中桩里程、支距，最后计算出反算结果。
3. 程序输入计算器后，请根据统计串列List X，Y，freq[N]在程序中实际可能被使用的维数，将其统计矩阵串列改为包含相应维数的任意数据的矩阵，即在list列表中随机输入相应维数的数据，保证矩阵大小符合维数要求。
4. 本程序正算速度在1-2秒左右，反算比正算慢点，可根据需要调整精度加快速度。
本程序可建立曲线要素数据库及高程变坡点数据库，一次输入整条线路数据，计算时自动调用数据库，实现全线贯通，也可临时手动输入线元计算要素进行计算。
5. 本程序由小骆在前人的基础上改进而成，经个人测试可用。
学识浅薄，不足之处，在所难免，欢迎提出改进意见。
二、源程序1.主程序(1-MAIN)Deg:fix 320→DimZLbl 0:cls：“INPUT(0),ZX(1),YX(2)”?I (选择手动输入计算参数0，还是调用线路数据1,2）If I=0:Then Prog “1-DAT1”:IfEnd“SZ=>XY(1),XY=>SZ(2)”?N（正算，反算）If N=1 :Then Goto 1Else If N=2 :Then Goto 2Else Goto 3IfEnd:IfEndLbl 1:“KP=”?S（输入待求桩号）If S<0:Then Goto 0:IfEnd“JL(m)=”?Z （输入偏距）If Z≠0:Then “ANGLE→R(Deg)=”?M:IfEnd （输入斜交右角）If I≠0:Then Prog “1-DAT2”:IfEndS-O→W:If W<0:Then Goto 0:Else If W>H:Then cls:locate 6,2,"KP OUT"◢Goto 0:IfEnd:IfEnd(前半条针对“DAT”情况，后半条针对“INPUT”情况。
公路曲线施工放样程序(fx5800P)
公路曲线大地坐标施工放样程序（CASIO fx-5800P）一、主程序F1 ZBJSL1 8→Dim Z：“NC”？Z：“EC”？C：“LS”？G：“R=”?R: .5G―G^3÷(240R2) →Q：“A=”？A:“T=”：Q+（R+G2÷（24R）―G^4÷（2688R^3）tan（.5A）→T▲“L=”：RAπ÷180+G →L▲“HZ=”?O“ZH=”:O+L→Z［3］▲“Y1，Z2”?H：“JDN=”?P“JDE=”?M：“F=”?F:L2 Lb10：”K=”?K: ”V=N-,W+”?V: ”B=”？B：k- O→S⊥IF S≤0 Then S→X：0→Y：0→U：Prog“C”：Prog“D”：Goto 0：If End⊥L3 If S≥L：Then T+cosＡ（T＋S-L）→X：sinＡ（T＋S-L）→Y：A→U：Prog“C”：Prog “D”：Goto 0：If EndL４If S≥L-G：Then L-S→S：Prog“Ｂ”：X→Z[１]：Y→Z[２]：T-Z[２]sinA+cosA（T-Z[１]）→X：Z[２]cosA＋sinA（T-Z[１]）→Y：L-S→S：A-U→U：Prog“C”：Prog“D”：Goto 0：If End⊥L５If S≥G：Then 90（2S-G）÷（Rπ）→U：Q+RsinU→X：G2÷（24R）-G^４÷（2688R^3）+R（１-cosU）→Y：Prog“C”：Prog“D”：Goto 0：If End⊥L６If S≤G Then K- O→S：S-S^5÷（40R2G2）→X：S^3÷（6RG）-S^7÷（336R^3G^3）→U：Prog“Ｃ”：Prog“Ｄ”：Goto 0：If Eed⊥二、子程序Ｆ２ BL1 S-S^5÷（40R2G2）→X：S^3÷（6RG）-S^7÷（336R^3G^3）→Y：90S2÷（RGπ）→UＦ３ＣL1“X=”：X+VsinU+BcosU→X▲＂Y=”：Y-VcosU+BsinU→Y▲Poｌ（１Ｅ-99+X），Y）：Tf H=1：Then “N=”：P+Tcos（F+180）+Icos（F＋J）→N▲＂E=”：M+Tsin（F+180）+Isin（F+J）→Ｅ▲：If End⊥If H=2：Then：“N=”：P+Tcos（F-180）+Icos（F-J）→N▲“E=”：M+Tsin（F+180）+Isin（F-J）→E▲：If EndＦ４ＤL1 tan-１（（E-C）÷（N-Z））→D：If N-Z≥０Then“FN”：360+D→Z[5]▲Else“FN=＂：180+D→Z[5]▲IfEnd：“LX=＂：√（（N-Z）2+（E-C）2）→Z[6]▲“C=＂√（（N-Z[7]）2+（E-Z[8]）2→Z[4]▲“N=＂：N→Ｚ［７］▲“E=＂：E→Z[8] ▲三、程序变量说明以程序运行时计算器显示先后为准：NＣ？EＣ？提示输入架仪点的Ｎ和Ｅ坐标：ＬＳ？提示输入测设曲线缓和曲线长；Ｒ？提示输入测设曲线半径长：Ａ？提示输入测设曲线转角（以度分秒格式输入）；Ｔ＝Ｌ＝显示计算的曲线元素（对比设计资料可检验ＬＳ、Ｒ、Ａ是否输入正确）；ＺＨ？提示输入测设曲线直缓（直圆）桩桩号（对比设计资料可检验直缓（直圆）桩桩号输入是否正确）；Ｙ１，Ｚ２？判断曲线转向，右转输入１，左转输入２；ＪＤＮ？ＪＤＥ？提示输入交点的Ｎ和Ｅ坐标；Ｆ？提示输入曲线计算起始边的坐标方位角（以度分秒格式输入）；Ｋ？提示输入欲放样点的桩号；Ｖ？提示输入欲放样点相对中点的法线方向的距离，位于曲线内侧输入负值，外投影为正值，测设中桩时输入０。
CASIO fx5800P单交点单圆曲线中边、桩坐标计算程序
单交点单圆曲线中边桩坐标计算程序(PM4-3)(2) 主程序——PM4-3，占用内存1070字节。
"SINGLE CIRCLE CURVE"显示程序标题1"METHOD OF COORDINATE PM4-3"显示坐标法标题2Deg:ClrStat:FreqOn:Fix 3基本设置14DimZ定义额外变量"JD MILEAGE PEG(m)="?Z输入以m为单位的交点桩号"JD X(m)="?U输入交点x坐标"JD Y(m)="?V输入交点y坐标"ZD X(m)="?M输入转点x坐标"ZD Y(m)="?N输入转点y坐标Pol(U-M,V-N):Cls计算ZD JD的边长与方位角If J<0:Then J+360A:Else J A:IfEnd判断ZD JD的方位角A"TURNING ANGLE -L,+R(Deg)="?Q输入交点路线转角,左偏为负,右偏为正If Q<0:Then -1Z[10]:Else 1Z[10]:IfEnd确定转角数值Q Z[4]:Abs(Q)D保存转角及符号"R(m)="?R输入圆曲线半径Rtan(0.5D)T计算切线长RDπ÷180L计算曲线长R(cos(0.5D)-1-1)E计算外距2T-L J计算切曲差"T(m)=":T显示切线长"L(m)=":L显示曲线长"E(m)=":E显示外距"J(m)=":J显示切曲差Z-T Z[1]:Z[1]+0.5L Z[2]:Z[2]+0.5L Z[3]计算ZY，QZ，YZ点桩号Z[1]List X[1]存储ZY点的桩号到统计串列U-Tcos(A)List Y[1]:V-Tsin(A)List Freq[1]计算并存储ZY点的测量坐标到统计串列"ZY PEG(m)=":List X[1]显示ZY点桩号及坐标"ZY-X(m)=":List Y[1]"ZY-Y(m)=":List Freq[1]"WL(m),0 NO="?B输入路面左半幅宽度If B>0:Then List Y[1]+Bcos(A-90)Z[11]计算并显示ZY点的左边桩坐标List Freq[1]+Bsin(A-90)Z[12]"XL(m)=":Z[11]"YL(m)=":Z[12]IfEnd"WR(m),0 NO="?C输入路面右半幅宽度If C>0:Then List Y[1]+Ccos(A+90)Z[13]计算并显示ZY点的右边桩坐标List Freq[1]+Csin(A+90)Z[14]"XR(m)=":Z[13]"YR(m)=":Z[14]IfEndZ[2]List X[2]:2K存储ZY点的桩号到统计串列Prog "SUB4-31"调子程序计算并显示QZ点坐标Z[3]List X[3]:3K存储YZ点桩号Prog "SUB4-31"调子程序计算并显示YZ点坐标If R<30:Then 5I:Else If R<60:Then 10I:Else 20I:IfEnd:IfEnd确定整桩间距"INT DIST(m)="?O输入整桩间距If O>0:Then O I:IfEnd输入的整桩间距大于零时，使用输入值"ONLY CALC +PEG(1)"?G输入1为只计算加桩点的坐标If G=1:Then Goto 1:IfEndK+1K计数变量计数Int(Z[1]÷I)I+I List X[K]计算并存储从ZY点开始的第一个整桩号Prog "SUB4-31"调子程序计算并显示坐标Do计算ZY点至YZ点K+1K计数变量计数List X[K-1]+I List X[K]计算并存储整桩号Prog "SUB4-31"调子程序计算并显示坐标LpWhile List X[K]+I<Z[3]没计算到YZ点时继续循环Lbl 1Do"+PEG(m)="?F输入加桩号If F List X[1]:Then Break:IfEnd加桩号小于ZH点桩号时结束程序运行If F List X[3]:Then Break:IfEnd加桩号大于HZ点桩号时结束程序运行K+1K计数变量计数F List X[K]存储加桩号到统计串列Prog "SUB4-31"调子程序计算并显示偏角弦长LpWhile F>0没有计算到YZ点时继续循环"PM4-3END"(3) 子程序——SUB4-31，占用内存498字节。
fx5800P测量公式及程序汇总
卡西欧5800P 测量程序汇总CASIO fx5800P公路施工放线测量公式及程序一、已知座标，求平距和方位角(座标反算)：公式：D=√（Xp-Xo）2+（Yp-Yo）2 α=arctg(Yp-Yo)/(Xp-Xo) 程序：“A”？→A：“B”？→B：Lbl 0:“X”？→X：“Y”？→Y：（X-A）→M：（Y-B）→N：“D=”：√（M2+N2）⊿ tan-1(N/M) →C:If M＜0:Then “Q=”：180+C →Q ⊿ Else If N＞0: Then “Q=”：C→Q ⊿ Else “Q=”：360+C→Q ⊿ If End : If End : Goto 0 说明：（A，B）为测站点坐标，（X，Y）为所求点坐标。
输出：D为平距，Q为方位角。
二、已知直线的坐标方位角Q和直线起点坐标（Xo,Yo），求直线上任一点的中桩坐标（X， Y），左右边桩坐标（XL，YL）、（XR，YR）：公式：X =Xo+LcosQ Y=Yo+LsinQ程序：“A”？→A：“B”？→B：“Q”？→Q：“Z”？→Z：Lbl 1: “P”?→P：“J”？→J：“M”？→M：Abs（M-Z）→W：“X=”：A+W*cos(Q)+P cos(Q+J)→X ⊿“Y=”：B+W*sin(Q)+P sin(Q+J) →Y ⊿Goto 1 说明：（C，D）为直线起点坐标，Q为直线方位角，Z为起点桩号，L为所求坐标点桩号。
“U”为左边距，“T”为右边距，“V”为偏角；U=0时不算边桩坐标。
输出：（X，Y）为中桩坐标，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。
三、已知圆曲线起点坐标（U，V），切线方位角Q，桩号Z和圆半径R，求圆曲线上桩号为 L的点中桩坐标（X，Y），左右边桩坐标（XL，YL）、（XR，YR）：公式：ψ=90L/(лR) (偏角公式） C=2Rsin ψ (对应弧的弦长公式）弦的方位角:Q=Qo±ψ（曲线左转时为“-”）程序：“U”？→U：“V”？→V：“Q”？→Q：“R”？→R：“Z”？→Z：“W=-1，1”：？→W：“ZJ=”：？→Z[1]：“YJ=”：？→Z[2]：“PIAN JIAO”：？→T：Lbl 2: “M”？→M：180*（M-Z）/（2π*R）→J：R*2sin(J)→K:If W=-1:Then“X=”:U+K*cos (Q-J）→X⊿ “Y=”：V+K*sin(Q-J)→Y ⊿“Q=”：Q-180*（M-Z）/（πR）→O⊿ Else If W=1:Then“X=”:U+K*cos(Q+J）→X⊿“Y=”：V+K*sin(Q+J)→Y ⊿ “Q=”：Q+180*（M-Z）/（πR）→O⊿ IfEnd:IfEnd:T=0=＞Goto 2：“XL=”:X+Z[1]*cos(O-T)→F⊿“YL=”：Y+Z[1]*sin(O-T)→P⊿“XR=”:X+Z[2]*cos(O+T)⊿“YR=”：Y+Z[2]*sin(O+T) ⊿ Goto 2 说明：W=-1时曲线左转, W=1时曲线右转。
fx-5800P道路中边桩坐标放样正反算程序ROAD-2（修订版）
fx-5800P道路中边桩坐标放样正反算程序ROAD-2（修订版）道路中边桩坐标放样正反算程序主程序 ROAD-2主程序：ROAD-2Deg:Fix 3:20→DimZ↓"ZS[1],FS[2]"?J↓If J=1:Then Goto 0:Else Goto 4:IfEnd↓Lb10↓"Z -1,Y +1"? I↓"LC"?P:"PJ"?D↓If I<0:Then Prog“ROAD-DATAZ” :Else Prog“ROAD-DATAY” :IfEnd↓M+O→N↓Prog"ROAD-SUB1"↓Prog"ROAD-SUB2"↓"X=":F+Dcos(Z+90)→Z[11]◢"Y=":G+Dsin(Z+90)→Z[12]◢"α=":Z DMS◢Goto 0↓Lbl 4↓"Z -1,Y +1"? I↓"X"?U:"Y"?V:"GSLC"?P↓Lbl 5↓If I<0:Then Prop“ROAD-DATAZ” :Else Prop“ROAD-DATAY” :IfEnd↓M+O→N↓Prog"ROAD-SUB1"↓Prog"ROAD-SUB2"↓Z-90→A↓(V-G)cos(A)-(U-F)sin(A)→H↓If Abs(H)>0.0001:Then P+H→P:Goto 5:IfEnd↓"LC=":P◢"PJ=":(G-V)÷sin(A)→D◢Goto 4↓平曲线要素及主点桩号计算子程序： ROAD-SUB1If O<0:Then -1→W:Else 1→W:IfEnd:WO→A↓B^(2)÷24÷R-B^(4)÷2688÷R^(3)→Z[6]↓C^(2)÷24÷R-C^(4)÷2688÷R^(3)→Z[7]↓B÷2-B^(3)÷240÷R^(2)+B^(5)÷34560÷R^(4)→Z[8]↓C÷2-C^(3)÷240÷R^(2)+C^(5)÷34560÷R^(4)→Z[9]↓Z[8]+(Z[7]-Z[6])÷(2×tg(A÷2))+(Z[7]+Z[6]+2×R)×tg(A÷2)÷2→S↓Z[9]+(Z[6]-Z[7])÷(2×tg(A÷2))+(Z[7]+Z[6]+2×R)×tg(A÷2)÷2→T↓RAπ÷180+( B+C)÷2→L↓L-B-C→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]↓中线坐标计算子程序： ROAD-SUB2X-Scos(M)→F:Y-Ssin(M)→G↓If P>Z[1]:Then Goto 1:IfEnd↓X→F:Y→G:P-K→Z[16]:0→Z[17]:M→A:M→Z:Goto 5↓Lbl 1↓If p>Z[2]:Then Goto 2:IfEnd↓P-Z[1]→L:L→Z[14]:B→Z[15]:Prog"ROAD-SUB3"↓WZ[17]→Z[17]:M→A:M+90WL^(2)÷(BRπ)→Z:Goto 5↓Lbl 2↓If P>Z[4]:Then Goto 3:IfEnd↓P-Z[1]→L:90(2L-B)÷R÷π→A↓Rsin(A)+Z[8]→Z[16]:W(R(1-cos(A))+Z[6]→Z[17]↓M+WA→Z:M→A:Goto 5↓Lbl 3↓If P>Z[5]:Then Goto 4:IfEnd↓Z[5]-P→L:L→Z[14]:C→Z[15]:Prog"ROAD-SUB3"↓X+Tcos(N)→F:Y+Tsin(N)→G↓—Z[16]→Z[16]:WZ[17]→Z[17]:N→A:N-90WL^(2)÷(CRπ→Z:Goto 5↓Lbl4↓X→F:Y→G:P-Z[5]+T→Z[16]:0→Z[17]:N→A:N→Z:Goto 5↓Lbl 5↓F+Z[16]cos(A)-Z[17]sin(A)→F↓G+Z[16]sin(A)+Z[17]cos(A)→G↓If Z<0:Then Z+360→Z:IfEnd↓缓和曲线局部坐标计算子程序 ROAD-SUB3If Z[14]=0:Then 0→Z[16]:0→Z[17]:Else↓Z[14]-Z[14]^(5)÷40÷(RZ[15])^(2)+Z[14]^(9)÷3456÷(RZ[15])^(4)→Z[1 6]↓Z[14]^(3)÷6÷(RZ[15])-Z[14]^(7)÷336÷(RZ[15])^(3)+Z[14]^(11)÷42240÷(RZ[15])^(5)→Z[17]↓IfEnd↓路线数据库子程序 ROAD-DATAZ12200.836→Z[18]:13481.073→Z[19]:If PZ[19]→Z[18]:14682.846→Z[19]:If PZ[19]→Z[18]:16353.635→Z[19]:If PZ[19]→Z[18]:17328.058→Z[19]:If PZ[19]→Z[18]:18555.915→Z[19]:If PZ[19]→Z[18]:19690.214→Z[19]:If PLbl 1:IfP<12200.836 Or P>19690.214:Then Cls:Locate 5,2,"LC ERROR"◢Stop:Ifend:Return路线数据库子程序 ROAD-DATAY17157.391→Z[18]:18529.883→Z[19]:If PZ[19]→Z[18]:19680.759→Z[19]:If PLbl 1:IfP<17157.391 Or P>19680.759:Then Cls:Locate 5,2,"LC ERROR"◢Stop:Ifend:Return。
卡西欧fx-5800p计算器 公路测量常用程序
FX-5800p计算器公路测量常用程序一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。
主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。
程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XYLb1 0:Norm 2F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)Z[1]=90（与路线右边夹角）Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢Ｇoto 0２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix3:”H=”:Locate 6,4,H◢“I=”: Locate 6,4,I◢Goto 03.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：3JSX：Y：1268．123→K(置仪点X坐标)2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）Y-L→E：X-K→F：Pol(F,E):IF J<0:ThenJ+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示)Fix 3:”S=”:Locate 6,4,I◢4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名：4JH-XYLbI 0:Norm 290→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)1→F:Prog”THB”:?L:Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBXLbI 0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog“THB”:Z:D:”M0”?M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:If D<0:Then 0.75-L→D:GotoH:Else L-0.75→D:Goto H:IfEndLbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:Then –z[5] →G:Goto W:Else Z[5] →G:Goto T:LbI W:Prog “W0”:Z[10]+Z[11] →A: If G>A:Then Goto 1:Else If G>Z[10]:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto Z:LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:Goto Z:LbI 3:L+Z[12]+G×Z[7]:Goto z:LbI T:L+0.5→N:If G>Z[17]:Then (N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else (N+G×Z[15])→S:Goto z:LbI Z:Z[3]→D:Fix 2:Abs(D)-S→T:”L0=”:L Locate 6,4,T◢＂Ｄ＝＂：Locate 6,4,Ｄ◢“TW=”: Locate 6,4,Z[5]◢Goto 06．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg “G0”Z-C→E:(B-A)×E/S+A→L:L:7．坐标计算次程序（ＴＨＢ）程序名：THB18→DimZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂1÷P→Ｃ： (P-R)÷(2HPR) →Ｓ：180÷π→Ｅ：Ｆ=1=>Goto 1：Ｆ=2=>Goto 2←┘Lbl 1：?Ｄ： Abs(Ｚ－O) →W：Prog "Ａ"：X：Ｙ：Ｇoto 3LbI 2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 3LbI 3:IF Ｆ＝１Then Ｘ：Ｙ：Else Ｚ：Ｄ8. 正算子程序(Ａ)程序名：A0.1184634425→A： 0.2393143352→B：0.2844444444→N 0.046910077→K：0.2307653449→L：0.5→M： U+W(Acos(G+QEKW(C+KWＳ))+Bcos(G+QELW(C+LWＳ))+Ncos(G+QEMW(C+MWＳ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS))) →X：V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LWＳ))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WＳ))) →Y：G+QEW(C+WＳ)+Ｚ［１］→Ｚ［２］：X+Ｄcos（Ｚ［２］）→Ｘ： Y+Ｄsin（Ｚ［２］）→Ｙ9. 反算子程序(Ｂ)程序名：BG-90→Ｔ： Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ：0→Ｄ：Lbl 0：Prog "Ａ"： T+QEW(C+WＳ) →Ｌ： (J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto1：Else W+Ｄ→W:Goto 0←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］) →D:10．高程计算子程序（H）程序名：HProg “S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:If T=O:Then Q+LI→H:Goto 0:Else IfZ<F:Then Q+LI→H:Goto 0:Else If Z≤E:Then Q+LI+L2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I:H:I:11.高程超高计算程序（I）程序名：IProg”I0”:W=1=> Goto 0:W=2=>Goto 1:LbI 0:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷L+M)→V:Goto 2:IfEnd: LbI 1:If L=0:Then Abs(D)×M→V:Goto 2:ElseAbs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V:12．数据子程序(附后示例)①程序名：X0（坐标计算要素程序）If Z≥25900 And Z≤26615.555:Then 25900→O:11587.421→U:1847.983→V:101。
道路直线段中边桩坐标放样计算CASIOfx-5800P程序090405
道路直线段中边桩坐标放样计算CASIO fx-5800P
程序
发表于2009年04月05日23:21阅读（200）评论（14）分类:
举报
王中伟 技术交流
三、数学模型
如图所示，已和輕甲元的起点坐标0（%必）、起点切絃方位角旳、直统甲元伙產z・
.V
亘妹孕元的终点（或直裟上呆点〉坐标ZU..X；）计算如下］
£=兀■厶COS偽I y.m + Zfink f
•四、程序代码
五、程序变量清单
道苗
五、计算流程示例需要对设计文件中的逐桩坐标进行验算，将断链前后两段路线分别进行计算。
1.计算断链前路段的中桩坐标使用道路直线段中边桩坐标放样计算程序LINE 的操作流程见下表。
2-计算断链后路段的中桩坐标使用道路直线段中边桩坐标放样计算程序LINE的操作流程见下表。
打桩程序CASIO-fx4850P(5800P)
10,Y=? 桩中心计算Y坐标, 11,T=? 桩的平面扭角 12,V=? 桩的斜率,直桩为0,斜桩输入设计值 13,H=? 桩的提高量,无提高输入0
第5页 共7页
Casio fx5800P计算器程序 (打桩程序)
计算结果如下: NA: 测站A点瞄准B点置角度0后的拨角值 1,W1=? 2,W2=? 3,W3=? NB: 4,W1=? 5,W2=? 6,W3=? NC: 7,W1=? 8,W2=? 9,W3=? 测站点A的左瞄准角 测站点A的右瞄准角 测站点A的船尾瞄准角 测站点B的左瞄准角 测站点B的右瞄准角 测站点B的船尾瞄准角 测站点C的左瞄准角 测站点C的右瞄准角 测站点C的船尾瞄准角
★
: -> ? S ? ? G
Z
P B B " C E
G
r : : : : :
★
o " " X " "
★
g X < -> Y Y A B C B C
Y g X X L
> : = " = = "
" Y " S " " ?
圆桩定位角[5800P] " S S " : = " ? A : > " : P r : Y -> D : = " ? D : = " ? F :
4
R : + ( i ) > t > :
->
S c W K
->
( o ) + G
->
) + ( S 7 0 l N
R s s W K o K
X
S : o ) ) : : T e G
卡西欧5800P曲线坐标放样程序
卡西欧5800P曲线坐标放样程序摘要：本文介绍了卡西欧5800P编程的程序源代码，程序编制依据原理和程序使用说明，旨在完善全站仪软件功能的不足之处，在现场施工测量中，能极大提高工作效率。
关键词：不等长缓和曲线；交点法；逐次渐进试算法；卡西欧5800P编程Abstract: This paper introduces the Casio 5800P programming source code, programming compilation basis principle and procedures instructions for use, designed to improve the inadequacies of the total station software features, in the measurement of the on-site construction can greatly improve work efficiency.Key words: unequal length of transition curve; the intersection of law; try successive approximation algorithm; Casio 5800P programming中图分类号：U212.33+2.2 文献标识码：A 文章编号：2095-2104（2012）03-00一、引言在铁路、公路、市政道路的工程建设中，避不开各种曲线的测量，曲线测量大量的计算工作，是现场施工测量的必不可少的一个重要环节，数据计算的准确于否，测量成果的好坏，直接关系到工程质量、进度。
传统的测量方法，总是拿着提前计算好的曲线数据，进行外业测量。
但施工现场，各种障碍物及不可预测的客观因素的存在，往往是提前算好的数据无法在施工现场进行实地测量，需要在施工现场根据实际情况进行机动调整而重新进行曲线的数据计算，如何快捷、准确、有效的在施工现场进行大量的计算工作，能以最少的时间做出最多的作业效率？卡西欧5800P编程计算器的使用，大幅度提高了计算速度与作业效率，有效地解决了这一实际问题。
CASIOfx-5800P计算线路中边桩坐标的通用程序
肘 廊 ‘ 够 ｃ ・ 疵ｒ Ｒ ｅ ｓ ｏ ｕ ｒ ｃ ｅ ｓ ・ ｌ Ｍ ｅ 凸 ｓ ｉ 軎 ， ｌ ｌ
Ｃ ＡＳ Ｉ Ｏ ｆ ｘ 一 ５ ８ ０ ０ Ｐ计 算线路 中边桩坐标 的通用程序
ＣＡＳ Ｉ Ｏｆ ｘ ． ５ ８ ０ ０ Ｐ Ｃａ ｌ ｃ ｕ ｌ ａ ｔ ｅ ｄ Ｌｉ ｎｅ Ｓ ｉ ｄ ｅ Ｃｏ ｏ ｒ ｄ ｉ ｎ ａ ｔ ｅ ｓ Ｇｅ ｎ ｅ ｒ ａ ｌ Ｐ ｒ ｏ ｇ ｒ ａ ｍ
张冬菊， 彭华
（ 湖南工程职业技术学院 ， 长沙 ４ １ ０ １ ５ １ ）
Ｚ ＨＡ ＮＧＤｏ ｎ ｇ － ｊ ｕ ， Ｐ Ｅ ＮＧ Ｈｕ ａ
（ Ｈｕ ｎ ａ ｎ Ｖｏ ｃ ａ ｔ ｉ ｏ ｎ ａ ｌ ａ ｎ ｄ Ｔ ｅ ｃ ｈ ｎ ｉ ｃ ａ ｌ Ｃ ｏ ｌ ｌ ｅ ｇ ｅ ， Ｃ ｈ ａ ｎ ｇ ｓ ｈ ａ ４ １ ０ １ ５ １ ， Ｃ ｈ ｉ ｎ ａ ）
右边桩坐标为 ： ｛
２ ． ３用 复化 辛普森 公 式对 坐标进 行数 值积 分 ［ １ ］
¨
＋ Ｊ 。 Ｃ Ｏ Ｓ ｍ
，
＋ ｊ 。 ｓ ｉ 溉‘
图 １ 曲线 兀 坐标 系
将积分 区间【 Ｏ ， ｆ ｉ ］ 分 为等分 ， 则 步长为 － ２ ， 则各分点里
程 为
则为
【 中图分类 号】 ｕ ４ ｌ ２ ． ２ ４ 【 文献标志码】 Ａ 【 文章编号】 １ ０ ０ ７ ． ９ ４ ６ ７ （ ２ ０ １ ３ ） １ １ － ０ ０ ９ ７ ． ０ ４
１引言
随着全站仪 的技术 日益更新 ，坐 标放样在 工程 中应用 更
编程 ， 可是这些程 序有局 限性 ， 往往 计算公式 复杂 ， 需要进行 坐标 转换 ， 而且只是针对某个线型 的， 而不能解决所 有的线 型
卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序)
卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序)一、直线计算程序0→I:0→J:”X0”?D:”Y0”?E:”X1”?B:”Y1”?C:Pol(B-D,C-E):J →A:If A<0:Then A+360→A:Else A→A:IfEnd:Lbl 0:?O:?S:If O≠0:Then Goto 1:IfEnd:D+Scos(A) →X:”X=”:X ◢E+Ssin(A) →Y:”Y=”:Y ◢Goto 0:Lbl 1:D+Scos(A)+Ocos(A+90) →X:”X=”:X ◢E+Ssin(A)+Osin(A+90) →Y:”Y=”:Y ◢Goto 0说明：输入程序时注意区别字母O 与数字0程序运行时符号说明X0? Y0? 分别输入直线起点的XY 坐标值X1? Y1? 分别输入直线终点的XY 坐标值O? 输入边桩与中桩的距离( 左边桩为负值, 右边桩为正值), 如计算中桩坐标输入0S? 输入所求点到直线起点的距离二、圆曲线计算程序0→I:0→J: ”X0”?C:”Y0”?D:”X1”?E:”Y1”?F:?R:”L:-1 R:1”?N:”ZY”?W:Lbl 0:”LN”?T:T-W→O:Pol(E-C,F-D):I→S:J→A: If A<0:Then A+360→A:Else A →A:IfEnd:sin-1(S÷(2R)) →K:2∏RK÷180→L:180O÷(2∏R) →G:(2R)sin(G) →H:C+Hcos(A-KN+GN) →X:”X=”:X ◢D+Hsin(A-KN+GN) →Y:”Y=”:Y ◢R-0.5√(4R2-H2) →Q:”Q=”:Q ◢“S=”?V:If V=0:Then Goto 0:IfEnd:”L:-90 R:90”?U:X+Vcos(A-KN+2GN+U) →X:”X=”:X ◢Y+Vsin(A-KN+2GN+U) →Y:”Y=”:Y ◢Goto 0说明：输入程序时注意区别字母O 与数字0程序运行时符号说明X0? Y0? 分别输入直线起点的XY 坐标值X1? Y1? 分别输入直线终点的XY 坐标值R? 输入圆曲线半径L:-1 R:1? 圆曲线向左转弯时输入-1, 向右转弯时输入1ZY? 输入起点桩号LN? 输入所求点桩号( 按下exe 键后显示中桩坐标)S? 输入所要求的边桩与中桩的距离L:-90 R:90 要求左边边桩输入-90, 右边边桩输入90( 按下exe 键后显示边桩坐标)三、大地转施工“QK=”？Z:“QX=”？A:“QY=”?B:“ZX=”？O :“ZY=”？Q ↙Pol( O -A,Q-B) ↙J<0=>J+360→J ↙J>360=>J-360→J ↙J→F:“JF=”：F ◆DMS ◢Lb1 0 ↙？X:?Y ↙Pol （X-A,Y-B):I→D ↙J<0=>J+360→J ↙J>360=>J-360→J ↙J-F→T:T→G ↙T<0=>T+360→G ↙T>360=>T-360→G ↙Z+Dcos （G)→K:“K=”：K ◢Dsin （G)→C:“C=”：C ◢GoTo 0 ↙说明：QK-- 输入线路起始点里程QX-- 输入线路起始点中桩X 坐标QY-- 输入线路起始点中桩Y 坐标ZX-- 输入线路前进方向中桩X 坐标ZY-- 输入线路前进方向中桩Y 坐标JF=-- 显示线路测量坐标方位角X-- 输入线路附近任意点测量X 坐标Y-- 输入线路附近任意点测量Y 坐标K-- 显示计算结果：里程桩号，即工程X 坐标C-- 显示计算结果：左右偏距，即工程Y 坐标, 中桩=0 ，左偏= 负值，右偏= 正值。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
3．单圆曲线(YQX)
“KO”?O:“X0”?A:“Y0”?B：“JDX”?X：“JDY”？Y：“FWJ”？J：“FO”？F：?N：?R：6→DimZ←┘（K0为输入起算点桩号，X0为输入
起算点X坐标，Y0为输入起算点Y坐标，JDX输入曲线所在交点X坐标，无输入0，JDY为输入曲线所在的Y坐标，无输入0，FWJ为输入起算点的方位角，F0为输入交点处的转角，带正负号，N为转角方向，正输入+1，负输入-1，R为输入曲线半径）
Abs(F)÷2→G◢
“T=”：Rtan(G)→T◢（计算切线长）
“L=”：GRπ÷90→L◢（计算圆曲线长）
“E=”：R÷cos(G)-R→E◢（计算外距，即交点到QZ点的距离）
LbI 1←┘
?K：180N（K-O）÷(πR)→V：2Rsin(0.5NV)→M←┘（K为输入待求点的桩号）V为带求点与起算点间的弦长说对应的圆心角
“XZ=”:A+Mcos(J+0.5V)→Z[1]◢（计算出的中桩X坐标）
“YZ=”:B+Msin(J+0.5V)→Z[2]◢（计算出的中桩Y坐标）
tan-1（（Z[2]-Y）÷（Z[1]-X））→U←┘
If U＜0:Then U+360→U:Else U→U:If End←┘
“FW=”?U :U DMS◢（计算出的中桩与交点的方位角）
?W:“XL=”：Z[1]-NWcos（J+V+90）→Z[3]◢（W为输入路半宽，计算出的左边桩X坐标）
“YL=”：Z[2]-NWsin（J+V+90）→Z[4]◢（计算出的左边桩Y坐标）“XR=”: Z [1]+NWcos（J+V+90）→Z[5]◢（计算出的右边桩X坐标）“YR=”：Z[2]+NWsin（J+V+90）→Z[6]◢（计算出的右边桩Y坐标）
“OK”？S：If S=1：Then Goto 1：Else“STOP”:Stop（S输入1返回继续计算下一点，输入其他值退出程序）
注释：程序中←┘此符号为回车键即计算器上的exe 就是换行的意思。