卡西欧4850计算器程序
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计算器正反算程序一、程序功能及原理1.功能说明：本程序由一个主程序(TYQXjs)和两个子程——正算子程序(SUB1)、反算子程序(SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。
另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲线任意里程中边桩坐标进行正反算。
本程序也可以在CASIO fx-4500P计算器及CASIO fx-4850P计算器上运行。
2．计算原理：利用Gauss-Legendre 5点通用公式计算线路中边桩坐标并计算放样数据。
二、源程序1.主程序(TYQXjs)Defm 2:"1.SZ => XY"："2.XY => SZ"：N：Prog”DAT1”: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：{SZT}：SZ:T”ANG”：W=Abs(S-O)：Prog "SUB1"："XS=":X=X◢"YS=":Y=Y◢Goto 3←┘Lbl 2：{XY}：XY：I=X：J=Y：Prog "SUB2"："S=":S=O+W ◢"Z=":Z=Z◢Goto 2Lbl3:J=0:I=Pol(X-Z[1],Y-Z[2]):F=J:F<0=>F=F+360:≠>F>360=>F =F-36ΔΔ”DIST=”: I◢”FW=”:F→DMS◢Goto 12. 正算子程序(SUB1)A=0.1184634425:B=0.2393143352:N=0.2844444444:K=0.0469 100770:L=0.2307653449:M=0.5:F=1-L:M=1-K:X=U+W(Acos( G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Ncos(G+QE MW(C+MWD))+Bcos(G+QE(1-L)W(C+(1-L)WD))+Acos(G+ QE(1-K)W(C+(1-K)WD))):Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD) )+Nsin(G+QEMW(C+MWD))+Bsin(G+QE(1-L)W(C+(1-L)WD))+Asin(G+QE(1-K)W(C+(1-K)WD)))：F=G+QEW(C+WD)+T：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)÷sinF4.曲线元要素数据库：DAT1J=1=>U=xxxx.xxx:V=xxxx.xxx:O=xxxx.xxx:G=xxxx.xxx:H=x xxx.xxx:P=xxxx.xxx:R=xxxx.xxx:Q=xxΔJ=2=>U=xxxx.xxx:V =xxxx.xxx:O=xxxx.xxx:G=xxxx.xxx:H=xxxx.xxx:P=xxxx.xxx: R=xxxx.xxx:Q=xxΔ……….J=n=>U………. Δ(注：如有多个曲线元要素继续添加入数据库DAT1中)三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
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。
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编制的。
卡西欧4800和4850放样坐标计算程序
已知任意点的里程、半宽，计算该点平面坐标的程序前言1、本计算程序适用范围仅限于某ZH点至下一相邻ZH点间的线路范围。
2、使用本程序前需进行导线点坐标计算并求出各个曲线的曲线要素如第一切线方位角、转向角、曲线半径、缓和曲线长度、切线长度、曲线长度等。
3、使用过程中要注意长短链对里程传递的影响关系，否则将导致计算结果错误。
4、往计算器中输入程序符号时将⊿改为。
5、本程序仅供参考,实际使用时请先进行验证。
6、本程序适用的计算器型号为卡西欧4800/4850。
“wangDongping” (程序名称)Defm 13↙XYVWRLZTC：Fixm↙Z[4]=0.5×L－L3÷(240×R2)↙Z[2]=Z[4]+(R+L2÷24÷R)Abs tan(T÷2)：G=Z＋Ans：Fix3：G＂JDDK=＂◢Z[9]=R Abs Tπ÷180＋L：Z[9]＂QXL=＂◢Z[13]=Z＋Ans：Z[13]＂HZDK=＂◢D=C＋T：D＜0⇒D=D＋3600⊿D＞3600⇒D=D－3600⊿D◢Z[11]＂HZX＂=V＋Z[2]×(CosC＋CosD)◢Z[12]＂HZY＂=W＋Z[2]×(SinC＋SinD)◢Norm：Prog＂WEIXONG2＂(程序“WaangDongping”运行到此时，自动转到程序“WangDangping2”进行下一步运行)“WangDongping2”（程序名称）Lb1 0：{K,S,Q,E,F,N,U,H}：P=Q＋Abs(E－F)×N：K≤Z⇒Goto1⊿Z＜K⇒K≤Z＋L⇒Goto2⊿Z＋L＜K⇒K≤Z＋Z[9]÷2⇒Goto3⊿Z＋Z[9]÷2＜K⇒K＜Z[13]－L⇒Goto4⊿Z[13]－L≤K⇒K＜Z[13]⇒Goto5⊿ K≥Z[13]⇒Goto6⊿Goto0↙Lb1 1：Z[1]=V＋(Z－K)×cos(C＋1800)＋Pcos(C＋S)＋Ucos(C＋H)：Z[3]=W＋(Z －K)×sin(C＋1800)＋Psin(C＋S)+Usin(C+H)：Goto7⊿Goto0↙Lb1 2：Z[5]=K－Z－(K－Z)5÷(40R2L2)：Z[6]=（K－Z）3÷（6RL）：A=T÷AbsT：Z[7]=(K－Z)2×180÷(6πRL)：Z[1]=V＋√((Z[5])2＋(Z[6])2)×cos(C＋A×Z[7])＋Pcos(C＋3×A×Z[7]＋S)＋Ucos(C＋3×A×Z[7]＋H)：Z[3]=W＋√((Z[5])2＋(Z[6])2)×sin(C＋A×Z[7])＋Psin(C＋3×A×Z[7]＋S)＋Usin(C＋3×A×Z[7]＋H)：Goto7⊿Goto0↙Lb1 3：B=L×180÷(2πR)：Z[8]=B＋(K－Z－L)×180÷(πR)：Z[5]=Z[4]+R×sinZ[8]：Z[6]=R+L2÷(24R)－RcosZ[8]：Z[7]=tan-1(Z[6]÷Z[5])：Z[10]=(2×(K－Z)－L)×180÷(2πR)：A=T÷AbsT：Z[1]=V+ √((Z[5])2+(Z[6])2)×cos(C+A×Z[7])+Pcos(C+A×Z[10]+S)＋Ucos(C＋A×Z[10]＋H)：Z[3]=W+√((Z[5])2＋(Z[6])2)×sin(C+A×Z[7])+Psin(C+A×Z[10]+S)＋Usin(D＋A×Z[10]＋H)：Goto7⊿Goto0↙Lbl 4：B=L×180÷(2πR)：Z[8]=B+(Z[13]－K－L)×180(πR)：Z[5]=Z[4]+R×sinZ[8]：Z[6]=R+L2÷(24R)－RcosZ[8]：Z[7]=tan-1(Z[6]÷Z[5])：Z[10]=(2×(Z[13]－K)－L)×180÷(2πR)：A=－T÷AbsT：Z[1]=Z[11]+ √((Z[5])2+(Z[6])2)×cos(D+180+A×Z[7])+Pcos(D+A×Z[10]+S)＋Ucos(D＋A×Z[10]＋H)：Z[3]=Z[12]+√((Z[5])2+(Z[6])2)×sin(D+180+A×Z[7])+Psin(D+A ×Z[10]+S)＋Usin(D＋A×Z[10]＋H)：Goto7⊿Goto0↙Lbl 5：Z[5]=Z[13]－K－(Z[13]－K) 5÷(40R2L2)：Z[6]=(Z[13]－K) 3÷(6RL)：A=－T÷AbsT：Z[7]=(Z[13]－K)2×180÷(6πRL)：Z[1]=Z[11]+ √((Z[5])2+(Z[6])2)×cos(D+180+A×Z[7])+Pcos(D+3×A×Z[7]+S)+Ucos（D+3×A ×Z[7]+H）：Z[3]=Z[12]+√((Z[5])2+(Z[6])2)×sin(D+180+A×Z[7])+Psin(D+3×A×Z[7]+S)＋Usin(D+3×A×Z[7]+H)：Goto7⊿Goto0↙Lb1 6：Z[1]=Z[11]+(K－Z[13])×CosD+Pcos(D+S)＋Ucos(D+H)：Z[3]=Z[12]+(K －Z[13])×sinD+Psin(D+S)＋Usin(D+H)：Goto7⊿Goto0↙Lb1 7：M=Z[1]－X：O=Z[3]－Y：Pol(M,O)：J＜0 J=J+3600⊿Fix3：J◢I◢P◢E－F◢M+X◢O+Y◢Norm：Goto0↙坐标程序符号说明1、X，Y：测站坐标2、V，W：ZH点X,Y坐标3、R：曲线半径4、L：缓和曲线长度5、Z：ZH点里程6、T：曲线转向角（左负右正）7、C：第一切线方位角8、K：放样点里程9、Q：放样半宽（平行于S角非切线边在里程点左右侧的宽度，若已知实际半宽P，则Q=P；若放路基边桩则输入变坡点处的半宽P）10、S：放样点与其对应的中线点连线和该中线点切线的夹角（左负右正，即放样点在线路左侧S为负，同理在右侧为正）11、F：放样点地面标高12、N：路基边坡坡度13、E：变坡点设计标高14、P=Q+Abs（E－F）×N（Abs为绝对值），若P为已知，则Q的值直接输入P的值即可，E、F、N均为零。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
卡西欧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 B1
A=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坐标反算子程序 SUB2
T=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规定：
⑴本程序可执行直线、圆曲线、缓和曲线（完整或非
完整型）、复曲线、卵形曲线的任意里程中边桩坐
标的正反算。
另外也可以将本程序中核心计算部分
的两个子程序移植到其它相关程序中，在引用该核
心计算部分时，请注名来源。
⑵当线元为直线时，其起点、止点的曲率半径为无穷
大，以10的45次方代替。
⑶此程序只能分段输入参数值，分段计算。
即：直线
段、第一缓段、圆曲线段、第二缓段、直线段要分
别输入H Z点、Z H点、H Y点、Y H点、H Z点的起点
坐标里程，方位角和半径。
2输入与显示说明：
输入部分
N？选择计算方式，输入1表示正算，输入其数它值表示反算
X0？线元起点的X坐标
Y0？线元起点的Y坐标
K0？线元起点里程
FWJ？线元起点切线方位角
LS？线元长度。
分别为直线段、第一缓和段、圆曲线段、第二缓和段、直线段的长度
R1？线元起点曲率半径
R2？线元止点曲率半径
Q？线元左右偏标志（左偏Q=-1；右偏Q=1；直线段Q=0）K？求点里程
S？求点中心距（左侧为负；右侧为正；中线上为0）X？反算时求点的X坐标
Y？反算时求点的Y坐标
显示部分：
同以上X、Y、K、S
FWJ：求点切线方位角。