Vectores Pitagoricos y Microsoft Small Basic
- 1. 1 VECTORES PITAGÓRICOS (y programa en Microsoft Small Basic) MCI José A. Guasco. Vectores Pitagóricos i = Valor Máximo de las Componentes = 25 1) VECTOR PITAGÓRICO: v = (1,2,2), |v| = 3 2) VECTOR PITAGÓRICO: v = (1,4,8), |v| = 9 3) VECTOR PITAGÓRICO: v = (1,6,18), |v| = 19 4) VECTOR PITAGÓRICO: v = (1,12,12), |v| = 17 5) VECTOR PITAGÓRICO: v = (2,3,6), |v| = 7 6) VECTOR PITAGÓRICO: v = (2,5,14), |v| = 15 7) VECTOR PITAGÓRICO: v = (2,6,9), |v| = 11 8) VECTOR PITAGÓRICO: v = (2,10,11), |v| = 15 9) VECTOR PITAGÓRICO: v = (2,10,25), |v| = 27 10) VECTOR PITAGÓRICO: v = (2,14,23), |v| = 27 11) VECTOR PITAGÓRICO: v = (3,4,12), |v| = 13 12) VECTOR PITAGÓRICO: v = (3,6,22), |v| = 23 13) VECTOR PITAGÓRICO: v = (3,14,18), |v| = 23 14) VECTOR PITAGÓRICO: v = (3,16,24), |v| = 29 15) VECTOR PITAGÓRICO: v = (4,4,7), |v| = 9 16) VECTOR PITAGÓRICO: v = (4,5,20), |v| = 21 17) VECTOR PITAGÓRICO: v = (4,8,19), |v| = 21 18) VECTOR PITAGÓRICO: v = (4,13,16), |v| = 21 19) VECTOR PITAGÓRICO: v = (6,6,7), |v| = 11 20) VECTOR PITAGÓRICO: v = (6,6,17), |v| = 19 21) VECTOR PITAGÓRICO: v = (6,10,15), |v| = 19 22) VECTOR PITAGÓRICO: v = (6,13,18), |v| = 23 23) VECTOR PITAGÓRICO: v = (6,21,22), |v| = 31 24) VECTOR PITAGÓRICO: v = (7,14,22), |v| = 27 25) VECTOR PITAGÓRICO: v = (8,9,12), |v| = 17 26) VECTOR PITAGÓRICO: v = (8,11,16), |v| = 21 27) VECTOR PITAGÓRICO: v = (8,20,25), |v| = 33 28) VECTOR PITAGÓRICO: v = (9,12,20), |v| = 25 29) VECTOR PITAGÓRICO: v = (10,10,23), |v| = 27 30) VECTOR PITAGÓRICO: v = (11,12,24), |v| = 29 31) VECTOR PITAGÓRICO: v = (12,15,16), |v| = 25 32) VECTOR PITAGÓRICO: v = (12,16,21), |v| = 29 33) VECTOR PITAGÓRICO: v = (14,18,21), |v| = 31 34) VECTOR PITAGÓRICO: v = (17,20,20), |v| = 33 35) VECTOR PITAGÓRICO: v = (23,24,24), |v| = 41
- 2. 2 ' VECTORES PITAGÓRICOS TextWindow.WriteLine("Vectores Pitagóricos") TextWindow.WriteLine("i = Valor Máximo de las Componentes = ") i = TextWindow.ReadNumber() For x = 1 To i For y = x To i For z = y To i ' TextWindow.WriteLine("x = " + x) ' TextWindow.WriteLine("y = " + y) ' TextWindow.WriteLine("z = " + z) v = Math.SquareRoot(x*x+y*y+z*z) ' Módulo del Vector ' TextWindow.WriteLine("v = Vector = " + v) ' TextWindow.WriteLine(("VECTOR: (" + x + "," + y + "," + z + "), " + "|v| = " + v)) ' Análisis para descartar Vectores que sean múltiplos de otros Vectores Pimpollis = 0 ' TextWindow.WriteLine("Pimpollis = " + Pimpollis) For j = 2 To i ' TextWindow.WriteLine(" j = " + j + " = Posible Factor Común") xj = x/j xj_parte_Entera = Math.Floor(xj) ' Parte Entera yj = y/j yj_parte_Entera = Math.Floor(yj) ' Parte Entera zj = z/j zj_parte_Entera = Math.Floor(zj) ' Parte Entera vj = v/j vj_parte_Entera = Math.Floor(vj) ' Parte Entera If xj = xj_parte_Entera And yj = yj_parte_Entera And zj = zj_parte_Entera Then Pimpollis = Pimpollis + 1 ' j sí es Factor Común de las 3 componentes. ' TextWindow.WriteLine("Pimpollis = " + Pimpollis) EndIf EndFor v_parteEntera = Math.Floor(v) ' TextWindow.WriteLine("v_parteEntera = " + v_parteEntera) If (Pimpollis = 0) And (v_parteEntera = v) Then Contador = Contador + 1 EndIf If (Pimpollis = 0) And (v_parteEntera = v) Then TextWindow.WriteLine(Contador + ") VECTOR PITAGÓRICO: v = (" + x + "," + y + "," + z + "), " + "|v| = " + v)