作业帮 > 数学 > 作业

请问有谁知道fx5800计算器中,只要输入直线中两个坐标和高程,通过正算反算可以算出任意里程的坐标和高程

来源:学生作业帮 编辑:拍题作业网作业帮 分类:数学作业 时间:2024/04/24 21:41:41
请问有谁知道fx5800计算器中,只要输入直线中两个坐标和高程,通过正算反算可以算出任意里程的坐标和高程
在输入过程中不需要输入方位角,只要输入坐标和高程,根据正算反算就可以算出中桩和边桩
本程序由4800程序改编而成,网上有5800积分通用公式,但由坐标反算里程及边距时很慢,本程序大大提高了反算速度.1. 主程序(TYQXJS)
Lbl 4:"1.SZ => XY":"2.XY => SZ":?N:?S:Prog“SUB0”↙
1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 => Goto1: Goto2:↙
Lbl 1:? Z: Abs(S-O) →W:Prog "SUB1": "XS=":X◢
"YS=":Y◢F-90→F: “FS=”:F▲DMS◢:Goto4↙
Lbl 2:?X: ?Y:X→I:Y→J: Prog“SUB2”:O+W→S:“S=”:S◢“Z=”:Z◢Goto4↙
2. 正算子程序(SUB1)
0.1739274226→A: 0.3260725774→B: 0.0694318442→K: 0.3300094782→L: 1-L→F: 1-K→M:
U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW
(C+FWD))+Acos(G+QEMW(C+MWD))) →X: V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) →Y:
G+QEW(C+WD)+90→F: X+Zcos(F)→X: Y+Zsin(F)→Y
2. 反算子程序(SUB2)
G-90→T: Abs((Y-V)cosT-(X-U)sinT) →W: 0→Z:Lbl 0:Prog "SUB1":
T+QEW(C+WD) →L: (J-Y)cos(L)-(I-X)sin(L)→Z:Abs(Z)Goto1: W=W+Z:Goto 0Δ←┘
Lbl 1:Z=0:Prog "SUB1": (J-Y)÷sin(F)→Z
SUB0 数据库子程序
Goto1↙ 同时保存多个曲线时的指针
Lbl 1:IF S SZ
N ? 选择计算方式,输入1表示进行由里程、边距计算坐标 ;输入2表示由坐标反算里程和边距.
S ? 正算时所求点的里程,反算时为所求点的近似里程,反算时输入的近似里程不能夸线元,若夸线元的话,需进行第二次反算,并以第一次的结果做为近似里程,否则反算的里程及边距不对, Z ?正算时所求点距中线的边距(左侧取负,值右侧取正值,在中线上取零)
X ?反算时所求点的X坐标
Y ?反算时所求点的Y坐标
显示部分:
XS=××× 正算时,计算得出的所求点的X坐标
YS=××× 正算时,计算得出的所求点的Y坐标
FS=××× 正算时,所求点对应的中线点的切线方位角
S=××× 反算时,计算得出的所求点的里程
Z=××× 反算时,计算得出的所求点的边距