cancelar
Mostrando los resultados de 
Buscar en lugar de 
Quiere decir: 
  • ×
    Información
    Corrija errores en Win 10

    Resuelva problemas de actualización de Windows 10 en un PC HP – haga clic aquí

  • post a message
  • ×
    Información
    Corrija errores en Win 10

    Resuelva problemas de actualización de Windows 10 en un PC HP – haga clic aquí

  • post a message
Highlighted
Estudiante honorario
Estudiante honorario
2 0 0
Mensaje 1 de 4
137
Reportar Mensaje

Fallo en un programa para la triangulacion de Delanuay

HP Prime
Microsoft Windows 8 (64-bit)

Buenos Dias,

Soy nuevo en programar mi HP Prime y no consigo que funcione un programa que he creado, me da error de entrada no valida que no consigo arreglar aqui os dejo el programa haber si me podeis hechar una mano, el programa es para realizar una triangulacion de delanuay.

Gracias de antemano.

 

EXPORT Delanuay()

BEGIN

 

 

LOCAL CoordX,CoordY,CoordZ;

LOCAL Coord1X,Coord1Y,Coord1Z;

LOCAL Coord2X,Coord2Y,Coord2Z;

LOCAL Coord3X,Coord3Y;

LOCAL MATRIZV;

LOCAL Elemento11,Elemento12,Elemento13;

LOCAL Elemento21,Elemento22,Elemento23;

LOCAL Elemento31,Elemento32,Elemento33;

LOCAL V1,V2,V3;

LOCAL A,Determinante;

LOCAL MATRIZ;

LOCAL Punto11,Punto12,Punto13;

LOCAL Punto21,Punto22,Punto23;

LOCAL Punto31,Punto32,Punto33;

LOCAL V4,V5,V6;

LOCAL B,Cota;

 

input({CoordX,CoordY,CoordZ},"1º Punto-Sentido Horario");

input({Coord1X,Coord1Y,Coord1Z},"2º Punto-Sentido Horario");

input({Coord2X,Coord2Y,Coord2Z},"3º Punto-Sentido Horario");

input({Coord3X,Coord3Y},"Punto fuera del Triangulo");

 

//*******************MATRIZ*VALIDACION*************************

 

MATRIZV:=MAKEMAT(0,3,3);

 

Elemento11:=(CoordX-Coord3X);

Elemento12:=(CoordY-Coord3Y);

Elemento13:=((Elemento11^2)+(Elemento12^2));

Elemento21:=(Coord1X-Coord3X);

Elemento22:=(Coord1Y-Coord3Y);

Elemento23:=((Elemento21^2)+(Elemento22^2));

Elemento31:=(Coord2X-Coord3X);

Elemento32:=(Coord2Y-Coord3Y);

Elemento33:=((Elemento31^2)+(Elemento32^2));

 

V1:=[Elemento11,Elemento12,Elemento13];

V2:=[Elemento21,Elemento22,Elemento23];

V3:=[Elemento31,Elemento32,Elemento33];

 

A:=ADDROW(MATRIZV,[V1,V2,V3],4);

 

Determinante=DET(A);

 

if Determinante<0 THEN

 

print("La triangulacion no es valida prueba con otro triangulo");

 

//*******************MATRIZ*************************************

 

if Determinante>0 THEN

 

MATRIZ:=MAKEMAT(0,3,3);

 

Punto11:=Coord3X-CoordX;

Punto12:=Coord3Y-CoordY;

Punto13:=Z-CoordZ;

Punto21:=Coord1X-CoordX;

Punto22:=Coord1Y-CoordY;

Punto23:=Coord1Z-CoordZ;

Punto31:=Coord2X-CoordX;

Punto32:=Coord2Y-CoordY;

Punto33:=Coord2Z-CoordZ;

 

V4:=[Punto11,Punto12,Punto13];

V5:=[Punto21,Punto22,Punto23];

V6:=[Punto31,Punto32,Punto33];

 

B:=ADDROW(MATRIZ,[V4,V5,V6],4);

 

Cota=solve(DET(B),Z);

 

//*******************SOLUCION**********************************

 

print("Matriz de Validacion="+A);

print("Valor del Determinante="+Determinante);

print("Determinante Valido");

print("*************************");

print("Matriz para calculo de Cota="+B);

print("Cota="+Cota);

 

end

end

 

END;

3 RESPUESTAS 3
Highlighted
Rector
Rector
30,645 2,669 6,873
Mensaje 2 de 4
Reportar Mensaje

Fallo en un programa para la triangulacion de Delanuay

¿ Podrías indicar, los valores de carga, de las variables, para poder determinar, dónde está el error de sintáxis, que indica ?.

¡ Bienvenida/o, al Foro !.
Saludos.
@Maké (Ex-EXPERTO). Technical Advisor Premium. HP Program Top Contributor … Distinguished Professor, in … https://h30434.www3.hp.com/t5/Calculators/bd-p/Calulators-Handhelds and … https://h30434.www3.hp.com/
Responder
0 kudos
Highlighted
Estudiante honorario
Autor
Estudiante honorario
2 0 0
Mensaje 3 de 4
Reportar Mensaje

Fallo en un programa para la triangulacion de Delanuay

Si, te pongo a continuacion las coordenadas de los puntos:

 

1º Punto => (2251.73, 277.91, 115.74)

2º Punto => (2296.36, 2746.58, 128.12)

3º Punto => (2233.58, 2714.25, 122.08)

Punto Fuera => (2263.77, 2741.46)

 

Gracias! 

Saludos

Responder
0 kudos
Highlighted
Rector
Rector
30,645 2,669 6,873
Mensaje 4 de 4
Reportar Mensaje

Fallo en un programa para la triangulacion de Delanuay

Es muy complicado tu progama, para resolverlo de una vez. Por eso te aconsejo, que escribas al siguiente sitio, dónde están los mas prestigiosos programadores. Lamentablemente está, en idioma inglés y deberás primero registrarte como usuario, para poder consultar. Es fácil y gratuito. 

El sitio, es ... https://hpmuseum.org/forum/forum-8.html

Ojalá puedas resolverlo.

¡ Bienvenida/o, al Foro !.
Saludos.
@Maké (Ex-EXPERTO). Technical Advisor Premium. HP Program Top Contributor … Distinguished Professor, in … https://h30434.www3.hp.com/t5/Calculators/bd-p/Calulators-Handhelds and … https://h30434.www3.hp.com/
Responder
0 kudos
† Las opiniones expresadas arriba son opiniones personales del autor, no de HP. Al utilizar este sitio, acceptas a los Términos de Uso y a las Reglas de Participación