- 在线时间
- 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
国际赛参赛者
|
' u5 G1 K+ P D; a- {1 \: e) h
较新一篇 / 较旧一篇
h; c! T5 d' i6 R. h分享+ A: O" @: n* X! u
【Matlab技术】石油大学网络缴费方案投票分析器
" Q. l% f% T- t8 h7 O# } 公开 2013-12-11 01:24 | (分类:默认分类)! r/ Y3 Q" E6 g( I; R
5 o& s! S! x" S! ?2 l4 ?
一、引言:http://webservice.cup.edu.cn/poll/papers/paper_6.html7 S7 ]: W" h- \5 f6 c
2 v0 b$ S: d4 M$ s: u2 d经调研,目前各高校普遍采取按流量计费策略来解决网络拥堵问题。实行按流量计费策略之后,能有效限制在线视频观看、视频文件下载等与正常学习、科研无关的网络活动,节约出口带宽的资源。
+ u$ J0 e2 A+ q5 }' C/ f0 |/ R, g: Q
通过与部分老师、学生交流讨论,结合我校实际,形成以下网络计费改革方案在全校范围内公开投票,每种方案各有优缺点,请谨慎选择,谢谢合作。/ t( P0 `1 Y0 w! p- x3 J
' O$ \9 V$ v$ d3 f3 i投票结束后,将向学校提交投票结果,最终由校长办公会来决策网络计费改革方案,信息技术中心做好技术准备后择机实施。8 n1 S) ^) D7 j
" b% ]% T5 e! Z7 h3 Q本投票采取一人一票制;# A4 v! _' r% B) ]
0 \- j0 L d% ]' K4 P1 G本投票设为单选,每人只限一个选项;! {; W. C( O8 p+ u
u( o% D& s1 {6 R- H& v
投票人需填写校园卡用户身份信息才能进行投票。如有疑问,请拨打电话89734964;) V" y/ ]1 O, B ^5 h
+ z2 C2 j) g, Q; N( ^! l& p
投票期限:2013-12-9至2013-12-13 16:00;
N* I; q- M0 W, D# M. T
% i$ F5 _6 Y5 B8 t' f1、方案一:每户每月2G免费,超出部分按0.15分/M。月使用8G以内流量合适。4 l3 Q$ \" J' b: ^
4 g+ @6 o S# J* ]( T2 s ~) ~
2、方案二:每户每月10元包15G,超出部分按0.2分/M。月使用20G以内流量合适。' \0 M; \/ c/ x- x, k: X4 H
& ` n8 z& k- D$ ^0 n3、方案三:纯按流量收费,0.1分/M。月使用20G以上流量合适。
* e/ L: E2 c4 `( [3 b: A' d
& l8 l: N& y7 \$ F' q; Y% L4、方案四:保持现状,包月不限流量,20元/月。网络拥堵现状无法解决。+ E" Q+ y/ O9 L4 d+ x2 b
( v$ k# u9 f, T
二、分析:. V$ G* k5 M& U+ t. N
" U3 t; J/ k/ X$ t) ?很多同学面对这4个方案,不知道那个适合自己,最后算是随便投一票,或者大部分人会投方案四,保持不变。这里写了简单的程序,帮助大家分析,选择投票。9 c8 r, K! { |4 S
" M5 B3 e" S: \# R8 R" o
' h8 [1 U9 M( t/ g
7 N. k$ p9 l& C o0 E0 z6 n( ?这个图自然是用matlab做出的,可以看出:
( p0 w9 ~6 K8 k1 n- h( ]/ j+ B" q: @: V
1、如果你每月使用量很小,小于7G,方案一花费最低;
. W/ q$ C& Y5 R) W0 U2 Q% _* G
2、如果你的使用量在7-10G或者>20G,方案三不错的;. Y$ } ]/ L7 p! I+ d$ w/ p
* F5 ?+ L5 u# u u p- S2 a+ v. b
3、方案二适合于月流量在10-20G之间的同学。
6 K; l9 I* [, c/ c) _: @( _9 B) u+ W! \0 J* E6 D
三、源码:http://pan.baidu.com/share/link? ... 0&uk=4212195192 n- R8 V; F: t8 X
; F+ O: y. ]" l. l5 F- Z8 U1、main文件( M# o. D! Z/ w! |6 T: D3 |
/ O' D* B: U# W
clc,clear,close all
# W; Z( t5 Y/ n3 o6 f9 P& gyourflow = input('请输入你每月的流量(0-100G):');7 ~/ s* l! ^- x8 a' A& H+ G
flow = linspace(0,100);
% D" u, O0 r9 |0 e* Iflow = flow';8 J: ?% ^+ g( x. t; B
n = length(flow);
4 s4 z* O/ I7 a& E! e: x" y0 Scost = arrayfun(@(f)getcost(flow,f),(1:4)','UniformOutput',false);
, d" x9 L+ S; ncost = cost';
; Y( R1 d3 F- x1 y( f5 Vcost = cell2mat(cost);
8 _$ ~3 Y6 w! a5 n" ]& zyourcost = interp1(flow,cost(:,1:3),yourflow);+ x7 @8 d- v0 l! T. |% ?8 u
f = find(min(yourcost)==yourcost);
3 J. X- {4 e; u9 ich = ['您最适合方案',num2str(f)];1 k1 J- U+ y. E, j L/ R
figure
/ g) |. V4 V5 T( Ih1 = plot(flow,cost,'LineWidth',1.5);
8 p. {0 c+ h, M: ch2 = line([yourflow yourflow],[0 180]);: a3 ]2 u u( t q& `$ e/ a
set(h1(4),'LineStyle','--')
8 X. I) T" }. S8 N J" }. {! }set(h2,'LineStyle','-.','LineWidth',1.5,'color','k')3 @$ f3 [; f' y, v' K
grid on
3 h: w+ ^/ |5 D( E4 \0 d" r4 Dbox on8 W2 J: ]- O& T; J0 r
xlabel('flow / G')
0 K6 `0 k: w- y) Zylabel('cost/ Y')# x4 U' w% o! c2 h9 a
title('石油大学网络收费')
# i+ L* o* H% w# W. a Vht = text(yourflow,100,ch,'edgecolor','red','linestyle','-');
& T: Y1 k8 N7 K% b- o7 _: oif yourflow>50 S) h- N5 k" c4 P2 G! O
set(ht,'HorizontalAlignment','right')) t1 K) \' |' _ o$ O
end3 v, j) t F$ r9 h
" K1 j+ p/ q9 |' |) ^! qlegend('方案一','方案二','方案三','方案四','location','northwest')
{" ~8 x5 z Y$ r, Q1 s4 K" ]# F1 L- A+ j# \* e/ v. h$ ~
2、getcost函数文件
! r5 A1 N1 G4 ^% m. }1 `
- @; k3 z+ k3 h7 l0 @function c = getcost(x,f)
7 K, t6 T5 f. vx = x( ;$ {" J/ I. |5 |0 a
n = length(x);
+ C. k; k' E' M# J, u5 oswitch f
: h+ d+ ^0 v/ ^7 rcase 1* U$ E: W2 `# x, p& p
c = method1(x);
3 C+ w! f ?: W' D- ucase 2
4 \- p% B- {( X' o' e0 mc = method2(x);# @, ~- x7 V/ S
case 3
9 f% m: E6 s7 S7 zc = method3(x);, K1 a& P a% ^( n/ h9 e- F5 [( z
case 4- D- {# B: h" g: w, c
c = method4;1 A& G; s* `* d$ K: J. m
otherwise
3 I! y {* t$ w5 [error('no this method')8 t. ?; B9 b: T& E3 v
end
7 T8 ^' [' c3 k* w. J5 k
$ g5 }, |- f+ S$ \; E- W5 nfunction y = method1(x)& r- `4 q$ F) {" n
y = zeros(n,1);- ?2 [: h7 W$ E8 ?
y(x>2) = 1.5*(x(x>2)-2);' l1 ^9 `8 a* t# _# n+ J5 Y
end
8 }9 i+ O& b+ Q: K' afunction y = method2(x)
- Q/ b( h& K: g' d, U0 T" d6 P1 Y' @y = zeros(n,1)+10;9 Z6 x3 h/ S# P
y(x>15) = 10 + 2*(x(x>15)-15);4 @: @9 t( i( o: O! I! O
end
9 c& W+ C D1 Hfunction y = method3(x)
4 v3 [0 `, N5 y- ?y = x;
4 z1 z+ o8 Y( r) z) q) y. ~9 K7 b2 gend
5 ~2 g" D2 M0 T! @9 wfunction y = method4
- p0 L5 r. V, x3 W4 ky = 20+zeros(n,1);
- O! I7 L8 \+ b/ U2 Zend1 c2 p8 M, z0 e5 m
end
' y0 {/ [ ~2 Y" b i |
|