Файл:KUGSPI-9 Loxodrome.gif
Нет версии с бо́льшим разрешением.
KUGSPI-9_Loxodrome.gif (200 × 200 пкс, размер файла: 59 КБ, MIME-тип: image/gif, закольцованный, 20 фреймов, 2,0 с)
Описание
| Описание | Ein Loxodrom hat im Gegensatz zur archimedischen Kugelspirale einen konstanten Winkel zwischen den Längengraden und den Breitengraden, der hier das Verhältnis von 10 Länge zu 1 Breite hat. |
|---|---|
| Источник | GW-BASIC (german wiki)-Programm: <span></span><span class="nl">100</span><span class="w"> </span><span class="kr">SCREEN</span><span class="w"> </span><span class="il">1</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="kr">KEY</span><span class="w"> </span><span class="k">OFF</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">P</span><span class="o">=</span><span class="kr">ATN</span><span class="p">(</span><span class="il">1</span><span class="p">)</span><span class="o">/</span><span class="il">45</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">R</span><span class="o">=</span><span class="il">96</span>
<span class="nl">110</span><span class="w"> </span><span class="c1">REM P = WINKEL UMRECHNEN IN RAD : R=RADIUS DER KUGEL</span>
<span class="nl">120</span><span class="w"> </span><span class="c1">REM (REM=REMARK=ANMERKUNG) ZWANZIG BLICKWINKEL ERZEUGEN</span>
<span class="nl">130</span><span class="w"> </span><span class="kr">FOR</span><span class="w"> </span><span class="vg">U</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="il">0</span><span class="w"> </span><span class="k">TO</span><span class="w"> </span><span class="il">175</span><span class="w"> </span><span class="k">STEP</span><span class="w"> </span><span class="il">9</span><span class="o">:</span><span class="vg">T</span><span class="o">=</span><span class="vg">P</span><span class="o">*</span><span class="nl">U:</span><span class="vg">G</span><span class="o">=</span><span class="kr">COS</span><span class="p">(</span><span class="vg">T</span><span class="p">)</span><span class="o">:</span><span class="vg">H</span><span class="o">=</span><span class="kr">SIN</span><span class="p">(</span><span class="vg">T</span><span class="p">)</span>
<span class="nl">140</span><span class="w"> </span><span class="kr">CLS</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="kr">LINE</span><span class="p">(</span><span class="il">60</span><span class="p">,</span><span class="il">0</span><span class="p">)</span><span class="o">-</span><span class="p">(</span><span class="il">259</span><span class="p">,</span><span class="il">199</span><span class="p">),</span><span class="il">3</span><span class="p">,</span><span class="vg">B</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="kr">LOCATE</span><span class="w"> </span><span class="il">2</span><span class="p">,</span><span class="il">9</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="kr">PRINT</span><span class="w"> </span><span class="kr">RIGHT$</span><span class="p">(</span><span class="s2">" "</span><span class="o">+</span><span class="kr">STR$</span><span class="p">(</span><span class="vg">U</span><span class="p">),</span><span class="il">3</span><span class="p">);</span>
<span class="nl">150</span><span class="w"> </span><span class="c1">REM BREITENKREISE IN ROT ERZEUGEN</span>
<span class="nl">160</span><span class="w"> </span><span class="kr">FOR</span><span class="w"> </span><span class="vg">V</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="il">90</span><span class="w"> </span><span class="k">TO</span><span class="w"> </span><span class="il">270</span><span class="w"> </span><span class="k">STEP</span><span class="w"> </span><span class="il">18</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">A</span><span class="o">=</span><span class="vg">P</span><span class="o">*</span><span class="nl">V:</span><span class="vg">C</span><span class="o">=</span><span class="vg">R</span><span class="o">*</span><span class="kr">COS</span><span class="p">(</span><span class="vg">A</span><span class="p">)</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">Z</span><span class="o">=</span><span class="vg">R</span><span class="o">*</span><span class="kr">SIN</span><span class="p">(</span><span class="vg">A</span><span class="p">)</span>
<span class="nl">170</span><span class="w"> </span><span class="kr">FOR</span><span class="w"> </span><span class="vg">W</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="il">0</span><span class="w"> </span><span class="k">TO</span><span class="w"> </span><span class="il">360</span><span class="w"> </span><span class="k">STEP</span><span class="w"> </span><span class="p">(</span><span class="il">-2</span><span class="o">*</span><span class="vg">R</span><span class="p">)</span><span class="o">/</span><span class="p">(</span><span class="vg">C</span><span class="mf">-.001</span><span class="p">)</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">B</span><span class="o">=</span><span class="vg">P</span><span class="o">*</span><span class="vg">W</span>
<span class="nl">180</span><span class="w"> </span><span class="vg">X</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="vg">C</span><span class="o">*</span><span class="kr">COS</span><span class="p">(</span><span class="vg">B</span><span class="p">)</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">Y</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="vg">C</span><span class="o">*</span><span class="kr">SIN</span><span class="p">(</span><span class="vg">B</span><span class="p">)</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">M</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="il">160</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="vg">X</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">N</span><span class="o">=</span><span class="il">100</span><span class="o">-</span><span class="vg">G</span><span class="o">*</span><span class="vg">Z</span><span class="o">-</span><span class="vg">H</span><span class="o">*</span><span class="nl">Y:</span><span class="vg">O</span><span class="o">=</span><span class="vg">H</span><span class="o">*</span><span class="vg">Z</span><span class="o">-</span><span class="vg">G</span><span class="o">*</span><span class="vg">Y</span>
<span class="nl">190</span><span class="w"> </span><span class="kr">IF</span><span class="w"> </span><span class="vg">O</span><span class="o">></span><span class="il">-1</span><span class="w"> </span><span class="kr">THEN</span><span class="w"> </span><span class="kr">PSET</span><span class="p">(</span><span class="vg">M</span><span class="p">,</span><span class="vg">N</span><span class="p">),</span><span class="il">2</span>
<span class="nl">200</span><span class="w"> </span><span class="kr">NEXT</span><span class="w"> </span><span class="vg">W</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="kr">NEXT</span><span class="w"> </span><span class="vg">V</span>
<span class="nl">210</span><span class="w"> </span><span class="c1">REM MERIDIANE IN GRUEN ERZEUGEN</span>
<span class="nl">220</span><span class="w"> </span><span class="kr">FOR</span><span class="w"> </span><span class="vg">V</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="il">90</span><span class="w"> </span><span class="k">TO</span><span class="w"> </span><span class="il">260</span><span class="w"> </span><span class="k">STEP</span><span class="w"> </span><span class="il">18</span><span class="o">:</span><span class="w"> </span><span class="vg">A</span><span class="o">=</span><span class="vg">P</span><span class="o">*</span><span class="vg">V</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">E</span><span class="o">=</span><span class="kr">COS</span><span class="p">(</span><span class="vg">A</span><span class="p">)</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">F</span><span class="o">=</span><span class="kr">SIN</span><span class="p">(</span><span class="vg">A</span><span class="p">)</span>
<span class="nl">230</span><span class="w"> </span><span class="kr">FOR</span><span class="w"> </span><span class="vg">W</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="il">0</span><span class="w"> </span><span class="k">TO</span><span class="w"> </span><span class="il">360</span><span class="w"> </span><span class="k">STEP</span><span class="w"> </span><span class="il">2</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">B</span><span class="o">=</span><span class="vg">P</span><span class="o">*</span><span class="vg">W</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">Z</span><span class="o">=</span><span class="vg">R</span><span class="o">*</span><span class="kr">SIN</span><span class="p">(</span><span class="vg">B</span><span class="p">)</span>
<span class="nl">240</span><span class="w"> </span><span class="vg">X</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="vg">E</span><span class="o">*</span><span class="vg">R</span><span class="o">*</span><span class="kr">COS</span><span class="p">(</span><span class="vg">B</span><span class="p">)</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">Y</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="vg">F</span><span class="o">*</span><span class="vg">R</span><span class="o">*</span><span class="kr">COS</span><span class="p">(</span><span class="vg">B</span><span class="p">)</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">M</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="il">160</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="vg">X</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">N</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="il">100</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="vg">G</span><span class="o">*</span><span class="vg">Z</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="vg">H</span><span class="o">*</span><span class="vg">Y</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">O</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="vg">H</span><span class="o">*</span><span class="vg">Z</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="vg">G</span><span class="o">*</span><span class="vg">Y</span>
<span class="nl">250</span><span class="w"> </span><span class="kr">IF</span><span class="w"> </span><span class="vg">O</span><span class="w"> </span><span class="o">>-</span><span class="w"> </span><span class="il">1</span><span class="w"> </span><span class="kr">THEN</span><span class="w"> </span><span class="kr">PSET</span><span class="p">(</span><span class="vg">M</span><span class="p">,</span><span class="vg">N</span><span class="p">),</span><span class="il">1</span>
<span class="nl">260</span><span class="w"> </span><span class="kr">NEXT</span><span class="w"> </span><span class="vg">W</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="kr">NEXT</span><span class="w"> </span><span class="vg">V</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">V</span><span class="o">=</span><span class="mf">90.1</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="kr">REM</span><span class="w"> </span><span class="vg">STARTBREITENWINKEL</span>
<span class="nl">270</span><span class="w"> </span><span class="c1">REM LOXODROME IN WEISS ERZEUGEN</span>
<span class="nl">280</span><span class="w"> </span><span class="kr">FOR</span><span class="w"> </span><span class="vg">W</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="il">0</span><span class="w"> </span><span class="k">TO</span><span class="w"> </span><span class="il">9000</span><span class="w"> </span><span class="k">STEP</span><span class="w"> </span><span class="mf">.1</span>
<span class="nl">281</span><span class="w"> </span><span class="vg">B</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="vg">P</span><span class="o">*</span><span class="vg">W</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">V</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="vg">V</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="mf">.1</span><span class="o">*</span><span class="mf">.1</span><span class="o">*</span><span class="kr">ABS</span><span class="p">(</span><span class="kr">COS</span><span class="p">(</span><span class="vg">P</span><span class="o">*</span><span class="vg">V</span><span class="p">))</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">A</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="vg">P</span><span class="o">*</span><span class="vg">V</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">C</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="vg">R</span><span class="o">*</span><span class="kr">COS</span><span class="p">(</span><span class="vg">A</span><span class="p">)</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">Z</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="vg">R</span><span class="o">*</span><span class="kr">SIN</span><span class="p">(</span><span class="vg">A</span><span class="p">)</span>
<span class="nl">290</span><span class="w"> </span><span class="c1">REM ABS(COS(P*V)) WEIL KLEINER RADIUS = KLEINE STRECKE</span>
<span class="nl">300</span><span class="w"> </span><span class="vg">X</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="vg">C</span><span class="o">*</span><span class="kr">COS</span><span class="p">(</span><span class="vg">B</span><span class="p">)</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">Y</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="vg">C</span><span class="o">*</span><span class="kr">SIN</span><span class="p">(</span><span class="vg">B</span><span class="p">)</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">M</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="il">160</span><span class="w"> </span><span class="o">+</span><span class="w"> </span><span class="vg">X</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">N</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="il">100</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="vg">G</span><span class="o">*</span><span class="vg">Z</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="vg">H</span><span class="o">*</span><span class="vg">Y</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="vg">O</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="vg">H</span><span class="o">*</span><span class="vg">Z</span><span class="w"> </span><span class="o">-</span><span class="w"> </span><span class="vg">G</span><span class="o">*</span><span class="vg">Y</span>
<span class="nl">310</span><span class="w"> </span><span class="kr">IF</span><span class="w"> </span><span class="vg">O</span><span class="w"> </span><span class="o">></span><span class="w"> </span><span class="il">-1</span><span class="w"> </span><span class="kr">THEN</span><span class="w"> </span><span class="kr">PSET</span><span class="p">(</span><span class="vg">M</span><span class="p">,</span><span class="vg">N</span><span class="p">),</span><span class="il">3</span>
<span class="nl">320</span><span class="w"> </span><span class="kr">NEXT</span><span class="w"> </span><span class="vg">W</span>
<span class="nl">330</span><span class="w"> </span><span class="c1">REM NAECHSTER BLICKWINKEL</span>
<span class="nl">340</span><span class="w"> </span><span class="kr">IF</span><span class="w"> </span><span class="vg">INKEY$</span><span class="o">=</span><span class="s2">""</span><span class="w"> </span><span class="kr">THEN</span><span class="w"> </span><span class="il">340</span>
<span class="nl">350</span><span class="w"> </span><span class="kr">NEXT</span><span class="w"> </span><span class="vg">U</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="kr">SCREEN</span><span class="w"> </span><span class="il">0</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="kr">CLS</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="kr">KEY</span><span class="w"> </span><span class="k">OFF</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="kr">WIDTH</span><span class="w"> </span><span class="il">80</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="k">LIST</span><span class="w"> </span><span class="o">:</span><span class="w"> </span><span class="kr">END</span>
<span class="nl">360</span><span class="w"> </span><span class="c1">REM SAVE"KUGSPI-9.BAS",A</span>
|
| Время создания | 2005-04-26 |
| Автор или правообладатель | German Wikipedia User Karl Bednarik — Лицензия: CC BY-SA 3.0 (Creative Commons Attribution-Share Alike 3.0) http://creativecommons.org/licenses/by-sa/3.0/ |
| Другие версии файла | — |
Источник файла — сайт Wikimedia Commons, куда он был загружен под одной из свободных лицензий ( https://commons.wikimedia.org/wiki/File:KUGSPI-9_Loxodrome.gif ). Авторов, работавших над этим файлом см. в истории файла: https://commons.wikimedia.org/w/index.php?title=File:KUGSPI-9_Loxodrome.gif&action=history
В общем случае в статьях энциклопедии Руниверсалис файлы используются в соответствии со статьёй 1274 Гражданского кодекса Российской Федерации.
История файла
Нажмите на дату/время, чтобы увидеть версию файла от того времени.
| Дата/время | Миниатюра | Размеры | Участник | Примечание | |
|---|---|---|---|---|---|
| текущий | 13:16, 17 октября 2023 | | 200 × 200 (59 КБ) | I, Robot (обсуждение | вклад) | == Описание == {{Изображение | описание = Ein <b>Loxodrom</b> hat im Gegensatz zur archimedischen Kugelspirale einen konstanten Winkel zwischen den Längengraden und den Breitengraden, der hier das Verhältnis von 10 Länge zu 1 Breite hat. | источник = <p>[https://en.wikipedia.org/wiki/de:GW-BASIC GW-BASIC (german wiki)]-Programm: </p> <div class="mw-highlight mw-highlight-lang-qbasic mw-content-ltr" dir="ltr"><pre><span></span><span class="nl">100</span><span class="w"> </span><span class="k... |
Вы не можете перезаписать этот файл.
Использование файла
Следующий файл является дубликатом этого файла (подробности):
- Файл:KUGSPI-9 Loxodrome.gif на Викискладе
Следующая страница использует этот файл:
