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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 仿真模拟 » MATLAB » 【求助】求一个MATLAB 程序
91/1返回列表
查看: 811  |  回复: 8
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。
【有奖交流】积极回复本帖子，参与交流，就有机会分得作者 hk1234 的 1 个金币

hk1234

金虫 (初入文坛)

[交流] 【求助】求一个MATLAB 程序

准备做一个燃气锅炉腐蚀模型，采用GM(1,1)灰色模型，前面写着一个MATLAB的程序，由于不是科班出身，在调试过程中老是出错，后面机器出毛病后程序也丢掉了，老板催着要出篇文章，求助各位高手指教，能不能给个已调试好的程序，谢谢！
小弟新虫，手上金币也不多，尽量发放一点金币给提供帮助的虫友，谢谢！
回复此楼

» 猜你喜欢
高山之止，云在风端！
1楼 2009-08-17 00:31:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

kuhailangyu

荣誉版主 (著名写手)

小木虫蛀虫防疫站站长

优秀版主
★ ★
wuguocheng(金币+1,VIP+0): 谢谢k版的提议。 8-17 11:41
hk1234(金币+1,VIP+0):谢谢指教 8-18 10:59
这个现成的东西去写文章还是蛮难求助到的

如果有没有调试好的程序贴上来求助修改的话，成功可能性还是比较大的
赞一下(7人) 回复此楼
有能力有脾气的人--怀才不遇；有能力没脾气的人--春风得意；没能力有脾气的人--一事无成；没能力没脾气的人--贵人相助。
2楼2009-08-17 08:31:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

紫舞幽

金虫 (正式写手)
★ ★
wuguocheng(金币+1,VIP+0): 谢谢，热心人。欢迎常来。 8-17 11:41
hk1234(金币+1,VIP+0):谢谢指教 8-18 11:01
你把那个实际的MATLAB程序弄上来,我们帮你调试调试,你这个比较接近实际,要建立模型,不了解实际情况的我们很难给你弄出一个模型出来...
赞一下(7人) 回复此楼
3楼2009-08-17 11:25:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hk1234

金虫 (初入文坛)
wuguocheng(金币+0,VIP+0): 欢迎常来，本版块还是卧虎藏龙的 8-18 11:25
呃，模型只是文章的最后一部分，我本来不想要的，老板非要，没办法，程序语言实在不是专长，以前写着一个，系统出毛病丢了，我再尝试写出来以后像各位求教！
赞一下(6人) 回复此楼
高山之止，云在风端！
4楼2009-08-18 11:02:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ongoing

银虫 (正式写手)

试一下 这是个改进无偏GM（1.1）

★ ★ ★ ★ ★
hk1234(金币+3,VIP+0):谢谢指教 9-20 09:38
nono2009(金币+2,VIP+0):Thanks for the hand. 9-20 14:17
clear;
clc;
x=[];%需要自己输入原始数据
[m,n]=size(x);
sum=0;
x1=[];
for k=1:n;
    sum=sum+x(k);
    x1=[x1 sum];%累加生成
end

for k=1:n-1;
    b(k)=-(x1(k)+x1(k+1))/2;
    Yn(k)=x(k+1);
end

B=[b' ones(size(b'))];
Coe=pinv(B)*Yn';
a=Coe(1);
u=Coe(2);%求微分方程的系数a和u

a1=2-a;%改进的无偏参数
a2=2+a;
a3=log(a1/a2);%改进的无偏参数a
A=2*u/a2;



x0(1)=x(1);
for k=2:6
    x0(k)=A*exp(a3*(k-1));
end
赞一下(7人) 回复此楼
5楼2009-09-19 16:32:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

liang_2004

木虫 (正式写手)

始作俑者
????
回复此楼
走着，看看再说
6楼2009-09-19 19:14:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hyde1022

铜虫 (小有名气)
★ ★ ★ ★ ★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
nono2009(金币+5,VIP+0):Thanks for sharing your code. 9-21 06:39
hk1234(金币+2,VIP+0):谢谢指教 9-21 09:05
这是我前两年编过的一个灰色预测函数，和大家分享一下吧

%alpha为均值生成数列的权重,一般取0.5即可
%gmax为生成预测数列的元素个数
function p=hsyc(x0,gmax,alpha)
x1=zeros(size(x0));
z1=zeros(size(x0));
x1yc=zeros(size(x0));
xyc=zeros(size(x0));
cancha=zeros(size(x0));
n=length(x0);
for i=1:n %做一次累加（AGO）生成数列x1
     if i==1
        x1(i)=x0(i);
     else
        x1(i)=x1(i-1)+x0(i);
     end
end
for i=2:n %生成均值数列z1
     z1(i)=alpha*x1(i)+(1-alpha)*x1(i-1);
end
c=sum(z1);
d=sum(x0)-x0(1);
z1x0=z1.*x0;
e=sum(z1x0);
z12=z1.^2;
f=sum(z12);
a=(c*d-(n-1)*e)/((n-1)*f-c^2);
b=(d*f-c*e)/((n-1)*f-c^2);
x1yc(1)=x1(1);
for k=1gmax-1)
     x1yc(k+1)=(x0(1)-b/a)*exp(-a*k)+b/a;
end
for i=1:gmax
     if i==1
         xyc(1)=x1yc(1);
     else
         xyc(i)=x1yc(i)-x1yc(i-1);
     end
end
for i=1:n
     cancha(i)=(x0(i)-xyc(i))/x0(i);
end
a
b
cancha %如果残差r<0.2，则认为达到一般要求;如果r<0.1，则认为达到较高要求
x0
p=xyc;
赞一下(8人) 回复此楼
7楼2009-09-21 05:16:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

刘洋1876
nono2009(金币+0,VIP+0):欢迎参与讨论。但请不要在此灌水！下次就要扣分了。 9-21 09:56
8楼2009-09-21 09:32:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gqww2
nono2009(金币+0,VIP+0):欢迎参与讨论。但请不要在此灌水！下次就要扣分了。 9-21 10:11
9楼2009-09-21 09:53:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 hk1234 的主题更新
91/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +3 jCd0dEvKHShX 2026-08-29 5/250 2026-08-30 19:35 by hZiFeudZyoGR
[公派出国] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +4 G6APbkg8SA6w 2026-08-29 5/250 2026-08-30 18:51 by hZiFeudZyoGR
[考博] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +4 G6APbkg8SA6w 2026-08-29 5/250 2026-08-30 18:50 by hZiFeudZyoGR
[考研] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +3 G6APbkg8SA6w 2026-08-29 5/250 2026-08-30 18:40 by hZiFeudZyoGR
[论文投稿] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +5 gy1nBQXYQJqL 2026-08-29 5/250 2026-08-30 18:29 by hZiFeudZyoGR
[论文投稿] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +6 gy1nBQXYQJqL 2026-08-29 7/350 2026-08-30 18:18 by hZiFeudZyoGR
[硕博家园] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +5 gy1nBQXYQJqL 2026-08-29 6/300 2026-08-30 18:17 by hZiFeudZyoGR
[公派出国] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +5 gy1nBQXYQJqL 2026-08-29 5/250 2026-08-30 18:07 by hZiFeudZyoGR
[硕博家园] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +4 gy1nBQXYQJqL 2026-08-29 7/350 2026-08-30 17:45 by hZiFeudZyoGR
[硕博家园] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +7 ASdOkHsho7FD 2026-08-28 14/700 2026-08-30 17:01 by hZiFeudZyoGR
[找工作] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +5 gy1nBQXYQJqL 2026-08-29 8/400 2026-08-30 12:14 by l0VvVHGBGRLv
[教师之家] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +5 ASdOkHsho7FD 2026-08-28 8/400 2026-08-30 05:48 by ZPa0EcMwuECS
[基金申请] 2026年叶企孙基金 +4 bud_bud 2026-08-27 7/350 2026-08-29 07:23 by foolishmani
[基金申请] 系统查不到 +11 董八千 2026-08-26 11/550 2026-08-28 18:06 by Leogzhya
[基金申请] 基金系统什么内容也没有 30+4 winsaint 2026-08-27 9/450 2026-08-28 11:06 by maolC
[基金申请] 面上合作单位盖章 +5 ssyjh 2026-08-27 5/250 2026-08-27 20:50 by gdfollow
[基金申请] 为什么 国际(地区)合作与交流项目 没有放榜？ 10+3 majunge000 2026-08-26 11/550 2026-08-27 08:42 by 北京莱茵编辑
[基金申请] 国际合作可查了，中了面上 (EPI+1)(金币+50) +18 Ldrop2023 2026-08-26 18/900 2026-08-26 11:15 by cmrandy
[基金申请] 项目信息和经费信息在系统里都可以看到了 +6 wittyboy 2026-08-26 14/700 2026-08-26 10:55 by wittyboy
[基金申请] 在坚冰还盖着北海的时候，我看到了怒放的梅花。 (金币+10) +6 ziyangfang 2026-08-25 9/450 2026-08-25 20:26 by huagongfeihu
信息提示
关闭
请填处理意见
关闭