VPF::как сделать функцию - Форум программистов

nightvi

Дата 23.4.2008, 15:22 (ссылка)

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

Загрузка ...

Шустрый

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

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

Народ подскажите как сделат ьфункцию считающую слелующие уравнение

y= (e-1)X^(e-2) где е это экспонента числа
вот еслибы было бы у=е^(x+1)
Я бы написал так
Public Function Y(x As Double) As Double
Application.Volatile
Y = Exp(x)
End Function
но задание другое подскажите кто сможет
Спасибо

shamu

Дата 24.4.2008, 21:47 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 24.4.2008
Где: Киев

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

А если так?

Код


Public Function ZZZ(dblX As Double) As Double
Const cExp = 2.718282
Dim dblY As Double
    Application.Volatile
    'y= (e-1)X^(e-2)
    dblY = (cExp - 1) * dblX ^ (cExp - 2)
    ZZZ = dblY
End Function

В справке VBA что-то говорится о константе е (принимает значение, близкое к 2.718282), но найти саму константу не удалось.

Akina

Дата 24.4.2008, 23:06 (ссылка)

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

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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

Код


cExp = exp(1)

не догадался?

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

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

shamu

Дата 25.4.2008, 02:23 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 24.4.2008
Где: Киев

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

Цитата(Akina @ 24.4.2008, 23:06)

Код


cExp = exp(1)

не догадался?

Я давно сталкивался с математикой :(.

Это сообщение отредактировал(а) shamu - 25.4.2008, 02:26

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