- 在线时间
- 0 小时
- 最后登录
- 2010-11-19
- 注册时间
- 2010-7-31
- 听众数
- 4
- 收听数
- 0
- 能力
- 0 分
- 体力
- 10 点
- 威望
- 0 点
- 阅读权限
- 20
- 积分
- 23
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 42
- 主题
- 5
- 精华
- 0
- 分享
- 0
- 好友
- 0
升级   18.95% 该用户从未签到
 群组: 华南理工大学 |
一、使用曲线拟合模拟病人等待时间的模拟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
|
zan
|