design - vertical - graficar vectores en mathematica

¿Técnicas de programación/trucos simples en Mathematica para hacer gráficos para el libro de matemáticas?

Question

Traté de usarlo. Y es realmente agradable para algunas Parcelas, pero cuando se trata de hacer, por ejemplo, un triángulo, lo encontré bastante complicado. Descubrí cómo dibujar un triángulo, pero ¿cómo agregar esas marcas de ángulo, esas líneas curvas?

Y como soy principiante en este trabajo, al escribir un libro, ¿alguien puede recomendarme cuál es la mejor manera de lograr buenos gráficos, por ejemplo, como en la siguiente imagen? Qué programas son los mejores para usar.

Gracias por cualquier sugerencia y recomendación.

Answer 1

Aquí hay una manera simple / básica de hacer la primera:

Graphics[{

 (* The dashed circle segment *)
 {
  Dashing[{.04, .01}], 
  Darker[Orange], 
  AbsoluteThickness[2], 
  Circle[{0, 0}, 1, {1, 2 /[Pi]}]
 },

 (* The solid circle segment *)
 {
  Orange, 
  AbsoluteThickness[2], 
  Circle[{0, 0}, 1, {0, 1}]
 },

 (* The radial lines and the small circle segment *)
 Line[{{0, 0}, {1, 0}}],
 Line[{{0, 0}, {Cos[1], Sin[1]}}],
 Circle[{0, 0}, .2, {0, 1}],

 (* Various text labels *)
 {
  Text[Style["/[Theta]", 24], .3 {Cos[.5], Sin[.5]}], 
  Text[Style["s", 24], 1.1 {Cos[.5], Sin[.5]}], 
  Text[Style["r", 24], {.5, -.1}]
 }
}]

Lo siguiente es exactamente lo mismo, pero está envuelto en Manipulate y parametrizado en el ángulo alpha :

Manipulate[
 Graphics[{
  {Dashing[{.04, .01}], Darker[Orange], AbsoluteThickness[2], 
  Circle[{0, 0}, 1, {/[Alpha], 2 /[Pi]}]},
  {Orange, AbsoluteThickness[2], Circle[{0, 0}, 1, {0, /[Alpha]}]},
  Line[{{0, 0}, {1, 0}}],
  Line[{{0, 0}, {Cos[/[Alpha]], Sin[/[Alpha]]}}],
  Circle[{0, 0}, .2, {0, /[Alpha]}],
  {Text[Style["/[Theta]", 
  24], .3 {Cos[/[Alpha]/2], Sin[/[Alpha]/2]}], 
  Text[Style["s", 24], 1.1 {Cos[/[Alpha]/2], Sin[/[Alpha]/2]}], 
  Text[Style["r", 24], {.5, -.1}]}
 }],
{{/[Alpha], 1}, 0, 2 /[Pi]}]

Si mueve el control deslizante, el contenido cambiará en consecuencia:

Answer 2

Me gusta mucho Mathematica. Pero hay mejores opciones para el dibujo geométrico.

Aquí tiene un boceto de cinco minutos hecho con expresiones de geometría (se usa una resolución muy baja):

Geometry Expressions hace algunos buenos cálculos de geometría plana y puede exportar los resultados a Mma en línea.

Answer 3

Presentations es un paquete de gráficos (y mucho más) excelente y de bajo costo ($ 50) en MMA, escrito por David Park. http://home.comcast.net/~djmpark/DrawGraphicsPage.html

Se menciona como recurso n.2 en nuestra bolsa de herramientas para el flujo de la pila ¿Qué hay en su bolsa de herramientas Mathematica?

Answer 4

Sí, las herramientas gráficas integradas de Mathematica son un tanto peculiares en algunos lugares, y hay algunas omisiones molestas. Pero hay una buena gama de gráficos básicos, y, en el lado positivo, está a solo unas pocas teclas de distancia de las herramientas matemáticas que necesita para rectificar algunas de las deficiencias del editor de gráficos. ¿Necesitas un arco? Simplemente calcule a continuación y cópielo / péguelo. ¡No se puede hacer eso con Adobe Illustrator! También hay un amplio acceso a ecuaciones y caracteres griegos. Podría ser útil cuando no hay nada más a mano.

Aquí está el primero, no es totalmente inaceptable ... :)

Answer 5

Un excelente producto respaldado por Wolfram es Geometrica . No es un complemento barato a $ 495, pero producirá diagramas como el suyo mucho más fácil que hacerlo en MMA Mathematica en bruto. Básicamente es una extensión muy grande del enfoque de Szabolcs en los comentarios: una biblioteca de funciones para dibujar cosas.

Answer 6

Editar También puede obtener inspiración del proyecto Demostraciones. Estas son las demostraciones relacionadas con el triángulo. Después de echar un vistazo rápido, creo que debería ver las demostraciones relacionadas con la geometría de Jay Warendorff . Él ha hecho muchos de estos, y usan un conjunto estructurado de funciones relacionadas con la geometría que es muy probable que puedas reutilizar.

Aquí hay una función angleArc para que comiences. Este es solo un pequeño ejemplo de una función de ayuda que podría usar, hay mucho margen de mejora.

angleArc[Polygon[vertices_List, ___], r_, i_] :=
 Module[{a, b, c, phi1, phi2},
  {a, b, c} = Take[RotateLeft[vertices, i-2], 3];
  {phi1, phi2} = Sort@N[{ArcTan @@ (a - b), ArcTan @@ (c - b)}];
  If[phi2 - phi1 > Pi, phi1 += 2 Pi];
  Circle[b, r, {phi2, phi1}]
 ]

poly = Polygon[{{0, 0}, {1, 2}, {2, 1}}];

Graphics[{EdgeForm[Thick], FaceForm[None], poly, 
  Table[angleArc[poly, .2, i], {i, Length[poly[[1]]]}]}]

Manipulate[
 With[{poly = Polygon[{a, b, c}]},
  Graphics[
   {EdgeForm[Thick], FaceForm[None], poly, 
    Table[angleArc[poly, .2, i], {i, Length[poly[[1]]]}]},
   PlotRange -> 2 {{-1, 1}, {-1, 1}}, Frame -> True
   ]
  ],
 {{a, {0, 0}}, Locator}, {{b, {1, 0}}, Locator}, {{c, {0, 1}}, Locator}
 ]