freq_div_intfunc

Interfacing function
eng

##
freq_div

### File content

    function [x,y,typ]=freq_div(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
     // paths to updatable parameters or states
     newpar=list();
     y=0;
     spath=list()
     spath($+1)='model'
     spath($+1)='rpar'
     spath($+1)='objs'
     spath($+1)=1

     xx=arg1(spath)// get the block
    	       //execstr('xxn='+xx.gui+'(''set'',xx)')
     xxn=xx;
     graphics=xx.graphics;exprs=graphics.exprs
     model=xx.model;
     while %t do
       [ok,%ph,%df,exprs]=getvalue...
           ('Set frequency division block parameters',...
    	['Phase (0 to division factor -1)';'Division factor'],...
    	list('vec',1,'vec',1),exprs)
       if ~ok then break,end
       if ok then
         if %df<1 then %df=1,end
         %ph=abs(%ph)
         if %ph>%df-1 then %ph=%df-1,end
         graphics.exprs=exprs
         model.ipar=%df;
         model.dstate=%ph;
         xxn.graphics=graphics;xxn.model=model
         break
       end
     end

     if diffobjs(xxn,xx) then
       model=xx.model
       model_n=xxn.model
       if ~is_modelica_block(xx) then
         modified=or(model.sim<>model_n.sim)|..
    	      ~isequal(model.state,model_n.state)|..
    	      ~isequal(model.dstate,model_n.dstate)|..
    	      ~isequal(model.rpar,model_n.rpar)|..
    	      ~isequal(model.ipar,model_n.ipar)|..
    	      ~isequal(model.label,model_n.label)
         if or(model.in<>model_n.in)|or(model.out<>model_n.out) then
           needcompile=1
         end
         if or(model.firing<>model_n.firing)  then
           needcompile=2
         end
         if model.sim=='input'|model.sim=='output' then
           if model.ipar<>model_n.ipar then
    	 needcompile=4
           end
         end
         if or(model.blocktype<>model_n.blocktype)|..
    	   or(model.dep_ut<>model_n.dep_ut)  then
           needcompile=4
         end
         if (model.nzcross<>model_n.nzcross)|(model.nmode<>model_n.nmode) then
           needcompile=4
         end
         if prod(size(model_n.sim))>1 then
           if model_n.sim(2)>1000 then
    	 if model.sim(1)<>model_n.sim(1) then
    	   needcompile=4
    	 end
           end
         end
       else
         modified=or(model_n<>model)
         eq=model.equations;eqn=model_n.equations;
         if or(eq.model<>eqn.model)|or(eq.inputs<>eqn.inputs)|..
    	   or(eq.outputs<>eqn.outputs) then
           needcompile=4
         end
       end
       // parameter or states changed
       arg1(spath)=xxn// Update
       newpar(size(newpar)+1)=1// Notify modification
       y=max(y,needcompile)
     end
     x=arg1
     typ=newpar
     case 'define' then
      scs_m_1=scicos_diagram()
      scs_m_1.props=tlist(..
    ["params","wpar","title","tol","tf","context","void1","options","void2","void3",..
    "doc"],[600,450,0,0,600,450],"freq_div",[0.0001,1.000E-06,1.000E-10,100001,0,0],100000," ",[],..
    tlist(["scsopt","3D","Background","Link","ID","Cmap"],list(%t,33),[8,1],[1,5],..
    list([5,1],[4,1]),[0.8,0.8,0.8]),[],[],list())
    scs_m_1.objs(1)=mlist(["Block","graphics","model","gui","doc"],..
    mlist(["graphics","orig","sz","flip","exprs","pin","pout","pein",..
    "peout","gr_i","id","in_implicit","out_implicit"],..
    [60.518363,178.33333],[60,40],%t,["0";"3"],[],7,10,[],..
                 list(..
            "xstringb(orig(1),orig(2),[''  Counter'';''Modulo ''+string(base)],sz(1),sz(2),''fill'');",..
                    8),"",[],"E"),..
                    mlist(..
                    ["model","sim","in","in2","intyp","out","out2","outtyp","evtin","evtout",..
                    "state","dstate","odstate",..
                    "rpar","ipar","opar","blocktype","firing","dep_ut","label","nzcross",..
                    "nmode","equations"],list("modulo_count",4),[],[],1,1,[],1,1,[],[],0,list(),..
                    [],3,list(),..
                    "c",[],[%f,%f],"",0,0,list()),"Modulo_Count",list())
    scs_m_1.objs(2)=mlist(["Block","graphics","model","gui","doc"],..
                    mlist(..
                    ["graphics","orig","sz","flip","exprs","pin","pout","pein",..
                    "peout","gr_i","id","in_implicit","out_implicit"],..
                    [215.37648,299.81481],[20,30],%t,"1",[],[],[],6,..
                    list(..
                    ["xo=orig(1);yo=orig(2)+sz(2)/3";
                    "xstringb(xo,yo,string(prt),sz(1),sz(2)/1.5)"],8),"",[],[]),..
                    mlist(..
                    ["model","sim","in","in2","intyp","out","out2","outtyp","evtin","evtout",..
                    "state","dstate","odstate",..
                    "rpar","ipar","opar","blocktype","firing","dep_ut","label","nzcross",..
                    "nmode","equations"],"input",[],[],1,[],[],1,[],1,[],[],list(),[],1,..
                    list(),"d",-1,..
                    [%f,%f],"",0,0,list()),"CLKINV_f",list())
    scs_m_1.objs(3)=mlist(["Block","graphics","model","gui","doc"],..
                    mlist(..
                    ["graphics","orig","sz","flip","exprs","pin","pout","pein",..
                    "peout","gr_i","id","in_implicit","out_implicit"],..
                    [221.30407,86.481481],[20,30],%t,"1",[],[],5,[],list(" ",8),"",..
                    [],[]),..
                    mlist(..
                    ["model","sim","in","in2","intyp","out","out2","outtyp","evtin","evtout",..
                    "state","dstate","odstate",..
                    "rpar","ipar","opar","blocktype","firing","dep_ut","label","nzcross",..
                    "nmode","equations"],"output",[],[],1,[],[],1,1,[],[],[],list(),[],1,list(),"d",[],..
                    [%f,%f],"",0,0,list()),"CLKOUTV_f",list())
    scs_m_1.objs(4)=mlist(["Block","graphics","model","gui","doc"],..
                    mlist(..
                    ["graphics","orig","sz","flip","exprs","pin","pout","pein",..
                    "peout","gr_i","id","in_implicit","out_implicit"],..
                    [193.14804,168.7037],[60,60],%t,["1";"0"],7,[],9,[0;5],..
                    list(..
                    ["txt=[''If in>0'';'' '';'' then    else''];";
                    "xstringb(orig(1),orig(2),txt,sz(1),sz(2),''fill'');"],8),"","E",..
                    []),..
                    mlist(..
                    ["model","sim","in","in2","intyp","out","out2","outtyp","evtin","evtout",..
                    "state","dstate","odstate",..
                    "rpar","ipar","opar","blocktype","firing","dep_ut","label","nzcross",..
                    "nmode","equations"],list("ifthel",-1),1,[],1,[],[],1,1,[1;1],[],[],list(),..
                    [],[],list(),..
                    "l",[-1,-1],[%t,%f],"",0,0,list()),"IFTHEL_f",list())
    scs_m_1.objs(5)=mlist(["Link","xx","yy","id","thick","ct","from","to"],..
                    [233.14804;231.30407],[162.98942;116.48148],"drawlink",[0,0],..
                    [5,-1],[4,2,0],[3,1,1])
    scs_m_1.objs(6)=mlist(["Link","xx","yy","id","thick","ct","from","to"],..
                    [225.37648;224.29194],[299.81481;267.98739],"drawlink",[0,0],..
                    [5,-1],[2,1,0],[8,1,1])
    scs_m_1.objs(7)=mlist(["Link","xx","yy","id","thick","ct","from","to"],..
                    [129.08979;184.57662],[198.33333;198.7037],"drawlink",[0,0],..
                    [1,1],[1,1,0],[4,1,1])
    scs_m_1.objs(8)=mlist(["Block","graphics","model","gui","doc"],..
                    mlist(..
                    ["graphics","orig","sz","flip","exprs","pin","pout","pein",..
                    "peout","gr_i","id","in_implicit","out_implicit"],..
                    [224.29194;267.98739],[0.3333333,0.3333333],%t,[],[],[],6,[9;10],..
                    list([],8),"",[],[]),..
                    mlist(..
                    ["model","sim","in","in2","intyp","out","out2","outtyp","evtin","evtout",..
                    "state","dstate","odstate",..
                    "rpar","ipar","opar","blocktype","firing","dep_ut","label","nzcross",..
                    "nmode","equations"],"split",[],[],1,[],[],1,1,[1;1],[],[],list(),..
                    [],[],list(),"d",..
                    [%f,%f,%f],[%f,%f],"",0,0,list()),"CLKSPLIT_f",list())
    scs_m_1.objs(9)=mlist(["Link","xx","yy","id","thick","ct","from","to"],..
                    [224.29194;223.14804],[267.98739;234.41799],"drawlink",[0,0],..
                    [5,-1],[8,1,0],[4,1,1])
    scs_m_1.objs(10)=mlist(["Link","xx","yy","id","thick","ct","from","to"],..
                     [224.29194;90.518363;90.518363],[267.98739;267.98739;224.04762],..
                     "drawlink",[0,0],[5,-1],[8,2,0],[1,1,1])
    model = mlist(..
    ["model","sim","in","in2","intyp","out","out2","outtyp","evtin","evtout",..
    "state","dstate","odstate","rpar","ipar","opar","blocktype",..
    "firing","dep_ut","label","nzcross","nmode","equations"],"csuper",[],[],1,[],[],1,1,1,[],[],list(),..
    scs_m_1,[],list(),"h",[],[%f,%f],"",0,0,list())
      gr_i='xstringb(orig(1),orig(2),''freq_div'',sz(1),sz(2),''fill'')';
      x=standard_define([2 2],model,[],gr_i)
    end
    endfunction