Plotta flera funktioner i Mathematica

Hej!

Som synes plottas inte ln|x| ut. Nån som kan ge mig en hint om var jag skriver fel?

Manipulate[Plot[{Log[Abs[x]],0==-2x^2 -5x +1+a},{x,-20,20},{a,-1000,1000}]

Skulle vilja se var de skär varandra beroende av a.

Tack! 😊