OFDM systems based on MATLAB simulation program

				% qpskmod.m
				% QPSK调制的函数
				% Programmed by ZuFei Chen
				
				function [iout,qout]=qpskmod(paradata,para,nd,ml)
				
				%****************** 变量 *************************
				% paradata : 输入数据 (para-by-nd matrix)
				% iout     : Ich路输出数据
				% qout     : Qch路输出数据
				% para     : 并行子信道的个数
				% nd       : 数据个数
				% ml       : 调制级别，即采用何种调制 (QPSK ->2  16QAM -> 4)
				% *****************************************************
				
				m2=ml./2;
				paradata2=paradata.*2-1;
				count2=0;
				
				for jj=1:nd
				
					isi = zeros(para,1);
					isq = zeros(para,1);
				
					for ii = 1 : m2 
				  		isi = isi + 2.^( m2 - ii ) .* paradata2((1:para),ii+count2);
				  		isq = isq + 2.^( m2 - ii ) .* paradata2((1:para),m2+ii+count2);
					end
				
					iout((1:para),jj)=isi;
					qout((1:para),jj)=isq;
				
					count2=count2+ml;
				
				end
				
				%******************** end of file ***************************