matlab求解拉普拉斯方程完整程序,急求用matlab编写解拉普拉斯方程的程序

该楼层疑似违规已被系统折叠隐藏此楼查看此楼这么处理狄拉克边界条件,我的精确解和数值解的误差很大部只哪错了附程序%examp1a2.mclearallclcN=5;M=5;n=N*M;L=2;h=2;ticc=sqrt((L/(N-1))^2+(h/(M-1))^2);dm=2.5*c;mu=0.25;E=1e5;beta=1*10^5;forj=1:Mfori=1:Nx(i+(j-1)*...
摘要由CSDN通过智能技术生成

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

这么处理狄拉克边界条件,我的精确解和数值解的误差很大部只哪错了

附程序

% examp1a2.m

clear all

clc

N=5;M=5;n=N*M;

L=2;h=2;

tic

c=sqrt((L/(N-1))^2+(h/(M-1))^2);

dm=2.5*c;

mu=0.25;

E=1e5;

beta=1*10^5;

for j=1:M

for i=1:N

x(i+(j-1)*N)=L/(N-1)*(i-1);

y(i+(j-1)*N)=h/(M-1)*(j-(M+1)/2);

end

end

t=[-0.8611363;-0.339880;0.339880;0.8611363];

G=[0.3478548;0.6521452;0.6521452;0.3478548];

for j=1:(M-1)

for i=1:(N-1)

for ky=1:4

for kx=1:4

xg(16*(i-1)+16*(j-1)*(N-1)+4*(ky-1)+kx)=(x(i+1+(j-1)*N)-x(i+(j-1)*N))/2*t(kx)+(x(i+1+(j-1)*N)+x(i+(j-1)*N))/2;

yg(16*(i-1)+16*(j-1)*(N-1)+4*(ky-1)&

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值