只需一步,快速开始
您需要 登录 才可以下载或查看,没有账号?我要加入
使用道具 举报
clear;clc a=0.01; E0=8.85e-12;U0=pi*4e-7;c=3e8; z=a*2*pi*c*sqrt(E0*U0); %用在besselh()中 n=-10:.1:10; besselh(n,2,z); phi=0:2*pi/200:2*pi; f=zeros(length(phi),length(n)); SUM=zeros(1,length(phi)); J=zeros(1,length(phi)); for i=1:length(phi) f(i,:)=j.^(-n).*exp(j.*n.*phi(i))./(besselh(n,2,z)); SUM(i)=sum(f(i,:)); J(i)=1/(a*c*U0*pi^2)*SUM(i); end plot(phi,J)
查看全部评分
ChaChing
原帖由 maigicku 于 2010-4-20 15:13 发表 登录/注册后可看大图 做个循环连续赋值就行了: 不过LZ的结果有许多虚数,应该好好设置一下参数。。
本版积分规则 发表回复 回帖后跳转到最后一页
|小黑屋|Archiver|手机版|联系我们|声振论坛
GMT+8, 2025-7-3 13:09 , Processed in 0.070330 second(s), 21 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.