pricetransmitterpower2.m

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

clear;
clc;

L=64;                                                                   %每个包所含的信息比特数
M=80;                                                                   %每个包所含的总比特数
R=10^4;                                                                 %码片数率
W=10^6;                                                                 %比特数率
const=7.75*10^(-3);                                                     %常数
a=5*10^(-21);                                                           %接收端噪声功率密度
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,'r+');                                               %发射端功率随发射端到基站的距离变化曲线
axis([0.1 1 10^-3 1]);
hold on


r=11.7;                                                                 %含价格因子的信干比   r=11.7
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,'ro');                                               %发射端功率随发射端到基站的距离变化曲线
axis([0.1 1 10^-3 1]);

title('发射端功率随用户与基站之间距离(km)变化曲线');                    %标题
xlabel('distance between terminal and base station(km)');               %X坐标自变量
ylabel('transmitter power');                                            %Y坐标函数
text(10^-0.4,10^-1,'Price=0');
text(10^-0.3,10^-2.0,'Price=50');