algoritmo de combinaciones
yedeon
son 10nomeros y las combinaciones exeden a excel en su columa, como quedaria
el algoritmo en visual para que al casi llenarse , continue con las
combinaciones en otra columna(s) de antemano gracias de arte e todos mis
compañeros de la escuela de algebra...
favor de responder a chem...@hotmail.com
Héctor Miguel
> ayuda con el archivo de l algoritmo de myrna larson, archivo de excel
> son 10 nomeros y las combinaciones exeden a excel en su columa
> como quedaria el algoritmo en visual para que al casi llenarse, continue con las combinaciones en otra columna(s) ...
1) te falto exponer 'el algoritmo' :))
2) [probablemente] podrias invertir el vaciado a filas en lugar de columnas -?-
3) de cuantos numeros [por grupo] estamos hablando ?
4) podrias ampliar la exposicion y detalles del 'problema' ?
5) algun otro detalle que se hubiera quedado 'en el tintero' ?
saludos,
hector.
yedeon
gracias por contestar tan rapido
c 1 2 3 4 5 6 7 8 9 10 o a b c d e f g h i j
respecto a lo de cambiar por filas no es conveniente de bido a que por
columnas son 250aproximadamente y por columna son 600000 apox y es mejor
entre mas combinaciones aya
el algoritmo es:
--------------------------------------------------------------------------------------------
Option Explicit
Dim vAllItems As Variant
Dim Buffer() As String
Dim BufferPtr As Long
Dim Results As Worksheet
'
' Posted by Myrna Larson
' July 25, 2000
' Microsoft.Public.Excel.Misc
' Subject: Combin
'
'Since you asked, here it is. It is generic, i.e. it isn't written
specifically
'for a given population and set size, as yours it. It will do permutations or
'combinations. It uses a recursive routine to generate the subsets, one
routine
'for combinations, a different one for permutations.
'To use it, you put the letter C or P (for combinations or permutations) in a
'cell. The cell below that contains the number of items in a subset. The Cells
'below are a list of the items that make up the population. They could be
'numbers, letters and symbols, or words, etc.
'You select the top cell, or the entire range and run the sub. The subsets are
'written to a new sheet in the workbook.
'
'
Sub ListPermutations()
Dim Rng As Range
Dim PopSize As Integer
Dim SetSize As Integer
Dim Which As String
Dim N As Double
Const BufferSize As Long = 4096
Set Rng = Selection.Columns(1).Cells
If Rng.Cells.Count = 1 Then
Set Rng = Range(Rng, Rng.End(xlDown))
End If
PopSize = Rng.Cells.Count - 2
If PopSize < 2 Then GoTo DataError
SetSize = Rng.Cells(2).Value
If SetSize > PopSize Then GoTo DataError
Which = UCase$(Rng.Cells(1).Value)
Select Case Which
Case "C"
N = Application.WorksheetFunction.Combin(PopSize, SetSize)
Case "P"
N = Application.WorksheetFunction.Permut(PopSize, SetSize)
Case Else
GoTo DataError
End Select
If N > Cells.Count Then GoTo DataError
Application.ScreenUpdating = False
Set Results = Worksheets.Add
vAllItems = Rng.Offset(2, 0).Resize(PopSize).Value
ReDim Buffer(1 To BufferSize) As String
BufferPtr = 0
If Which = "C" Then
AddCombination PopSize, SetSize
Else
AddPermutation PopSize, SetSize
End If
vAllItems = 0
Application.ScreenUpdating = True
Exit Sub
DataError:
If N = 0 Then
Which = "Enter your data in a vertical range of at least 4 cells. " _
& String$(2, 10) _
& "Top cell must contain the letter C or P, 2nd cell is the number " _
& "of items in a subset, the cells below are the values from which " _
& "the subset is to be chosen."
Else
Which = "This requires " & Format$(N, "#,##0") & _
" cells, more than are available on the worksheet!"
End If
MsgBox Which, vbOKOnly, "DATA ERROR"
Exit Sub
End Sub
Private Sub AddPermutation(Optional PopSize As Integer = 0, _
Optional SetSize As Integer = 0, _
Optional NextMember As Integer = 0)
Static iPopSize As Integer
Static iSetSize As Integer
Static SetMembers() As Integer
Static Used() As Integer
Dim i As Integer
If PopSize <> 0 Then
iPopSize = PopSize
iSetSize = SetSize
ReDim SetMembers(1 To iSetSize) As Integer
ReDim Used(1 To iPopSize) As Integer
NextMember = 1
End If
For i = 1 To iPopSize
If Used(i) = 0 Then
SetMembers(NextMember) = i
If NextMember <> iSetSize Then
Used(i) = True
AddPermutation , , NextMember + 1
Used(i) = False
Else
SavePermutation SetMembers()
End If
End If
Next i
If NextMember = 1 Then
SavePermutation SetMembers(), True
Erase SetMembers
Erase Used
End If
End Sub 'AddPermutation
Private Sub AddCombination(Optional PopSize As Integer = 0, _
Optional SetSize As Integer = 0, _
Optional NextMember As Integer = 0, _
Optional NextItem As Integer = 0)
Static iPopSize As Integer
Static iSetSize As Integer
Static SetMembers() As Integer
Dim i As Integer
If PopSize <> 0 Then
iPopSize = PopSize
iSetSize = SetSize
ReDim SetMembers(1 To iSetSize) As Integer
NextMember = 1
NextItem = 1
End If
For i = NextItem To iPopSize
SetMembers(NextMember) = i
If NextMember <> iSetSize Then
AddCombination , , NextMember + 1, i + 1
Else
SavePermutation SetMembers()
End If
Next i
If NextMember = 1 Then
SavePermutation SetMembers(), True
Erase SetMembers
End If
End Sub 'AddCombination
Private Sub SavePermutation(ItemsChosen() As Integer, _
Optional FlushBuffer As Boolean = False)
Dim i As Integer, sValue As String
Static RowNum As Long, ColNum As Long
If RowNum = 0 Then RowNum = 1
If ColNum = 0 Then ColNum = 1
If FlushBuffer = True Or BufferPtr = UBound(Buffer()) Then
If BufferPtr > 0 Then
If (RowNum + BufferPtr - 1) > Rows.Count Then
RowNum = 1
ColNum = ColNum + 1
If ColNum > 256 Then Exit Sub
End If
Results.Cells(RowNum, ColNum).Resize(BufferPtr, 1).Value _
= Application.WorksheetFunction.Transpose(Buffer())
RowNum = RowNum + BufferPtr
End If
BufferPtr = 0
If FlushBuffer = True Then
Erase Buffer
RowNum = 0
ColNum = 0
Exit Sub
Else
ReDim Buffer(1 To UBound(Buffer))
End If
End If
'construct the next set
For i = 1 To UBound(ItemsChosen)
sValue = sValue & ", " & vAllItems(ItemsChosen(i), 1)
Next i
'and save it in the buffer
BufferPtr = BufferPtr + 1
Buffer(BufferPtr) = Mid$(sValue, 3)
End Sub 'SavePermutation
Héctor Miguel
> gracias por contestar tan rapido
> c 1 2 3 4 5 6 7 8 9 10 o a b c d e f g h i j
> respecto a lo de cambiar por filas no es conveniente de bido a que por columnas son 250aproximadamente
> y por columna son 600000 apox y es mejor entre mas combinaciones aya
> el algoritmo es [omitido por 'ahorro' temporal de lineas] :))
1) no se si se trate de alguna 'cofusion'... pero no entiendo que...
"por columnas son 250aproximadamente"
"y por columna son 600000 apox"
2) para alcanzar los ~600000 resultados [presumiblemente] usas la opcion de 'permutaciones'
con base en 10 elementos con 'arreglo' en grupos de 7 elementos [concretamente: 604800]
=> es correcta esta suposicion ?
3) algun detalle que se este quedando 'en el tintero' ? [todavia] -?-
antes de 'meternos' a las indagaciones solicitadas :))
saludos,
hector.
yedeon
250 en exel las columnas alcanzan hasta iv aprox 250 columnas en una j¡hoja
de exel y lo de 600000 si es exagerado pero me refiero a que una hoja de exel
cuenta con un limite de 65536 filas lo cual no basta si se usara 60 numeros
con grupos de 7 ,,, si por ejemplo asi 60 numeros sus
permutaciones en grupos de 7
si se que es muy complejo peroo asi espero entiendan mejor por que necesito
que me muestre l resultado por columnas cada que se llene una con
combinaciones o permutaciones.
Héctor Miguel
he probado el codigo 'sin enmienda' alguna y... [que crees ?] -> sin problemas
-> se auto-ajusta a las filas disponibles por columna (65536) con lo cual, para el ejemplo que pusiste:
-> P (permutaciones) puesto en la celda 'A1'
-> 7 (elementos por grupo) puesto en la celda 'A2'
-> a, c, c... j (10 elementos) puesto en el rango 'A3:A12'
ejecute la macro y los resultados fueron [obviamente, no lo hizo en un 'abrir y cerrar de ojos'] :-((
589824 registros quedaron en las 65536 filas de 9 columnas [A:I]
14976 registros quedaron en la columna 10 [J] dando un total de:
604800 permutaciones para 10 elementos en grupos de 7
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
__ la consulta original __
> si tienes razon son permutaciones y tambien lo necesito con combinaciones
> 250 en exel las columnas alcanzan hasta iv aprox 250 columnas en una hoja de exel
> y lo de 600000 si es exagerado pero me refiero a que una hoja de exel cuenta con un limite de 65536 filas
> lo cual no basta si se usara 60 numeros con grupos de 7 ... si por ejemplo asi 60 numeros sus permutaciones en grupos de 7
yedeon
7 numeros, nuestro maestro nos dice que es nuestra responsabilidad lograrlo y
solo nos aconsejo ecxel 2007 por mayor capacidad y haciendo calculo si caben
las combinacines posibles en una hoja de 1050000*600 pero al ejecutar el
macro y al escribir en la hoja en vertical comenzando por a1
c
3
1
2 y
3
4
y haber creado el boton q ejecuat el comando del macro
nos dice que hubo un error y nos manda al macro coloreando un renglon en
amarillo y ale intentamos pero no lo hemos resuelto y apenas va 1/3 del
macro ejecutado,,
es nuestro trabajoa final y muchos que decian ser ingeniosos y maestros de
visual simplemente no estan o no responden , eres nuestro maestro jedi y nos
padawanes
Héctor Miguel
> ... necesitamos 50 combinaciones posibles con 7 numeros
> nuestro maestro... solo nos aconsejo ecxel 2007 por mayor capacidad
> ... haciendo calculo si caben las combinacines posibles en una hoja de 1050000*600 [...]
[probablemente] una solucion seria agregar hojas segun sean *requeridas* -?-
pero me gustaria que confirmes/expongas/... algunos detalles *finales* [p.e.]
- combinaciones y/o permutaciones ?
- conjunto principal de cuantos elementos ?
- conjuntos secundarios de cuantos elementos ?
- version de excel que piensa utilizarse ?
- algun detalle que se nos pudiera quedar en el tintero ?
saludos,
hector.
p.d. podrias transcribir la linea de codigo donde salta el error ?
y... cuales eran los parametros que estaba ejecutando -?-
Héctor Miguel
recapitulando un poco acerca de las 'variables' que expones en esta consulta:
_____
> ... necesitamos 50 combinaciones posibles con 7 numeros
> nuestro maestro... solo nos aconsejo ecxel 2007 por mayor capacidad
> ... haciendo calculo si caben las combinacines posibles en una hoja de 1050000*600 [...]
¨¨¨¨¨¨¨¨
1) para un conjunto [principal] de 50 elementos, en subconjuntos [o grupos] de 7 elementos
se obtienen los siguienes resutados:
a) combinaciones = 99,884,400
b) permutaciones = 503,417,376,000
2) el numero de celdas disponibles [para depositar igual numero de resultados] es:
a) xl 97-2003 = 16,777,216 [256 columnas x 65,536 filas]
b) excel 2007 = 17,179,869,184 [16,384 columnas x 1,048,576 filas]
3) se necesitaria agregar el siguiente numero de hojas [segun version de excel]
a) combinaciones [97-2003] = 6 hojas [excel 2007] = una hoja es suficiente
b) permutaciones [97-2003] = 30,007 hojas [excel 1007] = 30 hojas
4) [como veras]... con los datos que expones:
"... necesitamos 50 combinaciones posibles con 7 numeros ..."
"... haciendo calculo si caben las combinacines posibles en una hoja de 1050000*600 ..."
-> todavia hay 'algo'... por lo que no alcanza a 'cuadrar el circulo' :-(
-> 1,050,000 * 600 = 630,000,000 o... 1,048,576 * 600 = 629,145,600
no se parece ni a las combinaciones ni a las permutaciones 'posibles' para 50/7 -?-
5) por esto es que te re/pregunto lo siguiente:
yedeon
como se puede copiar
a
a
b
b
b
y solo pegue 1 de cada valor
a
b
ya sea con formula de exel o con visual
Héctor Miguel
> ya lo resolvio un classmate thanks...
ok, supongo que me quedo con 'mis' dudas :))
aunque, para los pocos detalles que contestaste, 'presumo' que solo habia que eliminar
-> la linea que terminaba con el procedimiento si la 'siguiente' columna era superior a 256 -?-
> como se puede copiar
> a
> a
> b
> b
> b
> y solo pegue 1 de cada valor
> a
> b
> ya sea con formula de exel o con visual
-> prueba con los filtros avanzados, copiando a otro lugar y solo valores unicos ;)
saludos,
hector.