Fill/Pause

Reset

Height =

Radius =

h = 6
r = 2.5 (slider from 1 to 8, step 0.1)
Vmax: ((π * r^(2)) * h)
unt = If(Vmax > 49, (round(Vmax / 100) * 10), 5)
Vrate: 10
t = 0 (slider from 0 to tmax, step 0.01)
fillh: (Vrate * t / ((π * r^(2))))
poly1, f, g, i, j = Polygon((r, 0), (r, h), ((-r), h), ((-r), 0))
fi: (f * i)
poly2, k, l, m, n = Polygon((r, 0), (r, fillh), ((-r), fillh), ((-r), 0))
tmax: Vmax / Vrate
pour = false
R = Point(Ray[(0, 0), (1, 0)])
H = Point(Ray[(0, 0), (0, 1)])
unth: unt / ((π * r^(2)))
a = false
untn: floor(h / unth)
text2: "" + (((unth * π) * r^(2))) + " ml"
c: y^(2) / ((0.2 * r))^(2) + x^(2) / r^(2) = 1
c' = Translate(c, (0, fillh))
q(x) = ((-0.2 * r) * sqrt(1 - x^(2) / r^(2)))
c'_1 = Translate(c, (0, h))
list3 = Sequence(If[(-r) ≤ x ≤ (-0.6 * r), q(x) + (i * unth)], i, 1, untn)
p(x) = ((0.2 * r) * sqrt(1 - x^(2) / r^(2))) + fillh
s(x) = ((-0.2 * r) * sqrt(1 - x^(2) / r^(2))) + fillh
diam: (2 * r)
text1: "Volume = " + (((fillh * π) * r^(2))) + " ml
Height = " + fillh + " cm
Diameter = " + diam + " cm"
InputBox1 = Textfield(h)
InputBox2 = Textfield(r)
b: 0.1
d: y^(2) / ((0.2 * r))^(2) + x^(2) / r^(2) = 1
text3: "" + h + " cm"
text4: "" + r + " cm"
e = Ray((0, fillh), (0, fillh + 0.1))
A: (0, fillh)
f_1 = Line(A, xAxis)
B = Intersect(f_1, i)
Radius = 2.5 (slider from 1 to 5, step 0.1)
Height = 6 (slider from 1 to 8, step 0.1)