|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.02.2008, 21:38 | #1 |
Форумчанин
Регистрация: 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; |
12.02.2008, 22:19 | #2 |
Форумчанин
Регистрация: 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)); |