Mensajes

hee, lo que está de color azul en la segunda sería la matriz más pequeña que fue encontrada dentro de la primera,
¿Me explico?

Tengo algo en mente, pero como que no me cuadra, sigo probando pero quiero saber si existe algún método para hacer eso.

SaluDOS!!! y Buenas Noches

Wenas,

Tal vez no lo planteé bien al decir "buscar una matriz dentro de otra", lo aclaro así:
Tengo una matriz X e Y, que contiene solo números, graficando sería:
(Matriz Global)

______ X ________
  | 1 2 3 4 5 6 7 8 9 0
  | 0 9 8 7 6 5 4 3 2 1
Y| 1 2 3 4 5 6 7 8 9 0
  | 0 9 8 7 6 5 4 3 2 1
  | 1 2 3 4 5 6 7 8 9 0

y tengo otra matriz más pequeña, y quiero buscar si existe en la matriz (Global):
Así, lo de color Azul:

______ X ________
  | 1 2 3 4 5 6 7 8 9 0
  | 0 9 8 7 6 5 4 3 2 1
Y| 1 2 3 4 5 6 7 8 9 0
  | 0 9 8 7 6 5 4 3 2 1
  | 1 2 3 4 5 6 7 8 9 0

Como lo haría, aparte de usar For, que otra opción abría? ya que la matriz es muy grande

SaluDOS!!!

Ya lo había comentado, está muy bueno
Deberías especificar en el título que es para Batch, ya que Scripting incluye a muchos lenguajes

SaluDOS!!!

He probado tu código, pero me da mal los resultados,

Código [Seleccionar] Expandir

1, 3, 7, 9, 13, 15, 21, 25, 31, 33, 37, 43, 49, 51, 63, 67, 69, 73, 75, 79, 87, 93, 99...

A la primera vez si intentas con 1,3,7,9,13, el 15 no sale, y si vuelves a intentar algún numero no da, no se si me expliqué, pero no funca bien.

Trabajo ahora en el mio

SaluDOS!!!

Ok, gracias nuevamente está bastante bueno

SaluDOS!!!

Me parece muy buena la idea..
También creo que podrían usar los "=" como separadores de código, le da un aspecto más profesional (Si encuentran una mejor palabra para atribuirlo, mejor.)
y una forma no muy correcta de usar comentarios, pero funciona,
y por último, el uso de tabulaciones, cuando escribes una función dentro de una función, o un For dentro de Otro:

Código (dos) [Seleccionar] Expandir

@Echo Off
SetLocal EnableDelayedExpansion

(========================================
[ Ejemplo usando FOR ]
=========================================)2>nul
For /l %%y In (1 1 24) Do (
For /l %%x In (1 1 60) Do (
Set Vector[%%x][%%y]=*
    Set /p=!Vector[%%x][%%y]!<nul
)
Echo.
)

=========================================
Pause>nul

SaluDOS!!!

Simplemente así:

Código (dos) [Seleccionar] Expandir

For /f "tokens=1 delims=." %%_ In ('Dir archivo*.zip/B') Do (

Luego dejas todo el código tal como está

SaluDOS!!!

Wenas,

Verán, me encuentro en un lió con todo esto de las licencias, quiero usar una licencia GNU/GPL:
http://creativecommons.org/licenses/GPL/2.0/deed.es

Pero no entiendo como debo usarla, para ser más especifico en un programa de código abierto, ¿que debo escribir?
Simplemente: "Este código está bajo la licencia GNU/GPL"? y nada más?

Agradezco cualquier ayuda 

SaluDOS!!! y buenas noches.

Bueno, ahora no estoy como para hacer de nuevo el code, creo que es como lo puse solo que hay que corregir los for por:

Código (vb) [Seleccionar] Expandir

For A = 0 To 3
For B = 0 To 3
For C = 0 To 3
For D = 0 To 3

Eso genera 256 posibilidades, en realidad 128 como dice el ejercicio, pero fallé en algo por eso aparecen repetidas 2 veces..
Si analizas el code verás como funca

SaluDOS!!!

Te respondí en CPH

Aunque no creo que esté correcto pero como voy a mencionar más adelante, no entendí como lo planteas
Copy And Paste:

Me entretuve un rato, no se si entendí bien lo que planteas:
Me salió esto:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Dim Bit() As String, A As Integer, B As Integer, C As Integer, D As Integer, E As Integer
Dim Total As String, Div11 As Long, SumaDig As Long

Bit = Split(StrConv("2010", vbUnicode), Chr(0))
For A = 0 To 1
For B = 0 To 1
For C = 2 To 3
For D = 2 To 3
   Total = Bit(A) & Bit(B) & Bit(C) & Bit(D)
   Div11 = Total / 11
   SumaDig = 0
   For E = 1 To Len(Div11)
       SumaDig = SumaDig + Val(Mid(Val(Div11), E, 1))
   Next
   ' Suma de digitos igual a 2
   If SumaDig = 2 Then
       List1.AddItem "Gen:> " & Total & " -Div11>" & Div11 & " -Suma>" & SumaDig
   End If
   DoEvents
Next: Next: Next: Next
MsgBox List1.ListCount
End Sub

Como que no me cuadra, podrías mencionar el sitio de donde sacaste el ejercicio

SaluDOS!!!