%v

%v

%v

%v

$\text{NUEVO GRÁFICO}$

x

y

%v

%v

\text{Los valores repetidos se\
escriben una sola vez.}

\text{Haz clic en cada punto para explorar\
dominio y rango de esta relación.}

$\text{ORGANIZAR VALORES}$

clickedP6 = false
clickedP5 = false
clickedP4 = false
clickedP3 = false
clickedP2 = false
clickedP1 = false
clickedPoints: {clickedP1, clickedP2, clickedP3, clickedP4, clickedP5, clickedP6}
allClickedPoints: Sum[clickedPoints] ≟ 6
ani2 = 0 (slider from 0 to 2.5, step 0.1)
ani3 = 0 (slider from 0 to 2.5, step 0.1)
ani4 = 0 (slider from 0 to 2.5, step 0.1)
ani5 = 0 (slider from 0 to 2.5, step 0.1)
ani1 = 0 (slider from 0 to 2.5, step 0.1)
ani6 = 0 (slider from 0 to 2.5, step 0.1)
allAniDone: Sum[{ani1 ≟ 2.5, ani2 ≟ 2.5, ani3 ≟ 2.5, ani4 ≟ 2.5, ani5 ≟ 2.5, ani6 ≟ 2.5}] ≟ 6
allPossiblePoints: Join[Sequence[Sequence[(j, k), j, -8, 8, 2], k, -8, 8, 2]] \ Sequence[(t, 0), t, -8, 8] \ Sequence[(0, t), t, -8, 8]
megaGrid = Shuffle(allPossiblePoints)
P6: megaGrid(6)
P5: megaGrid(5)
P4: megaGrid(4)
P3: megaGrid(3)
Dims = Corner(5)
speed: 1.7
P1: megaGrid(1)
P2: megaGrid(2)
PX1 = Dilate(P1, If[0 < ani1 ≤ 1, 1 - ani1, 0], (x(P1), 0))
PX2 = Dilate(P2, If[0 < ani2 ≤ 1, 1 - ani2, 0], (x(P2), 0))
PY1 = Dilate(P1, If[1 < ani1 ≤ 2, 2 - ani1, 0], (0, y(P1)))
PY2 = Dilate(P2, If[1 < ani2 ≤ 2, 2 - ani2, 0], (0, y(P2)))
PY3 = Dilate(P3, If[1 < ani3 ≤ 2, 2 - ani3, 0], (0, y(P3)))
PY4 = Dilate(P4, If[1 < ani4 ≤ 2, 2 - ani4, 0], (0, y(P4)))
PY5 = Dilate(P5, If[1 < ani5 ≤ 2, 2 - ani5, 0], (0, y(P5)))
PY6 = Dilate(P6, If[1 < ani6 ≤ 2, 2 - ani6, 0], (0, y(P6)))
p1x = Segment(P1, PX1)
p2x = Segment(P2, PX2)
PX3 = Dilate(P3, If[0 < ani3 ≤ 1, 1 - ani3, 0], (x(P3), 0))
p3x = Segment(P3, PX3)
PX4 = Dilate(P4, If[0 < ani4 ≤ 1, 1 - ani4, 0], (x(P4), 0))
p4x = Segment(P4, PX4)
PX5 = Dilate(P5, If[0 < ani5 ≤ 1, 1 - ani5, 0], (x(P5), 0))
p5x = Segment(P5, PX5)
PX6 = Dilate(P6, If[0 < ani6 ≤ 1, 1 - ani6, 0], (x(P6), 0))
p6x = Segment(P6, PX6)
p1y = Segment(P1, PY1)
p2y = Segment(P2, PY2)
p3y = Segment(P3, PY3)
p4y = Segment(P4, PY4)
p5y = Segment(P5, PY5)
p6y = Segment(P6, PY6)
domain = Sort(Unique[{x(P1), x(P2), x(P3), x(P4), x(P5), x(P6)}])
range = Sort(Unique[{y(P1), y(P2), y(P3), y(P4), y(P5), y(P6)}])
peep, f, g, h, i = Polygon((-10.97, -10.97), (10.97, -10.97), (10.97, 10.97), (-10.97, 10.97))
axisX = Segment((-10.9, 0), (10.9, 0))
axisY = Segment((0, -10.9), (0, 10.9))
domainRaw: {NaN}
rangeRaw: {NaN}
labelP2: "(\textcolor{#0F8538}{" + (LaTeX[x(P2)]) + " },\textcolor{#C75000}{" + (LaTeX[y(P2)]) + " })"
labelP3: "(\textcolor{#0F8538}{ " + (LaTeX[x(P3)]) + " },\textcolor{#C75000}{" + (LaTeX[y(P3)]) + "  })"
labelP4: "(\textcolor{#0F8538}{" + (LaTeX[x(P4)]) + "  },\textcolor{#C75000}{ " + (LaTeX[y(P4)]) + " })"
labelP5: "(\textcolor{#0F8538}{" + (LaTeX[x(P5)]) + "  },\textcolor{#C75000}{ " + (LaTeX[y(P5)]) + " })"
labelP6: "(\textcolor{#0F8538}{ " + (LaTeX[x(P6)]) + " },\textcolor{#C75000}{ " + (LaTeX[y(P6)]) + " })"
allPoints: {P1, P2, P3, P4, P5, P6}
allLabelsPos = Zip(If[y(K) < 0, K - (2, 0.7), K - (2, -2)], K, allPoints)
aniSol = 3 (slider from 0 to 3, step 0.1)
labelP1: "(\textcolor{#0F8538}{" + (LaTeX[x(P1)]) + "},\textcolor{#C75000}{" + (LaTeX[y(P1)]) + "})"
onboarding = true
pulsingSpeed: 8
pulsing = 0.2 (slider from 0 to 1, step 0.1)
pulsingObject = circlePixels(P2, 7 + (7 * pulsing), Corner[1], Corner[3], Corner[5])
aniStatusP1: {0 < ani2 < 2.5, 0 < ani3 < 2.5, 0 < ani4 < 2.5, 0 < ani5 < 2.5, 0 < ani6 < 2.5}
aniStatusP2: {0 < ani1 < 2.5, 0 < ani3 < 2.5, 0 < ani4 < 2.5, 0 < ani5 < 2.5, 0 < ani6 < 2.5}
aniStatusP3: {0 < ani1 < 2.5, 0 < ani2 < 2.5, 0 < ani4 < 2.5, 0 < ani5 < 2.5, 0 < ani6 < 2.5}
aniStatusP4: {0 < ani1 < 2.5, 0 < ani2 < 2.5, 0 < ani3 < 2.5, 0 < ani5 < 2.5, 0 < ani6 < 2.5}
aniStatusP5: {0 < ani1 < 2.5, 0 < ani2 < 2.5, 0 < ani3 < 2.5, 0 < ani4 < 2.5, 0 < ani6 < 2.5}
aniStatusP6: {0 < ani1 < 2.5, 0 < ani2 < 2.5, 0 < ani3 < 2.5, 0 < ani4 < 2.5, 0 < ani5 < 2.5}
selStatusP1 = Sum(aniStatusP1)
selStatusP2 = Sum(aniStatusP2)
selStatusP3 = Sum(aniStatusP3)
selStatusP4 = Sum(aniStatusP4)
selStatusP5 = Sum(aniStatusP5)
selStatusP6 = Sum(aniStatusP6)
organize = false
textAllX: "" + (LaTeX[x(P1)]) + ", " + (LaTeX[x(P2)]) + ", " + (LaTeX[x(P3)]) + ", " + (LaTeX[x(P4)]) + ", " + (LaTeX[x(P5)]) + ", " + (LaTeX[x(P6)]) + ""
textDomainRaw: "" + (LaTeX[RemoveUndefined[domainRaw]]) + ""
textDomNoBrace1 = ReplaceAll(textDomainRaw, "{", "")
textRangeRaw: "" + (RemoveUndefined[rangeRaw]) + ""
textRangeNoBrace1 = ReplaceAll(textRangeRaw, "{", "")
textDomNoBraces = ReplaceAll(textDomNoBrace1, "}", "")
textRangeNoBraces = ReplaceAll(textRangeNoBrace1, "}", "")
textAllY: "" + (LaTeX[y(P1)]) + ", " + (LaTeX[y(P2)]) + ", " + (LaTeX[y(P3)]) + ", " + (LaTeX[y(P4)]) + ", " + (LaTeX[y(P5)]) + ", " + (LaTeX[y(P6)]) + ""
textBracesDom: "\{\phantom{" + (LaTeX[textAllX]) + "}\}"
textBracesRan: "\{\phantom{ " + (LaTeX[textAllY]) + "}\}"
textRecap: "\textsf{Elimina valores repetidos y ordena:}\\\\
\textcolor{#0F8538}\textsf{Dominio =} \textcolor{#0F8538}{\bold" + (LaTeX[domain]) + "}\\\\
\textcolor{#C75000}\textsf{Rango =} \textcolor{#C75000}{\bold " + (LaTeX[range]) + " }"
textDomain1: "\textcolor{#252525}\textsf{abscisas:}\\\\ \:\;\bold{" + (LaTeX[textDomNoBraces]) + "}"
textRange1: "\textcolor{#252525}\textsf{ordenadas:}\\\\ \:\;\bold{" + (LaTeX[textRangeNoBraces]) + "}"

Tool: PixelsToPoint
PixelsToPoint(Corner1,Corner3,Corner5,PixelCoords)
Input: Corner1, Corner3, Corner5, InputPixels
Output: OutputPoint

InputPixels: (100, 200)
xRight: x(Corner3)
xLeft: x(Corner1)
yTop: y(Corner3)
yBottom: y(Corner1)
yCoord: yTop - (y(InputPixels) / y(Corner5) * (yTop - yBottom))
xCoord: (x(InputPixels) / x(Corner5) * (xRight - xLeft)) + xLeft
OutputPoint: (xCoord, yCoord)

Tool: PixelsToPoint (command PixelsToPoint1)
PixelsToPoint(Corner1,Corner3,Corner5,PixelCoords)
Input: Corner1, Corner3, Corner5, InputPixels
Output: OutputPoint

InputPixels: (100, 200)
xRight: x(Corner3)
xLeft: x(Corner1)
yTop: y(Corner3)
yBottom: y(Corner1)
yCoord: yTop - (y(InputPixels) / y(Corner5) * (yTop - yBottom))
xCoord: (x(InputPixels) / x(Corner5) * (xRight - xLeft)) + xLeft
OutputPoint: (xCoord, yCoord)

Tool: PixelsToPoint (command PixelsToPoint2)
PixelsToPoint(Corner1,Corner3,Corner5,PixelCoords)
Input: Corner1, Corner3, Corner5, InputPixels
Output: OutputPoint

InputPixels: (100, 200)
xRight: x(Corner3)
xLeft: x(Corner1)
yTop: y(Corner3)
yBottom: y(Corner1)
yCoord: yTop - (y(InputPixels) / y(Corner5) * (yTop - yBottom))
xCoord: (x(InputPixels) / x(Corner5) * (xRight - xLeft)) + xLeft
OutputPoint: (xCoord, yCoord)

Tool: circlePixels
circlePixels(A,pixelRadius,Corner1,Corner3,Corner5
Input: A, pixelRadius, Corner1, Corner3, Corner5
Output: newCircle

pointRadius: (pixelRadius / x(Corner5) * (x(Corner3) - x(Corner1)))
newCircle = Circle(A, pointRadius)