Refresh

(Wastage)

 = \frac {Wastage}{TSA  of  Optimal  Can} ×100

Wastage  in  Percentage

A Project by G.Gopika
XIA JNV Pathanamthitta

dia = 25 (slider from 1 to 100, step 1)
ht = 69 (slider from 1 to 150, step 1)
radius: dia / 2
vol: ((π * radius^(2)) * ht)
a: vol / ((2 * π))
b = 2
newrad: a^(1 / 3)
newht: (newrad * 2)
surar: (((2 * π) * radius) * (radius + ht))
minsa: ((6 * π) * newrad^(2))
waste: surar - minsa
wasteper: (waste * 100 / minsa)
A = (4.18, 13.200000000075791)
c_1: abs(radius / 100)
B = Point(Circle[A, abs(radius / 10)])
c = Segment(A, B)
d = Circle(A, B)
C: (x(A), y(A) + ht)
radius_1: dia / 2
A_1: C
c_2: abs(radius_1 / 100)
B_1 = Point(Circle[A_1, abs(radius_1 / 10)])
c_3 = Segment(A_1, B_1)
d_1 = Circle(A_1, B_1)
e = Segment(B_1, B)
D = Point(d_1)
E = Point(d)
f = Segment(D, E)
F = (21.5, 17.20000000007576)
G = Point(Circle[F, abs(newrad / 10)])
g = Segment(F, G)
h = Circle(F, G)
H: (x(F), y(F) + newht)
i = Segment(H, F)
radius_2: dia / 2
vol_1: ((π * radius_2^(2)) * ht)
a_1: vol_1 / ((2 * π))
newrad_1: a_1^(1 / 3)
newht_1: (newrad_1 * 2)
surar_1: (((2 * π) * radius_2) * (radius_2 + ht))
minsa_1: ((6 * π) * newrad_1^(2))
c_4: abs(radius_2 / 100)
radius_3: dia / 2
F_1: H
G_1 = Point(Circle[F_1, abs(newrad_1 / 10)])
g_1 = Segment(F_1, G_1)
h_1 = Circle(F_1, G_1)
j = Segment(G_1, G)
I = Point(h_1)
J = Point(h)
k = Segment(I, J)
l = Segment(A_1, A)
m: ht / radius
K: (m, wasteper)
text1: "Radius=" + (LaTeX[radius]) + "   mm"
text2: "Height=" + (LaTeX[ht]) + " mm"
text3: "Volume=" + (LaTeX[vol]) + "  mm³"
text4: "TSA=" + (LaTeX[surar]) + " mm²"
text5: "Radius=" + (LaTeX[newrad]) + " mm"
text6: "Height=" + (LaTeX[newht]) + " mm"
radius_4: dia / 2
vol_2: ((π * radius_4^(2)) * ht)
a_2: vol_2 / ((2 * π))
surar_2: (((2 * π) * radius_4) * (radius_4 + ht))
c_5: abs(radius_4 / 100)
radius_5: dia / 2
radius_6: dia / 2
radius_7: dia / 2
m_1: ht / radius_4
text3_1: "Volume=" + (LaTeX[vol_2]) + "  mm³"
text7: "TSA=" + (LaTeX[minsa]) + " mm²"
text8: "Difference  in  TSA=" + (LaTeX[waste]) + " mm³"
text12: "=\frac{" + (LaTeX[waste]) + "}{" + (LaTeX[minsa]) + "}×100"
text13: "=" + (LaTeX[wasteper]) + " %"
text15: "\frac{h}{r}=" + (LaTeX[m]) + ""