Это файл из Викисклада.
Из Википедии, бесплатной энциклопедии
Перейти к навигации Перейти к поиску

Оригинальный файл (WebM аудио / видео файлов, VP9, длина 33 сек, 1000 × 343 пикселей, 64 кбит в целом)

Резюме

Код Mathematica 12.0

data = Abs [ExampleData [{"TestImage", "Clock"}, "GrayLevels"] - 1];data2 = data [[64 ;; 191, 128 ;; 255]];pos = Позиция [данные2, _? (#> 0,4 ​​&)];образец = RandomSample [pos];h = Round [10 * ((data2 [[# [[1]]], # [[2]]]] & / @ sample) - 0,4) / Max [data2 - 0,4]];size = Размеры [data2] [[1]];ядро = RotateRight [PadRight [GaussianMatrix [{15, 5}], {размер, размер}], {-15, -15}];cd = RotateRight [Обратный Фурье [Фурье [данные2] * Сопряжение [Фурье [ядро]]], {10, 10}];p0 = Таблица [ GraphicsRow [{ ArrayPlot [cd, PlotLabel -> «Изображение с ограничением дифракции», LabelStyle -> {Black, Bold}], ArrayPlot [RotateRight [ядро, {-sample [[n, 1]] + 128, sample [[n, 2]]}], DataReversed -> True, PlotLabel -> «Изображение мигающих флуорофоров», LabelStyle -> {Black , Смелый}], Графика [{Black, PointSize [0.01], Table [{Opacity [h [[j]] / 10]], Point [{sample [[j, 2]]], -sample [[j, 1]] + 128}] " }, {j, 1, n}]},PlotRange -> {{0, 128}, {0, 128}}, Frame -> True, FrameTicks -> None, PlotLabel -> «Реконструированное изображение», LabelStyle -> {Black, Bold}]}, ImageSize -> 1000 ] , {n, 1, 5000, 10}];ListAnimate [p0]

Лицензирование

Я, владелец авторских прав на это произведение, публикую его под следующей лицензией:

Субтитры

Добавьте однострочное объяснение того, что представляет собой этот файл

Элементы, изображенные в этом файле

изображает

16 March 2020

История файлов

Щелкните дату / время, чтобы просмотреть файл в том виде, в котором он выглядел в то время.

Следующие страницы английской Википедии используют этот файл (страницы других проектов не указаны):

Метаданные