F

Interpolación

Variar perfil

Elegir intervalo

Punto móvil en eje X

n = 12 (slider from 3 to 20, step 1)
m: round(n)
E2 = 2
E1 = 1
E3: (2 * E2) - E1
E4: (2 * E3) - E2
E5: (2 * E4) - E3
E6: (2 * E5) - E4
E7: (2 * E6) - E5
E8: (2 * E7) - E6
E9: (2 * E8) - E7
E10: (2 * E9) - E8
E11: (2 * E10) - E9
E12: (2 * E11) - E10
E13: (2 * E12) - E11
Vesq1 = (0, -2)
Vesq2 = Point(Ray[Vesq1 + (0.2, 0), Vesq1 + (1, 0)])
ancho: x(Vesq2 - Vesq1)
h: ancho / (m - 1)
Vesq3 = Point(Ray[Vesq2 + (0, 0.2), Vesq2 + (0, 1)])
alto: y(Vesq3 - Vesq1)
B13 = Segment(Vesq1 + ((E13 - 1) * (h, 0)), Vesq1 + ((E13 - 1) * (h, 0)) + (0, alto))
A13 = Point(B13)
B12 = Segment(Vesq1 + ((E12 - 1) * (h, 0)), Vesq1 + ((E12 - 1) * (h, 0)) + (0, alto))
A12 = Point(B12)
B11 = Segment(Vesq1 + ((E11 - 1) * (h, 0)), Vesq1 + ((E11 - 1) * (h, 0)) + (0, alto))
A11 = Point(B11)
B10 = Segment(Vesq1 + ((E10 - 1) * (h, 0)), Vesq1 + ((E10 - 1) * (h, 0)) + (0, alto))
A10 = Point(B10)
B9 = Segment(Vesq1 + ((E9 - 1) * (h, 0)), Vesq1 + ((E9 - 1) * (h, 0)) + (0, alto))
A9 = Point(B9)
B8 = Segment(Vesq1 + ((E8 - 1) * (h, 0)), Vesq1 + ((E8 - 1) * (h, 0)) + (0, alto))
A8 = Point(B8)
B7 = Segment(Vesq1 + ((E7 - 1) * (h, 0)), Vesq1 + ((E7 - 1) * (h, 0)) + (0, alto))
A7 = Point(B7)
B6 = Segment(Vesq1 + ((E6 - 1) * (h, 0)), Vesq1 + ((E6 - 1) * (h, 0)) + (0, alto))
A6 = Point(B6)
B5 = Segment(Vesq1 + ((E5 - 1) * (h, 0)), Vesq1 + ((E5 - 1) * (h, 0)) + (0, alto))
A5 = Point(B5)
B4 = Segment(Vesq1 + ((E4 - 1) * (h, 0)), Vesq1 + ((E4 - 1) * (h, 0)) + (0, alto))
A4 = Point(B4)
B3 = Segment(Vesq1 + ((E3 - 1) * (h, 0)), Vesq1 + ((E3 - 1) * (h, 0)) + (0, alto))
A3 = Point(B3)
B2 = Segment(Vesq1 + ((E2 - 1) * (h, 0)), Vesq1 + ((E2 - 1) * (h, 0)) + (0, alto))
A2 = Point(B2)
B1 = Segment(Vesq1 + ((E1 - 1) * (h, 0)), Vesq1 + ((E1 - 1) * (h, 0)) + (0, alto))
A1 = Point(B1)
p(x) = If[0 ≤ x ≤ 11, Polynomial[{A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, A13}]]
F11 = Max(p, x(A11), x(A12))
F10 = Max(p, x(A10), x(A11))
F9 = Max(p, x(A9), x(A10))
F8 = Max(p, x(A8), x(A9))
F7 = Max(p, x(A7), x(A8))
F6 = Max(p, x(A6), x(A7))
F5 = Max(p, x(A5), x(A6))
F4 = Max(p, x(A4), x(A5))
F3 = Max(p, x(A3), x(A4))
F2 = Max(p, x(A2), x(A3))
F1 = Max(p, x(A1), x(A2))
FF = Max({y(A1), y(A12), y(F1), y(F2), y(F3), y(F4), y(F5), y(F6), y(F7), y(F8), y(F9), y(F10), y(F11)})
D11 = Min(p, x(A11), x(A12))
D10 = Min(p, x(A10), x(A11))
D9 = Min(p, x(A9), x(A10))
D8 = Min(p, x(A8), x(A9))
D7 = Min(p, x(A7), x(A8))
D6 = Min(p, x(A6), x(A7))
D5 = Min(p, x(A5), x(A6))
D4 = Min(p, x(A4), x(A5))
D3 = Min(p, x(A3), x(A4))
D2 = Min(p, x(A2), x(A3))
D1 = Min(p, x(A1), x(A2))
DD = Min({y(A1), y(A12), y(D1), y(D2), y(D3), y(D4), y(D5), y(D6), y(D7), y(D8), y(D9), y(D10), y(D11)})
L: A1:A20
Lm = First(L, m)
Az = Element(Last[Lm], 1)
E14: (2 * E13) - E12
E15: (2 * E14) - E13
E16: (2 * E15) - E14
E17: (2 * E16) - E15
E18: (2 * E17) - E16
E19: (2 * E18) - E17
E20: (2 * E19) - E18
nada = 0.9 (slider from 0 to 1, step 0.1)
epsilon = 1.0E-6
panel0 = 6 (slider from 1 to 6, step 1)
panel: round(7 - panel0)
J = (-0.75, 2.5)
H = (-0.8866666666666674, 6.14)
I = (1.953333333333338, 2.86)
K = (1.6333333333333375, 1.8)
Se0 = (-4.060000000000001, 3.479999999999998)
Se1: Se0 + (0.88, 1.6)
Se2: Se0 + (1.14, 1.6)
B20 = Segment(Vesq1 + ((E20 - 1) * (h, 0)), Vesq1 + ((E20 - 1) * (h, 0)) + (0, alto))
A20 = Point(B20)
B19 = Segment(Vesq1 + ((E19 - 1) * (h, 0)), Vesq1 + ((E19 - 1) * (h, 0)) + (0, alto))
A19 = Point(B19)
B18 = Segment(Vesq1 + ((E18 - 1) * (h, 0)), Vesq1 + ((E18 - 1) * (h, 0)) + (0, alto))
A18 = Point(B18)
B17 = Segment(Vesq1 + ((E17 - 1) * (h, 0)), Vesq1 + ((E17 - 1) * (h, 0)) + (0, alto))
A17 = Point(B17)
B16 = Segment(Vesq1 + ((E16 - 1) * (h, 0)), Vesq1 + ((E16 - 1) * (h, 0)) + (0, alto))
A16 = Point(B16)
B15 = Segment(Vesq1 + ((E15 - 1) * (h, 0)), Vesq1 + ((E15 - 1) * (h, 0)) + (0, alto))
A15 = Point(B15)
B14 = Segment(Vesq1 + ((E14 - 1) * (h, 0)), Vesq1 + ((E14 - 1) * (h, 0)) + (0, alto))
A14 = Point(B14)
Aa: A1
sEtras = Segment(((-x(A1)) - 0.6, DD), ((-x(A1)) - 0.6, FF))
Q = Point(sEtras)
i = Ray(Aa, ((x(Az), y(Aa)) + Az) / 2)
v = 5 (slider from 1 to 9, step 1)
listaF: F1:F19
interpolar = true
elegirPuntos = false
elegirIntervalo = false
verX = true
A = (-0.9866666666666676, 0.34)
C = (2, -1)
O = (-1.0466666666666677, -0.2)
a: y = y(Q)
base = Segment((0, 0), (11, 0))
X = Point(base)
PPP: (x(X), p(x(X)))
segPX = Segment(PPP, X)
banda(y) = (y ≤ FF) ∧ (y ≥ DD)