求卡西欧fx-5800计算器匝道曲线坐标计算程序

~ 卡西欧fx-5800p计算器匝道计算程序：
5800计算器线路、匝道中边桩万能程序
LB1
1↙
Cls
:
Fix
4
:
Deg
:"XZJ="?R◢
(输入置镜点X）
"YZJ="?S◢
(输入置镜点Y）
LB1
2↙
"K="?K◢
(输入计算点里程）
If
K<第一线元终点里程
：THEN
线元起点X→A:线元起点Y→B:线元起点半径（直线起点终为10的45次方）→T:线元起点里程→D：线元起点方位角→E:线元终点半径（直线起终点为10的45次方）→U：线元终点里程→G:线元偏向（左偏－1右偏＋1）→W:Goto
3:IfEnd↙
………………………………（线元数据分段输入）
LB1
3↙
W*T→C:W*U→F:0→I:0→J:(C-F)/(2*C*F*(G-D))→H:K-D→X:E+(X
/C+HX^2)×180/π→V:V<0=>V+360→V:"QXJ=":V→DMS◢(计算点切线方位角）
A+∫(Cos(E+(X/C+HX^2)*180/π，0，X)→Z
:
B+∫(Sin(E+(X/C+HX^2)*180/π，0，X)→Y
:
"XI=":Z◢(计算点中心X）
"YI=":Y◢(计算点中心Y）
"PJ="?P◢(输入计算点边桩偏角左－右＋）
"PD="?Q◢(输入计算点边桩偏距）
Rec(Q,V+P):Z+I→Z
:Y+J→Y:
"XP=":Z◢(计算点边桩X）
"YP=":Y◢(计算点边桩Y）
Pol(Z-R,Y-S):J<0=>J+360→J:
"FYJ=":J→DMS◢(放样方位角）
"FYD=":I◢(放样距离）
Goto
2↙
主程序
匝道坐标正反算：
程序名称：ZDZBZFS
LB1
A↙
Cls
:
Fix
4
:
10→Dim
Z
:"0=ZS,1=FS"?Z
↙
If
Z=0:Then
Goto
B:IfEnd↙(Z=0进入里程点坐标正算）
If
Z=1:Then
Prog"FSLCBZ
1":
Goto
A:IfEnd↙(Z=1进入反算里程边桩）
Lb1
B
↙
“K=”?K
：（计算里程）
Prog"SJK2
":Prog”
ZDZBFY1”
:Goto
A↙
子程序
匝道坐标正算：
W*T→C:W*U→F:0→I:0→J:(C-F)/(2*C*F*(G-D))→H:K-D→Z[1]:E+(
Z[1]
/C+H
Z[1]2)×180/π→V:V<0=>V+360→V:
A+∫(Cos(E+(
Z[1]/C+H
Z[1]2)*180/π，0，Z[1])→Z[3]
:
B+∫(Sin(E+(
Z[1]/C+H
Z[1]2)*180/π，0，Z[1])→Z[4]:
Return↙

---

凉城县15326584362： 跪求5800计算器的匝道程序? - ？
史毕盐酸： 5800计算器线路、匝道中边桩万能程序 LB1 1↙ Cls : Fix 4 : Deg :＂XZJ=＂?R◢ (输入置镜点X)＂YZJ=＂?S◢ (输入置镜点Y) LB1 2↙＂K=＂?K◢ (输入计算点里程) If K<第一线元终点里程 :THEN 线元起点X→A:线元起点Y→B:线元...

凉城县15326584362： 卡西欧fx - 5800p计算器匝道计算程序,？
史毕盐酸： 5800计算器线路、匝道中边桩万能程序 彭赐明改编网上类似程序于河南高速郑漯8标 LB1 1↙ Cls : Fix 4 : Deg :＂XZJ=＂?R◢ (输入置镜点X) ＂YZJ=＂?S◢ (输入置镜点Y) LB1 2↙ ＂K=＂?K◢ (输入计算点里程) If KV+360→V:＂QXJ=...

凉城县15326584362： 谁有卡西欧5800道路曲线坐标的计算程序,请赐教! - ？
史毕盐酸： 单交点单圆曲线中边桩坐标计算程序(PM4-3)(2) 主程序——PM4-3,占用内存1070 字节.＂SINGLE CIRCLE CURVE＂ 显示程序标题1＂METHOD OF COORDINATE PM4...

凉城县15326584362： 急求卡西欧5800计算匝道中边桩程序？
史毕盐酸： 一、 坐标计算源程序 1.主程序(TYQXjs) ＂1.SZ => XY＂:＂2.XY => SZ＂:N:U＂X0＂:V＂Y0＂:O＂S0＂:G＂F0＂:H＂LS＂:P＂R0＂:R＂RN＂:Q:C=1÷P:D=(P-R)÷(2HPR):E=180÷π:N=1=>Goto 1:≠>Go to 2Δ←┘ Lbl 1:{SZ}:SZ:W=Abs(S-O):Prog ＂SUB1＂:X＂XS＂=X◢ Y＂YS＂=Y◢ Goto 1←┘ Lbl 2:{XY}:XY:I=X:J=Y:Prog ＂SUB2＂:S＂S＂=O+W◢ Z＂Z＂=Z◢ Goto 2

凉城县15326584362： 学生计算器工程上怎样算坐?学生计算器工程上怎样算坐标 ？
史毕盐酸： 求卡西欧5800计算器圆曲线坐标正反算,道路中边桩放样程... USSLE坐标正反算fx-5800程序 1.正算主程序 (GSZS) ?K:Prog “DAT-M-DZD”: ((P-R)÷(2(H-O(字...

凉城县15326584362： 求卡西欧5800计算器的道路曲线、直线测量放线程序!？
史毕盐酸： 本程序可以在CASIO fx-4800P计算器及 CASIO fx-4850P计算器上运行.由于当线元为完整缓和曲线时,起点与直线相接时,曲率半径为无穷大,以10的45次

凉城县15326584362： 卡西欧fx - 5800测量程序谁有啊? - ？
史毕盐酸： CASIO fx—5800计算器 工程测量与公路测量程序1、坐标正算 ＂X0=″?X:＂Y0=″?Y:＂I=″?I:＂J=″?J X+ICos(J)→U:Y+ISin(J)→V ＂X=″:U (待求点的X坐标) ＂Y=″:V (待求点的Y坐标) 说明:X0 Y0:已知点坐标I:两点的距离J:方位角2、坐...

凉城县15326584362： 卡西欧fx5800P隧道测量程序 - ？
史毕盐酸： 一、缓和曲线上的点坐标计算 已知:①缓和曲线上任一点离ZH点的长度:l ②圆曲线的半径:R ③缓和曲线的长度:l0 ④转向角系数:K(1或-1) ⑤过ZH点的切线方位角:α ⑥点ZH的坐标:xZ,yZ 计算过程:说明:当曲线为左转向时,K=1,为右...

凉城县15326584362： 求卡西欧5800计算器道路正反算程序？
史毕盐酸：说明:本程序适用于计算器 CASIO fx-5800P,可计算:第一夹直线段、第一缓和曲线段、圆曲线段、第二缓和曲线段、第二夹直线段的线路中、边桩坐标及切线方位角,反算里程和偏距.数据库名:YTGoto 1Lbl 1:If Z<10000:Then 3378226....

凉城县15326584362： 速求:卡西欧4850和5800回旋曲线计算程序!？
史毕盐酸： CASIO fx-4800P计算器程序 DA DI——N E (公路弯道坐标计算) K“JD”:R:S“LS”:F“PJ——L-R+”:A“ZH——N”:B“ZH——E”:C“JD——N”:D“JD——E” M“ZH”=K-(R+S2÷(24R))tan(Abs F÷2)-S÷2+S^3÷(240R2)▲ N“HY”=M...