跳至內容

File:Radiodrome-params-colour.png

頁面內容不支援其他語言。
這個檔案來自維基共享資源
維基百科,自由的百科全書

Radiodrome-params-colour.png (575 × 569 像素,檔案大小:16 KB,MIME 類型:image/png


本圖片是以PNG、GIF或JPEG格式上傳。然而,其中包含的資料或訊息,應該重新建立成可縮放向量圖形SVG)檔案,以更有效率或更準確的方式儲存。如有可能,請上傳本圖片的SVG格式版本。在上傳之後,請修改維基各姊妹計畫中所有使用舊版圖片的條目(列在圖像連結章節中),替換為新版圖片,並在舊圖片的描述頁中加入{{Vector version available|新圖片名稱.svg}}模板,同時移除本模板。

摘要

描述
Deutsch: Radiodrome, verschiedene Parameter, Farbe
English: Curve of pursuit, different parameters, coloured
Polski: Krzywa pogoni przy różnych parametrach
Русский: Кривая погони при различных параметрах
日期
來源 self by W!B: - using Euler (Radiodrome_params.en, #SourceCode), StarOffice Draw
作者 W!B:
授權許可
(重用此檔案)
Public Domain

授權條款

Public domain 我,此作品的版權所有人,釋出此作品至公共領域。此授權條款在全世界均適用。
這可能在某些國家不合法,如果是的話:
我授予任何人有權利使用此作品於任何用途,除受法律約束外,不受任何限制。

Used

Source Code

% RADIODROME_PARAMS.en
% SourceCode for EULER by W#B: 29.10.2005, Public Domain
%      EULER is a program for quick and interactive computations with real
%      and complex numbers, matrices, or with intervals.
%      Euler is freeware under the GNU general public license.
%      The Euler homepage is at http://www.rene-grothmann.de
% ==================================================================
>function radiodrome(y, k, d0=1)
## x   - vektor over vektor y, y(i) <> 0!!
## d0 .. normal distance of point of return (1/x'=0)
## k  .. parameter of radiodrome (factor of velocities)
$yy=abs(y)/d0;
$if abs(k)==1; x=sign(k)*((yy^2-1)/4-log(yy)/2);
$ else; k1=1+k; k2=1-k;  x=1/2*((yy^k1-1)/k1-(yy^k2-1)/k2);  endif;
$return x*d0;
$endfunction
>function radiodrome0(k, d0=1)
## x   - value x at y=0
##     if no zeropoint exists, returns x=0
##      (as k=0 will give correct x=0, test for both)
## d0 .. normal distance of point of return (1/x'=0)
$if abs(k)>=1;  x=0;  "radiodrome0: no zeropoint";
$ else; k1=1+k; k2=1-k;  x=k/(k1*k2);  endif;
$return x*d0;
$endfunction
% ------------------------------------------------------------------
>clg; reset;
>xmin=0; xmax=1.6; ymin=0; ymax=1.4; 
>delta0=0.000001; delta1=0.001; delta2=0.02;
>setplot(xmin,xmax,ymin,ymax); keepsquare(1); scaling(0);  
>y=ymin+delta0:delta1:ymax+delta2; x=radiodrome(y, 1);
>plotarea(x,y); hold on; markerstyle("x");
>color(1);  linewidth(1); xplot();
>color(10); linewidth(2); plot(x,y);
>color(12); k=1.4;x=radiodrome(y, k); plot(x,y);
>color(5);  k=0.7;x=radiodrome(y, k); plot(x,y); mark (radiodrome0(k), 0);
>color(14); k=0.5;x=radiodrome(y, k); plot(x,y); mark (radiodrome0(k), 0);
>color(11); k=0.3;x=radiodrome(y, k); plot(x,y); mark (radiodrome0(k), 0);
>"done"
% ------------------------------------------------------------------

說明

添加單行說明來描述出檔案所代表的內容

在此檔案描寫的項目

描繪內容

檔案歷史

點選日期/時間以檢視該時間的檔案版本。

日期/時間縮⁠圖尺寸使用者備⁠註
目前2005年11月7日 (一) 14:42於 2005年11月7日 (一) 14:42 版本的縮圖575 × 569(16 KB)W!B:{{Information| |Description=EN: Curve of pursuit,different parameters, colour DE: Radiodrome, verschiedene Parameter, Farbe |Source=self by W!B: - using Euler (Radiodrome_params.en, SourceCode see discussion), StarOffice Draw |Date=created 3. Nov. 2005 |A
2005年11月7日 (一) 14:38於 2005年11月7日 (一) 14:38 版本的縮圖575 × 569(16 KB)W!B:
2005年11月7日 (一) 14:34於 2005年11月7日 (一) 14:34 版本的縮圖573 × 567(7 KB)W!B:{{Information| |Description=EN: Curve of pursuit,different parameters, colour DE: Radiodrome, verschiedene Parameter, Farbe |Source=self by W!B: - using Euler (Radiodrome_params.en, SourceCode see discussion), StarOffice Draw |Date=created 3. Nov. 2005 |A

下列頁面有用到此檔案:

全域檔案使用狀況

以下其他 wiki 使用了這個檔案: