2D 座標架
Author: 藍邦偉  老師

$ O $

u = Vector((x(Corner[1]), 0), (x(Corner[3]), 0))
v = Vector((0, y(Corner[1])), (0, y(Corner[3])))
O = (0, 0)
Q_2: 0.8 * Corner[1] + 0.2 * Corner[2]
Q_3: (x(Q_2), y(Corner[4]))
poly1, q_1, q_2, q_4, q_3 = Polygon(Corner[1], Q_2, Q_3, Corner[4])
list1 = Sequence(Sequence[(i, j), i, floor(x(Q_2)), floor(x(Corner[3]))], j, floor(y(Q_2)), floor(y(Corner[3])))
list2 = Sequence(Sequence[(sqrt(3) * i, j), i, floor(x(Q_2)), floor(x(Corner[3]))], j, floor(y(Q_2)), floor(y(Corner[3])))
list3 = Sequence(Sequence[(i * j, sqrt(3) * j), i, floor(x(Q_2)), floor(x(Corner[3]))], j, floor(y(Q_2)), floor(y(Corner[3])))
list5 = Sequence(Sequence[(i, 1 / sqrt(3) * j), i, floor(x(Q_2)), floor(x(Corner[3]))], j, floor(y(Q_2)), floor(y(Corner[3])))
list4 = Sequence(Sequence[(1 / sqrt(3) * i, i * j), i, floor(x(Q_2)), floor(x(Corner[3]))], j, floor(y(Q_2)), floor(y(Corner[3])))
List = Union(Union[Union[list1, list2], Union[list3, list4]], list5)
A = Point(List)
ListA = Sequence(x^(2) + y^(2) = r^(2), r, 1, 9)
ListB = Sequence(Ray[(0, 0), (cos((k * 15)°), sin((k * 15)°))], k, 0, 23)
B = (-9.382980197445832, 3.0783541581360194)
text1: "$\;\;\;\;( " + (LaTeX[x(A)]) + "," + (LaTeX[y(A)]) + ") $
$⇒" + (LaTeX[A]) + "$"
Q = Point(list4)
text2: "$ " + (LaTeX[Q]) + " $
$(" + (LaTeX[x(Q)]) + "," + (LaTeX[y(Q)]) + ")$"