一维扩散方程的差分法matlab
一维波动方程加权差分格式求数值解matlab程序
![一维波动方程加权差分格式求数值解matlab程序](https://img.taocdn.com/s3/m/c8654c9527fff705cc1755270722192e453658da.png)
一维波动方程是描述波动传播的数学模型,在工程和物理学等领域有着重要的应用。
求解一维波动方程的数值解是一项具有挑战性的任务,对于大多数情况而言,解析解并不容易得到,因此数值方法是一种有效的求解途径。
本文将以加权差分格式为例,探讨如何使用Matlab程序求解一维波动方程的数值解。
一、一维波动方程的数学模型一维波动方程描述了空间维度和时间维度上的波动传播规律,在无阻尼情况下可以用如下的偏微分方程表示:∂^2u/∂t^2 = c^2∂^2u/∂x^2其中u(x, t)是波动的位移,c是波速,x和t分别是空间和时间的变量。
这是一个典型的双变量偏微分方程,求解这样的方程通常需要借助数值方法。
二、加权差分格式加权差分格式是求解偏微分方程数值解的一种方法,它将偏微分方程的微分算子用离散化的差分算子来逼近,得到一个离散的代数方程组,再利用数值计算方法来求解这个代数方程组。
对于一维波动方程,我们可以采用加权差分格式来进行求解。
1. 空间上的离散化对于空间上的离散化,我们可以采用有限差分法来逼近微分算子,通常采用中心差分格式。
假设在空间上我们将取n个离散点,空间步长为Δx,则可以得到以下近似:∂^2u/∂x^2 ≈ (u(x+Δx) - 2u(x) + u(x-Δx))/Δx^2将这个近似代入原方程,就可以得到离散化后的代数方程组。
2. 时间上的离散化对于时间上的离散化,我们可以采用显式或隐式的时间离散化方法。
在这里我们以显式的欧拉方法为例,假设在时间上我们将取m个离散点,时间步长为Δt,则可以得到以下近似:∂^2u/∂t^2 ≈ (u(x, t+Δt) - 2u(x, t) + u(x, t-Δt))/Δt^2将这个近似代入原方程,就可以得到离散化后的代数方程组。
3. 加权差分格式的权重选择加权差分格式需要指定一个权重参数来对离散化的方程进行求解,典型的有中心差分格式、向前差分格式和向后差分格式等。
选择合适的差分格式能够提高数值解的稳定性和精度。
求解一维扩散反应方程的隐式高精度紧致差分格式
![求解一维扩散反应方程的隐式高精度紧致差分格式](https://img.taocdn.com/s3/m/cf94a998d0f34693daef5ef7ba0d4a7302766cfd.png)
求解一维扩散反应方程的隐式高精度紧致差分格式1概述一维扩散反应方程是描述许多物理过程的数学方程之一,如化学反应、热传导等。
在求解这样的方程时,我们需要寻找适合的数值解法。
本文将介绍一种隐式高精度紧致差分格式,用于求解一维扩散反应方程。
2一维扩散反应方程一维扩散反应方程可表示为:$$\frac{\partial u}{\partial t}=D\frac{\partial^2u}{\partial x^2}+\rho u(1-u)$$其中,$u(x,t)$表示物理量的变量,$D$为扩散系数,$\rho$为反应速率常数。
初始条件为$u(x,0)=u_0(x)$,边界条件为$u(0,t)=u(L,t)=0$,其中$L$为区间长度。
3差分方法为了求解上述方程的数值解,我们需要使用差分方法。
差分方法可以将连续的偏微分方程转化为离散的方程,从而得到数值解。
这里我们采用一阶差分法和二阶差分法分别对时间和空间进行离散化。
时间离散化:$$\frac{\partial u(x,t)}{\partialt}\approx\frac{u(x,t+\Delta t)-u(x,t)}{\Delta t}$$空间离散化:$$\frac{\partial^2u(x,t)}{\partialx^2}\approx\frac{u(x+\Delta x,t)-2u(x,t)+u(x-\Deltax,t)}{\Delta x^2}$$将上述两个式子带入到原方程中,得到离散化形式:$$\frac{u_i^{n+1}-u_i^n}{\Delta t}=D\frac{u_{i+1}^n-2u_i^n+u_{i-1}^n}{\Delta x^2}+\rho u_i^n(1-u_i^n)$$其中,$n$表示时间步长,$i$表示空间位置。
4隐式高精度紧致差分格式在上述差分方法中,我们采用了一阶差分法和二阶差分法,这种方法的精度有限。
为了提高求解的精度,可以采用更高阶的差分方法。
一维导热方程有限差分法matlab实现
![一维导热方程有限差分法matlab实现](https://img.taocdn.com/s3/m/92f316e6168884868662d68f.png)
第五次作业(前三题写在作业纸上)一、用有限差分方法求解一维非定常热传导方程,初始条件和边界条件见说明.pdf 文件,热扩散系数α=const ,22T T t xα∂∂=∂∂ 1. 用Tylaor 展开法推导出FTCS 格式的差分方程2. 讨论该方程的相容性和稳定性,并说明稳定性要求对求解差分方程的影响。
3. 说明该方程的类型和定解条件,如何在程序中实现这些定解条件。
4. 编写M 文件求解上述方程,并用适当的文字对程序做出说明。
(部分由网络搜索得到,添加,修改后得到。
)function rechuandaopde%以下所用数据,除了t 的范围我根据题目要求取到了20000,其余均从pdf 中得来 a=0.00001;%a 的取值xspan=[0 1];%x 的取值范围tspan=[0 20000];%t 的取值范围ngrid=[100 10];%分割的份数,前面的是t 轴的,后面的是x 轴的f=@(x)0;%初值g1=@(t)100;%边界条件一g2=@(t)100;%边界条件二[T,x,t]=pdesolution(a,f,g1,g2,xspan,tspan,ngrid);%计算所调用的函数[x,t]=meshgrid(x,t);mesh(x,t,T);%画图,并且把坐标轴名称改为x ,t ,Txlabel('x')ylabel('t')zlabel('T')T%输出温度矩阵dt=tspan(2)/ngrid(1);%t 步长h3000=3000/dt;h9000=9000/dt;h15000=15000/dt;%3000,9000,15000下,温度分别在T矩阵的哪些行T3000=T(h3000,:)T9000=T(h9000,:)T15000=T(h15000,:)%输出三个时间下的温度分布%不再对三个时间下的温度-长度曲线画图,其图像就是三维图的截面%稳定性讨论,傅里叶级数法dx=xspan(2)/ngrid(2);%x步长sta=4*a*dt/(dx^2)*(sin(pi/2))^2;if sta>0,sta<2fprintf('\n%s\n','有稳定性')elsefprintf('\n%s\n','没有稳定性')errorend%真实值计算[xe,te,Te]=truesolution(a,f,g1,g2,xspan,tspan,ngrid);[xe,te]=meshgrid(xe,te);mesh(xe,te,Te);%画图,并且把坐标轴名称改为xe,te,Texlabel('xe')ylabel('te')zlabel('Te')Te%输出温度矩阵%误差计算jmax=1/dx+1;%网格点数[rms]=wuchajisuan(T,Te,jmax)rms%输出误差function [rms]=wuchajisuan(T,Te,jmax)for j=1:jmaxrms=((T(j)-Te(j))^2/jmax)^(1/2)endfunction[Ue,xe,te]=truesolution(a,f,g1,g2,xspan,tspan,ngrid)n=ngrid(1);%t份数m=ngrid(2);%x份数Ue=zeros(ngrid);xe=linspace(xspan(1),xspan(2),m);%画网格te=linspace(tspan(1),tspan(2),n);%画网格for j=2:nfor i=2:m-1for g=1:m-1Ue(j,i)=100-(400/(2*g-1)/pi)*sin((2*g-1)*pi*xe(j))*exp(-a*(2*g-1)^2*pi^2*te(i)) endendendfunction [U,x,t]=pdesolution(a,f,g1,g2,xspan,tspan,ngrid)n=ngrid(1);%t份数m=ngrid(2);%x份数h=range(xspan)/(m-1);%x网格长度x=linspace(xspan(1),xspan(2),m);%画网格k=range(tspan)/(n-1); %t网格长度t=linspace(tspan(1),tspan(2),n);%画网格U=zeros(ngrid);U(:,1)=g1(t);%边界条件U(:,m)=g2(t);U(1,:)=f(x);%初值条件%差分计算for j=2:nfor i=2:m -1U(j,i)=(1-2*a*k/h^2)*U(j -1,i)+a*k/h^2*U(j -1,i -1)+a*k/h^2*U(j -1,i+1);endend5. 将温度随时间变化情况用曲线表示x t T6. 给出3000、9000、15000三个时刻的温度分布情况,对温度随时间变化规律做说明。
一维热传导方程数值解法及matlab实现分离变量法和有限差分法
![一维热传导方程数值解法及matlab实现分离变量法和有限差分法](https://img.taocdn.com/s3/m/c91e964f26284b73f242336c1eb91a37f111323b.png)
一维热传导方程数值解法及matlab实现分离变量法和有限差分法一维热传导方程的Matlab解法:分离变量法和有限差分法。
问题描述:本实验旨在利用分离变量法和有限差分法解决热传导方程问题,并使用Matlab进行建模,构建图形,研究不同情况下采用何种方法从更深层次上理解热量分布与时间、空间分布关系。
实验原理:分离变量法:利用分离变量法,将热传导方程分解为两个方程,分别只包含变量x和变量t,然后将它们相乘并求和,得到一个无穷级数的解。
通过截取该级数的前n项,可以得到近似解。
有限差分法:利用有限差分法,将空间和时间分别离散化,将偏导数用差分代替,得到一个差分方程组。
通过迭代求解该方程组,可以得到近似解。
分离变量法实验:采用Matlab编写代码,利用分离变量法求解热传导方程。
首先设定x和t的范围,然后计算无穷级数的前n项,并将其绘制成三维图形。
代码如下:matlabx = 0:0.1*pi:pi;y = 0:0.04:1;x。
t] = meshgrid(x。
y);s = 0;m = length(j);for i = 1:ms = s + (200*(1-(-1)^i))/(i*pi)*(sin(i*x).*exp(-i^2*t));endsurf(x。
t。
s);xlabel('x')。
XXX('t')。
zlabel('T');title('分离变量法(无穷)');axis([0 pi 0 1 0 100]);得到的三维热传导图形如下:有限差分法实验:采用Matlab编写代码,利用有限差分法求解热传导方程。
首先初始化一个矩阵,用于存储时间t和变量x。
然后计算稳定性系数S,并根据边界条件和初始条件,迭代求解差分方程组,并将其绘制成三维图形。
代码如下:matlabu = zeros(10.25);s = (1/25)/(pi/10)^2;fprintf('稳定性系数S为:\n');disp(s);for i = 2:9u(i。
一维热传导方程matlab程序
![一维热传导方程matlab程序](https://img.taocdn.com/s3/m/38cbf4073868011ca300a6c30c2259010302f361.png)
一维热传导方程matlab程序一维热传导方程是研究物体在一维情况下的温度分布变化的方程,其数学表达式为:∂u/∂t = α∂²u/∂x²其中,u表示温度,t表示时间,x表示空间位置,α表示热扩散系数。
为了求解一维热传导方程,我们可以采用有限差分法来进行数值计算。
具体来说,我们可以将时间和空间进行离散化,然后利用差分公式来逼近偏微分方程。
下面是一维热传导方程的matlab程序:% 定义参数L = 1; % 空间长度T = 1; % 时间长度N = 100; % 空间网格数M = 1000; % 时间网格数dx = L/N; % 空间步长dt = T/M; % 时间步长alpha = 0.1; % 热扩散系数% 初始化温度分布u = zeros(N+1,1);u(1) = 100; % 左端点温度为100度% 迭代求解for k = 1:Mfor i = 2:Nu(i) = u(i) + alpha*dt/dx^2*(u(i+1)-2*u(i)+u(i-1)); endend% 绘制温度分布图像x = linspace(0,L,N+1);plot(x,u,'LineWidth',2);xlabel('位置');ylabel('温度');title('一维热传导方程的数值解');在上述程序中,我们首先定义了一些参数,包括空间长度L、时间长度T、空间网格数N、时间网格数M、空间步长dx、时间步长dt 以及热扩散系数alpha。
然后,我们初始化了温度分布,将左端点的温度设为100度。
接下来,我们使用双重循环来迭代求解温度分布,最后绘制出了温度分布的图像。
通过这个程序,我们可以方便地求解一维热传导方程,并得到其数值解。
当然,如果需要更精确的结果,我们可以增加空间网格数和时间网格数,来提高计算精度。
一维流体差分 matlab
![一维流体差分 matlab](https://img.taocdn.com/s3/m/7c2148446d85ec3a87c24028915f804d2b16870b.png)
一维流体差分 matlab
在处理一维流体动力学问题时,差分方法是一种常用的数值求
解技术。
在Matlab中,你可以使用差分方法来离散化一维流体动力
学方程,然后求解离散化后的方程以获得数值解。
首先,你需要将一维流体动力学方程离散化。
例如,如果你正
在处理一维不可压缩流体的流动问题,你可以使用连续方程和动量
方程来描述流体的行为。
然后,你可以将这些偏微分方程转化为差
分方程,例如使用有限差分方法。
在Matlab中,你可以编写一个函数来表示差分方程,并使用内
置的数值求解器(如ode45)来求解这些方程。
你需要定义网格、
边界条件和初始条件,并使用适当的差分格式(如向前差分、向后
差分或中心差分)来离散化偏微分方程。
然后,你可以使用Matlab
的矩阵运算和求解器来解决离散化后的方程。
此外,Matlab还提供了一些专门用于求解偏微分方程的工具箱,如Partial Differential Equation Toolbox,它包含了一些内置
的函数和工具,可以帮助你更轻松地处理一维流体动力学问题的数
值求解。
总之,使用Matlab进行一维流体动力学问题的差分求解涉及到离散化方程、定义边界条件和初始条件、选择合适的差分格式,以及使用Matlab的数值求解器或工具箱来求解离散化后的方程。
希望这些信息能够帮助你更好地理解在Matlab中应用差分方法求解一维流体动力学问题的过程。
matlab差分法解微分方程
![matlab差分法解微分方程](https://img.taocdn.com/s3/m/f81446082a160b4e767f5acfa1c7aa00b52a9dc0.png)
matlab差分法解微分方程在MATLAB中,差分法是一种常用的数值方法,用于解决微分方程。
差分法的基本思想是将微分方程中的导数用离散的差分近似表示,然后通过迭代计算得到方程的数值解。
下面我将从多个角度来解释如何使用差分法在MATLAB中解微分方程。
1. 离散化,首先,我们需要将微分方程离散化,将自变量和因变量分成若干个离散的点。
例如,可以选择一个均匀的网格,将自变量的取值离散化为一系列的点。
这样,微分方程中的导数可以用差分近似来表示。
2. 差分近似,使用差分近似来代替微分方程中的导数。
最常见的差分近似方法是中心差分法。
对于一阶导数,可以使用中心差分公式,f'(x) ≈ (f(x+h) f(x-h)) / (2h),其中h是离散化步长。
对于二阶导数,可以使用中心差分公式,f''(x) ≈ (f(x+h) 2f(x) + f(x-h)) / (h^2)。
根据微分方程的类型和边界条件,选择适当的差分近似方法。
3. 矩阵表示,将差分近似后的微分方程转化为矩阵形式。
通过将微分方程中的各项离散化,可以得到一个线性方程组。
这个方程组可以用矩阵表示,其中未知量是离散化后的因变量。
4. 数值求解,使用MATLAB中的线性代数求解函数,例如backslash运算符(\)或者LU分解等,求解得到线性方程组的数值解。
这个数值解就是微分方程的近似解。
需要注意的是,差分法是一种数值方法,所得到的解是近似解,精确度受离散化步长的影响。
通常情况下,可以通过减小离散化步长来提高数值解的精确度。
此外,对于某些特殊类型的微分方程,可能需要采用更高级的差分方法,如龙格-库塔法(Runge-Kutta method)或有限元方法(Finite Element Method)等。
综上所述,差分法是一种常用的数值方法,可以在MATLAB中用于解决微分方程。
通过离散化、差分近似、矩阵表示和数值求解等步骤,可以得到微分方程的数值解。
有限差分法matlab程序一维热传导
![有限差分法matlab程序一维热传导](https://img.taocdn.com/s3/m/eccba80f3868011ca300a6c30c2259010302f369.png)
有限差分法matlab程序一维热传导一维热传导是一个常见的物理问题,涉及到热量在一个维度上的传递和分布。
在工程和科学领域中,研究和解决一维热传导问题对于优化系统设计和预测热现象非常重要。
本文将介绍如何使用有限差分法在MATLAB中模拟一维热传导过程。
有限差分法是一种常用的数值解法,用于近似求解微分方程。
它将连续的物理问题离散化,将连续的空间和时间划分为离散的网格点,并通过近似替代微分算子来计算离散点上的数值。
在一维热传导问题中,我们可以将传热方程离散化为差分方程,然后通过迭代计算来模拟热传导过程。
我们需要定义问题的边界条件和初始条件。
对于一维热传导问题,我们通常需要给定材料的热扩散系数、初始温度分布和边界条件。
假设我们研究的是一个长为L的细杆,材料的热扩散系数为α,初始温度分布为T(x,0),边界条件为T(0,t)和T(L,t)。
接下来,我们将空间离散化为N个网格点,时间离散化为M个时间步长。
我们可以使用等距网格,将杆的长度L划分为N个小段,每段的长度为Δx=L/N。
同样,时间也被划分为M个小步长,每个步长的长度为Δt。
这样,我们可以得到网格点的坐标x(i)和时间点的坐标t(j),其中i=1,2,...,N,j=1,2,...,M。
在有限差分法中,我们使用差分近似代替偏导数项。
对于一维热传导方程,我们可以使用向前差分近似代替时间导数项,使用中心差分近似代替空间导数项。
这样,我们可以得到差分方程:(T(i,j+1)-T(i,j))/Δt = α*(T(i+1,j)-2*T(i,j)+T(i-1,j))/Δx^2其中,T(i,j)表示在位置x(i)和时间t(j)的温度。
通过对差分方程进行重排和整理,我们可以得到递推公式:T(i,j+1) = T(i,j) + α*Δt*(T(i+1,j)-2*T(i,j)+T(i-1,j))/Δx^2现在,我们可以在MATLAB中实现这个递推公式。
首先,我们需要定义问题的参数和初始条件。
一维抛物线方程混合边界问题matlab求解(一维扩散方程
![一维抛物线方程混合边界问题matlab求解(一维扩散方程](https://img.taocdn.com/s3/m/e42ad4aa0242a8956bece45e.png)
在差分方法中分为前差、后差、中心差以及显式、隐式、中心式。
这些概念分别对应着对空间和时间的离散。
针对以上抛物线方程的求解方法,分别采用向前、向后、对称六点和三行式进行计算。
一维抛物线的一般方程为此题为混合边界问题1、前差的一般格式为将成为网比,记做r,则差分格式可以写成将上标为k+1的放在一边,k的放在一边,这样就可以写成矩阵形式。
根据已知条件便可以求解。
(下面是前差的matlab代码)r=10;x=0:0.1:1;t=0:0.1:1;U=[];U(:,1)=0;U(:,11)=0;U(1,:)=sin(pi.*x);for i=2:11%%行for j=2:10%%列U(i,j)=r*U(i-1,j-1)+(1-2*r)*U(i-1,j)+r*U(i-1,j+1);endendfigure;surf(x,t,U);例题中并没有给出t的具体值,这里取了1,如同正方形laplace方程一样,纯粹为了好求。
上面两个for循环代替了矩阵的作用。
如果想改成矩阵,很简单,自行解决。
这里请注意前差后差的不同点在于右式中上标的变化。
附上matlab代码:h=0.1;k=0.1;N=1/h;M=1/0.1;r=k/h^2;for i=1:N-1B(i)=sin(i/N*pi);endU(:,1)=B;A=diag(ones(1,N-1)*(1+2*r))-diag(ones(1,N-2)*r,1)-diag(ones(1,N-2)*r, -1);for i=2:M+1U(:,i)=A\U(:,i-1);endZ=[zeros(11,1),U',zeros(11,1)];[X,Y]=meshgrid(linspace(1,0,11),linspace(1,0,11));surf(X,Y,Z);整理上式可以得到类似AX=BY形式的矩阵,h=0.1;k=0.1;N=1/h;M=1/0.1;r=k/h^2;for i=1:N-1B(i)=sin(i/N*pi)endU(:,1)=BA=diag(ones(1,N-1)*(1+r))-diag(ones(1,N-2)*r/2,1)-diag(ones(1,N-2)*r/ 2,-1)C=diag(ones(1,N-1)*(1-r))+diag(ones(1,N-2)*r/2,1)+diag(ones(1,N-2)*r/ 2,-1)for i=2:M+1U(:,i)=A\(C*U(:,i-1))endZ=[zeros(11,1),U',zeros(11,1)];[X,Y]=meshgrid(linspace(0,1,11),linspace(0,1,11));surf(X,Y,Z);三行式的稳定性很差,做出来的结果也令人吃惊,不知是对是错,大家自己好好检查一下。
差分方程matlab
![差分方程matlab](https://img.taocdn.com/s3/m/b039196c302b3169a45177232f60ddccdb38e673.png)
差分方程matlab
差分方程是数学中的一种重要的工具,它可以用来描述离散的动态系统。
在实际应用中,差分方程常常被用来模拟物理、化学、生物等领域中的现象。
在本文中,我们将介绍如何使用Matlab来求解差分方程。
我们需要了解什么是差分方程。
差分方程是一种递推关系式,它描述了一个序列中相邻两项之间的关系。
例如,一个简单的差分方程可以写成:
y(n+1) = y(n) + 1
这个方程表示,序列y的下一项等于当前项加1。
这个方程可以用来模拟一个简单的增长过程。
在Matlab中,我们可以使用函数ode45来求解差分方程。
ode45是一种常用的数值求解器,它可以求解一般的常微分方程和差分方程。
下面是一个使用ode45求解差分方程的例子:
function dydt = myode(t,y)
dydt = -y;
[t,y] = ode45(@myode,[0 10],1);
plot(t,y)
这个例子中,我们定义了一个差分方程dydt = -y,它表示序列y的下一项等于当前项的相反数。
然后,我们使用ode45函数求解这个方程,并将结果绘制成图形。
除了ode45函数,Matlab还提供了许多其他的数值求解器,例如ode23、ode113等。
这些函数可以根据不同的求解精度和速度要求来选择使用。
差分方程是一种重要的数学工具,它可以用来描述离散的动态系统。
在Matlab中,我们可以使用ode45等函数来求解差分方程。
通过这些工具,我们可以更好地理解和模拟现实世界中的各种现象。
matlab练习程序(差分法解一维热传导方程)
![matlab练习程序(差分法解一维热传导方程)](https://img.taocdn.com/s3/m/09edd50053ea551810a6f524ccbff121dc36c553.png)
matlab练习程序(差分法解⼀维热传导⽅程)差分法计算⼀维热传导⽅程是计算偏微分⽅程数值解的⼀个经典例⼦。
热传导⽅程也是⼀种抛物型偏微分⽅程。
⼀维热传导⽅程如下:该⽅程的解析解为:通过对⽐解析解和数值解,我们能够知道数值解的是否正确。
下⾯根据微分写出差分形式:整理得:已知⽹格平⾯三条边的边界条件,根据上⾯递推公式,不断递推就能计算出每个⽹格的值。
matlab代码如下:clear all;close all;clc;t = 0.03; %时间范围,计算到0.03秒x = 1; %空间范围,0-1⽶m = 320; %时间⽅向分320个格⼦n = 64; %空间⽅向分64个格⼦ht = t/(m-1); %时间步长dthx = x/(n-1); %空间步长dxu = zeros(m,n);%设置边界条件i=2:n-1;xx = (i-1)*x/(n-1);u(1,2:n-1) = sin(4*pi*xx);u(:,1) = 0;u(:,end) = 0;%根据推导的差分公式计算for i=1:m-1for j=2:n-1u(i+1,j) = ht*(u(i,j+1)+u(i,j-1)-2*u(i,j))/hx^2 + u(i,j);endend%画出数值解[x,t] = meshgrid(0:x/(n-1):1,0:0.03/(m-1):0.03);mesh(x,t,u)%画出解析解u1 = exp(-(4*pi)^2*t).*sin(4*pi*x);figure;mesh(x,t,u1);%数值解与解析解的差figure;mesh(abs(u-u1));数值解:解析解:两种解的差的绝对值:。
一维粒子扩散过程代码matlab
![一维粒子扩散过程代码matlab](https://img.taocdn.com/s3/m/d515e361580102020740be1e650e52ea5418ce4b.png)
一维粒子扩散过程代码matlab一维粒子扩散过程是指在一维空间中,粒子由高浓度区域向低浓度区域移动的过程。
这个过程可以用扩散方程进行建模和描述。
在本文中,将介绍如何使用Matlab编写一维粒子扩散过程的代码,并逐步解释每一步。
起初,我们需要定义一维空间的尺寸和时间步长。
在这个例子中,我们假设一维空间的尺寸为L,时间步长为dt。
matlabL = 10; 一维空间尺寸dt = 0.01; 时间步长然后,我们需要定义初始条件和边界条件。
在这个例子中,我们假设初始浓度分布是一个高斯分布,边界条件为周期性边界,即当粒子到达一维空间的边界时会从另一边进入。
matlabN = 100; 粒子数x = linspace(0, L, N); 一维空间均匀分布的点c0 = exp(-(x - L/2).^2); 初始浓度分布为高斯分布c = c0; 当前浓度分布周期性边界条件c(1) = c(end);c(end) = c(1);接下来,我们需要定义扩散系数D,它描述了粒子在单位时间内从高浓度区域向低浓度区域扩散的速率。
在这个例子中,我们假设扩散系数是一个常数。
matlabD = 0.1; 扩散系数然后,我们可以使用扩散方程来模拟粒子扩散的过程。
扩散方程可以写成以下形式:matlabdc = D * (circshift(c,1) - 2*c + circshift(c,-1)) / (dx^2);c = c + dc * dt;在这个方程中,dc表示浓度变化率,circshift函数用于实现周期性边界条件,dx表示一维空间中相邻两个点的间距。
最后,我们需要设置模拟的总时间和输出间隔,并在每一个输出步骤中绘制当前的浓度分布。
matlabtTotal = 10; 总时间tOutput = 0.1; 输出间隔nSteps = round(tTotal / dt); 总步数nOutputSteps = round(tOutput / dt); 输出步数figure;for i = 1:nStepsdc = D * (circshift(c,1) - 2*c + circshift(c,-1)) / (dx^2);c = c + dc * dt;if mod(i,nOutputSteps) == 0plot(x,c);axis([0 L 0 max(c0)]);xlabel('Position');ylabel('Concentration');title(['Diffusion Process at Time = ' num2str(i*dt)]);drawnow;endend通过以上的简单步骤,我们就可以使用Matlab编写一维粒子扩散过程的代码。
matlab求解一维对流扩散方程
![matlab求解一维对流扩散方程](https://img.taocdn.com/s3/m/355f7e15f11dc281e53a580216fc700abb68529b.png)
一维对流扩散方程是描述物质传输和扩散现象的重要数学模型,对于工程、地质、生物等领域具有重要的理论和应用价值。
在科学研究和工程实践中,人们经常需要利用计算机软件对一维对流扩散方程进行数值求解,以获得物质传输和扩散的详细信息。
MATLAB作为一种强大的科学计算软件,提供了丰富的数学工具和编程接口,可以方便地对一维对流扩散方程进行数值求解。
本文将介绍利用MATLAB对一维对流扩散方程进行数值求解的基本方法和步骤。
一、一维对流扩散方程的数学模型一维对流扩散方程是描述物质在一维空间中传输和扩散的数学模型,通常可以写成如下的形式:∂c/∂t + u∂c/∂x = D∂^2c/∂x^2其中,c是物质浓度,t是时间,x是空间坐标,u是对流速度,D是扩散系数。
该方程的求解可以得到物质浓度随时间和空间的变化规律,对于理解物质传输和扩散过程具有重要意义。
二、MATLAB求解一维对流扩散方程的基本步骤在MATLAB中,可以利用偏微分方程求解工具箱(Partial Differential Equation Toolbox)来对一维对流扩散方程进行数值求解。
求解的基本步骤如下:1. 网格的生成首先需要在空间上生成一个网格,将一维空间离散化为有限个网格点。
可以利用MATLAB中的linspace函数或者自定义函数来实现网格的生成。
2. 边界条件和初始条件的设定根据具体问题的边界条件和初始条件,需要在MATLAB中对边界条件和初始条件进行设定。
3. 偏微分方程的建立利用MATLAB中的偏微分方程建立工具箱,可以方便地将一维对流扩散方程建立为MATLAB中的偏微分方程对象。
4. 方程的数值求解利用MATLAB中的求解器对建立的偏微分方程进行数值求解,可以获得一维对流扩散方程的数值解。
5. 结果的可视化可以利用MATLAB中丰富的绘图函数,对求解得到的数值解进行可视化,以便对物质传输和扩散过程进行直观的理解。
三、MATLAB求解一维对流扩散方程的举例为了进一步说明MATLAB求解一维对流扩散方程的方法,下面举一个简单的例子进行说明。
一维热传导方程分离变量法与有限差分法Matlab解法
![一维热传导方程分离变量法与有限差分法Matlab解法](https://img.taocdn.com/s3/m/5d2ce35bbe23482fb4da4cf0.png)
第四题完成
u(20,j)=u(19,j); end; disp(u); [x,t]=meshgrid(1:100,1:20); surf(x,t,u); xlabel('t'),ylabel('x'),zlabel('T'); title(' 有限差分法解'); 我们得到如图所示的热传导方程:
结论:
比较可得由以上两种方法作出的三维图形基本相同,符合热传导的热量分布 随时间和空间的变化规律
得到如图所示的热传导方程:
有限差分法
u=zeros(20,100); %t=1 x=pi 20 行 100 列 横坐标为 x 纵坐标为 t s=(1/100)/(pi/20)^2; fprintf(' 稳定性系数 S 为:\n'); disp(s); for i=1:20 u(i,1)=i/20*pi;; end; for j=1:100 u(1,j)=0; end for j=1:99 for i=2:19 u(i,j+1)=s*u(i+1,j)+(1-2*s)*u(i,j)+s*u(i-1,j); end end for j=1:100
模拟与仿真
根据课上所学知识,我们有如下方程:
u − a 2u = 0, 0 < x < l , t > 0 t xx u x x = l 0, t>0 = u x = 0 0, = 0< x<l = u t = 0 ϕ ( x ),
为便于解释做题,我们令: a=1 l=pi =x; 下面开始求解:
分离变量法 根据课上所讲
其中:
我们有如下代码:
x=0:0.1*pi:pi; y=0:0.4:10; [x,t]=meshgrid(x,y); u=0; m=length(j);%m u=u+8*(-1)^i/(pi*(2*i+1)^2)*(sin((2*i+1)/2*x).*exp(-(2*i+1)^2/4*t)); end; surf(x,t,u); xlabel('x'),ylabel('t'),zlabel('T'); title(' 分离变量法(无穷)'); disp(u);
扩散方程高精度加权差分格式的MATLAB实现
![扩散方程高精度加权差分格式的MATLAB实现](https://img.taocdn.com/s3/m/37df662378563c1ec5da50e2524de518964bd3df.png)
扩散方程高精度加权差分格式的MATLAB实现
扩散方程高精度加权差分格式的MATLAB实现
胡敏
【摘要】对扩散方程混合问题,利用二阶微商三次样条四阶逼近公式构造其四阶加权差分格式.使用MATLAB软件编程,将问题的解用图像表示出来,通过数值结果验证了该方法的可行性和稳定性.
【期刊名称】四川文理学院学报
【年(卷),期】2014(024)005
【总页数】4
【关键词】扩散方程;加权差分格式;高精度;MATLAB
0 引言
MATLAB是一款具有精确数值计算功能和丰富图形处理函数的软件,[1]偏微分方程的数值解可直观地以二维、三维图形方式显示在屏幕上.因此,近年来,越来越多的人开始使用MATLAB来求解偏微分方程.[2-7]一维扩散方程是最简单的偏微分方程之一,其定解问题的数值方法有差分法、有限元法和边界元法.本文主要讨论一维扩散方程的一个高精度加权差分格式的MATLAB实现.[8]
1 求解扩散方程的基本思想
用有限差分法求解偏微分方程问题必须把连续问题进行离散化,因此求解扩散方程的基本思想是把连续的定解区域用有限个离散点构成的网格来代替,这些离散点称作网格的节点.[9]
把连续定解区域上连续变量的函数用定义在网格上的离散变量函数来近似,于是原微分方程和定解条件就近似地以代数方程组代之,即有限差分方程组,解此方程组就可以得到原问题在离散点上的近似解.然后再利用插值方法便可以从。
扩散模型 matlab
![扩散模型 matlab](https://img.taocdn.com/s3/m/00fff39dac51f01dc281e53a580216fc700a538c.png)
扩散模型是用于分析信息、技术、行为、信念和传染病在人群中传播的一种模型,在通信科学、市场营销学和流行病学的研究中发挥着核心作用。
在MATLAB中,实现扩散模型的一般步骤如下:
1. 建立模型方程:根据大气扩散的基本原理,建立描述污染物在大气中传输和扩散过程的数学模型。
2. 进行迭代计算:使用MATLAB中的循环结构,如for循环或while循环,对差分方程进行迭代计算。
每一次迭代都根据前一次迭代的结果来更新浓度值。
3. 可视化结果:使用MATLAB中的绘图函数,如contourf或surf,将模拟结果以图形的形式进行可视化展示。
需要注意的是,以上只是一种简单的实现方法,实际应用中可能会有更复杂的模型和解算方法。
具体实现时需要根据具体问题和模型进行调整和改进。
matlab差分法解偏微分方程
![matlab差分法解偏微分方程](https://img.taocdn.com/s3/m/4402c5692bf90242a8956bec0975f46527d3a700.png)
Matlab 差分法解偏微分方程1.引言解偏微分方程是数学和工程领域中的一项重要课题,它在科学研究和工程实践中具有广泛的应用。
而 Matlab 差分法是一种常用的数值方法,用于求解偏微分方程。
本文将介绍 Matlab 差分法在解偏微分方程中的应用,包括原理、步骤和实例。
2. Matlab 差分法原理差分法是一种离散化求解微分方程的方法,通过近似替代微分项来求解微分方程的数值解。
在 Matlab 中,差分法可以通过有限差分法或者差分格式来实现。
有限差分法将微分方程中的导数用有限差分替代,而差分格式指的是使用不同的差分格式来近似微分方程中的各个项,通常包括前向差分、后向差分和中心差分等。
3. Matlab 差分法步骤使用 Matlab 差分法解偏微分方程一般包括以下步骤:(1)建立离散化的区域:将求解区域离散化为网格点或节点,并确定网格间距。
(2)建立离散化的时间步长:对于时间相关的偏微分方程,需要建立离散化的时间步长。
(3)建立离散化的微分方程:使用差分法将偏微分方程中的微分项转化为离散形式。
(4)建立迭代方程:根据离散化的微分方程建立迭代方程,求解数值解。
(5)编写 Matlab 代码:根据建立的迭代方程编写 Matlab 代码求解数值解。
(6)求解并分析结果:使用 Matlab 对建立的代码进行求解,并对结果进行分析和后处理。
4. Matlab 差分法解偏微分方程实例假设我们要使用 Matlab 差分法解决以下一维热传导方程:∂u/∂t = α * ∂^2u/∂x^2其中 u(x, t) 是热传导方程的温度分布,α 是热扩散系数。
4.1. 离散化区域和时间步长我们将求解区域离散化为网格点,分别为 x_i,i=1,2,...,N。
时间步长为Δt。
4.2. 离散化的微分方程使用中心差分格式将偏微分方程中的导数项离散化得到:∂u/∂t ≈ (u_i(t+Δt) - u_i(t))/Δt∂^2u/∂x^2 ≈ (u_i-1(t) - 2u_i(t) + u_i+1(t))/(Δx)^2代入原偏微分方程可得离散化的微分方程:(u_i(t+Δt) - u_i(t))/Δt = α * (u_i-1(t) - 2u_i(t) + u_i+1(t))/(Δx)^24.3. 建立迭代方程根据离散化的微分方程建立迭代方程:u_i(t+Δt) = u_i(t) + α * Δt * (u_i-1(t) - 2u_i(t) + u_i+1(t))/(Δx)^24.4. 编写 Matlab 代码使用以上建立的迭代方程编写 Matlab 代码求解热传导方程。
matlab差分法
![matlab差分法](https://img.taocdn.com/s3/m/e90a0c2c7f21af45b307e87101f69e314332fac0.png)
matlab差分法差分法(also known as finite difference method)是一种常见的数值计算方法,它将连续函数转化为离散的数值计算问题。
在MATLAB中,差分法可以用于求解微分方程、数值积分和数据插值等问题。
差分法的基本思想是通过近似表示函数的导数或积分,将连续函数转化为离散的数值计算问题。
差分的计算方式通常有前向差分、中心差分和后向差分三种。
前向差分是通过函数值在当前点和后一个点之间的差分来近似表示导数,计算公式如下:f'(x) ≈ (f(x+h) - f(x)) / h其中h表示插值点之间的步长,取值越小近似越精确,但计算量也会增加。
中心差分是通过函数值在前一个点和后一个点之间的差分来近似表示导数,计算公式如下:f'(x) ≈ (f(x+h) - f(x-h)) / (2h)中心差分法的精度比前向差分法高一阶,但计算量也相应增加。
后向差分是通过函数值在当前点和前一个点之间的差分来近似表示导数,计算公式如下:f'(x) ≈ (f(x) - f(x-h)) / h后向差分法的精度相对较低,但在一些特殊情况下仍然被广泛使用。
除了求导数,差分法还可以用于数值积分。
数值积分是通过对函数在一段区间上的离散点进行求和来近似表示整个区间上的积分值。
常见的数值积分方法包括矩形法、梯形法和辛普森法。
这些方法都可以通过对函数值使用相应的差分公式,来将积分转化为累加求和的形式,从而得到数值结果。
此外,差分法还可以用于数据插值。
数据插值是通过已知离散数据点的函数值,来计算未知点上的函数值。
常用的插值方法有线性插值、二次插值和三次插值等。
这些方法都可以通过使用差分公式,将插值问题转化为求解系数的线性方程组,进而得到插值结果。
综上所述,差分法是一种常见的数值计算方法,可以用于求解微分方程、数值积分和数据插值等问题。
MATLAB提供了丰富的函数和工具箱,使得差分法的实现变得简单和高效。
matlab中反向差分离散化
![matlab中反向差分离散化](https://img.taocdn.com/s3/m/b8bbf4785627a5e9856a561252d380eb6394236e.png)
一、概述在数学和科学工程领域中,差分方法是一种常用的数值计算方法,用于对微分方程进行离散化处理。
在MATLAB中,反向差分离散化是一种常用的差分方法,它能够有效地对连续问题进行离散化处理,为数值求解提供了重要的基础。
二、反向差分原理反向差分的原理是通过将微分方程中的导数项用差分表示来进行离散化处理。
对于一维空间上的定常扩散方程:$$\frac{d^2u}{dx^2} = f(x)$$通过反向差分,可以得到离散化的形式:$$\frac{u_{i} - 2u_{i+1} + u_{i+2}}{\Delta x^2} = f(x_i)$$三、MATLAB中的反向差分离散化1. 离散化步骤在MATLAB中进行反向差分离散化的步骤如下:(1)给出空间上的离散点,一般通过定义一个空间网格来进行描述;(2)利用反向差分的差分算子来近似微分方程中的导数项;(3)利用差分算子离散方程,建立线性方程组;(4)求解线性方程组,得到离散化的解。
2. 离散化实例下面通过一个简单的示例来说明MATLAB中反向差分离散化的实际应用。
考虑一维定常扩散方程:$$\frac{d^2u}{dx^2} = 1, \quad 0 < x < 1$$并且给出边界条件:$u(0) = 0, u(1) = 1$。
我们将其进行反向差分离散化处理。
四、MATLAB代码实现MATLAB中可以通过以下代码实现对定常扩散方程的反向差分离散化:```matlab定义空间上的离散点x = linspace(0, 1, 100);dx = x(2) - x(1);构造差分算子A = full(sparse(1:100, 1:100, -2*ones(1,100), 100, 100) +sparse(1:99, 2:100, ones(1,99), 100, 100) + sparse(2:100, 1:99, ones(1,99), 100, 100));构造右端项f = ones(100, 1);边界条件处理f(1) = f(1) - 0;f(100) = f(100) - 1;求解线性方程组u = A \ (dx^2 * f);绘制结果plot(x, u);```五、应用与总结反向差分离散化作为一种常用的差分方法,在MATLAB中得到了广泛的应用。
一维扩散方程的差分法matlab
![一维扩散方程的差分法matlab](https://img.taocdn.com/s3/m/f1fcef91a1c7aa00b52acbe7.png)
一维扩散方程的差分法m a t l a bCompany number【1089WT-1898YT-1W8CB-9UUT-92108】一维扩散方程的有限差分法——计算物理实验作业七陈万题目:编程求解一维扩散方程的解取1.0,1.0,1.0,10,0.1,0,1,1,0,1,1max 0222111======-=====τh D t a c b a c b a 。
输出t=1,2,...,10时刻的x 和u(x),并与解析解u=exp(x+0.1t)作比较。
主程序:% 一维扩散方程的有限差分法clear,clc;%定义初始常量a1 = 1; b1 = 1; c1 = 0; a2 = 1;b2 = -1; c2 = 0;a0 = 1.0; t_max = 10; D = 0.1; h = 0.1; tao = 0.1;%调用扩散方程子函数求解u = diffuse_equation(a0,t_max,h,tao,D,a1,b1,c1,a2,b2,c2);子程序1:function output =diffuse_equation(a0,t_max,h,tao,D,a1,b1,c1,a2,b2,c2)% 一维扩散方程的有限差分法,采用隐式六点差分格式(Crank-Nicolson) % a0: x 的最大值% t:_max: t 的最大值% h: 空间步长% tao: 时间步长% D:扩散系数% a1,b1,c1是(x=0)边界条件的系数;a2,b2,c2是(x=a0)边界条件的系数x = 0:h:a0;n = length(x);t = 0:tao:t_max;k = length(t);P = tao * D/h^2;P1 = 1/P + 1;P2 = 1/P - 1;u = zeros(k,n);%初始条件u(1,:) = exp(x);%求A矩阵的对角元素dd = zeros(1,n);d(1,1) = b1*P1+h*a1;d(2:(n-1),1) = 2*P1;d(n,1) = b2*P1+h*a2;%求A矩阵的对角元素下面一行元素ee = -ones(1,n-1);e(1,n-1) = -b2;%求A矩阵的对角元素上面一行元素ff = -ones(1,n-1);f(1,1) = -b1;R = zeros(k,n);%求R%追赶法求解for i = 2:kR(i,1) = (b1*P2-h*a1)*u(i-1,1)+b1*u(i-1,2)+2*h*c1;for j = 2:n-1R(i,j) = u(i-1,j-1)+2*P2*u(i-1,j)+u(i-1,j+1);endR(i,n) = b2*u(i-1,n-1)+( b2*P2-h*a2)*u(i-1,n)+2*h*c2;M = chase(e,d,f,R(i,:));u(i,:) = M';plot(x,u(i,:)); axis([0 a0 0 t_max]); pause(0.1)endoutput = u;% 绘图比较解析解和有限差分解[X,T] = meshgrid(x,t);Z = exp(X+0.1*T);surf(X,T,Z),xlabel('x'),ylabel('t'),zlabel('u'),title('解析解'); figuresurf(X,T,u),xlabel('x'),ylabel('t'),zlabel('u'),title('有限差分解');子程序2:function M = chase(a,b,c,f)% 追赶法求解三对角矩阵方程,Ax=f% a是对角线下边一行的元素% b是对角线元素% c是对角线上边一行的元素% M是求得的结果,以列向量形式保存n = length(b);beta = ones(1,n-1);y = ones(1,n);M = ones(n,1);for i = (n-1):(-1):1a(i+1) = a(i);end% 将a矩阵和n对应beta(1) = c(1)/b(1);for i = 2:(n-1)beta(i) = c(i)/( b(i)-a(i)*beta(i-1) );endy(1) = f(1)/b(1);for i = 2:ny(i) = (f(i)-a(i)*y(i-1))/(b(i)-a(i)*beta(i-1));endM(n) = y(n);for i = (n-1):(-1):1M(i) = y(i)-beta(i)*M(i+1);endend结果:对比分析两图,结果令人满意。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
一维扩散方程的差分法
m a t l a b
Company number【1089WT-1898YT-1W8CB-9UUT-92108】
一维扩散方程的有限差分法
——计算物理实验作业七
陈万
题目:
编程求解一维扩散方程的解
取1.0,1.0,1.0,10,0.1,0,1,1,0,1,1max 0222111======-=====τh D t a c b a c b a 。
输出t=1,2,...,10时刻的x 和u(x),并与解析解u=exp(x+0.1t)作比较。
主程序:
% 一维扩散方程的有限差分法
clear,clc;
%定义初始常量
a1 = 1; b1 = 1; c1 = 0; a2 = 1;b2 = -1; c2 = 0;
a0 = 1.0; t_max = 10; D = 0.1; h = 0.1; tao = 0.1;
%调用扩散方程子函数求解
u = diffuse_equation(a0,t_max,h,tao,D,a1,b1,c1,a2,b2,c2);
子程序1:
function output =
diffuse_equation(a0,t_max,h,tao,D,a1,b1,c1,a2,b2,c2)
% 一维扩散方程的有限差分法,采用隐式六点差分格式(Crank-Nicolson) % a0: x 的最大值
% t:_max: t 的最大值
% h: 空间步长
% tao: 时间步长
% D:扩散系数
% a1,b1,c1是(x=0)边界条件的系数;a2,b2,c2是(x=a0)边界条件的系数
x = 0:h:a0;
n = length(x);
t = 0:tao:t_max;
k = length(t);
P = tao * D/h^2;
P1 = 1/P + 1;
P2 = 1/P - 1;
u = zeros(k,n);
%初始条件
u(1,:) = exp(x);
%求A矩阵的对角元素d
d = zeros(1,n);
d(1,1) = b1*P1+h*a1;
d(2:(n-1),1) = 2*P1;
d(n,1) = b2*P1+h*a2;
%求A矩阵的对角元素下面一行元素e
e = -ones(1,n-1);
e(1,n-1) = -b2;
%求A矩阵的对角元素上面一行元素f
f = -ones(1,n-1);
f(1,1) = -b1;
R = zeros(k,n);%求R
%追赶法求解
for i = 2:k
R(i,1) = (b1*P2-h*a1)*u(i-1,1)+b1*u(i-1,2)+2*h*c1;
for j = 2:n-1
R(i,j) = u(i-1,j-1)+2*P2*u(i-1,j)+u(i-1,j+1);
end
R(i,n) = b2*u(i-1,n-1)+( b2*P2-h*a2)*u(i-1,n)+2*h*c2;
M = chase(e,d,f,R(i,:));
u(i,:) = M';
plot(x,u(i,:)); axis([0 a0 0 t_max]); pause(0.1)
end
output = u;
% 绘图比较解析解和有限差分解
[X,T] = meshgrid(x,t);
Z = exp(X+0.1*T);
surf(X,T,Z),xlabel('x'),ylabel('t'),zlabel('u'),title('解析解'); figure
surf(X,T,u),xlabel('x'),ylabel('t'),zlabel('u'),title('有限差分解');
子程序2:
function M = chase(a,b,c,f)
% 追赶法求解三对角矩阵方程,Ax=f
% a是对角线下边一行的元素
% b是对角线元素
% c是对角线上边一行的元素
% M是求得的结果,以列向量形式保存
n = length(b);
beta = ones(1,n-1);
y = ones(1,n);
M = ones(n,1);
for i = (n-1):(-1):1
a(i+1) = a(i);
end
% 将a矩阵和n对应
beta(1) = c(1)/b(1);
for i = 2:(n-1)
beta(i) = c(i)/( b(i)-a(i)*beta(i-1) );
end
y(1) = f(1)/b(1);
for i = 2:n
y(i) = (f(i)-a(i)*y(i-1))/(b(i)-a(i)*beta(i-1));
end
M(n) = y(n);
for i = (n-1):(-1):1
M(i) = y(i)-beta(i)*M(i+1);
end
end
结果:
对比分析两图,结果令人满意。
取出t_max 时刻的u 值分析:(111~u u )
有限差分解如下:
3.004166024 0
解析解如下:
分析数据可知误差量级为)(O )(O 22h +τ=0.12+0.12=0.02
总结:
(1)隐式六点差分格式(Crank-Nicolson)基本思想是用前一时刻的三个点表示后一时刻的三个点。
因为不是直接表示u(k+1,i),故称为隐式差分。
(2)x由等步长被分割为N个点,列出N个方程。
采用追赶法求解得到结果。
原理很简单,关键是求解AU=R中的A和R。
(3)子函数2的功能是实现追赶法,该程序中没有直接用A来表示三对角矩阵,而是把3列对角元素直接拿出来,因此在调用时应当注意各对角元素的位置,避免调用错误。