实验一：路径选择实验一、实验目的在进行通信网选择路由时，首选路由和各个迂回路由通常都是按照路径最短的原则进行的，目的是为了使网络费用达到最小。

在求解最短径的算法中常用的有D算法和F算法。

D算法用于求指定节点到其他各节点的最短路径；F算法用于求任意端间最短径。

在实际中都是由计算机实现这两种算法来帮助设计人员进行路由设计。

本次实验目的就是要使学生深入理解这两种算法并能用计算机实现这两种算法。

二、实验内容用编程语言实现F算法。

F算法M文件内容如下：function [w,r]=fsuanfa(m)% F算法的函数文件v_num=size(m);v_num=v_num(1);w=zeros(v_num);r=zeros(v_num);for i=1:v_numfor j=1:v_numif i~=jif(m(i,j)==0)w(i,j)=inf;elsew(i,j)=m(i,j);r(i,j)=j;endendendenddisp W0=disp(w)disp R0=disp(r)for k=1:v_numpause;for i=1:v_numif(i~=k)for j=1:v_numif(w(i,k)+w(k,j)<w(i,j))w(i,j)=w(i,k)+w(k,j);r(i,j)=k;endendendendfprintf('W%d=\n',k);disp(w)fprintf('R%d=\n',k);disp(r)end%r=m./2;end三、实验结果把fsuanfa .m添加到MATLAB的当前目录下，在MA TLAB的command window下运行：lj=[0 2 8 1 0 0 0 02 0 6 0 1 0 0 08 6 0 7 5 1 2 01 0 7 0 0 0 9 00 1 5 0 0 3 0 80 0 1 0 3 0 4 60 0 2 9 0 4 0 30 0 0 0 8 6 3 0];Fsuanfa(lj);可得到如下结果：W0=0 2 8 1 Inf Inf Inf Inf2 0 6 Inf 1 Inf Inf Inf8 6 0 7 5 1 2 Inf1 Inf 7 0 Inf Inf 9 InfInf 1 5 Inf 0 3 Inf 8Inf Inf 1 Inf 3 0 4 6Inf Inf 2 9 Inf 4 0 3Inf Inf Inf Inf 8 6 3 0 R0=0 2 3 4 0 0 0 01 0 3 0 5 0 0 01 2 0 4 5 6 7 01 0 3 0 0 0 7 00 2 3 0 0 6 0 80 0 3 0 5 0 7 80 0 3 4 0 6 0 80 0 0 0 5 6 7 0W1=0 2 8 1 Inf Inf Inf Inf2 0 63 1 Inf Inf Inf8 6 0 7 5 1 2 Inf1 3 7 0 Inf Inf 9 InfInf 1 5 Inf 0 3 Inf 8Inf Inf 1 Inf 3 0 4 6Inf Inf 2 9 Inf 4 0 3Inf Inf Inf Inf 8 6 3 0 R1=0 2 3 4 0 0 0 01 0 3 1 5 0 0 01 2 0 4 5 6 7 01 1 3 0 0 0 7 00 2 3 0 0 6 0 80 0 3 0 5 0 7 80 0 3 4 0 6 0 80 0 0 0 5 6 7 0W2=0 2 8 1 3 Inf Inf Inf2 0 63 1 Inf Inf Inf8 6 0 7 5 1 2 Inf1 3 7 0 4 Inf 9 Inf3 1 54 0 3 Inf 8Inf Inf 1 Inf 3 0 4 6Inf Inf 2 9 Inf 4 0 3Inf Inf Inf Inf 8 6 3 0 R2=0 2 3 4 2 0 0 01 0 3 1 5 0 0 01 2 0 4 5 6 7 01 1 3 02 0 7 02 23 2 0 6 0 80 0 3 0 5 0 7 80 0 3 4 0 6 0 80 0 0 0 5 6 7 0W3=0 2 8 1 3 9 10 Inf2 0 63 1 7 8 Inf8 6 0 7 5 1 2 Inf1 3 7 0 4 8 9 Inf3 1 54 0 3 7 89 7 1 8 3 0 3 610 8 2 9 7 3 0 3Inf Inf Inf Inf 8 6 3 0 R3=0 2 3 4 2 3 3 01 0 3 1 5 3 3 01 2 0 4 5 6 7 01 1 3 023 7 02 23 2 0 6 3 83 3 3 3 5 0 3 83 3 34 3 3 0 80 0 0 0 5 6 7 0W4=0 2 8 1 3 9 10 Inf2 0 63 1 7 8 Inf8 6 0 7 5 1 2 Inf1 3 7 0 4 8 9 Inf3 1 54 0 3 7 89 7 1 8 3 0 3 610 8 2 9 7 3 0 3Inf Inf Inf Inf 8 6 3 0 R4=0 2 3 4 2 3 3 01 0 3 1 5 3 3 01 2 0 4 5 6 7 01 1 3 023 7 02 23 2 0 6 3 83 3 3 3 5 0 3 83 3 34 3 3 0 80 0 0 0 5 6 7 0W5=0 2 8 1 3 6 10 112 0 63 14 8 98 6 0 7 5 1 2 131 3 7 0 4 7 9 123 1 54 0 3 7 86 4 17 3 0 3 610 8 2 9 7 3 0 311 9 13 12 8 6 3 0 R5=0 2 3 4 2 5 3 51 0 3 1 5 5 3 51 2 0 4 5 6 7 51 1 3 02 5 7 52 23 2 0 6 3 85 5 3 5 5 0 3 83 3 34 3 3 0 85 5 5 5 567 0W6=0 2 7 1 3 6 9 112 0 53 14 7 97 5 0 7 4 1 2 71 3 7 0 4 7 9 123 14 4 0 3 6 86 4 17 3 0 3 69 7 2 9 6 3 0 311 9 7 12 8 6 3 0 R6=0 2 6 4 2 5 6 51 0 6 1 5 5 6 56 6 0 4 6 67 61 1 3 02 5 7 52 2 6 2 0 6 6 85 5 3 5 5 0 3 86 6 3 4 6 3 0 85 56 5 5 67 0W7=0 2 7 1 3 6 9 112 0 53 14 7 97 5 0 7 4 1 2 51 3 7 0 4 7 9 123 14 4 0 3 6 86 4 17 3 0 3 69 7 2 9 6 3 0 311 9 5 12 8 6 3 0 R7=0 2 6 4 2 5 6 51 0 6 1 5 5 6 56 6 0 4 6 67 71 1 3 02 5 7 52 2 6 2 0 6 6 85 5 3 5 5 0 3 86 6 3 4 6 3 0 85 5 7 5 567 0W8=0 2 7 1 3 6 9 112 0 53 14 7 97 5 0 7 4 1 2 51 3 7 0 4 7 9 123 14 4 0 3 6 86 4 17 3 0 3 69 7 2 9 6 3 0 311 9 5 12 8 6 3 0 R8=0 2 6 4 2 5 6 51 0 6 1 5 5 6 56 6 0 4 6 67 71 1 3 02 5 7 52 2 6 2 0 6 6 85 5 3 5 5 0 3 86 6 3 4 6 3 0 85 5 7 5 567 0实验二：通信业务量分析实验一、实验目的在通信网的规划设计和优化时，需要寻求能够满足各项性能指标的设计和优化方案是非常重要的，排队论为通信网的设计和优化提供了理论依据。

Elang B公式和C公式是分析通信网络的主要公式。

Elang B 公式为阻塞呼叫清除系统提供了一个保守的GoS估算，对于有限用户的M/M/m(m,N)系统，通常会产生更小的阻塞概率。

Erlang C公式定义为到达的呼叫需要等待的概率。

在实际中都是由计算机实现这两个公式来帮助设计人员进行通信网络的优化设计。

本次实验目的就是要使学生深入理解这两个公式并能用计算机实现这两个公式。

二、实验内容用编程语言实现Erlang C公式。

爱尔兰C公式的函数内容如下：function pw=erlang_c(a,m)%爱尔兰C公式s=0;for k=0:m-1s=s+a.^k/factorial(k);endpw=a.^m./(a.^m+factorial(m).*(1-a/m).*s);end用来画图的M文件—huatu . m内容如下：a=1:0.01:100;m=[5 10 25 50 75 100];for i=1:length(m)pw=erlang_c(a,m(i));loglog(a,pw); %对数坐标set(gca,'XGrid','on'); %画网格线set(gca,'XMinorTick','off');set(gca,'XTick',[1 2 4 6 8 10 20 40 60 80 100]); %x坐标轴刻度设置set(gca,'XMinorGrid','off');set(gca,'Ylim',[0.001 1]); %限定纵坐标的取值范围set(gca,'YGrid','on');set(gca,'YMinorTick','off');hold onendgtext('m=4'); %用鼠标在图形上输入注释for i=2:length(m)gtext(int2str(m(i)));end三、实验结果把erlang_c.m和huatu .m添加到MA TLAB的当前目录下，在command window下运行：huatu;运行结果如下：实验三：Gompertz（龚伯兹）模型实验一、实验目的1．掌握Gompertz模型的基本原理；2．掌握用SPSS软件解决Gompertz模型的方法。

二、实验内容1．熟悉SPSS软件；2．用SPSS软件实现Gompertz（龚伯兹）曲线预测。

三、实验步骤1．打开SPSS for Windows软件，新建一个data文件并保存，打开VariableView界面，定义两个变量t,x,y，如图1所示；图12．打开Data View界面，在变量t下面的栏里依次输入1995-2004各年份，在变量x下对应依次输入1-10（表示1995是第一年，1996是第二年，2004是第10年），在变量y下面的栏里依次对应输入各年份的普及率中间值，如图2所示；图23．选择菜单栏中的Analyze下的Regression下的Curve Estimation，将变量t放入Independent 下的Variable栏中，将变量y放入Dependent栏中，在Models栏中选择Linear,如图3所示；图34．单击Save按钮，在弹出的对话框的Save Variables栏中选择Predicted Values,Residuals和Prediction intervals,置信区间选择95%，单击Continue,如图4所示；图45．在Curve Estimation栏内右上角单击ok，即可得到计算结果和拟合曲线，计算结果是对拟合精度的分析，其中b0,b1分别是线性拟合公式中的a,b；如图5所示；图56．选择菜单栏中的Analyze下的Regression下的Curve Estimation，将变量x放入Independent 下的Variable栏中，将变量y放入Dependent栏中，在Models栏中选择Linear,如图6所示；图67．单击Save按钮，在弹出的对话框的Save Variables栏中选择Predicted Values,Residuals和Prediction intervals,置信区间选择95%，单击Continue,如图4所示；8．在Curve Estimation栏内右上角单击ok，即可得到计算结果和拟合曲线，计算结果是对拟合精度的分析，其中b0,b1分别是线性拟合公式中的a,b；如图7所示；图79．用计算结果中的b0,b1根据算法原理算出A，k，带入Gompertz模型中即可得到Gompertz 模型曲线。