dloadfns.c

ngspice又一个电子CAD仿真软件代码.功能更全

	p->r2h11x,p->i2h11x,
						p->h2f1f2x,p->ih2f1f2x,
	p->h2f1f2x,p->ih2f1f2x);
	temp +=
	      S2v2F12(p->cyy,p->r1h1y,p->i1h1y,
	p->r1h1y,p->i1h1y,
						p->r1h2y,p->i1h2y,
	p->r1h2y,p->i1h2y,
						p->r2h11y,p->i2h11y,
	p->r2h11y,p->i2h11y,
						p->h2f1f2y,p->ih2f1f2y,
	p->h2f1f2y,p->ih2f1f2y);
	temp +=
	      S2v2F12(p->czz,p->r1h1z,p->i1h1z,
	p->r1h1z,p->i1h1z,
						p->r1h2z,p->i1h2z,
	p->r1h2z,p->i1h2z,
						p->r2h11z,p->i2h11z,
	p->r2h11z,p->i2h11z,
						p->h2f1f2z,p->ih2f1f2z,
	p->h2f1f2z,p->ih2f1f2z);
	temp +=
              S2v2F12(p->cxy,p->r1h1x,p->i1h1x,
	p->r1h1y,p->i1h1y,
						p->r1h2x,p->i1h2x,
	p->r1h2y,p->i1h2y,
						p->r2h11x,p->i2h11x,
	p->r2h11y,p->i2h11y,
						p->h2f1f2x,p->ih2f1f2x,
	p->h2f1f2y,p->ih2f1f2y);
	      temp +=
	      S2v2F12(p->cyz,p->r1h1y,p->i1h1y,
	p->r1h1z,p->i1h1z,
						p->r1h2y,p->i1h2y,
	p->r1h2z,p->i1h2z,
						p->r2h11y,p->i2h11y,
	p->r2h11z,p->i2h11z,
						p->h2f1f2y,p->ih2f1f2y,
	p->h2f1f2z,p->ih2f1f2z);
	temp +=
	      S2v2F12(p->cxz,p->r1h1x,p->i1h1x,
	p->r1h1z,p->i1h1z,
						p->r1h2x,p->i1h2x,
	p->r1h2z,p->i1h2z,
						p->r2h11x,p->i2h11x,
	p->r2h11z,p->i2h11z,
						p->h2f1f2x,p->ih2f1f2x,
	p->h2f1f2z,p->ih2f1f2z);
	temp +=
	      S3v2F12(p->cxxx,p->r1h1x,
	p->i1h1x,p->r1h1x,p->i1h1x,p->r1h1x,p->i1h1x,
						p->r1h2x,p->i1h2x,
	p->r1h2x,p->i1h2x,p->r1h2x,p->i1h2x)
	      +S3v2F12(p->cyyy,p->r1h1y,
	p->i1h1y,p->r1h1y,p->i1h1y,p->r1h1y,p->i1h1y,
						p->r1h2y,p->i1h2y,
	p->r1h2y,p->i1h2y,p->r1h2y,p->i1h2y);
	      temp +=
	      S3v2F12(p->czzz,p->r1h1z,
	p->i1h1z,p->r1h1z,p->i1h1z,p->r1h1z,p->i1h1z,
						p->r1h2z,p->i1h2z,
	p->r1h2z,p->i1h2z,p->r1h2z,p->i1h2z)
	      +S3v2F12(p->cxxy,p->r1h1x,
	p->i1h1x,p->r1h1x,p->i1h1x,p->r1h1y,p->i1h1y,
						p->r1h2x,p->i1h2x,
	p->r1h2x,p->i1h2x,p->r1h2y,p->i1h2y);
	temp +=
	      S3v2F12(p->cxxz,p->r1h1x,
	p->i1h1x,p->r1h1x,p->i1h1x,p->r1h1z,p->i1h1z,
						p->r1h2x,p->i1h2x,
	p->r1h2x,p->i1h2x,p->r1h2z,p->i1h2z)
	      +S3v2F12(p->cxyy,p->r1h1x,
	p->i1h1x,p->r1h1y,p->i1h1y,p->r1h1y,p->i1h1y,
						p->r1h2x,p->i1h2x,
	p->r1h2y,p->i1h2y,p->r1h2y,p->i1h2y);
	      temp +=
	      S3v2F12(p->cyyz,p->r1h1y,
	p->i1h1y,p->r1h1y,p->i1h1y,p->r1h1z,p->i1h1z,
						p->r1h2y,p->i1h2y,
	p->r1h2y,p->i1h2y,p->r1h2z,p->i1h2z)
	      +S3v2F12(p->cxzz,p->r1h1x,
	p->i1h1x,p->r1h1z,p->i1h1z,p->r1h1z,p->i1h1z,
						p->r1h2x,p->i1h2x,
	p->r1h2z,p->i1h2z,p->r1h2z,p->i1h2z);
	temp +=
	      S3v2F12(p->cyzz,p->r1h1y,
	p->i1h1y,p->r1h1z,p->i1h1z,p->r1h1z,p->i1h1z,
						p->r1h2y,p->i1h2y,
	p->r1h2z,p->i1h2z,p->r1h2z,p->i1h2z)
	      +S3v2F12(p->cxyz,p->r1h1x,
	p->i1h1x,p->r1h1y,p->i1h1y,p->r1h1z,p->i1h1z,
						p->r1h2x,p->i1h2x,
	p->r1h2y,p->i1h2y,p->r1h2z,p->i1h2z);
						
	return(temp/3.); /* divided by 3 to get kernel (otherwise we get 3*kernel) */
}

double
DFi2F12(DpassStr *p)
            
				/* 40 vars - 16 + 6 + 6 + 6 + 6 */
{
double temp;

	temp = S2i2F12(p->cxx,p->r1h1x,p->i1h1x,
	p->r1h1x,p->i1h1x,
						p->r1h2x,p->i1h2x,
	p->r1h2x,p->i1h2x,
						p->r2h11x,p->i2h11x,
	p->r2h11x,p->i2h11x,
						p->h2f1f2x,p->ih2f1f2x,
	p->h2f1f2x,p->ih2f1f2x);
	temp +=
	      S2i2F12(p->cyy,p->r1h1y,p->i1h1y,
	p->r1h1y,p->i1h1y,
						p->r1h2y,p->i1h2y,
	p->r1h2y,p->i1h2y,
						p->r2h11y,p->i2h11y,
	p->r2h11y,p->i2h11y,
						p->h2f1f2y,p->ih2f1f2y,
	p->h2f1f2y,p->ih2f1f2y);
	temp +=
	      S2i2F12(p->czz,p->r1h1z,p->i1h1z,
	p->r1h1z,p->i1h1z,
						p->r1h2z,p->i1h2z,
	p->r1h2z,p->i1h2z,
						p->r2h11z,p->i2h11z,
	p->r2h11z,p->i2h11z,
						p->h2f1f2z,p->ih2f1f2z,
	p->h2f1f2z,p->ih2f1f2z);
	      temp +=
              S2i2F12(p->cxy,p->r1h1x,p->i1h1x,
	p->r1h1y,p->i1h1y,
						p->r1h2x,p->i1h2x,
	p->r1h2y,p->i1h2y,
						p->r2h11x,p->i2h11x,
	p->r2h11y,p->i2h11y,
						p->h2f1f2x,p->ih2f1f2x,
	p->h2f1f2y,p->ih2f1f2y);
	temp +=
	      S2i2F12(p->cyz,p->r1h1y,p->i1h1y,
	p->r1h1z,p->i1h1z,
						p->r1h2y,p->i1h2y,
	p->r1h2z,p->i1h2z,
						p->r2h11y,p->i2h11y,
	p->r2h11z,p->i2h11z,
						p->h2f1f2y,p->ih2f1f2y,
	p->h2f1f2z,p->ih2f1f2z);
	temp +=
	      S2i2F12(p->cxz,p->r1h1x,p->i1h1x,
	p->r1h1z,p->i1h1z,
						p->r1h2x,p->i1h2x,
	p->r1h2z,p->i1h2z,
						p->r2h11x,p->i2h11x,
	p->r2h11z,p->i2h11z,
						p->h2f1f2x,p->ih2f1f2x,
	p->h2f1f2z,p->ih2f1f2z);
	temp +=
	      S3i2F12(p->cxxx,p->r1h1x,
	p->i1h1x,p->r1h1x,p->i1h1x,p->r1h1x,p->i1h1x,
						p->r1h2x,p->i1h2x,
	p->r1h2x,p->i1h2x,p->r1h2x,p->i1h2x);
	      temp +=
	      S3i2F12(p->cyyy,p->r1h1y,
	p->i1h1y,p->r1h1y,p->i1h1y,p->r1h1y,p->i1h1y,
						p->r1h2y,p->i1h2y,
	p->r1h2y,p->i1h2y,p->r1h2y,p->i1h2y)
	      +S3i2F12(p->czzz,p->r1h1z,
	p->i1h1z,p->r1h1z,p->i1h1z,p->r1h1z,p->i1h1z,
						p->r1h2z,p->i1h2z,
	p->r1h2z,p->i1h2z,p->r1h2z,p->i1h2z);
	temp +=
	      S3i2F12(p->cxxy,p->r1h1x,
	p->i1h1x,p->r1h1x,p->i1h1x,p->r1h1y,p->i1h1y,
						p->r1h2x,p->i1h2x,
	p->r1h2x,p->i1h2x,p->r1h2y,p->i1h2y)
	      +S3i2F12(p->cxxz,p->r1h1x,
	p->i1h1x,p->r1h1x,p->i1h1x,p->r1h1z,p->i1h1z,
						p->r1h2x,p->i1h2x,
	p->r1h2x,p->i1h2x,p->r1h2z,p->i1h2z);
	temp +=
	      S3i2F12(p->cxyy,p->r1h1x,
	p->i1h1x,p->r1h1y,p->i1h1y,p->r1h1y,p->i1h1y,
						p->r1h2x,p->i1h2x,
	p->r1h2y,p->i1h2y,p->r1h2y,p->i1h2y)
	      +S3i2F12(p->cyyz,p->r1h1y,
	p->i1h1y,p->r1h1y,p->i1h1y,p->r1h1z,p->i1h1z,
						p->r1h2y,p->i1h2y,
	p->r1h2y,p->i1h2y,p->r1h2z,p->i1h2z);
	      temp +=
	      S3i2F12(p->cxzz,p->r1h1x,
	p->i1h1x,p->r1h1z,p->i1h1z,p->r1h1z,p->i1h1z,
						p->r1h2x,p->i1h2x,
	p->r1h2z,p->i1h2z,p->r1h2z,p->i1h2z);
	      temp += S3i2F12(p->cyzz,p->r1h1y,
	p->i1h1y,p->r1h1z,p->i1h1z,p->r1h1z,p->i1h1z,
						p->r1h2y,p->i1h2y,
	p->r1h2z,p->i1h2z,p->r1h2z,p->i1h2z)
	      +S3i2F12(p->cxyz,p->r1h1x,
	p->i1h1x,p->r1h1y,p->i1h1y,p->r1h1z,p->i1h1z,
						p->r1h2x,p->i1h2x,
	p->r1h2y,p->i1h2y,p->r1h2z,p->i1h2z);
						
	return(temp/3.); /* divided by 3 to get kernel (otherwise we get 3*kernel) */
}

double
D1n2F1(double cxx, double r1h1x, double i1h1x)

			/* 12 variables */
           
                   
{
double temp;
	
	temp = S2v2F1(cxx,r1h1x,i1h1x,r1h1x,i1h1x);

	       return(temp);
}

double
D1n3F1(double cxx, double cxxx, double r1h1x, double i1h1x, double r2h11x, double i2h11x)
{
double temp;

	temp = S2v3F1(cxx,r1h1x,i1h1x,r1h1x,i1h1x,r2h11x,i2h11x,r2h11x,i2h11x)
	      +S3v3F1(cxxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h1x,i1h1x);

	      return(temp);
}


double
D1nF12(double cxx, double r1h1x, double i1h1x, double r1h2x, double i1h2x)

			/* 18 args - 6 + 6 + 6	*/
           
                   
                   
{
double temp;

	temp = S2vF12(cxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h2x,i1h2x,r1h2x,i1h2x);

	      return(0.5*temp);
}


double
D1n2F12(double cxx, double cxxx, double r1h1x, double i1h1x, double r1h2x, double i1h2x, double r2h11x, double i2h11x, double h2f1f2x, double ih2f1f2x)

				/* 40 vars - 16 + 6 + 6 + 6 + 6 */
                
                   
                   
                     
                        
{
double temp;

	temp = S2v2F12(cxx,r1h1x,i1h1x,r1h1x,i1h1x,
						r1h2x,i1h2x,r1h2x,i1h2x,
						r2h11x,i2h11x,r2h11x,i2h11x,
						h2f1f2x,ih2f1f2x,h2f1f2x,ih2f1f2x)
	      +S3v2F12(cxxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h1x,i1h1x,
						r1h2x,i1h2x,r1h2x,i1h2x,r1h2x,i1h2x);
						
	return(temp/3.); /* divided by 3 to get kernel (otherwise we get 3*kernel) */
}


double
D1i2F1(double cxx, double r1h1x, double i1h1x)

			/* 12 variables */
           
                   
{
double temp;
	
	temp = S2i2F1(cxx,r1h1x,i1h1x,r1h1x,i1h1x);

	       return(temp);
}


double
D1i3F1(double cxx, double cxxx, double r1h1x, double i1h1x, double r2h11x, double i2h11x)
{
double temp;

	temp = S2i3F1(cxx,r1h1x,i1h1x,r1h1x,i1h1x,r2h11x,i2h11x,r2h11x,i2h11x)
	      +S3i3F1(cxxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h1x,i1h1x);

	      return(temp);
}


double
D1iF12(double cxx, double r1h1x, double i1h1x, double r1h2x, double i1h2x)

			/* 18 args - 6 + 6 + 6	*/
           
                   
                   
{
double temp;

	temp = S2iF12(cxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h2x,i1h2x,r1h2x,i1h2x);

	      return(0.5*temp);
}


double
D1i2F12(double cxx, double cxxx, double r1h1x, double i1h1x, double r1h2x, double i1h2x, double r2h11x, double i2h11x, double h2f1f2x, double ih2f1f2x)

				/* 40 vars - 16 + 6 + 6 + 6 + 6 */
                
                   
                   
                     
                        
{
double temp;

	temp = S2i2F12(cxx,r1h1x,i1h1x,r1h1x,i1h1x,
						r1h2x,i1h2x,r1h2x,i1h2x,
						r2h11x,i2h11x,r2h11x,i2h11x,
						h2f1f2x,ih2f1f2x,h2f1f2x,ih2f1f2x)
	      +S3i2F12(cxxx,r1h1x,i1h1x,r1h1x,i1h1x,r1h1x,i1h1x,
						r1h2x,i1h2x,r1h2x,i1h2x,r1h2x,i1h2x);
						
	return(temp/3.); /* divided by 3 to get kernel (otherwise we get 3*kernel) */
}