卡西欧4850万能放线程序

合集下载

4850放线程序只对S型、对称和不对称缓和曲线、圆曲线可用!!!

CZB(测站准备)I=Z[1]：J=Z[2]：X=Z[3]：Y=Z[4]Lb1 1:{VW}:V”YG”:W”HC”V>10=>GOTO 1△Lb1 2:{IJXY}:I”XC”:J”YC”:X”HSX”:Y”HSX”Z[1]=I:Z[2]=J:Z[3]=X:Z[4]=YPROG”FWJ”“A”:J▲“D”:I▲FWJ（方位角计算）POL（X-I，Y-J）：J〈0=>J=J+360FX ALL(全线放线)Lb1 1:Z=Z[5]:{Z}:Z”FX Z”:Z[5]=ZFixm:Z<Z[6] =>PROG”JD ALL”: ≠>Z>N =>PROG”JD ALL”△△Z[8]=0：PROG“JKCG”：E=Z[7]：{E}：E“Z-Y+”：Z[7]=EPROG“ZB”：PROG“FWJ”：“A”：J->DMS▲“D”:I▲Lb1 2:X=0:Y=1.3:{XY}:X”HV”:Y”JG”“CD HH”V+W+X-Y▲ZB”坐标计算“M=Z[17]：N=Z[19]：H=Z[21]：Z>N-H=>L=N-Z:T=Z[15]:K=H: ≠>L=Z-M:T=Z[13]: K=S: △K=0=>GOTO 1△A=(L^2/2RK)r（弧度转化为度）X=L-L^5/40R^2K^2Y=L^3/6RK-L^7/336R^3K^3Lb1 1:Z>M+S=>Z≤N-H=>A=（（L-K/2）/R）r：X=Q+R Sin A:Y=P+R(1-Cos A) △△L<0=>Y=0:A=0:X=L△POL(T-X,Y)Z>N-H=>J=180-J-Abs U:A=ＡbsU-A△X=B+Rec(-I,F-JO(字母))Y=C+JX=X+Rec(E,F+AO(字母)+90):Y=Y+J;I=Z[1]:J=Z[2]:”X”:X▲“Y”:Y▲PQXJS（平曲线计算）O(字母)=U/Abs U:U=Abs U:K=S:PROG”Q1”P=X:Q=Y:I=JK=H:PROG”Q1”Z[13]=(R+X-(R+P)Cos u)/Sin u+QZ[15]=(R+P-(R+X)Cos u)/Sin u+YL=S+H+(Uπ/180-I-J)RM=D-Z[13]：N=M+LJKCG（加宽超高计算）M=Z[17]：N=Z[19]：H=Z[21]：Z>N-H=>L=N-Z: ≠>L=Z-M △R>600=>I=-2(路弓横坡): ≠>I=2(最小超高值)：R〈390=>I=3……(一直到把所有要求输完) △△……(有几个=> 就有几个△)R>250=>X=0(加宽值): ≠>X=0.8：R〈200=>X=1……(一直到把所有要求输完) △△……(有几个=> 就有几个△)K=S:T=HK+T=0=>K=1:T=1:≠>KT≠0=>GOTO 1: ≠>K=1: ≠>T=1 △△△Lb1 1:Z>N-H=>Y=XL/T:J=(I+2)L/T-2:≠> Y=XL/K:J=(I+2)L/K-2△Y<0=>Y=0:J=-2△J>I=>Y=X:J=I△O(字母)<0=>”ZJK”:Y▲△“CG PD”:J▲Z[8] ≠0=> E=Z[7]：{E}：E“Z-Y+”：Z[7]=E:E=Abs E:I=0.01EJ:J<2=>J=-0.02E: ≠>J =-0.01EJ△O(字母)<0=>H=I:I=J:J=H△Z[7]>0=>”ZH”Z[25]+J▲≠>”HZ”:Z[25]+I▲JD ALL（平曲线）N=43433（起点桩号）I=23232.3232:J=4343433.433(起点坐标)X=22322.323:Y=434322.242(交点坐标)D=54435.899（交点桩号）U=-63(度)32…23“（左偏角）R=323.121S=35（缓和曲线长度1）:H=50（缓和曲线长度2）PROG“QX2”：Z〈N=>GOTO 2△X=23322.323:Y=424322.242(交点坐标)D=55435.899（交点桩号）U=33(度)32…23“（右偏角）R=323.121S=35（缓和曲线长度1）:H=50（缓和曲线长度2）PROG“QX2”：Z〈N=>GOTO 2△……Lb1 2PQXYS(平曲线要素)“A”：U-〉DMS▲{DRSH}：D“JD”：R：S“LS1”H“LS2”：Z[21]=H：PROG“PQXJS”“HZ“：Z[17]=M▲“HZ“：Z[19]=N▲Q1（平曲线计算子程序）X=K^2/24R-K^4/2384R^3Y=K/2-K^3/240R^2J=K/2RQ2(JD ALL子程序)Z[6]=N：B=X：C=Y：PROG“FWJ”：F=J：PROG“PQXJS”I=B：J=C：Z[23]=D：Z[1 7]=M：Z[19]=N：Z[21]=HSQX ALL（竖曲线）Z>49020(起点桩号) =>GOTO A △Lb1 1:D=45100(交点桩号):J=-6.289(第1个纵坡):H=528.88D=45330:I=-6.289(第2个纵坡):H=434.43:T（竖曲线半劲）=5000：PROG”SQ 2”:Z <N=>GOTO 2△D=46546:I=3.232:H=323:T=4000：PROG”SQ 2”:Z<N=>GOTO 2△……(到曲线资料完)Lb1 2SQ2（SQ ALL子程序）Z[26]=N:X=0.01(J-I):L=Abs（绝对值） TX/2:Z[14]=D-L:N=D+L:Z[16]=N:Z[18]=D: Z[20]=H:Z[22]=T:Z[24]=-X/Abs X:Z[28]=J:Z[30]=I:J=ISQJS(竖曲线计算)I=Z[30]:J=Z[28]:T=Z[22]:X=Z[24]:D=Z[18]:H=Z[20]:M=Z[14]:N=Z[16]Z《M=>X=0: ≠>Z≥N=>X=0△△Z>D=>L=H+0.01(Z-D)I+X(N-Z)^2/2T≠> L=H+0.01(D-Z)J+X(Z-M)^2/2TGCJS（全线高程计算）Z=Z[5]：{Z}：Z“JSZ”：Fixm:Z>Z[16] =>PRONG”SQX ALL”: ≠>Z〈Z[26] =>PRO NG”SQX ALL” △△Z[8]=1：PROG“SQXJS”：Z[25]=LZ<Z[6] =>PROG”JD ALL”: ≠>Z>N =>PROG”JD ALL”△△PROG“JKCG”。

高速MC公路测量CASIO4800&4850万能坐标计算程序(完整版)

高速公路测量CASIO4800&4850万能坐标计算程序(完整版）程序特点：真正的全线贯通坐标正反计算、任意斜角计算！！！程序中加入测站点，真正的实现了“坐标法”与“极坐标法”两种放样方法的同时显示的功能，使得放样操作方法选择时更加灵活！！！在曲线元要素输入时仅需要输入第一段全部曲线元要素，后面曲线元要素除起点半径、终点半径、曲线长、转向需输入外其他要素均从前一曲线按辛普森8等分计算得出，解决了主线坐标计算无法获得第二段及其以后曲线元起点参数的问题；辛普森公式任意等分，满足所有精度要求；全线曲线元数据一次性程序化输入，参数存储采用扩充变量数据库，无需修改程序内容；多功能采用单程序编程，避免频繁调用子程序，提高运算速度。

一、程序：ZBJSW“1.ZS 2.FS 3.SZ”:W=1=>Z[2]=0:V=0：Goto 1 ΔW=2=> Goto 4ΔW=3=> O “KOU LING”:O≠123456=>O=0: “OUT”◢Goto CΔO=0: V=0:Z[1]=0:Goto 0←┘Lbi 0←┘”N0.”：Z[1]+1 ◢Z[1]=0=>{ABCREFGUKO}:A“X0”:B“Y0”:C“F0”:R“R0”:E“RN”:F“D0”:G “LS”:U“G”:K“X（00）”: O“Y（00）”: Z[Z[1]×8+3]=A:Z[Z[1]×8+4]=B:Z[Z[1]×8+5]=C:Z[Z[1]×8+6]= R-1:Z[Z[1]×8+7]= E-1:Z[Z[1]×8+8]=F: Z[Z[1]×8+9]=F+G: Z[Z[1]×8+10]=U:“NEXT”◢Isz Z[1]: Goto 0ΔZ[1]=1=>D=Z[9]:Z=0:Z[2]=0:GOTO 2ΔD=Z[(Z[1]-1)×8+9]:Z=0:Z[2]=Z[1]-1:GOTO 2←┘Lbi A←┘Z[Z[1]×8+3]=X:Z[Z[1]×8+4]=Y:Z[Z[1]×8+5]=J: Z[Z[1]×8+8]=D: {REGU}:R“R0”：E “RN”: G“LS”:U“G”: Z[Z[1]×8+6]=R-1：Z[Z[1]×8+7]=E-1: Z[Z[1]×8+9]=D+G: Z[Z[1]×8+10]=U:“NEXT”◢Isz Z[1]: Goto 0←┘Lbi 1←┘{DZT }:D：Z：T“RJ”：Z[2]=0:Goto 2←┘Lbi 2←┘V≠1=>Z[2]>Z[1] =>GoToCΔΔD≤Z[Z[2]×8+9]=> A=Z[Z[2]×8+3]:B=Z[Z[2]×8+4]: C =Z[Z[2]×8+5]:R=Z[Z[2]×8+6]: E=Z[Z[2]×8+7]: F=Z[Z[2]×8+8]: G=Z[Z[2]×8+9]: U=Z[Z[2]×8+10]: Goto3ΔIsz Z[2]:Goto 2←┘Lbi 3←┘W=3 =>N=8：≠P＝U（E-R）÷Abs（G-F）：Q＝Abs（D-F）÷N：S=90Q÷π：J＝C+(NPQ+2UR)NS：L=1←┘X＝A+Q÷6×(Cos C+Cos J +4∑（Cos (C+((L+0.5)PQ+2UR)×(L+0.5)S),L,0,(N-1)）+2∑（Cos (C+((LPQ+2UR)LS,L,1,(N-1)))+ZCos（J+ T）←┘Y＝B+Q÷6×(Sin C+Sin J +4∑（Sin (C+((L+0.5)PQ+2UR)×(L+0.5)S),L,0,(N-1)）+2∑（Sin (C+((LPQ+2UR)LS,L,1,(N-1)))+Z Sin（J+T）:V=1=>Goto6ΔV=2=>Goto9ΔV=3=> GOTO CΔW=3=>GOTO AΔZ=0=>“X（Z）=”:X:Pause 0: “Y（Z）=”:Y◢Pol（（X－K），（Y－O））←┘“S（Z）=”:I ◢J<0=> J=J+360Δ“F（Z）=”: J→DMS◢Goto 1ΔZ<0=>“X（L）=”:X:Pause 0: “Y（L）=”:Y◢Pol（（X－K），（Y－O））←┘fx4850①“S（L）=”:I ◢J<0=> J=J+360Δ“F（L）=”: J→DMS◢Goto 1ΔZ>0=>“X（R）=”:X:Pause 0: “Y（R）=”:Y ◢Pol（（X－K），（Y－O））←┘“S（R）=”:J ◢J<0=> J=J+360Δ“F（R）=”: J→DMS◢Goto 1 ←┘Z=0=> X “X（Z）=”◢Y “Y（Z）=”◢Pol（（X－K），（Y－O））←┘I“S（Z）=”◢J<0=> J=J+360ΔJ“F（Z）=”◢Goto 1ΔZ<0=> X “X（L）=”◢Y “Y（L）”◢Pol（（X－K），（Y－O））←┘fx4800②I“S（L）=”◢J<0=> J=J+360ΔJ“F（L）=”◢Goto 1ΔZ>0=> X “X（R）=”◢Y “Y（R）=”◢Pol（（X－K），（Y－O））←┘I“S（R）=”◢J<0=> J=J+360ΔJ“F（R）=”◢Goto 1 ←┘Lbi 4←┘{MH} ：M“X”：H“Y”：Z[2]=0：GOTO 5←┘Lbi 5←┘V=1：D= Z[Z[2]×8+9]：Z=0：T=90：GOTO 2←┘Lbi 6←┘K=（（H -B）Cos（C-90）-（M-A）Sin（C-90））×（（H -Y）Cos（J-90）-（M-X）Sin（J-90））：K≤0=> Goto 7ΔIsz Z[2]：Goto5←┘Lbi 7←┘D=F+Abs((H -B)Cos(C-90)-(M-A)Sin（C-90）)：D>G=> Isz Z[2]: Goto5ΔGoto 8←┘Lbi 8←┘V=2 ：GOTO 3←┘Lbi 9 ←┘K=(H -Y)Cos(J-90)-(M-X)Sin(J-90)：Abs K<（1÷E）^3=>Goto BΔD=D+K ：GOTO 8←┘Lbi B←┘V=3 ：Z=0：Goto 3←┘Lbi C←┘Z=(H-Y) ÷Sin(J+90)：“D”:D:Pause 0: “Z”: Z◢4850输出(Z=(H-Y) ÷Sin(J+90)：D“D”◢Z “Z”◢4800输出)GOTO 4←┘Lbi C←┘二、说明a、编制说明本程序是运用复化辛普生公式根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距，对该曲线段范围内任意里程中边桩坐标进行计算，以及对卡西欧扩充变量的灵活应用，实现了真正意义上的的全线贯通及曲线要素输入程序化（在不修改程序内容的情况下可通过运行程序输入任意多段曲线元要素）。

CASIOfx4850公路放样全能程序

CASIO fx—4850（4800）型编写的公路工程三维坐标测量及放样程序一、简述高速公路、路网工程和新农村公路建设任务繁重，公路建设点多、线长、信息多的特点，迫切要求施工测量现场必须信息全面、快速、灵活、准确，能快捷应对线路长，受地形地物制约较大路段，无规则的斜交构造物、高挖高填路堑路堤边坡、各式各类的平面线型。

以下介绍CASIXfx——4850（4800）型编写的公路工程三维坐标测量及放样程序，该程序不受平面线型、独立单元、线路里程桩号、断面距离、断面斜交角度的限制，能方便快捷地得到施工线路的任何设计坐标值、高程值、断面超高值、断面加宽值、填挖高度、边坡超欠挖宽度、边坡线、对应坐标的里程和边距；只需通过对数据库的编辑，就能满足各种平面线型，且占用空间较小。

本套程序是共有1个主程序，11个子程序。

包括了路线坐标正反算、竖曲线、超高加宽、边坡放样、断面计算及数据库等程序。

适用于CASIO4850/4800，4800用户需要修改清单内结果显示的字段（例如：“X=”：X◢改为X“X=”◢ 或“Z=”：G=H+G◢改为G“Z”=H+G◢）。

二、程序功能及计算范围2.1程序功能根据不同需要，本程序共设置了6种计算模式Ling-ZCX：1-ZS，正算模式：适用于中、边桩计算，里程桩号及边距=>平面坐标。

2-FI，放样1模式：适用于路基、路面施工放样，里程桩号及边距=>平面坐标、路面高程。

3-FS，反算模式：适用于任意点里程、边距计算，任意点坐标=>里程、边距。

4-F2，放样2模式：适用于路基施工放样，任意点坐标=>里程、边距、填挖高度，边坡超欠挖宽度，最近平台高度（<1.5）。

5-Z0，设计高程计算，即竖曲线计算，里程桩号=>设计高程。

6-DM，断面计算，里程桩号、边距=>设计高程、加宽值、指定边桩的高程。

2.2计算范围平曲线：直线-缓和曲线（或无）-圆曲线-缓和曲线（或无）-直线中任意桩号，允许两缓和曲线不等长等标准曲线，也可以计算曲线元、卵形曲线，回头曲线，复曲线，匝道等复杂类型曲线。

4850全线连线计算程序

CASIO4850全线坐标正反算程序主程序：ZHANG LIANGLbI Ø ：Deg:T"WJM":C=2Ø+4Ø(T-1):T=Ø:N"1.SR,2.JS":N=2=> Goto A⊿M"JZ-XX":O"QD-ZH":U"X-Ø ":V"Y-Ø ":G"FWJ ":Lbl B:{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…!”:Isz T: Dsz M:Goto B⊿Lbl A：Fixm:{XYSZN}:T=Ø:N"1.JS-XY,2.XY-FS": N=2=>Goto 2⊿S"JS-ZH=":Z"D=":Lbl 1:S＞Z［8T+1+C］=>Isz T:Goto 1⊿Prog "S3":W=S-O: Prog "S1": "JS-X=":X：Pause Ø:"JS-Y=":Y◢Goto AΔLbl 2: X"X…":Y"Y…":I=X:J=Y:Lbl 3: Prog "S3":W=Abs((Y-V)cos(G-9Ø)-(X-U)sin(G-9Ø:W＞H=> Isz T:Goto 3⊿Prog "S2":"FS-ZH…":S=O+W:Pause Ø:"D…":Z ◢Goto A⊿子程序S1A=.1184634425:B=.2393143352:N=.2844444444:K=. Ø4691ØØ77:L=.23Ø7653449:D=Q r W2(P-R)÷2HPR:E=Q r WP-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]+Bsin Z[4]+Asin Z[5：子程序S2W=Abs((Y-V)cos(G-9Ø)-(X-U)sin(G-9Ø:Z=Ø:Lbl 4:Prog "S1":L=G-9Ø+E+D:Z=(J-Y)cosL-(I-X)sinL:AbsZ<.ØØ1=>Goto 5:≠>W=W+Z:Goto 4⊿Lbl 5: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编制的。

卡西欧4800和4850计算程序

卡西欧4800\4850程序一：坐标反算：(ZBFS)①程序步骤：C”X1”:D”Y1”:E”X2”:F”Y2”:Fixm:Pol(E-C,F-D:I”S1-2=”▲J≤Ｏ＝＞J=J+360△J”A1-2=”②操作过程：ZBFS→EXE→输入X1值→EXE→输入Y1值→EXE→输入X2值→EXE→输入Y2值→EXE→EXE→EXE注：①：S1-2:计算得出的距离。

②：A1-2:计算得出的角度。

（按shift°′″转换为60进制的角度）③：此程序可循环计算。

③案例：已知：D1坐标（7811.23，606.136），D2坐标（7805.915，431.910）求解： a D1-D2(A1-2)=268°15′09.56 ″S D1-D2(S1-2)=174.3071二：坐标正算：(ZBZS)①程序步骤：C”X1”:D”Y1”:S”S1-2”:R”A1-2”:Fixm:X”X2”=C+Rec(S,R) ▲Y”Y2”=D+J②操作过程：ZBZS→EXE→输入X1值→EXE→输入Y1值→EXE→输入S1-2距离值→EXE→输入A1-2角度（例268°15′09.56 ″）值→EXE→EXE注：①：X2计算得出坐标，Y2计算得出坐标。

②：此程序可循环计算。

③案例：已知：D1坐标（7811.23，606.136），两点距离：S D1-D2(S1-2)=174.3071方位角：a D1-D2(A1-2)=268°15′09.56 ″求解：D2坐标（7805.915，431.910三：线路曲线计算程序:（XLQXJS）(万能公式)①程序步骤：1.Lbl 0:{E G}：A“XA”：B“YA”：C“CA”：D“1/RA”：E“1/RB”：F“DKA”：G“DKA”2.Lbl 1:{H O R}:H“DKI”：O“DL”：R“DR”：H＞G=﹥Goto 3⊿3.P=(E-D)/Abs(G-F):Q=Abs(H-F):I=P×Q:T=D+I4.J=C+(I+2D)×Q×90/π ▲5.M=C+(I/4+2D)Q×45/(2π):N=C+(3I/4+2D)Q×135/(2π):6.K=C+(I/2+2D)Q×45/π7.X=A+Q(cosC+4(cosM+cosN)+2cosK+cosJ)/12 ▲8.Y=B+Q(sinC+4(sinM+sinN)+2sinK+sinJ)/12 ▲9.U“XL”=X+Ocos(J-90) ▲10.V“YL”=Y+Osin(J-90) ▲11.W“XR”=X+Rcos(J+90) ▲12.Z“YR”=Y+ Rsin(J+90) ▲13. A=X：B=Y：C=J：D=T：F=H：Goto 1Lbl 3: A=X：B=Y：D=E：F=G：C=J：Goto 0程序说明：A- 曲线元起点A的坐标；B- 曲线元起点B的坐标；C- 曲线元起点A的切线坐标方位角；F- 曲线元起点A的里程；G- 曲线元起点B的里程；H- 曲线上待求点i的里程；D- 曲线元起点A的曲率；E- 曲线元终点B的曲率；XL-左边线点位X坐标；YL-左边线点位Y坐标；XR-右边线点位X坐标；YR-右边线点位Y坐标；X- 中线点位纵坐标；Y- 中线点位横坐标；DL-左边线距中线平距；DR-右边线距中线平距；该程序需要输入的数据为：（1）.曲线元起点A的坐标及切线坐标方位角，计算器上用“XA”，“YA”，“CA”显示；（2）.曲线元起点A和B的曲率，计算器上用I÷RA，I÷RB显示（曲线左偏时取“-”）；（3）.曲线元起点A和终点B的里程，计算器上用“DKA”，“DKB”显示；（4）.输入待求点里程和该点距左右的水平距离，计算器上用“DKI”，“DL”，“DR”显示；每算完一个待求点的中线及边线坐标，程序又让输入下一点的“DKI”，“DL”，“DR”当输入的“DKI”大于“DKB”时程序中显示“1÷RB”和“DKB”，此时输入下一个曲线元起点的曲率和里程，然后重复步骤（4），即可计算下一个曲线中线及边线点位坐标。

CASIO4850坐标正反算程序说明书

CASIO fx4850线路正反算测量程序（全站仪伴侣）CL-测量Norm :Lbl 1:Cls:{U}:U"1 ZS 2 FS"=1 =>Prog "ZS":≠>U=2 =>Prog "FS":≠>Goto 1△△D-读Lbl 1:K[B]=Z[G+B]:Dsz B:Goto 1 FS-反算Lbl 1:Cls:{KVW}:V"X"W"Y":Lbl 2:Prog "P":Pol(V-X,W-Y):J=J-A:I=Rec(I,J):K=K+I:AbsI≥E-3=>Goto 2:≠>Prog "WZ":Goto 1△HQ-缓曲N=I-I^5÷40S2+I^9÷3456S^4-I^13÷599040S^6:M=I^3÷6S-I^7÷336S^3+I^11÷42240S^5:Z=90IAbsI÷πS:J=90-(90-tan-1(M÷N))AbsI÷I:I=√(M2+N2)HY-缓圆I=O:Prog "HQ":Prog "XY":I=K-L-O HZ-缓直I=P: Prog "Y": Prog "XY":I=Q:S=RQ:Prog “HQ”:J=Z-J:Prog "XY":I=K-L-O-P-QML-目录Cls:Fix 3:C=Z[100]:D=Z[101] :Lbl 1:B=6:G=C-6D:Prog "D":K≥L =>K≤M =>C=N:D=O:E=P:F=Q: Goto 2△△Dsz D:Goto 1:Lbl 2P-平Prog"ML": Prog"PM"PM-平面Lbl 1:B=9:G=C-8D-1:Prog "D":K≤T =>Prog "PQ":Goto 2△Dsz D:Goto 1:Lbl 2 PQ-平曲Prog "ZH":K≤L =>Prog "ZX":≠>K≤L+O =>Prog "HQ":≠>Prog "HY":K≤L+O+P =>Prog "Y":≠> Prog "HZ":K≤L+O+P+Q => Prog "HQ" :≠>Prog "ZX"△△△△Prog "XY"PY-偏移Lbl 1:I=0:J=90:{IJ}:I"L"≠0 =>Z=J"<":Prog "XY":Prog "ZB":Goto 1△PZ-平纵Prog "ML":Prog "PM":Prog "ZM"SQ-竖曲Z=N+(K-M)L:K≤M-T =>Z:≠>Z=Z- (K-M+T)2÷2O△WZ-位置"KJ":K:Pause1:J▲XY-XYJ=A+J: A=A+Z:X=X+Rec(I,J):Y=Y+JY-圆J=90I÷πR: I=2RSinJ: Z=2JZ-纵Prog"ML": Prog"ZM"ZB-坐标A=360Frac((A+360)÷360):"ZB":X:Pause 1:Y:Pause 1ZH-直缓X=M:Y=N:A=S:I=K-L:S=ORZM-纵面Lbl 1:B=5:G=E-4F-1:Prog "D":T=Abs(O(P-L)÷2):K≤M+T =>Prog "SQ":Goto2△Dsz F:Goto 1:Lbl 2ZS-正算{U}:Lbl 1:{K}:U"1 B"=1=> Prog "P": Prog "PY" :Goto 1△Prog "PZ":Prog "ZB": Z▲Goto 1ZX-直线J=0:Z=0使用说明运行CL程序首先程序提示正反算1 ZS2 FS？输1正算、输2反算，其它重选。

卡西欧4850坐标计算程序说明

一．文件名:GSZFS（高斯-勒让德）Deg:I=0:I“JS.1,FS.2,SJK.3”：I=1=>GotoA⊿I=2=>GotoC⊿I=3=>GotoB⊿↙LbI A:{KZ}:QXYFLPROKZ“―0+”:Prog“A”:G=G-90:G<0=>G=G+360:G>36 0=>G=G-360⊿⊿“XYF=”:U:Pause0:V: Pause0:G→DMS▲(Q+J)=K=>Goto0: ≠> GotoA⊿↙LbI 0:Q=K:X=U:Y=V:F=G:P=R: “-----AC-----”: ▲ Prog“GS” ↙LbI B: {KZ}:K:Z“―0+”: Prog“SJK”: Prog“A”:C“C.X”:T“C.Y”:I=0:J=0:PoI(C-U.T-V: “FY=”:J=J+180→DMS I▲GotoB↙LbI C:{MN}:M“(X)”:N“(Y)”:K=0: C=0：I=0:J=0:PoI(M-X,N-Y:K=Q+Icos(F-J) ↙LbI 2:K=K-C: Prog“A”:PoI(U-M,V-N:T=G-90-J:C=IcosT:Int(1000C)=0=>Goto3:≠> Goto2⊿↙LbI 3:sinT<0=>A= -1:≠>A=1⊿“(K)=”:K+C: Pause0:“(―0+)=”:IA▲ GotoC↙二．文件名:A（内核）W=K-Q:D=OrW2(P-R)/2LPR:E=OrWP-1:A=.1184634425:B=.2393143352 :S=.046910077:H=.2307653449:Z[1]=F+SE+S2D:Z[2]=F+HE+H2D:Z[3]= F+.5E+.25D:Z[4]=F+(1-H)2D+E(1-H):Z[5]=F+(1-S)2D+E(1-S):G=F+E+D +90+(斜交) ↙U=X+ZcosG+W(AcosZ[1]+BcosZ[2]+.2844444444cosZ[3]+BcosZ[4]+Aco sZ[5]):V=Y+ZsinG+W(AsinZ[1]+BsinZ[2]+.2844444444sinZ[3]+BsinZ[4]+AsinZ[5])三.文件名:SJK（数据库）K≤下个起点桩号=>Q=起点桩号:X=起点（X）:Y=起点（Y）:F=前切线方位角:L=线型长度:P=起点（R）:R=终点（R）:O=转向:≠>K≤。

工程测量4850计算机主线放样程序

程序一、(YX)道坐标正反算引导程序，主程序LBi 1:N“1--2”←N=1=> Prog " YXSJ（线路平面数据库引导程序)": Prog"BZZB边桩坐标"： Prog “HYXSJ （ZX高程数据库”: Prog"H"（高程计算程序）←“X0=”：X◢“Y0=”：Y◢“H0=”：H◢（显示计算点的设计高程）≠> Lbl 1 Goto 1:≠＝＞K=3000:LBi 4：Prog " YX（线路平面数据库引导程序)":Prog " ZZZB ":U “X1”: V “Y1”:Poi(U-X,V-Y)(A点至B点坐标反算）： A=tan-1((V-Y)/(U-X)):(U-X)≤0＝＞A=A+1800：J≤0=>J=J+360∠（B点至A的方位角）≠＝＞A=A+3600△R=A-T：R=J-T：（计算角CAB） I=ㄏ（（V-Y）2+（U-X）2）：F=I(i为AB距离）*CosR：（计算AC距离）K=K+F：Abs（绝对值）F≥0.001=>Goto 1:(设置反算结果的精度，达不到就返回再运算) ≠>Z=I*SinR△“K=”：K◢“Z=”：Z◢（说明：输入1时进入线路坐标正算,输入2时进入坐标反算,当进入坐标反算时会先提示输入里程，这是因为这个坐标反算程序需要先输入一个离计算点相近的里程作为引导参考计算，逐渐接近，可以设置精度，F≥0.001，即计算结果≤0.001m停止计算，并显示结果。

）程序二、(BZZB)边桩坐标计算Prog "ZZZB"：X=X+ Cos(T+G)*Z(G为计算边桩与中线法切线方向的夹角，正为右偏，负为左偏，Z为中桩到边桩的距离，G，Z为0时计算中桩坐标)：Y=Y+Sin（T+G）*Z：“R0=”：T▲程序三、(ZZZB)核心计算程序，线路中桩坐标通用计算公式S=绝对值Abs（K-A）:(计算点到线元起点距离恒为正值)P= (D-C)/绝对值（Abs(B-A)) ：(计算弧长恒为正值)T=R+E( (C+P*S)+ C)*S/2*180/∏:(计算点之切线方位角)T＞360=>T=T-360△T＜0=>T=T+360△A=4 (Cos(R+E((C+P* S/4)+ C)* S/23*180/∏)+ Cos(R+ E ( (C+P* (S/4+ S/2))+ C)* (S/4+ S/2)/2*180/∏))：B=4 (Sin(R+E( (C+P* S/4)+ C)* S/23*180/∏)+ Sin (R+ E ((C+P* (S/4+ S/2))+ C)* (S/4+ S/2)/2*180/∏))←X=X+S/2/6*｛A+2(Cos(R+E((C+P* S/2)+ C)* S/4*180/∏)) +CosT + CosR｝←Y=Y+S/2/6*｛B+2(Sin (R+E((C+P* S/2)+ C)* S/4*180/∏)) +Sin T + Sin R｝：为了尽量简化，此方程式N取值为2等分，如果用在卵形曲线上小于50的半径精度不够。

CASIO4850全线坐标正反算程序

CASIO4850全线坐标正反算程序主程序：ZHANG LINGLbI 0：Deg：T“WJM”：C=20+40（T-1）：T=0：N“1.SR，2.JS”：N=2=>Goto A△M“JZ-XX”：O“QD-ZH”：U“X0”：V“Y0”：G“FWJ”：LbI B：{HRQP}：P“QD-R”：H“XX-CD”：R“ZD-R”：Q“）-1，——0，（+1”：W=H：Z=0：Prog“S1”：Prog“S4”：U=X：V=Y：O=O+H：G=F-90：P=R：“…SR…NEXT…”：Isz T：Dsz M：Goto B△LbI A：Fixm：{XYSZN}：T=0：N“1.JS-XY，2.XY-FS”：N=2=>Goto 2△S“JS-ZH=”：Z“D=”：LbI 1：S>Z[8T+C+1]= >Isz T：Goto 1△Prog“S3”：W=S-O：Prog“S1”：“JS-X=”：X：Pause 0：“JS-Y=”：Y▲Goto A：LbI 2：X“X…”：Y“Y…”：I=X：J=Y：LbI 3：Prog“S3”：W=Abs（（Y-V）Cos（G-90）-（X-U）Sin（G-90：W>H=>Isz T：Goto 3△Prog“S2”：“FS-ZH…”：S=O+W：Pause 0：“D…”：Z▲Goto A子程序S1A=0.1184634425：B=0.2393143352：Z[6]=0.2844444444：K=0.046910077：L=0.2307653449：D=Q r W2（P-R）÷2HPR：E=Q r WP-1：Z[1]=G+KE+K2D：Z[2]=G+LE+L2D：Z[3]=G+0.5E+0.25D：Z[4]=G+(1-L)2D+E(1-L：Z[5]=G+(1-K)2D+E(1-K：F=G+E+D+90：X=U+ZCosF+W(ACosZ[1]+BCosZ[2]+Z[6]CosZ[3]+BCosZ[4]+ACosZ[5]：Y=V+ZSinF+W(ASinZ[1]+BSinZ[2]+Z[6]SinZ[3]+BSinZ[4]+ASinZ[5]子程序S2W=Abs（（Y-V）Cos（G-90）-（X-U）Sin（G-90：Z=0：LbI 4：Prog“S1”：L=G+E+D-90：Z=(J-Y) CosL-(I-X) SinL：AbsZ<E-6=>Goto 5：≠>W=W+Z：Goto4△LbI 5：Z=0：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=[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：[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编制的。

4850计算器坐标放样程序

一般直线，曲线任意桩号放样程序A7QX(文件名)LbI3:Fixm:{L}:L≤53459.53=>Prog”7”:GotoAΔLbIA:Prog”2”:T≤0=>Goto7ΔT>E=>Goto0ΔProg”3”:Prog”4”:LbI1:{SU}:S=0=>Goto3ΔRec(S,Z+QF+U):Prog”5”:Goto1:LbI0:T>H-P-V=>Goto6Δprog”6”:Prog”4”:LbI2:{SU}:S=0=> Goto3ΔRec(S,Z+OF+U):Prog”5”:Goto2:LbI7:Rec(-T,Z+180):Prog”4”: LbI4:{SU}:S=0=> Goto3ΔRec(S,Z+U:Prog”5”: Goto4: LbI6:I=W:G=Z+180(H-P-(V+E)÷2)÷兀RF:Z=G+180: Rec(I,G:K=I+C:G=J+D:T ≥H-P=> Goto5ΔT=H-L:F=-F:E=V:Prog”3”:F=-F:N=K+I▲M=G+J▲LbI8:{SU}:S=0=>Goto3ΔRec(S,Z+180-QF+U:Prog”5”:Goto8: LbI5 :Rec(T-H+P,Z+180):N=K+I▲M=G+J▲LbI9: {SU}:S=0=>Goto3ΔRec(S,Z+180+U):Prog”5”:Goto92(文件名) T=L-P:Pol(C-A,D-B:Z=J3(文件名) W=ER:X=T-T^5÷40W^2+T^9÷3456W^4:Y=T^3÷6W-T^7÷336W^3: Pol(X,Y: Rec(I,Z+JF:Q=90T^2÷R÷E÷兀4(文件名) N=A+I▲M=B+J▲5(文件名) X=N+I▲Y=M+J▲6(文件名) V=E÷2-E^3÷240R^2:G=E^2÷24R-E^4÷2688R^3:O=180(T-0.5E)÷R兀:X=V+RsinO:Y=G+(1-CosO)R:Pol(X,Y:Rec(I,Z+JF7（文件名） (数据库)L=任意桩号 S=居中距离 U＝左-90，右+90 A＝ZH(ZY)点X坐标B= ZH(ZY)点Y坐标 C=交点X坐标 D＝交点Y坐标 E＝LS1 V＝LS2 R=半径 H=YH(YZ)点桩号 P=ZH(ZY)点桩号 F=左转-1，右转+1 W=切线长如果两弯道间没有直线段：L≤ZY(YZ)点桩号 =>Prog”数据库文件名”如果有直线段：L≤下一弯道ZY点桩号 =>Prog”数据库文件名”一般直线，曲线任意桩号放样程序B HYQPXG（文件名）Prog”1”:LbI3:Fixm:{L}:Prog”2”:T≤0=>Goto7ΔT>E=>Goto0ΔProg”3”:Prog”4”:LbI1:{SU}:S=0=>Goto3ΔRec(S,Z+QF+U):Prog”5”:Goto1:LbI0:T>H-P-E=>Goto6Δprog”6”:Prog”4”:LbI2:{SU}:S=0=> Goto3ΔRec(S,Z+OF+U:Prog”5”:Goto2:LbI7:Rec(-T,Z+180:Prog”4”: LbI4:{SU}:S=0=> Goto3ΔRec(S,Z+U:Prog”5”: Goto4:LbI6: G=Z+180(H-P-E)÷兀RF:Z=G+180: Rec(I,G:K=I+C:G=J+D:T≥H-P=> Goto5ΔT=H-L:F=-F: Prog”3”:F=-F:N=K+I▲M=G+J▲LbI8:{SU}:S=0=>Goto3ΔRec(S,Z+180-QF+U:Prog”5”:Goto8: LbI5: Rec(T-H+P,Z+180:N=K+I▲M=G+J▲LbI9: {SU}:S=0=>Goto3ΔRec(S,Z+180+U:Prog”5”:Goto91（文件名) A”X1”B”Y1”C”X2”D”Y2”E”LS”H”HZ”RFP:2(文件名) T=L-P:Pol(C-A,D-B:Z=J3(文件名) W=ER:X=T-T^5÷40W^2+T^9÷3456W^4:Y=T^3÷6W-T^7÷336W^3: Pol(X,Y: Rec(I,Z+JF:Q=90T^2÷R÷E÷兀4(文件名) N=A+I▲M=B+J▲5(文件名) X=N+I▲Y=M+J▲6(文件名) V=E÷2-E^3÷240R^2:G=E^2÷24R-E^4÷2688R^3:O=180(T-0.5E)÷R兀:X=V+RsinO:Y=G+(1-CosO)R:Pol(X,Y:Rec(I,Z+JFL=任意桩号 S=居中距离 U＝左-90，右+90 X1＝ZH(ZY)点X坐标Y1= ZH(ZY)点Y坐标 X2=交点X坐标 Y2＝交点Y坐标 E＝LS1 V＝LS2 R=半径 H=YH(YZ)点桩号 P=ZH(ZY)点桩号 F=左转-1，右转+1任意曲线坐标正反算CASIO-4850计算程序含数据库、测站放样计算（第五次修改-正式版）1.加编数据库及计算总调度程序,计算中不必逐项输入"线元要素",提高运算速度，避免现场忙中出错2.可加入多条线路的数据库,内业输入数据,外业一目了然3.计算直观,人性化4.正算直接输入里程和边距,反算输入近似里程便可5.增加了“计算点与测站点”的距离和方位角计算语句，方便直接放样6.愿收获与大家共享,同时也希望大家提出心得和宝贵建议7.核心计算程序摘自“yshf”一.改动后的程序清单，增设数据库程序,可输入n条线路的数据库1.(QXZDJS 计算总调度程序)M=1=>Prog "SJK1":Prog "SUBSJK"△←┘...........M=n=>Prog "SJKn":Prog "SUBSJK"△←┘2.(SJK1 数据库程序)"1.SZ => XY"："2.XY => SZ"：｛N,S｝：N：S"DKI"←┘S≤本线元终点里程＝＞U=本线元起点X坐标：V=本线元起点Y坐标：G=本线元起点正切线方位角：P=本线元起点曲率半径：R=本线元终点曲率半径：O=本线元起点里程：H=本线元终点里程：Q=本线元左直右偏向(0或1、-1):Goto0Δ←┘S≤下一线元终点里程=＞O=。

卡西欧4800和4850放样坐标计算程序

已知任意点的里程、半宽，计算该点平面坐标的程序前言1、本计算程序适用范围仅限于某ZH点至下一相邻ZH点间的线路范围。

2、使用本程序前需进行导线点坐标计算并求出各个曲线的曲线要素如第一切线方位角、转向角、曲线半径、缓和曲线长度、切线长度、曲线长度等。

3、使用过程中要注意长短链对里程传递的影响关系，否则将导致计算结果错误。

4、往计算器中输入程序符号时将⊿改为。

5、本程序仅供参考,实际使用时请先进行验证。

6、本程序适用的计算器型号为卡西欧4800/4850。

“wangDongping” (程序名称)Defm 13↙XYVWRLZTC：Fixm↙Z[4]=0.5×L－L3÷(240×R2)↙Z[2]=Z[4]+(R+L2÷24÷R)Abs tan(T÷2)：G=Z＋Ans：Fix3：G＂JDDK=＂◢Z[9]=R Abs Tπ÷180＋L：Z[9]＂QXL=＂◢Z[13]=Z＋Ans：Z[13]＂HZDK=＂◢D=C＋T：D＜0⇒D=D＋3600⊿D＞3600⇒D=D－3600⊿D◢Z[11]＂HZX＂=V＋Z[2]×(CosC＋CosD)◢Z[12]＂HZY＂=W＋Z[2]×(SinC＋SinD)◢Norm：Prog＂WEIXONG2＂(程序“WaangDongping”运行到此时，自动转到程序“WangDangping2”进行下一步运行)“WangDongping2”（程序名称）Lb1 0：{K,S,Q,E,F,N,U,H}：P=Q＋Abs(E－F)×N：K≤Z⇒Goto1⊿Z＜K⇒K≤Z＋L⇒Goto2⊿Z＋L＜K⇒K≤Z＋Z[9]÷2⇒Goto3⊿Z＋Z[9]÷2＜K⇒K＜Z[13]－L⇒Goto4⊿Z[13]－L≤K⇒K＜Z[13]⇒Goto5⊿ K≥Z[13]⇒Goto6⊿Goto0↙Lb1 1：Z[1]=V＋(Z－K)×cos(C＋1800)＋Pcos(C＋S)＋Ucos(C＋H)：Z[3]=W＋(Z －K)×sin(C＋1800)＋Psin(C＋S)+Usin(C+H)：Goto7⊿Goto0↙Lb1 2：Z[5]=K－Z－(K－Z)5÷(40R2L2)：Z[6]=（K－Z）3÷（6RL）：A=T÷AbsT：Z[7]=(K－Z)2×180÷(6πRL)：Z[1]=V＋√((Z[5])2＋(Z[6])2)×cos(C＋A×Z[7])＋Pcos(C＋3×A×Z[7]＋S)＋Ucos(C＋3×A×Z[7]＋H)：Z[3]=W＋√((Z[5])2＋(Z[6])2)×sin(C＋A×Z[7])＋Psin(C＋3×A×Z[7]＋S)＋Usin(C＋3×A×Z[7]＋H)：Goto7⊿Goto0↙Lb1 3：B=L×180÷(2πR)：Z[8]=B＋(K－Z－L)×180÷(πR)：Z[5]=Z[4]+R×sinZ[8]：Z[6]=R+L2÷(24R)－RcosZ[8]：Z[7]=tan-1(Z[6]÷Z[5])：Z[10]=(2×(K－Z)－L)×180÷(2πR)：A=T÷AbsT：Z[1]=V+ √((Z[5])2+(Z[6])2)×cos(C+A×Z[7])+Pcos(C+A×Z[10]+S)＋Ucos(C＋A×Z[10]＋H)：Z[3]=W+√((Z[5])2＋(Z[6])2)×sin(C+A×Z[7])+Psin(C+A×Z[10]+S)＋Usin(D＋A×Z[10]＋H)：Goto7⊿Goto0↙Lbl 4：B=L×180÷(2πR)：Z[8]=B+(Z[13]－K－L)×180(πR)：Z[5]=Z[4]+R×sinZ[8]：Z[6]=R+L2÷(24R)－RcosZ[8]：Z[7]=tan-1(Z[6]÷Z[5])：Z[10]=(2×(Z[13]－K)－L)×180÷(2πR)：A=－T÷AbsT：Z[1]=Z[11]+ √((Z[5])2+(Z[6])2)×cos(D+180+A×Z[7])+Pcos(D+A×Z[10]+S)＋Ucos(D＋A×Z[10]＋H)：Z[3]=Z[12]+√((Z[5])2+(Z[6])2)×sin(D+180+A×Z[7])+Psin(D+A ×Z[10]+S)＋Usin(D＋A×Z[10]＋H)：Goto7⊿Goto0↙Lbl 5：Z[5]=Z[13]－K－(Z[13]－K) 5÷(40R2L2)：Z[6]=(Z[13]－K) 3÷(6RL)：A=－T÷AbsT：Z[7]=(Z[13]－K)2×180÷(6πRL)：Z[1]=Z[11]+ √((Z[5])2+(Z[6])2)×cos(D+180+A×Z[7])+Pcos(D+3×A×Z[7]+S)+Ucos（D+3×A ×Z[7]+H）：Z[3]=Z[12]+√((Z[5])2+(Z[6])2)×sin(D+180+A×Z[7])+Psin(D+3×A×Z[7]+S)＋Usin(D+3×A×Z[7]+H)：Goto7⊿Goto0↙Lb1 6：Z[1]=Z[11]+(K－Z[13])×CosD+Pcos(D+S)＋Ucos(D+H)：Z[3]=Z[12]+(K －Z[13])×sinD+Psin(D+S)＋Usin(D+H)：Goto7⊿Goto0↙Lb1 7：M=Z[1]－X：O=Z[3]－Y：Pol(M,O)：J＜0 J=J+3600⊿Fix3：J◢I◢P◢E－F◢M+X◢O+Y◢Norm：Goto0↙坐标程序符号说明1、X，Y：测站坐标2、V，W：ZH点X,Y坐标3、R：曲线半径4、L：缓和曲线长度5、Z：ZH点里程6、T：曲线转向角（左负右正）7、C：第一切线方位角8、K：放样点里程9、Q：放样半宽（平行于S角非切线边在里程点左右侧的宽度，若已知实际半宽P，则Q=P；若放路基边桩则输入变坡点处的半宽P）10、S：放样点与其对应的中线点连线和该中线点切线的夹角（左负右正，即放样点在线路左侧S为负，同理在右侧为正）11、F：放样点地面标高12、N：路基边坡坡度13、E：变坡点设计标高14、P=Q+Abs（E－F）×N（Abs为绝对值），若P为已知，则Q的值直接输入P的值即可，E、F、N均为零。

卡西欧4850型计算器测量放线程序

主程序：ZBJSM:fixm:LbI0:M≥0=>{KS}:KS: ≠>{NE}:NEΔLbI1:F=0:G=0:L=0:Prog”R”:G=0=>G=LΔPol(Q-V,T-W):Z=J:Pol(V-X,W-Y):Q=Z-J:Z=J:Q<180=>Q=Q+360ΔQ>180=>Q=Q-360ΔT=R^-1=(R+TL^2÷24)tg(AbsQ÷2)+L÷2-T^2L^3÷240:U=K-U:U≤L=>X=Up rog”HU”:Goto2ΔU=U-L:J=兀RabsQ÷180-L:U≤J=>X=L:Prog”HU”:U=90U÷兀R:X=X+Rec(2RsinU,U+L):Y=Y+J:L=L+2U:Goto2ΔT=-T:Z=Z+Q:X=L-U+J:Prog”HU”:X=-X:L =-L:LbI2:Q<0=>Y=-Y:L=-L:J=G:G=F:F=IΔX=V+Rec(Pol(X-T,Y),J+Z):Y=W+J:L=L+Z:M<0=>K=K+Rec(Pol(N-X,E-Y),J-L):AbsI≥0.1=>Goto1Δ”K=”:K▲”S=”:S=J▲Goto3?≠>X=X+Rec(S,L+90):”X=”:X▲”Y=”:Y=Y+J▲LbI3:Prog”H”:H=(K-U)(W-V)÷(Z-U)+V:Z=Z-O:U=U+J:K>Z=>H=H+(K-Z)^2÷2RΔK<U=>H=H+(U-K)^2÷2IΔ”H=”:H= H-0.000▲Goto0子程序：HUX≤0=>F=2:G=2:Y=0:L=0:Goto2ΔF=0=>F=2:G=2:Goto1ΔX>G=>G=F:F=-F:Goto1ΔY=F:F=X(-Y-2)÷G+Z:G=4G÷(Y+2):X≥G=>G=-F:≠>G=ZΔLbI1:I=R^-1L^-1:Y=IX^3÷6-I^3X^7÷336:L=90IX^2÷兀:X=X-I^2X^5÷40:LbI2?子程序：DQ=V:T=W:V=X:W=Y:Z=U?子程序：CZ=U:W=V:R=I:O=J子程序：R(曲线要素数据库)P10 X=……:Y=……:Prog”D”:(交点坐标，后向前输)P9 X=……:Y=……:Prog”D”:P8 X=……:Y=……:U=……(P9交点的第一缓和曲线起点里程)：K≥U=>R=……(平曲线半径)：L=……(缓和曲线缓和段长度)：Goto1ΔProg”D”:PN (输入方法同P8)P1 X=……:Y=……:U=……：K≥U=>R=……：L=……:LbI1?子程序：H(竖曲线要素)P10 U=……(竖曲线变坡点里程，从后向前输)：V=……(设计高程)：I=……(竖曲线半径，凸为“-”、凹为“+”)J=……(切线长):Prog”C”:P9 U=……:V=……:I=……：J=……：K≥U=> Goto1ΔProg”C”:PN (输入方法同P9)P1 U=……:V=……:I=……：J=……：LbI1?注： K=所求点里程 S=边距，左“-”、右“+” M＝正算为“+”反算为“-”此程序可把全线路要素输入数据库，能执行直线、圆曲线、LS1=LS1的缓和曲线的坐标，高程放线正反算。

万能坐标计算程序

CASIO fx4850万能坐标计算程序一、程序内容程序：McW“1.js 2.SZ”:W=1=>Goto 1 ΔW=2=> O“KOU LING”:O≠123456=>O=0“OUT” ◢Goto 4 ΔO=0: Defm 83:Z[81]=1:Goto 0←┘Lbi 0←┘{ABCDEFGU}:A“X0”:B“Y0”:C“F0’:D“R0”:E“RN’:F“D0”:G“LS”:U“G” ←┘Z[Z[81]]=A:Z[Z[81]+10]=B:Z[Z[81]+20]=C:Z[Z[81]+30]=1÷D:Z[Z[81]+40]=1÷E:Z[Z[81]+50]=F:Z[Z[81]+60]=F+G: Z[Z[81]+70]=U←┘A=0=> Dsz Z[81]:Goto 1ΔIsz Z[81]:Goto 0←┘Lbi 1←┘{HS}:H“D’:S“Z”:Z[82]=1:Goto 2←┘Lbi 2←┘Z[81]>Z[82] =>”OUT” ◢:Goto5←┘H≤Z[Z[82]+60]=>A=Z[Z[82]]:B=Z[Z[82]+10]:Z[Z[82]+20]=C:D=Z[Z[82]+30]: E=Z[Z[82]+40]: F=Z[Z[81]+50]: G=Z[Z[81]+60]: U=Z[Z[81]+70]: Goto3:ΔIsz Z[82]:Goto 2Lbi 3←┘P＝U（E-D）÷Abs（G-F）：Q＝Abs（H-F）：I＝PQ：J＝C+90 Q（I+2UD）/π： J<0=>J=J+360ΔM＝C+45 Q （I÷4+2UD）÷2π：N＝C+135Q（3I÷4+2UD）÷2π：K＝C+45Q（I÷2+ 2UD）÷π←┘S=0=>Z=0：Goto4ΔS＜0=>Z＝－1：Goto4ΔZ＝1：Goto4←┘Lbi 4X＝A+Q(Cos C+4（Cos M+Cos N）+2Cos K+Cos J) ÷12 +ZSCos（J+90Z) ←┘Y＝B+Q(Sin C+4（Sin M+Sin N）+2Sin K+Sin J) ÷12 +ZSSin（J+90Z) ←┘S=0=>“X”:X:Pause 0: “Y” :Y◢ Goto 1ΔS<0=>“XL”:X:Pause 0: “YL”:Y◢ Goto 1ΔS>0=>“XR”:X:Pause 0: “YR”:Y ◢ Goto 1 ←┘Lbi5←┘二、变量及说明X0：Y0：F0――――曲线元起点X、Y坐标及起点正切线方位角R0：RN――――――曲线元起点及终点半径D0：LS：Q―――曲线元起点桩号、路线长度及线路左右偏标志（左=-1,直线=0,右=1）D――――――――曲线元中待求点桩号Z―――――――――计算边桩距中线平距，左边输入负值，右边输入正值，中桩输入0X：YXL:YLXR:YR ―――――――待求点中边桩桩号的X，Y坐标扩充变量：Z[Z[81]]: Z[Z[81]+10]: Z[Z[81]+20]: Z[Z[81]+30]: Z[Z[81]+40]: Z[Z[81]+50]: Z[Z[81]+60]: Z[Z[81]+70]: 分别为各线元X0:Y0:F0;R0:RN:D0:LS:Q(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。

《CASIO fx-4800、4850、5800测量程序集》

坐标放样(fx-4800)一.源程序:主程序:ZBFY.JSProg“CZ”：Prog“HS”：Lbl o：{XY}：Pol（X-A，Y-S）：J<o⇒J=J+360U=J-Z[2]:U<o⇒U=U+360L=o⇒U“P.SPJ”◢≠⇒J“P.FWJ”◢I“P.D”◢Prog“BCXZ”：Goto o↵子程序：CZA“X（CZ）”：S“Y（CZ）”：W“X（HS）”：D“Y（HS）”： L“SPJ=o，FWJ=1”↵子程序：HSI=o：J=o：Pol（W-A，D-S）：Z[1]“D（HS）”=I◢J<o⇒J=J+360Z[2]“FWJ（HS）”= J◢↵子程序：BCXZI“DS”=I÷（（1+（（Y+S）÷2-5E5）²÷2÷6371000²+（Y-S）²÷24÷6371000²）×（1-300÷（6371000+300）））◢↵二.程序功能：本程序能根据已知坐标进行放样计算。

三.程序说明：子程序BCXZ中的“……1-300÷（6371000+300）……”中的“300”为测区平均高程，主要是针对测区位于高斯坐标投影带边缘而设立的，不同测区时应重新设定之。

四.运行操作：运行ZBFY.JS时：X（CZ）？请输入测站坐标Y（CZ）？X（HS）？请输入后视坐标Y（HS）？SPJ=0，FWJ=1？以水平角放样键“0”，以方位角放样键“1”D（HS）= 显示后视平距FWJ（HS）= 显示后视方位角，按后以°′″格式显示X？请输入待放点坐标Y？P.SPJ（或P.FWJ）显示待放点水平角（或方位角）P.D 显示待放点理论平距DS= 显示待放点修正平距. .. .. .X？请输入待放点坐标Y？引点计算(fx-4800)一.源程序:主程序:YD.JSProg“CZ”：M“H（CZ）”：Prog“HS”：Lbl o：{PVH}：L=o⇒P=P“SPJ”+Z[2]：≠⇒P “FWJ”V“D”：H“h”：X=A+Vcos P◢Y=S+Vsin P◢ H=M+H+6.7336E-8V²◢Goto o↵子程序：CZA“X（CZ）”：S“Y（CZ）”：W“X（HS）”：D“Y（HS）”： L“SPJ=o，FWJ=1”↵子程序：HSI=o：J=o：Pol（W-A，D-S）：Z[1]“D（HS）”=I◢J<o⇒J=J+360Z[2]“FWJ（HS）”= J◢↵二.程序功能：本程序能根据水平角（或方位角）、平距、高差进行三维坐标计算。

casio4850全线坐标计算程序

该程序是本人自己编的适用于casio4850全线坐标计算，发布上来给大家参考，请大家试用指教，如有问题请修改，首先是方位角显示不出来，请高手修改。

一、LXZB（坐标计算主程序）LbI Z：｛P｝A=×××：V=××°××′××″：C=×××：D=×××：P≤直线的终点桩号＝＞Prog“ZX.SUB”：Goto Z（以上各字母含义详直线坐标计算子程序说明）A=×××：V=××°××′××″：C=×××：D=×××：R=×××：I=（1或-1）P≤圆曲线终点桩号＝＞Prog“YQX.SUB”：Goto Z（以上各字母含义详圆曲线坐标计算子程序说明）A=×××：V=××°××′××″：C=×××：D=×××：B=×××：W=××°××′××″：E=×××：F=×××：R=×××：L=×××：I=（1或-1）P≤HY点桩号＝＞Prog“HQ1.SUB”：Goto ZP≤YH点桩号＝＞Prog“HYQ.SUB”：Goto ZP≤HZ点桩号＝＞Prog“HQ2.SUB”：Goto Z（以上各字母含义详（HQ1.SUB、HYQ.SUB、HQ2.SUB）坐标计算子程序说明）该主程序是简单的示例说明，具体的应根据图纸的线型组合，随机应变的做顺序调整，并将其输入Casio4850计算器。

CASIOfx4850万能计算程序.

CASIO fx4850万能计算程序[kaixin100sc正式版]卡西欧计算器程序2009-10-13 17:59:51 阅读236 评论0 字号：大中小经本人反复测试与验证,该程序可说是一个绝无仅有的万能程序,对于匝道当然也非常适用,匝道在立交工程中常常用到，由于其采用线型多样，计算复杂，因此一份适用的计算程序是不可缺少的，本文提供一份万能匝道计算程序，该程序简单，容易上手，输入参数少。

一、说明在高速公路和城市建设中常常运用到互通式立交工程，互通式立交由于曲线元的复杂性和多样性，给施工中的测量定位工作带来困难，手工计算已经不能满足要求，时下CASIO系列计算器在土木工程中已经得到普遍运用，为便于对立交工程匝道的准确测量定位，本人根据多年的测量工作经验，编写出一份适合CASIO fx-4850匝道计算程序，该程序界面好，能计算出匝道各种线元的中线坐标和边线坐标。

二、程序清单QXZDSJK (程序运行子程序,可计算n条线路)T=1=>Prog “SJK1”：Prog “QXZD”：Goto 0⊿(回车)T=n=>Prog “SJKn”：Prog “QXZD”⊿(回车)Lbi 0SJK (子程序--如果有多条线路，可改程序名为SJK1...到SJKn){H}：H“DKI”(回车)H≤曲线元终点里程=>A=曲线元起点坐标：B=曲线元终点坐标：C=曲线元起点正切线方位角：D=曲线元起点曲率：E=曲线元终点曲率：F=曲线元起点桩号：G=曲线元终点桩号：Goto 0⊿(回车)H≤曲线元终点里程=>A=曲线元起点坐标：B=曲线元终点坐标：C=曲线元起点正切线方位角：D=曲线元起点曲率：E=曲线元终点曲率：F=曲线元起点桩号：G=曲线元终点桩号：⊿(回车)Lbl 0(说明：一条线路中有多少个线元就要添加多少个进入数据库SJK中）QXZD (程序名)A"XA":B"YA": C"CA": D"RA":E"RB":F"DKA":G"DKB":Deg (回车)H>G=>{H}:Goto 0:≠>H<F=>{H}:Goto0:ΔL=(H-F)÷4:I=180L÷πD:U=90LL(D-E)÷πDE(G-F):T=C+I+U: W=C+2I+4U:K=C+3I+9U:O=C+4I+16U: ｛ZQ｝:Z"BJ(+0+)" :P=O+Q"JIAJIAO(-0+)":X=A+L(cosC+4(cosK+cosT)+2cosW+cosO)÷3+ZcosP:Y=B+L(sinC+4(sinK+sinT)+2sinW+sinO)÷3+Zsin P (回车)"X=":X▲"Y=":Y▲I=0:J=0:Pol（X-M"X0"，Y-N"Y0"）：J<0＝＞J=J+360：Δ“FWJ=”:J←DMS◢“I=”：I : Lbl 0三、变量及符号说明说明XA：YA：CA――――曲线元起点X、Y坐标及起点正切线方位角RA：RB――――――曲线元起点及终点曲率半径(左偏负，右偏正)DKA：DKB：―――曲线元起点和终点桩号DKI――――――――曲线元中待求点桩号Z―――――――――边桩距中线平距X：Y―――――――待求点中边桩桩号的X，Y坐标X0，Y0――――――置镜点的X，Y坐标FWJ――――――――待防样点的方位角L=―――――――――待防样点到置镜点的距离 Q"[JIA(-0+)]"--------------中点切线与两边桩连线的夹角(左负中0右正)四、示例龙门互通立交D匝道线型及相关数据如下(里面卖些关子,就是曲线元的半径没有给足,你会计算吗?)：点号桩号ＸY 方位角起点半径，止点半径QD, K0000 , 2777862.564 ,544381.888 ,295"56"01″1291,1291YH, K0081.721 ,2777900.604 ,544309.576 ,299"33"37″1291,250HY,K 122.038 ,2777921.779 ,544275.286 ,305"04"30″250,250YH, K 277.085,2778043.376 ,544183.130 ,340"36"33″250,10^45GQ,K 317.085 ,2778081.751 ,544171.883 ,345"11"34″10^45,-135HY,K 367.085 ,2778129.138 ,544156.172 ,334"34"57″-135,-135ZD, K 432.211 ,2778179.092 ,544115.375 ,306"56"31″五、计算步骤1、QD－YH曲线元，该段为圆曲线运行程序，按照提示输入曲线元QD纵横坐标及方位角，半径1291,QD和YH点桩号，再输入该曲线元内所求点桩号即可显示该中线坐标和切线方位角，可以输入YH点桩号K0 81.721验证计算出的结果，之后会提示输入“Z”值，即边线宽度(不分左右,均为正值)，"Q"值既中线与边桩连线的夹角(左负右正中0)。

卡西欧4850选线程序

选线程序S”LS”:{A}:A”IA”:C=0:F=0:U=0:N=0:Lbl 0:{D}:D”AB”:D≠0=>U=U+1:N=N+D:{B}”IIB”:D=C+D:H=D÷sin(A+B):F=F+Hsin B:C=Hsin A:A=A+B:Goto 0⊿I=A÷2:R≠0=>Prog”R”: ≠>T≠0=>Prog ”T”: ≠>J ”T1”≠0=>T=J+F:Prog ”T”⊿L≠0=>R=180(L-S) ÷Л÷A◢Prog ”R”: ≠>E≠0=>W=1-cos I:R=Ecos I÷W÷2+√((Ecos I÷W)2-S2÷6÷W)÷2◢Prog ”R”: ≠>{J}:J=0=>Goto 3: ≠> Goto 4⊿Lbl 3:U=1=>Q=N÷(tan(A÷2-B÷2)+tan(B÷2)): ≠>Q=N÷U÷2÷tan(A÷2÷(U+1)):⊿P=S2÷24÷Q:R=Q-P◢Prog ”R”:Lbl 4:Q=N÷(tan(A÷2-B÷2)+tan(B÷2)):P=S2÷24÷Q:R=Q-P:E=(R+P÷cos I-R:E=E+J:W=1-cosI:R=Ecos I÷W÷2+√((Ecos I÷W)2-S2÷6÷W)÷2◢Prog ”R”⊿RLbl 0:P=S2÷24R-S4÷2384÷240÷R3◢Q=S÷2-S3÷240÷R2◢X=S-S3÷40÷R2◢Y=S2÷6÷R◢L=ЛRA÷180+S◢E=(R+P)÷cos I-R◢U≠0=>J”T1”=T-F◢V”T2’=T-C◢⊿B=R:{R}:R≠0=>Goto 0⊿R=B:Z”ZH”=W”JD”-T+F ◢K”HY”=Z+S◢M”QZ’=Z+L÷2◢G”YH”=Z+L-S◢O=”HZ”=Z+L◢TR=(T-S÷2)÷2÷tan I+√((T-S÷2)2-S2(tan I)2÷6)÷2÷tan I◢Prog ”R’程序使用说明ＬＳ？―――――输入缓和曲线长ＩＡ？―――――输入偏角（度分秒）ＡＢ？―――――输入交点间距（用于虚交点）如为单交则输入０ＩＢ？―――――输入偏角（度分秒）（用于虚交点）Ｒ？――――――输入半径Ｐ＝――――――圆曲线内移值Ｑ＝――――――切线增长值Ｘ＝――――――圆缓点Ｘ坐标Ｙ＝――――――圆缓点Ｙ坐标Ｔ＝――――――切线长Ｌ＝――――――曲线长Ｅ＝――――――外距Ｔ１＝―――――起始边切线长Ｔ２＝―――――终止边切线长Ｒ？＝―――――如为不满意值，请继续输入调整后的半径值，直至满意为止，然后再输０，程序自动进入曲线桩号计算．ＪＤ？―――――输入交点里程桩号ＺＨ＝―――――直缓点里程桩号ＨＹ＝―――――缓圆点里程桩号ＱＺ＝―――――曲中点里程桩号ＹＨ＝―――――圆缓点里程桩号ＨＺ＝―――――缓直点里程桩号。

卡西欧4850程序计算简单绝对不是糊弄

主程序：<TYZDJS>“1。

（小数点）SZ=>XY”：“2。

XY=>SZ”：M：O“ZHK”：U“X0”（注意零和字母O的区别）：V“Y0”：G“QFWJ”：H“LS”：P“RA”：R“RB”：Q：D=(P-R)/(2HPR)：M=1=>Goto （符号）1：≠=> Goto2⊿Lb1 1：〔SZ〕（这个是大括号）:S“K”：Z:W=Abs（绝对值符号）（S-O）：Prog“SUB1”：“XS=”：X=X◣“YS=”：Y=Y◣“FS=”：F=F-90◣C“X1”:E“Y1”：I=0：J=0：Pol（X-C，Y-E）：“JULI=”:I=I◣J〈0=>J=J+360⊿“FWJ=”:J◣Goto1Lb12：〔XY〕（这个是大括号）：XY:I=X：J=Y：Prog“SUB2”：“K=”：S=O+W◣“B=”Z=Z◣Goto2 ⊿子程序<SUB1>A=011739274226:B=0.3260725774:K=0.0694318442:L=0.3300094782:F=1-L:M=1-KX=U+W(Acos(G+57.2958QKW(1/P+KWD))+Bcos(G+57.2958QLW(1/P+LWD))+Bcos(G+57.2958QFW (1/P+FWD))+Acos(G+57.2958QMW(1/P+MWD))):Y=V+W(Asin(57.2958QKW(1/P+KWD))+Bsin(G+ 57.2958QLW(1/P+LWD))+Bsin(G+57.2958QFW(1/P+FWD))+Asin(G+57.2958QMW(1/P+MWD))):F =G+57.2958QW(1/P+WD)+N“N=90”:X=X+ZcosF:Y=Y+ZsinF子程序<SUB2>T=G-90:W=Abs（绝对值符号）((Y-V)cosT-(X-U)sinT):Z=0: Lb10: Prog“SUB1”：L=T+57.2958QW(1/P+WD):Z=(J-Y)cosL-(I-X)sinL: Abs（绝对值符号）Z<1E-6=> Goto1：≠=>W=W+Z：Goto 0◣Lb1 1:Z=0: Prog“SUB1”：Z=(J-Y)/sinF子程序<QXZDJS>“1=>SJK1”：“2=>SJK2”:M=1=> Prog“SJK1”：Prog“TYQXJS”⊿M=2=> Prog“SJK2”◣M=n=> Prog“SJKn”◣注：⊿——按 Function 键 --3----3◣ ---- SHIFT +X2计算说明：运行主程序，屏幕显示M?输入1 正算 2 反算屏幕显示ZHK? 起点桩号屏幕显示X0? 起点X坐标屏幕显示Y0? 起点Y坐标屏幕显示QFWJ? 输入起点方位角屏幕显示LS？曲线长屏幕显示RA? 曲线起点的曲率（即起点半径）屏幕显示RB? 曲线终点的曲率（即终点半径）屏幕显示Q? 左偏-1 右偏1屏幕显示K? 带求点的里程桩号？屏幕显示Z ? 偏矩如果有不懂的+QQ273456237。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

卡西欧4850万能放线程序卡西欧计算器程序 2009-10-13 17:54 阅读19 评论0字号：大中小主程序：ZBJSM:fixm:LbI0:M≥0=>{KS}:KS: ≠>{NE}:NEΔLbI1:F=0:G=0:L=0:Prog”R”:G=0=>G=LΔPol(Q-V,T-W):Z=J:Pol(V-X,W-Y):Q=Z-J:Z=J:Q<180=>Q=Q+360ΔQ>180=>Q=Q-360ΔT=R^-1=(R+TL^2÷24)tg(AbsQ÷2)+L÷2-T^2L^3÷240: U=K-U:U≤L=>X=Uprog”HU”:Goto2ΔU=U-L:J=兀RabsQ÷180-L:U≤J=>X=L:Pro g”HU”:U=90U÷兀R:X=X+Rec(2RsinU,U+L):Y=Y+J:L=L+2U:Goto2ΔT=-T:Z=Z +Q:X=L-U+J:Prog”HU”:X=-X:L=-L:LbI2:Q<0=>Y=-Y:L=-L:J=G:G=F:F=IΔX=V+Rec(Pol(X-T,Y),J+Z):Y=W+J:L=L+Z:M<0=>K=K+Rec(Pol(N-X,E-Y),J-L):AbsI≥0.1=>Goto1Δ”K=”:K▲”S=”:S=J▲Goto3?≠>X=X+Rec(S,L+90):”X=”:X▲”Y=”:Y=Y+J▲LbI3:Prog”H”:H=(K-U) (W-V)÷(Z-U)+V:Z=Z-O:U=U+J:K>Z=>H=H+(K-Z)^2÷2RΔK<U=>H=H+(U-K)^2÷2IΔ”H=”:H=H-0.000▲Goto0子程序：HUX≤0=>F=2:G=2:Y=0:L=0:Goto2ΔF=0=>F=2:G=2:Goto1ΔX>G=>G=F:F=-F:Goto1ΔY=F:F=X(-Y-2)÷G+Z:G=4G÷(Y+2):X≥G=>G=-F: ≠>G=ZΔLbI1:I=R^-1L^-1:Y=IX^3÷6-I^3X^7÷336:L=90IX^2÷兀:X=X-I^2X^5÷40:LbI2?子程序：DQ=V:T=W:V=X:W=Y:Z=U?子程序：CZ=U:W=V:R=I:O=J子程序：R(曲线要素数据库)P10 X=……:Y=……:Prog”D”:(交点坐标，后向前输)P9 X=……:Y=……:Prog”D”:P8 X=……:Y=……:U=……(P9交点的第一缓和曲线起点里程)：K≥U=>R=……(平曲线半径)：L=……(缓和曲线缓和段长度)：Goto1ΔProg”D”:PN (输入方法同P8)P1 X=……:Y=……:U=……：K≥U=>R=……：L=……:LbI1?子程序：H(竖曲线要素)P10 U=……(竖曲线变坡点里程，从后向前输)：V=……(设计高程)：I=……(竖曲线半径，凸为“-”、凹为“+”)J=……(切线长):Prog”C”:P9 U=……:V=……:I=……：J=……：K≥U=> Goto1ΔProg”C”:PN (输入方法同P9)P1 U=……:V=……:I=……：J=……：LbI1?注： K=所求点里程 S=边距，左“-”、右“+” M＝正算为“+”反算为“-”此程序可把全线路要素输入数据库，能执行直线、圆曲线、LS1=LS1的缓和曲线的坐标，高程放线正反算。

不能执行回头曲线，复曲线和LS1≠LS2的缓和曲线及卵形曲线1．中边桩计算程序<1>主程序名—XYLbl 1:{KM}：K：M：Prog”3”:X=C+Mcos(W-90:Y=D+Msin(W-90:”X=”:X:Pause 0:”Y=”:Y▲Goto1<2>子程序—3PrOg”QX”：Prog”20”<3>曲线要素—QX数据实例：某高速公路中线设计如下图所示K<2000=>B:E:F:O:P:Q:R: K≤4570=>B=25:E=1000:F=1000:O=100P=66:Q=4000:R=800: K≤5040=>B=-17:E=1086.4378:F=1555.1451:O=90:P=91:Q=4570:R=800: K≤5670=>B=35:E=1168.2556:F=2016.0909 :O=120:P=74:Q=5040:R=1000: B=-25:E=1180.9927:F=2636.2334:O=150:P=109:Q=5670:R=1500注：无缓和曲线时，O=0.00001当输入里程小于2000时，为新曲线要素输入，可修改值域范围<4> 计算过程—20Z=O：Prog”8”：A=B/AbsB:L=ABπR/180+O:T=(D+RcosN)tan (AB/2)+C-RsinN：K≤Q-T=>C=(K-Q)cosP+E：D=(K-Q)sinP+F:W=P： K ≤Q-T+O=>Z=K-Q+T：Prog”9”：K≤Q-T+L-O=>Z=O: Prog”9”:V=90(K-Q+T-O)/ πR:S=2R sinV:N=W+AV:C=C+S co sN:D=D+S sinN:W=W+2AV:Z=Q-T+L-K: Prog”8”:V=P+B-180-AV:W=P+B-AN:C=S cosV+E+T cos(P+B:D=S sinV+F+T sin(P+B: Z=K-Q+2T-L:W=P+B:C=E+ZcosW:D=F+Z sinW△△△△N=Z[3]<5> 缓和曲线方程式—8V=RO:C=Z-Z^5/40V2+Z^9/3456V^4:D=Z^3/6V-Z^7/336V^3+Z^11/42240V^5:N=90Z^2/πV:V=tan-1(D/C:S=(D^2+C^2)^0.5<6> 子程序—9Prog”8”:C=Scos(P+AV)+E-TcosP:D=Ssin(P+AV)+F-TsinP:W=P+AN2.桩号、边桩距返算程序—KM方式一：试算法（速度慢，程序简单）Fixm:K=Q-T+L-O:Prog”20”Lbl 1:{XY}Lbl 2:POL(X-C,Y-D:K=Isin(J-W+90)+K:Abs sin(J-W+90)<0.0001＝> ”K=”:K:Pause0:”M=”:M=Icos(J-W+90▲≠>Prog”20”:Goto2△方式二：解算法（程序复杂，计算速度快）Defm5: Lbl 1:Fixm:{XY}:Pol(X-E,Y-F:Z[1]=I:Z[2]=J:cos(J-P<0＝>K=Q+Icos(J-P: ≠>K=Q+Icos(J-P-B)+2T+L△K≤Q-T＝>M=Icos(J-P+90:Goto5≠>Goto2△△Lbl 2:Z=O:Porg”8”:U=(D+RcosN)+cos(B/2):Z=P+B/2+90A:C=UcosZ+E:D =UsinZ+F:Pol(X-C,Y-D:Asin(J-P-AN+90 A<0＝>K=K-AZ[1]cos(Z[2]-P+90 )tan(90 (K-Q+T)^2/πRO):Goto3: ≠>Asin(J-P-B+AN+90A>0 ＝>K=K-AZ[1]cos(Z[2]-P-B-90 )tan(90(K-Q+T-L)^2/πRO):Goto4: ≠>K=Q-T+O+Asin-1 (sin(J-P-AN+90 A))×πR/180 :M=A(I-R:Goto5△△Lbl 3:Z=K-Q+T:Prog”9”Pol(X-C,Y-D:K=K+Isin(J-W+90 :Abs sin(J-W+90 <.001＝>M=Icos(J-W+90 :Goto5: ≠>Goto3△Lbl 4:Z=Q-T+L-K:Prog”8”:V=P+B-180-AV:W=P+B-AN:C=cosV+E+Tcos(P+B:Pol(X-C,Y-D:K=K+Isin(J-W+90 :Abs sin(J-W+90 <.001＝>M=Icos(J-W+90:Goto5: ≠>Goto4△Lbl 5:”K=”:K:Pause0:”M=”:M▲注：程序“20”为中桩计算程序Q—直缓点里程；T—切线长，L—曲线长；O—缓和曲线长；W—切线方位角Pol—极坐标转换，为涵数特别注意数字0和字母O的区别缓和曲线上任意点的支距坐标公式：x=l-l^5/(40R^2Ls^2)y=l^3/(6RLs)-l^7/(336R^3Ls^3)l---缓和曲线上任意点到ＺＨ或ＨＺ的曲线长，Ls ---缓和曲线长，R---曲线半径圆曲经上任意点的支距坐标公式：x=RSinφ+my=R(1-Cosφ)+pφ=180l/(Rπ)＋β0p=Ls^2/(24R) ,β0=90Ls/(Rπ),m=Ls/2-Ls^3/(240R^2)l---圆曲线上任意点到ＨＹ或ＹＨ的曲线长坐标的平移和和旋转公式为:X=X0+xCosA-ySinAY=Y0+xSinA+yCosAX,Y---任意点在平面直角坐标系中的坐标X0,Y0---局部坐标系的原点在平面直角坐标系中的坐标x,y---任意点在局部坐标系中的支距坐标A---局部坐标系中x轴正向的方位角。