duandian.m

EDA程序： 将spice网表转化为用于计算电路各种参数所需要的相应稀疏矩阵。

function [num1,num2,datac,sizeall,matpt,rem] = duandian(rem,matpt,sizeall,type)
 [dataa,rem]=strtok(rem);
          dataa=upper(dataa);
if type==0
        dataa={'I',dataa};
        dataa=cell2mat(dataa);
 end
         
            renum=findpt(dataa,matpt);
         if (renum==0) &(strcmp(dataa,'0')==0) 
             sizeall=sizeall+1;
             num1=sizeall;
            matpt(sizeall).X=dataa;
          else
          num1=renum;
         end
         [datab,rem]=strtok(rem);
         datab=upper(datab);
if type==0
        datab={'I',datab};
        datab=cell2mat(datab);
 end       
         renum=findpt(datab,matpt) ;
          if (renum==0) &(strcmp(datab,'0')==0)
            sizeall=sizeall+1;
           num2=sizeall;
           matpt(sizeall).X=datab;
          else
           num2=renum;
          end
         if num1==0 && num2==0
             disp('warning! gnd-gnd');
         end
         
         [datac,rem]=strtok(rem);
           datac=upper(datac);
           rem=upper(rem);