- 在线时间
- 42 小时
- 最后登录
- 2018-2-11
- 注册时间
- 2014-8-15
- 听众数
- 13
- 收听数
- 1
- 能力
- 0 分
- 体力
- 676 点
- 威望
- 0 点
- 阅读权限
- 40
- 积分
- 345
- 相册
- 0
- 日志
- 4
- 记录
- 3
- 帖子
- 275
- 主题
- 30
- 精华
- 0
- 分享
- 41
- 好友
- 10
升级   15% TA的每日心情 | 郁闷 2015-4-4 09:37 |
|---|
签到天数: 41 天 [LV.5]常住居民I
国际赛参赛者
|
7 H M1 n( n( d7 @* ^" O
较新一篇 / 较旧一篇; y$ i/ n' N+ t
分享* n: { N9 I4 c) ~3 q `
【Matlab技术】石油大学网络缴费方案投票分析器) x. R' M% k" T$ R) X/ U
公开 2013-12-11 01:24 | (分类:默认分类)
# b, Y2 ?7 Y6 I& N
& b0 ` o% w1 H7 ^9 L+ S( I一、引言:http://webservice.cup.edu.cn/poll/papers/paper_6.html
$ L/ G$ i) i. \+ S" J2 L2 w- P( O; D! P! {1 O, U0 D# o5 h
经调研,目前各高校普遍采取按流量计费策略来解决网络拥堵问题。实行按流量计费策略之后,能有效限制在线视频观看、视频文件下载等与正常学习、科研无关的网络活动,节约出口带宽的资源。3 H. c7 s: x" r+ H$ r# o& y
9 }/ ]* H- N. f- I3 x+ W/ C4 y
通过与部分老师、学生交流讨论,结合我校实际,形成以下网络计费改革方案在全校范围内公开投票,每种方案各有优缺点,请谨慎选择,谢谢合作。
5 M% O% _. k6 q$ z
* w) d# e7 T! L; `! }投票结束后,将向学校提交投票结果,最终由校长办公会来决策网络计费改革方案,信息技术中心做好技术准备后择机实施。
; t7 _2 J( I6 f4 v! D4 } \$ u" y5 f+ {, O
本投票采取一人一票制;
% Q' }; s' |2 i' N3 A8 }
: L6 N0 d# ]! W3 W9 }+ u! ?: m3 s; i本投票设为单选,每人只限一个选项;
* V9 P% }" O+ A" V, Y' P' H0 }% X: H3 P0 j( N; Q
投票人需填写校园卡用户身份信息才能进行投票。如有疑问,请拨打电话89734964;7 o$ @1 |. n/ p$ @; D
' v3 x1 [/ N% i
投票期限:2013-12-9至2013-12-13 16:00;1 V9 r _' q$ q q; F- y; o
; k1 w( y; A$ H( @. z
1、方案一:每户每月2G免费,超出部分按0.15分/M。月使用8G以内流量合适。
. V8 y5 ?& u# {: L1 O$ A
# F2 r, Y0 }- I' ]2、方案二:每户每月10元包15G,超出部分按0.2分/M。月使用20G以内流量合适。/ s W7 m3 e2 k
$ \7 L* A1 N0 ^# {& a+ d' r, [
3、方案三:纯按流量收费,0.1分/M。月使用20G以上流量合适。' S1 D( f" K1 M7 t8 o5 v- ^2 c( c) M
9 f6 @1 P. _! l( ^
4、方案四:保持现状,包月不限流量,20元/月。网络拥堵现状无法解决。8 D2 r! m) d% b1 C, h6 v Y
" d; y1 D; w+ T& Y: `6 ^; j7 u二、分析:
u+ s/ Q$ }: U3 [, f! [6 E& i* M. u4 x& H( Y2 x
很多同学面对这4个方案,不知道那个适合自己,最后算是随便投一票,或者大部分人会投方案四,保持不变。这里写了简单的程序,帮助大家分析,选择投票。7 L2 A9 B* w6 B/ g3 R
& G ~6 {9 E& Q' \9 {9 l$ B4 C j+ d2 @4 S
! t4 r6 q9 x. U7 d! i( E这个图自然是用matlab做出的,可以看出:6 B9 f. _' U3 L3 [0 [( ?% v! T
+ o, Y; k9 J \; p$ v) H
1、如果你每月使用量很小,小于7G,方案一花费最低;
& M4 E2 K8 F Q# _) m' _
( @8 |4 s4 k' r) q4 Y) k% b( P2、如果你的使用量在7-10G或者>20G,方案三不错的;
% q, @; T% m' K
! ~- J w5 ~$ {3、方案二适合于月流量在10-20G之间的同学。
, k/ e: u& m/ E( V, `8 W
( c1 s% N. D p" @' P' _ C三、源码:http://pan.baidu.com/share/link? ... 0&uk=4212195192
) N8 ]! o4 l) y4 d- L" T
+ O9 p( {# Z# k& B' V+ ]7 b2 a1、main文件% r. S' m0 h; x; u1 e1 v+ l
4 R5 D6 A9 y8 x% B3 y6 `: Gclc,clear,close all$ U% @# v* j$ L2 h4 [+ o" E( T
yourflow = input('请输入你每月的流量(0-100G):');
. o5 K5 ]& Z) j$ H6 Qflow = linspace(0,100);
# ?6 c/ G' T; @flow = flow';2 q! y' W( [2 \$ C; I8 B" l- B
n = length(flow);
, |- I ~0 }: t0 Gcost = arrayfun(@(f)getcost(flow,f),(1:4)','UniformOutput',false);
, F3 H$ v2 l k; Dcost = cost';
( Q, Z9 ^6 M9 |) K1 `2 P1 [cost = cell2mat(cost);
! z# A/ V y' Z& r! ?. m; g' D$ myourcost = interp1(flow,cost(:,1:3),yourflow);9 |5 |# N9 m3 S- V% L% j
f = find(min(yourcost)==yourcost);! ?' Y, A; |" q4 o: u9 ~
ch = ['您最适合方案',num2str(f)];
+ M2 H: A' @2 w6 Afigure
6 k, X1 f, d6 ~& X" |( m( Eh1 = plot(flow,cost,'LineWidth',1.5);4 |( V4 Q$ y; [- V9 K3 ~* k9 q
h2 = line([yourflow yourflow],[0 180]);
1 e2 V) `7 M- {5 iset(h1(4),'LineStyle','--')/ R7 f7 S0 n7 B. X7 W: a( B
set(h2,'LineStyle','-.','LineWidth',1.5,'color','k')! H9 c" j h5 I! D9 D! M" [
grid on$ e$ e+ I- ]5 k$ {3 y2 D6 a
box on+ _& c+ M# L" Y* ]
xlabel('flow / G')) T% J1 w. w7 I) Q+ l
ylabel('cost/ Y')/ ] q8 c3 R: J% t
title('石油大学网络收费')
/ ~* l- C5 Y% r! Y6 Jht = text(yourflow,100,ch,'edgecolor','red','linestyle','-');
7 T# D8 q+ P' i- j; e+ n/ O0 Vif yourflow>50, m2 [" L: C( w' i) h! v0 b
set(ht,'HorizontalAlignment','right')+ V* N E- g' Q' P1 ]+ b; P
end" Y1 N6 z0 p6 ^% I
2 V2 X) v( b7 w3 nlegend('方案一','方案二','方案三','方案四','location','northwest')
. C1 u# b% r$ W4 X* g. H, N& `5 Y6 C/ a: I, Q& ~
2、getcost函数文件! Z: r) t1 G7 e' p% }5 ~+ q" S# m6 V$ k. y
2 N) L/ O- x m4 s0 Gfunction c = getcost(x,f)
2 F" o( i7 M, X- _4 _9 Lx = x( ;
2 z! K4 a) h/ g6 ~: C! Q; F1 h! |! Vn = length(x);1 ~' [0 b- I1 N: u o
switch f
4 N/ D2 l4 {% `6 D. m: Rcase 1
+ T6 U/ u' T3 E7 D: }c = method1(x);" i' o! i8 K* V! S9 F( T) `/ c
case 2
( w2 L2 ?% D8 D& Qc = method2(x); g+ Y! ]6 h: l% p' {5 a
case 3! D& [8 a& ?- M; H+ h
c = method3(x);* w q3 g$ m" ^ F+ d+ w2 B
case 42 k1 o, N% U( D+ a1 N1 n
c = method4;7 [% k# Y T2 o3 c
otherwise+ m& H. C$ Y- _ q
error('no this method')
3 i* I( c' `; X5 h* T8 A3 Send
2 Z/ s& ?; D! u: [0 }3 j7 i
: O) G- ~! ~. s5 Q5 K( v( `$ afunction y = method1(x)
2 \. a7 \+ k2 Q G$ p# Yy = zeros(n,1);
* [' q( |+ }9 Z( I% O# b o. ?' @y(x>2) = 1.5*(x(x>2)-2);* o( }8 ?6 {% Y/ b' a
end% y- s( `0 H- ]. m0 ?
function y = method2(x)3 _7 p4 K( c# h; C u
y = zeros(n,1)+10;, X- e% x& O- N. U5 w, `2 G
y(x>15) = 10 + 2*(x(x>15)-15);
& K! R0 P& X) ?& {4 e: @end
: {) n T5 _- N; }5 S: dfunction y = method3(x)
# M& d, Z9 I: A* ^; P5 I. g, ty = x;* ]5 Y2 U; j2 t* R+ `" [/ A+ o
end
/ V( D8 u( n' k# t9 Z; Cfunction y = method4
* T/ x% U% X0 _+ k3 E) [ vy = 20+zeros(n,1);, ^" j$ f( e3 \, @! ^1 J9 M* C- X
end
( h* ~/ X0 d. {end
% \6 J2 Z9 t( V' u |
|