{VERSION 5 0 "SUN SPARC SOLARIS" "5.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 "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "with(LinearAlgebra): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 91 "read(\"/afs/eos.ncsu.ed u/users/k/kaltofen/www/courses/LinAlgebra/Maple/LsqPkg/InitPkg.mpl\"); " }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%(libnameG6$%jn/afs/eos.ncsu.edu/ users/k/kaltofen/www/courses/LinAlgebra/MapleGQB/afs/bp.ncsu.edu/dist/ maple70/lib6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(LsqP kg);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7#%-Gram_SchmidtG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "?QRDecomposition" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "v1:=<1,1,1,1>;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#v1G-%'RTABLEG6$\"'k-e-%'MATRIXG6#7&7#\"\"\"F-F-F-" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "v2:=<1,-2,1,0>;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#v2G-%'RTABLEG6$\"'Cqd-%'MATRIXG6#7&7#\"\" \"7#!\"#F-7#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "v3:=<0 ,0,0,1>;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#v3G-%'RTABLEG6$\"'opd-% 'MATRIXG6#7&7#\"\"!F-F-7#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "GramSchmidt([v1,v2,v3]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7% -%'RTABLEG6$\"'O=_-%'MATRIXG6#7&7#\"\"\"F,F,F,-F%6$\"'wj\")-F)6#7&F,7# !\"#F,7#\"\"!-F%6$\"(wqo\"-F)6#7&7##!\"\"\"\"%F>F>7##\"\"$FA" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "GramSchmidt([v1,v2,v3],norma lized);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%-%'RTABLEG6$\"()QQ=-%'MAT RIXG6#7&7##\"\"\"\"\"#F,F,F,-F%6$\"'G=p-F)6#7&7#,$*$-%%sqrtG6#\"\"'F.# F.F<7#,$F8#!\"\"\"\"$F67#\"\"!-F%6$\"(3?2#-F)6#7&7#,$*$-F:6#FBF.#FAF " 0 "" {MPLTEXT 1 0 14 "printlevel:= 3:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 16 "A := ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'RTABLEG6$\"'!ew'-%'MATRIXG6#7&7%\"\"\"F.\"\"!7 %F.!\"#F/F-7%F.F/F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "QRA: =QRDecomposition(A);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$QRAG6$-%'RT ABLEG6$\"'k/!*-%'MATRIXG6#7&7%#\"\"\"\"\"#,$*$-%%sqrtG6#\"\"'F0#F0F7,$ *$-F56#\"\"$F0#!\"\"F77%F/,$F3#F?F=F9F.7%F/\"\"!,$F:F/-F'6$\"'3B\"*-F+ 6#7%7%F1FDF/7%FDF3FD7%FDFDFE" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "QRA[1] . QRA[2];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'RTABLEG6$ \"(C1)>-%'MATRIXG6#7&7%\"\"\"F,\"\"!7%F,!\"#F-F+7%F,F-F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "Q := Gram_Schmidt(A, 'R');" }} {PARA 11 "" 1 "" {XPPMATH 20 "6$%&v[1]=G-%'RTABLEG6$\"'cXU-%'MATRIXG6# 7&7#\"\"\"F,F,F," }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%&u[1]=G-%'RTABLEG 6$\"'cXU-%'MATRIXG6#7&7#\"\"\"F,F,F," }}{PARA 11 "" 1 "" {XPPMATH 20 " 6$%.|gr|gru[1]|gr|gr^2~=~G\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%&v [2]=G-%'RTABLEG6$\"'76_-%'MATRIXG6#7&7#\"\"\"7#!\"#F,7#\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%&u[2]=G-%'RTABLEG6$\"(G(p9-%'MATRIXG6#7&7# \"\"\"7#!\"#F,7#\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%.=G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%.|gr|gru[2]|gr|gr^2~=~G\" \"'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%&v[3]=G-%'RTABLEG6$\"'o0_-%'MA TRIXG6#7&7#\"\"!F,F,7#\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%&u[3] =G-%'RTABLEG6$\"(wok$-%'MATRIXG6#7&7##!\"\"\"\"%F,F,7##\"\"$F/" }} {PARA 11 "" 1 "" {XPPMATH 20 "6$%.=G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%.=G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%.|gr|gru[3]|gr|gr^2~=~G#\"\"$\"\"%" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%\"QG-%'RTABLEG6$\"'+7*)-%'MATRIXG6#7&7%\"\"\"F.#!\" \"\"\"%7%F.!\"#F/F-7%F.\"\"!#\"\"$F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "R;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'RTABLEG6$\"'# >o)-%'MATRIXG6#7%7%\"\"\"\"\"!#F,\"\"%7%F-F,F-7%F-F-F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "Q . R;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'RTABLEG6$\"'k\\**-%'MATRIXG6#7&7%\"\"\"F,\"\"!7%F,!\"#F-F+7%F ,F-F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "rnd:=rand(-10..10) ;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$rndGf*6\"6#%\"tGF&F&C&>%&_seed G-%%iremG6$*&T#\"\"\"F+F1T%>8$F+?(F&F1F1T'%%trueGC$>F+F,>F4,&*&T)F1F4F 1F1F+F1,&-F-6$F4T+F1T-F1F&6#F+6.%\"aG%\"aG%\"pG%\"pG%(concatsG%(concat sG%\"sG%\"sG%(divisorG%(divisorG%'offsetG%'offsetG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "rnd();" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#! \"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "B := Matrix(6,6,(i,j )->rnd());" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"BG-%'RTABLEG6$\"(C\" f5-%'MATRIXG6#7(7(\"\"(\"\")\"#5!\"'!\")!\"&7(F.\"\"'F1\"\"!\"\"&!#57( \"\"\"F:!\"$F8F7!\"%7(F2!\"\"F8\"\"#\"\"$F>7(!\"*F/\"\"%F3F0!\"#7(F7F. F.!\"(FCF2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "QB:=Gram_Schm idt(B, 'RB');" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%&v[1]=G-%'RTABLEG6$ \"(3(47-%'MATRIXG6#7(7#\"\"(F,7#\"\"\"7#!\")7#!\"*7#\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%&u[1]=G-%'RTABLEG6$\"(3(47-%'MATRIXG6#7(7#\"\" (F,7#\"\"\"7#!\")7#!\"*7#\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%.|g r|gru[1]|gr|gr^2~=~G\"$p#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%&v[2]=G- %'RTABLEG6$\"(!=/7-%'MATRIXG6#7(7#\"\")7#\"\"'7#\"\"\"7#!\"\"F,7#\"\"( " }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%&u[2]=G-%'RTABLEG6$\"(;)o;-%'MATR IXG6#7(7##\"%i;\"$p#7##\"%C6F/7##\"$*>F/7##\"$\"HF/7##\"%#y#F/7##\"%L: F/" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%.=G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%.|gr|gru[2]|gr|gr^2~=~G#\"&NH&\"$p#" }} {PARA 11 "" 1 "" {XPPMATH 20 "6$%&v[3]=G-%'RTABLEG6$\"(C#*>\"-%'MATRIX G6#7(7#\"#57#!\"'7#!\"$7#!#57#\"\"%7#\"\"(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%&u[3]=G-%'RTABLEG6$\"(3Vu\"-%'MATRIXG6#7(7##\"&i0(\"&X w\"7##!'=)y&\"&NH&7##!'`,?F37##!'a?8F/7##\"''*R5F37##\"&$yNF/" }} {PARA 11 "" 1 "" {XPPMATH 20 "6$%.=G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%.=G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%.|gr|gru[3]|gr|gr^2~=~G#\")u#>8\"\"&NH&" }}{PARA 11 " " 1 "" {XPPMATH 20 "6$%&v[4]=G-%'RTABLEG6$\"(?3=\"-%'MATRIXG6#7(7#!\"' 7#\"\"!7#!#57#\"\"#7#!\"&7#!\"(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%&u [4]=G-%'RTABLEG6$\"(wW)=-%'MATRIXG6#7(7##\"(:H/\"\"(P'fc7##\")b+N8\"7##\"'+wtF/7##\"(`v&=F/7##!)hWV?F6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%.=G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%.=G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%.=G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%.|gr|gru[4]|gr|gr^2 ~=~G#\"+F$=e@\"\")u#>8\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%&v[5]=G-% 'RTABLEG6$\"(?FI\"-%'MATRIXG6#7(7#!\")7#\"\"&F.7#\"\"$7#\"#57#\"\"%" } }{PARA 11 "" 1 "" {XPPMATH 20 "6$%&u[5]=G-%'RTABLEG6$\"(S5Y\"-%'MATRIX G6#7(7##!+a@Z!)y\"+F$=e@\"7##\"+$f,Y&>F/7##!*n`pw#F/7##!+s+:R_F/7##\"+ t@ugAF/7##\"+bODQSF/" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%. =G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%.=G\"\"!" }} {PARA 11 "" 1 "" {XPPMATH 20 "6$%.=G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%.=G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%.|gr|gru[5]|gr|gr^2~=~G#\",'\\%HwW*\"+F$=e@\"" }} {PARA 11 "" 1 "" {XPPMATH 20 "6$%&v[6]=G-%'RTABLEG6$\"(7GK\"-%'MATRIXG 6#7(7#!\"&7#!#57#!\"%7#!\"\"7#!\"#7#!\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%&u[6]=G-%'RTABLEG6$\"(cAP$-%'MATRIXG6#7(7##\"+nP1B\\\",CO2>O#7# #\",l\\2cU#\",[s9Qs%7##\",dB%eEBF37##!+Ni5-p\"+1%oZ!f7##\",X(3p7LF37## !,Pgx96)F3" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%.=G\"\"!" } }{PARA 11 "" 1 "" {XPPMATH 20 "6$%.=G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%.=G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%.=G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6$%.=G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%.|gr|gru[6 ]|gr|gr^2~=~G#\"-p>C8l7\",CO2>O#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% #QBG-%'RTABLEG6$\"(3g9\"-%'MATRIXG6#7(7(\"\"(#\"%i;\"$p##\"&i0(\"&Xw\" #\"(:H/\"\"(P'fc#!+a@Z!)y\"+F$=e@\"#\"+nP1B\\\",CO2>O#7(F.#\"%C6F1#!'= )y&\"&NH&#\")b+NF:#\",l\\2cU#\",[s9Qs%7(\"\"\"#\"$*>F1#!' `,?FC#!*@<45\"\")u#>8\"#!*n`pw#F:#\",dB%eEBFJ7(!\")#\"$\"HF1#!'a?8F4# \"'+wtF7#!+s+:R_F:#!+Ni5-p\"+1%oZ!f7(!\"*#\"%#y#F1#\"''*R5FC#\"(`v&=F7 #\"+t@ugAF:#\",X(3p7LFJ7(\"\"&#\"%L:F1#\"&$yNF4#!)hWV?FS#\"+bODQSF:#!, Pgx96)FJ" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "map(evalf,QB); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'RTABLEG6$\"(o\"[7-%'MATRIXG6#7( 7($\"\"(\"\"!$\"+i'Q%yh!\"*$\"+\"))z*)*RF1$\"+*=CF%=!#5$!+5)>;['F1$\"+ \"QfV3#F67(F,$\"+i'Q%yTF1$!+e/X$4\"!\")$\"+^tdlIF1$\"+6Gk2;F1$\"+E*[[8 &F67($\"\"\"F.$\"+<&pxR(F6$!+2*36y$F1$!+A3/E(*F1$!+H`zvAF6$\"+-LAD\\F6 7($F@F.$\"+(Q%y\"3\"F1$!+EJ$R[(F1$\"+'zjKI\"F6$!+p`:4VF1$!+,Q!*o6F17($ F1F.$\"+V2?M5F@$\"+#4)fk>F1$\"+bi5#G$F6$\"+w2Wf=F1$\"+Q^u7qF67($\"\"&F .$\"+eZ)))p&F1$\"+E*Rz-#F1$!+!=!G0=F1$\"+6&G9K$F1$!+'eXrr\"F1" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "RB;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'RTABLEG6$\"(Sv?\"-%'MATRIXG6#7(7(\"\"\"#\"#q\"$p##\" $/\"F/#!#eF/#!$5\"F/#!$B\"F/7(\"\"!F,#\"&G#G\"&NH&#!&2?\"\"&Xw\"#\"&W \"GF<#!%$p(\"&(e57(F9F9F,#!(LBL\"\")u#>8\"#!(tuI&FH#\"(q)HC\"(P'fc7(F9 F9F9F,#!*ze!QV\"+F$=e@\"#\"*5p]P#FQ7(F9F9F9F9F,#!+.'=EJ&\",[s9Qs%7(F9F 9F9F9F9F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "QB . RB;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#-%'RTABLEG6$\"(;i2#-%'MATRIXG6#7(7(\" \"(\"\")\"#5!\"'!\")!\"&7(F,\"\"'F/\"\"!\"\"&!#57(\"\"\"F8!\"$F6F5!\"% 7(F0!\"\"F6\"\"#\"\"$F<7(!\"*F-\"\"%F1F.!\"#7(F5F,F,!\"(FAF0" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "24 0 0" 0 } {VIEWOPTS 1 1 0 2 1 1805 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 } {RTABLE_HANDLES 580264 577024 576968 521836 816376 1687076 1838388 691828 2072008 676580 900464 912308 1980624 424556 521112 1469728 520568 3646876 891200 868192 994964 1059124 1209708 1204180 1668816 1199224 1744308 1180820 1884476 1302720 1461040 1322812 3372256 1146008 1248168 1207540 2076216 }