• CASIO程序(线路计算6.0版)


    一、扩展变量设置说明

    1. 统计各种要素点的数目

    各要素点数目表

    名     称

    平曲线交点

    竖曲线变坡点

    超高起始点

    最多台阶数

    线路导线点

    数目(个)

    a

    b

    c

    d

    e

    要素点数目为0时取值

    -1

    -5/3

    0

    0

    0

    备     注

    不含起终点

    不含起终点

    含起终点

    其取值为0或10

     

    设置扩展变量总数目为:36+6a+3b+2c+d+2e(使用横坡点)或30+6a+3b+2c+d+2e(未使用横坡点)个

     

    1. 设置各扩展变量数据
    • 固定变量及自由变量Z[1] ~Z[19]

      Z[1]:结构层厚度

      Z[2]:半幅路基硬路面宽度(包含分隔带)

      Z[3]~Z[19]:程序中使用的自由变量

    • 平曲线要素扩展变量Z[20]~Z[25+6a]

    各平曲线要素于扩展变量中的位置表

    名称

    起点

    第1个

    交点

    第2个

    交点

    第i个

    交点

    1. 1个

    交点

    第a个

    交点

    终点

    交点X坐标

    Z[20]

    Z[21]

    Z[22]

    Z[20+i]

    Z[19+a]

    Z[20+a]

    Z[21+a]

    交点Y坐标

    Z[22+a]

    Z[23+a]

    Z[24+a]

    Z[22+a+i]

    Z[21+2a]

    Z[22+2a]

    Z[23+2a]

    圆曲线半径

    ----

    Z[24+2a]

    Z[25+2a]

    Z[23+2a+i]

    Z[22+3a]

    Z[23+3a]

    ----

    第一缓曲

    长度

    ----

    Z[24+3a]

    Z[25+3a]

    Z[23+3a+i]

    Z[22+4a]

    Z[23+4a]

    ----

    第二缓曲

    长度

    ----

    Z[24+4a]

    Z[25+4a]

    Z[23+4a+i]

    Z[22+5a]

    Z[23+5a]

    ----

    曲线起点

    桩号

    Z[24+5a]

    (线路起点)

    Z[25+5a]

    Z[26+5a]

    Z[24+5a+i]

    Z[23+6a]

    Z[24+6a]

    Z[25+6a]

    (线路终点)

    • 竖曲线要素扩展变量Z[26+6a]~Z[30+6a+3b]

    各竖曲线要素于扩展变量中的位置表

    名称

    起点

    第1个

    变坡点

    第2个

    变坡点

    第i个

    变坡点

    1. 1个

    变坡点

    第b个

    变坡点

    终点

    变坡点桩号

    Z[26+6a]

    Z[27+6a]

    Z[28+6a]

    Z[26+6a+i]

    Z[25+6a+i]

    Z[26+6a+b]

    Z[27+6a+b]

    变坡点高程

    Z[28+6a+b]

    Z[29+6a+b]

    Z[30+6a+b]

    Z[28+6a+b+i]

    Z[27+6a+2b]

    Z[28+6a+2b]

    Z[29+6a+2b]

    竖曲线

    切线长

    ----

    Z[30+6a+2b]

    Z[31+6a+2b]

    Z[29+6a+2b+i]

    Z[28+6a+3b]

    Z[29+6a+3b]

    Z[30+6a+3b]

    此变量为空

    注:扩展变量Z[30+6a+3b]设置为空值(即为0),以便其在程序中使用。

    • 超高设计扩展变量Z[31+6a+3b]~Z[30+6a+3b+2c]

    各段超高设计数值于扩展变量中的位置表

    名称

    第1个

    起超点

    第2个

    起超点

    第i个

    起超点

    1. 1个

    起超点

    第c个

    起超点

    起超点桩号

    Z[31+6a+3b]

    Z[32+6a+3b]

    Z[30+6a+3b+i]

    Z[29+6a+3b+c]

    Z[30+6a+3b+c]

    设计横坡%

    Z[31+6a+3b+c]

    Z[32+6a+3b+c]

    Z[30+6a+3b+c+i]

    Z[29+6a+3b+2c]

    Z[30+6a+3b+2c]

    说明:存入设计横坡数值时,当路基左右幅的横坡为互补时,只要把左幅的设计横坡存入扩展变量即可,当左右幅的设计横坡为相同时,则在对应扩展变量中存入横坡为0。

     

    • 边坡坡度扩展量Z[31+6a+3b+2c]~Z[30+6a+3b+2c+d]

    当使用了子程序FY时,d=10,否则d=0,这些扩展变量主要用于储存各阶边坡的坡度。

     

    • 导线点扩展变量Z[31+6a+3b+2c+d]~Z[30+6a+3b+2c+d+2e]

    各导线点坐标值于扩展变量中的位置表

    名称

    第1个

    导线点

    第2个

    导线点

    第i个

    导线点

    1. 1个

    导线点

    第d个

    导线点

    X坐标

    Z[31+6a+3b+2c+d]

    Z[32+6a+3b+2c+d]

    Z[30+6a+3b+2c+d+i]

    Z[29+6a+3b+2c

    +d+e]

    Z[30+6a+3b+2c

    +d+e]

    Y坐标

    Z[31+6a+3b+2c

    +d+e]

    Z[32+6a+3b+2c

    +d+e]

    Z[30+6a+3b+2c

    +d+e+i]

    Z[29+6a+3b+2c

    +d+2e]

    Z[30+6a+3b+2c

    +d+2e]

     

    • 路基横断面点扩展变量Z[31+6a+3b+2c+d+2e]~Z[36+6a+3b+2c+d+2e](根据情况可省)

    Z[31+6a+3b+2c+d+2e]=-11.5(路基横坡1#点)

    Z[32+6a+3b+2c+d+2e]=-6.0(路基横坡2#点)

    Z[33+6a+3b+2c+d+2e]=-0.75(路基横坡3#点)

    Z[34+6a+3b+2c+d+2e]=0.75(路基横坡4#点)

    Z[35+6a+3b+2c+d+2e]=6.0(路基横坡5#点)

    Z[36+6a+3b+2c+d+2e]=11.5(路基横坡6#点)

    上述横断面点的扩展变量里数据设置可根据需要进行修改。

     

    3.扩展变量设置说明

        当线路改变或数据更改时,应首先根据各要素点的数目设置扩展变量总数目(若要素点数目也发生变化),再按上述各扩展变量位置表中的约定存入对应变量中的数据,同时应根据各程序中方框内的表达式所计算的结果,把方框内的表达式修改为实际数据。

    当进行测量放样计算时,若遇到临时点,可把其存入导线点扩展变量中空缺的位置上,然后把它当作导线点使用。

    存入各要素点的桩号时,均为扣除断链后的实际桩号,而不是设计图上的设计桩号。

     

    二、程序操作说明

    特别说明:各程序均要求在RAD模式下运行

    1. 测量放样计算程序CLFY

    FY:1.ZX  2.BX?

     

    (1)放样选择:1.中线放样  2.边线放样?

     

     

     

     

    ZJ:1.DX  2.XL?

     

    (2)置镜点选择:1.置镜点为导线点  2.置镜点为线路点(已知桩号和偏距的中桩或边桩)?

     

     

     

    DZ?

     

    (3)置镜点输入DZ?

    当第(2)步选择1时,此输入置镜点的导线点点号

    当第(2)步选择2时,此输入置镜点的线路边桩点桩号

     

     

    LZ?

     

    (4)置镜点的边桩点距线路中线偏距输入LZ(左为“-”,右为“+”)?

    当置镜点为线路中桩时,输其为0

    当第(2)步选择1时,无此第(4)步,只有当第(2)步选择2时,才会出现此步

     

    HS:1.DX  2.XL?

     

    (5)后视点选择:1.后视点为导线点  2.后视点为线路点(已知桩号和偏距的中桩或边桩)?

     

     

     

    DH?

     

    (6)后视点输入DH?

    当第(5)步选择1时,此输入后视点的导线点点号

    当第(5)步选择2时,此输入后视点的线路边桩点桩号

     

     

    LH?

     

    (7)后视点的边桩点距线路中线偏距输入LH(左为“-”,右为“+”)?

    当后视点为线路中桩时,输其为0

    当第(5)步选择1时,无此第(7)步,只有当第(5)步选择2时,才会出现此步

     

    AH?

     

    (8)输入后视角度AH?

     

     

     

     

    KF?

     

    (9)输入放样点的桩号KF?

     

     

     

     

    L?

     

    (10)输入放样点偏离中线的平距(左为“-”,右为“+”)?

    当第(1)步选择1时,无此第(10)步,只有当第(1)选择2时,才会出现此步

     

     

    AJ?

     

    (11)输入放样点跟线路中桩连线与线路方向的夹角(顺时针)AJ?

    当第(1)步选择1时,无此第(11)步,只有当第(1)选择2时,才会出现此步

     

     

    S=

     

    (12)输出放样距离S

     

     

     

     

    A=

     

    (13)输出放样角度A

     

     

     

     

    AT=

     

    (14)输出放样桩号的线路方向与放样视线的夹角AT

     

     

     

     

    此行操作完成后返回第(9)步,要求重新输入计算

     

    1. 高程较差计算程序GCJC

    YG?

     

    (1)输入水准仪的视线高程YG?

     

     

     

     

    K?

     

    (2)输入被测点的桩号K?

     

     

     

     

    DW?

     

    (3)输入被测点的点位号DW?

    1为左偏11.5m,2为左偏6m,3为左偏0.75m,

    4为右偏0.75m,5为右偏6m,6为右偏11.5m

     

     

    QS?

     

    (4)输入前视读数QS?

     

     

     

     

    DH=

     

    (5)输出设计高程与实测高程的较差DH(高于设计为“-”,反之为“+”)

     

     

     

    此行操作完成后返回第(2)步,要求重新输入计算

     

    1. 线路高程计算程序XLGC

    K?

     

    (1)输入待求点的桩号K?

     

     

     

     

    L?

     

    (2)输入待求点偏离中线的平距L(左为“-”,右为“+”)?

     

     

     

     

    H=

     

    (3)输出待求点的设计高程(已扣除结构层厚度)H

     

     

     

     

    此行操作完成后返回第(1)步,要求重新输入计算

     

     

    1. 线路坐标计算程序XLZB

    1.ZX  2.BX?

     

    (1)选择:1.中线坐标计算  2.边线坐标计算?

     

     

     

     

    K?

     

    (2)输入待求点的桩号K?

     

     

     

     

    L?

     

    (3)输入待求点的偏离中线的平距L(左为“-”,右为“+”)?

       当第(1)步选择1时,无此第(3)步,只有当第(1)步选择2时,才

       会出现此步

     

     

    AJ?

     

    (4)输入待求点跟线路中桩边线与线路方向夹角(顺时针)AJ?

       当第(1)步选择1时,无此第(4)步,只有当第(1)步选择2时,才

       会出现此步

     

     

    X=

     

    (5)输出待求点的X坐标

     

     

     

     

    Y=

     

    (6)输出待求点的Y坐标

     

     

     

     

    此行操作完成后返回第(2)步,要求重新输入计算

     

    1. 边桩放样计算程序

    1.CJ  2.QZ  3.QS?

     

    (1)仪器选择:1.测距仪 2.全站仪 3.缺省情况(即同上一次)?

    当此步选择2时,下一步从第(12)步开始运行

    当此步选择3时,下一步从第(6)步开始运行

     

     

    DZ?

     

    (2)输入置镜点点号DZ?

    只有当第(1)步选择1时,才会出现此步

     

     

    DH?

     

    (3)输入后视点点号DH?

    只有当第(1)步选择1时,才会出现此步

     

    HZ?

     

    (4)输入置镜点的高程(包括仪器高)HZ?

    只有当第(1)步选择1时,才会出现此步

     

     

    AH?

     

    (5)输入后视角度AH?

    只有当第(1)步选择1时,才会出现此步

     

     

    AQ?

     

    (6) 输入前视角度AQ?

    只有当第(1)步选择1或3时,才会出现此步

     

     

     

    S?

     

    (7) 输入前视平距S?

    只有当第(1)步选择1或3时,才会出现此步

     

     

     

    HD?

     

    (8) 输入前视高差HD?(高于测站为“+”,低于测站为“-”)

    只有当第(1)步选择1或3时,才会出现此步

     

     

     

    HY?

     

    (9) 输入前视仪高HY?

    只有当第(1)步选择1或3时,才会出现此步

     

     

     

    X=

     

    (10) 输出测点的X坐标

    只有当第(1)步选择1或3时,才会出现此步

     

     

     

    Y=

     

    (11) 输出测点的Y坐标

    只有当第(1)步选择1或3时,才会出现此步

     

     

     

     

     

    X?

     

    (12) 输入测点的X坐标?

    只有当第(1)步选择2时,才会出现此步

     

     

     

    Y?

     

    (13) 输入测点的Y坐标?

    只有当第(1)步选择2时,才会出现此步

     

     

     

    Z?

     

    (14)输入测点的高程Z?

    只有当第(1)步选择2时,才会出现此步

     

     

     

    KD=

     

    (15)输出测点的桩号KD

     

     

     

     

    WB=

     

    (16)输出测点相对于线路的偏离平距WB(左偏为“-”,右偏为“+”)

     

     

     

     

    H=

     

    (17)输出测点的高程H

     

     

     

     

    M?

     

    (18)输入边坡设计坡度(从离路肩最近处输起)M?

       程序根据放样点的高程自动计算出所需的台阶数目,重复此第(18)步依此输入完各台阶边坡的设计坡度后,再自动要求加输一个台阶,以备台阶数目不够高程之所用

     

    C=

     

    (19)输出测点距下面一个平台内侧的高差C

    当测点为挖时,才会出现此步

     

     

     

     

     

     

    P=

     

    (20)输出测点距最近一个平台内测的平距P?

    当测点为挖且测点离平台的高差不大于1m时,才会出现此步

     

     

     

    DB=

     

    (21)输出测点应横向移动的平距DB(“-”为左移,“+”为右移)

     

     

     

     

    此步操作完成后,返回第(6)步(当第(11)步选择1或3时)或第(12)步(当第(1)步选择2时),要求重新输入计算

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

    三、程序设计

    1. 测量放样计算主程序CLFY (571步)

    V=19:Fixm:Rad¿

    {O}:O”FY:1.ZX 2.BX”¿

    Z[13]=O¿

    {OE}:O”ZJ:1.DX 2.XL”¿

    E”DZ”¿

    O=1ÞZ[8]=Z[E+30+6a+3b+2c+d]:Z[9]=Z[E+30+6a+3b+2c+d+e]◣¿

    O¹1Þ{D}:D”LZ”:Z=E:Prog ”ZB”:Z[8]=X+Rec(D,U+π÷2):Z[9]=Y+J◣¿

    {OF}:O”HS:1.DX 2.XL”¿

    F”DH”¿

    O=1ÞZ[10]=Z[F+30+6a+3b+2c+d]:Z[11]=Z[F+30+6a+3b+2c+d+e]◣¿

    O¹1ÞB=Z[5]:{B}:B”LH”:Z[5]=B:Z=F:Prog ”ZB”:Z[10]=X+Rec(Z[5],U+π÷2):Z[11]=Y+J◣¿

    S=Z[6]:{S}:S”AH”:Z[6]=S:Q=0¿

    Lbl 1¿

    Z=Z[12]¿

    {Z}:Z”KF”:Z[12]=Z¿

    Z[13]¹1Þ{QG}:Q”L”:G”AJ” ◣¿

    Prog ”ZB”:X=X+Rec(Q,U+πG÷180):Y=Y+J¿

    Pol(Z[10]-Z[8],Z[11]-Z[9]):Z[4]=J¿

    Pol(X-Z[8],Y-Z[9]):I”S=”◢

    I=J-Z[4]+Z[6]π÷180¿

    I>2πÞI=I-2π◣¿

    I<0ÞI=I+2π◣¿

    Z[3]=U+π-J¿

    Z[3]>2πÞZ[3]=Z[3]-2π◣¿

    I=180I÷π:Z[3]=180Z[3]÷π¿

    I”A=”◢

    Z[3]”AT=” ◢

    Goto 1

    2.线路坐标计算主程序XLZB (143步)

    V=19:Fixm:Rad¿

    {O}:O”1.ZX 2.BX”¿

    Q=0¿

    Lbl 1¿

    {Z}:Z”K”¿

    O¹1Þ{QG}:Q”L”:G”AJ” ◣¿

    Prog ”ZB”:X=X+Rec(Q,U+πG÷180):Y=Y+J ¿

    X”X=” ◢

    Y”Y=” ◢

    O=1ÞU=180U÷π:U”AT=” ◢

    ◣¿

    Goto 1

     

    3.高程较差计算主程序GCJC (113步)

    V=6a+25:Fixm¿

    {E}:E”YG”¿

    Lbl 0¿

    {ZDU}:Z”K”:D”DW”:U”QS”¿

    Q=Z[D+6a+3b+2c+d+2e+30]¿

    Prog ”GC”¿

    C=C-E+U¿

    C=Intg (1000C+0.5)÷1000¿

    C”DH=” ◢

    Goto 0

     

    4.线路高程计算主程序XLGC (56步)

    V=6a+25:Fixm¿

    Lbl 0¿

    {ZQ}:Z”K”:Q”L”¿

    Prog ”GC”¿

    C”H=”◢

    Goto 0

     

    1. 边桩放样计算主程序BZFY (330步)

    Fixm:Rad¿

    {Z}:Z”1.CJ 2.QE 3.QS”¿

    Z=2ÞZ[11]=0:Goto 1◣¿

    Z=3Þ Goto 1◣¿

    {MNGU}:M”DZ”:N”DH”:G”HZ”:U”AH”¿

    Z[8]=Z[M+30+6a+3b+2c+d]:Z[9]=Z[M+30+6a+3b+2c+d+e]¿

    C=Z[N+30+6a+3b+2c+d]:A=Z[N+30+6a+3b+2c+d+e]¿

    Pol(C-Z[8],A-Z[9]):Z[10]=J-πU÷180:Z[11]=G¿

    Lbl 1¿

    Z=2ÞGoto 2◣¿

    {EBFD}:B”AQ”:E”S”:D”HD”:F”HY”¿

    Rec(E,Z[10]+πB÷180):X=Z[8]+I◢

    Y=Z[9]+J◢

    Goto 3¿

    Lbl 2¿

    {EBD}:E”N”:B”E”:D”Z”:F=0:X=E:Y=B¿

    Lbl 3¿

    Prog “FQ”¿

    G=D+Z[11]-F:G”H”◢

    Prog “FY”¿(当高程检查计算时,不用子程序“FY”,此行换为V=6a+25: Prog “GC”:X=C-G: X”DH”◢)

    Goto 1

    1. 线路坐标计算子程序ZB (517或492步)

    W=21¿

    K=Z¿

     

    断链数值

    uploading.4e448015.gif正在上传…重新上传取消

    断链桩号

    uploading.4e448015.gif正在上传…重新上传取消 Z>23540ÞK=K-0.03313◣¿  (注:当断链更改时,修改方框中的数据,若还有断链则应模仿此行再增加行,长链为“-”,短链为“+”)

     

    Lbl 1¿

    K>Z[W+5a+4]ÞW=W+1:Goto 1◣¿

    W=21ÞW=22◣¿

    V=W-1ÞGoto 2◣¿

    V=W-1¿

    Prog ”YS”¿

    Z[14]=Z[V]-Rec(T,A)¿

    Z[15]=Z[V+a+2]-J¿

    Lbl 2¿

    S=K-Z[V+5a+4]¿

    B=A¿

    S≤0ÞX=Z[14]+Scos B:Y=Z[15]+Ssin B:U=B:Goto 6◣¿

    X=Z[14]:Y=Z[15]¿

    S≤LÞH=1:Goto 3◣¿

    S≤Z[7]-MÞGoto 4◣¿

    B=A-NC+π¿

    S≤Z[7]ÞS=Z[7]-S:X=Z[V]-Rec(P,B):Y=Z[V+a+2]-J:H=-1:L=M:Goto 3:L=Z[V+3a+3]◣¿

    X=Z[V]-Rec(P+S-Z[7],B):Y=Z[V+a+2]-J¿

    U=B-π:Goto 6¿

    Lbl 3¿

    I=NHSSS÷6÷R÷L¿

    J=S-S^5÷(40(RL)2)¿

    U=B-NHSS÷(2RL)+π(H-1)÷2:Goto 5¿

    Lbl 4¿

    U=(2S-L)÷R÷2¿

    I=NR(1-cos U)+NZ[18]:J=Rsin U+Z[19]¿

    U=B-N(S-L÷2)÷R¿

    Lbl 5¿

    Pol(I,J):J=J+B-π÷2¿

    X=Rec(I,J)+X¿

    Y=Y+J¿

    Lbl 6¿

    U<0ÞU=U+2π◣

     

    7.曲线要素计算子程序YS (320步)

    R=Z[V+2a+3]¿

    L=Z[V+3a+3]:M=Z[V+4a+3]¿

    Pol(Z[V+1]-Z[V],Z[V+a+3]-Z[V+a+2])¿

    S=J¿

    Pol(Z[V]-Z[V-1],Z[V+a+2]-Z[V+a+1])¿

    C=J-S:A=J¿

    C=tan (C÷2):C=tan-1 C¿

    N=Abs C÷C:C=2Abs C¿

    Z[19]=L÷2-LLL÷240÷R÷R¿

    Z[17]=M÷2-MMM÷240÷R÷R¿

    Z[18]=LL÷24÷R¿

    Z[16]=MM÷24÷R¿

    P=(Z[16]-Z[18])÷2÷tan (C÷2)¿

    Z[7]=(Z[18]+Z[16]+2R)tan (C÷2)÷2¿

    T=P+Z[7]+Z[19]:P=Z[7]-P+Z[17]¿

    Z[7]=RC+(L+M)÷2

     

    8.线路高程计算子程序GC (521或496步)

    W=6a+27¿

    K=Z¿

    Z>23540ÞK=K-0.03313◣¿  (注:当断链更改时,修改方框中的数据,若还有断链则应模仿此行再增加行,长链为“-”,短链为“+”)

    Lbl 1¿

    P=Z[W+2b+3]¿

    K>Z[W]-PÞW=W+1:Goto 1◣¿

    W=6a+27ÞW=6a+28◣¿

    V=W-1ÞGoto 2◣¿

    V=W-1¿

    J=Z[V+b+2]¿

    R=(J-Z[V+b+1])÷(Z[V]-Z[V-1])¿

    S=(Z[V+b+3]-J)÷(Z[V+1]-Z[V])¿

    T=Z[V+2b+3]¿

    Lbl 2¿

    L=K-Z[V]¿

    L≤-TÞH=J+RL:Goto 3◣¿

    L≥TÞH=J+SL:Goto 3◣¿

    A=2T÷(S-R)¿

    X=L+A(R+S)÷2¿

    H=J+XX÷2÷A-ARS÷2¿

    Lbl 3¿

    H=H-Z[1]¿

    A=Abs Q¿

     

    中央带宽

    uploading.4e448015.gif正在上传…重新上传取消A≤1ÞC=0:Goto 6◣¿

     

    I=-1¿

    Q>0ÞI=1◣¿

    Lbl 4¿

    Y=6a+3b+31¿

    Lbl 5¿

    K≥Z[Y]ÞY=Y+1:Goto 5◣¿

    O=Z[Y+c-1]:X=Z[Y+c]:O=IO:X=IX¿

    Z[Y+c-1]=0ÞO=2◣¿

    Z[Y+c]=0ÞX=2◣¿

    N=(Z[Y]-K)÷(Z[Y]-Z[Y-1])¿

     

    中央带宽/2

    uploading.4e448015.gif正在上传…重新上传取消M=(X-O)(1-3NN+2NNN)+O¿ (当超高过渡段按直线性计算时,此行换为 M=(X-O)N+O¿)

     

     

    土路肩设计最小坡

    uploading.4e448015.gif正在上传…重新上传取消A≤Z[2]ÞC=(1-A)M÷100:Goto 6◣¿

     

     

    中央带宽/2

    uploading.4e448015.gif正在上传…重新上传取消

    中央带宽/2

    uploading.4e448015.gif正在上传…重新上传取消C=0.03(Z[2]-A)-M(Z[2]-1)÷100¿

     

     

    土路肩设计最小坡度×100

    uploading.4e448015.gif正在上传…重新上传取消M>3ÞC=(1-A)M÷100◣¿

     

    Lbl 6¿

    C=H+C

     

    9.反求线路桩号子程序FQ (783或758步)

    V=21¿

    Lbl 1¿

    V>20+aÞV=20+a:Goto 2◣¿

    Prog ”YS”¿

    Z[4]=Z[V]-Rec(T,A):Z[5]=Z[V+    2+a]-J¿

    Z[6]=Z[V]+Rec(P,S):Z[3]=Z[V+    2+a]+J¿

    Z[6]=XÞZ[3]=YÞK=Z[V+4+5a]+Z[7]:Q=0:Goto 6◣◣¿

    Pol(Z[6]-X,Z[3]-Y):K=J+π-S¿

    Q=Abs (Isin (K-NC÷2))

    cos K<0ÞQ<2000ÞGoto 2◣◣¿

    V=V+1¿

    Goto 1¿

    Lbl 2¿

    Q=Z[4]:K=Z[5]:G=A-π÷2¿

    Prog ”ZH” ¿

    Pol(-H,-W):K=J+π÷2¿

    cos K<0ÞK=Z[V+4+5a]+W:Q=-H:Goto 6◣¿

    G=NLL÷6÷R:Q=L-LLL÷40÷R÷R¿

    Pol(G-H,Q-W):K=J+π÷2+NL÷2÷R¿

    cos K<0ÞGoto 3◣¿

    I=2Rsin (C÷2-L÷R÷4-M÷R÷4)¿

    I=G+Rec(I,π÷2-N(C÷2+L÷R÷4-M÷R÷4))¿

    K=Q+J¿

    Pol(I-H,K-W):K=J+π÷2+N(C-M÷2÷R)¿

    cos K<0ÞGoto 4◣¿

    G=π÷2-NC¿

    Pol(Rec(P,G)-H,T+J-W):K=J+π-G¿

    cos K<0ÞGoto 5◣¿

    Q=Z[6]:K=Z[3]:G=π÷2+S¿

    Prog ”ZH” ¿

    K=Z[V+4+5a]+Z[7]-W:Q=H¿

    Goto 6¿

    Lbl 3¿

    K=N:U=L¿

    Prog ”HQ” ¿

    K=Z[V+4+5a]+O¿

    Goto 6¿

    Lbl 4¿

    Pol(H-N(R+Z[18]),W-Z[19])¿

    K=Z[V+4+5a]+R(π÷2+N(π÷2-J))+L÷2¿

    Q=N(I-R)¿

    Goto 6¿

    Lbl 5¿

    Q=Z[6]:K=Z[3]:G=π÷2+S¿

    Prog ”ZH”¿

    K=-N:U=M¿

    Prog ”HQ”¿

    K=Z[V+4+5a]+Z[7]-O:Q=-Q¿

    Lbl 6¿

    M=1000¿

    Z=K¿

    Z>23540ÞZ=Z-(-0.03313)◣¿  (注:当断链更改时,修改方框中的数据,若还有断链则应模仿此行再增加行,长链为“-”,短链为“+”)

    Z=Intg (MZ+0.5)÷M¿

    Q=Intg (MQ+0.5)÷M¿

    Z”KD=”◢

    Q”WB=”◢

     

    10.坐标转换计算子程序ZH (52步)

    H=X-Q:W=Y-K¿

    Pol(H,W)¿

    G=J-G¿

    H=Icos G:W=Isin G

     

    11.反求缓曲长度子程序HQ (380步)

    A=K÷46080÷R^6÷U^6¿

    P=H÷3840÷R^5÷U^5¿

    C=13K÷5760÷R^4÷U^4¿

    T=KW÷384÷R^4÷U^4¿

    G=H÷48÷R^3÷U^3¿

    I=K÷(15RRUU)¿

    J=KW÷(8RRUU)¿

    L=H÷(2RU)¿

    N=KW¿

    S=W¿

    Lbl 7¿

    M=AS^13+PS^10-CS^9+TS^8-GS^6+IS^5-JS^4+LSS-KS+N¿

    Q=13AS^12+10PS^9-9CS^8+8TS^7-6GS^5+5IS^4-4JS^3+2LS-K¿

    O=S-M÷Q¿

    Abs (O-S)<1E-5ÞGoto 8◣¿

    S=O¿

    Goto 7¿

    Lbl 8¿

    T=KOOO÷6÷U÷R¿

    P=O-O^5÷(40RRUU)¿

    T=HÞP=WÞQ=0:Goto 9◣◣¿

    Pol(H-T,W-P)¿

    Q=sin (J+KOO÷2÷R÷U-π÷2)¿

    S=-1¿

    Q>0ÞS=1◣¿

    Q=SI¿

    Lbl 9

     

    12.边桩放样计算子程序FY (418步)

    V=6a+25¿

     

    土路肩宽

    uploading.4e448015.gif正在上传…重新上传取消U=Q¿

     

    Q=-0.75-Z[2]:Z[3]=-1¿

     

    土路肩宽

    uploading.4e448015.gif正在上传…重新上传取消U>0ÞQ=0.75+Z[2]:Z[3]=1◣¿

     

    Prog ”GC”¿

    X=G-C¿

     

    平台横坡引起的高差=平台宽×平台坡度

    uploading.4e448015.gif正在上传…重新上传取消X≤0ÞGoto 7◣¿

     

     

    路堑相邻两台阶坡脚间的高差

    uploading.4e448015.gif正在上传…重新上传取消N=Int ((X-0.1)÷8.9)+1¿

     

    N>9ÞN=9◣¿

    I=1¿

    Lbl 2¿

    O=Z[30+6a+3b+2c+I]¿

    {O}:O”M”¿

    Z[30+6a+3b+2c+I]=O¿

    I=I+1¿

    I>N+1ÞGoto 4◣¿

    Goto 2¿

    Lbl 4¿

     

    =护坡道宽+水沟开口宽度+土路肩宽度

    uploading.4e448015.gif正在上传…重新上传取消I=0¿

     

     

    护坡道横坡引起的高差=护坡道宽×护坡道坡度

    uploading.4e448015.gif正在上传…重新上传取消W=3.55+Z[2]:H=0.04¿

     

    Lbl 5¿

    I=I+1¿

     

    平台宽度

    uploading.4e448015.gif正在上传…重新上传取消I>N-1ÞGoto 6◣¿

     

    W=W+2+9Z[I+30+6a+3b+2c]¿

     

    路堑同一台阶的坡顶到坡脚之间的高差

    uploading.4e448015.gif正在上传…重新上传取消

    路堑相邻两台阶坡脚间的高差

    uploading.4e448015.gif正在上传…重新上传取消H=H+8.9¿

     

    Goto 5¿

    Lbl 6¿

    A=X-H:A”C=”◢

     

    中央带宽/2

    uploading.4e448015.gif正在上传…重新上传取消W=W-Abs U

     

    A≤1ÞP=WZ[3]◢

     

    =路堑同一台阶的坡顶到坡脚之间的高差-1

    uploading.4e448015.gif正在上传…重新上传取消◣¿

     

    A≥8ÞP=(9Z[I+30+6a+3b+2c]+W+2)Z[3]◢

     

    路堑同一台阶的坡顶到坡脚之间的高差

    uploading.4e448015.gif正在上传…重新上传取消◣¿

     

    A=AZ[I+30+6a+3b+2c]+W¿

    Goto 8¿

    Lbl 7¿

    X”C=”◢

     

    路堤边坡坡度

    uploading.4e448015.gif正在上传…重新上传取消X=-X¿

     

    A=1.5¿

     

    土路肩宽度

    uploading.4e448015.gif正在上传…重新上传取消

    路堤同一台阶的坡顶到坡脚之间的高差

    uploading.4e448015.gif正在上传…重新上传取消K<95500ÞA=2◣¿

     

     

    路堤第二阶边坡坡度

    uploading.4e448015.gif正在上传…重新上传取消X≤8ÞA=AX+0.75+Z[2]-Abs U◣¿

     

     

    =路堤同一台阶的坡顶到坡脚之间的高差+路堤平台宽度×路堤平台坡度

    uploading.4e448015.gif正在上传…重新上传取消X>8ÞA=14.75+Z[2]+1.75(X-8.04)-Abs U◣¿

     

     

    =路堤边坡坡度×路堤台阶高度+土路肩宽度+路堤平台宽度

    uploading.4e448015.gif正在上传…重新上传取消Lbl 8¿

     

     

    路堤同一台阶的坡顶到坡脚之间的高差

    uploading.4e448015.gif正在上传…重新上传取消A=AZ[3]¿

     

    A”DB=”◢

     

     

     

    四、扩展变量设置数值

    扩展变量设置实际数值表

    名  称

    上三线四标

    福宁线A14标

    福宁线A14-4

    福宁线A匝道

    福宁线A14-34

     

    交点数目a

    4

    7

    2

    1

    2

     

    变坡点数目b

    12

    12

    4

    1

    6

     

    起超点数目c

    20

    5

    5

    4

    5

     

    台阶数目d

    0

    0

    10

    10

    10

     

    导线点数目e

    30

    20

    17

    5

    15

     

    变量总数目

    188

    164

    108

    67

    110

     

    Z[1]

    0.65

    0.73

    0

    0

    0

     

    Z[2]

    11.5

    11.5

    11.5

    变量

    11.5

     

    Z[3]

     

    Z[4]

     

    Z[5]

     

    Z[6]

     

    Z[7]

     

    Z[8]

     

    Z[9]

     

    Z[10]

     

    Z[11]

     

    Z[12]

     

    Z[13]

     

    Z[14]

     

    Z[15]

     

    Z[16]

     

    Z[17]

     

    Z[18]

     

    Z[19]

     

    Z[20]

    3311951.398

    2975739.214

    2973710.082

    74471.13219

    2973710.082

     

    Z[21]

    3308082.107

    2976456.448

    2973608.911

    74153.55609

    2973608.911

     

    Z[22]

    3306528.851

    2974752.896

    2973081.305

    74679.09200

    2973081.305

     

    Z[23]

    3304867.372

    2974382.492

    2972865.599

    502032.2264

    2972865.599

     

    Z[24]

    3303837.575

    2974226.853

    497354.093

    501750.1303

    497354.093

     

    Z[25]

    3300666.727

    2973734.000

    495552.513

    501327.7960

    495552.513

     

    Z[26]

    483715.315

    2973608.911

    493906.918

    280.0

    493906.918

     

    Z[27]

    482961.247

    2973081.305

    493744.453

    84.7

    493744.453

     

    Z[28]

    484119.363

    2972865.599

    2500.000

    84.7

    2500.000

     

    Z[29]

    484785.224

    506191.913

    560.000

    150

    560.000

     

    Z[30]

    484191.299

    504387.553

    0

    199.86

    0

     

    Z[31]

    484421.828

    501750.741

    181.944

    1070.589

    181.944

     

    Z[32]

    1800.647183

    500661.829

    0

    305

    0

     

    Z[33]

    2000.000

    499179.551

    183.096

    600

    183.096

     

    Z[34]

    1320.097

    497779.999

    94318.362

    840

    94318.362

     

    Z[35]

    1128.972

    495552.513

    95803.35362

    9.9

    95803.35362

     

    扩展变量设置实际数值表(续表)

    名  称

    上三线四标

    福宁线A14标

    福宁线A14-4

    福宁线A匝道

    福宁线A14-34

     

    Z[36]

    240.000

    493906.918

    97577.87494

    15.8

    97577.87494

     

    Z[37]

    250.000

    493744.453

    98104.795

    29

    98104.795

     

    Z[38]

    200.000

    1200.000

    95500

    52.5

    94000

     

    Z[39]

    200.000

    2800.000

    95940

    94950

     

    Z[40]

    240.000

    2800.000

    96640

    284.56

    95500

     

    Z[41]

    250.000

    4000.000

    97040

    686.596

    95940

     

    Z[42]

    200.000

    3000.000

    97900

    771.296

    96640

     

    Z[43]

    200.000

    2500.000

    98104.795

    1070.589

    97040

     

    Z[44]

    18766.03067

    560.000

    20.685

    3

    97900

     

    Z[45]

    21790.803882

    276.480

    28.185

    3

    98104.795

     

    Z[46]

    24165.055664

    0

    63.185

    0

    13.500

     

    Z[47]

    25596.110581

    0

    73.185

    0

    22.335

     

    Z[48]

    26989.881648

    0

    108.785

    第一边坡坡度

    20.685

     

    Z[49]

    30594.63423

    0

    113.290

    第二边坡坡度

    28.185

     

    Z[50]

    22050.000

    0

    219.5

    第三边坡坡度

    63.185

     

    Z[51]

    22299.500

    181.944

    203.26

    第四边坡坡度

    73.185

     

    Z[52]

    22700.400

    276.480

    196.744

    第五边坡坡度

    108.785

     

    Z[53]

    23110.900

    0

    193.953

    第六边坡坡度

    113.290

     

    Z[54]

    23360.000

    0

    第七边坡坡度

    184.5

     

    Z[55]

    23699.96687

    0

    89900

    第八边坡坡度

    220.5

     

    Z[56]

    24549.96687

    0

    97577.875

    第九边坡坡度

    219.5

     

    Z[57]

    25249.96687

    0

    97759.819

    第十边坡坡度

    203.26

     

    Z[58]

    26249.96687

    183.096

    97944.795

     

    196.744

     

    Z[59]

    26599.96687

    84800.000

    98264.795

     

    193.953

     

    Z[60]

    27199.96687

    85983.52866

    0

     

     

    Z[61]

    27699.96687

    89437.69065

    0

     

    89900

     

    Z[62]

    28049.96687

    90616.27064

    -5

     

    97577.875

     

    Z[63]

    28199.96687

    91947.87136

    -5

     

    97759.819

     

    Z[64]

    12.200

    93470.88887

    5

     

    97944.795

     

    Z[65]

    9.910

    95803.35362

    第一边坡坡度

     

    98264.795

     

    Z[66]

    19.542

    97577.87494

    第二边坡坡度

     

    0

     

    Z[67]

    8.858

    98104.795

    第三边坡坡度

     

    0

     

    Z[68]

    11.000

    89260

    第四边坡坡度

     

    -5

     

    Z[69]

    8.450

    89960

    第五边坡坡度

     

    -5

     

    Z[70]

    14.910

    90960

    第六边坡坡度

     

    5

     

    Z[71]

    9.450

    91670

    第七边坡坡度

     

    第一边坡坡度

     

    Z[72]

    14.950

    92320

    第八边坡坡度

     

    第二边坡坡度

     

    Z[73]

    10.050

    92750

    第九边坡坡度

     

    第三边坡坡度

     

    Z[74]

    13.050

    94000

    第十边坡坡度

     

    第四边坡坡度

     

    Z[75]

    11.000

    94950

    2973473.834

     

    第五边坡坡度

     

    Z[76]

    14.500

    95500

    2973443.238

     

    第六边坡坡度

     

    Z[77]

    13.600

    95940

    2973689.991

     

    第七边坡坡度

     

    扩展变量设置实际数值表(续表)

    名  称

    上三线四标

    福宁线A14标

    福宁线A14-4

     

    福宁线A14-34

     

    Z[78]

    149.500

    96640

    2973503.137

     

    第八边坡坡度

     

    Z[79]

    251.400

    97040

    2974006.842

     

    第九边坡坡度

     

    Z[80]

    159.100

    97900

    暂空

     

    第十边坡坡度

     

    Z[81]

    90.000

    98104.795

    暂空

     

    2973473.834

     

    Z[82]

    90.600

    11.357

    暂空

     

    2973443.238

     

    Z[83]

    231.000

    18.147

    2973977.206

     

    2973689.991

     

    Z[84]

    106.400

    11.647

    2973762.883

     

    2973503.137

     

    Z[85]

    97.500

    21.090

    2973935.726

     

    2974006.842

     

    Z[86]

    95.000

    13.810

    2973692.340

     

    暂空

     

    Z[87]

    100.100

    17.250

    2973348.276

     

    2973977.206

     

    Z[88]

    98.700

    13.500

    2973236.062

     

    2973762.883

     

    Z[89]

    96.000

    22.335

    2973229.035

     

    2973935.726

     

    Z[90]

    20.685

    2973193.680

     

    2973692.340

     

    Z[91]

    0

    28.185

    暂空

     

    2973348.276

     

    Z[92]

    23290.772

    63.185

    494959.945

     

    2973236.062

     

    Z[93]

    23425.772

    73.185

    494945.908

     

    2973229.035

     

    Z[94]

    24280.05687

    108.785

    494603.173

     

    2973193.680

     

    Z[95]

    24415.05687

    113.290

    495479.373

     

    暂空

     

    Z[96]

    24684.09287

    113.400

    495746.501

     

    494959.945

     

    Z[97]

    24819.09287

    198

    暂空

     

    494945.908

     

    Z[98]

    25661.11187

    196

    暂空

     

    494603.173

     

    Z[99]

    25769.11187

    211.2

    暂空

     

    495479.373

     

    Z[100]

    25796.11187

    132

    495773.104

     

    495746.501

     

    Z[101]

    26789.88287

    123

    495677.496

     

    暂空

     

    Z[102]

    26816.88287

    184.5

    495371.624

     

    495773.104

     

    Z[103]

    26924.88287

    220.5

    494520.294

     

    495677.496

     

    Z[104]

    27044.88287

    219.5

    493952.915

     

    495371.624

     

    Z[105]

    27141.54987

    203.26

    494625.730

     

    494520.294

     

    Z[106]

    27189.88287

    196.744

    494529.316

     

    493952.915

     

    Z[107]

    27662.42987

    193.953

    494358.050

     

    494625.730

     

    Z[108]

    27710.76287

    暂空

     

    494529.316

     

    Z[109]

    27807.42987

    89900

     

     

    494358.050

     

    Z[110]

    50000.000

    97577.875

     

     

    暂空

     

    Z[111]

    -2

    97759.819

     

     

     

     

    Z[112]

    -2

    97944.795

     

     

     

     

    Z[113]

    0

    98264.795

     

     

     

     

    Z[114]

    0

    0

     

     

     

     

    Z[115]

    2

    0

     

     

     

     

    Z[116]

    2

    -5

     

     

     

     

    Z[117]

    0

    -5

     

     

     

     

    Z[118]

    0

    5

     

     

     

     

    Z[119]

    2

    2973473.817

     

     

     

     

    扩展变量设置实际数值表(续表)

    名  称

    上三线四标

    福宁线A14标

    福宁线A14-4

     

     

     

    Z[120]

    3

    2973443.259

     

     

     

     

    Z[121]

    3

    2973689.991

     

     

     

     

    Z[122]

    2

    2973503.137

     

     

     

     

    Z[123]

    0

    2974006.842

     

     

     

     

    Z[124]

    0

    2973463.050

     

     

     

     

    Z[125]

    -2

    2973619.538

     

     

     

     

    Z[126]

    -4

    2973592.676

     

     

     

     

    Z[127]

    -4

    2973977.206

     

     

     

     

    Z[128]

    -2

    2973672.883

     

     

     

     

    Z[129]

    0

    2973935.726

     

     

     

     

    Z[130]

    0

    2973692.340

     

     

     

     

    Z[131]

    3308042.779

    2973348.276

     

     

     

     

    Z[132]

    暂空

     

     

     

     

    Z[133]

    3307801.470

    暂空

     

     

     

     

    Z[134]

    暂空

     

     

     

     

    Z[135]

    暂空

     

     

     

     

    Z[136]

    暂空

     

     

     

     

    Z[137]

    3307165.852

    暂空

     

     

     

     

    Z[138]

    3306649.672

    暂空

     

     

     

     

    Z[139]

    3307053.737

    494959.943

     

     

     

     

    Z[140]

    3306322.895

    494945.887

     

     

     

     

    Z[141]

    3306088.066

    494603.173

     

     

     

     

    Z[142]

    3305634.811

    495479.373

     

     

     

     

    Z[143]

    495746.501

     

     

     

     

    Z[144]

    495106.263

     

     

     

     

    Z[145]

    495775.072

     

     

     

     

    Z[146]

    3303669.733

    495576.938

     

     

     

     

    Z[147]

    3303401.174

    495773.104

     

     

     

     

    Z[148]

    3303211.261

    495677.496

     

     

     

     

    Z[149]

    3303173.637

    495371.624

     

     

     

     

    Z[150]

    3308158.901

    494520.294

     

     

     

     

    Z[151]

    3308080.613

    493952.915

     

     

     

     

    Z[152]

    3307228.684

    暂空

     

     

     

     

    Z[153]

    3306940.249

    暂空

     

     

     

     

    Z[154]

    3305820.731

    暂空

     

     

     

     

    Z[155]

    3305507.524

    暂空

     

     

     

     

    Z[156]

    3304858.049

    暂空

     

     

     

     

    Z[157]

    3304631.359

    暂空

     

     

     

     

    Z[158]

    3304055.867

    暂空

     

     

     

     

    Z[159]

    -11.5

     

     

     

     

    Z[160]

    -6

     

     

     

     

    Z[161]

    483146.2259

    -0.75

     

     

     

     

    扩展变量设置实际数值表(续表)

    名  称

    上三线四标

    福宁线A14标

    福宁线A14-4

     

     

     

    Z[162]

    0.75

     

     

     

     

    Z[163]

    483231.338

    6

     

     

     

     

    Z[164]

    11.5

     

     

     

     

    Z[165]

     

     

     

     

     

    Z[166]

     

     

     

     

     

    Z[167]

    483592.590

     

     

     

     

     

    Z[168]

    484200.733

     

     

     

     

     

    Z[169]

    483728.0049

     

     

     

     

     

    Z[170]

    484313.473

     

     

     

     

     

    Z[171]

    484455.546

     

     

     

     

     

    Z[172]

    484540.501

     

     

     

     

     

    Z[173]

     

     

     

     

     

    Z[174]

     

     

     

     

     

    Z[175]

     

     

     

     

     

    Z[176]

    484296.135

     

     

     

     

     

    Z[177]

    484328.642

     

     

     

     

     

    Z[178]

    484208.826

     

     

     

     

     

    Z[179]

    484272.887

     

     

     

     

     

    Z[180]

    483722.221

     

     

     

     

     

    Z[181]

    483279.823

     

     

     

     

     

    Z[182]

    483335.318

     

     

     

     

     

    Z[183]

    484057.925

     

     

     

     

     

    Z[184]

    484515.566

     

     

     

     

     

    Z[185]

    484724.313

     

     

     

     

     

    Z[186]

    484798.677

     

     

     

     

     

    Z[187]

    484653.299

     

     

     

     

     

    Z[188]

    484412.871

     

     

     

     

     

    Z[189]

     

     

     

     

     

    Z[190]

     

     

     

     

     

    Z[191]

    -11.5

     

     

     

     

     

    Z[192]

    -6

     

     

     

     

     

    Z[193]

    -1

     

     

     

     

     

    Z[194]

    1

     

     

     

     

     

    Z[195]

    6

     

     

     

     

     

    Z[196]

    11.5

     

     

     

     

     

    Z[197]

     

     

     

     

     

     

    Z[198]

     

     

     

     

     

     

    Z[199]

     

     

     

     

     

     

    Z[200]

     

     

     

     

     

     

    Z[201]

     

     

     

     

     

     

    Z[202]

     

     

     

     

     

     

    Z[203]

     

     

     

     

     

     

     

     

  • 相关阅读:
    Android Qcom Display学习(零)
    【愚公系列】2022年11月 .NET CORE工具案例-.NET Core执行JavaScript
    这8个图片素材库,真的免费下载,4K无水印
    区块链轻节点的问答
    当知识管理遇上企业云盘一体机
    Ubuntu 20.04上安装Datalog Disassembly工具的过程
    牛客小白月赛#55
    DBeaver使用
    dubbo配置及其属性参考文件,配置参考手册
    掌握软件安装的 9 个要点
  • 原文地址:https://blog.csdn.net/s13596191285/article/details/125690064