1

元に戻す

A: (0, 0)
B: (2, 0)
C: (2, 1)
D: (0, 1)
f = Segment(A, B)
g = Segment(B, C)
h = Segment(C, D)
i = Segment(D, A)
E: (1, 1 / 2)
n = 1 (slider from 1 to 100, step 1)
xSum = Sequence(((-cos((k * π / 2))) * (1 / 2)^(k / 2)), k, 2, n, 1)
ySum = Sequence(((-sin((k * π / 2))) * (1 / 2)^((k + 1) / 2)), k, 2, n, 1)
xSumSum: 1 + Sequence[Sum[xSum, i], i, 1, n - 1]
ySumSum: 1 / 2 + Sequence[Sum[ySum, i], i, 1, n - 1]
PointList = Join({{(1, 1 / 2)}, Sequence[(Element[xSumSum, i], Element[ySumSum, i]), i, 1, n - 1, 1]})
TwoTimesVector = Sequence(Vector[(2 * Vector[Element[PointList, i - 1], Element[PointList, i]])], i, 2, n, 1)
TwoTimesPoint = Sequence(Element[PointList, i] + Element[TwoTimesVector, i], i, 1, n - 1, 1)
OtherVector = Join({{Vector[(1, 1 / 2), (1, 0)]}, Sequence[Vector[Element[PointList, i + 1], Element[TwoTimesPoint, i]], i, 1, n - 1, 1]})
CornerPoint = Sequence(Element[PointList, i] + Element[TwoTimesVector, i] + Element[OtherVector, i], i, 1, n, 1)
CornerPoint2 = Sequence(Point[Element[OtherVector, i]], i, 1, n)
PolygonList = Sequence(Polygon[Element[PointList, i], Element[CornerPoint2, i], Element[CornerPoint, i], Element[TwoTimesPoint, i]], i, 1, n, 1)
poly1 = Polygon((0, 0), (1, 0), 4)
F: (1.33, 0.67)
IntersectPoint = Sequence(Intersect[Line[Element[PointList, i], Element[CornerPoint, i]], Line[Element[CornerPoint2, i], Element[TwoTimesPoint, i]]], i, 1, n, 1)
zoom = 0.06 (slider from -10 to 1, step 0.01)
TextList = Sequence(Text[LaTeX["1/" + (2^(i)) + ""], Element[IntersectPoint, i]], i, 1, n, 1)
prezoom = 1.1
xMax: x(F) + 2^(zoom)
xMin: x(F) - 2^(zoom)
yMax: y(F) + 2^(zoom)
yMin: y(F) - 2^(zoom)

Tool: Tool1
Input: A
Output: h, g

B: (x(A), 0)
C: (0, y(A))
g = Segment(A, C)
h = Segment(A, B)