盧瑟福散射演示動(dòng)畫

1、精選優(yōu)質(zhì)文檔-傾情為你奉上盧瑟福散射演示動(dòng)畫動(dòng)力學(xué)方程：，初始條件：用matlab求解微分方程前，進(jìn)行轉(zhuǎn)變：；令；則動(dòng)力學(xué)方程寫為：初始條件為：積分時(shí)間區(qū)段?。篺igure('name','散射演示');%設(shè)置標(biāo)題名字pausetime=.002;%設(shè)置暫停時(shí)間set(gca,'xlim',-15 20,'ylim',-18 18); %設(shè)置圖片顯示坐標(biāo)范圍set(gcf,'doublebuffer','on') %消除抖動(dòng)%axis equalhold onplot(0,0,'color&

2、#39;,'k','marker','.','markersize',40);%畫靶原子line(-10 -10,-10 10,'LineStyle','-'); %入射粒子初始位置范圍u=0:0.01*pi:2*pi;X=14*cos(u);Y=14*sin(u);plot(X,Y,'-k'); %環(huán)形探測器len=0;for n=1:100 %入射粒子數(shù)量v0=1; %入射粒子的初速度dr=rand;d=20*dr-10; %入射粒子的位置pp=plot(0,d,'r&#

3、39;,'marker','o','markersize',5);%入射粒子的初始位置t0=0;tf=25;x0=v0,-10,0,d't,x=ode45('xdot',t0,tf,x0);len=length(t);for m=1:len set(pp,'xdata',x(m,2),'ydata',x(m,4);%入射粒子的即時(shí)位置 plot(x(m,2),x(m,4),'o','markersize',1); if m=len plot(x(m,2),x(

4、m,4),'ok','markersize',5); end %把入射粒子最后停留的位置記錄下來 pause(pausetime); %暫停一會(huì) drawnowendend%subplot(1,3,1);%plot(t,x(:,1),':b',t,x(:,2),'-r');%subplot(1,3,2);%plot(t,x(:,3),':b',t,x(:,4),'-r');%subplot(1,3,3);%plot(x(:,2),x(:,4),'-b');求解動(dòng)力學(xué)方程組所用的函數(shù)。

5、xdotfunction xd=xdot(t,x)C=1;xd=zeros(4,1);xd(1)=C*(x(2)2+(x(4)2)(-1.5)*x(2);xd(2)=x(1);xd(3)=C*(x(2)2+(x(4)2)(-1.5)*x(4);xd(4)=x(3);可調(diào)整參數(shù)為：1 入射粒子數(shù)量 n2 入射粒子初速度v03 入射粒子位置d4 入射粒子動(dòng)力學(xué)參數(shù)C散射分布結(jié)果如圖：取n v0 d C=100 1 20*dr-10 1可以看出散射角大致分布區(qū)域，以及存在大角度散射。甚至存在沿原路返回的入（出）射粒子。對于兩個(gè)靶核的散射：增大兩個(gè)靶核間距，使得入射粒子可以從中間穿過。多靶體系（兩個(gè)靶

6、原子）動(dòng)力學(xué)方程：初始條件不變，變換后的動(dòng)力學(xué)方程組為：兩個(gè)靶原子的情況：figure('name','2靶核散射演示');%設(shè)置標(biāo)題名字pausetime=.002;%設(shè)置暫停時(shí)間set(gca,'xlim',-15 20,'ylim',-18 18);set(gcf,'doublebuffer','on') %消除抖動(dòng)%axis equalhold onplot(0,4,'color','k','marker','.','m

7、arkersize',40);%畫靶原子Aplot(0,-4,'color','k','marker','.','markersize',40);%畫靶原子Bline(-10 -10,-10 10,'LineStyle','-'); u=0:0.01*pi:2*pi;X=14*cos(u);Y=14*sin(u);plot(X,Y,'-k'); len=0;for n=1:100v0=1; %入射粒子的初速度dr=rand;d=20*dr-10; %入射粒子的

8、位置pp=plot(0,d,'r','marker','o','markersize',5);%入射粒子的初始位置t0=0;tf=25;x0=v0,-10,0,d't,x=ode45('xdo',t0,tf,x0);len=length(t);for m=1:len set(pp,'xdata',x(m,2),'ydata',x(m,4);%入射粒子的即時(shí)位置 plot(x(m,2),x(m,4),'o','markersize',1); if

9、 m=len plot(x(m,2),x(m,4),'ok','markersize',5); end %把入射粒子最后停留的位置記錄下來 pause(pausetime); %暫停一會(huì) drawnowendend%subplot(1,3,1);%plot(t,x(:,1),':b',t,x(:,2),'-r');%subplot(1,3,2);%plot(t,x(:,3),':b',t,x(:,4),'-r');%subplot(1,3,3);%plot(x(:,2),x(:,4),'-b');用于求解微分方程組的函數(shù)：function xdd=xdo(t,x)C1=1;C2=1;dd=4;xdd=zeros(4,1);xdd(1)=C1*(x(2)2+(x(4)-dd)2)(-1.5)*x(2)+C