עקוב אחר השתנות ההיקף

f(x) = x * log(2 * x)
A = Point(f)
c = OrthogonalLine(A, b)
d = OrthogonalLine(A, a)
B = Intersect(d, a)
C = Intersect(b, a)
D = Intersect(b, c)
e = Segment(B, C)
g = Segment(C, D)
h = Segment(D, A)
i = Segment(A, B)
poly1, a_1, d_1, c_1, b_1 = Polygon(A, D, C, B)
distanceAD = Distance(A, D)
distanceCD = Distance(C, D)
טקסטAD: "" + distanceAD
טקסטCD: " " + distanceCD
text1: "f(x)=" + f + ""
text2: "היקף המלבן  =   " + (2 * e + 2 * g) + ""
E: (x(A), 2 * e + 2 * g)
j = true
P: (x(A), 2 * e + 2 * g)
k, l = שיעורינקודה(E)

Tool: שיעורי נקודה (command שיעורינקודה)
נקודה
Input: A
Output: d, c

a = OrthogonalLine(A, xAxis)
b = OrthogonalLine(A, yAxis)
B = Intersect(b, yAxis)
C = Intersect(a, xAxis)
c = Segment(B, A)
d = Segment(A, C)