- 在线时间
- 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
国际赛参赛者
|
1 W+ ]8 _6 g& k较新一篇 / 较旧一篇
2 B" O& G6 t5 ~8 u分享/ j, M% u+ ?6 h8 m1 Z. y0 ?: |
【Matlab技术】石油大学网络缴费方案投票分析器- P) _ m. R% J% R0 o' t
公开 2013-12-11 01:24 | (分类:默认分类)
$ l7 x! E; N H/ n
3 X! P w# D" H$ X2 m# N+ P8 [一、引言:http://webservice.cup.edu.cn/poll/papers/paper_6.html
! p! M3 F/ X# j
9 n& Z- i1 ^' l" s9 N经调研,目前各高校普遍采取按流量计费策略来解决网络拥堵问题。实行按流量计费策略之后,能有效限制在线视频观看、视频文件下载等与正常学习、科研无关的网络活动,节约出口带宽的资源。' q& o" g) ?# M! _' L
. ^% D! n b2 ?4 @8 m) O* o% M9 f% h5 }通过与部分老师、学生交流讨论,结合我校实际,形成以下网络计费改革方案在全校范围内公开投票,每种方案各有优缺点,请谨慎选择,谢谢合作。7 y8 u1 _# t1 g
. f {: X. P, C% U( T0 I
投票结束后,将向学校提交投票结果,最终由校长办公会来决策网络计费改革方案,信息技术中心做好技术准备后择机实施。
, G; Q$ M* P9 R0 v. {, d+ X& w5 ~; w3 }
本投票采取一人一票制;
1 ~6 y# L; L, t# j
# I6 w ~7 E3 ?( P8 E本投票设为单选,每人只限一个选项;
$ \# {+ Q+ n* e
7 ? O8 b0 J1 v' A9 v3 U$ J& L投票人需填写校园卡用户身份信息才能进行投票。如有疑问,请拨打电话89734964;: ^8 s9 y' Z" `0 h
, o2 N$ N7 A/ I+ q8 W7 Y5 q投票期限:2013-12-9至2013-12-13 16:00;
3 k+ k( E+ [* n, U. O. T: C5 e! X
7 K) z: l9 S8 t1、方案一:每户每月2G免费,超出部分按0.15分/M。月使用8G以内流量合适。8 ?' z" w: n/ b/ K. ?$ _
7 e2 h: d4 C# E- _% d' q5 M2、方案二:每户每月10元包15G,超出部分按0.2分/M。月使用20G以内流量合适。" D' h1 ]4 ^8 e0 _7 p
/ g' X! w6 U! S d' |2 |- `$ V. j* e/ Q3、方案三:纯按流量收费,0.1分/M。月使用20G以上流量合适。& o$ \9 ?. M7 {$ s, x A" Q
* f$ ]0 U7 ]; J u: O0 ~7 R, P
4、方案四:保持现状,包月不限流量,20元/月。网络拥堵现状无法解决。/ m$ _6 V/ t5 Q9 M2 t8 B
g0 U7 Y3 \+ _) b( D0 X二、分析:
/ g$ T2 t) z( Y# A; ]6 ?7 k: [$ x8 k5 A" Z, q- V5 M
很多同学面对这4个方案,不知道那个适合自己,最后算是随便投一票,或者大部分人会投方案四,保持不变。这里写了简单的程序,帮助大家分析,选择投票。6 U) B, K, J! { n* @
3 d- x9 G. Z) U
% v( b9 R6 E: J7 N6 y
4 \/ P( m' V: [) g) @7 W
这个图自然是用matlab做出的,可以看出:- T8 _* M4 |% G. |2 m
: a5 m' {4 q8 y) I# p
1、如果你每月使用量很小,小于7G,方案一花费最低;
2 r% P c& ^: J, f, J/ p9 ^: B9 c4 ~' g* X: @
2、如果你的使用量在7-10G或者>20G,方案三不错的;* v, ^& Y( W7 H6 T
J) @. n. |) a4 q# g3 O7 \4 D, L3、方案二适合于月流量在10-20G之间的同学。4 n2 j+ V. F( S0 }9 `' i8 j5 v
* f% H/ O" o3 \# B% `( ~0 Q: w三、源码:http://pan.baidu.com/share/link? ... 0&uk=4212195192
1 i6 M. c8 i' n8 d& p1 S; _: w& L
3 F% b' Y: R7 M/ Z1、main文件
' a% @# r0 j: C( m3 t
: O* o6 { g( Bclc,clear,close all2 p' H& Q0 i1 W
yourflow = input('请输入你每月的流量(0-100G):');
, o9 |# V3 F( N+ E( sflow = linspace(0,100);
2 Y' P- Y7 S5 w) e" f* a8 {2 Gflow = flow';9 [' l0 N- }* N% j; I8 `
n = length(flow);+ m& }0 X5 G( X% e A7 T
cost = arrayfun(@(f)getcost(flow,f),(1:4)','UniformOutput',false);/ B1 Z0 p( _, j+ Y* A) L
cost = cost';
, Q. v$ v1 m4 Y% Icost = cell2mat(cost);- W. f" d$ E2 b# q
yourcost = interp1(flow,cost(:,1:3),yourflow);
" B; o( Z+ D; l; d' B, of = find(min(yourcost)==yourcost);
# v0 L' b) ?6 f3 m6 i# vch = ['您最适合方案',num2str(f)];( ^2 i; S/ |: N |( U
figure
/ X( Y, d7 Q) n* G) T5 N; Hh1 = plot(flow,cost,'LineWidth',1.5);" l3 E2 }, b1 \: a
h2 = line([yourflow yourflow],[0 180]); \1 r" x. F2 q- G8 R4 w2 D3 m
set(h1(4),'LineStyle','--')
9 C, d1 G# O3 _' @8 Z) mset(h2,'LineStyle','-.','LineWidth',1.5,'color','k')6 b4 H2 u0 G9 J; ?
grid on3 o5 i; u5 j0 b+ e0 L
box on1 X: U$ V# r7 u! H" C8 b2 G K
xlabel('flow / G')
! ~" T! w# Y0 v8 H8 L; Q. Lylabel('cost/ Y')7 A2 ~3 @& A8 k0 @0 S4 x
title('石油大学网络收费')
( p7 |( c& n4 a3 s3 W) B' T2 sht = text(yourflow,100,ch,'edgecolor','red','linestyle','-');
+ V! Q1 Q. x X& pif yourflow>503 ] D" a7 J, m* z$ X
set(ht,'HorizontalAlignment','right')
5 S( ]0 X: u/ }1 tend
! B9 p& Z! |0 T8 A0 Q$ _* y9 P: I) K
legend('方案一','方案二','方案三','方案四','location','northwest')
7 ?; l8 c- [9 k% w. h$ g( @- C
3 C9 |/ e @7 ?1 _1 f x2、getcost函数文件9 c$ }8 Z" k7 v# J; p4 b
& e7 ~" e" @6 G1 G4 Z$ D1 X, G/ E
function c = getcost(x,f)
+ [8 v, O& |/ |6 ox = x( ;6 R( _/ Z2 J5 L/ W
n = length(x);/ M! L( a% C+ ]8 `
switch f
2 z0 E8 Y# N% n3 ^/ ^' p$ ucase 1
0 S# d( b0 n( V, q3 H" z' [$ R0 `c = method1(x);
: Z3 i }" Q4 s* S. J- scase 2" A7 {5 [1 ~ r8 {
c = method2(x);
7 t; q3 D( D1 @' U9 Zcase 3
$ z( j6 y" }; O) Pc = method3(x);0 }, x3 l" L$ ^! h
case 4
; \; G" z9 f" r9 d1 sc = method4;
: ~( f- O9 W. v w- |- T5 Motherwise
5 n1 p) o3 Q, Merror('no this method'); g4 p1 u3 l8 q' M6 u
end5 w$ S6 h) }# c5 F e
3 G& E- Y! ?4 F; ^+ Sfunction y = method1(x)8 o. Z2 B4 W8 p$ R6 m" Z, F4 o
y = zeros(n,1);
" n% V# Z. C0 i. }& w! }1 V h2 Gy(x>2) = 1.5*(x(x>2)-2);/ f; S3 J6 z" R# M2 f5 d
end
% H1 l2 } i+ Wfunction y = method2(x)% M: m* H, G4 [8 i4 l6 F/ T6 f* U7 Y
y = zeros(n,1)+10;! ~6 p9 {7 t1 ^% A$ x' o& K- o* v
y(x>15) = 10 + 2*(x(x>15)-15);$ N4 `/ x3 a7 e/ e5 \( B
end6 H# `4 Q4 | A2 F) D+ E
function y = method3(x)' F4 p7 s. ?( x2 G! J+ E
y = x;
0 ^/ c* D/ S @2 T; qend9 E: u6 l. C& w4 M4 ]5 A. p
function y = method4
, g4 Q# a& ^9 D( by = 20+zeros(n,1);$ C( ` S& @. R0 y! k3 w
end
8 V- J% n- k& }9 q) b# x; b* ]3 e+ {end- \: q5 ]# `; h# Q9 S# _
|
|