Z prostokatnego arkusza blachy o wymiarach 20 x 30 cm
wycięto w narożach kwadraty
i po zagięciu otrzymano otwarte pudełko.
Jak duże muszą być wycięte kwadraty,
aby pole powierzchni bocznej było maksymalne?

w = 0 (slider from 0 to 10, step 0.01)
wycięcie: w
A = Intersect(xAxis, yAxis)
B = Point(yAxis)
C = (30, 20)
D = Point(xAxis)
q1, a, b, c, d = Polygon(A, B, C, D)
X1: (w, 0)
X2: (30 - w, 0)
X3: (30, w)
X4: (30, 20 - w)
X5: (30 - w, 20)
X6: (w, 20)
X7: (0, 20 - w)
X8: (0, w)
Y1: (w, w)
Y2: (30 - w, w)
Y3: (30 - w, 20 - w)
Y4: (w, 20 - w)
q2, x6, y4, y3, x5 = Polygon(X6, Y4, Y3, X5)
q3, x7, f, y1, x8 = Polygon(X7, Y4, Y1, X8)
q4, x1, x2, y2, g = Polygon(X1, X2, Y2, Y1)
q5, h, x3, x4, i = Polygon(Y2, X3, X4, Y3)
q6, j, k, l, m = Polygon(Y4, Y3, Y2, Y1)
pb: q2 + q3 + q4 + q5
P: (w, pb)
Z1: (w, w, w)
Z2: (30 - w, w, w)
Z3: (30 - w, 20 - w, w)
Z4: (w, 20 - w, w)
q7, n, p, z4, z3 = Polygon(Y3, Y4, Z4, Z3)
q8, z2, q, r, s = Polygon(Z2, Z3, Y3, Y2)
q9, t, e, f_1, z1 = Polygon(Y1, Y4, Z4, Z1)
q10, g_1, h_1, i_1, j_1 = Polygon(Y2, Y1, Z1, Z2)
tekst1: "Pole podstawy = " + q6 + ""
pc: q6 + pb
tekst2: "Pole całkowite = " + pc + ""
tekst3: "Pole boczne = " + pb + ", dla wycięcia = " + w + " cm"