Pierwsza gałąź

Użyj suwak.

f = Segment((0, 0), (0, 2))
A = Point(f, 0)
B = Point(f, 1)
C = Dilate(Rotate[A, π + π / 4, B], 0.75, B)
D = Dilate(Rotate[A, π - π / 4, B], 0.75, B)
ListOutPut: {Segment[B, C], Segment[B, D]}
s = 1 (slider from -5 to 5)
poziom = 1 (slider from -5 to 5)
p = 1 (slider from 1 to 12, step 1)
l1 = IterationList(Flatten[Zip[Rysuj[s], s, poziom]], poziom, {{f}}, p)

Tool: Rysuj
Input: f
Output: ListOutPut, A, B, C, D

f = Segment((0, 0), (0, 2))
A = Point(f, 0)
B = Point(f, 1)
C = Dilate(Rotate[A, π + π / 4, B], 0.75, B)
D = Dilate(Rotate[A, π - π / 4, B], 0.75, B)
ListOutPut: {Segment[B, C], Segment[B, D]}