1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
function [g1]=split_edge(i,j,g,name)
// Copyright INRIA
[lhs,rhs]=argn(0)
// check name
if rhs==3 then
name=0
else
if rhs<>4 then error(39), end
if type(name)<>10|prod(size(name))<>1 then
error('Fourth argument must be a string')
end
end
// split the edge from node i to node j by
// adding a new node between i and j
ta=g('tail');he=g('head');
ii=find((ta==i)&(he==j));
if ii==[] then
error('There is no edge from node i to node j')
end
if size(ii,2)>1 then
error('There are more than one edge from node i to node j')
end
g1=g;
n=g1('node_number');
xnodes=g1('node_x');ynodes=g1('node_y');
xx=0.5*(xnodes(i)+xnodes(j));yy=0.5*(ynodes(i)+ynodes(j));
if name==0 then
g1=add_node(g1,[xx yy]);
else
g1=add_node(g1,[xx yy],name);
end;
g1=add_edge(i,n+1,g1);
g1=add_edge(n+1,j,g1);
g1=delete_arcs([i j],g1);
|
