Reply to thread

Message

<blockquote data-quote="RedShirtNo5" data-source="post: 2174051" data-attributes="member: 173">This was done in Visual Basic 6.0 using a single form with a button and a textbox. It took about 5-10 minutes to run.&nbsp; &nbsp;The calculation of 31.12104 assumed point buy for stats below 8 scale linearly.&nbsp; I can calculate for other assumptions if folks are interested.&nbsp;[code]Private Sub Command1_Click()&nbsp;Dim V As SingleDim P As SingleDim A As SingleDim Value As SingleDim Probability As SingleDim Strength As IntegerDim Dexterity As IntegerDim Intelligence As IntegerDim Wisdom As IntegerDim Charisma As IntegerDim SampleText As String&nbsp;V = 0P = 0&nbsp;' We will cycle through each possible stat array that could be createdFor Strength = 3 To 18For Dexterity = 3 To 18For Constitution = 3 To 18For Intelligence = 3 To 18For Wisdom = 3 To 18For Charisma = 3 To 18&nbsp;' If the stat array is a &quot;worthless character&quot;, then skip it' Deal with no stats 14+ firstIf Strength &gt; 13 Or Dexterity &gt; 13 Or Consitution &gt; 13 _Or Intelligence &gt; 13 Or Wisdom &gt; 13 Or Chrarisma &gt; 13 Then&nbsp;' Deal with total mods of 0 or below next&nbsp; &nbsp; If Int((Strength - 10) / 2) + Int((Dexterity - 10) / 2)_&nbsp; &nbsp; + Int((Constitution - 10) / 2) + Int((Intelligence - 10) / 2)_&nbsp; &nbsp; + Int((Wisdom - 10) / 2) + Int((Charisma - 10) / 2) &gt; 0 Then&nbsp;' If the stat array is not a worthless character, calculate the ! point buy value (PBV) and the probability of that character occurring&nbsp; &nbsp; Value = PBV(Strength) + PBV(Dexterity) + PBV(Constitution)_&nbsp; &nbsp; + PBV(Intelligence) + PBV(Wisdom) + PBV(Charisma)&nbsp;&nbsp; &nbsp; Probability = prob(Strength) * prob(Dexterity) * prob(Constitution)_&nbsp; &nbsp; * prob(Intelligence) * prob(Wisdom) * prob(Charisma)&nbsp;' Add the weighted point buy value to a running total&nbsp; &nbsp; V = V + Value * Probability&nbsp;' Track the total probability (P) of getting a &quot;non-worthless&quot; character' for normalization below&nbsp; &nbsp; P = P + Probability&nbsp;&nbsp; &nbsp; End IfEnd If&nbsp;NextNextNextNextNextNext&nbsp;' We know the probability (1-P) of rolling a worthless character,' and we calculated the average point buy value (V) that results' from a single roll of 4d6dl. Since you keep rolling until you get a' non-worthless character, the percentage chance (1-P) of a ' worthless ' character gets distributed across the possible ' non-worthless characters. Thus, we simply need to normalize ' the result.A = V / P&nbsp;' And display itText1.Text = &quot;Final Result:&quot; + Str(A)&nbsp;End SubFunction PBV(x)' This assumes that point buy for stats below 8 scales linearlyIf x &lt; 15 Then PBV = x - 8If x = 15 Then PBV = 8If x = 16 Then PBV = 10If x = 17 Then PBV = 13If x = 18 Then PBV = 16End Function&nbsp;Function prob(x)'These percentages taken from dcollins ' ([url=&quot;http://superdan.net.home.comcast.net/dndmisc/4d6curve.html&quot;]http://superdan.net.home.comcast.net/dndmisc/4d6curve.html[/url])If x = 3 Then prob = 0.0008If x = 4 Then prob = 0.0031If x = 5 Then prob = 0.0077If x = 6 Then prob = 0.0162If x = 7 Then prob = 0.0293If x = 8 Then prob = 0.0478If x = 9 Then prob = 0.0702If x = 10 Then prob = 0.0941If x = 11 Then prob = 0.1142If x = 12 Then prob = 0.1289If x = 13 Then prob = 0.1327If x = 14 Then prob = 0.1235If x = 15 Then prob = 0.1011If x = 16 Then prob = 0.0725If x = 17 Then prob = 0.0417If x = 18 Then prob = 0.0162End Function&nbsp;[/code]</blockquote>

[QUOTE="RedShirtNo5, post: 2174051, member: 173"] This was done in Visual Basic 6.0 using a single form with a button and a textbox. It took about 5-10 minutes to run. The calculation of 31.12104 assumed point buy for stats below 8 scale linearly. I can calculate for other assumptions if folks are interested. [code] Private Sub Command1_Click() Dim V As Single Dim P As Single Dim A As Single Dim Value As Single Dim Probability As Single Dim Strength As Integer Dim Dexterity As Integer Dim Intelligence As Integer Dim Wisdom As Integer Dim Charisma As Integer Dim SampleText As String V = 0 P = 0 ' We will cycle through each possible stat array that could be created For Strength = 3 To 18 For Dexterity = 3 To 18 For Constitution = 3 To 18 For Intelligence = 3 To 18 For Wisdom = 3 To 18 For Charisma = 3 To 18 ' If the stat array is a "worthless character", then skip it ' Deal with no stats 14+ first If Strength > 13 Or Dexterity > 13 Or Consitution > 13 _ Or Intelligence > 13 Or Wisdom > 13 Or Chrarisma > 13 Then ' Deal with total mods of 0 or below next If Int((Strength - 10) / 2) + Int((Dexterity - 10) / 2)_ + Int((Constitution - 10) / 2) + Int((Intelligence - 10) / 2)_ + Int((Wisdom - 10) / 2) + Int((Charisma - 10) / 2) > 0 Then ' If the stat array is not a worthless character, calculate the ! point buy value (PBV) and the probability of that character occurring Value = PBV(Strength) + PBV(Dexterity) + PBV(Constitution)_ + PBV(Intelligence) + PBV(Wisdom) + PBV(Charisma) Probability = prob(Strength) * prob(Dexterity) * prob(Constitution)_ * prob(Intelligence) * prob(Wisdom) * prob(Charisma) ' Add the weighted point buy value to a running total V = V + Value * Probability ' Track the total probability (P) of getting a "non-worthless" character ' for normalization below P = P + Probability End If End If Next Next Next Next Next Next ' We know the probability (1-P) of rolling a worthless character, ' and we calculated the average point buy value (V) that results ' from a single roll of 4d6dl. Since you keep rolling until you get a ' non-worthless character, the percentage chance (1-P) of a ' worthless ' character gets distributed across the possible ' non-worthless characters. Thus, we simply need to normalize ' the result. A = V / P ' And display it Text1.Text = "Final Result:" + Str(A) End Sub Function PBV(x) ' This assumes that point buy for stats below 8 scales linearly If x < 15 Then PBV = x - 8 If x = 15 Then PBV = 8 If x = 16 Then PBV = 10 If x = 17 Then PBV = 13 If x = 18 Then PBV = 16 End Function Function prob(x) 'These percentages taken from dcollins ' ([url="http://superdan.net.home.comcast.net/dndmisc/4d6curve.html"]http://superdan.net.home.comcast.net/dndmisc/4d6curve.html[/url]) If x = 3 Then prob = 0.0008 If x = 4 Then prob = 0.0031 If x = 5 Then prob = 0.0077 If x = 6 Then prob = 0.0162 If x = 7 Then prob = 0.0293 If x = 8 Then prob = 0.0478 If x = 9 Then prob = 0.0702 If x = 10 Then prob = 0.0941 If x = 11 Then prob = 0.1142 If x = 12 Then prob = 0.1289 If x = 13 Then prob = 0.1327 If x = 14 Then prob = 0.1235 If x = 15 Then prob = 0.1011 If x = 16 Then prob = 0.0725 If x = 17 Then prob = 0.0417 If x = 18 Then prob = 0.0162 End Function [/code] [/QUOTE]

Verification