| /petsc/src/ts/tutorials/power_grid/ |
| H A D | ex8.c | 27 PetscScalar ws; /* Synchronous speed */ member
173 PetscScalar f = (y - user->ws), fpos = PetscMax(f, 0), fneg = PetscMin(f, 0); in adv1()
193 …f = (user->ws / (2 * user->H)) * (user->PM_min - user->Pmax * PetscSinScalar(x) - user->D * (y … in adv2()
254 gamma = user->D * user->ws / (2 * user->H); in IFunction()
256 user->disper_coe = user->ws * user->ws / (4 * user->H * user->H) * diffuse1; in IFunction()
301 c1 = (yi - user->ws) / user->dx; in IJacobian()
304 …c3 = (user->ws / (2.0 * user->H)) * (user->PM_min - user->Pmax * PetscSinScalar(xi) - use… in IJacobian()
307 …c5 = (PetscPowScalar((user->lambda * user->ws) / (2 * user->H), 2) * user->q * (1.0 - Pet… in IJacobian()
343 user->ws = 1.0; in Parameter_settings()
363 PetscCall(PetscOptionsGetScalar(NULL, NULL, "-ws", &user->ws, &flg)); in Parameter_settings()
[all …]
|
| H A D | ex6.c | 20 PetscScalar ws; /* Synchronous speed */ member
182 f = (y - user->ws); in adv1()
206 f = (user->ws / (2 * user->H)) * (user->PM_min - user->Pmax * PetscSinScalar(x)); in adv2()
228 fthetac = user->ws / (2 * user->H) * (user->PM_min - user->Pmax * PetscSinScalar(theta)); in BoundaryConditions()
229 fwc = (w * w / 2.0 - user->ws * w); in BoundaryConditions()
282 …user->disper_coe = PetscPowScalar((user->lambda * user->ws) / (2 * user->H), 2) * user->q * (1.0 -… in IFunction()
337 fthetac = user->ws / (2 * user->H) * (user->PM_min - user->Pmax * PetscSinScalar(xi)); in IJacobian()
338 fwc = (yi * yi / 2.0 - user->ws * yi); in IJacobian()
434 c1 = (yi - user->ws) / (2 * user->dx); in IJacobian()
435 …c3 = (user->ws / (2.0 * user->H)) * (user->PM_min - user->Pmax * PetscSinScalar(xi)) / (2 *… in IJacobian()
[all …]
|
| H A D | ex7.c | 21 PetscScalar ws; /* Synchronous speed */ member
204 f = (y - user->ws); in adv1()
223 f = (user->ws / (2 * user->H)) * (user->PM_min - user->Pmax * PetscSinScalar(x)); in adv2()
281 …user->disper_coe = PetscPowScalar((user->lambda * user->ws) / (2 * user->H), 2) * user->q * (1.0 -… in IFunction()
325 c1 = (yi - user->ws) / user->dx; in IJacobian()
328 …c3 = (user->ws / (2.0 * user->H)) * (user->PM_min - user->Pmax * PetscSinScalar(xi)) / us… in IJacobian()
331 …c5 = (PetscPowScalar((user->lambda * user->ws) / (2 * user->H), 2) * user->q * (1.0 - Pet… in IJacobian()
367 user->ws = 1.0; in Parameter_settings()
391 PetscCall(PetscOptionsGetScalar(NULL, NULL, "-ws", &user->ws, &flg)); in Parameter_settings()
400 if (flg == 0) user->muy = user->ws; in Parameter_settings()
|
| H A D | petscopt_ex6 | 6 -ws 1.0
|
| H A D | ex5.c | 28 #define ws (2 * PETSC_PI * freq) macro
170 temp = user->nGB * 2 * user->Rt * ws / user->np; in GetWindPower()
|
| /petsc/lib/petsc/conf/ |
| H A D | rules_util.mk | 283 ws=`echo $${url} | sed 's!\(http[s]*://[-a-zA-Z0-9_.]*\)/.*!\1!g'` ; \
284 dp=`echo $${ws}$${l} | grep "dropbox.com/s/raw"` ; \
286 b=`curl --connect-timeout 5 --head --silent $${ws}$$l | head -n 1` ; \
294 url="$${ws}$$l" ; \
|
| /petsc/src/ts/impls/glee/ |
| H A D | glee.c | 440 PetscScalar *ws = glee->swork, *wr = glee->rwork; in TSEvaluateStep_GLEE() local
465 for (j = 0; j < s; j++) ws[j] = h * B[i * s + j]; in TSEvaluateStep_GLEE()
466 PetscCall(VecMAXPY(Y[i], s, ws, YdotStage)); in TSEvaluateStep_GLEE()
480 for (j = 0; j < s; j++) ws[j] = h * B[i * s + j]; in TSEvaluateStep_GLEE()
481 PetscCall(VecMAXPY(Y[i], s, ws, YdotStage)); in TSEvaluateStep_GLEE()
503 PetscScalar *ws = glee->swork, *wr = glee->rwork; in TSStep_GLEE() local
533 for (j = 0; j < i; j++) ws[j] = h * A[i * s + j]; in TSStep_GLEE()
534 PetscCall(VecMAXPY(YStage[i], i, ws, YdotStage)); in TSStep_GLEE()
541 for (j = 0; j < i; j++) ws[j] = h * A[i * s + j]; in TSStep_GLEE()
542 PetscCall(VecMAXPY(W, i, ws, YdotStage)); in TSStep_GLEE()
|
| /petsc/src/ksp/ksp/impls/rich/ |
| H A D | rich.c | 25 PetscInt xs, ws; in KSPSolve_Richardson() local
41 PetscCall(VecGetSize(ksp->work[0], &ws)); in KSPSolve_Richardson()
42 if (xs != ws) { in KSPSolve_Richardson()
|
| /petsc/src/ts/impls/multirate/ |
| H A D | mprk.c | 723 PetscScalar *wf = mprk->work_fast, *ws = mprk->work_slow, *wsb = mprk->work_slowbuffer; in TSEvaluateStep_MPRKSPLIT() local
734 if (tab->rsb[j]) ws[tab->rsb[j] - 1] += h * tab->bsb[j]; in TSEvaluateStep_MPRKSPLIT()
735 else ws[computedstages++] = h * tab->bsb[j]; in TSEvaluateStep_MPRKSPLIT()
738 PetscCall(VecMAXPY(Xslow, computedstages, ws, mprk->YdotRHS_slow)); in TSEvaluateStep_MPRKSPLIT()
794 PetscScalar *wf = mprk->work_fast, *ws = mprk->work_slow, *wsb = mprk->work_slowbuffer; in TSStep_MPRKSPLIT() local
838 if (tab->rsb[j]) ws[tab->rsb[j] - 1] += wsb[j]; in TSStep_MPRKSPLIT()
839 else ws[computedstages++] = wsb[j]; in TSStep_MPRKSPLIT()
842 PetscCall(VecMAXPY(Yslow, computedstages, ws, YdotRHS_slow)); in TSStep_MPRKSPLIT()
|
| /petsc/src/binding/petsc4py/conf/ |
| H A D | confpetsc.py | 94 ruler, ws, nl = '*' * 80, ' ', '\n'
102 printer(ws, message, nl)
103 printer(ws, ws, advise, nl)
|