CASIOfx系列编程计算器测量程序集Word文件下载.docx
《CASIOfx系列编程计算器测量程序集Word文件下载.docx》由会员分享，可在线阅读，更多相关《CASIOfx系列编程计算器测量程序集Word文件下载.docx（14页珍藏版）》请在冰豆网上搜索。
H“Y2”：
E=C-G：
F=H-B↙
Pol（E，F）：
I“D12”◢
J“A12”
X1，Y1——点1的平面坐标；
X2，Y2——点2的平面坐标；
D12——点1至点2间平距；
A12——点1至点2坐标方位角，单位是度，若需换算成“度分秒”，按SHIFT键和o′″键。
由于编程时用到了极坐标函数POL（），故在程序运行中，会出现I=？
XXX（数字）及J=？
XXX（数字）这是函数POL计算出的两个量，不能改变，直接回车默认即可。
程序三 ZHENGSUAN（正算）
该程序是“坐标正算公式”程序，用于根据点1的平面坐标（X1，Y1），及点1至点2的平距D12、坐标方位角A12，来计算点2的平面坐标（X2，Y2）。
B“X1”：
C“Y1”：
D“D12”：
A“A12”↙
X“X2”=B+DcosA◢Y“Y2”=C+DsinA
A12——点1至点2坐标方位角；
X2，Y2——点2的平面坐标。
另外在输入A12时，可直接输入“度分秒”。
程序四 YUANZHU（圆主）
该程序是“单圆曲线主点测设元素及里程计算”程序。
A“TURNINGANGLE”：
R：
B“JD”↙
T=Rtan（A÷
2）◢L=RAπ÷
180◢E=R÷
cos（A÷
2）-R◢D=2T-L◢C“ZY”=B-T◢F“YZ”=C+L◢
G“QZ”=F-L÷
2
TURNINGANGLE——交点JD处的转角；
R——圆曲线半径；
JD——交点。
T——切线长；
L——圆曲线长；
E——外矢距；
D——切曲差；
ZY——ZY点里程；
YZ——YZ点里程；
QZ——QZ点里程。
程序五 YUANXIANG（圆详）
该程序是“单圆曲线切线支距法及长弦偏角法详细测设”程序。
A“ZYORYZ”：
Lbl1↙
{L}：
B=180Abs（L-A）÷
R÷
π：
X=RsinB◢Y=R-RcosB◢D“ANGLE”=B÷
2◢C“DISTANCE”=2RsinD◢Goto1
ZYORYZ——ZY点或YZ点里程（桩号）；
L——某桩的里程（桩号）；
X——切线支距法的X值；
Y——切线支距法的Y值；
ANGLE——偏角法的偏角值，单位为“度”。
若要查看其“度分秒”，可在程序运行显示时先后按“SHIFT”、“度分秒”这2个键；
DISTANCE——长弦偏角法的弦长。
程序六 HUANZHU（缓主）
该程序是“完整对称带缓和曲线的圆曲线”的主点测设元素及里程计算程序。
S“LS”：
H“JD”↙
B=180S÷
（2Rπ）↙
P=S2÷
24÷
R-S^4÷
（2688R^3）↙
Q=S÷
2-S^3÷
（240R2）↙
T=（R+P）tan（A÷
2）+Q◢M=R（A-2B）π÷
180↙
L=M+2S◢E=（R+P）÷
2）-R◢D=2T-L◢N“ZH”=H-T◢O“HY”=N+S◢
U“QZ”=O+M÷
2◢V“YH”=O+M◢W“HZ”=V+S
LS——缓和曲线长；
JD——交点里程（桩号）。
T——切线长；
L——曲线长；
ZH——ZH点里程；
HY——HY点里程；
QZ——QZ点里程；
YH——YH点里程；
HZ——HZ点里程。
程序七 HUANQIE（缓切）
该程序是“完整对称带缓和曲线的圆曲线”的切线支距法详细测设坐标计算程序。
A“ZH”：
{L，B}↙
：
↙
Lbl2↙
C=Abs（L-A）：
D=RS：
X=C-C^5÷
40D2+C^9÷
3456D^4-C^13÷
599040D^6+C^17÷
17542600D^8◢
Y=C^3÷
6D-C^7÷
336D^3+C^11÷
42240D^5-C^15÷
9676800D^7+C^19÷
3530097000D^9◢Goto1↙
Lbl3↙
E=180（Abs（L-A）-S）÷
π+180S÷
（2πR）：
P=S2÷
2688÷
R^3：
Q=S÷
240÷
R^2↙
X=RsinE+Q◢
Y=R-RcosE+P◢
Goto1↙
ZH——ZH点桩号（里程）；
L——待测设桩的桩号（里程）；
B——当待测设中桩位于缓和曲线段，则输入“1”，当待测设中桩位于圆曲线段，则输入“1”以外的数值。
Y——切线支距法的Y值。
程序八 HUANPIAN（缓偏）
该程序是“完整对称带缓和曲线的圆曲线”的偏角法详细测设计算程序。
S“LS”↙
B=30S÷
F“B0”=2B◢
Lbl1↙
{L}↙
E=Abs（L-A）：
D“ANGLE”=（E÷
S）2B◢
C“DISTANCE”=E-E^5÷
（90R2S2）◢
Goto1
B0——在以后要测设圆曲线段上的中桩时，架仪于HY（或YH）点，瞄准ZH（或HZ）点，拨角B0为圆曲线的切线方向，找到切线方向后，即按单圆曲线偏角法去测设即可；
ANGLE——偏角法的偏角值，在程序显示中其单位为“度”。
若要查看其“度分秒”，可在显示时先后按“SHIFT”、“度分秒”这2个键；
程序九 ZHUANHUAN（转换）
该程序是“两平面坐标系间坐标转换”的计算程序。
C“X0”：
E“Y0”：
D“ANGLE”：
F“SIGN”↙
Lbl0↙
{A，B}↙
F
1
A=A：
B=-BΔX=C+AcosD-BsinD◢
Y=E+BcosD+AsinD◢
Goto0
X0，Y0——施工坐标系（A-O'
-B）的原点O'
在统一坐标系（x-o-y）中的坐标。
ANGLE——为统一坐标系的x轴顺时针旋转至施工坐标系的A轴的角值。
SIGN——为符号函数，若输入“1”时，则表明x-o-y为左手系，且A-O'
-B也为左手系；
若输入“1”之外值，则表明x-o-y为左手系，而A-O'
-B为右手系。
A，B——某点在施工坐标系中的纵、横坐标。
X，Y——该点在相应统一坐标系中的纵、横坐标。
程序十 FUDAOXIAN（附导线）
该程序是“附合导线平差”的计算程序。
Defm40：
X“X0”：
Y“Y0”：
F“A0”：
S“X1”：
E“Y1”：
A“A1”：
C“UNKNOWNPOINT”↙
N=0：
M=0：
Lbl0↙
N=N+1：
{L，D}：
G=180：
F=F+L：
F
G
F=F+G：
F=F-GΔF
2G
F+F-2GΔZ[2N-1]=F：
Z[2N]=D：
M=M+D：
N<
C+1
Goto0Δ{L}：
F+F-2GΔB“FW”=F-A◢R：
H“FR”=R
（C+2）◢B=-B÷
（C+2）
P=0：
Q=0：
N=N+1◢
Z[2N-1]“A”=Z[2N-1]+NB◢
I=Z[2N]cosZ[2N-1]：
P=P+I：
Z[2C+2N+1]=I：
J=Z[2N]sinZ[2N-1]：
Q=Q+J：
Z[2C+2N+2]=J：
Goto1ΔF“FX”=P-S+X◢G“FY”=Q-E+Y◢H“F”=
（F2+G2）◢K=H÷
M◢
V=-F÷
M：
W=-G÷
Lbl2↙
Z[2C+2N+1]=Z[2C+2N+1]+VZ[2N]：
Z[2C+2N+2]=Z[2C+2N+2]+WZ[2N]：
X=X+Z[2C+2N+1]◢
Y=Y+Z[2C+2N+2]◢N<
C
Goto2：
“END”
X0，Y0，A0——已知的起始点的纵、横坐标及起始边的坐标方位角。
X1，Y1，A1——已知的结束点的纵、横坐标及结束边的坐标方位角。
UNKNOWNPOINT——待求未知点的个数。
L，D——观测的导线各左转角及平距。
FW，R，FR——导线角度闭合差、角度闭合差的允许误差的系数及允许误差值。
N，A——各条导线边序号及其坐标方位角。
FX，FY——坐标增量ΔX、ΔY的闭合差。
F，K——导线全长闭合差、导线全长相对闭合差。
N，X，Y——各导线点的序号及其纵横坐标。
注意：
（1）本程序是按10个未知点来设计的，若未知点数超过10个时，按“4倍点数”来改变源程序中的“Defm40”。
（2）显示的角度允许误差FR的单位为“秒”。
（3）在程序显示中角度单位为“度”。
若要查看其“度分秒”，可在显示时先后按“SHIFT”、“度分秒”这2个键。
程序十一 BIDAOXIAN（闭导线）
该程序是“闭合导线平差”的计算程序。
N“UNKNOWNPOINT”：
N=N+1↙
I=0：
E=0：
C=0：
I=I+1：
Z[2I-1]=L：
Z[2I]=D：
E=E+L：
C=C+D：
I<
N
Goto0ΔB“FW”=E-180（N-2）◢R：
A“FR”=R
N◢B=-B÷
N：
I=1：
Z[2N+1]=F：
I+I+1◢F=F+Z[2I-1]：
180
F=F+180：
F=F-180ΔF
360
F+F-360ΔZ[2N+2I-1]“A”=F+（I-1）B◢I<
Goto1ΔI=0：
G=0：
H=0：
I+I+1：
Z[2I-1]=Z[2I]cosZ[2N+2I-1]：
G=G+Z[2I-1]：
Z[2N+2I]=Z[2I]sinZ[2N+2I-1]：
H=H+Z[2N+2I]：
Goto2ΔG“FX”◢H“FY”◢I“F”=
（G2+H2）◢K=I÷
C◢U=-G÷
C：
V=-H÷
C↙
Lbl3↙
I+I+1◢Z[2I-1]=Z[2I-1]+UZ[2I]：
Z[2N+2I]=Z[2N+2I]+VZ[2I]：
X=X+Z[2I-1]◢Y=Y+Z[2N+2I]◢
I<
N-1
Goto3：
“END”
I，A——各条导线边序号及其坐标方位角。
I，X，Y——各导线点的序号及其纵横坐标。
程序十二 SHUIZHUN（水准）
该程序是“单一水准路线的平差”的计算程序。
A“CODE”：
Defm20：
G=0：
I=0：
Lbl0：
I=I+1：
{H}：
Z[2I]=H：
G=G+H↙
A=1
{L}：
M=M+L：
{N}：
Z[2I-1]=N：
M=M+NΔI<
Goto0ΔB“H0”：
D“H1”：
F=B+G-D◢J“FR”=R
M÷
1000◢AbsF<
J
“CHAOXIANCHA”：
V=-F÷
H=B：
Lbl1：
I=I+1◢H=H+Z[2I]+VZ[2I-1]◢I<
Goto1：
CODE——地形编码，当是平地，统计公里数时输入“1”；
当是山地，统计测站数时输入非“1”。
UNKNOWNPOINT——待求高程点的个数。
L——水准点间的路线长。
N——水准点间的测站数。
H——水准点间的实测高差。
H0，H1——已知的起始点和结束点的高程。
F，FR——高差闭合差、高差允许闭合差。
R——高差允许闭合差系数。
等外水准：
12（按测站数）或40（按公里数）；
四等水准：
6（按测站数）或20（按公里数）。
I，H——第I段及第I个待求水准点的高程。
（1）本程序是按10个未知点来设计的，若未知点数超过10个时，按“2倍点数”来改变源程序中的“Defm20”。
（2）当水准路线是闭合水准路线时，只需将H0，H1输入相同的值。
程序十三 FANGPINGAO（方平高）
该程序是“方格网法平整场地，填挖方量基本平衡时的设计高程”的计算程序。
N：
X“INPUTANGLENUMBER”：
C=C+H：
X
Goto0ΔM“INPUTEDGENUMBER”：
J=0：
D=0：
J“I”=J+1：
D=D+2H：
J<
M
Goto1ΔP“INPUTCORNERNUMBER”：
K=0：
K“I”=K+1：
E=E+3H：
K<
P
Goto2ΔQ“INPUTMIDDLENUMBER”：
L=0：
F=0：
L“I”=L+1：
F=F+4H：
L<
Q
Goto3ΔG“H0”=（C+D+E+F）÷
4÷
N
N——方格的个数。
INPUTANGLENUMBER——输入角点的个数。
INPUTEDGENUMBER——输入边点的个数。
INPUTCORNERNUMBER——输入拐点的个数。
INPUTMIDDLENUMBER——输入中点的个数。
H——各点的实测高程。
H0——填挖方量基本平衡时的设计高程。
程序十四 FANGTUFANG（方土方）
该程序是“方格网法平整场地时，填、挖方量”的计算程序。
D：
E“H0”：
A=0：
J=J+1：
F“DH”=H-E◢F>
0
G=G+F÷
4：
A=A+F÷
4ΔJ<
Goto1ΔY“INPUTEDGENUMBER”：
B=0：
Lbl2：
K=K+1：
M“DH”=H-E◢M>
0
L=L+M÷
2：
B=B+M÷
2ΔK<
Y
Goto2ΔZ“INPUTCORNERNUMBER”：
Q=Q+1：
T“DH”=H-E◢T>
P=P+3T÷
C=C+3T÷
4ΔQ<
Z
Goto3ΔW“INPUTMIDDLENUMBER”：
R=0：
S=0：
I=0：
Lbl4↙
S=S+1：
U“DH”=H-E◢U>
R=R+U：
I=I+UΔS<
W
Goto4ΔN“VW”=（G+L+P+R）D2◢V“VT”=-（A+B+C+I）D2
D——方格的边长。
H0——平整场地时的设计高程。
DH——填挖高度（各点的实测高程与设计高程之差），正为挖，负为填。
VW，VT——挖方、填方。
程序十五 JIZHUOBIAO（极坐标放样程序）
该程序是用于根据测站点坐标（x1,y1）和后视点坐标（x2,y2），计算在测站点后视后视点，用极坐标法放样任一待定点（x,y）所需正拨的水平角及边长。
G“X1”：
B“Y1”：
C“X2”：
H“Y2”：
E
升级会员 