function [mod_out,p_noise]=APSK_mod_in(mod_in,index,p_noise,Rin,Rmid,Rout)
switch index
case 4,
    sum=0;
    sum=4*Rin+12*Rout;
    sum=sum/(2^index);
    p_noise=p_noise*sum;
   mod_in=mod_in(1:4:end)*8+mod_in(2:4:end)*4+mod_in(3:4:end)*2+mod_in(4:4:end);
    len=length(mod_in);
    for i=1:len
        if( mod_in(i)<4)
            mod_R(i)=(2*pi/4)*mod_in(i);mod_I(i)=Rin;
        else
            mod_R(i)=(2*pi/12)*(mod_in(i)-4);mod_I(i)=Rout;
        end
    end
case 5,
    sum=0;
    sum=4*Rin+12*Rmid+16*Rout;
    sum=sum/(2^index);
    p_noise=p_noise*sum;
  mod_in=mod_in(1:5:end)*16+mod_in(2:5:end)*8+mod_in(3:5:end)*4+mod_in(4:5:end)*2+mod_in(5:5:end);
   len=length(mod_in);
    for i=1:len
        if( mod_in(i)<4)
            mod_R(i)=(2*pi/4)*mod_in(i);mod_I(i)=Rin;
        elseif( mod_in(i)>15)
            mod_R(i)=(2*pi/16)*(mod_in(i)-16);mod_I(i)=Rout;
        else 
            mod_R(i)=(2*pi/12)*(mod_in(i)-4);mod_I(i)=Rmid;
        end
    end
end
for i=1:len
    mod_out(i)=exp(j*mod_R(i))*mod_I(i);
end