Timeline for Generating random curves with fixed length and endpoint distance
Current License: CC BY-SA 3.0
4 events
| when toggle format | what | by | license | comment | |
|---|---|---|---|---|---|
| Jan 4, 2018 at 19:10 | history | edited | user44143 | CC BY-SA 3.0 |
updated graphic again
|
| Jan 4, 2018 at 18:35 | history | edited | user44143 | CC BY-SA 3.0 |
updated graphic
|
| Apr 28, 2017 at 20:59 | comment | added | user44143 | base = c {t, u}/Sqrt[t^2 + u^2]; vecs = {x, y} - base /. Simplify[Solve[x^2 + y^2 == c^2 == (x - t)^2 + (y - u)^2, {x, y}], Assumptions -> u > 0]; mid[c_, p_, q_, {r_, s_}, {t_, u_}] = {r, s} + base + p vecs[[1]] + q vecs[[2]] /. {t -> t - r, u -> u - s}; f[Rational[m_, n_]] := f[m/n] = mid[1/n, Random[], Random[], f[(m - 1)/n], f[(m + 1)/n]]; f[0] = {0, 0}; f[1] = {0.5, 0}; curve = Map[f, Range[0, 1, 1/1024]]; ListLinePlot[curve, AspectRatio -> Automatic] | |
| Apr 26, 2017 at 13:09 | history | answered | user44143 | CC BY-SA 3.0 |