{VERSION 5 0 "IBM INTEL NT" "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 }
{CSTYLE "" -1 256 "" 1 24 0 0 0 0 0 1 0 0 0 0 0 0 0 1 }{PSTYLE "Normal
" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 
1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Heading 1" -1 3 1 {CSTYLE "" -1 
-1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 6 6 1 0 1 0 2 2 
0 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 
1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Out
put" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 
1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "
" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 
2 2 0 1 }{PSTYLE "Normal" -1 256 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 
0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT 256 18 "Espaces euclidiens" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }}{PARA 7 "" 1 "" {TEXT -1 
80 "Warning, the protected names norm and trace have been redefined an
d unprotected\n" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 10 "Exercice 1" }
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "int((cos(t)-(a*t+b))^2,t=0.
.Pi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,,*(%\"aG\"\"\"%\"bGF&)%#PiG
\"\"#F&F&*&#F&F*F&F)F&F&*&\"\"%F&F%F&F&*(#F&\"\"$F&)F%F*F&)F)F1F&F&*&)
F'F*F&F)F&F&" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 109 "Une premi\350re \+
version brutale... Maple utilise une m\351thode que vous comprendrez u
n peu plus tard (fin d'ann\351e)" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 12 "minimize(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*&
\"\"\"F%*$)%#PiG\"\"$F%!\"\"!#[*&#F%\"\"#F%F(F%F%" }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 54 "Reprenons cela dans l'esprit des espaces euclidien
s..." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "scal:=(f,g)->int(f*
g,t=0..Pi):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 69 "Attention, f et g \+
ne sont pas des fonctions mais des expressions en t" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 59 "solve(\{scal(cos(t)-a0*t-b0,1)=0,scal(cos
(t)-a0*t-b0,t)=0\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<$/%#a0G,$*&\"
\"\"F(*$)%#PiG\"\"$F(!\"\"!#C/%#b0G,$*&F(F(*$)F+\"\"#F(F-\"#7" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "a0;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#%#a0G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "ass
ign(%%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "a0;" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#,$*&\"\"\"F%*$)%#PiG\"\"$F%!\"\"!#C" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "int((cos(t)-(a0*t+b0))^2,t=0..Pi);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&,&!#'*\"\"\"*$)%#PiG\"\"%F'F'F
'F*!\"$#F'\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "expand(%
);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*&\"\"\"F%*$)%#PiG\"\"$F%!\"\"
!#[*&#F%\"\"#F%F(F%F%" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 2 "OK" }}}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 198 "ortho_norm:=proc(e,scal)\nl
ocal n,f,i,k:\nn:=nops(e):f:=e:\nfor k to n do\n  for i to k-1 do\n   \+
  f[k]:=evalm(f[k]-scal(e[k],f[i])*f[i]);\n  od; f[k]:=evalm(f[k]/sqrt
(scal(f[k],f[k]))) od:\nRETURN(f) end:" }}}{SECT 0 {PARA 3 "" 0 "" 
{TEXT -1 10 "Exercice 2" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "f
1:=vector([1,1,1]):f2:=vector([1,-1,1]):f3:=vector([1,0,0]):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "dotprod(f1,f2),dotprod(f1,f3),dotpr
od(f2,f3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"\"\"F#F#" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "n:=ortho_norm([f1,f2,f3],dotprod);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG7%-%'vectorG6#7%,$*$-%%sqrtG
6#\"\"$\"\"\"#F0F/F*F*-F'6#7%,$*$-F-6#\"\"'F0#F0F9,$F6#!\"\"F/F5-F'6#7
%,$*$-F-6#\"\"#F0#F0FE\"\"!,$FB#F=FE" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 55 "matrix([seq([seq(dotprod(n[i],n[j]),j=1..3)],i=1..3)]
);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7%7%\"\"\"\"\"!F)7%F
)F(F)7%F)F)F(" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 10 "Exercice 3" }}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "P:=ortho_norm([1,X,X^2,X^3,X
^4,X^5],(P,Q)->int(P*Q,X=-1..1));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%\"PG7(,$*$-%%sqrtG6#\"\"#\"\"\"#F,F+,$*&%\"XGF,-F)6#\"\"'F,F-,$*&,&*$
)F0F+F,F,#F,\"\"$!\"\"F,-F)6#\"#5F,#F:\"\"%,$*&,&*$)F0F:F,F,*&#F:\"\"&
F,F0F,F;F,-F)6#\"#9F,#FHF@,$*&,(*$)F0F@F,F,#F:\"#NF,*&#F3\"\"(F,F7F,F;
F,F(F,#\"$0\"\"#;,$*&,(*$)F0FHF,F,*&#FH\"#@F,F0F,F,*&#F>\"\"*F,FDF,F;F
,-F)6#\"#AF,#\"#jFY" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Q:=k
->expand(diff((X^2-1)^k,X$k));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"
QGf*6#%\"kG6\"6$%)operatorG%&arrowGF(-%'expandG6#-%%diffG6$),&*$)%\"XG
\"\"#\"\"\"F8F8!\"\"9$-%\"$G6$F6F:F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "seq(Q(i),i=1..5);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6'
,$%\"XG\"\"#,&*$)F$F%\"\"\"\"#7\"\"%!\"\",&*$)F$\"\"$F)\"$?\"*&\"#sF)F
$F)F,,(*$)F$F+F)\"%!o\"*&\"%S9F)F(F)F,\"$W\"F),(*$)F$\"\"&F)\"&S-$*&\"
&+O$F)F/F)F,*&\"%+sF)F$F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
36 "plot(\{Q(1),Q(2),Q(3),Q(4)\},X=-1..1);" }}{PARA 13 "" 1 "" 
{GLPLOT2D 323 157 157 {PLOTDATA 2 "6(-%'CURVESG6$7X7$$!\"\"\"\"!$!#[F*
7$$!3!RLL$e%G?y*!#=$!3'*Q&p$f=A*=%!#;7$$!3ommm;p0k&*F0$!3J\"3q5U1>h$F3
7$$!3E++vV5Su$*F0$!3&eIlqaJi8$F37$$!3wKL$3<XZ=*F0$!35_mALW$[o#F37$$!3m
mmmT%p\"e()F0$!3aqi;b&=dv\"F37$$!3:mmm\"4m(G$)F0$!3mOXV5,@j$*!#<7$$!3
\"QLL3i.9!zF0$!3*[bx[_:hI#FM7$$!3\"ommT!R=0vF0$\"3JJ(zrZxsI$FM7$$!3u**
**\\P8#\\4(F0$\"39zY([D8iA)FM7$$!3+nm;/siqmF0$\"3o,K41a&4C\"F37$$!3[++
](y$pZiF0$\"3Y$p'yTR*=d\"F37$$!33LLL$yaE\"eF0$\"3c7;!H`3%G=F37$$!3hmmm
\">s%HaF0$\"3Q;!y]3W&))>F37$$!3Q+++]$*4)*\\F0$\"3X;x$oYT.5#F37$$!39+++
]_&\\c%F0$\"3CvB;1'G_9#F37$$!31+++]1aZTF0$\"3Sz19'os+8#F37$$!3umm;/#)[
oPF0$\"3csx&H8$4r?F37$$!3hLLL$=exJ$F0$\"3y\"[fEWU0&>F37$$!3*RLLLtIf$HF
0$\"38uAH+%)=5=F37$$!3]++]PYx\"\\#F0$\"3ncv9jBU3;F37$$!3EMLLL7i)4#F0$
\"3QS?JPS4+9F37$$!3c****\\P'psm\"F0$\"3c]Sak#=[9\"F37$$!3')****\\74_c7
F0$\"3x@(4%)Q)))3))FM7$$!3)3LLL3x%z#)!#>$\"3wRP1zn6$*eFM7$$!3KMLL3s$QM
%F`s$\"3.>X5nrs<JFM7$$!3]^omm;zr)*!#@$\"38mzlb%yw5(F`s7$$\"3%pJL$ezw5V
F`s$!3svL_M-9%4$FM7$$\"3s*)***\\PQ#\\\")F`s$!3:v7NN'3D!eFM7$$\"3GKLLe
\"*[H7F0$!3M_>J6gHH')FM7$$\"3I*******pvxl\"F0$!3n4xe5t#*Q6F37$$\"3#z**
**\\_qn2#F0$!3w.cYX+z(Q\"F37$$\"3U)***\\i&p@[#F0$!3%\\;d#)QXOg\"F37$$
\"3B)****\\2'HKHF0$!32GZ4<zp3=F37$$\"3ElmmmZvOLF0$!3Mro**3!\\m&>F37$$
\"3i******\\2goPF0$!3Y5$=Zi;62#F37$$\"3UKL$eR<*fTF0$!3wEh]MkHJ@F37$$\"
3m******\\)Hxe%F0$!3C/CY\"\\bW9#F37$$\"3ckm;H!o-*\\F0$!3-#f%y<Zt,@F37$
$\"3y)***\\7k.6aF0$!3ALh4Q*oZ*>F37$$\"3#emmmT9C#eF0$!3euzJ(eWN#=F37$$
\"33****\\i!*3`iF0$!3C]l[$[!>o:F37$$\"3%QLLL$*zym'F0$!3z/DZ;kPV7F37$$
\"3wKLL3N1#4(F0$!3wAg3*f/uD)FM7$$\"3Nmm;HYt7vF0$!3P\"zY/)\\P3KFM7$$\"3
Y*******p(G**yF0$\"3)\\dS9L1QF#FM7$$\"3]mmmT6KU$)F0$\"3ol')*>')pYg*FM7
$$\"3fKLLLbdQ()F0$\"3l?\\;D0%er\"F37$$\"3amm\"zW?)\\*)F0$\"3=K,M:+ie@F
37$$\"3[++]i`1h\"*F0$\"3['Gj4!\\:IEF37$$\"3Y++++PDj$*F0$\"3Dn0YoJ.4JF3
7$$\"3W++]P?Wl&*F0$\"3gZF%e%4Z:OF37$$\"3A++v=5s#y*F0$\"3]!4bn446>%F37$
$\"\"\"F*$\"#[F*-%'COLOURG6&%$RGBG$\"#5F)$F*F*F[]l-F$6$7ep7$F($\"$%QF*
7$$!3%pmm\"HU,\"*)*F0$\"3)[UL#*Qq;V$!#:7$F.$\"3p,4r`rMVIFg]l7$$!3u****
\\(oUIn*F0$\"3-'\\#*\\(o^uEFg]l7$F5$\"3%H)R;B=nCBFg]l7$$!3#HL3-)*G#p%*
F0$\"3$>`c6gG`.#Fg]l7$F:$\"3wa'>%f5lf<Fg]l7$$!3_m;H2Jdz#*F0$\"3]XpQe_J
(\\\"Fg]l7$F?$\"3IdK&)=0+[7Fg]l7$$!39***\\iId9(*)F0$\"3mc\"=,&)==L(F37
$FD$\"3K=/lEI%3z#F37$$!3&emmmwnMa)F0$!3z%=C)RV2-7F37$FI$!3%>d<'3nO\\YF
37$$!3)****\\i&[3:\")F0$!3YO!)))\\h!>d(F37$FO$!3!y&*HnWo>+\"Fg]l7$$!3'
3++Dw$H.xF0$!3y)G$e'\\V#*=\"Fg]l7$FT$!3[ZWW!\\k3M\"Fg]l7$$!3tKL$3i_+I(
F0$!3#*Q>()z&GGY\"Fg]l7$FY$!3K7#4GO)p^:Fg]l7$$!3%ommT!y%)))pF0$!3K]<m$
3*\\&e\"Fg]l7$$!3#RLL3FuF)oF0$!3J.n_]/Y6;Fg]l7$$!3-,+]P2qwnF0$!3PCg$pA
;*H;Fg]l7$Fhn$!3Tc](>2&>T;Fg]l7$$!3#)******\\Q*[c'F0$!3QV')yhphX;Fg]l7
$$!3uLL$e\\g\"fkF0$!3<@`6pZaV;Fg]l7$$!3mnmmTrU`jF0$!3Z,n'*e))GN;Fg]l7$
F]o$!3\"4ctqba6i\"Fg]l7$$!3MnmT&Gu,.'F0$!3gk8\")*=i[d\"Fg]l7$Fbo$!3[1r
(ya.v]\"Fg]l7$Fgo$!3kJjNVV/X8Fg]l7$F\\p$!3brQ3?#f)36Fg]l7$Fap$!3uqm6B.
R7$)F37$Ffp$!3QrA1UEp*R&F37$F[q$!37R-\"G]&*=m#F37$F`q$\"3m7**\\OA_ZeFM
7$Feq$\"3=\"\\*Ru8(eB$F37$Fjq$\"3H;M7%3\"y1hF37$F_r$\"3_^g\\2p!QQ)F37$
Fdr$\"3]ZM)QD#p_5Fg]l7$Fir$\"3#R$Q#)pT$o@\"Fg]l7$F^s$\"3]Tb`;y2U8Fg]l7
$$!3gKL$e9d;J'F`s$\"33UD-68!HQ\"Fg]l7$Fds$\"30z`%oc))GT\"Fg]l7$$!3T,+]
ivF@AF`s$\"3*[e+M-**GV\"Fg]l7$Fis$\"3ls*))o'f)*R9Fg]l7$$\"3@CL$3-Dg5#F
`s$\"3M\"GRLT;OV\"Fg]l7$F_t$\"39hq(f*))H89Fg]l7$$\"3L`mmmJ+IiF`s$\"3!H
i>)\\CO%Q\"Fg]l7$Fdt$\"3'fa[jS5^M\"Fg]l7$Fit$\"3piFVMA;E7Fg]l7$F^u$\"3
)\\`K:%[%p0\"Fg]l7$Fcu$\"3T!HGFSC=])F37$Fhu$\"3%HyH6s[c;'F37$F]v$\"31]
&3$QaTgKF37$Fbv$\"3WV]pW9S(\\%FM7$Fgv$!3)=HC\"GAriEF37$F\\w$!3')e\"fFE
Y\")[&F37$Faw$!3/#*G`9S(eY)F37$Ffw$!3'>GR'>1:/6Fg]l7$F[x$!3F:%y1%Q*fL
\"Fg]l7$F`x$!3;o7nPD%4^\"Fg]l7$$\"3WKLeR<vPgF0$!3qt0w\"[Vod\"Fg]l7$Fex
$!3[alSsL,A;Fg]l7$$\"3AK$3-y'ycjF0$!3g=h/9KkN;Fg]l7$$\"3Ymm\"z\\%[gkF0
$!3&*RgS\"f4Ok\"Fg]l7$$\"3q+]i:A=klF0$!3]jP-rViX;Fg]l7$Fjx$!3!3'y;dZRT
;Fg]l7$$\"3eLL3Fe#Rx'F0$!3/m%>IG,.j\"Fg]l7$$\"3ILL$3sr*zoF0$!3fc#oA9V?
h\"Fg]l7$$\"3-LLe9w,')pF0$!3=O=xm?H'e\"Fg]l7$F_y$!3%RQf#*o9Fb\"Fg]l7$$
\"3c***\\(o!*R-tF0$!3mN?*)=aih9Fg]l7$Fdy$!3`hI%HU5dL\"Fg]l7$$\"3\"HL$e
k6,1xF0$!3KW^%\\S@p=\"Fg]l7$Fiy$!3N5Y-Hb;/5Fg]l7$$\"3)HLL3U/37)F0$!3P4
/g#G0+](F37$F^z$!3s#fuWX8sW%F37$$\"3a****\\P$[/a)F0$!3w(fk!4xDa7F37$Fc
z$\"3k#pl#Ha\"HS#F37$Fhz$\"3R>a-+Y2WoF37$F][l$\"3UI$)37yt(=\"Fg]l7$$\"
3Y++DJ&f@E*F0$\"3-8-<phc]9Fg]l7$Fb[l$\"3-4s(p#o7G<Fg]l7$$\"3Y++voyMk%*
F0$\"3)p$3iMx!3-#Fg]l7$Fg[l$\"3J;wf_5+HBFg]l7$$\"3K+]7G:3u'*F0$\"3AOoL
.@%zn#Fg]l7$F\\\\l$\"337@X3FvXIFg]l7$$\"35+]P40O\"*)*F0$\"3$p[Z$=e$HV$
Fg]l7$Fa\\lF`]l-Ff\\l6&Fh\\lF[]lFi\\lF[]l-F$6$7S7$F($!\"#F*7$F5$!3MLLL
$Q6G\">FM7$F?$!3bmm;M!\\p$=FM7$FD$!3MLLL))Qj^<FM7$FI$!3ALLL=Kvl;FM7$FO
$!3wmm;C2G!e\"FM7$FT$!3OLL$3yO5]\"FM7$FY$!3&*****\\nU)*=9FM7$Fhn$!3SLL
$3WDTL\"FM7$F]o$!35++]d(Q&\\7FM7$Fbo$!3gmmmc4`i6FM7$Fgo$!3KLLLQW*e3\"F
M7$F\\p$!3w++++()>'***F07$Fap$!3E++++0\"*H\"*F07$Ffp$!35++++83&H)F07$F
[q$!3\\LLL3k(p`(F07$F`q$!3Anmmmj^NmF07$Feq$!3)zmmmYh=(eF07$Fjq$!3+,++v
#\\N)\\F07$F_r$!3commmCC(>%F07$Fdr$!39*****\\FRXL$F07$Fir$!3t*****\\#=
/8DF07$F^s$!3=mmm;a*el\"F07$Fds$!3komm;Wn(o)F`s7$Fis$!3IqLLL$eV(>!#?7$
F_t$\"3)Qjmm\"f`@')F`s7$Fdt$\"3%z****\\nZ)H;F07$Fit$\"3ckmm;$y*eCF07$F
^u$\"3f)******R^bJ$F07$Fcu$\"3'e*****\\5a`TF07$Fhu$\"3'o****\\7RV'\\F0
7$F]v$\"3Y'*****\\@fkeF07$Fbv$\"3_ILLL&4Nn'F07$Fgv$\"3A*******\\,s`(F0
7$F\\w$\"3%[mm;zM)>$)F07$Faw$\"3M*******pfa<*F07$Ffw$\"39HLLeg`!)**F07
$F[x$\"3w****\\#G2A3\"FM7$F`x$\"3;LLL$)G[k6FM7$Fex$\"3#)****\\7yh]7FM7
$Fjx$\"3xmmm')fdL8FM7$F_y$\"3bmmm,FT=9FM7$Fdy$\"3FLL$e#pa-:FM7$Fiy$\"3
!*******Rv&)z:FM7$F^z$\"3ILLLGUYo;FM7$Fcz$\"3_mmm1^rZ<FM7$F][l$\"34++]
sI@K=FM7$Fg[l$\"34++]2%)38>FM7$Fa\\l$\"\"#F*-Ff\\l6&Fh\\lFi\\lFi\\lF[]
l-F$6$7S7$F($\"\")F*7$F5$\"37T(GY;Ul(pFM7$F?$\"3UYvPi_9BhFM7$FD$\"3\"p
Dti$Qm/_FM7$FI$\"3orN;`8?CVFM7$FO$\"3wt\"=:]h=\\$FM7$FT$\"3;*[VADM$fFF
M7$FY$\"3&[`PU0\\0/#FM7$Fhn$\"3g3ijv?nR8FM7$F]o$\"3>B$R[>8/%oF07$Fbo$
\"3E(\\%\\ivYVaF`s7$Fgo$!3;P?!R1)*\\i%F07$F\\p$!3!)[N]Y.G-5FM7$Fap$!3G
#pfy-U$*\\\"FM7$Ffp$!3O4<z'y[d$>FM7$F[q$!31.og)f>eH#FM7$F`q$!3uj4Vww4z
EFM7$Feq$!31b#)[(GPc'HFM7$Fjq$!3+4%4()4F\\D$FM7$F_r$!3!pH!GqY\\rMFM7$F
dr$!3YuWqMaUmOFM7$Fir$!3=?SdB'Q0\"QFM7$F^s$!3#)p=26.u<RFM7$Fds$!3_)**o
RHdt(RFM7$Fis$!3'\\^FdI))***RFM7$F_t$!3M)GJbt+x(RFM7$Fdt$!368*)o'*yI?R
FM7$Fit$!3;&*[9pFg=QFM7$F^u$!3sT(=uc8-n$FM7$Fcu$!3G[*yB!HW#[$FM7$Fhu$!
3sF)f:6g1E$FM7$F]v$!3[_ZUnn>oHFM7$Fbv$!3]u_D:\"GRm#FM7$Fgv$!3eK>X1yr&H
#FM7$F\\w$!3-(=\"=r/TB>FM7$Faw$!3cx-\")y\"GVZ\"FM7$Ffw$!3XY#\\'**pm65F
M7$F[x$!3As*=6$>#['[F07$F`x$\"3v>S*Gn:h!oF`s7$Fex$\"3oT&o#)QZ8#pF07$Fj
x$\"3'3#>kOZFN8FM7$F_y$\"3G'*zuwPoN?FM7$Fdy$\"3)3g$*HzTHx#FM7$Fiy$\"3s
`X3S&\\y[$FM7$F^z$\"3-OQoV'=8N%FM7$Fcz$\"3gKE@#GCN;&FM7$F][l$\"3[s'>\"
HU,rgFM7$Fg[l$\"3/fEtk<szpFM7$Fa\\lF^\\n-Ff\\l6&Fh\\lF[]lF[]lFi\\l-%+A
XESLABELSG6$Q\"X6\"Q!Fden-%%VIEWG6$;F(Fa\\l%(DEFAULTG" 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" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "plot(\{Q(1),
Q(2)\},X=-1..1,-10..10);" }}{PARA 13 "" 1 "" {GLPLOT2D 301 167 167 
{PLOTDATA 2 "6&-%'CURVESG6$7S7$$!\"\"\"\"!$!\"#F*7$$!3ommm;p0k&*!#=$!3
MLLL$Q6G\">!#<7$$!3wKL$3<XZ=*F0$!3bmm;M!\\p$=F37$$!3mmmmT%p\"e()F0$!3M
LLL))Qj^<F37$$!3:mmm\"4m(G$)F0$!3ALLL=Kvl;F37$$!3\"QLL3i.9!zF0$!3wmm;C
2G!e\"F37$$!3\"ommT!R=0vF0$!3OLL$3yO5]\"F37$$!3u****\\P8#\\4(F0$!3&***
**\\nU)*=9F37$$!3+nm;/siqmF0$!3SLL$3WDTL\"F37$$!3[++](y$pZiF0$!35++]d(
Q&\\7F37$$!33LLL$yaE\"eF0$!3gmmmc4`i6F37$$!3hmmm\">s%HaF0$!3KLLLQW*e3
\"F37$$!3Q+++]$*4)*\\F0$!3w++++()>'***F07$$!39+++]_&\\c%F0$!3E++++0\"*
H\"*F07$$!31+++]1aZTF0$!35++++83&H)F07$$!3umm;/#)[oPF0$!3\\LLL3k(p`(F0
7$$!3hLLL$=exJ$F0$!3Anmmmj^NmF07$$!3*RLLLtIf$HF0$!3)zmmmYh=(eF07$$!3]+
+]PYx\"\\#F0$!3+,++v#\\N)\\F07$$!3EMLLL7i)4#F0$!3commmCC(>%F07$$!3c***
*\\P'psm\"F0$!39*****\\FRXL$F07$$!3')****\\74_c7F0$!3t*****\\#=/8DF07$
$!3)3LLL3x%z#)!#>$!3=mmm;a*el\"F07$$!3KMLL3s$QM%Fer$!3komm;Wn(o)Fer7$$
!3]^omm;zr)*!#@$!3IqLLL$eV(>!#?7$$\"3%pJL$ezw5VFer$\"3)Qjmm\"f`@')Fer7
$$\"3s*)***\\PQ#\\\")Fer$\"3%z****\\nZ)H;F07$$\"3GKLLe\"*[H7F0$\"3ckmm
;$y*eCF07$$\"3I*******pvxl\"F0$\"3f)******R^bJ$F07$$\"3#z****\\_qn2#F0
$\"3'e*****\\5a`TF07$$\"3U)***\\i&p@[#F0$\"3'o****\\7RV'\\F07$$\"3B)**
**\\2'HKHF0$\"3Y'*****\\@fkeF07$$\"3ElmmmZvOLF0$\"3_ILLL&4Nn'F07$$\"3i
******\\2goPF0$\"3A*******\\,s`(F07$$\"3UKL$eR<*fTF0$\"3%[mm;zM)>$)F07
$$\"3m******\\)Hxe%F0$\"3M*******pfa<*F07$$\"3ckm;H!o-*\\F0$\"39HLLeg`
!)**F07$$\"3y)***\\7k.6aF0$\"3w****\\#G2A3\"F37$$\"3#emmmT9C#eF0$\"3;L
LL$)G[k6F37$$\"33****\\i!*3`iF0$\"3#)****\\7yh]7F37$$\"3%QLLL$*zym'F0$
\"3xmmm')fdL8F37$$\"3wKLL3N1#4(F0$\"3bmmm,FT=9F37$$\"3Nmm;HYt7vF0$\"3F
LL$e#pa-:F37$$\"3Y*******p(G**yF0$\"3!*******Rv&)z:F37$$\"3]mmmT6KU$)F
0$\"3ILLLGUYo;F37$$\"3fKLLLbdQ()F0$\"3_mmm1^rZ<F37$$\"3[++]i`1h\"*F0$
\"34++]sI@K=F37$$\"3W++]P?Wl&*F0$\"34++]2%)38>F37$$\"\"\"F*$\"\"#F*-%'
COLOURG6&%$RGBG$\"#5F)$F*F*Fb[l-F$6$7S7$F($\"\")F*7$F.$\"37T(GY;Ul(pF3
7$F5$\"3UYvPi_9BhF37$F:$\"3\"pDti$Qm/_F37$F?$\"3orN;`8?CVF37$FD$\"3wt
\"=:]h=\\$F37$FI$\"3;*[VADM$fFF37$FN$\"3&[`PU0\\0/#F37$FS$\"3g3ijv?nR8
F37$FX$\"3>B$R[>8/%oF07$Fgn$\"3E(\\%\\ivYVaFer7$F\\o$!3;P?!R1)*\\i%F07
$Fao$!3!)[N]Y.G-5F37$Ffo$!3G#pfy-U$*\\\"F37$F[p$!3O4<z'y[d$>F37$F`p$!3
1.og)f>eH#F37$Fep$!3uj4Vww4zEF37$Fjp$!31b#)[(GPc'HF37$F_q$!3+4%4()4F\\
D$F37$Fdq$!3!pH!GqY\\rMF37$Fiq$!3YuWqMaUmOF37$F^r$!3=?SdB'Q0\"QF37$Fcr
$!3#)p=26.u<RF37$Fir$!3_)**oRHdt(RF37$F^s$!3'\\^FdI))***RF37$Fes$!3M)G
Jbt+x(RF37$Fjs$!368*)o'*yI?RF37$F_t$!3;&*[9pFg=QF37$Fdt$!3sT(=uc8-n$F3
7$Fit$!3G[*yB!HW#[$F37$F^u$!3sF)f:6g1E$F37$Fcu$!3[_ZUnn>oHF37$Fhu$!3]u
_D:\"GRm#F37$F]v$!3eK>X1yr&H#F37$Fbv$!3-(=\"=r/TB>F37$Fgv$!3cx-\")y\"G
VZ\"F37$F\\w$!3XY#\\'**pm65F37$Faw$!3As*=6$>#['[F07$Ffw$\"3v>S*Gn:h!oF
er7$F[x$\"3oT&o#)QZ8#pF07$F`x$\"3'3#>kOZFN8F37$Fex$\"3G'*zuwPoN?F37$Fj
x$\"3)3g$*HzTHx#F37$F_y$\"3s`X3S&\\y[$F37$Fdy$\"3-OQoV'=8N%F37$Fiy$\"3
gKE@#GCN;&F37$F^z$\"3[s'>\"HU,rgF37$Fcz$\"3/fEtk<szpF37$FhzFg[l-F][l6&
F_[lFb[lF`[lFb[l-%+AXESLABELSG6$Q\"X6\"Q!F]el-%%VIEWG6$;F(Fhz;$!#5F*$F
a[lF*" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve \+
1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "plot(\{Q(6)
,Q(7)\},X=-1..1);" }}{PARA 13 "" 1 "" {GLPLOT2D 302 180 180 {PLOTDATA 
2 "6&-%'CURVESG6$7_r7$$!\"\"\"\"!$!'?^kF*7$$!3/MLe9r]X**!#=$!3#=V>#\\v
`-b!#77$$!3%pmm\"HU,\"*)*F0$!3D\"=\"zUg0BYF37$$!3()***\\PM@l$)*F0$!3N0
*)*)=Eh4QF37$$!3!RLL$e%G?y*F0$!3OOA%>:f\"fIF37$$!3#om;HdNvs*F0$!3c'G=e
PS(oBF37$$!3u****\\(oUIn*F0$!3aYklH?\\N<F37$$!3xLL3-)\\&='*F0$!3QpJ)e-
Rm:\"F37$$!3ommm;p0k&*F0$!3yz$4\\SO\\H'!#87$$!3#HL3-)*G#p%*F0$\"3%el1P
l_Cs\"FW7$$!3E++vV5Su$*F0$\"3yD,^^R\\$Q)FW7$$!3_m;H2Jdz#*F0$\"3G+r\"y+
!>\"Q\"F37$$!3wKL$3<XZ=*F0$\"3:x?iFXU7=F37$$!3'fmT&Q75y!*F0$\"3MqQMoXo
x@F37$$!39***\\iId9(*)F0$\"3y=7:\\VDICF37$$!3JmT5S`8=*)F0$\"3tzJ_Fnc=D
F37$$!3YL$eRP8['))F0$\"3q:G(y[FPe#F37$$!3^*\\7yS\"\\6))F0$\"3(\\W@m!\\
GFEF37$$!3mmmmT%p\"e()F0$\"3M4R-g%H2l#F37$$!3umm\"H-%\\/()F0$\"3e&47j_
nal#F37$$!3qlm;/'=3l)F0$\"3?fahfWoUEF37$$!3wlmT&=Vrf)F0$\"3mSl@*=JPh#F
37$$!3&emmmwnMa)F0$\"3]a@gRY!*pDF37$$!3+mm;Hp6O%)F0$\"3prkmGrbUCF37$$!
3:mmm\"4m(G$)F0$\"3)znG*))f)*pAF37$$!3)****\\i&[3:\")F0$\"3P&Gny%)[]#=
F37$$!3\"QLL3i.9!zF0$\"3Ut)Rxb%3$H\"F37$$!3\"ommT!R=0vF0$\"3&)\\wS'R[=
M#FW7$$!3u****\\P8#\\4(F0$!3yC#\\OwC\"zwFW7$$!3+nm;/siqmF0$!312D+*fFia
\"F37$$!3uLL$e\\g\"fkF0$!3$yN&=+F$)4=F37$$!3[++](y$pZiF0$!3W/2Q\\kl&)>
F37$$!3YM$ek.M*QhF0$!3V^4Cu@-U?F37$$!3MnmT&Gu,.'F0$!3u)3k(GEtv?F37$$!3
?+]PMXT@fF0$!33`s&)4\\Q(3#F37$$!33LLL$yaE\"eF0$!3?^^DN\"Rx2#F37$$!3%)*
***\\([j5i&F0$!3bOe*>=u<,#F37$$!3hmmm\">s%HaF0$!3aPW$p6X%))=F37$$!3]LL
$3x&y8_F0$!3os(e,&eY*o\"F37$$!3Q+++]$*4)*\\F0$!3#Qw(Q2g7P9F37$$!39+++]
_&\\c%F0$!3K>O@'>KZ:)FW7$$!31+++]1aZTF0$!3d+.21JCW9FW7$$!3umm;/#)[oPF0
$\"3I%pwI%3KyXFW7$$!3hLLL$=exJ$F0$\"3#GX%4rPO!4\"F37$$!3*RLLLtIf$HF0$
\"3x3^Y\">2g]\"F37$$!3CnmT&o_Qr#F0$\"3[;&f$)4'y$o\"F37$$!3]++]PYx\"\\#
F0$\"3g')4A7&3&4=F37$$!3QnmTNz>&H#F0$\"3][zy!=0b(=F37$$!3EMLLL7i)4#F0$
\"3q#o\\m<5$)*=F37$$!3g+]PMLy!*>F0$\"3k,Iwu0a#*=F37$$!3#pm;aVXH)=F0$\"
3m$4%f!R)*R(=F37$$!3CL$ek`2^x\"F0$\"3\"4>oGN9H%=F37$$!3c****\\P'psm\"F
0$\"3!*)Q\"359f*z\"F37$$!3s*****\\F&*=Y\"F0$\"3y>,,.!HYo\"F37$$!3')***
*\\74_c7F0$\"3\"\\&HsfO!*H:F37$$!3)3LLL3x%z#)!#>$\"3Ku<TO\")R(4\"F37$$
!3KMLL3s$QM%F[]l$\"3(4*f\"zYaj-'FW7$$!3]^omm;zr)*!#@$\"3!GZ%\\@]4$R\"!
#97$$\"3%pJL$ezw5VF[]l$!3M)yc=VI?)fFW7$$\"3s*)***\\PQ#\\\")F[]l$!3'3#=
_o\\G#3\"F37$$\"3GKLLe\"*[H7F0$!3y\"\\e]8\"y1:F37$$\"3ylm;HCjV9F0$!31m
5[5rUs;F37$$\"3I*******pvxl\"F0$!3kNBx@I?&z\"F37$$\"3g)***\\7JFn=F0$!3
_1?1$R`-(=F37$$\"3#z****\\_qn2#F0$!3og+4)e\"=)*=F37$$\"3/)*\\P%G?\"y@F
0$!3'RTFbm!H%*=F37$$\"3=)**\\P/q%zAF0$!3-'>F0B@*y=F37$$\"3I)*\\7.)>3Q#
F0$!3aE)eHz`?&=F37$$\"3U)***\\i&p@[#F0$!3GYWG68t8=F37$$\"3L)**\\(=GB2F
F0$!3qn>L*R,$)o\"F37$$\"3B)****\\2'HKHF0$!3fmg^-yJ4:F37$$\"3ElmmmZvOLF
0$!3+x**RsrWm5F37$$\"3i******\\2goPF0$!3;;5jd**fwXFW7$$\"3UKL$eR<*fTF0
$\"3ei:D=6YX;FW7$$\"3m******\\)Hxe%F0$\"3@c0ub!H%3&)FW7$$\"3ckm;H!o-*
\\F0$\"3Uy*f\\-/rU\"F37$$\"3nJL$3A_1?&F0$\"3QI3xiM^v;F37$$\"3y)***\\7k
.6aF0$\"3al#*))pizt=F37$$\"3IKLe9as;cF0$\"3u4+BuBf4?F37$$\"3#emmmT9C#e
F0$\"37zpfx>Xz?F37$$\"38**\\7yI3IfF0$\"3UT))f$H[s3#F37$$\"3WKLeR<vPgF0
$\"3#o3R.q1T2#F37$$\"3wl;/,/UXhF0$\"3,xAFi3IR?F37$$\"33****\\i!*3`iF0$
\"3=Q0t#HiA)>F37$$\"3Ymm\"z\\%[gkF0$\"3cmL`4WX3=F37$$\"3%QLLL$*zym'F0$
\"3q%[2%ou?]:F37$$\"3wKLL3N1#4(F0$\"3f\\J_'H&fTxFW7$$\"3Nmm;HYt7vF0$!3
7A.%*4'46a#FW7$$\"3Y*******p(G**yF0$!3mmmY'>_vG\"F37$$\"3)HLL3U/37)F0$
!3O\"3,LiI$Q=F37$$\"3]mmmT6KU$)F0$!37X$phjoRH#F37$$\"3-LLeRZQT%)F0$!3#
3uFoQM*\\CF37$$\"3a****\\P$[/a)F0$!3Y6NKfH-nDF37$$\"3!GLek8!)**e)F0$!3
+kE!)eZr3EF37$$\"32mmTN>^R')F0$!3BEw^Gb)yj#F37$$\"3K**\\PMP/*o)F0$!3e,
P\")HL_`EF37$$\"3fKLLLbdQ()F0$!3qA$o5ExXl#F37$$\"3Mm\"z>w'Q\"z)F0$!3kb
SCW!3%QEF37$$\"36+]i!*z>W))F0$!3.%*))R3j/.EF37$$\"3yK3F>#4q*))F0$!3A'p
O@5lqa#F37$$\"3amm\"zW?)\\*)F0$!3#3%o7^B)*oCF37$$\"3'HL3_!HWb!*F0$!3>B
.Fe1ISAF37$$\"3[++]i`1h\"*F0$!3E6uzXM*R!>F37$$\"3Y++DJ&f@E*F0$!39nATA6
To9F37$$\"3Y++++PDj$*F0$!3O)pg$z&QK3*FW7$$\"3Y++voyMk%*F0$!3e<\\>$*3M(
4#FW7$$\"3W++]P?Wl&*F0$\"3FG#>aaPFU'FW7$$\"3Q+D\"Gyh(>'*F0$\"3ER1I:8%*
o6F37$$\"3K+]7G:3u'*F0$\"3C[Y+eo/Z<F37$$\"3G+vVt7SG(*F0$\"3#>[>mLa#zBF
37$$\"3A++v=5s#y*F0$\"3gzPZ(*RJoIF37$$\"3;+D1k2/P)*F0$\"38uF!3;kq\"QF3
7$$\"35+]P40O\"*)*F0$\"3a`\"yS-L%GYF37$$\"31+voa-oX**F0$\"3jboC([Sa]&F
37$$\"\"\"F*$\"'?^kF*-%'COLOURG6&%$RGBG$\"#5F)$F*F*F]`m-F$6$7]r7$F($\"
&!3YF*7$F.$\"35;-yk\\*[4%FW7$F5$\"32QNjqlf4OFW7$F:$\"3cmmu;Q>^JFW7$F?$
\"3R9:ZVWz=FFW7$FD$\"3D)[(H0Z_6BFW7$FI$\"3u5\"y]9H&G>FW7$FN$\"3Gi;^p.(
*o:FW7$FS$\"3%)3j(e#)G?B\"FW7$FY$\"3Y#R^rVrB(pFi]l7$Fhn$\"3!\\MEwtdTC#
Fi]l7$F]o$!3LW'R4#>!Q!>Fi]l7$Fbo$!3\"*o/!3qI%4bFi]l7$F\\p$!3Kb01&*GP#=
\"FW7$F`q$!3#oxA)='>kf\"FW7$Fjq$!3NS$HZ.RQt\"FW7$Fdr$!3iKN9xVMH=FW7$$!
3#fm;zM#z*[)F0$!3A1$fZ,DE'=FW7$Fir$!3Gy)30S'*o)=FW7$$!33mmT5:W#Q)F0$!3
Ug\"\\\\\">i->FW7$F^s$!3q\\Ss(f_-\">FW7$$!3))*\\7GyX`F)F0$!3GK'p\"y[C5
>FW7$$!3iL$eRZD>A)F0$!3C(zG6ouI!>FW7$$!3OnT5l^]o\")F0$!3s?nR(G^\"*)=FW
7$Fcs$!3)HwDdcs)o=FW7$$!3Mm;aQUC3!)F0$!3I<7\"pd%y5=FW7$Fhs$!3p'pUb)=xJ
<FW7$$!3'3++Dw$H.xF0$!3gYcmpADR:FW7$F]t$!3Y([jN`^0I\"FW7$Fbt$!35(*yZF6
e'>(Fi]l7$Fgt$!3x;&35kz0_)!#:7$Fau$\"3Yy$fk\"oP!)\\Fi]l7$Fev$\"3)RqlU,
$Gp)*Fi]l7$F_w$\"3-l/g'ya]H\"FW7$Fdw$\"3Ip0xD4&HT\"FW7$Fiw$\"3_GJvT8+!
\\\"FW7$$!3K+++DL\")*)[F0$\"3!>`d=>+M^\"FW7$$!3E++++t_\"y%F0$\"3OOFDcB
vE:FW7$$!3?+++v7CtYF0$\"3ErTgP![-`\"FW7$F^x$\"3q.\\Y.G7C:FW7$$!33+++]z
CcVF0$\"3#4K_1BMi[\"FW7$Fcx$\"3T$>=K6ZgT\"FW7$$!3SLL3FW,eRF0$\"3%R;a#Q
\\pE8FW7$Fhx$\"3g23E8&=a@\"FW7$F]y$\"33UuY,3\">y)Fi]l7$Fby$\"3y\\GjO&*
f^`Fi]l7$F\\z$\"3(H?z%QqtP5Fi]l7$Ffz$!3Epd<wU`%y#Fi]l7$Fj[l$!3)*[#QcDW
1o'Fi]l7$Fd\\l$!3Y8%HlN(4\\)*Fi]l7$Fi\\l$!3t-)fu9ZpB\"FW7$$!3gKL$e9d;J
'F[]l$!3yGtCt$o4K\"FW7$F_]l$!3YD9\"*HHE$Q\"FW7$$!3'ym;aQdDG$F[]l$!3g!Q
xM4@vS\"FW7$$!3T,+]ivF@AF[]l$!3g<d1Q95D9FW7$$!3'\\L$eRx**f6F[]l$!3(=[&
*QcKfV\"FW7$Fd]l$!3^$\\>0`q*R9FW7$$\"3&yK$3_Nl.5F[]l$!3PaTT$yapV\"FW7$
$\"3@CL$3-Dg5#F[]l$!3W/\\]o`gE9FW7$$\"3e?Le*['R3KF[]l$!3$y\\.6en*39FW7
$F[^l$!3qWhm)p=TQ\"FW7$$\"3L`mmmJ+IiF[]l$!3T$=juU#*RK\"FW7$F`^l$!3)HX;
\"Qu:V7FW7$Fe^l$!3&pW8()HzL+\"FW7$F__l$!3'H(p*HFb2w'Fi]l7$Fi_l$!3/;JiH
\"Q<*HFi]l7$F]al$\"3Yln^*H9BV*F\\gm7$Fgal$\"3&QKO3'>E<`Fi]l7$F\\bl$\"3
'3r`G*Q=T*)Fi]l7$Fabl$\"3M-41&f!\\:7FW7$$\"3-mm\"H2fU'RF0$\"3n+.MR>+I8
FW7$Ffbl$\"3<ah#G9h5U\"FW7$$\"3/mm\"HiBQP%F0$\"3'3$eS0nq!\\\"FW7$F[cl$
\"3xNis^o>E:FW7$$\"3!fm\"z%Rk$)o%F0$\"3s.Z&)oOMI:FW7$$\"37KLeR*)**)y%F
0$\"3*z#Qj&3]h_\"FW7$$\"3M)*\\P%[L'*)[F0$\"3LQr\")\\1V8:FW7$F`cl$\"3IQ
\"yD#R.#\\\"FW7$Fecl$\"3>UU5q+\")=9FW7$Fjcl$\"3()Qbb&pBnI\"FW7$Fddl$\"
3?eMk5\"o\\x*Fi]l7$Fhel$\"3)*[9X/Kq6\\Fi]l7$Fbfl$!3i'=F&y'>$=\")F\\gm7
$Fgfl$!3MQ$[%=7\"R:(Fi]l7$F\\gl$!3(Q;z%esJ58FW7$$\"3\"HL$ek6,1xF0$!3or
9n[/CU:FW7$Fagl$!3_(3bE-:+t\"FW7$$\"3ymmTgg/5!)F0$!3sFRE_d%>\"=FW7$Ffg
l$!3/0\"RZzN8(=FW7$$\"3km;/,O=w\")F0$!3S1')***)Gb\"*=FW7$$\"3=***\\7yi
:B)F0$!3\"pmOvBz[!>FW7$$\"3%GLe9'>%pG)F0$!3=hLCE&p3\">FW7$F[hl$!3,(Q:!
H_14>FW7$$\"3w**\\iSH&=R)F0$!3Q*3DZYi/!>FW7$F`hl$!3q()**=o***[)=FW7$$
\"3Gm;aQl\"4\\)F0$!33ya%f)>-i=FW7$Fehl$!3grwd-QYJ=FW7$F_il$!3'\\CM\\V-
eu\"FW7$Fiil$!3].w*3H9[i\"FW7$F][m$!3u,=j\\dmL7FW7$Fg[m$!3^\"eqW4x%HjF
i]l7$F\\\\m$!3iE#y1apag#Fi]l7$Fa\\m$\"3mN<$3O,ss\"Fi]l7$Ff\\m$\"3t^N<x
-@9nFi]l7$F[]m$\"32i0*yw>.C\"FW7$F`]m$\"3)R59)>%=nd\"FW7$Fe]m$\"3'\\B9
.s3c$>FW7$Fj]m$\"3z*)oc(z-yJ#FW7$F_^m$\"3f([c))RITs#FW7$Fd^m$\"3#z!zL5
\"Ra:$FW7$Fi^m$\"3$oHH!yXf7OFW7$F^_m$\"3+c^.I2['4%FW7$Fc_mFb`m-Fh_m6&F
j_mF]`mF[`mF]`m-%+AXESLABELSG6$Q\"X6\"Q!Fiin-%%VIEWG6$;F(Fc_m%(DEFAULT
G" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "
Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "plot(\{Q(6),Q(7
)\},X=-1..1,-50000..50000);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 
{PLOTDATA 2 "6&-%'CURVESG6$7_r7$$!\"\"\"\"!$!'?^kF*7$$!3/MLe9r]X**!#=$
!3#=V>#\\v`-b!#77$$!3%pmm\"HU,\"*)*F0$!3D\"=\"zUg0BYF37$$!3()***\\PM@l
$)*F0$!3N0*)*)=Eh4QF37$$!3!RLL$e%G?y*F0$!3OOA%>:f\"fIF37$$!3#om;HdNvs*
F0$!3c'G=ePS(oBF37$$!3u****\\(oUIn*F0$!3aYklH?\\N<F37$$!3xLL3-)\\&='*F
0$!3QpJ)e-Rm:\"F37$$!3ommm;p0k&*F0$!3yz$4\\SO\\H'!#87$$!3#HL3-)*G#p%*F
0$\"3%el1Pl_Cs\"FW7$$!3E++vV5Su$*F0$\"3yD,^^R\\$Q)FW7$$!3_m;H2Jdz#*F0$
\"3G+r\"y+!>\"Q\"F37$$!3wKL$3<XZ=*F0$\"3:x?iFXU7=F37$$!3'fmT&Q75y!*F0$
\"3MqQMoXox@F37$$!39***\\iId9(*)F0$\"3y=7:\\VDICF37$$!3JmT5S`8=*)F0$\"
3tzJ_Fnc=DF37$$!3YL$eRP8['))F0$\"3q:G(y[FPe#F37$$!3^*\\7yS\"\\6))F0$\"
3(\\W@m!\\GFEF37$$!3mmmmT%p\"e()F0$\"3M4R-g%H2l#F37$$!3umm\"H-%\\/()F0
$\"3e&47j_nal#F37$$!3qlm;/'=3l)F0$\"3?fahfWoUEF37$$!3wlmT&=Vrf)F0$\"3m
Sl@*=JPh#F37$$!3&emmmwnMa)F0$\"3]a@gRY!*pDF37$$!3+mm;Hp6O%)F0$\"3prkmG
rbUCF37$$!3:mmm\"4m(G$)F0$\"3)znG*))f)*pAF37$$!3)****\\i&[3:\")F0$\"3P
&Gny%)[]#=F37$$!3\"QLL3i.9!zF0$\"3Ut)Rxb%3$H\"F37$$!3\"ommT!R=0vF0$\"3
&)\\wS'R[=M#FW7$$!3u****\\P8#\\4(F0$!3yC#\\OwC\"zwFW7$$!3+nm;/siqmF0$!
312D+*fFia\"F37$$!3uLL$e\\g\"fkF0$!3$yN&=+F$)4=F37$$!3[++](y$pZiF0$!3W
/2Q\\kl&)>F37$$!3YM$ek.M*QhF0$!3V^4Cu@-U?F37$$!3MnmT&Gu,.'F0$!3u)3k(GE
tv?F37$$!3?+]PMXT@fF0$!33`s&)4\\Q(3#F37$$!33LLL$yaE\"eF0$!3?^^DN\"Rx2#
F37$$!3%)****\\([j5i&F0$!3bOe*>=u<,#F37$$!3hmmm\">s%HaF0$!3aPW$p6X%))=
F37$$!3]LL$3x&y8_F0$!3os(e,&eY*o\"F37$$!3Q+++]$*4)*\\F0$!3#Qw(Q2g7P9F3
7$$!39+++]_&\\c%F0$!3K>O@'>KZ:)FW7$$!31+++]1aZTF0$!3d+.21JCW9FW7$$!3um
m;/#)[oPF0$\"3I%pwI%3KyXFW7$$!3hLLL$=exJ$F0$\"3#GX%4rPO!4\"F37$$!3*RLL
LtIf$HF0$\"3x3^Y\">2g]\"F37$$!3CnmT&o_Qr#F0$\"3[;&f$)4'y$o\"F37$$!3]++
]PYx\"\\#F0$\"3g')4A7&3&4=F37$$!3QnmTNz>&H#F0$\"3][zy!=0b(=F37$$!3EMLL
L7i)4#F0$\"3q#o\\m<5$)*=F37$$!3g+]PMLy!*>F0$\"3k,Iwu0a#*=F37$$!3#pm;aV
XH)=F0$\"3m$4%f!R)*R(=F37$$!3CL$ek`2^x\"F0$\"3\"4>oGN9H%=F37$$!3c****
\\P'psm\"F0$\"3!*)Q\"359f*z\"F37$$!3s*****\\F&*=Y\"F0$\"3y>,,.!HYo\"F3
7$$!3')****\\74_c7F0$\"3\"\\&HsfO!*H:F37$$!3)3LLL3x%z#)!#>$\"3Ku<TO\")
R(4\"F37$$!3KMLL3s$QM%F[]l$\"3(4*f\"zYaj-'FW7$$!3]^omm;zr)*!#@$\"3!GZ%
\\@]4$R\"!#97$$\"3%pJL$ezw5VF[]l$!3M)yc=VI?)fFW7$$\"3s*)***\\PQ#\\\")F
[]l$!3'3#=_o\\G#3\"F37$$\"3GKLLe\"*[H7F0$!3y\"\\e]8\"y1:F37$$\"3ylm;HC
jV9F0$!31m5[5rUs;F37$$\"3I*******pvxl\"F0$!3kNBx@I?&z\"F37$$\"3g)***\\
7JFn=F0$!3_1?1$R`-(=F37$$\"3#z****\\_qn2#F0$!3og+4)e\"=)*=F37$$\"3/)*
\\P%G?\"y@F0$!3'RTFbm!H%*=F37$$\"3=)**\\P/q%zAF0$!3-'>F0B@*y=F37$$\"3I
)*\\7.)>3Q#F0$!3aE)eHz`?&=F37$$\"3U)***\\i&p@[#F0$!3GYWG68t8=F37$$\"3L
)**\\(=GB2FF0$!3qn>L*R,$)o\"F37$$\"3B)****\\2'HKHF0$!3fmg^-yJ4:F37$$\"
3ElmmmZvOLF0$!3+x**RsrWm5F37$$\"3i******\\2goPF0$!3;;5jd**fwXFW7$$\"3U
KL$eR<*fTF0$\"3ei:D=6YX;FW7$$\"3m******\\)Hxe%F0$\"3@c0ub!H%3&)FW7$$\"
3ckm;H!o-*\\F0$\"3Uy*f\\-/rU\"F37$$\"3nJL$3A_1?&F0$\"3QI3xiM^v;F37$$\"
3y)***\\7k.6aF0$\"3al#*))pizt=F37$$\"3IKLe9as;cF0$\"3u4+BuBf4?F37$$\"3
#emmmT9C#eF0$\"37zpfx>Xz?F37$$\"38**\\7yI3IfF0$\"3UT))f$H[s3#F37$$\"3W
KLeR<vPgF0$\"3#o3R.q1T2#F37$$\"3wl;/,/UXhF0$\"3,xAFi3IR?F37$$\"33****
\\i!*3`iF0$\"3=Q0t#HiA)>F37$$\"3Ymm\"z\\%[gkF0$\"3cmL`4WX3=F37$$\"3%QL
LL$*zym'F0$\"3q%[2%ou?]:F37$$\"3wKLL3N1#4(F0$\"3f\\J_'H&fTxFW7$$\"3Nmm
;HYt7vF0$!37A.%*4'46a#FW7$$\"3Y*******p(G**yF0$!3mmmY'>_vG\"F37$$\"3)H
LL3U/37)F0$!3O\"3,LiI$Q=F37$$\"3]mmmT6KU$)F0$!37X$phjoRH#F37$$\"3-LLeR
ZQT%)F0$!3#3uFoQM*\\CF37$$\"3a****\\P$[/a)F0$!3Y6NKfH-nDF37$$\"3!GLek8
!)**e)F0$!3+kE!)eZr3EF37$$\"32mmTN>^R')F0$!3BEw^Gb)yj#F37$$\"3K**\\PMP
/*o)F0$!3e,P\")HL_`EF37$$\"3fKLLLbdQ()F0$!3qA$o5ExXl#F37$$\"3Mm\"z>w'Q
\"z)F0$!3kbSCW!3%QEF37$$\"36+]i!*z>W))F0$!3.%*))R3j/.EF37$$\"3yK3F>#4q
*))F0$!3A'pO@5lqa#F37$$\"3amm\"zW?)\\*)F0$!3#3%o7^B)*oCF37$$\"3'HL3_!H
Wb!*F0$!3>B.Fe1ISAF37$$\"3[++]i`1h\"*F0$!3E6uzXM*R!>F37$$\"3Y++DJ&f@E*
F0$!39nATA6To9F37$$\"3Y++++PDj$*F0$!3O)pg$z&QK3*FW7$$\"3Y++voyMk%*F0$!
3e<\\>$*3M(4#FW7$$\"3W++]P?Wl&*F0$\"3FG#>aaPFU'FW7$$\"3Q+D\"Gyh(>'*F0$
\"3ER1I:8%*o6F37$$\"3K+]7G:3u'*F0$\"3C[Y+eo/Z<F37$$\"3G+vVt7SG(*F0$\"3
#>[>mLa#zBF37$$\"3A++v=5s#y*F0$\"3gzPZ(*RJoIF37$$\"3;+D1k2/P)*F0$\"38u
F!3;kq\"QF37$$\"35+]P40O\"*)*F0$\"3a`\"yS-L%GYF37$$\"31+voa-oX**F0$\"3
jboC([Sa]&F37$$\"\"\"F*$\"'?^kF*-%'COLOURG6&%$RGBG$\"#5F)$F*F*F]`m-F$6
$7]r7$F($\"&!3YF*7$F.$\"35;-yk\\*[4%FW7$F5$\"32QNjqlf4OFW7$F:$\"3cmmu;
Q>^JFW7$F?$\"3R9:ZVWz=FFW7$FD$\"3D)[(H0Z_6BFW7$FI$\"3u5\"y]9H&G>FW7$FN
$\"3Gi;^p.(*o:FW7$FS$\"3%)3j(e#)G?B\"FW7$FY$\"3Y#R^rVrB(pFi]l7$Fhn$\"3
!\\MEwtdTC#Fi]l7$F]o$!3LW'R4#>!Q!>Fi]l7$Fbo$!3\"*o/!3qI%4bFi]l7$F\\p$!
3Kb01&*GP#=\"FW7$F`q$!3#oxA)='>kf\"FW7$Fjq$!3NS$HZ.RQt\"FW7$Fdr$!3iKN9
xVMH=FW7$$!3#fm;zM#z*[)F0$!3A1$fZ,DE'=FW7$Fir$!3Gy)30S'*o)=FW7$$!33mmT
5:W#Q)F0$!3Ug\"\\\\\">i->FW7$F^s$!3q\\Ss(f_-\">FW7$$!3))*\\7GyX`F)F0$!
3GK'p\"y[C5>FW7$$!3iL$eRZD>A)F0$!3C(zG6ouI!>FW7$$!3OnT5l^]o\")F0$!3s?n
R(G^\"*)=FW7$Fcs$!3)HwDdcs)o=FW7$$!3Mm;aQUC3!)F0$!3I<7\"pd%y5=FW7$Fhs$
!3p'pUb)=xJ<FW7$$!3'3++Dw$H.xF0$!3gYcmpADR:FW7$F]t$!3Y([jN`^0I\"FW7$Fb
t$!35(*yZF6e'>(Fi]l7$Fgt$!3x;&35kz0_)!#:7$Fau$\"3Yy$fk\"oP!)\\Fi]l7$Fe
v$\"3)RqlU,$Gp)*Fi]l7$F_w$\"3-l/g'ya]H\"FW7$Fdw$\"3Ip0xD4&HT\"FW7$Fiw$
\"3_GJvT8+!\\\"FW7$$!3K+++DL\")*)[F0$\"3!>`d=>+M^\"FW7$$!3E++++t_\"y%F
0$\"3OOFDcBvE:FW7$$!3?+++v7CtYF0$\"3ErTgP![-`\"FW7$F^x$\"3q.\\Y.G7C:FW
7$$!33+++]zCcVF0$\"3#4K_1BMi[\"FW7$Fcx$\"3T$>=K6ZgT\"FW7$$!3SLL3FW,eRF
0$\"3%R;a#Q\\pE8FW7$Fhx$\"3g23E8&=a@\"FW7$F]y$\"33UuY,3\">y)Fi]l7$Fby$
\"3y\\GjO&*f^`Fi]l7$F\\z$\"3(H?z%QqtP5Fi]l7$Ffz$!3Epd<wU`%y#Fi]l7$Fj[l
$!3)*[#QcDW1o'Fi]l7$Fd\\l$!3Y8%HlN(4\\)*Fi]l7$Fi\\l$!3t-)fu9ZpB\"FW7$$
!3gKL$e9d;J'F[]l$!3yGtCt$o4K\"FW7$F_]l$!3YD9\"*HHE$Q\"FW7$$!3'ym;aQdDG
$F[]l$!3g!QxM4@vS\"FW7$$!3T,+]ivF@AF[]l$!3g<d1Q95D9FW7$$!3'\\L$eRx**f6
F[]l$!3(=[&*QcKfV\"FW7$Fd]l$!3^$\\>0`q*R9FW7$$\"3&yK$3_Nl.5F[]l$!3PaTT
$yapV\"FW7$$\"3@CL$3-Dg5#F[]l$!3W/\\]o`gE9FW7$$\"3e?Le*['R3KF[]l$!3$y
\\.6en*39FW7$F[^l$!3qWhm)p=TQ\"FW7$$\"3L`mmmJ+IiF[]l$!3T$=juU#*RK\"FW7
$F`^l$!3)HX;\"Qu:V7FW7$Fe^l$!3&pW8()HzL+\"FW7$F__l$!3'H(p*HFb2w'Fi]l7$
Fi_l$!3/;JiH\"Q<*HFi]l7$F]al$\"3Yln^*H9BV*F\\gm7$Fgal$\"3&QKO3'>E<`Fi]
l7$F\\bl$\"3'3r`G*Q=T*)Fi]l7$Fabl$\"3M-41&f!\\:7FW7$$\"3-mm\"H2fU'RF0$
\"3n+.MR>+I8FW7$Ffbl$\"3<ah#G9h5U\"FW7$$\"3/mm\"HiBQP%F0$\"3'3$eS0nq!
\\\"FW7$F[cl$\"3xNis^o>E:FW7$$\"3!fm\"z%Rk$)o%F0$\"3s.Z&)oOMI:FW7$$\"3
7KLeR*)**)y%F0$\"3*z#Qj&3]h_\"FW7$$\"3M)*\\P%[L'*)[F0$\"3LQr\")\\1V8:F
W7$F`cl$\"3IQ\"yD#R.#\\\"FW7$Fecl$\"3>UU5q+\")=9FW7$Fjcl$\"3()Qbb&pBnI
\"FW7$Fddl$\"3?eMk5\"o\\x*Fi]l7$Fhel$\"3)*[9X/Kq6\\Fi]l7$Fbfl$!3i'=F&y
'>$=\")F\\gm7$Fgfl$!3MQ$[%=7\"R:(Fi]l7$F\\gl$!3(Q;z%esJ58FW7$$\"3\"HL$
ek6,1xF0$!3or9n[/CU:FW7$Fagl$!3_(3bE-:+t\"FW7$$\"3ymmTgg/5!)F0$!3sFRE_
d%>\"=FW7$Ffgl$!3/0\"RZzN8(=FW7$$\"3km;/,O=w\")F0$!3S1')***)Gb\"*=FW7$
$\"3=***\\7yi:B)F0$!3\"pmOvBz[!>FW7$$\"3%GLe9'>%pG)F0$!3=hLCE&p3\">FW7
$F[hl$!3,(Q:!H_14>FW7$$\"3w**\\iSH&=R)F0$!3Q*3DZYi/!>FW7$F`hl$!3q()**=
o***[)=FW7$$\"3Gm;aQl\"4\\)F0$!33ya%f)>-i=FW7$Fehl$!3grwd-QYJ=FW7$F_il
$!3'\\CM\\V-eu\"FW7$Fiil$!3].w*3H9[i\"FW7$F][m$!3u,=j\\dmL7FW7$Fg[m$!3
^\"eqW4x%HjFi]l7$F\\\\m$!3iE#y1apag#Fi]l7$Fa\\m$\"3mN<$3O,ss\"Fi]l7$Ff
\\m$\"3t^N<x-@9nFi]l7$F[]m$\"32i0*yw>.C\"FW7$F`]m$\"3)R59)>%=nd\"FW7$F
e]m$\"3'\\B9.s3c$>FW7$Fj]m$\"3z*)oc(z-yJ#FW7$F_^m$\"3f([c))RITs#FW7$Fd
^m$\"3#z!zL5\"Ra:$FW7$Fi^m$\"3$oHH!yXf7OFW7$F^_m$\"3+c^.I2['4%FW7$Fc_m
Fb`m-Fh_m6&Fj_mF]`mF[`mF]`m-%+AXESLABELSG6$Q\"X6\"Q!Fiin-%%VIEWG6$;F(F
c_m;$!&++&F*$\"&++&F*" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 
45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 59 "matrix([seq([seq(int(Q(i)*Q(j),X=-1..1),j=1..3)],i=1.
.3)]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'matrixG6#7%7%#\"\")\"\"$
\"\"!F+7%F+#\"$G\"\"\"&F+7%F+F+#\"%3Y\"\"(" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 69 "for i from 1 to 5 do print(quo(Q(i),P[i+1],X),rem(Q
(i),P[i+1],X)) od;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$,$*$-%%sqrtG6#\"
\"'\"\"\"#\"\"#\"\"$\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$,$*$-%%sq
rtG6#\"#5\"\"\"#\"\")\"\"&\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$,$*
$-%%sqrtG6#\"#9\"\"\"#\"#[\"\"(\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6$,$*$-%%sqrtG6#\"\"#\"\"\"\"$G\"\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6$,$*$-%%sqrtG6#\"#A\"\"\"#\"%SQ\"#6\"\"!" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 41 "seq(sqrt(int(Q(i)*Q(i),X=-1..1)),i=1..5);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6',$*$-%%sqrtG6#\"\"'\"\"\"#\"\"#\"\"$,$
*$-F&6#\"#5F)#\"\")\"\"&,$*$-F&6#\"#9F)#\"#[\"\"(,$*$-F&6#F+F)\"$G\",$
*$-F&6#\"#AF)#\"%SQ\"#6" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 15 "Tout v
a bien..." }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 10 "Exercice 5" }}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "g1:=vector([1,1,1,1]):g2:=ve
ctor([1,2,3,4]):v:=vector([w,x,y,z]):" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 57 "(g1,g2) est par d\351finition une base de l'ortohogonal d
e F" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "solve(\{dotprod(v-a*
g1-b*g2,g1)=0,dotprod(v-a*g1-b*g2,g2)=0\},\{a,b\});" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#<$/%\"aG,(%\"wG\"\"\"*&#F(\"\"#F(%\"zGF(!\"\"*&#F(F+F
(%\"xGF(F(/%\"bG,*F'#!\"$\"#5*&#F(F6F(F0F(F-*&#F(F6F(%\"yGF(F(*&#\"\"$
F6F(F,F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "assign(%):" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "evalm(v-2*a*g1-2*b*g2);" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'vectorG6#7&,*%\"wG#!\"#\"\"&*&#\"
\"#F+\"\"\"%\"zGF/F/*&#\"\"%F+F/%\"xGF/!\"\"*&#F/F+F/%\"yGF/F5,*F(#!\"
%F+*&#F/F+F/F0F/F5*&F-F/F4F/F/*&#F.F+F/F8F/F5,*F8F-*&#F/F+F/F(F/F5*&#F
3F+F/F0F/F5*&#F.F+F/F4F/F5,*F0F)*&F-F/F(F/F/*&#F/F+F/F4F/F5*&#F3F+F/F8
F/F5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "?genmatrix" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 338 "The function genmatrix generates \+
the coefficient matrix from the linear system of equations eqns in the
 unknowns vars. If the optional third argument ``flag'' is present, th
e ``right-hand side'' vector will be included as the last column of th
e matrix. Otherwise an optional third argument will be assigned the ``
right-hand side'' vector." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
37 "genmatrix(convert(%,list),[w,x,y,z]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#-%'matrixG6#7&7&#!\"#\"\"&#!\"%F*#!\"\"F*#\"\"#F*7&F+F/
F(F-7&F-F(F/F+7&F/F-F+F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "
trace(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}{EXCHG {PARA 0 
"" 0 "" {TEXT -1 9 "Normal..." }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 
10 "Exercice 6" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "f0:=vector
([1,-2,1]):v:=vector([x,y,z]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 32 "solve(dotprod(v-a*f0,f0)=0,\{a\});" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#<#/%\"aG,(%\"xG#\"\"\"\"\"'*&#F)\"\"$F)%\"yGF)!\"\"*&F(
F)%\"zGF)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "assign(%):" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "evalm(v-2*a*f0);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'vectorG6#7%,(%\"xG#\"\"#\"\"$*&F)\"
\"\"%\"yGF-F-*&#F-F+F-%\"zGF-!\"\",(F.#F2F+*&F)F-F(F-F-*&F)F-F1F-F-,(F
1F)*&#F-F+F-F(F-F2*&F)F-F.F-F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 35 "genmatrix(convert(%,list),[x,y,z]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#-%'matrixG6#7%7%#\"\"#\"\"$F(#!\"\"F*7%F(F+F(7%F+F(F(" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "trace(%);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#\"\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 5 "OK..
." }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 10 "Exercice 7" }}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "f0:=vector([1,0,1,0]):v:=vector([w,
x,y,z]):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 27 "f0 dirige l'orthogona
l de H" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "solve(dotprod(v-a
*f0,f0)=0,\{a\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<#/%\"aG,&%\"wG#
\"\"\"\"\"#*&F(F)%\"yGF)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
10 "assign(%):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "evalm(2*a
*f0-v);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'vectorG6#7&%\"yG,$%\"xG!
\"\"%\"wG,$%\"zGF*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "genma
trix(convert(%,list),[w,x,y,z]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%
'matrixG6#7&7&\"\"!F(\"\"\"F(7&F(!\"\"F(F(7&F)F(F(F(7&F(F(F(F+" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "trace(%);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#!\"#" }}}}}{MARK "10" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 
1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }