Gráfica de f

Gráfica de g

Ejes desplazados

Gráfica de h

g(x)\,=\,  f(x-x_0)+ \,y_0

h(x)\,=\,k_y\,\,  g\left( \frac{x}{k_x} \right)

Banda vertical

F

G

H

f(x) =

F = Point(xAxis)
F2: F + (2, 0)
F1: F - (2, 0)
p = Segment(F - (2, 0), F + (2, 0))
ancho: x(Corner[3] - Corner[4])
alto: y(Corner[4] - Corner[1])
inc = Min(ancho / 1714, alto / 1714)
Pos1: Corner[4] + (18 * inc, -434 * inc)
Pos1sup: Corner[4] + (35 * inc, -88 * inc)
Pos1inf: Corner[4] + (35 * inc, -376 * inc)
Pos2: Corner[4] + (58 * inc, -434 * inc)
seg1 = Segment(Pos1inf, Pos1sup)
Pos = Point(seg1)
Pos3: Pos + (-16 * inc, -14 * inc)
Pos4: Pos + (20 * inc, -14 * inc)
valor: 2 - 4 * (y(Pos) - y(Pos1inf)) / (y(Pos1sup) - y(Pos1inf))
esc: round(1000 * 10^(valor)) / 1000
w = If(esc > 1, 1, If[esc > 0.1, 10, 100])
x0: {Text[0, (0.08, -0.3)]}
x1 = Sequence(Text[floor(w * esc) * s / w, (s * floor(w * esc) / (w * esc) - 0.05, -0.32)], s, 1, floor(2 * x(Corner[2])))
x1' = Sequence(Text[-floor(w * esc) * s / w, (-s * floor(w * esc) / (w * esc) - 0.15, -0.32)], s, 1, floor(-2 * x(Corner[1])))
x2 = Sequence(Segment[(s * floor(w * esc) / (w * esc), 0), (s * floor(w * esc) / (w * esc), -0.1)], s, 1, floor(2 * x(Corner[2])))
x2' = Sequence(Segment[(-s * floor(w * esc) / (w * esc), 0), (-s * floor(w * esc) / (w * esc), -0.1)], s, 1, floor(-2 * x(Corner[1])))
y1 = Sequence(Text[floor(w * esc) * s / w, (-0.32, s * floor(w * esc) / (w * esc) - 0.05)], s, 1, floor(2 * y(Corner[3])))
y1a = Sequence(Length[TextToUnicode[Element[y1, s]]], s, 1, floor(2 * y(Corner[3])))
y1b = Sequence(Text[floor(w * esc) * s / w, (-0.2 - 0.1 * Element[y1a, s], s * floor(w * esc) / (w * esc) - 0.08)], s, 1, floor(2 * y(Corner[3])))
y1' = Sequence(Text[-floor(w * esc) * s / w, (-0.32, -s * floor(w * esc) / (w * esc) - 0.05)], s, 1, floor(-2 * y(Corner[1])))
y1a' = Sequence(Length[TextToUnicode[Element[y1, s]]], s, 1, floor(-2 * y(Corner[1])))
y1b' = Sequence(Text[-floor(w * esc) * s / w, (-0.27 - 0.1 * Element[y1a, s], -s * floor(w * esc) / (w * esc) - 0.08)], s, 1, floor(-2 * y(Corner[1])))
y2 = Sequence(Segment[(0, s * floor(w * esc) / (w * esc)), (-0.1, s * floor(w * esc) / (w * esc))], s, 1, floor(2 * y(Corner[3])))
y2' = Sequence(Segment[(0, -s * floor(w * esc) / (w * esc)), (-0.1, -s * floor(w * esc) / (w * esc))], s, 1, floor(-2 * y(Corner[1])))
f(x) = sin(x)
f1(x) = f(esc * x) / esc
x_0 = 0 (slider from -5 to 5, step 0.01)
y_0 = 0 (slider from -5 to 5, step 0.01)
k_x = 1 (slider from -5 to 5, step 0.01)
k_y = 1 (slider from -5 to 5, step 0.01)
verGraficaF = true
verGraficaG = true
verEjesDesplazados = true
verGraficaH = true
ejeDesX: y = y_0
O: (x_0, y_0)
T1 = (15, 3)
T2 = (15, 2.5)
T3 = (15, 1.5)
T4 = (15, 1)
texto8: "x_0 = " + x_0
texto9: "y_0 = " + y_0
texto10: "k_x = " + k_x
texto11: "k_y = " + k_y
g(x) = f1(x - x_0) + y_0
h(x) = k_y * g(x / k_x)
CF = Point(p)
semiF1 = Ray(CF, CF + (0, 1))
semiF2 = Ray(CF, CF - (0, 1))
DF1 = Intersect(f1, semiF1, (1, 0.8414709848078965))
DF2 = Intersect(f1, semiF2, (3.419999999999999, -0.27482467032312313))
lugar1 = Locus(DF1, CF)
lugar2 = Locus(DF2, CF)
poli1, poli1a, poli1b, poli1c, poli1d = Polygon((x(F1), y(Corner[3])), (x(F2), y(Corner[3])), (x(F2), y(Corner[1])), (x(F1), y(Corner[1])))
AF: (x(F), f1(x(F)))
CG = Point(Segment[F1 + O, F2 + O])
semiG1 = Ray(CG, CG + (0, 1))
semiG2 = Ray(CG, CG - (0, 1))
DG1 = Intersect(g, semiG1, (0.3600000000000003, 0.3522742332750903))
DG2 = Intersect(g, semiG2, (4.9799999999999995, 1.2620341327287734))
lugar3 = Locus(DG1, CG)
lugar4 = Locus(DG2, CG)
ejeDesY: x = x_0
AG: AF + O
verBanda = false
CH = Point(Segment[(x(F1 + O) * k_x, y(F1 + O) * k_y), (x(F2 + O) * k_x, y(F2 + O) * k_y)])
semiH1 = Ray(CH, CH + (0, 1))
semiH2 = Ray(CH, CH - (0, 1))
DH1 = Intersect(h, semiH1, (0.4977777777777783, 0.47747417297215))
DH2 = Intersect(h, semiH2, (10.235555555555555, 0.5636563303132451))
lugar5 = Locus(DH1, CH)
lugar6 = Locus(DH2, CH)
AH: (x(AF + O) * k_x, y(AF + O) * k_y)
fT = Textfield(f)
A = (-3.35, 6)
B = (-1.05, 5.58)
polígono1: {Polygon[A, (x(B), y(A)), B, (x(A), y(B)), A + (0, -20), A + (50, -20), A + (50, 10), A + (-10, 10), A + (-10, -20), A + (0, -20)]}
seg2 = Segment(Corner[4] + (40 * inc, -232 * inc), Corner[4] + (60 * inc, -232 * inc))