看板 Mathematica 關於我們 聯絡資訊
※ 引述《qoodeva (發呆的花枝)》之銘言: : Consider f(x,t)=F(t)δ(x-L); : F(t)=Sin(π*t); : δ(x-L)=0 , x≠L : δ(x-L)=Infinity, x=L : L : ∫δ(x-L)dx=1 : 0 : Let w(x)=c1*Cos[a*x]+c2*Sin[b*x]+c3*Cosh[c*x]+c4*Sinh[d*x] : 已知c1,c2,c3,c4,a,b,c,d,L : 求 : L : ∫f(x,t)*w(x)dx=?.........................(1) : 0 w[x_] := c1*Cos[a*x] + c2*Sin[b*x] + c3*Cosh[c*x] + c4*Sinh[d*x]; f[x_, t_] := F[t]*DiracDelta[x - L] F[t_]:=Sin[Pi*t]; Integrate[f[x, t]*w[x], {x, 0, L}, Assumptions -> L \[Element] Reals] Limit[Integrate[f[x, t]*w[x], {x, L - h, L}, Assumptions -> L \[Element] Reals], h -> 0] -- 養花種魚數月亮賞星星 http://chungyuandye.twbbs.org -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 218.173.131.59 ※ 編輯: chungyuandye 來自: 218.173.131.59 (04/02 22:14)
qoodeva:謝謝戴老師XDD 04/03 21:52