level 1
helloapple11
楼主
r = 0.04;
v1 = 0.25;
v2 = 0.1;
sigma = Sqrt[v1 + v2];
NDSolve[{D[f[t, x], t] + 0.5 (v1 + v2) x^2 D[D[f[t, x], x], x] -
r f[t, x] + r x D[f[t, x], x] == 0, f[t, 0.] == Exp[-r (1. - t)],
f[t, 1.] - Derivative[0, 1][f][t, 1.] == 0.,
f[1., x] == 1. - x}, f, {t, 0, 1}, {x, 0, 1}]
2023年12月17日 07点12分
1
v1 = 0.25;
v2 = 0.1;
sigma = Sqrt[v1 + v2];
NDSolve[{D[f[t, x], t] + 0.5 (v1 + v2) x^2 D[D[f[t, x], x], x] -
r f[t, x] + r x D[f[t, x], x] == 0, f[t, 0.] == Exp[-r (1. - t)],
f[t, 1.] - Derivative[0, 1][f][t, 1.] == 0.,
f[1., x] == 1. - x}, f, {t, 0, 1}, {x, 0, 1}]