Spádové měřítko roviny
Author: Radka Hamříková

s_1^α

-2

-1

0

1

2

3

4

p_1^α

h_1^\alpha(3)

i

A = (-1.9, -3.46)
B = (2.06, 0.5)
a = Line(A, B)
C = (-1.7, -3.1)
b = Line(C, a)
A' = Dilate(A, 0.16666666666666666, B)
A'_1 = Dilate(A, 0.2, A')
A'_2 = Dilate(A, 0.25, A'_1)
A'_3 = Dilate(A, 0.3333333333333333, A'_2)
A'_4 = Dilate(A, 0.5, A'_3)
c = OrthogonalLine(A'_3, a)
d = OrthogonalLine(A', a)
e = Segment(A'_2, A'_1)