| /petsc/src/sys/classes/draw/interface/ |
| H A D | dviewp.c | 25 PetscErrorCode PetscDrawSetViewPort(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, Petsc… in PetscDrawSetViewPort() argument 29 …xr <= 1.0 && yl >= 0.0 && yr <= 1.0 && xr > xl && yr > yl, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRAN… in PetscDrawSetViewPort() 32 draw->port_xr = xr; in PetscDrawSetViewPort() 34 PetscTryTypeMethod(draw, setviewport, xl, yl, xr, yr); in PetscDrawSetViewPort() 62 PetscErrorCode PetscDrawGetViewPort(PetscDraw draw, PetscReal *xl, PetscReal *yl, PetscReal *xr, Pe… in PetscDrawGetViewPort() argument 68 PetscAssertPointer(xr, 4); in PetscDrawGetViewPort() 72 *xr = draw->port_xr; in PetscDrawGetViewPort() 95 PetscReal xl, xr, yl, yr, h; in PetscDrawSplitViewPort() local 109 xr = xl + h; in PetscDrawSplitViewPort() 115 PetscCall(PetscDrawLine(draw, xl, yr, xr, yr, PETSC_DRAW_BLACK)); in PetscDrawSplitViewPort() [all …]
|
| H A D | dcoor.c | 23 PetscErrorCode PetscDrawSetCoordinates(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, Pe… in PetscDrawSetCoordinates() argument 29 draw->coor_xr = xr; in PetscDrawSetCoordinates() 31 PetscTryTypeMethod(draw, setcoordinates, xl, yl, xr, yr); in PetscDrawSetCoordinates() 54 PetscErrorCode PetscDrawGetCoordinates(PetscDraw draw, PetscReal *xl, PetscReal *yl, PetscReal *xr,… in PetscDrawGetCoordinates() argument 60 PetscAssertPointer(xr, 4); in PetscDrawGetCoordinates() 64 *xr = draw->coor_xr; in PetscDrawGetCoordinates()
|
| H A D | dline.c | 24 PetscErrorCode PetscDrawGetBoundingBox(PetscDraw draw, PetscReal *xl, PetscReal *yl, PetscReal *xr,… in PetscDrawGetBoundingBox() argument 30 if (xr) PetscAssertPointer(xr, 4); in PetscDrawGetBoundingBox() 34 if (xr) *xr = draw->boundbox_xr; in PetscDrawGetBoundingBox() 151 PetscErrorCode PetscDrawLine(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, PetscReal yr… in PetscDrawLine() argument 155 PetscUseTypeMethod(draw, line, xl, yl, xr, yr, cl); in PetscDrawLine() 177 PetscErrorCode PetscDrawArrow(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, PetscReal y… in PetscDrawArrow() argument 181 PetscUseTypeMethod(draw, arrow, xl, yl, xr, yr, cl); in PetscDrawArrow()
|
| H A D | drect.c | 124 PetscErrorCode PetscDrawRectangle(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, PetscRe… in PetscDrawRectangle() argument 128 PetscUseTypeMethod(draw, rectangle, xl, yl, xr, yr, c1, c2, c3, c4); in PetscDrawRectangle()
|
| H A D | dtri.c | 52 PetscReal xl = 0.0, yl = 0.0, xr = 1.0, yr = 1.0; in PetscDrawScalePopup() local 67 PetscCall(PetscDrawSetCoordinates(popup, xl, yl, xr, yr)); in PetscDrawScalePopup() 72 PetscCall(PetscDrawRectangle(popup, xl, yl, xr, yr, c, c, c, c)); in PetscDrawScalePopup()
|
| /petsc/src/sys/classes/draw/utils/ |
| H A D | zoom.c | 20 PetscReal dpause, xc, yc, scale = 1.0, w, h, xr, xl, yr, yl, xmin, xmax, ymin, ymax; in PetscDrawZoom() local 42 PetscCall(PetscDrawGetCoordinates(draw, &xl, &yl, &xr, &yr)); in PetscDrawZoom() 44 xmax = xr; in PetscDrawZoom() 45 w = xr - xl; in PetscDrawZoom() 68 xr = scale * (xr - w - xc) + xc + w * scale; in PetscDrawZoom() 74 PetscCall(PetscDrawSetCoordinates(draw, xl, yl, xr, yr)); in PetscDrawZoom()
|
| H A D | lgc.c | 510 PetscReal xl, yl, xr, yr, tw, th; in PetscDrawLGDraw() local 513 PetscCall(PetscDrawAxisGetLimits(lg->axis, &xl, &xr, &yl, &yr)); in PetscDrawLGDraw() 520 xr = xr - 1.5 * tw; in PetscDrawLGDraw() 521 xl = xr - ((PetscReal)len + 7) * tw; in PetscDrawLGDraw() 524 xr = xl + ((PetscReal)len + 7) * tw; in PetscDrawLGDraw() 528 PetscCall(PetscDrawLine(draw, xl, yl, xr, yl, PETSC_DRAW_BLACK)); in PetscDrawLGDraw() 529 PetscCall(PetscDrawLine(draw, xr, yl, xr, yr, PETSC_DRAW_BLACK)); in PetscDrawLGDraw() 530 PetscCall(PetscDrawLine(draw, xr, yr, xl, yr, PETSC_DRAW_BLACK)); in PetscDrawLGDraw()
|
| H A D | axisc.c | 254 PetscReal xl, xr, yl, yr, dxl = 0, dyl = 0, dxr = 0, dyr = 0; in PetscDrawAxisDraw() local 302 xr = (dxl * axis->xhigh + dxr * axis->xlow - axis->xhigh) / (dxl + dxr - 1); in PetscDrawAxisDraw() 305 PetscCall(PetscDrawSetCoordinates(draw, xl, yl, xr, yr)); in PetscDrawAxisDraw()
|
| /petsc/src/ts/tests/ |
| H A D | ex4.c | 277 PetscReal dx, dy, a, epsilon, xc, xl, xr, yl, yr; in RHSJacobian() local 290 xr = -0.5 * a / dx + epsilon / (dx * dx); in RHSJacobian() 296 v[1] = xr; in RHSJacobian() 316 v[2] = xr; in RHSJacobian() 328 v[1] = xr; in RHSJacobian() 352 v[2] = xr; in RHSJacobian() 366 v[1] = xr; in RHSJacobian() 386 v[2] = xr; in RHSJacobian() 406 PetscReal xc, xl, xr, yl, yr; in RHSFunction() local 427 xr = -0.5 * a / dx + epsilon / (dx * dx); in RHSFunction() [all …]
|
| /petsc/src/snes/tutorials/ |
| H A D | ex4.c | 119 PetscScalar f2, f4, d1, d2, d3, d4, xc, xl, xr, xt, xb; in FormObjectiveLocal() local 130 xl = xr = xb = xt = xc; in FormObjectiveLocal() 141 xr = user->right[j + 1]; in FormObjectiveLocal() 142 } else xr = x[j][i + 1]; in FormObjectiveLocal() 149 d2 = (xc - xr); in FormObjectiveLocal() 217 PetscScalar f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormFunctionLocal() local 230 xlt = xrb = xl = xr = xb = xt = xc; in FormFunctionLocal() 243 xr = user->right[j + 1]; in FormFunctionLocal() 245 } else xr = x[j][i + 1]; in FormFunctionLocal() 256 d2 = (xc - xr); in FormFunctionLocal() [all …]
|
| H A D | ex58.c | 149 …PetscScalar f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormGradient() local 181 xlt = xrb = xl = xr = xb = xt = xc; in FormGradient() 194 xr = ctx->right[j + 1]; in FormGradient() 196 } else xr = x[j][i + 1]; in FormGradient() 207 d2 = (xc - xr); in FormGradient() 210 d5 = (xr - xrb); in FormGradient() 277 …PetscScalar f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormJacobian() local 312 xlt = xrb = xl = xr = xb = xt = xc; in FormJacobian() 328 xr = ctx->right[j + 1]; in FormJacobian() 330 } else xr = x[j][i + 1]; in FormJacobian() [all …]
|
| /petsc/src/tao/complementarity/tutorials/ |
| H A D | minsurf1.c | 142 PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormConstraints() local 161 xlt = xrb = xl = xr = xb = xt = xc; in FormConstraints() 178 xr = user->right[j + 1]; in FormConstraints() 181 xr = x[row + 1]; in FormConstraints() 195 d2 = (xc - xr); in FormConstraints() 198 d5 = (xr - xrb); in FormConstraints() 264 …PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt… in FormJacobian() local 285 xlt = xrb = xl = xr = xb = xt = xc; in FormJacobian() 303 xr = user->right[j + 1]; in FormJacobian() 306 xr = x[row + 1]; in FormJacobian() [all …]
|
| /petsc/src/tao/unconstrained/tutorials/ |
| H A D | minsurf1.c | 131 …PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt… in FormFunctionGradient() local 148 xlt = xrb = xl = xr = xb = xt = xc; in FormFunctionGradient() 164 xr = user->right[j + 1]; in FormFunctionGradient() 167 xr = x[row + 1]; in FormFunctionGradient() 181 d2 = (xc - xr); in FormFunctionGradient() 184 d5 = (xr - xrb); in FormFunctionGradient() 310 …PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt… in QuadraticH() local 331 xlt = xrb = xl = xr = xb = xt = xc; in QuadraticH() 349 xr = user->right[j + 1]; in QuadraticH() 352 xr = x[row + 1]; in QuadraticH() [all …]
|
| H A D | minsurf2.c | 170 PetscReal f2, f4, d1, d2, d3, d4, xc, xl, xr, xt, xb; in FormFunction() local 205 xr = user->right[j - ys + 1]; in FormFunction() 207 xr = x[j][i + 1]; in FormFunction() 217 d2 = (xc - xr); in FormFunction() 304 PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormFunctionGradient() local 327 xlt = xrb = xl = xr = xb = xt = xc; in FormFunctionGradient() 344 xr = user->right[j - ys + 1]; in FormFunctionGradient() 347 xr = x[j][i + 1]; in FormFunctionGradient() 361 d2 = (xc - xr); in FormFunctionGradient() 364 d5 = (xr - xrb); in FormFunctionGradient() [all …]
|
| /petsc/src/sys/classes/draw/impls/null/ |
| H A D | drawnull.c | 36 static PetscErrorCode PetscDrawLine_Null(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, … in PetscDrawLine_Null() argument 42 static PetscErrorCode PetscDrawArrow_Null(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr,… in PetscDrawArrow_Null() argument 48 …scDrawRectangle_Null(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, PetscReal yr, int c… in PetscDrawRectangle_Null() argument
|
| /petsc/src/tao/bound/tutorials/ |
| H A D | plate2f.F90 | 76 PetscReal xc, xl, xr, xt, xb, xlt, xrb 118 xr = xc 138 xr = right_v(1 + j - ys + 1) 141 xr = x_v(1 + row + 1) 160 d2 = xc - xr 163 d5 = xr - xrb 308 PetscReal xc, xl, xr, xt, xb, xlt, xrb 357 xr = xc 377 xr = right_v(1 + j - ys + 1) 380 xr = x_v(1 + row + 1) [all …]
|
| H A D | plate2.c | 207 PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormFunctionGradient() local 238 xlt = xrb = xl = xr = xb = xt = xc; in FormFunctionGradient() 255 xr = right[j - ys + 1]; in FormFunctionGradient() 258 xr = x[row + 1]; in FormFunctionGradient() 272 d2 = (xc - xr); in FormFunctionGradient() 275 d5 = (xr - xrb); in FormFunctionGradient() 423 PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormHessian() local 460 xlt = xrb = xl = xr = xb = xt = xc; in FormHessian() 478 xr = right[j - ys + 1]; in FormHessian() 481 xr = x[row + 1]; in FormHessian() [all …]
|
| /petsc/src/sys/classes/draw/impls/tikz/ |
| H A D | tikz.c | 86 static PetscErrorCode PetscDrawLine_TikZ(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, … in PetscDrawLine_TikZ() argument 92 …g);\n", TikZColorMap(cl), XTRANS(draw, xl), YTRANS(draw, yl), XTRANS(draw, xr), YTRANS(draw, yr))); in PetscDrawLine_TikZ() 96 …scDrawRectangle_TikZ(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, PetscReal yr, int c… in PetscDrawRectangle_TikZ() argument 102 …ap(c1), TikZColorMap(c4), XTRANS(draw, xl), YTRANS(draw, yl), XTRANS(draw, xr), YTRANS(draw, yr))); in PetscDrawRectangle_TikZ()
|
| /petsc/src/sys/classes/draw/impls/image/ |
| H A D | drawimage.c | 19 … PetscDrawSetViewport_Image(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, PetscReal yr) in PetscDrawSetViewport_Image() argument 27 int xb = (int)(xr * xmax), yb = ymax - (int)(yl * ymax); in PetscDrawSetViewport_Image() 116 static PetscErrorCode PetscDrawLine_Image(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr,… in PetscDrawLine_Image() argument 122 int x_1 = XTRANS(draw, img, xl), x_2 = XTRANS(draw, img, xr); in PetscDrawLine_Image() 129 static PetscErrorCode PetscDrawArrow_Image(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr… in PetscDrawArrow_Image() argument 136 int x_1 = XTRANS(draw, img, xl), x_2 = XTRANS(draw, img, xr); in PetscDrawArrow_Image() 162 …cDrawRectangle_Image(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, PetscReal yr, int c… in PetscDrawRectangle_Image() argument 172 int x = XTRANS(draw, img, xl), w = XTRANS(draw, img, xr) + 1 - x; in PetscDrawRectangle_Image()
|
| /petsc/src/mat/matfd/ |
| H A D | fdmatrix.c | 48 PetscReal xr, yr, xl, yl, h, w; in MatFDColoringView_Draw() local 55 xr = fd->N; in MatFDColoringView_Draw() 58 w = xr / 10.0; in MatFDColoringView_Draw() 59 xr += w; in MatFDColoringView_Draw() 63 PetscCall(PetscDrawSetCoordinates(draw, xl, yl, xr, yr)); in MatFDColoringView_Draw()
|
| /petsc/src/ts/impls/explicit/euler/ |
| H A D | euler.c | 98 static PetscErrorCode TSComputeLinearStability_Euler(TS ts, PetscReal xr, PetscReal xi, PetscReal *… in TSComputeLinearStability_Euler() argument 101 *yr = 1.0 + xr; in TSComputeLinearStability_Euler()
|
| /petsc/src/sys/classes/draw/impls/x/ |
| H A D | xops.c | 16 …Code PetscDrawSetViewport_X(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, PetscReal yr) in PetscDrawSetViewport_X() argument 25 xb = (int)(xr * (PetscReal)xmax); in PetscDrawSetViewport_X() 82 static PetscErrorCode PetscDrawLine_X(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, Pet… in PetscDrawLine_X() argument 90 x_2 = XTRANS(draw, XiWin, xr); in PetscDrawLine_X() 97 static PetscErrorCode PetscDrawArrow_X(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, Pe… in PetscDrawArrow_X() argument 105 x_2 = XTRANS(draw, XiWin, xr); in PetscDrawArrow_X() 131 static PetscErrorCode PetscDrawRectangle_X(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr… in PetscDrawRectangle_X() argument 139 w = XTRANS(draw, XiWin, xr) + 1 - x; in PetscDrawRectangle_X() 292 PetscReal xr = draw->port_xr, yr = draw->port_yr; in PetscDrawClear_X() local 307 int xb = (int)(xr * xmax), yb = ymax - (int)(yl * ymax); in PetscDrawClear_X()
|
| /petsc/src/ts/interface/ |
| H A D | tseig.c | 81 static PetscErrorCode TSLinearStabilityIndicator(TS ts, PetscReal xr, PetscReal xi, PetscBool *flg) in TSLinearStabilityIndicator() argument 86 PetscCall(TSComputeLinearStability(ts, xr, xi, &yr, &yi)); in TSLinearStabilityIndicator()
|
| H A D | tsmon.c | 603 PetscReal xl, yl, xr, yr, h; in TSMonitorDrawSolution() local 608 PetscCall(PetscDrawGetCoordinates(draw, &xl, &yl, &xr, &yr)); in TSMonitorDrawSolution() 610 PetscCall(PetscDrawStringCentered(draw, .5 * (xl + xr), h, PETSC_DRAW_BLACK, time)); in TSMonitorDrawSolution() 645 PetscReal U0, U1, xl, yl, xr, yr, h; in TSMonitorDrawSolutionPhase() local 657 PetscCall(PetscDrawAxisGetLimits(axis, &xl, &xr, &yl, &yr)); in TSMonitorDrawSolutionPhase() 667 if ((U0 < xl) || (U1 < yl) || (U0 > xr) || (U1 > yr)) PetscFunctionReturn(PETSC_SUCCESS); in TSMonitorDrawSolutionPhase() 672 PetscCall(PetscDrawGetCoordinates(draw, &xl, &yl, &xr, &yr)); in TSMonitorDrawSolutionPhase() 675 PetscCall(PetscDrawStringCentered(draw, .5 * (xl + xr), h, PETSC_DRAW_BLACK, time)); in TSMonitorDrawSolutionPhase()
|
| /petsc/src/dm/impls/swarm/ |
| H A D | swarmpic.c | 1011 PetscReal v0[3], J[9], invJ[9], detJ, detJp = 2. / (gmax[0] - gmin[0]), xr[3], den; in DMSwarmComputeLocalSize() local 1017 CoordinatesRefToReal(dim, dim, xi0, v0, J, &xq[q * dim], xr); in DMSwarmComputeLocalSize() 1019 xr[0] = detJp * (xr[0] - gmin[0]) - 1.; in DMSwarmComputeLocalSize() 1022 PetscCall(density(xr, NULL, &den)); in DMSwarmComputeLocalSize() 1376 PetscReal xr[8]; in DMProjectFieldLocal_Swarm() local 1381 … for (PetscInt b = 0; b < cbs[i]; ++b, ++off) xr[off] = coordVals[i][pindices[p] * cbs[i] + b]; in DMProjectFieldLocal_Swarm() 1384 CoordinatesRealToRef(dE, dim, fegeom.xi, fegeom.v, fegeom.invJ, xr, &xi[p * dim]); in DMProjectFieldLocal_Swarm()
|