卡西欧4850程序
卡西欧4800和4850计算程序
卡西欧4800\4850程序一：坐标反算：(ZBFS)①程序步骤：C”X1”:D”Y1”:E”X2”:F”Y2”:Fixm:Pol(E-C,F-D:I”S1-2=”▲J≤Ｏ＝＞J=J+360△J”A1-2=”②操作过程：ZBFS→EXE→输入X1值→EXE→输入Y1值→EXE→输入X2值→EXE→输入Y2值→EXE→EXE→EXE注：①：S1-2:计算得出的距离。
②：A1-2:计算得出的角度。
（按shift°′″转换为60进制的角度）③：此程序可循环计算。
③案例：已知：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)①程序步骤：C”X1”:D”Y1”:S”S1-2”:R”A1-2”:Fixm:X”X2”=C+Rec(S,R) ▲Y”Y2”=D+J②操作过程：ZBZS→EXE→输入X1值→EXE→输入Y1值→EXE→输入S1-2距离值→EXE→输入A1-2角度（例268°15′09.56 ″）值→EXE→EXE注：①：X2计算得出坐标，Y2计算得出坐标。
②：此程序可循环计算。
③案例：已知：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.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），即可计算下一个曲线中线及边线点位坐标。
4850计算器程序
卡西欧4850计算器计算程序一、XLZBJS(线路坐标计算)主程序：P＝L2÷(24R)-L4÷(2688R3)M＝L÷2－L3÷(240R2)B＝90L÷(πR)T＝(R＋P)tan(AbsA÷2) ＋MC“ZH”＝D－TG“HY”＝C＋LH“YH”＝G＋(AbsA－2B) πR÷180I“HZ”＝H＋LLbl 0：{K}K≤G＝＞Goto 1：≠＝＞Goto 2△Lbl 1：（K－C）≤0＝＞Goto 5△X＝K－C－(K－C)5÷(40R2L2)Y＝(K－C)3÷(6LR) －(K－C)7÷(336R3L3)J＝√（X2＋Y2）O＝tan-1(Y÷X)“X0＝”：Q＝N＋T cos (F＋180) ＋J cos (AbsAO÷A ＋F)◢“Y0＝”：S＝E＋T sin (F＋180) ＋J sin (AbsAO÷A ＋F)◢W＝F＋3AbsAO÷AGoto 4△Lbl 2：K≥H＝＞Goto 3△X＝R sin ((K－G) ×180÷(πR) ＋B) ＋MY＝R(1－cos ((K－G) ×180÷(πR) ＋B)) ＋PJ＝√（X2＋Y2）O＝tan-1(Y÷X)“X0＝”：Q＝N＋T cos (F＋180) ＋J cos (AbsAO÷A ＋F)◢“Y0＝”：S＝E＋T sin (F＋180) ＋J sin (AbsAO÷A ＋F)◢W＝F＋AbsAB÷A＋AbsA(K－G) ×180÷(πR) ÷AGoto 4△Lbl 3：K≥I＝＞Goto 6△X＝K－I－(K－I)5÷(40R2L2)Y＝(I－K)3÷(6LR) －(I－K)7÷(336R3L3)J＝√（X2＋Y2）O＝tan-1(Y÷X)“X0＝”：Q＝N＋T cos (F＋A) ＋J cos (F＋A＋180－AbsAO÷A )◢“Y0＝”：S＝E＋T sin (F＋A) ＋J sin (F＋A＋180－AbsAO÷A )◢W＝F＋A－3AbsAO÷AGoto 4△Lbl 4：“FWJ”：W◢{Z}U＝Q＋Z cos (W－90)“XL＝”：U◢“YL＝”：V＝S＋Z sin (W－90)◢“XR＝”：U＝Q＋Z cos (W＋90)◢“YR＝”：V＝S＋Z sin (W＋90)◢Goto 0△Lbl 5：“X0＝”：Q＝N＋(D－K) cos (F＋180 )◢“Y0＝”：S＝E＋(D－K) sin (F＋180 )◢W＝FGoto 4△Lbl 6：“X0＝”：Q＝N＋(T＋K－I) cos (F＋A )◢“Y0＝”：S＝E＋(T＋K－I) sin (F＋A )◢W＝F＋AGoto 4△“END”子程序（运算程序）D＝交点里程N＝交点的X坐标E＝交点的Y坐标A＝曲线转向角R＝曲线半径L＝缓和曲线长F＝第一切线方位角（ZH—JD）Prog“XLZBJS”◢“END”说明：计算时只需进入子程序（运算程序），无需进入主程序。
卡西欧4850工程测量程序
卡西欧4850工程测量程序4850主线坐标正反算程序（环岛路4-2标全线）"P"平曲线坐标计算主程序Defm 26Fix 3LbI 0{KD}: Prog "P-YAOSU" :E"HY" N"XHY"W"YHY" M"HZ"G"A1"H"A2"R:V=G2/R:J=H2/R:L"LS1"A"LS2" P"T1"Q"T2" C"FW1" F"FW2": I=Abs(F-C)/(F-C):Z[15]=C-90I(V-L)2/(∏RV):Z[16]=F+90I(J-A)2/(∏RJ):Z[9]= Abs(Z[16]-Z[15])LbI A: Prog "P1":"X"：X▲"Y":Y▲Goto 0"PF"平曲线坐标反算主程序Defm 27LbI 0: {OU}:K"K0"=0LbI 1:Prog "P-YAOSU":E"HY" N"XHY"W"YHY" M"HZ" G"A1"H"A2"R: L"LS1"A"LS2"P"T1"Q"T2" C"FW1" F"FW2": V=G2/R:J=H2/R:I=Abs(F-C)/(F-C):Z[15]=C-90I(V-L)2/(∏RV):Z[16]=F+90I(J-A)2/(∏RJ):Z[9]= Abs(Z[16]-Z[15])LbI A:O"X": U"Y":D=0LbI B:Prog "P1": Z[23]=O-X: Z[24]=U-Y: Z[23]<0=>Z[25]=tan-1(Z[24]/Z[23])+180：≠>Z[24] ＞0＝>Z[25]= tan-1(Z[24]/ Z[23])：≠>Z[24] ＜0＝>Z[25]=tan-1(Z[24]/ Z[23])+360△△△Abs(B- Z[25]+90) ≤0.002＝＞Goto C△Abs(B- Z[25]+270) ≤0.002＝＞Goto C△Abs(B- Z[25]-90) ≤0.002＝＞Goto C△Abs(B- Z[25]-270) ≤0.002＝＞Goto C△K=K+√(Z[23]2+ Z[24]2)×COS(B- Z[25]) ：Goto 1LbI C:D=√(Z[23]2+ Z[24]2)×SIN(Z[25]-B) :"K"：K▲"D":D▲Goto 0"P1"Z[26]=30V/(∏R):Z[10]=V-V^3/(40R2)+V^5/(3456R^4)-V^7/(599040R^6):Z[11]=C+IO+180: Z[12]= Z[10]/cos Z[26]:Z[13]=N+ Z[12]cos Z[11]: Z[14]=W+ Z[12]sin Z[11]:Z[3]=V2/(24R):Z[4]=V/2-V^3/(240R2):Z[5]=J2/(24R):Z[6]=J/2-J^3/(240R2): Z"ZH"=E-V:V≤J=> Z[7]=(R+Z[3])tan(Z[9]/2)+Z[4]+Abs(Z[3]-Z[5])/sinZ[9]:Z[8]= (R+Z[3])tan(Z[9]/2) +Z[6]+ (Z[3]-Z[5])/tanZ[9]:Goto 1△V>J=> Z[7]= (R+Z[5])tan(Z[9]/2) +Z[4]+ (Z[5]-Z[3])/tanZ[9]:Z[8]= (R+Z[5])tan(Z[9]/2) +Z[6]+ Abs(Z[3]-Z[5])/sinZ[9] :Goto 1△LbI 1:Z[17]= Z[13]+ Z[7]cos Z[15]:Z[18]= Z[14]+ Z[7]sin Z[15]: K＜E-L=> Prog "P2": ≠＞K≤E=> Prog "P3": ≠＞K≤M-A=> Prog "P4": ≠＞K≤M=> Prog "P5": ≠＞K>M=> Prog "P6"△△△△△"P2"B=C:L<V-0.001 => Prog "P7":Z[7]=P: Goto E△L=V=> Goto E△△LbI E:X=Z[17]+Abs（Z-K+ Z[7]）COS（B+180）+D COS（B+90）：Y= Z[18]+Abs （Z-K+ Z[7]）SIN（B+180）+D SIN（B+90）"P3"B= Z[15]+180I（K-Z）2÷（2VR）÷∏：Z[27]=（K-Z）-（K-Z）^5÷(40 V2R2)+ （K-Z）^9÷(3456 V4R4)：S=（K-Z）^3÷（6VR）-（K-Z）^7÷(336 V3R3)+ （K-Z）^11÷(42240 V5R5)：X=Z[13]+Z[27]COSZ[15]+SCOS（Z[15]+90I）+DCOS（B+90）：Y=Z[14]+Z[27]SINZ[15]+SSIN（C+90I）+DSIN（B+90）"P4"B= Z[15]+180I（V÷（2R）+（K-（Z+V））÷R）÷∏：X=N+2RSIN（（K-（Z+V））÷（2R）×180÷∏）×COS（Z[15]+I（（V+（K-（Z+V）））÷（2R））×180÷∏）+DCOS（B+90）：Y=W+2RSIN（（K-（Z+V））÷（2R）×180÷∏）×SIN（Z[15]+I（（V+（K-（Z+V）））÷（2R））×180÷∏）+DSIN（B+90）"P5"B= Z[16]-180I（M-K）2÷（2JR）÷∏：Z[27]=（M-K）-（M-K）^5÷(40 J2R2)+ （M-K）^9÷(3456 J4R4)：S=（M-K）^3÷（6JR）-（M-K）^7÷(336 J3R3)+ （M-K）^11÷(42240 J5R5)：X=Z[17]+ Z[8]COS Z[16]+Z[27]COS（Z[16]+180）+SCOS（Z[16]+90I）+DCOS （B+90）：Y=Z[18]+ Z[8]SIN Z[16]+Z[27]SIN（Z[16]+180）+SSIN（Z[16]+90I）+DSIN （B+90）"P6"B=F:A<J-0.001=> Prog "P7":Z[8]=Q: GotoF△A=J=> GotoF△LbI F: X=Z[17]+Abs（K-M+ Z[8）COSB+D COS（B+90）：Y= Z[18]+Abs（K-M+ Z[8]）SINB+D SIN（B+90）"P-YAOSU"平曲线要素以虎门环岛路4-2标为例K≤3885.094=>E=2836.672:N=5900.550:W=2162.672:M=3635.384:G=200:H =200:R=400:T=3885.094:L=100:A=100:P=672.352:Q=672.352:C=314°16°54°:F=199°52°28°: ≠> K≤4029.04=>E=3920.094:N=5403.695:W=1429.083:M=4029.04:G=72.457:H=72.457:R=150:T=4029.04:L=35:A=35:P=74.622:Q=74.622:C=199°52°28°:F=241°29°20°: ≠> K≤4410.016=>E=4065.36:N=5311.708:W=1320.133:M=4148.083:G=73.81:H=73.81:R=150:T=4410.016:L=36.32:A=36.32:P=60.698:Q=60.698:C=241°29°20°:F=209°53°27°: ≠> K≤5269.802=>E=4410.016:N=5021.620:W=1137.184:M=5048.135:G=1÷10^10:H=1÷10^10:R=2000:T=5269.802:L=0:A=0:P=321.794:Q=321.794:C=209°53°27°:F=191°36°36°注意：要素中的G和H即曲线要素A1和A2不能为0，无缓和段时曲线要素A为10^10即无穷大。
卡西欧4850计算器程序
卡西欧fx-4850P万能放线程序主程序：ZBJS↙◢“◢：H◢↙注：↙↙↙↙注：此程序可把全线路要素输入数据库，能执行直线、高程放线正反算。
卵形曲线。
卡西欧fx-4850P直线、各种曲线任意放中线(匝道)1：主程序：TYQXJS“1，KS=＞XY”：“2，XY=＞KS”：N：U“X0”：V“Y0”：o“K0”：G“FWJ”：H“LS”：P“R1”：R“R2”：Q“Y+1；0；Z-1”：C=P-1：D=（P-R）÷（2HPR）：E=180÷π：N=1=＞Goto 1:≠＞Goto 2↙◢“Goto 1↙2：正算子程序：S U B1A=0.1739274226:B=0.3260725774:Z=0.0694318442:L=0.33 00094782:F=1-L:M=1-Z:X=U+W(Acos(G+QEZW(C+ZWD))+Bcos (G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+M WD))):Y=V+W(Asin(G+QEZW(C+ZWD))+Bsin(G+QELW(C+LWD)) +Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))):F=G+QEW(C +WD)+90:X=X+Scos F :Y=Y+SsinF↙3坐标反算子程序 SUB2T=G-90：W=Abs((Y-V)cosT-(X-U)sinT) :S=0:Lbl 0: Prog “SUB1”：L=T+QEW（C+WD）:S=（J-Y）cos L-(I-X)sin L : Abs S＜10-6=＞Goto 1: ≠＞W=W+S:Goto 0↙Lbl 1:S=0:Prog“SUB1”:S=(J-Y)÷sin F↙注：o→代表：欧 0→代表零使用说明：1规定：⑴本程序可执行直线、圆曲线、缓和曲线（完整或非完整型）、复曲线、卵形曲线的任意里程中边桩坐标的正反算。
CASIO4850坐标正反算程序说明书
CASIO fx4850线路正反算测量程序（全站仪伴侣）CL-测量Norm :Lbl 1:Cls:{U}:U"1 ZS 2 FS"=1 =>Prog "ZS":≠>U=2 =>Prog "FS":≠>Goto 1△△D-读Lbl 1:K[B]=Z[G+B]:Dsz B:Goto 1 FS-反算Lbl 1:Cls:{KVW}:V"X"W"Y":Lbl 2:Prog "P":Pol(V-X,W-Y):J=J-A:I=Rec(I,J):K=K+I:AbsI≥E-3=>Goto 2:≠>Prog "WZ":Goto 1△HQ-缓曲N=I-I^5÷40S2+I^9÷3456S^4-I^13÷599040S^6:M=I^3÷6S-I^7÷336S^3+I^11÷42240S^5:Z=90IAbsI÷πS:J=90-(90-tan-1(M÷N))AbsI÷I:I=√(M2+N2)HY-缓圆I=O:Prog "HQ":Prog "XY":I=K-L-O HZ-缓直I=P: Prog "Y": Prog "XY":I=Q:S=RQ:Prog “HQ”:J=Z-J:Prog "XY":I=K-L-O-P-QML-目录Cls:Fix 3:C=Z[100]:D=Z[101] :Lbl 1:B=6:G=C-6D:Prog "D":K≥L =>K≤M =>C=N:D=O:E=P:F=Q: Goto 2△△Dsz D:Goto 1:Lbl 2P-平Prog"ML": Prog"PM"PM-平面Lbl 1:B=9:G=C-8D-1:Prog "D":K≤T =>Prog "PQ":Goto 2△Dsz D:Goto 1:Lbl 2 PQ-平曲Prog "ZH":K≤L =>Prog "ZX":≠>K≤L+O =>Prog "HQ":≠>Prog "HY":K≤L+O+P =>Prog "Y":≠> Prog "HZ":K≤L+O+P+Q => Prog "HQ" :≠>Prog "ZX"△△△△Prog "XY"PY-偏移Lbl 1:I=0:J=90:{IJ}:I"L"≠0 =>Z=J"<":Prog "XY":Prog "ZB":Goto 1△PZ-平纵Prog "ML":Prog "PM":Prog "ZM"SQ-竖曲Z=N+(K-M)L:K≤M-T =>Z:≠>Z=Z- (K-M+T)2÷2O△WZ-位置"KJ":K:Pause1:J▲XY-XYJ=A+J: A=A+Z:X=X+Rec(I,J):Y=Y+JY-圆J=90I÷πR: I=2RSinJ: Z=2JZ-纵Prog"ML": Prog"ZM"ZB-坐标A=360Frac((A+360)÷360):"ZB":X:Pause 1:Y:Pause 1ZH-直缓X=M:Y=N:A=S:I=K-L:S=ORZM-纵面Lbl 1:B=5:G=E-4F-1:Prog "D":T=Abs(O(P-L)÷2):K≤M+T =>Prog "SQ":Goto2△Dsz F:Goto 1:Lbl 2ZS-正算{U}:Lbl 1:{K}:U"1 B"=1=> Prog "P": Prog "PY" :Goto 1△Prog "PZ":Prog "ZB": Z▲Goto 1ZX-直线J=0:Z=0使用说明运行CL程序首先程序提示正反算1 ZS2 FS？输1正算、输2反算，其它重选。
CASIO4850计算器程序
缓和曲线段切线方位角1、A:B:C＂ZH＂:E＂L0＂:Q:R2、F=A+B（90（Q-C）2÷（πRE））▲字母说明：A—起始边方位角B—偏角，左偏为“-1”，右偏为“1”C＂ZH＂—ZH点里程E＂L0＂—缓和曲线长Q—所求点里程R—曲线半径F—切线方位角圆曲线段切线方位角1、A:B:C＂HY＂:E＂L0＂:Q:R2、F=A+B（90（E +2（Q-C））÷（πR））▲字母说明：A—起始边方位角B—偏角，左偏为“-1”，右偏为“1”C＂HY＂—HY点里程E＂L0＂—缓和曲线长Q—所求点里程R—曲线半径F—切线方位角1、D＂X0＂:F＂Y0＂: A:K2、Lbl 03、{W}: {Q}4、W=0=>Goto 1 △5、W≠0=>Goto 2 △6、Lbl 17、X = D + cos A（Q-K）▲8、Y = F + sin A（Q-K）▲9、Goto 010、Lbl 211、X = D + cos A（Q-K）+ W cos（A+90）▲12、Y = F + sin A（Q-K）+ W sin（A+90）▲13、Goto 0字母说明：D＂X0＂—起始点X坐标F＂Y0＂—起始点Y坐标A—起始边方位角K—起点里程W—边距，左边为“－”，右偏为“+”Q—所求点里程1、Defm 12、R : T : A : B: L : C : D : F3、E=C+L : M=（L－L 3÷（40R2）+ L 5÷（3456R4））÷cos （30L ÷（πR））4、B>0=>N=A+30L÷（πR）: ≠=>N= A－30L÷（πR）△5、Z[1]=D+McosN :G=F+MsinN:H=E+AbsBπR÷180－L: I=H+L6、M=2Tcos（AbsB÷2）: N=A+B÷2 : J=D+McosN: K=F+MsinN7、Lbl 38、{Q}: {W}: W : M =Q－C : M< 0=>Goto 3 △9、M=Q－I－0.005 : M>0=>Goto 3 △10、M=Q－E : M≤0=>Z=2 : Prog＂B＂△11、Q－E>0=>Goto 1 △12、Goto 213、Lbl 114、M=Q－H : M<Q=> Prog＂A＂△15、Q－H≥0=>Z=1 : Prog＂B＂△16、Lbl 217、W≠0=>Goto 5 △18、X=U + O cos P ▲19、Y=V + O sin P ▲20、W=0=> Goto 3 △21、Lbl 522、U=U+ O cos P: V= V+ O sin P: Prog＂D＂: X=U+Wcos（P+90）▲23、Y=V+Wsin（P+90）▲24、Goto 3子程序 A1、M=Q－E : O=2Rsin（90M÷（πR））: N=90÷（πR）×（L+M）2、B<0=>P=A－N △3、B>0=>P=A + N △4、U=Z[1] : V=G子程序 B1、Z = 2 =>M= Q－C △2、Z = 1 =>M= I－Q △3、X = M－M5÷（40R2L2）+ M9÷（3456R4L4）: Y= M3÷（6RL）－M7÷（336R3L3）+ M11÷（42240R5L5）4、O = √（X2+Y2）: N = 30M2÷（πRL）5、Z = 1 => Goto 1 △6、B<0=>P=A－N △7、B>0=>P=A + N △8、U=D: V=F9、Goto 210、Lbl 111、B<0=>P=A+B+N+180 △12、B>0=>P=A+B－N+180 △13、U=J : V=K : Lbl 2子程序 C1、Q－E<0=> Goto 1△2、Q－H<0=> Goto 2△3、B<0=>Z= 4 : Goto 3 △4、B>0=> Z= 6 : Goto 3 △5、Lbl 26、B<0=>Z= 1 : Goto 3 △7、B>0=> Z= 2 : Goto 3 △8、Lbl 19、B<0=>Z= 3 : Goto 3 △10、Z = 511、Lbl 3子程序 D1、N = 90L÷（πR）+180M÷（πR）: S=90M2÷（πRL）: Prog＂C＂2、Z = 1 => P = A－N △3、Z = 2 => P = A + N △4、Z = 3 => P = A－S △5、Z = 4 => P = A + S + B △6、Z = 5 => P = A + S △7、Z = 6 => P = A + B－S △备注：当曲线没有设缓和曲线时，需将“D”子程序中的“S=90M2÷（πRL）”更改为“S=0”，再进行计算。
卡西欧4850坐标计算程序说明
一．文件名:GSZFS（高斯-勒让德）Deg:I=0:I“JS.1,FS.2,SJK.3”：I=1=>GotoA⊿I=2=>GotoC⊿I=3=>GotoB⊿↙LbI A:{KZ}:QXYFLPROKZ“―0+”:Prog“A”:G=G-90:G<0=>G=G+360:G>36 0=>G=G-360⊿⊿“XYF=”:U:Pause0:V: Pause0:G→DMS▲(Q+J)=K=>Goto0: ≠> GotoA⊿↙LbI 0:Q=K:X=U:Y=V:F=G:P=R: “-----AC-----”: ▲ Prog“GS” ↙LbI B: {KZ}:K:Z“―0+”: Prog“SJK”: Prog“A”:C“C.X”:T“C.Y”:I=0:J=0:PoI(C-U.T-V: “FY=”:J=J+180→DMS I▲GotoB↙LbI C:{MN}:M“(X)”:N“(Y)”:K=0: C=0：I=0:J=0:PoI(M-X,N-Y:K=Q+Icos(F-J) ↙LbI 2:K=K-C: Prog“A”:PoI(U-M,V-N:T=G-90-J:C=IcosT:Int(1000C)=0=>Goto3:≠> Goto2⊿↙LbI 3:sinT<0=>A= -1:≠>A=1⊿“(K)=”:K+C: Pause0:“(―0+)=”:IA▲ GotoC↙二．文件名:A（内核）W=K-Q:D=OrW2(P-R)/2LPR:E=OrWP-1:A=.1184634425:B=.2393143352 :S=.046910077:H=.2307653449:Z[1]=F+SE+S2D:Z[2]=F+HE+H2D:Z[3]= F+.5E+.25D:Z[4]=F+(1-H)2D+E(1-H):Z[5]=F+(1-S)2D+E(1-S):G=F+E+D +90+(斜交) ↙U=X+ZcosG+W(AcosZ[1]+BcosZ[2]+.2844444444cosZ[3]+BcosZ[4]+Aco sZ[5]):V=Y+ZsinG+W(AsinZ[1]+BsinZ[2]+.2844444444sinZ[3]+BsinZ[4]+AsinZ[5])三.文件名:SJK（数据库）K≤下个起点桩号=>Q=起点桩号:X=起点（X）:Y=起点（Y）:F=前切线方位角:L=线型长度:P=起点（R）:R=终点（R）:O=转向:≠>K≤。
Casio 4850计算器数据库型全线高程计算程序
CASIO4850计算器公路测量计算程序程序设计:魏加训2009.3.10Casio 4850计算器数据库型全线任意位置高程计算程序一、主程序：HLbl 0: X “BM-H”：U “HS”：“SXG=”: U+X◢输入水准点高程及后视，显示视线高程Lbl 1：{ P K }: “QS”K “K××+×××”: Prog“SJK”↙（换路修改此处为对应数据库名即可）C= C÷100: D= D÷100:↙D>C=> W=1:≠>W = -1⊿K<A=> I= -C:≠> I=D⊿↙Abs (A-K):L> R Abs(D-C)÷2 =>H=Z+IL: "H(Z-SJ)=": H◢Goto2↙≠>H= Z+IL+W(R Abs(D-C)÷2- Abs (A-K))2÷2÷R: "H(Z-SJ)=": H◢Lbl 2: {ONJP}:O “JGC(h)” : N“Z”:J “HP”:N=Abs N : B=H-O+N J÷100: "H(C) =" : U+X-P :Pause 0 : “H(S)=”: B◢“⊿h=”: B-U-X+P◢输入前视后显示实测高、设计高及高差（+填，-挖）Goto 1二、竖曲线数据库格式：K<下一竖曲线起点里程=>C=本竖曲线变坡点之前坡度(%前分子有正负): D=本竖曲线变坡点之后坡度(%前分子有正负): R=本竖曲线半径: A=本竖曲线变坡点桩号: Z=本竖曲线变坡点高程: Goto 1⊿↙三、数据库样例: SJKK<下一竖曲线起点里程=> C=本竖曲线变坡点之前坡度(%前分子有正负):D=本竖曲线变坡点之后坡度(%前分子有正负):R=本竖曲线半径: A=本竖曲线变坡点桩号: Z=本竖曲线变坡点高程: Goto 1⊿↙K<下一竖曲线起点里程=> C=本竖曲线变坡点之前坡度(%前分子有正负):D=本竖曲线变坡点之后坡度(%前分子有正负):R=本竖曲线半径: A=本竖曲线变坡点桩号: Z=本竖曲线变坡点高程: Goto 1⊿↙…………………………………………………………………………………………………………………..(注：如一条路有多个竖曲线要素则按顺序排列依次添加入数据库S.Z中)K≤下一竖曲线起点里程=> C=本竖曲线变坡点之前坡度(%前分子有正负): D=本竖曲线变坡点之后坡度(%前分子有正负): R=本竖曲线半径: A=本竖曲线变坡点桩号: Z=本竖曲线变坡点高程: Goto 1⊿↙Lbl 1↙四、输入与显示说明BM-H ？输入水准点的高程HS？输入水准点上的后视读数SXG= ×××显示视线高程“QS”？输入所求点前视读数K××+×××? 输入所求的桩号H(Z-SJ)= ×××显示所求桩号的路面中桩设计高程JGC(h) ? 输入结构层厚度或从设计路面高程点处垂直向下的厚度Z ？输入所求点距中线的边距(注:不分正负号均可，有中央分隔带的输入时需自行扣除中央分隔带半宽)HP？输入所求桩号处的横坡(%前分子有正负).H(C) = 显示计算得出的所求点的实测高程H(S) = 显示计算得出的所求点的设计高程⊿h= 显示设所求点的计与实测的高差（+填，-挖）注：（①当Z和JGC(h)为0时，则H=×××为路面中桩设计高程等于前面显示的H(S) ；②当Z为0，JGC(h)不为0时，则H=×××为路面垂直向下至某层的中桩设计高程；③当Z、JGC(h)、HP三者同时不为0时，则H=×××为路面垂直向下至某层的边桩对应Z位置的设计高程；④当Z不为0、JGC(h)为0、HP不为0时，则H=×××为路面边桩对应Z位置的设计高程；）附：数据库中用到的竖曲线基本计算公式：竖曲线起点桩号=本竖曲线变坡点桩号+本竖曲线之切线长T竖曲线切线长T=RAbs（i2-i1）÷2。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
程序名：POI用途：用于抑制两个坐标求坐标方位角及距离。
V“X0”:W“Y0”:X:YE=X-VF=Y-WE=0Goto5: Goto6Lbl5F>0A=90GotoDA=270GotoDLbl6B=tan-1(F÷E)E<0Goto1: Goto2Lbl1O“A”=B+180GotoDLbl2F<0Goto3: Goto4Lbl3O”A”=B+360GotoDLbl4O”A”=BLblDP”D”=(E2+F2)I”REC”=0Prog”REC”程序名：ZX用途：用于公路直线中线及边线的坐标计算。
B〝Q0〞：C〝X0〞：E〝Y0〞：A：Q：G：D X=C+(Q-B) CosA+GD Cos(A+90)Y=E+(Q-B) SinA+GD Sin（A+90)B〝Q0〞:直线起点桩号C〝X0〞：对应B〝Q0〞的纵坐标XE〝Y0〞：对应B〝Q0〞的横坐标YA：直线的坐标方位角（单位制为DEG）Q：欲求点桩号G：左右侧判断，左侧为-1，右侧为1D：欲求点至中桩的距离。
程序名：YQX用途：用于公路圆曲线中线及边线的坐标计算。
B〝Q0〞：C〝X0〞：E〝Y0〞：R：A：Q：G：DF=90（Q-B）÷лRL=2RSinFX=C+LCos(A+ZF)+GD Cos(A+90+2ZF)Y=E+LSin(A+ZF)+GD Sin(A+90+2ZF)B〝Q0〞:圆曲线起点桩号C〝X0〞：对应B〝Q0〞的纵坐标XE〝Y0〞：对应B〝Q0〞的横坐标YR：圆曲线半径A：圆曲线的起点切线坐标方位角（单位制为DEG）Q：欲求点桩号G：左右侧判断，左侧为-1，右侧为1D：欲求点至中桩的距离Z：左折右折判断，左折为-1，右折为1。
程序名：HQ用途：用于公路缓和曲线中线及边线的坐标计算。
B〝Q0〞：C〝X0〞：E〝Y0〞：H〝A1〞：M〝LH〞：R：A：Q：G：DO=Abs（Q-B）F=O2÷2H2×180÷лV= O3÷6RM- O7÷336R3M3+O11÷44240R5M5U=O-O5÷40R2M2+O9÷3456R4M4K=Tan-1(V÷U)L=(U2+V2)X=C+L Cos(A+ZK)+GD Cos(A+90W+ZF)Y=E+L Sin(A+ZK)+GD Sin(A+90W+ZF)B〝Q0〞:缓和曲线起点桩号C〝X0〞：对应B〝Q0〞的纵坐标XE〝Y0〞：对应B〝Q0〞的横坐标YH〝A1〞：缓和曲线参数M〝LH〞缓和曲线长度R：缓和曲线间插入的圆曲线半径A：缓和曲线的起始坐标方位角（单位制为DEG），第一缓和曲线时为起始坐标方位角，第二缓和曲线时为起始坐标方位角±180°Q：欲求点桩号G：左右侧判断，第一缓和曲线时左侧为-1，右侧为1，第二缓和曲线时左侧为1，右侧为-1D：欲求点至中桩的距离。
Z：左折右折判断，第一缓和曲线时左折为-1，右折为1，第二缓和曲线时左折为1，右折为-1W：左右侧转换，第一缓和曲线时为1，第二缓和曲线时为-1。
程序名：REC用途：用于已知起始坐标，方位角和距离求终点坐标。
V”X0”:W”Y0”:O”A”:R”D”M”X”=V+RcosON”Y”=W+RsinOJ“POI”=0Prpg”POI”V”X0”:起始点的纵坐标X值。
W”Y0”: 起始点的横坐标Y值。
O”A”: 两点间的坐标方位角。
R”D”：两点间的水平距离。
程序名：GS1用途：广顺一期工程坐标计算程序LblS{Q}{G}{D}Q≤743.02Goto1: Goto2Lbl1B=0:C=316310:E=509409.914:A=357°57′28.92″Prog”ZX”GotoSLbl2B=743.02:C=317052.551:E=509383.439:A=357°57′28.92″:R=400:Z=1Prog”YQX”GotoSQ:欲求坐标点的桩号。
G:欲求点位于道路永中的左侧为-1，右侧为1。
D:欲求点距道路永中的距离。
用途：广顺二期工程坐标计算程序LblS{Q}{G}{D}Q≤114.82Goto1: Goto2Lbl1B=0:C=317399.401:E=509560.978:A=56°15′12.69″R=400:Z=1Prog”YQX”GotoSLbl2Q≤512.23Goto3: Goto4Lbl3B=114.82:C=317448.704:E=509664.237:A=72°42′1″Prog”ZX”GotoSLbl4Q≤731.39Goto5: Goto6Lbl5B=512.23:C=317566.882:E=510043.67:A=72°42′1″R=500:Z=1Prog”YQX”GotoSLbl6Q≤998.55Goto7: Goto8Lbl7B=731.39:C=317584.859:E=510260.334:A=97°48′50″Prog”ZX”GotoSLbl8Q≤1146.83Goto9: GotoWLbl9B=998.55:C=317548.536:E=510525.016:A=97°48′50″R=300:Z=1Prog”YQX”GotoSLblWB=1146.83:C=317493.616:E=510661.128:A=126°8′Prog”ZX”GotoSQ:欲求坐标点的桩号。
G:欲求点位于道路永中的左侧为-1，右侧为1。
D:欲求点距道路永中的距离。
{G}{D}Q≤11.51Goto1: Goto2Lbl1B=0:C=317458.015:E=509634.149:71°4′17″R=405:Z=1Prog”YQX”GotoSLbl2Q≤386.61Goto3: Goto4Lbl3B=11.51：C=317461.594:E=509645.093:A=72°42′1″Prog”ZX”GotoSLbl4Q≤455.97Goto5: Goto6Lbl5B=386.61：C=317573.138:E=510003.224:A=72°42′1″R=513:Z=1Prog”YQX”GotoSLbl6Q≤493.07Goto7: Goto8Lbl7B=455.97:C=317589.23:E=510070.633:A=80°26′48″Prog”ZX”GotoSLbl8Q≤616.36Goto9: GotoSLbl9B=493.07:C=317593.386:E=510107.214:A=80°26′48″R=513:Z=1Prog”YQX”GotoSQ:欲求坐标点的桩号。
G:欲求点位于道路永中的左侧为-1，右侧为1。
D:欲求点距道路永中的距离。
{G}{D}Q≤59.52Goto1: Goto2Lbl1B=0:C=317421.129:E=509648.201:A=65°50′21″R=497:Z=1Prog”YQX”GotoSLbl2Q≤474.87Goto3: Goto4Lbl3B=59.52：C=317442.183:E=509703.83:A=72°42′1″Prog”ZX”GotoSLbl4Q≤511.01Goto5: Goto6Lbl5B=474.87：C=317565.697:E=510100.395：A=72°42′1″R=195:Z=1Prog”YQX”GotoSLbl6Q≤603.64Goto7: GotoSLbl7B=511.01:C=317573.194:E=510135.695:A=83°19′07″R=487:Z=1Prog”YQX”GotoSQ:欲求坐标点的桩号。
G:欲求点位于道路永中的左侧为-1，右侧为1。
D:欲求点距道路永中的距离。
程序名：LB用途：广顺二期0+000-0+090左侧边线接顺段坐标计算程序LblS{Q}{G}{D}Q≤96.515Goto1: GotoSLbl1Q=Q×1.07238:B=0:C=317424.348:E=509544.314: R=411:A=59°9′27″：Z=1Prog”YQX”GotoSQ:欲求坐标点的桩号。
G:欲求点位于左侧边线的左侧为-1，右侧为1。
用途：广顺二期0+000-0+090左侧接顺段坐标计算程序LblS{Q}{G}{D}Q≤93.353Goto1: GotoSLbl1Q=Q×1.0372556:B=0:C=317413.539:E=509551.536: R=400:A=58°3′12.6″Z=1Prog”YQX”GotoSQ:欲求坐标点的桩号。
G:欲求点位于左侧接顺线的左侧为-1，右侧为1。
D:欲求点距左侧接顺线的距离。
程序名：RS用途：广顺二期0+050-0+090右侧接顺段坐标计算程序LblS{Q}{G}{D}Q≥50Goto1: GotoSLbl1Q≤90Goto2: GotoSLbl2Q=（Q-50）×0.95201:B=0:C=317409.309:E=509611.788: R=500:A=62°19′51.6″Z=1Prog”YQX”GotoSQ:欲求坐标点的桩号。
G:欲求点位于右侧接顺线的左侧为-1，右侧为1。
D:欲求点距右侧接顺线的距离。
程序名：RB用途：广顺二期0+050-0+090右侧边线坐标计算程序LblS{Q}{G}{D}Q≥50Goto1: GotoSLbl1Q≤90Goto2: GotoSLbl2Q=（Q-50）×0.93935:B=0:C=317397.682:E=509617.606: R=489:A=60°34′51″Z=1Prog”YQX”GotoSQ:欲求坐标点的桩号。
用途：广顺二期F2线0+000-0+059.52右侧边线坐标计算程序LblS{Q}{G}{D}Q≤59.52Goto1: GotoSLbl1Q=Q×0.9871:B=0:C=317414.864:E=509651.012: R=489:A=64°59′：Z=1Prog”YQX”GotoSQ:欲求坐标点的桩号。
G:欲求点位于右侧边线的左侧为-1，右侧为1。
D:欲求点距右侧边线的距离。