55{
59
60 const std::string ornstein_uhlenbeck_process_program =
61 " const var mu := 1; "
62 " const var sigma := 0.4; "
63 " const var theta := 2; "
64 " const var tau := 1 / theta; "
65 " const var T := 10 * tau; "
66 " const var dt := 0.01 * tau; "
67 " const var num_steps := floor(T / dt); "
68 " const var stddev := sqrt(sigma^2 / (2 * theta) * (1 - exp(-2 * theta * dt))); "
69 " const var x_0 := 1.0; "
70 " "
71 " var x[num_steps] := [0]; "
72 " "
73 " x[0] := x_0; "
74 " "
75 " for (var i := 0; i < num_steps - 1; i += 1) "
76 " { "
77 " var mean := x[i] * exp(-theta * dt) + mu * (1 - exp(-theta * dt)); "
78 " "
79 " x[i + 1] := normal(mean,stddev); "
80 " }; "
81 " "
82 " "
83 " for (var i := 0; i < x[]; i += 1) "
84 " { "
85 " println(i * dt, '\t', x[i]); "
86 " } ";
87
88
91
92 symbol_table_t symbol_table;
93 symbol_table.add_function("println", println);
94 symbol_table.add_function("normal" , normal );
95
96 expression_t expression;
97 expression.register_symbol_table(symbol_table);
98
99 parser_t parser;
100 parser.compile(ornstein_uhlenbeck_process_program,expression);
101
102 expression.value();
103}