|
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.25 Sekunden
(vorverarbeitet)
]
|
