卡西欧fx-48004500测量计算程序

《卡西欧fx-48004500测量计算程序》由会员分享，可在线阅读，更多相关《卡西欧fx-48004500测量计算程序（45页珍藏版）》请在装配图网上搜索。

1、目录1卡西欧fx-4800测量计算程序2不对称缓和曲线4500-13不对称缓和曲线4800-24测量实用计算程序_5导线正算6缓和曲线求桩号7面积计算8竖曲线（全长型）9圆曲线断面偏差10坐标转换程序CASIO fx-4500PA计算中桩、边桩坐标程序直线、圆曲线中桩及左、右边桩计算程序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=起算点坐

2、标 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

3、=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：=

4、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=R36

5、R“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+

6、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起点里程；

7、 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

8、-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：线路偏向信息左转输：-

9、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：输入 后视点坐标，用于切线坐标系时该项为

10、切线坐标。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-

11、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+L193530096640A18L23A22+L2726)：O=HH5(40A4)+H9(3456A8)H13（599040A12）+H17（175472640A16）H2178033715200A20+H25(49049763840000

12、A24)：P=H3(6A2)H7(336A6)+H11(42240A10)H15（9676800A14）+H193530096640A18H23A22+H2726)：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

13、“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：显示待求点边桩坐标。 注

14、意：本程序适用于完整缓和曲线及卵形曲线。CASIO fx-4500PA计算中桩、边桩坐标程序OXNYNl L1X“ZX”Y“ZY”ZKA “ZH”B“XZH”S“YZH”O“EJ”：R“R（L-，R+）”=Goto EI “LS” L：Lbl E：Q=：J“HX”U“HY”：Goto 6：Lbll L2G：“E”Lbl 1：N：N“L”：W=Abs（A-AbsN：N=GotoE=O：F=：P=：RQ=90/R：Goto2Rec（W，18+O：Goto4 Lbl 2l L3IWE=Q（W-I：Goto 3 P=QW2/I：Rec（W-Wxy5/9R2I2，P/3+O：Goto4 Lbl 3l L

15、4WL-IGoto 1F=2RsinE：P=E+O+IQ：FcosP+Rec（IIxy3/9R2，IQ/3+O：Lbl 4l L5Q=B+Ans：J=Q：F=S+W+FsinP：U=Ans：NGoto 6Lbl 5l L6D：D=Goto 1D=1Goto 8H=P+E9AbsD/D：J=Q+Rec （Abs D，P+E-9AbsD/D：U=F+W Lbl 6l L7Pol（J-X，U-Y：WW+36：WQ=G=Ans：Goto“E=”V：“S=”Lbl 7l L8CMTH：M=Goto 5 M=1Goto 8C Abs sinM：“D=”VAns：“S=”Z=Goto 7T=Goto 7K-

16、T+H+Z+CcosM：“H”Goto 5Lb1 8l L9J：“XD=”U：“YD=”Goto 1 计算：ZX？ 输入置镜点X坐标ZY？ 输入置镜点Y坐标Z？ 输入置镜点高程K？ 输入仪器高度ZH？ 输入直缓点里程XZH？ 输入直缓点X坐标YZH？ 输入直缓点Y坐标EJ？ 输入直缓点方位角R（L，R +）？输入圆曲线半径，左偏为负，右偏为正LS？ 输入直缓点至缓圆点长度L？ 输入完整曲线长度，即两倍LS加圆曲线长HX？ 输入后视点X坐标HY？ 输入后视点Y坐标E 显示后视方位角L？ 输入计算里程E 显示视方位角S 显示前视距离M？ 输入1进入中桩计算模式，输入进入边桩计算模式，输入竖直角度进

17、入测距仪计算模式 中桩计算模式：XD 显示计算里程中桩X坐标YD 显示计算里程中桩Y坐标L？ 输入下一计算里程 边桩计算模式D？ 输入边桩距离，左侧输正值，右侧输负值E 显示前视方位角S 显示前视距离M？ 输入1显示边桩坐标L？ 输入下一计算里程测距仪计算模式C？ 输入斜距D 显示平距S 显示距离仪器？m说明：“”为零，O为英文字母直线、圆曲线中心及左、右边桩计算程序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-2Q

18、X=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=（U

19、2+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

20、=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=置镜点至前视点水平距离。XY（转点坐标）计算程序fx-4800pABCD：RLI=1：J=1：Pol（CA），（DB）：F=RJRec（L，F）X“X”=IAY“Y”=JB注： A、B置镜点坐标； C、D后视点坐标； R水平角； L转点至置镜点水平距离。SPJ（水平角）计算程序fx-4800pABCDXYI=1：J=1：Pol（CA），（DB）：F=JPol（

21、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：

22、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）

23、J“YY”=Y+Fsin（W90o）Goto注：QDLC起点里程； ZDLC终点里程； QDR、ZDR起、终点半径（左负右正） XA、YA起点坐标； ALFA起点方位角； Li待求点里程； N2； W所求点切线方位角； Xi、Yi待求点中坐标 ZBJ左边桩距离； YBJ右边桩距离； XZ、YZ左边桩坐标； XY、YY右边桩坐标。CASIO fx-4500PA计算中桩、边桩坐标程序OXNYNl L1X“ZX”Y“ZY”ZKA “ZH”B“XZH”S“YZH”O“EJ”：R“R（L-，R+）”=Goto EI “LS” L：Lbl E：Q=：J“HX”U“HY”：Goto 6：Lbll L2G：“

24、E”Lbl 1：N：N“L”：W=Abs（A-AbsN：N=GotoE=O：F=：P=：RQ=90/R：Goto2Rec（W，18+O：Goto4 Lbl 2l L3IWE=Q（W-I：Goto 3 P=QW2/I：Rec（W-Wxy5/9R2I2，P/3+O：Goto4 Lbl 3l L4WL-IGoto 1F=2RsinE：P=E+O+IQ：FcosP+Rec（IIxy3/9R2，IQ/3+O：Lbl 4l L5Q=B+Ans：J=Q：F=S+W+FsinP：U=Ans：NGoto 6Lbl 5l L6D：D=Goto 1D=1Goto 8H=P+E9AbsD/D：J=Q+Rec （Abs

25、 D，P+E-9AbsD/D：U=F+W Lbl 6l L7Pol（J-X，U-Y：WW+36：WQ=G=Ans：Goto“E=”V：“S=”Lbl 7l L8CMTH：M=Goto 5 M=1Goto 8C Abs sinM：“D=”VAns：“S=”Z=Goto 7T=Goto 7K-T+H+Z+CcosM：“H”Goto 5Lb1 8l L9J：“XD=”U：“YD=”Goto 1 计算：ZX？ 输入置镜点X坐标ZY？ 输入置镜点Y坐标Z？ 输入置镜点高程K？ 输入仪器高度ZH？ 输入直缓点里程XZH？ 输入直缓点X坐标YZH？ 输入直缓点Y坐标EJ？ 输入直缓点方位角R（L，R +）？

26、输入圆曲线半径，左偏为负，右偏为正LS？ 输入直缓点至缓圆点长度L？ 输入完整曲线长度，即两倍LS加圆曲线长HX？ 输入后视点X坐标HY？ 输入后视点Y坐标E 显示后视方位角L？ 输入计算里程E 显示视方位角S 显示前视距离M？ 输入1进入中桩计算模式，输入进入边桩计算模式，输入竖直角度进入测距仪计算模式 中桩计算模式：XD 显示计算里程中桩X坐标YD 显示计算里程中桩Y坐标L？ 输入下一计算里程 边桩计算模式D？ 输入边桩距离，左侧输正值，右侧输负值E 显示前视方位角S 显示前视距离M？ 输入1显示边桩坐标L？ 输入下一计算里程测距仪计算模式C？ 输入斜距D 显示平距S 显示距离仪器？m说明

27、：“”为零，O为英文字母直线、圆曲线中心及左、右边桩计算程序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=左、

28、右边桩坐标 缓和曲线中心及左、右边桩计算程序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）

29、，右（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=置镜点至前视点水平距离。XY（转点坐标）计算程序fx-4800pABCD

30、：RLI=1：J=1：Pol（CA），（DB）：F=RJRec（L，F）X“X”=IAY“Y”=JB注： A、B置镜点坐标； C、D后视点坐标； R水平角； L转点至置镜点水平距离。SPJ（水平角）计算程序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

31、“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（

32、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左边桩坐标； X

33、Y、YY右边桩坐标。卡西欧4500P测量程序_不对称缓和曲线F1(A): L1 PROG L:PROG F:B=H-TCOSJ:C=I-TSINJL2 LBL 0:U:U”KT”:S=U-O+T:PROG E:Y=KY：PROG D:W=D:GOTO 0 F2(B): L1 P=(R+M2/24/R-M4/2688/R3)TAN(A/2)+M/2-M3/240/R2F4(D): L1 E=X:X”XT”=X COS J-YSIN J+B Y”YT”=ESIN J+YCOS J +CF5(E): L1 W:D=W:W=-KW:S0=X=S:Y=-W: =SM=PROG G:X=X+W SIN V

34、:Y=Y-W COS V: =SL-N=PROG H: =SL=PROG I: =PROG JF6(F): L1 A:R:A”AZ”:M”LS1”: N”LS2” L2 Q=(M2-N2)/24/R+(N4-M4)/2688/R3)/SINA L3 PROG B:T“T1”=P-QG=M：M=N：PROGB：M=G：Z“T2”=P+QL=RA/180+N/2+M/2P“KZH”=O-TP“KHZ”=P+LF7 (G): P=S2/R/M：V=90P/：X=S（1-P2/40+P4/3456）：Y=S（P/6-P3/336）F8 (H): L1 P=90(2S-M)/R/ L2 X=(R+W)S

35、IN P+M/2-M3/240/R2 L3 Y=R-(R+W)COS P+M2/24/RF9 (I): L1 S=L-S:M=N：PROG G:M=G:PROG NF10(J): L1 S=S-L:X=T+(Z+S)COS A +WSIN A:Y=(Z+S)SIN A-WCOS AF11(L): L1 O”KJ”: H”XJ”:I”YJ”:J”AF”:K”Z=-1,Y=1”F13(N): L1 F=X:X=T+ZCOS A-XCOS A YSIN A+WSIN(A-V):Y=ZSIN A-FSIN A+YCOS A-WCOS(A-V)F15 (P): L1 1013/10(H/18488/(1

36、+0.00366T)卡西欧4800测量程序_不对称缓和曲线Fixm：Goto9：Lbl 1：B=H-TCOSJ:C=I-TSINJLBLA U:U”KT”:S=U-O+T:GOTO3:Lbl 0:Y=KY：GOTO2:Lbl B:W=D:GOTO A Lbl 2 E=X:X”XT”=X COS J-YSIN J+B Y”YT”=ESIN J+YCOS J +CGOTOB Lbl 3 W:D=W:W=-KW:S0=X=S:Y=-W:GOTO 0: =SM=GOTO5:=SL-N=GOTO6: =SL=GOTO7: =GOTO8 Lbl 4 AR:A”AZ”:M”LS1”: N”LS2” X=-1

37、=A=33-54-56.7:R=1239.29: =X=1=A=35-06-20.5:R=1300 M=150:N=150Q=(M2-N2)/24/R+(N4-M4)/2688/R3)/SINAP=(R+M2/24/R-M4/2688/R3)TAN(A/2)+M/2-M3/240/R2 T“T1”=P-QG=M：M=N：P=(R+M2/24/R-M4/2688/R3)TAN(A/2)+M/2-M3/240/R2 M=G：Z“T2”=P+QL=RA/180+N/2+M/2P“KZH”=O-TP“KHZ”=P+L GOTO1 Lbl 5 P=S2/R/M：V=90P/：X=S（1-P2/40+P4

38、/3456）：Y=S（P/6-P3/336）X=X+W SIN V:Y=Y-W COS V:GOTO0Lbl 6P=90(2S-M)/R X=(R+W)SIN P+M/2-M3/240/R2 Y=R-(R+W)COS P+M2/24/R GOTO0 Lbl7 S=L-S:M=N :p=s2/rm:v=90p/:x=s(1-p2/40+p4/336):y=s(p/6-p3/336):m=g:goto c Lbl8 S=S-L:X=T+(Z+S)COS A +WSIN A:Y=(Z+S)SIN A-WCOS A:GOTO0 Lbl9 O”KJ”: H”XJ”:I”YJ”:J”AF”:K”Z=-1,

39、Y=1” GOTO4Lbl9 O=125828.284: H=8474.782:I=6520.488:J=294-38-34:K=-1 GOTO4 Lbl C F=X:X=T+ZCOS A-XCOS A YSIN A+WSIN(A-V):Y=ZSIN A-FSIN A+YCOS A-WCOS(A-V) GOTO0P=1013/10(H/18488/(1+0.00366T) 气压改正测量实用计算程序（适用于CASIO 4500/4800）一）线路坐标计算程序采 用 的 公 式1、曲线要素公式：内 移 值p= Ls2/（24R）切线增量q= Ls/2- Ls3/（240R2）切 线 长T=（R+P

40、）tg(A/2)+ q切 线角0= Ls/(2R)曲 外 距E=（R+P）SEC(A/2)-R曲 线 长L=R(A-20)/180+2 Ls2、缓和曲线上任一点与ZH点之间的弦长公式：C=L-L5/（90R2Ls2）3、缓和曲线任一点的偏角公式：=（L/ Ls）20 0=1/30 （其中L为弧长 R为半径 Ls为缓和曲线长 A为曲线偏角）4、其它均采用座标增量公式： X=LCOS Y=Lsin 然后与JD的座标相加：X=XJD+XY=YJD+Y其中：L为计算点至交点JD的长度为JD至计算点的方位角XJD不交点JD的X座标YJD不交点JD的Y座标圆曲线增设缓和曲线示意图JDZHHZHYYHAOP

41、qTE0RQZ程序功能：可计算直线、缓和曲线、圆曲线上任一点的中桩座标及其法向边桩座标。A：曲线偏角 T：切线距 E：外矢距 R：圆曲线半径ZH：直缓点 HY：缓圆点 QZ：曲中点 YH：圆缓点 HZ：缓直点一）单交点对称型曲线坐标计算程序（CASIO 4500/4800）1. Defm 62. A:C”LS=”:D”JD=”:R”R=”3. P=Cxy2/24/R4. Q=C/2-C xy3/240/R xy25. B=90C/R/6. T=(R+P)tg(absA/2)+Q7. E=(R+P)/cos(A/2)-R8. L=(absA-2B) R/180+2C9. G”ZH”=D-TH”H

42、Y”=G+C10. z6”QZ”=G+L/211. K”YH”=G+L-C12. M”HZ”=G+L13. N”JD X=”:W”JD Y=”:F”FANGWEIJIAO”:J14. AML=Z-M+T48. V=F+A49. U=V50. Goto 2 51. Lbl 252. X=N+LcosV 53. Y=W+LsinV 54. Goto 655. Lbl 356. E57. P”XL”=X+Ecos(U-90) 58. Q”YL”=Y+Esin(U-90) 59. Z3=P-Z160. Z4=Q-Z261. Pol(Z3,Z4)62. J0J”FWJ”=J63. J”FWJ”=J+36

43、064. Z5”L”=I65. P”XR”=X+Ecos(U+90) 66. Q”YR”=Y+Esin(U+90) 67. Z3=P-Z168. Z4=Q-Z269. Pol(Z3,Z4)70. J0J”FWJ”=J71. J”FWJ”=J+36072. Z5”L”=I73. Goto 174. Lbl 475. X=N+TcosP+VcosQ76. Y=W+TsinP+VsinQ77. Goto 678. Lbl 579. X=B+RcosL80. Y=O+RsinL81. Goto 682. Lbl 683. J=1Goto 384. Goto 1说明：A 曲线偏角（左偏为负数）LS 缓和

44、曲线长度D JD交点里程R 圆曲线半径N JD点X坐标W JD点Y坐标F 起算方位角ZH至JDJ 输入1时计算中桩两侧坐标输入0时只计算中桩坐标E 输入中桩至两侧的距离XL YL 为左侧坐标XR YR 为右侧坐标注：针对具体一个曲线可将已知条件数据直接输入程序中。减少计算过程。比如R=800，可将800直接放入程序中代替R。二）已知两点坐标计算方位角程序1、 X”XA=”:Y”YA=”:S”XB=”:T”YB=”2、 A=(S-X)3、 B=(T-Y)4、 Pol(A,B)5、 W0=W=W:W=W+3606、 F”FWJ”=W说明：XA： A点横坐标 YA： A点纵坐标XB： B点横坐标YB

45、： B点纵坐标FWJ: AB方位角三）、已知A点坐标、距离、AB方位角，计算B点坐标程序1、 A“X1=”：B“Y1=”：C“FWJ=”2、 Lbl 0:D:D”L”:Rec(D,C)3、 X=A+V4、 Y=B+W5、 Goto 0说明：X1： A点横坐标 Y1： A点纵坐标FWJ: AB方位角四）、竖曲线标高计算程序1、I:J:R:T:H:L2、Lbl 03、Z4、ZL=Goto 15、ZL=Goto 26、 Lbl 17、 K=（H-T*I）+（Z-L+T）*I-（Z-L+T）2/（2R）8、Goto 09、Lbl 210、K=（H-T*J）+（L+T-Z）*J-（L+T-Z）2/（2R

46、）11、Goto 0说明：I：上行坡度 J：下行坡度 H：交点标高 T：切线长 L：交点里程OTERTIJ R：曲线半径五）单交点非对称型曲线坐标计算程序（含对称型）fx-4800Defm 12F”FWJ=”：A：R：H”T1=”：T”T2=”：N”JD X=”：W”JD Y=”：B”ZH=”：C”HZ=”：D”LS1=”：E”LS2=”：O”O (0/1)=”ACL=K-C+TV=F+AU=VGoto 2Lbl 2X=N+LcosVY=W+L sinVGoto 4Lbl 3MM=0X=P:Y=Q:Goto 5P”B x”=X+abs(M)cos(U+90M/abs(M) Q”B y”=Y+a

47、bs(M)sin(U+90 M/abs(M) Goto 3Lbl 4MAbs(M)0Goto 3Goto 5Lbl 5O=0Goto 1Z10=X-Z8Z11=Y-Z9Pol(Z10,Z11)J0J”FWJ”=JJ”FWJ”=J+360Z12”L”=IGoto 1Lbl 6X”X0=”：Y”Y0=”Z8=XZ9=YGoto 1导线计算Fixm：B=0：B:B”FIX=0，CONTINUE=1” CDEF：C“XC” D“YC” E“XB” F“YB” POL（E-C，F-D）I“JULI” J“FWJ” LBL 0：POL（E-C，F-D）：SW:S“S”W“AR”：A=J+WX”XT”=C+S COS A Y”YT”=D+SSIN AB=0=GOTO 0：=B=1=E=C：F=D：C=X：D=Y：GOTO 0 缓和曲线求桩号Fixm：ABFERS：A“XZH”B“YZH” F“TZH” E“Z-1，Y+1” R“R” S“LS”C=ERS：L=SLBL 0：XY：M=（X-A）COSF+（Y-B）SINFN=（A-X）SINF+（Y-B）COSF LBL1：D=LL=L-（L-NL2/2C+ML4/8C2-L5/15C2-M）/（1-NL/C+ML3/2C2