Scilab function
Last update : 16/6/2004

supernode - remplace un groupe de sommets par un super-sommet

### Calling Sequence

  `g1 = supernode(v,g)`

### Parameters

- `v` : vecteur ligne, numéros des sommets
- `g` : graphe (liste)
- `g1` : nouveau graphe (liste)

### Description

`supernode` renvoie le graphe `g1` avec les sommets de numéros donnés par le vecteur `v` contractés en un seul sommet. Le numéro du super-sommet est le plus petit numéro de `v`. Les caractéristiques des anciens sommets et arêtes sont conservées. Le super-sommet est positionné au barycentre des sommets de `v`. Le diamètre et l'épaisseur du super-sommet sont le double de ceux du sommet remplacé.

La demande du nouveau sommet, si elle est définie, est la somme des demandes des sommets contractés.

### Examples

    ta=[1 1 2 2 2 3 4 5 5 7 8 8 9 10 10 10 10 10 11 12 13 13 13 14 15 16 16 17 17];
    he=[2 10 3 5 7 4 2 4 6 8 6 9 7 7 11 13 13 15 12 13 9 10 14 11 16 1 17 14 15];
    g=make_graph('foo',1,17,ta,he);
    g('node_x')=[283 163 63 57 164 164 273 271 339 384 504 513 439 623 631 757 642];
    g('node_y')=[59 133 223 318 227 319 221 324 432 141 209 319 428 443 187 151 301];
    g('edge_color')=modulo([1:(edge_number(g))],15)+1;
    g('node_diam')=[1:(g('node_number'))]+20;
    show_graph(g);
    v=[7 10 13 9];
    show_nodes(v);
    g1=supernode(v,g);
    show_graph(g1,'new');

### See Also

`add_edge`, `add_node`, `delete_arcs`, `delete_nodes`,