Datei:Rotating line sections.gif
aus Wikipedia, der freien Enzyklopädie
Zur Navigation springen
Zur Suche springen
Größe dieser Vorschau: 600 × 600 Pixel. Weitere Auflösungen: 240 × 240 Pixel | 480 × 480 Pixel | 700 × 700 Pixel
Originaldatei (700 × 700 Pixel, Dateigröße: 3,85 MB, MIME-Typ: image/gif, Endlosschleife, 100 Bilder, 3,0 s)
Diese Datei und die Informationen unter dem roten Trennstrich werden aus dem zentralen Medienarchiv Wikimedia Commons eingebunden.
Beschreibung
BeschreibungRotating line sections.gif |
English: Rotating line sections. All section have the same length of π and the same speed. The inner most circle has a diameter of 1. The second of diameter 2 has two sections. The third of diameter 3 has three sections. And so on. |
Datum | |
Quelle | Eigenes Werk |
Urheber | Jahobr |
GIF‑Erstellung InfoField | |
Quelltext InfoField | MATLAB codefunction rotating_line_sections()
% source code for drawing a GIF
%
% 2017-09-16 Jahobr
[pathstr,fname] = fileparts(which(mfilename)); % save files under the same name and at file location
figHandle = figure(15674455);
clf
axesHandle = axes;
hold(axesHandle,'on')
set(figHandle, 'Units','pixel');
set(figHandle, 'position',[1 1 700 700]); % big start image for antialiasing later [x y width hight]
set(axesHandle,'position',[-0.06 -0.06 1.12 1.12]); % stretch axis bigger as figure, easy way to get rid of ticks [x y width height]
set(figHandle,'GraphicsSmoothing','on') % requires at least version 2014b
axis equal; drawnow;
nRings = 30;
% % % variants
% offset = zeros(1,30);
% offset = rand(1,30)*pi;
% offset = ones(1,30)*0.5;
offset = linspace(0,2,nRings);
% offset = log(linspace(1,7,30));
% offset = linspace(0,1,30).^2;
xlim([-35 35]); % default
ylim([-35 35]); % default
nFrames = 100;
angleP = -linspace(0,pi*2,nFrames+1); % define gear position in frames
angleP = angleP(1:end-1); % remove last frame, it would be double
for iFrame = 1:nFrames
cla(axesHandle) % fresh frame
for iRings = 1:nRings
ang = linspace(0,pi*2,iRings+1); % define gear position in frames
for iSection = 1:iRings
wedge = linspace(0,pi/iRings,22); % define gear position in frames
[X,Y] = pol2cart(wedge +offset(iRings)+angleP(iFrame)/iRings + ang(iSection),iRings*ones(1,22));
plot(X,Y,'k-','linewidth',7)
end
end
%% save animation
drawnow
% pause(0.01)
f = getframe(figHandle);
if iFrame == 1 % create colormap
map = gray(8); % create own color map %
im = rgb2ind(f.cdata,map,'nodither'); %
im(1,1,1,nFrames) = 0; % allocate
else
imtemp = rgb2ind(f.cdata,map,'nodither');
im(:,:,1,iFrame) = imtemp;
end
end
imwrite(im,map,fullfile(pathstr, [fname '.gif']),'DelayTime',1/30,'LoopCount',inf) % save gif
disp([fname '.gif has ' num2str(numel(im)/10^6 ,4) ' Megapixels']) % Category:Animated GIF files exceeding the 50 MP limit
|
Lizenz
Ich, der Urheber dieses Werkes, veröffentliche es unter der folgenden Lizenz:
Diese Datei wird unter der Creative-Commons-Lizenz „CC0 1.0 Verzicht auf das Copyright“ zur Verfügung gestellt. | |
Die Person, die das Werk mit diesem Dokument verbunden hat, übergibt dieses weltweit der Gemeinfreiheit, indem sie alle Urheberrechte und damit verbundenen weiteren Rechte – im Rahmen der jeweils geltenden gesetzlichen Bestimmungen – aufgibt. Das Werk kann – selbst für kommerzielle Zwecke – kopiert, modifiziert und weiterverteilt werden, ohne hierfür um Erlaubnis bitten zu müssen.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
In dieser Datei abgebildete Objekte
Motiv
Einige Werte ohne einen Wikidata-Eintrag
16. September 2017
image/gif
Dateiversionen
Klicke auf einen Zeitpunkt, um diese Version zu laden.
Version vom | Vorschaubild | Maße | Benutzer | Kommentar | |
---|---|---|---|---|---|
aktuell | 22:59, 16. Sep. 2017 | 700 × 700 (3,85 MB) | Jahobr | User created page with UploadWizard |
Dateiverwendung
Die folgende Seite verwendet diese Datei:
Abgerufen von „https://de.wikipedia.org/wiki/Datei:Rotating_line_sections.gif“