exn522a.m

基天子matlab的双缝干涉从单缝(线光源)发出的单色光射到与之平行的双缝上

%《MATLAB及其在理工课程中的应用指南》(十一五规划版)第五章例5-2-2a程序
% 行星椭圆轨道的极坐标绘图
% 西安电子科技大学出版社出版  陈怀琛编著 2007年7月
%
clear,clf
theta=0:0.1:2*pi;  % 产生极角向量
beta= input('beta= (书上取为1)'); 
for i=1:3
    epsilon=input('epsilon= (书上依次取为0.5,1,1.5)');
    rho=beta./(1- epsilon.*cos(theta));  %极坐标方程  
    subplot(1,3,i),polar(theta,rho);   %极坐标系绘图
end
shg,pause,
subplot(1,3,3),axis([-2,2,-2,2])
set(gcf,'color','w')