!set title=Fracciones iguales Ib
!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,r
varcnt=30
prevarcnt=25
postvarcnt=4
replycnt=2
choicecnt=0
conditioncnt=1
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=1,2,3,4,5,6
tmp0=!itemcnt $val6

val7=$[rint($(tmp0))]
val8=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
val9=
!for val10  in $val8 
tmp0=!translate / to , in $val10

val11=$(tmp0)
tmp0=!values $(val11[1])*x for x in $val6

val12=$(tmp0)
tmp0=!values $(val11[2])*x for x in $val6

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

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

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

tmp1=!values 0 for x=1 to 100

tmp2=!item 1 to $(tmp0) of 3,1,1,	 $(tmp1)

val16=$(tmp2)
tmp0=!shuffle $val16

val16=$(tmp0)
val17=
tmp0=!itemcnt $val8

!for val10 =1 to $(tmp0) 
!if $(val16[$val10])>0 
val18=$(val9[$val10;1..$(val16[$val10])])
tmp0=!append item $val18 to $val17

val17=$(tmp0)
!endif
!next
tmp0=!itemcnt $val17

val19=$[rint($(tmp0))]
val20=
!for val21  in $val17 
tmp0=!replace internal / by \over in $val21

val18=$(tmp0)
tmp0=!append item \({$val18}) to $val20

val20=$(tmp0)
!next
val22=40x60x1
tmp0=!item 1 of dos,dos pares, tres pares

val23=$(tmp0)
replytype1=dragfill
replyname1=Fracción 1
replygood1=?analyze 24;$(val20[1]),$(val20[$m_1*2+1..$val19])
replytype2=dragfill
replyname2=Fracción 2
replygood2=?analyze 25;$(val20[2])
question=__EXECUTED_1692754_EXERCISE__

!goto stat

!exit

:question
$()Entre las fracciones siguientes, encuentra $val23	que sean iguales.	<p><center><table border=0>		 <tr><td align=right>Las fracciones idénticas:	 <td> 
!read oef/embed.phtml r1,$val22 
$() <td> = <td> 
!read oef/embed.phtml r2,$val22 
$()								</table></center>	
$()
!exit

:hint
$()
$()
!exit

:help
$()
$()
!exit

:solution
$()
$()
!exit

:postdef
val26=
tmp0=!replace internal \over by / in $val24,$val25,\o3,\o4,\o5,\o6

val27=$(tmp0)
tmp0=!text select /1234567890, in $val27

val27=$(tmp0)
t_=!replace internal \( by ( in ($(val27[1]))-($(val27[2]))
tmp0=!exec pari $t_

val28=$(tmp0)

!exit

:feedback

!exit

:test

!ifval $val28 issametext 0
 condtest1=1
!else
 condtest1=0
!endif
condname1=$val24 = $val25 $val26

!exit

:stat
vsavelist=22,23,24,25
embedcnt=2
