Bu papatya çiçeğine bir bakın:

Güzel değil mi? Peki ya bunun aslında bir çiçek olmadığını söyleseydim?

Bir çok çiçek (ayçiçeği, papatya, papatya ve diğerleri dahil) aslında bir çiçek başındaki çok küçük çiçeklerden (ayçiçeği üzerindeki siyah noktalar) oluşur. Bu minyatür çiçekler denir çiçeği ve onlar çok özel bir şekilde düzenlenmiştir.

Temel olarak, flor floretin bir çiçek başındaki konumu (kutupsal koordinatlarda):

c = 1 (137.508 derece = altın açı olduğunu unutmayın. Bu kesin hassasiyeti kullanmak zorunda değilsiniz.)

Bu, çiçeklerin Fermat's Spiral adlı bir spiralde oluşturulmasına neden olur. Çiçeklerin konumlandırılması da Fibonnaci sayıları ile bağlantılıdır, ancak bu başka bir zaman için bir hikayedir.

Yani, işte zorluk. Girdi olarak bir tamsayı n önüne alındığında, birinci n florets konumlarını hesaplamak ve bunları çizmek . Bu grafiksel çıktıdır , bu yüzden noktaları bir tür pencerede göstermenizi veya bazı ortak görüntü formatlarında STDOUT'a veya bir dosyaya veri olarak çıktısını almanızı istiyorum. Bunun dışında, bu zorluk oldukça basit olmalı. Bu var kod golf , böylece en kısa kod kazanır. GLHF!

Bir çıktının nasıl görünebileceğinin örnek bir resmi:

TI-BASIC, 34 bayt

TI-83 + / 84 + serisi hesap makineleri için.

Input N
2πe^(-2sinh⁻¹(.5→θstep
AnsN→θmax
"√(θ→r₁
Polar                      ;Displays polar mode graphs to graph screen
Dot                        ;Prevents lines from connecting points
DispGraph                  ;Displays graph screen

Bu, başlangıçtaki noktayı 0'ıncı nokta olarak kabul eder.

Bir baytlık sinh⁻¹(belirteç sayesinde, 2πe^(-2sinh⁻¹(.5altın açıyı radyan olarak almanın kısa bir yoludur. Bu e^(sinh⁻¹(.5altın oran olduğu gerçeğinden türemiştir .

İşte N = 50 için ekran görüntüleri.

(Evet, bu bir TI-84 + üzerindeki 96x64 monokrom ekran . Yeni renk hesap makinelerinin çözünürlüğü yükseltilmiş, ancak yine de bir iPhone'un piksellerini ancak 3.7% oranında alıyorlar.)

TRACEHer noktadan geçmek için tuşuna basın .

Python 2, 85 82 81 bayt

from pylab import*
for i in arange(0,input(),2.39996):polar(i,sqrt(i),'o')
show()

Marinus tarafından bir byte kısaltılır.

Altın açının radyan cinsinden kullanılması. 137.508 yerine kullanırsam bayt uzunluğu aynıdır, ancak bir şekilde iyi görünmüyor. Pylab kullanarak bir kutup grafiği oluşturur. 300 (eski sürüm için) giriş, 7000 (yeni sürüm için) giriş ise aşağıdadır. Bayt sayısını 77'ye düşürmek için açı 2.4'e kadar yuvarlak olabilir.

Izgarayı ve ekseni kaldırarak daha temiz bir görünüm üreten daha uzun bir sürüm:

from pylab import *
def florets(n):
    for i in arange(0, n, 2.39996):polar(i, sqrt(i), 'o')
    grid(0)#turn off grid
    xticks([])#turn off angle axis
    yticks([])#turn off radius axis
    show()

Farklı renklerin nedeni, her bir noktanın ayrı ayrı çizilmesi ve kendi veri seti olarak ele alınmasıdır. Eğer açılar ve yarıçaplar liste halinde geçildiyse, bunlar bir set olarak ele alınır ve bir renkte olurlar.

Blitz 2D / 3D , 102 bayt

(Bu sitede çok İLK EVER Blitz 2D / 3D cevap!)

Graphics 180,180
Origin 90,90
n=Input()
For i=1To n
t#=i*137.508
r#=Sqr(t)
Plot r*Cos(t),r*Sin(t)
Next

Bir girdi 50pencereyi doldurur. (Evet, yaparak iki baytı tıraş edebilirim Graphics 99,99, ama bu neredeyse görsel olarak ilginç veya kullanışlı değil.)

Güzel sürüm (ve daha güzel çıkar):

Graphics 400,400
Origin 200,200

n=Input("How many florets? ")

For i = 1 To n
    t# = i * 137.508
    r# = Sqr(t)

    Oval r*Cos(t)-3,r*Sin(t)-3,7,7,1
Next

WaitKey
End

Mathematica, 43 42 bayt

ListPolarPlot@Array[(2.39996#)^{1,.5}&,#]&

Bu bir tamsayı argümanı alan adsız bir fonksiyondur, örn.

^{Ekran görüntüsü daha eski bir sürüm kullanıyor, ancak çıktı aynı görünüyor.}

Mathematica aslında GoldenAngledaha doğru sonuçlar için yerleşik bir yapıya sahip , ancak daha uzun 2.39996.

MATLAB, 42 bayt

t=2.39996*(1:input(''));polar(t,t.^.5,'.')

Giriş numarasını alır, 1'den bu sayıya kadar bir aralık oluşturur.

Aralığı radyan cinsinden altın açıyla çarpar (kullanılan değer 137.508 derece ile 6 sf arasındaki gerçek değere daha yakındır).

Sonra basitçe çizer teta vs r noktalar kullanarak grafik kutupsal koordinatlarda. Burada 2000 puanla gösteriliyor

Biraz daha güzel görünen bir grafik (ızgara çizgileri yok) bu kod olacaktır:

t=2.39996*(1:input(''));[x,y]=pol2cart(t,t.^.5);plot(x,y,'.');axis equal

Buna rağmen bu 31 bayt pahasına. Yine burada 2000 puanla gösteriliyor

R, 58 55 54 bayt

x=2.39996*1:scan();plotrix::radial.plot(x^.5,x,rp="s")

Bu, plotrixpaketin kurulmasını gerektirir , ancak ad alanına açıkça başvurduğumuz için paketin içe aktarılması gerekmez.

Ungolfed:

# Read a number of STDIN
n <- scan()

x <- 2.39996*(1:n)

# The rp.type = "s" option specifies that we want to plot points rather
# than lines (the default)
plotrix::radial.plot(lengths = sqrt(x), radial.pos = x, rp.type = "s")

N = 1500 için örnek çıktı :

Plannapus sayesinde 3 bayt kurtarıldı!

R, 55 54 bayt

t=1:scan()*2.39996;r=t^.5;plot(r*cos(t),r*sin(t),as=1)

N = 1000 için sonuç şöyle:

Düzenleme: @AlexA sayesinde kısmi argüman eşleşmesini kullanarak ( asyerine asp) 1 bayt kaydedildi .!

R, 48 47 bayt

Bunun şu ana kadar diğer R çözümlerinden yeterince farklı olduğunu düşünüyorum. Bu, koordinatları oluşturmak için karmaşık vektörleri kullanır. t ve t'nin sqrt modülü ve argüman parametrelerine yerleştirilir ve x, y, gerçek ve hayali olandan alınır. @AlexA'ya teşekkürler. bayt için.

plot(complex(,,,t^.5,t<-1:scan()*2.39996),as=1)

Html + JavaScript 179

<canvas id=C></canvas><script>n=1500,C.width=C.height=400,T=C.getContext('2d');for(n=prompt(M=Math);n--;)r=M.sqrt(t=n*2.4)*9,T.fillRect(M.cos(t)*r+200,M.sin(t)*r+200,2,2)</script>

Jolf, 25 bayt

yG@@KyoΜzXDyOUH*Hm°yT'.}

(n = 5000 için çıktı)

Çevrimiçi deneyin. (Elde edilen sarmalın küçük olduğuna dikkat edin)

Jolf bu mücadeleden sonra yaratıldığından beri rekabet etmiyor. Bu, ISO-8859-7 ile kodlandığında 25 bayttır ve yazdırılamaz bir tane içerir (burada bir hexdump):

0000000: 7947 4096 404b 796f cc7a 5844 794f 5548  yG@.@Kyo.zXDyOUH
0000010: 2a48 6db0 7954 272e 7d                   *Hm.yT'.}

açıklama

yG@@KyoΜzXDyOUH*Hm°yT'.}
yG@@K                      goto (150,75) (center of the canvas)
     yo                    set current location as the origin
       MzX                 map over range 1...input
          D                start of function
           yO              goto polar coordinates ....
             UH            radius: square root of argument
               *Hm°        angle: argument times golden angle
                   yT'.    draw a dot there
                       }

Python 2,74 bayt

from pylab import*
i=arange(1,input(),2.39996)
polar(i,sqrt(i),'o')
show()

MATL , 20 bayt ( rakipsiz )

Rekabete aykırı olarak işaretlendi çünkü dil mücadeleyi iptal ediyor

:2.4*tX^wJ*Ze*'.'&XG

MATL Online'da deneyin !

Altın açı, 137.708deg = pi*(3-sqrt(5))rad = 2.39996...rad, rad olarak yaklaştırılır 2.4.

Aşağıdaki sürüm ( 25 bayt ) doublekayan nokta hassasiyetine kadar kesin değeri kullanır :

:YPI5X^-**tX^wJ*Ze*'.'&XG

MATL Online'da deneyin !

Tcl / Tk, 114

grid [canvas .c]
proc P n {time {incr i
.c cr o [lmap h {cos sin cos sin} {expr sqrt($i*2.4)*$h\($i*2.4)+99}]} $n}

Kullanım örneği:

P 1024

ve pencereyi çıkarır