File:Inversion illustration3.png

From formulasearchengine
Jump to navigation Jump to search

Inversion_illustration3.png(503 × 503 pixels, file size: 26 KB, MIME type: image/png)

This file is from Wikimedia Commons and may be used by other projects. The description on its file description page there is shown below.

Summary

Transferred from en.wikipedia to Commons by Maksim.

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

Licensing

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


function main()

   line_thickness=2.5; font_size=25; ball_rad=0.03; 
   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.2]; 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.23; q=i*p;
   L=1000; T=-L:(1/N):L; T=p+q*T; Tp=1./conj(T)+1.6*p; T=1./conj(Tp); 

   plot(X, Y, 'color', red, 'linewidth', line_thickness);
   plot(real(Tp), imag(Tp), 'color', blue, 'linewidth', line_thickness)
   plot(real(T), imag(T), 'color', green, 'linewidth', line_thickness)
   
   color_ball(real(z), imag(z), ball_rad, red);   place_text_smartly (z, font_size, 5, 'O');

   V1=3.4; plot(V1, V1, '.', 'color', white)
   V2=1.3; plot(-V2, -V2, '.', 'color', white)
   axis([-V2 V1 -V2 V1]);
   
   saveas(gcf, 'inversion_illustration3.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
03:05, 19 November 2005 en:User:Oleg Alexandrov (+source code)
03:01, 19 November 2005 en:User:Oleg Alexandrov

Original upload log

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.

Captions

Add a one-line explanation of what this file represents

Items portrayed in this file

depicts

File history

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

Date/TimeThumbnailDimensionsUserComment
current16:54, 19 March 2006Thumbnail for version as of 16:54, 19 March 2006503 × 503 (26 KB)wikimediacommons>MaksimLa bildo estas kopiita de wikipedia:en. La originala priskribo estas: == Licensing == {{PD-self}} ==Source code== <pre> <nowiki> function main() line_thickness=2.5; font_size=25; ball_rad=0.03; N=100; Theta=0:1/N:2*pi; X=cos(Theta); Y=sin(Theta

There are no pages that use this file.