卡西欧fx-5800计算器方位角程序

龙源期刊网

工程测量放样CASIO fx-5800P 直线正反算坐标计算程序

作者：张素辉

来源：《城市建设理论研究》2013年第32期

【摘要】介绍工程测量放样中CASIO fx-5800P直线正反算计算程序，主要应用于结构物的坐标计算。

【关键词】坐标；计算；CASIO；程序

中图分类号：P123 文献标识码：A

【引言】

对于一个工程测量技术人员来说，能够掌握和运用测量基础知识，正确、熟练地使用计算器（如CASIO fx-5800P）编程和运用，才能在野外方便快捷的计算、复核大地坐标，并能结合全站仪准确、方便的放样。在此谨以我在施工测量中编辑、调试、实用的CASIO fx-5800P直线正反算程序奉送读者。

一、主程序名：ZXZFS

Deg：Fix 3：20→DimZ↙（设置程序参数）

＂DK(QD)＂?A（输入起点桩号）：＂X(QD)＂？B（输入起点坐标X）：＂Y(QD)＂？C（输入起点坐标X）：＂X(ZD)＂?U（输入终点坐标X）：＂Y(ZD)＂?V↙（输入终点坐标Y）

“DJ=”：POL(U-B,V-C)：I → M◢(显示直线平距)

“FWJ=”：if J

Goto0↙

ElseJ → N:N▲DMS◢ (显示直线方位角)

Goto0 ↙(直线参数设置完成)

Lbl 0↙ 龙源期刊网

N→F：＂1=>XY.2=>DK＂：＂J＂？W↙

（条件选择：输入数字1为正算，输入数字2为反算）

If W=1：Then Goto 1：Else If W=2：Then Goto 2：IfEnd↙

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

2. 正算⼦程序(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：

CASIO fx-5800P ——若有疑问请咨询邮件：ceo@

本程序由【CYT】编辑 ——更多程序请访问： [正确] CASIO fx-5800P QXZB曲线坐标计算 CASIO fx-5800P QXZB程序可计算不等缓和曲线、圆曲线上的任意中、边桩坐标： 该程序适用于计算器 CASIO fx-5800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线中、边桩坐标及待测点方位角和距离。 1、DK(JD)？输入交点桩号 2、X(JD)？ 输入交点坐标X 3、Y(JD)？ 输入交点坐标Y 4、T1？ 输入第一切线长(如果只有一条切线两者都输入一致) 5、T2？ 输入第二切线长(如果只有一条切线两者都输入一致) 6、FWJ？输入直线方位角(ZH→JD) 7、A？ 输入转角：左转为负，右转为正 8、R？ 输入圆曲线半径 9、LS1？输入第一缓和曲线长(如果只有一条缓和曲线两者都输入一致) 10、LY？输入圆曲线长(L-LS1-LS2) 11、LS2？输入第二缓和曲线长(如果只有一条缓和曲线两者都输入一致) 12、X(ZJD)？输入置镜点坐标X 13、Y(ZJD)？输入置镜点坐标Y 14、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)＂?E F+W→G If 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→A S-Ucos( F) →B T-Usin( F) →C S+Vcos( G) →Z[1] T+Vsin( G) →Z[2] 180÷π→O(式中为字母0…括号内不输入) Lb1 A ＂JSDK＂?M M-A→P If M(A+I+J+K)： Then Goto A ：IfEnd ＂PL＂?N CASIO fx-5800P ——若有疑问请咨询邮件：ceo@

师傅:李付河改编:杜高阳dugaoyang@

1Fx-5800p

常用程序

1、坐标反算（FS）

?X:?Y?Y↙↙

∟b∣0：？：？AA

：？：？BB

↙

Pol(A-X,B-Y):JPol(A-X,B-Y):J＜＜

0=>

J+360J+360→→

J↙

“S=S=””

:I:I◢◢

“T=T=””

:J:J►►

DMSDMS◢◢

Goto0↙

说明说明::

X,YX,Y——

基点坐标A,BA,B——

测点坐标

2、坐标正算（ZS）

∟b∣0:0:？？

S：？：？TT

：？：？AA

：？：？BB

↙

Rec(S,T)+ARec(S,T)+A→→

X↙B+JB+J→→

Y↙

“X=

X=””:X◢“Y=

Y=””:Y

:Y◢◢

Goto0↙

说明说明::

S—距离T—方位角A,BA,B——

基点坐标X,YX,Y——

计算坐标

3、坐标转换（ZH

—H

）

？N：？：？EE

：？：？QQ

↙

∟b∣0:0:““

1.S=>

D”：“2.D=>

S”：？F↙

IfF=1:ThenGoto1:ElesGoto2:IfEndEnd↙↙

∟b∣1:1:？？

X：？：？YY

↙N+Xcoscos（（

Q）—Ysinsin（（

Q）→U↙

E+Xsinsin（（

Q）+Ycoscos（（

Q）→V↙“X1=X1=””

：U◢：“Y1=Y1=””

：V◢Goto0↙

∟b∣2：？：？XX

：？：？YY

↙（X—N）coscos（（

Q）+（Y—E）sinsin（（

Q）→U↙

（N—X）sin

sin（（Q）+（Y—E）cos

cos（（Q）→V↙师傅:李付河改编:杜高阳dugaoyang@

2“X2=X2=””

：U◢“Y2=Y2=””

：V◢Goto0↙

说明：

N，E—施工坐标原点大地坐标Q—施工坐标X轴在轴在大地坐标系大地坐标系

大地坐标系中的中的

中的方位角方位角

X，Y—需转换坐标F—判断符F=1F=1，施工，施工

，施工→→

大地，其他，大地大地，其他，大地→→

施工

4、竖曲线（SQX）

？A：？B：？D：？T：？R：？Z↙