cancelar
Mostrando los resultados de 
Buscar en lugar de 
Quiere decir: 
  • ×
    Información
    ¿Necesita ayuda con Windows 11?

    Vea información sobre compatibilidad, actualización y soluciones para problemas conocidos de HP y Microsoft, clicando aquí

    Información
    Corrija errores en Win 10

    Resuelva problemas de actualización de Windows 10 en un PC HP – Centro de soporte HP para Windows 10

  • post a message
  • ×
    Información
    ¿Necesita ayuda con Windows 11?

    Vea información sobre compatibilidad, actualización y soluciones para problemas conocidos de HP y Microsoft, clicando aquí

    Información
    Corrija errores en Win 10

    Resuelva problemas de actualización de Windows 10 en un PC HP – Centro de soporte HP para Windows 10

  • post a message
Estudiante honorario
Estudiante honorario
2 0 0
Mensaje 1 de 4
419
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
Rector
Rector
21,484 2,697 7,174
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/
¿Esta respuesta fue útil? Si No
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

¿Esta respuesta fue útil? Si No
Rector
Rector
21,484 2,697 7,174
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/
¿Esta respuesta fue útil? Si No
† Las opiniones expresadas arriba son opiniones personales del autor, no de HP. Al utilizar este sitio, aceptas los Términos de Uso y las Reglas de Participación