fx5800P测量公式及程序汇总解读.docx

资源描述

fx5800P测量公式及程序汇总解读.docx

《fx5800P测量公式及程序汇总解读.docx》由会员分享，可在线阅读，更多相关《fx5800P测量公式及程序汇总解读.docx（36页珍藏版）》请在冰点文库上搜索。

fx5800P测量公式及程序汇总解读.docx

fx5800P测量公式及程序汇总解读

卡

西

欧

5800P

测

量

程

序

汇

总

CASIOfx5800P公路施工放线测量公式及程序

一、已知座标，求平距和方位角（座标反算）：

公式：

D=√（Xp-Xo）2+（Yp-Yo）2α=arctg（Yp-Yo）/（Xp-Xo）程序：

“A”？

→A：

“B”？

→B：

Lbl0:

“X”？

→X：

“Y”？

→Y：

（X-A）→M：

（Y-B）→N：

“D=”：

√（M2+N2）⊿tan-1（N/M）→C:

IfM＜0:

Then“Q=”：

180+C→Q⊿ElseIfN＞0:

Then“Q=”：

C→Q⊿Else“Q=”：

360+C→Q⊿IfEnd:

IfEnd:

Goto0说明：

（A，B）为测站点坐标，（X，Y）为所求点坐标。

输出：

D为平距，Q为方位角。

二、已知直线的坐标方位角Q和直线起点坐标（Xo,Yo），求直线上任一点的中桩坐标（X，Y），左右边桩坐标（XL，YL）、（XR，YR）：

公式：

X=Xo+LcosQY=Yo+LsinQ程序：

“A”？

→A：

“B”？

→B：

“Q”？

→Q：

“Z”？

→Z：

Lbl1:

“P”?

→P：

“J”？

→J：

“M”？

→M：

Abs（M-Z）→W：

“X=”：

A+W*cos（Q）+Pcos（Q+J）→X⊿“Y=”：

B+W*sin（Q）+Psin（Q+J）→Y⊿Goto1说明：

（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]：

“PIANJIAO”：

？

→T：

Lbl2:

“M”？

→M：

180*（M-Z）/（2π*R）→J：

R*2sin（J）→K:

IfW=-1:

Then“X=”:

U+K*cos（Q-J）→X⊿“Y=”：

V+K*sin（Q-J）→Y⊿“Q=”：

Q-180*（M-Z）/（πR）→O⊿ElseIfW=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=＞Goto2：

“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）⊿Goto2说明：

W=-1时曲线左转,W=1时曲线右转。

“ZJ=”为左边距，“YJ=”为右边距，“PIANJIAO”为偏角，偏角输0时不算边桩坐标。

输出：

（X，Y）为中桩坐标，“Q=”为所求点方位角，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。

四、已知直缓点坐标（M，N）、方位角Q、桩号Z，缓和曲线全长S和连接圆半径R，求缓和曲线上任一点（桩号为L）的中桩坐标（X，Y），左右边桩坐标（XL，YL）、（XR，YR）：

公式：

θ=30L2/（πRLs）C=L-L5/（90R2Ls2）α=α±90Ls2/（πA2）程序：

“M”？

→M：

“N”？

→N：

“R”→R：

“A”？

→A：

“S”?

→S：

“Z”？

→Z：

“Q”？

→Q：

“W=-1，1”：

？

→W：

“ZJ=”？

→Z[1]：

“YJ=”？

→Z[2]：

“PIANJIAO”：

？

→T：

Lbl3:

“L”？

→L：

Abs（L-Z）→H:

30*H2/（πRS）→D:

H-H5/（90R2S2）→C:

IfW=-1:

Then“X=”：

M+C*cos（Q-D）→X⊿“Y=”：

N+C*sin（Q-D）→Y⊿A=0=＞Goto3:

“Q=”:

Q-90H/（πA）→E⊿ElseIfW=1:

Then“X=”：

M+C*cos（Q+D）→X⊿“Y=”：

N+C*sin（Q+D）→Y⊿A=0=＞Goto3:

“Q=”:

Q+90*H/（πA）→E⊿IfEnd:

IfEnd:

T=0=＞Goto3：

“XL=”:

X+Z[1]*cos（E-T）⊿“YL=”：

Y+Z[1]*sin（E-T）⊿“XR=”:

X+Z[2]*cos（E+T）⊿“YR=”：

Y+Z[2]*sin（E+T）⊿Goto3说明：

“A”为缓和曲线参数，W=-1时曲线左转,W=1时曲线右转。

“ZJ=”为左边距，“YJ=”为右边距，“PIANJIAO”为偏角，偏角输0时不算边桩坐标。

输出：

（X，Y）为中桩坐标，“Q=”为所求点方位角，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。

五、已知卵形曲线（即非完整缓和曲线）大圆半径R，小圆半径r，缓和曲线参数A，以大圆的圆缓点为起点，其坐标为（C，D），其方位角为Q，其桩号为Z，求桩号为L的点的中桩坐标（X，Y），左、右边桩坐标（XL，YL）、（XR，YR）。

公式：

偏角：

θ=arctg[（Yp-Yo）/（Xp-Xo）]-90LR/（πR）Xj=Lj-Lj5/（40A4）+Lj9/3456A8-……，Yj=Lj3/（6A2）-Lj7/（336A6）+Lj11/（42240A10）-……Lj=A/Rj（Rj为曲率半径）S=√（Xp-Xo）2+（Yp-Yo）2（弦长公式）α=Q±θ（弦线方位角公式）Xp=Xo+S*cosα,Yp=Yo+sinα程序：

“A”？

→A：

“C”？

→C：

“D”？

→D：

“R”？

→R：

“Q”？

→Q：

“Z”？

→Z：

“W=-1，1”？

→W：

A/R→J:

J-J5/（40*A4）+J9/（3456*A8）→E:

J3/（6*A2）-J7/（336*A6）+J11/（42240*A10）→F:

90*J/（πR）→B:

“ZJ=”？

→Z[1]：

“YJ=”？

→Z[2]：

“PIANJIAO”：

？

→T：

Lbl4:

“L”？

→L:

J+Abs（L-Z）→S:

S-S5/（40*A4）+S9/（3456*A8）→M:

S3/（6*A2）-S7/（336*A6）+S11/（42240*A10）→N:

Abs（M-E）→G:

Abs（N-F）→H:

√（G2+H2）→K:

arctg（H/G）→I:

IfI＜0:

ThenI+360→U:

ElseI→U:

IfEnd:

IfW=-1:

ThenQ-（U-B）→V:

“X=”：

C+K*cos（V）→X⊿“Y=”：

D+K*sin（V）→Y⊿“Q=”:

Q-90*S2/（πA2）-90*J2/（πA2）→O⊿ElseIfW=1:

ThenQ+（U-B）→V:

“X=”：

C+K*cos（V）→X⊿“Y=”：

D+K*sin（V）→Y⊿“Q=”:

Q+90*S2/（πA2）-90*J2/（πA2）→O⊿IfEnd:

IfEnd:

T=0=＞Goto4:

“XL=”:

X+Z[1]*cos（O-T）⊿“YL=”：

Y+Z[1]*sin（O-T）⊿“XR=”:

X+Z[2]*cos（O+T）⊿“YR=”：

Y+Z[2]*sin（O+T）⊿Goto4说明：

“A”为缓和曲线参数，W=-1时曲线左转,W=1时曲线右转。

“ZJ=”为左边距，“YJ=”为右边距，“PIANJIAO”为偏角，偏角输0时不计算边桩坐标。

输出：

（X，Y）为中桩坐标，“Q=”为所求点方位角，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。

六、竖曲线计算公式：

H=X2/（2R）程序：

“A”？

→A：

“H”？

→H：

“D”？

→D：

“T”？

→T：

“R”？

→R：

“I1”？

→U：

“I2”？

→V：

“K（ZHONG-DIAN）”：

D+T→B⊿“LY=”：

B-A→E⊿Lbl6:

“M”？

→M：

“G”？

→G：

IfM≤A:

ThenD-M→L:

H-LU→P:

IfEnd:

IfM＞AAndM＜D:

ThenM-A→L:

H-U（D-M）+GL2/（2R）→P:

IfEnd:

IfM＞DAndM＜B:

ThenB-M→L:

H+V（M-D）+GL2/（2*R）→P:

IfEnd:

IfM≥B:

ThenM-D→L:

H+LV→P:

IfEnd:

“H（SHEJI）=”：

P⊿Goto6说明：

“A”为竖曲线起点桩号，“H”为交点高程，“D”为交点桩号，“T”为切线长，“R”为竖曲线半径，“I1”、“I2”为第一、二坡度。

输出：

“H（SHEJI）=”为设计高程。

注意的是：

计算范围不能超出到下一个竖曲线范围内。

G取+1，或者-1，当“I1”？

→U《0，“I2”？

→V必然》0，即G=1反之G=-1

卡西欧5800计算器正反算及缓和曲线计算程序

时间:

2011-06-1521:

19:

47 来源:

自编作者:

杨连双我要投稿我要收藏投稿指南

5800实用程序

好用实用FWJ-0（反算坐标）

Lb10：

“X1=”?

”Y1=”?

B↓

“X2=”?

C↓

“Y2=”？

D↓

Po1（C-A,D-B）:

C1s↓

J<0=>J+360->J↓

“S=”:

I▲

“F（DMS）=”:

J◆DMS▲

Goto0↓

备注;标A=起算点X1坐标B=起算点Y1坐C=起算点X2坐标D=起算点Y2坐标

ZX-1（直线程序）

“QSX=”?

“QSY=”?

“QSL=”?

F↓

Lb11:

“JSL=”?

P↓

A+（J-Q）COS（F）+LCOS（F+P）→C↓

“X=”:

C▲

B+（J-Q）Sin（F）+LSin（F+P）→D↓

“Y=”:

D▲

Goto1

备注：

标A=起算点X1坐标B=起算点Y1坐Q=起算点里程.F=起算点方位角J=计算点方位角

YQX-2（圆曲线）

“QSX=”?

“QSY=”?

B：

“QSL=”?

R↓

Lb12:

“JSL=”?

P↓

J-Q→S:

90S÷（兀R）→O:

√（2RSin（0））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▲

Goto2

备注：

A=起算点X1坐标B=起算点Y1坐Q=起算点里程F：

起算点里程R：

设计半径J：

计算点理程L；左右偏距离P:

左右偏方位角

HQX-4（缓和曲线）

“QSX=”?

“QSY=”？

“QSL=”?

“HXC=”?

R↓

Lb14:

“JSL=”?

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▲

Goto4

A=起算点X1坐标B=起算点Y1坐Q=起算点里程H:

缓曲线曲缓线的长度F:

计算点方位角R：

设计半径J：

计算点理程L；左右偏距离P:

左右偏方位角

CASIOFx-5800P计算器曲线万能程序

时间:

2011-06-0909:

42:

20 来源:

本站作者:

李立军我要投稿我要收藏投稿指南

CASIO Fx-5800P计算器万能程序

QXJS---主程序

〝L=〞?

〝LICHENG=〞?

W<┘

LblA<┘

For1→NTo20<┘

L=1＝＞Pros〝1XY〞<┘

L=2＝＞Pros〝A〞<┘

If W≥ReP（Z）AndW≤ImP（Z）:

ThenPros〝MP〞:

Goto0:

IfEnd:

Next<┘

〝--LICHENG----?

〞:

Stop<┘

Lbl0<┘

IfK<0:

ThenQ→X:

0→Q:

0→J:

S+C→I:

Abs（K）→K:

Goto3:

IfEnd<┘

Goto2<┘

Lbl1<┘

Q<0＝＞360+Q→×<┘

〝LICHENG=〞?

W<┘

If W≥ReP（Z）AndW≤ImP（Z）:

ThenGoto2:

Else〝>>>>〞:

GotoA:

IfEnd<┘

Lbl2<┘

0→J<┘

uo+Abs（W-Abs（K））→I<┘

K<0＝＞-W<┘

If Ans

Then0→U:

-I:

Goto4:

IfEnd<┘

I>S+C＝＞S+C→I<┘

Lbl3<┘

IfI

ThenI²r÷（2RS）→U:

I-I^（5）÷（40R²S²）+i（I^（3）÷（6RS）-I^（7）÷（336R^（3）S^（3））:

Else（2I-S）ｒ÷（2R）→U:

Z［2］+R（sin（U）-icos（U）+i）:

IfEnd<┘

Lbl4<┘

J+Abscos（Q）+Ansisin（Q）→J<┘

If I=S+C:

ThenQ+A→Q:

-K-I-T→K:

T→I:

S→T:

I→S:

-R→R:

Porg〝MP〞:

Goto3:

IfEnd<┘

IfQ+A=0:

ThenX-A-180→Q:

K+ReP（J）+ImP（J）÷tan（A）→K:

O+ImP（J）（cos（Q）+isin（Q））÷sin（A）→O:

Goto2:

IfEnd<┘

If I=S:

ThenQ-180→Q:

O+J→O:

Goto2:

IfEnd<┘

K<0⇒U-180→U<┘

Q+U→U<┘

〝BIAN JU=〞?

E<┘

ReP（O）+ReP（J）-Esin（U）→X:

ImP（O）+ImP（J）+Ecos（U）→Y<┘

Cls:

Fix3:

Locate1,1,〝X=〞:

Locate6,1,X:

Locate1,2,〝Y=〞:

Locate6,2,Y◄

X→Z［3］:

Y→Z［4］<┘

IfE=×10-6:

ThenProg〝BYXY〞:

Goto1:

IfEnd<┘

Goto1<┘

Prog〝ZBFS〞:

Norm2:

Goto1<┘

说明：

1．L=1

2．输里程桩号

3．输边距：

左“负”，右“正”，中心桩“0”，*10-6时为反算，

“M0=”为X；“P=”为Y,WOK为计算里程结果，I为左右距

4.本程序为万能程序,只用编缉数据库即可运算.

1XY—数据库

IfN=1:

Then0→S:

400→T:

-4500→R:

4523.084→C:

300°24′42″→Q:

69287.5839+506028.4703i→O:

15701.589→K:

15701.589+21331.515i:

IfEnd<┘

IfN=2:

Then400→S:

400→T:

3800→R:

2914.665→C:

245°22′6.4″→Q:

68953.9506+500686.4792i→0:

21331.515→K:

21331.515+26411.098i:

IfEnd<┘

IfN=3:

Then… IfN=4:

Then… N=Ans⇒0→Z＜┘

Ans⇒Z＜┘ Return＜┘

说明：

N=?

—本段曲线；

1.S—起点缓和曲线长度；

2.T—止点缓和曲线长度；

3.R—曲线半径；

4.C—曲线长度；

5.Q—计算方位角；

6.O—起点坐标；

7.K—起点桩号；

8.本段曲线起止点桩号。

BYXY—反算

“M0=”?

〝P=〞?

P＜┘

U+90→H＜┘

Pol（X-M,Y-P）＜┘

Isin（J-H）→H＜┘

J＜0⇒360+J＜┘

J＜0⇒360+U→U＜┘

U-J→J＜┘

J＜0⇒360+J→J＜┘

J＞269⇒-I→J＜┘

IfAbs（H）≤×10-5:

ThenCls:

Locate1,1,〝W OK!

〞:

Locate7,2,W:

Locate1,3,〝I〞:

Locate7,4,I⊿

IfEnd<┘

W+H→W<┘

Return＜┘

（S+T+2C）r÷（2R）→A＜┘

S²÷（24R²）＜┘

S÷2-0.1SAns+RiAns→Z[2]:

Return＜┘

IfX=1:

Then-5→X:

7+6i→Y:

If End<┘

IfX=2:

Then-10→X:

25+30i→Y:

IfEnd<┘

Return＜┘

QXJS—主程序（显示）

“L=”?

”LICHENG=”?

W＜┘

Lb1A＜┘

For1→NTo20＜┘

L=1=>Prog“1XY”＜┘

L=2=>Prog”A”＜┘

IfW≥ReP（Z）AndW≤ImP（Z）:

ThenProg”MP”:

Goto0:

IfEnd:

Next<┘

“--LICHENG----?

”:

Stop<┘

Lbl0<┘

IfK<0:

ThenQ→X:

0→Q:

0→J:

S+C→I:

Abs（K）→K:

Goto3:

IfEnd<┘

Goto2<┘

Lbl1<┘

Q<0＝＞360+Q→×<┘

〝LICHENG=〞?

W<┘

If W≥ReP（Z）AndW≤ImP（Z）:

ThenGoto2:

Else〝>>>>〞:

GotoA:

IfEnd<┘

Lbl2<┘

0→J<┘

uo+Abs（W-Abs（K））→I<┘

K<0＝＞-W<┘

If Ans

Then0→U:

-I:

Goto4:

IfEnd<┘

I>S+C＝＞S+C→I<┘

Lbl3<┘

IfI

ThenI²r÷（2RS）→U:

I-I^（5）÷（40R²S²）+

I（I^（3）÷（6RS）-I^（7）÷（336R^（3）S^（3））:

Else（2I-S）ｒ÷（2R）→U:

Z［2］+R（sin（U）-icos（U）+i）:

IfEnd<┘

Lbl4<┘

J+Abscos（Q）+Ansisin（Q）→J<┘

If I=S+C:

ThenQ+A→Q:

-K-I-T→K:

T→I:

S→T:

I→S:

-R→R:

Porg〝MP〞:

Goto3:

IfEnd<┘

IfQ+A=0:

ThenX-A-180→Q:

K+ReP（J）+ImP（J）÷tan（A）→K:

O+ImP（J）（cos（Q）+isin（Q））÷sin（A）→O:

Goto2:

IfEnd<┘

If I=S:

ThenQ-180→Q:

O+J→O:

Goto2:

IfEnd<┘

K<0⇒U-180→U<┘

Q+U→U<┘

“BIANJU=”?

E<┘

ReP（O）+ReP（J）-Esin（U）→X:

ImP（O）+ImP（J）+Ecos（U）→Y<┘

Cls:

Fix3:

Locate1,1,”X=”:

Locate6,1,X:

Locate1,2,”Y=”:

Locate6,2,Y⊿

X→Z[3]:

Y→Z[4]<┘

IfE=×10-6:

ThenProg“BYXY”:

Goto1:

IfEnd<┘

Goto1<┘

Prog”ZBFS”:

Norm2:

Goto1<┘

ZBFS

“X=”?

X→B:

Prog”NO”<┘

X=Ans=>”Y=”?

Y<┘

X→B:

ReP（Y）→J<┘

“X0=”?

F→X:

Prog”NO”<┘

X=Ans=>”Y0=”?

G<┘

IfX<0:

Then–X→F:

ReP（Y）→G:

ImP（Y）→L:

IfEnd<┘

B→X:

J→Y<┘

Pol（Abs（X）-F,Y-G）<┘

IfX<0:

Then“B0=”?

H-J→Z[1]:

IfEnd<┘

J+Z[1]→J<┘

J<0=>J+360→J<┘

J>360=>J-360→J<┘

60Frac（J）:

Int（J）+Int（Ans）/100+6mFrac（Ans）→J<┘

Cls:

Fix4:

Locate1,1,”W°°°°°=”:

Locate7,2,J<┘

Locate1,3,”-------“:

Locate7,4,I⊿

Lbl0<┘

Cls:

”S=”?

U<┘

U=0=>Return<┘

Locate1,1,”S..=”:

Locate7,2,U-I⊿

Goto0<┘

5800计算器全线坐标计算放样程序（修改版）

时间:

2010-06-1910:

23:

30 来源:

本站作者:

简单de回忆我要投稿我要收藏投稿指南

“XLZBJSCX”◢（第一个程序）

Lb10↙

Cls:

Fix4:

30→Dimz↙

“XHS="?

G（后视点X）:

"YHS="?

L（后视点Y）:

"XZJ="?

M（置镜点X）:

"YZJ="?

N（置镜点Y）:

Pol（G-M,L-N）:

"DH=":

I（后视距）◢J<0=>J+360→J:

"FH=":

J►DMS◢（后视方位角）

Lbl1↙（If（如果的意思）And（和字的意思）Then（然后的意思））

“K=”?

K◢（计算里程）（下面有色的是数据库）

If（如果）K<51760.052本曲线缓直点桩号And（和）K≥51048.785上一个曲线缓直点桩号：

Then（然后）本曲线缓直点桩号51760.052→Z[1]:

上一个曲线缓直点桩号51048.785→Z[2]：

1-1→O（注：

左偏曲线输入-1→O,右偏曲线输入1→O）:

偏角12’23’19.5’→A：

半径3289.486→R:

第一缓和曲线长度0→Z[6]:

第二缓和曲线长度0→Z[7]:

交点X坐标→B:

交点Y坐标→C:

小里程向交点方位角→E:

交点向大里程方位角→F:

Goto2:

IfEnd↙（重兰字是输入的数字）

…………（曲线段分段输入）

补充直线段输入如下

If（如果）K<本段直线终点里程And（和）K≥本段直线起点里程:

Then（然后）1→O:

本段直线终点里程→Z[3]:

终点坐标X→Z[16]:

终点坐标Y→Z[17]:

方位角→E:

Goto4:

IfEnd↙

Lb12↙（曲线要素计算）

Z[6]÷2-Z[6]^3÷（240R^2）+Z[6]^5÷（34560*R^4）→Z[8]↙（M1不输）

Z[7]÷2-Z[7]^3÷（240R^2）+Z[7]^5÷（34560R^4）→Z[9]↙（M2不输）

Z[6]^2÷（24R

展开阅读全文