VPF::[MSExcel][Pascal] Помогите преобразовать формулу

ausar

Дата 6.1.2009, 08:45 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 127
Регистрация: 3.8.2007

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

Привет всем!
Никак не могу правильно переделать формулу для использования в MSExcel никак не получается нужное значение. Мне необходимо сделать зависимость значения от числа в ячейке на рисунке это число 640 т.е нежно сделать так чтобы его можно было менять из другой ячейки. Но набивая формулу я даже с фиксированным значением (640) не смог получить ответа 27.068. Нужно в Excel но подойдет и код на Pascal
Вот формула http://pic.ipicture.ru/uploads/090106/hvmYB6BxxU.gif.
Может кто поможет?

Rrader

Дата 6.1.2009, 10:52 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 14
Всего: 191

Код


program Project1;

function CalculateS(Value: Real): Real;
var
  Den, Num: Real;
begin
  Num := (0.1 - 3 * Exp(1/2 * Ln(0.628 * 0.1 * 3 / 2 / Value))) * 2 * Value;
  Den := 3 + 2 * 3 * Exp(-6 * Ln(10)) * 2 * Value;
  CalculateS := Num / Den;
end;

begin
  WriteLn(CalculateS(640):1:3);
  ReadLn;
end.

Добавлено через 5 минут и 40 секунд

Код


=((0,1-3*КОРЕНЬ(0,628*0,1*3/2/A1))*2*A1)/(3+2*3*10^-6*2*A1)

A1 = 640

Добавлено через 8 минут и 52 секунды
Или

Код


=((0,1-3*EXP(1/2*LN(0,628*0,1*3/2/A1)))*2*A1)/(3+2*3*10^-6*2*A1)

Это сообщение отредактировал(а) Rrader - 6.1.2009, 10:53

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

Let's do this quickly!
Rest in peace, Vit!

ausar

Дата 6.1.2009, 11:07 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 127
Регистрация: 3.8.2007

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

Да именно так! Rrader Большое спасибо.

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