24小时热门版块排行榜    

查看: 2729  |  回复: 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的回帖

hailonghu

新虫 (正式写手)

引用回帖:
4楼: Originally posted by alorsmail at 2014-04-22 17:50:23
抱歉没有时间仔细看你的程序,
我这里有个现成的,计算下来,你可以参考一下
FD=1.8736
http://1000eb.com/vuu6
文件密码,见PM

您好,请问密码在哪里呀,怎么找不到呢,谢谢!
9楼2014-08-08 16:04:24
已阅   关注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.O.55.1.O.54,科目齐全,可伽急 +3 BnSlaJi8z5Vo 2026-08-17 3/150 2026-08-17 17:38 by CBFiACZS7HAK
[基金申请] filecode=后面第一个是大写字母 +8 wangze12014 2026-08-14 10/500 2026-08-17 17:05 by xter9665
[基金申请] 欢迎发来filecode的Mz6后的代码验证其规律 +34 医学老男孩 2026-08-13 81/4050 2026-08-17 16:20 by yudaoqian88
[博后之家] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +4 6GojgJvkDudM 2026-08-16 7/350 2026-08-17 16:14 by CBFiACZS7HAK
[基金申请] 时间戳变了,能看出什么问题? +4 基诺咪客 2026-08-17 4/200 2026-08-17 16:10 by Vivilian
[基金申请] 哪位老哥知道今年的国自然具体哪一天放榜? +12 Ldrop2023 2026-08-13 15/750 2026-08-17 15:02 by 小豌豆_发芽
[考研] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +3 EWi2p09MOOv8 2026-08-16 6/300 2026-08-17 14:02 by EYK67XJMj64E
[硕博家园] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 i7NFEVbjQMM5 2026-08-16 4/200 2026-08-17 12:10 by 4GBAYCdVQoK3
[考研] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 6GojgJvkDudM 2026-08-16 4/200 2026-08-17 11:46 by 4GBAYCdVQoK3
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +3 6GojgJvkDudM 2026-08-16 3/150 2026-08-17 09:49 by xLVPIRuSvCUe
[论文投稿] 岩土工程学报什么时候才能终审完呐 25+3 yeager111 2026-08-10 4/200 2026-08-16 20:42 by tfang
[基金申请] 2027广东省杰青 +3 奶牛小黑 2026-08-15 6/300 2026-08-16 20:07 by 奶牛小黑
[基金申请] 快农历七夕节了,轻松一下,男人悄悄话,女施主请不要进来。 +3 Tide man 2026-08-14 3/150 2026-08-16 17:47 by jurkat.1640
[基金申请] 有时候,自然基金真的不能太认真 (我的申报经验) +10 majunge000 2026-08-11 12/600 2026-08-16 08:18 by xli1984
[精细化工] 招聘 金属平磨液,抛光液研发工程师 +3 小天0311 2026-08-14 3/150 2026-08-16 07:31 by H9PLUS
[基金申请] 是这周出结果还是下周出结果? +4 yuleib84 2026-08-11 4/200 2026-08-14 23:05 by lfy8008
[基金申请] 重要来源:本周末出结果 +10 瞬息宇宙 2026-08-12 10/500 2026-08-13 15:46 by likettle
[基金申请] 不应该看fileCode +7 且听虎啸 2026-08-12 9/450 2026-08-13 14:27 by flydreamws
[基金申请] 分享一下我之前已中青C的计划书的filecode +4 布布和一二 2026-08-11 5/250 2026-08-13 12:56 by cratir
[基金申请] 什么时候出结果,有咨询渠道??? +3 Tide man 2026-08-11 3/150 2026-08-11 17:54 by kudofaye
信息提示
请填处理意见