/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created with wxMaxima version 22.04.0 ] */
/* [wxMaxima: title   start ]
Ejemplos de preguntas simples
   [wxMaxima: title   end   ] */


/* [wxMaxima: section start ]
Derivada
   [wxMaxima: section end   ] */


/* [wxMaxima: subsect start ]
Ejercicio
   [wxMaxima: subsect end   ] */


/* [wxMaxima: input   start ] */
p:(x-1)^3;
/* [wxMaxima: input   end   ] */


/* [wxMaxima: subsect start ]
La respuesta modelo del profe
   [wxMaxima: subsect end   ] */


/* [wxMaxima: input   start ] */
ta:diff(p,x);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: subsect start ]
La respuesta del alumno (correcta)
   [wxMaxima: subsect end   ] */


/* [wxMaxima: input   start ] */
ans1:3*(x-1)^2;
/* [wxMaxima: input   end   ] */


/* [wxMaxima: subsect start ]
La validación semántica de la respuesta correcta
   [wxMaxima: subsect end   ] */


/* [wxMaxima: input   start ] */
is(equal(ans1,ta));
/* [wxMaxima: input   end   ] */


/* [wxMaxima: subsect start ]
Una respuesta del alumno (forma expandida)
   [wxMaxima: subsect end   ] */


/* [wxMaxima: input   start ] */
ans1:expand(ta);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: subsect start ]
La validación semántica de esta última respuesta
   [wxMaxima: subsect end   ] */


/* [wxMaxima: input   start ] */
is(ans1=ta);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: subsect start ]
Otra respuesta del alumno (integrar por error)
   [wxMaxima: subsect end   ] */


/* [wxMaxima: input   start ] */
ans1:integrate(p,x)+c;
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
pol:diff(ans1,x);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
is(equal(pol,p));
/* [wxMaxima: input   end   ] */


/* [wxMaxima: section start ]
Derivada aleatorizada
   [wxMaxima: section end   ] */


/* [wxMaxima: subsect start ]
Los números aleatorios
   [wxMaxima: subsect end   ] */


/* [wxMaxima: input   start ] */
a:random(5)+1;/*a corre entre 1 y 5*/
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
n:random(5)+2;/*n corre entre 2 y 6*/
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
p:(x-a)^n;
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
Correr a partir de 1.2 (omitir 1.3 y 14)
   [wxMaxima: comment end   ] */


/* [wxMaxima: section start ]
Lista de derivadas
   [wxMaxima: section end   ] */


/* [wxMaxima: subsect start ]
Como se hace normalmente con Maxima
   [wxMaxima: subsect end   ] */


/* [wxMaxima: input   start ] */
n:random(5)+3; /*n corre entre 3 y 7*/
variable_aleatoria:random(3);
v:if variable_aleatoria=0 then x else if variable_aleatoria=1 then s else t; /*Tres posibles variables: x, s y t*/
funcion_aleatoria:random(2);
p:if funcion_aleatoria=0 then cos(n*v) else sin(n*v) /*Dos funciones posibles*/;
/* [wxMaxima: input   end   ] */


/* [wxMaxima: subsect start ]
Como lo facilitó Chris Sangwin para STACK
   [wxMaxima: subsect end   ] */


/* [wxMaxima: input   start ] */
rand(lista):=block(
if integerp(lista)=true then return(random(lista)) 
else
    k:length(lista),
    i:random(k)+1,
    print(i),
    return(lista[i])
)$
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
n:rand(5)+3;
v:rand([x,s,t]);
p:rand([cos(n*v),sin(n*v)]);
/* [wxMaxima: input   end   ] */



/* Old versions of Maxima abort on loading files that end in a comment. */
"Created with wxMaxima 22.04.0"$