#include <cmath>

  double comp_ellint_1(double k)  // C++17

Liefert Wert des vollständigen Elliptischen Integrals 1. Art $K(k) = \int_0^{\pi/2} \frac{d\theta}{\sqrt{1-k^2 \sin^2 \theta}} = F(k,\pi/2)$.

Rückgabewert: $K(k)$.

ellint_1(), ellint_2(), ellint_3(), comp_ellint_2(), comp_ellint_3().

comp_ellint_1.cpp

#include <cmath>
#include <iostream>
 
int main()
{
  for (int i = 0; i <= 100; ++i)
  {
    double k = 0.01*i;
    std::cout << k 
      << '\t' << std::comp_ellint_1(k)
      << '\n';
  }
}