Dnes som dostal za úlohu vyšetriť funkciu. Vyšlo to na 25 riadkov, tak pohoda. Dnes už na to máme počítače, treba sa vynájsť. Obrázky:

import Pkg
Pkg.add("Plots")
Pkg.add("Polynomials")
using Plots
using Polynomials
x=-50
y=[]
iks=[]
for i in range(1,1000)
    global x+=0.1
    append!(y,x*x*x-3*x*x-x-7)
    append!(iks,x)
    eps=0    
end
sol = Polynomial([-7, -1, -3, 1])  # -7 - x - 3x^2 + x^3
r = roots(sol)
string_roots = string.(r)
println(string_roots)
roots_str = join(string_roots, ",\n")
p=plot(iks, y,label="Roots: " * roots_str, title="Function investigation")
display(p)
if !Base.isinteractive()
    println("Press the enter key to quit:")
    readline()
end

---