!set titb=Noeud
!set keyw=
!set datm=20040617
!set prev=
!set next=
!set upbl=main
!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; 


!read primitives.phtml 2, exercise, cmd=new&module=H5/electro/oefelec.fr&exo=noeud&qnum=1, L'exercice 


!read primitives.phtml 3, link, fichiernoeud 

<pre class = "cc">
$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 </pre>
<div class = "aide">L'entier m sera le numéro de l'intensité inconnue</div>
<pre class = "cc">$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 </pre><div class = "aide"><tt class = "des">xrange</tt> et <tt class = "des">yrange</tt> donnent les limites de x et y</div>
<pre class = "cc">
$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 
</pre><div class = "aide">On a ici construit petit à petit les intensités
  et le dessin en faisant une boucle <tt class="c"><tt class=comm>\for</tt></tt>.</div>
  <pre class = "cc">
  $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 </pre><div class = "aide">
  On a créé la liste de toutes les intensités.
  Comme on veut que la somme soit nulle, on l'impose par le dernier
  (qui est le seul à ne pas être pris au hasard).
  L'inconvénient est qu'il peut être de valeur vraiment différente des autres. </div>
  <pre class = "cc">$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 </pre><div class = "aide">On construit au fur et à mesure le dessin &#58;
  Il faut donc à chaque étape reprendre le <tt class="c">\dessin</tt> déjà défini et le remplacer
  par
  <pre class = "cc">
  dessin = \dessin
  ligne supplémentaire
  </pre>
  </div><pre class = "cc">
    <tt class=comm>\if</tt>$m_lbrac  \signe = 1 $m_rbrac$m_lbrac 
</pre><div class = "aide">La flèche changeant de sens
selon le signe \signe, on a besoin de faire un test avec <tt class=comm>\if</tt> </div>
<pre class = "cc">
    $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 </pre>
 <div class = "aide">Ici on a mis du texte &#58;
l'intensité numérique ou I selon le cas
(test   <tt class="c"><tt class=comm>\if</tt>$m_lbrac \i <> \m $m_rbrac </tt>).
</div>
<pre class = "cc">
$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
$m_statement$m_lbrac 
  Voici un noeud dans un circuit électrique alimenté en continu &#58;
  &lt;center&gt;
    <tt class=comm>\draw</tt>$m_lbrac 200,200 $m_rbrac$m_lbrac  \dessin $m_rbrac &lt;/center&gt;
  Quelle est la valeur de l'intensité  \&#40;I) manquante ?
    (Vous devez écrire l'unité.) $m_rbrac
$m_answer$m_lbrac &#92;(I) $m_rbrac$m_lbrac \rep A $m_rbrac$m_lbrac <tt class="type">type = units</tt> $m_rbrac </pre><div class = "aide">On a ici utilisé le type units qui gère les unités physiques
</div>
<pre class = "cc">
$m_hint$m_lbrac Il s'agit de valeurs algébriques. Appliquer la loi des noeuds. $m_rbrac </pre><div class = "aide">Il y a ici une aide. Lorsque l'exercice est choisi
avec un niveau grand, cette aide n'apparaît pas.
Dans les examens non plus</div>

!read primitives.phtml 4, exercise, cmd=new&module=H5/electro/oefelec.fr&exo=noeud&qnum=1, L'exercice 


