load (draw)$ f(x, k) := x^4 - k * x^2 $ ye(x) := -x^4 $ my_gnuplot_preamble : [ "set noborder" ]$ set_draw_defaults( user_preamble = my_gnuplot_preamble, yrange = [-22, 22], xtics_axis = true, ytics_axis = true, xaxis = true, yaxis = true )$ graph2 : [ color = black, label(["f(x) = x^4 - k x^2", 2.6, 15]), color = red, explicit ( ye(x) , x, -3, 3), color = black, head_length = 0.1, vector ( [-3.25, 0], [6.5, 0]), vector ( [0, -22], [0, 44]) ]$ img_create (k) := block ([], str_title : concat ("k=", k), gr2d ( title = str_title, [explicit ( f(x, k), x, -3, 3)], graph2 ) ); k_list : [1, 2, 3, 4, 5, 6, 7, 8, 9]; img_list : map (img_create, k_list); draw ( delay = 80, dimensions = [300, 300], file_name = "funktionenschar1", terminal = 'animated_gif, img_list );