fx5800计算器的积分程序

《fx5800计算器的积分程序》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、FX5800计算器的积分程序（正反算、全线贯通、新线路）终极版ZHUCHENGXU    主程序“1.ZS,2.FS”?→Q              输入1正算，输入2反算  “NEW=0,OLD ≠0”?ZIf  Z=0:Then  “X0=”?A:“Y0=”?B:“C0=”?C:“1/R0=”?D:“1/RI=”?E:“SP=”?F:“EP=”?G:Ifend:Q=2=>Goto2Lbl  1:“KM=,<0Stop”?H:H<0=>Stop:“PJ=”?O:“PY=”?LLbl  Z:Z=1=>P

2、rog“01”：Z=2=>Prog“02”                选择数据库文件，可增加H-F→X:0.5(E-D)÷(G-F)→NC+(XD+NX2)*180÷π→P：P<0=>P+360→P：P>360=>P-360→PA+∫(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：Fix3“Xn=”:Locate  4，1，U：”Yn=”:Locate  

3、5，2，V：“FWJ=”：P▶DMS◢Norm2：Cls：Goto  1Lbl  2:“XD=,<0,STOP”？R：R<0=>Stop:“YD=”？S“KMDG=”？H：90→O:0→L：Goto  Z                （H线路范围内的任意桩号）Lbl  4:Pol（R-U，S-V）：J<0=>J+360→JWhile  abs（Icos（J-P））≤0.001:P-J>180=>J+360→J：P-J<-180=>P+360→P:IFP-J>0:then-I→L:elseI→Lifend

4、Goto  3:Whileend：H+Icos（J-P）→H:Goto  ZLbl  3:Cls：Fix3“KM=”:Locate  4，1，H：“PY=”:Locate  4，2，L◢Norm2：Cls：Goto  201（数据库子程序）IfH<=第一曲线终点桩号：then  第一曲线起点X→A：第一曲线起点Y→B：第一曲线起点方位角→C：起点曲率→D：终点曲率→E：起点桩号→F：终点桩号→G：return：ifend……………程序说明：1、该程序可以计算任意线形（直线、圆曲线、缓和曲线、不完整曲线）任

5、意桩号的坐标（正算，输入1），也可根据坐标计算该点到线路的距离及垂足桩号（反算，输入2）；2、（NEW=0，OLD≠0）？如果要计算的点为数据库线路中的点，则输入数据库编号（以整数1、2、3…代替输入）；如果在数据库中没有要计算线路的数据，则输入曲线要素X0：曲线起点X坐标；Y0：曲线起点Y坐标；C0:曲线起点方位角；R0-1、RI-1:曲线起点、终点曲率，直线为0，曲线左偏输入负值，右偏输入正值；SP、EP：曲线起点桩号，终点桩号；KM：待求点桩号；PJ：正斜交的设定；PY：偏中距离，线路上的点输入0，

6、右偏输入+值，左偏输入-值；3、正算显示坐标及切线方位角；反算输入线路的任意桩号（此桩号越接近真实值计算速度越快）、待求点坐标，显示待求点桩号及偏中距离；4、正算子程序为积分公式编写而成；反算子程序为角度趋近的方法编写，计算速度有点慢。5、此程序显示较直观，结果在同一屏幕显示。注*：程序中乘号用*标示，其余为X。一、程序功能        本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、曲线要数（SUB4,4-1）、边坡放样程序(

7、BIANPO)，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标及中桩高程，对该曲线段范围内任意里程中边桩坐标进行正反算。  二、源程序增加变量18→DimZ1.主程序(ZHUCHENXU)“1.SZ→XY，2.XY→SZ，3.SDYX，4.BIANPO“？N：Lbl1：”ZHUANGHAO=”?S：Prog“SUB3″：N≥2=>Goto2：Abs(S-O)→W：”BIANZHU=”?→Z:Prog“S

8、UB1″：Prog”SUB4″：“H=”H◢“XS=”:X→X◢”YS=”:Y→Y◢”FS=”:(F-90)→F:F►DMS◢Goto1Lbl2：”CX=”?X:X→I：”CY=”?Y:Y→J：”DMG=”?→Z[7]：Prog“SUB2″：“S=”:(O+W)→S◢”Z=”Z→Z◢Z→Z[17]:IfN=3:ThenProg”SDYX”:IfEnd：IfN=4:ThenProg”BIANPO”:IfEnd:Goto22.SU