!set title=Dado el producto vectorial
!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,r
varcnt=13
prevarcnt=12
postvarcnt=0
replycnt=2
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(8)]
val7=$[rint($val6*2)]
tmp0=!randint -$val6, $val6-2

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

tmp1=!randitem -1,1

val9=$[rint($(tmp0)*$(tmp1))]
tmp0=!randint 1, $val7

tmp1=!randitem -1,1

val10=$[rint($(tmp0)*$(tmp1))]
tmp0=!randint 1, $val6

tmp1=!randitem -2,2

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

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

tmp1=!randitem -1,1

val13=$[rint($(tmp0)*$(tmp1))]
val14=$[rint($val9*$val13-$val10*$val12)]
val15=$[rint($val10*$val11-$val8*$val13)]
val16=$[rint($val8*$val12-$val9*$val11)]
val17=$[rint($val8*$val11+$val9*$val12+$val10*$val13)]
replyname1=b
replygood1=$val12
replyname2=c
replygood2=$val13
question=__EXECUTED_1692754_EXERCISE__

!goto stat

!exit

:question
$()Sea u=($val8,$val9,$val10) un vector del espacio. Hallar el vector	v=($val11,b,c) que cumpla la igualdad del producto vectorial:	<p><center>	u<img src="$val1/wedge.gif">v&nbsp;=&nbsp;($val14,$val15,$val16) .	</center> <p>	
$()
!exit

:hint
$()
$()
!exit

:help
$()
$()
!exit

:solution
$()
$()
!exit

:feedback

!exit

:test

!exit

:stat
vsavelist=1,8,9,10,11,14,15,16
embedcnt=0
