{VERSION 6 0 "IBM INTEL LINUX" "6.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 
0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 
0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 16 "Komplekse r\370dder" }}
{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 19 "Vi vil fi
nde z, n\345r" }}{PARA 0 "" 0 "" {TEXT -1 7 "z^n = a" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 21 "a:=2^4*exp(4*I*Pi/6);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%\"aG,&\"\")!\"\"*&^#F&\"\"\"\"\"$#F*\"\"#F*" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "n:=4;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"nG\"\"%" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 16 "Rad
ius og vinkel" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "r:=sqrt(Re
(a)^2 + Im(a)^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"rG\"#;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "v:=argument(a);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%\"vG,$*(\"\"#\"\"\"\"\"$!\"\"%#PiGF(F(" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 25 "Formel fra formelsamling:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "z:=p-> r^(1/n) * exp(I * (v/
n + 2*p/n * Pi));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"zGf*6#%\"pG6
\"6$%)operatorG%&arrowGF(*&)%\"rG*&\"\"\"F0%\"nG!\"\"F0-%$expG6#*&,&*&
%\"vGF0F1F2F0**\"\"#F09$F0F1F2%#PiGF0F0F0^#F0F0F0F(F(F(" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 20 "Pol\346r, og a+bi form:" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 26 "seq(polar(z(p)),p=0..n-1);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6&-%&polarG6$*$)\"#;#\"\"\"\"\"%F*,$*&\"\"'!\"\"%#
PiGF*F*-F$6$F&,$*(\"\"#F*\"\"$F/F0F*F*-F$6$F&,$*(\"\"&F*F.F/F0F*F/-F$6
$F&,$*&F6F/F0F*F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "seq(z(
p),p=0..n-1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&*&)\"#;#\"\"\"\"\"%F'
,&*&\"\"#!\"\"\"\"$#F'F+F'^#F.F'F'*&F$F',&#F'F+F,*&F/F'F-F.F'F'*&F$F',
&*&F+F,F-F.F,^##F,F+F'F'*&F$F',&F.F'*&F7F'F-F.F'F'" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 39 "ptlist:=[seq(simplify(z(p)),p=0..n-1)];" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'ptlistG7&,&*$\"\"$#\"\"\"\"\"#F*^#F
*F*,&F*!\"\"*&F(F)F,F*F*,&F'F.^#F.F*,&F*F**&F1F*F(F)F*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "plots[arrow](map(p->[[0,0],[Re(p),I
m(p)]],ptlist));" }}{PARA 13 "" 1 "" {GLPLOT2D 471 471 471 {PLOTDATA 
2 "6*-%)POLYGONSG6%7&7$$\"+++++D!#6$!+?q7IVF*7$$!+++++DF*$\"+?q7IVF*7$
$\"+Y1kg8!\"*$\"+-F,L%)!#57$$\"+Y1k59F5$\"+)H()pc(F87%7$$\"+Y1kN8F5$\"
+/a-m))F87$$\"+330K<F5$\"\"\"\"\"!7$$\"+Y1kN9F5$\"+'fuR8(F8-%&STYLEG6#
%,PATCHNOGRIDG-%'CURVESG6#7*F'F-F2F?FDFJF9F'-F$6%7&7$F0F(7$F+F.7$$!+-F
,L%)F8F37$$!+)H()pc(F8F:7%7$$!+/a-m))F8F@7$$!\"\"FIFE7$$!+'fuR8(F8FKFO
-FT6#7*FZFenFfnF]oF`oFcoFinFZ-F$6%7&F-F'7$$!+Y1kg8F5Fgn7$$!+Y1k59F5Fjn
7%7$$!+Y1kN8F5F^o7$$!+330K<F5Fao7$$!+Y1kN9F5FdoFO-FT6#7*F-F'F\\pFcpFfp
FipF_pF--F$6%7&FenFZ7$F6F]p7$F<F`p7%7$FBFdp7$FGFgp7$FMFjpFO-FT6#7*FenF
ZFbqFeqFfqFgqFcqFen" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 
45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curve 4" "Curve 5" "Curve
 6" "Curve 7" "Curve 8" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "14 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }