4850全線連線計算程序

中國人民武裝警察部隊交通第一總隊三支隊CASIO4850全線坐標正反算程序主程序：ZHANGLIANGLbI?：Deg:T"WJM":C=2?+4?(T-1):T=?:N"1.SR,2.JS":N=2=>GotoA⊿M"JZ-XX":O"QD-ZH":U"X-?":V"Y-?":G"FWJ":LblB:{HRQP}:P"QD-R"：H"XX-CD":R"ZD-R":Q").-1,(.+1,--.?":W=H:Z=?:Prog"S1":Prog"S4":U=X:V=Y:O=O+H:G=F-9?:P=R:"…SR…NEXT…!”:IszT:DszM:GotoB⊿LblA：Fixm:{XYSZN}:T=?:N"1.JS-XY,2.XY-FS":N=2=>Goto2⊿S"JS-ZH=":Z"D=":Lbl1:S＞Z［8T+1+C］=>IszT:Goto1⊿Prog"S3":W=S-O:Prog"S1":"JS-X=":X：Pause?:"JS-Y=":Y◢GotoAΔLbl2:X"X…":Y"Y…":I=X:J=Y:Lbl3:Prog"S3":W=Abs((Y-V)cos(G-9?)-(X-U)sin(G-9?:W＞H=>IszT:Goto3⊿Prog"S2":"FS-ZH…":S=O+W:Pause?:"D…":Z◢GotoA⊿子程序S1A=.1184634425:B=.2393143352:N=.2844444444:K=.?4691??77:L=.23?7653449:D=QrW2(P-R)÷2HPR:E=QrWP-1:Z[1]=G+KE+K2D:Z[2]=G+LE+L2D:Z[3]=G+.5E+.25D:Z[4]=G+(1-L)2D+E(1-L:Z[5]=G+(1-K)2D+E(1-K:F=G+E+D+9?：X=U+ZcosF+W(AcosZ[1]+BcosZ[2]+NcosZ[3]+BcosZ[4]+AcosZ[5:Y=V+ZsinF+W(AsinZ[1]+BsinZ[2]+NsinZ[3]+BsinZ[4]+AsinZ[5：子程序S2W=Abs((Y-V)cos(G-9?)-(X-U)sin(G-9?:Z=?:Lbl4:Prog"S1":L=G-9?+E+D:Z=(J-Y)cosL-(I-X)sinL:AbsZ<.??1=>Goto5:≠>W=W+Z:Goto4⊿Lbl5:Z=?:Prog"S1":Z=(J-Y)÷sinF:子程序S3H=Z［8T+C+6:O=Z［8T+C+1］-H:U=Z［8T+C+2:V=Z［8T+C+3:G=Z［8T+C+4:P=Z［8T+C+5:R=Z［8T+C+7:Q=Z［8T+C+8: 子程序S4Z［8T+C+1］=O+H:Z［8T+C+2］=U:Z［8T+C+3］=V:Z［8T+C+4］=G:Z［8T+C+5］=P:Z［8T+C+6］=H:Z［8T+C+7］=R:Z［8T+C+8］=Q:結束程序編制說明：1.本程序是為CASIO-fx4850p編制的。有1個主程序，4個子程序。約1000字節(jié)。需輸入文件名（1～67），根據(jù)28500步可以存儲67條線路數(shù)據(jù)。2.程序是以平曲線基本線型（直、緩、圓、緩、直）數(shù)學模型編制，三角函數(shù)計算。3.本程序是采用高斯勒讓德公式計算待放點坐標或根據(jù)全站儀測得坐標計算該點在線路中的位置（距某樁號的左右距離）。程序可以計算任何公路線型數(shù)值。適用直線、圓曲線、緩和曲線、S型曲線、卵型曲線、凸曲線、C型曲線、復合曲線、回頭曲線，及其任意組合的線型。包括不完整緩和曲線。4.程序一次輸入67條線路以內(nèi)的數(shù)據(jù)。工作時配合全站儀只要輸入樁號，即可計算出一條道路的中邊樁坐標或根據(jù)全站儀測得坐標計算該點在線路中的位置（距某樁號的左右距離）。已知數(shù)據(jù)輸入時無須人工判斷，程序自動存入應存的存儲器。本程序可在正反計算時自動切換。5.已知數(shù)據(jù)輸入后，只要不影響擴展存貯器Z[21]以上的數(shù)值，都可以進行其他程序計算,一般情況下可以擴展到Defm400，足夠空間調(diào)整。6.輸入67條線路時，需要人工擴展存貯器到2700個，即【Defm2700:】。此時要多占用容量2700步。如果計算器容量有限，而你不需要那么多線路，則擴展存貯器數(shù)量＝線路數(shù)量×40+20。7.程序均未考慮斷鏈，有斷鏈時，請將斷鏈處作為起終點處理。分為兩條線路。程序使用說明：1.本程序可根據(jù)多個線形數(shù)據(jù)計算平曲線任意點和邊樁的坐標。2.本程序適用回頭曲線、S型曲線、卵型曲線、凸曲線、C型曲線、復合曲線線形。3.本程序啟動后按1進行數(shù)據(jù)輸入，按2直接進入數(shù)據(jù)計算程序。4.本程序中所有輸入數(shù)據(jù)全部都保留在寄存器中，未被置換，以便待查。但請不要破壞寄存器中數(shù)據(jù)，這樣關機后重新開機可直接進入坐標計算程序。不需要重新輸入線形數(shù)據(jù)。5.樁號輸入時，K29+585.456應輸入29585.456。操作流程：啟動程序：1、顯示W(wǎng)JM?:詢問文件名：輸入1～67、EXE；擴展變量操作（15個）：Defm15,O字母0數(shù)字←┚J-SQX（豎曲線數(shù)據(jù)輸入）“J-SQX”:{NHUVMQP}:Z[9]=N“SJD”:Z[10]=H“JDZ”:Z[11]=U“I1”:Z[12]=V“I2”:Z[13]=M“R”:Z[14]=Q“QD”:Z[15]=P“ZD”:“TOJ-JSMS”J-PQX(平面數(shù)據(jù)輸入，自行切換到J-JSMS)A“JD”B“JDX”C“JDY”F“FJ”O(jiān)“ZJ：Z-，Y+”RE“LS1”K“LS2”：E<1=>E=1E-9⊿K<1=>K=1E-9⊿Z[1]=EE÷24R-E∧4÷2688RRR:Z[2]=E÷2-EEE÷240RR:X=(EE-KK)÷24R÷sinAbsO:Z[3]“T1”=(R+Z[1])tan(AbsO÷2)+Z[2]-X◢Z[4]“T2”=(R+KK÷24R-K∧4÷2688RRR)tan(AbsO÷2)+K÷2-KKK÷240RR+X◢L=AbsOπR÷180+(E+K)÷2◢J=tan-1((R+Z[1])÷(Z[3]-Z[2]):X“E”=(R+Z[1])÷sinJ-R◢X=A-Z[3]:Y=X+E:E<1=>X“ZY”◢≠=>X“ZH”◢Y“HY”◢⊿Y“QZ”=X+(L-K-E)÷2+E◢Y=X+L-K:X=X+L:K<1=>X“YZ”◢≠=>Y“YH”◢X“HZ”◢⊿Prog“J-JSMS”←┚J-JSMS（放樣模式主程序）“1-ZS,2-F1,3-FS”:“4-F2,5-Z0,6-DM”:Lb10:{Z}:Z“MS”≤2=>Goto1:≠=>Z≤4=>Goto2:≠=>Goto3⊿⊿←┚Lb11:{PDW}:PD“BZ”W“BJ”:Prog“JP”:X“X=”◢(4850輸入“X=”：X◢)Y“Y=”◢(4850輸入“Y=”：Y◢)Z<2=>Goto1:≠=>Prog“JS”:Prog“JC”:H“Z”=H+G◢Goto1⊿←┚Lb12:{XYW}:XYW“BJ”:Prog“JF”:P“P=”◢(4850輸入“P=”：P◢)D“BZ=”◢(4850輸入“BZ=”：D◢)Z<4=>Goto2:≠=>{Q}:Q“ZP”:Prog“JS”:Prog“JC”:Prog“JB”:Goto2⊿←┚Lb13:{P}:P:Prog“JS”:H“Z0=”◢(4850輸入“Z0=”：H◢)Z<6=>Goto3:≠=>{D}:S“CGZ”:T“JKZ”:Z[8]=Q“LH”:D“BZ”:Prog“JC”:J“JK=”◢(4850輸入“JK=”：J◢)G“Z”=H+G◢(4850輸入“Z=”：G=H+G◢)Goto0⊿JS（豎曲線計算子程序）P<Z[14]=>Prog“J-SQX”⊿P>Z[15]=>Prog“SJ-SQX”⊿←┚N=Z[9]:U=Z[11]:V=Z[12]:H=Z[13]:G=HAbs(U-V)÷200:P<N=>I=U:M=N-G:M>P=>M=P⊿≠=>I=V:M=N+G:M<P=>M=P⊿⊿J=(P-M)2÷2H:U-V>0=>J=-J⊿H=Z[10]+(P-N)×I÷100+JJP（平曲線正算子程序）Fixm←┚Lb11:J=F:X=B-Z[3]cosF:Y=C-Z[3]sinF:G=E←┚P≤A-Z[3]=>I=A-Z[3]-P:M=-I:N=0:H=F+W:Goto5←┚≠=>P≤A-Z[3]+E=>I=P-A+Z[3]:H=90II÷REπ:O<0=>H=-H⊿H=H+W+F:Goto3←┚≠=>P≤A-Z[3]+L-K=>I=P-A+Z[3]-E:Goto4:≠=>Goto2⊿⊿←┚Lb12:X=B+Z[4]cos(F+O:Y=C+Z[4]sin(F+O:J=F+O+180:G=K←┚P≤A-Z[3]+L=>I=A-Z[3]+L-P:H=90II÷RKπ:O>0=>H=-H⊿H=H+J+W+180:Goto3←┚≠=>I=P-A+Z[3]-L:M=-I:N=0:H=J+W+180:Goto5←┚Lb13:M=I-I∧5÷40RRGG:N=III÷6GR-I∧7÷336RRRGGG:Goto5←┚Lb14:H=(E+2I)×90÷πR:M=RsinH+Z[2]:N=R(1-cosH)+Z[1]:O<0=>H=-H⊿H=J+H+W:Goto5←┚Lb15:P≤A-Z[3]+L-K=>O<0=>N=-N⊿≠=>O>0=>N=-N⊿⊿Goto6←┚Lb16:X=X+McosJ-NsinJ+DcosH:Y=Y+MsinJ+NcosJ+DsinHJF（平曲線反算子程序）Fixm←┚U=X:V=Y:D=0:J=F-W:P=A+(Y-C)cosJ-(X-B)sinJ←┚Lb11:Prog“JP”:J=H-180:I=(V-Y)cosJ-(U-X)sinJ:AbsI<1E-4=>Goto2:≠=>P=P+I:Goto1⊿←┚Lb2:D=(V-Y)÷sinHJC（超高加寬計算子程序）Fixm:Z[8]<1=>Z[8]=1E-8⊿I=E:M=A-Z[3]:E<1=>I=Z[8]:M=M-I⊿G=K:N=A-Z[3]+L:K<1=>G=Z[8]:N=N+G⊿←┚P≤0.5(N+M=>U=(P-M)÷I:≠=>U=(N-P)÷G⊿U<0=>U=0⊿U>1=>U=1⊿J=UT高次拋物線加寬J=T(1-3UU+2UUU):DO<0=>J=0⊿I=1:Prog“JD”:I=US:G=I+UN-N:U=AbsD-V:⊿U<0=>U=O⊿U>M+J+Z[5]=>U=M+J+Z[5]⊿Z[7]=1=>Goto1:≠=>Goto2←┚Lb11:I=G:DO>0=>I=-I:AbsI<N=>I=-N⊿⊿G=UI:N=I:Goto3←┚Lb12:N<I=>N=I⊿G=N(M-U)+Z[5]Z[6]:N=-N:DO<0=>G=G+2IU:N=I⊿Goto3←┚Lb13:U=M+J+V+Z[5]:AbsD≥U-0.01=>G=G-Z[5](N+Z[6])⊿JB（路基邊樁放樣子程序）H=H+G-Q:H<0=>I=2:H“W=”=AbsH◢≠=>I=3:H“T=”◢(4850輸入“T=”：H◢)⊿Prog“JD”:G=H÷V:G<1=>I=MG:≠=>G<2=>I=M+N(G-1):≠=>I=M+N+Z[6](G-2)⊿⊿I“BP”=AbsD-VI-Z[7]IntG-U-Z[5]◢G=VFracG:G<1.5=>G“PT”◢⊿JD（斷面數(shù)據(jù)儲存子程序）I=1=>M=4:N=0.015:Z[5]=0.25:Z[6]=0.015:V=0:Z[7]=2:≠=>I=2=>Z[5]=1.1:M=0.5:N=0.75:Z[6]=1.00:V=10:Z[7]=1.0:≠=>Z[5]=0:M=1.50:N=1.75:Z[6]=2.00:V=8:Z[7]=1.0⊿⊿符號說明：←┚◢⊿≠=>=>≤≥程序簡介本套程序是共有2個主程序，7個子程序。包括了路線坐標正反算、豎曲線、超高加寬、邊坡放樣及斷面計算等程序。適用于CASIO4800/4850，4850用戶需要修改清單內(nèi)結果顯示的字段（例如：X“X=”◢改為“X=”：X◢或G“Z”=H+G◢改為“Z=”：G=H+G◢）。程序功能本著用最懶的方法做最繁雜的事（當然認真更重要?。?，根據(jù)不同需要，本程序共設置了6種計算模式J-JSMS：1-ZS，正算模式：適用于中、邊樁計算，里程樁號及邊距=>平面坐標。2-FI，放樣1模式：適用于路面施工放樣，里程樁號及邊距=>平面坐標、路面高程。3-FS，反算模式：適用于任意點里程、邊距計算，任意點坐標=>里程、邊距。4-F2，放樣2模式：適用于路基施工放樣，任意點坐標=>里程、邊距、填挖高度，邊坡超欠挖寬度，最近平臺高度（<1.5）。5-Z0，設計高程計算，即豎曲線計算，里程樁號=>設計高程。6-DM，斷面計算，里程樁號、邊距=>設計高程、加寬值、指定邊樁的高程。計算范圍平曲線：直線-緩和曲線（或無）-圓曲線-緩和曲線（或無）-直線中任意樁號，允許兩緩和曲線不等長，即可以算卵形曲線，回頭曲線豎曲線：前交點SYZ到后交點SZY中的任意樁號數(shù)據(jù)輸入及各計算模式運行過程1、正算模式：1-ZS，運行主程序J-PQX（平曲線），計算過程如下：顯示輸入計算結果備注DJ？交點樁號JDX？交點X值JDY？交點Y值FJ？計算方位角ZJ：Z-，Y+？交點轉(zhuǎn)角左轉(zhuǎn)為負值，右轉(zhuǎn)正值R？圓曲線半徑LS1？第一緩和曲線LS2？第二緩和曲線T1=前切線T2=后切線L=曲線長度E=外距ZH=ZH樁號若不計算平曲線要素樁號，程序清單J-PQX內(nèi)有下劃線部分可以不寫入計算器內(nèi)。HY=HY樁號QZ=QZ樁號YH=YH樁號HZ=HZ樁號1-ZS,2-F1,3-FS4-F2,5-Z0,6-DMMS？計算模式選擇，此模式請輸入：1總共有6種計算模式供選擇，符號說明見“二、程序功能”。P？待求點樁號BZ？邊樁距離左邊為負值，右邊為正值，中樁輸0BJ？邊樁夾角右邊樁與中線夾角，正交為90，斜交另輸X=X值Y=Y值P？BZ？BJ？...本模式循環(huán)計算2、反算模式：3-FS，運行主程序J-PQX（平曲線），運行過程同“1、1-ZS，正算模式”；若平曲線數(shù)據(jù)已經(jīng)輸入了，或者計算交點同上次相同，可直接運行J-JSMS（計算模式）顯示輸入計算結果備注······平曲線數(shù)據(jù)輸入過程·····1-ZS,2-F1,3-FS4-F2,5-Z0,6-DMMS？計算模式選擇，此模式請輸入：3總共有6種計算模式供選擇，符號說明見“二、程序功能”。X？任意點P的X值Y？任意點P的Y值BJ？邊樁夾角右邊樁與中線夾角，正交為90，斜交另輸P=P點樁號BZ=邊樁距離負值為左邊樁，正值為右邊樁X？Y？...本模式循環(huán)計算3、縱斷面設計高程計算：5-Z0，步驟1：首先運行J-SQX（豎曲線），此步驟只是豎曲線數(shù)據(jù)輸入，不進行計算。若計算交點與上次計算交點相同，可跳過此步驟。輸入過程如下：顯示輸入計算結果備注SQXSJSJD？豎曲線交點樁號SQXSJ表示程序狀態(tài)，豎曲線數(shù)據(jù)輸入JDZ？交點高程I1？第一縱坡往樁號增大方向，上坡為正值，下坡為負值，如，下坡2.00%，輸入-2即可I2？第二縱坡R？豎曲線半徑QD？允許計算樁號起點QD即前交點SYZ樁號，ZD即后交點SZY樁號，ZD？允許計算樁號終點TOJ-JSMS退出本程序進行下一步驟。之所以分開兩個步驟，是因為當計算樁號超出計算范圍時程序會自動切換到豎曲線數(shù)據(jù)輸入狀態(tài)，避免出現(xiàn)低級失誤。而且將計算放在J-JSMS中會使程序更加靈活。步驟2：運行J-JSMS進入模式5-Z0：顯示輸入計算結果備注1-ZS,2-F1,3-FS4-F2,5-Z0,6-DMMS？計算模式選擇，此模式請輸入：5總共有6種計算模式供選擇，符號說明見“二、程序功能”。P?待求點P樁號Z0=P點設計高程P？...本模式循環(huán)計算4、斷面計算：6-DM，在此模式中可以輸入超高值、加寬值與及超高緩和長度，并進行計算?。?！為了方便其它計算模式的切換，每次完成模式6計算后程序會返回模式選擇（MS？）。斷面計算的主要內(nèi)容是待求樁號P點的加寬值、指定邊樁的高程，因此運行前應輸入豎曲線數(shù)據(jù)（已輸入過或同上次計算可以跳過此步）。顯示輸入計算結果備注······豎曲線數(shù)據(jù)輸入，運行J-JSMS·····1-ZS,2-F1,3-FS4-F2,5-Z0,6-DMMS？計算模式選擇，此模式請輸入：6總共有6種計算模式供選擇，符號說明見“二、程序功能”。P?待求點樁號Z0=P點設計高程縱斷面設計高程CGZ？超高橫坡JKZ？加寬值LH？超高緩和長度當曲線沒有LS時輸入此項，否則跳過即可BZ？邊樁距離JK=P點加寬值當外側(cè)邊樁時，計算結果為0。Z=P點高程P點的邊樁高程，不一定是縱斷面設計高程MS？模式選擇：6為了方便其它模式的切換，每次完成模式6程序會返回模式選擇。5、放樣1模式：2-F1此模式計算內(nèi)容X，Y，Z，是將正算，豎曲線，超高結合起來計算的綜合模式，Z值是邊樁或中樁設計高程，計算過程如下（詳細的過程說明參照前面的模式說明）：步驟:“J-SQX”→“J-PQX”→“J-JSMS”（自動切換）→6-DM→2-F1顯示輸入計算結果備注1-ZS,2-F1,3-FS4-F2,5-Z0,6-DMMS？計算模式選擇，此模式請輸入：2總共有6種計算模式供選擇，符號說明見“二、程序功能”。P？待求點樁號BZ？邊樁距離左邊為負值，右邊為正值，中樁輸0BJ？邊樁夾角右邊樁與中線夾角，正交為90，斜交另輸X=X值Y=Y值Z=Z值P?BZ?BJ?→X=,Y=,Z=→循環(huán)6、放樣2模式：4-F2此模式只有一個功能，就是路基放樣，也是整個程序最重要的功能。整個計算包括了正、反算，豎曲線，超高加寬，邊坡計算，計算過程如下（詳細的過程說明參照前面的模式說明）：步驟:“J-SQX”→“J-PQX”→“J-JSMS”（自動切換）→6-DM→４-F２顯示輸入計算結果備注1-ZS,2-F1,3-FS4-F2,5-Z0,6-DMMS？計算模式選擇，此模式請輸入：4總共有6種計算模式供選擇，符號說明見“二、程序功能”。X？任意點P的X值Y？任意點P的Y值BJ？邊樁夾角右邊樁與中線夾角，正交為90，斜交另輸P=P點樁號BZ=邊樁距離負值為左邊樁，正值為右邊樁ZP?地面高程T=（W=）填（挖）高度BP=邊坡超欠挖寬度正值表示超挖，負值表示欠挖PT=距離平臺高度當高度小于1.0時顯示，顯示范圍在程序清單內(nèi)修改G<1.0=>G“PT”X?Y?BJ?→P=,BZ=,→ZP?→Ｔ=（W=），BP=,PT=→循環(huán)JD（斷面數(shù)據(jù)儲存子程序I=1=>M=①:N=②:Z[5]=③:Z[6]=④:V=⑤:Z[7]=⑥①0.5路面寬度②路面橫坡③路肩寬度④路肩橫坡⑤0.5中央帶寬度⑥超高方式：1中，2邊:≠=>I=2=>Z[5]=①:M=②:N=③:Z[6]=④:V=⑤:Z[7]=⑥挖方路基①邊溝寬度②第一級邊坡率③第二級邊坡率④第三級邊坡率⑤每級最大坡高⑥平臺寬度:≠=>Z[5]=①:M=②:N=③:Z[6]=④:V=⑤:Z[7]=⑥⊿⊿填方路基①路堤超填寬度②第一級邊坡率③第二級邊坡率④第三級邊坡率⑤每級最大坡高⑥護道（平臺）寬度必讀：1、如果中途關機或已知數(shù)據(jù)與上次計算相同，直接運行J-JSMS計算即可，可不必重新輸入已知數(shù)據(jù)。2、輸入豎曲線計算范圍樁號（QD，ZD）非常重要，當計算樁號超出豎曲線計算范圍時，程序會自動切換到J-SQX數(shù)據(jù)輸入狀態(tài)，完成輸入數(shù)據(jù)后程序仍然會繼續(xù)上一步的計算，而不需要退出計算模式。3、程序內(nèi)未加入長短鏈數(shù)據(jù)，涉及長短鏈的曲線計算時P值應該增加（或減少）長短鏈數(shù)值。4、因為路肩橫坡的超高在各個工程中的不同，所以路肩的橫坡保持不變（不超高），但不影響其它計算。直、圓、緩（完整或非完整型）程序CASIOFX4500~4850P（三）版權所有武警交通第一總隊三支隊~~~~~~~~~張亮一、程序功能

本程序由一個主程序(TYQXJS)和兩個子程——正算子程序(SUB1)、反算子程序(SUB2)序構成，可以根據(jù)曲線段——直線、圓曲線、緩和曲線（完整或非完整型）的線元要素（起點坐標、起點里程、起點切線方位角、線元長度、起點曲率半徑、止點曲率半徑）及里程邊距或坐標，對該曲線段范圍內(nèi)任意里程中邊樁坐標進行正反算。另外也可以將本程序中核心算法部分的兩個子程序移植到其它相關的程序中，用于對曲線任意里程中邊樁坐標進行正反算。

特別申明：(1)、適用于弧長小于2倍半徑的各種線元坐標正反算，精度優(yōu)于1mm；

(2)、在引用該核心計算部分時，請注明來源。

二、源程序

1.主程序(TYQXJS)

"1.SZ=>XY"："2.XY=>SZ"：N：U"X0"：V"Y0"：O"S0"：G"F0"：H"LS"：P"R0"：R"RN"：Q：C=1÷P：D=(P-R)÷(2HPR)：E=180÷π：N=1=>Goto1：≠>Goto2Δ換行

Lbl1：{SZ}：SZ：W=Abs(S-O)：Prog"SUB1"：X"XS"=X◢

Y"YS"=Y◢

F"FS"=F-90◢

Goto1換行

Lbl2：{XY}：XY：I=X：J=Y：Prog"SUB2"：S"S"=O+W◢

Z"Z"=Z◢

Goto2換行

2.正算子程序(SUB1)

A=0.1739274226：B=0.3260725774：K=0.0694318442：L=0.3300094782：F=1-L：M=1-K：X=U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))：Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))：F=G+QEW(C+WD)+90：X=X+ZcosF：Y=Y+ZsinF換行

3.反算子程序(SUB2)

T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl0：Prog"SUB1"：L=T+QEW(C+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1E-6=>Goto1：≠>W=W+Z：Goto0Δ換行

Lbl1：Z=0：Prog"SUB1"：Z=(J-Y)÷sinF換行

三、使用說明

1、規(guī)定

(1)以道路中線的前進方向（即里程增大的方向）區(qū)分左右；當線元往左偏時，

Q=-1；當線元往右偏時，Q=1；當線元為直線時，Q=0。

(2)當所求點位于中線時，Z=0；當位于中線左鍘時，Z取負值；當位于中線中線右側(cè)時，Z取正值。

(3)當線元為直線時，其起點、止點的曲率半徑為無窮大，以10的45次代替。

(4)當線元為圓曲線時，無論其起點、止點與什么線元相接，其曲率半徑均等于圓弧的半徑。

(5)當線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半

徑為無窮大，以10的45次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。

(6)當線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等于設計規(guī)定的

值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑等

于設計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。

2、輸入與顯示說明

輸入部分：

1.SZ=>XY

2.XY=>SZ

N?

選擇計算方式，輸入1表示進行由里程、邊距計算坐標；輸入2表示由坐標反算

里程和邊距。

X0？線元起點的X坐標

Y0？線元起點的Y坐標

S0？線元起點里程

F0？線元起點切線方位角

LS？線元長度

R0？線元起點曲率半徑

RN？線元止點曲率半徑

Q？

線元左右偏標志(左偏Q=-1，右偏Q=1，直線段Q=0)

S？正算時所求點的里程

Z？正算時所求點距中線的邊距(左側(cè)取負，值右側(cè)取正值，在中線上取零)

X？反算時所求點的X坐標

Y？反算時所求點的Y坐標

顯示部分：

XS=×××

正算時，計算得出的所求點的X坐標

YS=×××

正算時，計算得出的所求點的Y坐標

FS=×××

正算時，所求點對應的中線點的切線方位角

S=×××

反算時，計算得出的所求點的里程

Z=×××

反算時，計算得出的所求點的邊距

四、算例

某匝道的由五段線元（直線+完整緩和曲線+圓曲線+非完整緩和曲線+直線）組

成，各段線元的要素（起點里程S0、起點坐標X0Y0、起點切線方位角F0、線元長度

LS、起點曲率半徑R0、止點曲率半徑RN、線元左右偏標志Q）如下：

S0

X0

Y0

F0

LS

R0

RN

Q

500.000

19942.837

28343.561

1251631.00

269.256

1E45

1E45

0

769.256

19787.340

28563.378

1251631.00

37.492

1E45

221.75

-1

806.748

19766.566

28594.574

1202554.07

112.779

221.75

221.75

-1

919.527

19736.072

28701.893

911730.63

80.285

221.75

9579.228

-1

999.812

19744.038

28781.659

804050.00

100.000

1E45

1E45

0

1、正算

（注意：略去計算方式及線元要素輸入，請自行根據(jù)所求點所在的線元輸入線元

要素）

S=700

Z=-5

計算得

XS=19831.41785

YS=28509.72590

S=700

Z=0

計算得

XS=19827.33592

YS=28506.83837

S=700

Z=5

計算得

XS=19823.25398

YS=28503.95084

S=780

Z=-5

計算得

XS=19785.25749

YS=28575.02270

S=780

Z=0

計算得

XS=19781.15561

YS=28572.16358

S=780

Z=5

計算得

XS=19777.05373

YS=28569.30446

S=870

Z=-5

計算得

XS=19747.53609

YS=28654.13091

S=870

Z=0

計算得

XS=19742.68648

YS=28652.91379

S=870

Z=5

計算得

XS=19737.83688

YS=28651.69668

S=940

Z=-5.123

計算得

XS=19741.59118

YS=28722.05802

S=940

Z=0

計算得

XS=19736.47687

YS=28722.35642

S=940

Z=3.009

計算得

XS=19733.47298

YS=28722.53168

2、反算

X=19831.418

Y=28509.726

計算得

S=699.9999974

Z=-5.00018164

X=19827.336

Y=28506.838

計算得

S=699.9996493

Z=0.000145136

X=19823.25398

Y=28503.95084

計算得

S=699.9999985

Z=5.000003137

X=19785.25749

Y=28575.02270

計算得

S=780.0000035

Z=-5.000001663

X=19781.15561

Y=28572.16358

計算得

S=780.0000025

Z=-0.000002979

X=19777.05373

Y=28569.30446

計算得

S=780.0000016

Z=4.99999578

X=19747.536

Y=28654.131

計算得

S=870.0001137

Z=-4.99941049

X=19742.686

Y=28652.914

計算得

S=870.0003175

Z=-0.00041814

X=19737.837

Y=28651.697

計算得

S=870.0002748

Z=4.999808656

X=19741.5912

Y=28722.0580

計算得

S=939.9999786

Z=-5.123024937

X=19736.4769

Y=28722.3564

計算得

S=939.9999862

Z=-0.000027710

X=19733.4730

Y=28722.5317

計算得

S=940.0000238

Z=3.00898694

直線、圓曲線、緩和曲線中邊樁（任意斜交結構物）放樣程序(四)CASIOFX4500P版權所有武警交通第一總隊三支隊~~~~~~~~~張亮使用須知：本程序適合CASIOfx-4500PA計算線路較長的直線、圓曲線、緩和曲線的路基橋梁結構物的中、邊樁（正交、斜交）放樣，但唯一不足的是計算每一線路都要重新輸入曲線要素，只要輸入后計算器可以自動保留數(shù)據(jù)。下一次開機都可以使用F1MAINL1{J}：J″JD″：{Z}：Z″Z″：{R}:R″R″：{L}：L″LS″：{F}：F″F0″：{X}：X″X0″：{Y}：Y″Y0″L2T=(R+L2/(24R))tan(Abs(Z/2))+L/2－(Lxy3)/(240R2)L3W=J－T+L：H=J－T+(ЛR(AbsZ)/180)：E=H+LL4P=X－TcosF：Q=Y－TsinFL5M=P+(L－((Lxy3)/(40R2)))(cosF)+(L2(cos(F+((90AbsZ)/Z)))/(6R))L6N=Q+(L－(Lxy3)/(40R2))sinF+(L2/6R)sin(F+(90Z/(AbsZ)))L7Lb10L8{K}：K″K″：{B}：B″B″：{A}：A″A″L9K≤(J－T)=>Prog1ZHIL10≠=>K≤W=>S=K+T－J：O=F：G=Z：I=A：Prog3HUANL11≠=>K≤H=>Prog2YUANL12≠=>K≤E=>S=E－K：=F+Z+180：G=-Z：I=A+180：Prog3HUAN△△△△L13Goto0F21ZHIL1C=X－(J-K)cosF◢D=Y－(J－K)sinF◢L2U″XB″=C+Bcos(F+A)◢V″YB″=D+Bsin(F+A)◢F32YUANL1S=K－J－L+TL2C=M+Rtan(90S/(ЛR))cos(F+90L(AbsZ)/(RЛZ))+Rtan(90S/(лR))cos(F+90LZ/(лRAbsZ)+180SZ/(RлAbsZ))◢L3D=N+Rtan(90S/(лR))sin(F+90ZL/(ЛRAbsZ))+Rtan(90S/(лR))sin(F+90ZL/(лRAbsZ)+180SZ/(лRAbsZ))◢L4U″XB″=C+Bcos(F+90ZL/(лRAbsZ)+180ZS/(лRAbsZ)+A)◢L5V″YB″=D+Bsin(F+90ZL/(лRAbsZ)+180ZS/(лRAbsZ)+A)◢F43HUANL1C=X－(TcosO)+(S－((Sxy5)/(40R2L2)))(cosO)+((Sxy3)/(6RL))cos(0+((90G)/(AbsG)))◢L2D=Y－(TsinO)+(S－((Sxy5)/(40R2L2