Quelle  2.4.1   Sprache: unbekannt

n:=100;; Betti1:=[];; Betti2:=[];;
for p in [0..90]*(1/200) do
 G:=RandomSimplicialGraph(n,p);;
 K:=CliqueComplex(G,3);;
 Add(Betti1,[p,BettiNumber(K,1)]);
 Add(Betti2,[p,BettiNumber(K,2)]);
 od;
ScatterPlot(Betti1);
ScatterPlot(Betti2);

[ Dauer der Verarbeitung: 0.3 Sekunden  (vorverarbeitet)  ]