FX5800(正反算可现场输入要素,可预先建好数据库)计算坐标

1、平 曲 线 程 序 运 行 提 示 符CASIO fx5800P 启动 提 示 符示例说 明NEW=0,Z1 =1选择数据库，新建选0X0?曲线起点X坐标Y0?曲线起点y坐标C0?问本段起点切线方位 1/R0?问本段起点曲率半径，直线为0，曲线左偏输入负值，右偏输入正值1/R1?问本段终点曲率半径，直线为0，曲线左偏输入负值，右偏输入正值DKA?问本段起点里程DKB?问本段终点里程正算坐标1，反算里程2；正算 DK问正算里程 PJ正斜交的设定 PL偏中距离，线路上的点输入0，右偏输入+值，左偏输入-值 正算显示正算显示切线方位角及坐标.距设站的距离，角度。反算 XD反算点x坐标 yD

2、反算点y坐标 Dk反算点大约里程 反算显示反算点里程及边距程序说明：1、该程序可以计算任意线形（直线、圆曲线、缓和曲线、不完整曲线）自然段任意桩号的坐标（正算，输入1），也可根据坐标计算该点到线路的距离及垂足桩号（反算，输入2）； 2、（NEW=0，Z1 =1）？如果要计算的点为数据库线路中的点，则输入数据库编号（以整数1、2、3代替输入）；如果在数据库中没有要计算线路的数据，则输入曲线要素；3、正算显示坐标及切线方位角及和设站点的距离角度；用坐标放样的可删除这个显示。反算输入线路的任意桩号（此桩号越接近真实值计算速度越快）、待求点坐标，显示待求点桩号及偏中距离；4、正算子程序为积分公式编写而

3、成；反算子程序为角度趋近的方法编写，计算速度有点慢。5、此程序显示较直观，结果在同一屏幕显示。注* ：程序中乘号用*标示，其余为X。欢迎加入QQ群42284044 66262135 一起学习 分享资料有51的朋友可以加入51群 FX5800（正反算、可现场输入要素，可预先建好数据库） 计算中边桩坐标Z     主程序 “NEW=0,Z1 =1”?ZIf  Z=0: Then  “X0=”?A: “Y0=”?B: “C0=”?C: “1/R0=”?D: “1/RI=”?E: “DKA=”?F: “DKB=”

4、?G:Ifend:"1.ZS,2.FS" ?Q              输入1正算，输入2反算Q=2=>Goto 2Lbl  1 :“DK?=,<0 Stop”?H:H<0=>Stop:“PJ=”?O:“PL=”?LLbl  Z:Z=1=>Prog“01”Z=2=>Prog“02”      

5、0;         （不想用数据库的可不写入。选择数据库文件，可增加,）H- FX:0.5(E-D)÷(G-F)NC+(XD+NX2)*180÷P：P<0=>P+360P：P>360=>P-360PA+(cos(C+(XD+NX2)*180÷),0,X)+Lcos(P+O)UB+(sin(C+(XD+NX2)*180÷),0,X)+Lsin(P+O)VQ=2=>Goto  4：Cls：Fix 3"Xn=&

6、quot;:Locate 4，1，U："Yn=": Locate 4，2，V： Norm 2：Cls：Goto  1Lbl  2:“XD=,<0,STOP”？R：R<0=>Stop:“YD=”？S“DK=”？H ：90O:0L：Goto  Z                 （H线路范围内的大约里程）Lbl &

7、#160;4:Pol（R-U，S-V）：J<0 => J+360JWhile  abs（Icos（J-P）0.001:P-J>180=> J+360J： P-J<-180=> P+360P:IF P-J>0:then -IL:else IL ifendGoto  3: Whileend：H+Icos（J-P）H:Goto  ZLbl  3:Cls：Fix 3“KM=”: Locate  4，1，H：“PY=”: Locate  4，2，LNorm 2：Cls：Goto