Расчет значения синуса разложением в ряд

24.03.2014, 20:40. **Показов** 1865. **Ответов** 4

Студворк — интернет-сервис помощи студентам

Нужна помощь. Дано X и натуральное N. Вычислить sin(x), используя разложение в ряд Тейлора. В разложении учитывать N членов. Сделать нужно в Лиспе

@Catstail · 24.03.2014, 21:46

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
(defun sin! (x n)
  (let ((s 0) (a x) (k 1))
     (dotimes (i n s)
       (setq s (+ s a))
       (setq a (/ (* x x (- a)) (* (+ k k) (+ k k 1))))
       (setq k (+ k 1))))) 
 
==> sin!
 
(sin! 0.1 20)
 
==> 9.98334166468281E-02
 
(sin 0.1)
 
==> 9.98334166468282E-02

@castorsky · 25.03.2014, 00:35

почему-то не додумался использовать баблиотечный факториал

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
> (require math) ;;racket
> (define (fact n)
    (define (nested num result)
      (if (= num 0) result
         (nested (- num 1) (* result num))))
    (nested n 1))
> (define (reverse-proc proc) (if (eq? proc -) + -))
> (define (sine x n)
    (define (nested count proc result)
      (if (>= count n) result
          (nested (+ count 2)
                  (reverse-proc proc)
                  (proc result (/ (expt x count) (fact count))))))
    (nested 1 + 0))
> (sine 0.1 5)
0.09983333333333334
> (sin 0.1)
0.09983341664682815
> (sine 0.1 10)
0.09983341664682817
>

@Catstail · 25.03.2014, 12:41

Сообщение от castorsky

почему-то не додумался использовать баблиотечный факториал

- а в таких задачах его и не нужно использовать - лишние вычисления...

@castorsky · 26.03.2014, 00:41

ну да, есть же рекуррентное соотношение. Пичаль.

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

trushalexey

	Расчет значения синуса разложением в ряд 24.03.2014, 20:40. Показов 1865. Ответов 4 Метки нет (Все метки) Нужна помощь. Дано X и натуральное N. Вычислить sin(x), используя разложение в ряд Тейлора. В разложении учитывать N членов. Сделать нужно в Лиспе

@castorsky 1978 / 1082 / 87 Регистрация: 29.11.2013 Сообщений: 3,353
	26.03.2014, 00:41
	ну да, есть же рекуррентное соотношение. Пичаль. 0