Von Mises circular distribution
VonMisesDistribution[μ, κ]
Mean[VonMisesDistribution[μ, κ]]
→ μPDF[VonMisesDistribution[μ, κ], x]
→ Piecewise[{{E^(κ*Cos[x - μ])/(2*Pi*BesselI[0, κ]), -Pi + μ <= x <= Pi + μ}}, 0]Plot[Table[PDF[VonMisesDistribution[μ, 2], x], {μ, {0, 2, 4}}]//Evaluate, {x, -4, 8}, Filling -> Axis]
→ -Graphics-