Advertisement
LosPollos

LagrangePolinomial

Jul 9th, 2017
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.65 KB | None | 0 0
  1. (define (LagrangePolinomial sX sY x)
  2.     (define (BigP sX x j)
  3.         (define (compute xK x j)
  4.             (if (eq? xK j)
  5.                 1
  6.                 (/ (- x xK) (- j xK))
  7.             )
  8.         )
  9.  
  10.         (cond
  11.             ((eq? sX '())   1)
  12.             (#t             (* (compute (car sX) x j)
  13.                                (BigP (cdr sX) x j)))
  14.         )
  15.     )
  16.     (define (LagP constSX sX sY x)
  17.         (if (eq? sY '())
  18.             0
  19.             (+ (* (car sY) (BigP constSX x (car sX)))
  20.                (LagP constSX (cdr sX) (cdr sY) x))
  21.         )
  22.     )
  23.     (LagP sX sX sY x)
  24. )
  25.  
  26. (LagrangePolinomial '(1 2 4 5) '(2 4 8 10) 3)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement