QQ登录

只需要一步,快速开始

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

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

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

5

主题

4

听众

23

积分

升级  18.95%

该用户从未签到

群组华南理工大学

跳转到指定楼层
1#
发表于 2010-8-1 20:45 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
一、使用曲线拟合模拟病人等待时间的模拟matlab程序实现:; P( E6 O. A5 y6 b
[A]=xlsread('C:\MATLAB7\work\问题3数据5');
" q* X4 u, B1 o; M* ~len=length(A);5 s! E( }% }+ `, ?) Q1 L
i=1:len;
# @( G2 O( w7 I5 i- r5 g) s* d& G" ej=A(:,5);
3 o# b' A" S1 P- A+ X+ ]; K! _$ a/ `figure(1);8 ]4 j! ?1 A: e, s+ Y; b4 E
plot(i,j,'.-');1 }. f3 J; T) L4 Z: Q0 z! X9 a1 k6 Q
hold on;
3 k( E! p& }" n7 v! Z3 pi=i';3 T; r- b; M! I; X4 I
p1=polyfit(i,j,2)
, b6 d) Y: K) w$ Y  d" h* X5 K( jf1=polyval(p1,i);( j/ K% w. j* x6 {+ j
plot(i,j,'.',i,f1,'-');+ g/ p$ C9 {; f/ o7 P4 h/ L0 C5 ^
hold on;8 x' o3 T, i1 a5 b  q) P
title('病人平均等待时间与病人到达时间的关系');+ q! [, ]' t9 d1 j5 m, d1 j
xlabel('病人门诊时间距离7 月12 日的时间差');ylabel('病人平均等待时间
" r! G% M( Q# N');
) n) P$ i$ u- z% G/ M5 b3 V8 kaxis equal;
& m" d/ }8 g. a, d: H0 _9 pfigure(2);
& B* k4 S" K8 ^& d) F6 T. @) N& jA1=[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 318 L  B4 c- O: p( w
32 34 35 36 37 38 39 40 41 42];" P2 c$ s5 P/ k! ]; \
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: n: S0 z7 [# J; k% l# v+ k
11.5 13.25 14 13 12 11 13 13 12 12.25 13 15.5 15 14 13];( a% W- q) S$ [( d5 O
subplot(1,2,1);0 m( H: K' h: F) z
plot(A1,B1,'.-');& A2 ]" ]: G9 u% }" z% T
hold on;' h0 p0 L5 |4 N# Z2 f
p2=polyfit(A1,B1,2)
0 D3 D# v0 g6 h5 \3 f* cf2=polyval(p2,A1);1 P: X' i, ]! N9 @' U
plot(A1,B1,'.',A1,f2,'-');
6 Y  z8 ], \: h) b2 E4 B, Zhold on;' `) m* e; b7 Q7 m2 o3 W3 m7 G1 f- f
title('白内障病人情况');
& z+ L8 a4 m) {' t0 axlabel('白内障病人门诊时间距7月12日的时间差');ylabel('白内障病人平均
" N5 u1 Z, G0 e# \) q& z- K等待时间');
) p' d/ R6 }9 Laxis equal;+ G" O" X) a! `2 K
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 30
5 x" ]$ |% e+ Z- f. b. j9 R31 32 33 34 35 36 37 ];
7 b6 c1 F! h7 _" h, K. q' qB2=[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
* o" n/ X5 h& o( m12 12 13.25 14 14 13 12 12 12.4 13.33 13 13 13 12];& N) ^1 P) t' }3 V( A
subplot(1,2,2);
* d( r4 k7 N3 H: ~+ Lplot(A2,B2,'.-');
# N) Y, r' J* o% w) o" e, shold on;4 C  p  {1 l# f
p3=polyfit(A2,B2,2)0 u) o% E( ]1 o8 G8 W6 x& P" q/ A
f3=polyval(p3,A2);
# r! Y! P9 n7 A4 qplot(A2,B2,'.',A2,f3,'-');
" w1 j& @7 V$ a% k, v, zhold on;) N* P# n4 W0 C  b( y: C
title('白内障双眼病人情况');
+ }5 d! }8 A5 `$ I% m# x: rxlabel('白内障双眼病人门诊时间距7月12日的时间差');ylabel('白内障双眼8 P  G& O4 ^2 |0 G
病人平均等待时间');
( v& A+ p; I" D) X; G) s; {axis equal;
$ P  E$ g7 B8 Q' [! a& D9 ]# }figure(3);
# o- z7 U/ k, T6 WA3=[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
1 z9 R  b+ H. h, C9 H9 O; l, K28 29 30 31 32 33 34 35 36 37 38 ];& q& p; J' o0 c: @( M. {' [
B3=[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
% Y. N0 \' ]8 |3 U: l1 @11.67 12 12.25 12 11 11.75 13 14 14 13 12 12 12.33 13 13 13 12.5 12 12];- w6 s: C8 r) ?  `% Y
subplot(2,2,1);2 q! d; ~9 h( _3 J8 O
plot(A3,B3,'.-');
5 N6 O5 Q! t! ahold on;- m* y0 ~: _* O- i3 m
p4=polyfit(A3,B3,2)7 I' M* |5 U+ x
f4=polyval(p4,A3);
% L7 x, ~; M- `4 c) Q' c- Hplot(A3,B3,'.',A3,f4,'-');( {1 B5 k/ d7 J$ b; N: D
hold on;) l6 ?: s& ]4 [* H& P
title('视网膜病人情况');' K, d/ V. x6 X& f7 z
xlabel('门诊时间距7 月12 日的时间差');ylabel('视网膜病人平均等待时间) h8 R- s" b( j# Z6 C, v
');9 ], K( Z; a$ J, m5 D- w
axis equal;5 L7 A! ]! H8 X$ l6 Q
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( ?" b5 c0 c6 ?5 H6 r8 Y
37];- O2 c/ p9 s, Q: w1 B8 K
B4=[12 13 12 12 12 12 13.5 13 13.5 14 13 12 12 11 10.25 12 11 11 15 15+ o/ ^6 y* k: P/ H$ Z4 n! g+ c
13 12 12 13 13 12];
/ J  e' C# z. Z. e  Ksubplot(2,2,2);
& \: ^+ T0 E& U: x+ Wplot(A4,B4,'.-');
! Z# G4 X3 _3 _/ ^$ dhold on;
) y: R: z4 y" L9 xp5=polyfit(A4,B4,2)- u4 {5 r* @8 P% Q
f5=polyval(p5,A4);
& U- ?9 M! a/ J' n! E5 Cplot(A4,B4,'.',A4,f5,'-');
6 P6 F: ]* K1 F* C+ C" {  ]' }hold on;
# o) d* ^* {4 P) O7 vtitle('青光眼病人情况');9 z! V; D! z) o& J0 f. s
xlabel('门诊时间距7 月12日的时间差');ylabel('视网膜病人平均等待时间2 ^7 J2 H% ^* a/ |% ~! v3 x. `
');
/ a- g9 W! k, \  s# y. saxis equal;' T/ P( U" h: c
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/ d. N( W0 L- P. Y
37];5 A  \' M% l8 R, M, E
B4=[12 13 12 12 12 12 13.5 13 13.5 14 13 12 12 11 10.25 12 11 11 15 15* C9 X! Q& v0 Q3 f
13 12 12 13 13 12];8 O3 S: n6 [: |; N
subplot(2,2,2);
$ o% y, N) R; `1 yplot(A4,B4,'.-');. i0 u9 I8 d- H3 K% v
hold on;
( Z' c7 y/ o1 G5 mp5=polyfit(A4,B4,2)
# J" M. Q- p1 O9 r$ \f5=polyval(p5,A4);. y9 ~- H2 K) `! M6 H2 n
plot(A4,B4,'.',A4,f5,'-');
1 a4 |- Y6 w- khold on;2 Y4 b; o& _* X& l% f8 h& `
title('青光眼病人情况');! u$ L7 e9 |+ I* @* X  a
xlabel('门诊时间距7 月12 日的时间差');ylabel('青光眼病人平均等待时间
' n# _2 P) P- G" Q. ]');! t. D7 A9 p+ a$ O
axis equal;
  S) f# a7 d/ w  A& f) r& D  j" oA5=[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];! v# l8 ?" ~: v) M
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];
# G( r8 N& b! _( Y1 U( Lsubplot(2,2,3);5 p5 b9 Y0 r: s7 N4 j% H/ g
plot(A5,B5,'.-');! s% w2 p* U7 d( E! b) A
hold on;. Y/ ^; t+ a9 K. A" E
p6=polyfit(A5,B5,2)
# I+ d; f8 i3 f0 f( Lf6=polyval(p6,A5);
7 W6 g. p9 P" T( G. p' {plot(A5,B5,'.',A5,f6,'-');# w0 H/ ?* x( y* C: R5 q
hold on;6 @" k+ L+ q$ A( _* @& K  I
title('外伤病人情况');% o! ^7 F0 Z4 P% P6 G; ^
xlabel('外伤病人门诊时间距离7月12日的时间差');ylabel('外伤病人平均等( b: D) C$ b6 s; ?; W
待时间');3 {3 B1 w; k, m& f. h
axis equal;
4 A2 |: `' \" P8 R1 P# i二、层次分析法的一致性指标判定的matlab 实现:
& Q: P9 v, [: q; O! t% ~+ ffunction H=ff(A)" F6 y( z8 J) ~$ J2 S
t=eig(A)/ X+ J5 p$ U- T! I: n1 o- b7 H
w=max(t)
* o0 S2 P' C7 W( Z0 w& Mq=(w-4)/3/.95 `* c( j+ E; }- ~
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(
( D! r) g8 S0 t4 y9)+A(10)+A(11)+A(12)+A(13)+A(14)+A(15)+A(16))% X) E& e- r& S5 E& g
(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)
" U1 [' ]; M) F+ _+A(10)+A(11)+A(12)+A(13)+A(14)+A(15)+A(16))
& b1 m, k9 Z: X5 n- A(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)* U& G3 h2 F' d
+A(10)+A(11)+A(12)+A(13)+A(14)+A(15)+A(16))5 [7 y9 f! {8 R; \/ ^7 S0 O
(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)+ m* C. F, n( `4 B
+A(10)+A(11)+A(12)+A(13)+A(14)+A(15)+A(16))]( b( C: q4 L' g+ F

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 语言讨论组

    回复 迷途的羊 的帖子+ r) Y8 Q' R& m
    3 v$ o" Y! |! I
    是自己编的还用别人运行么……不过要是楼主自己编的……小弟就佩服死啦% l- ]+ O! g* y' t0 [* E& w  s; [: W
       
    回复

    使用道具 举报

    紫辰 实名认证       

    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');  u% ?" S5 M8 Y0 W6 j) e4 t( @6 \
    在不同的地方运行上面一句要改成本地数据保存的路径的
    回复

    使用道具 举报

    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-7-11 12:28 , Processed in 1.092728 second(s), 107 queries .

    回顶部