File:Serpentine curve.png
Wikimedia Commonsista
Siirry navigaatioon
Siirry hakuun
Tämän esikatselun koko: 798 × 144 kuvapistettä. Muut resoluutiot: 320 × 58 kuvapistettä | 2 054 × 371 kuvapistettä.
Alkuperäinen tiedosto (2 054 × 371 kuvapistettä, 8 KiB, MIME-tyyppi: image/png)
Tiedoston tiedot
Rakenteinen tieto
Kuvatekstit
KuvausSerpentine curve.png | Illustration of Serpentine curve |
Päiväys | (UTC) |
Lähde | self-made with en:Matlab |
Tekijä | Oleg Alexandrov |
Tämä PNG tietokonegrafiikka luotiin käyttäen apuna ohjelmaa MATLAB.
Public domainPublic domainfalsefalse |
Minä, tämän teoksen tekijänoikeudellinen omistaja, julkaisen tämän teoksen public domainiin eli luovun kaikista tekijänoikeuksista lain sallimissa puitteissa. Tämä on voimassa maailmanlaajuisesti. Joissain maissa laki ei mahdollista tätä. Mikäli näin on: Myönnän kenelle tahansa oikeuden käyttää tätä teosta mihin tahansa tarkoitukseen, ilman mitään ehtoja, ellei laki vaadi ehtojen asettamista. |
Source code (MATLAB)[muokkaa]
% Serpentine curve illustration
function main()
% linewidth and font size
lw= 6;
fs = 20;
% colors
red=[0.867 0.06 0.14];
blue = [0, 129, 205]/256;
green = [0, 200, 70]/256;
black = [0, 0, 0];
white = 0.99*[1, 1, 1];
N=500; % number of points (don't make it big, code will be slow)
Lx1 = -5; Lx2 = 5; Ly1 = -4; Ly2 = -Ly1;
bd = 0.1;
for i = 1:2
% Set up the plotting window
figure(1); clf; set(gca, 'fontsize', fs, 'linewidth', lw/4);
hold on; axis equal; grid on;
figure(2); clf; hold on; axis equal; axis off;
[X, Y]=meshgrid(linspace(Lx1, Lx2, N), linspace(Ly1, Ly2, N));
x = X; y = Y;
a = 1; b = 1;
Z = x.^2.*y+a*b*y-a^2*x;
% graph the curves using 'contour' in figure (2)
figure(2); [c, stuff] = contour(X, Y, Z, [0, 0]);
% extract the curves from c and graph them in figure(1) using 'plot'
% need to do this kind of convoluted work since plot2svg can't save
% the result of 'contour' but can save the result of 'plot'
[m, n] = size(c);
while n > 0
l=c(2, 1);
x=c(1,2:(l+1)); y=c(2,2:(l+1)); % get x and y of contours
figure(1); plot(x, y, 'color', red, 'linewidth', lw/2);
c = c(:, (l+2):n);
[m, n] = size(c);
% Lx1 = min(Lx1, min(x) - bd); Lx2 = max(Lx2, max(x) + bd);
% Ly1 = min(Ly1, min(y) - bd); Ly2 = max(Ly2, max(y) + bd);
Lx1 = min(x) - bd; Lx2 = max(x) + bd;
Ly1 = min(y) - bd; Ly2 = max(y) + bd;
end
figure(1); axis equal; axis ([Lx1, Lx2, Ly1, Ly2]);
end
saveas(gcf, 'Serpentine curve.eps', 'psc2')
Tiedoston historia
Päiväystä napsauttamalla näet, millainen tiedosto oli kyseisellä hetkellä.
Päiväys | Pienoiskuva | Koko | Käyttäjä | Kommentti | |
---|---|---|---|---|---|
nykyinen | 19. huhtikuuta 2017 kello 05.48 | 2 054 × 371 (8 KiB) | Ayane m (keskustelu | muokkaukset) | 57% file size reduction | |
14. heinäkuuta 2007 kello 15.43 | 2 054 × 371 (18 KiB) | Oleg Alexandrov (keskustelu | muokkaukset) | {{Information |Description=Illustration of Serpentine curve |Source=self-made with en:Matlab |Date= ~~~~~ |Author= Oleg Alexandrov }} {{PD-self}} ==Source code (MATLAB)== <pre> <nowiki> % Serpentin |
Et voi tallentaa uutta tiedostoa tämän tilalle.
Tiedoston käyttö
Tätä tiedostoa ei käytetä millään sivulla.
Tiedoston järjestelmänlaajuinen käyttö
Seuraavat muut wikit käyttävät tätä tiedostoa:
- Käyttö kohteessa ca.wikipedia.org
- Käyttö kohteessa en.wikipedia.org
- Käyttö kohteessa es.wikipedia.org
- Käyttö kohteessa fi.wikipedia.org
- Käyttö kohteessa sl.wikipedia.org
- Käyttö kohteessa tr.wikipedia.org
- Käyttö kohteessa zh.wikipedia.org