- 在线时间
- 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
国际赛参赛者
|
# N# t V) _0 X' e2 |6 D
较新一篇 / 较旧一篇
1 }/ a) s; p0 R# A* v8 m' |分享
5 f: c/ M- v/ ~+ D+ V【Matlab技术】石油大学网络缴费方案投票分析器5 c" G* o( X2 {0 a* l& `7 ~
公开 2013-12-11 01:24 | (分类:默认分类)
/ J' s; C8 X6 A$ e# M' U) l3 s; S9 ^1 ~ K/ B" T1 T' i' U
一、引言:http://webservice.cup.edu.cn/poll/papers/paper_6.html
1 r6 z6 i* G5 n
7 \, S0 `& H8 _( o: T$ C经调研,目前各高校普遍采取按流量计费策略来解决网络拥堵问题。实行按流量计费策略之后,能有效限制在线视频观看、视频文件下载等与正常学习、科研无关的网络活动,节约出口带宽的资源。
- Y' W/ v7 O( b6 F; M# a" B( a7 r9 M! L/ I+ a# E6 G+ c+ ^* t0 H
通过与部分老师、学生交流讨论,结合我校实际,形成以下网络计费改革方案在全校范围内公开投票,每种方案各有优缺点,请谨慎选择,谢谢合作。
* k8 N: c0 _3 }, b0 ~! {" a
: W3 m' v; k6 k1 @8 c9 V0 Q投票结束后,将向学校提交投票结果,最终由校长办公会来决策网络计费改革方案,信息技术中心做好技术准备后择机实施。 B7 o! K9 a6 ?( V. P% d% i0 @9 M
5 \, V6 j* O4 {5 o" h
本投票采取一人一票制;
7 H4 t/ T8 P5 D6 ]5 {( Y: H F8 ?8 ]6 O3 i: j
本投票设为单选,每人只限一个选项;, K- ^$ V5 B/ n
. D* G- _1 M1 }$ m* F y% E
投票人需填写校园卡用户身份信息才能进行投票。如有疑问,请拨打电话89734964;0 D/ |+ W% B9 q6 X' z8 Q& @
9 r# F ]3 f% [7 S# E投票期限:2013-12-9至2013-12-13 16:00;
) ^9 F3 a _! j% X
( W5 N/ E$ A( `2 m- X4 a: @* X1、方案一:每户每月2G免费,超出部分按0.15分/M。月使用8G以内流量合适。5 Q% A ?9 I$ u
# R' L( D4 d8 n( k0 s/ N# Q$ X
2、方案二:每户每月10元包15G,超出部分按0.2分/M。月使用20G以内流量合适。
2 T. S9 p9 h9 z* \# ]2 }9 X3 ~# G3 d2 H" M
3、方案三:纯按流量收费,0.1分/M。月使用20G以上流量合适。
' M- L! r4 N; L, F7 D4 s
; [. D& t9 ?% K% e4、方案四:保持现状,包月不限流量,20元/月。网络拥堵现状无法解决。
! n$ [" Z4 j8 ~$ D8 n7 e, g, t" r5 f- A+ C3 V) t+ I
二、分析:
& ^8 i! t: u. m2 T9 H$ @4 l; A* y1 M9 H2 v, y0 @0 e( C$ B
很多同学面对这4个方案,不知道那个适合自己,最后算是随便投一票,或者大部分人会投方案四,保持不变。这里写了简单的程序,帮助大家分析,选择投票。
2 F, k2 p, h, b" C A! S
1 k9 {0 j+ V/ {
: d7 ^7 t. ^- O" }8 Z! i# n' B- O7 o, y3 U _2 X
这个图自然是用matlab做出的,可以看出:
8 [9 w6 Z) B) L2 M, ~ Q. v r# N8 X% g# e- w8 \3 f( P! R4 X
1、如果你每月使用量很小,小于7G,方案一花费最低;
" b$ I& Z5 c# _9 T8 M) S) m2 {6 q2 Q3 Z# u* L
2、如果你的使用量在7-10G或者>20G,方案三不错的;
$ D" s) \! J: K
" i4 O* M- n* |% N3、方案二适合于月流量在10-20G之间的同学。
. N- V* Y% A6 K4 P% T9 s+ q* \' r6 b7 k& i
三、源码:http://pan.baidu.com/share/link? ... 0&uk=4212195192
( {( N; |; I0 }- b& e9 w3 x1 ^! n% s- h
1、main文件$ F9 \. z$ Y# [5 C
; ]2 h$ v. P! X6 o7 T# m
clc,clear,close all* i2 M* B# e1 L2 d/ f' T
yourflow = input('请输入你每月的流量(0-100G):');
5 R3 [) p3 n% A, Z; Lflow = linspace(0,100);
7 c4 ~/ D8 S# Vflow = flow';! ]+ k4 m' l! Y
n = length(flow);
! c8 m. H+ n% Z- ucost = arrayfun(@(f)getcost(flow,f),(1:4)','UniformOutput',false);) r1 u/ J; Y7 U- D3 M8 N4 Q% a
cost = cost';
, [ a! D6 ?4 `; D, Scost = cell2mat(cost);
8 v: f% j& H$ [yourcost = interp1(flow,cost(:,1:3),yourflow);% {3 Y3 u& I$ W8 r) M" A2 M
f = find(min(yourcost)==yourcost);% j, a/ D, k6 ^4 S9 G2 ~
ch = ['您最适合方案',num2str(f)];7 t# y- l) e* s8 x6 A$ J4 J
figure
; [, g7 I& {* D/ x4 X; Ih1 = plot(flow,cost,'LineWidth',1.5);4 [. b; m* D. y! i
h2 = line([yourflow yourflow],[0 180]);
8 \ [0 m/ R8 V5 dset(h1(4),'LineStyle','--')2 ?+ N1 a5 q+ w% h7 x- Q, }
set(h2,'LineStyle','-.','LineWidth',1.5,'color','k')
2 v6 n) _' W2 h2 f3 V1 Q! X2 Pgrid on- [+ Z2 Z" q9 A5 j& Q
box on! q' X- d6 f- \% f z
xlabel('flow / G')5 u0 J# Q1 I' `7 E8 {( \) S
ylabel('cost/ Y')
4 X1 ^# j, m" ^8 e! c: c9 ^4 q7 v2 etitle('石油大学网络收费'); o( p7 {: N# Y/ D
ht = text(yourflow,100,ch,'edgecolor','red','linestyle','-');# b2 O0 d# Q0 T9 ^* Q6 E' e
if yourflow>50% T, v0 O% L" M. g' V+ P
set(ht,'HorizontalAlignment','right')
/ W: u, z- Z8 a/ e( E: ]- Zend9 l3 r/ r- R/ N
: J4 B+ Z2 L) [- ]legend('方案一','方案二','方案三','方案四','location','northwest')$ e& k; Q1 @! J+ T% ~
# @& s6 [# ]$ ~2、getcost函数文件; O% C6 @3 s9 Z. g' S9 k! \
' v" e0 ?) ?2 L4 ~* Y! k
function c = getcost(x,f)7 m5 N: ]" D3 G; d, I
x = x( ;( Q* e* F7 R$ f: H" v/ q7 H- ^; x# O
n = length(x);
' y8 ?2 F8 C0 ]. q# ^ wswitch f
/ v% W/ Z, L4 ~case 1
! T* K. E K+ P! R7 K7 {5 _' ~c = method1(x);* b" x, Z7 k+ i$ o! K
case 2
9 E$ h6 _1 O# p7 ]& xc = method2(x);
5 |0 e9 ~8 ]" Wcase 31 T- l$ n) c) C( c5 ?' S
c = method3(x);& {) [5 y. [$ T9 _1 |" V2 b% \
case 4# E( I, B$ G2 @( j! w0 ]; A
c = method4;
" G, x; Q m0 v: y! V5 H5 Totherwise* D" ?) R5 a: v. P
error('no this method')( U7 [$ h. P; y, C# _& O
end: T+ y$ ^2 R. f3 C- g
% t8 {2 R& S" Mfunction y = method1(x)
4 n8 B+ r( A" l3 Z& C: a- }9 Iy = zeros(n,1);3 {) Z! ?0 `! ]( X$ [
y(x>2) = 1.5*(x(x>2)-2);
0 K6 ~9 {" y5 K8 a# eend" K7 O& o4 y" s
function y = method2(x); M* k5 ^# i& f( G: L. J/ A2 T
y = zeros(n,1)+10;1 v# Z8 O$ S0 E0 x
y(x>15) = 10 + 2*(x(x>15)-15);
- @' `8 ~7 t$ _" R$ ]8 O2 }! {& R |end
# l c& F& j) L- B" m9 i5 Jfunction y = method3(x)
( D; S" L! u/ O, M* R- g5 wy = x;
( K, V! x* M/ O- I. {3 Rend
) \/ g7 o* A. |3 ufunction y = method4# L- ?8 u K# O& e9 W+ a( r
y = 20+zeros(n,1);
, J7 \+ |2 P% H1 Aend8 [) z) \2 d! q C( O
end
* p# R. z b8 ] {: P |
|