Выч-е Sin(х) рекурсией и вывод bmp
1) Нет ли у кого исходного кода (или ссылки) функции вычисления sin(x) с помощью рекурсии? Насколько я понял, енту функцию нужно разложить по ряду Тэйлора, но как это реализовать?..
2) Как или чем можно вывести bmp картинку или, может, преобразовать bmp непосредственно в pas (только не используя ассемблер)?
2) Как или чем можно вывести bmp картинку или, может, преобразовать bmp непосредственно в pas (только не используя ассемблер)?
Цитата:
Originally posted by Pokblmon
1) Нет ли у кого исходного кода (или ссылки) функции вычисления sin(x) с помощью рекурсии? Насколько я понял, енту функцию нужно разложить по ряду Тэйлора, но как это реализовать?..
2) Как или чем можно вывести bmp картинку или, может, преобразовать bmp непосредственно в pas (только не используя ассемблер)?
1) Нет ли у кого исходного кода (или ссылки) функции вычисления sin(x) с помощью рекурсии? Насколько я понял, енту функцию нужно разложить по ряду Тэйлора, но как это реализовать?..
2) Как или чем можно вывести bmp картинку или, может, преобразовать bmp непосредственно в pas (только не используя ассемблер)?
http://rtuis.miem.edu.ru/edu/math/MTH_A0A1/MTHa0a1a.htm
Но еще так как надо брать производную от sin(х), надо сделать табличку с производными разных степеней, если память на месте, то с какой то степени идет повтор.
А про бмп не знаю.
Для 0<x<pi/2
если x маленький, то sin(x)=x.
Код:
sin(x)=sin(x/2)*sqrt(1-sqr(sin(x/2));
Код:
function sin_(x: single): single;
var
t: single;
begin
if x < 0.0001 then
result := x
else
begin
t := sin_(x/2);
result := t*sqrt(1-sqr(t));
end;
end;
var
t: single;
begin
if x < 0.0001 then
result := x
else
begin
t := sin_(x/2);
result := t*sqrt(1-sqr(t));
end;
end;