subroutine calcEllipseFromAngle(xSemi, ySemi, angleDeg, xVals, yVals) real(single), intent(in) :: xSemi, ySemi, angleDeg real(single), intent(out) :: xVals(:), yVals(size(xVals)) end subroutine calcEllipseFromAngle
Equation 2 can be decomposed into the following pair of parametric equations in :
here plays the same role as in equations 3 and 4. The subroutine returns points evenly distributed in .
The matching `phase'-style subroutine is
subroutine calcEllipseFromPhase(xAmp, yAmp, phase, xVals, yVals) real(single), intent(in) :: xAmp, yAmp, phase real(single), intent(out) :: xVals(:), yVals(size(xVals)) end subroutine calcEllipseFromPhase
Again the point coordinates returned in xVals and yVals are distributed evenly in .