Quelle  1.6.5   Sprache: unbekannt

#Be patient! This example may take a while.
n:=5000;; Bettis:=[];;
for p in [1..80]*(1/40000) do
 K:=RandomSimplicialGraph(n,p);;
 B:=BettiNumber(K,0);;
 Add(Bettis,[p,B]);
 od;
ScatterPlot(Bettis); 

[ Dauer der Verarbeitung: 0.5 Sekunden  (vorverarbeitet)  ]