vorlesungen/slides/8/wilf.m


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#
# wilf.m -- chromatische Zahl für einen Graphen
#
# (c) 2021 Prof Dr Andreas Müller, OST Ostschweizer Fachhochschule
#
N = 9;
A = zeros(N,N);

for i = (1:N)
	j = 1 + rem(i, N)
	A(i,j) = 1;
endfor
for i = (1:3:N-3)
	j = 1 + rem(i + 2, N)
	A(i,j) = 1;
endfor

A(1,3) = 1;

A = A + A'

eig(A)