diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /support/dktools/dk3ct.c |
Initial commit
Diffstat (limited to 'support/dktools/dk3ct.c')
-rw-r--r-- | support/dktools/dk3ct.c | 108 |
1 files changed, 108 insertions, 0 deletions
diff --git a/support/dktools/dk3ct.c b/support/dktools/dk3ct.c new file mode 100644 index 0000000000..9ace2a196f --- /dev/null +++ b/support/dktools/dk3ct.c @@ -0,0 +1,108 @@ +/* + WARNING: This file was generated by dkct. + Changes you make here will be lost if dkct is run again! + You should modify the original source and run dkct on it. + Original source: dk3ct.ctr +*/ + +/* +Copyright (C) 2012-2017, Dirk Krause + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are met: + +* Redistributions of source code must retain the above copyright notice, + this list of conditions and the following disclaimer. +* Redistributions in binary form must reproduce the above opyright notice, + this list of conditions and the following disclaimer in the documentation + and/or other materials provided with the distribution. +* Neither the name of the author nor the names of contributors may be used + to endorse or promote products derived from this software without specific + prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS'' +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +ARE DISCLAIMED. +IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY +DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES +(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; +LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND +ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF +THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +*/ + +/** @file dk3ct.c The dk3ct module. +*/ + + +#line 46 "dk3ct.ctr" + +#include "dk3all.h" + + + + + +#line 52 "dk3ct.ctr" + + +double +dk3ct_2d_x(dk3_ct_2d_t const *ct, double x, int *ec) +{ + double back = 0.0; + + +#line 59 "dk3ct.ctr" + if(ct) { + back = dk3ma_d_add_ok( + dk3ma_d_mul_ok(ct->mx, x, ec), + ct->nx, + ec + ); + } + +#line 66 "dk3ct.ctr" + return back; +} + + + +double +dk3ct_2d_y(dk3_ct_2d_t const *ct, double y, int *ec) +{ + double back = 0.0; + + +#line 76 "dk3ct.ctr" + if(ct) { + back = dk3ma_d_add_ok( + dk3ma_d_mul_ok(ct->my, y, ec), + ct->ny, + ec + ); + } + +#line 83 "dk3ct.ctr" + return back; +} + + + +double +dk3ct_2d_r(dk3_ct_2d_t const *ct, double r, int *ec) +{ + double back = 0.0; + + +#line 93 "dk3ct.ctr" + if(ct) { + back = dk3ma_d_mul_ok(fabs(ct->mx), r, ec); + } + +#line 96 "dk3ct.ctr" + return back; +} + + |