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也相应相反，这时计算的左右边桩与线路前进方向的左右边桩正好相反，计算时要注意取值。

常用CASIO4800计算程序集

FX4800P常用测量程序集1、由一个已知点坐标和一个已知方位角计算支导线坐标（程序名：ZBJS）程序清单：X：Y：T：Lb1 0：Fixm：{AS}：T=T+A-180：T〈0 =〉T=T+360⊿T〉360 =〉T =T-360⊿T◢X=X+Scos T◢Y=Y+Ssin T◢Goto 0程序运行说明：运行“ZBJS”，每运行一步按EXE键一次，显示X？时输入已知点X坐标，显示Y？时输入已知点Y坐标，显示T？时输入已知点由后视到前视的已知坐标方位角，运行一次本程序只需输入一次已知数据。

显示A？时输入第一个左转角值，显示S？时输入测站到前视的水平距离。

接下来计算器显示的T是测站到前视的坐标方位角，按+ 可将显示的十进制角度换算为度分秒。

如此继续可计算出所有支导线未知坐标。

2、由两个已知点坐标计算支导线坐标（程序名：ZBJS2）程序清单：M“X0”：N“Y0”：D“XH”：E“YH” ↲Pol(M-D，N-E)：Fixm：T=J：X=M：Y=N：T〈0=〉T=T+360⊿T“TH-J=” ◢I“S=”◢Lb1 0:{AS}: T=T+A-180：T〈0 =〉T=T+360⊿T〉360 =〉T =T-360⊿T◢X=X+Scos T◢Y=Y+Ssin T◢Goto 0程序运行说明：运行后，显示X0，Y0时输入已知置镜点坐标，显示XH，YH时输入已知后视点坐标，其它同ZBJS的输入与显示。

3、由一个已知点坐标和一个已知方位角进行放射型导线坐标计算（程序名FSXZB JS）程序清单：C“X0”：D“Y0”：E“T0”：Fixm：Lb1 1:{SA}↲T=E+A-180：T〈0=〉T=T+360⊿T〉360 =〉T=T-360⊿T◢X=C+Scos T◢Y=D+Ssin T◢Goto 1程序运行说明：变量输入参照ZBJS程序。

4、由两个已知点坐标进行放射型导线坐标计算（程序名FSXZBJS2）M“X0”：N“Y0”：D“XH”：E“YH” ↲Pol(M-D，N-E)：Fixm：F=J：X=M：Y=N：F〈0=〉F=F+360⊿F“TH-J=” ◢I“S=” ◢Lb1 1:{SA}↲T=F+A-180：T〈0=〉T=T+360⊿T〉360 =〉T=T-360⊿T◢X=X+Scos T◢Y=Y+Ssin T◢Goto 15、坐标计算优化程序（可进行连续式（LX）、放射式（FS）已知一点（1-D）或者两点（2-D）进行坐标计算）：V“1=>LX，≠>FS”：W“1 =>1-D≠>2-D”：W=1=> Goto 1:≠> Goto2↲Lb1 1：F“X0=”：G“Y0=”：H“T H-0=”：Goto 3↲Lb1 2:F“X0=”：G“Y0=”：M“XH=”：N“YH=”:Pol(F-M，G-N)：Fixm: J〈0=〉J=J+ 360⊿H=J：H“TH-0=”◢I“S-H=”◢Goto 3↲Lb1 3: X=F：Y=G：T=H ：V=1=> Goto 4:≠> Goto 5↲Lb1 4: {AS}: A:S:T=T+A-180：T〈0 =〉T=T+360⊿T〉360 =〉T =T-360⊿T◢X=X+Scos T◢Y=Y+Ssin T◢Goto 4Lb1 5：{AS}:A:ST=H+A-180：T〈0=〉T=T+360⊿T〉360 =〉T=T-360⊿T◢X=F+Scos T◢Y=G+Ssin T◢Goto 56、已知置镜点坐标和置镜点到后视点坐标方位角求放样角度和放样距离的放样程序（程序名FY1）程序清单：F“X0”：G“Y0”：H“T0-H”：Fixm：Lb1 1:{XY}↲Pol(X-F，Y-G) ↲J〈0 =〉J=J+360⊿A=J-H↲A〈0 =〉A=A+360⊿A“A=” ◢I“S=” ◢Goto 1程序运行说明：变量输入参照坐标计算，A=为放样顺时针角度，S=为放样距离。

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计算器程序

LX、RX：左侧或右侧点X坐标
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。

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注：Ｒ表示曲线半径；Ｉ表示缓和曲线总长；ＺＸＪ表示转向角；ＺＸ、ＺＹ表示直缓点（直圆点）纵横坐标；ＺＡ表示起算方位角；ＺＨ表示直缓（直圆）点里程；Ｌ（１）或Ｒ（２）表示左转或右转；ＪＳＤ表示计算点里程；Ｑ表示计算点切线方位角；Ｘ、Ｙ表示计算点坐标；Ｅ表示边桩到计算点的距离；Ｊ表示边桩与线路的夹角；ＥＸ、ＥＹ表示边桩坐标。

4800及4850计算器程序

4800及4850计算器常用程序ZBZS（坐标正算）E“X1=”:F“Y1=”:G“T1=LbI 0：Fixm：{AS}：G>360=>G=G-360 “T2=”:G DMSE=E+ScosG：“X2=”：F=F+SsinG: “Y2=”X1：起算点的X坐标Y1：起算点的Y坐标T1：起算边指向计算前进方向的坐标方位角A：计算前进方向的左角ZBFS（坐标反算）A“X1=”：B“Y1=”：C“X2=”：D“Y2=”：POL（C-A，D-B）：Fixm：J>0=>W=J:≠“W（1-2）=”“S（1-2）=”：XLYH（线路优化程序）A“XA=”：B“YA=”：C“TA=”：E“1÷RA，Z-，Y+”：P“KA=LbI1: ｛FQ｝:F“1÷RB，Z-，Y+”：Q“KB=LbI2:｛VDZ｝:V“K=”:Z“JIA-JIAO=”:D“WAIYI=(Z-,Y+)”: O=V:O<P=>Goto 3: ≠LbI3: “K-SMALL”LbI4: O>Q=>Goto 5: ≠LbI5: “JISUAN:A-TXY”LbI6: T=C+90+3.1415926×(2E+(F-E)(V-P)÷(Q-P))(V-P):Rad:W=A+∫(cos(C0+0.5×(2E+(F-E)(X-P)÷(Q-P))(X-P), P,V,4)+D×cos(T0+ Z0)Y=B+∫(sin(C0+0.5×(2E+(F-E)(X-P)÷(Q-P))(X-P)),P,V,4)+D×sin(T0+ Z0):LbI 7: O≤Q=>Goto 9:≠LbI 9: W“X=Y“Y=”T“T=”XA：起算点的X坐标YA：起算点的Y坐标TA：起算点的切线方位角1÷RA，Z-，Y+：起算点的曲率（1/R），左偏曲线为正，右偏曲线为负KA：起算点的里程1÷RB，Z-，Y+：终算点的曲率（1/R），左偏曲线为正，右偏曲线为负KB：终算点的里程JIA-JIAO：边桩计算时所要输的与线路切向的夹角，计算点与线路正交时输90度，斜交时则输与线路切向右侧所夹的斜交角度WAIYI=(Z-,Y+)：边桩计算时所要输的计算点到中线点的直线距离（即边桩的外移距离），计算点位于线路左侧时为负，位于线路右侧时为正程序说明：本程序计算线路坐标时要将线路分段（一般分直线段、第一缓和曲线段、圆曲线段、第二缓和曲线段、直线段以此循环）进行计算，例如：缓和曲线加圆曲线计算时，必须将曲线分三段进行计算，先输（起点要素）ZH点的坐标XA、YA，ZH到JD的方位角（即ZH点的切线方位角）TA，ZH 点的曲率1÷RA、里程KA，再输（终点要素）HY点的曲率1÷RB、里程KB，然后输入ZH到HY间任意点的里程便可计算；当所输计算点里程大于HY点里程时，程序显示“JISUAN:A-TXY”表示所要计算点超过第一缓和曲线计算范围，此时程序自动默认HY点的曲线要素为圆曲线计算段的起点要素，用户只需再输入（终点要素）YH点的曲率1÷RB、里程KB，就可计算圆曲线上任意点；当计算点里程大于YH 点里程时，程序显示“JISUAN:A-TXY”表示所要计算点超过圆曲线计算范围，程序自动默认YH点的曲线要素为第二缓和曲线计算段的起点要素，用户只需再输入（终点要素）HZ点的曲率1÷RB、里程KB，就可计算第二缓和曲线上任意点。

4800计算器使用方法

4800计算器使用方法1.基本功能：4800计算器具备基本的算术运算功能，例如加法、减法、乘法和除法。

具体使用方法如下：-加法：输入第一个数字，按下“+”键，然后输入第二个数字，最后按下“=”键得到结果。

-减法：输入第一个数字，按下“-”键，然后输入第二个数字，最后按下“=”键得到结果。

-乘法：输入第一个数字，按下“×”键，然后输入第二个数字，最后按下“=”键得到结果。

-除法：输入第一个数字，按下“÷”键，然后输入第二个数字，最后按下“=”键得到结果。

注意，如果除数为零，将会显示错误。

2.百分比计算：4800计算器可以用于计算百分比。

具体使用方法如下：-除法计算百分比：输入需要计算的数值，按下“÷”键，然后输入百分数，并按下“%”键，最后按下“=”键得到结果。

-乘法计算百分比：输入需要计算的数值，按下“×”键，然后输入百分比，并按下“%”键，最后按下“=”键得到结果。

3.平方和平方根计算：4800计算器可以进行平方和平方根的计算。

具体使用方法如下：-平方计算：输入需要计算的数值，按下“×²”键，最后按下“=”键得到结果。

-平方根计算：输入需要计算的数值，按下“√”键，最后按下“=”键得到结果。

4.三角函数计算：4800计算器可以计算正弦、余弦和正切值。

具体使用方法如下：- 正弦计算：输入需要计算的角度值，按下“sin”键，最后按下“=”键得到结果。

- 余弦计算：输入需要计算的角度值，按下“cos”键，最后按下“=”键得到结果。

- 正切计算：输入需要计算的角度值，按下“tan”键，最后按下“=”键得到结果。

5.小数值计算：4800计算器可以进行小数计算。

具体使用方法如下：-输入小数：直接输入小数，可以进行基本的四则运算计算。

-显示小数：按下“=”键得到的结果将显示为小数形式。

6.括号运算：4800计算器可以进行括号运算。

具体使用方法如下：-输入括号：按下“(”键表示左括号，“)”键表示右括号。

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计算器坐标正算、反算编程

1.主程序(TYQX js)"1.SZ => XY"："2.XY => SZ"：N：U"X0"：V"Y0"：O"S0"：G"F0"：H"LS"：P"R0"：R"RN"：Q：C=1P：D=(P-R)(2HPR)：E=180π：N=1=>Goto 1：≠>Go to 2Δ←┘Lbl 1：{SZ}：SZ：W=Abs(S-O)：Prog "SUB1"：X"XS"=X◢Y"YS"=Y◢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+QEFW(C+F WD))+Acos(G+QEMW(C+MWD)))：Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FW D))+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、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。

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即可。

卡西欧4800 4850计算器程序

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

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

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

3 案例：已知：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)1 程序步骤：C”X1”:D”Y1”:S”S1-2”:R”A1-2”:Fixm:X”X2”=C+Rec(S,R) ▲Y”Y2”=D+J2 操作过程：ZBZS→EXE→输入X1值→EXE→输入Y1值→EXE→输入S1-2距离值→EXE→输入A1-2角度（例268°15′09.56 ″）值→EXE→EXE注：①：X2计算得出坐标，Y2计算得出坐标。

②：此程序可循环计算。

3 案例：已知：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 程序步骤：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），即可计算下一个曲线中线及边线点位坐标。

卡西欧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计算器程序

4800计算器程序

常用CASIO4800计算程序集

4800程序使用说明书

卡西欧4800计算器程序

CASiO fx-4800计算器程序

4800计算器程序编辑步骤2改

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

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

4800计算程序

4800及4850计算器程序

4800计算器使用方法

4800计算器计算程序

工程测量员-4800计算器坐标正算、反算编程

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

卡西欧4800 4850计算器程序

卡西欧4800系列 计算器程序

卡西欧4800系列计算器程序