Searched refs:u0t (Results 1 – 3 of 3) sorted by relevance
| /petsc/src/ts/tutorials/ |
| H A D | ex22.c | 206 PetscReal u0t[2]; in FormRHSFunction() local
207 u0t[0] = 1.0 - PetscPowRealInt(PetscSinReal(12 * t), 4); in FormRHSFunction()
208 u0t[1] = 0.0; in FormRHSFunction()
210 …if (i == 0) f[i][j] = a[j] / hx * (1. / 3 * u0t[j] + 0.5 * x[i][j] - x[i + 1][j] + 1. / 6 * x[i + … in FormRHSFunction()
211 …else if (i == 1) f[i][j] = a[j] / hx * (-1. / 12 * u0t[j] + 2. / 3 * x[i - 1][j] - 2. / 3 * x[i + … in FormRHSFunction()
|
| H A D | ex22f.F90 | 206 PetscReal hx, u0t(2)
219 u0t(1) = one - abs(sin(twelve*t))**four
220 u0t(2) = 0.0
229 f(j, i) = a(j)/hx*(third*u0t(j) + half*x(j, i) - x(j, i + 1) &
232 f(j, i) = a(j)/hx*(-twelfth*u0t(j) + twothird*x(j, i - 1) &
|
| H A D | ex22f_mf.F90 | 235 PetscReal hx, u0t(2)
247 u0t(1) = one - sin(twelve*t)**four
248 u0t(2) = 0.0
257 f(j, i) = a(j)/hx*(third*u0t(j) + half*x(j, i) - x(j, i + 1) + sixth*x(j, i + 2))
259 …f(j, i) = a(j)/hx*(-twelfth*u0t(j) + twothird*x(j, i - 1) - twothird*x(j, i + 1) + twelfth*x(j, i …
|