Yıkık

Herhangi bir x ve y girdisi verildiğinde , karmaşık bir işlem gerçekleştirin ve karşılık gelen bir sonucu yazdırın.

Programınız nasıl çalışmalı

1. Z = x + yi biçiminde x ve y girdisi verildiğinde , z ^i- z'yi bulun

2. Z ^i-z'nin mutlak gerçek değeri mutlak hayali kısımdan büyükse, gerçek kısmı yazdırın; tersi tersi. Her iki değer de eşitse, değerlerden birini yazdırın.

Misal

x: 2
y: 0

Bu nedenle:

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

Gerçek kısım hayali kısımdan daha büyük bir mutlak değere sahip olduğundan, program geri döner

0.192309

Daha fazla örnek

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

Jöle , 8 11 bayt

Cevabı değiştirerek cevabı güncellediği için Johnathan Allan'a teşekkür ederiz.

ı_*@µĊ,ḞAÞṪ

Çevrimiçi deneyin!

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

Python 2, 45 bayt

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

Çevrimiçi deneyin - tüm test senaryoları

Programlama dilleri genellikle jyerine kullanılır i. Python'da durum böyledir. Nedeniyle ilgili daha fazla bilgi için bu SO sorusuna bakın .

Mathematica, 21 22 bayt

Edit: 3 btyes tasarrufu için JungHwan Min teşekkürler

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

Bağımsız değişken olarak karmaşık bir sayı bekleyen saf işlev. Kesin bir sayı geçilirse, kesin bir sayı döndürülür (örn. 1/2Verir Sqrt[2] Cos[Log[2]]). Mutlak değerin kullanılması gerektiğini belirtmek için çözümümü gönderdikten sonra sorun spesifikasyonu düzenlendi. Bunun için gelebileceğim en iyi şey, MaximalBy[ReIm[#^(I-#)],Abs][[1]]&ya da Last@MaximalBy[Abs]@ReIm[#^(I-#)]&her iki 34bayt.

Oktav , 29 bayt

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

Bu anonim bir işlevi tanımlar. MATLAB'de de çalışır.

Çevrimiçi deneyin!

açıklama

Element-wise ./sayısının z^(i-z)diziye bölünmesi [1 i]ve gerçek parçanın alınması, gerçek ve hayali parçalarının bulunduğu bir dizi verir z^(i-z).

MATL , 10 bayt

Jy-^&ZjhX>

Çevrimiçi deneyin! Veya tüm test senaryolarını doğrulayın .

açıklama

Girişi -2+8iörnek olarak ele alalım.

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

TI-BASIC, 40 , 32 , 31 29 bayt

@Conor O'Brien sayesinde bir bayt kaydetti

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

Girdiyi Zdeğişken üzerinde karmaşık bir sayı olarak alır .

TI-BASIC kendi kodlamasını kullanır, burada bulabilirsiniz .

Pyth, 16 Bayt

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

Perl 6 , 24 bayt

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

$_muhtemelen karmaşık bir argüman; $_ ** (i - $_)hesaplanacak ifadedir; gerçek ve hayali parçaların bir listesini döndüren .realsbir Complexyöntemdir; ve sonunda .maxikisinden daha büyük olanı döndürür.

C (GCC), 9379 + 4 ( -lm) = 97 83 bayt

@Ceilingcat sayesinde 14 bayt tasarruf edildi!

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

Üstbilgiyi complex.heklemek ¯ \ _ (ツ) _ / ¯ değerinden daha uzun

Çevrimiçi deneyin!

Yakut , 25 35 bayt

EDIT : Yeni mutlak değer kuralına uyması düzeltildi.

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

Çevrimiçi deneyin!

Bu anonim bir işlev oluşturur.

TI-Basic, 19 16 bayt

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

real(ve imag(iki baytlık simgelerdir.

Çalıştır 5+3i:prgmNAME( 5+3iargüman NAMEolarak, program adı olarak)

R, 38 bayt

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

Anonim işlev. Bir (muhtemelen) karmaşık sayı alır z, belirtilen gücü alır, ve daha sonra geri döner maxve ReAl ve Imaginary parça.

Aksiyom, 60 bayt

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

test kodu ve sonuçları; diğer emsal versiyonunu takip ediyorum ...

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

C # - 189 Bayt

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);}

Okunabilir:

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); }

Açıklama: Herhangi bir Karmaşık kitaplık kullanılmamasına karar verildi.

Bu eşit olsun $me^{ia}$ nerede

Sonra $\Re(z^{i-z})=m \cos a$ ve $\Im(z^{i-z})=m \sin a$

Maksimum mutlak değer, $\cos a$ ve $\sin a$ terimleri, bunların eşit olması $\frac{1}{\sqrt{2}}$ (dolayısıyla test $2c^2 < 1$).

Belirtildiği gibi, karmaşık bir üsse yükseltmek belirli bir dal kesiminin seçilmesine bağlıdır (ör. $z = 1$ olabilirdi $e^{i\pi}$ veya $e^{3i\pi}$ - bunu $i$ gerçek bir parçası verir $e^{-\pi}$ veya $e^{-3\pi}$ ancak, sırasıyla, sadece $t \in [0,2\pi)$ soru başına.

APL (Dyalog Unicode) , 18 bayt

18 bayt ( https://github.com/abrudz/SBCS/ )
28 bayt (UTF-8)

⍵ karmaşık bir sayıdır ajb = a + bi

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

Çevrimiçi deneyin!