Matematyka.pl

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

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