File:Inversion illustration1.png

From Wikimedia Commons, the free media repository
Jump to navigation Jump to search

Inversion_illustration1.png(513 × 503 pixels, file size: 15 KB, MIME type: image/png)

Captions

Captions

Add a one-line explanation of what this file represents

Summary[edit]

Transferred from en.wikipedia to Commons by Maksim.

The original description page was here. All following user names refer to en.wikipedia.

Licensing[edit]

Public domain I, the copyright holder of this work, release this work into the public domain. This applies worldwide.
In some countries this may not be legally possible; if so:
I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law.

Source code (MATLAB)[edit]


function main()

   line_thickness=2.5; font_size=25; ball_rad=0.035; 
   N=100; Theta=0:1/N:2*pi; X=cos(Theta); Y=sin(Theta);
   red=[1, 0, 0]; black=[0, 0, 0]; green=[0, 1, 0]; blue=[0, 0, 1]; white=0.99*[1, 1, 1];

   clf; hold on; axis equal; axis off

   r=1; z=0.0; p=0.2*i+0.3; pp=r/conj(p);

   plot(X, Y, 'color', red, 'linewidth', line_thickness);
   plot([real(z), real(pp)], [imag(z), imag(pp)], 'color', blue, 'linewidth', line_thickness)
   
   color_ball(real(z), imag(z), ball_rad, blue);   place_text_smartly (z, font_size, 3, 'O');
   color_ball(real(p), imag(p), ball_rad, blue);   place_text_smartly (p, font_size, 2, 'P');
   color_ball(real(pp), imag(pp), ball_rad, blue); place_text_smartly (pp, font_size, 2, 'P\prime');

   V=2.5; plot(V, V, '.', 'color', white)
   V=1.3; plot(-V, -V, '.', 'color', white)
   saveas(gcf, 'inversion_illustration1.eps', 'psc2');
   

function place_text_smartly (z, font_size, pos, tx)

   N=8;  d=0.013; shiftx=0.002; shifty=0.006;
   p=cos(2*pi/N)+sqrt(-1)*sin(2*pi/N);
   z = z + p^pos * d * font_size;
   x = real (z); y=imag(z);
   H=text(x+shiftx*font_size, y+shifty*font_size, tx); 
   set(H, 'fontsize', font_size, 'HorizontalAlignment', 'c', 'VerticalAlignment', 'c')
   
function color_ball(x, y, r, color)
   Theta=0:0.1:2*pi;
   X=r*cos(Theta)+x;
   Y=r*sin(Theta)+y;
   H=fill(X, Y, color);
   set(H, 'EdgeColor', 'none');



date/time username edit summary
02:25, 19 November 2005 en:User:Oleg Alexandrov (+source code)
02:02, 19 November 2005 en:User:Oleg Alexandrov

Original upload log[edit]

Legend: (cur) = this is the current file, (del) = delete this old version, (rev) = revert to this old version.

Click on date to download the file or see the image uploaded on that date.

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current14:53, 19 March 2006Thumbnail for version as of 14:53, 19 March 2006513 × 503 (15 KB)Maksim (talk | contribs)La bildo estas kopiita de wikipedia:en. La originala priskribo estas: == Licensing == {{PD-self}} ==Source code (MATLAB)== <pre> <nowiki> function main() line_thickness=2.5; font_size=25; ball_rad=0.035; N=100; Theta=0:1/N:2*pi; X=cos(Theta)

There are no pages that use this file.

File usage on other wikis

The following other wikis use this file: