97 PetscErrorCode dq2ri(PetscScalar Fd, PetscScalar Fq, PetscScalar delta, PetscScalar *Fr, PetscScala…  in dq2ri()  argument
100   *Fr = Fd * PetscSinScalar(delta) + Fq * PetscCosScalar(delta);  in dq2ri()
101   *Fi = -Fd * PetscCosScalar(delta) + Fq * PetscSinScalar(delta);  in dq2ri()
106 PetscErrorCode ri2dq(PetscScalar Fr, PetscScalar Fi, PetscScalar delta, PetscScalar *Fd, PetscScala…  in ri2dq()  argument
109   *Fd = Fr * PetscSinScalar(delta) - Fi * PetscCosScalar(delta);  in ri2dq()
110   *Fq = Fr * PetscCosScalar(delta) + Fi * PetscSinScalar(delta);  in ri2dq()
120   PetscScalar  Eqp, Edp, delta;  in SetInitialGuess()  local
150     delta = PetscAtan2Real(Vi + Xq[i] * IGr, Vr - Xq[i] * IGi); /* Machine angle */  in SetInitialGuess()
152     theta = PETSC_PI / 2.0 - delta;  in SetInitialGuess()
168     xgen[idx + 2] = delta;  in SetInitialGuess()
209   PetscScalar  Eqp, Edp, delta, w; /* Generator variables */  in ResidualFunction()  local
244     delta = xgen[idx + 2];  in ResidualFunction()
261     PetscCall(ri2dq(Vr, Vi, delta, &Vd, &Vq));  in ResidualFunction()
275     PetscCall(dq2ri(Id, Iq, delta, &IGr, &IGi));  in ResidualFunction()
435   PetscScalar        Eqp, Edp, delta; /* Generator variables */  in ResidualJacobian()  local
467     delta = xgen[idx + 2];  in ResidualJacobian()
515     PetscCall(ri2dq(Vr, Vi, delta, &Vd, &Vq));  in ResidualJacobian()
524     dVd_dVr    = PetscSinScalar(delta);  in ResidualJacobian()
525     dVd_dVi    = -PetscCosScalar(delta);  in ResidualJacobian()
526     dVq_dVr    = PetscCosScalar(delta);  in ResidualJacobian()
527     dVq_dVi    = PetscSinScalar(delta);  in ResidualJacobian()
528     dVd_ddelta = Vr * PetscCosScalar(delta) + Vi * PetscSinScalar(delta);  in ResidualJacobian()
529     dVq_ddelta = -Vr * PetscSinScalar(delta) + Vi * PetscCosScalar(delta);  in ResidualJacobian()
563     dIGr_ddelta = Id * PetscCosScalar(delta) - Iq * PetscSinScalar(delta);  in ResidualJacobian()
564     dIGi_ddelta = Id * PetscSinScalar(delta) + Iq * PetscCosScalar(delta);  in ResidualJacobian()
565     dIGr_dId    = PetscSinScalar(delta);  in ResidualJacobian()
566     dIGr_dIq    = PetscCosScalar(delta);  in ResidualJacobian()
567     dIGi_dId    = -PetscCosScalar(delta);  in ResidualJacobian()
568     dIGi_dIq    = PetscSinScalar(delta);  in ResidualJacobian()