CASIO中边桩放样程序3.doc

CASIO中边桩放样程序3程序名：TNTDefm 10AA0:R:CLS:DJDP=C224R-C42688R3Q=C2-C3240R2Z5=90CpRT=:T=(R+P)tan(AbsA2)+QW=:W=(R+P)cos(A2)-RL=:L=(AbsA)-2Z5)pR180+2CZH=:G=D-THY=:Z1=G+CQZ=:Z2=G+L2YH=:Z3=G+L-CHZ=:Z4=G+LNJDX：EJDY：FQDFWJ: ODKA: BDKB:HZJX: KZJYAS=-1: S=1U=F+A2+90SV=W+RZ6=N+VcosUZ7=E+VsinULbl 1Z:ZDKIZO=Z=OGoto 8ZB=Z=BGoto 8Lbl 8ZG=L=T+G-Z:V=F+180:U=FGoto 2 ZZ1=L=Z-G:V=L-L5(90R2C2):L=30L2S(pRC):P=F+180:Q=F+L:U=F+3LGoto 4 ZZ3=L=F+A2+90S+180+180(Z- Z2)SRp:U=L+90SGoto 5 ZZ4=L= Z4-Z:V=L-L5(90R2C2):L=30SL2(pRC):P=F+A:Q=F+A+180-L:U=F-3L+AGoto 4 Z Z4=L=Z- Z4+T:U=F+A:V=UGoto 2 Lbl 2X=N+LcosV:Y=E+LsinVGoto 6Lbl 4X=N+TcosP+VcosQ:Y=E+TsinP+VsinQGoto 6Lbl 5X= Z6+R cosL:Y= Z7+RsinLGoto 6Lbl 6WM:WBIAN JU:MJIA JIAOUU=U+360QX-FWJ=:UDMSX=:XY=:YW=0=Goto 3 W0=X=X+Wcos(U+M):Y=Y+Wsin(U+M)XR=:XYR=:YGoto 3 WX=X+(AbsW)cos(U+180+M):Y=Y+(AbsW)sin(U+180+M)XL=:XYL=:YGoto 3 Lbl 3Pol(X-H,Y-K)JJ=J+360 FWJ=:JDMSCJ=:IGoto 1说明:A？输入转角：左转为负，右转为正R？输入圆曲线半径LS？ 输入缓和曲线长度JD？ 输入交点桩号JDX？JDY？ 输入交点X，Y坐标QDFWJ？输入起点切线方位角DKA？输入起点里程DKB？输入终点里程ZJX？ ZJY？输入置镜点X，Y坐标ZDKI？ 输入待求点里程QX-FWJ待求点切线方位角WBIAN JU？ 输入左右桩距中桩边距（左侧输入-，右侧输+）MJIA JIAO？输入斜交时边桩与线路方向右侧夹角，正交为90度X，Y 待求点中桩坐标XR，YR 右桩坐标XL，YL 左桩坐标FWJ置镜点至待求点方位角CJ置镜点至待求点距离5800-经典程序（缓园缓）5800“直+缓+圆+缓+直”型坐标计算主程序(QXJS)Prog “1”:“KZH” ?Q ：”ZHX=”? F ：“ZHY=” ?G ：“TZHJD” ?N ：“(Y1，Z-1)”?ILbl 1: “LICHENG=”?K ：“WAIYI=(Z-，Y+)”?D：Goto2Lbl 2: if KQ+L :then GotoA:else Goto5 :ifendLbl 5: if KQ+B :then Goto6:else Goto7 :ifendLbl 6: K-QS： B W：Prog“2”： N+I90S2(RB)O:O O+360O:O360 = O-360 O“X=”:UcosN-VsinN+F+Dcos(O+90) X“Y=”:VcosN+UsinN+G+Dsin(O+90) Y Goto1? 第一段缓曲Lbl 7：if KQ+L-C: then Goto8:else Goto9 :ifendLbl 8: K-QS：N+I90(2S-B)(R) O:O O+360 O:O360= O-360OProg “3”：”X=”UcosN-VsinN+F+Dcos(O+90) X“Y=”：VcosN+UsinN+G+Dsin(O+90) Y Goto1 圆曲线Lbl 9: Q+L-K S：C W：Prog “2”：N+IA+180 E：E-I90S2(RC)+180 O：O O+360 O:O360 = O-360 O -VV“X=”：(U-H)cosE-VsinE+F+T cosN+Dcos(O+90) X“Y=”：VcosE+(U-H)sinE+G+T sinN+Dsin(O+90) YGoto1 第二段缓曲Lbl A: N+IA+180 E：E+180 O：O O+360 O:O360 = O-360 O -HcosE +F+T cosN X-HsinE+G+T sinN Y“X=”：X+(K-Q-L) cosO-D sinO“Y=”：Y+(K-Q-L) sin O+DcosOGoto1第二段直线圆曲 缓曲参数子程序“1”?A:?R: “L01” ?B: “L02”? CB2-B3(240 R2)MC2-C3(240 R2)JB2(24 R)- B4(2688 R3)PC2(24 R)- C4(2688 R3)ZM+(R+P)tan(A2)+(Z-P)sinATJ+(R+Z)tan (A2)+( P-Z)sinA HB2+C2+A R180 L缓曲子程序“2”S-S5(40R2W2)+ S9(3456 R4 W4)-S13(599040R6 W6) UI(S3(6RW)- S7(336 R3 W3) +S11(42240 R5 W5) V圆曲子程序“3”Rsin(180(S-B2)R)+M UI (R (1-cos(180(S-B2)R)+P) V程序说明：本程序可以计算等长和不等长“直+缓+圆+缓+直”型线或者单圆曲线的中线坐标、外移桩坐标以及中线的切线方位角（可加入显示出来）。先将主、子程序存入计算器，然后运行主程序“QXJS”，输入A(曲线偏角)，曲线半径R，第一缓和曲线长L01，第二缓和曲线长L02，(等长缓和曲线时L01= L02)，然后显示曲线逐要素，接着输入ZH坐标(ZHX，ZHY)，ZH到JD坐标方位角TZHJD，当曲线为左偏时(Y1，Z-1)输-1，右偏输1，输入计算里程K，外移距离D，计算中桩时D输0，计算左边桩时D输负数，算右边桩时D输正数，当所输里程不在本曲线计算范围内时，屏幕显示KOVER，继续输入有效里程可继续计算。对于单圆曲线，缓和曲线长输入0。本程序缓和曲线X计算取了4项，Y计算取了3项，一般的曲线计算精度都可达到mm级。5800竖曲线高程（RGC）“JD -K”?A：“JD -H”?B：“+i，-i”? I：?：?T：“n+1，u-1”?J：“”？W：“K0=”：I100I“K0=”：A-TD“H0=”：B-ITE“KZ=“：A+TU“HZ=“：E+2TI-4JT2（2R）VLbl 1：？K：Goto2Lbl 2：if KU：thenGoto3：else Goto6：ifendLbl 5：KU= Goto6Lbl 6：“H=”：E+（K-D）I-J（K-D）2（2R）-WHGoto1JD K(交点桩号)JD H（交点直线高程）+i，-i（后面坡度）R（竖曲线半径）T（T长）HSGC=（后视高程）5800计算器公路全线坐标正、反算计算程序2009.7.235800正反算、隧道超欠挖程序.doc正算主程序(ZS)Lb1 0FIX4：?S：?Z：Prog“PM-SJ”：Abs(S-O) W：Prog SUB1：XS=：XYS=：YF-90F(需要时可以让他显示，不要时不必输入)：Prog“SQX-SJ”:Prog“SQX”：“H=”：HGoto0反算主程序(FS)Lb1 0FIX4: ?S：?X：？Y：Prog“PM-SJ”：X I：YJ：Prog SUB2：S=：O+WSZ=：ZProg“SQX-SJ”：Prog“SQX” ：“H=”：HGoto0隧道3心圆放样主程序（SD-3XY）Lb1 0：Prog“FS”：1.5A：1.65B：0.89G：2.27C：3.3D：2.41E：0.51J：“H1”：F：ifFH+A：then E-AbsZW：IfEnd：ifFH+A And FH+A+B：then（D²-（F-H-A）²）-G-AbsZW：IfEnd：ifFH+A+B：then（C²-（F-H-A-J）²）-AbsZW：IfEnd：“W=”：W（水平方向的超欠挖：正为欠,负为超）Goto0正算子程序(SUB1)1PC：(P-R)(2HPR)D：180E：0.1739274226A：0.3260725774B：0.0694318442K：0.3300094782L：1-LF：1-KM：U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD)X：V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD)Y：G+QEW(C+WD)+90F：X+ZcosFX：Y+ZsinFY反算子程序(SUB2)G-90T：Abs(Y-V)cosT-(X-U)sin（T）)W：0Z：Lbl 0：Prog SUB1：T+QEW(C+WD)L：(J-Y)cosL-(I-X)sinLZ：ifAbsZ1E-6：thenGoto1：ElssW+ZW：Goto0：IfEndLbl 1：0Z：Prog SUB1：(J-Y)sinFZ子程序（平面线形数据库）PM-SJifS500（线元起点里程）AndS769.256（线元止点里程）：Then19942.837U（线元起点X坐标）：28343.561V（线元起点Y坐标）：500O（线元起点里程）：1251631G（线元起点方位角）：269.265H（线元长度）：10（45）P（线元起点曲率半径）：10（45）R（线元终点曲率半径）：0Q（线元左右偏标志：左负右正）：IfEndifS769.256（线元起点里程）AndS806.748（线元止点里程）：Then19787.34U（线元起点X坐标）：28563.378V（线元起点Y坐标）：769.256O（线元起点里程）：1251631G（线元起点方位角）：37.492H（线元长度）：10（45）P（线元起点曲率半径）：221.75R（线元终点曲率半径）：-1Q（线元左右偏标志：左负右正）：IfEndifS806.748（线元起点里程）AndS919.527（线元止点里程）：Then19766.566U（线元起点X坐标）：28594.574V（线元起点Y坐标）：806.748O（线元起点里程）：1202554.07G（线元起点方位角）：112.779H（线元长度）：221.75P（线元起点曲率半径）：221.75R（线元终点曲率半径）：-1Q（线元左右偏标志：左负右正）：IfEndifS919.527（线元起点里程）AndS999.812（线元止点里程）：Then19736.072U（线元起点X坐标）：28701.893V（线元起点Y坐标）：919.527O（线元起点里程）：911730.63G（线元起点方位角）：80.285H（线元长度）：221.75P（线元起点曲率半径）：9579.228R（线元终点曲率半径）：-1Q（线元左右偏标志：左负右正）：IfEndifS999.812（线元起点里程）：Then19744.038U（线元起点X坐标）：28781.659V（线元起点Y坐标）：999.812O（线元起点里程）：804050G（线元起点方位角）：100H（线元长度）：10（45）P（线元起点曲率半径）：10（45）R（线元终点曲率半径）：0Q（线元左右偏标志：左负右正）：IfEnd子程序（竖曲线数据库）SQX-SJifS999.812（竖曲线终点里程）：then0.0357（前坡度：上坡正下坡负）E：0.0227（后坡度：上坡正下坡负）F：600R（竖曲线半径）：780G（变坡点里程）：110C（变坡点高程）：IfEnd子程序（竖曲线计算公式）SQXE-FJ：ifJ0：then-RR：ElssRR：Abs（R*J2）T：IfEndifSG-T：thenG-SL：C-LEH：IfEndifSG-T AndSG：thenG-SL：（S+T-G）²2RN：C-LE+NH：IfEndifSGAndSG+T：then S-GL：（G +T- S）²2RN：C+LF+NH：IfEndifSG+T ：thenS-GL： C+LFH：IfEnd三、使用说明1、规定(1)以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。(2)当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。(3)当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。(4)当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。 (5)当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 (6)当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。以上程序为个人改编而得，如有好的建议及不妥处请留言。如有好的程序，也发一份我共享啊！BBBCASIO fx5800计算器 工程测量与公路测量程序1、坐标正算X0=?X:Y0=?Y:I=?I:J=?JX+ICos(J)U:Y+ISin(J)VX=:U （待求点的X坐标）Y=:V （待求点的Y坐标）说明：X0 Y0：已知点坐标I：两点的距离J：方位角、坐标反算Lbl 0X1=?X:Y1=?Y:X2=?U:Y2=?VPol(U-X,V-Y):J0 J+360JI=:IJ=:J DMSGOTO 0说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角、圆曲线X0=?X: Y0=?Y:FWJ=?D:QDHAO=?G: ZDHAO=?C: R=?RLbl 1DQHAO=?LLG Or LC GOTO 2PY=?K180(L-G)(R) E2RSin(0.5E) FReC(Abs(F),D+0.5E)：ClsX=:X+I+KCos(D+E+90) AY=:Y+J+KSin(D+E+90) BD+Eo:o0 360+o0oFWJ=:o DMSGoto 1Lbl 2END说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO终点里程，R：半径，DQHAO：待求点里程，PY：偏移量、竖曲线QZHAO =?J: H+B=?B:I1=?C:I2=?D:R=?R:T=?T:(D-C)100) Abs(D-C) 100)A:Abs(0.5R(D-C) 100)ST:SJ-TXJTYLbl 0DQ=?LIf LX:Then Goto 1:Else IfLY:Then Goto 1:If End:If EndGC=:B+C(L-J) 100+A(L-J+T)(2R) HGoto 0Lbl 1END说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。5正算偏移X0=?A: Y0=?B:FWJ=?D:Lbl 0LS=?L: PY=?CReC(L,D)X=:A+I+CCos(D+ 90) XY=:B+J+CSin(D+ 90) YGoto 0说明：X0 Y0：已知点坐标，LS：两点距离，FWJ：方位角6.万能公式X0=?A:Y0=?B:FWJ=?C:1R-QD?D:1R-ZD?E:QDHAO?F:ZDHAO?GLbl 1DQHAO=?H:PY=?oIf HF:Then Goto 2:Else IfHG:Then Goto 2:If End:IfEnd(E-D)Abs(G-F) P:Abs (H-F) Q:PQI:C+90Q(I+2D)