Виклик

За умови введення цілого числа, $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:

Bash + Gnuplot, 56 45 байт

(-11 байт завдяки Нойралефу!)

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()

n = 2,1

Математика, 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забезпечується через stdin. Результат для n = 1:

А для n = 2:

Excel VBA, 168 160 147 138 байт (комірки у вигляді пікселів у 100-кратній шкалі)

^{Збережено 8 байт завдяки KyleKanos.
Збережено 22 байти завдяки Тейлору Скотту}

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

МАТЛАБ, 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:

Зошит Юпітера та 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 + PGFPlots , 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

Діалог 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, я повинен розділити Y n^-3замість. Це еквівалентно 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

Безумовно

Повна Subрутинна версія. I / O не змінюється.

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 продовжує псувати вирівнювання ділянки, якщо я намагаюся безпосередньо вставити його, ось ось скріншот терміналу:

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

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