Mic ([info]mi_b) wrote,
@ 2007-01-24 18:24:00
Previous Entry  Add to memories!  Tell a Friend!  Next Entry
пустышка, так обидно
Вот это



- график вот этой функции



via [info]vvagr.

сначала это меня поразило, потом я решил, что в это нельзя поверить. Но еще потом я понял, как это работает:
эта функция выдает побитово двоичное разложение 17[x]+mod([y],17). Делается это двоичным сдвигом (поэтому 2^...) и взятием последнего бита (поэтому mod(...,2)). То есть, для подходящего диапазона значений y нарисует вообще любую картинку 105х17. По заданной картинке нужный диапазон находится вытягиванием побитовой развертки в строку.

Когда знаешь, как работает, становится неинтересно. Действительно красивые результаты не теряют в красоте от того, что их лучше понимаешь. И, кстати, становится ясно, что неверно утверждение про self reference. И не случайно это лежит на сайте Wolfram research: Wolfram такие вещи любит - (около)математические утверждения, рассчитанные на то, чтобы поразить математика-любителя (меня, например), но где-то не слишком глубоко спрятан обман.




(Post a new comment)


[info]birdwatcher
2007-01-24 07:12 pm UTC (link)
Не знаю, мне с объяснением даже больше нравится. Это, оказывается, не бессмысленный прикол, а универсальный работающий инструмент.

(Reply to this)


[info]misha_b
2007-01-24 07:57 pm UTC (link)

Da, self-reference tyt ni pri chyom.

(Reply to this)


[info]abvgd
2007-01-24 08:33 pm UTC (link)
да не такая уж пустышка
Таппер, во всяком случае, заслужил респект
одно дело догадаться, как устроено, когда кто-то уже придумал
а совсем другое дело - первому придумать
да, собственно, даже после осознания главного принципа еще есть над чем подумать, чтобы правильно формулу подобрать
в общем, респект Тапперу

(Reply to this) (Thread)


[info]mi_b
2007-01-25 09:32 am UTC (link)
Тапперу-то респект, а называть это self-referencing - жульничество

(Reply to this) (Parent)


[info]alexeilebedev
2007-01-25 05:24 pm UTC (link)
да ну, mi_b совершенно прав. содержимое памяти вашего компьютера можно выписать как очень большое десятиричное число. так что теперь, распечатать это число и сказать, что оно волшебным образом умеет рисовать окна, компилировать программы и ходить по интернету?

(Reply to this) (Parent)(Thread)


[info]misha_b
2007-01-25 09:22 pm UTC (link)

Such a number does exist:

http://en.wikipedia.org/wiki/Chaitin's_constant

:)

(Reply to this) (Parent)


[info]ipain
2007-01-24 09:39 pm UTC (link)
чтобы поразить математика-любителя (меня

действительно, спит вольфрам и видит как бы ему получше вас обмануть.
у вас это проекция или зависть?

(Reply to this) (Thread)


[info]mi_b
2007-01-25 09:39 am UTC (link)
у меня это представление о бизнес-модели Wolfram Research ;) то есть, выдавание этой функции за sel-referencing очень похоже на его отркрытие заново теoрии PDE в "New Kind of Science"

(Reply to this) (Parent)(Thread)


[info]misha_b
2007-01-25 09:19 pm UTC (link)

Eto tu zrya. Mathematica -- krytaya shtyka.

Ny a Wolfram s ego New Science, ob etom v prilichnom obshestve ne stoit
ypominat' :)

(Reply to this) (Parent)


[info]flaass
2007-01-27 12:57 pm UTC (link)
Это реализован один из приемов, запрещенных в задаче о преограмме, печатающей свой текст: нельзя прочитать текст из файла и его распечатать.

(Reply to this) (Thread)

а вот это действительно - по делу
[info]qaraabayna
2007-03-20 01:51 pm UTC (link)
Действительно, нарушает.

Добавлю: битовая картинка записана в массиве единий и нулей двоичного представления floor(y/17), а то что названо "двоичное разложение 17[x]+mod([y],17)" - на самом деле просто координаты точки x, y%17 в этом массиве. Программа действительно рисует любые изображения на массиве 17*W (где W определяется разумеется длиной двоичного представления). Высота картинки задается там где 17, ширина - из файла. Если посмотреть, что происходит при "соседних" y, то становится не так интересно: идут многочисленные повторы картинки со все увеличивающимися искажениями.

(Reply to this) (Parent)


Create an Account
Forgot your login or password?
Login w/ OpenID
English • Español • Deutsch • Русский…