The Math Forum

Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Math Forum » Discussions » Inactive » comp.soft-sys.math.mathematica

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: something wrong with my code??
Replies: 2   Last Post: Jan 26, 2013 1:38 AM

Advanced Search

Back to Topic List Back to Topic List Jump to Tree View Jump to Tree View   Messages: [ Previous | Next ]
Alexei Boulbitch

Posts: 483
Registered: 2/28/08
Re: something wrong with my code??
Posted: Jan 26, 2013 1:38 AM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

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.

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.
ZAE Weiergewan,
11, rue Edmond Reuter,
L-5326 Contern, LUXEMBOURG

Office phone : +352-2454-2566
Office fax: +352-2454-3566
mobile phone: +49 151 52 40 66 44


Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© The Math Forum at NCTM 1994-2018. All Rights Reserved.