qpskrec_f.sci

numerical modulator with matlab

//QPSKREC_f Scicos Genreric QPSK Receiver block
//Classical interface function ver1.0 - scilab-3.0
//8 F関rier 2005  Author : - IRCOM GROUP - A.Layec
function [x,y,typ]=QPSKREC_f(job,arg1,arg2)
x=[];y=[];typ=[]
select job
case 'plot' then
  standard_draw(arg1)
case 'getinputs' then
  [x,y,typ]=standard_inputs(arg1)
case 'getoutputs' then
  [x,y,typ]=standard_outputs(arg1)
case 'getorigin' then
  [x,y]=standard_origin(arg1)
case 'set' then
   x=arg1;
   graphics=arg1.graphics;model=arg1.model;
   exprs1=graphics.exprs(1:6)
   exprs2=graphics.exprs(7:9)
   
   while %t do

      text=['Set Generic QPSK Receiver Block']
      [ok,nb_sym,nbit,typm,nech,typf,inits,exprs1]=getvalue(text,...
      ['Number of Symbols';...
      'Number of bits per symbol'
      'Type of Modulation(0:PSK,1:QAM)';...
      'Samples per symbol';...
      'Type of filtering(0:No filter,1:Generic,2:RRC,3:RC,4:Gauss)';...
      'Initial counter value of Symbol integral'],...
      list('vec',1,'vec',1,'vec',1,'vec',1,'vec',1,'vec',1),exprs1)

      if ~ok then break,end;
      
      herit=1
      if(nb_sym<0) then
        message('Only vectorial input is allowed');
        ok=%f
      end
      flag_seq=0;

      if(typm<>0) then
       message('Only PSK Modulation is activated')
       ok=%f
      end
      
      if(nbit<1) then
       message('Number of bits : Wrong parameter')
       ok=%f
      end
      
      sz_in=nb_sym*nech; // input size
      
      if typf==0 then
         nb_coef=nb_sym;
         m1=0;
         pulse=0;
      //Attention il y a un bug