parametersNV := {R = 2.5};
parametersNV;
diffeq = {u''''[x] + \[Alpha]*(x*u'''[x] + 3*u''[x]) + R*u[x]*u'''[x] -
R*u'[x]*u''[x] == 0};
inicond = {u[0] == 0, u''[0] == 0, u[1] == 1, u'[1] == 0};
sol = ParametricNDSolve[{diffeq, inicond}, {u}, {x, 0, 4}, {\[Alpha]}];
d1 = Evaluate[u[0.1]'[x] /. sol];
framelbl := {{{"\[Theta](\[Zeta])",Rotate["", 180 Degree]}, {"\[Zeta]", parametersNV}}};
This is my code and i want to label my frame using the list parametersNV. The problem i am facing is that it only shows it value {2.5}. i want it to show R=2.5. i know i can achieve it by just enclosing is in " " and using in following command. The case i posted here is very simple. i am automating the system and would have to deal with many curves and parameters. So it would be good directly to use the aforementioned list. Here is my try.
pic = Plot[{d1}, {x, 0, 1}, PlotRange -> All, Axes -> False,Frame -> True, LabelStyle -> Black,FrameLabel -> {{"\[Phi](\[Eta])",Rotate["", 180 Degree]}, {"\[Eta]", parametersNV}}, PlotLegends ->Placed[LineLegend[Automatic, {"\[Lambda]=0.4", "\[Lambda]=-0.4"},LegendLayout -> "Column", LegendFunction -> "Frame",LegendMarkerSize -> {17, 1}], {0.84, 0.2}],FrameStyle -> Directive["Areal", 14]]
need it to be
pic = Plot[{d1}, {x, 0, 1}, PlotRange -> All, Axes -> False,Frame -> True,LabelStyle -> Black,FrameLabel -> {{"\[Phi](\[Eta])",Rotate["", 180 Degree]}, {"\[Eta]","need a lable here using framelbl saying R=2.5"}},PlotLegends ->Placed[LineLegend[Automatic, {"\[Lambda]=0.4", "\[Lambda]=-0.4"},LegendLayout -> "Column", LegendFunction -> "Frame",LegendMarkerSize->{17, 1}], {0.84,0.2}],FrameStyle->Directive["Areal", 14]]
R = 2.5; parametersNV = HoldForm[R = 2.5];
orR= 2.5; parametersNV = "R = 2.5";
? $\endgroup$parametersNV = Defer[R = 2.5];
work? $\endgroup$parametersNV={"R="<>ToString[the value from outer source]}
$\endgroup$