- 在线时间
- 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
国际赛参赛者
|
/ t6 m8 O$ q3 p: r较新一篇 / 较旧一篇
3 @) ?! C8 j; w( z& J. P分享
6 L: {5 Q5 O+ B3 ]1 d【Matlab技术】石油大学网络缴费方案投票分析器
- n4 U0 b* l) T( A c 公开 2013-12-11 01:24 | (分类:默认分类)% b4 j0 f5 ]6 h, Z- s0 P
/ p8 Z0 B7 A5 h. \. ~5 O: Z! x' b1 l一、引言:http://webservice.cup.edu.cn/poll/papers/paper_6.html0 H7 K. X" W( y7 X& M. F
6 r4 o& ` U& e# h7 e经调研,目前各高校普遍采取按流量计费策略来解决网络拥堵问题。实行按流量计费策略之后,能有效限制在线视频观看、视频文件下载等与正常学习、科研无关的网络活动,节约出口带宽的资源。% i$ i& v3 {$ U; A. \
2 f. Q: h# E0 t$ A" {: D, t+ c8 n
通过与部分老师、学生交流讨论,结合我校实际,形成以下网络计费改革方案在全校范围内公开投票,每种方案各有优缺点,请谨慎选择,谢谢合作。
: F5 j# x4 h: F8 C' R0 l
: d5 L& F2 i3 i2 Z投票结束后,将向学校提交投票结果,最终由校长办公会来决策网络计费改革方案,信息技术中心做好技术准备后择机实施。3 c# `4 A7 T; r: _5 a
. c/ z( C9 r5 M& t1 K本投票采取一人一票制;
8 X' J, q! l* V& t
) V+ R P8 p) m* A本投票设为单选,每人只限一个选项;; d5 L/ ^: z1 M- m" ^$ P2 d
) \: m" J0 |6 ]/ |8 A7 A+ j' f
投票人需填写校园卡用户身份信息才能进行投票。如有疑问,请拨打电话89734964;4 B: J8 F, N* _# _* j9 `4 I+ h
8 [6 y1 K* ^: Q/ Y投票期限:2013-12-9至2013-12-13 16:00;* T* A+ p* ]7 [0 I; l* z
/ W/ A2 x) D) C9 [1 y, T
1、方案一:每户每月2G免费,超出部分按0.15分/M。月使用8G以内流量合适。
: Y" M2 h( v$ m
) U3 @6 S" R O* Y* L" e l2、方案二:每户每月10元包15G,超出部分按0.2分/M。月使用20G以内流量合适。
% C& z% U- F8 Q8 }) D/ A$ V# ]& Y" n1 y7 r2 |
3、方案三:纯按流量收费,0.1分/M。月使用20G以上流量合适。
9 z' [ q5 F3 E
9 d( Y5 N5 N9 D; d9 n9 l: t4、方案四:保持现状,包月不限流量,20元/月。网络拥堵现状无法解决。3 u: `0 f6 T$ X4 t9 e6 j
: d* A+ X }" O3 ]二、分析:
7 D2 n0 O6 b: j/ [1 G
# q9 i7 ^7 i4 q# D很多同学面对这4个方案,不知道那个适合自己,最后算是随便投一票,或者大部分人会投方案四,保持不变。这里写了简单的程序,帮助大家分析,选择投票。8 k: u) A0 z2 ?7 i
9 k+ e! b5 `$ @8 h4 z
; h6 E) ?! N; _) c+ S
( b% `1 O7 d9 }& C" h* v这个图自然是用matlab做出的,可以看出:
1 {# F u3 D+ B; Q* _0 E- _: z9 S) c/ \
1、如果你每月使用量很小,小于7G,方案一花费最低;' A: B# x1 j' [
7 S2 i& N- `. f
2、如果你的使用量在7-10G或者>20G,方案三不错的; C: s, A& s- l# l
7 R% [* A6 H9 Z- g& }
3、方案二适合于月流量在10-20G之间的同学。% x3 C6 p; d4 g, b& D
# t2 [& ?+ ]8 n. ^1 D三、源码:http://pan.baidu.com/share/link? ... 0&uk=42121951925 U$ `$ U' V3 h# o) w; x7 b/ @. b
9 o! i" w: W) t9 }
1、main文件' n# \5 `6 Z, G r& |* R
% g& }* i5 Q% |6 u
clc,clear,close all
9 R) g7 B& y0 ?2 {4 e4 _) M: vyourflow = input('请输入你每月的流量(0-100G):');
! @) J1 r1 P) S" N5 ~' U- oflow = linspace(0,100);: s& q2 m/ k# S. @; C
flow = flow';6 V2 u: V, p: A% a% V
n = length(flow);
2 h8 m" ~4 s' o& z/ _cost = arrayfun(@(f)getcost(flow,f),(1:4)','UniformOutput',false);3 `; w. x L2 @
cost = cost';
- C( G* l: r# _1 jcost = cell2mat(cost);9 X. t$ {" G: j; I; C
yourcost = interp1(flow,cost(:,1:3),yourflow);) E* D% [: N$ e, c8 H! U3 T
f = find(min(yourcost)==yourcost);/ y( F1 j: e5 j0 v3 Z2 }8 u
ch = ['您最适合方案',num2str(f)];! O/ `" F& q$ G1 u7 {9 A/ F4 K
figure
1 N/ q% u* a, f& U; m# ^4 |h1 = plot(flow,cost,'LineWidth',1.5);* D* m9 |" H: S* W: K: t+ z- x
h2 = line([yourflow yourflow],[0 180]);/ W2 o( B. C6 J J" n
set(h1(4),'LineStyle','--')
6 A& y4 O& V: {1 y$ L: P# iset(h2,'LineStyle','-.','LineWidth',1.5,'color','k')9 }" v# b& ^8 _7 Y1 |
grid on
, e F/ w) U) H2 k, r$ [+ X4 Ebox on, o8 `% N: L& a: B3 V
xlabel('flow / G')
- Q9 Z/ N- Y, d& _ylabel('cost/ Y')5 k6 O; J7 N, f5 _
title('石油大学网络收费')
, c8 s1 J0 D [6 J1 [) Z( O7 Ght = text(yourflow,100,ch,'edgecolor','red','linestyle','-');
' s2 s7 \6 t) o! F2 o+ Fif yourflow>50
6 c/ s5 p# h1 \& v6 I. Uset(ht,'HorizontalAlignment','right'). _' v. m0 S P' P4 s
end5 s5 ]" N& C; i* f' k9 e4 K
2 t5 x. N5 m9 \0 y$ ]' r& N' X
legend('方案一','方案二','方案三','方案四','location','northwest') K' u/ ^/ a b. p
9 |% u) O. y. n# Z% |2、getcost函数文件$ ^8 R- z# _% g9 }3 X* y8 m
' [) `2 c4 w; U% |* v# L& ~3 y: Bfunction c = getcost(x,f)3 P( _3 x8 K9 X- M n
x = x( ;
& G% c* h8 e8 v1 K# l" k; A. Ln = length(x);
7 B% P6 v& ~; p: F+ `+ ^3 aswitch f
% t3 H/ ^3 `# i+ [+ v' P& Vcase 1
4 \7 A! g0 s) e5 }c = method1(x);
9 | q8 O) P' |% ]2 r3 \case 2
) I% T5 O8 [1 O3 hc = method2(x);3 s3 B5 t1 \& u1 x$ {- t) N
case 3
3 ?$ r, Y1 K! A; @- x8 Kc = method3(x);8 E& t" L m4 ?8 K1 n3 h
case 4
4 [8 h6 b9 l3 V+ |2 }: hc = method4;5 H. {% ]3 s5 q' L
otherwise
1 u) Z1 J5 J1 x* e: A, perror('no this method')
( m4 N3 t) \' ]1 P( v* |* fend
1 f$ e* m1 Y6 Q2 w# U
/ {% q4 W4 t* E: V: h$ d2 pfunction y = method1(x)) t0 ^1 v* y; h4 r0 A3 G: g5 `
y = zeros(n,1);
& b3 B% A! B3 S3 g2 U& ny(x>2) = 1.5*(x(x>2)-2);, m" g5 ^2 h1 S1 a
end
5 s1 K+ O7 w+ X/ S6 c' c1 ~, cfunction y = method2(x)& f1 j0 i8 s2 a$ g6 B! F9 \
y = zeros(n,1)+10;
, n- @6 H9 A6 x: ?7 f; D0 oy(x>15) = 10 + 2*(x(x>15)-15);. H4 p* `) p% t* g
end
! x8 G+ R d6 h( X5 ]. Xfunction y = method3(x)
! I8 X4 T# F+ ?+ R, ?& Y9 t5 gy = x;
; `8 M, U0 Y) O7 ^end# j% M4 C$ M( `5 y4 v/ k
function y = method4
; i F C0 x C6 w$ p5 Ey = 20+zeros(n,1);
! l5 L1 f$ ~4 f, p$ oend, [ q% V% U( P6 d7 p) j
end# S4 ?" Y3 T- A; k# }
|
|