主线匝道施工放样程序4850P-B.docVIP

GISGFYCX－B放样程序 ( fx-4850P ) Mｃｌ Defm 45 Lbl 7 {X}∶X″K1=″∶Z[25]＝X {X}∶X″K2＝″：X∶Z[26]＝X Cls Z[26]＝2＝＞Goto 0 ⊿ {X}∶X″XA=″∶Z[27]=X ∶X＝0＝＞Ｇoto Y ⊿ {Y}∶Y″YA=″∶Z[28]=Y Cls {X}∶X″XB＝″∶{Y}∶Y″YB＝″∶Z[23]＝X∶Z[24]＝Y Pol（Z[23]-Z[27]?Z[24]-Z[28]）∶J＜0＝＞J＋360→J⊿ ″F=″∶J DMS◣ Z[40]=J ″D=″∶I◣（计算后视点方位角距离） Cls Lbl 0 Lbl Y {M}∶M″M＝″ M＝10＝＞Goto 8⊿ M＝1＝＞Pｒｏｇ″AA″ ∶ Goto A⊿ M＝2＝＞Pｒｏｇ″BB″ ∶ Goto A⊿ M＝3＝＞Pｒｏｇ″CC″ ∶ Goto A⊿ M＝4＝＞Pｒｏｇ″DD″ ∶ Goto A⊿ M＝5＝＞Pｒｏｇ″LA″ ∶ Goto A⊿ M＝11＝＞Pｒｏｇ″AAA″ ∶ Goto A⊿ M＝12＝＞Pｒｏｇ″BBB″ ∶ Goto A⊿ M＝13＝＞Pｒｏｇ″CCC″ ∶ Goto A⊿ M＝14＝＞Pｒｏｇ″DDD″ ∶ Goto A⊿ Lbl Y Cls Lbl 8 {K}∶K″CD＝″∶Cls K＝0＝＞Goto 7⊿ K≤161240.227＝＞Pｒｏｇ″JD21″ ∶ Goto A⊿ K≤163826.133＝＞Pｒｏｇ″JD22″ ∶Goto A⊿ K≤166083.699＝＞Pｒｏｇ″JD23″ ∶Goto A⊿ K≤167003.247＝＞Pｒｏｇ″JD24″ ∶Goto A⊿ K≤168133.984＝＞Pｒｏｇ″JD25″ ∶Goto A⊿ K≤168746.094＝＞Pｒｏｇ″JD26″ ∶Goto A⊿ K≤169293.139＝＞Pｒｏｇ″JD27″ ∶Goto A⊿ K≤170166.502＝＞Pｒｏｇ″JD28″ ∶Goto A⊿ K≤171127.165＝＞Pｒｏｇ″JD29″ ∶Goto A⊿ K≤175428.300＝＞Pｒｏｇ″JD30″ ∶Goto A⊿ K≤178669.069＝＞Pｒｏｇ″JD31″ ∶Goto A⊿ K≤179805.707＝＞Pｒｏｇ″JD32″ ∶Goto A⊿ K≤181350.250＝＞Pｒｏｇ″JD33″ ∶Goto A⊿ K≤184137.466＝＞Pｒｏｇ″JD34″ ∶Goto A⊿ K≤186078.570＝＞Pｒｏｇ″JD35″ ∶Goto A⊿ K≤188716.259＝＞Pｒｏｇ″JD36″ ∶ Goto A⊿ Lbl A Z[1]“P1”=S2/24/R-S4/2688/ R3（后切线常数） Z[2]“P2”=W2/24/R-W4/2688/ R3（前切线常数） Z[3]“Q1”=S/2- S3/24零/ R2+ S5/3456零/ R4（后切线常数） Z[4]“Q2”=W/2-W3/24零/ R2+ W5/3456零/ R4（前切线常数） Z[5]=tan-1 (((R+Z[2])/(R+Z[1])- cos A)/sin A)（反算角度）31.5920 Z[6]“T1”=（R+Z[1]）tan Z[5]+Z[3]（后切线长） Z[7]“T2”=(R+Z[2])tan (A-Z[5])+Z[4]（前切线长） Z[8]“B零1”=18零S/2/R/π（Z[10]过度常数） Z[9]“B零2”=180W/2/R/π（Z[10]过度常数） Z[10]=Ａ-Ｚ[8]-Z[9]（计算园曲线长过度常数） Z[11]“LY”=πRZ[10]/180（园曲线长） Z[12]=“Lh”=S+W+Z[11]（曲线全长） Z[13]=（直缓点）469.93 Z[14]=“HY”=Z[13]+S（缓园点） Z[15]=“YH”=Z[14]+Z[11]（园缓点） Z[16]=“HZ”=Z[13]+Z[12]（缓直点） 判别中桩里程位于曲线何处 K≤Z[13]=＞GoTo 1⊿ K≤Z[14]=＞GoTo 2⊿ K≤Z[15]=＞GoTo 3⊿ K≤Z[16]=＞GoTo 4⊿ K＞Z[16] =＞GoTo 9⊿ LbI 1: L=Z[13]-K: V=Q U＝Q＋180 Z[42]＝L GoTo5 LbI2:L=K-Z[13]:Z[42]=√根号((L3/(6RS)-L7/(336R3S3)+L11/(42240R5S5))2+(L-L5/(40R2S2)+L9/(3456R4S4))2):U=Q+3零L2B/πRS V=Q+9零L2B/πRS :Goto 5 LbI 3 L=K-Z[14]:Z[17