You are not logged in.
Pages: 1
again..i've uploaded the picture because it's easier to write it in Mathematica..
Offline
If you use Mathematica it's easy.
IPBLE: Increasing Performance By Lowering Expectations.
Offline
Put the following code:
Print["The Function:"]
f[x_]:=((x^2)Log[x])/ \[ExponentialE]
f[x]
Print["The Derivate:"]
f'[x]
Print["The roots:"]
Solve[f'[x] == 0, x]
IPBLE: Increasing Performance By Lowering Expectations.
Offline
And you can include Plots:
Plot[f[x], {x, 0, 10}, AxesLabel -> {x, f[x]}]
Plot[f[x], {x, 0, 1}, AxesLabel -> {x, f[x]}]
Plot[f'[x], {x, 0, 10}, AxesLabel -> {x, f'[x]}]
Plot[f'[x], {x, 0, 1}, AxesLabel -> {x, f'[x]}]
IPBLE: Increasing Performance By Lowering Expectations.
Offline
Here is the program:
(demonstrates the power of Mathematica once again)
Last edited by krassi_holmz (2006-01-06 01:41:21)
IPBLE: Increasing Performance By Lowering Expectations.
Offline
hey thanx krassi_holmz..didn't know Mathematica was so powerfull.
oh man and the code is so simple, that's great!
thanx again..i appreciate it
Offline
Haven't you read Mathematica help?
It's hundred times powerful than this. It's just a simple example.
Last edited by krassi_holmz (2006-01-06 02:15:32)
IPBLE: Increasing Performance By Lowering Expectations.
Offline
Derivative =0
x^2 = 0, x = 0
or
2xlnxe - lnx = 0
lnx(2xe-1) = 0
lnx = 0 or 2ex - 1 - 0
x = 1 or x = 1/(2e)
So, horizontal tangents occur at
x = 1
x = 1/(2e)
x = 0
Double check that the second derivative is never equal to 0 for each of those points... when it does, it isn't an extrema
Last edited by God (2006-01-08 09:21:56)
Offline
Pages: 1