Příčný profil topografické plochy
Author: Radka Hamříková

Příčný profil topografické plochy, často jen profil, je průnikem topografické plochy s rovinou, která je kolmá k vrstevním rovinám. Průmětem křivky a příčného profilu  je přímka a skutečný průběh profilové křivky dostaneme sklopením roviny do vhodné vrstevní roviny.

180

180

160

160

140

140

120

120

100

100

α_1=a_1

1_1

2_1

3_1

4_1

5_1

6_1

7_1

8_1

9_1

10_1

π(0)

1_1

2_1

3_1

4_1

5_1

6_1

7_1

8_1

9_1

10_1

1

2

3

4

5

6

7

8

9

10

a

A = (-5.699999999999998, -8.600000000000005)
B = (8.199999999999994, -8.600000000000005)
C = (-8.179999999999996, -8.040000000000004)
D = (8.319999999999997, -8.040000000000004)
E = (-6.94, 1.9)
F = (7.4, -1.04)
a = Line(E, F)
G = Point(a)
H = Point(a)
I = Point(a)
J = Point(a)
K = Point(a)
L = Point(a)
M = Point(a)
N = Point(a)
O = Point(a)
P = Point(a)
Q = Point(b)
c = Segment(G, H)
R = Point(Circle[Q, c])
d = Segment(Q, R)
e = Segment(H, I)
S = Point(Circle[R, e])
f = Segment(R, S)
g = Segment(I, J)
T = Point(Circle[S, g])
h = Segment(S, T)
i = Segment(J, K)
U = Point(Circle[T, i])
j = Segment(T, U)
k = Segment(K, L)
V = Point(Circle[U, k])
l = Segment(U, V)
m = Segment(L, M)
W = Point(Circle[V, m])
n = Segment(V, W)
p = Segment(M, N)
Z = Point(Circle[W, p])
q = Segment(W, Z)
r = Segment(N, O)
A_1 = Point(Circle[Z, r])
s = Segment(Z, A_1)
t = Segment(O, P)
B_1 = Point(Circle[A_1, t])
a_1 = Segment(A_1, B_1)
b_1 = OrthogonalLine(Q, b)
c_1 = OrthogonalLine(R, d)
d_1 = OrthogonalLine(S, f)
e_1 = OrthogonalLine(T, h)
f_1 = OrthogonalLine(U, j)
g_1 = OrthogonalLine(V, l)
h_1 = OrthogonalLine(W, n)
i_1 = OrthogonalLine(Z, q)
j_1 = OrthogonalLine(A_1, s)
k_1 = OrthogonalLine(B_1, a_1)
p_1 = Circle(Q, 1)
C_1, D_1 = Intersect(p_1, b_1)
q_1 = Circle(R, 1.2)
E_1, F_1 = Intersect(q_1, c_1)
r_1 = Circle(S, 1.4)
G_1, H_1 = Intersect(r_1, d_1)
s_1 = Circle(T, 1.6)
I_1, J_1 = Intersect(s_1, e_1)
t_1 = Circle(U, 1.8)
K_1, L_1 = Intersect(t_1, f_1)
c_2 = Circle(V, 1.8)
M_1, N_1 = Intersect(c_2, g_1)
d_2 = Circle(W, 1.6)
O_1, P_1 = Intersect(d_2, h_1)
e_2 = Circle(Z, 1.4)
Q_1, R_1 = Intersect(e_2, i_1)
f_2 = Circle(A_1, 1.2)
S_1, T_1 = Intersect(f_2, j_1)
g_2 = Circle(B_1, 1)
U_1, V_1 = Intersect(g_2, k_1)
h_2 = CircumcircleArc(D_1, F_1, H_1)
k_2 = CircumcircleArc(V_1, T_1, R_1)
p_2 = CircumcircleArc(H_1, J_1, L_1)
q_2 = CircumcircleArc(R_1, P_1, N_1)
r_2 = CircumcircleArc(J_1, L_1, N_1)