Oscillations_muon_short.svg
Size of this PNG preview of this SVG file:
363 × 250 pixels
.
Other resolutions:
320 × 220 pixels
|
640 × 441 pixels
|
1,024 × 705 pixels
|
1,280 × 882 pixels
|
2,560 × 1,763 pixels
.
Summary
Description Oscillations muon short.svg |
English:
Vacuum oscillation probabilities for electron (black), muon (blue) and tau (red) neutrinos for the following parameter values:
Mathematica source codeCS[z_] = Re[z]^2 + Im[z]^2; c12 := Cos[\[Theta]12]; c13 := Cos[\[Theta]13]; c23 := Cos[\[Theta]23]; s12 := Sin[\[Theta]12]; s13 := Sin[\[Theta]13]; s23 := Sin[\[Theta]23]; P[\[Alpha]_, \[Beta]_, LoverE_, \[Delta]_, \[Theta]12_, \[Theta]23_, \[Theta]13_, \ \[CapitalDelta]ms12_, \[CapitalDelta]ms23_, inverted_] = Block[{U, ms1, ms2, ms3}, ms1 = If[inverted, \[CapitalDelta]ms23 - \[CapitalDelta]ms12, 0]; (* Absolute mass does not matter, so put the lightest at zero *) ms2 = If[inverted, \[CapitalDelta]ms23, \[CapitalDelta]ms12]; ms3 = If[inverted, 0, \[CapitalDelta]ms12 + \[CapitalDelta]ms23]; U[a_, b_] := If[a == 1, If[b == 1, c13 c12, If[b == 2, c13 s12, If[b == 3, s13 E^(-I \[Delta])]]], If[a == 2, If[b == 1, -c23 s12 - s13 s23 c12 E^(I \[Delta]), If[b == 2, c23 c12 - s13 s23 s12 E^(I \[Delta]), If[b == 3, c13 s23]]], If[a == 3, If[b == 1, s23 s12 - s13 c23 c12 E^(I \[Delta]), If[b == 2, -s23 c12 - s13 c23 s12 E^(I \[Delta]), If[b == 3, c13 c23]]]]]]; CS[Sum[Conjugate[U[\[Alpha], i]] U[\[Beta], i] E^(-2 I ots If[i == 1, ms1, If[i == 2, ms2, If[i == 3, ms3, -1]]] LoverE), {i, 1, 3}]]]; (*********************************) ots = 1.2669327621645516; (* constant *) (* Neutrino parameters *) \ \[Theta]23 = ArcSin[Sqrt[0.97`]]/2; \[Theta]12 = ArcSin[Sqrt[0.861`]]/2; \[Theta]13 = ArcSin[Sqrt[0.1]]/2; \[Delta] = 0; \[CapitalDelta]ms23 = 0.00232`; \[CapitalDelta]ms12 = 0.0000759`; (* Initial neutrino and max L/E for plot *) initial = 2; maxLE = 4000; Plot[{ P[initial, 1, LoverE, \[Delta], \[Theta]12, \[Theta]23, \[Theta]13, \ \[CapitalDelta]ms12, \[CapitalDelta]ms23, False], P[initial, 2, LoverE, \[Delta], \[Theta]12, \[Theta]23, \[Theta]13, \ \[CapitalDelta]ms12, \[CapitalDelta]ms23, False], P[initial, 3, LoverE, \[Delta], \[Theta]12, \[Theta]23, \[Theta]13, \ \[CapitalDelta]ms12, \[CapitalDelta]ms23, False]}, {LoverE, 0, maxLE}, PlotRange -> {0, 1}, PlotPoints -> 500, PlotStyle -> {{Black, Thick}, {Blue, Thick}, {Red, Thick}}, Frame -> True, FrameLabel -> {{"Probability", ""}, {"L/E (km/GeV)", "Initial " <> If[initial == 1, "Electron", If[initial == 2, "Muon", "Tau"]] <> " Neutrino"}}, BaseStyle -> {FontSize -> 18}, ImageSize -> 500] |
Date | 26 August 2011 (original upload date) |
Source | Own work |
Author | Strait at English Wikipedia |
Licensing
Strait
at
English Wikipedia
, the copyright holder of this work, hereby publishes it under the following license:
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.
http://creativecommons.org/publicdomain/zero/1.0/deed.en CC0 Creative Commons Zero, Public Domain Dedication false false |
Original upload log
The original description page was
here
. All following user names refer to en.wikipedia.
Date/Time | Dimensions | User | Comment |
---|---|---|---|
2011-08-26 17:13 | 363×250× (382354 bytes) | Strait | Fix bounding box. |
2011-08-26 17:05 | 450×303× (382354 bytes) | Strait | New version of Muon_neutrino_oscillation_short.png that is an SVG and has thicker lines and bigger text relative to the image size. |