搜索
1fx-5800P矩阵编程计算器《公路测量计算程序操作手册》感谢您fx-5800P矩阵编程计算器公路测量计算程序！本次fx-5800P程序提供公路路线计算、高程计算、测量放样计算、交会计算等计算程序。本程序特色为公路测量的全部数据（包括路线平面曲线，竖曲线，横坡度，路基宽度，路面结构层，水准点，导线点数据）储存在一台计算器上，紧密结合计算，实现外业或计算过程只要计算器一台，无需设计图纸。愿它给您的工程测量工作带来更大的方便，有误或有改进的地方敬请向联系作者指出以便完善改进。本程序只能在fx-5800P中运行，不能在fx-4500PA、fx-4800P及fx-4850P中运行！主程序名都是以字符、“11…”“23…”开头命名的，其余字符开头的程序均为子序（见下表表备注栏），用户只能运行“11…”~“92…”主程序，不能直接运行子程序。一、程序名及其功能列于表：序号程序名译名功能说明备注第1套功能：多个曲线的平面位置数据（放样）计算11FY放样计算输出路线放样坐标及方位角、距离主程序12CZZB测站坐标输入测站数据（XY），可输入已储存控制点编号主程序13ZW坐标计算计算输出路线设计坐标主程序GS改线储存改线数据子程序H缓（和曲线）内部计算缓和曲线数据（不输出）子程序DLP断链元素储存断链处理数据，（长短链）有不同的处理方法子程序P子程序PP储存平面曲线、加宽及超高数据子程序Q、Q1、Y、Z子程序00自动检查平面数据的准确性主程序2第2套功能：单个曲线的平面位置数据（放样）计算21XIN计算输出路线放样坐标及方位角、距离主程序22LAO输入平面曲线数据主程序23DSCZZB导线测站坐标输入导线点编号后设置测站坐标主程序0、1、10、2、3、4、5、6、8、9子程序第3套31SZ水准水准测量计算主程序第4套41CBJHF测边交会法测边交会法计算主程序第5套51XY-DJ坐标正算已知坐标计算方位角及距离主程序52DJ-XY坐标反算已知方位角及距离计算坐标主程序第6套61DSFWJ导线方位角导线方位角计算主程序62DS导线储存输出导线坐标（被61DSFWJ调用）主程序第7套71SZDBG水准点标高储存输出水准点标高主程序第8套81CJBG设计标高计算输出设计标高路基路面各层次各特征点（主程序）82ZZBG中桩标高计算输出中桩设计标高路基路面各层次（主程序）83DSQSBG单竖曲线标高计算输出单竖曲线标高单竖曲线（主程序）ZP纵坡储存竖曲线数据子程序第9套91HPD横坡度计算输出横坡度调用第1套PP主程序92LJKD路基宽度计算输出路基宽度调用第1套PP主程序3二、各程序代码：1、程序11FY，计算输出路线放样坐标及方位角、距离。XZ显示XZ（提示为测站X坐标）Locate8,2,Z[1]显示Z[1]值（测站X坐标）:YZ:W▲换行后显示W值（测站Y坐标）Lbl0Prog13ZW调用13ZWPol(X-Z[1],Y-W)IfJ0:thenJ+360→J:IfEnd变量J的值在0~360度之间Prog9变量J的转换成度分秒Locate9,3,J在9列3行显示J的值Fix3Locate1,1,X显示计算结果Locate1,2,YLocate1,3,J···角度（度分秒）Locate1,4,D(m)Locate8,4,I▲程序暂停，等待用户输入EXE后继续ClsProgDLPGoto02、程序12CZZB，输入测站数据（XY），可输入已储存控制点编号XZ？W提示XZ，输入测站X坐标IfW2000:ThenProg62DS:ElseW→Z[1]2000表示编号少于2000，如大于2000则认为是X坐标值YZ？WX:Z[1]▲Y:W▲IfEnd3、程序13ZW，输入桩号，计算设计坐标10→DimZ增加10个扩展变量L→Z[10]Z[10]为中间变量，以实现桩号自动递增或递减ProgPJJ?M提示JJ，输入与路线前进方向的右交角DR+L-?N提示DR+L-，输入与中桩的距离，右正左负F+M→F计算出中点至所要计算点的方位角Fix3：X+Ncos(F)→XClsLocate8,1,X输出X坐标Y+Nsin(F)→YLocate8,2,Y输出Y坐标44、程序HB-B^(5)÷(40A^(4))+B^(9)÷3456÷A^(8)→CB^(3)÷(6A2)-B^(7)÷336÷A^(6)+B^(10)÷42240÷A^(10)→DB2÷2÷A2÷π×180→E5、程序GS注：本程序可设定改线范围后，参照程序PP储存数据。（无改线可为空）6、程序DLP注：本程序可按设计分析断链位置后处理，方法不定，如长链可增一段一条线，短链可锁定桩号不予计算处理。（无断链可为空）7、程序PProgPP运行主元素程序ProgGS运行改线元素程序ProgQIfJ0:ThenJ+360→J:IfEndIfJ≧360:ThenJ-360→J:IfEnd以上二条命令设置方位角J在0~360度范围内8、程序PPLbl09*109→O9*109的值为无限大，O的值为无限大O→QQ的值为无限大0→Z[2]超高变量置00→Z[3]加宽变量置070→H缓和曲线长为70，输入大多数的长度，与此数（70）不同的在下面程序中加入，一样的无需再输入，以节约空间、减少运行步数。L≦0→L+20？L提示L≦0→L+20，输入桩号，输入少于等于0则桩号自动递增20计算IfL≦0:ThenZ[10]+20→L:IfEnd本句中的20为自动递增的数值，不同数值可在此改L→Z[10]IfL4000:ThenProgCYDD:Goto8:IfEnd设定一定的桩号范围运行一定的子程序，本例中桩号4000即运行CYDD的数据，返回Lbl8，不执行下面的语句。IfL630700OrL624000:Then“624000-630700”:Goto0:IfEnd设定桩号范围为624000-630700，执行以下数据语句。超出即返回Lbl0重新输入，注意以上两句的前后顺序，否则无法执行，一般桩号从小到大。624234.84→V缓直点桩号(多条曲线重复语句起点)IfLV:Then25841.054→X本例本交点的X坐标为25841.05426061.51→Y本例本交点的X坐标为26061.51263ˊ40ˊ44ˊ→F本例上一交点到本交点的方位角为263度40分44秒13ˊ37ˊ18ˊ→J本例本交点的转角为右13度37分18秒（左负右正）80→H本例本曲线的第一缓和曲线长80，与默认值70不同。800→P本例本曲线半径为800135.585→S本例本曲线的第一切线长135.585623964.65→U本例本曲线的直缓点桩号为623964.6553→Z[2]本例本曲线超高值为3%0→Z[3]本例本曲线的全加宽值为0米Else(多条曲线重复语句终点)重复（下一缓直点桩号）→V至上一句Else段的语句重复输入多条曲线数据。如嵌套层数超出计算器允许范围，则新建子程序后再在子程序中输入。IfEnd(以上输入多个条曲线元素则输入条数-1个IfEnd)Lbl8H→K使第二缓和曲线长度及切线长等于第一缓和曲线，为对称曲线，不对称的以下S→T一句方法处理。IfV=27263.33:Then80→K:308.23→T:IfEnd缓和曲线不对称的(本例缓直点为27263.33的曲线)，在此处输入第二缓和曲线的缓和曲线长度（80）和切线长度（308.23）。有几条就重复输入。9、程序QIFJ0:Then1→G:Else-1→G:IfEnd判断曲线的转角是左转或右转IfLU:ThenU-l+S→I180→CProgZElseifLV-K:ThenS→I:180→CProgZIfH0:Then√(HOP÷(O-P))→AA2÷O→BProgHC→QD→TE→KIfLU+H:ThenL-U+A2÷O→BProgQ1ElseA2÷P→BProgQ1ProgY:IfEndElseProgY:IfEndElseIfK0:ThenT→I:O→C:F-180→FProgZF-180→F√(KPQ÷(Q-P))→AA2÷Q→BProgHC→OD→SE→H6V-L+A2÷Q→BProgHPol(C-O,D-S)H-J→CProgZF-G(E-H)+180→FIfEnd:IfEnd:IfEnd9、程序Q1ProgHPol(C-Q,D-T)J-K→CProgZF+G(E-K)→F10、程序Y90→CP→IProgZ(L-U-H)÷P×180÷π→CF+90G-180→FP→IProgZF-90G+180+GC→F11、程序ZX+Icos(F+GC)→XY+Isin((F+GC)→Y12、程序00(自动检查平面数据的准确性)0→WLbl0ProgPPX→Z[5]Y→Z[6]V→Z[7]T→Z[8]F+J→Z[9]WhileZ[5]=XL+100→L步长100米检查是否同一曲线，可改，步长越少运行速度越慢7ProgPPWhileEndU-Z[7]+Z[8]+S→DX-(Z[5]+Dcos(Z[9]))→PY-(Z[6]+Dsin(Z[9]))→QIfPol(P,Q)0.01:Then1+W→WDL:C+D-▲W▲Pol(X-Z[5],Y-Z[6])-D▲V▲IfEndGoto0注：用主点桩号、切线长度、方位角、交点坐标、转角核对曲线元素的准确性，半径及缓和曲线长度无法核对。如以上核对有误则输入元素有误或存在断链，自动显示长短链长度。13、程序21XINXT?V输入上一交点X坐标V→LYT?W输入上一交点Y坐标W→EXJ?M输入本交点X坐标M→XYJ?N输入本交点Y坐标N→YProg0J→HProg4Prog6Lbl1L?KProg8Prog0X▲Y▲Prog4Goto1814、程序22LAO10→DimZJD?G交点JD点桩号Z[2]→FZ+R-?F转角值左正右负F→Z[2]-F→FAbs(F÷2)→Z[1]?R:LS?D缓和曲线长度（本程序只能计算缓和曲线长度相同的曲线，否则要换算）DD÷24÷R→P:D÷2-PD÷10÷R→QT:Q+Tan(Z[1])(R+P→T▲L:RZ[1]π÷90+D→LE(R+P)÷cos(Z[1]0-R→E▲ZH:G-T→S▲显示曲线的其它元素：T切线长，L曲线长，E外距，ZH~HZ为HY:S+D→C▲主点桩号QZ:S+L÷2→U▲YH:S-D+L→S▲HZ:G-T+L→S▲15、程序23DSCZZBProg62DSZ[1]→AW→B16、程序0tan-1((Y-E)÷(X-L))→JIfLX:ThenJ+180→J:IfEnd√((Y-E)2+(X-L)2)→O17、程序12U-G+T-K→IIfKU:ThenK-G+T→I:IfEndIfI0:ThenI→X:0→Y:0→JElse180(I-D÷2)÷π÷R→ZRsin(Z)+Q→XR-Rcos(Z)+P→Y90D÷π÷R＋180(I-D)÷π÷R→JIfID:ThenI∧(3)÷(2RD)→ZI-ZZ÷10÷I→XZ÷3-ZZZ÷(42II)→Y990II÷(πRD)→JIfEndIfEnd18、程序1090→Z0→OJJ?ZDR+L-?OIfO0:Then-O→O:IfEndIfKF-UF0:Then180-Z→Z:IfEndJ+Z→JIfZ≠0:Then-O→O:X+Ocos(J)→XY+Osin(J)→YIfEnd19、程序2IfK≤9::Then?A:A→X:?B:B→Y如果输入K值≤9则输入AB的值（测站坐标），ElseProg1:Prog3:Prog5否则以K桩号的中点坐标作为测站坐标IfEnd20、程序3-2Z[1]Y÷F→YH→ZIfKU:Then-Y→Y:H-F+180→ZIfEnd21、程序4IfJ0:ThenJ+360→J:IfEndJ◆DMS▲Fix3O▲22、程序5X→IM-Ysin(Z)+cos(Z)(I-T)→XN+Ycos(Z)+sin(Z)(I-T)→Y1023、程序6LCZ(≤9→XY)?KPro