!set title=Vértice de un paralelogramo
!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=25
prevarcnt=24
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($val6*2)]
tmp0=!randint -$val6, $val6-2

val8=$[rint(2*$(tmp0)+1)]
tmp0=!randint -$val6, $val6

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

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

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

val12=$[rint(2*$(tmp0)+1)]
tmp0=!randint -$val7, $val7

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

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

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

val16=$[rint($(tmp0))]
val17=$[rint($val14+$val8)]
val18=$[rint($val15+$val9)]
val19=$[rint($val16+$val10)]
val20=$[rint($val14+$val11)]
val21=$[rint($val15+$val12)]
val22=$[rint($val16+$val13)]
val23=$[rint($val17+$val11)]
val24=$[rint($val18+$val12)]
val25=$[rint($val19+$val13)]
val26=$[$val8*$val12-$val11*$val9]
val27=$[$val9*$val13-$val12*$val10]
val28=$[$val10*$val11-$val13*$val8]
val29=$[sqrt(($val26)^2+($val27)^2+($val28)^2)]
replytype1=vector
replyname1=<i>D</i>
replygood1=$val20,$val21,$val22
question=__EXECUTED_1692754_EXERCISE__

!goto stat

!exit

:question
$()Sea el paralelogramo <i>ABCD</i> cuyos tres primeros vértices tienen de coordenadas	<p><center>	 <i>A</i> = ($val14,$val15,$val16) , <i>B</i> = ($val17,$val18,$val19) , <i>C</i> = ($val23,$val24,$val25) .	</center> <p>	Hallar las coordenadas del cuarto vértice <i>D</i>.	
$()
!exit

:hint
$()
$()
!exit

:help
$()
$()
!exit

:solution
$()
$()
!exit

:feedback

!exit

:test

!exit

:stat
vsavelist=14,15,16,17,18,19,23,24,25
embedcnt=0
