<!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;">

  <script type="text/javascript" language="javascript" src="../GeoGebra5/web/web.nocache.js"></script>
  <article class="geogebraweb"
    data-param-width="450" 
    data-param-height="390" 
    data-param-showResetIcon="true" 
    data-param-enableRightClick="true" 
    data-param-enableLabelDrags="true" 
    data-param-showMenuBar="false" 
    data-param-showToolBar="true" 
    data-param-CustomToolbar="0 | 16 | 6" 
    data-param-showAlgebraInput="false" 
    data-param-useBrowserForJS="true"
    data-param-showFullscreenButton="true" 
    data-param-language="es" 
    data-param-ggbbase64="UEsDBBQACAgIAFOdhVMAAAAAAAAAAAAAAAAWAAAAZ2VvZ2VicmFfamF2YXNjcmlwdC5qc0srzUsuyczPU0hPT/LP88zLLNHQVKiuBQBQSwcI1je9uRkAAAAXAAAAUEsDBBQACAgIAFOdhVMAAAAAAAAAAAAAAAAXAAAAZ2VvZ2VicmFfZGVmYXVsdHMyZC54bWztWklv4zYUPnd+BaFTe4gtyZbtBHEGmQGKDpDJFE1Q9EpLzzIbmlRFKpbz64citcZLvMSxU8QHk4/i+r2F75G8/JxOKXqEWBDOhpbTsi0EzOcBYeHQSuT4bGB9vvp0GQIPYRRjNObxFMuh5WU1y3aKavX6ugxH0dDyKRaC+BaKKJZZk6EVWAilglwwfounICLsw50/gSm+4T6WupeJlNFFuz2bzVrFeC0eh23VpWinImiHoWyp1EJq0kwMrTxzofpttJ51dDvXtp32P99vzDhnhAmJmQ8WUgsKYIwTKoXKAoUpMInkPIKhNU6Yn02HPeLYQhSPgGYD5fWHVs+zrj79cikmfIb46F/wVZmMEyjraqKd1VGfv3LKYxQPLdfuWkhBqhAa6X9MowlWuVbfM7UpnkOMHjHNPusSnEju6w506RhTAUVdNdR3HoD50s3rMzLVUCIhQXHBsZCIAAKdM6uzNUvmmrtlf5ftHIIFMCgRslzYjSZKIJyOvYiE6XM9FLYGwrGfQ3GWSd+RoVD9EQZ3ck4ByQnxHxgIJWherVGW+YMEAWT6YtpEnDB5R57yOXj1Ut1VYykspPC8eDULIk7nIWclpn8WdMmIvuHDlhNHXKkgkXOV7w/MzFbLdA2fOicdr6N56TkLUq3Yq39O99x2nJ7jHoqzaqi9xTzDOIOvAbIpqFB2Do7yOnVZtBsH05XXQLSwouXavibxYx3OTtdeYj7eAI6q1yNbjgXRWCefypLUhFNR6NdxDPBb3R7vhme/rwHNEoWo63lHEzFnOaw+53EgUDq0bvGtheZ5+mTSbe3vliAHEAFTDJMNpJ2dkO4NNNJZMjLJ4YE+JMzd14L5R303UzvFLuA6rmfciiz9EORnCH9jf0FIGl6D03lPOL8LlJty3N17e3uP2OoqBkWR/atYkE8jCulxLHXvw1KvttTOCzhT7ieiCv8MVWI7eMnfWBE0vLk/u7kHh5OUUILj+eJIB/PtGnHHTTPmcI/jIh8wYthIevePseA/1rBBRJkgouqsZ4WAMKNKdO8KumLIbp7fB0N4Imk28jcmIRagY0OxsLgHgOhedfWD3ceYiezgsBm0vRxwrjq2c3dzd1Zvx+4JH9stRN91IPb3S07Mam9/YrcauRjP16n/bme/J4zd/0P5H1WfvFL7v3OyOmx6J/voifFtiS+PYwmCYLaeHxLSahe910TtmOokmbF6MT5n2U1WcY5pqHI53ZNczTGPMZX3RUJgRieViNr5teLcNgtET0VJ6uQlcycvecozuhs1/5ik6Lpod11Uv3aLTKfIdIuMV0NxNy9Q8ztSgl7bCJ7Zk+5ubuApXJd8yEFTDt5gd1IMCCvR+Gao2mGysSBjoibI8FQ1MCMS9gX7D2HMExYsTOd17M0JXLiuho0lU4hrlve2oEvoPIOcmkZSHBwVC9rE1q7QudUrF5QECqYpUQJ/pjRhilOtEXgkOE0k3PkxAKveMxi+zEggJ1ksrwVzTNIMlPyefMJj8sSZLAUJZYy9pvrtQ+OuapkyuutvpWss2Y8T+sa65MO1oSoumAP7pdfay5lTx9HOYey13EHHGXgdu+/0z71Bb0NYnUEdVvNpY1Q3eZWwg5xsZTndZZYTx351etexl6uYWrjT73od99z1nPPzrsp4e2vdiHMKuIocvxR07YJmQe1WGabNX4Mc0BPyJ+A/jHjakJHtwuffy4LqGdBp3l7rNS5UfcXDy3bt4VS7eKV19RNQSwcIuSnV+hkFAABHJgAAUEsDBBQACAgIAFOdhVMAAAAAAAAAAAAAAAAXAAAAZ2VvZ2VicmFfZGVmYXVsdHMzZC54bWztWM1u2zgQPrdPQfBeS5QlOQqsFEb3sAu0xRa99MpQY5tdiVRJ2rLzavsO+0xLUaQjt3HaGEmwW9QHc/gzQ873zQwlzV/vmhptQWkuRYnJJMYIBJMVF6sSb8zy1QV+ffVyvgK5gmtF0VKqhpoSZ/3Kg57tTfKZG6NtW2JWU605w6itqelVSlxhhHaaXwr5njagW8rgI1tDQ99KRo2zsjamvYyirusmYb+JVKvImtTRTlfRamUmtsXIHlroEnvh0to90u6mTi+JYxJ9evd22OcVF9pQwQAj61AFS7qpjbYi1NCAMMjsWyixPbGAqd2jptdQl/hP1/8NI69R4qm1i69evpjrteyQvP4MzI4atYGDkutE/Ro7/UbWUiFV4qLAyKKaENte+5bW7ZqWOJ5kw/qa7kGhLbVG4mGEboxkzoQbXdJaQ1hrN3snKxhm0mGUSakqjXa9UcvH3rc3vu2G1i1d0p5nv9uEeKtcwEezrwGZNWd/CdC6P4uHxwu/86qCPmB6nXnkIfwGTCYFZyMw/xDGhozFy/KN2EZtYYwryQZcvQcyuCCDDzI4ITsfq9uwZhvWbA+OhqkuTHU3I98fSl5CHHkkJo48UiQj8kg8/EhaxITkJHksMqngjcsOpA20Pd5ItwCVkw6M2Jjdu4Qd27uLxuw+Gl/Mga9AbC0iUtkAij3G+ziEUBjZkRBcxI/ceMGZsSdWfIcWQW8Rli+SIEyDkAYhG3EDX8RwdN3/25ykytYMa5TdH250x3Wfqp7Ihe+OIiyenpW5seM+dszHI97jp+K5z8YnZfo0wsjLYP3+5+/v5HefwowqA5pTMUr0N/3E19jn/w/snxL501C2st6voVJS3F49o6FbHKf+9jmH9odiT7KpQz8j38Cf+pKXFXmc5umjXV/nsnEa2S8bWrnA9q5+CP0xpuSs2EzIcCukM4dP3xwAytOi/81ykl2QNCGPBdATFfb4dGEfpkLt3gfhJnmkmo8WeRBmQbgIQnHPvcCbtuaMm/v51xu1tE+bd5UpP3UcCul5oWD17i5Usx/NjVvDz1KoyHmFSoA5QPG+l8fYZb9K00NK011Ff29vX14dwUqer+K7lxJ7+GKoaMnPg6viujlGlTwjqvnw6jegWuQ/C6oLxda8gQro8TOKfQN6PmxP38H/ZWyj0SeIKHzvuPoXUEsHCJDirXlzAwAAkREAAFBLAwQUAAgICABTnYVTAAAAAAAAAAAAAAAADAAAAGdlb2dlYnJhLnhtbK0X7W7bNvB3+xQH/faHSIn6KOQWSTEUG9KiSLZh2D9aYmwisihIdJwUfaU9xV5sd6TkyAlSrE1tyySPx/vm3al4d7er4VZ1vTbNKmCLMADVlKbSzWYV7O31PAvevX1dbJTZqHUn4dp0O2lXgSDM4zlcLZLUwWTbroKyln2vywDaWlo6sgqqAHSFQx6na5km8zgT+TxWaTTPrks+j6O1zLhMsyhBInDX6zeN+SR3qm9lqa7KrdrJC1NK6/htrW3fLJeHw2ExSrYw3WaJzPvlXV8tN5v1AscAUL2mXwXD5A3SPTl9iNw5HoZs+dfHC89nrpveyqZUAZDqe/329avioJvKHOCgK7tdBWkeB7BVerNFWyRhFMCSkFo0SKtKq29Vj0cnS6e83bWBQ5MN7b/yM6iPegVQ6VtdqW4VhAsuWJblLMnSRKRxxAIwnVaNHXDZwHM5UitutTp4sjRzHOMwT9FPutfrWq2Ca1n3qJVurjs0LQrU7XHZ2/tarWU3rh/kYTP8IoL+oogWesabAQ2Q8VkezdIwnAkRelEmfAXjAVhjakc2hK/AQIT4AMthBkmKEA5MQIyQDCEpRAQTLIYICIVFEMc4xgRmCe7QNv4jO2AMd4CHwDlwBjzCpRAgEC2lsxxxk9zRC/EhbJQIn4hgUYSPg0UxPpxmSEh4MiiHiBI3E+4/ozPIRXDSw20hLM6RHQFEyiBCSXCdhoB0I2LCnDZxCPRjEBMTngLPwFF19EP+DdcM6wffDIBnnCOmzmHoFXoSfJzXHnknPvGNQEOhN0JUb0YD8wNJnCR+K/SwMPID90PsB+FxYn889qhe4TD2OHH0Uk1HPaPv0TOb6MlICfQLSe+GCEhu5uSnIR6WiV+6sAtZ6Ac2bGb05+yVvFCj6Ic0YhOu/rI+z/TJZR45pkn6/zm+LEaPWnIibeV6FZxdfPjl/PLsqQRcPKPzC009isDExNDIy/3c84Rl9F1aP2vo7+CYnNzJl6TsH2CehqfJesgGfmTD+C2T/DShiuVYxIpBIOi3hDsEu1W7nkSMcpe2hqqSUNIfSkvKJ6VlRsUlEQ/1hapLdlJfRHZaZBICpv7ag6sPvtrweCw4s6HkfH1ScrA2xJPyQAkxpaQzlAdkzqcFgieQcEgpqWLZw1ybUKnhSJQDlpaEjj5TPrCzMr0+Gner6vboFWdH3bR7e2K7cleNU2seYVemvDl/ZGslezvOEQn7jIduxvcdJ83Oq6KWa1Vj33hFYQBwK2u6/47+tWksjCGQBY6c66sKtS9rXWnZ/Il+H5uYT/vdWnXgpoYUdEToOBwbMMphYwMWh7FHKY3pqqv7HsME7v5WHR7mDNvS6QdT0v2wlWLXygXGZikpquN8kU8/aOX7Z7ccP3V7paxFnXuQd6ofzbXpdDWd/9qfm7o6mrw1urHvZWv3nWuzUaKOFDlrNrVy1nNOxV60vFmbuyufQBNP6/f7VrkMgbfrRlVnyPaSbplv3p1U6817U5sO8CJyjpgbSr95AJh8WS48Dol7xBLMIYUOZSBCvI4IjGcOw41rPzos9LeXeNCfRaP2PBwZ6d4lGaQ+DS8XLdTx7httL8aF1eXNgwUI38fCaNpTkuwnkSyWj8KwkLV7qRiDcmcqNQnoYnmyX9yorlG1D8AGw2Fv9r1H9x53Uu979Vna7VlTXaoNXtzPknKnRUE86oN+lSr1Dg96OB+UpuD4AxXz0EptOjXawwvj/eB2ydZtp2TVb5WyR5/66zFFc8qM4hdYn2vlqsJOY2KZc3qh28k7FIJmeK3aY5gVfdnplmIf1j4Uj/Fd6Z4IVRP1yTA9alhSykKXWHIHvizu7dZgfP22lw182JkFXGI2wdfMc9V1//5jkJa01CMx+CjvDSZgJgISeUrOJZPhLfDtf1BLBwgV8xkxkQUAANEOAABQSwECFAAUAAgICABTnYVT1je9uRkAAAAXAAAAFgAAAAAAAAAAAAAAAAAAAAAAZ2VvZ2VicmFfamF2YXNjcmlwdC5qc1BLAQIUABQACAgIAFOdhVO5KdX6GQUAAEcmAAAXAAAAAAAAAAAAAAAAAF0AAABnZW9nZWJyYV9kZWZhdWx0czJkLnhtbFBLAQIUABQACAgIAFOdhVOQ4q15cwMAAJERAAAXAAAAAAAAAAAAAAAAALsFAABnZW9nZWJyYV9kZWZhdWx0czNkLnhtbFBLAQIUABQACAgIAFOdhVMV8xkxkQUAANEOAAAMAAAAAAAAAAAAAAAAAHMJAABnZW9nZWJyYS54bWxQSwUGAAAAAAQABAAIAQAAPg8AAAAA"></article>

    <script type="text/javascript">
    //Bloque 1
    //Método que permite escuchar la comunicación entre las dos herramientas
    window.addEventListener("message", funcionQueManejaLosMensajes);

    //Bloque 2	
    //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;
      
      //Si el mensaje escuchado es "reset" pues... se resetea (Reinicia)
      if ((data.type === "set") && (data.name==="resetea")) {
        dComando=data.value;
        document.ggbApplet.reset();
        window.parent.postMessage({ type: "update" }, '*');
      }
      else if (data.type === "update") {}
      
      //Bloque 3	
      //Si el mensaje escuchado es "poligono", el contenido enviado por DescartesJS es una cadena vacía, cuyo objetivo es establecer la comunicación
      if ((data.type === "set") && (data.name==="poligono")) {
        //A las variables valor1, valor2, valor3, valor4,... se asignan los valores a, b, c, d, ... de los lados del polígono, ...
        valor1=document.ggbApplet.getValueString('a');
        valor2=document.ggbApplet.getValueString('b');
        valor3=document.ggbApplet.getValueString('c');
        valor4=document.ggbApplet.getValueString('d');
        valor5=document.ggbApplet.getValueString('e');
        valor6=document.ggbApplet.getValueString('f_1');
        valor7=document.ggbApplet.getValueString('g');
        valor8=document.ggbApplet.getValueString('h');
        valor9=document.ggbApplet.getValueString('polígono1') || 
               document.ggbApplet.getValueString('t1') || 
               document.ggbApplet.getValueString('c1') || 
               document.ggbApplet.getValueString('pol1');

        //Se envía un mensaje a DescartesJS con los valores anteriores. DescartesJS escucha y asigna estos valores a las variables A, B, C,...
        window.parent.postMessage({ type: "set", name: "ladoa", value: valor1 }, '*');
        window.parent.postMessage({ type: "set", name: "ladob", value: valor2 }, '*');
        window.parent.postMessage({ type: "set", name: "ladoc", value: valor3 }, '*');
        window.parent.postMessage({ type: "set", name: "ladod", value: valor4 }, '*');
        window.parent.postMessage({ type: "set", name: "ladoe", value: valor5 }, '*');
        window.parent.postMessage({ type: "set", name: "ladof", value: valor6 }, '*');
        window.parent.postMessage({ type: "set", name: "ladog", value: valor7 }, '*');
        window.parent.postMessage({ type: "set", name: "ladoh", value: valor8 }, '*');
        window.parent.postMessage({ type: "set", name: "poli", value: valor9 }, '*');
        
        //Cambiamos los colores de los lados y activamos su etiqueta	
        document.ggbApplet.setColor('polígono1',00,175,255);
        document.ggbApplet.setLabelVisible('a',1)
        document.ggbApplet.setColor('a',255,0,0);
        document.ggbApplet.setLabelVisible('b',1)
        document.ggbApplet.setColor('b',0,255,0);
        document.ggbApplet.setLabelVisible('c',1)
        document.ggbApplet.setColor('c',0,0,255);
        document.ggbApplet.setLabelVisible('d',1)
        document.ggbApplet.setColor('d',255,255,0);
        document.ggbApplet.setLabelVisible('e',1)
        document.ggbApplet.setColor('e',255,0,255);
        document.ggbApplet.setLabelVisible('f_1',1)
        document.ggbApplet.setColor('f_1',255,100,255);
        document.ggbApplet.setLabelVisible('g',1)
        document.ggbApplet.setColor('g',115,180,255);
        document.ggbApplet.setLabelVisible('h',1)
        document.ggbApplet.setColor('h',155,80,255);
              
        //Mensaje obligado para ir actualizando la comunicación, pues es permanente
        window.parent.postMessage({ type: "update" }, '*');
      }
      else if (data.type === "update") {}
    }

    //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>