[Tex/LaTex] Political map in LaTeX

diagrams

Is there a package that can be used to make political maps in LaTeX? Like a world map or a map of Europe?

Best Answer

The pst-geo bundle can handle the CIS world data. It needs the latex->dvips->ps2df sequence, because the data is read on PostScript level.

\documentclass{article}
\usepackage{pst-map3d}
\definecolor{graygreen}{cmyk}{0.7,0,0.6,0.2}
\definecolor{BlueDark}{cmyk}{1,1,0,0.5}
\pagestyle{empty}

\begin{document}
\begin{pspicture*}(-0.5\linewidth,-0.45\textheight)(0.5\linewidth,0.5\textheight)
\psset{PHI=45,THETA=5,unit=7.5,
       path=Links/texmf-local-generic/pst-geo/data}
\WorldMapThreeD[lakes=false,circlesep=0.25,lakes=false,gridmap=false,
                mapcolor=graygreen!50,bordercolor=red,rivers=false,
                coasts=false,islandcolor=blue]%
\WorldMapThreeD[gridmapcolor=yellow,circles=false,lakes,gridmapdiv=5,france,
                islandcolor=blue,blueEarth=false,
                bordercolor=red,islands=false,borders=false,rivers,coasts,
                coastcolor=blue]%
\psmeridien{2.32}   \psparallel{48.85}
\newpsstyle{NodeLabelStyle}{fillstyle=solid,fillcolor=yellow!50,framesep=0,
        linestyle=none,opacity=0.5}
\input{villesFrance3d}
\newpsstyle{NodeLabelStyle}{fillstyle=solid,fillcolor=red!50,
        framesep=0,linestyle=none,opacity=0.5}
\newpsstyle{psNodeMapStyle}{fillstyle=solid,fillcolor=yellow!50,linecolor=red}
\psset{nodeWidth=0.025\psunit,linecolor=red}
\pnodeMapIIID(10.51667,43.85){Lucques}
\pscircle[fillstyle=solid,fillcolor=green](Lucques){0.025\psunit}
\psdot[dotsize=0.025\psunit](Lucques)
\uput[u](Lucques){\psframebox[fillstyle=solid,fillcolor=yellow!50,framesep=0,
        linestyle=none,opacity=0.5]{\textsf{Lucques}}}
\input{capitales3d}
\psepicenter[circlecolor=red,waves=16,Rmax=2000](0.3333,46.5833){Poitiers}
\end{pspicture*}

\end{document}

enter image description here

Related Solutions

[Tex/LaTex] Mind maps in Latex

You could hack your way out using nested \left\{ delimiters and tabular environments. This is a first approximation on which one could improve further.

\documentclass{article}

\newenvironment{subgroup}
  {$\left\{\tabular{l}}
  {\endtabular\right.$}

\begin{document}

Idea General
\begin{subgroup}
  Idea Principal
  \begin{subgroup}
    Ideas Complementarias \\
    Ideas Complementarias \\
    Ideas Complementarias  
  \end{subgroup} \\[2em]
  Idea Principal
  \begin{subgroup}
    Ideas Complementarias \\
    Ideas Complementarias \\
    Ideas Complementarias  
  \end{subgroup} \\[2em]
  Idea Principal
  \begin{subgroup}
    Ideas Complementarias \\
    Ideas Complementarias \\
    Ideas Complementarias  
  \end{subgroup}
\end{subgroup}

\end{document}

I have some improvements in mind (but no time to implement them right now): one would like each “entry” in the map to be typeset on a \parbox with a \raggedright and a specific width. One would also probably want appropriate spacings (such as \\[2em]) to be automatically added. Finally one would probably like an user interface closer to enumerate and \item's instead of ending entries by \\.

I wonder if a package to do exactly this has been already implemented?

[Tex/LaTex] Draw a Kohonen SOM feature map

A more complete answer is given below, but first...

An attempt at the feature map using the nonlineartransformations library in the CVS version of PGF. I shamelessly steal Tom Bombadil's idea for specifying the map colors:

\documentclass[border=0.125cm]{standalone}
\usepackage{tikz}

\usepgfmodule{nonlineartransformations}
\begin{document}

\makeatletter
% This is executed for every point
%
% \pgf@x will contain the x-coordinate
% \pgf@y will contain the y-coordinate
%
% This should then be transformed to their
% final values
\def\nonlineartransform{%
 \pgf@xa=\pgf@x%
 \divide\pgf@xa by 256\relax%
 \advance\pgf@xa by 0.5pt\relax%
 \pgf@y=\pgfmath@tonumber{\pgf@xa}\pgf@y%
 \pgf@xa=0.625\pgf@xa
 \pgf@x=\pgfmath@tonumber{\pgf@xa}\pgf@x
}
\makeatother

\begin{tikzpicture}[x=10pt,y=10pt]

\begin{scope}[shift=(0:5)]
\pgftransformnonlinear{\nonlineartransform}
\foreach \c [count=\n from 0, evaluate={%
  \i=mod(\n,9); \j=int(\n/9);
  \x=(2*\i+mod(\j,2))*cos 30;
  \y=\j*1.5;
  \s=\c*10+10;}] in 
{   2,2,2,2,2,4,4,4,4,
    2,2,2,2,4,4,4,4,4,
    5,5,2,2,2,4,4,4,4,
    5,5,2,2,0,4,4,4,4,
    5,5,5,0,0,0,0,0,0,
    5,5,0,0,0,0,0,0,0,
    5,5,1,0,0,0,0,0,0,
    1,1,1,1,0,0,0,3,3,
    1,1,1,1,1,0,3,3,3,
    1,1,1,1,1,3,3,3,3,
    1,1,1,1,1,3,3,3,3
}
\draw [fill=black!\s, shift={(\x,6-\y)}] 
    (-30:1) -- (30:1) -- (90:1) -- (150:1) -- (210:1) -- (270:1) -- cycle;
\end{scope}
\end{tikzpicture}

\end{document}

enter image description here

Nothing of course to do with the OPs requirements, but I couldn't resist. This takes a long time to compile:

\documentclass[border=0.125cm,tikz]{standalone}
\usepackage{tikz}


\makeatletter
% This is executed for every point
%
% \pgf@x will contain the x-coordinate
% \pgf@y will contain the y-coordinate
%
% This should then be transformed to their
% final values
\def\nonlineartransform{%
 \pgf@xa=\pgf@x%
 \advance\pgf@xa by\k pt\relax%
 \pgfmathcos@{\pgfmath@tonumber{\pgf@xa}}%
 \pgf@xa=\pgfmathresult pt\relax%
 \advance\pgf@xa by 1pt\relax%
 \pgf@y=\pgfmath@tonumber{\pgf@xa}\pgf@y%
 \pgf@x=\pgf@x
}
\makeatother

\usepgfmodule{nonlineartransformations}
\begin{document}

\foreach \k in {0,-5,-10,...,-355}{
\begin{tikzpicture}[x=10pt,y=10pt]
\begin{scope}
\pgftransformnonlinear{\nonlineartransform}
\foreach \c [count=\n from 0, evaluate={%
  \i=mod(\n,9); \j=int(\n/9);
  \x=(2*\i+mod(\j,2))*cos 30;
  \y=\j*1.5;
  \s=\c*10+10;}] in 
{   2,2,2,2,2,4,4,4,4,
    2,2,2,2,4,4,4,4,4,
    5,5,2,2,2,4,4,4,4,
    5,5,2,2,0,4,4,4,4,
    5,5,5,0,0,0,0,0,0,
    5,5,0,0,0,0,0,0,0,
    5,5,1,0,0,0,0,0,0,
    1,1,1,1,0,0,0,3,3,
    1,1,1,1,1,0,3,3,3,
    1,1,1,1,1,3,3,3,3,
    1,1,1,1,1,3,3,3,3
}
\draw [fill=black!\s, shift={(\x,6-\y)}] 
    (-30:1) -- (30:1) -- (90:1) -- (150:1) -- (210:1) -- (270:1) -- cycle;
\end{scope}
\useasboundingbox (-5,-25) rectangle (20,20);
\end{tikzpicture}
}
\end{document}

enter image description here

Of course, we don't actually need the nonlienartranformations library at all, as tikz provides the facility for defining coordinate systems:

\documentclass[border=0.125cm]{standalone}
\usepackage{tikz}
\usetikzlibrary{fit}
\usetikzlibrary{positioning}
\begin{document}

\tikzset{feature map/.cd,
    x/.initial=0,
    y/.initial=0,
}

\tikzdeclarecoordinatesystem{feature map}{
    \tikzset{feature map/.cd, #1}%
    \pgfpointxy{\pgfkeysvalueof{/tikz/feature map/x}}{\pgfkeysvalueof{/tikz/feature map/y}}%
    \pgfgetlastxy{\fx}{\fy}%
    \pgfmathparse{\fx/256+1}\let\f=\pgfmathresult%
    \pgfpoint{\f*6/8*\fx}{\f*\fy}%
}

\tikzset{%
  every weight/.style={
    circle,
    draw,
    fill=gray!50,
    minimum size=0.25cm
  },
  weight missing/.style={
    draw=none,
    fill=none,
    execute at begin node=\color{black}$\vdots$
  },
  every neuron/.style={
    circle,
    draw,
    minimum size=0.75cm
  },
  neuron missing/.style={
    draw=none,
    execute at begin node=$\vdots$
  }
}
\begin{tikzpicture}[x=10pt,y=10pt, >=stealth]

\foreach \m [count=\y] in {1,2,missing,3,4}
  \node [every weight/.try, weight \m/.try ] (weight-\m) at (0,-\y*2) {};

\foreach \m [count=\y] in {1,2,3,missing,4,5}
  \node [every neuron/.try, neuron \m/.try ] (neuron-\m) at (8,4-\y*3) {};

\node [draw, inner xsep=0.25cm, fit={(weight-1.west) (neuron-1) (neuron-5)}] {};

\foreach \i in {1,...,4}
  \foreach \j in {1,...,5}
    \draw (weight-\i.east) -- (neuron-\j.west);

\foreach \l [count=\i] in {1,2,i-1,i}{
    \node [left=1cm of weight-\i] (input-\i) {$x_{\l}$};
    \draw [->, thick] (input-\i) -- (weight-\i);
}

\foreach \i in {1,...,5}
  \draw [->, thick] (neuron-\i) -- ++(4,0);

\begin{scope}[shift={(14,-5)}]
\foreach \c [count=\n from 0, evaluate={%
  \i=mod(\n,9); \j=int(\n/9);
  \x=(2*\i+mod(\j,2))*cos 30;
  \y=6-\j*1.5;
  \s=\c*10+10;}] in 
{   2,2,2,2,2,4,4,4,4,
    2,2,2,2,4,4,4,4,4,
    5,5,2,2,2,4,4,4,4,
    5,5,2,2,0,4,4,4,4,
    5,5,5,0,0,0,0,0,0,
    5,5,0,0,0,0,0,0,0,
    5,5,1,0,0,0,0,0,0,
    1,1,1,1,0,0,0,3,3,
    1,1,1,1,1,0,3,3,3,
    1,1,1,1,1,3,3,3,3,
    1,1,1,1,1,3,3,3,3
}
\draw [fill=black!\s] 
    (feature map cs:x=\x+cos -30, y=\y+sin -30) \foreach \a in {30,90,...,270}
      { -- (feature map cs:x=\x+cos \a, y=\y+sin \a)} -- cycle;
\end{scope}
\end{tikzpicture}

\end{document}

enter image description here

Best Answer

Related Solutions

[Tex/LaTex] Mind maps in Latex

[Tex/LaTex] Draw a Kohonen SOM feature map

Related Question