Fallo en un programa para la triangulacion de Delanuay

[Driate]

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;

[Maké]

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

[Driate]

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

[Maké]

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.