share/orthopoly/plot_orthopoly.mac

   1 /* Generate A&S Figure 22.4 page 776
   2 */
   3
   4
   5 orthopoly_returns_intervals : false$
   6
   7 foo : ['(ultraspherical(2,0.5,x)),
   8 '(ultraspherical(3,0.5,x)),
   9 '(ultraspherical(4,0.5,x)),
  10 '(ultraspherical(5,0.5,x))]$
  11
  12 plot2d(foo,[x,-1,1])$
  13
  14 /* Generate A&S Figure 22.5 page 777
  15 */
  16
  17
  18 foo : ['(ultraspherical(5, 0.2, x)),
  19 '(ultraspherical(5, 0.4, x)),
  20 '(ultraspherical(5, 0.6, x)),
  21 '(ultraspherical(5, 0.8, x)),
  22 '(ultraspherical(5, 1.0, x))]$
  23
  24 plot2d(foo, [x,-0.8,0.8])$
  25
  26 /* Generate A&S Figure 22.6 page 778
  27 */
  28
  29 foo : ['(chebyshev_t(1,x)),
  30 '(chebyshev_t(2,x)),
  31 '(chebyshev_t(3,x)),
  32 '(chebyshev_t(4,x)),
  33 '(chebyshev_t(5,x))]$
  34
  35
  36 plot2d(foo,[x,-1.0,1.0])$
  37
  38 /* Generate A&S Figure 22.7 page 779
  39 */
  40
  41
  42 foo : ['(chebyshev_u(1,x)),
  43 '(chebyshev_u(2,x)),
  44 '(chebyshev_u(3,x)),
  45 '(chebyshev_u(4,x)),
  46 '(chebyshev_u(5,x))]$
  47
  48
  49 plot2d(foo,[x,-1.0,1.0])$