- 在线时间
- 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
国际赛参赛者
|
4 [! I P/ F* `: \
较新一篇 / 较旧一篇
4 N( a5 m$ t4 @" F分享
( _( \1 Q7 t( H: y% R1 A" d3 i【Matlab技术】石油大学网络缴费方案投票分析器8 O9 L0 v2 ]( N
公开 2013-12-11 01:24 | (分类:默认分类)
/ D* N# s" K' T& i' y1 b( d& c
1 f' c5 J0 J/ a! `$ o" U一、引言:http://webservice.cup.edu.cn/poll/papers/paper_6.html. }" V5 O7 l) ~" f
/ U4 w$ r) u* R8 a5 b! \
经调研,目前各高校普遍采取按流量计费策略来解决网络拥堵问题。实行按流量计费策略之后,能有效限制在线视频观看、视频文件下载等与正常学习、科研无关的网络活动,节约出口带宽的资源。4 b1 G; O% ?/ \! y, S6 q( w4 Q
" |( t4 g7 m. w2 _" \; i
通过与部分老师、学生交流讨论,结合我校实际,形成以下网络计费改革方案在全校范围内公开投票,每种方案各有优缺点,请谨慎选择,谢谢合作。
8 C: F) p) K! u q; w# o( G3 ?% a! y6 c5 H
投票结束后,将向学校提交投票结果,最终由校长办公会来决策网络计费改革方案,信息技术中心做好技术准备后择机实施。% j9 B. Y, F. T
4 t, a5 J5 ^" U0 p% K5 P9 q+ b: Q1 U5 p本投票采取一人一票制;) O! b* |" M: f3 a. Q( C
1 y' w) `& Q* w, p( A/ q本投票设为单选,每人只限一个选项;. {5 j! t% z, g7 W
) K4 z: c2 k- Q( w投票人需填写校园卡用户身份信息才能进行投票。如有疑问,请拨打电话89734964;
3 m7 E) o! r" |* ^7 Y" F! n- [$ D' A2 a
# n. _1 t5 v) W5 ?( ]" U- l投票期限:2013-12-9至2013-12-13 16:00;7 }/ N+ {! u5 A+ r" ?
0 s5 I' I: A' D4 d( x8 _
1、方案一:每户每月2G免费,超出部分按0.15分/M。月使用8G以内流量合适。
5 j$ o( O* C$ }2 X8 u& r' B# k; Q6 Y+ m1 j# V/ ?
2、方案二:每户每月10元包15G,超出部分按0.2分/M。月使用20G以内流量合适。
. E9 P% p9 E* M2 j# z# m
3 }$ T$ c) D8 I" [2 y0 C4 U3、方案三:纯按流量收费,0.1分/M。月使用20G以上流量合适。3 _8 ?" a! F- o( N9 {( I% c
7 M3 c4 k7 z+ A0 N+ a: a4、方案四:保持现状,包月不限流量,20元/月。网络拥堵现状无法解决。
3 r- u; l3 ~: |7 _
7 C! [0 z. r! j2 n8 Q二、分析:
A: N4 I7 Y! ]+ w% e0 m. ^6 l7 M* O% C# _% A) I1 F0 Q& F
很多同学面对这4个方案,不知道那个适合自己,最后算是随便投一票,或者大部分人会投方案四,保持不变。这里写了简单的程序,帮助大家分析,选择投票。3 r1 S5 ]3 x- d, E% _
1 o6 ]6 q5 F) l( ?& {' f# z. \8 _- y; O# Z! l% m+ R, o# U
1 Y7 V3 ~- ?" y# o2 s" Z
这个图自然是用matlab做出的,可以看出:
1 F7 v3 }! H4 i- f- f/ B+ I) S' J+ K, B! ~
1、如果你每月使用量很小,小于7G,方案一花费最低;
8 q# H3 [( X! i9 X3 U4 ~ b. G8 Y& [ g; ^6 g6 S* z3 w% |) ^$ y
2、如果你的使用量在7-10G或者>20G,方案三不错的;
& ]6 a, ]" a6 X/ u6 I4 w- U/ n
3、方案二适合于月流量在10-20G之间的同学。, O: x/ \1 V# E" w" [& R
9 B8 C( u' O- }4 q0 f5 t4 F三、源码:http://pan.baidu.com/share/link? ... 0&uk=4212195192; _7 i" G- U2 x; n
! c# F" E; m* |4 D. g& `% Y
1、main文件
# y6 {' y0 T8 {! e! M! u( d! M C/ n9 |( c( x5 D4 M; }- @ D
clc,clear,close all
8 l, B2 B& A: X; B& r+ lyourflow = input('请输入你每月的流量(0-100G):');4 T7 `- H' p3 ]6 A+ d
flow = linspace(0,100);
/ h! D3 V; g7 Q, Y4 Z6 fflow = flow';' O& U5 P* O6 n4 V! A5 w+ A
n = length(flow);
# M6 X( E' q; S- P/ l+ I- Lcost = arrayfun(@(f)getcost(flow,f),(1:4)','UniformOutput',false);! L' F% L3 H- X: r
cost = cost';
5 @' b! X+ G6 [1 ~/ Zcost = cell2mat(cost);, r% x/ Q' `0 }. u! t: F" q: B
yourcost = interp1(flow,cost(:,1:3),yourflow);7 |5 _' R' H4 e8 O
f = find(min(yourcost)==yourcost);5 h5 M1 T, F" `! s
ch = ['您最适合方案',num2str(f)];
% p: t9 a& n' |: K; pfigure
! V1 N0 `$ G: ~) j6 R; g' lh1 = plot(flow,cost,'LineWidth',1.5);: t7 y X$ D% h- o0 S% |' n' W
h2 = line([yourflow yourflow],[0 180]);
6 t) \# W5 P6 tset(h1(4),'LineStyle','--')
$ i+ p* |0 S/ v4 |set(h2,'LineStyle','-.','LineWidth',1.5,'color','k')' m) ^$ w; B# v3 z: y% o
grid on
1 c% k; L6 M% v; x( qbox on! p* W5 ~2 I3 c" ?4 C- F
xlabel('flow / G')" k6 g$ a Z3 q' ? s- y. ?
ylabel('cost/ Y')9 r4 R, S0 Z# \; O& A% P$ G2 Y" |
title('石油大学网络收费')
1 f' \& `( y% O7 B& a( S# ght = text(yourflow,100,ch,'edgecolor','red','linestyle','-');1 c x( `5 _ f7 H8 ?
if yourflow>50
, [ i$ {- q/ f+ r! y% Uset(ht,'HorizontalAlignment','right')7 i& i8 H0 b: t4 }& n" K" }
end
$ F( V) x. G% b3 n9 |$ i, ?1 G7 m, Q% }
legend('方案一','方案二','方案三','方案四','location','northwest'). ]2 _2 \$ v; r5 R5 B: f. s) K6 m
% ~% }8 |7 l' S' z
2、getcost函数文件
) u% ?- h- K) m! H1 I! W
0 {$ b; p# d+ R! Zfunction c = getcost(x,f)& p& `7 W/ i" {$ L, I2 u
x = x( ;) }# g8 ~# q; }6 W3 \. V
n = length(x);, E! z: o! ?+ U1 d5 Q2 B9 {
switch f- m$ ~8 G, O9 ?- ]! D! _- a' C* l
case 1+ l' m9 ]9 \- o9 L! t6 g( C
c = method1(x);* m1 U% Y* ~% U. }( e7 @
case 2
1 {0 H- Z/ K8 \3 E; J: wc = method2(x);% Y5 o; o6 x$ k! B
case 36 c9 q9 I& m& R1 C/ ?2 p
c = method3(x);
8 O/ [/ A( k: ?0 w( v; `) k3 \case 4* C& a2 i% |/ z* E! q
c = method4;+ S: v" x% O1 G1 t+ @! Q0 b
otherwise5 U& b' J5 [3 }' k; u
error('no this method')
: q& \6 p+ S4 r' d1 @6 c3 [end, \! q; P( c0 o- v* e5 e
# f% D- u2 x) P( D. ]- zfunction y = method1(x)
* \6 e5 g. u$ J' Y3 Y& F3 vy = zeros(n,1);' b7 q2 l# r4 r: Z1 O
y(x>2) = 1.5*(x(x>2)-2);' m6 u3 M% X/ I
end$ y) H1 _3 [" u" F* p- i
function y = method2(x)
% | u% w+ {6 u* A* ]! Ry = zeros(n,1)+10;6 e9 W+ m# z* z1 }1 V7 K) A% h
y(x>15) = 10 + 2*(x(x>15)-15);7 K0 y! G( C j5 F! ^; R, e1 g( Q
end; x: f$ c& u2 N" r' d( j4 `
function y = method3(x)
' c$ }; _6 ^1 B* G. [! Jy = x;
7 Q: z5 R+ C6 i; F% Jend
) W( G0 P1 m" R5 l- e p ^function y = method4" Q* X1 J% m7 m: ]5 j& k9 t' |
y = 20+zeros(n,1);
5 @5 U% H# L$ H! E8 Z5 D# A6 Gend
( a# c7 e* @, nend
3 K, N; t7 M' i( T( s |
|