I'm defining the functions in the following way
ClearAll[Ka, Po, r, P, L, PL];
params = {r, Po, Ka}
prmss = ToExpression[StringInsert[Map[ToString, %], "_", -1]]
eq = {Ka*P*L == PL, Po == P + PL, r*Po == L + PL};
variables = {P, L, PL};
sol = Solve[eq, variables] // Last;
(*Define functoins of variables*)
Table[variables[[i]][r_, Po_, Ka_] :=
Evaluate[(variables /. sol)[[i]]], {i, Length[sol]}];
Ka = 10000;
Po = 0.001;
ParametricPlot[Table[{r, variables[[i]] @@ params}, {i, Length[variables]}], {r, 0.1, 5}]
I would prefer do not list them explicitly like [r_, Po_, Ka_] but to do something like @@prmss
How I can do it in my case?