Convertir un conjunto de objetos Puntos Libres a un objeto Lista de Puntos y borrar los Puntos Libres en JavaScript - Versión deja las listas sin borrar mas Geogebra Scripting
- Autor:
- JP MathPR
- Tema:
- Programación Lineal
JavaScript
//Convertir un conjunto de objetos Puntos Libres
//a un objeto Lista de Puntos y borrar los Puntos Libres
//en JavaScript
var no = ggbApplet.getObjectNumber();
var xV, yV;
var j = 1;
///////////////////////////////////////////////
// Enlista el nombre de los objetos del mismo tipo en un arreglo
ggbApplet.evalCommand("LxV={ }");
ggbApplet.evalCommand("LyV={ }");
for (var i = 0; i < no; i++) {
if (ggbApplet.getObjectType(ggbApplet.getObjectName(i)) == "point") {
ggbApplet.evalCommand("xV=x(" + ggbApplet.getObjectName(i) + ")");
ggbApplet.evalCommand("yV=y(" + ggbApplet.getObjectName(i) + ")");
xV = ggbApplet.getValue("xV");
yV = ggbApplet.getValue("yV");
//alert(i + " xV=" + xV + " yV=" + yV);
ggbApplet.setListValue("LxV", j, xV);
ggbApplet.setListValue("LyV", j, yV);
j++;
} // si
} // para
ggbApplet.evalCommand("LP=Sequence((Element(LxV,i),Element(LyV,i)),i,1,Length(LxV),1)");
ggbApplet.evalCommand("index=Sequence(IndexOf(Element(Sort(LxV),i),LxV),i,1,Length(LxV),1)");
ggbApplet.evalCommand("LP2=Sequence(Element(LP,Element(index,i)),i,1,Length(LP),1)");
ggbApplet.setVisible("LP", false);
ggbApplet.setVisible("LP2", true);
ggbApplet.deleteObject("xV");
ggbApplet.deleteObject("yV");
var opt = prompt("Deseas borrar las coordenadas de los puntos? (Y/N)", "N");
var dno=no;
if (opt == 'Y' || opt == 'y') {
for (var i = dno; 0<i ; i--) {
if (ggbApplet.getObjectType(ggbApplet.getObjectName(i)) == "point") {
ggbApplet.deleteObject(ggbApplet.getObjectName(i));
//dno--;
} // si
} // para
} //if opt