                      [["&part; Differentiate", "#differentiate", "Differentiate a function"],
                       ["&int; Numerical Integral",      "#nintegrate",     "Numerically integrate a function"]
                       ["$f(x,y) = \\cdots $ - Symbolic Function",      "#symbolic_function",     "Define a symbolic function"]
-                      ["&int; Symbolic Integral",      "#integrate",     "Integrate a function"]
+                      ["&int; Symbolic Integral",      "#integrate",     "Integrate a function"],
+                      ["Interact Plots"],
+                      ["Interactive f(x)", "#interact_fx"]
                     ]]
     sage_linalg = ["Linear", "Linear Algebra",
                   [

                    """
        icosahedron :
            insert : "show(icosahedron(color='green', opacity=.5, mesh=3), spin=1)"
        cube :
            insert : """
                        show(cube(color=['red', 'blue', 'green'], frame_thickness=2,
                                  frame_color='brown', opacity=0.8), frame=False)
                    """
        plot_text3d:
            insert : 'text3d("Text in 3D", (1,1, 1), color="darkred", fontsize=20)'
        graphs:

                    """
        lm:
            insert: """
                    y  <- c(0,3,2,2,4,5,8,9,7,6,2,0)
                    x1 <- c(1,2,3,4,3,4,5,7,5,7,8,9)
                    x2 <- c(1,1,1,1,2,2,2,3,3,3,4,4)
                    df <- data.frame(x1=x1, x2=x2)
                    model <-lm(y ~ x1 + x2, data=df)
                    model
                    summary(model)
                    anova(model)
                    """
        nlm:
            insert: """
