Для получения дополнительной информации см. Help: SVG .
На других языках
Алеманниш | العربية | беларуская (тарашкевіца) | български | বাংলা | катала | нохчийн | Чештина | данск | Deutsch | Ελληνικά | Английский | Эсперанто | español | eesti | эускара | فارسی | суоми | français | Фрыск | галего | עברית | хрватски | мадьяр | հայերեն | Бахаса Индонезия | итальянский |日本語 | ქართული | 한국어 | lietuvių | македонски | മലയാളം | Бахаса Мелайу | норск бокмол | Plattdüütsch | Нидерланды | норск нюнорск | Норск | окситанский | польски | португалия | português do Brasil | română | русский | сицилиану | Шотландцы | словенчина | словенщина | српски / srpski | свенска | ไทย | Türkçe | татарча / tatarça | українська | венето | Tiếng Việt | опубликованные объявления категории | опубликованные объявления категории (中国大陆) | опубликованные объявления категории (简体) | опубликованные объявления категории (繁體) | опубликованные объявления категории (马来西亚) | опубликованные объявления категории (台灣) | +/−
Резюме
ОписаниеDiffusionMicroMacro.gif
Английский: диффузия с микроскопической и макроскопической точки зрения. Изначально молекулы растворенных веществ находятся на левой стороне барьера (пурпурная линия), а на правой - нет. Барьер удаляется, и растворенное вещество диффундирует, заполняя весь контейнер. Вверху: одна молекула движется случайным образом. В центре: при увеличении количества молекул наблюдается четкая тенденция к тому, что растворенное вещество заполняет контейнер все более и более равномерно. Внизу: с огромным количеством молекул растворенного вещества случайность исчезла: растворенное вещество, кажется, плавно и систематически перемещается из областей с высокой концентрацией в области с низкой концентрацией в соответствии с законами Фика. Изображение выполнено в системе Mathematica, исходный код приведен ниже.
Я, владелец авторских прав на это произведение, передаю его в общественное достояние . Это применимо во всем мире. В некоторых странах это может быть невозможно по закону; если да: я даю кому-либо право использовать это произведение в любых целях , без каких-либо условий, если только такие условия не требуются по закону.
<< Исходный код системы Mathematica >>
(* Исходный код, написанный в системе Mathematica 6.0, Стив Бирнс, 2010 г.Я передаю этот код в общественное достояние. Извините, это грязно ... Напишите мне по любым вопросам. *)(* Моделирование частиц *)SeedRandom [1];NumParticles = 70;xMax = 0,7;yMax = 0,2;xStartMax = 0,5;StepDist = 0,04;InitParticleCoordinates = Таблица [{RandomReal [{0, xStartMax}], RandomReal [{0, yMax}]}, {i, 1, NumParticles}];StayInBoxX [x_]: = Если [x <0, -x, If [x> xMax, 2 xMax - x, x]];StayInBoxY [y_]: = Если [y <0, -y, If [y> yMax, 2 yMax - y, y]];StayInBoxXY [xy_]: = {StayInBoxX [xy [[1]]], StayInBoxY [xy [[2]]]};StayInBarX [x_]: = Если [x <0, -x, If [x> xStartMax, 2 xStartMax - x, x]];StayInBarY [y_]: = Если [y <0, -y, If [y> yMax, 2 yMax - y, y]];StayInBarXY [xy_]: = {StayInBarX [xy [[1]]], StayInBarY [xy [[2]]]};MoveAStep [xy_]: = StayInBoxXY [xy + {RandomReal [{- StepDist, StepDist}], RandomReal [{- StepDist, StepDist}]}];MoveAStepBar [xy_]: = StayInBarXY [xy + {RandomReal [{- StepDist, StepDist}], RandomReal [{- StepDist, StepDist}]}];NextParticleCoordinates [ParticleCoords_]: = MoveAStep / @ ParticleCoords;NextParticleCoordinatesBar [ParticleCoords_]: = MoveAStepBar / @ ParticleCoords;NumFramesBarrier = 10;NumFramesNoBarrier = 50;NumFrames = NumFramesBarrier + NumFramesNoBarrier;ParticleCoordinatesTable = Таблица [0, {i, 1, NumFrames}];Таблица Координат Частиц [[1]] = Координаты Начальной части;Для [i = 2, i <= NumFrames, i ++, Если [i <= NumFramesBarrier, ParticleCoordinatesTable [[i]] = NextParticleCoordinatesBar [ParticleCoordinatesTable [[i - 1]]], Таблица координат частиц [[i]] = Координаты следующей частицы [Таблица координат частиц [[i - 1]]]];];(* Постройте полное моделирование частиц *)makeplotbar [ParticleCoord_]: = ListPlot [{ParticleCoord, {{xStartMax, 0}, {xStartMax, yMax}}}, Frame -> True, Axes -> False, PlotRange -> {{0, xMax}, {0, yMax}}, Joined -> {False, True}, PlotStyle -> {PointSize [.03], Thick}, AspectRatio -> yMax / xMax, FrameTicks -> None];makeplot [ParticleCoord_]: = ListPlot [ParticleCoord, Frame -> True, Axes -> False, PlotRange -> {{0, xMax}, {0, yMax}}, Joined -> False, PlotStyle -> PointSize [.03], AspectRatio -> yMax / xMax, FrameTicks -> None]График частиц = Присоединитесь к [Таблица [makeplotbar [ParticleCoordinatesTable [[i]]]], {i, 1, NumFramesBarrier}], Таблица [makeplot [ParticleCoordinatesTable [[i]]], {i, NumFramesBarrier + 1, NumFrames}]];(* Постройте только первую частицу в списке ... На самом деле пятая частица выглядит лучше. *) FirstParticleTable = {# [[5]]} & / @ ParticleCoordinatesTable;FirstParticlePlots = Присоединяйтесь к [Таблица [makeplotbar [FirstParticleTable [[i]]], {i, 1, NumFramesBarrier}], Таблица [makeplot [FirstParticleTable [[i]]], {i, NumFramesBarrier + 1, NumFrames}]];(* Континуум раствор *)(* Я могу использовать простую формулу диффузии на бесконечной линии, если я правильно периодически повторяюначальное состояние. Фактически, мы просто вычислили ближайшие пять реплик в каждом направлении, это было прекрасным приближением. *)(* k = коэффициент диффузии, визуально согласованный с моделированием. *)k = 0,0007; u [x_, t_]: = Если [t == 0, Если [x <= xStartMax, 1, 0], 1/2 суммы [ Erf [(x - (-xStartMax + 2 n xMax)) / Sqrt [4 kt]] - Erf [(x - (xStartMax + 2 n xMax)) / Sqrt [4 kt]], {n, -5, 5 }]];ContinuumPlots = Присоединяйтесь [ Таблица [Показать [ DensityPlot [1 - u [x, 0], {x, 0, xMax}, {y, 0, yMax}, ColorFunctionScaling -> False, AspectRatio -> yMax / xMax, FrameTicks -> Нет], ListPlot [{{xStartMax, 0}, {xStartMax, yMax}}, Joined -> True, PlotStyle -> {Толстый, фиолетовый}]], {i, 1, NumFramesBarrier}], Таблица[ DensityPlot [1 - u [x, tt], {x, 0, xMax}, {y, 0, yMax}, ColorFunctionScaling -> False, AspectRatio -> yMax / xMax, FrameTicks -> Нет], {tt, 1, NumFramesNoBarrier}]];(* Комбинировать и экспортировать *)TogetherPlots = Таблица [GraphicsGrid [{{FirstParticlePlots [[i]]}, {ParticlesPlots [[i]]}, {ContinuumPlots [[i]]}}}, Интервалы -> Масштабирование [0.2]], {i, 1, NumFrames}];Экспорт ["test.gif", Объединить [TogetherPlots, Table [Graphics [], {i, 1, 5}]], «DisplayDurations» -> {10}, «AnimationRepititions» -> Infinity]
Субтитры
Добавьте однострочное объяснение того, что представляет собой этот файл
inception<\/a>"}},"text\/plain":{"en":{"":"inception"}}},"{\"value\":{\"time\":\"+2010-01-16T00:00:00Z\",\"timezone\":0,\"before\":0,\"after\":0,\"precision\":11,\"calendarmodel\":\"http:\\\/\\\/www.wikidata.org\\\/entity\\\/Q1985727\"},\"type\":\"time\"}":{"text\/html":{"en":{"P571":"16 January 2010"}},"text\/plain":{"en":{"P571":"16 January 2010"}}}}" class="wbmi-entityview-statementsGroup wbmi-entityview-statementsGroup-P571 oo-ui-layout oo-ui-panelLayout oo-ui-panelLayout-framed">
зарождение
16 января 2010 г.
История файлов
Щелкните дату / время, чтобы просмотреть файл в том виде, в котором он выглядел в то время.
{{Информация | Описание = {{ru | 1 = Диффузия с микроскопической и макроскопической точки зрения. Изначально молекулы растворенных веществ находятся на левой стороне барьера (фиолетовая линия), а на правой - нет. Барьер удаляется, и растворенное вещество диффундирует, заполняя
Использование файла
Следующие страницы английской Википедии используют этот файл (страницы других проектов не указаны):