4800全套计算程序吐血推荐.docx
《4800全套计算程序吐血推荐.docx》由会员分享，可在线阅读，更多相关《4800全套计算程序吐血推荐.docx（14页珍藏版）》请在冰点文库上搜索。
4800全套计算程序吐血推荐
整套卡西欧计算器CASIOFX-48004500测量程序
各位同行：
我长年从事公路桥梁测绘工作，收集整理了一整套卡西欧计算器CASIO
FX-4800P和卡西欧CASIOFX-4500P测量放线程序，该套程序经过反复修正，具有
极高的可靠性。
现在免费提供给大家.
程序目录：
1.1 测边大地四边形的条件平差程序
1.2 测边中点多边形的条件平差程序
1.3 单一导线的严密平差程序
1.4 单一结点导线的严密平差程序
1.5 边、角后方交会的条件平差程序
1.6 测边交汇点的条件平差程序
1.7 单一水准路线的平差程序
1.8 单结点的平差程序
1.9 多结点水准网的平差程序
1.10 多边形水准网的平差程序
1.11 三角高程差的计算程序
1.12 测距边水平距离的计算程序
1.13 高斯投影座标正、反解和换带的计算程序
1.14 平面座标转移的计算程序
2.1 单边、角后方交会的计算程序
2.2 双边、角后方交会的计算程序
2.3 碎部点座标的计算程序
2.4 内、外分点座标的计算程序
2.5 房角标的计算程序
2.6 多次后方测角交会点
2.7 测边交会点的计算程序
2.8 导线三维值的计算程序
2.9 圆心座标和半径的程序
2.10 测站点、照准点归心改正的计算程序
2.11 单边、双站后方交会的计算程序
3.1 线路中心座标的计算程序
3.2 线路边桩座标的计算程序
3.3 红线交点座标的计算程序
3.4 直线与圆曲线交点座标的计算程序
3.5 垂足座标的计算程序
3.6 道路不等宽时曲线要素的计算程序
3.7 缓和曲线敷设时的计算程序
3.8 圆曲线敷设时的计算程序
3.9 极座标放线线的计算程序
3.10 交点座标的计算程序
3.11 宗地有关项目的计算程序
3.12 丘地有关项目的计算程序
4.1 导线X、Y、Z值的近似平差程序
4.2 无定向导线的计算程序
4.3 测角前方交会点座标的计算程序
4.4 测边交会座标的计算程序
4.5 测角后方交会点座标的计算程序
4.6 双边、角后方交会点座标的计算程序
4.7 平面座标转移的计算程序
4.8 测站点、照准点归心改正的计算程序
4.9 三角高程高差的计算程序
4.10 测距边水平距离的计算程序
4.11 单一导线的严密平差程序
4.12 边、角后方交会点的严密平差程序
4.13 测边交会点的严密平差程序
5.1 图跟导线点座标的计算程序
5.2 碎部点座标的计算程序
5.3 内、外分点座标的计算程序
5.4 角座标的计算程序
5.5 圆心座标的和半径的计算程序
5.6 交点座标的计算程序
5.7 单边、角交会点座标的计算程序
5.8 宗地有关项目的计算程序
5.9 单边、双站后方交会座标的计算程序
6.1 线路边桩座标的计算程序
6.2 红线交点座标的计算程序
6.3 直线与曲线交点座标的计算程序
6.4 道路不等宽时曲线元素的计算程序
6.5 垂足座标的计算程序
6.6 圆曲线敷设的计算程序
6.7 缓各曲线敷设的计算程序
6.8 极座标放线的计算程序
6.9 单一水准路线的近似平差计算程序
6.10 丘地有关项目的计算程序
公路中、边桩坐标计算及放样程序
功能：
任意半径曲线中桩、任意交角边桩坐标计算放样、中桩切线方位角、任意点置仪放样、两点间距离计算、两点方位角计算。
各子程序可独立执行。
适用范围：
单圆曲线、基本型缓和曲线、非对称基本型缓和曲线、卵型曲线、回头曲线（转角大于180度）
源程序：
F2（2是文件名为）
“O=0XYQSOO≠0XYV”：
ORS“LS1”U“LS2”P“ZH-Q”W“Z-G”T“J-G”A“ZH”：
S=0=>S=E-9：
≠>S=S：
（或者将S=0=>S=E-9：
≠>S=S改为S=S+E-9也可以）B=A+S：
F“HZ”：
E=F-U：
G“X-ZH”H“Y-ZH”I“X：
HZ”J“Y：
HZ”M“XO”
N“YO”X“X-HS”Y“Y-HS”：
Prog“A”：
Prog“D”：
Lbi0：
{Z}：
Z：
D=0=>Goto1：
≠>Goto2：
Lbi2：
{D}：
D：
Lbi1：
Z≤A=>Prog“3”：
Prog“0”：
Goto0：
≠>Z＞A=>Z≤B=>L=Z-A：
K=RS：
Prog“4”：
Prog“5”：
Prog“0”：
Goto0：
≠>Z＞B=>Z≤E=>L=S：
K=RS：
Prog“4”：
Prog“5”：
Prog“6”：
Prog“0”：
Goto0：
≠>Z＞E=>Z≤F=>L=F-Z：
K=RU：
Prog“4”：
Prog“9”：
Prog“7”：
Prog“0”：
Goto0：
≠>Z≥F=>C=Z-F：
Prog“8”：
Prog“0”：
Goto0
F2（2是文件名）也可用下面这个程序
“O=0XYQSOO≠0XYV”：
ORS“LS1”U“LS2”P“ZH-Q”W“Z-G”T“J-G”A“ZH”：
B=A+S：
F“HZ”：
E=F-U：
G“X-ZH”H“Y-ZH”I“X：
HZ”J“Y：
HZ”M“XO”N“YO”X“X-HS”Y“Y-HS”：
Prog“A”：
Prog“D”：
Lbi0：
{Z}：
Z：
D=0=>Goto1：
≠>Goto2：
Lbi2：
{D}：
D：
Lbi1：
Z≤A=>Prog“3”：
Prog“0”：
Goto0：
≠>Z＞A=>Z≤B=>L=Z-A：
K=RS：
Prog“4”：
Prog“5”：
Prog“0”：
Goto0：
≠>Z＞B=>Z≤E=>L=S：
Goto3：
≠>Z＞E=>Z≤F=>L=F-Z：
K=RU：
Prog“4”：
Prog“9”：
Prog“7”：
Prog“0”：
Goto0：
≠>Z≥F=>C=Z-F：
Prog“8”：
Prog“0”：
Goto0
Lbi3：
S=0=>K=1：
Prog“4”：
Prog“5”：
Prog“6”：
Prog“0”：
Goto0：
≠>S≠0=>K=RS：
Prog“4”：
Prog“5”：
Prog“6”：
Prog“0”：
Goto0
F3
C=A-Z：
X=G+Ccos（P+180）：
Y=H+Csin（P+180）：
V=P
F4
Lbi1：
X=L-L5÷40K2+L9÷3456K4-L13÷599040K6+L17÷175472640K8-L21÷7.80337152E10K10：
Y=L3÷6K-L7÷336K3+L11÷42240K5-L15÷9676800K7+L19÷3530096640K9-L23÷1.880240947E12K11：
C=√（X2+Y2）：
V=90L2÷лK：
X≠0=>Q=tan-1Y┛X：
≠>Q=0：
⊿
F5
Prog“9”：
X=G+Ccos（P+Q）：
Y=H+Csin（P+Q）：
V=P+V
F6
L=Z-B：
Q=90L÷лR：
C=2RsinQ：
W≥0=>Q=Q：
V=V：
Goto1：
≠>V=V：
Q=-Q：
Goto1：
Lbi1：
X=X+Ccos（V+Q）：
Y=Y+Csin（V+Q）：
V=V+2Q
F7
X=I+Ccos（P+W-180-Q）：
Y=J+Csin（P+W-180-Q）：
V=P+W-V
F8
X=I+Ccos（P+W）：
Y=J+Csin（P+W）：
V=P+W
F9
W≥0=>Q：
V：
≠>Q=-Q：
V=-V：
⊿
F0
X=X+Dcos（V+T）：
Y=Y+Dsin（V+T）：
O=0=>“X=”：
X：
Pause0：
Y=Y◢
Prog“A”：
Prog“D”：
≠>O≠0=>“X=”：
X：
Pause0：
Y=Y◢
V＜0=>V=V+360◢
≠>V=V◢
FA
X＞M=>Prog“B”：
Goto0：
≠>X=M=>Prog“C”：
≠>X
＜M=>Prog“B”：
Q=Q+180：
Lbi0：
Q=Q+360：
Q≥360=>Q=Q-360◢
≠>Q=Q◢
FB
Q=tan-1（Y-N）┛（X-M）
FC
Y≥N=>Q=90◢
≠>Q=270◢
FD
C=√（（X-M）2+（Y-N）2））：
“SO=”：
Pause0
说明：
一、程序中字母及符号意义：
R：
圆曲线半径；
LS1（S）：
第一缓和曲线长
LS2（U）：
第二缓和曲线长
ZH-Q（P）：
直缓（直圆）点切线方位角
Z-G（W）弯道转角（左转为负，右转为正）
J-G（T）：
中桩至右侧某点方向与中桩切线方位角的夹角（大于等于0度且小于等于180度，当正交时为90度）
ZH（A）：
直缓或直圆点桩号
HZ（F）：
缓直或圆直点桩号
X-ZH（G）：
直缓或直圆点X坐标；
Y-ZH（H）：
直缓或直圆点Y坐标
X-HZ（I）：
缓直或圆直点X坐标
Y-HZ（J）：
缓直或圆直点Y坐标
XO（M）：
测站X坐标；YO（N）：
测站X坐标
X-HS：
后视点X坐标；Y-HS：
后视点Y坐标
X、Y：
计算或放样点坐标
Q（Q）：
计算或放样方位角
SO（C）：
计算或放样距离
Z（Z）：
计算点桩号
D（D）：
边桩距中桩宽度（左为负值，右为正值）
V（V）：
中桩切线方位角
┛：
分数符号
Prog：
子程序转移命令
Pause：
显示暂停命令
tg-1：
反正切函数
Goto：
无条件转移命令
Lbl：
对应无条件转移，指定行号。
二、输入、计算要点
1．该程序一次只可输入一个弯道的参数，计算段落为上一弯道终点（HZ或YZ）至下一弯道起点（ZH或ZY）。
2．计算单圆曲线时LS1、LS2输入时输0
3．当只计算第一缓和曲线及圆曲线，不计算第二缓和曲线时，弯道转角只需输入正或负值（左转为正、右转为负）即可，可不输入准确的角度。
4．如只计算上一弯道曲线（HZ或YZ）终点至ZH点间的桩号时，除ZH点桩号、方位角和坐标须输入正确外，其它参数可任意输入（但不能有逻辑错误，如HZ点桩号小于了ZH点的桩号的错误情况。
）
5．后视点X、Y坐标在每次重启程序时需重新输入，建议第一次输入计算出后视角度及距离后用笔将计算的后视角度和距离在纸上记录下来，便于中途后视时核对。
6．用于卵型曲线时坐标计算时，需先计算出卵型曲线的相关参数后再用本程序计算即可。
7．为保证计算精度，本程序所用切线支距公式（F4子程序中）取至6项，计算非卵型曲线时为节省存储空间可只取前4项，建议至少取3项。
8．程序启动时，当问O？
时，如输入0则计算结果显示坐标X、Y及放样角度Q和放样距离SO；如输入不为0的数时显示坐标X、Y及中桩切线方位角。
9．当问距中桩宽度D？
时，如只放中桩可输入0，程序默认为中桩后以后不再提示输入宽度；如要同时计算中、边桩，在计算中桩时可输入0.0001或E-4等更小的数即可。
10．如已知两点坐标只计算其方位角或距离时，直接运行FA或FD子程序即可。
11．如需将多个曲线参数一次置入程序，减少每次输入的繁锁，可对F2程序进行修改或另加一主程序即可，其它子程序不用改动。
公路路线坐标反算
适用范围：
单圆曲线、基本型缓和曲线、非对称基本型缓和曲线、卵型曲线、回头曲线（转角大于180度）
特点：
1．已知任意点坐标求对应于中桩任意方向其对应中桩的桩号及到中桩距离，斜交或正交。
2．无需人为判断即可求得其位于路线的关系。
3．本程序公用了前面《公路中、边桩坐标计算及放样程序》中F3～F9子程序,因此节约了空间。
源程序一与源程序二任取一个均可
源程序一：
FEZUOBIAOFANSUAN
Z=0：
O=0：
D=0：
RS“LS1”U“LS2”P“ZH-Q”W“Z-G”T“J-G”A“ZH”：
B=A+S：
F“HZ”：
E=F-U：
G“X-ZH”H“Y-ZH”I“X：
HZ”J“Y：
HZ”M“XO”N“YO”：
{D}：
D：
Lbi0：
Prog“F”：
Goto0
FF
Z=Z+O÷2：
Lbi1：
Z≤A=>Prog“3”：
Prog“G”：
Goto1：
≠>Z＞A=>Z≤B=>L=Z-A：
K=RS：
Prog“4”：
Prog“5”：
Prog“G”：
≠>Z＞B=>Z≤E=>L=S：
K=RS：
Prog“4”：
Prog“5”：
Prog“6”：
Prog“G”：
≠>Z＞E=>Z≤F=>L=F-Z：
K=RU：
Prog“4”：
Prog“9”：
Prog“7”：
Prog“G”：
≠>Z＞F=>C=Z-F：
Prog“8”：
Prog“G”
FG
C=√（（X-M）2+（Y-N）2））：
D＜0=>D=-C：
Goto0：
≠>D≥0=>D=C：
Goto0：
Lbi0：
X=X+Dcos（V+T）：
“X=”：
Pause0：
Y=Y+Dsin（V+T）：
“Y=”：
Pause0：
O=√（（X-M）2+（Y-N）2））：
O＜E9=>D=D：
Goto1：
≠>O≥E9=>Z=0：
O=0：
D=-D：
Goto1：
Lbi1：
Abs（X-M）≤E-4=>Abs（Y-N）≤E-4=>X：
“X=”：
Pause0：
Y：
“Y=”◢
Z：
“Z=”：
Pause0：
D：
“D=”◢
{MND}：
M“XO”N“YO”D“D”：
Z=0：
O=0：
≠>Abs（X-M）＞E-4=>Abs（Y-N）＞E-4=>Z
源程序二：
FEZUOBIAOFANSUAN
Z=0：
O=0：
D=0：
RS“LS1”U“LS2”P“ZH-Q”W“Z-G”T“J-G”A“ZH”：
B=A+S：
F“HZ”：
E=F-U：
G“X-ZH”H“Y-ZH”I“X：
HZ”J“Y：
HZ”M“XO”N“YO”：
{D}：
D：
Lbi0：
Z=Z+O÷2：
Z≤A=>Prog“3”：
Prog“F”：
Goto0：
≠>Z＞A=>Z≤B=>L=Z-A：
K=RS：
Prog“4”：
Prog“5”：
Prog“F”：
Goto0：
≠>Z＞B=>Z≤E=>L=S：
K=RS：
Prog“4”：
Prog“5”：
Prog“6”：
Prog“F”：
Goto0：
≠>Z＞E=>Z≤F=>L=F-Z：
K=RU：
Prog“4”：
Prog“9”：
Prog“7”：
Prog“F”：
Goto0：
≠>Z＞F=>C=Z-F：
Prog“8”：
Prog“F”：
Goto0
FF
AbsX≥E9=>X=0：
Y=0：
Z=0：
O=0：
D=-D：
≠>Goto0：
Lbi0：
C=√（（X-M）2+（Y-N）2））：
D＜0=>D=-C：
Goto1：
≠>D=C：
Lbi1：
X=X+Dcos（V+T）：
“X=”：
Pause0：
Y=Y+Dsin（V+T）：
“Y=”：
Pause0：
O=√（（X-M）2+（Y-N）2））：
Abs（X-M）≤E-4=>Abs（Y-N）≤E-4=>X：
“X=”：
Pause0：
Y：
“Y=”◢
Z：
“Z=”：
Pause0：
D：
“D=”◢
{MND}：
M“XO”N“YO”D“D”：
Z=0
说明：
一、程序中字母及符号意义：
D：
待求点距中桩宽度（左负右正）
XO（M）：
待求点已知X坐标
YO（N）：
待求点已知Y坐标
Z：
待求点对应中桩桩号
其它与公路中、边桩坐标计算及放样程序中符号意义相同。
二、输入、计算要点
1．D值的输入：
如能判断其位于路线的左或右侧（其值为左负右正），则会缩短程序运行时间；也可不输入由程序自行计算。
2．参数的输入：
如能确定所求点坐标所处的曲线位置时则输入该曲线参数，也会缩短程序运行时间。
3．假如事先不知道已知点位于哪一曲线上又怎样处理呢？
输入你认为已知点可能位于的那个曲线参数，然后看计算结果的桩号是否处于你输入的那个曲
线，如在则结果可用，如不在则输入计算结果显示桩号所处的那个曲线参数即可。
4．程序计算结果精度设定小于0.1mm，为缩短运行时间可将精度重设，方法是在子程序FG中将有E-4的改为E-3（精度设定小于1mm）。
5．当已知点所处的曲线半径较小时，如R为20、30m时，程序可能无法得出正确结果或出现死循环时，将程序中止进入程序FF中将表达式Z=Z+O÷2改为Z=Z+O÷4即可，改后的程序执行所需时间较修改前长，建议一般不改，除非出现上述情况时再作修改。
6．此程序必须与《公路中、边桩坐标计算及放样程序》中F3～F9子程序结合使用，不能独立运行。
已知一点A求其对应于中桩的桩号及到中桩的宽席
计算原理（试算渐近法）：
此分析是基于用于编程而考虑的
1.先假定从路线起点K0+000处为计算起点（如果不是编程序可不从0桩号开始，可根据经验或实际进行估计），求得0桩号的中桩坐标，再求得其与已知点的距离C1，利用中桩算得C1宽度的边桩坐标点B1，再算B1点与已知点A的距离D1。
2.算得Z1的桩号（为Z0的桩号加上前一个桩号对应边桩B1与已知点A的距离D1的一半，见图），求出其中桩坐标，再算Z1中桩与已知点A的距离C2，再算其C2宽度的边桩B2，计算B2与已知点A的距离D2。
3.算Z2的桩号，同上依此类推……。
4.由上我们不难看出，经过多次计算后已知点对应的中桩与对应宽度越来越接近真值。
只要中桩Zi对应Ci宽度的边桩坐标与已知点坐标进行比较在规定精度内即认为是正确的可不再计算。
5.对于不同交角，只是在计算边桩坐标时代入不同交角即可。
6.对半径较小的圆曲线或缓和曲线，在计算桩号时可将Di/2中的分母中的2改为3或4，但应该说3就可以了。
竖曲线
设计标高计算
源程序：
A“P1”B“P2”RD“JDZHANG”I“JD-H”：
LBI0：
{Z}：
Z：
W=B-A：
T=AbsWR÷2：
E=TW÷4：
C=D-T：
F=D+T：
W≥0=>K=（Z-C）2÷（2R）：
≠>K=-（Z-C）2÷2R：
⊿Goto1⊿Lbi1：
Z≤D-T=>Goto2：
≠>Z＞D-T=>Z≤D+T=>Goto3：
≠>Z＞D+T=>Goto4：
Lbi2：
H=I-A（D-Z）◢
Goto0：
Lbi3：
H=I-A（D-Z）+K◢
Goto0：
Lbi4：
H=I-B（D-Z）◢
Goto0：
⊿
说明：
一、程序中字母及符号意义：
P1（A）：
第一条纵坡坡度（i%，如0.02、-0.02）
P2（B）：
第二条纵坡坡度（i%，如0.02、-0.02）
R：
竖曲线半径
JDZHANG（D）：
变坡点桩号
I（JD-H）：
变坡点高程
Z：
待求点桩号
H：
待求点设计高程
二、输入、计算要点
1．一次只能输入一条竖曲线参数
2．纵坡坡度须代入正负号进行运算
直线回归
（内插法）
源程序：
Lbi0：
SCI：
Lbi1：
{ABCD}：
A“X1”，B“Y1”DT：
C“X2”，D“Y2”DT：
LBI2：
{Z}：
Z：
Z≥0=>Zŷ：
“Z-ŷ=”：
Pause0：
Goto2：
≠>Goto0
说明：
一、程序中字母及符号意义：
X1（）：
如桩号为100
Y1（）：
对应桩号为100的宽度为10m
X2（）：
如桩号为200
Y2（）：
对应桩号为200的宽度为20m
Z：
求桩号为300时的宽度为多少
Z-ŷ=（Zŷ）：
对应桩号为300的宽度为30
二、输入、计算要点
由于程序中采用了双变量统计功能，因此程序必须在双变量统计模式下输入（LR状态）
任意高度路基
边缘标高、宽度计算
源程序：
{IMHD}：
Y=-IMH÷（1+IM）+H◢
B=D+YM
说明：
一、程序中字母及符号意义：
I：
路拱横坡（如：
-0.02即2%）
M:
边坡坡比（如1:
1.5时M输1.5）
H:
中桩待求点至顶面高度
D:
路面边缘距中桩宽度
Y:
计算点至路面边缘高差
B:
计算点至中桩宽度
三、输入、计算要点
一般在路基顶面施工控制时必须按此计算进行放样。
升级会员 