Archivo: Lens y wavefronts.gif

slnglens

Resumen

DescripciónLente y frentes de onda.gif	Ilustración de frentes de onda después de pasar a través de una lente . Curiosamente, para producir una fuente puntual se invierte la dirección de las ondas, con el punto de enfoque actuando como una fuente puntual.
Fecha	24 de noviembre de 2007 a las 00:49 (UTC)
Fuente	hecho a sí mismo con MATLAB
Autor	Oleg Alexandrov
Otras versiones

 Este diagrama fue creado con MATLAB .

Licencia

Public domainPublic domainfalsefalse

Yo, el titular de los derechos de autor de este trabajo, lo libero al dominio público . Esto se aplica en todo el mundo. En algunos países, esto puede no ser legalmente posible; Si es así: otorgo a cualquier persona el derecho de usar este trabajo para cualquier propósito , sin ninguna condición, a menos que tales condiciones sean requeridas por la ley.

siingleline

% Ilustración de frentes de onda planos que atraviesan una lente y se enfocan% en una onda esférica convergentefunción principal ()  % índice de lente n = 1,5 ;  % número de puntos, utilizado para trazar N = 100 ;   % de radios de superficies de lentes R1 = 0,5 ; R2 = 1,5 ;       % centros de círculos (y coord es 0) O1 = - 2,9 ;   O2 = - O1 ;   % longitud focal f = ( n - 1 ) * ( 1 / R1 + 1 / R2 ); f = 1 / f ;       % theta0 determina el ancho de la lente theta0 = pi / 6 ; Theta = linspace ( - theta0 , theta0 , N );     % cara derecha de la lente L1x = R1 * cos ( Theta ) + O1 ;   L1y = R1 * sin ( Theta );   % de tamaño restante de la lente L2x = - R2 * cos ( Theta ) + O2 ; L2y = R2 * sin ( Theta );   % parte superior plana Topx = [ L1x ( N ), L2x ( N )];    Topy = [ L1y ( N ), L2y ( N )];    % parte inferior plana Botx = [ L1x ( 1 ) L2x ( 1 )];    Boty = [ L1y ( 1 ), L2y ( 1 )];    % la lente Lensx = [ L1x rv_vec ( Topx ), rv_vec ( L2x ), Botx ];      Lensy = [ L1y rv_vec ( Topy ), rv_vec ( L2y ), Boty ];      % Parámetros para graficar Lens_color = [ 204 , 226 , 239 ] / 256 ;     Lens_border = 0.3 * [ 1 , 1 , 1 ];     lbw = 1,3 ; % ancho del borde de la lente    wavefr_color = [ 1 , 0 , 0 ];     wavefr_bdw = 2 ;    % de espacio entre frentes de onda (tanto planos como esféricos) espaciado = 0,25 ;   % 2 * H es la altura de los frentes de onda del plano H = L1y ( N );    % theta2 = pendiente de la línea que va desde la parte superior derecha % final de la lente al punto de enfoque theta2 = atan ( L1y ( N ) / ( f - L1x ( N )));   % Forma de los frentes de onda esféricos. Theta = linspace ( - theta2 , theta2 , N );     X = - cos ( Theta );   Y = pecado ( Theta );   S = - f ; % comienza a trazar ondas de aquí a la derecha    % número de fotogramas en la película num_frames = 10 ;   Shifts = linspace ( 0 , espaciado , num_frames + 1 );     % comienza en S + shift, traza los frentes de onda para frame_no = 1 : num_frames    shift = Shifts ( frame_no );    s = S + desplazamiento ;   % ventana de trazado figura ( 1 ); clf ; mantener en ; eje igual ; eje apagado ;        % trazar los frentes de onda del plano mientras s < 0    plot ([ s , s ], [ - H , H ], 'color' , wavefr_color , 'linewidth' , wavefr_bdw );        s = s + espaciado ;     fin   % trazar los frentes de onda esféricos s = s - 10 * espaciado ; % retroceder un poco      mientras s < f     rho = f - s ;    si rho * Y ( N ) <= L1y ( N )    plot ( rho * X + f , rho * Y , 'color' , wavefr_color , 'linewidth' , wavefr_bdw );      fin  s = s + espaciado ;      fin % trazar la lente relleno ( Lensx , Lensy , Lens_color , 'EdgeColor' , Lens_border , 'LineWidth' , lbw );      % obtener (H)% regreso  % Puntos invisibles para obligar a MATLAB a mantener el % de ventana de trazado fijo. diminuto = 0,15 * espaciado ;   blanco = 0,999 * [ 1 , 1 , 1 ];     plot ( S - minúsculo , H + minúsculo , 'color' , blanco );    plot ( S - minúsculo , - H - minúsculo , 'color' , blanco );    plot ( f + minúsculo , H + minúsculo , 'color' , blanco );    plot ( f + minúsculo , - H - minúsculo , 'color' , blanco );    % Girar 90 grados set ( gca , 'Ver' , [ 90 , 90 ])    % guardar archivo actual frame_file = sprintf ( 'Frame% d.eps' , 1000 + frame_no );    disp ( frame_file ); saveas ( gcf , frame_file , 'psc2' );   pausa ( 0.07 ) fin% Los fotogramas se convirtieron en una película con el comando% convert -antialias -loop 10000 -delay 8 -compress LZW Frame100 * Lens_and_wavefronts.gif función  W = rv_vec ( V )   K = longitud ( V );   W = V ;   para i = 1 : K  W ( i ) = V ( K - i + 1 );   fin

Captions

English

Siingleline

Items portrayed in this file

depicts

creator

some value

author name string: Oleg Alexandrov

URL: https://commons.wikimedia.org/wiki/user:Oleg_Alexandrov

Wikimedia username: Oleg Alexandrov

copyright status

copyrighted, dedicated to the public domain by copyright holder

copyright license

released into the public domain by the copyright holder

inception

24 November 2007