!set titb=Le fichier
!set keyw=
!set datm=20050119
!set prev=
!set next=
!set upbl=noeud
!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 Noeud dans un circuit électrique $m_rbrac
$m_language$m_lbrac fr $m_rbrac
$m_range$m_lbrac -5<tt class="w">..</tt>5 $m_rbrac
$m_author$m_lbrac Bernadette Perrin-Riou $m_rbrac
$m_email$m_lbrac bpr@math.u-psud.fr $m_rbrac
$m_computeanswer$m_lbrac no $m_rbrac
$m_format$m_lbrac html $m_rbrac
$m_integer$m_lbrac n = $m_random(4<tt class="w">..</tt>8) $m_rbrac
$m_integer$m_lbrac m = $m_randint(1<tt class="w">..</tt>\n) $m_rbrac
$m_text$m_lbrac somme = 0 $m_rbrac
$m_text$m_lbrac dessin = 
    <tt class="des">xrange</tt> -2,2.2
    <tt class="des">yrange</tt> -2,2.2 $m_rbrac
$m_text$m_lbrac Intensite= $m_rbrac 
  <tt class=comm>\for</tt>$m_lbrac i = 1 <tt class="w">to</tt> \n $m_rbrac$m_lbrac 
    $m_text$m_lbrac signe = $m_randitem(1,-1) $m_rbrac
    $m_integer$m_lbrac I = \i< \n? $m_randint(-10<tt class="w">..</tt>10)&#58; - (\signe)*(\somme) $m_rbrac
    $m_real$m_lbrac somme = \somme + (\I)*\signe $m_rbrac
    $m_text$m_lbrac Intensite = \Intensite, \I $m_rbrac
    $m_text$m_lbrac dessin = \dessin
     <tt class="des">line</tt> 0,0,cos(2*pi*\i/\n),sin(2*pi*\i/\n), black $m_rbrac 
    <tt class=comm>\if</tt>$m_lbrac \signe = 1 $m_rbrac$m_lbrac 
    $m_text$m_lbrac dessin = \dessin
      <tt class="des">arrow</tt> cos(2*pi*\i/\n)*0.75,sin(2*pi*\i/\n)*.75,cos(2*pi*\i/\n)*0.5,sin(2*pi*\i/\n)*.5, 10,black $m_rbrac  $m_rbrac$m_lbrac 
    $m_text$m_lbrac dessin = \dessin
      <tt class="des">arrow</tt> cos(2*pi*\i/\n)*0.5,sin(2*pi*\i/\n)*.5,cos(2*pi*\i/\n)*0.75,sin(2*pi*\i/\n)*.75, 10,black $m_rbrac  $m_rbrac
      <tt class=comm>\if</tt>$m_lbrac \i <> \m $m_rbrac$m_lbrac 
       $m_text$m_lbrac dessin = \i >\n/4 <tt class="op">and</tt> \i<3*\n/4? \dessin
           <tt class="des">text</tt> blue, cos(2*pi*\i/\n)*1.6,sin(2*pi*\i/\n)*1.6,medium, \I A
            &#58;
            \dessin
           <tt class="des">text</tt> blue, cos(2*pi*\i/\n)*1.4,sin(2*pi*\i/\n)*1.4,medium, \I A $m_rbrac
       $m_rbrac
       $m_lbrac 
        $m_text$m_lbrac dessin = \dessin
           <tt class="des">text</tt> red, cos(2*pi*\i/\n)*1.5,sin(2*pi*\i/\n)*1.5,medium, I $m_rbrac
       $m_rbrac
   $m_rbrac
$m_text$m_lbrac Intensite = $m_wims($m_nonempty <tt class="w">items</tt> Intensite) $m_rbrac
$m_text$m_lbrac rep = $m_item(\m, \Intensite) $m_rbrac </div>
<div class="statement">
$m_statement$m_lbrac 
  Voici un noeud dans un circuit électrique alimenté en continu &#58;
  &lt;center>
    <tt class=comm>\draw</tt>$m_lbrac 200,200 $m_rbrac$m_lbrac \dessin $m_rbrac &lt;/center>
  Quelle est la valeur de l'intensité \ (I) manquante ?
    (Vous devez écrire l'unité.) $m_rbrac </div>
<p>
<div class="variable">
<p>
$m_answer$m_lbrac \ (I) $m_rbrac$m_lbrac \rep A $m_rbrac$m_lbrac <tt class="type">type = units</tt> $m_rbrac
$m_hint$m_lbrac Il s'agit de valeurs algébriques. Appliquer la loi des noeuds. $m_rbrac </div>
<p>
 </pre>

