24小时热门版块排行榜    

查看: 2260  |  回复: 11
本帖产生 1 个 计算强帖 ,点击这里进行查看
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

suyan200326

新虫 (初入文坛)

[求助] 求Matlab 高手改进程序 可付费

用MATLAB自己写了个MLE 估计, 由于数据量比较大
发现如果完全不出错跑完该程序需要60天, 求高手帮忙改进。
抱歉 目前金币紧缺 如果有高手能解决问题  可付费 先谢谢啦   


[ Last edited by suyan200326 on 2012-7-13 at 16:20 ]
回复此楼

» 猜你喜欢

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

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

suyan200326

新虫 (初入文坛)

★
fegg7502: 金币+1, 多谢交流 2012-07-23 18:27:51
引用回帖:
4楼: Originally posted by dbb627 at 2012-07-19 21:24:22
你得机器配置怎么样,你的计算,可不可以考虑分解任务并行计算。把你的代码附上看看
最近买了个工作站,一些计算我试了下我的机器并行可以提速7-8倍。如果不是太复杂,可以帮你算算

是在是太感激你了,最近被这个问题折磨得已经抑郁了。
机器配置很一般  学校的电脑
2.13GH,2.99GB

目前CODE 如下:

/*likelihood function*/
function llf=likelihoodfunction(theta, ETS, TS,DS,V0)

%global n ETS TS DS;
mu=theta(1);
sigma=theta(2);

n=length(ETS);

%V0=10;
lf=0;
for i=1:n
  Et=ETS(i);
  t=TS(i);
  D=DS(i);
  %Vt=invoptionprice(Et,D,sigma,t)
  Vt=fsolve(@(Vt) Vt*normcdf((log(Vt/D)+0.5*sigma^2*t)/(sigma*t^0.5))-D*normcdf((log(Vt/D)+0.5*sigma^2*t)/(sigma*t^0.5)-sigma*t^0.5)-Et, V0);
  dt=log(Vt/D)+0.5*sigma^2*t;  
  if i>1
    f=-0.5*log(2*pi)-0.5*log(sigma^2)-log(Vt)-log(normcdf(dt))-0.5/sigma^2*(log(Vt/Vt_1)-mu)^2;
    lf=lf+f;
  end
  Vt_1=Vt;
end

llf=-lf;


/*MLE*/
Data=xlsread('data1.xls')
DS=Data(:,1);
ETS=Data(:,2);

LENGTH=length(ETS);

TS=Data(:,3);
%TS=ones(LENGTH,1);

theta0=[0,0.1];
V0=10000;
options = optimset('Display','iter','MaxIter',(1e+003),'MaxFunEvals',1e+4,'TolFun',10^(-10),'TolX',10^(-10));

[theta,fval]=fminsearch(@(theta) likelihoodfunction(theta,ETS, TS,DS,V0) , theta0,options);
   
n=length(ETS);
mu=theta(1);
sigma=theta(2);

VS=[];
for i=1:n
  Et=ETS(i);
  t=TS(i);
  D=DS(i);

  Vt=fsolve(@(Vt) Vt*normcdf((log(Vt/D)+0.5*sigma^2*t)/(sigma*t^0.5))-D*normcdf((log(Vt/D)+0.5*sigma^2*t)/(sigma*t^0.5)-sigma*t^0.5)-Et, V0);
  VS=[VS,Vt];
end
5楼2012-07-19 23:34:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 12 个回答

onesupeng

金虫 (职业作家)

【答案】应助回帖

★ ★ ★ ★ ★
fegg7502: 金币+5, 计算强帖+1, 应助指数+1, 多谢指导 2012-07-23 18:27:24
你这个用matlab没有太大的优化空间,最多是把1.1中的一些项手动合并一下等等。比如singma^2,因为用到几次,所以公式之前用个变量存下来之后用。

如果是我来做,我选择用Fortran或者C,优化编译或者并行一下,很快
长期招收博士生,参见http://fsl-unsw.com
2楼2012-07-17 08:24:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

suyan200326

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by onesupeng at 2012-07-17 08:24:25
你这个用matlab没有太大的优化空间,最多是把1.1中的一些项手动合并一下等等。比如singma^2,因为用到几次,所以公式之前用个变量存下来之后用。

如果是我来做,我选择用Fortran或者C,优化编译或者并行一下,很 ...

谢谢你的热心, 但我不会Fortran和C,如果你愿意的话可以帮我试试吗,只要能比较有效的计算出来,可以有偿
3楼2012-07-19 18:40:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dbb627

荣誉版主 (著名写手)

【答案】应助回帖

★ ★ ★ ★ ★
fegg7502: 金币+5, 应助指数+1, 多谢指导 2012-07-23 18:27:38
你得机器配置怎么样,你的计算,可不可以考虑分解任务并行计算。把你的代码附上看看
最近买了个工作站,一些计算我试了下我的机器并行可以提速7-8倍。如果不是太复杂,可以帮你算算
The more you learn, the more you know, the more you know, and the more you forget. The more you forget, the less you know. So why bother to learn.
4楼2012-07-19 21:24:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[职场人生] 40+中年人失业后,还能找到好工作吗? +11 xqy2009 2026-10-13 13/650 2026-10-15 21:32 by bear2007
[有机交流] 用NBS溴化时溶剂除了CCl4外还有什么 +3 18834002860 2026-10-12 6/300 2026-10-15 14:30 by 长沙摩尔信息科�
[基金申请] 申请科研项目纯靠实力能成功吗? 200+7 David1982 2026-10-13 11/550 2026-10-15 10:30 by zyqchem
[硕博家园] 极限拉扯,如何抉择 +11 Isak0320 2026-10-12 15/750 2026-10-14 21:55 by 猫鱼不是鱼
[论文投稿] 二审4个多月了还是Awaiting Reviewer Scores 10+3 纳斯达克ML 2026-10-11 4/200 2026-10-14 17:30 by babero
[教师之家] 课题组会帮你通过考核么? +4 好运来~9527 2026-10-10 7/350 2026-10-13 08:41 by xli1984
[公派出国] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:34 by XQNyDCa1Tk5n
[找工作] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 22:26 by XQNyDCa1Tk5n
[公派出国] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:26 by XQNyDCa1Tk5n
[考博] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:15 by XQNyDCa1Tk5n
[考博] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 22:11 by XQNyDCa1Tk5n
[教师之家] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:06 by XQNyDCa1Tk5n
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 14:25 by VOMexwnDzOFZ
[教师之家] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 (EPI+-1)(金币-50) +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 14:05 by VOMexwnDzOFZ
[考研] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:51 by VOMexwnDzOFZ
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:45 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:54 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:34 by VOMexwnDzOFZ
[考博] 招收博士生一名 +3 mandolin 2026-10-10 3/150 2026-10-11 10:21 by 不是山谷!
[公派出国] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 qR2AdCWTVtkw 2026-10-09 4/200 2026-10-11 03:14 by M0zrYVSAnxpE
信息提示
请填处理意见