Interfacing function
eng

##
NPN

### File content

    function [x,y,typ]=NPN(job,arg1,arg2)
    // Copyright INRIA
    // the automatically generated interface block for Modelica NPN.mo model
    //   - avec un dialogue de saisie de parametre
    x=[];y=[];typ=[];
    select job
    case 'plot' then
      standard_draw(arg1,%f,NPN_draw_ports)
    case 'getinputs' then
      [x,y,typ]=NPN_inputs(arg1)
    case 'getoutputs' then
      [x,y,typ]=NPN_outputs(arg1)
    case 'getorigin' then
      [x,y]=standard_origin(arg1)
    case 'set' then
      x=arg1;
      graphics=arg1.graphics;exprs=graphics.exprs
      model=arg1.model;
    x=arg1
    exprs=x.graphics.exprs
    while %t do
      [ok,Bf,Br,Is,Vak,Tauf,Taur,Ccs,Cje,Cjc,Phie,Me,Phic,Mc,Gbc,Gbe,Vt,EMinMax,exprs]=getvalue(["Set NPN block parameters:";""],["Bf  : Forward beta";"Br  : Reverse beta";"Is  : Transport saturation current";"Vak : Early voltage (inverse), 1/Volt";"Tauf: Ideal forward transit time";"Taur: Ideal reverse transit time";"Ccs : Collector-substrat(ground) cap.";"Cje : Base-emitter zero bias depletion cap.";"Cjc : Base-coll. zero bias depletion cap.";"Phie: Base-emitter diffusion voltage";"Me  : Base-emitter gradation exponent";"Phic: Base-collector diffusion voltage";"Mc  : Base-collector gradation exponent";"Gbc : Base-collector conductance";"Gbe : Base-emitter conductance";"Vt  : Voltage equivalent of temperature";"EMinmax: if x > EMinMax, the exp(x) is linearized"],list("vec",1,"vec",1,"vec",1,"vec",1,"vec",1,"vec",1,"vec",1,"vec",1,"vec",1,"vec",1,"vec",1,"vec",1,"vec",1,"vec",1,"vec",1,"vec",1,"vec",1),exprs)
      if ~ok then break,end
      x.model.equations.parameters(2)=list(Bf,Br,Is,Vak,Tauf,Taur,Ccs,Cje,Cjc,Phie,Me,Phic,Mc,Gbc,Gbe,Vt,EMinMax)
      x.graphics.exprs=exprs
      break
    end
     case 'define' then
    ModelName="NPN"
    PrametersValue=[50;0.1;0;0.02;1.200D-10;5.000D-09;1.000D-12;4.000D-13;5.000D-13;0.8;0.4;0.8;0.333;1.000D-15;1.000D-15;0.02585;40]
    ParametersName=["Bf";"Br";"Is";"Vak";"Tauf";"Taur";"Ccs";"Cje";"Cjc";"Phie";"Me";"Phic";"Mc";"Gbc";"Gbe";"Vt";"EMinMax"]
    model=scicos_model()
    Typein=[];Typeout=[];MI=[];MO=[]
    P=[100,90,-2,0; 0,50,2,0; 100,10,-2,0]
    PortName=["C";"B";"E"]
    for i=1:size(P,'r')
      if P(i,3)==1  then  Typein= [Typein; 'E'];MI=[MI;PortName(i)];end
      if P(i,3)==2  then  Typein= [Typein; 'I'];MI=[MI;PortName(i)];end
      if P(i,3)==-1 then  Typeout=[Typeout;'E'];MO=[MO;PortName(i)];end
      if P(i,3)==-2 then  Typeout=[Typeout;'I'];MO=[MO;PortName(i)];end
    end
    model=scicos_model()
    mo=modelica()
    model.sim=ModelName;
    mo.inputs=MI;
    mo.outputs=MO;
    model.rpar=PrametersValue;
    mo.parameters=list(ParametersName,PrametersValue,zeros(ParametersName));
    exprs=["50";"0.1";"1.e-16";"0.02";"0.12e-9";"5e-9";"1e-12";"0.4e-12";"0.5e-12";"0.8";"0.4";"0.8";"0.333";"1e-15";"1e-15";"0.02585";"40"]
    gr_i=["";"if orient then";"  xpolys(orig(1)+[0.45,0.45,0.65,0.45,0.65,1;0.45,0,0.45,0.65,1,0.65]*sz(1),orig(2)+[0.8333333,0.5,0.9166667,0.4166667,0.0833333,0.9166667;0.1666667,0.5,0.5833333,0.0833333,0.0833333,0.9166667]*sz(2),[1,1,1,1,1,1])";"  xset(''color'',0)";"  xfpolys(orig(1)+[0.65;0.62;0.58;0.65]*sz(1),orig(2)+[0.0833333;0.2;0.1333333;0.0833333]*sz(2),2)";"else";"  xpolys(orig(1)+[0.55,0.55,0.35,0.55,0.35,0;0.55,1,0.55,0.35,0,0.35]*sz(1),orig(2)+[0.8333333,0.5,0.9166667,0.4166667,0.0833333,0.9166667;0.1666667,0.5,0.5833333,0.0833333,0.0833333,0.9166667]*sz(2),[1,1,1,1,1,1])";"  xset(''color'',0)";"  xfpolys(orig(1)+[0.35;0.38;0.42;0.35]*sz(1),orig(2)+[0.0833333;0.2;0.1333333;0.0833333]*sz(2),2)";"end"]
    model.blocktype='c'
    model.dep_ut=[%f %t]
    mo.model=ModelName
    model.equations=mo
    model.in=ones(size(MI,'*'),1)
    model.out=ones(size(MO,'*'),1)
    x=standard_define([2,1.2],model,exprs,list(gr_i,0))
    x.graphics.in_implicit=Typein;
    x.graphics.out_implicit=Typeout;
    end
    endfunction
    //=========================
    function NPN_draw_ports(o)
      [orig,sz,orient]=(o.graphics.orig,o.graphics.sz,o.graphics.flip)
      xset('pattern',default_color(0))
      // draw input/output ports
      //------------------------
      // [x_in_Icon,y_in_Icon,type(2=imp_in/-2:imp_out/1=exp_input/-1_exp_output),orientation(degree)]
      P=[100,90,-2,0;0,50,2,0;100,10,-2,0]

      //============================
      // setting the input/ outputs and direction
      // implicit port: if it's located in the right it's output and while,
      // else black
      // explicit ports:

      in=  [-1 -1; 1  0;-1  1; -1 -1; -1 0]*diag([xf/28,yf/28]) ;// left_triangle
      out= [-1 -1; 1  0;-1  1; -1 -1;  1 0]*diag([xf/28,yf/28]) ;// downward_triangle
      in2= [-1 -1; 1 -1; 1  1; -1  1; -1 -1; 0 0]*diag([xf/28,yf/28])
      out2=[ 1  1;-1  1;-1 -1;  1 -1;  1  1; 0 0]*diag([xf/28,yf/28])

      xset('pattern',default_color(1))
      xset('thickness',1)

      if orient then
        for i=1:size(P,'r')
          theta=P(i,4)*%pi/180;
          R=[cos(theta),sin(theta);sin(-theta),cos(theta)];

          if P(i,3)==1 then // explicit
    	inR=in*R;
    	xfpoly(orig(1)+inR(:,1)+P(i,1)*sz(1)/100,orig(2)+inR(:,2)+P(i,2)*sz(2)/100,1)
          end

          if  P(i,3)==-1 then
    	outR=out*R;
    	xfpoly(orig(1)+outR(:,1)+P(i,1)*sz(1)/100,orig(2)+outR(:,2)+P(i,2)*sz(2)/100,1)
          end

          if P(i,3)==2 then  // deciding the port's color: black, if x<sz(1)/2 else white.
    	in2R=in2*R;
    	xfpoly(orig(1)+in2R(:,1)+P(i,1)*sz(1)/100,orig(2)+  in2R(:,2)+P(i,2)*sz(2)/100,1)
          end

          if P(i,3)==-2 then  // deciding the port's color: black, if x<sz(1)/2 else white.
    	out2R=out2*R;
    	xpoly(orig(1)+out2R(:,1)+P(i,1)*sz(1)/100,orig(2)+  out2R(:,2)+P(i,2)*sz(2)/100, 'lines',1)
          end
        end
      else
        for i=1:size(P,'r')
          theta=P(i,4)*%pi/180;
          R=[cos(theta),sin(theta);sin(-theta),cos(theta)];

          if P(i,3)==1 then // explicit
    	inR=in*R;
    	xfpoly(orig(1)+sz(1)-inR(:,1)-P(i,1)*sz(1)/100,orig(2)+inR(:,2)+P(i,2)*sz(2)/100,1)
          end
          if P(i,3)==-1 then // explicit
    	outR=out*R;
    	xfpoly(orig(1)+sz(1)-outR(:,1)-P(i,1)*sz(1)/100,orig(2)+outR(:,2)+P(i,2)*sz(2)/100,1)
          end

          if P(i,3)==2 then  // deciding the port's color: black, if x<sz(1)/2 else white.
    	 in2R=in2*R;
              xfpoly(orig(1)+sz(1)-in2R(:,1)-P(i,1)*sz(1)/100,orig(2)+  in2R(:,2)+P(i,2)*sz(2)/100,1)
          end
          if P(i,3)==-2 then  // deciding the port's color: black, if x<sz(1)/2 else white.
    	out2R=out2*R;
    	xpoly(orig(1)+sz(1)-out2R(:,1)-P(i,1)*sz(1)/100,orig(2)+  out2R(:,2)+P(i,2)*sz(2)/100, 'lines',1)
          end
        end
      end
    endfunction
    //=========================
    function [x,y,typ]=NPN_inputs(o)
    // Copyright INRIA
      xf=60
      yf=40
      [orig,sz,orient]=(o.graphics.orig,o.graphics.sz,o.graphics.flip)
      //[orig,sz,orient]=o(2)(1:3);
      inp=size(o.model.in,1);clkinp=size(o.model.evtin,1);

      // [x_in_Icon,y_in_Icon,type(2=imp/1=exp_input/-1_exp_output),orientation(degree)]
      P=[100,90,-2,0;0,50,2,0;100,10,-2,0]
      in=  [-1 -1; 1  0;-1  1; -1 -1; -1 0]*diag([xf/28,yf/28]) ;// left_triangle
      out= [-1 -1; 1  0;-1  1; -1 -1;  1 0]*diag([xf/28,yf/28]) ;// downward_triangle
      in2= [-1 -1; 1 -1; 1  1; -1  1; -1 -1; 0 0]*diag([xf/28,yf/28])
      out2=[ 1  1;-1  1;-1 -1;  1 -1;  1  1; 0 0]*diag([xf/28,yf/28])

      x=[];y=[];typ=[]
      if orient then
        for i=1:size(P,'r')
          theta=P(i,4)*%pi/180;
          R=[cos(theta),sin(theta);sin(-theta),cos(theta)];
          if (P(i,3))==1 then // explicit_input
    	inR=in($,:)*R;
             x=[x,orig(1)+inR(:,1)+P(i,1)*sz(1)/100];
    	 y=[y,orig(2)+inR(:,2)+P(i,2)*sz(2)/100];
    	 typ=[typ,1];
          end
          if(P(i,3)==2) then  // implicit
    	in2R=in2($,:)*R;
    	x=[x,orig(1)+in2R(:,1)+P(i,1)*sz(1)/100];// Black
    	y=[y,orig(2)+in2R(:,2)+P(i,2)*sz(2)/100];
    	typ=[typ,2];
          end
        end
      else
        for i=1:size(P,'r')
          theta=P(i,4)*%pi/180;
         R=[cos(theta),sin(theta);sin(-theta),cos(theta)];
          if (P(i,3))==1 then // explicit_input
    	inR=in($,:)*R;
             x=[x,orig(1)+sz(1)-inR(:,1)-P(i,1)*sz(1)/100];
    	 y=[y,orig(2)+inR(:,2)+P(i,2)*sz(2)/100];
    	 typ=[typ,1];
          end
          if(P(i,3)==2) then  // implicit
    	in2R=in2($,:)*R;
    	x=[x,orig(1)+sz(1)-in2R(:,1)-P(i,1)*sz(1)/100];
    	y=[y,orig(2)+in2R(:,2)+P(i,2)*sz(2)/100];
    	typ=[typ,2];
          end
        end
      end

    endfunction
    //=========================
    function [x,y,typ]=NPN_outputs(o)
    // Copyright INRIA
      xf=60
      yf=40
      [orig,sz,orient]=(o.graphics.orig,o.graphics.sz,o.graphics.flip)
      out=size(o.model.out,1);clkout=size(o.model.evtout,1);
      P=[100,90,-2,0;0,50,2,0;100,10,-2,0]

      in=  [-1 -1; 1  0;-1  1; -1 -1; -1 0]*diag([xf/28,yf/28]) ;// left_triangle
      out= [-1 -1; 1  0;-1  1; -1 -1;  1 0]*diag([xf/28,yf/28]) ;// downward_triangle
      in2= [-1 -1; 1 -1; 1  1; -1  1; -1 -1; 0 0]*diag([xf/28,yf/28])
      out2=[ 1  1;-1  1;-1 -1;  1 -1;  1  1; 0 0]*diag([xf/28,yf/28])

      x=[];y=[];typ=[];
      if orient then
        for i=1:size(P,'r')
          theta=P(i,4)*%pi/180;
          R=[cos(theta),sin(theta);sin(-theta),cos(theta)];
          if (P(i,3))==-1 then // explicit_output
    	outR=out($,:)*R;
    	x=[x,orig(1)+outR(:,1)+P(i,1)*sz(1)/100];
    	y=[y,orig(2)+outR(:,2)+P(i,2)*sz(2)/100];
    	typ=[typ,1];
          end
          if(P(i,3)==-2) then  // implicit
    	out2R=out2($,:)*R;
    	x=[x,orig(1)+out2R(:,1)+P(i,1)*sz(1)/100];
    	y=[y,orig(2)+out2R(:,2)+P(i,2)*sz(2)/100];
    	typ=[typ,2];
          end
        end
      else
        for i=1:size(P,'r')
          theta=P(i,4)*%pi/180;
          R=[cos(theta),sin(theta);sin(-theta),cos(theta)];
          if (P(i,3))==-1 then // explicit_output
    	outR=out($,:)*R;
    	x=[x,orig(1)+sz(1)-outR(:,1)-P(i,1)*sz(1)/100];
    	y=[y,orig(2)+outR(:,2)+P(i,2)*sz(2)/100];
    	typ=[typ,1];
          end
          if(P(i,3)==-2) then  // implicit
    	out2R=out2($,:)*R;
    	x=[x,orig(1)+sz(1)-out2R(:,1)-P(i,1)*sz(1)/100];
    	y=[y,orig(2)+out2R(:,2)+P(i,2)*sz(2)/100];
    	typ=[typ,2];
          end
        end
      end

    endfunction