dragoun_lab1_1.fs

#light

// возведение в степень
let rec pow (x , n) =
  match n with
    | 0.0 -> 1.0
    | n -> x * pow (x, (n-1.0))
    
    
// Факториал
let rec factorial n = 
  if n = 0.0
  then 1.0
  else n * factorial (n-1.0)


// Разложение в ряд Тейлора
let rec mySh (x, n) =
  match n with
    | 0.0 -> 0.0
    | n -> mySh(x, n - 1.0) + pow(x, 2.0 * n - 1.0) / factorial(2.0 * n - 1.0)
    
// Вывод с помощью получения значения за счет предыдущего
let rec myShPred (x, n) =
  match n with
    | 1.0 -> x
    | n -> myShPred(x, n-1.0) + (x * x * x) / ((n+1.0) * (n+2.0))

// вывод Тейлора
let myShPrint = [ for i in 0.0 .. 0.1 .. 1.0 -> (i, mySh(i, 10.0)) ]

// вывод значения от предыдущего
let myShPredPrint = [for i in 0.0 .. 0.1 .. 1.0 -> (i, myShPred(i, 10.0)) ]

// sh(x)
let tableOfFunctionValues = [ for i in 0.0 .. 0.1 .. 1.0 -> (i, sinh(i)) ]