% To demonstrate the grid generation using analytic coordinate systems
%{
Author : Siva Srinivas Kolukula
Senior Research Fellow
Structural Mechanics Laboratory
Indira Gandhi Center for Atomic Research
India
E-mail : allwayzitzme@gmail.com
http://sites.google.com/site/kolukulasivasrinivas/
%}
% Reference: Fundametnals of Grid Generation - Knupp, Steinberg
clc
clear all
% number of discretizations along xi and eta axis
m = 20 ;
n = 20 ;
% discretize along xi and eta axis
xi = linspace(0.,1,m) ;
eta = linspace(0.,1.,n) ;
Analytic = [{'PolarCoordinates'} ;{'ParabolicCylinderCoordinates'} ;
{'EllipticCylinderCoordinates'}; {'Horseshoe'} ;
{'ModifiedHorseshoe'} ;{'BipolarCoordinates'}] ;
for grid = 1:length(Analytic)
% Initialize matrices in x and y axis
X = zeros(m,n) ;
Y = zeros(m,n) ;
% Run a loop alon xi and eta axis to get x,y
for i = 1:m
for j = 1:n
Xi = xi(i) ;
Eta = eta(j) ;
[x y] = feval(Analytic{grid},Xi,Eta) ;
X(i,j) = x ;
Y(i,j) = y ;
end
end
% To plot grid obtained
plotgrid(X,Y)
title(Analytic{grid},'color','b')
disp('press any key to plot next grid')
pause
end
没有合适的资源?快使用搜索试试~ 我知道了~
资源详情
资源评论
资源推荐
收起资源包目录
GridGeneration.zip (14个子文件)
Polar coordinates for a sector.tif 84KB
BipolarCoordinates.m 298B
Parabolic cylinder coordinates.tif 83KB
plotgrid.m 555B
Modified Horseshoe.tif 92KB
EllipticCylinderCoordinates.m 203B
Horseshoe.tif 115KB
Bipolar coordinates.tif 61KB
Elliptic cylinder coordinates.tif 89KB
Horseshoe.m 400B
GridGeneration.m 2KB
ModifiedHorseshoe.m 269B
PolarCoordinates.m 417B
ParabolicCylinderCoordinates.m 114B
共 14 条
- 1
zhouyu0109
- 粉丝: 0
- 资源: 6
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功
评论0