卡西欧计算器f x-4800P福建林业职业技术学院工程系土木工程室高国兴CASIO fx-4500PA计算中桩、边桩坐标程序直线、圆曲线中桩及左、右边桩计算程序fx-4800pC“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：L“Lμo=”：K“D=”：M“Jμ=”：oQ=9θL÷（πR）：S=2RsinQ ：O =C＋Scos（N-Q）◢P=D+Ssin（N-Q）◢W=E-2Q◢X=O+Kcos（N-2Q-M）◢Y=P+Ksin（N-2Q-M）◢注：Xθ=起算点坐标Yθ=起算点坐标Wθ=起算点方位角R=曲线半径，线路前进方向，左+，右－直线R为无穷大Lμo=置镜点到待求点距离D左、右边距离Jμo=前进方向左（+90），右（－90）O=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标缓和曲线中桩及左、右边桩计算程序Fx-4800pC“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：F“Lθ=”：L“Lμo=”：K “D=”：M“Jμo=”←U=L－L^5÷（40R2F2）：V=L^3÷（6RF）－L^7÷（336R^3F^3）：Q=tan－1（V÷U）：S=√（U2+V2）←B=9θL2÷（πRF）：O=C+Scos（N－Q）◢P=D+Ssin（N－Q）◢W=E－B◢X=O+Kcos（N－B－M）◢Y=P+Ksin（N－B－M）◢注：Xθ=起算点坐标Yθ=起算点坐标Wθ=起算点方位角R=曲线半径，线路前进方向，左+，右－Lθ=缓和曲线长Lμo=置镜点到待求点距离D左、右待求距离Jμo=前进方向左（+90），右（－90）O=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标放样程序fx-4800pRLI“XZ”：W：“YZ”：G“XH”：H“YH”←B=H－W ←C=G－I ←Prog“P”：U=A←K=√（B2＋C2）←C=X“X－”－I←B=Y“Y－”－W←Prog“P”←L“L”=√（B2＋C2）◢V=A－U：V<θ==>V=V＋36θ⊿V “V=”◢PA=tan－1（B÷C）←B≥θ==>C≥θ==>A=A：≠=>C<θ==>A=A＋18θ⊿⊿≠=>B<θ==>C≥θ==> A=A＋36θ: ≠=>C<θ==>A= A＋18θ⊿⊿⊿←XZ、YZ—置镜点X、Y坐标；XH、YH—后视点坐标；X-、Y-—前视点坐标；输出：R=水平角、L=置镜点至前视点水平距离。

转点坐标计算程序fx-4800pA“XZ”B“YZ”C“XH”D“YH”：{RL}←I=1：J=1：Pol（（C－A），（D－B））：F=R＋J←Rec（L，F）←X“X”=I＋A◢Y“Y”=J＋B◢注：XZ、YZ—置镜点坐标；XH、YH—后视点坐标；R—水平角；L—转点至置镜点水平距离。

放样程序fx-4800pABCDXY←I=1：J=1：Pol（（C－A），（D－B））：F=J←Pol（（X－A），（Y－B））：R=J－F←R>36θ==>R=R－36θ：≠=>R<θ==>R=R＋36θ⊿R“R=”◢I“L=”◢注：A、B—置镜点坐标；C、D—后视点坐标；X、Y—前视点坐标；输出R—水平角，L—置镜点至前视点水平距离。

方位角计算程序fx-4800pX“X1”：Y “Y1”：A“XZ”：B“YZ”：Fixm：Pol（X－A， Y－B）：I“L=”◢J<θ==> J=J＋36θ⊿J“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=（1÷V－1÷R）÷（B－A）：H=（L－A）÷N：P=TNH+1÷R：S=9θH÷π：W=E+（P+1÷R）NS◢G=1：X“Xi”=C+H÷6×（cosE+cosW+4×∑（cos（E+（（G+0.5）HT+2÷R）（G+0.5）S），G，θ，（N－1））+2∑（cos（E+（THG+2÷R）GS），G，1，（N－1）））◢Y “Yi ”=D+H ÷6×（sinE+sinW+4×∑（sin （E+（（G+0.5）HT+2÷R ）（G+0.5）S ，G ，θ，（N －1））+2×∑（sin （E+（THG+2÷R ）GS ，G ，1,（N －1）））◢ {IF}：I “ZBJ ”：F “YBJ ”：Z “XZ ”=X+Icos （W －90o ）◢ J “YZ ”=Y+Isin （W －90o ）◢ Z “XY ”=X+Fcos （W ＋90o ）◢ J “YY ”=Y+Fsin （W ＋90o ）◢ Goto θ⊿注：QDLC —起点里程； ZDLC —终点里程；QDR 、ZDR —起、终点半径（左负右正）XA 、YA —起点坐标； ALFA —起点方位角； Li —待求点里程； N —2；W —所求点切线方位角； Xi 、Yi —待求点中桩坐标 ZBJ —左边桩距离； YBJ —右边桩距离； XZ 、YZ —左边桩坐标； XY 、YY —右边桩坐标。

卡西欧计算器FX-4800P 测量程序Z="L-1,R+1":A"A0":Q=R+S"LSci"2÷24R:T=S÷2-S^3÷240R 2+Anstan .5A ◢L=RA÷1r +S ◢H"ZH"=W"JDT"-T ◢I"HY"=H+S ◢I"QZ"=H+.5L ◢I"YH"=H+L-S ◢L"HZ"=H+L ◢ D "XJ "Y=K+J ◢ " OK!":PoI(G-O,M-U:V=J:PoI(X-O,Y-U:J-V:Ans<0=>Ans+360⊿V=Ans ◢ I"P="◢Goto F [主程序结束]Q [子程序]Y=2RS:Rec(ZN,V2r÷Y:X=V-V^5÷10Y2-T-J:V^3÷3Y-V^7÷42Y^3+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=A2÷K：H=L+W：Z=A2÷H：T=90L÷(πK)：Q=90H÷(πZ)：X=L－L5÷(40A4)+L9÷(3456A8)－L13÷599040÷A12+L17÷175472640÷A16－L21÷78033715200÷A20+L25÷(49049763840000A24)：Y=L3÷(6A2)－L7÷(336A6)+L11÷(42240A10)－L15÷9676800÷A14+L19÷3530096640÷A18－L23÷1880240947000÷A22+L27÷(1377317369000000A26)：O=H－H5÷(40A4)+H9÷(3456A8)－H13÷（599040A12）+H17÷（175472640A16）－H21÷78033715200÷A20+H25÷(49049763840000A24)：P=H3÷(6A2)－H7÷(336A6)+H11÷(42240A10)－H15÷（9676800A14）+H19÷3530096640÷A18－H23÷1880240947000÷A22+H27÷(1377317369000000A26)：Z[2]=√((O－X)2+(P－Y)2)：Z[3]=Abs(tan-1((P－Y) ÷(O－X))－T)：U= Abs(Q－tan-1((P－Y) ÷(O－X))：G= Abs (Z[2]×SinU÷Sin(Q－T))：V =Abs(Z[2]× ( SinZ [3]÷S i n (Q－T ) ) )：B = I + G cosR : C = J + G s i n R ：D = R + N ( Q- T ) ：D﹤0=>D =D+360⊿D“a0＝”◢E=B+VcosD◢F=C+V×sinD◢S“BZJL=”:M“L－90,R+90”：Z[1]=E+S×cos(D+M):Z[1]“XB”◢Z[4]=F+S×sin(D+M): Z[4] “YB”◢说明：XQ、YQ：输入缓和曲线起算点坐标。