ICM: has anyone created this formula in excel?

[Superflush]

Has anyone created a formula for ICM in excel for 4 players? Or can someone explain how this formula works so I can create it myself?

I've been reading a lot about ICM lately and i'd really like to try and get a quick formula in excel to help me with some late game decisions.

[Sparta45]

I would just buy sngpt and update the tournament structures. Similar to what one would do for the 6 man tournaments that only pay top 2.

[Slim Pickens]

I've got one. I didn't write it and I forget who did but PM me an email address and I'll send it to you. If we're really lucky, whoever wrote it will post the link again.

[Mark1978]

There's one in here you can use:
ICM Spreadsheet

[CheeseMoney]

That is a sic ICM spreadsheet. I use SNGPT (really wish he'd upgrade the interface and provide a quiz mode, but whatever) for ICM calcs, and have my own little horrible ICM calculator that I wrote in excel (that just calculates equity, and doesn't even bother with hands), but can someone more knowledgeable in excel than me let me know about the functions that he has written to calculate chip EV (AVGcEV) and the other lookup (KSPerc) when I thought that they would have to be included as Macros, yet I can't find them? I would love to take a look at the functions.

I may clean up my SAGE/Nash EQ spreadsheet and post it after I fine tune it a little bit.

[xPeru]

Look at the modules in the VB editor, the functions are all explicit there.

[CheeseMoney]

Apparently I need a password to do so. I'm guessing it is encrypted/protected?

[xPeru]

I just downloaded it, clicked on the VB editor and clicked on module1, no password required. eg.

Function AVGcEV2(sRange, sHeroHand)


If sRange = "" Then
AVGcEV2 = 0
Exit Function
End If

'// Count number of each possible hand for villain
Dim aVillainHands(169)
Dim aHands, iEV, e, iKSRank, iHandPerms, iTotalHands, i

aHands = Split(RangeResolve(sRange), ",")
iEV = 0

For Each e In aHands
iKSRank = KSRank(e)
iHandPerms = RangeCount(sHeroHand, e)
aVillainHands(iKSRank) = aVillainHands(iKSRank) + iHandPerms
iEV = iEV + (Sheets(3).Cells(KSRank(sHeroHand), KSRank(e)) * iHandPerms)
Next

iTotalHands = 0

For i = 1 To 169
iTotalHands = iTotalHands + aVillainHands(i)
Next

iEV = iEV / iTotalHands

AVGcEV2 = iEV


End Function

[xPeru]

I am an excelophile, and I think this workbook is awesome. TYVM to whoever put the effort in.

[BvlyHls90210]

If you understand ICM, making the spreadsheet yourself would be simple.