怎么编制卡西欧4850计算器计算曲线和高程的程序??

Question

如题所述

Answer 1

终于编出来了，累死我了，代码如下：

程序名: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…边桩与中桩之间的距离

Answer 2

用matlab吧,可视化且代码自动生成,追求速度的最佳选择.

Answer 3

不是最好的，但绝对可用，这次特别抽了点时间按计算器显示的格式输入到了电脑。可以一次输入整条路的要素，以后只需输入桩号及距离中桩距离就可以了。（超高方式为绕中线旋转，且超高外侧5.5以外的不参与超高） http://www.lq52.com/?uid-240-action-viewspace-itemid-1197这个网站上有

Answer 4

不对啊