CASIO5800

计算器程序

曲线任意里程中边桩坐标正反算

(CASIO fx-4800P

计算器

)

程序

一、程序功能

本程序由一个主程序

(TYQXJS)

和两个子程——正算子程序

(SUB1)

、反算子程序

(S

UB2)

序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要

素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）

及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。另外也可以将本

程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲线任意里程中边桩

坐标进行正反算。本程序也可以

CASIO fx-5800P

计算器计算器上运行。

二、源程序

1.

主程序

(TYQXJS) 

"1.SZ => XY"

：

"2.XY => SZ"

：

?N

：

"X0"? 

U

：

"Y0"? 

V

：

"S0"? 

O

：

"F0"? 

G

：

"LS"? 

H

：

"R0"? 

P

：

"RN"? 

R

：?Q←┘

1÷P

-> 

C

：

(P-

R)÷(2HPR) 

-> 

D

：

180÷π

->E 

If 

N=1

：

Then 

Goto1

：

Else 

Goto 2

：

IfEnd 

Lbl 1

：？

S

：？

Z

：

Abs(S-O) 

-> 

W

：

Prog "SUB1"

：

"XS"

：

X

◢