Вызов

Учитывая ввод целого числа (где ), выведите график от до x = 3 включительно.$n$$0<n<50$$y=\mathrm{Re}((-n)^x)$$x = -3$$x = 3$

Где $\mathrm{Re}(p)$ - действительная часть комплексного числа $p$ .

Обратите внимание, что $\mathrm{Re}((-n)^x) = n^x \cos{(\pi x)}$

Выход

Вывод может быть в любой форме, которую вы пожелаете (например, изображение или окно и т. Д.). ASCII искусство запрещено.

Граф не должен иметь осей (чтобы позволить языкам без встроенных графических функций конкурировать).

Если изображение выводится, каждая его сторона должна быть длиннее 500 пикселей. Точно так же сюжет должен заполнить изображение как можно лучше.

Минимальный интервал между участками составляет 0,05.

Векторная графика разрешена.

Примеры

Для ввода 2:

Для ввода 1:

Вы должны указать соответствующие ответы в своем ответе (n = 1 и n = 2).

выигрыш

Самый короткий код в байтах побеждает.

MATL, 22 18 16 байт

Спасибо @LuisMendo за дополнительные -2 байта!

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

TI-Basic, 26 21 байт

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

Выход для N = 2:

Баш + Гнуплот, 56 45 байт

(-11 байт благодаря Noiralef!)

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

Сохраняет полученный график как pngизображение с именем Aв текущем рабочем каталоге.

Пример выходов

Для n = 1 :

Для n = 2 :

Python 3 с matplotlib , 103 72 байта

-12 байт благодаря DSM (модуль используется вместе matplotlibназывается pylabс необходимой функциональностью «что делает Python в РЕПЛ больше как Matlab» - странно, но это правда)
-18 скорее как результат (pylab имеет множество функций Numpy тоже!)
- 1 байт благодаря Ajasja (замена arange(-60,61)/20+0jна arange(121)/20-3+0j)

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

п = 2,1

Mathematica, 41 байт

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

Вывод выглядит точно так, как показано в задании, за исключением шрифта чисел (который, я подозреваю, был создан с помощью Wolfram Alpha).

MATLAB, 35 30 байт

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

Это определяет любую функцию. Вывод осуществляется через новое окно с выводом векторной графики с изменяемым размером. MATLAB plotавтоматически игнорирует мнимую часть y-координат, пока вы предоставляете соответствующие x-координаты. Следующий вывод предназначен для n=3.

R, 30 байт

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

n = 1

n = 2

R, 29 байт

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

nпредоставляется через стандартный ввод. Результат для n = 1:

И для n = 2:

Excel VBA, 168 160 147 138 байт (ячейки в пикселях в масштабе 100x)

^{Сохранено 8 байтов благодаря KyleKanos.
Сохранено 22 байта благодаря Taylor Scott.}

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

Отформатированный, это выглядит так:

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

Интересный факт: VBA не имеет встроенный piпеременный, мы должны оценить его как функцию рабочего листа , где он делает существует.

n = 1                                                                          n = 2
     

Я начал с версии диаграммы в 193 байта, но она получилась лучше.

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 байта

Спасибо fo @flawr за удаление 2 байтов!

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

Это определяет анонимную функцию. Чтобы вызвать его с помощью ввода 2, используйте ans(2)(или назначьте функцию переменной, например, а fзатем используйте f(2)).

Выход - векторная графика (окно с изменяемым размером). Интервал выборки по оси x определяется функцией автоматически ezplot, но, похоже, его более чем достаточно.

В STDERR выдается предупреждение, потому что функция, переданная ezplot( @(x)real((-n)^x)), не векторизована, но график сгенерирован.

Пример для n = 2:

Блокнот Jupyter и Python 3; 53 байта

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

Три байта сохранены благодаря @Jonathan Allan.

Инкапсулированный PostScript; 232 байта

%!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

Теперь, поскольку это само векторное изображение ...

TikZ + PGFPлот , 175 байтов

\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}

Скомпилируйте, например , latexmk -cd -f -pdf in.texдля вывода в формате PDF. Во время компиляции у пользователя запрашивается n.

Примеры выходных данных (преобразованы в png) для n = 1 и n = 2:

Math.JS Grapher , 20 байтов

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

По счастливой случайности, эта графическая утилита - TC (По большей части, бесконечные циклы просто сбивают ее.), И по своей природе ее основной вывод - графики.

Как это работает

r(n)=назначает функцию, rкоторая принимает аргумент nдля выражения f(x)=re((-n)^x).re((-n)^x)в значительной степени буква за буквой описание вызова. Но это назначает функцию f(x)для этого, которая графически неявно выводит как линейный график.

Как это проверить

Вы можете использовать этот сайт, пробить эту функцию там, а затем вызвать его сr(input) .

Выход

J , 37 36 байт

Спасибо моему коллеге Маршаллу за руководство. -2 спасибо FrownyFrog.

Функция анонимного молчаливого префикса.

-(]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 байт

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

Как это работает:

⎕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.

Команда пользователя ]chart, в данном случае, имеет два вектора аргументов, xа yи участки графиков:

Для $n=1$:

Для $n=2$:

SmileBASIC, 82 байта

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.

Когда N больше 1, вы можете масштабировать Y от -1 до 1, разделив его на n^3. Я уже делаю n^x, и n^x / n^3можно упростить до n^(x-3). Однако, когда N меньше 1, я должен n^-3вместо этого разделить Y на . Это эквивалентно n^(x+3).

Я могу использовать, n^(x-3*sign(n-1))чтобы использовать, -3если n>1и +3еслиn<1

Изображения скоро появятся

Excel VBA, 133 байта

Скрипт непосредственного окна, который принимает входные данные [A1]и выводит Chartобъект в 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

Полная Subрутинная версия. Ввод / вывод не изменяется.

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

Выход

Где вход, $n=1$

Где вход, $n=3$

Юлия 0,6 с Plots.jl, 46 байтов

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

Это нужно представление Юлии!

Здесь не много для игры в гольф, за исключением (ab) использования перегрузки оператора для сохранения байтов при определении функции и использования 0im-nдля усложнения входного числа, которое я обычно мог бы использовать Complex(n). Это необходимо, потому что в Julia, по соображениям стабильности типов , ^оператор возвращает результаты Complex только тогда, когда ввод сам по себе Complex. Так что здесь мы делаем его комплексным числом, добавляя 0imт.е. 0i.

Одна из замечательных особенностей пакета Plots.jl заключается в том, что он автоматически выбирает используемый бэкэнд в зависимости от того, какие пакеты печати вы установили и откуда запускаете plotкоманду. Вышеуказанный участок был создан с бэкэндом GR , но если бы я его не установил (или если бы я явно plotly()выполнил команду, как я сделал для этого), он использовал бы более интерактивный бэкэнд Plotly и вывел бы это (что выглядит как чуть-чуть приятнее ИМО)

Там даже есть бэкэнд UnicodePlots для печати графика в терминале (или сохранения в текстовом файле) с использованием символов Unicode и цветовых кодов. SE продолжает портить выравнивание графика, если я пытаюсь вставить его напрямую, так что вот снимок экрана терминала:

PS: альтернативная формула, $Re((−n)^x)=n^xcos(πx)$, выходит на ту же длину:

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