- 在线时间
- 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
国际赛参赛者
|
. f& C' g+ t# b! I较新一篇 / 较旧一篇
0 A- a' z' _& C. X! d7 ?% V分享
3 V9 o( [" H8 C/ d" ^+ {7 X5 C【Matlab技术】石油大学网络缴费方案投票分析器7 u' t+ g/ ?1 r( M' G8 I
公开 2013-12-11 01:24 | (分类:默认分类)* x8 s4 n2 ?9 J+ Z$ @2 i
4 Z/ U7 X7 z; Y+ s/ J
一、引言:http://webservice.cup.edu.cn/poll/papers/paper_6.html
5 P6 _. m7 v8 o) }4 u2 w' _: X% u/ B
+ @4 L z \! u: K( R( ~经调研,目前各高校普遍采取按流量计费策略来解决网络拥堵问题。实行按流量计费策略之后,能有效限制在线视频观看、视频文件下载等与正常学习、科研无关的网络活动,节约出口带宽的资源。1 z( ~9 E+ s7 d$ ~5 ~
/ m4 I/ E9 m [ N' l! x* @通过与部分老师、学生交流讨论,结合我校实际,形成以下网络计费改革方案在全校范围内公开投票,每种方案各有优缺点,请谨慎选择,谢谢合作。
8 B6 d( L% ^; f; N7 R" Y7 b/ G7 }- c$ j0 u
投票结束后,将向学校提交投票结果,最终由校长办公会来决策网络计费改革方案,信息技术中心做好技术准备后择机实施。9 |1 u) z% l# }
' s. W, f! O: V/ A. e. i
本投票采取一人一票制;0 j0 X' e z7 I1 p# V. O. Z% J
; p6 A* J+ p8 M7 \8 y" `4 Q" Q" {
本投票设为单选,每人只限一个选项;/ `8 c+ t, n: k$ J' }' _
# k$ O/ T# @* [1 q* ^投票人需填写校园卡用户身份信息才能进行投票。如有疑问,请拨打电话89734964;
, Y, r+ h( {8 Y, v; Y8 {# X& ?8 E( F# T0 w5 D5 W! q
投票期限:2013-12-9至2013-12-13 16:00;9 \4 E8 v/ d: r5 d
) b1 V; M- O* L: Y4 t- a% i. v
1、方案一:每户每月2G免费,超出部分按0.15分/M。月使用8G以内流量合适。
2 A0 c [* O% c6 ]) P0 f7 ^0 ]& O% j" J# a, t* U1 I: U5 `/ q S
2、方案二:每户每月10元包15G,超出部分按0.2分/M。月使用20G以内流量合适。1 L" O! M4 S: j/ Y8 N1 A
: v9 l' z9 { M6 v8 s3、方案三:纯按流量收费,0.1分/M。月使用20G以上流量合适。* ?- A/ `0 {( u: k7 o. s& D; y2 D7 r
; C+ U7 U9 W% _# l" ~! o( L
4、方案四:保持现状,包月不限流量,20元/月。网络拥堵现状无法解决。
+ S% ^1 C/ D2 S0 k X& }: c4 z6 i1 ~# U" S: \9 T/ u+ z- N
二、分析:
# Q! z- @9 {2 L, r5 o; N
5 u) _6 b- {/ `+ w$ ]很多同学面对这4个方案,不知道那个适合自己,最后算是随便投一票,或者大部分人会投方案四,保持不变。这里写了简单的程序,帮助大家分析,选择投票。4 A6 N: W8 v4 u: R
+ [& c$ r! u5 F4 Z
0 |5 z+ W2 U" F2 w6 a0 N @# Y) i4 t. s: G
这个图自然是用matlab做出的,可以看出:
# ~' J! D% J9 `, {- p
' w% c/ v: N; B" P1、如果你每月使用量很小,小于7G,方案一花费最低;
0 T5 X" f0 z& B- [ q0 y% S
1 d$ B3 l0 l* A7 b" G1 W% T2、如果你的使用量在7-10G或者>20G,方案三不错的;9 q, v) u' g7 H) t0 z
# F. v4 C3 l/ q/ t- l( X- E( N3、方案二适合于月流量在10-20G之间的同学。! A& c- r0 o" d& l b2 Z, u3 ]+ N( |
) c. R! l' Y; R% N9 O4 I三、源码:http://pan.baidu.com/share/link? ... 0&uk=4212195192, l& P, X5 C* H2 s7 n$ B, }* _: W) m! U# U& q
5 ]* D: f# m- h, I. B# S V% G1、main文件
% e0 P: O2 U8 T0 I) u
: A! U- `; Y; ]. pclc,clear,close all
4 N4 O2 Z$ k- W# k }yourflow = input('请输入你每月的流量(0-100G):');% Z" m5 E) C) e- v
flow = linspace(0,100);
. }! K* u) R5 u# i- U5 sflow = flow';0 Y4 o1 |) W; x6 o6 {9 v9 \8 U
n = length(flow);# Z! ~# ?7 }# v1 I. Z5 C
cost = arrayfun(@(f)getcost(flow,f),(1:4)','UniformOutput',false);+ H; l5 \& m P
cost = cost';
& b5 e4 K4 X& D! Rcost = cell2mat(cost);- r) s3 E3 L- B" h6 M1 P7 o
yourcost = interp1(flow,cost(:,1:3),yourflow);0 V7 _8 Q- c( ]4 o7 }" R# ~
f = find(min(yourcost)==yourcost);
" }+ l5 f* h( `3 e8 _& }, ~ch = ['您最适合方案',num2str(f)];
% l6 E3 J% T* D. Bfigure
7 p; b, y; P2 v u( ^; yh1 = plot(flow,cost,'LineWidth',1.5);& ~6 ^8 }5 W1 j: k( B
h2 = line([yourflow yourflow],[0 180]);
2 i: C6 t- o8 E4 O" {set(h1(4),'LineStyle','--')
$ |. Z6 h: P( {) z1 rset(h2,'LineStyle','-.','LineWidth',1.5,'color','k')
Q& M9 b( ]/ v Dgrid on
{0 H& k& l' t$ Sbox on5 { V: [! ?' ?% p
xlabel('flow / G')# f. A; k8 H) S1 \$ n: l
ylabel('cost/ Y')
' Y1 t# t$ m6 n* R/ v* Ytitle('石油大学网络收费') w; ^' c2 _: [4 i
ht = text(yourflow,100,ch,'edgecolor','red','linestyle','-');8 L6 r% z* L3 M# P/ \: s
if yourflow>50
- l% i5 N5 `8 |' Q/ u- Hset(ht,'HorizontalAlignment','right')
( ^! z/ ^9 |7 m, Jend/ L3 _- w% {) L% Q$ e' A l
! [9 @( @+ b# m# R9 |
legend('方案一','方案二','方案三','方案四','location','northwest')4 m3 |% \+ r Y& N$ J3 y
6 D. ~7 }/ s9 Z a% ?! \2、getcost函数文件
9 ^% S) F. @7 B' n z% R
' [5 W1 Q/ {3 X) A: u# bfunction c = getcost(x,f)1 M4 Q# f5 N7 @9 B" R
x = x( ;$ M# F. }3 c0 S( H* V4 H
n = length(x);
2 ]- N* W' v- L$ m7 Q( S5 R1 f' tswitch f
! A F% f( t. S; L# M3 Q4 ]+ r6 gcase 1
1 g; k0 P! Q1 ~1 ?. ?* [c = method1(x); j: Y) [) I0 r) Q9 t- ?, y
case 2
" y% C4 s# R: R V p0 |c = method2(x);
& w0 P; d- Y5 V2 ~9 A- i Dcase 3
0 e/ R% @% H1 N5 n/ a. Pc = method3(x);$ N5 y3 R0 w K& N/ H) M
case 4" c+ y, c! F c& r
c = method4;
9 [5 L' n4 Z# ^! Dotherwise
- q! f, I3 Y- a6 Derror('no this method')
2 f! j+ x8 c- E0 @; t& j. f! A: Oend
! c) W8 F7 c3 r4 t% s$ S
8 k8 }) Q7 A+ L% d. Efunction y = method1(x)
( c* k3 p; q+ t: ey = zeros(n,1);
7 O# \* ]0 F3 b4 h: wy(x>2) = 1.5*(x(x>2)-2);% k* W$ ~6 E1 Y( `' G2 `8 z
end
* _. d& \1 E* F/ C9 ]4 M3 |function y = method2(x)
+ B0 S. X+ k3 Xy = zeros(n,1)+10;
9 c$ ?3 O H l# o1 b+ r$ H* }y(x>15) = 10 + 2*(x(x>15)-15);
' M5 X& X' s/ l9 T2 tend1 P: w9 S3 H' B+ n, j4 b* d/ }/ `" z* f2 p
function y = method3(x)
H1 A& k5 H; vy = x;+ [6 Q- n6 I, @! x8 T" \4 ~1 Q
end
3 f$ G( B, S; s; Pfunction y = method4
2 }" X+ K# ] o; R. c Ay = 20+zeros(n,1);- g) z8 V& N3 Q6 I" n: L! e
end4 }; ~0 m; {/ R& C
end$ B: \0 g% K6 w' j
|
|