Saltar al contenido

Graficar funciones y su punto de intersección

Agradeceríamos tu ayuda para extender nuestros escritos sobre las ciencias de la computación.

Solución:

Aquí hay un truco feo para el responder a los sin respuesta sesión. He modificado ligeramente la transformación de coordenadas del eje de Jake.

Cuando se introducen las marcas, encontrar intersecciones sería aún más difícil, por lo que dibujar las funciones dos veces podría ser más fácil (una para la intersección sin dibujar, otra para las marcas). En una nota personal, probé las únicas curvas de marcador y la intersección entre los marcadores no significan nada visualmente. Por lo tanto, podría reconsiderar esa idea. En cambio, he codificado por colores los nodos adicionales para distinguir qué es qué.

La principal dificultad es que la información requerida se distribuye en diferentes capas de TikZ, pgfplots trama, y pgfplots entornos de visualización. Entonces, si alguien más tiene una solución mejor, puedo eliminar esta.

documentclassstandalone
usepackagepgfplots
pgfplotssetcompat=1.7
usetikzlibraryintersections,plotmarks

makeatletter
defmarkxof#1
[email protected]#1
pgfmathparse[email protected]/pgfplotsunitxlength +[email protected]@[email protected]@[email protected])/10^[email protected]@[email protected]@[email protected]

makeatother

begindocument

begintikzpicture

beginaxis[
enlargelimits=false,
yticklabel style=/pgf/number format/fixed,
domain=0:1,
]

addplot[name path global=funone,blue] (1-x)/5;
addplot[name path global=funtwo,yellow] 0.5/( 2-x)^3 * 1.0 / sqrt(16 + 14 / (2-x)^4 ) ;
addplot[name path global=funthree,red] 
(1/36)*(48*(2-x)^2+16*(2-x)^6-8*(2-x)^3*sqrt(280-792*x+966*x^2-640*x^3+240*x^4-48*x^5+4*x^6))/((2-x)
^2*(4*(2-x)^3+2*sqrt(280-792*x+966*x^2-640*x^3+240*x^4-48*x^5+4*x^6)));

path[name intersections=of=funone and funtwo,name=i,
      name intersections=of=funone and funthree,name=in] (i-1) (in-1);
pgfplotsextra
path (i-1)  pgfextramarkxofi-1xdefmyfirsttickpgfmathresult
      (in-1) pgfextramarkxofin-1xdefmysecondtickpgfmathresult;


endaxis

draw[ultra thin, draw=gray] (i-1 |- rel axis cs:0,0) node[fill=yellow,yshift=-5ex] 
pgfmathprintnumber[fixed,precision=5]myfirsttick -- (i-1);
draw[ultra thin, draw=gray] (in-1 |- rel axis cs:0,0) node[fill=red,yshift=-7.5ex] 
pgfmathprintnumber[fixed,precision=5]mysecondtick -- (in-1);

endtikzpicture

enddocument

ingrese la descripción de la imagen aquí

Más adelante puedes encontrar los informes de otros sys admins, tú también tienes el poder insertar el tuyo si lo crees conveniente.

¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)



Utiliza Nuestro Buscador

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *