卡西欧4800P计算器测量程序集

福建林业职业技术学院工程系土木工程室高 国 兴CASIO fx-4500PA计算中桩、边桩坐标程序12直线、圆曲线中桩及左、右边桩计算程序fx-4800pC“X=” ：D“Y=” ：E“W=” ：N=Ans：R“R=”：L“Lo=” ：K“D=” ：M“Jo=” ：Q=9L（R）：S=2RsinQ ：O =CScos（N-Q） P=D+Ssin（N-Q）W=E-2QX=O+Kcos（N-2Q-M）Y=P+Ksin（N-2Q-M）注： X=起算点坐标 Y=起算点坐标 W=起算点方位角R=曲线半径，线路前进方向，左+，右直线R为无穷大Lo=置镜点到待求点距离D左、右边距离Jo=前进方向左（+90），右（90）O=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标 缓和曲线中桩及左、右边桩计算程序Fx-4800pC“X=” ：D“Y=” ：E“W=” ：N=Ans：R“R=” ：F“L=” ：L“Lo=” ：K“D=” ：M“Jo=” U=LL5（40R2F2） ：V=L3（6RF）L7（336R3F3）：Q=tan1（VU） ：S=（U2+V2）B=9L2（RF） ：O=C+Scos（NQ）P=D+Ssin（NQ）W=EBX=O+Kcos（NBM）Y=P+Ksin（NBM）注： X=起算点坐标 Y=起算点坐标 W=起算点方位角R=曲线半径，线路前进方向，左+，右L=缓和曲线长Lo=置镜点到待求点距离D左、右待求距离Jo=前进方向左（+90），右（90）O=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标放样程序fx-4800pRLI“XZ”：W：“YZ”：G“XH”：H“YH” B=HW C=GI Prog“P”：U=AK=（B2C2）C=X“X”IB=Y“Y”WProg“P”L“L”=（B2C2）V=AU：V V=V36V “V=” PA=tan1（BC）B= C= A=A：= C A=A18= B C= A=A36: = C A= A18XZ、YZ置镜点X、Y坐标；XH、YH后视点坐标；X-、Y-前视点坐标；输出：R=水平角、L=置镜点至前视点水平距离。转点坐标计算程序fx-4800pA“XZ”B“YZ”C“XH”D“YH”：RLI=1：J=1：Pol（CA），（DB）：F=RJRec（L，F）X“X”=IAY“Y”=JB注： XZ、YZ置镜点坐标； XH、YH后视点坐标； R水平角； L转点至置镜点水平距离。放样程序fx-4800pABCDXYI=1：J=1：Pol（CA），（DB）：F=JPol（XA），（YB）：R=JFR36= R=R36：= R R=R36R“R=” I“L=”注： A、B置镜点坐标； C、D后视点坐标； X、Y前视点坐标； 输出R水平角，L置镜点至前视点水平距离。方位角计算程序fx-4800pX“X1”：Y “Y1”：A“XZ”：B“YZ”：Fixm：Pol（XA， YB）：I“L=”J J=J36J“J0=”注： X1、Y1前视（后视）点坐标； XZ、YZ置镜点坐标； L置镜点至前视（后视）点距离； J0方位角。直、圆、缓线计算程序fx-4800p复化辛普森公式A“QDLC”B“ZDLC”R“QDR”V“ZDR”C“XA”D“YA”E“ALFA”：Lb1：L：L“Li”：T=（1V1R）（BA）：H=（LA）N：P=TNH+1R：S=9H：W=E+（P+1R）NSG=1：X“Xi”=C+H6（cosE+cosW+4（cos（E+（G+0.5）HT+2R）（G+0.5）S），G，（N1）+2（cos（E+（THG+2R）GS），G，1，（N1）Y“Yi”=D+H6（sinE+sinW+4（sin（E+（G+0.5）HT+2R）（G+0.5）S，G，（N1）+2（sin（E+（THG+2R）GS，G，1,（N1）IF：I“ZBJ”：F“YBJ”：Z“XZ”=X+Icos（W90o）J“YZ”=Y+Isin（W90o）Z“XY”=X+Fcos（W90o）J“YY”=Y+Fsin（W90o）Goto注：QDLC起点里程； ZDLC终点里程； QDR、ZDR起、终点半径（左负右正） XA、YA起点坐标； ALFA起点方位角； Li待求点里程； N2； W所求点切线方位角； Xi、Yi待求点中桩坐标 ZBJ左边桩距离； YBJ右边桩距离； XZ、YZ左边桩坐标； XY、YY右边桩坐标。卡西欧计算器FX-4800P测量程序Z=L-1,R+1:AA0:Q=R+SLSci224R:T=S2-S3240R2+Anstan .5AL=RA1r+SHZH=WJDT-TIHY=H+SIQZ=H+.5LIYH=H+L-SLHZ=H+LDXJKYJBGraOXEUYEGXmMXm:LbIF: FN:FH=X=F-W:ZN:= FL-S=V=F-H:FProgQ：= Rec(R-ZN,(2V-S)r2R:X=J-Qtan.5A:Q-IV=L-F:PoI(T-V,ZN:FProg Q: PoI(-X,AnsX=Rec(Ans,A+J:JX=D+Rec(PoI(X, ZAns,J+BY=K+J OK!:PoI(G-O,M-U:V=J:PoI(X-O,Y-U:J-V:AnsAns+360V=Ans IP=Goto F 主程序结束Q 子程序Y=2RS:Rec(ZN,V2rY:X=V-V510Y2-T-J:V33Y-V742Y3+I 注：本程序适用于完整线型。（即：直线+缓和曲线+圆曲线+缓和曲线+直线）Z：线路偏向信息左转输：-1，右转输：+1。r：弧度，按FUNCTION 键5键5键输入。A0:线路转向角以度分秒形式输入。R：圆曲线半径。Lsci:缓和曲线长度。无缓和曲线，单圆曲线时输入“0” T=：程序输出切线长。L=：程序输出曲线长度。JDT？：输入交点里程。ZH=、HY=、QZ=、YH=、HZ=：程序输出曲线五大桩里程。XJ：输入交点大地坐标。用切线坐标系时输0。YJ：输入交点大地坐标。用切线坐标系时输0。Gra: 输入ZH点方位角，用切线坐标系时输0。XE：输入 置镜点坐标，用于切线坐标系时该项为切线坐标。YE：输入 置镜点坐标，用于切线坐标系时该项为切线坐标。Xm：输入 后视点坐标，用于切线坐标系时该项为切线坐标。Ym：输入 后视点坐标，用于切线坐标系时该项为切线坐标。F：输入放样点里程桩号。（若放样点位于前一公里内，可以“-50”的形式输入，程序认为放样点为“+950”，反之输入“1200”表示放样点位于下一公里内。）N：输入边桩至中桩距离，（线路左边桩输入负值，右边桩以正值输入）计算中桩坐标时输“0”。X：输出放样点x坐标。Y：输出放样点y坐标。OK:表示计算正在进行。V：输出放样水平角。（即前视到置镜点方位角减后视到置镜点方位角）P：输出放样点至置镜点距离。卡西欧计算器FX-4800P测量程序I“XQ=” : J “YQ=”：R“QDFWJ= ”:A:K“R1=”:W“L=”： N“L-1，R+1”：L=A2K：H=L+W：Z=A2H：T=90L(K)：Q=90H(Z)：X=LL5(40A4)+L9(3456A8)L13599040A12+L17175472640A16L2178033715200A20+L25(49049763840000A24)：Y=L3(6A2)L7(336A6)+L11(42240A10)L159676800A14+L193530096640A18L231880240947000A22+L27(1377317369000000A26)：O=HH5(40A4)+H9(3456A8)H13（599040A12）+H17（175472640A16）H2178033715200A20+H25(49049763840000A24)：P=H3(6A2)H7(336A6)+H11(42240A10)H15（9676800A14）+H193530096640A18H231880240947000A22+H27(1377317369000000A26)：Z2=(OX)2+(PY)2)：Z3=Abs(tan-1(PY) (OX)T)：U= Abs(Qtan-1(PY) (OX)：G= Abs (Z2SinUSin(QT)：V =Abs(Z2 ( SinZ 3S i n (QT ) ) )：B = I + G cosR : C = J + G s i n R ： D = R + N ( Q- T ) ：D0=D = D + 3 6 0 D“a0”E=B+VcosDF=C+VsinDS“BZJL=”:M“L90,R+90”：Z1=E+Scos(D+M):Z1“XB” Z4=F+Ssin(D+M): Z4 “YB” 说明：XQ、YQ：输入缓和曲线起算点坐标。QDFWJ：输入缓和曲线起算点方位角。A：输入缓和曲线参数。（A2等于缓和曲线长乘以半径。）R1：输入缓和曲线大半径，完整缓和曲线为无穷大。L：输入待求点至起算点曲线长度。L1，R+1：输入线路偏向信息：左转输“1”，右转输“1”。a0：显示待求点中桩方位角。E、F：显示待求点中桩坐标。BZJL=？：输入边桩至中桩距离L90，R+90？：输入边桩偏向信息：左转输“90”，右转输“90”。XB、YB：显示待求点边桩坐标。 注意：本程序适用于完整缓和曲线及卵形曲线。