pierwiastki liczb zespolonych w mathematica

Mathematica, Matlab, Statistica, LaTeX i wszelkiego rodzaju oprogramowanie przydatne matematykowi w pracy. Miejsca w sieci poświęcone zagadnieniu.
july04
Użytkownik
Użytkownik
Posty: 94
Rejestracja: 18 cze 2018, o 21:12
Płeć: Mężczyzna
Lokalizacja: Polska
Podziękował: 12 razy
Pomógł: 1 raz

pierwiastki liczb zespolonych w mathematica

Post autor: july04 »

Jak narysować pierwiastki liczb zespolonych w Mathematica? Stworzyłem krótki kod do obliczania pierwiastków z użyciem wzoru de Moivre’a

Kod: Zaznacz cały

Program[] :=Block[{},
z=Input["podaj liczbę zespoloną pierwiastki której chcesz obliczyć"];
n=Input["podaj jakiego stopnia pierwiastek chcesz obliczyć"];
kat=Arg[z];
zmd=Sqrt[Re[z]^2+Im[z]^2];
y=(zmd)^(1/n)*(Cos[(kat+2*x*Pi)/n]+I*Sin[(kat+2*x*Pi)/n]);
If[Im[z]!=0,For[x=0,x<=n-1,x++, Print[x," pierwiastek liczby zespolonej wynosi ", Simplify[y]]],Print["pierwiastek liczby naturalnej wynosi ",Re[z]^(1/n)]
]]
Program[]
Chciałbym dodać do tego rysunek.
Ostatnio zmieniony 26 sty 2023, o 23:38 przez Jan Kraszewski, łącznie zmieniany 1 raz.
Powód: Poprawa wiadomości.
Awatar użytkownika
Janusz Tracz
Użytkownik
Użytkownik
Posty: 4054
Rejestracja: 13 sie 2016, o 15:01
Płeć: Mężczyzna
Lokalizacja: hrubielowo
Podziękował: 79 razy
Pomógł: 1389 razy

Re: pierwiastki liczb zespolonych w mathematica

Post autor: Janusz Tracz »

Kod: Zaznacz cały

Clear["Global`*"];
Program[] := Block[{},
  z = Input["podaj liczbę zespoloną pierwiastki której chcesz obliczyć"];
  n = Input["podaj jakiego stopnia pierwiastek chcesz obliczyć"];
  Print[ComplexListPlot[x /. Solve[x^n == z, x] // N]]; 
  ]
Program[]
july04
Użytkownik
Użytkownik
Posty: 94
Rejestracja: 18 cze 2018, o 21:12
Płeć: Mężczyzna
Lokalizacja: Polska
Podziękował: 12 razy
Pomógł: 1 raz

Re: pierwiastki liczb zespolonych w mathematica

Post autor: july04 »

Niestety kod nie działa

Dodano po 2 godzinach 16 sekundach:
Dziękuję serdecznie za pomoc- wszystko działa :)
ODPOWIEDZ