CASIOfx-9860计算器三维线路计算程序程序清单AADo:Deg:ClrText“F1Fangyang”“F2Jiance”“F3suidao”‘FN:6→V:3→I:Prog“GN”‘XL:3→V:Prog“GN”Prog“FN”:ClrText“Cont”:1→W:Prog“SC”LpWhileF=1ZZList7[1]→I:List8[I]→I:1→VDo:I1→I:List9[I1]→QLpWhileK>Q-List12[I1]List10[I]→M:List11[I]→NList16[I]→S:List17[I]→RList9[I]→Q:-List12[I]→J6→W‘QH:QJ→Q:Prog“SC”:Prog“GN”K-Q→J:1E-20→B:List13[I]→OO<0=>1÷List17[I-1]→BAbsO→O:(1÷R-B)÷2÷O→CZX:IfJ<0:ThenProg“SC”Return:IfEnd7→W‘HQ:IfJ
List17[I1]→RAbsO→O:(1÷R-B)÷2÷O→C7→W‘HQ:IfJReturnProg“ZZ”:Prog“GN”Do:ClrText:4→W:0→L“F1Daoxian”:“F2Shexian”:“F32Bian”‘FN:6→V:3→I:Prog“GN”:F→V:F=3=>2→V“J”?->r:r→J:“A”→θ:θ→A‘SX.DX:ClrText:Prog“GN”‘“XY”:Prog“SC”‘SX:IfF=3:Then-J→r:A→θProg“GN”:Prog“SC”:IfEnd:“OK”▲ClrText:“F1Next”:“F2K?”:“F3Quit”‘FN:6→V:3→I:Prog“GN”LpWhileF=1:LpWhileF=2Return:IfEnd‘JC:IfF=2:ThenDo:ClrText“Jiance”:0→List25[1]“F1Lumian”:“F2Bianpo”:“F32D”‘FN:6→V:3→I:Prog“GN”:F→U‘K?:5→V:Prog“GN”:I=0=>ReturnDo:‘FS:“X”?→X:“Y”?→Y7→V:Prog“GN”:I=0=>Return‘“KJ”:ClrText:0→L:5→W:Prog“SC”IfU≠3:Then“Z”?→ZList7[1]→I:List8[I]→AIfList25[1]=0:Then‘ZG:8→V:Prog“GN”3→W:Prog“SC”:‘DM:0→W:Prog“SC”‘LJ:9→W:Prog“SC”:IfEndIfU=1:Then“-H”?→R:ElseZ-G→R:IfEnd‘PK:0→V:Prog“GN”IfU=1:ThenAbsJ→r:Z-R-H-(r-K)C→R:r-K-Q→JElseAbsJ-E-Q→J:List25[1]→Q:J→List25[1]Q≠0=>QJ÷(Q-J)→J:IfEnd‘“dKdH”:0→L:2→W:Prog“SC”:“OK”▲IfU=2:ThenClrText“NextPJ”:1→W:Prog“SC”:F=1=>0=>List25[1]IfEnd:IfEnd:ClrText“F1Next”:“F2Menu”:“F3Quit”‘FN:6→V:3→I:Prog“GN”LpWhileF=1:LpWhileF=2Return:IfEnd主功能子程序放样计算“放样”输入里程中桩坐标计算指定显示坐标模式F1导线,F2射线,F3二边接受F1~F3功能键读取测线长,转角执行导线或射线计算显示坐标如按键是F3再算对称点计算,显示图形第二点坐标F1下一点,F2更换中桩,F3退出放样接受F1~F3功能键执行上述按键对应的F1~F2功能如是F3退出检测计算“检测”F1路面,F2边坡,F32维”接受F1~F3功能键输入近似里程输入待检坐标执行反算求出里程和位置显示里程和位置如不是F3则输入测点高程获取纵横断面数据行号如第一次测断面则计算中桩高显示中桩高,获取断面数据行号计算硬(土)路肩高,宽,如F1待检层距路面高,F2计算测点和土路肩高差求测点边坡宽(相对路肩)如F1求相对路面边的高宽超欠如F2求相对土路肩高差和边坡宽基本超欠如不是第一点则考虑原地面坡度修正宽超欠显示高差,宽度超欠如F2检测边坡时询问“下一坡脚F1是F2否”F1则将上次测点距边坡归零如是F3不执行输入测点高及以上语句F1继续原来功能F2返回功能选单F3退出检测接受F1~F3按键执行上述按键对应的F1~F2功能如是F3退出GNIfV=1OrV=2:ThenSθ→θ:{M,N}Rec(r,θ)ListAns[1]→r:ListAns[2]→θIfV=1:Thenr→M:θ→N:SA→S:IfEndReturn:IfEndIfV=3:ThenDimList6→Q:Q=1=>StopDo:ClrText:“”:?→I:IntAbsI1→ILpWhileI<2OrI>Q:I→List7[I]Return:IfEndIfV=4OrV=5:ThenList7[1]→IList6[I]→Q:List7[I]→M:IfV=5:ThenClrText“XL”:“QDK”:“ZDK”:Locate4,1,I-1Locate4,2,Q:Locate4,3,M:“K”?→K:IfEndIfKM:Then0→I:“Kover”▲ElseList8[I]→I:IfEnd:Return:IfEndIfV=6:ThenDo:Do:8.9-GetKey÷10→FLpWhileFracF≠0:LpWhileF>I:Return:IfEndIfV=7:ThenDo:Prog“ZZ”:Prog“GN”Pol(X-M,Y-N):ListAns[1]→MRec(M,ListAns[2]-S:ListAns[2]→JP*listAns[1]÷(P-J)→Q:KQ→K4→V:Prog“GN”:I=0=>ReturnLpWhileAbsQ>1milli:Return:IfEndIfV=8=:ThenList9[A]→θIfθ<0:ThenClrText:“ZG”:1→W:Prog“SC”IfF=1:Then–θ→θ:Return:Else0→θ:IfEnd:IfEndIfθ=0:Then“ZG”?→θ:-θ→List9[A]:Return::IfEndθ→I:Do:List18[I1]→P:List21[I]→NList19[I]→Q:List18[I]→O:I1→I:P-O→PNAbsP÷P→N:Abs(NP÷2)→PLpWhileK>QP:K-Q→Q:List20[I]OQ→θQP→Q:Q>0=>θQ2÷2÷N→θ:Return:IfEndIfV=9:ThenIfr<0:ThenDo:List22[I]→PList23[I]→Q:I1→I:List22[I]→N:List23[I]→OLpWhileK>N:IfEndElseDo:List22[I]→P:List24[I]→Q:I1→IList22[I]→N:List24[I]→O:LpWhileK>N:IfEnd(K-P)÷(N-P)→P:3P^(2^S)-2P^(3^S)→PQP(O-Q)→I:Return:IfEndIfV=0:ThenD→I:Do:List25[I]→P:List26[I]→QI1→I:List25[I]→N:List26[I]→OLpWhileRO(R-P)÷(N-P)→P:QP(O-Q)→Q:Return:IfEnd功能子程序计算下一点坐标射线计算如果V=1把终点作为起算点(导线)输线路号,无数据时退出输入线路号如有数据,线路所在行号保存到List7[1]检查里程取得起点里程终点里程线路起终点里程显示已知数据,提示输入里程如果里程不在范围则“K超范围”否则输出平曲线数据所在行号识别按键F1~FI只对F1~FI有效反算,先算出中桩坐标求出测点到中桩距离求出到切线垂直距离计算切线方向改正量检验里程是否超限切线改正量小于1mm则结束计算中桩高程如果上次高程为手输,则询问是保留F1是F2否F1用原数据,F2重输入手工输入中桩高自动计算中桩高,读出后坡,半径变坡里程,前坡,求坡差求半径和切线长如果在竖曲线内则计算直坡各点高在竖曲线上的加上改正量直线或3次抛物线内插求值查左线数据库,查右线数据库求出比例系数内插求值边坡宽直线内插求值查询变坡点找到高程点所在坡面直线内插求出边坡宽SCIfW=1:Then“F1Yes”:“F2No”6→V:2→I:Prog“GN”:Return:IfEndIfW=2:Then“dG=”:”dK=”:L2→LLocate4,L-1,R:Locate4,L,J:Return:IfEndIfW=3:Then“ZG=”:L1→LLocate4,L,θ:Return:IfEndIfW=4:Then“X=”:”Y=”:L2→LLocate3,L-1,r:Locate3,L,θ:Return:IfEndIfW=5:Then“K=”:”J=”:L2→LLocate3,L-1,K:Locate3,L,J:Return:IfEndIfW=6:Then0→A:0→θ:J→r:1E20→P:Return:IfEndIfW=7:ThenJrList2(CJList2B)→List3Jlist1cosList3:SumListAns→rJlist1sinList3:SumListAns→θJr(CJB)→A:Pol(r,θ):ListAns[1]→rListAns[2]→θ:1÷(2CJB)→P:Return:IfEndIfW=8:ThenJr÷R→A:A÷2→θ2Rsinθ→r:R→P:Return:IfEndIfW=9:ThenJ→r:List10[A]→MList14[A]→R:List11[A]→TList12[A]→C:List15[A]-1→SIfS=-2:ThenClrText“NextLm”:1→W:Prog“SC”:F-3→S:IfEndIfS=-1:ThenS→List15[A]“CG”?→C:C→List12[A]“KD”?→M:M→List10[A]“TJ”?→T:T→List11[A]“CZ”?→R:R→List14[A]ElseIfS=0OrS=1:Then7→V:C→IProg“GN”:I→C:T→I:Prog“GN”:I→TM→I:Prog“GN”:I→M:R→I:Prog“GN”:I→RIfR<0:ThenIfAbsC>0.02:Then–JC→rM→I:Prog“GN”:I→R:R(AbsC-0.02)θ→θ:IfEnd0→R:IfEnd:θMC→HIfC<-0.04:ThenHTC→θ:ElseH-0.04T→θ:IfEndRM→K:KT→r:Return:IfEndIfW=0:ThenList13[A]→IIfI<0:Then2→D:IfI=-1:ThenClrText“NewDm”:1→W:Prog“SC”:F-2→I:IfEndIfI=0:Then“H”?→List25[D]:“W”?→List26[D]Do:D1→D:“H”?→List25[D]:“W”?→List26[D]ClrText:“NextBp”:1→W:Prog“SC”:LpWhileF=12→D:-1→List13[A]:IfEnd:Return:IfEnd7→V:Prog“GN”:O→D:Return:IfEnd输出等子程序是否选项F1是F2否接受F1,F2键高度和宽度误差显示显示数值高程输出显示显示数值坐标输出显示显示数值位置输出显示显示数值直线延长计算,转角,偏角,弦长,半径缓曲延长计算,分偏角计算坐标分量计算坐标分量计算转角,弦长偏角,半径圆曲延长计算,转角,偏角弦长,半径路肩高宽计算,路面保存位置分隔带,土路肩宽保存位置超高保存位置,线路等级(内插方式)或数据写入状况如上次数据是手工临时输入提示是用原数据还是重输如要求重输,则先改写数据写入状态为已输入输入超高输入路面宽输入土路肩宽输入分隔带半宽如已知线路等级则按内插方式计算C超高,T,土路肩宽M路面宽,分隔带宽如分隔带宽小于0,且超高大于2%计算曲线内侧路面宽,改正中桩高计算路面边高以-4%坡为界,分别计算土路肩高计算路面宽,土路肩宽断面号查询如临时断面数据已输入提示用原断面还是重输入如要求重输,先输入第一个边坡点输入第二个边坡点提示是否还输入下一点将数据状态改为已输入,输出2为断面数据位置否则查表找出断面数据位置.使用说明书一、数据准备1、高斯公式常数表高斯公式五节点10个常数保存在LIST第1、2列，共占5行。如要提高运算速度或提高结果精度可改变此两列数据。2、线路数据格式线路数据保存在LIST的6~8列，第一行第7列保存运行时线路选择结果。从第二行开始保存各条线路基本情况，第6列为起点里程，第7列为终点里程，第8列为对应线路数据的详细资料的起始行号，数据必须连续存放。3、平曲线数据格式各条线路对应的平曲线数据分段保存在LIST的9-17列，各条线路保存顺序不限，每条线路数据连续存放。每段的第一行各列为横断面有关数据保存的起始位置或计算参数。第9列为竖曲线，第10列为路面宽度，第11列为土路肩宽度，第12列为超高，第13列为线路等级，第14列为超高旋转方式，第15列为边坡
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
形式。第一行第17列为第一个交点第一缓曲为不完整曲线时的起始半径，如为0表示起点是直线。第二行起为交点资料，第9列为交点里程，第10列为交点X坐标，第11列为交点Y坐标，第12列为第一缓曲段长度（不完整时长度为负），第13列为圆曲线段长度，第14列为第二缓曲段长度（不完整时长度为负），第15列为圆曲线半径（右转为正），第16列为起点切线方位角，第17列为第一切线长度。最后一行第9列是终点里程，第15列为最后一个交点第二缓曲为不完整曲线时的终点半径，如为0表示终点是直线，第17列必须为0。此种数据格式可适应主线交点法及匝道线元法设计资料，主线按设计资料对应输入即可，匝道则先组合成不同的交点，每个交点为直、缓、圆、缓、直的组合，但每段长度都可为0，缓和曲线可为不完整的，令交点里程为第一缓曲起点里程，切线长为0。有一段匝道如下线元组合，线元长略。第1段：直线第2段：缓曲第3段：圆R=200第4段：缓曲第5段：圆R=100第6段：缓曲第7段：直线可以分成1、2、3、4和5、6、7两个交点也可分成1、2、3和4、5、6、7两个交点，只要算出每个交点第一个曲线元的起始坐标、方位角就行。连续的数据库中把不完整的缓和曲线线元4的缓曲长改成负的程序就会自动处理。4、竖曲线数据格式各条线路对应的竖曲线数据分段保存在LIST的18-21列，各条线路保存顺序不限，每条线路数据连续存放。第一行起为竖曲线资料，第18列为前坡度（上坡为正），第19列为变坡点里程，第20列为变坡点高程，第21列为竖曲线半径（下凹为正）。最后一行18列为后坡度。5、横断面数据格式各条线路对应的路面宽度、路肩宽度、路面超高（向路肩下坡为正）、边坡形式数据（简称数据）分段保存在LIST的22-24列，各条线路保存顺序不限，每条线路数据连续存放。各行的22列为变化点里程，23列为左侧数据，24列为右侧数据。6、边坡详细数据各种边坡变坡点对应的距路肩宽度、高度数据分段保存在LIST的25-26列，各种边坡形式保存顺序不限，每种边坡数据连续存放。每种边坡形式数据的第25列为变坡点距路肩高差，第26列为变坡点距路肩宽度。二、修改程序为了更方便的使用，GN子程序的线路选择模块暂写了“”，双引号里在正式程序里用序号和线路名称的对照表代替，大致格式如下，每组双引号里内容不超过20字符，每7行加一▲例如：“1：ZHUXIAN”：“2：A-ZADAO”：“3：B-ZADAO”：“4：C-ZADAO”“5：D-ZADAO”：“6：E-ZADAO”：“7：F-ZADAO”▲“8：G-ZADAO”：“9：H-ZADAO”：“10：I-ZADAO”三、程序使用㈠运行AA程序1、屏幕提示开始功能选项F1 FangyangF2 JianceF3 Suidao分别代表“放样、检测、隧道”，按F1-F3选择相应功能(隧道部分尚未编写)2、屏幕接着提示1：线路12：线路2……XL？输入线路号3、进入选中线路并执行相应功能。4、执行完上述功能后屏幕提示ContF1YesF2No按F1重新返回第一步按F2结束运行程序㈡放样功能执行流程1、屏幕提示QD：#####.###ZD：#####.###K？输入待测里程里程在线路范围到下一步，否则结束本次放样计算。2、屏幕提示F1 DaoxianF2 ShexianF3 2Bian分别表示以导线方式延伸测量、向周围放射测量、成对对称测量，按F1-F3执行相应计算。J？输入到起算点距离
浙公网安备 33021202002483