fx-5800p全線坐標正反算帶高程計算程序(線元法)-文庫吧
2025-07-20 09:40 本頁面
【正文】 )W(C+(1L)WD))+Asin(G+QE(1K)W(C+(1K)WD)))→YG+QEW(C+WD)+M→FX+Zcos(F)→X:Y+Zsin(F)→YFM→F:If F0:Then F+360→F:IfEndReturn3. 反算子程序(SUBFS)GM→T:Abs((YV)cos(T)(XU)sin(T))→W:0→ZLbl C:Prog “SUBZS”T+QEW(C+WD)→L:(Z[5]Y)cos(L)(Z[4]X)sin(L)→ZIf Abs（Z）106:Then Goto D:Else W+Z→W：Goto C:IfEndLbl D:0→Z:Prog “SUBZS”:(Z[5]Y)247。cos(F)→Z:Return4．高程計算子程序（SUBGC）(A4)Prog “DAT3”0．5RAbs((ED))→TIf ED:Then 1→C:Else 1→C:IfEndIf SA:Then →W:Else →W:IfEndAbs(AS)→LIf LT:Then B+WL→L:Else B+WL+C(TL)2247。2247。R→L:IfEndReturn5. 垂距計算子程序(SUBZX1) (Z[5]Z[8J+1])cos(A)(Z[4]Z[8J])sin(A)→Z[6] (Z[5]Z[8(J+1)+1])cos(B)(Z[4]Z[8(J+1)])sin(B)→Z[7]Return：DAT1(兩條線路，可擴充為多條線路)(A1)If I=0:Then Goto E: Else If I=2:Then Goto F:IfEnd:IfEndJ=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………………………………………………..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ù)添加入數(shù)據(jù)庫DAT1中)Goto GLbl E:“X0=”?U:“Y0=”?V:“S0=”?O:“F0=”?G:“LS=”?H:“R0=”?P:“RN=”?R:“Q=”?QLbl G:1247。P→C:(PR)247。(2HPR)→D:180247。π→E:Return7．隧道放樣子程序：SDFY→A:→B:L+→CIf I=1:Then 1→K:Else 1→K:IfEnd 給左右隧道符號賦值→F:→L:→K 給各圓心距路線的偏距賦值Z[2]C→D 計算測點至圓心的高差D，If DA:Then Goto 1:Else If D0:Then Goto 2:IfEnd:IfEndZL→E:Abs(E)→E:√(D2+E2)→W:WA→T: 計算測點至圓心的平距E，實測半徑W“R(m)=”:W◢“DR(m)=”:T◢If E≤A:Then D√(A2E2)→C:E√(A2D2)→L 計算測點水平偏移量L、垂直偏移量C“Dh(m)=”:C◢ 顯示測點垂直偏移量C“DL(m)=”:L◢
外語相關(guān)推薦
鄂ICP備17016276號-1