随着蜂窝移动通信市场的巨大发展

				clc;
				clear;
				
				i=1:9;
				r=fun2(2);
				r=floor(r.*10)./10;
				
				L=64;                                                                   %每个包所含的信息比特数
				M=80;                                                                   %每个包所含的总比特数
				R=10^4;                                                                 %码片数率
				W=10^6;                                                                 %比特数率
				const=7.75*10^(-3);                                                     %常数
				a=5*10^(-21);                                                           %接收端噪声功率密度
				
				N=floor(1+(W/R)./r);                                                    %终端数
				Preceive=r*a*W/((W/R)-(N-1).*r);                                        %接收端功率
				d=[0.32,0.46,0.57,0.66,0.74,0.81,0.88,0.94,1];                          %终端到基站的距离
				h=const./(d.^3.6);                                                      %路径增益
				Ptransmit=Preceive./h;                                                  %发射端功率
				Ptransmit=Ptransmit.*10^11;
				
				loglog(d,Ptransmit,'go-');                                               %发射端功率随发射端到基站的距离变化曲线
				axis([0 1 0 1]);                                                        %限制坐标范围
				title('发射端功率随用户与基站之间距离(km)变化曲线');                    %标题
				xlabel('distance between terminal and base station(km)');               %X坐标自变量
				ylabel('transmitter power(W)');                                         %Y坐标函数
				hold on;
				
				%figure;
				r1=fun1(M,W,R);                                                         %信干比（小数点后两位）   r=12.42
				r=floor(r1*10)/10;                                                      %信干比（小数点后一位）   r=12.4
				N=floor(1+(W/R)/r);                                                     %终端数
				Preceive=r*a*W/((W/R)-(N-1)*r);                                         %接收端功率
				d=[0.32,0.46,0.57,0.66,0.74,0.81,0.88,0.94,1];                          %终端到基站的距离
				h=const./(d.^3.6);                                                      %路径增益
				Ptransmit=Preceive./h;                                                  %发射端功率
				Ptransmit=Ptransmit.*10^11;                                             
				loglog(d,Ptransmit,'g+-');                                               %发射端功率随发射端到基站的距离变化曲线
				axis([0.1 1 10^-3 1]);
				hold on
				legend('价格因子等于路径增益的曲线)''不含价格因子的曲线',);