A Maple egy fejlett matematikai problémamegoldó és programozói szoftver.
-
xDJCx #440
Az alábbi program a Maple beépített színezési szám utasításával számol, adott N-re (1..N csúcsok, relatív prím élekkel.) Kisebb N-ekre kiszámolja a színezési számot, de nekem nem sikerült vele N=100-ra kiszámoltatnom, azaz 10 perc után leállítottam. Több mint 3000 éle van ennek gráfnak. Továbbá nagy N-re ábrázolni sem érdemes, mert összemosódnak az élek.
restart;with(GraphTheory):
N:=10;
nek:=$1..N;# csúcsok számozása
R:={};# relativ prím csúcspárok létrehozása
for k from 2 to N do
for m from 1 to k-1 do
if igcd(k,m)=1 then R := R union {{k,m}}: end if:
end do;
end do;
G := Graph([nek]);# gráf létrehozása : csúcspontok
AddEdge(G, R);# élek megadása
DrawGraph(G);# rajzolása
ChromaticNumber(G);# csúcsszínezési szám