偶看新闻spss的斯皮尔曼检验:5800计算器全线高程检测放样
来源：百度文库 编辑：偶看新闻 时间：2024/05/07 23:02:22
BG:（标高计算式程序）
Lbl B
“LVHUADAI”? －﹥J：“JGC”? －﹥A：“BM+HS”? －﹥O
“N=1 JIANCE N=2 FANGYANG”?N
Lbl 1
“KM”?Z： “JULU：L-,R+，C=0,﹥500= start”?W：“QS”?S：Prog“GK” ：Prog“podu”
Abs(.01(I－J)R÷2)－﹥T
If Z≥L+T：Then Goto 4:IfEnd
If Z≥L-T：Then Goto 3:IfEnd
Lbl 2：H+.01(Z－L)I—A－﹥B: Goto 5
Lbl 3:H+.01(Z－L)I+(J－I)(Z+T－L)2÷(2R Abs(J－I)) —A －﹥B: Goto 5
Lbl 4:H+.01(Z－L)J—A－﹥B: Goto 5
Lbl 5
If Z≤C:ThenD－﹥Q:D－﹥P ：IfEnd
If Z≥C: Then(M－D)/(F－C)(Z－C)+D－﹥Q： (N－E)/(F－C)(Z－C)+E－﹥P：IfEnd
N=1：Then Goto A:Ifind
N=2：Then Goto D:Ifind
Lbl A
If W≤J And W≥ - J：Then Goto 6:IfEnd
If W≤-J：Then Goto 7:IfEnd
If W＜500 And W≥J ：Then Goto 8:Else Goto B :IfEnd
Lbl 6：B－﹥B: “H=”:B◢
O—S—B－﹥U:“TWC=”:U◢
Goto 9
Lbl 7:B+Q Abs(W)—J)/100－﹥X:“HL=”:X◢
Q－﹥Q: “I L= %”:Q◢
O—S—X－﹥V:“TWL=”:V◢
Goto 9
Lbl 8:B+P(W—J)/100－﹥Y:“HR=”:Y◢
P－﹥P: “I R= %”:P◢
O—S—Y－﹥G:“TWR=”:G◢
Goto 9
Lbl 9
Goto 1
Lbl D
If W=0：Then Goto E:IfEnd
If W＜0：Then Goto F:IfEnd
If W＜500 And W﹥0：Then Goto G:Else Goto B :IfEnd
Lbl E：B－﹥B: “H=”:B◢
O—S—B－﹥U:“TWC=”:U◢
Goto H
Lbl F:B+Q W/100－﹥X:“HL=”:X◢
Q－﹥Q: “I L= %”:Q◢
O—S—X－﹥V:“TWL=”:V◢
Goto H
Lbl G:B+PW/100－﹥Y:“HR=”:Y◢
P－﹥P: “I R= %”:P◢
O—S—Y－﹥G:“TWR=”:G◢
Goto H
Goto 1
B--------设计高程
LVHUADAI——绿化带宽度（半幅）每条线路根据实际输入，（为防止错误每次必须输入数值）
BM+HS——输入水准点高程+后视读数（即仪器高）,如果想改变仪器高在距离处输入大于500数值即可，（为防止错误每次必须输入数值）
QS——前视读数
N=1------任意点高程检测
N=2------摊铺机摊铺放样
KM——输入所求桩号
JULI——输入距中桩距离（左侧为负数、右侧为正数、中桩为零 大于500重新开始计算）
HL= ——显示左侧设计高程
I L= %——显示左侧设计横坡（%）
TWL= ——显示左侧边桩实测高程——设计高程所得差值
HR= ——显示右侧设计高程
I R= %——显示右侧设计横坡 (%)
TWR= ——显示右侧边桩实测高程——设计高程所得差值
H= ——显示中桩设计高程
TWC= ——显示中桩实测高程——设计高程所得差值
GK（竖曲线数据库）
PODU
Lbl B
“LVHUADAI”? －﹥J：“JGC”? －﹥A：“BM+HS”? －﹥O
“N=1 JIANCE N=2 FANGYANG”?N
Lbl 1
“KM”?Z： “JULU：L-,R+，C=0,﹥500= start”?W：“QS”?S：Prog“GK” ：Prog“podu”
Abs(.01(I－J)R÷2)－﹥T
If Z≥L+T：Then Goto 4:IfEnd
If Z≥L-T：Then Goto 3:IfEnd
Lbl 2：H+.01(Z－L)I—A－﹥B: Goto 5
Lbl 3:H+.01(Z－L)I+(J－I)(Z+T－L)2÷(2R Abs(J－I)) —A －﹥B: Goto 5
Lbl 4:H+.01(Z－L)J—A－﹥B: Goto 5
Lbl 5
If Z≤C:ThenD－﹥Q:D－﹥P ：IfEnd
If Z≥C: Then(M－D)/(F－C)(Z－C)+D－﹥Q： (N－E)/(F－C)(Z－C)+E－﹥P：IfEnd
N=1：Then Goto A:Ifind
N=2：Then Goto D:Ifind
Lbl A
If W≤J And W≥ - J：Then Goto 6:IfEnd
If W≤-J：Then Goto 7:IfEnd
If W＜500 And W≥J ：Then Goto 8:Else Goto B :IfEnd
Lbl 6：B－﹥B: “H=”:B◢
O—S—B－﹥U:“TWC=”:U◢
Goto 9
Lbl 7:B+Q Abs(W)—J)/100－﹥X:“HL=”:X◢
Q－﹥Q: “I L= %”:Q◢
O—S—X－﹥V:“TWL=”:V◢
Goto 9
Lbl 8:B+P(W—J)/100－﹥Y:“HR=”:Y◢
P－﹥P: “I R= %”:P◢
O—S—Y－﹥G:“TWR=”:G◢
Goto 9
Lbl 9
Goto 1
Lbl D
If W=0：Then Goto E:IfEnd
If W＜0：Then Goto F:IfEnd
If W＜500 And W﹥0：Then Goto G:Else Goto B :IfEnd
Lbl E：B－﹥B: “H=”:B◢
O—S—B－﹥U:“TWC=”:U◢
Goto H
Lbl F:B+Q W/100－﹥X:“HL=”:X◢
Q－﹥Q: “I L= %”:Q◢
O—S—X－﹥V:“TWL=”:V◢
Goto H
Lbl G:B+PW/100－﹥Y:“HR=”:Y◢
P－﹥P: “I R= %”:P◢
O—S—Y－﹥G:“TWR=”:G◢
Goto H
Goto 1
B--------设计高程
LVHUADAI——绿化带宽度（半幅）每条线路根据实际输入，（为防止错误每次必须输入数值）
BM+HS——输入水准点高程+后视读数（即仪器高）,如果想改变仪器高在距离处输入大于500数值即可，（为防止错误每次必须输入数值）
QS——前视读数
N=1------任意点高程检测
N=2------摊铺机摊铺放样
KM——输入所求桩号
JULI——输入距中桩距离（左侧为负数、右侧为正数、中桩为零 大于500重新开始计算）
HL= ——显示左侧设计高程
I L= %——显示左侧设计横坡（%）
TWL= ——显示左侧边桩实测高程——设计高程所得差值
HR= ——显示右侧设计高程
I R= %——显示右侧设计横坡 (%)
TWR= ——显示右侧边桩实测高程——设计高程所得差值
H= ——显示中桩设计高程
TWC= ——显示中桩实测高程——设计高程所得差值
GK（竖曲线数据库）
PODU