25 new->value = tan(temp.
value);
27 new->d1_p = (1 +
new->value*
new->value)*temp.
d1_p;
28 new->d1_q = (1 + new->value*new->value)*temp.
d1_q;
29 new->d1_r = (1 +
new->value*
new->value)*temp.
d1_r;
30 new->d2_p2 = (1 + new->value*new->value)*temp.
d2_p2 + 2*
new->value*temp.
d1_p*
new->d1_p;
31 new->d2_q2 = (1 +
new->value*
new->value)*temp.
d2_q2 + 2*new->value*temp.
d1_q*new->d1_q;
32 new->d2_r2 = (1 + new->value*new->value)*temp.
d2_r2 + 2*
new->value*temp.
d1_r*
new->d1_r;
33 new->d2_pq = (1 +
new->value*
new->value)*temp.
d2_pq + 2*new->value*temp.
d1_p*new->d1_q;
34 new->d2_qr = (1 + new->value*new->value)*temp.
d2_qr + 2*
new->value*temp.
d1_q*
new->d1_r;
35 new->d2_pr = (1 +
new->value*
new->value)*temp.
d2_pr + 2*new->value*temp.
d1_p*new->d1_r;
36 new->d3_p3 = (1 + new->value*new->value)*temp.
d3_p3 +2*(
new->value*(
37 temp.
d2_p2*
new->d1_p + temp.
d2_p2*
new->d1_p +
new->d2_p2*
38 temp.
d1_p) + temp.
d1_p*new->d1_p*new->d1_p);
39 new->d3_q3 = (1 +
new->value*
new->value)*temp.
d3_q3 +2*( new->value*(
40 temp.
d2_q2*new->d1_q + temp.
d2_q2*new->d1_q + new->d2_q2*
41 temp.
d1_q) + temp.
d1_q*
new->d1_q*
new->d1_q);
42 new->d3_r3 = (1 +
new->value*
new->value)*temp.
d3_r3 +2*( new->value*(
43 temp.
d2_r2*new->d1_r + temp.
d2_r2*new->d1_r + new->d2_r2*
44 temp.
d1_r) + temp.
d1_r*
new->d1_r*
new->d1_r);
45 new->d3_p2r = (1 +
new->value*
new->value)*temp.
d3_p2r +2*( new->value*(
46 temp.
d2_p2*new->d1_r + temp.
d2_pr*new->d1_p + new->d2_pr*
47 temp.
d1_p) + temp.
d1_p*
new->d1_p*
new->d1_r);
48 new->d3_p2q = (1 +
new->value*
new->value)*temp.
d3_p2q +2*( new->value*(
49 temp.
d2_p2*new->d1_q + temp.
d2_pq*new->d1_p + new->d2_pq*
50 temp.
d1_p) + temp.
d1_p*
new->d1_p*
new->d1_q);
51 new->d3_q2r = (1 +
new->value*
new->value)*temp.
d3_q2r +2*( new->value*(
52 temp.
d2_q2*new->d1_r + temp.
d2_qr*new->d1_q + new->d2_qr*
53 temp.
d1_q) + temp.
d1_q*
new->d1_q*
new->d1_r);
54 new->d3_pq2 = (1 +
new->value*
new->value)*temp.
d3_pq2 +2*( new->value*(
55 temp.
d2_q2*new->d1_p + temp.
d2_pq*new->d1_q + new->d2_pq*
56 temp.
d1_q) + temp.
d1_q*
new->d1_q*
new->d1_p);
57 new->d3_pr2 = (1 +
new->value*
new->value)*temp.
d3_pr2 +2*( new->value*(
58 temp.
d2_r2*new->d1_p + temp.
d2_pr*new->d1_r + new->d2_pr*
59 temp.
d1_r) + temp.
d1_r*
new->d1_r*
new->d1_p);
60 new->d3_qr2 = (1 +
new->value*
new->value)*temp.
d3_qr2 +2*( new->value*(
61 temp.
d2_r2*new->d1_q + temp.
d2_qr*new->d1_r + new->d2_qr*
62 temp.
d1_r) + temp.
d1_r*
new->d1_r*
new->d1_q);
63 new->d3_pqr = (1 +
new->value*
new->value)*temp.
d3_pqr +2*( new->value*(
64 temp.
d2_pq*new->d1_r + temp.
d2_pr*new->d1_q + new->d2_qr*
65 temp.
d1_p) + temp.
d1_p*
new->d1_q*
new->d1_r);
void TanDeriv(Dderivs *new, Dderivs *old)
void EqualDeriv(Dderivs *new, Dderivs *old)