2024年4月13日发(作者：介忆灵)
《CASIO fx-4800、4850、5800测量程序集》
坐标放样(fx-4800)
一.源程序:
主程序:
Prog“CZ”：Prog“HS”：Lbl o：{XY}：Pol（X-A，Y-S）：J U=J-Z[2]:U Goto o L=oU“” ◢ J“” ◢ I“P.D” ◢ Prog“BCXZ”： 子程序：CZ A“X（CZ）”：S“Y（CZ）”：W“X（HS）”：D“Y（HS）”： L“SPJ=o，FWJ=1” 子程序：HS I=o：J=o：Pol（W-A，D-S）：Z[1]“D（HS）”=I ◢ J J ◢ 子程序：BCXZ I“DS”=I÷（（1+（（Y+S）÷2-5 E 5） ² ÷2÷6371000 ²+ （Y-S） ² ÷24÷6371000 ² ）× （1-300÷（6371000+300））） ◢ Z[2]“FWJ（HS）”= 二.程序功能： 本程序能根据已知坐标进行放样计算。 三.程序说明： 子程序BCXZ中的“„„1-300÷（6371000+300）„„”中的“300”为测区平均高程， 主要是针对测区位于高斯坐标投影带边缘而设立的，不同测区时应重新设定之。 四.运行操作： 运行时： X（CZ）？ 请输入测站坐标 Y（CZ）？ X（HS）？ 请输入后视坐标 Y（HS）？ SPJ=0，FWJ=1？ 以水平角放样键“0”，以方位角放样键“1” D（HS）= 显示后视平距 FWJ（HS）= 显示后视方位角，按 后以 °′″格式显示 X？ 请输入待放点坐标 Y？ （或） 显示待放点水平角（或方位角） P.D 显示待放点理论平距 DS= 显示待放点修正平距 . . . . . . X？ 请输入待放点坐标 Y？ 《CASIO fx-4800、4850、5800测量程序集》 引点计算(fx-4800) 一.源程序: 主程序: Prog“CZ”：M“H（CZ）”：Prog“HS”：Lbl o：{PVH}：L=oP=P“SPJ”+Z[2]： P “FWJ”V“D”：H“h”：X=A+Vcos P ◢ Y=S+Vsin P ◢ H=M+H+6.7336 E -8 V ² ◢ Goto o 子程序：CZ A“X（CZ）”：S“Y（CZ）”：W“X（HS）”：D“Y（HS）”： L“SPJ=o，FWJ=1” 子程序：HS I=o：J=o：Pol（W-A，D-S）：Z[1]“D（HS）”=I ◢ J J ◢ Z[2]“FWJ（HS）”= 二.程序功能： 本程序能根据水平角（或方位角）、平距、高差进行三维坐标计算。 三.程序说明： 角度以°′″格式输入。 四.运行操作： 运行时： X（CZ）？ 请输入测站坐标 Y（CZ）？ X（HS）？ 请输入后视坐标 Y（HS）？ SPJ=0，FWJ=1？ 以水平角键“0”，以方位角键“1” H（CZ）？ 请输入测站高程 D（HS）= 显示后视平距 FWJ（HS）= 显示后视方位角，按 后以 °′″格式显示 SPJ（或FWJ）？ 请输入引点的水平角（或方位角） D？ 请输入引点的计算平距 h？ 请输入引点的计算高差 X= 显示引点坐标 Y= . . . . . . SPJ（或FWJ）？ 请输入引点的水平角（或方位角） 五.示例： 略 2003年10月 2024年4月13日发(作者：介忆灵) 《CASIO fx-4800、4850、5800测量程序集》 坐标放样(fx-4800) 一.源程序: 主程序: Prog“CZ”：Prog“HS”：Lbl o：{XY}：Pol（X-A，Y-S）：J U=J-Z[2]:U Goto o L=oU“” ◢ J“” ◢ I“P.D” ◢ Prog“BCXZ”： 子程序：CZ A“X（CZ）”：S“Y（CZ）”：W“X（HS）”：D“Y（HS）”： L“SPJ=o，FWJ=1” 子程序：HS I=o：J=o：Pol（W-A，D-S）：Z[1]“D（HS）”=I ◢ J J ◢ 子程序：BCXZ I“DS”=I÷（（1+（（Y+S）÷2-5 E 5） ² ÷2÷6371000 ²+ （Y-S） ² ÷24÷6371000 ² ）× （1-300÷（6371000+300））） ◢ Z[2]“FWJ（HS）”= 二.程序功能： 本程序能根据已知坐标进行放样计算。 三.程序说明： 子程序BCXZ中的“„„1-300÷（6371000+300）„„”中的“300”为测区平均高程， 主要是针对测区位于高斯坐标投影带边缘而设立的，不同测区时应重新设定之。 四.运行操作： 运行时： X（CZ）？ 请输入测站坐标 Y（CZ）？ X（HS）？ 请输入后视坐标 Y（HS）？ SPJ=0，FWJ=1？ 以水平角放样键“0”，以方位角放样键“1” D（HS）= 显示后视平距 FWJ（HS）= 显示后视方位角，按 后以 °′″格式显示 X？ 请输入待放点坐标 Y？ （或） 显示待放点水平角（或方位角） P.D 显示待放点理论平距 DS= 显示待放点修正平距 . . . . . . X？ 请输入待放点坐标 Y？ 《CASIO fx-4800、4850、5800测量程序集》 引点计算(fx-4800) 一.源程序: 主程序: Prog“CZ”：M“H（CZ）”：Prog“HS”：Lbl o：{PVH}：L=oP=P“SPJ”+Z[2]： P “FWJ”V“D”：H“h”：X=A+Vcos P ◢ Y=S+Vsin P ◢ H=M+H+6.7336 E -8 V ² ◢ Goto o 子程序：CZ A“X（CZ）”：S“Y（CZ）”：W“X（HS）”：D“Y（HS）”： L“SPJ=o，FWJ=1” 子程序：HS I=o：J=o：Pol（W-A，D-S）：Z[1]“D（HS）”=I ◢ J J ◢ Z[2]“FWJ（HS）”= 二.程序功能： 本程序能根据水平角（或方位角）、平距、高差进行三维坐标计算。 三.程序说明： 角度以°′″格式输入。 四.运行操作： 运行时： X（CZ）？ 请输入测站坐标 Y（CZ）？ X（HS）？ 请输入后视坐标 Y（HS）？ SPJ=0，FWJ=1？ 以水平角键“0”，以方位角键“1” H（CZ）？ 请输入测站高程 D（HS）= 显示后视平距 FWJ（HS）= 显示后视方位角，按 后以 °′″格式显示 SPJ（或FWJ）？ 请输入引点的水平角（或方位角） D？ 请输入引点的计算平距 h？ 请输入引点的计算高差 X= 显示引点坐标 Y= . . . . . . SPJ（或FWJ）？ 请输入引点的水平角（或方位角） 五.示例： 略 2003年10月