Map several functions in one routine

Question

I have several functions, let's assume they are:

func1[x_]=x;
func2[x_]=3*x-5;
func3[x_]=0.1*x^2;

and a lot more like these.

For each and every one of these I want to do the following

xvalues = Range[0, 500, 2.5];
points1 = Map[func1, xvalues];
Do[If points1[[[i]] < 0, points1[[i]] = 0, points1[[i]] = points1[[i]], 
 {i, 1,  Length[points1]}]
table1 = Transpose[{xvalues, points1}];

Now seeing as I have a lot of these functiones, is there any way to automate this in some kind of routine?

While answering, please be aware that I don't really have any extensive Mathematica knowledge.

Answer 1

How about:

apply[func_] := Module[{}, xvalues = Range[0, 500, 2.5];
    points1 = Map[func1, xvalues];
    Do[If[points1[[i]] < 0, points1[[i]] = 0], {i, 1, Length[points1], 1}];
    table1 = Transpose[{xvalues, points1}]];

Now you call the function apply with your desired funcX as an argument

apply[func1] 

Or you can automate this by defining

allFuncs = {func1, func2, func3, func4};

and then

apply/@allFuncs

will run them all.

Answer 2

f = {# &, 3*# - 5 &, 0.1*#^2 &};
xvalues = Range[0, 500, 2.5];
t1 = Through[f[xvalues]] /. x_ /; x < 0 -> 0;
ListPlot[t1, DataRange -> {0, 500}]

Answer 3

I would simplify your code a bit, merging everything into the Map statement, and move everything into a function, as follows:

process[func_, xvals_] :=
 Block[{points},
  points = Map[ With[{val = func@#}, UnitStep[val] val]&, xvals];
  Transpose[{xvals, points}]
 ]

and then for your functions, you can simply run

process[func1, Range[0, 500, 2.5]]

Or, if you prefer to bury your xvals inside your function, just do this, instead:

process[func_, xvals_:Range[0, 500, 2.5]] :=
 Block[{points},
  points = Map[ With[{val = func@#}, UnitStep[val] val]&, xvals];
  Transpose[{xvals, points}]
 ]