在計算流體力學或者**勘探中,我們經常遇到畫曲線網格的問題,如何做出漂亮的曲線網格圖呢?下面給你一段簡單的**:
clear all;
%讀資料
up=load('315up.txt');
down=load('315down1.txt');
xup=zeros(76,21);
yup=zeros(76,21);
xdo=zeros(76,31);
ydo=zeros(76,31);
%%for j=1:1:21
for i=76:-1:1
xup(i,j)=up((j-1)*76+(77-i),2);
yup(i,j)=up((j-1)*76+(77-i),3);
endend%畫圖
figure(1);
hold on;
for j=1:21
if mod(j,2)==1
for i=2:76
x1(i-1)=xup(i,j);
y1(i-1)=yup(i,j);
endif isequal(j,1)
plot(x1,y1,'r','linewidth',2);
else
plot(x1,y1,'k','linewidth',2);
end
endendfor i=1:76
if mod(i,2)==0
for j=1:21
x2(j)=xup(i,j);
y2(j)=yup(i,j);
endplot(x2,y2,'k','linewidth',2);
endend
%%for j=31:-1:1
for i=1:1:76
xdo(i,j)=down((31-j)*76+i,2);
ydo(i,j)=down((31-j)*76+i,3);
endendfor j=1:31
if mod(j,2)==1
for i=2:76
x1(i-1)=xdo(i,j);
y1(i-1)=ydo(i,j);
endif isequal(j,1)
plot(x1,y1,'r','linewidth',2);
else
plot(x1,y1,'k','linewidth',2);
endend
endfor i=1:76
if mod(i,2)==0
for j=1:31
x2(j)=xdo(i,j);
y2(j)=ydo(i,j);
endplot(x2,y2,'k','linewidth',2);
endendaxis([-810 -430 3810 4220]); %設定顯示範圍
畫出的圖的效果(因為涉密,僅僅擷取一小部分)
以上是一段簡單的**,希望能對大家有用。
注:我的網格是用pointwise18生成的,只是在matlab裡面顯示出來。
MatLab畫貝塞爾函式曲線
第一類貝塞爾函式 在matlab 中用besselj nu,z 來表示 用matlab 的 是 clear clc format long x 0 0.01 20 y 0 besselj 0,x y 1 besselj 1,x y 2 besselj 2,x plot x,y 0,x,y 1,x,y...
MFC中畫直線和曲線
一 畫直線 要想在mfc中畫出有顏色的線條,首先就要設定dc的畫筆,我們可以按如下方法來設定畫筆 第一步 在view類中新增乙個colorref型別的資料成員m color 用來儲存畫筆顏色值 在建構函式中對其初始化,m color rgb 255,0,0 第二步 在wm lbuttondown和w...
使用matlab畫網格線 多條橫線多條豎線
ps load ps2.mat lonlat ps.lonlat res lon min diff sort unique round lonlat 1 10000 10000 橫座標間隔,用於生成網格 res lat min diff sort unique round lonlat 2 1000...