{VERSION 3 0 "IBM INTEL NT" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {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 -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 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 357 "# EJEMPLO PROGRAMAC ION:\ndeterminante_por_polinomiocaracteristico:=proc(A::matrix)\nlocal determinante, polinomio;\ndescription \"Calcula el determinante y el \+ polinomio caracteristico de una matriz,\ny los multiplica\";\n# option s trace;\ndeterminante:=linalg[det](A);\npolinomio:=linalg[charpoly](A ,x);\nprint(\"El resultado es\");\nRETURN(determinante*polinomio);\nen d:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 66 "determinante_por_poli nomiocaracteristico(linalg[randmatrix](4,4));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q0El~resultado~es6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #,,*$)%\"xG\"\"%\"\"\"!(R!4;*$)F&\"\"$F(!*%355D*$)F&\"\"#F(\",[\\V)=5F &\"-IYG#Gc)\".@N]1!*e#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "2 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }