您的位置：360文档中心› 铁路曲线坐标计算程序(4800P)

铁路曲线坐标计算程序(4800P)

合集下载

卡西欧4800P计算器程序

卡西欧4800P计算器程序

环运算语句J 子程序名称H=X+DcosG◣ 公式运算、数据显示语I=Y+DsinG◣ 公式运算、数据显示语T=X—EcosG◣ 公式运算、数据显示语U=Y—EsinG◣ 公式运算、数据显示语最后计算器状态设定语句是大家最容易忽视的。

如果将单位进行预设那么计算器就会默认其使用单位在进行下一单位换算时要一定要进行单位转换，否者会使计算结果错误。

在显示屏幕的左下角可以清楚地发现小提示符号：如D代表度为现在的缺省单位、R代表弧度为现在的缺省单位、G 代表梯度为现在的缺省单位。

首页┊ GPS测量┊工程测量┊遥感测量┊地籍测量┊控制测量┊数字测图┊地图制图┊数据处理┊测绘仪器┊软件应用┊房产测量┊地理信息┊测量管理┊程序开发┊理论文章┊其他┊ 文章更新列表┊游客发布论文所属分类：程序开发来源：作者：更新日期：2006-8-25 阅读次数：156 文章更新列表查看公告列表00-54700”Lbl 1:｛ZKB｝:Z:K:B:O=1=＞Goto 2△O=2=＞Goto 3△O=3=＞Goto 4△Lbl 2:Z＜47264=＞Goto 5△Z＞501▲Goto 0Lbl 6:Prog“DQXY”:“X=”:X:Pause 0:“Y=”:Y▲Pol（X-Q,Y-U）:J＜0=＞J=360+J△:I=Intg（1000I+.5）Z、待求点的桩号。

K、待求点在左幅输0右幅输1。

B、待求点距中距离。

Goto 5前的桩号为起止点或断链点桩号。

P T÷100T-Int T）÷.6X=Q+Rec（L,T）:Y=U+J:“X=”:X:Pause 0:“Y=”:Y▲Lbl 1:Prog“55”:Prog“YS”:Z＞48980 oto 4△Prog“FQ”: Goto ZLbl 4:Prog“57-1”:Prog“YS”:Z＞50354.96=＞Goto 5△Prog“FQ”Z＞50167.16 =＞Z og“FQ”: Goto ZLbl 7:Prog“60”:Prog“YS”:Z＞52546.8=＞Goto 8△Prog“FQ”: Goto ZLbl 8:Prog“61”:Pro B△Prog“FQ”: Goto ZLbl B:“CX ERROR”▲ Goto 0Lbl Z:Z=Intg（1000Z+.5）÷1000:B=Intg（1000B+.5）÷100号为第2个曲线组合的ZH点桩号，以后类推。

4800-4850p《多条曲线坐标计算程序》

4800-4850p《多条曲线坐标计算程序》

ZHCHXU（线路坐标、放样计算主程序）提示：必须先执行一次“Defm 60”命令，使扩展变量得到确认Deg:Norm:Lb1 S:Z＜1=»{QU}:Q″X o″: U″Y o″ΔFix4: Z≥3=»U=0:K=1mInt Z[Z]kΔFixm:Lb1 A:Z≠.1=»{K}ΔM=K: N=3:Lb1 B:Z[N+3:Rnd:K＜Ans=»Prog″D″:Pol(X[N]-X[N-3], Y[N]-Y[N-3:V=J: Pol(X[N+3]-X[N],Y[N+3]-Y[N:W=J: S=Sin-1Sin(W-V:C=AbsS:S=S÷C:H=1k Frac1E4Z[N:G=1E5Frac X[N]k+Frac1E4Y[N:L=GC÷1r+H:E=G+H2÷(24G)-H4÷(2688G3):T=E tan.5C+H÷2-H3÷240 G2:E=E÷Cos.5C-G:R=GS:Z[N:Rnd: Z≥4=»Q=AnsΔP=K-Ans: D=P:X=Rec(-T,V)+ X [N:Y=J+Y[N:D≤0=»A=X+Rec(D,V:B=Y+J:F=V:≠»C=V:O=2:Prog″ H ″ΔP＞H=»O=3:D=P-L÷2: C=V+90S+.5Sin-1Sin(W-V: X=Rec(E+G , C)+X[N:Y=J+Y [N: A=X+ Rec(-G , D r÷R+C: B=J+Y:F= D r÷R+C-90SΔP＞L-H=»O=4: D=P-L: R=-R:X=Rec(T , W)+X[N:Y=J+Y[N:C=W:D＜0=»Prog″ H ″: ≠»O=0:A=X+Rec(D,W:B=J+Y: F=WΔΔH≠0=»E=Abs D÷HΔD=0: P=90:Lb1 0:P″ANG .″:Rec(D , P+F:X=A+I:Y=B+J: Prog″ F ″:Z≥1=»X:Pause 0:Y: Pause 0Δ◄┘Z=.2=»Fix1:Goto SΔ Z≠.1=»{D}Δ Z≥6=»U=1=»D″[HY]″ΔU=2=»D″[QZ]″ΔU=3=»D″[O]″ΔU=4=»D″[YH]″ΔU=5=»D″[HZ]″ΔD″[ZH] ″ΔO=2=»D″D r″ΔO=3=»D″D o″ΔO=4=»D″D2r″ΔD=i=»P=0:D=0:{PD}:Goto 0 Δ Z≥3=»K=Q=»K=Q+H+ln ΔU=1=»K=Q+L÷2ΔU=2=»D=R: U=3:Goto 0ΔU=3=»K=Q+L-HΔU=4=»K=Q+L-.4mΔIsz U:U=6=»Z=Z+3: Goto SΔ Goto AΔD=0=»Z=.1=»M=M-I Cos(F-J): Pause 0:Abs(F-J)÷90:Rnd:Ans=1=»I Sin(F-J:Pause 0:K=M: Goto SΔΔK=M: Goto A ΔFrac D k≠0=»D÷π:A=X:B=Y:P=0: Goto 0 Δ P=90: Goto 0:≠»N=N+3: Goto B◄┘H（数据输入子程序）H≠0=»Rec(D-D5÷90R2H2 ,D2r÷6RH+C:A=I+X:B=J+Y:F=D2r÷2RH+CΔF（计算子程序）Z=.2=»Pol(Qm-Frac X,Um-Frac Y): ≠»K=0=»{XY}Δ Pol(Q-X,U-YΔ Z=.5 =»X: Pause 0:Y:Pause 0: ″X=″:″Y=″▲ΔZ ≠1=»J=J+πr: 60Frac J:Int J+10mInt Ans+6mFrac Ans:Fix 4:Pause 0: Fix 3: I:Pause 0:Z=.2=»Fix 1:100 I:Pause 0:Ans Sin(F-J):Pause 0ΔD（数据输入子程序）A=0:B=0:N=3=»A=0:B=0Δ K＞A=»K＜B=»0:″TIU NRO″:″NEEKZISAS″: Prog″ZHCHXU ″ΔΔK≥B=»O=1: K≤A=»{O}ΔK=K+AO″KIU″-BOΔ◄┘FD（计算子程序）Lb1 0:{XYLF}:Fix3:Q″X o″: U″Y o″:D=Pol(X-Q,Y-U:J＜0=»J=J+360ΔJ:60Frac J:J=Int J+10mInt Ans+6mFrac Ans:Fix 4:Pause 0:D:Fix 3:Pause 0:SHU（基本数据输入子程序）Norm:Lb1 0: {NKRHXY}:NXY:Z[N]=K+1E -7H:X[N]=X+1E-8Int R:Y[N]=Y+1E -4Frac R:N=N+3:Goto 0◄┘说明：1、必须先执行一次“Defm 60”命令，使扩展变量得到确认；2、“m”和“k”均在“FUNCTION”的1-“MATH”里；3、“E”是“EXP”；4、“o”和“r”均在“FUNCTION”的5-“DRG”里；2-----------CASIO fx---4800p <<多条曲线坐标计算程序>> ------整理：刘欣--------<<多条曲线坐标计算程序>>---------3一、程序输入说明：1、输入本程序前必须先扩容60个字节 (特别强调) ；2、输入数时小数点前面的位数只能≤5位，小数点后面只能保留3位；3、每个曲线的编号为3的倍数，第一个曲线N=3；第二个曲线N=6；第三个曲线N=９．．．．．．；4、输入Ｎ后，再输入交点ＪＤ的Ｘ、Ｙ坐标值，Ｋ为曲线起点的里程、Ｈ为缓和曲线长度、Ｒ为曲线半径；5、输入时最少要输入３个曲线的资料此程序才能运算；二、本程序计算范围说明：1、计算方位角和距离Z=0 例：测站（6551.446, 8080.424） 中桩K3+307.5方位角250-17-28 平距330.872例： 测站（同上） k=0, KIU=π任意点（6600,6600）方位角271-52-43 平距1481.222、计算中边桩坐标Z=13、以上二者兼而有之Z=0.54、根据坐标推算里程桩号 Z=0.15、计算路线中线偏位 Z=0.26、计算曲线逐点坐标 Z=N7、计算斜交涵洞轴线 D=i8、在切线方向前后移动 D=π9、返回输入桩号状态 D=0三、启动主程序“ZHCHXU ”进行计算说明：1、 Ｚ输入１时，再输入中桩的里程K ，即可得到中桩的坐标XY ；D 为中桩左右侧边桩的平距：● 如果该中桩位于直线上，则D 辨别为“D ”；如果该中桩位于第一缓和曲线上，则D 辨别为“D r ”；如果该中桩位于圆曲线上，则D 辨别为“D O ”； 如果该中桩位于第二缓和曲线上，则D 辨别为“D 2r ”；● 左侧边桩为“－”值，即可得到左侧边桩的坐标XY ；右侧边桩为“＋”值，即可得到右侧边桩的坐标X 、Y ；2、Z 输入0时，可计算中桩的或任何一个坐标值的方位角和边长，结果显示方位角为度分秒，边长显示米。

4800计算器曲线计算程序

4800计算器曲线计算程序

线路测设坐标计算程序（Casio fx-4800p）在铁路、公路工程勘测和施工测量中，相对复杂的线路测设工作占了很大比重，且传统线路测设公式已不能满足现代化曲线测设的需要。

为此，笔者根据工程测量的特点，严格定义了坐标系，推导了线路测设的通用计算公式。

该公式不但可以计算单交点平曲线坐标，同时还可以计算复曲线坐标，如不完整缓和曲线等。

根据该公式，笔者编写了Casio fx-4800p 计算器上的单交点平曲线中桩、边桩坐标计算程序。

该程序可以判断已知数据输入的正确性，并可限制输入的测设点里程。

在程序编制过程中，已考虑了零溢出问题。

一．使用说明1.起动名为“ZXZB”的计算程序。

2.输入已知数据：X(QD)—起点纵坐标(EXE)Y(QD)—起点横坐标(EXE)X(JD)—交点纵坐标(EXE)Y(JD)—交点横坐标(EXE)S(JD)—交点里程(EXE)X(ZD)—终点纵坐标(EXE)Y(ZD)—终点横坐标(EXE)RY —圆曲线半径(EXE)L1 —前缓和曲线长度(EXE)RS —前缓和曲线起始半径（0表示无穷大）(EXE)L2 —后缓和曲线长度(EXE)RE —后缓和曲线结束半径（0表示无穷大）(EXE)S(HZ1) —起点缓直点里程(EXE)S(ZH1) —交点直缓点里程(EXE)S(HZ2) —交点缓直点里程(EXE)S(ZH2) —终点直缓点里程(EXE)S? —测设点里程(EXE)X=*** —显示测设点纵坐标(EXE)Y=*** —显示测设点横坐标(EXE)I? —边桩距（左负右正）(EXE)XB=*** —显示边桩纵坐标(EXE)YB=*** —显示边桩横坐标(EXE)I? —输入0结束边桩计算，继续下一测设点计算。

二．计算举例1．已知数据：X(QD)=2175.199 Y(QD)=1015.467X(JD)=2000 Y(JD)=2000S(JD)=6000X(ZD)=2621.088 Y(ZD)=2783.741RY=600L1=220 RS=5800L2=180 RE=3300S(HZ1)=5200 S(ZH1)=5631.047S(HZ2)=6311.047 S(ZH2)=67002.求：各测设点中桩坐标及左边桩10M、右边桩20M坐标3.计算结果三．源程序清单ZXZB1. Defm 15：Rad：Norm↙2. A＂X(QD)＂:B＂Y(QD)＂:C＂X(JD)＂:D＂Y(JD)＂:Z＂S(JD)＂:E＂X(ZD)＂:F＂Y(ZD)＂:N＂RY＂↙3. Q＂L1＂:R＂RS＂:V＂L2＂:W＂RE＂:G＂S(HZ1)＂:H＂S(ZH1)＂:K＂S(HZ2)＂:L＂S(ZH2)＂:Fixm↙4. O＝H＋Q:P＝K－V:M＝Pol (C－A,D－B):T＝J:Z[3]＝J: Z[1]＝C＋Rec (Z－H,J＋π):Z[2]＝D＋J↙5. M＝Pol(E－C,F－D):Z [12]＝J:T＝J－T:Abs T＞π＝＞T＞π＝＞T＝T－2π: ≠＞T＝T＋2π△△↙6. T＞0＝＞Z[13]＝1:≠＞Z[13]＝－1△↙7. R＝0＝＞Z[14]＝0:≠＞Z[14]＝QN÷(R－N)△↙8. W＝0＝＞Z[15]＝0:≠＞Z[15]＝VN÷(W－N)△↙9.Q＝0＝＞I＝0:≠＞I＝(2QZ[14]＋Q²) ÷2÷N÷( Z[14]＋Q)△↙10.V＝0＝＞J＝0:≠＞J＝(2V(Z[15]＋V)－V²)÷2÷N÷( Z[15]＋V)△↙11.Z[6]＝Z[3]＋I Z[13]: Z[9]＝Z[12]－JZ[13] ↙12.T＝Abs T－I－J:J＝TN:Abs(P－O－J)＞0.05＝＞＂ERROR＂▲Goto 1△↙13.M＝Q:Prog ＂ZHD＂:Z[4]＝X:Z[5]＝Y:M＝J:Porg ＂HYD＂:Z[7]＝X:Z[8]＝Y:M＝V:Prog ＂YHD＂: Z[10]=X:Z[11]＝Y↙14.Prog ＂ZXZS＂↙15.Lbl 1:0:＂＂:Pause 0ZXZS1.Rad:Norm:Fixm2.Lbl 2:{S}:S＜G＝＞＂RANGE OUT＂▲Goto 5△↙3.S＞L＝＞＂RANGE OUT＂▲Goto 5△↙4.S＜H＝＞M＝Z[3]:X＝Z[1]＋Rec(S－H,M):Y＝Z[2]＋J:Goto 3△↙5.S＜O＝＞M＝S－H:Prog ＂ZHD＂:Goto 3△↙6.S＜P＝＞M＝S－O:Prog ＂HYD＂:Goto 3△↙7.S＜K＝＞M＝S－P:Prog ＂YHD＂:Goto 3△↙8.M＝Z[12]:X＝Z[10]＋Rec(S－K,M):Y＝Z[11]+J↙9.Lbl 3:I＂X＂＝Int (1000X＋0.5)÷1000▲J＂Y＂＝Int(1000Y＋0.5)÷1000▲10.Lb1 4:I＝0:{I}:I＞0＝＞Goto 2△↙11.T＝X＋Rec(I,M+π÷2):U＝Y＋J:T＂XB＂＝Int (1000T+0.5)÷1000▲U＂YB＂＝Int(1000U＋0.5)÷1000▲Goto 4↙12.Lbl 5:0:＂＂:Pause 0ZHD1.Fixm:M＜0.001＝＞T＝0:U＝0:M＝Z[3]:Goto 6△↙2.I＝Z[14]:X＝N(I＋Q):Y＝Z[13]:T＝M－(20I²＋15IM＋3M²)M^3÷120÷X²:T＝T＋((1008I+1680M)I^3＋1080I²M²＋(315I＋35M)M^3)M^5÷120960÷X^4↙3.U＝((70I+84M)I²＋(35I+5M)M²)M^4÷1680÷X^3:U＝(3I＋M)M²÷6÷X－U:U＝U＋((3696I＋7920M)I^4＋(6930I＋3080M)I²M²＋(693I＋63M)M^4)M^6÷2661120÷X^5:U＝UY↙4.M＝(2IM+M²)÷2÷X:I＝Z[3]:M＝I＋MY↙5.Lbl 6:X＝Z[1]＋Tcos I－Usin I:Y＝Z[2]＋Tsin I＋Ucos IHYD1.Fixm:M＝M÷N:I＝Z[6]:Y＝Z[13]:T＝Nsin M:U＝(N－Ncos M)Y:M＝I＋MY2.X＝Z[4]＋Tcos I－Usin I:Y＝Z[5]＋Tsin I＋Ucos IYHD1.Fixm:M＜0.001＝＞T＝0:U＝0:M＝Z[9]:Goto 7△↙2.I＝Z[15] ＋V:X＝NI:Y＝Z[13]:T＝M－(20I²－15IM＋3M²)M^3÷120÷X²:T＝T＋((1008I－1680M)I^3＋1080I²M²－(315I－35M)M^3)M^5÷120960÷X^4↙3.U＝((70I－84M)I²＋(35I－5M)M²)M^4÷1680÷X^3:U＝(3I－M)M²÷6÷X－U:U＝U＋((3696I－7920M)I^4＋(6930I－3080M)I²M²＋(693I－63M)M^4)M^6÷2661120÷X^5:U＝UY↙4.M＝(2IM－M²)÷2÷X:I＝Z[9]:M＝I＋MY↙5.Lbl 7:X＝Z[7]＋Tcos I－Usin I:Y＝Z[8]＋Tsin I＋UCos I注: 1.由于本计算器程序容量为4500步，本程序只能计算单交点平曲线；2.当已知数据输入存在错误时，程序能够自动判断错误后退出；3.当输入的测设点里程超出范围时，计算自动终止；4.编制程序过程中已经考虑了零溢出问题。

卡西欧4800坐标正反算通用程序(终极篇)

卡西欧4800坐标正反算通用程序(终极篇)

卡西欧4800坐标正反算通用程序(终极篇)1. 坐标正算主程序(命名为ZBZS)第1行：Lbl 0:{W,T,B}:W”K=”:T”LEN=”:B第2行：Prog “A”第3行：X=D+Tcos(F+B)◢第4行：Y=E+Tsin(F+B)◢第5行：F=F◢第6行：Goto 0K——计算点的里程LEN——计算点到中桩的距离（左负右正）B——取前右夹角为正2. 坐标反算桩号和偏距主程序(命名为ZBFS)第1行：{U,V,K}:U”X1”:V”Y1”: W”K1”第2行：I=0:J=0第3行：Lbl 0:Prog “A”第4行：Pol(U-D,V-E):S=Icos(F-J):W=W+S第5行：Abs(S)>0.0001=>Goto 0△第6行：T=Isin(J-F)第7行：K=W◢第8行：T”LEN”=T◢X1——取样点的X坐标Y1——取样点的Y坐标K1——输入时为计算起始点(在线路内即可)，输出时为反算点的桩号T——偏距（左负右正）3. 计算坐标子程序(命名为XYF)为了简洁，本程序由数据库直接调用，上述中的正反算主程序不直接调用此程序第1行：S=W-A：I=(Q-P)÷L第2行：D=D+∫(cos(F+X(2P+XI)×90÷π),0,S,4)第3行：E=E+∫(sin(F+X(2P+XI)×90÷π),0,S,4)第4行：F=F+S(2P+SI)×90÷π4. 数据库（命名为A）第1行：W≤175.191=> GoTo 2△第2行：A=175.191:D=428513.730:E=557954.037:F=92°26′40″:P=0:Q=1/240:L=70.417: W≤A+L =>GoTo 1△第3行：A=245.607: D=428507.298:E=558024.092:F=100°50′59.4″:P=1/240:Q=1/240: L=72.915: W≤A+L =>Goto 1△第4行：A=318.522: D=428482.988:E=558092.538:F=118°15′25.2″:P=1/240:Q=0:L=55.104: W≤A+L =>Goto 1△第5行：A=373.627:D=428453.283:E=558138.912:F=124°50′4.5″0:P=0:Q=-1/180:L=67.222:W≤A+L=>Goto 1△Goto 2第6行：Lbl 1:Prog “XYF”: Goto 3第7行：Lbl 2:D=0:E=0:F=0第8行：Lbl 3A——曲线段起点的里程D——曲线段起点的x坐标E——曲线段起点的y坐标F——曲线段起点的坐标方位角P——曲线段起点的曲率(左负右正)Q——曲线段终点的曲率(左负右正)L——曲线段长度（尽量使用长度，为计算断链方便）说明：（1）正算主程序可以计算一般边桩的坐标，如要计算类似涵洞端墙的坐标需增加两个变量，具体方法参考本程序集中的第1篇辛普生公式的坐标计算通用程序（2）程序规定，左偏曲线曲率（半径倒数）输入负值，右偏曲线曲率输入正值，直线上点曲率输入0。

4850和4800曲线坐标正算程序

4850和4800曲线坐标正算程序

★★★缓和曲线、圆曲线、直线段坐标计算程序★★★一：程序适用于计算器CASVO fx-4800P和CASVO fx-4850。

本程序可计算与线路中心成任意夹角的缓和曲线、圆曲线、直线段中、边桩坐标及切线方位角。

二：程序（在CASVO fx-4800P中输入，所有“：“后面都没有空格。

）1 A：R：C“LS”：D“JD”2 P=C∧2/24/R-C∧4/2688/R∧33 Q=C/2-C∧3/240/R∧24 B=90C/兀/R5 T=(R+P)tan(AbsA/2)+Q◢若在“4850”中输入则改为“T=”：T=(R+P)tan(AbsA/2)+Q◢6 W=(R+P)/cos(A/2)-R◢若在“4850”中输入则改为“W=”：W=(R+P)/cos(A/2)-R◢7 L=((AbsA)-2B)兀R/180+2C◢若在“4850”中输入则改为“L=”：L=((AbsA)-2B)兀R/180+2C◢8 G=D-T◢若在“4850”中输入则改为“G=”：G=D-T◢9 H=G+C◢若在“4850”中输入则改为“H=”：H=G+C◢10 I=G+L/2◢若在“4850”中输入则改为“I=”：I=G+L/2◢11 K=G+L-C◢若在“4850”中输入则改为“K=”：K=G+L-C◢12 M=G+L◢若在“4850”中输入则改为“M”：M=G+L◢13 N：E：F：J14 A＜0=>S=-1：≠=>S=1⊿15 U=F+A/2+90S16 V=W+R17 B=N+VcosU18 O=E+VsinU19 Lbl 120 {Z}21 Z≤G=>L=T+G-Z22 V=F+18023 U=F24 Goto 2⊿25 Z≤H=>L=Z-G26 V=L-L∧5/(90R∧2C∧2)27 L=30L∧2S/(兀RC)28 P=F+18029 Q=F+L30 U“FW”=F+3L◢若在“4850”中输入则改为“FW=”：U=F+3L◢31 Goto 4⊿32 Z≤K=>L=F+A/2+90S+180+180(Z-I)S/R/兀33 U“FW”=L+90S◢若在“4850”中输入则改为“FW=”：U= L+90S◢34 Goto 5⊿35 Z≤M=>L=M-Z36 V=L-L∧5/(90R∧2C∧2)37 L=30SL∧2/(兀RC)38 P=F+A39 Q=F+A+180-L40 U=F-3L+A41 Goto4⊿42 Z>M=>L=Z-M+T43 U=F+A44 V=U45 Goto 246 Lbl 247 X=N+LcosV◢48 Y=E+LsinV◢49 Goto 6⊿50 Lbl 351 {W}：若在“4850”中输入则改为{W}：{O}52 P“XL”=X+Wcos(U-90) ◢若在“4850”中输入时不改变，计算结果不显示XL=53 Q“YL”=Y+Wsin(U-90) ◢若在“4850”中输入则改为“YL=”：Q=Y+Wsin(U-O) ◢54 P“XR”=X+Wcos(U+90) ◢若在“4850”中输入则改为“XR=”：P=X+Wcos(U+180-O) ◢55 Q“YR”=Y+Wsin (U+90)◢若在“4850”中输入则改为“YR=”：Q=Y+Wsin (U+180-O)◢56 Goto 157 Lbl 458 X=N+TcosP+VcosQ◢若在“4850”中输入则改为”X=”：X=N+TcosP+VcosQ◢59 Y=E+TsinP+VsinQ◢若在“4850”中输入则改为”Y=”：Y=E+TsinP+VsinQ◢60 Goto 661 Lbl 562 X=B+R cosL◢63 Y=O+RsinL◢64 Goto 665 Lbl 666 J=1=> Goto 3⊿67 Goto 1~~完~~直线正算程序（放样程序）。

任意曲线坐标放样正反算程序(4800,4850,5800均可以用)

任意曲线坐标放样正反算程序(4800,4850,5800均可以用)

任意曲线坐标放样正反算程序（fx－4800p）正算ZSLbl 0↙｛K,L,Q,S｝:K:L:Q:Prog“FXL”:Prog“SUB”↙“X=”:X=X:Pause0:Y=Y◢K=S+K↙Goto0↙反算FSLbl 0:｛PT｝:P“X0”:T“Y0”↙Lbl 1:｛K｝:L=0:Q=0:Prog“FXL”: Prog“SUB”↙U=I-90↙V=（T-Y）CosU-（P-X）SinU↙AbsV≥0.001=>K=K+V:Goto1:≠>“K0=”:K=K:Pause0:W“L0”=（T-Y）CosI-（P-X）SinI◢Goto0↙子程序SUBNorm↙Deg↙U=（E-D）÷Abs（G-F）:V=Abs（K-F）:W=UV↙J=C+90V（W+2D）÷π:J<0=>J=J+360⊿J≥360=>J=J-360⊿↙M=C+45V（W÷4+2D）÷（2π）:N=C+135V（3W÷4+2D）÷（2π）:O=C+45V（W÷2+2D）÷π↙I=J+Q↙Fix3↙X=A+V÷12×（CosC+4（CosM+CosN）+2CosO+CosJ）+L CosI↙Y=B+V÷12×（SinC+4（SinM+SinN）+2SinO+SinJ）+L SinI↙数据库FXLK≥0=>K≤1211.753=>A=9764.547:B=3344.148:C=142，6，26，:D=0:E=0:F=0:G=1211.753⊿⊿↙K≥1211.753=>K≤1406.455=>A=8808.279:B=4088.39:C=142，6，26，:D=1÷700:E=1÷700:F=1211.753:G=1406.455⊿⊿↙使用说明：K－里程桩号; A,B－每段线元的起点X,Y坐标; C－每段线元的起点的切线方位角; F－每段线元的起点桩号;G－每段线元的终点桩号;D－每段线元的起点半径曲率;E－每段线元的终点半径曲率; （左转取-1÷半径曲率,右转取1÷半径曲率,直线为下一个桩号（例: 赋值20确认,即上个桩号加20）D,E取值说明：当线元为直线段,不论其起,止与何线元相接, D,E都取0.当线元为圆曲线,不论其起,止与何线元相接, D,E都取(右偏)1/(左偏)-1÷该圆曲线的半径.当线元为缓和段, 起,止与直线相接, D,E都取0. 与圆曲线相接, D,E都取(右偏)1/(左偏)-1÷该圆曲线的半径. 与缓和段相接, D,E都取0.任意点的切线方位角C说明：编数据库时,若两曲线相接,例：先编ZH至HY段,运行算出HY点的切线方位角,(即求HY点的坐标,然后终止程序调出C值),然后再以计算出的C编HY至YH段.依此类推.反算桩号时需多次确认所输入的X,Y坐标,程序运算至桩号误差小于允许值时,会同时显示结果:K0-桩号,L0-距离.坐标反算程序:ZBFSC“X1”：D“Y1”：E“X2”：F“Y2”：Fixm：Pol(E－C,F－D：I“S=”◢J≤0=>J=J+360⊿J“J=”↙坐标正算程序ZBZSC“X1”：D“Y1”：L：O“J”：Fixm：X=C+Rec(L,O◢Y=D+J↙竖曲线SQXJ“BPD”：B“BPH”：C“I1”：D“I2”：RW=D－C◢A=W÷AbsW：T=Abs（0.5RW）◢L=2T↙E=T2÷2R◢X“QD”=J－T◢Y“ZD”=J+T◢Lbl1：P“K”：H=B+C（P－J）+A（P－J+T）2÷2R◢W“CONT”：W=1=>Goto1：≠>Goto2：⊿↙Lbl2↙说明:BPD－变坡点桩号BPH－变坡点高程I1－前一个坡度（上“+”,下“-”）I2－后一个坡度（上“+”,下“-”）R－半径E－外距QD－该竖曲线起点桩号ZD－该竖曲线终点桩号K－要求的桩号H－要求桩号的高程任意曲线坐标放样正反算程序（fx－4850p）正算ZSLbl 0↙｛K,L,Q,S｝:K:L:Q:Prog“FXL”:Prog“SUB”↙“X=”:X=X:Pause0:“Y=”:Y=Y◢K=S+K↙Goto0↙反算FSLbl 0:｛PT｝:P“X0”:T“Y0”↙Lbl 1:｛K｝:L=0:Q=0:Prog“FXL”: Prog“SUB”↙U=I-90↙V=（T-Y）CosU-（P-X）SinU↙AbsV≥0.001=>“K0=”:K=K+V:Goto1:≠>“K0=”:K=K:Pause0:W=（T-Y）CosI-（P-X）SinI ↙“L0=”:W=W◢Goto0↙子程序SUBNorm↙Deg↙U=（E-D）÷Abs（G-F）:V=Abs（K-F）:W=UV↙J=C+90V（W+2D）÷π:J<0=>J=J+360⊿J≥360=>J=J-360⊿↙M=C+45V（W÷4+2D）÷（2π）:N=C+135V（3W÷4+2D）÷（2π）:O=C+45V（W÷2+2D）÷π↙I=J+Q↙Fix3↙X=A+V÷12×（CosC+4（CosM+CosN）+2CosO+CosJ）+L CosI↙Y=B+V÷12×（SinC+4（SinM+SinN）+2SinO+SinJ）+L SinI↙数据库FXLK≥0=>K≤1211.753=>A=9764.547:B=3344.148:C=142，6，26，:D=0:E=0:F=0:G=1211.753⊿⊿↙K≥1211.753=>K≤1406.455=>A=8808.279:B=4088.39:C=142，6，26，:D=1÷700:E=1÷700:F=1211.753:G=1406.455⊿⊿↙使用说明：K－里程桩号; A,B－每段线元的起点X,Y坐标; C－每段线元的起点的切线方位角;D－每段线元的起点半径曲率;E－每段线元的终点半径曲率; （左转取-1÷半径曲率,右转取1÷半径曲率,直线为0. ）;L－距中桩距离（左负,右正,中桩为0）; Q－与线路前进方向的右交角（正交为90）; S－赋值加上一个桩号放下一个桩号（例: 赋值20确认,即上个桩号加20）D,E取值说明：当线元为直线段,不论其起,止与何线元相接, D,E都取0.当线元为圆曲线,不论其起,止与何线元相接, D,E都取(右偏)1/(左偏)-1÷该圆曲线的半径.当线元为缓和段, 起,止与直线相接, D,E都取0. 与圆曲线相接, D,E都取(右偏)1/(左偏)-1÷该圆曲线的半径. 与缓和段相接, D,E都取0.任意点的切线方位角C说明：编数据库时,若两曲线相接,例：先编ZH至HY段,运行算出HY点的切线方位角,(即求HY点的坐标,然后终止程序调出C值),然后再以计算出的C编HY至YH段.依此类推.反算桩号时需多次确认所输入的X,Y坐标,程序运算至桩号误差小于允许值时,会同时显示结果:K0-桩号,L0-距离.任意曲线坐标放样正反算程序（fx－4800p）任意曲线坐标放样正反算程序（fx－4850p）。

CASIO4800P计算器坐标计算程序

CASIO4800P计算器坐标计算程序

坐标放样程序Defm 60：A”JX”:B”JY”:Q:R:L”L1”:M”L2”:T”T1”: C”T2”:E”ZH”:D=E+L:O”HZ”:I=O-M:F:U :Fix3：回车Lbi 0:{K}:K≤E=〉G0t0 1：≠=〉G0t0 2⊿回车Lbi1：{VJZ}:Z[1]=A-T CosF:Z[2]=B-TSinF: Z[3]=E-K: Z[4]=F+VJ: Z[20]= Z[1]- Z[3] CosF:Z[21]=Z[2]-Z[3]SinF：X=Z[20]+ZCos （Z[4]）：Y=Z[21] +ZSin（Z[4]）：X“X=”▲Y“Y=”▲{N}：N＜1=〉Prog“FMH”:≠=> Goto 0回车Lbi 2：K≤D=> Goto 3: ≠=> Goto 4⊿回车Lbi3:{VJZ}:Z[5]=A-TCosF:Z[6]=B-TSinF: H=K-E: Z[7]=H-（(H＾5)÷（40R＾2L＾2)）-（(H＾13)÷（599040R＾6L＾6)）+（(H＾9)÷（3456R＾4L＾4)）:W=F+U(90H＾2÷（RL ∏）)+VJ:Z[22]=Z[5]+Z[7] ÷Cos(（30H＾2）÷（RL∏)） *Cos(F+U(30H^2)÷(RL∏)): Z[23]= Z[6]+ Z[7] ÷Cos((30H^2)÷(RL∏)) *Sin(F+U(30H^2)÷(RL∏)):回车X= Z[22]+Z CosW:Y=Z[23]+Z SinW: 回车X“X=”▲Y“Y=”▲Prog“AA”:回车{N}：N＜1=〉Prog“FMH”:≠=> Goto 0回车Lbi 4:K≤I=> Goto 5:≠=> Goto 6⊿回车Lbi5:{VJZ}:Z[8]=A+TCos(F+180):Z[9]=B+ TSin(F+180):Z[10]=L-(L^3)÷(40R^2)-(L^7)÷(599040R^6)+(L^5)÷(3456R^4): Z[11]=(30L)÷(R∏): Z[12]=F+U(30L)÷(R∏):P=K-D: Z[13]=F+90U（L+P）÷(R∏): Z[14]=(90P)÷(R∏):W=F+U(90L)÷(R∏)+(180UP)÷(R ∏)+VJ: 回车Z[24]= Z[8]+ Z[10]÷Cos(Z[11]) *Cos(Z[12])+2RSin(Z[14]) *Cos(Z[13]): Z[25]= Z[9]+ Z[10] ÷Cos(Z[11]) *Sin(Z[12])+2RSin(Z[14]) Sin(Z[13]):X=Z[24]+Z CosW:Y= Z[25]+Z SinW: X“X=”▲Y“Y=”▲Prog“BB”:{N}：回车N〈1=>Prog“FMH”:≠=> Goto 0⊿回车Lbi 6:K≤O=> Goto 7: ≠=> Goto 8⊿回车Lbi 7:{VJZ}:P=F+Q:Z[15]=A+C CosP: Z[16]=B+C SinP:H=O-K: Z[17]=H-(H∧5)÷(40R∧2M∧2)-(H∧13)÷(599040R∧6M∧6)+(H∧9)÷(3456R∧4M∧4): Z[18]=(30H∧2) ÷(RM ∏): Z[19]=P+180-U(30H^2)÷(RM ∏):W=P+180-U((90H∧2) ÷(RM∏))-VJ:Z[26]= Z[15]+ Z[17] ÷Cos (Z[18]) *Cos(Z[19]): Z[27]= Z[16]+ Z[17] ÷Cos( Z[18])* Sin (Z[19]):X= Z[26]+ Z CosW:Y= Z[27]+Z SinW:X“X=”▲Y“Y=”▲Prog“CC”:回车{N}：N〈1=>Prog“FMH”:≠=> Goto 0回车Lbi 8:K≤O=> Goto7: ≠=> Goto9⊿回车Lbi9:{VJZ}:P=F+Q:W=P+VJ:Z[28]=A+(C+K-O) CosP: Z[29]=B+(C+K-O) SinP:X= Z[28]+Z CosW:Y= Z[29]+Z SinW:X“X=”▲Y“X=”▲Prog“DD”:{N}：N〈1=>Prog“FM H”:≠=> Goto 0⊿2、文件名“ FMH”Lbi1:{S}:S<0=> Goto2: ≠=> Goto3⊿回车Lbi2{J}:Z[30]=X- Z[20]: Z[31]=Y- Z[21]: Z[32]= Z[31] ÷Z: Z[33]= Z[30] ÷Z:V= Z[20]+JZ[33]-SZ[32]:K= Z[21]+ JZ[32]+S Z[33]:V“X=”▲K“Y=”▲Goto13、文件名“AA”Z[20]= Z[22]: Z[21]= Z[23]4、文件名“BB”Z[20]= Z[24]: Z[21]= Z[25]5、文件名“CC”Z[20]= Z[26]: Z[21]= Z[27]6、文件名“DD”Z[20]= Z[28]: Z[21]= Z[29]道路前进方向操作：A:B:坐标:Q转角（左负，右正）：R：半径：L1：第一缓和曲线长度（L）：L2:第二缓和曲线长度(M):T1:第一起线长度（T）:T2: 第二起线长度(C):ZH:直缓点里程(E):HZ:缓直点里程(O):F：方位角：U：转向系数（左转负，U=-1,右正，U=1）:K:待求点里程：V:方向系数（左取－1，右取1）：J：边桩与道路中线的夹角:Z:边距：在左边上时S取正J取0左边下时S取负J 为距中宽度，在右边上时S取负J取距宽度中，在右边下时S取正J取0。

公路曲线中桩边桩坐标fx4800P计算程序

公路曲线中桩边桩坐标fx4800P计算程序

公路曲线中桩边桩坐标fx4800P计算程序在快速发展的公路建设事业中,使用GPS坐标控制系统的高等级公路日渐增多,并且,随着高精度的测量设备的广泛采用,其他等级公路也开始普遍应用坐标控制。

使用坐标控制的公路项目,有着线型流畅、行车速度快而舒适、环境优美等特点,这些都来源于高质量的设计与施工,卡西欧fx-4800p计算器由于其轻便、精度高、易于操作,能够解决设计、施工当中很多的实际困难,因此,倍受公路工程技术人员的青睐。

本人通过在高速公路多年的施工经验,编写了许多公路测量实用程序,如常用的中桩边桩计算程序,匝道坐标计算程序,施工放样程序,换带程序等等。

下面把公路中常用的中桩边桩计算程序介绍给大家,希望本程序能够对公路测量同行有所帮助.。

1 程序清单:LbI 0:Defm 6↙″CURVE MODE″:{M}:M″0:T1=T2,1:T1≠T2″↙M=0=>Goto 7:≠>M=1=>Goto 8:≠>Goto 0⊿⊿↙LbI 7:{ABCDEFGR}↙A″ZHD″:B″HZD″:C″XJD″:D″YJD″:E″ELPHA″:F″PJ:Z(-),Y(+)″:G″L0″:R↙T=(R+G2÷(24R)-G ÷(2688R ))tan(AbsF÷2)+0.5G-G ÷(240R2) ↙U=G:V=T: Goto 1↙LbI 8:{ABCDEFGUTVR}↙A″ZHD″:B″HZD″:C″XJD″:D″YJD″:E″ELPHA″:F″PJ:Z(-),Y(+)″:G″L01″:U″L0 2″:T″T1″:V″T2″: R↙LbI 1:{H}:H″DQD″↙H≥B=>M=1: ≠>H>B-U=>M=2: ≠>H≥A+G=>M=3: ≠>H≥A=>M=4: ≠>HM=5⊿⊿⊿⊿⊿↙M≤2=>L=Abs(H-B): ≠>L=Abs(H-A)⊿↙M=1=>Z[1]=L: ≠>M=2=>Z[1]=√((L-L ÷(40R2U2)+L ÷(3456R U ))2+(L ÷(6RU)- L ÷(336R U )+ L÷(42240R U ))2): ≠>M=3=>Z[1]=√((G-G ÷(40R2)+G ÷(3456R ))2+(G2÷(6R)-G ÷(336R )+G ÷(42240R ))2):≠>M=4=>Z[1]=√((L-L ÷(40R2G2)+L÷(3456R G ))2+ (L ÷(6RG)- L ÷(336R G )+ L÷(42240R G ))2): ≠>M=5=>Z[1]=L⊿⊿⊿⊿⊿↙M≤2=>Z[2]=C+Vcos(E+F): Z[3]=D+Vsin(E+F): ≠>Z[2]=C+Tcos(E+180): Z[3]=D+Tsin(E+180) ⊿↙M=1=>Z[4]=E+F:≠>M=2=>Z[4]=E+F+180:≠>M=5=>Z[4]=E+ 180:≠>Z[4]=E ⊿⊿⊿↙N=F÷AbsF↙M=1=>I=0:≠>M=2=>I=-N(30L2÷(ΠRU)):≠>M=3=>I=N(30G÷(ΠR)):≠>M=4=>I=N(30L2÷(ΠR G)):≠>M=5=>I=0⊿⊿⊿⊿⊿↙Z[4]=Z[4]+I↙Z[5]=Z[2]+Z[1]cosZ[4]↙Z[6]=Z[3]+Z[1]sinZ[4]↙M≠3=>Goto 3⊿↙LbI 2:P=90L÷(ΠR):Q=90(L-G)÷(ΠR)↙Z[5]= Z[5]+2RsinQcos(E+NP)↙Z[6]= Z[6]+2RsinQsin(E+NP)↙LbI 3↙X″X(ZX)″=Z[5]◢Y″Y(ZX)″=Z[6]◢LbI 4↙M=3=>I=90N(2L-G) ÷(ΠR): ≠>I=3I⊿↙M=1=>P=E+F: ≠>M=2=>P=E+F+180: ≠>M=5=>P=E+180: ≠>P=E⊿⊿⊿↙P=P+I-90:Q=P+180↙M=2=>X=P-90: ≠>M=5=>X=P+180: ≠>X=Q-90⊿⊿↙XX=X+360: ≠>X>360=>X=X-360⊿⊿↙X″QXFWJ(Z-Y)″=X◢{SW}:S″SZ ″: W″SY ″:AbsS+AbsW=0=>Goto 1⊿↙M=2=>Goto 5: ≠>M=5=>Goto 5: ≠>Goto 6⊿⊿↙LbI 5:S=-S:W=-W↙LbI 6↙X″X(Z)″=Z[5]+ScosP◢Y″Y(Z)″=Z[6]+SsinP◢X″X(Y)″=Z[5]+WcosQ◢Y″Y(Y)″=Z[6]+WsinQ◢Goto 1↙2 程序参数说明:开始运行程序时选择曲线类型(CURVE MODE),0为等切线曲线,1为不等长切线曲线。

4800全套计算程序（吐血推荐）

4800全套计算程序（吐血推荐）

4800全套计算程序（吐⾎推荐）整套卡西欧计算器CASIO FX-4800 4500测量程序各位同⾏：我长年从事公路桥梁测绘⼯作，收集整理了⼀整套卡西欧计算器CASIOFX-4800P和卡西欧CASIO FX-4500P测量放线程序，该套程序经过反复修正，具有极⾼的可靠性。

现在免费提供给⼤家.程序⽬录：1.1 测边⼤地四边形的条件平差程序1.2 测边中点多边形的条件平差程序1.3 单⼀导线的严密平差程序1.4 单⼀结点导线的严密平差程序1.5 边、⾓后⽅交会的条件平差程序1.6 测边交汇点的条件平差程序1.7 单⼀⽔准路线的平差程序1.8 单结点的平差程序1.9 多结点⽔准⽹的平差程序1.10 多边形⽔准⽹的平差程序1.11 三⾓⾼程差的计算程序1.12 测距边⽔平距离的计算程序1.13 ⾼斯投影座标正、反解和换带的计算程序1.14 平⾯座标转移的计算程序2.1 单边、⾓后⽅交会的计算程序2.2 双边、⾓后⽅交会的计算程序2.3 碎部点座标的计算程序2.4 内、外分点座标的计算程序2.5 房⾓标的计算程序2.6 多次后⽅测⾓交会点2.7 测边交会点的计算程序2.8 导线三维值的计算程序2.9 圆⼼座标和半径的程序2.10 测站点、照准点归⼼改正的计算程序2.11 单边、双站后⽅交会的计算程序3.1 线路中⼼座标的计算程序3.3 红线交点座标的计算程序3.4 直线与圆曲线交点座标的计算程序3.5 垂⾜座标的计算程序3.6 道路不等宽时曲线要素的计算程序3.7 缓和曲线敷设时的计算程序3.8 圆曲线敷设时的计算程序3.9 极座标放线线的计算程序3.10 交点座标的计算程序3.11 宗地有关项⽬的计算程序3.12 丘地有关项⽬的计算程序4.1 导线X、Y、Z值的近似平差程序4.2 ⽆定向导线的计算程序4.3 测⾓前⽅交会点座标的计算程序4.4 测边交会座标的计算程序4.5 测⾓后⽅交会点座标的计算程序4.6 双边、⾓后⽅交会点座标的计算程序4.7 平⾯座标转移的计算程序4.8 测站点、照准点归⼼改正的计算程序4.9 三⾓⾼程⾼差的计算程序4.10 测距边⽔平距离的计算程序4.11 单⼀导线的严密平差程序4.12 边、⾓后⽅交会点的严密平差程序4.13 测边交会点的严密平差程序5.1 图跟导线点座标的计算程序5.2 碎部点座标的计算程序5.3 内、外分点座标的计算程序5.4 ⾓座标的计算程序5.5 圆⼼座标的和半径的计算程序5.6 交点座标的计算程序5.7 单边、⾓交会点座标的计算程序5.8 宗地有关项⽬的计算程序5.9 单边、双站后⽅交会座标的计算程序6.1 线路边桩座标的计算程序6.3 直线与曲线交点座标的计算程序6.4 道路不等宽时曲线元素的计算程序6.5 垂⾜座标的计算程序6.6 圆曲线敷设的计算程序6.7 缓各曲线敷设的计算程序6.8 极座标放线的计算程序6.9 单⼀⽔准路线的近似平差计算程序6.10 丘地有关项⽬的计算程序公路中、边桩坐标计算及放样程序功能：任意半径曲线中桩、任意交⾓边桩坐标计算放样、中桩切线⽅位⾓、任意点置仪放样、两点间距离计算、两点⽅位⾓计算。

4800P~48500P主线坐标计算程序

4800P~48500P主线坐标计算程序

4800P~4850P全线坐标计算程序子程序“ZB”D≤C=>Goto 1△←┘D＞C=>D≤C+H=>Goto 2△←┘D＞C+H=>D≤C+H+I => Goto 3△←┘D＞C+H+I=>D＜C+H+I+J=>Goto 4△←┘D≥C+H+I+J=>Goto 5△←┘Lbi 1←┘M＞180=>M=M-180∶≠>M=M+180△←┘X=A+(C-D)CosM∶Y=B+（C-D）SinM←┘M＞180=>M=M-180∶≠>M=M+180△←┘Z=M←┘Goto 6△←┘Lbi 2←┘V=D-C：W=RH←┘L=V-V^5/（40W²）+V^9/（3456W^4）-V^13/（599040W^6）←┘N=V^3/（6W）-V^7/（336W^3）+V^11/（42240W^5）-V^15/（9676800W^7）←┘O=tan-1 (N/L):P=√(L ²+N ²)←┘K=1=>Q=M+O△K=0=>Q=M-O:Q＜0=>Q=Q+360△△←┘X=A+P CosQ:Y=B+P SinQ←┘T=90V ²/(∏w)←┘K=1=>Z=M+T:Z＞360=>Z=Z-360△△K=0=>Z=M-T:Z＜0=>Z=Z+360△△←┘Goto 6△←┘Lbi 3←┘L=H-H ^3/(40R ²)+H ^5/(3456R ^4)-H ^7/(599040R^6)←┘N=H²/(6R)-H^4/(336R^3)+H^6/(42240R^5)-H^8/(9676800R^7)←┘O= tan-1(N/L):P=√(L²+N²)←┘K=1=>Q=M+O△K=0=>Q=M-O:Q＜0=>Q=Q+360△△←┘X=A+P Cos Q:Y=B+P SinQ←┘T=90H/(∏R)←┘K=1=>Z=M+T:Z＞360=>Z=Z-360△△K=0=>Z=M-T:Z＜0=>Z=Z+360△△←┘V=D-C-H←┘U=180V/(∏R):W=2R Sin (U/2)←┘K=1=>Z=Z+U/2△K=0=>Z=Z-U/2:Z＜0=>Z=Z+360△△←┘X=X+W CosZ:Y=Y+W SinZ←┘K=1=>Z=Z+U/2:Z＞360=>Z=Z-360△△K=0=>Z=Z-U/2:Z＜0=>Z=Z+360△△←┘Goto 6△←┘Lbi 4←┘V=C+ H+I+J-D:W=RJ←┘L=V-V^5/(40W²)+V^9/(3456W^4)-V^13/(599040W^6)←┘N=V^3/(6W)-V^7/(336W^3)+V^11/(42240W^5)-V^15/(9676800W^7)←┘O=tan-1(N/L):P=√(L²+N²)←┘G＞180=>Q=G-180: ≠>G＜180=>Q=G+180△←┘K=1=>U=Q-O:U＜0=>U=U+360△△K=0=>U=Q+O:U＞360=>U=U-360△△←┘X=E+P CosU:Y=F+P SinU←┘T=90V²/(∏W)←┘K=1=>Z=G-T:Z＜0=>Z=Z+360△△K=0=>Z=G+T:Z＞360=>Z=Z-360△△←┘Goto 6△←┘Lbi 5←┘V=D-C-H-I-J←┘X=E+V CosG:Y=F+V SinG←┘Z=G←┘Goto 6△←┘Lbi 6←┘S＜0=>Z＞90=>Z=Z-90: ≠>S＜0=>Z＜90=>Z=Z+270△△△△←┘S＞0=>Z=Z+90:Z＞360=>Z=Z-360△△←┘X=X+Abs S CosZ◢ Y=Y+Abs SinZ◢ Z=Z◢子程序“H2”V=C-D:W=RJ←┘L=V-V^5/(40W²)+V^9/(3456W^4)-V^13/(599040W^6)←┘N=V^3/(6W)-V^7/(336W^3)+V^11/(42240W^5)-V^15/(9676800W^7)←┘O= tan-1（N/L）：P=√（L²+N²）←┘G＞180=>Q=G-180：≠>Q=G+180△←┘K=1=>M=Q-O：M＜0=>M=M+360△△K=0=>M=Q+O：M＞360=>M=M-360△△←┘X=E+P CosM:Y=F+P SinM←┘T=90V²/(∏W)←┘K=1=>Z=G-T:Z＜0=>Z=Z+360△△K=0=>Z=G+T:Z＞360=>Z=Z-360△△←┘S＜0=>Z＞90=>Z=Z-90: ≠>S＜0=>Z＜90=>Z=Z+270△△△△←┘S＞0=>Z=Z+90△←┘X=X+Abs S Cos Z◢Y=Y+Abs S SinZ ◢Z=Z◢数据厍：名“自起“Lbi 0←┘{DS}:D“ZK”←┘D≤第二缓和曲起点桩号=>A=第一缓和曲起点桩号X坐标:B=第一缓和曲起点桩号Y坐标:C=第一缓和曲线起点:M=第一缓和曲起点方位角:K=路线左转时为0 右转时为1:R=半径:H=缓和曲线长没有缓和曲线时为1E-20:I=圆曲线长:Porg“ZB”:Goto 0:≠>D＞第二缓和曲起点桩号=>D≤第二缓和曲线止点桩号=>E=第二缓和曲线止点桩号X 坐标: F=第二缓和曲线止点桩号Y坐标:C=第二缓和曲止点桩号:G=第二缓和曲止点桩号方位角:K=路线左转时为0 右转时为1:R=半径: J=缓和曲线长: Porg“H2”:Goto 0: ≠>D＞第二缓和曲线止点桩号=>D≤下一交点第二缓和曲起点桩号=>A=第一缓和曲起点桩号X坐标: B=同上………………………………………………………………………………………………………………………………………终点是直线时≠>D＞上一交点第二缓和曲线止点桩号=>D≤路线终点桩号=>A=路线终点桩号X坐标 :B=路线终点桩号X坐标:C= 终点桩号:M=终点桩号方位角:K=路线左转时为0 右转时为1 :Porg“ZB”:Goto 0△←┘。

4800P公路中桩坐标计算(按线路前进方向执行)

4800P公路中桩坐标计算(按线路前进方向执行)

公路中桩坐标计算（按线路前进方向执行）主程序MAIN----------CDA”X[0]“：B“Y[0]”：F“F[0]”：E“K[0]”⍓P=1=>Prog“ZX”:≠>P=2=> Prog“YQX”: ≠>P=3=> Prog“HHQX1”: ≠>P=4=> Prog“HHQX2”X[0]---起点坐标XY[0]---起点坐标YF[0]---起点方位角K[0]---起点桩号P-----线形判断(P=1直线段、P=2圆曲线段、P=3第一段缓和曲线、P=4第二段缓和曲线)子程序1ZX-------------CDLbI 0：{K}:X=A+Rec((K-E),F) ⍓Y=B+J⍓Goto 0K---计算点桩号E---起算点桩号子程序2YQX-------------CDLb1 1：{K}：Q=180（K-E）÷（ЛR）：W=0=>X=A+Rec((2Rsin(Q÷2))，（F-Q÷2）)⍓Y=B+J⍓H=F-(K-E)×180÷（ЛR）⍓Goto1⍓≠>W=1=>X=A+Rec((2Rsin(Q÷2)),(F+Q÷2))⍓Y=B+J⍓H=F+(K-E)×180÷（ЛR）⍓Goto1W---判断曲线偏向（W=0偏右、W=1偏左）H---计算点该点的切线方位角子程序3HHQX1------------CDLbl2{K}:S=K-E-(K-E)^5/(40R^2L^2)+(K-E)^9/(3456(R^4L^4):T=(K-E) ^3/(6RL)-(K-E)^7/(336(R^3L^3)+(K-E)^11/(42240R^5L^5)G=180(K-E)^2/(6ЛRL)W=0=>X=A+ScosF+TsinF⍓Y=B+SsinF-TcosF⍓H=F-3G⍓Goto2≠>W=1=>X=A+ScosF-TsinF⍓Y=B+SsinF+TcosF⍓H=F+3G⍓Goto2子程序4HHQX2------------CDLbl3:{K}:S=(K-E)-(K-E)^3/(6R^2)+(K-E)^4/(8R^2L)+(L^2-3R^2)(K-E)^5/( 120R^4L^2)-(K-E)^6/(72R^4L)+(K-E)^7/(112R^4L^2)-(K-E)^8/(384R^ 4L^3)+(K-E)^9/(3456R^4L^4)T=(K-E)^2/(2R)-(K-E)^3/(6RL)-(K-E)^4/(24R^3)+(K-E)^5/(20R^3L)+( L^2-15R^2)(K-E)^6/(720R^5L^2)+(R^2-L^2)(K-E)^7/(336R^5L^3)+(K-E)^8/(384R^5L^2)-(K-E)^9/(864R^5L^3)+(K-E)^10/(3840R^5L^4)-(K-E)^11/(42240R^5L^5)G=180(K-E)^2/(6ЛRL)W=0=>X=A+ScosF+TsinF⍓Y=B+SsinF+TcosF⍓H=F-3G⍓Goto3≠>W=1=>X=A+ScosF-TsinF⍓Y=B+SsinF+TcosF⍓H=F+3G⍓Goto3符号同上本程序适应自由边桩，边桩程序由各人习惯而定，在子程序后加上边桩程序即可。

4800全线坐标正反算程序

4800全线坐标正反算程序

线路中边桩任意里程坐标正、反算改编程序（CASIO fx-5800P）1. 正算子程序(SUB1)A=0.26：B=0.74：K=0.02：L=0.3300094782：F=1-L：M=1-K：X=U+W(Acos(G+57.2958QKW(1/P+KWD))+B cos(G+57.2958QLW(1/P+LWD))+Bcos(G+57.2958QFW(1/P+FWD))+ Acos(G+57.2958QMW(1/P+MWD)))：Y=V+W(Asin(G+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)+90：X=X+Zcos(F-90+T)：Y=Y+Zsin(F-90+T)2. 反算子程序(SUB2)W=Abs((Y-V)cos(G-90)-(X-U)sin(G-90))：Z=0：Lbl 0：Prog "SUB1 "：L=(G-90)+57.2958QW(1/P+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1 E-6=>Goto1：≠>W=W+Z：Goto 0Δ←┘Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)÷sinF二数据库程序（ＳＪＫ主程序）Lb1 4："1.SZ => XY"："2.XY => SZ"：｛NS｝：S＜75685.656 ＝＞O=75172.813：U=10257.769：V=615287.070：G=325-46-1.5：H =512.843：P=2600：R=2600：Q=1：Goto0Δ←┘(JD65)S＜75884.442＝＞O=75685.656：U=10707.383：V=615042.113：G= 337-04-06.6：H=198.786：P=2600：R=1E45：Q=0：Goto0Δ←┘(直线)S＜76044.442＝＞O=75884.442：U=10890.459：V=614964.660：G=337-04-06.6：H=160：P=1E45：R=1050：Q=-1：Goto0Δ←┘(JD66第一缓和段)S＜76392.111＝＞O=76044.442：U=11036.146：V=614898.615：G= 332-42-11.19：H=347.669：P=1050：R=1050：Q=-1：Goto0Δ←┘(J D66圆曲线段)S＜76552.111＝＞O=76392.111：U=11313.328：V=614691.387：G= 313-43-54.11：H=160：P=1050：R=1E45：Q=-1：Goto0Δ←┘(JD66第二缓和段)S＜78271.813＝＞O=76552.111：U=11417.893：V=614570.338：G= 309-21-58.7：H=1719.702：P=1E45：R=1E45：Q=0：Goto0Δ←┘(直线段)S＜78431.813＝＞O=78271.813：U=12508.659：V=613240.824：G= 309-21-58.7：H=160：P=1E45：R=1050：Q=-1：Goto0Δ←┘(JD67第一缓和段)S＜78810.831＝＞O=78431.813：U=12606.944：V=613114.623：G= 305-00-3.29：H=379.018：P=1050：R=1050：Q=-1：Goto0Δ←┘(JD 67圆曲线段)S＜78970.831＝＞O=78810.831：U=12764.225：V=612772.038：G= 284-19-7.91：H=160：P=1050：R=1E45：Q=-1：Goto0Δ←┘(JD67第二缓和段)S＜79284.977＝＞O=78970.831：U=12795.865：V=612615.240：G= 279-57-12.5：H=314.146：P=1E45：R=1E45：Q=0：Goto0Δ←┘(直线段)S＜79444.977＝＞O=79284.977：U=12850.165：V=612305.822：G= 279-57-12.5：H=160：P=1E45：R=750：Q= 1：Goto0Δ←┘(JD68第一缓和段)S＜79607.747＝＞O=79444.977：U=12883.388：V=612149.392：G= 286-03-54.08：H=162.77：P=750：R=750：Q= 1：Goto0Δ←┘(JD6 8圆曲线段)S＜79767.747＝＞O=79607.747：U=12944.985：V=611999.072：G= 298-29-59.22：H=160：P=750：R=1E45：Q= 1：Goto0Δ←┘(JD68第二缓和段)S＜79927.747＝＞O=79767.747：U=13031.084：V=611864.310：G= 304-36-40.8：H=160：P=1E45：R=750：Q=-1：Goto0Δ←┘(JD69第一缓和段)S＜80152.430＝＞O=79927.747：U=13117.183：V=611729.547：G= 298-29-59.22：H=224.683：P=750：R=750：Q=-1：Goto0Δ←┘(JD6 9圆曲线段)S＜80312.430＝＞O=80152.430：U=13193.440：V=611519.093：G= 281-20-6.98：H=160：P=750：R=1E45：Q=-1：Goto0Δ←┘(JD69第二缓和段)S＜80472.430＝＞O=80312.430：U=13213.651：V=611360.456：G= 275-13-25.4：H=160：P=1E45：R=920：Q= 1：Goto0Δ←┘(JD70A 第一缓和段)S＜80764.750＝＞O=80472.430：U=13232.840：V=611201.665：G= 280-12-21.47：H=292.320：P=920：R=920：Q= 1：Goto0Δ←┘(JD7 0A圆曲线段)S＜80924.750＝＞O=80764.750：U=13329.149：V=610926.967：G= 301-56-13.33：H=160：P=920：R=1E45：Q= 1：Goto0Δ←┘(JD70 A第二缓和段)S＜＝＞O=75018.789：U=10119.920：V=615344.580：G=325-46-1. 5：H=591.742：P=3000：R=3000：Q= 1：Goto0Δ←┘(Z JD2圆曲线段)S＜75868.894＝＞O=75610.531：U=10638.706：V=615061.939：G= 337-04-6.6：H=258.363：P=3000：R=1E45：Q=0：Goto0Δ←┘(直线段)S＜76028.894＝＞O=75868.894：U=10876.651：V=614961.272：G= 337-04-6.6：H=160：P=1E45：R=900：Q=-1：Goto0Δ←┘(Z JD3第一缓和段)S＜76304.04＝＞O=76028.894：U=11022.044：V=614894.617：G= 331-58-31.95：H=275.146：P=900：R=900：Q=-1：Goto0Δ←┘(Z J D3圆曲线段)S＜76464.04＝＞O=76304.04：U=11241.555：V=614730.506：G= 314-27-33.35：H=160：P=900：R=1E45：Q=-1：Goto0Δ←┘(Z JD3第二缓和段)S＜78325.868＝＞O=76464.04：U=11346.622：V=614609.911：G= 309-21-58.7：H=1861.828：P=1E45：R=1E45：Q=0：Goto0Δ←┘(直线段)S＜78485.868＝＞O=78325.868：U=12527.535：V=613170.519：G= 309-21-58.7：H=160：P=1E45：R=1000：Q=-1：Goto0Δ←┘(Z JD4第一缓和段)S＜78839.218＝＞O=78485.868：U=12625.657：V=613044.196：G= 304-46-57.52：H=353.350：P=1000：R=1000：Q=-1：Goto0Δ←┘(Z JD4圆曲线段)S＜78999.218＝＞O=78839.218：U=12772.319：V=612724.740：G= 284-32-13.68：H=160：P=1000：R=1E45：Q=-1：Goto0Δ←┘(Z JD4第二缓和段)S＜80472.391＝＞O=80312.391：U=13213.651：V=611360.455：G= 275-13-25.4：H=160：P=1E45：R=936.13：Q= 1：Goto0Δ←┘(Z JD 1A第一缓和段)S＜80707.393＝＞O=80472.391：U=13232.720：V=611201.648：G= 280-07-12.42：H=235.002：P=936.13：R=936.13：Q= 1：Goto0Δ←┘(Z JD1A圆曲线段)S＜80867.397＝＞O=80707.393：U=13302.398：V=610977.859：G= 297-27-38.28：H=160：P=936.13：R=1E45：Q= 1：Goto0Δ←┘(Z J D1A第二缓和段)LB1 0：D=(P-R)÷(2HPR)：N=1=>Goto 1：≠>Goto 2Δ←┘Lbl 1：{TZ}：Z：W=Abs(S-O)：Prog "SUB1"：X"XS"=X◢Y"YS"=Y◢F"FS"=F-90◢C“XC”：E“YC”：I=0：J=0：Pol（X-C，Y-E）：I“I=” ◢J∠0＝＞J“J=”+360◢≠＞J“J=” ◢ΔGoto4←┘Lbl 2：{XY}：XY：I=X：J=Y：Prog "SUB2"：S"S"=O+W◢Z"Z"=Z◢G o t o4。

4800程序计算ZX-ZY-YQ线坐标

4800程序计算ZX-ZY-YQ线坐标

＂＂＂：H＂KYH=＂：I＂＂：Lb1 A｛Lb1 1X=M+（K-E）cos AY=N+（K-E）sin AK≤F＝＞Goto 1K＞F＝＞K≤G＝＞Goto 2K＞H＝＞K≤I＝＞Goto 2主程序ZBCASIOf(x)-4800P线路中桩及边桩坐标计算程序K＜E＝＞＂ERRORK＂：Pause 2:Goto AK＞I＝＞＂ERRORK＂：Pause 2:Goto AK＞G＝＞K≤H＝＞Deg:Defm 4Goto BLb1 2Prog＂HHQXZB＂Goto BW=ALb1 3Goto 5Lb1 4L=I-KO=I-HO=G-FP=M+（F-E ）cos AQ=N+（F-E ）sin AS=AT=CW=S+180TL 2÷（2πRO ）Goto A子程序HHQXZBK ≥H ＝＞Goto 4L=K-F｛＂＂Goto BO=0：P=0Prog ＂YQXZB ＂Prog ＂HHQXZB ＂K=Z ［1］L=H-KO=I-HS=J+180S=AT=CW=A+180TO÷（2πR ）+180TL ÷（πR ）Goto FLb1 EK=HE=-1＝＞Goto EK=GProg ＂HHQXZB ＂K=Z ［1］L=K-GO=G-FX=P+B÷（cos （30L 2÷（πRO ）））×cos （S+T×30L 2÷（πRO ））Y=Q+B÷（cos （30L 2÷（πRO ）））×sin （S+T×30L 2÷（πRO ））子程序YQXZBG=F ＝＞Goto CZ ［1］=KS=J+180T=-CW=J+180TL 2÷（2πRO ）Goto 5Lb1 5B=L-L 5÷（40R 2O 2）+L 9÷（3456R 4O 4）Q=VP=M+（G-E ）cos AQ=N+（G-E ）sin AS=AT=CP=UQ=VW=A+180TL ÷（πR ）Goto BLb1 AL=I-KLb1 C子程序YQXZB1Lb1 DE=-1＝＞Goto AL=K-GW=J+180TO÷（2πR ）+180TL ÷（πR ）Goto FLb1 FY=Y+2Rsin (90L÷（πR ））×sin （S+T ×90(L+O)÷（πR ））X=X+2Rsin (90L÷（πR ））×cos （S+T ×90(L+O)÷（πR ））Goto DProg ＂YQXZB1＂T=-CS=J+180W=J+180TL ÷（πR ）Goto BLb1 BX=P+2Rsin (90L÷（πR ））×cos （S+90TL÷（πR ））Y=Q+2Rsin (90L÷（πR ））×sin （S+90TL÷（πR））注：1. 无缓和曲线时，应把ZH点的里程和HY点的里程同时输入为ZY点的里程。

4800曲线计算万能程序

4800曲线计算万能程序

曲线计算万能程序Lb1 0:{EG}：A“XA”:B“YA”：C “CA”:D“1/RA”：E“1/RB”:F“DKA”:G “DKB”Lb1 1:{HORS}:H“DKi”:Ｏ“DL”:R“DR”:S“JR”H>G→Goto3P=（E-D）÷Abs（G-F）:Q=Abs（H-F）:I=PQJ=C+90（I+2D）Q÷兀◢M=C+45(I/4+2D)Q÷(2兀)N=C+135(3I/4+2D)Q÷（2兀)K=C+45(I/2+2D)Q÷兀X=A+Q（CosC+4(CosM+CosN)+2CosK+CosJ)÷12◢Y=B+Q(SinC+4(SinM+SinN)+2SinK+SinJ）÷12◢U“XL”=X-ＯCos（J+S）◢V“YL”=Y-ＯSin（J+S）◢W“XR”=X+RCos（J+S）◢Z“YR”=Y+RSin（J+S）◢Goto 1Lb1 3:A=X：B=Y；D=E：F=G：C=J：Goto 0注：每输完一行要按EXE。

曲率输入右转为正，左转为负。

程序说明：XA—起点X坐标 YA—起点Y坐标 CA—起点方位角1/RA—起点曲率 1/RB—终点曲率DKA—起点里程DKB—终点里程 DKI—所求点里程 DL—左边桩距离DR—右边桩距离 JR—右前方夹角 J—计算点切线方位角X—计算点X坐标 Y—计算点Y坐标第一缓和曲线（左偏）RA=0 RB=-1/R （右偏）RA=0 RB=1/R第二缓和曲线（左偏）RA=-1/R RB=0 （右偏）RA=1/R RB=0圆曲线（左偏）RA=-1/R RB=-1/R （右偏）RA=1/R RB=1/R。

CASIO-fx4800P型计算器连续计算线路高程、坐标

CASIO-fx4800P型计算器连续计算线路高程、坐标

CASIO-fx4800P型计算器连续计算线路高程、坐标及放样程序【简述】为了适应现场快速、准确、灵活的放样要求，作者根据线路施工测量特点，运用计算器的编程功能，使整条线路的施工测量计算数据能连续快速的计算，只要把整条线路各个交点处的计算要素输入子程序中，你便拥有整条线路的“数据库”。

在忙碌的施工现场，你不必携带大量的施工图和资料来查找平面、纵断面的设计要素，更不必担心设计要素的输入错误，从而使得计算和放样轻松、方便、快捷。

【计算范围】坐标部分包括：各等级公路和高速路的直线段、圆曲线段、加对称缓和曲线的圆曲线段中、边桩坐标及放样计算。

高程部分包括：各等级公路和高速路的直线段、竖曲线段、缓和超高段中、边桩高程及放样计算。

一、坐标及放样程序【起算数据】：交点里程桩号、交点坐标、前直线方位角、交点转角、圆曲线半径、缓和曲线长（一）主程序：XYFY2Fix4M"Xc=":P"Yc=" ＇如须放样输入测站坐标值,否则输入0Lbl0{HS}:H"K0+0":S"B=(-B,0,B)":Prog"A" ＇变量输入和声明S=0=>E=0:≠>E=90 ＇求边桩坐标时的偏角值判定L=πRN÷180+V ＇含有缓曲线的曲线总长T=(V÷2-V^3÷(240R^2))+(R+(V^2÷(24R)-V^4÷(2688R^3)))tan(N÷2)  ＇切线长A=Q-T:B=A+V:D=A+L:C=D-V ＇A-ZH(ZY)点桩号,B-HY点桩号,C-YH点桩号,D-HZ(YZ)点桩号Rec(T,F+180) ＇求ZH(ZY)点的坐标增量Z[1]=W+I:Z[2]=K+J ＇ZH(ZY)点坐标值Rec(T,F+GN) ＇求HZ(YZ)点的坐标增量Z[3]=W+I:Z[4]=K+J ＇HZ(YZ)点的坐标值Lbl1U=S÷(Abs(S+10E-19)):S=AbsS ＇左右偏角每件判定H<A=>Goto2: ≠> ＇第一直线上坐标计算判定H<B=>Goto3: ≠> ＇第一缓和曲线上坐标计算判定H<C=>Goto4: ≠> ＇净圆曲线上坐标计算判定H<D=>Goto5: ≠> Goto6⊿⊿⊿⊿ ＇第二缓和曲线和第二直线上坐标计算判定Lbl2Rec(Q-H,F+180) ＇第一直线上中桩坐标增量计算X=W+I:Y=K+J ＇中桩坐标值计算Rec(S,F+180-(180-E)U) ＇第一直线上与中桩同一断面的边桩增量计算X=X+I:Y=Y+J ＇边桩坐标值计算S=SU ＇边长条件判定Goto8Lbl3 ＇进入第一缓曲线段计算Z=H-A ＇待求点至ZH点的距离O=90Z^2÷(πRV) ＇所求点缓曲线对应的圆心角X=Z-Z^5÷(40R^2V^2)+Z^9÷(3456R^4V^4) ＇缓曲线上ZH点至待求的支距X坐标Z=Z^3÷(6RV)-Z^7÷(336R^3V^3)+Z^11÷(42240R^5V^5) ＇缓曲线上ZH点至待求点的支距Y坐标Lbl7Rec(X,F)X=Z[1]+I:Y=Z[2]+JRec(Z,F+90G) ＇把中桩支距坐标转换成测量统一坐标X=X+I:Y=Y+JRec(S,F+O G+EU) ＇曲线边桩坐标增量计算X=X+I:Y=Y+J ＇坐标计算结果S=SU ＇边长条件Goto8Lbl4 ＇进入主圆计算部分Z=H-A-V÷2 ＇曲线上待求点到HY点的里程O=180Z÷(Rπ) ＇待求点方位角所对应的圆心角X=Rsin O+(V÷2-V^3÷(240R^2))Z=R(1-cos O)+(V^2÷(24R)-V^4÷(2688R^3)) ＇主圆部分待求点支距坐标XY Goto7Lbl5 ＇进入第二缓和曲线计算Z=D-H ＇曲线上待求点到HZ点的里程O=90Z^2÷(πRV) ＇待求点方位角所对应的圆心角X=Z-Z^5÷(40Z R^2V^2)+^9÷(3456R^4V^4)Z=Z^3÷(6RV)-Z^7÷(336R^3V^3)+Z^11÷(42240R^5V^5) ＇待求点支距坐标XY Rec(X,F+GN+180)X=Z[3]+I:Y=Z[4]+J ＇把中桩支距坐标转换成测量统一坐标Rec(Z,F+GN+180-90G)X=X+I:Y=Y+JRec(S,F+GN+180-O G-(180-E)U) ＇曲线边桩坐标增量计算X=X+I:Y=Y+J ＇坐标计算结果S=SUGoto8Lbl6 ＇进入第二直线段计算部分Rec(H-D+T,F+GN) ＇中桩坐标增量计算X=W+I:Y=K+J ＇中桩坐标计算结果Rec(S,F+GN+EU) ＇边桩坐标增量计算X=X+I:Y=Y+J ＇边桩坐标计算结果S=SUGoto8Lbl8X=X◢ ＇显示坐标计算结果Y=Y◢M≠0=>Goto9: ≠>Goto0 ⊿Lbl9 ＇进入放样部分计算Pol(X-M,Y-P) ＇增量计算J<0=>J=J+360: ≠>J=J ⊿J"A"=Int J+0.01Int(60Frac J)+0.006Frac(60Frac J) ◢ ＇方位角计算结果（此显示值为度分秒格式）I"L"=I◢ ＇极距计算结果Goto0∙(二)子程序:AH≤ZY2(ZH2)=>Q=JD1:W=X1:K=Y1:R=R1:F=F0:N=N1:V=Ls1:G=1(-1):=>H≤ZY3(ZH3)=>Q=JD2:W=X2:K=Y2:R=R2:F=F1:N=N2:V=Ls2:G=1(-1):=>H≤ZY4(ZH4)=>Q=JD3:W=X3:K=Y3:R=R3:F=F2:N=N3:V=Ls3:G=1(-1):=>H≤ZY5(ZH5)=>Q=JD4:W=X4:K=Y4:R=R4:F=F3:N=N4:V=Ls4:G=1(-1):=>……………………………H≤ZY n+1(ZH n+1)=>Q=JD n:W=X n:K=Y n:R=R n:F=F n-1:N=N n:V=Ls n:G=1(-1)注:H—待求点桩号ZY n+1(ZH n+1)—后曲线起点桩号 Q—本曲线交点桩号 W—本曲线交点X坐标K—本曲线交点Y坐标 R—本曲线内圆曲线半径 F—前直线方位角 N—本交点转角V—本曲线内缓和曲线长 G—线路转向符,左转角-1,右转角为+1二、高程及放样程序【起算数据】：变坡点桩号A、变坡点高程B、前后纵坡C D、竖曲半径R、横坡度F、最大超高横坡度G、ZH点桩号、YH点桩号、HZ点桩号、施工层厚度N、视线高W （一）主程序：GCFYW"SXG="：N ＇常量输入（视线高程、施工层厚度）Lbl 1｛LО｝:L"K0+0"：О"B=" :Prog"B" ＇变量输入及声明K=C-D ＇坡度差及竖曲线偏角K>0=>J=-1:≠>J=1⊿ ＇凹凸竖曲线判断条件T=Abs(RK)÷2 ＇竖曲线切线长,如需显示则在后面加上◢H=A-T ＇竖曲线起点ZY桩号,如需显示则在后面加上◢X=A+T ＇竖曲线终点YZ桩号,如需显示则在后面加上◢M=L-A ＇待求点至变坡点的距离L≤H=>P=B+MC-N-W: ≠> ＇前纵坡直线段中桩高程计算L≤A=>P=B+MC+J(T-AbsM)2÷(2R)-N-W: ≠>  ＇前纵坡竖曲线中桩高程计算L≤X=>P=B+MD+J(T-AbsM)2÷(2R)-N-W: ≠> ＇后纵坡竖曲线中桩高程计算L>X=>P=B+MD-N-W⊿⊿⊿⊿⊿ ＇后纵坡直线段中桩高程计算E=0=>Goto 2 ＇直线部分中、边桩计算判断条件≠>L≤E=> Goto 2 ＇直线部分中、边桩计算判断条件≠>L>V=> Goto 2 ＇直线部分中、边桩计算判断条件≠>L>E=> Goto 3 ＇前缓曲超高部分中、边桩计算判断条件≠> L>U=> Goto 4⊿⊿⊿⊿ ＇后缓曲超高部分中、边桩计算判断条件Lbl 2O=0=>Z“H”=AbsP◢＇显示直线部分中、边桩高程计算结果≠>Y“HB”=Abs(P-OF)◢不需放样显示高程,否则显示放样水准尺计数⊿Goto 1Lbl 3S=（L-E）（F+G）÷（V-U）-F  ＇前缓曲线超高横坡度计算S≤F=> Goto 5：≠>S≤G=> Goto 6 ＇超高起点(终点)至零界面、零界面至全超高及全超高≠> Goto 7 ⊿⊿ 部分的计算判断条件Lbl 4S=（V-L）（F+G）÷（V-U）-F  ＇后缓曲线超高横坡度计算S≤F=> Goto 5：≠>S≤G=> Goto 6 ＇超高起点(终点)至超高变坡零界面、零界面至全≠> Goto 7 ⊿⊿ 超高、全超高部分计算判断条件Lbl 5O=0=>Z“H1”=AbsP◢＇超高起点(终点)至超高变坡零界面中、边桩高程≠>Y“H-D1”=Abs(P-OF)◢计算结果显示Q“H-G1”=Abs(P+OS)◢⊿Goto 1Lbl 6O=0=>Z“H2”=AbsP◢＇超高变坡零界面至全超高中、边桩高程≠>Y“H-D2”=Abs(P-OS)◢计算结果显示Q“H-G2”=Abs(P+OS)◢⊿Goto 1Lbl 7O=0=>Z“H3”=AbsP◢＇全超高中、边桩高程计算结果显示≠>Y“H-D3”=Abs(P-OG)◢Q“H-G3”=Abs(P+OG)◢⊿Goto 1∙∙注：W“SXG”-视线高N-施工层厚度L"K0+0"-待求点桩号О"B="-中桩至边桩距离（二）子程序：BL≤ZY2=>A=JD1:B=H1:C=I0:D=I1: R=R1:F=I h:E=ZH1:U=YH1:V=HZ1:G=I max1 :≠>L≤ZY3=>A=JD2:B=H2:C=I1:D=I2: R=R2:F=I h:E=ZH2:U=YH2:V=HZ2:G=I max2 :≠>L≤ZY4=>A=JD3:B=H3:C=I2:D=I3: R=R3:F=I h:E=ZH3:U=YH3:V=HZ3:G=I max3 :≠>L≤ZY4=>A=JD3:B=H3:C=I2:D=I3: R=R3:F=I h:E=ZH3:U=YH3:V=HZ3:G=I max3 :≠> ……………………L≤ZY n+1=>A=JD n:B=H n:C=I n-1:D=I n: R=R n:F=I h:E=ZH n:U=YH n:V=HZ n:G=I maxn注:ZY N+1:-下一个竖曲线起点桩号（如：变坡点2的计算范围为前竖曲线终点YZ1至后竖曲线起点ZY3，则在程序中“L≤ZY3”就应输入ZY3的里程桩。

4800计算器路线座标计算程序

4800计算器路线座标计算程序

座标计算程序ADefm8XYD″X1″:E″Y1″∶F″X2″∶G″Y2″∶H″X3″∶V″Y3″RL″Ls″W″ZH″I=D-F∶J=E-G∶Prog″C″∶O=J∶I=H-F∶J=V-G∶Prog″C″∶U=JM=O-J∶M<0=>M=M+360◣M<180=>M=180-M∶C=1∶≠>M=M-180∶C= -1◣P=L2/（24R）∶Q=L/2-L3/（240R2）∶T=（P+R）×tg（M/2）+Q Fix 3∶S=RMπ/180+L∶S◢Norm∶Prog″B″BLbI 0∶Z∶Fixm∶{ KB}∶I=K-W∶J=Z∶BI< S-L=> I≤0=>M=I+BCosZ∶N=BSinZ∶Goto2◣C=1=>J=180-Z ◣I≤L=>Prog″D″∶≠>Prog″F″◣LbI 2∶J=O∶Prog″G″∶Goto 0◣I=S-II≤0=>M=I-BCosZ∶N= -BSinZ∶≠>C≠1=>J=180-Z◣Prog″D″∶N= -N◣J=U∶Prog″G″∶Goto 0CPol（I，J）∶J<0=>J=J+360◣EA=A-J:M=M-CBCosA∶N=CN-BsinAFA=90/（Rπ）×（2I-L）∶M=RsinA+Q∶N=R×（1-CosA）+P∶Prog″E″GA=CosJ∶J=SinJ∶I=F+TA-MA+NJ∶J=G+TJ-MJ-NA∶M=I∶N=J I=I-X∶J=J-Y∶Prog″C″∶Fix3∶J◢I◢NOrm∶Prog″8″8Fix3∶Z[1]=X+ICosJ∶Z[1]◢Z[2]=Y+IsinJ: Z[2] ◢NormDA=RL:M=I-I5/（40A2）:N=I3/（6A）-I7/（336A3）:A=90 I2/（Aπ）∶Prog″E″高程计算程序(不适应单向横坡)1F1 L1J″JD″D″HJ″TRO″H1″E″K1″P″H2″G″K2″L2 S=(D-O) /(J-E)：U=(P-D)/(G-J)：M=J-T:N=J+T：W=S-U：W<0=>C=1：≠>C=-1◣L3 Prog22F2 L1 LbI 0：Z：Fixm：{ KBI}：KBFI：K=K+BcosZ：B=BsinZL2 K<N=>K≤M=>H=D+S(K-J)-0.01I(AbsB-F) ：≠>H=D+S(K-J)+C(K-J+T)2/(2R) -0.01I (AbsB-F)◣≠> H=D+U(K-J)- 0.01I (AbsB-F)◣L3 Fix3：H◢NormL4 Goto 0J″JD″：竖曲线交点桩号D″HJ″：竖曲线交点高程T ：竖曲线切线长R ：竖曲线半径O″H1″：前一交点高程E″K1″：前一交点桩号P″H2″：后一交点高程G″K2″：后一交点桩号Z ：交角(与路线前进方向的右夹角)K ：竖曲半径B ：边桩距离,左负右正F ：设计标高偏离设计中心线的距离I ：路拱横坡，例如：2%只输入I=2即可。

CASIO4800综合曲线坐标计算程序

CASIO4800综合曲线坐标计算程序

[正确] CASIO fx-4800P综合曲线坐标计算程序说明：该程序适用于计算器 CASIO fx-4800P，可计算线路中心的缓和曲线、圆曲线、直线段，中、边桩坐标及切线方位角。

1、A? 输入转角:左转为负，右转为正2、R? 输入圆曲线半径3、LS? 输入缓和曲线长度4、JD(DK)? 输入交点里程桩号5、X(JD)? 输入本交点X坐标6、Y(JD)? 输入本交点Y坐标7、FWJ? 输入待求点切线方位角9、J? 输入0程序计算中桩，输入1程序计算边桩10、Z? 输入里程桩号1 A：R：C“LS”：D“JD(DK)”2 P=C∧2/24/R-C∧4/2688/R∧33 Q=C/2-C∧3/240/R∧24 B=90C/兀/R5 T=(R+P)tan(AbsA/2)+Q◢6 W=(R+P)/cos(A/2)-R◢7 L=((AbsA)-2B)兀R/180+2C◢8 G“ZH”=D-T◢9 H“HY”=G+C◢10 I“QZ”=G+L/2◢11 K“YH”=G+L-C◢12 M“HZ”=G+L◢13 N＂X(JD)＂：E＂Y(JD)＂：F＂FWJ＂: J14 A＜0=>S=-1:≠=>S=1⊿ (提示：0为数字“0”)15 U=F+A/2+90S16 V=W+R17 B=N+VcosU18 O=E+VsinU (提示：O为字母“O”)19 Lbl 120 {Z}21 Z≤G=>L=T+G-Z22 V=F+18023 U=F25 Z≤H=>L=Z-G26 V=L-L∧5/(90R∧2C∧2)27 L=30L∧2S/(兀RC)28 P=F+18029 Q=F+L30 U“FWJ”=F+3L◢31 Goto 4⊿32 Z≤K=>L=F+A/2+90S+180+180(Z-I)S/R/兀33 U“FWJ”=L+90S◢34 Goto 5⊿35 Z≤M=>L=M-Z36 V=L-L∧5/(90R∧2C∧2)37 L=30SL∧2/(兀RC)38 P=F+A39 Q=F+A+180-L40 U=F-3L+A◢41 Goto4⊿42 Z>M=>L=Z-M+T43 U=F+A44 V=U45 Goto 246 Lbl 247 X=N+LcosV◢48 Y=E+LsinV◢49 Goto 6⊿50 Lbl 351 {W}52 P“XL”=X+Wcos(U-90) ◢53 Q“YL”=Y+Wsin(U-90) ◢54 P“XR”=X+Wcos(U+90) ◢55 Q“YR”=Y+Wsin (U+90) ◢56 Goto 157 Lbl 458 X=N+TcosP+VcosQ◢59 Y=E+TsinP+VsinQ◢60 Goto 661 Lbl 562 X=B+R cosL◢63 Y=O+RsinL◢ (提示：O为字母“O”)65 Lbl 666 J=1=> Goto 3⊿67 Goto 1注:1、◢为输出指令，若在后面加上，即可显示前面的计算结果输出在屏幕上。

CASIO fx4800P曲线任意里程中边桩坐标正反算程序

CASIO fx4800P曲线任意里程中边桩坐标正反算程序
X0 ？线元起点的X坐标
Y0 ？线元起点的Y坐标
S0 ？线元起点里程
F0 ？线元起点切线方位角
LS ？线元长度
R0 ？线元起点曲率半径
RN ？线元止点曲率半径
Q ？ 线 元左右偏标志(左偏Q=-1，右偏Q=1，直线段Q=0）
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
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 80.0000016 Z= 4.99999578
X=19747.536 Y=28654.131 计算得 S=870.0001137 Z= -4.99941049
919.527 19736.072 28701.893 91 17 30.63 80.285 221.75 9579.228 -1
999.812 19744.038 28781.659 80 40 50.00 100.000 1E45 1E45 0
WD)+90：X=X+ZcosF：Y=Y+ZsinF
3. 反算子程序(SUB2)
T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog "SUB1"：L=T+QEW(C+

铁路工程曲线坐标计算步骤

铁路工程曲线坐标计算步骤

铁路工程曲线坐标计算步骤本文的曲线指含有缓和曲线和圆曲线的曲线，计算内容包括曲线上任一点的坐标计算以及相关承台、桩位的坐标计算。

1 曲线上任一点在独立坐标系中的坐标计算计算步骤： 1.1 确定曲线起始点通常曲线起始点选择（直线段→曲线段）直缓点（ZH 点）或（曲线段→直线段）缓直点(HZ 点) 1.2 计算直线段的方位角根据直线段上的另外点与曲线起始点的坐标计算出直线指向起始点的测量坐标方位角α：000Y Y arctanX X α-=-起起1.3 计算缓和曲线的长度根据设计提供的曲线上的特征点（缓圆点HY 、圆缓点YH 等）的里程，计算缓和曲线的长度LsL s =HY （或YH ）里程－起始点里程 1.4 确定任一点I 在曲线位置计算I 点是在缓和曲线上还是在圆曲线上 L i =I 点的里程－起始点里程当L i ≤L s 时，I 点在缓和曲线上，坐标计算用缓和曲线计算公式； 当L i ≥L s 时，I 点在圆曲线上，坐标计算用圆曲线计算公式。

1.5 建立曲线独立坐标系以直线段指向起始点为纵坐标轴，向曲线方向为正向；以垂直于纵坐标轴并通过起始点为横坐标轴，以纵坐标轴正向顺时针旋转90°为正。

1.6 独立坐标系坐标计算根据曲线参数Ls 、曲率半径R 等运用相应的坐标计算公式计算任一点I 在独立坐标系中的坐标（xi ，y i ）1.6.1 缓和曲线的坐标计算公式：5223406i i i s i i sl x l R l l y Rl =-=1.6.2 圆曲线的坐标计算公式：（1） 计算出内移距p 和切垂距m 以及切线方位角βi ）23224224022s s s i si l P Rll m R l l Rβ==--=（2）坐标计算sin (1cos )i i i i x R m y R pββ=+=-+上述坐标计算中要注意y i 的“+”、“-”号。

当曲线右拐顺时针时，y i 取“+”值，当曲线左拐（逆时针）时，y i 取“－”值。

  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
CASIO fx-4800P。
2、程序符号定义说明：测站点坐标CX,CY；后视点坐标HX,HY；直缓点坐标ZHX,ZHY；缓直点坐标HZX,HZY；直缓点里程ZHDK；经过直缓点和交点的直线的方位角ZHJD°；曲线偏角（曲线左偏为负，右偏为正）A°；缓和曲线长L0；圆曲线长L1;圆曲线半径R；计算点里程DK；计算曲线的左边点或者右边点）Z/!/Y(1/2/3)，曲线的右边输入1，左边输入3，线路上输入2；左边的点与当前里程点的连线的距离和当前里程点切线的逆时针方向的角度A°（如果上一项不选择2的话）。
铁路曲线坐标计算程序(4800P)时间:2009-12-05 22:49:14 来源:本站 作者:杨序邦 我要投稿 我要收藏 投稿指南
卡西欧9750GⅡ和9860通用公路测量免费程序 购买卡西欧5800计算器
一、主程序：M（M是文件名，下同）
L1 A”CX”B”CY”C”HX”D”HY”E”ZHX”F”ZHY”Q”HZX”L”HZY”G”ZHDK”
180π-1R-1(P-W)⊿⊿P≤W+K=>Prog ”4”:I=H+I⊿⊿
L6 P>W+K=>P=2W+K-P:S=Q:T=L:P>0=>Prog ”1”:X=-X:U=H+V:Prog ”4”:
I=U-I:≠=>U=H+V:I=U:P=-P:Prog ”3”⊿⊿
L7 N≠2=>P=O:U=I-J:N=3=>P=-P⊿S=X:T=Y:Prog ”3”⊿
H”ZHJD°”V”A°”W”L0”K”L1”R
L2 Pol(C-A,D-B):M=J
L3 Lbl 2:J=90:{NOJZ}:Z”DK”N”Z/!/Y(1/2/3)”:N=2=>Goto 1⊿O”M”J”A°”
L4 Lbl 1:P=Z-G:S=E:T=F:U=H:I=H:Fixm
L5 P≤0=>Prog ”3”:≠=>P≤W=>Prog ”1”:≠=>P≤W+K=>Prog ”2”:I=90W/π/R+
L8 Pol(X-A,Y-B):J=J-M:J<0=>J=J+360⊿
L9 J:”°°°=”◢I:”S=”◢X:”X=”◢Y:”Y=”◢Goto 2
二、子程序：1
L1 I=90P2(πRW)-1
L2 X=P-Pxy5(40R2W2)-1
L3 Y=PIπ/540
三、子程序：2
L1 Y=180π-1R-1(P-0.5W)
L2 X=RsinY+W/2- Wxy3/240/R2
L3 Y=W/24/R+R-RcosY
四、子程序：3
L1 X=S+PcosU
L2 Y=T+PsinU
五、子程序：4
L1 V<0=>Y=-Y:I=-I⊿
L2 S=S+XcosU-YsinU
L3 Y=T+XsinU+YcosU
3、计算结果显示的数据是：极角、极距和坐标。
4、该程序适用于极坐标法测量曲线时的数据（极角和极距）计算，以及曲线坐标计算。
程序设计：杨序邦 2002年7月 重庆
相关文档
最新文档