<xmp> <body><!--'"</title></head>--> <script type="text/javascript"> //OwnerIQ var __oiq_pct = 50; if( __oiq_pct>=100 || Math.floor(Math.random()*100/(100-__oiq_pct)) > 0 ) { var _oiqq = _oiqq || []; _oiqq.push(['oiq_addPageBrand','Lycos']); _oiqq.push(['oiq_addPageCat','Internet > Websites']); _oiqq.push(['oiq_addPageLifecycle','Intend']); _oiqq.push(['oiq_doTag']); (function() { var oiq = document.createElement('script'); oiq.type = 'text/javascript'; oiq.async = true; oiq.src = document.location.protocol + '//px.owneriq.net/stas/s/lycosn.js'; var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(oiq, s); })(); } /////// Google Analytics var _gaq = _gaq || []; _gaq.push(['_setAccount', 'UA-21402695-21']); _gaq.push(['_setDomainName', 'angelfire.com']); _gaq.push(['_setCustomVar', 1, 'member_name', 'ego/hp4x', 3]); _gaq.push(['_trackPageview']); (function() { var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true; ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js'; var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s); })(); ////// Lycos Initialization ///////////////////// var lycos_ad = Array(); var lycos_search_query = ""; var lycos_onload_timer; var cm_role = "live"; var cm_host = "angelfire.lycos.com"; var cm_taxid = "/memberembedded"; var angelfire_member_name = "ego/hp4x"; var angelfire_member_page = "ego/hp4x/mini/index.htm"; var angelfire_ratings_hash = "1766472860:18fda173dda2dc8ac6033dbfea81cc15"; var lycos_ad_category = {"dmoz":"arts\/animation","ontarget":"&CAT=family%20and%20lifestyles&L2CAT=hobbies","find_what":"about popup window"}; var lycos_ad_remote_addr = "209.202.244.9"; var lycos_ad_www_server = "www.angelfire.lycos.com"; var edit_site_url = "www.angelfire.lycos.com/landing/landing.tmpl?utm_source=house&utm_medium=landingpage&utm_campaign=toolbarlink"; </script> <script type="text/javascript" src="https://scripts.lycos.com/catman/init.js"></script> <script type='text/javascript'> var googletag = googletag || {}; googletag.cmd = googletag.cmd || []; (function() { var gads = document.createElement('script'); gads.async = true; gads.type = 'text/javascript'; var useSSL = 'https:' == document.location.protocol; gads.src = (useSSL ? 'https:' : 'http:') + '//www.googletagservices.com/tag/js/gpt.js'; var node = document.getElementsByTagName('script')[0]; node.parentNode.insertBefore(gads, node); })(); </script> <script type='text/javascript'> googletag.cmd.push(function() { googletag.defineSlot('/95963596/ANG_300x250_dfp', [300, 250], 'div-gpt-ad-1450207484070-0').addService(googletag.pubads()); googletag.enableServices(); }); </script> <script type='text/javascript'> googletag.cmd.push(function() { googletag.defineSlot('/95963596/ANG_above_728x90_dfp', [728, 90], 'div-gpt-ad-1450207484070-1').addService(googletag.pubads()); googletag.enableServices(); }); </script> <script type='text/javascript'> googletag.cmd.push(function() { googletag.defineSlot('/95963596/ANG_below_728X90_dfp', [728, 90], 'div-gpt-ad-1450207484070-2').addService(googletag.pubads()); googletag.enableServices(); }); </script> <script type="text/javascript"> (function(isV) { if (!isV) { return; } //this.lycos_search_query = lycos_get_search_referrer(); var adMgr = new AdManager(); var lycos_prod_set = adMgr.chooseProductSet(); var slots = ["leaderboard", "leaderboard2", "toolbar_image", "toolbar_text", "smallbox", "top_promo", "footer2","slider"]; var adCat = this.lycos_ad_category; adMgr.setForcedParam('page', (adCat && adCat.dmoz) ? adCat.dmoz : 'member'); if (this.lycos_search_query) { adMgr.setForcedParam("keyword", this.lycos_search_query); } else if (adCat && adCat.find_what) { adMgr.setForcedParam('keyword', adCat.find_what); } for (var s in slots) { var slot = slots[s]; if (adMgr.isSlotAvailable(slot)) { this.lycos_ad[slot] = adMgr.getSlot(slot); } } adMgr.renderHeader(); adMgr.renderFooter(); }((function() { var w = 0, h = 0, minimumThreshold = 300; if (top == self) { return true; } if (typeof(window.innerWidth) == 'number' ) { w = window.innerWidth; h = window.innerHeight; } else if (document.documentElement && (document.documentElement.clientWidth || document.documentElement.clientHeight)) { w = document.documentElement.clientWidth; h = document.documentElement.clientHeight; } else if (document.body && (document.body.clientWidth || document.body.clientHeight)) { w = document.body.clientWidth; h = document.body.clientHeight; } return ((w > minimumThreshold) && (h > minimumThreshold)); }()))); window.onload = function() { var f = document.getElementById("lycosFooterAd"); var b = document.getElementsByTagName("body")[0]; b.appendChild(f); f.style.display = "block"; document.getElementById('lycosFooterAdiFrame').src = '/adm/ad/footerAd.iframe.html'; // Slider Injection (function() { var e = document.createElement('iframe'); e.style.border = '0'; e.style.margin = 0; e.style.display = 'block'; e.style.cssFloat = 'right'; e.style.height = '254px'; e.style.overflow = 'hidden'; e.style.padding = 0; e.style.width = '300px'; })(); // Bottom Ad Injection ( function() { var b = document.getElementsByTagName("body")[0]; var iif = document.createElement('iframe'); iif.style.border = '0'; iif.style.margin = 0; iif.style.display = 'block'; iif.style.cssFloat = 'right'; iif.style.height = '254px'; iif.style.overflow = 'hidden'; iif.style.padding = 0; iif.style.width = '300px'; iif.src = '/adm/ad/injectAd.iframe.html'; var cdiv = document.createElement('div'); cdiv.style = "width:300px;margin:10px auto;"; cdiv.appendChild( iif ); if( b ) { b.insertBefore(cdiv, b.lastChild); } })(); } </script> <style> #body .adCenterClass { margin:0 auto; display:block !important; overflow:hidden; width:100%; } #body .adCenterClass #ad_container { display:block !important; float:left; width:728px; } @media (min-width: 768px) { <!-- For 300px or less ads ONLY --> #body .adCenterClass #ad_container { width: calc(100% - 372px); } } @media (min-width: 1110px) { <!-- For 728px or less ads --> #body .adCenterClass #ad_container { width: calc(100% - 372px); } } </style> <div style="background:#abe6f6; border-bottom:1px solid #507a87; position:relative; z-index:9999999"> <div class="adCenterClass"> <a href="https://www.angelfire.lycos.com/" title="Angelfire.com: build your free website today!" style="display:block; float:left; width:186px; border:0"> <img src="/adm/ad/angelfire-freeAd.jpg" alt="Site hosted by Angelfire.com: Build your free website today!" style="display:block; border:0" /> </a> <div id="ad_container"> <script type="text/javascript">document.write(lycos_ad['leaderboard']);</script> </div> </div> </div> <!-- ///////////////////////////////////// --> <script type="text/javascript">document.write(lycos_ad['slider']);</script> <div id="lycosFooterAd" style="background:#abe6f6; border-top:1px solid #507a87; clear:both; display:none; position:relative; z-index:9999999"> <div class="adCenterClass" style="display:block!important; overflow:hidden; width:936px;"> <div id="aflinksholder" style="float:left; width:186px;"> <a href="https://www.angelfire.lycos.com/" title="Angelfire.com: build your free website today!" style="display:block; border:0"> <img src="/adm/ad/angelfire-freeAd2.jpg" alt="Site hosted by Angelfire.com: Build your free website today!" style="display:block; border:0" /> </a> </div> <iframe id="lycosFooterAdiFrame" style="border:0; display:block; float:left; height:96px; overflow:hidden; padding:0; width:750px"></iframe> </div> </div> <!--- UNDERDOGMEDIA EDGE_lycos.com JavaScript ADCODE START---> <script data-cfasync="false" language="javascript" async src="//udmserve.net/udm/img.fetch?sid=17754;tid=1;dt=6;"></script> <!--- UNDERDOGMEDIA EDGE_lycos.com JavaScript ADCODE END---> </xmp>






Un minicampeonato es un concurso de programación de calculadoras HP48 y 49 en el cuál se declara ganador a quien realiza el programa más eficiente, es decir RÁPIDO y PEQUEÑO.

Un minicampeonato premia al ganador por medio del reconocimiento de la comunidad mundial de usuarios de calculadoras HP48 y 49 y esta regido por las siguientes:


BASES
  1. El propósito de este campeonato es diversión y aprendizaje.
  2. Sólo se admite código de USER RPL; sin SYSEVALs o LIBEVALs o ML o SYSTEM.
  3. Los programas de los participantes se deben publicar en el grupo de noticias es.comp.sistemas.hp48 con la sintaxis apropiada para transmitir el código por medio de COPIAR-PEGAR usando caracteres ASCII proporcionados en la página 27-17 del manual de la HP48 (click aquí para ver copia)
  4. Al publicar su programa los participantes estarán de acuerdo en compartirlo libremente con los demás usuarios de la comunidad.
  5. El programa debe funcionar correctamente en las calculadoras HP48G, HP48GX, HP48G+ y en la HP49G (en modo RPN para el caso de la HP49G) No es necesario que trabaje en la HP48S o la HP48SX.
  6. Los programas deben funcionar correctamente sin importar cuáles indicadores de sistema están activados o desactivados en la calculadora.
  7. El programa sólo debe tomar los datos y convertirlos en resultados, no deben modificar el estado de la calculadora en ningún otro aspecto.
  8. El programa no debe dejar "basura" en la pila de la calculadora.
  9. El programa no debe presentar modificaciones en los indicadores del sistema ni los indicadores de usuario (FLAGS) al final de su ejecución, pero si puede hacerlo durante la ejecución del programa regresándola siempre al estado original.
  10. El programa debe respetar los objetos contenidos en la pila, los cuáles deben permancer intactos después de la ejecución, unicamente cambiará su posición en la pila.
  11. El programa debe de eliminar todas las variables (locales o reservadas) que cree durante su ejecución.
  12. El programa debe estar contenido en un solo objeto.
  13. El programa debe ser capaz de ejecutarse después de la transferencia (no debe ser necesario el ser instalado como librería ni algo similar)
  14. La prueba de la velocidad del programa se realizará en una HP48GX sin ningún objeto en la pila más que los datos requeridos, y después de ejecutar el comando RESET del menú 66.02, sin ninguna librería u objeto guardado en el puerto cero, sin tarjetas de expansión de memoria, sin teclas de usuario guardadas (S DELKEYS) sin directorios u objetos en el HOME exceptuando el programa a probar y el siguiente programa para verificar la velocidad:


  15. Habrá un ganador: quien haga el programa más rápido y pequeño. O dos ganadores: quien haga el programa más pequeño y quien haga el más rápido.
  16. No se premia de ninguna manera a los participantes, como se mencionó en el primer punto, el único propósito es la diversión y aprendizaje de la comunidad.





MiniCampeonato propuesto el 26 de marzo de 2002 por Alejo J.Ch.


De tres series de coordenadas dadas en tres listas en la pila regrese una ecuación de segundo grado de forma general que satisfaga los puntos dados: 
---------------------
4:
3: {x1 y1}   
2: {x1 y1}    
1: {x1 y1}   
---------------------

PROGRAMA ->

---------------------
4:
3:    
2: 
1: 'Y=A*X^2+B*X+C'
---------------------



Por ejemplo; de la pila: 
----------------------
4:
3: {.5 4}   
2: {-2 -2}    
1: {2 4.5}   
----------------------
obtener: 
----------------------
2:
1:  'Y=-(.51666666667*  
  X^2)+1.625*X+
  3.3166666667'
----------------------

Notar la posibilidad de que existan las variables Y y X.





Solución a superar.

Tamaño: 505 bytes
# DFAFh
Resuelve el ejemplo en: 0.9969580078 segundos
Máximo Castañeda Riloba

Tamaño: 196 bytes
# EDA0h
Funciona sólo en la HP49G con el indicador -3 desactivado.
Edwin Córdoba

Tamaño: 182 bytes
# F11Ch
Resuelve el ejemplo en: 0.7867431641 segundos
Aquilino Nicolás Sánchez

Tamaño: 207 bytes
# D224h
Resuelve el ejemplo en: 0.8823242188 segundos

Otra solución de Aquilino Nicolás Sánchez
más pequeña pero más lenta

Tamaño: 169 bytes
# 4451h
Resuelve el ejemplo en: 0.9007568359 segundos
GaaK

Tamaño: 367 bytes
#AB98h
No funciona en la HP48, solo en la HP49G.
Boris Adolfo Zárate Hernández

Tamaño: 169 bytes
# 9B36h
No funciona con el indicador -3 activado
GANADORES ACTUALES

Velocidad:
Edwin Córdoba


Tamaño:
Aquilino Nicolás Sánchez