发布时间 : 星期二 文章4500计算程序更新完毕开始阅读e4a6810c9ec3d5bbfc0a7468
CASIO fx4500P计算器实用程序
说明：①程序用以推算导线边的坐标方位角(左角公式)； ②程序中：B=已知方位角、I=转折角(左角)；
③语句B=D是为其它程序调用本程序而预设的，此处无具体用途；
④算例：按Prog 4调用程序显示B？输入已知方位角120.10214按EXE键、显示I？输入转折角160.01217，按EXE键、显示所求方位角100.11431；
⑤若转折角为右角，将语句B=B+I－180改为B=B－I+180即可。
程序9——坐标正算
文 件 名 4 坐 标 正 算 L1 Prog B:X=Rec(L, B)+X▲Y=Y+W
说明：①程序根据已知坐标、边长及其坐标方位角计算待定点坐标； ②程序中：B=坐标方位角、L=边长、X=已知点纵坐标、Y=已知点横坐标； ③算例：按Prog3调用程序显示B？输入坐标方位角100.11431，按EXE键、显示L？输入边长151.213，按EXE键、显示X？输入已知点纵坐标1000，按EXE键、显示待定点纵坐标973.2346789，按EXE键、显示Y？输入已知点横坐标2000，按EXE键、显示待定点横坐标2148.825364。
22步 程序10——坐标方位角交会计算
文 件 名 5 坐 标 正 算 100步 L1 Lbl 0:{ I }:Prog D:S=B+I:A\－X tanB +Y－C)/(tanS－tanB▲C+tanS(E－A▲Pol(A－E,C－Ans▲B=B－W: Prog A:Prog C▲B=F:Goto 0
说明：①程序利用已知方位角，计算测站上任意方向线与轴线相交的距离及交点坐标和该交点作为测站后与轴线的夹角；
②如下图，程序中：B=已知方位角、I=观测角、A(X0)=测站纵坐标、C(Y0)=测站横坐标、X=轴线上任意点纵坐标、Y=轴线上任意点横坐标、N=轴线方位角；
版权所有? 2003-2005 XCAJCJ
3
CASIO fx4500P计算器实用程序
（X0，Y0）（X，Y） ③算例：按Prog5调用程序显示B？输入已知方位角150.01252，按EXE键、显示I？输入观测角110.30，按EXE键、显示X0？输入测站纵坐标100，按EXE键、显示Y0？输入测站横坐标100，按EXE键、显示X？输入轴线方向上任意点纵坐标80，按EXE键、显示Y？输入任意点横坐标150，按EXE键、显示N？输入轴线方位角210.12374，按EXE键、显示交点纵坐标111.3973848，按EXE键、显示交点横坐标168.2813366，按EXE键、显示测点至交点的距离69.22601608，按EXE键、显示该交点作为测站后与轴线的夹角09.41122，按EXE键、显示I？输入观测角……
④程序所用正切公式如图所示：已知两方向、两点坐标，求其交点P的坐标；
XP?XAtg?AP?XBtg?BP?YB?YA
tg?AP?tg?BPYP?YA?(XP?XA)tg?AP
程序11——垂距计算
文 件 名 6 垂 距 计 算 L1 Prog B:D=B:Prog 2▲B=W－D:Vcos B▲Vsin B
说明：①程序用以计算勘探点偏离轴线的距离；
27步 4 版权所有? 2003-2005 XCAJCJ
CASIO fx4500P计算器实用程序
②如图，程序中：B=轴线坐标方位角、A(X0)=轴线控制点的纵坐标、C(Y0)=轴线控制点的横坐标、X=勘探点纵坐标、Y=勘探点横坐标；
偏移距③算例：按Prog 6调用程序显示B？输入轴线坐标方位角301.09505，按EXE键、显示X0？输入轴线上控制点的纵坐标138.579，按EXE键、显示Y0？输入轴线上控制点的横坐标1321.474，按EXE键、显示X？输入勘探点的纵坐标341.871，按EXE键、显示Y？输入勘探点的横坐标986.408，按EXE键、显示控制点至勘探点的距离391.914355(斜距)，按EXE键、显示控制点至勘探点的坐标方位角301.1446034，按EXE键、显示控制点至勘探点的距离(平距)391.9139527，按EXE键、显示勘探点偏离轴线的距离0.561530147(垂距)；
④如果勘探点偏离轴线的距离为正值，表示该点在轴线右侧；若为负值，则该点在轴线左侧。
程序12——视差法测距计算
文 件 名 7 视 差 法 测 距 计 算 L1 Prog D:KTH:1/tan(B/2▲H=Ans tan I＋H＋K－T
说明：①程序用以计算2M横基尺视差法测距的边长及高程； ②程序中：B=视差角、I=垂直角、K=仪高、T=觇标高、H=测站高程；
③算例：按Prog 7调用程序显示B？输入视差角2.33176，按EXE键、显示I？输入垂直角1.45386，按EXE键、显示K？输入仪高1.432，按EXE键、显示T？输入觇标高1.405，按EXE键、显示H？输入测站高程443.425，按EXE键、显示测站至测点的距离
版权所有? 2003-2005 XCAJCJ
- +轴线 30步 5
CASIO fx4500P计算器实用程序
44.84444364，按EXE键、显示测点高程444.8305217。
程序13——剖面交点计算
文 件 名 8 剖 面 交 点 计 算 55步 L1 Prog B:L:D=B:B=J:Prog D:N=D－B:M=I－D:Abs(LsinM/sin(M+N▲Abs(L sin N/sin(M+N
说明：①程序8用以计算剖面交点距离； ②输入坐标方位角时不用考虑方向性；
③算例：如图,按Prog 8调用程序显示B？输入坝1的坐标方位角96.0303或276.0303，按EXE键、显示L？输入坝1交坝Ⅱ围Ⅰ的距离21.9，按EXE键、显示J？输入坝Ⅱ的坐标方位角301.0950或121.0950，按EXE键、显示I？输入围Ⅰ的坐标方位角307.1202或127.1202，按EXE键、显示坝Ⅱ交围Ⅰ及坝1的距离107.7198781，按EXE键、显示围Ⅰ交坝1坝Ⅱ的距离88.38012441。
坝ⅡJ=107.72I=88.38B=21.9坝1溢Ⅰ 程序14——前方交绘计算
文 件 名 9 前 方 交 绘 计 算 65步 L1 A\－C+Y)/(M+N▲(CN+ Y M+A－X)/(M+N 说明：①程序9用以计算前方交会法中待定点的坐标；
②程序采用余切公式计算坐标，三角形点号应按逆时针编排。若是顺时针排列，观测角应以负值输入；
6 版权所有? 2003-2005 XCAJCJ