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

Question

如题所述

Answer 1

卡西欧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↙

Answer 2

网上很多程序的，只要你仔细找找就能找到很多，不过要自己一一核对··毕竟打出来的还是有错误的，不要运行不了就认为程序是错误的！一般是交点法用的比较多，线元法用的比较少····除非是卵形曲线！言至于此··同行！