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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 仿真模拟 » MATLAB » 【求助】求一个MATLAB 程序
91/1返回列表
查看: 642  |  回复: 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返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭