CASIOfx-4800P程序.doc

1、方位角计算程序:【FWJ】 2 2、转换坐标与高程程序:【0】 2 3、坐标计算主程序:【XY】 2 4、高程计算主程序:【H】 5 5、坐标计算子程序:【XY-1】 5 6、高程计算子程序:【H-1】 6 7、水平距离归算到高斯平面计算程序:【JLGF】 8 8、任意多边形面积计算程序:【MJ】 8 9、四边形平差计算程序:【DDSBX】 8 10、坐标换带计算程序:【ZBFD】 11 11、两直线交点计算程序:【L-XY-L】 12 12、高斯投影坐标计算程序:【GSBL-XY】 12 13、竖曲线计算程序:【SQX】 13 14、复曲线计算程序:【FQX】 13 15、匝道计算子程序:【FQX】 14 1、方位角计算程序:【FWJ】 置镜点A＂X【Z】＂:B＂Y【Z】＂:后视点C＂X【H】＂:D＂Y【H】＂:前视点E＂X【Q】＂:F＂Y【Q】＂( M=C-A:N=D-B:V=E-A:W=F-B:L=√（M2+N2）:S=√（V2+W2）:I=AbsTan-1（N÷M）:Q= AbsTan-1（W÷V）( M＞0＝＞Goto 1:≠＝＞Goto 2( Lbl 1( N＞0＝＞O=I:Goto 3:≠＝＞O=360-I:Goto 3( Lbl 2( N＞0＝＞O=180-I:Goto 3:≠＝＞O=180+I:Goto 3( Lbl 3( V＞0＝＞Goto 4:≠＝＞Goto 5( Lbl 4( W＞0＝＞H=Q:Goto 6:≠＝＞H=360-Q:Goto 6( Lbl 5( W＞0＝＞H=180-Q:Goto 6:≠＝＞H=180+Q:Goto 6( Lbl 6( O＞H＝＞X=O-H:Goto 9:≠＝＞X=O-H+360:Goto 9( Lbl 9( ＂F【Z-H】=＂:O ◢ ＂L【Z-H】=＂:L ◢ ＂F【Z-Q】=＂:H ◢ ＂L【Z-Q】=＂:S ◢ ＂f【H-Z-Q】=＂:360-X（左角）◢ ＂f【Q-Z-H】=＂: X（右角） 计算示例: 点名 X (m) Y (m) 方位角 °′＂ 边长 (m) 左夹角 °′″ 右夹角 °′″ H 645733.941 397808.152 184 39 50.1 242.0214 173 20 22.3 186 39 37.7 Z 645492.721 397788.473 178 00 12.4 321.160 Q 645171.756 397799.662 2、转换坐标与高程程序:【0】 计算选择:1.坐标计算;2.高程计算。 P＂FZ04:XY=1:H=2＂( P=1＝＞Prog＂XY-1＂:≠＝＞Prog＂H-1＂ 3、坐标计算主程序:【XY】 计算任意点里程K＂LC ＂:左侧点与中心点距离A＂B-L ＂:右侧点与中心点距离B＂B-R ＂:结构物前半跨U ＂KJ-Q＂:结构物后半跨V ＂KJ-H＂:线路中心与左右侧点连线夹角（切线顺时针旋转）Q＂JA ＂:放样点中心与设计点中心偏位（左侧为负值，右侧为正值）C＂PC【L（-）:R（+）】＂:起点里程H＂ZH（Y）＂:起点里程坐标M＂X【0】＂:N＂Y【0】＂:曲线半径R ＂R ＂:缓和曲线长度L＂LS ＂:方位角F＂F0 ＂:转角G＂ZJ ＂:曲线转角方向（左转曲线为-1，右转曲线为+1）Z＂ZX【L（-1）:R（+1）】＂:S= K-H:T=πRG÷180( R=0＝＞X=M+ScosF:Y=N+SsinF:E=F:Goto7:≠＝＞Goto 1( Lbl 1( L=O＝＞I=90ZS÷π÷R:D=Abs（2RsinI）:E=F+2I:X=M+Dcos（F+I）:Y=N+Dsin（F+I）: Goto7:≠＝＞Goto 2( Lbl 2( S≤L＝＞I=30ZS2÷π÷R÷L:D=S-S5÷90÷R2÷L2:E=F+3I:X=M+Dcos（F+I）:Y=N+Dsin（F+I）: Goto 7≠＝＞Goto 3( Lbl 3( S≤T＝＞I=90Z（S-L）÷π÷R:D=Abs（2RsinI）:E=F+3(30ZL÷π÷R) +2I:X=M+(L-L3÷90÷R2)cos(F+30ZL÷π÷R)+Dcos（E-I）:Y=N+(L-L3÷90÷ R2)sin(F+30ZL÷π÷R)+Dsin（E-I）:Goto7:≠＝＞I=30Z(T+L-S)2÷π÷R÷L :D=(T+L-S)- (T+L-S)5÷90÷R2÷L2:E=F+ZG-3I:X=M+(（R+L2÷24÷R）Tan（G／2）+L÷2-L3÷240／R2)（co