VPF::[Математика] Выделить J из формулы L=J*(Ln(J/D)-1)/5000

ivan219

Дата 23.2.2006, 17:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 1
Всего: 12

L=J*(Ln(J/D)-1)/5000 Как из этой формулы вытащить J чтоб было такого типа J=..... smile

--------------------

Мой первый сайт и моя первая программа!!!!!

ivan219

Дата 14.3.2006, 21:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 1
Всего: 12

Цитата(ivan219 @ 23.2.2006, 17:40)

L=J*(Ln(J/D)-1)/5000 Как из этой формулы вытащить J чтоб было такого типа J=..... smile

Да здравствует ЭВМ smile

Решение провлемы математически слишком сложно smile

Так что решить эту проблему можно путём подбора значений.

Вот код по которому можно найти J путём перебора чисел.

Код



 //5000*L/J=Ln(J)-Ln(D)-1

var
    X,Y:Real;
.
.
.
    Repeat
     begin
      J:=J+0.1; // Шаг
      X:=5000*L/J;  // Правая часть уравнения
      Y:=Ln(J)-Ln(D)-1; // Левая часть уравнения
     end;
    Until SameValue(X,Y,0.001); // Сравнение 2 вещественных чисел X и Y, 0.001 класс точности
                                                 // если X и Y близкие числа то цикл прекращается и J будет найдено!!!!
.
.
.

Это сообщение отредактировал(а) Fixin - 14.3.2006, 22:40

--------------------

Мой первый сайт и моя первая программа!!!!!

mvdr

Дата 15.3.2006, 12:53 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 7
Всего: 42

ivan219, а в Маткаде графиком сложно было делать?

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

ivan219

Дата 15.3.2006, 19:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 1
Всего: 12

Нет график мне ненужен это расчёт не для одного раза.

--------------------

Мой первый сайт и моя первая программа!!!!!

ivan219

Дата 16.3.2006, 12:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 1
Всего: 12

Более уневерсальный вареант который позволяет находить большие и маленькие значения с большой точностью и болшой скоростью

Функция преднозначина для подбора значений одной из переменных входяших в состав формулы пременят её если выразить математически не получится т.е. если Y=X*Ln(X) отсяда переменную X невытщиш а спомощью функции и преведёной к этому виду формулой X*Ln(X)-Y=0 можно найти X подставив Y.

Код


function SameValueReal(A,B,C:Real; Spid,Access:Integer):Real;
var
  Kf,Fun: Real;
  Dk:Integer;
  Bool:Boolean;
begin
 for Dk:=Spid downto -Access do // Spid-скорость чем больше тем быстрее найдётся ответ
                                      // Access-точность количество знаков после запятой
  begin
   Kf:=Exp(Dk*Ln(10));
   Repeat
    begin
     A:=A+Kf; // Шаг
     Fun:=A+B-C;  //Исходная формула преведёная к такому типу A+B-C=0
     if Fun<=0  then Bool := False else Bool := True; // Также возможен вареант Fun=>0 всё зависит о самой функции  
    end;
   Until Bool;
   if Dk>-Access then A:=A-Kf;
  end;
 Result:=A;
end;

Это сообщение отредактировал(а) ivan219 - 16.3.2006, 18:25

--------------------

Мой первый сайт и моя первая программа!!!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »