How can I write "StruveL function" in matlab?
1 回表示 (過去 30 日間)
古いコメントを表示
Shreen El-Sapa
2023 年 12 月 9 日
コメント済み: Walter Roberson
2023 年 12 月 10 日
How can I write "StruveL function" in matlab?
0 件のコメント
採用された回答
David Goodmanson
2023 年 12 月 9 日
Hello Shreen,
Here are two ways although you will need the symbolics toolbox for the first one. I used benign values for z and nu and the two methods agree very closely. When either z or nu get excessively large there will be numerical issues, and you might explore to see which method gives up first.
nu = 1.2;
z = 0:.1:4;
% hypergeometic function 1F2
C = 2/(sqrt(pi)*gamma(nu+3/2));
L1 = C*(z/2).^(nu+1).*hypergeom(1,[3/2+nu,3/2],z.^2/4)
% numerical integration
D = 2/(sqrt(pi)*gamma(nu+1/2));
fun = @(th,z,nu) sinh(z*cos(th)).*sin(th).^(2*nu);
L2 = D*(z/2).^nu.*integral(@(th) fun(th,z,nu),0,pi/2,'arrayvalued',true);
checkdel = max(abs(L1-L2))
L1 =
Columns 1 through 9
0 0.0010 0.0046 0.0113 0.0214 0.0351 0.0528 0.0748 0.1012
Columns 10 through 18
0.1325 0.1691 0.2112 0.2594 0.3141 0.3758 0.4452 0.5228 0.6095
Columns 19 through 27
0.7059 0.8129 0.9316 1.0629 1.2080 1.3682 1.5449 1.7396 1.9540
Columns 28 through 36
2.1901 2.4498 2.7355 3.0496 3.3948 3.7742 4.1911 4.6491 5.1522
Columns 37 through 41
5.7048 6.3118 6.9783 7.7104 8.5143
checkdel =
3.5527e-15
ans = 3.5527e-15
3 件のコメント
Walter Roberson
2023 年 12 月 10 日
Pi = sym(pi);
syms z
nu0 = sym(0);
C0 = 2/(sqrt(Pi)*gamma(nu0+3/2));
L0 = C0*(z/2).^(nu0+1).*hypergeom(1,[3/2+nu0,3/2],z.^2/4)
nu1 = sym(1);
C1 = 2/(sqrt(Pi)*gamma(nu1+3/2));
L1 = C1*(z/2).^(nu1+1).*hypergeom(1,[3/2+nu1,3/2],z.^2/4)
その他の回答 (0 件)
参考
Community Treasure Hunt
Find the treasures in MATLAB Central and discover how the community can help you!
Start Hunting!