MathPlotAI Logo MathPlotAI

Comparing Paint Mixtures-Ratios

Comparing Paint Mixtures-Ratios
Loading the math board and drawing, please wait…
2017-03-13 01:57
Coordinate GeometryGeometric Construction
This example demonstrates the concept of ratios by comparing different paint mixtures. It involves core mathematical concepts such as ratios and geometric construction. Using GeoGebra commands like Sequence, Segment, and Conic, different paint mixture models are constructed. Suitable for middle school and above students to learn about ratios and geometric construction.

GeoGebra Commands & Parameters

  1. Sequence(i, i, 0, cupsMax) → mix1cupsGreen
  2. Sequence(i, i, 0, cupsMax) → mix1cupsWhite
  3. Segment(Can1PtMaster, Can1PtTopL) → can1segL
  4. Segment(Can1PtBottomR, Can1PtTopR) → can1segR
  5. Conic(Midpoint[Can1PtTopL, Can1PtTopR] + (0, -0.5), Can1PtTopR + (-0.04, 0), Midpoint[Can1PtTopL, Can1PtTopR] + (canWidth / 3, 0.5), Midpoint[Can1PtTopL, Can1PtTopR] + (((-canWidth)) / 3, 0.5), Can1PtTopL + (0.04, 0)) → can1lidConic
  6. Polygon(Can1PtMaster + (0, -0.006), Can1PtMaster + (canWidth, -0.006), Can1PtMaster + (canWidth, (canHeight * mix1cupsTotal / ((2 * cupsMax))) - 0.01), Can1PtMaster + (0, (canHeight * mix1cupsTotal / ((2 * cupsMax))) - 0.01)) → can1fillRectGreen, a, b, c, g
  7. Polygon(Can1PtMaster + (0, -0.013), Can1PtMaster + (canWidth, -0.013), Can1PtMaster + (canWidth, (canHeight * mix1cupsTotal / ((2 * cupsMax)))), Can1PtMaster + (0, (canHeight * mix1cupsTotal / ((2 * cupsMax))))) → can1fillRectWhite, d, e, f, q
  8. Conic(Can1PtMaster + (canWidth / 2, (canHeight * mix1cupsTotal / ((2 * cupsMax))) - 0.5), Can1PtMaster + (canWidth - 0.02, (canHeight * mix1cupsTotal / ((2 * cupsMax)))), Can1PtMaster + ((5 / 6 * canWidth), (canHeight * mix1cupsTotal / ((2 * cupsMax))) + 0.5), Can1PtMaster + (canWidth / 6, (canHeight * mix1cupsTotal / ((2 * cupsMax))) + 0.5), Can1PtMaster + (0.02, (canHeight * mix1cupsTotal / ((2 * cupsMax))))) → can1fillTopConicGreen
  9. Conic(Can1PtMaster + (canWidth / 2, (canHeight * mix1cupsTotal / ((2 * cupsMax))) - 0.5), Can1PtMaster + (canWidth - 0.02, (canHeight * mix1cupsTotal / ((2 * cupsMax)))), Can1PtMaster + ((5 / 6 * canWidth), (canHeight * mix1cupsTotal / ((2 * cupsMax))) + 0.5), Can1PtMaster + (canWidth / 6, (canHeight * mix1cupsTotal / ((2 * cupsMax))) + 0.5), Can1PtMaster + (0.02, (canHeight * mix1cupsTotal / ((2 * cupsMax))))) → can1fillTopConicWhite
  10. Polygon((-10, -2.02734), (99.12, -2.02734), (19.12, 97.97266), (-10, 17.97266)) → BackgroundYellow, l, m, n, p
  11. Polygon(Can1PtMaster + (-0.1, 0.048), Can1PtBottomR + (0.1, 0.048), Can1PtTopR, Can1PtTopL) → can1fillRectYellowBack, h, i, j, k
  12. Conic(Midpoint[Can1PtMaster, Can1PtBottomR] + (0, -0.5), Can1PtBottomR, Midpoint[Can1PtMaster, Can1PtBottomR] + (canWidth / 3, 0.5), Midpoint[Can1PtMaster, Can1PtBottomR] + (((-canWidth)) / 3, 0.5), Can1PtMaster) → can1bottomConic
  13. Polygon(Can1BrushPt_1, Can1BrushPt_2, Can1BrushPt_3, Can1BrushPt_4, Can1BrushPt_5, Can1BrushPt_6, Can1BrushPt) → can1brushColorGreen, a_1, b_1, c_1, d_1, e_1, f_1, g_1
  14. Polygon(Can1BrushPt_1, Can1BrushPt_2, Can1BrushPt_3, Can1BrushPt_4, Can1BrushPt_5, Can1BrushPt_6, Can1BrushPt) → can1brushColorWhite, a_2, b_2, c_2, d_2, e_2, f_2, g_2
  15. Conic(Midpoint[Can1PtMaster, Can1PtBottomR] + (0, -0.45), Can1PtBottomR + (0, 0.1), Midpoint[Can1PtMaster, Can1PtBottomR] + (canWidth / 3, 0.6), Midpoint[Can1PtMaster, Can1PtBottomR] + (((-canWidth)) / 3, 0.6), Can1PtMaster + (0, 0.1)) → can1bottomConicGreen
  16. Conic(Midpoint[Can1PtMaster, Can1PtBottomR] + (0, -0.49), Can1PtBottomR + (0, 0.05), Midpoint[Can1PtMaster, Can1PtBottomR] + (canWidth / 3, 0.6), Midpoint[Can1PtMaster, Can1PtBottomR] + (((-canWidth)) / 3, 0.6), Can1PtMaster + (0, 0.05)) → can1bottomConicWhite
  17. Polygon(Mix1visualsMasterPt + (0, tapeDiagramHeight + 0.1), Mix1visualsMasterPt + (If[SelectedElement[mix1cupsGreen] ≥ SelectedElement[mix1cupsWhite], tapeDiagRectModelWidth, (SelectedElement[mix1cupsGreen] * tapeDiagRectModelWidth / SelectedElement[mix1cupsWhite])], tapeDiagramHeight + 0.1), Mix1visualsMasterPt + (If[SelectedElement[mix1cupsGreen] ≥ SelectedElement[mix1cupsWhite], tapeDiagRectModelWidth, (SelectedElement[mix1cupsGreen] * tapeDiagRectModelWidth / SelectedElement[mix1cupsWhite])], (2 * tapeDiagramHeight)), Mix1visualsMasterPt + (0, (2 * tapeDiagramHeight))) → mix1tapeDiagGreenPoly, mix1tapeDiagGreenPolySeg_1, mix1tapeDiagGreenPolySeg_2, mix1tapeDiagGreenPolySeg_3, mix1tapeDiagGreenPolySeg
  18. Polygon(Mix1visualsMasterPt + (0, 0), Mix1visualsMasterPt + (If[SelectedElement[mix1cupsWhite] ≥ SelectedElement[mix1cupsGreen], tapeDiagRectModelWidth, (SelectedElement[mix1cupsWhite] * tapeDiagRectModelWidth / SelectedElement[mix1cupsGreen])], 0), Mix1visualsMasterPt + (If[SelectedElement[mix1cupsWhite] ≥ SelectedElement[mix1cupsGreen], tapeDiagRectModelWidth, (SelectedElement[mix1cupsWhite] * tapeDiagRectModelWidth / SelectedElement[mix1cupsGreen])], tapeDiagramHeight - 0.1), Mix1visualsMasterPt + (0, tapeDiagramHeight - 0.1)) → mix1tapeDiagWhitePoly, mix1tapeDiagWhitePolySeg_1, mix1tapeDiagWhitePolySeg_2, mix1tapeDiagWhitePolySeg_3, mix1tapeDiagWhitePolySeg
  19. Polygon(Mix1visualsMasterPt + (0, rectModelVerticalOffset), Mix1visualsMasterPt + (tapeDiagRectModelWidth, rectModelVerticalOffset), Mix1visualsMasterPt + (tapeDiagRectModelWidth, rectModelHeight + rectModelVerticalOffset), Mix1visualsMasterPt + (0, rectModelHeight + rectModelVerticalOffset)) → mix1rectAreaOutline, mix1rectAreaOutlineSeg_1, mix1rectAreaOutlineSeg_2, mix1rectAreaOutlineSeg_3, mix1rectAreaOutlineSeg
  20. Polygon(Mix1visualsMasterPt + (0, rectModelVerticalOffset), Mix1visualsMasterPt + ((SelectedElement[mix1cupsGreen] * tapeDiagRectModelWidth / mix1cupsTotal), rectModelVerticalOffset), Mix1visualsMasterPt + ((SelectedElement[mix1cupsGreen] * tapeDiagRectModelWidth / mix1cupsTotal), rectModelHeight + rectModelVerticalOffset), Mix1visualsMasterPt + (0, rectModelHeight + rectModelVerticalOffset)) → mix1rectAreaGreenPoly, r, s, t, h_1
  21. SelectedIndex(mix1visualType) → mix1visualTypeSelected
  22. Midpoint(Mix1visualsMasterPt, Mix1visualsMasterPt + (tapeDiagRectModelWidth, rectModelHeight + rectModelVerticalOffset)) → Mix1circleModelCenter
  23. Circle(Mix1circleModelCenter, circleModelRadius) → mix1circleModelOutline
  24. Circle(Mix1circleModelCenter, circleModelRadius) → mix1circleModelGreenSector
  25. Sequence(Segment[Mix1circleModelCenter, Rotate[Mix1circleModelSectorRefPt, (i * (2 * π / mix1cupsTotal)), Mix1circleModelCenter]], i, 0, mix1cupsTotal - 1, 1) → mix1circleModelDividers
  26. CircleSector(Mix1circleModelCenter, Mix1circleModelSectorRefPt, Rotate[Mix1circleModelSectorRefPt, ((1.99999999999999 * π) * SelectedElement[mix1cupsWhite] / mix1cupsTotal), Mix1circleModelCenter]) → mix1circleModelWhiteSector
  27. Conic(Can1PtMaster + (canWidth / 2, (canHeight * mix1cupsTotal / ((2 * cupsMax))) - 0.5), Can1PtMaster + (canWidth - 0.02, (canHeight * mix1cupsTotal / ((2 * cupsMax)))), Can1PtMaster + ((5 / 6 * canWidth), (canHeight * mix1cupsTotal / ((2 * cupsMax))) + 0.5), Can1PtMaster + (canWidth / 6, (canHeight * mix1cupsTotal / ((2 * cupsMax))) + 0.5), Can1PtMaster + (0.02, (canHeight * mix1cupsTotal / ((2 * cupsMax))))) → can1fillTopConicWhiteOutline
  28. Sequence(Segment[Mix1visualsMasterPt + (0 + i, 0), Mix1visualsMasterPt + (0 + i, tapeDiagramHeight - 0.1)], i, 0, If[SelectedElement[mix1cupsWhite] ≥ SelectedElement[mix1cupsGreen], tapeDiagRectModelWidth, (SelectedElement[mix1cupsWhite] * tapeDiagRectModelWidth / SelectedElement[mix1cupsGreen])], If[SelectedElement[mix1cupsWhite] ≥ SelectedElement[mix1cupsGreen], tapeDiagRectModelWidth / SelectedElement[mix1cupsWhite], tapeDiagRectModelWidth / SelectedElement[mix1cupsGreen]]) → mix1tapeDiagramWhiteDividers
  29. Sequence(Segment[Mix1visualsMasterPt + (0 + i, tapeDiagramHeight + 0.1), Mix1visualsMasterPt + (0 + i, (2 * tapeDiagramHeight))], i, 0, If[SelectedElement[mix1cupsGreen] ≥ SelectedElement[mix1cupsWhite], tapeDiagRectModelWidth, (SelectedElement[mix1cupsGreen] * tapeDiagRectModelWidth / SelectedElement[mix1cupsWhite])], If[SelectedElement[mix1cupsGreen] ≥ SelectedElement[mix1cupsWhite], tapeDiagRectModelWidth / SelectedElement[mix1cupsGreen], tapeDiagRectModelWidth / SelectedElement[mix1cupsWhite]]) → mix1tapeDiagramGreenDividers
  30. Sequence(Polygon[Mix1cupsGreenImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i, i - cupsMax / 2]), If[i < cupsMax / 2, 0, (-cupImagesHeight) - 0.1]), Mix1cupsGreenImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i + 0.5, i - cupsMax / 2 + 0.5]), If[i < cupsMax / 2, 0, (-cupImagesHeight) - 0.1]), Mix1cupsGreenImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i + 0.59, i - cupsMax / 2 + 0.59]), If[i < cupsMax / 2, cupImagesHeight, -0.1]), Mix1cupsGreenImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i - 0.09, i - cupsMax / 2 - 0.09]), If[i < cupsMax / 2, cupImagesHeight, -0.1])], i, 0, SelectedElement[mix1cupsGreen] - 1, 1) → mix1cupImagesGreenFill
  31. Sequence(Polygon[Mix1cupsWhiteImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i, i - cupsMax / 2]), If[i < cupsMax / 2, 0, (-cupImagesHeight) - 0.1]), Mix1cupsWhiteImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i + 0.5, i - cupsMax / 2 + 0.5]), If[i < cupsMax / 2, 0, (-cupImagesHeight) - 0.1]), Mix1cupsWhiteImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i + 0.59, i - cupsMax / 2 + 0.59]), If[i < cupsMax / 2, cupImagesHeight, -0.1]), Mix1cupsWhiteImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i - 0.09, i - cupsMax / 2 - 0.09]), If[i < cupsMax / 2, cupImagesHeight, -0.1])], i, 0, SelectedElement[mix1cupsWhite] - 1, 1) → mix1cupImagesWhiteFill
  32. Sequence(Polygon[Mix1cupsWhiteImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i, i - cupsMax / 2]), If[i < cupsMax / 2, 0, (-cupImagesHeight) - 0.1]), Mix1cupsWhiteImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i + 0.5, i - cupsMax / 2 + 0.5]), If[i < cupsMax / 2, 0, (-cupImagesHeight) - 0.1]), Mix1cupsWhiteImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i + 0.59, i - cupsMax / 2 + 0.59]), If[i < cupsMax / 2, cupImagesHeight, -0.1]), Mix1cupsWhiteImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i - 0.09, i - cupsMax / 2 - 0.09]), If[i < cupsMax / 2, cupImagesHeight, -0.1])], i, 0, SelectedElement[mix1cupsWhite] - 1, 1) → mix1cupImagesWhiteOutline
  33. Point(Segment[(-0.78, 5.5), (22, 5.5)]) → CenterDividerHandle
  34. Sequence(Polygon[Mix1cupsGreenImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i, i - cupsMax / 2]), If[i < cupsMax / 2, 0, (-cupImagesHeight) - 0.1]), Mix1cupsGreenImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i + 0.5, i - cupsMax / 2 + 0.5]), If[i < cupsMax / 2, 0, (-cupImagesHeight) - 0.1]), Mix1cupsGreenImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i + 0.59, i - cupsMax / 2 + 0.59]), If[i < cupsMax / 2, cupImagesHeight, -0.1]), Mix1cupsGreenImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i - 0.09, i - cupsMax / 2 - 0.09]), If[i < cupsMax / 2, cupImagesHeight, -0.1])], i, 0, SelectedElement[mix1cupsGreen] - 1, 1) → mix1cupImagesGreenOutline
  35. Polygon((10.7, -10), (10.7, 10.3), (x(CenterDividerHandle), 10.3), (x(CenterDividerHandle), -10)) → centerDivderYellowShade, centerDivderYellowShadeSegCenter, centerDivderYellowShadeSeg_2, centerDivderYellowShadeSeg_3, centerDivderYellowShadeSeg
  36. Sequence(i, i, 0, cupsMax) → mix2cupsGreen
  37. Sequence(Polygon[Mix2cupsGreenImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i, i - cupsMax / 2]), If[i < cupsMax / 2, 0, (-cupImagesHeight) - 0.1]), Mix2cupsGreenImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i + 0.5, i - cupsMax / 2 + 0.5]), If[i < cupsMax / 2, 0, (-cupImagesHeight) - 0.1]), Mix2cupsGreenImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i + 0.59, i - cupsMax / 2 + 0.59]), If[i < cupsMax / 2, cupImagesHeight, -0.1]), Mix2cupsGreenImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i - 0.09, i - cupsMax / 2 - 0.09]), If[i < cupsMax / 2, cupImagesHeight, -0.1])], i, 0, SelectedElement[mix2cupsGreen] - 1, 1) → mix2cupImagesGreenFill
  38. Sequence(i, i, 0, cupsMax) → mix2cupsWhite
  39. Sequence(Polygon[Mix2cupsGreenImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i, i - cupsMax / 2]), If[i < cupsMax / 2, 0, (-cupImagesHeight) - 0.1]), Mix2cupsGreenImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i + 0.5, i - cupsMax / 2 + 0.5]), If[i < cupsMax / 2, 0, (-cupImagesHeight) - 0.1]), Mix2cupsGreenImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i + 0.59, i - cupsMax / 2 + 0.59]), If[i < cupsMax / 2, cupImagesHeight, -0.1]), Mix2cupsGreenImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i - 0.09, i - cupsMax / 2 - 0.09]), If[i < cupsMax / 2, cupImagesHeight, -0.1])], i, 0, SelectedElement[mix2cupsGreen] - 1, 1) → mix2cupImagesGreenOutline
  40. Sequence(Polygon[Mix2cupsWhiteImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i, i - cupsMax / 2]), If[i < cupsMax / 2, 0, (-cupImagesHeight) - 0.1]), Mix2cupsWhiteImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i + 0.5, i - cupsMax / 2 + 0.5]), If[i < cupsMax / 2, 0, (-cupImagesHeight) - 0.1]), Mix2cupsWhiteImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i + 0.59, i - cupsMax / 2 + 0.59]), If[i < cupsMax / 2, cupImagesHeight, -0.1]), Mix2cupsWhiteImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i - 0.09, i - cupsMax / 2 - 0.09]), If[i < cupsMax / 2, cupImagesHeight, -0.1])], i, 0, SelectedElement[mix2cupsWhite] - 1, 1) → mix2cupImagesWhiteFill
  41. Sequence(Polygon[Mix2cupsWhiteImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i, i - cupsMax / 2]), If[i < cupsMax / 2, 0, (-cupImagesHeight) - 0.1]), Mix2cupsWhiteImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i + 0.5, i - cupsMax / 2 + 0.5]), If[i < cupsMax / 2, 0, (-cupImagesHeight) - 0.1]), Mix2cupsWhiteImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i + 0.59, i - cupsMax / 2 + 0.59]), If[i < cupsMax / 2, cupImagesHeight, -0.1]), Mix2cupsWhiteImagesMasterPt + ((cupImagesSpacing * If[i < cupsMax / 2, i - 0.09, i - cupsMax / 2 - 0.09]), If[i < cupsMax / 2, cupImagesHeight, -0.1])], i, 0, SelectedElement[mix2cupsWhite] - 1, 1) → mix2cupImagesWhiteOutline
  42. Polygon(Can2PtMaster + (0, -0.006), Can2PtMaster + (canWidth, -0.006), Can2PtMaster + (canWidth, (canHeight * mix2cupsTotal / ((2 * cupsMax))) - 0.01), Can2PtMaster + (0, (canHeight * mix2cupsTotal / ((2 * cupsMax))) - 0.01)) → can2fillRectGreen, n_1, p_1, q_1, r_1
  43. Polygon(Can2PtMaster + (0, -0.013), Can2PtMaster + (canWidth, -0.013), Can2PtMaster + (canWidth, (canHeight * mix2cupsTotal / ((2 * cupsMax)))), Can2PtMaster + (0, (canHeight * mix2cupsTotal / ((2 * cupsMax))))) → can2fillRectWhite, s_1, t_1, h_2, i_2
  44. Polygon(Can2PtMaster + (-0.1, 0.048), Can2PtBottomR + (0.1, 0.048), Can2PtTopR, Can2PtTopL) → can2fillRectYellowBack, j_2, k_2, can2pttopr, can2pttopl
  45. Segment(Can2PtMaster, Can2PtTopL) → can2SegL
  46. Segment(Can2PtBottomR, Can2PtTopR) → can2segR
  47. Conic(Midpoint[Can2PtMaster, Can2PtBottomR] + (0, -0.5), Can2PtBottomR, Midpoint[Can2PtMaster, Can2PtBottomR] + (canWidth / 3, 0.5), Midpoint[Can2PtMaster, Can2PtBottomR] + (((-canWidth)) / 3, 0.5), Can2PtMaster) → can2bottomConic
  48. Conic(Midpoint[Can2PtMaster, Can2PtBottomR] + (0, -0.45), Can2PtBottomR + (0, 0.1), Midpoint[Can2PtMaster, Can2PtBottomR] + (canWidth / 3, 0.6), Midpoint[Can2PtMaster, Can2PtBottomR] + (((-canWidth)) / 3, 0.6), Can2PtMaster + (0, 0.1)) → can2bottomConicGreen
  49. Conic(Midpoint[Can2PtMaster, Can2PtBottomR] + (0, -0.49), Can2PtBottomR + (0, 0.05), Midpoint[Can2PtMaster, Can2PtBottomR] + (canWidth / 3, 0.6), Midpoint[Can2PtMaster, Can2PtBottomR] + (((-canWidth)) / 3, 0.6), Can2PtMaster + (0, 0.05)) → can2bottomConicWhite
  50. Conic(Can2PtMaster + (canWidth / 2, (canHeight * mix2cupsTotal / ((2 * cupsMax))) - 0.5), Can2PtMaster + (canWidth - 0.02, (canHeight * mix2cupsTotal / ((2 * cupsMax)))), Can2PtMaster + ((5 / 6 * canWidth), (canHeight * mix2cupsTotal / ((2 * cupsMax))) + 0.5), Can2PtMaster + (canWidth / 6, (canHeight * mix2cupsTotal / ((2 * cupsMax))) + 0.5), Can2PtMaster + (0.02, (canHeight * mix2cupsTotal / ((2 * cupsMax))))) → can2fillTopConicGreen
  51. Conic(Can2PtMaster + (canWidth / 2, (canHeight * mix2cupsTotal / ((2 * cupsMax))) - 0.5), Can2PtMaster + (canWidth - 0.02, (canHeight * mix2cupsTotal / ((2 * cupsMax)))), Can2PtMaster + ((5 / 6 * canWidth), (canHeight * mix2cupsTotal / ((2 * cupsMax))) + 0.5), Can2PtMaster + (canWidth / 6, (canHeight * mix2cupsTotal / ((2 * cupsMax))) + 0.5), Can2PtMaster + (0.02, (canHeight * mix2cupsTotal / ((2 * cupsMax))))) → can2fillTopConicWhite
  52. Conic(Can2PtMaster + (canWidth / 2, (canHeight * mix2cupsTotal / ((2 * cupsMax))) - 0.5), Can2PtMaster + (canWidth - 0.02, (canHeight * mix2cupsTotal / ((2 * cupsMax)))), Can2PtMaster + ((5 / 6 * canWidth), (canHeight * mix2cupsTotal / ((2 * cupsMax))) + 0.5), Can2PtMaster + (canWidth / 6, (canHeight * mix2cupsTotal / ((2 * cupsMax))) + 0.5), Can2PtMaster + (0.02, (canHeight * mix2cupsTotal / ((2 * cupsMax))))) → can2fillTopConicWhiteOutline
  53. Conic(Midpoint[Can2PtTopL, Can2PtTopR] + (0, -0.5), Can2PtTopR + (-0.04, 0), Midpoint[Can2PtTopL, Can2PtTopR] + (canWidth / 3, 0.5), Midpoint[Can2PtTopL, Can2PtTopR] + (((-canWidth)) / 3, 0.5), Can2PtTopL + (0.04, 0)) → can2lidConic
  54. Polygon(Can2BrushPt_1, Can2BrushPt_2, Can2BrushPt_3, Can2BrushPt_4, Can2BrushPt_5, Can2BrushPt_6, Can2BrushPt_7, Can2BrushPt) → can2brushColorGreen, a_3, b_3, c_3, d_3, e_3, f_3, g_3, h_3
  55. Polygon(Can2BrushPt_1, Can2BrushPt_2, Can2BrushPt_3, Can2BrushPt_4, Can2BrushPt_5, Can2BrushPt_6, Can2BrushPt_7, Can2BrushPt) → can2brushColorWhite, can2brushpt_1, can2brushpt_2, can2brushpt_3, can2brushpt_4, can2brushpt_5, can2brushpt_6, can2brushpt_7, can2brushpt
  56. SelectedIndex(mix2visualType) → mix2visualTypeSelected
  57. Midpoint(Mix2visualsMasterPt, Mix2visualsMasterPt + (tapeDiagRectModelWidth, rectModelHeight + rectModelVerticalOffset)) → Mix2circleModelCenter
  58. Polygon(Mix2visualsMasterPt + (0, rectModelVerticalOffset), Mix2visualsMasterPt + ((SelectedElement[mix2cupsGreen] * tapeDiagRectModelWidth / mix2cupsTotal), rectModelVerticalOffset), Mix2visualsMasterPt + ((SelectedElement[mix2cupsGreen] * tapeDiagRectModelWidth / mix2cupsTotal), rectModelHeight + rectModelVerticalOffset), Mix2visualsMasterPt + (0, rectModelHeight + rectModelVerticalOffset)) → mix2rectAreaGreenPoly, m_1, l_2, m_2, n_2
  59. Polygon(Mix2visualsMasterPt + (0, rectModelVerticalOffset), Mix2visualsMasterPt + (tapeDiagRectModelWidth, rectModelVerticalOffset), Mix2visualsMasterPt + (tapeDiagRectModelWidth, rectModelHeight + rectModelVerticalOffset), Mix2visualsMasterPt + (0, rectModelHeight + rectModelVerticalOffset)) → mix2rectAreaOutline, mix2rectAreaOutlineSeg_1, mix2rectAreaOutlineSeg_2, mix2rectAreaOutlineSeg_3, mix2rectAreaOutlineSeg
  60. Sequence(Segment[Mix2visualsMasterPt + (0 + i, tapeDiagramHeight + 0.1), Mix2visualsMasterPt + (0 + i, (2 * tapeDiagramHeight))], i, 0, If[SelectedElement[mix2cupsGreen] ≥ SelectedElement[mix2cupsWhite], tapeDiagRectModelWidth, (SelectedElement[mix2cupsGreen] * tapeDiagRectModelWidth / SelectedElement[mix2cupsWhite])], If[SelectedElement[mix2cupsGreen] ≥ SelectedElement[mix2cupsWhite], tapeDiagRectModelWidth / SelectedElement[mix2cupsGreen], tapeDiagRectModelWidth / SelectedElement[mix2cupsWhite]]) → mix2tapeDiagramGreenDividers
  61. Sequence(Segment[Mix2visualsMasterPt + (0 + i, 0), Mix2visualsMasterPt + (0 + i, tapeDiagramHeight - 0.1)], i, 0, If[SelectedElement[mix2cupsWhite] ≥ SelectedElement[mix2cupsGreen], tapeDiagRectModelWidth, (SelectedElement[mix2cupsWhite] * tapeDiagRectModelWidth / SelectedElement[mix2cupsGreen])], If[SelectedElement[mix2cupsWhite] ≥ SelectedElement[mix2cupsGreen], tapeDiagRectModelWidth / SelectedElement[mix2cupsWhite], tapeDiagRectModelWidth / SelectedElement[mix2cupsGreen]]) → mix2tapeDiagramWhiteDividers
  62. Sequence(Segment[Mix2circleModelCenter, Rotate[Mix2circleModelSectorRefPt, ((i * 2) * π / mix2cupsTotal), Mix2circleModelCenter]], i, 0, mix2cupsTotal - 1, 1) → mix2circleModelDividers
  63. Circle(Mix2circleModelCenter, circleModelRadius) → mix2circleModelGreenSector
  64. Circle(Mix2circleModelCenter, circleModelRadius) → mix2circleModelOutline
  65. Polygon(Mix2visualsMasterPt + (0, tapeDiagramHeight + 0.1), Mix2visualsMasterPt + (If[SelectedElement[mix2cupsGreen] ≥ SelectedElement[mix2cupsWhite], tapeDiagRectModelWidth, (SelectedElement[mix2cupsGreen] * tapeDiagRectModelWidth / SelectedElement[mix2cupsWhite])], tapeDiagramHeight + 0.1), Mix2visualsMasterPt + (If[SelectedElement[mix2cupsGreen] ≥ SelectedElement[mix2cupsWhite], tapeDiagRectModelWidth, (SelectedElement[mix2cupsGreen] * tapeDiagRectModelWidth / SelectedElement[mix2cupsWhite])], (2 * tapeDiagramHeight)), Mix2visualsMasterPt + (0, (2 * tapeDiagramHeight))) → mix2tapeDiagGreenPoly, mix2tapeDiagGreenPolySeg_1, mix2tapeDiagGreenPolySeg_2, mix2tapeDiagGreenPolySeg_3, mix2tapeDiagGreenPolySeg
  66. Polygon(Mix2visualsMasterPt + (0, 0), Mix2visualsMasterPt + (If[SelectedElement[mix2cupsWhite] ≥ SelectedElement[mix2cupsGreen], tapeDiagRectModelWidth, (SelectedElement[mix2cupsWhite] * tapeDiagRectModelWidth / SelectedElement[mix2cupsGreen])], 0), Mix2visualsMasterPt + (If[SelectedElement[mix2cupsWhite] ≥ SelectedElement[mix2cupsGreen], tapeDiagRectModelWidth, (SelectedElement[mix2cupsWhite] * tapeDiagRectModelWidth / SelectedElement[mix2cupsGreen])], tapeDiagramHeight - 0.1), Mix2visualsMasterPt + (0, tapeDiagramHeight - 0.1)) → mix2tapeDiagWhitePoly, mix2tapeDiagWhitePolySeg_1, mix2tapeDiagWhitePolySeg_2, mix2tapeDiagWhitePolySeg_3, mix2tapeDiagWhitePolySeg
  67. CircleSector(Mix2circleModelCenter, Mix2circleModelSectorRefPt, Rotate[Mix2circleModelSectorRefPt, ((1.9999999 * π) * SelectedElement[mix2cupsWhite] / mix2cupsTotal), Mix2circleModelCenter]) → mix2circleModelWhiteSector
  68. Segment(CenterDividerHandle + (0, 0.25), (x(CenterDividerHandle), 9.3)) → centerDividerSegmentTop
  69. Segment((10.7, If[x(CenterDividerHandle) ≟ 10.7, y(CenterDividerHandle) + 0.3, -3]), (10.7, 10)) → centerDividerFixedSeg
  70. Segment((10.7, -2.4), (10.7, 10)) → centerDividerSeg
  71. Segment((x(CenterDividerHandle), 0), CenterDividerHandle + (0, -0.28)) → centerDividerSegmentBottom
  72. Sequence(Segment[Mix1visualsMasterPt + (i, rectModelVerticalOffset), Mix1visualsMasterPt + (i, rectModelHeight + rectModelVerticalOffset)], i, 0, tapeDiagRectModelWidth, tapeDiagRectModelWidth / mix1cupsTotal) → mix1rectAreaDividers
  73. Sequence(Segment[Mix2visualsMasterPt + (i, rectModelVerticalOffset), Mix2visualsMasterPt + (i, rectModelHeight + rectModelVerticalOffset)], i, 0, tapeDiagRectModelWidth, tapeDiagRectModelWidth / mix2cupsTotal) → mix2rectAreaDividers