<!DOCTYPE html>
<html>

<head>
  <meta http-equiv="content-type" content="text/html; charset=UTF-8">
  <title>TITULO</title>
</head>

<body style="margin:0; padding:0; border:0; overflow:hidden;">
  <!-- Aquí se carga la web.nocache que permite ejecutar escenas en local -->
  <script type="text/javascript" language="javascript" src="../GeoGebra5/web/web.nocache.js"></script>
  <article class="geogebraweb" 
    data-param-width="790" 
    data-param-height="540" 
    data-param-showResetIcon="true"
    data-param-enableRightClick="true" 
    data-param-enableLabelDrags="true" 
    data-param-showMenuBar="false"
    data-param-showToolBar="false" 
    data-param-showAlgebraInput="false" 
    data-param-useBrowserForJS="true"
    data-param-language="es"
    data-param-bordercolor="#f80" 
    data-param-showToolBarHelp="true"
    data-param-ggbbase64="UEsDBBQACAgIAE6HfVMAAAAAAAAAAAAAAAAWAAAAZ2VvZ2VicmFfamF2YXNjcmlwdC5qc0srzUsuyczPU0hPT/LP88zLLNHQVKiu5QIAUEsHCEXM3l0aAAAAGAAAAFBLAwQUAAgICABOh31TAAAAAAAAAAAAAAAAFwAAAGdlb2dlYnJhX2RlZmF1bHRzMmQueG1s7Vrdc+I2EH/u/RUaP7UPActgIJmQm9zNdHozuVynyXT6KuzFqBGSa8mJyV9fWfIX4SNAckDuwgPSyquP/e1qpZV0/jGbMnQPiaSCDx3cch0EPBAh5dHQSdX4ZOB8vPhwHoGIYJQQNBbJlKih4+ecVT1NtXp9U0bieOgEjEhJAwfFjKi8ytAJHYQySc+4uCZTkDEJ4CaYwJRciYAo08pEqfis3X54eGiV/bVEErV1k7KdybAdRaqlUwfpQXM5dIrMmW53rvZDx9TzXBe3//l6Zfs5oVwqwgNwkBYohDFJmZI6CwymwBVSsxiGzjjlQT4cfk8SBzEyApZ3VPAPnZ7vXHz45VxOxAMSo38h0GUqSaHiNUQ759GfPwsmEpQMHc/tOkhDqhEamX/C4gnRuVbft9yMzCBB94Tln00JSZUITAOmdEyYhJJXd/VVhGC/dAt+TqcGSiQVaC1gB8kYIDQ5K51rVDIz2q3aO28XECyAwahUlWBXhqiAwB13EQnb5nooXAMEdp9CcZJbn+EeRTVuvm/YTToq0qJCnj8wdLo9yuFGzRggNaHBHQepDdNrVMozf9AwhHx+2TqxoFzd0MdiDH45hogVTdWirNZNLNgsErwC+8+SrjTUtwraZYTbmjf2O0ZNPl6wb61o88PdUxfjHvYOrbP1kOZozWFqC2pQ8d5AdVd4DPd4ESy9ZyXZ5zS5b8LX6bpL3MYewKhb3YsH8FeaAhJ67aNqpvP9wXP2qP1Ewxg1hX4dJwC/Nf3wy/FsOtX9mhdeDmkgRBJKlA2da3LtoFmRPtp0jQ+1pVv40CUAhxAD18pScyjjnVDuDQzMeTKyyduGufNaMH9rLlR6Tdhp0fHs3sCk72Y8h+8X/hdEdG47gDvvKL8yyvNW3P0pHbFhsSjK/F9Hf2IaM8gO46d773667vIpzPgZnJkIUlkHfJaqsB0cZuf2HYM3kmaUUZLMFnvaen+/LopuhBRX8+GE98NhuoGx7hI8wX98zslQ7WOo3kevh15ClFMVmjclXStgt43dz6cAkSqW9/WFK0gkmDBPLghzBxDf6srf+G1CuMzP/ubjr+djx1Unb95u+5fV66t38OOjLQLpJhAv32gcmcm+prdNyGzddN/t+PaIsXur0/1etynqif53QdYnRe8r42aaWrIBJ4kCSQlfrwEFWb0y3hqicap0lPCvFiYQPL9wKo8dLVWJ0z1KafZ97wA0Am7nnTZDt7jvm7lWJPRYlmS4KJnhouSxyJhm9IgTmqHLst5lyX7plZlOmemWGb+B2257OaPhWJt2w70/8Rnd3TZzb+n24sfV/B7WHA15VBvDF0s1znitlxhTPUBOprqC7ZHyTyS4ixKR8nBhOK/jU/Dhfcpq2Hg6haThXa9LuoLOt8jpYaTliU4p0Cb+dMUsWy25ZDTUME2pNvETvaefkszcuZCRFCxVcBMkALx+WmD18kBDNcljbmOYWWnqRTqmWQ6SZZ2IhD4Kriq7QrmeL5l5lfDi6fhURRqBFyvJXB9XKrq0VK0ge8S+9I55ud6aELsFwr2WN+jggd9x+7h/6g96GyKOB6+J+CaPCXawqa0UWbaWBI3LEXeVdt1B3+v1uj3PPz3t4163/2Jtj4RgQOrw8FNJNy5VFubkKq+1+auN77gVCiYQ3I1ENmcV28XIv1cF9XOd47xtNjIusC4zwM6mUXC78aSpXb6fuvgfUEsHCKu5ylwBBQAA4SUAAFBLAwQUAAgICABOh31TAAAAAAAAAAAAAAAAFwAAAGdlb2dlYnJhX2RlZmF1bHRzM2QueG1s7VjBjts2ED0nX0HwHouUJW+8sDYw0kMLJEGLXHrlUmObrUQqJG1Z+2v9h35TKYr0yt21g3UXWySID+aQHA45780MJS3e7esK7UAboWSB6YRgBJKrUsh1gbd29eYtfnfzerEGtYZbzdBK6ZrZAue95mGd601mV36MNU2BecWMERyjpmK2X1LgEiO0N+Jaqk+sBtMwDp/5Bmr2QXFmvZWNtc11krRtO4n7TZReJ86kSfamTNZrO3EtRu7Q0hQ4CNfO7tHqdurXpYTQ5PePH4Z93ghpLJMcMHIOlbBi28oaJ0IFNUiLbNdAgd2JJUzdHhW7harAv/r+TxiFFQWeOrv45vWrhdmoFqnbP4C7Uau3cFjkO0mv46bfq0pppAs8n2PkUE2pa29Dy6pmwwpMJvmgX7EONNoxZ4QMI2xrFfcm/OiKVQairtvsoyphmMmGUa6ULg3a90YdH11o70LbDq1XXbGe57DbhAarQsJn21WA7EbwPyUY058lwBOEn0VZQh8w/ZpFEiB8ACZXUvARmL9I60LG4eX4RnyrdzDGleYDrsEDFV1Q0QcVnVBtiNVd1NlFnd3B0TjVxqn2buT7U8lL89yzR9Mrzx4ZcUfJ8KPZnFA6o+lzccmkqH1yIGOh6eFGpgEovXQgxIVs5/N1bO8xFtNzLL5agFiD3DlAlHbxQwLEHYkRFEf2NMYWDSN3QfBm3Im12KNlXLeM6ss0CtMoZFHIR9TAFzkc3fT/LiWZdiXDGeXno43thekzNfC4DN1RgJHpRYlLPPPkAe/kG+X5NL4oyOC8/vuvryR3n7+caQtGMDnK8vf9xL+Rn/1A/jSUjaq6DZRayft7ZzR0j+M0XD2X0P5U7Gk+9ejn9AH8WSh4+XxGsln2bHfXpWycRvbLlpU+sIOrv8X+GFN6UWymJDsRnVfPBsijPOf/uYyT02V8mIqVuovCXfpMFR4tZ1G4isLbKMzP3AKibirBhT3Pt9nqlXu0fKwshalj6rP/i/p7wy9SmOhlhUmCPUDxqZfH2OU/StFTStFjRb5zt60oj2ClZyr8VzL/yWFMhzeS+fBIm34/uGph6mNU6QuiOhve8wZU57PvBdWl5htRQwns+JnEve+8HLbUY5sN2PbNN4FtMvrekMSPGzf/AFBLBwgt228DWwMAAH4RAABQSwMEFAAICAgATod9UwAAAAAAAAAAAAAAAAwAAABnZW9nZWJyYS54bWytV19v2zYQf24/xUHPjk1SIiUVdot0GIYBXVE02zDsjZZom4gsCRIdJ0M//O5ISbaTpWiXIlZIHn+8/7qjlu/u9xXcma63Tb2K+JxFYOqiKW29XUUHt7nKondvXy+3ptmadadh03R77VaRJOR0DldzlXqabttVVFS6720RQVtpR0dWURmBLVdRbEwsEp5fZVleXiWKZVc628grnaexZrnSarOJAO57+6ZuPuq96VtdmJtiZ/b6Q1No5+XtnGvfLBbH43E+ajZvuu0ChfeL+75cbLfrOY4RoHl1v4qGyRvke3H6GPtzgjG++Ou3D0HOla17p+vCRECmH+zb16+WR1uXzRGOtnS7VaSSPIKdsdsd+ULEESwI1KJDWlM4e2d6PHq29Ma7fRt5mK5p/1WYQTXZFUFp72xpulXE5qnIkixPsjhNUsVyFNh01tRuwLJB5mLktryz5hjY0sxLTFieYpxsb9eVWUUbXfVola03HboWFeoOuOzdQ2XWuhvXJ334zP8hxP5jiBsKDY7APZams0zNUsZmUmRBmzPRkosIXNNUnjODL8BBMnyA5zADlSJFAJeQICVDSgox0SRPIAaC8BiSBMeEyFzRnsTzkgHnSAbBQAgQHESMSylBKpApHRSIVblnxvAhNKqDT0y0OMbH0+IEH0EzZCQDG1RCxsrPJKGRvxSkvifGGSQ5CiKCTDnEqAOuUwbIMSb23BuRMKAfh4TYixREBsgP7SbOTHwlKMP6FJWB8CgsY1DkZVDYjB6Fj4/Wo6BkZyFBHCd9GRNhiAG++IkM62RYqrD0UWDo0EDN6F9OC6VAZX7yQqvi0ab4e2ziZ1JDAj8v9HGCs1Nqp98uMblMbMxjhhkyo4GHgYKObvFbLNBYHAYRhiQMMmCScDwJ0JAzLAmYJP4etz55hUcLRSq/3cKX5ecUR0GsnV6vousPv/z8/vP1Uw2EfCaqL0smManA45NQlOV//nkiMv4uq591NJfsWyWqi0x6SaH+H8JT9p9pHEY+jF9zyQ9TarkYW9dyUAj6HWGH19mZfU8qxjmkMSgx9RJF1X5oKKmAVEKqztrKjBqLkqfeQp0lu+gtMjtrMNhdFBFT361QHrWH0GxEMvab2dBxvjzpONggklOPQAWJFQfAhuYL5NgsUAsxtQshqWMILKHYqQQoKsnPdA68TjW9nXy7M1U7BcW70dbtwQ2uG+jFvhzd6BqE68rfloYDZVPcvn/kbaN7N84RhPeL0y0m3DcuLjmvlpVemwrvizeUCAB3uiL1PP9NUzsYk0BEnp2/Ty3NoahsaXX9J0Z+vLx8POzXpgM/bSYmdBymixdl5HjxijMRIEXTdOXNQ4+JAvd/m66hFiLmSSaYjDPMZizuD4EulJgrxXOeZpznQqX4CvaFrnwnnSNa5DzHO0ieJwK3Hh7tKZbmMpV4ygs2dzfGOTS+B31v+tFv286W5/Nf+/dNVU5BaRtbu5906w6dv2djherIout6WxnvRh9gvIwWt+vm/iYUMhV4/f7QGioWXv56+1NTNR1QO6digswEAbHi8jwLGFJsQknuQcxDBibEdQIwv0+wNdXvwU6Mb1BsMJOPNgo2CrG9ryrUUc+yyScHXWwPtXUfxoWzxe3JTsKH0I8OvGTJfxDL5eJR1i2Ht2HMwX1TmpC/ccBf7C9vTVebKuRbjUE/NIc+wE9KH3rzSbvddV1+Nlt8Uz9pqpUO9XiMLE1h95gPgS4HmykD/kC7ArU0286M7gi6hCj4XXJ12xld9jtj3BTO8DKcw7wto/ZL7MeV8V1gb7GSXAn6bNvrewwmzfAlasOXIB3ri862lOCwxsJ+a05JXNqeGE0EQqNferSwoBqFEXEUDfwkPLhd0/mvG+2IQuqcQ31ZGL7j3v4LUEsHCLXk43GJBQAAkw4AAFBLAQIUABQACAgIAE6HfVNFzN5dGgAAABgAAAAWAAAAAAAAAAAAAAAAAAAAAABnZW9nZWJyYV9qYXZhc2NyaXB0LmpzUEsBAhQAFAAICAgATod9U6u5ylwBBQAA4SUAABcAAAAAAAAAAAAAAAAAXgAAAGdlb2dlYnJhX2RlZmF1bHRzMmQueG1sUEsBAhQAFAAICAgATod9Uy3bbwNbAwAAfhEAABcAAAAAAAAAAAAAAAAApAUAAGdlb2dlYnJhX2RlZmF1bHRzM2QueG1sUEsBAhQAFAAICAgATod9U7Xk43GJBQAAkw4AAAwAAAAAAAAAAAAAAAAARAkAAGdlb2dlYnJhLnhtbFBLBQYAAAAABAAEAAgBAAAHDwAAAAA="></article>

    <!-- Aquí inicia la programación JavaScript -->
    <script type="text/javascript">
    //Este primer bloque requiere mayores conocimientos de JS, por lo que... NO LO TOQUES
    //Método que permite escuchar la comunicación entre las dos herramientas
    window.addEventListener("message", funcionQueManejaLosMensajes)
    //Función que maneja los mensajes escuchados
    function funcionQueManejaLosMensajes(evt) {

      //En la variable "nombre" se almacena el mensaje enviado por DescartesJS
      var data = evt.data;
      nombre = data.name;

      //Mensaje con el comando enviado desde DescartesJS, al ser "evalua" entonces invoca la función calculosCAS() para ejecutar el comando enviado. Una vez evaluado, retorna el cálculo (vCalculado) a DescartesJS
      if ((data.type === "set") && (data.name === "evalua")) {
        dComando = data.value;
        rComando = calculosCAS(dComando);
        window.parent.postMessage({
          type: "set",
          name: "vCalculado",
          value: rComando
        }, '*');
        document.ggbApplet.evalCommand(rComando);
        window.parent.postMessage({
          type: "update"
        }, '*');
      }
      // se maneja un mensaje del tipo update
      else if (data.type === "update") {}
    }

    //Si el mensaje es un comando de GeoGebra como Derivada[x^4], se busca "Derivada" en las matrices de comandos y luego de identificar el número del elemento, se ejecuta el comando en inglés "Derivative"
    function calculosCAS(dComando) {
      return document.ggbApplet.evalCommandCAS("f:" + dComando);
    }

    //Un comodín necesario para que funcione la comunicación
    function ggbOnInit() {
      comando = 'f:Derivative[x,1]';
      rComando = document.ggbApplet.evalCommandCAS(comando);
    }
  </script>
</body>

</html>