............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Combinatoria Ordinaria y Variaciones

Ver el tema anterior Ver el tema siguiente Ir abajo

Combinatoria Ordinaria y Variaciones

Mensaje por samros el Lun Jul 21, 2008 10:29 am

Saludos desde México, de nuevo de regreso con ustedes, no estaba muerto solo andaba de parranda y agrego este tema tan fasinante de combinatoria.

Estare creando mas archivos de estos y agregandolos para que aprendamos todos.

Permutas especiales

Sub Permutas()
'Combinaciones Ordinarias
Dim i, j, k As Variant
Dim fila As Variant
Dim x As Variant
Dim Cuenta As Variant

x = Range("A2")
Range("A4:C65536").ClearContents
For i = 0 To x
For j = 0 To x
For k = 0 To x
If i < j And i < k And j < k Then
fila = Cells(Rows.Count, "a").End(xlUp).Offset(1, 0).Row
Cells(fila, "a") = i
Cells(fila, "b") = j
Cells(fila, "c") = k
Cuenta = Cuenta + 1
Else
End If
Next k
Next j
Next i
Range("D3") = Cuenta & " Combinaciones Ordinarias"
End Sub

Sub Permutas2()
'Variaciones ordinarias
Dim l, m, n As Variant
Dim fila1 As Variant
Dim x1 As Variant
Dim Cuenta2 As Variant

x1 = Range("A2")
Range("A4:C65536").ClearContents
For l = 0 To x1
For m = 0 To x1
For n = 0 To x1
fila1 = Cells(Rows.Count, "a").End(xlUp).Offset(1, 0).Row
If l <> m And l <> n And m <> n Then
Cells(fila1, "a") = l
Cells(fila1, "b") = m
Cells(fila1, "c") = n
Cuenta2 = Cuenta2 + 1
Else
End If
Next n
Next m
Next l
Range("D3") = Cuenta2 & " Variaciones Ordinarias"
End Sub
avatar
samros

Masculino Cantidad de envíos : 115
Edad : 39
Ciudad - Pais : Guadalajara Jalisco Mexico
Version de Excel : 2003
Fecha de inscripción : 15/05/2008

http://accessam@mejorforo.net

Volver arriba Ir abajo

Re: Combinatoria Ordinaria y Variaciones

Mensaje por GalileoGali el Lun Jul 21, 2008 2:15 pm

Samros, se agradecen tus intervenciones, enriquecen este sitio.

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Combinatoria Ordinaria y Variaciones

Mensaje por samros el Lun Jul 21, 2008 5:29 pm

Galileo, saludos.

Me gusta mucho practicar en access y mi pregunta es si se pueden colocar ejemplos de estos en tu pagina, se que esta dedicada a excel pero tal vez se pueda abrir un grupo para ello, esto enrriqueceria mas el aprendizaje.

Gracias.
avatar
samros

Masculino Cantidad de envíos : 115
Edad : 39
Ciudad - Pais : Guadalajara Jalisco Mexico
Version de Excel : 2003
Fecha de inscripción : 15/05/2008

http://accessam@mejorforo.net

Volver arriba Ir abajo

Re: Combinatoria Ordinaria y Variaciones

Mensaje por GalileoGali el Lun Jul 21, 2008 6:23 pm

Muy Bueno Idea!!!,
Acabo de habilitar un SB-Foro, para ACCESS, esperemos que tenga buena repercusión.....

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Combinatoria Ordinaria y Variaciones

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.