- 在线时间
- 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 {9 j" a' z6 N6 P, `8 |" @# O. \5 x) G
较新一篇 / 较旧一篇$ h. _1 U" k( C" P; E
分享5 u5 `+ A4 ~) R
【Matlab技术】石油大学网络缴费方案投票分析器" T. V5 E+ g! u
公开 2013-12-11 01:24 | (分类:默认分类)
~6 j( Y6 T' E4 c7 Z- U( L& A+ R6 |: Q: v
一、引言:http://webservice.cup.edu.cn/poll/papers/paper_6.html
# E: t3 A- U/ P
% d# V: w- A2 g$ r" b2 Q2 t5 V: W经调研,目前各高校普遍采取按流量计费策略来解决网络拥堵问题。实行按流量计费策略之后,能有效限制在线视频观看、视频文件下载等与正常学习、科研无关的网络活动,节约出口带宽的资源。
8 ~# }- Z% W& V7 J0 _. Q" }$ i- o- [$ H
通过与部分老师、学生交流讨论,结合我校实际,形成以下网络计费改革方案在全校范围内公开投票,每种方案各有优缺点,请谨慎选择,谢谢合作。
0 O% x* {& e' t. c/ c6 I! L* z6 o
: x) b: @$ {- \0 b" y投票结束后,将向学校提交投票结果,最终由校长办公会来决策网络计费改革方案,信息技术中心做好技术准备后择机实施。' E0 H/ O) |* ^( B4 {
( p, q6 h. s1 u; X+ p本投票采取一人一票制;$ g4 w: h5 ~, L! Q) ?
" y$ ]2 z! M9 }. X7 l! H
本投票设为单选,每人只限一个选项;
6 _' q2 o: Z( f! q) y. u s0 R! e& \/ {1 u9 T# a% l: K" |
投票人需填写校园卡用户身份信息才能进行投票。如有疑问,请拨打电话89734964;& D2 z/ X6 Q3 ?- }
" Q0 N8 |* f- m# M2 J1 J% U- T
投票期限:2013-12-9至2013-12-13 16:00;8 k* e2 b" k7 V" q" m* c3 p3 ~
8 e/ [8 n' o6 T, v' a
1、方案一:每户每月2G免费,超出部分按0.15分/M。月使用8G以内流量合适。
8 ^4 r N5 F; E+ H+ A4 ?/ \ h5 a! b! T2 q6 ^/ m
2、方案二:每户每月10元包15G,超出部分按0.2分/M。月使用20G以内流量合适。
% D! y. k7 x8 X" [: c1 f- f8 e. k4 u$ c
3、方案三:纯按流量收费,0.1分/M。月使用20G以上流量合适。
" K/ M/ s4 p' T" E+ H4 O" U+ ~$ M) i% o5 e$ X& o
4、方案四:保持现状,包月不限流量,20元/月。网络拥堵现状无法解决。2 d ]6 j# D A
/ R% s, I4 X0 X$ I6 y& ~二、分析:
( ~1 E: X- X7 P5 d) V" k; F/ f2 u
) } P: h: L, T* v很多同学面对这4个方案,不知道那个适合自己,最后算是随便投一票,或者大部分人会投方案四,保持不变。这里写了简单的程序,帮助大家分析,选择投票。
2 ]# s1 ]9 |' {
8 E+ Q6 w9 t4 `' `: {" a% @' R
4 a* p/ x. w( u3 D$ h; p& h9 [+ [2 i3 F6 h$ S' I. l
这个图自然是用matlab做出的,可以看出:
! \/ E2 o5 ~; \1 @
2 }# P( M- g: o7 K3 P1、如果你每月使用量很小,小于7G,方案一花费最低;
% z* s5 U! x% b c+ J7 v6 g3 R# i5 I
2、如果你的使用量在7-10G或者>20G,方案三不错的;- j% z; b% }3 l: L' c# f( x
! F7 ]; d3 j) O5 V2 `( R% @3、方案二适合于月流量在10-20G之间的同学。
) ]- W$ |0 V5 \" G# g% ?1 B5 j/ w1 A3 ]1 a p
三、源码:http://pan.baidu.com/share/link? ... 0&uk=42121951928 u6 x- d) c8 s
/ @ J2 y! H3 m, `7 }7 s1、main文件% ?" I2 V" H: ~8 w+ y5 P$ T
: @( h8 ]$ Z- ^! M, {
clc,clear,close all
/ O- @& W6 o4 yyourflow = input('请输入你每月的流量(0-100G):');/ O- X) r: I$ X6 z) _
flow = linspace(0,100);
; ]* @. x' |" L7 N; V. s! u% d5 Lflow = flow';
3 v4 R2 [* k/ Tn = length(flow);
+ x4 y& ^6 j: g4 O* vcost = arrayfun(@(f)getcost(flow,f),(1:4)','UniformOutput',false);
" T* j* Q+ a4 b5 N: ?. k! P: r% Xcost = cost'; L1 K# B+ ~/ U8 J
cost = cell2mat(cost);
, X. }8 o# u9 |. r0 M* f' |) q7 Gyourcost = interp1(flow,cost(:,1:3),yourflow);
' A9 Q. S( E- o6 b! F5 Jf = find(min(yourcost)==yourcost);
$ t& B+ _. t- ~: {! A0 V1 Jch = ['您最适合方案',num2str(f)];
( c; H! c* r: d" T: q; I% u# \ cfigure
5 n4 V9 ^3 \* m8 X% ih1 = plot(flow,cost,'LineWidth',1.5);7 T7 s8 E7 @' p- P& @( r
h2 = line([yourflow yourflow],[0 180]);
- W6 x% U" l% Q% C L. Zset(h1(4),'LineStyle','--') a1 n2 S+ a/ s, h6 v* k
set(h2,'LineStyle','-.','LineWidth',1.5,'color','k')
* A3 U3 y3 o6 Y4 J6 Egrid on. b% B3 p6 M6 R! y' g# X
box on
; }1 o% z0 \& ?- D* }. Mxlabel('flow / G')
! I* k; D' X& O6 F9 \, y$ pylabel('cost/ Y')
: E' ]0 h: e4 m! n7 Ltitle('石油大学网络收费')
/ d& l) M5 h* j8 B$ G* }8 Cht = text(yourflow,100,ch,'edgecolor','red','linestyle','-');& ^; l( X; D; b3 v1 e9 e/ x7 ]
if yourflow>50# s1 M# d# u6 U) [2 f
set(ht,'HorizontalAlignment','right')* Q* S' A5 d( j6 A: e
end
3 v1 A/ R. x/ ^$ \5 v; Q
; D8 [+ d' a% l P7 |+ Slegend('方案一','方案二','方案三','方案四','location','northwest')3 u8 ?# J9 q) H: r
" |; k! o) a {. y: h4 J* S
2、getcost函数文件
2 B" r' P8 z* S: Y2 b y% }5 J
$ e0 T1 O: q4 H' H0 Kfunction c = getcost(x,f)9 k# \8 i( I0 ?) w' J6 _
x = x( ;# x9 r' j7 I1 ]/ f7 t `6 U
n = length(x);
5 Z0 W6 _7 a0 P& ]3 p. z' {switch f* F ^, V1 L; F7 g7 J
case 1
4 X3 D1 l' }. L# t5 ec = method1(x);9 G' L- t" m0 Y+ { m. \
case 2
% V8 N. i/ E% E3 ^c = method2(x);
& E* w, n- {5 q: ?, Pcase 35 a- y( @) r: v+ T8 J
c = method3(x);
7 O" ?4 |$ y5 K, L+ p% pcase 4
. }! Y+ o( a) z8 w" I$ Oc = method4;; E4 \7 t( l$ q
otherwise
: ^5 O' A- F7 p6 w4 ~. Uerror('no this method')5 e p( g! @, d6 s
end
* z9 a' c( o5 x6 M; _6 ~6 s" ?/ S: s) h% S, n( \
function y = method1(x)4 Y- Q6 ~; I- I* G( m8 z/ f
y = zeros(n,1);
! v) l8 n. G4 |4 `y(x>2) = 1.5*(x(x>2)-2);
: o4 c1 m; R# F, q! B! L% jend7 T0 v5 p8 ~& k+ T0 e
function y = method2(x): B+ @0 E; I1 r H0 w& B6 D
y = zeros(n,1)+10;
2 e$ j& a( S. N f9 j0 B, v+ {y(x>15) = 10 + 2*(x(x>15)-15);* F9 t& L$ J( o& P( ]5 U3 D
end% r& P3 v9 V9 c2 ^2 E
function y = method3(x)
' k5 c# l& ]- Ly = x;
: T: [$ m& k, [+ G& ?end
+ j4 X3 `3 t0 Z& z2 L, kfunction y = method4
: D, D+ v* _" h) s z- Fy = 20+zeros(n,1);
+ ^$ ^. D2 r9 rend# ?5 l8 W2 F" w7 l5 A# P9 B4 L6 J
end; h: U3 Z* W! K1 i, v! N% z
|
|