Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.02.2008, 21:38   #1
RIO
Форумчанин
 
Аватар для RIO
 
Регистрация: 15.12.2007
Сообщений: 422
По умолчанию Комплексный Tan

Приветствую ! ! ! Помогите пожалуйста, написать комплексный тангенс, тангенс с только действительной или только мнимой частью удается сделать а вот с той и той тоесть например: Tan(10+ 5i) не удается . . . Я понимаю, что здесь нужно применять формулу сложения тоесть : Tan(X + Y) = (Tan(X) + Tan(Y)) / (1 - Tan(X) * Tan(Y)), а для комплексного случая эта формула будет выгялдить : Tan(X + Y) = (Tan(X) + TanH(Y)) / (1 - Tan(X) * TanH(Y)) . . . Вот сам код :

function CTan(A, B: ComplexType): ComplexType;
begin
if (A.R <> 0) and (B.I = 0) then
Result.R := Tan(A.R)
else
if (A.R = 0) and (B.I <> 0) then
Result.I := TanH(B.I)
else
if (A.R <> 0) and (B.I <> 0) then
begin

Именно здесь вся и проблема

Result.R := . . .; ? ? ?
Result.I := . . .; ? ? ?
end;
RIO вне форума Ответить с цитированием
Старый 12.02.2008, 22:19   #2
RIO
Форумчанин
 
Аватар для RIO
 
Регистрация: 15.12.2007
Сообщений: 422
По умолчанию

Такс . . . Тему можна и нужно удачно закрывать, ответ уже найден
Это :

Result.R := Sin(2 * A.R) / (Cos(2 * A.R) + CosH(2 * B.I));
Result.I := SinH(2 * B.I) / (Cos(2 * A.R) + CosH(2 * B.I));
RIO вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск