Commit 6d8b6516 authored by Andrew Heather's avatar Andrew Heather
Browse files

BUG: Corrected Curle analogy implementation. See #574

parent 5cfd3439
...@@ -99,7 +99,7 @@ bool Foam::functionObjects::Curle::calc() ...@@ -99,7 +99,7 @@ bool Foam::functionObjects::Curle::calc()
volScalarField& pDash = tpDash.ref(); volScalarField& pDash = tpDash.ref();
const volVectorField d(scopedName("d"), C - x0_); const volVectorField d(scopedName("d"), C - x0_);
pDash = 4*mathematical::pi/c0_*(d/magSqr(d) & dfdt); pDash = (d/magSqr(d) & dfdt)/(4.0*mathematical::pi*c0_);
return store(resultName_, tpDash); return store(resultName_, tpDash);
} }
......
...@@ -33,7 +33,7 @@ Description ...@@ -33,7 +33,7 @@ Description
Curle's analogy is implemented as: Curle's analogy is implemented as:
\f[ \f[
p' = 4 \frac{\pi}{c_0}\frac{\vec d}{|\vec d|^2}\frac{d(F)}{d(t)} p' = \frac{1}{4 \pi c_0}\frac{\vec d}{|\vec d|^2}\frac{d(F)}{d(t)}
\f] \f]
...@@ -68,8 +68,8 @@ Usage ...@@ -68,8 +68,8 @@ Usage
type | Type name: Curle | yes | type | Type name: Curle | yes |
field | Pressure field name | no | p field | Pressure field name | no | p
result | Acoustic pressure field name | no | Curle result | Acoustic pressure field name | no | Curle
patches | Sound generation patch names | yes | patches | Sound generation patch names | yes |
c0 | Reference speed of sound | yes | c0 | Reference speed of sound | yes |
\endtable \endtable
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment