[自動轉寄] (tss1030) Re: [問題] mathematica問題

作者: chungyuandye (養花種魚數月亮賞星星)
標題: Re: [問題] mathematica問題
時間: Tue Mar 15 23:11:29 2011

※ 引述《tss1030 (josh)》之銘言：
: k0 = 1- i (0.001)
: x 值則必須針對 0.001~1000 等比分為25 個值, 即
: x(1) = 0.001,
: x(2)=0.001*a^1,
: x(3)=0.001*a^2,
: ….,
: x(n)=0.001*a^(n-1),
: …..,
: x(25)=1000
: 其中 a=10^0.25
: 程式VVVV
: k0=1`100-I*0.001`100;x=0.1`100;
: N[(0.5`100/I)*HankelH2[0`100, k0 Abs[x]],30]
: 我想要將k0做回圈代入Hankel計算式中
: 請問我該如何寫?
: 請會的大大能夠提供!謝謝!

a = 10^(1/4);
x[i_Integer] := 1/1000*a^(i - 1);
N[(5/10/I)*HankelH2[0, k0*Abs[x[#]]], 30] & /@ Range[24]

--
養花種魚數月亮賞星星

http://cydye1069.blogspot.com
http://tinyurl.com/25nedr2

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.131.165