QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 14474|回复: 35
打印 上一主题 下一主题

[代码资源] 请问MATLAB编程高手啊谁能将这个程序运行啊

[复制链接]
字体大小: 正常 放大

5

主题

4

听众

23

积分

升级  18.95%

该用户从未签到

群组华南理工大学

跳转到指定楼层
1#
发表于 2010-8-1 20:45 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
一、使用曲线拟合模拟病人等待时间的模拟matlab程序实现:
1 ?; [" _9 l+ q) ~+ @[A]=xlsread('C:\MATLAB7\work\问题3数据5');
/ a2 H, F4 w! ]! clen=length(A);
: o4 f& s6 q% li=1:len;" ^3 g/ r" q( i
j=A(:,5);
' l8 H# q9 N2 y$ e1 D3 N% I* Pfigure(1);/ d( o8 J) y8 X% @
plot(i,j,'.-');* V. }. H$ S. Y; z, u- m+ ]4 D
hold on;
5 ^% o6 ^1 B  Ti=i';
: X9 q( U4 A' u" {1 i2 y; A% \p1=polyfit(i,j,2)  c7 G* i6 _: p+ z' }6 M' f! y
f1=polyval(p1,i);
' h* S3 [* l" m* d( Z5 Kplot(i,j,'.',i,f1,'-');6 n2 I! m) A6 [" {% G7 ^
hold on;3 i# z- o" q. `0 ?2 Z( W
title('病人平均等待时间与病人到达时间的关系');
+ N$ t  N- [2 V7 l! Bxlabel('病人门诊时间距离7 月12 日的时间差');ylabel('病人平均等待时间  q9 R0 y( r& p" M" ~' Z3 ^4 M8 X
');
7 x! n: A7 ]( n& n$ Saxis equal;. ^" h* y! @7 [  a" x) o5 Y4 O8 |
figure(2);
4 T( G$ U% Q6 v# B' QA1=[1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 17 18 21 22 23 24 25 26 28 29 31
- {" w$ ~2 }1 @3 p32 34 35 36 37 38 39 40 41 42];1 z0 k/ Q( y5 J4 M/ |9 u$ u- k/ z
B1=[12 12 12 12 12 12.5 13 13 13 13 13.4 14 14 13 12.5 11 11 12 12 12 11% {# A9 @# R5 p
11.5 13.25 14 13 12 11 13 13 12 12.25 13 15.5 15 14 13];4 O8 P- A& {9 ?" f, X1 n7 w% D
subplot(1,2,1);
* j! B' I0 d& i6 `- kplot(A1,B1,'.-');$ G$ o3 u! [) E1 d% p
hold on;
0 U7 D9 |7 Y/ ?5 p, J- A3 Up2=polyfit(A1,B1,2)
; B( W3 W* ]/ w" i. `f2=polyval(p2,A1);
9 r7 d: E0 R4 K- Q$ }4 P1 W6 splot(A1,B1,'.',A1,f2,'-');; l4 p. p2 s# l4 k! [3 s  @8 @- V
hold on;5 n4 q6 S1 {: [4 s# }' M
title('白内障病人情况');! m5 M- l( ^5 k
xlabel('白内障病人门诊时间距7月12日的时间差');ylabel('白内障病人平均
8 p7 m- n+ E" s, p等待时间');* ]3 t) T8 G: Q2 e7 t, m# j5 A
axis equal;% [7 }6 B% Z2 A7 R
A2=[2 3 4 5 6 7 8 9 11 13 15 16 17 18 19 20 21 22 23 25 26 27 28 29 309 K! a6 L# B. k5 J
31 32 33 34 35 36 37 ];
+ W4 T/ L, T/ v( L1 e$ B0 I+ EB2=[12 12.5 12 12.5 12.5 13 13 13.25 14 14 12.5 12 11 11 10 11.75 12 11.67/ M1 @3 R8 e  K- s# O. D# p
12 12 13.25 14 14 13 12 12 12.4 13.33 13 13 13 12];
9 R$ ~2 H0 e, R. A; T, gsubplot(1,2,2);& ^: b6 W9 Z- ^5 Z$ J
plot(A2,B2,'.-');  s3 }; Q4 j6 y6 k
hold on;
! i4 l. Y% Z4 q" m% `: J0 n9 _p3=polyfit(A2,B2,2)
5 |8 l  \. ^7 x6 h2 z$ c/ @f3=polyval(p3,A2);
% t7 _0 l% {/ e8 y8 \, }plot(A2,B2,'.',A2,f3,'-');
0 ?+ Y) b: t. u; x% d8 Xhold on;
6 N3 ^# _1 K, d; Ctitle('白内障双眼病人情况');& K5 ~, d& H# ]
xlabel('白内障双眼病人门诊时间距7月12日的时间差');ylabel('白内障双眼
+ z" z) c7 a% W4 Z病人平均等待时间');
+ B( h, ]2 A6 x! `axis equal;
( J, V# [3 d* A. q3 v% Ofigure(3);4 W" o0 H, }5 o0 l
A3=[1 2 3 4 5 6 7 8 10 11 12 13 15 16 17 18 19 20 21 22 23 24 25 26 27
9 d2 o) `7 \2 |28 29 30 31 32 33 34 35 36 37 38 ];
# b$ n- y1 j: e# J4 k8 q6 vB3=[12.33 12.5 12.3 12 11.67 12.33 12 13 13 14.2 14.25 14 13 12 11 11 10.75
+ X& Y5 q0 R2 x2 h2 [11.67 12 12.25 12 11 11.75 13 14 14 13 12 12 12.33 13 13 13 12.5 12 12];
" F" f; z! G8 }1 e' Fsubplot(2,2,1);1 O+ N8 K# f; I- f9 n& z% F% b! ^. s
plot(A3,B3,'.-');
* t* C" p- l2 w- shold on;, b& z* P& p5 P# F, O
p4=polyfit(A3,B3,2), W1 `4 P9 [4 h/ a6 K- [
f4=polyval(p4,A3);( i1 g6 |% t7 H# u7 `* e
plot(A3,B3,'.',A3,f4,'-');
. \# z9 n- s" ~" a# ehold on;. x; K7 l& E% ~$ _4 R/ a6 j
title('视网膜病人情况');5 l  m6 S% i& ^% r4 G
xlabel('门诊时间距7 月12 日的时间差');ylabel('视网膜病人平均等待时间
  g* i: B" A& e$ p  ?5 k* c');
& d0 ?9 f3 c7 l% b: v) naxis equal;
& S0 _" T8 |0 `8 s: X5 F& T# aA4=[1 2 3 4 5 6 7 10 11 12 14 15 16 17 19 20 22 24 26 27 29 30 32 33 34+ t: f) o" b9 Q9 p7 c& ~9 G
37];  U0 Y; t! g5 _* B$ x% ?/ W0 u% f
B4=[12 13 12 12 12 12 13.5 13 13.5 14 13 12 12 11 10.25 12 11 11 15 152 f' e4 a  V6 F3 h: P5 {; O0 m  }
13 12 12 13 13 12];/ m* a4 [4 z% A3 S! C! X9 j% E# m: r
subplot(2,2,2);
" u& n% @: E: w0 r; dplot(A4,B4,'.-');1 @9 N3 R2 Y$ I7 _
hold on;* b7 K8 s5 C( G; w- O+ R
p5=polyfit(A4,B4,2)
# F- C2 N+ O: R$ S# u+ q) v% \" B* Xf5=polyval(p5,A4);" _6 X% H3 |  N+ F/ H6 N/ t: P
plot(A4,B4,'.',A4,f5,'-');
, P! c; u' r7 b( @hold on;
6 @/ U/ Y& ]; @. f. ytitle('青光眼病人情况');
' L/ O6 }& r) T* }" Gxlabel('门诊时间距7 月12日的时间差');ylabel('视网膜病人平均等待时间6 J1 w$ B6 K5 k$ r" Y  t' x
');
- C4 G8 I* k4 q. Q, Uaxis equal;+ a# w, p  T9 i" t. S6 t4 `, C/ \3 Y
A4=[1 2 3 4 5 6 7 10 11 12 14 15 16 17 19 20 22 24 26 27 29 30 32 33 34
: l! u3 q  X5 r' R6 B4 m37];) u2 A3 r# _$ y, h5 w" P8 g
B4=[12 13 12 12 12 12 13.5 13 13.5 14 13 12 12 11 10.25 12 11 11 15 155 z5 x4 x9 w9 o) f
13 12 12 13 13 12];
6 O7 r- M3 N1 usubplot(2,2,2);
  w7 m: }' }6 `+ N5 ?3 zplot(A4,B4,'.-');
% p$ o! \2 Y8 ^# Y2 f* _hold on;$ l$ g* O: M8 x. E9 X. h* k) I4 E
p5=polyfit(A4,B4,2)* k' T% d% |) B" M
f5=polyval(p5,A4);
% p6 X% q! `* j! Bplot(A4,B4,'.',A4,f5,'-');
( b  ]  K3 K8 W% \: e1 fhold on;
& j0 x+ d6 E% ^& ~! O5 I! Mtitle('青光眼病人情况');
# r2 c. y% C  S! U: _% [1 Vxlabel('门诊时间距7 月12 日的时间差');ylabel('青光眼病人平均等待时间; }; j4 R/ e0 Z' j3 E5 F( [- J
');8 H& w6 T* [  P& H1 u9 S' k$ l
axis equal;
  u  M/ Y' B; M( z% ]# IA5=[1 43 5 6 7 8 9 10 11 15 16 18 19 21 22 23 26 28 29 30 32 36 38 39 40];  X. p; Q. l2 d6 p
B5=[1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1];" W! g9 Y- G1 ~5 E5 l6 f) o' e2 _
subplot(2,2,3);
' k" c7 g$ z8 @" hplot(A5,B5,'.-');$ G  q( Q4 P# {
hold on;
$ q, b8 l+ z5 U7 D: cp6=polyfit(A5,B5,2)/ B5 f8 J: t- D
f6=polyval(p6,A5);
% j( ~1 y# k- Tplot(A5,B5,'.',A5,f6,'-');9 H' R* L$ e& C6 p
hold on;9 `/ P/ E5 F4 |+ @/ \
title('外伤病人情况');* o/ n- F4 A0 r$ }
xlabel('外伤病人门诊时间距离7月12日的时间差');ylabel('外伤病人平均等0 K- n6 {! e& w2 ^
待时间');- ~& u1 N/ c- u  O5 R
axis equal;
7 ^$ P, u' s' P二、层次分析法的一致性指标判定的matlab 实现:
, f( C0 t: a/ l( r# w( wfunction H=ff(A)
' y( ?" ~  l# _/ w! X# lt=eig(A)' g( x# i3 ]: }  a7 \! p1 o; g
w=max(t)# J! r* D$ k$ i+ u" a0 {
q=(w-4)/3/.9+ G8 j& z2 w2 ]; E/ T4 }
s=[(A(1)+A(5)+A(9)+A(13))/(A(1)+A(2)+A(3)+A(4)+A(5)+A(6)+A(7)+A(8)+A() k1 M9 g3 c, z4 h) ?4 d2 U
9)+A(10)+A(11)+A(12)+A(13)+A(14)+A(15)+A(16))
& F- E) M0 l( B$ ]/ L' M(A(2)+A(6)+A(10)+A(14))/(A(1)+A(2)+A(3)+A(4)+A(5)+A(6)+A(7)+A(8)+A(9)
; d1 g# N) J  z9 ~$ d+A(10)+A(11)+A(12)+A(13)+A(14)+A(15)+A(16))1 @: o9 H! ]% ^( q
(A(3)+A(7)+A(11)+A(15))/(A(1)+A(2)+A(3)+A(4)+A(5)+A(6)+A(7)+A(8)+A(9)' r& @8 C7 A) S* Y  t( H& q; s$ H
+A(10)+A(11)+A(12)+A(13)+A(14)+A(15)+A(16))
( p6 A8 }+ b7 x7 ]8 F8 E5 m(A(4)+A(8)+A(12)+A(16))/(A(1)+A(2)+A(3)+A(4)+A(5)+A(6)+A(7)+A(8)+A(9)
, r; M- Q8 w$ W7 a7 W" }+A(10)+A(11)+A(12)+A(13)+A(14)+A(15)+A(16))]
$ d# Y. I4 f' Y0 N

B2009.doc

688.5 KB, 下载次数: 1, 下载积分: 体力 -2 点

09年b题

2009B题0315(1).pdf

352.05 KB, 下载次数: 3, 下载积分: 体力 -2 点

问题三数据五.xls

68.5 KB, 下载次数: 3, 下载积分: 体力 -2 点

zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
linmatsas 实名认证       

53

主题

13

听众

3592

积分

逍遥游

  • TA的每日心情
    奋斗
    2014-12-2 09:53
  • 签到天数: 54 天

    [LV.5]常住居民I

    自我介绍
    额。。。。世界上最讨厌的事情就是自我介绍。。。

    邮箱绑定达人 新人进步奖 发帖功臣 最具活力勋章

    群组Matlab讨论组

    群组数学建模

    群组小草的客厅

    群组2012数学一考研交流

    群组C 语言讨论组

    回复

    使用道具 举报

    3

    主题

    6

    听众

    264

    积分

    升级  82%

  • TA的每日心情
    开心
    2023-4-16 10:24
  • 签到天数: 6 天

    [LV.2]偶尔看看I

    自我介绍
    路漫漫其修远兮,吾将上下而求索!

    社区QQ达人 新人进步奖

    群组Matlab讨论组

    回复

    使用道具 举报

    linmatsas 实名认证       

    53

    主题

    13

    听众

    3592

    积分

    逍遥游

  • TA的每日心情
    奋斗
    2014-12-2 09:53
  • 签到天数: 54 天

    [LV.5]常住居民I

    自我介绍
    额。。。。世界上最讨厌的事情就是自我介绍。。。

    邮箱绑定达人 新人进步奖 发帖功臣 最具活力勋章

    群组Matlab讨论组

    群组数学建模

    群组小草的客厅

    群组2012数学一考研交流

    群组C 语言讨论组

    回复 迷途的羊 的帖子3 F7 p* \) k1 x+ C" e
    . {  W8 A9 X; }
    是自己编的还用别人运行么……不过要是楼主自己编的……小弟就佩服死啦; ^& q% l, q! L# E
       
    回复

    使用道具 举报

    紫辰 实名认证       

    12

    主题

    16

    听众

    1304

    积分

    升级  30.4%

  • TA的每日心情
    擦汗
    2013-2-5 09:29
  • 签到天数: 35 天

    [LV.5]常住居民I

    自我介绍
    200 字节以内

    不支持自定义 Discuz! 代码

    群组学术交流A

    群组数学建模保研联盟

    群组Matlab讨论组

    群组湖南大学数学建模

    群组学术交流B

    回复

    使用道具 举报

    1

    主题

    2

    听众

    128

    积分

    升级  14%

  • TA的每日心情

    2014-9-9 21:30
  • 签到天数: 3 天

    [LV.2]偶尔看看I

    自我介绍
    平凡的我!

    平凡的快乐!
    回复

    使用道具 举报

    21

    主题

    7

    听众

    3435

    积分

    升级  47.83%

  • TA的每日心情

    2014-5-25 20:58
  • 签到天数: 20 天

    [LV.4]偶尔看看III

    新人进步奖 优秀斑竹奖

    群组Matlab讨论组

    群组小草的客厅

    群组数学趣味、游戏、IQ等

    群组C 语言讨论组

    群组我行我数

    [A]=xlsread('C:\MATLAB7\work\问题3数据5');
    6 b/ E. K. C: y' ?+ ?2 \; \, y  |0 ?( G在不同的地方运行上面一句要改成本地数据保存的路径的
    回复

    使用道具 举报

    5

    主题

    4

    听众

    23

    积分

    升级  18.95%

    该用户从未签到

    群组华南理工大学

    回复

    使用道具 举报

    hhao        

    0

    主题

    2

    听众

    46

    积分

    升级  43.16%

    该用户从未签到

    新人进步奖

    我基本上是采用看英语文章的办法,先泛读,再精读,再一句一句看,最后再提纲挈领,总算是明白一点了,当然,也可能还是领悟错了。最后要说的一句话是:楼主,你很牛叉,希望你不是真的有病。   
    回复

    使用道具 举报

    abc321        

    0

    主题

    2

    听众

    30

    积分

    升级  26.32%

    该用户从未签到

    新人进步奖

    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2026-9-2 09:43 , Processed in 0.736376 second(s), 107 queries .

    回顶部