4800计算器程序

合集下载

卡西欧fx-4800P计算器程序集(小刚)

计算器对应程序名称：{ZDZB}（转点坐标）A“XZ”B“YZ”C“XH”D“YH”：{RL}I=1：J=1：Pol（（C－A），（D－B））：F=R＋JRec（L，F）X“X”=I＋A◢Y“Y”=J＋B◢注：用于已知两点坐标，及待测点与测站点的连线与已知边（两已知点的连线）的水平夹角和待测点至测站点的水平距离求待测点坐标。

XZ、YZ—测站点坐标；XH、YH—后视点坐标；R—水平角（顺时针为正，逆时针为负）；L—待测点至测站点水平距离。

计算器对应程序名称：{FWJ}(方位角)X“X1”：Y “Y1”：U“X2”：V“Y2”G=U-X:H=V-YPol(G,H):I◢J<0==>J=+360⊿J“J0=”注：用于已知两点坐标，求两点之间的方位角和距离。

X1、Y1—前视（后视）点坐标；X2、Y2—测站点坐标；L—测站点至前视（后视）点距离；J0—方位角(按SHIFT键再按°′″键转换为60制角度)。

任意多边形面积计算程序fx-4800p（三）计算器对应程序名称：{MJ}Lbl 0:M“N”：N“E”：E=M：F=N：S=0Lbl 1:{XY}:S=S-(XN-YM)/2:X=E==>Y=F==>“㎡”:S ◢Goto O ⊿⊿M=X:N=Y:Goto 1注：用于计算任意多边形的面积。

N-起始点X坐标（闭合点X坐标）E-起始点Y坐标（闭合点Y坐标）X-前进点X坐标Y-前进点Y坐标S-多边形面积（取绝对值）应顺序依次输入点坐标，输完所有点坐标后应再次输入起点坐标，这样就形成了多边形的闭合，程序将自动计算出多边形的面积。

极坐标测设建筑物（放样）计算程序fx-4800p（四）计算器对应程序名称：{ZBCS}E:F:K:LG=K-E:H=L-FPOL(G,H):J<0==>B=J+360：≠==>B=J⊿Lbl 0{XY}:X=0==>G o t o E⊿G=X-E:H=Y-FPol(G,H):I◢J<0==>J=J+360⊿C=J-B:C<0==>C=C+360⊿C◢Goto 0Lbl E注：用于计算已知方向边AB（已知点A、B两点的连线）与A（测站点）点至任意放样点i方向边（测站点与待放样点的连线）的水平夹角Bi和水平距离。

4800计算器使用方法

4800L1 Defm 10L2 Lb1 0:{FG}:C"QX":D"QY":A"Q >":E"QDZH":F"ZDZH":H"QR":G"ZR":O"ZDX":U"ZDY" L2 Lb1 1:{K}:K>F＝＞Goto 3△L3 Lb1 2:P=A+(1/G+1/H)/Abs(F-E):L=Abs(K-E):J=P×LL4 I=A+90(J+2/H)L/π▲L5 Z[1]=A+45(J/4+2/H)L/(2π)L6 Z[2]=A+135(3J/4+2/H)L/(2π)L7 Z[3]=A+45(J/2+2/H)L/πL8 Z[4]=A+(J/8+2/H)L(90/8π)L9 Z[5]=A+(3J/8+2/H)L(3*90/8π)L10Z[6]=A+(5J/8+2/H)L(5*90/8π)L11Z[7]=A+(7J/8+2/H)L(7*90/8π)L12 {B}:X“X”=C+L(CosA+4(CosZ[4]+CosZ[5]+CosZ[6]+CosZ[7])+2(CosZ[1]+CosZ[2]+Cos Z[3])+CosI)/24+BCos(I+ 90)▲L13 Y“Y” =D+L(SinA+4(SinZ[4]+SinZ[5]+SinZ[6]+SinZ[7])+2(SinZ[1]+SinZ[2]+SinZ[3])+SinI)/24+BSin (I+90)▲L14 K=F＝＞Goto 4: ≠＞Goto 5△△L15 Lb1 3:K=F:Goto 2L16 Lb1 4:C=X:D=Y:E=F:H=G:A=I:Goto 0L17 Lb1 5:Pol(X-O,Y-U):W<0 ＝＞W=W+360 :Ｗ“FWJ＞”＝Int W+Int（100Frac W）/ 60+Frac （100W）/36▲Fix 3:V“S ”=V▲Norm: Goto 1△L18 ≠＞W =W:Ｗ“FWJ＞”＝Int W+Int（100Frac W）/ 60+Frac （100W）/36▲Fix 3:V“S ”=V▲Norm:Goto 1说明：本程序是根据复化辛普生公式（n=4）编制的，适合各种线型的正反算。

常用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▲

4800公路测量放样计算程序

4800公路测量放样计算程序CASIO fx-4800P计算器程序DA DI——N E (公路弯道坐标计算)K“JD”：R：S“LS”：F“PJ——L－R＋”：A“ZH——N”：B“ZH——E”：C“JD——N”：D“JD——E”M“ZH”=K－（R＋S2÷（24R））tan（Abs F÷2）－S÷2＋S^3÷（240R2）▲N“HY”=M＋S▲O“QZ”=M＋（πRAbs F÷180＋S）÷2▲Z[1]“YH”=M＋πRAbs F÷180▲Q“HZ”= Z[1]＋S▲T=K－M▲L=Q－M▲E=（R＋S2÷（24R））÷cos（F÷2）－R▲Lb1 0：{G}：G“ZHUANG HAO”：G＜O＝=＞Z=G－M≠=＞Z=Q－G：△{U}：U“I——B OUT＋IN－”Z＜S＋0.005＝=＞H=tan-1（24Z2S2R2－Z^6）÷（48Z^3R^3－6Z^4SR））：V=Z－Z^5÷（40S2R2）＋Usin H：W=Z^3÷（6SR）－Z ^7÷（336Z^3R^3）－Ucos H：≠=＞H=180（Z－S÷2）÷（πR）：V=Rsin H＋S÷2－S^3÷（240R2）＋Usin H：W=R－Rcos H＋S2÷（24R）－Ucos H：△F＜0＝=＞G＜O＝=＞X=V：Y=W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Tsin Abs F －Vsin Abs F＋Wcos F：△≠=＞G＜O＝=＞X=V：Y=－W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Vsin Abs F－Tsin Abs F－Wcos F：△△C=A＝=＞D≥B＝=＞P=90：≠=＞P=270：△≠=＞C＜A＝=＞P= tan-1（（D－B）÷（C－A））＋180：≠=＞P= tan-1（（D－B）÷（C－A））：△△I“COM——N”=A＋√（X2＋Y2）cos（P－tan-1（Y÷X））▲J“COM——E”=B＋√（X2＋Y2）sin（P－tan-1（Y÷X））▲G=G＋20Goto 0程序运行输入：JD？——交点桩号R？——圆曲线半径LS？——缓和曲线长度PJ——L－R＋？——偏角右偏为正ZH——N？——ZH点N坐标ZH——E？——ZH点E坐标JD——N？——JD点N坐标JD——E？——JD点E坐标输出：ZH= ——ZH点桩号HY= ——HY点桩号QZ= ——QZ点桩号YH= ——YH点桩号HZ= ——HZ点桩号T= ——切线长L= ——曲线长E= ——外矢距再输入：ZHUANG HAO？——输入任一点桩号I——B OUT＋IN－？——距中线距离（外侧为正）再输出：COM——N= ——计算出N坐标COM——E= ——计算出E坐标以此循环——再输入——再输出程序中各字母所代表的含义：A——ZH点N坐标B——ZH点E坐标C——JD点N坐标D——JD点E坐标E——外矢距F——偏角（右偏为正）G——弯道内任一点桩号H——弯道内任一点切线角I——计算出的N坐标J——计算出的E坐标K——交点桩号L——曲线长M——ZH点桩号N——HY点桩号O——QZ点桩号P——ZH--JD方位角Q——HZ点桩号R——圆曲线半径S——缓和曲线长度T——切线长U——距中线距离（外侧为正）V——支距W——支距X——弯道内坐标Y——弯道内坐标Z——任一点曲线长度Z[1]——YH点桩号。

CASIO fx-4500P、4800P计算器程序

CASIO fx－4500P与CASIO fx－4800P计算器部分按键及程序语句不同之处比较【坐标反算程序】文件名：ZBFS（调用子程序文件名：Z.FS）L1 Lbl 0L2 {XY}:X″X1″:Y″Y1″:U″X0″:Z″Y0″L3 Prog ″Z.FS″L4 ″DIST=″:D:Pause 0L5 D=0=>Goto 0:◣A″ANGLE=″◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果X1? 输入视点坐标XDIST= 置镜点与视点的距离Y1? 输入视点坐标YX0? 输入置镜点坐标XANGLE= 置镜点→视点方位角Y0? 输入置镜点坐标Y注意fx-4500P型计算器将L3行改成：Prog Z.FS【坐标正算程序】文件名：ZBZSL1 Lbl 0L2 {DA}:D″DIST″:A″ANGLE″:U″X0″:Z″Y0″L3 ″X=″:X=U+Dcos A:Pause 0L4 Y=Z+Dsin A◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果DIST? 输入置镜点与视点的距离X= 视点坐标X ANGLE? 输入置镜点→视点方位角X0? 输入置镜点坐标XY= 视点坐标Y Y0? 输入置镜点坐标Y 【转角放样程序】文件名：ZJFY（调用子程序文件名：Z.FS）L1 Lbl 0L2 {STUZ}:X=S″HSX″:Y=T″HSY″:U″X0″:Z″Y0″L3 Prog ″Z.FS″L4 D=0=>Goto 0:◣J=AL5 Lbl 1L6 {XY}:X″QSX″:Y″QSY″L7 Prog ″Z.FS″L8 ″DIST=″:D:Pause 0L9 D=0=>Goto 1:◣A≥J=>A″R-ANGLE″=A-J◢≠=>A″R-ANGLE″=A-J+360◢◣Goto 1使用说明屏幕提示执行操作屏幕显示计算结果HSX? 输入后视点坐标XDIST= 置镜点与前视点距离HSY? 输入后视点坐标YX0? 输入置镜点坐标XY0? 输入置镜点坐标YR-ANGLE=置镜点→后视点到置镜点→前视点的转角QSX? 输入前视点坐标XQSY? 输入前视点坐标Y注意fx-4500P型计算器将L3、L7行改成：Prog Z.FS【单交点基本型（对称、非对称）平曲线要素、中桩、边桩坐标计算程序】文件名：PQXJS（调用子程序文件名：PQXZB）L1 R:H″LS1″:H=0=>I=0:◣I″LS2″:Z:D″JD″:S=Abs Z L2 N=H2÷24R-H^4÷2384R^3L3 P=I2÷24R-I^4÷2384R^3L4 K=H÷2-H^3÷240R2L5 M=I÷2-I^3÷240R2L6 B=H÷2R:C=I÷2RL7 T″T1″=(R+P-(R+N)cos S)÷sin S+K◢U″T2″=(R+N-(R+P)cos S)÷sin S+M◢L=H+I+(Sπ÷180-B-C)R◢H=I=>E=(R+N)÷cos (S÷2)-R◢J=2T-L◢◣N″LY″=L-H-I◢B″ZH″=D-T◢C″HY″=B+H◢E″YH″=C+L-H-I◢F″HZ″=E+I◢G″QZ″=C+N÷2◢Prog ″PQXZB″使用说明屏幕提示执行操作屏幕显示计算结果R? 输入圆曲线半径T1= 小里程段切线长LS1?输入小里程段缓和曲线长（不设缓和曲线时，输入0）T2= 大里程段切线长LS2?输入大里程段缓和曲线长（不设缓和曲线时，不提示）L= 平曲线总长Z? 输入转向角(左转负、右转正) E= 外距(T1=T2时显示)JD? 输入交点桩号J= 校正数(T1=T2时显示)LY= 圆曲线长ZH= 直缓点桩号不设缓和曲线时，ZH=HY，为直圆点桩号HY= 缓圆点桩号YH= 圆缓点桩号不设缓和曲线时，YH=HZ，为圆直点桩号HZ= 缓直点桩号QZ= 曲中点桩号XJD? 输入交点的X坐标XZH= 直缓点X坐标（不设缓和曲线时，为直圆点X坐标）YJD? 输入交点的Y坐标YZH= 直缓点Y坐标（不设缓和曲线时，为直圆点Y坐标）F1? 输入小里程段导线的方位角XHZ= 缓直点X坐标（不设缓和曲线时，为圆直点X坐标）YHZ= 缓直点Y坐标（不设缓和曲线时，为圆直点Y坐标）XHY= 缓圆点X坐标不设缓和曲线时，不显示YHY= 缓圆点Y坐标XYH= 圆缓点X坐标YYH= 圆缓点Y坐标DQD? 输入待求点桩号FWJ= 待求点切线方位角X= 待求点中桩X坐标Y= 待求点中桩Y坐标ZB? 输入左幅宽度XZ= 待求点左幅边桩X坐标YZ= 待求点左幅边桩Y坐标YB? 输入右幅宽度XY= 待求点右幅边桩X坐标YY= 待求点右幅边桩Y坐标注意fx-4500P型计算器将L7行最后一句改成：Prog PQXZB；子程序中Prog ″PQX.F″改成Prog PQX.F，Prog ″PQX.BZ″改成Prog PQX.BZ【单交点基本型（对称、非对称）平曲线中桩、边桩坐标计算子程序】文件名：PQXZB（可单独执行，调用子程序PQX.F，PQX.BZ）L1 R:H″LS1″:H=0=>I=0:◣I″LS2″:Z:{XY}:X″XJD″:Y″YJD″:T″T1″:H=0=>U=T:◣U″T2″:B″ZH″:H=0=>C=B:◣C″HY″:E″YH″:H=0=>F=E:◣F″HZ″:{A}:A″F1″:Q=A+Z:Z>0=>S=1:≠=>S=-1:◣ J″XZH″=X+Tcos (A+180)◢K″YZH″=Y+Tsin (A+180)◢P″XHZ″=X+Ucos Q◢O″YHZ″=Y+Usin Q◢H≠0=>V=C-B-(C-B)^5÷40R2H2:W=(C-B)^3÷6RH-(C-B)^7÷336R^3H^3:M″XHY″=J+Vcos A+Wcos (A+90S)◢N″YHY″=K+Vsin A+Wsin (A+90S)◢V=F-E-(F-E)^5÷40R2I2:W=(F-E)^3÷6RI-(F-E)^7÷336R^3I^3:Z ″XYH″=P+Vcos (Q+180)+Wcos (Q+90S)◢Z ″YYH″=O+Vsin (Q+180)+Wsin (Q+90S)◢◣Lbl 0L2 {Z}:Z″DQD″L3 Z<B=>Goto 0:◣Z>F=>Goto 0:◣H=0=>G=A+180(Z-B)S÷πR:Prog ″PQX.F″:M=J:N=K:Goto 1:◣Z≤C=>G=A+90(Z-B)2S÷πRH:Prog ″PQX.F″:V=Z-B-(Z-B)^5÷40R2H2:W=(Z-B)^3÷6RH-(Z-B)^7÷336R^3H^3:X=J+Vcos A+Wcos (A+90S)◢Y=K+Vsin A+Wsin (A+90S)◢Prog ″PQX.BZ″:Goto 0:◣Lbl 1L4 Z≤E=>G=A+90(C-B)2S÷πRH+180(Z-C)S÷πR:Prog ″PQX.F″:V=90H÷πR:W=90(Z-C)÷πR:X=M+2Rsin Wcos (A+SV+SW)◢Y=N+2Rsin Wsin (A+SV+SW)◢Prog ″PQX.BZ″:Goto 0:◣Z>E=>G=Q-90(F-Z)2S÷πRI:Prog ″PQX.F″:V=F-Z-(F-Z)^5÷40R2I2:W=(F-Z)^3÷6RI-(F-Z)^7÷336R^3I^3:X=P+Vcos (Q+180)+Wcos (Q+90S)◢Y=O+Vsin (Q+180)+Wsin (Q+90S)◢Prog ″PQX.BZ″:◣Goto 0【平曲线切线方位角计算结果处理子程序】文件名：PQX.FL1 G>0=>G<360=>G″FWJ=″◢≠>G″FWJ″=G-360◢◣≠>G″FWJ″=G+360◢◣【平曲线边桩坐标计算子程序】文件名：PQX.BZL1 {L}:V=G-90:W″XZ″=X+L″ZB″cos V◢W″YZ″=Y+Lsin V◢{L}:V=G+90:W″XY″=X+L″YB″cos V◢W″YY″=Y+Lsin V◢【契形体体积计算程序】文件名：XXTTJL1 V=H÷6×(A″A1″×B″B1″+C″A2″×D″B2″+(A+C)(B+D)) 【竖曲线要素及高程计算程序】文件名：SQXJSL1 M″BZH″:G″BGC″:A″I1″:B″I2″:RL2 W=B-A◢L=RAbs W◢T=L÷2◢E=T2÷2R◢F″QZH″=M-T◢J″ZZH″=M+T◢Lbl 0L3 {Z}:Z″ZH″L4 Z≤F=>H=G-(M-Z)A◢Goto 0:◣Z≥J=>H=G+(Z-M)B◢Goto 0:◣Y=(Z-F)2÷2RL5 H=G-(M-Z)AL6 W≥0=>H=H+Y◢≠=>H=H-Y◢◣Goto 0 使用说明屏幕提示执行操作屏幕显示计算结果BZH? 输入变坡点桩号W= 前后纵坡坡度差BGC? 输入变坡顶点高程L= 竖曲线长度I1? 输入小里程段纵坡(前进方向上坡为+，下坡为-) T= 竖曲线切线长I2? 输入大里程段纵坡(前进方向上坡为+，下坡为-) E= 竖曲线外距R? 输入竖曲线半径QZH= 竖曲线起点桩号ZH? 输入计算点的桩号ZZH= 竖曲线终点桩号H= 计算点的中桩高程【无竖曲线段纵坡高程连续计算程序】文件名：ZPGC L1 F″ZH0″:G″GC0″:IL2 Lbl 0:{N}:N=0=>Goto 0:◣Z=FL3 Lbl 1L4 ″ZH=″:Z=Z+N:Pause 0L5 ″H=″:H=G+(Z-F)I:Pause 2L6 Goto 1使用说明屏幕提示执行操作屏幕显示计算结果ZH0? 输入已知桩号ZH= 计算点的桩号GC0? 输入已知桩号的高程I? 输入纵坡(前进方向下坡为负，上坡为正)H= 计算点的高程N? 输入桩号增量【余弦定理的坐标运用】文件名：YXDL-ZBL1 A″AX″:B″AY″:C″BX″:D″BY″:E″CX″:F″CY″L2 G″AB″=√((C-A)2+(D-B)2)◢H″BC″=√((E-C)2+(F-D)2)◢I″CA″=√((E-A)2+(F-B)2)◢J″<A″=cos-1 ((G2+I2-H2)÷2GI)◢J″360°-<A″=360-J◢J″<B″=cos-1 ((G2+H2-I2)÷2GH)◢J″360°-<B″=360-J◢J″<C″=cos-1 ((H2+I2-G2)÷2HI)◢J″360°-<C″=360-J使用说明屏幕提示执行操作屏幕显示计算结果AX? 输入A点坐标X AB= AB距离AY? 输入A点坐标Y BC= BC距离BX? 输入B点坐标X CA= CA距离BY? 输入B点坐标Y <A= <A角度CX? 输入C点坐标X <B= <B角度CY? 输入C点坐标Y <C= <C角度【施工坐标与大地坐标相互转换程序】文件名：ZBZH（调用子程序文件名：Z.FS，Z.ZH）L1 Lbl 0L2 {XYFG}:X″AX1″:Y″AY1″:U=F″OX1″:Z=G″OY1″L3 Prog ″Z.FS″L4 D=0=>Goto 0:◣E=AL5 Lbl 1L6 {XYHI}:X″AX2″:Y″AY2″:U=H″OX2″:Z=I″OY2″L7 Prog ″Z.FS″L8 D=0=>Goto 1:◣E≥A=>E″ANGLE1->2″=E-A◢≠=>E″ANGLE1->2″=E-A+360◢◣Prog ″Z.ZH″使用说明屏幕提示执行操作屏幕显示计算结果AX1? 输入A点在坐标系1中的坐标XANGLE1->2= 坐标系1到坐标系2的转角AY1? 输入A点在坐标系1中的坐标Y OX1? 输入O点在坐标系1中的坐标X OY1? 输入O点在坐标系1中的坐标Y AX2? 输入A点在坐标系2中的坐标X AY2? 输入A点在坐标系2中的坐标YOX2? 输入O点在坐标系2中的坐标XX2= 计算点在坐标系2中的坐标XOY2? 输入O点在坐标系2中的坐标YX1? 输入计算点在坐标系1中的坐标XY2= 计算点在坐标系2中的坐标YY1? 输入计算点在坐标系1中的坐标Y注意fx-4500P型计算器将L3、L7行改成：Prog Z.FSL8行最后一句改成：Prog Z.ZH【坐标反算子程序】文件名：Z.FSL1 B=X-U:C=Y-ZL2 D=√(B2+C2)L3 D=0=>Goto 0:◣C≥0=>A=cos-1(B÷D):≠=>A=360-cos-1(B÷D):◣Lbl 0【坐标转换子程序】文件名：Z.ZH（可单独执行，调用子程序：Z.FS）L1 U=F″OX1″:Z=G″0Y1″:H″0X2″:I″OY2″:E″ANGLE1->2″L2 Lbl 0L3 {XY}:X″X1″:Y″Y1″L4 Prog ″Z.FS″L5 D=0=>Goto 0:◣A=A-EL6 ″X2=″:X=H+Dcos A:Pause 0L7 Y″Y2″=I+Dsin A◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果OX1? 输入O点在坐标系1中的坐标XX2=计算点在坐标系2中的坐标XOY1? 输入O点在坐标系1中的坐标YOX2? 输入O点在坐标系2中的坐标XY2=计算点在坐标系2中的坐标YOY2? 输入O点在坐标系2中的坐标YANGLE1->2? 输入坐标系1到坐标系2的转角X1? 输入计算点在坐标系1中的坐标XY1? 输入计算点在坐标系1中的坐标Y注意fx-4500P型计算器将L4行改成：Prog Z.FS【仁宗海交通桥拱圈悬链线坐标计算程序】文件名：XLXL1 M=2.514:F=12.195:L=30.484L2 Lbl 0L3 {X}:J=30.484-XL4 P=-0.00011837194X2+0.0072169X◢A=Jln (M+√(M2-1))÷LL5 D=tan-1(FAsinh A÷J(M-1))◢Y″YZ″=F-F(cosh A-1)÷(M-1)+2363.821+P◢Z″YS″=Y+0.7÷cosD◢{H}:U=Z-H◢W″YX″=Y-0.7÷cosD◢Q=W-H◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果X? 输入拱圈X坐标(以拱圈左下角为坐标原点)P= 计算点的设计预拱度YZ= 中轴设计高程（已加了设计预拱度P）YS= 上缘设计高程（已加了设计预拱度P）H? 输入实测高程U=上缘设计高程与实测高程的高差：负数表明实测高程高于设计高程正数表明实测高程低于设计高程YX= 下缘设计高程（已加了设计预拱度P）Q=下缘设计高程与实测高程的高差：负数表明实测高程高于设计高程正数表明实测高程低于设计高程注意fx-4500P型计算器将L5行中sinh A改成(e A-e-A)÷2；将coshA改成(e A+e-A)÷2【高斯坐标转换程序】文件名：GSZHL1 A″H0″:Lbl 1:{BCH}:E=B″H1″+C″H2″:F″HD0″=(1+(A-.5E)÷6378245)H″HD″◢Goto 1【高斯坐标转换程序1】文件名：GSZH1L1 A″H0″:R=6378245:Lbl 1:{BCH}:E=B″H1″+C″H2″:F″HD0″=(R+A)H″HD″÷(R+.5E)◢Goto 1使用说明屏幕提示执行操作屏幕显示计算结果H0? 输入投影面高程HD0=高程投影后的平距H1?、H2? 输入该边两端点的高程HD? 输入平距【40米T型梁梁底模反拱度高程控制程序】文件名：FGD-Q（使用全站仪）L1 Lbl 0L2 {XQ}L3 P=.003X-.04+(20-X)2÷10000◢Z=P+2717.90358◢B=Z-Q◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果X? 输入X坐标（以0＃台梁端为(0,0)点，输入范围0～40）P= 计算点与0,0点的设计高差Z= 计算点的设计高程Q? 输入实测高程B= 设计高程－实测高程（正值表示该点偏低，负值表示该点偏高）注意fx-4500P型计算器将L3行中“÷”改为“/”，0＃台梁端高程为2717.90358【40米T型梁梁底模反拱度高程控制程序】文件名：FGD-S（使用水准仪）L1 Lbl 0L2 {XQ}L3 P=.003X-.04+(20-X)2÷10000◢Z=P+2717.90358◢B=Z-S+Q◢Goto 0使用说明屏幕提示执行操作屏幕显示计算结果X?输入X坐标（以0＃台梁端为(0,0)点，输入范围0～40）P= 计算点与0,0点的设计高差Z= 计算点的设计高程S?输入视线高程（单位：m，只输入一次）B=设计高程－实测高程（正值表示该点偏低，负值表示该点偏高）Q? 输入前视读数（单位：m）注意fx-4500P型计算器将L3行中“÷”改为“/”，0＃台梁端高程为2717.90358。

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=编辑顺序同上。

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。

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：计算时只要先把要素点的相关信息装入数据库（ZBDIR ）以后只需键入你想要查询的桩号就可以查找到相应的坐标与放样数据。

2：可计算（回旋线相连的匝道除外）数据库内（外）任意点中桩和边桩坐标并能显示与放样。

3：可按固定距离递增放样（减少频繁的按键）并能自动计算ZH(ZY)、HY 、YH 、HZ(YZ)点。

4：计算时不用担心超出范围，程序编制时己考虑此问题。

一、直线上中桩坐标计算X p =X o +LcosA Y p =Y o +LsinAXp 、Yp ：待求点坐标 Xo 、Yo ：起点坐标 L ：起点至待求点距离 A ：起点所在的方位角二、圆曲线中桩坐标计算A=180L/(πR) X 1=RsinA Y 1=R(1-CosA)X 1、Y 1:以曲线起点（ZY ）为原点待求点坐标增量 R ：曲线半径 A ：所求弧长所对圆心角 L ：待求点与曲线起点弧长三、（1）曲线加设缓和曲线的坐标计算（缓和曲线部分）X 1=L -L 5/(40R 2Ls 2)+L 9/(3456R 4Ls 4) Y 1= L 3/(6RLs)-L 7/(336R 3Ls 3)+ L 11/(42240 R 5Ls 5) X 1、Y 1 、L 、R 含意同前： Ls:缓和曲线长三、（2）曲线加设缓和曲线的坐标计算（圆曲线部分）M=Ls/2- Ls 3/(240R 2) P= Ls 2/24R -(Ls 4/(2688R 3) ß=90(2L -Ls)/(πR) X=RsinA+M Y=R(1-CosA)+PX 、Y ：以曲线起点（ZH ）为原点待求点坐标增量 R 、A 、L 、Ls:含意同前 M ：切线增值 P 圆曲线内移值 ß：缓和曲线切线角四、坐标换算在计算出相对的坐标增量后，经坐标反算求出全线统一坐标。

计算式为：X p =X o +DCos(A ±ß) Y p =Y o +DSin(A ±ß) D=22p p Y X A=tg(Y p /X p ) ß：切线角 “-”为左偏角 “+”正号为右偏角五、边桩坐标计算（直线段）X 边＝X p +GCos(A ±90) Y 边＝Y p +GSin(A ±90)G:横段面距离 ±90：左边桩为“-”、右边桩为“+” 边桩坐标计算（圆曲线切线角） ß=180L/(πR) 边桩坐标计算（缓和曲线切线角） ß=90L 2/(πRLs) 边桩坐标计算（带缓和曲线的圆曲线切线角） ß=90(2L -Ls)/(πR) 程序名:ZBJSF “1=Yp -1=Zp 0=JG >1=DIR ”D: N “XC ”≠0=>Q “YC ”◣F=0=>B:Goto 9◣ Abs F=1=>BE “KO ” U “XO ” M “YO ” O “FWJ ”R S P:Goto 0◣B=90:↙ Lb1 9:Prog “ZBDIR ”↙Lb1 0:C=E:V=F:R=0=>S=0◣↙Lb1 1:Deg:Fixm:{KG}:K>C+P=>Goto 9◣K<C=>Goto 9◣L=Abs(K -E):Z=O:A=Z+B:I=L:L=0=>Goto 5◣R=0=>V=1:Goto 5◣S=0=>Goto 2◣S>L =>Goto 3◣L>P -S =>L=S+D:Goto 8◣↙Lb1 2:A=90(2L -S)/πR:X=RsinA+S/2-S 3/240R 2:Y=R(1-cosA)+S 2/24R -S 4/2688R 3:Goto 4↙ Lb1 3:L>S -D=>L=S -D:Goto 7◣W=RS:A=90L 2/πW:X=L -L 5/40W 2+L 9/3456W 4:Y=L 3/6W -L 7/336W 3+L 11/42240W 5:↙ Lb1 4:Pol(X,Y):A=O+F(A+B):Z=Z+FJ:↙Lb1 5:B ≠90=>G=AbsG ◣W=1:V=-1=>W=-W ◣H=U+Rec(I,Z):Z=M+J :Rec(G ,A):B=90=>X=H+WI ◢Y=Z+WJ ◢Goto A ◣X=H ◢Y=Z ◢G ≠0=>A “X1”=X -WI ◢ Z “Y1”=Y -WJ ◢H “X2”=X+WI ◢W “Y2”=Y+WJ ◢◣↙Lb1A:N=0=>Goto 6◣Pol(X -N,Y -Q):J<0=>J=J+360◣J “FWJ=”◢I “JL=”◢B=90=>Goto 6◣G=0=>Goto 6◣Pol(A-N,Z-Q):J<0=>J=J+360◣J“FWJ1=”◢I“JL1=”◢Pol(H-N,W-Q):J<0=>J=J+360◣J“FWJ2=”◢I“JL2=”◢↙Lb1 6:D=0=>Goto 1◣L>P-D=>L=P-D◣↙Lb1 7:K≥E=>K=E+L+D:Goto 1◣L=L-D:L≤0=>L=0◣K=E-L:Goto 1↙Lb1 8:A=90(P-S)/πR:W=S/2-S3/240R2+tanA(R+S2/24R):Rec(W,O):O=O+2AF:U=U+I+WcosO:M=M+J+WsinO:F=-F:E=E+P:O=O+180:K<C+S=>L=L-2D:E=C◣Goto 6程序名: ZBDIRLb1 0:{K}:E=E1:K<E1=>K=E1: Goto 0◣↙K≤E2=>U=U1:M=Y1:O=O1:R=R1:S=S1:P=P1:F=±1:Goto 1◣↙K≤E3=>E=E2:U=U2:M=Y2:O=O2:R=R2:S=S2:P=P2:F=±1:Goto 1◣↙K≤E n+1=>E=E n:U=U n:M=Y n:O=O n:R=R n:S=S n:P=P n:F=±1:Goto 1◣↙K=E n+1 :Goto 0↙Lb1 1:注：F=1为右偏曲线F=-1为左偏曲线D:逐桩间距N“XC”Q“YC”测站XY坐标B：构造物与主线交角O：线路方位角R：半径S：缓和曲线长P：直（曲）线线路长度G：横断面距离E“KO”：起点里程U“XO”M“YO”起点XY坐标K：求算点里程XY：求算点XY坐标下标为1时为左侧、下标为2时为右侧FWJ：方位角JL：距离存储器T未使用以下程序代码可计算直线、曲线、螺旋线、匝道中边桩坐标程序名:ZDZBJSDeg:N“XC”≠0=>Q“YC”◣D:Z“0=SD 1=A 2=B 3=C 4=D 5=E ……”:Z≠0=>Z=AbsZ:Goto 0◣E“KO”U“XO”M“YO”O“FWJ”R H“R2”P :Goto 1↙Lb1 0:Prog“ZDDIR”:↙Lb1 1:Fixm:{KG}:X=R:R≠0=＞X=2/R◣K<E=>Goto 0◣K>E+P=>Goto 0◣L=Abs(K-E):I=H:H≠0=＞I=1/H◣I=L(I-X/2)/P:J=O+90L(I+X)/π:W=O+45L(I/2+X)/π:Y=O+45L(I/8+X)/(4π):S=O+135L(3I/8+X)/(4π):C=O+225L(5I/8+X)/(4π):V=O+315L(7I/8+X)/(4π):A=O+45L(I/4+X)/(2π):I=O+135L(3I/4+X)/(2π):X=U+L(CosO+4(CosY+CosS+CosC+CosV)+2(CosA+CosW+CosI)+CosJ)/24:Y=M+L(SinO+4(SinY+SinS+SinC+SinV)+2(SinA+SinW+SinI)+SinJ)/24:G=0=＞X◢Y◢Goto 2◣A=J-90:A<0=>A=360+A◣S=AbsG:Rec(S,A):X=X-I S/G◢Y=Y-JS/G◢Lb1 2:N=0=>Goto 3◣Pol(X-N,Y-Q):J<0=>J=J+360◣J“FWJ=”◢I“JL=”◢↙Lb1 3:D=0=>Goto 1◣L>P-D=>L=P-D◣K≥E=>K=E+L+D:Goto 1◣程序名: ZDDIRLb1 0:Z>5=＞Goto Z◣Z=1=＞Goto A◣Z=2=＞Goto B◣Z=3=＞Goto C◣Z=4=＞Goto D◣Z=5=＞Goto E◣Goto ALb1 Z:{ZK }:Z“1=A 2=B 3=C 4=D 5=E ……”:Goto 0Lb1 A:K≤E2=> E=E1:U=U1:M=Y1:O=O1:R=±R1:H=±R2:P=P1:Goto 1◣↙K≤E3=>E=E2:U=U2:M=Y2:O=O2:R=±R1:H=±R2:P=P2:Goto 1◣Goto Z↙Lb1 B:K≤E2=> E=E1:U=U1:M=Y1:O=O1:R=±R1:H=±R2:P=P1:Goto 1◣↙K≤E3=>E=E2:U=U2:M=Y2:O=O2:R=±R1:H=±R2:P=P2:Goto 1◣Goto Z↙Lb1 C:K≤E2=> E=E1:U=U1:M=Y1:O=O1:R=±R1:H=±R2:P=P1:Goto 1◣↙K≤E3=>E=E2:U=U2:M=Y2:O=O2:R=±R1:H=±R2:P=P2:Goto 1◣Goto Z↙Lb1 D:K≤E2=> E=E1:U=U1:M=Y1:O=O1:R=±R1:H=±R2:P=P1:Goto 1◣↙K≤E3=>E=E2:U=U2:M=Y2:O=O2:R=±R1:H=±R2:P=P2:Goto 1◣Goto Z↙Lb1 E:K≤E2=> E=E1:U=U1:M=Y1:O=O1:R=±R1:H=±R2:P=P1:Goto 1◣↙K≤E3=>E=E2:U=U2:M=Y2:O=O2:R=±R1:H=±R2:P=P2:Goto 1◣Goto ZLb1 N:K≤E n+1=> E=E n:U=U n:M=Y n:O=O n:R=±R n:H=±R n1:P=P n:Goto 1◣↙K≤E n+3=>E=E n2:U=U n2:M=Y n2:O=O n2:R=±R n1:H=±R n2:P=P n2:Goto 1◣Goto ZLb1 1:D:逐桩间距N“XC”Q“YC”测站XY坐标O:线路方位角R:起点半径H“R2”:终点半径 2 P:直（曲）线线路长度G:横断面距离(左负右正) E“KO”:起点里程U“XO”M“YO”起点XY坐标K:求算点里程XY:求算点XY坐标FWJ:方位角JL:距离R1?第一半径，直线输入0(如HZ、HZH)、匝道及螺旋线时输入上段曲线半径左偏为负右偏为正。

4800计算器编程

卡西欧4800计算器编程1、=>……条件转移成立符号，其用法相当于BASIC中的IF……THEN（假设语句相当于假如……然后，IF相当于条件……THEN相当于结果）语句2、≠>……条件转移不成立符号，其用法相当于BASIC中的IF……ELSE语句通常二者连用，相当于BASIC中的IF……THEN……ELSE语句（它的英语形式一般为if a＞b then c＞d else if b＞a the……）3、⊿……条件转移结束符号，与=>和≠>配合使用，放在条件语句最后面。

4、 LbI……标记命令。

用于将一段语句作转换标记。

后可接字母、数字、符号，但不能超过两个字节，如不能用≥10的数字作行标，否则会出现出错信息。

5、Goto……（条件）转移命令。

前面可加条件语句，与BASIC中的GOTO作用相同。

通常与LbI一起用，如果所转移的行号无效，则会显示：GO ERROR（详见说明书）出错信息6、 Dsz……减量循环命令。

可减少未知数的数量。

7、 Isz……增量循环命令。

8、 Pause……暂停命令。

后可接0~9之间的整数n，可使某一数据显示n/2秒钟，然后继续运行下面的程序。

它被认为是一个语句。

9、 Fixm……变量锁定命令。

该命令能使其所有变量值（A~Z）均当成定数处理。

当程序运行时，将不需要输入变数（“{}”内的变数除外），而是将存贮器中原有的数值来完成计算。

10、{}……变量输入命令。

只程序在循环使用时经常发生改变的数字，如里程、和宽度。

它的输入方式可以使很多种如{AB}{A,B}{A B}都可以。

注意“{”和“}”必需成对输入。

否则会出现Syn ERROR（详见说明书）出错信息。

11、=、≠、>、<、≤、≥……条件运算关系算子，常与Goto命令构成条件转换语句。

12、Prog……在正常情况是下打开程序的快捷键。

在编程过程中是运行子程序命令，后接子程序名（一定要加引号，且要注意空格，否则会出现Syn ERROR的出错信息。

4800计算器使用方法

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

fx-4800计算器公路工程程序汇编

Fx—4800P计算器公路工程测量程序汇编蒋立日期：1998年12月《fx4800p》由坐标计算多边形面积程序程序清单程序名：ALbi0：{NAB}：N“N=”：S=0：I=1：I“N”=I◢A“X=”：B“Y=”：C=A：D=B ↙Lbi1：{XY}：I=I+1：I“N”=I◢X“X=”：Y“Y=”↙Lbi2：S=S+0.5 (AY-BX) ：A=X ：B=Y ↙Lbi3：I<N＝＞Goto1: ≠＞S=S+0.5(DX-CY) ↙Lbi4：S“S”=AbsS◢↙Lbi5：Goto0 ↙使用说明：按FILE ■Ａ→EXE ↙显示Ｎ＝？问多边形个数，如Ｎ＝３Ｎ＝１提示输入第１个角点的Ｘ、Ｙ坐标Ｘ＝？１↙Ｙ＝？１↙Ｎ＝２提示输入第２个角点的Ｘ、Ｙ坐标Ｘ＝？４↙Ｙ＝？５↙Ｎ＝３提示↙输入第３个角点的Ｘ、Ｙ坐标Ｘ＝？１↙Ｙ＝？５↙Ｓ＝６多边形（三角形）面积的等于６《fx4800p》计算直线、园曲线、缓和曲线上的中桩坐标、法线方向上边线坐标程序程序清单程序名：BLbi0 ：Defm12 ：{ABCDER}:A“JDK”：B“X0”：C“Y0”：D“PJ0”：E“FWJ：JD-ZH”：R“R”：H“Ls”↙Lbi1 ：F=28.6479*H/R：P=H2/（24R：Q=H/2-H∧3/（240R2：L=R（D-2F）*π/180+2H◢↙Lbi3 ：Z[12]=A：Z[11]=E：G=（R+P）*tan（D/2）+Q：V=Z[12]-G： W=V+L：V“ZH”=V◢W“HZ”=W◢↙Lbi4：Rec（G，Z[11]）：X=B+I：Y=C+J：X“ZHX”=X◢Y“ZHY”=Y◢Z[1]=X：Z[2]=Y↙Lbi5：{N，T}：N“LP：1，RP：0”：T“S：0，S”↙Lbi6:N=1＝＞Z=Z[11]-D+180：≠＞N=0＝＞Z=[11]+D-180≨≨↙Lbi7：Z＜0＝＞Z=Z+360：≨Rec（G，Z）：X=B+I：Y=C+J：X“HZX”=X◢Y“HZY”=Y◢Z[3]= X：Z[4]=Y ↙Lbi9：Z[11]-180＜0＝＞Z[11]=Z[11]+180：≠＞Z[11]=Z[11]-180≨↙LbiA：{M}：M“PK”↙LbiB：M≤L/2+V＝＞GotoC：≨GotoG ↙LbiC：M≤V＝＞Rec（V-M，Z[11]）：X=Z[1]-I◢ Y=Z[2]-J◢ GotoI：≠＞M≤H+V＝＞U=M-V：Prog“Z2”：≠＞O=F+180（M-V-H）/（πR）：Prog“Z3”≨↙LbiD：N=1＝＞S=Z[11]-tan-1（Y/X）：≠＞N=0＝＞S=Z[11]+tan-1（Y/X）≨≨↙LbiE：prog“Z4”：X=Z[1]+I◢Y=Z[2]+J◢↙LbiI：T=0＝＞GotoA：≨GotoN ↙LbiN：{T}：T“S”：M≤V＝＞Rec（T，Z[11]-90）：Prog“Z6”：GotoA：≠＞M ≤H+V＝＞G=28.6479*U2/（RH）：GotoO：≠＞GotoP ≨↙LbiO：N=1＝＞Z[12]=Z[11]-G-90：≠＞N=0＝＞Z[12]=Z[11]+G-90≨≨Z[12] ＜0＝＞Z[12]=Z[12]+360：≨Rec（T，Z[12]）：Prog“Z6”：GotoA ↙LbiP：Prog“Z7”：Prog“Z6”：GotoA ↙LbiG：N=1＝＞S=Z[11]-D：≠＞S=Z[11]+D≨M≥W＝＞Rec（M-W，S）：X=Z[3]+I◢Y=Z[4]+J◢GotoV：≠＞M≤W-H＝＞O=F+180（W-H-M）/（πR）：Prog“Z3”：≠＞U=W-M：Prog“Z2”≨↙LbiH：N=1＝＞S=Z[11]-D+180+tan-1（Y/X）：≠＞N=0＝＞S=Z[11]+D+180- tan-1（Y/X）≨≨↙LbiK：Prog“Z4”：X=Z[3]+I ◢Y=Z[4]+J◢↙LbiV：T=0＝＞GotoA：≨{T}：T“S”：M≥W＝＞Rec（T，S-90）：Prog“Z6”：GotoA：≠＞M≤W-H＝＞GotoS：≨GotoT ↙LbiS：Prog“Z7”：Prog“Z6”：GotoA ↙LbiT：G=28.6479*U2/（RH）↙LbiU：N=1＝＞Z[12]=Z[11]-D+G-90：≠＞N=0＝＞Z[12]=Z[11]+D-G-90≨≨Z[12]＜0＝＞Z[12]=Z[12]+360：≨Rec（T，Z[12]）：Prog“Z6”：GotoA ↙子程序程序名：Z2程序清单：X=U-U∧5/（40R2H2）+U∧9/（3456R∧4H∧4）-U∧13/（599040R∧6H∧6）：Y=U∧3/（6RH）-U∧7/（336R∧3H∧3）+U∧11/（422400 R∧5H∧5）↙程序名：Z3程序清单：X=RsinO+Q：Y=R（1-cosO）+P ↙程序名：Z4程序清单：Rec（√—（X2+Y2），S）↙程序名：Z6程序清单：Z[5]=X+I：Z[6]=Y+J：Z[7]=2X-Z[5]：Z[8]=2Y-Z[6]：Z[5]“XL”=Z[5]◢ Z[6]“YL”=Z[6]◢ Z[7]“XR”=Z[7]◢ Z[8]“YR”=Z[8]◢↙程序名：Z7程序清单：N=1＝＞Z[12]=Z[11]-90-D/2：≠＞N=0＝＞Z[12]=Z[11]+90+D/2≨≨Z[12] ＜0＝＞Z[12]=Z[12]+360：≨Rec（（P+R）/cos（D/2），Z[12]）：Z[9]=B+I：Z[10]=C+J：N=1＝＞Pol（Z[9]-X，Z[10]-Y）：≠＞N=0＝＞Pol（X-Z[9]，Y-Z[10]）≨≨J ＜0＝＞J=J+360：≨Rec（T，J）↙B程序使用说明启动程序：prog“B”↙显示输入说明例如JDK ？交点桩号10035.89 ↙X0 ？交点X坐标26714.542 ↙Y0 ？交点Y坐标145904.039 ↙PJ°？交点偏角(度、分、秒) 49°27′32″↙FWJ°：JD—ZH ？交点至ZH点切线方位角204°29′01″↙R ？园曲线半径710 ↙Ls ？缓和曲线长度，（当Ls=0时，为园曲线）125 ↙﹎﹎﹎﹎﹎﹎﹎﹎计算结果显示﹎﹎﹎﹎﹎﹎﹎﹎L=737.886 曲线总长度↙ZH=9645.978 ZH点桩号↙HZ=10383.865 HZ点桩号↙I ？中间显示↙J ？中间显示↙ZHX=26359.691 ZH点的X坐标↙ZHY=145742.447 ZH点的Y坐标↙LP:1,RP:0 ？[LP—线路左偏为1,RP—线路右偏为0 ] 0 ↙S：0，S ？0—只计算线路中线坐标，S—不等于0的任何数，计算中线坐标和边坐标，边坐标是指对应中桩法线方向的坐标，10 ↙HZX=26822.392 HZ点的X坐标↙ZHY=146278.738 HZ点的Y坐标↙PK ？待求点的桩号9770.98 ↙X=26471.845 待求点中桩X坐标↙Y=145797.548 待求点中桩Y坐标↙S= ？线路中点至待求点法线方向的距离15 ↙XL=26479.238 线路左15m的X坐标↙YL=145784.496 线路左15m的Y坐标↙XR=26464.453 线路右15m的X坐标↙YR=145810.600 线路右15m的Y坐标↙PK ？另一个待求点的桩号《fx4800p》计算高速公路匝道中心线、边线坐标程序程序清单程序名：CLbi0 ：Defm12 ：{ABCDFGKRP}: B“BP”：C“XB”：D“YB”：F“XP”：G“YP”：K “PJ°”:R“R”：A“A”：P“R1”：Pol（C-F，D-G）：E=J+360 ↙Lbi1：{N，T，M}：N“LP：1，RP：0”：T“S：0，S”：M“L＝＞R：1，R＝＞L：0”：A=0＝＞GotoJ：≨Goto2 ↙Lbi2：U=A2/P：H= A2/R：P=9E99＝＞Z[3]=C：Z[4]=D：Goto3：≨U= A2/P：H= A2/R：Goto3 ↙Lbi3：M=1＝＞Z[1]=B-U：Z[2]=Z[1]+H：Z[1]“ZH”=Z[1]◢Z[2]“HY”=Z[2] ◢Goto4：≠＞M=0＝＞Z[1]=B+U：Z[2]=Z[1]-H：Z[1]“HZ”=Z[1]◢Z[2]“YH”=Z[2] ◢≨≨↙Lbi4:P=9E99＝＞Goto5：≨Prog“Z2”：W=28.6479*U2/（RH：S=X-Y/tanW：Rec（Y/sinW，E）：X=C+I：Y=D+J：N=1＝＞E=E+W：≠＞N=0＝＞E-W≨≨Rec （S，E）：Z[3]=X+I：Z[4]=Y+J ↙Lbi5：{Q}：Q“PK”↙Lbi6：M=1＝＞Goto7：≠＞M=0＝＞Goto8≨≨↙Lbi7：Q≦Z[2] ＝＞Goto9：≠＞GotoD≨↙Lbi8:Q≧Z[2] ＝＞Goto9：≠＞GotoD≨↙Lbi9：M=1＝＞U=Q-Z[1]：≠＞M=0＝＞U=Z[1]-Q≨≨Prog“Z2”↙LbiA：N=1＝＞V=E+180-tan-1（Y/X）：≠＞N=0＝＞V= E+180+tan-1（Y/X）≨≨Rec （√—（X2+Y2），V）：X=Z[3]+I：Y=Z[4]+J：X“XP”=X ◢Y“YP”=Y ◢↙LbiB：T=0＝＞Goto5：≨GotoC↙LbiC：{T}：T“S”：W=28.6479*U2/（RH：N=1＝＞W=E+180-W-90：≠＞N=0＝＞W=E+180+W-90≨≨Rec（T，W）：Prog“Z5”：Goto5↙LbiD：U=H：Prog“Z2”：W=28.6479*H/R：N=1＝＞O=E+180-tan-1（Y/X）：≠＞N=0＝＞O=E+180+tan-1（Y/X）≨≨Rec（√—（X2+Y2），O）：Z[9] =Z[3]+I：Z[10]=Z[4]+J ↙LbiE：N=1＝＞V=E+180-W-90：≠＞N=0＝＞V=E+180+W+90≨≨Rec（R，V）：Z[11]=Z[9]+I：Z[12]=Z[10]+J ↙LbiF：M=1＝＞L=Q-Z[2]：：≠＞M=0＝＞L=Z[2]-Q≨≨Prog“Z8”↙LbiH：{T}：T“S”：T=0＝＞Goto5：≨Prog“Z9”：Goto5↙LbiJ：Pol（F-C，G-D）：W=J+360 ↙LbiK：{Q}：Q“PK”↙LbiM：N=1＝＞V=W-90：≠＞N=0＝＞V=W+90≨≨Rec（R，V）：Z[11]=C+I：Z[12]=D+J ↙LbiN：L=Abs（Q-B）：Prog“Z8”↙LbiO：{T}：T“S”：T=0＝＞GotoK：≨Prog“Z9”：GotoK↙子程序程序名：Z5Lbi0：Z[5]=X+I：Z[6]=Y+J：Z[7]=2X-Z[5]：Z[8]=2Y-Z[6] ↙Lbi1：M=1＝＞Z[5]“XL”=Z[5]◢Z[6]“YL”=Z[6]◢Z[7]“XR”=Z[7]◢Z[8]“YR”=Z[8]◢≠＞M=0＝＞Z[7]“XL”=Z[7]◢Z[8]“YL”=Z[8]◢Z[5]“XR”=Z[5]◢Z[6]“YR”=Z[6]◢≨≨↙程序名：Z8Lbi0：N=1＝＞Z=V+180-L*180/（πR）：≠＞N=0＝＞Z= V+180+L*180/（πR）（R，Z）：X=Z[11] +I：Y=Z[12] +J ：X“XP“=X ◢Y“YP“=Y ◢↙≨≨Rec程序名：Z9N=1＝＞Z=Z-180：≠＞N=0＝＞Z=Z≨≨Rec（T，Z）：Prog“Z5”↙C匝道程序使用说明FUNCTION 6 5 （变量清零）↙Prog“C”显示输入例如BP ？起点桩号754.493 ↙XB ？起点X坐标26541.168 ↙YB ？起点Y坐标145907.887 ↙XP ？第一段曲线X坐标26552.825 ↙YP ？第一段曲线Y坐标145935.665 ↙PJ°？园曲线偏角118.41°↙R ？园曲线偏半径80 ↙A？缓和曲线参数(园曲线A=0) 60 ↙R1 ？缓和曲线起点半径(当R无穷大时,R1=9EXP99) 9EXP99 ↙LP:1,RP:0 ？(左偏为1,右偏为0) 1 ↙S：0，S ？{ 计算边坐标为S（S为不为零的数），不计算为0} 10 ↙L＝＞R：1，R＝＞L：0？（计算顺序，从左往右为1，从右往左为0）0 ↙﹎﹎﹎﹎﹎﹎﹎﹎计算结果显示﹎﹎﹎﹎﹎﹎﹎﹎HZ=754.493 缓直点桩号↙(ZH) (直缓点桩号)YH=709.493 园缓点桩号↙PK ？输入待求点桩号544.161 ↙I ？中间显示↙XP=26698.387 待求点X坐标↙YP=145928.101 待求点Y坐标↙S ？从中点至法线方向的距离10 ↙XL=26707.612 线路前进方向左侧X坐标↙YL=145931.962 线路前进方向左侧Y坐标↙XR=26689.162 线路前进方向右侧X坐标↙YL=145924.241 线路前进方向右侧Y坐标↙PK ？另一个待求点的桩号《fx4800p》纵曲线计算程序（包括直线、曲线、直线）程序名：D程序清单：Lbi0：{ABCDERNT}：A“PVI”：B“HI”：R“R”：C“I1”：D“I2”↙Lbi1：N“LP：1，RP：0”↙Lbi2：N=1＝＞T=R（D-C）/200：≠＞N=0＝＞T=R（C-D）/200≨≨E=A-T：F=A+T：E“PVC”=E◢F“PVT”=F◢↙Lbi3：{G}：G“PK”：G≦A＝＞Goto4：≨Goto5 ↙Lbi4：G≦E＝＞H=B-C（A-G）/100：H“HP”=H◢Goto3：≠＞Prog“H1”：N=1＝＞H=B+I-J：H“HP”=H◢Goto3：≠＞N=0＝＞H=B-I-J：H“HP”=H◢Goto3≨≨↙Lbi5：G≧F＝＞H=B+D（G-A）/100：H“HP”=H◢Goto3：≠＞Prog“H2”：N=1＝＞H=B+I+J：H“HP”=H◢Goto3：≠＞N=0＝＞H=B-I+J：H“HP”=H◢Goto3≨≨↙子程序程序名：H1I=（G-E）2/（2R：J=C（A-G）/100 ↙程序名：H2I=（F-G）2/（2R：J=D（G-A）/100 ↙D程序使用说明Prog“D”显示输入说明例如PVI ？变坡点桩号1040 ↙HI ？变坡点高程36.778 ↙R ？园曲线半径25285.340 ↙I1 ？变坡点左侧坡度值(百分数) 1.018 ↙I2 ？变坡点右侧坡度值(百分数) -1.260 ↙LP:1,RP:0 ？逆时针左偏为1, 顺时针右偏为0 0 ↙﹎﹎﹎﹎﹎﹎﹎﹎计算结果显示﹎﹎﹎﹎﹎﹎﹎﹎PVC=752.00 纵曲线起点桩号↙PVT=1328.00 纵曲线终点桩号↙PK= ？待求点桩号↙HP=35.165 待求点P点的设计高程↙PK= ？输入待求点桩号↙。

工程测量员-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 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计算器程序

卡西欧fx-4800P计算器程序集(小刚)

4800计算器使用方法

常用CASIO4800计算程序集

4800程序使用说明书

卡西欧4800计算器程序

4800公路测量放样计算程序

CASIO fx-4500P、4800P计算器程序

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

CASIO4800P计算器坐标计算程序

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

4800计算器程序计算例表

4800计算器编程

4800计算器使用方法

fx-4800计算器公路工程程序汇编

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

卡西欧4800 4850计算器程序

卡西欧4800系列 计算器程序

卡西欧4800系列计算器程序