在匝道曲线中由于传统之距法，在校半径的情况下误差比较大，所以现制作此程序，有于指导施工！！
匝道曲线的计算
ZDQX（匝道曲线）
20→DimZ ←∣
“QID（X）=”？Ｂ：“QID（Y）=”L：“QIDLC=”？C：“ZHDLC=”？E：“U（→L-1，R1）=”？U：“QIDQL（1÷R）=”？P：“ZHDQL（1÷R）=”？Q：“FWJ=”？A ←∣
Ｌｂｌ０：“KP=”？D：（ D-C）÷5→H：（D-C）÷10→G ←∣
P+（Q+P）×G÷（E-C）→Z[1] ←∣
P+（Q+P）×（H+G）÷（E-C）→Z[3] ←∣
P+（Q+P）×（2H+G）÷（E-C）→Z[5] ←∣
P+（Q+P）×（3H+G）÷（E-C）→Z[7] ←∣
P+（Q+P）×（4H+G）÷（E-C）→Z[9] ←∣
P+（Q+P）×H÷（E-C）→Z[2] ←∣
P+（Q+P）×2H÷（E-C）→Z[4] ←∣
P+（Q+P）×3H÷（E-C）→Z[6] ←∣
P+（Q+P）×4H÷（E-C）→Z[8] ←∣
A+U×90×（Z[1]+P）×G÷Π→Z[11] ←∣
A+U×90×（Z[3]+P）×（H+G）÷Π→Z[13] ←∣
A+U×90×（Z[5]+P）×（2H+G）÷Π→Z[15] ←∣
A+U×90×（Z[7]+P）×（3H+G）÷Π→Z[17] ←∣
A+U×90×（Z[9]+P）×（4H+G）÷Π→Z[19] ←∣
A+U×90×（Z[2]+P）×H÷Π→Z[12] ←∣
A+U×90×（Z[4]+P）×2H÷Π→Z[14] ←∣
A+U×90×（Z[6]+P）×3H÷Π→Z[16] ←∣
A+U×90×（Z[8]+P）×4H÷Π→Z[18] ←∣
Ｌｂｌ1：P+（Q-P）×（D-C）÷（E-C）→M ←∣
“M=”：M◢
A+U×90×（M+P）×（D-C）÷Π→F ←∣
“F=”：F◢
B+Abs（Ｈ）÷６×（cos（Ａ）+４（cos（Ｚ［１１］）+cos（Ｚ［１３］）+ cos（Ｚ［１５］）+ cos（Ｚ［１７］）+ cos（Ｚ［１９］））+２（cos（Ｚ［１２］）+ cos（Ｚ［１４］）+ cos（Ｚ［１６］）+ cos（Ｚ［１８］））+ cos（Ｆ））→Ｘ ←∣
“Ｘ=”：Ｘ◢
B+Abs（Ｈ）÷６×（sin（Ａ）+４（sin（Ｚ［１１］）+sin（Ｚ［１３］）+sin（Ｚ［１５］）+ sin（Ｚ［１７］）+ sin（Ｚ［１９］））+２（sin（Ｚ［１２］）+ sin（Ｚ［１４］）+ sin（Ｚ［１６］）+ sin（Ｚ［１８］））+ sin（Ｆ））→Ｙ ←∣
“Ｙ＝”：Ｙ◢
ＧＯＴＯ０
说明：本程序可用于高速公路下道口，立交桥等匝道曲线放样。具有：精度可调及避免了传统切线之距法在小半径情况下误差大的优点，既可以顺向计算也可以逆向计算，运算时间短精度高。
“QID（X）=”起点X坐标；“QID（Y）=”起点Y坐标；“QIDLC=”线元起点里程；“ZHDLC=”线元终点里程；“U（→L-1，R1）=”线元转向（逆向计算时L1,R-1）；“QIDQL（1÷R）=”线元起点曲率；“ZHDQL（1÷R）=” 线元终点曲率“FWJ=”？线元起点方位角；“KP=”计算点里程。
TAG: 匝道 CASIO 精度 曲线 可调
最新评论
删除 引用 Guest (2010-4-02 09:46:15, 评分: 0 )
删除 Guest (2010-3-12 08:21:56, 评分: -5 )
删除 引用 lhr7799586 (2010-1-16 17:22:09, 评分: 0 )
删除 Guest (2009-12-26 17:11:16, 评分: 3 )
删除 引用 615720244 (2008-9-08 10:24:29, 评分: 0 )
删除 引用 615720244 (2008-9-08 10:23:36, 评分: 0 )