コンテンツにスキップ

英文维基 | 中文维基 | 日文维基 | 草榴社区

ファイル:Pedal line illustration.png

ページのコンテンツが他言語でサポートされていません。

Pedal_line_illustration.png (427 × 453 ピクセル、ファイルサイズ: 39キロバイト、MIME タイプ: image/png)

ウィキメディア・コモンズ
  • このファイルは、ウィキメディア・コモンズから呼び出されています。
  • このファイルは、他のプロジェクトで使用されている可能性があります。
  • このファイルの解説やノートへの記入、履歴などの詳細の確認は、ウィキメディア・コモンズのファイルページ（ノート/履歴/ログ）を使用してください。
ウィキメディア・コモンズのファイルページにある説明を、以下に表示します。

概要

en.wikipedia からコモンズに Maksim によって移動されました。

元のファイルページはこちら。以下の利用者は全てen.wikipediaに属します。

ライセンス

Public domain この作品の著作権者である私は、この作品についての権利を放棄しパブリックドメインとします。これは全世界で適用されます。
一部の国では、これが法的に可能ではない場合があります。その場合は、次のように宣言します。
私は、あらゆる人に対して、法により必要とされている条件を除き、如何なる条件も課すことなく、あらゆる目的のためにこの著作物を使用する権利を与えます。

Source code

function main()
   
   figure(1);  clf; hold on; axis equal; axis off
   thickness=4; ball_rad=0.009; i=sqrt(-1);
   red=[1, 0, 0]; blue=[0, 0, 1]; black=[0 0 0]; green=[0, 0.9, 0]; fontsize=30; 
   
   A=exp(i*pi/2); B=exp(i*1.3*pi); C=exp(i*1.8*pi); P=exp(i*1.0*pi); 
   N=return_perp(A, B, P); M=return_perp(C, A, P); L=return_perp(B, C, P);

   X=0:0.01:2*pi; plot(cos(X), sin(X), 'color', black, 'linewidth', thickness/2); % plot circle
   
% 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);

% line continuations
   plot(real([A, M]), imag([A, M]), 'color', red, 'linewidth', thickness, 'linestyle', '--');
   plot(real([A, N]), imag([A, N]), 'color', red, 'linewidth', thickness, 'linestyle', '--');
   plot(real([B, N]), imag([B, N]), 'color', red, 'linewidth', thickness, 'linestyle', '--');
   plot(real([C, L]), imag([C, L]), 'color', red, 'linewidth', thickness, 'linestyle', '--');
   plot(real([C, M]), imag([C, M]), 'color', red, 'linewidth', thickness, 'linestyle', '--');

%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)

   text_dist=0.005;
   place_text_smartly (P, fontsize, 5, text_dist, 'P')
   place_text_smartly (A, fontsize, 2, text_dist, 'A')
   place_text_smartly (B, fontsize, 6, text_dist, 'B')
   place_text_smartly (C, fontsize, 7, text_dist, 'C')
   place_text_smartly (L, fontsize, 6, text_dist, 'L')
   place_text_smartly (M, fontsize, 1, text_dist, 'M')
   place_text_smartly (N, fontsize, 0, text_dist, 'N')
   
   saveas(gcf, 'Pedal_line_illustration.eps', 'psc2')
   
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);

   
function d=return_perp(a, b, c)
   
   t=fminbnd(inline('min(abs (sqrt(-1)*(b-a)/abs(b-a) - (c-t*b-(1-t)*a)/abs(c-t*b-(1-t)*a)), 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'), -0.5, 2, [], 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);
date/time username edit summary
08:54, 3 December 2005 en:User:Oleg Alexandrov (update code)
05:45, 3 December 2005 en:User:Oleg Alexandrov (+ source code)
05:45, 3 December 2005 en:User:Oleg Alexandrov

元のアップロードログ

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.

このファイルのベクター画像 (SVG) が利用できます。 使う目的に対し、元画像よりもSVGがより優れている場合、SVG画像を使用して下さい。
File:Pedal line illustration.png → File:Pedal line illustration.svg
ベクターグラフィックスの詳細については、コモンズのSVG変換を参照ください。
SVGのMediaWikiのサポートに関する情報もあります。
他言語
Alemannisch ∙ Bahasa Indonesia ∙ Bahasa Melayu ∙ British English ∙ català ∙ čeština ∙ dansk ∙ Deutsch ∙ eesti ∙ English ∙ español ∙ Esperanto ∙ euskara ∙ français ∙ Frysk ∙ galego ∙ hrvatski ∙ Ido ∙ italiano ∙ lietuvių ∙ magyar ∙ Nederlands ∙ norsk bokmål ∙ norsk nynorsk ∙ occitan ∙ Plattdüütsch ∙ polski ∙ português ∙ português do Brasil ∙ română ∙ Scots ∙ sicilianu ∙ slovenčina ∙ slovenščina ∙ suomi ∙ svenska ∙ Tiếng Việt ∙ Türkçe ∙ vèneto ∙ Ελληνικά ∙ беларуская (тарашкевіца) ∙ български ∙ македонски ∙ нохчийн ∙ русский ∙ српски / srpski ∙ татарча/tatarça ∙ українська ∙ ქართული ∙ հայերեն ∙ বাংলা ∙ தமிழ் ∙ മലയാളം ∙ ไทย ∙ 한국어 ∙ 日本語 ∙ 简体中文 ∙ 繁體中文 ∙ עברית ∙ العربية ∙ فارسی ∙ +/−
新しいSVG画像

キャプション

このファイルの内容を1行で記述してください

このファイルに描写されている項目

題材

ファイルの履歴

過去の版のファイルを表示するには、その版の日時をクリックしてください。

日付と時刻サムネイル寸法利用者コメント
現在の版2006年3月19日 (日) 20:282006年3月19日 (日) 20:28時点における版のサムネイル427 × 453 (39キロバイト)MaksimLa bildo estas kopiita de wikipedia:en. La originala priskribo estas: == Licensing == {{PD-self}} ==Source code== <pre> function main() figure(1); clf; hold on; axis equal; axis off thickness=4; ball_rad=0.009; i=sqrt(-1); red=[1, 0, 0];

以下のページがこのファイルを使用しています:

グローバルなファイル使用状況

以下に挙げる他のウィキがこの画像を使っています:

「https://ja-two.iwiki.icu/wiki/ファイル:Pedal_line_illustration.png」から取得