能给个卡西欧5800计算器圆曲线计算程序吗？

一、主程序（XY—ZB）

Deg： Fix 3

“X0（QD）”？A：“Y0（QD）”？B：？F：“QD”？Q：“ZD”？Z

Z-Q→C: 0→U:0→V

“R1（QD+R,-L）”?R: If R≠0：Then 1÷R→U：Ifend

“R2（ZD+R,-L）”?T：If T≠0:Then 1÷T→V:Ifend

180÷π→O：（V-U）÷（2C）→W

LbI 0:？N：？S:“E=90,-90”?E

N-Q→L

Prog “SUB—ZD”

“X=”: X⊿

“Y=”: Y⊿

Go To 0

二、子程序SUB—ZD（求切线方位角和坐标）

F+OUL+OWL2→J：If J＜0:Then J+360→J:Ifend

A+∫（CoS（F+OUX+OWX2）,0,L）+S CoS（J+E）→X

B+∫（Sin（F+OUX+OWX2）,0,L）+S Sin（J+E）→Y

Return

说明：

Q、Z---分别为起点、终点桩号

A、B、F---起点坐标、方位角

R、T---分别为线元起点、终点半径，当曲线右转输正值，左转输负值

N、S---待求点桩号、边桩—中桩的距离（M）

E---边桩待测点与对应中桩的连线与道路前进方向的夹角，

右夹角输入+E，左夹角输入E-180

X、Y----待测点计算坐标

注：

1、该程序能计算任意线元的中、边桩坐标；

2、该程序只需要输入计算线元的起点桩号、坐标，终点桩号，线元起点正方位角，

即可计算该线元中任意点坐标。

3、此程序的优点：能计算任意线元，通用性强；

圆曲线程序CASIO（Fx-4800)方便现场施工放样及计算

大家好！本人搞测量也就2，3年时间。编的小程序自己用感觉还好，不到之处望指正！谢谢！！

Lb1 O:{K} 转行

R″R=″：O″O=″：A″A=″：B″B=″：C=″C=″：D″D=″：K″K=″：N″N=″：T″T=″：L″L=″：E″E=″F″F=″ 转行

G=（K-O）÷R×180÷π 转行

U=R×sinG 转行

V=R（1-cosG) 转行

S=C+GD+TN 转行

X=A+UcosC-VDsinC+LcosS▲

Y=B+UsinC+VDsinC+LsinS▲

W″W1″=Pol(X-E,Y-F)▲

J<0=>360+J▲

≠＝＞J▲

K=K+20（可以根据自己要计算的桩号自己设置） 转行

Goto 0

说明：R：圆曲线半径O：起点桩号A：起点x坐标B：起点Y坐标 C：起点方位角D：路线左转或右转（左转-1，右转+1）K：待求点桩号N：边桩左幅或者右幅（左为-1，中桩为0，右幅为1）T：边桩与中桩的交角（正交，斜交都可以算）L：边桩到中桩的距离.备注：一般算中桩的坐标时N，T，L都为0就可以了E：置仪点X坐标F：置仪点Y坐标X，Y：即为你要算点的坐标

W1为在现场施工放样时方位角和距离

---