Meydan okuma

Bir tam sayı girişi göz önüne alındığında, ( ), çıkış grafiği gelen için dahildir.0 < n < 50 y = R ' e ( ( - N ) X ) X = - 3 x = $n$$0<n<50$$y=\mathrm{Re}((-n)^x)$$x = -3$$x = 3$

Burada sayısının karmaşık kısmıdır .$\mathrm{Re}(p)$$p$

Not bu$\mathrm{Re}((-n)^x) = n^x \cos{(\pi x)}$

Çıktı

Çıktı istediğiniz herhangi bir biçimde olabilir (örneğin, bir görüntü veya bir pencere vb.). ASCII sanatına izin verilmiyor.

Grafiğin eksenlere sahip olması gerekmez (yerleşik grafik işlevi olmayan dillerin rekabet edebilmesi için).

Bir görüntü çıktıysa, her bir tarafın 500 pikselden uzun olması gerekir. Benzer şekilde, arsa görüntüyü elinden geldiğince doldurmalıdır.

Arsalar arasındaki minimum aralık 0,05'tir.

Vektör grafikleri izin verilir.

Örnekler

Bir giriş için 2:

Bir giriş için 1:

Karşılık gelen çıktıları cevabınıza koymalısınız (n = 1 ve n = 2).

Kazanan

Bayt cinsinden en kısa kod kazanır.

MATL, 22 18 16 bayt

Ek -2 bayt için @LuisMendo teşekkürler!

I_.01I3$:i_y^&XG


I_                       push 3 and negate         
  .01                    push 0.01
     I                   push 3  
      3$:                generate the list [-3,-2.99,-2.98,...,3]                        
         i_y^            calculate (-input)^(list)                 
             $XG         plot the first list against th real part of the second list

Matl.suever.net adresinde deneyin

TI-Basic, 26 21 bayt

~3→Xmin
3→Xmax
Prompt N
DrawF N^Xcos(πX

N = 2 için çıktı:

Bash + Gnuplot, 56 45 bayt

(Noiralef sayesinde -11 bayt!)

gnuplot -e "se t png;p[-3:3]real((-$1)**x)">A

Ortaya çıkan grafiği , geçerli çalışma dizininde pngadı verilen bir resim olarak kaydeder A.

Örnek Çıktılar

İçin n = 1 :

İçin n = 2 :

Matplotlib ile Python 3 , 103 72 bayt

-12 DSM (bir modül yanında yüklü olduğu sayesinde bayt matplotlibdenir pylab- garip ama gerçek! "Daha Matlab gibi bir repl içinde Python yapmak" gerekli işlevselliği ile)
(PyLab çok fazla numpy işlevi vardır!) -18 daha bir sonucu olarak
- Ajasja için 1 bayt sayesinde (değiştirilmesi arange(-60,61)/20+0jile arange(121)/20-3+0j)

from pylab import*
def f(n):x=arange(121)/20-3+0j;plot(x,(-n)**x);show()

n = 2,1

Mathematica, 41 bayt

Plot[Re[(-#)^x],{x,-3,3},PlotRange->All]&

Çıktı, sayıların yazı tipi (Wolfram Alpha ile oluşturulduğundan şüphelendiğim) haricinde tam olarak gösterildiği gibi görünüyor.

MATLAB, 35 30 bayt

x=-3:.01:3;@(n)plot(x,(-n).^x)

Bu, çok büyük bir işlevi tanımlar. Çıktı yeniden boyutlandırılabilir bir vektör grafik çıktısı olan yeni bir pencereden geçer. MATLAB'ler plot, karşılık gelen x koordinatlarını sağladığınız sürece y koordinatlarının hayali bölümünü otomatik olarak yoksayar. Aşağıdaki çıktı içindir n=3.

R, 30 bayt

plot(Re((0i-n)^seq(-3,3,.05)))

n = 1

n = 2

R, 29 bayt

curve(Re((0i-scan())^x),-3,3)

nstdin ile sağlanır. N = 1 için sonuç:

Ve n = 2 için:

Excel VBA, 168 160 147 138 Bayt (100x ölçeğinde piksel olarak hücreler)

^{KyleKanos sayesinde 8 bayt kurtarıldı Taylor Scott ile 22 bayt kurtardı}

Sub g(n)
For i=0To 1
For x=-3To 3Step.01
y=n^x*Cos([Pi()]*x)
m=IIf(y<m,y,m)
If i Then Cells(500*(1-y/m)+1,(x+3)*100+1)="#
Next x,i
End Sub

Biçimlendirilmiş, bu gibi görünüyor:

Sub g(n)
    For i = 0 To 1
    For x = -3 To 3 Step 0.01
        y = n ^ x * Cos([Pi()] * x)
        m = IIf(y < m, y, m)
        If i Then Cells(500 * (1 - y / m) + 1, (x + 3) * 100 + 1) = "#"
    Next x, i
End Sub

Ek bilgi: VBA yok yerleşik bir pideğişken bunu bir çalışma sayfası işlevi olarak değerlendirmek zorunda yapar mevcuttur.

n = 1                                                                          n = 2
     

Ben 193 bayt bir grafik sürümü ile başladı ama o did güzel sonuçlar alır.

Sub c(n)
For x=-3To 3Step 0.05
r=r+1
Cells(r,1)=n^x*Cos(Atn(1)*4*x)
Next
With ActiveSheet.Shapes.AddChart(xlLine).Chart
.SetSourceData Range("A1:A121")
.Axes(xlCategory).Delete
End With
End Sub

n = 1 n = 2

MATLAB, 35 33 bayt

2 baytı kaldırmak için @flawr için teşekkürler!

@(n)ezplot(@(x)real((-n)^x),-3:3)

Bu isimsiz bir işlevi tanımlar. Girdi ile çağırmak için 2, kullanın ans(2)(veya işlevi bir değişkene atayın fve sonra kullanın f(2)).

Çıktı vektör grafikleridir (yeniden boyutlandırılabilir pencere). X ekseni üzerindeki örnekleme aralığı ezplotfonksiyon tarafından otomatik olarak belirlenir , ancak fazlasıyla yeterli gibi görünüyor.

STDERR'de bir uyarı üretilir, çünkü ezplot( @(x)real((-n)^x)) öğesine iletilen işlev vektörleştirilmez, ancak grafik oluşturulur.

Örnek n = 2:

Jüpyter notebook ve Python 3; 53 bayt

%pylab
def f(n):x=arange(121)/20-3+0j;plot(x,(-n)**x)

@Jonathan Allan sayesinde üç bayt kurtarıldı.

Encapsulated PostScript; 232 bayt

%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 500 500
%%EndComments
/n 1 def .02 setlinewidth /f{dup dup n exch exp exch 180 mul cos mul 3 div}def
250 250 translate 80 80 scale newpath -3 f moveto -3 .05 3{f lineto}for stroke
%%EOF

Şimdi bu bir vektör görüntüsünün kendisi olduğu için ...

TikZ + PGFPlotlar , 175 bayt

\documentclass{standalone}\usepackage{tikz,pgfplots}\begin{document}\typein[\n]{}\tikz{\begin{axis}\addplot[domain=-3:3,samples=120]{\n^x*cos(180*x)};\end{axis}}\end{document}

Örneğin , latexmk -cd -f -pdf in.texpdf çıktısı için derleyin . Derleme sırasında, kullanıcıdan istenir n.

N = 1 ve n = 2 için örnek çıktılar (png'ye dönüştürülür):

Math.JS Grapher , 20 Bayt

r(n)=f(x)=re((-n)^x)

Tamamen şans eseri olarak, bu grafik aracı TC'dir (Çoğunlukla, Sonsuz döngüler sadece onu çarpıştırır.) Ve doğası gereği birincil çıktısı grafiklerdir.

Nasıl çalışır

r(n)=rargümanı nifadeye alan bir işlev atar f(x)=re((-n)^x). re((-n)^x)mektubun tanımı için mektup oldukça fazla. Ancak bu f(x), grapher'in örtük olarak çizgi grafiği olarak çıktığı işlevi atar .

Nasıl test

Bu siteyi kullanabilir , o işlevi oraya basabilir ve sonra arayabilirsiniz r(input).

Çıktı

J , 37 36 bayt

Meslektaşım Marshall'a rehberlik için teşekkür ederim. -2 FrownyFrog'a teşekkürler.

Anonim zımni önek işlevi.

-(]plot@;9 o.^)i:@3j120[load@'plot'

-(]plot@;9 o.^)i:@3j120[load@'plot'
                        load@'plot'       NB. load plotting library
               i:@3j120                   NB. -3...3 in 120 steps
-                                         NB. negate argument
 (           ^)                           NB. raise the negated value to those exponents
 (       9 o. )                           NB. real part
 (]     ;     )                           NB. pair with the exponents
 ( plot@      )                           NB. plot it

Dyalog APL, 41 bayt

⎕SE.UCMD∊'chart x(9○(-'⍞')*x←3-20÷⍨⍳121)'

Nasıl çalışır:

⎕SE.UCMD∊'chart x(9○(-'⍞')*x←3-20÷⍨⍳121)' ⍝ Main function
⎕SE.UCMD∊                                 ⍝ User Command (called from the session object)
         'chart                           ⍝ Plot a chart with arguments:
                 (           3-20÷⍨⍳121)' ⍝ Yields the list [-3, -2.95, -2.9,..., 2.9, 2.95, 3]
                           x←             ⍝ Assign that list to x
                          *               ⍝ and use it as exponent
                    (-'⍞')                ⍝ with (-input) as base
                  9○                      ⍝ discard the complex part; this generates Re((-n)^x)
                x                         ⍝ And x.

Kullanıcı komutu ]chart, bu durumda, iki vektör argüman alır, xve yve grafikler çizer:

$n=1$

$n=2$

SmileBASIC, 82 bayt

INPUT N
FOR I=0TO 399X=I/66.5-3GPSET I,120-POW(N,X-3*SGN(N-1))*COS(PI()*X)*120NEXT

N, 1'den küçük olsa bile, grafik tüm ekranı doldurur.

N, 1'den büyük olduğunda, Y'yi -1 ile 1 arasında olacak şekilde ölçeklendirerek ölçekleyebilirsiniz n^3. Ben zaten yapıyorum n^xve n^x / n^3basitleştirilebilir n^(x-3). Bununla birlikte, N, 1'den küçük olduğunda, n^-3bunun yerine Y'yi bölmek zorundayım . Bu eşdeğerdir n^(x+3).

Eğer kullanmak n^(x-3*sign(n-1))için kullanabilir ve eğer-3n>1+3n<1

Görüntüler yakında geliyor

Excel VBA, 133 bayt

Nesneden girdi alan [A1]ve Chartnesneyi çıktıran komut penceresi penceresi Sheet1.

[B:B]="=ROW()/20-3.05":[C:C]="=A$1^B1*Cos(Pi()*B1)":Set c=Sheet1.Shapes.AddChart(4).Chart:c.SetSourceData[C1:C121]:c.Axes(1).Delete

Ungolfed

Tam Subrutin versiyon. G / Ç değişmedi.

Sub b()
    [B:B] = "=ROW()/20-3.05"                ''  Define `x`-axis
    [C1:C121] = "=A$1^B1*Cos(Pi()*B1)"      ''  Define `y`-axis in terms of input from A1
    Set c = Sheet1.Shapes.AddChart(4).Chart ''  Add line plot to Sheet1 (xlLine)
    c.SetSourceData [C1:C121]               ''  Set `y` source to match `x` in [-3,3]
    c.Axes(1).Delete                        ''  Remove erroneous axes (xlCategory)
End Sub

Çıktı

$n=1$

$n=3$

Julia 0.6, Plots.jl ile 46 bayt arasında

using Plots
~n=plot(real((0im-n).^(-3:.05:3)))

Bunun Julia temsiline ihtiyacı vardı!

Ancak burada golf oynamak için çok fazla bir şey yoktur, (ab) işlev tanımında bayt tasarrufu 0im-nyapmak için operatör aşırı yükünü kullanmak ve genellikle kullanmış olduğum yerde giriş sayısını karmaşık yapmak için kullanmak dışında Complex(n). Bu gereklidir, çünkü Julia, tür kararlılığı nedeniyle, ^işleç yalnızca Girdi Karmaşık olduğu zaman Karmaşık sonuçları döndürür. Yani burada 0imyani ekleyerek karmaşık bir sayı yaparız . 0i.

Plots.jl paketi ile ilgili harika bir şey, hangi komplo paketlerini kurduğunuzu ve plotkomutu nereden çalıştırdığınızı temel alarak arka ucu otomatik olarak seçmesidir . Yukarıdaki arsa GR arka ucuyla yaratıldı , ancak eğer kurulmasaydı (ya da açıkça plotly()bunun için yaptığım gibi bir komutu koyarsam), daha etkileşimli Plotly arka ucunu kullanır ve çıktılardı (ki bu minik biraz daha güzel IMO):

Unicode karakterleri ve renk kodlarını kullanarak terminalde bir arsa yazdırmak (veya bir metin dosyasına kaydetmek) için bir UnicodePlots arka ucu bile vardır . SE, doğrudan yapıştırmayı denersem, arsa hizalamasını karıştırmaya devam ediyor, işte bir terminal ekran görüntüsü:

$Re((−n)^x)=n^xcos(πx)$

using Plots
~n=plot(n.^(x=-3:.05:3).*cospi(x))