CASIO_fx-5800P计算与道路坐标放样计算

合集下载

CASIO fx—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：方位角２、坐标反算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：方位角３、圆曲线〝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：偏移量４、竖曲线〝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：待求点里程。

CASIOfx-5800P编程计算器在建筑工程放样中的运用

CASIO fx-5800P编程计算器在建筑工程放样中的运用摘要：CASIO fx-5800P计算器的编程功能为施工放样提供了方便、快捷、灵活的计算方式。

仅仅需要两个控制点、任何一根轴线上的两个点坐标及图纸轴线的相对关系。

就能快速的完成作业关键词：CASIO fx-5800P；建筑工程；放样；程序一、概述自从全站仪出现以后，测绘行业得到了飞速的发展。

无论是测量精度还是工作效率都得到了很大的提高。

虽然全站仪采用极坐标法放样已经很方便了，但是灵活度还是不够。

施工现场随时有设备及材料的堆放，容易导致通视受限的影响。

此时选用自由设站加CASIO fx-5800P的程序的方法就可以提高工作效率、节约人力、物力。

笔者以三峡巴基斯坦第一风力发电站项目的实例说明CASIO fx-5800P编程计算器在建筑工程放样中的运用。

二、主要程序名称及编码1、坐标反算（FS）程序编码：Fix 4:“XA=”?→A:“YA=”?→B:Lbl 1：“XB=”?→C:“YB=”?→D:1.A→E:D-B→F:√(E²+F²)→S:Tan-1(F/E)→RI F E<0: THEN R+180→R:Goto 2:IFEND:F<0 R+360→R←Lbl 2：“S=”:S◢“R=”:R►DMS◢Goto 1程序运行说明：在全站仪设站的过程中需要用“坐标反算”程序校核平距及方位角，确定设站的准确性。

输入已知点A(XA,YA),B(XB,YB)坐标，计算出A至B的方位角及距离。

1.测边交会法计算测站坐标（CBJH）程序编码：Fix 4:“XA=”?→A:“YA=”?→B:“XB=”?→C:“YB=”?→D:“SA=”?→P:“SB=”?→Q:C-A→G:D-B→H:√(G²+H²)→I:(P²+I²-Q²)/2/I→E:√(P²-E²)→F:H/I→M:G/I→N“X=”:A+EN+FM◢“Y=”:B+EM-FN◢“END”程序运行说明：全站仪自由设站的过程中，若仪器无内置程序，则需要用“边角交会法计算测站坐标”程序计算出仪器站点坐标。

卡西欧5800计算器公路坐标计算程序

卡西欧5800计算器公路坐标计算程序卡西欧计算器在公路方面广泛应用，现将单个简单的坐标计算程序分享给朋友们，望对刚入行的同志们有所帮助!一、直线?P:?Q:?F:?ALb10?DAbs(D-A) →KRec(K,F)“X=”:P+I→X◢“Y=”:Q+J→Y◢?S:?ERec(S,F+E)“M=”:X+I→M◢“N=”:Y+J→N◢Goto 0P起点x坐标Q起点y坐标F起点方位角A起点桩号D所求桩号X所求中桩x坐标Y所求中桩y坐标S中桩与边桩距离E中桩与边桩夹角（左-右+）M所求边桩x坐标N所求边桩y坐标二、圆曲线?P:?Q:?F:?A:?G:?RLb10?DAbs(D-A) →K180K÷(Rπ) →ORSin(O) →TR(1-cos（O）) →URec(T,F)P+I→X:Q+J→YRec(U,F+90G)“X=”:X+I→X◢“Y=”:Y+J→Y◢?S:?ERec(S,F+OG+E)“M=”:X+I→M◢“N=”:Y+J→N◢Goto 0P起点x坐标Q起点y坐标F起点方位角A起点桩号D所求桩号G左、右偏（左-右+）R半径X所求中桩x坐标Y所求中桩y坐标S中桩与边桩距离E中桩与边桩夹角（左-右+）M所求边桩x坐标N所求边桩y坐标三、前缓和曲线?P:?Q:?F:?A:?G:?R:?LLb10?DAbs(D-A) →KK-K^(5)÷(40R²L²)+K^(9) ÷(3456R^(4)L^(4)) →TK^(3) ÷(6RL)-K^(7) ÷(336R^(3)L^(3))+K^(11)÷(42240R^(5)L^(5)) →URec(T,F)P+I→X:Q+J→YRec(U,F+90G)“X=”:X+I→X◢“Y=”:Y+J→Y◢90K²÷(πRL) →O?S:?ERec(S,F+OG+E)“M=”:X+I→M◢“N=”:Y+J→N◢Goto 0P起点x坐标Q起点y坐标F起点方位角A起点桩号D所求桩号G左、右偏（左-右+）R半径L缓和曲线长X所求中桩x坐标Y所求中桩y坐标S中桩与边桩距离E中桩与边桩夹角（左-右+）M所求边桩x坐标N所求边桩y坐标结束语：后缓和曲线我没编，当然我们可以用前缓和曲线算后缓和曲线。

卡西欧Fx5800p道路三维坐标计算程序(线元法)

卡西欧5800p道路三维坐标计算程序（线元法）QXJS-000 主程序（文件名）Lbl 4：＂1.SZ=>NE＂:＂2.NE=>SZ＂:?Q:?S: Prog＂QXJS-SUB0＂↙Lblθ:Q=1 => Goto1:Q=2 => Goto2:↙θ为阿拉伯数字零Lbl 1:?Z:Prog＂QXJS-SUB1＂:Cls：＂N=＂:Locate5,1,N: （X坐标在第一行第五列显示）＂E=＂:Locate4,2,E: （Y坐标在第二行第四列显示）＂ZH=＂:Locate4,3,S:Locate9,3,＂BJ=＂:Locate12,3,Z: （桩号在第三行第四列显示）F▶DMS◢（方位角在第四行显示）Prog＂SQX-000＂: Goto4↙Lbl 2: ＂N=＂:?B: ＂E=＂:?C:B→N: C→E:Prog＂QXJS-SUB2＂: ＂S=＂:S ◢＂Z=＂:Z◢Goto4↙QXJS-SUB0 平面数据库子程序（文件名）Goto1↙Lbl 1 :IF S<***（线元终点里程）:Then***→A（线元起点方位角）:***→O （线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→L（线元起点至终点长度）: Return:IfEnd↙ (一个完整的线元)。

IF S<***:Then***→A:***→O:***→U:***→V:***→P:***→R: ***→L: Return:IfEnd↙ (下一个完整的线元)，……无限添加线元。

QXJS-SUB1 正算子程序（文件名）0.5（1÷R-1÷P）÷L→D:S-O→X↙U+∫( cos(A+(X÷P+DX2)×180÷π,θ,X)→N↙V+∫( sin(A+(X÷P+DX2)×180÷π,θ,X)→E↙A+(X÷P+DX2)×180÷π→F↙N+Zcos(F+90) →N:E+Zsin(F+90) →EQXJS-SUB2 反算子程序（文件名）Lbl1:θ→Z:1→Q：Prog＂QXJS-SUB0＂: Prog＂QXJS-SUB1＂↙Pol(N-B+10^(-46), E-C+10^(-46)):Isin(F-90-J) →W:S+W→S↙Abs(W)>0.0001 => Goto1↙Lbl 2: θ→Z：Prog＂QXJS-SUB1＂:(C-E) ÷sin(F+90) →Z使用使用说明：1、规定以道路中线的前进方向（即里程增大的方向）区分左右；当线路左转时，P、R取负值，当线路右转时，P、R取正值，当线路为直线时，P、R以10的45次方代替，即10^(45)。

卡西欧5800公路施工放样程序

公路曲线大地坐标施工放样程序（CASIO fx-58000）一、主程序28:""?:""?:""?:""?:.5^(3)/(240):""?:"":(/(24R )-G ^(4)/(2688R ^(3)))ta n (0.5)T "":/180+G L""?:"":[3]"1,2"?:""?:""?:""?:10:"Z B J SD im Z X C Z Y C C L S G R R G G R Q A A T Q R G L R A Z H O H Z O Z Y Z H J D N P J DE MF F L b K π→====-→==++→=→==+→=====▲▲▲"?:","?:""?:0:0:0:P r "":P r "":0:K V N W V B B K O S IfS T h e n S XY U o g C o g D G o to IfE n d ==-+=-→↵≤→→→↵[][]IfS L :T h e n T +C O S (A )(T +S -L )X :S i n (A )(T +S -L )Y :A U :P ro g "C ":P ro g "D ":G o to 0:IfE n d IfS L -G :T h e n L -S S :P ro g "B ":X Z1:YZ2:T -Z [2]S in (A )+C o s (A )(T -Z [1])X :Z [2]C o s (A )+S in (A )(T -Z [1])Y :L -S S :A -U U :P ro g "C ":P ro g "D ":G o ≥→→→↵≥→→→→→→→2222to 0:IfE n d IfS G :T h e n 90(2S -G )/(R )U :Q +R S in (U )X :G/(24R )-G ^(4)/(2688R ^(3))+R (1-C o s (U ))Y :P ro g "C ":P ro g "D ":G o to :If E n d If S G :T h e n K -0S :S -S ^(5)/(40RG)X :S ^(3)/(6R G )-S ^(7)/(336R ^(3)G ^(3))Y :90S /(R G )ππ↵≥→→→↵≤→→→U :P ro g "C ":P ro g "D ":G o to 0:I f E n d →↵二、子程序 BSC"X=Dta注：”/”表示÷三、程序变量说明以程序运行时计算器显示为准：XC?EC?提示输入架仪点的坐标LS?提示输入测设曲线缓和曲线长R?提示输入测设曲线半径A?提示输入测设曲线转角（以度分秒输入）T= L=显示计算的曲线元素（检验LS、R、A是否输入正确）ZH? 提示输入测设曲线直缓（圆）桩桩号（对比设计资料可检查直缓（直圆）桩桩号输入是否正确Y1,Z2?判断曲线转向，右转输入1，左转输入2JDN?JDE?提示输入交点的N和E坐标F?提示输入曲线计算起始边的坐标方位角（以度分秒格式输入）K?提示输入欲放样点的桩号V?提示输入欲放样点相对中点的法线方向的距离，位于曲线内侧输入负值，外侧为正值，测设中桩时输0B?提示输入欲放样点相对中点的切线方向的距离，位于曲线前进方向输入正值，后退方向输入负值。

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时曲线右转。

CASIOfx5800任意平曲线极坐标与直角坐标放样求里程及边距

CASIO-fx5800 (任意平曲线极坐标与直角坐标放样,求里程及边距)湖南津市赵济汉主程序PQXDeg : Fix 3 : “XZ→0:YZ→1”？A : If A = 1: Then Goto 1 : IfEnd ↙If A = 0 : Then “ BS→0:XY→1:AND→2:DK→3:L(I)→4 ” ？O : IfEnd ↙If O = 4: Then Goto 1 : IfEnd ↙If O = 3: Then Prog “ F.2 ” : If X= 0 : Then Goto 1 : IfEnd : IfEnd ↙If O ≠ 1: Then “ X1 ” ？X : “ Y1” ？Y : X→Z［11］: Y→Z［12］: “ X2 ” ？P : “ Y2” ？Q : Pol( P－X , Q－Y) : If J﹤0 : Then J + 360→J : IfEnd : Cls : “ S12= ” : Locate 6 ,1, I : “ B12= ” : J ►DMS◣1→B : IfE nd ↙If O = 1: Then “XY(0) →0: ≠﹥1” ? B: IfEnd ↙Lbl 1 : If A = 1 And O = 3 :Then Prog “ F.2 ” : IfEnd : Prog “ Q.1 ”子程序PPQX （给定综合曲线属性）“ ZQX →0: *** →1: *** →2 ******* ” ？C ↙If C=0: Then 100→Z［98］: n0 →Z［99］: IfEnd ↙If C=1: Then m1→Z［98］: n1 →Z［99］: IfEnd ↙If C=2: Then m2→Z［98］: n2 →Z［99］: IfEnd ↙*******Prog “ PQX ”其中： mi为第i条综合曲线矩阵变量起始单元，(第1条综合曲线矩阵变量起始单元应自100开始，以便其他程序临时使用100以前的矩阵变量，综合曲线中每一基本单元需8个矩阵存储单元)；ni为第i条综合曲线中基本单元数，每增加一个条综合曲线则增加一行If C=*******→Z［99］: IfEnd↙语句。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

一、前言
本程序是《CASIO fx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序的升级改进版本。原道路坐标放样计算程序只基于道路的单个基本型曲线，有效计算范围仅包括平曲线部分和前后的两条直线段，使用时需要输入平曲线设计参数，无坐标反算桩号功能。
改进后的程序名称为：道路中边桩坐标放样正反算程序（全线贯通），增加了可实现全线贯通的数据库功能和坐标反算桩号功能，主要是：
二、道路示例项目基本资料
基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章HY高速公路第2合同段（合同段起止桩号：K4+800~K9+60Байду номын сангаас）。这里摘取直线、曲线及转角表资料如下（若图片不清晰，请参见参见教材P161附录1）：
.
.
.
三、程序代码
.
.
.
.
.
.
注：路线数据库子程序ROAD－DATA1是根据计算示例项目的直曲表编写，大家使用时应按各自项目的直曲表改写或新建。
4．对于存在断链的道路，可分段分别编写数据库子程序，然后在主程序中添加一个路段选择的功能即可实现（可参照立交匝道程序中匝道的选择）。
程序的特点：
1．可进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写；
2．主程序通过调用数据库子程序，省却了使用时输入平面参数的繁琐；
3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。
.
.
下表给出了由道路路线CAD软件计算的相关结果，供大家进行计算验证。
.
.
2．边桩坐标计算示例
计算任务：计算HY高速公路主线K6+100～K6+700段的边桩（左右各12.25米）坐标（桩距20m）。使用道路中边桩坐标放样正反算程序RAOD－2的操作流程见下表。
.
.
下表给出了由道路路线CAD软件计算的相关结果，供大家进行计算验证。
1．使用道路平面数据库子程序，可将一段或若干段道路的交点法格式平面参数（可容易从直线、曲线及转角表中获得）以数据库子程序形式输入计算器，程序在计算时省却了输入原始数据的麻烦；
2．坐标正算方面，输入桩号即可进行道路的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）；
3．坐标反算方面，输入平面坐标，即可计算对应的桩号和距中距离（含左右信息）；
.
.
四、程序变量清单
.
.
五、计算流程示例
1．中桩坐标计算示例
计算任务：计算HY高速公路K6+100～K6+700段的中桩坐标及切线方位角（桩距20m），并在导线点（2807118.026，474113.687）上架设全站仪，计算各中桩的极坐标放样数据。
使用道路中边桩坐标放样正反算程序RAOD－2的操作流程见下表。
.
.
3．坐标反算计算示例
计算任务：根据前面计算的K6+100的中桩、左右边桩的坐标，反算对应桩号及偏距，并进行验证。使用道路中边桩坐标放样正反算程序RAOD－2的操作流程见下表。
.