| /petsc/src/ts/tutorials/multirate/ |
| H A D | ex3.c | 26 …f[0] = -2.0 * (-1.0 + u[0] * u[0] - PetscCosScalar(t)) / (2.0 * u[0]) + 0.05 * (-2.0 + u[1] * u[1]… in RHSFunction()
27 …f[1] = 0.05 * (-1.0 + u[0] * u[0] - PetscCosScalar(t)) / (2.0 * u[0]) - (-2.0 + u[1] * u[1] - Pets… in RHSFunction()
41 …f[0] = -2.0 * (-1.0 + u[0] * u[0] - PetscCosScalar(t)) / (2.0 * u[0]) + 0.05 * (-2.0 + u[1] * u[1]… in RHSFunctionslow()
55 …f[0] = 0.05 * (-1.0 + u[0] * u[0] - PetscCosScalar(t)) / (2.0 * u[0]) - (-2.0 + u[1] * u[1] - Pets… in RHSFunctionfast()
67 u[0] = PetscSqrtScalar(1.0 + PetscCosScalar(t)); in sol_true()
68 u[1] = PetscSqrtScalar(2.0 + PetscCosScalar(5.0 * t)); in sol_true()
|
| H A D | ex3fastslowsplit.c | 31 …f[0] = -2.0 * (-1.0 + u[0] * u[0] - PetscCosScalar(t)) / (2.0 * u[0]) + 0.05 * (-2.0 + u[1] * u[1]… in RHSFunctionslow()
45 …f[0] = 0.05 * (-1.0 + u[0] * u[0] - PetscCosScalar(t)) / (2.0 * u[0]) - 5.0 * PetscSinScalar(5.0 *… in RHSFunctionfast()
60 f[0] = udot[0] + (-2.0 + u[1] * u[1] - PetscCosScalar(5.0 * t)) / (2.0 * u[1]); in IFunctionfast()
75 J[0][0] = a + (2.0 + PetscCosScalar(5.0 * t)) / (2.0 * u[1] * u[1]) + 0.5; in IJacobianfast()
97 u[0] = PetscSqrtScalar(1.0 + PetscCosScalar(t)); in sol_true()
98 u[1] = PetscSqrtScalar(2.0 + PetscCosScalar(5.0 * t)); in sol_true()
|
| H A D | ex2.c | 27 …f[1] = ctx->b * PetscCosScalar(ctx->b * t) * u[0] - PetscSinScalar(ctx->b * t) * PetscSinScalar(ct… in RHSFunction()
55 …f[0] = ctx->b * PetscCosScalar(ctx->b * t) * u[0] - PetscSinScalar(ctx->b * t) * PetscSinScalar(ct… in RHSFunctionfast()
70 u[0] = PetscCosScalar(ctx->a * t) / ctx->a; in sol_true()
71 u[1] = PetscSinScalar(ctx->b * t) * PetscCosScalar(ctx->a * t) / ctx->a; in sol_true()
|
| H A D | ex1.c | 27 f[1] = u[0] * PetscCosScalar(t * ctx->b); in RHSFunction()
55 f[0] = u[0] * PetscCosScalar(t * ctx->b); in RHSFunctionfast()
71 …u[1] = (ctx->a * PetscCosScalar(ctx->b * t) + ctx->a * ctx->a * ctx->b * PetscSinScalar(ctx->b * t… in sol_true()
|
| /petsc/src/snes/tutorials/network/power/ |
| H A D | pffunctions.c | 147 …values[0] = Vmf * Vmt * (Gft * -PetscSinScalar(thetaft) + Bft * PetscCosScalar(thetaft)); … in FormJacobian_Power_private()
148 …values[1] = 2.0 * Gff * Vmf + Vmt * (Gft * PetscCosScalar(thetaft) + Bft * PetscSinScalar(thetaft)… in FormJacobian_Power_private()
149 …values[2] = Vmf * Vmt * (Gft * PetscSinScalar(thetaft) + Bft * -PetscCosScalar(thetaft)); … in FormJacobian_Power_private()
150 …values[3] = Vmf * (Gft * PetscCosScalar(thetaft) + Bft * PetscSinScalar(thetaft)); … in FormJacobian_Power_private()
161 … values[0] = Vmf * Vmt * (Bft * PetscSinScalar(thetaft) + Gft * PetscCosScalar(thetaft)); in FormJacobian_Power_private()
162 …values[1] = -2.0 * Bff * Vmf + Vmt * (-Bft * PetscCosScalar(thetaft) + Gft * PetscSinScalar(thetaf… in FormJacobian_Power_private()
163 … values[2] = Vmf * Vmt * (-Bft * PetscSinScalar(thetaft) + Gft * -PetscCosScalar(thetaft)); in FormJacobian_Power_private()
164 values[3] = Vmf * (-Bft * PetscCosScalar(thetaft) + Gft * PetscSinScalar(thetaft)); in FormJacobian_Power_private()
176 …values[0] = Vmt * Vmf * (Gtf * -PetscSinScalar(thetatf) + Btf * PetscCosScalar(thetaft)); … in FormJacobian_Power_private()
177 …values[1] = 2.0 * Gtt * Vmt + Vmf * (Gtf * PetscCosScalar(thetatf) + Btf * PetscSinScalar(thetatf)… in FormJacobian_Power_private()
[all …]
|
| H A D | power2.c | 94 …farr[offsetfrom] += Gff * Vmf * Vmf + Vmf * Vmt * (Gft * PetscCosScalar(thetaft) + Bft * PetscSinS… in FormFunction_Subnet()
95 …farr[offsetfrom + 1] += -Bff * Vmf * Vmf + Vmf * Vmt * (-Bft * PetscCosScalar(thetaft) + Gft * Pet… in FormFunction_Subnet()
97 …farr[offsetto] += Gtt * Vmt * Vmt + Vmt * Vmf * (Gtf * PetscCosScalar(thetatf) + Btf * PetscSinSca… in FormFunction_Subnet()
98 …farr[offsetto + 1] += -Btt * Vmt * Vmt + Vmt * Vmf * (-Btf * PetscCosScalar(thetatf) + Gtf * Petsc… in FormFunction_Subnet()
274 …values[0] = Vmf * Vmt * (Gft * -PetscSinScalar(thetaft) + Bft * PetscCosScalar(thetaft)); … in FormJacobian_Subnet()
275 …values[1] = 2.0 * Gff * Vmf + Vmt * (Gft * PetscCosScalar(thetaft) + Bft * PetscSinScalar(thetaft)… in FormJacobian_Subnet()
276 …values[2] = Vmf * Vmt * (Gft * PetscSinScalar(thetaft) + Bft * -PetscCosScalar(thetaft)); … in FormJacobian_Subnet()
277 …values[3] = Vmf * (Gft * PetscCosScalar(thetaft) + Bft * PetscSinScalar(thetaft)); … in FormJacobian_Subnet()
288 … values[0] = Vmf * Vmt * (Bft * PetscSinScalar(thetaft) + Gft * PetscCosScalar(thetaft)); in FormJacobian_Subnet()
289 …values[1] = -2.0 * Bff * Vmf + Vmt * (-Bft * PetscCosScalar(thetaft) + Gft * PetscSinScalar(thetaf… in FormJacobian_Subnet()
[all …]
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex34.c | 73 …][d] -= PetscCosScalar(2 * PETSC_PI * (((PetscReal)i + 0.5) * Hx)) * PetscCosScalar(2 * PETSC_PI *… in main()
115 …SC_PI * PetscCosScalar(2 * PETSC_PI * (((PetscReal)i + 0.5) * Hx)) * PetscCosScalar(2 * PETSC_PI *… in ComputeRHS()
|
| H A D | ex66.c | 84 …(i = xs; i < xs + xm; i++) array[j][i] = -PetscCosScalar(uu * pi * ((PetscReal)i + 0.5) * Hx) * Pe… in ComputeRHS()
|
| H A D | ex50.c | 88 …(i = xs; i < xs + xm; i++) array[j][i] = -PetscCosScalar(uu * pi * ((PetscReal)i + 0.5) * Hx) * Pe… in ComputeRHS()
|
| H A D | ex13.c | 84 …userb[Ii] = -2 * PETSC_PI * PetscCosScalar(2 * PETSC_PI * x) * PetscSinScalar(2 * PETSC_PI * y)… in main()
|
| /petsc/src/ts/tutorials/power_grid/stability_9bus/ |
| H A D | ex9busadj.c | 100 *Fr = Fd * PetscSinScalar(delta) + Fq * PetscCosScalar(delta); in dq2ri()
101 *Fi = -Fd * PetscCosScalar(delta) + Fq * PetscSinScalar(delta); in dq2ri()
109 *Fd = Fr * PetscSinScalar(delta) - Fi * PetscCosScalar(delta); in ri2dq()
110 *Fq = Fr * PetscCosScalar(delta) + Fi * PetscSinScalar(delta); in ri2dq()
154 Id = IGr * PetscCosScalar(theta) - IGi * PetscSinScalar(theta); /* d-axis stator current */ in SetInitialGuess()
155 Iq = IGr * PetscSinScalar(theta) + IGi * PetscCosScalar(theta); /* q-axis stator current */ in SetInitialGuess()
157 Vd = Vr * PetscCosScalar(theta) - Vi * PetscSinScalar(theta); in SetInitialGuess()
158 Vq = Vr * PetscSinScalar(theta) + Vi * PetscCosScalar(theta); in SetInitialGuess()
525 dVd_dVi = -PetscCosScalar(delta); in ResidualJacobian()
526 dVq_dVr = PetscCosScalar(delta); in ResidualJacobian()
[all …]
|
| H A D | ex9busoptfd.c | 102 *Fr = Fd * PetscSinScalar(delta) + Fq * PetscCosScalar(delta); in dq2ri()
103 *Fi = -Fd * PetscCosScalar(delta) + Fq * PetscSinScalar(delta); in dq2ri()
111 *Fd = Fr * PetscSinScalar(delta) - Fi * PetscCosScalar(delta); in ri2dq()
112 *Fq = Fr * PetscCosScalar(delta) + Fi * PetscSinScalar(delta); in ri2dq()
156 Id = IGr * PetscCosScalar(theta) - IGi * PetscSinScalar(theta); /* d-axis stator current */ in SetInitialGuess()
157 Iq = IGr * PetscSinScalar(theta) + IGi * PetscCosScalar(theta); /* q-axis stator current */ in SetInitialGuess()
159 Vd = Vr * PetscCosScalar(theta) - Vi * PetscSinScalar(theta); in SetInitialGuess()
160 Vq = Vr * PetscSinScalar(theta) + Vi * PetscCosScalar(theta); in SetInitialGuess()
526 dVd_dVi = -PetscCosScalar(delta); in ResidualJacobian()
527 dVq_dVr = PetscCosScalar(delta); in ResidualJacobian()
[all …]
|
| H A D | ex9busopt.c | 114 *Fr = Fd * PetscSinScalar(delta) + Fq * PetscCosScalar(delta); in dq2ri()
115 *Fi = -Fd * PetscCosScalar(delta) + Fq * PetscSinScalar(delta); in dq2ri()
123 *Fd = Fr * PetscSinScalar(delta) - Fi * PetscCosScalar(delta); in ri2dq()
124 *Fq = Fr * PetscCosScalar(delta) + Fi * PetscSinScalar(delta); in ri2dq()
193 Id = IGr * PetscCosScalar(theta) - IGi * PetscSinScalar(theta); /* d-axis stator current */ in SetInitialGuess()
194 Iq = IGr * PetscSinScalar(theta) + IGi * PetscCosScalar(theta); /* q-axis stator current */ in SetInitialGuess()
196 Vd = Vr * PetscCosScalar(theta) - Vi * PetscSinScalar(theta); in SetInitialGuess()
197 Vq = Vr * PetscSinScalar(theta) + Vi * PetscCosScalar(theta); in SetInitialGuess()
281 Id = IGr * PetscCosScalar(theta) - IGi * PetscSinScalar(theta); /* d-axis stator current */ in InitialGuess()
282 Iq = IGr * PetscSinScalar(theta) + IGi * PetscCosScalar(theta); /* q-axis stator current */ in InitialGuess()
[all …]
|
| H A D | ex9bus.c | 300 *Fr = Fd * PetscSinScalar(delta) + Fq * PetscCosScalar(delta); in dq2ri()
301 *Fi = -Fd * PetscCosScalar(delta) + Fq * PetscSinScalar(delta); in dq2ri()
309 *Fd = Fr * PetscSinScalar(delta) - Fi * PetscCosScalar(delta); in ri2dq()
310 *Fq = Fr * PetscCosScalar(delta) + Fi * PetscSinScalar(delta); in ri2dq()
380 Id = IGr * PetscCosScalar(theta) - IGi * PetscSinScalar(theta); /* d-axis stator current */ in SetInitialGuess()
381 Iq = IGr * PetscSinScalar(theta) + IGi * PetscCosScalar(theta); /* q-axis stator current */ in SetInitialGuess()
383 Vd = Vr * PetscCosScalar(theta) - Vi * PetscSinScalar(theta); in SetInitialGuess()
384 Vq = Vr * PetscSinScalar(theta) + Vi * PetscCosScalar(theta); in SetInitialGuess()
784 dVd_dVi = -PetscCosScalar(delta); in ResidualJacobian()
785 dVq_dVr = PetscCosScalar(delta); in ResidualJacobian()
[all …]
|
| H A D | ex9busdmnetwork.c | 417 Id = IGr * PetscCosScalar(theta) - IGi * PetscSinScalar(theta); in SetInitialGuess()
420 Iq = IGr * PetscSinScalar(theta) + IGi * PetscCosScalar(theta); in SetInitialGuess()
422 Vd = Vr * PetscCosScalar(theta) - Vi * PetscSinScalar(theta); in SetInitialGuess()
423 Vq = Vr * PetscSinScalar(theta) + Vi * PetscCosScalar(theta); in SetInitialGuess()
469 *Fr = Fd * PetscSinScalar(delta) + Fq * PetscCosScalar(delta); in dq2ri()
470 *Fi = -Fd * PetscCosScalar(delta) + Fq * PetscSinScalar(delta); in dq2ri()
478 *Fd = Fr * PetscSinScalar(delta) - Fi * PetscCosScalar(delta); in ri2dq()
479 *Fq = Fr * PetscCosScalar(delta) + Fi * PetscSinScalar(delta); in ri2dq()
|
| /petsc/src/ts/tutorials/ |
| H A D | ex5.c | 271 …or (i = 0; i < appctx->m; i++) u_localptr[i] = PetscCosScalar(PETSC_PI * i * 6. * h) + 3. * PetscC… in InitialConditions()
318 … (i = 0; i < appctx->m; i++) s_localptr[i] = PetscCosScalar(sc1 * (PetscReal)i) * ex1 + 3. * Petsc… in ExactSolution()
|
| /petsc/src/ts/tutorials/power_grid/ |
| H A D | ex3.h | 86 J[1][0] = -ctx->omega_s / (2.0 * ctx->H) * Pmax * PetscCosScalar(u[0]); in RHSJacobian()
139 J[1][0] = Pmax * PetscCosScalar(u[0]); in IJacobian()
|
| H A D | ex1.c | 69 J[0][1] = -ctx->E * ctx->V * PetscCosScalar(u[1]) / ctx->X; in IJacobian()
|
| H A D | ex9.c | 78 J[1][0] = -Pmax * PetscCosScalar(u[0]) * ctx->omega_s / (2.0 * ctx->H); in RHSJacobian()
|
| H A D | ex2.c | 82 J[1][0] = Pmax * PetscCosScalar(u[0]); in IJacobian()
|
| /petsc/src/snes/tests/ |
| H A D | ex4.c | 210 A[0] = 3.0 * PetscCosScalar(3.0 * xx[0]) + 1.0; in FormJacobian2()
|
| H A D | ex17.c | 306 A[0] = 3.0 * PetscCosScalar(3.0 * xx[0]) + 1.0; in FormJacobian2()
636 A[0] = 3.0 * PetscCosScalar(3.0 * xx[0]) + 1.0; in FormJacobian2_block()
|
| /petsc/src/snes/tutorials/ |
| H A D | ex1.c | 289 A[0] = 3.0 * PetscCosScalar(3.0 * xx[0]) + 1.0; in FormJacobian2()
|
| /petsc/src/tao/unconstrained/tutorials/ |
| H A D | burgers_spectral.c | 304 …ctx->param.mu * PETSC_PI * PetscSinScalar(PETSC_PI * xg[i]) / (2.0 + PetscCosScalar(PETSC_PI * xg[… in InitialConditions()
332 …ctx->param.mu * PETSC_PI * PetscSinScalar(PETSC_PI * xg[i]) / (2.0 + PetscCosScalar(PETSC_PI * xg[… in TrueSolution()
358 …(2.0 + PetscExpScalar(-PETSC_PI * PETSC_PI * t * appctx->param.mu) * PetscCosScalar(PETSC_PI * xg[… in ComputeObjective()
|
| /petsc/src/sys/tests/ |
| H A D | ex25.c | 95 b = PetscCosScalar(a); in main()
|