Manipulate[
     Grid[{{Text@"Tridiagonal Matrix", Text@"Its Characteristic Equation"},
       {Text@Item[
          Pane[TraditionalForm[***tridiagonal***[n] // MatrixForm], {270, 200},
           Alignment -> {Center, Top}], Alignment -> Center],
        Text@Item[
          Pane[TraditionalForm[p[n, x]], {270, 200}, 
           Alignment -> {Center, Top}],
          Alignment -> {Center, Top}]},
       {Text@"Continued Fraction", 
        Text@Row[{"Eigenvalue Plot", Style["x", Italic], "=", 
           Style["x", Italic], "{", Style["r", Italic], "}"}]},
       {Text@Item[
          Pane[TraditionalForm[***recurrence***[n, x, r]], {270, 200}, 
           Alignment -> {Center, Top}], Alignment -> {Center, Top}], 
        Item[ContourPlot[Evaluate[p[n, x]], {r, -10, 10}, {x, -10, 20}, 
          ImageSize -> {270, 200}], Alignment -> {Center, Top}]}}, 
      Frame -> All, Background -> LightBlue, 
      Alignment -> Top], {{n, 2, "Size of Matrix"}, 2, 9, 1, 
      Appearance -> "Labeled"}, ContinuousAction -> False, 
     SaveDefinitions -> True]

I have got this code from Mathematica website, but my problem is I'm not able to use these two functions which are bold and italic namely, "tridiagonale", & , "recurrence", in Mathematica 10, as this code is written in the earlier version.

Can you help me out plz?