!set title=7 términos
!if $wims_read_parm!=$empty
 !goto $wims_read_parm
!endif
oef2wims_version=3.22
language=es
author=XIAO, Gang
email=xiao@unice.fr

ansorder=r,r,r,r,r,r,r,r,r,r,r,r,r,r,r,r
varcnt=111
prevarcnt=95
postvarcnt=15
replycnt=16
choicecnt=0
conditioncnt=1
feedbackcnt=2
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(13)]
tmp=!nonempty items $val4

tmp0=!randitem $tmp
val7=$(tmp0)
tmp0=!word 1 of $val7

val8=$(tmp0)
tmp0=!word 2 of $val7

val9=$(tmp0)

!ifval $val8 issametext 
val8=50
!endif

!ifval $val9 issametext 
val9=0
!endif
tmp0=!record $val6 of src/styles

tmp1=!line 2 to -1 of $(tmp0)

val10=$(tmp1)
tmp=!nonempty items $val10

tmp0=!randitem $tmp
tmp1=!nospace $(tmp0)

val11=$(tmp1)
tmp0=!text select @ in $val11

val12=$(tmp0)
tmp0=!charcnt $val12

val13=$[rint($(tmp0))]
tmp0=!shuffle $val13

tmp1=!item 1 to $val8 of $(tmp0)

val14=$(tmp1)
tmp0=!shuffle $val13-1

tmp1=!item 1 to $val9 of $(tmp0)

val15=$(tmp1)
val16=$[rint($val5)]
tmp0=!shuffle a,b,c,d,r,s,t,x,y,z

val17=$(tmp0)
tmp0=!randitem 2,3,5

val18=sqrt($(tmp0))
tmp0=!record $val2 of src/data

val19=$(tmp0)
tmp=!translate internal $	$ to ; in $val19

tmp=!row 1 of $tmp
tmp0=!translate internal $\
$ to ; in $tmp
val20=$(tmp0)
tmp=!translate internal $	$ to ; in $val19

tmp=!row 2 of $tmp
tmp0=!translate internal $\
$ to ; in $tmp
val21=$(tmp0)
val22=$(val21[1])
val23=$(val21[2])
val24=$(val21[3])

!ifval $val23 =
val23= 60
!endif

!ifval $val24=
val24= 35
!endif

!ifval $val8=0
val25=30 30
!else
val25=$val23 $val24
!endif
tmp=!translate internal $	$ to ; in $val19

tmp=!row 3 to -1 of $tmp
tmp0=!translate internal $\
$ to ; in $tmp
tmp1=!rows2lines $(tmp0)

val19=$(tmp1)
tmp0=!itemcnt $val19

val26=$[rint($(tmp0))]
!if $val26<=3 
val27=$(val19[1])
val28=$(val19[2])
val29=$(val19[3])
val30=computed
!if $val29<0 
tmp0=!values $val29*x,-($val29)*x for x=$val27 to $val28

val31=$(tmp0)
!else
tmp0=!values $val29*x for x=$val27 to $val28

val31=$(tmp0)
!endif
tmp0=!shuffle $val31

tmp1=!shuffle $val31

tmp2=!item 1 to $val13+$val16 of $(tmp0),$(tmp1)

val32=$(tmp2)
!else
val30=listed
tmp0=!shuffle $val19

tmp1=!shuffle $val19

tmp2=!item 1 to $val13+$val16 of $(tmp0),$(tmp1)

val32=$(tmp2)
!endif
tmp0=!mathsubst f=$(val17[1]) in $val32

val32=$(tmp0)
tmp0=!mathsubst g=$(val17[2]) in $val32

val32=$(tmp0)
tmp0=!mathsubst rt=$val18 in $val32

val32=$(tmp0)
val33=
!for val34  in $val32 
val35=$val34
!if / isin $val34 
tmp0=!replace internal / by /( in $val34)

val35=$(tmp0)
!endif
!if + isin $val34 or - isin $val34 
val35=($val34)
!endif
tmp0=!append item $val35 to $val33

val33=$(tmp0)
!next
val32=$val33
val36=
tmp0=!makelist \(x) for x in $val32

val37=$(tmp0)
tmp0=!item $val3 of (-,+),(-,*,+),(-,*,/,+)

tmp1=!declosing $(tmp0)

val38=$(tmp1)
tmp0=!replace internal * by &times; in $val38

val39=$(tmp0)
tmp0=!replace internal / by &divide; in $val39

val39=$(tmp0)
tmp0=!replace internal - by &minus; in $val39

val39=$(tmp0)
tmp0=!makelist $val38 for i=1 to 10

val38=$(tmp0)
tmp0=!item 1 to max($val3+1,$val13) of $val38

tmp1=!shuffle $(tmp0)

val38=$(tmp1)
tmp0=!replace internal * by &times; in $val38

val40=$(tmp0)
tmp0=!replace internal / by &divide; in $val40

val40=$(tmp0)
tmp0=!replace internal - by &minus; in $val40

val40=$(tmp0)
tmp0=!charcnt $val11

val41=$[rint($(tmp0))]
val42=
val43=
val44=
val45=$[rint(1)]
val26=$[rint(1)]
val46=
!for val47 =1 to $val41 
tmp0=!char $val47 of $val11

val29=$(tmp0)
!if $val29 issametext @ 
val42=$val42 ($(val32[$val45])) 
!if $val45 isitemof $val14 
val43=$val43,
val44=$val44,
tmp0=!append item $(val37[$val45]) to $val46

val46=$(tmp0)
!else
val43=$val43 $(val37[$val45]) 
val44=$val44 $(val32[$val45]) 
!endif
val45=$[rint($val45+1)]
!else
!if $val29 issametext # 
val42=$val42 $(val38[$val26]) 
!if $val26 isitemof $val15 
val43=$val43,
val44=$val44,
tmp0=!append item $(val40[$val26]) to $val46

val46=$(tmp0)
!else
val43=$val43 $(val40[$val26]) 
val44=$val44 $(val38[$val26]) 
!endif
val26=$[rint($val26+1)]
!else
val42=$val42$val29
val43=$val43$val29
val44=$val44$val29
!endif
!endif
!next
tmp0=!replace internal < by &#40; in $val43

val43=$(tmp0)
tmp0=!replace internal > by &#41; in $val43

val43=$(tmp0)

!ifval $val8>0 and $val16>0
val46=$val46,$(val37[$val13+1..$val13+$val16])
!endif
!if $val9>0 
tmp0=!itemcnt $val46

val48=$[rint($(tmp0))]
!for val49  in $val39 

!ifval $val49 notin $val46
val46=$val46,$val49
!endif
!next
tmp0=!itemcnt $val46

val50=$[rint($(tmp0))]

!ifval $val50=$val48
tmp=!nonempty items $val39

tmp0=!randitem $tmp
val46=$val46,$(tmp0)
!endif
!endif
tmp0=!itemcnt $val43

val51=$[rint($(tmp0)-1)]
tmp0=!translate internal <> to () in $val42

val42=$(tmp0)
tmp=!translate ";': to $     $ in $val42

tmp=!lower $tmp
tmp0=!exec maxima fullratsimp($tmp);
val52=$(tmp0)
!if / isin $val52 
tmp0=!replace internal / by /( in $val52)

val52=$(tmp0)
!endif
tmp0=!item 1 to $val51 of r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12,r13,r14,r15,r16

val53=$(tmp0)
oefsteps=$val53 
nextstep=!nosubst $val53 
!readproc oef/steps.proc
replytype1=dragfill
replyname1=t1
replygood1=?analyze 54;$val46
replytype2=dragfill
replyname2=t2
replygood2=?analyze 55
replytype3=dragfill
replyname3=t3
replygood3=?analyze 56
replytype4=dragfill
replyname4=t4
replygood4=?analyze 57
replytype5=dragfill
replyname5=t5
replygood5=?analyze 58
replytype6=dragfill
replyname6=t6
replygood6=?analyze 59
replytype7=dragfill
replyname7=t7
replygood7=?analyze 60
replytype8=dragfill
replyname8=t8
replygood8=?analyze 61
replytype9=dragfill
replyname9=t9
replygood9=?analyze 62
replytype10=dragfill
replyname10=t10
replygood10=?analyze 63
replytype11=dragfill
replyname11=t11
replygood11=?analyze 64
replytype12=dragfill
replyname12=t12
replygood12=?analyze 65
replytype13=dragfill
replyname13=t13
replygood13=?analyze 66
replytype14=dragfill
replyname14=t14
replygood14=?analyze 67
replytype15=dragfill
replyname15=t15
replygood15=?analyze 68
replytype16=dragfill
replyname16=t16
replygood16=?analyze 69
question=__EXECUTED_1692754_EXERCISE__

!goto stat

!exit

:question
$()Rellene la siguiente ecuación para convertirla en una igualdad.	<p><center>	 
!for m_t=1 to $val51 
$()	 $(val43[$m_t])  
!read oef/embed.phtml r\t,$val25 1 
$()	 
!next
$()	$(val43[$val51+1])		= 
!insmath $val52
$()	</center> <p>	Arrastre los términos u operadores de abajo hasta los espacios en blanco de la ecuación.	
$()
!exit

:hint
$()
$()
!exit

:help
$()
$()
!exit

:solution
$()
$()
!exit

:postdef
val70=$val54,$val55,$val56,$val57,$val58,$val59,$val60,$val61,$val62,$val63,$val64,$val65,$val66,$val67,$val68,$val69
tmp0=!replace internal \ by in $val70

val71=$(tmp0)
tmp0=!replace internal &minus; by - in $val71

val71=$(tmp0)
tmp0=!replace internal &times; by * in $val71

val71=$(tmp0)
tmp0=!replace internal &divide; by / in $val71

val71=$(tmp0)
val72=
val73=
!for val47 =1 to $val51 
val72=$val72 $(val44[$val47]) $(val71[$val47])
val73=$val73 $(val43[$val47]) $(val70[$val47])
!next
val72=$val72 $(val44[$val51+1])
val73=$val73 $(val43[$val51+1])
tmp0=!translate internal <> to () in $val72

val72=$(tmp0)
tmp=!translate ";': to $     $ in $val72 - ($val52)

tmp=!lower $tmp
tmp0=!exec maxima fullratsimp($tmp);
val74=$(tmp0)
tmp=!translate ";': to $     $ in $val72

tmp=!lower $tmp
tmp0=!exec maxima fullratsimp($tmp);
val75=$(tmp0)

!exit

:feedback
!ifval $val74 issametext $val36
 <p>	 Respuesta incorrecta: $val73 no tiene sentido.	
$()
!endif
!ifval $val74 notsametext $val36 and $val74 notsametext 0
 <p>	 Cálculo incorrecto: $val73 = 
!insmath $val75
$() en lugar de 
!insmath $val52
$().	
$()
!endif

!exit

:test

!ifval $val74 issametext 0
 condtest1=1
!else
 condtest1=0
!endif
condname1=Se verifica la ecuación

!exit

:stat
vsavelist=25,36,43,44,47,51,52,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69
embedcnt=1
