Algol 68 Genie

prelude-mathlib.c

     
   1  //! @file prelude-mathlib.c
   2  //! @author J. Marcel van der Veer
   3  
   4  //! @section Copyright
   5  //!
   6  //! This file is part of Algol68G - an Algol 68 compiler-interpreter.
   7  //! Copyright 2001-2025 J. Marcel van der Veer [algol68g@xs4all.nl].
   8  
   9  //! @section License
  10  //!
  11  //! This program is free software; you can redistribute it and/or modify it 
  12  //! under the terms of the GNU General Public License as published by the 
  13  //! Free Software Foundation; either version 3 of the License, or 
  14  //! (at your option) any later version.
  15  //!
  16  //! This program is distributed in the hope that it will be useful, but 
  17  //! WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 
  18  //! or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for 
  19  //! more details. You should have received a copy of the GNU General Public 
  20  //! License along with this program. If not, see [http://www.gnu.org/licenses/].
  21  
  22  //! @section Synopsis
  23  //!
  24  //! Standard prelude definitions from GNU R math library.
  25  
  26  #include "a68g.h"
  27  #include "a68g-prelude.h"
  28  #include "a68g-prelude-mathlib.h"
  29  
  30  #if defined (HAVE_MATHLIB)
  31  
  32  void stand_mathlib (void)
  33  {
  34  // R specific special functions
  35    a68_idf (A68_EXT, "rdigamma", A68_MCACHE (proc_real_real), genie_R_digamma_real);
  36    a68_idf (A68_EXT, "rtrigamma", A68_MCACHE (proc_real_real), genie_R_trigamma_real);
  37    a68_idf (A68_EXT, "rtetragamma", A68_MCACHE (proc_real_real), genie_R_tetragamma_real);
  38    a68_idf (A68_EXT, "rpentagamma", A68_MCACHE (proc_real_real), genie_R_pentagamma_real);
  39    a68_idf (A68_EXT, "rpsigamma", A68_MCACHE (proc_real_real_real), genie_R_psigamma_real);
  40  // R distribution related functions
  41    MOID_T *m = A68_MCACHE (proc_real_real);
  42    a68_idf (A68_EXT, "rrt", m, genie_R_rt_real);
  43    a68_idf (A68_EXT, "rrchisq", m, genie_R_rchisq_real);
  44    a68_idf (A68_EXT, "rrexp", m, genie_R_rexp_real);
  45    a68_idf (A68_EXT, "rrgeom", m, genie_R_rgeom_real);
  46    a68_idf (A68_EXT, "rrpois", m, genie_R_rpois_real);
  47    a68_idf (A68_EXT, "rrsignrank", m, genie_R_rsignrank_real);
  48    m = A68_MCACHE (proc_real_real_real);
  49    a68_idf (A68_EXT, "rrbeta", m, genie_R_rbeta_real);
  50    a68_idf (A68_EXT, "rrbinom", m, genie_R_rbinom_real);
  51    a68_idf (A68_EXT, "rrcauchy", m, genie_R_rcauchy_real);
  52    a68_idf (A68_EXT, "rrf", m, genie_R_rf_real);
  53    a68_idf (A68_EXT, "rrlogis", m, genie_R_rlogis_real);
  54    a68_idf (A68_EXT, "rrlnorm", m, genie_R_rlnorm_real);
  55    a68_idf (A68_EXT, "rrnbinom", m, genie_R_rnbinom_real);
  56    a68_idf (A68_EXT, "rrnorm", m, genie_R_rnorm_real);
  57    a68_idf (A68_EXT, "rrunif", m, genie_R_runif_real);
  58    a68_idf (A68_EXT, "rrweibull", m, genie_R_rweibull_real);
  59    a68_idf (A68_EXT, "rrwilcox", m, genie_R_rwilcox_real);
  60    m = a68_proc (M_REAL, M_REAL, M_REAL, M_BOOL, NO_MOID);
  61    a68_idf (A68_EXT, "rdt", m, genie_R_dt_real);
  62    a68_idf (A68_EXT, "rdchisq", m, genie_R_dchisq_real);
  63    a68_idf (A68_EXT, "rdexp", m, genie_R_dexp_real);
  64    a68_idf (A68_EXT, "rdgeom", m, genie_R_dgeom_real);
  65    a68_idf (A68_EXT, "rdpois", m, genie_R_dpois_real);
  66    m = a68_proc (M_REAL, M_REAL, M_REAL, M_REAL, M_BOOL, NO_MOID);
  67    a68_idf (A68_EXT, "rdnorm", m, genie_R_dnorm_real);
  68    a68_idf (A68_EXT, "rdbeta", m, genie_R_dbeta_real);
  69    a68_idf (A68_EXT, "rdbinom", m, genie_R_dbinom_real);
  70    a68_idf (A68_EXT, "rdnchisq", m, genie_R_dnchisq_real);
  71    a68_idf (A68_EXT, "rdcauchy", m, genie_R_dcauchy_real);
  72    a68_idf (A68_EXT, "rdf", m, genie_R_df_real);
  73    a68_idf (A68_EXT, "rdlogis", m, genie_R_dlogis_real);
  74    a68_idf (A68_EXT, "rdlnorm", m, genie_R_dlnorm_real);
  75    a68_idf (A68_EXT, "rdnbinom", m, genie_R_dnbinom_real);
  76    a68_idf (A68_EXT, "rdnt", m, genie_R_dnt_real);
  77    a68_idf (A68_EXT, "rdunif", m, genie_R_dunif_real);
  78    a68_idf (A68_EXT, "rdweibull", m, genie_R_dweibull_real);
  79    m = a68_proc (M_REAL, M_REAL, M_REAL, M_REAL, M_REAL, M_BOOL, NO_MOID);
  80    a68_idf (A68_EXT, "rdnf", m, genie_R_dnf_real);
  81    a68_idf (A68_EXT, "rdhyper", m, genie_R_dhyper_real);
  82    m = a68_proc (M_REAL, M_REAL, M_REAL, M_REAL, NO_MOID);
  83    a68_idf (A68_EXT, "rrhyper", m, genie_R_rhyper_real);
  84    m = a68_proc (M_REAL, M_REAL, M_REAL, M_BOOL, M_BOOL, NO_MOID);
  85    a68_idf (A68_EXT, "rpt", m, genie_R_pt_real);
  86    a68_idf (A68_EXT, "rqt", m, genie_R_qt_real);
  87    a68_idf (A68_EXT, "rpchisq", m, genie_R_pchisq_real);
  88    a68_idf (A68_EXT, "rqchisq", m, genie_R_qchisq_real);
  89    a68_idf (A68_EXT, "rpexp", m, genie_R_pexp_real);
  90    a68_idf (A68_EXT, "rqexp", m, genie_R_qexp_real);
  91    a68_idf (A68_EXT, "rpgeom", m, genie_R_pgeom_real);
  92    a68_idf (A68_EXT, "rqgeom", m, genie_R_qgeom_real);
  93    a68_idf (A68_EXT, "rppois", m, genie_R_ppois_real);
  94    a68_idf (A68_EXT, "rqpois", m, genie_R_qpois_real);
  95    m = a68_proc (M_REAL, M_REAL, M_REAL, M_REAL, M_BOOL, M_BOOL, NO_MOID);
  96    a68_idf (A68_EXT, "rpnorm", m, genie_R_pnorm_real);
  97    a68_idf (A68_EXT, "rqnorm", m, genie_R_qnorm_real);
  98    a68_idf (A68_EXT, "rpbeta", m, genie_R_pbeta_real);
  99    a68_idf (A68_EXT, "rqbeta", m, genie_R_qbeta_real);
 100    a68_idf (A68_EXT, "rpbinom", m, genie_R_pbinom_real);
 101    a68_idf (A68_EXT, "rqbinom", m, genie_R_qbinom_real);
 102    a68_idf (A68_EXT, "rpnchisq", m, genie_R_pnchisq_real);
 103    a68_idf (A68_EXT, "rqnchisq", m, genie_R_qnchisq_real);
 104    a68_idf (A68_EXT, "rpcauchy", m, genie_R_pcauchy_real);
 105    a68_idf (A68_EXT, "rqcauchy", m, genie_R_qcauchy_real);
 106    a68_idf (A68_EXT, "rpf", m, genie_R_pf_real);
 107    a68_idf (A68_EXT, "rqf", m, genie_R_qf_real);
 108    a68_idf (A68_EXT, "rplogis", m, genie_R_plogis_real);
 109    a68_idf (A68_EXT, "rqlogis", m, genie_R_qlogis_real);
 110    a68_idf (A68_EXT, "rplnorm", m, genie_R_plnorm_real);
 111    a68_idf (A68_EXT, "rqlnorm", m, genie_R_qlnorm_real);
 112    a68_idf (A68_EXT, "rpnbinom", m, genie_R_pnbinom_real);
 113    a68_idf (A68_EXT, "rqnbinom", m, genie_R_qnbinom_real);
 114    a68_idf (A68_EXT, "rpnt", m, genie_R_pnt_real);
 115    a68_idf (A68_EXT, "rqnt", m, genie_R_qnt_real);
 116    a68_idf (A68_EXT, "rpunif", m, genie_R_punif_real);
 117    a68_idf (A68_EXT, "rqunif", m, genie_R_qunif_real);
 118    a68_idf (A68_EXT, "rpweibull", m, genie_R_pweibull_real);
 119    a68_idf (A68_EXT, "rqweibull", m, genie_R_qweibull_real);
 120    m = a68_proc (M_REAL, M_REAL, M_REAL, M_REAL, M_REAL, M_BOOL, M_BOOL, NO_MOID);
 121    a68_idf (A68_EXT, "rptukey", m, genie_R_ptukey_real);
 122    a68_idf (A68_EXT, "rqtukey", m, genie_R_qtukey_real);
 123    a68_idf (A68_EXT, "rpnf", m, genie_R_pnf_real);
 124    a68_idf (A68_EXT, "rqnf", m, genie_R_qnf_real);
 125    a68_idf (A68_EXT, "rphyper", m, genie_R_phyper_real);
 126    a68_idf (A68_EXT, "rqhyper", m, genie_R_qhyper_real);
 127    m = a68_proc (M_REAL, M_REAL, M_REAL, M_BOOL, NO_MOID);
 128    a68_idf (A68_EXT, "rdsignrank", m, genie_R_dsignrank_real);
 129    a68_idf (A68_EXT, "rdwilcox", m, genie_R_dwilcox_real);
 130    m = a68_proc (M_REAL, M_REAL, M_REAL, M_BOOL, M_BOOL, NO_MOID);
 131    a68_idf (A68_EXT, "rpsignrank", m, genie_R_psignrank_real);
 132    a68_idf (A68_EXT, "rqsignrank", m, genie_R_qsignrank_real);
 133    a68_idf (A68_EXT, "rpwilcox", m, genie_R_pwilcox_real);
 134    a68_idf (A68_EXT, "rqwilcox", m, genie_R_qwilcox_real);
 135  }
 136  
 137  #endif
Deze website is gearchiveerd door de KB, nationale bibliotheek.

This website is archived by the National Library of the Netherlands.