!!! fichier d'initialisation de l'exo 1 !!!

## lecture du fichier commun
!read commonDir/common1

## fabrication de polynomes de la variable t
k1=!randint -7,7
k2=!randint 1,9
k3=!randint -2,2
!if $k3=0
  k3=!randitem -1,1
!endif
polyp=(t-($k1))^2-($k2)
polyq=(t-($k1))^2-($k2)+($k3)

t1=($k1)-(sqrt($k2))
t2=($k1)+(sqrt($k2))

## fabrication de formes linaires et de ut
vech=$vecv
eqH=expand([$vech] . transpose([$vecx]))
vecL=expand(($polyp)*[$vecw]+($polyq)*[$vecv])
vecw=($vecw)

k=!randint -7,7
!if $k=0
  k=!randitem -3,3
!endif
!if $k>0
  ut=!texmath u_{t}(x)=L_{t}(x)\cdot w + $k x
 !else
  ut=!texmath u_{t}(x)=L_{t}(x)\cdot w $k x
!endif

## appel  maxima
tmpexec=!exec maxima $eqH;\
($vecL) . transpose([$vecx]);\
$polyp;\
$t1;\
$t2;

!distribute lines $tmpexec into eqH,formL,polyp,t1,t2

## pour affichage
eqH=!texmath $eqH
eqH=\($eqH = 0)
formL=!texmath $formL
formL=\(L_{t}(x)= $formL)
vecx=!texmath ($vecx)
vecx=\($vecx)
ut=\($ut)

goodrep=$t1,  $t2



