[Quema]

Quiero graficar varias funciones, identificándolo por la traza, no por el color, pero me da error, o me grafica solamente una función.


c[x_] := (1 + x/2 - x^2)/(1 + x/2)
p2[x_] := 1 + (1 + x^2)

Show[Plot[c[x ], p2[x ], {x, 0, 1 }, PlotRange -> {0, 1}],  Plot[p2[x ], {x, 0, 1 }, PlotRange -> {0, 1}]]

Me da error, no se qué estoy haciendo mal.

Gracias

[Carlos Ivorra]

Quiero graficar varias funciones, identificándolo por la traza, no por el color, pero me da error, o me grafica solamente una función.

Código: [Seleccionar]

c[x_] := (1 + x/2 - x^2)/(1 + x/2)
p2[x_] := 1 + (1 + x^2)

Show[Plot[{c[x], p2[x]}, {x, 0, 1 }, PlotRange -> {0, 1}],  Plot[p2[x], {x, 0, 1 }, PlotRange -> {0, 1}]]
Me da error, no se qué estoy haciendo mal.

Gracias

Te da error porque necesitas unas llaves que abracen las dos funciones que pones en el primer Plot (las he añadido yo en la cita). Pero no entiendo lo que quieres hacer: primero pides que dibuje las dos funciones y luego solo una, pero pones un PlotRange que hace que la segunda función no se represente, porque empieza en 2 y sube.