File:Pedal trig illustration.png
From Wikimedia Commons, the free media repository
Jump to navigation
Jump to search
Pedal_trig_illustration.png (570 × 447 pixels, file size: 17 KB, MIME type: image/png)
File information
Structured data
Captions
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 domainPublic domainfalsefalse |
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
[edit]<nowiki> function main() figure(1); clf; hold on; axis equal; axis off thickness=4; ball_rad=0.007; i=sqrt(-1); red=[1, 0, 0]; blue=[0, 0, 1]; black=[0 0 0]; green=[0, 0.9, 0]; fontsize=30; dist=0.01; A=-0.5; B=1; C=i; P=0.2+0.4*i; N=return_perp(A, B, P); M=return_perp(C, A, P); L=return_perp(B, C, P); % plot sides plot(real([A, B]), imag([A, B]), 'color', red, 'linewidth', thickness); plot(real([B, C]), imag([B, C]), 'color', red, 'linewidth', thickness); plot(real([A, C]), imag([A, C]), 'color', red, 'linewidth', thickness); %plot heights plot(real([L, P]), imag([L, P]), 'color', green, 'linewidth', thickness); plot(real([M, P]), imag([M, P]), 'color', green, 'linewidth', thickness); plot(real([N, P]), imag([N, P]), 'color', green, 'linewidth', thickness); % plot pedal plot(real([L, M]), imag([L, M]), 'color', blue, 'linewidth', thickness); plot(real([L, N]), imag([L, N]), 'color', blue, 'linewidth', thickness); plot(real([M, N]), imag([M, N]), 'color', blue, 'linewidth', thickness); ball(A, ball_rad, red); ball(B, ball_rad, red); ball(C, ball_rad, red); ball(L, ball_rad, blue); ball(M, ball_rad, blue); ball(N, ball_rad, blue); ball(P, ball_rad, green); ang_size=0.07; ang_thick=2; plot_angle(P, M, A, ang_size, ang_thick, red) plot_angle(P, N, B, ang_size, ang_thick, red) plot_angle(P, L, C, ang_size, ang_thick, red) place_text_smartly (P, fontsize, 5, 0.004, 'P') place_text_smartly (A, fontsize, 5, 0.004, 'A') place_text_smartly (B, fontsize, 7, 0.004, 'B') place_text_smartly (C, fontsize, 2, 0.004, 'C') place_text_smartly (L, fontsize, 1, 0.004, 'L') place_text_smartly (M, fontsize, 4, 0.004, 'M') place_text_smartly (N, fontsize, 6, 0.004, 'N') saveas(gcf, 'Pedal_trig_illustration.eps', 'psc2') function d=return_perp(a, b, c) t=fminbnd(inline('abs (sqrt(-1)*(b-a)/abs(b-a) - (c-t*b-(1-t)*a)/abs(c-t*b-(1-t)*a)) ', 't', 'a', 'b', 'c'), -1, 1, [], a, b, c); d=t*b+(1-t)*a; function place_text_smartly (z, fs, pos, d, tx) p=cos(pi/4)+sqrt(-1)*sin(pi/4); z = z + p^pos * d * fs; shiftx=0.0003; shifty=0.002; x = real (z); y=imag(z); H=text(x+shiftx*fs, y+shifty*fs, tx); set(H, 'fontsize', fs, 'HorizontalAlignment', 'c', 'VerticalAlignment', 'c') function ball(z, r, color) x=real(z); y=imag(z); Theta=0:0.1:2*pi; X=r*cos(Theta)+x; Y=r*sin(Theta)+y; H=fill(X, Y, color); set(H, 'EdgeColor', color); function plot_angle(a, b, c, dist, thickness, color) u=b+dist*(a-b)/abs(a-b); v=b+dist*(c-b)/abs(c-b); w=u+v-b; plot(real([u, w, v]), imag([u, w, v]), 'color', color, 'linewidth', thickness); <nowiki>
</nowiki>
date/time | username | edit summary |
---|---|---|
08:44, 3 December 2005 | en:User:Oleg Alexandrov | (update code) |
05:22, 3 December 2005 | en:User:Oleg Alexandrov | (fix code) |
05:12, 3 December 2005 | en:User:Oleg Alexandrov | (+ source code) |
05:11, 3 December 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.
- (del) (cur) 08:43, 3 December 2005 . . en:User:Oleg_Alexandrov Oleg Alexandrov ( en:User_talk:Oleg_Alexandrov Talk) . . 570x447 (17550 bytes)
This math image could be re-created using vector graphics as an SVG file. This has several advantages; see Commons:Media for cleanup for more information. If an SVG form of this image is available, please upload it and afterwards replace this template with
{{vector version available|new image name}} .
It is recommended to name the SVG file “Pedal trig illustration.svg”—then the template Vector version available (or Vva) does not need the new image name parameter. |
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 20:28, 19 March 2006 | 570 × 447 (17 KB) | Maksim (talk | contribs) | La bildo estas kopiita de wikipedia:en. La originala priskribo estas: == Licensing == {{PD-self}} ==Source code== <pre><nowiki> function main() figure(1); clf; hold on; axis equal; axis off thickness=4; ball_rad=0.007; i=sqrt(-1); red=[1, |
You cannot overwrite this file.
File usage on Commons
The following page uses this file:
File usage on other wikis
The following other wikis use this file:
- Usage on ar.wikipedia.org
- Usage on ru.wikipedia.org
- Usage on uk.wikipedia.org
- Usage on www.wikidata.org