[编程申请]：竖曲线标高计算程序(4800)

youwei0114

竖曲线标高计算程序(4800)
程   序   清   单
文件1  程序名：SQX
ABCD:Lbl 0:{ERF}:REF:G=(D-B)÷(C-A):H=(F-D)÷(E-C):L=R×Abs(G-H)÷2 ←
Lbl 1:{K}:K≤0＝>Goto 2⊿K≤C+L＝>L=-Abs L:Prog "SHU":M=D+(K-C)H+J:≠>M=D+(K-C)H:"AFTER QX"⊿L=Abs L:K≤C＝>Prog "SHU":M=B+(K-A)G+J⊿K≤C-L＝>M=B+(K-A)G⊿M=1000M:Prog "SSWR":I=M÷1000◢
K=K+20:Goto 1:Lbl 2:A=C:B=D:C=E:D=F:Goto 0
文件2   程序名：SHU
J=(K-C+L)2÷(2R):G-H>0＝>J=-J⊿
文件3   程序名：SSWR
M-Int M<0.5＝>M=Int M:≠>M=Int M+1⊿
变量说明： <程序运算符定义>
A 前一个变坡点桩号 B 前一个变坡点高程 R 中间变坡点半径
C 中间变坡点桩号         D 中间变坡点高程         G 前段坡度
E 后一个变坡点桩号 F 后一个变坡点高程 H 后段坡度
L 中间曲线的切线长 I 所求点的高程         J 切线至竖曲线的竖向距离
K 所求桩号

measuresoft

casio4800超高及高程（源程序）
http://www.surveysky.com/aspbbs/dispbbs.asp?boardID=6&ID=60