matlab 基础视频教程

xxaxiuxluo

新人福利

xxaxiuxluo

已经没有了。。

J000

不错不错不错不错不错

张东波

大学时候数学建模用到的，现在还想看看

叫我阿杰

回复，学习

La_pluie

很好的资料，谢谢共享。

La_pluie

谢谢楼主共享。

Sphoie

先谢啦！！！！！！！！！！！！！！！！！！！！！！

haoxiaoxiao28

较新一篇         / 较旧一篇
分享
【Matlab技术】石油大学网络缴费方案投票分析器
+ C" N/ l2 Y8 Z3 a. [+ L0 i6 t 公开 2013-12-11 01:24 | (分类:默认分类)
; v6 n' H3 u7 c+ y/ q9 S6 Q* I5 w
' [) h& u1 f* ~7 X1 a9 G一、引言：http://webservice.cup.edu.cn/poll/papers/paper_6.html
7 _4 q# n5 C7 u% `. |; A- n
, O8 m' C7 ^8 ^9 {经调研，目前各高校普遍采取按流量计费策略来解决网络拥堵问题。实行按流量计费策略之后，能有效限制在线视频观看、视频文件下载等与正常学习、科研无关的网络活动，节约出口带宽的资源。

通过与部分老师、学生交流讨论，结合我校实际，形成以下网络计费改革方案在全校范围内公开投票，每种方案各有优缺点，请谨慎选择，谢谢合作。

/ s. b1 }4 }+ b; O4 w5 p3 S投票结束后，将向学校提交投票结果，最终由校长办公会来决策网络计费改革方案，信息技术中心做好技术准备后择机实施。
1 a0 k; D( N) m* \3 C
$ N4 e3 X& J. Z6 p* j5 I/ D本投票采取一人一票制；
  E, U" M4 G8 I: i% W# G, z
本投票设为单选，每人只限一个选项；

1 m6 i* @  }& ?, L8 R投票人需填写校园卡用户身份信息才能进行投票。如有疑问，请拨打电话89734964；

投票期限：2013-12-9至2013-12-13 16:00；

1、方案一：每户每月2G免费，超出部分按0.15分/M。月使用8G以内流量合适。

' u% x, g& L, n7 l2、方案二：每户每月10元包15G，超出部分按0.2分/M。月使用20G以内流量合适。

  g: T: A" ?2 i7 Q1 P, E3、方案三：纯按流量收费，0.1分/M。月使用20G以上流量合适。

+ v* P/ n0 s* S4、方案四：保持现状，包月不限流量，20元/月。网络拥堵现状无法解决。
4 T) F, B8 x* M* {7 ~, V5 B4 Z( n
二、分析：
. h) \/ [: v; F" I
+ b! d2 G, R* p7 N很多同学面对这4个方案，不知道那个适合自己，最后算是随便投一票，或者大部分人会投方案四，保持不变。这里写了简单的程序，帮助大家分析，选择投票。
6 ]* i* G% H# r: ]% k' S, ?

2 N8 e( ^: U. h/ z6 c. T# U6 Z
这个图自然是用matlab做出的，可以看出：

1、如果你每月使用量很小，小于7G，方案一花费最低；

9 n6 x! p5 Y% A& C& l2 }* C( U2、如果你的使用量在7-10G或者>20G，方案三不错的；

# c) M: K6 {, \3、方案二适合于月流量在10-20G之间的同学。

三、源码：http://pan.baidu.com/share/link? ... 0&uk=4212195192
4 b) I* ]  L/ d' W  p& F
8 q1 @) s! ~; v! {' H7 N1、main文件

clc,clear,close all
3 @- u% e8 b* u6 [# K1 {; lyourflow = input('请输入你每月的流量(0-100G):');
flow = linspace(0,100);
flow = flow';
n = length(flow);
cost = arrayfun(@(f)getcost(flow,f),(1:4)','UniformOutput',false);
4 W" m! Y) l) y4 l2 ^cost = cost';
cost = cell2mat(cost);
yourcost = interp1(flow,cost(:,1:3),yourflow);
' N0 c; f# i0 |3 @f = find(min(yourcost)==yourcost);
% C! t7 ^! P- I- I- z8 ]0 r) ich = ['您最适合方案',num2str(f)];
figure
h1 = plot(flow,cost,'LineWidth',1.5);
5 [" W2 M4 z4 ^# ih2 = line([yourflow yourflow],[0 180]);
set(h1(4),'LineStyle','--')
# t" U. Z3 V# x' bset(h2,'LineStyle','-.','LineWidth',1.5,'color','k')
& V- G. ?  D( Agrid on
box on
xlabel('flow / G')
; j, h. ~- E9 q$ eylabel('cost/ Y')
7 f. c  k, r) n: M) ?title('石油大学网络收费')
+ r5 B8 Q7 E9 V7 y- d, R, V. qht = text(yourflow,100,ch,'edgecolor','red','linestyle','-');
! u: I( k5 o- ^if yourflow>50
set(ht,'HorizontalAlignment','right')
6 s9 P0 O& q" N7 bend
2 X* n, H3 F8 B& e7 N# X" m
$ {9 z0 H  G  g. Hlegend('方案一','方案二','方案三','方案四','location','northwest')
: S, t) ^) A7 d5 x
6 G! V3 p) }; W: z( _2、getcost函数文件
4 Q3 M; Q1 ^  |# K# q4 H# f% R
function c = getcost(x,f)
8 k$ T8 c6 n% o) @4 s% d5 T- Kx = x(;
n = length(x);
# E  h3 m5 T% A% w" {& h; Zswitch f
6 g- f4 B% |% i' dcase 1
c = method1(x);
case 2
' z2 m  Z' Y4 k% fc = method2(x);
) B2 X* g& F+ Y! j0 o5 k7 m& ycase 3
c = method3(x);
1 {0 W' E1 h2 q& h# r8 ~case 4
1 d7 V; |6 \4 h% Q( D$ O# o) Lc = method4;
: c. b6 k# c, E/ E( \2 }otherwise
: G$ _; s( [+ g9 X- z+ \error('no this method')
end
$ v! g5 q. y7 {/ b& H; J
: Q6 J5 J( u4 |function y = method1(x)
. k9 e- \$ a& Q" ?; Zy = zeros(n,1);
y(x>2) = 1.5*(x(x>2)-2);
# n  Q2 x$ G, D+ l% Zend
: C5 f- O' b  Z& k7 _! Y/ C2 _  {function y = method2(x)
" S# j( a  i7 |y = zeros(n,1)+10;
y(x>15) = 10 + 2*(x(x>15)-15);
3 Z$ ]8 ~1 H8 H9 Mend
$ K  p! G1 R1 N4 @: ifunction y = method3(x)
( r9 f! ~% m% xy = x;
0 e% n! x; Y- t5 Iend
" |; q; J7 g/ i1 e4 N/ T0 T8 afunction y = method4
y = 20+zeros(n,1);
1 B7 S. ^( i4 R5 F8 X8 Yend
end
1 T& U- I; ]' [$ o. N

HUAciscoWEI

应该好不错，渴望拥有的