卡西欧4850计算器程序

格式：doc
大小：44.50 KB
文档页数：6

卡西欧fx-4850P

万能放线程序

主程序：ZBJS

◢“S=”：S=J◢↙◢“◢

：H◢↙

注：

（零）

（欧） X≤0==↙

↙

注：

K：求点里程

S：边距，右为“+”，左为“-”

M：正算为“+”，反算为“-”

此程序可把全线路要素输入数据库，能执行直线、圆曲线、LS1=LS2的缓和曲线的坐标，高程放线正反算。不能执行回头曲线、复曲线和LS1≠LS2的缓和曲线及卵形曲线。卡西欧fx-4850P

直线、各种曲线任意放中线(匝道)

1：主程序：TYQXJS

“1，KS=＞XY”：“2，XY=＞KS”：N：U“X0”：V“Y0”：o“K0”：G“FWJ”：H“LS”：P“R1”：R“R2”：Q“Y+1；0；Z-1”：C=P-1：D=（P-R）÷（2HPR）：E=180÷π：N=1=＞Goto 1:≠＞Goto

2↙◢“Y=”：Y◢“FWJ=”：F=F-90◢Goto 1↙◢“S=”：S◢

2：正算子程序：SUB1

A=0.1739274226:B=0.3260725774:Z=0.0694318442:L=0.3300094782:F=1-L:M=1-Z:X=U+W(Acos(G+QEZW(C+ZWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD))):Y=V+W(Asin(G+QEZW(C+ZWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))):F=G+QEW(C+WD)+90:X=X+Scos F :Y=Y+SsinF↙

3坐标反算子程序 SUB2

T=G-90：W=Abs((Y-V)cosT-(X-U)sinT) :S=0:Lbl 0: Prog“SUB1”：L=T+QEW（C+WD）:S=（J-Y）cos L-(I-X)sin L :

Abs S＜10-6=＞ Goto 1: ≠＞W=W+S:Goto 0↙Lbl

1:S=0:Prog“SUB1”:S=(J-Y)÷sin F↙ 注：o→代表：欧 0→代表零

使用说明：

1规定：

⑴本程序可执行直线、圆曲线、缓和曲线（完整或非完整型）、复曲线、卵形曲线的任意里程中边桩坐标的正反算。另外也可以将本程序中核心计算部分的两个子程序移植到其它相关程序中，在引用该核心计算部分时，请注名来源。

⑵当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次方代替。

⑶此程序只能分段输入参数值，分段计算。即：直线段、第一缓段、圆曲线段、第二缓段、直线段要分别输入HZ点、ZH点、HY点、YH点、HZ点的起点坐标里程，方位角和半径。

2输入与显示说明：

输入部分

N？选择计算方式，输入1表示正算，输入其数它值表示反算

X0？线元起点的X坐标

Y0？线元起点的Y坐标

K0？线元起点里程

FWJ？线元起点切线方位角 LS？线元长度。分别为直线段、第一缓和段、圆曲线段、第二缓和段、直线段的长度

R1？线元起点曲率半径

R2？线元止点曲率半径

Q？线元左右偏标志（左偏Q=-1；右偏Q=1；直线段Q=0）

K？求点里程

S？求点中心距（左侧为负；右侧为正；中线上为0）

X？反算时求点的X坐标

Y？反算时求点的Y坐标

显示部分：

同以上X、Y、K、S

FWJ：求点切线方位角

卡西欧4800计算器在工程施工中的应用

CASIO-------fx4800P

CASIO—fx-4800P

两点间距离及方位角:

(JL FWJ)

Lb 1 :{A}:A”XO”:{B}:B”YO”:

{C}:C”X”:{D}:D”Y” ↙

Po( C-A , D-B ) ↙

I”D”=I◢

J<0=>J”F”=360+J◢

GoTo 1 △ J”F”=J◢

GoTo 1

注：XO，YO—测站坐标

X，Y—测点坐标

D—距离

F—方向

初次计算若显示其它符号慨不管，按等号跳过。

直线中边桩计算:

(ZX JS)

A”XO” B”YO”R”FX”N”QD”↙

Lb 1 :{O}:O”Z”:D=O-N↙

P”ZX”=A+Dcos R◢

Q”ZY”=B+Dsin R◢

{W}:W”BZ”↙

Prog”B”:GoTo 1

注：XO，YO—起点坐标

FX—起点方向

QD—起点桩号

Z—桩号

BZ—边桩距离

ZX,ZY—中桩坐标

RX,RY—右边桩坐标

LX,LY—左边桩坐标

CASIO-------fx4800P

平曲线计算:

(PQX JS) (主程序)

---缓和曲线,圆曲线1:（H）

---圆心 2:（X）

A”JX”B”JY”H”JZ”D”T”C”FX”G”R”

F”Ls”E”I”Z”RL”X”OX”Y”OY”

I”1:YQX 2:YX ↙

I=1=>Prog”H” △

I=2=>Prog”X” △

注：JX，JY—交点坐标

JZ—交点桩号

T—交点T长

FX—起点方向

R—圆曲线半径

Ls—缓和曲线长

I—左/右转角（-/+）

RL—左/右转向（-1/1）

OX，OY—圆心坐标

缓和曲线 ,圆曲线：

(H) （子程序）

Lb 1:{L}:L”Z”:

D=0=>GoTo 4(GoTo 2)△

4850计算器程序

卡西欧4850计算器计算程序

一、XLZBJS(线路坐标计算)

主程序：

P＝L2÷(24R)-L4÷(2688R3)

M＝L÷2－L3÷(240R2)

B＝90L÷(πR)

T＝(R＋P)tan(AbsA÷2) ＋M

C“ZH” ＝D－T

G“HY” ＝C＋L

H“YH” ＝G＋(AbsA－2B) πR÷180

I“HZ” ＝H＋L

Lbl 0：

{K}

K≤G＝＞ Goto 1：≠＝＞ Goto 2△

Lbl 1：

（K－C）≤0＝＞ Goto 5△

X＝K－C－(K－C)5÷(40R2L2)

Y＝(K－C)3÷(6LR) －(K－C)7÷(336R3L3)

J＝√（X2＋Y2）

O＝tan-1(Y÷X)

“X0＝” ：Q＝N＋T cos (F＋180) ＋J cos (AbsAO÷A ＋F) ◢

“Y0＝” ：S＝E＋T sin (F＋180) ＋J sin (AbsAO÷A ＋F) ◢

W＝F＋3AbsAO÷A

Goto 4△

Lbl 2：

K≥H＝＞ Goto 3△

X＝R sin ((K－G) ×180÷(πR) ＋B) ＋M

Y＝R(1－cos ((K－G) ×180÷(πR) ＋B)) ＋P

J＝√（X2＋Y2）

O＝tan-1(Y÷X)

“X0＝” ：Q＝N＋T cos (F＋180) ＋J cos (AbsAO÷A ＋F) ◢

“Y0＝” ：S＝E＋T sin (F＋180) ＋J sin (AbsAO÷A ＋F) ◢

W＝F＋AbsAB÷A＋AbsA(K－G) ×180÷(πR) ÷A

Goto 4△

Lbl 3： K≥I＝＞ Goto 6△

X＝K－I－(K－I)5÷(40R2L2)

Y＝(I－K)3÷(6LR) －(I－K)7÷(336R3L3)

J＝√（X2＋Y2）

O＝tan-1(Y÷X)

“X0＝” ：Q＝N＋T cos (F＋A) ＋J cos (F＋A＋180－AbsAO÷A ) ◢

CASIO导线平差程序

导线的平差编程

CASIO FX-4850P计算器在工程测量中的应用

摘要：介绍FX-4850P计算器在工程测量中的应用。

关键词：导线、平差、程序

一、概述

导线测量是国家平面控制网的方法之一，在工程、水电、道路建设中经常遇到。随着全站仪或全球卫星定位系统（GPS）的应用，线路平面一般由一系列连接的直线和曲线组成，它们的方程式也各不相同，FX-4850P计算器可以根据已知数据以桩号为引数，利用其可编程功能适时计算出导线点的坐标、并对导线点进行平差，在速度、精度、准确性方面都能满足施工要求。

二、平差程序：

〈1〉主程序DYPJ

N=B：L：M：K=206265：Q=M2÷（KL2：X：Y：F：D：E：A：V=0：W=0：Z=0：Defm72：LbI0：{S}：Z=Z+S：H=6N：Z[H]=S：Prog“FJ”：Z[H-1]=F：DszN: Goto0:Prog“FJ”:F”FW”=F-A▲

F=-F/(B+1:N=B:L=0:M=0:O=0:P=0:R=0:S=0:LbI1:L=L+1:H=6N:Rec(Z[HLF+Z[H-1:Z[H-2]=I:V+I:R=R+V:M=M+I2/Z[H-3]=J:W=W+J:S=S+W:O=O+J2/Z[H:P=P+IJ/Z[H:DszNGoto1A=X+V-D:C=Y+W-E:T“J”=Z÷√（A2+C2）▲

D=-R/（BB+1：E=-S/（B+1：V=D：W=E：R=V2：S=W2：T=VW：N：B:LbI2:H=6N:V=V+Z[H-2:Z[H-4]=V:W=W+Z[H-3:Z[H-5]=W:R=R+V:S=S+W2:T=T+VW:Dsz:Goto2:Z=Q/K:M=M+ZS:O=O+ZR:P=P-ZT:N=MO-P2:K=(CP-AO)/N:Z=(AP-CM)/N:V=Q(EK-DZ)/20G:S=(V+F)2:N=B:L=0:O=0:LbI3:H=6N:L“N”=L+1▲