Файл:Conway's constant.svg
Перейти к навигации
Перейти к поиску
Размер этого PNG-превью для исходного SVG-файла: 600 × 600 пкс. Другие разрешения: 240 × 240 пкс | 480 × 480 пкс | 768 × 768 пкс | 1024 × 1024 пкс | 2048 × 2048 пкс | 694 × 694 пкс.
Исходный файл (SVG-файл, номинально 694 × 694 пкс, размер файла: 35 КБ)
Краткое описание
| Описание |
English: The lines show the growth of the numbers of digits in the look-and-say sequences with starting points 23 (red), 1 (blue), 13 (violet), 312 (green). These lines (when represented in a logarithmic scale) tend to straight lines whose slopes coincide with Conway's constant. |
| Дата | |
| Источник |
Plotted in Maple and converted to SVG format in Inkscape, using the following Maple code: > with(plots); > f := proc (n) options operator, arrow; `mod`(n, 10) end proc; > g := proc (n) options operator, arrow; `mod`(floor((1/10)*n), 10) end proc; > h := proc (n) if 1 <= evalf(log10(n)) then if f(n) = g(n) then return 1+h(floor((1/10)*n)) else return 1 end if else return 1 end if end proc; > k := proc (n) if 0 < n then return f(n)+10*h(n)+10^(floor(log10(f(n)+10*h(n)))+1)*k(floor(n/10^h(n))) else return 0 end if end proc; > sequence := proc (N) local i; for i to 19 do N[i+1] := [][i][2])] end do end proc; > sequencedigits := proc (N) local i; for i to 20 do N[i][2] := floor(log10(N[i][2])) end do end proc; > AA := vector(20); AA[1] := [1, 23]; sequence(AA); sequencedigits(AA); a := logplot(AA, color = red); > BB := vector(20); BB[1] := [1, 1]; sequence(BB); sequencedigits(BB); b := logplot(BB, color = blue); > CC := vector(20); CC[1] := [1, 13]; sequence(CC); sequencedigits(CC); c := logplot(CC, color = violet); > DD := vector(20); DD[1] := [1, 312]; sequence(DD); sequencedigits(DD); d := logplot(DD, color = green); > display(a, b, c, d, view = [1 .. 20, 1 .. 10000]); |
| Автор | Sandrobt |
Лицензирование
Я, владелец авторских прав на это произведение, добровольно публикую его на условиях следующих лицензий:
Этот файл доступен по лицензии Creative Commons Attribution-Share Alike 3.0 Unported.
- Вы можете свободно:
- делиться произведением – копировать, распространять и передавать данное произведение
- создавать производные – переделывать данное произведение
- При соблюдении следующих условий:
- атрибуция – Вы должны указать авторство, предоставить ссылку на лицензию и указать, внёс ли автор какие-либо изменения. Это можно сделать любым разумным способом, но не создавая впечатление, что лицензиат поддерживает вас или использование вами данного произведения.
- распространение на тех же условиях – Если вы изменяете, преобразуете или создаёте иное произведение на основе данного, то обязаны использовать лицензию исходного произведения или лицензию, совместимую с исходной.
|
Разрешается копировать, распространять и/или изменять этот документ в соответствии с условиями GNU Free Documentation License версии 1.2 или более поздней, опубликованной Фондом свободного программного обеспечения, без неизменяемых разделов, без текстов, помещаемых на первой и последней обложке. Копия лицензии включена в раздел, озаглавленный GNU Free Documentation License. |
Вы можете выбрать любую из этих лицензий.
История файла
Нажмите на дату/время, чтобы увидеть версию файла от того времени.
| Дата/время | Миниатюра | Размеры | Участник | Примечание | |
|---|---|---|---|---|---|
| текущий | 01:04, 6 февраля 2011 | | 694 × 694 (35 КБ) | wikimediacommons>Beao | Transparent. |
Использование файла
Следующая страница использует этот файл:
