پرونده:Lens_and_wavefronts.gif
From Wikipedia, the free encyclopedia
Lens_and_wavefronts.gif (۱۸۳ × ۳۵۶ پیکسل، اندازهٔ پرونده: ۳۵ کیلوبایت، نوع MIME پرونده: image/gif، چرخشدار، ۹ قاب، ۰٫۷ ثانیه)
این پرونده در ویکیانبار موجود است. محتویات صفحهٔ توصیف آن در زیر نمایش داده میشود. |
slnglelens
خلاصه
توضیحLens and wavefronts.gif | Illustration of wavefronts after passing through a lens. Interestingly, to produce a point source reverse the direction of the waves, with the focus point acting as a point source. |
تاریخ | (UTC) |
منبع | self-made with MATLAB |
پدیدآور | Oleg Alexandrov |
دیگر نسخهها |
اجازهنامه
Public domainPublic domainfalsefalse |
من، دارنده حق تکثیر این اثر، این اثر را به مالکیت عمومی منتشر میکنم. این قابل اجرا در تمام نقاط جهان است. در برخی از کشورها ممکن است به صورت قانونی این امکانپذیر نباشد؛ اگر چنین است: من اجازهٔ استفاده از این اثر را برای هر مقصودی، بدون هیچگونه شرایطی میدهم، تا وقتی که این شرایط توسط قانون مستلزم نشده باشد. |
siingleline
% Illustration of planar wavefronts going through a lens and getting focused
% into a converging spherical wave
function main ()
% lens index
n=1.5;
% number of points, used for plotting
N = 100;
% radii of lens surfaces
R1 = 0.5;
R2 = 1.5;
% centers of circles (y coord is 0)
O1 = -2.9;
O2 = -O1;
% focal length
f = (n-1)*(1/R1+1/R2); f = 1/f;
% theta0 determines the width of the lens
theta0=pi/6;
Theta = linspace(-theta0, theta0, N);
% right face of the lens
L1x = R1*cos(Theta)+O1;
L1y =R1*sin(Theta);
% left size of the lens
L2x=-R2*cos(Theta)+O2;
L2y = R2*sin(Theta);
% flat top part
Topx = [L1x(N), L2x(N)];
Topy = [L1y(N), L2y(N)];
% flat bottom part
Botx = [L1x(1) L2x(1)];
Boty = [L1y(1), L2y(1)];
% the lens
Lensx = [L1x rv_vec(Topx), rv_vec(L2x), Botx];
Lensy = [L1y rv_vec(Topy), rv_vec(L2y), Boty];
% Parameters for graphing
Lens_color = [204, 226, 239]/256;
Lens_border = 0.3*[1, 1, 1];
lbw = 1.3; % lens border width
wavefr_color = [1, 0, 0];
wavefr_bdw = 2;
% spacing between wavefronts (both plane and spherical ones)
spacing = 0.25;
% 2*H is the height of the plane wavefronts
H = L1y(N);
% theta2 = slope of the line going from the upper-right
% end of the lens to the focus point
theta2 = atan(L1y(N)/(f-L1x(N)));
% Shape of the spherical wavefronts.
Theta = linspace(-theta2, theta2, N);
X = -cos(Theta);
Y = sin(Theta);
S = -f; % start ploting waves from here to the right
% number of frames in the movie
num_frames = 10;
Shifts = linspace(0, spacing, num_frames+1);
% start at S+shift, plot the wavefronts
for frame_no = 1:num_frames
shift = Shifts(frame_no);
s = S+shift;
% plotting window
figure(1); clf; hold on; axis equal; axis off;
% plot the plane wavefronts
while s < 0
plot([s, s], [-H, H], 'color', wavefr_color, 'linewidth', wavefr_bdw);
s = s + spacing;
end
% plot the spherical wavefronts
s = s - 10*spacing; % backtrack a bit
while s < f
rho = f-s;
if rho*Y(N) <= L1y(N)
plot(rho*X+f, rho*Y, 'color', wavefr_color, 'linewidth', wavefr_bdw);
end
s = s + spacing;
end
% plot the lens
fill(Lensx, Lensy, Lens_color, 'EdgeColor', Lens_border, 'LineWidth', lbw);
% get(H)
% return
% Invisible points to force MATLAB to keep the
% plotting window fixed.
tiny = 0.15*spacing;
white = 0.999*[1, 1, 1];
plot(S-tiny, H+tiny, 'color', white);
plot(S-tiny, -H-tiny, 'color', white);
plot(f+tiny, H+tiny, 'color', white);
plot(f+tiny, -H-tiny, 'color', white);
% Rotate by 90 degrees
set(gca, 'View', [90, 90])
% save current file
frame_file = sprintf('Frame%d.eps', 1000+frame_no);
disp(frame_file);
saveas(gcf, frame_file, 'psc2');
pause(0.07)
end
% The frames were converted to a movie with the command
% convert -antialias -loop 10000 -delay 8 -compress LZW Frame100* Lens_and_wavefronts.gif
function W = rv_vec(V)
K = length(V);
W = V;
for i=1:K
W(i) = V(K-i+1);
end
آیتمهایی که در این پرونده نمایش داده شدهاند
توصیفها
این خصوصیت مقداری دارد اما نامشخص است.
۲۴ نوامبر 2007
image/gif
تاریخچهٔ پرونده
روی تاریخ/زمانها کلیک کنید تا نسخهٔ مربوط به آن هنگام را ببینید.
تاریخ/زمان | بندانگشتی | ابعاد | کاربر | توضیح | |
---|---|---|---|---|---|
کنونی | ۲۵ نوامبر ۲۰۰۷، ساعت ۰۶:۳۵ | ۱۸۳ در ۳۵۶ (۳۵ کیلوبایت) | Oleg Alexandrov | tweak | |
۲۴ نوامبر ۲۰۰۷، ساعت ۰۴:۱۰ | ۱۷۱ در ۳۵۶ (۳۳ کیلوبایت) | Oleg Alexandrov | tweak | ||
۲۴ نوامبر ۲۰۰۷، ساعت ۰۴:۰۹ | ۱۷۱ در ۳۵۶ (۳۳ کیلوبایت) | Oleg Alexandrov | tweak | ||
۲۴ نوامبر ۲۰۰۷، ساعت ۰۰:۵۶ | ۱۷۱ در ۳۵۹ (۳۳ کیلوبایت) | Oleg Alexandrov | tweak, same license | ||
۲۴ نوامبر ۲۰۰۷، ساعت ۰۰:۵۳ | ۱۷۱ در ۳۵۹ (۳۲ کیلوبایت) | Oleg Alexandrov | tweak | ||
۲۴ نوامبر ۲۰۰۷، ساعت ۰۰:۴۹ | ۱۵۱ در ۳۵۹ (۳۱ کیلوبایت) | Oleg Alexandrov | {{Information |Description=Illustration of wavefronts after passing through a [:en:lens (optics)|lens]] |Source=self-made with MATLAB |Date=~~~~~ |Author= Oleg Alexandrov |Permission=see below |other_versions= }} |
کاربرد پرونده
صفحهٔ زیر از این تصویر استفاده میکند:
کاربرد سراسری پرونده
ویکیهای دیگر زیر از این پرونده استفاده میکنند:
- کاربرد در ar.wikipedia.org
- کاربرد در ast.wikipedia.org
- کاربرد در be.wikipedia.org
- کاربرد در bn.wikipedia.org
- کاربرد در bs.wikipedia.org
- کاربرد در ckb.wikipedia.org
- کاربرد در cs.wikiversity.org
- کاربرد در cv.wikipedia.org
- کاربرد در en.wikipedia.org
- کاربرد در en.wikiversity.org
- کاربرد در es.wikipedia.org
- کاربرد در es.wikiversity.org
- کاربرد در eu.wikipedia.org
- کاربرد در fi.wikipedia.org
- کاربرد در fr.wikipedia.org
- کاربرد در fr.wikibooks.org
- کاربرد در fy.wikipedia.org
- کاربرد در ga.wikipedia.org
- کاربرد در he.wikipedia.org
- کاربرد در hi.wikipedia.org
- کاربرد در hr.wikipedia.org
- کاربرد در hy.wikipedia.org
- کاربرد در id.wikipedia.org
- کاربرد در ko.wikipedia.org
- کاربرد در lt.wikipedia.org
- کاربرد در lv.wikipedia.org
- کاربرد در ml.wikipedia.org
- کاربرد در mn.wikipedia.org
- کاربرد در nl.wikipedia.org
- کاربرد در pa.wikipedia.org
- کاربرد در ru.wikipedia.org
- کاربرد در sh.wikipedia.org
- کاربرد در si.wikipedia.org
- کاربرد در sl.wikipedia.org
- کاربرد در sr.wikipedia.org
- کاربرد در sv.wikipedia.org
- کاربرد در ta.wikipedia.org
نمایش استفادههای سراسری از این پرونده.