File:Radiodrome-params-colour.png
来自Wikimedia Commons
跳转到导航
跳转到搜索
Radiodrome-params-colour.png (575 × 569像素,文件大小:16 KB,MIME类型:image/png)
文件信息
结构化数据
说明
此math图片可使用矢量图形重新创建为SVG文件。这具有很多好处;更多信息请参见共享资源:待清理媒体。如果存在此图片的SVG格式,请将其上传,然后将此模板替换为
{{vector version available|新图片名称}} 。
建议您将SVG命名为“Radiodrome-params-colour.svg”,这样在使用Vector version available(或Vva)模板时就不需要填写新图片名称参数。 |
摘要
[编辑]描述Radiodrome-params-colour.png |
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 domainPublic domainfalsefalse |
我,本作品著作权人,释出本作品至公有领域。这适用于全世界。 在一些国家这可能不合法;如果是这样的话,那么: 我无条件地授予任何人以任何目的使用本作品的权利,除非这些条件是法律规定所必需的。 |
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 | 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 | 575 × 569(16 KB) | W!B:(留言 | 贡献) | |||
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使用此文件:
- en.wikipedia.org上的用途
- he.wikipedia.org上的用途
- pl.wikipedia.org上的用途
- ru.wikipedia.org上的用途
- sl.wikipedia.org上的用途
- uk.wikipedia.org上的用途
- zh.wikipedia.org上的用途