薄层析实验报告.docVIP

薄层析实验报告 薄层析实验报告 生物化学实验报告 姓 名： xxx 学 号： xxxxxx 专业年级：临床八年制 __ 组 别： 第二实验室 篇二：氨基酸的薄层层析实验报告 生物化学实验报告姓 名： xxx 学 号： xxxxxx 专业年级：临床八年制 __ 组 别： 第二实验室 篇三：层析实验实验报告报告地球物理层析成像 实验报告 专业:勘查技术与工程 学号:xxxxxxxxxxxxxxx 姓名：xxxxxxxx实验一matlab初识与概述部分及编程 1.算下述函数在自变量采样点集上的值： ?(?x2?4x?3)/2, -3?x?-1? y??-x2?1, -1?x?1?(?x2?4x?3)/2, 1?x?3? 程序，分别创建采样向量，计算相应的函数值向量，并利用函数绘图函数fplot(x,y)绘 制x-y曲线。 --------------------------------------------------------- 实验程序及运行结果：程序： clear,clc elseif x(i) =-1 amp; x(i) 1 x = -3:0.01:3; y(i) = -x(i) + 1; n = length(x); else y = zeros(1,n); y(i) = (-x(i) + 4*x(i) - 3)/2; fori =1:n end if x(i) =-3 amp; x(i) -1 end y(i) = (-x(i) - 4*x(i) - 3)/2; plot(x,y)结果： 2.编写函数maxi，返回给定向量中最大元素的下标值。换言之，imax=maxi(v)返回的imax 满足v(imax)不小于任何v(i)。 -----------------------------------------------------实验程序如下： functionimax=fun(v) %else t=v(1,1); % imax1=0; imax=1; end fori=1:11 end if v(1,i+1)t imax t=v(1,i+1); end imax=i+1;实验二 射线追踪 实验模型如下： 模型为一三层模型，范围100m×100m。该模型含有三个水平层，上下两个层速度为 3000m/s，中间为一高速层，速度为4500m／s，高速层厚度范围是50～60m。激发点有19个， 坐标依次为是el(0,5)、e2(0,10)、e3(0,15)，?，e10(0,95)接收点有21个，坐标分别为 rl(100，0)、r2 (100,5)、r3(100,10)，?，r21(100,100)。将此模型网格化为10×10个单 元格．根据lti法追踪出19×21条射线的路径和旅行时。 ------------------------------------------------------ 编写实验程序如下： #includestdio.h int fm,n1; #includemath.h float b[960]={0.0}; void main() fm=30; { fp=fopen(zibo.txt,w+); voidzheji(float r[],float for(n1=0;n161;n1++) b[],float rec[],intm,int n); { /*雷克子波*/ b[n1]=(1-2*pi*pi*fm*fm*(n1- file *fp; 30)*dt*(n1-30)*dt)*exp(-pi*pi*fm doubledt=0.002,pi=3.1415926; *fm*(n1-30)*dt*(n1-30)*dt);} for(n1=0;n1960;n1++){fprintf(fp,%f\n,b[n1]); }fclose(fp); file *fp11,*fp1,*fp2,*fp3,*fp4,*fpy; fp11=fopen(result,wb); fp1=fopen(最佳入射 角.txt,w+); fp2=fopen(走时.txt,w+); fp3=fopen(位置.txt,w+); fpy=fopen(fsxs.txt,w+); inti,j; /*建立二维水平地质模型*/ floatv[10][256],p[10][256],dx=100.0,dz=100.0;for(i=0;i10;i++) {for(j=0;j60;j++) {v[i][j]=1800; p[i][j]=0.00021*v[i][j]+1.62; }for(j=60;j180;j++) {v[