实验六MATLAB在普通物理中的应用.docVIP

  1. 1、本文档共7页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
实验六MATLAB在普通物理中的应用

实验六:MATLAB在普通物理中的应用 一、实验目的 掌握用MATLAB解决普通物理中的难题。 二、实验仪器 1、计算机 2、MATLAB 软件环境 三、实验内容 1、一质点在xy平面内运动,运动方程x=x(t),y=y(t),求质点的轨迹方程并画出轨迹图。 (分别2组运动方程x=3t,y=2t^2+3;x=tcos(t),y=tsin(t)运算) 2、设电荷均匀分布在从x=-L到x=L,通过原点的线段上,其密度为q(单位为C/m), 试求出在z-y平面上的电位分布。 3、用毕奥-萨伐定律计算位于x-z平面上的电流环在x-y平面上产生的磁场分布。 4、振动的合成及拍频现象 5、用MATLAB程序来计算演示光的单缝衍射现象 四、实验过程 1.函数文件:zzz clear,close all x=input(x(t)=,s); y=input(y(t)=,s); tf=input(tf=); Ns=100; t=linspace(0,tf,Ns); xPlot=eval(x); yPlot=eval(y); end, plot(xPlot, yPlot) zzz x=3*t y=2*(t.^2)+3 tf=20 2.建立函数文件:zzz: E0=8.85e-12; C0=1/4/pi/E0 ; q=input(q=);L=input(L=);N=input(N=);Nr=input(Nr=); L0=linspace(-L, L, N+1); L1=L0(1:N); L2=L0(2:N+1); Lm=(L1+L2)/2; dL=2*L/N; R=linspace(0, 10, Nr+1); for k=1:Nr+1 Rk=sqrt(Lm.^2+R(k)^2); Vk=C0*dL*q./Rk; V(k)=sum(Vk); end [max(V), min(V)] plot(R, V), grid zzz q=1 L=5 N=50 Nr=50 ans = 1.0e+010 * 9.3199 0.8654 3.建立函数文件:zzz: clear all; mu0=4*pi*1e-7; I0=1;Rh=1; C0=mu0/(4*pi) * I0; NGx=20; NGy=20; x=linspace(-3, 3, 20);y=x; Nh=20; theta0=linspace(0, 2*pi, Nh+1); theta1=theta0(1: Nh); x1=Rh*cos(theta1); z1=Rh*sin(theta1); theta2=theta0(2: Nh+1); x2=Rh*cos(theta2); z2=Rh*sin(theta2); dly=0;dlx=x2-x1;dlz=z2-z1; yc=0;xc=(x2+x1)/2;zc=(z2+z1)/2; for i=1:NGy for j=1:NGx rx=x(j)-xc;ry=y(i)-yc; rz=0-zc; r3=sqrt(rx.^2+ry.^2+rz.^2).^3; dlXr_x=dly.*rz-dlz.*ry; dlXr_y=dlz.*rx-dlx.*rz; Bx(i, j)=sum(C0*dlXr_x./r3); By(i, j)=sum(C0*dlXr_y./r3); end end clf;quiver(x, y, Bx, By); gtext(x),gtext(y) 4.建立函数文件:zzz: clear all t=0: 0.001: 10; a1=input(??·ù1=); w1=input(?μ?ê1=); a2=input(??·ù2=); w2=input(?μ?ê2=); y1=a1*sin(w1*t); y2=a2*sin(w2*t); y=y1+y2; subplot(3,1, 1),plot(t,y1),ylabel(y1) subplot(3,1,2), plot(t, y2), ylabel(y2) subplot(3,1,3),plot(t,y),ylabel(y),xlabel(t) pause, sound(y1); pause(2), sound(y2); pause(2), sound(y), pause subplot(1, 1, 1) zzz 振幅1=1.2 频率1=300 振幅2=1.8

文档评论(0)

haihang2017 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档