wolfram unir tabla poner mathematica linea intervalos grosor grafico graficas graficar escala ejes datos como circulos wolfram-mathematica plot label

wolfram mathematica - unir - ¿Cómo puedo etiquetar diferentes curvas en Mathematica?



unir dos graficas en mathematica (3)

¿Cómo puedo etiquetar cada una de estas líneas por separado:

Plot[{{5 + 2 x}, {6 + x}}, {x, 0, 10}]


Hay un buen código que le permite hacer esto dinámicamente en una respuesta a Cómo anotar múltiples conjuntos de datos en ListPlots .

También hay un comando LabelPlot definido en las Curvas de etiquetado de notas técnicas en gráficos

Por supuesto, si no tiene demasiadas imágenes para crear, entonces no es difícil agregar manualmente las etiquetas usando Epilog , por ejemplo.

fns[x_] := {5 + 2 x, 6 + x}; len := Length[fns[x]]; Plot[Evaluate[fns[x]], {x, 0, 10}, Epilog -> Table[Inset[ Framed[DisplayForm[fns[x][[i]]], RoundingRadius -> 5], {5, fns[5][[i]]}, Background -> White], {i, len}]]

De hecho, puedes hacer algo similar con Locators que te permita mover las etiquetas donde quieras:

DynamicModule[{pos = Table[{1, fns[1][[i]]}, {i, len}]}, LocatorPane[Dynamic[pos], Plot[Evaluate[fns[x]], {x, 0, 10}], Appearance -> Table[Framed[Text@TraditionalForm[fns[x][[i]]], RoundingRadius -> 5, Background -> White], {i, len}]]]

En lo anterior, hice que los localizadores tomen la forma de las etiquetas, aunque también es posible mantener un Epilog como el anterior y tener localizadores invisibles que controlan las posiciones. Los localizadores también podrían estar restringidos (usando el segundo argumento de Dynamic ) a las curvas apropiadas ... pero eso no es realmente necesario.

Como ejemplo del código anterior con las funciones con las etiquetas movidas a mano:

fns[x_] := {Log[x], Exp[x], Sin[x], Cos[x]};


Mathematica 9 ahora proporciona formas fáciles de incluir leyendas.

Plot[{{5 + 2 x}, {6 + x}}, {x, 0, 10}, PlotLegends -> "Expressions"]


Puede insertar leyendas en su diagrama cargando el paquete PlotLegends

<<PlotLegends`; Plot[{5+2 x,6+x},{x,0,10}, PlotLegend->{"5+2x","6+x"},LegendShadow->None, LegendPosition->{0.3,-0.5},LegendSpacing->-0,LegendSize->0.5]

Sin embargo, permítanme también notar mi disgusto por este paquete, principalmente porque es extremadamente intuitivo, está cargado de demasiadas opciones y no proporciona una experiencia limpia desde el primer momento como la mayoría de las funciones de Mathematica. Tendrá que jugar un poco con las opciones para obtener lo que desea. Sin embargo, en parcelas y gráficos donde desea una leyenda, esto puede ser útil. También vea los comentarios a esta respuesta y esta pregunta .