24小时热门版块排行榜    

查看: 2627  |  回复: 8

plxh

木虫 (正式写手)

[求助] 继续求助Matlab绘图!

在帖子http://muchong.com/bbs/viewthread.php?tid=4346449中部分实现了绘图目标。感谢sogooda朋友!
现在情况是:得到了520*3的矩阵,前两列是点的XY坐标,第三列是与圆心成的角度。

现在想要实现:
一、colorbar按矩阵行数从黑色[0 0 0]过渡到绿色[0 1 0],
二、在图上划出形状,首先是质心与圆心连线和Y轴角度的值是第三列数据,然后画出图上所示的形状并填充采样时刻(所在的第几行)对应的颜色。


希望得到大家的建议与帮助!效果图和mat文件如下。

效果图[ Last edited by plxh on 2012-4-8 at 09:43 ]
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : matlab.mat
  • 2012-04-08 09:42:48, 9.33 K

» 本帖@通知

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sogooda

金虫 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
plxh: 金币+5, ★★★很有帮助, 先谢谢!我理解理解! 2012-04-08 12:03:51
xiegangmai: 金币+2, 谢谢应助! 2012-04-08 22:52:38
兄弟你的数据太密了,画出来都看不出来效果。
下面的程序里是将数据1/5稀疏之后的效果图。
CODE:
function Untitled2
clear;clc;close all
load matlab
eta1=eta1(1:5:end,:);

x=eta1(:,2);
y=eta1(:,1);
% theta=eta1(:,3); % ?

theta=pi/2-eta1(:,3);
figure1=figure('color','w');plot(x,y);hold on;axis equal
myr=linspace(0,0,length(x));
myg=linspace(0,1,length(x));
myb=linspace(0,0,length(x));
for jj=1:length(x)   
    plotSquare2(x(jj),y(jj),theta(jj),1/30,[myr(jj),myg(jj),myb(jj)]);
end
colormap([myr', myg', myb'])
colorbar
saveas(gcf,'untitled2.jpg')


function plotSquare(x0,y0,theta,a,mycolor)
xs=[-2*a,-2*a,2*a,3*a,2*a,-2*a];
ys=[a,-a,-a,0,a,a];

xy=[cos(theta),-sin(theta);
    sin(theta),cos(theta)]*[xs;ys] ;

fill(xy(1,:)+x0,xy(2,:)+y0,mycolor)



2楼2012-04-08 12:02:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

plxh

木虫 (正式写手)

引用回帖:
2楼: Originally posted by sogooda at 2012-04-08 12:02:00:
兄弟你的数据太密了,画出来都看不出来效果。
下面的程序里是将数据1/5稀疏之后的效果图。


function Untitled2
clear;clc;close all
load matlab
eta1=eta1(1:5:end,;

x=eta1(:,2);
y=eta1(:,1);
...

兄弟,我看了你的新浪博客,你真是牛人!
3楼2012-04-08 12:04:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

plxh

木虫 (正式写手)

引用回帖:
2楼: Originally posted by sogooda at 2012-04-08 12:02:00:
兄弟你的数据太密了,画出来都看不出来效果。
下面的程序里是将数据1/5稀疏之后的效果图。


function Untitled2
clear;clc;close all
load matlab
eta1=eta1(1:5:end,;

x=eta1(:,2);
y=eta1(:,1);
...

大哥,如果要一张图上画出来原理完全一样但半径不一样的三个呢?

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : 3个.bmp
  • 2012-04-08 13:19:06, 2.52 M
  • 附件 2 : matlab3.mat
  • 2012-04-08 13:19:06, 30.89 K
4楼2012-04-08 13:20:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

plxh

木虫 (正式写手)

xiegangmai: , 帖子中代码部分可以用“插入代码”功能 2012-04-08 22:52:58
引用回帖:
2楼: Originally posted by sogooda at 2012-04-08 12:02:00:
兄弟你的数据太密了,画出来都看不出来效果。
下面的程序里是将数据1/5稀疏之后的效果图。


function Untitled2
clear;clc;close all
load matlab
eta1=eta1(1:5:end,;

x=eta1(:,2);
y=eta1(:,1);
...

clear;clc;close all
load matlab3
for i=1:3;
    if i==1   %必须是用两个等号。
            
        eta12=eta1(1:5:end,;

        x=eta12(:,2);
        y=eta12(:,1);
        % theta=eta1(:,3); % ?

        theta=pi/2-eta12(:,3);
        figure1=figure('color','w');plot(x,y);hold on;axis equal
        myr=linspace(0,0,length(x));
        myg=linspace(0,1,length(x));
        myb=linspace(0,0,length(x));
        for jj=1:length(x)   
            plotSquare2(x(jj),y(jj),theta(jj),1/30,[myr(jj),myg(jj),myb(jj)]);
        end
        colormap([myr', myg', myb'])
        colorbar
        hold on;


    elseif i==2
         
        eta22=eta2(1:5:end,;

        x=eta22(:,2);
        y=eta22(:,1);
        % theta=eta1(:,3); % ?

        theta=pi/2-eta22(:,3);
        figure1=figure('color','w');plot(x,y);hold on;axis equal
        myr=linspace(0,0,length(x));
        myg=linspace(0,1,length(x));
        myb=linspace(0,0,length(x));
        for jj=1:length(x)   
            plotSquare2(x(jj),y(jj),theta(jj),1/30,[myr(jj),myg(jj),myb(jj)]);
        end
        colormap([myr', myg', myb'])
        colorbar
        hold on;
        
    elseif i==3        
           
        eta32=eta1(1:5:end,;

        x=eta32(:,2);
        y=eta32(:,1);
        % theta=eta1(:,3); % ?

        theta=pi/2-eta32(:,3);
        figure1=figure('color','w');plot(x,y);hold on;axis equal
        myr=linspace(0,0,length(x));
        myg=linspace(0,1,length(x));
        myb=linspace(0,0,length(x));
        for jj=1:length(x)   
            plotSquare2(x(jj),y(jj),theta(jj),1/30,[myr(jj),myg(jj),myb(jj)]);
        end
        colormap([myr', myg', myb'])
        colorbar
        hold on;
    end   
    end
   
   


function plotSquare2(x0,y0,theta,a,mycolor)
xs=[-2*a,-2*a,2*a,3*a,2*a,-2*a];
ys=[a,-a,-a,0,a,a];

xy=[cos(theta),-sin(theta);
    sin(theta),cos(theta)]*[xs;ys] ;

fill(xy(1,+x0,xy(2,+y0,mycolor)




为什么会报警呢?
报警:
??? Error: File: Untitled4.m Line: 70 Column: 1
Function definitions are not permitted at the prompt or in scripts.
5楼2012-04-08 13:44:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sogooda

金虫 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★
xiegangmai: 金币+1, 谢谢参与! 2012-04-08 22:53:07
plxh: 金币+5, ★★★很有帮助, 大哥你说得对,我就是赶鸭子上架,好高骛远了。昨天又学习了下function文件和M文件的不同。现在已基本实现了把三个1/4圆画到一张图上了。现在的问题就是我想把产生数据的m文件的内容和画图的函数文件放到一起。可又总是出错。 2012-04-09 08:02:52
引用回帖:
5楼: Originally posted by plxh at 2012-04-08 13:44:10:
clear;clc;close all
load matlab3
for i=1:3;
    if i==1   %必须是用两个等号。
            
        eta12=eta1(1:5:end,;

        x=eta12(:,2);
        y=eta12(:,1);
        % theta=eta ...

针对你这个问题的解决方法是把
function plotSquare2(x0,y0,theta,a,mycolor)
以下的部分剪切出来,另存在一个m文件里就好了。

btw: 关于matlab的基础还是要学的。
6楼2012-04-08 21:22:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

plxh

木虫 (正式写手)

引用回帖:
6楼: Originally posted by sogooda at 2012-04-08 21:22:32:
针对你这个问题的解决方法是把
function plotSquare2(x0,y0,theta,a,mycolor)
以下的部分剪切出来,另存在一个m文件里就好了。

btw: 关于matlab的基础还是要学的。

看了你的回复,我受到了启发,是不是我可以在产生数据的m文件里面引用画图函数?
7楼2012-04-09 08:05:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

plxh

木虫 (正式写手)

引用回帖:
6楼: Originally posted by sogooda at 2012-04-08 21:22:32:
针对你这个问题的解决方法是把
function plotSquare2(x0,y0,theta,a,mycolor)
以下的部分剪切出来,另存在一个m文件里就好了。

btw: 关于matlab的基础还是要学的。

谢谢,已经实现了一个m文件即取得数据又绘出图。

向你请教一下,我是否可以用什么方式可以看到小方块  一个一个地方的变动过程呢?

Matlab的GUI或者Real Time Workshop 或者S-Function?

8楼2012-04-09 09:14:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

匿名

用户注销 (正式写手)

本帖仅楼主可见
9楼2014-12-02 15:55:44
已阅   申请仿真EPI   回复此楼   编辑   查看我的主页
相关版块跳转 我要订阅楼主 plxh 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 FChKX8meu1ds 2026-11-09 3/150 2026-11-10 21:40 by Z7qfCsdIiD1T
[教师之家] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 FChKX8meu1ds 2026-11-09 4/200 2026-11-10 21:13 by Z7qfCsdIiD1T
[考研] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +3 FChKX8meu1ds 2026-11-09 4/200 2026-11-10 21:02 by Z7qfCsdIiD1T
[硕博家园] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +3 FChKX8meu1ds 2026-11-09 4/200 2026-11-10 20:51 by Z7qfCsdIiD1T
[论文投稿] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +4 cqv1zKnzd7hr 2026-11-09 5/250 2026-11-10 20:29 by Z7qfCsdIiD1T
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 cqv1zKnzd7hr 2026-11-09 4/200 2026-11-10 20:07 by Z7qfCsdIiD1T
[公派出国] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +3 FChKX8meu1ds 2026-11-09 3/150 2026-11-10 16:32 by G2rhSvqvhNzl
[考博] 申请环境,微生物方向博士 +3 浅笑09 2026-11-08 3/150 2026-11-10 12:44 by 可淡不可忘
[教师之家] 延安大学回应“副教授留绝笔信”:确已离世,正核实举报内容 +4 yexuqing 2026-11-04 6/300 2026-11-10 11:13 by susizheng
[教师之家] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +3 zSbvVX9JFl9J 2026-11-09 5/250 2026-11-10 09:23 by 1yv6QACPoY1E
[考博] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 zSbvVX9JFl9J 2026-11-09 4/200 2026-11-10 01:29 by FChKX8meu1ds
[考博] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +5 kvewwGtKktqB 2026-11-04 12/600 2026-11-09 13:26 by Equinoxhua
[考研] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +6 5sJFDKp2kwuI 2026-11-06 14/700 2026-11-09 11:52 by GwrQVVR6Oenx
[硕博家园] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +5 5sJFDKp2kwuI 2026-11-06 16/800 2026-11-09 11:47 by GwrQVVR6Oenx
[考博] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +5 5sJFDKp2kwuI 2026-11-06 15/750 2026-11-09 11:41 by GwrQVVR6Oenx
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +4 5sJFDKp2kwuI 2026-11-06 8/400 2026-11-08 23:01 by l48hFd8Nwae2
[硕博家园] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 ttH3f1oA6ace 2026-11-04 11/550 2026-11-06 16:10 by 5sJFDKp2kwuI
[公派出国] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +6 ttH3f1oA6ace 2026-11-04 12/600 2026-11-06 16:10 by 5sJFDKp2kwuI
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +5 kvewwGtKktqB 2026-11-04 14/700 2026-11-06 05:10 by qL1cU46YIdK0
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 ttH3f1oA6ace 2026-11-04 9/450 2026-11-06 02:02 by qL1cU46YIdK0
信息提示
请填处理意见