0
$\begingroup$

I'm having difficulty with finding the intersecting point of two graphs. Here is what I have done so far:

Plot[{8*n^2, 64*n*Log2[n]}, {n, 0, 100}]

which produces the following graph:

enter image description here

To find the intersection I tried:

FindRoot[{8*n^2, 64*n*Log2[n]}, {0, 100}, {0, 20000}]

But I got an error I think:

FindRoot::nlnum1: "The function value {{8.\ n^2,92.3325\ n\ Log[n]}[0.,0.]} is not a list of numbers with dimensions {1} when the arguments are {0.,0.}"

I am using Mathematica 10.

Improve this question
$\endgroup$
3
  • 1
    $\begingroup$ Solve[8*n^2 - 64*n*Log2[n] == 0, n] // N $\endgroup$
    – Dr. belisarius
    Apr 9, 2015 at 14:14
  • $\begingroup$ I'm sorry, have you seen FindRoot documentation page? $\endgroup$
    – Kuba ♦
    Apr 9, 2015 at 14:15
  • 1
    $\begingroup$ Possible duplicate of 74150 or 28987. $\endgroup$
    – dionys
    Apr 9, 2015 at 14:35

1 Answer 1

Reset to default
1
$\begingroup$

One approach is to set the first equation equal to the second and use Reduce to solve the system: 

Block[{f1, f2, n, sol},
 f1 := 8*n^2;
 f2 := 64*n*Log2[n];
 sol = N@Reduce[f1 == f2, n]]

(* n == 1.1 || n == 43.5593 *)

Also, you might want to check out the Mathematica tutorials on equation solving.

Improve this answer
$\endgroup$