常用CASIO4800计算程序集

温州交通

常用CASIO4800计算程序集
FX4800P常用测量程序集
1、由一个已知点坐标和一个已知方位角计算支导线坐标（程序名：ZBJS）
程序清单：
X：Y：T：Lb1 0：Fixm：{AS}：T=T+A-180：T〈0 =〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢
X=X+Scos T◢
Y=Y+Ssin T◢
Goto  0
程序运行说明：
运行“ZBJS”，每运行一步按EXE键一次，显示X？时输入已知点X坐标，显示Y？时输入已知点Y坐标，显示T？时输入已知点由后视到前视的已知坐  标方位角，运行一次本程序只需输入一次已知数据。显示A？时输入第一个左转角值，显示S？时输入测站到前视的水平距离。接下来计算器显示的T是测站到前视的坐标方位角，按     +       可将显示的十进制角度换算为度分秒。如此继续可计算出所有支导线未知坐标。
2、由两个已知点坐标计算支导线坐标（程序名：ZBJS2）
程序清单：
M“X0”：N“Y0”：D“XH”：E“YH” ?
Pol(M-D，N-E)：Fixm：T=J：X=M：Y=N：T〈0=〉T=T+360⊿T“TH-J=” ◢
I“S=”◢
Lb1 0:{AS}: T=T+A-180：T〈0 =〉T=T+360⊿ T〉360 =〉T =T-360⊿T◢
X=X+Scos T◢
Y=Y+Ssin T◢
Goto  0
程序运行说明：
运行后，显示X0，Y0时输入已知置镜点坐标，显示XH，YH时输入已知后视点坐标，其它同ZBJS的输入与显示。
3、由一个已知点坐标和一个已知方位角进行放射型导线坐标计算（程序名FSXZBJS）
      程序清单：
  C“X0”：D“Y0”：E“T0”：Fixm：Lb1 1:{SA}?
T=E+A-180：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢
X=C+Scos T◢
Y=D+Ssin T◢
Goto  1
程序运行说明：
变量输入参照ZBJS程序。
4、由两个已知点坐标进行放射型导线坐标计算（程序名FSXZBJS2）
M“X0”：N“Y0”：D“XH”：E“YH” ?
Pol(M-D，N-E)：Fixm：F=J：X=M：Y=N：F〈0=〉F=F+360⊿F“TH-J=” ◢
I“S=” ◢
Lb1 1:{SA}?
T=F+A-180：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢
X=X+Scos T◢
Y=Y+Ssin T◢
Goto 1
5、坐标计算优化程序（可进行连续式（LX）、放射式（FS）已知一点（1-D）或者两点（2-D）进行坐标计算）：
V“1=>LX，≠>FS”：W“1 =>1-D≠>2-D”：W=1=> Goto 1:≠> Goto2?
Lb1 1：F“X0=”：G“Y0=”：H“T H-0=”：Goto 3?
Lb1 2:F“X0=”：G“Y0=”：M“XH=”：N“YH=”ol(F-M，G-N)：Fixm: J〈0=〉J=J+360⊿H=J：H“TH-0=”◢
I“S-H=”◢
Goto 3?
Lb1 3: X=F：Y=G：T=H ： V=1=> Goto 4:≠> Goto 5?
Lb1 4: {AS}: A:S=T+A-180：T〈0 =〉T=T+360⊿ T〉360 =〉T =T-360⊿T◢
X=X+Scos T◢
Y=Y+Ssin T◢
Goto 4
Lb1 5：{AS}:A:S
T=H+A-180：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢
X=F+Scos T◢
Y=G+Ssin T◢
Goto  5
6、已知置镜点坐标和置镜点到后视点坐标方位角求放样角度和放样距离的放样程序（程序名FY1）
程序清单：
F“X0”：G“Y0”：H“T0-H”：Fixm：Lb1 1:{XY}?
Pol(X-F，Y-G) ?
J〈0 =〉J=J+360⊿A=J-H?
A〈0 =〉A=A+360⊿A“A=” ◢
I“S=” ◢
Goto  1
程序运行说明：
变量输入参照坐标计算，A=为放样顺时针角度，S=为放样距离。
7、已知置镜点和后视点坐标进行放样（FY2）
程序清单：
F“X0”：G“Y0”：M“XH”：N“YH”?
Pol(M-F，N-G)：Fixm：H=J?
H〈0=〉H=H+360⊿H“T-H=”◢
I“S-H=” ◢
Lb1 1:{XY}: Pol(X-F，Y-G) ?
J〈0 =〉J=J+360⊿?
A=J-H?
A〈0 =〉A=A+360⊿A“A=”◢
I“S=” ◢
Goto  1
8、放样优化程序（可分已知一点或者两点坐标进行放样角度距离的计算）
程序名“FY”
程序清单：
I“I=1 =>1-D≠>2-D”?
I=1=> Goto 1:≠> Goto2?
Lb1 1：F“X0”：G“Y0”：H“T0-H”：Goto 3?
Lb1 2：F“X0”：G“Y0”：M“XH”：N“YH”ol(M-F，N-G)：Fixm:J〈0=〉J=J+360⊿H=J:H“T-H=”◢
I“S-H=”◢
Goto 3?
Lb1 3：{XY}?
Pol(X-F，Y-G) ：Fixm ?
J〈0 =〉J=J+360⊿A=J-H?
A〈0 =〉A=A+360⊿A“A=” ◢
I“S=” ◢
Goto  3
程序运行说明：
变量输入参照坐标计算，A=为放样顺时针角度，S=为放样距离。
9、已知两点坐标，反算两点之间的坐标方位角和距离（程序名ZBFS）
程序清单：
A“X1=”：B“Y1=”：C“X2=”：D“Y2=”：P ol（C-A，D-B）：Fixm：J〈0 =〉J=J+360⊿J“T（1-2）=” ◢
I“S（1-2）=”
10、分别已知两条直线上一点的坐标和坐标方位角，求这两条直线的交点坐标（程序名JDZB）
程序清单：
X=（tan A“T1”?B“X1”-C“Y1”-tan D“T2” ?E“X2”+F“Y2”） V?（tan A- tan D）◢
Y= tan A（X-B）+C
11、直线线路坐标计算（ZXXY）
程序清单：
V“X0=”：W“Y0=”：T“T0=”：U“K0=”：Lb1 0：Fixm：{KD}：X=V+（K-U）cos T+D?cos(T+90)◢
     Y=W+（K-U）sin T+D?sin(T+90)◢
      Goto  0
程序运行说明：
已知某一直线线路上一点的坐标为X0，Y0，该点里程为K0以及该直线沿前进方向的坐标方位角T0，按照提示输入以上数据，如果输入某一里程K和法线外移距离D（向右移为正值，向左移为负值）即可计算出该里程点的法线外移桩坐标X、Y，当D=0时计算结果为中桩坐标。
12、“缓+圆+缓”型曲线坐标计算
主程序（QXJS）
程序清单：
Prog “BQXYS”：Q“K—ZH”：F“ZHX=”：G“ZHY=”：N“TZH—JD”：I“（Y1，Z-1）” ?
Lbl 1:Fixm:{KD}:K“LICHENG=”：D“WAIYI=（Z-，Y+）”：Goto2?
Lbl 2:K Goto3:≠> Goto4?
Lbl 3:“K—OVER”: Goto1?
Lbl 4:K>Q+L => Goto3:≠> Goto5?
Lbl 5:K≤Q+B => Goto6:≠> Goto7?
Lbl 6:S=K-Q：W=B：Prog “HQXY”：O=N+I?90S2?(?? RB)：O<0 => O=O+360⊿O>360 => O=O-360⊿O“FANGWEI=” ◢
X=UcosN-VsinN+F+D?cos(O+90) ◢
Y=VcosN+UsinN+G+D?sin(O+90) ◢
Goto1?
Lbl 7：K≤Q+L-C => Goto8:≠> Goto9?
Lbl 8:S=K-Q：O=N+I?90(2S-B)?(?? R)：O<0 => O=O+360⊿O>360 => O=O-360⊿O“FANGWEI=” ◢
Prog “YQXY”：X=UcosN-VsinN+F+D?cos(O+90) ◢
Y=VcosN+UsinN+G+D?sin(O+90) ◢
Goto1?
Lbl 9: S= Q+L-K：W=C：Prog “HQXY”：E=N+IA+180：O=E-I?90S2?(?? RC)+180：O<0 => O=O+360⊿O>360 => O=O-360⊿O“FANGWEI=”◢
V=-V?
X=(U-H)cosE-VsinE+F+T cosN+D?cos(O+90) ◢
Y=VcosE+(U-H)sinE+G+T sinN+D?sin(O+90) ◢
Goto1?
子程序“BQXYS”
A:R:B“L01”:C“L02” ?
M“M1”=B?2-B3?（240 R2）◢
J“M2”=C?2-C3?（240 R2）◢
P“P1”= B2?（24 R）- B4?（2688 R3）◢
Z“P2”= C2?（24 R）- C4?（2688 R3）◢
T“T1”=M+（R+P）tan(A?2)+(Z-P) ?sinA◢
H“T2”=J+（R+Z）tan(A?2)+( P-Z) ?sinA◢
L= B?2+C?2+A R???180◢
E= ◢
子程序“HQXY”
U=S-S5?(40R2 W2)+ S9?(3456 R4 W4)-S13?(599040R6 W6):V=I?(S3?(6RW)- S7?(336 R3 W3) +S11?(42240 R5 W5))
子程序“YQXY”
U=Rsin(180(S-B?2)????R)+M:V=I?(R?(1-cos(180(S-B?2)????R))+P)
程序说明：本程序可以计算等长和不等长“缓+圆+缓”型曲线或者单圆曲线的中线坐标、外移桩坐标以及中线的切线方位角。
先将主、子程序存入计算器，然后运行主程序“QXJS”，输入A（曲线偏角），曲线半径R，第一缓和曲线长L01，第二缓和曲线长L02，（等长缓和曲线时L01= L02），然后显示曲线逐要素，接着输入ZH坐标（ZHX，ZHY），ZH到JD坐标方位角TZH—JD，当曲线为左偏时（Y1，Z-1）输-1，右偏输1，输入计算里程K，外移距离D，计算中桩时D输0，计算左边桩时D输负数，算右边桩时D输正数，当所输里程不在本曲线计算范围内时，屏幕显示K—OVER，继续输入有效里程可继续计算。
对于单圆曲线，缓和曲线长输入0。
本程序缓和曲线X计算取了4项，Y计算取了3项，一般的曲线计算精度都可达到mm级。
13、采用积分进行任意曲线线路坐标计算程序（直线、圆曲线、卵型曲线）
程序名“XLJS”
程序名“XLJS”(V1.1，2005年12月7日星期三升级于秦岭公司)
G“XJ=”：H“YJ=”：R“XH=”：S“YH=”：A“XA=”：B“YA=”：C“TA=”：E“1?RA ,Z-，Y+”：P“KA=”?
Lbl 1：{FQ}：F“1?RB, Z-，Y+”：Q“KB=” ?
Lbl 2：{V}：V“K=”：O=V：O
Goto3：≠> Goto4?
Lbl 3：“K-SMALL”：Goto2?
Lbl 4：O>Q => Goto5：≠> Goto7?
Lbl 5：{I}：I“I=1=>ESC≠>NEXT”：I=1=> Goto2：≠> Goto 6?
Lbl 6：“JISUAN：A-TXY”：V=Q：Z=0：D=0：Goto8?
Lbl 7: {DZ}：Z“JIA-JIAO=”：D“WAIYI=（Z-，Y+）”?
Lbl 8：T=C+90????（2E+（F-E）（V-P）?（Q-P））（V-P）：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿?

Rad：W=A+∫（cos（C?+0.5?(2E+(F-E)(X-P)?(Q-P))(X-P)）,P,V,4）+ D?cos(T?+Z?) ?
Y=B+∫（sin（C?+0.5?(2E+(F-E)(X-P)?(Q-P))(X-P)）,P,V,4）+ D?sin(T?+Z?)：Deg：Goto9?
Lbl 9：O≤Q => GotoB：≠> GotoA?
Lbl A：A=W：B=Y：C=T：E=F：P=Q： Goto1?
Lbl B： W“X=”◢
Y“Y=”◢
T“T=”◢
Pol(R-G，S-H)：Fixm：M=J：Pol(W-G，Y-H) ：J=J-M?
J<0 =>J=J+360⊿J>360 =>J=J-360⊿J“A=”◢
I“S=”◢
Goto 2
程序积分式中“?”的编辑输入为：“FUNCTION”键+5（DRG）+4（?）。
程序功能
由于程序根据线路曲线坐标计算通用数学模型编制，所以，对于任意线型的一段线路曲线（直线、圆曲线可看作是通用计算模型的特例），只要输入曲线信息和测站信息，都可以迅速地计算出该曲线上任意里程点处的切线方位、中桩或与该里程切线成任意夹角的外移桩坐标、极坐标法放样的角度和距离。
程序运行
运行程序“XLJS”，按提示输入置镜点坐标（XJ，YJ），后视点坐标（XH，YH），曲线起点A的坐标（XA，YA）、沿线路前进方向的切线方位角TA、里程KA、曲率（直接在计算器上以1?RA的形式输入，R表示半径，左偏曲线输负值右偏曲线输正值），继续输入终点B的曲率（1?RB输入同A点）、里程KB。当屏幕显示“K=？”时，输入该段曲线要计算放样数据

温州交通