在匝道曲线中由于传统之距法，在校半径的情况下误差比较大，所以现制作此程序，有于指导施工！！

匝道曲线的计算

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=”计算点里程。