mjere

Približna površina:

Površina kao zbroj pravokutnika:

Točna površina:

funkcija koja opisuje rub jezera

d = 13.2 (slider from -5 to 20)
r(x) = If[0 ≤ x ≤ 6, sqrt(36 - (x - 6)^(2)), If[9 ≤ x ≤ 15, sqrt(36 - (x - 9)^(2))]]
q(x) = If[0 ≤ x ≤ d, 1.58 + sqrt(45.56 - (x - 6.6)^(2))]
g(x) = If[0 ≤ x ≤ d, sin((2 * x)) + 5 + (x - 5)^(2) / 10, 0]
A = Intersect(xAxis, yAxis)
n = 2 (slider from 1 to 30, step 1)
p: d / n
f: q(x)
k = false
nx = If(k, Sequence[Translate[A, ((i * p), 0)], i, 0, n, 1])
mjere = If(k, Sequence[Segment[Element[nx, i], Intersect[f, x = Distance[A, Element[nx, i]], (13.2, 2.9942135623730977)]], i, 1, n + 1, 1])
j = false
i = true
racun = Sequence(If[Element[mjere, i] ≥ Element[mjere, i + 1], Element[mjere, i], Element[mjere, i + 1]], i, 1, n)
h = true
B: (d, 0)
v = 15 (slider from -5 to 20)
C: (d, v)
D: (0, v)
q1, a, b, c, d_1 = Polygon(A, B, C, D)
povrsina: (p * Sum[racun])
pravokutnici = If(i, Sequence[Polygon[(((i - 1) * p), 0), ((i * p), 0), ((i * p), Element[racun, i]), (((i - 1) * p), Element[racun, i])], i, 1, n, 1])
trapezi = If(j, Sequence[Polygon[(((i - 1) * p), 0), ((i * p), 0), ((i * p), Element[mjere, i + 1]), (((i - 1) * p), Element[mjere, i])], i, 1, n, 1])
rezultat = If(h, Integral[q, 0, d])
pp = Sum(pravokutnici)
pt = Sum(trapezi)
e = If(i, "" + pp + "")
tekst1: "" + pp + ""
tekst2: "" + pt + ""
tekst3: "" + rezultat + ""
txtPolje1 = Textfield(q)