Revision 1287 trunk/src/linad99/df13fun.cpp

df13fun.cpp (revision 1287)
300 300
 * Description not yet available.
301 301
 * \param
302 302
 */
303
  df1_three_variable operator - (const df1_three_variable& v)
304
  {
305
    df1_three_variable z;
303
df1_three_variable operator-(const df1_three_variable& v)
304
{
305
  df1_three_variable z;
306 306

  
307
    *z.get_u() =- *v.get_u();
308
    *z.get_u_x() =- *v.get_u_x();
309
    *z.get_u_y() =- *v.get_u_y();
310
    *z.get_u_z() =- *v.get_u_z();
307
  *z.get_u() = -(*v.get_u());
308
  *z.get_u_x() = -(*v.get_u_x());
309
  *z.get_u_y() = -(*v.get_u_y());
310
  *z.get_u_z() = -(*v.get_u_z());
311 311

  
312
    return z;
313
  }
312
  return z;
313
}
314 314

  
315 315
/**
316 316
 * Description not yet available.
......
478 478
    df1_three_variable z;
479 479
    double u=::sqrt(*x.get_u());
480 480
    *z.get_u()=u;
481
    double xinv=1.0/(*x.get_u());
481
    //double xinv=1.0/(*x.get_u());
482 482
    double zp=0.5/u;
483 483

  
484

  
485 484
    set_derivatives(z,x,u,zp);
486 485

  
487 486
    return z;
......
496 495
    df1_three_variable z;
497 496
    double cx=value(x);
498 497
    double d=1.0/(1+square(cx));
499
    double d2=square(d);
498
    //double d2=square(d);
500 499
    double u=::atan(cx);
501 500
    *z.get_u()=u;
502 501
    double zp=d;
......
530 529
    double u=::tan(*x.get_u());
531 530
    *z.get_u()=u;
532 531
    double v=1.0/::cos(*x.get_u());
533
    double w=::sin(*x.get_u());
532
    //double w=::sin(*x.get_u());
534 533
    double v2=v*v;
535 534
    double zp=v2;
536 535

  

Also available in: Unified diff