24小时热门版块排行榜    

查看: 2358  |  回复: 9
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

lvubaby

木虫 (正式写手)

[求助] 二维粒子分布的分形维数 已有1人参与

大家好,我得到了一个二维的粒子分布,想计算他的分形维数。采用回转半径法,输入粒子坐标,编了一个小程序,可是计算得到的分形维数为2.262大于2。理论上讲二维图像下的分形维数应该小于2啊,是哪里出错了,请各位大神指点。
程序为:
clc
clear
dim=128;
load final_paticle_distribution_2D.txt

particle_num=size(final_paticle_distribution_2D,1);
c1=final_paticle_distribution_2D(:,1);
c2=final_paticle_distribution_2D(:,2);

figure(1)
plot(c1,c2,'.')

%%求得重心坐标
mc1=round(sum(c1)/particle_num);
mc2=round(sum(c2)/particle_num);

num=zeros(dim,1);%粒子数目
r=zeros(dim,1);%半径
s=zeros(particle_num,1);%粒子与重心距离

for i=1:particle_num
    %%计算粒子与质心的距离
    s(i)=sqrt((c1(i)-mc1)^2+(c2(i)-mc2)^2);
   for j=1:dim
       r(j)=j-0.5;
       if s(i)<=r(j)
           num(j)=num(j)+1;
       end
   end
end

r_num=[r,num];
save('radius_particlenum.txt', 'r_num','-ASCII')


%%将不含有粒子的空间删去
%%外侧
ii=1;
for jj=1:dim-1
    if num(jj)==num(jj+1)
        num_zero_ind_high(ii)=jj+1;
        ii=ii+1;
    end
end
num(num_zero_ind_high)=[];
r(num_zero_ind_high)=[];

%%内侧
particle_ind=find(num);

particle_num=num(particle_ind);
particle_r=r(particle_ind);

log_num=log(particle_num);
log_r=log(particle_r);

fitobject=fit(log_r,log_num,'poly1')
figure(2);
plot(log_r,log_num,'o');

二维粒子分布的分形维数
2D particle distribution.png
回复此楼

» 猜你喜欢

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

海风吹
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

alorsmail

铁杆木虫 (著名写手)

引用回帖:
3楼: Originally posted by lvubaby at 2014-04-20 16:39:55
不好意思,上次忘了上传,这次贴上
http://pan.baidu.com/s/14DXE2...

抱歉,刚刚测试了一下MATLAB上面的那个分形函数,似乎有问题
你参考一下,
我有空的话,也会仔细看一下到底是哪里的问题,
不好意思!
5楼2014-04-22 21:33:37
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 10 个回答

alorsmail

铁杆木虫 (著名写手)

最好能提供样本文件,这样方便调试
2楼2014-04-20 04:06:51
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

lvubaby

木虫 (正式写手)

引用回帖:
2楼: Originally posted by alorsmail at 2014-04-20 04:06:51
最好能提供样本文件,这样方便调试

不好意思,上次忘了上传,这次贴上
http://pan.baidu.com/s/14DXE2
海风吹
3楼2014-04-20 16:39:55
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

alorsmail

铁杆木虫 (著名写手)

【答案】应助回帖

抱歉没有时间仔细看你的程序,
我这里有个现成的,计算下来,你可以参考一下
FD=1.8736
http://1000eb.com/vuu6
文件密码,见PM
4楼2014-04-22 17:50:23
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[找工作] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +3 i3cz6qj6l2 2026-02-17 3/150 2026-02-18 11:09 by lqtl9djx19
[考博] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +3 i3cz6qj6l2 2026-02-17 3/150 2026-02-18 10:54 by lqtl9djx19
[考研] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +3 i3cz6qj6l2 2026-02-17 3/150 2026-02-18 10:39 by lqtl9djx19
[考研] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-17 3/150 2026-02-18 08:53 by lqtl9djx19
[硕博家园] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-17 3/150 2026-02-18 08:38 by lqtl9djx19
[找工作] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +4 pnpwoqbg8f 2026-02-17 4/200 2026-02-18 07:55 by lotyj5cz79
[基金申请] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-16 4/200 2026-02-18 07:40 by lotyj5cz79
[考研] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +4 pnpwoqbg8f 2026-02-16 4/200 2026-02-18 07:38 by lotyj5cz79
[硕博家园] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +4 pnpwoqbg8f 2026-02-16 4/200 2026-02-18 07:23 by lotyj5cz79
[论文投稿] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +4 pnpwoqbg8f 2026-02-16 4/200 2026-02-18 07:08 by lotyj5cz79
[公派出国] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-16 3/150 2026-02-18 06:53 by lotyj5cz79
[论文投稿] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-17 3/150 2026-02-18 00:40 by tk2gfblvuz
[找工作] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-17 4/200 2026-02-18 00:23 by tk2gfblvuz
[公派出国] 售SCI一区文章,我:8 O5 51O 54,科目齐全,可+急 +3 pnpwoqbg8f 2026-02-17 3/150 2026-02-17 23:40 by tk2gfblvuz
[基金申请] 基金正文30页指的是报告正文还是整个申请书 +3 successhe 2026-02-16 4/200 2026-02-17 20:56 by successhe
[基金申请] 今年春晚有几个节目很不错,点赞! +5 瞬息宇宙 2026-02-16 6/300 2026-02-17 12:49 by jymy19840415
[微米和纳米] 球磨粉体时遇到了大的问题,请指教! 10+3 6sbiam 2026-02-12 15/750 2026-02-16 15:03 by tgzxzqj
[基金申请] 过年走亲戚时感受到了所开私家车的鄙视链 +3 瞬息宇宙 2026-02-15 5/250 2026-02-16 14:23 by aspect3000
[基金申请] 情人节自我反思:在爱情中有过遗憾吗? +4 瞬息宇宙 2026-02-15 5/250 2026-02-15 22:28 by baiboxie
[硕博家园] 江汉大学解明教授课题组招博士研究生/博士后 +3 cleverlyy 2026-02-12 3/150 2026-02-12 21:02 by qsdf1
信息提示
请填处理意见