Файл:Depth Of Field.gif
Содержимое страницы недоступно на других языках.
Материал из Wikivoyage
Depth_Of_Field.gif (480 × 280 пкс, размер файла: 1,48 МБ, MIME-тип: image/gif, закольцованный, 128 фреймов, 13 с)
Этот файл из на Викискладе и может использоваться в других проектах. Информация с его страницы описания приведена ниже.
Краткое описание
ОписаниеDepth Of Field.gif |
English: In an imaging system, the range over which the size of the focus doesn't change very much (i.e. everything looks "in focus") can be manipulated by changing the aperture of a diaphragm in a trade-off between amount of light, focus size, and depth of field. |
Дата | |
Источник | https://twitter.com/j_bertolotti/status/1559876630625099776 |
Автор | Jacopo Bertolotti |
Права (Повторное использование этого файла) |
https://twitter.com/j_bertolotti/status/1030470604418428929 |
Mathematica 13.1 code
\[Lambda] = 1.; k = (2 \[Pi])/\[Lambda]; zr = \[Sigma]^2 k; w = Sqrt[(1/(\[Pi]/\[Lambda] \zr/(zr^2 + z^2)))];
Solve[(w /. {z -> z1}) == wz, \[Sigma]]
w1[wz_, z1_] := Evaluate@FullSimplify[ w /. {\[Sigma] -> 1/2 Sqrt[ wz^2 - Sqrt[\[Pi]^2 wz^4 - 4 z1^2 \[Lambda]^2]/\[Pi]]}];
rayleigh[wz_, z1_] := ((1/2 Sqrt[wz^2 - Sqrt[\[Pi]^2 wz^4 - 4 z1^2 \[Lambda]^2]/\[Pi]])^2 (2 \[Pi])/\[Lambda])
frames = Table[
Show[
Graphics[{
Table[{Black, Line[{{-50, j}, {50, -j}}]}, {j, 30, -30, -10}]
,
Table[{Black, Line[{{-50, j}, {-76, j}}]}, {j, 30, -30, -10}]
,
Table[{If[Abs[j] <= w0, Black, LightGray], Arrow[{{-75, j}, {-100, j}}]}, {j, 30, -30, -10}]
,
Red, Thick ,
Line[{{-rayleigh[w0, 50], 15}, {rayleigh[w0, 50], 15}}],
Line[{{-rayleigh[w0, 50], 14}, {-rayleigh[w0, 50], 16}}],
Line[{{rayleigh[w0, 50], 14}, {rayleigh[w0, 50], 16}}],
Line[{{-100, w0}, {-50, w0}}], Line[{{-100, -w0}, {-50, -w0}}],
Text[Style["Rayleigh Length\n(Depth of Field)", Bold, FontSize -> 12], {0, 25}]
}]
,
Plot[{w1[w0, 50], -w1[w0, 50]}, {z, -50, 50}, PlotStyle -> {Red, Red}]
,
Graphics[{
Gray, Disk[{-50, 0}, {3, 40}],
Black, Thickness[0.01], Line[{{-75, 40}, {-75, w0 + 2}}],
Line[{{-75, -40}, {-75, -w0 - 2}}]
, Text[Style["Diaphragm", Bold, FontSize -> 12], {-63, 45}]
}]
]
, {w0, 6, 35, 0.5}];
Dimensions[frames]
ListAnimate[Join[Table[frames[[-1]], 5], Reverse@frames, Table[frames[[1]], 5], frames ] ]
Лицензирование
Я, владелец авторских прав на это произведение, добровольно публикую его на условиях следующей лицензии:
Этот файл доступен на условиях Creative Commons CC0 1.0 Универсальной передачи в общественное достояние (Universal Public Domain Dedication). | |
Лица, связанные с работой над этим произведением, решили передать данное произведение в общественное достояние, отказавшись от всех прав на произведение по всему миру в рамках закона об авторских правах (а также связанных и смежных прав), в той степени, которую допускает закон. Вы можете копировать, изменять, распространять, исполнять данное произведение в любых целях, в том числе в коммерческих, без получения на это разрешения автора.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
Элементы, изображённые на этом файле
изображённый объект
У этого свойства есть некоторое значение без элемента в
17 августа 2022
image/gif
История файла
Нажмите на дату/время, чтобы увидеть версию файла от того времени.
Дата/время | Миниатюра | Размеры | Участник | Примечание | |
---|---|---|---|---|---|
текущий | 12:05, 18 августа 2022 | 480 × 280 (1,48 МБ) | Berto | Uploaded own work with UploadWizard |
Использование файла
Нет страниц, использующих этот файл.
Метаданные
Файл содержит дополнительные данные, обычно добавляемые цифровыми камерами или сканерами. Если файл после создания редактировался, то некоторые параметры могут не соответствовать текущему изображению.
Примечание GIF-файла | Created with the Wolfram Language : www.wolfram.com |
---|