卡西欧计算器4500-4800编程

CASIO 4500全站仪测设公路中桩和边桩程序

作者：lq52搜集人气：22 来源：网络【字体：大中小】【打印】【关闭】

用全站仪测设公路中桩和边桩程序[转帖]

由本人从网络是整理而得。供大家使用！！(原程序是这样的，我未加整理，见谅)

程序说明：

本程序用于用全站仪测设中桩和边桩，采用坐标变换的方法编制而成，在使用fx-4500计算器时，

可直接输入以下程序便可使用；而在使用fx-4800计算器时，见fx-4800程序清单。

注意：因程序的0(零)和O易混淆,所以字母O用较大的全角符号，零仍用标准字。程序输入时应连续输入，

无空格。而且输入时文件名需和给出的一样，否则会出现调用文件错误。

变量说明： <程序运算符定义>

X 输入摆站点的x坐标 C 输入第一个曲线角桩x坐标 I 输入中间曲线角桩的x坐标

Y 输入摆站点的y坐标 D 输入第一个曲线角桩y坐标 J 输入中间曲线角桩的y坐标

E 最后一个曲线角桩x坐标 R 中间曲线半径 L 中间曲线缓和曲线长

F 最后一个曲线角桩y坐标 K 第一个K为中间角桩桩号 S 中间角桩曲线总长，检验用

K 第二个K为要测设的桩号 B 测中桩时输入0，测边桩时输入宽度（左输负值，右输正值）

程序清单

注释

文件:F1 文件名：1

L1

L2

L3

Defm 8

XYCDIJEFRLK:Fixm:Z[2]=0:Prog B

Z[5]=0.5L-L Xy 3/240R2:Z[3]=Z[5]+(R+L2/24R)Abs tan T┛2:Z=K-Ans:S=R Abs Tπ/180+L:S◢H=Z+Ans:G=RL:Prog 2

文件:F2 文件名：2

L1

Lbl 0:Fixm:{K}

L2

Lbl 6:{B}:Norm:K(-1) Xy Z[2]>(H-L)(-1) Xy Z[2]＝>Goto 4⊿Frac Z[2]┛2=0=>Z[6]=Z:≠>Z[6]=H⊿A=90T/Abs T

L3

B<0＝>N=0:≠>N=1⊿B=Abs B

L4

０=Abs(K-Z[6]:K(-1) Xy Z[2]>Z[6](-1) Xy Z[2]＝>Goto 2⊿Q=Z[3]+０:Z[4]=B L5

B≠0＝>Prog C⊿Prog D:P=0

L6

Prog E:Goto 0

L7

Lbl 2:０≥L＝>Goto 3⊿

L8

Q=Z[3]-０+０ Xy 5/40G2:Z[4]=０ Xy 3/6G-０ Xy 7/336G Xy 3:Prog D:P=B

L9

B≠0＝>Prog F⊿Prog E:Goto 0

L10

Lbl 3:Q=Z[3]-Z[5]:Z[4]=R+L2/24R:Prog D

L11

Z[8]=U+A(2(０-L)/πR-1+L/πR):B≠0＝>Prog G:≠>P=R⊿Prog E:Goto 0

L12

Lbl 4:M=C:０=D:C=E:D=F:E=M:F=０:Z[2]=Z[2]+1:Prog B:Goto 6

文件:F3 文件名：0

L1

Pol(M,０):W<0＝>W=W+360

文件:F4 文件名：B

L1

L2

M=E-I:０=F-J:Prog 0:T=W:M=I-C:０=J-D:Prog 0:U=W:T=T-W

T<-180＝>T=T+360⊿T>180＝>T=T-360

文件:F5 文件名：C

L1 A=-90(-1) Xy (N+Z[2])

文件:F6 文件名：D

L1 Z[7]=I-QcosU+Z[4]cos(U+A):Z[1]=J-QsinU+Z[4]sin(U+A)

文件:F7 文件名：E

L1

L2

M=Z[7]+PcosZ[8]-X:０=Z[1]+PsinZ[8]-Y:Prog 0

W◢Fix 3:V◢Norm

文件:F8 文件名：F

L1

Z[8]=U+A+A０2/πG+90+A(-1) Xy (N+Z[2])

文件:F9 文件名：G

L1

P=R+AB(-1) Xy (N+Z[2])/90

此处L2句加入： M+X◢０+Y◢可显示测点坐标值

曲线上任意点中边桩坐标计算程序(CASIO fx-4800P可全线计算)

作者：冯第胜人气：14 来源：网络【字体：大中小】【打印】【关闭】

主:PQX

Lbi 0：prog“TAD”Goto 1↙

Lbi 1:Z[1]“ZH-X”=M+Tcos（F+180）:Z[2]“ZH-Y”=N+Tsin（F+180）：V[1]“HZ-X”=

M+Tcos（F+Z）：V[2]“HZ-Y”=N+Tsin（F+Z）：H=0=>Goto 2:≠>D=

H:prog“QXY”:A“HY-X”= Z[1]+I cos(F+SZ÷AbsZ) ：C“HY-Y”= Z[2]+I sin(F+SZ÷AbsZ):Q“YH-X”=

V[1]+I cos(F+Z+180-SZ÷AbsZ ) ：E“YH-Y”= V[2]+ Isin(F+Z+180-SZ÷AbsZ )↙

Lbi 2:K≤G=>D=Abs(G-K):O=M:P=N:I=D+T:J=F+180:W=F:Goto 4⊿↙

H=0→Goto 3⊿↙

K≤G+H=>D=Abs(K-G):O=Z[1]:P=Z[2]:prog“QXY” :J=F+SZ÷AbsZ:W=F+3SZ÷AbsZ: Goto 4⊿↙

Lbi 3:K≤G+L-H=>D=Abs(K-G-H):H=0=>H=1:O=Z[1]:P=Z[2]:≠>H=H:O=A:P=C:prog“QXY”H=1=>Q=0⊿I=

D:J=F+(Q+E)Z÷AbsZ:W=F+(Q+2E)Z÷AbsZ: Goto 4⊿↙

K≤V=>D=Abs(V-K):O=V[1]:P=V[2]:prog“QXY”:F=F+Z+180: :J=F-SZ÷AbsZ:W=F-3SZ÷AbsZ:U=180+U: Goto 4⊿↙

Lbi 4:X=O+IcosJ+Bcos(W+U)▲

Y=P+IsinJ+Bsin(W+U)▲

I=0：J=0：I=POL（X-x0，Y-y0：J<0→J=J+360△J“FWJ”=J▲I“r”=I▲（x0、y0为置仪点坐标）

子:QXY

A=D-D^5/40R²H²+ D^9/3456R^4H^4- D^13/599040R^6H^6+ D^17/17542600R^8H^8+1E-99:C=D³/6RH-D^7/336R³H³+D^11/42240R^5H^5-D^15/976800R^7H^7+ D^19/3530097000R^9H^9: S=tan¯1(C÷A):I=√(A²+C²):Q=90H÷лR:E=90D÷лR:D=2RsinE

子:TAD

Lbi 0:{KBU}:KBU↙

K≤xxx=>M=xxx:N=xxx: F=xxx: Z=xxx: R=xxx: H=xxx: T=xxx: L=xxx: G=xxx: V=xxx:≠>K≤xxx=>M=xxx:N=xxx: F=xxx: Z=xxx: R=xxx: H=xxx: T=xxx: L=xxx: G=xxx: V=xxx:≠>K≤xxx=>M=xxx

……………⊿

注:

K？输入计算点桩号;

B？输入距中桩距离,左－,右＋;

U？输入与前进方向偏角

计算中桩坐标时B、U输入0,M－交点X坐标;N－交点Y坐标;F－路线前进方向方位角;Z－转角,左转时连同“-”