בעית קיצון - חלקת אדמה
Author: המרכז הארצי למורים למתמטיקה בחינוך העל יסודי

b_1*100

x

100

200

300

400

500

120,000

80,000

40,000

x

s

פונקצית המטרה, שטח המלבן החדש

s(x)=(400-x)(300+x)

הפעל עקבה

A_1 = (5, 8)
a = OrthogonalLine(A_1, xAxis)
b = OrthogonalLine(A_1, yAxis)
B = Point(b)
C = Point(a)
c = OrthogonalLine(C, a)
d = OrthogonalLine(B, c)
D = Intersect(c, d)
poly1, a_1, b_1, d_1, c_1 = Polygon(A_1, B, D, C)
A = Point(a_1)
e = Segment(A, B)
f = Circle(C, e)
F = Intersect(f, a, 1.0)
g = OrthogonalLine(F, a)
h = OrthogonalLine(A, a_1)
G = Intersect(g, h)
poly2, a_2, e_1, g_1, f_1 = Polygon(A_1, A, G, F)
length1: 100.0 * b_1
text1: length1 + ""
length2: a_1 * 100.0
text2: length2 + ""
H = Intersect(xAxis, yAxis)
I = Point(xAxis)
u = Vector(H, I)
J = Point(yAxis)
v = Vector(H, J)
S: (e, poly2 / 2.0)
text15: " שטח החלקה = " + (poly2 * 10000.0) + "  מטר רבוע"
i = false
S_1: (e, poly2 / 2.0)
j = false
text14: "x = " + (e * 100.0) + "  מטר   "
L = Intersect(b_1, a_1)