I tried plotting the function shown below in Mathematica; however the plot showed nothing. Could you help me explain it?

Note that here D’ = 1- x.

ClearAll[a, x];

parameters = {0, 0.01, 0.02, 0.05, 0.1};

Plot[(1/((1 – x)*(1 + a/(1 – x)^2))) /@ parameters, {x, 0, 1},

PlotRange -> {{0, 1}, {0, 5}}]

=================

2

Try Function[a, (* your function *)] /@ parameters.

– J. M.♦

Feb 18 at 6:33

1

Please, post code, not images and try to format your question as to present a clear, self-contained entity. Any relevant bits and pieces — error messages, external definitions you are using are, of course, necessary.

– Louis

Feb 18 at 7:34

1

See How to copy code from Mathematica so it looks good on this site and Hints and help on using the site efficiently and How do I format my posts using Markdown or HTML? and read the FAQ

– Louis

Feb 18 at 7:34

Thank you, I will study it carefully.

– BlueSky

Feb 18 at 7:35

=================

1 Answer

1

=================

There are a number of ways to do this, e.g.:

f[a_, x_] := 1/((1 – x) (1 + a/(1 – x)^2))

parameters = {0, 0.01, 0.02, 0.05, 0.1};

Plot[Evaluate[f[#, x] & /@ parameters], {x, 0, 1},

PlotRange -> {0, 5},

PlotLegends ->

Table[Row[{“\!\(\*SubscriptBox[\(R\), \(L\)]\)/R=”, j}], {j,

parameters}]]

or using Table:

Plot[Evaluate[Table[f[j, x], {j, parameters}], {x, 0, 1}]]