Timeline for Problem with RandomSearch option
Current License: CC BY-SA 4.0
6 events
| when toggle format | what | by | license | comment | |
|---|---|---|---|---|---|
| May 18, 2021 at 15:23 | vote | accept | user64494 | ||
| May 7, 2021 at 12:25 | comment | added | user64494 |
{1.4282892260442467457, {p[1] -> 0.4425246563389881153, p[2] -> 0.29444691323000000558, p[3] -> 0.12572534947384017300, p[4] -> 0.077676590570172439455, p[5] -> 0.027188684208537776711, p[6] -> 0.021795299720855472760, p[7] -> 0.0098369941067331116801, p[8] -> 0.0099145281647085854905, p[9] -> 0.0063505406743991386861, p[10] -> 0.0029157117376203413588, p[11] -> 6.1669354330318860399*10^-8, p[12] -> -0.01837532989520949036}}.
|
|
| May 7, 2021 at 12:25 | comment | added | user64494 |
Moreover,n = 12; NMaximize[{-Sum[ p[k]*Log[RealAbs[p[k]]], {k, 1, n}], Sum[p[k], {k, 1, n}] == 1 && Sum[k*p[k], {k, 1, n}] == 2 && Table[p[k], {k, 1, n}] > 0}, Table[p[k], {k, 1, n}], WorkingPrecision -> 20] results in
|
|
| May 7, 2021 at 11:32 | history | edited | user64494 | CC BY-SA 4.0 |
deleted 2 characters in body
|
| May 7, 2021 at 10:40 | answer | added | Ulrich Neumann | timeline score: 0 | |
| May 7, 2021 at 8:23 | history | asked | user64494 | CC BY-SA 4.0 |