Mathematica displays the unevaluated expression Expectation function

Question

The evaluation runs for a few seconds and then Mathematica displays the unevaluated expression Expectation function

Expectation[(((w + a)*Exp[r*T]) + (s*Exp[d*T] + o*l)*P*
   Exp[(r - d - (1/2)*q^2)*T + (x*Sqrt[T]*q)])^(1-c), x \[Distributed] NormalDistribution[0, 1]]

the value of parameters are:

{{d -> 0.0269, q -> 0.3315, r -> 0.0435, T -> 1, w -> 1.1465, 
  p -> 100, l -> 1, c -> 3,a -> 0.0941, s -> 0.0029, o -> 0.0089}}

Answer 1

expr = (((w + a) Exp[r t]) + (s Exp[d t] + o*l) p Exp[(r - d - (1/2)*q^2) t + 
       (x Sqrt[t]*q)])^(1 - c) /. 
       {d -> 0.0269, q -> 0.3315, r -> 0.0435, t -> 1, w -> 1.1465, p -> 100,
        l -> 1, c -> 3, a -> 0.0941, s -> 0.0029,  o -> 0.0089};

NExpectation[expr, x \[Distributed] NormalDistribution[0, 1]]
(* 0.171448 *)

From Expectation >> Properties and Relations:

Therefore, you can also use the following, slower, alternatives:

N@Expectation[expr, x \[Distributed] NormalDistribution[0, 1]]
(*  0.171448 *)

Or, when symbolic evaluation

Expectation[expr, x \[Distributed] NormalDistribution[0, 1]]

returns

use

N[%] 

to get the same value 0.171448 for expectation.