Tag Info

New answers tagged

1

From Legended >> Details: x1 = With[{funcList = {Sin[t] rcap[t], Sin[t]^2 rcap[t]}, labelList = {"sin(\[Theta])", "\!\(\*SuperscriptBox[\(sin\), \(2\)]\)(\[Theta])"}}, With[{n = Length@funcList}, Legended[ParametricPlot[funcList, {t, 0, Pi}, PlotRange -> {-1, 1}, AxesLabel -> {x, y}], ...


0

There might be a missing double square bracket (you want the $i$th part of the list cVals instead of calling a function with argument $i$), i.e. instead of cVals[i] use cVals[[i]] Replacing the following in the definition of Subscript in your code gives a rudimentary legend: PlotLegends -> {"c=" <> ToString[cVals[[i]]]}


0

Clear[t] \[Tau] = 13.8; \[Omega]0 = 1; r = 0.7071; n = 1.7758; \[HBar] = 1.05457173*10^-34; \[Omega] = 0.5; k = 1666666.667; s = 2.2758; cVals = {2.4, 2.2, 2, 1.8, 1.5, 1.3}; color = {Red, Yellow, Green, Cyan, Blue, Orange}; Do[c = cVals[[i]]; system1 = {x'[t] == n*y[t], y'[t] == -n*x[t] - c*z[t], z'[t] == c*y[t]}; initialvalues1 ...


3

For version 9, the culprit seems to be the ImagePadding settings: bl1 = BarLegend[{"LakeColors", {0, 1}}, {0.2, 0.4, 0.5, 0.6, 0.8}, LegendFunction -> "Frame", LegendLabel -> Placed["1", Right]]; bl2 = BarLegend[{"LakeColors", {0, 1}}, {0.2, 0.4, 0.5, 0.6, 0.8}, LegendFunction -> "Frame", LegendLayout -> "Row", ...


3

BarLegend["Rainbow", LegendMargins -> {{25, 10}, {0, 15}}, LegendFunction -> (Framed[#, FrameMargins -> 0, RoundingRadius -> 10] &)] For label placement you can use BarLegend["Rainbow", LegendMargins -> {{25, 10}, {0, 15}}, LegendFunction -> (Framed[#, FrameMargins -> 0, RoundingRadius -> 10] &), ...



Top 50 recent answers are included