File:NegativeTemperature.webm

From Wikimedia Commons, the free media repository
Jump to navigation Jump to search

NegativeTemperature.webm ‎(WebM audio/video file, VP9, length 43 s, 480 × 480 pixels, 1.6 Mbps overall, file size: 8.27 MB)

Captions

Captions

Add a one-line explanation of what this file represents

Summary[edit]

Description
English: In classical statistical mechanics temperature tells you how likely it is to occupy a given energy level. At T=0 all particles occupy the ground state. For T>0 higher energy levels become accessible, with a probability given by the Boltzmann distribution, which is essentially en exponential, so states with energies higher than ~kB T (where "kB" is the Boltzmann constant) are unlikely to be occupied. For T=∞ all states are equiprobable. On the other hand there are cases where you have more population in higher energy levels than in the lower ones (e.g. in laser's population inversion). How to describe this case?

Enter negative temperatures.

If we use a negative temperature we "flip" the Boltzmann distribution, making higher energy levels more likely to be populated. Oddly, a large negative temperature lead to a distribution not too dissimilar from the one from a large positive temperature. But a small negative temperature means that almost all particles will populate the highest energy levels. In a sense a negative temperature is MUCH hotter than a positive one!
Date
Source https://twitter.com/j_bertolotti/status/1366420591247560707
Author Jacopo Bertolotti
Permission
(Reusing this file)		 https://twitter.com/j_bertolotti/status/1030470604418428929


Mathematica 12.0 code[edit]

n = 1000;
Emax = 100;
kb = 1;
T = -(Emax/kb)*0.01;
\[Delta] = 1;
tsteps = Table[Emax/kb E^t, {t, Log[0.01], Log[5], (Log[5] - Log[0.01])/100}];
frames = Table[
   \[ScriptCapitalD] = ProbabilityDistribution[E^(-(x/(kb T)))/Sum[E^(-(j/(kb T))), {j, 0, Emax, 1}], {x, 0, Emax, 1}];
   occupation = Transpose[{Range[Emax], BinCounts[RandomVariate[\[ScriptCapitalD], n], {1, Emax + 1, 1} ]
      }];
   Graphics[{
     Blue, 
     Table[Line[{{0, j}, {Emax*\[Delta], j}}], {j, 0, Emax*\[Delta], \[Delta]}],
     Black, 
     Table[Disk[{(Emax*\[Delta]*j)/(occupation[[k, 2]] + 1) + RandomReal[{-5, 5}], occupation[[k, 1]]}, \[Delta]], {k, 1, Emax}, {j, 1, occupation[[k, 2]]}]
     ,
     Text[ Style["\!\(\*SubscriptBox[\(E\), \(0\)]\)", Black, Bold, FontSize -> 16], {-5, 0}],
     Text[ Style["\!\(\*SubscriptBox[\(E\), \(max\)]\)", Black, Bold, FontSize -> 16], {-5, Emax}],
     Text[ Style[StringForm["T=`` \!\(\*SubscriptBox[\(E\), \\(max\)]\)/\!\(\*SubscriptBox[\(k\), \(b\)]\)", NumberForm[T/Emax*kb, {3, 2}]], Black, Bold, FontSize -> 16], {Emax/2, Emax + 7}]
     }, PlotRange -> {{-(Emax/10), Emax + Emax/10}, {-(Emax/10), Emax + Emax/10}}]
   , {T, tsteps}];
(**)
occupation = Table[{j, n/Emax}, {j, 1, Emax}];
framesInf = Table[
   Graphics[{
     Blue, 
     Table[Line[{{0, j}, {Emax*\[Delta], j}}], {j, 0, Emax*\[Delta], \[Delta]}],
     Black, 
     Table[Disk[{(Emax*\[Delta]*j)/(occupation[[k, 2]] + 1) + RandomReal[{-5, 5}], occupation[[k, 1]]}, \[Delta]], {k, 1, Emax}, {j, 1, occupation[[k, 2]]}]
     ,
     Text[Style["\!\(\*SubscriptBox[\(E\), \(0\)]\)", Black, Bold, FontSize -> 16], {-5, 0}],
     Text[Style["\!\(\*SubscriptBox[\(E\), \(max\)]\)", Black, Bold, FontSize -> 16], {-5, Emax}],
     Text[Style[StringForm["T=\[Infinity] \!\(\*SubscriptBox[\(E\), \\(max\)]\)/\!\(\*SubscriptBox[\(k\), \(b\)]\)", NumberForm[T/Emax*kb, {3, 2}]], Black, Bold, FontSize -> 16], {Emax/2, Emax + 7}]
     }, PlotRange -> {{-(Emax/10), Emax + Emax/10}, {-(Emax/10), Emax + Emax/10}}]
   , {10}];
(**)
occupation = Table[{j, If[j == 1, n, 0]}, {j, 1, Emax}];
frames0 = Table[
   Graphics[{
     Blue, 
     Table[Line[{{0, j}, {Emax*\[Delta], j}}], {j, 0, Emax*\[Delta], \[Delta]}],
     Black, 
     Table[Disk[{(Emax*\[Delta]*j)/(occupation[[k, 2]] + 1), occupation[[k, 1]]}, \[Delta]], {k, 1, Emax}, {j, 1, occupation[[k, 2]]}]
     ,
     Text[Style["\!\(\*SubscriptBox[\(E\), \(0\)]\)", Black, Bold, FontSize -> 16], {-5, 0}],
     Text[Style["\!\(\*SubscriptBox[\(E\), \(max\)]\)", Black, Bold, FontSize -> 16], {-5, Emax}],
     Text[Style[StringForm["T=0 \!\(\*SubscriptBox[\(E\), \(max\)]\)/\!\(\*SubscriptBox[\\(k\), \(b\)]\)", NumberForm[T/Emax*kb, {3, 2}]], Black, Bold, FontSize -> 16], {Emax/2, Emax + 7}]
     }, PlotRange -> {{-(Emax/10), Emax + Emax/10}, {-(Emax/10), Emax + Emax/10}}]
   , {1}];
(**)
tsteps = Table[-(Emax/kb) E^t, {t, Log[0.01], Log[5], (Log[5] - Log[0.01])/100}];
framesNeg = Table[
   \[ScriptCapitalD] = ProbabilityDistribution[E^(-(x/(kb T)))/Sum[E^(-(j/(kb T))), {j, 0, Emax, 1}], {x, 0, Emax, 1}];
   occupation = Transpose[{Range[Emax], BinCounts[RandomVariate[\[ScriptCapitalD], n], {1, Emax + 1, 1} ]
      }];
   Graphics[{
     Blue, 
     Table[Line[{{0, j}, {Emax*\[Delta], j}}], {j, 0, Emax*\[Delta], \[Delta]}],
     Black, 
     Table[Disk[{(Emax*\[Delta]*j)/(occupation[[k, 2]] + 1) + RandomReal[{-5, 5}], occupation[[k, 1]]}, \[Delta]], {k, 1, Emax}, {j, 1, occupation[[k, 2]]}]
     ,
     Text[Style["\!\(\*SubscriptBox[\(E\), \(0\)]\)", Black, Bold, FontSize -> 16], {-5, 0}],
     Text[Style["\!\(\*SubscriptBox[\(E\), \(max\)]\)", Black, Bold, FontSize -> 16], {-5, Emax}],
     Text[Style[StringForm["T=`` \!\(\*SubscriptBox[\(E\), \\(max\)]\)/\!\(\*SubscriptBox[\(k\), \(b\)]\)", NumberForm[T/Emax*kb, {3, 2}]], Black, Bold, FontSize -> 16], {Emax/2, Emax + 7}]
     }, PlotRange -> {{-(Emax/10), Emax + Emax/10}, {-(Emax/10), Emax + Emax/10}}]
   , {T, tsteps}];

Licensing[edit]

I, the copyright holder of this work, hereby publish it under the following license:
Creative Commons CC-Zero This file is made available under the Creative Commons CC0 1.0 Universal Public Domain Dedication.
The person who associated a work with this deed has dedicated the work to the public domain by waiving all of their rights to the work worldwide under copyright law, including all related and neighboring rights, to the extent allowed by law. You can copy, modify, distribute and perform the work, even for commercial purposes, all without asking permission.

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current09:20, 2 March 202143 s, 480 × 480 (8.27 MB)Berto (talk | contribs)Imported media from uploads:30128ef2-7b38-11eb-8389-0a7fb64cb320

You cannot overwrite this file.

The following page uses this file:

Transcode status

Update transcode status
Format Bitrate Download Status Encode time
VP9 480P 1.08 Mbps Completed 09:20, 2 March 2021 45 s
Streaming 480p (VP9) Not ready Unknown status
VP9 360P 626 kbps Completed 09:21, 2 March 2021 48 s
Streaming 360p (VP9) Not ready Unknown status
VP9 240P 316 kbps Completed 09:20, 2 March 2021 34 s
Streaming 240p (VP9) 316 kbps Completed 21:56, 5 February 2024 1.0 s
WebM 360P 538 kbps Completed 09:20, 2 March 2021 11 s
Streaming 144p (MJPEG) 788 kbps Completed 18:09, 15 November 2023 2.0 s

File usage on other wikis

The following other wikis use this file:

Metadata

This file contains additional information such as Exif metadata which may have been added by the digital camera, scanner, or software program used to create or digitize it. If the file has been modified from its original state, some details such as the timestamp may not fully reflect those of the original file. The timestamp is only as accurate as the clock in the camera, and it may be completely wrong.

Retrieved from "https://commons.wikimedia.org/w/index.php?title=File:NegativeTemperature.webm&oldid=606603258"