圈地大作戰

f(x) = (tan(30°) * x)
g(x) = x
h(x) = (tan(60°) * x)
p(x) = (-f(x))
q(x) = (-g(x))
list_1 = Sequence(x^(2) + y^(2) = i^(2), i, 1, 13)
r(x) = (-h(x))
angle = Sequence(i°, i, 1, 360, 3)
p1 = Sequence(Intersect[f, Element[list_1, i], 2], i, 1, 13)
p2 = Sequence(Intersect[g, Element[list_1, i], 2], i, 1, 13)
p3 = Sequence(Intersect[h, Element[list_1, i], 2], i, 1, 13)
p4 = Sequence(Intersect[r, Element[list_1, i]], i, 1, 13)
p5 = Sequence(Intersect[q, Element[list_1, i]], i, 1, 13)
p6 = Sequence(Intersect[p, Element[list_1, i]], i, 1, 13)
p7 = Sequence(Intersect[f, Element[list_1, i]], i, 1, 13)
p8 = Sequence(Intersect[g, Element[list_1, i]], i, 1, 13)
p9 = Sequence(Intersect[h, Element[list_1, i]], i, 1, 13)
p10 = Sequence(Intersect[r, Element[list_1, i], 2], i, 1, 13)
p11 = Sequence(Intersect[p, Element[list_1, i], 2], i, 1, 13)
p12 = Sequence(Intersect[q, Element[list_1, i], 2], i, 1, 13)
A: (Random[2, 10]; RandomElement[angle])
B: (Random[2, 10]; RandomElement[angle])
C: (Random[2, 10]; RandomElement[angle])
D: (Random[2, 10]; RandomElement[angle])
px = Sequence((i, 0), i, -13, 13)
py = Sequence((0, i), i, -13, 13)
c = Element(list_1, 13)
d = Element(list_1, 1)
e = Element(list_1, 7)
I: (Random[4, 8]; RandomElement[angle])
J: (Random[4, 8]; RandomElement[angle])
K: (Random[4, 8]; RandomElement[angle])
L: (Random[4, 8]; RandomElement[angle])
M: (Random[8, 11]; RandomElement[angle])
N: (Random[8, 11]; RandomElement[angle])
P: (Random[8, 11]; RandomElement[angle])
Q: (Random[8, 11]; RandomElement[angle])
E: (Random[8, 11]; RandomElement[angle])
F: (Random[8, 11]; RandomElement[angle])
G: (Random[8, 11]; RandomElement[angle])
H: (Random[8, 11]; RandomElement[angle])