应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » MATLAB/Mathematica » 这个程序求多重分形维数对吗
51/1返回列表
查看: 1770  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

kobybry_cn

铜虫 (初入文坛)

[求助] 这个程序求多重分形维数对吗 已有2人参与

clc;
clear all;
close all;
%%
%indata=inputdlg({'dla'});
a = imread('1.jpg');%%%%此处的1.jpg就是一条直线
[rows, cols] = size(a);
figure;imshow(a);
npix = sum(sum(a));
%% calculates niL which is the number of pixels in the ith box of size L
% ideas from boxcount.m by F. Moisy have been borrowed here
width = rows;
p =log(width)/log(2);
max_boxes = power(rows,2)/power(2,2);
nL = double(zeros(max_boxes,p));
for g=(p-1):-1:0
            siz = 2^(p-g);
            sizm1 = siz - 1;
            index = log2(siz);
            count = 0;
            for i=1:sizwidth-siz+1)
                for j=1:sizwidth-siz+1)
                    count = count + 1;
                    sums = sum(sum(a(i:i+sizm1,j:j+sizm1)));
                    nL(count,index) = sums;
                end
            end
end
%%
qran = 1;
logl = zeros(p,1);

for l=1:p
    logl(l) = log(power(2,l));
end
%% normalized masses
pL = double(zeros(max_boxes,p));
for l=1:p
    nboxes = power(rows,2)/power(power(2,l),2);
    norm = sum(nL(1:nboxes,l));
    if(norm ~= npix)
        display('error');
    end
    for i=1:nboxes
        pL(i,l) = nL(i,l)/norm;
    end
end
%%
%falpha, alpha
for l=1:p
   
    count = 0;
    nboxes = power(rows,2)/power(power(2,l),2);
   
    for q =-qran:+0.1:qran      
        
        %denominator of muiql
        qsum = 0.0;
        for i=1:nboxes
            if(pL(i,l) ~= 0)
                qsum = qsum + power(pL(i,l),q);
            end
        end

        fqnum = 0.0;
        aqnum = 0.0;
        smuiqL = 0.0;
        for i=1:nboxes
            if(pL(i,l) ~= 0)
                  muiqL = power(pL(i,l),q)/qsum;
                  fqnum = fqnum + (muiqL * log(muiqL));
                  aqnum = aqnum + (muiqL * log(pL(i,l)));
                  smuiqL = smuiqL + muiqL;
            end
        end
        if(uint8(smuiqL)~=1)
            display('error');
        end
        
        count = count + 1;
        fql(l,count) = fqnum;
        aql(l,count) = aqnum;
        qval(count) = q;
    end

end
%%
% alpha_q
for i=1:count
     line = polyfit(logl,aql(:,i),1);
     aq(i) = line(1);
     yfit = polyval(line,logl);
     sse = sum(power(aql(:,i)-yfit,2));
     sst = sum(power(aql(:,i)-mean(aql(:,i)),2));
     ar2(i) = 1+(sse/sst);
end
% f_q
for i=1:count
     line = polyfit(logl,fql(:,i),1);
     fq(i) = line(1);
     yfit = polyval(line,logl);
     sse = sum(power(fql(:,i)-yfit,2));
     sst = sum(power(fql(:,i)-mean(fql(:,i)),2));
     fr2(i) = 1+(sse/sst);
end

figure;plot(aq,fq,'r');
xlabel('\alpha(q)','FontSize',14);
ylabel('f(q)','FontSize',14);

[ Last edited by kobybry_cn on 2014-1-13 at 22:20 ]
回复此楼

» 收录本帖的淘帖专辑推荐

资源收集 科研辅助-咔咔小男人

» 猜你喜欢
climbing ing ing……
1楼 2014-01-13 21:36:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

戴钢盔的猪头

木虫 (知名作家)

【答案】应助回帖

兄弟，你这么发帖不要怪没人回你，DEBUG比直接写新代码还要让人头痛！你自己运行下，如果有错，把错误报告贴上来，别人才好帮你分析。

[ 发自手机版 http://muchong.com/3g ]
赞一下 回复此楼
3楼2014-01-24 18:59:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答

kobybry_cn

铜虫 (初入文坛)
呃，这个程序运行是正常的，但我觉得结果是不对的，因为结果不应该超过2……
赞一下 回复此楼
climbing ing ing……
4楼2014-01-25 23:00:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

冰凝香

新虫 (初入文坛)

【答案】应助回帖

楼主，请问这个程序我为什么运行不了呢 sums = sum(sum(a(i:i+sizm1,j:j+sizm1)));此处超过了指数范围
赞一下 回复此楼
5楼2014-03-10 09:44:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

z407894951
，

发自小木虫Android客户端
6楼2015-11-09 12:33:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 2019年青年基金涵评意见，大家看看几个A，几个B? +5 Tide man 2026-08-11 5/250 2026-08-12 09:24 by kangban
[论文投稿] 职称评审，求友友推荐见刊最快的期刊 +4 工厂打螺丝 2026-08-08 4/200 2026-08-12 09:18 by hansi2025
[基金申请] 奇怪，两个人的filecode固定段从头到尾一模一样 +7 布布和一二 2026-08-10 10/500 2026-08-12 09:12 by 布布和一二
[基金申请] 小木虫上这么多卖论文的，真有人买论文么？感觉没必要啊 +8 Tide man 2026-08-10 9/450 2026-08-11 20:39 by beefly
[硕博家园] 读博的好处 +3 lnee 2026-08-11 3/150 2026-08-11 18:10 by 希望我好好的
[基金申请] 什么时候出结果，有咨询渠道？？？ +3 Tide man 2026-08-11 3/150 2026-08-11 17:54 by kudofaye
[基金申请] filecode +9 documentary 2026-08-10 9/450 2026-08-11 10:08 by wk7465
[基金申请] 基金中了 +15 laoda193707 2026-08-06 15/750 2026-08-11 00:11 by jiafei2190
[基金申请] 关于代码变化问题，想知道的进来 +17 且听虎啸 2026-08-07 24/1200 2026-08-10 18:35 by zhangduo2008
[基金申请] 静等基金结果 +5 gjjjzhong 2026-08-10 16/800 2026-08-10 17:19 by Tide man
[基金申请] 国自然结果 +4 Vierhys 2026-08-10 8/400 2026-08-10 15:06 by Vierhys
[基金申请] 好奇怪的filecode +4 布布和一二 2026-08-08 5/250 2026-08-10 14:20 by 冰心玉壶晴
[基金申请] 面上项目filecode邪修 +5 西山十月 2026-08-09 7/350 2026-08-10 07:32 by 仁砚薪传
[基金申请] filecode与中标关系的预测 +5 布布和一二 2026-08-07 5/250 2026-08-09 16:15 by 袁向阳007
[基金申请] fileCode有新解读？ +10 Tide man 2026-08-08 18/900 2026-08-09 12:55 by 仁砚薪传
[基金申请] 关于filecode，很负责任的告诉大家 +6 爱看书的可乐 2026-08-08 7/350 2026-08-08 22:13 by a_niu
[基金申请] 关于豆爷回答的JTJC与%2F数量 +5 yang182083 2026-08-06 7/350 2026-08-08 18:29 by zhanghaozhu
[基金申请] 国基金的申报应该改成非等额制，评价高的钱多评价低的钱少，但是增加资助率 +7 a089 2026-08-07 7/350 2026-08-08 18:05 by gltch
[基金申请] 化学口download_prp&fileCode的固定段好像这几天一直没变，有变的大神么？ +3 Tide man 2026-08-07 4/200 2026-08-07 22:39 by Tide man
[基金申请] filecode +8 布布和一二 2026-08-06 11/550 2026-08-06 20:41 by tangpu318
信息提示
关闭
请填处理意见
关闭