0

FindRoot ステートメントを使用しています。私の問題は、結果が記号形式のみであることです。後で簡単に使用できるように、Mathematica に結果をベクトルまたはリストとして保存するにはどうすればよいですか。

g[r_]:=(A^r - 1)/(A^r - B^r);
func[r_]:= Piecewise[{{g[r],r<-.01 },{ g[r],r>.01} }];
roots = Table[0,{10}];
q= Table[pp,{pp,.01,0.1,0.01}];
Do[ roots[[i]]=FindRoot[func[r]== q[[i]],{r,0.9}];,{i,1,10}];    ********
Print[r/.roots];           *********** this prints out ok as a list


Pa2=Table[0,{10}];
myPa2=Table[0,{10}];
i/:IntegerQ[i]=True;    
r2=r;
h[r2_]:=(A^r2 - 1)/(A^r2 - B^r2);
funcOC[r2_]:= Piecewise[{{h[r2],r2<-.01 },{ h[r2],r2>.01} }];  
Do[ Pa2[[i]]=funcOC[r2[[i]]], {i,1,10} ];
Print[myPa2/.Pa2];      ****************symbolic notation is output
4

1 に答える 1

1

Michael の質問をさらに詳しく説明すると、現在のコードでは、A と B の値が設定されていないため、数値が生成されません。

A と B に値が選択されている場合、FindRoot はシンボリックな答えを返さなくなりました。

g[r_] := (A^r - 1)/(A^r - B^r);
A = .4; B = .5;
func[r_] := Piecewise[{{g[r], r < -.01}, {g[r], r > .01}}];
roots = Table[0, {10}];
q = Table[pp, {pp, .01, 0.1, 0.01}];
Do[roots[[i]] = FindRoot[func[r] == q[[i]], {r, 0.9}];, {i, 1, 10}];
Print[r /. roots];

{-201.021,-198.983,-196.97,-194.98,-186.987,-178.398,-170.282,-162.61,-155.352,-148.484}

コードの 2 番目のブロックについては、次の r2[[i]] が問題の原因であると想定しています。

Do[ Pa2[[i]]=funcOC[r2[[i]]], {i,1,10} ];

私はあなたが意味したと思います：

Do[ Pa2[[i]]=funcOC[i], {i,1,10} ];

最初のコード ブロックで見つけたルートを使用するつもりでしたか? その場合は交換が必要です。

r2=r;

と

r2=r /. roots;
于 2010-02-25T01:32:21.167 に答える