Image:Inversion illustration3.png

La bildo estas kopiita de wikipedia:en. La originala priskribo estas:

[edit] Licensing

I, the copyright holder of this work, hereby release it into the public domain. This applies worldwide. In case this is not legally possible: I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law. Afrikaans | Alemannisch | Aragonés | العربية | Asturianu | Български | Català | Česky | Cymraeg | Dansk | Deutsch | Eʋegbe | Ελληνικά | English | Español | Esperanto | Euskara | Estremeñu | فارسی | Français | Galego | 한국어 | हिन्दी | Hrvatski | Ido | Bahasa Indonesia | Íslenska | Italiano | עברית | Kurdî / كوردی | Latina | Lietuvių | Latviešu | Magyar | Македонски | Bahasa Melayu | Nederlands | ‪Norsk (bokmål)‬ | ‪Norsk (nynorsk)‬ | 日本語 | Polski | Português | Ripoarisch | Română | Русский | Shqip | Slovenčina | Slovenščina | Српски / Srpski | Svenska | ไทย | Tagalog | Türkçe | Українська | Tiếng Việt | Walon | ‪中文(简体)‬ | ‪中文(繁體)‬ | zh-yue-hant | +/-

[edit] 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');
                

[edit] Historio de la dosiero

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.

• (del) (cur) 03:04, 19 November 2005 . . en:User:Oleg_Alexandrov Oleg Alexandrov ( en:User_talk:Oleg_Alexandrov Talk) . . 503x503 (26419 bytes)
• (del) (rev) 03:01, 19 November 2005 . . en:User:Oleg_Alexandrov Oleg Alexandrov ( en:User_talk:Oleg_Alexandrov Talk) . . 503x503 (26553 bytes)

• Inversive geometry