{VERSION 6 0 "IBM INTEL NT" "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 Comment" -1 18 "Times" 0 1 0 0 0 0 0 0 2 2 2 
2 0 0 0 1 }{CSTYLE "2D Output" -1 20 "Times" 0 1 0 0 255 1 0 0 2 2 2 
2 0 0 0 1 }{CSTYLE "_cstyle3" -1 210 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 
0 0 0 1 }{CSTYLE "_cstyle5" -1 212 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 0 
0 0 1 }{CSTYLE "_cstyle6" -1 213 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 
0 0 0 1 }{CSTYLE "" 212 256 "" 1 18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }
{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 "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 Output" -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 Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 
0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "_pstyle
2" -1 203 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 2 0 2 0 2 2 0 1 }{PSTYLE "_pstyle4" -1 205 1 {CSTYLE "" 
-1 -1 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 8 2 2 0 2 0 2 
2 0 1 }}
{SECT 0 {SECT 1 {PARA 205 "" 0 "" {TEXT 256 11 "Exercice 10" }}{PARA 
203 "" 0 "" {TEXT -1 0 "" }}{PARA 203 "" 0 "" {TEXT 210 3 "1) " }}
{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 203 "> " 0 "" {MPLTEXT 1 
213 69 "restart;with(geom3d):\n_EnvXName := x: _EnvYName := y: _EnvZNa
me := z:" }{TEXT -1 32 " renomme les axes de coordonn\351es" }}{PARA 
7 "" 1 "" {TEXT -1 43 "Warning, the name polar has been redefined\n" }
}}{EXCHG {PARA 203 "> " 0 "" {MPLTEXT 1 213 66 "point(A,3,-3,2):point(
B,1,3,5):point(C,-2,3,-1):point(D,-1,-1,4): " }{TEXT -1 22 "d\351finit
ion des points " }{XPPEDIT 18 0 "A;" "6#%\"AG" }{TEXT -1 2 ", " }
{XPPEDIT 18 0 "B;" "6#%\"BG" }{TEXT -1 2 ", " }{XPPEDIT 18 0 "C;" "6#%
\"CG" }{TEXT -1 2 ", " }{XPPEDIT 18 0 "D;" "6#%\"DG" }}}{EXCHG {PARA 
203 "> " 0 "" {MPLTEXT 1 213 21 "AreCoplanar(A,B,C,D);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#%&falseG" }}}{EXCHG {PARA 203 "> " 0 "" {MPLTEXT 
1 213 20 "sphere(S,[A,B,C,D]);" }{TEXT -1 54 " d\351finition de la sph
\350re passant par les quatre points" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#%\"SG" }}}{EXCHG {PARA 203 "> " 0 "" {MPLTEXT 1 213 23 "coordinates(
center(S));" }}{PARA 203 "" 0 "" {TEXT -1 0 "" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#7%#\"#r\"#Y#\"#^F&#\"#XF&" }}}{EXCHG {PARA 203 "> " 0 "
" {MPLTEXT 1 213 10 "radius(S);" }{TEXT -1 14 " le rayon de S" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*$-%%sqrtG6#\"$^#\"\"\"#\"#8\"#Y" }}
}{EXCHG {PARA 203 "> " 0 "" {MPLTEXT 1 213 12 "Equation(S);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#/,0*$)%\"xG\"\"#\"\"\"F)*$)%\"yGF(F)F)*$)%\"
zGF(F)F)#\"$c$\"#B!\"\"*&#\"#rF2F)F'F)F3*&#\"#^F2F)F,F)F3*&#\"#XF2F)F/
F)F3\"\"!" }}}{EXCHG {PARA 203 "> " 0 "" {MPLTEXT 1 213 21 "TangentPla
ne(Q,A,S); " }{TEXT -1 14 "d\351finition de " }{XPPEDIT 18 0 "Q;" "6#%
\"QG" }{TEXT -1 19 " le plan tangent \340 " }{XPPEDIT 18 0 "S;" "6#%\"
SG" }{TEXT -1 13 " passant par " }{XPPEDIT 18 0 "A;" "6#%\"AG" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#%\"QG" }}}{EXCHG {PARA 203 "> " 0 "" 
{MPLTEXT 1 213 10 "detail(Q);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#%jqna
me~of~the~object:~~Q|+form~of~the~object:~~plane3d|+equation~of~the~pl
ane:~~431/23-67/46*x+189/46*y-47/46*z~=~0G" }}}{PARA 203 "" 0 "" 
{TEXT -1 0 "" }}{PARA 203 "" 0 "" {TEXT 210 2 "2)" }}{PARA 203 "" 0 "
" {TEXT -1 0 "" }}{EXCHG {PARA 203 "> " 0 "" {MPLTEXT 1 213 462 "resta
rt:with(geom3d):_EnvXName := x: _EnvYName := y: _EnvZName := z:\nCopla
Proc:= proc (A, B, C, D) \n  if AreCoplanar(A,B,C,D) = true then \"les
 quatre points sont coplanaires et appartiennent au plan P\",\n       \+
                                Equation(plane(P,[A,B,C]))  \n  else s
phere(S,[A, B, C, D]), \n       \"centre de la sp\350re\", coordinates
(center(S)), \n       \"rayon de la sph\350re\", radius(S), \n       \+
\"\351quation de la sph\350re \", Equation(S)\n  end if \nend proc;" }
{TEXT -1 0 "" }}{PARA 7 "" 1 "" {TEXT -1 43 "Warning, the name polar h
as been redefined\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%*CoplaProcGf*
6&%\"AG%\"BG%\"CG%\"DG6\"F+F+@%/-%,AreCoplanarG6&9$9%9&9'%%trueG6$Qhnl
es~quatre~points~sont~coplanaires~et~appartiennent~au~plan~PF+-%)Equat
ionG6#-%&planeG6$%\"PG7%F1F2F36)-%'sphereG6$%\"SG7&F1F2F3F4Q3centre~de
~la~sp|cyreF+-%,coordinatesG6#-%'centerG6#FDQ3rayon~de~la~sph|cyreF+-%
'radiusGFLQ7|dyquation~de~la~sph|cyre~F+-F9FLF+F+F+" }}}{PARA 0 "" 0 "
" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 24 "Un exemple d'utilisatio
n" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 203 "> " 0 "" 
{MPLTEXT 1 213 74 "CoplaProc(point(A,0,-3,2),point(B,0,3,5),point(C,0,
3,-1),point(D,0,-1,4));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$Qhnles~quat
re~points~sont~coplanaires~et~appartiennent~au~plan~P6\"/,$%\"xG!#O\"
\"!" }}}{PARA 203 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 17 
"Un second exemple" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 75 "CoplaProc(point(A,0,-3,2),point(B,0,3,5),poi
nt(C,0,3,-1),point(D,-2,-1,4));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6)%\"
SGQ3centre~de~la~sp|cyre6\"7%#\"\"$\"\"%F'\"\"#Q3rayon~de~la~sph|cyreF
%,$*$-%%sqrtG6#\"#E\"\"\"F'Q7|dyquation~de~la~sph|cyre~F%/,0*$)%\"xGF*
F2F2*$)%\"yGF*F2F2*$)%\"zGF*F2F2#\"#>F*!\"\"*&#F(F*F2F8F2FA*&#F(F*F2F;
F2FA*&F)F2F>F2FA\"\"!" }}}}}{MARK "0" 0 }{VIEWOPTS 1 1 0 3 4 1802 1 1 
1 1 }{PAGENUMBERS 0 1 2 33 1 1 }