Generar una base ortogonal
Pascal/Turbo Pascal
Publicado el 27 de Octubre del 2003 por Santiago Alvarez (3 códigos)
5.878 visualizaciones desde el 27 de Octubre del 2003
Este código genera una base ortogonal según el teorema de Grand Schmidt tomando producto interno canónico.
Comentarios sobre la versión: Versión 1 (2)
Pido perdón, pero me equivoqué al mandar el archivo y borré el que funcionaba. Este no funciona y da unos resultados horribles
Busquen la línea
"if i=3 then"
y bórrenla. Era eso nada más, borrada esa línea funciona 10 puntos.