99 PetscErrorCode dq2ri(PetscScalar Fd, PetscScalar Fq, PetscScalar delta, PetscScalar *Fr, PetscScala…  in dq2ri()  argument
102   *Fr = Fd * PetscSinScalar(delta) + Fq * PetscCosScalar(delta);  in dq2ri()
103   *Fi = -Fd * PetscCosScalar(delta) + Fq * PetscSinScalar(delta);  in dq2ri()
108 PetscErrorCode ri2dq(PetscScalar Fr, PetscScalar Fi, PetscScalar delta, PetscScalar *Fd, PetscScala…  in ri2dq()  argument
111   *Fd = Fr * PetscSinScalar(delta) - Fi * PetscCosScalar(delta);  in ri2dq()
112   *Fq = Fr * PetscCosScalar(delta) + Fi * PetscSinScalar(delta);  in ri2dq()
122   PetscScalar  Eqp, Edp, delta;  in SetInitialGuess()  local
152     delta = PetscAtan2Real(Vi + Xq[i] * IGr, Vr - Xq[i] * IGi); /* Machine angle */  in SetInitialGuess()
154     theta = PETSC_PI / 2.0 - delta;  in SetInitialGuess()
170     xgen[idx + 2] = delta;  in SetInitialGuess()
211   PetscScalar  Eqp, Edp, delta, w; /* Generator variables */  in ResidualFunction()  local
246     delta = xgen[idx + 2];  in ResidualFunction()
263     PetscCall(ri2dq(Vr, Vi, delta, &Vd, &Vq));  in ResidualFunction()
276     PetscCall(dq2ri(Id, Iq, delta, &IGr, &IGi));  in ResidualFunction()
436   PetscScalar        Eqp, Edp, delta; /* Generator variables */  in ResidualJacobian()  local
468     delta = xgen[idx + 2];  in ResidualJacobian()
516     PetscCall(ri2dq(Vr, Vi, delta, &Vd, &Vq));  in ResidualJacobian()
525     dVd_dVr    = PetscSinScalar(delta);  in ResidualJacobian()
526     dVd_dVi    = -PetscCosScalar(delta);  in ResidualJacobian()
527     dVq_dVr    = PetscCosScalar(delta);  in ResidualJacobian()
528     dVq_dVi    = PetscSinScalar(delta);  in ResidualJacobian()
529     dVd_ddelta = Vr * PetscCosScalar(delta) + Vi * PetscSinScalar(delta);  in ResidualJacobian()
530     dVq_ddelta = -Vr * PetscSinScalar(delta) + Vi * PetscCosScalar(delta);  in ResidualJacobian()
564     dIGr_ddelta = Id * PetscCosScalar(delta) - Iq * PetscSinScalar(delta);  in ResidualJacobian()
565     dIGi_ddelta = Id * PetscSinScalar(delta) + Iq * PetscCosScalar(delta);  in ResidualJacobian()
566     dIGr_dId    = PetscSinScalar(delta);  in ResidualJacobian()
567     dIGr_dIq    = PetscCosScalar(delta);  in ResidualJacobian()
568     dIGi_dId    = -PetscCosScalar(delta);  in ResidualJacobian()
569     dIGi_dIq    = PetscSinScalar(delta);  in ResidualJacobian()