卡西欧计算器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－转角,左转时连同“-”
号输入; R－半径;H-缓和曲线长,无缓和曲线时为0;T－切线长；L－曲线总长;G－直缓点桩号;V－缓直的桩号
在Lbi1行处,把各主点后的“:”改为“▲”，如Z[1]“ZH-X”=M+Tcos（F+180）:改成Z[1]“ZH-X”=M+Tcos（F+180）▲可直接显示主点桩号坐标,在子程“TAD”内可输入全线角桩资料,K≤本转角缓直点桩号时输入本转角曲线要素。

程序有些繁锁,重复语句多,对于它的准确性和可靠性望大家给予验证,修正.fengdisheng123@。