CASIO fx-4500P、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和水平距离。

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÷（2 40R2）▲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^4 SR））：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－Ws in 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=Vsi n 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点桩号。

CASIOfx-4500PA计算器程序和操作一、水准测量高程计算程序1、程序名：H-（1）第一行：L1 lbl 0 第二行：L2 Z：A：｛BK｝第三行：L3 H=Z＋A－B◢第四行：L4 V=K-H ◢第五行：L5 Goto 02、操作步骤①开机：按AC键：②呼出文件名：按FILE键，显示H-（1）文件名为止：③按EXE键，显示Z？，输入水准点BM后视点高程：如129.919；④按EXE键，显示A？，输入后视水准尺读数：如1.633；⑤按EXE键，显示B？，输入前视水准尺读数：如4.186；⑥按EXE键，显示H=127.366，此结果是K3＋300中桩地面髙程；⑦按EXE键，显示K？，输入K3＋300中桩设计高程127.032；⑧按EXE键，显示V=K-H，-0.334此结果是K3＋300中桩挖出数据；⑨按EXE键，显示B？，连续算下去……（－挖；＋填）。

二、坐标反算程序①1、程序名；1ZBFS第一行：L1 AB：Fixm：｛CD｝第二行：L2 Pol(C-A，D-B）◢第三行: L3 W<0 =〉W=W+360第四行：L4 lntW＋0.01lnt（）＋0.006 Frac（60 Frac W）◢2、操作步骤①开机：按AC键：②呼出文件名：按FILE键，显示1ZBFS文件名为止：③按EXE键，显示A？，输入第一点x坐标：如363.567（也可当测站）；④按EXE键，显示B？，输入第一点y坐标：如814.454（也可当测站）；⑤按EXE键，显示C？，输入第二点x坐标：如406.260 （也可作后视点）；⑥按EXE键，显示D？，输入第二点y坐标：如1029.145（也可作后视点）；⑦按EXE键，显示Pol(C-A，D-B）：218.89476为两点间距离；⑧按EXE键，显示lntW＋0.01lnt（60 Frac W）＋0.006 Frac（60 Frac W）78.45108两点方位角；(即是78°45′11″)三、坐标正算程序1、程序名；2ZBZS第一行：L1 AB：Lbl5：｛ST｝第二行：L2 C=A＋Rce（S，T）◢第三行：L3 D=B＋W◢第四行：L4 Goto52、操作步骤①开机：按AC键：②呼出文件名：按FILE键，显示2ZBZS文件名为止：③按EXE键，显示A？，输入第一点x坐标：如363.567；④按EXE键，显示B？，输入第一点y坐标：如814.454；⑤按EXE键，显示S？，输入两点间距离：如218.89476；⑥按EXE键，显示T？，输入两点方位角：如78°45′10.8″；⑦按EXE键，显示C=A＋Rce（S，T），为第二点x坐标：如406.260；⑧按EXE键，显示D=B＋W，为第二点y坐标：如1029.14499；四、坐标反算程序②1、程序名；ZF第一行：L1 Lbl 0第二行：L2 A：B：｛CD｝：C≤0 G=〉oto2第三行：L3 X=C－A第四行：L4 Y=D－B第五行：L5 S=Pol（X，Y）◢第六行：L6 T=W第七行：L7 T＜0=〉第八行：L8 T=W ◢第九行：L9 Goto 0第十行：L10 Lbl 1第十一行：L11 T″T″=360＋T◢第十二行：L12 Goto 0第十三行：L3 lbl 2第十四行：L14 ｛AB｝第十五行：L15 Goto 02、操作步骤①开机：按AC键：②呼出文件名：按FILE键，显示ZF文件名为止：③按EXE键，显示A？，输入第一点x坐标：如363.567 ；④按EXE键，显示B？，输入第一点y坐标：如814.454；⑤按EXE键，显示C？，输入第二点x坐标：如354.618；⑥按EXE键，显示D？，输入第二点y坐标：如553.341；⑦按EXE键，显示Pol(C-A，D-B）S=Pol（X，Y）：261.2663为两点间距离；⑧按EXE键，显示T=268.0371接着按SHIFT °′″键显T=268°2′13.55″为两点的方位角；⑨按EXE键，显示C？，输入下一点x值；⑩重复以上操作方法（略）五、线路直线段点坐标计算程序(1) ㈠本可计算前切线YZ至ZY点(或后切1、程序名；Z-X,Y(1) 线ZY至YZ)间直线上任点中、边桩坐标。

卡西欧Fx-4800P计算器测量程序一、坐标放样源程序ZBFYU“Xc”:M“Yc”:O“XH”:Q“YH”:I=O-U:J=Q-M: Pol(I，J):J＜0＝＞J=J+360:≠＞J=J:⊿T“HF” =J◢I“HL”◢X=0=＞W“XQ” =U+Lcos(T+P“a”)◢S“YQ” =M+Lsin(T+P)◢≠＞I=X-U:J=Y-M: Pol(I，J):J＜0＝＞J=J+360:≠＞J=J⊿I“QL=”◢H“QF” =J◢J=H-T:J＜0=＞J=J+360◢≠＞J=J使用说明:XH—后视点X坐标 YH—后视点Y坐标XC—置镜点X坐标 YC—置镜点Y坐标HF—后视方位角 QF—前视方位角HL—后视距离 QL—前视距离X、Y—前视点坐标 J—仪器后视归零后拨角当X=0时运行坐标反算QL—测设点到置镜点的距离а—测设点与后视点夹角XQ—测设点的X坐标 YQ—测设点的Y坐标二、复合辛卜生公式计算曲线元坐标源程序XBS—XY(已知里程求坐标)A“QD”:Z“ZD”:R“R0”:V“RN”:D“X0”:E“Y0”:F“F0”:K:L“B”:P“а”:J:Prog “SIM1”:W＜0＝＞W=W+360:≠＞W=W⊿W“FWI=”◢X=X◢Y=Y◢XBS—L、B(已知坐标求里程和边距)A“QD”:Z“ZD”:R“R0”:V“RN”:D“X0”:E“Y0”:F“F0”:K”K”(输入大致里程)I=X:B=Y:K=A+Abs((Y-E)cos(F+P“a”-180)+(X-D)sin(F+P-180):Lbl 1:L=0:Prog“SIM1”:C=(B-Y)cos(W+P-180)- (I-X)sin(W+P-180): AbsC＜10∧-4＝＞Goto2: ≠＞K=K+C∶Goto1:⊿Lbl2:L=0:Prog“SIM1”:C=(B-Y)÷sin(W+P):K=K◢C“B=”◢子程序SIM1T=(J÷V-J÷R)÷(Z-A)H=(K-A)÷NS=90H÷πW=F+((TNH+J÷R)+J÷R)NS: G=1:X=D+H÷6×(cosF+cosW+4×Σ(cos(F+((G+0.5)HT+2J÷R)(G+0.5)S),G,0,(N-1))+2Σ(cos(F+(THG+2J÷R)GS,G,1, (N-1)))+Lcos(W+P):Y=E+H÷6×(sinF+sinW+4×Σ(sin(F+((G+0.5)HT+2J÷R)(G+0.5)S,G,0,(N-1))+2×Σ(sin(F+(THG+2J÷R)GS,G,1,(N-1)))+Lsin(W+P)使用说明:QD—起点里程 ZD—终点里程R0—起点半径 RN—终点半径J—曲线转向 (左转为-1 直线为0 右转为+1)X0、Y0—线元起点坐标 F0—起点方位角K—待求点里程 N—计算精度(可取4～12的整数)а—边桩与中线右交角 B—边桩到中桩的距离，左“-”右“+”X、Y —待求点坐标 K—待求点里程三、数据库的编制以每个线元为一段先付参数值，例K≥542.759＝＞K≤686.148＝＞A”起点里程”=542.7590:Z终点里程=163.5:R起点半径=10^45: V终点半径=10^45:D起点坐标=22236.147:E起点坐标=32145.669:F起点切线方位角=81°22′42″:J＝0:⊿⊿K≥987.324＝＞K＜10234.021＝＞A=……J=－1⊿⊿……Prog“XBS—XY”四、纵断高程计算Lbi 0R:T:D”K(JD)”:H”H(JD)”:U”I1”:V”I2”:｛K｝V＞U=＞G=1:≠＞V＜U=＞G=-1⊿⊿K≤D-T=＞L=D-KP=H-LU/100≠＞K≤D=＞L=K-D+TP=H-U(D-K)/100+GL2/2R≠＞K≤D+T=＞L=D+T-KP=H+V(K-D)/100+GL2/2R≠＞K＞D+T=＞L=K-DP=H+LV/100⊿⊿⊿⊿P”H=”▲Goto 0H:高程、 K：变坡点里程、H：变坡点高程、I1、I2前后坡度五、中轴旋转、超高计算: (1)IR,(2)IL线路左转输2，W（Z）：中分带宽度，K：桩号，H（Z）：中桩设计高程，W（L）左侧宽度，W（R）：右侧宽度Lbi 1G”(1)IR,(2)IL”:D”K(ZH)”:S”LS1”:H”LS2”:Q”LY”:W”W(Z)”:I”I1”:J”IB”｛KVAE｝:K:V”h(Z)”:A”W(L)”:E”W(R)”G=2=＞G=-1⊿｛KPAB｝:K:P”H(Z)”:A”W(L)”:B”W(R)”Prog”XZ”:U”H(L)=”▲V”H(R)=”▲Goto11、子程序：XZG=1=＞U=A：V=B：≠＞G=-1=＞U=B：V=A⊿⊿K≤D=＞R=P-I（U-W/2）/100：E=P-I（V-W/2）/100：≠＞K≤D+S=＞Prog”ZXA”: ≠＞K≤D+S+Q=＞R=P+J(U-W/2)/100:E=P-J(V-W/2)/100: ≠＞K≤D+S+Q+H=＞Prog”ZXB”: ≠＞K＞D+S+Q+H=＞R=P-I(U-W/2)/100:E=P-I(V-W/2)/100⊿⊿⊿⊿⊿G=1=＞U=R:V=E: ≠＞G=-1=＞U=E:V=R⊿⊿2、子程序： ZXAL=K-DR=P-I(U-W/2)/100+L(U-W/2)(I+J)/100SL≤2IS/(I+J) =＞E=P-I(V-W/2)/100: ≠＞L＞2IS/(I+J) =＞E=P-LJ(V-W/2)/100S ⊿⊿3、子程序： ZXBL=D+S+Q+H-KR=P-I(U-W/2)/100+L(U-W/2)(I+J)/100HL≤2IH/(I+J) =＞E=P-I(V-W/2)/100: ≠＞L＞2IH/(I+J) =＞E=P-IJ(V-W/2)/100H ⊿⊿六：边轴旋转超高计算：L：平曲线长度，I1正常横坡，IB超高横坡。

CASIO fx-4800P(4500PA)计算器程序清单程序说明：本工程可以计算公路平面曲线中桩、边桩坐标（只限于缓和曲线长度相同之曲线）。

本工程中行首数字为行号，无须输入计算器。

程序清单如下：GLZBJS 公路坐标计算主程序（文件名）10 Defm 5 扩展内存20 F “JSFWJ”：R:S“LS”：A“ZJ”：输入曲线计算要素：F-计算方位角；I“L-,R+”：K“JDZH”：M“XJD”：R-曲线半径：N“YJD”S-缓和曲线长度；A-转角值；I-转角判30 C=28.6479S/R 定，当左转时输入+1，右转时输入-1；40 D=S2/(24R)-S^4/(2384R^3) K-JD桩号；M\N-JD坐标50 Q=S/2-S^3/(240R2) C-计算缓和曲线角；D-曲线内移植；60 T=(R+D)tan(A/2)+Q◢ Q-切线增值70 L“LQX”=（A-2C）Rπ/180+2S◢ T-切线长； L“LQX”-曲线长度80 E=（R+D）/cos(A/2)-R◢ E-曲线外距。

90 O“LY”=Rπ(A-2C)/180 O“LY”-圆曲线长度100 Z[1]“ZH”=K-T◢ ZH点桩号（如S=0,则为ZY点桩号）110 Z[2]“HY”=(K-T)+S◢ HY点桩号（同上）120 Z[3]“QZ”=K-T+L/2◢ QZ点桩号130 Z[4]“YH”=K-T+S+O◢ YH点桩号（如S=0,则为ZY点桩号）140 Z[5]“HZ”=K-T+L◢ HZ点桩号（同上）150 Lbl A 循环标识160 {W，B，C}输入W-1计算点桩号；B-宽度；C与170 W﹤K-T=﹥Prog“ZX SUB”：前进方向（轴线）的夹角。

≠=﹥W﹤(K-T)+S=﹥Prog“HHQX1SUB”：≠=﹥W﹤K-T+S+O=﹥Prog 判别输入的桩号在直线段、第一缓“YQX SUB”：≠和曲线段、圆曲线段还是第二缓和曲线=﹥W﹤K-T+O-2S=﹥Prog“HHQX2 段，然后分别用各子程序进行计算。

CASIOfx-4500PA自动计算程序：F1 HW（已知两点坐标，求两点间距离与方位角）L1 Lbl 0:{ABCD}:S=Pol(C-A,D-B◢L2 W<0=>W=360+W◢L3 ≠>W>0=>W=W◢Goto 0F2 ZB（已知一点坐标，另一点的方位角及两点间距离，求另一点坐标）L1 Lbl 0:{ABDFIJ}:X=A+cosF×D◢L2 Y=B+sinF×D◢L3 N=F-90:P=X+cosN×I◢L4 Q=Y+sinN×I◢L5 K=F+90:S=X+cosK×J◢L6 O=Y+sinK×J◢ Goto 0F3 HDQFY（右偏缓和曲线上点的计算）L1 Lbl 0:{RLHFIJAB}:X=H-H X Y5/(40R X Y2L X Y2:Y=H X Y3/(6RL)-H X Y7/(336R X Y3L X Y3:V=tan-1(y/x:M=√(X X Y2+Y X Y2:U=90H X Y2/(πRL:C=A+COS(F+V)×M◢L2 D=B+sin(F+V)×M◢L3 N=F+U-90:P=C+cosN×I◢L4 Q=D+sinN×I◢L5 K=F+U+90:G=C+cosK×J◢L6 O=D+sinK×J◢ Goto 0F4 HDQFZ（左偏缓和曲线上点的计算）L1 Lbl 0:{RLHFIJAB}:X=H-H X Y5/(40R X Y2L X Y2:Y=H X Y3/(6RL)-H X Y7/(336R X Y3L X Y3:V=tan-1(y/x:M=√(X X Y2+Y X Y2:U=90H X Y2/(πRL:C=A+COS(F-V)×M◢L2 D=B+sin(F-V)×M◢L3 N=F-U-90:P=C+cosN×I◢L4 Q=D+sinN×I◢L5 K=F-U+90:G=C+cosK×J◢L6 O=D+sinK×J◢ Goto 0F5 YQXZBY（右偏圆曲线上点的计算）L1 Lbl 0: {RFABIJH}:M=90H/π/R:V=F+M:D=2RsinM:X=A+cosV×D◢L2 Y=B+sinV×D◢L3 N=V+M-90:P=X+cosN×I◢L4 Q=Y+sinN×I◢L5 K=V+M+90:S=X+cosK×J◢L6 O=Y+sinK×J◢ Goto 0F6 YQXZBZ（左偏圆曲线上点的计算）L1 Lbl 0: {RFHABIJ}:M=90H/π/R:V=F-M:D=2RsinM:X=A+cosV×D◢L2 Y=B+sinV×D◢L3 N=V-M-90:P=X+cosN×I◢L4 Q=Y+sinN×I◢L5 K=V-M+90:S=X+cosK×J◢L6 O=Y+sinK×J◢ Goto 0F7 PJY(缓和曲线全偏角[右偏]计算)L1 Lb1 0:{RLV}:M=90L/π/RL2 M<360-V=>F=V+M◢ ≠=>F=V+M-360◢L3 ◣Goto 0F8 PJZ(缓和曲线全偏角[左偏]计算)L1 Lb1 0:{RLV}:M=90L/π/RL2 M≤V=>F=V-M◢ ≠=>F=V-M+360◢L3 ◣Goto 0。

CASIO fx 系列编程计算器测量程序集编写: 王劲松第一部分：CASIO fx-4800P 编程计算器测量程序集一．SHI JU CE TU （视距测图）1． 用途：该程序用于“经纬仪视距法碎部测量”时，计算测站点至碎部点间的平距及碎部点的高程。

2． 程序清单：C “H0”：I ：A “UP ”：B “DOWN ”：V “MIDDLE ”：L ：E=90-L ↙ D=100Abs （A-B ）（cosE ）2◢ H=（C+I ）+DtanE-V 3． 程序说明：H0——测站点高程；I ——测站仪器高；UP ——塔尺上丝读数；DOWN ——塔尺下丝读数；MIDDLE ——塔尺中丝读数；L ——经纬仪竖盘读数盘左读数；D ——测站点至碎部点间平距；H ——碎部点的高程。

5．该程序若在fx-3950中的程序清单为：？→M ：？→A ：？→B ：？→C ：？→D ：100（A-B ）（cos(90-D)）2→X ◢ M+Xtan(90-D)-C →Y说明：M ——将测站高程H0+仪器高I ；A ——上丝读数；B ——下丝读数；C ——中丝读数；D ——竖盘盘左读数L 。

X ——测站点至碎部点的平距；Y ——碎部点的高程。

二．FAN SUAN （反算）1．用途：该程序是“坐标反算公式”程序，用于根据两点1、2的平面坐标（X1，Y1）、（X2，Y2），计算两点间的距离D12及坐标方位角A12。

2． 程序清单：G “X1”：B “Y1”：C “X2”：H “Y2”：E=C-G ：F=H-B ↙ Pol （E ，F ）：I “D12”◢ ∆+=⇒<3600J J J J “A12” 3． 程序说明：X1，Y1——点1的平面坐标；X2，Y2——点2的平面坐标； D12——点1至点2间平距；A12——点1至点2坐标方位角。

由于编程时用到了极坐标函数POL （），故在程序运行中，会出现I=？XXX （数字）及J=？XXX （数字）这是函数POL 计算出的两个量，不能改变，直接回车默认即可。

CASIO 4500全站仪测设公路中桩和边桩程序作者：lq52搜集人气：22 来源：网络【字体：大中小】【打印】【关闭】用全站仪测设公路中桩和边桩程序[转帖]由本人从网络是整理而得。

供大家使用！！(原程序是这样的，我未加整理，见谅)程序说明：本程序用于用全站仪测设中桩和边桩，采用坐标变换的方法编制而成，在使用fx-4500计算器时，可直接输入以下程序便可使用；而在使用fx-4800计算器时，见fx-4800程序清单。

注意：因程序的0(零)和O易混淆,所以字母O用较大的全角符号，零仍用标准字。

程序输入时应连续输入，无空格。

而且输入时文件名需和给出的一样，否则会出现调用文件错误。

变量说明： <程序运算符定义>X 输入摆站点的x坐标 C 输入第一个曲线角桩x坐标 I 输入中间曲线角桩的x坐标Y 输入摆站点的y坐标 D 输入第一个曲线角桩y坐标 J 输入中间曲线角桩的y坐标E 最后一个曲线角桩x坐标 R 中间曲线半径 L 中间曲线缓和曲线长F 最后一个曲线角桩y坐标 K 第一个K为中间角桩桩号 S 中间角桩曲线总长，检验用K 第二个K为要测设的桩号 B 测中桩时输入0，测边桩时输入宽度（左输负值，右输正值）程序清单注释文件:F1 文件名：1L1L2L3Defm 8XYCDIJEFRLK:Fixm:Z[2]=0:Prog BZ[5]=0.5L-L Xy 3/240R2:Z[3]=Z[5]+(R+L2/24R)Abs tan T┛2:Z=K-Ans:S=R Abs Tπ/180+L:S◢H=Z+Ans:G=RL:Prog 2文件:F2 文件名：2L1Lbl 0:Fixm:{K}L2Lbl 6:{B}:Norm:K(-1) Xy Z[2]>(H-L)(-1) Xy Z[2]＝>Goto 4⊿Frac Z[2]┛2=0=>Z[6]=Z:≠>Z[6]=H⊿A=90T/Abs TL3B<0＝>N=0:≠>N=1⊿B=Abs BL4０=Abs(K-Z[6]:K(-1) Xy Z[2]>Z[6](-1) Xy Z[2]＝>Goto 2⊿Q=Z[3]+０:Z[4]=B L5B≠0＝>Prog C⊿Prog D:P=0L6Prog E:Goto 0L7Lbl 2:０≥L＝>Goto 3⊿L8Q=Z[3]-０+０ Xy 5/40G2:Z[4]=０ Xy 3/6G-０ Xy 7/336G Xy 3:Prog D:P=BL9B≠0＝>Prog F⊿Prog E:Goto 0L10Lbl 3:Q=Z[3]-Z[5]:Z[4]=R+L2/24R:Prog DL11Z[8]=U+A(2(０-L)/πR-1+L/πR):B≠0＝>Prog G:≠>P=R⊿Prog E:Goto 0L12Lbl 4:M=C:０=D:C=E:D=F:E=M:F=０:Z[2]=Z[2]+1:Prog B:Goto 6文件:F3 文件名：0L1Pol(M,０):W<0＝>W=W+360文件:F4 文件名：BL1L2M=E-I:０=F-J:Prog 0:T=W:M=I-C:０=J-D:Prog 0:U=W:T=T-WT<-180＝>T=T+360⊿T>180＝>T=T-360文件:F5 文件名：CL1 A=-90(-1) Xy (N+Z[2])文件:F6 文件名：DL1 Z[7]=I-QcosU+Z[4]cos(U+A):Z[1]=J-QsinU+Z[4]sin(U+A)文件:F7 文件名：EL1L2M=Z[7]+PcosZ[8]-X:０=Z[1]+PsinZ[8]-Y:Prog 0W◢Fix 3:V◢Norm文件:F8 文件名：FL1Z[8]=U+A+A０2/πG+90+A(-1) Xy (N+Z[2])文件:F9 文件名：GL1P=R+AB(-1) Xy (N+Z[2])/90此处L2句加入： M+X◢０+Y◢可显示测点坐标值曲线上任意点中边桩坐标计算程序(CASIO fx-4800P可全线计算)作者：冯第胜人气：14 来源：网络【字体：大中小】【打印】【关闭】主:PQXLbi 0：prog“TAD”Goto 1↙Lbi 1:Z[1]“ZH-X”=M+Tcos（F+180）:Z[2]“ZH-Y”=N+Tsin（F+180）：V[1]“HZ-X”=M+Tcos（F+Z）：V[2]“HZ-Y”=N+Tsin（F+Z）：H=0=>Goto 2:≠>D=H:prog“QXY”:A“HY-X”= Z[1]+I cos(F+SZ÷AbsZ) ：C“HY-Y”= Z[2]+I sin(F+SZ÷AbsZ):Q“YH-X”=V[1]+I cos(F+Z+180-SZ÷AbsZ ) ：E“YH-Y”= V[2]+ Isin(F+Z+180-SZ÷AbsZ )↙Lbi 2:K≤G=>D=Abs(G-K):O=M:P=N:I=D+T:J=F+180:W=F:Goto 4⊿↙H=0→Goto 3⊿↙K≤G+H=>D=Abs(K-G):O=Z[1]:P=Z[2]:prog“QXY” :J=F+SZ÷AbsZ:W=F+3SZ÷AbsZ: Goto 4⊿↙Lbi 3:K≤G+L-H=>D=Abs(K-G-H):H=0=>H=1:O=Z[1]:P=Z[2]:≠>H=H:O=A:P=C:prog“QXY”H=1=>Q=0⊿I=D:J=F+(Q+E)Z÷AbsZ:W=F+(Q+2E)Z÷AbsZ: Goto 4⊿↙K≤V=>D=Abs(V-K):O=V[1]:P=V[2]:prog“QXY”:F=F+Z+180: :J=F-SZ÷AbsZ:W=F-3SZ÷AbsZ:U=180+U: Goto 4⊿↙Lbi 4:X=O+IcosJ+Bcos(W+U)▲Y=P+IsinJ+Bsin(W+U)▲I=0：J=0：I=POL（X-x0，Y-y0：J<0→J=J+360△J“FWJ”=J▲I“r”=I▲（x0、y0为置仪点坐标）子:QXYA=D-D^5/40R²H²+ D^9/3456R^4H^4- D^13/599040R^6H^6+ D^17/17542600R^8H^8+1E-99:C=D³/6RH-D^7/336R³H³+D^11/42240R^5H^5-D^15/976800R^7H^7+ D^19/3530097000R^9H^9: S=tan¯1(C÷A):I=√(A²+C²):Q=90H÷лR:E=90D÷лR:D=2RsinE子:TADLbi 0:{KBU}:KBU↙K≤xxx=>M=xxx:N=xxx: F=xxx: Z=xxx: R=xxx: H=xxx: T=xxx: L=xxx: G=xxx: V=xxx:≠>K≤xxx=>M=xxx:N=xxx: F=xxx: Z=xxx: R=xxx: H=xxx: T=xxx: L=xxx: G=xxx: V=xxx:≠>K≤xxx=>M=xxx……………⊿注:K？输入计算点桩号;B？输入距中桩距离,左－,右＋;U？输入与前进方向偏角计算中桩坐标时B、U输入0,M－交点X坐标;N－交点Y坐标;F－路线前进方向方位角;Z－转角,左转时连同“-”号输入; R－半径;H-缓和曲线长,无缓和曲线时为0;T－切线长；L－曲线总长;G－直缓点桩号;V－缓直的桩号在Lbi1行处,把各主点后的“:”改为“▲”，如Z[1]“ZH-X”=M+Tcos（F+180）:改成Z[1]“ZH-X”=M+Tcos（F+180）▲可直接显示主点桩号坐标,在子程“TAD”内可输入全线角桩资料,K≤本转角缓直点桩号时输入本转角曲线要素。

卡西欧4500、4800计算器计算程序卡西欧4500/4800计算器程序任意里程桩号计算程序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))+Bc os(G+QEFW(C+FWD))+Acos(G+QE M W(C+M WD))):Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD) )+Bsin(G+QEFW(C+FWD)) +Asin(G+QE M W(C+M WD))) :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。

一、源程序(SZ-XY-SZ)"1.SZ => XY"："2. XY => SZ"：NU"X0"V"Y0"O"S0"G"F0"Q：Q=0=>R=1E-45：≠>R△J=0：M=AbsQ：K=1-M：N=1=>Goto 1：≠>Goto 2△←┙Lbl 1：{SZ}：SZ：L=S-O：B=90QL÷π÷R：F=G+B：E=F+B+90：C=LK+2MRsinQB：X"XS" = U+Rec(C,F)+ZcosE◢Y"YS"=V+J+ZsinE◢Goto 1←┙Lbl 2：W=G+90Q：E=U+Rec(R,W)：F=V+J←┙Lbl 3：{XY}：XY：D=Pol(X-E,Y-F):T=J：J<0=>T=J+360△B=T-W-180M：P=Abs B：S"S"=O+ DKcosP+ MπRP÷180◢Z"Z"=DKsinB+MQ(R-D)◢Goto 3←┙二、使用说明1.由里程、中边桩计算坐标启动程序后按以下提示输入数据：N ？1 （N=1，由里程中边桩计算坐标；N≠1，由坐标反算里程及中边桩)X0 ？142.353 (直线或圆曲线起点的X坐标）Y0 ？368.166 (直线或圆曲线起点的Y坐标）S0 ？155.252 (直线或圆曲线起点的里程）F0 ？60°54′03″(直线或圆曲线起点的切线方位角）Q ？-1 (当线元为直线时Q=0；当线元为圆曲线且左偏时Q=-1；当线元为圆曲线且右偏时Q=1)R ？100 (圆曲线的半径)S ？194.016 (中线里程)Z ？-5.251 (中线左侧5.251m的边桩；在中线上Z=0，在左侧<0，在右侧Z>0)显示计算结果XS=172.7467767YS=395.23168072.由坐标反算里程、中边桩启动程序后按以下提示输入数据：N ？2 （N=1，由里程中边桩计算坐标；N≠1，由坐标反算里程及中边桩)X0 ？142.353 (直线或圆曲线起点的X坐标）Y0 ？368.166 (直线或圆曲线起点的Y坐标）S0 ？155.252 (直线或圆曲线起点的里程）F0 ？60°54′03″(直线或圆曲线起点的切线方位角）Q ？-1 (当线元为直线时Q=0；当线元为圆曲线且左偏时Q=-1；当线元为圆曲线且右偏时Q=1)R ？100 (圆曲线的半径)X ？172.7467767 (待求里程及中边桩的点的X坐标)Y ？395.2316807 (待求里程及中边桩的点的Y坐标)显示计算结果S=194.016Z=-5.251三、注意事项1.本程序主要是针对市政道路工程中的直线和圆曲线而编制的，未考虑缓和曲线等曲线的计算；2.程序中“R=1E-45”的意思为10的-45次方，输入程序时切莫输错。

这是我在施工测量中使用的Casiofx4500p计算器程序,较实用,供大家参考使用.名代码变量与说明2 曲线要素：P=I2/24R-I4/2688R3M=I/2-I3/240R2T=(R+P)Tan(A/2)+ML=A/180×πR+IB=I/R×90/πA,R,I,m,p,B,T,L本系统的变量是统一的，代表特定含义，在各段代码中通用，不宜更改。

A:曲线转角R:曲线半径I:缓和曲线长T:切线长L:曲线长m,p,B:曲线要素3 直线相交（四点）点:NSOTPUQVPol(Q-P,V-U)Q=U-PtanWU=WPol(O-N,T-S)N=T-OtanWO=W▲ U▲A=U-O:Pol(cosA,sinA):A=AbsW▲ K=W/A▲J=(Q-N)/(tanO-tanU) ▲D=JtanO+N▲O,U,J,D连续输入四点坐标两条直线方位转角交点坐标O,U:第一、第二条直线的方位（计算后）J,D:交点坐标（计算后）31 交点方位:JDOUA=U-OPol(cosA,sinA)A=AbsAK=W/AJ,D,O,U输入交点坐标与切线方位转角转向K:曲线转向,右转为正4 任意点坐标：Lbl 2:{S}S≤0→G=S:H=0:C=0:Goto 4△S≥L→G=L-S:H=0:C=0: Goto 3△S→Prog 5: Goto 4△S→C=B+180(S-I)/RπG=RsinC+M:H=R-RcosC+P: Goto 4 ≠>S=L-S:Prog 5Lbl 3X=J-KhsinU+cosU(T-G) ▲Y=D+KhcosU+sinU(T-G) ▲Z=U-KC:Goto 5Lbl 4X=J-KhsinO-cosO(T-G) ▲Y=D+KhcosO-sinO(T-G) ▲Z=O+KCLbl 5:{N}:G=X+KNsinZ▲ H=Y-KNcosZ▲Goto 2S,X,Y,G,H,N输入到曲线起点的弧长坐标坐标方向距离（外侧为正）法线点坐标S:距曲线起点的弧长,S可用到曲线起点的里程差得到N:法向距离(曲线外侧为正)X,Y:中线点坐标Z:切线方位G,H:法向点坐标41 程序连接:Prog 31:Prog 2:Prog 448 曲线长反算:Z=O+(90+A/2)KS=(R+P)/cos(A/2)G=J+ScosZH=D+SsinZLbl 8:{XY}Pol(X-G,Y-H)Z=K(W-O)+90S=RZ×/180+I/2▲Goto 8X,Y,SOAKRPJD为曲线变量法向点坐标曲线长由法向点坐标反算成对应曲线长49 E=G+G5/40Q2-G9/3456Q4F=H-E3/6Q+E7/336Q3E2/2Q×F/(1-EF/Q)+E缓和曲线段的反算5 缓和曲线:Q=RIG=S-S5/40Q2+S9/3456Q2Q2H=S3/6Q-S7/336Q3+S11/42240Q5C=S2/RI×90/πG,H,C6 放样:Defm 2Z[1] ▲ Z[1]=Ans:Z[2] ▲ Z[2]=Ans EFPol(Z[1]-E,Z[2]-F)Q=WLbl 0:{XY}Pol(X-E,Y-F) ▲W-QAns<0→Ans+360△”B=”▲Goto 0输入后视点坐标输入测站坐标EF放样距离V放样顺拨角度(度)Z[1],Z[2]:后视点坐标E,F: 测站点坐标Q:后视方位X,Y: 放样点坐标8 单导线:KLbL 1:{AS}Prog A:SB=B+180-KA▲X=X+ScosB▲ Y=Y+SsinB▲ Goto 1A,S,B,X,Y输入左角右角输入角度距离前视方位前视点坐标连续计算单导线坐标，角度按度.分秒输入左角K=-1,右角K=181 支导线:ZSZ=Z+QX=E+ScosZ▲ Y=F+SsinZ▲Z,S,Q,X,Y前视角度(度),距离前视方位前视坐标放样时计算前视点的坐标,以便反算A 角度转换:A=IntA+Int(100FracA)/60+Frac(100A)/36 A 输入度.分秒，转换成度。

CASIO fx--4500P(PA)公路线型平面坐标计算程序WSF1Q"X0"N"Y0"J"H0"F1 L1Lb1 1F1 L2{P,K}:P"K"K"BZ"F1 L3Prog XYF1 L4Porg HXF1 L5HFF1 L6V"ΔL"=R－V◢F1 L7W"HC"=WF1 L8Goto 1F1 L9XYF2Lb1 0F2 L1A"X1"B"Y1"C"W1"D"JD"G"PJ"E"LS"F"R"I"IZ"F2 L2Z=90／(πF)F2 L3Prog MF2 L4P"K"K"BZ"F2 L5C≥180＝＞H=C－180：≠＝＞H=C+180ΔF2 L6P＞M+2E+L＝＞Goto 0△F2 L7P≤M＝＞Prog H1：≠＝＞P＞M+E+L＝＞Prog H4：≠＝＞Prog H8△△F2 L8MF3O=E²／24／F－Exy4／2384／Fxy3F3 L1R=E／2－Exy3／240F²F3 L2L=πF(G－2EZ)／180F3 L3T=(F+O) tan (G／2)+RF3 L4M=D－TF3 L5H1F4O=A：R=B：S=D－P：X=H：Prog H0F4 L1K≠0＝＞X=C+90K／Abs K：Prog HP△F4 L2H2F5S=P－MF5 L1X=C+IZS²／3EF5 L2S=S－Sxy5／(90E²F²)F5 L3Prog H0F5 L4K≠0＝＞X=C+IZ(P－M)²／E+90K／Abs K∶Prog HP△F5 L5H3F6Rec( (E－Exy3／90F²)，(C+IZE／3) )F6 L1O=O+VF6 L2R=R+WF6 L3S=P－E－MF6 L4X=C+IZ(E+S)F6 L5S=2Fsin (ZS)F6 L6Prog H0F6 L7K≠0＝＞X=C+IZ(2P－2M－E)+90K／Abs K∶Prog HPF6 L8H4F7Rec(T，C+IG)F7 L1O=A+VF7 L2R=B+WF7 L3C+IG≥180＝＞H=C+IG－180∶≠＝＞H=C+IG+180△F7 L4S=M+2E+L－PF7 L5X=H－IZS²／3／EF7 L6S=S－Sxy5／(90E²F²)F7 L7Prog H0F7 L8K≠0＝＞X=H－IZ(M+2E+L－P)²／E－90K／Abs K∶Prog HP△F7 L9H8F8Rec(T，H)F8 L1O=A+VF8 L2R=B+WF8 L3P＞M+E＝＞Prog H3∶≠＝＞Prog H2F8 L4HPF9O=VF9 L1R=WF9 L2S=Abs KF9 L3Prog H0F9 L4HXF10O=V－QF10 L1R=W－NF10 L2Po1 (O，R)∶R＜0＝＞O"W"=W+360◢≠＝＞O"W"=W◢△F10 L3R"LC"=V◢F10 L4H0F11Rec(S，X)F11 L1V"X"=V+O◢F11 L2W"Y"=W+R◢F11 L3HFF12{U，Y}：U"DS"Y"DJ"F12 L1V=－Usin YF12 L2W=J+cos Y－．42(Usin Y)²／6371000F12 L3说明：该程序中的实心、空心三角号按计算器版面符号输入即可。

整套卡西欧计算器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.2 线路边桩座标的计算程序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.2 红线交点座标的计算程序6.3 直线与曲线交点座标的计算程序6.4 道路不等宽时曲线元素的计算程序6.5 垂足座标的计算程序6.6 圆曲线敷设的计算程序6.7 缓各曲线敷设的计算程序6.8 极座标放线的计算程序6.9 单一水准路线的近似平差计算程序6.10 丘地有关项目的计算程序公路中、边桩坐标计算及放样程序功能：任意半径曲线中桩、任意交角边桩坐标计算放样、中桩切线方位角、任意点置仪放样、两点间距离计算、两点方位角计算。

福建林业职业技术学院工程系土木工程室高国兴CASIO fx-4500PA计算中桩、边桩坐标程序直线、圆曲线中桩及左、右边桩计算程序fx-4800pC“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：L“Lμo=”：K“D=”：M“Jμo=”：Q=9θL÷（πR）：S=2RsinQ ：O =C＋Scos（N-Q）◢P=D+Ssin（N-Q）◢W=E-2Q◢X=O+Kcos（N-2Q-M）◢Y=P+Ksin（N-2Q-M）◢注：Xθ=起算点坐标Yθ=起算点坐标Wθ=起算点方位角R=曲线半径，线路前进方向，左+，右－直线R为无穷大Lμo=置镜点到待求点距离D左、右边距离Jμo=前进方向左（+90），右（－90）O=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标缓和曲线中桩及左、右边桩计算程序Fx-4800pC“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：F“Lθ=”：L“Lμo=”：K“D=”：M“Jμo=”←U=L－L^5÷（40R2F2）：V=L^3÷（6RF）－L^7÷（336R^3F^3）：Q=tan－1如有你有帮助，请购买下载，谢谢！（V÷U）：S=√（U2+V2）←B=9θL2÷（πRF）：O=C+Scos（N－Q）◢P=D+Ssin（N－Q）◢W=E－B◢X=O+Kcos（N－B－M）◢Y=P+Ksin（N－B－M）◢注：Xθ=起算点坐标Yθ=起算点坐标Wθ=起算点方位角R=曲线半径，线路前进方向，左+，右－Lθ=缓和曲线长Lμo=置镜点到待求点距离D左、右待求距离Jμo=前进方向左（+90），右（－90）O=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标放样程序fx-4800pRLI“XZ”：W：“YZ”：G“XH”：H“YH”←B=H－W ←C=G－I ←Prog“P”：U=A←K=√（B2＋C2）←。