| /petsc/src/ts/tutorials/ |
| H A D | ex53.c | 215 u[0] = sum * PetscCosReal(time); in linear_trig_p() 239 for (d = 0; d < dim - 1; ++d) f0[d] -= 2.0 * G - alpha * PetscCosReal(t); in f0_quadratic_trig_u() 240 f0[dim - 1] -= 2.0 * lambda + 4.0 * G - alpha * PetscCosReal(t); in f0_quadratic_trig_u() 317 …for (d = 0; d < dim; ++d) sum += 2. * PETSC_PI * PetscCosReal(2. * PETSC_PI * x[d]) - (d < dim - 1… in trig_eps() 327 for (d = 0; d < dim; ++d) sum += PetscCosReal(2. * PETSC_PI * x[d]); in trig_linear_p() 337 for (d = 0; d < dim; ++d) sum += PetscCosReal(2. * PETSC_PI * x[d]); in trig_linear_p_t() 364 for (d = 0; d < dim; ++d) sum += PetscCosReal(2. * PETSC_PI * x[d]); in f0_trig_linear_p() 462 …if (m % 2 == 1) F2 += (8.0 / PetscSqr(m * PETSC_PI)) * PetscCosReal(0.5 * m * PETSC_PI * zstar) * … in terzaghi_2d_u() 574 …if (m % 2 == 1) F2_t += (2.0 * c / PetscSqr(L)) * PetscCosReal(0.5 * m * PETSC_PI * zstar) * Petsc… in terzaghi_2d_u_t() 698 …etscSinReal(aa) / (aa - PetscSinReal(aa) * PetscCosReal(aa))) * (PetscCosReal((aa * x[0]) / a) - P… in mandel_drainage_pressure() [all …]
|
| H A D | ex46.c | 63 u[1] = PetscCosReal(time + x[0]) * PetscCosReal(time + x[1]); in mms2_u_2d() 101 … PetscSinReal(2 * t + 2 * x[0]) + PetscSinReal(2 * t + x[0] + x[1]) + PetscCosReal(t + x[0] - x[1]… in f0_mms2_u() 102 …+ PetscSinReal(2 * t + x[0] + x[1]) + PetscCosReal(t + x[0] - x[1])) + 2.0 * PetscCosReal(t + x[0]… in f0_mms2_u()
|
| H A D | ex45.c | 85 *u = dim * PetscCosReal(time); in mms_quad_trig() 121 for (d = 0; d < dim; ++d) *u += PetscCosReal(PETSC_PI * x[d]); in mms_trig_lin() 135 for (d = 0; d < dim; ++d) f0[0] += PetscSqr(PETSC_PI) * (PetscCosReal(PETSC_PI * x[d]) - 1.0); in f0_trig_lin() 157 *u = PetscSqr(PETSC_PI) * PetscCosReal(time); in mms_trig_trig() 158 for (d = 0; d < dim; ++d) *u += PetscCosReal(PETSC_PI * x[d]); in mms_trig_trig() 172 for (d = 0; d < dim; ++d) f0[0] += PetscSqr(PETSC_PI) * PetscCosReal(PETSC_PI * x[d]); in f0_trig_trig_exp()
|
| H A D | ex43.c | 20 u = PetscExpReal(-a * t) * (C1 * PetscSinReal(w * t) + C2 * PetscCosReal(w * t)); in Exact() 21 …a * t) * (C1 * PetscSinReal(w * t) + C2 * PetscCosReal(w * t)) + w * PetscExpReal(-a * t) * (C1 * … in Exact()
|
| H A D | ex76.c | 346 u[0] = 100. * PetscCosReal(time) + X[0] * X[0] * X[0] + X[1] * X[1] * X[1]; in cubic_trig_u() 353 u[1] = 100. * PetscCosReal(time); in cubic_trig_u_t() 365 T[0] = 100. * PetscCosReal(time) + X[0] * X[0] / 2.0 + X[1] * X[1] / 2.0; in cubic_trig_T() 378 …f0[0] -= 100. * PetscCosReal(t) * (3 * X[0] * X[0]) + 100. * PetscSinReal(t) * (3 * X[1] * X[1] - … in f0_cubic_trig_v() 379 …f0[1] -= 100. * PetscCosReal(t) * (6 * X[0] * X[0] - 6 * X[0] * X[1]) - 100. * PetscSinReal(t) * (… in f0_cubic_trig_v() 386 …f0[0] -= 100. * PetscCosReal(t) * X[0] + 100. * PetscSinReal(t) * (X[1] - 1.) + X[0] * X[0] * X[0]… in f0_cubic_trig_w() 444 …u[0] = 1 - PetscCosReal(PETSC_PI * (X[0] - time)) * PetscSinReal(PETSC_PI * (X[1] - time)) * Petsc… in taylor_green_u() 445 …u[1] = 1 + PetscSinReal(PETSC_PI * (X[0] - time)) * PetscCosReal(PETSC_PI * (X[1] - time)) * Petsc… in taylor_green_u() 450 …PI * (X[1] - time)) - PetscCosReal(PETSC_PI * (X[0] - time)) * PetscCosReal(PETSC_PI * (X[1] - tim… in taylor_green_u_t() 451 … PetscCosReal(PETSC_PI * (X[0] - time)) * PetscCosReal(PETSC_PI * (X[1] - time)) - 2 * PETSC_PI * … in taylor_green_u_t() [all …]
|
| H A D | ex51.c | 27 f[0] = PetscCosReal(t); in RHSFunction()
|
| H A D | ex18.c | 228 f0[1] = 2.0 * PETSC_PI * x[1] * PetscCosReal(2.0 * PETSC_PI * x[0]); in f0_lap_periodic_u() 233 f0[0] = -2.0 * PetscSinReal(2.0 * PETSC_PI * x[0]) * PetscCosReal(2.0 * PETSC_PI * x[1]); in f0_lap_doubly_periodic_u() 234 f0[1] = 2.0 * PetscSinReal(2.0 * PETSC_PI * x[1]) * PetscCosReal(2.0 * PETSC_PI * x[0]); in f0_lap_doubly_periodic_u() 391 u[1] = -x[1] * PetscCosReal(2.0 * PETSC_PI * x[0]) / (2.0 * PETSC_PI); in periodic_u_2d() 414 …u[0] = PetscSinReal(2.0 * PETSC_PI * x[0]) * PetscCosReal(2.0 * PETSC_PI * x[1]) / PetscSqr(2.0 * … in doubly_periodic_u_2d() 415 …u[1] = -PetscSinReal(2.0 * PETSC_PI * x[1]) * PetscCosReal(2.0 * PETSC_PI * x[0]) / PetscSqr(2.0 *… in doubly_periodic_u_2d()
|
| H A D | ex8.c | 131 f[0] = xdot[0] + l * (x[0] - PetscCosReal(t)); in CEFunction() 172 …x[0] = l / (l * l + 1) * (l * PetscCosReal(t) + PetscSinReal(t)) - l * l / (l * l + 1) * PetscExpR… in CESolution()
|
| /petsc/src/dm/dt/tests/ |
| H A D | ex3.c | 20 *val = PetscExpReal(x) * PetscCosReal(x); in func3() 59 *val = PetscLogReal(PetscCosReal(x[0])); in func9() 97 else *val = PetscExpReal(1 - 1 / x) * PetscCosReal(1 / x - 1) / (x * x); in func14()
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex42.c | 1171 v[1] = z * PetscCosReal(2.0 * PETSC_PI * x) * PetscExpReal(-y) * PetscSinReal(PETSC_PI * y); in evaluate_MS_FrankKamentski() 1172 …PetscCosReal(2.0 * PETSC_PI * x) * PetscExpReal(-y) * PetscSinReal(PETSC_PI * y) / 2 - PETSC_PI * … in evaluate_MS_FrankKamentski() 1195 …PetscCosReal(PETSC_PI * y) * PetscExpReal(-y) * PetscSinReal(2.0 * PETSC_PI * x) - 1.0 * PETSC_PI … in evaluate_MS_FrankKamentski() 1196 …PetscCosReal(2.0 * PETSC_PI * x) * PetscExpReal(-y) * PetscSinReal(PETSC_PI * y) / 2 + PetscPowRea… in evaluate_MS_FrankKamentski() 1197 …PetscCosReal(2.0 * PETSC_PI * x) * PetscExpReal(-y) * PetscSinReal(PETSC_PI * y) + 2.0 * PetscPowR… in evaluate_MS_FrankKamentski() 1876 … cell->fy[p] = -PetscSinReal(2.2 * PETSC_PI * coord_y) * PetscCosReal(1.0 * PETSC_PI * coord_x); in solve_stokes_3d_coupled() 1930 … cell->fy[p] = -PetscSinReal(3.0 * PETSC_PI * coord_y) * PetscCosReal(1.0 * PETSC_PI * coord_x); in solve_stokes_3d_coupled() 1995 cell->fy[p] = -PetscSinReal(2.2 * PETSC_PI * yp) * PetscCosReal(1.0 * PETSC_PI * xp); in solve_stokes_3d_coupled()
|
| H A D | ex68.c | 23 xx[i] = (xd * xd - 1.0) * PetscCosReal(5. * PETSC_PI * xd); in ComputeSolution() 44 …I * xd) + (2. - (5. * PETSC_PI) * (5. * PETSC_PI) * (xd * xd - 1.)) * PetscCosReal(5. * PETSC_PI *… in ComputeRhs()
|
| H A D | ex69.c | 37 uu[j] = (xd * xd - 1.0) * PetscCosReal(5. * PETSC_PI * xd); in ComputeSolution() 69 …I * xd) + (2. - (5. * PETSC_PI) * (5. * PETSC_PI) * (xd * xd - 1.)) * PetscCosReal(5. * PETSC_PI *… in ComputeRhs()
|
| /petsc/src/ts/tutorials/optimal_control/ |
| H A D | ex1.c | 37 f[0] = v[step] * PetscCosReal(w[step]); in RHSFunction() 60 Jp[0][0] = PetscCosReal(w[step]); in RHSJacobianP() 63 Jp[1][1] = v[step] * PetscCosReal(w[step]); in RHSJacobianP() 116 dJpdP[0][1][1] = -v[step] * PetscCosReal(w[step]); in RHSHessianProductPP() 117 dJpdP[1][0][1] = PetscCosReal(w[step]); in RHSHessianProductPP() 118 dJpdP[1][1][0] = PetscCosReal(w[step]); in RHSHessianProductPP() 191 dx = u[0] - actx->lv * t * PetscCosReal(actx->lw); in CostIntegrand() 209 dx = u[0] - actx->lv * t * PetscCosReal(actx->lw); in DRDUJacobianTranspose()
|
| /petsc/src/snes/tutorials/ |
| H A D | ex62.c | 203 u[c] = -PETSC_PI * PetscCosReal(PETSC_PI * x[0]) * x[c]; in trig_u() 221 …f0[0] = -2.0 * PETSC_PI * PetscCosReal(2.0 * PETSC_PI * x[0]) - (dim - 1) * mu * PetscSqr(PETSC_PI… in f0_trig_u() 224 …f0[d] = -2.0 * PETSC_PI * PetscCosReal(2.0 * PETSC_PI * x[d]) + mu * PetscPowRealInt(PETSC_PI, 3) … in f0_trig_u()
|
| H A D | ex71.c | 132 PetscReal X = PetscCosReal(alpha) * x[0] + PetscSinReal(alpha) * x[1]; in f0_bd_u() 209 coords[i + 0] = PetscCosReal(alpha) * x - PetscSinReal(alpha) * y; in CreateMesh() 210 coords[i + 1] = PetscSinReal(alpha) * x + PetscCosReal(alpha) * y; in CreateMesh()
|
| H A D | ex69.c | 290 t35 = PetscCosReal(t34); in SolKxSolution() 303 t81 = PetscCosReal(t80); in SolKxSolution() 306 t89 = PetscCosReal(t88); in SolKxSolution() 336 t38 = PetscCosReal(t37); in SolKxSolution() 366 t106 = PetscCosReal(t105); in SolKxSolution() 370 t115 = PetscCosReal(t114); in SolKxSolution() 395 t33 = PetscCosReal(t32); in SolKxSolution() 408 t79 = PetscCosReal(t78); in SolKxSolution() 411 t87 = PetscCosReal(t86); in SolKxSolution() 441 t36 = PetscCosReal(t35); in SolKxSolution() [all …]
|
| H A D | ex36.c | 61 …2. * PETSC_PI * x[0] / eps) + PetscSqr(eps / (2. * PETSC_PI)) * (1. - PetscCosReal(2. * PETSC_PI *… in oscillatory_u() 102 f1[0] = u_x[0] / (2. + PetscCosReal(2. * PETSC_PI * x[0] / eps)); in f1_oscillatory_u() 109 g3[0] = 1. / (2. + PetscCosReal(2. * PETSC_PI * x[0] / eps)); in g3_oscillatory_uu()
|
| /petsc/include/ |
| H A D | petscmath.h | 36 #define PetscCosReal(a) cosf(a) macro 71 #define PetscCosReal(a) cos(a) macro 106 #define PetscCosReal(a) cosq(a) macro 141 #define PetscCosReal(a) cosf(a) macro 547 #define PetscCosScalar(a) PetscCosReal(a)
|
| /petsc/src/dm/impls/da/tests/ |
| H A D | ex1.c | 71 coords[p * 2 + 0] = r * PetscCosReal(th); in main()
|
| /petsc/src/dm/impls/plex/tutorials/ |
| H A D | ex19.c | 280 …cpCoordData[faceCPStartRow + (3 * ii) + 0] += -0.05 * deltaR * PetscCosReal(phi) * PetscSinReal(th… in main() 282 cpCoordData[faceCPStartRow + (3 * ii) + 2] += -0.05 * deltaR * PetscCosReal(theta); in main()
|
| /petsc/src/dm/impls/swarm/tutorials/ |
| H A D | ex1.c | 62 coords[p * 2 + 0] = -PetscCosReal((PetscReal)(p + 1) / (PetscReal)(Np + 1) * PETSC_PI); in main()
|
| /petsc/src/dm/impls/plex/tests/ |
| H A D | ex8.c | 281 R[0] = PetscCosReal(phi); in CheckCell() 284 R[3] = PetscCosReal(phi); in CheckCell() 287 const PetscReal ct = PetscCosReal(theta), st = PetscSinReal(theta); in CheckCell() 288 const PetscReal cp = PetscCosReal(phi), sp = PetscSinReal(phi); in CheckCell() 289 const PetscReal cs = PetscCosReal(psi), ss = PetscSinReal(psi); in CheckCell()
|
| H A D | ex101.c | 15 PetscScalar value = c % 2 ? PetscSinReal(2 * M_PI * x_tot) : PetscCosReal(2 * M_PI * x_tot); in project_function()
|
| /petsc/src/ts/tutorials/hamiltonian/ |
| H A D | ex1.c | 184 …t solution at time %.6lf is [%g %g]\n", (double)ftime, (double)(0.2 * PetscCosReal(user.omega * ft… in main()
|
| /petsc/src/sys/tests/ |
| H A D | ex25.c | 37 b = PetscCosReal(a); in main()
|