Question

求卡西欧5800公路测量程序 最好是直线 缓和曲线圆曲线在一起的全段程序 。坐标正反算邮箱35473593@qq.com

Answer 1

1.QXZBZFS 主程序-坐标正反算
Cls:Fix 5:30→Dim Z:”XZ=”?G:”YZ=”?N↙
清除显示器中的所有表达式和计算结果， 固定计算结果输出的小数位数，变量个数，测站X,测站Y
Lbl A:”0=ZS,1=FS”?Z↙
确定正返算，0正算，1返算
If Z=1:Then Prog “FS”:Goto A:IfEnd↙
如果Z=1，执行“FS”,返算，循环
Lbl B↙
“K=”?K:”PJ=”?P:”PD=”?D:”DEPI=”?U:Prog “SJK”:Prog”ZBJS”:Prog”ZBFY”:Goto A
输入计算点里程K，边桩角度（以前进方向右角算），边桩距离（左负，右正），第二偏距（与线路法线方向平行），执行“SJK”数据库，执行“ZBJS”坐标计算，执行”ZBFY”坐标放样，循环

SJK 子程序-数据库文件
If K<0:Then Prog”1.QXZBZFS”:IfEnd↙
如果K小于起点去执行“ZBZFS”
If K≤574.578:Then 0→Z[1]↙
如果K小于缓直点里程，起点或上一缓直里程附值Z[1]
574.578→Z[2]↙
缓直里程附值Z[2]
350→R↙
半径附值R
60→H↙
缓和曲线长附值H
269º25º38º→A↙
直缓切线方位角附值A
-51º20º19º→E↙
转向角附值E（左负，右正）
4167642.683→B↙
交点X附值B
495002.541→C↙
交点Y附值C
Goto 1↙
IfEnd↙
If K≤1576.108:Then 574.578→Z[1]↙
1576.108→Z[2]↙
350→R↙
60→H↙
218º05º19º→A↙
145º54º50º→E↙
4166523.7→B↙
494125.506→C↙
Goto 1↙
IfEnd↙
If K≤2154.843:Then 1576.108→Z[1]↙
2154.843→Z[2]↙
350→R↙
60→H↙
4º00º09º→A↙
71º49º20º→E↙
4168056.835→B↙
494232.78→C↙
Goto 1↙
IfEnd↙
If K≤2779.936:Then 2154.843→Z[1]↙
21779.936→Z[2]↙
400→R↙
50→H↙
75º49º28º→A↙
-75º12º50º→E↙
4168220.197→B↙
494879.547→C↙
Goto 1↙
IfEnd↙
If K>2779.936:Then 2779.936→Z[8]↙
如果K大于最后一个曲线缓直点里程，缓直点附值Z[8]
以下省略 加分

追问

还有 请全部写完给我，主要直线中边桩的程序。