casio 5800p sqx竖曲线高程计算程序.pdfVIP

CASIOfx-5800PSQX竖曲线高程计算程序V1.5

主程序：SQX

第1步LblA：8→DimZ：Fix6

第2步＂1=XS：2=DH＂：?Q：LblB：＂DK＂?C：Prog＂SQXSJ＂：A→Z[1]：B→Z[2]：C→

Z[3]：If（Z[1]-Z[2]）0：Then1→Z[8]：Else-1→Z[8]：IfEnd

第3步R×Abs（Z[1]÷100-Z[2]÷100）→L：L÷2→T：T^（2）÷2÷R→E：K-T→Z[4]：Z[4]+L→

Z[5]

第4步IfZ[3]≤Z[4]：ThenH-（K-Z[3]）×Z[1]÷100→X：Goto3：ElseIfZ[3]≥Z[4]AndZ[3]K：

ThenH+（Z[3]-K）×Z[1]÷100→Z[6]：（Z[3]-Z[4]）^（2）÷2÷R→Z[7]：Z[6]+Z[7]×Z[8]→X：Goto

3：ElseIfZ[3]=K：ThenH+E×Z[8]→X：Goto3：ElseIfZ[3]KAndZ[3]≤Z[5]：ThenH+（Z[3]-K）

×Z[2]÷100→Z[6]：（Z[5]-Z[3]）^（2）÷2÷R→Z[7]：Z[6]+Z[7]×Z[8]→X：Goto3：ElseIfZ[3]≥Z[5]：

ThenH+（Z[3]-K）×Z[2]÷100→X：IfEnd

第5步Lbl3：IfQ=1：ThenGoto1：ElseGoto2：IfEnd

第6步Lbl1：Cls：＂ZY＂：Locate4,1,Z[4]：＂YZ＂：Locate4,2,Z[5]：＂L＂：Locate4,3,L：＂

T＂：Locate4,4,T◢

第7步GotoA

第8步Lbl2：Cls：＂DK＂：Locate4,1,C：＂DH＂：Locate4,2,X◢

第9步GotoB

数据库：SQXSJ

第1步Goto1

第2步Lbl1：IfC5000.000OrC12000：ThenCls：Locate2,2,＂SQX＂：Locate4,3,＂CHAOXIAN＂：

Locate10,4,＂→Stop＂◢

第3步Stop：IfEnd

第4步Lb11：IfC5900：Then5800→K：323.527→H：20000→R：-0.5800→A：0.4200→B：Return：

IfEnd

第5步Lb11：IfC8982：Then8910→K：336.589→H：20000→R：0.4200→A：-0.3000→B：Return：

IfEnd

第6步Lb11：IfC12000：Then11187→K：329.758→H：20000→R：-0.3000→A：-0.5500→B：Return：

IfEnd

第n步……………………

注意：数据库中第2步止点里程12000和最后一步中的止点里程12000一致，否则计算最后一段直坡