Changeset 2974cff in tol

Timestamp:

Jul 7, 2009, 1:38:38 PM (17 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

774b169

Parents:

c126b51

Message:

ForMat is now a built-in faster function

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

File:

• tol/stdlib/general/grammars/_matrix.tol (modified) (1 diff)

tol/stdlib/general/grammars/_matrix.tol

@@ -385 +385 @@
 PutDescription("Aplica un Polyn ar a una Matrix z", FunArMat);
 //////////////////////////////////////////////////////////////////////////////
-//////////////////////////////////////////////////////////////////////////////
-  Matrix ForMat(Real rows, Real columns, Code fun)
-//////////////////////////////////////////////////////////////////////////////
-{
-  Real n = 0;
-  Matrix M = Rand(rows,columns,0,0);
-  Real While
-  (
-    n<rows,
-    {
-      n:=n+1;
-      Real m = 0;
-      While
-      (
-        m<columns,
-        {
-          m:=m+1;
-          Real x = fun(n,m);
-          PutMatDat(M,n,m,x); 
-          m
-        }   
-      ),
-      n
-    } 
-  );
-  M
-};
-//////////////////////////////////////////////////////////////////////////////
-  PutDescription(I2(
-  "",
-  "Devuelve una matriz con las dimensiones dadas y los valores generados "+
-  "por la funcion indicada, la cual toma dos argumentos reales "+
-  "correspondientes a las coordenadas (i,j) y devuelve el elemento (i,j) "+
-  "de la matriz.") + NL +
-  I2("Example : ", "Ejemplo : ") + NL +
-  "Matrix ForMat(2, 3, Real (Real n, Real m){n*m});",
-  ForMat);
-//////////////////////////////////////////////////////////////////////////////
-