- 在线时间
- 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 P+ d/ ]- K' [" h. y; m2 f3 d3 X
较新一篇 / 较旧一篇
" F* l* [7 ~& k! F; z: O' p9 M/ q分享
4 A d- B/ b$ K【Matlab技术】石油大学网络缴费方案投票分析器8 A8 o$ g% R1 L! i2 B! z
公开 2013-12-11 01:24 | (分类:默认分类)7 y6 y( Q! W5 P- I
" b5 C$ q: t' {# ]2 u一、引言:http://webservice.cup.edu.cn/poll/papers/paper_6.html
) N) }$ b4 V, `# e$ [, F* r& b
经调研,目前各高校普遍采取按流量计费策略来解决网络拥堵问题。实行按流量计费策略之后,能有效限制在线视频观看、视频文件下载等与正常学习、科研无关的网络活动,节约出口带宽的资源。% c5 q9 G. R/ b X9 }5 K
3 N% }& T0 D" b7 |' J* d通过与部分老师、学生交流讨论,结合我校实际,形成以下网络计费改革方案在全校范围内公开投票,每种方案各有优缺点,请谨慎选择,谢谢合作。9 H& r! w3 `4 C4 W
r) Y" H- X" }# f2 ?0 j; |4 n4 @
投票结束后,将向学校提交投票结果,最终由校长办公会来决策网络计费改革方案,信息技术中心做好技术准备后择机实施。& o% d$ i/ e+ I+ H( F
+ S& p$ v8 r d3 j# d7 K
本投票采取一人一票制;
2 M; S9 h6 g( O. s2 T ^. K/ J) h) d; e$ M S
本投票设为单选,每人只限一个选项;9 m7 e! _, n7 e$ R
4 Y: d/ F+ a: Z4 l7 P9 y y ?投票人需填写校园卡用户身份信息才能进行投票。如有疑问,请拨打电话89734964;
% i; b' `! `! O3 g& @* n; }" x' u8 _7 L% J& v
投票期限:2013-12-9至2013-12-13 16:00;
; Q8 f2 ~4 S3 |: k6 b; ^- P {+ k' M3 b: O( t
1、方案一:每户每月2G免费,超出部分按0.15分/M。月使用8G以内流量合适。1 M1 Y1 Z2 V- G; p/ Q/ y
# K2 w* V9 J0 w7 B% G. E, J# h
2、方案二:每户每月10元包15G,超出部分按0.2分/M。月使用20G以内流量合适。1 X' p3 d1 ]$ V) ^% `
t' G: @2 t- }6 R5 e3、方案三:纯按流量收费,0.1分/M。月使用20G以上流量合适。
! Q/ ^$ Q N2 B7 |+ n1 V
9 ?+ N1 E1 u- e7 V9 B4、方案四:保持现状,包月不限流量,20元/月。网络拥堵现状无法解决。
4 y4 V8 W8 G } l* h* l" O2 z6 [! z
6 u: J5 H. Z4 {: p: T二、分析:
! \8 U' p' W8 |! W0 h7 S3 _" n
! f: D8 B: F9 L- N很多同学面对这4个方案,不知道那个适合自己,最后算是随便投一票,或者大部分人会投方案四,保持不变。这里写了简单的程序,帮助大家分析,选择投票。
) U/ q" ?: E6 x
8 j, e( D: m. K5 p' D, t4 P p2 ?! S% r; L0 J, s8 v
* }6 m4 h! g3 V) o+ _这个图自然是用matlab做出的,可以看出:4 _% u, a3 F) g* V0 q' s, N3 A
4 Q2 R2 X$ ^8 z7 U% \- l! H
1、如果你每月使用量很小,小于7G,方案一花费最低;
9 K n. P: q+ U/ Z
2 Z- F5 [- A: ~, i# _+ e# }5 |2、如果你的使用量在7-10G或者>20G,方案三不错的;7 n9 P& D3 u$ M3 J1 h3 H& t# {- N, J
; D1 ]( r6 s6 o8 U# P! _- A: Q- r
3、方案二适合于月流量在10-20G之间的同学。
g% A6 ]" e/ {$ K0 g$ K
2 T5 o j- s+ k! u1 [, f三、源码:http://pan.baidu.com/share/link? ... 0&uk=4212195192
/ B v4 b4 N! I4 p4 ~8 U
& d% y. @5 i ` E. e. t7 \6 k1、main文件- ^- Z0 G4 X: f3 `& @3 O4 H2 Y
' {* ?0 a) J- \: {2 G
clc,clear,close all" Z. J( y8 z* X% T& Y
yourflow = input('请输入你每月的流量(0-100G):');" S" J1 W' Q1 u
flow = linspace(0,100);2 `. T" P6 O7 k! [- B8 B
flow = flow';
* \2 f# ^0 e1 }! @# W& Zn = length(flow);! l( G7 h' u5 N% M, \) e
cost = arrayfun(@(f)getcost(flow,f),(1:4)','UniformOutput',false);
; `8 m1 s7 W; m+ B$ k! }+ m/ ~cost = cost';) P* `8 y8 f- `$ ]: `) p3 j+ n
cost = cell2mat(cost);
+ J& E# r$ G2 Pyourcost = interp1(flow,cost(:,1:3),yourflow);
3 C/ }9 G1 i7 C& b8 f tf = find(min(yourcost)==yourcost);5 e3 y5 T+ q& L9 i8 h& e: g
ch = ['您最适合方案',num2str(f)];1 s3 n1 Z* d7 C8 O
figure
5 s! I: u- [& u0 E) A$ ?, m0 xh1 = plot(flow,cost,'LineWidth',1.5);
# F; @, V5 X/ Q0 O6 Xh2 = line([yourflow yourflow],[0 180]);
% ^) _0 j* |* h0 Y& }& D& |" i- z* eset(h1(4),'LineStyle','--')3 @# G9 _ a6 q1 {
set(h2,'LineStyle','-.','LineWidth',1.5,'color','k')
( A) w \% K- S1 L3 n8 m0 pgrid on/ \+ o: O' V2 X+ M# N7 E1 E
box on
" U# L" Z" F, K$ ?( I1 Bxlabel('flow / G')
9 Y, o" D" Q. v, I5 ~ylabel('cost/ Y')
9 s: ^, n' f1 a4 }( T5 k5 l5 m* f, ~: Ititle('石油大学网络收费')5 c4 i# d8 W; ?- i5 o
ht = text(yourflow,100,ch,'edgecolor','red','linestyle','-');6 g" R& A3 r' c, d, g$ m# h; j. v' C3 Y
if yourflow>50
) m5 z0 ?1 E) [8 X* K- Dset(ht,'HorizontalAlignment','right')
0 g6 K n1 p# Aend
" \# u. B9 t, z% }6 Y9 l0 S; A7 ~8 ^( }6 x3 B) B
legend('方案一','方案二','方案三','方案四','location','northwest')/ e: c u9 g& w( ]( v" z
. t" l, ~- {$ ?
2、getcost函数文件
6 e# e8 ^" N" E; m9 H
3 M3 O) Y* J9 E( v* I" N7 Xfunction c = getcost(x,f)
' O7 |1 ? I# w% u) x9 V. m) l( T3 px = x( ;
, [5 |+ U& ^6 L) b. _n = length(x);/ k/ B% r m% E, H, y
switch f- Z) M; R! ^3 v' j9 F8 J, v
case 1
) E9 x7 E# ^% S/ B# z- d5 Rc = method1(x);
5 x7 f9 M. a4 T# w3 L0 D. C$ }6 Scase 2
) T' M; d4 {7 j0 D0 n( Uc = method2(x);
& ^' J8 h" w' z' P! gcase 3' f" {+ G, W( E+ W2 ?8 p
c = method3(x);
% `9 N: B' m9 P3 \5 ycase 4
* |% p8 b0 f, z7 R) U' g+ nc = method4;
+ `, X6 a/ w: Q9 l' ]0 V1 _1 botherwise) c" `! |' T H6 r1 s) r! `
error('no this method')8 H% L1 s) L+ j1 ]6 v x. I
end3 ]5 m( b% {5 D. _, Y, p9 p2 }8 \
5 G) z! T! R5 o' f. K( g& r
function y = method1(x)4 u9 |0 _0 B; R8 y7 I, w& F. `
y = zeros(n,1);
! b% H( W% g a$ F! ^+ Hy(x>2) = 1.5*(x(x>2)-2);
( d7 e. B( S* l. x. h! oend$ o& |, E, q2 H- H
function y = method2(x)
/ h/ S4 e' n0 ly = zeros(n,1)+10;1 N( a# B# h" E" \
y(x>15) = 10 + 2*(x(x>15)-15);
& @$ T" s* \' M& F) Uend! t; y) @2 i9 W4 ~6 T
function y = method3(x)% ^, P$ t. u( t5 J* q) p. T
y = x;& T; z) ]) g0 G: A* ^& j
end
, U' m' B4 e# j0 r2 X Afunction y = method4
" Q8 Q: _ Z0 Qy = 20+zeros(n,1);
3 G F, I P, W% E1 h" ~end
2 n3 q9 H! t' g2 ]2 U- u" Dend: L$ T& A( J) K; A+ J2 H/ S
|
|