Círculo alinhado, n pontos

39

Desenhe linhas entre cada par de pontos distintos para npontos dispostos em círculo, produzindo algo como o resultado abaixo. O código mais curto (em bytes) vence! Suas linhas não precisam ser transparentes, mas parece melhor assim. A saída deve ser um gráfico vetorial ou uma imagem com pelo menos 600 pixels por 600 pixels (salvos em um arquivo ou exibidos na tela). Para completar o desafio, você deve desenhar pelo menos 20.

insira a descrição da imagem aqui

code-golf kolmogorov-complexity graphical-output J. Antonio Perez
fonte
7
Seria legal se você tivesse que digitar um número ne desenhar linhas para ganhar npontos.
Yodle
2
Eu apóio essa ideia. Altere-o antes que alguém obtenha a primeira resposta.
Shooqie
2
@shooqie Então o título não faria sentido, a menos que possa ser editado pelos mods?
Yodle
2
Eu não acho que mudar 37 para um arbitrário ntraria muito mais ao desafio, pois espero que a maioria das soluções funcione com qualquer número de qualquer maneira, especialmente porque 37 é ímpar e, portanto, não há simetrias de espelho.
Laikoni 01/12/16
3
Tomamos ncomo entrada ou apenas escolhe um arbitrário nacima de 20?
Rɪᴋᴇʀ

Respostas:

26

Mathematica, 13 bytes

CompleteGraph

círculo alinhado-37-pontos

Parece que isso apenas não fornece uma incorporação circular para n=4, mas a pergunta afirman>=20

ngenisis
fonte
1
... e lá estava eu ​​tentando encontrar a maneira correta de executar uma função n(eu tinha a resposta pronta dos 37 fixos) :(
Jonathan Allan
6
@carusocomputing Esta função não tem nada a ver com "gráficos" no sentido de plotagem. O Mathematica também é muito bom para problemas de teoria de grafos e ter um built-in para gerar um gráfico completo parece ser a primeira coisa que eu acrescentaria se adicionasse suporte a gráficos ao meu idioma. A única razão pela qual essa função é útil para esse desafio é que gráficos completos são renderizados por padrão com todos os vértices organizados em um círculo.
Martin Ender
2
Se você deseja suportar gráficos, é melhor ter uma função gráfica completa, IMO.
Ngenisis
2
@carusocomputing Bem-vindo ao Mathematica, a linguagem incorporada a todas as funções existentes. :-P
HyperNeutrino 2/16/16
1
Eu estava baixando o NetLogo porque pensei que "multi-tartarugas farão pouco trabalho com isso!" então lembrei que os matemáticos estão usando a versão adulta.
Wyldstallyns 02/12/16
13

MATL , 16 14 bytes

Como não sou muito fluente com o MATL, espero que isso seja um pouco mais fácil de jogar. (Seria bom, pelo menos, vencer o Mathematica :-) Ou seja, o flip wnão é o ideal, provavelmente poderia ser evitado ...

:G/4*Jw^2Z^!XG

Teste on-line! (Obrigado @Suever por este serviço, obrigado @DrMcMoylex por -2 bytes.)

Explicação (para N=3):

  :               Generate Range 1:input:       [1,2,3]
   G/             Divide By the first input     [0.333,0.666,1]
     4*           Multiply by 4                 [1.33,2.66,4.0]
       Jw^        i ^ (the result so far)       [-0.49+ 0.86i,-.5-0.86i,1.00]
                  (This results in a list of the n-th roots of unity)
          2Z^     Take the cartesian product with itself (i.e. generate all 2-tuples of those points)
             !XG  Transpose and plot

Vale a pena notar que, para gerar as enésimas raízes da unidade, você pode usar a fórmula exp(2*pi*i*k/N)para k=1,2,3,...,N. Mas desde que exp(pi*i/2) = ivocê também pode escrever i^(4*k/N)para o k=1,2,3,...,Nque é o que estou fazendo aqui.

flawr
fonte
1
Você pode mudar XH:Hpara:G
DJMcMayhem
1
Aaah eu esqueci Gmuito obrigado!
flawr
11

PICO-8 , 131 bytes

Eu não tinha muita certeza se infringiria alguma regra, mas fiz de qualquer maneira!

Golfe

p={}for i=0,19 do add(p,{64+64*cos(i/20),64+64*sin(i/20)})end for x in all(p)do for y in all(p)do line(x[1],x[2],y[1],y[2])end end

Ungolfed

points={}

for i=0,19 do 
  x=64+64*cos(i/20)
  y=64+64*sin(i/20)
  add(points,{x,y})
end

for x in all(points) do
  for y in all(points) do
    line(x[1],x[2],y[1],y[2])
  end
end

Loucura de 128x128

PICO-8 é um console de fantasia baseado em Lua com uma resolução nativa de 128x128. Eu fiz o círculo o maior que pude ...

Tyler MacDonell
fonte
9

Mathematica, 42 bytes

Cria um conjunto de 37 pontos organizados em um círculo e desenha linhas entre todos os subconjuntos possíveis de dois pontos. Alguém postou uma resposta mais curta que tira proveito do CompleteGraph, mas acredito que este seja o mais curto, além daqueles que dependem do CompleteGraph.

Graphics@Line@Subsets[CirclePoints@37,{2}]

insira a descrição da imagem aqui

J. Antonio Perez
fonte
3
Não há necessidade de evitar desenhar linhas de um ponto para si mesmo, para que você possa salvar 3 bytes usando Tuple. Você também precisa atualizar isso para aceitar arbitrariamente n, mas convenientemente isso não lhe custará bytes.
Ngenisis
1
Significou a dizerTuples
ngenisis
9

HTML + JS (ES6), 34 + 177 164 162 = 196 bytes

Usando a API Canvas do HTML5 .

Veja no CodePen .

f=n=>{with(Math)with(c.getContext`2d`)for(translate(S=300,S),O=n;O--;)for(rotate(a=PI*2/n),N=n;N--;)beginPath(stroke()),lineTo(0,S),lineTo(sin(a*N)*S,cos(a*N)*S)}


/* Demo */
f(20)
<canvas id=c width=600 height=600>
Expandir snippet

-13 bytes : removido closePath(), movido para stroke()dentrobeginPath()

-2 bytes : variável definida adentrorotate()

darrylyeo
fonte
8

Java, 346 338 322 301 bytes

Esta solução funciona para todos n>1, mesmo que a postagem original não exija isso, ela exige.

O meu favorito é n=5não perguntar por que, também, se você quiser uma GUI mais legal, use:

int a=Math.min(this.getHeight(),this.getWidth())/2;

No lugar dos 300 codificados, ele usará a largura ou a altura do quadro como diâmetro.

Economizou 8 bytes graças ao Shooqie. Economizou 21 bytes graças ao Geobits.

import java.awt.*;void m(final int n){new Frame(){public void paint(Graphics g){Point[]p=new Point[n];int a=300;for(int i=1;i<n+1;i++){p[i-1]=new Point(a+(int)(a*Math.cos(i*2*Math.PI/n)),a+(int)(a*Math.sin(i*2*Math.PI/n)));for(int j=0;j<i;j++){g.drawLine(p[i-1].x,p[i-1].y,p[j].x,p[j].y);}}}}.show();}

Saída para n=37:

insira a descrição da imagem aqui

Urna de polvo mágico
fonte
Você pode cair Frame x=e final(eu acho?)
shooqie
@shooqie oops, Frame xera de outra solução que envolvia um thread. Você precisa da final, pois é uma referência de classe interna a uma variável externa na classe proprietária.
Magic Octopus Urn
Funciona muito bem na minha máquina. BTW eu acho que você pode raspar alguns bytes movendo intdeclarações fora do forloops de
shooqie
@shooqie no Java 6 está dizendo "Não é possível se referir à variável local não final n em um escopo de fechamento" em tempo de compilação.
Magic Octopus Urn
Funcionou para mim no Java 8, mas depois que você editou sua postagem, eu só estava recebendo uma tela branca.
Shooqie
7

Python 2, 258 235 229 bytes

import itertools as T,math as M
from PIL import Image as I,ImageDraw as D
s=300
n=input()
t=2*M.pi/n
o=I.new('RGB',(s*2,)*2)
for x in T.combinations([(s*M.cos(t*i)+s,s*M.sin(t*i)+s)for i in range(n)],2):D.Draw(o).line(x)
o.show()

Saída para n=37
n = 37

Cajado
fonte
1
Não seria from PIL import*mais curto?
Roman Gräf
@ RomanGräf PIL é um pacote estranho, você não pode import *, dependendo de como instalar, você pode pular o PIL e importar o Image / ImageDraw diretamente
Rod /
6

Oitava, 88 69 bytes

N=input('');t=0:2*pi/N:N;k=nchoosek(1:N,2)';line(cos(t)(k),sin(t)(k))

Saída para N=37:

insira a descrição da imagem aqui

Saída para N=19:

insira a descrição da imagem aqui

Stewie Griffin
fonte
Oh, eu nem percebi que já havia outra resposta Octave :)
flawr
De qualquer forma, vencê-lo :-)
flawr
Por uma milha! Meu primeiro pensamento foi gplottambém, mas eu não conseguem fazê-lo curto o suficiente ...
Stewie Griffin
6

Perl, 229 bytes

Ele usa a mesma fórmula que a maioria dos idiomas que não possuem recursos convenientes para esse desafio (mesmo que eu não os tenha encontrado, mas é uma fórmula bastante fácil de encontrar). Portanto, não é muito interessante, mas geralmente não há muitas respostas de Perl para esse tipo de desafio, então eu só queria propor uma.

$i=new Imager xsize=>700,ysize=>700;for$x(1..$_){for$y(1..$_){$i->line(color=>red,x1=>350+300*cos($a=2*pi*$x/$_),x2=>350+300*cos($b=2*pi*$y/$_),y1=>350+300*sin$a,y2=>350+300*sin$b)}}$i->write(file=>"t.png")

E você precisará -MImager(9 bytes), -MMath::Trig(fornecendo pi, 13 bytes) e -n(1 byte) ==> + 23 bytes.

Para executá-lo:

perl -MImager -MMath::Trig -ne '$i=new Imager xsize=>700,ysize=>700;for$x(1..$_){for$y(1..$_){$i->line(color=>red,x1=>350+300*cos($a=2*pi*$x/$_),x2=>350+300*cos($b=2*pi*$y/$_),y1=>350+300*sin$a,y2=>350+300*sin$b)}}$i->write(file=>"t.png")' <<< 27

Ele criará um arquivo chamado t.pngque contém a imagem.

Você precisará instalar Imager, mas não se preocupe, é bastante fácil:

(echo y;echo) | perl -MCPAN -e 'install Imager'

(O echos irá configurá-lo cpan se você nunca o usou antes. (Na verdade, isso só funcionará se o seu perl for recente o suficiente, acho que para a maioria de vocês será e sinto muito pelos outros!)) .

E a versão mais legível (sim, é bastante legível para um script Perl!):

#!/usr/bin/perl -n
use Imager;
use Math::Trig;
$i=Imager->new(xsize=>700,ysize=>700);
for $x (1..$_){
    for $y (1..$_){
    $i->line(color=>red,x1=>350+300*cos($a=2*pi*$x/$_), x2=>350+300*cos($b=2*pi*$y/$_),
         y1=>350+300*sin($a), y2=>350+300*sin($b));
    }
}
$i->write(file=>"t.png");

insira a descrição da imagem aqui

-1 byte graças a Titus.

dada
fonte
O Perl requer chaves em torno de comandos únicos?
Titus
@Titus Se você se referir aos aparelhos após os forloops, sim, eles são obrigatórios.
Dada
Há um espaço em branco antes y2. Aposto que você não precisa disso. E você pode escrever para STDOUT?
Titus
@ Titus hmm de fato, obrigado. Acho que meu terminal colocou uma nova linha aqui para não ver o espaço.
Dada
5

GeoGebra , 92 bytes

a=polygon((0,0),(1,0),20)
sequence(sequence(segment(vertex(a,i),vertex(a,j)),j,1,20),i,1,20)

Cada linha é inserida separadamente na barra de entrada. Aqui está um gif mostrando a execução:

Execução

Como funciona

O polygoncomando cria um polígono de 20 lados, com os vértices da linha de base em (0,0)e (1,0). O próximo comando itera sobre cada vértice do polígono com índice i, usando os comandos sequencee vertex, e para cada vértice com índice i, desenha um segmento de linha para todos os outros vértices com índice jusando o segmentcomando

TheBikingViking
fonte
4

PHP, 186 184 196 bytes

imagecolorallocate($i=imagecreate(601,601),~0,~0,~0);for(;$a<$p=2*M_PI;)for($b=$a+=$p/=$argv[1];$b>0;)imageline($i,(1+cos($a))*$r=300,$r+$r*sin($a),$r+$r*cos($b-=$p),$r+$r*sin($b),1);imagepng($i);

grava a imagem em STDOUT

demolir

// create image with white background
imagecolorallocate($i=imagecreate(601,601),~0,~0,~0);

// loop angle A from 0 to 2*PI
for(;$a<$p=2*M_PI;)
    // loop angle B from A down to 0
    for($b=$a+=$p/=$argv[1];$b;)    // ($a pre-increment)
        // draw black line from A to B
        imageline($i,                           // draw line
            (1+cos($a))*$r=300,$r+$r*sin($a),   // from A
            $r+$r*cos($b-=$p),$r+$r*sin($b),    // to B ($b pre-decrement)
            1                                   // undefined color=black
        );
// output
imagepng($i);

-12 bytes para fixo n=20

Substitua $p=2*M_PIpor 6(-8), /=$argv[1]por =M_PI/10(-2) e $b>0por$b (-2)

Usar PI / 10 exato não dói. Com .3142, os erros de arredondamento da versão parametrizada permaneceram, mas com M_PI/10eles desapareceram e posso verificar $b(<> 0) em vez de $b>0. Eu poderia ter salvo dois bytes com .314, mas isso teria compensado os pontos.

O limite $a<6é suficientemente exato para 20 pontos.

gráfico exato do PI

174 bytes para fixo n=314

imagecolorallocate($i=imagecreate(601,601),~0,~0,~0);for(;$a<314;)for($b=$a++;$b--;)imageline($i,(1+cos($a))*$r=300,$r+$r*sin($a),$r+$r*cos($b),$r+$r*sin($b),1);imagepng($i);

Usar 314 pontos resulta em um círculo preenchido nessa resolução (como 136.140, todos os números pares acima disso e tudo acima de 317).

Titus
fonte
1
Boa resposta, mas parece que você codificou 20 em vez de usar isso como entrada?
Riking 01/12/19
1
@Riking: Verdade. Mas não vejo demanda no desafio de parametrizá-lo.
Titus
4

NetLogo - 44 bytes

cro 20[create-links-to other turtles fd 20]

Saída NetLogo

wyldstallyns
fonte
4

R, 127 123 bytes

plot((e=cbind(sin(t<-seq(0,2*pi,l=(n=21)))*2,cos(t)*2)));for(i in 2:n)for(j in 1:i)lines(c(e[i,1],e[j,1]),c(e[i,2],e[j,2]))

Produz:

Etiquetas do eixo legal, não é?

-4 bytes graças a @Titus!

Frédéric
fonte
1
Não é mais curto, mas poderia ser mais rápido for(i in 2:n){for(j in 1:i)...}. Será que Rexigem as chaves?
Titus
@ Titus Você está certo! E não, nenhum aparelho é necessário lá. Obrigado !
Frédéric
3

BBC BASIC, 98 caracteres ascii

Tamanho do arquivo tokenizado 86 bytes

r=600V.5142;29,r;r;:I.n:t=2*PI/n:F.i=1TOn*n:a=i DIVn*t:b=i MODn*t:L.r*SINa,r*COSa,r*SINb,r*COSb:N.

Intérprete Dowload em http://www.bbcbasic.co.uk/bbcwin/bbcwin.html

Não há nada errado em desenhar cada linha duas vezes, a aparência é idêntica :-P

Ungolfed

  r=600                              :REM Radius 600 units. 2 units per pixel, so 300 pixels
  VDU5142;29,r;r;                    :REM Set mode 20 (600 pixels high) and move origin away from screen corner
  INPUTn                             :REM Take input.
  t=2*PI/n                           :REM Step size in radians.
  FORi=1TOn*n                        :REM Iterate through all combinations.
    a=i DIVn*t                       :REM Get two angles a and b
    b=i MODn*t                       :REM by integer division and modlo
    LINEr*SINa,r*COSa,r*SINb,r*COSb  :REM calculate cartesian coordinates and draw line
  NEXT

Saída n = 21

Isso parece muito melhor na renderização original do que no navegador.

<code> insira a descrição da imagem aqui </code>

Level River St
fonte
Obrigado por me lembrar da LINEfunção. Beats DRAW...
steenbergh
3

Oitava, 50 48 46 45 bytes

@(N)gplot((k=0:2*pi/N:N)+k',[cos(k);sin(k)]')

Essa é uma função anônima que plota o gráfico que estamos procurando.

Explicação:

(k=0:2*pi/N:N)+k'Cria uma N+1 x N+1matriz de adjecência completa e define simultaneamente o vetor kde ângulos, para o qual usamos então [cos(k);sin(k)]', uma matriz de coordenadas em que cada nó do gráfico está posicionado. gplotapenas plota o gráfico que queremos.

Pois N = 29temos:

insira a descrição da imagem aqui

flawr
fonte
2

JavaScript (ES5) / SVG (HTML5), 181 bytes

document.write('<svg viewBox=-1e3,-1e3,2e3,2e3><path stroke=#000 fill=none d=M1e3,0')
with(Math)for(i=37;--i;)for(j=37;j--;)document.write('L'+1e3*cos(a=i*j*PI*2/37)+','+1e3*sin(a))
Expandir snippet

Funciona apenas para números primos, como a sugestão original de 37. Você pode reduzir pela metade (arredondado para cima) o valor inicial de ipara obter uma imagem mais fraca. Você também pode ajustar consistentemente os 1e3,2e3outros valores a gosto (comecei com, 300,600mas decidi que era muito grosseiro).

Neil
fonte
2

MATLAB, 36 bytes

@(n)plot(graph(ones(n),'Om'),'La','c')

Essa é uma função anômala que cria o enredo.

@(n)                                     Define an anonymous fuction of 𝘯
               ones(n)                   Create an 𝘯×𝘯 matrix of ones
         graph(       ,'Om')             Create a graph object with that adjacency
                                         matrix, omitting self-loops
    plot(                   ,'La','c')   Plot the graph with a circular layout

Exemplo:

insira a descrição da imagem aqui

insira a descrição da imagem aqui

Luis Mendo
fonte
Estou surpreso graphnão é parte da caixa de ferramentas de bioinformática ... nem sabia que existia ... agradável :)
Stewie Griffin
1

QBasic 4.5, 398 271 bytes

CLS:SCREEN 11:DEFSTR M-Z:DEFDBL A-L
INPUT"N",A:I=(360/A)*.0175:J=230
Q=",":FOR E=0 TO A
FOR F=E TO A
M=x$(COS(I*E)*J+J):N=x$(SIN(I*E)*J+J):O=x$(COS(I*F)*J+J):P=x$(SIN(I*F)*J+J):DRAW "BM"+M+Q+N+"M"+O+Q+P
NEXT:NEXT
FUNCTION x$(d):x$=LTRIM$(STR$(CINT(d))):END FUNCTION

A tela no QBasic pode ser apenas 640x480, portanto o círculo tem um raio de apenas 230 px, infelizmente. Além disso, há alguns artefatos por causa da perda de precisão de flutuação para int. É assim N=36: insira a descrição da imagem aqui

Edição: Eu não precisava do armazenamento, a declaração de tipo e todo o loop. Calcular todos os cartesianos de Polars no local é 50% mais barato na contagem de bytes ...

steenbergh
fonte
1

QBIC , 98 94 bytes

$SCREEN 11|:i=6.3/a j=230[0,a|[b,a|line(cos(b*i)*j+j,sin(b*i)*j+j)-(cos(c*i)*j+j,sin(c*o)*j+j)

Eu converti minha resposta QBasic original da resposta de @LevelRiverSt para QBIC. Eu pensei que isso dependeria muito de funções que não são incorporadas ao QBIC para serem viáveis, mas, como se vê, ele salva outros 90 bytes. A substituição de DRAWfor LINEsalva outros 80 bytes. Eu sabia que estava esquecendo algo simples ...

Quando executado com um parâmetro de linha de comando 36, fica assim:

insira a descrição da imagem aqui

steenbergh
fonte
1

Processamento, 274 bytes (239 + sizechamada e chamada de função)

void d(int s){float a=2*PI/s,x=0,y=-400,m,n;float[][]p=new float[2][s];translate(400,400);for(int i=0;i<s;i++){m=x*cos(a)-y*sin(a);n=x*sin(a)+y*cos(a);x=m;y=n;p[0][i]=x;p[1][i]=y;for(int j=0;j<i;j++)line(p[0][j],p[1][j],p[0][i],p[1][i]);}}
void setup(){size(800,800);d(50);}

Sinceramente, não sei por que, mas setuptinha que estar na segunda linha. eu usei https://en.wikipedia.org/wiki/Rotation_matrix para me ajudar a calcular a matemática para rotação. Este programa calcula os pontos e os empurra para uma matriz, com a qual estamos usando para desenhar linhas.

Aqui está uma foto de um polígono com 50 arestas (as 100 arestas eram quase completamente pretas)

50 pontos

Você pode adicionar stroke(0,alpha);para ter arestas transparentes, onde alphaestá a opacidade da linha. Aqui está o mesmo polígono com alphade 20.

insira a descrição da imagem aqui

Kritixi Lithos
fonte
1

Bash + Jelly + GraphViz, 52 caracteres, 52 ou 63 bytes

Dado que os programas em questão discordam sobre qual codificação de caracteres usar, o programa está cheio de caracteres de controle. Aqui está o que parece embaixo xxd, na codificação Latin-1 (que representa cada caractere em um byte):

00000000: 6a65 6c6c 7920 6520 2793 5213 636a 0c8e  jelly e '.R.cj..
00000010: 2d2d 59fe 9a3f 1d15 dc65 34d3 8442 7f05  --Y..?...e4..B..
00000020: 1172 80cf fb3b ff7d 277c 6369 7263 6f20  .r...;.}'|circo 
00000030: 2d54 7073                                -Tps

Na verdade, não consegui executar o programa sem converter a entrada em UTF-8 por algum motivo (o que tornaria 63 bytes de comprimento). Logicamente deveria funcionar como Latin-1 - nenhum dos caracteres está fora do intervalo de 0 a 255 -, mas continuo recebendo erros de "índice de string fora do intervalo", não importa como eu configure as variáveis ​​de ambiente de codificação de caracteres. Portanto, isso terá que ser contado como 63 bytes, a menos que alguém possa descobrir uma maneira de executá-lo sem recodificá-lo.

O programa pode ser um pouco mais legível se o interpretarmos na codificação de Jelly:

jelly e 'ƓRŒcj€⁾--Y“Ȥ?øßṇe4ạ⁴B¶¦×r°Ẇ»;”}'|circo -Tps

O programa pega o número de pontos na entrada padrão e gera uma imagem PostScript na saída padrão. (Ele pode ser adaptado trivialmente para produzir em qualquer formato que o GraphViz suporte, alterando o -Tpsno final; é apenas que o PostScript tem o nome mais curto. É possível salvar cinco caracteres removendo o -Tps, mas obtém o resultado no formato de imagem interno do GraphViz que nada mais suporta, o que provavelmente não conta para os propósitos da pergunta.)

Fundamentalmente, este é apenas um programa Jelly que chama o GraphViz para fazer o desenho; no entanto, o Jelly não parece ter recursos para executar programas externos, então tive que usar o bash para vinculá-los. (Isso também significa que é mais barato fazer com que o Jelly solicite a entrada do stdin manualmente; normalmente ele recebe a entrada da linha de comando, mas isso significaria bytes extras no wrapper do bash.) circoOrganizará automaticamente todos os pontos solicitados a desenhar em um círculo , portanto, o código Jelly precisa solicitar que ele desenhe uma lista de pontos, todos conectados entre si. Veja como funciona:

ƓRŒcj€⁾--Y“Ȥ?øßṇe4ạ⁴B¶¦×r°Ẇ»;”}
Ɠ                               read number from stdin
 R                              produce range from 1 to that number
                                (here used to produce a list with
                                that many distinct elements)
  Œc                            select all unordered pairs from that
      ⁾--                       a string consisting of two hyphens
    j€                          join each pair via the string
         Y                      join on newlines
                            ;   prepend (in this context)
          “Ȥ?øßṇe4ạ⁴B¶¦×r°Ẇ»    "graph{node[shape=point]"
                             ”} follow output with a "}" character

O uso do Jelly permite compactar levemente a string que configura a saída do GraphViz por meio de seu dicionário embutido. O dicionário tem graph, nodee point. Irritantemente, ele não possui shape(possui SHAPE, mas o GraphViz faz distinção entre maiúsculas e minúsculas), portanto, precisamos codificar esse caractere por caractere.

Aqui está a saída da entrada 21 (com uma ligeira modificação no programa para torná-lo em um formato que pode ser carregado no Stack Exchange):

gráfico completo com 21 pontos


fonte
0

PHP + HTML SVG, 316 263 bytes

Versão golfed com npontos codificados e sem nparâmetro de entrada :

<svg height="610" width="610"><?for($i=1;$i<33;$i++){$x[]=300*sin(2*M_PI/32*$i)+305;$y[]=300*cos(2*M_PI/32)+305;}foreach($x as$j=>$w){foreach($y as$k=>$z){echo'<line x1="'.$x[$j].'" y1="'.$y[$j].'" x2="'.$x[$k].'" y2="'.$y[$k].'" style="stroke:red;"/>';}}?></svg>

Versão golfada anterior com parâmetro de entrada para npontos, 316 bytes:

<svg height="610" width="610"><?$n=$_GET[n];$d=2*M_PI/$n;$r=300;$o=305;for($i=1;$i<=$n;$i++){$x[]=$r*sin($d*$i)+$o;$y[]=$r*cos($d*$i)+$o;}foreach($x as$j=>$w){foreach($y as$k=>$z){echo'<line x1="'.$x[$j].'" y1="'.$y[$j].'" x2="'.$x[$k].'" y2="'.$y[$k].'" style="stroke:rgba(0,0,0,.15);stroke-width:1;" />';}}?></svg>

Uso: salve em um arquivo e ligue no navegador: 

http://localhost/codegolf/circle.php?n=32

Versão ungolfed com parâmetro de entrada para npontos e CSS:

<style>
line {
    stroke: rgba(0,0,0,.15);
    stroke-width:1;
}
</style>
<svg height="610" width="610">
<?php
$n=$_GET[n]; // number of points
$d=2*M_PI/$n; // circle parts
$r=300; // circle radius
$o=305; // offset x,y
for ($i=1;$i<=$n;$i++){
    $x[]=$r*sin($d*$i)+$o; // store x,y coordinates in array
    $y[]=$r*cos($d*$i)+$o;
}
foreach($x as $j => $w){ // iterate all x,y points and connect to each other
    foreach($y as $k => $z) {
        echo '<line x1="'.$x[$j].'" y1="'.$y[$j].'" x2="'.$x[$k].'" y2="'.$y[$k].'" />'."\n";   
    }
}
?>
</svg>

Não foi possível anexar um snippet totalmente funcional de 32 pontos devido ao limite de 30k caracteres para uma única postagem. Aqui está uma captura de tela:

insira a descrição da imagem aqui

O snippet anexado é limitado a 18 pontos por causa do limite de postagem única de 30k.

Mostrar snippet de código

Mario
fonte
0

R, 108 bytes

plot(x<-cos(t<-seq(0,2*pi,l=21)),y<-sin(t),as=1);apply(expand.grid(1:21,1:21),1,function(e)lines(x[e],y[e]))

Poderia raspar 5 bytes se eu me livrasse do argumento ,as=1que força uma proporção de 1. Usa expand.gridpara criar uma matriz com todo o possível par de pontos e usa applypara fazer um loop através dela.

N = 21

Gráfico R +, 87 bytes

Outra solução usando o pacote igraph.

library(igraph);plot(make_full_graph(21),layout=cbind(cos(t<-seq(0,2*pi,l=21)),sin(t)))

N = 21

plannapus
fonte