একটি জটিল শক্তি গণনা করুন

Question

রুনডাউন

কোনও এক্সপুট এক্স এবং ওয়াই দেওয়া , একটি জটিল ক্রিয়াকলাপ সম্পাদন করুন, এবং এর সাথে সম্পর্কিত ফলাফল মুদ্রণ করুন।

আপনার প্রোগ্রামটি কীভাবে কাজ করা উচিত

1. Z = x + yi আকারে x এবং y একটি ইনপুট দেওয়া হয়েছে , z ^{i-z সন্ধান করুন}

2. Z ^i-z এর পরম আসল মান যদি নিখুঁত কাল্পনিক অংশের চেয়ে বড় হয় তবে আসল অংশটি মুদ্রণ করুন; অন্যদিকে প্রায় বিপরীতে। উভয় মান সমান হলে মানগুলির একটি মুদ্রণ করুন।

উদাহরণ

x: 2
y: 0

অতএব:

z = 2
z^(i-z) ~= 0.192309 + 0.159740i

যেহেতু আসল অংশটির কাল্পনিক অংশের চেয়ে বৃহত্তর পরম মান রয়েছে তাই প্রোগ্রামটি ফিরে আসে

0.192309

আরও উদাহরণ

z = 1+i >> 0.5
z = i >> 1
z = 0.5 >> 1.08787
z = -2+8i >> 2.22964E7
z = -10i >> 3.13112E7

Comments

প্রো-টিপ: বোনাস থেকে মুক্তি পান!

— স্টিভি গ্রিফিন

চ্যালেঞ্জগুলি লেখার সময় এড়ানোর বিষয়গুলি - কোড-গল্ফে বোনাস

— mbomb007

একটি জটিল শক্তিতে একটি জটিল সংখ্যা উত্থাপন বিরত এবং এটি ব্যবহৃত শাখা কাটা উপর নির্ভর করে। আপনি যে নির্দিষ্ট করতে পারেন? যদিও আমি অনুমান করি যে প্রত্যেকে অন্তর্নির্মিত গণিত ক্রিয়াকলাপগুলি ব্যবহার করবে এবং সম্ভবত তারা সবাই একই সম্মেলন ব্যবহার করবে use

— xnor

"বৃহত্তর" মানে সর্বাধিক মান বাছাই করার পরিবর্তে (সর্বাধিকরূপে কী ধরে নেওয়া হয়েছে) সর্বাধিক মান বাছাই করার অর্থ? এর জন্য একটি পরীক্ষার কেস -2+iব্যবহার করা যেতে পারে ( z^(i-z)=3-4iতাই 3>-4বনাম abs(-4)>abs(3))।

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

"পরম মান" স্পষ্টতা / পরিবর্তন বেশিরভাগ উত্তরকে বাতিল করে দিয়েছে।

— xnor

Answer 1

জেলি , 8 11 বাইট

নিয়ম পরিবর্তন সহ উত্তর আপডেট করার জন্য জনাথন অ্যালানকে ধন্যবাদ।

ı_*@µĊ,ḞAÞṪ

এটি অনলাইন চেষ্টা করুন!

ı_*@        z^(i-z)
    µ       new monadic link
     Ċ,Ḟ    pair real and imaginary parts
        AÞṪ sort by absolute value and take last value

Comments

এটি তৈরি করুন ı_*@µĊ,ḞAÞṪএবং আপনার একমাত্র বৈধ এন্ট্রি থাকতে পারে (পরম পদে সর্বাধিক মানের প্রয়োজন পরিবর্তনের ফলে, যেমন, পরিবর্তে -2+1jপ্রত্যাবর্তন )। -4.03.0

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

Answer 2

পাইথন 2, 45 বাইট

def f(z):z=z**(1j-z);print max(z.real,z.imag)

অনলাইনে এটি ব্যবহার করে দেখুন - সমস্ত পরীক্ষার ক্ষেত্রে

প্রোগ্রামিং ভাষা প্রায়শই এর jপরিবর্তে ব্যবহার করে i। পাইথনের ক্ষেত্রেও তাই। কেন আরও তথ্যের জন্য এই এসও প্রশ্নটি দেখুন ।

Answer 3

গণিত, 21 22 বাইট

সম্পাদনা: 3 বিটি বাঁচানোর জন্য জংহওয়ান মিনকে ধন্যবাদ

Max@ReIm[#^(I-#)]&

খাঁটি ফাংশন যা যুক্তি হিসাবে জটিল সংখ্যার প্রত্যাশা করে। যদি একটি সঠিক নম্বর পাস করা হয়, তবে একটি সঠিক সংখ্যা ফিরে আসবে (যেমন 1/2দেয় Sqrt[2] Cos[Log[2]])। পরম মানটি ব্যবহার করা উচিত তা নির্দিষ্ট করতে আমি আমার সমাধান পোস্ট করার পরে সমস্যাটি নির্দিষ্ট করা হয়েছিল। আমি যে MaximalBy[ReIm[#^(I-#)],Abs][[1]]&বা Last@MaximalBy[Abs]@ReIm[#^(I-#)]&উভয় 34বাইট জন্য সেরা সঙ্গে আসতে পারেন ।

Comments

Maxমাথা হওয়ার দরকার নেই। ইনপুট যত গভীর হয় তা বিবেচনা না করে সর্বাধিক মান প্রদান করে List(যেমন: Max[1, {2, {3}}]রিটার্ন 3)। এছাড়াও, প্রশ্নটি কেবলমাত্র নির্দিষ্ট করে যে আপনি মানগুলি মুদ্রণ করেন, তাই আমি মনে করি না যে আপনার প্রয়োজন হবে N: Max@ReIm[#^(I-#)]&কাজ করবে।

— জংহওয়ান মিন

Answer 4

অক্টাভা , 29 বাইট

@(z)max(real(z^(i-z)./[1 i]))

এটি একটি বেনামী ফাংশন সংজ্ঞায়িত করে। এটি ম্যাটল্যাবেও কাজ করে।

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

এলিমেন্ট-অনুসারে অ্যারের দ্বারা ./সংখ্যা বিভাজক করা এবং আসল অংশ নেওয়া এর বাস্তব এবং কাল্পনিক অংশগুলির সাথে একটি অ্যারে দেয় ।z^(i-z)[1 i]z^(i-z)

Answer 5

এমএটিএল , 10 বাইট

Jy-^&ZjhX>

এটি অনলাইন চেষ্টা করুন! বা সমস্ত পরীক্ষার কেস যাচাই করুন ।

ব্যাখ্যা

-2+8iউদাহরণ হিসাবে ইনপুট বিবেচনা করুন ।

J     % Push i (imaginary unit)
      % STACK: i
y     % Implicit input. Duplicate from below
      % STACK: -2+8i, i, -2+8i
-     % Subtract
      % STACK: -2+8i, 2-7i
^     % Power
      % STACK: 3168271.58+22296434.47i
&Zj   % Real and imaginary parts
      % STACK: 3168271.58, 22296434.47
h     % Concatenate
      % STACK: [3168271.58 22296434.47]
X>    % Maximum. Implicitly display
      % STACK: 22296434.47

Answer 6

টিআই-বেসিক, 40 , 32 , 31 29 বাইট

@ কনর ও'ব্রায়েনকে একটি বাইট ধন্যবাদ সংরক্ষণ করা হয়েছে

Z^(i-Z→A                   #Perform operation, store as A, 8 bytes
:real(A)>imag(A            #Test if real part is greater than imaginary, 9 bytes
:Ansreal(A)+imag(Anot(Ans  #Determine output and print, 12 bytes

চলকটিতে একটি জটিল সংখ্যা হিসাবে ইনপুট নেয় Z।

টিআই-বেসিক নিজস্ব এনকোডিং ব্যবহার করে, আপনি এটি এখানে খুঁজে পেতে পারেন ।

Answer 7

পাইথ, 16 বাইট

=b^Q-Q.j;eS,ebsb

Answer 8

পার্ল 6 , 24 বাইট

{($_**(i-$_)).reals.max}

$_সম্ভবত জটিল যুক্তি; $_ ** (i - $_)অভিব্যক্তি গণনা করা হয়; .realsএমন একটি Complexপদ্ধতি যা আসল এবং কল্পিত অংশগুলির একটি তালিকা ফেরত দেয়; এবং অবশেষে .maxদুটি বৃহত্তর ফিরে।

Answer 9

সি (জিসিসি), 93 79 + 4 ( -lm) = 97 83 বাইট

14 বাইট সংরক্ষিত হয়েছে @ সেলিংক্যাটকে ধন্যবাদ!

float f(_Complex z){z=cpow(z,csqrt(-1)-z);return cimag(z)>creal(z)?cimag(z):z;}

শিরোনাম সহ complex.h¯ \ _ (ツ) _ / than এর চেয়ে দীর্ঘ ¯

এটি অনলাইন চেষ্টা করুন!

Comments

কেন +4 বাইট? আমি 3 গণনা -, lএবং m।

— Rɪᴋᴇʀ

@Riker স্বাভাবিক কম্পাইল হচ্ছে gcc file.c -o exeস্থান:, তাই এই পতাকা 4 বাইট যোগ করা -, lএবং m। (কমপক্ষে কমপক্ষে এটি আমি সংকলনের সময় গণনা করে দেখছি))

— betseg

@ সেলিংক্যাট ওহ জানত না যে এটি সম্ভব ছিল। ধন্যবাদ!

— বেটসেক

54 বাইট

— সিলিংক্যাট

Answer 10

রুবি , 25 35 বাইট

সম্পাদনা : নতুন পরম মান নিয়ম মেনে চলার জন্য স্থির।

->z{(z**(1i-z)).rect.max_by(&:abs)}

এটি অনলাইন চেষ্টা করুন!

এটি একটি বেনামি ফাংশন তৈরি করে।

Answer 11

টিআই-বেসিক, 19 16 বাইট

Ans^(i-Ans
max(real(Ans),imag(Ans

real(এবং imag(দুটি বাইট টোকেন হয়।

চালিয়ে যান 5+3i:prgmNAME( 5+3iকৌতুকপূর্ণ NAMEহওয়া, প্রোগ্রামের নাম হওয়া।)

Answer 12

আর, 38 বাইট

pryr::f({z=z^(1i-z);max(Re(z),Im(z))})

বেনামে ফাংশন। একটি (সম্ভবত) জটিল সংখ্যা লাগে z, এটা নির্দিষ্ট ক্ষমতা লাগে, এবং তারপর ফেরৎ maxএর Reআওয়ামী লীগ ও Imaginary অংশ।

Answer 13

অ্যাক্সিয়াম, 60 বাইট

f(z:Complex Float):Float==(y:=z^(%i-z);max(real(y),imag(y)))

পরীক্ষার কোড এবং ফলাফল; আমি প্রশ্নের অন্যান্য পূর্ববর্তী সংস্করণ হিসাবে অনুসরণ করি ...

(28) -> [[k,f(k)] for k in [1+%i,%i,1,-2+8*%i,-10*%i]]
   (28)
   [[1.0 + %i,0.5], [%i,1.0], [1.0,1.0],
    [- 2.0 + 8.0 %i,22296434.4737098688 53],
    [- 10.0 %i,31311245.9804955291 66]]

Answer 14

সি # - 189 বাইট

double f(double x, double y){double r,t,m,c;r=Math.Sqrt(x*x+y*y);t=Math.Atan2(y,x);m=Math.Pow(r,-x)*Math.Exp(y*t-t);c=Math.Cos((1-y)*Math.Log(r)-t*x);return m*(2*c*c<1?Math.Sqrt(1-c*c):c);}

রিডেবল:

double f(double x, double y){
double r, t, m, c;
r = Math.Sqrt(x * x + y * y);
t = Math.Atan2(y, x);
m = Math.Pow(r, -x) * Math.Exp(y * t - t);
c = Math.Cos((1 - y) * Math.Log(r) - t * x);
return m * (2 * c * c < 1 ? Math.Sqrt(1 - c * c) : c); }

ব্যাখ্যা: কোনও জটিল লাইব্রেরি ব্যবহার না করার সিদ্ধান্ত নিয়েছে।

$$\begin{align} z & = x + iy \\ & = r e^{it} \\ z^{i-z} & = (re^{it})^{(-x +i(1-y))} \\ & = r^{-x} r^{i(1-y)} e^{-xit} e^{t(y-1)} \\ & = r^{-x} e^{t(y-1)} e^{i((1-y)\ln(r)-xt)} \text{ (as }r^i = e^{i\ln(r)}\text{)} \end{align}$$

এটি সমান হতে দিন $me^{ia}$ কোথায়

$$m = r^{-x} e^{t(y-1)}$$ $$a = (1-y)\ln(r)-xt$$

তারপর $\Re(z^{i-z})=m \cos a$ এবং $\Im(z^{i-z})=m \sin a$

সর্বোচ্চ পরম মান দ্বারা নির্ধারণ করা যেতে পারে $\cos a$ এবং $\sin a$ শর্তাবলী, এ সমান হচ্ছে $\frac{1}{\sqrt{2}}$ (তাই পরীক্ষা $2c^2 < 1$)।

উল্লিখিত হিসাবে, একটি জটিল কাফেরকে উত্থাপন কোনও নির্দিষ্ট শাখা কাটা বাছাইয়ের উপর নির্ভর করে (উদাঃ) $z = 1$ হতে পারে $e^{i\pi}$ অথবা $e^{3i\pi}$ - এই উত্থাপন $i$ একটি বাস্তব অংশ দেয় $e^{-\pi}$ অথবা $e^{-3\pi}$ যথাক্রমে) তবে আমি সবেমাত্র এর সম্মেলনটি ব্যবহার করেছি $t \in [0,2\pi)$ প্রশ্ন অনুযায়ী।

Answer 15

এপিএল (ডায়ালগ ইউনিকোড) , 18 বাইট

18 বাইট ( https://github.com/abrudz/SBCS/ )
28 বাইট (UTF-8)

একটি জটিল সংখ্যা আজব = এ + দ্বি

{⌈/9 11∘.○⍵*0j1-⍵}

এটি অনলাইন চেষ্টা করুন!