Jspice3
timesder.c
Go to the documentation of this file.
1 /**********
2 Copyright 1990 Regents of the University of California. All rights reserved.
3 Author: 1989 Jaijeet S. Roychowdhury
4 **********/
5 
6 #include "spice.h"
7 #include <math.h>
8 
9 #define JOB char
10 #include "distodef.h"
11 
12 /*
13  * TimesDeriv computes the partial derivatives of the x*k
14  * function where the argument to the function is itself a
15  * function of three variables p, q, and r. k is a constant.
16  */
17 
18 void
19 TimesDeriv(new, old, k)
20 Dderivs *old, *new;
21 double k;
22 {
23 
24 new->value = k* old->value;
25 new->d1_p = k*old->d1_p;
26 new->d1_q = k*old->d1_q;
27 new->d1_r = k*old->d1_r;
28 new->d2_p2 = k*old->d2_p2;
29 new->d2_q2 = k*old->d2_q2;
30 new->d2_r2 = k*old->d2_r2;
31 new->d2_pq = k*old->d2_pq;
32 new->d2_qr = k*old->d2_qr;
33 new->d2_pr = k*old->d2_pr;
34 new->d3_p3 =
35  k*old->d3_p3
36  ;
37 new->d3_q3 =
38  k*old->d3_q3
39  ;
40 new->d3_r3 =
41  k*old->d3_r3
42  ;
43 new->d3_p2r =
44  k*old->d3_p2r
45  ;
46 new->d3_p2q =
47  k*old->d3_p2q
48  ;
49 new->d3_q2r =
50  k*old->d3_q2r
51  ;
52 new->d3_pq2 =
53  k*old->d3_pq2
54  ;
55 new->d3_pr2 =
56  k*old->d3_pr2
57  ;
58 new->d3_qr2 =
59  k*old->d3_qr2
60  ;
61 new->d3_pqr =
62  k*old->d3_pqr
63  ;
64 
65 }
void TimesDeriv(Dderivs *new, Dderivs *old, double k)
Definition: timesder.c:19
double value
Definition: distodef.h:66