File:Speckle (simulation).jpg
| Uploaded by | Berto |
|---|---|
| Upload date | 2007-04-06T08:41:26Z |
| MIME type | image/jpeg |
| Dimensions | 1024 × 1024 px |
| File size | 113.7 KB |
Summary
| Description |
Speckle pattern obtained with the following Mathematica code superficie = Table[0, {1024}, {1024}];
For[i = 85, i ≤ 171, i++,
For[j = 85, j ≤ 171, j++,
superficie[[i, j]] = InverseErf[Random[
Real, {-1, 1}]] + \[ImaginaryI] InverseErf[Random[Real, {-1, 1}]];
];
]
ListDensityPlot[Abs[Fourier[superficie]], Mesh -> False] |
| Date | 6 April 2007 (original upload date) |
| Source | No machine-readable source provided. Own work assumed (based on copyright claims). |
| Author | No machine-readable author provided. Berto assumed (based on copyright claims). |
Licensing
|
I, the copyright holder of this work, release this work into the public domain. This applies worldwide. In some countries this may not be legally possible; if so: I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law. |