gensymb_f.sci

numerical modulator with matlab

//GENSYMB_f Scicos Generic Symbol Generator block
//Classical interface function ver1.0 - scilab-3.0
//1st Feb 2005  Author : - IRCOM GROUP - A.Layec
//Doit etre compl鑤ement revu : fait l'affaire pour l'instant
function [x,y,typ]=GENSYMB_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:7)
   exprs2=graphics.exprs(8:10)
   
   while %t do

      text=['Set Symbol Generator Block']
      [ok,nb_sym,nbit,typm,typu,nech,typf,enin,exprs1]=getvalue(text,...
      ['Number of Symbols';...
       'Number of bits per symbol'
       'Type of Modulation(0:PSK,1:QAM)';...
       'Type of Upsample(0:No UpSample,1:Upsample,2:Resample)';...
       'Samples per symbol';...
       'Type of filtering(0:No filter,1:Generic,2:RRC,3:RC,4:Gauss)';...
       'Enable external input integer port (0/1)?'],...
      list('vec',1,'vec',1,'vec',1,'vec',1,'vec',1,'vec',1,'vec',1),exprs1)

      if ~ok then break,end;
      
      if(nb_sym<0) then
       flag_seq=1;
       nb_sym=1
      else
       flag_seq=0;
      end
      
      if flag_seq then
       sz_out=1
      else
       sz_out=nb_sym*nech; //output size
      end
      
      m=2^nbit; //number of states
    
      if typf==0 then
        if flag_seq then
         nb_coef=0
         m1=0;
         initc=0;
         pulse=0;
        else
         nb_coef=nb_sym;
         m1=0;
         initc=0;
         pulse=0;
        end
        ok2=%t
      //Attention il y a un bug