La fórmula puede ser de distintos tipos: suma, multiplicación, división, cuadrado, composición, inversa, derivación, integración, etc.
!read types/.index !set exocnt=!itemcnt $exolist !set qcnt=8 !if $qcnt>$exocnt !set qcnt=$exocnt !endif !form new
| Elija los tipos de ejercicios : (el número indica el nivel de dificultad) | !set selsize=$[min(6,$exocnt)] !set wims_formselect_switch=multiple size=$selsize !set exo=$special_parm !if $exo!=$empty !set exolist=!listuniq $exo,$exolist !set exolist=!replace , by , $ in $exolist !set dictionary=types/.types.dic !set translator_unknown=leave !set titlelist=!exec translator $exolist !endif !formselect types list $exolist prompt $titlelist !set wims_formselect_switch= |
| El centro del desarrollo será | !formselect center list 0,1 prompt siempre 0 (más fácil), aleatorio (más difícil) |
| Orden del desarrollo = | !set ORder=3 !formselect ORder from 2 to 8 |
Comentarios. Los ejercicios serán seleccionados aleatoriamente según la lista de su elección. Si no ha efectuado ninguna selección, se considerarán todos los ejercicios disponibles. !read related.phtml Taylor, funciones, derivada, integral !tail wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/var.init 0000644 0001750 0001750 00000003014 10315753764 025023 0 ustar georgesk georgesk order=$ORder !bound order between integer 2 and 8 default 3 !bound center within 0,1 default 0 !read types/.index types=!listintersect $types and $exolist !default types=$exolist range=9 random1=(random($[2*$range+1])-$range) random2=((random($range)+1)*(random(2)*2-1)) a0=$random1 b0=$random1 !if $center=0 x0=0 !else x0=!randitem -5,-4,-3,-2,-1,1,2,3,4,5 !endif !distribute item 0,$x0,$x0,$x0 into shift,y0,z0,t0 type=!randitem $types !read types/$type sorder=$[$order+$shift] pari_header=vec1=concat([$a0],vector($sorder,i,$random2));\ vec2=concat([$b0],vector($sorder,i,$random2));\ ser1=Ser(vec1);ser2=Ser(vec2);\ poly1=$A0 Pol(ser1);poly2=$B0 Pol(ser2);\ $parisrc\ poly3=$C0 Pol(ser3) pariout=!exec pari print(ser1)\ print(ser2+O(x^$[$order+1]))\ print(ser3)\ print(poly1)\ print(poly2)\ print(poly3)\ print(vector($sorder+1,i,polcoeff(poly1,i-1)))\ print(vector($sorder+1,i,polcoeff(poly2,i-1)))\ print(vector($order+1,i,polcoeff(poly3,i-1))) !distribute lines $pariout into ser1,ser2,ser3,poly1,poly2,poly3,vec1,vec2,vec3 !if $center!=0 ser1=!mathsubst x=(x-$x0) in $ser1 ser2=!mathsubst x=(x-$y0) in $ser2 ser3=!mathsubst x=(x-$z0) in $ser3 rest=!htmlmath (x-$t0)^$[$order+1] !else rest=!htmlmath x^$[$order+1] !endif ser1=!htmlmath $A0$ser1 ser2=!htmlmath $B0$ser2 ser3=!htmlmath $C0$ser3 polh1=!htmlmath $poly1 polh2=!htmlmath $poly2 polh3=!htmlmath $poly3 !if $given!=$empty !read present !else present=$present !endif status=waiting replycnt=0 wims_module_log=$cmd: $type order $order, center=$center wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/var.proc 0000644 0001750 0001750 00000002266 10315753764 025033 0 ustar georgesk georgesk !if $cmd!=help tit=!word 2 to -1 of $title module_title=$module_title: $tit !endif !if $cmd=reply and $status!=waiting error=double_reply !exit !endif !if $cmd=reply and $status=waiting !if $job=abandon error=abandon status=done wims_module_log=abandon module_score=0 !exit !endif P=!trim $P !if $P=$empty error=empty_data !exit !endif P=!lower $P P=!rawmath $P list=!varlist $P !if $list!=$empty and $list!=x error=not_poly !advance replycnt !goto testcnt !endif P=!translate , to . in $P !if . isin $P error=real_coefficient !exit !endif test=!evalsubst x=($t0) in $P !if NaN isin $test or Inf isin $test error=bad_poly !exit !endif pariout=!exec pari P=$P; print(poldegree(P,x))\ good=subst($(poly$sol),x,x-($t0));if(P==good,print("yes"),print("no")) !distribute line $pariout into deg,test !if $deg>$order error=bad_degree !advance replycnt !else !if yes notin $test error=wrong !advance replycnt !endif !endif :testcnt !if $error!=$empty and $replycnt<3 !exit !endif status=done !if $error=$empty module_score=$[rint(100/2^$replycnt)/10] !else module_score=0 !endif wims_module_log=score $module_score !endif wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/answer.phtml 0000644 0001750 0001750 00000000565 10315753761 025720 0 ustar georgesk georgesk !if $error=abandon !exit !endif !if $error!=$empty Su respuesta $prompt = !htmlmath $P + O($rest) no es correcta. La solución es:
(Ha obtenido una nota de 0 sobre 10.) !exit !endif Usted ha respondido: $prompt = !htmlmath $P + O($rest)
Esta respuesta es exacta. Nota: $module_score sobre 10. wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/present 0000644 0001750 0001750 00000001336 10315753761 024753 0 ustar georgesk georgesk given=!items2words $given givencnt=!wordcnt $given !distribute words $given into g1,g2 !default givenname1=$m_f(x) !default givenname2=$m_g(x) !default fname=la función !if $givencnt=1 present=Sea $m_f una función continua y\ derivable de orden $[$sorder+1], con desarrollo\ de Taylor:
\ Calcular el desarrollo de Taylor en un entorno de $t0 de $fname $calcname !else present=Sean $m_f y $m_g dos funciones continuas y\ derivables de orden $[$order+1], con desarrollos\ de Taylor:
\ $givenname2 = $($g2) .
\ Calcular el desarrollo de Taylor en un entorno de $t0 de $fname $calcname !endif wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/about.phtml 0000644 0001750 0001750 00000000113 10315753764 025523 0 ustar georgesk georgesk $module_about
Software usado por este ejercicio:
!exec pari about
wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/present.phtml 0000644 0001750 0001750 00000000036 10315753761 026072 0 ustar georgesk georgesk
Ejercicio.
$present
wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/ 0000755 0001750 0001750 00000000000 10771700163 024503 5 ustar georgesk georgesk wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/compo 0000644 0001750 0001750 00000000357 10315753763 025560 0 ustar georgesk georgesk
title=3. Composición f(g(x))
sol=3
prompt=$m_h(x)
a0=0
y0=!randitem -5,-4,-3,-2,-1,1,2,3,4,5
!if $center!=0
A0=$y0+
!endif
parisrc=ser3=subst(ser2,x,ser1)
given=ser2 ser1
calcname=
wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/compinv2 0000644 0001750 0001750 00000000515 10315753762 026173 0 ustar georgesk georgesk title=4. Composición inversa II sol=2 prompt=$m_f(x) a0=0 !if $center!=0 y0=!randitem -5,-4,-3,-2,-1,1,2,3,4,5 t0=$y0 A0=$y0+ !endif !ifval $x0!=$y0 tenemos=$y0 y $x0 respectivamente !else tenemos=$x0 !endif parisrc=ser3=subst(ser2,x,ser1) given=ser1 ser3 givenname1=$m_g(x) givenname2=$m_f($m_g(x)) calcname=$m_f(x) . wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/addmixed 0000644 0001750 0001750 00000001073 10315753761 026214 0 ustar georgesk georgesk title=1. Suma mixta sol=2 sign=!randitem +,- prompt=$m_g(x) !ifval abs($z0)=1 sh_=2 !else sh_=1 !endif flist=1/(x+$sh_),1/(x-$sh_),sin(x),cos(x),exp(x),log(x+$sh_) !ifval $z0=0 Flist=$flist !else Flist=1/(x+$[$sh_-$z0]),1/(x-$[$sh_+$z0]),sin(x-$z0),cos(x-$z0),\ exp(x-$z0),log(x+$[$sh_-$z0]) !endif n_=!itemcnt $flist n_=!randint 1,$n_ exp=!item $n_ of $flist Exp=!item $n_ of $Flist explicite=!htmlmath $Exp parisrc=ser3=Ser($exp,x); ser2=ser1 $sign ser3; poly2=Pol(ser2); given=ser1 calcname=
wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/sumwderiv 0000644 0001750 0001750 00000000330 10315753761 026455 0 ustar georgesk georgesk title=1. Suma con derivada f+f' sol=3 sign=!randitem +,- prompt=$m_h(x) shift=1 parisrc=ser3=ser1 $sign deriv(ser1,x) given=ser1 calcname=
wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/multderiv 0000644 0001750 0001750 00000000274 10315753763 026454 0 ustar georgesk georgesk title=2. Producto por derivada f*f' sol=3 prompt=$m_h(x) shift=1 parisrc=ser3=ser1*deriv(ser1,x); given=ser1 calcname=
wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/.mkindex 0000755 0001750 0001750 00000001074 10315753763 026160 0 ustar georgesk georgesk #! /bin/sh cd `dirname $0` list=`ls` echo >.types.dic titlist= for i in * do tit=`awk -F= 'NF>=2 && $1=="title" {print $2; exit}' $i` echo "$i:$tit" >>.types.dic titlist="$titlist$tit " done echo "$titlist" >tmp1 echo "$list" >tmp2 llist=`paste tmp1 tmp2 | sort -f` list=`echo "$llist" | awk -F'\11' 'length()>2 {print $2}' | tr '\n' ','` titlist=`echo "$llist" | awk -F'\11' 'length()>2 {print $1}' | tr '\n' ','` cat >.index <<@ !set exolist =!char 1 to -2 of $list !set titlelist=!char 1 to -2 of $titlist !set exototal =!itemcnt \$exolist @ rm -f tmp1 tmp2 wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/division 0000644 0001750 0001750 00000000245 10315753761 026261 0 ustar georgesk georgesk title=3. División f/g sol=1 prompt=$m_h(x) b0=$random2 parisrc=ser3=ser1 * ser2 given=ser3 ser2 calcname=
wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/int 0000644 0001750 0001750 00000000664 10315753762 025235 0 ustar georgesk georgesk title=2. Integral sol=3 prompt=$m_F(x) shift=-1 c0=!randint -7,7 parisrc=ser3=intformal(ser1,x)+($c0); present=!nosubst Sea $m_f una función continua\ y diferenciable de orden $[$order+1] en la proximidad de $x0, con una expansión de Taylor\
\ y sea $m_F(x) la antiderivada de $m_f con $m_F($t0)=$c0.\ Calcular la expansión de Taylor en la proximidad de $t0 de\ $prompt . wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/square 0000644 0001750 0001750 00000000173 10315753763 025737 0 ustar georgesk georgesk title=2. Cuadrado f^2 sol=3 prompt=$m_h(x) parisrc=ser3=ser1^2 given=ser1 calcname=$m_h(x) = $m_f(x)2 . wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/inv 0000644 0001750 0001750 00000000622 10315753762 025231 0 ustar georgesk georgesk title=4. Función inversa f^-1 sol=3 prompt=$m_f-1(x) a0=0 !if $center!=0 z0=!randitem -5,-4,-3,-2,-1,1,2,3,4,5 t0=$z0 A0=$t0+ C0=$x0+ !endif parisrc=v=vector($order);w=vector($order,i,polcoeff(ser1,i));\ st1=1/w[1];v[1]=st1;\ for(i=2,$order,p=Ser(v)*x;v[i]=-st1*polcoeff(subst(ser1,x,p),i));\ ser3=Ser(v)*x given=ser1 calcname=$m_f-1(x) . fname=la función inversa wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/sumsquare 0000644 0001750 0001750 00000000342 10315753762 026461 0 ustar georgesk georgesk title=2. Suma de cuadrados f^2+g^2 sol=3 sign=!randitem +,- prompt=$m_h(x) parisrc=ser3=ser1^2 $sign ser2^2 given=ser1 ser2 calcname=
wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/deriv 0000644 0001750 0001750 00000000222 10315753763 025543 0 ustar georgesk georgesk title=1. Derivada f' sol=3 prompt=$m_f'(x) shift=1 parisrc=ser3=deriv(ser1,x); given=ser1 calcname=$prompt . fname=su derivada wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/.index 0000644 0001750 0001750 00000001371 10315753762 025624 0 ustar georgesk georgesk !set exolist =!char 1 to -2 of combin,derivsum,deriv,sumwderiv,addition,addmixed,squaresum,square,derivprod,int,polynomial,mult,multmixed,multderiv,sumsquare,compo,division,reciproc,compinv1,compinv2,linfrac,inv,CVS, !set titlelist=!char 1 to -2 of 1. Combinación linear af+bg,1. Derivada de la suma (f+g)',1. Derivada f',1. Suma con derivada f+f',1. Suma f+g,1. Suma mixta,2. Cuadrado de la suma (f+g)^2,2. Cuadrado f^2,2. Derivada del producto (f*g)',2. Integral,2. Polinomio de f,2. Producto f*g,2. Producto mixto,2. Producto por derivada f*f',2. Suma de cuadrados f^2+g^2,3. Composición f(g(x)),3. División f/g,3. Función 1/f,4. Composición inversa I,4. Composición inversa II,4. Fracción lineal,4. Función inversa f^-1,, !set exototal =!itemcnt $exolist wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/multmixed 0000644 0001750 0001750 00000002041 10315753763 026443 0 ustar georgesk georgesk title=2. Producto mixto sol=2 prompt=$m_g(x) sh_=!randint 1,4 !ifval abs($z0)=$sh_ sh_=$[abs($z0)+1] !endif coe=!randint 1,4 T0=!randitem -9,-8,-7,-6,-5,-4,-3,-2,-1,1,2,3,4,5,6,7,8,9 t1=!randitem -9,-8,-7,-6,-5,-4,-3,-2,-1,1,2,3,4,5,6,7,8,9 t2=!randitem -9,-8,-7,-6,-5,-4,-3,-2,-1,1,2,3,4,5,6,7,8,9 t3=!randitem -9,-8,-7,-6,-5,-4,-3,-2,-1,1,2,3,4,5,6,7,8,9 poly1=!rawmath $t2*x^2+$t1*x+$T0 poly2=!rawmath $t3*x^3+$poly1 !ifval $z0!=0 pol1=!mathsubst x=(x+$z0) in $poly1 pol2=!mathsubst x=(x+$z0) in $poly2 !else pol1=$poly1 pol2=$poly2 !endif flist=sin($coe*x),cos($coe*x),exp($coe*x),log(x+1),($pol1),($pol2) !ifval $z0=0 Flist=$flist !else Flist=sin($coe*x-$[$coe*$z0]),cos($coe*x-$[$coe*$z0]),exp($coe*x-$[$coe*$z0]),\ log(x+$[1-$z0]),($poly1),($poly2) !endif n_=!itemcnt $flist n_=!randint 1,$n_ exp=!item $n_ of $flist Exp=!item $n_ of $Flist explicite=!htmlmath $Exp parisrc=ser3=Ser($exp,x); ser2=ser1 * ser3 + O(x^$[$order+1]); poly2=Pol(ser2); given=ser1 calcname=
wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/.todo 0000644 0001750 0001750 00000000141 10315753761 025453 0 ustar georgesk georgesk f,g => rational functions of f and g f => g*g'=f f => sin(f) f,g => atan(f/g) autres equadiffs wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/addition 0000644 0001750 0001750 00000000263 10315753762 026231 0 ustar georgesk georgesk title=1. Suma f+g sol=3 sign=!randitem +,- prompt=$m_h(x) parisrc=ser3=ser1 $sign ser2 given=ser1 ser2 calcname=
wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/combin 0000644 0001750 0001750 00000000427 10315753763 025710 0 ustar georgesk georgesk title=1. Combinación lineal af+bg sol=3 aa=!randitem -7,-6,-5,-4,-3,-2,2,3,4,5,6,7 bb=!randitem -7,-6,-5,-4,-3,-2,2,3,4,5,6,7 cc=!rawmath -$bb prompt=$m_h(x) parisrc=ser3=$aa*ser1 $cc*ser2 given=ser1 ser2 calcname=
wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/linfrac 0000644 0001750 0001750 00000000673 10315753764 026063 0 ustar georgesk georgesk title=4. Fracción lineal sol=3 prompt=$m_h(x) a0=!randint 1,$range a0=!randitem $a0,-$a0 :redo !for i in a_,b_,c_,d_ $i=!randint 1,$range $i=!randitem $($i),-$($i) !next i !ifval ($c_)*($a0)=-($d_) or ($b_)*($c_)=($a_)*($d_) !goto redo !endif name=!htmlmath ($a_*f(x)+$b_)/($c_*f(x)+$d_) name=!replace f by $m_f in $name parisrc=ser3=($a_*ser1+($b_))/($c_*ser1+($d_)) given=ser1 calcname=
wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/.remark 0000644 0001750 0001750 00000000160 10315753763 025772 0 ustar georgesk georgesk Levels: 1. sum and combination 2. multiplication and square 3. division and composition 4. inverse composition wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/derivsum 0000644 0001750 0001750 00000000365 10315753763 026300 0 ustar georgesk georgesk title=1. Derivada de la suma (f+g)' sol=3 prompt=$m_h(x) cc=!randitem +,- shift=1 parisrc=ser3=deriv(ser1 $cc ser2,x) given=ser1 ser2 calcname=
fname=la función derivada wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/mult 0000644 0001750 0001750 00000000230 10315753761 025410 0 ustar georgesk georgesk title=2. Producto f*g sol=3 prompt=$m_h(x) parisrc=ser3=ser1 * ser2 given=ser1 ser2 calcname=
wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/derivprod 0000644 0001750 0001750 00000000337 10315753762 026436 0 ustar georgesk georgesk title=2. Derivada del producto (f*g)' sol=3 prompt=$m_h(x) shift=1 parisrc=ser3=deriv(ser1 * ser2,x) given=ser1 ser2 calcname=
fname=la función derivada wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/compinv1 0000644 0001750 0001750 00000000510 10315753762 026165 0 ustar georgesk georgesk title=4. Composición inversa I sol=1 prompt=$m_g(x) a0=0 !if $center!=0 y0=!randitem -5,-4,-3,-2,-1,1,2,3,4,5 A0=$y0+ !endif !ifval $x0!=$y0 tenemos=$y0 y $x0 respectivamente !else tenemos=$x0 !endif parisrc=ser3=subst(ser2,x,ser1) given=ser2 ser3 givenname2=$m_f($m_g(x)) calcname=$m_g(x) (dado que $m_f es inyectiva). wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/polynomial 0000644 0001750 0001750 00000000452 10315753761 026620 0 ustar georgesk georgesk title=2. Polinomio de f sol=3 prompt=$m_h(x) !for i in a_,b_,c_ t_=!randint 1,5 $i=!randitem -$t_,$t_ !next i name=!htmlmath $a_+$b_*f(x)+$c_*f(x)^2 name=!replace f by $m_f in $name parisrc=ser3=$a_+($b_)*ser1+($c_)*ser1^2 given=ser1 calcname=
wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/squaresum 0000644 0001750 0001750 00000000330 10315753762 026456 0 ustar georgesk georgesk title=2. Cuadrado de la suma (f+g)^2 sol=3 sign=!randitem +,- prompt=$m_h(x) parisrc=ser3=(ser1 $sign ser2)^2 given=ser1 ser2 calcname=
wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/.types.dic 0000644 0001750 0001750 00000001226 10315753761 026415 0 ustar georgesk georgesk addition:1. Suma f+g addmixed:1. Suma mixta combin:1. Combinación linear af+bg compinv1:4. Composición inversa I compinv2:4. Composición inversa II compo:3. Composición f(g(x)) CVS: deriv:1. Derivada f' derivprod:2. Derivada del producto (f*g)' derivsum:1. Derivada de la suma (f+g)' division:3. División f/g int:2. Integral inv:4. Función inversa f^-1 linfrac:4. Fracción lineal mult:2. Producto f*g multderiv:2. Producto por derivada f*f' multmixed:2. Producto mixto polynomial:2. Polinomio de f reciproc:3. Función 1/f square:2. Cuadrado f^2 squaresum:2. Cuadrado de la suma (f+g)^2 sumsquare:2. Suma de cuadrados f^2+g^2 sumwderiv:1. Suma con derivada f+f' wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/types/reciproc 0000644 0001750 0001750 00000000176 10315753763 026250 0 ustar georgesk georgesk title=3. Función 1/f sol=3 prompt=$m_h(x) a0=$random2 parisrc=ser3=1/ser1 given=ser1 calcname=$m_h(x) = 1/$m_f(x) . wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/main.phtml 0000644 0001750 0001750 00000000663 10315753764 025347 0 ustar georgesk georgesk !header !read present.phtml
!if $status=waiting !if $error!=$empty !read msg.phtml
!endif !read form.phtml
!href cmd=reply&job=abandon Abandonar y ver la solución . !href exo_Renew . !else !if $error!=$empty !read msg.phtml !endif !read answer.phtml
!href exo_Again
.
!if $worksheet=$empty
!href exo_Init
.
!endif
!endif
:end
!tail
!distribute item $ into job
wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/var.def 0000644 0001750 0001750 00000000513 10315753764 024617 0 ustar georgesk georgesk center init
ORder init
types init
P reply
job reply
order deny
status deny
replycnt deny
poly1 deny
poly2 deny
poly3 deny
polh1 deny
polh2 deny
polh3 deny
ser1 deny
ser2 deny
ser3 deny
vec1 deny
vec2 deny
vec3 deny
title deny
shift deny
present deny
sol deny
prompt deny
rest deny
x0 deny
y0 deny
z0 deny
t0 deny
explicite deny
wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/form.phtml 0000644 0001750 0001750 00000000454 10315753764 025364 0 ustar georgesk georgesk
!form reply
su respuesta:
el desarrollo de Taylor es
$prompt = + O($rest)
Aviso. ¡Este ejercicio no acepta respuestas aproximadas! Escriba 1/3 en vez de 0.333333333.
wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/INDEX 0000644 0001750 0001750 00000001050 10315753764 024136 0 ustar georgesk georgesk title=Taylor # Commencez la description par minuscule! description=manipulaciones algebraicas de desarrollos de Taylor author=XIAO Gang address=xiao@unice.fr copyright=© 2000- (GNU GPL) translator=J. Rafael Rodríguez Galván translator_address=rafael.rodriguez(at)uca.es version=1.20 wims_version=3.01 language=es category=exercise level=U1, U2 domain=analysis #keywords=Taylor, function, derivative, integral, differential equation keywords=Taylor, función, derivada, integral, diferencial, ecuación require=pari scoring=yes wims-modules-es-3.64.orig/modules/U1/analysis/taylor.es/msg.phtml 0000644 0001750 0001750 00000002653 10315753764 025212 0 ustar georgesk georgesk Error. !if $error=abandon Es una pena que haya abandonado. La solución es:
(Su renuncia le da una nota igual a 0.) !exit !endif !if $error=wrong !if $status=waiting Su respuesta no es correcta. Puede corregirla e intentarlo de nuevo. !endif !exit !endif !if $error=not_poly La parte principal del desarrollo de Taylor de $prompt debería ser un polinomio en !if $t0=0 x, !else !htmlmath x-$t0, !endif que no es el caso para la respuesta que ha enviado.
!if $status=waiting Por favor, corrija su error. !endif !exit !endif !if bad_poly=$error He fallado al evaluar su respuesta $P. ¿Se trata de un error al teclear? Por favor, corríjalo. !exit !endif !if $error=real_coefficient Parece haber introducido un polinoio con coeficientes en coma flotante.
Este ejercicio no admite respuestas aproximadas. Por favor, escriba todos sus coeficientes en forma de fracción. !exit !endif !if $error=bad_degree ¡Ha introducido un polinomio de grado $deg!
En un desarrollo de Taylor de orden $order, no tienen sentido los términos de grado >$order. Por lo tanto, su respuesta indica que no ha comprendido correctamente el signficado del desarrollo de Talor, y por ello es considerada como falsa.
considered as false.
!if $status=waiting Puede corregir su respuesta e intentarlo de nuevo. !endif !exit !endif !msg $error wims-modules-es-3.64.orig/modules/U1/analysis/estado-traduccion.txt 0000644 0001750 0001750 00000000704 10603511343 025563 0 ustar georgesk georgesk Módulo | Estado[1] ----------------+------------------------------------------------------------ coincdev | T- dialderiv.es | T- grconv.es | T oefcont.es | T oefderiv.es | T oeftaylor.es | T taylor.es | T ----------------+------------------------------------------------------------ [1] N = no traducido T- = traducido, quizás con algún error T = traducido (pero no repasado) T+ = traducido y repasado wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/ 0000755 0001750 0001750 00000000000 10575503675 023322 5 ustar georgesk georgesk wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/def/ 0000755 0001750 0001750 00000000000 10575503672 024055 5 ustar georgesk georgesk wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/def/monotony.def 0000644 0001750 0001750 00000010344 10575503662 026420 0 ustar georgesk georgesk !set title=Monotonía I !if $wims_read_parm!=$empty !goto $wims_read_parm !endif oef2wims_version=3.22 language=en leftrange=-3.000000 rightrange=3.000000 author=Gang XIAO email=xiao@unice.fr computeanswer=yes precision=10000 ansorder=c,r,r,r,r varcnt=38 prevarcnt=37 postvarcnt=0 replycnt=4 choicecnt=1 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=no val7=inf val8=siempre creciente val9=siempre decreciente val10=creciente a partir de algún valor val11=decreciente a partir de algún valor val12=indeterminado hacia el infinito val13=$val12,$val8,$val9,$val10,$val11 tmp0=!randint 2, 10 tmp1=!randitem -1,1 val14=$[rint($(tmp0)*$(tmp1))] tmp0=!randint 2, 10 tmp1=!randitem -1,1 val15=$[rint($(tmp0)*$(tmp1))] tmp0=!randint 2, 10 tmp1=!randitem -1,1 val16=$[rint($(tmp0)*$(tmp1))] tmp0=!randint 2, 10 tmp1=!randitem -1,1 val17=$[rint($(tmp0)*$(tmp1))] tmp0=!randint 2, 10 tmp1=!randitem -1,1 val18=$[rint($(tmp0)*$(tmp1))] tmp0=!randint 2, 10 val19=$[rint($(tmp0))] tmp0=!randint 2, 10 val20=$[rint($(tmp0))] tmp0=!randint 2, 10 val21=$[rint($(tmp0))] tmp0=!randint 2, 10 val22=$[rint($(tmp0))] tmp0=!randint 2, 10 val23=$[rint($(tmp0))] tmp0=!randitem 3,4,5 val24=$[rint($(tmp0))] tmp0=!randint 10, 90 tmp1=!randint 0, 5 tmp2=!randitem -1,1 val25=$[($(tmp0)/100+$(tmp1))*$(tmp2)] tmp0=!randint 10, 90 tmp1=!randint 0, 5 tmp2=!randitem -1,1 val26=$[($(tmp0)/100+$(tmp1))*$(tmp2)] tmp0=!randitem 1,2,3,5,8 tmp1=!randitem 1000,10000,100000 tmp2=!randitem -1,1 val27=$[rint($(tmp0)*$(tmp1)*$(tmp2))] tmp0=!randitem 1,2,3,5,8 tmp1=!randitem 1000,10000,100000 tmp2=!randitem -1,1 val28=$[rint($(tmp0)*$(tmp1)*$(tmp2))] tmp0=!randint 1, 20 val29=$[$(tmp0)/50+1] tmp0=!randint 1, 20 val30=$[$(tmp0)/50+1] tmp0=!randint 1, 10 val31=$[rint($(tmp0))] tmp0=!randitem n^2,n^3,sqrt(n),n! tmp1=!randitem n^2,n^3,sqrt(n),n! tmp=!trim $val14+$val19/n, $val31, $val9, $val14,$val14+$val19/$val31,$val6,same $val14-$val19/n, $val31, $val8, $val14-$val19/$val31,$val14,same,$val6 $val14+$val19/$(tmp0),1, $val9, $val14,$val14+$val19,$val6,same $val14-$val19/$(tmp1),1, $val8, $val14-$val19,$val14,same,$val6 $val14+(-1)^n*$val19/n, 1, $val12, $val14-$val19,$val14+$val19/2,same,same $val14-(-1)^n*$val19/n, 1, $val12, $val14-$val19/2,$val14+$val19,same,same n^2-$val19*n+$val15, 0, $val10, -floor($val19/2)*ceil($val19/2)+$val15,$val7,same,$val6 -n^2+$val19*n+$val15, 0, $val11, -$val7,floor($val19/2)*ceil($val19/2)+$val15,$val6,same val32=!translate internal $ \ $ to ;; in $tmp tmp=!translate internal $ $ to ; in $val32 tmp=!nonempty rows $tmp tmp=!randrow $tmp tmp0=!translate internal $\ $ to ; in $tmp val33=$(tmp0) tmp0=!item 1 of $val33 tmp1=!texmath $(tmp0) val34=$(tmp1) tmp0=!item 2 of $val33 val35=$[rint($(tmp0))] tmp0=!item 3 of $val33 val36=$(tmp0) tmp0=!item 4 of $val33 t_=!replace internal \( by ( in $(tmp0) tmp1=!exec pari $t_ val37=$(tmp1) tmp0=!item 5 of $val33 t_=!replace internal \( by ( in $(tmp0) tmp1=!exec pari $t_ val38=$(tmp1) tmp0=!item 6 of $val33 val39=$(tmp0) tmp0=!item 7 of $val33 val40=$(tmp0) !ifval $val39 iswordof same val39=$val37 !endif !ifval $val40 iswordof same val40=$val38 !endif replytype1=function replyname1=inf{un} replygood1=!rawmath $val37,$val6,$val7 replytype2=function replyname2=sup{un} replygood2=!rawmath $val38,$val6,$val7 replytype3=function replyname3=min{un} replygood3=!rawmath $val39,$val6,$val7 replytype4=function replyname4=max{un} replygood4=!rawmath $val40,$val6,$val7 choicename1=El crecimiento de la sucesión choicegood1=$val36 choicebad1=$val13 question=__EXECUTED_1692754_EXERCISE__ !goto stat !exit :question $()Estudiar el crecimiento, sup, inf, min, max de la sucesión (un) para n $m_ge $val35, donde
Escribir $val6 para indicar que determinado valor no existe, y $val7 o -$val7 para +$m_infty o -$m_infty. $() !exit :hint $() $() !exit :help $() $() !exit :solution $() $() !exit :feedback !exit :test !exit :stat vsavelist=6,7,34,35 embedcnt=0 wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/def/monotony2.def 0000644 0001750 0001750 00000014106 10575503671 026502 0 ustar georgesk georgesk !set title=Monotonía II !if $wims_read_parm!=$empty !goto $wims_read_parm !endif oef2wims_version=3.22 language=en leftrange=-3.000000 rightrange=3.000000 author=Gang XIAO email=xiao@unice.fr computeanswer=yes precision=10000 ansorder=c,r,r,r,r varcnt=49 prevarcnt=48 postvarcnt=0 replycnt=4 choicecnt=1 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=no val7=inf val8=siempre creciente val9=siempre decreciente val10=creciente a partir de algún valor val11=decreciente a partir de algún valor val12=indeterminado hacia el infinito val13=$val12,$val8,$val9,$val10,$val11 tmp0=!randint 2, 10 tmp1=!randitem -1,1 val14=$[rint($(tmp0)*$(tmp1))] tmp0=!randint 2, 10 tmp1=!randitem -1,1 val15=$[rint($(tmp0)*$(tmp1))] tmp0=!randint 2, 10 tmp1=!randitem -1,1 val16=$[rint($(tmp0)*$(tmp1))] tmp0=!randint 2, 10 tmp1=!randitem -1,1 val17=$[rint($(tmp0)*$(tmp1))] tmp0=!randint 2, 10 tmp1=!randitem -1,1 val18=$[rint($(tmp0)*$(tmp1))] tmp0=!randint 2, 10 val19=$[rint($(tmp0))] tmp0=!randint 2, 10 val20=$[rint($(tmp0))] tmp0=!randint 2, 10 val21=$[rint($(tmp0))] tmp0=!randint 2, 10 val22=$[rint($(tmp0))] tmp0=!randint 2, 10 val23=$[rint($(tmp0))] tmp0=!randint 5, 15 val24=$[rint($(tmp0))] tmp0=!randint 10, 100 val25=$[rint($(tmp0))] tmp0=!randitem 3,4,5 val26=$[rint($(tmp0))] tmp0=!randint 10, 90 tmp1=!randint 0, 5 tmp2=!randitem -1,1 val27=$[($(tmp0)/100+$(tmp1))*$(tmp2)] tmp0=!randint 10, 90 tmp1=!randint 0, 5 tmp2=!randitem -1,1 val28=$[($(tmp0)/100+$(tmp1))*$(tmp2)] tmp0=!randint 1, 20 val29=$[$(tmp0)/50+1] tmp0=!randint 1, 20 val30=$[$(tmp0)/50+1] tmp0=!randint 1, 10 val31=$[rint($(tmp0))] tmp0=!randitem 2,4 tmp1=!randitem n,n^2,n^3 tmp2=!randitem 1,2,3 tmp3=!randitem 2,4 tmp4=!randitem n,n^2,n^3 tmp5=!randitem 1,2,3 tmp6=!randint 5, 15 tmp7=!randint 0, 2 tmp8=!randint 5, 15 tmp9=!randint 0, 2 tmp=!trim $val19*n/(n^2+$val25), 0, $val11, 0,diff,0,same $val19*n/(n^2+$val25), 1, $val11, 0,diff,$val6,same -$val19*n/(n^2+$val25), 0, $val10, diff,0,same,0 -$val19*n/(n^2+$val25), 1, $val10, diff,0,same,$val6 $val19*cos($(tmp0)*pi*n)/$(tmp1),$(tmp2),$val9, 0,start,$val6,same -$val19*cos($(tmp3)*pi*n)/$(tmp4),$(tmp5),$val8, start,0,same,$val6 $val19*cos(pi*n/2)/(n+$val20), 0, $val12, -$val19/(2+$val20),$val19/$val20,same,same -$val19*cos(pi*n/2)/(n+$val20), 0, $val12, -$val19/$val20,$val19/(2+$val20),same,same $val19*sin(pi*n/2)/(n+$val20), 0, $val12, -$val19/(3+$val20),$val19/(1+$val20),same,same -$val19*sin(pi*n/2)/(n+$val20), 0, $val12, -$val19/(1+$val20),$val19/(3+$val20),same,same $val24*ln($(tmp6)*n+$val26)-n, $(tmp7),$val11, -$val7,diff,$val6,same -$val24*ln($(tmp8)*n+$val26)+n, $(tmp9),$val10, diff,$val7,same,$val6 val32=!translate internal $ \ $ to ;; in $tmp tmp=!translate internal $ $ to ; in $val32 tmp=!nonempty rows $tmp tmp=!randrow $tmp tmp0=!translate internal $\ $ to ; in $tmp val33=$(tmp0) tmp0=!item 1 of $val33 val34=$(tmp0) tmp0=!texmath $val34 val35=$(tmp0) tmp0=!item 2 of $val33 val36=$[rint($(tmp0))] tmp0=!item 3 of $val33 val37=$(tmp0) tmp0=!item 4 of $val33 val38=$(tmp0) tmp0=!item 5 of $val33 val39=$(tmp0) !ifval $val38 notwordof start diff t_=!replace internal \( by ( in $val38 tmp0=!exec pari $t_ val38=$(tmp0) !endif !ifval $val39 notwordof start diff t_=!replace internal \( by ( in $val39 tmp0=!exec pari $t_ val39=$(tmp0) !endif !ifval start iswordof $val38 evaltmp=$val34 evaltmp=!mathsubst n=($val36) in $evaltmp tmp0=($evaltmp) val38=$[$(tmp0)] !endif !ifval start iswordof $val39 evaltmp=$val34 evaltmp=!mathsubst n=($val36) in $evaltmp tmp0=($evaltmp) val39=$[$(tmp0)] !endif !ifval diff iswordof $val38 tmp=!translate ;";': to $ $ in $val34,n tmp=!lower $tmp tmp0=!exec maxima diff($tmp); val40=$(tmp0) !endif !ifval diff iswordof $val38 tmp=!replace internal .. by , in $val40,n=$val36..100 !distribute items $tmp into tmp1,tmp2,tmp3 tmp2=!replace internal = by , in $tmp2 !distribute items $tmp2 into tmp4,tmp5 tmp0=!solve $tmp1 for $tmp4 = $tmp5 to $tmp3 val41=$(tmp0) !endif !ifval diff iswordof $val38 evaltmp=$val34 evaltmp=!mathsubst n=(floor($val41)) in $evaltmp tmp0=($evaltmp) evaltmp=$val34 evaltmp=!mathsubst n=(ceil($val41)) in $evaltmp tmp1=($evaltmp) val38=$[ min($(tmp0),$(tmp1)) ] !endif !ifval diff iswordof $val39 tmp=!translate ;";': to $ $ in $val34,n tmp=!lower $tmp tmp0=!exec maxima diff($tmp); val42=$(tmp0) !endif !ifval diff iswordof $val39 tmp=!replace internal .. by , in $val42,n=$val36..100 !distribute items $tmp into tmp1,tmp2,tmp3 tmp2=!replace internal = by , in $tmp2 !distribute items $tmp2 into tmp4,tmp5 tmp0=!solve $tmp1 for $tmp4 = $tmp5 to $tmp3 val43=$(tmp0) !endif !ifval diff iswordof $val39 evaltmp=$val34 evaltmp=!mathsubst n=(floor($val43)) in $evaltmp tmp0=($evaltmp) evaltmp=$val34 evaltmp=!mathsubst n=(ceil($val43)) in $evaltmp tmp1=($evaltmp) val39=$[ max($(tmp0),$(tmp1)) ] !endif tmp0=!item 6 of $val33 val44=$(tmp0) tmp0=!item 7 of $val33 val45=$(tmp0) !ifval $val44 iswordof same val44=$val38 !endif !ifval $val45 iswordof same val45=$val39 !endif replytype1=function replyname1=inf{un} replygood1=!rawmath $val38,$val6,$val7 replytype2=function replyname2=sup{un} replygood2=!rawmath $val39,$val6,$val7 replytype3=function replyname3=min{un} replygood3=!rawmath $val44,$val6,$val7 replytype4=function replyname4=max{un} replygood4=!rawmath $val45,$val6,$val7 choicename1=El crecimiento de la sucesión choicegood1=$val37 choicebad1=$val13 question=__EXECUTED_1692754_EXERCISE__ !goto stat !exit :question $()Estudiar el crecimiento, sup, inf, min, max de la sucesión (un) para n $m_ge $val36, donde
Escribir $val6 para indicar que determinado valor no existe, y $val7 o -$val7 para +$m_infty o -$m_infty. $() !exit :hint $() $() !exit :help $() $() !exit :solution $() $() !exit :feedback !exit :test !exit :stat vsavelist=6,7,35,36 embedcnt=0 wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/def/frac3b.def 0000644 0001750 0001750 00000004024 10575503666 025700 0 ustar georgesk georgesk !set title=Fracción con 3 términos II !if $wims_read_parm!=$empty !goto $wims_read_parm !endif oef2wims_version=3.22 language=en leftrange=-3.000000 rightrange=3.000000 author=Gang XIAO email=xiao@unice.fr computeanswer=yes precision=10000 ansorder=r varcnt=15 prevarcnt=14 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 tmp0=!shuffle 2,3,pi,e,(1/e),(1/pi),(sqrt(2)),(sqrt(5)),(sqrt(10)), (pi+1),(pi+2),(e+1),(e+2),(2*pi+1),(2*e+1) val6=$(tmp0) tmp0=!item 1 of $val6 val7=$(tmp0) tmp0=!item 2 of $val6 val8=$(tmp0) tmp0=!item 3 of $val6 val9=$(tmp0) tmp0=!randitem -1,1 !ifval $(tmp0)>0 val7=$val7 !else val7=(-$val7) !endif tmp0=!randitem -1,1 !ifval $(tmp0)>0 val8=$val8 !else val8=(-$val8) !endif tmp0=!randitem -1,1 !ifval $(tmp0)>0 val9=$val9 !else val9=(-$val9) !endif tmp0=!shuffle n,(n-1),(n-2),(n-3),(n-4),(n+1),(n+2),(n+3),(n+4) val10=$(tmp0) tmp0=!item 1 of $val10 val11=$(tmp0) tmp0=!item 2 of $val10 val12=$(tmp0) evaltmp=$val11-$val12 evaltmp=!mathsubst n=(0) in $evaltmp tmp0=($evaltmp) val13=$(tmp0) !ifval abs($val7)>abs($val8) val14=$val7 !else val14=$val8 !endif !ifval abs($val9)>abs($val14) val14=$val9 !endif t_=!replace internal \( by ( in ($val14)^($val13); tmp0=!exec maxima $t_ val15=$(tmp0) replytype1=formal replyname1=lim(un) replygood1=$val15 question=__EXECUTED_1692754_EXERCISE__ !goto stat !exit :question $()Calcular el límite de la sucesión (un), donde
WARNING En este ejercicio, las respuestas aproximadas serán consideradas falsas! Tomar pi en lugar de 3.14159265, por ejemplo. $() !exit :hint $() $() !exit :help $() $() !exit :solution $() $() !exit :feedback !exit :test !exit :stat vsavelist=7,8,9,11,12 embedcnt=0 wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/def/frac3.def 0000644 0001750 0001750 00000003424 10575503667 025542 0 ustar georgesk georgesk !set title=Fracción con 3 términos !if $wims_read_parm!=$empty !goto $wims_read_parm !endif oef2wims_version=3.22 language=en leftrange=-3.000000 rightrange=3.000000 author=Gang XIAO email=xiao@unice.fr computeanswer=yes precision=10000 ansorder=r varcnt=15 prevarcnt=14 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 tmp0=!shuffle 8 val6=$(tmp0) tmp0=!item 1 of $val6 val7=$[rint($(tmp0)+1)] tmp0=!item 2 of $val6 val8=$[rint($(tmp0)+1)] tmp0=!item 3 of $val6 val9=$[rint($(tmp0)+1)] tmp0=!randitem -1,1 !ifval $(tmp0)>0 val7=$val7 !else val7=(-$val7) !endif tmp0=!randitem -1,1 !ifval $(tmp0)>0 val8=$val8 !else val8=(-$val8) !endif tmp0=!randitem -1,1 !ifval $(tmp0)>0 val9=$val9 !else val9=(-$val9) !endif tmp0=!shuffle n,(n-1),(n-2),(n+1),(n+2) val10=$(tmp0) tmp0=!item 1 of $val10 val11=$(tmp0) tmp0=!item 2 of $val10 val12=$(tmp0) evaltmp=$val11-$val12 evaltmp=!mathsubst n=(0) in $evaltmp tmp0=($evaltmp) val13=$[rint($(tmp0))] !ifval abs($val7)>abs($val8) val14=$[rint($val7)] !else val14=$[rint($val8)] !endif !ifval abs($val9)>abs($val14) val14=$[rint($val9)] !endif val15=$[($val14)^($val13)] replytype1=numeric replyname1=lim(un) replygood1=$[$val15] question=__EXECUTED_1692754_EXERCISE__ !goto stat !exit :question $()Calcular el límite de la sucesión (un), donde
$() !exit :hint $() $() !exit :help $() $() !exit :solution $() $() !exit :feedback !exit :test !exit :stat vsavelist=7,8,9,11,12 embedcnt=0 wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/def/2lim.def 0000644 0001750 0001750 00000005733 10575503662 025407 0 ustar georgesk georgesk !set title=Dos limites !if $wims_read_parm!=$empty !goto $wims_read_parm !endif oef2wims_version=3.22 language=en leftrange=-3.000000 rightrange=3.000000 author=Gang XIAO email=xiao@unice.fr computeanswer=yes precision=10000 ansorder=c varcnt=38 prevarcnt=37 postvarcnt=0 replycnt=0 choicecnt=1 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=n val7=un tmp0=!randint 20, 50 tmp1=!randitem -1,1 val8=$[rint($(tmp0)*$(tmp1))] tmp0=!randint 2, 12 tmp1=!randitem -1,1 val9=$[rint($val8+$(tmp0)*$(tmp1))] val10=$[rint(-$val8)] val11=$[rint(-$val9)] !ifval $val10>0 val12= + $val10 !else val12= - $val8 !endif !ifval $val11>0 val13= + $val11 !else val13= - $val9 !endif val14=| $val7 $val12 | val15=| $val7 $val13 | val16= tmp0=!randitem 1/$val6,2/$val6,10/$val6,3/$val6,1/$val62,2/$val62 val17=$(tmp0) tmp0=!randitem 1/2,2/3,1/3,1/5,1/10,1/50,1/100,1/1000 val18=$(tmp0) tmp0=!randint 1, 8 tmp1=!randitem 100,1000,10000,100000 val19=$[rint($(tmp0)*$(tmp1))] tmp0=!randint 1, 8 tmp1=!randitem 100,1000,10000,100000 val20=$[rint($(tmp0)*$(tmp1))] val21=La convergencia no puede ser determinada val22=Converge hacia $val8 val23=Converge hacia $val9 val24=Es divergente val25=Esa sucesión no existe tmp0=!randitem $val6>$val20,$val6 val26=$(tmp0) val27=< $val17, < $val17, > $val19, < $val17, < $val17, < $val19, < $val19, > $val17, < $val17, < $val17, > $val17, < $val18, < $val18 val28=> $val17, < $val17, > $val19, < $val19, > $val19, < $val19, > $val19, > $val17, > $val18, < $val18, < $val18, < $val18, > $val18 val29=$val22,$val25,$val21,$val22,$val25, $val21,$val21,$val21,$val22,$val25, $val21,$val25,$val21, val30=$val23,$val22,$val24,$val23,$val22, $val22,$val22,$val24,$val24,$val22, $val24,$val22,$val22, tmp0=!itemcnt $val27 val31=$[rint($(tmp0))] tmp0=!randint 1, $val31 val32=$[rint($(tmp0))] tmp0=!item $val32 of $val27 val33=$(tmp0) tmp0=!item $val32 of $val28 val34=$(tmp0) tmp0=!item $val32 of $val29 val35=$(tmp0) tmp0=!item $val32 of $val30 val36=$(tmp0) val37=$val36,$val21,$val22,$val23,$val24,$val25 val38=$val14 $val33 val39=$val15 $val34 tmp0=!randitem 0,1 val40=$[rint($(tmp0))] !ifval $val40=1 val41=$val38 !else val41=$val39 !endif !ifval $val40=1 val42=$val39 !else val42=$val38 !endif choicename1=Su respuesta es choicegood1=$val35 choicebad1=$val37 question=__EXECUTED_1692754_EXERCISE__ !goto stat !exit :question $()Sea ($val7) una sucesión infinita de números reales. Si se tiene
¿Qué se puede decir acerca de la convergencia? (Debes elegir la mejor opción.) $() !exit :hint $() $() !exit :help $() $() !exit :solution $() $() !exit :feedback !exit :test !exit :stat vsavelist=7,26,41,42 embedcnt=0 wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/def/cvdiff.def 0000644 0001750 0001750 00000006026 10575503664 026003 0 ustar georgesk georgesk !set title=Convergencia y diferencia de términos !if $wims_read_parm!=$empty !goto $wims_read_parm !endif oef2wims_version=3.22 language=en leftrange=-3.000000 rightrange=3.000000 author=Gang XIAO email=xiao@unice.fr computeanswer=yes precision=10000 ansorder=c,c varcnt=22 prevarcnt=21 postvarcnt=0 replycnt=0 choicecnt=2 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=un+1-un val7=un+1/un val8=(un) tmp0=!randitem -5,-4,-3,-2,2,3,4,5 val9=$[rint($(tmp0))] tmp0=!randitem 1/2,2/3,1/3,1/4,3/4,-1/2,-2/3,-1/3,-1/4,-3/4 val10=$(tmp0) val11=converge hacia $val9, es convergente, es divergente, es convergente, es divergente, converge a 0 converge a 1, es convergente, es convergente val12=$val6 va hacia 0, $val6 va hacia 0, ($val6) converge hacia $val10, ($val6) es convergente, ($val6) es divergente, ($val6) converge hacia 0, ($val6) converge hacia 1, ($val6) es decreciente, (|$val6|) es decreciente val13=es convergente, es convergente, es divergente, es convergente, es divergente, converge a 0, converge a 1, es convergente, es convergente val14=1,1,0,1,0, 1,0,0,0 val15=0,0,1,0,1, 0,0,0,0 val16=Existen sucesiones divergentes para las que $val6 va hacia 0., Existen sucesiones divergentes para las que $val6 va hacia 0., Si $val6 no va a 0 entonces las sucesión $val8 es absolutamente divergente. Pero el recíproco no es cierto., Si ($val6) converge a un valor distinto de 0 entonces $val8 es divergente., Existen sucesiones divergentes para las que $val6 va hacia 0., Existen sucesiones divergentes para las que $val6 va hacia 0., Si ($val6) converge a 1 entonces $val8 es divergente., Pensar el caso en el que $val6 fuese negativo!, (|$val6|) puede converger hacia 0 sin ser decreciente. tmp0=!itemcnt $val11 val17=$[rint($(tmp0))] tmp0=!randint 1, $val17 val18=$[rint($(tmp0))] tmp0=!item $val18 of $val11 val19=$(tmp0) tmp0=!item $val18 of $val13 val20=$(tmp0) tmp0=!item $val18 of $val12 val21=$(tmp0) tmp0=!item $val18 of $val16 val22=$(tmp0) tmp0=!item $val18 of $val14 val23=$[rint($(tmp0))] tmp0=!item $val18 of $val15 val24=$[rint($(tmp0))] !ifval $val23=1 val25=Verdadera !else val25=Falsa !endif !ifval $val24=1 val26=Verdadera !else val26=Falsa !endif choicename1=A es choicegood1=$val25 choicebad1=Verdadera,Falsa choicename2=B es choicegood2=$val26 choicebad2=Verdadera,Falsa question=__EXECUTED_1692754_EXERCISE__ solution=__EXECUTED_1692754_EXERCISE__ !goto stat !exit :question $()Sea $val8 una sucesión de números reales. Entre las siguientes afirmaciones, ¿cuál es verdadera?, ¿cuál es falsa?
$() !exit :hint $()One might use the formula
$() !exit :help $() $() !exit :solution $() $() !exit :feedback !exit :test !exit :stat vsavelist=9 embedcnt=0 wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/def/.htaccess 0000644 0001750 0001750 00000000016 10575503662 025647 0 ustar georgesk georgesk deny from all wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/def/frac2.def 0000644 0001750 0001750 00000003072 10575503665 025536 0 ustar georgesk georgesk !set title=Fracción con 2 términos !if $wims_read_parm!=$empty !goto $wims_read_parm !endif oef2wims_version=3.22 language=en leftrange=-3.000000 rightrange=3.000000 author=Gang XIAO email=xiao@unice.fr computeanswer=yes precision=10000 ansorder=r varcnt=12 prevarcnt=11 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 tmp0=!shuffle 9 val6=$(tmp0) tmp0=!item 1 of $val6 val7=$[rint($(tmp0)+1)] tmp0=!item 2 of $val6 val8=$[rint($(tmp0)+1)] tmp0=!randitem -1,1 !ifval $(tmp0)>0 val7=$val7 !else val7=(-$val7) !endif tmp0=!randitem -1,1 !ifval $(tmp0)>0 val8=$val8 !else val8=(-$val8) !endif tmp0=!shuffle n,(n-1),(n-2),(n+1),(n+2) val9=$(tmp0) tmp0=!item 1 of $val9 val10=$(tmp0) tmp0=!item 2 of $val9 val11=$(tmp0) evaltmp=$val10-$val11 evaltmp=!mathsubst n=(0) in $evaltmp tmp0=($evaltmp) val12=$[rint($(tmp0))] !ifval abs($val7)>abs($val8) val13=$[rint($val7)] !else val13=$[rint($val8)] !endif val14=$[($val13)^($val12)] replytype1=numeric replyname1=lim(un) replygood1=$[$val14] question=__EXECUTED_1692754_EXERCISE__ !goto stat !exit :question $()Calcular el límite de la sucesión (un), donde
$() !exit :hint $() $() !exit :help $() $() !exit :solution $() $() !exit :feedback !exit :test !exit :stat vsavelist=7,8,10,11 embedcnt=0 wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/def/reclim.def 0000644 0001750 0001750 00000010124 10575503663 026006 0 ustar georgesk georgesk !set title=Límite recursivo !if $wims_read_parm!=$empty !goto $wims_read_parm !endif oef2wims_version=3.22 language=em leftrange=-0.900000 rightrange=0.900000 author=Gang XIAO email=xiao@unice.fr computeanswer=yes precision=10000 ansorder=r varcnt=31 prevarcnt=30 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 tmp0=!randint 2, 10 val6=$[rint($(tmp0))] tmp0=!randint 2, 10 tmp1=!randitem -1,1 val7=$[rint($(tmp0)*$(tmp1))] tmp0=!randitem 11,13,17,19 val8=$[rint($(tmp0))] tmp0=!randint $val8-4, 2*$val8 val9=$[rint($(tmp0))] tmp0=!randitem 1/3,2/3,1/4,3/4,1/5,2/5,3/5,4/5 val10=$(tmp0) tmp0=!randitem +,- val11=$(tmp0) val12=$val8/($val9$val11 x), sqrt($val6$val11 x), atan($val6$val11 x), sin($val7$val11 x), cos($val7$val11 x), ($val6$val11 x)^($val10) tmp0=!itemcnt $val12 val13=$[rint($(tmp0))] tmp0=!randint 1, $val13 val14=$[rint($(tmp0))] tmp0=!item $val14 of $val12 val15=!rawmath $(tmp0) tmp0=!randint 1, 18 val16=$[$(tmp0)/10] tmp0=!item $val14 of {$val8 \over {$val9 $val11 $val16}}, \sqrt{$val6 $val11 $val16}, \arctan\left($val6 $val11 $val16\right), \sin\left($val7 $val11 $val16\right), \cos\left($val7 $val11 $val16\right), \left($val6 $val11 $val16 \right)^{$val10} val17=$(tmp0) tmp0=!item $val14 of {$val8 \over {$val9 $val11 $val17}}, \sqrt{$val6 $val11 $val17}, \arctan\left($val6 $val11 $val17\right), \sin\left($val7 $val11 $val17\right), \cos\left($val7 $val11 $val17\right), \left($val6 $val11 $val17 \right)^{$val10} val18=$(tmp0) tmp0=!item $val14 of {$val8 \over {$val9 $val11 $val18}}, \sqrt{$val6 $val11 $val18}, \arctan\left($val6 $val11 $val18\right), \sin\left($val7 $val11 $val18\right), \cos\left($val7 $val11 $val18\right), \left($val6 $val11 $val18 \right)^{$val10} val19=$(tmp0) evaltmp=$val15 evaltmp=!mathsubst x=($val16) in $evaltmp tmp0=($evaltmp) val20=$[$(tmp0)] evaltmp=$val15 evaltmp=!mathsubst x=($val20) in $evaltmp tmp0=($evaltmp) val20=$[$(tmp0)] evaltmp=$val15 evaltmp=!mathsubst x=($val20) in $evaltmp tmp0=($evaltmp) val20=$[$(tmp0)] evaltmp=$val15 evaltmp=!mathsubst x=($val20) in $evaltmp tmp0=($evaltmp) val20=$[$(tmp0)] evaltmp=$val15 evaltmp=!mathsubst x=($val20) in $evaltmp tmp0=($evaltmp) val20=$[$(tmp0)] evaltmp=$val15 evaltmp=!mathsubst x=($val20) in $evaltmp tmp0=($evaltmp) val20=$[$(tmp0)] evaltmp=$val15 evaltmp=!mathsubst x=($val20) in $evaltmp tmp0=($evaltmp) val20=$[$(tmp0)] evaltmp=$val15 evaltmp=!mathsubst x=($val20) in $evaltmp tmp0=($evaltmp) val20=$[$(tmp0)] evaltmp=$val15 evaltmp=!mathsubst x=($val20) in $evaltmp tmp0=($evaltmp) val20=$[$(tmp0)] evaltmp=$val15 evaltmp=!mathsubst x=($val20) in $evaltmp tmp0=($evaltmp) val20=$[$(tmp0)] evaltmp=$val15 evaltmp=!mathsubst x=($val20) in $evaltmp tmp0=($evaltmp) val20=$[$(tmp0)] evaltmp=$val15 evaltmp=!mathsubst x=($val20) in $evaltmp tmp0=($evaltmp) val20=$[$(tmp0)] evaltmp=$val15 evaltmp=!mathsubst x=($val20) in $evaltmp tmp0=($evaltmp) val20=$[$(tmp0)] val21=$[$val20-1] val22=$[$val20+1] tmp=!replace internal .. by , in $val15 - x,x=$val21..$val22 !distribute items $tmp into tmp1,tmp2,tmp3 tmp2=!replace internal = by , in $tmp2 !distribute items $tmp2 into tmp4,tmp5 tmp0=!solve $tmp1 for $tmp4 = $tmp5 to $tmp3 val20=$[$(tmp0)] replytype1=default replyname1=El limite replygood1=$val20 question=__EXECUTED_1692754_EXERCISE__ hint=__EXECUTED_1692754_EXERCISE__ !goto stat !exit :question $()Encontrar el límite de la sucesión recursiva !insmath (u_n) $() tal que
$() !exit :hint $() $() !exit :help $() $() !exit :solution $() $() !exit :feedback !exit :test !exit :stat vsavelist=32,33 embedcnt=0 wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/def/crborn.def 0000644 0001750 0001750 00000004274 10575503660 026026 0 ustar georgesk georgesk !set title=Crecimiento y límite !if $wims_read_parm!=$empty !goto $wims_read_parm !endif oef2wims_version=3.22 language=en leftrange=-3.000000 rightrange=3.000000 author=Gang XIAO email=xiao@unice.fr computeanswer=yes precision=10000 ansorder=c varcnt=25 prevarcnt=24 postvarcnt=0 replycnt=0 choicecnt=1 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=n val7=un val8= tmp0=!randint 1, 8 tmp1=!randitem 100,1000,10000,100000 val9=$[rint($(tmp0)*$(tmp1))] tmp0=!randint -20, 20 val10=$[rint($(tmp0))] val11=La convergencia no puede ser determinada val12=Converge hacia un valor mayor o iual que $val10 val13=Converge hacia un valor menor o igual que $val10 val14=Converge hacia $val10 val15=Es divergente val16=Es convergente val17=Diverge hacia + infinito val18=Divege hacia - infinito val19=Esa sucesión no existe tmp0=!randitem $val6>$val9,all $val6 val20=$(tmp0) val21=creciente y $val7<$val10 para $val20, decreciente y $val7>$val10 para $val20, creciente y $val7>$val10 para $val20, decreciente y $val7<$val10 para $val20, creciente y no acotada superiormente, creciente y no acotada inferiormente, decreciente y no acotada superiormente, decreciente y no acotada inferiormente val22=$val13,$val12,$val11,$val11,$val17, $val19,$val19,$val18, tmp0=!itemcnt $val21 val23=$[rint($(tmp0))] tmp0=!randint 1, $val23 val24=$[rint($(tmp0))] tmp0=!item $val24 of $val21 val20=$(tmp0) tmp0=!item $val24 of $val22 val25=$(tmp0) tmp0=!item $val24 of \bads val26=$(tmp0) val27=$val12,$val13,$val14,$val15,$val19 !ifval $val24>=5 and $val24<=8 val27=$val19,$val16,$val17,$val18 !endif choicename1=Su respuesta es choicegood1=$val25 choicebad1=$val27 question=__EXECUTED_1692754_EXERCISE__ !goto stat !exit :question $()Sea ($val7) una sucesión de números reales. Si ($val7) es $val20, ¿Qué se puede decir acerca de la convergencia (después de su existencia)? $() !exit :hint $() $() !exit :help $() $() !exit :solution $() $() !exit :feedback !exit :test !exit :stat vsavelist=7,20 embedcnt=0 wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/def/pow2.def 0000644 0001750 0001750 00000004146 10575503667 025435 0 ustar georgesk georgesk !set title=Potencia II !if $wims_read_parm!=$empty !goto $wims_read_parm !endif oef2wims_version=3.22 language=en leftrange=-3.000000 rightrange=3.000000 author=Gang XIAO email=xiao@unice.fr computeanswer=yes precision=10000 ansorder=r varcnt=18 prevarcnt=17 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 tmp0=!randint 20, 80 val6=$[$(tmp0)/100] tmp0=!randint 20, 80 val7=$[$(tmp0)/100] tmp0=!randitem 0,1 val8=$[rint($(tmp0))] !ifval $val8=1 tmp0=!randint 1, 5 val6=$[$val6+$(tmp0)] !endif !ifval $val8=1 tmp0=!randint 1, 5 val7=$[$val7+$(tmp0)] !endif tmp0=!randint 0, 10 !ifval $val8=1 and $(tmp0)<3 val7= $val6 !endif tmp0=!randitem -1,1 !ifval $(tmp0)>0 val6=$val6 !else val6=(-$val6) !endif tmp0=!randitem -1,1 !ifval $(tmp0)>0 val7=$val7 !else val7=(-$val7) !endif tmp0=!randitem n,n,n,(n-1),(n-2),(n-3),(n-4),(n-5),(n+1),(n+2),(n+3),(n+4),(n+5) val9=$(tmp0) tmp0=!randitem n,n,n,(n-1),(n-2),(n-3),(n-4),(n-5),(n+1),(n+2),(n+3),(n+4),(n+5) val10=$(tmp0) evaltmp=$val9-$val10 evaltmp=!mathsubst n=(0) in $evaltmp tmp0=($evaltmp) val11=$[rint($(tmp0))] val12=$[(1-$val7)/(1-$val6)] !ifval $val11>0 && $val8=1 val12=$[$val12*$val6^$val11] !endif !ifval $val11<0 && $val8=1 val12=$[$val12*$val7^($val11)] !endif !ifval $val8=1 and abs($val6) > abs($val7) val12= no !endif !ifval $val8=1 and abs($val6) < abs($val7) val12=$[ 0] !endif !ifval $val8=1 and $val6+($val7)=0 val12= no !endif replytype1=default replyname1=lim(un) replygood1=$val12,no question=__EXECUTED_1692754_EXERCISE__ !goto stat !exit :question $()Calcular el límite de la sucesión (un), donde
Introducir no si la sucesión es divergente. $() !exit :hint $() $() !exit :help $() $() !exit :solution $() $() !exit :feedback !exit :test !exit :stat vsavelist=6,7,9,10 embedcnt=0 wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/def/epsilon.def 0000644 0001750 0001750 00000007730 10575503666 026220 0 ustar georgesk georgesk !set title=Epsilon !if $wims_read_parm!=$empty !goto $wims_read_parm !endif oef2wims_version=3.22 language=en leftrange=-3.000000 rightrange=3.000000 author=Gang XIAO email=xiao@unice.fr computeanswer=yes precision=10000 ansorder=c varcnt=33 prevarcnt=32 postvarcnt=0 replycnt=0 choicecnt=1 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=n val7=(un) val8= tmp0=!randint 3, 10 val9=$[rint($(tmp0))] tmp0=!randitem 5,10,20,30,50,80,100,200,300,500,1000,2000,5000,10000 val10=$[rint($(tmp0))] tmp0=!randint 1, 9 tmp1=!randitem 1000,1000000 val11=$[rint($(tmp0)*$(tmp1))] tmp0=!randitem 5,10,20,30,50,80,100,200,300,500,1000,2000,5000,10000 val12=$[rint($(tmp0))] tmp0=!randint 1, 9 tmp1=!randitem 1000,1000000 val13=$[rint($(tmp0)*$(tmp1))] tmp0=!randint 1, 5 tmp1=!randitem -1,1 val14=$[rint($(tmp0)*$(tmp1))] val15=$[rint(-($val14))] tmp0=!randitem 1/$val6,$val11/$val6,1/$val6!,$val11/$val6!, ($val6+1)/$val62,($val6+$val11)/$val62, 1/$val62,$val11/$val62, 1/$val6$val9,$val11/$val6$val9, exp(-$val6),exp(-2$val6),exp(-$val9$val6), 1/($val6+1),1/($val6+$val10),$val11/($val6+1),$val11/($val6+$val10) val16=$(tmp0) tmp0=!randitem $val6,$val62,$val6$val9, $val6/$val11,$val62/$val11,$val6$val9/$val11, exp($val6),exp(2$val6),exp($val9$val6), n!,n!/$val11 val17=$(tmp0) val18=Esta condición no determina la convergencia val19=Converge a $val14 val20=No converge a $val14 val21=Converge a $val15 val22=No converge a $val15 val23=Es divergente !ifval $val14<0 val24=+ $val15 !else val24=- $val14 !endif !ifval $val14>0 val25=+ $val14 !else val25=- $val15 !endif val26=| un $val24 | tmp0=!randitem para todo $val6>1, para algún $val6>$val12 val27=$(tmp0) tmp0=!randitem par,impar, divisible por 3, divisible por 5, divisible por 10, no divisible por 3, no divisible por 5, no divisible por 10 val28=$(tmp0) val29=$val26 < $val16$val8 $val27, $val26 < $val16$val8 $val27, $val26 < $val16$val8 $val27, $val26 < $val17$val8 $val27, $val26 > $val16$val8 $val27, $val26 > $val17$val8 $val27, $val26 > $val17$val8 $val27, $val26 > $val17$val8 $val27, $val26 < $val16$val8 para todo $val6<$val13, $val26 > $val17$val8 para todo $val6<$val13, $val26 < 1/$val11$val8 $val27, $val26 > 1/$val11$val8 $val27, $val26 < $val16$val8 para todo $val6 $val28, $val26 > $val17$val8 para todo $val6 $val28, $val26 < $val16 para $val6 par y | un $val25 | < $val16 para $val6 impar, $val26 < 1/$val11 para $val6 par y | un $val25 | < 1/$val11 para $val6 impar, $val26 < $val16 para $val6 par y $val26 < $val17 para $val6 impar, $val26 < $val16 para $val6 par y $val26 > $val17 para $val6 impar val30=$val19,$val19,$val19,$val18,$val18, $val23,$val23,$val23,$val18,$val18, $val18,$val20,$val18,$val23,$val23, $val23,$val18,$val23 val31=$val21,$val21,$val20,$val19,$val20, $val20,$val20,$val20,$val19,$val20, $val19,$val23,$val19,$val20,$val19, $val18,$val19,$val18 tmp0=!itemcnt $val29 val32=$[rint($(tmp0))] tmp0=!randint 1, $val32 val33=$[rint($(tmp0))] tmp0=!item $val33 of $val29 val34=$(tmp0) tmp0=!item $val33 of $val30 val35=$(tmp0) tmp0=!item $val33 of $val31 val36=$(tmp0) val37=$val36,$val19,$val21,$val20,$val23,$val18 choicename1=La respuesta ha sido choicegood1=$val35 choicebad1=$val37 question=__EXECUTED_1692754_EXERCISE__ !goto stat !exit :question $()Sea $val7 una sucesión de números reales. ¿Qué implica la condición
a la convergencia de $val7? (Debes elegir la mejor opción.) $() !exit :hint $() $() !exit :help $() $() !exit :solution $() $() !exit :feedback !exit :test !exit :stat vsavelist=7,34 embedcnt=0 wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/def/comp.def 0000644 0001750 0001750 00000006771 10575503660 025503 0 ustar georgesk georgesk !set title=Comparación de sucesiones !if $wims_read_parm!=$empty !goto $wims_read_parm !endif oef2wims_version=3.22 language=en leftrange=-3.000000 rightrange=3.000000 author=Gang XIAO email=xiao@unice.fr computeanswer=yes precision=10000 ansorder=c varcnt=35 prevarcnt=34 postvarcnt=0 replycnt=0 choicecnt=1 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=n val7=un val8=vn tmp0=!randint 2, 25 val9=$[rint($(tmp0))] tmp0=!randint 2, 20 val10=$[rint($val9+$(tmp0))] val11=| $val7 - $val9 | val12=| $val8 - $val10 | val13=| $val7 - $val10 | val14=| $val8 - $val9 | tmp0=!randint 2, 9 val15=$[rint($(tmp0))] tmp0=!randint 2, 9 val16=$[rint($(tmp0))] !ifval $val16=$val15 val16=$[rint($val15+1)] !endif val17=$[rint($val9*$val15)] val18=$[rint($val10*$val16)] val19= tmp0=!randint 1, 8 tmp1=!randitem 100,1000,10000,100000 val20=$[rint($(tmp0)*$(tmp1))] tmp0=!randitem par,impar, divisible por 3, divisible por 5, divisible por 10, no divisible por 3, no divisible por 5, no divisible por 10 val21=$(tmp0) tmp0=!randitem $val6>$val20,todo $val6 val22=$(tmp0) val23=$val15$val12 < $val16$val11$val19 para $val22, $val15$val12 > $val16$val11$val19 para $val22, $val15$val14 < $val16$val13$val19 para $val22, $val15$val14 > $val16$val13$val19 para $val22, $val15$val12 < | $val16$val7 - $val17 |$val19 para $val22, | $val15$val8 - $val18 | < $val16$val11$val19 para $val22, -$val15$val12 < $val16$val11$val19 para $val22, $val15$val12 < -$val16$val11$val19 para $val22, -$val15$val12 < -$val16$val11$val19 para $val22, -$val15$val12 > -$val16$val11$val19 para $val22, $val16$val12 < | $val15$val7 - $val17 |$val19 para $val22, | $val16$val8 - $val18 | < $val15$val11$val19 para $val22, $val15$val12 < $val16$val11$val19 para $val6<$val20, $val15$val14 > $val16$val13$val19 para $val6<$val20, $val15$val12 < $val16$val11$val19 para todo $val6 $val21, $val15$val14 > $val16$val13$val19 para todo $val6 $val21 val24=$val10,$val10,$val9,$val9,$val10, $val10,$val10,$val10,$val10,$val10, $val10,$val10,$val10,$val9,$val10, $val9 tmp0=!itemcnt $val23 val25=$[rint($(tmp0))] tmp0=!randint 1, $val25 val26=$[rint($(tmp0))] tmp0=!item $val26 of $val24 val27=$[$(tmp0)] tmp0=!item $val26 of $val23 val28=$(tmp0) val29=La convergencia no puede ser determinada val30=Converge hacia $val27 val31=Converge hacia $val10 - $val9 val32=No converge hacia $val27 val33=($val8) no existe val34=$val30,$val29,$val29,$val32,$val29, $val32,$val29,$val33,$val29,$val30, $val30,$val30,$val29,$val29,$val29, $val32, val35=$val29,$val30,$val30,$val29,$val30, $val30,$val30,$val29,$val30,$val29, $val29,$val18,$val30,$val32,$val30, $val29, tmp0=!item $val26 of $val34 val36=$(tmp0) tmp0=!item $val26 of $val35 val37=$(tmp0) val38=$val37,$val29,$val30,$val32,$val31,$val33 choicename1=Su respuesta es choicegood1=$val36 choicebad1=$val38 question=__EXECUTED_1692754_EXERCISE__ !goto stat !exit :question $()Sean ($val7) y ($val8) dos sucesiones de números reales donde ($val7) converge hacia $val9. Si tenemos
¿Qué se puede decir acerca de la convergencia de ($val8)? (Debes elegir la mejor opción.) $() !exit :hint $() $() !exit :help $() $() !exit :solution $() $() !exit :feedback !exit :test !exit :stat vsavelist=7,8,9,28 embedcnt=0 wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/def/cvratio.def 0000644 0001750 0001750 00000006637 10575503672 026220 0 ustar georgesk georgesk !set title=Convergencia y proporción de términos !if $wims_read_parm!=$empty !goto $wims_read_parm !endif oef2wims_version=3.22 language=en leftrange=-3.000000 rightrange=3.000000 author=Gang XIAO email=xiao@unice.fr computeanswer=yes precision=10000 ansorder=c,c varcnt=21 prevarcnt=20 postvarcnt=0 replycnt=0 choicecnt=2 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=un+1/un val7=(un) tmp0=!randitem -5,-4,-3,-2,2,3,4,5 val8=$[rint($(tmp0))] tmp0=!randitem 1/2,2/3,1/3,1/4,3/4,-1/2,-2/3,-1/3,-1/4,-3/4 val9=$(tmp0) val10=converge hacia $val8, es convergente converge hacia $val8, converge hacia -1, es divergente, converge hacia 0, converge hacia 0, converge hacia 0, converge hacia un valor no nulo, converge hacia $val9, converge hacia 0 val11=$val6 converge a 1, $val6 converge a 1, $val6 converge a 1, $val6 converge a -1, $val6 converge a $val8, $val6 converge a $val9, |$val6| converge hacia un valor menor que 1, |$val6|<1 a partir de algún n, $val6 converge a 1, $val6 converge a $val9, |$val6|<1 a partir de algún n, val12=es convergente, es convergente, no converge a 0, es divergente, es divergente, converge a 0, converge a 0, converge a 0, puede ser divergente, converge a $val9, es convergente, val13=1,0,1,0,0, 0,0,0,1,0, 0, val14=0,0,0,0,1, 1,1,0,1,0, 0, val15=Existen sucesiones divergentes para las que $val6 converge a 1., Existen sucesiones divergentes para las que $val6 converge a 1 y sucesiones convergentes a 0 para las que $val6 no converge a 1., Existen sucesiones convergentes a 0 para las que $val6 converge a 1., Existen sucesiones convergentes a 0 para las que $val6 converge a -1., Existen sucesiones divergentes para las que $val6 no tiene límite., Existen sucesiones convergentes a 0 para las que $val6 no tiene límite., Existen sucesiones convergentes a 0 para las que $val6 no tiene límite., , Existen sucesiones divergentes para las que $val6 converge a 1., $val7 converge a 0 cuando $val6 converge a $val9., Nada impide que $val6 tome valores de distinto signo y la sucesión diverja. Por ejemplo, la sucesión (-1)n(1+1/n) es divergente., tmp0=!itemcnt $val10 val16=$[rint($(tmp0))] tmp0=!randint 1, $val16 val17=$[rint($(tmp0))] tmp0=!item $val17 of $val10 val18=$(tmp0) tmp0=!item $val17 of $val12 val19=$(tmp0) tmp0=!item $val17 of $val11 val20=$(tmp0) tmp0=!item $val17 of $val15 val21=$(tmp0) tmp0=!item $val17 of $val13 val22=$[rint($(tmp0))] tmp0=!item $val17 of $val14 val23=$[rint($(tmp0))] !ifval $val22=1 val24=Verdadera !else val24=Falsa !endif !ifval $val23=1 val25=Verdadera !else val25=Falsa !endif choicename1=A es choicegood1=$val24 choicebad1=Verdadera,Falsa choicename2=B es choicegood2=$val25 choicebad2=Verdadera,Falsa question=__EXECUTED_1692754_EXERCISE__ solution=__EXECUTED_1692754_EXERCISE__ !goto stat !exit :question $()Sea $val7 una sucesión de números reales. Entre las siguientes afirmaciones, ¿cuál es verdadera?, ¿cuál es falsa?
¿Qué se puede decir acerca de la convergencia? (Debes elegir la mejor opción.)
¿Qué se puede decir acerca de la convergencia de ($val8)? (Debes elegir la mejor opción.)
a la convergencia de $val7? (Debes elegir la mejor opción.)
WARNING En este ejercicio, las respuestas aproximadas serán consideradas falsas! Tomar pi en lugar de 3.14159265, por ejemplo.
Escribir $val6 para indicar que determinado valor no existe, y $val7 o -$val7 para +$m_infty o -$m_infty.
Escribir $val6 para indicar que determinado valor no existe, y $val7 o -$val7 para +$m_infty o -$m_infty.
Introducir no si la sucesión es divergente.
} \answer{lim(un)}{\lim}{type=numeric} \hint{One might use the formula
} wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/src/reclim.oef 0000644 0001750 0001750 00000004000 10575503651 026043 0 ustar georgesk georgesk \title{Límite recursivo} \language{em} \range{-0.9..0.9} \author{Gang XIAO} \email{xiao@unice.fr} \computeanswer{yes} \format{html} \precision{10000} \integer{a=random(2..10)} \integer{A=random(2..10)*random(-1,1)} \integer{b=random(11,13,17,19)} \integer{c=random(\b-4..2*\b)} \text{rat=random(1/3,2/3,1/4,3/4,1/5,2/5,3/5,4/5)} \text{pm=random(+,-)} \text{flist= \b/(\c\pm x), sqrt(\a\pm x), atan(\a\pm x), sin(\A\pm x), cos(\A\pm x), (\a\pm x)^(\rat) } \integer{cnt=items(\flist)} \integer{ch=random(1..\cnt)} \function{f=item(\ch, \flist)} \real{u1=randint(1..18)/10} \text{u2=item(\ch, {\b \over {\c \pm \u1}}, \sqrt{\a \pm \u1}, \arctan\left(\a \pm \u1\right), \sin\left(\A \pm \u1\right), \cos\left(\A \pm \u1\right), \left(\a \pm \u1 \right)^{\rat} )} \text{u3=item(\ch, {\b \over {\c \pm \u2}}, \sqrt{\a \pm \u2}, \arctan\left(\a \pm \u2\right), \sin\left(\A \pm \u2\right), \cos\left(\A \pm \u2\right), \left(\a \pm \u2 \right)^{\rat} )} \text{u4=item(\ch, {\b \over {\c \pm \u3}}, \sqrt{\a \pm \u3}, \arctan\left(\a \pm \u3\right), \sin\left(\A \pm \u3\right), \cos\left(\A \pm \u3\right), \left(\a \pm \u3 \right)^{\rat} )} \real{lim=evalue(\f,x=\u1)} \real{lim=evalue(\f,x=\lim)} \real{lim=evalue(\f,x=\lim)} \real{lim=evalue(\f,x=\lim)} \real{lim=evalue(\f,x=\lim)} \real{lim=evalue(\f,x=\lim)} \real{lim=evalue(\f,x=\lim)} \real{lim=evalue(\f,x=\lim)} \real{lim=evalue(\f,x=\lim)} \real{lim=evalue(\f,x=\lim)} \real{lim=evalue(\f,x=\lim)} \real{lim=evalue(\f,x=\lim)} \real{lim=evalue(\f,x=\lim)} \real{l1=\lim-1} \real{l2=\lim+1} \real{lim=solve(\f - x,x=\l1..\l2)} \statement{Encontrar el límite de la sucesión recursiva \((u_n)) tal que
a la convergencia de \seq? (Debes elegir la mejor opción.) } \choice{La respuesta ha sido}{\good}{\lims} wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/src/recfn.oef 0000644 0001750 0001750 00000002752 10575503652 025702 0 ustar georgesk georgesk \title{Función recursiva} \language{en} \range{-0.9..0.9} \author{Gang XIAO} \email{xiao@unice.fr} \computeanswer{yes} \format{html} \precision{10000} \integer{a=random(2..10)} \integer{A=random(2..10)*random(-1,1)} \integer{b=random(11,13,17,19)} \text{rat=random(1/3,2/3,1/4,3/4,1/5,2/5,3/5,4/5)} \text{pm=random(+,-)} \text{flist= \b/(\a\pm x), sqrt(\a\pm x), atan(\a\pm x), sin(\A\pm x), cos(\A\pm x), (\a\pm x)^(\rat) } \integer{cnt=items(\flist)} \integer{ch=random(1..\cnt)} \function{f=item(\ch, \flist)} \integer{u1=random(1..9)} \integer{u1=\u1=\a?\a-1} \text{u2=item(\ch, {\b \over {\a \pm \u1}}, \sqrt{\a \pm \u1}, \arctan\left(\a \pm \u1\right), \sin\left(\A \pm \u1\right), \cos\left(\A \pm \u1\right), \left(\a \pm \u1 \right)^{\rat} )} \text{u3=item(\ch, {\b \over {\a \pm \u2}}, \sqrt{\a \pm \u2}, \arctan\left(\a \pm \u2\right), \sin\left(\A \pm \u2\right), \cos\left(\A \pm \u2\right), \left(\a \pm \u2 \right)^{\rat} )} \text{u4=item(\ch, {\b \over {\a \pm \u3}}, \sqrt{\a \pm \u3}, \arctan\left(\a \pm \u3\right), \sin\left(\A \pm \u3\right), \cos\left(\A \pm \u3\right), \left(\a \pm \u3 \right)^{\rat} )} \statement{La sucesión \((u_n)) tal que
Escribir \no para indicar que determinado valor no existe, y \Inf o -\Inf para +\infty o -\infty. } \choice{El crecimiento de la sucesión}{\goodcr}{\growth} \answer{inf{un}}{\inf,\no,\Inf}{type=function} \answer{sup{un}}{\sup,\no,\Inf}{type=function} \answer{min{un}}{\min,\no,\Inf}{type=function} \answer{max{un}}{\max,\no,\Inf}{type=function} wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/src/cvdiff.oef 0000644 0001750 0001750 00000004342 10575503643 026043 0 ustar georgesk georgesk \title{Convergencia y diferencia de términos} \language{en} \range{-3..3} \author{Gang XIAO} \email{xiao@unice.fr} \computeanswer{yes} \format{html} \precision{10000} \text{diff=un+1-un} \text{ratio=un+1/un} \text{seq=(un)} \integer{lim=random(-5,-4,-3,-2,2,3,4,5)} \text{half=random(1/2,2/3,1/3,1/4,3/4,-1/2,-2/3,-1/3,-1/4,-3/4)} \text{cvdvs=converge hacia \lim, es convergente, es divergente, es convergente, es divergente, converge a 0 converge a 1, es convergente, es convergente } \text{conds=\diff va hacia 0, \diff va hacia 0, (\diff) converge hacia \half, (\diff) es convergente, (\diff) es divergente, (\diff) converge hacia 0, (\diff) converge hacia 1, (\diff) es decreciente, (|\diff|) es decreciente } \text{cvdv2s=es convergente, es convergente, es divergente, es convergente, es divergente, converge a 0, converge a 1, es convergente, es convergente } \text{g1s=1,1,0,1,0, 1,0,0,0 } \text{g2s=0,0,1,0,1, 0,0,0,0 } \text{ans=Existen sucesiones divergentes para las que \diff va hacia 0., Existen sucesiones divergentes para las que \diff va hacia 0., Si \diff no va a 0 entonces las sucesión \seq es absolutamente divergente. Pero el recíproco no es cierto., Si (\diff) converge a un valor distinto de 0 entonces \seq es divergente., Existen sucesiones divergentes para las que \diff va hacia 0., Existen sucesiones divergentes para las que \diff va hacia 0., Si (\diff) converge a 1 entonces \seq es divergente., Pensar el caso en el que \diff fuese negativo!, (|\diff|) puede converger hacia 0 sin ser decreciente. } \integer{cnt=items(\cvdvs)} \integer{t=random(1..\cnt)} \text{cvdv=item(\t,\cvdvs)} \text{cvdv2=item(\t,\cvdv2s)} \text{cond=item(\t,\conds)} \text{an=item(\t,\ans)} \integer{g1=item(\t,\g1s)} \integer{g2=item(\t,\g2s)} \text{ch1=\g1=1?Verdadera:Falsa} \text{ch2=\g2=1?Verdadera:Falsa} \statement{Sea \seq una sucesión de números reales. Entre las siguientes afirmaciones, ¿cuál es verdadera?, ¿cuál es falsa?
WARNING En este ejercicio, las respuestas aproximadas serán consideradas falsas! Tomar pi en lugar de 3.14159265, por ejemplo. } \answer{lim(un)}{\lim}{type=formal} wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/src/frac3.oef 0000644 0001750 0001750 00000001466 10575503646 025607 0 ustar georgesk georgesk \title{Fracción con 3 términos} \language{en} \range{-3..3} \author{Gang XIAO} \email{xiao@unice.fr} \computeanswer{yes} \format{html} \precision{10000} \text{integers=shuffle(8)} \integer{a=item(1,\integers)+1} \integer{b=item(2,\integers)+1} \integer{c=item(3,\integers)+1} \text{a=random(-1,1)>0?\a:(-\a)} \text{b=random(-1,1)>0?\b:(-\b)} \text{c=random(-1,1)>0?\c:(-\c)} \text{pp=shuffle(n,(n-1),(n-2),(n+1),(n+2))} \text{p1=item(1,\pp)} \text{p2=item(2,\pp)} \integer{diff=evalue(\p1-\p2,n=0)} \integer{max=abs(\a)>abs(\b)?\a:\b} \integer{max=abs(\c)>abs(\max)?\c} \real{lim=(\max)^(\diff)} \statement{Calcular el límite de la sucesión (un), donde
} \answer{lim(un)}{\lim}{type=numeric} wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/src/comp.oef 0000644 0001750 0001750 00000005252 10575503641 025537 0 ustar georgesk georgesk \title{Comparación de sucesiones} \language{en} \range{-3..3} \author{Gang XIAO} \email{xiao@unice.fr} \computeanswer{yes} \format{html} \precision{10000} \text{n=n} \text{seq1=un} \text{seq2=vn} \integer{lim1=random(2..25)} \integer{lim2=\lim1+random(2..20)} \text{abs1=| \seq1 - \lim1 |} \text{abs2=| \seq2 - \lim2 |} \text{abs12=| \seq1 - \lim2 |} \text{abs21=| \seq2 - \lim1 |} \integer{coeff1=random(2..9)} \integer{coeff2=random(2..9)} \integer{coeff2=\coeff2=\coeff1?\coeff1+1} \integer{Lim1=\lim1*\coeff1} \integer{Lim2=\lim2*\coeff2} \text{spc= } \integer{start=random(1..8)*random(100,1000,10000,100000)} \text{ch=random(par,impar, divisible por 3, divisible por 5, divisible por 10, no divisible por 3, no divisible por 5, no divisible por 10)} \text{cond1=random(\n>\start,todo \n)} \text{conds=\coeff1\abs2 < \coeff2\abs1\spc para \cond1, \coeff1\abs2 > \coeff2\abs1\spc para \cond1, \coeff1\abs21 < \coeff2\abs12\spc para \cond1, \coeff1\abs21 > \coeff2\abs12\spc para \cond1, \coeff1\abs2 < | \coeff2\seq1 - \Lim1 |\spc para \cond1, | \coeff1\seq2 - \Lim2 | < \coeff2\abs1\spc para \cond1, -\coeff1\abs2 < \coeff2\abs1\spc para \cond1, \coeff1\abs2 < -\coeff2\abs1\spc para \cond1, -\coeff1\abs2 < -\coeff2\abs1\spc para \cond1, -\coeff1\abs2 > -\coeff2\abs1\spc para \cond1, \coeff2\abs2 < | \coeff1\seq1 - \Lim1 |\spc para \cond1, | \coeff2\seq2 - \Lim2 | < \coeff1\abs1\spc para \cond1, \coeff1\abs2 < \coeff2\abs1\spc para \n<\start, \coeff1\abs21 > \coeff2\abs12\spc para \n<\start, \coeff1\abs2 < \coeff2\abs1\spc para todo \n \ch, \coeff1\abs21 > \coeff2\abs12\spc para todo \n \ch } \text{liml=\lim2,\lim2,\lim1,\lim1,\lim2, \lim2,\lim2,\lim2,\lim2,\lim2, \lim2,\lim2,\lim2,\lim1,\lim2, \lim1 } \integer{cnt=items(\conds)} \integer{t=random(1..\cnt)} \real{lim=item(\t,\liml)} \text{cond=item(\t,\conds)} \text{non=La convergencia no puede ser determinada} \text{cv=Converge hacia \lim} \text{cvdiff=Converge hacia \lim2 - \lim1} \text{dv=No converge hacia \lim} \text{vide=(\seq2) no existe} \text{goods=\cv,\non,\non,\dv,\non, \dv,\non,\vide,\non,\cv, \cv,\cv,\non,\non,\non, \dv, } \text{bads=\non,\cv,\cv,\non,\cv, \cv,\cv,\non,\cv,\non, \non,\Lim2,\cv,\dv,\cv, \non, } \text{good=item(\t,\goods)} \text{bad1=item(\t,\bads)} \text{lims=\bad1,\non,\cv,\dv,\cvdiff,\vide } \statement{Sean (\seq1) y (\seq2) dos sucesiones de números reales donde (\seq1) converge hacia \lim1. Si tenemos
¿Qué se puede decir acerca de la convergencia de (\seq2)? (Debes elegir la mejor opción.) } \choice{Su respuesta es}{\good}{\lims} wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/src/monotony.oef 0000644 0001750 0001750 00000005106 10575503645 026465 0 ustar georgesk georgesk \title{Monotonía I} \language{en} \range{-3..3} \author{Gang XIAO} \email{xiao@unice.fr} \computeanswer{yes} \format{html} \precision{10000} \text{no=no} \text{Inf=inf} \text{inc=siempre creciente} \text{dec=siempre decreciente} \text{pinc=creciente a partir de algún valor} \text{pdec=decreciente a partir de algún valor} \text{incdec=indeterminado hacia el infinito} \text{growth=\incdec,\inc,\dec,\pinc,\pdec} \integer{c1=random(2..10)*random(-1,1)} \integer{c2=random(2..10)*random(-1,1)} \integer{c3=random(2..10)*random(-1,1)} \integer{c4=random(2..10)*random(-1,1)} \integer{c5=random(2..10)*random(-1,1)} \integer{C1=random(2..10)} \integer{C2=random(2..10)} \integer{C3=random(2..10)} \integer{C4=random(2..10)} \integer{C5=random(2..10)} \integer{C345=random(3,4,5)} \real{d1=(randint(10..90)/100+randint(0..5))*random(-1,1)} \real{d2=(randint(10..90)/100+randint(0..5))*random(-1,1)} \integer{b1=random(1,2,3,5,8)*random(1000,10000,100000)*random(-1,1)} \integer{b2=random(1,2,3,5,8)*random(1000,10000,100000)*random(-1,1)} \real{s1=randint(1..20)/50+1} \real{s2=randint(1..20)/50+1} \integer{st=random(1..10)} # terme, debut, croiss, inf,sup,min,max \matrix{data= \c1+\C1/n, \st, \dec, \c1,\c1+\C1/\st,\no,same \c1-\C1/n, \st, \inc, \c1-\C1/\st,\c1,same,\no \c1+\C1/random(n^2,n^3,sqrt(n),n!),1, \dec, \c1,\c1+\C1,\no,same \c1-\C1/random(n^2,n^3,sqrt(n),n!),1, \inc, \c1-\C1,\c1,same,\no \c1+(-1)^n*\C1/n, 1, \incdec, \c1-\C1,\c1+\C1/2,same,same \c1-(-1)^n*\C1/n, 1, \incdec, \c1-\C1/2,\c1+\C1,same,same n^2-\C1*n+\c2, 0, \pinc, -floor(\C1/2)*ceil(\C1/2)+\c2,\Inf,same,\no -n^2+\C1*n+\c2, 0, \pdec, -\Inf,floor(\C1/2)*ceil(\C1/2)+\c2,\no,same } \text{line=randomrow(\data)} #text{line=row(rows(\data),\data)} \text{un=texmath(item(1,\line))} \integer{start=item(2,\line)} \text{goodcr=item(3,\line)} \text{inf=pari(item(4,\line))} \text{sup=pari(item(5,\line))} \text{min=item(6,\line)} \text{max=item(7,\line)} \text{min=\min iswordof same?\inf} \text{max=\max iswordof same?\sup} \statement{Estudiar el crecimiento, sup, inf, min, max de la sucesión (un) para n \ge \start, donde
Escribir \no para indicar que determinado valor no existe, y \Inf o -\Inf para +\infty o -\infty. } \choice{El crecimiento de la sucesión}{\goodcr}{\growth} \answer{inf{un}}{\inf,\no,\Inf}{type=function} \answer{sup{un}}{\sup,\no,\Inf}{type=function} \answer{min{un}}{\min,\no,\Inf}{type=function} \answer{max{un}}{\max,\no,\Inf}{type=function} wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/src/pow2.oef 0000644 0001750 0001750 00000002144 10575503651 025466 0 ustar georgesk georgesk \title{Potencia II} \language{en} \range{-3..3} \author{Gang XIAO} \email{xiao@unice.fr} \computeanswer{yes} \format{html} \precision{10000} \real{a=randint(20..80)/100} \real{b=randint(20..80)/100} \integer{big=random(0,1)} \real{a=\big=1?\a+randint(1..5)} \real{b=\big=1?\b+randint(1..5)} \text{b=\big=1 and randint(0..10)<3 ? \a} \text{a=random(-1,1)>0?\a:(-\a)} \text{b=random(-1,1)>0?\b:(-\b)} \text{pa=random(n,n,n,(n-1),(n-2),(n-3),(n-4),(n-5),(n+1),(n+2),(n+3),(n+4),(n+5))} \text{pb=random(n,n,n,(n-1),(n-2),(n-3),(n-4),(n-5),(n+1),(n+2),(n+3),(n+4),(n+5))} \integer{diff=evalue(\pa-\pb,n=0)} \real{lim=(1-\b)/(1-\a)} \real{lim=\diff>0 && \big=1?\lim*\a^\diff} \real{lim=\diff<0 && \big=1?\lim*\b^(\diff)} \text{lim=\big=1 and abs(\a) > abs(\b) ? no} \real{lim=\big=1 and abs(\a) < abs(\b) ? 0} \text{lim=\big=1 and \a+(\b)=0 ? no} \statement{Calcular el límite de la sucesión (un), donde
Introducir no si la sucesión es divergente. } \answer{lim(un)}{\lim,no}{type=default} wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/src/.htaccess 0000644 0001750 0001750 00000000016 10575503640 025674 0 ustar georgesk georgesk deny from all wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/src/growthcomp.oef 0000644 0001750 0001750 00000004263 10575503644 026776 0 ustar georgesk georgesk \title{Comparación de crecimiento} \language{en} \range{-3..3} \author{Gang XIAO} \email{xiao@unice.fr} \computeanswer{yes} \format{html} \precision{10000} \text{zero=Converge a 0} \text{nonz=Converge a un valor no nulo} \text{div=Diverge hacia + o - infinito} \text{limits=\zero,\nonz,\div} \integer{c1=random(2..10)*random(-1,1)} \integer{c2=random(2..10)*random(-1,1)} \integer{c3=random(2..10)*random(-1,1)} \integer{c4=random(2..10)*random(-1,1)} \integer{c5=random(2..10)*random(-1,1)} \integer{C1=random(2..10)} \integer{C2=random(2..10)} \integer{C3=random(2..10)} \integer{C4=random(2..10)} \integer{C5=random(2..10)} \integer{C345=random(3,4,5)} \real{d1=(randint(10..90)/100+randint(0..5))*random(-1,1)} \real{d2=(randint(10..90)/100+randint(0..5))*random(-1,1)} \integer{b1=random(1,2,3,5,8)*random(1000,10000,100000)*random(-1,1)} \integer{b2=random(1,2,3,5,8)*random(1000,10000,100000)*random(-1,1)} \real{s1=randint(1..20)/50+1} \real{s2=randint(1..20)/50+1} \matrix{data= \c1*n^2+\c2*n+\c3, sqrt(\C1*n^\C345+\C2*n+\C3), 4-\C345 n^\C1+\C2^n, \C1^n, \C2-\C1 \c1*n^\C1+\C2^n, \c2*n^\C3+\C4^n, \C2-\C4 \b1*(\c1*n^2+\c2*n), sqrt(\C1*n^random(2,3)+\C2)random(+,*)random(cos,sin)(\c3*n!), 1 \c1*\s1^n, random(\c3,\b1)*n^\C1+\c2, 1 n^(n+\c1)+\c3*n^\C1, n^(n+\c2)+\c4*n^\C2, \c1-(\c2) n!+\c1*n^\C2, n^n+\c2*random(cos,sin)(\c3*n!), -1 (n+\C2)!, random(\C1,\b1)^(n+\C3), 1 1+2+3+...+\C1*n, \c1*(randitem(\C2*n,n+\C2))^2, 0 (\C1*n)^n, n^(\C2*n), -1 \C1^(n+\C2)+\c1*n^\C3, \C1^(n+\C4)+\c2*n^\C5, 0 random(\b1,\c1)*ln(\C1*n^\C2+\C3), random(\b2,\c2)*n+\c3, -1 \c1*ln(\C1^(\C2*n+\c1)+\C4*n^\C3), \c3*n+\c4, 0 \c1*sqrt(\C1*n+\C2), \c2*ln(\C3*n^\C4+\C5), 1 } \text{line=randomrow(\data)} #text{line=row(rows(\data),\data)} \text{tt=shuffle(2)} \integer{t1=item(1,\tt)} \integer{t2=item(2,\tt)} \text{f1=texmath(item(\t1,\line))} \text{f2=texmath(item(\t2,\line))} \text{diff=item(3,\line)} \real{diff=\t1=2?-(\diff)} \text{good=\diff=0?\nonz} \text{good=\diff>0?\div} \text{good=\diff<0?\zero} \statement{¿Cuál es la naturaleza de la sucesión (un), donde
} \choice{La respuesta ha sido}{\good}{\limits} wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/src/2lim.oef 0000644 0001750 0001750 00000003727 10575503641 025451 0 ustar georgesk georgesk \title{Dos limites} \language{en} \range{-3..3} \author{Gang XIAO} \email{xiao@unice.fr} \computeanswer{yes} \format{html} \precision{10000} \text{n=n} \text{seq=un} \integer{lim1=random(20..50)*random(-1,1)} \integer{lim2=\lim1+random(2..12)*random(-1,1)} \integer{neg1=-\lim1} \integer{neg2=-\lim2} \text{Neg1=\neg1>0? + \neg1: - \lim1} \text{Neg2=\neg2>0? + \neg2: - \lim2} \text{abs1=| \seq \Neg1 |} \text{abs2=| \seq \Neg2 |} \text{spc= } \text{epsilon=random(1/\n,2/\n,10/\n,3/\n,1/\n2,2/\n2)} \text{c=random(1/2,2/3,1/3,1/5,1/10,1/50,1/100,1/1000)} \integer{C=random(1..8)*random(100,1000,10000,100000)} \integer{start=random(1..8)*random(100,1000,10000,100000)} \text{non=La convergencia no puede ser determinada} \text{cv1=Converge hacia \lim1} \text{cv2=Converge hacia \lim2} \text{dv=Es divergente} \text{vide=Esa sucesión no existe} \text{cond1=random(\n>\start,\n)} \text{d1=< \epsilon, < \epsilon, > \C, < \epsilon, < \epsilon, < \C, < \C, > \epsilon, < \epsilon, < \epsilon, > \epsilon, < \c, < \c } \text{d2=> \epsilon, < \epsilon, > \C, < \C, > \C, < \C, > \C, > \epsilon, > \c, < \c, < \c, < \c, > \c } \text{goods=\cv1,\vide,\non,\cv1,\vide, \non,\non,\non,\cv1,\vide, \non,\vide,\non, } \text{bads=\cv2,\cv1,\dv,\cv2,\cv1, \cv1,\cv1,\dv,\dv,\cv1, \dv,\cv1,\cv1, } \integer{cnt=items(\d1)} \integer{t=random(1..\cnt)} \text{D1=item(\t,\d1)} \text{D2=item(\t,\d2)} \text{good=item(\t,\goods)} \text{bad1=item(\t,\bads)} \text{lims=\bad1,\non,\cv1,\cv2,\dv,\vide } \text{t1=\abs1 \D1} \text{t2=\abs2 \D2} \integer{mix=random(0,1)} \text{T1=\mix=1?\t1:\t2} \text{T2=\mix=1?\t2:\t1} \statement{Sea (\seq) una sucesión infinita de números reales. Si se tiene
¿Qué se puede decir acerca de la convergencia? (Debes elegir la mejor opción.) } \choice{Su respuesta es}{\good}{\lims} wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/src/crborn.oef 0000644 0001750 0001750 00000003046 10575503647 026073 0 ustar georgesk georgesk \title{Crecimiento y límite} \language{en} \range{-3..3} \author{Gang XIAO} \email{xiao@unice.fr} \computeanswer{yes} \format{html} \precision{10000} \text{n=n} \text{seq=un} \text{spc= } \integer{start=random(1..8)*random(100,1000,10000,100000)} \integer{border=random(-20..20)} \text{non=La convergencia no puede ser determinada} \text{cvup=Converge hacia un valor mayor o iual que \border} \text{cvdn=Converge hacia un valor menor o igual que \border} \text{cveq=Converge hacia \border} \text{dv=Es divergente} \text{cv=Es convergente} \text{pinfty=Diverge hacia + infinito} \text{ninfty=Divege hacia - infinito} \text{vide=Esa sucesión no existe} \text{cond=random(\n>\start,all \n)} \text{conds=creciente y \seq<\border para \cond, decreciente y \seq>\border para \cond, creciente y \seq>\border para \cond, decreciente y \seq<\border para \cond, creciente y no acotada superiormente, creciente y no acotada inferiormente, decreciente y no acotada superiormente, decreciente y no acotada inferiormente } \text{goods=\cvdn,\cvup,\non,\non,\pinfty, \vide,\vide,\ninfty, } \integer{cnt=items(\conds)} \integer{t=random(1..\cnt)} \text{cond=item(\t,\conds)} \text{good=item(\t,\goods)} \text{bad1=item(\t,\bads)} \text{lims=\cvup,\cvdn,\cveq,\dv,\vide } \text{lims=\t>=5 and \t<=8?\vide,\cv,\pinfty,\ninfty} \statement{Sea (\seq) una sucesión de números reales. Si (\seq) es \cond, ¿Qué se puede decir acerca de la convergencia (después de su existencia)? } \choice{Su respuesta es}{\good}{\lims} wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/src/cvratio.oef 0000644 0001750 0001750 00000005174 10575503637 026260 0 ustar georgesk georgesk \title{Convergencia y proporción de términos} \language{en} \range{-3..3} \author{Gang XIAO} \email{xiao@unice.fr} \computeanswer{yes} \format{html} \precision{10000} \text{ratio=un+1/un} \text{seq=(un)} \integer{lim=random(-5,-4,-3,-2,2,3,4,5)} \text{half=random(1/2,2/3,1/3,1/4,3/4,-1/2,-2/3,-1/3,-1/4,-3/4)} \text{cvdvs=converge hacia \lim, es convergente converge hacia \lim, converge hacia -1, es divergente, converge hacia 0, converge hacia 0, converge hacia 0, converge hacia un valor no nulo, converge hacia \half, converge hacia 0 } \text{conds=\ratio converge a 1, \ratio converge a 1, \ratio converge a 1, \ratio converge a -1, \ratio converge a \lim, \ratio converge a \half, |\ratio| converge hacia un valor menor que 1, |\ratio|<1 a partir de algún n, \ratio converge a 1, \ratio converge a \half, |\ratio|<1 a partir de algún n, } \text{cvdv2s=es convergente, es convergente, no converge a 0, es divergente, es divergente, converge a 0, converge a 0, converge a 0, puede ser divergente, converge a \half, es convergente, } \text{g1s=1,0,1,0,0, 0,0,0,1,0, 0, } \text{g2s=0,0,0,0,1, 1,1,0,1,0, 0, } \text{ans=Existen sucesiones divergentes para las que \ratio converge a 1., Existen sucesiones divergentes para las que \ratio converge a 1 y sucesiones convergentes a 0 para las que \ratio no converge a 1., Existen sucesiones convergentes a 0 para las que \ratio converge a 1., Existen sucesiones convergentes a 0 para las que \ratio converge a -1., Existen sucesiones divergentes para las que \ratio no tiene límite., Existen sucesiones convergentes a 0 para las que \ratio no tiene límite., Existen sucesiones convergentes a 0 para las que \ratio no tiene límite., , Existen sucesiones divergentes para las que \ratio converge a 1., \seq converge a 0 cuando \ratio converge a \half., Nada impide que \ratio tome valores de distinto signo y la sucesión diverja. Por ejemplo, la sucesión (-1)n(1+1/n) es divergente., } \integer{cnt=items(\cvdvs)} \integer{t=random(1..\cnt)} \text{cvdv=item(\t,\cvdvs)} \text{cvdv2=item(\t,\cvdv2s)} \text{cond=item(\t,\conds)} \text{an=item(\t,\ans)} \integer{g1=item(\t,\g1s)} \integer{g2=item(\t,\g2s)} \text{ch1=\g1=1?Verdadera:Falsa} \text{ch2=\g2=1?Verdadera:Falsa} \statement{Sea \seq una sucesión de números reales. Entre las siguientes afirmaciones, ¿cuál es verdadera?, ¿cuál es falsa?
} \answer{lim(un)}{\lim}{type=numeric} wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/NEWS 0000644 0001750 0001750 00000000062 10575503675 024017 0 ustar georgesk georgesk Version 1.12 2005-11-24 bogue dans reclim.oef wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/endhook.phtml 0000644 0001750 0001750 00000000414 10575503655 026014 0 ustar georgesk georgesk !! This file can contain contents which go to the end of the page. !if $status=waiting
Está disponible en línea la herramienta: !href target=wims_tool module=tool/analysis/function Calculadora de funciones. (Aparecerá en otra ventana de su navegador.) !endif wims-modules-es-3.64.orig/modules/U1/analysis/oefseq.es/help.phtml 0000644 0001750 0001750 00000000052 10575503674 025314 0 ustar georgesk georgesk !changeto oef/$module_language/help.phtml wims-modules-es-3.64.orig/modules/U1/analysis/coincdev.es/ 0000755 0001750 0001750 00000000000 10315753134 023617 5 ustar georgesk georgesk wims-modules-es-3.64.orig/modules/U1/analysis/coincdev.es/intro.phtml 0000644 0001750 0001750 00000001527 10315753752 026033 0 ustar georgesk georgesk !header $module_title es un ejercicio gráfico.
Usted verá una curva que representa una función continua (y suficientemente regular). Su objetivo es encontrar el !pedia desarrollo de Taylor, desarrollo de Taylor de esta función en un entorno de 0.
Puede hacer varios intentos; cada vez que usted introduzca una resuesta, verá aparecer la curva asociada al `desarrollo de Taylor' al mismo tiempo que la de la función. Y podrá modificar su respuesta de tal forma que las dos curvas se ajusten entre si tanto como sea posible.
Elija el nivel que más le convenga: !href module=$module&cmd=new&Degree=2&range=3 Infantil . !href module=$module&cmd=new&Degree=3&range=5 Aprendiz . !href module=$module&cmd=new&Degree=4&range=8 Experto . !href module=$module&cmd=new&Degree=5&range=15 Campeón . !read related.phtml Taylor, Ajuste !tail wims-modules-es-3.64.orig/modules/U1/analysis/coincdev.es/var.init 0000644 0001750 0001750 00000001140 07071077250 025273 0 ustar georgesk georgesk # Variable initialisation file. # This file is read by wims for new sessions. wims_print_precision=5 !default Degree = 3 !default range = 8 !default zoom_factor = 0 !default size_factor = 0 :restart tot=0 !for i = 0 to 5 !ifval $i <= $Degree oc$i = !randint -$range, $range tot=$[$tot+abs($(oc$i))] !else oc$i = 0 !endif c$i = 0 !next i !if $tot<=0 !goto restart !endif !for i=1 to 3 reste$i=!randint -$range, $range !next i reste3=!eval $reste3/3 reste_fr=!random -10, 10 reste_fn=x^$Degree*($reste1*x+($reste2)*sin($reste_fr*x)+($reste3)*x*x)/(2.5*$Degree) reply_cnt=0 done= wims-modules-es-3.64.orig/modules/U1/analysis/coincdev.es/var.proc 0000644 0001750 0001750 00000002503 07274216537 025307 0 ustar georgesk georgesk # Variable calculations should be done in this file. # It is read and interpreted by wims for all valid calls to the module. wims_print_precision=5 wims_compare_precision=1000 x_range=!evalue 2^(-$zoom_factor) zoom_mm=!evalue $x_range*50 xy_size=!evalue sqrt(2)^($size_factor-1) !ifval $size_factor < 0 insplot_font=small !else insplot_font=medium !endif insplot_set=zeroaxis; size $xy_size,$xy_size; tmargin 1 !if $cmd=new or $cmd=renew wims_module_log=$cmd: degree=$Degree, range=$range !endif !for i=$Degree+1 to 5 c$i = 0 !next !if $cmd = reply and $abandon != yes reply_cnt=!evalue $reply_cnt+1 !endif try_cnt=!eval $reply_cnt+1 diff=0 !for i = 0 to 5 c$i =!evalue rint($(c$i)) diff=!evalue $diff+|$(c$i)-$(oc$i)| !next !if $abandon=yes and $done != yes abandon= wims_module_log=abandon after $reply_cnt tries !for i = 0 to $Degree c$i=$(oc$i) !next i diff=0 write_solution=yes !endif !if $[$diff] = 0 and $done != yes done=yes poly= !for i = $Degree to 0 step -1 poly=$poly $(oc$i) !next i poly=!trim $poly poly=!translate $ $ to , in $poly !read poly2html !if $cmd=reply and $write_solution != yes wims_module_log=success after $reply_cnt tries module_score=$[1.5*($Degree+1)*$range/$reply_cnt] !if $module_score>10 module_score=10 !endif !endif !endif wims-modules-es-3.64.orig/modules/U1/analysis/coincdev.es/main.phtml 0000644 0001750 0001750 00000004302 10315753752 025616 0 ustar georgesk georgesk !header !if $cmd=hint !if $special_parm != heavy !changeto hint.phtml !else !changeto hint2.phtml !endif !endif
!goto end_abandon !endif !if $[$diff] = 0 and $poly_html != $empty ¡Bravo! Ha encontrado el desarrollo adecuado después de $reply_cnt intentos:
Su puntuación: $module_score/10.
!goto end_form !endif $diff=0 !ifval $reply_cnt = 0 Aquí tiene la curva de una función f(x). Debe hallar su !else Busque el !endif desarrollo de Taylor
donde los coeficientes !word 1 to 1+$Degree of\ c0, c1, c2, c3, c4, c5 son números enteros comprendidos entre -$range y $range (inclusive).
!ifval $Degree > 3 or $range > 8 Probablemente, ha elegido un nivel demasiado difícil para usted. Comience por !href cmd=renew&Degree=2&range=3 un nivel más fácil. !goto end !endif !ifval $diff=0 Ha encontrado todos los coeficientes; no me me falta nada más que felicitarle. !goto end !endif !ifval $reply_cnt = 0 Bien, estos son los efectos de los los coeficientes de menor grado:
!ifval $zoom_factor <= 0
Utilice el teleobjetivo (100mm ó 200mm) para ver con detalle dónde
corta la curva de f(X) a el eje Y.
!endif
!else
!ifval $oc1 != $c1
Ya ha encontrado el c0 adecuado. Continúe adelante
para
c1.
c1=f'(0) es la pendiente de la recta tangente a la curva
en el punto x=0.
!ifval $zoom_factor <= 0 El teleobjetivo (100mm ó 200mm) es siempre la mejor elección para ver con detalle la pendiente de la curva cuando ésta corta el eje Y. !endif !else !ifval $oc2 != $c2 Muy bien, c0 y c1 son ahor correctos.
Continúe: c2=f''(0)/2, mientras que f''(0) condiciona la curvatura de la curva en un entorno del punto x=0. Por lo tanto debería modificar c2, para torcer la curva de forma que se ajuste lo mejor posible a la de f(x) en un entorno del punto x=0. !else ¡Vaya! ¿Por qué sigue buscando indicaciones en este nivel? Estoy seguro de que puede terminar con éxito sin necesidad de más indicaciones. !ifval $diff <= 2
Ya está muy cerca de la meta; solamente falta un pequeño ajuste para terminar. !endif !endif !endif !endif :end