| Author |
Comment/Response |
sehwan lee
|
 10/18/99 07:07am
How can i get this sol.?
Have some problem in my program.
In[26]:=
\!\(\(\nT1 =
1\/\(\ \[Pi]\ \[Rho]\ cp\ d\)\
\((Q)\)\ [1\/\(a^2\ + 2*\[Alpha] \((t - td)\)\)\ ]\
Exp[\(-\(\({x + v\ *\((t - td)\)}^2\ + \ y^2\)\/\(2\ a^2\ + \
4\ \[Alpha]\ \((t - td)\)\)\)\)\ ]\n
kk = Exp[\((\(-\[Alpha]\)*\((n*Pi)\)^2*\((t - td)\)/d^2)\)]\t\n
Tsum = NSum[kk, {n, 1, 100}, Method \[Rule] SequenceLimit,
NSumTerms \[Rule] 20, \n\t\tNSumExtraTerms \[Rule] 4] - truesum\n
T2 = NIntegrate\ [T1*Tsum, {t, 0, 100}]\t\t\)\)
URL: , |
|
