From 9fd93fa7bd745cd3e34a3493f3e2d11fa475698a Mon Sep 17 00:00:00 2001
From: mathur04 <90455442+mathur04@users.noreply.github.com>
Date: Wed, 10 Jul 2024 23:07:25 +0200
Subject: [PATCH] Create Struve1.cpp

---
 UTSR/Struve1.cpp | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 UTSR/Struve1.cpp

diff --git a/UTSR/Struve1.cpp b/UTSR/Struve1.cpp
new file mode 100644
index 0000000..d8db787
--- /dev/null
+++ b/UTSR/Struve1.cpp
@@ -0,0 +1,17 @@
+#include <cmath>
+#include <functional>
+#include <vector>
+#include <boost/math/quadrature/gauss_kronrod.hpp>
+
+double Struve1(double z) {
+    std::function<double(double)> S1 = [z](double tt) {
+        return (2.0 / M_PI) * z * std::sqrt(1 - tt * tt) * std::sin(z * tt);
+    };
+
+    auto integrand = [&S1](double x) { return S1(x); };
+
+    double result = boost::math::quadrature::gauss_kronrod<double, 15>::integrate(integrand, 0.0, 1.0);
+
+    return result;
+}
+