- 在线时间
- 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
国际赛参赛者
|
5 z0 U* I- ]) _: S* P较新一篇 / 较旧一篇
5 A9 @; S8 t& ]6 B* K0 g分享8 J5 q6 [; c. I( Z
【Matlab技术】石油大学网络缴费方案投票分析器
. D8 y7 a2 O; k( \3 O- z 公开 2013-12-11 01:24 | (分类:默认分类)9 H" M: A3 z. l2 C' j* {
8 r+ _+ G" E+ `) j一、引言:http://webservice.cup.edu.cn/poll/papers/paper_6.html
3 t u* t p$ d8 a/ X" \9 |
* v: ` ]' P2 C) {经调研,目前各高校普遍采取按流量计费策略来解决网络拥堵问题。实行按流量计费策略之后,能有效限制在线视频观看、视频文件下载等与正常学习、科研无关的网络活动,节约出口带宽的资源。5 z- i3 s, W1 J! r
' V. P' H# M+ G! P9 W# G% d
通过与部分老师、学生交流讨论,结合我校实际,形成以下网络计费改革方案在全校范围内公开投票,每种方案各有优缺点,请谨慎选择,谢谢合作。4 j3 ]. w( N' M$ u. O9 o5 @
/ b+ P4 @/ t9 ^投票结束后,将向学校提交投票结果,最终由校长办公会来决策网络计费改革方案,信息技术中心做好技术准备后择机实施。
! N6 H! q- {9 p" t3 |" F0 A1 n6 ?& l" P. r! ~, c5 z
本投票采取一人一票制;9 E/ a) s0 _# m; F) [4 V" f5 ^
- ]( P' E) _5 W) u& A8 }( M1 Z# l本投票设为单选,每人只限一个选项;
- y8 _) ^1 w& ?, P. l+ \8 H) U7 E* q: y; ?# `; C' B3 ` E7 k9 c
投票人需填写校园卡用户身份信息才能进行投票。如有疑问,请拨打电话89734964;
& @: ?% A8 |# \) A2 [( y) J0 K* _- Y7 E
投票期限:2013-12-9至2013-12-13 16:00;' y O' H0 [, m8 s
S; {7 p2 ` O2 x) v8 U* M
1、方案一:每户每月2G免费,超出部分按0.15分/M。月使用8G以内流量合适。2 Y7 j% U G) Q; |6 `: g) p2 Z
7 a& d: r% z3 e; F: B5 |- N
2、方案二:每户每月10元包15G,超出部分按0.2分/M。月使用20G以内流量合适。
" i7 _0 s" O7 Z; ~, q
, b0 D- n9 l. D7 h$ q' L% k3、方案三:纯按流量收费,0.1分/M。月使用20G以上流量合适。
; T% Q& {: K1 Q2 [
8 K& g7 \: s6 c3 i6 F& K4、方案四:保持现状,包月不限流量,20元/月。网络拥堵现状无法解决。
\; \% l1 M" j U% A/ \; T2 w e: T2 B/ V( t, s, n
二、分析:0 Y l" b; S9 K3 ^9 D
& T$ N7 G* E& M5 u很多同学面对这4个方案,不知道那个适合自己,最后算是随便投一票,或者大部分人会投方案四,保持不变。这里写了简单的程序,帮助大家分析,选择投票。
6 ?6 W9 p% k( u0 O: P; o3 `. p5 |
$ R: y" B7 A' {' D! d7 H7 m
# T$ T9 O5 ~" s( k( J0 z- o# n3 |& q: Z* N- u: M* {# D
这个图自然是用matlab做出的,可以看出:. ~2 [4 ~, h8 ~' B7 m! g, Q
$ K Y9 V' ]" \% I) ?4 ]
1、如果你每月使用量很小,小于7G,方案一花费最低;0 J4 \6 G' f' T ?
9 j0 c& T! t5 x
2、如果你的使用量在7-10G或者>20G,方案三不错的;
# y B' O! K7 Y% I# [
, I9 e1 }% P4 O% h7 f; e3、方案二适合于月流量在10-20G之间的同学。
) k" P, c) h& d: |' s* H7 ]; O7 {* e: ]* s
三、源码:http://pan.baidu.com/share/link? ... 0&uk=4212195192/ y+ [( \. ~3 l3 ]( u
0 R3 N( z+ @; U# W' P; z" y& z6 P1、main文件" R& P: X" i% o
0 y, b# Y5 x# t9 mclc,clear,close all
8 S# \6 r2 a+ i2 j: M/ w4 ~yourflow = input('请输入你每月的流量(0-100G):');, _( r' U \+ S- G
flow = linspace(0,100);
& N$ n/ W# R+ F+ n5 x0 ?4 Gflow = flow';+ X$ ]3 o* r2 J: t
n = length(flow);2 a- S U6 G$ y% B9 m
cost = arrayfun(@(f)getcost(flow,f),(1:4)','UniformOutput',false);
& V# R2 y J+ }% f$ Y3 K# s mcost = cost';
" u1 F! l( D9 H8 K x+ Ycost = cell2mat(cost);0 r9 |$ a9 O; Q! r, z& g" \3 V
yourcost = interp1(flow,cost(:,1:3),yourflow);
# K4 u5 i. T7 S3 Ff = find(min(yourcost)==yourcost);$ ^( L6 W, z- r" x X
ch = ['您最适合方案',num2str(f)];
$ w/ ` c3 t S4 F) g3 V" [* e, ^figure
( q" V4 E$ ]% v0 K$ H! gh1 = plot(flow,cost,'LineWidth',1.5);$ \0 D6 I- ?6 m8 E: c
h2 = line([yourflow yourflow],[0 180]);
" g5 Q2 h( z) h- g) jset(h1(4),'LineStyle','--') x, ~. q, W% i# i* c; ]
set(h2,'LineStyle','-.','LineWidth',1.5,'color','k')9 G' Y T* f5 }- x6 j- Z- Z
grid on* T: [" L: B |/ i$ O Z+ q. e
box on
7 r6 q: \* d6 Z4 D' E3 Gxlabel('flow / G')
7 Y0 b r0 I0 {ylabel('cost/ Y')
; I( D- o1 M2 K0 k1 |title('石油大学网络收费'): y' w( x: s: V9 D* S# R
ht = text(yourflow,100,ch,'edgecolor','red','linestyle','-');9 y4 j: V1 I7 K' T, ^3 y) t
if yourflow>50/ {5 X& \. @8 e, t
set(ht,'HorizontalAlignment','right')
8 e" j6 j' G# O$ H' [% Yend/ R' r i/ J. \6 N
7 s/ ]+ L) b- J0 T. Tlegend('方案一','方案二','方案三','方案四','location','northwest')* Q- v- R2 K( R! f: q
5 x; Y* G$ t9 j0 V* Z2、getcost函数文件
+ s$ u, _' A/ ?- |7 R: ]! b0 F i9 ?7 d% v
function c = getcost(x,f)( Y: y/ Y. P- o5 r( P! W& i
x = x( ;
2 G( F. y* `8 }n = length(x);# B2 M( u7 u( n, y
switch f4 y0 ^- `5 \% T2 f
case 10 f3 X/ }) V2 n. h# k
c = method1(x);1 E$ J9 \5 a" d" o" p8 X( R6 S% p
case 2
! u5 \. B: M! ]% dc = method2(x); ^: O2 ] \% f
case 3$ j$ @7 n* J+ ]. l9 T7 v8 ^
c = method3(x);
( M. S) q" K/ e( A. D; f0 h6 mcase 42 M Z- t5 E F6 d4 W
c = method4;4 G* d! D2 L: n8 [" I! a
otherwise* D: ]& k( ]; F9 M' ^3 J$ V0 K( a
error('no this method')0 C+ H1 k: D0 f2 o3 h; T; B
end
9 m p4 T7 ~5 P9 W" f( C4 ~0 ?6 M! [1 {9 K* g5 {! n3 Z8 o2 ^
function y = method1(x)
1 a2 X$ a) N& l: ~9 s wy = zeros(n,1);
. ^4 }& B5 x7 x' n, x! Z8 ly(x>2) = 1.5*(x(x>2)-2);4 J7 c& E" R$ J
end
# G, Q9 b$ O: G U, C* g8 z3 E3 _$ cfunction y = method2(x)
% V1 e" A5 x, O, W% m! Ey = zeros(n,1)+10;
3 Y. e% W r" e8 B" E$ ly(x>15) = 10 + 2*(x(x>15)-15);5 e/ E T! k) m+ @7 V2 z+ O
end2 y9 D0 c- l7 h
function y = method3(x)
9 P6 D4 i; [, \& b5 I- Sy = x;
v0 I5 O2 L3 \3 N3 O0 y5 Wend* g9 X) ] Z" R, W1 I' [
function y = method40 `# @1 s/ r6 @( B' Q. {
y = 20+zeros(n,1);) @3 P8 _) ^$ H9 Z" F
end4 Y3 I/ Z% ^7 a8 p" I% [
end* \; ?( ?2 g' B: `
|
|