4800程序
4800计算器程序
4800计算器程序（缓和曲线任意中、边桩）LBI 0：X：Y：{I}：{J}：A：R：U：N：{D}：{O}：Z：W：W=1＝＞GOTO 1：≠＞GOTO 2←LBI 1：B=90L2÷（ΠRA）：←C=√（（（I-J）-（I-J）5÷（40R2A2））2+（（I-J）3÷（6RA））2）：Q=U+BN÷3：S=U+BN+Z：T=U+BN+Z+180：GOTO 3：←LBI 2：E=90（I-J）÷（ΠR）：C=2R SinE:B=90A÷（ΠR）:Q=U+(B+E)N:S=U+(B+2E)+Z:T=U+(B+2E)N+Z-180:GOTO 3: ←LBI 3：F“XA”=X+C CosQ▲G“YA”=Y+C SinQ▲H“XR”=F+D CosS▲H“YR”=G+D SinS▲H“XL”=F+O CosT▲H“YL”=G+O SinT▲GOTO 0←说明：X Y—-起算点坐标（计算缓和曲线部分输ZH点、计算圆曲线部分输HY点）；I J---为计算桩号，I为大里程，J为小里程，保证（I-J）始终为正；A—-为缓和曲线长；R—-半径；U—-起始方位角（直缓点）；D O—计算边中距；Z—-一般为90度；N—-判别曲线左右偏位，右转输+1、左转输-1；W---当W=1时，程序计算缓和曲线部分，当W=0时，程序计算原曲线部分；F“XA”、 G“YA”---计算桩号的中桩坐标；H“XR”、 H“YR”---计算前进方向（F“XA”、 G“YA”对应）的右边桩坐标，H“XL”、 H“YL”---计算前进方向（F“XA”、G“YA”对应）的左边桩坐标注意：在计算YH至HZ间坐标时，X Y应输入HZ点的坐标值，U为HZ点的方位角-180度，N也相应相反，这时计算的左右边桩与线路前进方向的左右边桩正好相反，计算时要注意取值。
4800程序使用说明书
4800程序使用说明书术语：连续曲线数据块、独立曲线数据块、长短链功能：1、放样对应里程中心点2、放样对应里程旋转任意角度外移点（图A点）3、放样对应里程旋转任意角度外移点的外移点（图B点）4、获取放样点坐标及对应里程中心点沿线路前进方向切线方位角程序输入注意事项：1、常用程序文件放在前面，便于调用，一般先建立“CIRC LE”、“XY-AL”、“AL-XY”三文件，文件名千万不能输错。
2、加粗带下划线词组为计算器中的函数或符号，只能从计算器中调出此函数或符号，不能从键盘输入。
符号←表示回车键“EX E”坐标输入通用格式：屏幕显示OPP NAME?（置镜点名称）或CPP NAME?（后视点名称）：1：输入-1：手动输入坐标X,Y2：输入大于1数字：输入用数字所代表的控制点名。
如数据库中没有本数字所代表的点名，则系统显示Syn ERROR in…（文件名）。
曲线放样程序（CIRCLE）运行说明：步骤1：屏幕提示“LOAD?”（输入曲线要素）1.1：输入 1（默认）：输入里程后将自动判断所在曲线并调用（此功能必须保证曲线数据库中有连续曲线数据块，具体详见数据库建立）。
1.2：输入-1：屏幕提示手动输入各曲线要素，ZJ（转角）、R（半径）、L0(缓和曲线长)、ZH KM(直缓里程)、JDX(曲线交点X坐标)、JDY(曲线交点Y坐标)、A0(起始直线边前进方向方位角)、1 R,-1 L(右偏输入1，左偏输入-1)。
1.3：输入大于1的数字：输入用数字代表的曲线名称，比如13，表示放样点位于曲线 13 上（曲线名称在建立数据库是自己命名，但一定要大于1）。
如库中没有此名称，系统显示“Syn ERROR in CI RCLE”。
（此功能必须保证曲线数据库中有独立曲线数据块）步骤2：屏幕提示“OPP NAME?”（输入置镜点名称）详见坐标输入格式。
步骤3：屏幕提示“DK+M?”（输入放样点对应中心里程）如K15+002.35应输入15002.35。
卡西欧4800计算器程序
LY、RY：左侧或右侧点Y坐标
I：置镜点至左或右点距离
J：置镜点至左或右点方位角
CONT：输入0计算下一里程；输入1则从本程序第一步开始
QX1计算范围：
DK214+832.674~DK216+053.229
QX2计算范围：
DK215+707.196~DK217+253.771(反算)
LbI 5 ↙
H=1=〉Y= -1×Y△ U=B+X cosT-YsinT：V=C+XsinT+YcosT：↙
X=U▲
Y=V▲
PoL（（X-M，Y-N）↙
I ▲
J＜0=〉J=J+360△↙
J ▲
{W}：W“NEXT”：W=1=〉Goto 1△↙
LHale Waihona Puke I 6 ↙ {O}：O“O=”：O=1=〉Goto 7△↙
QX3计算范围：
DK216+623.229~DK219+480.262
QX4计算范围：
DK217+923.771~DK222+114.707(反算)
J ▲
F=T ▲
Goto 6 △↙
LbI 3 ↙
L＞A=〉Goto 4 △ X=L-L5÷40÷（RA）2：Y=L3÷（6RA）-L7÷336÷（RA）3：Z=60×L2÷（πRA）+tan-1（Y÷X）：H=1=〉Z= -1×Z △F=T+Z▲
Goto 5 △↙
LbI 4 ↙
Z=180（Abs（E-D）-A）÷（πR）+90A÷（πR）：X=R sinZ+A÷2-A3÷（240R2）：Y=R（1-cos Z）+A2÷（24R）-A4÷（2688R3）：H=1=〉Z= -1×Z △ F=T+Z▲
CASiO fx-4800计算器程序
CASiO fx-4800计算器程序1、CE ZHANFix3:Prog"X":U=X:V=Y:Prog"X":X=X:Y=Y:Fixm:Pol(X-U,Y-V:Pause0:W=J:J<0=>J=J+360△IntJ+.01(.6Fr ac 60J+Int(60 FracJ:Fix 4:J"D,F"= Ans2、QU XIANFix3:L"K+"D"B÷2":Fixm:AbsD<3E 3=>Prog"Q":≠>X=L:Y=D △X:Pause0:Y"N,E="◢Pol ( X-U ，Y-V:Pause0: J <0=>J=J+360△IntJ+.01( .6 Frac 60J+Int(60 FracJ:Fix 4:J"D,FWJ"=Ans3、X{NXY}:N=控制点编号=>X=控制点X 坐标：Y=控制点Y 坐标△N=下个控制点编号=>X=下个控制点X 坐标：Y=下个控制点Y 坐标△……X:Pause0:Y4、QProg"SJ":Prog"P":C=L-H:C>.5B=>K=B-C:≠>K=C △K>0=>K≤S=>A=RS:X=K -K 5÷40A 2:Y=K 3÷6A -K 7÷336A 3:≠>A=180(K-S)÷πR+M:Y=R(1-cosA)+W:X=RsinA+Z ［1△Pol(X,Y:≠>I=K:J=0△E-F>0=>C<.5B=>X=N+Rec(I,J+F:Y=J+Q:Prog"J":J=Ans+F:≠>J=-J:Prog"K":C=B-C:Prog"J":J=E-Ans:△≠>C<.5B=>J=-J:X=N+Rec(I,J+F:Y=J+Q:Prog"J":J=F- Ans: ≠>Prog"K":C=B-C:Prog"J":J=Ans+E: △△X=X+Rec(D,J+90:Y+J5、KX=P+Rec(I,J+180+E:Y=J+O6、JC≤0=>0: C≤S=>90C 2÷πA: ≠>A △△△7、PE=F-Z:G=H+B:W=S 2÷24R: Z ［1］=S-S 3÷40R 2-Rsin(180S÷2πR:M =180S÷2πR ：Rec （T,F-180：N=I+X:Q=J+Y: Rec （T,E:P=I:+X:O =Y+J8、SJL ≤缓直点桩号=>B=曲线长度:F=计算方位角:H=直缓点桩号:T=切线长度：X=交点X 坐标：Y=交点Y 坐标： S=缓和曲线长度:R=曲线半径：Z=转角（左转输正，右转输负）：≠>L≤下段直缓点桩号=>B=曲线长度：F=计算方位角:H=直缓点桩号：T=切线长度：X=交点X 坐标：Y=交点Y 坐标： S=缓和曲线长度:R=曲线半径：Z=转角值: ≠>L≤下段直缓点桩号……△△△ (注：有多少弯道就加多少个△)。
4800计算器程序编辑步骤2改
4800计算器程序编辑步骤2一、文件名QXFY(曲线放样主程序)W=1:{WQ}:W“LOAD”:W=-1=>A“ZJ”:B“R”:C“L0”:D“ZH KM”:E“JDX”:F“JDY”:G“A0”:H“1 R,-1 L”:⊿←{Q}:Q“OPP NAME”:Q=-1=>U“X0”:V“Y0”:≠>Prog“CON DAT”:U=4.444=>::⊿⊿←Lb1 1:{Z}:Z“DK+M”:Int (Z/1000)>0=>K=Int (Z/1000): ≠>Z=Z+1000K⊿←W≠-1=>Prog “CIR DAT”:A=9=>::⊿⊿←H≠-1=>H≠1=>::⊿⊿←M=Z-D:Prog “CENTER”←{L}:L“OUT L”:L>0=>{R}:R“OUT ANGLE”:X=X+Lcos(P+R):Y=Y+Lsin(P+R) ⊿L<0=>L=AbsL:{R}:R“OUT ANGLE1”:O=P+R:X=X+LcosO:Y=Y+LsinO:{LR}:L“OUT L2”:R“OUT ANGLE2”:L=AbsL:O=O+R +180:X=X+LcosO:Y=Y+LsinO⊿←PoI(X-U,Y-V)←“L=”:I◢( I“L=”◢)J<0=>J=J+360:⊿←“A=”:J→DMS◢(J“A=”◢)O=-1:{O}:O“VIEWXY”:O≠-1=>”X=”:X◢”Y=”:Y◢”P”:P→DMS◢⊿←(X◢Y◢P◢⊿←)Goto 1←二、文件名XY-AL(坐标反算){Q}:Q“OPP NAME” ←Q≠-1=>Prog“CON DAT”:U=4.444=>::⊿A=U:B=V: ≠>A“X0”:B“Y0”: ⊿I=0:J=0←Lb1 1:{Q}:Q“CPP NAME”:Q=-1=>{DC}:C“Xc”:D“Yc”: ≠>Prog“CON DAT”:U=4.444=>::⊿C=U:D=V: ⊿←Po1(C-A,D-B) ←“L=”:I◢(I “L=” ◢)J<0=>J=J+360⊿←“A=”:J→DMS◢(J“A=” ◢)Goto 1←三、文件名CAL XY(导线计算)O=2←Lb1 1:{O}:O“1:X0,Y0-A06个空格2:X0,Y0-XC,YC”:O≠1=>O ≠2=>Goto 1: ⊿⊿←I=0:J=0←{Q}:Q“OPP NAME”:O≠-1 Prog“CON DAT”: U=4.444=>::⊿A=U:B=V: ≠>A“X0”:B“Y0”: ⊿←O=1=>E“A0”: ≠>{Q}:Q“CPP NAME”:Q=-1=> C“Xc”:D“Yc”: ≠>Prog“CON DAT”:U=4.444=>::⊿C=U:D=V: ⊿Po1(C-A,D-B):E=J: ⊿←F=E:X=A:Y=B←Lb1 2:{ML}:M“LEFT ANGLE”:L“DISTANCE”:F=F+M:Rec(L ,F):X=X+I◢Y=Y+J◢F=F-180:Goto 2四、文件名CENTER（曲线放样子程序）S=ABπ/180+C：O=C2/24B：T=（B+O）tan（A/2）+C/2-C^3/240B2：N=-1：M>S-C=>M=S-M：N=1：⊿←M≤0=>X=M:Y=0:P=0: Goto 1: ⊿←M≤C=>X=M-M^5/40B2C2:Y=M^3/6BC-M^7/(336*B^3*C^3):P= 90M2/πBC：Goto 1: ⊿←M≤S-C=>P=180(M-C)/πB+90C/πB:X=BsinP+C/2-C^3/240 B2:Y=B(1-cosP)+O: ⊿Lb1 1:N=1=>P=A-P:I=X:J=Y:X=T+(T-I)cosA-JsinA:Y=(T-I)sinA+JcosA: ⊿←I=X:J=HY:X=E+Tcos(180+G)+IcosG-JsinG:Y=F+Tsin(180+G )+IsinG+JcosG:P=G+HP←五、文件名CIR DAT(曲线要素数据库)A=9：W≠1=> Goto 1⊿←Z≤曲线交点代号=>A=转向角：B=半径：C=缓和曲线长：D=直缓点里程：E=交点X坐标：F=交点Y坐标：G=切线方位角：H=右偏+1，左偏-1：Goto 1⊿←W=编辑顺序同上。
卡西欧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。
一个简短实用的fx4800测量程序
一个简短实用的fx4800测量程序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=>Goto 1：≠>Goto 2Δ←┘Lbl 1：{SZ}：SZ：W=Abs(S-O)：Prog "SUB1"：X"XS"=X? Y"YS"=Y?F"FS"=F-90?Goto 1←┘Lbl 2：{XY}：XY：I=X：J=Y：Prog "SUB2"：S"S"=O+W? Z"Z"=Z?Goto 22. 正算子程序(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+QE FW(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+ZsinF3. 反算子程序(SUB2)T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog "SUB1"：L=T+QEW(C+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1E-6=>Goto1：≠>W=W+Z：Goto 0Δ←┘Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)÷sinF输入部分：1. SZ => XY2. XY = > SZN ? 选择计算方式，输入1表示进行由里程、边距计算坐标；输入2表示由坐标反算里程和边距。
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 丘地有关项⽬的计算程序公路中、边桩坐标计算及放样程序功能：任意半径曲线中桩、任意交⾓边桩坐标计算放样、中桩切线⽅位⾓、任意点置仪放样、两点间距离计算、两点⽅位⾓计算。
4800计算程序
直线坐标计算：1、N″X0″:K″Y0″:Q:Z″HZ″2、Lb1 0:﹛S﹜:S″JSD″:L=S-Z3、C″X1″=L*COS Q+N◢4、D″Y1″=L*Sin Q+K◢5、﹛BP﹜:A=Q+P6、E″X2″=C+B*COS A◢7、G″Y2″=D+B*Sin A◢8、Goto 0注：X0,Y0表示起算点的纵横坐标；Q表示起算方位角；HZ表示起算点里程；JSD 表示计算点里程；X1，Y1表示计算点坐标；P表示边桩夹角；B表示边桩到计算点的距离；X2，Y2表示边桩坐标。
线路综合计算（由曲线起点至第二条曲线起点）：1、R″R″：I″I″：C″ZXJ″：A″ZX″：B″ZY″：W″ZA″：O″ZH″2、P=I2/24/R-I4/2688/R33、M=I/2-I3/240/R24、T=（R+P）*tan（C/2）+M5、F=I/2/R*180/π6、L=（C-2F）*π/180*R+2I7、G″L0：L=1；R=2″8、G=1=＞N=-1◣9、G=2=＞N=1◣10、Lb1 1：{D}：D″JSD″：Z=D-O11、Pause 012、Z＞L=＞Q=W+N*C◢13、X=A+T*COS W+（T+Z-L）*COS Q◢14、Y=B+T*Sin W+（T+Z-L）*Sin Q◢15、Goto 3:◣16、Z＜I=＞Q=W+N*Z2/2/R/I*180/π:X=Z-Z5/40/R2/I2+Z9/3456/R4/I4:Y=Z3/6/R/I-Z7/336/R3/I3+Z11/42240/R5/I5:Goto 2:◣17、Z＜L-I=＞S=(Z-I)/R*180/π+F:Q=W+N*((Z-I)/R*180/π+F):X=R*Sin S+M：Y=R*（1-COS S）+P：Goto 2：◣18、U=L-Z-（L-Z）5/40/R2/I2+（L-Z）9/3456/R4/I419、V=（L-Z）3/6/R/I-(L-Z)7/336/R3/I3+(L-Z)11/42240/R5/I520、Q=W+N*C-N*(L-Z)2/2/R/I/π*18021、X=T*(1+COS C)-U*COS C-V*Sin C22、Y=T*Sin C-U*Sin C+V*COS C23、Lb1 2:Q＜0=＞Q=Q+360◢24、◣25、Q≥360=＞Q=Q-360◢26、◣27、Q=Q◢28、S=√(X2+Y2)29、K=tan-1(Y/X)30、X=A+S*COS(W+N*K)◢31、Y=B+S*Sin(W+N*K)◢32、Goto 3:◣33、Lb1 334、{JE}35、X″EX″=X+E*COS(Q+J)◢36、Y″EY″=Y+E*Sin(Q+J)◢37、Goto 1注：Ｒ表示曲线半径；Ｉ表示缓和曲线总长；ＺＸＪ表示转向角；ＺＸ、ＺＹ表示直缓点（直圆点）纵横坐标；ＺＡ表示起算方位角；ＺＨ表示直缓（直圆）点里程；Ｌ（１）或Ｒ（２）表示左转或右转；ＪＳＤ表示计算点里程；Ｑ表示计算点切线方位角；Ｘ、Ｙ表示计算点坐标；Ｅ表示边桩到计算点的距离；Ｊ表示边桩与线路的夹角；ＥＸ、ＥＹ表示边桩坐标。
卡西欧48004500测量程序测量实用计算程序_
测量实用计算程序（适用于CASIO 4500/4800）一）线路坐标计算程序采用的公式1、曲线要素公式：内移值p= L s2/（24R）切线增量q= L s/2- L s3/（240R2）切线长T=（R+P）tg(A/2)+ q切线角β0= L s/(2R)曲外距E=（R+P）SEC(A/2)-R曲线长L=R(A-2β0)π/180+2 L s2、缓和曲线上任一点与ZH点之间的弦长公式：C=L-L5/（90R2L s2）3、缓和曲线任一点的偏角δ公式：δ=（L/ L s）2δ0δ0=1/3β0（其中L为弧长R为半径Ls为缓和曲线长A为曲线偏角）4、其它均采用座标增量公式：ΔX=LCOSθΔY=Lsinθ然后与JD的座标相加：X=X JD+ΔXY=Y JD+ΔY其中：L为计算点至交点JD的长度θ为JD至计算点的方位角X JD不交点JD的X座标Y JD不交点JD的Y座标圆曲线增设缓和曲线示意图程序功能：可计算直线、缓和曲线、圆曲线上任一点的中桩座标及其法向边桩座标。
A ：曲线偏角 T ：切线距 E ：外矢距 R ：圆曲线半径ZH ：直缓点 HY ：缓圆点 QZ ：曲中点 YH ：圆缓点 HZ ：缓直点JD ZH HZ HY YH AO P q T E β0 R QZ一）单交点对称型曲线坐标计算程序（CASIO 4500/4800）1.Defm 62.A:C”LS=”:D”JD=”:R”R=”3.P=Cx y2/24/R4.Q=C/2-C x y3/240/R x y25.B=90C/R/л6.T=(R+P)tg(absA/2)+Q7.E=(R+P)/cos(A/2)-R8.L=(absA-2B) ЛR/180+2C9.G”ZH”=D-T◢H”HY”=G+C10.z[6]”QZ”=G+L/211.K”YH”=G+L-C12.M”HZ”=G+L13.N”JD X=”:W”JD Y=”:F”FANGWEIJIAO”:J14.A<0→S=-1:≠→S=1⊿15.U=F+A/2+90S16.V=E+R17.B=N+VcosU18.O=W+VsinU19.20.X”X0=”：Y”Y0=”21.Z[1]=X22.Z[2]=Y23.24.Lb1 125.{Z}26.Z≤G→L=D-Z27.V=F+18028.U=F29.Goto 2⊿30.Z≤H→L=Z-G31.V=L-L x y5/90/(RC) x y232.L=30SL x y2/R/л/C33.P=F+18034.Q=F+L35.U=F+3L36.Goto 4⊿37.Z≤K→L=F+A/2+180+90S+180S(Z-I)/R/л38.U=L+90S39.Goto 5⊿40.Z≤M→L=M-Z41.V=L-L x y5/90/(RC) x y242.L=30SL x y2/(RлC)43.P=F+A44.Q=P+180-L45.U=Q-2L-18046.Goto 4⊿47.Z>M→L=Z-M+T48.V=F+A49.U=V50.Goto 2⊿51.Lbl 252.X=N+LcosV◢53.Y=W+LsinV◢54.Goto 6⊿55.Lbl 356.{E}57.P”XL”=X+Ecos(U-90)◢58.Q”YL”=Y+Esin(U-90)◢59.Z[3]=P-Z[1]60.Z[4]=Q-Z[2]61.Pol(Z[3],Z[4])62.J≥0→J”FWJ”=J◢63.≠→J”FWJ”=J+360◢⊿64.Z[5]”L”=I◢65.P”XR”=X+Ecos(U+90)◢66.Q”YR”=Y+Esin(U+90)◢67.Z[3]=P-Z[1]68.Z[4]=Q-Z[2]69.Pol(Z[3],Z[4])70.J≥0→J”FWJ”=J◢71.≠→J”FWJ”=J+360◢⊿72.Z[5]”L”=I◢73.Goto 174.Lbl 475.X=N+TcosP+VcosQ◢76.Y=W+TsinP+VsinQ◢77.Goto 678.Lbl 579.X=B+RcosL◢80.Y=O+RsinL◢81.Goto 682.Lbl 683.J=1→Goto 3⊿84.Goto 1说明：A 曲线偏角（左偏为负数）LS 缓和曲线长度D JD交点里程R 圆曲线半径N JD点X坐标W JD点Y坐标F 起算方位角ZH至JDJ 输入1时计算中桩两侧坐标输入0时只计算中桩坐标E 输入中桩至两侧的距离XL YL 为左侧坐标XR YR 为右侧坐标注：针对具体一个曲线可将已知条件数据直接输入程序中。
4800(4850)万能曲线计算程序
一：万能曲线4800(4850)分段计算程序Lb1 1:{EG}:A"XA" B"YA" C"CA" 8D"1÷RA" E"1÷RB" F"DKA" G"DKB"Lb1 2:{HOR}:H"DKI" O"DL" R"DR":H-G>0 ⇒Goto3⊿(空心三角) 88P=(E-D)÷Abs(G-F):Q=Abs(H-F):I=P×QJ=C＋（I＋2D）×Q×90÷π ▲8M=C＋（I÷8＋2D）×Q×45÷（4π）8N=C＋（3I÷8＋2D）×Q×135÷（4π）8U=C＋（5I÷8＋2D）×Q×225÷（4π）8V=C＋（7I÷8＋2D）×Q×315÷（4π）8K=C＋（I÷4＋2D）×Q×45÷（2π）8W=C＋（I÷2＋2D）×Q×45÷π8Z=C＋（3I÷4＋2D）×Q×135÷（2π）8﹛T﹜X=A＋Q÷24×（cosC＋4×（cosM＋cosN＋cosU＋cosV）＋2×（cosK＋cosW＋cosZ）＋cosJ）▲Y=B＋Q÷24×（sinC＋4×（sinM＋sinN＋sinU＋sinV）＋2×（sinK＋sinW＋sinZ）＋sinJ）▲U“XL”=X+Ocos(J-（180-T）)◢▲V“YL”=Y+Osin(J-（180-T）) ◢▲W“XR”=X+Rcos(J+T) ◢▲Z“YR”=Y+Rsin(J+T) ◢▲8Goto 2Lb 83:A=X:B=Y:D=E:F=G:C=J :Goto 1注：A-曲线元起点A的X坐标、B-曲线元起点A的Y坐标、C-曲线元起点A 的切线方位角、F-曲线元起点A的里程、G-曲线元终点B的里程、H-曲线元上待求点I的里程、D-曲线元起点A的曲率、E-曲线元终点B的曲率、XL-左边线点位的X坐标、YL-左边线点位Y的坐标、XR-右边线点位的X坐标、YR-右边线点位的Y坐标、X，Y-中线点位X，Y坐标、O-左边线距中线平距、R-右边线距中线平距第1页该程序需要输入的数据为：（1）曲线元起点A的坐标及切线坐标方位角计算器上用“XA、YA、CA”显示；（2）曲线元起点A和曲线元终点B的曲率，计算器上用1÷RA、1÷RB显示（曲线左偏时取“-”）（3）曲线元起点A和曲线元终点B的里程，计算器上：“DKA，KDB”显示；（4）输入待求点的里程和该点距左右边线的水平距离，计算器上用“DKI、DL、D R”显示；（5）每计算完一个待求点的中线及边线坐标，程序会让输入下一个点的DKI，DL，DR。
4800计算器计算程序
主程序F3LbI 1:A“X1”:B“Y1”:C“X2”:D“Y2”N=0:E=C-A:F=D-B ↙ Prog“F1”↙{P}:P≥1 Prog“F2”△↙LbI 6:{XY}:E=X-A:F=Y-B:Prog“F1”:N≠1 L=G ↙Z≥L M=Z-L-180: M=Z-L+180: △↙M >0 M=180-M ▲M=180+Abs M▲△ Goto 6 ↙子程序F1E=0 Goto4 △ I=tan-1Abs(F÷E):S=√ (E2+F2) ▲F≥0 Goto2△E<0 G=180+I▲G = 360-I▲△Goto 5↙LbI 2:E<0 G=180-I ▲G = I ▲△ Goto 5 ↙LbI 4:F>0 G = 90 ▲G =270 ▲△ Goto 5 ↙LbI 5:N=N+1:N=1 Z= G △↙子程序F2LbI 9:{SI}:P=G+180-I:X=A+Scosp▲Y=B+SsinP ▲{o}:o≤0 Goto 9 △ o≤1 A=X:B=Y:G=P+180:G>360 G = G-360:Goto 9 △↙说明:1、主程序F3，已知座标放线；2、P<1主程序进入座标放样计算，P≥1时主程序进入座标计算；3、F3中的S是站点至待放点的距离，M是后视点至待放点的左角。
4、F2中的O表示站点，O>1迁站重新输入（X1，Y1）（X2，Y2）计算座标。
输入转角I时；转角左转I取“+”，右转I取“—”。
5、F2中的S，是表示站点至待求座标点的距离，用测距仪测定。
主程序：PQXLbI O:A“K0”:B“X0”:C“Y0”:D“L0”:E“A0”:F“B0”:G“K1”:N :R:T:Z:L=K-A:S=K-A-D:I=G-K ↙{K} ↙N<1 Prog “P1”:Goto O △↙N=1 Prog “P2”:Goto O △↙Prog “P3”↙Goto O ↙子程序：P1Z≤1 X=B+[L-L5÷(40R2D2)]CosE+[L3cos(E+90)]÷(6RD)▲Y=C+[L-L5÷(40R2D2)]sinE+[ L3sin(E+90)] ÷(6RD) ▲Y=C+[L-L5÷(40R2D2)]sinE+[ L3sin(E-90)] ÷(6RD)▲子程序:P2Z≤1 X=B+[D- D3÷(40R2)]cosE+[(D2÷(6R))]cos(E+90)+[S-S3÷(6 R2 )+ S5 /(120R4 )]Cos[E+(90D) ÷(πR )]+[ S2÷(2R)-S4÷(24R3)+S6÷(720R5)]cos[E+(90D)÷(πR)+90] ▲ Y=C+[D- D3÷(40R2)]sinE+[(D2÷(6R))]sin(E+90)+[S-S3÷(6R2)+S5÷(120R4)]sin[E+(90D)÷(πR)]+[S2÷(2R)-S4÷(24R3)+S6÷(720R5)]sin[E+(90D)÷(πR)+90] ▲X=B+[D-D3÷(40R2)]cosE+[(D2÷(6R)]cos(E-90)+[S-S3÷(6R2) +S5÷(120R4)]cos[E-(90D)÷(πR)]+[S2÷(2R)-S4÷(24R3)+S6÷(720R5)]cos[E-(90D)÷(πR)-90] ▲Y=C+[D-D3÷(40R2)]sinE+[(D2÷(6R)]sin(E-90)+[S-S3÷(6R2) +S5÷(120R4)]sin[E-(90D)÷(πR)]+[S2÷(2R)-S4÷(24R3)+S6÷(720R5)]sin[E-(90D)÷(πR)-90] ▲子程序:P3Z≤1 X=B+TcosE+Tcos(E+F)+[I-I5÷(40R2D2)]cos(E+F+180) +[I3÷(6RD)]cos(E+F+180-90)▲Y=C+TsinE+Tsin(E+F)+[I-I5÷(40R2D2)]sin(E+F+180) +[I3÷(6RD)]sin(E+F+180-90)▲X=B+TcosE+Tcos(E-F)+[I-I5÷(40R2D2)]cos(E-F+180) +[I3÷(6RD)]cos(E-F+180+90)▲Y=C+TsinE+Tsin(E-F)+[I-I5÷(40R2D2)]sin(E-F+180)+[I3÷(6RD)]sin(E-F+180+90)▲说明:1.K0为ZH点桩号;(X0，Y0)为ZH点座标；L0为缓和曲线段长度，A0为直线方位角；B0为转角；K1为HZ点桩号；N为条件参数；R为半径；T为切线长；Z为条件参数；K为待求点桩号。
卡西欧4800程序
支导线程序(fx4800P)ZDXProg”006”:A=J:Z”1—2”:X=U:Y=W:LbI0:{Q}:Q”Q=”:{L}:L”L=”:X=X+LCos(A+Q):Y=Y+LSin(A+ Q): X”X=”▲ Y”Y=”▲A=A+Q+180:Z=2=>X=U:Y=W:A=J△Goto0放样程序(fx4800P)FYProg”006”: LbI0:{X}:X”X=”:{Y}:Y”Y=”: Prog”007” :Goto0竖曲线程序(fx4800P)SHU--QXI“I=”:J”J=”:R”R=”:W=I-J:C=Abs(RW)/1000:T=C/2:E=T^2/(2R): C”L=”▲ T”T=”▲ E”E=”▲W<0=>K=1△W>0=>K=-1△D”BIAN—LI=”:Z”BIAN—H=”:A=Z+(-IT)/1000:LbI0:{L}:L”DK=”:L≤D-T=>H=Z+(D-L)(-I/1000)△L>D-T=>H=A+I(L-(D-T))/1000+K(L-(D-T))^2/(2R) △L≥D+T=>H=Z+J(L-D)/1000△H”H=”▲Goto0已知点坐标求对应里程和距离(fx4800P)1、主程序(DYLC)Defm42: AB”N1=”C”N2=”:R:Pro g”000” :Pro g”009”:E”PYL=”:K”Z—Y”: Z”ZH=”:M”ZH—X”:P”ZH—Y”:F:Lbl0:Prog”XH”:Goto02、子程序(XH)Lbl1:Pro g”QX”:{U}:U”YZ—X=”:{W}:W”YZ—Y=”:I=U-X:J=W-Y:Pol(I,J):J<0=>J=J+360△Z[37]=J-Z[34]:Z[38]=cosZ[37]×I:D=D+Z[38]:AbsZ[38]≥0.001=>Goto1:≠> D”DYLC=”△▲Z[35]=sinZ[37] ×I: Z[35] “FXJL=”▲已知3点坐标求圆心和半径(fx4800P)主程序(3DZB--QYX)A”AX=”B”AY=”C”BX=”D”BY=”E”CX=”F”CY=”: X=((F-B)(D^2-B^2+C^2-A^2)+(D-B)(B^2-F^2+A^2-E^2))/(2(C-A)(F-B)-2(E-A)(D-B)):X”X=”▲Y=((E-A)(C^2-A^2+D^2-B^2)+(C-A)(A^2-E^2+B^2-F^2))/(2(D-B)(E-A)-2(F-B)(C-A)):Y”Y=”▲R=√((A-X)^2+(B-Y)^2):R“R=”▲自由设站(fx4800P)(边角后方交会)HFJHLbI0:{A}:A”H1—X=”:{B}:B”H1—Y=”:{C}:C”H2—X=”:{D}:D”H2—Y=”:I=C-A:J=D-B:POL(I,J):J≤0=>J=J+360⊿ I:”S=”▲Z[42]=J: Prog”006”:Z[42]:”FW—Q=”▲{E}:E”L1=”:{F}:F”L2=”:{G}:G”Q=”:H=Cos-1((I2+ E2-F2)/(2IE)):K=Cos-1((I2+ F2-E2)/(2IF)):L=A+E×Cos(J+H) :M=B+E×Sin(J+H):N=C+F×Cos(J+180-K):O=D+F×Sin(J+180-K):X=(L+N)/2:Y=(M+O)/2:X:”X=”▲Y:”Y=”▲Goto0不对称缓和曲线放样数据计算(fx4800P)(带偏移量+中边桩)1 主程序(--QX—Z-B)Defm42:AB”N1=”C”N2=”:R:Pro g”000”: Pro g”009”:E”PYL=”:K”Z—Y”: Z”ZH=”:M”ZH—X”:P”ZH—Y” :F Lbl0:Pro g”QX”: Prog”006”:Prog”007”:Goto02 子程序(QX){D}:Z[1]=D”DK=”-Z:O=Z+Z[2] :N=(M+Z[11]CosF)+Z[12]Cos(F+KA) :S=(P+Z[11]SinF)+Z[12]Sin (F+KA):{L}:L”BIN—L”:{Q}:Q”BIN—Q”:Z[1]≤0=>Prog”001”:≠>Z[1]≤B=>Prog”002”:≠>Z[1]≤(Z[2]-C)=>Prog”003”:≠>Z[1]≤Z[2]=>Prog”004”:≠>Z[1]>Z[2]=>Porg”005”△△△△△ X”X=”▲ Y”Y=”▲Z[34]<0=>Z[34]=Z[34]+360:≠>Z[34]>360=> Z[34]=Z[34]-360△△Z[42]=Z[34]:Pro g”010”:Z[42]”QX—Q”▲(该点切线方位角)3 子程序（000）曲线要素计算Z[4]=B/2-B^3/(240R^2):Z[6]=B^2/(24R)-B^4/(2688R^3):Z[8]=90B/(πR）:Z[5]=C/2-C^3/(240R^2):Z[7]=C^2/(24R)-C^4/(2688R^3):Z[9]=90C/(πR) :Z[11]=(R+Z[6])tng(A/2)+Z[4]-（Z[6]-Z[7]）/sinA:Z[12]=(R+Z[7])tng(A/2)+Z[5]+(Z[6]-Z[7])/sinA:Z[10]=(R+(Z[6]+Z[7])/2)(1/cos(A/2)) -R:Z[2]=(A-Z[8]-Z[9])Rπ/180+B+C: Z[3]=Z[2]-B-C4 子程序（001）第一切线段计算X=M+Z[1]cosF:Y=P+Z[1]sinF:X=X+Lcos(F+Q):Y=Y+Lsin(F+Q): Z[34]=F:5 子程序（002）第一缓和曲线段坐标计算Z[28]=F:Z[27]=E:Z[13]=90B/（πR）：Z[14]=Z[13]/3：Z[15]=90Z[1]^2/(πRB):Z[16]=Z[14](Z[1]/B)^2 :Z[17]=RB:Z[18]=Z[1]-Z[1]^5/(40Z[17]^2)+Z[1]^9/(3456Z[17]^4):Z[19]=Z[1]^3/(6Z[17])-Z[1 ]^7/(336Z[17]^3)+Z[1]^11/(42240Z[17]^5):Z[20]=√(Z[18]^2+Z[19]^2):X=M+Z[20]cos(Z[28]+KZ[16]) :Y=P+Z[20]sin(Z[28]+KZ[16]):K<0=> Z[27]= Z[27]:≠>K≥0=> Z[27]=-1 Z[27]△△Z[23]= Z[27] (Z[1]/B):Z[21]= Z[28]+KZ[15]+90: X=X+Z[23]cosZ[21]:Y=Y+Z[23]sinZ[21]:Z[22]=Z[28]+KZ[15]+Q : X=X+LcosZ[22]:Y=Y+LsinZ[22]: Z[34]=Z[28]+KZ[15]6 子程序（003）圆曲线段坐标计算Z[27]=E:Z[28]=F:Z[13]=90B/(πR):Z[22]=Z[28]+K(Z[13]/3):Z[17]=RB:Z[18]=B-B^5/(40Z[17]^2)+B^9/ (3456Z[17]^4):Z[19]=B^3/(6Z[17])-B^7(336Z[17]^3+B^11/(42240Z[17]^5):Z[20]=√(Z[18]^2+Z[19]^2) :X=M+Z[20]cosZ[22]:Y=P+Z[20]sinZ[22]:Z[14]=Z[1]-B:Z[15]=180Z[14]/( πR):Z[23]= Z[28]+KZ[13] :Z[21]=2Rsin(Z[15]/2):Z[16]=Z[15]/2:X=X+Z[21]cos(Z[23]+KZ[16]):Y=Y+Z[21]sin(Z[23]+KZ[16]):Z[24]= Z[23]+KZ[15]:K<0=> Z[27]= Z[27]:≠>K≥0=> Z[27]=-1 Z[27]△△X=X+ Z[27]cos(Z[24]+90):Y=Y+ Z[27]sin(Z[24]+90):X=X+Lcos(Z[24]+Q):Y=Y+Lsin(Z[24]+Q): Z[34]＝Z[28]+KZ[13]+KZ[15]7 子程序（004）第二缓和曲线段坐标计算Z[15]=O-D:Z[22]=F+KA+180:Z[27]=E:K>0=>Z[27]=Z[27]:≠>K<0=> Z[27]=-1Z[27]△△Z[25]=Z[27]( Z[15]/C):Z[23]=-K:Z[13]=90C/(πR):Z[14]=Z[13]/3:Z[16]=90Z[15]^2/(πRC):Z[17]=Z[14](Z[15]/C)^2 :Z[18]=RC:Z[19]=Z[15]-Z[15]^5/(40Z[18]^2)+Z[15]^9/(3456Z[18]^4):Z[20]=Z[15]^3/(6Z[18])-Z[15]^7 /(336Z[18]^3+Z[15]^11/(42240Z[18]^5):Z[21]=√(Z[19]^2+Z[20]^2):Z[30]=N+Z[21]cos(Z[22]+Z[23]Z[17]): Z[31]=S+Z[21]sin(Z[22]+Z[23]Z[17]):Z[24]=Z[22]+Z[23]Z[16]+90: Z[32]= Z[30]+Z[25]cosZ[24]: Z[33]= Z[31]+Z[25]sinZ[24]:Z[26]=F+KA+Z[23]Z[16]+ Q : X= Z[32]+LcosZ[26]:Y= Z[33]+LsinZ[26]: Z[34]＝Z[22]+（-1K）Z[16]-1808 子程序(005)计算第二切线段坐标Z[13]=F+KA:Z[14]=D-O:X=N+Z[14]cosZ[13]:Y=S+Z[14]sinZ[13]:X=X+Lcos(Z[13]+Q):Y=Y+Lsin(Z[ 13]+Q): Z[34]=Z[13]9 程序(006)计算后视数据{U}:U”ZX=”:{W}:W”ZY=”:{G}:G”HX=”:{H}:H”HY=”:I=G-U:J=H-W:Pol(I,J): I”S=”▲Prog”008”: Z[42]=J: Prog”010”: Z[42]”F0=”▲10 子程序(007)计算放样数据T=J:Pol(X-U, Y-W): Prog”008”: I”FY--L=”▲V=J-T:V<0=>V=V+360:≠>V>360=>V=V-360△△Z[42]=V: Prog”010”: Z[42]”FY--Q=”▲11 子程序(008)角度判断J<0=>J=J+360:≠>J>360=>J=J-360△△12 子程序（009）曲线要素结果显示Z[11]”T1=”▲ Z[12]”T2=”▲ Z[10]”E=”▲ Z[2]”QX--L=”▲ Z[3]”YQX—L=”▲13 子程序(010)角度的度分秒输出Z[40]=60FracZ[42]:Z[41]=60FracZ[40]:Z[42]=IntZ[42]+IntZ[40]÷100+Z[41]÷10000。
卡西欧4800系列 计算器程序
十一．BI DAO XIAN（闭导线）1．用途：该程序是“闭合导线平差”的计算程序。
2．程序数学模型：3．程序清单：Defm 40：X“X0”：Y“Y0”：F“A0”：N“UNKNOWN POINT”：N=N+1↙I=0：E=0：C=0：Lbl 0 ↙I=I+1：{L，D}：Z[2I-1]=L：Z[2I]=D：E=E+L：C=C+D：I<NGoto 0 Δ B“FW”=E-180（N-2）◢R：A“FR”=RN◢B=-B÷N：I=1：Z[2N+1]=F：Lbl 1 ↙I+I+1◢F=F+Z[2I-1]：F180F=F+180：F=F-180 Δ F360F+F-360 ΔZ[2N+2I-1]“A”=F+（I-1）B◢I<NGoto 1Δ I=0：G=0：H=0：Lbl 2 ↙I+I+1：Z[2I-1]=Z[2I]cosZ[2N+2I-1]：G=G+Z[2I-1]：Z[2N+2I]=Z[2I]sin Z[2N+2I-1]：H=H+Z[2N+2I]：I<N Goto 2 Δ G“FX”◢H“FY”◢I“F”=（G2+H2）◢K=I÷C◢U=-G÷C：V=-H÷C↙I=0：Lbl 3 ↙I+I+1◢Z[2I-1]=Z[2I-1]+U Z[2I]：Z[2N+2I]=Z[2N+2I]+V Z[2I]：X=X+ Z[2I-1]◢Y=Y+ Z[2N+2I]◢I<N-1Goto 3：“END”4．程序说明：X0，Y0，A0——已知的起始点的纵、横坐标及起始边的坐标方位角。
UNKNOWN POINT——待求未知点的个数。
L，D——观测的导线各左转角及平距。
FW，R，FR——导线角度闭合差、角度闭合差的允许误差的系数及允许误差值。
I，A——各条导线边序号及其坐标方位角。
FX，FY——坐标增量ΔX、ΔY的闭合差。
F，K——导线全长闭合差、导线全长相对闭合差。
4800计算程序
直线元计算程序Lb10:A"DO":M"XO":N"YO":F"FI":{Q，E，B，D}：L=Q-A：X"X"=M+LCOSF■Y"Y"=N+LSINF■Z=F+EB:X"X1"=X+COSZ■Y"Y1"=Y+DSINZ■Goto0圆曲线计算程序Lb10:A"DO":M"XO":N"YO":F"FI":R：{Q，E，B，D}：L=Q-A：C=F+180L/Rπ：X"X"=M+R（SINC-SINF）■Y"Y"=N-R （COSC-COSF）■Z=C+EB:X"X1"=X+COSZ■Y"Y1"=Y+DSINZ■Goto0第一缓和曲线计算程序Lb10:A"DO":M"XO":N"YO":F"FI":S"LS"：R：C：L=Abs(Q-A)：{Q，E，B，D}：I=L-L5/40C2+L9/3456C4-L13/599040C6：J=L3/6C-L7/336C3+L11/42240C5-L15/9676800C7：X"X"=M+ICOSF+JSINF■Y"Y"=N+ISINF-JCOSF■（左转角）X"X"=M+ICOSF+JSINF■Y"Y"=N+ISINF-JCOSF■（右转角）Z=F+90L2/(RπS)+EB:X"X1"=X+COSZ■Y"Y1"=Y+DSINZ ■Goto0第二缓和曲线计算程序Lb10:A"DO":M"XO":N"YO":F"FI":S"LS"：R：C：V= Abs （C/R）：{Q，E，B，D}：G=1＝＞L=V+Q-A：Z=F+90L2/（RπV）-90V2/（RπV）+EB：≠＞G=-1＝＞L=V-Q+A：Z=F+90V2/（RπV）-90L2/（RπV）+EB△△W=F-90GV2/（RπV）：I=L-V-（L5-V5）/40C2+（L9-V9）/3456C4-（L13-V13）/599040C6：J=（L3-V3）/6C-（L7-V7）/336C3+（L11-V11）/42240C5-（L15-V15）/9676800C7：X"X"=M+GICOSW+JSINW■Y"Y"=N+GISINW-JCOSW■（左转角）X"X"=M+GICOSW+JSINW■Y"Y"=N+GISINW-JCOSW■（右转角）X"X1"=X+COSZ■Y"Y1"=Y+DSINZ■Goto0路面结构层施工中高程测量4800计算程序A: Lb10:{Q,N}:N=1＝＞H=纵断高程计算公式：≠＞N=2＝＞H=………….. ：≠＞N=3＝＞H=………….. ：≠＞N=n＝＞H=………….. △△△△△△（n个）Prog"文件名"：Goto0 子程序Prog"文件名"{L}：L=1＝＞H=…………. ■A-H. ■≠＞L=2＝＞H=…………. ■A-H. ■≠＞L=3＝＞H=…………. ■A-H. ■≠＞L=n＝＞H=…………. ■A-H. ■△△△△△△（n个）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
FX-4800P计算器计算高公路坐标及高程程序（2001年2月编制共2056步）【X-Y】Lbl 5:｛K｝: K: K＞68586.6=＞K+K+2.839 Fixm: Z=1: Prog ”A”: Z4】=O-Z【3】: Z=Z-4:X=Z【1】: Y=Z【2】: O=Z【3≤O+Z【4】=＞Prog ”LE”: Goto 5 Z=1: Lbl 1: Prog “A”:K≤O+S=＞Prog “C”: Goto K≤O+L-S=＞Prog “ND”:Goto O=O+L: K≤O=＞N: Prog “C” : Goto 5 K≤O=＞“A”: Y=J: W=W+D: “LE”: Goto 5 Fixm: Z＜V-3=Prog“A”: K≤O+S=＞Prog “C” : Goto 5 K≤O+L-S= : Goto 5 O=O+L: K≤O=＞X=I: Y=J: W=W+D: N=-N: Prog “C” : Goto 5 X=I: Y=J: W=W+D: Prog “LE” 【LE】A=K-O: N=0: B=0: F=W: Prog “XY”【C】L=K-O↓A=L-L∧5÷40R2S2↓B=L∧3÷6RS-L∧7÷336R∧3÷S∧3: F=W+N(90L2÷πRS: Prog “XY”【ND】L=K-O-S↓Q=(180L+90S)÷πR↓A=RsinQ+S÷2-S∧3÷240R2:B= S2÷24R +R(1-CosQ): F=W+NQ: Prog “XY”【SO】｛TG｝: T “D”: G “δ”: X=X+TCos (F+G◢Y=Y+TSin (F+G◢÷【XY】Fix 3: X=4E 5+X+ACos W+BCos(W+90N:Y=4E 5+Y+ASin W+BSin (W+90N: Prog “SO”【W】J=0: Pol ((Z【Z+4】-Z【Z】), (Z【Z+5】-Z【Z+1】: W=J: W＜0=＞W=W+360【LOR】I=0: N=1: Prog “W”: A=W: P=I: S=Z【Z+6】: R=Z【Z+7】: X=Z【Z+4】: Y=Z【Z+5】: Z=Z+4: Prog “W”: D=W-A: N=D÷Abs D: W=A: E=SS÷(24R)-S∧4÷(2680RRR: B=90S÷(πR: M=.5S-SSS÷(240RR: T=M+(R+E) tan Abs(.5D: L=πR(Abs D-2B)÷180+2S: I=X+Tcos(W+D:J=Y+Tsin (W+D: :X=X+Tcos (W+180: Y=Y+Tsin (W+180【OP】Fixm: Z=1: K=8: Lbl 0: Q=0: H=0: Prog “LOR”: U=T: F=L: Z=Z-4: C=Z: Lbl 1:Prog “LOR”: Z=Z-8: G=2T-L: Q=Q+P: H=H+G: 【3】+Q-H+U-F: Z≥1=＞Goto 1Z=C+4: Z【V+K】=O: K=K+1: Z≤(V-3)=＞Goto 0 ÷【A】O=Z【V+7+(Z+3)÷4】: Prog “LOR”: Z=Z-4【JS】A=（Z【Z+4】-Z【Z+1】）÷（Z【Z+3】-Z【Z】: B=（Z【Z+7】-Z【Z+4】）÷（Z【Z+6】-Z【Z+3】W=B-A: R=Z【Z+5】: T=Abs . 5RW: O=Z【Z+3】-T:F=Z【Z+4】-A T【ZDM】Lbl 0:｛K｝: K: Z=1: Lbl 1: Prog “JS”: -O: K≤O=＞H=F+AL◢R÷2÷AbsW◢Goto 0 Z=Z+3: Fixm:Z≤V-2=＞Goto 1 3: Prog “JS”: H=Z【Z+4】+B（K-O-T-1-Mcl: V=24:Defm 37: Z【1】=1616.396: Z【2】=93356.647: Z【3】=48100: Z【5】=1493.281: Z【6】=92671.281: Z【7】=120: Z【8】=440: Z【9】=1174.786: Z【10】=92317.525:Z【11】=145: Z【12】=650: Z【13】=1113.592: Z【14】=91598.807; Z【15】=148.402: Z【16】=400: Z【17】=852.908: Z【18】=91325.798: Z【19】=120: Z【20】=400:Z【21】=570.281: Z【22】=90289.093: Z【23】=150: Z【24】=1000: Z【25】=564.874: Z【26】=88389.101: Z【27】=120: Z【28】=1300:Z【29】=117.693: Z【30】=87962.693: Prog “OP”【Z.DAT】Mcl: V=12:Defm 17: Z【1】=91960: Z【2】=260.65: Z【4】=92500: Z【5】=241.75:Z【6】=7000: Z【7】=9300: Z【8】=248.75: Z【9】=10000: Z【10】=93800:Z【11】=284.75: Z【12】=30000: Z【13】=94700: Z【14】=318.75; Z【15】=30000:Z【16】=94852.61: Z【17】=323.33: ÷说明：1．运行【XY.DAT】后运行【X-Y】则计算坐标：运行【Z.DAT】后运行【ZDM】则计算高程。
2．【XY.DAT】中V值为4倍中间转角点个数，【Z.DAT】中V值为3倍中间变坡点个数3．例：求桩号为K49+769.81左2.81m处坐标（D=2.81 δ=-90）计算结果X=401127.783 Y=491798.724求桩号为K49+769.81左9.81m处坐标（D=9.81 δ=-90）计算结果X=401120.809 Y=491799.332求桩号为K49+770右2.89m处坐标（D=2.89 δ=90）计算结果X=401133.445 Y=491798.039求桩号为K49+770右9.89m处坐标（D=9.89 δ=90）计算结果X=401140.419 Y=491797.4314. 例：求桩号为K92+710处设计高程，计算结果H=244.690求桩号为K92+000处设计高程，计算结果H=259.250求桩号为K92+150处设计高程，计算结果H=254.000求桩号为K92+270处设计高程，计算结果H=249.800求桩号为K92+875处设计高程，计算结果H=247.045求桩号为K93+575处设计高程，计算结果H=274.625求桩号为K93+975处设计高程，计算结果H=291.361求桩号为K94+825处设计高程，计算结果H=322.5015. 在【XY.DAT】中如中间转角点数为P，则Defm后应填数值P1=5P+8.6. 在【Z.DAT】中如中间变坡点数为P，则Defm后应填数值P1=P+5.-2-Mcl: V=24:Defm 37: Z【1】=1616.396: Z【2】=93356.647: Z【3】=48100: Z【5】=1493.281: Z【6】=92671.281: Z【7】=120: Z【8】=440: Z【9】=1174.786: Z【10】=92317.525:Z【11】=145: Z【12】=650: Z【13】=1113.592: Z【14】=91598.807; Z【15】=148.402: Z【16】=400: Z【17】=852.908: Z【18】=91325.798: Z【19】=120: Z【20】=400:Z【21】=570.281: Z【22】=90289.093: Z【23】=150: Z【24】=1000: Z【25】=564.874: Z【26】=88389.101: Z【27】=120: Z【28】=1300:Z【29】=117.693: Z【30】=87962.693: Prog “OP”【Z.DAT】Mcl: V=12:Defm 17: Z【1】=91960: Z【2】=260.65: Z【4】=92500: Z【5】=241.75:Z【6】=7000: Z【7】=9300: Z【8】=248.75: Z【9】=10000: Z【10】=93800:Z【11】=284.75: Z【12】=30000: Z【13】=94700: Z【14】=318.75; Z【15】=30000:Z【16】=94852.61: Z【17】=323.33: ÷说明：1．运行【XY.DAT】后运行【X-Y】则计算坐标：运行【Z.DAT】后运行【ZDM】则计算高程。
2．【XY.DAT】中V值为4倍中间转角点个数，【Z.DAT】中V值为3倍中间变坡点个数3．例：求桩号为K49+769.81左2.81m处坐标（D=2.81 δ=-90）计算结果X=401127.783 Y=491798.724求桩号为K49+769.81左9.81m处坐标（D=9.81 δ=-90）计算结果X=401120.809 Y=491799.332求桩号为K49+770右2.89m处坐标（D=2.89 δ=90）计算结果X=401133.445 Y=491798.039求桩号为K49+770右9.89m处坐标（D=9.89 δ=90）计算结果X=401140.419 Y=491797.4314. 例：求桩号为K92+710处设计高程，计算结果H=244.690求桩号为K92+000处设计高程，计算结果H=259.250求桩号为K92+150处设计高程，计算结果H=254.000求桩号为K92+270处设计高程，计算结果H=249.800求桩号为K92+875处设计高程，计算结果H=247.045求桩号为K93+575处设计高程，计算结果H=274.625求桩号为K93+975处设计高程，计算结果H=291.361求桩号为K94+825处设计高程，计算结果H=322.5015. 在【XY.DAT】中如中间转角点数为P，则Defm后应填数值P1=5P+8.6. 在【Z.DAT】中如中间变坡点数为P，则Defm后应填数值P1=P+5.-3-。