#include "spice.h"
#include <math.h>
#include "distodef.h"
Go to the source code of this file.
Definition at line 19 of file sqrtder.c.
26 new->value = sqrt(temp.
value);
27 if (temp.
value == 0.0)
51 new->d1_p = 0.5*temp.
d1_p/
new->value;
52 new->d1_q = 0.5*temp.
d1_q/
new->value;
53 new->d1_r = 0.5*temp.
d1_r/
new->value;
60 new->d3_p3 = 0.5*(temp.
d3_p3/
new->value - 0.5/(temp.
value*
new->value)*(-1.5/temp.
value*
63 new->d3_q3 = 0.5*(temp.
d3_q3/
new->value - 0.5/(temp.
value*
new->value)*(-1.5/temp.
value*
66 new->d3_r3 = 0.5*(temp.
d3_r3/
new->value - 0.5/(temp.
value*
new->value)*(-1.5/temp.
value*
69 new->d3_p2r = 0.5*(temp.
d3_p2r/
new->value - 0.5/(temp.
value*
new->value)*(-1.5/temp.
value*
72 new->d3_p2q = 0.5*(temp.
d3_p2q/
new->value - 0.5/(temp.
value*
new->value)*(-1.5/temp.
value*
75 new->d3_q2r = 0.5*(temp.
d3_q2r/
new->value - 0.5/(temp.
value*
new->value)*(-1.5/temp.
value*
78 new->d3_pq2 = 0.5*(temp.
d3_pq2/
new->value - 0.5/(temp.
value*
new->value)*(-1.5/temp.
value*
81 new->d3_pr2 = 0.5*(temp.
d3_pr2/
new->value - 0.5/(temp.
value*
new->value)*(-1.5/temp.
value*
84 new->d3_qr2 = 0.5*(temp.
d3_qr2/
new->value - 0.5/(temp.
value*
new->value)*(-1.5/temp.
value*
87 new->d3_pqr = 0.5*(temp.
d3_pqr/
new->value - 0.5/(temp.
value*
new->value)*(-1.5/temp.
value*
void EqualDeriv(Dderivs *new, Dderivs *old)