-
辛卜生公式
FX4800
线路坐标计算
—
辛卜生公式
N
取任意值
（
T
就是
N
的取值范围
2<=T>=12
且必须为
偶数）
Lbi 0
：
{EG}
：
A“XA”
：
B“YA”<
/p>
：
C“JA”
：
D“1/RA”
：
E“1/RB”
：<
/p>
F“KA”
：
G“KB”
Lbi 1
：｛
HOR
｝：
H“K”
：
O
“DL”
：
R“DR”
：
H
﹥
G=
﹥
Goto3
⊿
P=(E-D)/ABS(G-F)
Q=ABS(H-F)
I=P×
Q
J=C+(I+2D)Q×90/π
J
：
J
﹤
0=
﹥
J=J+360
⊿
< br>
U=0
：
V=0
：
W=0
：
Z=0
S=T
LbI
4
：
U=U+cos
（
C+
（
I*
（
2*S-1
）
/
（
2*T
）
+2*D
）
*
（
Q/2
）
*
（
2*S-1
）
/
（
2*T
）
*180/π
）
V=V+sin
（
C+
（
I*
（
2*S-1<
/p>
）
/
（
2*T<
/p>
）
+2*D
）
*
（
Q/2
）
*
（
2*S-1
）
/
（
2*T
）
*180/π
）
DSZ S
Goto 4
S=T-1
Lbi
5
W=W+ cos
（
C+
（
I*S/T+2*D
）
*
（
Q/2
）
*
（
S/T
）
*180/π
）
Z = Z+ s
in
（
C+
（
I*S/T+2*D
）
*
（
Q/2
）
*
（
S/T
）
*180/π
）
DSZ S
Goto 5
J=J▲
X=A+Q/
（
6T
）
*
（
cosC+4U+2W+cosJ
）
▲
Y=B+ Q/
（
6T
）
*
（
sinC+4V+2Z+sinJ
）
▲
U“XL”=X+Ocos
（
J-90
）
▲V“YL”=Y+Osin
（
J-90
）
▲
W“XR”=X+Rcos
（
< br>J+90
）
▲Z“YR”=Y+Rsin
（
J+90
）
▲
Goto 1
Lbi 3
：
A=X
：
B=Y
< br>：
D=E
：
F=G
：
C=J
：
Goto 0
参数的意义：
XA---
起始点
X
坐标
Y
A---
起始点
Y
坐标
JA---
起始点方位角
1/RA---
起始点曲率（半径倒数，曲线左偏用
“—”
：曲线右偏用
“
＋
”
）
1/RB---
终点曲率（半径倒数，曲线左偏用
“—”
：曲线右
偏用
“
＋
”
）
KA---
起点里程
KB---
终点里程
K---
待求点里程
DL---
左边桩至中桩距离
DR---
右边桩至中桩距离
J---
待求点方位角
X---<
/p>
待求点
X
坐标
Y---
待求点
Y
坐标
XL---
左边桩
X
坐标
YL---
左边桩
< br>Y
坐标
XR---
右边桩<
/p>
X
坐标
YR---
< br>右边桩
Y
坐标
建议大家不要一味追求精度，具体工程采用具体的实际计算
方法。当
N=12
（
T
就是
N
的取
值范围）时，在<
/p>
FX4800
上的计算比较慢。如果不是那种缓和曲线特别长，圆
曲线半径特别
小的线形，
N=2
就可以
了。
好用的
复
]
[
搜索
]
[
献花
]
第
43
楼
2005-6-1 22:02:00
关
于
“
神奇公式
”
的另一种方法：
.......Excel
最重要的应用就是利用公式进行计
算。无论输入是纯粹的数字运算，还是引用其他
单元格计算，只要在一个单元格中输入公
式，就能得到结果。这个直接显示结果的设计对于绝
大多数场合来说都是适用的，
但某些情况下就不那么让人满意了。
比如说在做工程施工的预结
算编写，使用
Excel
，既要写出工程量的
计算式，也要看到它的结果，于是这样相同的公式在
Excel
里面要填两次，一次在文本格式的单元格中输入公式，一次是在数据格式的单元格中输
入
公式让
Excel
计算结果。
如何既能看到公式又能看到结果呢？这个问题笔者认为可以从
两个方面考虑：
一种方法是所谓
“
已知
结果，显示公式
”
，先在数据格式单元格中输入公式让
Excel
计算结果，然后在相邻的单
元格中看
到公式；另一种方法所谓
“
已知公式，显示结果
”
，就是先在一个文本格式的单元格中
输入公式，在相
邻的单元格中看到结果。
已知结果，显示公式
假设<
/p>
C
列为通过公式计算得到的结果（假设
C
1
为
“=A1+B1”
，或者直接是数
字运算
“=2+
3”
），而相邻的
D
列是你需要显示公式的地方（即
D1
应该显示为
“=A1+B1”
或者
“=2+3”
）。
1.
打开
“
工具
”
菜单选择
“
选项
”
命令，出现
“
选项
”
对话框。
2.
在
“
常规
”
选项卡中，选中
“R1C1
引用方式
”
选项。
3.
定义名称，将
“
引用位置
”
由
“=(6,Sheet1!RC[
-
1])”
即可。这里的
RC[-1]
含义是
如果在当前单元格的同行前一列单元格中有公式结果，
则在当前单元格中得
到公式内容，
即在
含公式结果单元格的同行后一列单元格显示公
式内容；如果将
RC[-1]
改为
RC
[1]
，则在公式结
果的同行前一列单元格显示公式内容。
4.
如果
“
引用位置
”
中含有
“RC[
-
1]”
，则在含公式结果单元格的同行后一列单元格中输入
“=
FormulaofResult”
即可得到公式；如果<
/p>
“
引用位置
”
中
含有
“RC[1]”
，则在含公式结果单元格的同
行前一列单元格中输入
“=FormulaofResult”
即可得到公式。
提示：如果想要在含公式结果单元格的同行后数第
2
列中显示公式内容，则需要把
“
引用
< br>位置
”
中的
“RC?
－
1
?
”
改为
“RC?
－
2
?
”
。
已知公式，显示结果
假设
C<
/p>
列为输入的没有等号公式（假设
C1
为<
/p>
“A1+B1”
），而相邻的
D
列是你需要存放公
式计算结果的地方（即
D1<
/p>
显示
A1
和
B1
单元格相加的结果）。
1.
选中
D1
，
然后打开
“
插入
”
菜单选择
“
名称
”
命令中的
“
定义
”
子命令，
出现
“
定义名称
”
对话
框。
2.
在
“
在
当前工作表中的名称
”
输入栏中输入定义的名称
“ResultofFomula”
，在下方的
“
引用
位置
”
编辑栏
中输入
“=EVALUATE(Sheet1!C1)”
，单击
[
确认
]
按钮
退出。
3.
在
D1
中输入
“=ResultofFomula”
，然后选中按住
右下角的填充柄向下拉动填充即可。
提示：
EVALUATE
?
?
是
Eexcel 4
．
0
版的宏表函数，
< br>Excel 2000
和
Excel 2002
中还支持，
但只可用于名称定义中。
4.
填
充后要按
[F9]
进行重算，如果
C<
/p>
列的公式有改动，也需要及时按
[F9]
进行重算。
巧施妙计，就能让公式和结果在
Excel
中和平共处了，
你也试试吧。
.................
道路测量程序大全（
2
）
一、程序设计
1
．
测量放样计算主程序
CLFY
?
V=19:Fixm:Rad
?
{OEFG}:O”
”:E”DZ”:F”DH”:G”AH”
< br>?
Pol(Z[F+52]-Z[E+52],Z[F+62]-Z[E+62]
)
?
D=πG÷180
-J
?
Lbl 1
?
Goto 2
◣
?
1
?
O
?
{KQ}:K”KF”:Q”BL”
?
Prog
”ZB”
?
X=X+Rec(Q,U+π÷2):Y=Y+J
?
Goto 3
?
Lbl 2
?
{XY}:X”XF”:Y”YF”
?
Lbl 3
?
Pol(X-Z[E+52],Y-Z[E+62])
I”S=”
◢
?
I=J+D
I>
< br>?
I=I-
2π
◣
?
2π
I<
?
I=I+2π
◣
?
0
?
I=180I÷π
I”A=”
◢
Goto 1
2
．线路坐标计算主程序
XLZB
?
Rad
?
Fixm
?
{O}:O”
”
?
Q=0
?
Lbl 1
?
{K}:K”K”
?
{QG}:Q”L”:G”AJ”
◣
?
1
?
O
?
Prog
”ZB”:X=X+Rec(Q,U+πG÷180):Y=Y+J
X”X=”
◢
Y”Y=”
◢
U=180U÷π:U”AT=”
◢
?
O=1
?
◣
Goto 1
3
．线路高程计算主程序
XLGC
?
V=11:Fixm
?
Lbl 0
?
{KQ}:K”K”:Q”L”
?
Prog
”KD”
?
Prog
”GC”
C”H=”
◢
Goto 0
4
．边桩放样计算主程序
BZFY
?
Fixm
?
Rad
?
{Z}:Z”
”
?
Z[11]=0:Goto
1
◣
?
Z=2
?
Goto
1
◣
?
Z=3
?
{MNGU}:M”DZ”:N”DH”:G”HZ”:U”AH”
?
Z[8]=Z[M+52]:Z[9]=Z[M+62]
?
C=Z[N+52]:A=Z[N+62]
?
Pol(C-Z[8],A-Z[9]):Z[10]=J-
πU÷180:Z[11]=G
?
Lbl 1
?
Goto
2
◣
?
Z=2
?
{EBFD}:B”AQ”:E”S”:D”HD”:F”HY”
< br>
?
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”
Goto 1
5
．
线路坐标计算子程序
ZB
?
Prog
”YS”
?
X=74445.797
?
Y=501515.278
?
S=771.296-K
?
B=A+C+π
S>
?
Goto
1
◣
?
L
?
I=SSS÷
6÷
R÷
L
?
J=S-S^5÷
(40RRLL)
?
U=B-SS÷
(2RL)-
π:Goto
2
?
Lbl 1
?
U=(2S-L)÷
R÷
2
?
I=R(1-cos U)+Z[5]:J=Rsin
U+Z[6]
?
U=B-(S-
L÷
2)÷R+π
?
Lbl 2
?
Pol(I,J):J=J+B-
π÷2<
/p>
?
X=Rec(I,J)+X
?
Y=Y+J
U
◣
?
0
6
．曲线要素计算子程序
YS
?
R=280
?
L=84.7
?
S=-0.6769479859
?
A=-2.415291254
?
N=-1
?
C=1.738343268
?
Z[5]=1.067572917
?
Z[6]=42.31770592
?
T=374.9146895
Z[7]=RC+L
7
．线路高程计算子程序
GC
?
W=13
?
Lbl 1
?
P=Z[W+7]
K>
?
W=W+1:Goto
1
◣
?
Z[W]-P
?
W=14
◣
?
W=13
?
Goto
2
◣
?
V=W-1
?
V=W-1
?
J=Z[V+4]
?
R=(J-Z[V+3])÷
(Z[V]-Z[V-1])
?
S=(Z[V+5]-J)÷
(Z[V+1]-Z[
V])
?
T=Z[V+7]
?
Lbl 2
?
L=K-Z[V]
?
H=J+RL:Goto 3
◣
?
L≤
-T
?
H=J+SL:Goto
3
◣
?
L≥T
?
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
?
C=0:Goto 6
◣
?
A≤Z[4]
?
I=-1
Q>
?
I=1
◣
?
0
?
Lbl 4
?
Y=23
?
Lbl 5
?
Y=Y+1:Goto 5
◣
?
K≥Z[Y]
?
O=Z[Y+2]:X=Z[Y+3]:O=IO:X=IX
?
O=2
◣
?
Z[Y+2]=0
?
X=2
◣
?
Z[Y+3]=0
?
N=(Z[Y]-K)÷
(Z[Y]-Z[Y-1])
?
M=(X-O)(1-3NN+2NNN)+O
?
C=(Z[4]-A)M÷
100:Goto
6
◣
?
A≤Z[2]
< br>
?
C=0.04(Z[2]-A)-M(Z[2]-Z
[4])÷
100
M>
?
C=(Z[4]-A)M÷
100
◣
?
4
?
Lbl 6
C=H+C
8
．反求线路桩号子程序
FQ
?
Prog
”YS”
?
Z[4]=74445.797
?
Z[3]=501515.278
?
K=771.296:Q=0:Goto 2
◣◣
?
Z[3]=Y
?
Z[4]=X
?
Q=Z[4]:K=Z[3
]:G=S+π÷2
?
Prog
”ZH”
?
G=LL÷
6÷
R:Q=L-LLL÷
40÷
R÷
R
?
Pol(G-H,Q-
W):K=J+π÷2+L÷2÷R
cos K<
?
Goto
1
◣
?
0
?
Pol(H-(R+Z[5]),W-Z[6])
?
K=771.296-
R(π
-J)-L÷
2
?
Q=R-I
?
Goto 2
?
Lbl 1
?
K=1:U=L
?
Prog
”HQ”
?
K=771.296-O:Q=-Q
?
Lbl 2
?
M=1000
?
K=Intg
(MK+0.5)÷
M
?
Q=Intg
(MQ+0.5)÷
M
Z”KD=”
◢
Q”WB=”
◢
9
．坐标转换计算子程序
ZH
?
H=X-Q:W=Y-K
?
Pol(H,W)
?
G=J-G
H=Icos
G:W=Isin G
10
．反求缓曲长度子程序
HQ
?
A=K÷
46080÷
< br>R^6÷
U^6
?
P=H÷<
/p>
3840÷
R^5÷
U^5
?
C=13K÷
5760÷
R^4÷
U^4
?
T=KW÷
384÷
R^4÷
U^4
?
G=H÷
48÷
R^3÷<
/p>
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
?<
/p>
^4+LSS-KS+N
Q=13AS^12+10PS^9-
9CS^8+8TS^7-6GS^5+5IS^4-4
js
?
^3+2LS-K
?
O=S-M÷
Q
Abs (O-S)<
?
Goto
8
◣
?
1E-5
?
S=O
?
Goto 7
?
Lbl 8
?
T=KOOO÷
6÷
U÷
R
?
P=O-O^5÷
(40RRUU)
?
Q=0:Goto 9
◣◣
?
P=W
?
T=H
?
Pol(H-T,W-P)
?
Q=sin (J+KOO÷
2÷<
/p>
R÷
U-
π÷2)
?
S=-1
Q>
?
S=1
◣
?
0
?
Q=SI
Lbl 9
11
．边桩放样计算子程序
FY
?
V=11
?
U=Q
?
Prog
”KD”
?
Q=-0.75-Z[2]:Z[3]=-1
U>
?
Q=0.75+Z[2]:Z[3]=1
◣
?
0
?
Prog
”GC”
?
X=G-C
?
Goto
7
◣
?
X≤0
?
N=Int
((X-0.1)÷
8.9)+1
N>
?
N=5
◣
?
5
?
I=1
?
Lbl 2
?
O=Z[28+I]
?
{O}:O”M”
?
Z[28+I]=O
?
I=I+1
I>
?
Goto
4
◣
?
N+1
?
Goto 2
?
Lbl 4
?
I=0
?
W=3.55+Z[2]:H=0.04
?
Lbl 5
?
I=I+1
I>
?
Goto
6
◣
?
N-1
?
W=W+2+9Z[I+28]
?
H=H+8.9
?
Goto 5
?
Lbl 6
A=X-
H:A”C=”
◢
W=W-Abs U
P=WZ[3]
◢
?
A≤1
?
◣
P=(
9Z[I+28]+W+2)Z[3]
◢
?
A≥8
?
◣
?
A=AZ[I+28]+W
?
Goto 8
?
Lbl 7
?
X=-X
?
A=1.5X+0.75+Z[2]-Abs
U
◣
?
X≤8
X>
?
A=12.75+Z[2]+1
.75(X-8)-Abs U
◣◣
?
X≤12
?
8
X>
< br>?
A=14.75+Z[2]+1.75(X-8.04)-Abs
U
◣
?
12
?
Lbl 8
?
A=AZ[3]
A”DB=”
◢
12.
路面宽度计算子程序
KD
?
Z[2]=10.5
?
Z[4]=0.5
K>K
?
460<
?
Z[4]
=0
◣◣
?
540
?
Goto
6
◣
?
Abs
Q≤Z[4]
Q>
?
Goto
1
◣
?
0
K
<
?
I=50:X=K-370.6255:Goto
2
◣
?
370.6255
K>
?
I=41:X=K-430:Goto 2
◣◣
?
K≤467.384
?
430
K>K
?
467.384<
?
Goto
3
◣◣
?
532.616
K
?
K≥532.616<
?
I=41:X=570-K:Goto
2
◣◣
?
570
K>
?
I=35:X=K-686.596:Goto
2
◣
?
686.596
?
Goto
5
◣
?
Lbl 1
K<
< br>?
I=47:X=K-350.4277:Goto
2
◣
?
350.4277
K>
?
I=44:X=K-430:Goto 2
◣◣
?
K≤463.545
?
430
K>K
?
463.545<
?
Goto
4
◣◣
?
536.455
K
?
K≥536.455<
?
I=44:X=570-K:Goto
2
◣◣
?
570
K>
?
I=38:X=K-686.596:Goto
2
◣
?
686.596
?
Goto
5
◣
?
Lbl 2
?
Z[2]=Z[I]XXX+Z[I+1]XX+Z[I+2]X+10.5:Goto 5
?
Lbl 3
?
Z[2]=299.104÷
sin
(1.4543+(K-467.384)÷
280)-280:Goto 5
?
Lbl 4
?
Z[2]=280-267.304÷
sin
(1.4406+(K-463.545)÷
280)
?
Lbl 5
L=Z[2]+0.7
5:L”LD=”
◢
Lbl
6
二、扩展变量设置数值
扩展变量设置实际数值表
名
称
福宁线
A14-A
变坡点数目
b 2
起超点数目
c 3
台阶数目
d 6
-
-
-
-
-
-
-
-
-
上一篇：AR典型配置案例 查看设备基本状态
下一篇：椭圆判别式