卡西欧5800曲线放样程序.docx

主程序(CIR)1→W:”LOAD”?W:IfW=3:Then”ZJ”?A:”R”?B:”LO”?C:”ZHDK+M”?D:”JDX”?E:”JDY”F:”AO”?G:”1R,-1L”?H:IfEnd1赋予W并显示，显示load并提示输入赋值予w，若w=3则输入转角赋予A，半径赋予B，缓和曲线长赋予C，直缓点里程赋予D，交点xy坐标赋予E和F，起始方位角赋予g，选择输入线路左右偏，1右-1左“XC”?U:”YC”?V:置器点XY坐标赋予U和VLbl 1定义以下步骤为第一步“DK+M”?Z:If Int(Z÷1000)＞0:Then Int(Z÷1000)→K:Else Z+1000K→Z:IfEnd 输入所求点里程赋予Z，Int是取整函数If W≠-1:Then Prog “CIR-DAT”: IfEnd如果W≠-1然后调用数据库CIR-DATIf H≠-1:Then Prog “CIR-DAT”: IfEnd如果H≠-1然后调用数据库CIR-DATIf J=1:Then Goto0:Else Goto1:If End如果J=1转到第0部，如果不是转到第一步Z-D→M: Prog “CIR-SUB”待求点里程减去直缓点里程并赋予M，然后调用子程序“CIR-SUB”“OUT L”?L:If L＞0: Then” OUT ANGLE”?R:X+Lcos(P+R)→X:Y+Lsin(P+R)→Y: IfEnd输入待求点距中线偏距赋予l，如果l＞0，然后输入偏转角度赋予r，阴影处XY均为调用子程序计算出的待求点中线处XY坐标If L＜0: Then Abs(L)→L:” OUT ANGLE1”?R;P+R→O:X+Lcos(O)→X:Y+Lsin(O)→Y:”OUT L2”?L:”OUT ANGLE2”?R：Abs(L)→L:O+R+180→O:X+Lcos(O)→X:Y+Lsin(O)→Y: IfEnd若L＜0，L的绝对值赋予L，输入第一次偏转角度并赋予R，输入第二次偏转距离及角度并重新赋值于L，R（注：Abs为绝对值函数，卡西欧5800可对一个变量多次赋值，在赋值后的计算中取最近一次所赋值）Pol(X-U,Y-V)计算置器点与待求点的方位角与距离，pol是直角坐标转化极坐标函数“L=”:I◢显示置器点与待求点的距离If J＜0: Then J+360→J: IfEnd当所求J值小于0时+360°并重新赋予J“A=”:J?DMS◢显示置器点与待求点的方位角（?DMS是将角度由百进制转化为60进制的变换函数）例：5.385°=5°23′6″-1→O：”VIEW XY“?O：If O≠-1:Then”X=”:X◢1赋予O并显示，显示VIEW XY并提示输入，输入值赋予O，若O≠-1，然后显示X值“Y=”:Y◢显示Y值“P=”:P?DMS◢显示P（p为待求点的切线方位角）IfEndGoto 1返回第一步子程序CIR-SUBABπ÷180+C→S:C2÷(24B) →O:(B+O)tan(A÷2)+C÷2-C^(3)÷(240B2)?→T:-1→N:If M＞S-C:Then S-M→M:1→N:IfEnd计算曲线长赋予s，计算内移值赋予O，计算切线长赋予T，-1赋予N，（注：M值为待求点里程-直缓点里程），第二次对M赋值为判断待求点在第二段缓和曲线上If M≤0: Then M→X:0→Y:0→P:Goto 1:IfEnd若M≤0待求点在直缓点之前If M≤C: Then M-M^(5)÷(40B2C2)→X:M^(3)÷(6BC)-M^(7)÷(336B^(3)C^(3))→Y:90M2÷(πBC)→P:Goto 1:IfEnd若M≤C待求点在第一段缓和曲线上，计算待求点XY坐标及切线方位角If M≤S-C: Then 180(M-C)÷(πB)+90C÷(πB) →P:Bsin(P)+CC-C^(3) ^(3)÷(240B2)?→X:B(1-cos(P))+O→Y: IfEnd若M≤S-C待求点在圆曲线上，计算待求点XY坐标及切线方位角Lbl 1 以下为计算待求点在第二段缓和曲线上时XY坐标和切线方位角If N=1: Then A-P→P:X→I:Y→J:T+(T-I)cos(A)-Jsin(A)→X: (T-I)sin(A)+Jcos(A)→Y: IfEndX→I:HY→J:E+Tcos(180+G)+Icos(G)-Jsin(G) →X:F+Tsin(180+G)+Isin(G)+Jcos(G) →Y:G+HP→P数据库(CIR-DAT)If W≠1: Then Goto 1: IfEndIf Z≤200661.7: Then 27°9°16°→A:1400→B:100→C:199898.19→D:3723089.4198→E:4