!default crosize=6
!set ring_size=5

 !if $click_x$click_y!=$empty and $status=waiting
 click_x=$[$click_x]
 click_y=$[$click_y]
!if $essai!=non
!if $essai=champ
xc=!eval 2*$xy_size*($click_x-$border)/255-$xy_size+$centrex
 yc=!eval -2*$xy_size*($click_y-$border)/255+$xy_size+$centrey
A= !mathsubst x=($xc) in $h
B= !mathsubst x=($xc) in $g
A= !evalsubst y=($yc) in $A
B= !evalsubst y=($yc) in $B
!if $fieldtype=directionnel
M=$[(($A)^2+($B)^2)^(1/2)]
!else
M=$N
!endif
dessin=$dessin\
arrow $xc,$yc,$[$xc+($A)/($M)*$grille],$[$yc+($B)/($M)*$grille],10, orange
!!debug $dessin, $N
!else 
!!si essai=potentiel
xc=!eval 2*$xy_size*($click_x-$border)/255-$xy_size+$centrex
 yc=!eval -2*$xy_size*($click_y-$border)/255+$xy_size+$centrey
 valeur= !mathsubst x=($xc) in $f
 valeur= !evalsubst y=($yc) in $valeur
dessin=$dessin\
 levelcurve black,$f, $valeur
 !advance essaicnt
 essai_rest=!eval $n_essai-$essaicnt
!endif
!endif
!endif

score1=0
!if 1 isin $question 
listeprov=
!for i =1 to $charges 
listeprov= $listeprov, $[$(signe$i)1* $(c$i)]
!ifval  $[$(signe$i)1* $(c$i)]=1
score1= $[$(score1)+ 10]
!endif
!next i
!endif
score2=0
!if 2 isin $question
!if $charge_max isitemof $rep_max_charges
score2=10
!endif
!endif

score3=0
!if 3 isin $question
!if ($rep_posneg=1 and pos isin $posneg) or ($rep_posneg=-1 and gati isin $posneg)
score3=10
!endif
!endif
n_question=!itemcnt $question
!if 1 isin $question
n_question=$[$n_question+$charges-1]
!endif
module_score=$[round(100*($score1+$score2+$score3)/$n_question)/100]
!endif
!endif

!if  ($charge_max!=$empty or 2 notin $question) and ($signe1!=$empty or 1 notin $question) and ($posneg!=$empty or 3 notin $question)
status =done
!endif 
