【正文】 ***→Z[26]:***→Z[27]:***→Z[28]:***→Z[29]:***→Z[30]:***→[31]:IfEnd………………………………………………..Goto HLbl F: J=1=***→Z[8]:***→Z[9]:***→Z[10]:***→Z[11]:***→Z[12]:***→Z[13]:***→Z[14]:*** →Z[15]：IfEndJ=2=***→Z[16]:***→Z[17]:***→Z[18]:***→Z[19]:***→Z[20]:***→Z[21]:***→Z[22]:***→Z[23]:IfEndJ=3=***→Z[24]***→Z[25]:***→Z[26]:***→Z[27]:***→Z[28]:***→Z[29]:***→Z[30]:***→[31]:IfEnd(注：如有多個曲線元要素繼續(xù)添加入數據庫DAT1中)Goto GLbl E:“X0=”?U:“Y0=”?V:“S0=”?O:“F0=”?G:“LS=”?H:“R0=”?P:“RN=”?R:“Q=”?QLbl G:1247。止點與直線相接時，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。（二）、顯示部分： XS= 正算時，計算得出的所求點的X坐標 YS= 正算時，計算得出的所求點的Y坐標 S= 反算時，計算得出的所求點的里程 Z= 反算時，計算得出的所求點的邊距四、算例 某匝道的由五段線元（直線+完整緩和曲線+圓曲線+非完整緩和曲線+直線）組成，各段線元的要素（起點里程S0、起點坐標X0 Y0、起點切線方位角F0、線元長度LS、起點曲率半徑R0、止點曲率半徑RN、線 元左右偏標志Q）如下：S0 X0 Y0 F0 LS R0 RN Q 125 16 1E45 1E45 0 125 16 1E45 1 120 25 1 91 17 1 80 40 1E45 1E45 0 正算 （注意：略去計算方式及線元要素輸入，請自行根據所求點所在的線元輸入線元要素） S=700 Z=5 計算得 XS= YS= S=700 Z=0 計算得 XS= YS= S=700 Z= 5 計算得 XS= YS= S=780 Z=5 計算得 XS= YS= S=780 Z=0 計算得 XS= YS=S=780 Z= 5 計算得 XS= YS=S=870 Z=5 計算得 XS= YS= S=870 Z=0 計算得 XS= YS= S=870 Z= 5 計算得 XS= YS= S=940 Z= 計算得 XS=19741. 59118 YS= S=940 Z=0 計算得 XS= YS=S=940 Z= 計算得 XS= YS= 反算 X= Y= 計算得 S= Z=5 .00018164 X= Y= 計算得 S= Z= X= Y= 計算得 S= Z= X= Y= 計算得 S= Z= X= Y= 計算得 S= Z= X= Y= 計算得 S= Z= X= Y= 計算得 S= Z= X= Y= 計算得 S= Z= X= Y= 計算得 S= Z= X= Y= 計算得 S= Z= X= Y= 計算得 S= Z= X= Y= 計算得 S= Z=10