111 PetscErrorCode dq2ri(PetscScalar Fd, PetscScalar Fq, PetscScalar delta, PetscScalar *Fr, PetscScala…  in dq2ri()  argument
114   *Fr = Fd * PetscSinScalar(delta) + Fq * PetscCosScalar(delta);  in dq2ri()
115   *Fi = -Fd * PetscCosScalar(delta) + Fq * PetscSinScalar(delta);  in dq2ri()
120 PetscErrorCode ri2dq(PetscScalar Fr, PetscScalar Fi, PetscScalar delta, PetscScalar *Fd, PetscScala…  in ri2dq()  argument
123   *Fd = Fr * PetscSinScalar(delta) - Fi * PetscCosScalar(delta);  in ri2dq()
124   *Fq = Fr * PetscCosScalar(delta) + Fi * PetscSinScalar(delta);  in ri2dq()
159   PetscScalar  Eqp, Edp, delta;  in SetInitialGuess()  local
189     delta = PetscAtan2Real(Vi + Xq[i] * IGr, Vr - Xq[i] * IGi); /* Machine angle */  in SetInitialGuess()
191     theta = PETSC_PI / 2.0 - delta;  in SetInitialGuess()
207     xgen[idx + 2] = delta;  in SetInitialGuess()
247   PetscScalar  Eqp, Edp, delta;  in InitialGuess()  local
277     delta = PetscAtan2Real(Vi + Xq[i] * IGr, Vr - Xq[i] * IGi); /* Machine angle */  in InitialGuess()
279     theta = PETSC_PI / 2.0 - delta;  in InitialGuess()
293     xgen[idx + 2] = delta;  in InitialGuess()
356   PetscScalar  Eqp, Edp, delta, w; /* Generator variables */  in ResidualFunction()  local
391     delta = xgen[idx + 2];  in ResidualFunction()
408     PetscCall(ri2dq(Vr, Vi, delta, &Vd, &Vq));  in ResidualFunction()
421     PetscCall(dq2ri(Id, Iq, delta, &IGr, &IGi));  in ResidualFunction()
579   PetscScalar        Eqp, Edp, delta; /* Generator variables */  in ResidualJacobian()  local
611     delta = xgen[idx + 2];  in ResidualJacobian()
659     PetscCall(ri2dq(Vr, Vi, delta, &Vd, &Vq));  in ResidualJacobian()
668     dVd_dVr    = PetscSinScalar(delta);  in ResidualJacobian()
669     dVd_dVi    = -PetscCosScalar(delta);  in ResidualJacobian()
670     dVq_dVr    = PetscCosScalar(delta);  in ResidualJacobian()
671     dVq_dVi    = PetscSinScalar(delta);  in ResidualJacobian()
672     dVd_ddelta = Vr * PetscCosScalar(delta) + Vi * PetscSinScalar(delta);  in ResidualJacobian()
673     dVq_ddelta = -Vr * PetscSinScalar(delta) + Vi * PetscCosScalar(delta);  in ResidualJacobian()
707     dIGr_ddelta = Id * PetscCosScalar(delta) - Iq * PetscSinScalar(delta);  in ResidualJacobian()
708     dIGi_ddelta = Id * PetscSinScalar(delta) + Iq * PetscCosScalar(delta);  in ResidualJacobian()
709     dIGr_dId    = PetscSinScalar(delta);  in ResidualJacobian()
710     dIGr_dIq    = PetscCosScalar(delta);  in ResidualJacobian()
711     dIGi_dId    = -PetscCosScalar(delta);  in ResidualJacobian()
712     dIGi_dIq    = PetscSinScalar(delta);  in ResidualJacobian()