求卡西欧fx-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:线元起点半径(直线起点终为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↙
史毕盐酸: 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...