(49g 50g) Chebyshev U Polynomials
05-26-2020, 07:37 PM
Post: #1
 John Keith Senior Member Posts: 751 Joined: Dec 2013
(49g 50g) Chebyshev U Polynomials
This program returns the value of the nth Chebyshev U polynomial at x. Note that the built-in function TCHEBYCHEFF returns the nth Chebyshev T polynomial. Chebyshev T polynomials are also known as Chebyshev polynomials of the first kind, and the U polynomials as Chebyshev polynomials of the second kind. Note also that there are many spellings of Chebyshev!

To use the program, n should be on level 2 and should be an integer. x should be on level 1; if x is an integer the result will be an integer. If x PEVAL in line 6 is removed the program will return the coefficients of the nth polynomials as a list.

Code:
 \<< SWAP I\->R   IF DUP 1. >   THEN \-> x n     \<< { 1 } { 2 0 } 2. n       START { 0 0 } ROT + OVER 2 * 0 + SWAP -       NEXT NIP AXL x PEVAL     \>>   ELSE 1. SAME { 2 * } { DROP 1 } IFTE   END \>>
 « Next Oldest | Next Newest »

User(s) browsing this thread: 1 Guest(s)