文档介绍：主程序(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:IfEnd
1赋予W并显示,显示load并提示输入赋值予w,若w=3则输入转角赋予A,半径赋予B,缓和曲线长赋予C,直缓点里程赋予D,交点xy坐标赋予E和F,起始方位角赋予g,选择输入线路左右偏,1右-1左
“XC”?U:”YC”?V:
置器点XY坐标赋予U和V
Lbl 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-DAT
If H≠-1:Then Prog “CIR-DAT”: IfEnd
如果H≠-1然后调用数据库CIR-DAT
If 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°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为待求点的切线方位角)
IfEnd
Goto 1
返回第一步
子程序CIR-SUB
ABπ÷180+C→S:C²÷(24B) →O:(B+O)tan(A÷2)+C÷2-C^(3) ÷(240B²) →T:-1→N:If M>S-C:Then S-M→M:1→N:IfEn