Foro Matemáticas

Graficando en LaTeX

Ver el tema anterior Ver el tema siguiente Ir abajo

Graficando en LaTeX

Mensaje  Favián el Miér Ene 12, 2011 6:55 pm

Quien piensa que LaTeX es solamente para escribir, todavia no conoce el paquete pstricks
este ejemplo sencillo muestra una de las muchas utilidades de LaTeX.
Código:

\documentclass{article}
\usepackage{amsfonts}
\usepackage{amsmath}
\usepackage{amsmath,pst-all,amsfonts,graphicx,pstricks,multicol,graphics,color,multicol}
\begin{document}
\begin{center}
\psset{unit=0.8cm}%establece la escala en x e y
\pspicture(-3.5,-2.5)(3.5,2.5)%establece las dimensiones del lienzo en donde se harà el dibujo
\psellipse[fillstyle=solid](0,0)(3,2) %dibuja una elipse con centro en (0,0) el 3 es el semi-eje horizontal y 2 es el semi-eje vert.
\psaxes[linewidth=0.5pt,labels=none]{->}(0,0)(-3.5,-2.5)(3.5,2.5)% los ejes cartesianos
\psline[linewidth=0.5pt]{-}(1,0)(1.6,1.7)%la linea que inicia en (1,0)y termina en (1.6,1.7)
\psline[linewidth=0.5pt]{-}(1,0)(1.6,-1.7)
\psdots*(1,0)(1.6,1.7)(1.6,-1.7)(3,0)(-3,0)
\rput(3.3,0.5){$P_1$} %se ubica esta etiqueta en la coordenada(3.3,0.5)
\rput(-3.3,0.5){$P_2$}
\rput(1.7,1.99){$P_3$}
\rput(1.7,-1.99){$P_4$}
\endpspicture
\end{center}
\end{document}
para compilar no use PDFLaTeX, mas bien LaTeX pues se verá en *.PS luego puede pasarlo a pdf, si ese es su deseo.
este fué el resultado:

Favián

Mensajes : 24
Fecha de inscripción : 12/01/2011
Localización : Popayán

Ver perfil de usuario http://www.unicauca.edu.co/matematicas/farenas

Volver arriba Ir abajo

Coordenadas Polares

Mensaje  Favián el Mar Mar 08, 2011 3:33 pm

En coordenadas cartesianas, cada punto se escribe de la forma (x,y).
En coordenadas Polares, cada punto se escribe de la forma (r;t) ojo al punto y coma
Anexo Un ejemplo de la segunda iteracion de la curva fractal de Lebesge

Código:


 \begin{center}
 \psset{unit=2.5cm}
 \pspicture(-4,0)(5,5)
\psline[linewidth=0.5pt,linestyle=dotted](5.3;45)(0,0)(5.3;135)
\psline[linewidth=0.5pt,linestyle=dotted](5.3;72)(0,0)(5.3;108)
\psline[linewidth=0.5pt,linestyle=dotted](5.3;77)(0,0)(5.3;104)
%arcos Mayores
\psarc[linewidth=0.5pt,linestyle=dotted](0,0){2}{45}{135}
\psarc[linewidth=0.5pt,linestyle=dotted](0,0){2.9}{45}{135}
\psarc[linewidth=0.5pt,linestyle=dotted](0,0){3.2}{45}{135}
\psarc[linewidth=0.5pt,linestyle=dotted](0,0){4.1}{45}{135}
\psarc[linewidth=0.5pt,linestyle=dotted](0,0){4.4}{45}{135}
\psarc[linewidth=0.5pt,linestyle=dotted](0,0){5.3}{45}{135}
%arcos menores
\psarc[linewidth=0.5pt,linestyle=dotted](0,0){2.2454}{108}{135}
\psarc[linewidth=0.5pt,linestyle=dotted](0,0){2.3272}{108}{135}
\psarc[linewidth=0.5pt,linestyle=dotted](0,0){2.5726}{108}{135}
\psarc[linewidth=0.5pt,linestyle=dotted](0,0){2.6544}{108}{135}
%\rput[bl](0.6;52.5){$45^{\circ}$}
%subgrilla
\psline[linewidth=0.5pt,linestyle=dotted](2;116)(2.9;116)
\psline[linewidth=0.5pt,linestyle=dotted](2;117.5)(2.9;117.5)
\psline[linewidth=0.5pt,linestyle=dotted](2;125.5)(2.9;125.5)
\psline[linewidth=0.5pt,linestyle=dotted](2;127)(2.9;127)
%etiquetas
\rput(-0.2;90){$\Omega$}
\rput(2;137){$A$}
\rput(1.9;80){$L$}
\rput(1.9;70){$M$}
\rput(3;103){$K$}
\rput(3;110){$B$}
\rput(3.3;103){$J$}
\rput(3.3;110){$C$}
\rput(3.3;43){$O$}
\rput(3;43){$N$}
\rput(4.2;137){$D$}
\rput(4.4;137){$E$}
\rput(5.4;137){$F'$}
\rput(5.4;108){$F$}
\rput(5.4;103){$G$}
\rput(5.4;78){$G'$}
\rput(5.4;72){$R'$}
\rput(5.4;44){$R$}
\rput(4.5;110){$E'$}
\rput(4.2;110){$D'$}
\rput(4.5;103){$H'$}
\rput(4.2;103){$I'$}
\rput(4.5;79){$H$}
\rput(4.2;79){$I$}
\rput(3.3;79){$J'$}
\rput(1.9;102){$L'$}
\rput(1.9;110){$A'$}
\rput(4.5;71){$Q$}
\rput(4.2;71){$P$}
\rput(4.5;44){$Q'$}
\rput(4.2;44){$P'$}
%fractal
\psline[linecolor=blue,linewidth=0.5pt,linestyle=solid](2;135)(2.2454;127)(2.3272;127)(2.5726;135)(2.6544;135)(2.9;127)(2.9;125.5)(2.6544;117.5)(2.5726;117.5)(2.3272;125.5)(2.2454;125.5)(2;117.5)(2;116)(2.2454;108)(2.3272;108)(2.5726;116)(2.6544;116)(2.9;108)
\psline[linecolor=blue,linewidth=0.5pt,linestyle=solid](2.3272;125.5)(2.2454;125.5)(2;117.5)(2;116)(2.2454;108)(2.3272;108)(2.5726;116)(2.6544;116)(2.9;108)
\psline[linecolor=blue,linewidth=0.5pt,linestyle=solid](2;72)(2.2454;64)(2.3272;64)(2.5726;72)(2.6544;72)(2.9;64)(2.9;62.5)(2.6544;54.5)(2.5726;54.5)(2.3272;62.5)(2.2454;62.5)(2;54.5)(2;53)(2.2454;45)(2.3272;45)(2.5726;53)(2.6544;53)(2.9;45)
\psline[linecolor=blue,linewidth=0.5pt,linestyle=solid](4.4;72)(4.6454;64)(4.7272;64)(4.9726;72)(5.0544;72)(5.3;64)(5.3;62.5)(5.0544;54.5)(4.9726;54.5)(4.7272;62.5)(4.6454;62.5)(4.4;54.5)(4.4;53)(4.6454;45)(4.7272;45)(4.9726;53)(5.0544;53)(5.3;45)
\psline[linecolor=blue,linewidth=0.5pt,linestyle=solid](4.4;135)(4.6454;127)(4.7272;127)(4.9726;135)(5.0544;135)(5.3;127)(5.3;125.5)(5.0544;117.5)(4.9726;117.5)(4.7272;125.5)(4.6454;125.5)(4.4;117.5)(4.4;116)(4.6454;108)(4.7272;108)(4.9726;116)(5.0544;116)(5.3;108)
\psline[linecolor=blue,linewidth=0.5pt,linestyle=solid](2.9;108)(3.2;108)(3.4454;116)(3.5272;116)(3.7726;108)(3.9544;108)(4.1;116)(4.1;117.5)(3.9544;125.5)(3.7726;125.5)(3.5272;117.5)(3.4454;117.5)(3.2;125.5)(3.2;127)(3.4454;135)(3.5272;135)(3.7726;127)(3.9544;127)(4.1;135)(4.4;135)
\psline[linecolor=blue,linewidth=0.5pt,linestyle=solid](2.9;45)(3.2;45)(3.4454;53)(3.5272;53)(3.7726;45)(3.9544;45)(4.1;53)(4.1;54.5)(3.9544;62.5)(3.7726;62.5)(3.5272;54.5)(3.4454;54.5)(3.2;62.5)(3.2;64)(3.4454;72)(3.5272;72)(3.7726;64)(3.9544;64)(4.1;72)(4.4;72)
\psline[linecolor=blue,linewidth=0.5pt,linestyle=solid](4.1;77)(4.4;77)(4.6454;85)(4.7272;85)(4.9726;77)(5.0544;77)(5.3;85)(5.3;86.5)(5.0544;94.5)(4.9726;94.5)(4.7272;86.5)(4.6454;86.5)(4.4;94.5)(4.4;96)(4.6454;104)(4.7272;104)(4.9726;96)(5.0544;96)(5.3;104)
\psline[linecolor=blue,linewidth=0.5pt,linestyle=solid](2;77)(2.2454;85)(2.3272;85)(2.5726;77)(2.6544;77)(2.9;85)(2.9;86.5)(2.6544;94.5)(2.5726;94.5)(2.3272;86.5)(2.2454;86.5)(2;94.5)(2;96)(2.2454;104)(2.3272;104)(2.5726;96)(2.6544;96)(2.9;104)
\psline[linecolor=blue,linewidth=0.5pt,linestyle=solid](2.9;104)(3.2;104)(3.4454;96)(3.5272;96)(3.7726;104)(3.9544;104)(4.1;96)(4.1;94.5)(3.9544;86.5)(3.7726;86.5)(3.5272;94.5)(3.4454;94.5)(3.2;86.5)(3.2;85)(3.4454;77)(3.5272;77)(3.7726;85)(3.9544;85)(4.1;77)
\psarc[linecolor=blue,linewidth=0.5pt,linestyle=solid](0,0){5.3}{104}{108}
\psarc[linecolor=blue,linewidth=0.5pt,linestyle=solid](0,0){2}{72}{77}
\endpspicture
 \end{center}

la cual se verá así:

Favián

Mensajes : 24
Fecha de inscripción : 12/01/2011
Localización : Popayán

Ver perfil de usuario http://www.unicauca.edu.co/matematicas/farenas

Volver arriba Ir abajo

Uso de ciclos iterativos

Mensaje  Favián el Miér Mar 09, 2011 10:39 am

En este grafico calculo 720 puntos en la esfera unitaria, a cada uno le multiplico por la matriz A=[1 2;0 2] y vuelvo a graficar los 720 puntos generando así una elipse
este es el código

Código:

\documentclass{article}
\usepackage{pst-plot,multido}
\textheight=28cm \textwidth=21cm \topmargin=-2cm
\oddsidemargin=-0cm
\parindent=0mm
\SpecialCoor
\begin{document}

\begin{pspicture}(-2.5,-2.5)(2.5,2.5)
\psset{unit=1.3cm}
\psaxes[ticksize=0 -4pt]{->}(0,0)(-2.5,-2.5)(2.5,2.5)
\multido{\rA=0.0+0.5}{720}{%
\pscircle[linewidth=0.2pt,linecolor=blue](
                !1 \rA\space cos mul
                1 \rA\space sin mul){0.01}}
\psline[linewidth=0.9pt,linecolor=red]{->}(0,0)(0.3827,0.9239)             
\end{pspicture}
\hspace{2cm}
%si se multiplica por la matriz
%%A=[1 2;0 2]
\begin{pspicture}(-2.5,-2.5)(2.5,2.5)
\psset{unit=1.3cm}
\psaxes[ticksize=0 -4pt]{->}(0,0)(-2.5,-2.5)(2.5,2.5)
\multido{\rA=0.0+0.5}{720}{%
\pscircle[linewidth=0.2pt,linecolor=blue](
                !1 \rA\space cos mul 2 \rA\space sin mul add
                2 \rA\space sin mul){0.01}}
    \psline[linewidth=0.9pt,linecolor=red]{->}(0,0)(2.2304,1.8478)             
\end{pspicture}

\end{document}
y esta es la imagen generada

Favián

Mensajes : 24
Fecha de inscripción : 12/01/2011
Localización : Popayán

Ver perfil de usuario http://www.unicauca.edu.co/matematicas/farenas

Volver arriba Ir abajo

Re: Graficando en LaTeX

Mensaje  Contenido patrocinado Hoy a las 11:21 am


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.