MWE: Diluição da rede
Author
Guilherme Wiener
License
Creative Commons CC BY 4.0
Abstract
Exemplo de representação da diluição da rede quadrada com o pacote pstricks.
Exemplo de representação da diluição da rede quadrada com o pacote pstricks.
\documentclass{article}
\usepackage[utf8]{inputenc}
%%% Compile using XeLaTeX or latex->dvips->ps2pdf (https://tex.stackexchange.com/questions/68870/pstricks-error-undefined-control-sequence-recently-read-clortops)
\usepackage{pstricks}
\usepackage{pstricks-add}
\usepackage{pst-node,pst-tree}
%%%% Criando a distancia entre os nodos
\newlength{\DiagramColumnLength}
\newlength{\DiagramRowLength}
%%%% Definindo distancia entre os nodos
\setlength{\DiagramColumnLength}{1.05cm}
\setlength{\DiagramRowLength}{1.05cm}
\begin{document}
Pstricks precisa compilar usando Xelatex ou latex->dvips->ps2pdf (pdflatex não compila).
Rede cheia 10$\times$9:
$$
\psmatrix[colsep=\DiagramColumnLength,rowsep=\DiagramRowLength,mnode=circle]
%
[name=10] &[name=11] & [name=12] & [name=13] & [name=14] & [name=15] & [name=16] & [name=17] & [name=18] & [name=19] \\
[name=20] & [name=21] & [name=22] & [name=23] & [name=24] & [name=25] & [name=26] & [name=27] & [name=28] & [name=29] \\
[name=30]& [name=31] & [name=32] & [name=33] & [name=34] & [name=35]& [name=36] & [name=37] & [name=38] & [name=39] \\
[name=40] & [name=41] & [name=42] & [name=43] & [name=44] & [name=45]& [name=46] & [name=47] & [name=48] & [name=49] \\ [name=50] & [name=51] & [name=52] & [name=53] & [name=54] & [name=55]& [name=56] & [name=57] & [name=58] & [name=59] \\
[name=60] & [name=61] & [name=62] & [name=63] & [name=64] & [name=65]& [name=66] & [name=67] & [name=68] & [name=69] \\
[name=70] & [name=71] & [name=72] & [name=73] & [name=74] & [name=75]& [name=76] & [name=77] & [name=78] & [name=79] \\
[name=80] & [name=81] & [name=82] & [name=83] & [name=84] & [name=85]& [name=86] & [name=87] & [name=88] & [name=89] \\
[name=90] & [name=91] & [name=92] & [name=93] & [name=94] & [name=95]& [name=96] & [name=97] & [name=98] & [name=99]
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% ligações horizontais 10-11-12-13...
\ncline[nodesep=0cm]{10}{11}
\ncline[nodesep=0cm]{11}{12}
\ncline[nodesep=0cm]{12}{13}
\ncline[nodesep=0cm]{13}{14}
\ncline[nodesep=0cm]{14}{15}
\ncline[nodesep=0cm]{15}{16}
\ncline[nodesep=0cm]{16}{17}
\ncline[nodesep=0cm]{17}{18}
\ncline[nodesep=0cm]{18}{19}
%
\ncline[nodesep=0cm]{20}{21}
\ncline[nodesep=0cm]{21}{22}
\ncline[nodesep=0cm]{22}{23}
\ncline[nodesep=0cm]{23}{24}
\ncline[nodesep=0cm]{24}{25}
\ncline[nodesep=0cm]{25}{26}
\ncline[nodesep=0cm]{26}{27}
\ncline[nodesep=0cm]{27}{28}
\ncline[nodesep=0cm]{28}{29}
%
\ncline[nodesep=0cm]{30}{31}
\ncline[nodesep=0cm]{31}{32}
\ncline[nodesep=0cm]{32}{33}
\ncline[nodesep=0cm]{33}{34}
\ncline[nodesep=0cm]{34}{35}
\ncline[nodesep=0cm]{35}{36}
\ncline[nodesep=0cm]{36}{37}
\ncline[nodesep=0cm]{37}{38}
\ncline[nodesep=0cm]{38}{39}
%
\ncline[nodesep=0cm]{40}{41}
\ncline[nodesep=0cm]{41}{42}
\ncline[nodesep=0cm]{42}{43}
\ncline[nodesep=0cm]{43}{44}
\ncline[nodesep=0cm]{44}{45}
\ncline[nodesep=0cm]{45}{46}
\ncline[nodesep=0cm]{46}{47}
\ncline[nodesep=0cm]{47}{48}
\ncline[nodesep=0cm]{48}{49}
%
\ncline[nodesep=0cm]{50}{51}
\ncline[nodesep=0cm]{51}{52}
\ncline[nodesep=0cm]{52}{53}
\ncline[nodesep=0cm]{53}{54}
\ncline[nodesep=0cm]{54}{55}
\ncline[nodesep=0cm]{55}{56}
\ncline[nodesep=0cm]{56}{57}
\ncline[nodesep=0cm]{57}{58}
\ncline[nodesep=0cm]{58}{59}
%
\ncline[nodesep=0cm]{60}{61}
\ncline[nodesep=0cm]{61}{62}
\ncline[nodesep=0cm]{62}{63}
\ncline[nodesep=0cm]{63}{64}
\ncline[nodesep=0cm]{64}{65}
\ncline[nodesep=0cm]{65}{66}
\ncline[nodesep=0cm]{66}{67}
\ncline[nodesep=0cm]{67}{68}
\ncline[nodesep=0cm]{68}{69}
%
\ncline[nodesep=0cm]{70}{71}
\ncline[nodesep=0cm]{71}{72}
\ncline[nodesep=0cm]{72}{73}
\ncline[nodesep=0cm]{73}{74}
\ncline[nodesep=0cm]{74}{75}
\ncline[nodesep=0cm]{75}{76}
\ncline[nodesep=0cm]{76}{77}
\ncline[nodesep=0cm]{77}{78}
\ncline[nodesep=0cm]{78}{79}
%
\ncline[nodesep=0cm]{80}{81}
\ncline[nodesep=0cm]{81}{82}
\ncline[nodesep=0cm]{82}{83}
\ncline[nodesep=0cm]{83}{84}
\ncline[nodesep=0cm]{84}{85}
\ncline[nodesep=0cm]{85}{86}
\ncline[nodesep=0cm]{86}{87}
\ncline[nodesep=0cm]{87}{88}
\ncline[nodesep=0cm]{88}{89}
%
\ncline[nodesep=0cm]{90}{91}
\ncline[nodesep=0cm]{91}{92}
\ncline[nodesep=0cm]{92}{93}
\ncline[nodesep=0cm]{93}{94}
\ncline[nodesep=0cm]{94}{95}
\ncline[nodesep=0cm]{95}{96}
\ncline[nodesep=0cm]{96}{97}
\ncline[nodesep=0cm]{97}{98}
\ncline[nodesep=0cm]{98}{99}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% ligações verticais 10-20-30-40...
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\ncline[nodesep=0cm]{10}{20}
\ncline[nodesep=0cm]{20}{30}
\ncline[nodesep=0cm]{30}{40}
\ncline[nodesep=0cm]{40}{50}
\ncline[nodesep=0cm]{50}{60}
\ncline[nodesep=0cm]{60}{70}
\ncline[nodesep=0cm]{70}{80}
\ncline[nodesep=0cm]{80}{90}
%
\ncline[nodesep=0cm]{11}{21}
\ncline[nodesep=0cm]{21}{31}
\ncline[nodesep=0cm]{31}{41}
\ncline[nodesep=0cm]{41}{51}
\ncline[nodesep=0cm]{51}{61}
\ncline[nodesep=0cm]{61}{71}
\ncline[nodesep=0cm]{71}{81}
\ncline[nodesep=0cm]{81}{91}
%
\ncline[nodesep=0cm]{12}{22}
\ncline[nodesep=0cm]{22}{32}
\ncline[nodesep=0cm]{32}{42}
\ncline[nodesep=0cm]{42}{52}
\ncline[nodesep=0cm]{52}{62}
\ncline[nodesep=0cm]{62}{72}
\ncline[nodesep=0cm]{72}{82}
\ncline[nodesep=0cm]{82}{92}
%
\ncline[nodesep=0cm]{13}{23}
\ncline[nodesep=0cm]{23}{33}
\ncline[nodesep=0cm]{33}{43}
\ncline[nodesep=0cm]{43}{53}
\ncline[nodesep=0cm]{53}{63}
\ncline[nodesep=0cm]{63}{73}
\ncline[nodesep=0cm]{73}{83}
\ncline[nodesep=0cm]{83}{93}
%
\ncline[nodesep=0cm]{14}{24}
\ncline[nodesep=0cm]{24}{34}
\ncline[nodesep=0cm]{34}{44}
\ncline[nodesep=0cm]{44}{54}
\ncline[nodesep=0cm]{54}{64}
\ncline[nodesep=0cm]{64}{74}
\ncline[nodesep=0cm]{74}{84}
\ncline[nodesep=0cm]{84}{94}
%
\ncline[nodesep=0cm]{15}{25}
\ncline[nodesep=0cm]{25}{35}
\ncline[nodesep=0cm]{35}{45}
\ncline[nodesep=0cm]{45}{55}
\ncline[nodesep=0cm]{55}{65}
\ncline[nodesep=0cm]{65}{75}
\ncline[nodesep=0cm]{75}{85}
\ncline[nodesep=0cm]{85}{95}
%
\ncline[nodesep=0cm]{16}{26}
\ncline[nodesep=0cm]{26}{36}
\ncline[nodesep=0cm]{36}{46}
\ncline[nodesep=0cm]{46}{56}
\ncline[nodesep=0cm]{56}{66}
\ncline[nodesep=0cm]{66}{76}
\ncline[nodesep=0cm]{76}{86}
\ncline[nodesep=0cm]{86}{96}
%
\ncline[nodesep=0cm]{17}{27}
\ncline[nodesep=0cm]{27}{37}
\ncline[nodesep=0cm]{37}{47}
\ncline[nodesep=0cm]{47}{57}
\ncline[nodesep=0cm]{57}{67}
\ncline[nodesep=0cm]{67}{77}
\ncline[nodesep=0cm]{77}{87}
\ncline[nodesep=0cm]{87}{97}
%
\ncline[nodesep=0cm]{18}{28}
\ncline[nodesep=0cm]{28}{38}
\ncline[nodesep=0cm]{38}{48}
\ncline[nodesep=0cm]{48}{58}
\ncline[nodesep=0cm]{58}{68}
\ncline[nodesep=0cm]{68}{78}
\ncline[nodesep=0cm]{78}{88}
\ncline[nodesep=0cm]{88}{98}
%
\ncline[nodesep=0cm]{19}{29}
\ncline[nodesep=0cm]{29}{39}
\ncline[nodesep=0cm]{39}{49}
\ncline[nodesep=0cm]{49}{59}
\ncline[nodesep=0cm]{59}{69}
\ncline[nodesep=0cm]{69}{79}
\ncline[nodesep=0cm]{79}{89}
\ncline[nodesep=0cm]{89}{99}
\endpsmatrix
$$
\newpage
Removidos 36/90=0.4:
\begin{center}
32, 65, 27, 18, 10, 11, 46, 79, 56, \\
73, 61, 57, 15, 34, 63, 83, 44, 92, \\
89, 80, 22, 12, 13, 19, 40, 25, 58, \\
76, 96, 88, 97, 37, 90, 30, 53, 50
\end{center}
Para remover um nodo XX, basta remover o label \textit{[name=XX]} na definição da matriz e $\&$ se ficar sobrando no final da linha (se não for removido, o nodo da ultima coluna será plotado, mas sem as conexões). Obviamente remover os \textit{ncline} com esses labels seria o ideal, apesar de mais trabalhoso, pois se a figura ficar na mesma pagina ela detecta os labels da outra matriz.
$$
\psmatrix[colsep=\DiagramColumnLength,rowsep=\DiagramRowLength,mnode=circle]
%
& & & & [name=14] & & [name=16] & [name=17] \\
[name=20] & [name=21] & & [name=23] & [name=24] & & [name=26] & & [name=28] & [name=29] \\
& [name=31] & & [name=33] & & [name=35]& [name=36] & & [name=38] & [name=39] \\
& [name=41] & [name=42] & [name=43] & & [name=45]& & [name=47] & [name=48] & [name=49] \\
& [name=51] & [name=52] & & [name=54] & [name=55]& & & & [name=59] \\
[name=60] & & [name=62] & & [name=64] & & [name=66] & [name=67] & [name=68] & [name=69] \\
[name=70] & [name=71] & [name=72] & & [name=74] & [name=75]& & [name=77] & [name=78] \\
& [name=81] & [name=82] & & [name=84] & [name=85]& [name=86] & [name=87] \\
& [name=91] & & [name=93] & [name=94] & [name=95]& & & [name=98] & [name=99]
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5
% ligações horizontais 10-11-12-13...
\ncline[nodesep=0cm]{10}{11}
\ncline[nodesep=0cm]{11}{12}
\ncline[nodesep=0cm]{12}{13}
\ncline[nodesep=0cm]{13}{14}
\ncline[nodesep=0cm]{14}{15}
\ncline[nodesep=0cm]{15}{16}
\ncline[nodesep=0cm]{16}{17}
\ncline[nodesep=0cm]{17}{18}
\ncline[nodesep=0cm]{18}{19}
%
\ncline[nodesep=0cm]{20}{21}
\ncline[nodesep=0cm]{21}{22}
\ncline[nodesep=0cm]{22}{23}
\ncline[nodesep=0cm]{23}{24}
\ncline[nodesep=0cm]{24}{25}
\ncline[nodesep=0cm]{25}{26}
\ncline[nodesep=0cm]{26}{27}
\ncline[nodesep=0cm]{27}{28}
\ncline[nodesep=0cm]{28}{29}
%
\ncline[nodesep=0cm]{30}{31}
\ncline[nodesep=0cm]{31}{32}
\ncline[nodesep=0cm]{32}{33}
\ncline[nodesep=0cm]{33}{34}
\ncline[nodesep=0cm]{34}{35}
\ncline[nodesep=0cm]{35}{36}
\ncline[nodesep=0cm]{36}{37}
\ncline[nodesep=0cm]{37}{38}
\ncline[nodesep=0cm]{38}{39}
%
\ncline[nodesep=0cm]{40}{41}
\ncline[nodesep=0cm]{41}{42}
\ncline[nodesep=0cm]{42}{43}
\ncline[nodesep=0cm]{43}{44}
\ncline[nodesep=0cm]{44}{45}
\ncline[nodesep=0cm]{45}{46}
\ncline[nodesep=0cm]{46}{47}
\ncline[nodesep=0cm]{47}{48}
\ncline[nodesep=0cm]{48}{49}
%
\ncline[nodesep=0cm]{50}{51}
\ncline[nodesep=0cm]{51}{52}
\ncline[nodesep=0cm]{52}{53}
\ncline[nodesep=0cm]{53}{54}
\ncline[nodesep=0cm]{54}{55}
\ncline[nodesep=0cm]{55}{56}
\ncline[nodesep=0cm]{56}{57}
\ncline[nodesep=0cm]{57}{58}
\ncline[nodesep=0cm]{58}{59}
%
\ncline[nodesep=0cm]{60}{61}
\ncline[nodesep=0cm]{61}{62}
\ncline[nodesep=0cm]{62}{63}
\ncline[nodesep=0cm]{63}{64}
\ncline[nodesep=0cm]{64}{65}
\ncline[nodesep=0cm]{65}{66}
\ncline[nodesep=0cm]{66}{67}
\ncline[nodesep=0cm]{67}{68}
\ncline[nodesep=0cm]{68}{69}
%
\ncline[nodesep=0cm]{70}{71}
\ncline[nodesep=0cm]{71}{72}
\ncline[nodesep=0cm]{72}{73}
\ncline[nodesep=0cm]{73}{74}
\ncline[nodesep=0cm]{74}{75}
\ncline[nodesep=0cm]{75}{76}
\ncline[nodesep=0cm]{76}{77}
\ncline[nodesep=0cm]{77}{78}
\ncline[nodesep=0cm]{78}{79}
%
\ncline[nodesep=0cm]{80}{81}
\ncline[nodesep=0cm]{81}{82}
\ncline[nodesep=0cm]{82}{83}
\ncline[nodesep=0cm]{83}{84}
\ncline[nodesep=0cm]{84}{85}
\ncline[nodesep=0cm]{85}{86}
\ncline[nodesep=0cm]{86}{87}
\ncline[nodesep=0cm]{87}{88}
\ncline[nodesep=0cm]{88}{89}
%
\ncline[nodesep=0cm]{90}{91}
\ncline[nodesep=0cm]{91}{92}
\ncline[nodesep=0cm]{92}{93}
\ncline[nodesep=0cm]{93}{94}
\ncline[nodesep=0cm]{94}{95}
\ncline[nodesep=0cm]{95}{96}
\ncline[nodesep=0cm]{96}{97}
\ncline[nodesep=0cm]{97}{98}
\ncline[nodesep=0cm]{98}{99}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% ligações verticais 10-20-30-40...
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\ncline[nodesep=0cm]{10}{20}
\ncline[nodesep=0cm]{20}{30}
\ncline[nodesep=0cm]{30}{40}
\ncline[nodesep=0cm]{40}{50}
\ncline[nodesep=0cm]{50}{60}
\ncline[nodesep=0cm]{60}{70}
\ncline[nodesep=0cm]{70}{80}
\ncline[nodesep=0cm]{80}{90}
%
\ncline[nodesep=0cm]{11}{21}
\ncline[nodesep=0cm]{21}{31}
\ncline[nodesep=0cm]{31}{41}
\ncline[nodesep=0cm]{41}{51}
\ncline[nodesep=0cm]{51}{61}
\ncline[nodesep=0cm]{61}{71}
\ncline[nodesep=0cm]{71}{81}
\ncline[nodesep=0cm]{81}{91}
%
\ncline[nodesep=0cm]{12}{22}
\ncline[nodesep=0cm]{22}{32}
\ncline[nodesep=0cm]{32}{42}
\ncline[nodesep=0cm]{42}{52}
\ncline[nodesep=0cm]{52}{62}
\ncline[nodesep=0cm]{62}{72}
\ncline[nodesep=0cm]{72}{82}
\ncline[nodesep=0cm]{82}{92}
%
\ncline[nodesep=0cm]{13}{23}
\ncline[nodesep=0cm]{23}{33}
\ncline[nodesep=0cm]{33}{43}
\ncline[nodesep=0cm]{43}{53}
\ncline[nodesep=0cm]{53}{63}
\ncline[nodesep=0cm]{63}{73}
\ncline[nodesep=0cm]{73}{83}
\ncline[nodesep=0cm]{83}{93}
%
\ncline[nodesep=0cm]{14}{24}
\ncline[nodesep=0cm]{24}{34}
\ncline[nodesep=0cm]{34}{44}
\ncline[nodesep=0cm]{44}{54}
\ncline[nodesep=0cm]{54}{64}
\ncline[nodesep=0cm]{64}{74}
\ncline[nodesep=0cm]{74}{84}
\ncline[nodesep=0cm]{84}{94}
%
\ncline[nodesep=0cm]{15}{25}
\ncline[nodesep=0cm]{25}{35}
\ncline[nodesep=0cm]{35}{45}
\ncline[nodesep=0cm]{45}{55}
\ncline[nodesep=0cm]{55}{65}
\ncline[nodesep=0cm]{65}{75}
\ncline[nodesep=0cm]{75}{85}
\ncline[nodesep=0cm]{85}{95}
%
\ncline[nodesep=0cm]{16}{26}
\ncline[nodesep=0cm]{26}{36}
\ncline[nodesep=0cm]{36}{46}
\ncline[nodesep=0cm]{46}{56}
\ncline[nodesep=0cm]{56}{66}
\ncline[nodesep=0cm]{66}{76}
\ncline[nodesep=0cm]{76}{86}
\ncline[nodesep=0cm]{86}{96}
%
\ncline[nodesep=0cm]{17}{27}
\ncline[nodesep=0cm]{27}{37}
\ncline[nodesep=0cm]{37}{47}
\ncline[nodesep=0cm]{47}{57}
\ncline[nodesep=0cm]{57}{67}
\ncline[nodesep=0cm]{67}{77}
\ncline[nodesep=0cm]{77}{87}
\ncline[nodesep=0cm]{87}{97}
%
\ncline[nodesep=0cm]{18}{28}
\ncline[nodesep=0cm]{28}{38}
\ncline[nodesep=0cm]{38}{48}
\ncline[nodesep=0cm]{48}{58}
\ncline[nodesep=0cm]{58}{68}
\ncline[nodesep=0cm]{68}{78}
\ncline[nodesep=0cm]{78}{88}
\ncline[nodesep=0cm]{88}{98}
%
\ncline[nodesep=0cm]{19}{29}
\ncline[nodesep=0cm]{29}{39}
\ncline[nodesep=0cm]{39}{49}
\ncline[nodesep=0cm]{49}{59}
\ncline[nodesep=0cm]{59}{69}
\ncline[nodesep=0cm]{69}{79}
\ncline[nodesep=0cm]{79}{89}
\ncline[nodesep=0cm]{89}{99}
\endpsmatrix
$$
\end{document}