卡西欧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。
4850全线连线计算程序
CASIO4850全线坐标正反算程序主程序：ZHANG LIANGLbI Ø ：Deg:T"WJM":C=2Ø+4Ø(T-1):T=Ø:N"1.SR,2.JS":N=2=> Goto A⊿M"JZ-XX":O"QD-ZH":U"X-Ø ":V"Y-Ø ":G"FWJ ":Lbl B:{HRQP}: P"QD-R"：H"XX-CD":R"ZD-R":Q").-1,(.+1,--.Ø":W=H:Z =Ø:Prog"S1":Prog"S4":U=X:V=Y:O=O+H:G=F-9Ø:P=R:"…SR…NEXT…!”:Isz T: Dsz M:Goto B⊿Lbl A：Fixm:{XYSZN}:T=Ø:N"1.JS-XY,2.XY-FS": N=2=>Goto 2⊿S"JS-ZH=":Z"D=":Lbl 1:S＞Z［8T+1+C］=>Isz T:Goto 1⊿Prog "S3":W=S-O: Prog "S1": "JS-X=":X：Pause Ø:"JS-Y=":Y◢Goto AΔLbl 2: X"X…":Y"Y…":I=X:J=Y:Lbl 3: Prog "S3":W=Abs((Y-V)cos(G-9Ø)-(X-U)sin(G-9Ø:W＞H=> Isz T:Goto 3⊿Prog "S2":"FS-ZH…":S=O+W:Pause Ø:"D…":Z ◢Goto A⊿子程序S1A=.1184634425:B=.2393143352:N=.2844444444:K=. Ø4691ØØ77:L=.23Ø7653449:D=Q r W2(P-R)÷2HPR:E=Q r WP-1:Z[1]=G+KE+K2D:Z[2]=G+LE+L2D:Z[3]=G+.5E+.25D:Z[4]=G +(1-L)2D+E(1-L:Z[5]=G +(1-K)2D+E(1-K:F=G+E+D+9Ø：X=U+ZcosF+W(AcosZ[1]+BcosZ[2]+NcosZ[3]+BcosZ[4]+AcosZ[5:Y=V+ZsinF+W(AsinZ[1]+BsinZ[2]+NsinZ[3]+Bsin Z[4]+Asin Z[5：子程序S2W=Abs((Y-V)cos(G-9Ø)-(X-U)sin(G-9Ø:Z=Ø:Lbl 4:Prog "S1":L=G-9Ø+E+D:Z=(J-Y)cosL-(I-X)sinL:AbsZ<.ØØ1=>Goto5:≠>W=W+Z:Goto 4⊿Lbl 5:Z=Ø:Prog "S1":Z=(J-Y)÷sinF:子程序S3H=Z［8T+C+6:O=Z［8T+C+1］-H:U=Z［8T+C+2:V=Z［8T+C+3:G=Z［8T+C+4:P=Z［8T+C+5:R=Z［8T+C+7: Q=Z［8T+C+8:子程序S4Z［8T+C+1］=O+H: Z［8T+C+2］=U: Z［8T+C+3］=V:Z［8T+C+4］=G: Z［8T+C+5］=P:Z［8T+C+6］=H:Z［8T+C+7］=R: Z［8T+C+8］=Q: 结束程序编制说明：1.本程序是为CASIO-fx4850p编制的。
CASIO4850全线坐标正反算程序
CASIO4850全线坐标正反算程序主程序：ZHANG LINGLbI 0：Deg：T“WJM”：C=20+40（T-1）：T=0：N“1.SR，2.JS”：N=2=>Goto A△M“JZ-XX”：O“QD-ZH”：U“X0”：V“Y0”：G“FWJ”：LbI B：{HRQP}：P“QD-R”：H“XX-CD”：R“ZD-R”：Q“）-1，——0，（+1”：W=H：Z=0：Prog“S1”：Prog“S4”：U=X：V=Y：O=O+H：G=F-90：P=R：“…SR…NEXT…”：Isz T：Dsz M：Goto B△LbI A：Fixm：{XYSZN}：T=0：N“1.JS-XY，2.XY-FS”：N=2=>Goto 2△S“JS-ZH=”：Z“D=”：LbI 1：S>Z[8T+C+1]= >Isz T：Goto 1△Prog“S3”：W=S-O：Prog“S1”：“JS-X=”：X：Pause 0：“JS-Y=”：Y▲Goto A：LbI 2：X“X…”：Y“Y…”：I=X：J=Y：LbI 3：Prog“S3”：W=Abs（（Y-V）Cos（G-90）-（X-U）Sin（G-90：W>H=>Isz T：Goto 3△Prog“S2”：“FS-ZH…”：S=O+W：Pause 0：“D…”：Z▲Goto A子程序S1A=0.1184634425：B=0.2393143352：Z[6]=0.2844444444：K=0.046910077：L=0.2307653449：D=Q r W2（P-R）÷2HPR：E=Q r WP-1：Z[1]=G+KE+K2D：Z[2]=G+LE+L2D：Z[3]=G+0.5E+0.25D：Z[4]=G+(1-L)2D+E(1-L：Z[5]=G+(1-K)2D+E(1-K：F=G+E+D+90：X=U+ZCosF+W(ACosZ[1]+BCosZ[2]+Z[6]CosZ[3]+BCosZ[4]+ACosZ[5]：Y=V+ZSinF+W(ASinZ[1]+BSinZ[2]+Z[6]SinZ[3]+BSinZ[4]+ASinZ[5]子程序S2W=Abs（（Y-V）Cos（G-90）-（X-U）Sin（G-90：Z=0：LbI 4：Prog“S1”：L=G+E+D-90：Z=(J-Y) CosL-(I-X) SinL：AbsZ<E-6=>Goto 5：≠>W=W+Z：Goto4△LbI 5：Z=0：Prog“S1”：Z=（J-Y）÷SinF子程序S3H=Z[8T+C+6]：O=Z[8T+C+1]-H：U=Z[8T+C+2]：V= Z[8T+C+3]：G=[8T+C+4]：P=Z[8T+C+5]：R=Z[8T+C+7]：Q=Z[8T+C+8]子程序S4Z[8T+C+1]=O+H：Z[8T+C+2]=U：Z[8T+C+3]=V：[8T+C+4]=G：Z[8T+C+5]= P：Z[8T+C+6]=H：Z[8T+C+7]=R：Z[8T+C+8]=Q程序编制说明：1．本程序是为CASIO-fx4850p编制的。
CASIO4850程序
CASIO4850程序（一）坐标反算：（ZBFS）（1）A“XA”:B“YA”:C“XB”:D“YB”S=POL（（C-A）,（D-B））▲E=Frac（J÷360+1）×360“FWJ=”:E▲注：（1）计算XA？→第一点X坐标，YA? →第一点Y坐标，XB? →第二点X坐标，YB? →第一点Y坐标（2）结果r→两点间距离，J→象限角，FWJ→坐标方位角（二）直线坐标：（ZXZB）（1）Lbl 0：｛K,D｝:S=K-〖起点里程如:1188000〗：A=〖坐标方位角（十进制）如：163.3395411〗：X=〖起点X坐标〗+S×cos A:Y〖起点Y坐标〗+S×sin A:D“BZ”:D=1＝＞｛L,G｝:L“ZL”:A[1]=A-90:N=X+L×cosA[1]:E=Y+L×sinA[1]:G=“YL”:A[2]=A+90:X[2]=X+G×cosA[2]:Y[2]=Y+G×sinA[2]:“ZC”:“N=”N=N▲“E=”:E=E▲“YC”:“X[2]=”:X[2]=X[2] ▲“Y[2]=”:Y[2]=Y[2] ▲Goto 0:≠＝＞“X=”:X=X▲“Y=”:Y=Y▲Goto 0注：（1）计算K? →里程BZ? →任意数中桩坐标，1边桩坐标：ZL? →左边桩，RL?→右边桩（2）结果N=左X坐标，E＝左Y坐标，X[2]=右X坐标，Y[2]=右Y坐标注明：程序修改方位角163°20′22.35″=（十进制）163.3395411（三）曲线坐标｛缓和曲线，圆曲线｝（1）主程序（STAKEOUT）Prog “DA.SKIP”Lbl 1:｛H,Y｝H“（CE SHE）K”Y“（CE SHE）E”S=H-Q:Z=FYProg “P”Pol（V-K,W-N）T＜0＝＞T=T-360⊿U=T:K=IU“（CE SHE）X”=A+KcosT“（CE SHE）X=”:U=U▲K“（CE SHE）Y”=Ksin T+B“（CE SHE）Y=”:K=K▲Goto 1（2）子程序（3） 1.（DA.SKIP）DegC“DATA IN”C=0＝＞Fixm:≠＝＞Prog“DA.IN”△2.（DA.IN）R“（BAN JING）R”L“（HUAN HE）L”F“（QU XIAN）FX”Q“（ZH）K”X“（HZ）K”S=（X-Q）÷2:Z=0Prog “XY.BAS”Z[1]=V:Z[2]=W:Z[3]=KD“（CE ZHAN）K”O“（CE ZHAN）E”S=D-Q:Z=FOProg “P”M=V:N=WE“（HOU SHI）K”G“（HOU SHI）FW”S=E-Q:Z=OProg“P”Pol（V-M,W-N）Fixm:P=J3.（P）S≤X-Q-L＝＞Prog “XY.BAS”:≠＝＞S=X-Q-S:Prog“XY.BAS”:Pol（V-Z[1],W-Z[2]）:Fixm:V=Z[1]-Icos （2FZ[3]-J）:W=Z[2]-ISin （2FZ[3]-J）:｛E,U,G｝:K=2Z[3]-K△4.（XY.BAS）A=A:B=B:S≤0＝＞K=0:V=S:W=FZ:≠＝＞S≤L＝＞K=90S^2÷πRL：V=S-S^5÷40R^2 L^2-Zsin K:W=FS^3÷6RL-FS^7÷336R^3L^3＋FZcosK△△S＞L＝＞K=90（2S-L）÷ΠR:V=L-L^3÷40R^2-Rsin（90L÷πR）+（R-Z）sinK:W=FL^2÷6R-FL^4÷336R^3+FRcos（90L÷πR）+F（Z-R）cosK△注：计算：①DATA IN? →模式输0以外的任意数修改曲线要素要素，输入0继续上次的计算。
卡西欧4850 曲线测量自动程序
卡西欧4850 曲线测量自动程序(魏甲儒)CIRLAY (主运算程序)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+L Cos(P+R) :Y=Y+L Sin(P+R) ⊿L＜0→L= Abs L : ｛R｝ :R＂OUT ANGLE1＂ :O=P+R :X=X+L Cos O :Y=Y+L Sin O : ｛LR｝ :L＂OUT L2＂ : R＂OUT ANGLE2＂ :L= Abs L :O=O+R+180 :X=X+L Cos O :Y=Y+L Sin O⊿Pol(X-U,Y-V)I＂L=＂◢J＜O→J=J+360 : ⊿J＂A=＂◢O=-1:｛O｝:O＂VIEW XY＂:O≠-1→X◢Y◢P◢⊿Goto 1CAL 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: ⊿Pol(C-A,D-B)I＂L=＂◢J＜O→J=J+360⊿J＂A=＂◢Goto 1CAL XY (子程序导线测量)O=2Lb1 1:｛O｝: O＂1:X0,Y0-A0 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＂: O=-1→C＂XC＂: D＂YC＂: ≠→Prog＂CON DAT＂:U=4.444→: : ⊿C=U:D=V: Pol(C-A,D-B):E=J:⊿F=E:X=A:Y=BLb1 2 :｛ML｝:M＂LEFT ANGLE＂:L＂DISTANCE＂:F=F+M: Rec (L,F):X=X+I◢Y=Y+J◢F=F-180: Goto 2CENTER (子程序)S=ABл÷180+C:O=C2÷24B:T=(B+O)Tan(A÷2)+C÷2-C3÷240B2:N=-1:＞S-C→M=S-M:N=1: ⊿M≤0→X=M:Y=0:P=0: Goto 1: ⊿M≤C→X=M- M5÷40B2 C2:Y= M3÷6BC-M7÷(336×B3×C3):P=90 M2÷ЛBC: Goto 1: ⊿M≤S-C→P=180(M-C) ÷ЛB+90C÷ЛB:X=B Sin P+C÷2- C3÷(240B2):Y=B(1- Cos P)+O: ⊿Lb1 1:N=1 →P=A-P:I=X:J=Y:X=T+(T-I) Cos A-J Sin A:Y=(T-I) Sin A+J Cos A: ⊿I=X:J=HY:X=E+T Cos (180+G)+I Cos G-J Sin G:Y=F+I Sin (180+G)+I Sin G+J Cos G:P=G+HPCIR DAT(子程序曲线要素库)Lb1 1:W=1→ Goto 2: ⊿W=交点编号→A=转向角:B=半径:C=缓和曲线长:D=直缓点里程:E=交点X坐标:F=交点Y坐标:G=切线方位角:H=左或右偏(1,-1): ⊿(一直将曲线要素数据输入完)Lb1 2CON DAT (子程序导线控制点库)Q=编号(自定)→U=导线控制点X坐标:V=导线控制点Y坐标⊿(一直将导线控制点数据输入完)主程序运用(CIRLAY)LOAD?输入曲线要素程序库中的交点编号OPP NAME?输入控制点编号DK+M?输入待测点里程(应在输入曲线要素程序库中的交点编号里程之内)OUT L?输入外移值平距OUT ANGLE?输入外移值与线路中心夹角,左为270 右为90VIEW XY?输入1查看待测点的坐标和切线方位角。
casio4850全线坐标计算程序
该程序是本人自己编的适用于casio4850全线坐标计算，发布上来给大家参考，请大家试用指教，如有问题请修改，首先是方位角显示不出来，请高手修改。
一、LXZB（坐标计算主程序）LbI Z：｛P｝A=×××：V=××°××′××″：C=×××：D=×××：P≤直线的终点桩号＝＞Prog“ZX.SUB”：Goto Z（以上各字母含义详直线坐标计算子程序说明）A=×××：V=××°××′××″：C=×××：D=×××：R=×××：I=（1或-1）P≤圆曲线终点桩号＝＞Prog“YQX.SUB”：Goto Z（以上各字母含义详圆曲线坐标计算子程序说明）A=×××：V=××°××′××″：C=×××：D=×××：B=×××：W=××°××′××″：E=×××：F=×××：R=×××：L=×××：I=（1或-1）P≤HY点桩号＝＞Prog“HQ1.SUB”：Goto ZP≤YH点桩号＝＞Prog“HYQ.SUB”：Goto ZP≤HZ点桩号＝＞Prog“HQ2.SUB”：Goto Z（以上各字母含义详（HQ1.SUB、HYQ.SUB、HQ2.SUB）坐标计算子程序说明）该主程序是简单的示例说明，具体的应根据图纸的线型组合，随机应变的做顺序调整，并将其输入Casio4850计算器。
卡西欧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），即可计算下一个曲线中线及边线点位坐标。
卡西欧4850选线程序
选线程序S”LS”:{A}:A”IA”:C=0:F=0:U=0:N=0:Lbl 0:{D}:D”AB”:D≠0=>U=U+1:N=N+D:{B}”IIB”:D=C+D:H=D÷sin(A+B):F=F+Hsin B:C=Hsin A:A=A+B:Goto 0⊿I=A÷2:R≠0=>Prog”R”: ≠>T≠0=>Prog ”T”: ≠>J ”T1”≠0=>T=J+F:Prog ”T”⊿L≠0=>R=180(L-S) ÷Л÷A◢Prog ”R”: ≠>E≠0=>W=1-cos I:R=Ecos I÷W÷2+√((Ecos I÷W)2-S2÷6÷W)÷2◢Prog ”R”: ≠>{J}:J=0=>Goto 3: ≠> Goto 4⊿Lbl 3:U=1=>Q=N÷(tan(A÷2-B÷2)+tan(B÷2)): ≠>Q=N÷U÷2÷tan(A÷2÷(U+1)):⊿P=S2÷24÷Q:R=Q-P◢Prog ”R”:Lbl 4:Q=N÷(tan(A÷2-B÷2)+tan(B÷2)):P=S2÷24÷Q:R=Q-P:E=(R+P÷cos I-R:E=E+J:W=1-cosI:R=Ecos I÷W÷2+√((Ecos I÷W)2-S2÷6÷W)÷2◢Prog ”R”⊿RLbl 0:P=S2÷24R-S4÷2384÷240÷R3◢Q=S÷2-S3÷240÷R2◢X=S-S3÷40÷R2◢Y=S2÷6÷R◢L=ЛRA÷180+S◢E=(R+P)÷cos I-R◢U≠0=>J”T1”=T-F◢V”T2’=T-C◢⊿B=R:{R}:R≠0=>Goto 0⊿R=B:Z”ZH”=W”JD”-T+F ◢K”HY”=Z+S◢M”QZ’=Z+L÷2◢G”YH”=Z+L-S◢O=”HZ”=Z+L◢TR=(T-S÷2)÷2÷tan I+√((T-S÷2)2-S2(tan I)2÷6)÷2÷tan I◢Prog ”R’程序使用说明ＬＳ？―――――输入缓和曲线长ＩＡ？―――――输入偏角（度分秒）ＡＢ？―――――输入交点间距（用于虚交点）如为单交则输入０ＩＢ？―――――输入偏角（度分秒）（用于虚交点）Ｒ？――――――输入半径Ｐ＝――――――圆曲线内移值Ｑ＝――――――切线增长值Ｘ＝――――――圆缓点Ｘ坐标Ｙ＝――――――圆缓点Ｙ坐标Ｔ＝――――――切线长Ｌ＝――――――曲线长Ｅ＝――――――外距Ｔ１＝―――――起始边切线长Ｔ２＝―――――终止边切线长Ｒ？＝―――――如为不满意值，请继续输入调整后的半径值，直至满意为止，然后再输０，程序自动进入曲线桩号计算．ＪＤ？―――――输入交点里程桩号ＺＨ＝―――――直缓点里程桩号ＨＹ＝―――――缓圆点里程桩号ＱＺ＝―――――曲中点里程桩号ＹＨ＝―――――圆缓点里程桩号ＨＺ＝―――――缓直点里程桩号。
- 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:欲求点距右侧边线的距离。