casio-fx5800程序源.doc

平曲线程序运行提示符CASIOfx—?问综合曲线自然段数Z[MIN]?=提示现在自然段→DK?问本段起点里程→X?问本段起点纵坐标→Y?问本段起点横坐标→AT?问本段起点切线方位(以小数点为度)→(-1Y+1)?问曲线偏向,左赋值-1,右赋值+1,直线可赋0.→L?问本段曲线长→R1?问本段起点曲率半径→R2?问本段终点曲率半径JX→1:NO→0:OK→2?问是否校对,是赋值1,否赋值0,本综合段结束赋值2。(校对有误时可直接对显示值进行修改)END重复以上拾序步,直至本综合曲线各自然段赋值结束(赋值2)。特别提示:除起始自然段外,其后,各自然段X,Y,AT可缺省,其值均赋值为0,程序在首次运行时,依次计算各接点中桩坐标一次,则能自动补齐各缺省值。这一功能在匝道曲线方程建立时,十分有利。启动PPQX选择需计算的综合曲线提示符示例说明ZQX→0:ZD→1****→M?问在PPQX程序编写过程中,自定义的综合曲线属性,如:主曲线赋值0,匝道赋值1,等等。选择确定后,程序自动转向PQX,无需选择时可直接启动PQX。启动PQX进入坐标计算阶段XZ→0:YZ→1?问是否改变以前设定的工作状态,新工作状态赋值0,原工作状态赋值1。(选择原工作状态时,程序直接进入上阶段运行状态,无需再次设置工作与计算状态)BS→0:XY→1:AND→2:DK→3:→L(I)4?选择新状态时:问计算状态,极坐标放样赋值0,直角坐标赋值1,两种坐标都需要赋值2,求里程、边距赋值3,由里程求所在曲线段号赋值4。选择原工作状态时不问。极坐标放样问计算状态,赋值0时提示符示例说明→X1?问设站点纵坐标→Y1?问设站点横坐标→X2?问定向点纵坐标→Y2?问定向点横坐标,由原状态进入时,以上不问。S=B12=给出已知点间边长给出定向角→DKP?问测点里程(赋值0时转向程序运行终止)→B?问测点偏角(以小数点为度)→(-+)D÷2?问测点偏距BP=SP=给出测点方向给出测点边长S?问测点实测边长(赋值0时,转向测设下一点,问测点里程)BP=?S=给出测点方向给出修正值(-为退回、+为延伸)DKP>MAX提示测点里程超出本综合段终点里程DKP<MIN提示测点里程小于本综合段起点里程END程序运行终止(DKP=0时)直角坐标放样问计算状态,赋值1时XY(0)?0:≠?1?中桩赋值0,边桩赋值1→DKP?问测点里程(赋值0时转向程序运行终止)→B?问测点偏角(以小数点为度),中桩不问→(-+)D÷2?问测点偏距,中桩不问XP=YP=AT=给出测点纵坐标给出测点横坐标给出测点切线方向END序运行程终止(DKP=0时)两种坐标都需要问计算状态,赋值2时→DKP?同上*从略*同时给出以上两种结果END程序运行终止(DKP=0时)由里程求所在曲线段号问计算状态,赋值4时提示符示例说明→DKP?同上L(I),I=DK(MIN)=DK(MAX)=给出里程所在曲线段号。给出本曲线段最小里程给出本曲线段最大里程本功能只是反求里程的一个辅助功能,以便程序按指定所在曲线段方式进行反算,快速获得计算结果。反求里程边距问计算状态,(LI)→0:NO→1问反算形式,指定曲线段赋值0、不指定曲线段赋值1。按指定曲线段