!set titb=Le fichier
!set keyw=
!set datm=20040618
!set prev=
!set next=
!set upbl=coord
!set dat1=19000101
!set dat2=24000101


!if $wims_read_parm!=$empty
 !goto $wims_read_parm
!endif
!exit

:content

!read primitives.phtml 1, embed, definition, &nbsp; 
<pre class="fichier">
<div class="variable">
$m_title$m_lbrac Affixe et forme trigonométrique $m_rbrac
$m_language$m_lbrac fr $m_rbrac
$m_author$m_lbrac Bernadette Perrin-Riou $m_rbrac
$m_email$m_lbrac bpr@math.u-psud.fr $m_rbrac
$m_format$m_lbrac html $m_rbrac
$m_rational$m_lbrac a = $m_random(1/6,1/3,2/3,1/4,1/2,3/4,5/6,0/1) $m_rbrac
$m_integer$m_lbrac r = $m_randint(1<tt class="w">..</tt>3)*$m_random(1,-1) $m_rbrac
$m_integer$m_lbrac b = $m_random(-1<tt class="w">..</tt>1) $m_rbrac
$m_rational$m_lbrac a = \a + \b $m_rbrac
$m_text$m_lbrac c = $m_pari([numerator(\a) , denominator(\a)]) $m_rbrac
$m_function$m_lbrac api = \c[1]*pi/\c[2] $m_rbrac
$m_real$m_lbrac pointx = (\r)*cos(\a*pi) $m_rbrac
$m_real$m_lbrac pointy = (\r)*sin(\a*pi) $m_rbrac
$m_real$m_lbrac s = 3.1 $m_rbrac
$m_text$m_lbrac dessin = $m_rbrac
$m_lbrac i = 1 <tt class="w">to</tt> 5 $m_rbrac$m_lbrac  
  $m_text$m_lbrac dessin = \dessin 
     <tt class="des">dline</tt> -2*\s*cos(\i*pi/12),-2*\s*sin(\i*pi/12),2*\s*cos(\i*pi/12),2*\s*sin(\i*pi/12),blue $m_rbrac  $m_rbrac <tt class=comm>\for</tt>$m_lbrac i = 7 <tt class="w">to</tt> 11 $m_rbrac$m_lbrac
  $m_text$m_lbrac dessin = \dessin 
     <tt class="des">dline</tt> -2*\s*cos(\i*pi/12),-2*\s*sin(\i*pi/12), 2*\s*cos(\i*pi/12),2*\s*sin(\i*pi/12),blue $m_rbrac  $m_rbrac
$m_real$m_lbrac taille = 200 $m_rbrac
$m_text$m_lbrac preparation=
    <tt class="des">xrange</tt> -\s, \s 
    <tt class="des">yrange</tt> -\s, \s 
    <tt class="des">hline</tt> 0,0,black 
    <tt class="des">arrow</tt> 0,0,1,0,6,black 
    <tt class="des">arrow</tt> 0,0,0,1,6,black 
    <tt class="des">vline</tt> 0,0,black 
    <tt class="des">trange</tt> 0,2*pi 
    <tt class="des">plot</tt> blue,cos(t),sin(t) 
    <tt class="des">plot</tt> blue,2*cos(t),2*sin(t) 
    <tt class="des">plot</tt> blue,3*cos(t),3*sin(t) $m_rbrac
$m_text$m_lbrac A = <tt class=fct>draw</tt>(\taille,\taille 
      \preparation
      \dessin
      ) $m_rbrac
$m_text$m_lbrac PP = $m_slib(draw/convpixel \pointx,\pointy,\taille,\taille,-\s,\s,-\s,\s,0,pixels) $m_rbrac
$m_real$m_lbrac Px = \PP[1] $m_rbrac
$m_real$m_lbrac Py = \PP[2] $m_rbrac </div><div class="statement">   
$m_statement$m_lbrac Cliquez sur le point d'affixe 
     &#92;(\r*exp(i*\api) = \r*(cos(\api) + i*sin(\api))) &#58;
    &lt;p>
     &lt;center>
       <tt class=comm>\embed</tt>$m_lbrac <tt class=reply>reply1</tt> $m_rbrac &lt;/center>
    &lt;/p> $m_rbrac </div><div class="variable">
$m_answer$m_lbrac $m_rbrac$m_lbrac  \A ; point,\Px,\Py $m_rbrac$m_lbrac <tt class="type">type  =  coord</tt> $m_rbrac </div><div class="statement"> 
$m_feedback$m_lbrac \result1 = -1 $m_rbrac$m_lbrac Voici la réponse
    &lt;center>
     <tt class=comm>\draw</tt>$m_lbrac \taille,\taille $m_rbrac$m_lbrac  
      \preparation
      \dessin
      <tt class="des">disk</tt> \pointx,\pointy,10,blue $m_rbrac &lt;/center>
$m_rbrac </div></pre>

