!set title=Perpendicular y 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
varcnt=30
prevarcnt=29
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(8)]
val7=2,3,2,3,4,4,5,6,5,6,7
val8=1,1,2,2,2,3,3,3,4,4,4
tmp0=!itemcnt $val7

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

val10=$[rint($(tmp0))]
tmp0=!item $val10 of $val7

val11=$[rint($(tmp0))]
tmp0=!item $val10 of $val8

val12=$[rint($(tmp0))]
val13=$[rint(1)]
tmp0=!randint 2, $val6

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

val15=$[rint($(tmp0))]
val16=$[rint($val11*$val14-$val12*$val15)]
tmp0=!randint 1, 12

val10=$[rint($(tmp0))]
tmp0=!item $val10 of -$val11,-$val11,$val12,$val12,$val13,$val13,  $val11,$val11,$val12,$val12,$val13,$val13

val17=$[rint($(tmp0))]
tmp0=!item $val10 of $val12,$val13,-$val11,$val13,-$val11,$val12,  $val12,$val13,$val11,$val13,$val11,$val12

val18=$[rint($(tmp0))]
tmp0=!item $val10 of $val13,$val12,$val13,-$val11,$val12,-$val11,  $val13,$val12,$val13,$val11,$val12,$val11

val19=$[rint($(tmp0))]
tmp0=!item $val10 of $val14,$val14,$val15,$val15,$val16,$val16,  -$val14,-$val14,$val15,$val15,$val16,$val16

val20=$[rint($(tmp0))]
tmp0=!item $val10 of $val15,$val16,$val14,$val16,$val14,$val15,  $val15,$val16,-$val14,$val16,-$val14,$val15

val21=$[rint($(tmp0))]
tmp0=!item $val10 of $val16,$val15,$val16,$val14,$val15,$val14,  $val16,$val15,$val16,-$val14,$val15,-$val14

val22=$[rint($(tmp0))]
tmp0=!randitem 1,2

val23=$[rint($(tmp0))]
tmp0=!randitem 1,2

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

!ifval $val23=1
val17=$[rint(-$val17)]
!endif

!ifval $val23=1
val18=$[rint(-$val18)]
!endif

!ifval $val23=1
val19=$[rint(-$val19)]
!endif

!ifval $val24=1
val20=$[rint(-$val20)]
!endif

!ifval $val24=1
val21=$[rint(-$val21)]
!endif

!ifval $val24=1
val22=$[rint(-$val22)]
!endif
val25=$[rint($val18*$val22-$val19*$val21)]
val26=$[rint($val19*$val20-$val17*$val22)]
val27=$[rint($val17*$val21-$val18*$val20)]
replytype1=vector
replyname1=v
replygood1=$val20,$val21,$val22
question=__EXECUTED_1692754_EXERCISE__

!goto stat

!exit

:question
$()Sea u=($val17,$val18,$val19) un vector del espacio. Hallar el vector v que es perpendicular a u y se cumple la igualdad del producto vectorial:	u<img src="$val1/wedge.gif">v&nbsp;=&nbsp;($val25,$val26,$val27).	
$()
!exit

:hint
$()
$()
!exit

:help
$()
$()
!exit

:solution
$()
$()
!exit

:feedback

!exit

:test

!exit

:stat
vsavelist=1,17,18,19,25,26,27
embedcnt=0
