New Perspectives In Teaching Mathematics 2011
Maple-esitys
24.10.2011 Heikki ApiolaLUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYjLUkjbWlHRiQ2I1EhRic=
<Text-field style="Heading 1" layout="Heading 1"><Font encoding="UTF-8">Erotusosam\303\244\303\244r\303\244 ja derivaatta</Font></Text-field>
JSFH
restart;
LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYjLUkjbWlHRiQ2I1EhRic=
q:=(f(x0+h)-f(x0))/h;
sekantti:=x->f(x0)+q*(x-x0);
m:=limit(q,h=0);
Aika veijari! Maple tiesi!
tangentti:=x->f(x0)+m*(x-x0);
h:=1/2;
f:=x->1+2*x-x^3;
x0:=1;
m;
plot([f(x),sekantti(x),tangentti(x)],x=0..2);
h:=1/k;
plot([f(x),seq(sekantti(x),k=1..19),tangentti(x)],x=0..2);
with(plots):
h:='h':
display(plot([f(x),tangentti(x)],x=0..2,color=[black,blue]),animate(plot,[sekantti(x),x=0..2],h=-1..1,frames=50));
?student
with(Student[Calculus1]);
?TangentSecantTutor
TangentSecantTutor(f(x),x=1);
LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYjLUkjbWlHRiQ2I1EhRic=
JSFH