x=黄金比率^4;z=30;(*z=#序列中的项*)
z1=100;(*z1=近似数字*)
f[x_]:=楼层[x];c[x_]:=天花板[x];
p1[0]=f[x];p2[0]=f[x];p3[0]=c[x];p4[0]=c[x];
p1[n]:=f[x*p1[n-1]]
p2[n_]:=如果[Mod[n,2]==1,c[x*p2[n-1]],f[x*p2[n-1]
p3[n_]:=如果[Mod[n,2]==1,f[x*p3[n-1]],c[x*p3[n-1]
p4[n]:=c[x*p4[n-1]]
(*项目2。功率下限和功率上限功能图,p1(x)和p4(x)*)
f[x_]:=f[x]=楼层[x];c[x_]:=c[x]=天花板[x];
p1[x_,0]:=f[x];p1[x_,n]:=f[x*p1[x,n-1]];
p4[x_,0]:=c[x];p4[x_,n]:=c[x*p4[x,n-1]];
绘图[求值[{p1[x,10]/x^10,p4[x,10/x^10}],{x,2,3},PlotRange->{0,4}]
(*项目3。电源地板-天花板和电源天花板-地板功能图,p2(x)和p3(x)*)
f[x_]:=f[x]=楼层[x];c[x_]:=c[x]=天花板[x];
p2[x,0]:=f[x];p3[x,0]:=c[x];
p2[x_,n_]:=如果[Mod[n,2]==1,c[x*p2[x,n-1]],f[x*p2[x,n-1]]
p3[x_,n_]:=如果[Mod[n,2]==1,f[x*p3[x,n-1]],c[x*p3[x,n-1]]
绘图[求值[{p2[x,10]/x^10,p3[x,10/x^10}],{x,2,3},PlotRange->{0,4}]