297 PetscErrorCode dq2ri(PetscScalar Fd, PetscScalar Fq, PetscScalar delta, PetscScalar *Fr, PetscScala…  in dq2ri()  argument
300   *Fr = Fd * PetscSinScalar(delta) + Fq * PetscCosScalar(delta);  in dq2ri()
301   *Fi = -Fd * PetscCosScalar(delta) + Fq * PetscSinScalar(delta);  in dq2ri()
306 PetscErrorCode ri2dq(PetscScalar Fr, PetscScalar Fi, PetscScalar delta, PetscScalar *Fd, PetscScala…  in ri2dq()  argument
309   *Fd = Fr * PetscSinScalar(delta) - Fi * PetscCosScalar(delta);  in ri2dq()
310   *Fq = Fr * PetscCosScalar(delta) + Fi * PetscSinScalar(delta);  in ri2dq()
346   PetscScalar        Eqp, Edp, delta;  in SetInitialGuess()  local
376     delta = PetscAtan2Real(Vi + Xq[i] * IGr, Vr - Xq[i] * IGi); /* Machine angle */  in SetInitialGuess()
378     theta = PETSC_PI / 2.0 - delta;  in SetInitialGuess()
394     xgen[idx + 2] = delta;  in SetInitialGuess()
437   PetscScalar        Eqp, Edp, delta, w; /* Generator variables */  in ResidualFunction()  local
472     delta = xgen[idx + 2];  in ResidualFunction()
489     PetscCall(ri2dq(Vr, Vi, delta, &Vd, &Vq));  in ResidualFunction()
502     PetscCall(dq2ri(Id, Iq, delta, &IGr, &IGi));  in ResidualFunction()
693   PetscScalar        Eqp, Edp, delta; /* Generator variables */  in ResidualJacobian()  local
726     delta = xgen[idx + 2];  in ResidualJacobian()
774     PetscCall(ri2dq(Vr, Vi, delta, &Vd, &Vq));  in ResidualJacobian()
783     dVd_dVr    = PetscSinScalar(delta);  in ResidualJacobian()
784     dVd_dVi    = -PetscCosScalar(delta);  in ResidualJacobian()
785     dVq_dVr    = PetscCosScalar(delta);  in ResidualJacobian()
786     dVq_dVi    = PetscSinScalar(delta);  in ResidualJacobian()
787     dVd_ddelta = Vr * PetscCosScalar(delta) + Vi * PetscSinScalar(delta);  in ResidualJacobian()
788     dVq_ddelta = -Vr * PetscSinScalar(delta) + Vi * PetscCosScalar(delta);  in ResidualJacobian()
822     dIGr_ddelta = Id * PetscCosScalar(delta) - Iq * PetscSinScalar(delta);  in ResidualJacobian()
823     dIGi_ddelta = Id * PetscSinScalar(delta) + Iq * PetscCosScalar(delta);  in ResidualJacobian()
824     dIGr_dId    = PetscSinScalar(delta);  in ResidualJacobian()
825     dIGr_dIq    = PetscCosScalar(delta);  in ResidualJacobian()
826     dIGi_dId    = -PetscCosScalar(delta);  in ResidualJacobian()
827     dIGi_dIq    = PetscSinScalar(delta);  in ResidualJacobian()