Funciones de Producción a la Mexicana

Estaba creando una función de producción Cobb-Douglas, y me puse a buscar diferentes patrones de colores para mostrar (El patrón estándar me parece horrible) y encontré “RedGreenSplit”, el cual forma una bonita bandera de México. Aquí el código. (Noten que k empieza en 1 y no en cero, esto es una conveniencia necesaria para lo que yo quería hacer)

Manipulate[
 ContourPlot[k^α l^(1 - α), {k, 1, 10}, {l, 0, 10},
  ColorFunction -> "RedGreenSplit",
  PlotLabel ->
   Style["Función de producción", FontSize -> 20, FontFamily -> "Arial"],
  AxesLabel -> {"Trabajo"},
  LabelStyle -> Directive[Bold, FontFamily -> "Arial", FontSize -> 12],
  FrameLabel -> Style["α=0.47"], ImageSize -> Medium], {α, 0, 1}]

Imagen

 

PS: Para conocer los diferentes tipos de colores en gradientes con los que cuenta Mathematica, sólo es necesario escribir:

ColorData["Gradients"]
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s