ÐìСտµÄ²©¿Í

¶þ½×µ¼ÊýµÄͼÐÎ

ÒÔÏÂÊÇһЩº¯Êý¼°Æäµ¼ÊýºÍ¶þ½×µ¼ÊýµÄͼÐΡ£

1. y=xcos(x)¼°Æäµ¼ÊýºÍ¶þ½×µ¼Êý (º¯ÊýÇúÏß(ºìÉ«)¡¢µ¼ÊýÇúÏߣ¨À¶É«£©¡¢¶þ½×µ¼ÊýÇúÏߣ¨ºÚÉ«£©).

with(plots):
f:=x->x*cos(x):
tuxing:=plot([f(x),D(f)(x),D(D(f))(x)],x=-3..3,y=-3..3,thickness=[4,3,2],color=[red,blue,black]):
display(tuxing,scaling=constrained);

¶¯»­

with(plots): a:=-3:b:=4: f:=x->x*cos(x):
quxian:=plot([x,f(x),x=a..b],color=grey,thickness=1):
K:=50:for i from 1 to K do xi:=i*(b-a)/K:
hanshu[i]:=plot([x,f(x),x=a..a+xi]):
daoshu[i]:=plot([x,D(f)(x),x=a..a+xi],color=blue):
erjie[i]:=plot([x,D(D(f))(x),x=a..a+xi],color=black) od:
hanshu:=display(seq(hanshu[i],i=1..K),insequence=true):
daoshu:=display(seq(daoshu[i],i=1..K),insequence=true):
erjie:=display(seq(erjie[i],i=1..K),insequence=true):
display(hanshu,daoshu,erjie,quxian,scaling=constrained,tickmarks=[4,4],thickness=3);

2. y=arctan(x)¼°Æäµ¼ÊýºÍ¶þ½×µ¼Êý (º¯ÊýÇúÏß(ºìÉ«)¡¢µ¼ÊýÇúÏߣ¨À¶É«£©¡¢¶þ½×µ¼ÊýÇúÏߣ¨ºÚÉ«£©).

with(plots):
f:=x->arctan(x):
tuxing:=plot([f(x),D(f)(x),D(D(f))(x)],x=-3..3,y=-Pi/1.8..Pi/1.8,thickness=[4,3,3],color=[red,blue,black]):
display(tuxing,scaling=constrained);

¶¯»­

with(plots): a:=-3:b:=4: f:=x->arctan(x):
quxian:=plot([x,f(x),x=a..b],color=grey,thickness=1):
K:=50:for i from 1 to K do xi:=i*(b-a)/K:
hanshu[i]:=plot([x,f(x),x=a..a+xi]):
daoshu[i]:=plot([x,D(f)(x),x=a..a+xi],color=blue):
erjie[i]:=plot([x,D(D(f))(x),x=a..a+xi],color=black) od:
hanshu:=display(seq(hanshu[i],i=1..K),insequence=true):
daoshu:=display(seq(daoshu[i],i=1..K),insequence=true):
erjie:=display(seq(erjie[i],i=1..K),insequence=true):
display(hanshu,daoshu,erjie,quxian,scaling=constrained,tickmarks=[4,4],thickness=3);

3. º¯Êýf(x)=0.6*x+3*sin(x)¼°Æäµ¼ÊýºÍ¶þ½×µ¼Êý (º¯ÊýÇúÏß(ºìÉ«)¡¢µ¼ÊýÇúÏߣ¨À¶É«£©¡¢¶þ½×µ¼ÊýÇúÏߣ¨ºÚÉ«£©).

with(plots): a:=20: f:=x->0.6*x+3*sin(x):
quxian:=plot([x,f(x),x=0..a],color=grey,thickness=1):
K:=80:for i from 1 to K do xi:=i*a/K:
hanshu[i]:=plot([x,f(x),x=0..xi]):
daoshu[i]:=plot([x,D(f)(x),x=0..xi],color=blue):
erjie[i]:=plot([x,D(D(f))(x),x=0..xi],color=black) od:
hanshu:=display(seq(hanshu[i],i=1..K),insequence=true):
daoshu:=display(seq(daoshu[i],i=1..K),insequence=true):
erjie:=display(seq(erjie[i],i=1..K),insequence=true):
display(hanshu,daoshu,erjie,quxian,scaling=constrained,tickmarks=[4,4],thickness=3);