Update BlockRIP

2024-05-09 16:48:34 +08:00
parent d7b4d9beb2
commit c57d8588e3
6 changed files with 174 additions and 0 deletions
@@ -0,0 +1,15 @@
+function I = calc_block_integral(tau, m)
+
+    if (~exist('m', 'var'))
+        m = 1;
+    end
+
+    if tau < 0
+        I = 0;
+    else
+        syms x f;
+        f = (x - tau) ^ 2 * exp(-x ^ 2/2) * x ^ (m - 1) / (2 ^ (m/2 - 1) * gamma(m/2));
+        I = double(int(f, [tau, +inf]));
+    end
+
+end