[交流] 【求助】求高人帮我修改程序 已有3人参与

我编的下面这个程序画出的图形与原图不一致，可能是在能量的排序上存在问题，我不知如何修改，请大家帮我找找解决的办法，万分感谢！ clear all omega=1; m=1; for F=0:0.1:10    J=40;  T=2*pi/omega; tstep=T/J;  U=eye(4,4); for t=tstep:tstep:T       H_0=zeros(4,4); H_0(1,2)=0.2; H_0(2,1)=0.2; H_0(2,3)=0.2; H_0(3,2)=0.2; H_0(3,4)=0.2; H_0(4,3)=0.2;               H=zeros(4,4); for n=1:1:4 H(n,n)=n*F*cos(omega*t); end U=expm(-i*(H_0+H)*tstep)*U; end [C,Ueig]=eig(U); QuasiEnergy=i*log(diag(Ueig))/T; ExpectH_0=C'*H_0*C; [ExpSort,Index]=sort(diag(ExpectH_0)); E(:,m)=(QuasiEnergy(Index(1:4))); m=m+1; end plot(0:0.1:10,sort(E)) 以下是原图形： [ Last edited by fanbao_keke on 2010-6-11 at 23:50 ]

回复此楼