File:Pedal trig illustration.png
Pedal_trig_illustration.png (570 × 447 pixels, file size: 17 KB, MIME type: image/png)
File information
Structured data
Captions
Captions
Add a one-line explanation of what this file represents
Summary
editTransferred from en.wikipedia to Commons by Maksim.
The original description page was here. All following user names refer to en.wikipedia.
Licensing
editPublic 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
editLegend: (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