!set title=Área del cuadrilátero
!if $wims_read_parm!=$empty
 !goto $wims_read_parm
!endif
oef2wims_version=3.22
language=en
leftrange=-5.000000
rightrange=5.000000
author=Gang XIAO
email=xiao@unice.fr
computeanswer=no
precision=10000

ansorder=r
varcnt=23
prevarcnt=22
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=$[rint(13)]
tmp0=!randint $val6, $val7

val8=$[rint($(tmp0))]
tmp0=!randint $val6, $val7

val9=$[rint($(tmp0))]
tmp0=!randint -$val6, -$val7

val10=$[rint($(tmp0))]
tmp0=!randint $val6, $val7

val11=$[rint($(tmp0))]
tmp0=!randint -$val6, -$val7

val12=$[rint($(tmp0))]
tmp0=!randint -$val6, -$val7

val13=$[rint($(tmp0))]
tmp0=!randint $val6, $val7

val14=$[rint($(tmp0))]
tmp0=!randint -$val6, -$val7

val15=$[rint($(tmp0))]
val16=$[rint($val10-$val8)]
val17=$[rint($val11-$val9)]
val18=$[rint($val12-$val8)]
val19=$[rint($val13-$val9)]
val20=$[rint($val14-$val8)]
val21=$[rint($val15-$val9)]
val22=$[rint($val16*$val19-$val18*$val17)]
val23=$[rint($val18*$val21-$val20*$val19)]
val24=$[0.5*abs($val22+$val23)]
tmp0=!randitem 0,1

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

!ifval $val25=1
val26=$val10,$val11
!else
val26=$val14,$val15
!endif

!ifval $val25=1
val27=$val14,$val15
!else
val27=$val10,$val11
!endif
replyname1=Area
replygood1=$val24
question=__EXECUTED_1692754_EXERCISE__
hint=__EXECUTED_1692754_EXERCISE__

!goto stat

!exit

:question
$()Hallar el área del cuadrilátero <i>ABCD</i> en el plano cartesiano, cuyos 4 vértices son	<p><center>	 <i>A</i> = ($val8,$val9) , <i>B</i> = ($val26) ,	 <i>C</i> = ($val12,$val13) , <i>D</i> = ($val27) .	<p>	 
!read oef/draw.phtml 200,200 \
	 xrange -15,15	 yrange -15,15	 arrow -15,0,15,0,10,grey	 arrow 0,-15,0,15,10,grey	 linewidth 2	 polygon red,$val8,$val9,$val10,$val11,$val12,$val13,$val14,$val15	 linewidth 4	 points blue,$val8,$val9,$val10,$val11,$val12,$val13,$val14,$val15	 
$()	</center> <p>	
$()
!exit

:hint
$()Puede dividir el cuadrilátero en dos triángulos y calcular el área de cada triángulo mediante el producto vectorial.
$()
!exit

:help
$()
$()
!exit

:solution
$()
$()
!exit

:feedback

!exit

:test

!exit

:stat
vsavelist=8,9,10,11,12,13,14,15,26,27
embedcnt=0
