Narysuj trójkąt Reuleaux!

27

Reulaux trójkąt jest kształt utworzony przez przecięcie się trzech kół, z których każdy przechodzi przez koła centruje innych. Bez względu na obrót szerokość trójkąta Reuleaux zawsze będzie równa promieniowi okręgów:

Z Wolfram MathWorld

Zdjęcie: Wolfram MathWorld

Napisz program, który przyjmuje szerokość rjako dane wejściowe i wyświetla trójkąt Reuleaux o tej szerokości (w pikselach).

Musisz wyświetlać kształt w izolacji, tzn. Wypełniony bryłą, nie gładzony i na wypełnionym bryłą tle.

- Wygrywa najkrótszy program w bajtach.

darrylyeo
źródło
1
Czy promień powinien rbyć wyrażony w pikselach, czy tylko w jakimś współczynniku skalowania?
Karl Napf,
@Karl Napf Pixels.
darrylyeo
Czy możemy przekazać cokolwiek do STDOUT, o ile narysujemy trójkąt Reuleaux poprawnie?
Erik the Outgolfer
@EriktheOutgolfer W porządku.
darrylyeo

Odpowiedzi:

21

JavaScript + HTML, 164 158 + 13 = 171 bajtów

w=+prompt(f=(x,y)=>x*x+y*y<w*w);C.width=C.height=w*2;for(y=-w;++y<w;)for(x=-w;++x<w;)f(x,y)&f(w-x,y)&f(w/2-x,y-w*.866)&&C.getContext`2d`.fillRect(x+w,y+w,1,1)
<canvas id=C>

Nie wiem, dlaczego tak chętnie odpowiadam na te wyzwania rysowania matematyki <canvas>...

ETHprodukcje
źródło
13

Love2D, 320 bajtów.

j=math.rad(60)i="increment"m=math s=m.sin C=m.cos g=love.graphics f="fill"S=g.stencil function love.draw()r=arg[2]c=function(x,y)return function()g.circle(f,x,y,r,r*4)end end X=r/2 Y=0 S(c(X,Y),i,1)S(c(X+C(j)*r,Y+s(j)*r),i,1,true)S(c(X-C(j)*r,Y+s(j)*r),i,1,true)g.setStencilTest("greater",2)g.rectangle(f,0,0,2*r,2*r)end

Prawdopodobnie nie jest to optymalne rozwiązanie, wykorzystuje szablony Love2D, ustawiając 3 koła i wypełniając je tam, gdzie się przecinają.

Zadzwoń za pomocą wiersza polecenia, np love tri.love 256

Przykładowy wynik

ATaco
źródło
5
To całkiem urocze
ATaco,
10

Python 2 , 111 bajtów

from turtle import*
r=input()
ht()
begin_fill()
c=circle
c(r,60)
seth(120)
c(r,60)
seth(240)
c(r,60)
end_fill()

przykładowy bieg

Jonathan Allan
źródło
9

Mathematica 101 100 98 bajtów

Przyjmując inne podejście niż @MichaelSeifert i prawdopodobnie interpretując to nieco bardziej dosłownie w odniesieniu do klauzuli pikselowej:

Image@Boole@Table[And@@(({x,y}∈#~Disk~2)&/@{{0,c=√3},d={1,0},-d}),{x,-1,1,2/#},{y,c-2,c,2/#}]&

Przykład użycia:

%@10

10 pikseli Obraz 10 pikseli

50 pikseli Obraz 50 pikseli

100 pikseli Obraz 100 pikseli

Zapisano bajt dzięki @MartinEnder (notacja infix) i kolejne 2 bajty, definiując d.

Kelly Lowder
źródło
6

PHP + SVG, 165 bajtów

<?$h=3/8*$w=2*$d=2*$r=$_GET[0];$q=$r+sqrt($r**2-($r/2)**2);echo"<svg width=$w height=$w><path d='M$r,$r A$r,$r 0 0 1 $d,$r A$r,$r 0 0 1 $h,$q A$r,$r 0 0 1 $r,$r'/>";

Przykładowe dane wyjściowe dla wejścia 128

<svg width=512 height=512><path d='M128,128 A128,128 0 0 1 256,128 A128,128 0 0 1 192,238.85125168441 A128,128 0 0 1 128,128'/>

Jörg Hülsermann
źródło
6

PostScript, 96 86 85 75 73 72 bajty

dup(^@^^Z<^@Z<){sin mul exch dup}forall
0 1 2{newpath 369 arc clip}for fill

Pobiera dane wejściowe jako wartość na stosie. ^^i ^@reprezentują dosłowne znaki kontrolne. (^@^^Z<^@Z<)to ciąg znaków o punktach kodowych odpowiednio 0, 30, 90, 60, 0, 90 i 60. Są one następnie interpretowane jako kąty w stopniach, ponieważ oczywiście do tego służą punkty kodowe.

Zapisano 10 bajtów, ponieważ closepathnie jest potrzebne (oba clipi fillniejawnie zamykają ścieżkę).

Zapisano 1 bajt, używając repeatzamiast definiować funkcję.

Zaoszczędzono 10 bajtów, przechodząc na zupełnie inne podejście.

Zaoszczędzono 2 bajty, wykonując sztuczki ze stosem.

Zapisano 1 bajt, używając 0 1 2{}forzamiast 3{}repeat.

Ponury
źródło
5

Mathematica, 134 131 bajtów

Uwaga rozwiązanie to nie jest już ważny, ponieważ kwestia później edytowane wymagają R być mierzony w pikselach. Dzięki Martinowi Enderowi za pomoc w wygoleniu kilku bajtów w komentarzach.

r=Input[];RegionPlot[And@@((Abs[y+I x-#]^2<3r^2)&/@Table[Exp[2n I/3Pi]r,{n,3}]),{x,-1,1},{y,-1,1},Frame->False,BoundaryStyle->None]

wprowadź opis zdjęcia tutaj

Aby ten kod działał, wartość wejściowa musi być skalowana między 0 a 1. Zauważ, że prawie jedna czwarta tego kodu jest wymagana do wyświetlenia kształtu „w izolacji”, ponieważ nie jest to ustawienie domyślne Mathematica.

Michael Seifert
źródło
3
Witamy w PPCG! r Exp[2 I Pi n/3]można Exp[2I n/3Pi]rzaoszczędzić trochę miejsca. I to zazwyczaj krócej napisać nienazwany funkcję, tj upuść r=Input[];, wymienić rz #i dołączania &.
Martin Ender,
Myślę, że wejściem muszą być piksele, a nie współczynnik skalowania.
internet_user
1
@pycoder: Tak, to ograniczenie zostało edytowane po opublikowaniu mojego rozwiązania.
Michael Seifert,
4

BBC BASIC, 58 bajtów

I.r:L.r,r,r,r:F.i=0TO9S.PI/1.5PLOT177,r*COS(i),r*SIN(i)N.

Pobierz tłumacza na http://www.bbcbasic.co.uk/bbcwin/download.html

Nie golfił

INPUTr                       :REM input a radius
LINEr,r,r,r                  :REM draw a line of length 0 from r,r to r,r to establish a cursor history away from the corner of the screen
FORi=0 TO 9 STEP PI/1.5      :REM in steps of 120 degrees (going round and round the three sides of an equilateral triangle)
  PLOT177,r*COS(i),r*SIN(i)  :REM move relative by r*COS(i),r*SIN(i) and draw a sector with arc between new and last graphics cursor positions,
NEXT                         :REM with the centre of the arc at the penultimate graphics cursor position.
Level River St
źródło
Wow, to praktycznie wbudowane!
Neil
4

TeX / TikZ, 128 121 112 bajtów

\input tikz\footline{}\tikz\draw[draw=none,fill=red](0,1)\foreach~ in{1,2,3}{[rotate=~*120]arc(0:60:\r pt)};\bye

Kod jest na podstawie tej odpowiedzi na TeX.se .

TeX jest oparty na wektorze, więc nie robi pikseli. Promień to liczba zmiennoprzecinkowa z maksimum około 15, zanim dotrze do krawędzi strony. Nie jest tak naprawdę zbudowany dla wprowadzania z wiersza poleceń, więc należy go uruchomić jako

pdftex  "\def\r{2} \input rt.tex"

gdzie powyższy kod jest zapisany w rt.tex

Chris H.
źródło
Kilka wskazówek, jak to skrócić: nie potrzebujesz żadnej nowej linii; nie potrzebujesz .tex; \footline{}jest tak dobry jak \nopagenumbers; użyj ~jako nazwy zmiennej zamiast \i. Aby spełnić wymóg „piksela”, możesz użyć \r sp; 1sp jest swego rodzaju ekwiwalentem piksela dla TeXa, ponieważ jest to najlepsza lokalizacja, jaką może zarządzać TeX (choć nie wiem, czy dotyczy to tikz).
Gilles „SO- przestań być zły”
@Gilles Nic nie mogę uzyskać, spale myślę, że ptto dobry pomysł. Wszystkie inne pomysły zadziałały (niektóre wydawały się nie w moich testach). Dziękuję
Chris H
Możesz usunąć miejsce po, ~aby zapisać jeszcze jeden bajt. \input tikz\footline{}\tikz\draw[draw=none,fill=red](0,1)\foreach~in{1,2,3}{[rotate=~*120]arc(0:60:\r sp)};\byepracuje dla mnie. Spróbuj pdftex "\def\r{2000000} \input rt.tex"- przy 2sp znalezienie kształtu byłoby trudne, biorąc pod uwagę jego niewielki rozmiar.
Gilles „SO- przestań być zły”
@Gilles Muszę przyznać, że poszedłem tylko do 20000 sp.
Chris H
1
1 punkt = 65536sp, więc 20000sp jest wciąż małe.
Gilles „SO- przestań być zły”
3

GLSL, 298 229 znaków

precision lowp float;
uniform vec2 resolution;float r=100.;void main(){vec2 p=gl_FragCoord.xy-resolution.xy/2.;float h=sqrt(3.)/4.*r;gl_FragColor=vec4(length(p+vec2(r/2.,h))<r&&length(p+vec2(-r/2.,h))<r&&length(p-vec2(0.,h))<r);}

Wypróbuj tutaj

Premia

  • Promień można ustawić, zmieniając rzmienną
  • Szerokość trójkąta jest wyrażona w pikselach zgodnie z żądaniem (musisz ustawić powiększenie na 1x w piaskownicy GLSL).
tigrou
źródło
Czy GLSL ma standardową metodę wprowadzania danych, której można użyć?
darrylyeo
W glslsandbox można uzyskać pozycję kursora myszy. Można to wykorzystać do sterowania promieniem trójkąta (np. Promień byłby odległością myszy od środka).
tigrou
2

JavaScript (ES6) + HTML, 196 + 13 = 209 bajtów

Stosuje podejście oparte na ścieżce zamiast podejścia wypełniania pikseli.

r=>{c.width=c.height=r*2
with(Math)with(c.getContext`2d`)scale(e=r*.578,e),beginPath(a=s=>s*PI/3),moveTo(2,1),[2,4,6].map(s=>arcTo(cos(i=a(s-1))+1,sin(i)+1,cos(j=a(s))+1,sin(j)+1,sqrt(3))),fill()}

<canvas id=c>

darrylyeo
źródło
2

Logo, 53 bajty

to t :r filled 0[repeat 3[arc 60 :r fd :r rt 120]]end

używa filledpolecenia do wypełnienia kształtu kolorem 0 (czarny.) Kod w zewnętrznych nawiasach kwadratowych jest wykonywany bez narysowania żadnej linii, ale Logo śledzi ruchy żółwia i wypełnia kształt po wyjściu z nawiasu.

Logo, 64 61 bajtów

to t :r repeat 3[pd arc 60 :r pu fd :r rt 120]fd 9 fill end

Pióro w dół, narysuj łuk 60 stopni z żółwiem na środku, Pióro w górę, przesuń pióro do początku łuku, obróć o 120 stopni

Powtórz 3 razy, a następnie przejdź do kształtu i wypełnij go.

Spróbuj na http://turtleacademy.com/playground/en

Zadzwoń jak cs ht t 100(wyczyść ekran, ukryj żółwia, tprzy r = 100).

Level River St
źródło
2

MATL , 35 bajtów

9Bo&ZQ*3X^/G_G&:t!J*+8L&!-|G<A&e0YG

To tworzy plik o nazwie image.png. W przypadku danych wejściowych rrozmiar obrazu wynosi 2*r+1, a szerokość trójkąta jest zgodna z rwymaganiami.

Wypróbuj w MATL Online! Tłumacz online automatycznie otwiera utworzony plik i wyświetla obraz z dowolnym skalowaniem; kliknij na nią, aby uzyskać wersję w rzeczywistym rozmiarze.

Alternatywnie, oto dwa przykładowe dane wyjściowe kompilatora offline działającego na Matlabie, z danymi wejściowymi 50i 100. Ostatnia część kodu 0YGzostała zastąpiona przez, IYGdzięki czemu cyfra jest wyświetlana bezpośrednio (w odpowiednim rozmiarze) zamiast zapisywana w pliku.

wprowadź opis zdjęcia tutaj

Wyjaśnienie

9B      % Push 9 in binary: [1 0 0 1] with logical values
o       % Convert to double
&ZQ     % Roots of polynomial with coefficients [1 0 0 1], as a 3×1 column vector
*       % Multiply by implicit input r
3X^/    % Divide by sqrt(3). This gives a 3×1 vector with the circle centers
G_G&:   % Push row vector [-r -r+1 ... r-1 r], with size 1×(2*r+1)
t!J*    % Duplicate, transpose, multiply by 1j
+       % Add with broadcast. This gives a (2*r+1)×(2*r+1) 2D-array of complex
        % numbers, which defines the pixel grid
8L      % Push [3 1 2]
&!      % Permute dimensions as indicated. This gives a 1×(2*r+1)×(2*r+1) 3D-array
-|      % Subtract with broadcast. Absolute value. This gives a 3×(2*r+1)×(2*r+1)
        % 3D-array with the distance from each circle center to each grid point
G<      % Less than r? Gives a 3×(2*r+1)×(2*r+1) 3D-array containing true or false
A       % All: this gives a 1×(2*r+1)×(2*r+1) array containing true for
        % columns of the original 3D-array that contained all true values
&e      % Squeeze the first singleton dimension to give a (2*r+1)×(2*r+1) 2D-array
0YG     % Save as image file with default file name
Luis Mendo
źródło
2

JavaScript (ES6) + SVG (HTML5), 28 + 102 = 130 bajtów

f=
n=>s.setAttribute('width',n)
<input type=number value=82 oninput=f(this.value)><br>
<svg id=s width=82 viewbox=0,0,82,82><path d=M0,71a82,82,0,0,0,82,0A82,82,0,0,0,41,0A82,82,0,0,0,0,71>

Liczba bajtów wyklucza kod potrzebny do wygodnego wprowadzania danych przez użytkownika o pożądanym rozmiarze.

Neil
źródło
Sprytny! n=>s.style.width=ndziałałby również.
darrylyeo
Nie mogę się domyślić, w jaki sposób doszedłeś do 112 bajtów.
darrylyeo
@darrylyeo Ta sugestia nie działała dla mnie, przepraszam, ale zgadzam się co do liczby bajtów, nie mogę również dowiedzieć się, jak do niej doszedłem.
Neil
Hmm, prawdopodobnie działa tylko w Chrome.
darrylyeo
1

MetaPost ( 242 226 bajtów)

outputtemplate:="%j-%c.ps";
prologues:=1
beginfig(1);
 len:=1cm;
 path p[];
 p[1]:=len * dir -30 {dir 90} .. len * dir  90;
 p[2]:=p[1] rotated 120;
 p[3]:=p[1] rotated 240;
 fill p[1] -- p[2] -- p[3] -- cycle;
endfig;
end.

Możliwe, że można to nieco zmniejszyć, jestem nowy w metapost.

Carel
źródło
Byłem trochę leniwy i użyłem liczby bajtów edytorów tekstu. Nie wiedziałem, że możesz usunąć dwukropki, dzięki. Mam dosłownie godzinę MetaPost pod pasem teraz ^ _ ^
Carel
1
Wciąż liczę 223, a nie 226. Czy możesz też usunąć spacje len * diri kropkę na końcu?
Rɪᴋᴇʀ
1

k, 141 100 98 bajtów

s:*/2#;l:2*r:.:0:`
`0:(,"P1")," "/'$(,l,l),&/{(s'n+x)</:(s r)-s'y+n:r-!l}./:r*%(0 0;4 0;1 3)%4
\\

Dane wejściowe są pobierane stdin, dane wyjściowe mają format stderr(lub w stdinzależności od interpretera) pgm. Na przykład:

Przykład działania programu.

Wyjaśnienie:

s:*/2#               /set s to a squaring function
r:.:0:`              /get user input, set to r
l:2*                 /width/height is 2 times r
r*%(0 0;4 0;1 3)%4   /the coordinates of circle centers
{ }./:               /for each coordinate pair (x, y) get a circle
                     /function to get a circle:
n:r-!l               /  set n to {r, r-1, ..., -(r-1)}
(s'n+x)</:(s r)-s'y+ /  use b^2<r^2-a^2 on all points to get a circle
                     /  where x and y shift the circle right and down
&/                   /get intersections of circles (fold binary and)
(,l,l),              /prepend height and width for PGM format
" "/'$               /convert to string, add spaces
(,"P1"),             /prepend PGM header
`0:                  /output to stderr
\\                   /exit
zgrep
źródło
0

05AB1E , 66 bajtów

’)
¨€(ÿ,60)
lt(60’Ð’€š éà £Ø*
ht()
ï…_œã(ÿÿÿ)
„–_œã()
„ˆ 1:ht()’.e

Nie można użyć TIO, ponieważ otwiera okno i rysuje tam trójkąt Reuleaux.

Pyta o dane wejściowe, a następnie otwiera okno żółwia Python rysujące trójkąt.

Odpowiedź Jonathana Allana dała mi inspirację do zrobienia tego, chociaż nieco zmieniłem jego kod.

Zasadniczo jest to połączenie możliwości kompresji 05AB1E i łatwości Pythona w grafice żółwia.

Erik the Outgolfer
źródło
0

OpenSCAD , 91 bajtów

module t(r){intersection_for(t=[0,120,240]){rotate(t)translate([r/sqrt(3),0,0])circle(r);}}

Nie jestem pewien, jak to koszerne, ponieważ piksele nie są tak naprawdę dobrze zdefiniowaną jednostką w żadnym znanym mi formacie siatki. Zamiast tego moduł trysuje trójkąt reuleaux o danym promieniu rwe wszystkich używanych jednostkach natywnych.

Przykładowe wyniki podglądu dla t(100): t (100)

Julian Wolf
źródło
0

SmileBASIC, 87 86 85 83 82 81 79 78 77 76 75 bajtów

INPUT R
C.5Y=R*.87C 1C.GPAINT.,0DEF C X
A=X*240GCIRCLE R*X,Y+2,R,A-60,A
END

Nie golfowany:

INPUT RADIUS
CIRCLE 0.5
Y=RADIUS*(SQR(3)/2)
CIRCLE 1
CIRCLE 0
GPAINT 0,0
DEF CIRCLE X
 ANGLE=X*240
 GCIRCLE RADIUS*X,Y+2,RADIUS,ANGLE-60,ANGLE
END
12Me21
źródło