Plik:Amoeba2.png
Z testwiki
Przejdź do nawigacji
Przejdź do wyszukiwania
Rozmiar podglądu – 624 × 600 pikseli. Inne rozdzielczości: 250 × 240 pikseli | 499 × 480 pikseli | 799 × 768 pikseli | 1065 × 1024 pikseli | 1504 × 1446 pikseli.
Rozmiar pierwotny (1504 × 1446 pikseli, rozmiar pliku: 13 KB, typ MIME: image/png)
Ten plik znajduje się w Wikimedia Commons i może być używany w innych projektach. Poniżej znajdują się informacje ze strony opisu tego pliku.
Opis
Licencja
| Public domainPublic domainfalsefalse |
| Ten utwór został udostępniony jako własność publiczna przez jego autora, Oleg Alexandrov. Dotyczy to całego świata. W niektórych krajach może nie być to prawnie możliwe, jeśli tak, to: Oleg Alexandrov zapewnia każdemu prawo do użycia tej pracy w dowolnym celu, bez żadnych ograniczeń, chyba że te ograniczenia są wymagane przez prawo. |
Source code

This media was created with C++ (język programowania ogólnego przeznaczenia)
Here is a listing of the source used to create this file.
Here is a listing of the source used to create this file.
#include <iostream>
#include <fstream>
#include <cmath>
#include <complex>
using namespace std;
double small = 1e-14;
double mylog (double);
int main(){
double A=-5, B=5;
int N=1000;
double h= (B-A)/(N-1);
double theta0 = 2*M_PI/(N-1.0);
ofstream mfile ("data.txt");
for (int i=0 ; i < N ; i++){
double r = exp(A+i*h);
for (int j=0 ; j < N ; j++){
double theta = j*theta0;
complex<double> z2 = polar(r, theta);
complex<double> root = sqrt(25.0*z2*z2-12.0*(z2*z2*z2+1.0));
complex<double> z11 = (-5.0*z2+root)/6.0;
complex<double> z12 = (-5.0*z2-root)/6.0;
double a1 = mylog(abs(z11));
double a2 = mylog(abs(z12));
double b = mylog(abs(z2));
mfile << a1 << ' ' << b << endl;
mfile << a2 << ' ' << b << endl;
}
}
mfile.close();
return 0;
}
double mylog (double x){
if (x< 0){
cerr << "Error in log, negative x!" << endl;
exit(0);
}
if (x < small){
return log (small);
}
return log (x);
}
Matlab code which reads the data output by the C++ code and graphs it
A=load('data.txt');
plot(A(:, 1), A(:, 2), '.');
axis equal; axis off;
axis([-4 6 -5 5])
saveas(gcf, 'amoeba2.eps', 'psc2');
Podpisy
Dodaj jednolinijkowe objaśnienie tego, co ten plik pokazuje
Obiekty przedstawione na tym zdjęciu
przedstawia
Jakaś wartość bez elementu Wikidanych
28 lut 2007
image/png
a3c5be123725d2e6dfb29eba46ec56cf5d615037
13 103 bajt
1446 piksel
1504 piksel
Historia pliku
Kliknij na datę/czas, aby zobaczyć, jak plik wyglądał w tym czasie.
| Data i czas | Miniatura | Wymiary | Użytkownik | Opis | |
|---|---|---|---|---|---|
| aktualny | 05:22, 9 mar 2007 | 1504 × 1446 (13 KB) | wikimediacommons>Oleg Alexandrov |
Lokalne wykorzystanie pliku
Żadna strona nie korzysta z tego pliku.