Changeset 7faafd4e in tol

Timestamp:

Nov 8, 2009, 8:00:04 PM (17 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

ae1ad556

Parents:

55230c9

Message:

commentaries

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@1647 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol_pkg/GisTools/test/test_0001/test.tol (modified) (6 diffs)

tol_pkg/GisTools/test/test_0001/test.tol

@@ -20 +20 @@
 #Embed "../../_GisTools.tol";
 
-//Test for SelectRowsInHyperCube
+//The order of magnitude required for number of geographic points
 Real point.num.approx = 20000;
-
+//Number of cities
 Real city.num = 500;
+//Distance around targets
 Real distance = 2000;
+//Factor of Country size respect dtarget distance
 Real coordFactor = 400;
+//Distance of points inside a city
 Real cityInsideDistance = distance / 4;
 
+//Country dimensions
 Real coord.min = -distance*coordFactor;
 Real coord.max = +distance*coordFactor;
 
-
+//Log-Normal random generation of number of point by city
 Matrix city.points = 
 { 
@@ -39 +43 @@
   Round(Exp(Gaussian(city.num,1,nu,0.99995))) 
 };
-
 Matrix city.points.freq = Frequency(city.points,100);
 
+//Exact number of geographic points
 Real point.num = MatSum(city.points);
 
+//Locations of cities
 Matrix city.center = BinGroup("<<",For(1,city.num, Matrix(Real city)
 {
@@ -49 +54 @@
 }));
 
+//Locations of points inside each city as gaussian around the center
 Set city.points = For(1,city.num, Matrix(Real city)
 {
@@ -59 +65 @@
 });
 
+//All points
 Matrix points = BinGroup("<<",city.points);
 
+//Target point
 Matrix p0 = SubRow(points,[[IntRand(1,point.num)]])+
            Gaussian(1, 2, 0, cityInsideDistance);
 
 Real t0 = Copy(Time);
+//Selecting neighbors of target in an hipercube
 WriteLn("SelectRowsInHyperCube full ...");
 Set p0.select.idx.HC = GisTools::SelectRowsInHyperCube(
@@ -73 +82 @@
   "Time:"<<(t1-t0));
 
+//Selecting neighbors of target in an hipersphere
 WriteLn("SelectRowsInHyperSphere full ...");
 Set p0.select.idx.HE.1 = GisTools::SelectRowsInHyperSphere(
@@ -81 +91 @@
   "Time:"<<(t2-t1));
 
+//Selecting neighbors of target in an hipersphere from the hipercube
 WriteLn("SelectRowsInHyperSphere over SelectRowsInHyperCube ...");
 Set p0.select.idx.HE.2 = GisTools::SelectRowsInHyperSphere(