Wednesday, 10 July 2013

Modern Structure diagrams

Just posted on The Modern Structure, with diagrams showing the patterns of influence over policy and ideology.

I used a few diagrams, if anyone wants to play with them, their source is in dot, and they can be rendered into postscript, bitmaps or svg with the free software graphviz (use the rendering command "twopi"):

Diagram 1 (power)

digraph cath1 {
 ranksep = "2";
 splines = "true";
 size = "5,4";
 
 media [label="Media"];
 pol   [label="Politicians"];
 cs    [label="Civil Service",style=bold];
 elec  [label="Electorate"];
 edu   [label="Education"];
 bus   [label="Business"];

 media -> elec[style=bold];
 media -> pol;
 edu   -> elec;
 elec  -> pol;
 cs    -> pol;
 pol   -> cs;
 cs    -> media;
 bus   -> pol[style=bold];
 bus   -> cs;

 root=pol;
}

Diagram 2a (ideology)

digraph cath1 {
 ranksep = "2";
 splines = "true";
 size    = "5,4";
 
 ivy   [label="Elite Academia",style=bold];
 media [label="Media",style=bold];
 pol   [label="Politicians"];
 cs    [label="Civil Service"];
 elec  [label="Electorate"];
 edu   [label="Mass Education"];
 
 ivy   -> media[style=bold];
 media -> elec[style=bold];
 ivy   -> cs;
 ivy   -> pol;
 media -> pol;
 ivy   -> edu[style=bold];
 edu   -> elec;
 elec  -> pol[style=bold];
 cs    -> pol;
 pol   -> elec;

 root=ivy;
}

Diagram 2b (ideology, including business)

digraph cath1 {
 size = "8,8";
 ranksep = "2";
 splines = "true";
 sep = 0.2;
 esep = 0.1;

 ivy   [label="Elite Academia",style=bold];
 media [label="Respectable Media",style=bold];
 pol   [label="Politicians"];
 cs    [label="Civil Service"];
 elec  [label="Electorate"];
 edu   [label="Mass Education"];
 
 ivy   -> media[style=bold];
 media -> elec[style=bold];
 ivy   -> cs;
 ivy   -> pol;
 media -> pol;
 ivy   -> edu[style=bold];
 edu   -> elec;
 elec  -> pol[style=bold];
 cs    -> pol;

 node [color=red];
 edge [color=red];
 
 right [label="Right-wing Media"];
 bus   [label="Business"];

 right -> elec;
 bus   -> right;
 bus   -> pol;
 ivy   -> bus;
 media -> right;
 pol   -> right;
 
 root=ivy;
}