Something like this with some specific values for A
, c1
, b
, k
and varying m
. The specific values are scoped to the With
.
With[{vals = {A -> 1, c1 -> 2, b -> 1, k -> 1}},
eqns = {P1, P2} /. First@Eq /. vals;
Plot[eqns, {m, 0, 1}, PlotLegends -> "Expressions"]]