Depth of Cone:

Width of Cone:

Tap Water:

Reset

Turn on Water

depth = 5
width = 1
radius: width / 2
top: (x / radius)^(2) + ((y - depth) / ((0.5 * radius)))^(2) = 1
Apex = (0, 0)
a, b = Tangent(Apex, top)
lhs = Function(((-(x(b) / y(b))) * x) - z(b) / y(b), x(Apex) - radius, x(Apex))
rhs = Function(((-(x(a) / y(a))) * x) - z(a) / y(a), x(Apex), x(Apex) + radius)
fill = 0 (slider from 0 to maxWater, step 0.001)
wheight: rhs(((3 * fill / ((rhs(1) * π))))^(1 / 3))
wwidth: ((fill * 3 / ((π * rhs(1)))))^(1 / 3)
watertopfill: (x / wwidth)^(2) + ((y - wheight) / ((0.5 * wwidth)))^(2) = 1
P1: (fill, wheight)
poly1, d, apex, e = Polygon(Apex, (x(Apex) + wwidth, wheight), (x(Apex) - wwidth, wheight))
watertopedge: (x / wwidth)^(2) + ((y - wheight) / ((0.5 * wwidth)))^(2) = 1
inputBox1 = Textfield(depth)
inputBox2 = Textfield(width)
tapwater = 14
inputBox3 = Textfield(tapwater)
poly2, c, f, g = Polygon(Apex, (x(Apex) + width / 2, depth), (x(Apex) - width / 2, depth))
watertopfull: (x / radius)^(2) + ((y - depth) / ((0.5 * radius)))^(2) = 1
maxWater: (((1 / 3 * π) * (width / 2)^(2)) * depth)
Fill = 0