1 
Uu[z_,x_,t_] := A1[z]*F[t*a*x]
Wu[z_,x_,t_] := B1[z]*F[t*a*x]
Pu[z_,x_,t_] := C1[z]*F[t*a*x]
eq1 = D[Uu[z,x,t],t]==-R*D[Pu[z,x,t],x];
C1z = DSolve[eq1,C1[z],z];
eq2 = D[Wu[z,x,t],t]==-R*D[Pu[z,x,t],z]/.C1z[[1]]

割り当て/.C1z[[1]]は、私が期待するように動作しません。この現象が何と呼ばれているのかさえわかりません（これはグーグルを非常に難しくします）。

C1zは、定数とA1[z]に関してC1[z]の正しい値を保持しますが、「それをeq2にプラグインしようとすると」機能しないようです。

ご協力ありがとうございました。

4

1 に答える 1

4

置換ルールに一致するものがないため、これは機能しません。

ルール置換前の値を見ると、置換が発生する前に導関数が評価されるため、eq2に一致する部分式がないことがわかります。C1[z]D[Pu[z,x,t],z]

In[13]:= eq2a = D[Wu[z,x,t],t]==-R*D[Pu[z,x,t],z]
Out[13]= a x B1[z] F'[a t x]==-R F[a t x] C1'[z]

C1'[z]おそらく、あなたが期待する完全な表現形式を持っていないのでC1[z]、導関数を取った後に代用することはあなたが望むことをしません：

In[14]:= FullForm[C1'[z]]
Out[14]//FullForm= Derivative[1][C1][z]

多分あなたは代わりにこのような何かを意味しました：

In[15]:= eq2=D[Wu[z,x,t],t]==-R*D[Pu[z,x,t]/.C1z[[1]],z]
Out[15]= a x B1[z] F'[a t x]==(x F[a t x] A1'[z])/t

HTH！

于 2010-06-22T03:40:49.567 に答える