Secciones de la página

gpl. tol

Declaraciones

Constantes

Funciones

Time oriented language

Árbol de ficheros

Funciones

Real PdfPolar2x20()

Tol

Artículos del sitio

Presentación de Tol

Todos los programas

Simuladores visuales

Sitios que me gustan

Por categorías

Algoritmia

Búsqueda y ordenación

Computación fisiológica

Editorial y edición

Gráficos de datos

Herramientas y utilidades

Hipertexto

Informática forense

Lectura óptica de datos

Metaprogramación

No determinista

Ofimática

Recursión e iteración

Reglas y restricciones

Series y estadística









gpl.tol de SHi.SyntaxHighlight

Funciones para crear graficos polares en estrella con Gnuplot, son especificas de esta aplicacion, no son generales. Depende del directorio de instalacion de Gnuplot.

Declaraciones

Constantes

  • Text GplExe
    Ruta directorios donde esta instalado Gnuplot, depende de la instalacion. Notese la necesidad de comillas dentro de comillas.
  • Text GplPolar2x20
    Prefijo para los ficheros Gnuplot de programacion (.gpl) y datos (.dar).
  • Text GplDat
    Plantilla de datos especifica para crear de graficos polares en estrella. Permite generar graficos de 2 series de datos de 20 preguntas, cada 18º, con respuestas en el rango del 0 al 5. Los datos son etiquetas que seran reemplazados por los valores que correspondan en cada llamada.

Funciones

  • Real PdfPolar2x20(Text outPth, Set repTab)
    Retorna TRUE si puede crear el fichero grafico Png de ruta outPth.

Constantes

Text GplExe

//////////////////////////////////////////////////////////////////////////////
Text GplExe = Q(FilDos(Q("%BIN%/gnuplot/bin/pgnuplot")));
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Ruta directorios donde esta instalado Gnuplot, depende de la instalacion.
Notese la necesidad de comillas dentro de comillas.",
GplExe);
//////////////////////////////////////////////////////////////////////////////

Text GplPolar2x20

//////////////////////////////////////////////////////////////////////////////
Text GplPolar2x20 = "polar2x20";
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Prefijo para los ficheros Gnuplot de programacion (.gpl) y datos (.dar).",
GplPolar2x20);
//////////////////////////////////////////////////////////////////////////////

Text GplDat

//////////////////////////////////////////////////////////////////////////////
Text GplDat =
" 0, a01, c01
 18, a02, c02
 36, a03, c03
 54, a04, c04
 72, a05, c05
 90, a06, c06
108, a07, c07
126, a08, c08
144, a09, c09
162, a10, c10
180, a11, c11
198, a12, c12
216, a13, c13
234, a14, c14
252, a15, c15
270, a16, c16
288, a17, c17
306, a18, c18
324, a19, c19
342, a20, c20
360, a01, c01
";
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Plantilla de datos especifica para crear de graficos polares en estrella.
Permite generar graficos de 2 series de datos de 20 preguntas, cada 18º,
con respuestas en el rango del 0 al 5.
Los datos son etiquetas que seran reemplazados por los valores que
correspondan en cada llamada.",
GplDat);
//////////////////////////////////////////////////////////////////////////////

Funciones

Real PdfPolar2x20()

//////////////////////////////////////////////////////////////////////////////
Real PdfPolar2x20(Text outPth, // Ruta del fichero png de salida
                   Set  repTab) // Tabla de reemplazamiento con datos a pintar
//////////////////////////////////////////////////////////////////////////////
{
  Text seePth = CtrDir+"/semilla/"+
                GplPolar2x20+".see"; // Semilla de programacion Gnuplot
  Text gplPth = GplPolar2x20+".gpl"; // Programacion Gnuplot
  Text datPth = GplPolar2x20+".dat"; // Fichero de datos para Gnuplot

  Text WriteFile(datPth, ReplaceTable(GplDat, repTab)); // Escribe datos
  Text seeTxt = ReadFile(seePth); // Lee la semilla de programacion
  Text WriteFile(gplPth, Replace(seeTxt,"web/shi_syntaxhighlight/gpl_tol.html",outPth)); // Escribe programa

  Text cmdTxt = GplExe+" "+gplPth;   // Ejecutable Gnuplot y programa .gpl

  Real cmdExe = System(cmdTxt);
  Text cmdMsg = "    "+If(cmdExe, "Plot OK", "Plot ERROR")+" -> ";
  Text WriteLn(cmdMsg+outPth);
  cmdExe
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna TRUE si puede crear el fichero grafico Png de ruta outPth.",
PdfPolar2x20);
//////////////////////////////////////////////////////////////////////////////

Time oriented language

//////////////////////////////////////////////////////////////////////////////
// FILE    : gpl.tol
// AUTHOR  : http://www.asolver.com
// PURPOSE : Funciones para crear graficos polares en estrella con Gnuplot,
// son especificas de esta aplicacion, no son generales.
// Depende del directorio de instalacion de Gnuplot.
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
// CONSTANTS
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
Text GplExe = Q(FilDos(Q("%BIN%/gnuplot/bin/pgnuplot")));
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Ruta directorios donde esta instalado Gnuplot, depende de la instalacion.
Notese la necesidad de comillas dentro de comillas.",
GplExe);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
Text GplPolar2x20 = "polar2x20";
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Prefijo para los ficheros Gnuplot de programacion (.gpl) y datos (.dar).",
GplPolar2x20);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
Text GplDat =
" 0, a01, c01
 18, a02, c02
 36, a03, c03
 54, a04, c04
 72, a05, c05
 90, a06, c06
108, a07, c07
126, a08, c08
144, a09, c09
162, a10, c10
180, a11, c11
198, a12, c12
216, a13, c13
234, a14, c14
252, a15, c15
270, a16, c16
288, a17, c17
306, a18, c18
324, a19, c19
342, a20, c20
360, a01, c01
";
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Plantilla de datos especifica para crear de graficos polares en estrella.
Permite generar graficos de 2 series de datos de 20 preguntas, cada 18º,
con respuestas en el rango del 0 al 5.
Los datos son etiquetas que seran reemplazados por los valores que
correspondan en cada llamada.",
GplDat);
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
// FUNCTIONS
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
Real PdfPolar2x20(Text outPth, // Ruta del fichero png de salida
                   Set  repTab) // Tabla de reemplazamiento con datos a pintar
//////////////////////////////////////////////////////////////////////////////
{
  Text seePth = CtrDir+"/semilla/"+
                GplPolar2x20+".see"; // Semilla de programacion Gnuplot
  Text gplPth = GplPolar2x20+".gpl"; // Programacion Gnuplot
  Text datPth = GplPolar2x20+".dat"; // Fichero de datos para Gnuplot

  Text WriteFile(datPth, ReplaceTable(GplDat, repTab)); // Escribe datos
  Text seeTxt = ReadFile(seePth); // Lee la semilla de programacion
  Text WriteFile(gplPth, Replace(seeTxt,"web/shi_syntaxhighlight/gpl_tol.html",outPth)); // Escribe programa

  Text cmdTxt = GplExe+" "+gplPth;   // Ejecutable Gnuplot y programa .gpl

  Real cmdExe = System(cmdTxt);
  Text cmdMsg = "    "+If(cmdExe, "Plot OK", "Plot ERROR")+" -> ";
  Text WriteLn(cmdMsg+outPth);
  cmdExe
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Retorna TRUE si puede crear el fichero grafico Png de ruta outPth.",
PdfPolar2x20);
//////////////////////////////////////////////////////////////////////////////

Árbol de ficheros

SHi.SyntaxHighlight funciones de sintaxis realzada de codigo

  • ←make.tol programa de test de las funciones de sintaxis realzada en Tol
  • ←make.bat mandato de ejecucion del programa de test de realce de sintaxis
  • tol directorios que contienen fichero de codigo fuente Tol
    • cmm funciones comunes de manejo y generacion de textos y Html
      • ←txt.tol funciones para el manejo y la transformacion de textos
      • ←htm.tol funciones para generar codigo fuente en lenguaje Html
    • app funciones especificas de aplicacion de sintaxis realzada
      • ←shi.tol sintaxis realzada de código fuente en Tol, Xml, Html, etc.
    • ←inc.tol fichero con ordenes de inclusion de otros ficheros Tol
  • code.inp directorio con ficheros de codigo en diversos lenguajes para pruebas
    • ←arr.js codigo fuente en lenguaje Javascript
    • ←cmm.css ejemplo de Css, Cascading Style Sheets
    • ←edi.sql lenguaje Sql, Structured Query Language
    • ←gif.gpl fichero de especificacion de mandatos Gnuplot
    • ←gpl.tol ejemplo de Tol invocando a Gnuplot
    • ←map.xml ejemplo de codigo Xml, eXtensible Markup Language
    • ←pdf.bat ficheros de mandatos de Windows de Microsoft
    • ←see.htm lenguaje Html, HyperText Markup Language
    • ←sql.tol ejemplo de lenguaje Tol con codigo Sql embebido
  • code.out directorio de resultados con el codigo de entrada realzado
  • →resultado.html codigos fuente realzado en varios lenguajes de programacion
  • →shi_syntaxhighlight.pdf documento de funciones de la libreria de realce de sintaxis

2015 asolver.com | Aviso legal | XHTML | Δ Θ Ξ | Creative Commons | Mapa y funciones del sitio

Tol