Как нарисовать 17-угольник

@KupuJIJI · Регистрация: 13.04.2014

Студворк — интернет-сервис помощи студентам

Как нарисовать 17-угольник?
Нарисовать окружность, которая будет строиться по 17-ти точкам и как?

@Mysterious Light · 27.05.2014, 16:22

Wolfram 8

Haskell
1
2
3
4
5
With[{n = 17},
  With[{points = 
     Table[{Cos[2 \[Pi] k/n], Sin[2 \[Pi] k/n]}, {k, 1, n}]},
   Polygon[points]
   ]] // Graphics

@KupuJIJI · 27.05.2014, 20:58 **[ТС]**

А почему не белый? Мне по контуру надо. А без Graphics это можно?

@Mysterious Light · 27.05.2014, 21:35

Сообщение от KupuJIJI

А почему не белый?

Потому же, почему и не синий, и не желтый — Вы ничего об этом не сказали, как и не сказали о размерах, толщине и цвете контура, цвете заливки и ориентации.

Сообщение от KupuJIJI

Мне по контуру надо.

Я не смог этого предвидеть.

Сообщение от KupuJIJI

А без Graphics это можно?

Не графикой? Это как, текстом, что ли?

@KupuJIJI · 27.05.2014, 23:15 **[ТС]**

Метод Graphics не обязательно, кажется, использовать, чтобы начертить 17-угольник. А как тогда будет по контуру? Спасибо.

@Mysterious Light · 28.05.2014, 01:16

Haskell
1
2
3
4
With[{n = 17},
  With[{points = 
     Table[{Cos[2 \[Pi] k/n], Sin[2 \[Pi] k/n]}, {k, 1, n}]},
   {White, EdgeForm[Black], Polygon[points]}]] // Graphics

Или так:

Haskell
1
2
3
4
With[{n = 17},
  With[{points = 
     Table[{Cos[2 \[Pi] k/n], Sin[2 \[Pi] k/n]}, {k, 0, n}]},
   Line[points]]] // Graphics

Если Вы хотите получить графический объект, то он всё равно сведётся к Graphics. Может быть, Вашу задачу можно сравнительно малой кровью решить при помощью иных функций, вроде Plot или ListPlot (которые в конечном счёте сводятся к Graphics), соединяя точки при помощи Joined -> True. Но зачем плясать с бубном над сложными функциями, если можно сделать то же самое при помощи примитивов, которые именно ради таких задач нам и доступны.

@KupuJIJI · 28.05.2014, 16:38 **[ТС]**

А в ListPlot бы сложно выглядело?

Добавлено через 8 часов 7 минут
ListPlot[Table[{Cos[(2 \[Pi] k)/n], Sin[(2 \[Pi] k)/n]}, {k, 0, 17}],
PlotStyle -> Automatic, Joined -> True, ImageSize -> {360, 360},
AspectRatio -> Full]

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@KupuJIJI 0 / 0 / 0 Регистрация: 13.04.2014 Сообщений: 21

	Как нарисовать 17-угольник 27.05.2014, 11:33. Показов 1815. Ответов 6 Метки нет (Все метки) Как нарисовать 17-угольник? Нарисовать окружность, которая будет строиться по 17-ти точкам и как? 0

@KupuJIJI 0 / 0 / 0 Регистрация: 13.04.2014 Сообщений: 21
	27.05.2014, 20:58 [ТС]
	А почему не белый? Мне по контуру надо. А без Graphics это можно? 0

@KupuJIJI 0 / 0 / 0 Регистрация: 13.04.2014 Сообщений: 21
	27.05.2014, 23:15 [ТС]
	Метод Graphics не обязательно, кажется, использовать, чтобы начертить 17-угольник. А как тогда будет по контуру? Спасибо. 0

@KupuJIJI 0 / 0 / 0 Регистрация: 13.04.2014 Сообщений: 21
	28.05.2014, 16:38 [ТС]
	А в ListPlot бы сложно выглядело? Добавлено через 8 часов 7 минут ListPlot[Table[{Cos[(2 \[Pi] k)/n], Sin[(2 \[Pi] k)/n]}, {k, 0, 17}], PlotStyle -> Automatic, Joined -> True, ImageSize -> {360, 360}, AspectRatio -> Full] 0