不是最好的，但绝对可用，这次特别抽了点时间按计算器显示的格式输入到了电脑，你已可以直接下载Excel文件查看：http://www.lq52.com/Soft/ShowSoft.asp?SoftID=25可以一次输入整条路的要素，以后只需输入桩号及距离中桩距离就可以了。（当然要计算放线距离和角度需正确输入置仪点坐标）可计算等级公路常见的曲线组合。

（本资料完全免费，欢迎交流，转载请注明出处：[路桥吾爱]http://www.lq52.com）

有任何问题都可以和我联系。

QQ：8151190；Web：www.lq52.com；论坛： bbs.lq52.com

4850放线程序

主程序

子程序：S

L

b

l

0

:

F

i

x

3

:

D

e

f

m

L

b

l

0

:

Z

≤

1

2

3

4

=>

G

o

t

2

:

{

E

F

}

:

E

"

X

0

"

:

F

"

o

1

:

≠

=>

Z

≤

2

3

4

5

=>

G

o

t

Y

0

"

↙

o

2

:

≠

=>

…

…

L

b

l

1

:

{

U

Z

}

:

Z

"

Z

H

U

L

b

l

1

:

Z

<

1

2

3

=>

J

=

交

点

A

N

G

H

A

O

"

:

Z

<

0

=>

J

=

0

桩

号

：

Z

[

1

]

=

交

点

X

坐

标

：

Z

[

:

I

=

0

:

G

o

t

o

Z

:

≠

=>

P

r

2

]

=

交

点

Y

坐

标

：

R

=

半

径

:

L

=

o

g

"

S

"

:

U

"

B

I

A

N

J

U

"

缓

和

曲

线

长

:

T

=

切

线

长

:

I

=

曲

线

(

Z

+

,

Y

-

)

"

:

Z

≤

J

-

T

=>

A

长

:

Q

=

前

方

位

角

:

S

=

后

方

位

角

:

=

Z

-

J

:

N

=

0

:

M

=

0

:

V

=

Q

W

=

转向

◣

:

≠

=>

Z

<

2

3

4

=>

J

=

:

G

o

t

o

2

:

≠

=>

Z

≤

J

-

T

+

.

.

.

◣

L

=>

A

=

-

T

:

N

=

Z

-

J

+

T

:

M

L

b

l

2

:

Z

<

…

…

=

0

:

V

=

Q

:

G

o

t

o

2

:

≠

=>

.

.

.

.

.

.

Z

≤

J

-

T

+

I

-

L

=>

A

=

-

T

:

N

.

.

.

.

.

.

=

L

:

M

=

Z

-

J

+

T

-

L

:

V

=

Q

.

.

.

.

.

.

:

G

o

t

o

2

:

≠

=>

Z

≤

J

-

T

+

I

=>

A

=

-

T

:

N

=

J

-

T

+

I

-

Z

:

M

=

0

:

V

=

S

+

1

8

0

:

R

=

-

R

:

G

o

t

o

2

:

≠

=>

Z

>

J

-

T

+

I

=>

A

=

-

2

T

-

Z

+

J

+

I

:

N

=

0

:

M

=

0

:

V

=

S

+

1

8

0

:

G

o

t

o

2

⊿

↙

L

b

l

2

:

L

=

0

=>

C

=

0

:

P

=

0

:

G

=

O

:

O

=

9

0

M

÷

π

÷

R

:

B

=

2

R

s

i

n

O

:

D

=

5

7

.

2

9

5

8

M

÷

R

:

G

o

t

o

4

:

≠

=>

G

o

t

o

3

↙

L

b

l

3

:

G

=

9

0

L

÷

π

÷

R

:

P

=

3

0

N

²

÷

(

π

R

L

)

:

C

=

N

-

N

^

5

÷

(

9

0

R

²

L

²

)

:

O

=

支持网站：

www.lq52.com

9

0

M

÷

π

÷

R

:

B

=

2

R

s

i

n

QQ:

8151190

O

:

D

=

2

8

.

6

4

7

5

(

N

²

+

2

不是最好的，但绝对可用，这次特别抽了点时间按计算器显示的格式输入到了电脑。可以一次输入整条路的要素，以后只需输入桩号及距离中桩距离就可以了。（当然要计算放线距离和角度需正确输入置仪点坐标）可计算等级公路常见的曲线组合。（本资料完全免费，欢迎交流，转载请注明出处：[路桥吾爱]http://www.lq52.com）

M

L

)

÷

L

÷

R

:

G

o

t

o

4

↙

L

b

l

4

:

W

>

0

=>

G

=

-

G

:

O

=

-

O

:

P

=

-

P

:

D

=

-

D

⊿

G

o

t

o

5

↙

L

b

l

5

:

Z

≤

J

-

T

+

I

-

L

=>

G

o

t

o

6

:

≠

=>

G

o

t

o

7

↙

L

b

l

6

:

U

>

0

=>

K

=

2

7

0

:

G

o

t

o

8

:

≠

=>

K

=

9

0

:

U

=

-

U

:

G

o

t

o

8

↙

L

b

l

7

:

U

<

0

=>

K

=

2

7

0

:

G

o

t

o

8

:

≠

=>

K

=

9

0

:

U

=

-

U

:

G

o

t

o

8

↙

L

b

l

8

:

"

X

,

Y

,

δ

,

H

"

:

X

=

Z

[

1

]

+

A

c

o

s

V

+

C

c

o

s

(

V

+

P

)

+

B

c

o

s

(

V

+

G

+

O

)

+

U

c

o

s

(

V

+

D

+

K

)

◣

Y

=

Z

[

2

]

÷

A

s

i

n

V

+

C

s

i

n

(

V

+

P

)

+

B

s

i

n

(

V

+

G

+

O

)

+

U

s

i

n

(

V

+

D

+

K

)

◣

L

b

l

Z

:

Z

<

0

=>

{

X

Y

E

F

}

:

E

"

X

0

"

:

F

"

Y

0

"

⊿

P

o

l

(

X

-

E

,

Y

-

F

)

:

J

<

0

=>

J

=

J

+

3

6

0

⊿

J

→

D

M

S

◣

I

◣

G

o

t

o

1

⊿