Ejemplo 1 paso, ejecutado en orden en una sola sesión. Cada paso se ejecutó contra el motor y la salida de abajo es lo que produjo.
Plot3D[Re[Sin[x + I y]], {x, -2Pi, Pi}, {y, -2Pi, 2Pi}, ImageSize -> 400, ClippingStyle -> {Orange, Blue}, Mesh -> None, ColorFunction -> "AvocadoColors", Axes -> False, Boxed -> False, PlotLegends -> {Placed[BarLegend[Automatic, LabelStyle -> {14, Gray}], Right], Placed[SwatchLegend[{Blue, Orange}, {"> 50", "< -50"}, LegendMarkerSize -> Large, LegendMarkers -> Automatic, LabelStyle -> {Bold, 18, Gray}], Top]}]-Graphics3D-Todas las recetas · Referencia de funciones · Usar esto desde un cliente MCP