<?xml version="1.0" encoding="ISO-8859-1"?><article xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<front>
<journal-meta>
<journal-id>1409-2433</journal-id>
<journal-title><![CDATA[Revista de Matemática Teoría y Aplicaciones]]></journal-title>
<abbrev-journal-title><![CDATA[Rev. Mat]]></abbrev-journal-title>
<issn>1409-2433</issn>
<publisher>
<publisher-name><![CDATA[Centro de Investigaciones en Matemática Pura y Aplicada (CIMPA) y Escuela de Matemática, San José, Costa Rica.]]></publisher-name>
</publisher>
</journal-meta>
<article-meta>
<article-id>S1409-24332016000100041</article-id>
<title-group>
<article-title xml:lang="en"><![CDATA[Magnetohydrodynamic equations (MHD) generation code]]></article-title>
<article-title xml:lang="es"><![CDATA[Código de generación de ecuaciones magnetohidrodinámicas (MHD)]]></article-title>
</title-group>
<contrib-group>
<contrib contrib-type="author">
<name>
<surname><![CDATA[Alfaro]]></surname>
<given-names><![CDATA[Francisco Frutos]]></given-names>
</name>
<xref ref-type="aff" rid="Aff"/>
</contrib>
<contrib contrib-type="author">
<name>
<surname><![CDATA[Méndez]]></surname>
<given-names><![CDATA[Rodrigo Carboni]]></given-names>
</name>
<xref ref-type="aff" rid="Aff"/>
</contrib>
</contrib-group>
<aff id="Af1">
<institution><![CDATA[,University of Costa Rica School of Physics ]]></institution>
<addr-line><![CDATA[ San José]]></addr-line>
<country>CR</country>
</aff>
<aff id="Af2">
<institution><![CDATA[,University of Costa Rica School of Physics ]]></institution>
<addr-line><![CDATA[ San José]]></addr-line>
<country>CR</country>
</aff>
<pub-date pub-type="pub">
<day>00</day>
<month>06</month>
<year>2016</year>
</pub-date>
<pub-date pub-type="epub">
<day>00</day>
<month>06</month>
<year>2016</year>
</pub-date>
<volume>23</volume>
<numero>1</numero>
<fpage>41</fpage>
<lpage>61</lpage>
<copyright-statement/>
<copyright-year/>
<self-uri xlink:href="http://www.scielo.sa.cr/scielo.php?script=sci_arttext&amp;pid=S1409-24332016000100041&amp;lng=en&amp;nrm=iso"></self-uri><self-uri xlink:href="http://www.scielo.sa.cr/scielo.php?script=sci_abstract&amp;pid=S1409-24332016000100041&amp;lng=en&amp;nrm=iso"></self-uri><self-uri xlink:href="http://www.scielo.sa.cr/scielo.php?script=sci_pdf&amp;pid=S1409-24332016000100041&amp;lng=en&amp;nrm=iso"></self-uri><abstract abstract-type="short" xml:lang="en"><p><![CDATA[AbstractA program to generate codes in Fortran and C of the full magnetohydrodynamic equations is shown. The program uses the free computer algebra system software REDUCE. This software has a package called EXCALC, which is an exterior calculus program. The advantage of this program is that it can be modified to include another complex metric or spacetime. The output of this program is modified by means of a LINUX script which creates a new REDUCE program to manipulate the magnetohydrodynamic equations to obtain a code that can be used as a seed for a magnetohydrodynamic code for numerical applications. As an example, we present part of the output of our programs for Cartesian coordinates and how to do the discretization.]]></p></abstract>
<abstract abstract-type="short" xml:lang="es"><p><![CDATA[ResumenSe presenta un programa para generar códigos en Fortran y C de las ecuaciones magnetohidrodinámicas. El programa utiliza el software libre de álgebra computacional REDUCE. Este software tiene un paquete llamado EXCALC, que es un programa de cálculo exterior. La ventaja de este programa es que puede ser modificado para incluir otra métrica compleja o espacio-tiempo complejo. La salida de este programa es modificada por medio de una secuencia de comandos LINUX que crea un nuevo programa en REDUCE para manipular las ecuaciones magnetohidrodinámicas para obtener un código que puede ser utilizado como una semilla para un código de magnetohidrodinámica para aplicaciones numéricas. A modo de ejemplo, se presenta parte de la salida de nuestros programas en coordenadas cartesianas y como hacer la discretización.]]></p></abstract>
<kwd-group>
<kwd lng="en"><![CDATA[magnetohydrodynamic]]></kwd>
<kwd lng="en"><![CDATA[Cartan's exterior calculus]]></kwd>
<kwd lng="en"><![CDATA[numerical discretization]]></kwd>
<kwd lng="es"><![CDATA[magnetohidrodinámica]]></kwd>
<kwd lng="es"><![CDATA[cálculo exterior de Cartan]]></kwd>
<kwd lng="es"><![CDATA[discretización numérica]]></kwd>
</kwd-group>
</article-meta>
</front><back>
<ref-list>
<ref id="B1">
<nlm-citation citation-type="book">
<person-group person-group-type="author">
<name>
<surname><![CDATA[Arfken]]></surname>
<given-names><![CDATA[G.B.]]></given-names>
</name>
<name>
<surname><![CDATA[Weber]]></surname>
<given-names><![CDATA[H.J.]]></given-names>
</name>
<name>
<surname><![CDATA[Harris]]></surname>
<given-names><![CDATA[F.E.]]></given-names>
</name>
</person-group>
<source><![CDATA[Mathematical Methods for Physicists]]></source>
<year>2013</year>
<publisher-loc><![CDATA[Amsterdam ]]></publisher-loc>
<publisher-name><![CDATA[Elsevier]]></publisher-name>
</nlm-citation>
</ref>
<ref id="B2">
<nlm-citation citation-type="book">
<person-group person-group-type="author">
<name>
<surname><![CDATA[Birdsall]]></surname>
<given-names><![CDATA[C.K.]]></given-names>
</name>
<name>
<surname><![CDATA[Langdon]]></surname>
<given-names><![CDATA[A.B]]></given-names>
</name>
</person-group>
<source><![CDATA[Plasma Physics via Computer]]></source>
<year>1991</year>
<publisher-loc><![CDATA[Bristol ]]></publisher-loc>
<publisher-name><![CDATA[Adam Hilger]]></publisher-name>
</nlm-citation>
</ref>
<ref id="B3">
<nlm-citation citation-type="book">
<person-group person-group-type="author">
<name>
<surname><![CDATA[Cap]]></surname>
<given-names><![CDATA[F.]]></given-names>
</name>
</person-group>
<source><![CDATA[Lehrbuch der Plasmaphysik und Magnetohydrodynamik]]></source>
<year>1994</year>
<publisher-loc><![CDATA[Wien ]]></publisher-loc>
<publisher-name><![CDATA[Springer]]></publisher-name>
</nlm-citation>
</ref>
<ref id="B4">
<nlm-citation citation-type="journal">
<article-title xml:lang=""><![CDATA[Computer simulation of convective plasma cells]]></article-title>
<person-group person-group-type="author">
<name>
<surname><![CDATA[Carboni-Méndez]]></surname>
<given-names><![CDATA[R.]]></given-names>
</name>
<name>
<surname><![CDATA[Frutos-Alfaro]]></surname>
<given-names><![CDATA[F.]]></given-names>
</name>
</person-group>
<source><![CDATA[Journal of Atmospheric and Solar-Terrestrial Physics]]></source>
<year>2005</year>
<volume>67</volume>
<numero>17-18</numero>
<issue>17-18</issue>
<page-range>1809-14</page-range></nlm-citation>
</ref>
<ref id="B5">
<nlm-citation citation-type="book">
<person-group person-group-type="author">
<name>
<surname><![CDATA[Dendy]]></surname>
<given-names><![CDATA[R.]]></given-names>
</name>
</person-group>
<source><![CDATA[Plasma Physics]]></source>
<year>1995</year>
<publisher-loc><![CDATA[Cambridge ]]></publisher-loc>
<publisher-name><![CDATA[Cambridge University Press]]></publisher-name>
</nlm-citation>
</ref>
<ref id="B6">
<nlm-citation citation-type="">
<person-group person-group-type="author">
<name>
<surname><![CDATA[Germaschewski]]></surname>
<given-names><![CDATA[K.]]></given-names>
</name>
<name>
<surname><![CDATA[Fox]]></surname>
<given-names><![CDATA[W.]]></given-names>
</name>
<name>
<surname><![CDATA[Ahmadi]]></surname>
<given-names><![CDATA[N.]]></given-names>
</name>
<name>
<surname><![CDATA[Wang]]></surname>
<given-names><![CDATA[L.]]></given-names>
</name>
<name>
<surname><![CDATA[Abbott]]></surname>
<given-names><![CDATA[S.]]></given-names>
</name>
<name>
<surname><![CDATA[Ruhl]]></surname>
<given-names><![CDATA[H.]]></given-names>
</name>
<name>
<surname><![CDATA[Bhattacharjee]]></surname>
<given-names><![CDATA[A.]]></given-names>
</name>
</person-group>
<source><![CDATA[The plasma simulation code: A modern particlein-cell code with load-balancing and GPU support]]></source>
<year>2013</year>
</nlm-citation>
</ref>
<ref id="B7">
<nlm-citation citation-type="book">
<person-group person-group-type="author">
<name>
<surname><![CDATA[Hassani]]></surname>
<given-names><![CDATA[S.]]></given-names>
</name>
</person-group>
<source><![CDATA[Mathematical Physics. A Modern Introduction to Its Foundations]]></source>
<year>2000</year>
<publisher-loc><![CDATA[New York ]]></publisher-loc>
<publisher-name><![CDATA[Springer]]></publisher-name>
</nlm-citation>
</ref>
<ref id="B8">
<nlm-citation citation-type="book">
<person-group person-group-type="author">
<name>
<surname><![CDATA[Hearn]]></surname>
<given-names><![CDATA[A.C.]]></given-names>
</name>
</person-group>
<source><![CDATA[REDUCE]]></source>
<year>2004</year>
<publisher-loc><![CDATA[Berlin ]]></publisher-loc>
<publisher-name><![CDATA[Konrad-Zuse-Zentrum für Informationstechnik]]></publisher-name>
</nlm-citation>
</ref>
<ref id="B9">
<nlm-citation citation-type="book">
<person-group person-group-type="author">
<name>
<surname><![CDATA[Hockney]]></surname>
<given-names><![CDATA[R.W.]]></given-names>
</name>
<name>
<surname><![CDATA[Eastwood]]></surname>
<given-names><![CDATA[J.W.]]></given-names>
</name>
</person-group>
<source><![CDATA[Computer Simulation Using Particle]]></source>
<year>1988</year>
<publisher-loc><![CDATA[Bristol ]]></publisher-loc>
<publisher-name><![CDATA[Adam Hilger]]></publisher-name>
</nlm-citation>
</ref>
<ref id="B10">
<nlm-citation citation-type="book">
<person-group person-group-type="author">
<name>
<surname><![CDATA[Hsu]]></surname>
<given-names><![CDATA[J.J.Y.]]></given-names>
</name>
</person-group>
<source><![CDATA[Visual and ComputationalPlasma Physics]]></source>
<year>2014</year>
<publisher-loc><![CDATA[Hackensack NJ ]]></publisher-loc>
<publisher-name><![CDATA[World Scientific]]></publisher-name>
</nlm-citation>
</ref>
<ref id="B11">
<nlm-citation citation-type="book">
<person-group person-group-type="author">
<name>
<surname><![CDATA[Jackson]]></surname>
<given-names><![CDATA[J.D.]]></given-names>
</name>
</person-group>
<source><![CDATA[Classical Electrodynamics]]></source>
<year>1975</year>
<publisher-loc><![CDATA[New York ]]></publisher-loc>
<publisher-name><![CDATA[Wiley]]></publisher-name>
</nlm-citation>
</ref>
<ref id="B12">
<nlm-citation citation-type="book">
<person-group person-group-type="author">
<name>
<surname><![CDATA[Jardin]]></surname>
<given-names><![CDATA[S.]]></given-names>
</name>
</person-group>
<source><![CDATA[Computational Methods inPlasma Physics]]></source>
<year>2010</year>
<publisher-loc><![CDATA[Boca Raton ]]></publisher-loc>
<publisher-name><![CDATA[CRC Press]]></publisher-name>
</nlm-citation>
</ref>
<ref id="B13">
<nlm-citation citation-type="book">
<person-group person-group-type="author">
<name>
<surname><![CDATA[Kulikovskiy]]></surname>
<given-names><![CDATA[A.G.]]></given-names>
</name>
<name>
<surname><![CDATA[Lyubimov]]></surname>
<given-names><![CDATA[G.A.]]></given-names>
</name>
</person-group>
<source><![CDATA[Magnetohydrodynamics]]></source>
<year>1965</year>
<publisher-loc><![CDATA[Palo Alto ]]></publisher-loc>
<publisher-name><![CDATA[Addison-Wesley]]></publisher-name>
</nlm-citation>
</ref>
<ref id="B14">
<nlm-citation citation-type="journal">
<article-title xml:lang=""><![CDATA[A free, fast, simple, and efficient total variation diminishing magnetohydrodynamic code]]></article-title>
<person-group person-group-type="author">
<name>
<surname><![CDATA[Pen]]></surname>
<given-names><![CDATA[U.L.]]></given-names>
</name>
<name>
<surname><![CDATA[Arras]]></surname>
<given-names><![CDATA[P.]]></given-names>
</name>
<name>
<surname><![CDATA[Wong]]></surname>
<given-names><![CDATA[S.K.]]></given-names>
</name>
</person-group>
<source><![CDATA[The Astrophysical Journal Supplement Series]]></source>
<year>2003</year>
<volume>149</volume>
<page-range>447-55</page-range></nlm-citation>
</ref>
<ref id="B15">
<nlm-citation citation-type="journal">
<article-title xml:lang=""><![CDATA[A simple mesh generator in Matlab]]></article-title>
<person-group person-group-type="author">
<name>
<surname><![CDATA[Persson]]></surname>
<given-names><![CDATA[P.O.]]></given-names>
</name>
<name>
<surname><![CDATA[Strang]]></surname>
<given-names><![CDATA[G.]]></given-names>
</name>
</person-group>
<source><![CDATA[SIAM Review]]></source>
<year>2004</year>
<volume>46</volume>
<numero>2</numero>
<issue>2</issue>
<page-range>329-45</page-range></nlm-citation>
</ref>
<ref id="B16">
<nlm-citation citation-type="">
<person-group person-group-type="author">
<name>
<surname><![CDATA[Schrüfer]]></surname>
<given-names><![CDATA[E.]]></given-names>
</name>
</person-group>
<article-title xml:lang=""><![CDATA[EXCALC: A System for Doing Calculations in the Calculus of Modern Differential Geometry]]></article-title>
<person-group person-group-type="editor">
<name>
<surname><![CDATA[Hearn]]></surname>
<given-names><![CDATA[A.C.]]></given-names>
</name>
</person-group>
<source><![CDATA[REDUCE]]></source>
<year>2004</year>
</nlm-citation>
</ref>
<ref id="B17">
<nlm-citation citation-type="book">
<person-group person-group-type="author">
<name>
<surname><![CDATA[Tajima]]></surname>
<given-names><![CDATA[T]]></given-names>
</name>
</person-group>
<source><![CDATA[ComputationalPlasma Physics]]></source>
<year>2004</year>
<publisher-loc><![CDATA[Boulder ]]></publisher-loc>
<publisher-name><![CDATA[Westview Press]]></publisher-name>
</nlm-citation>
</ref>
<ref id="B18">
<nlm-citation citation-type="book">
<person-group person-group-type="author">
<name>
<surname><![CDATA[Tajima]]></surname>
<given-names><![CDATA[T.]]></given-names>
</name>
<name>
<surname><![CDATA[Shibata]]></surname>
<given-names><![CDATA[K.]]></given-names>
</name>
</person-group>
<source><![CDATA[Plasma Astrophysics]]></source>
<year>2002</year>
<publisher-loc><![CDATA[Boulder ]]></publisher-loc>
<publisher-name><![CDATA[Westview Press]]></publisher-name>
</nlm-citation>
</ref>
<ref id="B19">
<nlm-citation citation-type="">
<source><![CDATA[]]></source>
<year></year>
</nlm-citation>
</ref>
</ref-list>
</back>
</article>
