- 在线时间
- 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
国际赛参赛者
|
" C& Z& E2 R+ H) a$ x/ [3 j1 ?
较新一篇 / 较旧一篇
0 m& v1 B- J6 i" C分享/ [) u* U4 @- @1 b* r
【Matlab技术】石油大学网络缴费方案投票分析器
7 x; X. T9 R* A/ C8 e 公开 2013-12-11 01:24 | (分类:默认分类)
# c2 n) R8 X2 e0 k! ~( M
" x2 u" V) n" a) I6 }+ a一、引言:http://webservice.cup.edu.cn/poll/papers/paper_6.html9 R7 {# Q" j7 I; \3 u
, ~, O( d# a0 R K( S5 v经调研,目前各高校普遍采取按流量计费策略来解决网络拥堵问题。实行按流量计费策略之后,能有效限制在线视频观看、视频文件下载等与正常学习、科研无关的网络活动,节约出口带宽的资源。8 e2 Z7 r7 E2 v1 C3 G
0 D* ~/ u7 s( v8 B通过与部分老师、学生交流讨论,结合我校实际,形成以下网络计费改革方案在全校范围内公开投票,每种方案各有优缺点,请谨慎选择,谢谢合作。
, t' e, J5 W! M9 N p; B. I: ~: `( D4 M
投票结束后,将向学校提交投票结果,最终由校长办公会来决策网络计费改革方案,信息技术中心做好技术准备后择机实施。
8 h# d0 g. J. D8 i) J6 v+ p9 Y' z* J% e3 A! s( Z# T
本投票采取一人一票制;1 e- H, k6 M& s3 p4 l
, Y% J5 ~& R0 H7 q4 X7 @6 G4 N本投票设为单选,每人只限一个选项;8 Y; z x0 [, I' J
4 M8 K. |9 S5 U# j投票人需填写校园卡用户身份信息才能进行投票。如有疑问,请拨打电话89734964;' R5 H5 Z/ r% v
$ y# q( P6 F2 V- J
投票期限:2013-12-9至2013-12-13 16:00;
& D7 Z5 t) p2 V! C& D: R. D3 j
0 k2 N( g5 K/ H1 k: `1 G1、方案一:每户每月2G免费,超出部分按0.15分/M。月使用8G以内流量合适。
% J$ N4 W) i5 z) R7 Y2 k+ V/ Q) S% @$ X7 E
2、方案二:每户每月10元包15G,超出部分按0.2分/M。月使用20G以内流量合适。
" ^3 T! f8 U6 j* y7 N% U& {( v
/ B2 M* R/ D) i- K) Z3、方案三:纯按流量收费,0.1分/M。月使用20G以上流量合适。
# A0 H" k- t/ r8 ` g% h: v
& A7 ^9 }7 s5 _% d4、方案四:保持现状,包月不限流量,20元/月。网络拥堵现状无法解决。
- Q% c# U U% e1 \$ i
- U* s+ t/ @" H. f二、分析:; p- [# C. @/ J
: Z3 `9 ?5 D/ l, G' Z* k
很多同学面对这4个方案,不知道那个适合自己,最后算是随便投一票,或者大部分人会投方案四,保持不变。这里写了简单的程序,帮助大家分析,选择投票。, Q& p' M }1 P' k
) Q5 h& i' H4 j( P6 F# F+ H
$ b/ a5 g- h+ c" g. t* L( l5 a ^1 ?+ h: { H
这个图自然是用matlab做出的,可以看出:. P. r7 u9 C# q& z/ W" Q
$ f( S1 C1 z3 k& D% ~
1、如果你每月使用量很小,小于7G,方案一花费最低;( _0 ^5 @# U% X& R. w" H
. \% p/ L4 |* Z6 @& `$ k
2、如果你的使用量在7-10G或者>20G,方案三不错的;
1 ^. T3 P I& c* @- x
A7 X# ~) M) J) S$ q/ t6 [; `3、方案二适合于月流量在10-20G之间的同学。1 Q4 D! v ]; s4 B5 c
* z: T, ~0 Y0 G/ j. t三、源码:http://pan.baidu.com/share/link? ... 0&uk=42121951922 l: j" ]( o4 O* j: u: I) B
6 k+ u2 G& n- v0 G
1、main文件
3 J0 L v u# ^8 b, J) E7 c
* ]1 s: x. L8 `6 x2 X$ v% }( L7 [clc,clear,close all4 {" m3 o" Y$ H; N1 S- I; U
yourflow = input('请输入你每月的流量(0-100G):');$ k! o9 z! @/ r' q+ T. \4 Q
flow = linspace(0,100);
( J+ W% i! t6 C7 [! K* k! Qflow = flow';& W4 w6 N: V K- T6 Q+ \" e9 q
n = length(flow);
w4 c, H3 Y5 f$ N) ?cost = arrayfun(@(f)getcost(flow,f),(1:4)','UniformOutput',false);
! }1 w3 y* N" {/ s# hcost = cost';9 P4 G3 Z+ x! j( l* x
cost = cell2mat(cost);% h' _$ P3 i3 ?& y
yourcost = interp1(flow,cost(:,1:3),yourflow);' T# Y* t5 }4 a; J' o5 N7 B" ?
f = find(min(yourcost)==yourcost);7 @6 @8 x1 t; S$ ]9 \9 A3 i
ch = ['您最适合方案',num2str(f)];
X+ ~+ x: H+ f4 V8 I! v. Y7 u; n! C' hfigure
; i+ F) _: b5 W0 J6 k y3 uh1 = plot(flow,cost,'LineWidth',1.5);* ^) u7 {% b5 g$ ~1 j
h2 = line([yourflow yourflow],[0 180]);5 C3 t* \& S7 `9 L& |2 u
set(h1(4),'LineStyle','--')
; \! j& Q0 g/ _! E: d& G. uset(h2,'LineStyle','-.','LineWidth',1.5,'color','k')1 D" i/ |$ Q5 y( X0 h, @6 m
grid on( [6 V* w7 {0 P, c& I. ^
box on# ]9 @. I4 s& F
xlabel('flow / G'); J2 P: z8 p; n: H
ylabel('cost/ Y')9 X# B( g' ]) a
title('石油大学网络收费')5 q9 C3 X9 X6 Y- C+ J
ht = text(yourflow,100,ch,'edgecolor','red','linestyle','-');
9 ]% x" U" b7 ^if yourflow>50$ I+ W: x- O8 y% o* U- L% ?6 h3 z
set(ht,'HorizontalAlignment','right'); x* H3 T; ~* a5 Z, b
end$ G2 L+ C/ i) {+ G2 d
6 M7 f1 W$ g |legend('方案一','方案二','方案三','方案四','location','northwest')
6 i- T9 D! s. \! |- u9 ~3 {$ ?- h" a; T; @' |# `, V1 o9 b
2、getcost函数文件
# q# z( c8 r6 k9 P# R( n7 P$ c$ h' j* N5 z( e
function c = getcost(x,f)
' ]9 S( d8 y$ M3 a( U. R% h7 o2 `x = x( ;
6 _1 J/ w% Z6 \n = length(x);7 o) H( z: H0 @+ C
switch f; S- Q9 X0 a5 M8 [. S
case 14 P, U. X6 l! z" ^2 g) `2 z
c = method1(x);& u7 ^2 D6 ~. Z' y3 Y. s5 ~* I% E7 j8 G0 P
case 2# ?. q" A1 E" n- f
c = method2(x);2 |! L8 C5 s- C* |6 u& M' C
case 3
V' O9 W" `1 j0 T2 N- b$ xc = method3(x);
4 I- k5 v4 c1 v8 tcase 4, J2 Z( G7 G0 P& ~4 E, M. c5 B5 z/ ~
c = method4;
1 I1 _7 ^5 K* R6 L" Uotherwise& c9 z5 q( @$ Z$ v$ R# C( \
error('no this method')
# @7 Z1 g# O" u4 aend
- Z2 e+ U: C" o4 J7 Z [* H
6 _- A, @6 V7 _, j: [# U6 ofunction y = method1(x)
! [0 F7 p# V- j; J5 V. q( ly = zeros(n,1);
$ r; }6 i9 I; o$ n5 \! ky(x>2) = 1.5*(x(x>2)-2);9 Z; z/ s+ L; r) u# X' b$ a4 x6 H
end
$ Y# [! z5 G3 a4 H' cfunction y = method2(x)+ o) [& u1 i( v' P% C1 V
y = zeros(n,1)+10;/ L7 V4 [6 H$ ?
y(x>15) = 10 + 2*(x(x>15)-15);
& f, i8 m0 L" P4 p, S2 F+ s' cend1 m; V# @" R2 p- Z: y& ]* y
function y = method3(x)' F$ Z. b) K I
y = x;
" P( b- L; I h, ?end
8 j# R, ~; `, n$ W% E, \function y = method4
/ n# r* A3 C9 F) r# ?0 Ay = 20+zeros(n,1);1 U/ g0 s' C/ _6 @
end
4 ]8 z' b/ M/ w; x1 B" p3 Eend% Q6 O* W1 E2 U6 X
|
|