একটি গ্রাফ আঁকুন

Question

চ্যালেঞ্জ

একটি পূর্ণসংখ্যা একজন ইনপুট, প্রদত্ত (যেখানে ), আউটপুট গ্রাফ থেকে থেকে সমেত।$n$$0<n<50$$y=\mathrm{Re}((-n)^x)$$x = -3$$x = 3$

যেখানে number জটিল সংখ্যা আসল অংশ ।$\mathrm{Re}(p)$$p$

মনে রাখবেন যে$\mathrm{Re}((-n)^x) = n^x \cos{(\pi x)}$

আউটপুট

আউটপুটটি আপনার ইচ্ছামতো যে কোনও ফর্মের হতে পারে (যেমন কোনও চিত্র বা উইন্ডো ইত্যাদি)। এএসসিআইআই আর্ট অনুমোদিত নয়।

গ্রাফটিতে অক্ষ থাকতে হবে (বিল্ট-ইন গ্রাফিং ফাংশন ছাড়া ভাষাগুলি প্রতিযোগিতা করার অনুমতি দেবে)।

যদি কোনও চিত্র আউটপুট হয় তবে প্রতিটি পাশ অবশ্যই 500 পিক্সেলের বেশি হবে। একইভাবে, প্লটটি অবশ্যই ইমেজটিকে যথাসাধ্য পূরণ করতে হবে fill

প্লটের মধ্যে সর্বনিম্ন বিরতি 0.05।

ভেক্টর গ্রাফিক্স অনুমোদিত।

উদাহরণ

এর একটি ইনপুট জন্য 2:

এর একটি ইনপুট জন্য 1:

---

আপনার নিজের উত্তরগুলি অবশ্যই আপনার উত্তরে রেখে দিতে হবে (n = 1 এবং n = 2)।

জয়লাভ

বাইটের মধ্যে সংক্ষিপ্ততম কোডটি জয়ী।

Comments

ASCII art is disallowed.(ಥ﹏ಥ)

— অ্যালবার্ট

অক্ষগুলি গ্রাফের বাম এবং নীচের প্রান্তে থাকতে পারে? কেন্দ্রে পরিবর্তে?

— কৃতিমিক লিথোস

"যদি কোনও চিত্র আউটপুট হয় তবে প্রতিটি পাশ অবশ্যই 500 পিক্সেলের বেশি হবে" " ভেক্টর গ্রাফিক্স অনুমোদিত?

— মার্টিন এন্ডার

@ মার্টিন ইন্দ্রা হ্যাঁ, আমি মনে করি

— বিটা

কেন আমি ম্যাটল্যাব, এমএটিএল এবং ম্যাথমেটিকাকে প্রথম কয়েকটি উত্তর হিসাবে দেখে অবাক হই না। :)

— কেভিন ক্রুইজসেন

Answer 1

এমএটিএল, 22 18 16 বাইট

অতিরিক্ত -২ বাইটের জন্য লুইস মেন্ডোকে ধন্যবাদ!

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 এ চেষ্টা করুন

Answer 2

টিআই-বেসিক, 26 21 বাইট

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

এন = 2 এর আউটপুট:

Comments

আমি আপনার কোডে 47 টি অক্ষর গণনা করছি, 26 নয়

— কনরাড রুডল্ফ

@ কনরাড রুডল্ফ দেখুন: টিআই-বেসিক স্কোরিং গাইডলাইন।

— অ্যাডিসন

"যদি কোনও চিত্র আউটপুট হয় তবে প্রতিটি পাশ অবশ্যই 500 পিক্সেলের বেশি হবে" " মনে হচ্ছে না যে বিল্ট ইন গ্রাফিং ক্ষমতা এখানে কাজ করবে।

— ব্যবহারকারী 5090812

@ user5090812 "আউটপুটটি আপনি যে কোনও আকারে (যেমন কোনও চিত্র বা উইন্ডো ইত্যাদি) হতে পারে" - আমি গ্রাফ উইন্ডো দ্বারা আউটপুট আছি, কোনও চিত্র নয়, তাই এই বিধিনিষেধটি প্রযোজ্য নয়।

— টিমটেক

কে ভেবেছিল যে কোনও গ্রাফিং ক্যালকুলেটর জিনিসগুলি গ্রাফ করতে পারে!

— পাইরুলেজ

Answer 3

বাশ + জ্ঞানপ্লট, 56 45 বাইট

(-11 বাইট ধন্যবাদ নওরালেফকে!)

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

বর্তমান ওয়ার্কিং ডিরেক্টরিতে pngনামযুক্ত চিত্র হিসাবে ফলাফল গ্রাফ সংরক্ষণ করে A।

উদাহরণ আউটপুট

জন্য এন = 1 :

জন্য এন = 2 :

Comments

আমি প্রতিদিন ব্যবহার করি এমন ল্যাঙ্গেজ ব্যবহারের জন্য +1। (গল্ফ-ল্যাঙ্গেজের মতো কোনও "গার্ডার্ড বাইনারি ননসেন্স" নেই)। এটি দৈনন্দিন পরিস্থিতিতে পুনরায় ব্যবহার করা যেতে পারে।

— অলিভিয়ার ডুলাক

সংক্ষিপ্তসারগুলি ব্যবহার করে আপনি 11 বাইট সংরক্ষণ করতে পারেন:gnuplot -e "se t png;p[-3:3]real((-2)**x)">A

— নওরালেফ

@ নাইরালেফ ধন্যবাদ! :)

— আর কাপ,

Answer 4

ম্যাথপ্ল্লোব সহ পাইথন 3 , 103 72 বাইট

-12 গ্রন্থ DSM (ক মডিউল পাশাপাশি ইনস্টল করা ধন্যবাদ বাইট matplotlibবলা pylab- অদ্ভুত কিন্তু সত্য! "আরো মতলব মত একটি repl মধ্যে পাইথন উপার্জন" প্রয়োজনীয় বৈশিষ্ট্য সহ)
-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()

এন = 2,1

Comments

আপনি from matplotlib.pyplot import*যদি আইপাইথন --pylab --matplotlib পতাকাটি দিয়ে শুরু করেন তবে কি পরিত্রাণ পেতে পারেন ?

— আজাসজা

আইপিথন পেয়েছেন; এটা কি কাজ করে? আমার সন্দেহ হয় এটি যদি গ্রহণযোগ্য হয় তবে এটি নিজেকে জিজ্ঞাসা করা দরকার। আমার আইপিথন নেই এবং এটি ব্যবহার করার প্রয়োজন কখনও ছিল না।

— জোনাথন অ্যালান

হ্যাঁ,

— পাইবেলে

ডিসপ্লেটি কাজ করে কোনও কনফিগার ফাইলে অ-মানক কিছুই নেই, তাই না? আমি যদি না বলি তবে এটি এই উপলক্ষে আলাদা উত্তর হিসাবে পোস্ট করুন কারণ এটি আইএমও ভাষার পরিবর্তনের চতুর ব্যবহার। সম্পাদনা: আমি দেখতে পাচ্ছি যে আপনিও সেখানে গল্ফ করেছেন :)

— জোনাথন অ্যালান

হ্যাঁ, আমার মনে আছে %pylabআপনাকে পাশাপাশি আঙ্গুল দেয় এবং আপনি যদি কোনও নোটবুকে থাকেন তবে আপনাকে শেষে কোনও অনুষ্ঠানের দরকার নেই :)

— আজাসজা

Answer 5

গণিত, 41 বাইট

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

আউটপুটটি চ্যালেঞ্জের মতো দেখানো হয়েছে ঠিক যেমন নম্বরগুলির ফন্ট বাদে (যা আমি সন্দেহ করি যে ওল্ফ্রাম আলফা দিয়ে তৈরি হয়েছিল)।

Answer 6

ম্যাটল্যাব, 35 30 বাইট

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

এটি একটি স্বতন্ত্র ফাংশন সংজ্ঞায়িত করে। আকার পরিবর্তনযোগ্য ভেক্টর গ্রাফিক আউটপুট সহ একটি নতুন উইন্ডোর মাধ্যমে আউটপুট। ম্যাটল্যাব এর plotস্বয়ংক্রিয়ভাবে দীর্ঘ হিসাবে হিসাবে ওয়াই-স্থানাঙ্ক এর কাল্পনিক অংশ উপেক্ষা করে আপনার প্রদান সংশ্লিষ্ট এক্স-coordinates.The নিম্নলিখিত আউটপুট জন্য n=3।

Answer 7

আর, 30 বাইট

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

n = 1

n = 2

Comments

ওহ সুন্দর চেনাশোনাগুলি

— বিটা ডিকায়

@BetaDecay R’s default rendering is ugly. The rationale for the default is that unfilled circles don’t hide overplotted points as much as filled circles/dots would.

— Konrad Rudolph

I don't think it's ugly. It looks really cool.

— mbomb007

The x axis is labelled incorrectly. I think you need x=seq(-3,3,.05);plot(x,Re((0i-n)^x))

— user2390246

@ ব্যবহারকারী 2390246 প্রদত্ত অক্ষগুলি সম্পূর্ণরূপে alচ্ছিক, আমি মনে করি এটি গুরুত্বপূর্ণ নয়। অক্ষের লেবেলিংয়ের বিষয়টি যদি গুরুত্বপূর্ণ হয় তবে অন্যান্য উত্তরগুলিতেও স্কেলিংয়ের কারণে সমস্যা রয়েছে (উদাঃ 30-চর এমএটিএলবি উত্তর)।

— কনরাড রুডল্ফ

Answer 8

আর, 29 বাইট

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

nস্টিডিনের মাধ্যমে সরবরাহ করা হয়। এন = 1 এর ফলাফল:

এবং এন = 2 এর জন্য:

Comments

nঅন্যান্য উত্তরের মতো একটি ভেরিয়েবল ব্যবহার করবেন না এবং আপনার উত্তর থেকে পাঁচটি অক্ষর শেভ করবেন না কেন ? যাই হোক, পাগল উত্তর। আমি সবসময় ভুলে curve।

— কনরাড রুডল্ফ

ধন্যবাদ কনরাড রুডলফ আসলে অন্যান্য উত্তরগুলি পূর্বনির্ধারিত হয় না n। মাতলাব, ম্যাটল, টিআই-বেসিক এবং গণিতের উত্তরগুলি স্টিডিন হিসাবে ইনপুট নেয় (যতদূর আমি সেগুলি বুঝি), যখন পাইথন এবং ভিবিএ উত্তরগুলি একটি ফাংশন তৈরি করে। এমনকি যদি এটি অনুমোদিত হয় তবে এটি কেবল ব্যক্তিগত স্বাদের বিষয়: আমি কেবল ইনপুটের উপায় হিসাবে পূর্বনির্ধারিত পরিবর্তনগুলি পছন্দ করি না।

— প্লানাপাস

দুঃখিত সংশোধন: মতলব উত্তরগুলিও কার্যকারিতা সংজ্ঞায়িত করে।

— প্লানাপাস

ভাল। এই হল একটি কোড গলফ ...

— কনরাড রুডলফ

আমি পেডেন্টিক বা অন্য কিছু হতে চাইনি তবে বাস্তবে একটি সম্প্রদায় হিসাবে আমরা বিবেচনা করি যে পূর্বনির্ধারিত ভেরিয়েবল ব্যবহার করা বৈধ ইনপুট পদ্ধতি হিসাবে বিবেচিত হবে না যদি না অন্যথায় প্রশ্নে বর্ণিত হয়।

— প্ল্যানাপাস

Answer 9

এক্সেল ভিবিএ, 168 160 147 138 বাইট (100x স্কেল পিক্সেল হিসাবে ঘর)

^{8 টি বাইট সংরক্ষণ করে কাইলিকানোস
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পরিবর্তনশীল তাই আমরা একটি কার্যপত্রকের ফাংশন যেখানে এটি যেমন নির্ণয় করা আছে আছে বিদ্যমান।

এন = 1                                                                          এন = 2
     

---

আমি 193 বাইট এ একটি চার্ট সংস্করণ দিয়ে শুরু কিন্তু এটি করেনি , prettier ফলাফল পেতে।

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

এন = 1 এন = 2

Comments

(-n)^xহার্ডকডিং পাই এর পরিবর্তে ব্যবহার করা কি কম নয় ?

— বিটা ক্ষয়

@ বেটাডেকএ এটি যদি একসেল negativeণাত্মক অ-পূর্ণসংখ্যার raised gers _ (ツ) _ / to পর্যন্ত উত্পন্ন নেতিবাচক সংখ্যাগুলি পরিচালনা করতে পারে

— ইঞ্জিনিয়ার টোস্ট

atn(1)*4পাই এর জন্য ব্যবহার করা কি খাটো নয় ?

— কাইল কানোজ

@ কাইলক্যানোস প্রকৃতপক্ষে এটি ধন্যবাদ। আমি আমার কনস্ট্যান্টস অনুসন্ধানের টেবিলে সেই পরিচয়টি খুঁজে পাইনি এবং প্রকৌশলী হিসাবে, এখানেই আমাকে আইনীভাবে থামানো বাধ্য।

— ইঞ্জিনিয়ার টোস্ট

@ টেলরস্কট এই তিনটি নতুন কৌশল, ধন্যবাদ। তারা এবার আমাকে বাঁচিয়েছে এমন 7 বাইটের চেয়ে মূল্যবান।

— ইঞ্জিনিয়ার টোস্ট

Answer 10

ম্যাটল্যাব, 35 33 বাইট

@ ফ্লোয়ারকে ধন্যবাদ 2 বাইট অপসারণ করার জন্য!

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

এটি একটি বেনামী ফাংশন সংজ্ঞায়িত করে। এটিকে ইনপুট দিয়ে কল করতে 2, ব্যবহার করুন ans(2)(বা কোনও ভেরিয়েবলের জন্য ফাংশনটি নির্দিষ্ট করুন fএবং তারপরে ব্যবহার করুন f(2))।

আউটপুটটি ভেক্টর গ্রাফিক্স (আকার পরিবর্তনযোগ্য উইন্ডো)। এক্স অক্ষের নমুনা ব্যবধানটি ezplotফাংশন দ্বারা স্বয়ংক্রিয়ভাবে নির্ধারিত হয় তবে এটি যথেষ্ট পরিমাণে বেশি বলে মনে হয়।

STDERR এ একটি সতর্কতা তৈরি করা হয়েছে কারণ ezplot( @(x)real((-n)^x)) এ ফাংশনটি ভেক্টরাইজড নয়, তবে গ্রাফ উত্পন্ন হয়েছে।

উদাহরণস্বরূপ n = 2:

Comments

ezplot = la-z-plot: ডি (আমি

— এটির কথা

হাহ। কখনই জানত না যে আপনি এটি পছন্দ করতে ডোমেনটি পাস করতে ezplotপারেন। দুঃখজনকভাবে, একই জন্য বলা fplotযায় না, তাই কোনও বাইট সেখানে সংরক্ষণ করা যায় না।

— Sanchises

@ সানচাইজস আমিও জানতাম না :-) এটি স্বতঃস্ফূর্ত ধারণা ছিল

— লুইস মেন্ডো

Answer 11

জুপিটার নোটবুক এবং পাইথন 3; 53 বাইট

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

তিন জন বাইট সংরক্ষণ করেছেন @ জোনাথন অ্যালানকে ধন্যবাদ।

Comments

দুটি ছোট ছোট বিট: আমি যদি চশমাটি সঠিকভাবে পড়ে থাকি তবে আপনার (কার্যকর) পয়েন্টগুলির মধ্যে সর্বনিম্ন 0.05 (0.1 নয়) প্রয়োজন হবে এবং আমাদের 3 এর সমেত হতে হবে বলে মনে করছেন

— ডিএসএম

আপনি x=arange(-60,61)/20ডিএসএম দ্বারা হাইলাইট করা সমস্যাগুলি 2 বাইট ব্যয়ে ঠিক করতে ব্যবহার করতে পারেন । আপনি যদি যোগ 0jকরেন তবে arangeএটি plot(x,(-n)**x)4 টির সঞ্চয় হিসাবে পরিবর্তিত হতে পারে

— জোনাথন অ্যালান

@ ডিএসএম অপস, স্থির

— আজাসজা

@ জোনাথান অ্যালান ধন্যবাদ

— আজাসজা

আহ আমি আপনাকে মোট 2 টি বাঁচিয়েছি, আপনি কেবলমাত্র আমাকে 1 এ পরিবর্তন করে বাঁচিয়েছেন arange(121)!

— জোনাথন অ্যালান

Answer 12

এনক্যাপসুলেটেড পোস্টস্ক্রিপ্ট; 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

এখন যেহেতু এটি নিজেই একটি ভেক্টর চিত্র ...

Comments

ওহ এটি দুর্দান্ত

— বিটা ডিকায়

Answer 13

টিকজেড + পিজিএফপ্লটস , 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একটি পিডিএফ আউটপুট জন্য। সংকলনের সময়, ব্যবহারকারীকে অনুরোধ করা হয় n।

এন = 1 এবং এন = 2 এর জন্য নমুনা আউটপুট (পিএনজি রূপান্তরিত):

Answer 14

ম্যাথ.জেএস গ্রাফার , 20 বাইট

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

নিখুঁতভাবে, এই গ্রাফিং ইউটিলিটিটি হ'ল টিসি (বেশিরভাগ অংশে, অসীম লুপগুলি কেবল এটি ক্র্যাশ করে।

কিভাবে এটা কাজ করে

r(n)=একটি ফাংশন বরাদ্দ করে rযা nঅভিব্যক্তির পক্ষে যুক্তি নিয়ে যায় f(x)=re((-n)^x)। re((-n)^x)চিঠির জন্য চ্যালেঞ্জের বর্ণনার জন্য বেশ চিঠি। তবে এটি এতে ফাংশনটি বরাদ্দ করে f(x), যা গ্রাফার সুস্পষ্টভাবে একটি লাইন গ্রাফ হিসাবে আউটপুট করে।

কীভাবে এটি পরীক্ষা করা যায়

আপনি এই সাইটটি ব্যবহার করতে পারেন , সেখানে সেই ফাংশনটিকে ঘুষি মারুন, তারপরে এটিকে কল করুন r(input)।

আউটপুট

Answer 15

জে , 37 36 বাইট

দিকনির্দেশনার জন্য আমার সহকর্মী মার্শালকে ধন্যবাদ। -2 ফ্রাউনফ্রোগকে ধন্যবাদ।

বেনামে ট্যাসিট প্রিফিক্স ফাংশন।

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

Comments

আমার মনে হয় 20%~i:@60হতে পারে i:@3j120।

— ফ্রাউনফ্রগ

পুনঃটুইট ধন্যবাদ।

— অ্যাডম

Answer 16

ডায়ালগ এপিএল, 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$:

Answer 17

স্মাইলব্যাসিক, 82 বাইট

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

এন 1 এর চেয়ে কম হলেও গ্রাফ পুরো স্ক্রীনটি পূরণ করে।

যখন এন 1 এর চেয়ে বড় হয়, আপনি Y কে ভাগ করে 1-1 এর মধ্যে ভাগ করে এটি ভাগ করে নিতে পারেন n^3। আমি ইতিমধ্যে করছি n^x, এবং n^x / n^3সহজ করা যেতে পারে n^(x-3)। যাইহোক, এন যখন 1 এর কম হয় তখন আমাকে Y এর n^-3পরিবর্তে ভাগ করতে হবে। এটি সমান n^(x+3)।

আমি ব্যবহার n^(x-3*sign(n-1))করতে পারেন -3যদি n>1, এবং +3যদিn<1

ছবি শীঘ্রই আসছে

Answer 18

এক্সেল ভিবিএ, 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$

Answer 19

জুলিয়া 0.6 Plots.jl, 46 বাইট সহ with

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

এটি একটি জুলিয়া প্রতিনিধিত্ব প্রয়োজন!

এখানে গল্ফ করার মতো খুব বেশি কিছু নেই, (আব) বাদে ফাংশন সুনির্দিষ্টতার উপর বাইটগুলি বাঁচাতে অপারেটর ওভারলোডিং ব্যবহার 0im-nকরা এবং ইনপুট নম্বরটি জটিল করার জন্য যেখানে আমি সাধারণত ব্যবহার করতে পারি Complex(n)। এটি প্রয়োজনীয় কারণ জুলিয়াতে, ধরণের স্থিতিশীলতার কারণে ^অপারেটর কমপ্লেক্সের ফলাফলগুলি কেবল তখনই ইনপুটটি জটিল হয় returns সুতরাং এখানে আমরা এটি যোগ করে একটি জটিল সংখ্যা করা 0im। 0i।

Plots.jl প্যাকেজ সম্পর্কে একটি দুর্দান্ত জিনিস হ'ল আপনি কী প্লট করা প্যাকেজ ইনস্টল করেছেন এবং আপনি plotকমান্ডটি চালাচ্ছেন তার উপর ভিত্তি করে এটি স্বয়ংক্রিয়ভাবে ব্যাকএন্ডটি বেছে নেবে । উপরের প্লটটি জিআর ব্যাকএন্ডের সাহায্যে তৈরি করা হয়েছিল , তবে আমি যদি এটি ইনস্টল না করে থাকি (বা যদি আমি স্পষ্টরূপে plotly()এটির মতো করে একটি কমান্ড চালাতাম), তবে এটি আরও ইন্টারেক্টিভ প্লটলি ব্যাকএন্ড এবং আউটপুট ব্যবহার করত (যা দেখতে মনে হয়) ক্ষুদ্র বিট ভাল আইএমও):

ইউনিকোড অক্ষর এবং রঙের কোডগুলি ব্যবহার করে টার্মিনালে একটি প্লট (বা কোনও পাঠ্য ফাইলে সংরক্ষণ করতে) মুদ্রণ করতে এমনকি একটি ইউনিকোডপ্লটস ব্যাকএন্ড রয়েছে। এসই প্লট সারিবদ্ধতা জগাখিচু করে রাখে যদি আমি সরাসরি এটি আটকানোর চেষ্টা করি, সুতরাং এখানে একটি টার্মিনাল স্ক্রিনশট রয়েছে:

PS: বিকল্প সূত্র, $Re((−n)^x)=n^xcos(πx)$, একই দৈর্ঘ্যে আসে:

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

Comments

ডাং, এটি ব্রেইল চরিত্রগুলির কিছু চালাক (আব) ব্যবহার।

— জাকারি