Dismiss Notice
Join Physics Forums Today!
The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

Help with Mathematica code

  1. Jan 23, 2013 #1
    First of all, this might give seasoned Mathematica users some serious eye sores cause I'm a newb at this xD

    f[x_] := (1^-9) (Exp[38.629 x] - 1);
    data = Table[if[[f[x], {x, -5, 5, 0.01}] > 0.005, 0.005, f[x]]];
    ListPlot [data, DataRange -> {-5, 5}, Joined -> True,
    PlotRange -> {0, 0.01}, PlotStyle -> {Thickness[0.005]}]


    What I want to do this is do a plot of a sweep from -5 to 5 with 0.01 stepsize, and if the output value exceeds 0.005, the output value will just be 0.005. It will kind of look like a heavyside step function/unit step function.
    Any help would be greatly appreciated xD.
     
  2. jcsd
  3. Jan 24, 2013 #2
    You mean something like this?

    f[x_] := (1^-9) (Exp[38.629 x] - 1);
    data = Table[{x, If[f[x] > 0.005, 0.005, f[x]]}, {x, -5, 5, 0.01}];
    ListPlot[data, PlotJoined -> True, PlotRange -> {0, 0.01}, PlotStyle -> {
    Thickness[0.005]}]
     
Know someone interested in this topic? Share this thread via Reddit, Google+, Twitter, or Facebook