![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 15.12.2007
Сообщений: 422
|
![]()
Приветствую ! ! ! Помогите пожалуйста, написать комплексный тангенс, тангенс с только действительной или только мнимой частью удается сделать а вот с той и той тоесть например: 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; |
![]() |
![]() |
![]() |
#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)); |
![]() |
![]() |