チャレンジ

整数の入力、所定の（）、出力のグラフからの以下です。0 < n < 50 y = R e（（− n ）x）x = − 3 x = $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：

パイソン3とmatplotlibの、103の 72バイト

-12 DSM（モジュールが一緒にインストールされているおかげバイトmatplotlibと呼ばれるpylab「よりMatlabのようなREPLでのPythonを作る」必要な機能を！ -奇妙な、しかし、真の）
-18より、結果として（pylabはあまりにも多くのnumpyの機能を持っています！）
- （置換Ajasjaに1つのバイトのおかげ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

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は、対応するx座標を指定している限り、y座標の虚数部を自動的に無視します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スケールのピクセルとしてのセル）

^{KyleKanosのおかげで8バイトを節約しましたTaylor Scottのおかげで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

MATLAB、35 33バイト

2バイトを削除してくれた@flawrに感謝します！

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

これは、匿名関数を定義します。input 2で呼び出すには、を使用しますans(2)（または関数をなどの変数に割り当ててからfを使用しますf(2)）。

出力はベクターグラフィックス（サイズ変更可能なウィンドウ）です。x軸のサンプリング間隔はezplot関数によって自動的に決定されますが、十分すぎるようです。

ezplot（@(x)real((-n)^x)）に渡された関数はベクトル化されないため、STDERRで警告が生成されますが、グラフは生成されます。

例n = 2：

JupyterノートブックとPython 3。53バイト

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

@Jonathan Allanのおかげで3バイト節約されました。

カプセル化された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.texpdf出力用にコンパイルします。コンパイル中に、ユーザーはの入力を求められnます。

n = 1およびn = 2のサンプル出力（pngに変換）

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この場合、ユーザーコマンドは2つのベクトル引数を取ります。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の範囲で除算することでYをスケーリングできますn^3。私はすでにやっていてn^x、n^x / n^3に簡略化できますn^(x-3)。ただし、Nが1未満の場合、n^-3代わりにYを除算する必要があります。これはと同等n^(x+3)です。

if とif n^(x-3*sign(n-1))を使用することができます-3n>1+3n<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$

Julia 0.6、Plots.jl、46バイト

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

これにはジュリア表現が必要でした！

ただし、（ab）演算子のオーバーロードを使用して関数定義のバイトを節約し、0im-n通常使用する可能性のある入力番号を複雑にするために使用することを除いて、ここでゴルフをすることはあまりありませんComplex(n)。ジュリアでは、型安定性の理由で^、入力が複素数の場合にのみ演算子が複素数の結果を返すため、これが必要です。したがって、ここでは、0im ieます。0i。

Plots.jlパッケージの優れた点の1つは、インストールしたプロットパッケージとplotコマンドの実行元に基づいて、使用するバックエンドを自動的に選択することです。上記のプロットはGRバックエンドで作成されましたが、それをインストールしていない場合（またはplotly()、このために明示的にコマンドを実行した場合）、よりインタラクティブなPlotlyバックエンドを使用して、これを出力します（これは少しいいIMO）：

Unicode文字とカラーコードを使用して端末でプロットを印刷（またはテキストファイルに保存）するためのUnicodePlotsバックエンドもあります。ただし、直接貼り付けようとすると、SEはプロットの配置を乱し続けます。そのため、ここに端末のスクリーンショットを示します。

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

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