{"id":1269,"date":"2017-06-15T05:45:07","date_gmt":"2017-06-15T11:45:07","guid":{"rendered":"http:\/\/agiltools.com\/blogsp\/?p=1269"},"modified":"2017-07-02T20:36:47","modified_gmt":"2017-07-03T02:36:47","slug":"fighters","status":"publish","type":"post","link":"http:\/\/agiltools.com\/blogsp\/fighters\/","title":{"rendered":"Fighters!"},"content":{"rendered":"

El problema original fue publicado por la revista InfORMS en Octubre de 2014.\u00a0A continuaci\u00f3n su versi\u00f3n en espa\u00f1ol.<\/p>\n

Cuatro combatientes debaten entre\u00a0qui\u00e9n de ellos es el m\u00e1s fuerte. La figura 1 muestra a los cuatro combatientes: Allan, Barry, Charles y Dan.
\nCada luchador tiene diferentes habilidades de ataque y resistencia. Al inicio de la batalla tienen diferentes puntos de resistencia:\u00a0Allan tiene 10, Barry tiene 12, Charles tiene 16 y Dan tiene\u00a018. Adem\u00e1s, cada luchador tiene diferentes puntos de ataque: Allan tiene 4, Barry tiene 3, Charles tiene 2 y Dan tiene 1.
\nLa batalla tiene lugar en varias rondas, cada\u00a0una\u00a0consistente en un solo ataque. En cada ronda, una\u00a0atacante aleatorio y un defensor aleatorio son elegidos.
\nCuando el atacante ataca a un defensor, el defensor pierde\u00a0puntos de resistencia en la cantidad equivalente a los puntos de ataque del contrincante. Por ejemplo, si Allan es el atacante\u00a0y\u00a0Barry es el defensor, Barry perder\u00eda cuatro puntos de\u00a0resistencia.
\nLos combatientes contin\u00faan atacando y defendiendo aleatoriamente\u00a0en las rondas siguientes hasta que s\u00f3lo queda un luchador,\u00a0quien entonces es declarado ganador. Se elimina un luchador\u00a0de la batalla cuando sus puntos de vida se convierten en cero (o menos).
\nPregunta: \u00bfQu\u00e9 peleador es m\u00e1s probable que gane la\u00a0batalla?<\/p>\n

\"\"<\/p>\n

 <\/p>\n

Un simple ejercicio de simulaci\u00f3n, la respuesta se publicar\u00e1 en una semana.<\/p>\n

 <\/p>\n

Respuesta<\/h2>\n

En el link de final de p\u00e1gina se encuentra una macro sencilla que permite simular m\u00faltiples repeticiones de un combate entre los cuatro jugadores. El c\u00f3digo que realiza la simulaci\u00f3n se explica a continuaci\u00f3n: En s\u00edntesis, una vez borrado el resultado de la ronda anterior, se elige un atacante y un defensor de manera aleatoria y se hace un ataque por un valor entre 1 y el m\u00ednimo entre el n\u00famero de puntos de defensa y el n\u00famero de puntos de ataque. Este valor se resta al jugador de defensa y se repite el proceso hasta que solo quede un jugador con puntos. Esto se contabiliza dentro del tablero de mando al inicio del archivo. Al final, luego de al menos 1000 repeticiones, se establece el jugador que m\u00e1s partidas ha ganado, que bajo las configuraciones descritas arriba es Charles con una probabilidad del 32.5%<\/strong>.<\/p>\n

Sub start()\r\nDim rng As Range\r\nDim sim As Worksheet\r\nSet sim = Sheets(\"sim\")\r\nsim.Range(\"B4:F4\").Select\r\nSelection.ClearContents\r\nRange(\"A1\").Select\r\nfrm1.Show\r\nIf frm1.Label2.Caption = 999 Then\r\n    Exit Sub\r\nEnd If\r\nFor t = 1 To frm1.TextBox1.Value\r\nsim.Range(\"A8:I2000\").Select\r\nSelection.ClearContents\r\nsim.Range(\"A1\").Select\r\nflag = 999\r\ni = 1\r\nWhile flag > 1\r\n    If i = 1 Then\r\n        v = 4\r\n    Else\r\n    Set rng = sim.Range(Cells(i + 6, 6), Cells(i + 6, 9))\r\n    Maximum = Application.WorksheetFunction.Max(rng)\r\n    v = Application.WorksheetFunction.CountIf(rng, \">0\")\r\n    End If\r\n   flTemp = 1\r\n   While flTemp = 1\r\n   atacker = Int(Rnd() * 4) + 1\r\n   If (sim.Cells(i + 6, 5 + atacker) > 0) Then\r\n    flTemp = 999\r\n    atackName = sim.Cells(1, 1 + atacker)\r\n   End If\r\n   Wend\r\n   flTemp = 1\r\n   While flTemp = 1\r\n   target = Int(Rnd() * 4) + 1\r\n   If (sim.Cells(i + 6, 5 + target) > 0 And target <> atacker) Then\r\n    flTemp = 999\r\n    targetName = sim.Cells(1, 1 + target)\r\n   End If\r\n   Wend\r\n   sim.Cells(i + 7, 1) = i\r\n   sim.Cells(i + 7, 2) = atackName\r\n   sim.Cells(i + 7, 3) = targetName\r\n   If (i = 1) Then\r\n    sim.Cells(i + 7, 4) = sim.Cells(2, 1 + target)\r\n    sim.Cells(i + 7, 5) = sim.Cells(3, 1 + atacker)\r\n    sim.Cells(i + 7, 6) = sim.Cells(2, 2)\r\n    sim.Cells(i + 7, 7) = sim.Cells(2, 3)\r\n    sim.Cells(i + 7, 8) = sim.Cells(2, 4)\r\n    sim.Cells(i + 7, 9) = sim.Cells(2, 5)\r\n    If sim.Cells(2, 1 + target) - sim.Cells(i + 7, 5) < 0 Then\r\n        sim.Cells(i + 7, 5 + target) = 0\r\n    Else\r\n        sim.Cells(i + 7, 5 + target) = sim.Cells(2, 1 + target) - sim.Cells(i + 7, 5)\r\n    End If\r\n   Else\r\n    sim.Cells(i + 7, 4) = sim.Cells(i + 6, 5 + target)\r\n    sim.Cells(i + 7, 5) = sim.Cells(3, 1 + atacker)\r\n    sim.Cells(i + 7, 6) = sim.Cells(i + 6, 6)\r\n    sim.Cells(i + 7, 7) = sim.Cells(i + 6, 7)\r\n    sim.Cells(i + 7, 8) = sim.Cells(i + 6, 8)\r\n    sim.Cells(i + 7, 9) = sim.Cells(i + 6, 9)\r\n    If sim.Cells(i + 6, 5 + target) - sim.Cells(i + 7, 5) < 0 Then\r\n        sim.Cells(i + 7, 5 + target) = 0\r\n    Else\r\n        sim.Cells(i + 7, 5 + target) = sim.Cells(i + 6, 5 + target) - sim.Cells(i + 7, 5)\r\n    End If\r\n   End If\r\n   'sim.Cells(i + 8) = i\r\n    Set rng = sim.Range(Cells(i + 7, 6), Cells(i + 7, 9))\r\n    Maximum = Application.WorksheetFunction.Max(rng)\r\n    v = Application.WorksheetFunction.CountIf(rng, \">0\")\r\n    If v < 2 Then\r\n        flag = 1\r\n        tSim = 0\r\n        For k = 1 To 4\r\n            If sim.Cells(i + 7, 5 + k) > 0 Then\r\n                winner = sim.Cells(7, 5 + k)\r\n                wc = k + 1\r\n            End If\r\n            tSim = tSim + sim.Cells(4, 1 + k)\r\n        Next k\r\n        sim.Cells(4, wc) = sim.Cells(4, wc) + 1\r\n        sim.Cells(4, 6) = tSim + 1\r\n    End If\r\n    i = i + 1\r\nWend\r\nNext t\r\nMsgBox (\"Done!\")\r\nEnd Sub\r\n<\/pre>\n
Descarga del archivo de Excel.<\/a><\/p>\n