Descrição do ficheiro

DescriçãoStreaklines and pathlines animation.gif	English: The plot shows fluid flow under the velocity field ${\displaystyle \mathbf {u} (\mathbf {x} ,t)=(1,xt)}$. The red dot represents a particle released from the origin at time ${\displaystyle t=0}$, tracing out its pathline in red. As it moves, it leaves behind a trail of blue ink (released from the origin), which starts on the pathline, but is carried up by the fluid flow. The velocity is represented twice, with flow vectors, and the grey dashed streamlines, which connect the flow vectors. Deutsch: Die Grafik zeigt Fluid-Strömung in einem Geschwindigkeitsfeld ${\displaystyle \mathbf {u} (\mathbf {x} ,t)=(1,xt)}$. Der rote Punkt wird zum Zeitpunkt ${\displaystyle t=0}$ im Ursprung ins Feld gesetzt und zeichnet eine rote Bahnlinie. In seiner Bewegung hinterlässt er eine blaue Spur, die Streichlinie, die mit der Bahnlinie im Ursprung beginnt, aber die Punkte der Bahnlinie zeigt, wie sie von der Strömung des Fluids mitgenommen werden. Die Geschwindigkeit wird zweifach dargestellt; mit Strömungs-Vektoren und mit grau gestrichelten Stromlinien, die die Strömungs-Vektoren verbinden.
Data	5 de fevereiro de 2009
Origem	Obra do próprio   Este diagrama foi criado com o Mathematica
Autor	Fi1Kaiv8
Outras versões	Streaklines and pathlines animation (low).gif

Source code

p = Join[{
   If[x < t, 1/3 x^3, 100],
   If[x < t, 1/2 t x^2 - 1/6 x^3, 100]},
  Table[1/2 (x^2) t + y0, {y0, -10, 40, 0.9}]];
Export["plot.gif",
Table[Plot[p, {x, 0, 10.6},
  PlotRange -> {0, 10.6},
  AspectRatio -> 1,
  PlotRangeClipping -> True,
  PlotStyle ->
   PadRight[{Directive[Thickness[Medium], Red],
     Directive[Thickness[Medium], Green]}, 60,
    Directive[Gray, Dashed]],
  Exclusions -> {t},
  ExclusionsStyle -> None,
  ImageSize -> 500,
  AxesLabel -> {x, y},
  Epilog ->
   {Line[Flatten[
      With[{\[Epsilon] = 0.025},
       Table[{{x - \[Epsilon]/Sqrt[1 + x^2 t^2],
          y - x t \[Epsilon]/Sqrt[1 + x^2 t^2]}, {x + \[Epsilon]/
            Sqrt[1 + x^2 t^2],
          y + x t \[Epsilon]/Sqrt[1 + x^2 t^2]}}, {x, 0.1, 4,
         0.1}, {y, 0.1, 4, 0.1}]]
      , 1]],
    PointSize[0.015], Red, Point[{t, 1/3 t^3}]}
  ], {t, 0, 1.6, 0.025}],
AnimationRepetitions -> Infinity,
"DisplayDurations" -> PadLeft[{1.5}, 65, 0.1]
]

Licenciamento

Eu, titular dos direitos de autor desta obra, publico-a com as seguintes licenças:

A utilização deste ficheiro é regulada nos termos da licença Creative Commons - Atribuição-CompartilhaIgual 3.0 Não Adaptada.

Pode:

• partilhar – copiar, distribuir e transmitir a obra
• recombinar – criar obras derivadas

De acordo com as seguintes condições:

• atribuição – Tem de fazer a devida atribuição da autoria, fornecer uma hiperligação para a licença e indicar se foram feitas alterações. Pode fazê-lo de qualquer forma razoável, mas não de forma a sugerir que o licenciador o apoia ou subscreve o seu uso da obra.
• partilha nos termos da mesma licença – Se remisturar, transformar ou ampliar o conteúdo, tem de distribuir as suas contribuições com a mesma licença ou uma licença compatível com a original.

https://creativecommons.org/licenses/by-sa/3.0CC BY-SA 3.0 Creative Commons Attribution-Share Alike 3.0 truetrue

É concedida permissão para copiar, distribuir e/ou modificar este documento nos termos da Licença de Documentação Livre GNU, versão 1.2 ou qualquer versão posterior publicada pela Free Software Foundation; sem Secções Invariantes, sem textos de Capa e sem textos de Contra-Capa. É incluída uma cópia da licença na secção intitulada GNU Free Documentation License.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue

Pode escolher a licença que quiser.