QQ登录

只需要一步,快速开始

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

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

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

5

主题

4

听众

23

积分

升级  18.95%

该用户从未签到

群组华南理工大学

跳转到指定楼层
1#
发表于 2010-8-1 20:45 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
一、使用曲线拟合模拟病人等待时间的模拟matlab程序实现:) Q4 m+ t9 `( _
[A]=xlsread('C:\MATLAB7\work\问题3数据5');; l) g: n! X5 P3 f
len=length(A);; T9 w' R$ Y+ [/ J1 r, B5 B# y% T: M
i=1:len;
# M8 j) M9 g+ sj=A(:,5);4 g3 u; @! d6 i  R$ B
figure(1);+ l& P8 I+ M- U3 x( ?
plot(i,j,'.-');
1 h: e+ U& x* Z3 b! l) S4 ghold on;# q9 Q, y/ D9 ?: b: @8 K
i=i';
+ z* V# I: h9 ]! ~$ T+ J6 D7 Kp1=polyfit(i,j,2)
+ D/ T4 h* @  p2 xf1=polyval(p1,i);
5 V2 L7 w' ]2 L4 {+ t; p& Vplot(i,j,'.',i,f1,'-');
6 c3 z' J3 {: F- ]+ h9 S3 `hold on;" `- r4 G) k* L# r8 v1 b  r- d! D. j
title('病人平均等待时间与病人到达时间的关系');1 h) p5 U6 Y- @3 B- }; _- R, [
xlabel('病人门诊时间距离7 月12 日的时间差');ylabel('病人平均等待时间( p0 X; g4 [& h! j) ]# @
');! Z; T! C( k/ G! C
axis equal;! B5 ]& S$ `  `6 n1 o0 B
figure(2);( `+ @# b/ m* h, Z, A, [8 ~" B
A1=[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 317 u: L/ q8 k4 b! n1 x9 i
32 34 35 36 37 38 39 40 41 42];
# T) |2 e) H% n! VB1=[12 12 12 12 12 12.5 13 13 13 13 13.4 14 14 13 12.5 11 11 12 12 12 11
, q. m) |  T% H: C) z" M. G11.5 13.25 14 13 12 11 13 13 12 12.25 13 15.5 15 14 13];
* s9 O" e/ ]7 d0 @subplot(1,2,1);4 z/ j6 f2 h& }
plot(A1,B1,'.-');" Y" r+ R$ Q7 L2 S* Z1 @
hold on;
1 F# ?+ ~' J& Q8 o. C% s- V* pp2=polyfit(A1,B1,2); E2 Z0 O+ H: p) p: `# t1 r7 a
f2=polyval(p2,A1);% |1 @* ^" B- Y9 U
plot(A1,B1,'.',A1,f2,'-');/ }1 W/ b' R' A9 h
hold on;
% @1 W2 C' t. {title('白内障病人情况');
' C: i. N2 b. @# Oxlabel('白内障病人门诊时间距7月12日的时间差');ylabel('白内障病人平均/ `& i5 o( J4 \' Y$ M$ r1 x% H' m
等待时间');
0 c; g/ i! k9 e# saxis equal;
, b2 }- K* H+ x: W& A4 A+ B0 _+ R! BA2=[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
, a; j7 r4 }  A3 U. L- q- |) Q31 32 33 34 35 36 37 ];
# t6 P; ^2 |' |1 w+ V) 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% w/ N1 f' f' e
12 12 13.25 14 14 13 12 12 12.4 13.33 13 13 13 12];
  K  c8 y. a# {  I8 z, asubplot(1,2,2);
$ n+ q+ D2 L1 L: F0 M# s: @plot(A2,B2,'.-');
! a2 |% F0 t! U4 W$ K, G6 Vhold on;7 {' a' m/ c$ \( V& d
p3=polyfit(A2,B2,2)
' _# {2 Z, z; g2 Q+ Jf3=polyval(p3,A2);
. F& {. W# C) r6 [0 s1 E2 Tplot(A2,B2,'.',A2,f3,'-');& R/ y0 R5 Z* S" t# i- G, m9 m
hold on;
3 Y9 t, B" S; j3 T) K1 \; p3 l$ Ptitle('白内障双眼病人情况');
- t' p$ ^% t3 O' E( c: m0 `- mxlabel('白内障双眼病人门诊时间距7月12日的时间差');ylabel('白内障双眼  T2 y0 m, _& r6 B6 L% u1 N
病人平均等待时间');2 j2 V8 R: o' ?3 r+ a9 F; r
axis equal;
# a% P7 V( H/ I# E5 l. j2 `& Nfigure(3);
' f9 j2 q" P! Z& q% l# YA3=[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) C2 L+ T; Y  @$ w' H0 `0 x
28 29 30 31 32 33 34 35 36 37 38 ];
+ n/ r- Z' f' iB3=[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
/ F; x( P) ~) K& m9 q11.67 12 12.25 12 11 11.75 13 14 14 13 12 12 12.33 13 13 13 12.5 12 12];
* R3 o2 ?' E1 F6 j4 tsubplot(2,2,1);
: ?0 V2 B; q7 M9 ?1 `4 Eplot(A3,B3,'.-');
* J' k" M4 c, F+ yhold on;2 V  Z/ j5 j& |5 y" T! l
p4=polyfit(A3,B3,2)
+ B4 K* e8 t$ U9 ?f4=polyval(p4,A3);
. p/ E" y9 @4 z% s7 F3 fplot(A3,B3,'.',A3,f4,'-');
4 j4 b4 L8 h7 X+ M, B7 Khold on;5 r6 \. m. [' n! g
title('视网膜病人情况');+ N$ r5 r9 a4 ^6 K0 S, ~
xlabel('门诊时间距7 月12 日的时间差');ylabel('视网膜病人平均等待时间2 o1 a1 n4 v3 z8 `" f' G0 Y, B, l
');- U: f. }2 b8 P" e. M
axis equal;& W$ {; ?7 F# b; h9 R
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
1 Y7 g! s1 a( |3 ?9 ?% V! Q37];! O- i3 v3 F7 m
B4=[12 13 12 12 12 12 13.5 13 13.5 14 13 12 12 11 10.25 12 11 11 15 15
' }# e, m( a  |13 12 12 13 13 12];; ^* A$ Q$ D3 }
subplot(2,2,2);1 P  [9 s2 ?, {2 P# S+ F
plot(A4,B4,'.-');+ z/ E4 l9 D; f9 C' i* [+ G; t2 ^+ D
hold on;3 F, \# U' L9 s  I4 k' l- k) a$ w$ x" t
p5=polyfit(A4,B4,2)
& |7 R  y( _' U- ~: H8 K" Xf5=polyval(p5,A4);
, o2 R% h; H# y. }7 Wplot(A4,B4,'.',A4,f5,'-');) x; G* r* t( B! K
hold on;
3 I! W( F- }' U7 W  ftitle('青光眼病人情况');! R- J& P9 N4 f  |
xlabel('门诊时间距7 月12日的时间差');ylabel('视网膜病人平均等待时间
5 v! V3 R9 b0 r');
3 O  H& W2 n& R$ Y# Qaxis equal;
* E" j8 ?( _. m& H: Y0 HA4=[1 2 3 4 5 6 7 10 11 12 14 15 16 17 19 20 22 24 26 27 29 30 32 33 340 ~0 \# o: `& R, h% Q% i
37];
( U9 K2 L, l( c8 i) ^B4=[12 13 12 12 12 12 13.5 13 13.5 14 13 12 12 11 10.25 12 11 11 15 155 v/ `8 V. J- ^+ B0 k+ n5 H
13 12 12 13 13 12];" g8 I* s! N5 s. r
subplot(2,2,2);
5 U) o/ D7 P; U! u2 ?plot(A4,B4,'.-');  E. X0 s9 \' L: f7 r7 F4 A7 G
hold on;) z# E0 a) \" [. [/ J  X! A  C
p5=polyfit(A4,B4,2)- q& g& g4 V8 G3 U" f3 y
f5=polyval(p5,A4);: v) V0 U& N0 b9 f
plot(A4,B4,'.',A4,f5,'-');
3 t- t0 P$ q" q  t4 L& Rhold on;
. _6 O2 ^7 _4 Y9 N6 P# _8 Ytitle('青光眼病人情况');+ h: K% c! U8 T
xlabel('门诊时间距7 月12 日的时间差');ylabel('青光眼病人平均等待时间: h: a! }  S/ J1 {4 G. [
');  P: v* V7 }& \" X
axis equal;
6 j" v$ I9 ?' [6 V' e) bA5=[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];( ]; U8 c5 Z" H
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];+ u! s* r. x" a8 x2 D' V6 N7 U
subplot(2,2,3);4 |& h! D! V' D" g+ M
plot(A5,B5,'.-');4 E4 ?6 }7 E% B7 G; m5 a1 H7 v
hold on;6 Y9 E! u9 k, i1 x: c6 v1 W
p6=polyfit(A5,B5,2)# r+ s: [8 \  e/ Z4 f+ H3 n
f6=polyval(p6,A5);
4 X% {7 v& R# b* w( A/ Splot(A5,B5,'.',A5,f6,'-');2 w# r- M8 c8 E
hold on;* J9 d+ w. d$ }5 [. N
title('外伤病人情况');! u+ B/ N" S& U' L9 P
xlabel('外伤病人门诊时间距离7月12日的时间差');ylabel('外伤病人平均等4 r3 d2 w& y5 _, ?$ Y
待时间');( C' v$ Q* m: F1 A
axis equal;0 L- u8 q2 S1 k/ w' s" x
二、层次分析法的一致性指标判定的matlab 实现:
  t  Y/ J8 M: \function H=ff(A)
$ I1 o% z& Y6 a% u( s$ G: B2 pt=eig(A)1 H0 k: K9 n/ Z3 [. A& X1 I" {
w=max(t)
2 @  o: ~0 O- r4 j* Xq=(w-4)/3/.9
; ?* e5 ~1 b, r" ks=[(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(
! l" R5 G' p' J9)+A(10)+A(11)+A(12)+A(13)+A(14)+A(15)+A(16))
' M" h1 \, E. k; E3 C* k& U/ g4 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)& f7 U) L$ C, w/ T) n1 A* w5 z8 X
+A(10)+A(11)+A(12)+A(13)+A(14)+A(15)+A(16))
' V) F1 T, F& h(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)
) A9 B) J0 P, j7 r: r; r+A(10)+A(11)+A(12)+A(13)+A(14)+A(15)+A(16))
) o' q3 L  N* L(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)
4 A  I& k0 O+ K# J: S& i2 M4 L+A(10)+A(11)+A(12)+A(13)+A(14)+A(15)+A(16))]* K! g2 l& X. r' ]; ^, Q

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

听众

3591

积分

逍遥游

  • 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

    听众

    3591

    积分

    逍遥游

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

    [LV.5]常住居民I

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

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

    群组Matlab讨论组

    群组数学建模

    群组小草的客厅

    群组2012数学一考研交流

    群组C 语言讨论组

    回复 迷途的羊 的帖子
    ( a  A( h& N, I+ z; j8 C
    + y$ p. R1 B6 i/ [是自己编的还用别人运行么……不过要是楼主自己编的……小弟就佩服死啦
    / T+ i2 h  u* {; Q   
    回复

    使用道具 举报

    紫辰 实名认证       

    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');
    5 u; `- g9 D* @& @在不同的地方运行上面一句要改成本地数据保存的路径的
    回复

    使用道具 举报

    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-4-10 13:01 , Processed in 0.445286 second(s), 107 queries .

    回顶部