FindRoot和Ceiling问题

楼主: cuteQcat (cutecat)   2015-01-24 03:22:32
大家好,第一次在这个板上发文,如果问题太愚蠢请大家多多包涵
我现在有二条方程式,假设一条解m,另一条解s,s受m影响
解m的方程式只受外生参数影响,所以我是先解m再把解出来的m取ceiling后再解s
原本的指令如下:
m = Ceiling[
m01 /. FindRoot[\[Alpha] + m01 == (z^(m01 + 1) - 1)/(
z^(m01 + 1) (z - 1)), {m01, 8}]]
s = s(Alpha,z,m)
其中Alpha和z是外生参数。(另外,s的式子太复杂我就不附上了)
这样跑是没问题的。
不过我想看Alpha变动一个范围会对m和s有何影响,并画出Alpha变动对s影响的图形
但是把他们写成一串指令去执行时,跑出来的结果都只有同一个值,
图形当然也就出不来,指令如下:
s[\[Alpha]_] :=
s /. FindRoot[{m ==
Ceiling[m /.
FindRoot[\[Alpha] + m == (z^(m + 1) - 1)/(
z^(m + 1) (z - 1)), {m, 8}]], s ==s(Alpha,z,m) }, {s, 0.2}]
data = Table[{\[Alpha], s[\[Alpha]]}, {\[Alpha], 0.05, 0.95, 0.05}]
Fs01 = ListPlot[{data}, PlotJoined -> True, Frame -> True]
所以在此很冒昧的想请问前辈们我的指令是哪里出问题呢?
谢谢大家。

Links booklink

Contact Us: admin [ a t ] ucptt.com