原著:朱俊亮

HHQX(QXC)
L1LbI 0
L2E"X0" F"Y0" H"T0" G"K0" A I J"L0"
L3｛K｝
L4K"KS"：I＝1＝＞L=J+(K-G)： ≠＞L=J-(K-G)：△
L5T=H-180*I*J2/2πA2
L6C=L-J-(L5-J5)/40*A4+(L9-J9)/3456*A8L7B=(L3-J3)/6*A2-(L7-J7)/336*A6+(L11-J11)/42240*A10
L8X=E+I*C*cosT-B*sinT▲
L9Y=F+I*C*sinT+B*cosT▲
L10P=180*I*(L2-J2)/2πA2
L11W=H+P
L12Goto 1
L13LbI 1
L14｛S O｝
L15M"X1"=X+S*cos(W+O)▲
L16N"Y1"=Y+S*sin(W+O)▲
L17Goto 0

CASIO fx-4800 PA版HHQX(QXC)
LbI 0：E"X0" F"Y0" H"T0" G"K0" A I J"L0"：｛K｝：K"KS"：I＝1＝＞L=J+(K-G)： ≠＞L=J-(K-G)：△T=H-180IJ2/2πA2：C=L-J-(L5-J5)/40A4+(L9-J9)/3456A8：B=(L3-J3)/6A2-(L7-J7)/336A6+(L11-J11)/42240A10：X=E+ICcosT-BsinT▲Y=F+ICsinT+BcosT▲P=180I(L2-J2)/2πA2：W=H+P：Goto 1← LbI 1 ：｛S O｝：M"X1"=X+Scos(W+O)▲N"Y1"=Y+Ssin(W+O)▲Goto 0←
操作说明
：X0?　起点Ｘ坐标KS?欲求点桩号Y0?起点Ｙ坐标　　X=中桩Ｘ坐标值(计算结果）T0?起始方位角Y=中桩Ｙ坐标值(计算结果）K0?起始桩号S?中至边距离A?缓和曲线参数O?前进方向夹角I?左转－１，右转＋１X1=中桩Ｘ坐标值(计算结果）L0?曲线差值=(LS-A2/R)Y1=边桩Ｙ坐标值(计算结果）注：LS－缓和曲线全长。R－终点半径。

这是我第一次发帖子,想和大家研究和讨论一下,如果大家觉的可以的话请加我QQ286608531回复我~如果错了请大家多多指教啊




由本站论坛　变山水为平路　分享