缓和曲线计算机编程,关于卡西欧fx-4850计算器--“缓和曲线计算”程序中的一些问题，请...

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

程序名:ZOU BIAO

M"JD":G"J(X)":D"J(Y)":F:R:A"J(＜)":I"LS":E"E(1,-1)"

T=(R+I2÷24÷R)tan(A÷2)+(I÷2-I3÷240÷R2):L=R(A-I÷R×180÷∏)×∏÷180

Z"ZH"=M-T:Z[3]"ZH(X)"=G-TcosF:Z[4]"ZH(Y)"=D-TsinF:Q"HY"=Z+I:S"YH"=Q+L:O"HZ"=S+I:H=F+AE:Z[5]"HZ(X)"=G+TcosH:Z[6]"HZ(Y)"=D+TsinH:

LbI O

{K}

K≤Z L=Z-K:U=F:X"X"=Z[3]-LcosF⊿ Y"Y"=Z[4]-LsinF⊿ Goto 6

K≤Q Goto 2

K≤S Goto 3

K≤O Goto 5

K＞O L=K-O:N=H:U=N:Goto 1

LbI 1

X"X"=Z[5]+LcosN⊿ Y"Y"=Z[6]+LsinN⊿ Goto 6

LbI 2

L=K-Z:B=L-L5÷(40R2I2):C=L3÷(6RI):U=F+L2÷(2RI)×180÷∏×E: Goto 4

LbI 3

L=K-Q:V=(L÷R+I÷2÷R)×180÷∏:B=RsinV+I÷2-I3÷(240R2):C=R(1-cosV)+I2÷(24R):U=F+(I÷(2R)+L÷R)×180÷∏×E: Goto 4

LbI 4

X"X"=Z[3]+BcosF-ECsinF⊿ Y"Y"=Z[4]+BsinF+ECcosF⊿ Goto 6

LbI 5

L=O-K: B=L-L5÷(40R2I2):C=L3÷(6RI):U=H-L2÷(2RI)×180÷∏×E: X"X"=Z[5]-BcosH-ECsinH⊿ Y"Y"=Z[6]-BsinH+ECcosH⊿ Goto 6

LbI 6

{J}:J"J(0,1)"

J=0 Goto 0:≠ J=1 Goto 7:

LbI 7

{W,V}

Z[7]"Xz"=X+Wcos(U+V-180)⊿ Z[8]"Yz"=Y+Wsin(U+V-180)⊿

Z[9]"Xy"=X+Wcos(U+V)⊿ Z[10]"Yy"=Y+Wsin(U+V)⊿

Goto 0

计算带有缓和曲线的路线的中、边桩坐标

M…转点桩号 G、D…转点坐标

F…方位角 R…半径

A…转角 I…缓和曲线长

E…计算条件，左转为-1右转为1

T…切线长

K…计算桩号

前直线段

第一缓和曲线段

圆曲线段

第二缓和曲线段

后直线段

J…计算条件0转入中桩1转入边桩

W…边桩与中桩之间的距离

V…边桩与中桩之间的任意夹角

在程序中“Z[3]、Z[4]、Z[5]、Z[6] ”等在卡西欧fx-4800里是好用的，但在卡西欧fx-4850中不能用了，请问这是什么回事？有什么好办法处理啊，谢谢了！问题解决了我一定送上高分！各位朋友请进吧，，

如有好的计算方法请多多指教哦！谢谢。

问题补充：上面的程序是在卡西欧fx4800计算器中为完整的计算程序，完全能完成任务的!