圆曲线缓和曲线坐标计算casio5800p程序

《圆曲线缓和曲线坐标计算casio5800p程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、圆曲线缓和曲线坐标计算CASIO5800P程序李强善  2010-03-1414:21:45  本站〝XY〞Lb11↙Cls：Fix4：10→DimZ↙〝K=〞?K↙IfK≤本段终点里程AndK≥上段终点里程：Then本段终点里程→Z[25]:本段曲线终点里程→Z[1]:上段终点里程→Z[2]:曲线偏角→A:±1→I(左负右正):曲线半径→R:第一缓和曲线→Z[6]:第二缓和曲线→Z[7]:第一切线→Z[12]:第二切线→Z[13]:交点X→B:交点Y→C：小里程向交点方位角→E:交点向大里程方位角→F:Go

2、to2:IfEnd↙Lb12↙Z[6]÷2-Z[6]＾(3)÷(240×R2)+Z[6]＾(5)÷(34560×R＾(4))→Z[8]↙Z[7]÷2-Z[7]＾(3)÷(240×R2)+Z[7]＾(5)÷(34560×R＾(4))→Z[9]↙  切垂距mZ[6]2÷(24×R)-Z[6]＾(4)÷(2688×R＾(3))→Z[10]↙                内移距PZ[7]2÷(24×R)-Z[7]＾(4)÷(2688×R＾(3))→Z[11]↙π×A×R÷180+0.5×(Z[6]+Z[7])→S↙

3、                                曲线长90×Z[6]÷(R×π)→Z[14]↙                                缓和曲线切线角90×Z[7]÷(R×π)→Z[15]↙B+Z[12]×cos(E+180)→Z[16]↙                                  ZH点X坐标C+Z[12]×sin(E+180)→Z[17]↙                                  ZH点Y坐标B+Z[13]×cos(F

4、)→Z[22]↙                                      HZ点X坐标C+Z[13]×sin(F)→Z[23]↙                                      HZ点Y坐标Z[1]-S→Z[3]↙                                                   ZH点里程Z[1]-S+Z[6]→Z[4]↙                                             HY点里程Z[1]-

5、Z[7]→Z[5]↙                                               YH点里程Goto3↙Lb13↙IfK≤Z[3]AndK＞Z[2]:ThenGoto4:IfEnd↙IfK≤Z[4]AndK＞Z[3]:ThenGoto5:IfEnd↙IfK≤Z[5]AndK＞Z[4]:ThenGoto6:IfEnd↙IfK≤Z[1]AndK＞Z[5]:ThenGoto7:IfEnd↙IfK≤Z[25]AndK＞Z[1]:ThenGoto8:IfEnd↙Lb14↙        

6、                                                   第一直线K-Z[3]→X:0→Y:E→T:Prog〝XY-1〞:Goto1↙Lb15↙                                                        第一缓和曲线K-Z[3]→H↙H-H＾(5)÷(40×R2×Z[6]2)+H＾(9)÷(3456×R＾(4)×Z[6]＾(4))→X↙H＾(3)÷(6×R×Z[6])-H＾(7)÷(336×R＾(3)×Z[6]＾(

7、3))→Y↙90×H2÷(R×π×z[6])→T↙IfI＞0:ThenT+E→T:Else:E-T→T:T＜0＝＞360+T→T:IfEnd↙Prog〝XY-1〞:Goto1↙Lb17↙                                                        第二缓和曲线Z[1]-K→H↙H-H＾(5)÷(40×R2×Z)[7]2)+H＾(9)÷(3456×R＾(7)×Z[7]＾(4))→U↙H＾(3)÷(6×R×Z[7])-H＾(7)÷(336×R＾(3)×Z[7]＾(

8、3))→V↙90×H2÷(R×π×Z[7])→T↙Z[13]×cos(A)+Z[12]-U×cos(A)-V×sin(A)→X↙Z[13]×sin(A)-U×sin(A)+V×cos(A)→Y↙IfI＞0:ThenF-T→T:T＜0＝＞360+T→T:ElseF+T→T:IfEnd↙Prog〝XY-1〞:Goto1↙Lb18↙