|
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}]
| 