!set title=Correspondencia igualdad 5
!if $wims_read_parm!=$empty
 !goto $wims_read_parm
!endif
oef2wims_version=3.22
language=fr
author=XIAO, Gang
email=xiao@unice.fr
computeanswer=no
precision=10000

ansorder=r
varcnt=22
prevarcnt=21
postvarcnt=0
replycnt=1
choicecnt=0
conditioncnt=0
feedbackcnt=0
format=html

val1=$imagedir
val2=$confparm1
val3=$confparm2
val4=$confparm3
val5=$confparm4

!if $testcondition=yes
 !goto test
!endif
!if $status=waiting
 !exit
!endif

val6=$[rint(5)]
val7=1,2,3,4,5,6,8,9,10,12
tmp0=!itemcnt $val7

val8=$[rint($(tmp0))]
val9=1/2,3/2,5/2,1/3,2/3,4/3,5/3,	1/4,3/4,5/4,1/5,2/5,3/5,4/5,6/5,1/6,5/6
val10=
!for val11  in $val9 
tmp0=!translate / to , in $val11

val12=$(tmp0)
tmp0=!values $(val12[1])*x for x in $val7

val13=$(tmp0)
tmp0=!values $(val12[2])*x for x in $val7

val14=$(tmp0)
val15=
!for val16 =1 to $val8 
tmp0=!append item $(val13[$val16])/$(val14[$val16]) to $val15

val15=$(tmp0)
!next
tmp0=!shuffle $val15

tmp=!trim $val10	$(tmp0)
val10=!translate internal $	\
$ to ;; in $tmp
!next
tmp0=!itemcnt $val9

tmp1=!shuffle $(tmp0)

val17=$(tmp1)
tmp0=!translate internal / to , in $(val10[$(val17[1..$val6]);1,2])

val18=$(tmp0)
val19=
val20=
!for val21 =1 to $val6 
tmp0=!append item \($(val18[$val21;1])/($(val18[$val21;2]))) to $val19

val19=$(tmp0)
tmp0=!append item \($(val18[$val21;3])/($(val18[$val21;4]))) to $val20

val20=$(tmp0)
!next
val22=50x50x50
replytype1=correspond
replyname1=La correspondencia
replygood1=$val19;$val20
question=__EXECUTED_1692754_EXERCISE__

!goto stat

!exit

:question
$()Establece la correspondencia entre				 las fracciones iguales.		<p><center>	 
!read oef/embed.phtml reply 1,$val22 
$()	</center>	
$()
!exit

:hint
$()
$()
!exit

:help
$()
$()
!exit

:solution
$()
$()
!exit

:feedback

!exit

:test

!exit

:stat
vsavelist=22
embedcnt=1
