| 1 |
|
/* |
| 2 |
|
* Written by Doug Lea with assistance from members of JCP JSR-166 |
| 3 |
|
* Expert Group and released to the public domain, as explained at |
| 4 |
< |
* http://creativecommons.org/licenses/publicdomain |
| 4 |
> |
* http://creativecommons.org/publicdomain/zero/1.0/ |
| 5 |
|
*/ |
| 6 |
|
|
| 7 |
|
import java.util.concurrent.*; |
| 8 |
|
|
| 9 |
|
/** |
| 10 |
|
* Adapted from FJTask version. |
| 11 |
< |
* Sample program using Guassian Quadrature for numerical integration. |
| 12 |
< |
* Inspired by a |
| 11 |
> |
* Sample program using Gaussian Quadrature for numerical integration. |
| 12 |
> |
* Inspired by a |
| 13 |
|
* <A href="http://www.cs.uga.edu/~dkl/filaments/dist.html"> Filaments</A> |
| 14 |
|
* demo program. |
| 15 |
– |
* |
| 15 |
|
*/ |
| 17 |
– |
|
| 16 |
|
public class IntegrateGamma { |
| 17 |
|
/** for time conversion */ |
| 18 |
|
static final long NPS = (1000L * 1000 * 1000); |
| 28 |
|
start = new Double(args[1]).doubleValue(); |
| 29 |
|
if (args.length > 2) |
| 30 |
|
end = new Double(args[2]).doubleValue(); |
| 31 |
< |
if (args.length > 3) |
| 31 |
> |
if (args.length > 3) |
| 32 |
|
exp = Integer.parseInt(args[3]); |
| 33 |
|
} |
| 34 |
|
catch (Exception e) { |
| 36 |
|
return; |
| 37 |
|
} |
| 38 |
|
|
| 39 |
< |
ForkJoinPool g = procs == 0? new ForkJoinPool() : |
| 39 |
> |
ForkJoinPool g = (procs == 0) ? new ForkJoinPool() : |
| 40 |
|
new ForkJoinPool(procs); |
| 41 |
|
|
| 42 |
|
System.out.println("Integrating from " + start + " to " + end + " exponent: " + exp + " parallelism " + g.getParallelism()); |
| 43 |
< |
|
| 43 |
> |
|
| 44 |
|
Function f = new SampleFunction(exp); |
| 45 |
|
for (int i = 0; i < 10; ++i) { |
| 46 |
|
Integrator integrator = new Integrator(f, 0.001, g); |
| 49 |
|
double elapsed = elapsedTime(last); |
| 50 |
|
System.out.printf("time: %7.3f", elapsed); |
| 51 |
|
System.out.println(" Answer = " + result); |
| 52 |
< |
} |
| 52 |
> |
} |
| 53 |
|
System.out.println(g); |
| 54 |
|
g.shutdown(); |
| 55 |
|
} |
| 64 |
|
classes declared as static within Integrate |
| 65 |
|
*/ |
| 66 |
|
|
| 67 |
< |
/** A function to be integrated **/ |
| 67 |
> |
/** A function to be integrated */ |
| 68 |
|
static interface Function { |
| 69 |
|
double compute(double x); |
| 70 |
|
} |
| 71 |
|
|
| 72 |
|
/** |
| 73 |
|
* Sample from filaments demo. |
| 74 |
< |
* Computes (2*n-1)*(x^(2*n-1)) for all odd values |
| 75 |
< |
**/ |
| 74 |
> |
* Computes (2*n-1)*(x^(2*n-1)) for all odd values. |
| 75 |
> |
*/ |
| 76 |
|
static class SampleFunction implements Function { |
| 77 |
|
final int n; |
| 78 |
|
SampleFunction(int n) { this.n = n; } |
| 79 |
|
|
| 80 |
< |
public double compute(double x) { |
| 80 |
> |
public double compute(double x) { |
| 81 |
|
double power = x; |
| 82 |
|
double xsq = x * x; |
| 83 |
|
double val = power; |
| 91 |
|
} |
| 92 |
|
} |
| 93 |
|
|
| 96 |
– |
|
| 94 |
|
static class Integrator { |
| 95 |
|
final Function f; // The function to integrate |
| 96 |
|
final double errorTolerance; |
| 113 |
|
return q.area; |
| 114 |
|
} |
| 115 |
|
|
| 116 |
< |
|
| 120 |
< |
/** |
| 116 |
> |
/** |
| 117 |
|
* FJTask to recursively perform the quadrature. |
| 118 |
|
* Algorithm: |
| 119 |
|
* Compute the area from lower bound to the center point of interval, |
| 120 |
|
* and from the center point to the upper bound. If this |
| 121 |
|
* differs from the value from lower to upper by more than |
| 122 |
|
* the error tolerance, recurse on each half. |
| 123 |
< |
**/ |
| 123 |
> |
*/ |
| 124 |
|
final class Quad extends RecursiveAction { |
| 125 |
|
final double left; // lower bound |
| 126 |
|
final double right; // upper bound |
| 127 |
|
final double f_left; // value of the function evaluated at left |
| 128 |
|
final double f_right; // value of the function evaluated at right |
| 129 |
< |
|
| 129 |
> |
|
| 130 |
|
// Area initialized with original estimate from left to right. |
| 131 |
|
// It is replaced with refined value. |
| 132 |
|
volatile double area; |
| 133 |
< |
|
| 134 |
< |
Quad(double left, double right, |
| 135 |
< |
double f_left, double f_right, |
| 133 |
> |
|
| 134 |
> |
Quad(double left, double right, |
| 135 |
> |
double f_left, double f_right, |
| 136 |
|
double area) { |
| 137 |
|
this.left = left; |
| 138 |
|
this.right = right; |
| 140 |
|
this.f_right = f_right; |
| 141 |
|
this.area = area; |
| 142 |
|
} |
| 143 |
< |
|
| 143 |
> |
|
| 144 |
|
public void compute() { |
| 145 |
|
double center = 0.5 * (left + right); |
| 146 |
< |
double f_center = f.compute(center); |
| 147 |
< |
|
| 148 |
< |
double leftArea = 0.5 * (center - left) * (f_left + f_center); |
| 146 |
> |
double f_center = f.compute(center); |
| 147 |
> |
|
| 148 |
> |
double leftArea = 0.5 * (center - left) * (f_left + f_center); |
| 149 |
|
double rightArea = 0.5 * (right - center) * (f_center + f_right); |
| 150 |
|
double sum = leftArea + rightArea; |
| 151 |
< |
|
| 151 |
> |
|
| 152 |
|
double diff = sum - area; |
| 153 |
|
if (diff < 0) diff = -diff; |
| 154 |
< |
|
| 155 |
< |
if (diff >= errorTolerance) { |
| 154 |
> |
|
| 155 |
> |
if (diff >= errorTolerance) { |
| 156 |
|
Quad q1 = new Quad(left, center, f_left, f_center, leftArea); |
| 157 |
|
q1.fork(); |
| 158 |
|
Quad q2 = new Quad(center, right, f_center, f_right, rightArea); |
| 159 |
|
q2.compute(); |
| 160 |
|
q1.join(); |
| 161 |
< |
sum = q1.area + q2.area; |
| 161 |
> |
sum = q1.area + q2.area; |
| 162 |
|
} |
| 163 |
< |
|
| 163 |
> |
|
| 164 |
|
area = sum; |
| 165 |
|
} |
| 166 |
|
} |
| 167 |
|
} |
| 168 |
|
|
| 169 |
|
} |
| 174 |
– |
|
| 175 |
– |
|
