File: 4.7.txt

package info (click to toggle)
gap-hap 1.70%2Bds-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 56,612 kB
  • sloc: xml: 16,139; sh: 216; javascript: 155; makefile: 126; ansic: 47; perl: 36
file content (11 lines) | stat: -rw-r--r-- 331 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
 
gap> L:=[];;M:=[];;
gap> for p in [1..100] do
> K:=RegularCWComplex(RandomSimplicialTwoComplex(100,p/1000));;
> h1:=Length(Homology(K,1));;
> h2:=Length(Homology(K,2));;
> Add(L, [1.0*(p/1000),h1,"red"]);
> Add(L, [1.0*(p/1000),h2,"blue"]);
> Add(M, [1.0*(p/1000),1-h1+h2,"green"]);
> od;
gap> ScatterPlot(L);
gap> ScatterPlot(M);