формула в vb

[даша88]

Функция экспоненциальной выгоды имеет вид:
WOfSuc = PrSuc * (1 - Exp(-Share * Gain/Risk)) + (1 - PrSuc) * (1 - Exp(Share * Loss/Risk))
ГдеPrSuc= 1/EXP(0,25* Gain / Loss)

не знаю как написать :ГдеPrSuc= 1/EXP(0,25* Gain / Loss)

[Mikle]

"ГдеPrSuc" - это не одно, а два слова:)

Код: Выделить всё

Dim PrSuc As Double
Const e As Double = 2.7182818284
PrSuc= 1/(e ^ (0.25 * Gain / Loss))
WOfSuc = PrSuc * (1 - e ^ (-Share * Gain/Risk)) + (1 - PrSuc) * (1 - e ^ (Share * Loss/Risk))


[Qwertiy]

Mikle, во-первых не VB.NET, а во-вторых, не запятые

[Mikle]

Qwertiy, а где здесь VB.NET? Точнее этот код может быть хоть на VB.NET, хоть на VB6, хоть на VBA.
На счёт запятой - да, исправил, просто константу тупо из гугла скопировал, не обратив внимание на синтаксис.

[Qwertiy]

Я что-то про присваивание думал, похоже ошибся. По крайней мере, сейчас присваивается при объявлении только константа.
А чем тебе функция Exp не угодила? Зачем вообще константа нужна?

[Mikle]

А чем тебе функция Exp не угодила?

Тем, что никогда не пользовался, забыл, что такое есть.