Autor
|
Tema: [RETO] Matriz de Cuenta Circular 7913 (Leído 7,875 veces)
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Tengo aún más examenes... Ya lo haré cuando pueda. DoEvents!
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
Bueno... parece que no va a agregarse nadie mas
No te creas algunos tenemos unos contratiempos ( un servidor en la facultad ). Dulces Lunas!¡.
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! Black: Perdon . ( un servidor en la facultad ).
Que le paso al server? GRACIAS POR LEER!!!
|
|
« Última modificación: 13 Enero 2011, 12:22 pm por 79137913 »
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Que le paso al server? Se refiere a él mismo: yo opino que sí = un servidor opina que sí DoEvents!
|
|
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! XD bueno igual no entendi En un rato posteo el code que ya lo tengo bastante bien. GRACIAS POR LEER!!!
|
|
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! Mi codigo: Private Function Cuenta_Circular7913(N&, m() As Integer, TIPO As Boolean) 'TIPO: FALSE = BLOQUE, TRUE = ESPIRAL Dim X As Long Dim Y As Long Dim MEDIO As Long ' N/2 Dim CT As Long 'If N Mod 2 <> 0 Then Exit Function 'If N > 180 Then Exit Function 'If N < 2 Then Exit Function ReDim m(N, N) MEDIO = N / 2 For X = MEDIO + 1 To N m(N - X, N - X) = 7 m(X, N - X) = 9 m(N - X, X) = 1 m(X, X) = 3 Next If TIPO Then 'ESPIRAL Dim SIGUIENTE As Long Dim SIGUIENTE_2 As Long 'SIGUIENTE * 2 Dim SIGUIENTE_3 As Long 'SIGUIENTE * 3 For Y = 0 To MEDIO CT = CT + SIGUIENTE_3 SIGUIENTE = N - (Y * 2) - 1 SIGUIENTE_2 = SIGUIENTE * 2 SIGUIENTE_3 = SIGUIENTE * 3 For X = (Y + 1) To N - (Y + 1) CT = CT + 1 m(X, Y) = CT m(N - Y, X) = CT + SIGUIENTE m(N - X, N - Y) = CT + SIGUIENTE_2 m(Y, N - X) = CT + SIGUIENTE_3 Next Next Else 'TRIANGULAR Dim MEDIO2 As Long 'MEDIO ^ 2 Dim MEDIO2_2 As Long 'MEDIO2 * 2 Dim MEDIO2_3 As Long 'MEDIO2 * 3 MEDIO2 = MEDIO * MEDIO MEDIO2_2 = MEDIO2 * 2 MEDIO2_3 = MEDIO2 * 3 For Y = 0 To MEDIO For X = (Y + 1) To N - (Y + 1) CT = CT + 1 m(X, Y) = CT m(N - Y, X) = CT + MEDIO2 m(N - X, N - Y) = CT + MEDIO2_2 m(Y, N - X) = CT + MEDIO2_3 Next Next End If End Function
TEST: "TEST HECHO POR 79137913" Cuenta_Circular7913(180, Matriz, False) : 0,456 msec Leandro_Cuenta_Circular7913(180, Matriz, False) : 0,522 msec Cuenta_Circular7913(180, Matriz, True) : 0,424 msec Leandro_Cuenta_Circular7913(180, Matriz, True) : 0,398 msec GRACIAS POR LEER!!!
|
|
« Última modificación: 17 Enero 2011, 16:52 pm por 79137913 »
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
ayuda en nodo de lista circular
Java
|
apolo85
|
3
|
5,147
|
28 Noviembre 2009, 03:57 am
por egyware
|
|
|
Duda - Buscar si existe una matriz dentro de otra matriz
Programación Visual Basic
|
EddyW
|
2
|
6,012
|
14 Agosto 2010, 06:18 am
por EddyW
|
|
|
Cola circular estatica
Java
|
soser
|
5
|
23,465
|
14 Marzo 2017, 13:56 pm
por Orubatosu
|
|
|
una lista circular en c#
.NET (C#, VB.NET, ASP)
|
Fingerling
|
2
|
13,217
|
24 Septiembre 2010, 17:23 pm
por -=[ §ÂßÂÑÐØ ]=-
|
|
|
[RETO] Matriz Bidimensional {FrogMatrix algorithm}
« 1 2 »
Programación Visual Basic
|
Psyke1
|
13
|
7,655
|
30 Noviembre 2010, 19:33 pm
por 79137913
|
|