%Parser V1.0
%Input Spice Deck:  C:\Users\sudhirk\Desktop\Netlist_4.txt
%Equation Type:     NODAL
%Datum Node:        0

%*****************************************************************************
%                      Component Values:
r1 = 4;
r2 = 12;
Q1IS = 1e-016;
Q1BF = 100;
Q1BR = 1;
Q1N = -1.25262e-058;

%*****************************************************************************

%                      Circuit Equations: 

F(1) =  (X(2)-X(3))/r1 + (-Q1IS )*(exp(-Q1N*(X(1)-X(2))) -1) + (Q1IS /Q1BR )*(1+Q1BR )*(exp(-Q1N*(X(4)-X(2))) -1) + (Q1IS /Q1BF )*(1+Q1BF )*(exp(-Q1N*(X(1)-X(2))) -1) - ( Q1IS )*(exp(-Q1N*(X(4)-X(2))) -1) ;

F(2) =  (X(1))/r2 + (-Q1IS /Q1BF )*(1+Q1BF )*(exp(-Q1N*(X(1)-X(2))) -1) - (- Q1IS )*(exp(-Q1N*(X(4)-X(2))) -1) ;

F(3) =  (X(3)) -1;

F(4) =  (X(4)) -1;

%*****************************************************************************

%                      Jacobians: 

JAC(1, 2) =  1/r1 + ( - Q1IS * Q1N)*(exp(-Q1N*(X(1) - X(2)))) + (Q1IS * Q1N / Q1BR )*(1 + Q1BR )*(exp(-Q1N*(X(4)-X(2)))) + (Q1IS * Q1N / Q1BF )*(1 + Q1BF )*(exp(-Q1N*(X(1) - X(2)))) - (Q1IS * Q1N)*(exp(-Q1N*(X(4) - X(2)))) ;

JAC(1, 3) =  (-1/r1) + 0 ;

JAC(1, 1) =  0 + (Q1IS * Q1N)*(exp(-Q1N*(X(1) - X(2)))) - (Q1IS * Q1N / Q1BF)*(1 + Q1BF)*(exp(-Q1N*(X(1) - X(2)))) ;

JAC(1, 4) =  0 + ( - Q1IS * Q1N / Q1BR)*(1 + Q1BR)*(exp(-Q1N*(X(4) - X(2)))) + (Q1IS * Q1N)*(exp(-Q1N*(X(4) - X(2)))) ;

JAC(2, 2) =  0 + ( - Q1IS * Q1N / Q1BF)*(1 + Q1BF)*(exp(-Q1N*(X(1)-X(2)))) + (Q1IS * Q1N)*(exp(-Q1N*(X(4) - X(2)))) ;

JAC(2, 3) =  0 + 0 ;

JAC(2, 1) =  1/r2 + (Q1IS * Q1N / Q1BF)*(1 + Q1BF)*(exp(-Q1N*(X(1) - X(2)))) ;

JAC(2, 4) =  0 + ( -  Q1IS * Q1N)*(exp(-Q1N*(X(4) - X(2)))) ;

JAC(3, 2) = 0;

JAC(3, 3) = 1;

JAC(3, 1) = 0;

JAC(3, 4) = 0;

JAC(4, 2) = 0;

JAC(4, 3) = 0;

JAC(4, 1) = 0;

JAC(4, 4) = 1;
