
Re: something wrong with my code??
Posted:
Jan 26, 2013 1:38 AM


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.
Hi, Try this, it is probably what you had in mind:
f[x_] := 10^9*(Exp[38.629 x]  1); data = Table[ If[f[x] > 0.005, {x, 0.005}, {x, f[x]}], {x, 5, 5, 0.01}];
ListPlot[data, PlotRange > {0, 0.01}, PlotStyle > {Red, PointSize[0.005]}]
However, the problem is more simple that that. Try this:
f2[x_] := If[10^9*(Exp[38.629 x]  1) > 0.005, 0.005, 10^9*(Exp[38.629 x]  1)]; Plot[f2[x], {x, 5, 5}]
Your code contains syntax errors. I advise you to have a look into the Math= ematica basics, it pays off.
Have fun, Alexei
Alexei BOULBITCH, Dr., habil. IEE S.A. ZAE Weiergewan, 11, rue Edmond Reuter, L5326 Contern, LUXEMBOURG
Office phone : +35224542566 Office fax: +35224543566 mobile phone: +49 151 52 40 66 44
email: alexei.boulbitch@iee.lu

