doc/info/es/f90.texi

   1 @c English version: 2011-08-21
   2 @menu
   3 * Funciones y variables para f90::
   4 @end menu
   5
   6 @node Funciones y variables para f90,  , f90, f90
   7 @section Funciones y variables para f90
   8
   9
  10 @deffn {Función} f90 (@var{expr_1}, @dots{}, @var{expr_n})
  11
  12 Imprime una o más expresiones @var{expr_1}, @dots{}, @var{expr_n}
  13 como un programa Fortran 90. El programa se obtiene a través de
  14 la salida estándar.
  15
  16 La función @code{f90} imprime su salida en el llamado formato libre de
  17 Fortran 90: no se presta atención alguna a las posiciones de caracteres
  18 respecto de las columnas y los renglones largos se dividen a un ancho fijo con el
  19 carácter @code{&} indicando continuación de código.
  20
  21 Ejecútese @code{load("f90")} antes de utilizar esta función.
  22
  23 Véase también @code{fortran}.
  24
  25 Ejemplos:
  26
  27 @c ===beg===
  28 @c load ("f90")$
  29 @c foo : expand ((xxx + yyy + 7)^4);
  30 @c f90 ('foo = foo);
  31 @c ===end===
  32 @example
  33 (%i1) load ("f90")$
  34 (%i2) foo : expand ((xxx + yyy + 7)^4);
  35          4            3         3        2    2             2
  36 (%o2) yyy  + 4 xxx yyy  + 28 yyy  + 6 xxx  yyy  + 84 xxx yyy
  37           2        3             2
  38  + 294 yyy  + 4 xxx  yyy + 84 xxx  yyy + 588 xxx yyy + 1372 yyy
  39       4         3          2
  40  + xxx  + 28 xxx  + 294 xxx  + 1372 xxx + 2401
  41 (%i3) f90 ('foo = foo);
  42 foo = yyy**4+4*xxx*yyy**3+28*yyy**3+6*xxx**2*yyy**2+84*xxx*yyy**2&
  43 +294*yyy**2+4*xxx**3*yyy+84*xxx**2*yyy+588*xxx*yyy+1372*yyy+xxx**&
  44 4+28*xxx**3+294*xxx**2+1372*xxx+2401
  45 (%o3)                         false
  46 @end example
  47
  48 Expresiones múltiples. Captura de la salida estándar a un fichero
  49 por medio de la función @code{with_stdout}.
  50
  51 @c ===beg===
  52 @c load ("f90")$
  53 @c foo : sin (3*x + 1) - cos (7*x - 2);
  54 @c with_stdout ("foo.f90", f90 (x = 0.25, y = 0.625, 'foo = foo, 'stop, 'end));
  55 @c printfile ("foo.f90");
  56 @c ===end===
  57 @example
  58 (%i1) load ("f90")$
  59 (%i2) foo : sin (3*x + 1) - cos (7*x - 2);
  60 (%o2)              sin(3 x + 1) - cos(7 x - 2)
  61 (%i3) with_stdout ("foo.f90",
  62                    f90 (x=0.25, y=0.625, 'foo=foo, 'stop, 'end));
  63 (%o3)                         false
  64 (%i4) printfile ("foo.f90");
  65 x = 0.25
  66 y = 0.625
  67 foo = sin(3*x+1)-cos(7*x-2)
  68 stop
  69 end
  70 (%o4)                        foo.f90
  71 @end example
  72 @end deffn
  73
  74