!set title=Ángulo
!if $wims_read_parm!=$empty
 !goto $wims_read_parm
!endif
oef2wims_version=3.22
language=fr
leftrange=-5.000000
rightrange=5.000000
author=Gang XIAO
email=xiao@unice.fr
computeanswer=no
precision=200

ansorder=r
varcnt=22
prevarcnt=21
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=$[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($val8*$val11+$val9*$val12)]
val24=$[sqrt(($val8)^2+($val9)^2)]
val25=$[sqrt(($val11)^2+($val12)^2)]
val26=$[acos($val23/($val24*$val25))*180/pi]
replyname1=Ángulo
replygood1=$val26
question=__EXECUTED_1692754_EXERCISE__
hint=__EXECUTED_1692754_EXERCISE__

!goto stat

!exit

:question
$()Sean los 3 puntos del plano:	<p><center>	 
!insmath A($val14,$val15)
$() , 
!insmath B($val17,$val18)
$() , 
!insmath C($val20,$val21)
$() .	</center> <p>	Hallar el ángulo 
!insmath \widehat{BAC}
$() (ien grados, entre 0 y 180).	
$()
!exit

:hint
$()Use la relación entre el producto escalar de dos vectores y el ángulo entre ellos.
$()
!exit

:help
$()
$()
!exit

:solution
$()
$()
!exit

:feedback

!exit

:test

!exit

:stat
vsavelist=14,15,17,18,20,21
embedcnt=0
