{VERSION 5 0 "IBM INTEL NT" "5.0" }
{USTYLETAB {CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 1 }{CSTYLE "2D Input" 2 19 "" 0 1 255 0 0 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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "magic := proc (n) loca
l A, i, j, k, i1, j1, m, m1, m2, t; if not type(n,posint) then ERROR(`
tem de ser um numero inteiro`) end if; if n = 2 then ERROR(`tem de ser
 um valor superior a 2`) end if; A := linalg[matrix](n,n,0); if irem(n
,4) = 0 then k := 1; for i to n do for j to n do if iquo(irem(i,4),2) \+
= iquo(irem(j,4),2) then A[i,j] := n*n+1-k else A[i,j] := k end if; k \+
:= k+1 end do end do; RETURN(eval(A)) end if; if irem(n,2) = 0 then m \+
:= n/2 else m := n end if; i := 1; j := iquo(m+1,2); for k to m*m do A
[i,j] := k; if 1 < i then i1 := i-1 else i1 := m end if; if j < m then
 j1 := j+1 else j1 := 1 end if; if A[i1,j1] <> 0 then i1 := i+1; j1 :=
 j end if; i := i1; j := j1 end do; if irem(n,2) <> 0 then RETURN(eval
(A)) end if; t := m*m; for i to m do for j to m do A[i,j+m] := A[i,j]+
2*t; A[i+m,j] := A[i,j]+3*t; A[i+m,j+m] := A[i,j]+t end do end do; m1 \+
:= iquo(m-1,2); for j to m1 do for i to m do t := A[i,j]; A[i,j] := A[
m+i,j]; A[m+i,j] := t end do end do; m1 := iquo(m+1,2); m2 := m1+m; t \+
:= A[m1,1]; A[m1,1] := A[m2,1]; A[m2,1] := t; t := A[m1,m1]; A[m1,m1] \+
:= A[m2,m1]; A[m2,m1] := t; if n = 6 then RETURN(eval(A)) end if; for \+
j from n+1-iquo(m-3,2) to n do for i to m do t := A[i,j]; A[i,j] := A[
m+i,j]; A[m+i,j] := t end do end do; RETURN(eval(A)) end proc;" "6#>%&
magicGf*6#%\"nG7,%\"AG%\"iG%\"jG%\"kG%#i1G%#j1G%\"mG%#m1G%#m2G%\"tG6\"
F3C:@$4-%%typeG6$F'%'posintG-%&ERRORG6#%=tem~de~ser~um~numero~inteiroG
@$/F'\"\"#-F<6#%Atem~de~ser~um~valor~superior~a~2G>F)-&%'linalgG6#%'ma
trixG6%F'F'\"\"!@$/-%%iremG6$F'\"\"%FLC%>F,\"\"\"?(F*FUFUF'%%trueG?(F+
FUFUF'FWC$@%/-%%iquoG6$-FP6$F*FRFA-Fgn6$-FP6$F+FRFA>&F)6$F*F+,(*&F'FUF
'FUFUFUFUF,!\"\">&F)6$F*F+F,>F,,&F,FUFUFU-%'RETURNG6#-%%evalG6#F)@%/-F
P6$F'FAFL>F/*&F'FUFAFdo>F/F'>F*FU>F+-Fgn6$,&F/FUFUFUFA?(F,FUFU*&F/FUF/
FUFWC(>&F)6$F*F+F,@%2FUF*>F-,&F*FUFUFdo>F-F/@%2F+F/>F.,&F+FUFUFU>F.FU@
$0&F)6$F-F.FLC$>F-,&F*FUFUFU>F.F+>F*F->F+F.@$0-FP6$F'FAFL-F[p6#-F^p6#F
)>F2*&F/FUF/FU?(F*FUFUF/FW?(F+FUFUF/FWC%>&F)6$F*,&F+FUF/FU,&&F)6$F*F+F
U*&FAFUF2FUFU>&F)6$,&F*FUF/FUF+,&&F)6$F*F+FU*&\"\"$FUF2FUFU>&F)6$,&F*F
UF/FU,&F+FUF/FU,&&F)6$F*F+FUF2FU>F0-Fgn6$,&F/FUFUFdoFA?(F+FUFUF0FW?(F*
FUFUF/FWC%>F2&F)6$F*F+>&F)6$F*F+&F)6$,&F/FUF*FUF+>&F)6$,&F/FUF*FUF+F2>
F0-Fgn6$,&F/FUFUFUFA>F1,&F0FUF/FU>F2&F)6$F0FU>&F)6$F0FU&F)6$F1FU>&F)6$
F1FUF2>F2&F)6$F0F0>&F)6$F0F0&F)6$F1F0>&F)6$F1F0F2@$/F'\"\"'-F[p6#-F^p6
#F)?(F+,(F'FUFUFU-Fgn6$,&F/FUFctFdoFAFdoFUF'FW?(F*FUFUF/FWC%>F2&F)6$F*
F+>&F)6$F*F+&F)6$,&F/FUF*FUF+>&F)6$,&F/FUF*FUF+F2-F[p6#-F^p6#F)F3F3F3
" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "magic(3);
" "6#-%&magicG6#\"\"$" }}}}{MARK "2" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 
1 1 }{PAGENUMBERS 0 1 2 33 1 1 }