clc
clear
wi=xlsread('1.xls','sheet1');
[m,n]=size(wi);
for i=2:n
maxw=max(wi(:,i));
minw=min(wi(:,i));
for j=1:m-1
x1=wi(j,1); x2=wi(j+1,1);
y1=i; y2=i;
z1=wi(j,i); z2=wi(j+1,i);
vf=z2;
plot3([x1;x2],[y1;y2],[z1;z2],'-' ,'Color',z2jet(vf,maxw,minw));
hold on
end
数据用那几列?
http://muchong.com/t-11924331-1
这个帖子里面有excle附件下载,数据就用excle里面的那几列
等我明天帮你看看
好的
clc
clear
wi=xlsread('1.xls','sheet1');
[m,n]=size(wi);
for i=2:n
maxw=max(wi(:,i));
minw=min(wi(:,i));
for j=1:m-1
x1=wi(j,1); x2=wi(j+1,1);
y1=i; y2=i;
z1=wi(j,i); z2=wi(j+1,i);
vf=z2;
plot3([x1;x2],[y1;y2],[z1;z2],'-' ,'Color',z2jet(vf,maxw,minw));
hold on
end
end
hold off
function [rgb]=z2jet(z,maxw,minw)
z=(z-minw)/(maxw-minw);
z=z*1000;
jet1= [0 0 0.5625
0 0 0.6250
0 0 0.6875
0 0 0.7500
0 0 0.8125
0 0 0.8750
0 0 0.9375
0 0 1.0000
0 0.0625 1.0000
0 0.1250 1.0000
0 0.1875 1.0000
0 0.2500 1.0000
0 0.3125 1.0000
0 0.3750 1.0000
0 0.4375 1.0000
0 0.5000 1.0000
0 0.5625 1.0000
0 0.6250 1.0000
0 0.6875 1.0000
0 0.7500 1.0000
0 0.8125 1.0000
0 0.8750 1.0000
0 0.9375 1.0000
0 1.0000 1.0000
0.0625 1.0000 0.9375
0.1250 1.0000 0.8750
0.1875 1.0000 0.8125
0.2500 1.0000 0.7500
0.3125 1.0000 0.6875
0.3750 1.0000 0.6250
0.4375 1.0000 0.5625
0.5000 1.0000 0.5000
0.5625 1.0000 0.4375
0.6250 1.0000 0.3750
0.6875 1.0000 0.3125
0.7500 1.0000 0.2500
0.8125 1.0000 0.1875
0.8750 1.0000 0.1250
0.9375 1.0000 0.0625
1.0000 1.0000 0
1.0000 0.9375 0
1.0000 0.8750 0
1.0000 0.8125 0
1.0000 0.7500 0
1.0000 0.6875 0
1.0000 0.6250 0
1.0000 0.5625 0
1.0000 0.5000 0
1.0000 0.4375 0
1.0000 0.3750 0
1.0000 0.3125 0
1.0000 0.2500 0
1.0000 0.1875 0
1.0000 0.1250 0
1.0000 0.0625 0
1.0000 0 0
0.9375 0 0
0.8750 0 0
0.8125 0 0
0.7500 0 0
0.6875 0 0
0.6250 0 0
0.5625 0 0
0.5000 0 0];
x=([1:64]-1)*15.625;
if z==0
rgb=jet1(1,;
end
if z>=984.375
rgb=jet1(64,;
end
if z>0&&z<984.375
a1=max(find(z>x));
rgb=jet1(a1,;
end
end
untitled2.jpg
,
down
untitled3.jpg
发金币
untitled4.jpg