diff options
| author | Shashank | 2017-05-29 12:40:26 +0530 |
|---|---|---|
| committer | Shashank | 2017-05-29 12:40:26 +0530 |
| commit | 0345245e860375a32c9a437c4a9d9cae807134e9 (patch) | |
| tree | ad51ecbfa7bcd3cc5f09834f1bb8c08feaa526a4 /modules/statistics | |
| download | scilab_for_xcos_on_cloud-0345245e860375a32c9a437c4a9d9cae807134e9.tar.gz scilab_for_xcos_on_cloud-0345245e860375a32c9a437c4a9d9cae807134e9.tar.bz2 scilab_for_xcos_on_cloud-0345245e860375a32c9a437c4a9d9cae807134e9.zip | |
CMSCOPE changed
Diffstat (limited to 'modules/statistics')
716 files changed, 56746 insertions, 0 deletions
diff --git a/modules/statistics/.libs/libscistatistics-algo.a b/modules/statistics/.libs/libscistatistics-algo.a Binary files differnew file mode 100755 index 000000000..7c408c2a2 --- /dev/null +++ b/modules/statistics/.libs/libscistatistics-algo.a diff --git a/modules/statistics/.libs/libscistatistics-algo.la b/modules/statistics/.libs/libscistatistics-algo.la new file mode 120000 index 000000000..1427a6a05 --- /dev/null +++ b/modules/statistics/.libs/libscistatistics-algo.la @@ -0,0 +1 @@ +../libscistatistics-algo.la
\ No newline at end of file diff --git a/modules/statistics/.libs/libscistatistics.la b/modules/statistics/.libs/libscistatistics.la new file mode 120000 index 000000000..7c2a81ce6 --- /dev/null +++ b/modules/statistics/.libs/libscistatistics.la @@ -0,0 +1 @@ +../libscistatistics.la
\ No newline at end of file diff --git a/modules/statistics/.libs/libscistatistics.lai b/modules/statistics/.libs/libscistatistics.lai new file mode 100755 index 000000000..ad1e5d2c4 --- /dev/null +++ b/modules/statistics/.libs/libscistatistics.lai @@ -0,0 +1,41 @@ +# libscistatistics.la - a libtool library file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# The name that we can dlopen(3). +dlname='libscistatistics.so.5' + +# Names of this library. +library_names='libscistatistics.so.5.5.2 libscistatistics.so.5 libscistatistics.so' + +# The name of the static archive. +old_library='' + +# Linker flags that can not go in dependency_libs. +inherited_linker_flags='' + +# Libraries that this one depends upon. +dependency_libs=' -lpthread -ldl -lcurses -lm' + +# Names of additional weak libraries provided by this library +weak_library_names='' + +# Version information for libscistatistics. +current=10 +age=5 +revision=2 + +# Is this an already installed library? +installed=yes + +# Should we warn about portability when linking against -modules? +shouldnotlink=no + +# Files to dlopen/dlpreopen +dlopen='' +dlpreopen='' + +# Directory that this library needs to be installed in: +libdir='/usr/local/lib/scilab' diff --git a/modules/statistics/.libs/libscistatistics.so b/modules/statistics/.libs/libscistatistics.so new file mode 120000 index 000000000..90a9205b9 --- /dev/null +++ b/modules/statistics/.libs/libscistatistics.so @@ -0,0 +1 @@ +libscistatistics.so.5.5.2
\ No newline at end of file diff --git a/modules/statistics/.libs/libscistatistics.so.5 b/modules/statistics/.libs/libscistatistics.so.5 new file mode 120000 index 000000000..90a9205b9 --- /dev/null +++ b/modules/statistics/.libs/libscistatistics.so.5 @@ -0,0 +1 @@ +libscistatistics.so.5.5.2
\ No newline at end of file diff --git a/modules/statistics/.libs/libscistatistics.so.5.5.2 b/modules/statistics/.libs/libscistatistics.so.5.5.2 Binary files differnew file mode 100755 index 000000000..78817063b --- /dev/null +++ b/modules/statistics/.libs/libscistatistics.so.5.5.2 diff --git a/modules/statistics/Makefile b/modules/statistics/Makefile new file mode 100755 index 000000000..4663cf160 --- /dev/null +++ b/modules/statistics/Makefile @@ -0,0 +1,1710 @@ +# Makefile.in generated by automake 1.14.1 from Makefile.am. +# modules/statistics/Makefile. Generated from Makefile.in by configure. + +# Copyright (C) 1994-2013 Free Software Foundation, Inc. + +# This Makefile.in is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + + + +# Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +# Copyright (C) 2006-2007 - INRIA - Sylvestre LEDRU +# +# This file is distributed under the same license as the Scilab package. + +# Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +# Copyright (C) 2006-2008 - INRIA - Sylvestre LEDRU <sylvestre.ledru@inria.fr> +# Copyright (C) 2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr> +# +# This file must be used under the terms of the CeCILL. +# This source file is licensed as described in the file COPYING, which +# you should have received as part of this distribution. The terms +# are also available at +# http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +# + +########## +### Makefile included stuff +### Target, variable, suffixes which are supposed to be useful in every makefile.am +########## + + + +am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' +am__make_running_with_option = \ + case $${target_option-} in \ + ?) ;; \ + *) echo "am__make_running_with_option: internal error: invalid" \ + "target option '$${target_option-}' specified" >&2; \ + exit 1;; \ + esac; \ + has_opt=no; \ + sane_makeflags=$$MAKEFLAGS; \ + if $(am__is_gnu_make); then \ + sane_makeflags=$$MFLAGS; \ + else \ + case $$MAKEFLAGS in \ + *\\[\ \ ]*) \ + bs=\\; \ + sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ + | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ + esac; \ + fi; \ + skip_next=no; \ + strip_trailopt () \ + { \ + flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ + }; \ + for flg in $$sane_makeflags; do \ + test $$skip_next = yes && { skip_next=no; continue; }; \ + case $$flg in \ + *=*|--*) continue;; \ + -*I) strip_trailopt 'I'; skip_next=yes;; \ + -*I?*) strip_trailopt 'I';; \ + -*O) strip_trailopt 'O'; skip_next=yes;; \ + -*O?*) strip_trailopt 'O';; \ + -*l) strip_trailopt 'l'; skip_next=yes;; \ + -*l?*) strip_trailopt 'l';; \ + -[dEDm]) skip_next=yes;; \ + -[JT]) skip_next=yes;; \ + esac; \ + case $$flg in \ + *$$target_option*) has_opt=yes; break;; \ + esac; \ + done; \ + test $$has_opt = yes +am__make_dryrun = (target_option=n; $(am__make_running_with_option)) +am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) +pkgdatadir = $(datadir)/scilab +pkgincludedir = $(includedir)/scilab +pkglibdir = $(libdir)/scilab +pkglibexecdir = $(libexecdir)/scilab +am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd +install_sh_DATA = $(install_sh) -c -m 644 +install_sh_PROGRAM = $(install_sh) -c +install_sh_SCRIPT = $(install_sh) -c +INSTALL_HEADER = $(INSTALL_DATA) +transform = $(program_transform_name) +NORMAL_INSTALL = : +PRE_INSTALL = : +POST_INSTALL = : +NORMAL_UNINSTALL = : +PRE_UNINSTALL = : +POST_UNINSTALL = : +build_triplet = x86_64-unknown-linux-gnu +host_triplet = x86_64-unknown-linux-gnu +DIST_COMMON = $(top_srcdir)/Makefile.incl.am $(srcdir)/Makefile.in \ + $(srcdir)/Makefile.am $(top_srcdir)/config/mkinstalldirs \ + $(top_srcdir)/config/depcomp +am__append_1 = java +subdir = modules/statistics +ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 +am__aclocal_m4_deps = $(top_srcdir)/m4/backtrace.m4 \ + $(top_srcdir)/m4/compiler.m4 $(top_srcdir)/m4/curl.m4 \ + $(top_srcdir)/m4/docbook.m4 $(top_srcdir)/m4/doxygen.m4 \ + $(top_srcdir)/m4/fftw.m4 $(top_srcdir)/m4/fortran.m4 \ + $(top_srcdir)/m4/giws.m4 $(top_srcdir)/m4/hdf5.m4 \ + $(top_srcdir)/m4/intel_compiler.m4 \ + $(top_srcdir)/m4/java-thirdparty.m4 $(top_srcdir)/m4/java.m4 \ + $(top_srcdir)/m4/largefile.m4 $(top_srcdir)/m4/lib-ld.m4 \ + $(top_srcdir)/m4/libsmath.m4 $(top_srcdir)/m4/libtool.m4 \ + $(top_srcdir)/m4/libxml2.m4 $(top_srcdir)/m4/ltoptions.m4 \ + $(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \ + $(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/m4/macosx.m4 \ + $(top_srcdir)/m4/mpi.m4 $(top_srcdir)/m4/ocaml.m4 \ + $(top_srcdir)/m4/pcre.m4 $(top_srcdir)/m4/pkg.m4 \ + $(top_srcdir)/m4/relocatable.m4 $(top_srcdir)/m4/swig.m4 \ + $(top_srcdir)/m4/symlinks.m4 $(top_srcdir)/m4/tcltk.m4 \ + $(top_srcdir)/m4/umfpack.m4 $(top_srcdir)/configure.ac +am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ + $(ACLOCAL_M4) +mkinstalldirs = $(SHELL) $(top_srcdir)/config/mkinstalldirs +CONFIG_HEADER = $(top_builddir)/modules/core/includes/machine.h +CONFIG_CLEAN_FILES = +CONFIG_CLEAN_VPATH_FILES = +am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; +am__vpath_adj = case $$p in \ + $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ + *) f=$$p;; \ + esac; +am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; +am__install_max = 40 +am__nobase_strip_setup = \ + srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` +am__nobase_strip = \ + for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" +am__nobase_list = $(am__nobase_strip_setup); \ + for p in $$list; do echo "$$p $$p"; done | \ + sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ + $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ + if (++n[$$2] == $(am__install_max)) \ + { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ + END { for (dir in files) print dir, files[dir] }' +am__base_list = \ + sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ + sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' +am__uninstall_files_from_dir = { \ + test -z "$$files" \ + || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ + || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ + $(am__cd) "$$dir" && rm -f $$files; }; \ + } +am__installdirs = "$(DESTDIR)$(pkglibdir)" \ + "$(DESTDIR)$(libscistatistics_la_etcdir)" \ + "$(DESTDIR)$(libscistatistics_la_rootdir)" \ + "$(DESTDIR)$(libscistatistics_la_sci_gatewaydir)" +LTLIBRARIES = $(noinst_LTLIBRARIES) $(pkglib_LTLIBRARIES) +libscistatistics_algo_la_LIBADD = +am__dirstamp = $(am__leading_dot)dirstamp +am__objects_1 = src/c/libscistatistics_algo_la-CdfBase.lo \ + src/c/libscistatistics_algo_la-ipmpar1.lo +am__objects_2 = src/dcdflib/psi.lo src/dcdflib/alngam.lo \ + src/dcdflib/erfc1.lo src/dcdflib/cdff.lo src/dcdflib/spmpar.lo \ + src/dcdflib/cumnor.lo src/dcdflib/cdfpoi.lo \ + src/dcdflib/bcorr.lo src/dcdflib/cumchi.lo \ + src/dcdflib/apser.lo src/dcdflib/gamln1.lo src/dcdflib/cdft.lo \ + src/dcdflib/gaminv.lo src/dcdflib/cumnbn.lo \ + src/dcdflib/cdffnc.lo src/dcdflib/rlog1.lo \ + src/dcdflib/cdfchn.lo src/dcdflib/dt1.lo src/dcdflib/bgrat.lo \ + src/dcdflib/dinvnr.lo src/dcdflib/rlog.lo src/dcdflib/basym.lo \ + src/dcdflib/bfrac.lo src/dcdflib/cumbin.lo \ + src/dcdflib/cumbet.lo src/dcdflib/rcomp.lo \ + src/dcdflib/cdfgam.lo src/dcdflib/gratio.lo \ + src/dcdflib/gam1.lo src/dcdflib/exparg.lo \ + src/dcdflib/ipmpar.lo src/dcdflib/cumf.lo \ + src/dcdflib/cumpoi.lo src/dcdflib/gamln.lo \ + src/dcdflib/betaln.lo src/dcdflib/stvaln.lo \ + src/dcdflib/cumt.lo src/dcdflib/esum.lo src/dcdflib/bpser.lo \ + src/dcdflib/cdfnor.lo src/dcdflib/cumfnc.lo src/dcdflib/erf.lo \ + src/dcdflib/alnrel.lo src/dcdflib/cumchn.lo \ + src/dcdflib/rexp.lo src/dcdflib/fpser.lo src/dcdflib/bratio.lo \ + src/dcdflib/cdfchi.lo src/dcdflib/gamma.lo \ + src/dcdflib/dinvr.lo src/dcdflib/brcomp.lo \ + src/dcdflib/devlpl.lo src/dcdflib/cdfnbn.lo \ + src/dcdflib/dzror.lo src/dcdflib/gsumln.lo \ + src/dcdflib/algdiv.lo src/dcdflib/cumgam.lo \ + src/dcdflib/grat1.lo src/dcdflib/brcmp1.lo \ + src/dcdflib/cdfbin.lo src/dcdflib/bup.lo src/dcdflib/cdfbet.lo +am_libscistatistics_algo_la_OBJECTS = $(am__objects_1) \ + $(am__objects_2) +libscistatistics_algo_la_OBJECTS = \ + $(am_libscistatistics_algo_la_OBJECTS) +AM_V_lt = $(am__v_lt_$(V)) +am__v_lt_ = $(am__v_lt_$(AM_DEFAULT_VERBOSITY)) +am__v_lt_0 = --silent +am__v_lt_1 = +libscistatistics_la_DEPENDENCIES = libscistatistics-algo.la +am__objects_3 = sci_gateway/c/libscistatistics_la-gw_statistics.lo \ + sci_gateway/c/libscistatistics_la-sci_cdfchi.lo \ + sci_gateway/c/libscistatistics_la-sci_cdft.lo \ + sci_gateway/c/libscistatistics_la-sci_cdfgam.lo \ + sci_gateway/c/libscistatistics_la-sci_cdff.lo \ + sci_gateway/c/libscistatistics_la-sci_cdffnc.lo \ + sci_gateway/c/libscistatistics_la-sci_cdfpoi.lo \ + sci_gateway/c/libscistatistics_la-sci_cdfbin.lo \ + sci_gateway/c/libscistatistics_la-sci_cdfchn.lo \ + sci_gateway/c/libscistatistics_la-sci_cdfbet.lo \ + sci_gateway/c/libscistatistics_la-sci_cdfnbn.lo \ + sci_gateway/c/libscistatistics_la-sci_cdfnor.lo +am_libscistatistics_la_OBJECTS = $(am__objects_3) +libscistatistics_la_OBJECTS = $(am_libscistatistics_la_OBJECTS) +AM_V_P = $(am__v_P_$(V)) +am__v_P_ = $(am__v_P_$(AM_DEFAULT_VERBOSITY)) +am__v_P_0 = false +am__v_P_1 = : +AM_V_GEN = $(am__v_GEN_$(V)) +am__v_GEN_ = $(am__v_GEN_$(AM_DEFAULT_VERBOSITY)) +am__v_GEN_0 = @echo " GEN " $@; +am__v_GEN_1 = +AM_V_at = $(am__v_at_$(V)) +am__v_at_ = $(am__v_at_$(AM_DEFAULT_VERBOSITY)) +am__v_at_0 = @ +am__v_at_1 = +DEFAULT_INCLUDES = -I. -I$(top_builddir)/modules/core/includes +depcomp = $(SHELL) $(top_srcdir)/config/depcomp +am__depfiles_maybe = depfiles +am__mv = mv -f +COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ + $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) +LTCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) \ + $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ + $(AM_CFLAGS) $(CFLAGS) +AM_V_CC = $(am__v_CC_$(V)) +am__v_CC_ = $(am__v_CC_$(AM_DEFAULT_VERBOSITY)) +am__v_CC_0 = @echo " CC " $@; +am__v_CC_1 = +CCLD = $(CC) +LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ + $(AM_LDFLAGS) $(LDFLAGS) -o $@ +AM_V_CCLD = $(am__v_CCLD_$(V)) +am__v_CCLD_ = $(am__v_CCLD_$(AM_DEFAULT_VERBOSITY)) +am__v_CCLD_0 = @echo " CCLD " $@; +am__v_CCLD_1 = +F77COMPILE = $(F77) $(AM_FFLAGS) $(FFLAGS) +LTF77COMPILE = $(LIBTOOL) $(AM_V_lt) --tag=F77 $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) +AM_V_F77 = $(am__v_F77_$(V)) +am__v_F77_ = $(am__v_F77_$(AM_DEFAULT_VERBOSITY)) +am__v_F77_0 = @echo " F77 " $@; +am__v_F77_1 = +F77LD = $(F77) +F77LINK = $(LIBTOOL) $(AM_V_lt) --tag=F77 $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=link $(F77LD) $(AM_FFLAGS) $(FFLAGS) \ + $(AM_LDFLAGS) $(LDFLAGS) -o $@ +AM_V_F77LD = $(am__v_F77LD_$(V)) +am__v_F77LD_ = $(am__v_F77LD_$(AM_DEFAULT_VERBOSITY)) +am__v_F77LD_0 = @echo " F77LD " $@; +am__v_F77LD_1 = +SOURCES = $(libscistatistics_algo_la_SOURCES) \ + $(libscistatistics_la_SOURCES) +DIST_SOURCES = $(libscistatistics_algo_la_SOURCES) \ + $(libscistatistics_la_SOURCES) +am__can_run_installinfo = \ + case $$AM_UPDATE_INFO_DIR in \ + n|no|NO) false;; \ + *) (install-info --version) >/dev/null 2>&1;; \ + esac +DATA = $(libscistatistics_la_etc_DATA) \ + $(libscistatistics_la_root_DATA) \ + $(libscistatistics_la_sci_gateway_DATA) +am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) +# Read a list of newline-separated strings from the standard input, +# and print each of them once, without duplicates. Input order is +# *not* preserved. +am__uniquify_input = $(AWK) '\ + BEGIN { nonempty = 0; } \ + { items[$$0] = 1; nonempty = 1; } \ + END { if (nonempty) { for (i in items) print i; }; } \ +' +# Make sure the list of sources is unique. This is necessary because, +# e.g., the same source file might be shared among _SOURCES variables +# for different programs/libraries. +am__define_uniq_tagged_files = \ + list='$(am__tagged_files)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | $(am__uniquify_input)` +ETAGS = etags +CTAGS = ctags +DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) +ACLOCAL = ${SHELL} /home/shashank/scilab-master_5.5.2/config/missing aclocal-1.14 +ALL_LINGUAS = en_US fr_FR zh_CN zh_TW ru_RU ca_ES de_DE es_ES pt_BR ja_JP it_IT uk_UA pl_PL cs_CZ +ALL_LINGUAS_DOC = en_US fr_FR pt_BR ja_JP ru_RU +AMTAR = $${TAR-tar} +AM_DEFAULT_VERBOSITY = 1 +ANT = /usr/bin/ant +ANTLR = /usr/share/java/antlr.jar +AR = ar +ARPACK_LIBS = -L/home/shashank/scilab-master_5.5.2/usr/lib -larpack +ASM3 = /usr/share/java/asm3-3.3.2.jar +AUTOCONF = ${SHELL} /home/shashank/scilab-master_5.5.2/config/missing autoconf +AUTOHEADER = ${SHELL} /home/shashank/scilab-master_5.5.2/config/missing autoheader +AUTOMAKE = ${SHELL} /home/shashank/scilab-master_5.5.2/config/missing automake-1.14 +AVALON_FRAMEWORK = /home/shashank/scilab-master_5.5.2/thirdparty/avalon-framework.jar +AWK = mawk +BATIK = /home/shashank/scilab-master_5.5.2/thirdparty/batik-all-1.7.jar +BLAS_LIBS = -L/home/shashank/scilab-master_5.5.2/usr/lib -lblas +CC = gcc +CCACHE = +CCDEPMODE = depmode=gcc3 +CFLAGS = -g -O2 +CHECKSTYLE = +COBERTURA = /usr/share/java/cobertura.jar +COMMONS_BEANUTILS = +COMMONS_IO = /home/shashank/scilab-master_5.5.2/thirdparty/commons-io.jar +COMMONS_LOGGING = /home/shashank/scilab-master_5.5.2/thirdparty/commons-logging.jar +CPP = gcc -E +CPPFLAGS = +CURL_CFLAGS = -I/home/shashank/scilab-master_5.5.2/usr/include +CURL_CONFIG = /home/shashank/scilab-master_5.5.2/usr/bin/curl-config +CURL_LIBS = -L/home/shashank/scilab-master_5.5.2/usr/lib -lcurl -L/home/scilab/work/linux-prerequisites-sources/trunk/Dev-Tools/SE/Prerequirements/linux_x64/usr/lib -L/home/scilab/work/linux-prerequisites-sources/trunk/Dev-Tools/SE/Prerequirements/linux_x64/usr/lib -lssl -lcrypto -lrt -lz +CURL_VERSION = libcurl 7.19.7 +CXX = g++ +CXXCPP = g++ -E +CXXDEPMODE = depmode=gcc3 +CXXFLAGS = -g -O2 +CYGPATH_W = echo +DEFS = -DHAVE_CONFIG_H +DEMOTOOLS_ENABLE = yes +DEPDIR = .deps +DLLTOOL = false +DOCBOOK_ROOT = /home/shashank/scilab-master_5.5.2/thirdparty/docbook/ +DOXYGEN_BIN = +DSYMUTIL = +DUMPBIN = +ECHO_C = +ECHO_N = -n +ECHO_T = +ECJ = /home/shashank/scilab-master_5.5.2/thirdparty/ecj.jar +EGREP = /bin/grep -E +EXEEXT = +F77 = gfortran +FFLAGS = -g -O2 +FFTW3_LIB = -L/home/shashank/scilab-master_5.5.2/usr/lib -lfftw3 +FFTW_ENABLE = yes +FGREP = /bin/grep -F +FLEXDOCK = /home/shashank/scilab-master_5.5.2/thirdparty/flexdock-1.2.4.jar +FLIBS = -L/usr/lib/gcc/x86_64-linux-gnu/5 -L/usr/lib/gcc/x86_64-linux-gnu/5/../../../x86_64-linux-gnu -L/usr/lib/gcc/x86_64-linux-gnu/5/../../../../lib -L/lib/x86_64-linux-gnu -L/lib/../lib -L/usr/lib/x86_64-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-linux-gnu/5/../../.. -lpthread -ldl -lcurses -lgfortran -lm -lquadmath +FOP = /home/shashank/scilab-master_5.5.2/thirdparty/fop.jar +FREEHEP_GRAPHICS2D = /home/shashank/scilab-master_5.5.2/thirdparty/freehep-graphics2d.jar +FREEHEP_GRAPHICSIO = /home/shashank/scilab-master_5.5.2/thirdparty/freehep-graphicsio.jar +FREEHEP_GRAPHICSIO_EMF = /home/shashank/scilab-master_5.5.2/thirdparty/freehep-graphicsio-emf.jar +FREEHEP_IO = /home/shashank/scilab-master_5.5.2/thirdparty/freehep-io.jar +FREEHEP_UTIL = /home/shashank/scilab-master_5.5.2/thirdparty/freehep-util.jar +GENHTML = +GETTEXT_MACRO_VERSION = 0.19 +GIWS_BIN = +GLUEGEN2_RT = /home/shashank/scilab-master_5.5.2/thirdparty/gluegen2-rt.jar +GMSGFMT = /usr/bin/msgfmt +GMSGFMT_015 = /usr/bin/msgfmt +GRAPHICS_ENABLE = yes +GREP = /bin/grep +GUI_ENABLE = yes +HDF5_CFLAGS = -I/home/shashank/scilab-master_5.5.2/usr/include +HDF5_LIBS = -L/home/shashank/scilab-master_5.5.2/usr/lib -lhdf5 -lhdf5_hl +HELP_ENABLE = yes +INSTALL = /usr/bin/install -c +INSTALL_DATA = ${INSTALL} -m 644 +INSTALL_PROGRAM = ${INSTALL} +INSTALL_SCRIPT = ${INSTALL} +INSTALL_STRIP_PROGRAM = $(install_sh) -c -s +INTLLIBS = +INTL_MACOSX_LIBS = +JAR = /usr/lib/jvm/java-8-openjdk-amd64/bin/jar +JAVA = /usr/lib/jvm/java-8-openjdk-amd64/bin/java +JAVAC = /usr/lib/jvm/java-8-openjdk-amd64/bin/javac +JAVAC_DEBUG = off +JAVADOC = /usr/lib/jvm/java-8-openjdk-amd64/bin/javadoc +JAVAH = /usr/lib/jvm/java-8-openjdk-amd64/bin/javah +JAVASCI_ENABLE = yes +JAVA_ENABLE = yes +JAVA_G = /usr/lib/jvm/java-8-openjdk-amd64/bin/java +JAVA_HOME = /usr/lib/jvm/java-8-openjdk-amd64 +JAVA_JNI_INCLUDE = -I/usr/lib/jvm/java-8-openjdk-amd64/include -I/usr/lib/jvm/java-8-openjdk-amd64/include/linux +JAVA_JNI_LIBS = -L/usr/lib/jvm/java-8-openjdk-amd64/jre/lib/amd64 -ljava -lverify -L/usr/lib/jvm/java-8-openjdk-amd64/jre/lib/amd64/server -ljvm +JDB = /usr/lib/jvm/java-8-openjdk-amd64/bin/jdb +JEUCLID_CORE = /home/shashank/scilab-master_5.5.2/thirdparty/jeuclid-core.jar +JGRAPHX = /home/shashank/scilab-master_5.5.2/thirdparty/jgraphx.jar +JHALL = /home/shashank/scilab-master_5.5.2/thirdparty/jhall.jar +JLATEXMATH = /home/shashank/scilab-master_5.5.2/thirdparty/jlatexmath-1.0.3.jar +JLATEXMATH_FOP = /home/shashank/scilab-master_5.5.2/thirdparty/jlatexmath-fop-1.0.3.jar +JOGL2 = /home/shashank/scilab-master_5.5.2/thirdparty/jogl2.jar +JROSETTA_API = /home/shashank/scilab-master_5.5.2/thirdparty/jrosetta-API.jar +JROSETTA_ENGINE = /home/shashank/scilab-master_5.5.2/thirdparty/jrosetta-engine.jar +JUNIT4 = /usr/share/java/junit4.jar +LAPACK_LIBS = -L/home/shashank/scilab-master_5.5.2/usr/lib -llapack +LCOV = +LD = /usr/bin/ld -m elf_x86_64 +LDFLAGS = -Wl,--no-as-needed +LIBICONV = -liconv +LIBINTL = +LIBM = -lm +LIBOBJS = +LIBS = -lpthread -ldl -lcurses -lm +LIBTOOL = $(SHELL) $(top_builddir)/libtool +LIPO = +LN_S = ln -s +LOGGING_LEVEL = SEVERE +LOOKS = /home/shashank/scilab-master_5.5.2/thirdparty/looks-2.1.1.jar +LTLIBICONV = -liconv +LTLIBINTL = +LTLIBOBJS = +MAINT = # +MAKEINFO = ${SHELL} /home/shashank/scilab-master_5.5.2/config/missing makeinfo +MANIFEST_TOOL = : +MATIO_CFLAGS = -I/home/shashank/scilab-master_5.5.2/usr/include +MATIO_ENABLE = yes +MATIO_LIBS = -L/home/shashank/scilab-master_5.5.2/usr/lib -lm -lz -lmatio -lhdf5 +MKDIR_P = /bin/mkdir -p +MPI_ENABLE = no +MSGCAT = /usr/bin/msgcat +MSGFMT = /usr/bin/msgfmt +MSGFMT_015 = /usr/bin/msgfmt +MSGMERGE = /usr/bin/msgmerge +NM = nm +NMEDIT = +OBJDUMP = objdump +OBJEXT = o +OCAMLC = ocamlc +OCAMLDEP = ocamldep +OCAMLLEX = ocamllex +OCAMLOPT = ocamlopt +OCAMLYACC = ocamlyacc +OPENMPI_CC = +OPENMPI_CFLAGS = +OPENMPI_CXX = +OPENMPI_CXXFLAGS = +OPENMPI_LIBS = +OPENMP_CFLAGS = -fopenmp +OPENMP_CXXFLAGS = -fopenmp +OPENMP_ENABLE = yes +OPENMP_LIBS = -lgomp -lstdc++ +OTOOL = +OTOOL64 = +PACKAGE = scilab +PACKAGE_BUGREPORT = http://bugzilla.scilab.org/ +PACKAGE_NAME = Scilab +PACKAGE_STRING = Scilab 5 +PACKAGE_TARNAME = scilab +PACKAGE_URL = +PACKAGE_VERSION = 5 +PATH_SEPARATOR = : +PCRE_CFLAGS = -I/home/shashank/scilab-master_5.5.2/usr/include +PCRE_CONFIG = /home/shashank/scilab-master_5.5.2/usr/bin/pcre-config +PCRE_LIBS = -L/home/shashank/scilab-master_5.5.2/usr/lib -lpcreposix -lpcre +PCRE_VERSION = 8.35 +PKG_CONFIG = /usr/bin/pkg-config +POSUB = po +POW_LIB = +PYTHON = +RANLIB = ranlib +RELOCATABLE = no +RT_LIB = -lrt +SAXON = /home/shashank/scilab-master_5.5.2/thirdparty/saxon9he.jar +SCILAB_BINARY_VERSION = 5.5.2 +SCILAB_LIBRARY_VERSION = 5:5:2 +SCILAB_VERSION_MAINTENANCE = 2 +SCILAB_VERSION_MAJOR = 5 +SCILAB_VERSION_MINOR = 5 +SCIRENDERER = ${modules.dir}/scirenderer/${build.jar.dir}/scirenderer.jar +SCIRENDERER_CP = $SCILAB/modules/scirenderer/jar/scirenderer.jar +SCI_CFLAGS = -D_LARGEFILE64_SOURCE -DNDEBUG -m64 -fno-stack-protector +SCI_CXXFLAGS = -DNDEBUG -fno-stack-protector +SCI_FFLAGS = -DNDEBUG -m64 -fPIC +SCI_LDFLAGS = +SED = /bin/sed +SET_MAKE = +SET_RELOCATABLE = +SHELL = /bin/bash +SKINLF = /home/shashank/scilab-master_5.5.2/thirdparty/skinlf.jar +SPLINT = no +STRIP = strip +SWIG_BIN = +SWIG_JAVA = +SWIG_RUNTIME_LIBS_DIR = +SWIG_SCILAB = +TCLTK_LIBS = -L/home/shashank/scilab-master_5.5.2/usr/lib -ltk8.5 -L/home/shashank/scilab-master_5.5.2/usr/lib -ltcl8.5 -ldl +TCL_INC_PATH = -I/home/shashank/scilab-master_5.5.2/usr/include +TK_INC_PATH = -I/home/shashank/scilab-master_5.5.2/usr/include +UMFPACK_CFLAGS = -I/home/shashank/scilab-master_5.5.2/usr/include +UMFPACK_ENABLE = yes +UMFPACK_LIB = -L/home/shashank/scilab-master_5.5.2/usr/lib -lumfpack -lamd +USE_NLS = yes +VERSION = 5 +WITH_OCAML = +WITH_TKSCI = yes +XCOS_ENABLE = yes +XGETTEXT = /usr/bin/xgettext +XGETTEXT_015 = /usr/bin/xgettext +XGETTEXT_EXTRA_OPTIONS = +XMKMF = +XMLGRAPHICS_COMMONS = /home/shashank/scilab-master_5.5.2/thirdparty/xmlgraphics-commons-1.4.jar +XML_APIS_EXT = /home/shashank/scilab-master_5.5.2/thirdparty/xml-apis-ext.jar +XML_CONFIG = /home/shashank/scilab-master_5.5.2/usr/bin/xml2-config +XML_FLAGS = -I/home/shashank/scilab-master_5.5.2/usr/include/libxml2 +XML_LIBS = -L/home/shashank/scilab-master_5.5.2/usr/lib -lxml2 -L/home/scilab/work/linux-prerequisites-sources/trunk/Dev-Tools/SE/Prerequirements/linux_x64/usr/lib -lz -lm -ldl +XML_VERSION = 2.9.1 +X_CFLAGS = +X_EXTRA_LIBS = +X_LIBS = +X_PRE_LIBS = +abs_builddir = /home/shashank/scilab-master_5.5.2/modules/statistics +abs_srcdir = /home/shashank/scilab-master_5.5.2/modules/statistics +abs_top_builddir = /home/shashank/scilab-master_5.5.2 +abs_top_srcdir = /home/shashank/scilab-master_5.5.2 +ac_ct_AR = ar +ac_ct_CC = gcc +ac_ct_CXX = g++ +ac_ct_DUMPBIN = +ac_ct_F77 = gfortran +am__include = include +am__leading_dot = . +am__quote = +am__tar = $${TAR-tar} chof - "$$tardir" +am__untar = $${TAR-tar} xf - +bindir = ${exec_prefix}/bin +build = x86_64-unknown-linux-gnu +build_alias = +build_cpu = x86_64 +build_os = linux-gnu +build_vendor = unknown +builddir = . +cxx_present = yes +datadir = ${datarootdir} +datarootdir = ${prefix}/share +docdir = ${datarootdir}/doc/${PACKAGE_TARNAME} +dvidir = ${docdir} +exec_prefix = ${prefix} +host = x86_64-unknown-linux-gnu +host_alias = +host_cpu = x86_64 +host_os = linux-gnu +host_vendor = unknown +htmldir = ${docdir} +includedir = ${prefix}/include +infodir = ${datarootdir}/info +install_sh = ${SHELL} /home/shashank/scilab-master_5.5.2/config/install-sh +libdir = ${exec_prefix}/lib +libexecdir = ${exec_prefix}/libexec +localedir = ${datarootdir}/locale +localstatedir = ${prefix}/var +mandir = ${datarootdir}/man +mkdir_p = $(MKDIR_P) +oldincludedir = /usr/include +pdfdir = ${docdir} +prefix = /usr/local +program_transform_name = s,x,x, +psdir = ${docdir} +sbindir = ${exec_prefix}/sbin +sharedstatedir = ${prefix}/com +srcdir = . +sysconfdir = ${prefix}/etc +target_alias = +top_build_prefix = ../../ +top_builddir = ../.. +top_srcdir = ../.. +STATISTICS_C_SOURCES = src/c/CdfBase.c \ +src/c/ipmpar1.c + +STATISTICS_FORTRAN_SOURCES = src/dcdflib/psi.f \ +src/dcdflib/alngam.f \ +src/dcdflib/erfc1.f \ +src/dcdflib/cdff.f \ +src/dcdflib/spmpar.f \ +src/dcdflib/cumnor.f \ +src/dcdflib/cdfpoi.f \ +src/dcdflib/bcorr.f \ +src/dcdflib/cumchi.f \ +src/dcdflib/apser.f \ +src/dcdflib/gamln1.f \ +src/dcdflib/cdft.f \ +src/dcdflib/gaminv.f \ +src/dcdflib/cumnbn.f \ +src/dcdflib/cdffnc.f \ +src/dcdflib/rlog1.f \ +src/dcdflib/cdfchn.f \ +src/dcdflib/dt1.f \ +src/dcdflib/bgrat.f \ +src/dcdflib/dinvnr.f \ +src/dcdflib/rlog.f \ +src/dcdflib/basym.f \ +src/dcdflib/bfrac.f \ +src/dcdflib/cumbin.f \ +src/dcdflib/cumbet.f \ +src/dcdflib/rcomp.f \ +src/dcdflib/cdfgam.f \ +src/dcdflib/gratio.f \ +src/dcdflib/gam1.f \ +src/dcdflib/exparg.f \ +src/dcdflib/ipmpar.f \ +src/dcdflib/cumf.f \ +src/dcdflib/cumpoi.f \ +src/dcdflib/gamln.f \ +src/dcdflib/betaln.f \ +src/dcdflib/stvaln.f \ +src/dcdflib/cumt.f \ +src/dcdflib/esum.f \ +src/dcdflib/bpser.f \ +src/dcdflib/cdfnor.f \ +src/dcdflib/cumfnc.f \ +src/dcdflib/erf.f \ +src/dcdflib/alnrel.f \ +src/dcdflib/cumchn.f \ +src/dcdflib/rexp.f \ +src/dcdflib/fpser.f \ +src/dcdflib/bratio.f \ +src/dcdflib/cdfchi.f \ +src/dcdflib/gamma.f \ +src/dcdflib/dinvr.f \ +src/dcdflib/brcomp.f \ +src/dcdflib/devlpl.f \ +src/dcdflib/cdfnbn.f \ +src/dcdflib/dzror.f \ +src/dcdflib/gsumln.f \ +src/dcdflib/algdiv.f \ +src/dcdflib/cumgam.f \ +src/dcdflib/grat1.f \ +src/dcdflib/brcmp1.f \ +src/dcdflib/cdfbin.f \ +src/dcdflib/bup.f \ +src/dcdflib/cdfbet.f + +GATEWAY_C_SOURCES = sci_gateway/c/gw_statistics.c \ +sci_gateway/c/sci_cdfchi.c \ +sci_gateway/c/sci_cdft.c \ +sci_gateway/c/sci_cdfgam.c \ +sci_gateway/c/sci_cdff.c \ +sci_gateway/c/sci_cdffnc.c \ +sci_gateway/c/sci_cdfpoi.c \ +sci_gateway/c/sci_cdfbin.c \ +sci_gateway/c/sci_cdfchn.c \ +sci_gateway/c/sci_cdfbet.c \ +sci_gateway/c/sci_cdfnbn.c \ +sci_gateway/c/sci_cdfnor.c + +libscistatistics_la_CPPFLAGS = -I$(srcdir)/includes/ \ + -I$(srcdir)/src/c/ \ + -I$(top_srcdir)/modules/api_scilab/includes/ \ + -I$(top_srcdir)/modules/localization/includes/ \ + -I$(top_srcdir)/modules/output_stream/includes/ \ + $(AM_CPPFLAGS) + +pkglib_LTLIBRARIES = libscistatistics.la +noinst_LTLIBRARIES = libscistatistics-algo.la +libscistatistics_algo_la_SOURCES = $(STATISTICS_C_SOURCES) $(STATISTICS_FORTRAN_SOURCES) +libscistatistics_la_SOURCES = $(GATEWAY_C_SOURCES) +libscistatistics_algo_la_CPPFLAGS = $(libscistatistics_la_CPPFLAGS) + +# For the code check (splint) +CHECK_SRC = $(STATISTICS_C_SOURCES) $(GATEWAY_C_SOURCES) +INCLUDE_FLAGS = $(libscistatistics_la_CPPFLAGS) +libscistatistics_la_LIBADD = libscistatistics-algo.la + +#### Target ###### +modulename = statistics + +#### statistics : Conf files #### +libscistatistics_la_rootdir = $(mydatadir) +libscistatistics_la_root_DATA = license.txt + +#### statistics : init scripts #### +libscistatistics_la_etcdir = $(mydatadir)/etc +libscistatistics_la_etc_DATA = etc/statistics.quit etc/statistics.start + +#### statistics : gateway declaration #### +libscistatistics_la_sci_gatewaydir = $(mydatadir)/sci_gateway +libscistatistics_la_sci_gateway_DATA = sci_gateway/statistics_gateway.xml + +# Where all the Scilab stuff is installed (macros, help, ...) +mydatadir = $(pkgdatadir)/modules/$(modulename) + +# Set AM_* SCI detected settings +AM_CPPFLAGS = $(SCI_CPPFLAGS) +AM_CFLAGS = $(SCI_CFLAGS) +AM_CXXFLAGS = $(SCI_CXXFLAGS) +# append includes to AM_FFLAGS to manage fortran includes +AM_FFLAGS = $(SCI_FFLAGS) -I$(top_srcdir)/modules/core/includes/ + +# Tag shared libraries with the Scilab version +AM_LDFLAGS = $(SCI_LDFLAGS) -version-number $(SCILAB_LIBRARY_VERSION) + +# splint options +SPLINT_OPTIONS = -weak -booltype BOOL + +########################### JAVA ###################################### +#### We are delegating java compilation to ant... Thanks to that +#### the procedure will be the same with Microsoft Windows (C) +#### and Linux/Unix +####################################################################### +TARGETS_ALL = $(am__append_1) + +################ MACROS ###################### +# Rule to build a macro +# NOT USED AT THE MOMENT +SUFFIXES = .sci + +########### INSTALL DOCUMENTATION ################### + +# Install documentation files into the right target +# We do not use the automake mechanism (libxxxx_la_help_fr_DATA) because +# automake needs the html files to be present which is not the case when +# we are building Scilab + +# Where it should be installed +pkgdocdir = $(mydatadir) + +# What is the mask of the help source +DOCMASKXML = *.xml + +# What is the mask of the MathML sources +DOCMASKMML = *.mml + +########### INSTALL DATA ################### +# Install macros, help & demos +# Where it should be installed +pkgmacrosdir = $(mydatadir) +# Which directory we process +MACRODIRS = macros/ +# Mask of the Scilab sources macros +MACROMASK = *.sci +# Mask of the Scilab executable sources macros +MACROBUILDMASK = *.sce +# Mask of the Scilab compiled macros +MACROBINMASK = *.bin +# List of the standard directory for tests +TESTS_DIR = tests/benchmarks tests/nonreg_tests tests/unit_tests tests/java +# Where the demos should be installed +pkgdemosdir = $(mydatadir) +# List of the standard directory for demos +DEMOS_DIR = demos +# List of the standard directory for examples +EXAMPLES_DIR = examples +# Where to export JAVA archives (.jar) +JARDIR = jar/ +# JAR files mask +JARMASK = *.jar +# Chapter file +HELP_CHAPTERDIR = help/ +HELP_CHAPTERFILE = addchapter.sce +HELP_CHAPTERLANG = en_US fr_FR pt_BR +all: all-am + +.SUFFIXES: +.SUFFIXES: .sci .bin .c .f .lo .o .obj +$(srcdir)/Makefile.in: # $(srcdir)/Makefile.am $(top_srcdir)/Makefile.incl.am $(am__configure_deps) + @for dep in $?; do \ + case '$(am__configure_deps)' in \ + *$$dep*) \ + ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ + && { if test -f $@; then exit 0; else break; fi; }; \ + exit 1;; \ + esac; \ + done; \ + echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign modules/statistics/Makefile'; \ + $(am__cd) $(top_srcdir) && \ + $(AUTOMAKE) --foreign modules/statistics/Makefile +.PRECIOUS: Makefile +Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status + @case '$?' in \ + *config.status*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ + *) \ + echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ + cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ + esac; +$(top_srcdir)/Makefile.incl.am: + +$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh + +$(top_srcdir)/configure: # $(am__configure_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(ACLOCAL_M4): # $(am__aclocal_m4_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(am__aclocal_m4_deps): + +clean-noinstLTLIBRARIES: + -test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES) + @list='$(noinst_LTLIBRARIES)'; \ + locs=`for p in $$list; do echo $$p; done | \ + sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ + sort -u`; \ + test -z "$$locs" || { \ + echo rm -f $${locs}; \ + rm -f $${locs}; \ + } + +install-pkglibLTLIBRARIES: $(pkglib_LTLIBRARIES) + @$(NORMAL_INSTALL) + @list='$(pkglib_LTLIBRARIES)'; test -n "$(pkglibdir)" || list=; \ + list2=; for p in $$list; do \ + if test -f $$p; then \ + list2="$$list2 $$p"; \ + else :; fi; \ + done; \ + test -z "$$list2" || { \ + echo " $(MKDIR_P) '$(DESTDIR)$(pkglibdir)'"; \ + $(MKDIR_P) "$(DESTDIR)$(pkglibdir)" || exit 1; \ + echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(pkglibdir)'"; \ + $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(pkglibdir)"; \ + } + +uninstall-pkglibLTLIBRARIES: + @$(NORMAL_UNINSTALL) + @list='$(pkglib_LTLIBRARIES)'; test -n "$(pkglibdir)" || list=; \ + for p in $$list; do \ + $(am__strip_dir) \ + echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(pkglibdir)/$$f'"; \ + $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(pkglibdir)/$$f"; \ + done + +clean-pkglibLTLIBRARIES: + -test -z "$(pkglib_LTLIBRARIES)" || rm -f $(pkglib_LTLIBRARIES) + @list='$(pkglib_LTLIBRARIES)'; \ + locs=`for p in $$list; do echo $$p; done | \ + sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ + sort -u`; \ + test -z "$$locs" || { \ + echo rm -f $${locs}; \ + rm -f $${locs}; \ + } +src/c/$(am__dirstamp): + @$(MKDIR_P) src/c + @: > src/c/$(am__dirstamp) +src/c/$(DEPDIR)/$(am__dirstamp): + @$(MKDIR_P) src/c/$(DEPDIR) + @: > src/c/$(DEPDIR)/$(am__dirstamp) +src/c/libscistatistics_algo_la-CdfBase.lo: src/c/$(am__dirstamp) \ + src/c/$(DEPDIR)/$(am__dirstamp) +src/c/libscistatistics_algo_la-ipmpar1.lo: src/c/$(am__dirstamp) \ + src/c/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/$(am__dirstamp): + @$(MKDIR_P) src/dcdflib + @: > src/dcdflib/$(am__dirstamp) +src/dcdflib/$(DEPDIR)/$(am__dirstamp): + @$(MKDIR_P) src/dcdflib/$(DEPDIR) + @: > src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/psi.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/alngam.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/erfc1.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdff.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/spmpar.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumnor.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdfpoi.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/bcorr.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumchi.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/apser.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/gamln1.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdft.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/gaminv.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumnbn.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdffnc.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/rlog1.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdfchn.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/dt1.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/bgrat.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/dinvnr.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/rlog.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/basym.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/bfrac.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumbin.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumbet.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/rcomp.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdfgam.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/gratio.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/gam1.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/exparg.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/ipmpar.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumf.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumpoi.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/gamln.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/betaln.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/stvaln.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumt.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/esum.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/bpser.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdfnor.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumfnc.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/erf.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/alnrel.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumchn.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/rexp.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/fpser.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/bratio.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdfchi.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/gamma.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/dinvr.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/brcomp.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/devlpl.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdfnbn.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/dzror.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/gsumln.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/algdiv.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumgam.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/grat1.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/brcmp1.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdfbin.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/bup.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdfbet.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) + +libscistatistics-algo.la: $(libscistatistics_algo_la_OBJECTS) $(libscistatistics_algo_la_DEPENDENCIES) $(EXTRA_libscistatistics_algo_la_DEPENDENCIES) + $(AM_V_F77LD)$(F77LINK) $(libscistatistics_algo_la_OBJECTS) $(libscistatistics_algo_la_LIBADD) $(LIBS) +sci_gateway/c/$(am__dirstamp): + @$(MKDIR_P) sci_gateway/c + @: > sci_gateway/c/$(am__dirstamp) +sci_gateway/c/$(DEPDIR)/$(am__dirstamp): + @$(MKDIR_P) sci_gateway/c/$(DEPDIR) + @: > sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-gw_statistics.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdfchi.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdft.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdfgam.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdff.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdffnc.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdfpoi.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdfbin.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdfchn.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdfbet.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdfnbn.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdfnor.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) + +libscistatistics.la: $(libscistatistics_la_OBJECTS) $(libscistatistics_la_DEPENDENCIES) $(EXTRA_libscistatistics_la_DEPENDENCIES) + $(AM_V_CCLD)$(LINK) -rpath $(pkglibdir) $(libscistatistics_la_OBJECTS) $(libscistatistics_la_LIBADD) $(LIBS) + +mostlyclean-compile: + -rm -f *.$(OBJEXT) + -rm -f sci_gateway/c/*.$(OBJEXT) + -rm -f sci_gateway/c/*.lo + -rm -f src/c/*.$(OBJEXT) + -rm -f src/c/*.lo + -rm -f src/dcdflib/*.$(OBJEXT) + -rm -f src/dcdflib/*.lo + +distclean-compile: + -rm -f *.tab.c + +include sci_gateway/c/$(DEPDIR)/libscistatistics_la-gw_statistics.Plo +include sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfbet.Plo +include sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfbin.Plo +include sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfchi.Plo +include sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfchn.Plo +include sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdff.Plo +include sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdffnc.Plo +include sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfgam.Plo +include sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfnbn.Plo +include sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfnor.Plo +include sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfpoi.Plo +include sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdft.Plo +include src/c/$(DEPDIR)/libscistatistics_algo_la-CdfBase.Plo +include src/c/$(DEPDIR)/libscistatistics_algo_la-ipmpar1.Plo + +.c.o: + $(AM_V_CC)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.o$$||'`;\ + $(COMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ $< &&\ + $(am__mv) $$depbase.Tpo $$depbase.Po +# $(AM_V_CC)source='$<' object='$@' libtool=no \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(COMPILE) -c -o $@ $< + +.c.obj: + $(AM_V_CC)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.obj$$||'`;\ + $(COMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ `$(CYGPATH_W) '$<'` &&\ + $(am__mv) $$depbase.Tpo $$depbase.Po +# $(AM_V_CC)source='$<' object='$@' libtool=no \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(COMPILE) -c -o $@ `$(CYGPATH_W) '$<'` + +.c.lo: + $(AM_V_CC)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.lo$$||'`;\ + $(LTCOMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ $< &&\ + $(am__mv) $$depbase.Tpo $$depbase.Plo +# $(AM_V_CC)source='$<' object='$@' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(LTCOMPILE) -c -o $@ $< + +src/c/libscistatistics_algo_la-CdfBase.lo: src/c/CdfBase.c + $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src/c/libscistatistics_algo_la-CdfBase.lo -MD -MP -MF src/c/$(DEPDIR)/libscistatistics_algo_la-CdfBase.Tpo -c -o src/c/libscistatistics_algo_la-CdfBase.lo `test -f 'src/c/CdfBase.c' || echo '$(srcdir)/'`src/c/CdfBase.c + $(AM_V_at)$(am__mv) src/c/$(DEPDIR)/libscistatistics_algo_la-CdfBase.Tpo src/c/$(DEPDIR)/libscistatistics_algo_la-CdfBase.Plo +# $(AM_V_CC)source='src/c/CdfBase.c' object='src/c/libscistatistics_algo_la-CdfBase.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src/c/libscistatistics_algo_la-CdfBase.lo `test -f 'src/c/CdfBase.c' || echo '$(srcdir)/'`src/c/CdfBase.c + +src/c/libscistatistics_algo_la-ipmpar1.lo: src/c/ipmpar1.c + $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src/c/libscistatistics_algo_la-ipmpar1.lo -MD -MP -MF src/c/$(DEPDIR)/libscistatistics_algo_la-ipmpar1.Tpo -c -o src/c/libscistatistics_algo_la-ipmpar1.lo `test -f 'src/c/ipmpar1.c' || echo '$(srcdir)/'`src/c/ipmpar1.c + $(AM_V_at)$(am__mv) src/c/$(DEPDIR)/libscistatistics_algo_la-ipmpar1.Tpo src/c/$(DEPDIR)/libscistatistics_algo_la-ipmpar1.Plo +# $(AM_V_CC)source='src/c/ipmpar1.c' object='src/c/libscistatistics_algo_la-ipmpar1.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src/c/libscistatistics_algo_la-ipmpar1.lo `test -f 'src/c/ipmpar1.c' || echo '$(srcdir)/'`src/c/ipmpar1.c + +sci_gateway/c/libscistatistics_la-gw_statistics.lo: sci_gateway/c/gw_statistics.c + $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-gw_statistics.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-gw_statistics.Tpo -c -o sci_gateway/c/libscistatistics_la-gw_statistics.lo `test -f 'sci_gateway/c/gw_statistics.c' || echo '$(srcdir)/'`sci_gateway/c/gw_statistics.c + $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-gw_statistics.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-gw_statistics.Plo +# $(AM_V_CC)source='sci_gateway/c/gw_statistics.c' object='sci_gateway/c/libscistatistics_la-gw_statistics.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-gw_statistics.lo `test -f 'sci_gateway/c/gw_statistics.c' || echo '$(srcdir)/'`sci_gateway/c/gw_statistics.c + +sci_gateway/c/libscistatistics_la-sci_cdfchi.lo: sci_gateway/c/sci_cdfchi.c + $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdfchi.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfchi.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdfchi.lo `test -f 'sci_gateway/c/sci_cdfchi.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfchi.c + $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfchi.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfchi.Plo +# $(AM_V_CC)source='sci_gateway/c/sci_cdfchi.c' object='sci_gateway/c/libscistatistics_la-sci_cdfchi.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdfchi.lo `test -f 'sci_gateway/c/sci_cdfchi.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfchi.c + +sci_gateway/c/libscistatistics_la-sci_cdft.lo: sci_gateway/c/sci_cdft.c + $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdft.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdft.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdft.lo `test -f 'sci_gateway/c/sci_cdft.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdft.c + $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdft.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdft.Plo +# $(AM_V_CC)source='sci_gateway/c/sci_cdft.c' object='sci_gateway/c/libscistatistics_la-sci_cdft.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdft.lo `test -f 'sci_gateway/c/sci_cdft.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdft.c + +sci_gateway/c/libscistatistics_la-sci_cdfgam.lo: sci_gateway/c/sci_cdfgam.c + $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdfgam.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfgam.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdfgam.lo `test -f 'sci_gateway/c/sci_cdfgam.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfgam.c + $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfgam.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfgam.Plo +# $(AM_V_CC)source='sci_gateway/c/sci_cdfgam.c' object='sci_gateway/c/libscistatistics_la-sci_cdfgam.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdfgam.lo `test -f 'sci_gateway/c/sci_cdfgam.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfgam.c + +sci_gateway/c/libscistatistics_la-sci_cdff.lo: sci_gateway/c/sci_cdff.c + $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdff.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdff.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdff.lo `test -f 'sci_gateway/c/sci_cdff.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdff.c + $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdff.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdff.Plo +# $(AM_V_CC)source='sci_gateway/c/sci_cdff.c' object='sci_gateway/c/libscistatistics_la-sci_cdff.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdff.lo `test -f 'sci_gateway/c/sci_cdff.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdff.c + +sci_gateway/c/libscistatistics_la-sci_cdffnc.lo: sci_gateway/c/sci_cdffnc.c + $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdffnc.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdffnc.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdffnc.lo `test -f 'sci_gateway/c/sci_cdffnc.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdffnc.c + $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdffnc.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdffnc.Plo +# $(AM_V_CC)source='sci_gateway/c/sci_cdffnc.c' object='sci_gateway/c/libscistatistics_la-sci_cdffnc.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdffnc.lo `test -f 'sci_gateway/c/sci_cdffnc.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdffnc.c + +sci_gateway/c/libscistatistics_la-sci_cdfpoi.lo: sci_gateway/c/sci_cdfpoi.c + $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdfpoi.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfpoi.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdfpoi.lo `test -f 'sci_gateway/c/sci_cdfpoi.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfpoi.c + $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfpoi.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfpoi.Plo +# $(AM_V_CC)source='sci_gateway/c/sci_cdfpoi.c' object='sci_gateway/c/libscistatistics_la-sci_cdfpoi.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdfpoi.lo `test -f 'sci_gateway/c/sci_cdfpoi.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfpoi.c + +sci_gateway/c/libscistatistics_la-sci_cdfbin.lo: sci_gateway/c/sci_cdfbin.c + $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdfbin.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfbin.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdfbin.lo `test -f 'sci_gateway/c/sci_cdfbin.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfbin.c + $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfbin.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfbin.Plo +# $(AM_V_CC)source='sci_gateway/c/sci_cdfbin.c' object='sci_gateway/c/libscistatistics_la-sci_cdfbin.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdfbin.lo `test -f 'sci_gateway/c/sci_cdfbin.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfbin.c + +sci_gateway/c/libscistatistics_la-sci_cdfchn.lo: sci_gateway/c/sci_cdfchn.c + $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdfchn.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfchn.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdfchn.lo `test -f 'sci_gateway/c/sci_cdfchn.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfchn.c + $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfchn.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfchn.Plo +# $(AM_V_CC)source='sci_gateway/c/sci_cdfchn.c' object='sci_gateway/c/libscistatistics_la-sci_cdfchn.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdfchn.lo `test -f 'sci_gateway/c/sci_cdfchn.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfchn.c + +sci_gateway/c/libscistatistics_la-sci_cdfbet.lo: sci_gateway/c/sci_cdfbet.c + $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdfbet.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfbet.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdfbet.lo `test -f 'sci_gateway/c/sci_cdfbet.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfbet.c + $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfbet.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfbet.Plo +# $(AM_V_CC)source='sci_gateway/c/sci_cdfbet.c' object='sci_gateway/c/libscistatistics_la-sci_cdfbet.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdfbet.lo `test -f 'sci_gateway/c/sci_cdfbet.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfbet.c + +sci_gateway/c/libscistatistics_la-sci_cdfnbn.lo: sci_gateway/c/sci_cdfnbn.c + $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdfnbn.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfnbn.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdfnbn.lo `test -f 'sci_gateway/c/sci_cdfnbn.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfnbn.c + $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfnbn.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfnbn.Plo +# $(AM_V_CC)source='sci_gateway/c/sci_cdfnbn.c' object='sci_gateway/c/libscistatistics_la-sci_cdfnbn.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdfnbn.lo `test -f 'sci_gateway/c/sci_cdfnbn.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfnbn.c + +sci_gateway/c/libscistatistics_la-sci_cdfnor.lo: sci_gateway/c/sci_cdfnor.c + $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdfnor.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfnor.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdfnor.lo `test -f 'sci_gateway/c/sci_cdfnor.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfnor.c + $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfnor.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfnor.Plo +# $(AM_V_CC)source='sci_gateway/c/sci_cdfnor.c' object='sci_gateway/c/libscistatistics_la-sci_cdfnor.lo' libtool=yes \ +# DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) \ +# $(AM_V_CC_no)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdfnor.lo `test -f 'sci_gateway/c/sci_cdfnor.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfnor.c + +.f.o: + $(AM_V_F77)$(F77COMPILE) -c -o $@ $< + +.f.obj: + $(AM_V_F77)$(F77COMPILE) -c -o $@ `$(CYGPATH_W) '$<'` + +.f.lo: + $(AM_V_F77)$(LTF77COMPILE) -c -o $@ $< + +mostlyclean-libtool: + -rm -f *.lo + +clean-libtool: + -rm -rf .libs _libs + -rm -rf sci_gateway/c/.libs sci_gateway/c/_libs + -rm -rf src/c/.libs src/c/_libs + -rm -rf src/dcdflib/.libs src/dcdflib/_libs +install-libscistatistics_la_etcDATA: $(libscistatistics_la_etc_DATA) + @$(NORMAL_INSTALL) + @list='$(libscistatistics_la_etc_DATA)'; test -n "$(libscistatistics_la_etcdir)" || list=; \ + if test -n "$$list"; then \ + echo " $(MKDIR_P) '$(DESTDIR)$(libscistatistics_la_etcdir)'"; \ + $(MKDIR_P) "$(DESTDIR)$(libscistatistics_la_etcdir)" || exit 1; \ + fi; \ + for p in $$list; do \ + if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ + echo "$$d$$p"; \ + done | $(am__base_list) | \ + while read files; do \ + echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(libscistatistics_la_etcdir)'"; \ + $(INSTALL_DATA) $$files "$(DESTDIR)$(libscistatistics_la_etcdir)" || exit $$?; \ + done + +uninstall-libscistatistics_la_etcDATA: + @$(NORMAL_UNINSTALL) + @list='$(libscistatistics_la_etc_DATA)'; test -n "$(libscistatistics_la_etcdir)" || list=; \ + files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ + dir='$(DESTDIR)$(libscistatistics_la_etcdir)'; $(am__uninstall_files_from_dir) +install-libscistatistics_la_rootDATA: $(libscistatistics_la_root_DATA) + @$(NORMAL_INSTALL) + @list='$(libscistatistics_la_root_DATA)'; test -n "$(libscistatistics_la_rootdir)" || list=; \ + if test -n "$$list"; then \ + echo " $(MKDIR_P) '$(DESTDIR)$(libscistatistics_la_rootdir)'"; \ + $(MKDIR_P) "$(DESTDIR)$(libscistatistics_la_rootdir)" || exit 1; \ + fi; \ + for p in $$list; do \ + if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ + echo "$$d$$p"; \ + done | $(am__base_list) | \ + while read files; do \ + echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(libscistatistics_la_rootdir)'"; \ + $(INSTALL_DATA) $$files "$(DESTDIR)$(libscistatistics_la_rootdir)" || exit $$?; \ + done + +uninstall-libscistatistics_la_rootDATA: + @$(NORMAL_UNINSTALL) + @list='$(libscistatistics_la_root_DATA)'; test -n "$(libscistatistics_la_rootdir)" || list=; \ + files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ + dir='$(DESTDIR)$(libscistatistics_la_rootdir)'; $(am__uninstall_files_from_dir) +install-libscistatistics_la_sci_gatewayDATA: $(libscistatistics_la_sci_gateway_DATA) + @$(NORMAL_INSTALL) + @list='$(libscistatistics_la_sci_gateway_DATA)'; test -n "$(libscistatistics_la_sci_gatewaydir)" || list=; \ + if test -n "$$list"; then \ + echo " $(MKDIR_P) '$(DESTDIR)$(libscistatistics_la_sci_gatewaydir)'"; \ + $(MKDIR_P) "$(DESTDIR)$(libscistatistics_la_sci_gatewaydir)" || exit 1; \ + fi; \ + for p in $$list; do \ + if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ + echo "$$d$$p"; \ + done | $(am__base_list) | \ + while read files; do \ + echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(libscistatistics_la_sci_gatewaydir)'"; \ + $(INSTALL_DATA) $$files "$(DESTDIR)$(libscistatistics_la_sci_gatewaydir)" || exit $$?; \ + done + +uninstall-libscistatistics_la_sci_gatewayDATA: + @$(NORMAL_UNINSTALL) + @list='$(libscistatistics_la_sci_gateway_DATA)'; test -n "$(libscistatistics_la_sci_gatewaydir)" || list=; \ + files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ + dir='$(DESTDIR)$(libscistatistics_la_sci_gatewaydir)'; $(am__uninstall_files_from_dir) + +ID: $(am__tagged_files) + $(am__define_uniq_tagged_files); mkid -fID $$unique +tags: tags-am +TAGS: tags + +tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) + set x; \ + here=`pwd`; \ + $(am__define_uniq_tagged_files); \ + shift; \ + if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ + test -n "$$unique" || unique=$$empty_fix; \ + if test $$# -gt 0; then \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + "$$@" $$unique; \ + else \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + $$unique; \ + fi; \ + fi +ctags: ctags-am + +CTAGS: ctags +ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) + $(am__define_uniq_tagged_files); \ + test -z "$(CTAGS_ARGS)$$unique" \ + || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ + $$unique + +GTAGS: + here=`$(am__cd) $(top_builddir) && pwd` \ + && $(am__cd) $(top_srcdir) \ + && gtags -i $(GTAGS_ARGS) "$$here" +cscopelist: cscopelist-am + +cscopelist-am: $(am__tagged_files) + list='$(am__tagged_files)'; \ + case "$(srcdir)" in \ + [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ + *) sdir=$(subdir)/$(srcdir) ;; \ + esac; \ + for i in $$list; do \ + if test -f "$$i"; then \ + echo "$(subdir)/$$i"; \ + else \ + echo "$$sdir/$$i"; \ + fi; \ + done >> $(top_builddir)/cscope.files + +distclean-tags: + -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags + +distdir: $(DISTFILES) + @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + list='$(DISTFILES)'; \ + dist_files=`for file in $$list; do echo $$file; done | \ + sed -e "s|^$$srcdirstrip/||;t" \ + -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ + case $$dist_files in \ + */*) $(MKDIR_P) `echo "$$dist_files" | \ + sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ + sort -u` ;; \ + esac; \ + for file in $$dist_files; do \ + if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ + if test -d $$d/$$file; then \ + dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ + if test -d "$(distdir)/$$file"; then \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ + cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ + else \ + test -f "$(distdir)/$$file" \ + || cp -p $$d/$$file "$(distdir)/$$file" \ + || exit 1; \ + fi; \ + done +check-am: all-am + $(MAKE) $(AM_MAKEFLAGS) check-local +check: check-am +all-am: Makefile $(LTLIBRARIES) $(DATA) all-local +installdirs: + for dir in "$(DESTDIR)$(pkglibdir)" "$(DESTDIR)$(libscistatistics_la_etcdir)" "$(DESTDIR)$(libscistatistics_la_rootdir)" "$(DESTDIR)$(libscistatistics_la_sci_gatewaydir)"; do \ + test -z "$$dir" || $(MKDIR_P) "$$dir"; \ + done +install: install-am +install-exec: install-exec-am +install-data: install-data-am +uninstall: uninstall-am + +install-am: all-am + @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + +installcheck: installcheck-am +install-strip: + if test -z '$(STRIP)'; then \ + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + install; \ + else \ + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ + fi +mostlyclean-generic: + +clean-generic: + +distclean-generic: + -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) + -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) + -rm -f sci_gateway/c/$(DEPDIR)/$(am__dirstamp) + -rm -f sci_gateway/c/$(am__dirstamp) + -rm -f src/c/$(DEPDIR)/$(am__dirstamp) + -rm -f src/c/$(am__dirstamp) + -rm -f src/dcdflib/$(DEPDIR)/$(am__dirstamp) + -rm -f src/dcdflib/$(am__dirstamp) + +maintainer-clean-generic: + @echo "This command is intended for maintainers to use" + @echo "it deletes files that may require special tools to rebuild." +clean: clean-am + +clean-am: clean-generic clean-libtool clean-local \ + clean-noinstLTLIBRARIES clean-pkglibLTLIBRARIES mostlyclean-am + +distclean: distclean-am + -rm -rf sci_gateway/c/$(DEPDIR) src/c/$(DEPDIR) + -rm -f Makefile +distclean-am: clean-am distclean-compile distclean-generic \ + distclean-local distclean-tags + +dvi: dvi-am + +dvi-am: + +html: html-am + +html-am: + +info: info-am + +info-am: + +install-data-am: install-data-local \ + install-libscistatistics_la_etcDATA \ + install-libscistatistics_la_rootDATA \ + install-libscistatistics_la_sci_gatewayDATA + +install-dvi: install-dvi-am + +install-dvi-am: + +install-exec-am: install-pkglibLTLIBRARIES + +install-html: install-html-am + +install-html-am: install-html-local + +install-info: install-info-am + +install-info-am: + +install-man: + +install-pdf: install-pdf-am + +install-pdf-am: + +install-ps: install-ps-am + +install-ps-am: + +installcheck-am: + +maintainer-clean: maintainer-clean-am + -rm -rf sci_gateway/c/$(DEPDIR) src/c/$(DEPDIR) + -rm -f Makefile +maintainer-clean-am: distclean-am maintainer-clean-generic + +mostlyclean: mostlyclean-am + +mostlyclean-am: mostlyclean-compile mostlyclean-generic \ + mostlyclean-libtool + +pdf: pdf-am + +pdf-am: + +ps: ps-am + +ps-am: + +uninstall-am: uninstall-libscistatistics_la_etcDATA \ + uninstall-libscistatistics_la_rootDATA \ + uninstall-libscistatistics_la_sci_gatewayDATA \ + uninstall-pkglibLTLIBRARIES + +.MAKE: check-am install-am install-strip + +.PHONY: CTAGS GTAGS TAGS all all-am all-local check check-am \ + check-local clean clean-generic clean-libtool clean-local \ + clean-noinstLTLIBRARIES clean-pkglibLTLIBRARIES cscopelist-am \ + ctags ctags-am distclean distclean-compile distclean-generic \ + distclean-libtool distclean-local distclean-tags distdir dvi \ + dvi-am html html-am info info-am install install-am \ + install-data install-data-am install-data-local install-dvi \ + install-dvi-am install-exec install-exec-am install-html \ + install-html-am install-html-local install-info \ + install-info-am install-libscistatistics_la_etcDATA \ + install-libscistatistics_la_rootDATA \ + install-libscistatistics_la_sci_gatewayDATA install-man \ + install-pdf install-pdf-am install-pkglibLTLIBRARIES \ + install-ps install-ps-am install-strip installcheck \ + installcheck-am installdirs maintainer-clean \ + maintainer-clean-generic mostlyclean mostlyclean-compile \ + mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ + tags tags-am uninstall uninstall-am \ + uninstall-libscistatistics_la_etcDATA \ + uninstall-libscistatistics_la_rootDATA \ + uninstall-libscistatistics_la_sci_gatewayDATA \ + uninstall-pkglibLTLIBRARIES + + +# This target enables tests for Scilab +check-local: $(top_builddir)/scilab-bin test + if test -d $(mydatadir)/tests; then \ + @COMMAND="try test_run('$(modulename)');catch exit(-1);end;exit(0)"; export LANG=C; $(top_builddir)/bin/scilab -nwni -nb -e "$$COMMAND"; \ + fi +check-code: + if test -f build.xml; then \ + $(ANT) checkstyle; \ + fi + if test -x "$(SPLINT)"; then \ + $(SPLINT) $(SPLINT_OPTIONS) -I$(top_srcdir)/modules/core/includes/ -I$(top_srcdir)/libs/MALLOC/includes/ -I$(top_srcdir)/modules/localization/includes/ $(INCLUDE_FLAGS) $(CHECK_SRC); \ + fi +java: +# Some configurations needs to export JAVA_HOME in the current env + @if test "$(JAVA_HOME)"; then export JAVA_HOME=$(JAVA_HOME); fi; \ + if test -z "$(USEANT)"; then USEANT=0; else USEANT=1; fi; \ + if test -f build.xml -a $$USEANT -eq 1; then \ + $(ANT); \ + fi + +clean-java: +# Some configurations needs to export JAVA_HOME in the current env + @if test "$(JAVA_HOME)"; then export JAVA_HOME=$(JAVA_HOME); fi; \ + if test -z "$(USEANT)"; then USEANT=0; else USEANT=1; fi; \ + if test -f build.xml -a $$USEANT -eq 1; then \ + $(ANT) clean; \ + fi; + +# If the user request for the SWIG generation of the wrappers Java => C/C++ +# We call the target swig-build on the variable SWIG_WRAPPERS + +#swig: $(SWIG_WRAPPERS) +# @SWIG_PACKAGENAME=org.scilab.modules.$(modulename); \ +# SWIG_OUTDIR=src/java/org/scilab/modules/$(modulename)/; \ +# if test -n "$(SWIG_WRAPPERS)"; then \ +# for file in $(SWIG_WRAPPERS) ; do \ +# echo "Swig process of $$file (Java) ..."; \ +# $(SWIG_BIN) $(SWIG_JAVA) -package $$SWIG_PACKAGENAME -outdir $$SWIG_OUTDIR $$file; \ +# done; \ +# fi + +#swig-scilab: $(SWIG_SCILAB_WRAPPERS) +# @SWIG_OUTDIR=src/swig/; \ +# if test -n "$(SWIG_SCILAB_WRAPPERS)"; then \ +# for file in $(SWIG_SCILAB_WRAPPERS) ; do \ +# echo "Swig process of $$file (Scilab) ..."; \ +# $(SWIG_BIN) $(SWIG_SCILAB) -outdir $$SWIG_OUTDIR $$file; \ +# done; \ +# fi + +# If the user request for the SWIG generation of the wrappers Java => C/C++ +# We call the target swig-build on the variable SWIG_WRAPPERS + +#giws: $(GIWS_WRAPPERS) +# @GIWS_OUTPUTDIR=src/jni/; \ +# MANDATORY_OPTIONS="--throws-exception-on-error --description-file"; \ +# if test -n "$(GIWS_WRAPPERS)"; then \ +# for file in $(GIWS_WRAPPERS) ; do \ +# echo "GIWS process of $$file ..."; \ +# if test -z "$(GIWS_OPTIONS)"; then \ +# $(GIWS_BIN) --disable-return-size-array --output-dir $$GIWS_OUTPUTDIR $$MANDATORY_OPTIONS $$file; \ +# else \ +# echo "Custom GIWS call with '$$GIWS_OPTIONS'"; \ +# $(GIWS_BIN) $$GIWS_OPTIONS --output-dir $$GIWS_OUTPUTDIR $$MANDATORY_OPTIONS $$file; \ +# fi \ +# done; \ +# fi + +#giws-exception: +# @GIWS_OUTPUTDIR=src/jni/;\ +# echo "GIWS: Generation of exception class ..."; \ +# $(GIWS_BIN) --generate-exception-class --output-dir $$GIWS_OUTPUTDIR + +macros: + -@( if test ! -x $(top_builddir)/scilab-bin; then \ + echo "Error : Cannot build $< : Scilab has not been built"; \ + else \ + $(top_builddir)/bin/scilab -ns -nwni -e "exec('macros/buildmacros.sce');quit;";\ + fi) + +# Removes the macros +clean-macros: +# Removes macros (*.bin generated from .sci) + @for dir in $(MACRODIRS) $(MACROSDIRSEXT) ; do \ + echo "rm -f $(builddir)/$$dir/$(MACROBINMASK)"; \ + rm -f $(builddir)/$$dir/$(MACROBINMASK); \ + done + +test: +# More tests could be added here + @if test -z "$(USEANT)"; then USEANT=0; else USEANT=1; fi; \ + if test -f build.xml -a $$USEANT -eq 1; then \ + $(ANT) test; \ + fi + +all-local: $(TARGETS_ALL) + +.sci.bin: + -@( if test ! -x $(top_builddir)/scilab-bin; then \ + echo "Error : Cannot build $< : Scilab has not been build"; \ + else \ + echo "Creating $@"; \ + $(top_builddir)/bin/scilab -ns -nwni -e "exec('$(abs_srcdir)/$<');save('$(abs_srcdir)/$@');exit;"; \ + fi ) + +install-html-local: + +install-data-local-local: +# Mainly for javasci + @if test -d $(srcdir)/javadoc; then \ + cp -R $(srcdir)/javadoc $(DESTDIR)/$(mydatadir)/; \ + fi +# If the user wants the help sources to be installed + @echo "-------- Install of XML sources of help files --------"; \ + for lang in $(ALL_LINGUAS); do \ + if test -d $(srcdir)/help/$$lang; then \ + $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/help/$$lang && \ + if ls -lLd $(srcdir)/help/$$lang/$(DOCMASKXML) >/dev/null 2>&1; then \ + for file in $(srcdir)/help/$$lang/$(DOCMASKXML) ; do \ + echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgdocdir)/help/$$lang" ; \ + $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgdocdir)/help/$$lang ; \ + done ; \ + fi; \ + fi; \ + done; \ + @echo "-------- Install of MathML sources --------"; \ + if test -d $(srcdir)/help/mml/; then \ + $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/help/mml/ && \ + if ls -lLd $(srcdir)/help/mml/$(DOCMASKMML) >/dev/null 2>&1; then \ + for file in $(srcdir)/help/mml/$(DOCMASKMML) ; do \ + echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgdocdir)/help/mml" ; \ + $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgdocdir)/help/mml ; \ + done ; \ + fi; \ + fi +install-data-local: +# Install the tests + @echo "-------- Install tests (if any) --------"; \ + for dir in $(TESTS_DIR) $(TESTS_DIREXT) ; do \ + if test -d $(srcdir)/$$dir/; then \ + $(mkinstalldirs) $(DESTDIR)$(pkgmacrosdir)/$$dir && \ + for file in `find $(srcdir)/$$dir | sed "s|^$(srcdir)/$$dir||" 2>/dev/null`; do \ + if test -d "$(srcdir)/$$dir/$$file"; then \ + echo $(mkinstalldirs) $(DESTDIR)$(pkgmacrosdir)/$$dir/$$file; \ + $(mkinstalldirs) "$(DESTDIR)$(pkgmacrosdir)/$$dir/$$file"; \ + else \ + echo "$(INSTALL_DATA) $(srcdir)/$$dir/$$file $(DESTDIR)$(pkgmacrosdir)/`dirname $$dir/$$file`" ; \ + $(INSTALL_DATA) "$(srcdir)/$$dir/$$file" "$(DESTDIR)$(pkgmacrosdir)/`dirname $$dir/$$file`" ; \ + fi \ + done; \ + fi; \ + done +# Install the help chapter + @echo "-------- Install the help chapter (if any) --------"; \ + for lang in $(HELP_CHAPTERLANG); do \ + HELPFILE=$(srcdir)/$(HELP_CHAPTERDIR)$$lang/$(HELP_CHAPTERFILE); \ + if test -f $$HELPFILE; then \ + echo $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$(HELP_CHAPTERDIR)/$$lang/; \ + $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$(HELP_CHAPTERDIR)/$$lang/; \ + echo $(INSTALL_DATA) $$HELPFILE $(DESTDIR)$(pkgdocdir)/$$HELPFILE; \ + $(INSTALL_DATA) $$HELPFILE $(DESTDIR)$(pkgdocdir)/$$HELPFILE; \ + fi; \ + done +# Install the demos & examples + @echo "-------- Install demos & examples (if any) --------"; \ + for dir in $(DEMOS_DIR) $(DEMOS_DIREXT) $(EXAMPLES_DIR) $(EXAMPLES_DIREXT) ; do \ + if test -d $(srcdir)/$$dir/; then \ + $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$$dir && \ + for file in `find $(srcdir)/$$dir | sed "s|^$(srcdir)/$$dir||" 2>/dev/null`; do \ + if test -d "$(srcdir)/$$dir/$$file"; then \ + echo $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$$dir/$$file; \ + $(mkinstalldirs) "$(DESTDIR)$(pkgdocdir)/$$dir/$$file"; \ + else \ + echo "$(INSTALL_DATA) $(srcdir)/$$dir/$$file $(DESTDIR)$(pkgdocdir)/`dirname $$dir/$$file`" ; \ + $(INSTALL_DATA) "$(srcdir)/$$dir/$$file" "$(DESTDIR)$(pkgdocdir)/`dirname $$dir/$$file`" ; \ + fi \ + done; \ + fi; \ + done +# Install the macros + @echo "-------- Install macros (if any) --------"; \ + for dir in $(MACRODIRS) $(MACROSDIRSEXT) ; do \ + $(mkinstalldirs) $(DESTDIR)$(pkgmacrosdir)/$$dir && \ + if test -d $(srcdir)/$$dir/; then \ + FILELIST="$(srcdir)/$$dir/$(MACROMASK) $(srcdir)/$$dir/$(MACROBINMASK) $(srcdir)/$$dir/$(MACROBUILDMASK) $(srcdir)/$$dir/names $(srcdir)/$$dir/lib";\ + if test -n "$(MACROSSPECIALEXT)"; then \ + specialExtDir=""; \ + for specialExt in $(MACROSSPECIALEXT); do \ + specialExtDir="$$specialExtDir $(srcdir)/$$dir/$$specialExt"; \ + done; \ + FILELIST="$$FILELIST $$specialExtDir"; \ + fi; \ + for file in `ls -1 $$FILELIST 2>/dev/null`; do \ + echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgmacrosdir)/$$dir" ; \ + $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgmacrosdir)/$$dir ; \ + done; \ + fi; \ + done +# Install java files (.jar) + @if ls -lLd $(srcdir)/$(JARDIR)$(JARMASK) >/dev/null 2>&1; then \ + echo "-------- Install jar files --------"; \ + $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$(JARDIR); \ + for file in $(srcdir)/$(JARDIR)$(JARMASK); do\ + echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgdocdir)/$(JARDIR)" ; \ + $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgdocdir)/$(JARDIR) ; \ + done ; \ + fi + +########### CLEAN ################### +# Clean help (generated automatically by Scilab) +# It used to clean the macro (clean-macros) but this was causing +# make clean && make to fail Scilab startup +clean-local: clean-java +#clean-local: + +distclean-local: + rm -f $(builddir)/help/*/.last_successful_build_javaHelp $(builddir)/help/*/.list_* + +.PHONY: macros java swig giws + +# Tell versions [3.59,3.63) of GNU make to not export all variables. +# Otherwise a system limit (for SysV at least) may be exceeded. +.NOEXPORT: diff --git a/modules/statistics/Makefile.am b/modules/statistics/Makefile.am new file mode 100755 index 000000000..ab23917d4 --- /dev/null +++ b/modules/statistics/Makefile.am @@ -0,0 +1,126 @@ +# Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +# Copyright (C) 2006-2007 - INRIA - Sylvestre LEDRU +# +# This file is distributed under the same license as the Scilab package. + +STATISTICS_C_SOURCES = src/c/CdfBase.c \ +src/c/ipmpar1.c + +STATISTICS_FORTRAN_SOURCES = src/dcdflib/psi.f \ +src/dcdflib/alngam.f \ +src/dcdflib/erfc1.f \ +src/dcdflib/cdff.f \ +src/dcdflib/spmpar.f \ +src/dcdflib/cumnor.f \ +src/dcdflib/cdfpoi.f \ +src/dcdflib/bcorr.f \ +src/dcdflib/cumchi.f \ +src/dcdflib/apser.f \ +src/dcdflib/gamln1.f \ +src/dcdflib/cdft.f \ +src/dcdflib/gaminv.f \ +src/dcdflib/cumnbn.f \ +src/dcdflib/cdffnc.f \ +src/dcdflib/rlog1.f \ +src/dcdflib/cdfchn.f \ +src/dcdflib/dt1.f \ +src/dcdflib/bgrat.f \ +src/dcdflib/dinvnr.f \ +src/dcdflib/rlog.f \ +src/dcdflib/basym.f \ +src/dcdflib/bfrac.f \ +src/dcdflib/cumbin.f \ +src/dcdflib/cumbet.f \ +src/dcdflib/rcomp.f \ +src/dcdflib/cdfgam.f \ +src/dcdflib/gratio.f \ +src/dcdflib/gam1.f \ +src/dcdflib/exparg.f \ +src/dcdflib/ipmpar.f \ +src/dcdflib/cumf.f \ +src/dcdflib/cumpoi.f \ +src/dcdflib/gamln.f \ +src/dcdflib/betaln.f \ +src/dcdflib/stvaln.f \ +src/dcdflib/cumt.f \ +src/dcdflib/esum.f \ +src/dcdflib/bpser.f \ +src/dcdflib/cdfnor.f \ +src/dcdflib/cumfnc.f \ +src/dcdflib/erf.f \ +src/dcdflib/alnrel.f \ +src/dcdflib/cumchn.f \ +src/dcdflib/rexp.f \ +src/dcdflib/fpser.f \ +src/dcdflib/bratio.f \ +src/dcdflib/cdfchi.f \ +src/dcdflib/gamma.f \ +src/dcdflib/dinvr.f \ +src/dcdflib/brcomp.f \ +src/dcdflib/devlpl.f \ +src/dcdflib/cdfnbn.f \ +src/dcdflib/dzror.f \ +src/dcdflib/gsumln.f \ +src/dcdflib/algdiv.f \ +src/dcdflib/cumgam.f \ +src/dcdflib/grat1.f \ +src/dcdflib/brcmp1.f \ +src/dcdflib/cdfbin.f \ +src/dcdflib/bup.f \ +src/dcdflib/cdfbet.f + +GATEWAY_C_SOURCES = sci_gateway/c/gw_statistics.c \ +sci_gateway/c/sci_cdfchi.c \ +sci_gateway/c/sci_cdft.c \ +sci_gateway/c/sci_cdfgam.c \ +sci_gateway/c/sci_cdff.c \ +sci_gateway/c/sci_cdffnc.c \ +sci_gateway/c/sci_cdfpoi.c \ +sci_gateway/c/sci_cdfbin.c \ +sci_gateway/c/sci_cdfchn.c \ +sci_gateway/c/sci_cdfbet.c \ +sci_gateway/c/sci_cdfnbn.c \ +sci_gateway/c/sci_cdfnor.c + +libscistatistics_la_CPPFLAGS= -I$(srcdir)/includes/ \ + -I$(srcdir)/src/c/ \ + -I$(top_srcdir)/modules/api_scilab/includes/ \ + -I$(top_srcdir)/modules/localization/includes/ \ + -I$(top_srcdir)/modules/output_stream/includes/ \ + $(AM_CPPFLAGS) + + +pkglib_LTLIBRARIES = libscistatistics.la +noinst_LTLIBRARIES = libscistatistics-algo.la + + + +libscistatistics_algo_la_SOURCES = $(STATISTICS_C_SOURCES) $(STATISTICS_FORTRAN_SOURCES) +libscistatistics_la_SOURCES = $(GATEWAY_C_SOURCES) +libscistatistics_algo_la_CPPFLAGS = $(libscistatistics_la_CPPFLAGS) + +# For the code check (splint) +CHECK_SRC= $(STATISTICS_C_SOURCES) $(GATEWAY_C_SOURCES) +INCLUDE_FLAGS = $(libscistatistics_la_CPPFLAGS) + +libscistatistics_la_LIBADD = libscistatistics-algo.la + +#### Target ###### +modulename=statistics + + +#### statistics : Conf files #### +libscistatistics_la_rootdir = $(mydatadir) +libscistatistics_la_root_DATA = license.txt + + +#### statistics : init scripts #### +libscistatistics_la_etcdir = $(mydatadir)/etc +libscistatistics_la_etc_DATA = etc/statistics.quit etc/statistics.start + +#### statistics : gateway declaration #### +libscistatistics_la_sci_gatewaydir = $(mydatadir)/sci_gateway +libscistatistics_la_sci_gateway_DATA = sci_gateway/statistics_gateway.xml + + +include $(top_srcdir)/Makefile.incl.am diff --git a/modules/statistics/Makefile.in b/modules/statistics/Makefile.in new file mode 100755 index 000000000..10d6f99af --- /dev/null +++ b/modules/statistics/Makefile.in @@ -0,0 +1,1710 @@ +# Makefile.in generated by automake 1.14.1 from Makefile.am. +# @configure_input@ + +# Copyright (C) 1994-2013 Free Software Foundation, Inc. + +# This Makefile.in is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + +@SET_MAKE@ + +# Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +# Copyright (C) 2006-2007 - INRIA - Sylvestre LEDRU +# +# This file is distributed under the same license as the Scilab package. + +# Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +# Copyright (C) 2006-2008 - INRIA - Sylvestre LEDRU <sylvestre.ledru@inria.fr> +# Copyright (C) 2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr> +# +# This file must be used under the terms of the CeCILL. +# This source file is licensed as described in the file COPYING, which +# you should have received as part of this distribution. The terms +# are also available at +# http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +# + +########## +### Makefile included stuff +### Target, variable, suffixes which are supposed to be useful in every makefile.am +########## + + +VPATH = @srcdir@ +am__is_gnu_make = test -n '$(MAKEFILE_LIST)' && test -n '$(MAKELEVEL)' +am__make_running_with_option = \ + case $${target_option-} in \ + ?) ;; \ + *) echo "am__make_running_with_option: internal error: invalid" \ + "target option '$${target_option-}' specified" >&2; \ + exit 1;; \ + esac; \ + has_opt=no; \ + sane_makeflags=$$MAKEFLAGS; \ + if $(am__is_gnu_make); then \ + sane_makeflags=$$MFLAGS; \ + else \ + case $$MAKEFLAGS in \ + *\\[\ \ ]*) \ + bs=\\; \ + sane_makeflags=`printf '%s\n' "$$MAKEFLAGS" \ + | sed "s/$$bs$$bs[$$bs $$bs ]*//g"`;; \ + esac; \ + fi; \ + skip_next=no; \ + strip_trailopt () \ + { \ + flg=`printf '%s\n' "$$flg" | sed "s/$$1.*$$//"`; \ + }; \ + for flg in $$sane_makeflags; do \ + test $$skip_next = yes && { skip_next=no; continue; }; \ + case $$flg in \ + *=*|--*) continue;; \ + -*I) strip_trailopt 'I'; skip_next=yes;; \ + -*I?*) strip_trailopt 'I';; \ + -*O) strip_trailopt 'O'; skip_next=yes;; \ + -*O?*) strip_trailopt 'O';; \ + -*l) strip_trailopt 'l'; skip_next=yes;; \ + -*l?*) strip_trailopt 'l';; \ + -[dEDm]) skip_next=yes;; \ + -[JT]) skip_next=yes;; \ + esac; \ + case $$flg in \ + *$$target_option*) has_opt=yes; break;; \ + esac; \ + done; \ + test $$has_opt = yes +am__make_dryrun = (target_option=n; $(am__make_running_with_option)) +am__make_keepgoing = (target_option=k; $(am__make_running_with_option)) +pkgdatadir = $(datadir)/@PACKAGE@ +pkgincludedir = $(includedir)/@PACKAGE@ +pkglibdir = $(libdir)/@PACKAGE@ +pkglibexecdir = $(libexecdir)/@PACKAGE@ +am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd +install_sh_DATA = $(install_sh) -c -m 644 +install_sh_PROGRAM = $(install_sh) -c +install_sh_SCRIPT = $(install_sh) -c +INSTALL_HEADER = $(INSTALL_DATA) +transform = $(program_transform_name) +NORMAL_INSTALL = : +PRE_INSTALL = : +POST_INSTALL = : +NORMAL_UNINSTALL = : +PRE_UNINSTALL = : +POST_UNINSTALL = : +build_triplet = @build@ +host_triplet = @host@ +DIST_COMMON = $(top_srcdir)/Makefile.incl.am $(srcdir)/Makefile.in \ + $(srcdir)/Makefile.am $(top_srcdir)/config/mkinstalldirs \ + $(top_srcdir)/config/depcomp +@NEED_JAVA_TRUE@am__append_1 = java +subdir = modules/statistics +ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 +am__aclocal_m4_deps = $(top_srcdir)/m4/backtrace.m4 \ + $(top_srcdir)/m4/compiler.m4 $(top_srcdir)/m4/curl.m4 \ + $(top_srcdir)/m4/docbook.m4 $(top_srcdir)/m4/doxygen.m4 \ + $(top_srcdir)/m4/fftw.m4 $(top_srcdir)/m4/fortran.m4 \ + $(top_srcdir)/m4/giws.m4 $(top_srcdir)/m4/hdf5.m4 \ + $(top_srcdir)/m4/intel_compiler.m4 \ + $(top_srcdir)/m4/java-thirdparty.m4 $(top_srcdir)/m4/java.m4 \ + $(top_srcdir)/m4/largefile.m4 $(top_srcdir)/m4/lib-ld.m4 \ + $(top_srcdir)/m4/libsmath.m4 $(top_srcdir)/m4/libtool.m4 \ + $(top_srcdir)/m4/libxml2.m4 $(top_srcdir)/m4/ltoptions.m4 \ + $(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \ + $(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/m4/macosx.m4 \ + $(top_srcdir)/m4/mpi.m4 $(top_srcdir)/m4/ocaml.m4 \ + $(top_srcdir)/m4/pcre.m4 $(top_srcdir)/m4/pkg.m4 \ + $(top_srcdir)/m4/relocatable.m4 $(top_srcdir)/m4/swig.m4 \ + $(top_srcdir)/m4/symlinks.m4 $(top_srcdir)/m4/tcltk.m4 \ + $(top_srcdir)/m4/umfpack.m4 $(top_srcdir)/configure.ac +am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ + $(ACLOCAL_M4) +mkinstalldirs = $(SHELL) $(top_srcdir)/config/mkinstalldirs +CONFIG_HEADER = $(top_builddir)/modules/core/includes/machine.h +CONFIG_CLEAN_FILES = +CONFIG_CLEAN_VPATH_FILES = +am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; +am__vpath_adj = case $$p in \ + $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ + *) f=$$p;; \ + esac; +am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; +am__install_max = 40 +am__nobase_strip_setup = \ + srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` +am__nobase_strip = \ + for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" +am__nobase_list = $(am__nobase_strip_setup); \ + for p in $$list; do echo "$$p $$p"; done | \ + sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ + $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ + if (++n[$$2] == $(am__install_max)) \ + { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ + END { for (dir in files) print dir, files[dir] }' +am__base_list = \ + sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ + sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' +am__uninstall_files_from_dir = { \ + test -z "$$files" \ + || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ + || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ + $(am__cd) "$$dir" && rm -f $$files; }; \ + } +am__installdirs = "$(DESTDIR)$(pkglibdir)" \ + "$(DESTDIR)$(libscistatistics_la_etcdir)" \ + "$(DESTDIR)$(libscistatistics_la_rootdir)" \ + "$(DESTDIR)$(libscistatistics_la_sci_gatewaydir)" +LTLIBRARIES = $(noinst_LTLIBRARIES) $(pkglib_LTLIBRARIES) +libscistatistics_algo_la_LIBADD = +am__dirstamp = $(am__leading_dot)dirstamp +am__objects_1 = src/c/libscistatistics_algo_la-CdfBase.lo \ + src/c/libscistatistics_algo_la-ipmpar1.lo +am__objects_2 = src/dcdflib/psi.lo src/dcdflib/alngam.lo \ + src/dcdflib/erfc1.lo src/dcdflib/cdff.lo src/dcdflib/spmpar.lo \ + src/dcdflib/cumnor.lo src/dcdflib/cdfpoi.lo \ + src/dcdflib/bcorr.lo src/dcdflib/cumchi.lo \ + src/dcdflib/apser.lo src/dcdflib/gamln1.lo src/dcdflib/cdft.lo \ + src/dcdflib/gaminv.lo src/dcdflib/cumnbn.lo \ + src/dcdflib/cdffnc.lo src/dcdflib/rlog1.lo \ + src/dcdflib/cdfchn.lo src/dcdflib/dt1.lo src/dcdflib/bgrat.lo \ + src/dcdflib/dinvnr.lo src/dcdflib/rlog.lo src/dcdflib/basym.lo \ + src/dcdflib/bfrac.lo src/dcdflib/cumbin.lo \ + src/dcdflib/cumbet.lo src/dcdflib/rcomp.lo \ + src/dcdflib/cdfgam.lo src/dcdflib/gratio.lo \ + src/dcdflib/gam1.lo src/dcdflib/exparg.lo \ + src/dcdflib/ipmpar.lo src/dcdflib/cumf.lo \ + src/dcdflib/cumpoi.lo src/dcdflib/gamln.lo \ + src/dcdflib/betaln.lo src/dcdflib/stvaln.lo \ + src/dcdflib/cumt.lo src/dcdflib/esum.lo src/dcdflib/bpser.lo \ + src/dcdflib/cdfnor.lo src/dcdflib/cumfnc.lo src/dcdflib/erf.lo \ + src/dcdflib/alnrel.lo src/dcdflib/cumchn.lo \ + src/dcdflib/rexp.lo src/dcdflib/fpser.lo src/dcdflib/bratio.lo \ + src/dcdflib/cdfchi.lo src/dcdflib/gamma.lo \ + src/dcdflib/dinvr.lo src/dcdflib/brcomp.lo \ + src/dcdflib/devlpl.lo src/dcdflib/cdfnbn.lo \ + src/dcdflib/dzror.lo src/dcdflib/gsumln.lo \ + src/dcdflib/algdiv.lo src/dcdflib/cumgam.lo \ + src/dcdflib/grat1.lo src/dcdflib/brcmp1.lo \ + src/dcdflib/cdfbin.lo src/dcdflib/bup.lo src/dcdflib/cdfbet.lo +am_libscistatistics_algo_la_OBJECTS = $(am__objects_1) \ + $(am__objects_2) +libscistatistics_algo_la_OBJECTS = \ + $(am_libscistatistics_algo_la_OBJECTS) +AM_V_lt = $(am__v_lt_@AM_V@) +am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@) +am__v_lt_0 = --silent +am__v_lt_1 = +libscistatistics_la_DEPENDENCIES = libscistatistics-algo.la +am__objects_3 = sci_gateway/c/libscistatistics_la-gw_statistics.lo \ + sci_gateway/c/libscistatistics_la-sci_cdfchi.lo \ + sci_gateway/c/libscistatistics_la-sci_cdft.lo \ + sci_gateway/c/libscistatistics_la-sci_cdfgam.lo \ + sci_gateway/c/libscistatistics_la-sci_cdff.lo \ + sci_gateway/c/libscistatistics_la-sci_cdffnc.lo \ + sci_gateway/c/libscistatistics_la-sci_cdfpoi.lo \ + sci_gateway/c/libscistatistics_la-sci_cdfbin.lo \ + sci_gateway/c/libscistatistics_la-sci_cdfchn.lo \ + sci_gateway/c/libscistatistics_la-sci_cdfbet.lo \ + sci_gateway/c/libscistatistics_la-sci_cdfnbn.lo \ + sci_gateway/c/libscistatistics_la-sci_cdfnor.lo +am_libscistatistics_la_OBJECTS = $(am__objects_3) +libscistatistics_la_OBJECTS = $(am_libscistatistics_la_OBJECTS) +AM_V_P = $(am__v_P_@AM_V@) +am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) +am__v_P_0 = false +am__v_P_1 = : +AM_V_GEN = $(am__v_GEN_@AM_V@) +am__v_GEN_ = $(am__v_GEN_@AM_DEFAULT_V@) +am__v_GEN_0 = @echo " GEN " $@; +am__v_GEN_1 = +AM_V_at = $(am__v_at_@AM_V@) +am__v_at_ = $(am__v_at_@AM_DEFAULT_V@) +am__v_at_0 = @ +am__v_at_1 = +DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir)/modules/core/includes +depcomp = $(SHELL) $(top_srcdir)/config/depcomp +am__depfiles_maybe = depfiles +am__mv = mv -f +COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ + $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) +LTCOMPILE = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) \ + $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) \ + $(AM_CFLAGS) $(CFLAGS) +AM_V_CC = $(am__v_CC_@AM_V@) +am__v_CC_ = $(am__v_CC_@AM_DEFAULT_V@) +am__v_CC_0 = @echo " CC " $@; +am__v_CC_1 = +CCLD = $(CC) +LINK = $(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ + $(AM_LDFLAGS) $(LDFLAGS) -o $@ +AM_V_CCLD = $(am__v_CCLD_@AM_V@) +am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@) +am__v_CCLD_0 = @echo " CCLD " $@; +am__v_CCLD_1 = +F77COMPILE = $(F77) $(AM_FFLAGS) $(FFLAGS) +LTF77COMPILE = $(LIBTOOL) $(AM_V_lt) --tag=F77 $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) +AM_V_F77 = $(am__v_F77_@AM_V@) +am__v_F77_ = $(am__v_F77_@AM_DEFAULT_V@) +am__v_F77_0 = @echo " F77 " $@; +am__v_F77_1 = +F77LD = $(F77) +F77LINK = $(LIBTOOL) $(AM_V_lt) --tag=F77 $(AM_LIBTOOLFLAGS) \ + $(LIBTOOLFLAGS) --mode=link $(F77LD) $(AM_FFLAGS) $(FFLAGS) \ + $(AM_LDFLAGS) $(LDFLAGS) -o $@ +AM_V_F77LD = $(am__v_F77LD_@AM_V@) +am__v_F77LD_ = $(am__v_F77LD_@AM_DEFAULT_V@) +am__v_F77LD_0 = @echo " F77LD " $@; +am__v_F77LD_1 = +SOURCES = $(libscistatistics_algo_la_SOURCES) \ + $(libscistatistics_la_SOURCES) +DIST_SOURCES = $(libscistatistics_algo_la_SOURCES) \ + $(libscistatistics_la_SOURCES) +am__can_run_installinfo = \ + case $$AM_UPDATE_INFO_DIR in \ + n|no|NO) false;; \ + *) (install-info --version) >/dev/null 2>&1;; \ + esac +DATA = $(libscistatistics_la_etc_DATA) \ + $(libscistatistics_la_root_DATA) \ + $(libscistatistics_la_sci_gateway_DATA) +am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) +# Read a list of newline-separated strings from the standard input, +# and print each of them once, without duplicates. Input order is +# *not* preserved. +am__uniquify_input = $(AWK) '\ + BEGIN { nonempty = 0; } \ + { items[$$0] = 1; nonempty = 1; } \ + END { if (nonempty) { for (i in items) print i; }; } \ +' +# Make sure the list of sources is unique. This is necessary because, +# e.g., the same source file might be shared among _SOURCES variables +# for different programs/libraries. +am__define_uniq_tagged_files = \ + list='$(am__tagged_files)'; \ + unique=`for i in $$list; do \ + if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ + done | $(am__uniquify_input)` +ETAGS = etags +CTAGS = ctags +DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) +ACLOCAL = @ACLOCAL@ +ALL_LINGUAS = @ALL_LINGUAS@ +ALL_LINGUAS_DOC = @ALL_LINGUAS_DOC@ +AMTAR = @AMTAR@ +AM_DEFAULT_VERBOSITY = @AM_DEFAULT_VERBOSITY@ +ANT = @ANT@ +ANTLR = @ANTLR@ +AR = @AR@ +ARPACK_LIBS = @ARPACK_LIBS@ +ASM3 = @ASM3@ +AUTOCONF = @AUTOCONF@ +AUTOHEADER = @AUTOHEADER@ +AUTOMAKE = @AUTOMAKE@ +AVALON_FRAMEWORK = @AVALON_FRAMEWORK@ +AWK = @AWK@ +BATIK = @BATIK@ +BLAS_LIBS = @BLAS_LIBS@ +CC = @CC@ +CCACHE = @CCACHE@ +CCDEPMODE = @CCDEPMODE@ +CFLAGS = @CFLAGS@ +CHECKSTYLE = @CHECKSTYLE@ +COBERTURA = @COBERTURA@ +COMMONS_BEANUTILS = @COMMONS_BEANUTILS@ +COMMONS_IO = @COMMONS_IO@ +COMMONS_LOGGING = @COMMONS_LOGGING@ +CPP = @CPP@ +CPPFLAGS = @CPPFLAGS@ +CURL_CFLAGS = @CURL_CFLAGS@ +CURL_CONFIG = @CURL_CONFIG@ +CURL_LIBS = @CURL_LIBS@ +CURL_VERSION = @CURL_VERSION@ +CXX = @CXX@ +CXXCPP = @CXXCPP@ +CXXDEPMODE = @CXXDEPMODE@ +CXXFLAGS = @CXXFLAGS@ +CYGPATH_W = @CYGPATH_W@ +DEFS = @DEFS@ +DEMOTOOLS_ENABLE = @DEMOTOOLS_ENABLE@ +DEPDIR = @DEPDIR@ +DLLTOOL = @DLLTOOL@ +DOCBOOK_ROOT = @DOCBOOK_ROOT@ +DOXYGEN_BIN = @DOXYGEN_BIN@ +DSYMUTIL = @DSYMUTIL@ +DUMPBIN = @DUMPBIN@ +ECHO_C = @ECHO_C@ +ECHO_N = @ECHO_N@ +ECHO_T = @ECHO_T@ +ECJ = @ECJ@ +EGREP = @EGREP@ +EXEEXT = @EXEEXT@ +F77 = @F77@ +FFLAGS = @FFLAGS@ +FFTW3_LIB = @FFTW3_LIB@ +FFTW_ENABLE = @FFTW_ENABLE@ +FGREP = @FGREP@ +FLEXDOCK = @FLEXDOCK@ +FLIBS = @FLIBS@ +FOP = @FOP@ +FREEHEP_GRAPHICS2D = @FREEHEP_GRAPHICS2D@ +FREEHEP_GRAPHICSIO = @FREEHEP_GRAPHICSIO@ +FREEHEP_GRAPHICSIO_EMF = @FREEHEP_GRAPHICSIO_EMF@ +FREEHEP_IO = @FREEHEP_IO@ +FREEHEP_UTIL = @FREEHEP_UTIL@ +GENHTML = @GENHTML@ +GETTEXT_MACRO_VERSION = @GETTEXT_MACRO_VERSION@ +GIWS_BIN = @GIWS_BIN@ +GLUEGEN2_RT = @GLUEGEN2_RT@ +GMSGFMT = @GMSGFMT@ +GMSGFMT_015 = @GMSGFMT_015@ +GRAPHICS_ENABLE = @GRAPHICS_ENABLE@ +GREP = @GREP@ +GUI_ENABLE = @GUI_ENABLE@ +HDF5_CFLAGS = @HDF5_CFLAGS@ +HDF5_LIBS = @HDF5_LIBS@ +HELP_ENABLE = @HELP_ENABLE@ +INSTALL = @INSTALL@ +INSTALL_DATA = @INSTALL_DATA@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_SCRIPT = @INSTALL_SCRIPT@ +INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ +INTLLIBS = @INTLLIBS@ +INTL_MACOSX_LIBS = @INTL_MACOSX_LIBS@ +JAR = @JAR@ +JAVA = @JAVA@ +JAVAC = @JAVAC@ +JAVAC_DEBUG = @JAVAC_DEBUG@ +JAVADOC = @JAVADOC@ +JAVAH = @JAVAH@ +JAVASCI_ENABLE = @JAVASCI_ENABLE@ +JAVA_ENABLE = @JAVA_ENABLE@ +JAVA_G = @JAVA_G@ +JAVA_HOME = @JAVA_HOME@ +JAVA_JNI_INCLUDE = @JAVA_JNI_INCLUDE@ +JAVA_JNI_LIBS = @JAVA_JNI_LIBS@ +JDB = @JDB@ +JEUCLID_CORE = @JEUCLID_CORE@ +JGRAPHX = @JGRAPHX@ +JHALL = @JHALL@ +JLATEXMATH = @JLATEXMATH@ +JLATEXMATH_FOP = @JLATEXMATH_FOP@ +JOGL2 = @JOGL2@ +JROSETTA_API = @JROSETTA_API@ +JROSETTA_ENGINE = @JROSETTA_ENGINE@ +JUNIT4 = @JUNIT4@ +LAPACK_LIBS = @LAPACK_LIBS@ +LCOV = @LCOV@ +LD = @LD@ +LDFLAGS = @LDFLAGS@ +LIBICONV = @LIBICONV@ +LIBINTL = @LIBINTL@ +LIBM = @LIBM@ +LIBOBJS = @LIBOBJS@ +LIBS = @LIBS@ +LIBTOOL = @LIBTOOL@ +LIPO = @LIPO@ +LN_S = @LN_S@ +LOGGING_LEVEL = @LOGGING_LEVEL@ +LOOKS = @LOOKS@ +LTLIBICONV = @LTLIBICONV@ +LTLIBINTL = @LTLIBINTL@ +LTLIBOBJS = @LTLIBOBJS@ +MAINT = @MAINT@ +MAKEINFO = @MAKEINFO@ +MANIFEST_TOOL = @MANIFEST_TOOL@ +MATIO_CFLAGS = @MATIO_CFLAGS@ +MATIO_ENABLE = @MATIO_ENABLE@ +MATIO_LIBS = @MATIO_LIBS@ +MKDIR_P = @MKDIR_P@ +MPI_ENABLE = @MPI_ENABLE@ +MSGCAT = @MSGCAT@ +MSGFMT = @MSGFMT@ +MSGFMT_015 = @MSGFMT_015@ +MSGMERGE = @MSGMERGE@ +NM = @NM@ +NMEDIT = @NMEDIT@ +OBJDUMP = @OBJDUMP@ +OBJEXT = @OBJEXT@ +OCAMLC = @OCAMLC@ +OCAMLDEP = @OCAMLDEP@ +OCAMLLEX = @OCAMLLEX@ +OCAMLOPT = @OCAMLOPT@ +OCAMLYACC = @OCAMLYACC@ +OPENMPI_CC = @OPENMPI_CC@ +OPENMPI_CFLAGS = @OPENMPI_CFLAGS@ +OPENMPI_CXX = @OPENMPI_CXX@ +OPENMPI_CXXFLAGS = @OPENMPI_CXXFLAGS@ +OPENMPI_LIBS = @OPENMPI_LIBS@ +OPENMP_CFLAGS = @OPENMP_CFLAGS@ +OPENMP_CXXFLAGS = @OPENMP_CXXFLAGS@ +OPENMP_ENABLE = @OPENMP_ENABLE@ +OPENMP_LIBS = @OPENMP_LIBS@ +OTOOL = @OTOOL@ +OTOOL64 = @OTOOL64@ +PACKAGE = @PACKAGE@ +PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ +PACKAGE_NAME = @PACKAGE_NAME@ +PACKAGE_STRING = @PACKAGE_STRING@ +PACKAGE_TARNAME = @PACKAGE_TARNAME@ +PACKAGE_URL = @PACKAGE_URL@ +PACKAGE_VERSION = @PACKAGE_VERSION@ +PATH_SEPARATOR = @PATH_SEPARATOR@ +PCRE_CFLAGS = @PCRE_CFLAGS@ +PCRE_CONFIG = @PCRE_CONFIG@ +PCRE_LIBS = @PCRE_LIBS@ +PCRE_VERSION = @PCRE_VERSION@ +PKG_CONFIG = @PKG_CONFIG@ +POSUB = @POSUB@ +POW_LIB = @POW_LIB@ +PYTHON = @PYTHON@ +RANLIB = @RANLIB@ +RELOCATABLE = @RELOCATABLE@ +RT_LIB = @RT_LIB@ +SAXON = @SAXON@ +SCILAB_BINARY_VERSION = @SCILAB_BINARY_VERSION@ +SCILAB_LIBRARY_VERSION = @SCILAB_LIBRARY_VERSION@ +SCILAB_VERSION_MAINTENANCE = @SCILAB_VERSION_MAINTENANCE@ +SCILAB_VERSION_MAJOR = @SCILAB_VERSION_MAJOR@ +SCILAB_VERSION_MINOR = @SCILAB_VERSION_MINOR@ +SCIRENDERER = @SCIRENDERER@ +SCIRENDERER_CP = @SCIRENDERER_CP@ +SCI_CFLAGS = @SCI_CFLAGS@ +SCI_CXXFLAGS = @SCI_CXXFLAGS@ +SCI_FFLAGS = @SCI_FFLAGS@ +SCI_LDFLAGS = @SCI_LDFLAGS@ +SED = @SED@ +SET_MAKE = @SET_MAKE@ +SET_RELOCATABLE = @SET_RELOCATABLE@ +SHELL = @SHELL@ +SKINLF = @SKINLF@ +SPLINT = @SPLINT@ +STRIP = @STRIP@ +SWIG_BIN = @SWIG_BIN@ +SWIG_JAVA = @SWIG_JAVA@ +SWIG_RUNTIME_LIBS_DIR = @SWIG_RUNTIME_LIBS_DIR@ +SWIG_SCILAB = @SWIG_SCILAB@ +TCLTK_LIBS = @TCLTK_LIBS@ +TCL_INC_PATH = @TCL_INC_PATH@ +TK_INC_PATH = @TK_INC_PATH@ +UMFPACK_CFLAGS = @UMFPACK_CFLAGS@ +UMFPACK_ENABLE = @UMFPACK_ENABLE@ +UMFPACK_LIB = @UMFPACK_LIB@ +USE_NLS = @USE_NLS@ +VERSION = @VERSION@ +WITH_OCAML = @WITH_OCAML@ +WITH_TKSCI = @WITH_TKSCI@ +XCOS_ENABLE = @XCOS_ENABLE@ +XGETTEXT = @XGETTEXT@ +XGETTEXT_015 = @XGETTEXT_015@ +XGETTEXT_EXTRA_OPTIONS = @XGETTEXT_EXTRA_OPTIONS@ +XMKMF = @XMKMF@ +XMLGRAPHICS_COMMONS = @XMLGRAPHICS_COMMONS@ +XML_APIS_EXT = @XML_APIS_EXT@ +XML_CONFIG = @XML_CONFIG@ +XML_FLAGS = @XML_FLAGS@ +XML_LIBS = @XML_LIBS@ +XML_VERSION = @XML_VERSION@ +X_CFLAGS = @X_CFLAGS@ +X_EXTRA_LIBS = @X_EXTRA_LIBS@ +X_LIBS = @X_LIBS@ +X_PRE_LIBS = @X_PRE_LIBS@ +abs_builddir = @abs_builddir@ +abs_srcdir = @abs_srcdir@ +abs_top_builddir = @abs_top_builddir@ +abs_top_srcdir = @abs_top_srcdir@ +ac_ct_AR = @ac_ct_AR@ +ac_ct_CC = @ac_ct_CC@ +ac_ct_CXX = @ac_ct_CXX@ +ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ +ac_ct_F77 = @ac_ct_F77@ +am__include = @am__include@ +am__leading_dot = @am__leading_dot@ +am__quote = @am__quote@ +am__tar = @am__tar@ +am__untar = @am__untar@ +bindir = @bindir@ +build = @build@ +build_alias = @build_alias@ +build_cpu = @build_cpu@ +build_os = @build_os@ +build_vendor = @build_vendor@ +builddir = @builddir@ +cxx_present = @cxx_present@ +datadir = @datadir@ +datarootdir = @datarootdir@ +docdir = @docdir@ +dvidir = @dvidir@ +exec_prefix = @exec_prefix@ +host = @host@ +host_alias = @host_alias@ +host_cpu = @host_cpu@ +host_os = @host_os@ +host_vendor = @host_vendor@ +htmldir = @htmldir@ +includedir = @includedir@ +infodir = @infodir@ +install_sh = @install_sh@ +libdir = @libdir@ +libexecdir = @libexecdir@ +localedir = @localedir@ +localstatedir = @localstatedir@ +mandir = @mandir@ +mkdir_p = @mkdir_p@ +oldincludedir = @oldincludedir@ +pdfdir = @pdfdir@ +prefix = @prefix@ +program_transform_name = @program_transform_name@ +psdir = @psdir@ +sbindir = @sbindir@ +sharedstatedir = @sharedstatedir@ +srcdir = @srcdir@ +sysconfdir = @sysconfdir@ +target_alias = @target_alias@ +top_build_prefix = @top_build_prefix@ +top_builddir = @top_builddir@ +top_srcdir = @top_srcdir@ +STATISTICS_C_SOURCES = src/c/CdfBase.c \ +src/c/ipmpar1.c + +STATISTICS_FORTRAN_SOURCES = src/dcdflib/psi.f \ +src/dcdflib/alngam.f \ +src/dcdflib/erfc1.f \ +src/dcdflib/cdff.f \ +src/dcdflib/spmpar.f \ +src/dcdflib/cumnor.f \ +src/dcdflib/cdfpoi.f \ +src/dcdflib/bcorr.f \ +src/dcdflib/cumchi.f \ +src/dcdflib/apser.f \ +src/dcdflib/gamln1.f \ +src/dcdflib/cdft.f \ +src/dcdflib/gaminv.f \ +src/dcdflib/cumnbn.f \ +src/dcdflib/cdffnc.f \ +src/dcdflib/rlog1.f \ +src/dcdflib/cdfchn.f \ +src/dcdflib/dt1.f \ +src/dcdflib/bgrat.f \ +src/dcdflib/dinvnr.f \ +src/dcdflib/rlog.f \ +src/dcdflib/basym.f \ +src/dcdflib/bfrac.f \ +src/dcdflib/cumbin.f \ +src/dcdflib/cumbet.f \ +src/dcdflib/rcomp.f \ +src/dcdflib/cdfgam.f \ +src/dcdflib/gratio.f \ +src/dcdflib/gam1.f \ +src/dcdflib/exparg.f \ +src/dcdflib/ipmpar.f \ +src/dcdflib/cumf.f \ +src/dcdflib/cumpoi.f \ +src/dcdflib/gamln.f \ +src/dcdflib/betaln.f \ +src/dcdflib/stvaln.f \ +src/dcdflib/cumt.f \ +src/dcdflib/esum.f \ +src/dcdflib/bpser.f \ +src/dcdflib/cdfnor.f \ +src/dcdflib/cumfnc.f \ +src/dcdflib/erf.f \ +src/dcdflib/alnrel.f \ +src/dcdflib/cumchn.f \ +src/dcdflib/rexp.f \ +src/dcdflib/fpser.f \ +src/dcdflib/bratio.f \ +src/dcdflib/cdfchi.f \ +src/dcdflib/gamma.f \ +src/dcdflib/dinvr.f \ +src/dcdflib/brcomp.f \ +src/dcdflib/devlpl.f \ +src/dcdflib/cdfnbn.f \ +src/dcdflib/dzror.f \ +src/dcdflib/gsumln.f \ +src/dcdflib/algdiv.f \ +src/dcdflib/cumgam.f \ +src/dcdflib/grat1.f \ +src/dcdflib/brcmp1.f \ +src/dcdflib/cdfbin.f \ +src/dcdflib/bup.f \ +src/dcdflib/cdfbet.f + +GATEWAY_C_SOURCES = sci_gateway/c/gw_statistics.c \ +sci_gateway/c/sci_cdfchi.c \ +sci_gateway/c/sci_cdft.c \ +sci_gateway/c/sci_cdfgam.c \ +sci_gateway/c/sci_cdff.c \ +sci_gateway/c/sci_cdffnc.c \ +sci_gateway/c/sci_cdfpoi.c \ +sci_gateway/c/sci_cdfbin.c \ +sci_gateway/c/sci_cdfchn.c \ +sci_gateway/c/sci_cdfbet.c \ +sci_gateway/c/sci_cdfnbn.c \ +sci_gateway/c/sci_cdfnor.c + +libscistatistics_la_CPPFLAGS = -I$(srcdir)/includes/ \ + -I$(srcdir)/src/c/ \ + -I$(top_srcdir)/modules/api_scilab/includes/ \ + -I$(top_srcdir)/modules/localization/includes/ \ + -I$(top_srcdir)/modules/output_stream/includes/ \ + $(AM_CPPFLAGS) + +pkglib_LTLIBRARIES = libscistatistics.la +noinst_LTLIBRARIES = libscistatistics-algo.la +libscistatistics_algo_la_SOURCES = $(STATISTICS_C_SOURCES) $(STATISTICS_FORTRAN_SOURCES) +libscistatistics_la_SOURCES = $(GATEWAY_C_SOURCES) +libscistatistics_algo_la_CPPFLAGS = $(libscistatistics_la_CPPFLAGS) + +# For the code check (splint) +CHECK_SRC = $(STATISTICS_C_SOURCES) $(GATEWAY_C_SOURCES) +INCLUDE_FLAGS = $(libscistatistics_la_CPPFLAGS) +libscistatistics_la_LIBADD = libscistatistics-algo.la + +#### Target ###### +modulename = statistics + +#### statistics : Conf files #### +libscistatistics_la_rootdir = $(mydatadir) +libscistatistics_la_root_DATA = license.txt + +#### statistics : init scripts #### +libscistatistics_la_etcdir = $(mydatadir)/etc +libscistatistics_la_etc_DATA = etc/statistics.quit etc/statistics.start + +#### statistics : gateway declaration #### +libscistatistics_la_sci_gatewaydir = $(mydatadir)/sci_gateway +libscistatistics_la_sci_gateway_DATA = sci_gateway/statistics_gateway.xml + +# Where all the Scilab stuff is installed (macros, help, ...) +mydatadir = $(pkgdatadir)/modules/$(modulename) + +# Set AM_* SCI detected settings +AM_CPPFLAGS = $(SCI_CPPFLAGS) +AM_CFLAGS = $(SCI_CFLAGS) +AM_CXXFLAGS = $(SCI_CXXFLAGS) +# append includes to AM_FFLAGS to manage fortran includes +AM_FFLAGS = $(SCI_FFLAGS) -I$(top_srcdir)/modules/core/includes/ + +# Tag shared libraries with the Scilab version +AM_LDFLAGS = $(SCI_LDFLAGS) -version-number $(SCILAB_LIBRARY_VERSION) + +# splint options +SPLINT_OPTIONS = -weak -booltype BOOL + +########################### JAVA ###################################### +#### We are delegating java compilation to ant... Thanks to that +#### the procedure will be the same with Microsoft Windows (C) +#### and Linux/Unix +####################################################################### +TARGETS_ALL = $(am__append_1) + +################ MACROS ###################### +# Rule to build a macro +# NOT USED AT THE MOMENT +SUFFIXES = .sci + +########### INSTALL DOCUMENTATION ################### + +# Install documentation files into the right target +# We do not use the automake mechanism (libxxxx_la_help_fr_DATA) because +# automake needs the html files to be present which is not the case when +# we are building Scilab + +# Where it should be installed +pkgdocdir = $(mydatadir) + +# What is the mask of the help source +DOCMASKXML = *.xml + +# What is the mask of the MathML sources +DOCMASKMML = *.mml + +########### INSTALL DATA ################### +# Install macros, help & demos +# Where it should be installed +pkgmacrosdir = $(mydatadir) +# Which directory we process +MACRODIRS = macros/ +# Mask of the Scilab sources macros +MACROMASK = *.sci +# Mask of the Scilab executable sources macros +MACROBUILDMASK = *.sce +# Mask of the Scilab compiled macros +MACROBINMASK = *.bin +# List of the standard directory for tests +TESTS_DIR = tests/benchmarks tests/nonreg_tests tests/unit_tests tests/java +# Where the demos should be installed +pkgdemosdir = $(mydatadir) +# List of the standard directory for demos +DEMOS_DIR = demos +# List of the standard directory for examples +EXAMPLES_DIR = examples +# Where to export JAVA archives (.jar) +JARDIR = jar/ +# JAR files mask +JARMASK = *.jar +# Chapter file +HELP_CHAPTERDIR = help/ +HELP_CHAPTERFILE = addchapter.sce +HELP_CHAPTERLANG = en_US fr_FR pt_BR +all: all-am + +.SUFFIXES: +.SUFFIXES: .sci .bin .c .f .lo .o .obj +$(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/Makefile.incl.am $(am__configure_deps) + @for dep in $?; do \ + case '$(am__configure_deps)' in \ + *$$dep*) \ + ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ + && { if test -f $@; then exit 0; else break; fi; }; \ + exit 1;; \ + esac; \ + done; \ + echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign modules/statistics/Makefile'; \ + $(am__cd) $(top_srcdir) && \ + $(AUTOMAKE) --foreign modules/statistics/Makefile +.PRECIOUS: Makefile +Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status + @case '$?' in \ + *config.status*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ + *) \ + echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ + cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ + esac; +$(top_srcdir)/Makefile.incl.am: + +$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh + +$(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(am__aclocal_m4_deps): + +clean-noinstLTLIBRARIES: + -test -z "$(noinst_LTLIBRARIES)" || rm -f $(noinst_LTLIBRARIES) + @list='$(noinst_LTLIBRARIES)'; \ + locs=`for p in $$list; do echo $$p; done | \ + sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ + sort -u`; \ + test -z "$$locs" || { \ + echo rm -f $${locs}; \ + rm -f $${locs}; \ + } + +install-pkglibLTLIBRARIES: $(pkglib_LTLIBRARIES) + @$(NORMAL_INSTALL) + @list='$(pkglib_LTLIBRARIES)'; test -n "$(pkglibdir)" || list=; \ + list2=; for p in $$list; do \ + if test -f $$p; then \ + list2="$$list2 $$p"; \ + else :; fi; \ + done; \ + test -z "$$list2" || { \ + echo " $(MKDIR_P) '$(DESTDIR)$(pkglibdir)'"; \ + $(MKDIR_P) "$(DESTDIR)$(pkglibdir)" || exit 1; \ + echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(pkglibdir)'"; \ + $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(pkglibdir)"; \ + } + +uninstall-pkglibLTLIBRARIES: + @$(NORMAL_UNINSTALL) + @list='$(pkglib_LTLIBRARIES)'; test -n "$(pkglibdir)" || list=; \ + for p in $$list; do \ + $(am__strip_dir) \ + echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(pkglibdir)/$$f'"; \ + $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(pkglibdir)/$$f"; \ + done + +clean-pkglibLTLIBRARIES: + -test -z "$(pkglib_LTLIBRARIES)" || rm -f $(pkglib_LTLIBRARIES) + @list='$(pkglib_LTLIBRARIES)'; \ + locs=`for p in $$list; do echo $$p; done | \ + sed 's|^[^/]*$$|.|; s|/[^/]*$$||; s|$$|/so_locations|' | \ + sort -u`; \ + test -z "$$locs" || { \ + echo rm -f $${locs}; \ + rm -f $${locs}; \ + } +src/c/$(am__dirstamp): + @$(MKDIR_P) src/c + @: > src/c/$(am__dirstamp) +src/c/$(DEPDIR)/$(am__dirstamp): + @$(MKDIR_P) src/c/$(DEPDIR) + @: > src/c/$(DEPDIR)/$(am__dirstamp) +src/c/libscistatistics_algo_la-CdfBase.lo: src/c/$(am__dirstamp) \ + src/c/$(DEPDIR)/$(am__dirstamp) +src/c/libscistatistics_algo_la-ipmpar1.lo: src/c/$(am__dirstamp) \ + src/c/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/$(am__dirstamp): + @$(MKDIR_P) src/dcdflib + @: > src/dcdflib/$(am__dirstamp) +src/dcdflib/$(DEPDIR)/$(am__dirstamp): + @$(MKDIR_P) src/dcdflib/$(DEPDIR) + @: > src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/psi.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/alngam.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/erfc1.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdff.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/spmpar.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumnor.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdfpoi.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/bcorr.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumchi.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/apser.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/gamln1.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdft.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/gaminv.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumnbn.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdffnc.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/rlog1.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdfchn.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/dt1.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/bgrat.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/dinvnr.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/rlog.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/basym.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/bfrac.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumbin.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumbet.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/rcomp.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdfgam.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/gratio.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/gam1.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/exparg.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/ipmpar.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumf.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumpoi.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/gamln.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/betaln.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/stvaln.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumt.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/esum.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/bpser.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdfnor.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumfnc.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/erf.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/alnrel.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumchn.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/rexp.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/fpser.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/bratio.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdfchi.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/gamma.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/dinvr.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/brcomp.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/devlpl.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdfnbn.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/dzror.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/gsumln.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/algdiv.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cumgam.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/grat1.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/brcmp1.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdfbin.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/bup.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) +src/dcdflib/cdfbet.lo: src/dcdflib/$(am__dirstamp) \ + src/dcdflib/$(DEPDIR)/$(am__dirstamp) + +libscistatistics-algo.la: $(libscistatistics_algo_la_OBJECTS) $(libscistatistics_algo_la_DEPENDENCIES) $(EXTRA_libscistatistics_algo_la_DEPENDENCIES) + $(AM_V_F77LD)$(F77LINK) $(libscistatistics_algo_la_OBJECTS) $(libscistatistics_algo_la_LIBADD) $(LIBS) +sci_gateway/c/$(am__dirstamp): + @$(MKDIR_P) sci_gateway/c + @: > sci_gateway/c/$(am__dirstamp) +sci_gateway/c/$(DEPDIR)/$(am__dirstamp): + @$(MKDIR_P) sci_gateway/c/$(DEPDIR) + @: > sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-gw_statistics.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdfchi.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdft.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdfgam.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdff.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdffnc.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdfpoi.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdfbin.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdfchn.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdfbet.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdfnbn.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) +sci_gateway/c/libscistatistics_la-sci_cdfnor.lo: \ + sci_gateway/c/$(am__dirstamp) \ + sci_gateway/c/$(DEPDIR)/$(am__dirstamp) + +libscistatistics.la: $(libscistatistics_la_OBJECTS) $(libscistatistics_la_DEPENDENCIES) $(EXTRA_libscistatistics_la_DEPENDENCIES) + $(AM_V_CCLD)$(LINK) -rpath $(pkglibdir) $(libscistatistics_la_OBJECTS) $(libscistatistics_la_LIBADD) $(LIBS) + +mostlyclean-compile: + -rm -f *.$(OBJEXT) + -rm -f sci_gateway/c/*.$(OBJEXT) + -rm -f sci_gateway/c/*.lo + -rm -f src/c/*.$(OBJEXT) + -rm -f src/c/*.lo + -rm -f src/dcdflib/*.$(OBJEXT) + -rm -f src/dcdflib/*.lo + +distclean-compile: + -rm -f *.tab.c + +@AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/c/$(DEPDIR)/libscistatistics_la-gw_statistics.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfbet.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfbin.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfchi.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfchn.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdff.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdffnc.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfgam.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfnbn.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfnor.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfpoi.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdft.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscistatistics_algo_la-CdfBase.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscistatistics_algo_la-ipmpar1.Plo@am__quote@ + +.c.o: +@am__fastdepCC_TRUE@ $(AM_V_CC)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.o$$||'`;\ +@am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ $< &&\ +@am__fastdepCC_TRUE@ $(am__mv) $$depbase.Tpo $$depbase.Po +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ $< + +.c.obj: +@am__fastdepCC_TRUE@ $(AM_V_CC)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.obj$$||'`;\ +@am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ `$(CYGPATH_W) '$<'` &&\ +@am__fastdepCC_TRUE@ $(am__mv) $$depbase.Tpo $$depbase.Po +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(COMPILE) -c -o $@ `$(CYGPATH_W) '$<'` + +.c.lo: +@am__fastdepCC_TRUE@ $(AM_V_CC)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.lo$$||'`;\ +@am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ $< &&\ +@am__fastdepCC_TRUE@ $(am__mv) $$depbase.Tpo $$depbase.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LTCOMPILE) -c -o $@ $< + +src/c/libscistatistics_algo_la-CdfBase.lo: src/c/CdfBase.c +@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src/c/libscistatistics_algo_la-CdfBase.lo -MD -MP -MF src/c/$(DEPDIR)/libscistatistics_algo_la-CdfBase.Tpo -c -o src/c/libscistatistics_algo_la-CdfBase.lo `test -f 'src/c/CdfBase.c' || echo '$(srcdir)/'`src/c/CdfBase.c +@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) src/c/$(DEPDIR)/libscistatistics_algo_la-CdfBase.Tpo src/c/$(DEPDIR)/libscistatistics_algo_la-CdfBase.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='src/c/CdfBase.c' object='src/c/libscistatistics_algo_la-CdfBase.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src/c/libscistatistics_algo_la-CdfBase.lo `test -f 'src/c/CdfBase.c' || echo '$(srcdir)/'`src/c/CdfBase.c + +src/c/libscistatistics_algo_la-ipmpar1.lo: src/c/ipmpar1.c +@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src/c/libscistatistics_algo_la-ipmpar1.lo -MD -MP -MF src/c/$(DEPDIR)/libscistatistics_algo_la-ipmpar1.Tpo -c -o src/c/libscistatistics_algo_la-ipmpar1.lo `test -f 'src/c/ipmpar1.c' || echo '$(srcdir)/'`src/c/ipmpar1.c +@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) src/c/$(DEPDIR)/libscistatistics_algo_la-ipmpar1.Tpo src/c/$(DEPDIR)/libscistatistics_algo_la-ipmpar1.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='src/c/ipmpar1.c' object='src/c/libscistatistics_algo_la-ipmpar1.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src/c/libscistatistics_algo_la-ipmpar1.lo `test -f 'src/c/ipmpar1.c' || echo '$(srcdir)/'`src/c/ipmpar1.c + +sci_gateway/c/libscistatistics_la-gw_statistics.lo: sci_gateway/c/gw_statistics.c +@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-gw_statistics.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-gw_statistics.Tpo -c -o sci_gateway/c/libscistatistics_la-gw_statistics.lo `test -f 'sci_gateway/c/gw_statistics.c' || echo '$(srcdir)/'`sci_gateway/c/gw_statistics.c +@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-gw_statistics.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-gw_statistics.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='sci_gateway/c/gw_statistics.c' object='sci_gateway/c/libscistatistics_la-gw_statistics.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-gw_statistics.lo `test -f 'sci_gateway/c/gw_statistics.c' || echo '$(srcdir)/'`sci_gateway/c/gw_statistics.c + +sci_gateway/c/libscistatistics_la-sci_cdfchi.lo: sci_gateway/c/sci_cdfchi.c +@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdfchi.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfchi.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdfchi.lo `test -f 'sci_gateway/c/sci_cdfchi.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfchi.c +@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfchi.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfchi.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='sci_gateway/c/sci_cdfchi.c' object='sci_gateway/c/libscistatistics_la-sci_cdfchi.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdfchi.lo `test -f 'sci_gateway/c/sci_cdfchi.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfchi.c + +sci_gateway/c/libscistatistics_la-sci_cdft.lo: sci_gateway/c/sci_cdft.c +@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdft.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdft.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdft.lo `test -f 'sci_gateway/c/sci_cdft.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdft.c +@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdft.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdft.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='sci_gateway/c/sci_cdft.c' object='sci_gateway/c/libscistatistics_la-sci_cdft.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdft.lo `test -f 'sci_gateway/c/sci_cdft.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdft.c + +sci_gateway/c/libscistatistics_la-sci_cdfgam.lo: sci_gateway/c/sci_cdfgam.c +@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdfgam.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfgam.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdfgam.lo `test -f 'sci_gateway/c/sci_cdfgam.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfgam.c +@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfgam.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfgam.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='sci_gateway/c/sci_cdfgam.c' object='sci_gateway/c/libscistatistics_la-sci_cdfgam.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdfgam.lo `test -f 'sci_gateway/c/sci_cdfgam.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfgam.c + +sci_gateway/c/libscistatistics_la-sci_cdff.lo: sci_gateway/c/sci_cdff.c +@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdff.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdff.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdff.lo `test -f 'sci_gateway/c/sci_cdff.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdff.c +@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdff.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdff.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='sci_gateway/c/sci_cdff.c' object='sci_gateway/c/libscistatistics_la-sci_cdff.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdff.lo `test -f 'sci_gateway/c/sci_cdff.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdff.c + +sci_gateway/c/libscistatistics_la-sci_cdffnc.lo: sci_gateway/c/sci_cdffnc.c +@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdffnc.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdffnc.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdffnc.lo `test -f 'sci_gateway/c/sci_cdffnc.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdffnc.c +@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdffnc.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdffnc.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='sci_gateway/c/sci_cdffnc.c' object='sci_gateway/c/libscistatistics_la-sci_cdffnc.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdffnc.lo `test -f 'sci_gateway/c/sci_cdffnc.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdffnc.c + +sci_gateway/c/libscistatistics_la-sci_cdfpoi.lo: sci_gateway/c/sci_cdfpoi.c +@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdfpoi.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfpoi.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdfpoi.lo `test -f 'sci_gateway/c/sci_cdfpoi.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfpoi.c +@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfpoi.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfpoi.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='sci_gateway/c/sci_cdfpoi.c' object='sci_gateway/c/libscistatistics_la-sci_cdfpoi.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdfpoi.lo `test -f 'sci_gateway/c/sci_cdfpoi.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfpoi.c + +sci_gateway/c/libscistatistics_la-sci_cdfbin.lo: sci_gateway/c/sci_cdfbin.c +@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdfbin.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfbin.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdfbin.lo `test -f 'sci_gateway/c/sci_cdfbin.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfbin.c +@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfbin.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfbin.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='sci_gateway/c/sci_cdfbin.c' object='sci_gateway/c/libscistatistics_la-sci_cdfbin.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdfbin.lo `test -f 'sci_gateway/c/sci_cdfbin.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfbin.c + +sci_gateway/c/libscistatistics_la-sci_cdfchn.lo: sci_gateway/c/sci_cdfchn.c +@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdfchn.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfchn.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdfchn.lo `test -f 'sci_gateway/c/sci_cdfchn.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfchn.c +@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfchn.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfchn.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='sci_gateway/c/sci_cdfchn.c' object='sci_gateway/c/libscistatistics_la-sci_cdfchn.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdfchn.lo `test -f 'sci_gateway/c/sci_cdfchn.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfchn.c + +sci_gateway/c/libscistatistics_la-sci_cdfbet.lo: sci_gateway/c/sci_cdfbet.c +@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdfbet.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfbet.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdfbet.lo `test -f 'sci_gateway/c/sci_cdfbet.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfbet.c +@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfbet.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfbet.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='sci_gateway/c/sci_cdfbet.c' object='sci_gateway/c/libscistatistics_la-sci_cdfbet.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdfbet.lo `test -f 'sci_gateway/c/sci_cdfbet.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfbet.c + +sci_gateway/c/libscistatistics_la-sci_cdfnbn.lo: sci_gateway/c/sci_cdfnbn.c +@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdfnbn.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfnbn.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdfnbn.lo `test -f 'sci_gateway/c/sci_cdfnbn.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfnbn.c +@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfnbn.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfnbn.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='sci_gateway/c/sci_cdfnbn.c' object='sci_gateway/c/libscistatistics_la-sci_cdfnbn.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdfnbn.lo `test -f 'sci_gateway/c/sci_cdfnbn.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfnbn.c + +sci_gateway/c/libscistatistics_la-sci_cdfnor.lo: sci_gateway/c/sci_cdfnor.c +@am__fastdepCC_TRUE@ $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscistatistics_la-sci_cdfnor.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfnor.Tpo -c -o sci_gateway/c/libscistatistics_la-sci_cdfnor.lo `test -f 'sci_gateway/c/sci_cdfnor.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfnor.c +@am__fastdepCC_TRUE@ $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfnor.Tpo sci_gateway/c/$(DEPDIR)/libscistatistics_la-sci_cdfnor.Plo +@AMDEP_TRUE@@am__fastdepCC_FALSE@ $(AM_V_CC)source='sci_gateway/c/sci_cdfnor.c' object='sci_gateway/c/libscistatistics_la-sci_cdfnor.lo' libtool=yes @AMDEPBACKSLASH@ +@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ +@am__fastdepCC_FALSE@ $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscistatistics_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o sci_gateway/c/libscistatistics_la-sci_cdfnor.lo `test -f 'sci_gateway/c/sci_cdfnor.c' || echo '$(srcdir)/'`sci_gateway/c/sci_cdfnor.c + +.f.o: + $(AM_V_F77)$(F77COMPILE) -c -o $@ $< + +.f.obj: + $(AM_V_F77)$(F77COMPILE) -c -o $@ `$(CYGPATH_W) '$<'` + +.f.lo: + $(AM_V_F77)$(LTF77COMPILE) -c -o $@ $< + +mostlyclean-libtool: + -rm -f *.lo + +clean-libtool: + -rm -rf .libs _libs + -rm -rf sci_gateway/c/.libs sci_gateway/c/_libs + -rm -rf src/c/.libs src/c/_libs + -rm -rf src/dcdflib/.libs src/dcdflib/_libs +install-libscistatistics_la_etcDATA: $(libscistatistics_la_etc_DATA) + @$(NORMAL_INSTALL) + @list='$(libscistatistics_la_etc_DATA)'; test -n "$(libscistatistics_la_etcdir)" || list=; \ + if test -n "$$list"; then \ + echo " $(MKDIR_P) '$(DESTDIR)$(libscistatistics_la_etcdir)'"; \ + $(MKDIR_P) "$(DESTDIR)$(libscistatistics_la_etcdir)" || exit 1; \ + fi; \ + for p in $$list; do \ + if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ + echo "$$d$$p"; \ + done | $(am__base_list) | \ + while read files; do \ + echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(libscistatistics_la_etcdir)'"; \ + $(INSTALL_DATA) $$files "$(DESTDIR)$(libscistatistics_la_etcdir)" || exit $$?; \ + done + +uninstall-libscistatistics_la_etcDATA: + @$(NORMAL_UNINSTALL) + @list='$(libscistatistics_la_etc_DATA)'; test -n "$(libscistatistics_la_etcdir)" || list=; \ + files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ + dir='$(DESTDIR)$(libscistatistics_la_etcdir)'; $(am__uninstall_files_from_dir) +install-libscistatistics_la_rootDATA: $(libscistatistics_la_root_DATA) + @$(NORMAL_INSTALL) + @list='$(libscistatistics_la_root_DATA)'; test -n "$(libscistatistics_la_rootdir)" || list=; \ + if test -n "$$list"; then \ + echo " $(MKDIR_P) '$(DESTDIR)$(libscistatistics_la_rootdir)'"; \ + $(MKDIR_P) "$(DESTDIR)$(libscistatistics_la_rootdir)" || exit 1; \ + fi; \ + for p in $$list; do \ + if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ + echo "$$d$$p"; \ + done | $(am__base_list) | \ + while read files; do \ + echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(libscistatistics_la_rootdir)'"; \ + $(INSTALL_DATA) $$files "$(DESTDIR)$(libscistatistics_la_rootdir)" || exit $$?; \ + done + +uninstall-libscistatistics_la_rootDATA: + @$(NORMAL_UNINSTALL) + @list='$(libscistatistics_la_root_DATA)'; test -n "$(libscistatistics_la_rootdir)" || list=; \ + files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ + dir='$(DESTDIR)$(libscistatistics_la_rootdir)'; $(am__uninstall_files_from_dir) +install-libscistatistics_la_sci_gatewayDATA: $(libscistatistics_la_sci_gateway_DATA) + @$(NORMAL_INSTALL) + @list='$(libscistatistics_la_sci_gateway_DATA)'; test -n "$(libscistatistics_la_sci_gatewaydir)" || list=; \ + if test -n "$$list"; then \ + echo " $(MKDIR_P) '$(DESTDIR)$(libscistatistics_la_sci_gatewaydir)'"; \ + $(MKDIR_P) "$(DESTDIR)$(libscistatistics_la_sci_gatewaydir)" || exit 1; \ + fi; \ + for p in $$list; do \ + if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ + echo "$$d$$p"; \ + done | $(am__base_list) | \ + while read files; do \ + echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(libscistatistics_la_sci_gatewaydir)'"; \ + $(INSTALL_DATA) $$files "$(DESTDIR)$(libscistatistics_la_sci_gatewaydir)" || exit $$?; \ + done + +uninstall-libscistatistics_la_sci_gatewayDATA: + @$(NORMAL_UNINSTALL) + @list='$(libscistatistics_la_sci_gateway_DATA)'; test -n "$(libscistatistics_la_sci_gatewaydir)" || list=; \ + files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ + dir='$(DESTDIR)$(libscistatistics_la_sci_gatewaydir)'; $(am__uninstall_files_from_dir) + +ID: $(am__tagged_files) + $(am__define_uniq_tagged_files); mkid -fID $$unique +tags: tags-am +TAGS: tags + +tags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) + set x; \ + here=`pwd`; \ + $(am__define_uniq_tagged_files); \ + shift; \ + if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ + test -n "$$unique" || unique=$$empty_fix; \ + if test $$# -gt 0; then \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + "$$@" $$unique; \ + else \ + $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ + $$unique; \ + fi; \ + fi +ctags: ctags-am + +CTAGS: ctags +ctags-am: $(TAGS_DEPENDENCIES) $(am__tagged_files) + $(am__define_uniq_tagged_files); \ + test -z "$(CTAGS_ARGS)$$unique" \ + || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ + $$unique + +GTAGS: + here=`$(am__cd) $(top_builddir) && pwd` \ + && $(am__cd) $(top_srcdir) \ + && gtags -i $(GTAGS_ARGS) "$$here" +cscopelist: cscopelist-am + +cscopelist-am: $(am__tagged_files) + list='$(am__tagged_files)'; \ + case "$(srcdir)" in \ + [\\/]* | ?:[\\/]*) sdir="$(srcdir)" ;; \ + *) sdir=$(subdir)/$(srcdir) ;; \ + esac; \ + for i in $$list; do \ + if test -f "$$i"; then \ + echo "$(subdir)/$$i"; \ + else \ + echo "$$sdir/$$i"; \ + fi; \ + done >> $(top_builddir)/cscope.files + +distclean-tags: + -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags + +distdir: $(DISTFILES) + @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + list='$(DISTFILES)'; \ + dist_files=`for file in $$list; do echo $$file; done | \ + sed -e "s|^$$srcdirstrip/||;t" \ + -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ + case $$dist_files in \ + */*) $(MKDIR_P) `echo "$$dist_files" | \ + sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ + sort -u` ;; \ + esac; \ + for file in $$dist_files; do \ + if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ + if test -d $$d/$$file; then \ + dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ + if test -d "$(distdir)/$$file"; then \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ + cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ + find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ + fi; \ + cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ + else \ + test -f "$(distdir)/$$file" \ + || cp -p $$d/$$file "$(distdir)/$$file" \ + || exit 1; \ + fi; \ + done +check-am: all-am + $(MAKE) $(AM_MAKEFLAGS) check-local +check: check-am +all-am: Makefile $(LTLIBRARIES) $(DATA) all-local +installdirs: + for dir in "$(DESTDIR)$(pkglibdir)" "$(DESTDIR)$(libscistatistics_la_etcdir)" "$(DESTDIR)$(libscistatistics_la_rootdir)" "$(DESTDIR)$(libscistatistics_la_sci_gatewaydir)"; do \ + test -z "$$dir" || $(MKDIR_P) "$$dir"; \ + done +install: install-am +install-exec: install-exec-am +install-data: install-data-am +uninstall: uninstall-am + +install-am: all-am + @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + +installcheck: installcheck-am +install-strip: + if test -z '$(STRIP)'; then \ + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + install; \ + else \ + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ + fi +mostlyclean-generic: + +clean-generic: + +distclean-generic: + -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) + -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) + -rm -f sci_gateway/c/$(DEPDIR)/$(am__dirstamp) + -rm -f sci_gateway/c/$(am__dirstamp) + -rm -f src/c/$(DEPDIR)/$(am__dirstamp) + -rm -f src/c/$(am__dirstamp) + -rm -f src/dcdflib/$(DEPDIR)/$(am__dirstamp) + -rm -f src/dcdflib/$(am__dirstamp) + +maintainer-clean-generic: + @echo "This command is intended for maintainers to use" + @echo "it deletes files that may require special tools to rebuild." +clean: clean-am + +clean-am: clean-generic clean-libtool clean-local \ + clean-noinstLTLIBRARIES clean-pkglibLTLIBRARIES mostlyclean-am + +distclean: distclean-am + -rm -rf sci_gateway/c/$(DEPDIR) src/c/$(DEPDIR) + -rm -f Makefile +distclean-am: clean-am distclean-compile distclean-generic \ + distclean-local distclean-tags + +dvi: dvi-am + +dvi-am: + +html: html-am + +html-am: + +info: info-am + +info-am: + +install-data-am: install-data-local \ + install-libscistatistics_la_etcDATA \ + install-libscistatistics_la_rootDATA \ + install-libscistatistics_la_sci_gatewayDATA + +install-dvi: install-dvi-am + +install-dvi-am: + +install-exec-am: install-pkglibLTLIBRARIES + +install-html: install-html-am + +install-html-am: install-html-local + +install-info: install-info-am + +install-info-am: + +install-man: + +install-pdf: install-pdf-am + +install-pdf-am: + +install-ps: install-ps-am + +install-ps-am: + +installcheck-am: + +maintainer-clean: maintainer-clean-am + -rm -rf sci_gateway/c/$(DEPDIR) src/c/$(DEPDIR) + -rm -f Makefile +maintainer-clean-am: distclean-am maintainer-clean-generic + +mostlyclean: mostlyclean-am + +mostlyclean-am: mostlyclean-compile mostlyclean-generic \ + mostlyclean-libtool + +pdf: pdf-am + +pdf-am: + +ps: ps-am + +ps-am: + +uninstall-am: uninstall-libscistatistics_la_etcDATA \ + uninstall-libscistatistics_la_rootDATA \ + uninstall-libscistatistics_la_sci_gatewayDATA \ + uninstall-pkglibLTLIBRARIES + +.MAKE: check-am install-am install-strip + +.PHONY: CTAGS GTAGS TAGS all all-am all-local check check-am \ + check-local clean clean-generic clean-libtool clean-local \ + clean-noinstLTLIBRARIES clean-pkglibLTLIBRARIES cscopelist-am \ + ctags ctags-am distclean distclean-compile distclean-generic \ + distclean-libtool distclean-local distclean-tags distdir dvi \ + dvi-am html html-am info info-am install install-am \ + install-data install-data-am install-data-local install-dvi \ + install-dvi-am install-exec install-exec-am install-html \ + install-html-am install-html-local install-info \ + install-info-am install-libscistatistics_la_etcDATA \ + install-libscistatistics_la_rootDATA \ + install-libscistatistics_la_sci_gatewayDATA install-man \ + install-pdf install-pdf-am install-pkglibLTLIBRARIES \ + install-ps install-ps-am install-strip installcheck \ + installcheck-am installdirs maintainer-clean \ + maintainer-clean-generic mostlyclean mostlyclean-compile \ + mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ + tags tags-am uninstall uninstall-am \ + uninstall-libscistatistics_la_etcDATA \ + uninstall-libscistatistics_la_rootDATA \ + uninstall-libscistatistics_la_sci_gatewayDATA \ + uninstall-pkglibLTLIBRARIES + + +# This target enables tests for Scilab +check-local: $(top_builddir)/scilab-bin test + if test -d $(mydatadir)/tests; then \ + @COMMAND="try test_run('$(modulename)');catch exit(-1);end;exit(0)"; export LANG=C; $(top_builddir)/bin/scilab -nwni -nb -e "$$COMMAND"; \ + fi +check-code: + if test -f build.xml; then \ + $(ANT) checkstyle; \ + fi + if test -x "$(SPLINT)"; then \ + $(SPLINT) $(SPLINT_OPTIONS) -I$(top_srcdir)/modules/core/includes/ -I$(top_srcdir)/libs/MALLOC/includes/ -I$(top_srcdir)/modules/localization/includes/ $(INCLUDE_FLAGS) $(CHECK_SRC); \ + fi +@NEED_JAVA_TRUE@java: +# Some configurations needs to export JAVA_HOME in the current env +@NEED_JAVA_TRUE@ @if test "$(JAVA_HOME)"; then export JAVA_HOME=$(JAVA_HOME); fi; \ +@NEED_JAVA_TRUE@ if test -z "$(USEANT)"; then USEANT=0; else USEANT=1; fi; \ +@NEED_JAVA_TRUE@ if test -f build.xml -a $$USEANT -eq 1; then \ +@NEED_JAVA_TRUE@ $(ANT); \ +@NEED_JAVA_TRUE@ fi + +@NEED_JAVA_TRUE@clean-java: +# Some configurations needs to export JAVA_HOME in the current env +@NEED_JAVA_TRUE@ @if test "$(JAVA_HOME)"; then export JAVA_HOME=$(JAVA_HOME); fi; \ +@NEED_JAVA_TRUE@ if test -z "$(USEANT)"; then USEANT=0; else USEANT=1; fi; \ +@NEED_JAVA_TRUE@ if test -f build.xml -a $$USEANT -eq 1; then \ +@NEED_JAVA_TRUE@ $(ANT) clean; \ +@NEED_JAVA_TRUE@ fi; + +# If the user request for the SWIG generation of the wrappers Java => C/C++ +# We call the target swig-build on the variable SWIG_WRAPPERS + +@SWIG_TRUE@swig: $(SWIG_WRAPPERS) +@SWIG_TRUE@ @SWIG_PACKAGENAME=org.scilab.modules.$(modulename); \ +@SWIG_TRUE@ SWIG_OUTDIR=src/java/org/scilab/modules/$(modulename)/; \ +@SWIG_TRUE@ if test -n "$(SWIG_WRAPPERS)"; then \ +@SWIG_TRUE@ for file in $(SWIG_WRAPPERS) ; do \ +@SWIG_TRUE@ echo "Swig process of $$file (Java) ..."; \ +@SWIG_TRUE@ $(SWIG_BIN) $(SWIG_JAVA) -package $$SWIG_PACKAGENAME -outdir $$SWIG_OUTDIR $$file; \ +@SWIG_TRUE@ done; \ +@SWIG_TRUE@ fi + +@SWIG_TRUE@swig-scilab: $(SWIG_SCILAB_WRAPPERS) +@SWIG_TRUE@ @SWIG_OUTDIR=src/swig/; \ +@SWIG_TRUE@ if test -n "$(SWIG_SCILAB_WRAPPERS)"; then \ +@SWIG_TRUE@ for file in $(SWIG_SCILAB_WRAPPERS) ; do \ +@SWIG_TRUE@ echo "Swig process of $$file (Scilab) ..."; \ +@SWIG_TRUE@ $(SWIG_BIN) $(SWIG_SCILAB) -outdir $$SWIG_OUTDIR $$file; \ +@SWIG_TRUE@ done; \ +@SWIG_TRUE@ fi + +# If the user request for the SWIG generation of the wrappers Java => C/C++ +# We call the target swig-build on the variable SWIG_WRAPPERS + +@GIWS_TRUE@giws: $(GIWS_WRAPPERS) +@GIWS_TRUE@ @GIWS_OUTPUTDIR=src/jni/; \ +@GIWS_TRUE@ MANDATORY_OPTIONS="--throws-exception-on-error --description-file"; \ +@GIWS_TRUE@ if test -n "$(GIWS_WRAPPERS)"; then \ +@GIWS_TRUE@ for file in $(GIWS_WRAPPERS) ; do \ +@GIWS_TRUE@ echo "GIWS process of $$file ..."; \ +@GIWS_TRUE@ if test -z "$(GIWS_OPTIONS)"; then \ +@GIWS_TRUE@ $(GIWS_BIN) --disable-return-size-array --output-dir $$GIWS_OUTPUTDIR $$MANDATORY_OPTIONS $$file; \ +@GIWS_TRUE@ else \ +@GIWS_TRUE@ echo "Custom GIWS call with '$$GIWS_OPTIONS'"; \ +@GIWS_TRUE@ $(GIWS_BIN) $$GIWS_OPTIONS --output-dir $$GIWS_OUTPUTDIR $$MANDATORY_OPTIONS $$file; \ +@GIWS_TRUE@ fi \ +@GIWS_TRUE@ done; \ +@GIWS_TRUE@ fi + +@GIWS_TRUE@giws-exception: +@GIWS_TRUE@ @GIWS_OUTPUTDIR=src/jni/;\ +@GIWS_TRUE@ echo "GIWS: Generation of exception class ..."; \ +@GIWS_TRUE@ $(GIWS_BIN) --generate-exception-class --output-dir $$GIWS_OUTPUTDIR + +macros: + -@( if test ! -x $(top_builddir)/scilab-bin; then \ + echo "Error : Cannot build $< : Scilab has not been built"; \ + else \ + $(top_builddir)/bin/scilab -ns -nwni -e "exec('macros/buildmacros.sce');quit;";\ + fi) + +# Removes the macros +clean-macros: +# Removes macros (*.bin generated from .sci) + @for dir in $(MACRODIRS) $(MACROSDIRSEXT) ; do \ + echo "rm -f $(builddir)/$$dir/$(MACROBINMASK)"; \ + rm -f $(builddir)/$$dir/$(MACROBINMASK); \ + done + +test: +# More tests could be added here + @if test -z "$(USEANT)"; then USEANT=0; else USEANT=1; fi; \ + if test -f build.xml -a $$USEANT -eq 1; then \ + $(ANT) test; \ + fi + +all-local: $(TARGETS_ALL) + +.sci.bin: + -@( if test ! -x $(top_builddir)/scilab-bin; then \ + echo "Error : Cannot build $< : Scilab has not been build"; \ + else \ + echo "Creating $@"; \ + $(top_builddir)/bin/scilab -ns -nwni -e "exec('$(abs_srcdir)/$<');save('$(abs_srcdir)/$@');exit;"; \ + fi ) + +install-html-local: + +install-data-local-local: +# Mainly for javasci + @if test -d $(srcdir)/javadoc; then \ + cp -R $(srcdir)/javadoc $(DESTDIR)/$(mydatadir)/; \ + fi +# If the user wants the help sources to be installed +@INSTALL_HELP_XML_TRUE@ @echo "-------- Install of XML sources of help files --------"; \ +@INSTALL_HELP_XML_TRUE@ for lang in $(ALL_LINGUAS); do \ +@INSTALL_HELP_XML_TRUE@ if test -d $(srcdir)/help/$$lang; then \ +@INSTALL_HELP_XML_TRUE@ $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/help/$$lang && \ +@INSTALL_HELP_XML_TRUE@ if ls -lLd $(srcdir)/help/$$lang/$(DOCMASKXML) >/dev/null 2>&1; then \ +@INSTALL_HELP_XML_TRUE@ for file in $(srcdir)/help/$$lang/$(DOCMASKXML) ; do \ +@INSTALL_HELP_XML_TRUE@ echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgdocdir)/help/$$lang" ; \ +@INSTALL_HELP_XML_TRUE@ $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgdocdir)/help/$$lang ; \ +@INSTALL_HELP_XML_TRUE@ done ; \ +@INSTALL_HELP_XML_TRUE@ fi; \ +@INSTALL_HELP_XML_TRUE@ fi; \ +@INSTALL_HELP_XML_TRUE@ done; \ +@INSTALL_HELP_XML_TRUE@ @echo "-------- Install of MathML sources --------"; \ +@INSTALL_HELP_XML_TRUE@ if test -d $(srcdir)/help/mml/; then \ +@INSTALL_HELP_XML_TRUE@ $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/help/mml/ && \ +@INSTALL_HELP_XML_TRUE@ if ls -lLd $(srcdir)/help/mml/$(DOCMASKMML) >/dev/null 2>&1; then \ +@INSTALL_HELP_XML_TRUE@ for file in $(srcdir)/help/mml/$(DOCMASKMML) ; do \ +@INSTALL_HELP_XML_TRUE@ echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgdocdir)/help/mml" ; \ +@INSTALL_HELP_XML_TRUE@ $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgdocdir)/help/mml ; \ +@INSTALL_HELP_XML_TRUE@ done ; \ +@INSTALL_HELP_XML_TRUE@ fi; \ +@INSTALL_HELP_XML_TRUE@ fi +install-data-local: +# Install the tests + @echo "-------- Install tests (if any) --------"; \ + for dir in $(TESTS_DIR) $(TESTS_DIREXT) ; do \ + if test -d $(srcdir)/$$dir/; then \ + $(mkinstalldirs) $(DESTDIR)$(pkgmacrosdir)/$$dir && \ + for file in `find $(srcdir)/$$dir | sed "s|^$(srcdir)/$$dir||" 2>/dev/null`; do \ + if test -d "$(srcdir)/$$dir/$$file"; then \ + echo $(mkinstalldirs) $(DESTDIR)$(pkgmacrosdir)/$$dir/$$file; \ + $(mkinstalldirs) "$(DESTDIR)$(pkgmacrosdir)/$$dir/$$file"; \ + else \ + echo "$(INSTALL_DATA) $(srcdir)/$$dir/$$file $(DESTDIR)$(pkgmacrosdir)/`dirname $$dir/$$file`" ; \ + $(INSTALL_DATA) "$(srcdir)/$$dir/$$file" "$(DESTDIR)$(pkgmacrosdir)/`dirname $$dir/$$file`" ; \ + fi \ + done; \ + fi; \ + done +# Install the help chapter + @echo "-------- Install the help chapter (if any) --------"; \ + for lang in $(HELP_CHAPTERLANG); do \ + HELPFILE=$(srcdir)/$(HELP_CHAPTERDIR)$$lang/$(HELP_CHAPTERFILE); \ + if test -f $$HELPFILE; then \ + echo $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$(HELP_CHAPTERDIR)/$$lang/; \ + $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$(HELP_CHAPTERDIR)/$$lang/; \ + echo $(INSTALL_DATA) $$HELPFILE $(DESTDIR)$(pkgdocdir)/$$HELPFILE; \ + $(INSTALL_DATA) $$HELPFILE $(DESTDIR)$(pkgdocdir)/$$HELPFILE; \ + fi; \ + done +# Install the demos & examples + @echo "-------- Install demos & examples (if any) --------"; \ + for dir in $(DEMOS_DIR) $(DEMOS_DIREXT) $(EXAMPLES_DIR) $(EXAMPLES_DIREXT) ; do \ + if test -d $(srcdir)/$$dir/; then \ + $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$$dir && \ + for file in `find $(srcdir)/$$dir | sed "s|^$(srcdir)/$$dir||" 2>/dev/null`; do \ + if test -d "$(srcdir)/$$dir/$$file"; then \ + echo $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$$dir/$$file; \ + $(mkinstalldirs) "$(DESTDIR)$(pkgdocdir)/$$dir/$$file"; \ + else \ + echo "$(INSTALL_DATA) $(srcdir)/$$dir/$$file $(DESTDIR)$(pkgdocdir)/`dirname $$dir/$$file`" ; \ + $(INSTALL_DATA) "$(srcdir)/$$dir/$$file" "$(DESTDIR)$(pkgdocdir)/`dirname $$dir/$$file`" ; \ + fi \ + done; \ + fi; \ + done +# Install the macros + @echo "-------- Install macros (if any) --------"; \ + for dir in $(MACRODIRS) $(MACROSDIRSEXT) ; do \ + $(mkinstalldirs) $(DESTDIR)$(pkgmacrosdir)/$$dir && \ + if test -d $(srcdir)/$$dir/; then \ + FILELIST="$(srcdir)/$$dir/$(MACROMASK) $(srcdir)/$$dir/$(MACROBINMASK) $(srcdir)/$$dir/$(MACROBUILDMASK) $(srcdir)/$$dir/names $(srcdir)/$$dir/lib";\ + if test -n "$(MACROSSPECIALEXT)"; then \ + specialExtDir=""; \ + for specialExt in $(MACROSSPECIALEXT); do \ + specialExtDir="$$specialExtDir $(srcdir)/$$dir/$$specialExt"; \ + done; \ + FILELIST="$$FILELIST $$specialExtDir"; \ + fi; \ + for file in `ls -1 $$FILELIST 2>/dev/null`; do \ + echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgmacrosdir)/$$dir" ; \ + $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgmacrosdir)/$$dir ; \ + done; \ + fi; \ + done +# Install java files (.jar) + @if ls -lLd $(srcdir)/$(JARDIR)$(JARMASK) >/dev/null 2>&1; then \ + echo "-------- Install jar files --------"; \ + $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$(JARDIR); \ + for file in $(srcdir)/$(JARDIR)$(JARMASK); do\ + echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgdocdir)/$(JARDIR)" ; \ + $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgdocdir)/$(JARDIR) ; \ + done ; \ + fi + +########### CLEAN ################### +# Clean help (generated automatically by Scilab) +# It used to clean the macro (clean-macros) but this was causing +# make clean && make to fail Scilab startup +@NEED_JAVA_TRUE@clean-local: clean-java +@NEED_JAVA_FALSE@clean-local: + +distclean-local: + rm -f $(builddir)/help/*/.last_successful_build_javaHelp $(builddir)/help/*/.list_* + +.PHONY: macros java swig giws + +# Tell versions [3.59,3.63) of GNU make to not export all variables. +# Otherwise a system limit (for SysV at least) may be exceeded. +.NOEXPORT: diff --git a/modules/statistics/etc/statistics.quit b/modules/statistics/etc/statistics.quit new file mode 100755 index 000000000..b64bbfc8d --- /dev/null +++ b/modules/statistics/etc/statistics.quit @@ -0,0 +1,11 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2007-2008 - INRIA +// Copyright (C) 2009 - DIGITEO +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + +// ============================================================================= diff --git a/modules/statistics/etc/statistics.start b/modules/statistics/etc/statistics.start new file mode 100755 index 000000000..de225842a --- /dev/null +++ b/modules/statistics/etc/statistics.start @@ -0,0 +1,13 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2006 - INRIA - Allan CORNET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + +// Load functions libraries +// ============================================================================= +load('SCI/modules/statistics/macros/lib'); + diff --git a/modules/statistics/help/en_US/addchapter.sce b/modules/statistics/help/en_US/addchapter.sce new file mode 100755 index 000000000..56d23d84f --- /dev/null +++ b/modules/statistics/help/en_US/addchapter.sce @@ -0,0 +1,11 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2009 - DIGITEO +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + +add_help_chapter("Statistics",SCI+"/modules/statistics/help/en_US",%T); + diff --git a/modules/statistics/help/en_US/cdf/CHAPTER b/modules/statistics/help/en_US/cdf/CHAPTER new file mode 100755 index 000000000..1542dfc1a --- /dev/null +++ b/modules/statistics/help/en_US/cdf/CHAPTER @@ -0,0 +1 @@ +title = Cumulated Distribution Functions diff --git a/modules/statistics/help/en_US/cdf/binomial.xml b/modules/statistics/help/en_US/cdf/binomial.xml new file mode 100755 index 000000000..906977a4a --- /dev/null +++ b/modules/statistics/help/en_US/cdf/binomial.xml @@ -0,0 +1,105 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008 - INRIA + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="binomial" xml:lang="en"> + <refnamediv> + <refname>binomial</refname> + <refpurpose>binomial distribution probabilities</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>pr=binomial(p,n)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>pr</term> + <listitem> + <para>row vector with n+1 components</para> + </listitem> + </varlistentry> + <varlistentry> + <term>p</term> + <listitem> + <para>real number in [0,1]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>n</term> + <listitem> + <para>an integer >= 1</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + <literal>pr=binomial(p,n)</literal> returns the binomial probability + vector, i.e. <literal>pr(k+1)</literal> is the probability of + <literal>k</literal> success in <literal>n</literal> independent + Bernoulli trials with probability of success <literal>p</literal>. In + other words : <literal>pr(k+1) = probability(X=k)</literal> , with X a + random variable following the B(n,p) distribution, and numerically + : + </para> + <informalequation> + <mediaobject> + <imageobject> + <imagedata align="center" fileref="../../mml/binomial_equation_1_en_US.mml"/> + </imageobject> + </mediaobject> + </informalequation> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +// first example +n=10;p=0.3; clf(); plot2d3(0:n,binomial(p,n)); + +// second example +n=50;p=0.4; +mea=n*p; sigma=sqrt(n*p*(1-p)); +x=( (0:n)-mea )/sigma; +clf() +plot2d(x, sigma*binomial(p,n)); +deff('y=Gauss(x)','y=1/sqrt(2*%pi)*exp(-(x.^2)/2)') +plot2d(x, Gauss(x), style=2); + +// by binomial formula (Caution if big n) +function pr=binomial2(p,n) +x=poly(0,'x');pr=coeff((1-p+x)^n).*horner(x^(0:n),p); +endfunction +p=1/3;n=5; +binomial(p,n)-binomial2(p,n) + +// by Gamma function: gamma(n+1)=n! (Caution if big n) +p=1/3;n=5; +Cnks=gamma(n+1)./(gamma(1:n+1).*gamma(n+1:-1:1)); +x=poly(0,'x'); +pr=Cnks.*horner(x.^(0:n).*(1-x)^(n:-1:0),p); +pr-binomial(p,n) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="grand">grand</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/cdf/cdfbet.xml b/modules/statistics/help/en_US/cdf/cdfbet.xml new file mode 100755 index 000000000..d3fd698ac --- /dev/null +++ b/modules/statistics/help/en_US/cdf/cdfbet.xml @@ -0,0 +1,141 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="cdfbet"> + <refnamediv> + <refname>cdfbet</refname> + <refpurpose>cumulative distribution function Beta distribution</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>[P,Q]=cdfbet("PQ",X,Y,A,B) + [X,Y]=cdfbet("XY",A,B,P,Q) + [A]=cdfbet("A",B,P,Q,X,Y) + [B]=cdfbet("B",P,Q,X,Y,A) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>P,Q,X,Y,A,B</term> + <listitem> + <para>five real vectors of the same size.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>The integral from 0 to X of the beta distribution (Input range: [0, 1].)</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Q</term> + <listitem> + <para>1-P</para> + </listitem> + </varlistentry> + <varlistentry> + <term>X,Y (Y=1-X) </term> + <listitem> + <para>Upper limit of integration of beta density (Input range: [0,1], Search range: [0,1]) A,B : The two parameters of the beta density (input range: (0, +infinity), Search range: [1D-300,1D300] )</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Calculates any one parameter of the beta distribution given + values for the others (The beta density is proportional to + <literal>t^(A-1) * (1-t)^(B-1)</literal>. + </para> + <para> + Cumulative distribution function (P) is calculated directly by + code associated with the following reference. + </para> + <para> + DiDinato, A. R. and Morris, A. H. Algorithm 708: Significant + Digit Computation of the Incomplete Beta Function Ratios. ACM + Trans. Math. Softw. 18 (1993), 360-373. + </para> + <para> + Computation of other parameters involve a search for a value that + produces the desired value of P. The search relies on the + monotonicity of P with the other parameter. + </para> + <para> + From DCDFLIB: Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters (February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x = 0:0.1:1; +y = 1-x; + +A = 2*ones(x); +B = 3*ones(x); + +[p,q]=cdfbet('PQ',x,y,A,B); +plot2d2("gnn",[0:10]',p,5,"111","Repartition",[0,0,10,1]) + ]]></programlisting> + <scilab:image> + x = 0:0.1:1; + y = 1-x; + + A = 2*ones(x); + B = 3*ones(x); + + [p,q]=cdfbet('PQ',x,y,A,B); + plot2d2("gnn",[0:10]',p,5,"111","Repartition",[0,0,10,1]) + </scilab:image> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="cdfchi">cdfchi</link> + </member> + <member> + <link linkend="cdfchn">cdfchn</link> + </member> + <member> + <link linkend="cdff">cdff</link> + </member> + <member> + <link linkend="cdffnc">cdffnc</link> + </member> + <member> + <link linkend="cdfgam">cdfgam</link> + </member> + <member> + <link linkend="cdfnbn">cdfnbn</link> + </member> + <member> + <link linkend="cdfnor">cdfnor</link> + </member> + <member> + <link linkend="cdfpoi">cdfpoi</link> + </member> + <member> + <link linkend="cdft">cdft</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/cdf/cdfbin.xml b/modules/statistics/help/en_US/cdf/cdfbin.xml new file mode 100755 index 000000000..0dfb2f0d1 --- /dev/null +++ b/modules/statistics/help/en_US/cdf/cdfbin.xml @@ -0,0 +1,138 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="cdfbin"> + <refnamediv> + <refname>cdfbin</refname> + <refpurpose>cumulative distribution function Binomial distribution</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>[P,Q]=cdfbin("PQ",S,Xn,Pr,Ompr) + [S]=cdfbin("S",Xn,Pr,Ompr,P,Q) + [Xn]=cdfbin("Xn",Pr,Ompr,P,Q,S) + [Pr,Ompr]=cdfbin("PrOmpr",P,Q,S,Xn) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>P,Q,S,Xn,Pr,Ompr</term> + <listitem> + <para>six real vectors of the same size.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>The cumulation from 0 to S of the binomial distribution. (Probability of S or fewer successes in XN trials each with probability of success PR.) Input range: [0,1].</para> + </listitem> + </varlistentry> + <varlistentry> + <term>S</term> + <listitem> + <para>The number of successes observed. Input range: [0, XN] Search range: [0, XN]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Xn</term> + <listitem> + <para>The number of binomial trials. Input range: (0, +infinity). Search range: [1E-300, 1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Pr,Ompr (Ompr=1-Pr) </term> + <listitem> + <para>The probability of success in each binomial trial. Input range: [0,1]. Search range: [0,1]</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Calculates any one parameter of the binomial + distribution given values for the others. + </para> + <para> + Formula 26.5.24 of Abramowitz and Stegun, Handbook of + Mathematical Functions (1966) is used to reduce the binomial + distribution to the cumulative incomplete beta distribution. + </para> + <para> + Computation of other parameters involve a search for a value that + produces the desired value of P. The search relies on the + monotonicity of P with the other parameter. + </para> + <para> + From DCDFLIB: Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters (February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ + S = 0:1:10; + Pr = 0.3 * ones(S); + Ompr = 1-Pr; + Xn = 10*ones(S); + [p,q]=cdfbin('PQ',S,Xn,Pr,Ompr); + plot2d2("gnn",[0:10]',p,5,"111","Repartition",[0,0,10,1]) + ]]></programlisting> + <scilab:image> + S = 0:1:10; + Pr = 0.3 * ones(S); + Ompr = 1-Pr; + Xn = 10*ones(S); + [p,q]=cdfbin('PQ',S,Xn,Pr,Ompr); + plot2d2("gnn",[0:10]',p,5,"111","Repartition",[0,0,10,1]) + </scilab:image> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbet">cdfbet</link> + </member> + <member> + <link linkend="cdfchi">cdfchi</link> + </member> + <member> + <link linkend="cdfchn">cdfchn</link> + </member> + <member> + <link linkend="cdff">cdff</link> + </member> + <member> + <link linkend="cdffnc">cdffnc</link> + </member> + <member> + <link linkend="cdfgam">cdfgam</link> + </member> + <member> + <link linkend="cdfnbn">cdfnbn</link> + </member> + <member> + <link linkend="cdfnor">cdfnor</link> + </member> + <member> + <link linkend="cdfpoi">cdfpoi</link> + </member> + <member> + <link linkend="cdft">cdft</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/cdf/cdfchi.xml b/modules/statistics/help/en_US/cdf/cdfchi.xml new file mode 100755 index 000000000..227c2fd7b --- /dev/null +++ b/modules/statistics/help/en_US/cdf/cdfchi.xml @@ -0,0 +1,128 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="cdfchi"> + <refnamediv> + <refname>cdfchi</refname> + <refpurpose>cumulative distribution function chi-square distribution</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>[P,Q]=cdfchi("PQ",X,Df) + [X]=cdfchi("X",Df,P,Q); + [Df]=cdfchi("Df",P,Q,X) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>P,Q,Xn,Df</term> + <listitem> + <para>four real vectors of the same size.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para> The integral from 0 to X of the chi-square distribution. Input range: [0, 1].</para> + </listitem> + </varlistentry> + <varlistentry> + <term>X</term> + <listitem> + <para>Upper limit of integration of the non-central chi-square distribution. Input range: [0, +infinity). Search range: [0,1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Df</term> + <listitem> + <para> Degrees of freedom of the chi-square distribution. Input range: (0, +infinity). Search range: [ 1E-300, 1E300]</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Calculates any one parameter of the chi-square + distribution given values for the others. + </para> + <para> + Formula 26.4.19 of Abramowitz and Stegun, Handbook of + Mathematical Functions (1966) is used to reduce the chi-square + distribution to the incomplete distribution. + </para> + <para> + Computation of other parameters involve a search for a value that + produces the desired value of P. The search relies on the + monotonicity of P with the other parameter. + </para> + <para> + In certain cases, the degrees of freedom are not integers. Scilab then issues a warning. + </para> + <para> + From DCDFLIB: Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters (February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + <refsection> + <title>Examples</title> + <para> + In the following example, we compute the probability of the event <literal>x=0.1</literal> + for the chi-square distribution function with <literal>Df=2</literal>. + </para> + <programlisting role="example"><![CDATA[ + Df = 2; + x = 0.1; + // Expected : P = 0.0487706 and Q = 1-P + [P, Q] = cdfchi("PQ", x, Df) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbet">cdfbet</link> + </member> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="cdfchn">cdfchn</link> + </member> + <member> + <link linkend="cdff">cdff</link> + </member> + <member> + <link linkend="cdffnc">cdffnc</link> + </member> + <member> + <link linkend="cdfgam">cdfgam</link> + </member> + <member> + <link linkend="cdfnbn">cdfnbn</link> + </member> + <member> + <link linkend="cdfnor">cdfnor</link> + </member> + <member> + <link linkend="cdfpoi">cdfpoi</link> + </member> + <member> + <link linkend="cdft">cdft</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/cdf/cdfchn.xml b/modules/statistics/help/en_US/cdf/cdfchn.xml new file mode 100755 index 000000000..dcd7c1841 --- /dev/null +++ b/modules/statistics/help/en_US/cdf/cdfchn.xml @@ -0,0 +1,143 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="cdfchn"> + <refnamediv> + <refname>cdfchn</refname> + <refpurpose>cumulative distribution function non-central chi-square distribution</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>[P,Q]=cdfchn("PQ",X,Df,Pnonc) + [X]=cdfchn("X",Df,Pnonc,P,Q); + [Df]=cdfchn("Df",Pnonc,P,Q,X) + [Pnonc]=cdfchn("Pnonc",P,Q,X,Df) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>P,Q,X,Df,Pnonc</term> + <listitem> + <para>five real vectors of the same size.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para> The integral from 0 to X of the non-central chi-square distribution. Input range: [0, 1-1E-16).</para> + </listitem> + </varlistentry> + <varlistentry> + <term>X</term> + <listitem> + <para>Upper limit of integration of the non-central chi-square distribution. Input range: [0, +infinity). Search range: [0,1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Df</term> + <listitem> + <para>Degrees of freedom of the non-central chi-square distribution. Input range: (0, +infinity). Search range: [ 1E-300, 1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Pnonc</term> + <listitem> + <para> Non-centrality parameter of the non-central chi-square distribution. Input range: [0, +infinity). Search range: [0,1E4]</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Calculates any one parameter of the non-central chi-square + distribution given values for the others. + </para> + <para> + Formula 26.4.25 of Abramowitz and Stegun, Handbook of + Mathematical Functions (1966) is used to compute the cumulative + distribution function. + </para> + <para> + Computation of other parameters involve a search for a value that + produces the desired value of P. The search relies on the + monotonicity of P with the other parameter. + </para> + <para> + The computation time required for this routine is proportional + to the noncentrality parameter (PNONC). Very large values of + this parameter can consume immense computer resources. This is + why the search range is bounded by 10,000. + </para> + <para> + In certain cases, the degrees of freedom are not integers. Scilab then issues a warning. + </para> + <para> + From DCDFLIB: Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters (February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + <refsection> + <title>Examples</title> + <para> + In the following example, we compute the probability of the event <literal>x=0.1</literal> + for the non-central chi-square distribution function with <literal>Df=2</literal> and + <literal>Pnonc=5</literal>. + </para> + <programlisting role="example"><![CDATA[ + Pnonc = 5; + Df = 2; + x = 0.1; + // Expected : P = 0.0042567 and Q = 1-P + [P, Q] = cdfchn("PQ", x, Df, Pnonc) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbet">cdfbet</link> + </member> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="cdfchi">cdfchi</link> + </member> + <member> + <link linkend="cdff">cdff</link> + </member> + <member> + <link linkend="cdffnc">cdffnc</link> + </member> + <member> + <link linkend="cdfgam">cdfgam</link> + </member> + <member> + <link linkend="cdfnbn">cdfnbn</link> + </member> + <member> + <link linkend="cdfnor">cdfnor</link> + </member> + <member> + <link linkend="cdfpoi">cdfpoi</link> + </member> + <member> + <link linkend="cdft">cdft</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/cdf/cdff.xml b/modules/statistics/help/en_US/cdf/cdff.xml new file mode 100755 index 000000000..ba5185987 --- /dev/null +++ b/modules/statistics/help/en_US/cdf/cdff.xml @@ -0,0 +1,143 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="cdff"> + <refnamediv> + <refname>cdff</refname> + <refpurpose>cumulative distribution function Fisher distribution</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>[P,Q]=cdff("PQ",F,Dfn,Dfd) + [F]=cdff("F",Dfn,Dfd,P,Q); + [Dfn]=cdff("Dfn",Dfd,P,Q,F); + [Dfd]=cdff("Dfd",P,Q,F,Dfn) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>P,Q,F,Dfn,Dfd</term> + <listitem> + <para>five real vectors of the same size.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para> The integral from 0 to F of the f-density. Input range: [0,1].</para> + </listitem> + </varlistentry> + <varlistentry> + <term>F</term> + <listitem> + <para>Upper limit of integration of the f-density. Input range: [0, +infinity). Search range: [0,1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Dfn</term> + <listitem> + <para>Degrees of freedom of the numerator sum of squares. Input range: (0, +infinity). Search range: [ 1E-300, 1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Dfd</term> + <listitem> + <para>Degrees of freedom of the denominator sum of squares. Input range: (0, +infinity). Search range: [ 1E-300, 1E300]</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Calculates any one parameter of the F distribution + given values for the others. + </para> + <para> + Formula 26.6.2 of Abramowitz and Stegun, Handbook of + Mathematical Functions (1966) is used to reduce the computation + of the cumulative distribution function for the F variate to + that of an incomplete beta. + </para> + <para> + Computation of other parameters involve a search for a value that + produces the desired value of P. The search relies on the + monotonicity of P with the other parameter. + </para> + <para> + The value of the cumulative F distribution is not necessarily + monotone in either degrees of freedom. There thus may be two + values that provide a given CDF value. This routine assumes + monotonicity and will find an arbitrary one of the two values. + </para> + <para> + In certain cases, the degrees of freedom are not integers. Scilab then issues a warning. + </para> + <para> + From DCDFLIB: Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters (February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + <refsection> + <title>Examples</title> + <para> + In the following example, we compute the probability of the event <literal>f=0.1</literal> + for the Fisher distribution function with <literal>Dfn=2</literal> and <literal>Dfd=2</literal>. + </para> + <programlisting role="example"><![CDATA[ + Dfn = 2; + Dfd = 2; + f = 0.1; + // Expected : P = 0.0909091 and Q = 1-P + [P, Q] = cdff("PQ", f, Dfd, Dfd) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbet">cdfbet</link> + </member> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="cdfchi">cdfchi</link> + </member> + <member> + <link linkend="cdfchn">cdfchn</link> + </member> + <member> + <link linkend="cdffnc">cdffnc</link> + </member> + <member> + <link linkend="cdfgam">cdfgam</link> + </member> + <member> + <link linkend="cdfnbn">cdfnbn</link> + </member> + <member> + <link linkend="cdfnor">cdfnor</link> + </member> + <member> + <link linkend="cdfpoi">cdfpoi</link> + </member> + <member> + <link linkend="cdft">cdft</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/cdf/cdffnc.xml b/modules/statistics/help/en_US/cdf/cdffnc.xml new file mode 100755 index 000000000..3462a7f9e --- /dev/null +++ b/modules/statistics/help/en_US/cdf/cdffnc.xml @@ -0,0 +1,154 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="cdffnc"> + <refnamediv> + <refname>cdffnc</refname> + <refpurpose>cumulative distribution function non-central f-distribution</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>[P,Q]=cdffnc("PQ",F,Dfn,Dfd,Pnonc) + [F]=cdffnc("F",Dfn,Dfd,Pnonc,P,Q); + [Dfn]=cdffnc("Dfn",Dfd,Pnonc,P,Q,F); + [Dfd]=cdffnc("Dfd",Pnonc,P,Q,F,Dfn) + [Pnonc]=cdffnc("Pnonc",P,Q,F,Dfn,Dfd); + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>P,Q,F,Dfn,Dfd,Pnonc</term> + <listitem> + <para>six real vectors of the same size.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>The integral from 0 to F of the non-central f-density. Input range: [0,1-1E-16).</para> + </listitem> + </varlistentry> + <varlistentry> + <term>F</term> + <listitem> + <para>Upper limit of integration of the non-central f-density. Input range: [0, +infinity). Search range: [0,1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Dfn</term> + <listitem> + <para>Degrees of freedom of the numerator sum of squares. Input range: (0, +infinity). Search range: [ 1E-300, 1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Dfd</term> + <listitem> + <para>Degrees of freedom of the denominator sum of squares. Must be in range: (0, +infinity). Input range: (0, +infinity). Search range: [ 1E-300, 1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Pnonc</term> + <listitem> + <para>The non-centrality parameter Input range: [0,infinity) Search range: [0,1E4]</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Calculates any one parameter of the Non-central F + distribution given values for the others. + </para> + <para> + Formula 26.6.20 of Abramowitz and Stegun, Handbook of + Mathematical Functions (1966) is used to compute the cumulative + distribution function. + </para> + <para> + Computation of other parameters involve a search for a value that + produces the desired value of P. The search relies on the + monotonicity of P with the other parameter. + </para> + <para> + The computation time required for this routine is proportional + to the noncentrality parameter (PNONC). Very large values of + this parameter can consume immense computer resources. This is + why the search range is bounded by 10,000. + </para> + <para> + The value of the cumulative noncentral F distribution is not + necessarily monotone in either degrees of freedom. There thus + may be two values that provide a given CDF value. This routine + assumes monotonicity and will find an arbitrary one of the two + values. + </para> + <para> + In certain cases, the degrees of freedom are not integers. Scilab then issues a warning. + </para> + <para> + From DCDFLIB: Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters (February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ + +f = [1:2]; +dfn = [1:2]; +dfd = 2*dfn; +pn = [0,1]; + +[P,Q] = cdffnc("PQ",f,dfn,dfd,pn) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbet">cdfbet</link> + </member> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="cdfchi">cdfchi</link> + </member> + <member> + <link linkend="cdfchn">cdfchn</link> + </member> + <member> + <link linkend="cdff">cdff</link> + </member> + <member> + <link linkend="cdfgam">cdfgam</link> + </member> + <member> + <link linkend="cdfnbn">cdfnbn</link> + </member> + <member> + <link linkend="cdfnor">cdfnor</link> + </member> + <member> + <link linkend="cdfpoi">cdfpoi</link> + </member> + <member> + <link linkend="cdft">cdft</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/cdf/cdfgam.xml b/modules/statistics/help/en_US/cdf/cdfgam.xml new file mode 100755 index 000000000..3e64ca2a4 --- /dev/null +++ b/modules/statistics/help/en_US/cdf/cdfgam.xml @@ -0,0 +1,201 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * Copyright (C) 2010 - DIGITEO - Michael Baudin + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="cdfgam"> + <refnamediv> + <refname>cdfgam</refname> + <refpurpose>cumulative distribution function gamma distribution</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis> + [P,Q]=cdfgam("PQ",X,Shape,Rate) + [X]=cdfgam("X",Shape,Rate,P,Q) + [Shape]=cdfgam("Shape",Rate,P,Q,X) + [Rate]=cdfgam("Rate",P,Q,X,Shape) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>P,Q,X,Shape,Rate</term> + <listitem> + <para>five real vectors of the same size.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>The integral from 0 to X of the gamma density. Input range: [0,1].</para> + </listitem> + </varlistentry> + <varlistentry> + <term>X</term> + <listitem> + <para> The upper limit of integration of the gamma density. Input range: [0, +infinity). Search range: [0,1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Shape</term> + <listitem> + <para> The shape parameter of the gamma density. Input range: (0, +infinity). Search range: [1E-300,1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Rate</term> + <listitem> + <para> The rate parameter of the gamma density. Input range: (0, +infinity). Search range: (1E-300,1E300]</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Calculates any one parameter of the gamma + distribution given values for the others. + </para> + <para> + The gamma density is + </para> + <para> + <latex> + \begin{eqnarray} + f(x,a,r) = \frac{1}{r^{-a}\Gamma(a)} \int_0^x t^{a-1} \exp\left(-rt\right) dt + \end{eqnarray} + </latex> + </para> + <para> + where a is the shape and r is the rate. + </para> + <para> + <warning> + Caution. As opposed to other technical computing languages, + this function makes use of the rate parameter, and not the + scale parameter. + The rate parameter is linked to the scale parameter with the equation rate=1/scale. + </warning> + </para> + <para> + Computation of parameters such as X, Shape or Rate involve a search for a value that + produces the desired value of P. The search relies on the + monotonicity of P with the other parameter. + </para> + </refsection> + <refsection> + <title>Examples</title> + <para> + In the following example, we compute the probability of the event <literal>x=0.1</literal> + for the Gamma distribution function with <literal>Shape=1.0</literal> and + <literal>Rate=1.0</literal>. + </para> + <programlisting role="example"><![CDATA[ + Shape = 0.1 + Rate = 1.0 + x = 0.1 + // Expected : P = 0.8275518 + [P,Q]=cdfgam("PQ",x,Shape,Rate) + ]]></programlisting> + <para> + In the following example, we compute the probability of the event <literal>x=0.1</literal> + and check that the search algorithms allows to consistently invert the + function. + </para> + <programlisting role="example"><![CDATA[ + Shape = 0.1 + Rate = 2.0 + x = 0.3 + [P,Q] = cdfgam("PQ",x,Shape,Rate) + [X1] = cdfgam("X",Shape,Rate,P,Q) + [Shape1] = cdfgam("Shape",Rate,P,Q,x) + [Rate1] = cdfgam("Rate",P,Q,x,Shape) + ]]></programlisting> + <para> + In the following example, we draw the Gamma distribution function + for various values of the Shape and Rate. + </para> + <programlisting role="example"><![CDATA[ + N = 1000; + x = linspace(0,20,N)'; + Shape = [1 2 3 5 9]; + Rate = 1 ./ [2 2 2 1 0.5]; + C = ["red" "green" "blue" "cyan" "orange"]; + lstr = []; + drawlater(); + h = gcf(); + for i = 1 : 5 + P = cdfgam("PQ",x,Shape(i)*ones(N,1),Rate(i)*ones(N,1)); + lstr(i) = msprintf("Shape=%s, Rate=%s",string(Shape(i)),string(Rate(i))); + plot(x,P); + h.children.children(1).children.foreground = color(C(i)); + end + legend(lstr); + xtitle("CDF of the Gamma distribution function","X","P"); + drawnow(); + ]]></programlisting> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + Cumulative distribution function (P) is calculated directly by + the code associated with: + </para> + <para> + DiDinato, A. R. and Morris, A. H. Computation of the incomplete + gamma function ratios and their inverse. ACM Trans. Math. + Softw. 12 (1986), 377-393. + </para> + <para> + From DCDFLIB: Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters (February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbet">cdfbet</link> + </member> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="cdfchi">cdfchi</link> + </member> + <member> + <link linkend="cdfchn">cdfchn</link> + </member> + <member> + <link linkend="cdff">cdff</link> + </member> + <member> + <link linkend="cdffnc">cdffnc</link> + </member> + <member> + <link linkend="cdfnbn">cdfnbn</link> + </member> + <member> + <link linkend="cdfnor">cdfnor</link> + </member> + <member> + <link linkend="cdfpoi">cdfpoi</link> + </member> + <member> + <link linkend="cdft">cdft</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/cdf/cdfnbn.xml b/modules/statistics/help/en_US/cdf/cdfnbn.xml new file mode 100755 index 000000000..7d8e0001e --- /dev/null +++ b/modules/statistics/help/en_US/cdf/cdfnbn.xml @@ -0,0 +1,153 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="cdfnbn"> + <refnamediv> + <refname>cdfnbn</refname> + <refpurpose>cumulative distribution function negative binomial distribution</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>[P,Q]=cdfnbn("PQ",S,Xn,Pr,Ompr) + [S]=cdfnbn("S",Xn,Pr,Ompr,P,Q) + [Xn]=cdfnbn("Xn",Pr,Ompr,P,Q,S) + [Pr,Ompr]=cdfnbn("PrOmpr",P,Q,S,Xn) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>P,Q,S,Xn,Pr,Ompr</term> + <listitem> + <para>six real vectors of the same size.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>The cumulation from 0 to S of the negative binomial distribution. Input range: [0,1].</para> + </listitem> + </varlistentry> + <varlistentry> + <term>S</term> + <listitem> + <para>The upper limit of cumulation of the binomial distribution. There are F or fewer failures before the XNth success. Input range: [0, +infinity). Search range: [0, 1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Xn</term> + <listitem> + <para> The number of successes. Input range: [0, +infinity). Search range: [0, 1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Pr</term> + <listitem> + <para> The probability of success in each binomial trial. Input range: [0,1]. Search range: [0,1].</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Ompr</term> + <listitem> + <para> 1-PR Input range: [0,1]. Search range: [0,1] PR + OMPR = 1.0</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Calculates any one parameter of the negative binomial + distribution given values for the others. + </para> + <para> + The cumulative negative binomial distribution returns the + probability that there will be F or fewer failures before the + XNth success in binomial trials each of which has probability of + success PR. + </para> + <para> + The individual term of the negative binomial is the probability of + S failures before XN successes and is + Choose <literal>( S, XN+S-1 ) * PR^(XN) * (1-PR)^S</literal> + </para> + <para> + Formula 26.5.26 of Abramowitz and Stegun, Handbook of + Mathematical Functions (1966) is used to reduce calculation of + the cumulative distribution function to that of an incomplete + beta. + </para> + <para> + Computation of other parameters involve a search for a value that + produces the desired value of P. The search relies on the + monotonicity of P with the other parameter. + </para> + <para> + From DCDFLIB: Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters (February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + <refsection> + <title>Examples</title> + <para> + In the following example, we compute the probability of the event <literal>S=2</literal> + for the negative binomial distribution function with <literal>Xn=3</literal>, + <literal>Pr=0.7</literal> and <literal>Ompr=0.3</literal>. + </para> + <programlisting role="example"><![CDATA[ + S = 2; + Xn = 3; + Pr = 0.7; + Ompr = 0.3; + // Expected : P = 0.83692 and Q = 1-P + [P, Q] = cdfnbn("PQ", S, Xn, Pr, Ompr) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbet">cdfbet</link> + </member> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="cdfchi">cdfchi</link> + </member> + <member> + <link linkend="cdfchn">cdfchn</link> + </member> + <member> + <link linkend="cdff">cdff</link> + </member> + <member> + <link linkend="cdffnc">cdffnc</link> + </member> + <member> + <link linkend="cdfgam">cdfgam</link> + </member> + <member> + <link linkend="cdfnor">cdfnor</link> + </member> + <member> + <link linkend="cdfpoi">cdfpoi</link> + </member> + <member> + <link linkend="cdft">cdft</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/cdf/cdfnor.xml b/modules/statistics/help/en_US/cdf/cdfnor.xml new file mode 100755 index 000000000..6f6b48a5a --- /dev/null +++ b/modules/statistics/help/en_US/cdf/cdfnor.xml @@ -0,0 +1,293 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * Copyright (C) 2010 - DIGITEO - Michael Baudin + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="cdfnor"> + <refnamediv> + <refname>cdfnor</refname> + <refpurpose>cumulative distribution function normal distribution</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis> + [P,Q]=cdfnor("PQ",X,Mean,Std) + X=cdfnor("X",Mean,Std,P,Q) + Mean=cdfnor("Mean",Std,P,Q,X) + Std=cdfnor("Std",P,Q,X,Mean) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>P,Q,X,Mean,Std</term> + <listitem> + <para>matrix of doubles of the same size.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>The integral from -infinity to X of the normal density. Input range: (0,1].</para> + </listitem> + </varlistentry> + <varlistentry> + <term>X</term> + <listitem> + <para>Upper limit of integration of the normal-density. Input range: ( -infinity, +infinity)</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Mean</term> + <listitem> + <para> The mean of the normal density. Input range: (-infinity, +infinity)</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Sd</term> + <listitem> + <para> Standard Deviation of the normal density. Input range: (0, +infinity).</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Calculates any one parameter of the normal + distribution given values for the others. + </para> + <para> + A slightly modified version of ANORM from + Cody, W.D. (1993). "ALGORITHM 715: SPECFUN - A Portable FORTRAN + Package of Special Function Routines and Test Drivers" + acm Transactions on Mathematical Software. 19, 22-32. + is used to calulate the cumulative standard normal distribution. + </para> + <para> + The rational functions from pages 90-95 of Kennedy and Gentle, + Statistical Computing, Marcel Dekker, NY, 1980 are used as + starting values to Newton's Iterations which compute the inverse + standard normal. Therefore no searches are necessary for any + parameter. + </para> + <para> + For X < -15, the asymptotic expansion for the normal is used as + the starting value in finding the inverse standard normal. + This is formula 26.2.12 of Abramowitz and Stegun. + </para> + <para> + The cumulated distribution function definition is: + </para> + <para> + <latex> + \begin{eqnarray} + f(x,\mu,\sigma) = \frac{1}{\sigma\sqrt{2\pi}} \int_{-\infty}^x \exp\left(\frac{-(t-\mu)^2}{2\sigma^2}\right) dt + \end{eqnarray} + </latex> + </para> + <para> + From DCDFLIB: Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters (February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +// Compute p from x +x = -1; +Mean = 0; +Std = 1; +// P = 0.1586553, Q = 0.8413447 +[P,Q]=cdfnor("PQ",x,Mean,Std) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// Compute p from a very rare x +// Notice that Q should be used when P is close to 1, +// while P should be used when Q is close to 1. +x = 10; +Mean = 0; +Std = 1; +// P = 1, Q = 7.620D-24 +[P,Q]=cdfnor("PQ",x,Mean,Std) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// Make a table of P,Q +Mean = 0; +Std = 1; +x = -6:6; +[P,Q]=cdfnor("PQ",x,Mean*ones(x),Std*ones(x)); +[x' P' Q'] + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// Find x from p,q +Mean = 0; +Std = 1; +p = 0.1; +q = 0.9; +// x = - 1.2815516 +x = cdfnor("X",Mean,Std,p,q) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// Find Mean from p,q +x = 2; +Std = 1; +p = 0.1; +q = 0.9; +// Mean = 3.2815516 +Mean = cdfnor("Mean",Std,p,q,x) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// Find Standard Deviation from p,q +Mean = 0; +p = 0.1; +q = 0.9; +x = 2; +// Std = - 1.5606083 +Std = cdfnor("Std",p,q,x,Mean) + ]]></programlisting> + + + + <programlisting role="example"><![CDATA[ +// Plot the function +h = scf(); +Mean = [0 0 0 -2]; +Std2 = [0.2 1.0 5.0 0.5]; +cols = [1 2 3 4]; +nf = size(cols,"*"); +lgd = []; +for k = 1 : nf + x = linspace(-5,5,1000); + P=cdfnor("PQ",x,Mean(k)*ones(x),sqrt(Std2(k))*ones(x)); + plot(x,P) + str = msprintf("Mean=%s, Std^2=%s",string(Mean(k)),string(Std2(k))); + lgd($+1) = str; +end +for k = 1 : nf +h.children.children.children(nf - k + 1).foreground = cols(k); +end +legend(lgd); + ]]></programlisting> + <scilab:image> + h = scf(); + Mean = [0 0 0 -2]; + Std2 = [0.2 1.0 5.0 0.5]; + cols = [1 2 3 4]; + nf = size(cols,"*"); + lgd = []; + for k = 1 : nf + x = linspace(-5,5,1000); + P=cdfnor("PQ",x,Mean(k)*ones(x),sqrt(Std2(k))*ones(x)); + plot(x,P) + str = msprintf("Mean=%s, Std^2=%s",string(Mean(k)),string(Std2(k))); + lgd($+1) = str; + end + for k = 1 : nf + h.children.children.children(nf - k + 1).foreground = cols(k); + end + legend(lgd); + </scilab:image> + + <programlisting role="example"><![CDATA[ +// Plot the Inverse Cumulated Standard function +Mean = 0; +Std = 1; +p = linspace(1e-10,1-1e-10,1000); +q = 1-p; +x = cdfnor("X",Mean*ones(p),Std*ones(p),p,q); +plot(p,x) +xtitle("Inverse Cumulated Distribution Normal Standard Function","p","x"); + ]]></programlisting> + + + <scilab:image localized="true"> + Mean = 0; + Std = 1; + p = linspace(1e-10,1-1e-10,1000); + q = 1-p; + x = cdfnor("X",Mean*ones(p),Std*ones(p),p,q); + plot(p,x) + xtitle("Inverse Cumulated Distribution Normal Standard Function","p","x"); + </scilab:image> + + <programlisting role="example"><![CDATA[ +// The Inverse Normal CDF is ill-conditioned when +// p is close to p=0.5. +// This is because, at p=0.5, the first derivative is non-zero, +// while the function is zero. +// This may produce a large relative error in the function value, +// that is, some digits may not be accurate when p is getting +// closer and closer to p=0.5. +Mean = 0; +Std = 1; +p = 0.500000001; +q = 1-p; +x = cdfnor("X",Mean,Std,p,q) +// The expected probability was computed from a symbolic software, +// with the expression sqrt(2)*erfinv(2*p-1) +// where p = 1/2+10^-9. +expected = 2.50662827463100050e-9; +// The relative error is about 1.e-8, meaning that +// only 8 digits are accurate. +abs(x-expected)/abs(expected) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// The zero-finder algorithm may be unable to find the standard +// deviation in some situations when the inversion cannot be +// performed. +Mean = 1; +p = 0.5; +q = 0.5; +x = 1; +// Std = Nan +Std = cdfnor("Std",p,q,x,Mean) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbet">cdfbet</link> + </member> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="cdfchi">cdfchi</link> + </member> + <member> + <link linkend="cdfchn">cdfchn</link> + </member> + <member> + <link linkend="cdff">cdff</link> + </member> + <member> + <link linkend="cdffnc">cdffnc</link> + </member> + <member> + <link linkend="cdfgam">cdfgam</link> + </member> + <member> + <link linkend="cdfnbn">cdfnbn</link> + </member> + <member> + <link linkend="cdfpoi">cdfpoi</link> + </member> + <member> + <link linkend="cdft">cdft</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/cdf/cdfpoi.xml b/modules/statistics/help/en_US/cdf/cdfpoi.xml new file mode 100755 index 000000000..da6ea0389 --- /dev/null +++ b/modules/statistics/help/en_US/cdf/cdfpoi.xml @@ -0,0 +1,127 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="cdfpoi"> + <refnamediv> + <refname>cdfpoi</refname> + <refpurpose>cumulative distribution function poisson distribution</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>[P,Q]=cdfpoi("PQ",S,Xlam) + [S]=cdfpoi("S",Xlam,P,Q) + [Xlam]=cdfpoi("Xlam",P,Q,S); + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>P,Q,S,Xlam</term> + <listitem> + <para>four real vectors of the same size.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para> The cumulation from 0 to S of the poisson density. Input range: [0,1].</para> + </listitem> + </varlistentry> + <varlistentry> + <term>S</term> + <listitem> + <para>Matrix of integers. Upper limit of cumulation of the Poisson. Input range: [0, +infinity). Search range: [0,1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Xlam</term> + <listitem> + <para> Mean of the Poisson distribution. Input range: [0, +infinity). Search range: [0,1E300]</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Calculates any one parameter of the Poisson + distribution given values for the others. + </para> + <para> + Formula 26.4.21 of Abramowitz and Stegun, Handbook of + Mathematical Functions (1966) is used to reduce the computation + of the cumulative distribution function to that of computing a + chi-square, hence an incomplete gamma function. + </para> + <para> + Cumulative distribution function (P) is calculated directly. + Computation of other parameters involve a search for a value that + produces the desired value of P. The search relies on the + monotonicity of P with the other parameter. + </para> + <para> + From DCDFLIB: Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters (February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + <refsection> + <title>Examples</title> + <para> + In the following example, we compute the probability of the event <literal>S=2</literal> + for the Poisson distribution function with <literal>Xlam=3</literal>. + </para> + <programlisting role="example"><![CDATA[ + S = 2; + Xlam = 3; + // Expected : P = 0.4231901 and Q = 1-P + [P, Q] = cdfpoi("PQ", S, Xlam) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbet">cdfbet</link> + </member> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="cdfchi">cdfchi</link> + </member> + <member> + <link linkend="cdfchn">cdfchn</link> + </member> + <member> + <link linkend="cdff">cdff</link> + </member> + <member> + <link linkend="cdffnc">cdffnc</link> + </member> + <member> + <link linkend="cdfgam">cdfgam</link> + </member> + <member> + <link linkend="cdfnbn">cdfnbn</link> + </member> + <member> + <link linkend="cdfnor">cdfnor</link> + </member> + <member> + <link linkend="cdft">cdft</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/cdf/cdft.xml b/modules/statistics/help/en_US/cdf/cdft.xml new file mode 100755 index 000000000..0898c5ef4 --- /dev/null +++ b/modules/statistics/help/en_US/cdf/cdft.xml @@ -0,0 +1,123 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="cdft"> + <refnamediv> + <refname>cdft</refname> + <refpurpose>cumulative distribution function Student's T distribution</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>[P,Q]=cdft("PQ",T,Df) + [T]=cdft("T",Df,P,Q) + [Df]=cdft("Df",P,Q,T) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>P,Q,T,Df</term> + <listitem> + <para>six real vectors of the same size.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>The integral from -infinity to t of the t-density. Input range: (0,1].</para> + </listitem> + </varlistentry> + <varlistentry> + <term>T</term> + <listitem> + <para>Upper limit of integration of the t-density. Input range: ( -infinity, +infinity). Search range: [ -1E150, 1E150 ]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Df</term> + <listitem> + <para>Degrees of freedom of the t-distribution. Input range: (0 , +infinity). Search range: [1e-300, 1E10]</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Calculates any one parameter of the T distribution given + values for the others. + </para> + <para> + Formula 26.5.27 of Abramowitz and Stegun, Handbook of + Mathematical Functions (1966) is used to reduce the computation + of the cumulative distribution function to that of an incomplete + beta. + </para> + <para> + In certain cases, the degrees of freedom are not integers. Scilab then issues a warning. + </para> + <para> + Computation of other parameters involve a search for a value that + produces the desired value of P. The search relies on the + monotonicity of P with the other parameter. + </para> + </refsection> + <refsection> + <title>Examples</title> + <para> + In the following example, we compute the probability of the event <literal>T=5</literal> + for the Student's T distribution function with <literal>Df=2</literal>. + </para> + <programlisting role="example"><![CDATA[ + T = 5; + Df = 2; + // Expected : P = 0.9811252 and Q = 1-P + [P, Q] = cdft("PQ", T, Df) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbet">cdfbet</link> + </member> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="cdfchi">cdfchi</link> + </member> + <member> + <link linkend="cdfchn">cdfchn</link> + </member> + <member> + <link linkend="cdff">cdff</link> + </member> + <member> + <link linkend="cdffnc">cdffnc</link> + </member> + <member> + <link linkend="cdfgam">cdfgam</link> + </member> + <member> + <link linkend="cdfnbn">cdfnbn</link> + </member> + <member> + <link linkend="cdfnor">cdfnor</link> + </member> + <member> + <link linkend="cdfpoi">cdfpoi</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/central_tendency/CHAPTER b/modules/statistics/help/en_US/central_tendency/CHAPTER new file mode 100755 index 000000000..de4b42347 --- /dev/null +++ b/modules/statistics/help/en_US/central_tendency/CHAPTER @@ -0,0 +1,2 @@ +title = Central Tendency + diff --git a/modules/statistics/help/en_US/central_tendency/geomean.xml b/modules/statistics/help/en_US/central_tendency/geomean.xml new file mode 100755 index 000000000..6df962a84 --- /dev/null +++ b/modules/statistics/help/en_US/central_tendency/geomean.xml @@ -0,0 +1,67 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="geomean"> + <refnamediv> + <refname>geomean</refname> + <refpurpose>geometric mean</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>gm=geomean(x) + gm=geomean(x,'r')(or, equivalently, gm=geomean(x,1)) + gm=geomean(x,'c')(or, equivalently, gm=geomean(x,2)) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>real or complex vector or matrix</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function computes the geometric mean of a vector or + matrix <literal> x</literal>. For a vector or matrix <literal> x</literal>, + <literal>gm=geomean(x) </literal> returns in scalar <literal> gm</literal> the + geometric mean of all the entries of <literal> x</literal>. + </para> + <para> + <literal> gm=geomean(x,'r') </literal> (or, equivalently, + <literal>gm=gmean(x,1) </literal> ) returns in each entry of the row + vector <literal> gm</literal> the geometric mean of each column of <literal> x</literal>. + </para> + <para> + <literal> gm=geomean(x,'c') </literal> (or, equivalently, + <literal>gm=gmean(x,2) </literal> ) returns in each entry of the column + vector <literal> gm</literal> the geometric mean of each row of <literal> x </literal>. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +geomean(1:10) // Returns factorial(10)^(1/10) = 4.5287286881167648 + ]]></programlisting> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/central_tendency/harmean.xml b/modules/statistics/help/en_US/central_tendency/harmean.xml new file mode 100755 index 000000000..6552d6de9 --- /dev/null +++ b/modules/statistics/help/en_US/central_tendency/harmean.xml @@ -0,0 +1,67 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="harmean"> + <refnamediv> + <refname>harmean</refname> + <refpurpose>harmonic mean</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>hm=harmean(x) + hm=harmean(x,'r')(or, equivalently, hm=harmean(x,1)) + hm=harmean(x,'c')(or, equivalently, hm=harmean(x,2)) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>real or complex vector or matrix</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function computes the harmonic mean of a vector or + matrix <literal> x</literal>. For a vector or matrix <literal> x</literal>, + <literal> hm=harmean(x) </literal> returns in scalar <literal> hm</literal> the + harmonic mean of all the entries of <literal> x</literal>. + </para> + <para> + <literal> hm=harmean(x,'r') </literal> (or, equivalently, + <literal> hm=harmean(x,1) </literal> ) returns in each entry of the row + vector <literal> hm</literal> the harmonic mean of each column of <literal> x</literal>. + </para> + <para> + <literal> hm=harmean(x,'c') </literal> (or, equivalently, + <literal> hm=harmean(x,2) </literal> ) returns in each entry of the column + vector <literal> hm</literal> the harmonic mean of each row of <literal> x </literal>. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +harmean(1:10) // Returns 10/sum(1 ./(1:10)) ~ %pi + ]]></programlisting> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/central_tendency/mean.xml b/modules/statistics/help/en_US/central_tendency/mean.xml new file mode 100755 index 000000000..8455e0af2 --- /dev/null +++ b/modules/statistics/help/en_US/central_tendency/mean.xml @@ -0,0 +1,95 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="mean"> + <refnamediv> + <refname>mean</refname> + <refpurpose>mean (row mean, column mean) of vector/matrix + entries + </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>y=mean(x) + y=mean(x,'r') + y=mean(x,'c') + y=mean(x,'m') + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>real vector or matrix</para> + </listitem> + </varlistentry> + <varlistentry> + <term>y</term> + <listitem> + <para>scalar or vector</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + For a vector or a matrix <literal>x</literal>, <literal>y=mean(x)</literal> returns + in the scalar <literal>y</literal> the mean of all the entries of + <literal>x</literal>. + </para> + <para> + <literal>y=mean(x,'r')</literal> (or, equivalently, <literal>y=mean(x,1)</literal>) + is the rowwise mean. It returns a row vector: <literal>y(j)= + mean(x(:,j)) + </literal> + </para> + <para> + <literal>y=mean(x,'c')</literal> (or, equivalently, <literal>y=mean(x,2)</literal>) + is the columnwise mean. It returns a column vector: <literal>y(i)= + mean(x(i,:)) + </literal> + </para> + <para> + <literal>y=mean(x,'m')</literal> is the mean along the first non singleton + dimension of x (for compatibility with Matlab). + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +A=[1,2,10;7,7.1,7.01]; +mean(A) +mean(A,'r') +mean(A,'c') +A=matrix(1:12,[1,1,2,3,2]); +// in this case mean(A,'m') is equivalent to mean(A,3), the first non singleton dimension of A +y=mean(A,'m') + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="sum">sum</link> + </member> + <member> + <link linkend="median">median</link> + </member> + <member> + <link linkend="stdev">stdev</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/central_tendency/meanf.xml b/modules/statistics/help/en_US/central_tendency/meanf.xml new file mode 100755 index 000000000..f7a3c2cf1 --- /dev/null +++ b/modules/statistics/help/en_US/central_tendency/meanf.xml @@ -0,0 +1,133 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" + xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="meanf"> + <refnamediv> + <refname>meanf</refname> + <refpurpose>weighted mean of a vector or a matrix</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>m = meanf(x, fre, [orien]) + m = meanf(x, fre, 'r') or m = meanf(x, fre, 1) + m = meanf(x, fre, 'c') or m = meanf(x, fre, 2) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x </term> + <listitem> + <para> + A real or complex, full or sparse matrix, or an integer matrix, or an hypermatrix. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>fre </term> + <listitem> + <para> + A real or complex, full or sparse matrix, or an integer matrix, or an hypermatrix. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>orien </term> + <listitem> + <para> + The orientation of the computation. Valid values are + </para> + <itemizedlist> + <listitem> + <para> + 1 or "r": result is a row, after a column-wise computation. + </para> + </listitem> + <listitem> + <para> + 2 or "c": result is a column, after a row-wise computation. + </para> + </listitem> + <listitem> + <para> + "*": full undirectional computation. + </para> + </listitem> + </itemizedlist> + </listitem> + </varlistentry> + <varlistentry> + <term>m </term> + <listitem> + <para> + The mean. + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function computes the mean of a vector or matrix <literal> x</literal>, each of + them counted with a frequency given by the corresponding values of the integer + vector or matrix <literal>fre</literal>. + </para> + <para> + For a vector or matrix <literal>x</literal>, <literal> m = meanf(x, fre) </literal> or + <literal>m = meanf(x, fre, "*")</literal> returns in scalar <literal> m</literal> the + mean of all the entries of <literal> x </literal>, each value counted with the + multiplicity indicated by the corresponding value of <literal>fre</literal>. + </para> + <para> + <literal>m = meanf(x, fre, 'r') </literal> (or, equivalently, <literal>m = meanf(x, fre, 1) </literal>) + returns in each entry of the row vector <literal> m</literal> the mean + of each column of <literal> x</literal>. + </para> + <para> + <literal>m = meanf(x, fre, 'c') </literal> (or, equivalently, <literal>m = meanf(x, fre, 2) </literal>) + returns in each entry of the column vector <literal> m</literal> the mean of + each row of <literal> x</literal>. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 0.0002211 0.6653811;0.7560439 0.3303271 0.6283918] +m=meanf(x,rand(x)) +m=meanf(x,[10 10 10;1 1 1],'r') +m=meanf(x,[10 10 10;1 1 1],'c') + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="mean">mean</link> + </member> + <member> + <link linkend="stdevf">stdevf</link> + </member> + <member> + <link linkend="variancef">variancef</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/central_tendency/trimmean.xml b/modules/statistics/help/en_US/central_tendency/trimmean.xml new file mode 100755 index 000000000..6f1d63f99 --- /dev/null +++ b/modules/statistics/help/en_US/central_tendency/trimmean.xml @@ -0,0 +1,179 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns3="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="trimmean" xml:lang="en"> + <refnamediv> + <refname>trimmean</refname> + <refpurpose>trimmed mean of a vector or a matrix</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>m=trimmean(x[,discard [,flag [,verbose]]])</synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>real or complex vector or matrix</para> + </listitem> + </varlistentry> + <varlistentry> + <term>discard</term> + <listitem> + <para>Optional real value between 0 and 100 representing the part of + the data to discard. It discard is not in the [0,100] range, an + error is generated. Default value for discard=50. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>flag</term> + <listitem> + <para>Optional string or real parameter which controls the behaviour + when x is a matrix. Available values for flag are : "all", 1, 2, r + or c (default is flag="all"). The two values flag=r and flag=1 are + equivalent. The two values flag=c and flag=2 are equivalent. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>verbose</term> + <listitem> + <para>Optional integer. If set to 1, then enables verbose logging. + Default is 0. + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para>A trimmed mean is calculated by discarding a certain percentage of + the lowest and the highest scores and then computing the mean of the + remaining scores. For example, a mean trimmed 50% is computed by + discarding the lower and higher 25% of the scores and taking the mean of + the remaining scores. + </para> + <para>The median is the mean trimmed 100% and the arithmetic mean is the + mean trimmed 0%. + </para> + <para>A trimmed mean is obviously less susceptible to the effects of + extreme scores than is the arithmetic mean. It is therefore less + susceptible to sampling fluctuation than the mean for extremely skewed + distributions. The efficiency of a statistic is the degree to which the + statistic is stable from sample to sample. That is, the less subject to + sampling fluctuation a statistic is, the more efficient it is. The + efficiency of statistics is measured relative to the efficiency of other + statistics and is therefore often called the relative efficiency. If + statistic A has a smaller standard error than statistic B, then statistic + A is more efficient than statistic B. The relative efficiency of two + statistics may depend on the distribution involved. For instance, the mean + is more efficient than the median for normal distributions but not for + some extremely skewed distributions. The efficiency of a statistic can + also be thought of as the precision of the estimate: The more efficient + the statistic, the more precise the statistic is as an estimator of the + parameter. The trimmed mean is less efficient than the mean for normal + distributions. + </para> + <para> + For a vector or matrix <literal>x</literal>, + <literal>t=trimmean(x,discard)</literal> returns in scalar + <literal>t</literal> the mean of all the entries of <literal>x</literal>, + after discarding <literal>discard/2</literal> highest values and + <literal>discard/2</literal> lowest values. + </para> + <para> + <literal>t=trimmean(x,discard,'r')</literal> (or, equivalently, + <literal>t=trimmean(x,discard,1)</literal>) returns in each entry of the + row vector <literal>t</literal> the trimmed mean of each column of + <literal>x</literal>. + </para> + <para> + <literal>t=trimmean(x,discard,'c')</literal> (or, equivalently, + <literal>t=trimmean(x,discard,2)</literal>) returns in each entry of the + column vector <literal>t</literal> the trimmed mean of each row of + <literal>x</literal>. + </para> + <para>This function computes the trimmed mean of a vector or matrix + <literal> x</literal>. + </para> + <para> + For a vector or matrix <literal> x</literal>, <literal> + m=trimmean(x,discard) + </literal> + returns in scalar<literal> m</literal> + the trimmed mean of all the entries of <literal> x</literal>. + </para> + <para> + <literal> m=trimmean(x,'r') </literal> (or, equivalently, <literal> + m=trimmean(x,1) + </literal> + )returns in each entry of the row vector + <literal> m</literal> the trimmed mean of each column of <literal> + x + </literal> + . + </para> + <para> + <literal> m=trimmean(x,'c') </literal> (or, equivalently, <literal> + m=trimmean(x,2) + </literal> + )returns in each entry of the column vector + <literal> m</literal> the trimmed mean of each row of <literal> + x + </literal> + . + </para> + </refsection> + <refsection> + <title>Example with x as vector</title> + <para>In the following example, one computes the trimmed mean of one data + vector, with the default discard value equal to 50 and verbose logging. + The data is made of 9 entries. The algorithms sorts the vector and keeps + only indices from 3 to 7, skipping indices 1, 2, 8 and 9. The value 4000, + which is much larger than the others is not taken into account. The + computed trimmed mean is therefore 50. + </para> + <programlisting role="example"><![CDATA[ +data = [10, 20, 30, 40, 50, 60, 70, 80, 4000]; +computed = trimmean(data,verbose=1); + ]]></programlisting> + </refsection> + <refsection> + <title>Example with x as matrix</title> + <para>In the following example, one computes the trimmed mean of one data + matrix. The chosen discard value is 50. The orientation is "r", which + means that the data is sorted row by row. For each column of the matrix, + one computes a trimmed mean. The trimmed mean is the line vector [25 25 25 + 25]. + </para> + <programlisting role="example"><![CDATA[ +data = [10 10 10 10 + 20 20 20 20 + 30 30 30 30 + 4000 4000 4000 4000]; +computed = trimmean(data,50,orien="r"); + ]]></programlisting> + </refsection> + <refsection> + <title>References</title> + <para>Luis Angel Garcia-Escudero and Alfonso Gordaliza, Robustness + Properties of Means and Trimmed Means, JASA, Volume 94, Number 447, Sept + 1999, pp956-969 + </para> + <para> + Trimmed Mean, <ulink url="http://davidmlane.com/hyperstat/A11971.html">http://davidmlane.com/hyperstat/A11971.html</ulink> + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/data_missing_values/CHAPTER b/modules/statistics/help/en_US/data_missing_values/CHAPTER new file mode 100755 index 000000000..c127dfd8b --- /dev/null +++ b/modules/statistics/help/en_US/data_missing_values/CHAPTER @@ -0,0 +1,2 @@ +title = Data with Missing Values + diff --git a/modules/statistics/help/en_US/data_missing_values/nancumsum.xml b/modules/statistics/help/en_US/data_missing_values/nancumsum.xml new file mode 100755 index 000000000..88bfb5881 --- /dev/null +++ b/modules/statistics/help/en_US/data_missing_values/nancumsum.xml @@ -0,0 +1,97 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="nancumsum"> + <refnamediv> + <refname>nancumsum</refname> + <refpurpose>This function returns + the cumulative sum of the values of a matrix + </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>s = nancumsum(x,orient)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>x is a numerical vector or matrix.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>orient</term> + <listitem> + <para>is an optional parameter. The possible values are + '*', 1, 2, 'r' or 'c'. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>s</term> + <listitem> + <para>numerical scalar or vector. It contains the cumulative + sum of the values of <literal>x</literal>, ignoring the NAN's. + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function returns in scalar or vector <literal>s</literal> the cumulative + sum of the values (ignoring the NANs) of a vector or + matrix (real or complex) <literal>x</literal>. + </para> + <para> + This function for a vector or a matrix <literal>x</literal>, <literal>s=nancumsum(x)</literal> + (or, equivalently <literal>s=nancumsum(x,'*')</literal>) returns in scalar <literal>s</literal> + the cumulative sum (ignoring the NANs) of all the entries + of <literal>x</literal> taken columnwise. + </para> + <para> + <literal>s=nancumsum(x,'r')</literal> (or, equivalently, <literal>s=nancumsum(x,1)</literal>) + returns in <literal>s</literal> the cumulative sum + (ignoring the NANs) of the rows of <literal>x</literal>: + <literal>s(:,i)=nancumsum(x(:,i)</literal>) + </para> + <para> + s=nancumsum(x,'c') (or, equivalently, s=nancumsum(x,2)) + returns in <literal>s</literal> the cumulative sum + (ignoring NANs) of the columns of <literal>x</literal>: + <literal>s(i,:)=nancumsum(x(i,:))</literal> + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +a=[1 2 %nan;%nan 5 6] +s=nancumsum(a) +s=nancumsum(a,'r') +s=nancumsum(a,'c') + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="nansum">nansum</link> + </member> + <member> + <link linkend="cumsum">cumsum</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/data_missing_values/nand2mean.xml b/modules/statistics/help/en_US/data_missing_values/nand2mean.xml new file mode 100755 index 000000000..392ce70a5 --- /dev/null +++ b/modules/statistics/help/en_US/data_missing_values/nand2mean.xml @@ -0,0 +1,87 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="nand2mean"> + <refnamediv> + <refname>nand2mean</refname> + <refpurpose>difference of the means of + two independent samples + </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>[dif]=nand2mean(sample1,sample2) + [dif]=nand2mean(sample1,sample2,conf) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>sample1</term> + <listitem> + <para>real or complex vector or matrix</para> + </listitem> + </varlistentry> + <varlistentry> + <term>sample2</term> + <listitem> + <para>real or complex vector or matrix</para> + </listitem> + </varlistentry> + <varlistentry> + <term>conf</term> + <listitem> + <para>real scalar between 0 and 1</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function computes an estimate (dif(1)) for the + difference of the means of two independent samples (arrays + sample1 and sample2) and gives the half amplitude of the + range of variability of dif with an indicated confidence + level (dif(2)). The choice of the normal or t functions as + the probability function depends on the sizes of sample1 + and sample2 (cdfnor is chosen if the samples totalize 103 values or more, else cdft is used). + We suppose that the underlying variances of + both populations are equal. NAN values are not counted. + </para> + <para> + In Labostat, NAN values stand for missing values in tables. + </para> + <para> + In absence of the confidence parameter a confidence level + of 95% is assumed. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +sample1 = 0:10; +sample2 = [90:100 %nan]; + +nand2mean(sample2, sample1) +// Returns mean(sample2)-mean(sample1) = 95-5 = 90, and since there are only 22 values (NaN excluded), cdft is used to return 2.9499978. +// The %nan is ignored. + ]]></programlisting> + </refsection> + <refsection> + <title>References</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, 5th edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/data_missing_values/nanmax.xml b/modules/statistics/help/en_US/data_missing_values/nanmax.xml new file mode 100755 index 000000000..fcd0ada8b --- /dev/null +++ b/modules/statistics/help/en_US/data_missing_values/nanmax.xml @@ -0,0 +1,89 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="nanmax"> + <refnamediv> + <refname>nanmax</refname> + <refpurpose>max (ignoring Nan's) </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>[m,index]=nanmax(x) + [m,index]=nanmax(x,'r') + [m,index]=nanmax(x,'c') + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>real or complex vector or matrix</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function gives for a real or a numerical matrix + <literal> x</literal> his largest element <literal> m</literal> (but ignoring the + NANs). + </para> + <para> + For <literal> x</literal>, a numerical vector or matrix, <literal> m=nanmax(x) </literal> + returns in scalar <literal> m</literal> the largest + element of <literal> x</literal> (ignoring the NANs). The form + <literal>[m,index] =nanmax(x,orient) </literal> gives in addition of the + value of the largest element of <literal> x</literal> (ignoring the + NANs) in scalar <literal> m</literal>, the index of this element in + <literal> x</literal>, as a 2-vector. + </para> + <para> + <literal>m=nanmax(x,'r') </literal> gives in the 1xsize(x,2) matrix + <literal> m</literal> the largest elements (ignoring the NANs) of + each column of <literal> x</literal>. If the form + <literal>[m,index]=nanmax(x,'r') </literal> is used, the elements of the + 1xsize(x,2) matrix index are the indexes of the largest + elements (ignoring the NANs) of each column of x in the + corresponding column. + </para> + <para> + m=nanmax(x,'c') gives in the size(x,2)x1 matrix m the + largest elements (ignoring the NANs) of each row of x. + If the form [m,index]=nanmax(x,'c') is used, the + elements of the size(x,2)x1 matrix index are the indexes + of the largest elements (ignoring the NANs) of each row + of x in the corresponding row. + </para> + <para> + In Labostat, NAN values stand for missing values in + tables. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 %nan 0.6653811;0.7560439 0.3303271 0.6283918] +m=nanmax(x) +m=nanmax(x,'r') +m=nanmax(x,'c') + ]]></programlisting> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/data_missing_values/nanmean.xml b/modules/statistics/help/en_US/data_missing_values/nanmean.xml new file mode 100755 index 000000000..0df72da15 --- /dev/null +++ b/modules/statistics/help/en_US/data_missing_values/nanmean.xml @@ -0,0 +1,78 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="nanmean"> + <refnamediv> + <refname>nanmean</refname> + <refpurpose>mean (ignoring Nan's)</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>m=nanmean(val) + m=nanmean(val,'r') (or m=nanmean(val,1)) + m=nanmean(val,'c') (or m=nanmean(val,2)) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>val</term> + <listitem> + <para> real or complex vector or matrix</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function returns in scalar <literal> m</literal> the mean of the + values (ignoring the NANs) of a vector or matrix <literal>val</literal>. + </para> + <para> + For a vector or matrix <literal> val</literal> , <literal> m=nanmean(val) </literal> + or <literal> m=nanmean(val,'*') </literal> returns in scalar <literal> m</literal> + the mean of all the entries (ignoring the NANs) of <literal> val</literal>. + </para> + <para> + <literal>m=nanmean(val,'r')</literal> (or, equivalently, + <literal> m=nanmean(val,1) </literal>) returns in each entry of the row + vector <literal> m</literal> of type 1xsize(val,'c') the mean of each + column of <literal> val</literal> (ignoring the NANs). + </para> + <para> + <literal>m=nanmeanf(val,'c') </literal> (or, equivalently, + <literal> m=nanmean(val,2) </literal>) returns in each entry of the column + vector <literal> m</literal> of type size(val,'c')x1 the mean of each + row of <literal> val</literal> (ignoring the NANs). + </para> + <para> + In Labostat, NAN values stand for missing values in tables. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 %nan 0.6653811;0.7560439 0.3303271 0.6283918] +m=nanmean(x) +m=nanmean(x,1) +m=nanmean(x,2) + ]]></programlisting> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/data_missing_values/nanmeanf.xml b/modules/statistics/help/en_US/data_missing_values/nanmeanf.xml new file mode 100755 index 000000000..ead618b08 --- /dev/null +++ b/modules/statistics/help/en_US/data_missing_values/nanmeanf.xml @@ -0,0 +1,97 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="nanmeanf"> + <refnamediv> + <refname>nanmeanf</refname> + <refpurpose>mean (ignoring Nan's) with a given frequency.</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>m=nanmean(val,fre) + m=nanmean(val,fre,'r') (or m=nanmean(val,fre,1)) + m=nanmean(val,fre,'c') (or m=nanmean(val,fre,2)) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>val</term> + <listitem> + <para>real or complex vector or matrix</para> + </listitem> + </varlistentry> + <varlistentry> + <term>fre</term> + <listitem> + <para>integer vector or matrix with same dimensions than + val + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function returns in scalar <literal> m</literal> the mean of the + values (ignoring the NANs) of a vector or matrix + <literal>val</literal>, each counted with a frequency signaled by the + corresponding values of the integer vector or matrix <literal>fre</literal> + with the same type of <literal>val</literal>. + </para> + <para> + For a vector or matrix <literal> val</literal>, + <literal> m=nanmeanf(val,fre)</literal> or <literal> m=nanmeanf(val,fre,'*')</literal> + returns in scalar <literal> m</literal> the mean of all the entries + (ignoring the NANs) of <literal> val</literal>, each value counted + with the multiplicity indicated by the corresponding value + of <literal> fre</literal>. + </para> + <para> + <literal>m=nanmeanf(val,fre,'r')</literal> (or, equivalently, + <literal>m=nanmeanf(val,fre,1)</literal> ) returns in each entry of the + row vector <literal> m</literal> of type 1xsize(val,'c') the mean of + each column of val (ignoring the NANs), each value counted + with the multiplicity indicated by the corresponding value + of <literal> fre</literal>. + </para> + <para> + <literal>m=nanmeanf(val,fre,'c')</literal> (or, equivalently, + <literal>m=nanmeanf(val,fre,2)</literal>) returns in each entry of the + column vector m of type size(val,'c')x1 the mean of each + row of val (ignoring the NANs), each value counted with + the multiplicity indicated by the corresponding value of + fre. + </para> + <para> + In Labostat, NAN values stand for missing values in tables. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 %nan 0.6653811;0.7560439 0.3303271 0.6283918] +fre=[34 12 25;12 23 5] +m=nanmeanf(x,fre) +m=nanmeanf(x,fre,1) +m=nanmeanf(x,fre,2) + ]]></programlisting> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/data_missing_values/nanmedian.xml b/modules/statistics/help/en_US/data_missing_values/nanmedian.xml new file mode 100755 index 000000000..a8a2472b2 --- /dev/null +++ b/modules/statistics/help/en_US/data_missing_values/nanmedian.xml @@ -0,0 +1,76 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="nanmedian"> + <refnamediv> + <refname>nanmedian</refname> + <refpurpose>median of the values of a numerical vector or matrix</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>m=nanmedian(x) + m=nanmedian(x,'r') (or m=nanmedian(x,1)) + m=nanmedian(x,'c') (or m=nanmedian(x,2)) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>real or complex vector or matrix</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + For a vector or a matrix <literal> x</literal>, + <literal>[m]=nanmedian(x)</literal> returns in the vector <literal> m</literal> the + median of the values (ignoring the NANs) of vector <literal>x</literal>. + </para> + <para> + <literal>[m]=nanmedian(x,'r')</literal> (or, equivalently, + <literal>[m]=nanmedian(x,1)</literal>) are the rowwise medians. It + returns in each position of the row vector <literal> m</literal> the + medians of data (ignoring the NANs) in the corresponding + column of <literal> x</literal>. + </para> + <para> + <literal>[m]=nanmedian(x,'c')</literal> (or, equivalently, + <literal>[m]=nanmedian(x,2)</literal>) are the columnwise medians. It + returns in each position of the column vector <literal> m</literal> the + medians of data (ignoring the NANs) in the corresponding + row of <literal> x</literal>. + </para> + <para> + In Labostat, NAN values stand for missing values in tables. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 %nan 0.6653811;0.7560439 0.3303271 0.6283918] +m=nanmedian(x) +m=nanmedian(x,1) +m=nanmedian(x,2) + ]]></programlisting> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/data_missing_values/nanmin.xml b/modules/statistics/help/en_US/data_missing_values/nanmin.xml new file mode 100755 index 000000000..d0a5fe1d0 --- /dev/null +++ b/modules/statistics/help/en_US/data_missing_values/nanmin.xml @@ -0,0 +1,88 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="nanmin"> + <refnamediv> + <refname>nanmin</refname> + <refpurpose>min (ignoring Nan's) </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>[m,index]=nanmin(x) + [m,index]=nanmin(x,'r') + [m,index]=nanmin(x,'c') + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>real or complex vector or matrix</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function gives for a real or a numerical matrix <literal>x</literal> + his largest element <literal> m</literal> (but ignoring the + NANs). + </para> + <para> + For <literal> x</literal>, a numerical vector or matrix, + <literal> m=nanmin(x) </literal> returns in scalar <literal> m</literal> the largest + element of <literal> x</literal> (ignoring the NANs). The form + <literal>[m,index] =nanmin(x,orient) </literal> gives in addition of the + value of the largest element of <literal> x</literal> (ignoring the + NANs) in scalar <literal> m</literal>, the index of this element in + <literal> x</literal>, as a 2-vector. + </para> + <para> + <literal>m=nanmin(x,'r') </literal> gives in the 1xsize(x,2) matrix + <literal>m</literal> the largest elements (ignoring the NANs) of each + column of <literal> x</literal>. If the form + <literal> [m,index]=nanmin(x,'r') </literal> is used, the elements of the + 1xsize(x,2) matrix index are the indexes of the largest + elements (ignoring the NANs) of each column of x in the + corresponding column. + </para> + <para> + m=nanmin(x,'c') gives in the size(x,2)x1 matrix m the + largest elements (ignoring the NANs) of each row of x. If + the form [m,index]=nanmin(x,'c') is used, the elements of + the size(x,2)x1 matrix index are the indexes of the + largest elements (ignoring the NANs) of each row of x in + the corresponding row. + </para> + <para> + In Labostat, NAN values stand for missing values in tables. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 %nan 0.6653811;0.7560439 0.3303271 0.6283918] +m=nanmin(x) +m=nanmin(x,'r') +m=nanmin(x,'c') + ]]></programlisting> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/data_missing_values/nanreglin.xml b/modules/statistics/help/en_US/data_missing_values/nanreglin.xml new file mode 100755 index 000000000..afb7a17eb --- /dev/null +++ b/modules/statistics/help/en_US/data_missing_values/nanreglin.xml @@ -0,0 +1,144 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2014 - Scilab Enterprises - Paul Bignier + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="nanreglin"> + <refnamediv> + <refname>nanreglin</refname> + <refpurpose>Linear regression</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>[a,b]=nanreglin(x,y)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x, y, a, b</term> + <listitem> + <para>numerical vectors or matrices.</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Solve the regression problem y=a*x+b in the least square sense. + <literal>x</literal> and <literal>y</literal> are two matrices of size + <literal>x(p,n)</literal> and <literal>y(q,n)</literal>, where <literal>n</literal> is the number of samples. + </para> + <para> + The estimator <literal>a</literal> is a matrix of size <literal>(q,p)</literal> and <literal>b</literal> is a + vector of size <literal>(q,1)</literal>. + </para> + <para> + Each line of <literal>y</literal> is treated as an independent problem, if <literal>x</literal> + or <literal>y</literal> contain a NaN (<literal>x(i,j) = %nan</literal> or <literal>y(i,j) = %nan</literal>), + then <literal>x(:,j)</literal> and <literal>y(i,j)</literal> are ignored, + as if the point [x(:,j); y(i,j)] did not exist. + </para> + </refsection> + <refsection> + <title>Examples</title> + <para> + Graphical example #1: + </para> + <programlisting role="example"><![CDATA[ +// In the following example, both problems represent two straight lines: +// one goes from (0,0) to (10,10) and the other one goes from (0,20) to (10,30). +// reglin and nanreglin find the same values because all the points are aligned and the NaNs have been ignored. +subplot(211) +x = 0:10; +y = 20:30; +[a1, b1] = reglin(x, [x ; y]); +plot(x', (a1*x+repmat(b1,1,11))', "red") + +subplot(212) +y2 = y; +y2(2:10) = %nan; // Leaving y2(1) and y2(11) unchanged. +[a2, b2] = nanreglin(x, [x ; y2]) +plot(x', (a2*x+repmat(b2,1,11))', "blue") + ]]></programlisting> + <scilab:image> + subplot(211) + x = 0:10; + y = 20:30; + [a1, b1] = reglin(x, [x ; y]); + plot(x', (a1*x+repmat(b1,1,11))', "red") + subplot(212) + y2 = y; + y2(2:10) = %nan; + [a2, b2] = nanreglin(x, [x ; y2]) + plot(x', (a2*x+repmat(b2,1,11))', "blue") + </scilab:image> + <para> + Graphical example #2: + </para> + <programlisting role="example"><![CDATA[ +// Now both problems represent one straight line (reglin(x, x)) from (0,0) to (2,2), +// but while the second argument of the first problem (reglin(x, y)) represents +// a flat line (with equation y = 1), the second argument of the second problem +// (reglin(x, y2)) ignores the central point of y (set to %nan) so the flat line +// now has equation y = 0, because the two remaining points are (0,0) and (2,0). +subplot(211) +x = 0:2; +y = [0 3 0]; +[a1, b1] = reglin(x, [x ; y]); +plot(x', (a1*x+repmat(b1,1,3))', "red") + +subplot(212) +y2 = y; +y2(2) = %nan; // y2 = [0 %nan 0]; +[a2, b2] = nanreglin(x, [x ; y2]); +plot(x', (a2*x+repmat(b2,1,3))', "blue") + ]]></programlisting> + <scilab:image> + subplot(211) + x = 0:2; + y = [0 3 0]; + [a1, b1] = reglin(x, [x ; y]); + plot(x', (a1*x+repmat(b1,1,3))', "red") + subplot(212) + y2 = y; + y2(2) = %nan; // y2 = [0 %nan 0]; + [a2, b2] = nanreglin(x, [x ; y2]); + plot(x', (a2*x+repmat(b2,1,3))', "blue") + </scilab:image> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="reglin">reglin</link> + </member> + <member> + <link linkend="pinv">pinv</link> + </member> + <member> + <link linkend="leastsq">leastsq</link> + </member> + <member> + <link linkend="qr">qr</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>History</title> + <revhistory> + <revision> + <revnumber>5.5.0</revnumber> + <revdescription>Introduction</revdescription> + </revision> + </revhistory> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/data_missing_values/nanstdev.xml b/modules/statistics/help/en_US/data_missing_values/nanstdev.xml new file mode 100755 index 000000000..9b8e588a2 --- /dev/null +++ b/modules/statistics/help/en_US/data_missing_values/nanstdev.xml @@ -0,0 +1,83 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="nanstdev"> + <refnamediv> + <refname>nanstdev</refname> + <refpurpose>standard deviation (ignoring the NANs). </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>s=nanstdev(x) + s=nanstdev(x,'r') or m=nanstdev(x,1) + s=nanstdev(x,'c') or m=nanstdev(x,2) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>real or complex vector or matrix</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function computes the standard deviation of the + values of a vector or matrix <literal> x</literal> (ignoring the + NANs). + </para> + <para> + For a vector or a matrix <literal> x</literal>, <literal> s=nanstdev(x)</literal> + returns in the scalar <literal> s</literal> the standard deviation + of all the entries of <literal>x</literal> (ignoring the NANs). + </para> + <para> + <literal>s=nanstdev(x,'r')</literal> (or, equivalently, + <literal> s=nanstdev(x,1) </literal>) is the rowwise standard deviation. + It returns in each entry of the row vector <literal> s</literal> the + standard deviation of each column of <literal> x</literal> (ignoring + the NANs). + </para> + <para> + <literal>s=nanstdev(x,'c')</literal> (or, equivalently, + <literal>s=nanstdev(x,2)</literal>) is the columnwise standard + deviation. It returns in each entry of the column vector + <literal>s</literal> the standard deviation of each row of <literal>x</literal> + (ignoring the NANs). + </para> + <para> + In Labostat, NAN values stand for missing values in tables. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 0.0002211 0.6653811; + 0.7560439 %nan 0.6283918; + 0.3 0.2 0.5 ]; +s=nanstdev(x) +s=nanstdev(x,'r') +s=nanstdev(x,'c') + ]]></programlisting> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/data_missing_values/nansum.xml b/modules/statistics/help/en_US/data_missing_values/nansum.xml new file mode 100755 index 000000000..ccb19a14b --- /dev/null +++ b/modules/statistics/help/en_US/data_missing_values/nansum.xml @@ -0,0 +1,97 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="nansum"> + <refnamediv> + <refname>nansum</refname> + <refpurpose>Sum of values ignoring NAN's</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>s = nansum(x,orient)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>numerical vector or matrix.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>orient</term> + <listitem> + <para>nothing or '*'. + 'r' or 1. + 'c' or 2. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>s</term> + <listitem> + <para>Numerical scalar or vector containing the value of the adding operation.</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function returns in s the sum of the values (ignoring + the NAN's) of a numerical vector or matrix x. + </para> + <para> + For a vector or matrix x, s=nansum(x) (or s=nansum(x,'*')) + returns in scalar s the sum of values of all entries + (ignoring the NAN's) of a vector or matrix x. + </para> + <para> + s=nansum(x,'r')(or, equivalently, s=nansum(x,1)) returns + in each entry of the row vector s of type 1xsize(x,'c') + the sum of each column of x (ignoring the NANs). + </para> + <para> + s=nansum(x,'c')(or, equivalently, s=nansum(x,2)) returns + in each entry of the column vector s of type size(x,'c')x1 + the sum of each row of x (ignoring the NANs). + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 %nan 0.6653811;0.7560439 0.3303271 0.6283918] +m=nansum(x) +m=nansum(x,1) +m=nansum(x,2) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="nancumsum">nancumsum</link> + </member> + <member> + <link linkend="sum">sum</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + Wonacott, T.H. and Wonacott, R.J.; Introductory Statistics, + 5th edition, J.Wiley and Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/data_missing_values/thrownan.xml b/modules/statistics/help/en_US/data_missing_values/thrownan.xml new file mode 100755 index 000000000..68a6218cd --- /dev/null +++ b/modules/statistics/help/en_US/data_missing_values/thrownan.xml @@ -0,0 +1,73 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * Copyright (C) 2010 - DIGITEO - Michael Baudin + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="thrownan"> + <refnamediv> + <refname>thrownan</refname> + <refpurpose>Eliminates nan values</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>[nonan,numb]=thrownan(x)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para> + a m-by-n real or complex matrix of doubles. + If the number of columns in <literal>x</literal> is different from 1, + then the column-by-column matrix <literal>x</literal> is considered. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>nonan</term> + <listitem> + <para> + a (m*n)-by-1 real or complex matrix of doubles, without any %nan entries. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>numb</term> + <listitem> + <para> + a (m*n)-by-1 real or complex matrix of floating point integers, the + indices <literal>k</literal> in <literal>x</literal> where <literal>x(k)</literal> + is non-nan. + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function returns in vector <literal>nonan</literal> the values + (ignoring the <literal>%nan</literal> entries) of a matrix <literal>x</literal> and + in the corresponding places of vector <literal>numb</literal> the + indexes of the value. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 %nan 0.6653811;0.7560439 0.3303271 0.6283918] +[nonan numb]=thrownan(x) +and(x(numb)==nonan) // Must be %t + ]]></programlisting> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/descriptive_statistics/CHAPTER b/modules/statistics/help/en_US/descriptive_statistics/CHAPTER new file mode 100755 index 000000000..60fd56c73 --- /dev/null +++ b/modules/statistics/help/en_US/descriptive_statistics/CHAPTER @@ -0,0 +1,2 @@ +title = Descriptive Statistics + diff --git a/modules/statistics/help/en_US/descriptive_statistics/center.xml b/modules/statistics/help/en_US/descriptive_statistics/center.xml new file mode 100755 index 000000000..a1c362d58 --- /dev/null +++ b/modules/statistics/help/en_US/descriptive_statistics/center.xml @@ -0,0 +1,79 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="center"> + <refnamediv> + <refname>center</refname> + <refpurpose>center</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>s=center(x) + s=center(x,'r') or s=center(x,1) + s=center(x,'c') or s=center(x,2) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term> </term> + <listitem> + <para>x: real or complex vector or matrix</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + + This function computes <literal>s</literal>, the centred version of + the numerical matrix <literal>x</literal>. + + For a vector or a matrix <literal>x</literal>, <literal>s=center(x)</literal> + returns in the <literal>(i,j)</literal> coefficient of the matrix <literal>s</literal> + the value <literal>(x(i,j)-xbar)</literal>, where <literal> xbar</literal> is + the mean of the values of the coefficients of <literal>x</literal>. + + <literal>s=center(x,'r')</literal> (or, equivalently, + <literal>s=center(x,1)</literal>) is the rowwise center reduction of the + values of <literal>x</literal>. It returns in the entry <literal> s(i,j)</literal> + the value <literal>(x(i,j)-xbarv(j))(j)</literal> with <literal>xbarv(j)</literal> + the mean of the values of the <literal>j</literal> column. + + <literal>s=center(x,'c')</literal> (or, equivalently, + <literal>s=center(x,2)</literal>) is the columnwise center reduction of + the values of <literal>x</literal>. It returns in the entry + <literal>s(i,j)</literal> the value <literal>(x(i,j)-xbarh(i)))</literal> with + <literal>xbarh(i)</literal> the mean of the values of the <literal>i</literal> row. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 0.0002211 0.6653811; + 0.7560439 0.3303271 0.6283918] +s=center(x) +s=center(x,'r') +s=center(x,'c') + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="wcenter">wcenter</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/descriptive_statistics/correl.xml b/modules/statistics/help/en_US/descriptive_statistics/correl.xml new file mode 100755 index 000000000..2f2894184 --- /dev/null +++ b/modules/statistics/help/en_US/descriptive_statistics/correl.xml @@ -0,0 +1,100 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="correl"> + <refnamediv> + <refname>correl</refname> + <refpurpose>correlation of two variables</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>rho=correl(x, y [, fre])</synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>real or complex vector.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>y</term> + <listitem> + <para>real or complex vector.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>fre</term> + <listitem> + <para>matrix of type length(x) x length(y). (Optional)</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + <literal>correl(x,y)</literal> or <literal>correl(x,y, fre)</literal> computes the + correlation of two variables <literal>x</literal> and <literal>y</literal>. + </para> + <para> + If you use correl(x,y), <literal>x</literal> and <literal>y</literal> must be the same + size (size(x, "*") must be equal to size(y, "*")). + </para> + <para> + <literal>fre</literal> is a matrix of dimensions length(x) x length(y). In + <literal>fre</literal>, the element of indices (i,j) corresponds to the value or + number or frequencies of x_i&y_j. + </para> + </refsection> + <refsection> + <title>References</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, J.Wiley & Sons, 1990. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ + // correl(x, y) + x = [2.5 7.5 12.5 17.5]; + y = [6.3 7.1 8.2 9.4]; + r = correl(x, y) + + // correl(x, y, fre) + h=[0 1 2] + fre=[.03 .12 .07;.02 .13 .11;.01 .13 .14;.01 .09 .14] + rho=correl(x,h,fre) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="covar">covar</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>History</title> + <revhistory> + <revision> + <revnumber>5.5.0</revnumber> + <revremark> + Third input argument is now optional. + </revremark> + </revision> + </revhistory> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/descriptive_statistics/cov.xml b/modules/statistics/help/en_US/descriptive_statistics/cov.xml new file mode 100755 index 000000000..830054b51 --- /dev/null +++ b/modules/statistics/help/en_US/descriptive_statistics/cov.xml @@ -0,0 +1,167 @@ +<?xml version="1.0" encoding="UTF-8"?> + +<!-- + * + * Copyright (C) 2012-2013 - Michael Baudin + * Copyright (C) 2009-2010 - DIGITEO - Michael Baudin + * Copyright (C) 1993 - 1995 - Anders Holtsberg + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> + +<refentry version="5.0-subset Scilab" xml:id="cov" xml:lang="en" + xmlns="http://docbook.org/ns/docbook" + xmlns:xlink="http://www.w3.org/1999/xlink" + xmlns:svg="http://www.w3.org/2000/svg" + xmlns:ns3="http://www.w3.org/1999/xhtml" + xmlns:mml="http://www.w3.org/1998/Math/MathML" + xmlns:scilab="http://www.scilab.org" + xmlns:db="http://docbook.org/ns/docbook"> + <refnamediv> + <refname>cov</refname> + <refpurpose>Covariance matrix</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis> + C = cov(x) + C = cov(x, 0) + C = cov(x, 1) + C = cov(x, y) + C = cov(x, y, 0) + C = cov(x, y, 1) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Parameters</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para> a nobs-by-1 or nobs-by-nvar matrix of doubles</para> + </listitem> + </varlistentry> + <varlistentry> + <term>y</term> + <listitem> + <para> a nobs-by-1 or nobs-by-nvar matrix of doubles</para> + </listitem> + </varlistentry> + <varlistentry> + <term>C</term> + <listitem> + <para> a square matrix of doubles, the empirical covariance</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + If x is a nobs-by-1 matrix, + then <literal>cov(x)</literal> returns the variance of x, + normalized by nobs-1. + </para> + <para> + If x is a nobs-by-nvar matrix, + then <literal>cov(x)</literal> returns the nvar-by-nvar covariance matrix of the + columns of x, normalized by nobs-1. + Here, each column of x is a variable and + each row of x is an observation. + </para> + <para> + If x and y are two nobs-by-1 matrices, + then <literal>cov(x, y)</literal> returns the 2-by-2 covariance matrix of x and + y, normalized by nobs-1, where nobs is the number of observations. + </para> + <para> + <literal>cov(x, 0)</literal> is the same as <literal>cov(x)</literal> and + <literal>cov(x, y, 0)</literal> is the same as <literal>cov(x, y)</literal>. + In this case, if the population is from a normal distribution, + then C is the best unbiased estimate of the covariance matrix. + </para> + <para> + <literal>cov(x, 1)</literal> and <literal>cov(x, y, 1)</literal> normalize by nobs. + In this case, C is the second moment matrix of the + observations about their mean. + </para> + <para> + The covariance of X and Y is defined by: + </para> + <para> + <latex> + Cov(X, Y) = E( (X-E(X)) (Y-E(Y))^T ) + </latex> + </para> + <para> + where E is the expectation. + </para> + <para> + This function is compatible with Matlab. + </para> + <para> + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x = [1; 2]; +y = [3; 4]; +C = cov(x, y) +expected = [0.5, 0.5; 0.5, 0.5]; +C = cov([x, y]) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +x = [230; 181; 165; 150; 97; 192; 181; 189; 172; 170]; +y = [125; 99; 97; 115; 120; 100; 80; 90; 95; 125]; +expected = [ +1152.4556, -88.911111 +-88.911111, 244.26667 +]; +C = cov(x, y) +C = cov([x, y]) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// Source [3] +A = [ +4.0 2.0 0.60 +4.2 2.1 0.59 +3.9 2.0 0.58 +4.3 2.1 0.62 +4.1 2.2 0.63 +]; +S = [ +0.025 0.0075 0.00175 +0.0075 0.007 0.00135 +0.00175 0.00135 0.00043 +]; +C = cov(A) + ]]></programlisting> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + <ulink url="http://en.wikipedia.org/wiki/Covariance_matrix">Wikipedia: Covariance matrix</ulink> + </para> + <para> + [3] <ulink url="http://www.itl.nist.gov/div898/handbook/pmc/section5/pmc541.htm">NIST/SEMATECH e-Handbook of Statistical Methods, 6.5.4.1. Mean Vector and Covariance Matrix</ulink> + </para> + <para> + "Introduction to probability and statistics for engineers and scientists", Sheldon Ross + </para> + </refsection> + <refsection> + <title>History</title> + <revhistory> + <revision> + <revnumber>5.5.0</revnumber> + <revdescription>cov function added, to improve mvvacov (deprecated)</revdescription> + </revision> + </revhistory> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/descriptive_statistics/covar.xml b/modules/statistics/help/en_US/descriptive_statistics/covar.xml new file mode 100755 index 000000000..7959dd43c --- /dev/null +++ b/modules/statistics/help/en_US/descriptive_statistics/covar.xml @@ -0,0 +1,72 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="covar"> + <refnamediv> + <refname>covar</refname> + <refpurpose>covariance of two variables</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>s=covar(x,y,fre)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>real or complex vector</para> + </listitem> + </varlistentry> + <varlistentry> + <term>y</term> + <listitem> + <para>real or complex vector</para> + </listitem> + </varlistentry> + <varlistentry> + <term>fre</term> + <listitem> + <para>matrix of type length(x) x length(y)</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + <literal>covar(x,y,fre)</literal> computes the covariance of two variables x and y. + fre is a matrix of dimensions length(x) x length(y). In fre the element + of indices (i,j) corresponds to the value or number or frequencies of + x_i&y_j. + </para> + </refsection> + <refsection> + <title>References</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, J.Wiley & Sons, 1990. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x=[10 20 30 40] +y=[10 20 30 40] +fre=[.20 .04 .01 0; + .10 .36 .09 0; + 0 .05 .10 0; + 0 0 0 .05] +s=covar(x,y,fre) + ]]></programlisting> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/descriptive_statistics/histc.xml b/modules/statistics/help/en_US/descriptive_statistics/histc.xml new file mode 100755 index 000000000..88383d0d1 --- /dev/null +++ b/modules/statistics/help/en_US/descriptive_statistics/histc.xml @@ -0,0 +1,228 @@ +<?xml version='1.0' encoding='UTF-8'?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2013 - Scilab Enterprises - Paul Bignier + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --><!-- This document was created with Syntext Serna Free. --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="histc"> + <refnamediv> + <refname>histc</refname> + <refpurpose>computes an histogram</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis> + [cf, ind] = histc(n, data [,normalization]) + [cf, ind] = histc(x, data [,normalization]) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>n</term> + <listitem> + <para>positive integer (number of classes)</para> + </listitem> + </varlistentry> + <varlistentry> + <term>x</term> + <listitem> + <para> + increasing vector defining the classes (<literal>x</literal> may have at least 2 components) + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>data</term> + <listitem> + <para> + vector (data to be analysed) + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>cf</term> + <listitem> + <para> + vector representing the number of values of <varname>data</varname> + falling in the classes defined by <varname>n</varname> or <varname>x</varname> + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>ind</term> + <listitem> + <para> + vector or matrix of same size as <varname>data</varname>, + representing the repective belonging of each element of data <varname>data</varname> + to the classes defined by <varname>n</varname> or <varname>x</varname> + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>normalization</term> + <listitem> + <para> + scalar boolean. + <varname>normalization=%f (default)</varname>: <varname>cf</varname> represents the total number of points in each class, + <varname>normalization=%t</varname>: <varname>cf</varname> represents the number of points in each class, relatively to the total number of points + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function computes a histogram of the <literal>data</literal> vector using the + classes <literal>x</literal>. When the number <literal>n</literal> of classes is provided + instead of <literal>x</literal>, the classes are chosen equally spaced and + <emphasis>x(1) = min(data) < x(2) = x(1) + dx < ... < x(n+1) = max(data)</emphasis> + with <emphasis>dx = (x(n+1)-x(1))/n</emphasis>. + </para> + <para> + The classes are defined by <literal>C1 = [x(1), x(2)]</literal> and <literal>Ci = ( x(i), x(i+1)]</literal> for i >= 2. + Noting <literal>Nmax</literal> the total number of <literal>data</literal> (Nmax = length(data)) + and <literal>Ni</literal> the number of <literal>data</literal> components falling in + <literal>Ci</literal>, the value of the histogram for <literal>x</literal> in + <literal>Ci</literal> is equal to <emphasis>Ni/(Nmax (x(i+1)-x(i)))</emphasis> when + <literal>"normalized"</literal> is selected and else, simply equal to <emphasis>Ni</emphasis>. + When normalization occurs the histogram verifies: + </para> + <para> + <latex style="display"><![CDATA[ \int_{x(1)}^{x(n+1)}h(x)\,\mathrm{d}x=1 ]]></latex> + </para> + <para> + when <emphasis>x(1)<=min(data)</emphasis> and <emphasis>max(data) <= x(n+1)</emphasis> + </para> + </refsection> + <refsection> + <title>Examples</title> + <simplelist> + <member> Example #1: variations around a histogram of a gaussian random sample + <programlisting role="example"><![CDATA[ +// The gaussian random sample +d = rand(1, 10000, 'normal'); + +[cf, ind] = histc(20, d, normalization=%f) +// We use histplot to show a graphic representation +clf(); histplot(20, d, normalization=%f); + +[cf, ind] = histc(20, d) +clf(); histplot(20, d); +]]></programlisting> + <scilab:image> + d = rand(1, 10000, 'normal'); + [cf, ind] = histc(20, d) + clf(); histplot(20, d); + </scilab:image> + </member> + <member> + Example #2: histogram of a binomial (B(6,0.5)) random sample + <programlisting role="example"><![CDATA[ +d = grand(1000,1,"bin", 6, 0.5); +c = linspace(-0.5,6.5,8); +clf() +subplot(2,1,1) +[cf, ind] = histc(c, d) +histplot(c, d, style=2); +xtitle("Normalized histogram") +subplot(2,1,2) +[cf, ind] = histc(c, d, normalization=%f) +histplot(c, d, normalization=%f, style=5); +xtitle("Non normalized histogram") +]]></programlisting> + <scilab:image localized="true"> + d = grand(1000,1,"bin", 6, 0.5); + c = linspace(-0.5,6.5,8); + clf() + subplot(2,1,1) + [cf, ind] = histc(c, d) + histplot(c, d, style=2); + xtitle("Normalized histogram") + subplot(2,1,2) + [cf, ind] = histc(c, d, normalization=%f) + histplot(c, d, normalization=%f, style=5); + xtitle("Non normalized histogram") + </scilab:image> + </member> + <member> + Example #3: histogram of an exponential random sample + <programlisting role="example"><![CDATA[ +lambda = 2; +X = grand(100000,1,"exp", 1/lambda); +Xmax = max(X); +[cf, ind] = histc(40, X) +clf() +histplot(40, X, style=2); +x = linspace(0, max(Xmax), 100)'; +plot2d(x, lambda*exp(-lambda*x), strf="000", style=5) +legend(["exponential random sample histogram" "exact density curve"]); +]]></programlisting> + <scilab:image localized="true"> + lambda = 2; + X = grand(100000,1,"exp", 1/lambda); + Xmax = max(X); + [cf, ind] = histc(40, X) + clf() + histplot(40, X, style=2); + x = linspace(0, max(Xmax), 100)'; + plot2d(x, lambda*exp(-lambda*x), strf="000", style=5) + legend(["exponential random sample histogram" "exact density curve"]); + </scilab:image> + </member> + <member> + Example #4: the frequency polygon chart and the histogram of a gaussian random sample + <programlisting role="example"><![CDATA[ +n = 10; +data = rand(1, 1000, "normal"); +[cf, ind] = histc(n, data) +clf(); histplot(n, data, style=12, polygon=%t); +legend(["normalized histogram" "frequency polygon chart"]); +]]></programlisting> + <scilab:image localized="true"> + n = 10; + data = rand(1, 1000, "normal"); + [cf, ind] = histc(n, data) + clf(); histplot(n, data, style=12, polygon=%t); + legend(["normalized histogram" "frequency polygon chart"]); + </scilab:image> + </member> + </simplelist> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="histplot">histplot</link> + </member> + <member> + <link linkend="hist3d">hist3d</link> + </member> + <member> + <link linkend="plot2d">plot2d</link> + </member> + <member> + <link linkend="dsearch">dsearch</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>History</title> + <revhistory> + <revision> + <revnumber>5.5.0</revnumber> + <revdescription> + Introduction + </revdescription> + </revision> + </revhistory> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/descriptive_statistics/median.xml b/modules/statistics/help/en_US/descriptive_statistics/median.xml new file mode 100755 index 000000000..9617edb09 --- /dev/null +++ b/modules/statistics/help/en_US/descriptive_statistics/median.xml @@ -0,0 +1,111 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="median"> + <refnamediv> + <refname>median</refname> + <refpurpose>median (row median, column median,...) of + vector/matrix/array entries + </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>y=median(x) + y=median(x,'r') + y=median(x,'c') + y=median(x,'m') + y=median(x,dim) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>real vector, matrix or an array</para> + </listitem> + </varlistentry> + <varlistentry> + <term>y</term> + <listitem> + <para>scalar,vector, matrix or an array</para> + </listitem> + </varlistentry> + <varlistentry> + <term>dim</term> + <listitem> + <para>positive integer</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + For a vector or a matrix <literal>x</literal>, <literal>y=median(x)</literal> + returns in the scalar <literal>y</literal> the median of all the entries of + <literal>x</literal>. + </para> + <para> + <literal>y=median(x,'r')</literal> (or, equivalently, + <literal>y=median(x,1)</literal>) is the median along the row index. It returns + in each entry of the column vector <literal>y</literal> the median of each + column of <literal>x</literal>. + </para> + <para> + <literal>y=median(x,'c')</literal> (or, equivalently, + <literal>y=median(x,2)</literal>) is the median along the column index. It + returns in each entry of the row vector <literal>y</literal> the median of each + row of <literal>x</literal>. + </para> + <para> + <literal>y=median(x,'m')</literal> is the median along the first non + singleton dimension of <literal>x</literal> (for compatibility with matlab). + </para> + <para> + <literal>y=median(x,dim)</literal> is the median along the dimension + <literal>dim</literal> of <literal>x</literal> (for compatibility with matlab). + </para> + </refsection> + <refsection> + <title>Remark</title> + <para> + <note> + If <varname>x</varname> has some NANs terms, the result will be the same if these terms were Inf. + </note> + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +A=[1,2,10;7,7.1,7.01]; +median(A) +median(A,'r') +median(A,'c') +A=matrix([-9 3 -8 6 74 39 12 -6 -89 23 65 34],[2,3,2]); +median(A,3) +median(A,'m') + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="sum">sum</link> + </member> + <member> + <link linkend="mean">mean</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/descriptive_statistics/mvvacov.xml b/modules/statistics/help/en_US/descriptive_statistics/mvvacov.xml new file mode 100755 index 000000000..dbe851b01 --- /dev/null +++ b/modules/statistics/help/en_US/descriptive_statistics/mvvacov.xml @@ -0,0 +1,75 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="mvvacov"> + <refnamediv> + <refname>mvvacov (deprecated)</refname> + <refpurpose> + computes variance-covariance matrix <emphasis role="bold">This function is obsolete.</emphasis> + </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>v=mvvacov(x)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>real or complex vector or matrix</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function computes v, the matrix of + variance-covariance of the "tableau" x (x is a + numerical matrix nxp) who gives the values of p + variables for n individuals: the (i,j) coefficient of v + is v(i,j)=E(xi-xibar)(xj-xjbar), where E is the first + moment of a variable, xi is the i-th variable and xibar + the mean of the xi variable. + </para> + <para> + WARNING: This function has been replaced by <link linkend="cov">cov</link>. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 0.0002211 0.6653811;0.7560439 0.4453586 0.6283918] +v=mvvacov(x) + ]]></programlisting> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + Saporta, Gilbert, Probabilites, Analyse des Donnees et Statistique, Editions Technip, Paris, 1990. Mardia, K.V., Kent, J.T. & Bibby, J.M., Multivariate Analysis, Academic Press, 1979. + </para> + </refsection> + <refsection> + <title>History</title> + <revhistory> + <revision> + <revnumber>5.5.0</revnumber> + <revdescription> + Function tagged obsolete. Will be removed in 6.0.0. + See the <link linkend="cov">cov</link> function. + </revdescription> + </revision> + </revhistory> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/descriptive_statistics/stdev.xml b/modules/statistics/help/en_US/descriptive_statistics/stdev.xml new file mode 100755 index 000000000..f5f1ec3bd --- /dev/null +++ b/modules/statistics/help/en_US/descriptive_statistics/stdev.xml @@ -0,0 +1,134 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2013 - Scilab Enterprises - Paul Bignier: added mean squared deviation + * (third input argument) + * Copyright (C) 2000 - INRIA - + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="stdev"> + <refnamediv> + <refname>stdev</refname> + <refpurpose> + standard deviation (row orcolumn-wise) of vector/matrix entries + </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis> + y = stdev(x) + y = stdev(x, '*') + y = stdev(x, 'r') + y = stdev(x, 'c') + y = stdev(x, orien, m) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x, y</term> + <listitem> + <para>real vector, matrix or hypermatrix</para> + </listitem> + </varlistentry> + <varlistentry> + <term>y</term> + <listitem> + <para>real scalar, vector or matrix</para> + </listitem> + </varlistentry> + <varlistentry> + <term>orien</term> + <listitem> + <para> + string scalar or positive integer, can be <literal>"*"</literal>, <literal>"r"</literal> (or <literal>1</literal>) or <literal>"c"</literal> (or <literal>2</literal>) + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>m</term> + <listitem> + <para>real scalar, vector or hypermatrix, the a priori mean</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + stdev computes the "sample" standard deviation, that + is, it is normalized by N-1, where N is the sequence length. + If <varname>m</varname> is present, then <code>stdev</code> computes the + mean squared deviation (normalized by N) using the a priori mean defined by <varname>m</varname>. + </para> + <para> + For a vector or a matrix <literal>x</literal>, <literal>y=stdev(x)</literal> returns in the + scalar <literal>y</literal> the standard deviation of all the entries of <literal>x</literal>. + </para> + <para> + <literal>y=stdev(x,'r')</literal> (or, equivalently, + <literal>y=stdev(x,1)</literal>) is the rowwise standard deviation. It returns in each + entry of the row vector <literal>y</literal> the standard deviation of each column of <literal>x</literal>. + </para> + <para> + <literal>y=stdev(x,'c')</literal> (or, equivalently, <literal>y=stdev(x,2)</literal>) is the columnwise stdev. It returns in each + entry of the column vector <literal>y</literal> the standard deviation of each row of <literal>x</literal>. + </para> + <para> + By extension, <literal>y=stdev(x,n)</literal> with <literal>n</literal> a positive integer returns the deviation + along the <literal>n</literal>-th dimension, and if <literal>n>ndims(x)</literal>, then <literal>stdev(x,n)</literal> returns <literal>zeros(x)</literal>. + </para> + <note> + If <varname>m</varname> is a scalar, then it is expanded to match the size of <code>mean(x)</code> along the <literal>n</literal>-th dimension. + </note> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +A = [1 2 10; 7 7.1 7.01]; +stdev(A) +stdev(A, 'r') +stdev(A, 'c') +stdev(A, 'c', mean(A,'c')) +stdev(A, 'c', 1) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="nanstdev">nanstdev</link> + </member> + <member> + <link linkend="stdevf">stdevf</link> + </member> + <member> + <link linkend="sum">sum</link> + </member> + <member> + <link linkend="median">median</link> + </member> + <member> + <link linkend="mean">mean</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>History</title> + <revhistory> + <revision> + <revnumber>5.5.0</revnumber> + <revdescription> + Can now compute the mean squared deviation using the a priori mean defined by <varname>m</varname> + </revdescription> + </revision> + </revhistory> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/descriptive_statistics/stdevf.xml b/modules/statistics/help/en_US/descriptive_statistics/stdevf.xml new file mode 100755 index 000000000..c8694820d --- /dev/null +++ b/modules/statistics/help/en_US/descriptive_statistics/stdevf.xml @@ -0,0 +1,91 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="stdevf"> + <refnamediv> + <refname>stdevf</refname> + <refpurpose>standard deviation</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>s=stdevf(x,fre) + s=stdevf(x,fre,'r') or s=stdevf(x,fre,1) + s=stdevf(x,fre,'c') or s=stdevf(x,fre,2) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>real or complex vector or matrix</para> + </listitem> + </varlistentry> + <varlistentry> + <term>fre</term> + <listitem> + <para>real or complex vector or matrix</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function computes the standard deviation of the + values of a vector or matrix <literal> x</literal>, each of them + counted with a frequency given by the corresponding + values of the integer vector or matrix <literal> fre</literal> who + has the same type of <literal> x</literal>. + </para> + <para> + For a vector or matrix <literal> x</literal>, s=stdevf(x,fre) (or + <literal> s=stdevf(x,fre,'*') </literal> returns in scalar <literal> s</literal> + the standard deviation of all the entries of <literal> x</literal>, + each value counted with the multiplicity indicated by + the corresponding value of <literal> fre</literal>. + </para> + <para> + <literal>s=stdevf(x,fre,'r')</literal> (or, equivalently, + <literal>s=stdevf(x,fre,1)</literal>) returns in each entry of the row + vector <literal> s</literal> of type 1xsize(x,'c') the standard + deviation of each column of <literal> x</literal>, each value counted + with the multiplicity indicated by the corresponding + value of <literal> fre</literal>. + </para> + <para> + <literal>s=stdevf(x,fre,'c')</literal> (or, equivalently, + <literal> s=stdevf(x,fre,2)</literal>) returns in each entry of the + column vector <literal> s</literal> of type size(x,'c')x1 the + standard deviation of each row of <literal> x</literal>, each value + counted with the multiplicity indicated by the + corresponding value of <literal> fre</literal>. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 0.0002211 0.6653811;0.7560439 0.9546254 0.6283918] +fre=[1 2 3;3 4 3] +m=stdevf(x,fre) +m=stdevf(x,fre,'r') +m=stdevf(x,fre,'c') + ]]></programlisting> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/descriptive_statistics/variance.xml b/modules/statistics/help/en_US/descriptive_statistics/variance.xml new file mode 100755 index 000000000..f51b55b17 --- /dev/null +++ b/modules/statistics/help/en_US/descriptive_statistics/variance.xml @@ -0,0 +1,227 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2013 - Samuel GOUGEON + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="variance"> + <refnamediv> + <refname>variance</refname> + <refpurpose>variance (and mean) of a vector or matrix (or hypermatrix) of real or complex numbers</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis> + [s [,mc]] = variance(x [,orien [,m]]) + + [s, mc] = variance(x) + [s, mc] = variance(x, "r"|1 ) + [s, mc] = variance(x, "c"|2 ) + [s, mc] = variance(x, "*" , %nan) + [s, mc] = variance(x, "r"|1, %nan) + [s, mc] = variance(x, "c"|2, %nan) + s = variance(x, "*", m) + s = variance(x, "r"|1, m) + s = variance(x, "c"|2, m) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para> + real or complex vector or matrix. A hypermatrix is accepted only for undirectional computations <literal>variance(x)</literal> or <literal>variance(x,"*",m)</literal> + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>orien</term> + <listitem> + <para>the orientation of the computation. Valid values are + <itemizedlist> + <listitem>1 or "r": result is a row, after a column-wise computation.</listitem> + <listitem>2 or "c": result is a column, after a row-wise computation.</listitem> + <listitem> + "*": full undirectional computation (default); explicitly required when <varname>m</varname> is used. + </listitem> + </itemizedlist> + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>m</term> + <listitem> + <para> + The known mean of the underlying statistical distribution law (assuming that it is known). + <itemizedlist> + <listitem> + "*" mode (default): <varname>m</varname> must be scalar + </listitem> + <listitem> + "r" or 1 mode: <varname>m</varname> is a row of length <literal>size(x,2)</literal>. The variance along the column #j is computed using <literal>m(j)</literal> as the mean for the considered column. If <literal>m(j)</literal> is the same for all columns, it can be provided as a scalar <varname>m</varname>. + </listitem> + <listitem> + "c" or 2 mode: <varname>m</varname> is a column of length <literal>size(x,1)</literal>. The variance along the row #i is computed using <literal>m(i)</literal> as the mean for the considered row. If <literal>m(i)</literal> is the same for all rows, it can be provided as a scalar <varname>m</varname>. + </listitem> + </itemizedlist> + </para> + <para> + When <varname>m</varname> is not provided, the <literal>variance</literal> is built dividing the quadratic distance of <literal>n</literal> values to <literal>mean(x)</literal> (or <literal>mean(x,"c")</literal> or <literal>mean(x,"r")</literal>) by <literal>n-1</literal> (<literal>n</literal> being <literal>length(x)</literal> or <literal>size(x,1)</literal> or <literal>size(x,2)</literal>). If the elements of <varname>x</varname> are mutually independent, the result is then statistically unbiased. + </para> + <para> + Else, the <literal>variance</literal> is built dividing the quadratic distance of values to <varname>m</varname> by the number n of considered values (n being length(x) or size(x,1) or size(x,2)). + </para> + <para> + If a true value <varname>m</varname> independent from x elements is used, <varname>x</varname> and <varname>m</varname> values are mutually independent, and the result is then unbiased. + </para> + <para> + When the special value <literal>m = %nan</literal> is provided, the variance is still normalized by n (not n-1) but is computed using + <literal>m=mean(x)</literal> instead (or <literal>m = mean(x,"c")</literal> or <literal>m = mean(x,"r")</literal>). This <varname>m</varname> does not bring independent information, and yields a statistically biased result. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>s</term> + <listitem> + The variance of unweighted values of <varname>x</varname> elements. It is a scalar or a column vector or a row vector according to <varname>orien</varname>. + </listitem> + </varlistentry> + <varlistentry> + <term>mc</term> + <listitem> + Scalar or <varname>orien</varname>-wise mean of <varname>x</varname> elements (unweighted) (<literal>= mean(x,..)</literal>), as computed before and used as reference in the variance. + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function computes the variance of the real or complex numbers stored into a vector or matrix <varname>x</varname>. If <varname>x</varname> is complex, <literal>variance(x,..) = variance(real(x),..) + variance(imag(x),..)</literal> is returned. + </para> + <para> + For a vector, a matrix, or a hypermatrix <varname>x</varname>, <code>s = variance(x)</code> + returns in the scalar <varname>s</varname> the variance of all the entries of <varname>x</varname>. + </para> + <para> + <code>s = variance(x,"c")</code> (or, equivalently, <code>s = variance(x,2)</code>) + is the columnwise variance: <varname>s</varname> is a column vector, with <code>s(j) = variance(x(j,:))</code>. + </para> + <para> + <code>s = variance(x,"r")</code> (or, equivalently, <code>s = variance(x,1)</code>) + is the rowwise variance: <varname>s</varname> is a row vector, with <code>s(i) = variance(x(:,i))</code>. + </para> + <para> + The second output argument <varname>m</varname> is the mean of the input, with respect to the <varname>orien</varname> parameter. + </para> + <para> + <warning> + The <literal>variance(x, "*"|"c"|"r", 1)</literal> synopsis used only in Scilab 5.4.1 must be replaced with + <literal>variance(x, "*"|"c"|"r", %nan)</literal>. <literal>variance(x, "*"|"c"|"r", 1)</literal> will warn + the user until Scilab 6.0. Indeed, <literal>1</literal> will be now considered as <literal>m=1</literal>. + If <literal>1</literal> is the true value provided as <varname>m</varname>, the warning may be avoided entering <literal>1+%eps</literal> instead + of <literal>1</literal>. + </warning> + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x = [ 0.2113249 0.0002211 0.6653811; 0.7560439 0.4453586 0.6283918 ] +s = variance(x) +s = variance(x, "r") +s = variance(x, "c") + +// The underlying statistical distribution and its mean are known: +x = grand(100, 5, "unf", 0, 7); // Uniform distribution on [0, 7] +// => the true asymptotic mean is (0+7)/2 = 3.5 and variance = (7-0)^2/12 +(7-0)^2/12 // True asymptotic variance +s = variance(x) // Unbiased (division by n-1). +s = variance(x, "*", 3.5) // Unbiased (division by n). Always >= variance(x) +s = variance(x, "*", %nan) // Biased (division by n). Always <= variance(x) +// Across columns: +s = variance(x, "c") +s = variance(x, "c", 3.5) +s = variance(x, "c", %nan) + +// With complex numbers uniformly distributed on [0,1] + [0,1].i: +x = rand(4, 3) + rand(4, 3)*%i +s = variance(x) +s = variance(x, "*", 0.5 + 0.5*%i) +s = variance(x, "*", %nan) +s = variance(x, "r") +s = variance(x, "c") + +// With a hypermatrix +x = rand(3, 2, 2) // Uniform distribution on [0, 1] +s = variance(x) +s = variance(x, "*", 0.5) +s = variance(x, "*", %nan) +// s = variance(x, "r") // Is not supported for a hypermatrix +// s = variance(x, "c") // Is not supported for a hypermatrix + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="variancef">variancef</link> + </member> + <member> + <link linkend="mtlb_var">mtlb_var</link> + </member> + <member> + <link linkend="stdev">stdev</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> + <refsection> + <title>History</title> + <revhistory> + <revision> + <revnumber>5.5.0</revnumber> + <revdescription> + <itemizedlist> + <listitem> + <para>variance(x, orien, 0|1) removed (as introduced in Scilab 5.4.1)</para> + </listitem> + <listitem> + <para>variance(x, orien, m) introduced: the true mean m of the underlying statistical law can be used.</para> + </listitem> + <listitem> + <para>variance(x, orien, %nan) introduced: mean(x,..) is used but divided by n values (instead of n-1)</para> + </listitem> + <listitem> + <para>[s, mc] = variance(x,..) introduced: the mean mc computed from x is now also returned</para> + </listitem> + </itemizedlist> + </revdescription> + </revision> + <revision> + <revnumber>5.4.1</revnumber> + <revdescription> + <itemizedlist> + <listitem> + <para>variance(complexes) fixed. variance(x,"*",1) introduced. Vectorization of the code for directional usages variance(x,"r"|"c"). Full revision of the help page</para> + </listitem> + </itemizedlist> + </revdescription> + </revision> + </revhistory> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/descriptive_statistics/variancef.xml b/modules/statistics/help/en_US/descriptive_statistics/variancef.xml new file mode 100755 index 000000000..4a24846d8 --- /dev/null +++ b/modules/statistics/help/en_US/descriptive_statistics/variancef.xml @@ -0,0 +1,204 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2013 - Samuel GOUGEON + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="variancef"> + <refnamediv> + <refname>variancef</refname> + <refpurpose>variance (and mean) of a vector or matrix of frequency-weighted real or complex numbers</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis> + [s [,mc]] = variancef(x, fre [,orien [,m]]) + + [s, mc] = variancef(x) + [s, mc] = variancef(x, fre, "r"|1 ) + [s, mc] = variancef(x, fre, "c"|2 ) + [s, mc] = variancef(x, fre, "*" , %nan) + [s, mc] = variancef(x, fre, "r"|1, %nan) + [s, mc] = variancef(x, fre, "c"|2, %nan) + s = variancef(x, fre, "*", m) + s = variancef(x, fre, "r", m) + s = variancef(x, fre, "c", m) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para> + vector or matrix of real or complex numbers + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>fre</term> + <listitem> + <para> + vector or matrix of positive decimal integers = frequencies: <code>fre(i,j)</code> is the number of times that <code>x(i,j)</code> must be counted. + <varname>fre</varname> and <varname>x</varname> have same sizes. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>orien</term> + <listitem> + <para>the orientation of the computation. Valid values are: + <itemizedlist> + <listitem>1 or "r" : result is a row, after a column-wise computation.</listitem> + <listitem>2 or "c" : result is a column, after a row-wise computation.</listitem> + <listitem> + "*" : full undirectional computation (default); explicitly required when <literal>m</literal> is used. + </listitem> + </itemizedlist> + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>m</term> + <listitem> + <para> + The known mean of the underlying statistical distribution law (assuming that it is known). + <itemizedlist> + <listitem> + "*" mode (default): <varname>m</varname> must be scalar + </listitem> + <listitem> + "r" or 1 mode: <varname>m</varname> is a row of length <literal>size(x,2)</literal>. The variance along the column #j is computed using <literal>m(j)</literal> as the mean for the considered column. If <literal>m(j)</literal> is the same for all columns, it can be provided as a scalar <varname>m</varname>. + </listitem> + <listitem> + "c" or 2 mode: <varname>m</varname> is a column of length <literal>size(x,1)</literal>. The variance along the row #i is computed using <literal>m(i)</literal> as the mean for the considered row. If <literal>m(i)</literal> is the same for all rows, it can be provided as a scalar <varname>m</varname>. + </listitem> + </itemizedlist> + </para> + <para> + When <varname>m</varname> is not provided, the <literal>variance</literal> is built dividing the quadratic distance of n values to <literal>mean(x,fre)</literal>(or <literal>mean(x,fre,"c")</literal> or <literal>mean(x,fre,"r")</literal>) by (n-1) (n being sum(fre) or sum(fre,"c") or sum(fre,"r")). If the elements of <varname>x</varname> are mutually independent, the result is then statistically unbiased. + </para> + <para> + Else, the <literal>variance</literal> is built dividing the quadratic distance of values to <varname>m</varname> by the number n of considered values. + </para> + <para> + If a true value <varname>m</varname> independent from x elements is used, <varname>x</varname> and <varname>m</varname> values are mutually independent, and the result is then unbiased. + </para> + <para> + When the special value <literal>m = %nan</literal> is provided, the variance is still normalized by n (not n-1) but is computed using + <literal>m = mean(x, fre)</literal> instead (or <literal>m = mean(x,fre,"c")</literal> or <literal>m = mean(x,fre,"r")</literal>). This <varname>m</varname> does not bring independent information, and yields a statistically biased result. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>s</term> + <listitem> + The variance of weighted values of <varname>x</varname> elements. It is a scalar or a column vector or a row vector according to <varname>orien</varname>. + </listitem> + </varlistentry> + <varlistentry> + <term>mc</term> + <listitem> + Scalar or <varname>orien</varname>-wise mean of weighted <varname>x</varname> elements (<literal>= mean(x, fre,..)</literal>), as computed before and used as reference in the variance. + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function computes the variance of the values of a + vector or matrix <varname>x</varname>, each of them <literal>x(i,j)</literal> being counted <literal>fre(i,j)</literal> times. + If <literal>x</literal> is complex, then <literal>variancef(x,fre,..) = variancef(real(x),fre,..) + variancef(imag(x),fre,..)</literal> is returned. + </para> + <para> + <literal>s = variancef(x,fre)</literal> (or <literal>s=variancef(x,fre,"*")</literal>) returns the scalar variance computed over all values of <varname>x</varname>. + </para> + <para> + <literal>s = variancef(x,fre,"r")</literal>(or equivalently <literal>s = variancef(x,fre,1)</literal>) returns a row <varname>s</varname> such that for each j, + <literal>s(j) = variancef(x(:,j),fre(:,j),..)</literal>. + </para> + <para> + <literal>s = variancef(x,fre,"c")</literal>(or equivalently <literal>s = variancef(x,fre,2)</literal>) returns a column <varname>s</varname> such that for each i, + <literal>s(i) = variancef(x(i,:),fre(i,:),..)</literal>. + </para> + <para> + When the mean <varname>m</varname> is provided, it is used as reference in the variance computation instead of being internally estimated from <varname>x</varname> (unless it is equal to the special value <code>%nan</code>: See <varname>m</varname>'s description). This allows to compute the variance of a sample <varname>x</varname> with respect to a given statistical model (rather than extracting an empirical statistical dispersion in order to build the model). + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x = [0.2113249 0.0002211 0.6653811; 0.7560439 0.9546254 0.6283918] +fre = [1 2 3; 3 4 3] +[s, m] = variancef(x, fre) +[s, m] = variancef(x, fre, "r") +[s, m] = variancef(x, fre, "c") + +// Example #2: +x0 = grand(20, 7, "uin", -9, 10)+0.4 +x = matrix((-9:10)+0.4, 5, 4) +fre = members(x, x0) // Computes the frequencies of x's elements in x0 +[s, m] = variancef(x, fre) // Should be equal to variance(x0) +[s, m] = variance(x0) + +// Example #2 (follow-up): +m = (-9+10)/2+0.4 // Known asymptotic mean (if x0 had an infinite number of elements) +s = variancef(x, fre, "*", m) // Sample variance wrt the true mean +s0 = (10 - (-9))^2 /12 // Known asymptotic variance +s2 = variancef(x, fre, "*", %nan) // Takes m = meanf(x,fre) => always <= s + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="variance">variance</link> + </member> + <member> + <link linkend="mtlb_var">mtlb_var</link> + </member> + <member> + <link linkend="stdevf">stdevf</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> + <refsection> + <title>History</title> + <revhistory> + <revision> + <revnumber>5.5.0</revnumber> + <revdescription> + <itemizedlist> + <listitem> + <para>variancef(complexes,..) fixed.</para> + </listitem> + <listitem> + <para>variancef(x, fre, orien, m) introduced: the true mean m of the underlying statistical law can be used.</para> + </listitem> + <listitem> + <para>variancef(x, fre, orien, %nan) introduced: mean(x, fre,..) is used but divided by n values (instead of n-1)</para> + </listitem> + <listitem> + <para>[s, mc] = variancef(x,fre,..) introduced : the mean mc computed from x and fre is now also returned</para> + </listitem> + </itemizedlist> + </revdescription> + </revision> + </revhistory> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/descriptive_statistics/wcenter.xml b/modules/statistics/help/en_US/descriptive_statistics/wcenter.xml new file mode 100755 index 000000000..f19cfcdac --- /dev/null +++ b/modules/statistics/help/en_US/descriptive_statistics/wcenter.xml @@ -0,0 +1,86 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="wcenter"> + <refnamediv> + <refname>wcenter</refname> + <refpurpose>center and weight</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>s=wcenter(x) + s=wcenter(x,'r') or s=wcenter(x,1) + s=wcenter(x,'c') or s=wcenter(x,2) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term> </term> + <listitem> + <para>x: real or complex vector or matrix</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function computes <literal>s</literal>, the weigthed and centred + version of the numerical matrix <literal>x</literal>. + </para> + <para> + For a vector or a matrix <literal>x</literal>, <literal>s=wcenter(x)</literal> + returns in the <literal>(i,j)</literal> coefficient of the matrix + <literal>s</literal> the value <literal>(x(i,j)-xbar)/sigma</literal>, where + <literal>xbar</literal> is the mean of the values of the coefficients of + <literal>x</literal> and <literal>sigma</literal> his standard deviation. + </para> + <para> + <literal>s=wcenter(x,'r')</literal> (or, equivalently, + <literal>s=wcenter(x,1)</literal>) is the rowwise centre reduction of + the values of <literal>x</literal>. It returns in the entry <literal>s(i,j)</literal> + the value <literal>(x(i,j)-xbarv(j))/sigmav(j)</literal> with + <literal>xbarv(j)</literal> the mean of the values of the <literal>j</literal> + column and <literal>sigmav(j)</literal> the standard deviation of the + <literal>j</literal> column of <literal>x</literal>. + </para> + <para> + <literal>s=wcenter(x,'c')</literal> (or, equivalently, + <literal>s=wcenter(x,2)</literal>) is the columnwise centre reduction of + the values of <literal>x</literal>. It returns in the entry + <literal>s(i,j)</literal> the value <literal>(x(i,j)-xbarh(i))/sigmah(i)</literal> with + <literal>xbarh(i)</literal> the mean of the values of the <literal>i</literal> row + and <literal>sigmah(i)</literal> the standard deviation of the <literal>i</literal> + row of <literal>x</literal>. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 0.0002211 0.6653811; + 0.7560439 0.3303271 0.6283918] +s=wcenter(x) +s=wcenter(x,'r') +s=wcenter(x,'c') + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="center">center</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/hypothesis_testing/CHAPTER b/modules/statistics/help/en_US/hypothesis_testing/CHAPTER new file mode 100755 index 000000000..cdc59bfdf --- /dev/null +++ b/modules/statistics/help/en_US/hypothesis_testing/CHAPTER @@ -0,0 +1 @@ +title = Hypothesis Testing diff --git a/modules/statistics/help/en_US/hypothesis_testing/ftest.xml b/modules/statistics/help/en_US/hypothesis_testing/ftest.xml new file mode 100755 index 000000000..bb3ed3a64 --- /dev/null +++ b/modules/statistics/help/en_US/hypothesis_testing/ftest.xml @@ -0,0 +1,75 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="ftest"> + <refnamediv> + <refname>ftest</refname> + <refpurpose>Fisher ratio</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>f=ftest(samples) + [f,p]=ftest(samples) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>samples</term> + <listitem> + <para>real or complex matrix of type nr X nc</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + <literal> f=ftest(samples) </literal> computes the Fisher ratio of the + nc samples whose values are in the columns of the matrix + <literal>samples</literal>. Each one of these samples is composed of nr + values. (The Fisher ratio is the ratio between nr times + the variance of the means of samples and the mean of + variances of each sample) + </para> + <para> + <literal> [f,p]=ftest(samples) </literal> gives in p the p-value of the + computed Fisher ratio f. + </para> + </refsection> + <refsection> + <title>References</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, J.Wiley & Sons, 1990. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +samples=[46 55 54; + 53 54 50; + 49 58 51; + 50 61 51; + 46 52 49] +[f,p]=ftest(samples) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="ftuneq">ftuneq</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/hypothesis_testing/ftuneq.xml b/modules/statistics/help/en_US/hypothesis_testing/ftuneq.xml new file mode 100755 index 000000000..255908745 --- /dev/null +++ b/modules/statistics/help/en_US/hypothesis_testing/ftuneq.xml @@ -0,0 +1,98 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="ftuneq"> + <refnamediv> + <refname>ftuneq</refname> + <refpurpose>Fisher ratio for samples of unequal size. </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>f=ftuneq(sample1[,sample2[,sample3]...]]) + [f,p]=ftuneq(sample1[,sample2[,sample3]...]]) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>sample1, sample2, sample3,... </term> + <listitem> + <para>real or complex matrix of any type</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function computes the F ratio for samples of unequal + size. + </para> + <para> + "The most efficient design is to make all samples the + same size n. However when this is nor feasible, it + still is possible to modify the ANOVA calculations." + </para> + <para> + <note> + Note that the definition of xbarbar is no longer + mean(xbar), but rather a weighted average with weights + ni. Additionally it gives (in p) the p-value of the + computed Fisher ratio. + </note> + </para> + <para> + Given a number a of samples each of them composed of n_i + (i from 1 to a) observations this function computes in f + the Fisher ratio (it is the ratio between nr times the + variance of the means of samples and the mean of the + variances of each sample). + </para> + <para> + <literal> f=ftest(samples) </literal> computes the Fisher ratio of the + nc samples whose values are in the columns of the matrix + <literal>samples</literal>. Each one of these samples is composed of nr + values. (The Fisher ratio is the ratio between nr times + the variance of the means of samples and the mean of + variances of each sample) + </para> + <para> + <literal> [f,p]=ftest(samples) </literal> gives in p the p-value of the + computed Fisher ratio f. + </para> + </refsection> + <refsection> + <title>References</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, J.Wiley & Sons, 1990. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +sample1=[46 55 54]; +sample2=[53 54]; +sample3=[50 49 58 51 50]; +sample4=[61 51 46 52]; +[f,p]=ftuneq(sample1,sample2,sample3,sample4) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="ftuneq">ftuneq</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/measures_dispersion/CHAPTER b/modules/statistics/help/en_US/measures_dispersion/CHAPTER new file mode 100755 index 000000000..0e76f2f9a --- /dev/null +++ b/modules/statistics/help/en_US/measures_dispersion/CHAPTER @@ -0,0 +1 @@ +title = Measures of Dispersion diff --git a/modules/statistics/help/en_US/measures_dispersion/iqr.xml b/modules/statistics/help/en_US/measures_dispersion/iqr.xml new file mode 100755 index 000000000..b8fe1d564 --- /dev/null +++ b/modules/statistics/help/en_US/measures_dispersion/iqr.xml @@ -0,0 +1,76 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="iqr"> + <refnamediv> + <refname>iqr</refname> + <refpurpose>interquartile range</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>q=iqr(x) + q=iqr(x,'r') (or, equivalently, q=iqr(x,1)) + q=iqr(x,'c') (or, equivalently, q=iqr(x,2)) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>real or complex vector or matrix</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function computes the interquartile range IQR= upper + quartile - lower quartile of a vector or a matrix <literal> x </literal>. + </para> + <para> + For a vector or a matrix <literal> x</literal> , <literal> q=iqr(x)</literal> + returns in the scalar <literal> q</literal> the interquartile range of + all the entries of <literal> x</literal>. + </para> + <para> + <literal> q=iqr(x,'r') </literal> (or, equivalently, + <literal>q=iqr(x,1)</literal>) is the rowwise interquartile range. It returns in + each entry of the row vector <literal> q</literal> the interquartile + range of each column of <literal> x</literal>. + </para> + <para> + <literal> q=iqr(x,'c') </literal> (or, equivalently, + <literal>q=iqr(x,2)</literal>) is the columnwise interquartile range. It returns in + each entry of the column vector <literal> q</literal> the + interquartile range of each row of <literal> x</literal>. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x = 1:10; + +// Interquartile range of vector 1 to 10 +// Q1 = 3 and Q3 = 8, so iqr = 5 +iqr(x) + ]]></programlisting> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + Wonacott, T.H.Wonacott, R.J.; Introductory Statistics, J.Wiley-Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/measures_dispersion/mad.xml b/modules/statistics/help/en_US/measures_dispersion/mad.xml new file mode 100755 index 000000000..30a9b01ac --- /dev/null +++ b/modules/statistics/help/en_US/measures_dispersion/mad.xml @@ -0,0 +1,74 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="mad"> + <refnamediv> + <refname>mad</refname> + <refpurpose>mean absolute deviation</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>s2=mad(x) + s2=mad(x,'r') or s2=mad(x,1) + s2=mad(x,'c') or s2=mad(x,2) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>real or complex vector or matrix</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function computes the mean absolute deviation of a + real or complex vector or matrix <literal> x</literal>. + </para> + <para> + For a vector or matrix <literal> x</literal>, <literal> s2=mad(x) </literal> + returns in scalar <literal> s2</literal> the mean absolute deviation + of all the entries of <literal> x</literal>. + </para> + <para> + <literal> s2=mad(x,'r') </literal> (or, equivalently, <literal> s2=mad(x,1)</literal>) + returns in each entry of the column vector <literal> s2</literal> + the mean absolute deviation of each column of <literal> x</literal>. + </para> + <para> + <literal> s2=mad(x,'c') </literal> (or, equivalently, <literal> s2=mad(x,2)</literal>) + returns in each entry of the column vector <literal> s2</literal> + the mean absolute deviation of each row of <literal> x</literal>. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x = [2 2 3 4 14]; + +// Mean absolute deviation of a set of data +// Expected = (|2-5|+|2-5|+|3-5|+|4-5|+|14-5|) / 5 = 3.6 +mad(x) + ]]></programlisting> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + Reference: Wonacott T.H.& Wonacott R.J. .- Introductory Statistics, 5th edition, John Wiley, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/measures_dispersion/strange.xml b/modules/statistics/help/en_US/measures_dispersion/strange.xml new file mode 100755 index 000000000..6eb1ba023 --- /dev/null +++ b/modules/statistics/help/en_US/measures_dispersion/strange.xml @@ -0,0 +1,72 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="strange"> + <refnamediv> + <refname>strange</refname> + <refpurpose>range</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>[r]=strange(x) + [r]=strange(x,'r') (or, equivalently, [r]=strange(x,1)) + [r]=strange(x,'c') (or, equivalently, [r]=strange(x,2)) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>real or complex vector or matrix</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + The range is the distance between the largest and + smallest value, [r]=strange(x) computes the range of + vector or matrix x. + </para> + <para> + [r]=strange(x,'r') (or equivalently [r]=strange(x,1)) + give a row vector with the range of each column. + </para> + <para> + [r]=strange(x,'c') (or equivalently [r]=strange(x,2)) + give a column vector with the range of each row. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x = [22 63 57 24 31 + 76 85 67 24 94 + 1 69 73 22 22 + 34 88 20 89 32 + 67 7 55 66 37 ]; + +strange(x) // 94-1 = 93 +strange(x, 'r') // [ 76-1=75 88-7=81 73-20=53 89-22=67 94-22=72 ] +strange(x, 'c') // [ 63-22=41 ; 94-24=70 ; 73-1=72 ; 89-20=69 ; 67-7=60 ] + ]]></programlisting> + </refsection> + <refsection> + <title>References</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/measures_shape/CHAPTER b/modules/statistics/help/en_US/measures_shape/CHAPTER new file mode 100755 index 000000000..7a7e4a2a7 --- /dev/null +++ b/modules/statistics/help/en_US/measures_shape/CHAPTER @@ -0,0 +1 @@ +title = Measures of Shape diff --git a/modules/statistics/help/en_US/measures_shape/cmoment.xml b/modules/statistics/help/en_US/measures_shape/cmoment.xml new file mode 100755 index 000000000..e73e087df --- /dev/null +++ b/modules/statistics/help/en_US/measures_shape/cmoment.xml @@ -0,0 +1,116 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="cmoment"> + <refnamediv> + <refname>cmoment</refname> + <refpurpose>central moments of all orders</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>mom=cmoment(x,ord) + mom=cmoment(x,ord,'r') or mom=cmoment(x,ord,1) + mom=cmoment(x,ord,'c') or mom=cmoment(x,ord,2) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>real or complex vector or matrix</para> + </listitem> + </varlistentry> + <varlistentry> + <term>ord</term> + <listitem> + <para>positive integer</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + cmoment<literal>(x,ord)</literal> is the central moment or order ord of + the elements of <literal>x</literal>. + If a third argument of type string <literal>'r'</literal> (or + <literal>1</literal>) or <literal>'c'</literal> (or <literal> 2</literal>) is used, we get in the + first case, a row vector <literal> mom</literal> such that + <literal>mom(j)</literal> contains the central moment of order + <literal>ord</literal> of the <literal>j</literal> column of + <literal>x</literal>. <literal>cmoment(x,ord,'c')</literal> is used in the same way + for the central moments in the rows. + </para> + </refsection> + <refsection> + <title>References</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, J.Wiley & Sons, 1990. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 0.0002211 0.6653811; + 0.7560439 0.3303271 0.6283918] +mom=cmoment(x,3) +mom=cmoment(x,2,'r') +mom=cmoment(x,3,'c') + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="sum">sum</link> + </member> + <member> + <link linkend="median">median</link> + </member> + <member> + <link linkend="stdev">stdev</link> + </member> + <member> + <link linkend="mean">mean</link> + </member> + <member> + <link linkend="meanf">meanf</link> + </member> + <member> + <link linkend="moment">moment</link> + </member> + <member> + <link linkend="nanmean">nanmean</link> + </member> + <member> + <link linkend="nanmeanf">nanmeanf</link> + </member> + <member> + <link linkend="stdev">stdev</link> + </member> + <member> + <link linkend="stdevf">stdevf</link> + </member> + <member> + <link linkend="variance">variance</link> + </member> + <member> + <link linkend="variancef">variancef</link> + </member> + <member> + <link linkend="nanstdev">nanstdev</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/measures_shape/moment.xml b/modules/statistics/help/en_US/measures_shape/moment.xml new file mode 100755 index 000000000..237bcaafd --- /dev/null +++ b/modules/statistics/help/en_US/measures_shape/moment.xml @@ -0,0 +1,72 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="moment"> + <refnamediv> + <refname>moment</refname> + <refpurpose>non central moments of all orders</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>mom=moment(x,ord) + mom=moment(x,ord,'r') or mom=moment(x,ord,1) + mom=moment(x,ord,'c') or mom=moment(x,ord,2) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>real or complex vector or matrix</para> + </listitem> + </varlistentry> + <varlistentry> + <term>ord</term> + <listitem> + <para>positive integer</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + moment<literal>(x,ord)</literal> is the non central moment or order ord + of the elements of <literal>x</literal>. + </para> + <para> + If a third argument of type string <literal>'r'</literal> (or <literal> 1</literal>) or <literal>'c'</literal> (or <literal> 2</literal>) is used, we get in the + first case, a row vector <literal> mom</literal> such that + <literal>mom(j)</literal> contains the non central moment of order + <literal>ord</literal> of the <literal>j</literal> column of <literal>x</literal>. + <literal>moment(x,ord,'c')</literal> is used in the same way for the + non central moments in the rows. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 0.0002211 0.6653811;0.7560439 0.3303271 0.6283918] +mom=moment(x,3) +mom=moment(x,2,'r') +mom=moment(x,3,'c') + ]]></programlisting> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/measures_shape/perctl.xml b/modules/statistics/help/en_US/measures_shape/perctl.xml new file mode 100755 index 000000000..93a5df1a6 --- /dev/null +++ b/modules/statistics/help/en_US/measures_shape/perctl.xml @@ -0,0 +1,88 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="perctl"> + <refnamediv> + <refname>perctl</refname> + <refpurpose>computation of percentils</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>p=perctl(x,y)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>real or complex vector or matrix</para> + </listitem> + </varlistentry> + <varlistentry> + <term>y</term> + <listitem> + <para>vector of positif integer values between 0 and 100.</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Compute the matrix p of percentils (in increasing + order, column first) of the real vector or matrix + x. + </para> + <para>The percentils are indicated by the entries of y, the values + of entries of y must be positive integers between + 0 and 100. + </para> + <para>p is a matrix whose type is + length(y) x 2 and the content of its first column + are the percentils values. + </para> + <para>The contents of its second + column are the places of the computed percentiles in + the input matrix x. + </para> + <para> + The minimum or maximum values in x are assigned to + percentiles for percent values outside that range. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x=[6 7 0 7 10 4 2 2 7 1; + 6 0 5 5 5 2 0 6 8 10; + 8 6 4 3 5 9 8 3 4 7; + 1 3 2 7 6 1 1 4 8 2; + 6 3 5 1 6 5 9 9 5 5; + 1 6 4 4 5 4 0 8 1 8; + 7 1 3 7 8 0 2 8 10 8; + 3 6 1 9 8 5 5 3 2 1; + 5 7 6 2 10 8 7 4 0 8; + 10 3 3 4 8 6 9 4 8 3] +y=[10 20 30] +p=perctl(x,y) + ]]></programlisting> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + HYNDMAN,Rob J. and FAN Yanan, Sample Quantiles in + Statistical Packages, The American Statistician, + Nov.1996, Vol 50, No.4 + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/measures_shape/quart.xml b/modules/statistics/help/en_US/measures_shape/quart.xml new file mode 100755 index 000000000..398f5fbf6 --- /dev/null +++ b/modules/statistics/help/en_US/measures_shape/quart.xml @@ -0,0 +1,80 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="quart"> + <refnamediv> + <refname>quart</refname> + <refpurpose>computation of quartiles + </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>s=quart(x) + s=quart(x,'r') or m=quart(x,1) + s=quart(x,'c') or m=quart(x,2) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>real or complex vector or matrix</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + For a vector or a matrix x, [q]=quart(x,y) + returns in the vector q the quartiles of x. + + [q]=quart(x,'r') (or, equivalently, + [q]=quart(x,1)) are the rowwise percentiles. It + returns in each column of the matrix q the + quartiles of data in the corresponding column of + x. + </para> + <para> + [q]=quart(x,'c') (or, equivalently, + [q]=quart(x,2)) are the columnwise quartiles. It + returns in each row of the matrix q the quartiles + of data in the corresponding row of x. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x=[6 7 0 7 10 4 2 2 7 1; + 6 0 5 5 5 2 0 6 8 10; + 8 6 4 3 5 9 8 3 4 7; + 1 3 2 7 6 1 1 4 8 2; + 6 3 5 1 6 5 9 9 5 5; + 1 6 4 4 5 4 0 8 1 8; + 7 1 3 7 8 0 2 8 10 8; + 3 6 1 9 8 5 5 3 2 1; + 5 7 6 2 10 8 7 4 0 8; + 10 3 3 4 8 6 9 4 8 3] +q=quart(x) +q=quart(x,'r') +q=quart(x,'c') + ]]></programlisting> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/principal_component_analysis/CHAPTER b/modules/statistics/help/en_US/principal_component_analysis/CHAPTER new file mode 100755 index 000000000..e06f74fcf --- /dev/null +++ b/modules/statistics/help/en_US/principal_component_analysis/CHAPTER @@ -0,0 +1,2 @@ +title = Principal Component Analysis + diff --git a/modules/statistics/help/en_US/principal_component_analysis/pca.xml b/modules/statistics/help/en_US/principal_component_analysis/pca.xml new file mode 100755 index 000000000..3d5e69806 --- /dev/null +++ b/modules/statistics/help/en_US/principal_component_analysis/pca.xml @@ -0,0 +1,123 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="pca"> + <refnamediv> + <refname>pca</refname> + <refpurpose>Computes principal components analysis with standardized variables</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>[lambda,facpr,comprinc] = pca(x)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para> is a nxp (n individuals, p variables) real + matrix. + </para> + <para> + <note> + Note that <literal>pca</literal> center and + normalize the columns of <literal>x</literal> to produce + principal components analysis with standardized + variables. + </note> + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>lambda</term> + <listitem> + <para>is a p x 2 numerical matrix. In the first + column we find the eigenvalues of V, where V + is the correlation p x p matrix and in the second + column are the ratios of the corresponding + eigenvalue over the sum of eigenvalues. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>facpr</term> + <listitem> + <para>are the principal factors: eigenvectors of + V. Each column is an eigenvector element of the + dual of <literal>R^p</literal>. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>comprinc</term> + <listitem> + <para>are the principal components. Each column + (c_i=Xu_i) of this n x n matrix is the + M-orthogonal projection of individuals onto + principal axis. Each one of this columns + is a linear combination of the variables + x1, ...,xp with maximum variance under + condition <literal>u'_i M^(-1) u_i=1</literal> + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para>This function performs several computations known as + "principal component analysis". + </para> + <para>The idea behind this method is to represent in an + approximative manner a cluster of n individuals in a smaller + dimensional subspace. In order to do that, it projects the + cluster onto a subspace. The choice of the k-dimensional + projection subspace is made in such a way that the distances in + the projection have a minimal deformation: we are looking for a + k-dimensional subspace such that the squares of the distances in + the projection is as big as possible (in fact in a projection, + distances can only stretch). In other words, inertia of the + projection onto the k dimensional subspace must be maximal. + </para> + <para>Warning, the graphical part of the old version of + <literal>pca</literal> has been removed. It can now be performed + using the <link linkend="show_pca">show_pca</link> + function. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +a=rand(100,10,'n'); +[lambda,facpr,comprinc] = pca(a); +show_pca(lambda,facpr) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="show_pca">show_pca</link> + </member> + <member> + <link linkend="princomp">princomp</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>Bibliography</title> + <para>Saporta, Gilbert, Probabilites, Analyse des + Donnees et Statistique, Editions Technip, Paris, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/principal_component_analysis/princomp.xml b/modules/statistics/help/en_US/principal_component_analysis/princomp.xml new file mode 100755 index 000000000..0e803dc3f --- /dev/null +++ b/modules/statistics/help/en_US/principal_component_analysis/princomp.xml @@ -0,0 +1,135 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="princomp"> + <refnamediv> + <refname>princomp</refname> + <refpurpose>Principal components analysis</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>[facpr,comprinc,lambda,tsquare] = princomp(x,eco)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para> + is a <literal>n</literal>-by-<literal>p</literal> + (<literal>n</literal> individuals, <literal>p</literal> + variables) real matrix. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>eco</term> + <listitem> + <para> a boolean, use to allow economy size singular value decomposition.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>facpr</term> + <listitem> + <para> + A <literal>p</literal>-by-<literal>p</literal> + matrix. It contains the principal factors: eigenvectors of + the correlation matrix <literal>V</literal>. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>comprinc</term> + <listitem> + <para> + a <literal>n</literal>-by-<literal>p</literal> + matrix. It contains the principal components. Each column + of this matrix is the M-orthogonal projection of individuals + onto principal axis. Each one of this columns is a linear + combination of the variables x1, ...,xp with maximum + variance under condition <literal>u'_i M^(-1) + u_i=1 + </literal> + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>lambda</term> + <listitem> + <para> + is a <literal>p</literal> column vector. It contains + the eigenvalues of <literal>V</literal>, where + <literal>V</literal> is the correlation matrix. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>tsquare</term> + <listitem> + <para> + a <literal>n</literal> column vector. It contains the Hotelling's + T^2 statistic for each data point. + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function performs "principal component analysis" on the + <literal>n</literal>-by-<literal>p</literal> data matrix + <literal>x</literal>. + </para> + <para> + The idea behind this method is to represent in an approximative + manner a cluster of n individuals in a smaller dimensional + subspace. In order to do that, it projects the cluster onto a + subspace. The choice of the k-dimensional projection subspace + is made in such a way that the distances in the projection have + a minimal deformation: we are looking for a k-dimensional + subspace such that the squares of the distances in the + projection is as big as possible (in fact in a projection, + distances can only stretch). In other words, inertia of the + projection onto the k dimensional subspace must be maximal. + </para> + <para> + To compute principal component analysis with standardized variables may use + <literal>princomp(wcenter(x,1))</literal> or use the <link linkend="pca">pca</link> function. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +a=rand(100,10,'n'); +[facpr,comprinc,lambda,tsquare] = princomp(a); + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="wcenter">wcenter</link> + </member> + <member> + <link linkend="pca">pca</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>Bibliography</title> + <para>Saporta, Gilbert, Probabilites, Analyse des + Donnees et Statistique, Editions Technip, Paris, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/principal_component_analysis/show_pca.xml b/modules/statistics/help/en_US/principal_component_analysis/show_pca.xml new file mode 100755 index 000000000..6b45dc815 --- /dev/null +++ b/modules/statistics/help/en_US/principal_component_analysis/show_pca.xml @@ -0,0 +1,211 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * Copyright (C) 2012 - Michael Baudin + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="show_pca"> + <refnamediv> + <refname>show_pca</refname> + <refpurpose>Visualization of principal components analysis results</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>show_pca(lambda, facpr, N)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + + <varlistentry> + <term>lambda</term> + <listitem> + <para> + is a p x 2 numerical matrix. In the first + column we find the eigenvalues of V, where V + is the correlation p x p matrix and in the second + column are the ratios of the corresponding + eigenvalue over the sum of eigenvalues. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>facpr</term> + <listitem> + <para> + are the principal factors: eigenvectors of + V. Each column is an eigenvector element of the + dual of <literal>R^p</literal>. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>N</term> + <listitem> + <para> + Is a 2x1 integer vector. Its coefficients point to the + eigenvectors corresponding to the eigenvalues of the + correlation matrix <literal>p</literal> by <literal>p</literal> ordered by decreasing values of + eigenvalues. If <literal>N</literal>. is missing, we suppose + <literal>N=[1 2]</literal>.. + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function visualize the <link linkend="pca">pca</link> results. + </para> + <para> + The function produces a graphics with two subplots. + <itemizedlist> + <listitem> + <para> + The graphics on the left represents the correlation circle. + This graphics is based on the two principal components 1 and 2, i.e. + the main components. + For each parameter, it represents the linear correlation coefficient between + the component and each parameter. + Points which are close to the unit circle can be interpreted + in terms of correlation, but points close to the center of the circle + should not be interpreted. + For the Axis 1, points on the right of the graphics are positively + correlated to this component, while points on the left are negatively + correlated. + For the Axis 2, points on the top of the graphics are positively + correlated to this component, while points on the bottom are negatively + correlated. + For example, if the point x1 is close to the circle, on the right, + close to the Axis 1, this means that the component 1 is positively correlated + to the parameter 1. + When the data is perfectly represented by only two components, + the points are on the circle. + When more than two components are needed to represent the data, the + points are inside the circle. + </para> + </listitem> + <listitem> + <para> + The graphics on the right represents the eigenvalues. + The bar graph represents the eigenvalues, sorted in decreasing + order. + More precisely, each bar has a length equal to the ratio of the eigenvalue + over the sum of the eigenvalues. + The line plot represents the cumulated sum, i.e. + the cumulative variances explained by the associated + principal components. + For example, if the cumulated sum for the eigenvalue 2 is greater than 0.9, + the points are flat in a subspace associated with the two first + eigenvectors: representing the data with only these two directions may be + a good representation. + </para> + </listitem> + </itemizedlist> + </para> + <para> + Implementation notes. + The right part of the graphics is based on the second column of the + <literal>lambda</literal> output argument of the <literal>pca</literal> + function. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"> + <![CDATA[ +// Test a table of standard Normal random numbers +// 100 observations in 10 dimensions. +a=rand(100,10,"n"); +[lambda,facpr,comprinc] = pca(a); +show_pca(lambda,facpr) +// See how the points are inside the circle: +// more than 2 components are required to represent +// the data. + ]]> + </programlisting> + + <programlisting role="example"> + <![CDATA[ +// Source : "Analyse en composantes principales", +// Jean-François Delmas et Saad Salam +// Weight of several parts of 23 cows +// X1: weight (alive) +// X2: skeleton weight +// X3: first grade meat weight +// X4: total meat weight +// X5: fat weight +// X6: bones weight +x = [ +395 224 35.1 79.1 6.0 14.9 +410 232 31.9 73.4 8.7 16.4 +405 233 30.7 76.5 7.0 16.5 +405 240 30.4 75.3 8.7 16.0 +390 217 31.9 76.5 7.8 15.7 +415 243 32.1 77.4 7.1 18.5 +390 229 32.1 78.4 4.6 17.0 +405 240 31.1 76.5 8.2 15.3 +420 234 32.4 76.0 7.2 16.8 +390 223 33.8 77.0 6.2 16.8 +415 247 30.7 75.5 8.4 16.1 +400 234 31.7 77.6 5.7 18.7 +400 224 28.2 73.5 11.0 15.5 +395 229 29.4 74.5 9.3 16.1 +395 219 29.7 72.8 8.7 18.5 +395 224 28.5 73.7 8.7 17.3 +400 223 28.5 73.1 9.1 17.7 +400 224 27.8 73.2 12.2 14.6 +400 221 26.5 72.3 13.2 14.5 +410 233 25.9 72.3 11.1 16.6 +402 234 27.1 72.1 10.4 17.5 +400 223 26.8 70.3 13.5 16.2 +400 213 25.8 70.4 12.1 17.5 +]; +[lambda,facpr,comprinc] = pca(x); +scf(); +show_pca(lambda,facpr) +// +// Extract the two first columns. +x = x(:,1:2); +[lambda,facpr,comprinc] = pca(x); +scf(); +// See how the points are perfectly on the circle. +show_pca(lambda,facpr) + ]]> + </programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="pca">pca</link> + </member> + <member> + <link linkend="princomp">princomp</link> + </member> + </simplelist> + </refsection> + + <refsection> + <title>Bibliography</title> + <para> + Saporta, Gilbert, Probabilites, Analyse des + Donnees et Statistique, Editions Technip, Paris, + 2011, 3ème Edition. + </para> + <para> + Analyse en composantes principales, + Jean-François Delmas et Saad Salam, + http://cermics.enpc.fr/scilab_new/site/Tp/Statistique/acp/index.htm + </para> + + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/reglin.xml b/modules/statistics/help/en_US/reglin.xml new file mode 100755 index 000000000..823812919 --- /dev/null +++ b/modules/statistics/help/en_US/reglin.xml @@ -0,0 +1,106 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) INRIA - + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="reglin"> +<refnamediv> + <refname>reglin</refname> + <refpurpose>Linear regression</refpurpose> +</refnamediv> +<refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>[a,b,sig]=reglin(x,y)</synopsis> +</refsynopsisdiv> +<refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>x, y, a, b, sig</term> + <listitem> + <para>numerical vectors or matrices.</para> + </listitem> + </varlistentry> + </variablelist> +</refsection> +<refsection> + <title>Description</title> + <para> + Solve the regression problem y=a*x+b in the least square sense. + <literal>sig</literal> is the standard deviation of the residual. <literal>x</literal> and <literal>y</literal> + are two matrices of size <literal>x(p,n)</literal> and <literal>y(q,n)</literal>, where <literal>n</literal> + is the number of samples. + </para> + <para> + The estimator <literal>a</literal> is a matrix of size <literal>(q,p)</literal> and <literal>b</literal> is a + vector of size <literal>(q,1)</literal>. + </para> + <para> + If <literal>x</literal> or <literal>y</literal> contains NaNs, use <link linkend="nanreglin">nanreglin</link>. + </para> +</refsection> +<refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +// Simulation of data for a(3, 5) and b(3, 1) +x = rand(5, 100); +aa = testmatrix("magi", 5); aa = aa(1:3, :); +bb = [9; 10; 11]; +y = aa*x +bb*ones(1, 100)+ 0.1*rand(3, 100); + +// Identification +[a, b, sig] = reglin(x, y); +max(abs(aa-a)) +max(abs(bb-b)) + +// Another example: fitting a polynomial +f = 1:100; x = [f.*f; f]; +y = [2 3]*x + 10*ones(f) + 0.1*rand(f); +[a, b] = reglin(x, y) + ]]></programlisting> + <para> + Graphical example: + </para> + <programlisting role="example"><![CDATA[ +// Generating an odd function (symmetric with respect to the origin) +x = -30:30; +y = x.^3; + +// Extracting the least square mean of that function and displaying +[a, b] = reglin(x, y); +plot(x, y, "red") +plot(x, a*x+b) + ]]></programlisting> + <scilab:image> + x = -30:30; + y = x.^3; + [a, b] = reglin(x, y); + plot(x, y, "red") + plot(x, a*x+b) + </scilab:image> +</refsection> +<refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="nanreglin">nanreglin</link> + </member> + <member> + <link linkend="pinv">pinv</link> + </member> + <member> + <link linkend="leastsq">leastsq</link> + </member> + <member> + <link linkend="qr">qr</link> + </member> + </simplelist> +</refsection> +</refentry> diff --git a/modules/statistics/help/en_US/regression/CHAPTER b/modules/statistics/help/en_US/regression/CHAPTER new file mode 100755 index 000000000..0b0ab4111 --- /dev/null +++ b/modules/statistics/help/en_US/regression/CHAPTER @@ -0,0 +1,2 @@ +title = Regression + diff --git a/modules/statistics/help/en_US/sampling/CHAPTER b/modules/statistics/help/en_US/sampling/CHAPTER new file mode 100755 index 000000000..926da3bc2 --- /dev/null +++ b/modules/statistics/help/en_US/sampling/CHAPTER @@ -0,0 +1 @@ +title = Sampling diff --git a/modules/statistics/help/en_US/sampling/sample.xml b/modules/statistics/help/en_US/sampling/sample.xml new file mode 100755 index 000000000..045153b3d --- /dev/null +++ b/modules/statistics/help/en_US/sampling/sample.xml @@ -0,0 +1,113 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="sample"> + <refnamediv> + <refname>sample</refname> + <refpurpose>Sampling with replacement</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>s = sample(n,X,orient)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>n</term> + <listitem> + <para>positive integer (size of sample)</para> + </listitem> + </varlistentry> + <varlistentry> + <term>X</term> + <listitem> + <para>matrix. Samples will be extracted from this matrix.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>orient</term> + <listitem> + <para>Optional parameter. Admissible values are <literal>{'*'}, 1, 2, 'r'</literal> or <literal>'c'</literal>. The orientation to sample rows or columns. See Description below.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>s</term> + <listitem> + <para>vector or matrix containing sample</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function returns a vector or matrix. It contains + a random sample of <literal>n</literal> extractions, with replacement, from + the matrix <literal>X</literal>. + </para> + <para> + <literal>s = sample(n, X)</literal> (or <literal>s = sample(n, X, '*')</literal>) returns a vector <literal>s</literal> + whose values are a random sample of <literal>n</literal> values, + extracted with replacement, from <literal>X</literal>. + </para> + <para> + + <literal>s = sample(n, X, 'r')</literal> (or, equivalently, <literal>s = sample(n, X, 1)</literal>) + returns a matrix of size <literal>size(X,'r') * n</literal>. It contains a + random sample of <literal>n</literal> rows, extracted with replacement, from + the rows of <literal>X</literal>. + </para> + <para> + + <literal>s = sample(n, X, 'c')</literal> (or, equivalently, <literal>s = sample(n, X, 2)</literal>) + returns a matrix of size <literal>n * size(X, 'c')</literal>. It contains a + random sample of <literal>n</literal> columns, extracted with replacement + from the columns of <literal>X</literal>. + </para> + </refsection> + <refsection> + <title> Random number generator </title> + <para> <literal>sample</literal> is based on <link linkend="grand">grand</link> for generating the random samples. Use <literal>grand("setsd", seed)</literal> to change the seed for <literal>samplef</literal>.</para> + <programlisting role="example"><![CDATA[ + seed = getdate("s"); + grand("setsd", seed); //sets the seed to current date + + seed = 0; + grand("setsd", seed); //sets the seed to default value + ]]> + </programlisting> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +X = ['a' 'dd' 'arreu'; 'ber' 'car' 'zon'] +s = sample(25, X) +s = sample(25, X, 'r') +s = sample(25, X, 'c') + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="samplef">samplef</link> + </member> + <member> + <link linkend="samwr">samwr</link> + </member> + <member> + <link linkend="grand">grand</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/sampling/samplef.xml b/modules/statistics/help/en_US/sampling/samplef.xml new file mode 100755 index 000000000..07a2f124a --- /dev/null +++ b/modules/statistics/help/en_US/sampling/samplef.xml @@ -0,0 +1,133 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="samplef"> + <refnamediv> + <refname>samplef</refname> + <refpurpose>sample values with replacement from a population + with given frequencies. + </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>s = samplef(n,X,f,orient)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>n</term> + <listitem> + <para>positive integer (size of sample)</para> + </listitem> + </varlistentry> + <varlistentry> + <term>X</term> + <listitem> + <para>matrix. Population, samples are extracted from this matrix</para> + </listitem> + </varlistentry> + <varlistentry> + <term>f</term> + <listitem> + <para>matrix of positive real values. Indicates the corresponding frequencies of the values in <literal>X</literal>. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>orient</term> + <listitem> + <para>Optional parameter. Admissible values are <literal>{'*'}, 1, 2, 'r' </literal> or <literal>'c'</literal>. The orientation to sample rows or columns. See Description below.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>s</term> + <listitem> + <para> vector or matrix containing the sampled values of <literal>X</literal> at frequencies <literal>f</literal>.</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function returns <literal>s</literal>, a vector of length <literal>n</literal>. It contains + a sample of <literal>n</literal> extractions, with replacement, from the + vector (or matrix) <literal>X</literal>, each element counted with the + frequency given by the corresponding value in vector <literal>f</literal>. + </para> + <para> + <literal>s=samplef(n,X,f)</literal> (or + <literal>s=samplef(n,X,f,'*')</literal>) returns a + vector <literal>s</literal> whose values are a random sample of n values from + <literal>X</literal>, each value with a probability to be sampled + proportional to the corresponding value of <literal>f</literal>, extracted + with replacement, from <literal>X</literal>. <literal>f</literal> must have same length than <literal>X</literal>. + </para> + <para> + <literal>s=samplef(n,X,f,'r')</literal> (or, equivalently, + <literal>s=samplef(n,X,f,1)) </literal> returns a matrix of type + <literal>size(X,'r') * n</literal>. It contains a random sample of <literal>n</literal> rows from + <literal>X</literal>, each row with a probability to be sampled proportional + to the corresponding value of <literal>f</literal>, extracted with + replacement, from the rows of <literal>X</literal>. The length of <literal>f</literal> must be + equal to the number of rows of <literal>X</literal>. + </para> + <para> + <literal>s=samplef(n,X,f,'c')</literal> (or, equivalently, + <literal>s=samplef(n,X,f,2))</literal> returns a matrix of type + <literal>n * size(X,'c')</literal>. It contains a random sample of <literal>n</literal> columns + from <literal>X</literal>, each column with a probability to be sampled + proportional to the corresponding value of <literal>f</literal>, extracted + with replacement, from the columns of <literal>X</literal>. The length of <literal>f</literal> + must be equal to the number of columns of <literal>X</literal>. + </para> + </refsection> + <refsection> + <title> Random number generator </title> + <para> <literal>samplef</literal> is based on <link linkend="grand">grand</link> for generating the random samples. Use <literal>grand("setsd", seed)</literal> to change the seed for <literal>samplef</literal>.</para> + <programlisting role="example"><![CDATA[ + seed = getdate("s"); + grand("setsd", seed); //sets the seed to current date + + seed = 0; + grand("setsd", seed); //sets the seed to default value + ]]> + </programlisting> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +X = [3 7 9; 22 4 2]; +f1 = [10 1 1 1 1 1]; +f2 = [1 ; 15]; +f3 = [10 1 1]; +s=samplef(20, X, f1) //the first value of matrix X will be choosen with frequency 10/15 +s=samplef(20, X, f2, 'r') //the second row of matrix a will be choosen with frequency 15/16 +s=samplef(20, X, f3, 'c') //the first column of matrix a will be choosen with frequency 10/12 + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="sample">sample</link> + </member> + <member> + <link linkend="samwr">samwr</link> + </member> + <member> + <link linkend="grand">grand</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/sampling/samwr.xml b/modules/statistics/help/en_US/sampling/samwr.xml new file mode 100755 index 000000000..c4b57d900 --- /dev/null +++ b/modules/statistics/help/en_US/sampling/samwr.xml @@ -0,0 +1,92 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="samwr"> + <refnamediv> + <refname>samwr</refname> + <refpurpose>Sampling without replacement </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>s = samwr(sizam, numsamp, X)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>sizam</term> + <listitem> + <para>integer. Size of a sample. It must be lower than or equal to the size of <literal>X</literal>. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>numsamp</term> + <listitem> + <para>integer. Number of samples to be extracted.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>X</term> + <listitem> + <para>column vector. It contains the population.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>s</term> + <listitem> + <para>matrix of size <literal>sizsam * numsamp</literal>. It contains + <literal>numsamp</literal> random samples (the columns) each of + <literal>sizam</literal> extractions without replacement from <literal>X</literal>. + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para>Gives samples without replacement from a column vector.</para> + </refsection> + <refsection> + <title> Random number generator </title> + <para> <literal>samwr</literal> is based on <link linkend="grand">grand</link> for generating the random samples. Use <literal>grand("setsd", seed)</literal> to change the seed for <literal>samwr</literal>.</para> + <programlisting role="example"><![CDATA[ + seed = getdate("s"); + grand("setsd", seed); //sets the seed to current date + + seed = 0; + grand("setsd", seed); //sets the seed to default value + ]]> + </programlisting> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +a = [0.33 1.24 2.1 1.03] +s = samwr(4, 12, a) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="sample">sample</link> + </member> + <member> + <link linkend="samplef">samplef</link> + </member> + <member> + <link linkend="grand">grand</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/en_US/summaries/CHAPTER b/modules/statistics/help/en_US/summaries/CHAPTER new file mode 100755 index 000000000..3185a34df --- /dev/null +++ b/modules/statistics/help/en_US/summaries/CHAPTER @@ -0,0 +1 @@ +title = Summaries diff --git a/modules/statistics/help/en_US/summaries/tabul.xml b/modules/statistics/help/en_US/summaries/tabul.xml new file mode 100755 index 000000000..0f623c1c4 --- /dev/null +++ b/modules/statistics/help/en_US/summaries/tabul.xml @@ -0,0 +1,149 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xml:lang="en" xmlns:scilab="http://www.scilab.org" xml:id="tabul"> + <refnamediv> + <refname>tabul</refname> + <refpurpose>frequency of values of a matrix or vector</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Calling Sequence</title> + <synopsis>[m]=tabul(X [,order])</synopsis> + </refsynopsisdiv> + <refsection> + <title>Arguments</title> + <variablelist> + <varlistentry> + <term>X</term> + <listitem> + <para>vector or matrix (of real or complex numbers or strings)</para> + </listitem> + </varlistentry> + <varlistentry> + <term>order</term> + <listitem> + <para>(optional) a character equal to "d" or "i" (default value "d")</para> + </listitem> + </varlistentry> + <varlistentry> + <term>m</term> + <listitem> + <para> + a 2 columns matrix (if <literal>X</literal> is a numerical vector or matrix) or + a list with 2 members (if <literal>X</literal> is a string vector or matrix). + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + This function computes the frequency of values of + the components of a vector or matrix <literal>X</literal> of numbers or + string characters : + </para> + <variablelist> + <varlistentry> + <term>if X is a numerical vector or matrix</term> + <listitem> + <para> + then <literal>m</literal> is a two column matrix who contains in + the first column the distinct values of <literal>X</literal> + and in the other column the number of occurrences + of those values (m(i,2) is the number of occurrences + of m(i,1)). + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>if X is a string vector or matrix</term> + <listitem> + <para> + then <literal>m</literal> is a list whose first member is a + string (column) vector composed with the distinct + values of <literal>X</literal> and the second member is a + (column) vector whose components are the number of + occurrences of those values ( m(i)(2) is the number + of occurrences of the string m(i)(1) ). + </para> + </listitem> + </varlistentry> + </variablelist> + <para> + The optional parameter <literal>order</literal> must be "d" or "i" (by default + order="d") and gives the order (decreasing or increasing) the distinct + values of X will be sorted. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +X = [2 8 0 3 7 6 8 7 9 1 6 7 7 2 5 2 2 2 9 7] +m1 = tabul(X) +m2 = tabul(X, "i") + ]]></programlisting> + <programlisting role="example"><![CDATA[ + +X = ["ba" "baba" "a" "A" "AA" "a" "aa" "aa" "aa" "A" "ba"] +m = tabul(X,"i") + ]]></programlisting> + <programlisting role="example"><![CDATA[ + +n = 50000; +X = grand(n,1,"bin",70,0.5); +m = tabul(X,"i"); +clf() +plot2d3(m(:,1), m(:,2)/n) +xtitle("empirical probabilities of B(70,0.5)") + ]]></programlisting> + <scilab:image> + + n = 50000; + X = grand(n,1,"bin",70,0.5); + m = tabul(X,"i"); + clf() + plot2d3(m(:,1), m(:,2)/n) + xtitle("empirical probabilities of B(70,0.5)") + + </scilab:image> + <programlisting role="example"><![CDATA[ + +// computes the occurrences of words of the license of scilab +text = read(SCI+"/license.txt",-1,1,"(A)"); // read the scilab license +bigstr = strcat(text," "); // put all the lines in a big string +sep = [" " "," "." ";" "*" ":" "-" """"]; // words separators +words = tokens(bigstr, sep); // cut the big string into words +m = tabul(words); // computes occurrences of each word +[occ , p] = gsort(m(2)); // sort by decreasing frequencies +results = [m(1)(p) string(occ)] // display result + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="dsearch">dsearch</link> + </member> + <member> + <link linkend="histplot">histplot</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>Bibliography</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, + fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/addchapter.sce b/modules/statistics/help/fr_FR/addchapter.sce new file mode 100755 index 000000000..2f6a479cf --- /dev/null +++ b/modules/statistics/help/fr_FR/addchapter.sce @@ -0,0 +1,11 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2009 - DIGITEO +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + +add_help_chapter("Statistiques",SCI+"/modules/statistics/help/fr_FR",%T); + diff --git a/modules/statistics/help/fr_FR/cdf/CHAPTER b/modules/statistics/help/fr_FR/cdf/CHAPTER new file mode 100755 index 000000000..1542dfc1a --- /dev/null +++ b/modules/statistics/help/fr_FR/cdf/CHAPTER @@ -0,0 +1 @@ +title = Cumulated Distribution Functions diff --git a/modules/statistics/help/fr_FR/cdf/cdfbet.xml b/modules/statistics/help/fr_FR/cdf/cdfbet.xml new file mode 100755 index 000000000..1dd894ceb --- /dev/null +++ b/modules/statistics/help/fr_FR/cdf/cdfbet.xml @@ -0,0 +1,140 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="cdfbet"> + <refnamediv> + <refname>cdfbet</refname> + <refpurpose>fonction de répartition de la distribution Beta </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis>[P,Q]=cdfbet("PQ",X,Y,A,B) + [X,Y]=cdfbet("XY",A,B,P,Q) + [A]=cdfbet("A",B,P,Q,X,Y) + [B]=cdfbet("B",P,Q,X,Y,A) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>P,Q,X,Y,A,B </term> + <listitem> + <para>cinq vecteurs réels de même taille. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>L'intégrale de 0 à X de la distribution beta (En entrée : [0, 1].) + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Q </term> + <listitem> + <para>1-P + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>X,Y (Y=1-X) </term> + <listitem> + <para>Borne supérieure d'intégration (En entrée : [0,1], En recherche : [0,1]) A,B : Les deux paramètres de la densité (En entrée: (0,+infini), En recherche : [1D-300,1D300] ) + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Étant donnés les autres, calcule un paramètre de la distribution beta + (la distribution Beta est proportionnelle à <literal>t^(A-1) * (1-t)^(B-1)</literal>). + </para> + <para> + La fonction de répartition (P) est calculée directement par le code associé à la référence + </para> + <para> + DiDinato, A. R. and Morris, A. H. Algorithm 708: Significant + Digit Computation of the Incomplete Beta Function Ratios. ACM + Trans. Math. Softw. 18 (1993), 360-373. + </para> + <para> + Le calcul des autres paramètres implique une recherche d'une valeur conduisant à la valeur désirée pour P. La recherche dépend de la monotonicité de P par rapport aux autres paramètres. + </para> + <para> + Tiré de la bibliothèque DCDFLIB: Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters (February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + + <refsection> + <title>Exemples</title> + <programlisting role="example"><![CDATA[ +x = 0:0.1:1; +y = 1-x; + +A = 2*ones(x); +B = 3*ones(x); + +[p,q]=cdfbet('PQ',x,y,A,B); +plot2d2("gnn",[0:10]',p,5,"111","Repartition",[0,0,10,1]) + ]]></programlisting> + <scilab:image> + x = 0:0.1:1; + y = 1-x; + A = 2*ones(x); + B = 3*ones(x); + [p,q]=cdfbet('PQ',x,y,A,B); + plot2d2("gnn",[0:10]',p,5,"111","Repartition",[0,0,10,1]) + </scilab:image> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="cdfchi">cdfchi</link> + </member> + <member> + <link linkend="cdfchn">cdfchn</link> + </member> + <member> + <link linkend="cdff">cdff</link> + </member> + <member> + <link linkend="cdffnc">cdffnc</link> + </member> + <member> + <link linkend="cdfgam">cdfgam</link> + </member> + <member> + <link linkend="cdfnbn">cdfnbn</link> + </member> + <member> + <link linkend="cdfnor">cdfnor</link> + </member> + <member> + <link linkend="cdfpoi">cdfpoi</link> + </member> + <member> + <link linkend="cdft">cdft</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/cdf/cdfbin.xml b/modules/statistics/help/fr_FR/cdf/cdfbin.xml new file mode 100755 index 000000000..b5ec1bba8 --- /dev/null +++ b/modules/statistics/help/fr_FR/cdf/cdfbin.xml @@ -0,0 +1,139 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="cdfbin"> + <refnamediv> + <refname>cdfbin</refname> + <refpurpose>fonction de répartition de la distribution binomiale </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis>[P,Q]=cdfbin("PQ",S,Xn,Pr,Ompr) + [S]=cdfbin("S",Xn,Pr,Ompr,P,Q) + [Xn]=cdfbin("Xn",Pr,Ompr,P,Q,S) + [Pr,Ompr]=cdfbin("PrOmpr",P,Q,S,Xn) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>P,Q,S,Xn,Pr,Ompr </term> + <listitem> + <para>six vecteurs réels de même taille. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>La somme de 0 à S de la distribution (Probabilité de S succès ou moins en XN essais de probabilité de succès PR) En entrée : [0,1]. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>S </term> + <listitem> + <para>Le nombre de succès observés En entrée : [0, XN] En recherche : [0, XN] + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Xn </term> + <listitem> + <para>Le nombre d'essais binomiaux En entrée : (0, +infini). En recherche : [1E-300, 1E300] + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Pr,Ompr (Ompr=1-Pr) </term> + <listitem> + <para>La probabilité de succès de chaque essai En entrée : [0,1]. En recherche : [0,1] + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Étant donnés les autres, calcule un paramètre de la distribution binomiale + </para> + <para> + La formule 26.5.24 de Abramowitz et Stegun, Handbook of + Mathematical Functions (1966) est utilisée pour réduire le calcul de la fonction de répartition de la distribution à celle d'une loi beta incomplète. + </para> + <para> + Le calcul des autres paramètres implique une recherche d'une valeur conduisant à la valeur désirée pour P. La recherche dépend de la monotonicité de P par rapport aux autres paramètres. + </para> + <para> + Tiré de la bibliothèque DCDFLIB: Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters (February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + <refsection> + <title>Exemples</title> + <programlisting role="example"><![CDATA[ + S = 0:1:10; + Pr = 0.3 * ones(S); + Ompr = 1-Pr; + Xn = 10*ones(S); + [p,q]=cdfbin('PQ',S,Xn,Pr,Ompr); + plot2d2("gnn",[0:10]',p,5,"111","Repartition",[0,0,10,1]) + ]]></programlisting> + <scilab:image> + S = 0:1:10; + Pr = 0.3 * ones(S); + Ompr = 1-Pr; + Xn = 10*ones(S); + [p,q]=cdfbin('PQ',S,Xn,Pr,Ompr); + plot2d2("gnn",[0:10]',p,5,"111","Repartition",[0,0,10,1]) + </scilab:image> + </refsection> + <refsection role="see also"> + <title>Voir aussi</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbet">cdfbet</link> + </member> + <member> + <link linkend="cdfchi">cdfchi</link> + </member> + <member> + <link linkend="cdfchn">cdfchn</link> + </member> + <member> + <link linkend="cdff">cdff</link> + </member> + <member> + <link linkend="cdffnc">cdffnc</link> + </member> + <member> + <link linkend="cdfgam">cdfgam</link> + </member> + <member> + <link linkend="cdfnbn">cdfnbn</link> + </member> + <member> + <link linkend="cdfnor">cdfnor</link> + </member> + <member> + <link linkend="cdfpoi">cdfpoi</link> + </member> + <member> + <link linkend="cdft">cdft</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/cdf/cdfchi.xml b/modules/statistics/help/fr_FR/cdf/cdfchi.xml new file mode 100755 index 000000000..7d37f2339 --- /dev/null +++ b/modules/statistics/help/fr_FR/cdf/cdfchi.xml @@ -0,0 +1,130 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="cdfchi"> + <refnamediv> + <refname>cdfchi</refname> + <refpurpose>fonction de répartition de la distribution du chi-deux </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis>[P,Q]=cdfchi("PQ",X,Df) + [X]=cdfchi("X",Df,P,Q); + [Df]=cdfchi("Df",P,Q,X) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>P,Q,Xn,Df </term> + <listitem> + <para>4 vecteurs réels de même taille. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para> L'intégrale de 0 à X de la distribution En entrée : [0, 1]. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>X </term> + <listitem> + <para>Borne supérieure d'intégration En entrée : [0, +infini). En recherche : [0,1E300] + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Df </term> + <listitem> + <para> degrés de liberté de la distribution. En entrée : (0, +infini). En recherche : [ 1E-300, 1E300] + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Étant donnés les autres, calcule un paramètre de la distribution du chi-deux. + </para> + <para> + La formule 26.4.19 de Abramowitz et Stegun, Handbook of + Mathematical Functions (1966) est utilisée pour réduire le calcul de la fonction de répartition de la distribution à celle d'une loi incomplète. + </para> + <para> + Le calcul des autres paramètres implique une recherche d'une valeur conduisant à la valeur désirée pour P. La recherche dépend de la monotonicité de P par rapport aux autres paramètres. + </para> + <para> + Il arrive dans certains cas que les degrés de liberté ne soient pas des entiers. Scilab affiche alors un avertissement. + </para> + <para> + Tiré de la bibliothèque DCDFLIB: Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters (February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + <para> + </para> + </refsection> + <refsection> + <title>Exemples</title> + <para> + Dans l'exemple suivant, on calcule la probabilité de l'événement <literal>x=0.1</literal> + pour la fonction de distribution du chi-deux avec <literal>Df=2</literal>. + </para> + <programlisting role="example"><![CDATA[ + Df = 2; + x = 0.1; + // Expected : P = 0.0487706 and Q = 1-P + [P, Q] = cdfchi("PQ", x, Df) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>Voir aussi</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbet">cdfbet</link> + </member> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="cdfchn">cdfchn</link> + </member> + <member> + <link linkend="cdff">cdff</link> + </member> + <member> + <link linkend="cdffnc">cdffnc</link> + </member> + <member> + <link linkend="cdfgam">cdfgam</link> + </member> + <member> + <link linkend="cdfnbn">cdfnbn</link> + </member> + <member> + <link linkend="cdfnor">cdfnor</link> + </member> + <member> + <link linkend="cdfpoi">cdfpoi</link> + </member> + <member> + <link linkend="cdft">cdft</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/cdf/cdfchn.xml b/modules/statistics/help/fr_FR/cdf/cdfchn.xml new file mode 100755 index 000000000..4e1030137 --- /dev/null +++ b/modules/statistics/help/fr_FR/cdf/cdfchn.xml @@ -0,0 +1,142 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="cdfchn"> + <refnamediv> + <refname>cdfchn</refname> + <refpurpose>fonction de répartition de la distribution du chi-deux non centrée </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis>[P,Q]=cdfchn("PQ",X,Df,Pnonc) + [X]=cdfchn("X",Df,Pnonc,P,Q); + [Df]=cdfchn("Df",Pnonc,P,Q,X) + [Pnonc]=cdfchn("Pnonc",P,Q,X,Df) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>P,Q,X,Df,Pnonc </term> + <listitem> + <para>5 vecteurs réels de même taille. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para> L'intégrale de 0 à X de la distribution. En entrée : [0, 1-1E-16). + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>X </term> + <listitem> + <para>Borne supérieure d'intégration En entrée : [0, +infini). En recherche : [0,1E300] + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Df </term> + <listitem> + <para>Degrés de liberté de la densité En entrée : (0, +infini). En recherche : [ 1E-300, 1E300] + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Pnonc </term> + <listitem> + <para>paramètre de décentrage En entrée : [0, +infini). En recherche : [0,1E4] + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Étant donnés les autres, calcule un paramètre de la distribution du chi-deux non-centré. + </para> + <para> + La formule 26.4.25 de "Abramowitz and Stegun, Handbook of + Mathematical Functions (1966)" est utilisée pour le calcul de la fonction de répartition. + </para> + <para> + Le calcul des autres paramètres implique une recherche d'une valeur conduisant à la valeur désirée pour P. La recherche dépend de la monotonicité de P par rapport aux autres paramètres. + </para> + <para> + Le temps de calcul est proportionnel au paramètre de décentrage. + La plage de recherche est bornée par 10,000 pour limiter le temps de calcul (pouvant devenir énorme pour des grandes valeurs de Pnonc). + </para> + <para> + Il arrive dans certains cas que les degrés de liberté ne soient pas des entiers. Scilab affiche alors un avertissement. + </para> + <para> + Tiré de la bibliothèque DCDFLIB: Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters (February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + <refsection> + <title>Exemples</title> + <para> + Dans l'exemple suivant, on calcule la probabilité de l'événement <literal>x=0.1</literal> + pour la fonction de distribution du chi-deux non-centrée avec <literal>Df=2</literal> et + <literal>Pnonc=5</literal>. + </para> + <programlisting role="example"><![CDATA[ + Pnonc = 5; + Df = 2; + x = 0.1; + // Expected : P = 0.0042567 and Q = 1-P + [P, Q] = cdfchn("PQ", x, Df, Pnonc) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>Voir aussi</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbet">cdfbet</link> + </member> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="cdfchi">cdfchi</link> + </member> + <member> + <link linkend="cdff">cdff</link> + </member> + <member> + <link linkend="cdffnc">cdffnc</link> + </member> + <member> + <link linkend="cdfgam">cdfgam</link> + </member> + <member> + <link linkend="cdfnbn">cdfnbn</link> + </member> + <member> + <link linkend="cdfnor">cdfnor</link> + </member> + <member> + <link linkend="cdfpoi">cdfpoi</link> + </member> + <member> + <link linkend="cdft">cdft</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/cdf/cdff.xml b/modules/statistics/help/fr_FR/cdf/cdff.xml new file mode 100755 index 000000000..e019352c4 --- /dev/null +++ b/modules/statistics/help/fr_FR/cdf/cdff.xml @@ -0,0 +1,142 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="cdff"> + <refnamediv> + <refname>cdff</refname> + <refpurpose>fonction de répartition de la distribution de Fisher </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis>[P,Q]=cdff("PQ",F,Dfn,Dfd) + [F]=cdff("F",Dfn,Dfd,P,Q); + [Dfn]=cdff("Dfn",Dfd,P,Q,F); + [Dfd]=cdff("Dfd",P,Q,F,Dfn) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>P,Q,F,Dfn,Dfd </term> + <listitem> + <para>5 vecteurs réels de même taille. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para> Intégrale de 0 à F de la densité En entrée : [0,1]. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>F </term> + <listitem> + <para>Borne supérieure d'intégration En entrée : [0, +infini). En recherche : [0,1E300] + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Dfn </term> + <listitem> + <para>Degrés de liberté de la somme des carrés au numérateur En entrée : (0, +infini). En recherche : [ 1E-300, 1E300] + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Dfd </term> + <listitem> + <para>Degrés de liberté de la somme des carrés au dénominateur En entrée : (0, +infini). En recherche : [ 1E-300, 1E300] + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Étant donnés les autres, calcule un paramètre de la distribution de Fisher. + </para> + <para> + La formule 26.6.2 de Abramowitz et Stegun, Handbook of + Mathematical Functions (1966) est utilisée pour réduire le calcul de la fonction de répartition de la distribution à celle d'une loi beta incomplète. + </para> + <para> + Le calcul des autres paramètres implique une recherche d'une valeur conduisant à la valeur désirée pour P. La recherche dépend de la monotonicité de P par rapport aux autres paramètres. + </para> + <para> + La valeur de la fonction de répartition de la distribution de Fisher n'est pas monotone. + Il peut y avoir deux valeurs du paramètre donnant une valeur de donnée de la fonction de répartition. + Cette fonction suppose qu'elle est monotone et renvoie arbitrairement une des deux valeurs. + </para> + <para> + Il arrive dans certains cas que les degrés de liberté ne soient pas des entiers. Scilab affiche alors un avertissement. + </para> + <para> + Tiré de la bibliothèque DCDFLIB: Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters (February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + <refsection> + <title>Exemples</title> + <para> + Dans l'exemple suivant, on calcule la probabilité de l'événement <literal>f=0.1</literal> + pour la fonction de distribution de Fisher avec <literal>Dfn=2</literal> et <literal>Dfd=2</literal>. + </para> + <programlisting role="example"><![CDATA[ + Dfn = 2; + Dfd = 2; + f = 0.1; + // Expected : P = 0.0909091 and Q = 1-P + [P, Q] = cdff("PQ", f, Dfd, Dfd) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>Voir aussi</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbet">cdfbet</link> + </member> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="cdfchi">cdfchi</link> + </member> + <member> + <link linkend="cdfchn">cdfchn</link> + </member> + <member> + <link linkend="cdffnc">cdffnc</link> + </member> + <member> + <link linkend="cdfgam">cdfgam</link> + </member> + <member> + <link linkend="cdfnbn">cdfnbn</link> + </member> + <member> + <link linkend="cdfnor">cdfnor</link> + </member> + <member> + <link linkend="cdfpoi">cdfpoi</link> + </member> + <member> + <link linkend="cdft">cdft</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/cdf/cdffnc.xml b/modules/statistics/help/fr_FR/cdf/cdffnc.xml new file mode 100755 index 000000000..91507fe2b --- /dev/null +++ b/modules/statistics/help/fr_FR/cdf/cdffnc.xml @@ -0,0 +1,153 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="cdffnc"> + <refnamediv> + <refname>cdffnc</refname> + <refpurpose>fonction de répartition de la distribution de Fisher non centrée </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis>[P,Q]=cdffnc("PQ",F,Dfn,Dfd,Pnonc) + [F]=cdffnc("F",Dfn,Dfd,Pnonc,P,Q); + [Dfn]=cdffnc("Dfn",Dfd,Pnonc,P,Q,F); + [Dfd]=cdffnc("Dfd",Pnonc,P,Q,F,Dfn) + [Pnonc]=cdffnc("Pnonc",P,Q,F,Dfn,Dfd); + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>P,Q,F,Dfn,Dfd,Pnonc </term> + <listitem> + <para>six vecteurs réels de même taille. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para> + Intégrale de 0 à F de la densité En entrée : [0,1-1E-16). + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>F </term> + <listitem> + <para>Borne supérieure d'intégration En entrée : [0, +infini). En recherche : [0,1E300] + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Dfn </term> + <listitem> + <para>Degrés de liberté de la somme de carrés au numérateur En entrée : (0, +infini). En recherche : [ 1E-300, 1E300] + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Dfd </term> + <listitem> + <para>Degrés de liberté de la somme de carrés au dénominateur Dans l'intervalle: (0, +infini). En entrée : (0, +infini). En recherche : [ 1E-300, 1E300] + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Pnonc </term> + <listitem> + <para>Paramètre de décentrage En entrée : [0,infini) En recherche : [0,1E4] + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Étant donnés les autres, calcule un paramètre de la distribution de Fisher non-centré + </para> + <para> + La formule 26.6.20 de Abramowitz and Stegun, Handbook of + Mathematical Functions (1966) est utilisée pour le calcul de la fonction de répartition. + </para> + <para> + Le calcul des autres paramètres implique une recherche d'une valeur conduisant à la valeur désirée pour P. La recherche dépend de la monotonicité de P par rapport aux autres paramètres. + </para> + <para> + Le temps de calcul est proportionnel au paramètre de décentrage. + La plage de recherche est bornée par 10,000 pour limiter le temps de calcul (pouvant devenir énorme pour des grandes valeurs de Pnonc). + </para> + <para> + La valeur de la fonction de répartition de la distribution de Fisher n'est pas monotone. + Il peut y avoir deux valeurs du paramètre donnant une valeur de donnée de la fonction de répartition. + Cette fonction suppose qu'elle est monotone et renvoie arbitrairement une des deux valeurs. + </para> + <para> + Il arrive dans certains cas que les degrés de liberté ne soient pas des entiers. Scilab affiche alors un avertissement. + </para> + <para> + Tiré de la bibliothèque DCDFLIB: Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters (February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + <refsection> + <title>Exemples</title> + <programlisting role="example"><![CDATA[ + +f = [1:2]; +dfn = [1:2]; +dfd = 2*dfn; +pn = [0,1]; + +[P,Q] = cdffnc("PQ",f,dfn,dfd,pn) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>Voir aussi</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbet">cdfbet</link> + </member> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="cdfchi">cdfchi</link> + </member> + <member> + <link linkend="cdfchn">cdfchn</link> + </member> + <member> + <link linkend="cdff">cdff</link> + </member> + <member> + <link linkend="cdfgam">cdfgam</link> + </member> + <member> + <link linkend="cdfnbn">cdfnbn</link> + </member> + <member> + <link linkend="cdfnor">cdfnor</link> + </member> + <member> + <link linkend="cdfpoi">cdfpoi</link> + </member> + <member> + <link linkend="cdft">cdft</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/cdf/cdfgam.xml b/modules/statistics/help/fr_FR/cdf/cdfgam.xml new file mode 100755 index 000000000..383d7c24e --- /dev/null +++ b/modules/statistics/help/fr_FR/cdf/cdfgam.xml @@ -0,0 +1,180 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="cdfgam"> + <refnamediv> + <refname>cdfgam</refname> + <refpurpose>fonction de répartition de la distribution gamma </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis>[P,Q]=cdfgam("PQ",X,Shape,Scale) + [X]=cdfgam("X",Shape,Scale,P,Q) + [Shape]=cdfgam("Shape",Scale,P,Q,X) + [Scale]=cdfgam("Scale",P,Q,X,Shape) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>P,Q,X,Shape,Scale </term> + <listitem> + <para>5 vecteurs réels de même taille. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para> L'intégrale de 0 à X de la distribution gamma En entrée : [0,1]. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>X </term> + <listitem> + <para> Borne supérieure d'intégration En entrée : [0, +infini). En recherche : [0,1E300] + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Shape </term> + <listitem> + <para> Le paramètre de forme de la distribution En entrée : (0, +infini). En recherche : [1E-300,1E300] + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Scale </term> + <listitem> + <para> le paramètre d'échelle de la distribution En entrée : (0, +infini). En recherche : (1E-300,1E300] + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Étant donnés les autres, calcule un paramètre de la distribution gamma. + </para> + <para> + La fonction de répartition (P) est calculée directement par + le code associé à + </para> + <para> + DiDinato, A. R. and Morris, A. H. Computation of the incomplete + gamma function ratios and their inverse. ACM Trans. Math. + Softw. 12 (1986), 377-393. + </para> + <para> + Le calcul des autres paramètres implique une recherche d'une valeur conduisant à la valeur désirée pour P. La recherche dépend de la monotonicité de P par rapport aux autres paramètres. + </para> + <para> + La distribution gamma est proportionnelle à + <literal>T**(SHAPE - 1) * EXP(- SCALE * T)</literal> + </para> + <para> + Tiré de la bibliothèque DCDFLIB: Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters (February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + <refsection> + <title>Exemples</title> + <para> + Dans l'exemple suivant, on calcule la probabilité de l'événement <literal>x=0.1</literal> + pour la fonction de distribution Gamma avec <literal>Shape=1.0</literal> et + <literal>Rate=1.0</literal>. + </para> + <programlisting role="example"><![CDATA[ + Shape = 0.1 + Rate = 1.0 + x = 0.1 + // Attendu : P = 0.8275518 + [P,Q]=cdfgam("PQ",x,Shape,Rate) + ]]></programlisting> + <para> + Dans l'exemple suivant, on calcule la probabilité de l'événement <literal>x=0.1</literal> + et vérifié que les algorithmes de recherche permettent d'inverser la fonction. + </para> + <programlisting role="example"><![CDATA[ + Shape = 0.1 + Rate = 2.0 + x = 0.3 + [P,Q] = cdfgam("PQ",x,Shape,Rate) + [X1] = cdfgam("X",Shape,Rate,P,Q) + [Shape1] = cdfgam("Shape",Rate,P,Q,x) + [Rate1] = cdfgam("Rate",P,Q,x,Shape) + ]]></programlisting> + <para> + Dans l'exemple suivant, on dessine la fonction de distribution Gamma + pour différentes valeurs de Shape et Rate. + </para> + <programlisting role="example"><![CDATA[ + N = 1000; + x = linspace(0,20,N)'; + Shape = [1 2 3 5 9]; + Rate = 1 ./ [2 2 2 1 0.5]; + C = ["red" "green" "blue" "cyan" "orange"]; + lstr = []; + drawlater(); + h = gcf(); + for i = 1 : 5 + P = cdfgam("PQ",x,Shape(i)*ones(N,1),Rate(i)*ones(N,1)); + lstr(i) = msprintf("Shape=%s, Rate=%s",string(Shape(i)),string(Rate(i))); + plot(x,P); + h.children.children(1).children.foreground = color(C(i)); + end + legend(lstr); + xtitle("CDF de la fonction de distribution Gamma","X","P"); + drawnow(); + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>Voir aussi</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbet">cdfbet</link> + </member> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="cdfchi">cdfchi</link> + </member> + <member> + <link linkend="cdfchn">cdfchn</link> + </member> + <member> + <link linkend="cdff">cdff</link> + </member> + <member> + <link linkend="cdffnc">cdffnc</link> + </member> + <member> + <link linkend="cdfnbn">cdfnbn</link> + </member> + <member> + <link linkend="cdfnor">cdfnor</link> + </member> + <member> + <link linkend="cdfpoi">cdfpoi</link> + </member> + <member> + <link linkend="cdft">cdft</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/cdf/cdfnbn.xml b/modules/statistics/help/fr_FR/cdf/cdfnbn.xml new file mode 100755 index 000000000..c48f39191 --- /dev/null +++ b/modules/statistics/help/fr_FR/cdf/cdfnbn.xml @@ -0,0 +1,152 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="cdfnbn"> + <refnamediv> + <refname>cdfnbn</refname> + <refpurpose>fonction de répartition de la distribution binomiale négative </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis>[P,Q]=cdfnbn("PQ",S,Xn,Pr,Ompr) + [S]=cdfnbn("S",Xn,Pr,Ompr,P,Q) + [Xn]=cdfnbn("Xn",Pr,Ompr,P,Q,S) + [Pr,Ompr]=cdfnbn("PrOmpr",P,Q,S,Xn) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>P,Q,S,Xn,Pr,Ompr </term> + <listitem> + <para>six vecteurs réels de même taille. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>La somme de 0 à S de la distribution binomiale négative En entrée : [0,1]. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>S </term> + <listitem> + <para>Borne supérieure de la somme Il y a F (ou moins) échecs avant le Xième succès. En entrée : [0, +infini). En recherche : [0, 1E300] + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Xn </term> + <listitem> + <para> Le nombre de succès. En entrée : [0, +infini). En recherche : [0, 1E300] + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Pr </term> + <listitem> + <para> La probabilité de succès pour chaque essai binomial En entrée : [0,1]. En recherche : [0,1]. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Ompr </term> + <listitem> + <para> 1-PR En entrée : [0,1]. En recherche : [0,1] PR + OMPR = 1.0 + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Étant donnés les autres, calcule un paramètre de la distribution binomiale négative. + </para> + <para> + Cette distribution renvoie la probabilité d'avoir + F échecs ou moins avant un succès dans des essais binomiaux, où la probabilité de succès est PR. + </para> + <para> + Les termes individuels sont égaux à la probabilité de + S échecs avant XN succès qui est égale à + Choisir( S, XN+S-1 ) * PR^(XN) * (1-PR)^S + </para> + <para> + La formule 26.5.26 de Abramowitz et Stegun, Handbook of + Mathematical Functions (1966) est utilisée pour réduire le calcul de la fonction de répartition de la distribution à celle d'une loi beta incomplète. + </para> + <para> + Le calcul des autres paramètres implique une recherche d'une valeur conduisant à la valeur désirée pour P. La recherche dépend de la monotonicité de P par rapport aux autres paramètres. + </para> + <para> + Tiré de la bibliothèque DCDFLIB: Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters (February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + <refsection> + <title>Exemples</title> + <para> + Dans l'exemple suivant, on calcule la probabilité de l'événement <literal>S=2</literal> + pour la fonction de distribution négative binomiale avec <literal>Xn=3</literal>, + <literal>Pr=0.7</literal> et <literal>Ompr=0.3</literal>. + </para> + <programlisting role="example"><![CDATA[ + S = 2; + Xn = 3; + Pr = 0.7; + Ompr = 0.3; + // Expected : P = 0.83692 and Q = 1-P + [P, Q] = cdfnbn("PQ", S, Xn, Pr, Ompr) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>Voir aussi</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbet">cdfbet</link> + </member> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="cdfchi">cdfchi</link> + </member> + <member> + <link linkend="cdfchn">cdfchn</link> + </member> + <member> + <link linkend="cdff">cdff</link> + </member> + <member> + <link linkend="cdffnc">cdffnc</link> + </member> + <member> + <link linkend="cdfgam">cdfgam</link> + </member> + <member> + <link linkend="cdfnor">cdfnor</link> + </member> + <member> + <link linkend="cdfpoi">cdfpoi</link> + </member> + <member> + <link linkend="cdft">cdft</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/cdf/cdfnor.xml b/modules/statistics/help/fr_FR/cdf/cdfnor.xml new file mode 100755 index 000000000..3142d84c1 --- /dev/null +++ b/modules/statistics/help/fr_FR/cdf/cdfnor.xml @@ -0,0 +1,287 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="cdfnor"> + <refnamediv> + <refname>cdfnor</refname> + <refpurpose>fonction de répartition de la distribution normale </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis>[P,Q]=cdfnor("PQ",X,Mean,Std) + [X]=cdfnor("X",Mean,Std,P,Q) + [Mean]=cdfnor("Mean",Std,P,Q,X) + [Std]=cdfnor("Std",P,Q,X,Mean) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>P,Q,X,Mean,Std </term> + <listitem> + <para>six vecteurs réels de même taille. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>L'intégrale de -infini à X de la densité normale En entrée : (0,1]. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>X </term> + <listitem> + <para>Borne supérieure d'intégration En entrée : ( -infini, +infini) + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Mean </term> + <listitem> + <para>moyenne de la densité En entrée : (-infini, +infini) + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Sd </term> + <listitem> + <para>écart-type de la densité En entrée : (0, +infini). + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Étant donnés les autres, calcule un paramètre de la distribution normale. + </para> + <para> + Une version légèrement modifiée de ANORM : + </para> + <para> + Cody, W.D. (1993). "ALGORITHM 715: SPECFUN - A Portable FORTRAN + Package of Special Function Routines and Test Drivers" + acm Transactions on Mathematical Software. 19, 22-32. + </para> + <para> + est utilisée. + </para> + <para> + Les fonctions rationnelles des pages 90-95 de + </para> + <para> + Kennedy and Gentle, + Statistical Computing, Marcel Dekker, NY, 1980 + </para> + <para> + sont utilisées comme valeurs de départ pour les itérations de Newton calculant l'inverse de la distribution. Aucune recherche n'est donc nécessaire pour aucun des paramètres. + </para> + <para> + Pour X < -15, le développement asymptotique de la loi normale est utilisé comme valeur de départ pour trouver l'inverse. Il s'agit de la formule 26.2.12 de Abramowitz et Stegun. + </para> + <para> + La densité normale est proportionnelle à + exp( - 0.5 * (( X - MEAN)/SD)**2) + </para> + <para> + Tiré de la bibliothèque DCDFLIB: Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters (February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + <refsection> + <title>Exemples</title> + <programlisting role="example"><![CDATA[ +// Calculer p à partir de x +x = -1; +Mean = 0; +Std = 1; +// P = 0.1586553, Q = 0.8413447 +[P,Q]=cdfnor("PQ",x,Mean,Std) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// Calculer p à partir d'un x très rare +// Noter que Q doit être utilisé lorsque P est proche de 1, +// alors que P doit être utilisé lorsque Q est proche de 1. +x = 10; +Mean = 0; +Std = 1; +// P = 1, Q = 7.620D-24 +[P,Q]=cdfnor("PQ",x,Mean,Std) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// Créer une table de P,Q +Mean = 0; +Std = 1; +x = -6:6; +[P,Q]=cdfnor("PQ",x,Mean*ones(x),Std*ones(x)); +[x' P' Q'] + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// Trouver x à partir de p,q +Mean = 0; +Std = 1; +p = 0.1; +q = 0.9; +// x = - 1.2815516 +x = cdfnor("X",Mean,Std,p,q) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// Trouver Mean à partir de p,q +x = 2; +Std = 1; +p = 0.1; +q = 0.9; +// Mean = 3.2815516 +Mean = cdfnor("Mean",Std,p,q,x) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// Trouver l'écart-type Std à partir p,q +Mean = 0; +p = 0.1; +q = 0.9; +x = 2; +// Std = - 1.5606083 +Std = cdfnor("Std",p,q,x,Mean) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// Afficher la fonction +h = scf(); +Mean = [0 0 0 -2]; +Std2 = [0.2 1.0 5.0 0.5]; +cols = [1 2 3 4]; +nf = size(cols,"*"); +lgd = []; +for k = 1 : nf + x = linspace(-5,5,1000); + P=cdfnor("PQ",x,Mean(k)*ones(x),sqrt(Std2(k))*ones(x)); + plot(x,P) + str = msprintf("Mean=%s, Std^2=%s",string(Mean(k)),string(Std2(k))); + lgd($+1) = str; +end +for k = 1 : nf +h.children.children.children(nf - k + 1).foreground = cols(k); +end +legend(lgd); + ]]></programlisting> + <scilab:image> + h = scf(); + Mean = [0 0 0 -2]; + Std2 = [0.2 1.0 5.0 0.5]; + cols = [1 2 3 4]; + nf = size(cols,"*"); + lgd = []; + for k = 1 : nf + x = linspace(-5,5,1000); + P=cdfnor("PQ",x,Mean(k)*ones(x),sqrt(Std2(k))*ones(x)); + plot(x,P) + str = msprintf("Mean=%s, Std^2=%s",string(Mean(k)),string(Std2(k))); + lgd($+1) = str; + end + for k = 1 : nf + h.children.children.children(nf - k + 1).foreground = cols(k); + end + legend(lgd); + </scilab:image> + + <programlisting role="example"><![CDATA[ +// Afficher la fonction fonction standard cumulative inverse +Mean = 0; +Std = 1; +p = linspace(1e-10,1-1e-10,1000); +q = 1-p; +x = cdfnor("X",Mean*ones(p),Std*ones(p),p,q); +plot(p,x) +xtitle("Fonction standard cumulative inverse","p","x"); + ]]></programlisting> + <scilab:image localized="true"> + Mean = 0; + Std = 1; + p = linspace(1e-10,1-1e-10,1000); + q = 1-p; + x = cdfnor("X",Mean*ones(p),Std*ones(p),p,q); + plot(p,x) + xtitle("Fonction standard cumulative inverse","p","x"); + </scilab:image> + <programlisting role="example"><![CDATA[ +// La fonction Inverse Normale CDF est mal conditionnée lorsque +// p est proche de p=0.5. +// Ceci parce-que, à p=0.5, la première dérivée est non nulle, +// mais la fonction est nulle. +// Ceci peut produire une erreur relative très large dans la fonction, +// c'est-à -dire que des décimales sont susceptibles d'êtres de plus en plus fausses +// lorsque p s'approche de p=0.5. +Mean = 0; +Std = 1; +p = 0.500000001; +q = 1-p; +x = cdfnor("X",Mean,Std,p,q) +// La probabilité attendue a été calculée dans un software symbolique, +// avec l'expression sqrt(2)*erfinv(2*p-1) +// où p = 1/2+10^-9. +expected = 2.50662827463100050e-9; +// L'erreur relative est d'environ 1.e-8, ce qui veut dire que +// seulement 8 décimales sont correctes. +abs(x-expected)/abs(expected) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// L'agorithme de traversée de zéro peut être incapable de déterminer l'écart-type +// dans certaines situations, quand l'inversion ne peut pas avoir lieu. +Mean = 1; +p = 0.5; +q = 0.5; +x = 1; +// Std = Nan +Std = cdfnor("Std",p,q,x,Mean) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>Voir aussi</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbet">cdfbet</link> + </member> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="cdfchi">cdfchi</link> + </member> + <member> + <link linkend="cdfchn">cdfchn</link> + </member> + <member> + <link linkend="cdff">cdff</link> + </member> + <member> + <link linkend="cdffnc">cdffnc</link> + </member> + <member> + <link linkend="cdfgam">cdfgam</link> + </member> + <member> + <link linkend="cdfnbn">cdfnbn</link> + </member> + <member> + <link linkend="cdfpoi">cdfpoi</link> + </member> + <member> + <link linkend="cdft">cdft</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/cdf/cdfpoi.xml b/modules/statistics/help/fr_FR/cdf/cdfpoi.xml new file mode 100755 index 000000000..aa34d9081 --- /dev/null +++ b/modules/statistics/help/fr_FR/cdf/cdfpoi.xml @@ -0,0 +1,124 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="cdfpoi"> + <refnamediv> + <refname>cdfpoi</refname> + <refpurpose>fonction de répartition de la distribution de Poisson </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis>[P,Q]=cdfpoi("PQ",S,Xlam) + [S]=cdfpoi("S",Xlam,P,Q) + [Xlam]=cdfpoi("Xlam",P,Q,S); + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>P,Q,S,Xlam </term> + <listitem> + <para>4 vecteurs réels de même taille. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>La somme de 0 à S de la densité de Poisson. En entrée : [0,1]. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>S </term> + <listitem> + <para>Matrice d'entiers. Borne supérieure de la somme. En entrée : [0, +infini). En recherche : [0,1E300] + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Xlam </term> + <listitem> + <para>Moyenne de la distribution. En entrée : [0, +infini). En recherche : [0,1E300] + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Étant donnés les autres, calcule un paramètre de la distribution de Poisson. + </para> + <para> + La formule 26.4.21 de Abramowitz et Stegun, Handbook of + Mathematical Functions (1966) est utilisée pour réduire le calcul de la fonction de répartition de la distribution à celle d'une loi gamma incomplète. + </para> + <para> + </para> + <para> + Tiré de la bibliothèque DCDFLIB: Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters (February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + <refsection> + <title>Exemples</title> + <para> + Dans l'exemple suivant, on calcule la probabilité de l'événement <literal>S=2</literal> + pour la fonction de distribution de Poisson avec <literal>Xlam=3</literal>. + </para> + <programlisting role="example"><![CDATA[ + S = 2; + Xlam = 3; + // Expected : P = 0.4231901 and Q = 1-P + [P, Q] = cdfpoi("PQ", S, Xlam) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>Voir aussi</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbet">cdfbet</link> + </member> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="cdfchi">cdfchi</link> + </member> + <member> + <link linkend="cdfchn">cdfchn</link> + </member> + <member> + <link linkend="cdff">cdff</link> + </member> + <member> + <link linkend="cdffnc">cdffnc</link> + </member> + <member> + <link linkend="cdfgam">cdfgam</link> + </member> + <member> + <link linkend="cdfnbn">cdfnbn</link> + </member> + <member> + <link linkend="cdfnor">cdfnor</link> + </member> + <member> + <link linkend="cdft">cdft</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/cdf/cdft.xml b/modules/statistics/help/fr_FR/cdf/cdft.xml new file mode 100755 index 000000000..152dc65d8 --- /dev/null +++ b/modules/statistics/help/fr_FR/cdf/cdft.xml @@ -0,0 +1,123 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="cdft"> + <refnamediv> + <refname>cdft</refname> + <refpurpose>fonction de répartition de la distribution de Student </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis>[P,Q]=cdft("PQ",T,Df) + [T]=cdft("T",Df,P,Q) + [Df]=cdft("Df",P,Q,T) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>P,Q,T,Df </term> + <listitem> + <para>six vecteurs réels de même taille. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>l'intégrale de -infini à T de la densité de Student. comprise entre : (0,1]. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>T </term> + <listitem> + <para>borne d'intégration supérieure. En entrée : ( -infini, +infini). En recherche : [ -1E150, 1E150 ] + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Df</term> + <listitem> + <para> + Degrés de libertés de la distribution. En entrée : (0 , +infini). En recherche : [1e-300, 1E10] + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Étant donnés les autres, calcule un paramètre de la distribution de Student. + </para> + <para> + La formule 26.5.27 de Abramowitz et Stegun, Handbook of + Mathematical Functions (1966) est utilisée pour réduire le calcul de la fonction de répartition de la distribution à celle d'une loi beta incomplète. + </para> + <para> + Le calcul des autres paramètres implique une recherche d'une valeur conduisant à la valeur désirée pour P. La recherche dépend de la monotonicité de P par rapport aux autres paramètres. + </para> + <para> + Il arrive dans certains cas que les degrés de liberté ne soient pas des entiers. Scilab affiche alors un avertissement. + </para> + </refsection> + <refsection> + <title>Exemples</title> + <para> + Dans l'exemple suivant, on calcule la probabilité de l'événement <literal>T=5</literal> + pour la fonction de distribution de Student avec <literal>Df=2</literal>. + </para> + <programlisting role="example"><![CDATA[ + T = 5; + Df = 2; + // Expected : P = 0.9811252 and Q = 1-P + [P, Q] = cdft("PQ", T, Df) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>Voir aussi</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbet">cdfbet</link> + </member> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="cdfchi">cdfchi</link> + </member> + <member> + <link linkend="cdfchn">cdfchn</link> + </member> + <member> + <link linkend="cdff">cdff</link> + </member> + <member> + <link linkend="cdffnc">cdffnc</link> + </member> + <member> + <link linkend="cdfgam">cdfgam</link> + </member> + <member> + <link linkend="cdfnbn">cdfnbn</link> + </member> + <member> + <link linkend="cdfnor">cdfnor</link> + </member> + <member> + <link linkend="cdfpoi">cdfpoi</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/central_tendency/CHAPTER b/modules/statistics/help/fr_FR/central_tendency/CHAPTER new file mode 100755 index 000000000..de4b42347 --- /dev/null +++ b/modules/statistics/help/fr_FR/central_tendency/CHAPTER @@ -0,0 +1,2 @@ +title = Central Tendency + diff --git a/modules/statistics/help/fr_FR/data_missing_values/CHAPTER b/modules/statistics/help/fr_FR/data_missing_values/CHAPTER new file mode 100755 index 000000000..c127dfd8b --- /dev/null +++ b/modules/statistics/help/fr_FR/data_missing_values/CHAPTER @@ -0,0 +1,2 @@ +title = Data with Missing Values + diff --git a/modules/statistics/help/fr_FR/data_missing_values/nancumsum.xml b/modules/statistics/help/fr_FR/data_missing_values/nancumsum.xml new file mode 100755 index 000000000..0aaf21117 --- /dev/null +++ b/modules/statistics/help/fr_FR/data_missing_values/nancumsum.xml @@ -0,0 +1,91 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="nancumsum"> + <refnamediv> + <refname>nancumsum</refname> + <refpurpose>Somme cumulative ignorant les valeurs NaNs + </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis>s = nancumsum(x,orient)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>une matrice de réels, de complexes, de booléens ou de polynômes.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>orient</term> + <listitem> + <para>(optionnel) cet argument peut prendre les valeurs + "*", 1, 2, "r" ou "c". + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>s</term> + <listitem> + <para>un scalaire ou une matrice, contenant la somme + cumulative des valeurs de x, où les NaNs sont ignorés. + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + La fonction renvoie dans <literal>s</literal> + la somme cumulative des éléments de <literal>x </literal>, où les NaN ne sont + pris en compte. + </para> + <para> + <literal>s=nancumsum(x)</literal> équivalent à <literal>s=nancumsum(x)</literal> + retourne dans s, la somme cumulative (ignorant les NaNs) de tous les éléments de + <literal>x</literal>. + </para> + <para> + <literal>s=nancumsum(x,"r")</literal> équivalent à <literal>s=nancumsum(x,1)</literal> + retourne la somme cumulative (ignorant les NaNs) des lignes de <literal>x</literal>. + </para> + <para> + <literal>s=nancumsum(x,"c")</literal> équivalent à <literal>s=nancumsum(x,2)</literal> + retourne la somme cumulative (ignorant les NaNs) des colonnes de <literal>x</literal>. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +a=[1 2 %nan;%nan 5 6] +s=nancumsum(a) +s=nancumsum(a,'r') +s=nancumsum(a,'c') + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="nansum">nansum</link> + </member> + <member> + <link linkend="cumsum">cumsum</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/data_missing_values/nanreglin.xml b/modules/statistics/help/fr_FR/data_missing_values/nanreglin.xml new file mode 100755 index 000000000..45820363a --- /dev/null +++ b/modules/statistics/help/fr_FR/data_missing_values/nanreglin.xml @@ -0,0 +1,145 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2014 - Scilab Enterprises - Paul Bignier + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr_FR" xml:id="nanreglin"> + <refnamediv> + <refname>nanreglin</refname> + <refpurpose>Régréssion linéaire</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis>[a,b]=nanreglin(x,y)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>x, y, a, b</term> + <listitem> + <para>Vecteurs or Matrices numériques.</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Résout le problème de régréssion <literal>y=a*x+b</literal> au sens des moindres carrés. + <literal>x</literal> et <literal>y</literal> sont deux matrices de taille + <literal>x(p,n)</literal> et <literal>y(q,n)</literal>, où <literal>n</literal> + est le nombre d'échantillons. + </para> + <para> + L'estimateur <literal>a</literal> est une matrice de taille <literal>(q,p)</literal> et <literal>b</literal> est un + vecteur de taille <literal>(q,1)</literal>. + </para> + <para> + Chaque ligne de <literal>y</literal> est traitée comme un problème indépendant, si <literal>x</literal> + ou <literal>y</literal> contient un NaN (<literal>x(i,j) = %nan</literal> ou <literal>y(i,j) = %nan</literal>), + alors <literal>x(:,j)</literal> et <literal>y(i,j)</literal> sont ignorés, + comme si le point [x(:,j); y(i,j)] n'existait pas. + </para> + </refsection> + <refsection> + <title>Exemples</title> + <para> + Exemple graphique #1 : + </para> + <programlisting role="example"><![CDATA[ +// Dans l'exemple suivant, les deux problèmes représentent deux lignes droites : +// l'une va de (0,0) à (10,10) et l'autre va de (0,20) à (10,30). +// reglin et nanreglin trouvent les mêmes valeurs parce-que tous les points sont alignés et les NaN ont été ignorés. +subplot(211) +x = 0:10; +y = 20:30; +[a1, b1] = reglin(x, [x ; y]); +plot(x', (a1*x+repmat(b1,1,11))', "red") + +subplot(212) +y2 = y; +y2(2:10) = %nan; // Leaving y2(1) and y2(11) unchanged. +[a2, b2] = nanreglin(x, [x ; y2]) +plot(x', (a2*x+repmat(b2,1,11))', "blue") + ]]></programlisting> + <scilab:image> + subplot(211) + x = 0:10; + y = 20:30; + [a1, b1] = reglin(x, [x ; y]); + plot(x', (a1*x+repmat(b1,1,11))', "red") + subplot(212) + y2 = y; + y2(2:10) = %nan; + [a2, b2] = nanreglin(x, [x ; y2]) + plot(x', (a2*x+repmat(b2,1,11))', "blue") + </scilab:image> + <para> + Exemple graphique #2 : + </para> + <programlisting role="example"><![CDATA[ +// Maintenant les deux problèmes représentent une ligne droite (reglin(x, x)) de (0,0) à (2,2), +// mais alors que le deuxième argument du premier problème (reglin(x, y)) représente +// une droite plate (d'équation y = 1), le second argument du deuxième problème +// (reglin(x, y2)) ignore le point central de y (mis à %nan) donc la droite est maintenant +// d'équation y = 0, parce-que les deux points restants sont (0,0) et (2,0). +subplot(211) +x = 0:2; +y = [0 3 0]; +[a1, b1] = reglin(x, [x ; y]); +plot(x', (a1*x+repmat(b1,1,3))', "red") + +subplot(212) +y2 = y; +y2(2) = %nan; // y2 = [0 %nan 0]; +[a2, b2] = nanreglin(x, [x ; y2]); +plot(x', (a2*x+repmat(b2,1,3))', "blue") + ]]></programlisting> + <scilab:image> + subplot(211) + x = 0:2; + y = [0 3 0]; + [a1, b1] = reglin(x, [x ; y]); + plot(x', (a1*x+repmat(b1,1,3))', "red") + subplot(212) + y2 = y; + y2(2) = %nan; // y2 = [0 %nan 0]; + [a2, b2] = nanreglin(x, [x ; y2]); + plot(x', (a2*x+repmat(b2,1,3))', "blue") + </scilab:image> + </refsection> + <refsection role="see also"> + <title>Voir aussi</title> + <simplelist type="inline"> + <member> + <link linkend="reglin">reglin</link> + </member> + <member> + <link linkend="pinv">pinv</link> + </member> + <member> + <link linkend="leastsq">leastsq</link> + </member> + <member> + <link linkend="qr">qr</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>Historique</title> + <revhistory> + <revision> + <revnumber>5.5.0</revnumber> + <revdescription>Introduction</revdescription> + </revision> + </revhistory> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/descriptive_statistics/CHAPTER b/modules/statistics/help/fr_FR/descriptive_statistics/CHAPTER new file mode 100755 index 000000000..60fd56c73 --- /dev/null +++ b/modules/statistics/help/fr_FR/descriptive_statistics/CHAPTER @@ -0,0 +1,2 @@ +title = Descriptive Statistics + diff --git a/modules/statistics/help/fr_FR/descriptive_statistics/histc.xml b/modules/statistics/help/fr_FR/descriptive_statistics/histc.xml new file mode 100755 index 000000000..bf9cc3ff6 --- /dev/null +++ b/modules/statistics/help/fr_FR/descriptive_statistics/histc.xml @@ -0,0 +1,228 @@ +<?xml version='1.0' encoding='UTF-8'?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2013 - Scilab Enterprises - Paul Bignier + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --><!-- This document was created with Syntext Serna Free. --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="histc"> + <refnamediv> + <refname>histc</refname> + <refpurpose>calcule un histogramme</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis> + [cf, ind] = histc(n, data [,normalization]) + [cf, ind] = histc(x, data [,normalization]) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>n</term> + <listitem> + <para>entier positif (nombre de classes)</para> + </listitem> + </varlistentry> + <varlistentry> + <term>x</term> + <listitem> + <para> + vecteur croissant définissant les classes (<literal>x</literal> doit avoir au moins 2 éléments) + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>data</term> + <listitem> + <para> + vecteur (données à analyser) + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>cf</term> + <listitem> + <para> + vecteur représentant le nombre de valeurs de <varname>data</varname> + tombant dans les classes définies par <varname>n</varname> ou <varname>x</varname> + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>ind</term> + <listitem> + <para> + vecteur ou matrice de même taille que <varname>data</varname>, + représentant l'appartenance respective de chaque élément de <varname>data</varname> + aux classes définies par <varname>n</varname> ou <varname>x</varname> + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>normalization</term> + <listitem> + <para> + scalaire booléen. + <varname>normalization=%f (par défaut)</varname>: <varname>cf</varname> représente le nombre total de points dans chaque classe, + <varname>normalization=%t</varname>: <varname>cf</varname> représente le nombre de points dans chaque classe, relativement au nombre total de points + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Cette fonction calcule un histogramme du vecteur <literal>data</literal> d'après les classes + <literal>x</literal>. Quand le nombre de classes <literal>n</literal> est fourni + au lieu de <literal>x</literal>, les classes sont choisies également espacées et + <emphasis>x(1) = min(data) < x(2) = x(1) + dx < ... < x(n+1) = max(data)</emphasis> + avec <emphasis>dx = (x(n+1)-x(1))/n</emphasis>. + </para> + <para> + Les classes sont définies par <literal>C1 = [x(1), x(2)]</literal> et <literal>Ci = ( x(i), x(i+1)]</literal> pour i >= 2. + Si l'on note <literal>Nmax</literal> le nombre total de <literal>data</literal> (Nmax = length(data)) + et <literal>Ni</literal> le nombre d'éléments de <literal>data</literal> tombant dans + <literal>Ci</literal>, la valeur de l'histogramme pour <literal>x</literal> dans + <literal>Ci</literal> est égal à <emphasis>Ni/(Nmax (x(i+1)-x(i)))</emphasis> quand + <literal>"normalized"</literal> est séléctionné et sinon, simplement égal à <emphasis>Ni</emphasis>. + Quand la normalisation a lieu, l'histogramme vérifie: + </para> + <para> + <latex style="display"><![CDATA[ \int_{x(1)}^{x(n+1)}h(x)\,\mathrm{d}x=1 ]]></latex> + </para> + <para> + quand <emphasis>x(1)<=min(data)</emphasis> et <emphasis>max(data) <= x(n+1)</emphasis> + </para> + </refsection> + <refsection> + <title>Exemples</title> + <simplelist> + <member> Exemple #1: variations sur l'histogramme d'un échantillon gaussien N(0,1) + <programlisting role="example"><![CDATA[ +// L'échantillon aléatoire gaussien +d = rand(1, 10000, 'normal'); + +[cf, ind] = histc(20, d, normalization=%f) +// On utilise histplot pour avoir une représentation graphique +clf(); histplot(20, d, normalization=%f); + +[cf, ind] = histc(20, d) +clf(); histplot(20, d); +]]></programlisting> + <scilab:image> + d = rand(1, 10000, 'normal'); + [cf, ind] = histc(20, d) + clf(); histplot(20, d); + </scilab:image> + </member> + <member> + Exemple #2: histogramme d'un échantillon de loi binomiale B(6,0.5) + <programlisting role="example"><![CDATA[ +d = grand(1000,1,"bin", 6, 0.5); +c = linspace(-0.5,6.5,8); +clf() +subplot(2,1,1) +[cf, ind] = histc(c, d) +histplot(c, d, style=2); +xtitle("Normalized histogram") +subplot(2,1,2) +[cf, ind] = histc(c, d, normalization=%f) +histplot(c, d, normalization=%f, style=5); +xtitle("Non normalized histogram") +]]></programlisting> + <scilab:image localized="true"> + d = grand(1000,1,"bin", 6, 0.5); + c = linspace(-0.5,6.5,8); + clf() + subplot(2,1,1) + [cf, ind] = histc(c, d) + histplot(c, d, style=2); + xtitle("Normalized histogram") + subplot(2,1,2) + [cf, ind] = histc(c, d, normalization=%f) + histplot(c, d, normalization=%f, style=5); + xtitle("Non normalized histogram") + </scilab:image> + </member> + <member> + Exemple #3: histogramme d'un échantillon de loi exponentielle E(lambda) + <programlisting role="example"><![CDATA[ +lambda = 2; +X = grand(100000,1,"exp", 1/lambda); +Xmax = max(X); +[cf, ind] = histc(40, X) +clf() +histplot(40, X, style=2); +x = linspace(0, max(Xmax), 100)'; +plot2d(x, lambda*exp(-lambda*x), strf="000", style=5) +legend(["exponential random sample histogram" "exact density curve"]); +]]></programlisting> + <scilab:image localized="true"> + lambda = 2; + X = grand(100000,1,"exp", 1/lambda); + Xmax = max(X); + [cf, ind] = histc(40, X) + clf() + histplot(40, X, style=2); + x = linspace(0, max(Xmax), 100)'; + plot2d(x, lambda*exp(-lambda*x), strf="000", style=5) + legend(["exponential random sample histogram" "exact density curve"]); + </scilab:image> + </member> + <member> + Exemple #4: la fréquence polygonale et l'histogramme d'un échantillon gaussien + <programlisting role="example"><![CDATA[ +n = 10; +data = rand(1, 1000, "normal"); +[cf, ind] = histc(n, data) +clf(); histplot(n, data, style=12, polygon=%t); +legend(["normalized histogram" "frequency polygon chart"]); +]]></programlisting> + <scilab:image localized="true"> + n = 10; + data = rand(1, 1000, "normal"); + [cf, ind] = histc(n, data) + clf(); histplot(n, data, style=12, polygon=%t); + legend(["normalized histogram" "frequency polygon chart"]); + </scilab:image> + </member> + </simplelist> + </refsection> + <refsection role="see also"> + <title>Voir aussi</title> + <simplelist type="inline"> + <member> + <link linkend="histplot">histplot</link> + </member> + <member> + <link linkend="hist3d">hist3d</link> + </member> + <member> + <link linkend="plot2d">plot2d</link> + </member> + <member> + <link linkend="dsearch">dsearch</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>History</title> + <revhistory> + <revision> + <revnumber>5.5.0</revnumber> + <revdescription> + Introduction + </revdescription> + </revision> + </revhistory> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/descriptive_statistics/median.xml b/modules/statistics/help/fr_FR/descriptive_statistics/median.xml new file mode 100755 index 000000000..a70b317ea --- /dev/null +++ b/modules/statistics/help/fr_FR/descriptive_statistics/median.xml @@ -0,0 +1,113 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="median"> + <refnamediv> + <refname>median</refname> + <refpurpose>médiane des termes d'une + matrice + </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis>y=median(x) + y=median(x,'r') + y=median(x,'c') + y=median(x,'m') + y=median(x,dim) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>vecteur ou matrice réelle</para> + </listitem> + </varlistentry> + <varlistentry> + <term>y</term> + <listitem> + <para>scalaire ou vecteur</para> + </listitem> + </varlistentry> + <varlistentry> + <term>dim</term> + <listitem> + <para>entier positif </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Pour un vecteur ou une matrice <literal>x</literal>, <literal>y=median(x)</literal> + renvoie un scalaire <literal>y</literal> égal à  la médiane des termes de + <literal>x</literal>. + </para> + <para> + <literal>y=median(x,'r')</literal> (ou <literal>y=median(x,1)</literal>) est la + médiane selon l'indice de lignes. Chaque composante du vecteur ligne + <literal>y</literal> contient la médiane de chaque colonne de + <literal>x</literal>. + </para> + <para> + <literal>y=median(x,'c')</literal> (ou <literal>y=median(x,2)</literal>) est la + médiane selon l'indice de colonne. Chaque composante du vecteur colonne + <literal>y</literal> contient la médiane de chaque ligne de <literal>x</literal>. + </para> + <para> + <literal>y=median(x,'m')</literal> est la médiane suivant la première + dimension non_singleton de <literal>x</literal>. (compatibilité avec matlab) + </para> + <para> + <literal>y=median(x,dim)</literal> est la médiane suivant la dimension + <literal>dim</literal> de <literal>x</literal>. (compatibilité avec matlab) + </para> + </refsection> + <refsection> + <title>Remarque</title> + <para> + <note> + Si <varname>x</varname> contient des NANs, le résultat correspondra au résultat obtenu avec des Inf. + </note> + </para> + </refsection> + <refsection> + <title>Exemples</title> + <programlisting role="example"><![CDATA[ +A=[1,2,10;7,7.1,7.01]; +median(A) +median(A,'r') +median(A,'c') +A=matrix([-9 3 -8 6 74 39 12 -6 -89 23 65 34],[2,3,2]); +median(A,3) +median(A,'m') + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>Voir aussi</title> + <simplelist type="inline"> + <member> + <link linkend="sum">sum</link> + </member> + <member> + <link linkend="mean">mean</link> + </member> + <member> + <link linkend="stdev">stdev</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/descriptive_statistics/stdev.xml b/modules/statistics/help/fr_FR/descriptive_statistics/stdev.xml new file mode 100755 index 000000000..9a03fab9e --- /dev/null +++ b/modules/statistics/help/fr_FR/descriptive_statistics/stdev.xml @@ -0,0 +1,125 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="stdev"> + <refnamediv> + <refname>stdev</refname> + <refpurpose>écart-type des termes d'une matrice</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis> + y = stdev(x) + y = stdev(x, '*') + y = stdev(x, 'r') + y = stdev(x, 'c') + y = stdev(x, orien, m) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>vecteur, matrice ou hypermatrice réelle + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>y</term> + <listitem> + <para>scalaire, vecteur ou matrice réelle + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>orien</term> + <listitem> + <para> + caractère, peut valoir <literal>"*"</literal>, <literal>"r"</literal> ou <literal>"c"</literal> + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>m</term> + <listitem> + <para>réel : scalaire, vecteur ou hypermatrice, la moyenne a priori</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + stdev calcule l'estimateur sans biais de l'écart-type (normalisé par N-1, ou N est le nombre d'échantillons). + Si <varname>m</varname> est présent, alors <code>stdev</code> retourne l'écart quadratique moyen, normalisé par N, + en utilisant la moyenne a priori définie par <varname>m</varname>. + </para> + <para> + Pour un vecteur ou une matrice <literal>x</literal>, <literal>y=stdev(x)</literal> renvoie dans <literal>y</literal> l'écart-type des termes de <literal>x</literal>. + </para> + <para> + <literal>y=stdev(x,'r')</literal> (ou <literal>y=stdev(x,1)</literal>) est l'écart-type suivant l'indice de ligne. Chaque composante du vecteur ligne <literal>y</literal> contient l'écart-type de chaque colonne de <literal>x</literal>. + </para> + <para> + </para> + <para> + <literal>y=stdev(x,'c')</literal> (ou <literal>y=stdev(x,2)</literal>) est l'écart-type selon l'indice de colonne. Chaque composante du vecteur colonne <literal>y</literal> contient l'écart-type de chaque ligne de <literal>x</literal>. + </para> + <para> + Par extension, <literal>y=stdev(x,n)</literal> avec <literal>n</literal> un entier positif retourne la déviation + suivant la <literal>n</literal>-ème dimension, et si <literal>n>ndims(x)</literal>, alors <literal>stdev(x,n)</literal> retourne <literal>zeros(x)</literal>. + </para> + </refsection> + <refsection> + <title>Exemples</title> + <programlisting role="example"><![CDATA[ +A = [1 2 10; 7 7.1 7.01]; +stdev(A) +stdev(A, 'r') +stdev(A, 'c') +stdev(A, 'c', mean(x,'c')) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>Voir aussi</title> + <simplelist type="inline"> + <member> + <link linkend="nanstdev">nanstdev</link> + </member> + <member> + <link linkend="stdevf">stdevf</link> + </member> + <member> + <link linkend="sum">sum</link> + </member> + <member> + <link linkend="median">median</link> + </member> + <member> + <link linkend="mean">mean</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>Historique</title> + <revhistory> + <revision> + <revnumber>5.5.0</revnumber> + <revdescription> + Peut désormais calculer l'écart-type moyen quadratique en utilisant la moyenne a priori définie par <varname>m</varname> + </revdescription> + </revision> + </revhistory> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/descriptive_statistics/variance.xml b/modules/statistics/help/fr_FR/descriptive_statistics/variance.xml new file mode 100755 index 000000000..bd836776e --- /dev/null +++ b/modules/statistics/help/fr_FR/descriptive_statistics/variance.xml @@ -0,0 +1,231 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2013 - Samuel GOUGEON + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="variance"> + <refnamediv> + <refname>variance</refname> + <refpurpose>variance d'un vecteur, matrice (voire hypermatrice) de nombres réels ou complexes</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis> + [s, [mc]] = variance(x [,orien [,m]]) + + [s, mc] = variance(x) + [s, mc] = variance(x, "r"|1 ) + [s, mc] = variance(x, "c"|2 ) + [s, mc] = variance(x, "*" , %nan) + [s, mc] = variance(x, "r"|1, %nan) + [s, mc] = variance(x, "c"|2, %nan) + s = variance(x, "*", m) + s = variance(x, "r", m) + s = variance(x, "c", m) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para> + vecteur ou matrice de nombres réels ou complexes. Une hypermatrice est acceptable uniquement sans les options "r" ou "c" : <literal>variance(x)</literal> or <literal>variance(x,"*",m)</literal> + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>orien</term> + <listitem> + <para> + variance selon les lignes ou les colonnes de <varname>x</varname>. Les valeurs possibles sont + <itemizedlist> + <listitem> + 1 or "r" : calcul par colonne. Le résultat est un vecteur <varname>r</varname>angée (ligne) + </listitem> + <listitem> + 2 or "c" : calcul par ligne. Le résultat est une <varname>c</varname>olonne + </listitem> + <listitem> + "*" : calcul tous les éléments de <varname>x</varname> confondus (mode utilisé par défaut); requis si le 3ème paramètre <varname>m</varname> doit être utilisé. + </listitem> + </itemizedlist> + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>m</term> + <listitem> + <para> + Espérance mathématique de la loi de distribution de probabilité sous-jacente (supposée connue). + <itemizedlist> + <listitem> + mode "*" (par défaut) : <varname>m</varname> doit être scalaire + </listitem> + <listitem> + mode "r" or 1 : <varname>m</varname> un vecteur ligne à <literal>size(x,2)</literal> éléments. La variance des éléments de la colonne #j de <varname>x</varname> est calculée en utilisant <literal>m(j)</literal> comme moyenne pour la colonne. Si <varname>m</varname> est la même pour toutes les colonnes, sa valeur scalaire peut être fournie au lieu d'une ligne. + </listitem> + <listitem> + mode "c" ou 2 : <varname>m</varname> un vecteur colonne à <literal>size(x,1)</literal> éléments. La variance des éléments de la ligne #i de <varname>x</varname> est calculée en utilisant <literal>m(i)</literal> comme moyenne pour la ligne. Si <varname>m</varname> est la même pour toutes les lignes, sa valeur scalaire peut être fournie au lieu d'une colonne. + </listitem> + </itemizedlist> + </para> + <para> + Lorsque <varname>m</varname> n'est pas indiquée, la <literal>variance</literal> est estimée en divisant par (n-1) (non n) la distance quadratique totale des n valeurs à la moyenne calculée <literal>mean(x)</literal>(ou <literal>mean(x,"c")</literal> ou <literal>mean(x,"r")</literal>) (n vaut length(x) ou size(x,1) ou size(x,2)). Si les éléments de <varname>x</varname> sont indépendants entre eux, l'estimation de la variance retournée est non biaisée. + </para> + <para> + Sinon, la <literal>variance</literal> est estimée en divisant par <literal>n</literal> (au lieu de <literal>n-1</literal>) la distance quadratique totale des valeurs <literal>x(k)</literal> à <varname>m</varname> (<literal>n</literal> valant toujours <literal>length(x)</literal> ou <literal>size(x,1)</literal> ou <literal>size(x,2)</literal>). Alors : + <itemizedlist> + <listitem> + Si une véritable valeur <varname>m</varname> indépendante des éléments de x est fournie, elle est utilisée comme moyenne de référence dans le calcul de la variance. La valeur obtenue et retournée pour celle-ci est alors réputée non biaisée. + </listitem> + <listitem> + Si la valeur spéciale <literal>m=%nan</literal> est fournie, la variance est toujours "normalisée" par n (non n-1) mais est estimée en utilisant l'estimation "empirique" + <literal>m=mean(x)</literal> de la moyenne de référence (ou <literal>m = mean(x,"c")</literal> ou <literal>m = mean(x,"r")</literal>). Comme <varname>m=%nan</varname> n'apporte aucune information nouvelle à "l'équation", celle-ci retourne une estimation biaisée de la variance. + </listitem> + </itemizedlist> + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>s</term> + <listitem> + Estimation de la variance des valeurs de <varname>x</varname> (non pondérées). <varname>s</varname> est un scalaire ou un vecteur ligne ou colonne selon l'option <varname>orien</varname> utilisée. + </listitem> + </varlistentry> + <varlistentry> + <term>mc</term> + <listitem> + Moyenne calculée à partir de <varname>x</varname> (<literal>= mean(x,..)</literal>) et utilisée comme référence dans le calcul de la variance. Valeur scalaire ou en vecteur colonne ou ligne, selon l'option <varname>orien</varname> utilisée. + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Cette fonction calcule la variance d'un ensemble de nombres réels ou complexes d'un vecteur, d'une matrice (voire d'une hypermatrice) <literal>x</literal>. Pour <literal>x</literal> à valeurs complexes, <literal>variance(x,..) = variance(real(x),..) + variance(imag(x),..)</literal> est retournée. + </para> + <para> + Pour un vecteur, une matrice ou une hypermatrice <varname>x</varname>, <literal>s = variance(x)</literal> ou <literal>s = variance(x, "*")</literal> + retourne dans le scalaire <varname>s</varname> la variance de tous les éléments de <varname>x</varname>. + </para> + <para> + <literal>s = variance(x,"c")</literal> (ou indifféremment <literal>s = variance(x, 2)</literal>) calcule la variance de chaque ligne. + Le vecteur colonne <varname>s</varname> est retourné, avec <literal>s(j) = variance(x(j,:),..)</literal>. + </para> + <para> + <literal>s = variance(x,"r")</literal> (ou indifféremment <literal>s = variance(x,1)</literal>) calcule la variance de chaque colonne. + Le vecteur ligne <varname>s</varname> est retourné, avec <literal>s(i) = variance(x(:,i),..)</literal>. + </para> + <para> + <warning> + La syntaxe <literal>variance(x, "*"|"c"|"r", 1)</literal> utilisable uniquement en Scilab 5.4.1 doit être remplacée par + <literal>variance(x,"*"|"c"|"r", %nan)</literal>. <literal>variance(x, "*"|"c"|"r", 1)</literal> émettra une alerte + jusqu'en Scilab 6.0. En effet, <literal>1</literal> est désormais compris comme <literal>m=1</literal>. + Si <literal>1</literal> est la valeur de l'espérance <varname>m</varname>à fournir, l'alerte peut être évitée + en indiquant<literal>1+%eps</literal> au lieu de <literal>1</literal>. + </warning> + </para> + </refsection> + <refsection> + <title>Exemples</title> + <programlisting role="example"><![CDATA[ +x = [ 0.2113249 0.0002211 0.6653811; 0.7560439 0.4453586 0.6283918 ] +s = variance(x) +s = variance(x, "r") +s = variance(x, "c") + +// La loi de distribution de probabilité sous-jacente et son espérance (moyenne) sont connues : +x = grand(100,5,"unf",0,7); // Distribution uniforme sur [0, 7] +// => espérance = (0+7)/2 = 3.5 et variance = (7-0)^2/12 +(7-0)^2/12 // Variance asymptotique vraie +s = variance(x) // Estimation non biaisée (division par n-1). +s = variance(x, "*", 3.5) // Estimation non biaisée (division par n). Toujours >= variance(x) +s = variance(x, "*", %nan) // Estimation biaisée (division par n). Toujours <= variance(x) +// A travers les colonnes (le long des lignes) => résultat en colonne : +s = variance(x, "c") +s = variance(x, "c", 3.5) +s = variance(x, "c", %nan) + +// Nombres complexes uniformément distribués sur [0,1] + [0,1].i : +x = rand(4, 3) + rand(4, 3)*%i +s = variance(x) +s = variance(x, "*", 0.5 + 0.5*%i) +s = variance(x, "*", %nan) +s = variance(x, "r") +s = variance(x, "c") + +// Nombres fournis en hypermatrice : +x = rand(3, 2, 2) // Distribution uniforme sur [0, 1] +s = variance(x) +s = variance(x, "*", 0.5) +s = variance(x, "*", %nan) +// s = variance(x, "r") // Utilisation non admise pour une hypermatrice +// s = variance(x, "c") // Utilisation non admise pour une hypermatrice + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>Voir aussi</title> + <simplelist type="inline"> + <member> + <link linkend="variancef">variancef</link> + </member> + <member> + <link linkend="mtlb_var">mtlb_var</link> + </member> + <member> + <link linkend="stdev">stdev</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>Bibliographie</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> + <refsection> + <title>Historique</title> + <revhistory> + <revision> + <revnumber>5.5.0</revnumber> + <revdescription> + <itemizedlist> + <listitem> + <para>variance(x, orien, 0|1) supprimée (utilisable uniquement avec Scilab 5.4.1)</para> + </listitem> + <listitem> + <para>variance(x, orien, m) introduite : l'espérance mathématique m connue de la distribution de probabilité sous-jacente peut être spécifiée et utilisée</para> + </listitem> + <listitem> + <para>variance(x, orien, %nan) introduite : mean(x,..) est utilisée, mais la distance quadratique totale est divisée par la taille n de l'échantillon (au lieu de n-1)</para> + </listitem> + <listitem> + <para>[s, mc] = variance(x,..) introduite : la moyenne mc calculée sur l'échantillon x peut être obtenue en second résultat</para> + </listitem> + </itemizedlist> + </revdescription> + </revision> + <revision> + <revnumber>5.4.1</revnumber> + <revdescription> + <itemizedlist> + <listitem> + <para>variance(complexes) corrigée. variance(x, "*", 1) introduite. Vectorisation du calcul pour variance(x, "r"|"c"). Révision complète de la page d'aide</para> + </listitem> + </itemizedlist> + </revdescription> + </revision> + </revhistory> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/descriptive_statistics/variancef.xml b/modules/statistics/help/fr_FR/descriptive_statistics/variancef.xml new file mode 100755 index 000000000..55b7d5aa2 --- /dev/null +++ b/modules/statistics/help/fr_FR/descriptive_statistics/variancef.xml @@ -0,0 +1,207 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2013 - Scilab Enterprises - Paul Bignier + * Copyright (C) 2013 - Samuel Gougeon + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="variancef"> + <refnamediv> + <refname>variancef</refname> + <refpurpose>variance (et moyenne) d'un vecteur ou d'une matrice réelle ou complexe de nombres pondérés en fréquence</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis> + [s [,mc]] = variancef(x, fre [,orien [,m]]) + + [s, mc] = variancef(x) + [s, mc] = variancef(x, fre, "r"|1 ) + [s, mc] = variancef(x, fre, "c"|2 ) + [s, mc] = variancef(x, fre, "*" , %nan) + [s, mc] = variancef(x, fre, "r"|1, %nan) + [s, mc] = variancef(x, fre, "c"|2, %nan) + s = variancef(x, fre, "*", m) + s = variancef(x, fre, "r", m) + s = variancef(x, fre, "c", m) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para> + vecteur ou matrice réel(le) ou complexe + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>fre</term> + <listitem> + <para> + vecteur ou matrice d'entiers positifs = fréquences: <code>fre(i,j)</code> est le nombre de fois que <code>x(i,j)</code> doit être compté. + <varname>fre</varname> et <varname>x</varname> doivent être de même taille. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>orien</term> + <listitem> + <para>l'orientation du calcul. Les valeurs acceptées sont: + <itemizedlist> + <listitem>1 ou "r" : le résultat est une rangée, après un calcul en colonne.</listitem> + <listitem>2 ou "c" : le résultat est une colonne, après un calcul en ligne.</listitem> + <listitem> + "*" : calcul tous les éléments de <varname>x</varname> confondus (mode utilisé par défaut); utile si le 3ème paramètre <varname>m</varname> doit par ailleurs être indiqué. + </listitem> + </itemizedlist> + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>m</term> + <listitem> + <para> + Espérance mathématique de la loi de distribution de probabilité sous-jacente (supposée connue). + <itemizedlist> + <listitem> + "*" mode (par défaut): <varname>m</varname> doit être scalaire + </listitem> + <listitem> + mode "r" or 1 : <varname>m</varname> un vecteur ligne à <literal>size(x,2)</literal> éléments. La variance des éléments de la colonne #j de <varname>x</varname> est calculée en utilisant <literal>m(j)</literal> comme moyenne pour la colonne. Si <varname>m</varname> est la même pour toutes les colonnes, sa valeur scalaire peut être fournie au lieu d'une ligne. + </listitem> + <listitem> + mode "c" ou 2 : <varname>m</varname> un vecteur colonne à <literal>size(x,1)</literal> éléments. La variance des éléments de la ligne #i de <varname>x</varname> est calculée en utilisant <literal>m(i)</literal> comme moyenne pour la ligne. Si <varname>m</varname> est la même pour toutes les lignes, sa valeur scalaire peut être fournie au lieu d'une colonne. + </listitem> + </itemizedlist> + </para> + <para> + Lorsque <varname>m</varname> n'est pas indiquée, la <literal>variance</literal> est estimée en divisant par (n-1) (non n) la distance quadratique totale des n valeurs à la moyenne calculée <literal>mean(x)</literal>(ou <literal>mean(x,"c")</literal> ou <literal>mean(x,"r")</literal>) (n vaut length(x) ou size(x,1) ou size(x,2)). Si les éléments de <varname>x</varname> sont indépendants entre eux, l'estimation de la variance retournée est non biaisée. + </para> + <para> + Sinon, la <literal>variance</literal> est estimée en divisant par <literal>n</literal> (au lieu de <literal>n-1</literal>) la distance quadratique totale des valeurs <literal>x(k)</literal> à <varname>m</varname> (<literal>n</literal> valant toujours <literal>length(x)</literal> ou <literal>size(x,1)</literal> ou <literal>size(x,2)</literal>). Alors : + <itemizedlist> + <listitem> + Si une véritable valeur <varname>m</varname> indépendante des éléments de x est fournie, elle est utilisée comme moyenne de référence dans le calcul de la <literal>variance</literal>. La valeur obtenue et retournée pour celle-ci est alors réputée non biaisée. + </listitem> + <listitem> + Si la valeur spéciale <literal>m=%nan</literal> est fournie, la <literal>variance</literal> est toujours "normalisée" par n (non n-1) mais est estimée en utilisant l'estimation "empirique" + <literal>m=mean(x)</literal> de la moyenne de référence (ou <literal>m = mean(x,"c")</literal> ou <literal>m = mean(x,"r")</literal>). Comme <varname>m=%nan</varname> n'apporte aucune information nouvelle à "l'équation", celle-ci retourne une estimation biaisée de la variance. + </listitem> + </itemizedlist> + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>s</term> + <listitem> + Estimation de la variance des valeurs de <varname>x</varname> (pondérées). <varname>s</varname> est un scalaire ou un vecteur ligne ou colonne selon l'option <varname>orien</varname> utilisée. + </listitem> + </varlistentry> + <varlistentry> + <term>mc</term> + <listitem> + Moyenne pondérée calculée à partir de <varname>x</varname> (<literal>= mean(x,..)</literal>) et utilisée comme référence dans le calcul de la variance. Valeur scalaire ou en vecteur colonne ou ligne, selon l'option <varname>orien</varname> utilisée. + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Cette fonction calcule la variance des valeurs d'un vecteur ou une matrice + <varname>x</varname>, chacun des <literal>x(i,j)</literal> étant compté <literal>fre(i,j)</literal> fois. + If <varname>x</varname> est complexe, alors <literal>variancef(x, fre,..) = variancef(real(x), fre,..) + variancef(imag(x), fre,..)</literal> est retourné. + </para> + <para> + <literal>s = variancef(x,fre)</literal> (ou <literal>s=variancef(x,fre,"*")</literal>) retourne la variance scalaire calculée à partir de toutes les valeurs de <varname>x</varname>. + </para> + <para> + <literal>s = variancef(x,fre,"r")</literal>(ou <literal>s = variancef(x,fre,1)</literal>) retourne un vecteur ligne <varname>s</varname> tel que pour chaque j, + <literal>s(j) = variancef(x(:,j),fre(:,j),..)</literal>. + </para> + <para> + <literal>s = variancef(x,fre,"c")</literal>(ou <literal>s = variancef(x,fre,2)</literal>) retourne un vecteur colonne <varname>s</varname> tel que pour chaque i, + <literal>s(i) = variancef(x(i,:),fre(i,:),..)</literal>. + </para> + <para> + Quand la moyenne <varname>m</varname> est fournie, elle est utilisée comme référence dans le calcul de la variance au lieu d'être évaluée intérieurement à partir de <varname>x</varname> (à moins qu'elle ne soit égale à <code>%nan</code> : Voir la description de <varname>m</varname>). Ceci permet de calculer la variance d'un échantillon <varname>x</varname> en regard d'un modèle statistique donné (plutôt que d'extraire une dispersion empirique pour construire le modèle). + </para> + </refsection> + <refsection> + <title>Exemples</title> + <programlisting role="example"><![CDATA[ +x = [0.2113249 0.0002211 0.6653811; 0.7560439 0.9546254 0.6283918] +fre = [1 2 3; 3 4 3] +[s, m] = variancef(x, fre) +[s, m] = variancef(x, fre, "r") +[s, m] = variancef(x, fre, "c") + +// Exemple #2: +x0 = grand(20, 7, "uin", -9,10)+0.4 +x = matrix((-9:10)+0.4, 5, 4) +fre = members(x, x0) // Calcule les fréquences des éléments de x dans x0 +[s, m] = variancef(x, fre) // Doit être égal à variance(x0) +[s, m] = variance(x0) + +// Exemple #2 (suite): +m = (-9+10)/2+0.4 // Moyenne asymptotique connue (si x0 avait un nombre infini d'éléments) +s = variancef(x, fre, "*", m) // Variance "échantillon" en regard de la vraie moyenne +s0 = (10 - (-9))^2 /12 // Variance asymptotique connue +s2 = variancef(x, fre, "*", %nan) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>Voir aussi</title> + <simplelist type="inline"> + <member> + <link linkend="variance">variance</link> + </member> + <member> + <link linkend="mtlb_var">mtlb_var</link> + </member> + <member> + <link linkend="stdevf">stdevf</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>Bibliographie</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> + <refsection> + <title>Historique</title> + <revhistory> + <revision> + <revnumber>5.5.0</revnumber> + <revdescription> + <itemizedlist> + <listitem> + <para>variancef() peut être appelée avec des nombres complexes.</para> + </listitem> + <listitem> + <para>variancef(x, fre, orien, m) introduit: la vraie moyenne m de la loi de distribution de probabilité sous-jacente peut être utilisée.</para> + </listitem> + <listitem> + <para>variancef(x, fre, orien, %nan) introduit: mean(x, fre,..) est utilisé mais divisé par n valeurs (à la place de n-1)</para> + </listitem> + <listitem> + <para>[s, mc] = variancef(x,fre,..) introduit : la moyenne mc évaluée à partir de x et fre est maintenant retournée</para> + </listitem> + </itemizedlist> + </revdescription> + </revision> + </revhistory> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/hypothesis_testing/CHAPTER b/modules/statistics/help/fr_FR/hypothesis_testing/CHAPTER new file mode 100755 index 000000000..cdc59bfdf --- /dev/null +++ b/modules/statistics/help/fr_FR/hypothesis_testing/CHAPTER @@ -0,0 +1 @@ +title = Hypothesis Testing diff --git a/modules/statistics/help/fr_FR/measures_dispersion/CHAPTER b/modules/statistics/help/fr_FR/measures_dispersion/CHAPTER new file mode 100755 index 000000000..0e76f2f9a --- /dev/null +++ b/modules/statistics/help/fr_FR/measures_dispersion/CHAPTER @@ -0,0 +1 @@ +title = Measures of Dispersion diff --git a/modules/statistics/help/fr_FR/measures_shape/CHAPTER b/modules/statistics/help/fr_FR/measures_shape/CHAPTER new file mode 100755 index 000000000..7a7e4a2a7 --- /dev/null +++ b/modules/statistics/help/fr_FR/measures_shape/CHAPTER @@ -0,0 +1 @@ +title = Measures of Shape diff --git a/modules/statistics/help/fr_FR/principal_component_analysis/CHAPTER b/modules/statistics/help/fr_FR/principal_component_analysis/CHAPTER new file mode 100755 index 000000000..e06f74fcf --- /dev/null +++ b/modules/statistics/help/fr_FR/principal_component_analysis/CHAPTER @@ -0,0 +1,2 @@ +title = Principal Component Analysis + diff --git a/modules/statistics/help/fr_FR/reglin.xml b/modules/statistics/help/fr_FR/reglin.xml new file mode 100755 index 000000000..e1327a1da --- /dev/null +++ b/modules/statistics/help/fr_FR/reglin.xml @@ -0,0 +1,129 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2014 - Scilab Enterprises - Paul Bignier + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr_FR" xml:id="reglin"> + <refnamediv> + <refname>reglin</refname> + <refpurpose>Régréssion linéaire</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis>[a,b,sig]=reglin(x,y)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>x, y, a, b, sig</term> + <listitem> + <para>Vecteurs or Matrices numériques.</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Résout le problème de régréssion <literal>y=a*x+b</literal> au sens des moindres carrés. + <literal>sig</literal> est l'écart-type du résidu. <literal>x</literal> et <literal>y</literal> + sont deux matrices de taille <literal>x(p,n)</literal> et <literal>y(q,n)</literal>, où <literal>n</literal> + est le nombre d'échantillons. + </para> + <para> + L'estimateur <literal>a</literal> est une matrice de taille <literal>(q,p)</literal> et <literal>b</literal> est un + vecteur de taille <literal>(q,1)</literal>. + </para> + <para> + Si <literal>x</literal> ou <literal>y</literal> contient des NaN, utilisez <link linkend="nanreglin">nanreglin</link>. + </para> + </refsection> + <refsection> + <title>Exemples</title> + <programlisting role="example"><![CDATA[ +// Simulation de données pour a(3, 5) et b(3, 1) +x = rand(5, 100); +aa = testmatrix("magi", 5); aa = aa(1:3, :); +bb = [9; 10; 11]; +y = aa*x +bb*ones(1, 100)+ 0.1*rand(3, 100); + +// Identification +[a, b, sig] = reglin(x, y); +max(abs(aa-a)) +max(abs(bb-b)) + +// Autre exemple : adaptation d'un polynôme +f = 1:100; x = [f.*f; f]; +y = [2 3]*x + 10*ones(f) + 0.1*rand(f); +[a, b] = reglin(x, y) + ]]></programlisting> + <para> + Exemple graphique : + </para> + <programlisting role="example"><![CDATA[ +// Génération d'une fonction impaire (symétrique à l'origine) +x = -30:30; +y = x.^3; + +// Extraction de la moyenne des moindres carrés de cette fonction et affichage +[a, b] = reglin(x, y); +plot(x, y, "red") +plot(x, a*x+b) + ]]></programlisting> + <scilab:image> + x = -30:30; + y = x.^3; + [a, b] = reglin(x, y); + plot(x, y, "red") + plot(x, a*x+b) + </scilab:image> + <para> + Exemple avec un NaN : + </para> + <programlisting role="example"><![CDATA[ +// Mêmes valeurs que dans l'exemple précédent, mais avec un NaN +x = -30:30; +y = x.^3; +y(10) = %nan; + +// Extraction de la moyenne des moindres carrés de cette fonction et affichage +[a, b] = reglin(x, y); +plot(x, y, "red") +plot(x, a*x+b) +// Le point [x(10), y(10)] a été ignoré, résultant en une valeur non-nulle pour b. + ]]></programlisting> + <scilab:image> + x = -30:30; + y = x.^3; + y(10) = %nan; + [a, b] = nanreglin(x, y); + plot(x, y, "red") + plot(x, a*x+b) + </scilab:image> + </refsection> + <refsection role="see also"> + <title>Vori aussi</title> + <simplelist type="inline"> + <member> + <link linkend="nanreglin">nanreglin</link> + </member> + <member> + <link linkend="pinv">pinv</link> + </member> + <member> + <link linkend="leastsq">leastsq</link> + </member> + <member> + <link linkend="qr">qr</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/regression/CHAPTER b/modules/statistics/help/fr_FR/regression/CHAPTER new file mode 100755 index 000000000..0b0ab4111 --- /dev/null +++ b/modules/statistics/help/fr_FR/regression/CHAPTER @@ -0,0 +1,2 @@ +title = Regression + diff --git a/modules/statistics/help/fr_FR/sampling/CHAPTER b/modules/statistics/help/fr_FR/sampling/CHAPTER new file mode 100755 index 000000000..081bf0bf6 --- /dev/null +++ b/modules/statistics/help/fr_FR/sampling/CHAPTER @@ -0,0 +1 @@ +title = Échantillonnage diff --git a/modules/statistics/help/fr_FR/sampling/sample.xml b/modules/statistics/help/fr_FR/sampling/sample.xml new file mode 100755 index 000000000..19e8fb43c --- /dev/null +++ b/modules/statistics/help/fr_FR/sampling/sample.xml @@ -0,0 +1,117 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * Copyright (C) 2014 - Scilab Enterprises - Pierre-Aime Agnel + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="sample"> + <refnamediv> + <refname>sample</refname> + <refpurpose>Tirage avec remise.</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis>s = sample(n,X,orient)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>n</term> + <listitem> + <para>Entier positif (taille de l'échantillon)</para> + </listitem> + </varlistentry> + <varlistentry> + <term>X</term> + <listitem> + <para>Matrice. Population, les échantillons sont tirés de cette matrice.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>orient</term> + <listitem> + <para>Paramètre optionnel. Les valeurs possibles sont <literal>{'*'}, 1, 2, 'r' </literal> ou <literal>'c'</literal>. Orientations possibles pour le tirage de valeurs de X. Voir la description ci-dessous.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>s</term> + <listitem> + <para>Vecteur ou matrice contenant le tirage de valeurs de <literal>X</literal>.</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Cette fonction renvoie un vecteur ou une matrice. Elle contient un tirage + de <literal>n</literal> échantillons, avec remise, d'éléments + de la matrice <literal>X</literal>. + </para> + <para> + <literal>s = sample(n, X)</literal> + (ou <literal>s = sample(n, X, '*')</literal>) + renvoie un vecteur <literal>s</literal> + dont les <literal>n</literal> valeurs sont tirées aléatoirement, + avec remise, de <literal>X</literal>. + </para> + <para> + <literal>s = sample(n, X, 'r')</literal> (ou, de manière équivalente, + <literal>s = sample(n, X, 1)</literal>) + renvoie une matrice de taille <literal>size(X,'r') * n</literal>. + Elle contient un échantillon de <literal>n</literal> lignes, + extraites avec remise, des lignes de <literal>X</literal>. + </para> + <para> + <literal>s = sample(n, X, 'c')</literal> (ou, de manière équivalente, + <literal>s = sample(n, X, 2)</literal>) + renvoie une matrice de taille <literal>n * size(X, 'c')</literal>. + Elle contient un échantillon de <literal>n</literal> colonnes, + extraites avec remise, des colonnes de <literal>X</literal>. + </para> + </refsection> + <refsection> + <title>Générateur de nombres aléatoires</title> + <para> <literal>sample</literal> se fonde sur la fonction <link linkend="grand">grand</link> pour générer les tirages aléatoires. Utiliser <literal>grand("setsd", seed)</literal> pour changer la graine aléatoire de <literal>sample</literal>.</para> + <programlisting role="example"><![CDATA[ + seed = getdate("s"); + grand("setsd", seed); //positionne la graine à la date du jour + + seed = 0; + grand("setsd", seed); //positionne la graine à sa valeur par défaut + ]]> + </programlisting> + </refsection> + <refsection> + <title>Exemples</title> + <programlisting role="example"><![CDATA[ +X = ['a' 'dd' 'arreu'; 'ber' 'car' 'zon'] +s = sample(25, X) +s = sample(25, X, 'r') +s = sample(25, X, 'c') + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>Voir aussi</title> + <simplelist type="inline"> + <member> + <link linkend="samplef">samplef</link> + </member> + <member> + <link linkend="samwr">samwr</link> + </member> + <member> + <link linkend="grand">grand</link> + </member> + </simplelist> + </refsection> +</refentry> + diff --git a/modules/statistics/help/fr_FR/sampling/samplef.xml b/modules/statistics/help/fr_FR/sampling/samplef.xml new file mode 100755 index 000000000..d1a596b1b --- /dev/null +++ b/modules/statistics/help/fr_FR/sampling/samplef.xml @@ -0,0 +1,130 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * Copyright (C) 2014 - Scilab Enterprises - Pierre-Aime Agnel + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="samplef"> + <refnamediv> + <refname>samplef</refname> + <refpurpose>Tirage avec remise d'un échantillon d'une population suivant les valeurs de fréquences données.</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis>s = samplef(n, X, f, orient)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>n</term> + <listitem> + <para>Entier positif (taille de l'échantillon à tirer).</para> + </listitem> + </varlistentry> + <varlistentry> + <term>X</term> + <listitem> + <para>Matrice. Population, les échantillons sont tirés de cette matrice.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>f</term> + <listitem> + <para>Matrice de valeurs réelles positives. Indique la fréquence de chaque élément de <literal>X</literal>. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>orient</term> + <listitem> + <para>Paramètre optionnel. Les valeurs possibles sont <literal>{'*'}, 1, 2, 'r' </literal> ou <literal>'c'</literal>. Orientations possibles pour le tirage de valeurs de X. Voir la description ci-dessous.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>s</term> + <listitem> + <para> vecteur ou matrice contenant le tirage des valeurs de <literal>X</literal> aux fréquences <literal>f</literal>.</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para> + Cette fonction renvoie <literal>s</literal>, un vecteur de longueur <literal>n</literal>. + Il contient un tirage de <literal>n</literal> échantillons, avec remise, d'éléments + de la matrice <literal>X</literal>, chaque élément étant compté avec une fréquence donnée + par sa valeur correspondante dans le vecteur <literal>f</literal>. + </para> + <para> + <literal>s=samplef(n,X,f)</literal> (ou + <literal>s=samplef(n,X,f,'*')</literal>) renvoie un vecteur <literal>s</literal> + dont les valeurs sont un tirage de <literal>n</literal> valeurs de <literal>X</literal>, + chaque valeur étant tirée avec une probabilité proportionelle à sa valeur correspondante dans + <literal>f</literal> après normalisation, ce tirage étant fait avec remise. + <literal>f</literal> et <literal>X</literal> doivent contenir le même nombre de valeurs. + </para> + <para> + <literal>s=samplef(n,X,f,'r')</literal> (ou, de manière équivalente, + <literal>s=samplef(n,X,f,1)) </literal> renvoie une matrice de taille + <literal>size(X,'r') * n</literal>. Elle contient un tirage de <literal>n</literal> lignes de + <literal>X</literal>, chaque ligne étant tirée avec une probabilité proportionelle + à sa valeur correspondante dans <literal>f</literal> après normalisation, ce tirage étant fait + avec remise. La taille de <literal>f</literal> doit être identique au nombre de lignes de <literal>X</literal>. + </para> + <para> + <literal>s=samplef(n,X,f,'c')</literal> (ou, de manière équivalente, + <literal>s=samplef(n,X,f,2))</literal> renvoie une matrice de taille + <literal>n * size(X,'c')</literal>. Elle contient un tirage de <literal>n</literal> colonnes de + <literal>X</literal>, chaque colonne étant tirée avec une probabilité proportionelle + à sa valeur correspondante dans <literal>f</literal> après normalisation, ce tirage étant fait + avec remise. La taille de <literal>f</literal> doit être identique au nombre de colonnes de <literal>X</literal>. + </para> + </refsection> + <refsection> + <title>Générateur de nombres aléatoires</title> + <para> <literal>samplef</literal> se fonde sur la fonction <link linkend="grand">grand</link> pour générer les tirages aléatoires. Utiliser <literal>grand("setsd", seed)</literal> pour changer la graine aléatoire de <literal>samplef</literal>.</para> + <programlisting role="example"><![CDATA[ + seed = getdate("s"); + grand("setsd", seed); //positionne la graine à la date du jour + + seed = 0; + grand("setsd", seed); //positionne la graine à sa valeur par défaut + ]]> + </programlisting> + </refsection> + <refsection> + <title>Exemples</title> + <programlisting role="example"><![CDATA[ +X = [3 7 9;22 4 2]; +f1 = [10 1 1 1 1 1]; +f2 = [1; 15]; +f3 = [10 1 1]; +s=samplef(20, X, f1) //la première valeur de la matrice X a une fréquence de 10/15 +s=samplef(20, X, f2, 'r') //la seconde ligne de la matrice X sera choisie avec une fréquence 15/16 +s=samplef(20, X, f3, 'c') //la première colonne sera choisie avec une fréquence 10/12 + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>Voir aussi</title> + <simplelist type="inline"> + <member> + <link linkend="sample">sample</link> + </member> + <member> + <link linkend="samwr">samwr</link> + </member> + <member> + <link linkend="grand">grand</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/fr_FR/sampling/samwr.xml b/modules/statistics/help/fr_FR/sampling/samwr.xml new file mode 100755 index 000000000..3390cd230 --- /dev/null +++ b/modules/statistics/help/fr_FR/sampling/samwr.xml @@ -0,0 +1,94 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * Copyright (C) 2014 - Scilab Enterprises - Pierre-Aimé Agnel + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="samwr"> + <refnamediv> + <refname>samwr</refname> + <refpurpose>Tirage sans remise</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Séquence d'appel</title> + <synopsis>s = samwr(sizam,numsamp,X)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Paramètres</title> + <variablelist> + <varlistentry> + <term>sizam</term> + <listitem> + <para>Entier. Nombre d'éléments d'un tirage. Doit être de valeur inférieure ou égale à la taille de <literal>X</literal>. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>numsamp</term> + <listitem> + <para>Entier. Nombre de tirages à effectuer.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>X</term> + <listitem> + <para>Matrice. Contient la population.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>s</term> + <listitem> + <para>matrice de taille <literal>sizsam * numsamp</literal>. Elle contient + <literal>numsamp</literal> tirages aléatoires (les vecteurs colonne), chacun contenant + <literal>sizam</literal> extractions sans remise d'éléments de <literal>X</literal>. + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Description</title> + <para>Renvoie des tirages sans remises de valeurs extraites d'une matrice.</para> + </refsection> + <refsection> + <title>Générateur de nombres aléatoires</title> + <para> <literal>samwr</literal> se fonde sur la fonction <link linkend="grand">grand</link> pour générer les tirages aléatoires. Utiliser <literal>grand("setsd", seed)</literal> pour changer la graine aléatoire de <literal>samwr</literal>.</para> + <programlisting role="example"><![CDATA[ + seed = getdate("s"); + grand("setsd", seed); //positionne la graine à la date du jour + + seed = 0; + grand("setsd", seed); //positionne la graine à sa valeur par défaut + ]]> + </programlisting> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +a = [0.33 1.24 2.1 1.03] +s = samwr(4, 12, a) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>See Also</title> + <simplelist type="inline"> + <member> + <link linkend="sample">sample</link> + </member> + <member> + <link linkend="samplef">samplef</link> + </member> + <member> + <link linkend="grand">grand</link> + </member> + </simplelist> + </refsection> +</refentry> + diff --git a/modules/statistics/help/fr_FR/summaries/CHAPTER b/modules/statistics/help/fr_FR/summaries/CHAPTER new file mode 100755 index 000000000..3185a34df --- /dev/null +++ b/modules/statistics/help/fr_FR/summaries/CHAPTER @@ -0,0 +1 @@ +title = Summaries diff --git a/modules/statistics/help/ja_JP/addchapter.sce b/modules/statistics/help/ja_JP/addchapter.sce new file mode 100755 index 000000000..7162e916b --- /dev/null +++ b/modules/statistics/help/ja_JP/addchapter.sce @@ -0,0 +1,11 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2009 - DIGITEO +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + +add_help_chapter("Statistics",SCI+"/modules/statistics/help/ja_JP",%T); + diff --git a/modules/statistics/help/ja_JP/cdf/CHAPTER b/modules/statistics/help/ja_JP/cdf/CHAPTER new file mode 100755 index 000000000..1542dfc1a --- /dev/null +++ b/modules/statistics/help/ja_JP/cdf/CHAPTER @@ -0,0 +1 @@ +title = Cumulated Distribution Functions diff --git a/modules/statistics/help/ja_JP/cdf/binomial.xml b/modules/statistics/help/ja_JP/cdf/binomial.xml new file mode 100755 index 000000000..dce9c529b --- /dev/null +++ b/modules/statistics/help/ja_JP/cdf/binomial.xml @@ -0,0 +1,105 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008 - INRIA + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="binomial" xml:lang="ja"> + <refnamediv> + <refname>binomial</refname> + <refpurpose>2é …åˆ†å¸ƒç¢ºçŽ‡</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>pr=binomial(p,n)</synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>pr</term> + <listitem> + <para>n+1 個ã®è¦ç´ ã®è¡Œãƒ™ã‚¯ãƒˆãƒ«</para> + </listitem> + </varlistentry> + <varlistentry> + <term>p</term> + <listitem> + <para>[0,1]ã®ç¯„囲ã®å®Ÿæ•°</para> + </listitem> + </varlistentry> + <varlistentry> + <term>n</term> + <listitem> + <para>æ•´æ•° >= 1</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + <literal>pr=binomial(p,n)</literal> ã¯, + äºŒé …åˆ†å¸ƒç¢ºçŽ‡ãƒ™ã‚¯ãƒˆãƒ«ã‚’è¿”ã—ã¾ã™. + ã“ã‚Œã¯, + <literal>pr(k+1)</literal>㌠<literal>n</literal> + 回ã®æˆåŠŸçŽ‡<literal>p</literal>ã®ç‹¬ç«‹ãƒ™ãƒ«ãƒŒãƒ¼ã‚¤è©¦è¡Œã«ãŠã„㦠+ <literal>k</literal>回æˆåŠŸã™ã‚‹ç¢ºçŽ‡ã¨ãªã‚‹åˆ†å¸ƒã§ã™. + 言ã„æ›ãˆã‚‹ã¨,, + Xã‚’B(n,p)分布ã«å¾“ã†ãƒ©ãƒ³ãƒ€ãƒ 変数ã¨ã™ã‚‹æ™‚ã® + <literal>pr(k+1) = probability(X=k)</literal>ã§, + 数値的ã«ã¯ä»¥ä¸‹ã®ã‚ˆã†ã«ãªã‚Šã¾ã™ : + </para> + <informalequation> + <mediaobject> + <imageobject> + <imagedata align="center" fileref="../../mml/binomial_equation_1_en_US.mml"/> + </imageobject> + </mediaobject> + </informalequation> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +// first example +n=10;p=0.3; clf(); plot2d3(0:n,binomial(p,n)); +// second example +n=50;p=0.4; +mea=n*p; sigma=sqrt(n*p*(1-p)); +x=( (0:n)-mea )/sigma; +clf() +plot2d(x, sigma*binomial(p,n)); +deff('y=Gauss(x)','y=1/sqrt(2*%pi)*exp(-(x.^2)/2)') +plot2d(x, Gauss(x), style=2); +// by binomial formula (Caution if big n) +function pr=binomial2(p,n) +x=poly(0,'x');pr=coeff((1-p+x)^n).*horner(x^(0:n),p); +endfunction +p=1/3;n=5; +binomial(p,n)-binomial2(p,n) +// by Gamma function: gamma(n+1)=n! (Caution if big n) +p=1/3;n=5; +Cnks=gamma(n+1)./(gamma(1:n+1).*gamma(n+1:-1:1)); +x=poly(0,'x'); +pr=Cnks.*horner(x.^(0:n).*(1-x)^(n:-1:0),p); +pr-binomial(p,n) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="grand">grand</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/cdf/cdfbet.xml b/modules/statistics/help/ja_JP/cdf/cdfbet.xml new file mode 100755 index 000000000..a95f8ef9f --- /dev/null +++ b/modules/statistics/help/ja_JP/cdf/cdfbet.xml @@ -0,0 +1,104 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="cdfbet"> + <refnamediv> + <refname>cdfbet</refname> + <refpurpose>ç´¯ç©åˆ†å¸ƒé–¢æ•°:ベータ関数</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>[P,Q]=cdfbet("PQ",X,Y,A,B) + [X,Y]=cdfbet("XY",A,B,P,Q) + [A]=cdfbet("A",B,P,Q,X,Y) + [B]=cdfbet("B",P,Q,X,Y,A) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>P,Q,X,Y,A,B</term> + <listitem> + <para>åŒã˜å¤§ãã•ã®å®Ÿæ•°ãƒ™ã‚¯ãƒˆãƒ«.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>ベータ分布㮠0 ã‹ã‚‰ Xã®æ•´æ•° (入力範囲: [0, 1].)</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Q</term> + <listitem> + <para>1-P</para> + </listitem> + </varlistentry> + <varlistentry> + <term>X,Y (Y=1-X) </term> + <listitem> + <para>ベータ密度ã®ç©åˆ†ã®ä¸Šé™ (入力範囲: [0,1], 探索範囲: [0,1]) A,B : + ベータ密度ã®ãƒ‘ラメータ (入力範囲: (0, +infinity), 探索範囲: [1D-300,1D300] ) + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ベータ分布ã®ãƒ‘ラメータã®ä¸€ã¤ã‚’ãれ以外ã®ãƒ‘ラメータã®å€¤ã‚’ + 指定ã—ã¦è¨ˆç®—ã—ã¾ã™ (ベータ分布㯠+ <literal>t^(A-1) * (1-t)^(B-1)</literal>ã«æ¯”例ã—ã¾ã™). + </para> + <para> + ç´¯ç©åˆ†å¸ƒé–¢æ•° (P) ã¯ä»¥ä¸‹ã®å‚考文献ã§è¨˜è¿°ã•ã‚ŒãŸã‚³ãƒ¼ãƒ‰ã« + 基ã¥ã計算ã•ã‚Œã¾ã™. + </para> + <para> + DiDinato, A. R. and Morris, A. H. Algorithm 708: Significant + Digit Computation of the Incomplete Beta Function Ratios. ACM + Trans. Math. Softw. 18 (1993), 360-373. + </para> + <para> + ãã®ä»–ã®ãƒ‘ラメータã®è¨ˆç®—ã«ã¯, + Pã®æŒ‡å®šã•ã‚ŒãŸå€¤ã‚’出力ã™ã‚‹å€¤ã®æŽ¢ç´¢ã‚’å«ã¿ã¾ã™. + ã“ã®æŽ¢ç´¢ã¯ä»–ã®ãƒ‘ラメータã«å¯¾ã™ã‚‹Pã®å˜èª¿æ€§ã«ä¾å˜ã—ã¾ã™. + </para> + <para> + DCDFLIBã«ã‚ˆã‚‹: ç´¯ç©åˆ†å¸ƒé–¢æ•°, 逆, ãŠã‚ˆã³ä»–ã®ãƒ‘ラメータ用ã®Fortranルーãƒãƒ³ã® + ライブラリ(February, 1994) + Barry W. Brown, James Lovato and Kathy Russell.The University of + Texas. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ +x = 0:0.1:1; +y = 1-x; +A = 2*ones(x); +B = 3*ones(x); +[p,q]=cdfbet('PQ',x,y,A,B); +plot2d2("gnn",[0:10]',p,5,"111","Repartition",[0,0,10,1]) + ]]></programlisting> + <scilab:image> + x = 0:0.1:1; + y = 1-x; + A = 2*ones(x); + B = 3*ones(x); + [p,q]=cdfbet('PQ',x,y,A,B); + plot2d2("gnn",[0:10]',p,5,"111","Repartition",[0,0,10,1]) + </scilab:image> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/cdf/cdfbin.xml b/modules/statistics/help/ja_JP/cdf/cdfbin.xml new file mode 100755 index 000000000..4af6b508c --- /dev/null +++ b/modules/statistics/help/ja_JP/cdf/cdfbin.xml @@ -0,0 +1,105 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="cdfbin"> + <refnamediv> + <refname>cdfbin</refname> + <refpurpose>ç´¯ç©åˆ†å¸ƒé–¢æ•°äºŒé …分布</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>[P,Q]=cdfbin("PQ",S,Xn,Pr,Ompr) + [S]=cdfbin("S",Xn,Pr,Ompr,P,Q) + [Xn]=cdfbin("Xn",Pr,Ompr,P,Q,S) + [Pr,Ompr]=cdfbin("PrOmpr",P,Q,S,Xn) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>P,Q,S,Xn,Pr,Ompr</term> + <listitem> + <para>åŒã˜å¤§ãã•ã®å®Ÿæ•°ãƒ™ã‚¯ãƒˆãƒ«.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>äºŒé …åˆ†å¸ƒã®0ã‹ã‚‰Sã®ç´¯ç©. + (æˆåŠŸç¢ºçŽ‡PRã®XN回ã®è©¦è¡Œã«ãŠã„ã¦æˆåŠŸãŒS回以下ã¨ãªã‚‹ç¢ºçŽ‡) 入力範囲: [0,1]. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>S</term> + <listitem> + <para>観測ã•ã‚ŒãŸæˆåŠŸã®å›žæ•°. 入力範囲: [0, XN] 探索範囲: [0, XN]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Xn</term> + <listitem> + <para>äºŒé …è©¦è¡Œã®å›žæ•°. 入力範囲: (0, +infinity). 探索範囲: [1E-300, 1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Pr,Ompr (Ompr=1-Pr) </term> + <listitem> + <para>å„äºŒé …è©¦è¡Œã«ãŠã‘ã‚‹æˆåŠŸç¢ºçŽ‡. 入力範囲: [0,1]. 探索範囲: [0,1]</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + äºŒé …åˆ†å¸ƒã®ãƒ‘ラメータã®ä¸€ã¤ã‚’ãれ以外ã®ãƒ‘ラメータã®å€¤ã‚’ + 指定ã—ã¦è¨ˆç®—ã—ã¾ã™. + </para> + <para> + Abramowitz ãŠã‚ˆã³ Stegunã®å¼26.5.24, Handbook of + Mathematical Functions (1966) ãŒäºŒé …分布を累ç©ä¸å®Œå…¨ãƒ™ãƒ¼ã‚¿åˆ†å¸ƒã« + 縮å°ã•ã›ã‚‹ãŸã‚ã«ä½¿ç”¨ã•ã‚Œã¾ã™. + </para> + <para> + ãã®ä»–ã®ãƒ‘ラメータã®è¨ˆç®—ã«ã¯, + Pã®æŒ‡å®šã•ã‚ŒãŸå€¤ã‚’出力ã™ã‚‹å€¤ã®æŽ¢ç´¢ã‚’å«ã¿ã¾ã™. + ã“ã®æŽ¢ç´¢ã¯ä»–ã®ãƒ‘ラメータã«å¯¾ã™ã‚‹Pã®å˜èª¿æ€§ã«ä¾å˜ã—ã¾ã™. + </para> + <para> + DCDFLIBã‹ã‚‰: ç´¯ç©åˆ†å¸ƒé–¢æ•°, 逆, ãŠã‚ˆã³ä»–ã®ãƒ‘ラメータ用ã®Fortranルーãƒãƒ³ã® + ライブラリ(February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + <refsection> + <title>Examples</title> + <programlisting role="example"><![CDATA[ + S = 0:1:10; + Pr = 0.3 * ones(S); + Ompr = 1-Pr; + Xn = 10*ones(S); + [p,q]=cdfbin('PQ',S,Xn,Pr,Ompr); + plot2d2("gnn",[0:10]',p,5,"111","Repartition",[0,0,10,1]) + ]]></programlisting> + <scilab:image> + S = 0:1:10; + Pr = 0.3 * ones(S); + Ompr = 1-Pr; + Xn = 10*ones(S); + [p,q]=cdfbin('PQ',S,Xn,Pr,Ompr); + plot2d2("gnn",[0:10]',p,5,"111","Repartition",[0,0,10,1]) + </scilab:image> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/cdf/cdfchi.xml b/modules/statistics/help/ja_JP/cdf/cdfchi.xml new file mode 100755 index 000000000..9ac1a1ef4 --- /dev/null +++ b/modules/statistics/help/ja_JP/cdf/cdfchi.xml @@ -0,0 +1,77 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="cdfchi"> + <refnamediv> + <refname>cdfchi</refname> + <refpurpose>ç´¯ç©åˆ†å¸ƒé–¢æ•°:カイ二乗分布</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>[P,Q]=cdfchi("PQ",X,Df) + [X]=cdfchi("X",Df,P,Q); + [Df]=cdfchi("Df",P,Q,X) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>P,Q,Xn,Df</term> + <listitem> + <para>åŒã˜å¤§ãã•ã®å®Ÿæ•°ãƒ™ã‚¯ãƒˆãƒ«.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>カイ二乗分布ã®0ã‹ã‚‰Xã¾ã§ã®ç©åˆ†. 入力範囲: [0, 1].</para> + </listitem> + </varlistentry> + <varlistentry> + <term>X</term> + <listitem> + <para>カイ二乗分布ã®ç©åˆ†ã®ä¸Šé™. 入力範囲: [0, +infinity). 探索範囲: [0,1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Df</term> + <listitem> + <para>カイ二乗分布ã®è‡ªç”±åº¦. 入力範囲: (0, +infinity). 探索範囲: [ 1E-300, 1E300]</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + カイ二乗分布ã®ãƒ‘ラメータã®ä¸€ã¤ã‚’ãれ以外ã®ãƒ‘ラメータã®å€¤ã‚’ + 指定ã—ã¦è¨ˆç®—ã—ã¾ã™. + </para> + <para> + AbramowitzãŠã‚ˆã³Stegunã«ã‚ˆã‚‹, Handbook of + Mathematical Functions (1966)ã®å¼26.4.19㌠+ カイ二乗分布をä¸å®Œå…¨åˆ†å¸ƒã«ç¸®æ¸›ã•ã›ã‚‹ãŸã‚ã«ä½¿ç”¨ã•ã‚Œã¾ã™. + </para> + <para> + ãã®ä»–ã®ãƒ‘ラメータã®è¨ˆç®—ã«ã¯, + Pã®æŒ‡å®šã•ã‚ŒãŸå€¤ã‚’出力ã™ã‚‹å€¤ã®æŽ¢ç´¢ã‚’å«ã¿ã¾ã™. + ã“ã®æŽ¢ç´¢ã¯ä»–ã®ãƒ‘ラメータã«å¯¾ã™ã‚‹Pã®å˜èª¿æ€§ã«ä¾å˜ã—ã¾ã™. + </para> + <para> + DCDFLIBã‹ã‚‰: ç´¯ç©åˆ†å¸ƒé–¢æ•°, 逆, ãŠã‚ˆã³ä»–ã®ãƒ‘ラメータ用ã®Fortranルーãƒãƒ³ã® + ライブラリ(February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/cdf/cdfchn.xml b/modules/statistics/help/ja_JP/cdf/cdfchn.xml new file mode 100755 index 000000000..77cc1ad64 --- /dev/null +++ b/modules/statistics/help/ja_JP/cdf/cdfchn.xml @@ -0,0 +1,91 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="cdfchn"> + <refnamediv> + <refname>cdfchn</refname> + <refpurpose>ç´¯ç©åˆ†å¸ƒé–¢æ•°:éžå¿ƒã‚«ã‚¤äºŒä¹—分布</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>[P,Q]=cdfchn("PQ",X,Df,Pnonc) + [X]=cdfchn("X",Df,Pnonc,P,Q); + [Df]=cdfchn("Df",Pnonc,P,Q,X) + [Pnonc]=cdfchn("Pnonc",P,Q,X,Df) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>Pパラメータ</title> + <variablelist> + <varlistentry> + <term>P,Q,X,Df,Pnonc</term> + <listitem> + <para>åŒã˜å¤§ãã•ã®å®Ÿæ•°ãƒ™ã‚¯ãƒˆãƒ«.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>éžå¿ƒã‚«ã‚¤äºŒä¹—分布ã®0ã‹ã‚‰Xã¾ã§ã®ç©åˆ†. 入力範囲: [0, 1-1E-16).</para> + </listitem> + </varlistentry> + <varlistentry> + <term>X</term> + <listitem> + <para>éžå¿ƒã‚«ã‚¤äºŒä¹—分布ã®ç©åˆ†ã®ä¸Šé™. 入力範囲: [0, +infinity). 探索範囲: [0,1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Df</term> + <listitem> + <para>éžå¿ƒã‚«ã‚¤äºŒä¹—分布ã®è‡ªç”±åº¦. 入力範囲: (0, +infinity). 探索範囲: [ 1E-300, 1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Pnonc</term> + <listitem> + <para>éžå¿ƒã‚«ã‚¤äºŒä¹—分布ã®éžå¿ƒãƒ‘ラメータ. 入力範囲: [0, +infinity). 探索範囲: [0,1E4]</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + éžå¿ƒã‚«ã‚¤äºŒä¹—分布ã®ãƒ‘ラメータã®ä¸€ã¤ã‚’ãれ以外ã®ãƒ‘ラメータã®å€¤ã‚’ + 指定ã—ã¦è¨ˆç®—ã—ã¾ã™. + </para> + <para> + AbramowitzãŠã‚ˆã³Stegunã«ã‚ˆã‚‹, Handbook of + Mathematical Functions (1966)ã®å¼26.4.25㌠+ ç´¯ç©åˆ†å¸ƒé–¢æ•°ã‚’計算ã™ã‚‹ãŸã‚ã«ä½¿ç”¨ã•ã‚Œã¾ã™. + </para> + <para> + ãã®ä»–ã®ãƒ‘ラメータã®è¨ˆç®—ã«ã¯, + Pã®æŒ‡å®šã•ã‚ŒãŸå€¤ã‚’出力ã™ã‚‹å€¤ã®æŽ¢ç´¢ã‚’å«ã¿ã¾ã™. + ã“ã®æŽ¢ç´¢ã¯ä»–ã®ãƒ‘ラメータã«å¯¾ã™ã‚‹Pã®å˜èª¿æ€§ã«ä¾å˜ã—ã¾ã™. + </para> + <para> + ã“ã®ãƒ«ãƒ¼ãƒãƒ³ã«å¿…è¦ãªè¨ˆç®—時間ã¯,éžä¸å¿ƒãƒ‘ラメータ (PNONC)ã« + 比例ã—ã¾ã™. + ã“ã®å€¤ãŒéžå¸¸ã«å¤§ããªå€¤ã¨ãªã‚‹ã¨, + 計算機リソースを大é‡ã«æ¶ˆè²»ã—ã¾ã™. + ã“ã‚ŒãŒ,探索範囲ãŒ10,000ã«åˆ¶é™ã•ã‚Œã¦ã„ã‚‹ç†ç”±ã§ã™. + </para> + <para> + DCDFLIBã‹ã‚‰: ç´¯ç©åˆ†å¸ƒé–¢æ•°, 逆, ãŠã‚ˆã³ä»–ã®ãƒ‘ラメータ用ã®Fortranルーãƒãƒ³ã® + ライブラリ(February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/cdf/cdff.xml b/modules/statistics/help/ja_JP/cdf/cdff.xml new file mode 100755 index 000000000..e308b06e1 --- /dev/null +++ b/modules/statistics/help/ja_JP/cdf/cdff.xml @@ -0,0 +1,91 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="cdff"> + <refnamediv> + <refname>cdff</refname> + <refpurpose>ç´¯ç©åˆ†å¸ƒé–¢æ•°: F分布</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>[P,Q]=cdff("PQ",F,Dfn,Dfd) + [F]=cdff("F",Dfn,Dfd,P,Q); + [Dfn]=cdff("Dfn",Dfd,P,Q,F); + [Dfd]=cdff("Dfd",P,Q,F,Dfn) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>P,Q,F,Dfn,Dfd</term> + <listitem> + <para>åŒã˜å¤§ãã•ã®å®Ÿæ•°ãƒ™ã‚¯ãƒˆãƒ«.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>F分布ã®0ã‹ã‚‰Fã¾ã§ã®ç©åˆ†. 入力範囲: [0,1].</para> + </listitem> + </varlistentry> + <varlistentry> + <term>F</term> + <listitem> + <para>F密度ã®ç©åˆ†ã®ä¸Šé™. 入力範囲: [0, +infinity). 探索範囲: [0,1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Dfn</term> + <listitem> + <para>分åã®äºŒä¹—å’Œã®è‡ªç”±åº¦. 入力範囲: (0, +infinity). 探索範囲: [ 1E-300, 1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Dfd</term> + <listitem> + <para>分æ¯ã®äºŒä¹—å’Œã®è‡ªç”±åº¦. 入力範囲: (0, +infinity). 探索範囲: [ 1E-300, 1E300]</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + F分布ã®ãƒ‘ラメータã®ä¸€ã¤ã‚’ãれ以外ã®ãƒ‘ラメータã®å€¤ã‚’ + 指定ã—ã¦è¨ˆç®—ã—ã¾ã™. + </para> + <para> + AbramowitzãŠã‚ˆã³Stegunã«ã‚ˆã‚‹, Handbook of + Mathematical Functions (1966)ã®å¼26.6.2 ㌠+ F分布ã®ç´¯ç©åˆ†å¸ƒé–¢æ•°ã®è¨ˆç®—ã‚’ä¸å®Œå…¨ãƒ™ãƒ¼ã‚¿é–¢æ•°ã®è¨ˆç®—ã« + 縮減ã•ã›ã‚‹ãŸã‚ã«ä½¿ç”¨ã•ã‚Œã¾ã™. + </para> + <para> + ãã®ä»–ã®ãƒ‘ラメータã®è¨ˆç®—ã«ã¯, + Pã®æŒ‡å®šã•ã‚ŒãŸå€¤ã‚’出力ã™ã‚‹å€¤ã®æŽ¢ç´¢ã‚’å«ã¿ã¾ã™. + ã“ã®æŽ¢ç´¢ã¯ä»–ã®ãƒ‘ラメータã«å¯¾ã™ã‚‹Pã®å˜èª¿æ€§ã«ä¾å˜ã—ã¾ã™. + </para> + <para> + F分布ã®ç´¯ç©å€¤ã¯ã©ã®è‡ªç”±åº¦ã§ã‚‚å˜èª¿ã§ã‚ã‚‹å¿…è¦ã¯ã‚ã‚Šã¾ã›ã‚“. + ã“ã®ãŸã‚,指定ã—ãŸCDF値を実ç¾ã™ã‚‹å€¤ãŒ2ã¤å˜åœ¨ã™ã‚‹å¯èƒ½æ€§ãŒã‚ã‚Šã¾ã™. + ã“ã®ãƒ«ãƒ¼ãƒãƒ³ã¯å˜èª¿æ€§ã‚’仮定ã—ã¦ãŠã‚Š, + 2ã¤ã®å€¤ã‹ã‚‰ä»»æ„ã®å€¤ã‚’見ã¤ã‘ã¾ã™. + </para> + <para> + DCDFLIBã‹ã‚‰: ç´¯ç©åˆ†å¸ƒé–¢æ•°, 逆, ãŠã‚ˆã³ä»–ã®ãƒ‘ラメータ用ã®Fortranルーãƒãƒ³ã® + ライブラリ(February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/cdf/cdffnc.xml b/modules/statistics/help/ja_JP/cdf/cdffnc.xml new file mode 100755 index 000000000..e1165110c --- /dev/null +++ b/modules/statistics/help/ja_JP/cdf/cdffnc.xml @@ -0,0 +1,104 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="cdffnc"> + <refnamediv> + <refname>cdffnc</refname> + <refpurpose>ç´¯ç©åˆ†å¸ƒé–¢æ•°: éžå¿ƒF分布</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>[P,Q]=cdffnc("PQ",F,Dfn,Dfd,Pnonc) + [F]=cdffnc("F",Dfn,Dfd,Pnonc,P,Q); + [Dfn]=cdffnc("Dfn",Dfd,Pnonc,P,Q,F); + [Dfd]=cdffnc("Dfd",Pnonc,P,Q,F,Dfn) + [Pnonc]=cdffnc("Pnonc",P,Q,F,Dfn,Dfd); + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>P,Q,F,Dfn,Dfd,Pnonc</term> + <listitem> + <para>åŒã˜å¤§ãã•ã®å®Ÿæ•°ãƒ™ã‚¯ãƒˆãƒ«.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>éžå¿ƒF分布ã®0ã‹ã‚‰Fã¾ã§ã®ç©åˆ†. 入力範囲: [0,1-1E-16).</para> + </listitem> + </varlistentry> + <varlistentry> + <term>F</term> + <listitem> + <para>éžå¿ƒF密度ã®ç©åˆ†ã®ä¸Šé™. 入力範囲: [0, +infinity). 探索範囲: [0,1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Dfn</term> + <listitem> + <para>分åã®äºŒä¹—å’Œã®è‡ªç”±åº¦. 入力範囲: (0, +infinity). 探索範囲: [ 1E-300, 1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Dfd</term> + <listitem> + <para>分æ¯ã®äºŒä¹—å’Œã®è‡ªç”±åº¦. 以下ã®ç¯„囲ã§ã‚ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™: (0, +infinity). 入力範囲: (0, +infinity). 探索範囲: [ 1E-300, 1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Pnonc</term> + <listitem> + <para>éžå¿ƒãƒ‘ラメータ 入力範囲: [0,infinity) 探索範囲: [0,1E4]</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + éžå¿ƒF分布ã®ãƒ‘ラメータã®ä¸€ã¤ã‚’ãれ以外ã®ãƒ‘ラメータã®å€¤ã‚’ + 指定ã—ã¦è¨ˆç®—ã—ã¾ã™. + </para> + <para> + AbramowitzãŠã‚ˆã³Stegunã«ã‚ˆã‚‹, Handbook of + Mathematical Functions (1966)ã®å¼26.6.20 ㌠+ ç´¯ç©åˆ†å¸ƒé–¢æ•°ã‚’計算ã™ã‚‹ãŸã‚ã«ä½¿ç”¨ã•ã‚Œã¾ã™. + </para> + <para> + ãã®ä»–ã®ãƒ‘ラメータã®è¨ˆç®—ã«ã¯, + Pã®æŒ‡å®šã•ã‚ŒãŸå€¤ã‚’出力ã™ã‚‹å€¤ã®æŽ¢ç´¢ã‚’å«ã¿ã¾ã™. + ã“ã®æŽ¢ç´¢ã¯ä»–ã®ãƒ‘ラメータã«å¯¾ã™ã‚‹Pã®å˜èª¿æ€§ã«ä¾å˜ã—ã¾ã™. + </para> + <para> + ã“ã®ãƒ«ãƒ¼ãƒãƒ³ã«å¿…è¦ãªè¨ˆç®—時間ã¯,éžä¸å¿ƒãƒ‘ラメータ (PNONC)ã« + 比例ã—ã¾ã™. + ã“ã®å€¤ãŒéžå¸¸ã«å¤§ããªå€¤ã¨ãªã‚‹ã¨, + 計算機リソースを大é‡ã«æ¶ˆè²»ã—ã¾ã™. + ã“ã‚ŒãŒ,探索範囲ãŒ10,000ã«åˆ¶é™ã•ã‚Œã¦ã„ã‚‹ç†ç”±ã§ã™. + </para> + <para> + F分布ã®ç´¯ç©å€¤ã¯ã©ã®è‡ªç”±åº¦ã§ã‚‚å˜èª¿ã§ã‚ã‚‹å¿…è¦ã¯ã‚ã‚Šã¾ã›ã‚“. + ã“ã®ãŸã‚,指定ã—ãŸCDF値を実ç¾ã™ã‚‹å€¤ãŒ2ã¤å˜åœ¨ã™ã‚‹å¯èƒ½æ€§ãŒã‚ã‚Šã¾ã™. + ã“ã®ãƒ«ãƒ¼ãƒãƒ³ã¯å˜èª¿æ€§ã‚’仮定ã—ã¦ãŠã‚Š, + 2ã¤ã®å€¤ã‹ã‚‰ä»»æ„ã®å€¤ã‚’見ã¤ã‘ã¾ã™. + </para> + <para> + DCDFLIBã‹ã‚‰: ç´¯ç©åˆ†å¸ƒé–¢æ•°, 逆, ãŠã‚ˆã³ä»–ã®ãƒ‘ラメータ用ã®Fortranルーãƒãƒ³ã® + ライブラリ(February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/cdf/cdfgam.xml b/modules/statistics/help/ja_JP/cdf/cdfgam.xml new file mode 100755 index 000000000..66f72b99b --- /dev/null +++ b/modules/statistics/help/ja_JP/cdf/cdfgam.xml @@ -0,0 +1,91 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="cdfgam"> + <refnamediv> + <refname>cdfgam</refname> + <refpurpose>ç´¯ç©åˆ†å¸ƒé–¢æ•°: ガンマ分布</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>[P,Q]=cdfgam("PQ",X,Shape,Scale) + [X]=cdfgam("X",Shape,Scale,P,Q) + [Shape]=cdfgam("Shape",Scale,P,Q,X) + [Scale]=cdfgam("Scale",P,Q,X,Shape) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>P,Q,X,Shape,Scale</term> + <listitem> + <para>åŒã˜å¤§ãã•ã®å®Ÿæ•°ãƒ™ã‚¯ãƒˆãƒ«.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>ガンマ密度ã®0ã‹ã‚‰Xã¾ã§ã®ç©åˆ†. 入力範囲: [0,1].</para> + </listitem> + </varlistentry> + <varlistentry> + <term>X</term> + <listitem> + <para>ガンマ密度ã®ç©åˆ†ã®ä¸Šé™. 入力範囲: [0, +infinity). 探索範囲: [0,1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Shape</term> + <listitem> + <para> ガンマ密度ã®shapeパラメータ. 入力範囲: (0, +infinity). 探索範囲: [1E-300,1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Scale</term> + <listitem> + <para> ガンマ密度ã®scaleパラメータ. 入力範囲: (0, +infinity). 探索範囲: (1E-300,1E300]</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ガンマ分布ã®ãƒ‘ラメータã®ä¸€ã¤ã‚’ãれ以外ã®ãƒ‘ラメータã®å€¤ã‚’ + 指定ã—ã¦è¨ˆç®—ã—ã¾ã™. + </para> + <para> + ç´¯ç©åˆ†å¸ƒé–¢æ•°(P)ã¯ä»¥ä¸‹ã®æ–‡çŒ®ã«é–¢é€£ã™ã‚‹ã‚³ãƒ¼ãƒ‰ã«ã‚ˆã‚Šç›´æŽ¥è¨ˆç®—ã•ã‚Œã¾ã™: + </para> + <para> + DiDinato, A. R. and Morris, A. H. Computation of the incomplete + gamma function ratios and their inverse. ACM Trans. Math. + Softw. 12 (1986), 377-393. + </para> + <para> + ãã®ä»–ã®ãƒ‘ラメータã®è¨ˆç®—ã«ã¯, + Pã®æŒ‡å®šã•ã‚ŒãŸå€¤ã‚’出力ã™ã‚‹å€¤ã®æŽ¢ç´¢ã‚’å«ã¿ã¾ã™. + ã“ã®æŽ¢ç´¢ã¯ä»–ã®ãƒ‘ラメータã«å¯¾ã™ã‚‹Pã®å˜èª¿æ€§ã«ä¾å˜ã—ã¾ã™. + </para> + <para> + ガンマ密度ã¯, + <literal>T**(SHAPE - 1) * EXP(- SCALE * T)</literal>ã«æ¯”例ã—ã¾ã™ + </para> + <para> + DCDFLIBã‹ã‚‰: ç´¯ç©åˆ†å¸ƒé–¢æ•°, 逆, ãŠã‚ˆã³ä»–ã®ãƒ‘ラメータ用ã®Fortranルーãƒãƒ³ã® + ライブラリ(February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/cdf/cdfnbn.xml b/modules/statistics/help/ja_JP/cdf/cdfnbn.xml new file mode 100755 index 000000000..d20e13808 --- /dev/null +++ b/modules/statistics/help/ja_JP/cdf/cdfnbn.xml @@ -0,0 +1,101 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="cdfnbn"> + <refnamediv> + <refname>cdfnbn</refname> + <refpurpose>ç´¯ç©åˆ†å¸ƒé–¢æ•°: è² ã®äºŒé …分布</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>[P,Q]=cdfnbn("PQ",S,Xn,Pr,Ompr) + [S]=cdfnbn("S",Xn,Pr,Ompr,P,Q) + [Xn]=cdfnbn("Xn",Pr,Ompr,P,Q,S) + [Pr,Ompr]=cdfnbn("PrOmpr",P,Q,S,Xn) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>P,Q,S,Xn,Pr,Ompr</term> + <listitem> + <para>åŒã˜å¤§ãã•ã®å®Ÿæ•°ãƒ™ã‚¯ãƒˆãƒ«.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>è² ã®äºŒé …分布ã®0ã‹ã‚‰Sã¾ã§ã®ç´¯ç©. 入力範囲: [0,1].</para> + </listitem> + </varlistentry> + <varlistentry> + <term>S</term> + <listitem> + <para>äºŒé …åˆ†å¸ƒã®ç´¯ç©ã®ä¸Šé™. XN回目ã®æˆåŠŸã®å‰ã«å¤±æ•—ã—ãŸå›žæ•°ã¯F以下ã§ã™. + 入力範囲: [0, +infinity). 探索範囲: [0, 1E300] + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Xn</term> + <listitem> + <para> æˆåŠŸå›žæ•°. 入力範囲: [0, +infinity). 探索範囲: [0, 1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Pr</term> + <listitem> + <para> å„äºŒé …è©¦è¡Œã®æˆåŠŸç¢ºçŽ‡. 入力範囲: [0,1]. 探索範囲: [0,1].</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Ompr</term> + <listitem> + <para> 1-PR 入力範囲: [0,1]. 探索範囲: [0,1] PR + OMPR = 1.0</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + è² ã®äºŒé …分布ã®ãƒ‘ラメータã®ä¸€ã¤ã‚’ãれ以外ã®ãƒ‘ラメータã®å€¤ã‚’ + 指定ã—ã¦è¨ˆç®—ã—ã¾ã™. + </para> + <para> + è² ã®äºŒé …分布ã®ç´¯ç©ã¯,æˆåŠŸç¢ºçŽ‡PRã®å„äºŒé …è©¦è¡Œã«ãŠã„㦠+ XN回目ã®æˆåŠŸã®å‰ã«å¤±æ•—ã™ã‚‹å›žæ•°ãŒ + F回以下ã¨ãªã‚‹ç¢ºçŽ‡ã‚’è¿”ã—ã¾ã™. + </para> + <para> + è² ã®äºŒé …ã®å„é …ã¯,XN回ã®æˆåŠŸã®å‰ã«S回失敗ã™ã‚‹ç¢ºçŽ‡ã§ã‚ã‚Š, + <literal>( S, XN+S-1 ) * PR^(XN) * (1-PR)^S</literal>ã¨ãªã‚Šã¾ã™. + </para> + <para> + AbramowitzãŠã‚ˆã³Stegunã«ã‚ˆã‚‹, Handbook of + Mathematical Functions (1966)ã®26.5.26å¼ãŒ,ç´¯ç©åˆ†å¸ƒé–¢æ•°ã®è¨ˆç®—ã‚’ + ä¸å®Œå…¨ãƒ™ãƒ¼ã‚¿é–¢æ•°ã«ç¸®æ¸›ã™ã‚‹éš›ã«ä½¿ç”¨ã•ã‚Œã¾ã™. + </para> + <para> + ãã®ä»–ã®ãƒ‘ラメータã®è¨ˆç®—ã«ã¯, + Pã®æŒ‡å®šã•ã‚ŒãŸå€¤ã‚’出力ã™ã‚‹å€¤ã®æŽ¢ç´¢ã‚’å«ã¿ã¾ã™. + ã“ã®æŽ¢ç´¢ã¯ä»–ã®ãƒ‘ラメータã«å¯¾ã™ã‚‹Pã®å˜èª¿æ€§ã«ä¾å˜ã—ã¾ã™. + </para> + <para> + DCDFLIBã‹ã‚‰: ç´¯ç©åˆ†å¸ƒé–¢æ•°, 逆, ãŠã‚ˆã³ä»–ã®ãƒ‘ラメータ用ã®Fortranルーãƒãƒ³ã® + ライブラリ(February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/cdf/cdfnor.xml b/modules/statistics/help/ja_JP/cdf/cdfnor.xml new file mode 100755 index 000000000..02e20772b --- /dev/null +++ b/modules/statistics/help/ja_JP/cdf/cdfnor.xml @@ -0,0 +1,236 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="cdfnor"> + <refnamediv> + <refname>cdfnor</refname> + <refpurpose>ç´¯ç©åˆ†å¸ƒé–¢æ•°: æ£è¦åˆ†å¸ƒ</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis> + [P,Q]=cdfnor("PQ",X,Mean,Std) + X=cdfnor("X",Mean,Std,P,Q) + Mean=cdfnor("Mean",Std,P,Q,X) + Std=cdfnor("Std",P,Q,X,Mean) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>P,Q,X,Mean,Std</term> + <listitem> + <para>åŒã˜å¤§ãã•ã®å®Ÿæ•°ãƒ™ã‚¯ãƒˆãƒ«.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>æ£è¦å¯†åº¦ã®-infinity ã‹ã‚‰Xã¾ã§ã®ç©åˆ†. 入力範囲: (0,1].</para> + </listitem> + </varlistentry> + <varlistentry> + <term>X</term> + <listitem> + <para>æ£è¦å¯†åº¦ã®ç©åˆ†ã®ä¸Šé™. 入力範囲: ( -infinity, +infinity)</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Mean</term> + <listitem> + <para> æ£è¦å¯†åº¦ã®å¹³å‡. 入力範囲: (-infinity, +infinity)</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Sd</term> + <listitem> + <para> æ£è¦å¯†åº¦ã®æ¨™æº–åå·®. 入力範囲: (0, +infinity).</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + æ£è¦åˆ†å¸ƒã®ãƒ‘ラメータã®ä¸€ã¤ã‚’ãれ以外ã®ãƒ‘ラメータã®å€¤ã‚’ + 指定ã—ã¦è¨ˆç®—ã—ã¾ã™. + </para> + <para> + Cody, W.D. (1993). "ALGORITHM 715: SPECFUN - A Portabel FORTRAN + Package of Special Function Routines and Test Drivers" + acm Transactions on Mathematical Software. 19, 22-32 + ã«åŸºã¥ãANORMを若干修æ£ã—ãŸã‚‚ã®ãŒç´¯ç©æ¨™æº–æ£è¦åˆ†å¸ƒã‚’計算ã™ã‚‹éš›ã«ä½¿ç”¨ã•ã‚Œã¾ã™. + </para> + <para> + Kennedy and Gentle,Statistical Computing, Marcel Dekker, NY, 1980 + ã®ãƒšãƒ¼ã‚¸90-95ã«åŸºã¥ã有ç†é–¢æ•°ãŒ,逆標準æ£è¦åˆ†å¸ƒã‚’計算ã™ã‚‹éš›ã® + ニュートンå復ã®åˆæœŸå€¤ã¨ã—ã¦ä½¿ç”¨ã•ã‚Œã¾ã™. + ã“ã®ãŸã‚,パラメータã«é–¢ã™ã‚‹æŽ¢ç´¢ã¯ä¸è¦ã§ã™. + </para> + <para> + X < -15ã®å ´åˆ, 逆標準æ£è¦åˆ†å¸ƒã‚’求ã‚ã‚‹éš›ã®åˆæœŸå€¤ã¨ã—㦠+ æ£è¦åˆ†å¸ƒã®ç´šæ•°å±•é–‹ãŒä½¿ç”¨ã•ã‚Œã¾ã™. + ã“ã‚Œã¯, 26.2.12 of Abramowitz and Stegunã® 26.2.12 å¼ã«ã‚ˆã‚Šã¾ã™. + </para> + <para> + æ£è¦åˆ†å¸ƒå¯†åº¦ã¯, + exp( - 0.5 * (( X - MEAN)/SD)**2) ã«æ¯”例ã—ã¾ã™. + </para> + <para> + DCDFLIBã‹ã‚‰: ç´¯ç©åˆ†å¸ƒé–¢æ•°, 逆, ãŠã‚ˆã³ä»–ã®ãƒ‘ラメータ用ã®Fortranルーãƒãƒ³ã® + ライブラリ(February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +// xã‹ã‚‰pを計算 +x = -1; +Mean = 0; +Std = 1; +// P = 0.1586553, Q = 0.8413447 +[P,Q]=cdfnor("PQ",x,Mean,Std) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// éžå¸¸ã«ã¾ã‚Œãªxã‹ã‚‰pを計算 +// PãŒ1ã«è¿‘ã„å ´åˆã€Qを使用ã™ã‚‹å¿…è¦ãŒã‚ã‚Š, +// QãŒ1ã«è¿‘ã„å ´åˆ, Pを使用ã™ã‚‹å¿…è¦ãŒã‚ã‚‹ã“ã¨ã«æ³¨æ„ã—ã¦ãã ã•ã„. +x = 10; +Mean = 0; +Std = 1; +// P = 1, Q = 7.620D-24 +[P,Q]=cdfnor("PQ",x,Mean,Std) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// P,Qã®è¡¨ã‚’ä½œæˆ +Mean = 0; +Std = 1; +x = -6:6; +[P,Q]=cdfnor("PQ",x,Mean*ones(x),Std*ones(x)); +[x' P' Q'] + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// p,qã‹ã‚‰xを計算 +Mean = 0; +Std = 1; +p = 0.1; +q = 0.9; +// x = - 1.2815516 +x = cdfnor("X",Mean,Std,p,q) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// p,qã‹ã‚‰å¹³å‡ã‚’計算 +x = 2; +Std = 1; +p = 0.1; +q = 0.9; +// å¹³å‡ = 3.2815516 +Mean = cdfnor("Mean",Std,p,q,x) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// p,qã‹ã‚‰æ¨™æº–å差を計算 +Mean = 0; +p = 0.1; +q = 0.9; +x = 2; +// 標準åå·® = - 1.5606083 +Std = cdfnor("Std",p,q,x,Mean) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// 関数をプãƒãƒƒãƒˆ +h = scf(); +Mean = [0 0 0 -2]; +Std2 = [0.2 1.0 5.0 0.5]; +cols = [1 2 3 4]; +nf = size(cols,"*"); +lgd = []; +for k = 1 : nf + x = linspace(-5,5,1000); + P=cdfnor("PQ",x,Mean(k)*ones(x),sqrt(Std2(k))*ones(x)); + plot(x,P) + str = msprintf("Mean=%s, Std^2=%s",string(Mean(k)),string(Std2(k))); + lgd($+1) = str; +end +for k = 1 : nf +h.children.children.children(nf - k + 1).foreground = cols(k); +end +legend(lgd); + ]]></programlisting> + <scilab:image> + h = scf(); + Mean = [0 0 0 -2]; + Std2 = [0.2 1.0 5.0 0.5]; + cols = [1 2 3 4]; + nf = size(cols,"*"); + lgd = []; + for k = 1 : nf + x = linspace(-5,5,1000); + P=cdfnor("PQ",x,Mean(k)*ones(x),sqrt(Std2(k))*ones(x)); + plot(x,P) + str = msprintf("Mean=%s, Std^2=%s",string(Mean(k)),string(Std2(k))); + lgd($+1) = str; + end + for k = 1 : nf + h.children.children.children(nf - k + 1).foreground = cols(k); + end + legend(lgd); + </scilab:image> + <programlisting role="example"><![CDATA[ +// 逆累ç©æ¨™æº–関数をプãƒãƒƒãƒˆ +Mean = 0; +Std = 1; +p = linspace(1e-10,1-1e-10,1000); +q = 1-p; +x = cdfnor("X",Mean*ones(p),Std*ones(p),p,q); +plot(p,x) +xtitle("Inverse Cumulated Distribution Normal Standard Function","p","x"); + ]]></programlisting> + <scilab:image localized="true"> + Mean = 0; + Std = 1; + p = linspace(1e-10,1-1e-10,1000); + q = 1-p; + x = cdfnor("X",Mean*ones(p),Std*ones(p),p,q); + plot(p,x) + xtitle("Inverse Cumulated Distribution Normal Standard Function","p","x"); + </scilab:image> + <programlisting role="example"><![CDATA[ +// pãŒ0.5ã«è¿‘ã„時,逆æ£è¦CDFã¯æ‚ªæ¡ä»¶ã¨ãªã‚Šã¾ã™. +// ã“ã‚Œã¯,p=0.5ã§ã¯,関数値ãŒ0ã«ã‚‚é–¢ã‚らãš1階微分ãŒã‚¼ãƒã§ãªããªã‚‹ãŸã‚ã§ã™. +// ã“ã‚Œã«ã‚ˆã‚Š,関数値ã«å¤§ããªç›¸å¯¾èª¤å·®ãŒç™ºç”Ÿã—, p ㌠0.5ã«è¿‘ããªã‚Œã°æˆã‚‹ç¨‹, +// ã„ãã¤ã‹ã®æ¡ãŒä¸æ£ç¢ºã¨ãªã‚Šã¾ã™. +Mean = 0; +Std = 1; +p = 0.500000001; +q = 1-p; +x = cdfnor("X",Mean,Std,p,q) +// 確率ã®äºˆæ¸¬å€¤ã¯,å¼ sqrt(2)*erfinv(2*p-1) ã« p = 1/2+10^-9 ã‚’ +// 代入ã—ã¦,æ•°å¼å‡¦ç†ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã§è¨ˆç®—ã—ãŸã‚‚ã®ã§ã™. +expected = 2.50662827463100050e-9; +// 相対誤差㯠1.e-8 ã§ã‚ã‚Š, 8æ¡æ£ã—ã„ã“ã¨ã‚’æ„味ã—ã¾ã™. +abs(x-expected)/abs(expected) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// ゼãƒæŽ¢ç´¢ã‚¢ãƒ«ã‚´ãƒªã‚ºãƒ ã¯ä½•ã‚‰ã‹ã®ç†ç”±ã§é€†ãŒå®Ÿè¡Œã§ããªã„å ´åˆã« +// 標準å差を計算ã§ããªããªã‚Šã¾ã™. +Mean = 1; +p = 0.5; +q = 0.5; +x = 1; +// 標準åå·® = Nan +Std = cdfnor("Std",p,q,x,Mean) + ]]></programlisting> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/cdf/cdfpoi.xml b/modules/statistics/help/ja_JP/cdf/cdfpoi.xml new file mode 100755 index 000000000..38f7e0390 --- /dev/null +++ b/modules/statistics/help/ja_JP/cdf/cdfpoi.xml @@ -0,0 +1,79 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="cdfpoi"> + <refnamediv> + <refname>cdfpoi</refname> + <refpurpose>ç´¯ç©åˆ†å¸ƒé–¢æ•°: ãƒãƒ¯ã‚½ãƒ³åˆ†å¸ƒ</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>[P,Q]=cdfpoi("PQ",S,Xlam) + [S]=cdfpoi("S",Xlam,P,Q) + [Xlam]=cdfpoi("Xlam",P,Q,S); + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>P,Q,S,Xlam</term> + <listitem> + <para>åŒã˜å¤§ãã•ã®å®Ÿæ•°ãƒ™ã‚¯ãƒˆãƒ«.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>ãƒãƒ¯ã‚½ãƒ³å¯†åº¦ã®0ã‹ã‚‰Sã¾ã§ã®ç©åˆ† : [0,1].</para> + </listitem> + </varlistentry> + <varlistentry> + <term>S</term> + <listitem> + <para>ãƒãƒ¯ã‚½ãƒ³ã®ç´¯ç©ã®ä¸Šé™. 入力範囲: [0, +infinity). 探索範囲: [0,1E300]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>Xlam</term> + <listitem> + <para> ãƒãƒ¯ã‚½ãƒ³åˆ†å¸ƒã®å¹³å‡M. 入力範囲: [0, +infinity). 探索範囲: [0,1E300]</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ãƒã‚¢ã‚½ãƒ³åˆ†å¸ƒã®ãƒ‘ラメータã®ä¸€ã¤ã‚’ãれ以外ã®ãƒ‘ラメータã®å€¤ã‚’ + 指定ã—ã¦è¨ˆç®—ã—ã¾ã™. + </para> + <para> + AbramowitzãŠã‚ˆã³Stegunã«ã‚ˆã‚‹, Handbook of + Mathematical Functions (1966) ã® 26.4.21å¼ãŒ, + ç´¯ç©åˆ†å¸ƒé–¢æ•°ã®è¨ˆç®—をカイ二乗を計算ã™ã‚‹é–¢æ•°,ã™ãªã‚ã¡, + ä¸å®Œå…¨ã‚¬ãƒ³ãƒžé–¢æ•°ã«ç¸®æ¸›ã™ã‚‹éš›ã«ä½¿ç”¨ã•ã‚Œã¾ã™. + </para> + <para> + ç´¯ç©åˆ†å¸ƒé–¢æ•° (P) ã¯,直接計算ã•ã‚Œã¾ã™. + ãã®ä»–ã®ãƒ‘ラメータã®è¨ˆç®—ã¯,指定ã—ãŸPã®å€¤ã‚’出力ã™ã‚‹ + 値ã®æ¤œç´¢ã‚‚å«ã¿ã¾ã™. + ã“ã®æ¤œç´¢ã¯,Pã®ä»–ã®ãƒ‘ラメータã«é–“ã™ã‚‹å˜èª¿æ€§ã«ä¾å˜ã—ã¦ã„ã¾ã™. + </para> + <para> + DCDFLIBã‹ã‚‰: ç´¯ç©åˆ†å¸ƒé–¢æ•°, 逆, ãŠã‚ˆã³ä»–ã®ãƒ‘ラメータ用ã®Fortranルーãƒãƒ³ã® + ライブラリ(February, 1994) + Barry W. Brown, James Lovato and Kathy Russell. The University of + Texas. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/cdf/cdft.xml b/modules/statistics/help/ja_JP/cdf/cdft.xml new file mode 100755 index 000000000..953943225 --- /dev/null +++ b/modules/statistics/help/ja_JP/cdf/cdft.xml @@ -0,0 +1,74 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="cdft"> + <refnamediv> + <refname>cdft</refname> + <refpurpose>ç´¯ç©åˆ†å¸ƒé–¢æ•°:スãƒãƒ¥ãƒ¼ãƒ‡ãƒ³ãƒˆã®T分布</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>[P,Q]=cdft("PQ",T,Df) + [T]=cdft("T",Df,P,Q) + [Df]=cdft("Df",P,Q,T) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>P,Q,T,Df</term> + <listitem> + <para>åŒã˜å¤§ãã•ã®å®Ÿæ•°ãƒ™ã‚¯ãƒˆãƒ«.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>P,Q (Q=1-P) </term> + <listitem> + <para>-ç„¡é™å¤§ã‹ã‚‰t分布ã®tã¾ã§ã®ç©åˆ†.入力範囲: (0,1].</para> + </listitem> + </varlistentry> + <varlistentry> + <term>T</term> + <listitem> + <para> + t分布ã®ç©åˆ†ã®ä¸Šé™. 入力範囲: ( -ç„¡é™å¤§, +ç„¡é™å¤§). 探索範囲: [ -1E150, 1E150 ] + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>Df</term> + <listitem> + <para>t分布ã®è‡ªç”±åº¦. 入力範囲: (0 , +iç„¡é™å¤§). 探索範囲: [1e-300, 1E10]</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + T分布ã®ãƒ‘ラメータã®ä¸€ã¤ã‚’ãれ以外ã®ãƒ‘ラメータã®å€¤ã‚’ + 指定ã—ã¦è¨ˆç®—ã—ã¾ã™. + </para> + <para> + AbramowitzãŠã‚ˆã³Stegunã«ã‚ˆã‚‹Handbook of + Mathematical Functions (1966)ã®å¼26.5.27ãŒ, + ç´¯ç©åˆ†å¸ƒé–¢æ•°ã®è¨ˆç®—ã‚’ä¸å®Œå…¨ãƒ™ãƒ¼ã‚¿é–¢æ•°ã®è¨ˆç®—ã«ç¸®æ¸›ã™ã‚‹ + ãŸã‚ã«ä½¿ç”¨ã•ã‚Œã¾ã™. + </para> + <para> + ãã®ä»–ã®ãƒ‘ラメータã®è¨ˆç®—ã«ã¯, + Pã®æŒ‡å®šã—ãŸå€¤ã‚’出力ã™ã‚‹å€¤ã®æŽ¢ç´¢ã‚‚å«ã¾ã‚Œã¾ã™. + ã“ã®æŽ¢ç´¢ã¯,ãã®ä»–ã®ãƒ‘ラメータã«é–¢ã™ã‚‹Pã®å˜èª¿æ€§ã«ä¾å˜ã—ã¦ã„ã¾ã™. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/central_tendency/CHAPTER b/modules/statistics/help/ja_JP/central_tendency/CHAPTER new file mode 100755 index 000000000..de4b42347 --- /dev/null +++ b/modules/statistics/help/ja_JP/central_tendency/CHAPTER @@ -0,0 +1,2 @@ +title = Central Tendency + diff --git a/modules/statistics/help/ja_JP/central_tendency/geomean.xml b/modules/statistics/help/ja_JP/central_tendency/geomean.xml new file mode 100755 index 000000000..6c3d7f902 --- /dev/null +++ b/modules/statistics/help/ja_JP/central_tendency/geomean.xml @@ -0,0 +1,65 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="geomean"> + <refnamediv> + <refname>geomean</refname> + <refpurpose>幾何å¦çš„å¹³å‡</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>gm=geomean(x) + gm=geomean(x,'r')(or, equivalently, gm=geomean(x,1)) + gm=geomean(x,'c')(or, equivalently, gm=geomean(x,2)) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯,ベクトルã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã®å¹¾ä½•å¦çš„å¹³å‡ + を計算ã—ã¾ã™. + ベクトルã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã«é–¢ã—ã¦, + <literal>gm=geomean(x)</literal>ã¯, + <literal>x</literal>ã®å…¨ã¦ã®ã‚¨ãƒ³ãƒˆãƒªã®å¹¾ä½•å¦çš„å¹³å‡ã‚’ + スカラー<literal>gm</literal>ã«è¿”ã—ã¾ã™. + </para> + <para> + <literal> gm=geomean(x,'r') </literal> (ã¾ãŸã¯ç‰ä¾¡ãª + <literal>gm=gmean(x,1) </literal> ) ã¯, + 行ベクトル<literal>gm</literal>ã®å„エントリã«,<literal>x</literal>ã® + å„列ã®å¹¾ä½•å¦çš„å¹³å‡ã‚’è¿”ã—ã¾ã™. + </para> + <para> + <literal> gm=geomean(x,'c') </literal> (ã¾ãŸã¯ç‰ä¾¡ãª + <literal>gm=gmean(x,2) </literal> ) ã¯, + 列ベクトル<literal>gm</literal>ã®å„エントリã«,<literal>x</literal>ã® + å„è¡Œã®å¹¾ä½•å¦çš„å¹³å‡ã‚’è¿”ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/central_tendency/harmean.xml b/modules/statistics/help/ja_JP/central_tendency/harmean.xml new file mode 100755 index 000000000..19ebec780 --- /dev/null +++ b/modules/statistics/help/ja_JP/central_tendency/harmean.xml @@ -0,0 +1,64 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="harmean"> + <refnamediv> + <refname>harmean</refname> + <refpurpose>調和平å‡</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>hm=harmean(x) + hm=harmean(x,'r')(or, equivalently, hm=harmean(x,1)) + hm=harmean(x,'c')(or, equivalently, hm=harmean(x,2)) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯,ベクトルã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã® + 調和平å‡ã‚’計算ã—ã¾ã™. + ã‚るベクトルã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã«ã¤ã„ã¦, + <literal>hm=harmean(x)</literal>ã¯ã‚¹ã‚«ãƒ©ãƒ¼<literal>hm</literal>ã« + <literal>x</literal>ã®å…¨ã‚¨ãƒ³ãƒˆãƒªã®èª¿å’Œå¹³å‡ã‚’è¿”ã—ã¾ã™. + </para> + <para> + <literal>hm=harmean(x,'r')</literal> (ã¾ãŸã¯ç‰ä¾¡ãª + <literal> hm=harmean(x,1)</literal>) ã¯, + 行ベクトル<literal>hm</literal>ã®å„è¦ç´ ã« + <literal>x</literal>ã®å„列ã®èª¿å’Œå¹³å‡ã‚’è¿”ã—ã¾ã™. + </para> + <para> + <literal>hm=harmean(x,'c')</literal> (ã¾ãŸã¯ç‰ä¾¡ãª + <literal>hm=harmean(x,2)</literal> ) ã¯, + 列ベクトル<literal>hm</literal>ã®å„エントリ㫠+ <literal>x</literal>ã®å„è¡Œã®èª¿å’Œå¹³å‡ã‚’è¿”ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/central_tendency/mean.xml b/modules/statistics/help/ja_JP/central_tendency/mean.xml new file mode 100755 index 000000000..2230a1812 --- /dev/null +++ b/modules/statistics/help/ja_JP/central_tendency/mean.xml @@ -0,0 +1,93 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="mean"> + <refnamediv> + <refname>mean</refname> + <refpurpose>ベクトル/行列ã®è¦ç´ ã®å¹³å‡ (行平å‡, 列平å‡) + </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>y=mean(x) + y=mean(x,'r') + y=mean(x,'c') + y=mean(x,'m') + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ベクトルã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + <varlistentry> + <term>y</term> + <listitem> + <para>スカラーã¾ãŸã¯ãƒ™ã‚¯ãƒˆãƒ«</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + <literal>x</literal>ãŒãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—ã®å ´åˆ, <literal>y=mean(x)</literal> ã¯, + <literal>x</literal>ã®å…¨ã¦ã®è¦ç´ ã®å¹³å‡ã‚’スカラー<literal>y</literal>ã«è¿”ã—ã¾ã™. + </para> + <para> + <literal>y=mean(x,'r')</literal> (ã¾ãŸã¯ç‰ä¾¡çš„ã«, <literal>y=mean(x,1)</literal>) + ã¯è¡Œå˜ä½ã®å¹³å‡ã§ã™. 行ベクトルを返ã—ã¾ã™: <literal>y(j)= + mean(x(:,j)) + </literal> + </para> + <para> + <literal>y=mean(x,'c')</literal> (ã¾ãŸã¯ç‰ä¾¡çš„ã«,<literal>y=mean(x,2)</literal>) + ã¯åˆ—å˜ä½ã®å¹³å‡ã§ã™n. 列ベクトルを返ã—ã¾ã™: <literal>y(i)= + mean(x(i,:)) + </literal> + </para> + <para> + <literal>y=mean(x,'m')</literal> ã¯, + xã®æœ€åˆã®1ã§ãªã„次元ã«æ²¿ã£ãŸå¹³å‡ã§ã™(Matlabã¨ã®äº’æ›ç”¨). + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +A=[1,2,10;7,7.1,7.01]; +mean(A) +mean(A,'r') +mean(A,'c') +A=matrix(1:12,[1,1,2,3,2]); +// ã“ã®å ´åˆ, mean(A,'m') 㯠mean(A,3)ã¨ç‰ä¾¡ã§ã™ (Aã®æœ€åˆã®1ã§ãªã„次元ã¯3) +y=mean(A,'m') + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="sum">sum</link> + </member> + <member> + <link linkend="median">median</link> + </member> + <member> + <link linkend="stdev">stdev</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/central_tendency/meanf.xml b/modules/statistics/help/ja_JP/central_tendency/meanf.xml new file mode 100755 index 000000000..ea108f88c --- /dev/null +++ b/modules/statistics/help/ja_JP/central_tendency/meanf.xml @@ -0,0 +1,65 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="meanf"> + <refnamediv> + <refname>meanf</refname> + <refpurpose>ベクトルã¾ãŸã¯è¡Œåˆ—ã®é‡ã¿ä»˜ãå¹³å‡</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>m=meanf(val,fre) + m=meanf(val,fre,'r') or m=meanf(val,fre,1) + m=meanf(val,fre,'c') or m=meanf(val,fre,2) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>? </term> + <listitem> + <para/> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯,ベクトルã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã®å¹³å‡ã‚’計算ã—ã¾ã™. + ã‚るベクトルã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã«ã¤ã„ã¦, + <literal>m=mn(x)</literal>㯠+ スカラー<literal>m</literal>ã«<literal>x</literal>ã®å…¨ã¦ã®ã‚¨ãƒ³ãƒˆãƒªã® + å¹³å‡ã‚’è¿”ã—ã¾ã™. + <literal>m=mn(x,'r')</literal>(ã¾ãŸã¯ç‰ä¾¡ãª<literal>m=mn(x,1)</literal>) + ã¯è¡Œãƒ™ã‚¯ãƒˆãƒ«<literal>m</literal>ã®å„エントリã«<literal>x</literal>ã®å„列ã®å¹³å‡ã‚’è¿”ã—ã¾ã™. + <literal>m=mn(x,'c')</literal>(ã¾ãŸã¯ç‰ä¾¡ãª<literal>m=mn(x,2)</literal>) + ã¯åˆ—ベクトル<literal>m</literal>ã®å„エントリã«<literal>x</literal>ã®å„è¡Œã®å¹³å‡ã‚’è¿”ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 0.0002211 0.6653811;0.7560439 0.3303271 0.6283918] +m=meanf(x,rand(x)) +m=meanf(x,[10 10 10;1 1 1],'r') +m=meanf(x,[10 10 10;1 1 1],'c') + ]]></programlisting> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/central_tendency/trimmean.xml b/modules/statistics/help/ja_JP/central_tendency/trimmean.xml new file mode 100755 index 000000000..6210e1c69 --- /dev/null +++ b/modules/statistics/help/ja_JP/central_tendency/trimmean.xml @@ -0,0 +1,184 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns3="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="trimmean" xml:lang="ja"> + <refnamediv> + <refname>trimmean</refname> + <refpurpose>ベクトルã¾ãŸã¯è¡Œåˆ—ã®ãƒˆãƒªãƒ å¹³å‡</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>m=trimmean(x[,discard [,flag [,verbose]]])</synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + <varlistentry> + <term>discard</term> + <listitem> + <para>オプションã®0ã¨100ã®é–“実数値ã§, + ç ´æ£„ã™ã‚‹ãƒ‡ãƒ¼ã‚¿ã®éƒ¨åˆ†ã‚’表ã—ã¾ã™. + discardãŒ[0,100]ã®ç¯„囲ã§ãªã„å ´åˆ, + エラーãŒç™ºç”Ÿã—ã¾ã™.デフォルト値㯠discard=50 ã§ã™. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>flag</term> + <listitem> + <para>オプションã®æ–‡å—列ã¾ãŸã¯å®Ÿæ•°ãƒ‘ラメータã§, + xãŒè¡Œåˆ—ã®å ´åˆã®å‹•ä½œã‚’制御ã—ã¾ã™. + flagã«ã¯ä»¥ä¸‹ã®å€¤ã‚’指定å¯èƒ½ã§ã™ : "all", 1, 2, r ã¾ãŸã¯ c + (デフォルト㯠flag="all") ã§ã™. + flag=r 㨠flag=1 ã¯ç‰ä¾¡ã§ã™. + flag=c 㨠flag=2 ã‚‚ç‰ä¾¡ã§ã™. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>verbose</term> + <listitem> + <para>オプションã®æ•´æ•°. 1ã«è¨å®šã•ã‚ŒãŸå ´åˆ, 冗長㪠+ ãƒã‚°ãŒæœ‰åŠ¹ã«ãªã‚Šã¾ã™.デフォルトã¯0ã§ã™. + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + トリム平å‡ã¯,最å°ã‚¹ã‚³ã‚¢ã¨æœ€é«˜ã‚¹ã‚³ã‚¢ã®ä¸€å®šã®å‰²åˆã‚’ç ´æ£„ã—ãŸå¾Œ, + 残るスコアã®å¹³å‡ã‚’求ã‚ã‚‹ã“ã¨ã«ã‚ˆã‚Šè¨ˆç®—ã•ã‚Œã¾ã™. + 例ãˆã°,50%トリムã¯ã‚¹ã‚³ã‚¢ã®ä¸‹ä½ãŠã‚ˆã³ä¸Šä½25%ã‚’ç ´æ£„ã—, + 残るスコアã®å¹³å‡ã‚’求ã‚ã‚‹ã“ã¨ã«ã‚ˆã‚Šè¨ˆç®—ã•ã‚Œã¾ã™. + </para> + <para> + ä¸å¤®å€¤ã¯100%トリム平å‡,ç®—è¡“å¹³å‡ã¯0%トリム平å‡ã§ã™. + </para> + <para> + トリム平å‡ã¯,ç®—è¡“å¹³å‡ã‚ˆã‚Šã‚‚極端ãªã‚¹ã‚³ã‚¢ã®å½±éŸ¿ã‚’明らã‹ã« + よりå—ã‘ã«ãã„ã§ã™. + ã“ã®ãŸã‚,極端ã«æªã‚“ã 分布ã®å ´åˆã«å¹³å‡ã‚ˆã‚Šã‚‚標本化ã®å¤‰å‹•ã¸ã® + 影響をå—ã‘ã«ãã„ã§ã™. + 統計ã®åŠ¹çŽ‡ã¯,統計ãŒæ¨™æœ¬é–“ã§å®‰å®šã§ã‚る度åˆã§ã™. + ã“ã‚Œã¯,ã‚る統計é‡ã®æ¨™æœ¬åŒ–ã®å¤‰å‹•ã«å¯¾ã™ã‚‹æ„Ÿåº¦ãŒä½Žã„程,より効率的ã§ã‚る㨠+ ã„ã†ã“ã¨ã§ã™. + 統計é‡ã®åŠ¹çŽ‡ã¯,ä»–ã®çµ±è¨ˆé‡ã®åŠ¹çŽ‡ã«å¯¾ã—ã¦ç›¸å¯¾çš„ã«è¦³æ¸¬ã•ã‚Œ, + ã“ã®ãŸã‚ã—ã°ã—ã°ç›¸å¯¾åŠ¹çŽ‡ã¨å‘¼ã°ã‚Œã¾ã™. + 統計é‡AãŒçµ±è¨ˆé‡Bよりも標準誤差ãŒå°ã•ã„ã¨ã™ã‚‹ã¨, + 統計é‡Aã¯çµ±è¨ˆé‡Bよりも効率的ã¨ã„ã†ã“ã¨ã«ãªã‚Šã¾ã™. + 2ã¤ã®çµ±è¨ˆé‡ã®ç›¸å¯¾åŠ¹çŽ‡ã¯å†…部分布ã«ä¾å˜ã™ã‚‹å¯èƒ½æ€§ãŒã‚ã‚Šã¾ã™. + 例ãˆã°, + æ£è¦åˆ†å¸ƒã§ã¯å¹³å‡ã¯ä¸å¤®å€¤ã‚ˆã‚Šã‚‚効率的ã§ã™ãŒ, + ã„ãã¤ã‹ã®æ¥µç«¯ã«æªã‚“ã 分布ã§ã¯ãã†ã§ã¯ã‚ã‚Šã¾ã›ã‚“. + 統計é‡ã®åŠ¹çŽ‡ã¯æŽ¨å®šã®ç²¾åº¦ã¨ã¿ãªã™ã“ã¨ã‚‚ã§ãã¾ã™: + 統計é‡ãŒã‚ˆã‚ŠåŠ¹çŽ‡çš„ã«ãªã‚‹ã¨,パラメータã®æŽ¨å®šå™¨ã¨ã—ã¦ã® + より精度ãŒé«˜ããªã‚Šã¾ã™. + æ£è¦åˆ†å¸ƒã®å ´åˆ,トリム平å‡ã¯å¹³å‡ã‚ˆã‚Šã‚‚効率的ã§ã¯ã‚ã‚Šã¾ã›ã‚“. + </para> + <para> + ã‚るベクトルã¾ãŸã¯è¡Œåˆ— <literal>x</literal>ã«ã¤ã„ã¦, + <literal>t=trimmean(x,discard)</literal> ã¯, + <literal>discard/2</literal>個ã®æœ€å¤§å€¤ã¨ + <literal>discard/2</literal>個ã®æœ€å°å€¤ã‚’ç ´æ£„ã—ãŸå¾Œ, + スカラー<literal>t</literal>ã«, + <literal>x</literal>ã®å…¨ã‚¨ãƒ³ãƒˆãƒªã®å¹³å‡ã‚’è¿”ã—ã¾ã™. + </para> + <para> + <literal>t=trimmean(x,discard,'r')</literal> (ã¾ãŸã¯ç‰ä¾¡ãª, + <literal>t=trimmean(x,discard,1)</literal>) ã¯è¡Œãƒ™ã‚¯ãƒˆãƒ«<literal>t</literal> + ã®å„エントリ㫠+ <literal>x</literal>ã®å„列ã®ãƒˆãƒªãƒ å¹³å‡ã‚’è¿”ã—ã¾ã™. + </para> + <para> + <literal>t=trimmean(x,discard,'c')</literal> (ã¾ãŸã¯ç‰ä¾¡ãª, + <literal>t=trimmean(x,discard,2)</literal>) ã¯åˆ—ベクトル<literal>t</literal> + ã®å„エントリ㫠+ <literal>x</literal>ã®å„è¡Œã®ãƒˆãƒªãƒ å¹³å‡ã‚’è¿”ã—ã¾ã™. + </para> + <para> + ã“ã®é–¢æ•°ã¯ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã® + トリム平å‡ã‚’計算ã—ã¾ã™. + </para> + <para> + ã‚るベクトルã¾ãŸã¯è¡Œåˆ— <literal>x</literal>ã«ã¤ã„ã¦, + <literal>m=trimmean(x,discard)</literal> ã¯, + スカラーr<literal> m</literal>ã«<literal>x</literal>ã® + 全エントリã®ãƒˆãƒªãƒ å¹³å‡ã‚’è¿”ã—ã¾ã™. + </para> + <para> + <literal>m=trimmean(x,'r')</literal> (ã¾ãŸã¯ç‰ä¾¡ãª,<literal> + m=trimmean(x,1) + </literal> + )ã¯, + 行ベクトル<literal>m</literal>ã®å„エントリ㫠+ <literal>x</literal>ã®å„列ã®ãƒˆãƒªãƒ å¹³å‡ã‚’è¿”ã—ã¾ã™. + </para> + <para> + <literal>m=trimmean(x,'c')</literal> (ã¾ãŸã¯ç‰ä¾¡ãª,<literal> + m=trimmean(x,2) + </literal> + )ã¯, + 列ベクトル<literal>m</literal>ã®å„エントリ㫠+ <literal>x</literal>ã®å„è¡Œã®ãƒˆãƒªãƒ å¹³å‡ã‚’è¿”ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>x ãŒãƒ™ã‚¯ãƒˆãƒ«ã®æ™‚ã®ä¾‹</title> + <para> + 以下ã®ä¾‹ã§ã¯,データベクトルã®ãƒˆãƒªãƒ å¹³å‡ãŒè¨ˆç®—ã•ã‚Œ, + デフォルトã§discardã®å€¤ã¯50ã¨ãªã‚Š,冗長ãªãƒã‚°ãŒè¡Œã‚ã‚Œã¾ã™. + データã¯9個ã®ã‚¨ãƒ³ãƒˆãƒªã‹ã‚‰æ§‹æˆã•ã‚Œã¾ã™. + アルゴリズムã¯ã“ã®ãƒ™ã‚¯ãƒˆãƒ«ã‚’ソートã—, + インデックス3ã‹ã‚‰7ã®ã¿ã‚’ä¿æŒã—,インデックス1,2,8ãŠã‚ˆã³9を飛ã°ã—ã¾ã™. + ä»–ã®å€¤ã‚ˆã‚Šã‚‚è‘—ã—ã大ãã„値4000ã¯æŽ¡ç”¨ã•ã‚Œã¾ã›ã‚“. + ã“ã®ãŸã‚,トリム平å‡ã®è¨ˆç®—値ã¯50ã¨ãªã‚Šã¾ã™. + </para> + <programlisting role="example"><![CDATA[ +data = [10, 20, 30, 40, 50, 60, 70, 80, 4000]; +computed = trimmean(data,verbose=1); + ]]></programlisting> + </refsection> + <refsection> + <title>x ãŒè¡Œåˆ—ã®æ™‚ã®ä¾‹</title> + <para>以下ã®ä¾‹ã§ã¯,データ行列ã®ãƒˆãƒªãƒ å¹³å‡ãŒè¨ˆç®—ã•ã‚Œã¾ã™. + é¸æŠžã•ã‚ŒãŸdiscardã®å€¤ã¯50ã§ã™. + orientationã¯"r"ã§ãƒ‡ãƒ¼ã‚¿ãŒè¡Œæ¯Žã«ã‚½ãƒ¼ãƒˆã•ã‚Œã‚‹ã“ã¨ã‚’æ„味ã—ã¾ã™. + 行列ã®å„列ã«ã¤ã„ã¦,トリム平å‡ãŒè¨ˆç®—ã•ã‚Œã¾ã™. + トリム平å‡ã¯è¡Œãƒ™ã‚¯ãƒˆãƒ« [25 25 25 25]ã¨ãªã‚Šã¾ã™. + </para> + <programlisting role="example"><![CDATA[ +data = [10 10 10 10 + 20 20 20 20 + 30 30 30 30 + 4000 4000 4000 4000]; +computed = trimmean(data,50,orien="r"); + ]]></programlisting> + </refsection> + <refsection> + <title>å‚考文献</title> + <para>Luis Angel Garcia-Escudero and Alfonso Gordaliza, Robustness + Properties of Means and Trimmed Means, JASA, Volume 94, Number 447, Sept + 1999, pp956-969 + </para> + <para> + Trimmed Mean, <ulink url="http://davidmlane.com/hyperstat/A11971.html">http://davidmlane.com/hyperstat/A11971.html</ulink> + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/data_missing_values/CHAPTER b/modules/statistics/help/ja_JP/data_missing_values/CHAPTER new file mode 100755 index 000000000..c127dfd8b --- /dev/null +++ b/modules/statistics/help/ja_JP/data_missing_values/CHAPTER @@ -0,0 +1,2 @@ +title = Data with Missing Values + diff --git a/modules/statistics/help/ja_JP/data_missing_values/nancumsum.xml b/modules/statistics/help/ja_JP/data_missing_values/nancumsum.xml new file mode 100755 index 000000000..1544b145f --- /dev/null +++ b/modules/statistics/help/ja_JP/data_missing_values/nancumsum.xml @@ -0,0 +1,102 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="nancumsum"> + <refnamediv> + <refname>nancumsum</refname> + <refpurpose> + 行列ã®å€¤ã®ç´¯ç©åˆè¨ˆ + </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>s = nancumsum(x,orient)</synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>x ã¯æ•°å€¤ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—ã§ã™.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>orient</term> + <listitem> + <para>オプションã®ãƒ‘ラメータã§, + 指定å¯èƒ½ãªå€¤ã¯ + '*', 1, 2, 'r' ã¾ãŸã¯ 'c'. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>s</term> + <listitem> + <para>数値スカラーã¾ãŸã¯ãƒ™ã‚¯ãƒˆãƒ«. + NaNを無視ã—ãŸxã®å€¤ã®ç´¯ç©åˆè¨ˆã‚’å«ã¿ã¾ã™. + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯ã‚¹ã‚«ãƒ©ãƒ¼ã¾ãŸã¯ãƒ™ã‚¯ãƒˆãƒ«sã« + ベクトルã¾ãŸã¯è¡Œåˆ—(実数ã¾ãŸã¯è¤‡ç´ æ•°)xã® + (NaNを無視ã—ãŸ)値ã®ç´¯ç©åˆè¨ˆã‚’è¿”ã—ã¾ã™. + </para> + <para> + ã“ã®é–¢æ•°ã¯,ã‚るベクトルã¾ãŸã¯è¡Œåˆ—xã«ã¤ã„ã¦, + s=nancumsum(x) + (ã¾ãŸã¯ç‰ä¾¡ãª s=nancumsum(x,'*')) ã¯, + スカラー sã« xã®åˆ—æ–¹å‘ã«å–å¾—ã—ãŸå…¨ã¦ã®ã‚¨ãƒ³ãƒˆãƒªã® + (NaNを無視ã—ãŸ)ç´¯ç©åˆè¨ˆã‚’è¿”ã—ã¾ã™. + </para> + <para> + s=nancumsum(x,'r') (ã¾ãŸã¯ç‰ä¾¡ãª s=nancumsum(x,1)) + ã¯,大ãã• cols(x) ã®ãƒ™ã‚¯ãƒˆãƒ«sã« + x ã®è¡Œã®(NaNを無視ã—ãŸ)ç´¯ç©åˆè¨ˆã‚’è¿”ã—ã¾ã™: s(:,i)=nancumsum(x(:,i)) + </para> + <para> + s=nancumsum(x,'c') (ã¾ãŸã¯ç‰ä¾¡ãª s=nancumsum(x,2)) + ã¯,大ãã• rows(x) ã®ãƒ™ã‚¯ãƒˆãƒ«sã« + xã®åˆ—ã®(NaNを無視ã—ãŸ)ç´¯ç©åˆè¨ˆã‚’è¿”ã—ã¾ã™: s(i,:)=nancumsum(x(i,:)) + </para> + <para> + 最後ã®2ã¤ã®ã‚±ãƒ¼ã‚¹ã«ãŠã„ã¦, + ã‚ã‚‹è¡Œã¾ãŸã¯åˆ—ãŒå…¨ã¦NaNã‹ã‚‰æ§‹æˆã•ã‚Œã‚‹å ´åˆ, + sã®å¯¾å¿œã™ã‚‹ä½ç½®ã¯NaNã¨ãªã‚Šã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +a=[1 2 3;4 5 6] +s=nancumsum(a) +s=nancumsum(a,'r') +s=nancumsum(a,'c') + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="nansum">nansum</link> + </member> + <member> + <link linkend="cumsum">cumsum</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/data_missing_values/nand2mean.xml b/modules/statistics/help/ja_JP/data_missing_values/nand2mean.xml new file mode 100755 index 000000000..1b2758dbd --- /dev/null +++ b/modules/statistics/help/ja_JP/data_missing_values/nand2mean.xml @@ -0,0 +1,73 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="nand2mean"> + <refnamediv> + <refname>nand2mean</refname> + <refpurpose>2組ã®ç‹¬ç«‹ã—ãŸæ¨™æœ¬ã®å¹³å‡ã®å·®</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>[dif]=nand2mean(sample1,sample2) + [dif]=nand2mean(sample1,sample2,conf) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>sample1</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + <varlistentry> + <term>sample2</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + <varlistentry> + <term>conf</term> + <listitem> + <para>0 㨠1ã®é–“ã®å®Ÿæ•°ã‚¹ã‚«ãƒ©ãƒ¼</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯,2組ã®ç‹¬ç«‹ã—ãŸæ¨™æœ¬ + (é…列sample1 ãŠã‚ˆã³ sample2)ã®å¹³å‡ã®å·® + ã®æŽ¨å®šå€¤(dif(1))を計算ã—ã¾ã™.ã¾ãŸ, + 指定ã—ãŸä¿¡é ¼åº¦ã‚’有ã™ã‚‹difã®ã°ã‚‰ã¤ãã®ç¯„囲ã®åŠåˆ†ã®å¤§ãã•ã‚’ + 出力ã—ã¾ã™(dif(2)). + 確率関数ã¨ã—ã¦ã®æ£è¦åˆ†å¸ƒã¾ãŸã¯t分布ã®é¸æŠžã¯, + sample1ãŠã‚ˆã³sample2ã®å¤§ãã•ã«ä¾å˜ã—ã¦ã„ã¾ã™. + ã“ã“ã§ã¯,両方ã®æ¯é›†å›£ã®æ½œåœ¨çš„分散ã¯åŒã˜ã§ã‚ã‚‹ã¨ä»®å®šã—ã¾ã™. + NaN値ã¯ç„¡è¦–ã•ã‚Œã¾ã™. + </para> + <para> + Labostatã§ã¯, NaN値ã¯è¡¨ã®ä¸ã®æ¬ æ値をæ„味ã—ã¾ã™. + </para> + <para> + ä¿¡é ¼åº¦ãƒ‘ãƒ©ãƒ¡ãƒ¼ã‚¿ãŒæŒ‡å®šã•ã‚Œãªã„å ´åˆ,ä¿¡é ¼åº¦ãƒ¬ãƒ™ãƒ« 95% ãŒä»®å®šã•ã‚Œã¾ã™. + </para> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, 5th edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/data_missing_values/nanmax.xml b/modules/statistics/help/ja_JP/data_missing_values/nanmax.xml new file mode 100755 index 000000000..0ce7dce2d --- /dev/null +++ b/modules/statistics/help/ja_JP/data_missing_values/nanmax.xml @@ -0,0 +1,87 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="nanmax"> + <refnamediv> + <refname>nanmax</refname> + <refpurpose>最大値 (Nanを無視) </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>[m,index]=nanmax(x) + [m,index]=nanmax(x,'r') + [m,index]=nanmax(x,'c') + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯,ã‚る実数ã¾ãŸã¯æ•°å€¤è¡Œåˆ—<literal>x</literal>ã«ã¤ã„ã¦, + 最大ã®è¦ç´ <literal>m</literal> (NaNã¯ç„¡è¦–)を出力ã—ã¾ã™. + </para> + <para> + <literal>x</literal>ãŒæ•°å€¤ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—ã®å ´åˆ, + <literal>m=nanmax(x</literal>ã¯ã‚¹ã‚«ãƒ©ãƒ¼<literal>m</literal>ã« + <literal>x</literal>ã«æœ€å¤§ã®è¦ç´ (NaNを無視)ã‚’ + è¿”ã—ã¾ã™. + <literal>[m,index] =nanmax(x,orient)</literal>ã¯, + <literal>x</literal>ã®(NaNを無視ã—ãŸ)最大è¦ç´ ã®å€¤ã‚’ + スカラー<literal>m</literal>,ãã—ã¦, + <literal>x</literal>ã«ãŠã‘ã‚‹ã“ã®è¦ç´ ã®ã‚¤ãƒ³ãƒ‡ãƒƒã‚¯ã‚¹ã‚’ + 出力ã—ã¾ã™. + </para> + <para> + <literal>m=nanmax(x,'r')</literal> ã¯, + <literal>x</literal>ã®å„列ã®(NaNを無視ã—ãŸ)最大è¦ç´ ã‚’ + 1è¡Œsize(x,2)列ã®è¡Œåˆ—ã«å‡ºåŠ›ã—ã¾ã™. + <literal>[m,index]=nanmax(x,'r')</literal>を使用ã—ãŸå ´åˆ, + 1è¡Œsize(x,2)列ã®è¡Œåˆ—indexã¯ãã®å¯¾å¿œã™ã‚‹åˆ—ãŒxã®å„列ã®æœ€å¤§è¦ç´ ã® + インデクスã¨ãªã‚Šã¾ã™. + </para> + <para> + m=nanmax(x,'c') ã¯,size(x,2)x1行列mã« + xã®å„è¡Œã®(NaNを無視ã—ãŸ)最大è¦ç´ を出力ã—ã¾ã™. + [m,index]=nanmax(x,'c')を使用ã—ãŸå ´åˆ, + size(x,2)x1行列indexã¯,対応ã™ã‚‹è¡ŒãŒxã®å„行㮠+ (NaNを無視ã—ãŸ)最大è¦ç´ ã®ã‚¤ãƒ³ãƒ‡ãƒƒã‚¯ã‚¹ã¨ãªã‚Šã¾ã™. + </para> + <para> + Labostatã§ã¯, NAN 値ã¯è¡¨ã«ãŠã‘ã‚‹æ¬ æ値をæ„味ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 %nan 0.6653811;0.7560439 0.3303271 0.6283918] +m=nanmax(x) +m=nanmax(x,'r') +m=nanmax(x,'c') + ]]></programlisting> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/data_missing_values/nanmean.xml b/modules/statistics/help/ja_JP/data_missing_values/nanmean.xml new file mode 100755 index 000000000..21c403604 --- /dev/null +++ b/modules/statistics/help/ja_JP/data_missing_values/nanmean.xml @@ -0,0 +1,83 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="nanmean"> + <refnamediv> + <refname>nanmean</refname> + <refpurpose>å¹³å‡ (Nanを無視)</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>m=nanmean(val) + m=nanmean(val,'r') (or m=nanmean(val,1)) + m=nanmean(val,'c') (or m=nanmean(val,2)) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>val</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯,ã‚る実数ã¾ãŸã¯æ•°å€¤è¡Œåˆ—<literal>val</literal>ã«ã¤ã„ã¦, + 値ã®å¹³å‡(NaNã¯ç„¡è¦–)ã‚’<literal>m</literal>ã«å‡ºåŠ›ã—ã¾ã™. + </para> + <para> + <literal>val</literal>ãŒæ•°å€¤ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—ã®å ´åˆ, + <literal>m=nanmean(val)</literal>ã¾ãŸã¯ + <literal>m=nanmean(val,'*')</literal>㯠+ スカラー<literal>m</literal>ã« + <literal>val</literal>ã®(NaNを無視ã—ãŸ)全エントリã®å¹³å‡ã‚’ + è¿”ã—ã¾ã™. + </para> + <para> + <literal>m=nanmean(val,'r')</literal> (ã‚‚ã—ãã¯ç‰ä¾¡ãª + <literal>m=nanmean(val,1)</literal>)ã¯, + 1xsize(val,'c')ã®è¡Œãƒ™ã‚¯ãƒˆãƒ«<literal>m</literal>ã® + å„エントリã«<literal>val</literal>ã®å„列㮠+ (NaNを無視ã—ãŸ)å¹³å‡ã‚’è¿”ã—ã¾ã™. + </para> + <para> + <literal>m=nanmeanf(val,'c')</literal> (ã‚‚ã—ãã¯ç‰ä¾¡ãª + <literal>m=nanmean(val,2)</literal>ã¯, + size(val,'c')x1ã®åˆ—ベクトル<literal>m</literal>ã® + å„エントリã«<literal>val</literal>ã®å„行㮠+ (NaNを無視ã—ãŸ)å¹³å‡ã‚’è¿”ã—ã¾ã™. + </para> + <para> + Labostatã§ã¯, NAN 値ã¯è¡¨ã«ãŠã‘ã‚‹æ¬ æ値をæ„味ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 %nan 0.6653811;0.7560439 0.3303271 0.6283918] +m=nanmean(x) +m=nanmean(x,1) +m=nanmean(x,2) + ]]></programlisting> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/data_missing_values/nanmeanf.xml b/modules/statistics/help/ja_JP/data_missing_values/nanmeanf.xml new file mode 100755 index 000000000..ed06caaaf --- /dev/null +++ b/modules/statistics/help/ja_JP/data_missing_values/nanmeanf.xml @@ -0,0 +1,96 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="nanmeanf"> + <refnamediv> + <refname>nanmeanf</refname> + <refpurpose>é »åº¦ã‚’æŒ‡å®šã—ãŸå¹³å‡ (Nanを無視).</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>m=nanmean(val,fre) + m=nanmean(val,fre,'r') (or m=nanmean(val,fre,1)) + m=nanmean(val,fre,'c') (or m=nanmean(val,fre,2)) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>val</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + <varlistentry> + <term>fre</term> + <listitem> + <para>valã¨åŒã˜æ¬¡å…ƒã®æ•´æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯,ã‚る実数ã¾ãŸã¯æ•°å€¤è¡Œåˆ—<literal>val</literal>ã«ã¤ã„ã¦, + <literal>val</literal>ã¨åŒã˜åž‹ã®æ•´æ•°ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ— + <literal>fre</literal>ã®å¯¾å¿œã™ã‚‹å€¤ã«ã‚ˆã‚Šç¤ºã•ã‚ŒãŸé »åº¦ã‚’ + 考慮ã—ã¦,値ã®å¹³å‡(NaNã¯ç„¡è¦–)ã‚’<literal>m</literal>ã«è¿”ã—ã¾ã™. + </para> + <para> + ã‚るベクトルã¾ãŸã¯è¡Œåˆ—<literal>val</literal>ã«ã¤ã„ã¦, + <literal> m=nanmeanf(val,fre)</literal>ã¾ãŸã¯ + <literal> m=nanmeanf(val,fre,'*')</literal>ã¯, + スカラー<literal>m</literal>ã« + å„値ã¯<literal>fre</literal>ã®å¯¾å¿œã™ã‚‹å€¤ã«ç¤ºã•ã‚ŒãŸ + 乗数を考慮ã—㦠+ <literal>val</literal>ã®(NaNを無視ã—ãŸ)全エントリã®å¹³å‡ã‚’ + è¿”ã—ã¾ã™. + </para> + <para> + <literal>m=nanmeanf(val,fre,'r')</literal> (ã‚‚ã—ãã¯ç‰ä¾¡ãª, + <literal>m=nanmeanf(val,fre,1)</literal> ) ã¯, + 1xsize(val,'c')ã®è¡Œãƒ™ã‚¯ãƒˆãƒ«<literal>m</literal>ã® + å„エントリã«<literal>val</literal>ã®å„列㮠+ <literal>fre</literal>ã®å¯¾å¿œã™ã‚‹å€¤ã«ç¤ºã•ã‚ŒãŸä¹—数を考慮ã—㟠+ (NaNを無視ã—ãŸ)å¹³å‡ã‚’è¿”ã—ã¾ã™. + </para> + <para> + <literal>m=nanmeanf(val,fre,'c')</literal> (ã‚‚ã—ãã¯ç‰ä¾¡ãª, + <literal>m=nanmeanf(val,fre,2)</literal>) ã¯, + size(val,'c')x1ã®åˆ—ベクトル<literal>m</literal>ã® + å„エントリã«<literal>val</literal>ã®å„行㮠+ <literal>fre</literal>ã®å¯¾å¿œã™ã‚‹å€¤ã«ç¤ºã•ã‚ŒãŸä¹—数を考慮ã—㟠+ (NaNを無視ã—ãŸ)å¹³å‡ã‚’è¿”ã—ã¾ã™. + </para> + <para> + Labostatã§ã¯, NAN 値ã¯è¡¨ã«ãŠã‘ã‚‹æ¬ æ値をæ„味ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 %nan 0.6653811;0.7560439 0.3303271 0.6283918] +fre=[34 12 25;12 23 5] +m=nanmeanf(x,fre) +m=nanmeanf(x,fre,1) +m=nanmeanf(x,fre,2) + ]]></programlisting> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/data_missing_values/nanmedian.xml b/modules/statistics/help/ja_JP/data_missing_values/nanmedian.xml new file mode 100755 index 000000000..a691b4f44 --- /dev/null +++ b/modules/statistics/help/ja_JP/data_missing_values/nanmedian.xml @@ -0,0 +1,76 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="nanmedian"> + <refnamediv> + <refname>nanmedian</refname> + <refpurpose>数値ベクトルã¾ãŸã¯è¡Œåˆ—ã®å€¤ã®ä¸å¤®å€¤</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>m=nanmedian(x) + m=nanmedian(x,'r') (or m=nanmedian(x,1)) + m=nanmedian(x,'c') (or m=nanmedian(x,2)) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã‚るベクトルã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã«é–¢ã—ã¦, + <literal>[m]=nanmedian(x)</literal> ã¯ãƒ™ã‚¯ãƒˆãƒ«<literal>m</literal>ã« + ベクトル<literal>x</literal>ã®(NaNを無視ã—ãŸ)値ã®ä¸å¤®å€¤ã‚’è¿”ã—ã¾ã™. + </para> + <para> + <literal>[m]=nanmedian(x,'r')</literal> (ã‚‚ã—ãã¯ç‰ä¾¡ãª, + <literal>[m]=nanmedian(x,1)</literal>) ã¯è¡Œæ–¹å‘ã®ä¸å¤®å€¤ã§ã™. + ã“ã®å ´åˆ,行ベクトル<literal> m</literal>ã®å„ä½ç½®ã« + <literal>x</literal>ã®å¯¾å¿œã™ã‚‹è¡Œã® + データã®(NaNを無視ã—ãŸ)ä¸å¤®å€¤ãŒè¿”ã•ã‚Œã¾ã™. + </para> + <para> + <literal>[m]=nanmedian(x,'c')</literal> (ã‚‚ã—ãã¯ç‰ä¾¡ãª, + <literal>[m]=nanmedian(x,2)</literal>) ã¯åˆ—æ–¹å‘ã®ä¸å¤®å€¤ã§ã™ + ã“ã®å ´åˆ,列ベクトル<literal> m</literal>ã®å„ä½ç½®ã« + <literal>x</literal>ã®å¯¾å¿œã™ã‚‹åˆ—ã® + データã®(NaNを無視ã—ãŸ)ä¸å¤®å€¤ãŒè¿”ã•ã‚Œã¾ã™. + </para> + <para> + Labostatã§ã¯, NAN 値ã¯è¡¨ã«ãŠã‘ã‚‹æ¬ æ値をæ„味ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 %nan 0.6653811;0.7560439 0.3303271 0.6283918] +m=nanmedian(x) +m=nanmedian(x,1) +m=nanmedian(x,2) + ]]></programlisting> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/data_missing_values/nanmin.xml b/modules/statistics/help/ja_JP/data_missing_values/nanmin.xml new file mode 100755 index 000000000..427e7645c --- /dev/null +++ b/modules/statistics/help/ja_JP/data_missing_values/nanmin.xml @@ -0,0 +1,91 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="nanmin"> + <refnamediv> + <refname>nanmin</refname> + <refpurpose>最å°å€¤ (Nanを無視) </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>[m,index]=nanmin(x) + [m,index]=nanmin(x,'r') + [m,index]=nanmin(x,'c') + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯,ã‚る実数ã¾ãŸã¯æ•°å€¤è¡Œåˆ—<literal>x</literal>ã«ã¤ã„ã¦, + 最å°ã®è¦ç´ <literal>m</literal> (NaNã¯ç„¡è¦–)を出力ã—ã¾ã™. + </para> + <para> + <literal>x</literal>ãŒæ•°å€¤ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—ã®å ´åˆ, + <literal>m=nanmin(x</literal>ã¯ã‚¹ã‚«ãƒ©ãƒ¼<literal>m</literal>ã« + <literal>x</literal>ã«æœ€å°ã®è¦ç´ (NaNを無視)ã‚’ + è¿”ã—ã¾ã™. + <literal>[m,index] =nanmin(x,orient)</literal>ã¯, + <literal>x</literal>ã®(NaNを無視ã—ãŸ)最å°è¦ç´ ã®å€¤ã‚’ + スカラー<literal>m</literal>,ãã—ã¦, + <literal>x</literal>ã«ãŠã‘ã‚‹ã“ã®è¦ç´ ã®ã‚¤ãƒ³ãƒ‡ãƒƒã‚¯ã‚¹ã‚’ + 出力ã—ã¾ã™. + </para> + <para> + <literal>m=nanmin(x,'r')</literal> ã¯, + <literal>x</literal>ã®å„列ã®(NaNを無視ã—ãŸ)最å°è¦ç´ ã‚’ + 1è¡Œsize(x,2)列ã®è¡Œåˆ—ã«å‡ºåŠ›ã—ã¾ã™. + <literal>[m,index]=nanmin(x,'r')</literal>を使用ã—ãŸå ´åˆ, + 1è¡Œsize(x,2)列ã®è¡Œåˆ—indexã¯ãã®å¯¾å¿œã™ã‚‹åˆ—ãŒxã®å„列ã®æœ€å°è¦ç´ ã® + インデクスã¨ãªã‚Šã¾ã™. + </para> + <para> + m=nanmin(x,'c') ã¯,size(x,2)x1行列mã« + xã®å„è¡Œã®(NaNを無視ã—ãŸ)最å°è¦ç´ を出力ã—ã¾ã™. + [m,index]=namin(x,'c')を使用ã—ãŸå ´åˆ, + size(x,2)x1行列indexã¯,対応ã™ã‚‹è¡ŒãŒxã®å„行㮠+ (NaNを無視ã—ãŸ)最å°è¦ç´ ã®ã‚¤ãƒ³ãƒ‡ãƒƒã‚¯ã‚¹ã¨ãªã‚Šã¾ã™. + </para> + <para> + Labostatã§ã¯, NAN 値ã¯è¡¨ã«ãŠã‘ã‚‹æ¬ æ値をæ„味ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 %nan 0.6653811;0.7560439 0.3303271 0.6283918] +m=nanmin(x) +m=nanmin(x,'r') +m=nanmin(x,'c') + ]]></programlisting> + </refsection> + <refsection> + <title>作者s</title> + <para> Carlos Klimann</para> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/data_missing_values/nanreglin.xml b/modules/statistics/help/ja_JP/data_missing_values/nanreglin.xml new file mode 100755 index 000000000..38eac2f71 --- /dev/null +++ b/modules/statistics/help/ja_JP/data_missing_values/nanreglin.xml @@ -0,0 +1,144 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2014 - Scilab Enterprises - Paul Bignier + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="nanreglin"> + <refnamediv> + <refname>nanreglin</refname> + <refpurpose>線形回帰</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>[a,b]=nanreglin(x,y)</synopsis> + </refsynopsisdiv> + <refsection> + <title>引数</title> + <variablelist> + <varlistentry> + <term>x, y, a, b</term> + <listitem> + <para>数値ベクトルã¾ãŸã¯è¡Œåˆ—.</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + 回帰å•é¡Œ y=a*x+b を最å°äºŒä¹—法ã§è§£ãã¾ã™. + <literal>x</literal> 㨠<literal>y</literal> ã¯è¡Œåˆ—ã§,大ãã•ã¯ + <literal>x(p,n)</literal> ãŠã‚ˆã³ <literal>y(q,n)</literal> (ãŸã ã— <literal>n</literal> 㯠+ サンプル数) ã§ã™. + </para> + <para> + 推定器 <literal>a</literal> ã¯, 大ãã•<literal>(q,p)</literal>ã®è¡Œåˆ—, + <literal>b</literal> ã¯,大ãã•<literal>(q,1)</literal>ã®ãƒ™ã‚¯ãƒˆãƒ«ã§ã™. + </para> + <para> + <literal>y</literal> ã®å„ç·šã¯ç‹¬ç«‹ã—ãŸå•é¡Œã¨ã—ã¦å‡¦ç†ã•ã‚Œã¾ã™. + <literal>x</literal>ã¾ãŸã¯<literal>y</literal>ã« NaN + (<literal>x(i,j) = %nan</literal> ã¾ãŸã¯ <literal>y(i,j) = %nan</literal>) + ãŒå«ã¾ã‚Œã‚‹å ´åˆ,点 [x(:,j); y(i,j)] ãŒå˜åœ¨ã—ãªã„よã†ã« + <literal>x(:,j)</literal> 㨠<literal>y(i,j)</literal> ã¯ç„¡è¦–ã•ã‚Œã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <para> + グラフィカルãªä¾‹ #1: + </para> + <programlisting role="example"><![CDATA[ +// 以下ã®ä¾‹ã§ã¯,2ã¤ã®å•é¡Œã¯å…±ã«2本ã®ç›´ç·šã‚’表ã—ã¾ã™: +// 1本ã¯(0,0)ã‹ã‚‰(10,10)ã¸,ã‚‚ã†ä¸€ã¤ã¯(0,20)ã‹ã‚‰(10,30)ã¸. +// å…¨ã¦ã®ç‚¹ãŒä¸¦ã‚“ã§ãŠã‚Š,NaNãŒç„¡è¦–ã•ã‚Œã‚‹ãŸã‚, +// reglinã¨nanreglinã¯åŒã˜å€¤ã‚’見ã¤ã‘ã¾ã™. +subplot(211) +x = 0:10; +y = 20:30; +[a1, b1] = reglin(x, [x ; y]); +plot(x', (a1*x+repmat(b1,1,11))', "red") +subplot(212) +y2 = y; +y2(2:10) = %nan; // y2(1) 㨠y2(11) ã¯å¤‰æ›´ã•ã‚Œã¾ã›ã‚“. +[a2, b2] = nanreglin(x, [x ; y2]) +plot(x', (a2*x+repmat(b2,1,11))', "blue") + ]]></programlisting> + <scilab:image> + subplot(211) + x = 0:10; + y = 20:30; + [a1, b1] = reglin(x, [x ; y]); + plot(x', (a1*x+repmat(b1,1,11))', "red") + subplot(212) + y2 = y; + y2(2:10) = %nan; + [a2, b2] = nanreglin(x, [x ; y2]) + plot(x', (a2*x+repmat(b2,1,11))', "blue") + </scilab:image> + <para> + グラフィカルãªä¾‹ #2: + </para> + <programlisting role="example"><![CDATA[ +// 両方ã®å•é¡Œã¯,(0,0)ã‹ã‚‰(2,2)ã¸ã®ç›´ç·š (reglin(x, x))を表ã—ã¾ã™. +// 最åˆã®å•é¡Œ(reglin(x, y))ã®2番目ã®å¼•æ•°ã¯å¼ y = 1 ã§è¡¨ã•ã‚Œã‚‹ç·š, +// 2番目ã®å•é¡Œ(reglin(x, y2))ã®ç¬¬2引数ã¯yã®ä¸å¤®ã®ç‚¹ (%nan を指定)を無視ã—ã¾ã™. +// 残りã®2点ãŒ(0,0)ã¨(2,0)ã®ãŸã‚,ç·šã¯å¼ y = 0 を表ã—ã¾ã™. +subplot(211) +x = 0:2; +y = [0 3 0]; +[a1, b1] = reglin(x, [x ; y]); +plot(x', (a1*x+repmat(b1,1,3))', "red") +subplot(212) +y2 = y; +y2(2) = %nan; // y2 = [0 %nan 0]; +[a2, b2] = nanreglin(x, [x ; y2]); +plot(x', (a2*x+repmat(b2,1,3))', "blue") + ]]></programlisting> + <scilab:image> + subplot(211) + x = 0:2; + y = [0 3 0]; + [a1, b1] = reglin(x, [x ; y]); + plot(x', (a1*x+repmat(b1,1,3))', "red") + subplot(212) + y2 = y; + y2(2) = %nan; // y2 = [0 %nan 0]; + [a2, b2] = nanreglin(x, [x ; y2]); + plot(x', (a2*x+repmat(b2,1,3))', "blue") + </scilab:image> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="reglin">reglin</link> + </member> + <member> + <link linkend="pinv">pinv</link> + </member> + <member> + <link linkend="leastsq">leastsq</link> + </member> + <member> + <link linkend="qr">qr</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>å±¥æ´</title> + <revhistory> + <revision> + <revnumber>5.5.0</revnumber> + <revdescription>å°Žå…¥</revdescription> + </revision> + </revhistory> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/data_missing_values/nanstdev.xml b/modules/statistics/help/ja_JP/data_missing_values/nanstdev.xml new file mode 100755 index 000000000..291a9f3c6 --- /dev/null +++ b/modules/statistics/help/ja_JP/data_missing_values/nanstdev.xml @@ -0,0 +1,81 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="nanstdev"> + <refnamediv> + <refname>nanstdev</refname> + <refpurpose>標準åå·® (NaNを無視). </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>s=nanstdev(x) + s=nanstdev(x,'r') or m=nanstdev(x,1) + s=nanstdev(x,'c') or m=nanstdev(x,2) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—ã®å€¤ã®(NaNを無視ã—ãŸ)標準å差を計算ã—ã¾ã™. + </para> + <para> + ã‚るベクトルã¾ãŸã¯è¡Œåˆ— <literal> x</literal>ã«ã¤ã„ã¦, + <literal> s=nanstdev(x)</literal>㯠+ å…¨ã¦ã®<literal>s</literal>ã« + <literal>x</literal>ã®(NaNを無視ã—ãŸ)全エントリã®æ¨™æº–å差を返ã—ã¾ã™. + </para> + <para> + <literal>s=nanstdev(x,'r')</literal> (ã‚‚ã—ãã¯ç‰ä¾¡ãª, + <literal>s=nanstdev(x,1)</literal>) ã¯,行方å‘ã®æ¨™æº–åå·®ã§ã™. + ã“ã®å ´åˆ,行ベクトル<literal>s</literal>ã® + å„エントリ㫠+ <literal> x</literal>ã®å„列ã®(NaNを無視ã—ãŸ)標準åå·®ãŒè¿”ã•ã‚Œã¾ã™. + </para> + <para> + <literal>s=nanstdev(x,'c')</literal> (ã‚‚ã—ãã¯ç‰ä¾¡ãª, + <literal>s=nanstdev(x,2)</literal>) ã¯,列方å‘ã®æ¨™æº–åå·®ã§ã™. + ã“ã®å ´åˆ,列ベクトル<literal>s</literal>ã®å„エントリ㫠+ <literal>x</literal>ã®å„è¡Œã®(NaNを無視ã—ãŸ)標準åå·®ãŒè¿”ã•ã‚Œã¾ã™. + </para> + <para> + Labostatã§ã¯, NAN 値ã¯è¡¨ã«ãŠã‘ã‚‹æ¬ æ値をæ„味ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 0.0002211 0.6653811; + 0.7560439 %nan 0.6283918; + 0.3 0.2 0.5 ]; +s=nanstdev(x) +s=nanstdev(x,'r') +s=nanstdev(x,'c') + ]]></programlisting> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/data_missing_values/nansum.xml b/modules/statistics/help/ja_JP/data_missing_values/nansum.xml new file mode 100755 index 000000000..2487381b9 --- /dev/null +++ b/modules/statistics/help/ja_JP/data_missing_values/nansum.xml @@ -0,0 +1,103 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="nansum"> + <refnamediv> + <refname>nansum</refname> + <refpurpose>値ã®åˆè¨ˆ,NaNを無視</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>s = nansum(x,orient)</synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>数値ベクトルã¾ãŸã¯è¡Œåˆ—.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>orient</term> + <listitem> + <para>ãªã—ã¾ãŸã¯ '*'. + 'r' ã¾ãŸã¯ 1. + 'c' ã¾ãŸã¯ 2. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>s</term> + <listitem> + <para>è¿½åŠ å‡¦ç†ã®å€¤ã‚’å«ã‚€æ•°å€¤ã‚¹ã‚«ãƒ©ãƒ¼ã¾ãŸã¯ãƒ™ã‚¯ãƒˆãƒ« .</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯,数値ベクトルã¾ãŸã¯è¡Œåˆ—xã® + (NaNを無視ã—ãŸ)値ã®åˆè¨ˆã‚’sã«è¿”ã—ã¾ã™. + </para> + <para> + ã‚るベクトルã¾ãŸã¯è¡Œåˆ—xã«ã¤ã„ã¦, + s=nansum(x) (ã¾ãŸã¯ s=nansum(x,'*')) 㯠+ (NaNを無視ã—ãŸ)ベクトルã¾ãŸã¯è¡Œåˆ—xã®å…¨ã‚¨ãƒ³ãƒˆãƒª + ã®åˆè¨ˆã‚’スカラーsã«è¿”ã—ã¾ã™. + </para> + <para> + s=nansum(x,'r')(ã‚‚ã—ãã¯ç‰ä¾¡ãª s=nansum(x,1)) ã¯, + 1xsize(x,'c')ã®è¡Œãƒ™ã‚¯ãƒˆãƒ«sã®å„エントリ㫠+ xã®å„列ã®(NaNを無視ã—ãŸ)åˆè¨ˆã‚’è¿”ã—ã¾ã™. + </para> + <para> + s=nansum(x,'c')(ã‚‚ã—ãã¯ç‰ä¾¡ãª s=nansum(x,2)) ã¯, + size(x,'c')x1ã®åˆ—ベクトルsã®å„エントリ㫠+ xã®å„è¡Œã®(NaNを無視ã—ãŸ)åˆè¨ˆã‚’è¿”ã—ã¾ã™. + </para> + <para> + 最後ã®2ã¤ã®ã‚±ãƒ¼ã‚¹ã§, + ã‚ã‚‹è¡Œã¾ãŸã¯åˆ—ãŒå…¨ã¦NaNã‹ã‚‰æ§‹æˆã•ã‚Œã‚‹å ´åˆ, + sã®å¯¾å¿œã™ã‚‹ä½ç½®ã¯NaNã¨ãªã‚Šã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 %nan 0.6653811;0.7560439 0.3303271 0.6283918] +m=nansum(x) +m=nansum(x,1) +m=nansum(x,2) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="nancumsum">nancumsum</link> + </member> + <member> + <link linkend="sum">sum</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. and Wonacott, R.J.; Introductory Statistics, + 5th edition, J.Wiley and Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/data_missing_values/thrownan.xml b/modules/statistics/help/ja_JP/data_missing_values/thrownan.xml new file mode 100755 index 000000000..207a91a9d --- /dev/null +++ b/modules/statistics/help/ja_JP/data_missing_values/thrownan.xml @@ -0,0 +1,57 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="thrownan"> + <refnamediv> + <refname>thrownan</refname> + <refpurpose>NaN値を除去</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>[nonan,numb]=thrownan(x)</synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯ãƒ™ã‚¯ãƒˆãƒ«<literal>nonan</literal>ã« + ベクトルã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã®(NaNを無視ã—ãŸ)値ãŠã‚ˆã³ + ベクトル<literal>numb</literal>ã®å¯¾å¿œã™ã‚‹ä¸€ã«ãã®å€¤ã®ã‚¤ãƒ³ãƒ‡ãƒƒã‚¯ã‚¹ã‚’è¿”ã—ã¾ã™. + </para> + <para> + ã‚るベクトルã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã«ã¤ã„ã¦, + <literal>[nonan,numb]=thrownan(x)</literal> ã¯, + ベクトル(列ãŒæœ€åˆ)ã®ã‚ˆã†ãª + <literal>x</literal>ã®æ§‹é€ を考慮ã—ã¾ã™. + </para> + <para> + Labostatã§ã¯, NAN 値ã¯è¡¨ã®æ¬ æ値をæ„味ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 %nan 0.6653811;0.7560439 0.3303271 0.6283918] +[nonan numb]=thrownan(x) + ]]></programlisting> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/descriptive_statistics/CHAPTER b/modules/statistics/help/ja_JP/descriptive_statistics/CHAPTER new file mode 100755 index 000000000..60fd56c73 --- /dev/null +++ b/modules/statistics/help/ja_JP/descriptive_statistics/CHAPTER @@ -0,0 +1,2 @@ +title = Descriptive Statistics + diff --git a/modules/statistics/help/ja_JP/descriptive_statistics/center.xml b/modules/statistics/help/ja_JP/descriptive_statistics/center.xml new file mode 100755 index 000000000..2dc68b7f4 --- /dev/null +++ b/modules/statistics/help/ja_JP/descriptive_statistics/center.xml @@ -0,0 +1,75 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="center"> + <refnamediv> + <refname>center</refname> + <refpurpose>ä¸å¿ƒ</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>s=center(x) + s=center(x,'r') or s=center(x,1) + s=center(x,'c') or s=center(x,2) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term> </term> + <listitem> + <para>x: 実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯,数値行列<literal>x</literal>ã‚’ä¸å¿ƒåŒ–ã—㟠<literal>s</literal> + を計算ã—ã¾ã™. + ã‚るベクトルã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã«ã¤ã„ã¦, <literal>s=center(x)</literal> ã¯, + 値<literal>(x(i,j)-xbar)</literal>ã‚’ + 行列 <literal>s</literal> ã®è¦ç´ <literal>(i,j)</literal> ã«è¿”ã—ã¾ã™. + ãŸã ã—,<literal>xbar</literal> ã¯,<literal>x</literal>ã®ä¿‚æ•°ã®å€¤ã®å¹³å‡ã§ã™. + <literal>s=center(x,'r')</literal> (ã‚‚ã—ãã¯ç‰ä¾¡ãª<literal>s=center(x,1)</literal>) ã¯, + <literal>x</literal>ã®å€¤ã®è¡Œæ–¹å‘ã®ä¸å¿ƒåŒ–ã§ã™. + ã“ã®é–¢æ•°ã¯,<literal>xbarv(j)</literal>ã‚’<literal>j</literal>列ã®å¹³å‡ã¨ã—ã¦, + 値<literal>(x(i,j)-xbarv(j))</literal>をエントリ<literal>s(i,j)</literal>ã« + 有ã™ã‚‹è¡Œåˆ—ã‚’è¿”ã—ã¾ã™. + <literal>s=center(x,'c')</literal> (ã‚‚ã—ãã¯ç‰ä¾¡ãª + <literal>s=center(x,2)</literal>) ã¯,<literal>x</literal>ã®å€¤ã®åˆ—æ–¹å‘ã®ä¸å¿ƒåŒ–ã§ã™. + ã“ã®é–¢æ•°ã¯,<literal>xbarh(i)</literal>ã‚’<literal>i</literal>è¡Œã®å¹³å‡ã¨ã—ã¦, + 値<literal>(x(i,j)-xbarh(i))</literal>をエントリ<literal>s(i,j)</literal>ã« + 有ã™ã‚‹è¡Œåˆ—ã‚’è¿”ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 0.0002211 0.6653811; + 0.7560439 0.3303271 0.6283918] +s=center(x) +s=center(x,'r') +s=center(x,'c') + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="wcenter">wcenter</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/descriptive_statistics/correl.xml b/modules/statistics/help/ja_JP/descriptive_statistics/correl.xml new file mode 100755 index 000000000..f4eed82fa --- /dev/null +++ b/modules/statistics/help/ja_JP/descriptive_statistics/correl.xml @@ -0,0 +1,77 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="correl"> + <refnamediv> + <refname>correl</refname> + <refpurpose>2ã¤ã®å¤‰æ•°ã®ç›¸é–¢</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>rho=correl(x,y,fre)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Parameters</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«</para> + </listitem> + </varlistentry> + <varlistentry> + <term>y</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«</para> + </listitem> + </varlistentry> + <varlistentry> + <term>fre</term> + <listitem> + <para>length(x) x length(y)ã®è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + <literal>correl(x,y,fre)</literal> ã¯,2個ã®å¤‰æ•°xãŠã‚ˆã³yã® + 相関を計算ã—ã¾ã™. + freã¯æ¬¡å…ƒlength(x) x length(y)ã®è¡Œåˆ—ã§ã™. + freã®æ·»å—(i,j)ã®è¦ç´ ã¯x_i&y_jã®å€¤ã¾ãŸã¯æ•°å€¤ã¾ãŸã¯å‘¨æ³¢æ•°ã¨ãªã‚Šã¾ã™. + </para> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, J.Wiley & Sons, 1990. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[2.5 7.5 12.5 17.5] +h=[0 1 2] +fre=[.03 .12 .07;.02 .13 .11;.01 .13 .14;.01 .09 .14] +rho=correl(x,h,fre) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="covar">covar</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/descriptive_statistics/cov.xml b/modules/statistics/help/ja_JP/descriptive_statistics/cov.xml new file mode 100755 index 000000000..e9e6791c1 --- /dev/null +++ b/modules/statistics/help/ja_JP/descriptive_statistics/cov.xml @@ -0,0 +1,166 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * + * Copyright (C) 2012-2013 - Michael Baudin + * Copyright (C) 2009-2010 - DIGITEO - Michael Baudin + * Copyright (C) 1993 - 1995 - Anders Holtsberg + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry version="5.0-subset Scilab" xml:id="cov" xml:lang="ja" + xmlns="http://docbook.org/ns/docbook" + xmlns:xlink="http://www.w3.org/1999/xlink" + xmlns:svg="http://www.w3.org/2000/svg" + xmlns:ns3="http://www.w3.org/1999/xhtml" + xmlns:mml="http://www.w3.org/1998/Math/MathML" + xmlns:scilab="http://www.scilab.org" + xmlns:db="http://docbook.org/ns/docbook"> + <refnamediv> + <refname>cov</refname> + <refpurpose>共分散行列</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis> + C = cov(x) + C = cov(x, 0) + C = cov(x, 1) + C = cov(x, y) + C = cov(x, y, 0) + C = cov(x, y, 1) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>nobs x 1 ã¾ãŸã¯nobs x nvar ã®double行列</para> + </listitem> + </varlistentry> + <varlistentry> + <term>y</term> + <listitem> + <para>nobs x 1 ã¾ãŸã¯ nobs x nvar ã®double行列</para> + </listitem> + </varlistentry> + <varlistentry> + <term>C</term> + <listitem> + <para>doublesã®æ£æ–¹è¡Œåˆ—, 経験的共分散</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + x ㌠nobs x 1 行列ã®å ´åˆ, + <literal>cov(x)</literal> ã¯xã®å…±åˆ†æ•£ã‚’ nobs-1 ã§æ£è¦åŒ–ã—ã¦è¿”ã—ã¾ã™. + </para> + <para> + x ㌠nobs x nvar 行列ã®å ´åˆ, + <literal>cov(x)</literal> 㯠xã®åˆ—ã® nvar x nvar 共分散行列を + nobs - 1ã§æ£è¦åŒ–ã—ã¦è¿”ã—ã¾ã™. + ã“ã“ã§,xã®å„列ã¯å¤‰æ•°ã§xã®å„è¡Œã¯è¦³æ¸¬å€¤ã§ã™. + </para> + <para> + x 㨠y ㌠nobs x 1 ã®è¡Œåˆ—ã®å ´åˆ, + <literal>cov(x, y)</literal> 㯠x ãŠã‚ˆã³ y ã®2 x 2 共分散行列, + nobs-1ã§æ£è¦åŒ–ã—ãŸã‚‚ã®ã‚’è¿”ã—ã¾ã™. + ãŸã ã—,nobsã¯è¦³æ¸¬å€¤ã®æ•°ã§ã™. + </para> + <para> + <literal>cov(x, 0)</literal> 㯠<literal>cov(x)</literal> ã¨åŒã˜, + <literal>cov(x, y, 0)</literal> 㯠<literal>cov(x, y)</literal>ã¨åŒã˜ã§ã™. + ã“ã®å ´åˆ, æ¯é›†å›£ãŒæ£è¦åˆ†å¸ƒã®å ´åˆ, + Cã¯å…±åˆ†æ•£è¡Œåˆ—ã®ãƒã‚¤ã‚¢ã‚¹ãªã—ã®æœ€è‰¯ã®æŽ¨å®šå€¤ã§ã™. + </para> + <para> + <literal>cov(x, 1)</literal> ãŠã‚ˆã³ + <literal>cov(x, y, 1)</literal> ã¯ã€€nobs ã§æ£è¦åŒ–ã—ã¾ã™. + ã“ã®å ´åˆ, Cã¯è¦³æ¸¬é‡ã®å¹³å‡ã«é–¢ã™ã‚‹2次モーメント行列ã§ã™. + </para> + <para> + XãŠã‚ˆã³Yã®å…±åˆ†æ•£ã¯æ¬¡ã®ã‚ˆã†ã«å®šç¾©ã•ã‚Œã¾ã™: + </para> + <para> + <latex> + Cov(X, Y) = E( (X-E(X)) (Y-E(Y))^T ) + </latex> + </para> + <para> + ãŸã ã—, E ã¯æœŸå¾…値ã§ã™. + </para> + <para> + ã“ã®é–¢æ•°ã¯ Matlabã¨äº’æ›æ€§ãŒã‚ã‚Šã¾ã™. + </para> + <para> + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x = [1; 2]; +y = [3; 4]; +C = cov(x, y) +expected = [0.5, 0.5; 0.5, 0.5]; +C = cov([x, y]) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +x = [230; 181; 165; 150; 97; 192; 181; 189; 172; 170]; +y = [125; 99; 97; 115; 120; 100; 80; 90; 95; 125]; +expected = [ +1152.4556, -88.911111 +-88.911111, 244.26667 +]; +C = cov(x, y) +C = cov([x, y]) + ]]></programlisting> + <programlisting role="example"><![CDATA[ +// Source [3] +A = [ +4.0 2.0 0.60 +4.2 2.1 0.59 +3.9 2.0 0.58 +4.3 2.1 0.62 +4.1 2.2 0.63 +]; +S = [ +0.025 0.0075 0.00175 +0.0075 0.007 0.00135 +0.00175 0.00135 0.00043 +]; +C = cov(A) + ]]></programlisting> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + <ulink url="http://en.wikipedia.org/wiki/Covariance_matrix">Wikipedia: Covariance matrix</ulink> + </para> + <para> + [3] <ulink url="http://www.itl.nist.gov/div898/handbook/pmc/section5/pmc541.htm">NIST/SEMATECH e-Handbook of Statistical Methods, 6.5.4.1. Mean Vector and Covariance Matrix</ulink> + </para> + <para> + "Introduction to probability and statistics for engineers and scientists", Sheldon Ross + </para> + </refsection> + <refsection> + <title>å±¥æ´</title> + <revhistory> + <revision> + <revnumber>5.5.0</revnumber> + <revdescription>mvvacov(廃æ¢äºˆå®š)を改善ã™ã‚‹ãŸã‚ã«, + cov 関数ãŒè¿½åŠ ã•ã‚Œã¾ã—㟠+ </revdescription> + </revision> + </revhistory> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/descriptive_statistics/covar.xml b/modules/statistics/help/ja_JP/descriptive_statistics/covar.xml new file mode 100755 index 000000000..7d1f578d8 --- /dev/null +++ b/modules/statistics/help/ja_JP/descriptive_statistics/covar.xml @@ -0,0 +1,73 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="covar"> + <refnamediv> + <refname>covar</refname> + <refpurpose>2ã¤ã®å¤‰æ•°ã®å…±åˆ†æ•£</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>s=covar(x,y,fre)</synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«</para> + </listitem> + </varlistentry> + <varlistentry> + <term>y</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«</para> + </listitem> + </varlistentry> + <varlistentry> + <term>fre</term> + <listitem> + <para>length(x) x length(y)ã®è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + <literal>covar(x,y,fre)</literal> ã¯2ã¤ã®å¤‰æ•°xãŠã‚ˆã³yã® + 共分散を計算ã—ã¾ã™. + freã¯æ¬¡å…ƒlength(x) x length(y)ã®è¡Œåˆ—ã§ã™. + freã®ä¸ã§,インデックス(i,j)ã®è¦ç´ ã¯x_i&y_jã® + 値ã¾ãŸã¯æ•°å€¤ã¾ãŸã¯å‘¨æ³¢æ•°ã«å¯¾å¿œã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, J.Wiley & Sons, 1990. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[10 20 30 40] +y=[10 20 30 40] +fre=[.20 .04 .01 0; + .10 .36 .09 0; + 0 .05 .10 0; + 0 0 0 .05] +s=covar(x,y,fre) + ]]></programlisting> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/descriptive_statistics/histc.xml b/modules/statistics/help/ja_JP/descriptive_statistics/histc.xml new file mode 100755 index 000000000..69cc37508 --- /dev/null +++ b/modules/statistics/help/ja_JP/descriptive_statistics/histc.xml @@ -0,0 +1,234 @@ +<?xml version='1.0' encoding='UTF-8'?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2013 - Scilab Enterprises - Paul Bignier + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --><!-- This document was created with Syntext Serna Free. --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="histc"> + <refnamediv> + <refname>histc</refname> + <refpurpose>ヒストグラムを計算</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis> + [cf, ind] = histc(n, data [,normalization]) + [cf, ind] = histc(x, data [,normalization]) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>引数</title> + <variablelist> + <varlistentry> + <term>n</term> + <listitem> + <para>æ£ã®æ•´æ•° (クラスã®æ•°)</para> + </listitem> + </varlistentry> + <varlistentry> + <term>x</term> + <listitem> + <para> + クラスを定義ã™ã‚‹æ¼¸å¢—ベクトル + (<literal>x</literal>ã«ã¯æœ€ä½Ž2ã¤ã®è¦ç´ ãŒã‚ã‚Šã¾ã™) + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>data</term> + <listitem> + <para> + ベクトル (解æžå¯¾è±¡ã®ãƒ‡ãƒ¼ã‚¿) + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>cf</term> + <listitem> + <para> + <varname>n</varname> ã¾ãŸã¯ <varname>x</varname> + ã«ã‚ˆã‚Šå®šç¾©ã•ã‚Œã‚‹ã‚¯ãƒ©ã‚¹ã«å«ã¾ã‚Œã‚‹ + <varname>data</varname>ã®å€¤ã®æ•°ã‚’示ã™ãƒ™ã‚¯ãƒˆãƒ« + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>ind</term> + <listitem> + <para> + <varname>data</varname>ã¨åŒã˜å¤§ãã•ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—ã§, + データ<varname>data</varname>ã®å„è¦ç´ ㌠+ <varname>n</varname>ã¾ãŸã¯<varname>x</varname>ã«ã‚ˆã‚Šå®šç¾©ã•ã‚ŒãŸ + クラスã«é‡è¤‡ã—ã¦å±žã—ã¦ã„ã‚‹ã“ã¨ã‚’示ã—ã¾ã™ + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>normalization</term> + <listitem> + <para> + スカラー論ç†å€¤. + <varname>normalization=%f (デフォルト)</varname>: + <varname>cf</varname>ã¯,å„クラスã«ãŠã‘る点ã®ç·æ•°ã‚’表ã—ã¾ã™. + <varname>normalization=%t</varname>: + <varname>cf</varname>ã¯,å„クラスã«ãŠã‘る点ã®æ•°ã‚’点ã®ç·æ•°ã«é–¢ã—ã¦ç›¸å¯¾çš„ã«è¡¨ã—ã¾ã™. + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯,クラス<literal>x</literal>ã«ã‚ˆã‚Š<literal>data</literal>ベクトル㮠+ ヒストグラムを計算ã—ã¾ã™. + <literal>x</literal>ã§ã¯ãªãクラスã®æ•° <literal>n</literal>ãŒæŒ‡å®šã•ã‚ŒãŸå ´åˆ,ç‰é–“隔㧠+ <emphasis>x(1) = min(data) < x(2) = x(1) + dx < ... < x(n+1) = max(data)</emphasis> + (ãŸã ã—, <emphasis>dx = (x(n+1)-x(1))/n</emphasis>)ã¨ãªã‚‹ã‚¯ãƒ©ã‚¹ãŒé¸æŠžã•ã‚Œã¾ã™. + </para> + <para> + クラスã¯<literal>C1 = [x(1), x(2)]</literal> ãŠã‚ˆã³ <literal>Ci = ( x(i), x(i+1)]</literal> + (i >= 2)ã§å®šç¾©ã•ã‚Œã¾ã™. + <literal>Nmax</literal>ã¯<literal>data</literal>ã®ç·æ•° (Nmax = length(data)), + <literal>Ni</literal>ã¯<literal>Ci</literal>ã«å«ã¾ã‚Œã‚‹<literal>data</literal>è¦ç´ ã®æ•°, + <literal>Ci</literal>ã«ãŠã‘ã‚‹<literal>x</literal>ã®ãƒ’ストグラムã®å€¤ã¯, + <literal>"normalized"</literal>ãŒé¸æŠžã•ã‚ŒãŸå ´åˆã¯ + <emphasis>Ni/(Nmax (x(i+1)-x(i)))</emphasis> ã¨ãªã‚Š, + ãã†ã§ãªã„å ´åˆã¯å˜ã«<emphasis>Ni</emphasis>ã¨ãªã‚Šã¾ã™. + æ£è¦åŒ–ãŒè¡Œã‚ã‚ŒãŸéš›,ヒストグラムã¯ä»¥ä¸‹ã‚’確èªã—ã¾ã™: + </para> + <para> + <latex style="display"><![CDATA[ \int_{x(1)}^{x(n+1)}h(x)\,\mathrm{d}x=1 ]]></latex> + </para> + <para> + <emphasis>x(1)<=min(data)</emphasis> ãŠã‚ˆã³ <emphasis>max(data) <= x(n+1)</emphasis> + ã®å ´åˆ + </para> + </refsection> + <refsection> + <title>例</title> + <simplelist> + <member> 例 #1: ガウス乱数標本ã®ãƒ’ストグラム周辺ã®å¤‰åŒ– + <programlisting role="example"><![CDATA[ +// ガウス乱数標本 +d = rand(1, 10000, 'normal'); +[cf, ind] = histc(20, d, normalization=%f) +// グラフィック表ç¾ã‚’示ã™ãŸã‚ã«histplotを使用 +clf(); histplot(20, d, normalization=%f); +[cf, ind] = histc(20, d) +clf(); histplot(20, d); +]]></programlisting> + <scilab:image> + d = rand(1, 10000, 'normal'); + [cf, ind] = histc(20, d) + clf(); histplot(20, d); + </scilab:image> + </member> + <member> + 例 #2: äºŒé …(B(6,0.5)) 乱数標本ã®ãƒ’ストグラム+ <programlisting role="example"><![CDATA[ +d = grand(1000,1,"bin", 6, 0.5); +c = linspace(-0.5,6.5,8); +clf() +subplot(2,1,1) +[cf, ind] = histc(c, d) +histplot(c, d, style=2); +xtitle("Normalized histogram") +subplot(2,1,2) +[cf, ind] = histc(c, d, normalization=%f) +histplot(c, d, normalization=%f, style=5); +xtitle("Non normalized histogram") +]]></programlisting> + <scilab:image localized="true"> + d = grand(1000,1,"bin", 6, 0.5); + c = linspace(-0.5,6.5,8); + clf() + subplot(2,1,1) + [cf, ind] = histc(c, d) + histplot(c, d, style=2); + xtitle("Normalized histogram") + subplot(2,1,2) + [cf, ind] = histc(c, d, normalization=%f) + histplot(c, d, normalization=%f, style=5); + xtitle("Non normalized histogram") + </scilab:image> + </member> + <member> + 例 #3: 指数乱数標本ã®ãƒ’ストグラム+ <programlisting role="example"><![CDATA[ +lambda = 2; +X = grand(100000,1,"exp", 1/lambda); +Xmax = max(X); +[cf, ind] = histc(40, X) +clf() +histplot(40, X, style=2); +x = linspace(0, max(Xmax), 100)'; +plot2d(x, lambda*exp(-lambda*x), strf="000", style=5) +legend(["exponential random sample histogram" "exact density curve"]); +]]></programlisting> + <scilab:image localized="true"> + lambda = 2; + X = grand(100000,1,"exp", 1/lambda); + Xmax = max(X); + [cf, ind] = histc(40, X) + clf() + histplot(40, X, style=2); + x = linspace(0, max(Xmax), 100)'; + plot2d(x, lambda*exp(-lambda*x), strf="000", style=5) + legend(["exponential random sample histogram" "exact density curve"]); + </scilab:image> + </member> + <member> + 例 #4: ガウス乱数標本ã®å‘¨æ³¢æ•°ãƒãƒªã‚´ãƒ³ãƒãƒ£ãƒ¼ãƒˆã¨ãƒ’ストグラム+ <programlisting role="example"><![CDATA[ +n = 10; +data = rand(1, 1000, "normal"); +[cf, ind] = histc(n, data) +clf(); histplot(n, data, style=12, polygon=%t); +legend(["normalized histogram" "frequency polygon chart"]); +]]></programlisting> + <scilab:image localized="true"> + n = 10; + data = rand(1, 1000, "normal"); + [cf, ind] = histc(n, data) + clf(); histplot(n, data, style=12, polygon=%t); + legend(["normalized histogram" "frequency polygon chart"]); + </scilab:image> + </member> + </simplelist> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="histplot">histplot</link> + </member> + <member> + <link linkend="hist3d">hist3d</link> + </member> + <member> + <link linkend="plot2d">plot2d</link> + </member> + <member> + <link linkend="dsearch">dsearch</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>å±¥æ´</title> + <revhistory> + <revision> + <revnumber>5.5.0</revnumber> + <revdescription> + Introduction + </revdescription> + </revision> + </revhistory> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/descriptive_statistics/median.xml b/modules/statistics/help/ja_JP/descriptive_statistics/median.xml new file mode 100755 index 000000000..c0abd3a61 --- /dev/null +++ b/modules/statistics/help/ja_JP/descriptive_statistics/median.xml @@ -0,0 +1,102 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="median"> + <refnamediv> + <refname>median</refname> + <refpurpose>ベクトル/行列/é…列ã®è¦ç´ ã®ä¸å¤®å€¤ (è¡Œå˜ä½ã®ä¸å¤®å€¤, 列å˜ä½ã®ä¸å¤®å€¤,...) + </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>y=median(x) + y=median(x,'r') + y=median(x,'c') + y=median(x,'m') + y=median(x,dim) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã®ãƒ™ã‚¯ãƒˆãƒ«, 行列ã¾ãŸã¯é…列</para> + </listitem> + </varlistentry> + <varlistentry> + <term>y</term> + <listitem> + <para>スカラー,ベクトル, 行列ã¾ãŸã¯é…列</para> + </listitem> + </varlistentry> + <varlistentry> + <term>dim</term> + <listitem> + <para>æ£ã®æ•´æ•°</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + <literal>x</literal>ãŒãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—ã®å ´åˆ, <literal>y=median(x)</literal> + 㯠+ <literal>x</literal>ã®å…¨è¦ç´ ã®ä¸å¤®å€¤ã‚’スカラー<literal>y</literal>ã¨ã—ã¦è¿”ã—ã¾ã™. + </para> + <para> + <literal>y=median(x,'r')</literal> (ã¾ãŸã¯ç‰ä¾¡çš„ã«, + <literal>y=median(x,1)</literal>) ã¯,行インデックス方å‘ã®ä¸å¤®å€¤ã§ã™. + 列ベクトル <literal>y</literal>ã®å„è¦ç´ ã«é–¢ã—ã¦<literal>x</literal>ã® + å„列ã®ä¸å¤®å€¤ã‚’è¿”ã—ã¾ã™. + </para> + <para> + <literal>y=median(x,'c')</literal> (ã¾ãŸã¯ç‰ä¾¡çš„ã«, + <literal>y=median(x,2)</literal>) ã¯,列インデックス方å‘ã®ä¸å¤®å€¤ã§ã™. + 行ベクトル <literal>y</literal>ã®å„è¦ç´ ã«é–¢ã—ã¦<literal>x</literal>ã® + å„è¡Œã®ä¸å¤®å€¤ã‚’è¿”ã—ã¾ã™. + </para> + <para> + <literal>y=median(x,'m')</literal>ã¯<literal>x</literal>ã® + 最åˆã®1ã§ãªã„次元方å‘ã®ä¸å¤®å€¤ã§ã™(Matlabã¨ã®äº’æ›ç”¨). + </para> + <para> + <literal>y=median(x,dim)</literal> 㯠+ <literal>x</literal>ã®æ¬¡å…ƒ<literal>dim</literal>æ–¹å‘ã®ä¸å¤®å€¤ã§ã™ (Matlabã¨ã®äº’æ›ç”¨). + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +A=[1,2,10;7,7.1,7.01]; +median(A) +median(A,'r') +median(A,'c') +A=matrix([-9 3 -8 6 74 39 12 -6 -89 23 65 34],[2,3,2]); +median(A,3) +median(A,'m') + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="sum">sum</link> + </member> + <member> + <link linkend="mean">mean</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/descriptive_statistics/mvvacov.xml b/modules/statistics/help/ja_JP/descriptive_statistics/mvvacov.xml new file mode 100755 index 000000000..b38251e23 --- /dev/null +++ b/modules/statistics/help/ja_JP/descriptive_statistics/mvvacov.xml @@ -0,0 +1,57 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="mvvacov"> + <refnamediv> + <refname>mvvacov</refname> + <refpurpose>分散-共分散行列を計算</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>v=mvvacov(x)</synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯, 独立変数n個ã®p個ã®å¤‰æ•°ã®å€¤ã‚’指定ã™ã‚‹ + 表 x (x ã¯nè¡Œp列ã®æ•°å€¤è¡Œåˆ—)ã®åˆ†æ•£-共分散㮠+ 行列 v を計算ã—ã¾ã™: vã®ä¿‚æ•°(i,j) ã¯, + v(i,j)=E(xi-xibar)(xj-xjbar)ã§ã™. + ãŸã ã—,Eã¯å¤‰æ•°ã®ä¸€æ¬¡ãƒ¢ãƒ¼ãƒ¡ãƒ³ãƒˆ,xiã¯i番目ã®å¤‰æ•°, + xibarã¯å¤‰æ•°xiã®å¹³å‡ã§ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 0.0002211 0.6653811;0.7560439 0.4453586 0.6283918] +v=mvvacov(x) + ]]></programlisting> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Saporta, Gilbert, Probabilites, Analyse des Donnees et Statistique, Editions Technip, Paris, 1990. Mardia, K.V., Kent, J.T. & Bibby, J.M., Multivariate Analysis, Academic Press, 1979. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/descriptive_statistics/stdev.xml b/modules/statistics/help/ja_JP/descriptive_statistics/stdev.xml new file mode 100755 index 000000000..02bb38fba --- /dev/null +++ b/modules/statistics/help/ja_JP/descriptive_statistics/stdev.xml @@ -0,0 +1,148 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2013 - Scilab Enterprises - Paul Bignier: added mean squared deviation + * (third input argument) + * Copyright (C) 2000 - INRIA - + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="stdev"> + <refnamediv> + <refname>stdev</refname> + <refpurpose> + ベクトル/行列エントリã®æ¨™æº–åå·® (è¡Œã¾ãŸã¯åˆ—毎) + </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis> + y = stdev(x) + y = stdev(x, '*') + y = stdev(x, 'r') + y = stdev(x, 'c') + y = stdev(x, orien, m) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>引数</title> + <variablelist> + <varlistentry> + <term>x, y</term> + <listitem> + <para>実数ã®ãƒ™ã‚¯ãƒˆãƒ«, 行列ã¾ãŸã¯ãƒã‚¤ãƒ‘ー行列</para> + </listitem> + </varlistentry> + <varlistentry> + <term>y</term> + <listitem> + <para>実数ã®ãƒ™ã‚¯ãƒˆãƒ«, 行列ã¾ãŸã¯ãƒã‚¤ãƒ‘ー行列</para> + </listitem> + </varlistentry> + <varlistentry> + <term>orien</term> + <listitem> + <para> + æ–‡å—列スカラーã¾ãŸã¯æ£ã®æ•´æ•°ã§ã‚ã‚Š, + <literal>"*"</literal>, <literal>"r"</literal> + (ã¾ãŸã¯<literal>1</literal>)ã¾ãŸã¯ + <literal>"c"</literal> (ã¾ãŸã¯ <literal>2</literal>)を指定å¯èƒ½ + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>m</term> + <listitem> + <para>実数ã®ã‚¹ã‚«ãƒ©ãƒ¼, ベクトルã¾ãŸã¯ãƒã‚¤ãƒ‘ー行列, 先験平å‡</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + stdev 㯠"標本" 標準å差を計算ã—ã¾ã™. + ã“ã®å€¤ã¯, Nを数列長ã¨ã—ã¦N-1ã§æ£è¦åŒ–ã•ã‚Œã¾ã™. + <varname>m</varname> ãŒæŒ‡å®šã•ã‚ŒãŸå ´åˆ, <code>stdev</code> 㯠+ <varname>m</varname>ã§å®šç¾©ã•ã‚ŒãŸå…ˆé¨“å¹³å‡ã‚’用ã„㦠+ (Nã«ã‚ˆã‚Šæ£è¦åŒ–ã•ã‚ŒãŸ)å¹³å‡äºŒä¹—å差を計算ã—ã¾ã™. + </para> + <para> + <literal>x</literal>ãŒãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—ã®å ´åˆ, <literal>y=stdev(x)</literal> 㯠+ スカラー<literal>y</literal>ã«<literal>x</literal>ã®å…¨ã‚¨ãƒ³ãƒˆãƒªã® + 標準å差を返ã—ã¾ã™. + </para> + <para> + <literal>y=stdev(x,'r')</literal> (ã¾ãŸã¯, ç‰ä¾¡çš„ã«, + <literal>y=stdev(x,1)</literal>) ã¯è¡Œæ¯Žã®æ¨™æº–åå·®ã§ã™. + ã“ã‚Œã¯,行ベクトル<literal>y</literal>ã®å„エントリ㫠+ <literal>x</literal>ã®å„列ã®æ¨™æº–å差を返ã—ã¾ã™. + </para> + <para> + <literal>y=stdev(x,'c')</literal> (ã¾ãŸã¯, ç‰ä¾¡çš„ã«, + <literal>y=stdev(x,2)</literal>) ã¯åˆ—毎ã®æ¨™æº–åå·®ã§ã™. + ã“ã‚Œã¯,行ベクトル<literal>y</literal>ã®å„エントリ㫠+ <literal>x</literal>ã®å„è¡Œã®æ¨™æº–å差を返ã—ã¾ã™. + </para> + <para> + 拡張表ç¾ã¨ã—ã¦,æ£ã®æ•´æ•°<literal>n</literal>を指定ã—ã¦<literal>y=stdev(x,n)</literal>㨠+ ã™ã‚‹ã¨,<literal>n</literal>番目ã®æ¬¡å…ƒã«æ²¿ã£ãŸ + 標準å差を返ã—ã¾ã™. + <literal>n>ndims(x)</literal>ã®å ´åˆ, + <literal>stdev(x,n)</literal> 㯠<literal>zeros(x)</literal>ã‚’è¿”ã—ã¾ã™. + </para> + <note> + <varname>m</varname> ãŒã‚¹ã‚«ãƒ©ãƒ¼ã®å ´åˆ, + <literal>n</literal>番目ã®æ¬¡å…ƒæ–¹å‘㌠+ <code>mean(x)</code> ã®å¤§ãã•ã«ä¸€è‡´ã™ã‚‹ã‚ˆã†ã«æ‹¡å¼µã•ã‚Œã¾ã™. + </note> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +A = [1 2 10; 7 7.1 7.01]; +stdev(A) +stdev(A, 'r') +stdev(A, 'c') +stdev(A, 'c', mean(A,'c')) +stdev(A, 'c', 1) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="nanstdev">nanstdev</link> + </member> + <member> + <link linkend="stdevf">stdevf</link> + </member> + <member> + <link linkend="sum">sum</link> + </member> + <member> + <link linkend="median">median</link> + </member> + <member> + <link linkend="mean">mean</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>å±¥æ´</title> + <revhistory> + <revision> + <revnumber>5.5.0</revnumber> + <revdescription> + <varname>m</varname>ã«ã‚ˆã‚Šå®šç¾©ã•ã‚ŒãŸ + 先験平å‡ã‚’用ã„ã¦å¹³å‡äºŒä¹—å差を計算ã§ãるよã†ã«ãªã‚Šã¾ã—㟠+ </revdescription> + </revision> + </revhistory> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/descriptive_statistics/stdevf.xml b/modules/statistics/help/ja_JP/descriptive_statistics/stdevf.xml new file mode 100755 index 000000000..3198cba4f --- /dev/null +++ b/modules/statistics/help/ja_JP/descriptive_statistics/stdevf.xml @@ -0,0 +1,86 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="stdevf"> + <refnamediv> + <refname>stdevf</refname> + <refpurpose>標準åå·®</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>s=stdevf(x,fre) + s=stdevf(x,fre,'r') or s=stdevf(x,fre,1) + s=stdevf(x,fre,'c') or s=stdevf(x,fre,2) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã® + 値ã®æ¨™æº–å差を計算ã—ã¾ã™. + ãã®å„々ã«ã¯,<literal>x</literal>ã¨åŒã˜å¤§ãã•ã® + 整数ベクトルã¾ãŸã¯è¡Œåˆ—<literal>fre</literal> + ã®å¯¾å¿œã™ã‚‹å€¤ã«ã‚ˆã‚ŠæŒ‡å®šã•ã‚ŒãŸé »åº¦ãŒè€ƒæ…®ã•ã‚Œã¾ã™. + </para> + <para> + ã‚るベクトルã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã«ã¤ã„ã¦, s=stdevf(x,fre) (ã¾ãŸã¯ + <literal>s=stdevf(x,fre,'*')</literal> ã¯, + スカラー<literal>s</literal>ã« + <literal>x</literal>ã®å…¨ã‚¨ãƒ³ãƒˆãƒªã®æ¨™æº–å差を返ã—ã¾ã™. + å„値ã«ã¯,<literal>fre</literal>ã®å¯¾å¿œã™ã‚‹å€¤ã«ã‚ˆã‚Šç¤ºã•ã‚ŒãŸ + 多é‡åº¦ãŒè€ƒæ…®ã•ã‚Œã¾ã™. + </para> + <para> + <literal>s=stdevf(x,fre,'r')</literal> (ã¾ãŸã¯ç‰ä¾¡ãª, + <literal>s=stdevf(x,fre,1)</literal>) ã¯, + 1xsize(x,'c')ã®è¡Œãƒ™ã‚¯ãƒˆãƒ«<literal>s</literal>ã®å„エントリ㫠+ <literal>x</literal>ã®å„列ã®æ¨™æº–å差を返ã—ã¾ã™. + å„値ã«ã¯,<literal>fre</literal>ã®å¯¾å¿œã™ã‚‹å€¤ã«ã‚ˆã‚Šç¤ºã•ã‚ŒãŸ + 多é‡åº¦ãŒè€ƒæ…®ã•ã‚Œã¾ã™. + </para> + <para> + <literal>s=stdevf(x,fre,'c')</literal> (ã¾ãŸã¯ç‰ä¾¡ãª, + <literal>s=stdevf(x,fre,2)</literal>) ã¯, + size(x,'c')x1ã®åˆ—ベクトル<literal>s</literal>ã®å„エントリ㫠+ <literal>x</literal>ã®å„è¡Œã®æ¨™æº–å差を返ã—ã¾ã™. + å„値ã«ã¯,<literal>fre</literal>ã®å¯¾å¿œã™ã‚‹å€¤ã«ã‚ˆã‚Šç¤ºã•ã‚ŒãŸ + 多é‡åº¦ãŒè€ƒæ…®ã•ã‚Œã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 0.0002211 0.6653811;0.7560439 0.9546254 0.6283918] +fre=[1 2 3;3 4 3] +m=stdevf(x,fre) +m=stdevf(x,fre,'r') +m=stdevf(x,fre,'c') + ]]></programlisting> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/descriptive_statistics/variance.xml b/modules/statistics/help/ja_JP/descriptive_statistics/variance.xml new file mode 100755 index 000000000..ab5796dc8 --- /dev/null +++ b/modules/statistics/help/ja_JP/descriptive_statistics/variance.xml @@ -0,0 +1,102 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="variance"> + <refnamediv> + <refname>variance</refname> + <refpurpose>ベクトルã¾ãŸã¯è¡Œåˆ—ã®å€¤ã®åˆ†æ•£</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>s=variance(x[,orien[,w]]) + s=variance(x,'r') or m=variance(x,1) + s=variance(x,'c') or m=variance(x,2) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + <varlistentry> + <term>orien</term> + <listitem> + <para>計算ã®å‘ã.orienパタメータã®æœ‰åŠ¹ãªå€¤ã¯, 1, "r", 2ãŠã‚ˆã³"c"ã§ã™.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>w</term> + <listitem> + <para>w : 使用ã™ã‚‹æ£è¦åŒ–ã®æ‰‹æ³•. 有効ãªå€¤ã¯0ãŠã‚ˆã³1. + ã“ã‚Œã¯xã®åˆ—ã®æ•°(orien=1ãŒé¸æŠžã•ã‚ŒãŸå ´åˆ)ã¾ãŸã¯ + è¡Œã®æ•°(orien=2ãŒé¸æŠžã•ã‚ŒãŸå ´åˆ)ã«ä¾å˜ã—ã¾ã™. + w = 0 ã®å ´åˆ,m-1ã§æ£è¦åŒ–ã•ã‚Œ,分散ã®æœ€é©ãªéžãƒã‚¤ã‚¢ã‚¹æŽ¨å®šå™¨ãŒå‡ºåŠ›ã•ã‚Œã¾ã™(ã“ã‚ŒãŒãƒ‡ãƒ•ã‚©ãƒ«ãƒˆ). + w = 1 ã®å ´åˆ, m ã§æ£è¦åŒ–ã•ã‚Œ,å¹³å‡å‘¨ã‚Šã®äºŒæ¬¡ãƒ¢ãƒ¼ãƒ¡ãƒ³ãƒˆãŒå‡ºåŠ›ã•ã‚Œã¾ã™. + orienオプションãŒæŒ‡å®šã•ã‚Œãªã„å ´åˆ, + n*m-1ã«ã‚ˆã‚Šæ£è¦åŒ–ãŒè¡Œã‚ã‚Œã¾ã™.ãŸã ã—,n*mã¯è¡Œåˆ—ã«ãŠã‘ã‚‹å…¨è¦ç´ æ•°ã§ã™. + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯,ベクトルã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã®å€¤ã®åˆ†æ•£ã‚’計算ã—ã¾ã™. + </para> + <para> + ã‚るベクトルã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã«ã¤ã„ã¦, + <literal>s=variance(x)</literal> ã¯,スカラー<literal>s</literal>ã« + <literal>x</literal>ã®å…¨ã¦ã®ã‚¨ãƒ³ãƒˆãƒªã®åˆ†æ•£ã‚’è¿”ã—ã¾ã™. + </para> + <para> + <literal>s=variance(x,'r')</literal> (ã¾ãŸã¯ç‰ä¾¡ãª, <literal>s=variance(x,1)</literal>) + ã¯è¡Œæ–¹å‘ã®åˆ†æ•£ã§ã™. + ã“ã®å ´åˆ,行ベクトルsã®å„エントリã«<literal>x</literal>ã®å„列ã®åˆ†æ•£ãŒè¿”ã•ã‚Œã¾ã™. + è¤‡ç´ æ•°å€¤ã‚’ç®¡ç†ã™ã‚‹ã‚ˆã†ä¸€èˆ¬åŒ–ã•ã‚ŒãŸå¼ãŒä½¿ç”¨ã•ã‚Œã¾ã™. + </para> + <para> + <literal>s=variance(x,'c')</literal> (ã¾ãŸã¯ç‰ä¾¡ãª,<literal>s=variance(x,2)</literal>) + ã¯åˆ—æ–¹å‘ã®åˆ†æ•£ã§ã™. + ã“ã®å ´åˆ,列ベクトル<literal>s</literal>ã®å„エントリ㫠+ <literal>x</literal>ã®å„è¡Œã®åˆ†æ•£ã‚’è¿”ã—ã¾ã™. + è¤‡ç´ æ•°å€¤ã‚’ç®¡ç†ã™ã‚‹ã‚ˆã†ä¸€èˆ¬åŒ–ã•ã‚ŒãŸå¼ãŒä½¿ç”¨ã•ã‚Œã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 0.0002211 0.6653811;0.7560439 0.4453586 0.6283918] +s=variance(x) +s=variance(x,'r') +s=variance(x,'c') + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="mtlb_var">mtlb_var</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/descriptive_statistics/variancef.xml b/modules/statistics/help/ja_JP/descriptive_statistics/variancef.xml new file mode 100755 index 000000000..68a46bdf5 --- /dev/null +++ b/modules/statistics/help/ja_JP/descriptive_statistics/variancef.xml @@ -0,0 +1,85 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="variancef"> + <refnamediv> + <refname>variancef</refname> + <refpurpose>ベクトルã¾ãŸã¯è¡Œåˆ—ã®å€¤ã®æ¨™æº–åå·®</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>s=variancef(x,fre) + s=variancef(x,fre,'r') or s=variancef(x,fre,1) + s=variancef(x,fre,'c') or s=variancef(x,fre,2) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã®å€¤ã®åˆ†æ•£ã‚’計算ã—ã¾ã™. + ã“れらã®åˆ†æ•£ã®å„々ã¯, + <literal>x</literal>ã¨åŒã˜å¤§ãã•ã®æ•´æ•°ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ— + <literal>fre</literal>ã®å¯¾å¿œã™ã‚‹å€¤ã«ã‚ˆã‚Šç¤ºã•ã‚ŒãŸé »åº¦ã«åŸºã¥ã計算ã•ã‚Œã¾ã™. + </para> + <para> + ã‚るベクトルã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã«ã¤ã„ã¦, + <literal>s=variancef(x,fre)</literal> (ã¾ãŸã¯ + <literal>s=variancef(x,fre,'*')</literal>) ã¯,スカラー<literal>s</literal>ã« + <literal>x</literal>ã®å…¨ã‚¨ãƒ³ãƒˆãƒªã®åˆ†æ•£ã‚’è¿”ã—ã¾ã™. + ãã®å„値ã«ã¯,<literal>fre</literal>ã®å¯¾å¿œã™ã‚‹å€¤ã«ã‚ˆã‚Šç¤ºã•ã‚ŒãŸå¤šé‡åº¦ãŒ + 考慮ã•ã‚Œã¾ã™. + </para> + <para> + <literal>s=variancef(x,fre,'r')</literal>(ã¾ãŸã¯ç‰ä¾¡ãª, + <literal>s=variancef(x,fre,1)</literal>) 㯠+ 1xsize(x,'c')ã®è¡Œãƒ™ã‚¯ãƒˆãƒ«<literal>s</literal>ã®å„エントリ㫠+ <literal>x</literal>ã®å„列ã®åˆ†æ•£ã‚’è¿”ã—ã¾ã™. + å„値ã«ã¯<literal>fre</literal>ã®å¯¾å¿œã™ã‚‹å€¤ã«ã‚ˆã‚Šç¤ºã•ã‚ŒãŸå¤šé‡åº¦ + ãŒè€ƒæ…®ã•ã‚Œã¾ã™. + </para> + <para> + <literal>s=variancef(x,fre,'c')</literal>(ã¾ãŸã¯ç‰ä¾¡ãª, + <literal>s=variancef(x,fre,2)</literal>) ã¯, + size(x,'c') x1ã®åˆ—ベクトル<literal>s</literal>ã®å„エントリ㫠+ <literal>x</literal>ã®å„è¡Œã®åˆ†æ•£ã‚’è¿”ã—ã¾ã™. + å„値ã«ã¯<literal>fre</literal>ã®å¯¾å¿œã™ã‚‹å€¤ã«ã‚ˆã‚Šç¤ºã•ã‚ŒãŸå¤šé‡åº¦ + ãŒè€ƒæ…®ã•ã‚Œã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 0.0002211 0.6653811;0.7560439 0.9546254 0.6283918] +fre=[1 2 3;3 4 3] +m=variancef(x,fre) +m=variancef(x,fre,'r') +m=variancef(x,fre,'c') + ]]></programlisting> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/descriptive_statistics/wcenter.xml b/modules/statistics/help/ja_JP/descriptive_statistics/wcenter.xml new file mode 100755 index 000000000..a7919dbb9 --- /dev/null +++ b/modules/statistics/help/ja_JP/descriptive_statistics/wcenter.xml @@ -0,0 +1,86 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="wcenter"> + <refnamediv> + <refname>wcenter</refname> + <refpurpose>ä¸å¿ƒåŒ–ã¨é‡ã¿ä»˜ã‘</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>s=wcenter(x) + s=wcenter(x,'r') or s=wcenter(x,1) + s=wcenter(x,'c') or s=wcenter(x,2) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term> </term> + <listitem> + <para>x: 実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯,数値行列<literal>x</literal>ã‚’é‡ã¿ä»˜ã‘ã—,ä¸å¿ƒåŒ–ã—ãŸ<literal>s</literal>ã‚’ + 計算ã—ã¾ã™. + </para> + <para> + ã‚るベクトルã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã«ã¤ã„ã¦,<literal>s=wcenter(x)</literal> + ã¯,行列<literal>s</literal>ã®ä¿‚æ•°<literal>(i,j)</literal>ã« + 値<literal>(x(i,j)-xbar)/sigma</literal>ã‚’è¿”ã—ã¾ã™. + ãŸã ã—,<literal>xbar</literal>ã¯<literal>x</literal>ã®ä¿‚æ•°ã®å€¤ã®å¹³å‡, + <literal>sigma</literal>ã¯ãã®æ¨™æº–åå·®ã§ã™. + </para> + <para> + <literal>s=wcenter(x,'r')</literal> (ã‚‚ã—ãã¯ç‰ä¾¡ãª + <literal>s=wcenter(x,1)</literal>) ã¯, <literal>x</literal>ã®å€¤ã®è¡Œæ–¹å‘ã®ä¸å¿ƒåŒ–ã§ã™. + ã“ã®é–¢æ•°ã¯,<literal>xbarv(j)</literal>ã‚’<literal>j</literal>列ã®å€¤ã®å¹³å‡, + <literal>sigmav(j)</literal>ã‚’<literal>x</literal>ã®<literal>j</literal>列目㮠+ 標準åå·®ã¨ã—ã¦, + 値<literal>(x(i,j)-xbarv(j))/sigmav(j)</literal>をエントリ<literal>s(i,j)</literal> + ã«è¿”ã—ã¾ã™. + </para> + <para> + <literal>s=wcenter(x,'c')</literal> (ã‚‚ã—ãã¯ç‰ä¾¡ãª + <literal>s=wcenter(x,2)</literal>) ã¯,<literal>x</literal>ã®å€¤ã®è¡Œæ–¹å‘ã®ä¸å¿ƒåŒ–ã§ã™. + ã“ã®é–¢æ•°ã¯,<literal>xbarvh(i)</literal>ã‚’<literal>i</literal>è¡Œã®å€¤ã®å¹³å‡, + <literal>sigmah(i)</literal>ã‚’<literal>x</literal>ã®<literal>i</literal>行目㮠+ 標準åå·®ã¨ã—ã¦, + 値<literal>(x(i,j)-xbarh(i))/sigmah(i)</literal>をエントリ<literal>s(i,j)</literal> + ã«è¿”ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 0.0002211 0.6653811; + 0.7560439 0.3303271 0.6283918] +s=wcenter(x) +s=wcenter(x,'r') +s=wcenter(x,'c') + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="center">center</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/hypothesis_testing/CHAPTER b/modules/statistics/help/ja_JP/hypothesis_testing/CHAPTER new file mode 100755 index 000000000..cdc59bfdf --- /dev/null +++ b/modules/statistics/help/ja_JP/hypothesis_testing/CHAPTER @@ -0,0 +1 @@ +title = Hypothesis Testing diff --git a/modules/statistics/help/ja_JP/hypothesis_testing/ftest.xml b/modules/statistics/help/ja_JP/hypothesis_testing/ftest.xml new file mode 100755 index 000000000..cf5de9ae0 --- /dev/null +++ b/modules/statistics/help/ja_JP/hypothesis_testing/ftest.xml @@ -0,0 +1,74 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="ftest"> + <refnamediv> + <refname>ftest</refname> + <refpurpose>フィッシャー比</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>f=ftest(samples) + [f,p]=ftest(samples) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>samples</term> + <listitem> + <para>nrè¡Œnc列ã®å®Ÿæ•°ã¾ãŸã¯è¤‡ç´ æ•°ã®è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + <literal> f=ftest(samples) </literal> ã¯, + 行列<literal>samples</literal>ã®å„列ã®å€¤ã§ã‚ã‚‹ + nc個ã®æ¨™æœ¬ã®ãƒ•ã‚£ãƒƒã‚·ãƒ£ãƒ¼æ¯”を計算ã—ã¾ã™. + ã“れらã®å„標本ã®å„々ã¯,nr個ã®å€¤ã‹ã‚‰æ§‹æˆã•ã‚Œã¾ã™ + (フィッシャー比ã¯nrã¨æ¨™æœ¬ã®å¹³å‡ã®åˆ†æ•£ã®ç©ã¨å„標本ã®åˆ†æ•£ã®å¹³å‡ã®æ¯”ã§ã™). + </para> + <para> + <literal> [f,p]=ftest(samples) </literal> ã¯, + p 個ã®ãƒ•ã‚£ãƒƒã‚·ãƒ£ãƒ¼æ¯” fã®è¨ˆç®—値をpã«å‡ºåŠ›ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, J.Wiley & Sons, 1990. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +samples=[46 55 54; + 53 54 50; + 49 58 51; + 50 61 51; + 46 52 49] +[f,p]=ftest(samples) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="ftuneq">ftuneq</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/hypothesis_testing/ftuneq.xml b/modules/statistics/help/ja_JP/hypothesis_testing/ftuneq.xml new file mode 100755 index 000000000..b81da9529 --- /dev/null +++ b/modules/statistics/help/ja_JP/hypothesis_testing/ftuneq.xml @@ -0,0 +1,90 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="ftuneq"> + <refnamediv> + <refname>ftuneq</refname> + <refpurpose>大ãã•ãŒç‰ã—ããªã„標本ã®ãƒ•ã‚£ãƒƒã‚·ãƒ£ãƒ¼æ¯” . </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>f=ftuneq(sample1[,sample2[,sample3]...]]) + [f,p]=ftuneq(sample1[,sample2[,sample3]...]]) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>sample1, sample2, sample3,... </term> + <listitem> + <para>ä»»æ„ã®åž‹ã®å®Ÿæ•°ã¾ãŸã¯è¤‡ç´ æ•°ã®è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯å¤§ãã•ãŒç‰ã—ããªã„標本ã«ã¤ã„ã¦F比を計算ã—ã¾ã™. + </para> + <para> + "最も効率的ãªè¨è¨ˆã¯, + å…¨ã¦ã®æ¨™æœ¬ã‚’åŒã˜å¤§ãã• n ã«ã™ã‚‹ã“ã¨ã§ã™. + ã—ã‹ã—,ã“ã‚ŒãŒã§ããªã„時, + ANOVA計算を修æ£ã™ã‚‹ã“ã¨ãŒå¯èƒ½ã§ã™." + xbarbarã®å®šç¾©ã¯ã‚‚ã¯ã‚„mean(xbar)ã§ã¯ãªã, + é‡ã¿ã‚’niã¨ã—ãŸé‡ã¿ä»˜ãå¹³å‡ã§ã‚ã‚‹ã“ã¨ã«æ³¨æ„ã—ã¦ãã ã•ã„. + ã•ã‚‰ã«,ã“ã®é–¢æ•°ã¯ãƒ•ã‚£ãƒƒã‚·ãƒ£ãƒ¼æ¯”ã®p個ã®è¨ˆç®—値を(pã«)出力ã—ã¾ã™. + </para> + <para> + n_i (iã¯1ã‹ã‚‰a) 個ã®è¦³æ¸¬å€¤ã‹ã‚‰æ§‹æˆã•ã‚Œã‚‹ä¸€é€£ã®æ¨™æœ¬ã‚’指定ã™ã‚‹ã¨, + ã“ã®é–¢æ•°ã¯ãƒ•ã‚£ãƒƒã‚·ãƒ£ãƒ¼æ¯” (nrã¨æ¨™æœ¬ã®å¹³å‡ã®åˆ†æ•£ã®ç©ã¨å„標本ã®åˆ†æ•£ã® + å¹³å‡ã®æ¯”) ã‚’ f ã«å‡ºåŠ›ã—ã¾ã™. + </para> + <para> + <literal> f=ftest(samples) </literal> ã¯, + 行列<literal>samples</literal>ã®åˆ—ã‚’ãã®å€¤ã¨ã™ã‚‹ + nc個ã®æ¨™æœ¬ã®ãƒ•ã‚£ãƒƒã‚·ãƒ£ãƒ¼æ¯”を計算ã—ã¾ã™. + ã“れらã®æ¨™æœ¬ã®å„々ã¯,nr個ã®å€¤ã‹ã‚‰æ§‹æˆã•ã‚Œã¾ã™. + (フィッシャー比ã¯nrã¨æ¨™æœ¬ã®å¹³å‡ã®åˆ†æ•£ã®ç©ã¨å„標本ã®åˆ†æ•£ã®å¹³å‡ã®æ¯”ã§ã™) + </para> + <para> + <literal> [f,p]=ftest(samples) </literal> ã¯,p個ã®ãƒ•ã‚£ãƒƒã‚·ãƒ£ãƒ¼æ¯”fã®è¨ˆç®—値を + pã«å‡ºåŠ›ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, J.Wiley & Sons, 1990. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +sample1=[46 55 54]; +sample2=[53 54]; +sample3=[50 49 58 51 50]; +sample4=[61 51 46 52]; +[f,p]=ftuneq(sample1,sample2,sample3,sample4) + ]]></programlisting> + </refsection> + <refsection> + <title>Så‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="ftuneq">ftuneq</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/measures_dispersion/CHAPTER b/modules/statistics/help/ja_JP/measures_dispersion/CHAPTER new file mode 100755 index 000000000..0e76f2f9a --- /dev/null +++ b/modules/statistics/help/ja_JP/measures_dispersion/CHAPTER @@ -0,0 +1 @@ +title = Measures of Dispersion diff --git a/modules/statistics/help/ja_JP/measures_dispersion/iqr.xml b/modules/statistics/help/ja_JP/measures_dispersion/iqr.xml new file mode 100755 index 000000000..0d6046fd0 --- /dev/null +++ b/modules/statistics/help/ja_JP/measures_dispersion/iqr.xml @@ -0,0 +1,66 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="iqr"> + <refnamediv> + <refname>iqr</refname> + <refpurpose>四分ä½ç¯„囲</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>q=iqr(x) + q=iqr(x,'r') (or, equivalently, q=iqr(x,1)) + q=iqr(x,'c') (or, equivalently, q=iqr(x,2)) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯,四分ä½ç¯„囲 IQR = ベクトルã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã® + 上ä½å››åˆ†ä½ç‚¹ - 下ä½å››åˆ†ä½ç‚¹ を計算ã—ã¾ã™. + </para> + <para> + ã‚るベクトルã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã«ã¤ã„ã¦, <literal>q=iqr(x)</literal> + ã¯,<literal>x</literal>ã®å…¨ã‚¨ãƒ³ãƒˆãƒªã®å››åˆ†ä½ç¯„囲をスカラー<literal>q</literal>ã« + è¿”ã—ã¾ã™. + </para> + <para> + <literal> q=iqr(x,'r') </literal> (ã¾ãŸã¯ç‰ä¾¡ãª + <literal>q=iqr(x,1)</literal>) ã¯,行方å‘ã®å››åˆ†ä½ç¯„囲ã§ã™. + ã“ã®å ´åˆ,行ベクトル<literal>q</literal>ã®å„エントリ㫠+ <literal>x</literal>ã®å„列ã®å››åˆ†ä½ç¯„囲ãŒè¿”ã•ã‚Œã¾ã™. + </para> + <para> + <literal> q=iqr(x,'c') </literal> (ã¾ãŸã¯ç‰ä¾¡ãª + <literal>q=iqr(x,2)</literal>) ã¯,列方å‘ã®å››åˆ†ä½ç¯„囲ã§ã™. + ã“ã®å ´åˆ,列ベクトル<literal>q</literal>ã®å„エントリ㫠+ <literal>x</literal>ã®å„è¡Œã®å››åˆ†ä½ç¯„囲ãŒè¿”ã•ã‚Œã¾ã™. + </para> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H.Wonacott, R.J.; Introductory Statistics, J.Wiley-Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/measures_dispersion/mad.xml b/modules/statistics/help/ja_JP/measures_dispersion/mad.xml new file mode 100755 index 000000000..9cfe0f181 --- /dev/null +++ b/modules/statistics/help/ja_JP/measures_dispersion/mad.xml @@ -0,0 +1,65 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="mad"> + <refnamediv> + <refname>mad</refname> + <refpurpose>å¹³å‡çµ¶å¯¾åå·®</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>s2=mad(x) + s2=mad(x,'r') or s2=mad(x,1) + s2=mad(x,'c') or s2=mad(x,2) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯,実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—<literal>x</literal> + ã®å¹³å‡çµ¶å¯¾å差を計算ã—ã¾ã™. + </para> + <para> + ã‚るベクトルã¾ãŸã¯è¡Œåˆ—<literal>x</literal>ã«ã¤ã„ã¦, + <literal> s2=mad(x)</literal>ã¯, + <literal>x</literal>ã®å…¨ã‚¨ãƒ³ãƒˆãƒªã®å¹³å‡çµ¶å¯¾å差を + スカラー<literal>s2</literal>ã«ã‚’è¿”ã—ã¾ã™. + </para> + <para> + <literal>s2=mad(x,'r')</literal> (ã¾ãŸã¯ç‰ä¾¡ãª<literal>s2=mad(x,1)</literal>) + ã¯,列ベクトル<literal>s2</literal>ã®å„è¦ç´ ã« + <literal>x</literal>ã®å„列ã®å¹³å‡çµ¶å¯¾å差を返ã—ã¾ã™. + </para> + <para> + <literal>s2=mad(x,'c')</literal> (ã¾ãŸã¯ç‰ä¾¡ãª<literal> s2=mad(x,2)</literal>) + ã¯,列ベクトル<literal>s2</literal>ã®å„è¦ç´ ã« + <literal>x</literal>ã®å„è¡Œã®å¹³å‡çµ¶å¯¾å差を返ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Reference: Wonacott T.H.& Wonacott R.J. .- Introductory Statistics, 5th edition, John Wiley, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/measures_dispersion/strange.xml b/modules/statistics/help/ja_JP/measures_dispersion/strange.xml new file mode 100755 index 000000000..3917dd1ab --- /dev/null +++ b/modules/statistics/help/ja_JP/measures_dispersion/strange.xml @@ -0,0 +1,57 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="strange"> + <refnamediv> + <refname>strange</refname> + <refpurpose>レンジ</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>[r]=strange(x) + [r]=strange(x,'r') (ã¾ãŸã¯ç‰ä¾¡ãª, [r]=strange(x,1)) + [r]=strange(x,'c') (ã¾ãŸã¯ç‰ä¾¡ãª, [r]=strange(x,2)) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + range ã¯æœ€å¤§å€¤ã¨æœ€å°å€¤ã®è·é›¢ã§, [r]=strange(x) 㯠+ ベクトルã¾ãŸã¯è¡Œåˆ— x ã®ãƒ¬ãƒ³ã‚¸ã‚’計算ã—ã¾ã™. + </para> + <para> + [r]=strange(x,'r') (ã¾ãŸã¯ç‰ä¾¡ãª, [r]=strange(x,1)) + ã¯å„列ã®ãƒ¬ãƒ³ã‚¸ã‚’有ã™ã‚‹è¡Œãƒ™ã‚¯ãƒˆãƒ«ã‚’出力ã—ã¾ã™. + </para> + <para> + [r]=strange(x,'c') (ã¾ãŸã¯ç‰ä¾¡ãª, [r]=strange(x,2)) + ã¯å„è¡Œã®ãƒ¬ãƒ³ã‚¸ã‚’有ã™ã‚‹åˆ—ベクトルを出力ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/measures_shape/CHAPTER b/modules/statistics/help/ja_JP/measures_shape/CHAPTER new file mode 100755 index 000000000..7a7e4a2a7 --- /dev/null +++ b/modules/statistics/help/ja_JP/measures_shape/CHAPTER @@ -0,0 +1 @@ +title = Measures of Shape diff --git a/modules/statistics/help/ja_JP/measures_shape/cmoment.xml b/modules/statistics/help/ja_JP/measures_shape/cmoment.xml new file mode 100755 index 000000000..87fbb190f --- /dev/null +++ b/modules/statistics/help/ja_JP/measures_shape/cmoment.xml @@ -0,0 +1,117 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="cmoment"> + <refnamediv> + <refname>cmoment</refname> + <refpurpose>å…¨ã¦ã®æ¬¡æ•°ã®ä¸å¿ƒãƒ¢ãƒ¼ãƒ¡ãƒ³ãƒˆ</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>mom=cmoment(x,ord) + mom=cmoment(x,ord,'r') or mom=cmoment(x,ord,1) + mom=cmoment(x,ord,'c') or mom=cmoment(x,ord,2) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + <varlistentry> + <term>ord</term> + <listitem> + <para>æ£ã®æ•´æ•°</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + <literal>cmoment(x,ord)</literal> ã¯,<literal>x</literal>ã®è¦ç´ ã®æ¬¡æ•°ordã® + ä¸å¿ƒãƒ¢ãƒ¼ãƒ¡ãƒ³ãƒˆã§ã™.3番目ã®å¼•æ•°ã«æ–‡å—列<literal>'r'</literal> (ã¾ãŸã¯ + <literal>1</literal>) ã¾ãŸã¯ <literal>'c'</literal> (ã¾ãŸã¯ <literal> 2</literal>) + ãŒæŒ‡å®šã•ã‚ŒãŸå ´åˆ, + 最åˆã®ã‚±ãƒ¼ã‚¹ã§ã¯,<literal>mom(j)</literal>ã«<literal>x</literal> + ã®<literal>j</literal>列目ã®æ¬¡æ•°<literal>ord</literal>ã® + ä¸å¿ƒãƒ¢ãƒ¼ãƒ¡ãƒ³ãƒˆã‚’<literal>mom(j)</literal>ã«æœ‰ã™ã‚‹ã‚ˆã†ãª, + 行ベクトル<literal>mom</literal>ã‚’è¿”ã—ã¾ã™. + è¡Œã®ä¸å¿ƒãƒ¢ãƒ¼ãƒ¡ãƒ³ãƒˆã«ã¤ã„ã¦ã‚‚åŒæ§˜ã«<literal>cmoment(x,ord,'c')</literal> + を使用ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™. + </para> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, J.Wiley & Sons, 1990. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 0.0002211 0.6653811; + 0.7560439 0.3303271 0.6283918] +mom=cmoment(x,3) +mom=cmoment(x,2,'r') +mom=cmoment(x,3,'c') + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="sum">sum</link> + </member> + <member> + <link linkend="median">median</link> + </member> + <member> + <link linkend="stdev">stdev</link> + </member> + <member> + <link linkend="mean">mean</link> + </member> + <member> + <link linkend="meanf">meanf</link> + </member> + <member> + <link linkend="moment">moment</link> + </member> + <member> + <link linkend="nanmean">nanmean</link> + </member> + <member> + <link linkend="nanmeanf">nanmeanf</link> + </member> + <member> + <link linkend="stdev">stdev</link> + </member> + <member> + <link linkend="stdevf">stdevf</link> + </member> + <member> + <link linkend="variance">variance</link> + </member> + <member> + <link linkend="variancef">variancef</link> + </member> + <member> + <link linkend="nanstdev">nanstdev</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/measures_shape/moment.xml b/modules/statistics/help/ja_JP/measures_shape/moment.xml new file mode 100755 index 000000000..04592097f --- /dev/null +++ b/modules/statistics/help/ja_JP/measures_shape/moment.xml @@ -0,0 +1,74 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="moment"> + <refnamediv> + <refname>moment</refname> + <refpurpose>次数を指定ã—ãŸéžå¿ƒãƒ¢ãƒ¼ãƒ¡ãƒ³ãƒˆ</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>mom=moment(x,ord) + mom=moment(x,ord,'r') or mom=moment(x,ord,1) + mom=moment(x,ord,'c') or mom=moment(x,ord,2) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + <varlistentry> + <term>ord</term> + <listitem> + <para>æ£ã®æ•´æ•°</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + moment<literal>(x,ord)</literal> ã¯<literal>x</literal>ã®è¦ç´ ã® + ord次ã®éžå¿ƒãƒ¢ãƒ¼ãƒ¡ãƒ³ãƒˆã§ã™. + </para> + <para> + 3番目ã®å¼•æ•°ã«æ–‡å—列<literal>'r'</literal> (ã¾ãŸã¯<literal> 1</literal>) + ã¾ãŸã¯<literal>'c'</literal> (ã¾ãŸã¯<literal>2</literal>)ãŒæŒ‡å®šã•ã‚ŒãŸå ´åˆ, + 最åˆã®å ´åˆã¯<literal>mom(j)</literal>ã« + <literal>x</literal>ã®<literal>j</literal>列㮠+ <literal>ord</literal>次ã®éžå¿ƒãƒ¢ãƒ¼ãƒ¡ãƒ³ãƒˆã‚’å«ã‚€ã‚ˆã†ãª + 行ベクトル<literal>mom</literal>ãŒå‡ºåŠ›ã•ã‚Œã¾ã™. + <literal>moment(x,ord,'c')</literal> ã¯,åŒæ§˜ã«è¡Œã«é–¢ã™ã‚‹éžå¿ƒãƒ¢ãƒ¼ãƒ¡ãƒ³ãƒˆã«ã¤ã„㦠+ 使用ã•ã‚Œã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[0.2113249 0.0002211 0.6653811;0.7560439 0.3303271 0.6283918] +mom=moment(x,3) +mom=moment(x,2,'r') +mom=moment(x,3,'c') + ]]></programlisting> + </refsection> + <refsection> + <title>Bå‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/measures_shape/perctl.xml b/modules/statistics/help/ja_JP/measures_shape/perctl.xml new file mode 100755 index 000000000..66dca1013 --- /dev/null +++ b/modules/statistics/help/ja_JP/measures_shape/perctl.xml @@ -0,0 +1,86 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="perctl"> + <refnamediv> + <refname>perctl</refname> + <refpurpose>パーセンタイルã®è¨ˆç®—</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>p=perctl(x,y)</synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + <varlistentry> + <term>y</term> + <listitem> + <para>0 㨠100ã®é–“ã®æ£ã®æ•´æ•°å€¤ã®ãƒ™ã‚¯ãƒˆãƒ«.</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + 実数ベクトルã¾ãŸã¯è¡Œåˆ—xã®(æ˜‡é †,列ãŒå…ˆ) + パーセンタイルã®è¡Œåˆ—pを計算ã—ã¾ã™. + </para> + <para> + パーセンタイルã¯yã®ã‚¨ãƒ³ãƒˆãƒªã«ã‚ˆã‚Šç¤ºã•ã‚Œ, + yã®ã‚¨ãƒ³ãƒˆãƒªã®å€¤ã¯0ã¨100ã®é–“ã®æ£ã®æ•´æ•°ã¨ã™ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™. + </para> + <para>p ã¯,length(y) x 2 ã®è¡Œåˆ—ã§,最åˆã®åˆ—ã®å†…容㯠+ パーセンタイルã®å€¤ã§ã™. + </para> + <para>ãã®2列目ã®å†…容ã¯, + 入力行列xã®è¨ˆç®—ã•ã‚ŒãŸãƒ‘ーセンタイルã®ä½ç½®ã§ã™. + </para> + <para> + xã®æœ€å°å€¤ã¾ãŸã¯æœ€å¤§å€¤ãŒ + 範囲ã®å¤–å´ã®ãƒ‘ーセント値ã«é–¢ã™ã‚‹ + パーセンタイルã«ä»£å…¥ã•ã‚Œã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[6 7 0 7 10 4 2 2 7 1; + 6 0 5 5 5 2 0 6 8 10; + 8 6 4 3 5 9 8 3 4 7; + 1 3 2 7 6 1 1 4 8 2; + 6 3 5 1 6 5 9 9 5 5; + 1 6 4 4 5 4 0 8 1 8; + 7 1 3 7 8 0 2 8 10 8; + 3 6 1 9 8 5 5 3 2 1; + 5 7 6 2 10 8 7 4 0 8; + 10 3 3 4 8 6 9 4 8 3] +y=[10 20 30] +p=perctl(x,y) + ]]></programlisting> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + HYNDMAN,Rob J. and FAN Yanan, Sample Quantiles in + Statistical Packages, The American Statistician, + Nov.1996, Vol 50, No.4 + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/measures_shape/quart.xml b/modules/statistics/help/ja_JP/measures_shape/quart.xml new file mode 100755 index 000000000..b85db357d --- /dev/null +++ b/modules/statistics/help/ja_JP/measures_shape/quart.xml @@ -0,0 +1,76 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="quart"> + <refnamediv> + <refname>quart</refname> + <refpurpose>四分ä½æ•°ã®è¨ˆç®— + </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>s=quart(x) + s=quart(x,'r') or m=quart(x,1) + s=quart(x,'c') or m=quart(x,2) + </synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para>実数ã¾ãŸã¯è¤‡ç´ æ•°ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã‚るベクトルã¾ãŸã¯è¡Œåˆ—xã«ã¤ã„ã¦,[q]=quart(x,y) + ã¯,xã®å››åˆ†ä½æ•°ã‚’ベクトルqã«è¿”ã—ã¾ã™. + [q]=quart(x,'r') (ã¾ãŸã¯ç‰ä¾¡ãª, + [q]=quart(x,1)) ã¯è¡Œæ–¹å‘ã®ãƒ‘ーセンタイルã§ã™. + 行列qã®å„列ã«xã®å¯¾å¿œã™ã‚‹åˆ—ã®ãƒ‡ãƒ¼ã‚¿ã®å››åˆ†ä½æ•°ã‚’è¿”ã—ã¾ã™. + </para> + <para> + [q]=quart(x,'c') (ã¾ãŸã¯ç‰ä¾¡ãª, + [q]=quart(x,2)) ã¯åˆ—æ–¹å‘ã®ãƒ‘ーセンタイルã§ã™. + 行列qã®å„è¡Œã«xã®å¯¾å¿œã™ã‚‹è¡Œã®ãƒ‡ãƒ¼ã‚¿ã®å››åˆ†ä½æ•°ã‚’è¿”ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +x=[6 7 0 7 10 4 2 2 7 1; + 6 0 5 5 5 2 0 6 8 10; + 8 6 4 3 5 9 8 3 4 7; + 1 3 2 7 6 1 1 4 8 2; + 6 3 5 1 6 5 9 9 5 5; + 1 6 4 4 5 4 0 8 1 8; + 7 1 3 7 8 0 2 8 10 8; + 3 6 1 9 8 5 5 3 2 1; + 5 7 6 2 10 8 7 4 0 8; + 10 3 3 4 8 6 9 4 8 3] +q=quart(x) +q=quart(x,'r') +q=quart(x,'c') + ]]></programlisting> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/principal_component_analysis/CHAPTER b/modules/statistics/help/ja_JP/principal_component_analysis/CHAPTER new file mode 100755 index 000000000..e06f74fcf --- /dev/null +++ b/modules/statistics/help/ja_JP/principal_component_analysis/CHAPTER @@ -0,0 +1,2 @@ +title = Principal Component Analysis + diff --git a/modules/statistics/help/ja_JP/principal_component_analysis/pca.xml b/modules/statistics/help/ja_JP/principal_component_analysis/pca.xml new file mode 100755 index 000000000..e9472b474 --- /dev/null +++ b/modules/statistics/help/ja_JP/principal_component_analysis/pca.xml @@ -0,0 +1,125 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="pca"> + <refnamediv> + <refname>pca</refname> + <refpurpose>æ£è¦åŒ–ã•ã‚ŒãŸå¤‰æ•°ã«ã‚ˆã‚Šä¸»æˆåˆ†è§£æžã‚’è¡Œã†</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>[lambda,facpr,comprinc] = pca(x)</synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para> + nxp (n独立, p 変数) ã®å®Ÿæ•°è¡Œåˆ—ã§ã™. + <literal>pca</literal>ã¯, + æ£è¦åŒ–ã•ã‚ŒãŸå¤‰æ•°ã«ã‚ˆã‚Šä¸»æˆåˆ†è§£æžã‚’è¡Œã†éš›ã« + <literal>x</literal>ã®åˆ—ã‚’ + ä¸å¿ƒåŒ–ãŠã‚ˆã³æ£è¦åŒ–ã™ã‚‹ã“ã¨ã«æ³¨æ„ã—ã¦ãã ã•ã„. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>lambda</term> + <listitem> + <para>p x 2数値行列. 最åˆã®åˆ—ã«ã¯, + Vã®å›ºæœ‰å€¤ãŒå‡ºåŠ›ã•ã‚Œã¾ã™. + ãŸã ã—,Vã¯p x pã®ç›¸é–¢è¡Œåˆ—ã§ã™. + 2番目ã®åˆ—ã¯å¯¾å¿œã™ã‚‹å›ºæœ‰å€¤ã¨ + 固有値ã®åˆè¨ˆã®æ¯”ã¨ãªã‚Šã¾ã™. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>facpr</term> + <listitem> + <para> + ä¸»å› å,Vã®å›ºæœ‰ãƒ™ã‚¯ãƒˆãƒ«ã§ã™. + å„列ã¯<literal>R^p</literal>ã®åŒå¯¾ã® + 固有ベクトルã®è¦ç´ ã§ã™. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>comprinc</term> + <listitem> + <para> + 主æˆåˆ†ã§ã™.ã“ã® n x n 行列㮠+ å„列(c_i=Xu_i)ã¯, + M個ã®ä¸»è»¸ã¸ã®å€‹ã€…ã®ç›´äº¤æŠ•å½±ã§ã™. + ã“ã®åˆ—ã®å„々ã¯,æ¡ä»¶ + <literal>u'_i M^(-1) u_i=1</literal>ã®ä¸‹ã§ã® + 変数x1, ...,xpã®ç·šå½¢çµåˆã§ã™. + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯,"主æˆåˆ†è§£æž"ã¨ã—ã¦çŸ¥ã‚‰ã‚Œã‚‹ + 複数ã®è¨ˆç®—ã‚’è¡Œãªã„ã¾ã™. + </para> + <para> + ã“ã®æ‰‹æ³•ã®èƒŒå¾Œã®ã‚¢ã‚¤ãƒ‡ã‚¢ã¯, + n個独立変é‡ã‹ã‚‰ãªã‚‹ã‚¯ãƒ©ã‚¹ã‚¿ã‚’ + よりå°ã•ãªæ¬¡å…ƒã®éƒ¨åˆ†ç©ºé–“ã« + 近似的ãªæ‰‹æ³•ã§è¡¨ã™ã“ã¨ã§ã™. + ã“れを行ã†ãŸã‚ã«, + ã“ã®æ‰‹æ³•ã¯ã‚¯ãƒ©ã‚¹ã‚¿ã‚’部分空間ã«æŠ•å½±ã—ã¾ã™. + k次元投影部分区間ã®é¸æŠžã¯, + 投影ã®è·é›¢ãŒæœ€å°ã®ã‚†ãŒã¿ã‚’有ã™ã‚‹ã‚ˆã†ã«è¡Œã‚ã‚Œã¾ã™: + 投影ã®è·é›¢ã®å¹³æ–¹ãŒæœ€å¤§åŒ–ã•ã‚Œã‚‹ã‚ˆã†ãª + k次元部分空間を探ã—ã¾ã™(実際ã«ã¯æŠ•å½±ã§ã¯è·é›¢ã¯ä¼¸ã°ã™ã“ã¨ã®ã¿ã§ãã¾ã™). + 言ã„æ›ãˆã‚‹ã¨, + 投影ã®k次元部分空間ã¸ã®æŠ•å½±ã®æ…£æ€§ã¯æœ€å¤§åŒ–ã•ã‚Œã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™. + </para> + <para> + <literal>pca</literal>ã®å¤ã„ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã®ã‚°ãƒ©ãƒ•ã‚£ãƒƒã‚¯ã®éƒ¨åˆ†ã¯, + 削除ã•ã‚Œã¦ã„ã¾ã™. + ã“ã®æ©Ÿèƒ½ã¯,<link linkend="show_pca">show_pca</link>関数ã«ã‚ˆã‚Š + 実行ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +a=rand(100,10,'n'); +[lambda,facpr,comprinc] = pca(a); +show_pca(lambda,facpr) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="show_pca">show_pca</link> + </member> + <member> + <link linkend="princomp">princomp</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>å‚考文献</title> + <para>Saporta, Gilbert, Probabilites, Analyse des + Donnees et Statistique, Editions Technip, Paris, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/principal_component_analysis/princomp.xml b/modules/statistics/help/ja_JP/principal_component_analysis/princomp.xml new file mode 100755 index 000000000..e195fd59c --- /dev/null +++ b/modules/statistics/help/ja_JP/principal_component_analysis/princomp.xml @@ -0,0 +1,135 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="princomp"> + <refnamediv> + <refname>princomp</refname> + <refpurpose>主æˆåˆ†è§£æž</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>[facpr,comprinc,lambda,tsquare] = princomp(x,eco)</synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>x</term> + <listitem> + <para> + <literal>n</literal>è¡Œ<literal>p</literal>列 + (<literal>n</literal>個ã®ç‹¬ç«‹å¤‰æ•°, <literal>p</literal> + 個ã®å¤‰æ•°)ã®å®Ÿæ•°è¡Œåˆ—ã§ã™. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>eco</term> + <listitem> + <para>è«–ç†å€¤, + å°ã•ãªå¤§ãã•ã®ç‰¹ç•°å€¤åˆ†è§£ã‚’å¯èƒ½ã¨ã™ã‚‹ãŸã‚ã«ä½¿ç”¨ã•ã‚Œã¾ã™. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>facpr</term> + <listitem> + <para> + <literal>p</literal>è¡Œ<literal>p</literal>列ã®è¡Œåˆ—. + 主æˆåˆ†ã‚’有ã—ã¾ã™: 相関行列<literal>V</literal>ã®å›ºæœ‰ãƒ™ã‚¯ãƒˆãƒ«. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>comprinc</term> + <listitem> + <para> + <literal>n</literal>è¡Œ<literal>p</literal>列ã®è¡Œåˆ—. + 主æˆåˆ†ã‚’有ã—ã¾ã™.ã“ã®è¡Œåˆ—ã®å„列ã¯,M個ã®ä¸»è»¸ã¸ã®å€‹ã€…ã®ç›´äº¤æŠ•å½±ã§ã™. + ã“ã®åˆ—ã®å„々ã¯, + æ¡ä»¶<literal>u'_i M^(-1) u_i=1</literal>ã®ä¸‹ã§åˆ†æ•£ã‚’最大化ã™ã‚‹ + 変数x1, ...,xpã®ç·šå½¢çµåˆã§ã™. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>lambda</term> + <listitem> + <para> + <literal>p</literal>列ベクトルã§ã™. + <literal>V</literal>ã®å›ºæœ‰å€¤ã‚’有ã—ã¾ã™. + ãŸã ã—,<literal>V</literal>ã¯ç›¸é–¢è¡Œåˆ—ã§ã™. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>tsquare</term> + <listitem> + <para> + <literal>n</literal>列ベクトル. + å„データ点ã«é–¢ã™ã‚‹Hotellingã®T^2統計é‡ã‚’有ã—ã¾ã™. + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯,<literal>n</literal>è¡Œ<literal>p</literal>列㮠+ データ行列<literal>x</literal>㧠+ "主æˆåˆ†è§£æž"ã‚’è¡Œãªã„ã¾ã™. + </para> + <para> + ã“ã®æ‰‹æ³•ã®èƒŒå¾Œã®ã‚¢ã‚¤ãƒ‡ã‚¢ã¯, + n個独立変é‡ã‹ã‚‰ãªã‚‹ã‚¯ãƒ©ã‚¹ã‚¿ã‚’ + よりå°ã•ãªæ¬¡å…ƒã®éƒ¨åˆ†ç©ºé–“ã« + 近似的ãªæ‰‹æ³•ã§è¡¨ã™ã“ã¨ã§ã™. + ã“れを行ã†ãŸã‚ã«, + ã“ã®æ‰‹æ³•ã¯ã‚¯ãƒ©ã‚¹ã‚¿ã‚’部分空間ã«æŠ•å½±ã—ã¾ã™. + k次元投影部分区間ã®é¸æŠžã¯, + 投影ã®è·é›¢ãŒæœ€å°ã®ã‚†ãŒã¿ã‚’有ã™ã‚‹ã‚ˆã†ã«è¡Œã‚ã‚Œã¾ã™: + 投影ã®è·é›¢ã®å¹³æ–¹ãŒæœ€å¤§åŒ–ã•ã‚Œã‚‹ã‚ˆã†ãª + k次元部分空間を探ã—ã¾ã™(実際ã«ã¯æŠ•å½±ã§ã¯è·é›¢ã¯ä¼¸ã°ã™ã“ã¨ã®ã¿ã§ãã¾ã™). + 言ã„æ›ãˆã‚‹ã¨, + 投影ã®k次元部分空間ã¸ã®æŠ•å½±ã®æ…£æ€§ã¯æœ€å¤§åŒ–ã•ã‚Œã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™. + </para> + <para> + 標準化ã•ã‚ŒãŸå¤‰æ•°ã«ã¤ã„ã¦ä¸»æˆåˆ†è§£æžã‚’計算ã™ã‚‹éš›ã«, + <literal>princomp(wcenter(x,1))</literal>ã¾ãŸã¯<link linkend="pca">pca</link>関数を使用ã™ã‚‹ã“ã¨ãŒã§ãã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +a=rand(100,10,'n'); +[facpr,comprinc,lambda,tsquare] = princomp(a); + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="wcenter">wcenter</link> + </member> + <member> + <link linkend="pca">pca</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>å‚考文献</title> + <para>Saporta, Gilbert, Probabilites, Analyse des + Donnees et Statistique, Editions Technip, Paris, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/principal_component_analysis/show_pca.xml b/modules/statistics/help/ja_JP/principal_component_analysis/show_pca.xml new file mode 100755 index 000000000..47a8f5a51 --- /dev/null +++ b/modules/statistics/help/ja_JP/principal_component_analysis/show_pca.xml @@ -0,0 +1,92 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="show_pca"> + <refnamediv> + <refname>show_pca</refname> + <refpurpose>主æˆåˆ†è§£æžã®çµæžœã®å¯è¦–化</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>show_pca(lambda,facpr,N)</synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>lambda</term> + <listitem> + <para> + p x 2 数値行列. + 最åˆã®åˆ—ã¯Vã®å›ºæœ‰å€¤ã¨ãªã‚Šã¾ã™. + ãŸã ã—,V㯠p x p 相関行列ã§ã™. + 2番目ã®åˆ—ã¯å¯¾å¿œã™ã‚‹å›ºæœ‰å€¤ã¨ + 固有値ã®åˆè¨ˆã®æ¯”ã¨ãªã‚Šã¾ã™. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>facpr</term> + <listitem> + <para> + 主æˆåˆ†ã§ã™: + Vã®å›ºæœ‰å€¤. + å„列ã¯<literal>R^p</literal>ã®åŒå¯¾ã® + 固有ベクトルã®è¦ç´ ã§ã™. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>N</term> + <listitem> + <para> 2x1 整数ベクトルã§ã™. + ãã®ä¿‚æ•°ã¯å›ºæœ‰å€¤ã‚’é™é †ã«ä¸¦ã¹ãŸ<literal>p</literal>è¡Œ<literal>p</literal>列㮠+ 相関行列ã®å›ºæœ‰å€¤ã«å¯¾å¿œã™ã‚‹å›ºæœ‰ãƒ™ã‚¯ãƒˆãƒ«ã‚’指ã—ã¾ã™. + <literal>N</literal>ãŒæŒ‡å®šã•ã‚Œãªã„å ´åˆ, + <literal>N=[1 2]</literal>を仮定ã—ã¾ã™. + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯,<link linkend="pca">pca</link>ã®çµæžœã‚’å¯è¦–化ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +a=rand(100,10,'n'); +[lambda,facpr,comprinc] = pca(a); +show_pca(lambda,facpr) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="pca">pca</link> + </member> + <member> + <link linkend="princomp">princomp</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>å‚考文献</title> + <para>Saporta, Gilbert, Probabilites, Analyse des + Donnees et Statistique, Editions Technip, Paris, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/reglin.xml b/modules/statistics/help/ja_JP/reglin.xml new file mode 100755 index 000000000..2c898ab59 --- /dev/null +++ b/modules/statistics/help/ja_JP/reglin.xml @@ -0,0 +1,66 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) INRIA - + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="reglin"> + <refnamediv> + <refname>reglin</refname> + <refpurpose>線形回帰</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>C呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>[a,b,sig]=reglin(x,y)</synopsis> + </refsynopsisdiv> + <refsection> + <title>説明</title> + <para> + 最å°äºŒä¹—解ã¨ã—ã¦å›žå¸°å•é¡Œy=a*x+ bを解ãã¾ã™. + <literal>sig</literal> ã¯æ®‹å·®ã®æ¨™æº–åå·®ã§ã™. + <literal>x</literal> ãŠã‚ˆã³ <literal>y</literal> + ã¯å¤§ãã• <literal>x(p,n)</literal> ãŠã‚ˆã³ <literal>y(q,n)</literal> + ã®è¡Œåˆ—, ãŸã ã—<literal>n</literal>ã¯ã‚µãƒ³ãƒ—ル数,ã§ã™. + </para> + <para> + 推定器 <literal>a</literal> ã¯å¤§ãã• <literal>(q,p)</literal> ã®è¡Œåˆ—, + <literal>b</literal>ã¯å¤§ãã• + <literal>(q,1)</literal>ã®ãƒ™ã‚¯ãƒˆãƒ«ã§ã™. + </para> + <programlisting role=""><![CDATA[ +// simulation of data for a(3,5) and b(3,1) +x=rand(5,100); +aa=testmatrix('magi',5);aa=aa(1:3,:); +bb=[9;10;11] +y=aa*x +bb*ones(1,100)+ 0.1*rand(3,100); +// identification +[a,b,sig]=reglin(x,y); +maxi(abs(aa-a)) +maxi(abs(bb-b)) +// an other example : fitting a polynomial +f=1:100; x=[f.*f; f]; +y= [ 2,3]*x+ 10*ones(f) + 0.1*rand(f); +[a,b]=reglin(x,y) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="pinv">pinv</link> + </member> + <member> + <link linkend="leastsq">leastsq</link> + </member> + <member> + <link linkend="qr">qr</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/regression/CHAPTER b/modules/statistics/help/ja_JP/regression/CHAPTER new file mode 100755 index 000000000..0b0ab4111 --- /dev/null +++ b/modules/statistics/help/ja_JP/regression/CHAPTER @@ -0,0 +1,2 @@ +title = Regression + diff --git a/modules/statistics/help/ja_JP/sampling/CHAPTER b/modules/statistics/help/ja_JP/sampling/CHAPTER new file mode 100755 index 000000000..926da3bc2 --- /dev/null +++ b/modules/statistics/help/ja_JP/sampling/CHAPTER @@ -0,0 +1 @@ +title = Sampling diff --git a/modules/statistics/help/ja_JP/sampling/sample.xml b/modules/statistics/help/ja_JP/sampling/sample.xml new file mode 100755 index 000000000..ab9ac8fba --- /dev/null +++ b/modules/statistics/help/ja_JP/sampling/sample.xml @@ -0,0 +1,96 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="sample"> + <refnamediv> + <refname>sample</refname> + <refpurpose>ç½®æ›ã‚’有ã™ã‚‹æ¨™æœ¬åŒ–</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>s = sample(n,X,orient)</synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>n</term> + <listitem> + <para>æ£ã®æ•´æ•° (標本ã®å¤§ãã•)</para> + </listitem> + </varlistentry> + <varlistentry> + <term>X</term> + <listitem> + <para>行列. 標本ã¯ã“ã®è¡Œåˆ—ã‹ã‚‰å±•é–‹ã•ã‚Œã¾ã™.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>orient</term> + <listitem> + <para>オプションã®ãƒ‘ラメータ. 使用å¯èƒ½ãªå€¤ã¯ 1, 2, 'r' ã¾ãŸã¯ 'c'ã§ã™</para> + </listitem> + </varlistentry> + <varlistentry> + <term>s</term> + <listitem> + <para>標本をå«ã‚€ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯,ベクトル(ã¾ãŸã¯è¡Œåˆ—) nx1を出力ã—ã¾ã™. + ã“ã‚Œã«ã¯,行列Xã‹ã‚‰æŠ½å‡ºã•ã‚ŒãŸç½®æ›ã‚’有ã™ã‚‹ + n個ã®ãƒ©ãƒ³ãƒ€ãƒ ãªæ¨™æœ¬ãŒå«ã¾ã‚Œã¾ã™. + </para> + <para> + s=sample(n,X) (ã¾ãŸã¯ s=sample(n,X,'*')) ã¯, + ãã®å€¤ãŒXã‹ã‚‰ã®n個ã®å€¤ã®ãƒ©ãƒ³ãƒ€ãƒ ãªæ¨™æœ¬ã§ã‚ã‚‹ + ベクトル s ã‚’è¿”ã—ã¾ã™. + </para> + <para> + s=sample(n,X,'r') (ã¾ãŸã¯ç‰ä¾¡ãª s=sample(n,X,1)) + ã¯,size(X,'r')xnã®è¡Œåˆ—ã‚’è¿”ã—ã¾ã™. + ã“ã‚Œã«ã¯,Xã®è¡Œã‹ã‚‰ç½®æ›ä»˜ãã§å±•é–‹ã•ã‚ŒãŸ + nè¡Œã®ãƒ©ãƒ³ãƒ€ãƒ 標本ãŒå«ã¾ã‚Œã¾ã™. + </para> + <para> + s=sample(n,X,'c') (ã¾ãŸã¯ç‰ä¾¡ãª s=sample(n,X,2)) + ã¯,nxsize(X,'c')ã®è¡Œåˆ—ã‚’è¿”ã—ã¾ã™. + ã“ã‚Œã«ã¯,Xã®åˆ—ã‹ã‚‰ç½®æ›ä»˜ãã§å±•é–‹ã•ã‚ŒãŸ + n列ã®ãƒ©ãƒ³ãƒ€ãƒ 標本ãŒå«ã¾ã‚Œã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +X=['a' 'dd' 'arreu'; 'ber' 'car' 'zon'] +s=sample(25,X) +s=sample(25,X,'r') +s=sample(25,X,'c') + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="samplef">samplef</link> + </member> + <member> + <link linkend="samwr">samwr</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/sampling/samplef.xml b/modules/statistics/help/ja_JP/sampling/samplef.xml new file mode 100755 index 000000000..6eb58588e --- /dev/null +++ b/modules/statistics/help/ja_JP/sampling/samplef.xml @@ -0,0 +1,121 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="samplef"> + <refnamediv> + <refname>samplef</refname> + <refpurpose>æ¯é›†å›£ã‹ã‚‰ã®ç½®æ›ã‚’有ã™ã‚‹æ¨™æœ¬åŒ–ãŠã‚ˆã³ + ãã®å€¤ã®é »åº¦. + </refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>s = samplef(n,X,f,orient)</synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>n</term> + <listitem> + <para>æ£ã®æ•´æ•° (標本ã®å¤§ãã•)</para> + </listitem> + </varlistentry> + <varlistentry> + <term>X</term> + <listitem> + <para>行列. 標本ã¯ã“ã®è¡Œåˆ—ã‹ã‚‰å±•é–‹ã•ã‚Œã¾ã™</para> + </listitem> + </varlistentry> + <varlistentry> + <term>f</term> + <listitem> + <para> + Xã¨åŒã˜å¤§ãã•ã®æ£ã®æ•´æ•°. + Xã®å¯¾å¿œã™ã‚‹å€¤ã®é »åº¦ã‚’示ã—ã¾ã™. + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>orient</term> + <listitem> + <para>オプションã®ãƒ‘ラメータ. 利用å¯èƒ½ãªå€¤ã¯ 1, 2, 'r' ã¾ãŸã¯ 'c'ã§ã™</para> + </listitem> + </varlistentry> + <varlistentry> + <term>s</term> + <listitem> + <para>標本をå«ã‚€ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯, é•·ã•nã®ãƒ™ã‚¯ãƒˆãƒ«sを出力ã—ã¾ã™. + ãã®å‡ºåŠ›ã«ã¯, + ベクトル(ã¾ãŸã¯è¡Œåˆ—)Xã‹ã‚‰ç½®æ›ã‚’指定ã—ã¦æŠ½å‡ºã•ã‚ŒãŸ + n個ã®æ¨™æœ¬ãŒå«ã¾ã‚Œã¾ã™. + ãã®å„è¦ç´ ã¯,ベクトルfã®å¯¾å¿œã™ã‚‹å€¤ã«ã‚ˆã‚ŠæŒ‡å®šã•ã‚ŒãŸé »åº¦ã‹ã‚‰ + 計算ã•ã‚Œã¾ã™. + </para> + <para> + s=samplef(n,X,f) (ã¾ãŸã¯ s=samplef(n,X,f,'*')) ã¯, + ãã®å€¤ãŒXã‹ã‚‰æŠ½å‡ºã•ã‚ŒãŸn個ã®æ¨™æœ¬ã¨ãªã‚‹ + ベクトル s ã‚’è¿”ã—ã¾ã™. + å„値ã¯,fã®å¯¾å¿œã™ã‚‹å€¤ã«æ¯”例ã—ãŸæ¨™æœ¬åŒ–確率を有ã—ã¾ã™. + fã¯Xã¨åŒã˜å¤§ãã•ã‚’有ã—ã¾ã™. + </para> + <para> + s=samplef(n,X,f,'r') (ã¾ãŸã¯ç‰ä¾¡ãª, + s=samplef(n,X,f,1)) ã¯,size(X,'r')xnã®è¡Œåˆ—ã‚’è¿”ã—ã¾ã™. + ãã®å‡ºåŠ›ã«ã¯, + Xã‹ã‚‰æŠ½å‡ºã•ã‚ŒãŸnè¡Œã®ãƒ©ãƒ³ãƒ€ãƒ 標本ãŒå«ã¾ã‚Œã¾ã™. + ãã®å„è¡Œã¯,Xã®è¡Œã‹ã‚‰ç½®æ›ä»˜ãã§å±•é–‹ã•ã‚ŒãŸ + fã®å¯¾å¿œã™ã‚‹å€¤ã«æ¯”例ã—ãŸæ¨™æœ¬åŒ–確率を有ã—ã¾ã™. + fã®é•·ã•ã¯,Xã®è¡Œã®æ•°ã«ç‰ã—ã„å¿…è¦ãŒã‚ã‚Šã¾ã™. + </para> + <para> + s=samplef(n,X,f,'c') (ã¾ãŸã¯ç‰ä¾¡ãª, + s=samplef(n,X,f,2)) ã¯,nxsize(X,'c')ã®è¡Œåˆ—ã‚’è¿”ã—ã¾ã™. + ãã®å‡ºåŠ›ã«ã¯, + Xã‹ã‚‰æŠ½å‡ºã•ã‚ŒãŸn列ã®ãƒ©ãƒ³ãƒ€ãƒ 標本ãŒå«ã¾ã‚Œã¾ã™. + ãã®å„列ã¯,Xã®åˆ—ã‹ã‚‰ç½®æ›ä»˜ãã§å±•é–‹ã•ã‚ŒãŸ + fã®å¯¾å¿œã™ã‚‹å€¤ã«æ¯”例ã—ãŸæ¨™æœ¬åŒ–確率を有ã—ã¾ã™. + fã®é•·ã•ã¯,Xã®åˆ—ã®æ•°ã«ç‰ã—ã„å¿…è¦ãŒã‚ã‚Šã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +a=[3 7 9;22 4 2] +f1=[10 1 1 1 1 1] +f2=[1 ; 15] +f3=[10 1 1] +s=samplef(15,a,f1) +s=samplef(15,a,f2,'r') +s=samplef(15,a,f3,'c') + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="sample">sample</link> + </member> + <member> + <link linkend="samwr">samwr</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/sampling/samwr.xml b/modules/statistics/help/ja_JP/sampling/samwr.xml new file mode 100755 index 000000000..a911b4a7b --- /dev/null +++ b/modules/statistics/help/ja_JP/sampling/samwr.xml @@ -0,0 +1,80 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="samwr"> + <refnamediv> + <refname>samwr</refname> + <refpurpose>ç½®æ›ã‚’è¡Œã‚ãªã„標本化</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>s = samwr(sizam,numsamp,X)</synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>sizam</term> + <listitem> + <para>æ•´æ•°. 標本ã®å¤§ãã•. Xã®å¤§ãã•ä»¥ä¸‹ã¨ã™ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>numsamp</term> + <listitem> + <para>æ•´æ•°. 抽出ã•ã‚Œã‚‹æ¨™æœ¬ã®æ•°.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>X</term> + <listitem> + <para>列ベクトル. æ¯é›†å›£ã‚’有ã—ã¾ã™.</para> + </listitem> + </varlistentry> + <varlistentry> + <term>s</term> + <listitem> + <para> + sizsam x numsampã®è¡Œåˆ—. + å„(列)ãŒåˆ—ベクトルXã‹ã‚‰ç½®æ›ã‚’ã›ãšã« + siznam (size(X,'*'))回ã®æŠ½å‡ºã‚’è¡Œã£ãŸ + numsamp 組ã®ãƒ©ãƒ³ãƒ€ãƒ 標本を有ã—ã¾ã™. + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + 列ベクトルã‹ã‚‰ç½®æ›ã‚’è¡Œã‚ãšã«æ¨™æœ¬ã‚’出力ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +a=[0.33 1.24 2.1 1.03] +s=samwr(4,12,a) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="sample">sample</link> + </member> + <member> + <link linkend="samplef">samplef</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/ja_JP/summaries/CHAPTER b/modules/statistics/help/ja_JP/summaries/CHAPTER new file mode 100755 index 000000000..3185a34df --- /dev/null +++ b/modules/statistics/help/ja_JP/summaries/CHAPTER @@ -0,0 +1 @@ +title = Summaries diff --git a/modules/statistics/help/ja_JP/summaries/tabul.xml b/modules/statistics/help/ja_JP/summaries/tabul.xml new file mode 100755 index 000000000..7cc25767e --- /dev/null +++ b/modules/statistics/help/ja_JP/summaries/tabul.xml @@ -0,0 +1,133 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2000 - INRIA - Carlos Klimann + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="tabul"> + <refnamediv> + <refname>tabul</refname> + <refpurpose>行列ã¾ãŸã¯ãƒ™ã‚¯ãƒˆãƒ«ã®å€¤ã®é »åº¦</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>呼ã³å‡ºã—æ‰‹é †</title> + <synopsis>[m]=tabul(X [,order])</synopsis> + </refsynopsisdiv> + <refsection> + <title>パラメータ</title> + <variablelist> + <varlistentry> + <term>X</term> + <listitem> + <para>ベクトルã¾ãŸã¯è¡Œåˆ— (実数ã¾ãŸã¯è¤‡ç´ æ•°ã¾ãŸã¯æ–‡å—列)</para> + </listitem> + </varlistentry> + <varlistentry> + <term>order</term> + <listitem> + <para>(オプションã®) æ–‡å— "d" ã¾ãŸã¯ "i" (デフォルト値: "d")を指定ã—ã¾ã™</para> + </listitem> + </varlistentry> + <varlistentry> + <term>m</term> + <listitem> + <para> + 列行列 (<literal>X</literal> ã¯æ•°å€¤ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—) + ã¾ãŸã¯ãƒ¡ãƒ³ãƒãƒ¼2ã¤ã‚’有ã™ã‚‹ãƒªã‚¹ãƒˆ + (<literal>X</literal> ãŒæ–‡å—列ベクトルã¾ãŸã¯è¡Œåˆ—). + </para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>説明</title> + <para> + ã“ã®é–¢æ•°ã¯,数値ã¾ãŸã¯æ–‡å—列ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—<literal>X</literal>ã® + 値ã®é »åº¦ã‚’計算ã—ã¾ã™ : + </para> + <variablelist> + <varlistentry> + <term>X ãŒæ•°å€¤ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—ã®å ´åˆ</term> + <listitem> + <para> + <literal>m</literal> ã¯2列ã®è¡Œåˆ—ã§, + 最åˆã®åˆ—ã«ã¯<literal>X</literal>ã®ç•°ãªã‚‹å€¤, + ä»–ã®åˆ—ã«ã¯ã“れらã®å€¤ã®é »åº¦ãŒå«ã¾ã‚Œã¾ã™ + (m(i,2)ã¯m(i,1)ã®å‡ºç¾é »åº¦ã§ã™). + </para> + </listitem> + </varlistentry> + <varlistentry> + <term>X ãŒæ–‡å—列ã®ãƒ™ã‚¯ãƒˆãƒ«ã¾ãŸã¯è¡Œåˆ—ã®å ´åˆ</term> + <listitem> + <para> + <literal>m</literal> ã¯ãƒªã‚¹ãƒˆã§, + ãã®æœ€åˆã®ãƒ¡ãƒ³ãƒãƒ¼ã¯ + <literal>X</literal>ã®ç•°ãªã‚‹å€¤ã‹ã‚‰æ§‹æˆã•ã‚Œã‚‹ + æ–‡å—列(列)ベクトル, + 2番目ã®ãƒ¡ãƒ³ãƒãƒ¼ã¯ + ãã®è¦ç´ ãŒã“れらã®å€¤ã®é »åº¦ã¨ãªã‚‹(列)ベクトルã§ã™ + (m(i)(2)ã¯æ–‡å—列m(i)(1)ã®å‡ºç¾é »åº¦ã§ã™). + </para> + </listitem> + </varlistentry> + </variablelist> + <para> + オプションã®ãƒ‘ラメータ<literal>order</literal> ã¯, "d" ã¾ãŸã¯ "i" ã¨ã™ã‚‹ + å¿…è¦ãŒã‚ã‚Š (デフォルト㯠+ order="d"), Xã®ç•°ãªã‚‹å€¤ãŒã‚½ãƒ¼ãƒˆã•ã‚Œã‚‹é †åº(é™é †(d)ã¾ãŸã¯æ˜‡é †(i))を指定ã—ã¾ã™. + </para> + </refsection> + <refsection> + <title>例</title> + <programlisting role="example"><![CDATA[ +// 最åˆã®ä¾‹ +X = [2 8 0 3 7 6 8 7 9 1 6 7 7 2 5 2 2 2 9 7] +m1 = tabul(X) +m2 = tabul(X, "i") +// 二番目ã®ä¾‹ +X = ["ba" "baba" "a" "A" "AA" "a" "aa" "aa" "aa" "A" "ba"] +m = tabul(X,"i") +// 3番目ã®ä¾‹ +n = 50000; +X = grand(n,1,"bin",70,0.5); +m = tabul(X,"i"); +clf() +plot2d3(m(:,1), m(:,2)/n) +xtitle("empirical probabilities of B(70,0.5)") +// 最後ã®ä¾‹ : scilabライセンスã«ãŠã‘ã‚‹å˜èªžã®é »åº¦ã‚’計算 +text = read(SCI+"/license.txt",-1,1,"(A)"); // scilabライセンスをèªã‚€ +bigstr = strcat(text," "); // å…¨ã¦ã®è¡Œã‚’一ã¤ã®å¤§ããªæ–‡å—列ã«ã™ã‚‹ +sep = [" " "," "." ";" "*" ":" "-" """"]; // å˜èªžã‚»ãƒ‘レータ +words = tokens(bigstr, sep); // 大ããªæ–‡å—列をå˜èªžã«åˆ†å‰² +m = tabul(words); // å„å˜èªžã®å‡ºç¾é »åº¦ã‚’計算 +[occ , p] = gsort(m(2)); // é™é †ã«é »åº¦ã‚’ソート +results = [m(1)(p) string(occ)] // çµæžœã‚’表示 + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>å‚ç…§</title> + <simplelist type="inline"> + <member> + <link linkend="dsearch">dsearch</link> + </member> + <member> + <link linkend="histplot">histplot</link> + </member> + </simplelist> + </refsection> + <refsection> + <title>å‚考文献</title> + <para> + Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, + fifth edition, J.Wiley & Sons, 1990. + </para> + </refsection> +</refentry> diff --git a/modules/statistics/help/mml/binomial_equation_1_en_US.mml b/modules/statistics/help/mml/binomial_equation_1_en_US.mml new file mode 100755 index 000000000..3ec3380bb --- /dev/null +++ b/modules/statistics/help/mml/binomial_equation_1_en_US.mml @@ -0,0 +1,95 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE math:math PUBLIC "-//OpenOffice.org//DTD Modified W3C MathML 1.01//EN" "math.dtd"> +<math:math xmlns:math="http://www.w3.org/1998/Math/MathML"> + <math:semantics> + <math:mrow> + <math:mi math:fontstyle="italic">pr</math:mi> + <math:mrow> + <math:mrow> + <math:mo math:stretchy="false">(</math:mo> + <math:mrow> + <math:mi>k</math:mi> + <math:mo math:stretchy="false">+</math:mo> + <math:mn>1</math:mn> + </math:mrow> + <math:mo math:stretchy="false">)</math:mo> + </math:mrow> + <math:mo math:stretchy="false">=</math:mo> + <math:mrow> + <math:mrow> + <math:mfenced math:open="î‚ž" math:close="î‚Ÿ"> + <math:mtable> + <math:mtr> + <math:mi>n</math:mi> + </math:mtr> + <math:mtr> + <math:mi>k</math:mi> + </math:mtr> + </math:mtable> + </math:mfenced> + <math:mo math:stretchy="false">â‹…</math:mo> + <math:msup> + <math:mi>p</math:mi> + <math:mi>k</math:mi> + </math:msup> + </math:mrow> + <math:mo math:stretchy="false">â‹…</math:mo> + <math:msup> + <math:mrow> + <math:mo math:stretchy="false">(</math:mo> + <math:mrow> + <math:mn>1</math:mn> + <math:mo math:stretchy="false">−</math:mo> + <math:mi>p</math:mi> + </math:mrow> + <math:mo math:stretchy="false">)</math:mo> + </math:mrow> + <math:mrow> + <math:mi>n</math:mi> + <math:mo math:stretchy="false">−</math:mo> + <math:mi>k</math:mi> + </math:mrow> + </math:msup> + </math:mrow> + </math:mrow> + <math:mtext> with </math:mtext> + <math:mrow> + <math:mfenced math:open="î‚ž" math:close="î‚Ÿ"> + <math:mtable> + <math:mtr> + <math:mi>n</math:mi> + </math:mtr> + <math:mtr> + <math:mi>k</math:mi> + </math:mtr> + </math:mtable> + </math:mfenced> + <math:mo math:stretchy="false">=</math:mo> + <math:mfrac> + <math:mrow> + <math:mi>n</math:mi> + <math:mi>!</math:mi> + </math:mrow> + <math:mrow> + <math:mi>k</math:mi> + <math:mrow> + <math:mi>!</math:mi> + <math:mo math:stretchy="false">â‹…</math:mo> + <math:mrow> + <math:mo math:stretchy="false">(</math:mo> + <math:mrow> + <math:mi>n</math:mi> + <math:mo math:stretchy="false">−</math:mo> + <math:mi>k</math:mi> + </math:mrow> + <math:mo math:stretchy="false">)</math:mo> + </math:mrow> + </math:mrow> + <math:mi>!</math:mi> + </math:mrow> + </math:mfrac> + </math:mrow> + </math:mrow> + <math:annotation math:encoding="StarMath 5.0">pr(k+1) = left ( stack{ n # k } right ) cdot p^k cdot (1 - p)^{n-k} " with " left ( stack { n # k } right ) = {{n!} over {k! cdot (n-k)!}}</math:annotation> + </math:semantics> +</math:math>
\ No newline at end of file diff --git a/modules/statistics/help/mml/binomial_equation_1_fr_FR.mml b/modules/statistics/help/mml/binomial_equation_1_fr_FR.mml new file mode 100755 index 000000000..c30a2620d --- /dev/null +++ b/modules/statistics/help/mml/binomial_equation_1_fr_FR.mml @@ -0,0 +1,95 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE math:math PUBLIC "-//OpenOffice.org//DTD Modified W3C MathML 1.01//EN" "math.dtd"> +<math:math xmlns:math="http://www.w3.org/1998/Math/MathML"> + <math:semantics> + <math:mrow> + <math:mi math:fontstyle="italic">pr</math:mi> + <math:mrow> + <math:mrow> + <math:mo math:stretchy="false">(</math:mo> + <math:mrow> + <math:mi>k</math:mi> + <math:mo math:stretchy="false">+</math:mo> + <math:mn>1</math:mn> + </math:mrow> + <math:mo math:stretchy="false">)</math:mo> + </math:mrow> + <math:mo math:stretchy="false">=</math:mo> + <math:mrow> + <math:mrow> + <math:mfenced math:open="" math:close=""> + <math:mtable> + <math:mtr> + <math:mi>n</math:mi> + </math:mtr> + <math:mtr> + <math:mi>k</math:mi> + </math:mtr> + </math:mtable> + </math:mfenced> + <math:mo math:stretchy="false">⋅</math:mo> + <math:msup> + <math:mi>p</math:mi> + <math:mi>k</math:mi> + </math:msup> + </math:mrow> + <math:mo math:stretchy="false">⋅</math:mo> + <math:msup> + <math:mrow> + <math:mo math:stretchy="false">(</math:mo> + <math:mrow> + <math:mn>1</math:mn> + <math:mo math:stretchy="false">−</math:mo> + <math:mi>p</math:mi> + </math:mrow> + <math:mo math:stretchy="false">)</math:mo> + </math:mrow> + <math:mrow> + <math:mi>n</math:mi> + <math:mo math:stretchy="false">−</math:mo> + <math:mi>k</math:mi> + </math:mrow> + </math:msup> + </math:mrow> + </math:mrow> + <math:mtext> avec </math:mtext> + <math:mrow> + <math:mfenced math:open="" math:close=""> + <math:mtable> + <math:mtr> + <math:mi>n</math:mi> + </math:mtr> + <math:mtr> + <math:mi>k</math:mi> + </math:mtr> + </math:mtable> + </math:mfenced> + <math:mo math:stretchy="false">=</math:mo> + <math:mfrac> + <math:mrow> + <math:mi>n</math:mi> + <math:mi>!</math:mi> + </math:mrow> + <math:mrow> + <math:mi>k</math:mi> + <math:mrow> + <math:mi>!</math:mi> + <math:mo math:stretchy="false">⋅</math:mo> + <math:mrow> + <math:mo math:stretchy="false">(</math:mo> + <math:mrow> + <math:mi>n</math:mi> + <math:mo math:stretchy="false">−</math:mo> + <math:mi>k</math:mi> + </math:mrow> + <math:mo math:stretchy="false">)</math:mo> + </math:mrow> + </math:mrow> + <math:mi>!</math:mi> + </math:mrow> + </math:mfrac> + </math:mrow> + </math:mrow> + <math:annotation math:encoding="StarMath 5.0">pr(k+1) = left ( stack{ n # k } right ) cdot p^k cdot (1 - p)^{n-k} " avec " left ( stack { n # k } right ) = {{n!} over {k! cdot (n-k)!}}</math:annotation> + </math:semantics> +</math:math>
\ No newline at end of file diff --git a/modules/statistics/help/mml/binomial_equation_1_ru_RU.mml b/modules/statistics/help/mml/binomial_equation_1_ru_RU.mml new file mode 100755 index 000000000..b13cc9894 --- /dev/null +++ b/modules/statistics/help/mml/binomial_equation_1_ru_RU.mml @@ -0,0 +1,95 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE math:math PUBLIC "-//OpenOffice.org//DTD Modified W3C MathML 1.01//EN" "math.dtd"> +<math:math xmlns:math="http://www.w3.org/1998/Math/MathML"> + <math:semantics> + <math:mrow> + <math:mi math:fontstyle="italic">pr</math:mi> + <math:mrow> + <math:mrow> + <math:mo math:stretchy="false">(</math:mo> + <math:mrow> + <math:mi>k</math:mi> + <math:mo math:stretchy="false">+</math:mo> + <math:mn>1</math:mn> + </math:mrow> + <math:mo math:stretchy="false">)</math:mo> + </math:mrow> + <math:mo math:stretchy="false">=</math:mo> + <math:mrow> + <math:mrow> + <math:mfenced math:open="" math:close=""> + <math:mtable> + <math:mtr> + <math:mi>n</math:mi> + </math:mtr> + <math:mtr> + <math:mi>k</math:mi> + </math:mtr> + </math:mtable> + </math:mfenced> + <math:mo math:stretchy="false">⋅</math:mo> + <math:msup> + <math:mi>p</math:mi> + <math:mi>k</math:mi> + </math:msup> + </math:mrow> + <math:mo math:stretchy="false">⋅</math:mo> + <math:msup> + <math:mrow> + <math:mo math:stretchy="false">(</math:mo> + <math:mrow> + <math:mn>1</math:mn> + <math:mo math:stretchy="false">−</math:mo> + <math:mi>p</math:mi> + </math:mrow> + <math:mo math:stretchy="false">)</math:mo> + </math:mrow> + <math:mrow> + <math:mi>n</math:mi> + <math:mo math:stretchy="false">−</math:mo> + <math:mi>k</math:mi> + </math:mrow> + </math:msup> + </math:mrow> + </math:mrow> + <math:mtext> где </math:mtext> + <math:mrow> + <math:mfenced math:open="" math:close=""> + <math:mtable> + <math:mtr> + <math:mi>n</math:mi> + </math:mtr> + <math:mtr> + <math:mi>k</math:mi> + </math:mtr> + </math:mtable> + </math:mfenced> + <math:mo math:stretchy="false">=</math:mo> + <math:mfrac> + <math:mrow> + <math:mi>n</math:mi> + <math:mi>!</math:mi> + </math:mrow> + <math:mrow> + <math:mi>k</math:mi> + <math:mrow> + <math:mi>!</math:mi> + <math:mo math:stretchy="false">⋅</math:mo> + <math:mrow> + <math:mo math:stretchy="false">(</math:mo> + <math:mrow> + <math:mi>n</math:mi> + <math:mo math:stretchy="false">−</math:mo> + <math:mi>k</math:mi> + </math:mrow> + <math:mo math:stretchy="false">)</math:mo> + </math:mrow> + </math:mrow> + <math:mi>!</math:mi> + </math:mrow> + </math:mfrac> + </math:mrow> + </math:mrow> + <math:annotation math:encoding="StarMath 5.0">pr(k+1) = left ( stack{ n # k } right ) cdot p^k cdot (1 - p)^{n-k} " где " left ( stack { n # k } right ) = {{n!} over {k! cdot (n-k)!}}</math:annotation> + </math:semantics> +</math:math>
\ No newline at end of file diff --git a/modules/statistics/help/pt_BR/addchapter.sce b/modules/statistics/help/pt_BR/addchapter.sce new file mode 100755 index 000000000..2289d1c1b --- /dev/null +++ b/modules/statistics/help/pt_BR/addchapter.sce @@ -0,0 +1,11 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2009 - DIGITEO +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + +add_help_chapter("EstatÃstica",SCI+"/modules/statistics/help/pt_BR",%T); + diff --git a/modules/statistics/help/pt_BR/cdf/binomial.xml b/modules/statistics/help/pt_BR/cdf/binomial.xml new file mode 100755 index 000000000..b5d1c8ea2 --- /dev/null +++ b/modules/statistics/help/pt_BR/cdf/binomial.xml @@ -0,0 +1,105 @@ +<?xml version="1.0" encoding="ISO-8859-1"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008 - INRIA + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns4="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="binomial" xml:lang="en"> + <refnamediv> + <refname>binomial</refname> + <refpurpose>probabilidades de distribuição binomial</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>Seqüência de Chamamento</title> + <synopsis>pr=binomial(p,n)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Parâmetros</title> + <variablelist> + <varlistentry> + <term>pr</term> + <listitem> + <para>vetor linha com n+1 componentes </para> + </listitem> + </varlistentry> + <varlistentry> + <term>p</term> + <listitem> + <para>número real em [0,1] </para> + </listitem> + </varlistentry> + <varlistentry> + <term>n</term> + <listitem> + <para>um inteiro >= 1</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>Descrição</title> + <para> + <literal>pr=binomial(p,n)</literal> retorna o vetor de probabilidade + binomial, i.e. <literal>pr(k+1)</literal> é a probabilidade de + <literal>k</literal> successos em <literal>n</literal> tentativas + independentes de Bernoulli com probabilidade de sucesso + <literal>p</literal>. Em outras palavras : <literal>pr(k+1) = + probability(X=k) + </literal> + ,com X uma variável aleatória, segundo a + distribuição B(n,p) , e numericamente : + </para> + <programlisting><![CDATA[ + / n \ k n-k / n \ n! + pr(k+1) = | | p (1-p) com | | = --------- + \ k / \ k / k! (n-k)! + ]]></programlisting> + </refsection> + <refsection> + <title>Exemplos</title> + <programlisting role="example"><![CDATA[ +// primeiro exemplo +n=10;p=0.3; clf(); plot2d3(0:n,binomial(p,n)); + +// segundo exemplo +n=50;p=0.4; +mea=n*p; sigma=sqrt(n*p*(1-p)); +x=( (0:n)-mea )/sigma; +clf() +plot2d(x, sigma*binomial(p,n)); +deff('y=Gauss(x)','y=1/sqrt(2*%pi)*exp(-(x.^2)/2)') +plot2d(x, Gauss(x), style=2); + +// pela fórmula binomial (cuidado, se n for grande) +function pr=binomial2(p,n) +x=poly(0,'x');pr=coeff((1-p+x)^n).*horner(x^(0:n),p); +endfunction +p=1/3;n=5; +binomial(p,n)-binomial2(p,n) + +// pela função gama: gamma(n+1)=n! (cuidado, se n for grande) +p=1/3;n=5; +Cnks=gamma(n+1)./(gamma(1:n+1).*gamma(n+1:-1:1)); +x=poly(0,'x'); +pr=Cnks.*horner(x.^(0:n).*(1-x)^(n:-1:0),p); +pr-binomial(p,n) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>Ver Também</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="grand">grand</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/help/ru_RU/addchapter.sce b/modules/statistics/help/ru_RU/addchapter.sce new file mode 100755 index 000000000..fef2e7704 --- /dev/null +++ b/modules/statistics/help/ru_RU/addchapter.sce @@ -0,0 +1,11 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2009 - DIGITEO +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + +add_help_chapter("Statistics",SCI+"/modules/statistics/help/ru_RU",%T); + diff --git a/modules/statistics/help/ru_RU/cdf/binomial.xml b/modules/statistics/help/ru_RU/cdf/binomial.xml new file mode 100755 index 000000000..5dcb143cf --- /dev/null +++ b/modules/statistics/help/ru_RU/cdf/binomial.xml @@ -0,0 +1,99 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008 - INRIA + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> +<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="binomial" xml:lang="ru"> + <refnamediv> + <refname>binomial</refname> + <refpurpose>вероÑтноÑти по биномиальному раÑпределению</refpurpose> + </refnamediv> + <refsynopsisdiv> + <title>ПоÑледовательноÑÑ‚ÑŒ вызова</title> + <synopsis>pr=binomial(p,n)</synopsis> + </refsynopsisdiv> + <refsection> + <title>Ðргументы</title> + <variablelist> + <varlistentry> + <term>pr</term> + <listitem> + <para>вектор-Ñтрока Ñ ÐºÐ¾Ð»Ð¸Ñ‡ÐµÑтвом Ñлементов n+1</para> + </listitem> + </varlistentry> + <varlistentry> + <term>p</term> + <listitem> + <para>вещеÑтвенное чиÑло в диапазоне [0,1]</para> + </listitem> + </varlistentry> + <varlistentry> + <term>n</term> + <listitem> + <para>целое чиÑло >= 1</para> + </listitem> + </varlistentry> + </variablelist> + </refsection> + <refsection> + <title>ОпиÑание</title> + <para> + <literal>pr=binomial(p,n)</literal> возвращает вектор вероÑтноÑти по биномиальному раÑпределению, Ñ‚. е. <literal>pr(k+1)</literal> равно вероÑтноÑти <literal>k</literal> "уÑпехов" в <literal>n</literal> незавиÑимых ÑкÑпериментах Ñ Ð²ÐµÑ€Ð¾ÑтноÑтью "уÑпеха" в каждом из них <literal>p</literal>. Другими Ñловами: <literal>pr(k+1) = вероÑтноÑти (X=k)</literal>, где X - Ñлучайное значение по раÑпределению B(n,p), и чиÑленно: + </para> + <informalequation> + <mediaobject> + <imageobject> + <imagedata align="center" fileref="../../mml/binomial_equation_1_ru_RU.mml"/> + </imageobject> + </mediaobject> + </informalequation> + </refsection> + <refsection> + <title>Примеры</title> + <programlisting role="example"><![CDATA[ +// первый пример +n=10;p=0.3; clf(); plot2d3(0:n,binomial(p,n)); + +// второй пример +n=50;p=0.4; +mea=n*p; sigma=sqrt(n*p*(1-p)); +x=( (0:n)-mea )/sigma; +clf() +plot2d(x, sigma*binomial(p,n)); +deff('y=Gauss(x)','y=1/sqrt(2*%pi)*exp(-(x.^2)/2)') +plot2d(x, Gauss(x), style=2); + +// по формуле бинома (ОÑторожно, еÑли n велико) +function pr=binomial2(p,n) +x=poly(0,'x');pr=coeff((1-p+x)^n).*horner(x^(0:n),p); +endfunction +p=1/3;n=5; +binomial(p,n)-binomial2(p,n) + +// по Гамма-функции: gamma(n+1)=n! (ОÑторожно, еÑли n велико) +p=1/3;n=5; +Cnks=gamma(n+1)./(gamma(1:n+1).*gamma(n+1:-1:1)); +x=poly(0,'x'); +pr=Cnks.*horner(x.^(0:n).*(1-x)^(n:-1:0),p); +pr-binomial(p,n) + ]]></programlisting> + </refsection> + <refsection role="see also"> + <title>Смотрите также</title> + <simplelist type="inline"> + <member> + <link linkend="cdfbin">cdfbin</link> + </member> + <member> + <link linkend="grand">grand</link> + </member> + </simplelist> + </refsection> +</refentry> diff --git a/modules/statistics/includes/dynlib_statistics.h b/modules/statistics/includes/dynlib_statistics.h new file mode 100755 index 000000000..ed46657bd --- /dev/null +++ b/modules/statistics/includes/dynlib_statistics.h @@ -0,0 +1,29 @@ +/* +* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +* Copyright (C) DIGITEO - 2009 - Allan CORNET +* +* This file must be used under the terms of the CeCILL. +* This source file is licensed as described in the file COPYING, which +* you should have received as part of this distribution. The terms +* are also available at +* http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +* +*/ + +/*--------------------------------------------------------------------------*/ +#ifndef __DYNLIB_STATISTICS_H__ +#define __DYNLIB_STATISTICS_H__ + +#ifdef _MSC_VER +#ifdef STATISTICS_EXPORTS +#define STATISTICS_IMPEXP __declspec(dllexport) +#else +#define STATISTICS_IMPEXP __declspec(dllimport) +#endif +#else +#define STATISTICS_IMPEXP +#endif + +#endif /* __DYNLIB_STATISTICS_H__ */ +/*--------------------------------------------------------------------------*/ + diff --git a/modules/statistics/includes/gw_statistics.h b/modules/statistics/includes/gw_statistics.h new file mode 100755 index 000000000..4afaf97be --- /dev/null +++ b/modules/statistics/includes/gw_statistics.h @@ -0,0 +1,34 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Allan CORNET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ +/*--------------------------------------------------------------------------*/ +#ifndef __GW_STATISTICS__ +#define __GW_STATISTICS__ +/*--------------------------------------------------------------------------*/ +#include "dynlib_statistics.h" +/*--------------------------------------------------------------------------*/ +STATISTICS_IMPEXP int gw_statistics(void); +/*--------------------------------------------------------------------------*/ +STATISTICS_IMPEXP int cdfbetI(char* fname, unsigned long l); +STATISTICS_IMPEXP int cdfbinI(char* fname, unsigned long l); +STATISTICS_IMPEXP int cdfchiI(char* fname, unsigned long l); +STATISTICS_IMPEXP int cdfchnI(char* fname, unsigned long l); +STATISTICS_IMPEXP int cdffI(char* fname, unsigned long l); +STATISTICS_IMPEXP int cdffncI(char* fname, unsigned long l); +STATISTICS_IMPEXP int cdfgamI(char* fname, unsigned long l); +STATISTICS_IMPEXP int cdfnbnI(char* fname, unsigned long l); +STATISTICS_IMPEXP int cdfnorI(char* fname, unsigned long l); +STATISTICS_IMPEXP int cdfpoiI(char* fname, unsigned long l); +STATISTICS_IMPEXP int cdftI(char* fname, unsigned long l); +/*--------------------------------------------------------------------------*/ +#endif /* __GW_STATISTICS__ */ +/*--------------------------------------------------------------------------*/ + diff --git a/modules/statistics/includes/ipmpar1.h b/modules/statistics/includes/ipmpar1.h new file mode 100755 index 000000000..d8945c109 --- /dev/null +++ b/modules/statistics/includes/ipmpar1.h @@ -0,0 +1,26 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2007 - INRIA - Sylvestre LEDRU + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ +/*--------------------------------------------------------------------------*/ +#ifndef __IPMPAR1_H__ +#define __IPMPAR1_H__ + +#include "dynlib_statistics.h" + +#include "machine.h" + +/** + * TODO : add comment + * @return + */ +STATISTICS_IMPEXP int C2F(largestint)(void); + +#endif /* __IPMPAR1_H__ */ diff --git a/modules/statistics/libscistatistics-algo.la b/modules/statistics/libscistatistics-algo.la new file mode 100755 index 000000000..202c9a6a5 --- /dev/null +++ b/modules/statistics/libscistatistics-algo.la @@ -0,0 +1,41 @@ +# libscistatistics-algo.la - a libtool library file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# The name that we can dlopen(3). +dlname='' + +# Names of this library. +library_names='' + +# The name of the static archive. +old_library='libscistatistics-algo.a' + +# Linker flags that can not go in dependency_libs. +inherited_linker_flags='' + +# Libraries that this one depends upon. +dependency_libs=' -lpthread -ldl -lcurses -lm' + +# Names of additional weak libraries provided by this library +weak_library_names='' + +# Version information for libscistatistics-algo. +current= +age= +revision= + +# Is this an already installed library? +installed=no + +# Should we warn about portability when linking against -modules? +shouldnotlink=no + +# Files to dlopen/dlpreopen +dlopen='' +dlpreopen='' + +# Directory that this library needs to be installed in: +libdir='' diff --git a/modules/statistics/libscistatistics.la b/modules/statistics/libscistatistics.la new file mode 100755 index 000000000..3d1af7630 --- /dev/null +++ b/modules/statistics/libscistatistics.la @@ -0,0 +1,41 @@ +# libscistatistics.la - a libtool library file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# The name that we can dlopen(3). +dlname='libscistatistics.so.5' + +# Names of this library. +library_names='libscistatistics.so.5.5.2 libscistatistics.so.5 libscistatistics.so' + +# The name of the static archive. +old_library='' + +# Linker flags that can not go in dependency_libs. +inherited_linker_flags='' + +# Libraries that this one depends upon. +dependency_libs=' -lpthread -ldl -lcurses -lm' + +# Names of additional weak libraries provided by this library +weak_library_names='' + +# Version information for libscistatistics. +current=10 +age=5 +revision=2 + +# Is this an already installed library? +installed=no + +# Should we warn about portability when linking against -modules? +shouldnotlink=no + +# Files to dlopen/dlpreopen +dlopen='' +dlpreopen='' + +# Directory that this library needs to be installed in: +libdir='/usr/local/lib/scilab' diff --git a/modules/statistics/license.txt b/modules/statistics/license.txt new file mode 100755 index 000000000..885b8e0f3 --- /dev/null +++ b/modules/statistics/license.txt @@ -0,0 +1,13 @@ +Copyright: +Copyright (c) 2008 - DIGITEO +Copyright (c) 1989-2008 - INRIA +Copyright (c) 1989-2007 - ENPC +Copyright (c) Bruno Pincon +Copyright (c) Jean-Sebastien Giet + +License: +This module must be used under the terms of the CeCILL. +This module file is licensed as described in the file COPYING, which +you should have received as part of this distribution. The terms +are also available at +http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt diff --git a/modules/statistics/locales/ca_ES.po b/modules/statistics/locales/ca_ES.po new file mode 100755 index 000000000..5c84f9790 --- /dev/null +++ b/modules/statistics/locales/ca_ES.po @@ -0,0 +1,606 @@ +# Catalan translation for scilab +# Copyright (c) 2009 Rosetta Contributors and Canonical Ltd 2009 +# This file is distributed under the same license as the scilab package. +# FIRST AUTHOR <EMAIL@ADDRESS>, 2009. +# +msgid "" +msgstr "" +"Project-Id-Version: scilab\n" +"Report-Msgid-Bugs-To: <localization@lists.scilab.org>\n" +"POT-Creation-Date: 2013-04-16 17:44+0100\n" +"PO-Revision-Date: 2012-04-19 17:56+0000\n" +"Last-Translator: Marc Coll Carrillo <Unknown>\n" +"Language-Team: Catalan <ca@li.org>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" +"X-Generator: Launchpad (build 17413)\n" +"Language: ca\n" + +msgid "X,Y,A and B" +msgstr "X,Y,A i B" + +msgid "A,B,P and Q" +msgstr "A,B,P i Q" + +msgid "B,P,Q,X and Y" +msgstr "B,P,Q,X i Y" + +msgid "P,Q,X,Y and A" +msgstr "P,Q,X,Y i A" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n" +msgstr "" +"%s: L'argument d'entrada #%d té un valor incorrecte: Ha de ser '%s', '%s', " +"'%s' o '%s'.\n" + +msgid "S,Xn,Pr and Ompr" +msgstr "S,Xn,Pr i Ompr" + +msgid "Xn,Pr,Ompr,P and Q" +msgstr "Xn,Pr,Ompr,P i Q" + +msgid "Pr,OMPr,P,Q and S" +msgstr "Pr,OMPr,P,Q i S" + +msgid "P,Q,S and Xn" +msgstr "P,Q,S i Xn" + +#, c-format +msgid "" +"%s: Warning: using non integer values for argument #%d may lead to incorrect " +"results.\n" +msgstr "" + +msgid "X and Df" +msgstr "X i Df" + +msgid "Df, P and Q" +msgstr "Df, P i Q" + +msgid "P,Q and X" +msgstr "P,Q i X" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s' or '%s' expected.\n" +msgstr "" +"%s: L'argument d'entrada #%d té un valor incorrecte: Ha de ser '%s', '%s' o " +"'%s'.\n" + +msgid "cdfchi: Error in cumgam\n" +msgstr "cdfchi: Error al cumgam\n" + +msgid "X,Df and Pnonc" +msgstr "X,Df i Pnonc" + +msgid "Df,Pnonc,P and Q" +msgstr "Df,Pnonc,P i Q" + +msgid "Pnonc,P,Q and X" +msgstr "Pnonc,P,Q i X" + +msgid "P,Q,X and Df" +msgstr "P,Q,X i Df" + +msgid "F,Dfn and Dfd" +msgstr "F,Dfn i Dfd" + +msgid "Dfn,Dfd,P and Q" +msgstr "Dfn,Dfd,P i Q" + +msgid "Dfd,P,Q and F" +msgstr "Dfd,P,Q i F" + +msgid "P,Q,F and Dfn" +msgstr "P,Q,F i Dfn" + +msgid "F,Dfn,Dfd and Pnonc" +msgstr "F,Dfn,Dfd i Pnonc" + +msgid "Dfn,Dfd,Pnonc,P and Q" +msgstr "Dfn,Dfd,Pnonc,P i Q" + +msgid "Dfd,Pnonc,P,Q and F" +msgstr "Dfd,Pnonc,P,Q i F" + +msgid "Pnonc,P,Q,F and Dfn" +msgstr "Pnonc,P,Q,F i Dfn" + +msgid "P,Q,F,Dfn and Dfd" +msgstr "P,Q,F,Dfn i Dfd" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', '%s' or '%s' " +"expected.\n" +msgstr "" +"%s: L'argument d'entrada #%d té un valor incorrecte: Ha de ser '%s', '%s', " +"'%s', '%s' o '%s'.\n" + +msgid "X,Shape and Rate" +msgstr "" + +msgid "Shape,Rate,P and Q" +msgstr "" + +msgid "Rate,P,Q and X" +msgstr "" + +msgid "P,Q,X and Shape" +msgstr "P,Q,X i Forma" + +msgid "S,XN,PR and OMPR" +msgstr "S,XN,PR i OMPR" + +msgid "XN,PR,OMPR,P and Q" +msgstr "XN,PR,OMPR,P i Q" + +msgid "PR,OMPR,P,Q and S" +msgstr "PR,OMPR,P,Q i S" + +msgid "P,Q,S and Xn" +msgstr "P,Q,S i Xn" + +msgid "X,Mean and Std" +msgstr "X,Mean i Std" + +msgid "Mean,Std,P and Q" +msgstr "Mean,Std,P i Q" + +msgid "Std,P,Q and X" +msgstr "Std,P,Q i X" + +msgid "P,Q,X and Mean" +msgstr "P,Q,X i Mean" + +msgid " Std must not be zero\n" +msgstr " El Std no pot ser zero\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: A matrix of integer values " +"expected.\n" +msgstr "" + +msgid "S and Xlam" +msgstr "S i Xlam" + +msgid "Xlam,P and Q" +msgstr "Xlam,P i Q" + +msgid "P,Q and S" +msgstr "P,Q i S" + +msgid "T and Df" +msgstr "T i Df" + +msgid "P,Q and T" +msgstr "P,Q i T" + +#, c-format +msgid "" +"%s: Wrong number of input arguments with the '%s' option: %d expected.\n" +msgstr "" +"%s: El nombre d'arguments d'entrada amb l'opció '%s' és incorrecte: Han de " +"ser %d.\n" + +#, c-format +msgid "%s and %s must have same size.\n" +msgstr "%s i %s han de tenir la mateixa mida.\n" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %g\n" +msgstr "" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %f\n" +msgstr "La resposta és menor que el lÃmit inferior de la cerca %f\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %s\n" +msgstr "La resposta sembla estar per sobre del lÃmit més alt de cerca %s\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %f\n" +msgstr "La resposta són major que el lÃmit superior de la cerca %f\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: An integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: A real expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: An integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be between %d and %d.\n" +msgstr "" +"%s: L'argument d'entrada #%d té un valor incorrecte: Ha d'estar entre %d i " +"%d.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Integer >= %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input arguments: %d to %d expected.\n" +msgstr "" +"%s: Nombre incorrecte d'arguments d'entrada: Hi ha d'haver entre %d i %d.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', %d or %d expected.\n" +msgstr "" +"%s: L'argument d'entrada #%d té un valor incorrecte: Ha de ser '%s', '%s', " +"%d o %d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Vector expected.\n" +msgstr "" +"%s: L'argument d'entrada #%d és d'un tipus incorrecte: Ha de ser un vector.\n" + +#, c-format +msgid "%s: Incompatible input arguments #%d and #%d: Same sizes expected" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of line as first input " +"argument expected.\n" +msgstr "" +"%s: L'argument d'entrada #%d té un valor incorrecte: Ha de tenir el mateix " +"número de lÃnia que el primer argument.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of column as first input " +"argument expected.\n" +msgstr "" +"%s: L'argument d'entrada #%d té un valor incorrecte: Ha de tenir el mateix " +"número de columna que el primer argument.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: a real matrix expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: an integer or a real matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: %dx%d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: an integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d, %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input arguments: %d expected.\n" +msgstr "%s: Nombre incorrecte d'arguments d'entrada: Se'n necessiten %d.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: At least %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): At least %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type of input argument #%d: A single boolean expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real matrix expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the interval %s.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Integer expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong values for input argument #%d: Elements must be in increasing " +"order.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument: At least %d expected.\n" +msgstr "" +"%s: L'argument d'entrada té un número incorrecte: Ha de ser com a mÃnim %d.\n" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A column vector or matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A row vector or matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', %d, '%s' or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument: %d to %d expected.\n" +msgstr "" +"%s: El nombre d'arguments d'entrada és incorrecte: Han de ser entre %d i " +"%d.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real vector or matrix expected.\n" +msgstr "" +"%s: L'argument d'entrada #%d és d'un tipus incorrecte: Ha de ser un vector " +"real o una matriu.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d.\n" +msgstr "%s: L'argument d'entrada #%d és d'un tipus incorrecte.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Scalar or vector expected.\n" +msgstr "" +"%s: L'argument d'entrada #%d és d'un tipus incorrecte: Ha de ser un escalar " +"o un vector.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: A full or sparse matrix, or an " +"integer matrix, or an hypermat expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong size for input arguments #%d and #%d: Same dimensions expected.\n" +msgstr "" +"%s: Els arguments d'entrada #%d i #%d tenen una mida incorrecta: Han de " +"tenir les mateixes dimensions.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s','%s' or a positive number " +"expected.\n" +msgstr "" +"%s: L'argument d'entrada #%d té un valor incorrecte: Ha de ser '%s', " +"'%s','%s' o un nombre positiu.\n" + +#, c-format +msgid "%s: Wrong number of input argument: %d expected.\n" +msgstr "%s: Nombre incorrecte d'arguments d'entrada: Se'n necessiten %d.\n" + +#, c-format +msgid "%s: Wrong number of output argument: %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d to %d expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real or complex, boolean, polynomial " +"matrix expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A string or scalar expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the set {%s}.\n" +msgstr "" +"%s: el parà metre d'entrada #%d té un valor incorrecte: ha d'estar dintre del " +"conjunt {%s}.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', %d or %d " +"expected.\n" +msgstr "" +"%s: L'argument d'entrada #%d té un valor incorrecte: Ha de ser '%s', '%s', " +"'%s', %d o %d.\n" + +#, c-format +msgid "%s: Wrong type for input arguments #%d: Numerical expected.\n" +msgstr "" +"%s: Els arguments d'entrdara #%d són d'un tipus incorrecte: Han de ser " +"numèrics.\n" + +#, c-format +msgid "" +"%s: Incompatible input arguments #%d and #%d: Same column dimensions " +"expected.\n" +msgstr "" + +#, c-format +msgid "%s: No NaNs detected, please use %s() instead.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Numerical expected.\n" +msgstr "" +"%s: L'argument d'entrada #%d és d'un tipus incorrecte: Ha de ser numèric.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Boolean expected." +msgstr "" +"%s: L'argument d'entrada #%d és d'un tipus incorrecte: Ha de ser booleà ." + +#, c-format +msgid "%s: NaNs detected, please use %s() instead.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Non-negative values expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d and #%d: Same size expected.\n" +msgstr "" +"%s: Els arguments d'entrada #%d i #%d tenen una mida incorrecta: Han de " +"tenir la mateixa mida.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of rows of the second " +"input argument expected.\n" +msgstr "" +"%s: L'argument d'entrada #%d té una mida incorrecta: El segon argument ha de " +"tenir el mateix nombre de files.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of columns of the second " +"input argument expected.\n" +msgstr "" +"%s: L'argument d'entrada #%d té una mida incorrecta: El segon argument ha de " +"tenir el mateix nombre de columnes.\n" + +#, c-format +msgid "" +"%s: Wrong value of input argument #%d: Lower than or equal to size of input " +"argument #%d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: Size %s expected.\n" +msgstr "" +"%s: L'argument d'entrada #%d té una mida incorrecta: Ha de tenir una mida de " +"%s.\n" + +#, c-format +msgid "%s: Graph demand out of bounds.\n" +msgstr "%s: El grà fic demanat està fora dels lÃmits.\n" + +msgid "Correlations Circle" +msgstr "Cercle de correlacions" + +msgid "Eigenvalues" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or a positive " +"integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for %d input argument: '%s', '%s', %d or %d expected.\n" +msgstr "" +"%s: L'argument d'entrada %d té una mida incorrecta: Ha de ser '%s', '%s', %d " +"o %d.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Vector, matrix of numbers or strings " +"expected.\n" +msgstr "" +"%s: L'argument d'entrada #%d és d'un tipus incorrecte: Ha de ser un vector o " +"una matriu de nombres o de cadenes de text.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: '%s' or '%s' expected.\n" +msgstr "" +"%s: L'argument d'entrada #%d té un valor incorrecte: Ha de ser '%s' or " +"'%s'.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Real number between %d to %d " +"expected.\n" +msgstr "" +"%s: L'argument d'entada #%d té un valor incorrecte: Ha de ser un nombre real " +"entre %d i %d.\n" + +#, c-format +msgid "Wrong value for input argument orien: %s.\n" +msgstr "El valor de l'argument d'entrada orien és incorrecte: %s.\n" + +#, c-format +msgid "Size of x is zero : returning NaN.\n" +msgstr "La mida de x és zero : es retorna NaN.\n" + +#, c-format +msgid "discard=%s\n" +msgstr "discard=%s\n" + +#, c-format +msgid "orien=%s\n" +msgstr "orien=%s\n" + +#, c-format +msgid "Size of x:%i\n" +msgstr "Mida de x:%i\n" + +#, c-format +msgid "Keeping %i values from %i to %i in sorted order\n" +msgstr "Es mantenen %i valors des de %i fins a %i ordenats\n" + +#, c-format +msgid "Unexpected value of orien : %s\n" +msgstr "Valor inesperat per a orien : %s\n" + +#, c-format +msgid "%s: Wrong value of m : a priori mean expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: The significance of input argument #%d has been modified. Please refer " +"to the variance help page.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be > %d.\n" +msgstr "" +"%s: L'argument d'entrada #%d té un valor incorrecte: Ha de ser > %d.\n" diff --git a/modules/statistics/locales/cs_CZ.po b/modules/statistics/locales/cs_CZ.po new file mode 100755 index 000000000..fed2ef6b1 --- /dev/null +++ b/modules/statistics/locales/cs_CZ.po @@ -0,0 +1,599 @@ +# Czech translation for scilab +# Copyright (c) 2011 Rosetta Contributors and Canonical Ltd 2011 +# This file is distributed under the same license as the scilab package. +# FIRST AUTHOR <EMAIL@ADDRESS>, 2011. +# +msgid "" +msgstr "" +"Project-Id-Version: scilab\n" +"Report-Msgid-Bugs-To: FULL NAME <EMAIL@ADDRESS>\n" +"POT-Creation-Date: 2013-04-16 17:44+0100\n" +"PO-Revision-Date: 2013-06-30 20:14+0000\n" +"Last-Translator: ZbynÄ›k Schwarz <Unknown>\n" +"Language-Team: Czech <cs@li.org>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" +"X-Generator: Launchpad (build 17413)\n" + +msgid "X,Y,A and B" +msgstr "X,Y,A a B" + +msgid "A,B,P and Q" +msgstr "A,B,P a Q" + +msgid "B,P,Q,X and Y" +msgstr "B,P,Q,X a Y" + +msgid "P,Q,X,Y and A" +msgstr "P,Q,X,Y a A" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n" +msgstr "" +"%s: Å patná hodnota vstupnÃho argumentu #%d: OÄekáváno '%s', '%s', '%s' nebo " +"'%s'.\n" + +msgid "S,Xn,Pr and Ompr" +msgstr "S,Xn,Pr a Ompr" + +msgid "Xn,Pr,Ompr,P and Q" +msgstr "Xn,Pr,Ompr,P a Q" + +msgid "Pr,OMPr,P,Q and S" +msgstr "Pr,OMPr,P,Q a S" + +msgid "P,Q,S and Xn" +msgstr "P,Q,S a Xn" + +#, c-format +msgid "" +"%s: Warning: using non integer values for argument #%d may lead to incorrect " +"results.\n" +msgstr "" +"%s: VarovánÃ: použità neceloÄÃselných hodnot v argumentu #%d může vést k " +"nesprávným výsledkům.\n" + +msgid "X and Df" +msgstr "X a Df" + +msgid "Df, P and Q" +msgstr "Df, P a Q" + +msgid "P,Q and X" +msgstr "P,Q a X" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s' or '%s' expected.\n" +msgstr "" +"%s: Å patná hodnota vstupnÃho argumentu #%d: OÄekáváno '%s', '%s' nebo '%s'.\n" + +msgid "cdfchi: Error in cumgam\n" +msgstr "cdfchi: Chyba v cumgam\n" + +msgid "X,Df and Pnonc" +msgstr "X,Df a Pnonc" + +msgid "Df,Pnonc,P and Q" +msgstr "Df,Pnonc,P a Q" + +msgid "Pnonc,P,Q and X" +msgstr "Pnonc,P,Q a X" + +msgid "P,Q,X and Df" +msgstr "P,Q,X a Df" + +msgid "F,Dfn and Dfd" +msgstr "F,Dfn a Dfd" + +msgid "Dfn,Dfd,P and Q" +msgstr "Dfn,Dfd,P a Q" + +msgid "Dfd,P,Q and F" +msgstr "Dfd,P,Q a F" + +msgid "P,Q,F and Dfn" +msgstr "P,Q,F a Dfn" + +msgid "F,Dfn,Dfd and Pnonc" +msgstr "F,Dfn,Dfd a Pnonc" + +msgid "Dfn,Dfd,Pnonc,P and Q" +msgstr "Dfn,Dfd,Pnonc,P a Q" + +msgid "Dfd,Pnonc,P,Q and F" +msgstr "Dfd,Pnonc,P,Q a F" + +msgid "Pnonc,P,Q,F and Dfn" +msgstr "Pnonc,P,Q,F a Dfn" + +msgid "P,Q,F,Dfn and Dfd" +msgstr "P,Q,F,Dfn a Dfd" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', '%s' or '%s' " +"expected.\n" +msgstr "" +"%s: Å patná hodnota vstupnÃho argumentu #%d: OÄekáváno '%s', '%s', '%s', '%s' " +"nebo '%s'.\n" + +msgid "X,Shape and Rate" +msgstr "X,Tvar a Hodnost" + +msgid "Shape,Rate,P and Q" +msgstr "Tvar,Hodnost,P a Q" + +msgid "Rate,P,Q and X" +msgstr "Hodnost,P,Q and X" + +msgid "P,Q,X and Shape" +msgstr "P,Q,X and Tvar" + +msgid "S,XN,PR and OMPR" +msgstr "S,XN,PR a OMPR" + +msgid "XN,PR,OMPR,P and Q" +msgstr "XN,PR,OMPR,P a Q" + +msgid "PR,OMPR,P,Q and S" +msgstr "PR,OMPR,P,Q a S" + +msgid "P,Q,S and Xn" +msgstr "P,Q,S a Xn" + +msgid "X,Mean and Std" +msgstr "X,PrůmÄ›r a Std" + +msgid "Mean,Std,P and Q" +msgstr "PrůmÄ›r,Std,P a Q" + +msgid "Std,P,Q and X" +msgstr "Std,P,Q a X" + +msgid "P,Q,X and Mean" +msgstr "P,Q,X a PrůmÄ›r" + +msgid " Std must not be zero\n" +msgstr " Std nesmà být nula\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: A matrix of integer values " +"expected.\n" +msgstr "" + +msgid "S and Xlam" +msgstr "S a Xlam" + +msgid "Xlam,P and Q" +msgstr "Xlam,P a Q" + +msgid "P,Q and S" +msgstr "P,Q a S" + +msgid "T and Df" +msgstr "T a Df" + +msgid "P,Q and T" +msgstr "P,Q a T" + +#, c-format +msgid "" +"%s: Wrong number of input arguments with the '%s' option: %d expected.\n" +msgstr "" +"%s: Å patný poÄet vstupnÃch argumentů s možnostà '%s': OÄekáváno %d.\n" + +#, c-format +msgid "%s and %s must have same size.\n" +msgstr "%s a %s musà mÃt stejnou velikost.\n" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %g\n" +msgstr "" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %f\n" +msgstr "OdpovÄ›Ä se zdá být nižšà než nejnižšà mez hledánà %f\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %s\n" +msgstr "OdpovÄ›Ä se zdá být vyÅ¡Å¡Ã než nejvyÅ¡Å¡Ã mez hledánà %s\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %f\n" +msgstr "OdpovÄ›Ä se zdá být vyÅ¡Å¡Ã než nejvyÅ¡Å¡Ã mez hledánà %f\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d expected.\n" +msgstr "%s: Å patný poÄet vstupnÃch argumentů: OÄekáváno %d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real expected.\n" +msgstr "%s: Å patný typ vstupnÃho argumentu #%d: OÄekáváno reálné ÄÃslo.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: An integer expected.\n" +msgstr "%s: Å patný typ vstupnÃho argumentu #%d: OÄekáváno celé ÄÃslo.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: A real expected.\n" +msgstr "" +"%s: Å patná velikost vstupnÃho argumentu #%d: OÄekáváno reálné ÄÃslo.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: An integer expected.\n" +msgstr "%s: Å patná velikost vstupnÃho argumentu #%d: OÄekáváno celé ÄÃslo.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be between %d and %d.\n" +msgstr "%s: Å patná hodnota vstupnÃho argumentu #%d: Musà být mezi %d a %d.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Integer >= %d expected.\n" +msgstr "" +"%s: Å patná hodnota vstupnÃho argumentu #%d: OÄekáváno celé ÄÃslo >= %d.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d to %d expected.\n" +msgstr "%s: Å patný poÄet vstupnÃch argumentů: oÄekáváno %d až %d.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', %d or %d expected.\n" +msgstr "" +"%s: Å patná hodnota vstupnÃho argumentu #%d: OÄekáváno '%s', '%s', %d nebo " +"%d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Vector expected.\n" +msgstr "%s: Å patný typ vstupnÃho argumentu #%d: OÄekáván vektor.\n" + +#, c-format +msgid "%s: Incompatible input arguments #%d and #%d: Same sizes expected" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of line as first input " +"argument expected.\n" +msgstr "" +"%s: Å patná hodnota vstupnÃho argumentu #%d: OÄekáváno stejný poÄet řádků " +"jako prvnà vstupnà argument.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of column as first input " +"argument expected.\n" +msgstr "" +"%s: Å patná hodnota vstupnÃho argumentu #%d: OÄekáváno stejný poÄet sloupců " +"jako prvnà vstupnà argument.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: a real matrix expected.\n" +msgstr "%s: Å patný typ vstupnÃho argumentu #%d: OÄekávána reálná matice.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: an integer or a real matrix " +"expected.\n" +msgstr "" +"%s: Å patný typ vstupnÃho argumentu #%d: OÄekáváno celé ÄÃslo nebo reálná " +"matice.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: %d or %d expected.\n" +msgstr "%s: Å patná hodnota vstupnÃho argumentu #%d: OÄekáváno %d nebo %d.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: %dx%d expected.\n" +msgstr "%s: Å patná velikost vstupnÃho argumentu #%d: OÄekáváno %dx%d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: an integer expected.\n" +msgstr "%s: Å patný typ vstupnÃho argumentu #%d: OÄekáváno celé ÄÃslo.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d, %d or %d expected.\n" +msgstr "%s: Å patný poÄet vstupnÃch argumentů: OÄekáváno %d, %d, nebo %d.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d expected.\n" +msgstr "%s: Å patný poÄet vstupnÃch argumentů: oÄekáváno %d.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: At least %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): At least %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type of input argument #%d: A single boolean expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real matrix expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the interval %s.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Integer expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong values for input argument #%d: Elements must be in increasing " +"order.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument: At least %d expected.\n" +msgstr "%s: Å patný poÄet vstupnÃch argumentů: OÄekáváno alespoň %d.\n" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A column vector or matrix " +"expected.\n" +msgstr "" +"%s: Å patné rozmÄ›ry vstupnÃho argumentu #%d: OÄekáván sloupcový vektor nebo " +"matice.\n" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A row vector or matrix " +"expected.\n" +msgstr "" +"%s: Å patné rozmÄ›ry vstupnÃho argumentu #%d: OÄekáván řádkový vektor nebo " +"matice.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', %d, '%s' or %d expected.\n" +msgstr "" +"%s: Å patná hodnota vstupnÃho argumentu #%d: OÄekáváno '%s', %d, '%s' nebo " +"%d.\n" + +#, c-format +msgid "%s: Wrong number of input argument: %d to %d expected.\n" +msgstr "%s: Å patný poÄet vstupnÃch argumentů: oÄekáváno %d až %d.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real vector or matrix expected.\n" +msgstr "" +"%s: Å patný typ vstupnÃho argumentu #%d.: OÄekáván reálný vektor nebo " +"matice.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d.\n" +msgstr "%s: Å patný typ vstupnÃho argumentu #%d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Scalar or vector expected.\n" +msgstr "" +"%s: Å patný typ vstupnÃho argumentu #%d: OÄekáván vektor nebo skalár.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: A full or sparse matrix, or an " +"integer matrix, or an hypermat expected.\n" +msgstr "" +"%s: Å patný typ vstupnÃho argumentu #%d: OÄekávána celá nebo Å™Ãdká matice, " +"celoÄÃselná matice nebo hypermatice.\n" + +#, c-format +msgid "" +"%s: Wrong size for input arguments #%d and #%d: Same dimensions expected.\n" +msgstr "" +"%s: Å patná velikost vstupnÃch argumentů #%d a #%d: OÄekávány stejné " +"rozmÄ›ry.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s','%s' or a positive number " +"expected.\n" +msgstr "" +"%s: Å patná hodnota vstupnÃho argumentu #%d: OÄekáváno '%s', '%s', '%s', nebo " +"kladné ÄÃslo.\n" + +#, c-format +msgid "%s: Wrong number of input argument: %d expected.\n" +msgstr "%s: Å patný poÄet vstupnÃch argumentů: oÄekáváno %d.\n" + +#, c-format +msgid "%s: Wrong number of output argument: %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d to %d expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real or complex, boolean, polynomial " +"matrix expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A string or scalar expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the set {%s}.\n" +msgstr "%s: Å patná hodnota vstupnÃho argumentu #%d: Musà být v sadÄ› {%s}.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', %d or %d " +"expected.\n" +msgstr "" +"%s: Å patná hodnota vstupnÃho argumentu #%d: OÄekáváno '%s', '%s', '%s', %d " +"nebo %d.\n" + +#, c-format +msgid "%s: Wrong type for input arguments #%d: Numerical expected.\n" +msgstr "%s: Å patný typ vstupnÃho argumentu #%d: OÄekáváno ÄÃslo.\n" + +#, c-format +msgid "" +"%s: Incompatible input arguments #%d and #%d: Same column dimensions " +"expected.\n" +msgstr "" + +#, c-format +msgid "%s: No NaNs detected, please use %s() instead.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Numerical expected.\n" +msgstr "%s: Å patný typ vstupnÃho argumentu #%d: OÄekáváno ÄÃslo.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Boolean expected." +msgstr "%s: Å patný typ vstupnÃho argumentu #%d: OÄekáván boolean." + +#, c-format +msgid "%s: NaNs detected, please use %s() instead.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Non-negative values expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d and #%d: Same size expected.\n" +msgstr "" +"%s: Å patná velikost vstupnÃch argumentů #%d a #%d: OÄekávány stejné " +"velikosti.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of rows of the second " +"input argument expected.\n" +msgstr "" +"%s: Å patná velikost vstupnÃho argumentu #%d: OÄekáván stejný poÄet řádků " +"druhého vstupnÃho argumentu.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of columns of the second " +"input argument expected.\n" +msgstr "" +"%s: Å patná velikost vstupnÃho argumentu #%d: OÄekáván stejný poÄet sloupců " +"druhého vstupnÃho argumentu.\n" + +#, c-format +msgid "" +"%s: Wrong value of input argument #%d: Lower than or equal to size of input " +"argument #%d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: Size %s expected.\n" +msgstr "" +"%s: Å patná velikost vstupnÃho argumentu #%d: OÄekávána velikost %s.\n" + +#, c-format +msgid "%s: Graph demand out of bounds.\n" +msgstr "%s: Požadavek na graf mimo hranice.\n" + +msgid "Correlations Circle" +msgstr "Kruh korelacÃ" + +msgid "Eigenvalues" +msgstr "Vlastnà ÄÃsla" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or a positive " +"integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for %d input argument: '%s', '%s', %d or %d expected.\n" +msgstr "" +"%s: Å patný typ vstupnÃho argumentu %d: OÄekáváno '%s', '%s', %d nebo %d.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Vector, matrix of numbers or strings " +"expected.\n" +msgstr "" +"%s: Å patný typ vstupnÃho argumentu #%d: OÄekáván vektor, matice ÄÃsel, nebo " +"Å™etÄ›zce.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: '%s' or '%s' expected.\n" +msgstr "" +"%s: Å patná hodnota vstupnÃho argumentu #%d: OÄekáváno \"%s\", nebo \"%s\".\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Real number between %d to %d " +"expected.\n" +msgstr "" +"%s: Å patná hodnota vstupnÃho argumentu #%d: OÄekáváno reálné ÄÃslo mezi %d " +"až %d.\n" + +#, c-format +msgid "Wrong value for input argument orien: %s.\n" +msgstr "Å patná hodnota vstupnÃho argumentu orien: %s.\n" + +#, c-format +msgid "Size of x is zero : returning NaN.\n" +msgstr "Velikost x je nula : vracà NaN.\n" + +#, c-format +msgid "discard=%s\n" +msgstr "discard=%s\n" + +#, c-format +msgid "orien=%s\n" +msgstr "orien=%s\n" + +#, c-format +msgid "Size of x:%i\n" +msgstr "Velikost x:%i\n" + +#, c-format +msgid "Keeping %i values from %i to %i in sorted order\n" +msgstr "Udržovánà hodnot %i z %i až %i v seÅ™azeném poÅ™adÃ\n" + +#, c-format +msgid "Unexpected value of orien : %s\n" +msgstr "NeÄekaná hodnota orien : %s\n" + +#, c-format +msgid "%s: Wrong value of m : a priori mean expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: The significance of input argument #%d has been modified. Please refer " +"to the variance help page.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be > %d.\n" +msgstr "%s: Å patná hodnota vstupnÃho argumentu #%d: Musà být > %d.\n" diff --git a/modules/statistics/locales/de_DE.po b/modules/statistics/locales/de_DE.po new file mode 100755 index 000000000..1b7b75ae9 --- /dev/null +++ b/modules/statistics/locales/de_DE.po @@ -0,0 +1,589 @@ +# German translation for scilab +# Copyright (c) 2008 Rosetta Contributors and Canonical Ltd 2008 +# This file is distributed under the same license as the scilab package. +# FIRST AUTHOR <EMAIL@ADDRESS>, 2008. +# +msgid "" +msgstr "" +"Project-Id-Version: scilab\n" +"Report-Msgid-Bugs-To: <localization@lists.scilab.org>\n" +"POT-Creation-Date: 2013-04-16 17:44+0100\n" +"PO-Revision-Date: 2012-01-31 16:42+0000\n" +"Last-Translator: Niko K <Unknown>\n" +"Language-Team: German <de@li.org>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" +"X-Generator: Launchpad (build 17413)\n" +"Language: de\n" + +msgid "X,Y,A and B" +msgstr "X,Y,A und B" + +msgid "A,B,P and Q" +msgstr "A,B,P und Q" + +msgid "B,P,Q,X and Y" +msgstr "B,P,Q,X und Y" + +msgid "P,Q,X,Y and A" +msgstr "P,Q,X,Y und A" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n" +msgstr "" +"%s: falscher Wert für Eingangsargument #%d: '%s', '%s', '%s' oder '%s' " +"erwartet.\n" + +msgid "S,Xn,Pr and Ompr" +msgstr "S,Xn,Pr und Ompr" + +msgid "Xn,Pr,Ompr,P and Q" +msgstr "Xn,Pr,Ompr,P und Q" + +msgid "Pr,OMPr,P,Q and S" +msgstr "Pr,OMPr,P,Q und S" + +msgid "P,Q,S and Xn" +msgstr "P,Q,S und Xn" + +#, c-format +msgid "" +"%s: Warning: using non integer values for argument #%d may lead to incorrect " +"results.\n" +msgstr "" + +msgid "X and Df" +msgstr "X und Df" + +msgid "Df, P and Q" +msgstr "Df, P und Q" + +msgid "P,Q and X" +msgstr "P,Q und X" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s' or '%s' expected.\n" +msgstr "" +"%s: falscher Wert für Eingangsargument #%d: '%s', '%s' oder '%s' erwartet.\n" + +msgid "cdfchi: Error in cumgam\n" +msgstr "cdfchi: Fehler in cumgam\n" + +msgid "X,Df and Pnonc" +msgstr "X,Df und Pnonc" + +msgid "Df,Pnonc,P and Q" +msgstr "Df,Pnonc,P und Q" + +msgid "Pnonc,P,Q and X" +msgstr "Pnonc,P,Q und X" + +msgid "P,Q,X and Df" +msgstr "P,Q,X und Df" + +msgid "F,Dfn and Dfd" +msgstr "F,Dfn und Dfd" + +msgid "Dfn,Dfd,P and Q" +msgstr "Dfn,Dfd,P und Q" + +msgid "Dfd,P,Q and F" +msgstr "Dfd,P,Q und F" + +msgid "P,Q,F and Dfn" +msgstr "P,Q,F und Dfn" + +msgid "F,Dfn,Dfd and Pnonc" +msgstr "F,Dfn,Dfd und Pnonc" + +msgid "Dfn,Dfd,Pnonc,P and Q" +msgstr "Dfn,Dfd,Pnonc,P und Q" + +msgid "Dfd,Pnonc,P,Q and F" +msgstr "Dfd,Pnonc,P,Q und F" + +msgid "Pnonc,P,Q,F and Dfn" +msgstr "Pnonc,P,Q,F und Dfn" + +msgid "P,Q,F,Dfn and Dfd" +msgstr "P,Q,F,Dfn und Dfd" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', '%s' or '%s' " +"expected.\n" +msgstr "" +"%s: falscher Wert für Eingangsargument #%d: '%s', '%s', '%s', '%s' oder '%s' " +"erwartet.\n" + +msgid "X,Shape and Rate" +msgstr "X,Form und Rate" + +msgid "Shape,Rate,P and Q" +msgstr "Form,Rate,P und Q" + +msgid "Rate,P,Q and X" +msgstr "Rate,P,Q und X" + +msgid "P,Q,X and Shape" +msgstr "P,Q,X und Schatten" + +msgid "S,XN,PR and OMPR" +msgstr "S,XN,PR und OMPR" + +msgid "XN,PR,OMPR,P and Q" +msgstr "XN,PR,OMPR,P und Q" + +msgid "PR,OMPR,P,Q and S" +msgstr "PR,OMPR,P,Q und S" + +msgid "P,Q,S and Xn" +msgstr "P,Q,S und Xn" + +msgid "X,Mean and Std" +msgstr "X,Mean and Std" + +msgid "Mean,Std,P and Q" +msgstr "Mean,Std,P und Q" + +msgid "Std,P,Q and X" +msgstr "Std,P,Q und X" + +msgid "P,Q,X and Mean" +msgstr "P,Q,X und Mean" + +msgid " Std must not be zero\n" +msgstr " Std darf nicht null sein\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: A matrix of integer values " +"expected.\n" +msgstr "" + +msgid "S and Xlam" +msgstr "S und Xlam" + +msgid "Xlam,P and Q" +msgstr "Xlam,P und Q" + +msgid "P,Q and S" +msgstr "P,Q und S" + +msgid "T and Df" +msgstr "T und Df" + +msgid "P,Q and T" +msgstr "P,Q und T" + +#, c-format +msgid "" +"%s: Wrong number of input arguments with the '%s' option: %d expected.\n" +msgstr "" +"%s: falsche Anzahl an Eingangsargumenten mit '%s' Option: %d erwartet.\n" + +#, c-format +msgid "%s and %s must have same size.\n" +msgstr "%s und %s müssen die gleiche Größe haben.\n" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %g\n" +msgstr "" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %f\n" +msgstr "Antwort scheint kleiner als kleinste Suchgrenze zu sein %f\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %s\n" +msgstr "Ergebnis scheint größer als die größte Suchgrenze %s zu sein\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %f\n" +msgstr "Antwort scheint größer als die höchste Suchgrenze zu sein %f\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: An integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: A real expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: An integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be between %d and %d.\n" +msgstr "" +"%s: falscher Wert für Eingangsargument #%d: muß zwischen %d und %d liegen.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Integer >= %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input arguments: %d to %d expected.\n" +msgstr "%s: Falsche Anzahl an Eingangsargumenten: %d zu %d erwartet.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', %d or %d expected.\n" +msgstr "" +"%s: falscher Wert für Eingangsargument '%d: '%s', '%s', %d oder %d " +"erwartet.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Vector expected.\n" +msgstr "%s: falscher Typ für EIngangsargument #%d: Vektor erwartet.\n" + +#, c-format +msgid "%s: Incompatible input arguments #%d and #%d: Same sizes expected" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of line as first input " +"argument expected.\n" +msgstr "" +"%s: falscher Wert für Eingangsargument #%d: gleiche Anzahl an Zeilen als das " +"erste Eingangsargument erwartet.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of column as first input " +"argument expected.\n" +msgstr "" +"%s: falscher Wert für Eingangsargument #%d: gleiche Anzahl an Spalten als " +"erstes Eingangsargument erwartet.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: a real matrix expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: an integer or a real matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: %dx%d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: an integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d, %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input arguments: %d expected.\n" +msgstr "%s: falsche Anzahl für Eingangsargumente: %d erwartet.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: At least %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): At least %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type of input argument #%d: A single boolean expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real matrix expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the interval %s.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Integer expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong values for input argument #%d: Elements must be in increasing " +"order.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument: At least %d expected.\n" +msgstr "%s: falsche Anzahl an Eingangsargumenten: mindestens %d erwartet.\n" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A column vector or matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A row vector or matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', %d, '%s' or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument: %d to %d expected.\n" +msgstr "%s: falscher Anzahl an Eingangsargumenten: %d nach %d erwartet.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real vector or matrix expected.\n" +msgstr "" +"%s: falscher Typ für Eingangsargument #%d: reeller Vektor oder Matrix " +"erwartet.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d.\n" +msgstr "%s: falscher Typ für Eingangsargument #%d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Scalar or vector expected.\n" +msgstr "" +"%s: falscher Typ für Eingangsargument #%d: Skalar oder Vektor erwartet.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: A full or sparse matrix, or an " +"integer matrix, or an hypermat expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong size for input arguments #%d and #%d: Same dimensions expected.\n" +msgstr "" +"%s: falsche Größe für Eingangsargument #%d und #%d. Gleiche Dimensionen " +"erwartet.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s','%s' or a positive number " +"expected.\n" +msgstr "" +"%s: falscher Wert für Eingangsargument #%d: '%s', '%s', '%s' oder eine " +"positive Zahl erwartet.\n" + +#, c-format +msgid "%s: Wrong number of input argument: %d expected.\n" +msgstr "%s: falsche Anzahl von Eingangsargumenten: %d erwartet.\n" + +#, c-format +msgid "%s: Wrong number of output argument: %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d to %d expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real or complex, boolean, polynomial " +"matrix expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A string or scalar expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the set {%s}.\n" +msgstr "" +"%s: Falscher Wert für Eingangsargument #%d: muss in der Menge {%s} enthalten " +"sein.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', %d or %d " +"expected.\n" +msgstr "" +"%s: falscher Wert für Eingangsargument #%d: '%s', '%s', '%s', %d oder %d " +"erwartet.\n" + +#, c-format +msgid "%s: Wrong type for input arguments #%d: Numerical expected.\n" +msgstr "" +"%s: falscher Typ für Eingangsargument #%d: numerische Zahl erwartet.\n" + +#, c-format +msgid "" +"%s: Incompatible input arguments #%d and #%d: Same column dimensions " +"expected.\n" +msgstr "" + +#, c-format +msgid "%s: No NaNs detected, please use %s() instead.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Numerical expected.\n" +msgstr "" +"%s: falscher Typ für Eingangsargument #%d: numerische Zahl erwartet.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Boolean expected." +msgstr "%s: falsche Typ für Eingangsargument #%d: boolscher Wert erwartet." + +#, c-format +msgid "%s: NaNs detected, please use %s() instead.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Non-negative values expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d and #%d: Same size expected.\n" +msgstr "" +"%s: falsche Größe für Eingangsargument #%d und #%d: gleiche Größe erwartet.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of rows of the second " +"input argument expected.\n" +msgstr "" +"%s: gleiche Größe für Eingangsargument #%d: gleiche Anzahl an Reihen der " +"zweiten Eingangsargumente erwartet.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of columns of the second " +"input argument expected.\n" +msgstr "" +"%s: falsche Größe für Eingangsargument #%d: gleiche Anzahl des zweiten " +"Eingangsarguments erwartet.\n" + +#, c-format +msgid "" +"%s: Wrong value of input argument #%d: Lower than or equal to size of input " +"argument #%d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: Size %s expected.\n" +msgstr "%s: falsche Größe für Eingangsargument #%d: Größe %s erwartet.\n" + +#, c-format +msgid "%s: Graph demand out of bounds.\n" +msgstr "%s: Grenzen des Graphen außerhalb der Beschränkungen.\n" + +msgid "Correlations Circle" +msgstr "Korrelationskreis" + +msgid "Eigenvalues" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or a positive " +"integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for %d input argument: '%s', '%s', %d or %d expected.\n" +msgstr "" +"%s: falscher Wert für %d Eingangsargument: '%s', '%s', %d oder %d erwartet.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Vector, matrix of numbers or strings " +"expected.\n" +msgstr "" +"%s: falscher Typ für Eingangsargument #%d: Vektor, Matrix mit Zahlen oder " +"Zeichenketten erwartet.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: '%s' or '%s' expected.\n" +msgstr "" +"%s: falscher Wert für Eingangsargument #%d: '%s' oder '%s' erwartet.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Real number between %d to %d " +"expected.\n" +msgstr "" +"%s: falscher Wert für Eingangsargument #%d: reelle Zahl zwischen %d anch %d " +"erwartet.\n" + +#, c-format +msgid "Wrong value for input argument orien: %s.\n" +msgstr "falscher Wert für Eingangsargument Orientierung: %s.\n" + +#, c-format +msgid "Size of x is zero : returning NaN.\n" +msgstr "Größe von x ist Null: gebe undefinierte Zahl zurück.\n" + +#, c-format +msgid "discard=%s\n" +msgstr "verwerfe=%s\n" + +#, c-format +msgid "orien=%s\n" +msgstr "Orientierung=%s\n" + +#, c-format +msgid "Size of x:%i\n" +msgstr "Größe von x %i\n" + +#, c-format +msgid "Keeping %i values from %i to %i in sorted order\n" +msgstr "Behalte %i Werte von %i nach %i in sortierter Reihenfolge\n" + +#, c-format +msgid "Unexpected value of orien : %s\n" +msgstr "unerwarteter Wert von Orientierung: %s\n" + +#, c-format +msgid "%s: Wrong value of m : a priori mean expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: The significance of input argument #%d has been modified. Please refer " +"to the variance help page.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be > %d.\n" +msgstr "%s: falscher Wert für Eingangsargument #%d: muß >%d sein.\n" diff --git a/modules/statistics/locales/es_ES.po b/modules/statistics/locales/es_ES.po new file mode 100755 index 000000000..85b7b6666 --- /dev/null +++ b/modules/statistics/locales/es_ES.po @@ -0,0 +1,605 @@ +# Spanish translation for scilab +# Copyright (c) 2008 Rosetta Contributors and Canonical Ltd 2008 +# This file is distributed under the same license as the scilab package. +# FIRST AUTHOR <EMAIL@ADDRESS>, 2008. +# +msgid "" +msgstr "" +"Project-Id-Version: scilab\n" +"Report-Msgid-Bugs-To: <localization@lists.scilab.org>\n" +"POT-Creation-Date: 2013-04-16 17:44+0100\n" +"PO-Revision-Date: 2011-10-21 22:50+0000\n" +"Last-Translator: Fido <Unknown>\n" +"Language-Team: Spanish <es@li.org>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" +"X-Generator: Launchpad (build 17413)\n" +"Language: es\n" + +msgid "X,Y,A and B" +msgstr "X,Y,A y B" + +msgid "A,B,P and Q" +msgstr "A,B,P y Q" + +msgid "B,P,Q,X and Y" +msgstr "B,P,Q,X y Y" + +msgid "P,Q,X,Y and A" +msgstr "P,Q,X,Y y A" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n" +msgstr "" +"%s: Valor incorrecto del argumento de entrada #%d: Se esperaba '%s', '%s', " +"'%s' o '%s'.\n" + +msgid "S,Xn,Pr and Ompr" +msgstr "S,Xn,Pr y Ompr" + +msgid "Xn,Pr,Ompr,P and Q" +msgstr "Xn,Pr,Ompr,P y Q" + +msgid "Pr,OMPr,P,Q and S" +msgstr "Pr,OMPr,P,Q y S" + +msgid "P,Q,S and Xn" +msgstr "P,Q,S y Xn" + +#, c-format +msgid "" +"%s: Warning: using non integer values for argument #%d may lead to incorrect " +"results.\n" +msgstr "" + +msgid "X and Df" +msgstr "X y Df" + +msgid "Df, P and Q" +msgstr "Df, P y Q" + +msgid "P,Q and X" +msgstr "P,Q y X" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s' or '%s' expected.\n" +msgstr "" +"%s: Valor incorrecto del argumento de entrada #%d: Se esperaba '%s', '%s' o " +"'%s'.\n" + +msgid "cdfchi: Error in cumgam\n" +msgstr "cdfchi: Error en cumgam\n" + +msgid "X,Df and Pnonc" +msgstr "X,Df y Pnonc" + +msgid "Df,Pnonc,P and Q" +msgstr "Df,Pnonc,P y Q" + +msgid "Pnonc,P,Q and X" +msgstr "Pnonc,P,Q y X" + +msgid "P,Q,X and Df" +msgstr "P,Q,X y Df" + +msgid "F,Dfn and Dfd" +msgstr "F,Dfn y Dfd" + +msgid "Dfn,Dfd,P and Q" +msgstr "Dfn,Dfd,P y Q" + +msgid "Dfd,P,Q and F" +msgstr "Dfd,P,Q y F" + +msgid "P,Q,F and Dfn" +msgstr "P,Q,F y Dfn" + +msgid "F,Dfn,Dfd and Pnonc" +msgstr "F,Dfn,Dfd y Pnonc" + +msgid "Dfn,Dfd,Pnonc,P and Q" +msgstr "Dfn,Dfd,Pnonc,P y Q" + +msgid "Dfd,Pnonc,P,Q and F" +msgstr "Dfd,Pnonc,P,Q y F" + +msgid "Pnonc,P,Q,F and Dfn" +msgstr "Pnonc,P,Q,F y Dfn" + +msgid "P,Q,F,Dfn and Dfd" +msgstr "P,Q,F,Dfn y Dfd" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', '%s' or '%s' " +"expected.\n" +msgstr "" +"%s: Valor incorrecto del argumento de entrada #%d: Se esperaba '%s', '%s', " +"'%s', '%s' o '%s'.\n" + +msgid "X,Shape and Rate" +msgstr "X,Forma y Tasa" + +msgid "Shape,Rate,P and Q" +msgstr "Forma,Tasa,P y Q" + +msgid "Rate,P,Q and X" +msgstr "Tasa,P,Q y X" + +msgid "P,Q,X and Shape" +msgstr "P,Q,X y Escala" + +msgid "S,XN,PR and OMPR" +msgstr "S,XN,PR y OMPR" + +msgid "XN,PR,OMPR,P and Q" +msgstr "XN,PR,OMPR,P y Q" + +msgid "PR,OMPR,P,Q and S" +msgstr "PR,OMPR,P,Q y S" + +msgid "P,Q,S and Xn" +msgstr "P,Q,S y Xn" + +msgid "X,Mean and Std" +msgstr "X,Media y Std" + +msgid "Mean,Std,P and Q" +msgstr "Media,Std,P y Q" + +msgid "Std,P,Q and X" +msgstr "Std,P,Q y X" + +msgid "P,Q,X and Mean" +msgstr "P,Q,X y Media" + +msgid " Std must not be zero\n" +msgstr " Std no debe ser cero\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: A matrix of integer values " +"expected.\n" +msgstr "" + +msgid "S and Xlam" +msgstr "S y Xlam" + +msgid "Xlam,P and Q" +msgstr "Xlam,P y Q" + +msgid "P,Q and S" +msgstr "P,Q y S" + +msgid "T and Df" +msgstr "T y Df" + +msgid "P,Q and T" +msgstr "P,Q y T" + +#, c-format +msgid "" +"%s: Wrong number of input arguments with the '%s' option: %d expected.\n" +msgstr "" +"%s: Número incorrecto de argumentos de entrada con la opción '%s' : Se " +"esperaba %d.\n" + +#, c-format +msgid "%s and %s must have same size.\n" +msgstr "%s y %s deben tener el mismo tamaño.\n" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %g\n" +msgstr "" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %f\n" +msgstr "" +"La respuesta parece ser menor que el lÃmite inferior de búsqueda %f\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %s\n" +msgstr "La respuesta parece ser mayor que la cota superior de búsqueda %s\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %f\n" +msgstr "" +"La respuesta parece ser mayor que el lÃmite superior de búsqueda %f\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: An integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: A real expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: An integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be between %d and %d.\n" +msgstr "" +"%s: Valor incorrecto del argumento de entrada #%d: Debe estar entre %d y " +"%d.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Integer >= %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input arguments: %d to %d expected.\n" +msgstr "" +"%s: Número incorrecto de argumentos de entrada: Se esperaban de %d a %d.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', %d or %d expected.\n" +msgstr "" +"%s: Valor incorrecto del argumento de entrada #%d: Se esperaba '%s', '%s', " +"%d ó %d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Vector expected.\n" +msgstr "" +"%s: Tipo incorrecto de argumento de entrada #%d: Se esperaba un vector.\n" + +#, c-format +msgid "%s: Incompatible input arguments #%d and #%d: Same sizes expected" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of line as first input " +"argument expected.\n" +msgstr "" +"%s: Valor incorrecto del argumento de entrada #%d: Se esperaba el mismo " +"número de lineas que en la primera entrada.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of column as first input " +"argument expected.\n" +msgstr "" +"%s: Valor incorrecto del argumento de entrada #%d: Se esperaba el mismo " +"número de columnas que en la primera entrada.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: a real matrix expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: an integer or a real matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: %dx%d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: an integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d, %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input arguments: %d expected.\n" +msgstr "%s: Número incorrecto de argumentos de entrada: Se esperaban %d.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: At least %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): At least %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type of input argument #%d: A single boolean expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real matrix expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the interval %s.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Integer expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong values for input argument #%d: Elements must be in increasing " +"order.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument: At least %d expected.\n" +msgstr "" +"%s: Número incorrecto de argumentos de entrada: Se esperaban por lo menos " +"%d.\n" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A column vector or matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A row vector or matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', %d, '%s' or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument: %d to %d expected.\n" +msgstr "" +"%s: Número incorrecto de argumentos de entrada: Se esperaban de %d a %d.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real vector or matrix expected.\n" +msgstr "" +"%s: Tipo incorrecto de argumento de entrada #%d: Se esperaba un vector o una " +"matriz real.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d.\n" +msgstr "%s: Tipo incorrecto de argumento de entrada #%d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Scalar or vector expected.\n" +msgstr "" +"%s: Tipo incorrecto de argumento de entrada #%d: Se esperaba un escalar o un " +"vector.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: A full or sparse matrix, or an " +"integer matrix, or an hypermat expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong size for input arguments #%d and #%d: Same dimensions expected.\n" +msgstr "" +"%s: Tamaño incorrecto del argumento de entrada #%d and #%d: Se los esperaba " +"del mismo tamaño.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s','%s' or a positive number " +"expected.\n" +msgstr "" +"%s: Valor incorrecto del argumento de entrada #%d: Se esperaba '%s', " +"'%s','%s' o un número positivo.\n" + +#, c-format +msgid "%s: Wrong number of input argument: %d expected.\n" +msgstr "%s: Número incorrecto de argumentos de entrada: Se esperaban %d.\n" + +#, c-format +msgid "%s: Wrong number of output argument: %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d to %d expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real or complex, boolean, polynomial " +"matrix expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A string or scalar expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the set {%s}.\n" +msgstr "" +"%s: Valor incorrecto del argumento de entrada #%d: Debe estar en el conjunto " +"{%s}.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', %d or %d " +"expected.\n" +msgstr "" +"%s: Valor incorrecto del argumento de entrada #%d: Se esperaba '%s', '%s', " +"'%s', %d ó %d.\n" + +#, c-format +msgid "%s: Wrong type for input arguments #%d: Numerical expected.\n" +msgstr "" +"%s: Tipo incorrecto de argumentos de entrada #%d: Se esperaban números.\n" + +#, c-format +msgid "" +"%s: Incompatible input arguments #%d and #%d: Same column dimensions " +"expected.\n" +msgstr "" + +#, c-format +msgid "%s: No NaNs detected, please use %s() instead.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Numerical expected.\n" +msgstr "" +"%s: Tipo incorrecto del argumento de entrada #%d: Se esperaba uno numérico.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Boolean expected." +msgstr "" +"%s: Tipo incorrecto del argumento de entrada #%d: Se esperaba un Booleano." + +#, c-format +msgid "%s: NaNs detected, please use %s() instead.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Non-negative values expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d and #%d: Same size expected.\n" +msgstr "" +"%s: Tamaño incorrecto de los argumento de entrada #%d y #%d: Se los esperaba " +"del mismo tamaño.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of rows of the second " +"input argument expected.\n" +msgstr "" +"%s: Tamaño incorrecto del argumento de entrada #%d: Se esperaba el mismo " +"número de filas del segundo.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of columns of the second " +"input argument expected.\n" +msgstr "" +"%s: Tamaño incorrecto del argumento de entrada #%d: Se esperaba el mismo " +"número de columnas del segundo.\n" + +#, c-format +msgid "" +"%s: Wrong value of input argument #%d: Lower than or equal to size of input " +"argument #%d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: Size %s expected.\n" +msgstr "" +"%s: Tamaño incorrecto del argumento de entrada #%d: Se esperaba el tamaño " +"%s.\n" + +#, c-format +msgid "%s: Graph demand out of bounds.\n" +msgstr "%s: Gráfico fuera de los lÃmites.\n" + +msgid "Correlations Circle" +msgstr "CÃrculo de correlaciones" + +msgid "Eigenvalues" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or a positive " +"integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for %d input argument: '%s', '%s', %d or %d expected.\n" +msgstr "" +"%s: Valor incorrecto para el argumento de entrada %d: Se esperaba '%s', " +"'%s', %d ó %d.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Vector, matrix of numbers or strings " +"expected.\n" +msgstr "" +"%s: Tipo incorrecto del argumento de entrada #%d: Se esperaba vector, matriz " +"de números o cadenas.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: '%s' or '%s' expected.\n" +msgstr "" +"%s: Valor incorrecto del argumento de entrada #%d: Se esperaba '%s' o '%s'.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Real number between %d to %d " +"expected.\n" +msgstr "" +"%s: Valor incorrecto del argumento de entrada #%d: Se esperaba un número " +"real entre %d y %d.\n" + +#, c-format +msgid "Wrong value for input argument orien: %s.\n" +msgstr "Valor incorrecto de orientación del argumento de entrada: %s.\n" + +#, c-format +msgid "Size of x is zero : returning NaN.\n" +msgstr "El tamaño de x es cero: devolviendo NaN.\n" + +#, c-format +msgid "discard=%s\n" +msgstr "descartar=%s\n" + +#, c-format +msgid "orien=%s\n" +msgstr "orien=%s\n" + +#, c-format +msgid "Size of x:%i\n" +msgstr "Tamaño de x: %i\n" + +#, c-format +msgid "Keeping %i values from %i to %i in sorted order\n" +msgstr "Dejando los valores %i desde %i a %i en orden\n" + +#, c-format +msgid "Unexpected value of orien : %s\n" +msgstr "Valor de orientación no esperado : %s\n" + +#, c-format +msgid "%s: Wrong value of m : a priori mean expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: The significance of input argument #%d has been modified. Please refer " +"to the variance help page.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be > %d.\n" +msgstr "%s: Valor incorrecto de argumento de entrada #%d: Debe ser > %d.\n" diff --git a/modules/statistics/locales/fr_FR.po b/modules/statistics/locales/fr_FR.po new file mode 100755 index 000000000..de1057d59 --- /dev/null +++ b/modules/statistics/locales/fr_FR.po @@ -0,0 +1,641 @@ +# French translation for scilab +# Copyright (c) 2008 Rosetta Contributors and Canonical Ltd 2008 +# This file is distributed under the same license as the scilab package. +# FIRST AUTHOR <EMAIL@ADDRESS>, 2008. +# +msgid "" +msgstr "" +"Project-Id-Version: scilab\n" +"Report-Msgid-Bugs-To: <localization@lists.scilab.org>\n" +"POT-Creation-Date: 2013-04-16 17:44+0100\n" +"PO-Revision-Date: 2014-09-29 08:28+0000\n" +"Last-Translator: Vincent Couvert <Unknown>\n" +"Language-Team: French <fr@li.org>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" +"X-Generator: Launchpad (build 17413)\n" +"Language: fr\n" + +msgid "X,Y,A and B" +msgstr "X,Y,A et B" + +msgid "A,B,P and Q" +msgstr "A,B,P et Q" + +msgid "B,P,Q,X and Y" +msgstr "B,P,Q,X et Y" + +msgid "P,Q,X,Y and A" +msgstr "P,Q,X,Y et A" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : '%s', '%s', '%s' ou '%s' " +"attendu.\n" + +msgid "S,Xn,Pr and Ompr" +msgstr "S,Xn,Pr et Ompr" + +msgid "Xn,Pr,Ompr,P and Q" +msgstr "Xn,Pr,Ompr,P et Q" + +msgid "Pr,OMPr,P,Q and S" +msgstr "Pr,OMPr,P,Q et S" + +msgid "P,Q,S and Xn" +msgstr "P,Q,S et Xn" + +#, c-format +msgid "" +"%s: Warning: using non integer values for argument #%d may lead to incorrect " +"results.\n" +msgstr "" +"%s : Attention : Utiliser des valeurs non entières pour l'argument n°%d peut " +"conduire à des résultats erronés.\n" + +msgid "X and Df" +msgstr "X et Df" + +msgid "Df, P and Q" +msgstr "Df, P et Q" + +msgid "P,Q and X" +msgstr "P,Q et X" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s' or '%s' expected.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : '%s', '%s' ou '%s' " +"attendu.\n" + +msgid "cdfchi: Error in cumgam\n" +msgstr "cdfchi : Erreur dans cumgam\n" + +msgid "X,Df and Pnonc" +msgstr "X,Df et Pnonc" + +msgid "Df,Pnonc,P and Q" +msgstr "Df,Pnonc,P et Q" + +msgid "Pnonc,P,Q and X" +msgstr "Pnonc,P,Q et X" + +msgid "P,Q,X and Df" +msgstr "P,Q,X et Df" + +msgid "F,Dfn and Dfd" +msgstr "F,Dfn et Dfd" + +msgid "Dfn,Dfd,P and Q" +msgstr "Dfn,Dfd,P et Q" + +msgid "Dfd,P,Q and F" +msgstr "Dfd,P,Q et F" + +msgid "P,Q,F and Dfn" +msgstr "P,Q,F et Dfn" + +msgid "F,Dfn,Dfd and Pnonc" +msgstr "F,Dfn,Dfd et Pnonc" + +msgid "Dfn,Dfd,Pnonc,P and Q" +msgstr "Dfn,Dfd,Pnonc,P et Q" + +msgid "Dfd,Pnonc,P,Q and F" +msgstr "Dfd,Pnonc,P,Q et F" + +msgid "Pnonc,P,Q,F and Dfn" +msgstr "Pnonc,P,Q,F et Dfn" + +msgid "P,Q,F,Dfn and Dfd" +msgstr "P,Q,F,Dfn et Dfd" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', '%s' or '%s' " +"expected.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : '%s', '%s', '%s', '%s' ou " +"'%s' attendu.\n" + +msgid "X,Shape and Rate" +msgstr "X,Shape et Rate" + +msgid "Shape,Rate,P and Q" +msgstr "état, Taux, P et Q" + +msgid "Rate,P,Q and X" +msgstr "Taux,P,Q et X" + +msgid "P,Q,X and Shape" +msgstr "P,Q,X et Shape" + +msgid "S,XN,PR and OMPR" +msgstr "S,XN,PR et OMPR" + +msgid "XN,PR,OMPR,P and Q" +msgstr "XN,PR,OMPR,P et Q" + +msgid "PR,OMPR,P,Q and S" +msgstr "PR,OMPR,P,Q et S" + +msgid "P,Q,S and Xn" +msgstr "P,Q,S et Xn" + +msgid "X,Mean and Std" +msgstr "X,Mean et Std" + +msgid "Mean,Std,P and Q" +msgstr "Mean,Std,P et Q" + +msgid "Std,P,Q and X" +msgstr "Std,P,Q et X" + +msgid "P,Q,X and Mean" +msgstr "P,Q,X et Mean" + +msgid " Std must not be zero\n" +msgstr " Std ne doit pas être zéro\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: A matrix of integer values " +"expected.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : Une matrice de valeurs " +"entières attendue.\n" + +msgid "S and Xlam" +msgstr "S et Xlam" + +msgid "Xlam,P and Q" +msgstr "Xlam,P et Q" + +msgid "P,Q and S" +msgstr "P,Q et S" + +msgid "T and Df" +msgstr "T et Df" + +msgid "P,Q and T" +msgstr "P,Q et T" + +#, c-format +msgid "" +"%s: Wrong number of input arguments with the '%s' option: %d expected.\n" +msgstr "" +"%s : Nombre erroné d'arguments d'entrée avec l'option '%s' : %d attendus.\n" + +#, c-format +msgid "%s and %s must have same size.\n" +msgstr "%s et %s doivent être de la même dimension.\n" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %g\n" +msgstr "" +"La réponse semble être inférieure à la plus faible borne de recherche %g\n" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %f\n" +msgstr "La solution est inférieure à la borne inférieure de recherche %f\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %s\n" +msgstr "La solution est supérieure à la borne supérieure de recherche %s\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %f\n" +msgstr "La solution est supérieure à la borne supérieure de recherche %f\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d expected.\n" +msgstr "%s : Nombre erroné d'argument(s) d'entrée : %d attendu(s).\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real expected.\n" +msgstr "" +"%s : Type erroné de l'argument d'entrée n°%d : Un réel est attendu.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: An integer expected.\n" +msgstr "%s : Type erroné de l'argument d'entrée n°%d : Un entier attendu.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: A real expected.\n" +msgstr "" +"%s : Dimension erronée de l'argument d'entrée n°%d : Un réel attendu.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: An integer expected.\n" +msgstr "" +"%s : Dimension erronée de l'argument d'entrée n°%d : Un entier attendu.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be between %d and %d.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : Doit être entre %d et %d.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Integer >= %d expected.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : Un entier >= %d attendu.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d to %d expected.\n" +msgstr "%s : Nombre erroné d'arguments d'entrée : %d à %d attendus.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', %d or %d expected.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : '%s', '%s', %d ou %d " +"attendu.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Vector expected.\n" +msgstr "%s : Type erroné de l'argument d'entrée n°%d : Un vecteur attendu.\n" + +#, c-format +msgid "%s: Incompatible input arguments #%d and #%d: Same sizes expected" +msgstr "" +"%s : Arguments d'entrée n°%d et n°%d incompatibles : Mêmes dimensions " +"attendues." + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of line as first input " +"argument expected.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : Même nombre de ligne que " +"le premier argument d'entrée attendu.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of column as first input " +"argument expected.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : Même nombre de colonne que " +"le premier argument d'entrée attendu.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: a real matrix expected.\n" +msgstr "" +"%s : Type erroné de l'argument d'entrée n°%d : Une matrice réelle attendue.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: an integer or a real matrix " +"expected.\n" +msgstr "" +"%s : Type erroné de l'argument d'entrée n°%d : Un entier ou une matrice " +"réelle attendu.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: %d or %d expected.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : %d ou %d attendu.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: %dx%d expected.\n" +msgstr "" +"%s : Dimension erronée de l'argument d'entrée n°%d : %dx%d attendu.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: an integer expected.\n" +msgstr "%s : Type erroné de l'argument d'entrée n°%d : Un entier attendu.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d, %d or %d expected.\n" +msgstr "" +"%s : Nombre erroné d'argument(s) d'entrée : %d, %d ou %d attendu(s).\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d expected.\n" +msgstr "%s : Nombre erroné d'arguments d'entrée : %d attendus.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: At least %d expected.\n" +msgstr "%s : Nombre erroné d'arguments d'entrée : au moins %d attendus.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): At least %d expected.\n" +msgstr "" +"%s : Nombre erroné d'argument(s) d'entrée : Au moins %d attendu(s).\n" + +#, c-format +msgid "%s: Wrong type of input argument #%d: A single boolean expected.\n" +msgstr "" +"%s : Type erroné de l'argument d'entrée n°%d : Un seul booléen attendu.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real matrix expected.\n" +msgstr "" +"%s : Type erroné de l'argument d'entrée n°%d : Une matrice réelle attendue.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the interval %s.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : Doit être dans " +"l'intervalle %s.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Integer expected.\n" +msgstr "%s : Type erroné de l'argument d'entrée n°%d : Un entier attendu.\n" + +#, c-format +msgid "" +"%s: Wrong values for input argument #%d: Elements must be in increasing " +"order.\n" +msgstr "" +"%s : Valeurs erronées de l'argument d'entrée n°%d : Les éléments doivent " +"être en ordre croissant.\n" + +#, c-format +msgid "%s: Wrong number of input argument: At least %d expected.\n" +msgstr "%s : Nombre erroné d'arguments d'entrée : Au moins %d attendus.\n" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A column vector or matrix " +"expected.\n" +msgstr "" +"%s : Dimensions erronées de l'argument d'entrée n°%d : Un vecteur colonne ou " +"une matrice attendu.\n" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A row vector or matrix " +"expected.\n" +msgstr "" +"%s : Dimensions erronées de l'argument d'entrée n°%d : Un vecteur ligne ou " +"une matrice attendu.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', %d, '%s' or %d expected.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : '%s', %d, '%s' ou %d " +"attendu.\n" + +#, c-format +msgid "%s: Wrong number of input argument: %d to %d expected.\n" +msgstr "%s : Nombre erroné d'arguments d'entrée : %d à %d attendus.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real vector or matrix expected.\n" +msgstr "" +"%s : Type erroné de l'argument d'entrée n°%d : Un vecteur ou une matrice " +"réelle attendu.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d.\n" +msgstr "%s : Type erroné de l'argument d'entrée n°%d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Scalar or vector expected.\n" +msgstr "" +"%s : Type erroné de l'argument d'entrée n°%d : Un scalaire ou vecteur " +"attendu.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: A full or sparse matrix, or an " +"integer matrix, or an hypermat expected.\n" +msgstr "" +"%s : Type erroné de l'argument d'entrée n°%d : Une matrice dense ou creuse, " +"une matrice d'entiers ou une hypermatrice attendue.\n" + +#, c-format +msgid "" +"%s: Wrong size for input arguments #%d and #%d: Same dimensions expected.\n" +msgstr "" +"%s : Dimension erronée des arguments d'entrée n°%d et n°%d : Mêmes " +"dimensions attendues.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d or %d expected.\n" +msgstr "%s : Nombre erroné d'argument(s) d'entrée : %d ou %d attendu(s).\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s','%s' or a positive number " +"expected.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : '%s', '%s','%s' ou un " +"nombre positif attendu.\n" + +#, c-format +msgid "%s: Wrong number of input argument: %d expected.\n" +msgstr "%s : Nombre erroné d'argument d'entrée : %d attendu.\n" + +#, c-format +msgid "%s: Wrong number of output argument: %d expected.\n" +msgstr "%s : Nombre erroné d'argument(s) de sortie : %d attendu(s).\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d to %d expected.\n" +msgstr "%s : Nombre erroné d'argument(s) d'entrée : %d à %d attendu(s).\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real or complex, boolean, polynomial " +"matrix expected.\n" +msgstr "" +"%s : Type erroné de l'argument d'entrée n°%d : Une matrice réelle ou " +"complexe, de booléens ou de polynômes attendue.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A string or scalar expected.\n" +msgstr "" +"%s : Type erroné de l'argument d'entrée n°%d : Une chaîne de caractères ou " +"un scalaire attendu.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the set {%s}.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : Doit être dans l'ensemble " +"{%s}.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', %d or %d " +"expected.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : '%s', '%s','%s', %d ou %d " +"attendu.\n" + +#, c-format +msgid "%s: Wrong type for input arguments #%d: Numerical expected.\n" +msgstr "" +"%s : Type erroné des arguments d'entrée n°%d : Un numérique attendu.\n" + +#, c-format +msgid "" +"%s: Incompatible input arguments #%d and #%d: Same column dimensions " +"expected.\n" +msgstr "" +"%s : Arguments d'entrée n°%d et n°%d incompatibles : Mêmes dimensions de " +"colonne attendues.\n" + +#, c-format +msgid "%s: No NaNs detected, please use %s() instead.\n" +msgstr "%s : Aucun NaN détecté, veuillez utiliser %s() à la place.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Numerical expected.\n" +msgstr "" +"%s : Type erroné de l'argument d'entrée n°%d : Un numérique attendu.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d or %d expected.\n" +msgstr "%s : Nombre erroné d'arguments d'entrée : %d ou %d attendus.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Boolean expected." +msgstr "%s : Type erroné de l'argument d'entrée n°%d : Un booléen attendu." + +#, c-format +msgid "%s: NaNs detected, please use %s() instead.\n" +msgstr "%s : NaNs détectés, veuillez utiliser %s() à la place.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Non-negative values expected.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : Des valeurs non-négatives " +"attendues.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d and #%d: Same size expected.\n" +msgstr "" +"%s : Dimension erronée de l'argument d'entrée n°%d et n°%d : Même dimension " +"attendue.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of rows of the second " +"input argument expected.\n" +msgstr "" +"%s : Dimension erronée de l'argument d'entrée n°%d : Même nombre de lignes " +"que le second argument d'entrée attendu.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of columns of the second " +"input argument expected.\n" +msgstr "" +"%s : Dimension erronée de l'argument d'entrée n°%d : Même nombre de colonnes " +"que le second argument d'entrée attendu.\n" + +#, c-format +msgid "" +"%s: Wrong value of input argument #%d: Lower than or equal to size of input " +"argument #%d expected.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : Une valeur inférieure ou " +"égale aux dimensions de l'argument d'entrée n°%d attendue.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: Size %s expected.\n" +msgstr "" +"%s : Dimension erronée de l'argument d'entrée n°%d : Une dimension %s " +"attendue.\n" + +#, c-format +msgid "%s: Graph demand out of bounds.\n" +msgstr "%s : Référence d'axe de représentation au-delà des limites.\n" + +msgid "Correlations Circle" +msgstr "Cercle des corrélations" + +msgid "Eigenvalues" +msgstr "Valeurs propres" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or a positive " +"integer expected.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : '%s', '%s', '%s' ou un " +"entier positif attendu.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d.\n" +msgstr "%s : Dimension erronée de l'argument d'entrée n°%d.\n" + +#, c-format +msgid "" +"%s: Wrong value for %d input argument: '%s', '%s', %d or %d expected.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : '%s', '%s', %d ou %d " +"attendu.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Vector, matrix of numbers or strings " +"expected.\n" +msgstr "" +"%s : Type erroné de l'argument d'entrée n°%d : Un vecteur, une matrice de " +"nombre ou une chaînes de caractères attendu.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: '%s' or '%s' expected.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : '%s' ou '%s' attendu.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Real number between %d to %d " +"expected.\n" +msgstr "" +"%s : Valeur erronée de l'argument d'entrée n°%d : Un nombre réel entre %d et " +"%d attendu.\n" + +#, c-format +msgid "Wrong value for input argument orien: %s.\n" +msgstr "Valeur erronée de l'argument d'entrée orien : %s.\n" + +#, c-format +msgid "Size of x is zero : returning NaN.\n" +msgstr "La dimension de x est zéro : retourne NaN.\n" + +#, c-format +msgid "discard=%s\n" +msgstr "discard=%s\n" + +#, c-format +msgid "orien=%s\n" +msgstr "orien=%s\n" + +#, c-format +msgid "Size of x:%i\n" +msgstr "Dimension de x :%i\n" + +#, c-format +msgid "Keeping %i values from %i to %i in sorted order\n" +msgstr "Retient %i valeurs de %i à %i dans un classement ordonné\n" + +#, c-format +msgid "Unexpected value of orien : %s\n" +msgstr "Valeur de orien inattendue : %s\n" + +#, c-format +msgid "%s: Wrong value of m : a priori mean expected.\n" +msgstr "%s : Valeur erronée de m : Une moyenne a priori attendue.\n" + +#, c-format +msgid "" +"%s: The significance of input argument #%d has been modified. Please refer " +"to the variance help page.\n" +msgstr "" +"%s : L'importance de l'argument d'entrée n°%d a été modifié. Veuillez vous " +"référer à la page d'aide de variance.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be > %d.\n" +msgstr "%s : Valeur erronée de l'argument d'entrée n°%d : Doit être > %d.\n" diff --git a/modules/statistics/locales/it_IT.po b/modules/statistics/locales/it_IT.po new file mode 100755 index 000000000..0ba199793 --- /dev/null +++ b/modules/statistics/locales/it_IT.po @@ -0,0 +1,684 @@ +# Italian translation for scilab +# Copyright (c) 2009 Rosetta Contributors and Canonical Ltd 2009 +# This file is distributed under the same license as the scilab package. +# FIRST AUTHOR <EMAIL@ADDRESS>, 2009. +# +msgid "" +msgstr "" +"Project-Id-Version: scilab\n" +"Report-Msgid-Bugs-To: <localization@lists.scilab.org>\n" +"POT-Creation-Date: 2013-04-16 17:44+0100\n" +"PO-Revision-Date: 2015-02-14 19:46+0000\n" +"Last-Translator: Carml <mighty.carml@gmail.com>\n" +"Language-Team: Italian <it@li.org>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" +"X-Generator: Launchpad (build 17413)\n" +"Language: it\n" + +msgid "X,Y,A and B" +msgstr "X,Y,A e B" + +msgid "A,B,P and Q" +msgstr "A,B,P e Q" + +msgid "B,P,Q,X and Y" +msgstr "B,P,Q,X e Y" + +msgid "P,Q,X,Y and A" +msgstr "P,Q,X,Y e A" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: era atteso '%s', " +"'%s', '%s' o '%s'.\n" + +msgid "S,Xn,Pr and Ompr" +msgstr "S,Xn,Pr e Ompr" + +msgid "Xn,Pr,Ompr,P and Q" +msgstr "Xn,Pr,Ompr,P e Q" + +msgid "Pr,OMPr,P,Q and S" +msgstr "Pr,OMPr,P,Q e S" + +msgid "P,Q,S and Xn" +msgstr "P,Q,S e Xn" + +#, c-format +msgid "" +"%s: Warning: using non integer values for argument #%d may lead to incorrect " +"results.\n" +msgstr "" +"%s: Attenzione: usare valori non interi per l'argomento #%d può portare a " +"risultati errati.\n" + +msgid "X and Df" +msgstr "X e Df" + +msgid "Df, P and Q" +msgstr "Df, P e Q" + +msgid "P,Q and X" +msgstr "P,Q e X" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s' or '%s' expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: era atteso '%s', " +"'%s' o '%s'.\n" + +msgid "cdfchi: Error in cumgam\n" +msgstr "cdfchi: errore in cumgam\n" + +msgid "X,Df and Pnonc" +msgstr "X,Df e Pnonc" + +msgid "Df,Pnonc,P and Q" +msgstr "Df,Pnonc,P e Q" + +msgid "Pnonc,P,Q and X" +msgstr "Pnonc,P,Q e X" + +msgid "P,Q,X and Df" +msgstr "P,Q,X e Df" + +msgid "F,Dfn and Dfd" +msgstr "F,Dfn e Dfd" + +msgid "Dfn,Dfd,P and Q" +msgstr "Dfn,Dfd,P e Q" + +msgid "Dfd,P,Q and F" +msgstr "Dfd,P,Q e F" + +msgid "P,Q,F and Dfn" +msgstr "P,Q,F e Dfn" + +msgid "F,Dfn,Dfd and Pnonc" +msgstr "F,Dfn,Dfd e Pnonc" + +msgid "Dfn,Dfd,Pnonc,P and Q" +msgstr "Dfn,Dfd,Pnonc,P e Q" + +msgid "Dfd,Pnonc,P,Q and F" +msgstr "Dfd,Pnonc,P,Q e F" + +msgid "Pnonc,P,Q,F and Dfn" +msgstr "Pnonc,P,Q,F e Dfn" + +msgid "P,Q,F,Dfn and Dfd" +msgstr "P,Q,F,Dfn e Dfd" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', '%s' or '%s' " +"expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: era atteso '%s', " +"'%s', '%s', '%s' o '%s'.\n" + +msgid "X,Shape and Rate" +msgstr "X, Forma e Tasso" + +msgid "Shape,Rate,P and Q" +msgstr "Forma, Tasso, P e Q" + +msgid "Rate,P,Q and X" +msgstr "Tasso, P, Q e X" + +msgid "P,Q,X and Shape" +msgstr "P,Q,X e Forma" + +msgid "S,XN,PR and OMPR" +msgstr "S,XN,PR e OMPR" + +msgid "XN,PR,OMPR,P and Q" +msgstr "XN,PR,OMPR,P e Q" + +msgid "PR,OMPR,P,Q and S" +msgstr "PR,OMPR,P,Q e S" + +msgid "P,Q,S and Xn" +msgstr "P,Q,S e Xn" + +msgid "X,Mean and Std" +msgstr "X,Media e Std" + +msgid "Mean,Std,P and Q" +msgstr "Media,Std,P e Q" + +msgid "Std,P,Q and X" +msgstr "Std,P,Q e X" + +msgid "P,Q,X and Mean" +msgstr "P,Q,X e Media" + +msgid " Std must not be zero\n" +msgstr " STD non deve essere zero\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: A matrix of integer values " +"expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: era attesa una " +"matrice di valori interi.\n" + +msgid "S and Xlam" +msgstr "S e Xlam" + +msgid "Xlam,P and Q" +msgstr "Xlam,P e Q" + +msgid "P,Q and S" +msgstr "P,Q e S" + +msgid "T and Df" +msgstr "T e Df" + +msgid "P,Q and T" +msgstr "P,Q e T" + +#, c-format +msgid "" +"%s: Wrong number of input arguments with the '%s' option: %d expected.\n" +msgstr "" +"%s: Il numero di argomenti in ingresso con l'opzione '%s' è sbagliato: era " +"atteso %d.\n" + +#, c-format +msgid "%s and %s must have same size.\n" +msgstr "%s e %s devono avere la stessa dimensione.\n" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %g\n" +msgstr "" +"La risposta sembra essere minore del più piccolo limite di ricerca %g\n" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %f\n" +msgstr "" +"La risposta sembra essere minore del più piccolo limite di ricerca %f\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %s\n" +msgstr "" +"La risposta sembrerebbe maggiore del più grande limite di ricerca %s\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %f\n" +msgstr "" +"La risposta sembra essere maggiore del più grande limite di ricerca %f\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d expected.\n" +msgstr "" +"%s: Il numero degli argomenti in ingresso è sbagliato: ne erano attesi %d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d è di tipo sbagliato: era atteso un numero " +"reale.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: An integer expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d è di tipo sbagliato: era atteso un intero.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: A real expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha una dimensione sbagliata: era atteso un " +"numero reale.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: An integer expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha una dimensione sbagliata: era atteso un " +"intero.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be between %d and %d.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: deve essere tra %d e " +"%d.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Integer >= %d expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: era atteso un intero " +">=%d.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d to %d expected.\n" +msgstr "" +"%s: Il numero degli argomenti in ingresso è sbagliato: era atteso da %d a " +"%d.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', %d or %d expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: era atteso '%s', " +"'%s', %d o %d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Vector expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d è di tipo sbagliato: era atteso un vettore.\n" + +#, c-format +msgid "%s: Incompatible input arguments #%d and #%d: Same sizes expected" +msgstr "" +"%s: Gli argomenti in ingresso #%d e #%d sono incompatibili: erano attese le " +"stesse dimensioni." + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of line as first input " +"argument expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: era atteso lo stesso " +"numero di riga del primo argomento in ingresso.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of column as first input " +"argument expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: era atteso lo stesso " +"numero di colonna del primo argomento in ingresso.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: a real matrix expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d è di tipo sbagliato: era attesa una matrice " +"reale.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: an integer or a real matrix " +"expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d è di tipo sbagliato: era atteso un intero o " +"una matrice reale.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: %d or %d expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: era atteso %d o %d.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: %dx%d expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha una dimensione sbagliata: era attesa " +"%dx%d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: an integer expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d è di tipo sbagliato: era atteso un intero.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d, %d or %d expected.\n" +msgstr "" +"%s: Il numero degli argomenti in ingresso è sbagliato: ne erano attesi %d, " +"%d o %d.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d expected.\n" +msgstr "" +"%s: Il numero degli argomenti in ingresso è sbagliato: ne erano attesi %d.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: At least %d expected.\n" +msgstr "" +"%s: Il numero degli argomenti in ingresso è sbagliato: ne erano attesi " +"almeno %d.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): At least %d expected.\n" +msgstr "" +"%s: Il numero degli argomenti in ingresso è sbagliato: ne erano attesi " +"almeno %d.\n" + +#, c-format +msgid "%s: Wrong type of input argument #%d: A single boolean expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d è di tipo sbagliato: era atteso un solo " +"booleano.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real matrix expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d è di tipo sbagliato: era attesa una matrice " +"reale.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the interval %s.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: deve essere " +"nell'intervallo %s.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Integer expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d è di tipo sbagliato: era atteso un intero.\n" + +#, c-format +msgid "" +"%s: Wrong values for input argument #%d: Elements must be in increasing " +"order.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha dei valori sbagliati: gli elementi devono " +"essere in ordine crescente.\n" + +#, c-format +msgid "%s: Wrong number of input argument: At least %d expected.\n" +msgstr "" +"%s: Il numero degli argomenti in ingresso è sbagliato: ne erano attesi " +"almeno %d.\n" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A column vector or matrix " +"expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha delle dimensioni sbagliate: era atteso un " +"vettore colonna o una matrice.\n" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A row vector or matrix " +"expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha delle dimensioni sbagliate: era atteso un " +"vettore riga o una matrice.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', %d, '%s' or %d expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: era atteso '%s, %d, " +"'%s' o %d.\n" + +#, c-format +msgid "%s: Wrong number of input argument: %d to %d expected.\n" +msgstr "" +"%s: Il numero degli argomenti in ingresso è sbagliato: era atteso da %d a " +"%d.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real vector or matrix expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d è di tipo sbagliato: era atteso un vettore " +"reale o una matrice.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d.\n" +msgstr "%s: L'argomento in ingresso #%d è di tipo sbagliato.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Scalar or vector expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d è di tipo sbagliato: era atteso uno scalare " +"o un vettore.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: A full or sparse matrix, or an " +"integer matrix, or an hypermat expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d è di tipo sbagliato: era attesa una matrice " +"piena o sparsa, o una di interi o una ipermatrice.\n" + +#, c-format +msgid "" +"%s: Wrong size for input arguments #%d and #%d: Same dimensions expected.\n" +msgstr "" +"%s: Gli argomenti in ingresso #%d e #%d hanno una dimensione sbagliata: " +"erano attese le stesse dimensioni.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d or %d expected.\n" +msgstr "" +"%s: Il numero degli argomenti in ingresso è sbagliato: ne erano attesi %d o " +"%d.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s','%s' or a positive number " +"expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: era atteso '%s', " +"'%s','%s' o un numero positivo.\n" + +#, c-format +msgid "%s: Wrong number of input argument: %d expected.\n" +msgstr "" +"%s: Il numero degli argomenti in ingresso è sbagliato: ne erano attesi %d.\n" + +#, c-format +msgid "%s: Wrong number of output argument: %d expected.\n" +msgstr "" +"%s: Il numero degli argomenti in uscita è sbagliato: ne erano attesi %d.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d to %d expected.\n" +msgstr "" +"%s: Il numero degli argomenti in ingresso è sbagliato: era atteso da %d a " +"%d.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real or complex, boolean, polynomial " +"matrix expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d è di tipo sbagliato: era attesa una matrice " +"reale o complessa, una di booleani o una polinomiale.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A string or scalar expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d è di tipo sbagliato: era attesa una stringa " +"o uno scalare.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the set {%s}.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: deve essere " +"nell'insieme {%s}.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', %d or %d " +"expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: era atteso '%s', " +"'%s', '%s', %d o %d.\n" + +#, c-format +msgid "%s: Wrong type for input arguments #%d: Numerical expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d è di tipo sbagliato: ne era atteso uno " +"numerico.\n" + +#, c-format +msgid "" +"%s: Incompatible input arguments #%d and #%d: Same column dimensions " +"expected.\n" +msgstr "" +"%s: Gli argomenti in ingresso #%d e #%d sono incompatibili: erano attese le " +"stesse dimensioni per le colonne.\n" + +#, c-format +msgid "%s: No NaNs detected, please use %s() instead.\n" +msgstr "%s: Non sono stati trovati NaN, usare %s() invece.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Numerical expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d è di tipo sbagliato: ne era atteso uno " +"numerico.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d or %d expected.\n" +msgstr "" +"%s: Il numero degli argomenti in ingresso è sbagliato: ne erano attesi %d o " +"%d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Boolean expected." +msgstr "" +"%s: L'argomento in ingresso #%d è di tipo sbagliato: era atteso un valore " +"booleano." + +#, c-format +msgid "%s: NaNs detected, please use %s() instead.\n" +msgstr "%s: Sono stati trovati dei NaN, usare %s() invece.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Non-negative values expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: erano attesi dei " +"valori non-negativi.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d and #%d: Same size expected.\n" +msgstr "" +"%s: Gli argomenti in ingresso #%d e #%d hanno una dimensione sbagliata: " +"erano attese le stesse dimensioni.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of rows of the second " +"input argument expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha una dimensione sbagliata: era atteso lo " +"stesso numero di righe del secondo argomento in ingresso.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of columns of the second " +"input argument expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha una dimensione sbagliata: era atteso lo " +"stesso numero di colonne del secondo argomento in ingresso.\n" + +#, c-format +msgid "" +"%s: Wrong value of input argument #%d: Lower than or equal to size of input " +"argument #%d expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: era atteso minore o " +"uguale alla dimens. dell'argomento in ingresso #%d.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: Size %s expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: era attesa una " +"dimensione %s.\n" + +#, c-format +msgid "%s: Graph demand out of bounds.\n" +msgstr "%s: Grafico della richiesta fuori dai limiti.\n" + +msgid "Correlations Circle" +msgstr "Cerchio delle correlazioni" + +msgid "Eigenvalues" +msgstr "Autovalori" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or a positive " +"integer expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: era atteso '%s, '%s, " +"'%s o un intero positivo.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d.\n" +msgstr "%s: L'argomento in ingresso #%d ha una dimensione sbagliata.\n" + +#, c-format +msgid "" +"%s: Wrong value for %d input argument: '%s', '%s', %d or %d expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: era atteso '%s', " +"'%s', %d o %d.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Vector, matrix of numbers or strings " +"expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d è di tipo sbagliato: era atteso un vettore, " +"una matrice di numeri o delle stringhe.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: '%s' or '%s' expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: era atteso '%s' o " +"'%s'.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Real number between %d to %d " +"expected.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: era atteso un numero " +"reale compreso tra %d e %d.\n" + +#, c-format +msgid "Wrong value for input argument orien: %s.\n" +msgstr "L'argomento in ingresso orien ha un valore sbagliato: %s.\n" + +#, c-format +msgid "Size of x is zero : returning NaN.\n" +msgstr "La grandezza di x è zero : verrà restituito un NaN.\n" + +#, c-format +msgid "discard=%s\n" +msgstr "discard=%s\n" + +#, c-format +msgid "orien=%s\n" +msgstr "orien=%s\n" + +#, c-format +msgid "Size of x:%i\n" +msgstr "Dimensione di x:%i\n" + +#, c-format +msgid "Keeping %i values from %i to %i in sorted order\n" +msgstr "Mantenendo %i valori da %i a %i in ordine raggruppato\n" + +#, c-format +msgid "Unexpected value of orien : %s\n" +msgstr "Valore inatteso di orien : %s\n" + +#, c-format +msgid "%s: Wrong value of m : a priori mean expected.\n" +msgstr "%s: Il valore di m è sbagliato: era attesa una media a priori.\n" + +#, c-format +msgid "" +"%s: The significance of input argument #%d has been modified. Please refer " +"to the variance help page.\n" +msgstr "" +"%s: La significanza dell'argomento in ingresso #%d è stata cambiata. " +"Consultare la pagina di aiuto sulla varianza.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be > %d.\n" +msgstr "" +"%s: L'argomento in ingresso #%d ha un valore sbagliato: deve essere >%d.\n" diff --git a/modules/statistics/locales/ja_JP.po b/modules/statistics/locales/ja_JP.po new file mode 100755 index 000000000..d508413ed --- /dev/null +++ b/modules/statistics/locales/ja_JP.po @@ -0,0 +1,640 @@ +# Japanese translation for scilab +# Copyright (c) 2009 Rosetta Contributors and Canonical Ltd 2009 +# This file is distributed under the same license as the scilab package. +# FIRST AUTHOR <EMAIL@ADDRESS>, 2009. +# +msgid "" +msgstr "" +"Project-Id-Version: scilab\n" +"Report-Msgid-Bugs-To: <localization@lists.scilab.org>\n" +"POT-Creation-Date: 2013-04-16 17:44+0100\n" +"PO-Revision-Date: 2014-09-22 12:16+0000\n" +"Last-Translator: Rui Hirokawa <Unknown>\n" +"Language-Team: Japanese <z-saito@guitar.ocn.ne.jp>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" +"X-Generator: Launchpad (build 17413)\n" +"X-Poedit-Country: Japan\n" +"Language: ja\n" +"X-Poedit-Language: Japanese\n" + +# +# File: sci_gateway/c/sci_cdfbet.c, line: 44 +msgid "X,Y,A and B" +msgstr "X,Y,A 㨠B" + +# +# File: sci_gateway/c/sci_cdfbet.c, line: 50 +msgid "A,B,P and Q" +msgstr "A,B,P 㨠Q" + +# +# File: sci_gateway/c/sci_cdfbet.c, line: 56 +msgid "B,P,Q,X and Y" +msgstr "B,P,Q,X 㨠Y" + +# +# File: sci_gateway/c/sci_cdfbet.c, line: 62 +msgid "P,Q,X,Y and A" +msgstr "P,Q,X,Y 㨠A" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: '%s', '%s', '%s' ã¾ãŸã¯ '%s' を指定ã—ã¦ãã ã•ã„.\n" + +# +# File: sci_gateway/c/sci_cdfbin.c, line: 44 +msgid "S,Xn,Pr and Ompr" +msgstr "S,Xn,Pr 㨠Ompr" + +# +# File: sci_gateway/c/sci_cdfbin.c, line: 50 +msgid "Xn,Pr,Ompr,P and Q" +msgstr "Xn,Pr,Ompr,P 㨠Q" + +# +# File: sci_gateway/c/sci_cdfbin.c, line: 56 +msgid "Pr,OMPr,P,Q and S" +msgstr "Pr,OMPr,P,Q 㨠S" + +# +# File: sci_gateway/c/sci_cdfbin.c, line: 62 +msgid "P,Q,S and Xn" +msgstr "P,Q,S 㨠Xn" + +#, c-format +msgid "" +"%s: Warning: using non integer values for argument #%d may lead to incorrect " +"results.\n" +msgstr "%s: è¦å‘Š: 引数 #%d ã«éžæ•´æ•°å€¤ã‚’使用ã™ã‚‹ã¨çµæžœãŒä¸æ£ç¢ºã«ãªã‚‹å¯èƒ½æ€§ãŒã‚ã‚Šã¾ã™.\n" + +# +# File: sci_gateway/c/sci_cdfchi.c, line: 43 +msgid "X and Df" +msgstr "X 㨠Df" + +# +# File: sci_gateway/c/sci_cdfchi.c, line: 49 +# File: sci_gateway/c/sci_cdft.c, line: 46 +msgid "Df, P and Q" +msgstr "Df, P 㨠Q" + +# +# File: sci_gateway/c/sci_cdfchi.c, line: 55 +msgid "P,Q and X" +msgstr "P,Q 㨠X" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s' or '%s' expected.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: '%s', '%s' ã¾ãŸã¯ '%s' を指定ã—ã¦ãã ã•ã„.\n" + +# +# File: sci_gateway/c/sci_cdfchi.c, line: 73 +msgid "cdfchi: Error in cumgam\n" +msgstr "cdfchi: cumgam ã®èª¤ã‚Š\n" + +# +# File: sci_gateway/c/sci_cdfchn.c, line: 39 +msgid "X,Df and Pnonc" +msgstr "X,Df 㨠Pnonc" + +# +# File: sci_gateway/c/sci_cdfchn.c, line: 45 +msgid "Df,Pnonc,P and Q" +msgstr "Df,Pnonc,P 㨠Q" + +# +# File: sci_gateway/c/sci_cdfchn.c, line: 51 +msgid "Pnonc,P,Q and X" +msgstr "Pnonc,P,Q 㨠X" + +# +# File: sci_gateway/c/sci_cdfchn.c, line: 57 +msgid "P,Q,X and Df" +msgstr "P,Q,X 㨠Df" + +# +# File: sci_gateway/c/sci_cdff.c, line: 41 +msgid "F,Dfn and Dfd" +msgstr "F,Dfn 㨠Dfd" + +# +# File: sci_gateway/c/sci_cdff.c, line: 47 +msgid "Dfn,Dfd,P and Q" +msgstr "Dfn,Dfd,P 㨠Q" + +# +# File: sci_gateway/c/sci_cdff.c, line: 53 +msgid "Dfd,P,Q and F" +msgstr "Dfd,P,Q 㨠F" + +# +# File: sci_gateway/c/sci_cdff.c, line: 59 +msgid "P,Q,F and Dfn" +msgstr "P,Q,F 㨠Dfn" + +# +# File: sci_gateway/c/sci_cdffnc.c, line: 41 +msgid "F,Dfn,Dfd and Pnonc" +msgstr "F,Dfn,Dfd 㨠Pnonc" + +# +# File: sci_gateway/c/sci_cdffnc.c, line: 47 +msgid "Dfn,Dfd,Pnonc,P and Q" +msgstr "Dfn,Dfd,Pnonc,P 㨠Q" + +# +# File: sci_gateway/c/sci_cdffnc.c, line: 53 +msgid "Dfd,Pnonc,P,Q and F" +msgstr "Dfd,Pnonc,P,Q 㨠F" + +# +# File: sci_gateway/c/sci_cdffnc.c, line: 59 +msgid "Pnonc,P,Q,F and Dfn" +msgstr "Pnonc,P,Q,F 㨠Dfn" + +# +# File: sci_gateway/c/sci_cdffnc.c, line: 65 +msgid "P,Q,F,Dfn and Dfd" +msgstr "P,Q,F,Dfn 㨠Dfd" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', '%s' or '%s' " +"expected.\n" +msgstr "" +"%s: 入力引数 #%d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: '%s', '%s', '%s', '%s' ã¾ãŸã¯ '%s' を指定ã—ã¦ãã ã•ã„.\n" + +msgid "X,Shape and Rate" +msgstr "X, Shape ãŠã‚ˆã³ Rate" + +msgid "Shape,Rate,P and Q" +msgstr "Shape,Rate,P ãŠã‚ˆã³ Q" + +msgid "Rate,P,Q and X" +msgstr "レート,P,QãŠã‚ˆã³X" + +# +# File: sci_gateway/c/sci_cdfgam.c, line: 60 +msgid "P,Q,X and Shape" +msgstr "P,Q,X 㨠形状" + +# +# File: sci_gateway/c/sci_cdfnbn.c, line: 43 +msgid "S,XN,PR and OMPR" +msgstr "S,XN,PR 㨠OMPR" + +# +# File: sci_gateway/c/sci_cdfnbn.c, line: 49 +msgid "XN,PR,OMPR,P and Q" +msgstr "XN,PR,OMPR,P 㨠Q" + +# +# File: sci_gateway/c/sci_cdfnbn.c, line: 55 +msgid "PR,OMPR,P,Q and S" +msgstr "PR,OMPR,P,Q 㨠S" + +# +# File: sci_gateway/c/sci_cdfnbn.c, line: 62 +msgid "P,Q,S and Xn" +msgstr "P,Q,S 㨠Xn" + +msgid "X,Mean and Std" +msgstr "X, å¹³å‡ãŠã‚ˆã³æ¨™æº–åå·®" + +# +# File: sci_gateway/c/sci_cdfnor.c, line: 48 +msgid "Mean,Std,P and Q" +msgstr "å¹³å‡,Std,P 㨠Q" + +# +# File: sci_gateway/c/sci_cdfnor.c, line: 54 +msgid "Std,P,Q and X" +msgstr "Std,P,Q 㨠X" + +# +# File: sci_gateway/c/sci_cdfnor.c, line: 60 +msgid "P,Q,X and Mean" +msgstr "P,Q,X 㨠平å‡" + +msgid " Std must not be zero\n" +msgstr " std ã¯ã‚¼ãƒä»¥å¤–ã«ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: A matrix of integer values " +"expected.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: 整数値ã®è¡Œåˆ—を指定ã—ã¦ãã ã•ã„.\n" + +# +# File: sci_gateway/c/sci_cdfpoi.c, line: 41 +msgid "S and Xlam" +msgstr "S 㨠Xlam" + +# +# File: sci_gateway/c/sci_cdfpoi.c, line: 47 +msgid "Xlam,P and Q" +msgstr "Xlam,P 㨠Q" + +# +# File: sci_gateway/c/sci_cdfpoi.c, line: 53 +msgid "P,Q and S" +msgstr "P,Q 㨠S" + +# +# File: sci_gateway/c/sci_cdft.c, line: 40 +msgid "T and Df" +msgstr "T 㨠Df" + +# +# File: sci_gateway/c/sci_cdft.c, line: 52 +msgid "P,Q and T" +msgstr "P,Q 㨠T" + +#, c-format +msgid "" +"%s: Wrong number of input arguments with the '%s' option: %d expected.\n" +msgstr "%s: '%s' オプションを有ã™ã‚‹å…¥åŠ›å¼•æ•°ã®æ•°ãŒé–“é•ã£ã¦ã„ã¾ã™: %d 個ã®å¼•æ•°ã‚’指定ã—ã¦ãã ã•ã„.\n" + +# +# File: src/c/CdfBase.c, line: 36 +#, c-format +msgid "%s and %s must have same size.\n" +msgstr "%s 㨠%s ã¯ã€ã‚µã‚¤ã‚ºãŒä¸€è‡´ã—ãªãã¦ã¯ã„ã‘ã¾ã›ã‚“。\n" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %g\n" +msgstr "解ãŒæŽ¢ç´¢åŸŸã®ä¸‹é™ %g よりもå°ã•ã„よã†ã§ã™\n" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %f\n" +msgstr "解ãŒæŽ¢ç´¢ç¯„囲ã®ä¸‹é™ %f よりもå°ã•ããªã£ã¦ã„ã¾ã™.\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %s\n" +msgstr "探索範囲ã®ä¸Šé™ %s よりも大ããªè§£ãŒå¾—られã¾ã—ãŸ\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %f\n" +msgstr "解ãŒæŽ¢ç´¢ç¯„囲ã®ä¸Šé™ %f よりも大ãããªã£ã¦ã„ã¾ã™.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d expected.\n" +msgstr "%s: 入力引数ã®æ•°ã«èª¤ã‚ŠãŒã‚ã‚Šã¾ã™: %d 個ã®å¼•æ•°ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real expected.\n" +msgstr "%s: 入力引数 #%d ã®åž‹ãŒé–“é•ã£ã¦ã„ã¾ã™: 実数を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: An integer expected.\n" +msgstr "%s: 入力引数 #%d ã®åž‹ãŒé–“é•ã£ã¦ã„ã¾ã™: 整数を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: A real expected.\n" +msgstr "%s: 入力引数 #%d ã®å¤§ãã•ãŒé–“é•ã£ã¦ã„ã¾ã™: 実数を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: An integer expected.\n" +msgstr "%s: 入力引数 #%d ã®å¤§ãã•ãŒé–“é•ã£ã¦ã„ã¾ã™: 整数を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be between %d and %d.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: %d ãŠã‚ˆã³ %d ã®é–“ã®å€¤ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Integer >= %d expected.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: %d 以上ã®æ•´æ•°ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d to %d expected.\n" +msgstr "%s: 入力引数ã®æ•°ãŒé–“é•ã£ã¦ã„ã¾ã™: %d ã‹ã‚‰ %d 個ã®å¼•æ•°ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', %d or %d expected.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: '%s', '%s', %d ã¾ãŸã¯ %d を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Vector expected.\n" +msgstr "%s: 入力引数 #%d ã®åž‹ãŒé–“é•ã£ã¦ã„ã¾ã™: ベクトルを指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Incompatible input arguments #%d and #%d: Same sizes expected" +msgstr "%s: 入力引数 #%d ãŠã‚ˆã³ #%d ã«äº’æ›æ€§ãŒã‚ã‚Šã¾ã›ã‚“: åŒã˜å¤§ãã•ã‚’指定ã—ã¦ãã ã•ã„" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of line as first input " +"argument expected.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: 最åˆã®å…¥åŠ›å¼•æ•°ã®è¡Œã®æ•°ã‚’åŒã˜ã«ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of column as first input " +"argument expected.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: 最åˆã®å…¥åŠ›å¼•æ•°ã®åˆ—ã®æ•°ã‚’åŒã˜ã«ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: a real matrix expected.\n" +msgstr "%s: 入力引数 #%d ã®åž‹ãŒé–“é•ã£ã¦ã„ã¾ã™: 実数行例を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: an integer or a real matrix " +"expected.\n" +msgstr "%s: 入力引数 #%d ã®åž‹ãŒé–“é•ã£ã¦ã„ã¾ã™: æ•´æ•°ã¾ãŸã¯å®Ÿæ•°è¡Œä¾‹ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: %d or %d expected.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: %d ã¾ãŸã¯ %d を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: %dx%d expected.\n" +msgstr "%s: 入力引数 #%d ã®å¤§ãã•ãŒé–“é•ã£ã¦ã„ã¾ã™: %dx%d を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: an integer expected.\n" +msgstr "%s: 入力引数 #%d ã®åž‹ãŒé–“é•ã£ã¦ã„ã¾ã™: 整数を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d, %d or %d expected.\n" +msgstr "%s: 入力引数ã®æ•°ãŒé–“é•ã£ã¦ã„ã¾ã™: %d, %d ã¾ãŸã¯ %d を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d expected.\n" +msgstr "%s: 入力引数ã®æ•°ãŒé–“é•ã£ã¦ã„ã¾ã™: %d 個ã®å¼•æ•°ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: At least %d expected.\n" +msgstr "%s: 入力引数ã®æ•°ãŒæ£ã—ãã‚ã‚Šã¾ã›ã‚“: %d 個以上ã®å¼•æ•°ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): At least %d expected.\n" +msgstr "%s: 入力引数ã®æ•°ãŒé–“é•ã£ã¦ã„ã¾ã™: %d 個以上ã®å¼•æ•°ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong type of input argument #%d: A single boolean expected.\n" +msgstr "%s: 入力引数 #%d ã®åž‹ãŒé–“é•ã£ã¦ã„ã¾ã™: è«–ç†å€¤ã‚’1ã¤æŒ‡å®šã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real matrix expected.\n" +msgstr "%s: 入力引数 #%d ã®åž‹ãŒé–“é•ã£ã¦ã„ã¾ã™: 実数ã®è¡Œåˆ—を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the interval %s.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: 範囲 %s ã¨ã™ã‚‹å¿…è¦ãŒã‚ã‚Šã¾ã™.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Integer expected.\n" +msgstr "%s: 入力引数 #%d ã®åž‹ãŒé–“é•ã£ã¦ã„ã¾ã™: 整数を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Wrong values for input argument #%d: Elements must be in increasing " +"order.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒæ£ã—ãã‚ã‚Šã¾ã›ã‚“: è¦ç´ ã¯æ˜‡é †ã¨ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong number of input argument: At least %d expected.\n" +msgstr "%s: 入力引数ã®æ•°ãŒé–“é•ã£ã¦ã„ã¾ã™: %d 個以上ã®å¼•æ•°ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A column vector or matrix " +"expected.\n" +msgstr "%s: 入力引数 #%d ã®æ¬¡å…ƒãŒé–“é•ã£ã¦ã„ã¾ã™: 列ベクトルã¾ãŸã¯è¡Œåˆ—を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A row vector or matrix " +"expected.\n" +msgstr "%s: 入力引数 #%d ã®æ¬¡å…ƒãŒé–“é•ã£ã¦ã„ã¾ã™: 行ベクトルã¾ãŸã¯è¡Œåˆ—を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', %d, '%s' or %d expected.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: '%s', %d, '%s'ã¾ãŸã¯ %dを指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong number of input argument: %d to %d expected.\n" +msgstr "%s: 入力引数ã®æ•°ãŒé–“é•ã£ã¦ã„ã¾ã™: %d ã‹ã‚‰ %d 個ã®å¼•æ•°ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real vector or matrix expected.\n" +msgstr "%s: 入力引数 #%d ã®åž‹ãŒé–“é•ã£ã¦ã„ã¾ã™: 実数ベクトルã¾ãŸã¯è¡Œåˆ—を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d.\n" +msgstr "%s: 入力引数 #%d ã®åž‹ãŒé–“é•ã£ã¦ã„ã¾ã™.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Scalar or vector expected.\n" +msgstr "%s: 入力引数 #%d ã®åž‹ãŒé–“é•ã£ã¦ã„ã¾ã™: スカラーã¾ãŸã¯ãƒ™ã‚¯ãƒˆãƒ«ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: A full or sparse matrix, or an " +"integer matrix, or an hypermat expected.\n" +msgstr "%s: 入力引数 #%d ã®åž‹ãŒé–“é•ã£ã¦ã„ã¾ã™: 通常ã¾ãŸã¯ç–Žã®è¡Œåˆ—ã¾ãŸã¯æ•´æ•°è¡Œåˆ—ã¾ãŸã¯ãƒã‚¤ãƒ‘ー行列を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Wrong size for input arguments #%d and #%d: Same dimensions expected.\n" +msgstr "%s: 入力引数 #%d ãŠã‚ˆã³ #%d ã®å¤§ãã•ãŒé–“é•ã£ã¦ã„ã¾ã™: åŒã˜æ¬¡å…ƒã§æŒ‡å®šã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d or %d expected.\n" +msgstr "%s: 入力引数ã®æ•°ãŒé–“é•ã£ã¦ã„ã¾ã™: %d ã¾ãŸã¯ %d 個ã®å¼•æ•°ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s','%s' or a positive number " +"expected.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: '%s', '%s','%s' ã¾ãŸã¯ æ£ã®æ•°å€¤ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong number of input argument: %d expected.\n" +msgstr "%s: 入力引数ã®æ•°ãŒé–“é•ã£ã¦ã„ã¾ã™: %d 個ã®å¼•æ•°ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong number of output argument: %d expected.\n" +msgstr "%s: 出力引数ã®æ•°ãŒé–“é•ã£ã¦ã„ã¾ã™: %d 個ã®å¼•æ•°ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d to %d expected.\n" +msgstr "%s: 入力引数ã®æ•°ãŒé–“é•ã£ã¦ã„ã¾ã™: %d ã‹ã‚‰ %d 個ã®å¼•æ•°ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real or complex, boolean, polynomial " +"matrix expected.\n" +msgstr "%s: 入力引数 #%d ã®åž‹ãŒé–“é•ã£ã¦ã„ã¾ã™: 実数ã¾ãŸã¯è¤‡ç´ æ•°, è«–ç†å€¤, å¤šé …å¼è¡Œåˆ—を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A string or scalar expected.\n" +msgstr "%s: 入力引数 #%d ã®åž‹ãŒé–“é•ã£ã¦ã„ã¾ã™: æ–‡å—列ã¾ãŸã¯ã‚¹ã‚«ãƒ©ãƒ¼ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the set {%s}.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒæ£ã—ãã‚ã‚Šã¾ã›ã‚“: é›†åˆ {%s} ã«å«ã¾ã‚Œã‚‹å€¤ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', %d or %d " +"expected.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: ''%s', '%s', '%s', %d ã¾ãŸã¯ %d を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong type for input arguments #%d: Numerical expected.\n" +msgstr "%s: 入力引数 #%d ã®åž‹ãŒé–“é•ã£ã¦ã„ã¾ã™: 数値を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Incompatible input arguments #%d and #%d: Same column dimensions " +"expected.\n" +msgstr "%s: 入力引数 #%d 㨠#%d ã«äº’æ›æ€§ãŒã‚ã‚Šã¾ã›ã‚“: 列ã®æ•°ã‚’åŒã˜ã«ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: No NaNs detected, please use %s() instead.\n" +msgstr "%s: NaNãŒæ¤œå‡ºã§ãã¾ã›ã‚“ã§ã—ãŸ, ã‹ã‚ã‚Šã« %s() を使用ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Numerical expected.\n" +msgstr "%s: 入力引数 #%d ã®åž‹ãŒé–“é•ã£ã¦ã„ã¾ã™: 数値を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d or %d expected.\n" +msgstr "%s: 入力引数ã®æ•°ãŒé–“é•ã£ã¦ã„ã¾ã™: %d ã¾ãŸã¯ %d 個ã®å¼•æ•°ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Boolean expected." +msgstr "%s: 入力引数 #%d ã®åž‹ãŒé–“é•ã£ã¦ã„ã¾ã™: è«–ç†å€¤ã‚’指定ã—ã¦ãã ã•ã„." + +#, c-format +msgid "%s: NaNs detected, please use %s() instead.\n" +msgstr "%s: NaNãŒæ¤œå‡ºã•ã‚Œã¾ã—ãŸ, ã‹ã‚ã‚Šã« %s() を使用ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Non-negative values expected.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: éžè² ã®å€¤ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d and #%d: Same size expected.\n" +msgstr "%s: 入力引数 #%d ãŠã‚ˆã³ #%d ã®å¤§ãã•ãŒé–“é•ã£ã¦ã„ã¾ã™: åŒã˜å¤§ãã•ã¨ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of rows of the second " +"input argument expected.\n" +msgstr "%s: 入力引数 #%d ã®å¤§ãã•ãŒé–“é•ã£ã¦ã„ã¾ã™: 2番目ã®å…¥åŠ›å¼•æ•°ã®è¡Œã®æ•°ã‚’åŒã˜ã«ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of columns of the second " +"input argument expected.\n" +msgstr "%s: 入力引数 #%d ã®å¤§ãã•ãŒé–“é•ã£ã¦ã„ã¾ã™: 2番目ã®å…¥åŠ›å¼•æ•°ã®åˆ—ã®æ•°ã‚’åŒã˜ã«ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Wrong value of input argument #%d: Lower than or equal to size of input " +"argument #%d expected.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: 入力引数 #%d 以下ã®å€¤ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: Size %s expected.\n" +msgstr "%s: 入力引数 #%d ã®å¤§ãã•ãŒé–“é•ã£ã¦ã„ã¾ã™: 大ãã•ã‚’ %s ã«ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Graph demand out of bounds.\n" +msgstr "%s: グラフã®æŒ‡å®šå€¤ãŒç¯„囲外ã§ã™.\n" + +# +# File: macros/show_pca.sci, line: 53 +msgid "Correlations Circle" +msgstr "相関円" + +msgid "Eigenvalues" +msgstr "固有値" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or a positive " +"integer expected.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: '%s', '%s', '%s' ã¾ãŸã¯æ£ã®æ•´æ•°ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d.\n" +msgstr "%s: 入力引数 #%d ã®å¤§ãã•ãŒé–“é•ã£ã¦ã„ã¾ã™.\n" + +#, c-format +msgid "" +"%s: Wrong value for %d input argument: '%s', '%s', %d or %d expected.\n" +msgstr "%s: 入力引数 %d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: '%s', '%s', %d ã¾ãŸã¯ %d を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Vector, matrix of numbers or strings " +"expected.\n" +msgstr "%s: 入力引数 #%d ã®åž‹ãŒé–“é•ã£ã¦ã„ã¾ã™: 数値ã¾ãŸã¯æ–‡å—列ã®ãƒ™ã‚¯ãƒˆãƒ«/行列を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: '%s' or '%s' expected.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: '%s' ã¾ãŸã¯ '%s' を指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Real number between %d to %d " +"expected.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: %d ã‹ã‚‰ %d ã®ç¯„囲ã®å®Ÿæ•°ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "Wrong value for input argument orien: %s.\n" +msgstr "入力引数 orien ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: %s.\n" + +# +# File: macros/trimmean.sci, line: 103 +#, c-format +msgid "Size of x is zero : returning NaN.\n" +msgstr "xã®ã‚µã‚¤ã‚ºã¯ã‚¼ãƒã§ã™ : NaNã‚’è¿”ã—ã¾ã™ã€‚\n" + +#, c-format +msgid "discard=%s\n" +msgstr "discard=%s\n" + +#, c-format +msgid "orien=%s\n" +msgstr "orien=%s\n" + +# +# File: macros/trimmean.sci, line: 119 +#, c-format +msgid "Size of x:%i\n" +msgstr "xã®ã‚µã‚¤ã‚º:%i\n" + +#, c-format +msgid "Keeping %i values from %i to %i in sorted order\n" +msgstr "%2$i ã‹ã‚‰ %3$i ã¾ã§ã® %1$i 個ã®å€¤ã‚’ソートã—ã¦ä¿æŒã—ã¾ã™.\n" + +#, c-format +msgid "Unexpected value of orien : %s\n" +msgstr "orien ã«æƒ³å®šå¤–ã®å€¤ãŒæŒ‡å®šã•ã‚Œã¾ã—ãŸ: %s\n" + +#, c-format +msgid "%s: Wrong value of m : a priori mean expected.\n" +msgstr "%s: m ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: å¹³å‡ã®äºˆæ¸¬å€¤ã‚’指定ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "" +"%s: The significance of input argument #%d has been modified. Please refer " +"to the variance help page.\n" +msgstr "%s: 入力引数 #%d ã®æœ‰æ„性ãŒä¿®æ£ã•ã‚Œã¾ã—ãŸ. varianceã®ãƒ˜ãƒ«ãƒ—ページをå‚ç…§ã—ã¦ãã ã•ã„.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be > %d.\n" +msgstr "%s: 入力引数 #%d ã®å€¤ãŒé–“é•ã£ã¦ã„ã¾ã™: %d より大ãã„値を指定ã—ã¦ãã ã•ã„.\n" diff --git a/modules/statistics/locales/pl_PL.po b/modules/statistics/locales/pl_PL.po new file mode 100755 index 000000000..dfe8d86d8 --- /dev/null +++ b/modules/statistics/locales/pl_PL.po @@ -0,0 +1,606 @@ +# Polish translation for scilab +# Copyright (c) 2010 Rosetta Contributors and Canonical Ltd 2010 +# This file is distributed under the same license as the scilab package. +# FIRST AUTHOR <EMAIL@ADDRESS>, 2010. +# +msgid "" +msgstr "" +"Project-Id-Version: scilab\n" +"Report-Msgid-Bugs-To: <localization@lists.scilab.org>\n" +"POT-Creation-Date: 2013-04-16 17:44+0100\n" +"PO-Revision-Date: 2012-10-25 20:41+0000\n" +"Last-Translator: Grzegorz Szostek <Unknown>\n" +"Language-Team: Polish <pl@li.org>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" +"X-Generator: Launchpad (build 17413)\n" +"Language: pl\n" + +msgid "X,Y,A and B" +msgstr "X,Y,A i B" + +msgid "A,B,P and Q" +msgstr "A,B,P i Q" + +msgid "B,P,Q,X and Y" +msgstr "B,P,Q,X i Y" + +msgid "P,Q,X,Y and A" +msgstr "P,Q,X,Y i A" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n" +msgstr "" +"%s: NieprawidÅ‚owa wartość parametru wejÅ›ciowego nr %d: oczekiwano '%s', " +"'%s', '%s' lub '%s'.\n" + +msgid "S,Xn,Pr and Ompr" +msgstr "S,Xn,Pr i Ompr" + +msgid "Xn,Pr,Ompr,P and Q" +msgstr "Xn,Pr,Ompr,P i Q" + +msgid "Pr,OMPr,P,Q and S" +msgstr "Pr,OMPr,P,Q i S" + +msgid "P,Q,S and Xn" +msgstr "P,Q,S i Xn" + +#, c-format +msgid "" +"%s: Warning: using non integer values for argument #%d may lead to incorrect " +"results.\n" +msgstr "" + +msgid "X and Df" +msgstr "X i Df" + +msgid "Df, P and Q" +msgstr "Df, P i Q" + +msgid "P,Q and X" +msgstr "P,Q i X" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s' or '%s' expected.\n" +msgstr "" +"%s: NieprawidÅ‚owa wartość parametru wejÅ›ciowego nr %d: oczekiwano '%s', '%s' " +"lub '%s'.\n" + +msgid "cdfchi: Error in cumgam\n" +msgstr "cdfchi: BÅ‚Ä…d w cumgam\n" + +msgid "X,Df and Pnonc" +msgstr "X,Df i Pnonc" + +msgid "Df,Pnonc,P and Q" +msgstr "Df,Pnonc,P i Q" + +msgid "Pnonc,P,Q and X" +msgstr "Pnonc,P,Q i X" + +msgid "P,Q,X and Df" +msgstr "P,Q,X i Df" + +msgid "F,Dfn and Dfd" +msgstr "F,Dfn i Dfd" + +msgid "Dfn,Dfd,P and Q" +msgstr "Dfn,Dfd,P i Q" + +msgid "Dfd,P,Q and F" +msgstr "Dfd,P,Q i F" + +msgid "P,Q,F and Dfn" +msgstr "P,Q,F i Dfn" + +msgid "F,Dfn,Dfd and Pnonc" +msgstr "F,Dfn,Dfd i Pnonc" + +msgid "Dfn,Dfd,Pnonc,P and Q" +msgstr "Dfn,Dfd,Pnonc,P i Q" + +msgid "Dfd,Pnonc,P,Q and F" +msgstr "Dfd,Pnonc,P,Q i F" + +msgid "Pnonc,P,Q,F and Dfn" +msgstr "Pnonc,P,Q,F i Dfn" + +msgid "P,Q,F,Dfn and Dfd" +msgstr "P,Q,F,Dfn i Dfd" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', '%s' or '%s' " +"expected.\n" +msgstr "" +"%s: NieprawidÅ‚owa wartość argumentu wejÅ›ciowego nr %d: Oczekuje '%s', '%s', " +"'%s', '%s' lub '%s'.\n" + +msgid "X,Shape and Rate" +msgstr "X, ksztaÅ‚t i wartość" + +msgid "Shape,Rate,P and Q" +msgstr "KsztaÅ‚t, wartość, P i Q" + +msgid "Rate,P,Q and X" +msgstr "Wartość,P,Q i X" + +msgid "P,Q,X and Shape" +msgstr "P,Q,X i KsztaÅ‚t" + +msgid "S,XN,PR and OMPR" +msgstr "S,XN,PR i OMPR" + +msgid "XN,PR,OMPR,P and Q" +msgstr "XN,PR,OMPR,P i Q" + +msgid "PR,OMPR,P,Q and S" +msgstr "PR,OMPR,P,Q i S" + +msgid "P,Q,S and Xn" +msgstr "P,Q,S i Xn" + +msgid "X,Mean and Std" +msgstr "X,Åšrednia i Std" + +msgid "Mean,Std,P and Q" +msgstr "Mean,Std,P i Q" + +msgid "Std,P,Q and X" +msgstr "Std,P,Q i X" + +msgid "P,Q,X and Mean" +msgstr "P,Q,X i Åšrednia" + +msgid " Std must not be zero\n" +msgstr " Std nie może być zerem.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: A matrix of integer values " +"expected.\n" +msgstr "" + +msgid "S and Xlam" +msgstr "S oraz Xlam" + +msgid "Xlam,P and Q" +msgstr "Xlam,P i Q" + +msgid "P,Q and S" +msgstr "P,Q i S" + +msgid "T and Df" +msgstr "T i Df" + +msgid "P,Q and T" +msgstr "P,Q i T" + +#, c-format +msgid "" +"%s: Wrong number of input arguments with the '%s' option: %d expected.\n" +msgstr "" +"%s: NieprawidÅ‚owa liczba parametrów wejÅ›ciowych z opcjÄ… '%s': Oczekiwano " +"%d.\n" + +#, c-format +msgid "%s and %s must have same size.\n" +msgstr "%s i %s muszÄ… mieć ten sam rozmiar.\n" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %g\n" +msgstr "" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %f\n" +msgstr "Odpowiedź jest mniejsza niż dolna granica wyszukiwania %f\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %s\n" +msgstr "Wynik przekracza górnÄ… granicÄ™ wyszukiwania %s\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %f\n" +msgstr "Odpowiedź jest wiÄ™ksza niż górna granica wyszukiwania %f\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: An integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: A real expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: An integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be between %d and %d.\n" +msgstr "" +"%s: NieprawidÅ‚owa wartość argumentu wejÅ›ciowego nr %d: musi być pomiÄ™dzy %d " +"i %d.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Integer >= %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input arguments: %d to %d expected.\n" +msgstr "" +"%s: NieprawidÅ‚owa liczba argumentów wejÅ›ciowych: oczekiwano od %d do %d.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', %d or %d expected.\n" +msgstr "" +"%s: NieprawidÅ‚owa wartość argumentu wejÅ›ciowego nr %d: Oczekuje '%s', '%s', " +"%d lub %d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Vector expected.\n" +msgstr "" +"%s: NieprawidÅ‚owy typ argumentu wejÅ›ciowego nr %d: Oczekuje wektora.\n" + +#, c-format +msgid "%s: Incompatible input arguments #%d and #%d: Same sizes expected" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of line as first input " +"argument expected.\n" +msgstr "" +"%s: NieprawidÅ‚owa wartość argumentu wejÅ›ciowego nr %d: Oczekuje takÄ… samÄ… " +"liczbÄ™ wierszy jak pierwszy argument wejÅ›ciowy.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of column as first input " +"argument expected.\n" +msgstr "" +"%s: NieprawidÅ‚owa wartość argumentu wejÅ›ciowego nr %d: Oczekuje takÄ… samÄ… " +"liczbÄ™ kolumn jak pierwszy argument wejÅ›ciowy.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: a real matrix expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: an integer or a real matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: %dx%d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: an integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d, %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input arguments: %d expected.\n" +msgstr "%s: NieprawidÅ‚owa liczba argumentów wejÅ›ciowych: oczekiwano %d.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: At least %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): At least %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type of input argument #%d: A single boolean expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real matrix expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the interval %s.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Integer expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong values for input argument #%d: Elements must be in increasing " +"order.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument: At least %d expected.\n" +msgstr "" +"%s: NieprawidÅ‚owa liczba argumentów wejÅ›ciowych: Oczekiwano przynajmniej " +"%d.\n" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A column vector or matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A row vector or matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', %d, '%s' or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument: %d to %d expected.\n" +msgstr "" +"%s: NieprawidÅ‚owa liczba argumentów wejÅ›ciowych: oczekiwano od %d do %d.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real vector or matrix expected.\n" +msgstr "" +"%s: NieprawidÅ‚owy typ argumentu wejÅ›ciowego nr %d: Oczekuje wektora liczb " +"rzeczywistych lub macierzy.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d.\n" +msgstr "%s: NieprawidÅ‚owy typ dla argumentu wejÅ›ciowego nr %d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Scalar or vector expected.\n" +msgstr "" +"%s: NieprawidÅ‚owy typ argumentu wejÅ›ciowego nr %d: Oczekuje liczby skalarnej " +"lub wektora.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: A full or sparse matrix, or an " +"integer matrix, or an hypermat expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong size for input arguments #%d and #%d: Same dimensions expected.\n" +msgstr "" +"%s: NieprawidÅ‚owy rozmiar argumentu wejÅ›ciowego nr %d i nr %d: Oczekuje " +"takich samych wymiarów.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s','%s' or a positive number " +"expected.\n" +msgstr "" +"%s: NieprawidÅ‚owa wartość argumentu wejÅ›ciowego nr %d: Oczekuje '%s', '%s', " +"'%s' lub liczby dodatniej.\n" + +#, c-format +msgid "%s: Wrong number of input argument: %d expected.\n" +msgstr "%s: NieprawidÅ‚owa liczba argumentów wejÅ›ciowych: oczekiwano %d.\n" + +#, c-format +msgid "%s: Wrong number of output argument: %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d to %d expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real or complex, boolean, polynomial " +"matrix expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A string or scalar expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the set {%s}.\n" +msgstr "" +"%s: NieprawidÅ‚owa wartość parametru wejÅ›ciowego nr %d: Musi być ze zbioru " +"{%s}.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', %d or %d " +"expected.\n" +msgstr "" +"%s: NieprawidÅ‚owa wartość argumentu wejÅ›ciowego nr %d: Oczekuje '%s', '%s', " +"'%s', %d lub %d.\n" + +#, c-format +msgid "%s: Wrong type for input arguments #%d: Numerical expected.\n" +msgstr "%s: NieprawidÅ‚owy typ argumentu wejÅ›ciowego nr %d: Oczekuje liczb.\n" + +#, c-format +msgid "" +"%s: Incompatible input arguments #%d and #%d: Same column dimensions " +"expected.\n" +msgstr "" + +#, c-format +msgid "%s: No NaNs detected, please use %s() instead.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Numerical expected.\n" +msgstr "" +"%s: NieprawidÅ‚owy typ argumentu wejÅ›ciowego nr %d: Oczekuje wartoÅ›ci " +"liczbowych.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Boolean expected." +msgstr "" +"%s: NieprawidÅ‚owy typ argumentu wejÅ›ciowego nr %d: Oczekuje wartoÅ›ci " +"logicznej." + +#, c-format +msgid "%s: NaNs detected, please use %s() instead.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Non-negative values expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d and #%d: Same size expected.\n" +msgstr "" +"%s: NieprawidÅ‚owy rozmiar argumentu wejÅ›ciowego nr %d i nr %d: Oczekuje tego " +"samego rozmiaru.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of rows of the second " +"input argument expected.\n" +msgstr "" +"%s: NieprawidÅ‚owy rozmiar argumentu wejÅ›ciowego nr %d: Oczekiwany drugi " +"argument wejÅ›ciowy o takiej samej liczbie wierszy.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of columns of the second " +"input argument expected.\n" +msgstr "" +"%s: NieprawidÅ‚owy rozmiar argumentu wejÅ›ciowego nr %d: Oczekiwany drugi " +"argument wejÅ›ciowy o takiej samej liczbie kolumn.\n" + +#, c-format +msgid "" +"%s: Wrong value of input argument #%d: Lower than or equal to size of input " +"argument #%d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: Size %s expected.\n" +msgstr "" +"%s: NieprawidÅ‚owy rozmiar argumentu wejÅ›ciowego nr %d: Oczekiwany rozmiar " +"%s.\n" + +#, c-format +msgid "%s: Graph demand out of bounds.\n" +msgstr "%s: Wykres poza granicami.\n" + +msgid "Correlations Circle" +msgstr "KoÅ‚o korelacyjne" + +msgid "Eigenvalues" +msgstr "WartoÅ›ci wÅ‚asne" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or a positive " +"integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for %d input argument: '%s', '%s', %d or %d expected.\n" +msgstr "" +"%s: NieprawidÅ‚owa wartość %d argumentu wejÅ›ciowego: Oczekuje '%s', '%s', %d " +"lub %d.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Vector, matrix of numbers or strings " +"expected.\n" +msgstr "" +"%s: NieprawidÅ‚owy typ argumentu wejÅ›ciowego nr %d: Oczekuje wektora, " +"macierzy liczbowej lub ciÄ…gów znaków.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: '%s' or '%s' expected.\n" +msgstr "" +"%s: NieprawidÅ‚owa wartość argumentu wejÅ›ciowego nr %d: oczekiwany '%s' lub " +"'%s' .\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Real number between %d to %d " +"expected.\n" +msgstr "" +"%s: NieprawidÅ‚owa wartość argumentu wejÅ›ciowego nr %d: Oczekuje liczb " +"rzeczywistych z przedziaÅ‚u %d do %d.\n" + +#, c-format +msgid "Wrong value for input argument orien: %s.\n" +msgstr "NieprawidÅ‚owa wartość argumentu wejÅ›ciowego orien: %s.\n" + +#, c-format +msgid "Size of x is zero : returning NaN.\n" +msgstr "Wymiar x jest zerem: zwraca NaN.\n" + +#, c-format +msgid "discard=%s\n" +msgstr "odrzucony=%s\n" + +#, c-format +msgid "orien=%s\n" +msgstr "orientacja=%s\n" + +#, c-format +msgid "Size of x:%i\n" +msgstr "rozmiar x:%i\n" + +#, c-format +msgid "Keeping %i values from %i to %i in sorted order\n" +msgstr "Zachowuje wartość %i z %i do %i w uporzÄ…dkowanej klasyfikacji\n" + +#, c-format +msgid "Unexpected value of orien : %s\n" +msgstr "Nieoczekiwana wartość orien : %s\n" + +#, c-format +msgid "%s: Wrong value of m : a priori mean expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: The significance of input argument #%d has been modified. Please refer " +"to the variance help page.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be > %d.\n" +msgstr "" +"%s: NieprawidÅ‚owa wartość argumentu wejÅ›ciowego nr %d: musi być > %d.\n" diff --git a/modules/statistics/locales/pt_BR.po b/modules/statistics/locales/pt_BR.po new file mode 100755 index 000000000..d2c5b12fb --- /dev/null +++ b/modules/statistics/locales/pt_BR.po @@ -0,0 +1,608 @@ +# Brazilian Portuguese translation for scilab +# Copyright (c) 2009 Rosetta Contributors and Canonical Ltd 2009 +# This file is distributed under the same license as the scilab package. +# FIRST AUTHOR <EMAIL@ADDRESS>, 2009. +# +msgid "" +msgstr "" +"Project-Id-Version: scilab\n" +"Report-Msgid-Bugs-To: <localization@lists.scilab.org>\n" +"POT-Creation-Date: 2013-04-16 17:44+0100\n" +"PO-Revision-Date: 2012-01-06 15:15+0000\n" +"Last-Translator: RodolfoRG <rodolforg@gmail.com>\n" +"Language-Team: Brazilian Portuguese <pt_BR@li.org>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" +"X-Generator: Launchpad (build 17413)\n" +"Language: pt_BR\n" + +msgid "X,Y,A and B" +msgstr "X,Y,A e B" + +msgid "A,B,P and Q" +msgstr "A,B,P e Q" + +msgid "B,P,Q,X and Y" +msgstr "B,P,Q,X e Y" + +msgid "P,Q,X,Y and A" +msgstr "P,Q,X,Y e A" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n" +msgstr "" +"%s: Valor incorreto para o argumento de entrada #%d: esperava-se '%s', '%s', " +"'%s' ou '%s'.\n" + +msgid "S,Xn,Pr and Ompr" +msgstr "S,Xn,Pr e Ompr" + +msgid "Xn,Pr,Ompr,P and Q" +msgstr "Xn,Pr,Ompr,P e Q" + +msgid "Pr,OMPr,P,Q and S" +msgstr "Pr,OMPr,P,Q e S" + +msgid "P,Q,S and Xn" +msgstr "P,Q,S e Xn" + +#, c-format +msgid "" +"%s: Warning: using non integer values for argument #%d may lead to incorrect " +"results.\n" +msgstr "" + +msgid "X and Df" +msgstr "X e Df" + +msgid "Df, P and Q" +msgstr "Df, P e Q" + +msgid "P,Q and X" +msgstr "P,Q e X" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s' or '%s' expected.\n" +msgstr "" +"%s: Valor incorreto para o argumento de entrada #%d: esperava-se '%s', '%s' " +"ou '%s'.\n" + +msgid "cdfchi: Error in cumgam\n" +msgstr "cdfchi: Erro em cumgam\n" + +msgid "X,Df and Pnonc" +msgstr "X,Df e Pnonc" + +msgid "Df,Pnonc,P and Q" +msgstr "Df,Pnonc,P e Q" + +msgid "Pnonc,P,Q and X" +msgstr "Pnonc,P,Q e X" + +msgid "P,Q,X and Df" +msgstr "P,Q,X e Df" + +msgid "F,Dfn and Dfd" +msgstr "F,Dfn e Dfd" + +msgid "Dfn,Dfd,P and Q" +msgstr "Dfn,Dfd,P e Q" + +msgid "Dfd,P,Q and F" +msgstr "Dfd,P,Q e F" + +msgid "P,Q,F and Dfn" +msgstr "P,Q,F e Dfn" + +msgid "F,Dfn,Dfd and Pnonc" +msgstr "F,Dfn,Dfd e Pnonc" + +msgid "Dfn,Dfd,Pnonc,P and Q" +msgstr "Dfn,Dfd,Pnonc,P e Q" + +msgid "Dfd,Pnonc,P,Q and F" +msgstr "Dfd,Pnonc,P,Q e F" + +msgid "Pnonc,P,Q,F and Dfn" +msgstr "Pnonc,P,Q,F e Dfn" + +msgid "P,Q,F,Dfn and Dfd" +msgstr "P,Q,F,Dfn e Dfd" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', '%s' or '%s' " +"expected.\n" +msgstr "" +"%s: Valor incorreto para o argumento de entrada #%d: esperava-se '%s', '%s', " +"'%s', '%s' ou '%s'.\n" + +msgid "X,Shape and Rate" +msgstr "X,Modele e Avalie" + +msgid "Shape,Rate,P and Q" +msgstr "Molede,Avalie,P e Q" + +msgid "Rate,P,Q and X" +msgstr "Avalie,P,Q e X" + +msgid "P,Q,X and Shape" +msgstr "P,Q,X e Shape" + +msgid "S,XN,PR and OMPR" +msgstr "S,XN,PR e OMPR" + +msgid "XN,PR,OMPR,P and Q" +msgstr "XN,PR,OMPR,P e Q" + +msgid "PR,OMPR,P,Q and S" +msgstr "PR,OMPR,P,Q e S" + +msgid "P,Q,S and Xn" +msgstr "P,Q,S e Xn" + +msgid "X,Mean and Std" +msgstr "X,Média e Std" + +msgid "Mean,Std,P and Q" +msgstr "Mean,Std,P e Q" + +msgid "Std,P,Q and X" +msgstr "Std,P,Q e X" + +msgid "P,Q,X and Mean" +msgstr "P,Q,X e Média" + +msgid " Std must not be zero\n" +msgstr " Std não pode ser zero\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: A matrix of integer values " +"expected.\n" +msgstr "" + +msgid "S and Xlam" +msgstr "S e Xlam" + +msgid "Xlam,P and Q" +msgstr "Xlam,P e Q" + +msgid "P,Q and S" +msgstr "P,Q e S" + +msgid "T and Df" +msgstr "T e Df" + +msgid "P,Q and T" +msgstr "P,Q e T" + +#, c-format +msgid "" +"%s: Wrong number of input arguments with the '%s' option: %d expected.\n" +msgstr "" +"%s: Quantidade incorreta de argumentos de entrada com a opção '%s': esperava-" +"se %d.\n" + +#, c-format +msgid "%s and %s must have same size.\n" +msgstr "%s e %s devem ter o mesmo tamanho.\n" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %g\n" +msgstr "" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %f\n" +msgstr "A resposta parece ser menor que o limite inferior de pesquisa %f\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %s\n" +msgstr "" +"O resultado aparenta ser maior que o limite superior para pesquisas %s\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %f\n" +msgstr "A resposta parece ser maior que o limite superior de pesquisa %f\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: An integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: A real expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: An integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be between %d and %d.\n" +msgstr "" +"%s: Valor incorreto para o argumento de entrada #%d: deve estar entre %d e " +"%d.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Integer >= %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input arguments: %d to %d expected.\n" +msgstr "" +"%s: Quantidade incorreta de argumentos de entrada: esperava-se de %d a %d.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', %d or %d expected.\n" +msgstr "" +"%s: Valor incorreto para o argumento de entrada #%d: esperava-se '%s', '%s', " +"%d ou %d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Vector expected.\n" +msgstr "" +"%s: Tipo incorreto para o argumento de entrada #%d: esperava-se um vetor.\n" + +#, c-format +msgid "%s: Incompatible input arguments #%d and #%d: Same sizes expected" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of line as first input " +"argument expected.\n" +msgstr "" +"%s: Valor incorreto para o argumento de entrada #%d: esperava-se a mesma " +"quantidade de linhas que o primeiro argumento de entrada.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of column as first input " +"argument expected.\n" +msgstr "" +"%s: Valor incorreto para o argumento de entrada #%d: esperava-se a mesma " +"quantidade de colunas que o primeiro argumento de entrada.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: a real matrix expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: an integer or a real matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: %dx%d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: an integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d, %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input arguments: %d expected.\n" +msgstr "%s: Quantidade incorreta de argumentos de entrada: esperava-se %d.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: At least %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): At least %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type of input argument #%d: A single boolean expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real matrix expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the interval %s.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Integer expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong values for input argument #%d: Elements must be in increasing " +"order.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument: At least %d expected.\n" +msgstr "" +"%s: Quantidade incorreta de argumentos de entrada: esperava-se pelo menos " +"%d.\n" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A column vector or matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A row vector or matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', %d, '%s' or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument: %d to %d expected.\n" +msgstr "" +"%s: Quantidade incorreta de argumentos de entrada: esperava-se de %d a %d.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real vector or matrix expected.\n" +msgstr "" +"%s: Tipo incorreto para o argumento de entrada #%d: esperava-se um vetor ou " +"uma matriz de números reais.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d.\n" +msgstr "%s: Tipo incorreto para o argumento de entrada #%d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Scalar or vector expected.\n" +msgstr "" +"%s: Tipo incorreto para o argumento de entrada #%d: esperava-se um vetor ou " +"um escalar.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: A full or sparse matrix, or an " +"integer matrix, or an hypermat expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong size for input arguments #%d and #%d: Same dimensions expected.\n" +msgstr "" +"%s: Tamanho incorreto para os argumentos de entrada #%d e #%d: esperava-se " +"as mesmas dimensões.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s','%s' or a positive number " +"expected.\n" +msgstr "" +"%s: Valor incorreto para o argumento de entrada #%d: esperava-se '%s', '%s', " +"'%s' ou um número positivo.\n" + +#, c-format +msgid "%s: Wrong number of input argument: %d expected.\n" +msgstr "%s: Quantidade incorreta de argumentos de entrada: esperava-se %d.\n" + +#, c-format +msgid "%s: Wrong number of output argument: %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d to %d expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real or complex, boolean, polynomial " +"matrix expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A string or scalar expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the set {%s}.\n" +msgstr "" +"%s: Valor incorreto para o argumento de entrada #%d: ele deve pertencer ao " +"conjunto {%s}.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', %d or %d " +"expected.\n" +msgstr "" +"%s: Valor incorreto para o argumento de entrada #%d: esperava-se '%s', '%s', " +"'%s', %d ou %d.\n" + +#, c-format +msgid "%s: Wrong type for input arguments #%d: Numerical expected.\n" +msgstr "" +"%s: Tipo incorreto para o argumento de entrada #%d: esperava-se um dado " +"numérico.\n" + +#, c-format +msgid "" +"%s: Incompatible input arguments #%d and #%d: Same column dimensions " +"expected.\n" +msgstr "" + +#, c-format +msgid "%s: No NaNs detected, please use %s() instead.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Numerical expected.\n" +msgstr "" +"%s: Tipo incorreto para o argumento de entrada #%d: esperava-se um dado " +"numérico.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Boolean expected." +msgstr "" +"%s: Tipo incorreto para o argumento de entrada #%d: esperava-se um booleano." + +#, c-format +msgid "%s: NaNs detected, please use %s() instead.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Non-negative values expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d and #%d: Same size expected.\n" +msgstr "" +"%s: Tamanho incorreto para os argumentos de entrada #%d e #%d: esperava-se " +"tamanhos iguais.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of rows of the second " +"input argument expected.\n" +msgstr "" +"%s: Tamanho incorreto para o argumento de entrada #%d: esperava-se a mesma " +"quantidade de linhas que o segundo argumento de entrada.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of columns of the second " +"input argument expected.\n" +msgstr "" +"%s: Tamanho incorreto para o argumento de entrada #%d: esperava-se a mesma " +"quantidade de colunas que o segundo argumento de entrada.\n" + +#, c-format +msgid "" +"%s: Wrong value of input argument #%d: Lower than or equal to size of input " +"argument #%d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: Size %s expected.\n" +msgstr "" +"%s: Tamanho incorreto para o argumento de entrada #%d: esperava-se uma " +"dimensão %s.\n" + +#, c-format +msgid "%s: Graph demand out of bounds.\n" +msgstr "%s: Exigência gráfica fora dos limites.\n" + +msgid "Correlations Circle" +msgstr "CÃrculo de correlações" + +msgid "Eigenvalues" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or a positive " +"integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for %d input argument: '%s', '%s', %d or %d expected.\n" +msgstr "" +"%s: Valor incorreto para o argumento de entrada #%d: esperava-se '%s', '%s', " +"%d ou %d.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Vector, matrix of numbers or strings " +"expected.\n" +msgstr "" +"%s: Tipo incorreto para o argumento de entrada #%d: esperava-se um vetor ou " +"uma matriz de números ou textos.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: '%s' or '%s' expected.\n" +msgstr "" +"%s: Valor incorreto para o argumento de entrada #%d: esperava-se '%s' ou " +"'%s'.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Real number between %d to %d " +"expected.\n" +msgstr "" +"%s: Valor incorreto para o argumento de entrada #%d: esperava-se um número " +"real entre %d e %d.\n" + +#, c-format +msgid "Wrong value for input argument orien: %s.\n" +msgstr "Valor incorreto para o argumento de entrada orien: %s.\n" + +#, c-format +msgid "Size of x is zero : returning NaN.\n" +msgstr "O tamanho de x é zero : retornando NaN.\n" + +#, c-format +msgid "discard=%s\n" +msgstr "discard=%s\n" + +#, c-format +msgid "orien=%s\n" +msgstr "orien=%s\n" + +#, c-format +msgid "Size of x:%i\n" +msgstr "Tamanho de x: %i\n" + +#, c-format +msgid "Keeping %i values from %i to %i in sorted order\n" +msgstr "Mantendo %i valores de %i a %i em ordem crescente\n" + +#, c-format +msgid "Unexpected value of orien : %s\n" +msgstr "Valor inesperado de orien: %s\n" + +#, c-format +msgid "%s: Wrong value of m : a priori mean expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: The significance of input argument #%d has been modified. Please refer " +"to the variance help page.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be > %d.\n" +msgstr "" +"%s: Valor incorreto para o argumento de entrada #%d: deve ser > %d.\n" diff --git a/modules/statistics/locales/ru_RU.po b/modules/statistics/locales/ru_RU.po new file mode 100755 index 000000000..007377c1c --- /dev/null +++ b/modules/statistics/locales/ru_RU.po @@ -0,0 +1,635 @@ +# Russian translation for scilab +# Copyright (c) 2008 Rosetta Contributors and Canonical Ltd 2008 +# This file is distributed under the same license as the scilab package. +# FIRST AUTHOR <EMAIL@ADDRESS>, 2008. +# +msgid "" +msgstr "" +"Project-Id-Version: scilab\n" +"Report-Msgid-Bugs-To: <localization@lists.scilab.org>\n" +"POT-Creation-Date: 2013-04-16 17:44+0100\n" +"PO-Revision-Date: 2015-03-01 15:30+0000\n" +"Last-Translator: Stanislav V. Kroter <krotersv@gmail.com>\n" +"Language-Team: Russian <ru@li.org>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" +"X-Generator: Launchpad (build 17413)\n" +"Language: ru\n" + +msgid "X,Y,A and B" +msgstr "X,Y,A и B" + +msgid "A,B,P and Q" +msgstr "A,B,P и Q" + +msgid "B,P,Q,X and Y" +msgstr "B,P,Q,X и Y" + +msgid "P,Q,X,Y and A" +msgstr "P,Q,X,Y и A" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n" +msgstr "" +"%s: Ðеверное значение входного параметра â„–%d: ожидалоÑÑŒ «%s», «%s», «%s» или " +"«%s».\n" + +msgid "S,Xn,Pr and Ompr" +msgstr "S,Xn,Pr и Ompr" + +msgid "Xn,Pr,Ompr,P and Q" +msgstr "Xn,Pr,Ompr,P и Q" + +msgid "Pr,OMPr,P,Q and S" +msgstr "Pr,OMPr,P,Q и S" + +msgid "P,Q,S and Xn" +msgstr "P,Q,S и Xn" + +#, c-format +msgid "" +"%s: Warning: using non integer values for argument #%d may lead to incorrect " +"results.\n" +msgstr "" +"%s: Внимание: иÑпользование нецелых значений Ð´Ð»Ñ Ð°Ñ€Ð³ÑƒÐ¼ÐµÐ½Ñ‚Ð° â„–%d может " +"привеÑти к неверным результатам.\n" + +msgid "X and Df" +msgstr "X и Df" + +msgid "Df, P and Q" +msgstr "Df, P и Q" + +msgid "P,Q and X" +msgstr "P,Q и X" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s' or '%s' expected.\n" +msgstr "" +"%s: Ðеверное значение входного параметра â„–%d: ожидалоÑÑŒ «%s», «%s» или " +"«%s».\n" + +msgid "cdfchi: Error in cumgam\n" +msgstr "cdfchi: Ошибка в cumgam\n" + +msgid "X,Df and Pnonc" +msgstr "X,Df и Pnonc" + +msgid "Df,Pnonc,P and Q" +msgstr "Df,Pnonc,P и Q" + +msgid "Pnonc,P,Q and X" +msgstr "Pnonc,P,Q и X" + +msgid "P,Q,X and Df" +msgstr "P,Q,X и Df" + +msgid "F,Dfn and Dfd" +msgstr "F, Dfn и Dfd" + +msgid "Dfn,Dfd,P and Q" +msgstr "Dfn, Dfd, P и Q" + +msgid "Dfd,P,Q and F" +msgstr "Dfd, P, Q и F" + +msgid "P,Q,F and Dfn" +msgstr "P, Q, F и Dfn" + +msgid "F,Dfn,Dfd and Pnonc" +msgstr "F, Dfn, Dfd и Pnonc" + +msgid "Dfn,Dfd,Pnonc,P and Q" +msgstr "Dfn, Dfd, Pnonc, P и Q" + +msgid "Dfd,Pnonc,P,Q and F" +msgstr "Dfd,Pnonc,P,Q и F" + +msgid "Pnonc,P,Q,F and Dfn" +msgstr "Pnonc,P,Q,F и Dfn" + +msgid "P,Q,F,Dfn and Dfd" +msgstr "P,Q,F,Dfn и Dfd" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', '%s' or '%s' " +"expected.\n" +msgstr "" +"%s: Ðеверное значение входного параметра â„–%d: ожидалоÑÑŒ «%s», «%s», «%s», " +"«%s» или «%s».\n" + +msgid "X,Shape and Rate" +msgstr "X,Shape and Rate" + +msgid "Shape,Rate,P and Q" +msgstr "Shape,Rate,P and Q" + +msgid "Rate,P,Q and X" +msgstr "Rate,P,Q and X" + +msgid "P,Q,X and Shape" +msgstr "P, Q, X и Shape" + +msgid "S,XN,PR and OMPR" +msgstr "S,XN,PR и OMPR" + +msgid "XN,PR,OMPR,P and Q" +msgstr "XN,PR,OMPR,P и Q" + +msgid "PR,OMPR,P,Q and S" +msgstr "PR,OMPR,P,Q и S" + +msgid "P,Q,S and Xn" +msgstr "P,Q,S и Xn" + +msgid "X,Mean and Std" +msgstr "X,Mean и Std" + +msgid "Mean,Std,P and Q" +msgstr "Mean,Std,P и Q" + +msgid "Std,P,Q and X" +msgstr "Std,P,Q и X" + +msgid "P,Q,X and Mean" +msgstr "P,Q,X и Mean" + +msgid " Std must not be zero\n" +msgstr " Std не может быть нулевым\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: A matrix of integer values " +"expected.\n" +msgstr "" +"%s: Ðеверное значение входного аргумента â„–%d: ожидалаÑÑŒ матрица " +"целочиÑленных значений.\n" + +msgid "S and Xlam" +msgstr "S и Xlam" + +msgid "Xlam,P and Q" +msgstr "Xlam,P и Q" + +msgid "P,Q and S" +msgstr "P,Q и S" + +msgid "T and Df" +msgstr "T и Df" + +msgid "P,Q and T" +msgstr "P,Q и T" + +#, c-format +msgid "" +"%s: Wrong number of input arguments with the '%s' option: %d expected.\n" +msgstr "" +"%s: Ðеверное количеÑтво входных параметров Ñ Ð¿Ð°Ñ€Ð°Ð¼ÐµÑ‚Ñ€Ð¾Ð¼ «%s»: ожидалоÑÑŒ %d.\n" + +#, c-format +msgid "%s and %s must have same size.\n" +msgstr "%s и %s должны иметь одинаковые размеры.\n" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %g\n" +msgstr "Ответ оказалÑÑ Ð¼ÐµÐ½ÑŒÑˆÐµ наименьшей границы поиÑка %g\n" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %f\n" +msgstr "Похоже ответ будет ниже нижней границы поиÑка %f\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %s\n" +msgstr "Результат выходит за верхнюю границу поиÑка %s\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %f\n" +msgstr "Похоже ответ будет выше верхней границы поиÑка %f\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d expected.\n" +msgstr "%s: Ðеверное количеÑтво входных аргументов: ОжидалоÑÑŒ %d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real expected.\n" +msgstr "" +"%s: Ðеверный тип входного аргумента â„–%d: ожидалоÑÑŒ вещеÑтвенное чиÑло.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: An integer expected.\n" +msgstr "%s: Ðеверный тип входного аргумента â„–%d: ожидалоÑÑŒ целое чиÑло.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: A real expected.\n" +msgstr "" +"%s: Ðеверный размер входного аргумента â„–%d: ОжидалоÑÑŒ вещеÑтвенное чиÑло.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: An integer expected.\n" +msgstr "%s: Ðеверный размер входного аргумента â„–%d: ожидалоÑÑŒ целое чиÑло.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be between %d and %d.\n" +msgstr "" +"%s: Ðеверное значение входного параметра â„–%d: должно быть между %d и %d.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Integer >= %d expected.\n" +msgstr "" +"%s: Ðеверное значение входного аргумента â„–%d: ожидалоÑÑŒ целое чиÑло >= %d.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d to %d expected.\n" +msgstr "%s: Ðеверное количеÑтво входных параметров: ожидалоÑÑŒ от %d до %d.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', %d or %d expected.\n" +msgstr "" +"%s: Ðеверное значение входного параметра â„–%d: ожидалоÑÑŒ «%s», «%s», %d или " +"%d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Vector expected.\n" +msgstr "%s: Ðеверный тип входного параметра 3%d: ожидалÑÑ Ð²ÐµÐºÑ‚Ð¾Ñ€.\n" + +#, c-format +msgid "%s: Incompatible input arguments #%d and #%d: Same sizes expected" +msgstr "" +"%s: ÐеÑовмеÑтимые входные аргументы â„–%d и â„–%d: ожидалиÑÑŒ одинаковые размеры" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of line as first input " +"argument expected.\n" +msgstr "" +"%s: Ðеверное значение входного параметра â„–%d: ожидалоÑÑŒ одинаковое " +"количеÑтво Ñтрок Ñ Ð¿ÐµÑ€Ð²Ñ‹Ð¼ параметром.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of column as first input " +"argument expected.\n" +msgstr "" +"%s: Ðеверное значение входного параметра â„–%d: ожидалоÑÑŒ одинаковое " +"количеÑтво Ñтолбцов Ñ Ð¿ÐµÑ€Ð²Ñ‹Ð¼ параметром.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: a real matrix expected.\n" +msgstr "" +"%s: Ðеверный тип входного аргумента â„–%d: ожидалаÑÑŒ вещеÑÑ‚Ð²ÐµÐ½Ð½Ð°Ñ Ð¼Ð°Ñ‚Ñ€Ð¸Ñ†Ð°.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: an integer or a real matrix " +"expected.\n" +msgstr "" +"%s: Ðеверный тип входного аргумента â„–%d: ожидалаÑÑŒ целочиÑÐ»ÐµÐ½Ð½Ð°Ñ Ð¸Ð»Ð¸ " +"вещеÑÑ‚Ð²ÐµÐ½Ð½Ð°Ñ Ð¼Ð°Ñ‚Ñ€Ð¸Ñ†Ð°.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: %d or %d expected.\n" +msgstr "%s: Ðеверное значение входного параметра â„–%d: ожидалоÑÑŒ %d или %d.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: %dx%d expected.\n" +msgstr "%s: Ðеверный размер входного аргумента â„–%d: ожидалÑÑ %dx%d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: an integer expected.\n" +msgstr "%s: Ðеверный тип входного аргумента â„–%d: ожидалоÑÑŒ целое чиÑло.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d, %d or %d expected.\n" +msgstr "" +"%s: Ðеверное количеÑтво входных аргументов: ожидалоÑÑŒ %d, %d или %d.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d expected.\n" +msgstr "%s: Ðеверное количеÑтво входных параметров: ожидалоÑÑŒ %d.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: At least %d expected.\n" +msgstr "" +"%s: Ðеверное количеÑтво входных аргументов: ОжидалоÑÑŒ как минимум %d.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): At least %d expected.\n" +msgstr "" +"%s: Ðеверное количеÑтво входных аргументов: ожидалоÑÑŒ как минимум %d.\n" + +#, c-format +msgid "%s: Wrong type of input argument #%d: A single boolean expected.\n" +msgstr "" +"%s: Ðеверный тип входного аргумента â„–%d: ожидалоÑÑŒ одно логичеÑкое " +"значение.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real matrix expected.\n" +msgstr "" +"%s: Ðеверный тип входного аргумента â„–%d: ожидалаÑÑŒ вещеÑÑ‚Ð²ÐµÐ½Ð½Ð°Ñ Ð¼Ð°Ñ‚Ñ€Ð¸Ñ†Ð°.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the interval %s.\n" +msgstr "" +"%s: Ðеверное значение входного аргумента â„–%d: оно должно быть на интервале " +"%s.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Integer expected.\n" +msgstr "%s: Ðеверный тип входного аргумента â„–%d: ожидалоÑÑŒ целое чиÑло.\n" + +#, c-format +msgid "" +"%s: Wrong values for input argument #%d: Elements must be in increasing " +"order.\n" +msgstr "" +"%s: Ðеверные Ð·Ð½Ð°Ñ‡ÐµÐ½Ð¸Ñ Ð²Ñ…Ð¾Ð´Ð½Ð¾Ð³Ð¾ аргумента â„–%d: Ñлементы должны быть " +"отÑортированы по возраÑтанию.\n" + +#, c-format +msgid "%s: Wrong number of input argument: At least %d expected.\n" +msgstr "%s: Ðеверное количеÑтво входных параметров: ожидалоÑÑŒ не менее %d.\n" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A column vector or matrix " +"expected.\n" +msgstr "" +"%s: Ðеверные размеры входного аргумента â„–%d: ожидалиÑÑŒ вектор-Ñтолбец или " +"матрица.\n" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A row vector or matrix " +"expected.\n" +msgstr "" +"%s: Ðеверные размеры входного аргумента â„–%d: ожидалиÑÑŒ вектор-Ñтрока или " +"матрица.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', %d, '%s' or %d expected.\n" +msgstr "" +"%s: Ðеверное значение входного аргумента â„–%d: ожидалиÑÑŒ '%s', %d, '%s' или " +"%d expected.\n" + +#, c-format +msgid "%s: Wrong number of input argument: %d to %d expected.\n" +msgstr "%s: Ðеверное количеÑтво входных параметров: ожидалоÑÑŒ от %d до %d.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real vector or matrix expected.\n" +msgstr "" +"%s: Ðеверный тип входного параметра â„–%d: ожидалÑÑ Ð²ÐµÐºÑ‚Ð¾Ñ€ или матрица " +"вещеÑтвенных чиÑел.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d.\n" +msgstr "%s: Ðеверный тип входного параметра â„–%d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Scalar or vector expected.\n" +msgstr "" +"%s: Ðеверный тип входного параметра â„–%d: ожидалÑÑ ÑкалÑÑ€ или вектор.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: A full or sparse matrix, or an " +"integer matrix, or an hypermat expected.\n" +msgstr "" +"%s: Ðеверный тип входного аргумента â„–%d: ожидалиÑÑŒ Ð¿Ð¾Ð»Ð½Ð°Ñ Ð¸Ð»Ð¸ Ñ€Ð°Ð·Ñ€ÐµÐ¶Ñ‘Ð½Ð½Ð°Ñ " +"матрица или целочиÑÐ»ÐµÐ½Ð½Ð°Ñ Ð¼Ð°Ñ‚Ñ€Ð¸Ñ†Ð° или гиперматрица.\n" + +#, c-format +msgid "" +"%s: Wrong size for input arguments #%d and #%d: Same dimensions expected.\n" +msgstr "" +"%s: Ðеверный размер входных параметров â„–%d и â„–%d: ожидалиÑÑŒ одинаковые " +"размерноÑти.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d or %d expected.\n" +msgstr "%s: Ðеверное количеÑтво аргументов: ОжидалоÑÑŒ %d или %d.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s','%s' or a positive number " +"expected.\n" +msgstr "" +"%s: Ðеверное значение входного параметра â„–%d: ожидалоÑÑŒ «%s, «%s», «%s» или " +"положительное чиÑло.\n" + +#, c-format +msgid "%s: Wrong number of input argument: %d expected.\n" +msgstr "%s: Ðеверное количеÑтво входных параметров: ожидалоÑÑŒ %d.\n" + +#, c-format +msgid "%s: Wrong number of output argument: %d expected.\n" +msgstr "%s: Ðеверное количеÑтво выходных параметров: ожидалоÑÑŒ %d.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d to %d expected.\n" +msgstr "%s: Ðеверное количеÑтво входных аргументов: ОжидалоÑÑŒ от %d до %d.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real or complex, boolean, polynomial " +"matrix expected.\n" +msgstr "" +"%s: Ðеверный тип входного аргумента â„–%d: ОжидалаÑÑŒ матрица вещеÑтвенных или " +"комплекÑных, логичеÑких, полиномиальных значений.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A string or scalar expected.\n" +msgstr "" +"%s: Ðеверный тип входного аргумента â„–%d: ожидалоÑÑŒ Ñтроковое значение или " +"ÑкалÑÑ€.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the set {%s}.\n" +msgstr "" +"%s: Ðеверное значение входного параметра â„–%d: должно быть из множеÑтва " +"{%s}.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', %d or %d " +"expected.\n" +msgstr "" +"%s: Ðеверное значение входного параметра â„–%d: ожидалоÑÑŒ «%s», «%s», «%s», %d " +"или %d.\n" + +#, c-format +msgid "%s: Wrong type for input arguments #%d: Numerical expected.\n" +msgstr "%s: Ðеверный тип входного параметра â„–%d: ожидалÑÑ Ñ‡Ð¸Ñленный тип.\n" + +#, c-format +msgid "" +"%s: Incompatible input arguments #%d and #%d: Same column dimensions " +"expected.\n" +msgstr "" +"%s: ÐеÑовмеÑтимые входные аргументы â„–%d и â„–%d: ожидалоÑÑŒ одинаковое " +"количеÑтво Ñтолбцов.\n" + +#, c-format +msgid "%s: No NaNs detected, please use %s() instead.\n" +msgstr "" +"%s: Ðи одного Ð·Ð½Ð°Ñ‡ÐµÐ½Ð¸Ñ NaN не обнаружено, вмеÑто Ñтого иÑпользуйте %s().\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Numerical expected.\n" +msgstr "%s: Ðеверный тип входного параметра â„–%d: ожидалÑÑ Ñ‡Ð¸Ñленный тип.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d or %d expected.\n" +msgstr "%s: Ðеверное количеÑтво входных аргументов: ожидалоÑÑŒ %d или %d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Boolean expected." +msgstr "" +"%s: Ðеверный тип входного параметра â„–%d: ожидалоÑÑŒ логичеÑкое значение." + +#, c-format +msgid "%s: NaNs detected, please use %s() instead.\n" +msgstr "%s: Обнаружены Ð·Ð½Ð°Ñ‡ÐµÐ½Ð¸Ñ NaN, вмеÑто Ñтого иÑпользуйте %s().\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Non-negative values expected.\n" +msgstr "" +"%s: Ðеверное значение входного аргумента â„–%d: ожидалиÑÑŒ неотрицательные " +"значениÑ.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d and #%d: Same size expected.\n" +msgstr "" +"%s: Ðеверный размер входных параметров â„–%d и â„–%d: ожидалÑÑ Ð¾Ð´Ð¸Ð½Ð°ÐºÐ¾Ð²Ñ‹Ð¹ " +"размер.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of rows of the second " +"input argument expected.\n" +msgstr "" +"%s: Ðеверный размер входного параметра â„–%d: ожидалоÑÑŒ одинаковое количеÑтво " +"Ñтрок Ñо вторым параметром.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of columns of the second " +"input argument expected.\n" +msgstr "" +"%s: Ðеверный размер входного параметра â„–%d: ожидалоÑÑŒ одинаковое количеÑтво " +"Ñтолбцов Ñо вторым параметром.\n" + +#, c-format +msgid "" +"%s: Wrong value of input argument #%d: Lower than or equal to size of input " +"argument #%d expected.\n" +msgstr "" +"%s: Ðеверное значение входного аргумента â„–%d: ожидалоÑÑŒ меньшее либо равное " +"размеру входного аргумента â„–%d.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: Size %s expected.\n" +msgstr "%s: Ðеверный размер входного параметра â„–%d: ожидалÑÑ Ñ€Ð°Ð·Ð¼ÐµÑ€ %s.\n" + +#, c-format +msgid "%s: Graph demand out of bounds.\n" +msgstr "%s: ГрафичеÑкий Ð·Ð°Ð¿Ñ€Ð¾Ñ Ð½Ðµ укладываетÑÑ Ð² границы.\n" + +msgid "Correlations Circle" +msgstr "КоррелÑцонный Круг" + +msgid "Eigenvalues" +msgstr "СобÑтвенные значениÑ" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or a positive " +"integer expected.\n" +msgstr "" +"%s: Ðеверное значение входного аргумента â„–%d: ожидалоÑÑŒ '%s', '%s', '%s' или " +"положительное целое чиÑло.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d.\n" +msgstr "%s: Ðеверный размер входного аргумента â„–%d.\n" + +#, c-format +msgid "" +"%s: Wrong value for %d input argument: '%s', '%s', %d or %d expected.\n" +msgstr "" +"%s: Ðеверное значение входного параметра %d: ожидалоÑÑŒ «%s», «%s», %d или " +"%d.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Vector, matrix of numbers or strings " +"expected.\n" +msgstr "" +"%s: Ðеверный тип входного параметра â„–%d: ожидалÑÑ Ð²ÐµÐºÑ‚Ð¾Ñ€ или матрица чиÑел " +"или Ñтрок.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: '%s' or '%s' expected.\n" +msgstr "" +"%s: Ðеверное значение входного параметра â„–%d: ожидалоÑÑŒ «%s» или «%s».\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Real number between %d to %d " +"expected.\n" +msgstr "" +"%s: Ðеверное значение входного параметра â„–%d: ожидалоÑÑŒ вещеÑтвенное чиÑло " +"между %d и %d.\n" + +#, c-format +msgid "Wrong value for input argument orien: %s.\n" +msgstr "Ðеверное значение входного параметра orien: %s.\n" + +#, c-format +msgid "Size of x is zero : returning NaN.\n" +msgstr "Ðулевой размер x: возвращено не чиÑло.\n" + +#, c-format +msgid "discard=%s\n" +msgstr "discard=%s\n" + +#, c-format +msgid "orien=%s\n" +msgstr "orien=%s\n" + +#, c-format +msgid "Size of x:%i\n" +msgstr "Размер x:%i\n" + +#, c-format +msgid "Keeping %i values from %i to %i in sorted order\n" +msgstr "ОÑтавлÑетÑÑ %i значений Ñ %i до %i в порÑдке Ñортировки\n" + +#, c-format +msgid "Unexpected value of orien : %s\n" +msgstr "Ðеверное значение orien : %s\n" + +#, c-format +msgid "%s: Wrong value of m : a priori mean expected.\n" +msgstr "%s: Ðеверное значение m : ожидалоÑÑŒ априорное Ñреднее значение.\n" + +#, c-format +msgid "" +"%s: The significance of input argument #%d has been modified. Please refer " +"to the variance help page.\n" +msgstr "" +"%s: Значение входного аргумента â„–%d изменено. ПожалуйÑта, обратитеÑÑŒ к " +"Ñправке по variance.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be > %d.\n" +msgstr "%s: Ðеверное значение входного параметра â„–%d: должно быть > %d.\n" diff --git a/modules/statistics/locales/statistics.pot b/modules/statistics/locales/statistics.pot new file mode 100755 index 000000000..320fa58ee --- /dev/null +++ b/modules/statistics/locales/statistics.pot @@ -0,0 +1,926 @@ +# Localization of the module statistics +# Please see in SCI/tools/localization for localization management +# Copyright (C) 2007-2008 - INRIA +# Copyright (C) 2008-2011 - DIGITEO +# Copyright (C) 2012-2014 - Scilab-Enterprises +# This file is distributed under the same license as the Scilab package. +# +msgid "" +msgstr "" +"Project-Id-Version: Scilab\n" +"Report-Msgid-Bugs-To: <localization@lists.scilab.org>\n" +"POT-Creation-Date: 2013-04-16 17:44+0100\n" +"Last-Translator: Vincent COUVERT <vincent.couvert@scilab-enterprises.com>\n" +"Language-Team: Scilab Localization <localization@lists.scilab.org>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=ISO-8859-1\n" +"Content-Transfer-Encoding: 8bit\n" +"Revision-Date: 2015-03-27 13:54+0100\n" + +# File: sci_gateway/c/sci_cdfbet.c, line: 45 +msgid "X,Y,A and B" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfbet.c, line: 51 +msgid "A,B,P and Q" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfbet.c, line: 57 +msgid "B,P,Q,X and Y" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfbet.c, line: 63 +msgid "P,Q,X,Y and A" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfbet.c, line: 68 +# File: sci_gateway/c/sci_cdfbin.c, line: 68 +# File: sci_gateway/c/sci_cdfchn.c, line: 86 +# File: sci_gateway/c/sci_cdff.c, line: 109 +# File: sci_gateway/c/sci_cdfgam.c, line: 67 +# File: sci_gateway/c/sci_cdfnbn.c, line: 68 +# File: sci_gateway/c/sci_cdfnor.c, line: 66 +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfbin.c, line: 45 +msgid "S,Xn,Pr and Ompr" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfbin.c, line: 51 +msgid "Xn,Pr,Ompr,P and Q" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfbin.c, line: 57 +msgid "Pr,OMPr,P,Q and S" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfbin.c, line: 63 +msgid "P,Q,S and Xn" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfchi.c, line: 51 +# File: sci_gateway/c/sci_cdfchi.c, line: 64 +# File: sci_gateway/c/sci_cdfchn.c, line: 47 +# File: sci_gateway/c/sci_cdfchn.c, line: 60 +# File: sci_gateway/c/sci_cdfchn.c, line: 79 +# File: sci_gateway/c/sci_cdff.c, line: 49 +# File: sci_gateway/c/sci_cdff.c, line: 56 +# File: sci_gateway/c/sci_cdff.c, line: 69 +# File: sci_gateway/c/sci_cdff.c, line: 76 +# File: sci_gateway/c/sci_cdff.c, line: 89 +# File: sci_gateway/c/sci_cdff.c, line: 102 +# File: sci_gateway/c/sci_cdffnc.c, line: 49 +# File: sci_gateway/c/sci_cdffnc.c, line: 56 +# File: sci_gateway/c/sci_cdffnc.c, line: 69 +# File: sci_gateway/c/sci_cdffnc.c, line: 76 +# File: sci_gateway/c/sci_cdffnc.c, line: 89 +# File: sci_gateway/c/sci_cdffnc.c, line: 102 +# File: sci_gateway/c/sci_cdffnc.c, line: 115 +# File: sci_gateway/c/sci_cdffnc.c, line: 122 +# File: sci_gateway/c/sci_cdft.c, line: 48 +# File: sci_gateway/c/sci_cdft.c, line: 61 +#, c-format +msgid "" +"%s: Warning: using non integer values for argument #%d may lead to incorrect " +"results.\n" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfchi.c, line: 53 +msgid "X and Df" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfchi.c, line: 66 +# File: sci_gateway/c/sci_cdft.c, line: 63 +msgid "Df, P and Q" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfchi.c, line: 72 +msgid "P,Q and X" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfchi.c, line: 77 +# File: sci_gateway/c/sci_cdfpoi.c, line: 79 +# File: sci_gateway/c/sci_cdft.c, line: 74 +#, c-format +msgid "%s: Wrong value for input argument #%d: '%s', '%s' or '%s' expected.\n" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfchi.c, line: 104 +msgid "cdfchi: Error in cumgam\n" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfchn.c, line: 49 +msgid "X,Df and Pnonc" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfchn.c, line: 62 +msgid "Df,Pnonc,P and Q" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfchn.c, line: 68 +msgid "Pnonc,P,Q and X" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfchn.c, line: 81 +msgid "P,Q,X and Df" +msgstr "" + +# +# File: sci_gateway/c/sci_cdff.c, line: 58 +msgid "F,Dfn and Dfd" +msgstr "" + +# +# File: sci_gateway/c/sci_cdff.c, line: 78 +msgid "Dfn,Dfd,P and Q" +msgstr "" + +# +# File: sci_gateway/c/sci_cdff.c, line: 91 +msgid "Dfd,P,Q and F" +msgstr "" + +# +# File: sci_gateway/c/sci_cdff.c, line: 104 +msgid "P,Q,F and Dfn" +msgstr "" + +# +# File: sci_gateway/c/sci_cdffnc.c, line: 58 +msgid "F,Dfn,Dfd and Pnonc" +msgstr "" + +# +# File: sci_gateway/c/sci_cdffnc.c, line: 78 +msgid "Dfn,Dfd,Pnonc,P and Q" +msgstr "" + +# +# File: sci_gateway/c/sci_cdffnc.c, line: 91 +msgid "Dfd,Pnonc,P,Q and F" +msgstr "" + +# +# File: sci_gateway/c/sci_cdffnc.c, line: 104 +msgid "Pnonc,P,Q,F and Dfn" +msgstr "" + +# +# File: sci_gateway/c/sci_cdffnc.c, line: 124 +msgid "P,Q,F,Dfn and Dfd" +msgstr "" + +# +# File: sci_gateway/c/sci_cdffnc.c, line: 129 +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', '%s' or '%s' " +"expected.\n" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfgam.c, line: 44 +msgid "X,Shape and Rate" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfgam.c, line: 50 +msgid "Shape,Rate,P and Q" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfgam.c, line: 56 +msgid "Rate,P,Q and X" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfgam.c, line: 62 +msgid "P,Q,X and Shape" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfnbn.c, line: 44 +msgid "S,XN,PR and OMPR" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfnbn.c, line: 50 +msgid "XN,PR,OMPR,P and Q" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfnbn.c, line: 56 +msgid "PR,OMPR,P,Q and S" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfnbn.c, line: 63 +msgid "P,Q,S and Xn" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfnor.c, line: 43 +msgid "X,Mean and Std" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfnor.c, line: 49 +msgid "Mean,Std,P and Q" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfnor.c, line: 55 +msgid "Std,P,Q and X" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfnor.c, line: 61 +msgid "P,Q,X and Mean" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfnor.c, line: 93 +msgid " Std must not be zero\n" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfpoi.c, line: 50 +# File: sci_gateway/c/sci_cdfpoi.c, line: 71 +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: A matrix of integer values " +"expected.\n" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfpoi.c, line: 53 +msgid "S and Xlam" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfpoi.c, line: 59 +msgid "Xlam,P and Q" +msgstr "" + +# +# File: sci_gateway/c/sci_cdfpoi.c, line: 74 +msgid "P,Q and S" +msgstr "" + +# +# File: sci_gateway/c/sci_cdft.c, line: 50 +msgid "T and Df" +msgstr "" + +# +# File: sci_gateway/c/sci_cdft.c, line: 69 +msgid "P,Q and T" +msgstr "" + +# +# File: src/c/CdfBase.c, line: 26 +#, c-format +msgid "" +"%s: Wrong number of input arguments with the '%s' option: %d expected.\n" +msgstr "" + +# +# File: src/c/CdfBase.c, line: 37 +#, c-format +msgid "%s and %s must have same size.\n" +msgstr "" + +# +# File: src/c/CdfBase.c, line: 125 +#, c-format +msgid "Answer appears to be lower than lowest search bound %g\n" +msgstr "" + +# +# File: src/c/CdfBase.c, line: 129 +#, c-format +msgid "Answer appears to be lower than lowest search bound %f\n" +msgstr "" + +# +# File: src/c/CdfBase.c, line: 137 +#, c-format +msgid "Answer appears to be higher than greatest search bound %s\n" +msgstr "" + +# +# File: src/c/CdfBase.c, line: 141 +#, c-format +msgid "Answer appears to be higher than greatest search bound %f\n" +msgstr "" + +# File: macros/binomial.sci, line: 29 +#, c-format +msgid "%s: Wrong number of input argument(s): %d expected.\n" +msgstr "" + +# +# File: macros/binomial.sci, line: 33 +#, c-format +msgid "%s: Wrong type for input argument #%d: A real expected.\n" +msgstr "" + +# +# File: macros/binomial.sci, line: 37 +#, c-format +msgid "%s: Wrong type for input argument #%d: An integer expected.\n" +msgstr "" + +# +# File: macros/binomial.sci, line: 41 +#, c-format +msgid "%s: Wrong size for input argument #%d: A real expected.\n" +msgstr "" + +# +# File: macros/binomial.sci, line: 45 +#, c-format +msgid "%s: Wrong size for input argument #%d: An integer expected.\n" +msgstr "" + +# +# File: macros/binomial.sci, line: 49 +# File: macros/perctl.sci, line: 35 +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be between %d and %d.\n" +msgstr "" + +# +# File: macros/binomial.sci, line: 53 +#, c-format +msgid "%s: Wrong value for input argument #%d: Integer >= %d expected.\n" +msgstr "" + +# +# File: macros/center.sci, line: 34 +# File: macros/cmoment.sci, line: 36 +# File: macros/cmoment.sci, line: 55 +# File: macros/correl.sci, line: 26 +# File: macros/geomean.sci, line: 32 +# File: macros/geomean.sci, line: 44 +# File: macros/harmean.sci, line: 33 +# File: macros/harmean.sci, line: 51 +# File: macros/nand2mean.sci, line: 33 +# File: macros/nanmax.sci, line: 41 +# File: macros/nanmean.sci, line: 31 +# File: macros/nanmeanf.sci, line: 37 +# File: macros/nanmin.sci, line: 40 +# File: macros/nanreglin.sci, line: 19 +# File: macros/reglin.sci, line: 20 +# File: macros/sample.sci, line: 32 +# File: macros/samplef.sci, line: 41 +# File: macros/show_pca.sci, line: 24 +# File: macros/stdev.sci, line: 36 +# File: macros/stdevf.sci, line: 36 +# File: macros/strange.sci, line: 24 +# File: macros/tabul.sci, line: 58 +# File: macros/trimmean.sci, line: 74 +# File: macros/variance.sci, line: 36 +# File: macros/variancef.sci, line: 42 +# File: macros/wcenter.sci, line: 40 +#, c-format +msgid "%s: Wrong number of input arguments: %d to %d expected.\n" +msgstr "" + +# +# File: macros/center.sci, line: 46 +# File: macros/cmoment.sci, line: 51 +# File: macros/harmean.sci, line: 47 +# File: macros/mad.sci, line: 49 +# File: macros/meanf.sci, line: 71 +# File: macros/nanmedian.sci, line: 51 +# File: macros/variance.sci, line: 79 +# File: macros/wcenter.sci, line: 57 +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', %d or %d expected.\n" +msgstr "" + +# +# File: macros/correl.sci, line: 33 +# File: macros/correl.sci, line: 37 +# File: macros/covar.sci, line: 32 +# File: macros/covar.sci, line: 33 +#, c-format +msgid "%s: Wrong type for input argument #%d: Vector expected.\n" +msgstr "" + +# +# File: macros/correl.sci, line: 52 +#, c-format +msgid "%s: Incompatible input arguments #%d and #%d: Same sizes expected" +msgstr "" + +# +# File: macros/correl.sci, line: 64 +# File: macros/covar.sci, line: 37 +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of line as first input " +"argument expected.\n" +msgstr "" + +# +# File: macros/correl.sci, line: 67 +# File: macros/covar.sci, line: 38 +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of column as first input " +"argument expected.\n" +msgstr "" + +# +# File: macros/cov.sci, line: 103 +# File: macros/cov.sci, line: 115 +# File: macros/cov.sci, line: 152 +# File: macros/cov.sci, line: 155 +#, c-format +msgid "%s: Wrong type for input argument #%d: a real matrix expected.\n" +msgstr "" + +# +# File: macros/cov.sci, line: 118 +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: an integer or a real matrix " +"expected.\n" +msgstr "" + +# +# File: macros/cov.sci, line: 125 +# File: macros/cov.sci, line: 175 +#, c-format +msgid "%s: Wrong value for input argument #%d: %d or %d expected.\n" +msgstr "" + +# +# File: macros/cov.sci, line: 136 +# File: macros/cov.sci, line: 139 +# File: macros/cov.sci, line: 164 +# File: macros/cov.sci, line: 167 +#, c-format +msgid "%s: Wrong size for input argument #%d: %dx%d expected.\n" +msgstr "" + +# +# File: macros/cov.sci, line: 158 +# File: macros/cov.sci, line: 170 +#, c-format +msgid "%s: Wrong type for input argument #%d: an integer expected.\n" +msgstr "" + +# +# File: macros/cov.sci, line: 184 +#, c-format +msgid "%s: Wrong number of input argument(s): %d, %d or %d expected.\n" +msgstr "" + +# +# File: macros/covar.sci, line: 27 +# File: macros/ftest.sci, line: 27 +# File: macros/pca.sci, line: 63 +# File: macros/perctl.sci, line: 31 +#, c-format +msgid "%s: Wrong number of input arguments: %d expected.\n" +msgstr "" + +# +# File: macros/ftuneq.sci, line: 38 +#, c-format +msgid "%s: Wrong number of input arguments: At least %d expected.\n" +msgstr "" + +# +# File: macros/histc.sci, line: 20 +#, c-format +msgid "%s: Wrong number of input argument(s): At least %d expected.\n" +msgstr "" + +# +# File: macros/histc.sci, line: 25 +#, c-format +msgid "%s: Wrong type of input argument #%d: A single boolean expected.\n" +msgstr "" + +# +# File: macros/histc.sci, line: 33 +# File: macros/histc.sci, line: 40 +# File: macros/stdev.sci, line: 69 +# File: macros/stdev.sci, line: 76 +#, c-format +msgid "%s: Wrong type for input argument #%d: A real matrix expected.\n" +msgstr "" + +# +# File: macros/histc.sci, line: 49 +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the interval %s.\n" +msgstr "" + +# +# File: macros/histc.sci, line: 51 +#, c-format +msgid "%s: Wrong type for input argument #%d: Integer expected.\n" +msgstr "" + +# +# File: macros/histc.sci, line: 63 +#, c-format +msgid "" +"%s: Wrong values for input argument #%d: Elements must be in increasing " +"order.\n" +msgstr "" + +# +# File: macros/iqr.sci, line: 35 +#, c-format +msgid "%s: Wrong number of input argument: At least %d expected.\n" +msgstr "" + +# +# File: macros/iqr.sci, line: 50 +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A column vector or matrix " +"expected.\n" +msgstr "" + +# +# File: macros/iqr.sci, line: 55 +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A row vector or matrix " +"expected.\n" +msgstr "" + +# +# File: macros/iqr.sci, line: 59 +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', %d, '%s' or %d expected.\n" +msgstr "" + +# +# File: macros/mad.sci, line: 35 +# File: macros/mean.sci, line: 26 +# File: macros/meanf.sci, line: 39 +# File: macros/moment.sci, line: 46 +# File: macros/nanmedian.sci, line: 29 +# File: macros/nanstdev.sci, line: 32 +#, c-format +msgid "%s: Wrong number of input argument: %d to %d expected.\n" +msgstr "" + +# +# File: macros/mean.sci, line: 29 +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real vector or matrix expected.\n" +msgstr "" + +# +# File: macros/mean.sci, line: 33 +#, c-format +msgid "%s: Wrong type for input argument #%d.\n" +msgstr "" + +# +# File: macros/mean.sci, line: 50 +#, c-format +msgid "%s: Wrong type for input argument #%d: Scalar or vector expected.\n" +msgstr "" + +# +# File: macros/meanf.sci, line: 44 +# File: macros/meanf.sci, line: 49 +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: A full or sparse matrix, or an " +"integer matrix, or an hypermat expected.\n" +msgstr "" + +# +# File: macros/meanf.sci, line: 53 +# File: macros/stdevf.sci, line: 41 +#, c-format +msgid "" +"%s: Wrong size for input arguments #%d and #%d: Same dimensions expected.\n" +msgstr "" + +# +# File: macros/median.sci, line: 22 +# File: macros/quart.sci, line: 29 +#, c-format +msgid "%s: Wrong number of input argument(s): %d or %d expected.\n" +msgstr "" + +# +# File: macros/median.sci, line: 39 +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s','%s' or a positive number " +"expected.\n" +msgstr "" + +# +# File: macros/mvcorrel.sci, line: 28 +# File: macros/mvvacov.sci, line: 31 +# File: macros/samwr.sci, line: 19 +# File: macros/thrownan.sci, line: 27 +#, c-format +msgid "%s: Wrong number of input argument: %d expected.\n" +msgstr "" + +# +# File: macros/nancumsum.sci, line: 37 +#, c-format +msgid "%s: Wrong number of output argument: %d expected.\n" +msgstr "" + +# +# File: macros/nancumsum.sci, line: 41 +# File: macros/nansum.sci, line: 34 +#, c-format +msgid "%s: Wrong number of input argument(s): %d to %d expected.\n" +msgstr "" + +# +# File: macros/nancumsum.sci, line: 45 +# File: macros/nansum.sci, line: 38 +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real or complex, boolean, polynomial " +"matrix expected.\n" +msgstr "" + +# +# File: macros/nancumsum.sci, line: 58 +# File: macros/nansum.sci, line: 50 +#, c-format +msgid "%s: Wrong type for input argument #%d: A string or scalar expected.\n" +msgstr "" + +# +# File: macros/nancumsum.sci, line: 62 +# File: macros/nansum.sci, line: 54 +# File: macros/stdevf.sci, line: 54 +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the set {%s}.\n" +msgstr "" + +# +# File: macros/nanmeanf.sci, line: 48 +# File: macros/sample.sci, line: 51 +# File: macros/samplef.sci, line: 100 +# File: macros/variancef.sci, line: 132 +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', %d or %d " +"expected.\n" +msgstr "" + +# +# File: macros/nanmedian.sci, line: 30 +#, c-format +msgid "%s: Wrong type for input arguments #%d: Numerical expected.\n" +msgstr "" + +# +# File: macros/nanreglin.sci, line: 27 +# File: macros/reglin.sci, line: 26 +#, c-format +msgid "" +"%s: Incompatible input arguments #%d and #%d: Same column dimensions " +"expected.\n" +msgstr "" + +# +# File: macros/nanreglin.sci, line: 30 +#, c-format +msgid "%s: No NaNs detected, please use %s() instead.\n" +msgstr "" + +# +# File: macros/perctl.sci, line: 38 +#, c-format +msgid "%s: Wrong type for input argument #%d: Numerical expected.\n" +msgstr "" + +# +# File: macros/princomp.sci, line: 38 +#, c-format +msgid "%s: Wrong number of input arguments: %d or %d expected.\n" +msgstr "" + +# +# File: macros/princomp.sci, line: 42 +#, c-format +msgid "%s: Wrong type for input argument #%d: Boolean expected." +msgstr "" + +# +# File: macros/reglin.sci, line: 29 +#, c-format +msgid "%s: NaNs detected, please use %s() instead.\n" +msgstr "" + +# +# File: macros/samplef.sci, line: 46 +#, c-format +msgid "%s: Wrong value for input argument #%d: Non-negative values expected.\n" +msgstr "" + +# +# File: macros/samplef.sci, line: 58 +#, c-format +msgid "%s: Wrong size for input argument #%d and #%d: Same size expected.\n" +msgstr "" + +# +# File: macros/samplef.sci, line: 74 +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of rows of the second " +"input argument expected.\n" +msgstr "" + +# +# File: macros/samplef.sci, line: 88 +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of columns of the second " +"input argument expected.\n" +msgstr "" + +# +# File: macros/samwr.sci, line: 24 +#, c-format +msgid "" +"%s: Wrong value of input argument #%d: Lower than or equal to size of input " +"argument #%d expected.\n" +msgstr "" + +# +# File: macros/show_pca.sci, line: 30 +#, c-format +msgid "%s: Wrong size for input argument #%d: Size %s expected.\n" +msgstr "" + +# +# File: macros/show_pca.sci, line: 35 +#, c-format +msgid "%s: Graph demand out of bounds.\n" +msgstr "" + +# +# File: macros/show_pca.sci, line: 56 +msgid "Correlations Circle" +msgstr "" + +# +# File: macros/show_pca.sci, line: 71 +msgid "Eigenvalues" +msgstr "" + +# +# File: macros/stdev.sci, line: 52 +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or a positive " +"integer expected.\n" +msgstr "" + +# +# File: macros/stdev.sci, line: 80 +# File: macros/stdev.sci, line: 88 +# File: macros/stdev.sci, line: 97 +#, c-format +msgid "%s: Wrong size for input argument #%d.\n" +msgstr "" + +# +# File: macros/strange.sci, line: 33 +#, c-format +msgid "%s: Wrong value for %d input argument: '%s', '%s', %d or %d expected.\n" +msgstr "" + +# +# File: macros/tabul.sci, line: 64 +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Vector, matrix of numbers or strings " +"expected.\n" +msgstr "" + +# +# File: macros/tabul.sci, line: 67 +# File: macros/tabul.sci, line: 70 +#, c-format +msgid "%s: Wrong value for input argument #%d: '%s' or '%s' expected.\n" +msgstr "" + +# +# File: macros/trimmean.sci, line: 81 +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Real number between %d to %d " +"expected.\n" +msgstr "" + +# +# File: macros/trimmean.sci, line: 98 +#, c-format +msgid "Wrong value for input argument orien: %s.\n" +msgstr "" + +# +# File: macros/trimmean.sci, line: 103 +#, c-format +msgid "Size of x is zero : returning NaN.\n" +msgstr "" + +# +# File: macros/trimmean.sci, line: 117 +#, c-format +msgid "discard=%s\n" +msgstr "" + +# +# File: macros/trimmean.sci, line: 118 +#, c-format +msgid "orien=%s\n" +msgstr "" + +# +# File: macros/trimmean.sci, line: 119 +#, c-format +msgid "Size of x:%i\n" +msgstr "" + +# +# File: macros/trimmean.sci, line: 120 +#, c-format +msgid "Keeping %i values from %i to %i in sorted order\n" +msgstr "" + +# +# File: macros/trimmean.sci, line: 132 +#, c-format +msgid "Unexpected value of orien : %s\n" +msgstr "" + +# +# File: macros/variance.sci, line: 51 +# File: macros/variance.sci, line: 55 +# File: macros/variance.sci, line: 60 +# File: macros/variance.sci, line: 65 +# File: macros/variancef.sci, line: 61 +# File: macros/variancef.sci, line: 65 +# File: macros/variancef.sci, line: 70 +# File: macros/variancef.sci, line: 75 +#, c-format +msgid "%s: Wrong value of m : a priori mean expected.\n" +msgstr "" + +# +# File: macros/variance.sci, line: 102 +#, c-format +msgid "" +"%s: The significance of input argument #%d has been modified. Please refer " +"to the variance help page.\n" +msgstr "" + +# +# File: macros/variancef.sci, line: 52 +# File: macros/variancef.sci, line: 86 +# File: macros/variancef.sci, line: 100 +# File: macros/variancef.sci, line: 117 +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be > %d.\n" +msgstr "" diff --git a/modules/statistics/locales/uk_UA.po b/modules/statistics/locales/uk_UA.po new file mode 100755 index 000000000..01778cc7f --- /dev/null +++ b/modules/statistics/locales/uk_UA.po @@ -0,0 +1,671 @@ +# Ukrainian translation for scilab +# Copyright (c) 2010 Rosetta Contributors and Canonical Ltd 2010 +# This file is distributed under the same license as the scilab package. +# +# FIRST AUTHOR <EMAIL@ADDRESS>, 2010. +# Yuri Chornoivan <yurchor@gmail.com>, 2010. +msgid "" +msgstr "" +"Project-Id-Version: scilab\n" +"Report-Msgid-Bugs-To: <localization@lists.scilab.org>\n" +"POT-Creation-Date: 2013-04-16 17:44+0100\n" +"PO-Revision-Date: 2014-09-30 17:00+0000\n" +"Last-Translator: Yuri Chornoivan <yurchor@gmail.com>\n" +"Language-Team: Ukrainian <translation@linux.org.ua>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" +"X-Generator: Launchpad (build 17413)\n" +"Language: uk\n" + +msgid "X,Y,A and B" +msgstr "X, Y, A Ñ– B" + +msgid "A,B,P and Q" +msgstr "A, B, P Ñ– Q" + +msgid "B,P,Q,X and Y" +msgstr "B, P, Q, X Ñ– Y" + +msgid "P,Q,X,Y and A" +msgstr "P, Q, X, Y Ñ– A" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: Ñлід викориÑтовувати «%s», " +"«%s», «%s» або «%s».\n" + +msgid "S,Xn,Pr and Ompr" +msgstr "S, Xn, Pr Ñ– Ompr" + +msgid "Xn,Pr,Ompr,P and Q" +msgstr "Xn, Pr, Ompr, P Ñ– Q" + +msgid "Pr,OMPr,P,Q and S" +msgstr "Pr, OMPr, P, Q Ñ– S" + +msgid "P,Q,S and Xn" +msgstr "P, Q, S Ñ– Xn" + +#, c-format +msgid "" +"%s: Warning: using non integer values for argument #%d may lead to incorrect " +"results.\n" +msgstr "" +"%s: попередженнÑ: викориÑÑ‚Ð°Ð½Ð½Ñ Ð½ÐµÑ†Ñ–Ð»Ð¸Ñ… значень Ð´Ð»Ñ Ð¿Ð°Ñ€Ð°Ð¼ÐµÑ‚Ñ€Ð° â„–%d може " +"призвеÑти до помилкових результатів.\n" + +msgid "X and Df" +msgstr "X Ñ– Df" + +msgid "Df, P and Q" +msgstr "Df, P Ñ– Q" + +msgid "P,Q and X" +msgstr "P, Q Ñ– X" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s' or '%s' expected.\n" +msgstr "" +"%s: Помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: Ñлід викориÑтовувати «%s», " +"«%s» або «%s».\n" + +msgid "cdfchi: Error in cumgam\n" +msgstr "cdfchi: помилка у cumgam\n" + +msgid "X,Df and Pnonc" +msgstr "X, Df Ñ– Pnonc" + +msgid "Df,Pnonc,P and Q" +msgstr "Df, Pnonc, P Ñ– Q" + +msgid "Pnonc,P,Q and X" +msgstr "Pnonc, P, Q Ñ– X" + +msgid "P,Q,X and Df" +msgstr "P, Q, X Ñ– Df" + +msgid "F,Dfn and Dfd" +msgstr "F, Dfn Ñ– Dfd" + +msgid "Dfn,Dfd,P and Q" +msgstr "Dfn, Dfd, P Ñ– Q" + +msgid "Dfd,P,Q and F" +msgstr "Dfd, P, Q Ñ– F" + +msgid "P,Q,F and Dfn" +msgstr "P, Q, F Ñ– Dfn" + +msgid "F,Dfn,Dfd and Pnonc" +msgstr "F, Dfn, Dfd Ñ– Pnonc" + +msgid "Dfn,Dfd,Pnonc,P and Q" +msgstr "Dfn, Dfd, Pnonc, P Ñ– Q" + +msgid "Dfd,Pnonc,P,Q and F" +msgstr "Dfd, Pnonc, P, Q Ñ– F" + +msgid "Pnonc,P,Q,F and Dfn" +msgstr "Pnonc, P, Q, F Ñ– Dfn" + +msgid "P,Q,F,Dfn and Dfd" +msgstr "P, Q, F, Dfn Ñ– Dfd" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', '%s' or '%s' " +"expected.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: Ñлід викориÑтовувати «%s», " +"«%s», «%s», «%s» або «%s».\n" + +msgid "X,Shape and Rate" +msgstr "X, Shape та Rate" + +msgid "Shape,Rate,P and Q" +msgstr "Shape, Rate, P та Q" + +msgid "Rate,P,Q and X" +msgstr "Rate, P, Q та X" + +msgid "P,Q,X and Shape" +msgstr "P, Q, X Ñ– Shape" + +msgid "S,XN,PR and OMPR" +msgstr "S, XN, PR Ñ– OMPR" + +msgid "XN,PR,OMPR,P and Q" +msgstr "XN, PR, OMPR, P Ñ– Q" + +msgid "PR,OMPR,P,Q and S" +msgstr "PR, OMPR, P, Q Ñ– S" + +msgid "P,Q,S and Xn" +msgstr "P, Q, S Ñ– Xn" + +msgid "X,Mean and Std" +msgstr "X, Mean Ñ– Std" + +msgid "Mean,Std,P and Q" +msgstr "Mean, Std, P Ñ– Q" + +msgid "Std,P,Q and X" +msgstr "Std, P, Q Ñ– X" + +msgid "P,Q,X and Mean" +msgstr "P, Q, X Ñ– Mean" + +msgid " Std must not be zero\n" +msgstr " Std не повинно дорівнювати нулеві\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: A matrix of integer values " +"expected.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: мало бути вказано матрицю з " +"цілими елементами.\n" + +msgid "S and Xlam" +msgstr "S Ñ– Xlam" + +msgid "Xlam,P and Q" +msgstr "Xlam, P Ñ– Q" + +msgid "P,Q and S" +msgstr "P, Q Ñ– S" + +msgid "T and Df" +msgstr "T Ñ– Df" + +msgid "P,Q and T" +msgstr "P, Q Ñ– T" + +#, c-format +msgid "" +"%s: Wrong number of input arguments with the '%s' option: %d expected.\n" +msgstr "" +"%s: помилкова кількіÑÑ‚ÑŒ вхідних параметрів Ð´Ð»Ñ Ð²Ð°Ñ€Ñ–Ð°Ð½Ñ‚Ð° з «%s»: мало бути %d " +"параметрів.\n" + +#, c-format +msgid "%s and %s must have same size.\n" +msgstr "%s Ñ– %s мають бути однакової розмірноÑÑ‚Ñ–.\n" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %g\n" +msgstr "Ð—Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ–Ð´Ð¿Ð¾Ð²Ñ–Ð´Ñ– Ñ” меншим за нижню межу діапазону пошуку, %g\n" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %f\n" +msgstr "ЗдаєтьÑÑ, Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ–Ð´Ð¿Ð¾Ð²Ñ–Ð´Ñ– лежить нижче за нижню межу пошуку %f\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %s\n" +msgstr "Ð—Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ–Ð´Ð¿Ð¾Ð²Ñ–Ð´Ñ– перевищує найбільшу межу пошуку %s\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %f\n" +msgstr "ЗдаєтьÑÑ, Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ–Ð´Ð¿Ð¾Ð²Ñ–Ð´Ñ– перевищує верхню межу пошуку %f\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d expected.\n" +msgstr "%s: помилкова кількіÑÑ‚ÑŒ вхідних параметрів: мало бути %d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real expected.\n" +msgstr "" +"%s: помилковий тип вхідного параметра â„–%d: Ñлід викориÑтовувати тип дійÑних " +"значень.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: An integer expected.\n" +msgstr "%s: помилковий тип вхідного параметра â„–%d: мало бути ціле чиÑло.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: A real expected.\n" +msgstr "" +"%s: помилковий розмір вхідного параметра â„–%d: Ñлід викориÑтовувати дійÑне " +"чиÑло.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: An integer expected.\n" +msgstr "" +"%s: помилкова розмірніÑÑ‚ÑŒ вхідного параметра â„–%d: мало бути ціле чиÑло.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be between %d and %d.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: Ñлід викориÑтовувати Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ " +"між %d та %d.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Integer >= %d expected.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: мало бути викориÑтано ціле " +"чиÑло >= %d.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d to %d expected.\n" +msgstr "" +"%s: помилкова кількіÑÑ‚ÑŒ вхідних параметрів: Ñлід викориÑтовувати від %d до " +"%d.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', %d or %d expected.\n" +msgstr "" +"%s: Помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: Ñлід викориÑтовувати «%s», " +"«%s», %d або %d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Vector expected.\n" +msgstr "" +"%s: помилковий тип вхідного параметра â„–%d: Ñлід викориÑтовувати тип " +"вектора.\n" + +#, c-format +msgid "%s: Incompatible input arguments #%d and #%d: Same sizes expected" +msgstr "" +"%s: вхідні параметри â„–%d Ñ– â„–%d Ñ” неÑуміÑними: параметри мали бути однакових " +"розмірів" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of line as first input " +"argument expected.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: кількіÑÑ‚ÑŒ Ñ€Ñдків мала " +"збігатиÑÑ Ð· кількіÑÑ‚ÑŽ Ñ€Ñдків у першому.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of column as first input " +"argument expected.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: кількіÑÑ‚ÑŒ Ñтовпчиків мала " +"збігатиÑÑ Ð· кількіÑÑ‚ÑŽ Ñтовпчиків у першому.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: a real matrix expected.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: мало бути вказано матрицю з " +"дійÑними елементами.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: an integer or a real matrix " +"expected.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: мало бути вказано ціле чиÑло " +"або матрицю з дійÑними елементами.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: %d or %d expected.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: Ñлід викориÑтовувати %d або " +"%d.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: %dx%d expected.\n" +msgstr "%s: помилкова розмірніÑÑ‚ÑŒ вхідного параметра â„–%d: мало бути %dx%d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: an integer expected.\n" +msgstr "%s: помилковий тип вхідного параметра â„–%d: мало бути ціле чиÑло.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d, %d or %d expected.\n" +msgstr "" +"%s: помилкова кількіÑÑ‚ÑŒ вхідних параметрів: мало бути %d, %d або %d.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d expected.\n" +msgstr "" +"%s: помилкова кількіÑÑ‚ÑŒ вхідних параметрів: Ñлід викориÑтовувати %d.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: At least %d expected.\n" +msgstr "" +"%s: помилкова кількіÑÑ‚ÑŒ вхідних параметрів: мало бути не менше за %d.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): At least %d expected.\n" +msgstr "" +"%s: помилкова кількіÑÑ‚ÑŒ вхідних параметрів: Ñлід викориÑтовувати не менше за " +"%d.\n" + +#, c-format +msgid "%s: Wrong type of input argument #%d: A single boolean expected.\n" +msgstr "" +"%s: помилковий тип вхідного параметра â„–%d: мало бути викориÑтано одне булеве " +"значеннÑ.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real matrix expected.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: мало бути вказано матрицю з " +"дійÑними елементами.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the interval %s.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð¼Ð°Ñ” перебувати у " +"інтервалі %s.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Integer expected.\n" +msgstr "%s: помилковий тип вхідного параметра â„–%d: мало бути ціле чиÑло.\n" + +#, c-format +msgid "" +"%s: Wrong values for input argument #%d: Elements must be in increasing " +"order.\n" +msgstr "" +"%s: помилкові Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: елементи Ñлід вказувати у " +"порÑдку зроÑтаннÑ.\n" + +#, c-format +msgid "%s: Wrong number of input argument: At least %d expected.\n" +msgstr "" +"%s: помилкова кількіÑÑ‚ÑŒ вхідних параметрів: Ñлід викориÑтовувати не менше за " +"%d.\n" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A column vector or matrix " +"expected.\n" +msgstr "" +"%s: помилкові розмірноÑÑ‚Ñ– вхідного параметра â„–%d: мало бути вказано вектор-" +"Ñтовпчик або матрицю.\n" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A row vector or matrix " +"expected.\n" +msgstr "" +"%s: помилкові розмірноÑÑ‚Ñ– вхідного параметра â„–%d: мало бути вказано вектор-" +"Ñ€Ñдок або матрицю.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', %d, '%s' or %d expected.\n" +msgstr "" +"%s: помилкова Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: мало бути вказано «%s», %d, " +"«%s» або %d.\n" + +#, c-format +msgid "%s: Wrong number of input argument: %d to %d expected.\n" +msgstr "" +"%s: помилкова кількіÑÑ‚ÑŒ вхідних параметрів: Ñлід викориÑтовувати від %d до " +"%d параметрів.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real vector or matrix expected.\n" +msgstr "" +"%s: помилковий тип вхідного параметра â„–%d: Ñлід викориÑтовувати вектор або " +"матрицю дійÑних значень.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d.\n" +msgstr "%s: помилковий тип вхідного параметра â„–%d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Scalar or vector expected.\n" +msgstr "" +"%s: помилковий тип вхідного параметра â„–%d: Ñлід викориÑтовувати ÑкалÑрний " +"або векторний тип.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: A full or sparse matrix, or an " +"integer matrix, or an hypermat expected.\n" +msgstr "" +"%s: помилковий тип вхідного параметра â„–%d: мало бути вказано заповнену або " +"розріджену матрицю, цілочиÑельну матрицю або гіперматрицю.\n" + +#, c-format +msgid "" +"%s: Wrong size for input arguments #%d and #%d: Same dimensions expected.\n" +msgstr "" +"%s: помилкові розмірноÑÑ‚Ñ– вхідних параметрів â„–%d та â„–%d: розмірноÑÑ‚Ñ– мали " +"збігатиÑÑ.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d or %d expected.\n" +msgstr "%s: помилкова кількіÑÑ‚ÑŒ вхідних параметрів: мало бути %d або %d.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s','%s' or a positive number " +"expected.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: Ñлід викориÑтовувати «%s», " +"«%s», «%s» або додатне чиÑло.\n" + +#, c-format +msgid "%s: Wrong number of input argument: %d expected.\n" +msgstr "%s: помилкова кількіÑÑ‚ÑŒ вхідних параметрів: мало бути %d.\n" + +#, c-format +msgid "%s: Wrong number of output argument: %d expected.\n" +msgstr "%s: помилкова кількіÑÑ‚ÑŒ вихідного параметра: мало бути %d.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d to %d expected.\n" +msgstr "" +"%s: помилкова кількіÑÑ‚ÑŒ вхідних параметрів: Ñлід викориÑтовувати від %d до " +"%d параметрів.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real or complex, boolean, polynomial " +"matrix expected.\n" +msgstr "" +"%s: помилковий тип вхідного параметра â„–%d: мало бути вказано матрицю з " +"комплекÑних, булевих або поліноміальних значень.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A string or scalar expected.\n" +msgstr "" +"%s: помилковий тип вхідного параметра â„–%d: Ñлід викориÑтовувати тип «string» " +"або ÑкалÑрний (чиÑловий) тип.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the set {%s}.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: Ñлід викориÑтовувати Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ " +"з набору {%s}.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', %d or %d " +"expected.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: Ñлід викориÑтовувати «%s», " +"«%s», «%s», %d або %d.\n" + +#, c-format +msgid "%s: Wrong type for input arguments #%d: Numerical expected.\n" +msgstr "" +"%s: помилковий тип вхідних параметрів â„–%d: Ñлід викориÑтовувати чиÑлові " +"значеннÑ.\n" + +#, c-format +msgid "" +"%s: Incompatible input arguments #%d and #%d: Same column dimensions " +"expected.\n" +msgstr "" +"%s: неÑуміÑні вхідні параметри â„–%d Ñ– â„–%d: Ñлід викориÑтовувати однакову " +"розмірніÑÑ‚ÑŒ за Ñтовпчиками.\n" + +#, c-format +msgid "%s: No NaNs detected, please use %s() instead.\n" +msgstr "%s: NaN-ів не виÑвлено, вам варто ÑкориÑтатиÑÑ %s().\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Numerical expected.\n" +msgstr "" +"%s: помилковий тип вхідного параметра â„–%d: Ñлід викориÑтовувати чиÑловий " +"тип.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d or %d expected.\n" +msgstr "" +"%s: помилкова кількіÑÑ‚ÑŒ вхідних параметрів: Ñлід викориÑтовувати %d або %d.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Boolean expected." +msgstr "" +"%s: помилковий тип вхідного параметра â„–%d: Ñлід викориÑтовувати булівÑьке " +"значеннÑ." + +#, c-format +msgid "%s: NaNs detected, please use %s() instead.\n" +msgstr "%s: виÑвлено NaN-и, ÑкориÑтайтеÑÑ ÐºÑ€Ð°Ñ‰Ðµ %s().\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Non-negative values expected.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: мало бути вказано невід’ємні " +"значеннÑ.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d and #%d: Same size expected.\n" +msgstr "" +"%s: помилкова розмірніÑÑ‚ÑŒ вхідних параметрів â„–%d та â„–%d: розмірніÑÑ‚ÑŒ має " +"бути однаковою.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of rows of the second " +"input argument expected.\n" +msgstr "" +"%s: помилкова розмірніÑÑ‚ÑŒ вхідного параметра â„–%d: кількіÑÑ‚ÑŒ Ñ€Ñдків у другому " +"вхідному параметрі мала збігатиÑÑ Ð· кількіÑÑ‚ÑŽ Ñ€Ñдків у першому.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of columns of the second " +"input argument expected.\n" +msgstr "" +"%s: помилкова розмірніÑÑ‚ÑŒ вхідного параметра â„–%d: кількіÑÑ‚ÑŒ Ñтовпчиків у " +"другому вхідному параметрі мала збігатиÑÑ Ð· кількіÑÑ‚ÑŽ Ñтовпчиків у першому.\n" + +#, c-format +msgid "" +"%s: Wrong value of input argument #%d: Lower than or equal to size of input " +"argument #%d expected.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: мало бути викориÑтано менше " +"або рівне Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð´Ð¾ розмірноÑÑ‚Ñ– вхідного параметра â„–%d.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d: Size %s expected.\n" +msgstr "" +"%s: помилкова розмірніÑÑ‚ÑŒ вхідного параметра â„–%d: Ñлід викориÑтовувати " +"розмірніÑÑ‚ÑŒ %s.\n" + +#, c-format +msgid "%s: Graph demand out of bounds.\n" +msgstr "%s: Ð¿ÐµÑ€ÐµÐ²Ð¸Ñ‰ÐµÐ½Ð½Ñ Ð¾Ð±Ð¼ÐµÐ¶ÐµÐ½ÑŒ графічними даними.\n" + +msgid "Correlations Circle" +msgstr "КорелÑційне коло" + +msgid "Eigenvalues" +msgstr "ВлаÑні значеннÑ" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or a positive " +"integer expected.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: мало бути вказано «%s», «%s», " +"«%s» або додатне ціле чиÑло.\n" + +#, c-format +msgid "%s: Wrong size for input argument #%d.\n" +msgstr "%s: помилкова розмірніÑÑ‚ÑŒ вхідного параметра â„–%d.\n" + +#, c-format +msgid "" +"%s: Wrong value for %d input argument: '%s', '%s', %d or %d expected.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: мало бути «%s», «%s», %d або " +"%d.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Vector, matrix of numbers or strings " +"expected.\n" +msgstr "" +"%s: помилковий тип вхідного параметра â„–%d: Ñлід викориÑтовувати вектора або " +"матрицю з чиÑел або Ñ€Ñдків.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: '%s' or '%s' expected.\n" +msgstr "" +"%s: Помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: Ñлід викориÑтовувати «%s» або " +"«%s».\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Real number between %d to %d " +"expected.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: Ñлід викориÑтовувати дійÑне " +"Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ–Ð´ %d до %d.\n" + +#, c-format +msgid "Wrong value for input argument orien: %s.\n" +msgstr "Помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра orien: %s.\n" + +#, c-format +msgid "Size of x is zero : returning NaN.\n" +msgstr "РозмірніÑÑ‚ÑŒ x дорівнює нулеві: повернуто NaN.\n" + +#, c-format +msgid "discard=%s\n" +msgstr "discard=%s\n" + +#, c-format +msgid "orien=%s\n" +msgstr "orien=%s\n" + +#, c-format +msgid "Size of x:%i\n" +msgstr "РозмірніÑÑ‚ÑŒ x: %i\n" + +#, c-format +msgid "Keeping %i values from %i to %i in sorted order\n" +msgstr "Залишено %i впорÑдкованих значень від %i до %i\n" + +#, c-format +msgid "Unexpected value of orien : %s\n" +msgstr "Ðеочікуване Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ orien: %s\n" + +#, c-format +msgid "%s: Wrong value of m : a priori mean expected.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ m : мало бути викориÑтано попередньо обчиÑлене " +"Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ñереднього.\n" + +#, c-format +msgid "" +"%s: The significance of input argument #%d has been modified. Please refer " +"to the variance help page.\n" +msgstr "" +"%s: значиміÑÑ‚ÑŒ вхідних параметрів â„–%d було змінено. Будь лаÑка, звернітьÑÑ " +"до Ñторінки довідки щодо variance.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be > %d.\n" +msgstr "" +"%s: помилкове Ð·Ð½Ð°Ñ‡ÐµÐ½Ð½Ñ Ð²Ñ…Ñ–Ð´Ð½Ð¾Ð³Ð¾ параметра â„–%d: Ñлід викориÑтовувати > %d.\n" diff --git a/modules/statistics/locales/zh_CN.po b/modules/statistics/locales/zh_CN.po new file mode 100755 index 000000000..92c36529c --- /dev/null +++ b/modules/statistics/locales/zh_CN.po @@ -0,0 +1,552 @@ +# Simplified Chinese translation for scilab +# Copyright (c) 2008 Rosetta Contributors and Canonical Ltd 2008 +# This file is distributed under the same license as the scilab package. +# FIRST AUTHOR <EMAIL@ADDRESS>, 2008. +# +msgid "" +msgstr "" +"Project-Id-Version: scilab\n" +"Report-Msgid-Bugs-To: <localization@lists.scilab.org>\n" +"POT-Creation-Date: 2013-04-16 17:44+0100\n" +"PO-Revision-Date: 2012-11-27 13:47+0000\n" +"Last-Translator: Wesh <Unknown>\n" +"Language-Team: Simplified Chinese <zh_CN@li.org>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" +"X-Generator: Launchpad (build 17413)\n" +"Language: \n" + +msgid "X,Y,A and B" +msgstr "Xã€Yã€Aå’ŒB" + +msgid "A,B,P and Q" +msgstr "Aã€Bã€På’ŒQ" + +msgid "B,P,Q,X and Y" +msgstr "Bã€Pã€Qã€Xå’ŒY" + +msgid "P,Q,X,Y and A" +msgstr "Pã€Qã€Xã€Yå’ŒA" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n" +msgstr "%s：输入å‚æ•°#%d的值错误：应该为'%s'，'%s'，'%s'或'%s' 。\n" + +msgid "S,Xn,Pr and Ompr" +msgstr "Sã€Xnã€Prå’ŒOmpr" + +msgid "Xn,Pr,Ompr,P and Q" +msgstr "Xnã€Prã€Omprã€På’ŒQ" + +msgid "Pr,OMPr,P,Q and S" +msgstr "Prã€OMPrã€Pã€Qå’ŒS" + +msgid "P,Q,S and Xn" +msgstr "Pã€Qã€Så’ŒXn" + +#, c-format +msgid "" +"%s: Warning: using non integer values for argument #%d may lead to incorrect " +"results.\n" +msgstr "" + +msgid "X and Df" +msgstr "Xå’ŒDf" + +msgid "Df, P and Q" +msgstr "Dfã€På’ŒQ" + +msgid "P,Q and X" +msgstr "Pã€Qå’ŒX" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s' or '%s' expected.\n" +msgstr "%s：输入å‚æ•°#%d的值错误：应该为'%s'ã€'%s'或'%s'。\n" + +msgid "cdfchi: Error in cumgam\n" +msgstr "cdfchi：cumgamä¸æœ‰é”™è¯¯\n" + +msgid "X,Df and Pnonc" +msgstr "Xã€Dfå’ŒPnonc" + +msgid "Df,Pnonc,P and Q" +msgstr "Dfã€Pnoncã€På’ŒQ" + +msgid "Pnonc,P,Q and X" +msgstr "Pnoncã€Pã€Qå’ŒX" + +msgid "P,Q,X and Df" +msgstr "Pã€Qã€Xå’ŒDf" + +msgid "F,Dfn and Dfd" +msgstr "Fã€Dfnå’ŒDfd" + +msgid "Dfn,Dfd,P and Q" +msgstr "Dfnã€Dfdã€På’ŒQ" + +msgid "Dfd,P,Q and F" +msgstr "Dfdã€Pã€Qå’ŒF" + +msgid "P,Q,F and Dfn" +msgstr "Pã€Qã€Få’ŒDfn" + +msgid "F,Dfn,Dfd and Pnonc" +msgstr "Fã€Dfnã€Dfdå’ŒPnonc" + +msgid "Dfn,Dfd,Pnonc,P and Q" +msgstr "Dfnã€Dfdã€Pnoncã€På’ŒQ" + +msgid "Dfd,Pnonc,P,Q and F" +msgstr "Dfdã€Pnoncã€Pã€Qå’ŒF" + +msgid "Pnonc,P,Q,F and Dfn" +msgstr "Pnoncã€Pã€Qã€Få’ŒDfn" + +msgid "P,Q,F,Dfn and Dfd" +msgstr "Pã€Qã€Fã€Dfnå’ŒDfd" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', '%s' or '%s' " +"expected.\n" +msgstr "%s：输入å‚æ•°#%d的值错误：应该为'%s'，'%s'，'%s'，'%s'或'%s' 。\n" + +msgid "X,Shape and Rate" +msgstr "Xã€å½¢çŠ¶å’Œé€ŸçŽ‡" + +msgid "Shape,Rate,P and Q" +msgstr "形状，速度，På’ŒQ" + +msgid "Rate,P,Q and X" +msgstr "速率ã€Pã€Qå’ŒX" + +msgid "P,Q,X and Shape" +msgstr "Pã€Qã€Xå’ŒShape" + +msgid "S,XN,PR and OMPR" +msgstr "Sã€XNã€PRå’ŒOMPR" + +msgid "XN,PR,OMPR,P and Q" +msgstr "XNã€PRã€OMPRã€På’ŒQ" + +msgid "PR,OMPR,P,Q and S" +msgstr "PRã€OMPRã€Pã€Qå’ŒS" + +msgid "P,Q,S and Xn" +msgstr "Pã€Qã€Så’ŒXn" + +msgid "X,Mean and Std" +msgstr "Xã€Meanå’ŒStd" + +msgid "Mean,Std,P and Q" +msgstr "Meanã€Stdã€På’ŒQ" + +msgid "Std,P,Q and X" +msgstr "Stdã€Pã€Qå’ŒX" + +msgid "P,Q,X and Mean" +msgstr "Pã€Qã€Xå’ŒMean" + +msgid " Std must not be zero\n" +msgstr " Std必须是0。\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: A matrix of integer values " +"expected.\n" +msgstr "" + +msgid "S and Xlam" +msgstr "Så’ŒXlam" + +msgid "Xlam,P and Q" +msgstr "Xlamã€På’ŒQ" + +msgid "P,Q and S" +msgstr "Pã€Qå’ŒS" + +msgid "T and Df" +msgstr "Tå’ŒDf" + +msgid "P,Q and T" +msgstr "Pã€Qå’ŒT" + +#, c-format +msgid "" +"%s: Wrong number of input arguments with the '%s' option: %d expected.\n" +msgstr "%s：带有'%s'选项的输入å‚数的数目错误：应该为%d。\n" + +#, c-format +msgid "%s and %s must have same size.\n" +msgstr "%så’Œ%så¿…é¡»åŒæ ·å¤§å°ã€‚\n" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %g\n" +msgstr "" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %f\n" +msgstr "ç”案好åƒæ¯”最低æœç´¢è¾¹ç•Œ%f还低\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %s\n" +msgstr "结果似乎高于最大æœç´¢ç•Œé™%s\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %f\n" +msgstr "ç”案好åƒæ¯”最高æœç´¢è¾¹ç•Œ%f还高\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: An integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: A real expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: An integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be between %d and %d.\n" +msgstr "%s：输入å‚æ•°#%d的值错误：必须介于%d与%d之间。\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Integer >= %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input arguments: %d to %d expected.\n" +msgstr "%s：输入å‚数的数目错误：应该为%d到%d个å‚数。\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', %d or %d expected.\n" +msgstr "%s：输入å‚æ•°#%d的值错误：应该为'%s'，'%s'，%d 或 %d 。\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Vector expected.\n" +msgstr "%s：输入å‚æ•°#%d的类型错误：应该为å‘é‡ã€‚\n" + +#, c-format +msgid "%s: Incompatible input arguments #%d and #%d: Same sizes expected" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of line as first input " +"argument expected.\n" +msgstr "%s：输入å‚æ•°#%d的值错误：行数应该应该跟第一个å‚æ•°ä¸€æ ·ã€‚\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of column as first input " +"argument expected.\n" +msgstr "%s：输入å‚æ•°#%d的值错误：列数应该应该跟第一个å‚æ•°ä¸€æ ·ã€‚\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: a real matrix expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: an integer or a real matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: %dx%d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: an integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d, %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input arguments: %d expected.\n" +msgstr "%s：输入å‚数的数目错误，应该为%d个。\n" + +#, c-format +msgid "%s: Wrong number of input arguments: At least %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): At least %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type of input argument #%d: A single boolean expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real matrix expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the interval %s.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Integer expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong values for input argument #%d: Elements must be in increasing " +"order.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument: At least %d expected.\n" +msgstr "%s：输入å‚数的个数错误：应该至少有%d个。\n" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A column vector or matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A row vector or matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', %d, '%s' or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument: %d to %d expected.\n" +msgstr "%s：输入å‚数的数目错误：应该为%d到%d个。\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real vector or matrix expected.\n" +msgstr "%s：输入å‚æ•°#%d的类型错误：应该为实数å‘é‡æˆ–矩阵。\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d.\n" +msgstr "%s：输入å‚æ•°#%d的类型错误。\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Scalar or vector expected.\n" +msgstr "%s：输入å‚æ•°#%dçš„ç±»åž‹é”™è¯¯ï¼šåº”è¯¥ä¸ºæ ‡é‡æˆ–å‘é‡ã€‚\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: A full or sparse matrix, or an " +"integer matrix, or an hypermat expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong size for input arguments #%d and #%d: Same dimensions expected.\n" +msgstr "%s：输入å‚æ•°#%då’Œ#%d的大å°é”™è¯¯ï¼šåº”该为åŒæ ·çš„维数。\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s','%s' or a positive number " +"expected.\n" +msgstr "%s：输入å‚æ•°#%d的值错误：应该为'%s'，'%s'，'%s'或一个æ£æ•°ã€‚\n" + +#, c-format +msgid "%s: Wrong number of input argument: %d expected.\n" +msgstr "%s：第一个输入å‚数值错误：应该为%d。\n" + +#, c-format +msgid "%s: Wrong number of output argument: %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d to %d expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real or complex, boolean, polynomial " +"matrix expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A string or scalar expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the set {%s}.\n" +msgstr "%s：第%d个输入å‚数的值错误：必须在集åˆ{%s}ä¸ã€‚\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', %d or %d " +"expected.\n" +msgstr "%s：输入å‚æ•°#%d的值错误：应该为'%s'，'%s'，'%s'，%d 或 %d。\n" + +#, c-format +msgid "%s: Wrong type for input arguments #%d: Numerical expected.\n" +msgstr "%s：输入å‚æ•°#%d的类型错误：应该为数å—。\n" + +#, c-format +msgid "" +"%s: Incompatible input arguments #%d and #%d: Same column dimensions " +"expected.\n" +msgstr "" + +#, c-format +msgid "%s: No NaNs detected, please use %s() instead.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Numerical expected.\n" +msgstr "%s：输入å‚æ•°#%d的类型错误：应该为数å—。\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Boolean expected." +msgstr "%s：输入å‚æ•°#%d的类型错误：应该为布尔值。" + +#, c-format +msgid "%s: NaNs detected, please use %s() instead.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Non-negative values expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d and #%d: Same size expected.\n" +msgstr "%s：输入å‚æ•°#%då’Œå‚æ•°#%d的大å°é”™è¯¯ï¼šåº”该为åŒæ ·å¤§å°ã€‚\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of rows of the second " +"input argument expected.\n" +msgstr "%s：输入å‚æ•°#%d的大å°é”™è¯¯ï¼šè¡Œæ•°åº”该跟第二个输入å‚数的行数相åŒã€‚\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of columns of the second " +"input argument expected.\n" +msgstr "%s：输入å‚æ•°#%d的大å°é”™è¯¯ï¼šåˆ—数应该跟第二个输入å‚数的列数相åŒã€‚\n" + +#, c-format +msgid "" +"%s: Wrong value of input argument #%d: Lower than or equal to size of input " +"argument #%d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: Size %s expected.\n" +msgstr "%s：输入å‚æ•°#%d的大å°é”™è¯¯ï¼šå¤§å°åº”该为 %s。\n" + +#, c-format +msgid "%s: Graph demand out of bounds.\n" +msgstr "%s：图形请求越界。\n" + +msgid "Correlations Circle" +msgstr "相关圆" + +msgid "Eigenvalues" +msgstr "特å¾å€¼" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or a positive " +"integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for %d input argument: '%s', '%s', %d or %d expected.\n" +msgstr "%s：输入å‚æ•°#%d的值错误：应该为'%s'，'%s'，%d 或 %d。\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Vector, matrix of numbers or strings " +"expected.\n" +msgstr "%s：输入å‚æ•°#%d的类型错误：应该为数å—或å—符串å‘é‡ï¼ˆçŸ©é˜µï¼‰ã€‚\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: '%s' or '%s' expected.\n" +msgstr "%s：输入å‚æ•°#%d的值错误：应该为'%s'或者'%s'。\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Real number between %d to %d " +"expected.\n" +msgstr "%s：输入å‚æ•°#%d的值错误：应该为介于 %d 到 %d 之间的实数。\n" + +#, c-format +msgid "Wrong value for input argument orien: %s.\n" +msgstr "输入å‚æ•°orien的值错误：%s。\n" + +#, c-format +msgid "Size of x is zero : returning NaN.\n" +msgstr "x的大å°æ˜¯é›¶ï¼šè¿”回NaN。\n" + +#, c-format +msgid "discard=%s\n" +msgstr "discard=%s\n" + +#, c-format +msgid "orien=%s\n" +msgstr "orien=%s\n" + +#, c-format +msgid "Size of x:%i\n" +msgstr "x的大å°ï¼š%i\n" + +#, c-format +msgid "Keeping %i values from %i to %i in sorted order\n" +msgstr "请将 %i 个数（从 %i 到 %i）排好åºã€‚\n" + +#, c-format +msgid "Unexpected value of orien : %s\n" +msgstr "ä¸æ£ç¡®çš„orien值：%s\n" + +#, c-format +msgid "%s: Wrong value of m : a priori mean expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: The significance of input argument #%d has been modified. Please refer " +"to the variance help page.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be > %d.\n" +msgstr "%s：输入å‚æ•°#%d的值错误：必须 > %d。\n" diff --git a/modules/statistics/locales/zh_TW.po b/modules/statistics/locales/zh_TW.po new file mode 100755 index 000000000..d48398cee --- /dev/null +++ b/modules/statistics/locales/zh_TW.po @@ -0,0 +1,552 @@ +# Traditional Chinese translation for scilab +# Copyright (c) 2008 Rosetta Contributors and Canonical Ltd 2008 +# This file is distributed under the same license as the scilab package. +# FIRST AUTHOR <EMAIL@ADDRESS>, 2008. +# +msgid "" +msgstr "" +"Project-Id-Version: scilab\n" +"Report-Msgid-Bugs-To: <localization@lists.scilab.org>\n" +"POT-Creation-Date: 2013-04-16 17:44+0100\n" +"PO-Revision-Date: 2011-09-01 09:46+0000\n" +"Last-Translator: Scilab.team <Unknown>\n" +"Language-Team: Traditional Chinese <zh_TW@li.org>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" +"X-Generator: Launchpad (build 17413)\n" +"Language: \n" + +msgid "X,Y,A and B" +msgstr "X,Y,A åŠ B" + +msgid "A,B,P and Q" +msgstr "A,B,P åŠ Q" + +msgid "B,P,Q,X and Y" +msgstr "B,P,Q,X åŠ Y" + +msgid "P,Q,X,Y and A" +msgstr "P,Q,X,Y åŠ A" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n" +msgstr "%s: 第 %d 個輸入åƒæ•¸æ•¸å€¼éŒ¯èª¤: 應為 '%s', '%s' , '%s' 或 '%s' .\n" + +msgid "S,Xn,Pr and Ompr" +msgstr "S,Xn,Pr åŠ Ompr" + +msgid "Xn,Pr,Ompr,P and Q" +msgstr "Xn,Pr,Ompr,P åŠ Q" + +msgid "Pr,OMPr,P,Q and S" +msgstr "Pr,OMPr,P,Q åŠ S" + +msgid "P,Q,S and Xn" +msgstr "P,Q,S åŠ Xn" + +#, c-format +msgid "" +"%s: Warning: using non integer values for argument #%d may lead to incorrect " +"results.\n" +msgstr "" + +msgid "X and Df" +msgstr "X åŠ Df" + +msgid "Df, P and Q" +msgstr "Df, P åŠ Q" + +msgid "P,Q and X" +msgstr "P,Q åŠ X" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s' or '%s' expected.\n" +msgstr "%s: 第 %d 個輸入åƒæ•¸æ•¸å€¼éŒ¯èª¤: 應為 '%s', '%s' 或 '%s' .\n" + +msgid "cdfchi: Error in cumgam\n" +msgstr "cdfchi: cumgam ä¸ä¹‹éŒ¯èª¤\n" + +msgid "X,Df and Pnonc" +msgstr "X,Df åŠ Pnonc" + +msgid "Df,Pnonc,P and Q" +msgstr "Df,Pnonc,P åŠ Q" + +msgid "Pnonc,P,Q and X" +msgstr "Pnonc,P,Q åŠ X" + +msgid "P,Q,X and Df" +msgstr "P,Q,X åŠ Df" + +msgid "F,Dfn and Dfd" +msgstr "F,Dfn åŠ Dfd" + +msgid "Dfn,Dfd,P and Q" +msgstr "Dfn,Dfd,P åŠ Q" + +msgid "Dfd,P,Q and F" +msgstr "Dfd,P,Q åŠ F" + +msgid "P,Q,F and Dfn" +msgstr "P,Q,F åŠ Dfn" + +msgid "F,Dfn,Dfd and Pnonc" +msgstr "F,Dfn,Dfd åŠ Pnonc" + +msgid "Dfn,Dfd,Pnonc,P and Q" +msgstr "Dfn,Dfd,Pnonc,P åŠ Q" + +msgid "Dfd,Pnonc,P,Q and F" +msgstr "Dfd,Pnonc,P,Q åŠ F" + +msgid "Pnonc,P,Q,F and Dfn" +msgstr "Pnonc,P,Q,F åŠ Dfn" + +msgid "P,Q,F,Dfn and Dfd" +msgstr "P,Q,F,Dfn åŠ Dfd" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', '%s' or '%s' " +"expected.\n" +msgstr "%s: 第 %d 個輸入åƒæ•¸æ•¸å€¼éŒ¯èª¤: 應為 '%s', '%s' , '%s' , '%s' 或 '%s' .\n" + +msgid "X,Shape and Rate" +msgstr "" + +msgid "Shape,Rate,P and Q" +msgstr "" + +msgid "Rate,P,Q and X" +msgstr "" + +msgid "P,Q,X and Shape" +msgstr "P,Q,X åŠ Shape" + +msgid "S,XN,PR and OMPR" +msgstr "S,XN,PR åŠ OMPR" + +msgid "XN,PR,OMPR,P and Q" +msgstr "XN,PR,OMPR,P åŠ Q" + +msgid "PR,OMPR,P,Q and S" +msgstr "PR,OMPR,P,Q åŠ S" + +msgid "P,Q,S and Xn" +msgstr "P,Q,S åŠ Xn" + +msgid "X,Mean and Std" +msgstr "X,Mean åŠ Std" + +msgid "Mean,Std,P and Q" +msgstr "Mean,Std,P åŠ Q" + +msgid "Std,P,Q and X" +msgstr "Std,P,Q åŠ X" + +msgid "P,Q,X and Mean" +msgstr "P,Q,X åŠ Mean" + +msgid " Std must not be zero\n" +msgstr " Std ä¸å¯ç‚º 0\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: A matrix of integer values " +"expected.\n" +msgstr "" + +msgid "S and Xlam" +msgstr "S åŠ Xlam" + +msgid "Xlam,P and Q" +msgstr "Xlam,P åŠ Q" + +msgid "P,Q and S" +msgstr "P,Q åŠ S" + +msgid "T and Df" +msgstr "T åŠ Df" + +msgid "P,Q and T" +msgstr "P,Q åŠ T" + +#, c-format +msgid "" +"%s: Wrong number of input arguments with the '%s' option: %d expected.\n" +msgstr "%s: é¸é … '%s' 之輸入åƒæ•¸æ•¸ç›®éŒ¯èª¤: 應為 %d.\n" + +#, c-format +msgid "%s and %s must have same size.\n" +msgstr "%s åŠ %s é•·åº¦é ˆç›¸åŒ.\n" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %g\n" +msgstr "" + +#, c-format +msgid "Answer appears to be lower than lowest search bound %f\n" +msgstr "ç”案似乎å°æ–¼æœ€å°æœç´¢ç•Œé™ %f\n" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %s\n" +msgstr "" + +#, c-format +msgid "Answer appears to be higher than greatest search bound %f\n" +msgstr "ç”案似乎大於最大æœç´¢ç•Œé™ %f\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: An integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: A real expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: An integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be between %d and %d.\n" +msgstr "%s: 第 %d 個輸入åƒæ•¸æ•¸å€¼éŒ¯èª¤: 應介於 %d åŠ %d 之間.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Integer >= %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input arguments: %d to %d expected.\n" +msgstr "%s: 輸入åƒæ•¸æ•¸ç›®éŒ¯èª¤: 應為 %d 至 %d 個輸入åƒæ•¸.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', %d or %d expected.\n" +msgstr "%s: 第 %d 輸入åƒæ•¸æ•¸å€¼éŒ¯èª¤: 應為'%s', '%s', %d 或 %d .\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Vector expected.\n" +msgstr "%s: 第 %d 輸入åƒæ•¸åž‹æ…‹éŒ¯èª¤: 應為å‘é‡.\n" + +#, c-format +msgid "%s: Incompatible input arguments #%d and #%d: Same sizes expected" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of line as first input " +"argument expected.\n" +msgstr "%s: 第 %d 輸入åƒæ•¸æ•¸å€¼éŒ¯èª¤: 應為與第一åƒæ•¸ä¹‹è¡Œæ•¸ç›¸åŒ.\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Same number of column as first input " +"argument expected.\n" +msgstr "%s: 第 %d 輸入åƒæ•¸æ•¸å€¼éŒ¯èª¤: 應為與第一åƒæ•¸ä¹‹åˆ—數相åŒ.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: a real matrix expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: an integer or a real matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: %dx%d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: an integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d, %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input arguments: %d expected.\n" +msgstr "%s: 輸入åƒæ•¸ä¹‹æ•¸ç›®éŒ¯èª¤: 應為 %d 個.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: At least %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): At least %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type of input argument #%d: A single boolean expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A real matrix expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the interval %s.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Integer expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong values for input argument #%d: Elements must be in increasing " +"order.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument: At least %d expected.\n" +msgstr "%s: 輸入åƒæ•¸ä¹‹æ•¸ç›®éŒ¯èª¤: 最å°ç‚º %d.\n" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A column vector or matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong dimensions for input argument #%d: A row vector or matrix " +"expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', %d, '%s' or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument: %d to %d expected.\n" +msgstr "%s: 輸入åƒæ•¸ä¹‹æ•¸ç›®éŒ¯èª¤: 應為 %d 到 %d 之數.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real vector or matrix expected.\n" +msgstr "%s: 第 %d 個輸入åƒæ•¸åž‹æ…‹éŒ¯èª¤: 應為å‘é‡æˆ–矩陣.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d.\n" +msgstr "%s: 第 %d 個輸入åƒæ•¸åž‹æ…‹éŒ¯èª¤.\n" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Scalar or vector expected.\n" +msgstr "%s: 第 %d 輸入åƒæ•¸åž‹æ…‹éŒ¯èª¤: 應為純é‡æˆ–å‘é‡.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: A full or sparse matrix, or an " +"integer matrix, or an hypermat expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong size for input arguments #%d and #%d: Same dimensions expected.\n" +msgstr "%s: 第 %d åŠç¬¬ %d 輸入åƒæ•¸é•·åº¦éŒ¯èª¤: 應為相åŒç¶åº¦.\n" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s','%s' or a positive number " +"expected.\n" +msgstr "%s: 第 %d 個輸入åƒæ•¸æ•¸å€¼éŒ¯èª¤: 應為 '%s', '%s' , '%s' 或æ£å€¼ä¹‹æ•¸ .\n" + +#, c-format +msgid "%s: Wrong number of input argument: %d expected.\n" +msgstr "%s: 輸入åƒæ•¸æ•¸ç›®éŒ¯èª¤: 應為 %d 個.\n" + +#, c-format +msgid "%s: Wrong number of output argument: %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong number of input argument(s): %d to %d expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Real or complex, boolean, polynomial " +"matrix expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: A string or scalar expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be in the set {%s}.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s', %d or %d " +"expected.\n" +msgstr "%s: 第 %d 個輸入åƒæ•¸æ•¸å€¼éŒ¯èª¤: 應為 '%s', '%s' , '%s' , %d 或 %d .\n" + +#, c-format +msgid "%s: Wrong type for input arguments #%d: Numerical expected.\n" +msgstr "%s: 第 %d 輸入åƒæ•¸åž‹æ…‹éŒ¯èª¤: 應為數值.\n" + +#, c-format +msgid "" +"%s: Incompatible input arguments #%d and #%d: Same column dimensions " +"expected.\n" +msgstr "" + +#, c-format +msgid "%s: No NaNs detected, please use %s() instead.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Numerical expected.\n" +msgstr "%s: 第 %d 輸入åƒæ•¸åž‹æ…‹éŒ¯èª¤: 應為一數值.\n" + +#, c-format +msgid "%s: Wrong number of input arguments: %d or %d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong type for input argument #%d: Boolean expected." +msgstr "%s: 第 %d 輸入åƒæ•¸åž‹æ…‹éŒ¯èª¤: 應為一布林數." + +#, c-format +msgid "%s: NaNs detected, please use %s() instead.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Non-negative values expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d and #%d: Same size expected.\n" +msgstr "%s: 第 %d åŠ ç¬¬ %d 輸入åƒæ•¸é•·åº¦éŒ¯èª¤: 長度應相åŒ.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of rows of the second " +"input argument expected.\n" +msgstr "%s: 第 %d 輸入åƒæ•¸é•·åº¦éŒ¯èª¤: 應與第二åƒæ•¸ä¹‹è¡Œæ•¸ç›¸åŒ.\n" + +#, c-format +msgid "" +"%s: Wrong size for input argument #%d: Same number of columns of the second " +"input argument expected.\n" +msgstr "%s: 第 %d 輸入åƒæ•¸é•·åº¦éŒ¯èª¤: 應與第二åƒæ•¸ä¹‹åˆ—數相åŒ.\n" + +#, c-format +msgid "" +"%s: Wrong value of input argument #%d: Lower than or equal to size of input " +"argument #%d expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d: Size %s expected.\n" +msgstr "%s: 第 %d 輸入åƒæ•¸é•·åº¦éŒ¯èª¤: 長度應為 %s.\n" + +#, c-format +msgid "%s: Graph demand out of bounds.\n" +msgstr "%s: è¦æ±‚之 Graph 超éŽç¯„åœ.\n" + +msgid "Correlations Circle" +msgstr "Correlations 圓" + +msgid "Eigenvalues" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: '%s', '%s', '%s' or a positive " +"integer expected.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong size for input argument #%d.\n" +msgstr "" + +#, c-format +msgid "" +"%s: Wrong value for %d input argument: '%s', '%s', %d or %d expected.\n" +msgstr "%s: 第 %d 輸入åƒæ•¸æ•¸å€¼éŒ¯èª¤: 應為 '%s', '%s', %d 或 %d.\n" + +#, c-format +msgid "" +"%s: Wrong type for input argument #%d: Vector, matrix of numbers or strings " +"expected.\n" +msgstr "%s: 第 %d 輸入åƒæ•¸åž‹æ…‹éŒ¯èª¤: 應為å‘é‡,數值矩陣或å—串.\n" + +#, c-format +msgid "%s: Wrong value for input argument #%d: '%s' or '%s' expected.\n" +msgstr "%s: 第 %d 個輸入åƒæ•¸æ•¸å€¼éŒ¯èª¤: 應為 '%s' 或 '%s' .\n" + +#, c-format +msgid "" +"%s: Wrong value for input argument #%d: Real number between %d to %d " +"expected.\n" +msgstr "%s: 第 %d 輸入åƒæ•¸æ•¸å€¼éŒ¯èª¤: 應為介於 %d , %d 間之實數.\n" + +#, c-format +msgid "Wrong value for input argument orien: %s.\n" +msgstr "輸入åƒæ•¸ orien 的數值錯誤: %s.\n" + +#, c-format +msgid "Size of x is zero : returning NaN.\n" +msgstr "x 的資料長度是零: 回傳 NaN.\n" + +#, c-format +msgid "discard=%s\n" +msgstr "discard=%s\n" + +#, c-format +msgid "orien=%s\n" +msgstr "orien=%s\n" + +#, c-format +msgid "Size of x:%i\n" +msgstr "x 的資料長度: %i\n" + +#, c-format +msgid "Keeping %i values from %i to %i in sorted order\n" +msgstr "從經排åºå¾Œçš„ %i 到 %i ä¸ä¿ç•™æ•¸å€¼ %i\n" + +#, c-format +msgid "Unexpected value of orien : %s\n" +msgstr "orien 的數值無法é 期: %s\n" + +#, c-format +msgid "%s: Wrong value of m : a priori mean expected.\n" +msgstr "" + +#, c-format +msgid "" +"%s: The significance of input argument #%d has been modified. Please refer " +"to the variance help page.\n" +msgstr "" + +#, c-format +msgid "%s: Wrong value for input argument #%d: Must be > %d.\n" +msgstr "%s: 第 %d 個輸入åƒæ•¸æ•¸å€¼éŒ¯èª¤: 應 > %d.\n" diff --git a/modules/statistics/macros/binomial.bin b/modules/statistics/macros/binomial.bin Binary files differnew file mode 100755 index 000000000..8dd8835ba --- /dev/null +++ b/modules/statistics/macros/binomial.bin diff --git a/modules/statistics/macros/binomial.sci b/modules/statistics/macros/binomial.sci new file mode 100755 index 000000000..e311dd211 --- /dev/null +++ b/modules/statistics/macros/binomial.sci @@ -0,0 +1,59 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA +// Copyright (C) DIGITEO - 2011 - Allan CORNET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + +function [P] = binomial(p,N) + // + // PURPOSE + // Compute probabilities of the binomial law B(N,p) + // + // PARAMETERS + // p : a real in [0,1] + // N : an integer >= 0 + // P : a row vector with N+1 components and : + // + // P(k+1) = P(X=k) = C(k,N) (1-p)^k p^(N-k) + // + // Rewritten by Bruno for a gain in speed (by using + // cdfbin which computes the cumulative probability) + // + + rhs = argn(2); + if rhs <> 2 then + error(msprintf(gettext("%s: Wrong number of input argument(s): %d expected.\n"),"binomial", 2)); + end + + if type(p) ~= 1 then + error(msprintf(gettext("%s: Wrong type for input argument #%d: A real expected.\n"),"binomial",1)); + end + + if type(N) ~= 1 then + error(msprintf(gettext("%s: Wrong type for input argument #%d: An integer expected.\n"),"binomial",2)); + end + + if length(p) ~= 1 then + error(msprintf(gettext("%s: Wrong size for input argument #%d: A real expected.\n"),"binomial",1)); + end + + if length(N) ~= 1 then + error(msprintf(gettext("%s: Wrong size for input argument #%d: An integer expected.\n"),"binomial",2)); + end + + if p < 0 | p > 1 then + error(msprintf(gettext("%s: Wrong value for input argument #%d: Must be between %d and %d.\n"),"binomial",1,0,1)); + end + + if N < 1 | floor(N)-N ~= 0 then + error(msprintf(gettext("%s: Wrong value for input argument #%d: Integer >= %d expected.\n"),"binomial",2,1)); + end + + un = ones(1,N+1); + P = cdfbin("PQ", 0:N, N*un, p*un, (1-p)*un) + P(2:N+1) = P(2:N+1) - P(1:N) +endfunction diff --git a/modules/statistics/macros/buildmacros.bat b/modules/statistics/macros/buildmacros.bat new file mode 100755 index 000000000..c4e35ec40 --- /dev/null +++ b/modules/statistics/macros/buildmacros.bat @@ -0,0 +1 @@ +@..\..\..\bin\scilex -nwni -ns -e exec('buildmacros.sce');quit;
\ No newline at end of file diff --git a/modules/statistics/macros/buildmacros.sce b/modules/statistics/macros/buildmacros.sce new file mode 100755 index 000000000..5e5182adf --- /dev/null +++ b/modules/statistics/macros/buildmacros.sce @@ -0,0 +1,16 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2006-2008 - INRIA - Allan CORNET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// +//------------------------------------ +if (isdef("genlib") == %f) then + exec(SCI+"/modules/functions/scripts/buildmacros/loadgenlib.sce"); +end +//------------------------------------ +genlib("statisticslib","SCI/modules/statistics/macros",%f,%t); +//------------------------------------ diff --git a/modules/statistics/macros/center.bin b/modules/statistics/macros/center.bin Binary files differnew file mode 100755 index 000000000..20febe2cf --- /dev/null +++ b/modules/statistics/macros/center.bin diff --git a/modules/statistics/macros/center.sci b/modules/statistics/macros/center.sci new file mode 100755 index 000000000..a32ad7139 --- /dev/null +++ b/modules/statistics/macros/center.sci @@ -0,0 +1,48 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2001 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function [s]=center(x,orient) + // + //This function computes s, the centered version of the + //numerical matrix x. + // + //For a vector or a matrix x, s=center(x) returns in the + //(i,j) coefficient of the matrix s the value + //(x(i,j)-xbar), where xbar is the mean of the values of + //the coefficients of x. + // + //s=center(x,'r') (or, equivalently, s=center(x,1)) is the + //rowwise center reduction of the values of x. It returns + //in the entry s(i,j) the value (x(i,j)-xbarv(j)) with + //xbarv(j) the mean of the values of the j column. + // + //s=center(x,'c') (or, equivalently, s=center(x,2)) is the + //columnwise centre reduction of the values of x. It + //returns in the entry s(i,j) the value (x(i,j)-xbarh(i)) + //with xbarh(i) the mean of the values of the i row. + // + + [lhs,rhs]=argn(0) + if (rhs<1)|(rhs>2) then error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"center",1,2)), end + if x==[] then s=%nan, return, end + [m n]=size(x); + if rhs==1 + xbar=(sum(x)/(m*n)) + s=x-(ones(m,n)*xbar) + elseif orient=="c"|orient==2 then + xbar=sum(x,"c")/n + s=x-(xbar*ones(1,n)) + elseif orient=="r"|orient==1 then + xbar=sum(x,"r")/m + s=x-(ones(m,1)*xbar) + else error(msprintf(gettext("%s: Wrong value for input argument #%d: ''%s'', ''%s'', %d or %d expected.\n"),"center",2,"r","c",1,2)), + end +endfunction diff --git a/modules/statistics/macros/cleanmacros.bat b/modules/statistics/macros/cleanmacros.bat new file mode 100755 index 000000000..5079dfd71 --- /dev/null +++ b/modules/statistics/macros/cleanmacros.bat @@ -0,0 +1,3 @@ +@del *.bin 2>NUL +@del lib 2>NUL +@del names 2>NUL
\ No newline at end of file diff --git a/modules/statistics/macros/cmoment.bin b/modules/statistics/macros/cmoment.bin Binary files differnew file mode 100755 index 000000000..98d91a25a --- /dev/null +++ b/modules/statistics/macros/cmoment.bin diff --git a/modules/statistics/macros/cmoment.sci b/modules/statistics/macros/cmoment.sci new file mode 100755 index 000000000..fc0b8a571 --- /dev/null +++ b/modules/statistics/macros/cmoment.sci @@ -0,0 +1,57 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 1999 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function mom= cmoment(x,ord,orien) + // + //This function computes the central moment of all orders of a vector or + //matrix x. + // + //For a vector or matrix x, mom=cmoment(x,ord) returns in the scalar mom + //the moment of order ord of all the entries of x. + // + //mom=cmoment(x,ord,'r')(or, equivalently, mom=cmoment(x,ord,1)) returns + //in each entry of the row vector mom the moment of order ord of each + //column of x. + // + //mom=cmoment(x,ord,'c')(or, equivalently, mom=cmoment(x,ord,2)) returns + //in each entry of the column vector mom the moment of order ord of each + //row of x. + // + //Nota: In the calculations the divisor is n-1 , where n is the + //dimension of the data vector. + // + //References: Wonacott, T.H. & Wonacott, R.J.; Introductory + //Statistics, J.Wiley & Sons, 1990. + // + // + [lhs,rhs]=argn(0) + if rhs<2 then error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"cmoment",2,3)), end + if x==[]|ord==[] then mom=%nan, return, end + if rhs==2 then + if ord==1 then mom=0, return, end + le=length(x) + m=sum(x)/le + mom=sum((x-m).^ord)/(le) + return + elseif rhs==3 then + le=size(x,orien) + m=mean(x,orien) + if orien=="r"|orien==1 then + m=m(ones(le,1),:) + elseif orien=="c"|orien==1 then + m=m(:,ones(le,1)) + else error(msprintf(gettext("%s: Wrong value for input argument #%d: ''%s'', ''%s'', %d or %d expected.\n"),"cmoment",3,"r","c",1,2)), + end + mom=sum((x-m).^ord,orien)/(le) + return + else error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"cmoment",2,3)), + end +endfunction diff --git a/modules/statistics/macros/correl.bin b/modules/statistics/macros/correl.bin Binary files differnew file mode 100755 index 000000000..c7a1cbaa7 --- /dev/null +++ b/modules/statistics/macros/correl.bin diff --git a/modules/statistics/macros/correl.sci b/modules/statistics/macros/correl.sci new file mode 100755 index 000000000..64f43fd78 --- /dev/null +++ b/modules/statistics/macros/correl.sci @@ -0,0 +1,81 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2000 - INRIA - Carlos Klimann +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function rho=correl(varargin) + // + //This function computes the correlation of two variables x + //and y where x is a numerical vector of length n, y is a + //numerical vector of length m and fre is an array of + //dimensions nxm. In fre the element of indices (i,j) + //corresponds to the number or frequencies of x_i&y_j. + // + //References: Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, + //J.Wiley & Sons, 1990. + // + // + rhs = argn(2); + if rhs < 2 | rhs > 3 then + error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"correl",2,3)); + end + + x = varargin(1); + y = varargin(2); + + if type(x) <> 1 | ~isvector(x) then + error(msprintf(gettext("%s: Wrong type for input argument #%d: Vector expected.\n"),"correl",1)); + end + + if type(y) <> 1 | ~isvector(y) then + error(msprintf(gettext("%s: Wrong type for input argument #%d: Vector expected.\n"),"correl",2)); + end + + if isempty(x) | isempty(y) then + rho = %nan + return; + end + + cx = size(x, "*"); + ly = size(y, "*"); + x=matrix(x,1,cx); + y=matrix(y,ly,1); + + if rhs == 2 then + if cx <> ly then + error(msprintf(gettext("%s: Incompatible input arguments #%d and #%d: Same sizes expected"), "correl", 1, 2)); + end + mx = mean(x); + my = mean(y); + sx = sqrt(sum((x-mx).^2)) + sy = sqrt(sum((y-my).^2)) + rho = (x-mx)*(y-my) / (sx*sy); + else + fre = varargin(3); + [lfre, cfre] = size(fre); + + if cx <> lfre then + error(msprintf(gettext("%s: Wrong value for input argument #%d: Same number of line as first input argument expected.\n"),"correl",3)); + end + if ly <>cfre then + error(msprintf(gettext("%s: Wrong value for input argument #%d: Same number of column as first input argument expected.\n"),"correl",3)); + end + + fr=fre/sum(fre) + px=sum(fr,"c") + py=sum(fr,"r") + mx = x * px; + my = py*y; + sx = sqrt(((x-mx).^2)*px); + sy = sqrt(py*((y-my).^2)); + sxy = sum((x-mx)*fr*(y-my)); + rho=sxy/(sx*sy) + end + +endfunction diff --git a/modules/statistics/macros/cov.bin b/modules/statistics/macros/cov.bin Binary files differnew file mode 100755 index 000000000..3514ab4f1 --- /dev/null +++ b/modules/statistics/macros/cov.bin diff --git a/modules/statistics/macros/cov.sci b/modules/statistics/macros/cov.sci new file mode 100755 index 000000000..34ecc5c2a --- /dev/null +++ b/modules/statistics/macros/cov.sci @@ -0,0 +1,201 @@ +// Copyright (C) 2012-2013 - Michael Baudin +// Copyright (C) 2009-2010 - DIGITEO - Michael Baudin +// Copyright (C) 1993 - 1995 - Anders Holtsberg +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + +function C = cov(varargin) + // Covariance matrix + // + // Calling Sequence + // C = cov(x) + // C = cov(x, 0) + // C = cov(x, 1) + // C = cov(x, y) + // C = cov(x, y, 0) + // C = cov(x, y, 1) + // + // Parameters + // x: a nobs-by-1 or nobs-by-nvar matrix of doubles + // y: a nobs-by-1 or nobs-by-nvar matrix of doubles + // C: a square matrix of doubles, the empirical covariance + // + // Description + // If x is a nobs-by-1 matrix, + // then cov(x) returns the variance of x, + // normalized by nobs-1. + // + // If x is a nobs-by-nvar matrix, + // then cov(x) returns the nvar-by-nvar covariance matrix of the + // columns of x, normalized by nobs-1. + // Here, each column of x is a variable and + // each row of x is an observation. + // + // If x and y are two nobs-by-1 matrices, + // then cov(x, y) returns the 2-by-2 covariance matrix of x and + // y, normalized by nobs-1, where nobs is the number of observations. + // + // cov(x, 0) is the same as cov(x) and + // cov(x, y, 0) is the same as cov(x, y). + // In this case, if the population is from a normal distribution, + // then C is the best unbiased estimate of the covariance matrix. + // + // cov(x, 1) and cov(x, y, 1) normalize by nobs. + // In this case, C is the second moment matrix of the + // observations about their mean. + // + // The covariance of X and Y is defined by: + // + // Cov(X, Y) = E( (X-E(X)) (Y-E(Y))^T ) + // + // where E is the expectation. + // + // This function is compatible with Matlab. + // + // Examples + // x = [1; 2]; + // y = [3; 4]; + // C = cov(x, y) + // expected = [0.5, 0.5; 0.5, 0.5] + // C = cov([x, y]) + // + // x = [230; 181; 165; 150; 97; 192; 181; 189; 172; 170]; + // y = [125; 99; 97; 115; 120; 100; 80; 90; 95; 125]; + // expected = [ + // 1152.4556, -88.911111 + // -88.911111, 244.26667 + // ] + // C = cov(x, y) + // C = cov([x, y]) + // + // // Source [3] + // A = [ + // 4.0 2.0 0.60 + // 4.2 2.1 0.59 + // 3.9 2.0 0.58 + // 4.3 2.1 0.62 + // 4.1 2.2 0.63 + // ]; + // S = [ + // 0.025 0.0075 0.00175 + // 0.0075 0.007 0.00135 + // 0.00175 0.00135 0.00043 + // ]; + // C = cov(A) + // + // Bibliography + // [1] http://en.wikipedia.org/wiki/Covariance_matrix + // [2] "Introduction to probability and statistics for engineers and scientists.", Sheldon Ross + // [3] NIST/SEMATECH e-Handbook of Statistical Methods, 6.5.4.1. Mean Vector and Covariance Matrix, http://www.itl.nist.gov/div898/handbook/pmc/section5/pmc541.htm + + + [lhs, rhs]=argn() + // + if (rhs == 1) then + x = varargin(1) + // + // Check type + if (typeof(x) <> "constant") + error(msprintf(gettext("%s: Wrong type for input argument #%d: a real matrix expected.\n"),"cov", 1)); + end + nobs = size(x, "r") + r = 1/(nobs-1) + A = x + elseif (rhs == 2) then + // + x = varargin(1) + y = varargin(2) + // + // Check type + if (typeof(x) <> "constant") + error(msprintf(gettext("%s: Wrong type for input argument #%d: a real matrix expected.\n"),"cov", 1)); + end + if (typeof(y) <> "constant") + error(msprintf(gettext("%s: Wrong type for input argument #%d: an integer or a real matrix expected.\n"),"cov", 2)); + end + // + // Check size + nobs = size(x, "r") + if (size(y, "*") == 1) then + if (y <> 0 & y <> 1) + error(msprintf(gettext("%s: Wrong value for input argument #%d: %d or %d expected.\n"),"cov", 2, 0, 1)); + end + if (y == 1) then + r = 1/nobs + A = x + elseif (y == 0) then + r = 1/(nobs-1) + A = x + end + else + if (size(x) <> [nobs 1]) then + error(msprintf(gettext("%s: Wrong size for input argument #%d: %dx%d expected.\n"),"cov", 1, nobs, 1)); + end + if (size(y) <> [nobs 1]) then + error(msprintf(gettext("%s: Wrong size for input argument #%d: %dx%d expected.\n"),"cov", 2, nobs, 1)); + end + r = 1/(nobs-1) + A = [x, y] + end + elseif (rhs == 3) then + // + x = varargin(1) + y = varargin(2) + nrmlztn = varargin(3) + // + // Check type + if (typeof(x) <> "constant") + error(msprintf(gettext("%s: Wrong type for input argument #%d: a real matrix expected.\n"),"cov", 1)); + end + if (typeof(y) <> "constant") + error(msprintf(gettext("%s: Wrong type for input argument #%d: a real matrix expected.\n"),"cov", 2)); + end + if (typeof(nrmlztn) <> "constant") + error(msprintf(gettext("%s: Wrong type for input argument #%d: an integer expected.\n"),"cov", 3)); + end + // + // Check size + nobs = size(x, "r") + if (size(x) <> [nobs 1]) then + error(msprintf(gettext("%s: Wrong size for input argument #%d: %dx%d expected.\n"),"cov", 1, nobs, 1)); + end + if (size(y) <> [nobs 1]) then + error(msprintf(gettext("%s: Wrong size for input argument #%d: %dx%d expected.\n"),"cov", 2, nobs, 1)); + end + if (size(nrmlztn, "*") <> 1) then + error(msprintf(gettext("%s: Wrong type for input argument #%d: an integer expected.\n"),"cov", 3)); + end + // + // Check content + if (nrmlztn <> 0 & nrmlztn <> 1) + error(msprintf(gettext("%s: Wrong value for input argument #%d: %d or %d expected.\n"),"cov", 3, 0, 1)); + end + A = [x, y] + if (nrmlztn == 1) then + r = 1/nobs + else + r = 1/(nobs-1) + end + else + error(msprintf(gettext("%s: Wrong number of input argument(s): %d, %d or %d expected.\n"),"cov", 1, 2, 3)); + end + // + // Compute with A in the general case + nvar = size(A, "c") + nobs = size(A, "r") + for i = 1:nvar + A(:,i) = A(:,i) - mean(A(:,i)) + end + C = zeros(nvar, nvar) + for i = 1:nvar + C(i,i) = A(:,i)'*A(:,i)*r + for j = i+1:nvar + C(i,j) = A(:,i)'*A(:,j)*r + C(j,i) = C(i,j) + end + end +endfunction diff --git a/modules/statistics/macros/covar.bin b/modules/statistics/macros/covar.bin Binary files differnew file mode 100755 index 000000000..6edcc4746 --- /dev/null +++ b/modules/statistics/macros/covar.bin diff --git a/modules/statistics/macros/covar.sci b/modules/statistics/macros/covar.sci new file mode 100755 index 000000000..89308ba02 --- /dev/null +++ b/modules/statistics/macros/covar.sci @@ -0,0 +1,44 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 1999 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function [s]=covar(x,y,fre) + // + //This function computes the covariance of two variables x + //and y where x is a numerical vector of length n, y is a + //numerical vector of length m and fre is an array of + //dimensions nxm. In fre the element of indices (i,j) + //corresponds to the number or frequencies of x_i&y_j. + // + //References: Wonacott, T.H. & Wonacott, R.J.; Introductory Statistics, + //J.Wiley & Sons, 1990. + // + // + //small correction (bug number 1072) date : 8 nov 2004 + // + [lhs,rhs]=argn(0) + if rhs <> 3 then error(msprintf(gettext("%s: Wrong number of input arguments: %d expected.\n"),"covar",3)), end + if x==[] | y==[] then s=%nan; return, end + [lfre cfre]=size(fre); + [lx cx]=size(x) + [ly cy]=size(y) + if lx<>1 & cx<>1 then error(msprintf(gettext("%s: Wrong type for input argument #%d: Vector expected.\n"),"covar",1)), end + if ly<>1 & cy<>1 then error(msprintf(gettext("%s: Wrong type for input argument #%d: Vector expected.\n"),"covar",2)), end + fre(isnan(fre))=0 + lx=lx*cx; + cy=ly*cy; + if lx<>lfre then error(msprintf(gettext("%s: Wrong value for input argument #%d: Same number of line as first input argument expected.\n"),"covar",3)), end + if cy<>cfre then error(msprintf(gettext("%s: Wrong value for input argument #%d: Same number of column as first input argument expected.\n"),"covar",3)), end + x=matrix(x,lx,1); + y=matrix(y,1,cy); + fr=fre/sum(fre) + s=sum(((x-sum(x.*sum(fr,"c")))*ones(1,cy)) .. + .* (fr) .* (ones(lx,1)*(y-sum(y.* sum(fr,"r"))))) +endfunction diff --git a/modules/statistics/macros/ftest.bin b/modules/statistics/macros/ftest.bin Binary files differnew file mode 100755 index 000000000..ef6b21e5f --- /dev/null +++ b/modules/statistics/macros/ftest.bin diff --git a/modules/statistics/macros/ftest.sci b/modules/statistics/macros/ftest.sci new file mode 100755 index 000000000..53f2774a6 --- /dev/null +++ b/modules/statistics/macros/ftest.sci @@ -0,0 +1,36 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2012 - Michael Baudin +// Copyright (C) 2000 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function [f,p]=ftest(samples) + // + //Given a number nc of samples each of them composed of nr + //observations this fonction computes in f the Fischer ratio + //(it is the ratio between nr times the variance of the + //means of samples and the mean of the variances of each + //sample). Additionally it gives (in p) the p-value of the + //computed Fischer ratio. samples is a matrix with type + //nrxnc. + // + //References: Wonacott, T.H. & Wonacott, R.J.; Introductory + //Statistics, J.Wiley & Sons, 1990. + // + if argn(2) == 0 then + error(msprintf(gettext("%s: Wrong number of input arguments: %d expected.\n"),"ftest",1)) + end + [nr nc]=size(samples) + xbar=mean(samples,"r") + xbarbar=mean(xbar) + sx2=sum((xbar-xbarbar).^2)/(nc-1) + sp2=(sum(sum((samples-ones(nr,1)*xbar).^2),"r"))/(nc*(nr-1)) + f=(nr*sx2)/sp2 + [ignored,p]=cdff("PQ",f,(nc-1),(nc*(nr-1))) +endfunction diff --git a/modules/statistics/macros/ftuneq.bin b/modules/statistics/macros/ftuneq.bin Binary files differnew file mode 100755 index 000000000..20ddfce19 --- /dev/null +++ b/modules/statistics/macros/ftuneq.bin diff --git a/modules/statistics/macros/ftuneq.sci b/modules/statistics/macros/ftuneq.sci new file mode 100755 index 000000000..166a79621 --- /dev/null +++ b/modules/statistics/macros/ftuneq.sci @@ -0,0 +1,59 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2012 - Michael Baudin +// Copyright (C) 2000 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function [f,p]=ftuneq(varargin) + // + //This function computes the F ratio for samples of unequal + //size. + // + //"The most efficient design is to make all samples the + //same size n. However when this is nor feasible, it + //still is possible to modify the ANOVA calculations." + //Note that the definition of xbarbar is no longer + //mean(xbar), but rather a weighted average with weights + //ni. Additionally it gives (in p) the p-value of the + //computed Fischer ratio. + // + //Given a number a of samples each of them composed of n_i + //(i from 1 to a) observations this fonction computes in f + //the Fischer ratio (it is the ratio between nr times the + //variance of the means of samples and the mean of the + //variances of each sample). + // + //References: Wonacott, T.H. & Wonacott, R.J.; Introductory + //Statistics, J.Wiley & Sons, 1990. + // + // + [lhs,rhs]=argn(0) + if rhs == 0 then + error(msprintf(gettext("%s: Wrong number of input arguments: At least %d expected.\n"),"ftuneq",1)) + end + data=[] + total=0 + sse=0 + for i=1:rhs + len(i)=size(varargin(i),"*"), + mat=matrix(varargin(i),len(i),1), + partial=sum(mat), + xbar(i)=partial/len(i), + total=total+partial, + data=[data; mat] + sse=sse+sum((mat-xbar(i)).^2) + end + xbarbar=total/sum(len) + ssa=len'*((xbar-xbarbar).^2) + msa=ssa/(rhs-1) + deglib=sum(len-1) + mse=sse/deglib + f=msa/mse + [ignored,p]=cdff("PQ",f,(rhs-1),deglib) +endfunction diff --git a/modules/statistics/macros/geomean.bin b/modules/statistics/macros/geomean.bin Binary files differnew file mode 100755 index 000000000..611dad863 --- /dev/null +++ b/modules/statistics/macros/geomean.bin diff --git a/modules/statistics/macros/geomean.sci b/modules/statistics/macros/geomean.sci new file mode 100755 index 000000000..a51d37fa3 --- /dev/null +++ b/modules/statistics/macros/geomean.sci @@ -0,0 +1,47 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 1999 - INRIA - Carlos Klimann +// Copyright (C) 2010 - Samuel GOUGEON : bug 7204, code style +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function gm = geomean(x,orien) + // + //This function computes the geometric mean of a vector or matrix x. + // + //For a vector or matrix x, gm=geomean(x) returns in scalar gm the + //geometric mean of all the entries of x. + // + //gm=geomean(x,'r')(or, equivalently, gm=gmean(x,1)) returns in each + //entry of the row vector gm the geometric mean of each column of x. + // + //gm=geomean(x,'c')(or, equivalently, gm=gmean(x,2)) returns in each + //entry of the column vector gm the geometric mean of each row of x. + // + //References: Wonacott, T.H. & Wonacott, R.J.; Introductory + //Statistics, J.Wiley & Sons, 1990. + // + // + [lhs, rhs] = argn(0) + if rhs == 0 then + msg = gettext("%s: Wrong number of input arguments: %d to %d expected.\n") + error(msprintf(msg, "geomean",1,2)) + end + if x == [] then + gm = %nan + return + end + if rhs == 1 then + gm = prod(x)^(1/size(x,"*")) + elseif rhs==2 + gm = prod(x,orien).^(1/size(x,orien)) + else + msg = gettext("%s: Wrong number of input arguments: %d to %d expected.\n") + error(msprintf(msg, "geomean",1,2)) + end +endfunction diff --git a/modules/statistics/macros/harmean.bin b/modules/statistics/macros/harmean.bin Binary files differnew file mode 100755 index 000000000..1c7e90ae9 --- /dev/null +++ b/modules/statistics/macros/harmean.bin diff --git a/modules/statistics/macros/harmean.sci b/modules/statistics/macros/harmean.sci new file mode 100755 index 000000000..4261019d7 --- /dev/null +++ b/modules/statistics/macros/harmean.sci @@ -0,0 +1,53 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 1999 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function [hm]=harmean(x,orien) + //This function computes the harmonic mean of a vector or matrix x. + // + //For a vector or matrix x, hm=harmean(x) returns in scalar hm the + //harmonic mean of all the entries of x. + // + //hm=harmean(x,'r')(or, equivalently, hm=harmean(x,1)) returns in each + //entry of the row vector hm the harmonic mean of each column of x. + // + //hm=harmean(x,'c')(or, equivalently, hm=harmean(x,2)) returns in each + //entry of the column vector hm the harmonic mean of each row of x. + // + //Nota: In the computation of the harmonic mean we consider only the non + //zero values of x. + // + //References: Wonacott, T.H. & Wonacott, R.J.; Introductory + //Statistics, J.Wiley & Sons, 1990. + // + // + [lhs, rhs] = argn(0) + if rhs == 0 then + error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"harmean",1,2)) + end + if x == [] then + hm = %nan + return + end + if rhs == 1 then + hm = 1/(sum(1 ./x(x<>0))/sum(x<>0)) + return + elseif rhs == 2 then + if orien == "r" | orien == 1 then + le = ones(1,size(x,1))*bool2s(x<>0) + elseif orien == "c" | orien == 2 then + le = bool2s(x<>0)*ones(size(x,2),1) + else error(msprintf(gettext("%s: Wrong value for input argument #%d: ''%s'', ''%s'', %d or %d expected.\n"),"harmean",2,"r","c",1,2)), end + x(x==0) = %inf + hm = 1 ./(sum(1 ./x,orien) ./le) + else + error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"harmean",1,2)), + end +endfunction diff --git a/modules/statistics/macros/histc.bin b/modules/statistics/macros/histc.bin Binary files differnew file mode 100755 index 000000000..0f66604b4 --- /dev/null +++ b/modules/statistics/macros/histc.bin diff --git a/modules/statistics/macros/histc.sci b/modules/statistics/macros/histc.sci new file mode 100755 index 000000000..8842a1cd7 --- /dev/null +++ b/modules/statistics/macros/histc.sci @@ -0,0 +1,75 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - A. Khorshidi +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + +function [cf, ind] = histc(n, data, normalization) + + // Example: + // n = 10; + // data = rand(1, 1000, "normal"); + // [class_freq, ind] = histc(n, data) + + rhs = argn(2); + + if rhs < 2 + error(msprintf(_("%s: Wrong number of input argument(s): At least %d expected.\n"), "histc", 2)); + end + + if rhs == 3 & exists("normalization", "local") then + if type(normalization) ~= 4 | size(normalization, "*") ~= 1 then + error(msprintf(_("%s: Wrong type of input argument #%d: A single boolean expected.\n"), "histc", 3)); + end + else + // By default, normalize the result + normalization = %t + end + + if type(n) ~= 1 & type(n) ~= 8 + error(msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"),"histc",1)); + end + if type(n) == 8 then + n = iconvert(n, 0); // To pass to dsearch + end + + if type(data) ~= 1 & type(data) ~= 8 + error(msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"),"histc",2)) + end + if type(data) == 8 then + data = iconvert(data, 0); // To pass to dsearch + end + + nd = length(data); // Number of data values + if length(n) == 1 then // The number of classes is provided + if n < 1 + error(msprintf(_("%s: Wrong value for input argument #%d: Must be in the interval %s.\n"),"histc",1,"[1, oo)")); + elseif n ~= floor(n) + error(msprintf(_("%s: Wrong type for input argument #%d: Integer expected.\n"),"histc",1)) + end + mind = min(data); + maxd = max(data); + if (mind == maxd) then + mind = mind - floor(n/2); + maxd = maxd + ceil(n/2); + end + cb = linspace(mind, maxd, n+1); // Class boundary + else // The classes are provided + cb = matrix(n, 1, -1); // Force row form + if min(diff(cb)) <= 0 then + error(msprintf(_("%s: Wrong values for input argument #%d: Elements must be in increasing order.\n"),"histc",1)) + end + end + + [ind, cf, info] = dsearch(data, cb); // cf: class frequency, ind: class number of each count + + // Normalization + if normalization == %t then + cw = cb(2:$)-cb(1:$-1); // Bin width + cf = cf./(nd*cw); + end + +endfunction diff --git a/modules/statistics/macros/iqr.bin b/modules/statistics/macros/iqr.bin Binary files differnew file mode 100755 index 000000000..ca6791cf4 --- /dev/null +++ b/modules/statistics/macros/iqr.bin diff --git a/modules/statistics/macros/iqr.sci b/modules/statistics/macros/iqr.sci new file mode 100755 index 000000000..5d927c1ae --- /dev/null +++ b/modules/statistics/macros/iqr.sci @@ -0,0 +1,62 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 1999 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function [q]=iqr(x,orien) + // + //This function computes the interquartile range IQR= upper quartile - + //lower quartile of a vector or a matrix x. + // + //For a vector or a matrix x, q=iqr(x) returns in the scalar q the + //interquartile range of all the entries of x. + // + //q=iqr(x,'r') (or, equivalently, q=iqr(x,1)) is the rowwise + //interquartile range. It returns in each entry of the row vector q the + //interquartile range of each column of x. + // + //q-iqr(x,'c') (or, equivalently, q=iqr(x,2)) is the columnwise + //interquartile range. It returns in each entry of the column vector q + //the interquartile range of each row of x. + // + //References: Wonacott, T.H. & Wonacott, R.J.; Introductory + //Statistics, J.Wiley & Sons, 1990. + // + // + [lhs,rhs] = argn(0); + + if rhs == 0 then + error(msprintf(gettext("%s: Wrong number of input argument: At least %d expected.\n"),"iqr",1)); + end + + if rhs == 1 then + if x == [] | and(isnan(x)) then + q = %nan; + return + end + + qq = quart(x) + q = qq(3) - qq(1); + else + qq=quart(x,orien); + if orien == "r" | orien == 1 then + if size(x,1) == 1 then + error(msprintf(_("%s: Wrong dimensions for input argument #%d: A column vector or matrix expected.\n"), "iqr", 1)); + end + q = qq(3, :) - qq(1, :); + elseif orien == "c" | orien == 2 then + if size(x,2) == 1 then + error(msprintf(_("%s: Wrong dimensions for input argument #%d: A row vector or matrix expected.\n"), "iqr", 1)); + end + q = qq(:,3) - qq(:, 1); + else + error(msprintf(_("%s: Wrong value for input argument #%d: ''%s'', %d, ''%s'' or %d expected.\n"), "iqr", 2, "r", 1, "c", 2)); + end + end +endfunction diff --git a/modules/statistics/macros/lib b/modules/statistics/macros/lib Binary files differnew file mode 100755 index 000000000..86213f3dc --- /dev/null +++ b/modules/statistics/macros/lib diff --git a/modules/statistics/macros/mad.bin b/modules/statistics/macros/mad.bin Binary files differnew file mode 100755 index 000000000..25b3b3599 --- /dev/null +++ b/modules/statistics/macros/mad.bin diff --git a/modules/statistics/macros/mad.sci b/modules/statistics/macros/mad.sci new file mode 100755 index 000000000..1acd3eb31 --- /dev/null +++ b/modules/statistics/macros/mad.sci @@ -0,0 +1,52 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 1999 - INRIA - Carlos Klimann +// corrected by bruno pincon (2006-08-16) (fix for bug 2092) +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function [s2]=mad(x,orien) + // + //This function computes the mean absolute deviation of a vector or + //matrix x. + // + //For a vector or matrix x, s2=mad(x) returns in scalar s2 the mean + //absolute deviation of all the entries of x. + // + //s2=mad(x,'r')(or, equivalently, s2=mad(x,1)) returns in each entry of + //the column vector s2 the mean absolute deviation of each column of x. + // + //s2=mad(x,'c')(or, equivalently, s2=mad(x,2)) returns in each entry of + //the column vector s2 the mean absolute deviation of each row of x. + // + //Reference: Wonacott T.H.& Wonacott R.J. .- Introductory Statistics, + //5th edition, John Wiley, 1990. + // + //References: Wonacott, T.H. & Wonacott, R.J.; Introductory + //Statistics, J.Wiley & Sons, 1990. + // + [lhs,rhs]=argn() + if rhs < 1 | rhs > 2 then + error(msprintf(gettext("%s: Wrong number of input argument: %d to %d expected.\n"),"mad",1,2)), + end + + if x==[] then s2=%nan, return, end + + [nrow,ncol] = size(x); + if rhs==1 then + s2=sum(abs(x-mean(x)))/(nrow*ncol) + else // rhs == 2 + if orien=="r" | orien==1 then + s2=sum(abs(x-(ones(nrow,1)*mean(x,1))),1)/nrow + elseif orien=="c" | orien==2 then + s2=sum(abs(x-(mean(x,2)*ones(1,ncol))),2)/ncol + else + error(msprintf(gettext("%s: Wrong value for input argument #%d: ''%s'', ''%s'', %d or %d expected.\n"),"mad",2, "r","c",1,2)), + end + end +endfunction diff --git a/modules/statistics/macros/mean.bin b/modules/statistics/macros/mean.bin Binary files differnew file mode 100755 index 000000000..5348735a6 --- /dev/null +++ b/modules/statistics/macros/mean.bin diff --git a/modules/statistics/macros/mean.sci b/modules/statistics/macros/mean.sci new file mode 100755 index 000000000..08859d5dd --- /dev/null +++ b/modules/statistics/macros/mean.sci @@ -0,0 +1,62 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 1999 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + + +function [y] = mean(x,orient) + + // + // NOTES + // - modified by bruno to handle the case when x is an hypermatrix + // - restricted to matrix or hypermatrix of "constants" (that is + // real or complex numbers) + // - mean([]) return nan but mean([],orient) return [] (this + // is strange but corresponds to matlab behavior) + + [lhs,rhs] = argn() + // some arguments checking + if rhs == 0 | rhs > 2 then + error(msprintf(gettext("%s: Wrong number of input argument: %d to %d expected.\n"),"mean",1,2)), + else + if type(x) ~= 1 & typeof(x) ~= "hypermat" then + error(msprintf(gettext("%s: Wrong type for input argument #%d: Real vector or matrix expected.\n"), "mean",1)) + end + if type(x) ~= 1 then // that is x is an hypermat ! + if type(x.entries) ~= 1 then + error(msprintf(gettext("%s: Wrong type for input argument #%d.\n"),"mean",1)) + end + end + if rhs == 2 then + if orient == "r" then, orient = 1, end + if orient == "c" then, orient = 2, end + if orient == "m" then + flag=find(size(x)>1,1) + if flag==[] then + y=mean(x) + return + else + y=mean(x,flag) + return + end + end + if floor(orient)~=orient | orient < 1 | orient > length(size(x)) then + error(msprintf(gettext("%s: Wrong type for input argument #%d: Scalar or vector expected.\n"),"mean",2)), + end + end + end + + if rhs==1 then + if x==[] then y=%nan;return,end + y=sum(x)/size(x,"*") + else + if x==[] then y=[];return,end + y=sum(x,orient)/size(x,orient) + end +endfunction diff --git a/modules/statistics/macros/meanf.bin b/modules/statistics/macros/meanf.bin Binary files differnew file mode 100755 index 000000000..730a8c489 --- /dev/null +++ b/modules/statistics/macros/meanf.bin diff --git a/modules/statistics/macros/meanf.sci b/modules/statistics/macros/meanf.sci new file mode 100755 index 000000000..a35f1b000 --- /dev/null +++ b/modules/statistics/macros/meanf.sci @@ -0,0 +1,74 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 1999 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function [m]=meanf(val,fre,orient) + // + //This function returns in scalar m the mean of the values of a vector + //or matrix val, each counted with a frequency signaled by the + //corresponding values of the integer vector or matrix fre. + // + //For a vector or matrix val, m=meanf(val,fre) or m=meanf(val,fre,'*') + //returns in scalar m the mean of all the entries of val, each value + //counted with the multiplicity indicated by the corresponding value of + //fre. + // + //m=meanf(val,fre,'r')(or, equivalently, m=meanf(val,fre,1)) returns in + //each entry of the row vector m of type 1xsize(val,'c') the mean of + //each column of val, each value counted with the multiplicity indicated + //by the corresponding value of fre. + // + //m=meanf(val,fre,'c')(or, equivalently, m=meanf(val,fre,2)) returns in + //each entry of the column vector m of type size(val,'c')x1 the mean of + //each row of val, each value counted with the multiplicity indicated by + //the corresponding value of fre. + // + //References: Wonacott, T.H. & Wonacott, R.J.; Introductory + //Statistics, J.Wiley & Sons, 1990. + // + [lhs, rhs] = argn(0); + + if rhs == 0 | rhs == 1| rhs >= 4 then + error(msprintf(gettext("%s: Wrong number of input argument: %d to %d expected.\n"),"meanf",2,3)); + end + + // If val is not constant, sparse, integer, hypermat + if and(type(val) <> [1 5 8]) & typeof(val) <> "hypermat" then + error(msprintf(gettext("%s: Wrong type for input argument #%d: A full or sparse matrix, or an integer matrix, or an hypermat expected.\n"),"meanf",1)); + end + + // If fre is not constant, sparse, integer, hypermat + if and(type(fre) <> [1 5 8]) & typeof(fre) <> "hypermat" then + error(msprintf(gettext("%s: Wrong type for input argument #%d: A full or sparse matrix, or an integer matrix, or an hypermat expected.\n"),"meanf", 2)); + end + + if or(size(val) <> size(fre)) & (size(val, "*") <> 1 & size(fre, "*") <> 1 & ~isempty(fre)) then + error(msprintf(gettext("%s: Wrong size for input arguments #%d and #%d: Same dimensions expected.\n"), "meanf", 1, 2)); + end + + if val == [] | fre == [] | and(fre == 0) then + m = %nan; + return + end + + if rhs == 2 then + m=sum(val .* fre)/sum(fre); + elseif rhs==3 then + if orient=="*" then + m=sum(val .* fre)/sum(fre) + elseif orient=="r"|orient==1 then + m=sum(val .* fre,"r") ./ sum(fre,"r") + elseif orient=="c"|orient==2 then + m=sum(val .* fre,"c") ./ sum(fre,"c") + else + error(msprintf(gettext("%s: Wrong value for input argument #%d: ''%s'', ''%s'', %d or %d expected.\n"),"meanf",3,"r","c",1,2)), + end + end +endfunction diff --git a/modules/statistics/macros/median.bin b/modules/statistics/macros/median.bin Binary files differnew file mode 100755 index 000000000..b8984d882 --- /dev/null +++ b/modules/statistics/macros/median.bin diff --git a/modules/statistics/macros/median.sci b/modules/statistics/macros/median.sci new file mode 100755 index 000000000..6632cf7f6 --- /dev/null +++ b/modules/statistics/macros/median.sci @@ -0,0 +1,77 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 1999 - INRIA - Carlos Klimann +// Copyright (C) 2012 - Scilab Enterprises - Adeline CARNIS +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + + +function y=median(x,orient) + // + // NOTES + // - modified by farid.belahcene:the case when x is an hypermatrix + // - new syntaxes: median(x,'m') and median(x,dim) + + [lhs, rhs] = argn(0); + + if rhs == 0 then + error(msprintf(gettext("%s: Wrong number of input argument(s): %d or %d expected.\n"),"median",1,2)); + end + + if argn(2)<2 then + orient=0; + else + if orient=="r" then + orient=1 + elseif orient=="c" then + orient=2 + elseif orient=="*" then + orient=0 + elseif orient=="m" then + orient=find(size(x)>1,1) + if orient==[] then orient=1,end + else + if type(orient)<>1|size(orient,"*")<>1|~isreal(orient)|orient<=0 then + error(msprintf(gettext("%s: Wrong value for input argument #%d: ''%s'', ''%s'',''%s'' or a positive number expected.\n"),"median",2,"r","c","m")), + end + end + end + + if orient==0 then + if x==[] then y=%nan,return,end + n=size(x,"*"); + x=gsort(x(:),"g","i") + if 2*int(n/2)==n then + y = (x(n/2)+x(n/2+1))/2; + else + y = x((n+1)/2); + end + else + if x==[] then y=[],return,end + if orient>ndims(x) then y=x; return; end + xsize=size(x); + if xsize(orient)==1 then y=x; return; end + orient_above_size=xsize(orient+1:$);N=prod(orient_above_size) + orient_below_size=xsize(1:orient-1);M=prod(orient_below_size) + orient_size=xsize(1:orient);P=prod(orient_size) + y=[]; + n=xsize(orient) + for k=1:N + for i=1:M + ytemp=gsort(x(i+(0:n-1)*M+(k-1)*P),"r","i"); ytemp = ytemp(:); + if 2*int(n/2)==n then + y = [y (ytemp(n/2,:)+ytemp(n/2+1,:))/2]; + else + y = [y ytemp((n+1)/2,:)]; + end + end + end + xsize(orient)=1; + y=matrix(y,xsize); + end + +endfunction diff --git a/modules/statistics/macros/moment.bin b/modules/statistics/macros/moment.bin Binary files differnew file mode 100755 index 000000000..427affd85 --- /dev/null +++ b/modules/statistics/macros/moment.bin diff --git a/modules/statistics/macros/moment.sci b/modules/statistics/macros/moment.sci new file mode 100755 index 000000000..089020a51 --- /dev/null +++ b/modules/statistics/macros/moment.sci @@ -0,0 +1,48 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 1999 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + + +function [mom]= moment(x,ord,orien) + // + //This function computes the non central moment of all orders of a + //vector or matrix x. + // + //For a vector or matrix x, mom=moment(x,ord) returns in the scalar mom + //the moment of order ord of all the entries of x. + // + //mom=moment(x,ord,'r')(or, equivalently, mom=moment(x,ord,1)) returns + //in each entry of the row vector mom the moment of order ord of each + //column of x. + // + //mom=moment(x,ord,'c')(or, equivalently, mom=cmoment(x,ord,2)) returns + //in each entry of the column vector mom the moment of order ord of each + //row of x. + // + //Nota: In the calculations the divisor is n, where n is the dimension + //of the data vector. + // + //References: Wonacott, T.H. & Wonacott, R.J.; Introductory + //Statistics, J.Wiley & Sons, 1990. + // + // + [lhs,rhs]=argn(0) + if rhs==2 then + if x==[] then mom=%nan, return, end + le=length(x) + mom=sum(x.^ord)/le + elseif rhs==3 then + if x==[] then mom=%nan, return, end + le=size(x,orien) + mom=sum((x.^ord),orien)/le + else + error(msprintf(gettext("%s: Wrong number of input argument: %d to %d expected.\n"),"moment",2,3)), + end +endfunction diff --git a/modules/statistics/macros/mvcorrel.bin b/modules/statistics/macros/mvcorrel.bin Binary files differnew file mode 100755 index 000000000..5df18f95d --- /dev/null +++ b/modules/statistics/macros/mvcorrel.bin diff --git a/modules/statistics/macros/mvcorrel.sci b/modules/statistics/macros/mvcorrel.sci new file mode 100755 index 000000000..8217d9fda --- /dev/null +++ b/modules/statistics/macros/mvcorrel.sci @@ -0,0 +1,36 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2001 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + + +function [r]=mvcorrel(x) + // + //This function computes r, the matrix of correlation of + //the "tableau" x (x is a numerical matrix mxn) who gives + //the values of n variables for m individuals: the (i,j) + //coefficient of r is + //v(i,j)=E(xi-xibar)(xj-xjbar)/(stdi*stdj), where E is the + //first moment of a variable, xi is the i-th variable, + //xibar the mean of the xi variable and stdi the standard + //deviation of the i-th variable. + // + //References: Saporta, Gilbert, Probabilites, Analyse des + //Donnees et Statistique, Editions Technip, Paris, 1990. + // + // + [lhs,rhs]=argn(0) + if rhs <> 1 then error(msprintf(gettext("%s: Wrong number of input argument: %d expected.\n"),"mvcorrel",1)), end + if x==[] then s=%nan; return, end + [lx cx]=size(x) + if lx==1 then r=zeros(lx,cx), return, end + xbar=sum(x,"r")/lx + r=x-ones(lx,1)*xbar + std=(sum(r .^2,"r")) .^ .5 + r=(r'*r) ./ (std'*std) +endfunction diff --git a/modules/statistics/macros/mvvacov.bin b/modules/statistics/macros/mvvacov.bin Binary files differnew file mode 100755 index 000000000..505169cb9 --- /dev/null +++ b/modules/statistics/macros/mvvacov.bin diff --git a/modules/statistics/macros/mvvacov.sci b/modules/statistics/macros/mvvacov.sci new file mode 100755 index 000000000..04d9bfcac --- /dev/null +++ b/modules/statistics/macros/mvvacov.sci @@ -0,0 +1,36 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2001 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + + +function [v]=mvvacov(x) + // + //This function computes v, the matrix of + //variance-covariance of the "tableau" x (x is a numerical + //matrix nxp) who gives the values of p variables for n + //individuals: the (i,j) coefficient of v is + //v(i,j)=E(xi-xibar)(xj-xjbar), where E is the first + //moment of a variable, xi is the i-th variable and xibar + //the mean of the xi variable. + // + //References: Saporta, Gilbert, Probabilites, Analyse des + //Donnees et Statistique, Editions Technip, Paris, 1990. + //Mardia, K.V., Kent, J.T. & Bibby, J.M., Multivariate + //Analysis, Academic Press, 1979. + // + // + warnobsolete("cov", "6.0.0"); + [lhs,rhs]=argn(0) + if rhs<>1 then error(msprintf(gettext("%s: Wrong number of input argument: %d expected.\n"),"mvvacov",1)), end + if x==[] then s=%nan, return, end + [n p]=size(x); + fact=1/n + v = fact * ((x'*x) - fact * ( (ones(1,n)*x)' * (ones(1,n)*x))) +endfunction diff --git a/modules/statistics/macros/names b/modules/statistics/macros/names new file mode 100755 index 000000000..258a62671 --- /dev/null +++ b/modules/statistics/macros/names @@ -0,0 +1,47 @@ +binomial +center +cmoment +correl +cov +covar +ftest +ftuneq +geomean +harmean +histc +iqr +mad +mean +meanf +median +moment +mvcorrel +mvvacov +nancumsum +nand2mean +nanmax +nanmean +nanmeanf +nanmedian +nanmin +nanreglin +nanstdev +nansum +pca +perctl +princomp +quart +reglin +sample +samplef +samwr +show_pca +stdev +stdevf +strange +tabul +thrownan +trimmean +variance +variancef +wcenter diff --git a/modules/statistics/macros/nancumsum.bin b/modules/statistics/macros/nancumsum.bin Binary files differnew file mode 100755 index 000000000..5b9415a9b --- /dev/null +++ b/modules/statistics/macros/nancumsum.bin diff --git a/modules/statistics/macros/nancumsum.sci b/modules/statistics/macros/nancumsum.sci new file mode 100755 index 000000000..4fd423f4c --- /dev/null +++ b/modules/statistics/macros/nancumsum.sci @@ -0,0 +1,70 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2003 - INRIA - Carlos Klimann +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + + +function [s]=nancumsum(x,orient) + // + //This function returns in scalar or vector s the sum of the + //values (ignoring the NANs) of a vector or matrix (real or + //complex) x. + // + //This function for a vector or a matrix x, s=nancumsum(x) + //(or, equivalently s=nancumsum(x,'*') returns in scalar s + //the cumulative sum (ignoring the NANs) of all the entries + //of x taken columnwise. + // + //s=nancumsum(x,'r') (or, equivalently, s=nancumsum(x,1)) + //returns in the cols(x) sized vector s the cumulative sum + //(ignoring the NANs) of the rows of x: + //s(:,i)=nancumsum(x(:,i)) + // + //s=nancumsum(x,'c') (or, equivalently, s=nancumsum(x,2)) + //returns in the rows(x) sized vector s the cumulative sum + //(ignoring NANs) of the columns of x: + //s(i,:)=nancumsum(x(i,:)) + // + + [lhs, rhs] = argn(0) + if lhs > 1 then + error(msprintf(gettext("%s: Wrong number of output argument: %d expected.\n"),"nancumsum",1)) + end + + if rhs < 1 | rhs > 2 then + error(msprintf(gettext("%s: Wrong number of input argument(s): %d to %d expected.\n"),"nancumsum",1,2)) + end + + if or(type(x) == [10 15 16]) then + error(msprintf(gettext("%s: Wrong type for input argument #%d: Real or complex, boolean, polynomial matrix expected.\n"), "nancumsum", 1)); + end + + // cumsum([]) == [] + if isempty(x) | and(isnan(x)) then + s = []; + return + end + + if rhs == 1 then + orient = "*"; + else + if and(type(orient) <> [1 10]) then + error(msprintf(gettext("%s: Wrong type for input argument #%d: A string or scalar expected.\n"), "nancumsum", 2)); + end + + if ~or(orient == ["r", "*", "c"] | orient == [1, 2]) then + error(msprintf(gettext("%s: Wrong value for input argument #%d: Must be in the set {%s}.\n"), "nancumsum", 2, """r"", ""c"", ""*"", 1, 2")); + end + end + + isn=isnan(x) + x(isn)=0 + s=cumsum(x,orient) + +endfunction diff --git a/modules/statistics/macros/nand2mean.bin b/modules/statistics/macros/nand2mean.bin Binary files differnew file mode 100755 index 000000000..c4d80f8bf --- /dev/null +++ b/modules/statistics/macros/nand2mean.bin diff --git a/modules/statistics/macros/nand2mean.sci b/modules/statistics/macros/nand2mean.sci new file mode 100755 index 000000000..12181aa40 --- /dev/null +++ b/modules/statistics/macros/nand2mean.sci @@ -0,0 +1,57 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2000 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + + +function [dif]=nand2mean(sample1,sample2,conf) + // + //This function computes an estimate (dif(1)) for the + //difference of the means of two independent samples (arrays + //sample1 and sample2) and gives the half amplitude of the + //range of variability of dif with an indicated confidence + //level (dif(2)). The choice of the normal or t fonctions as + //the probability fonction depends on the sizes of sample1 + //and sample2. We suppose that the underlying variances of + //both populations are equal. NAN values are not counted. + // + //In absence of the confidence parameter a confidence level + //of 95% is assumed. + // + //References: Wonacott, T.H. & Wonacott, R.J.; Introductory + //Statistics, J.Wiley & Sons, 1990. + // + // + [lhs,rhs]=argn(0) + if rhs<2|rhs>3 then + error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"nand2mean",2,3)), + elseif rhs==2 then + conf=.975 + end + if (sample1==[]|sample2==[]) then + dif=%nan + return, + end + isn1=isnan(sample1) + isn2=isnan(sample2) + sample1(isn1)=0 + sample2(isn2)=0 + n1=sum(bool2s(~isn1)) + n2=sum(bool2s(~isn2)) + mean1=sum(sample1)/n1 + mean2=sum(sample2)/n2 + svarp=sqrt((sum((sample1(~isn1)-mean1).^2)+sum((sample2(~isn2) .. + -mean2).^2))/(n1+n2-2)) + dif(1)=mean1-mean2 + if (n1+n2-2)>100 then + dif(2)=cdfnor("X",0,1,conf,1-conf)*svarp*sqrt((1/n1)+(1/n2)) + else + dif(2)=cdft("T",n1+n2-2,conf,(1-conf))*svarp*sqrt((1/n1)+(1/n2)) + end +endfunction diff --git a/modules/statistics/macros/nanmax.bin b/modules/statistics/macros/nanmax.bin Binary files differnew file mode 100755 index 000000000..6e83e2aa1 --- /dev/null +++ b/modules/statistics/macros/nanmax.bin diff --git a/modules/statistics/macros/nanmax.sci b/modules/statistics/macros/nanmax.sci new file mode 100755 index 000000000..f357f92aa --- /dev/null +++ b/modules/statistics/macros/nanmax.sci @@ -0,0 +1,52 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 200 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + + +function [s,index] = nanmax(x,orient) + // + //This function gives for a real or a numerical matrix x a his largest + //element m (but ignoring the NANs). + // + //For x, a numerical vector or matrix, m=nanmax(x) returns in scalar m + //the largest element of x (ignoring the NANs). The form [m,index] = + //nanmax(x,orient) gives in addition of the value of the largest element + //of x (ignoring the NANs) in scalar m, and the index of this element + //in x, as a 2-vector. + // + //m=nanmax(x,'r') gives in the 1xsize(x,2) matrix m the largest elements + //(ignoring the NANs) of each column of x. If the form + //[m,index]=nanmax(x,'r') is used, the elements of the 1xsize(x,2) + //matrix index are the indexes of the largest elements (ignoring the + //NANs) of each column of x in the corresponding column. + // + //m=nanmax(x,'c') gives in the size(x,2)x1 matrix m the largest elements + //(ignoring the NANs) of each row of x. If the form + //[m,index]=nanmax(x,'c') is used, the elements of the size(x,2)x1 + //matrix index are the indexes of the largest elements (ignoring the + //NANs) of each row of x in the corresponding row. + // + // + // correction of bug 1239 (Bruno) + + [lhs, rhs] = argn(0) + if rhs == 0 then + error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"nanmax",1,2)) + end + if rhs==1 then orient="*",end + if orient==1 then orient="r",end + if orient==2 then orient="c",end + if x==[]|(size(x,"*")==1&isnan(x)) then s=[],index=[],return,end + isn=isnan(x) + x(isn)=-%inf + [s,index]=max(x,orient) + s(find(and(isn,orient)))=%nan + +endfunction diff --git a/modules/statistics/macros/nanmean.bin b/modules/statistics/macros/nanmean.bin Binary files differnew file mode 100755 index 000000000..130b9f750 --- /dev/null +++ b/modules/statistics/macros/nanmean.bin diff --git a/modules/statistics/macros/nanmean.sci b/modules/statistics/macros/nanmean.sci new file mode 100755 index 000000000..f93eaa2af --- /dev/null +++ b/modules/statistics/macros/nanmean.sci @@ -0,0 +1,43 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2000 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + + +function [m]=nanmean(x,orient) + // + //This function returns in scalar m the mean of the values (ignoring the + //NANs) of a vector or matrix x. + // + //For a vector or matrix x, m=nanmean(x) or m=nanmean(x,'*') + //returns in scalar m the mean of all the entries (ignoring the NANs) of + //x. + // + //m=nanmean(x,'r') (or, equivalently, m=nanmean(x,1)) returns in + //each entry of the row vector m of type 1xsize(x,'c') the mean of + //each column of x (ignoring the NANs). + // + //m=nanmeanf(x,'c')(or, equivalently, m=nanmean(x,2)) returns in + //each entry of the column vector m of type size(x,'c')x1 the mean of + //each row of x (ignoring the NANs). + // + // + if argn(2)==0 then error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"nanmean",1,2)), end + if argn(2)==1 then orient="*",end + //replace nans by 0 + isn=isnan(x) + x(isn)=0 + + N=size(x,orient)-sum(bool2s(isn),orient) + allnans=find(N==0) + N(allnans)=1 + m = sum(x,orient)./N; + m(allnans)=%nan + +endfunction diff --git a/modules/statistics/macros/nanmeanf.bin b/modules/statistics/macros/nanmeanf.bin Binary files differnew file mode 100755 index 000000000..f2a8b2583 --- /dev/null +++ b/modules/statistics/macros/nanmeanf.bin diff --git a/modules/statistics/macros/nanmeanf.sci b/modules/statistics/macros/nanmeanf.sci new file mode 100755 index 000000000..1dfd743f3 --- /dev/null +++ b/modules/statistics/macros/nanmeanf.sci @@ -0,0 +1,50 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 1999 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + + +function [m]=nanmeanf(val,fre,orient) + // + //This function returns in scalar m the mean of the values (ignoring the + //NANs) of a vector or matrix val, each counted with a frequency + //signaled by the corresponding values of the integer vector or matrix + //fre with the same type of val. + // + //For a vector or matrix val, m=nanmeanf(val,fre) or + //m=nanmeanf(val,fre,'*') returns in scalar m the mean of all the + //entries (ignoring the NANs) of val, each value counted with the + //multiplicity indicated by the corresponding value of fre. + // + //m=nanmeanf(val,fre,'r')(or, equivalently, m=nanmeanf(val,fre,1)) + //returns in each entry of the row vector m of type 1xsize(val,'c') the + //mean of each column of val (ignoring the NANs), each value counted + //with the multiplicity indicated by the corresponding value of fre. + // + //m=nanmeanf(val,fre,'c')(or, equivalently, m=nanmeanf(val,fre,2)) + //returns in each entry of the column vector m of type size(val,'c')x1 + //the mean of each row of val (ignoring the NANs), each value counted + //with the multiplicity indicated by the corresponding value of fre. + // + // + [lhs,rhs]=argn(0) + if rhs<2|rhs>3 then error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"nanmeanf",2,3)), end + if val==[]|fre==0 then m=[], return,end + isn=isnan(val) + fre(isn)=0 + val(isn)=0 + if rhs==2 then + m=sum(val.*fre)/sum(fre) + elseif orient=="*" then + m=sum(val.*fre)/sum(fre) + elseif orient=="r"|orient=="c"|orient==1|orient==2 then + m=sum(val.*fre,orient)./sum(fre,orient) + else error(msprintf(gettext("%s: Wrong value for input argument #%d: ''%s'', ''%s'', ''%s'', %d or %d expected.\n"),"nanmeanf",3,"*","r","c",1,2)), + end +endfunction diff --git a/modules/statistics/macros/nanmedian.bin b/modules/statistics/macros/nanmedian.bin Binary files differnew file mode 100755 index 000000000..93b5ac4ad --- /dev/null +++ b/modules/statistics/macros/nanmedian.bin diff --git a/modules/statistics/macros/nanmedian.sci b/modules/statistics/macros/nanmedian.sci new file mode 100755 index 000000000..95d108cb3 --- /dev/null +++ b/modules/statistics/macros/nanmedian.sci @@ -0,0 +1,53 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2000 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + + +function [m]=nanmedian(x,orient) + // + //For a vector or a matrix x, [m]=median(x) returns in the vector p the + //median of the values (ignoring the NANs) of vector x. + // + //[m]=median(x,'r') (or, equivalently, [m]=pctl(x,1)) are the rowwise + //medians. It returns in each position of the row vector m the medians + //of data (ignoring the NANs) in the corresponding column of x. + // + //[m]=median(x,'c') (or, equivalently, [m]=median(x,2)) are the + //columnwise percentiles. It returns in each position of the column + //vector m the medians of data (ignoring the NANs) in the corresponding + //row of x. + // + // + [lhs,rhs]=argn(0) + if rhs<1|rhs>2 then error(msprintf(gettext("%s: Wrong number of input argument: %d to %d expected.\n"),"nanmedian",1,2)), end + if type(x)<>1 then error(msprintf(gettext("%s: Wrong type for input arguments #%d: Numerical expected.\n"),"nanmedian",1)) , end + if x==[] then m=[], return,end + if rhs==1 then + p=perctl(x(~isnan(x)),50) + if p==[] then p=%nan,end + m=p(1) + elseif orient=="r"|orient==1 then + m=[] + for i=x + p=perctl(i(~isnan(i)),50) + if p==[] then p=%nan,end + m=[m p(1)] + end + elseif orient=="c"|orient==2 then + m=[] + for i=x' do + p=perctl(i(~isnan(i)),50) + if p==[] then p=%nan,end + m=[m;p(1)]; + end + else + error(msprintf(gettext("%s: Wrong value for input argument #%d: ''%s'', ''%s'', %d or %d expected.\n"),"nanmedian",3,"r","c",1,2)) + end +endfunction diff --git a/modules/statistics/macros/nanmin.bin b/modules/statistics/macros/nanmin.bin Binary files differnew file mode 100755 index 000000000..2716389db --- /dev/null +++ b/modules/statistics/macros/nanmin.bin diff --git a/modules/statistics/macros/nanmin.sci b/modules/statistics/macros/nanmin.sci new file mode 100755 index 000000000..1fc342552 --- /dev/null +++ b/modules/statistics/macros/nanmin.sci @@ -0,0 +1,51 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 1999 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + + +function [s,index] = nanmin(x,orient) + // + //This function gives for a real or a numerical matrix x a his smallest + //element m (but ignoring the NANs). + // + //For x, a numerical vector or matrix, m=nanmin(x) returns in scalar m + //the smallest element of x (ignoring the NANs). The form [m,index] = + //nanmin(x,orient) gives in addition of the value of the smallest + //element of x (ignoring the NANs) in scalar m, index the index of this + //element in x, as a 2-vector. + // + //m=nanmin(x,'r') gives in the 1xsize(x,2) matrix m the smallest + //elements (ignoring the NANs) of each column of x. If the form + //[m,index]=nanmin(x,'r') is used, the elements of the 1xsize(x,2) + //matrix are the indexes of the smallest elements (ignoring the NANs) of + //each column of x in the corresponding column. + // + //m=nanmin(x,'c') gives in the size(x,2)x1 matrix m the smallest + //elements (ignoring the NANs) of each row of x. If the form + //[m,index]=nanmin(x,'c') is used, the elements of the size(x,2)x1 + //matrix are the indexes of the smallest elements (ignoring the NANs) of + //each row of x in the corresponding row. + // + // + + [lhs, rhs] = argn(0) + if rhs == 0 then + error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"nanmin",1,2)) + end + if rhs==1 then orient="*",end + if orient==1 then orient="r",end + if orient==2 then orient="c",end + if x==[]|(size(x,"*")==1&isnan(x)) then s=[],index=[],return,end + isn=isnan(x) + x(isn)=%inf + [s,index]=min(x,orient) + s(find(and(isn,orient)))=%nan + +endfunction diff --git a/modules/statistics/macros/nanreglin.bin b/modules/statistics/macros/nanreglin.bin Binary files differnew file mode 100755 index 000000000..9ca39ecdd --- /dev/null +++ b/modules/statistics/macros/nanreglin.bin diff --git a/modules/statistics/macros/nanreglin.sci b/modules/statistics/macros/nanreglin.sci new file mode 100755 index 000000000..f809283e5 --- /dev/null +++ b/modules/statistics/macros/nanreglin.sci @@ -0,0 +1,49 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2014 - Scilab Enterprises - Paul Bignier +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + +function [a, b] = nanreglin(x, y, dflag) + // Solves a linear regression + // y=a(p,q)*x+b(p,1) + epsilon where y or x contain NaNs. + // x : matrix (q,n) and y matrix (p,n) + // dflag is optional if 1 a display of the result is done + //! + + [lhs, rhs] = argn(0); + if rhs < 2 then + error(msprintf(_("%s: Wrong number of input arguments: %d to %d expected.\n"),"nanreglin",2,3)) + end + if rhs <= 2 then + dflag = 0; + end + [n1, n2] = size(x); + [p1, p2] = size(y); + if n2 <> p2 then + error(msprintf(_("%s: Incompatible input arguments #%d and #%d: Same column dimensions expected.\n"),"nanreglin",1,2)); + end + if ~(or(isnan(x)) | or(isnan(y))) then + error(msprintf(_("%s: No NaNs detected, please use %s() instead.\n"), "nanreglin", "reglin")) + end + + a = zeros(p1, n1); + b = zeros(p1, 1); + for i=1:p1 + // A column of x defines an element of y, but each line of y defines an independent problem. + // If x2(:, j) or y2(i, j) contains a %nan, then both x2(:, j) and y2(j) are removed. + y2 = y(i, find(~isnan(y(i,:)))); + x2 = x(:, find(~isnan(y(i,:)))); + nanX = isnan(x); + if or(isnan(x)) then // At least one NaN is x or y. + columns = floor((find(nanX==%t)-1)./(n1+1)+1); + x2(:, columns) = []; + y2(1, columns) = []; + end + [a(i, :), b(i)] = reglin(x2, y2, dflag); + end + +endfunction diff --git a/modules/statistics/macros/nanstdev.bin b/modules/statistics/macros/nanstdev.bin Binary files differnew file mode 100755 index 000000000..651b03e49 --- /dev/null +++ b/modules/statistics/macros/nanstdev.bin diff --git a/modules/statistics/macros/nanstdev.sci b/modules/statistics/macros/nanstdev.sci new file mode 100755 index 000000000..6e38effd3 --- /dev/null +++ b/modules/statistics/macros/nanstdev.sci @@ -0,0 +1,55 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2000 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function [s]=nanstdev(x,orient) + // + //This function computes the standard deviation of the values of a + //vector or matrix x (ignoring the NANs). + // + //For a vector or a matrix x, y=nanstdev(x) returns in the scalar y the + //standard deviation of all the entries of x (ignoring the NANs). + // + //y=nanstdev(x,'r') (or, equivalently, y=nanstdev(x,1)) is the rowwise + //standard deviation. It returns in each entry of the row vector y the + //standard deviation of each column of x (ignoring the NANs). + // + //y=nanstdev(x,'c') (or, equivalently, y=nanstdev(x,2)) is the + //columnwise standard deviation. It returns in each entry of the column + //vector y the standard deviation of each row of x (ignoring the NANs). + // + // + //Fixings 2001-10-01. Communication from + //Collewet Guylaine <guylaine.collewet@cemagref.fr> + // + + if argn(2)==0 then error(msprintf(gettext("%s: Wrong number of input argument: %d to %d expected.\n"),"nanstdev",1,2)), end + + if x==[] then s=%nan, return, end + + if argn(2)==1 then orient="*",end + if orient=="r" then orient=1,elseif orient=="c" then orient=2,end + + isn=isnan(x) + Mean=nanmean(x,orient); + if orient=="*" then + N=size(x,orient)-sum(bool2s(isn),orient) + x=x-Mean + else + N=size(x,orient)-sum(bool2s(isn),orient) + ind=list();for k=size(x),ind($+1)=:;end + ind(orient)=ones(size(x,orient),1) + x=x-Mean(ind(:)) + end + x(isn)=0 + allnans=find(N==0) + N(allnans)=1 + s=sqrt(sum(x.*x,orient)./max(N-1,1)); + s(allnans)=%nan +endfunction diff --git a/modules/statistics/macros/nansum.bin b/modules/statistics/macros/nansum.bin Binary files differnew file mode 100755 index 000000000..a1d68bc30 --- /dev/null +++ b/modules/statistics/macros/nansum.bin diff --git a/modules/statistics/macros/nansum.sci b/modules/statistics/macros/nansum.sci new file mode 100755 index 000000000..c1248d74d --- /dev/null +++ b/modules/statistics/macros/nansum.sci @@ -0,0 +1,61 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2001 - INRIA - Carlos Klimann +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function s=nansum(x,orient) + // + //This function returns in scalar or vector s the sum of the + //values (ignoring the NANs) of a vector or matrix x. + // + //For a vector or matrix x, s=nansum(x) returns in scalar s + //the sum of all the entries (ignoring the NANs) of x. + // + //s=nansum(x,'r')(or, equivalently, s=nansum(x,1)) returns + //in each entry of the row vector s of type 1xsize(x,'c') + //the sum of each column of x (ignoring the NANs). + // + //s=nansum(x,'c')(or, equivalently, s=nansum(x,2)) returns + //in each entry of the column vector s of type size(x,'c')x1 + //the sum of each row of x (ignoring the NANs). + // + // + //fixed: 2003/09/03 + //error texts and all NAN rows or columns + // + rhs = argn(2); + if rhs < 1 | rhs > 2 then + error(msprintf(gettext("%s: Wrong number of input argument(s): %d to %d expected.\n"),"nansum",1,2)) + end + + if or(type(x) == [10 15 16]) then + error(msprintf(gettext("%s: Wrong type for input argument #%d: Real or complex, boolean, polynomial matrix expected.\n"), "nansum", 1)); + end + + if isempty(x) | and(isnan(x)) then + s = 0; + return + end + + if rhs == 1 then + orient = "*"; + else + if and(type(orient) <> [1 10]) then + error(msprintf(gettext("%s: Wrong type for input argument #%d: A string or scalar expected.\n"), "nansum", 2)); + end + + if ~or(orient == ["r", "*", "c"] | orient == [1, 2]) then + error(msprintf(gettext("%s: Wrong value for input argument #%d: Must be in the set {%s}.\n"), "nansum", 2, """r"", ""c"", ""*"", 1, 2")); + end + end + + isn=isnan(x) + x(isn)=0 + s=sum(x,orient) +endfunction diff --git a/modules/statistics/macros/pca.bin b/modules/statistics/macros/pca.bin Binary files differnew file mode 100755 index 000000000..d74ce32df --- /dev/null +++ b/modules/statistics/macros/pca.bin diff --git a/modules/statistics/macros/pca.sci b/modules/statistics/macros/pca.sci new file mode 100755 index 000000000..4cccd0db8 --- /dev/null +++ b/modules/statistics/macros/pca.sci @@ -0,0 +1,73 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2000 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function [lambda,facpr,comprinc]=pca(x) + // + //This function performs several computations known as + //"principal component analysis". + // + //The idea behind this method is to represent in an + //approximative manner a cluster of n individuals in a + //smaller dimensional subspace. In order to do that it + //projects the cluster onto a subspace. The choice of the + //k-dimensional projection subspace is made in such a way + //that the distances in the projection have a minimal + //deformation: we are looking for a k-dimensional subspace + //such that the squares of the distances in the projection + //is as big as possible (in fact in a projection, + //distances can only stretch). In other words, inertia of + //the projection onto the k dimensional subspace must be + //maximal. + // + //x is a nxp (n individuals, p variables) real matrix. + // + //lambda is a px2 numerical matrix. In the first column we + //find the eigenvalues of V, where V is the correlation + //pxp matrix and in the second column are the ratios of + //the corresponding eigenvalue over the sum of + //eigenvalues. + // + //facpr are the principal factors: eigenvectors of V. + //Each column is an eigenvector element of the dual of + //R^p. Is an orthogonal matrix. + // + //comprinc are the principal components. Each column + //(c_i=Xu_i) of this nxn matrix is the M-orthogonal + //projection of individuals onto principal axis. Each one + //of this columns is a linear combination of the variables + //x1, ...,xp with maximum variance under condition + //u'_iM^(-1)u_i=1. + // + //Verification: comprinc*facpr=x + // + //References: Saporta, Gilbert, Probabilites, Analyse des + //Donnees et Statistique, Editions Technip, Paris, 1990. + // + //author: carlos klimann + // + //date: 2002-02-05 + //commentary fixed 2003-19-24 ?? + // update disable graphics output Allan CORNET 2008 + // request user + // splitted in printcomp (matlab compatibility) and show_pca Serge Steer + // 2008 + + if argn(2) == 0 then + error(msprintf(gettext("%s: Wrong number of input arguments: %d expected.\n"),"pca",1)) + end + if x==[] then + lambda=%nan; + facpr=%nan; + comprinc=%nan; + return; + end + [facpr,comprinc,lambda]=princomp(wcenter(x,1)) + lambda(:,2)=lambda(:,1)/sum(lambda(:,1)) +endfunction diff --git a/modules/statistics/macros/perctl.bin b/modules/statistics/macros/perctl.bin Binary files differnew file mode 100755 index 000000000..6764dabce --- /dev/null +++ b/modules/statistics/macros/perctl.bin diff --git a/modules/statistics/macros/perctl.sci b/modules/statistics/macros/perctl.sci new file mode 100755 index 000000000..8c5369a15 --- /dev/null +++ b/modules/statistics/macros/perctl.sci @@ -0,0 +1,63 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2000 - INRIA - Carlos Klimann +// Copyright (C) 2010 - DIGITEO - Yann COLLETTE +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function [p]=perctl(x,y) + + //compute the matrix p of percentils (in increasing order, + //column first) of the real vector or matrix x indicated by + //the entries of y, the values of entries of y must be + //positive integers between 0 and 100. p is a matrix whose + //type is length(y)x2 and the content of its first column + //are the percentils values. The contents of its second + //column are the places of the computed percentiles in the + //input matrix x. + // + //References: HYNDMAN,Rob J. and FAN Yanan, Sample + //Quantiles in Statistical Packages, The American + //Statistician, Nov.1996, Vol 50, No.4 + // + //fixed: 2006-06-12 ( Pierre MARECHAL, Scilab Team ) + + [lhs,rhs]=argn(0) + if rhs<>2 then + error(msprintf(gettext("%s: Wrong number of input arguments: %d expected.\n"),"perctl",2)); + end + if x==[]|y==[] then p=[];return;end + if find((y-int(y)))<>[]|max(y)>100|min(y)<1 then + error(msprintf(gettext("%s: Wrong value for input argument #%d: Must be between %d and %d.\n"),"perctl",2,1,100)) + end + if type(x)<>1 then + error(msprintf(gettext("%s: Wrong type for input argument #%d: Numerical expected.\n"),"perctl",1)) + end + lenx = size(x) + lx = prod(lenx) + [val,pos] = gsort(x) + x1 = [matrix(val,lx,1) matrix(pos,lx,1)] + x1 = x1(lx-[0:lx-1],:) + ly = length(y) + y = gsort((matrix(y,ly,1)/100)*(lx+1)) + y = y(ly-[0:ly-1]) + + // Now we test if there is enough sample for each asked fractions. + + test1 = find(max(floor(y),1) == 1); + y(test1) = 1; + + test2 = find(min(ceil(y),lx) == lx); + y(test2) = lx; + + p = x1(floor(y),:) + w = find(ceil(y)-floor(y)<>0) + + if w<>[] then + p(w,1) = ((x1(ceil(y(w)),1)-x1(floor(y(w)),1)).*(y(w)-floor(y(w)))+x1(floor(y(w)),1)); + end +endfunction diff --git a/modules/statistics/macros/princomp.bin b/modules/statistics/macros/princomp.bin Binary files differnew file mode 100755 index 000000000..0e38a58df --- /dev/null +++ b/modules/statistics/macros/princomp.bin diff --git a/modules/statistics/macros/princomp.sci b/modules/statistics/macros/princomp.sci new file mode 100755 index 000000000..b7f3e1cf8 --- /dev/null +++ b/modules/statistics/macros/princomp.sci @@ -0,0 +1,79 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2000 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function [facpr,comprinc,lambda,tsquare]=princomp(x,eco) + // + //This function performs several computations known as + //"principal component analysis". + //The idea behind this method is to represent in an + //approximative manner a cluster of n individuals in a + //smaller dimensional subspace. In order to do that it + //projects the cluster onto a subspace. The choice of the + //k-dimensional projection subspace is made in such a way + //that the distances in the projection have a minimal + //deformation: we are looking for a k-dimensional subspace + //such that the squares of the distances in the projection + //is as big as possible (in fact in a projection, + //distances can only stretch). In other words, inertia of + //the projection onto the k dimensional subspace must be + //maximal. + // + + //References: Saporta, Gilbert, Probabilites, Analyse des + //Donnees et Statistique, Editions Technip, Paris, 1990. + // + //derived from pca, + // author: carlos klimann + // + + [lhs, rhs] = argn(0); + if rhs == 0 then + error(msprintf(gettext("%s: Wrong number of input arguments: %d or %d expected.\n"),"princomp",1,2)) + end + if rhs<2 then eco=%f,end + if type(eco)<>4 then + error(msprintf(_("%s: Wrong type for input argument #%d: Boolean expected."),"princomp",2)) + end + + if x==[] then + facpr=[]; + comprinc=[]; + lambda=[]; + tsquare=[]; + return; + end + + [rowx,colx]=size(x) + + //center data + y=center(x,1) + + //compute eigenvectors of y'*y using svd + if eco then + [U,lambda,facpr]=svd(y,"e"); + else + [U,lambda,facpr]=svd(y); + end + lambda=diag(lambda).^2/(rowx-1);//normalize + comprinc=y*facpr + if rowx <= colx then + if eco then + lambda(rowx)=[] + facpr(:,rowx)=[]; + comprinc(:,rowx) = []; + else + lambda(rowx:$)=[] + comprinc(:,rowx:$) = []; + end + end + q=find(lambda<=max(rowx,colx)*%eps*lambda(1),1) + if q==[] then q=size(lambda,"*"),end + tsquare=(rowx-1)*sum(U(:,1:q).^2,2) +endfunction diff --git a/modules/statistics/macros/quart.bin b/modules/statistics/macros/quart.bin Binary files differnew file mode 100755 index 000000000..c6be2aa74 --- /dev/null +++ b/modules/statistics/macros/quart.bin diff --git a/modules/statistics/macros/quart.sci b/modules/statistics/macros/quart.sci new file mode 100755 index 000000000..28eca1877 --- /dev/null +++ b/modules/statistics/macros/quart.sci @@ -0,0 +1,60 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2000 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function q=quart(x,orien) + // + //This function computes the quartiles of a vector or a matrix x. + // + //For a vector or a matrix x, q=quart(x) returns in the vector q the + //three quartiles entries of x. + // + //q=quart(x,'r') (or, equivalently, q=quart(x,1)) is the rowwise + //quartiles range. It returns in each column of the 3xlength(x)-matrix + //q, the quartiles of the corresponding column of x. + // + //q=quart(x,'c') (or, equivalently, q=quart(x,2)) is the columnwise + //interquartile range. It returns in each row of length(x)x3-matrix q + //the quartiles of each row of x. + // + // + + [lhs, rhs] = argn(0) + if rhs==0 then error(msprintf(gettext("%s: Wrong number of input argument(s): %d or %d expected.\n"),"quart",1,2)), end + + function y = vperctl(x,p) + //inline function wich computes percentiles of a vector + k=isnan(x) + x(k)=[]; + n=size(x,"*") + x=gsort(x,"g","i") + data=[0 100*(0.5:(n-0.5))./n 100; + x(1), matrix(x,1,-1), x(n)] + y=interpln(data,p); + endfunction + + if x==[] then q=%nan, return, end + if rhs==1 then + q=vperctl(x(:),[25 50 75]) + q=q(:) + else + q=[] + if orien=="r"|orien==1 then + for i=x + p=vperctl(i,[25 50 75]) + q=[q p(:)] + end + else + for i=x' + p=vperctl(i,[25 50 75]) + q=[q;p(:)'] + end + end + end +endfunction diff --git a/modules/statistics/macros/reglin.bin b/modules/statistics/macros/reglin.bin Binary files differnew file mode 100755 index 000000000..2204e81d0 --- /dev/null +++ b/modules/statistics/macros/reglin.bin diff --git a/modules/statistics/macros/reglin.sci b/modules/statistics/macros/reglin.sci new file mode 100755 index 000000000..203240a4a --- /dev/null +++ b/modules/statistics/macros/reglin.sci @@ -0,0 +1,40 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + +function [a,b,sig]=reglin(x,y,dflag) + // Solves a linear regression + // y=a(p,q)*x+b(p,1) + epsilon + // x : matrix (q,n) and y matrix (p,n) + // sig : noise standard deviation + // dflag is optional if 1 a display of the result is done + //! + + [lhs,rhs]=argn(0); + if rhs < 2 then + error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"reglin",2,3)) + end + if rhs <=2;dflag=0;end + [n1,n2]=size(x) + [p1,p2]=size(y) + if n2<>p2 then + error(msprintf(gettext("%s: Incompatible input arguments #%d and #%d: Same column dimensions expected.\n"),"reglin",1,2)); + end; + if or(isnan(x)) | or(isnan(y)) then + error(msprintf(_("%s: NaNs detected, please use %s() instead.\n"), "reglin", "nanreglin")) + end + + xmoy=sum(x,2)/n2 + ymoy=sum(y,2)/n2 + // We use armax for appropriate orders which will perform + // nothing but a least square + // We could directly call pinv or \ + [arc,la,lb,sig]=armax(0,0,y-ymoy*ones(1,n2),x-xmoy*ones(1,n2),0,dflag); + if typeof(la)=="list" then a=lb(1);else a=lb;end + b=ymoy-a*xmoy; +endfunction diff --git a/modules/statistics/macros/sample.bin b/modules/statistics/macros/sample.bin Binary files differnew file mode 100755 index 000000000..7d3605070 --- /dev/null +++ b/modules/statistics/macros/sample.bin diff --git a/modules/statistics/macros/sample.sci b/modules/statistics/macros/sample.sci new file mode 100755 index 000000000..76b220630 --- /dev/null +++ b/modules/statistics/macros/sample.sci @@ -0,0 +1,53 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2003 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function s = sample(n, X, orient) + // + //This function gives a vector (or matrix) nx1. It contains + //a random sample of n extractions, with replacement, from + //the matrix X. + // + //s = sample(n, X) (or s = sample(n, X, '*')) returns a vector s + //whose values are a random sample of n values from X, + //extracted with replacement, from X . + // + //s = sample(n, X, 'r') (or, equivalently, s = sample(n, X, 1)) + //returns a matrix of type size(X, 'r')xn. It contains a + //random sample of n rows, extracted with replacement, from + //the rows of X. + // + //s = sample(n, X, 'c') (or, equivalently, s = sample(n, X, 2)) + //returns a matrix of type nxsize(X, 'c'). It contains a + //random sample of n columns, extracted with replacement + //from the columns of X. + // + [lhs, rhs] = argn(0) + if rhs < 2 | rhs > 3 then error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"), "sample", 2, 3)), end + if X == [] then s = []; return; end + if rhs == 2 then + orient = "*" + end + if orient == "*" then + s = X(grand(n, 1, "uin", 1, size(X, "*"))), + s_size = size(s, '*'); + s = matrix(s, 1, s_size) + return + end + if orient == "r"|orient == 1 then + s = X(grand(1, n, "uin", 1, size(X, "r")), :) + return + end + if orient == "c"|orient == 2 then + s = X(:, grand(n, 1, "uin", 1, size(X, "c"))), + return + end + error(msprintf(gettext("%s: Wrong value for input argument #%d: ''%s'', ''%s'', ''%s'', %d or %d expected.\n"), "sample", 3, "*", "r", "c", 1, 2)) +endfunction + diff --git a/modules/statistics/macros/samplef.bin b/modules/statistics/macros/samplef.bin Binary files differnew file mode 100755 index 000000000..d28e584cb --- /dev/null +++ b/modules/statistics/macros/samplef.bin diff --git a/modules/statistics/macros/samplef.sci b/modules/statistics/macros/samplef.sci new file mode 100755 index 000000000..934b42640 --- /dev/null +++ b/modules/statistics/macros/samplef.sci @@ -0,0 +1,102 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2003 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function s = samplef(n, X, f, orient) + // + //This function gives s, a vector of length n. It contains + //a sample of n extractions, with replacement, from the + //vector (or matrix) X, each element counted with the + //frequency given by the corresponding value in vector f. + // + //s = samplef(n, X, f) (or s = samplef(n, X, f, '*')) returns a + //vector s whose values are a random sample of n values from + //X, each value with a probability to be sampled + //proportional to the corresponding value of f, extracted + //with replacement, from X. f must have same length than X. + // + //s = samplef(n, X, f, 'r') (or, equivalently, + //s = samplef(n, X, f, 1)) returns a matrix of type + //size(X, 'r')xn. It contains a random sample of n rows from + //X, each row with a probability to be sampled proportional + //to the corresponding value of f, extracted with + //replacement, from the rows of X. The length of f must be + //equal to the number of rows of X. + // + //s = samplef(n, X, f, 'c') (or, equivalently, + //s = samplef(n, X, f, 2)) returns a matrix of type + //nxsize(X, 'c'). It contains a random sample of n columns + //from X, each column with a probability to be sampled + //proportional to the corresponding value of f, extracted + //with replacement, from the columns of X. The length of f + //must be equal to the number of columns of X. + // + [lhs, rhs] = argn(0) + if rhs < 3 | rhs > 4 then error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"), "samplef", 3, 4)), end + if X == [] then s = []; return; end + + // Frequencies cannot be negative + if ~and(f >= 0) + error(msprintf(_("%s: Wrong value for input argument #%d: Non-negative values expected.\n"), fname, 3)) + end + + // Setting default value for 4th argument + if rhs == 3 then + orient = "*" + end + + sizx = size(X) + + if orient == "*" then + if size(f, "*") <> prod(sizx) then + error(msprintf(gettext("%s: Wrong size for input argument #%d and #%d: Same size expected.\n"), "samplef", 2, 3)), + end + //Strip X of 0 frequency values + X(find(f==0)) = []; + f(find(f==0)) = []; + val = cumsum([0; f(:)]) + y = grand(n, 1, "unf", 0, val($)) + ind = dsearch(y, val, "c") + s = X(ind) + s_size = size(s, '*') + s = matrix(s, 1, s_size) //consistently returns s in a line vector when called without row or column orientation; + return + end + + if orient == "r"|orient == 1 then + if size(f, "*") <> sizx(1) then + error(msprintf(gettext("%s: Wrong size for input argument #%d: Same number of rows of the second input argument expected.\n"), "samplef", 3)), + end + //Strip X of 0 frequency values + X(find(f==0), :) = []; + f(find(f==0)) = []; + val = cumsum([0; f(:)]) + y = grand(n, 1, "unf", 0, val($)) + ind = dsearch(y, val, "c") + s = X(ind, :) + return + end + + if orient == "c"|orient == 2 then + if size(f, "*") <> sizx(2) then + error(msprintf(gettext("%s: Wrong size for input argument #%d: Same number of columns of the second input argument expected.\n"), "samplef", 3)), + end + //Strip X of 0 frequency values + X(:, find(f==0)) = []; + f(find(f==0)) = []; + val = cumsum([0; f(:)]) + y = grand(n, 1, "unf", 0, val($)) + ind = dsearch(y, val, "c") + s = X(:, ind) + return + end + + error(msprintf(gettext("%s: Wrong value for input argument #%d: ''%s'', ''%s'', ''%s'', %d or %d expected.\n"), "orient", 4, "*", "r", "c", 1, 2)) +endfunction + diff --git a/modules/statistics/macros/samwr.bin b/modules/statistics/macros/samwr.bin Binary files differnew file mode 100755 index 000000000..937071822 --- /dev/null +++ b/modules/statistics/macros/samwr.bin diff --git a/modules/statistics/macros/samwr.sci b/modules/statistics/macros/samwr.sci new file mode 100755 index 000000000..43984e989 --- /dev/null +++ b/modules/statistics/macros/samwr.sci @@ -0,0 +1,30 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2003 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function s = samwr(sizam, numsamp, X) + // + //This function gives a s matrix sizsam x numsamp. It + //contains numsamp random samples (the columns) each of + //sizam ( < size(X, '*')) extractions, without replacement, + //from the vector X. + // + if argn(2) <> 3 then + error(msprintf(gettext("%s: Wrong number of input argument: %d expected.\n"), "samwr", 3)), + end + if X == []|sizam == 0|numsamp == 0 then s = []; return; end + sizx = size(X, "*") + if sizam > sizx then + error(msprintf(gettext("%s: Wrong value of input argument #%d: Lower than or equal to size of input argument #%d expected.\n"), "samwr", 1, 3)), + end + + perm = grand(numsamp, "prm", (1:sizx)') + s = matrix(X(perm), -1, numsamp) + s = s(1:sizam, :) +endfunction diff --git a/modules/statistics/macros/show_pca.bin b/modules/statistics/macros/show_pca.bin Binary files differnew file mode 100755 index 000000000..bf118606e --- /dev/null +++ b/modules/statistics/macros/show_pca.bin diff --git a/modules/statistics/macros/show_pca.sci b/modules/statistics/macros/show_pca.sci new file mode 100755 index 000000000..4df496f45 --- /dev/null +++ b/modules/statistics/macros/show_pca.sci @@ -0,0 +1,72 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2000 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// +function show_pca(lambda,facpr,N) + //used to visualize Principal component analysis results. + // It includes drawing of + //"correlations circle", i.e. in the horizontal axis the + //correlation values r(c1;xj) and in the vertical + //r(c2;xj). It is an extension of the pca function. + + //References: Saporta, Gilbert, Probabilites, Analyse des + //Donnees et Statistique, Editions Technip, Paris, 1990. + // + //Extracted out of pca, author: carlos klimann + + [lhs, rhs] = argn(0); + if rhs < 2 then + error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"show_pca",2,3)) + end + if rhs<3 then + N=[1 2] + end + if size(N,"*")<>2 then + error(msprintf(gettext("%s: Wrong size for input argument #%d: Size %s expected.\n"),"show_pca",2,"2x1")), + end, + + colx=size(facpr,2) + if max(N)>colx then + error(msprintf(gettext("%s: Graph demand out of bounds.\n"),"pca")) + end + + rango=find(lambda(:,1)<=size(facpr,2)*%eps*lambda(1,1),1) + if rango==[] then + rango=size(lambda,1) + end + + + rc = (ones(colx,1)* sqrt((lambda(N,1))')) .* facpr(:,N) ; + ra = [1:rango]'; + if ( rango <= 1 ) then + return + end + + // Plot the correlation circle + subplot(121) + plot(rc(ra,1),rc(ra,2),"b*"); + for k=1:rango + xstring(rc(k,1),rc(k,2),"X"+string(k)); + end + xtitle(gettext("Correlations Circle"),"Axis 1","Axis 2"); + h = gcf() + h.children.data_bounds=[-1,-1;1,1] + // Plot the circle + t = linspace(0,2*%pi,1000); + plot(cos(t),sin(t),"r-") + // Set isoview and grid + h = gca() + h.grid=[31 31] + h.isoview="on" + + // Plot the ratio of each eigenvalue over the sum. + subplot(122) + bar(lambda(:,2)) + plot(ra,cumsum(lambda(:,2)),"r*-") + xtitle(gettext("Eigenvalues"),"Indice","Ratio") +endfunction diff --git a/modules/statistics/macros/stdev.bin b/modules/statistics/macros/stdev.bin Binary files differnew file mode 100755 index 000000000..bdebe04ec --- /dev/null +++ b/modules/statistics/macros/stdev.bin diff --git a/modules/statistics/macros/stdev.sci b/modules/statistics/macros/stdev.sci new file mode 100755 index 000000000..5ed7a1b47 --- /dev/null +++ b/modules/statistics/macros/stdev.sci @@ -0,0 +1,151 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enteprises - Paul Bignier: added mean squared deviation +// (third input argument) +// Copyright (C) 2000 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function sd = stdev(x, o, m) + // + //This function computes the standard deviation of the values of a + //vector or matrix x. + // + //For a vector or a matrix x, s=stdev(x) returns in the scalar s the + //standard deviation of all the entries of x. + // + //s=stdev(x,'r') (or, equivalently, s=stdev(x,1)) is the rowwise + //standard deviation. It returns in each entry of the row vector s the + //standard deviation of each column of x. + // + //s=stdev(x,'c') (or, equivalently, s=stdev(x,2)) is the columnwise + //standard deviation. It returns in each entry of the column vector y + //the standard deviation of each row of x. + // + //The input argument m represents the a priori mean. If it is present, then the sum is + //divided by size(x,"*"). Otherwise ("sample standard deviation"), it is divided by size(x,"*")-1. + // + + [lhs, rhs] = argn(0); + + if rhs < 1 then + error(msprintf(_("%s: Wrong number of input arguments: %d to %d expected.\n"),"stdev",1,3)); + end + + if rhs < 2 then + o = "*" + on = 0 + else + select o + case "*" then + on = 0 + case "r" then + on = 1 + case "c" then + on = 2 + else + if type(o) <> 1 | size(o, "*") <> 1 | o < 0 | floor(o) <> o then + error(msprintf(_("%s: Wrong value for input argument #%d: ''%s'', ''%s'', ''%s'' or a positive integer expected.\n"),"stdev",2,"*","r","c")), + else + on = o + end + end + end + + if typeof(x) == "hypermat" then + if rhs == 3 then + sd = %hm_stdev(x, o, m); + else + sd = %hm_stdev(x, o); + end + return + end + + if type(x) ~= 1 | ~isreal(x) then + tmp = _("%s: Wrong type for input argument #%d: A real matrix expected.\n") + error(msprintf(tmp, "stdev", 1)) + end + + siz = size(x); + if rhs == 3 then + if and(typeof(m) ~= ["constant" "hypermat"]) | ~isreal(m) then + tmp = _("%s: Wrong type for input argument #%d: A real matrix expected.\n") + error(msprintf(tmp, "stdev", 3)) + elseif on == 0 then + if ~isscalar(m) then + tmp = _("%s: Wrong size for input argument #%d.\n") + error(msprintf(tmp, "stdev", 3)) + end + elseif on == 1 then + if or(size(m) ~= [1 siz(2:$)]) then + if isscalar(m) then + m = resize_matrix(m, [1 siz(2:$)], m); + else + tmp = _("%s: Wrong size for input argument #%d.\n") + error(msprintf(tmp, "stdev", 3)) + end + end + elseif on == 2 then + if or(size(m) ~= [siz(1) 1 siz(3:$)]) then + if isscalar(m) then + m = resize_matrix(m, [siz(1) 1 siz(3:$)], m); + else + tmp = _("%s: Wrong size for input argument #%d.\n") + error(msprintf(tmp, "stdev", 3)) + end + end + end + end + + if x == [] then + sd = %nan; + return + end + + if rhs == 3 & isnan(m) then + // This will compute the "biased variance": the denominator will be size(x,orien) + // but the a priori mean is not considered as provided. + rhs = 2 + end + + // Remove the mean + if on == 0 then + if rhs == 3 + y = x - m; + else + y = x - mean(x); + end + elseif on == 2 then + if rhs == 3 + y = x - m*ones(x(1,:)); + else + y = x - mean(x,on)*ones(x(1,:)); + end + elseif on == 1 then + if rhs == 3 + y = x - ones(x(:,1))*m; + else + y = x - ones(x(:,1))*mean(x,1); + end + else // on > ndims(x) then + sd = 0*x; + return + end + + mn = size(x, o); + + if mn == 1 then + sd = 0*y; + else + if rhs <= 2 & exists("m", "local") == 0 then // If m is provided but rhs=2, that means we want the biased deviation + sd = sqrt(sum(y.^2,o)/(mn-1)); + else + sd = sqrt(sum(y.^2,o)/mn); + end + end + +endfunction diff --git a/modules/statistics/macros/stdevf.bin b/modules/statistics/macros/stdevf.bin Binary files differnew file mode 100755 index 000000000..2e601eabb --- /dev/null +++ b/modules/statistics/macros/stdevf.bin diff --git a/modules/statistics/macros/stdevf.sci b/modules/statistics/macros/stdevf.sci new file mode 100755 index 000000000..08367a58b --- /dev/null +++ b/modules/statistics/macros/stdevf.sci @@ -0,0 +1,62 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2000 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function [s]=stdevf(x,fre,o) + // + //This function computes the standard deviation of the values of a + //vector or matrix x, each of them counted with a frequency signaled by + //the corresponding values of the integer vector or matrix fre with the + //same type of x. + // + //For a vector or matrix x, s=stdevf(x,fre) (or s=stdevf(x,fre,'*') + //returns in scalar s the standard deviation of all the entries of x, + //each value counted with the multiplicity indicated by the + //corresponding value of fre. + // + //s=stdevf(x,fre,'r')(or, equivalently, s=stdevf(x,fre,1)) returns in + //each entry of the row vector s the standard + //deviation of each column of x, each value counted with the + //multiplicity indicated by the corresponding value of fre. + // + //s=stdevf(x,fre,'c')(or, equivalently, s=stdevf(x,fre,2)) returns in + //each entry of the column vector s the standard + //deviation of each row of x, each value counted with the multiplicity + //indicated by the corresponding value of fre. + // + // + rhs=argn(2) + if rhs<2 then + error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"stdevf",2,3)), + elseif rhs==2 then + o="*" + end + if or(size(x)<>size(fre)) then + error(msprintf(gettext("%s: Wrong size for input arguments #%d and #%d: Same dimensions expected.\n"),"stdevf",1,2)) + end + if x==[] then s=%nan;return,end + + + //remove the median + if o=="*" then + y=x - meanf(x,fre) + elseif o=="r"|o==1, + y=x - ones(size(x,o),1)*meanf(x,fre,o) + elseif o=="c"|o==2, + y=x - meanf(x,fre,o)*ones(1,size(x,o)) + else + error(msprintf(gettext("%s: Wrong value for input argument #%d: Must be in the set {%s}.\n"),... + "stdevf",3,"""*"",""r"",""c"",1,2")), + end + if size(x,o)==1 then + s=0*sum((y.^2).*fre,o) + else + s=sqrt(sum((y.^2).*fre,o)./(sum(fre,o)-1)); + end +endfunction diff --git a/modules/statistics/macros/strange.bin b/modules/statistics/macros/strange.bin Binary files differnew file mode 100755 index 000000000..03198cc9a --- /dev/null +++ b/modules/statistics/macros/strange.bin diff --git a/modules/statistics/macros/strange.sci b/modules/statistics/macros/strange.sci new file mode 100755 index 000000000..d7a3582ee --- /dev/null +++ b/modules/statistics/macros/strange.sci @@ -0,0 +1,36 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2000 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function [r]=strange(x,orien) + // + //The range is the distance between the largest and smaller value, + //[r]=range(x) computes the range of vector or matrix x. + // + //[r]=range(x,'r') (or equivalently [r]=range(x,1)) give a row vector + //with the range of each column. + // + //[r]=range(x,'c') (or equivalently [r]=range(x,2)) give a column vector + //with the range of each row. + // + // + [lhs,rhs]=argn(0) + if rhs==0 then error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"strange",0,2)), end + if rhs==1 then + r=max(x)-min(x) + elseif rhs==2 then + if orien=="r"|orien==1 then + r=max(x,"r")-min(x,"r") + elseif orien=="c"|orien==2 then + r=max(x,"c")-min(x,"c") + else + error(msprintf(gettext("%s: Wrong value for %d input argument: ''%s'', ''%s'', %d or %d expected.\n"),"strange",2,"r","c",1,2)), + end + end +endfunction diff --git a/modules/statistics/macros/tabul.bin b/modules/statistics/macros/tabul.bin Binary files differnew file mode 100755 index 000000000..e782956ef --- /dev/null +++ b/modules/statistics/macros/tabul.bin diff --git a/modules/statistics/macros/tabul.sci b/modules/statistics/macros/tabul.sci new file mode 100755 index 000000000..4d9fc1ecd --- /dev/null +++ b/modules/statistics/macros/tabul.sci @@ -0,0 +1,91 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 1999 - INRIA - Carlos Klimann +// Copyright (C) 2003 - Jean-Sebastien Giet & Bruno Pincon +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function [m] = tabul(X, order) + // + // PURPOSE + // This function computes the frequency of values of + // the components of a vector or matrix X of numbers or + // string characters. + // + // If X is a numerical vector or matrix then + // m is a two column matrix who contains in + // the first column the distinct values of X + // and in the other column the number of occurrences + // of those values (m(i,2) is the number of occurrences + // of m(i,1)). + // + // If X is a vector or matrix of strings, m is a list + // whose first member is a string vector composed with + // the distinct values of X and the second member is a + // vector whose components are the number of occurrences + // of those values ( m(i)(2) is the number of occurrences + // of the string m(i)(1) ). + // + // The optional parameter order must be "d" or "i" + // (by default order = "d") and it gives the order + // of the distinct vector values of X (first column + // or first part of m) : + // order = "d" means that these values are sorted + // in decreasing order + // = "i" means by increasing order + // + // AUTHORS + // Original version by Carlos Klimann + // This version by Jean-Sebastien Giet & Bruno Pincon + // + // date: 1999-04-09 (original version) + // 2003-Mars-26 (new version) + // + // NOTES + // The new version : + // is faster (by using no more loop) + // performs a complete check of the input arguments + // add the order option + // used gsort in place of sort : the sort function + // sorts strings vector not the usual way ! + + rhs = argn(2) + if rhs<1 | 2<rhs then + error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"tabul",1,2)), + elseif rhs == 1 then + order = "d" + end + typeX = type(X) + if typeX ~= 1 & typeX ~= 10 then + error(msprintf(gettext("%s: Wrong type for input argument #%d: Vector, matrix of numbers or strings expected.\n"),"tabul",1)) + end + if type(order) ~= 10 then + error(msprintf(gettext("%s: Wrong value for input argument #%d: ''%s'' or ''%s'' expected.\n"),"tabul",2,"i","d")) + end + if order~="i" & order~="d" then + error(msprintf(gettext("%s: Wrong value for input argument #%d: ''%s'' or ''%s'' expected.\n"),"tabul",2,"i","d")) + end + if ( X == [] ) then + m = %nan + return + end + + X = X(:) + X = gsort(X,"g",order) + n = size(X,"*") + ind = [find(X(1:$-1)~=X(2:$)) n] + + val = X(ind) + occ = diff([0 ind])' + + if typeX == 1 then + m = [val occ] + else // X (and so val) is a vector of strings + m = list(val,occ) + end + +endfunction diff --git a/modules/statistics/macros/thrownan.bin b/modules/statistics/macros/thrownan.bin Binary files differnew file mode 100755 index 000000000..ee6a06898 --- /dev/null +++ b/modules/statistics/macros/thrownan.bin diff --git a/modules/statistics/macros/thrownan.sci b/modules/statistics/macros/thrownan.sci new file mode 100755 index 000000000..b3775696e --- /dev/null +++ b/modules/statistics/macros/thrownan.sci @@ -0,0 +1,34 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2000 - INRIA - Carlos Klimann +// Copyright (C) 2010 - DIGITEO - Michael Baudin +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function [nonan,numb]=thrownan(x) + // + // + //This function returns in vector nonan the values + //(ignoring the NANs) of a vector or matrix x and in the + //corresponding places of vector numb the indexes of the + //value. + // + //For a vector or matrix x, [nonan,numb]=thrownan(x) + //considers x, whatever his dimensions are, like a linear + //vector (columns first). + // + // + [lhs,rhs]=argn(0) + if ( rhs<>1 ) then + error(msprintf(gettext("%s: Wrong number of input argument: %d expected.\n"),"thrownan",1)) + end + tf = ~isnan(x) + numb=find(bool2s(tf)) + nonan=x(tf) + +endfunction + diff --git a/modules/statistics/macros/trimmean.bin b/modules/statistics/macros/trimmean.bin Binary files differnew file mode 100755 index 000000000..6ccfd6358 --- /dev/null +++ b/modules/statistics/macros/trimmean.bin diff --git a/modules/statistics/macros/trimmean.sci b/modules/statistics/macros/trimmean.sci new file mode 100755 index 000000000..9d41026c1 --- /dev/null +++ b/modules/statistics/macros/trimmean.sci @@ -0,0 +1,135 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2002 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +function t=trimmean(x,discard,orien, verbose) + // + //A trimmed mean is calculated by discarding a certain + //percentage of the lowest and the highest scores and then + //computing the mean of the remaining scores. For + //example, a mean trimmed 50% is computed by discarding + //the lower and higher 25% of the scores and taking the + //mean of the remaining scores. + // + //The median is the mean trimmed 100% and the arithmetic + //mean is the mean trimmed 0%. + // + //A trimmed mean is obviously less susceptible to the + //effects of extreme scores than is the arithmetic mean. + //It is therefore less susceptible to sampling fluctuation + //than the mean for extremely skewed distributions. It is + //less efficient (The efficiency of a statistic is the + //degree to which the statistic is stable from sample to + //sample. That is, the less subject to sampling + //fluctuation a statistic is, the more efficient it + //is. The efficiency of statistics is measured relative to + //the efficiency of other statistics and is therefore + //often called the relative efficiency. If statistic A has + //a smaller standard error than statistic B, then + //statistic A is more efficient than statistic B. The + //relative efficiency of two statistics may depend on the + //distribution involved. For instance, the mean is more + //efficient than the median for normal distributions but + //not for some extremely skewed distributions. The + //efficiency of a statistic can also be thought of as the + //precision of the estimate: The more efficient the + //statistic, the more precise the statistic is as an + //estimator of the parameter.[from + //http://davidmlane.com/hyperstat/A12977.html]) than the + //mean for normal distributions. + // + //Trimmed means are often used in Olympic scoring to + //minimize the effects of extreme ratings possibly caused + //by biased judges. [from + //http://davidmlane.com/hyperstat/A11971.html] + // + // + //For a vector or matrix x, t=trimmean(x,discard) returns + //in scalar t the mean of all the entries of x, after + //discarding discard/2 highest values and discard/2 lowest + //values. + // + //t=trimmean(x,discard,'r') (or, equivalently, + //t=trimmean(x,discard,1)) returns in each entry of the + //row vector t the trimmed mean of each column of x. + // + //t=trimmean(x,discard,'c') (or, equivalently, + //t=trimmean(x,discard,2)) returns in each entry of the + //column vector t the trimmed mean of each row of x. + // + //References: Luis Angel Garcia-Escudero and Alfonso + //Gordaliza, Robustness Properties of Means and Trimmed + //Means, JASA, Volume 94, Number 447, Sept 1999, pp956-969 + // + + // + // modified by Bruno Pincon 2006-08-12 (to fix bug 2083) + + [lhs,rhs]=argn() + if rhs < 1 | rhs > 4 then + error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"trimmean",1,4)) + end + + if exists("discard","local")==0 then + discard = 50. + else + if type(discard)~=1 | ~isreal(discard) | length(discard) ~=1 | discard > 100 | discard < 0 then + error(msprintf(gettext("%s: Wrong value for input argument #%d: Real number between %d to %d expected.\n"),"trimmean",2,0,100)) + end + end + if exists("orien","local")==0 then + orien = "all" + end + if exists("verbose","local")==0 then + verbose=0; + end + // Compute sizx + if (orien=="r" | orien==1) then + sizx=size(x,"r") + elseif (orien=="c" | orien==2) then + sizx=size(x,"c") + elseif (orien == "all") then + sizx = length(x) + else + error(msprintf(gettext("Wrong value for input argument orien: %s.\n"),string(orien))) + end + + if sizx==0 then + if (verbose==1) then + printf(gettext("Size of x is zero : returning NaN.\n")); + end + t=%nan + return + end + + nomdis = floor(sizx*discard/200) + k1 = 1 + nomdis + k2 = sizx - nomdis + if k2 < k1 then + [k1,k2] = (k2,k1) + end + nb = k2-k1+1 + if (verbose==1) then + printf(gettext("discard=%s\n"),string(discard)); + printf(gettext("orien=%s\n"),string(orien)); + printf(gettext("Size of x:%i\n"),sizx); + printf(gettext("Keeping %i values from %i to %i in sorted order\n"),nb,k1,k2); + end + if orien == "all" then + x = gsort(x) + t = sum(x(k1:k2)) / nb + elseif (orien=="r" | orien==1) then + x = gsort(x,"r") + t = sum(x(k1:k2,:),"r") / nb + elseif (orien=="c" | orien==2) then + x = gsort(x,"c") + t = sum(x(:,k1:k2),"c") / nb + else + error(msprintf(gettext("Unexpected value of orien : %s\n"),string(orien))) + end +endfunction + diff --git a/modules/statistics/macros/variance.bin b/modules/statistics/macros/variance.bin Binary files differnew file mode 100755 index 000000000..5373e0d29 --- /dev/null +++ b/modules/statistics/macros/variance.bin diff --git a/modules/statistics/macros/variance.sci b/modules/statistics/macros/variance.sci new file mode 100755 index 000000000..d9d39b6ee --- /dev/null +++ b/modules/statistics/macros/variance.sci @@ -0,0 +1,125 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2000 - INRIA - Carlos Klimann +// Copyright (C) 2013 - Samuel GOUGEON +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function [s, m] = variance(x, orien, m) + // + //This function computes the variance of the values of a vector or + //matrix x. + // + //For a vector or a matrix x, s=variance(x) returns in the scalar s the + //variance of all the entries of x. + // + //s=variance(x,'r') (or, equivalently, s=variance(x,1)) is the rowwise + //variance. It returns in each entry of the row vector s the variance of + //each column of x. + // + //s=variance(x,'c') (or, equivalently, s=variance(x,2)) is the columnwise standard + //deviation. It returns in each entry of the column vector y the + //variance of each row of x. + // + //The input argument m represents the a priori mean. If it is present, then the sum is + //divided by n. Otherwise ("sample variance"), it is divided by n-1. + // + + // Checking and normalizing input arguments: + // ---------------------------------------- + [lhs,rhs] = argn(0) + if rhs==0 then + tmp = gettext("%s: Wrong number of input arguments: %d to %d expected.\n") + error(msprintf(tmp, "variance", 1, 2)) + end + + if x==[] then + s = %nan + return + end + + if ~isdef("orien","local") then + orien = "*" + end + + if rhs==3 then + if typeof(m)~="constant" then + tmp = gettext("%s: Wrong value of m : a priori mean expected.\n") + error(msprintf(tmp, "variance")) + elseif orien=="*" then + if ~isscalar(m) then + tmp = gettext("%s: Wrong value of m : a priori mean expected.\n") + error(msprintf(tmp, "variance")) + end + elseif orien=="r" | orien==1 then + if size(m)~=[1 size(x,"c")] & ~isscalar(m) then + tmp = gettext("%s: Wrong value of m : a priori mean expected.\n") + error(msprintf(tmp, "variance")) + end + elseif orien=="c" | orien==2 then + if size(m)~=[size(x,"r") 1] & ~isscalar(m) then + tmp = gettext("%s: Wrong value of m : a priori mean expected.\n") + error(msprintf(tmp, "variance")) + end + end + end + + transposed = %f // to refer and process as in "r", we priorly transpose any "c" request + if orien=="r" | orien==1 | orien=="c" | orien==2 | orien=="*" + if orien=="c" | orien==2 then + x = x.' + transposed = %t + orien = "r" + end + else + tmp = gettext("%s: Wrong value for input argument #%d: ''%s'', ''%s'', %d or %d expected.\n") + error(msprintf(tmp, "variance", 2, "c", "r", 1, 2)) + end + + // Calculations + // ------------ + + d = size(x, orien) - 1 + exists("m","local") // Denominator. If m is given, then the a priori mean is known and we divide by size(n,orien) + + if rhs == 3 & isnan(m) then + // This will compute the "biased variance": the denominator is size(x,orien) but the a priori mean is not considered as provided. + rhs = 2 + end + if orien=="*" then + if rhs < 3 then + m = mean(x) + end + else + if rhs < 3 then + m = mean(x, orien).*.ones(size(x,1),1) + else + if isscalar(m) then + if or(m==[0 1]) then + tmp = _("%s: The significance of input argument #%d has been modified. Please refer to the variance help page.\n") + warning(msprintf(tmp, "variance", 3)) + end + // If m is a scalar, extend it to the size of x. + // If lhs==1, we do not need to perform this operation, because in the following 'x - m', m can be a scalar + m = m*ones(x) + else + if transposed then + m = m.'; + end + m = m.*.ones(size(x,1),1) + end + end + end + + s = sum(abs(x - m).^2, orien) / d + + m = m(1, :); + if transposed then + s = s.' + m = m.' + end + +endfunction diff --git a/modules/statistics/macros/variancef.bin b/modules/statistics/macros/variancef.bin Binary files differnew file mode 100755 index 000000000..b5de904c7 --- /dev/null +++ b/modules/statistics/macros/variancef.bin diff --git a/modules/statistics/macros/variancef.sci b/modules/statistics/macros/variancef.sci new file mode 100755 index 000000000..e593de8ea --- /dev/null +++ b/modules/statistics/macros/variancef.sci @@ -0,0 +1,136 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul BIGNIER : m parameter added +// Copyright (C) 2013 - Samuel GOUGEON : http://bugzilla.scilab.org/11209 fixed +// Copyright (C) 2000 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function [s, m] = variancef(x, fre, orien, m) + // + //This function computes the variance of the values of a vector or + //matrix x, each of them counted with a frequency signaled by the + //corresponding values of the integer vector or matrix fre with the same + //type of x. + // + //For a vector or matrix x, s=variancef(x,fre) (or s=variancef(x,fre,'*') returns + //in scalar s the variance of all the entries of x, each value counted + //with the multiplicity indicated by the corresponding value of fre. + // + //s=variancef(x,fre,'r')(or, equivalently, s=variancef(x,fre,1)) returns in each + //entry of the row vector s of type 1xsize(x,'c') the variance of each + //column of x, each value counted with the multiplicity indicated by the + //corresponding value of fre. + // + //s=variancef(x,fre,'c')(or, equivalently, s=variancef(x,fre,2)) returns in each + //entry of the column vector s of type size(x,'c')x1 the variance of + //each row of x, each value counted with the multiplicity indicated by + //the corresponding value of fre. + // + //The input argument m represents the a priori mean. If it is present, then the sum is + //divided by n. Otherwise ("sample variance"), it is divided by n-1. + // + // + + [lhs,rhs] = argn(0) + if rhs<2 | rhs>4 then + msg = gettext("%s: Wrong number of input arguments: %d to %d expected.\n") + error(msprintf(msg, "variancef", 2, 4)) + end + if x==[] | fre==[] | fre==0 + s = %nan + return + end + if rhs==2 then + sumfre = sum(fre) + if sumfre <= 1 then + msg = gettext("%s: Wrong value for input argument #%d: Must be > %d.\n") + error(msprintf(msg, "variancef", 2, 1)), end + m = meanf(x,fre) + s = sum((abs(x-m).^2).*fre) / (sumfre-1) + return + end + biased = %f + if rhs==4 then + if typeof(m)~="constant" then + tmp = gettext("%s: Wrong value of m : a priori mean expected.\n") + error(msprintf(tmp, "variancef", )) + elseif orien=="*" then + if ~isscalar(m) then + tmp = gettext("%s: Wrong value of m : a priori mean expected.\n") + error(msprintf(tmp, "variancef", )) + end + elseif orien=="r" | orien==1 then + if size(m)~=[1 size(x,"c")] & ~isscalar(m) then + tmp = gettext("%s: Wrong value of m : a priori mean expected.\n") + error(msprintf(tmp, "variancef", )) + end + elseif orien=="c" | orien==2 then + if size(m)~=[size(x,"r") 1] & ~isscalar(m) then + tmp = gettext("%s: Wrong value of m : a priori mean expected.\n") + error(msprintf(tmp, "variancef", )) + end + end + if isnan(m) then + biased = %t; // Compute the biased variance + end + end + if orien=="*", + sumfre = sum(fre) + if sumfre <= 1 then + msg = _("%s: Wrong value for input argument #%d: Must be > %d.\n") + error(msprintf(msg, "variancef", 2, 1)),end + if rhs<4 then + m = meanf(x,fre) + s = sum((abs(x-m).^2).*fre) / (sumfre-1) + elseif biased == %t + m = meanf(x,fre) + s = sum((abs(x-m).^2).*fre) / sumfre + else + s = sum((abs(x-m).^2).*fre) / sumfre + end + elseif orien=="r" | orien==1, + sumfre = sum(fre, "r") + if or(sumfre==0) then + msg = _("%s: Wrong value for input argument #%d: Must be > %d.\n") + error(msprintf(msg, "variancef", 2, 1)) + end + if rhs<4 | biased == %t then + m = meanf(x,fre,"r") + elseif isscalar(m) then + m = m*ones(1, size(x,"c")); + end + m2 = ones(size(x,"r"),1)*m + if rhs<4 then + s = sum((abs(x-m2).^2).*fre, "r") ./ (sumfre-1) + else + s = sum((abs(x-m2).^2).*fre, "r") ./ sumfre + end + elseif orien=="c" | orien==2, + sumfre = sum(fre, "c") + if or(sumfre==0) then + msg = _("%s: Wrong value for input argument #%d: Must be > %d.\n") + error(msprintf(msg, "variancef", 2, 1)) + end + if rhs<4 | biased == %t then + m = meanf(x,fre,"c") + elseif isscalar(m) then + m = m*ones(size(x,"r"), 1); + end + m2 = m*ones(1,size(x,"c")) + if rhs<4 then + s = sum((abs(x-m2).^2).*fre, "c") ./ (sumfre-1) + else + s = sum((abs(x-m2).^2).*fre, "c") ./ sumfre + end + else + msg = _("%s: Wrong value for input argument #%d: ''%s'', ''%s'', ''%s'', %d or %d expected.\n") + error(msprintf(msg, "variancef", 3, "*", "c", "r", 1, 2)) + end + +endfunction diff --git a/modules/statistics/macros/wcenter.bin b/modules/statistics/macros/wcenter.bin Binary files differnew file mode 100755 index 000000000..4fba450fc --- /dev/null +++ b/modules/statistics/macros/wcenter.bin diff --git a/modules/statistics/macros/wcenter.sci b/modules/statistics/macros/wcenter.sci new file mode 100755 index 000000000..c1e2d608e --- /dev/null +++ b/modules/statistics/macros/wcenter.sci @@ -0,0 +1,59 @@ + +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2000 - INRIA - Carlos Klimann +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +// + +function [s]=wcenter(x,orient) + // + //This function computes s, the centered weighted version + //of the numerical matrix x. + // + //For a vector or a matrix x, s=wcenter(x) returns in + //the (i,j) coefficient of the matrix s the value + //(x(i,j)-xbar)/sigma, where xbar is the mean of the + //values of the coefficients of x and sigma his standard + //deviation. + // + //s=wcenter(x,'r') (or, equivalently, s=wcenter(x,1)) + //is the rowwise centre reduction of the values of x. It + //returns in the entry s(i,j) the value + //(x(i,j)-xbarv(j))/sigmav(j) with xbarv(j) the mean of + //the values of the j column and sigmav(j) the standard + //deviation of the j column of x. + // + //s=wcenter(x,'c') (or, equivalently, s=wcenter(x,2)) + //is the columnwise centre reduction of the values of + //x. It returns in the entry s(i,j) the value + //(x(i,j)-xbarh(i))/sigmah(i) with xbarh(i) the mean of + //the values of the i row and sigmah(i) the standard + //deviation of the i row of x. + // + // + if x==[] then s=%nan, return, end + [lhs,rhs]=argn(0) + if (rhs<1)|(rhs>2) then error(msprintf(gettext("%s: Wrong number of input arguments: %d to %d expected.\n"),"wcenter",1,2)), end + [m n]=size(x); + if rhs==1 + xbar=(sum(x)/(m*n)) + s=x-(ones(m,n)*xbar) + sigma=sqrt(sum(s .^ 2)/(m*n-1)) + s=s/sigma + elseif orient=="c"|orient==2 then + xbar=sum(x,"c")/n + s=x-(xbar*ones(1,n)) + sigma=sqrt(sum((s.^2),"c")/(n-1)) + s=s./(sigma*ones(1,n)) + elseif orient=="r"|orient==1 then + xbar=sum(x,"r")/m + s=x-(ones(m,1)*xbar) + sigma=sqrt(sum((s.^2),"r")/(m-1)) + s=s./(ones(m,1)*sigma) + else error(msprintf(gettext("%s: Wrong value for input argument #%d: ''%s'', ''%s'', %d or %d expected.\n"),"wcenter",2,"r","c", 1, 2)), + end +endfunction diff --git a/modules/statistics/sci_gateway/c/.deps/.dirstamp b/modules/statistics/sci_gateway/c/.deps/.dirstamp new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/statistics/sci_gateway/c/.deps/.dirstamp diff --git a/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-gw_statistics.Plo b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-gw_statistics.Plo new file mode 100755 index 000000000..9a65ce8ce --- /dev/null +++ b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-gw_statistics.Plo @@ -0,0 +1,275 @@ +sci_gateway/c/libscistatistics_la-gw_statistics.lo: \ + sci_gateway/c/gw_statistics.c /usr/include/stdc-predef.h \ + /usr/include/string.h /usr/include/features.h \ + /usr/include/x86_64-linux-gnu/sys/cdefs.h \ + /usr/include/x86_64-linux-gnu/bits/wordsize.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs-64.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h /usr/include/xlocale.h \ + /usr/include/x86_64-linux-gnu/bits/string.h \ + /usr/include/x86_64-linux-gnu/bits/string2.h /usr/include/endian.h \ + /usr/include/x86_64-linux-gnu/bits/endian.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap.h \ + /usr/include/x86_64-linux-gnu/bits/types.h \ + /usr/include/x86_64-linux-gnu/bits/typesizes.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap-16.h /usr/include/stdlib.h \ + /usr/include/x86_64-linux-gnu/bits/string3.h includes/gw_statistics.h \ + includes/dynlib_statistics.h \ + ../../modules/api_scilab/includes/api_scilab.h \ + ../../modules/core/includes/stack-c.h \ + ../../modules/core/includes/core_math.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h \ + /usr/include/limits.h /usr/include/x86_64-linux-gnu/bits/posix1_lim.h \ + /usr/include/x86_64-linux-gnu/bits/local_lim.h \ + /usr/include/linux/limits.h \ + /usr/include/x86_64-linux-gnu/bits/posix2_lim.h /usr/include/math.h \ + /usr/include/x86_64-linux-gnu/bits/math-vector.h \ + /usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h \ + /usr/include/x86_64-linux-gnu/bits/huge_val.h \ + /usr/include/x86_64-linux-gnu/bits/huge_valf.h \ + /usr/include/x86_64-linux-gnu/bits/huge_vall.h \ + /usr/include/x86_64-linux-gnu/bits/inf.h \ + /usr/include/x86_64-linux-gnu/bits/nan.h \ + /usr/include/x86_64-linux-gnu/bits/mathdef.h \ + /usr/include/x86_64-linux-gnu/bits/mathcalls.h \ + /usr/include/x86_64-linux-gnu/bits/mathinline.h \ + /usr/include/x86_64-linux-gnu/bits/waitflags.h \ + /usr/include/x86_64-linux-gnu/bits/waitstatus.h \ + /usr/include/x86_64-linux-gnu/sys/types.h /usr/include/time.h \ + /usr/include/x86_64-linux-gnu/sys/select.h \ + /usr/include/x86_64-linux-gnu/bits/select.h \ + /usr/include/x86_64-linux-gnu/bits/sigset.h \ + /usr/include/x86_64-linux-gnu/bits/time.h \ + /usr/include/x86_64-linux-gnu/bits/select2.h \ + /usr/include/x86_64-linux-gnu/sys/sysmacros.h \ + /usr/include/x86_64-linux-gnu/bits/pthreadtypes.h /usr/include/alloca.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-float.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib.h \ + ../../modules/core/includes/stack-def.h \ + ../../modules/core/includes/machine.h \ + ../../modules/core/includes/stackTypeVariable.h \ + ../../modules/core/includes/BOOL.h \ + ../../modules/core/includes/doublecomplex.h \ + ../../modules/core/includes/stack1.h \ + ../../modules/core/includes/scisparse.h \ + ../../modules/core/includes/stack2.h \ + ../../modules/core/includes/stack3.h \ + ../../modules/core/includes/stack-optional.h \ + ../../modules/core/includes/sci_types.h \ + ../../modules/api_scilab/includes/api_common.h \ + ../../modules/api_scilab/includes/api_scilab.h \ + ../../modules/api_scilab/includes/api_double.h \ + ../../modules/core/includes/doublecomplex.h \ + ../../modules/api_scilab/includes/api_string.h /usr/include/wchar.h \ + /usr/include/stdio.h /usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h \ + /usr/include/x86_64-linux-gnu/bits/wchar.h \ + /usr/include/x86_64-linux-gnu/bits/wchar2.h \ + ../../modules/api_scilab/includes/api_int.h \ + ../../modules/api_scilab/includes/api_poly.h \ + ../../modules/api_scilab/includes/api_sparse.h \ + ../../modules/api_scilab/includes/api_boolean.h \ + ../../modules/api_scilab/includes/api_boolean_sparse.h \ + ../../modules/api_scilab/includes/api_pointer.h \ + ../../modules/api_scilab/includes/api_list.h \ + ../../modules/api_scilab/includes/api_error.h \ + ../../modules/api_scilab/includes/api_handle.h \ + ../../modules/api_scilab/includes/api_optional.h \ + ../../modules/core/includes/stack-optional.h \ + ../../modules/api_scilab/includes/api_hypermat.h \ + ../../modules/core/includes/core_math.h \ + ../../modules/core/includes/sci_types.h \ + ../../modules/core/includes/MALLOC.h \ + ../../modules/core/includes/sci_mem_alloc.h \ + ../../modules/core/includes/callFunctionFromGateway.h + +/usr/include/stdc-predef.h: + +/usr/include/string.h: + +/usr/include/features.h: + +/usr/include/x86_64-linux-gnu/sys/cdefs.h: + +/usr/include/x86_64-linux-gnu/bits/wordsize.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs-64.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h: + +/usr/include/xlocale.h: + +/usr/include/x86_64-linux-gnu/bits/string.h: + +/usr/include/x86_64-linux-gnu/bits/string2.h: + +/usr/include/endian.h: + +/usr/include/x86_64-linux-gnu/bits/endian.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap.h: + +/usr/include/x86_64-linux-gnu/bits/types.h: + +/usr/include/x86_64-linux-gnu/bits/typesizes.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap-16.h: + +/usr/include/stdlib.h: + +/usr/include/x86_64-linux-gnu/bits/string3.h: + +includes/gw_statistics.h: + +includes/dynlib_statistics.h: + +../../modules/api_scilab/includes/api_scilab.h: + +../../modules/core/includes/stack-c.h: + +../../modules/core/includes/core_math.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h: + +/usr/include/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix1_lim.h: + +/usr/include/x86_64-linux-gnu/bits/local_lim.h: + +/usr/include/linux/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix2_lim.h: + +/usr/include/math.h: + +/usr/include/x86_64-linux-gnu/bits/math-vector.h: + +/usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h: + +/usr/include/x86_64-linux-gnu/bits/huge_val.h: + +/usr/include/x86_64-linux-gnu/bits/huge_valf.h: + +/usr/include/x86_64-linux-gnu/bits/huge_vall.h: + +/usr/include/x86_64-linux-gnu/bits/inf.h: + +/usr/include/x86_64-linux-gnu/bits/nan.h: + +/usr/include/x86_64-linux-gnu/bits/mathdef.h: + +/usr/include/x86_64-linux-gnu/bits/mathcalls.h: + +/usr/include/x86_64-linux-gnu/bits/mathinline.h: + +/usr/include/x86_64-linux-gnu/bits/waitflags.h: + +/usr/include/x86_64-linux-gnu/bits/waitstatus.h: + +/usr/include/x86_64-linux-gnu/sys/types.h: + +/usr/include/time.h: + +/usr/include/x86_64-linux-gnu/sys/select.h: + +/usr/include/x86_64-linux-gnu/bits/select.h: + +/usr/include/x86_64-linux-gnu/bits/sigset.h: + +/usr/include/x86_64-linux-gnu/bits/time.h: + +/usr/include/x86_64-linux-gnu/bits/select2.h: + +/usr/include/x86_64-linux-gnu/sys/sysmacros.h: + +/usr/include/x86_64-linux-gnu/bits/pthreadtypes.h: + +/usr/include/alloca.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-float.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib.h: + +../../modules/core/includes/stack-def.h: + +../../modules/core/includes/machine.h: + +../../modules/core/includes/stackTypeVariable.h: + +../../modules/core/includes/BOOL.h: + +../../modules/core/includes/doublecomplex.h: + +../../modules/core/includes/stack1.h: + +../../modules/core/includes/scisparse.h: + +../../modules/core/includes/stack2.h: + +../../modules/core/includes/stack3.h: + +../../modules/core/includes/stack-optional.h: + +../../modules/core/includes/sci_types.h: + +../../modules/api_scilab/includes/api_common.h: + +../../modules/api_scilab/includes/api_scilab.h: + +../../modules/api_scilab/includes/api_double.h: + +../../modules/core/includes/doublecomplex.h: + +../../modules/api_scilab/includes/api_string.h: + +/usr/include/wchar.h: + +/usr/include/stdio.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h: + +/usr/include/x86_64-linux-gnu/bits/wchar.h: + +/usr/include/x86_64-linux-gnu/bits/wchar2.h: + +../../modules/api_scilab/includes/api_int.h: + +../../modules/api_scilab/includes/api_poly.h: + +../../modules/api_scilab/includes/api_sparse.h: + +../../modules/api_scilab/includes/api_boolean.h: + +../../modules/api_scilab/includes/api_boolean_sparse.h: + +../../modules/api_scilab/includes/api_pointer.h: + +../../modules/api_scilab/includes/api_list.h: + +../../modules/api_scilab/includes/api_error.h: + +../../modules/api_scilab/includes/api_handle.h: + +../../modules/api_scilab/includes/api_optional.h: + +../../modules/core/includes/stack-optional.h: + +../../modules/api_scilab/includes/api_hypermat.h: + +../../modules/core/includes/core_math.h: + +../../modules/core/includes/sci_types.h: + +../../modules/core/includes/MALLOC.h: + +../../modules/core/includes/sci_mem_alloc.h: + +../../modules/core/includes/callFunctionFromGateway.h: diff --git a/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfbet.Plo b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfbet.Plo new file mode 100755 index 000000000..c8bd84f9a --- /dev/null +++ b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfbet.Plo @@ -0,0 +1,217 @@ +sci_gateway/c/libscistatistics_la-sci_cdfbet.lo: \ + sci_gateway/c/sci_cdfbet.c /usr/include/stdc-predef.h \ + /usr/include/string.h /usr/include/features.h \ + /usr/include/x86_64-linux-gnu/sys/cdefs.h \ + /usr/include/x86_64-linux-gnu/bits/wordsize.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs-64.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h /usr/include/xlocale.h \ + /usr/include/x86_64-linux-gnu/bits/string.h \ + /usr/include/x86_64-linux-gnu/bits/string2.h /usr/include/endian.h \ + /usr/include/x86_64-linux-gnu/bits/endian.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap.h \ + /usr/include/x86_64-linux-gnu/bits/types.h \ + /usr/include/x86_64-linux-gnu/bits/typesizes.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap-16.h /usr/include/stdlib.h \ + /usr/include/x86_64-linux-gnu/bits/string3.h includes/gw_statistics.h \ + includes/dynlib_statistics.h ../../modules/core/includes/stack-c.h \ + ../../modules/core/includes/core_math.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h \ + /usr/include/limits.h /usr/include/x86_64-linux-gnu/bits/posix1_lim.h \ + /usr/include/x86_64-linux-gnu/bits/local_lim.h \ + /usr/include/linux/limits.h \ + /usr/include/x86_64-linux-gnu/bits/posix2_lim.h /usr/include/math.h \ + /usr/include/x86_64-linux-gnu/bits/math-vector.h \ + /usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h \ + /usr/include/x86_64-linux-gnu/bits/huge_val.h \ + /usr/include/x86_64-linux-gnu/bits/huge_valf.h \ + /usr/include/x86_64-linux-gnu/bits/huge_vall.h \ + /usr/include/x86_64-linux-gnu/bits/inf.h \ + /usr/include/x86_64-linux-gnu/bits/nan.h \ + /usr/include/x86_64-linux-gnu/bits/mathdef.h \ + /usr/include/x86_64-linux-gnu/bits/mathcalls.h \ + /usr/include/x86_64-linux-gnu/bits/mathinline.h \ + /usr/include/x86_64-linux-gnu/bits/waitflags.h \ + /usr/include/x86_64-linux-gnu/bits/waitstatus.h \ + /usr/include/x86_64-linux-gnu/sys/types.h /usr/include/time.h \ + /usr/include/x86_64-linux-gnu/sys/select.h \ + /usr/include/x86_64-linux-gnu/bits/select.h \ + /usr/include/x86_64-linux-gnu/bits/sigset.h \ + /usr/include/x86_64-linux-gnu/bits/time.h \ + /usr/include/x86_64-linux-gnu/bits/select2.h \ + /usr/include/x86_64-linux-gnu/sys/sysmacros.h \ + /usr/include/x86_64-linux-gnu/bits/pthreadtypes.h /usr/include/alloca.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-float.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib.h \ + ../../modules/core/includes/stack-def.h \ + ../../modules/core/includes/machine.h \ + ../../modules/core/includes/stackTypeVariable.h \ + ../../modules/core/includes/BOOL.h \ + ../../modules/core/includes/doublecomplex.h \ + ../../modules/core/includes/stack1.h \ + ../../modules/core/includes/scisparse.h \ + ../../modules/core/includes/stack2.h \ + ../../modules/core/includes/stack3.h \ + ../../modules/core/includes/stack-optional.h \ + ../../modules/core/includes/sci_types.h src/c/CdfBase.h \ + ../../modules/output_stream/includes/Scierror.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h \ + ../../modules/output_stream/includes/do_error_number.h \ + ../../modules/core/includes/machine.h \ + ../../modules/localization/includes/localization.h \ + /usr/include/libintl.h /usr/include/locale.h \ + /usr/include/x86_64-linux-gnu/bits/locale.h + +/usr/include/stdc-predef.h: + +/usr/include/string.h: + +/usr/include/features.h: + +/usr/include/x86_64-linux-gnu/sys/cdefs.h: + +/usr/include/x86_64-linux-gnu/bits/wordsize.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs-64.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h: + +/usr/include/xlocale.h: + +/usr/include/x86_64-linux-gnu/bits/string.h: + +/usr/include/x86_64-linux-gnu/bits/string2.h: + +/usr/include/endian.h: + +/usr/include/x86_64-linux-gnu/bits/endian.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap.h: + +/usr/include/x86_64-linux-gnu/bits/types.h: + +/usr/include/x86_64-linux-gnu/bits/typesizes.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap-16.h: + +/usr/include/stdlib.h: + +/usr/include/x86_64-linux-gnu/bits/string3.h: + +includes/gw_statistics.h: + +includes/dynlib_statistics.h: + +../../modules/core/includes/stack-c.h: + +../../modules/core/includes/core_math.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h: + +/usr/include/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix1_lim.h: + +/usr/include/x86_64-linux-gnu/bits/local_lim.h: + +/usr/include/linux/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix2_lim.h: + +/usr/include/math.h: + +/usr/include/x86_64-linux-gnu/bits/math-vector.h: + +/usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h: + +/usr/include/x86_64-linux-gnu/bits/huge_val.h: + +/usr/include/x86_64-linux-gnu/bits/huge_valf.h: + +/usr/include/x86_64-linux-gnu/bits/huge_vall.h: + +/usr/include/x86_64-linux-gnu/bits/inf.h: + +/usr/include/x86_64-linux-gnu/bits/nan.h: + +/usr/include/x86_64-linux-gnu/bits/mathdef.h: + +/usr/include/x86_64-linux-gnu/bits/mathcalls.h: + +/usr/include/x86_64-linux-gnu/bits/mathinline.h: + +/usr/include/x86_64-linux-gnu/bits/waitflags.h: + +/usr/include/x86_64-linux-gnu/bits/waitstatus.h: + +/usr/include/x86_64-linux-gnu/sys/types.h: + +/usr/include/time.h: + +/usr/include/x86_64-linux-gnu/sys/select.h: + +/usr/include/x86_64-linux-gnu/bits/select.h: + +/usr/include/x86_64-linux-gnu/bits/sigset.h: + +/usr/include/x86_64-linux-gnu/bits/time.h: + +/usr/include/x86_64-linux-gnu/bits/select2.h: + +/usr/include/x86_64-linux-gnu/sys/sysmacros.h: + +/usr/include/x86_64-linux-gnu/bits/pthreadtypes.h: + +/usr/include/alloca.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-float.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib.h: + +../../modules/core/includes/stack-def.h: + +../../modules/core/includes/machine.h: + +../../modules/core/includes/stackTypeVariable.h: + +../../modules/core/includes/BOOL.h: + +../../modules/core/includes/doublecomplex.h: + +../../modules/core/includes/stack1.h: + +../../modules/core/includes/scisparse.h: + +../../modules/core/includes/stack2.h: + +../../modules/core/includes/stack3.h: + +../../modules/core/includes/stack-optional.h: + +../../modules/core/includes/sci_types.h: + +src/c/CdfBase.h: + +../../modules/output_stream/includes/Scierror.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h: + +../../modules/output_stream/includes/do_error_number.h: + +../../modules/core/includes/machine.h: + +../../modules/localization/includes/localization.h: + +/usr/include/libintl.h: + +/usr/include/locale.h: + +/usr/include/x86_64-linux-gnu/bits/locale.h: diff --git a/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfbin.Plo b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfbin.Plo new file mode 100755 index 000000000..41e6e023a --- /dev/null +++ b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfbin.Plo @@ -0,0 +1,217 @@ +sci_gateway/c/libscistatistics_la-sci_cdfbin.lo: \ + sci_gateway/c/sci_cdfbin.c /usr/include/stdc-predef.h \ + /usr/include/string.h /usr/include/features.h \ + /usr/include/x86_64-linux-gnu/sys/cdefs.h \ + /usr/include/x86_64-linux-gnu/bits/wordsize.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs-64.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h /usr/include/xlocale.h \ + /usr/include/x86_64-linux-gnu/bits/string.h \ + /usr/include/x86_64-linux-gnu/bits/string2.h /usr/include/endian.h \ + /usr/include/x86_64-linux-gnu/bits/endian.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap.h \ + /usr/include/x86_64-linux-gnu/bits/types.h \ + /usr/include/x86_64-linux-gnu/bits/typesizes.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap-16.h /usr/include/stdlib.h \ + /usr/include/x86_64-linux-gnu/bits/string3.h includes/gw_statistics.h \ + includes/dynlib_statistics.h ../../modules/core/includes/stack-c.h \ + ../../modules/core/includes/core_math.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h \ + /usr/include/limits.h /usr/include/x86_64-linux-gnu/bits/posix1_lim.h \ + /usr/include/x86_64-linux-gnu/bits/local_lim.h \ + /usr/include/linux/limits.h \ + /usr/include/x86_64-linux-gnu/bits/posix2_lim.h /usr/include/math.h \ + /usr/include/x86_64-linux-gnu/bits/math-vector.h \ + /usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h \ + /usr/include/x86_64-linux-gnu/bits/huge_val.h \ + /usr/include/x86_64-linux-gnu/bits/huge_valf.h \ + /usr/include/x86_64-linux-gnu/bits/huge_vall.h \ + /usr/include/x86_64-linux-gnu/bits/inf.h \ + /usr/include/x86_64-linux-gnu/bits/nan.h \ + /usr/include/x86_64-linux-gnu/bits/mathdef.h \ + /usr/include/x86_64-linux-gnu/bits/mathcalls.h \ + /usr/include/x86_64-linux-gnu/bits/mathinline.h \ + /usr/include/x86_64-linux-gnu/bits/waitflags.h \ + /usr/include/x86_64-linux-gnu/bits/waitstatus.h \ + /usr/include/x86_64-linux-gnu/sys/types.h /usr/include/time.h \ + /usr/include/x86_64-linux-gnu/sys/select.h \ + /usr/include/x86_64-linux-gnu/bits/select.h \ + /usr/include/x86_64-linux-gnu/bits/sigset.h \ + /usr/include/x86_64-linux-gnu/bits/time.h \ + /usr/include/x86_64-linux-gnu/bits/select2.h \ + /usr/include/x86_64-linux-gnu/sys/sysmacros.h \ + /usr/include/x86_64-linux-gnu/bits/pthreadtypes.h /usr/include/alloca.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-float.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib.h \ + ../../modules/core/includes/stack-def.h \ + ../../modules/core/includes/machine.h \ + ../../modules/core/includes/stackTypeVariable.h \ + ../../modules/core/includes/BOOL.h \ + ../../modules/core/includes/doublecomplex.h \ + ../../modules/core/includes/stack1.h \ + ../../modules/core/includes/scisparse.h \ + ../../modules/core/includes/stack2.h \ + ../../modules/core/includes/stack3.h \ + ../../modules/core/includes/stack-optional.h \ + ../../modules/core/includes/sci_types.h src/c/CdfBase.h \ + ../../modules/output_stream/includes/Scierror.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h \ + ../../modules/output_stream/includes/do_error_number.h \ + ../../modules/core/includes/machine.h \ + ../../modules/localization/includes/localization.h \ + /usr/include/libintl.h /usr/include/locale.h \ + /usr/include/x86_64-linux-gnu/bits/locale.h + +/usr/include/stdc-predef.h: + +/usr/include/string.h: + +/usr/include/features.h: + +/usr/include/x86_64-linux-gnu/sys/cdefs.h: + +/usr/include/x86_64-linux-gnu/bits/wordsize.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs-64.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h: + +/usr/include/xlocale.h: + +/usr/include/x86_64-linux-gnu/bits/string.h: + +/usr/include/x86_64-linux-gnu/bits/string2.h: + +/usr/include/endian.h: + +/usr/include/x86_64-linux-gnu/bits/endian.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap.h: + +/usr/include/x86_64-linux-gnu/bits/types.h: + +/usr/include/x86_64-linux-gnu/bits/typesizes.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap-16.h: + +/usr/include/stdlib.h: + +/usr/include/x86_64-linux-gnu/bits/string3.h: + +includes/gw_statistics.h: + +includes/dynlib_statistics.h: + +../../modules/core/includes/stack-c.h: + +../../modules/core/includes/core_math.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h: + +/usr/include/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix1_lim.h: + +/usr/include/x86_64-linux-gnu/bits/local_lim.h: + +/usr/include/linux/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix2_lim.h: + +/usr/include/math.h: + +/usr/include/x86_64-linux-gnu/bits/math-vector.h: + +/usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h: + +/usr/include/x86_64-linux-gnu/bits/huge_val.h: + +/usr/include/x86_64-linux-gnu/bits/huge_valf.h: + +/usr/include/x86_64-linux-gnu/bits/huge_vall.h: + +/usr/include/x86_64-linux-gnu/bits/inf.h: + +/usr/include/x86_64-linux-gnu/bits/nan.h: + +/usr/include/x86_64-linux-gnu/bits/mathdef.h: + +/usr/include/x86_64-linux-gnu/bits/mathcalls.h: + +/usr/include/x86_64-linux-gnu/bits/mathinline.h: + +/usr/include/x86_64-linux-gnu/bits/waitflags.h: + +/usr/include/x86_64-linux-gnu/bits/waitstatus.h: + +/usr/include/x86_64-linux-gnu/sys/types.h: + +/usr/include/time.h: + +/usr/include/x86_64-linux-gnu/sys/select.h: + +/usr/include/x86_64-linux-gnu/bits/select.h: + +/usr/include/x86_64-linux-gnu/bits/sigset.h: + +/usr/include/x86_64-linux-gnu/bits/time.h: + +/usr/include/x86_64-linux-gnu/bits/select2.h: + +/usr/include/x86_64-linux-gnu/sys/sysmacros.h: + +/usr/include/x86_64-linux-gnu/bits/pthreadtypes.h: + +/usr/include/alloca.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-float.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib.h: + +../../modules/core/includes/stack-def.h: + +../../modules/core/includes/machine.h: + +../../modules/core/includes/stackTypeVariable.h: + +../../modules/core/includes/BOOL.h: + +../../modules/core/includes/doublecomplex.h: + +../../modules/core/includes/stack1.h: + +../../modules/core/includes/scisparse.h: + +../../modules/core/includes/stack2.h: + +../../modules/core/includes/stack3.h: + +../../modules/core/includes/stack-optional.h: + +../../modules/core/includes/sci_types.h: + +src/c/CdfBase.h: + +../../modules/output_stream/includes/Scierror.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h: + +../../modules/output_stream/includes/do_error_number.h: + +../../modules/core/includes/machine.h: + +../../modules/localization/includes/localization.h: + +/usr/include/libintl.h: + +/usr/include/locale.h: + +/usr/include/x86_64-linux-gnu/bits/locale.h: diff --git a/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfchi.Plo b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfchi.Plo new file mode 100755 index 000000000..5459f6442 --- /dev/null +++ b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfchi.Plo @@ -0,0 +1,223 @@ +sci_gateway/c/libscistatistics_la-sci_cdfchi.lo: \ + sci_gateway/c/sci_cdfchi.c /usr/include/stdc-predef.h \ + /usr/include/string.h /usr/include/features.h \ + /usr/include/x86_64-linux-gnu/sys/cdefs.h \ + /usr/include/x86_64-linux-gnu/bits/wordsize.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs-64.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h /usr/include/xlocale.h \ + /usr/include/x86_64-linux-gnu/bits/string.h \ + /usr/include/x86_64-linux-gnu/bits/string2.h /usr/include/endian.h \ + /usr/include/x86_64-linux-gnu/bits/endian.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap.h \ + /usr/include/x86_64-linux-gnu/bits/types.h \ + /usr/include/x86_64-linux-gnu/bits/typesizes.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap-16.h /usr/include/stdlib.h \ + /usr/include/x86_64-linux-gnu/bits/string3.h includes/gw_statistics.h \ + includes/dynlib_statistics.h ../../modules/core/includes/stack-c.h \ + ../../modules/core/includes/core_math.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h \ + /usr/include/limits.h /usr/include/x86_64-linux-gnu/bits/posix1_lim.h \ + /usr/include/x86_64-linux-gnu/bits/local_lim.h \ + /usr/include/linux/limits.h \ + /usr/include/x86_64-linux-gnu/bits/posix2_lim.h /usr/include/math.h \ + /usr/include/x86_64-linux-gnu/bits/math-vector.h \ + /usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h \ + /usr/include/x86_64-linux-gnu/bits/huge_val.h \ + /usr/include/x86_64-linux-gnu/bits/huge_valf.h \ + /usr/include/x86_64-linux-gnu/bits/huge_vall.h \ + /usr/include/x86_64-linux-gnu/bits/inf.h \ + /usr/include/x86_64-linux-gnu/bits/nan.h \ + /usr/include/x86_64-linux-gnu/bits/mathdef.h \ + /usr/include/x86_64-linux-gnu/bits/mathcalls.h \ + /usr/include/x86_64-linux-gnu/bits/mathinline.h \ + /usr/include/x86_64-linux-gnu/bits/waitflags.h \ + /usr/include/x86_64-linux-gnu/bits/waitstatus.h \ + /usr/include/x86_64-linux-gnu/sys/types.h /usr/include/time.h \ + /usr/include/x86_64-linux-gnu/sys/select.h \ + /usr/include/x86_64-linux-gnu/bits/select.h \ + /usr/include/x86_64-linux-gnu/bits/sigset.h \ + /usr/include/x86_64-linux-gnu/bits/time.h \ + /usr/include/x86_64-linux-gnu/bits/select2.h \ + /usr/include/x86_64-linux-gnu/sys/sysmacros.h \ + /usr/include/x86_64-linux-gnu/bits/pthreadtypes.h /usr/include/alloca.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-float.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib.h \ + ../../modules/core/includes/stack-def.h \ + ../../modules/core/includes/machine.h \ + ../../modules/core/includes/stackTypeVariable.h \ + ../../modules/core/includes/BOOL.h \ + ../../modules/core/includes/doublecomplex.h \ + ../../modules/core/includes/stack1.h \ + ../../modules/core/includes/scisparse.h \ + ../../modules/core/includes/stack2.h \ + ../../modules/core/includes/stack3.h \ + ../../modules/core/includes/stack-optional.h \ + ../../modules/core/includes/sci_types.h src/c/CdfBase.h \ + ../../modules/output_stream/includes/Scierror.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h \ + ../../modules/output_stream/includes/do_error_number.h \ + ../../modules/core/includes/machine.h \ + ../../modules/localization/includes/localization.h \ + /usr/include/libintl.h /usr/include/locale.h \ + /usr/include/x86_64-linux-gnu/bits/locale.h \ + ../../modules/output_stream/includes/sciprint.h \ + ../../modules/core/includes/BOOL.h + +/usr/include/stdc-predef.h: + +/usr/include/string.h: + +/usr/include/features.h: + +/usr/include/x86_64-linux-gnu/sys/cdefs.h: + +/usr/include/x86_64-linux-gnu/bits/wordsize.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs-64.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h: + +/usr/include/xlocale.h: + +/usr/include/x86_64-linux-gnu/bits/string.h: + +/usr/include/x86_64-linux-gnu/bits/string2.h: + +/usr/include/endian.h: + +/usr/include/x86_64-linux-gnu/bits/endian.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap.h: + +/usr/include/x86_64-linux-gnu/bits/types.h: + +/usr/include/x86_64-linux-gnu/bits/typesizes.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap-16.h: + +/usr/include/stdlib.h: + +/usr/include/x86_64-linux-gnu/bits/string3.h: + +includes/gw_statistics.h: + +includes/dynlib_statistics.h: + +../../modules/core/includes/stack-c.h: + +../../modules/core/includes/core_math.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h: + +/usr/include/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix1_lim.h: + +/usr/include/x86_64-linux-gnu/bits/local_lim.h: + +/usr/include/linux/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix2_lim.h: + +/usr/include/math.h: + +/usr/include/x86_64-linux-gnu/bits/math-vector.h: + +/usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h: + +/usr/include/x86_64-linux-gnu/bits/huge_val.h: + +/usr/include/x86_64-linux-gnu/bits/huge_valf.h: + +/usr/include/x86_64-linux-gnu/bits/huge_vall.h: + +/usr/include/x86_64-linux-gnu/bits/inf.h: + +/usr/include/x86_64-linux-gnu/bits/nan.h: + +/usr/include/x86_64-linux-gnu/bits/mathdef.h: + +/usr/include/x86_64-linux-gnu/bits/mathcalls.h: + +/usr/include/x86_64-linux-gnu/bits/mathinline.h: + +/usr/include/x86_64-linux-gnu/bits/waitflags.h: + +/usr/include/x86_64-linux-gnu/bits/waitstatus.h: + +/usr/include/x86_64-linux-gnu/sys/types.h: + +/usr/include/time.h: + +/usr/include/x86_64-linux-gnu/sys/select.h: + +/usr/include/x86_64-linux-gnu/bits/select.h: + +/usr/include/x86_64-linux-gnu/bits/sigset.h: + +/usr/include/x86_64-linux-gnu/bits/time.h: + +/usr/include/x86_64-linux-gnu/bits/select2.h: + +/usr/include/x86_64-linux-gnu/sys/sysmacros.h: + +/usr/include/x86_64-linux-gnu/bits/pthreadtypes.h: + +/usr/include/alloca.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-float.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib.h: + +../../modules/core/includes/stack-def.h: + +../../modules/core/includes/machine.h: + +../../modules/core/includes/stackTypeVariable.h: + +../../modules/core/includes/BOOL.h: + +../../modules/core/includes/doublecomplex.h: + +../../modules/core/includes/stack1.h: + +../../modules/core/includes/scisparse.h: + +../../modules/core/includes/stack2.h: + +../../modules/core/includes/stack3.h: + +../../modules/core/includes/stack-optional.h: + +../../modules/core/includes/sci_types.h: + +src/c/CdfBase.h: + +../../modules/output_stream/includes/Scierror.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h: + +../../modules/output_stream/includes/do_error_number.h: + +../../modules/core/includes/machine.h: + +../../modules/localization/includes/localization.h: + +/usr/include/libintl.h: + +/usr/include/locale.h: + +/usr/include/x86_64-linux-gnu/bits/locale.h: + +../../modules/output_stream/includes/sciprint.h: + +../../modules/core/includes/BOOL.h: diff --git a/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfchn.Plo b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfchn.Plo new file mode 100755 index 000000000..cdde1389e --- /dev/null +++ b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfchn.Plo @@ -0,0 +1,223 @@ +sci_gateway/c/libscistatistics_la-sci_cdfchn.lo: \ + sci_gateway/c/sci_cdfchn.c /usr/include/stdc-predef.h \ + /usr/include/string.h /usr/include/features.h \ + /usr/include/x86_64-linux-gnu/sys/cdefs.h \ + /usr/include/x86_64-linux-gnu/bits/wordsize.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs-64.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h /usr/include/xlocale.h \ + /usr/include/x86_64-linux-gnu/bits/string.h \ + /usr/include/x86_64-linux-gnu/bits/string2.h /usr/include/endian.h \ + /usr/include/x86_64-linux-gnu/bits/endian.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap.h \ + /usr/include/x86_64-linux-gnu/bits/types.h \ + /usr/include/x86_64-linux-gnu/bits/typesizes.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap-16.h /usr/include/stdlib.h \ + /usr/include/x86_64-linux-gnu/bits/string3.h includes/gw_statistics.h \ + includes/dynlib_statistics.h ../../modules/core/includes/stack-c.h \ + ../../modules/core/includes/core_math.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h \ + /usr/include/limits.h /usr/include/x86_64-linux-gnu/bits/posix1_lim.h \ + /usr/include/x86_64-linux-gnu/bits/local_lim.h \ + /usr/include/linux/limits.h \ + /usr/include/x86_64-linux-gnu/bits/posix2_lim.h /usr/include/math.h \ + /usr/include/x86_64-linux-gnu/bits/math-vector.h \ + /usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h \ + /usr/include/x86_64-linux-gnu/bits/huge_val.h \ + /usr/include/x86_64-linux-gnu/bits/huge_valf.h \ + /usr/include/x86_64-linux-gnu/bits/huge_vall.h \ + /usr/include/x86_64-linux-gnu/bits/inf.h \ + /usr/include/x86_64-linux-gnu/bits/nan.h \ + /usr/include/x86_64-linux-gnu/bits/mathdef.h \ + /usr/include/x86_64-linux-gnu/bits/mathcalls.h \ + /usr/include/x86_64-linux-gnu/bits/mathinline.h \ + /usr/include/x86_64-linux-gnu/bits/waitflags.h \ + /usr/include/x86_64-linux-gnu/bits/waitstatus.h \ + /usr/include/x86_64-linux-gnu/sys/types.h /usr/include/time.h \ + /usr/include/x86_64-linux-gnu/sys/select.h \ + /usr/include/x86_64-linux-gnu/bits/select.h \ + /usr/include/x86_64-linux-gnu/bits/sigset.h \ + /usr/include/x86_64-linux-gnu/bits/time.h \ + /usr/include/x86_64-linux-gnu/bits/select2.h \ + /usr/include/x86_64-linux-gnu/sys/sysmacros.h \ + /usr/include/x86_64-linux-gnu/bits/pthreadtypes.h /usr/include/alloca.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-float.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib.h \ + ../../modules/core/includes/stack-def.h \ + ../../modules/core/includes/machine.h \ + ../../modules/core/includes/stackTypeVariable.h \ + ../../modules/core/includes/BOOL.h \ + ../../modules/core/includes/doublecomplex.h \ + ../../modules/core/includes/stack1.h \ + ../../modules/core/includes/scisparse.h \ + ../../modules/core/includes/stack2.h \ + ../../modules/core/includes/stack3.h \ + ../../modules/core/includes/stack-optional.h \ + ../../modules/core/includes/sci_types.h src/c/CdfBase.h \ + ../../modules/output_stream/includes/Scierror.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h \ + ../../modules/output_stream/includes/do_error_number.h \ + ../../modules/core/includes/machine.h \ + ../../modules/localization/includes/localization.h \ + /usr/include/libintl.h /usr/include/locale.h \ + /usr/include/x86_64-linux-gnu/bits/locale.h \ + ../../modules/output_stream/includes/sciprint.h \ + ../../modules/core/includes/BOOL.h + +/usr/include/stdc-predef.h: + +/usr/include/string.h: + +/usr/include/features.h: + +/usr/include/x86_64-linux-gnu/sys/cdefs.h: + +/usr/include/x86_64-linux-gnu/bits/wordsize.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs-64.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h: + +/usr/include/xlocale.h: + +/usr/include/x86_64-linux-gnu/bits/string.h: + +/usr/include/x86_64-linux-gnu/bits/string2.h: + +/usr/include/endian.h: + +/usr/include/x86_64-linux-gnu/bits/endian.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap.h: + +/usr/include/x86_64-linux-gnu/bits/types.h: + +/usr/include/x86_64-linux-gnu/bits/typesizes.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap-16.h: + +/usr/include/stdlib.h: + +/usr/include/x86_64-linux-gnu/bits/string3.h: + +includes/gw_statistics.h: + +includes/dynlib_statistics.h: + +../../modules/core/includes/stack-c.h: + +../../modules/core/includes/core_math.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h: + +/usr/include/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix1_lim.h: + +/usr/include/x86_64-linux-gnu/bits/local_lim.h: + +/usr/include/linux/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix2_lim.h: + +/usr/include/math.h: + +/usr/include/x86_64-linux-gnu/bits/math-vector.h: + +/usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h: + +/usr/include/x86_64-linux-gnu/bits/huge_val.h: + +/usr/include/x86_64-linux-gnu/bits/huge_valf.h: + +/usr/include/x86_64-linux-gnu/bits/huge_vall.h: + +/usr/include/x86_64-linux-gnu/bits/inf.h: + +/usr/include/x86_64-linux-gnu/bits/nan.h: + +/usr/include/x86_64-linux-gnu/bits/mathdef.h: + +/usr/include/x86_64-linux-gnu/bits/mathcalls.h: + +/usr/include/x86_64-linux-gnu/bits/mathinline.h: + +/usr/include/x86_64-linux-gnu/bits/waitflags.h: + +/usr/include/x86_64-linux-gnu/bits/waitstatus.h: + +/usr/include/x86_64-linux-gnu/sys/types.h: + +/usr/include/time.h: + +/usr/include/x86_64-linux-gnu/sys/select.h: + +/usr/include/x86_64-linux-gnu/bits/select.h: + +/usr/include/x86_64-linux-gnu/bits/sigset.h: + +/usr/include/x86_64-linux-gnu/bits/time.h: + +/usr/include/x86_64-linux-gnu/bits/select2.h: + +/usr/include/x86_64-linux-gnu/sys/sysmacros.h: + +/usr/include/x86_64-linux-gnu/bits/pthreadtypes.h: + +/usr/include/alloca.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-float.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib.h: + +../../modules/core/includes/stack-def.h: + +../../modules/core/includes/machine.h: + +../../modules/core/includes/stackTypeVariable.h: + +../../modules/core/includes/BOOL.h: + +../../modules/core/includes/doublecomplex.h: + +../../modules/core/includes/stack1.h: + +../../modules/core/includes/scisparse.h: + +../../modules/core/includes/stack2.h: + +../../modules/core/includes/stack3.h: + +../../modules/core/includes/stack-optional.h: + +../../modules/core/includes/sci_types.h: + +src/c/CdfBase.h: + +../../modules/output_stream/includes/Scierror.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h: + +../../modules/output_stream/includes/do_error_number.h: + +../../modules/core/includes/machine.h: + +../../modules/localization/includes/localization.h: + +/usr/include/libintl.h: + +/usr/include/locale.h: + +/usr/include/x86_64-linux-gnu/bits/locale.h: + +../../modules/output_stream/includes/sciprint.h: + +../../modules/core/includes/BOOL.h: diff --git a/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdff.Plo b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdff.Plo new file mode 100755 index 000000000..3eb56c2f2 --- /dev/null +++ b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdff.Plo @@ -0,0 +1,222 @@ +sci_gateway/c/libscistatistics_la-sci_cdff.lo: sci_gateway/c/sci_cdff.c \ + /usr/include/stdc-predef.h /usr/include/string.h /usr/include/features.h \ + /usr/include/x86_64-linux-gnu/sys/cdefs.h \ + /usr/include/x86_64-linux-gnu/bits/wordsize.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs-64.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h /usr/include/xlocale.h \ + /usr/include/x86_64-linux-gnu/bits/string.h \ + /usr/include/x86_64-linux-gnu/bits/string2.h /usr/include/endian.h \ + /usr/include/x86_64-linux-gnu/bits/endian.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap.h \ + /usr/include/x86_64-linux-gnu/bits/types.h \ + /usr/include/x86_64-linux-gnu/bits/typesizes.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap-16.h /usr/include/stdlib.h \ + /usr/include/x86_64-linux-gnu/bits/string3.h includes/gw_statistics.h \ + includes/dynlib_statistics.h ../../modules/core/includes/stack-c.h \ + ../../modules/core/includes/core_math.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h \ + /usr/include/limits.h /usr/include/x86_64-linux-gnu/bits/posix1_lim.h \ + /usr/include/x86_64-linux-gnu/bits/local_lim.h \ + /usr/include/linux/limits.h \ + /usr/include/x86_64-linux-gnu/bits/posix2_lim.h /usr/include/math.h \ + /usr/include/x86_64-linux-gnu/bits/math-vector.h \ + /usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h \ + /usr/include/x86_64-linux-gnu/bits/huge_val.h \ + /usr/include/x86_64-linux-gnu/bits/huge_valf.h \ + /usr/include/x86_64-linux-gnu/bits/huge_vall.h \ + /usr/include/x86_64-linux-gnu/bits/inf.h \ + /usr/include/x86_64-linux-gnu/bits/nan.h \ + /usr/include/x86_64-linux-gnu/bits/mathdef.h \ + /usr/include/x86_64-linux-gnu/bits/mathcalls.h \ + /usr/include/x86_64-linux-gnu/bits/mathinline.h \ + /usr/include/x86_64-linux-gnu/bits/waitflags.h \ + /usr/include/x86_64-linux-gnu/bits/waitstatus.h \ + /usr/include/x86_64-linux-gnu/sys/types.h /usr/include/time.h \ + /usr/include/x86_64-linux-gnu/sys/select.h \ + /usr/include/x86_64-linux-gnu/bits/select.h \ + /usr/include/x86_64-linux-gnu/bits/sigset.h \ + /usr/include/x86_64-linux-gnu/bits/time.h \ + /usr/include/x86_64-linux-gnu/bits/select2.h \ + /usr/include/x86_64-linux-gnu/sys/sysmacros.h \ + /usr/include/x86_64-linux-gnu/bits/pthreadtypes.h /usr/include/alloca.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-float.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib.h \ + ../../modules/core/includes/stack-def.h \ + ../../modules/core/includes/machine.h \ + ../../modules/core/includes/stackTypeVariable.h \ + ../../modules/core/includes/BOOL.h \ + ../../modules/core/includes/doublecomplex.h \ + ../../modules/core/includes/stack1.h \ + ../../modules/core/includes/scisparse.h \ + ../../modules/core/includes/stack2.h \ + ../../modules/core/includes/stack3.h \ + ../../modules/core/includes/stack-optional.h \ + ../../modules/core/includes/sci_types.h src/c/CdfBase.h \ + ../../modules/output_stream/includes/Scierror.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h \ + ../../modules/output_stream/includes/do_error_number.h \ + ../../modules/core/includes/machine.h \ + ../../modules/localization/includes/localization.h \ + /usr/include/libintl.h /usr/include/locale.h \ + /usr/include/x86_64-linux-gnu/bits/locale.h \ + ../../modules/output_stream/includes/sciprint.h \ + ../../modules/core/includes/BOOL.h + +/usr/include/stdc-predef.h: + +/usr/include/string.h: + +/usr/include/features.h: + +/usr/include/x86_64-linux-gnu/sys/cdefs.h: + +/usr/include/x86_64-linux-gnu/bits/wordsize.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs-64.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h: + +/usr/include/xlocale.h: + +/usr/include/x86_64-linux-gnu/bits/string.h: + +/usr/include/x86_64-linux-gnu/bits/string2.h: + +/usr/include/endian.h: + +/usr/include/x86_64-linux-gnu/bits/endian.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap.h: + +/usr/include/x86_64-linux-gnu/bits/types.h: + +/usr/include/x86_64-linux-gnu/bits/typesizes.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap-16.h: + +/usr/include/stdlib.h: + +/usr/include/x86_64-linux-gnu/bits/string3.h: + +includes/gw_statistics.h: + +includes/dynlib_statistics.h: + +../../modules/core/includes/stack-c.h: + +../../modules/core/includes/core_math.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h: + +/usr/include/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix1_lim.h: + +/usr/include/x86_64-linux-gnu/bits/local_lim.h: + +/usr/include/linux/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix2_lim.h: + +/usr/include/math.h: + +/usr/include/x86_64-linux-gnu/bits/math-vector.h: + +/usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h: + +/usr/include/x86_64-linux-gnu/bits/huge_val.h: + +/usr/include/x86_64-linux-gnu/bits/huge_valf.h: + +/usr/include/x86_64-linux-gnu/bits/huge_vall.h: + +/usr/include/x86_64-linux-gnu/bits/inf.h: + +/usr/include/x86_64-linux-gnu/bits/nan.h: + +/usr/include/x86_64-linux-gnu/bits/mathdef.h: + +/usr/include/x86_64-linux-gnu/bits/mathcalls.h: + +/usr/include/x86_64-linux-gnu/bits/mathinline.h: + +/usr/include/x86_64-linux-gnu/bits/waitflags.h: + +/usr/include/x86_64-linux-gnu/bits/waitstatus.h: + +/usr/include/x86_64-linux-gnu/sys/types.h: + +/usr/include/time.h: + +/usr/include/x86_64-linux-gnu/sys/select.h: + +/usr/include/x86_64-linux-gnu/bits/select.h: + +/usr/include/x86_64-linux-gnu/bits/sigset.h: + +/usr/include/x86_64-linux-gnu/bits/time.h: + +/usr/include/x86_64-linux-gnu/bits/select2.h: + +/usr/include/x86_64-linux-gnu/sys/sysmacros.h: + +/usr/include/x86_64-linux-gnu/bits/pthreadtypes.h: + +/usr/include/alloca.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-float.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib.h: + +../../modules/core/includes/stack-def.h: + +../../modules/core/includes/machine.h: + +../../modules/core/includes/stackTypeVariable.h: + +../../modules/core/includes/BOOL.h: + +../../modules/core/includes/doublecomplex.h: + +../../modules/core/includes/stack1.h: + +../../modules/core/includes/scisparse.h: + +../../modules/core/includes/stack2.h: + +../../modules/core/includes/stack3.h: + +../../modules/core/includes/stack-optional.h: + +../../modules/core/includes/sci_types.h: + +src/c/CdfBase.h: + +../../modules/output_stream/includes/Scierror.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h: + +../../modules/output_stream/includes/do_error_number.h: + +../../modules/core/includes/machine.h: + +../../modules/localization/includes/localization.h: + +/usr/include/libintl.h: + +/usr/include/locale.h: + +/usr/include/x86_64-linux-gnu/bits/locale.h: + +../../modules/output_stream/includes/sciprint.h: + +../../modules/core/includes/BOOL.h: diff --git a/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdffnc.Plo b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdffnc.Plo new file mode 100755 index 000000000..4dbe5c12d --- /dev/null +++ b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdffnc.Plo @@ -0,0 +1,223 @@ +sci_gateway/c/libscistatistics_la-sci_cdffnc.lo: \ + sci_gateway/c/sci_cdffnc.c /usr/include/stdc-predef.h \ + /usr/include/string.h /usr/include/features.h \ + /usr/include/x86_64-linux-gnu/sys/cdefs.h \ + /usr/include/x86_64-linux-gnu/bits/wordsize.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs-64.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h /usr/include/xlocale.h \ + /usr/include/x86_64-linux-gnu/bits/string.h \ + /usr/include/x86_64-linux-gnu/bits/string2.h /usr/include/endian.h \ + /usr/include/x86_64-linux-gnu/bits/endian.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap.h \ + /usr/include/x86_64-linux-gnu/bits/types.h \ + /usr/include/x86_64-linux-gnu/bits/typesizes.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap-16.h /usr/include/stdlib.h \ + /usr/include/x86_64-linux-gnu/bits/string3.h includes/gw_statistics.h \ + includes/dynlib_statistics.h ../../modules/core/includes/stack-c.h \ + ../../modules/core/includes/core_math.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h \ + /usr/include/limits.h /usr/include/x86_64-linux-gnu/bits/posix1_lim.h \ + /usr/include/x86_64-linux-gnu/bits/local_lim.h \ + /usr/include/linux/limits.h \ + /usr/include/x86_64-linux-gnu/bits/posix2_lim.h /usr/include/math.h \ + /usr/include/x86_64-linux-gnu/bits/math-vector.h \ + /usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h \ + /usr/include/x86_64-linux-gnu/bits/huge_val.h \ + /usr/include/x86_64-linux-gnu/bits/huge_valf.h \ + /usr/include/x86_64-linux-gnu/bits/huge_vall.h \ + /usr/include/x86_64-linux-gnu/bits/inf.h \ + /usr/include/x86_64-linux-gnu/bits/nan.h \ + /usr/include/x86_64-linux-gnu/bits/mathdef.h \ + /usr/include/x86_64-linux-gnu/bits/mathcalls.h \ + /usr/include/x86_64-linux-gnu/bits/mathinline.h \ + /usr/include/x86_64-linux-gnu/bits/waitflags.h \ + /usr/include/x86_64-linux-gnu/bits/waitstatus.h \ + /usr/include/x86_64-linux-gnu/sys/types.h /usr/include/time.h \ + /usr/include/x86_64-linux-gnu/sys/select.h \ + /usr/include/x86_64-linux-gnu/bits/select.h \ + /usr/include/x86_64-linux-gnu/bits/sigset.h \ + /usr/include/x86_64-linux-gnu/bits/time.h \ + /usr/include/x86_64-linux-gnu/bits/select2.h \ + /usr/include/x86_64-linux-gnu/sys/sysmacros.h \ + /usr/include/x86_64-linux-gnu/bits/pthreadtypes.h /usr/include/alloca.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-float.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib.h \ + ../../modules/core/includes/stack-def.h \ + ../../modules/core/includes/machine.h \ + ../../modules/core/includes/stackTypeVariable.h \ + ../../modules/core/includes/BOOL.h \ + ../../modules/core/includes/doublecomplex.h \ + ../../modules/core/includes/stack1.h \ + ../../modules/core/includes/scisparse.h \ + ../../modules/core/includes/stack2.h \ + ../../modules/core/includes/stack3.h \ + ../../modules/core/includes/stack-optional.h \ + ../../modules/core/includes/sci_types.h src/c/CdfBase.h \ + ../../modules/output_stream/includes/Scierror.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h \ + ../../modules/output_stream/includes/do_error_number.h \ + ../../modules/core/includes/machine.h \ + ../../modules/localization/includes/localization.h \ + /usr/include/libintl.h /usr/include/locale.h \ + /usr/include/x86_64-linux-gnu/bits/locale.h \ + ../../modules/output_stream/includes/sciprint.h \ + ../../modules/core/includes/BOOL.h + +/usr/include/stdc-predef.h: + +/usr/include/string.h: + +/usr/include/features.h: + +/usr/include/x86_64-linux-gnu/sys/cdefs.h: + +/usr/include/x86_64-linux-gnu/bits/wordsize.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs-64.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h: + +/usr/include/xlocale.h: + +/usr/include/x86_64-linux-gnu/bits/string.h: + +/usr/include/x86_64-linux-gnu/bits/string2.h: + +/usr/include/endian.h: + +/usr/include/x86_64-linux-gnu/bits/endian.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap.h: + +/usr/include/x86_64-linux-gnu/bits/types.h: + +/usr/include/x86_64-linux-gnu/bits/typesizes.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap-16.h: + +/usr/include/stdlib.h: + +/usr/include/x86_64-linux-gnu/bits/string3.h: + +includes/gw_statistics.h: + +includes/dynlib_statistics.h: + +../../modules/core/includes/stack-c.h: + +../../modules/core/includes/core_math.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h: + +/usr/include/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix1_lim.h: + +/usr/include/x86_64-linux-gnu/bits/local_lim.h: + +/usr/include/linux/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix2_lim.h: + +/usr/include/math.h: + +/usr/include/x86_64-linux-gnu/bits/math-vector.h: + +/usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h: + +/usr/include/x86_64-linux-gnu/bits/huge_val.h: + +/usr/include/x86_64-linux-gnu/bits/huge_valf.h: + +/usr/include/x86_64-linux-gnu/bits/huge_vall.h: + +/usr/include/x86_64-linux-gnu/bits/inf.h: + +/usr/include/x86_64-linux-gnu/bits/nan.h: + +/usr/include/x86_64-linux-gnu/bits/mathdef.h: + +/usr/include/x86_64-linux-gnu/bits/mathcalls.h: + +/usr/include/x86_64-linux-gnu/bits/mathinline.h: + +/usr/include/x86_64-linux-gnu/bits/waitflags.h: + +/usr/include/x86_64-linux-gnu/bits/waitstatus.h: + +/usr/include/x86_64-linux-gnu/sys/types.h: + +/usr/include/time.h: + +/usr/include/x86_64-linux-gnu/sys/select.h: + +/usr/include/x86_64-linux-gnu/bits/select.h: + +/usr/include/x86_64-linux-gnu/bits/sigset.h: + +/usr/include/x86_64-linux-gnu/bits/time.h: + +/usr/include/x86_64-linux-gnu/bits/select2.h: + +/usr/include/x86_64-linux-gnu/sys/sysmacros.h: + +/usr/include/x86_64-linux-gnu/bits/pthreadtypes.h: + +/usr/include/alloca.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-float.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib.h: + +../../modules/core/includes/stack-def.h: + +../../modules/core/includes/machine.h: + +../../modules/core/includes/stackTypeVariable.h: + +../../modules/core/includes/BOOL.h: + +../../modules/core/includes/doublecomplex.h: + +../../modules/core/includes/stack1.h: + +../../modules/core/includes/scisparse.h: + +../../modules/core/includes/stack2.h: + +../../modules/core/includes/stack3.h: + +../../modules/core/includes/stack-optional.h: + +../../modules/core/includes/sci_types.h: + +src/c/CdfBase.h: + +../../modules/output_stream/includes/Scierror.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h: + +../../modules/output_stream/includes/do_error_number.h: + +../../modules/core/includes/machine.h: + +../../modules/localization/includes/localization.h: + +/usr/include/libintl.h: + +/usr/include/locale.h: + +/usr/include/x86_64-linux-gnu/bits/locale.h: + +../../modules/output_stream/includes/sciprint.h: + +../../modules/core/includes/BOOL.h: diff --git a/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfgam.Plo b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfgam.Plo new file mode 100755 index 000000000..ac9f85714 --- /dev/null +++ b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfgam.Plo @@ -0,0 +1,217 @@ +sci_gateway/c/libscistatistics_la-sci_cdfgam.lo: \ + sci_gateway/c/sci_cdfgam.c /usr/include/stdc-predef.h \ + /usr/include/string.h /usr/include/features.h \ + /usr/include/x86_64-linux-gnu/sys/cdefs.h \ + /usr/include/x86_64-linux-gnu/bits/wordsize.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs-64.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h /usr/include/xlocale.h \ + /usr/include/x86_64-linux-gnu/bits/string.h \ + /usr/include/x86_64-linux-gnu/bits/string2.h /usr/include/endian.h \ + /usr/include/x86_64-linux-gnu/bits/endian.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap.h \ + /usr/include/x86_64-linux-gnu/bits/types.h \ + /usr/include/x86_64-linux-gnu/bits/typesizes.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap-16.h /usr/include/stdlib.h \ + /usr/include/x86_64-linux-gnu/bits/string3.h includes/gw_statistics.h \ + includes/dynlib_statistics.h ../../modules/core/includes/stack-c.h \ + ../../modules/core/includes/core_math.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h \ + /usr/include/limits.h /usr/include/x86_64-linux-gnu/bits/posix1_lim.h \ + /usr/include/x86_64-linux-gnu/bits/local_lim.h \ + /usr/include/linux/limits.h \ + /usr/include/x86_64-linux-gnu/bits/posix2_lim.h /usr/include/math.h \ + /usr/include/x86_64-linux-gnu/bits/math-vector.h \ + /usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h \ + /usr/include/x86_64-linux-gnu/bits/huge_val.h \ + /usr/include/x86_64-linux-gnu/bits/huge_valf.h \ + /usr/include/x86_64-linux-gnu/bits/huge_vall.h \ + /usr/include/x86_64-linux-gnu/bits/inf.h \ + /usr/include/x86_64-linux-gnu/bits/nan.h \ + /usr/include/x86_64-linux-gnu/bits/mathdef.h \ + /usr/include/x86_64-linux-gnu/bits/mathcalls.h \ + /usr/include/x86_64-linux-gnu/bits/mathinline.h \ + /usr/include/x86_64-linux-gnu/bits/waitflags.h \ + /usr/include/x86_64-linux-gnu/bits/waitstatus.h \ + /usr/include/x86_64-linux-gnu/sys/types.h /usr/include/time.h \ + /usr/include/x86_64-linux-gnu/sys/select.h \ + /usr/include/x86_64-linux-gnu/bits/select.h \ + /usr/include/x86_64-linux-gnu/bits/sigset.h \ + /usr/include/x86_64-linux-gnu/bits/time.h \ + /usr/include/x86_64-linux-gnu/bits/select2.h \ + /usr/include/x86_64-linux-gnu/sys/sysmacros.h \ + /usr/include/x86_64-linux-gnu/bits/pthreadtypes.h /usr/include/alloca.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-float.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib.h \ + ../../modules/core/includes/stack-def.h \ + ../../modules/core/includes/machine.h \ + ../../modules/core/includes/stackTypeVariable.h \ + ../../modules/core/includes/BOOL.h \ + ../../modules/core/includes/doublecomplex.h \ + ../../modules/core/includes/stack1.h \ + ../../modules/core/includes/scisparse.h \ + ../../modules/core/includes/stack2.h \ + ../../modules/core/includes/stack3.h \ + ../../modules/core/includes/stack-optional.h \ + ../../modules/core/includes/sci_types.h src/c/CdfBase.h \ + ../../modules/output_stream/includes/Scierror.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h \ + ../../modules/output_stream/includes/do_error_number.h \ + ../../modules/core/includes/machine.h \ + ../../modules/localization/includes/localization.h \ + /usr/include/libintl.h /usr/include/locale.h \ + /usr/include/x86_64-linux-gnu/bits/locale.h + +/usr/include/stdc-predef.h: + +/usr/include/string.h: + +/usr/include/features.h: + +/usr/include/x86_64-linux-gnu/sys/cdefs.h: + +/usr/include/x86_64-linux-gnu/bits/wordsize.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs-64.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h: + +/usr/include/xlocale.h: + +/usr/include/x86_64-linux-gnu/bits/string.h: + +/usr/include/x86_64-linux-gnu/bits/string2.h: + +/usr/include/endian.h: + +/usr/include/x86_64-linux-gnu/bits/endian.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap.h: + +/usr/include/x86_64-linux-gnu/bits/types.h: + +/usr/include/x86_64-linux-gnu/bits/typesizes.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap-16.h: + +/usr/include/stdlib.h: + +/usr/include/x86_64-linux-gnu/bits/string3.h: + +includes/gw_statistics.h: + +includes/dynlib_statistics.h: + +../../modules/core/includes/stack-c.h: + +../../modules/core/includes/core_math.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h: + +/usr/include/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix1_lim.h: + +/usr/include/x86_64-linux-gnu/bits/local_lim.h: + +/usr/include/linux/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix2_lim.h: + +/usr/include/math.h: + +/usr/include/x86_64-linux-gnu/bits/math-vector.h: + +/usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h: + +/usr/include/x86_64-linux-gnu/bits/huge_val.h: + +/usr/include/x86_64-linux-gnu/bits/huge_valf.h: + +/usr/include/x86_64-linux-gnu/bits/huge_vall.h: + +/usr/include/x86_64-linux-gnu/bits/inf.h: + +/usr/include/x86_64-linux-gnu/bits/nan.h: + +/usr/include/x86_64-linux-gnu/bits/mathdef.h: + +/usr/include/x86_64-linux-gnu/bits/mathcalls.h: + +/usr/include/x86_64-linux-gnu/bits/mathinline.h: + +/usr/include/x86_64-linux-gnu/bits/waitflags.h: + +/usr/include/x86_64-linux-gnu/bits/waitstatus.h: + +/usr/include/x86_64-linux-gnu/sys/types.h: + +/usr/include/time.h: + +/usr/include/x86_64-linux-gnu/sys/select.h: + +/usr/include/x86_64-linux-gnu/bits/select.h: + +/usr/include/x86_64-linux-gnu/bits/sigset.h: + +/usr/include/x86_64-linux-gnu/bits/time.h: + +/usr/include/x86_64-linux-gnu/bits/select2.h: + +/usr/include/x86_64-linux-gnu/sys/sysmacros.h: + +/usr/include/x86_64-linux-gnu/bits/pthreadtypes.h: + +/usr/include/alloca.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-float.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib.h: + +../../modules/core/includes/stack-def.h: + +../../modules/core/includes/machine.h: + +../../modules/core/includes/stackTypeVariable.h: + +../../modules/core/includes/BOOL.h: + +../../modules/core/includes/doublecomplex.h: + +../../modules/core/includes/stack1.h: + +../../modules/core/includes/scisparse.h: + +../../modules/core/includes/stack2.h: + +../../modules/core/includes/stack3.h: + +../../modules/core/includes/stack-optional.h: + +../../modules/core/includes/sci_types.h: + +src/c/CdfBase.h: + +../../modules/output_stream/includes/Scierror.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h: + +../../modules/output_stream/includes/do_error_number.h: + +../../modules/core/includes/machine.h: + +../../modules/localization/includes/localization.h: + +/usr/include/libintl.h: + +/usr/include/locale.h: + +/usr/include/x86_64-linux-gnu/bits/locale.h: diff --git a/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfnbn.Plo b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfnbn.Plo new file mode 100755 index 000000000..0d96c225a --- /dev/null +++ b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfnbn.Plo @@ -0,0 +1,217 @@ +sci_gateway/c/libscistatistics_la-sci_cdfnbn.lo: \ + sci_gateway/c/sci_cdfnbn.c /usr/include/stdc-predef.h \ + /usr/include/string.h /usr/include/features.h \ + /usr/include/x86_64-linux-gnu/sys/cdefs.h \ + /usr/include/x86_64-linux-gnu/bits/wordsize.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs-64.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h /usr/include/xlocale.h \ + /usr/include/x86_64-linux-gnu/bits/string.h \ + /usr/include/x86_64-linux-gnu/bits/string2.h /usr/include/endian.h \ + /usr/include/x86_64-linux-gnu/bits/endian.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap.h \ + /usr/include/x86_64-linux-gnu/bits/types.h \ + /usr/include/x86_64-linux-gnu/bits/typesizes.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap-16.h /usr/include/stdlib.h \ + /usr/include/x86_64-linux-gnu/bits/string3.h includes/gw_statistics.h \ + includes/dynlib_statistics.h ../../modules/core/includes/stack-c.h \ + ../../modules/core/includes/core_math.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h \ + /usr/include/limits.h /usr/include/x86_64-linux-gnu/bits/posix1_lim.h \ + /usr/include/x86_64-linux-gnu/bits/local_lim.h \ + /usr/include/linux/limits.h \ + /usr/include/x86_64-linux-gnu/bits/posix2_lim.h /usr/include/math.h \ + /usr/include/x86_64-linux-gnu/bits/math-vector.h \ + /usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h \ + /usr/include/x86_64-linux-gnu/bits/huge_val.h \ + /usr/include/x86_64-linux-gnu/bits/huge_valf.h \ + /usr/include/x86_64-linux-gnu/bits/huge_vall.h \ + /usr/include/x86_64-linux-gnu/bits/inf.h \ + /usr/include/x86_64-linux-gnu/bits/nan.h \ + /usr/include/x86_64-linux-gnu/bits/mathdef.h \ + /usr/include/x86_64-linux-gnu/bits/mathcalls.h \ + /usr/include/x86_64-linux-gnu/bits/mathinline.h \ + /usr/include/x86_64-linux-gnu/bits/waitflags.h \ + /usr/include/x86_64-linux-gnu/bits/waitstatus.h \ + /usr/include/x86_64-linux-gnu/sys/types.h /usr/include/time.h \ + /usr/include/x86_64-linux-gnu/sys/select.h \ + /usr/include/x86_64-linux-gnu/bits/select.h \ + /usr/include/x86_64-linux-gnu/bits/sigset.h \ + /usr/include/x86_64-linux-gnu/bits/time.h \ + /usr/include/x86_64-linux-gnu/bits/select2.h \ + /usr/include/x86_64-linux-gnu/sys/sysmacros.h \ + /usr/include/x86_64-linux-gnu/bits/pthreadtypes.h /usr/include/alloca.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-float.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib.h \ + ../../modules/core/includes/stack-def.h \ + ../../modules/core/includes/machine.h \ + ../../modules/core/includes/stackTypeVariable.h \ + ../../modules/core/includes/BOOL.h \ + ../../modules/core/includes/doublecomplex.h \ + ../../modules/core/includes/stack1.h \ + ../../modules/core/includes/scisparse.h \ + ../../modules/core/includes/stack2.h \ + ../../modules/core/includes/stack3.h \ + ../../modules/core/includes/stack-optional.h \ + ../../modules/core/includes/sci_types.h src/c/CdfBase.h \ + ../../modules/output_stream/includes/Scierror.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h \ + ../../modules/output_stream/includes/do_error_number.h \ + ../../modules/core/includes/machine.h \ + ../../modules/localization/includes/localization.h \ + /usr/include/libintl.h /usr/include/locale.h \ + /usr/include/x86_64-linux-gnu/bits/locale.h + +/usr/include/stdc-predef.h: + +/usr/include/string.h: + +/usr/include/features.h: + +/usr/include/x86_64-linux-gnu/sys/cdefs.h: + +/usr/include/x86_64-linux-gnu/bits/wordsize.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs-64.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h: + +/usr/include/xlocale.h: + +/usr/include/x86_64-linux-gnu/bits/string.h: + +/usr/include/x86_64-linux-gnu/bits/string2.h: + +/usr/include/endian.h: + +/usr/include/x86_64-linux-gnu/bits/endian.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap.h: + +/usr/include/x86_64-linux-gnu/bits/types.h: + +/usr/include/x86_64-linux-gnu/bits/typesizes.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap-16.h: + +/usr/include/stdlib.h: + +/usr/include/x86_64-linux-gnu/bits/string3.h: + +includes/gw_statistics.h: + +includes/dynlib_statistics.h: + +../../modules/core/includes/stack-c.h: + +../../modules/core/includes/core_math.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h: + +/usr/include/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix1_lim.h: + +/usr/include/x86_64-linux-gnu/bits/local_lim.h: + +/usr/include/linux/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix2_lim.h: + +/usr/include/math.h: + +/usr/include/x86_64-linux-gnu/bits/math-vector.h: + +/usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h: + +/usr/include/x86_64-linux-gnu/bits/huge_val.h: + +/usr/include/x86_64-linux-gnu/bits/huge_valf.h: + +/usr/include/x86_64-linux-gnu/bits/huge_vall.h: + +/usr/include/x86_64-linux-gnu/bits/inf.h: + +/usr/include/x86_64-linux-gnu/bits/nan.h: + +/usr/include/x86_64-linux-gnu/bits/mathdef.h: + +/usr/include/x86_64-linux-gnu/bits/mathcalls.h: + +/usr/include/x86_64-linux-gnu/bits/mathinline.h: + +/usr/include/x86_64-linux-gnu/bits/waitflags.h: + +/usr/include/x86_64-linux-gnu/bits/waitstatus.h: + +/usr/include/x86_64-linux-gnu/sys/types.h: + +/usr/include/time.h: + +/usr/include/x86_64-linux-gnu/sys/select.h: + +/usr/include/x86_64-linux-gnu/bits/select.h: + +/usr/include/x86_64-linux-gnu/bits/sigset.h: + +/usr/include/x86_64-linux-gnu/bits/time.h: + +/usr/include/x86_64-linux-gnu/bits/select2.h: + +/usr/include/x86_64-linux-gnu/sys/sysmacros.h: + +/usr/include/x86_64-linux-gnu/bits/pthreadtypes.h: + +/usr/include/alloca.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-float.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib.h: + +../../modules/core/includes/stack-def.h: + +../../modules/core/includes/machine.h: + +../../modules/core/includes/stackTypeVariable.h: + +../../modules/core/includes/BOOL.h: + +../../modules/core/includes/doublecomplex.h: + +../../modules/core/includes/stack1.h: + +../../modules/core/includes/scisparse.h: + +../../modules/core/includes/stack2.h: + +../../modules/core/includes/stack3.h: + +../../modules/core/includes/stack-optional.h: + +../../modules/core/includes/sci_types.h: + +src/c/CdfBase.h: + +../../modules/output_stream/includes/Scierror.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h: + +../../modules/output_stream/includes/do_error_number.h: + +../../modules/core/includes/machine.h: + +../../modules/localization/includes/localization.h: + +/usr/include/libintl.h: + +/usr/include/locale.h: + +/usr/include/x86_64-linux-gnu/bits/locale.h: diff --git a/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfnor.Plo b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfnor.Plo new file mode 100755 index 000000000..4294936fd --- /dev/null +++ b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfnor.Plo @@ -0,0 +1,217 @@ +sci_gateway/c/libscistatistics_la-sci_cdfnor.lo: \ + sci_gateway/c/sci_cdfnor.c /usr/include/stdc-predef.h \ + /usr/include/string.h /usr/include/features.h \ + /usr/include/x86_64-linux-gnu/sys/cdefs.h \ + /usr/include/x86_64-linux-gnu/bits/wordsize.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs-64.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h /usr/include/xlocale.h \ + /usr/include/x86_64-linux-gnu/bits/string.h \ + /usr/include/x86_64-linux-gnu/bits/string2.h /usr/include/endian.h \ + /usr/include/x86_64-linux-gnu/bits/endian.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap.h \ + /usr/include/x86_64-linux-gnu/bits/types.h \ + /usr/include/x86_64-linux-gnu/bits/typesizes.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap-16.h /usr/include/stdlib.h \ + /usr/include/x86_64-linux-gnu/bits/string3.h includes/gw_statistics.h \ + includes/dynlib_statistics.h ../../modules/core/includes/stack-c.h \ + ../../modules/core/includes/core_math.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h \ + /usr/include/limits.h /usr/include/x86_64-linux-gnu/bits/posix1_lim.h \ + /usr/include/x86_64-linux-gnu/bits/local_lim.h \ + /usr/include/linux/limits.h \ + /usr/include/x86_64-linux-gnu/bits/posix2_lim.h /usr/include/math.h \ + /usr/include/x86_64-linux-gnu/bits/math-vector.h \ + /usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h \ + /usr/include/x86_64-linux-gnu/bits/huge_val.h \ + /usr/include/x86_64-linux-gnu/bits/huge_valf.h \ + /usr/include/x86_64-linux-gnu/bits/huge_vall.h \ + /usr/include/x86_64-linux-gnu/bits/inf.h \ + /usr/include/x86_64-linux-gnu/bits/nan.h \ + /usr/include/x86_64-linux-gnu/bits/mathdef.h \ + /usr/include/x86_64-linux-gnu/bits/mathcalls.h \ + /usr/include/x86_64-linux-gnu/bits/mathinline.h \ + /usr/include/x86_64-linux-gnu/bits/waitflags.h \ + /usr/include/x86_64-linux-gnu/bits/waitstatus.h \ + /usr/include/x86_64-linux-gnu/sys/types.h /usr/include/time.h \ + /usr/include/x86_64-linux-gnu/sys/select.h \ + /usr/include/x86_64-linux-gnu/bits/select.h \ + /usr/include/x86_64-linux-gnu/bits/sigset.h \ + /usr/include/x86_64-linux-gnu/bits/time.h \ + /usr/include/x86_64-linux-gnu/bits/select2.h \ + /usr/include/x86_64-linux-gnu/sys/sysmacros.h \ + /usr/include/x86_64-linux-gnu/bits/pthreadtypes.h /usr/include/alloca.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-float.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib.h \ + ../../modules/core/includes/stack-def.h \ + ../../modules/core/includes/machine.h \ + ../../modules/core/includes/stackTypeVariable.h \ + ../../modules/core/includes/BOOL.h \ + ../../modules/core/includes/doublecomplex.h \ + ../../modules/core/includes/stack1.h \ + ../../modules/core/includes/scisparse.h \ + ../../modules/core/includes/stack2.h \ + ../../modules/core/includes/stack3.h \ + ../../modules/core/includes/stack-optional.h \ + ../../modules/core/includes/sci_types.h src/c/CdfBase.h \ + ../../modules/output_stream/includes/Scierror.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h \ + ../../modules/output_stream/includes/do_error_number.h \ + ../../modules/core/includes/machine.h \ + ../../modules/localization/includes/localization.h \ + /usr/include/libintl.h /usr/include/locale.h \ + /usr/include/x86_64-linux-gnu/bits/locale.h + +/usr/include/stdc-predef.h: + +/usr/include/string.h: + +/usr/include/features.h: + +/usr/include/x86_64-linux-gnu/sys/cdefs.h: + +/usr/include/x86_64-linux-gnu/bits/wordsize.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs-64.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h: + +/usr/include/xlocale.h: + +/usr/include/x86_64-linux-gnu/bits/string.h: + +/usr/include/x86_64-linux-gnu/bits/string2.h: + +/usr/include/endian.h: + +/usr/include/x86_64-linux-gnu/bits/endian.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap.h: + +/usr/include/x86_64-linux-gnu/bits/types.h: + +/usr/include/x86_64-linux-gnu/bits/typesizes.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap-16.h: + +/usr/include/stdlib.h: + +/usr/include/x86_64-linux-gnu/bits/string3.h: + +includes/gw_statistics.h: + +includes/dynlib_statistics.h: + +../../modules/core/includes/stack-c.h: + +../../modules/core/includes/core_math.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h: + +/usr/include/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix1_lim.h: + +/usr/include/x86_64-linux-gnu/bits/local_lim.h: + +/usr/include/linux/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix2_lim.h: + +/usr/include/math.h: + +/usr/include/x86_64-linux-gnu/bits/math-vector.h: + +/usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h: + +/usr/include/x86_64-linux-gnu/bits/huge_val.h: + +/usr/include/x86_64-linux-gnu/bits/huge_valf.h: + +/usr/include/x86_64-linux-gnu/bits/huge_vall.h: + +/usr/include/x86_64-linux-gnu/bits/inf.h: + +/usr/include/x86_64-linux-gnu/bits/nan.h: + +/usr/include/x86_64-linux-gnu/bits/mathdef.h: + +/usr/include/x86_64-linux-gnu/bits/mathcalls.h: + +/usr/include/x86_64-linux-gnu/bits/mathinline.h: + +/usr/include/x86_64-linux-gnu/bits/waitflags.h: + +/usr/include/x86_64-linux-gnu/bits/waitstatus.h: + +/usr/include/x86_64-linux-gnu/sys/types.h: + +/usr/include/time.h: + +/usr/include/x86_64-linux-gnu/sys/select.h: + +/usr/include/x86_64-linux-gnu/bits/select.h: + +/usr/include/x86_64-linux-gnu/bits/sigset.h: + +/usr/include/x86_64-linux-gnu/bits/time.h: + +/usr/include/x86_64-linux-gnu/bits/select2.h: + +/usr/include/x86_64-linux-gnu/sys/sysmacros.h: + +/usr/include/x86_64-linux-gnu/bits/pthreadtypes.h: + +/usr/include/alloca.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-float.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib.h: + +../../modules/core/includes/stack-def.h: + +../../modules/core/includes/machine.h: + +../../modules/core/includes/stackTypeVariable.h: + +../../modules/core/includes/BOOL.h: + +../../modules/core/includes/doublecomplex.h: + +../../modules/core/includes/stack1.h: + +../../modules/core/includes/scisparse.h: + +../../modules/core/includes/stack2.h: + +../../modules/core/includes/stack3.h: + +../../modules/core/includes/stack-optional.h: + +../../modules/core/includes/sci_types.h: + +src/c/CdfBase.h: + +../../modules/output_stream/includes/Scierror.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h: + +../../modules/output_stream/includes/do_error_number.h: + +../../modules/core/includes/machine.h: + +../../modules/localization/includes/localization.h: + +/usr/include/libintl.h: + +/usr/include/locale.h: + +/usr/include/x86_64-linux-gnu/bits/locale.h: diff --git a/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfpoi.Plo b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfpoi.Plo new file mode 100755 index 000000000..96bb3be9c --- /dev/null +++ b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdfpoi.Plo @@ -0,0 +1,223 @@ +sci_gateway/c/libscistatistics_la-sci_cdfpoi.lo: \ + sci_gateway/c/sci_cdfpoi.c /usr/include/stdc-predef.h \ + /usr/include/string.h /usr/include/features.h \ + /usr/include/x86_64-linux-gnu/sys/cdefs.h \ + /usr/include/x86_64-linux-gnu/bits/wordsize.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs-64.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h /usr/include/xlocale.h \ + /usr/include/x86_64-linux-gnu/bits/string.h \ + /usr/include/x86_64-linux-gnu/bits/string2.h /usr/include/endian.h \ + /usr/include/x86_64-linux-gnu/bits/endian.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap.h \ + /usr/include/x86_64-linux-gnu/bits/types.h \ + /usr/include/x86_64-linux-gnu/bits/typesizes.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap-16.h /usr/include/stdlib.h \ + /usr/include/x86_64-linux-gnu/bits/string3.h includes/gw_statistics.h \ + includes/dynlib_statistics.h ../../modules/core/includes/stack-c.h \ + ../../modules/core/includes/core_math.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h \ + /usr/include/limits.h /usr/include/x86_64-linux-gnu/bits/posix1_lim.h \ + /usr/include/x86_64-linux-gnu/bits/local_lim.h \ + /usr/include/linux/limits.h \ + /usr/include/x86_64-linux-gnu/bits/posix2_lim.h /usr/include/math.h \ + /usr/include/x86_64-linux-gnu/bits/math-vector.h \ + /usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h \ + /usr/include/x86_64-linux-gnu/bits/huge_val.h \ + /usr/include/x86_64-linux-gnu/bits/huge_valf.h \ + /usr/include/x86_64-linux-gnu/bits/huge_vall.h \ + /usr/include/x86_64-linux-gnu/bits/inf.h \ + /usr/include/x86_64-linux-gnu/bits/nan.h \ + /usr/include/x86_64-linux-gnu/bits/mathdef.h \ + /usr/include/x86_64-linux-gnu/bits/mathcalls.h \ + /usr/include/x86_64-linux-gnu/bits/mathinline.h \ + /usr/include/x86_64-linux-gnu/bits/waitflags.h \ + /usr/include/x86_64-linux-gnu/bits/waitstatus.h \ + /usr/include/x86_64-linux-gnu/sys/types.h /usr/include/time.h \ + /usr/include/x86_64-linux-gnu/sys/select.h \ + /usr/include/x86_64-linux-gnu/bits/select.h \ + /usr/include/x86_64-linux-gnu/bits/sigset.h \ + /usr/include/x86_64-linux-gnu/bits/time.h \ + /usr/include/x86_64-linux-gnu/bits/select2.h \ + /usr/include/x86_64-linux-gnu/sys/sysmacros.h \ + /usr/include/x86_64-linux-gnu/bits/pthreadtypes.h /usr/include/alloca.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-float.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib.h \ + ../../modules/core/includes/stack-def.h \ + ../../modules/core/includes/machine.h \ + ../../modules/core/includes/stackTypeVariable.h \ + ../../modules/core/includes/BOOL.h \ + ../../modules/core/includes/doublecomplex.h \ + ../../modules/core/includes/stack1.h \ + ../../modules/core/includes/scisparse.h \ + ../../modules/core/includes/stack2.h \ + ../../modules/core/includes/stack3.h \ + ../../modules/core/includes/stack-optional.h \ + ../../modules/core/includes/sci_types.h src/c/CdfBase.h \ + ../../modules/output_stream/includes/Scierror.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h \ + ../../modules/output_stream/includes/do_error_number.h \ + ../../modules/core/includes/machine.h \ + ../../modules/localization/includes/localization.h \ + /usr/include/libintl.h /usr/include/locale.h \ + /usr/include/x86_64-linux-gnu/bits/locale.h \ + ../../modules/output_stream/includes/sciprint.h \ + ../../modules/core/includes/BOOL.h + +/usr/include/stdc-predef.h: + +/usr/include/string.h: + +/usr/include/features.h: + +/usr/include/x86_64-linux-gnu/sys/cdefs.h: + +/usr/include/x86_64-linux-gnu/bits/wordsize.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs-64.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h: + +/usr/include/xlocale.h: + +/usr/include/x86_64-linux-gnu/bits/string.h: + +/usr/include/x86_64-linux-gnu/bits/string2.h: + +/usr/include/endian.h: + +/usr/include/x86_64-linux-gnu/bits/endian.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap.h: + +/usr/include/x86_64-linux-gnu/bits/types.h: + +/usr/include/x86_64-linux-gnu/bits/typesizes.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap-16.h: + +/usr/include/stdlib.h: + +/usr/include/x86_64-linux-gnu/bits/string3.h: + +includes/gw_statistics.h: + +includes/dynlib_statistics.h: + +../../modules/core/includes/stack-c.h: + +../../modules/core/includes/core_math.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h: + +/usr/include/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix1_lim.h: + +/usr/include/x86_64-linux-gnu/bits/local_lim.h: + +/usr/include/linux/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix2_lim.h: + +/usr/include/math.h: + +/usr/include/x86_64-linux-gnu/bits/math-vector.h: + +/usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h: + +/usr/include/x86_64-linux-gnu/bits/huge_val.h: + +/usr/include/x86_64-linux-gnu/bits/huge_valf.h: + +/usr/include/x86_64-linux-gnu/bits/huge_vall.h: + +/usr/include/x86_64-linux-gnu/bits/inf.h: + +/usr/include/x86_64-linux-gnu/bits/nan.h: + +/usr/include/x86_64-linux-gnu/bits/mathdef.h: + +/usr/include/x86_64-linux-gnu/bits/mathcalls.h: + +/usr/include/x86_64-linux-gnu/bits/mathinline.h: + +/usr/include/x86_64-linux-gnu/bits/waitflags.h: + +/usr/include/x86_64-linux-gnu/bits/waitstatus.h: + +/usr/include/x86_64-linux-gnu/sys/types.h: + +/usr/include/time.h: + +/usr/include/x86_64-linux-gnu/sys/select.h: + +/usr/include/x86_64-linux-gnu/bits/select.h: + +/usr/include/x86_64-linux-gnu/bits/sigset.h: + +/usr/include/x86_64-linux-gnu/bits/time.h: + +/usr/include/x86_64-linux-gnu/bits/select2.h: + +/usr/include/x86_64-linux-gnu/sys/sysmacros.h: + +/usr/include/x86_64-linux-gnu/bits/pthreadtypes.h: + +/usr/include/alloca.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-float.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib.h: + +../../modules/core/includes/stack-def.h: + +../../modules/core/includes/machine.h: + +../../modules/core/includes/stackTypeVariable.h: + +../../modules/core/includes/BOOL.h: + +../../modules/core/includes/doublecomplex.h: + +../../modules/core/includes/stack1.h: + +../../modules/core/includes/scisparse.h: + +../../modules/core/includes/stack2.h: + +../../modules/core/includes/stack3.h: + +../../modules/core/includes/stack-optional.h: + +../../modules/core/includes/sci_types.h: + +src/c/CdfBase.h: + +../../modules/output_stream/includes/Scierror.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h: + +../../modules/output_stream/includes/do_error_number.h: + +../../modules/core/includes/machine.h: + +../../modules/localization/includes/localization.h: + +/usr/include/libintl.h: + +/usr/include/locale.h: + +/usr/include/x86_64-linux-gnu/bits/locale.h: + +../../modules/output_stream/includes/sciprint.h: + +../../modules/core/includes/BOOL.h: diff --git a/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdft.Plo b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdft.Plo new file mode 100755 index 000000000..bb8762725 --- /dev/null +++ b/modules/statistics/sci_gateway/c/.deps/libscistatistics_la-sci_cdft.Plo @@ -0,0 +1,222 @@ +sci_gateway/c/libscistatistics_la-sci_cdft.lo: sci_gateway/c/sci_cdft.c \ + /usr/include/stdc-predef.h /usr/include/string.h /usr/include/features.h \ + /usr/include/x86_64-linux-gnu/sys/cdefs.h \ + /usr/include/x86_64-linux-gnu/bits/wordsize.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs-64.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h /usr/include/xlocale.h \ + /usr/include/x86_64-linux-gnu/bits/string.h \ + /usr/include/x86_64-linux-gnu/bits/string2.h /usr/include/endian.h \ + /usr/include/x86_64-linux-gnu/bits/endian.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap.h \ + /usr/include/x86_64-linux-gnu/bits/types.h \ + /usr/include/x86_64-linux-gnu/bits/typesizes.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap-16.h /usr/include/stdlib.h \ + /usr/include/x86_64-linux-gnu/bits/string3.h includes/gw_statistics.h \ + includes/dynlib_statistics.h ../../modules/core/includes/stack-c.h \ + ../../modules/core/includes/core_math.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h \ + /usr/include/limits.h /usr/include/x86_64-linux-gnu/bits/posix1_lim.h \ + /usr/include/x86_64-linux-gnu/bits/local_lim.h \ + /usr/include/linux/limits.h \ + /usr/include/x86_64-linux-gnu/bits/posix2_lim.h /usr/include/math.h \ + /usr/include/x86_64-linux-gnu/bits/math-vector.h \ + /usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h \ + /usr/include/x86_64-linux-gnu/bits/huge_val.h \ + /usr/include/x86_64-linux-gnu/bits/huge_valf.h \ + /usr/include/x86_64-linux-gnu/bits/huge_vall.h \ + /usr/include/x86_64-linux-gnu/bits/inf.h \ + /usr/include/x86_64-linux-gnu/bits/nan.h \ + /usr/include/x86_64-linux-gnu/bits/mathdef.h \ + /usr/include/x86_64-linux-gnu/bits/mathcalls.h \ + /usr/include/x86_64-linux-gnu/bits/mathinline.h \ + /usr/include/x86_64-linux-gnu/bits/waitflags.h \ + /usr/include/x86_64-linux-gnu/bits/waitstatus.h \ + /usr/include/x86_64-linux-gnu/sys/types.h /usr/include/time.h \ + /usr/include/x86_64-linux-gnu/sys/select.h \ + /usr/include/x86_64-linux-gnu/bits/select.h \ + /usr/include/x86_64-linux-gnu/bits/sigset.h \ + /usr/include/x86_64-linux-gnu/bits/time.h \ + /usr/include/x86_64-linux-gnu/bits/select2.h \ + /usr/include/x86_64-linux-gnu/sys/sysmacros.h \ + /usr/include/x86_64-linux-gnu/bits/pthreadtypes.h /usr/include/alloca.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-float.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib.h \ + ../../modules/core/includes/stack-def.h \ + ../../modules/core/includes/machine.h \ + ../../modules/core/includes/stackTypeVariable.h \ + ../../modules/core/includes/BOOL.h \ + ../../modules/core/includes/doublecomplex.h \ + ../../modules/core/includes/stack1.h \ + ../../modules/core/includes/scisparse.h \ + ../../modules/core/includes/stack2.h \ + ../../modules/core/includes/stack3.h \ + ../../modules/core/includes/stack-optional.h \ + ../../modules/core/includes/sci_types.h src/c/CdfBase.h \ + ../../modules/output_stream/includes/Scierror.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h \ + ../../modules/output_stream/includes/do_error_number.h \ + ../../modules/core/includes/machine.h \ + ../../modules/localization/includes/localization.h \ + /usr/include/libintl.h /usr/include/locale.h \ + /usr/include/x86_64-linux-gnu/bits/locale.h \ + ../../modules/output_stream/includes/sciprint.h \ + ../../modules/core/includes/BOOL.h + +/usr/include/stdc-predef.h: + +/usr/include/string.h: + +/usr/include/features.h: + +/usr/include/x86_64-linux-gnu/sys/cdefs.h: + +/usr/include/x86_64-linux-gnu/bits/wordsize.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs-64.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h: + +/usr/include/xlocale.h: + +/usr/include/x86_64-linux-gnu/bits/string.h: + +/usr/include/x86_64-linux-gnu/bits/string2.h: + +/usr/include/endian.h: + +/usr/include/x86_64-linux-gnu/bits/endian.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap.h: + +/usr/include/x86_64-linux-gnu/bits/types.h: + +/usr/include/x86_64-linux-gnu/bits/typesizes.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap-16.h: + +/usr/include/stdlib.h: + +/usr/include/x86_64-linux-gnu/bits/string3.h: + +includes/gw_statistics.h: + +includes/dynlib_statistics.h: + +../../modules/core/includes/stack-c.h: + +../../modules/core/includes/core_math.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h: + +/usr/include/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix1_lim.h: + +/usr/include/x86_64-linux-gnu/bits/local_lim.h: + +/usr/include/linux/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix2_lim.h: + +/usr/include/math.h: + +/usr/include/x86_64-linux-gnu/bits/math-vector.h: + +/usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h: + +/usr/include/x86_64-linux-gnu/bits/huge_val.h: + +/usr/include/x86_64-linux-gnu/bits/huge_valf.h: + +/usr/include/x86_64-linux-gnu/bits/huge_vall.h: + +/usr/include/x86_64-linux-gnu/bits/inf.h: + +/usr/include/x86_64-linux-gnu/bits/nan.h: + +/usr/include/x86_64-linux-gnu/bits/mathdef.h: + +/usr/include/x86_64-linux-gnu/bits/mathcalls.h: + +/usr/include/x86_64-linux-gnu/bits/mathinline.h: + +/usr/include/x86_64-linux-gnu/bits/waitflags.h: + +/usr/include/x86_64-linux-gnu/bits/waitstatus.h: + +/usr/include/x86_64-linux-gnu/sys/types.h: + +/usr/include/time.h: + +/usr/include/x86_64-linux-gnu/sys/select.h: + +/usr/include/x86_64-linux-gnu/bits/select.h: + +/usr/include/x86_64-linux-gnu/bits/sigset.h: + +/usr/include/x86_64-linux-gnu/bits/time.h: + +/usr/include/x86_64-linux-gnu/bits/select2.h: + +/usr/include/x86_64-linux-gnu/sys/sysmacros.h: + +/usr/include/x86_64-linux-gnu/bits/pthreadtypes.h: + +/usr/include/alloca.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-float.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib.h: + +../../modules/core/includes/stack-def.h: + +../../modules/core/includes/machine.h: + +../../modules/core/includes/stackTypeVariable.h: + +../../modules/core/includes/BOOL.h: + +../../modules/core/includes/doublecomplex.h: + +../../modules/core/includes/stack1.h: + +../../modules/core/includes/scisparse.h: + +../../modules/core/includes/stack2.h: + +../../modules/core/includes/stack3.h: + +../../modules/core/includes/stack-optional.h: + +../../modules/core/includes/sci_types.h: + +src/c/CdfBase.h: + +../../modules/output_stream/includes/Scierror.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h: + +../../modules/output_stream/includes/do_error_number.h: + +../../modules/core/includes/machine.h: + +../../modules/localization/includes/localization.h: + +/usr/include/libintl.h: + +/usr/include/locale.h: + +/usr/include/x86_64-linux-gnu/bits/locale.h: + +../../modules/output_stream/includes/sciprint.h: + +../../modules/core/includes/BOOL.h: diff --git a/modules/statistics/sci_gateway/c/.dirstamp b/modules/statistics/sci_gateway/c/.dirstamp new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/statistics/sci_gateway/c/.dirstamp diff --git a/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-gw_statistics.o b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-gw_statistics.o Binary files differnew file mode 100755 index 000000000..c37f7fe1e --- /dev/null +++ b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-gw_statistics.o diff --git a/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfbet.o b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfbet.o Binary files differnew file mode 100755 index 000000000..c89b91502 --- /dev/null +++ b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfbet.o diff --git a/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfbin.o b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfbin.o Binary files differnew file mode 100755 index 000000000..e9fadda6f --- /dev/null +++ b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfbin.o diff --git a/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfchi.o b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfchi.o Binary files differnew file mode 100755 index 000000000..01834889a --- /dev/null +++ b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfchi.o diff --git a/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfchn.o b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfchn.o Binary files differnew file mode 100755 index 000000000..4f47d27ae --- /dev/null +++ b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfchn.o diff --git a/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdff.o b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdff.o Binary files differnew file mode 100755 index 000000000..cc07244bb --- /dev/null +++ b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdff.o diff --git a/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdffnc.o b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdffnc.o Binary files differnew file mode 100755 index 000000000..da5ccfb02 --- /dev/null +++ b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdffnc.o diff --git a/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfgam.o b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfgam.o Binary files differnew file mode 100755 index 000000000..445217d1b --- /dev/null +++ b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfgam.o diff --git a/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfnbn.o b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfnbn.o Binary files differnew file mode 100755 index 000000000..73137fe25 --- /dev/null +++ b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfnbn.o diff --git a/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfnor.o b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfnor.o Binary files differnew file mode 100755 index 000000000..d8804ef14 --- /dev/null +++ b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfnor.o diff --git a/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfpoi.o b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfpoi.o Binary files differnew file mode 100755 index 000000000..8b3fdd976 --- /dev/null +++ b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdfpoi.o diff --git a/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdft.o b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdft.o Binary files differnew file mode 100755 index 000000000..7623fa8d5 --- /dev/null +++ b/modules/statistics/sci_gateway/c/.libs/libscistatistics_la-sci_cdft.o diff --git a/modules/statistics/sci_gateway/c/gw_statistics.c b/modules/statistics/sci_gateway/c/gw_statistics.c new file mode 100755 index 000000000..b55e9b1a4 --- /dev/null +++ b/modules/statistics/sci_gateway/c/gw_statistics.c @@ -0,0 +1,47 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - Allan CORNET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ +/*--------------------------------------------------------------------------*/ +#include <string.h> +#include "gw_statistics.h" +#include "api_scilab.h" +#include "MALLOC.h" +#include "callFunctionFromGateway.h" +/*--------------------------------------------------------------------------*/ +static gw_generic_table Tab[] = +{ + {cdfbetI, "cdfbet"}, + {cdfbinI, "cdfbin"}, + {cdfchiI, "cdfchi"}, + {cdfchnI, "cdfchn"}, + {cdffI, "cdff"}, + {cdffncI, "cdffnc"}, + {cdfgamI, "cdfgam"}, + {cdfnbnI, "cdfnbn"}, + {cdfnorI, "cdfnor"}, + {cdfpoiI, "cdfpoi"}, + {cdftI, "cdft"} +}; +/*--------------------------------------------------------------------------*/ +int gw_statistics() +{ + Rhs = Max(0, Rhs); + + if (pvApiCtx == NULL) + { + pvApiCtx = (StrCtx*)MALLOC(sizeof(StrCtx)); + } + + pvApiCtx->pstName = (char*)Tab[Fin - 1].name; + callFunctionFromGateway(Tab, SIZE_CURRENT_GENERIC_TABLE(Tab)); + return 0; +} +/*--------------------------------------------------------------------------*/ diff --git a/modules/statistics/sci_gateway/c/libscistatistics_la-gw_statistics.lo b/modules/statistics/sci_gateway/c/libscistatistics_la-gw_statistics.lo new file mode 100755 index 000000000..d3d18fef1 --- /dev/null +++ b/modules/statistics/sci_gateway/c/libscistatistics_la-gw_statistics.lo @@ -0,0 +1,12 @@ +# sci_gateway/c/libscistatistics_la-gw_statistics.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/libscistatistics_la-gw_statistics.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfbet.lo b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfbet.lo new file mode 100755 index 000000000..d03ec19a0 --- /dev/null +++ b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfbet.lo @@ -0,0 +1,12 @@ +# sci_gateway/c/libscistatistics_la-sci_cdfbet.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/libscistatistics_la-sci_cdfbet.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfbin.lo b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfbin.lo new file mode 100755 index 000000000..2c038b5ad --- /dev/null +++ b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfbin.lo @@ -0,0 +1,12 @@ +# sci_gateway/c/libscistatistics_la-sci_cdfbin.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/libscistatistics_la-sci_cdfbin.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfchi.lo b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfchi.lo new file mode 100755 index 000000000..ebcc281be --- /dev/null +++ b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfchi.lo @@ -0,0 +1,12 @@ +# sci_gateway/c/libscistatistics_la-sci_cdfchi.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/libscistatistics_la-sci_cdfchi.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfchn.lo b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfchn.lo new file mode 100755 index 000000000..da5b4e9c4 --- /dev/null +++ b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfchn.lo @@ -0,0 +1,12 @@ +# sci_gateway/c/libscistatistics_la-sci_cdfchn.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/libscistatistics_la-sci_cdfchn.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdff.lo b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdff.lo new file mode 100755 index 000000000..ca1e1f74e --- /dev/null +++ b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdff.lo @@ -0,0 +1,12 @@ +# sci_gateway/c/libscistatistics_la-sci_cdff.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/libscistatistics_la-sci_cdff.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdffnc.lo b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdffnc.lo new file mode 100755 index 000000000..347562921 --- /dev/null +++ b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdffnc.lo @@ -0,0 +1,12 @@ +# sci_gateway/c/libscistatistics_la-sci_cdffnc.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/libscistatistics_la-sci_cdffnc.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfgam.lo b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfgam.lo new file mode 100755 index 000000000..909e1fce3 --- /dev/null +++ b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfgam.lo @@ -0,0 +1,12 @@ +# sci_gateway/c/libscistatistics_la-sci_cdfgam.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/libscistatistics_la-sci_cdfgam.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfnbn.lo b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfnbn.lo new file mode 100755 index 000000000..9247b29f3 --- /dev/null +++ b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfnbn.lo @@ -0,0 +1,12 @@ +# sci_gateway/c/libscistatistics_la-sci_cdfnbn.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/libscistatistics_la-sci_cdfnbn.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfnor.lo b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfnor.lo new file mode 100755 index 000000000..e677e5f74 --- /dev/null +++ b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfnor.lo @@ -0,0 +1,12 @@ +# sci_gateway/c/libscistatistics_la-sci_cdfnor.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/libscistatistics_la-sci_cdfnor.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfpoi.lo b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfpoi.lo new file mode 100755 index 000000000..efdc7132e --- /dev/null +++ b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdfpoi.lo @@ -0,0 +1,12 @@ +# sci_gateway/c/libscistatistics_la-sci_cdfpoi.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/libscistatistics_la-sci_cdfpoi.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdft.lo b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdft.lo new file mode 100755 index 000000000..3dd3294ca --- /dev/null +++ b/modules/statistics/sci_gateway/c/libscistatistics_la-sci_cdft.lo @@ -0,0 +1,12 @@ +# sci_gateway/c/libscistatistics_la-sci_cdft.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/libscistatistics_la-sci_cdft.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/sci_gateway/c/sci_cdfbet.c b/modules/statistics/sci_gateway/c/sci_cdfbet.c new file mode 100755 index 000000000..fd6976cf9 --- /dev/null +++ b/modules/statistics/sci_gateway/c/sci_cdfbet.c @@ -0,0 +1,105 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - + * Copyright (C) 2010 - DIGITEO - Allan CORNET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ + +/*--------------------------------------------------------------------------*/ +#include <string.h> +#include "gw_statistics.h" +#include "stack-c.h" +#include "CdfBase.h" +#include "Scierror.h" +#include "localization.h" +/*--------------------------------------------------------------------------*/ +extern int C2F(cdfbet)(int *, double *, double *, double *, double *, double *, double *, int *, double *); +/*--------------------------------------------------------------------------*/ +static void cdfbetErr(int status, double bound); +/*--------------------------------------------------------------------------*/ +/* +* hand written interface +* Interface for cdfbet +* +* SUBROUTINE CDFBET( WHICH, P, Q, X, Y, A, B, STATUS, BOUND ) +* Cumulative Distribution Function +* BETa Distribution +*/ +/*--------------------------------------------------------------------------*/ +int cdfbetI(char* fname, unsigned long l) +{ + int minrhs = 5, maxrhs = 6, minlhs = 1, maxlhs = 2, m1 = 0, n1 = 0, l1 = 0; + Nbvars = 0; + CheckRhs(minrhs, maxrhs); + CheckLhs(minlhs, maxlhs); + GetRhsVar(1, STRING_DATATYPE, &m1, &n1, &l1); + if ( strcmp(cstk(l1), "PQ") == 0) + { + static int callpos[6] = {4, 5, 0, 1, 2, 3}; + CdfBase(fname, 4, 2, callpos, "PQ", _("X,Y,A and B"), 1, C2F(cdfbet), + cdfbetErr); + } + else if ( strcmp(cstk(l1), "XY") == 0) + { + static int callpos[6] = {2, 3, 4, 5, 0, 1}; + CdfBase(fname, 4, 2, callpos, "XY", _("A,B,P and Q"), 2, C2F(cdfbet), + cdfbetErr); + } + else if ( strcmp(cstk(l1), "A") == 0) + { + static int callpos[6] = {1, 2, 3, 4, 5, 0}; + CdfBase(fname, 5, 1, callpos, "A", _("B,P,Q,X and Y"), 3, C2F(cdfbet), + cdfbetErr); + } + else if ( strcmp(cstk(l1), "B") == 0) + { + static int callpos[6] = {0, 1, 2, 3, 4, 5}; + CdfBase(fname, 5, 1, callpos, "B", _("P,Q,X,Y and A"), 4, C2F(cdfbet), + cdfbetErr); + } + else + { + Scierror(999, _("%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n"), fname, 1, "PQ", "XY", "A", "B"); + } + return 0; +} +/*--------------------------------------------------------------------------*/ +static void cdfbetErr(int status, double bound) +{ + static char *param[] = {"-PQXYAB"}; + switch ( status ) + { + case 1 : + { + cdfLowestSearchError(bound); + } + break; + case 2 : + { + cdfGreatestSearchError(bound); + } + break; + case 3 : + { + Scierror(999, " P + Q .ne. 1 \n"); + } + break ; + case 4 : + { + Scierror(999, " X + Y .ne. 1 \n"); + } + break; + default : + { + CdfDefaultError(param, status, bound); + } + break; + } +} +/*--------------------------------------------------------------------------*/ diff --git a/modules/statistics/sci_gateway/c/sci_cdfbin.c b/modules/statistics/sci_gateway/c/sci_cdfbin.c new file mode 100755 index 000000000..38dcf5be1 --- /dev/null +++ b/modules/statistics/sci_gateway/c/sci_cdfbin.c @@ -0,0 +1,109 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - + * Copyright (C) 2010 - DIGITEO - Allan CORNET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ + +/*--------------------------------------------------------------------------*/ +#include <string.h> +#include "gw_statistics.h" +#include "stack-c.h" +#include "CdfBase.h" +#include "Scierror.h" +#include "localization.h" +/*--------------------------------------------------------------------------*/ +extern int C2F(cdfbin)(int *, double *, double *, double *, double *, double *, double *, int *, double *); +/*--------------------------------------------------------------------------*/ +static void cdfbinErr(int status, double bound); +/*--------------------------------------------------------------------------*/ +/* +* hand written interface +* Interface for cdfbin +* +* SUBROUTINE CDFBIN ( WHICH, P, Q, S, XN, PR, OMPR, STATUS, BOUND ) +* Cumulative Distribution Function +* BINomial distribution +*/ +/*--------------------------------------------------------------------------*/ +int cdfbinI(char* fname, unsigned long l) +{ + int m1 = 0, n1 = 0, l1 = 0; + Nbvars = 0; + CheckRhs(5, 6); + CheckLhs(1, 2); + GetRhsVar(1, STRING_DATATYPE, &m1, &n1, &l1); + if ( strcmp(cstk(l1), "PQ") == 0) + { + static int callpos[6] = {4, 5, 0, 1, 2, 3}; + CdfBase(fname, 4, 2, callpos, "PQ", _("S,Xn,Pr and Ompr"), 1, C2F(cdfbin), + cdfbinErr); + } + else if ( strcmp(cstk(l1), "S") == 0) + { + static int callpos[6] = {3, 4, 5, 0, 1, 2}; + CdfBase(fname, 5, 1, callpos, "S", _("Xn,Pr,Ompr,P and Q"), 2, C2F(cdfbin), + cdfbinErr); + } + else if ( strcmp(cstk(l1), "Xn") == 0) + { + static int callpos[6] = {2, 3, 4, 5, 0, 1}; + CdfBase(fname, 5, 1, callpos, "Xn", _("Pr,OMPr,P,Q and S"), 3, C2F(cdfbin), + cdfbinErr); + } + else if ( strcmp(cstk(l1), "PrOmpr") == 0) + { + static int callpos[6] = {0, 1, 2, 3, 4, 5}; + CdfBase(fname, 4, 2, callpos, "PrOmpr", _("P,Q,S and Xn"), 4, C2F(cdfbin), + cdfbinErr); + } + else + { + Scierror(999, _("%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n"), fname, 1, "PQ", "S", "Xn", "PrOmpr"); + } + return 0; +} +/*--------------------------------------------------------------------------*/ +static void cdfbinErr(int status, double bound) +{ + static char *param[7] = {"Which", "P", "Q", "Pr", "Ompr", "S", "Xn"}; + switch ( status ) + { + case 1 : + { + cdfLowestSearchError(bound); + } + break; + + case 2 : + { + cdfGreatestSearchError(bound); + } + break; + + case 3 : + { + Scierror(999, " P + Q .ne. 1 \n"); + } + break; + + case 4 : + { + Scierror(999, " Pr + Ompr .ne. 1 \n"); + } + break; + + default : + { + CdfDefaultError(param, status, bound); + } + break; + } +} +/*--------------------------------------------------------------------------*/ diff --git a/modules/statistics/sci_gateway/c/sci_cdfchi.c b/modules/statistics/sci_gateway/c/sci_cdfchi.c new file mode 100755 index 000000000..cb84b7aad --- /dev/null +++ b/modules/statistics/sci_gateway/c/sci_cdfchi.c @@ -0,0 +1,114 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - + * Copyright (C) 2010 - DIGITEO - Allan CORNET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ +/*--------------------------------------------------------------------------*/ +#include <string.h> +#include "gw_statistics.h" +#include "stack-c.h" +#include "CdfBase.h" +#include "Scierror.h" +#include "localization.h" +#include "sciprint.h" +/*--------------------------------------------------------------------------*/ +extern int C2F(cdfchi)(int *, double *, double *, double *, double *, int *, double *); +/*--------------------------------------------------------------------------*/ +static void cdfchiErr(int status, double bound); +/*--------------------------------------------------------------------------*/ +/* +* hand written interface +* Interface for cdfchi +* +* SUBROUTINE CDFCHI( WHICH, P, Q, X, DF, STATUS, BOUND ) +* Cumulative Distribution Function +* CHI-Square distribution +*/ +/*--------------------------------------------------------------------------*/ +int cdfchiI(char* fname, unsigned long l) +{ + int m1 = 0, n1 = 0, l1 = 0, mDf = 0, nDf = 0, lDf = 0, i = 0; + double *Df = NULL; + Nbvars = 0; + CheckRhs(3, 4); + CheckLhs(1, 2); + GetRhsVar(1, STRING_DATATYPE, &m1, &n1, &l1); + if ( strcmp(cstk(l1), "PQ") == 0) + { + static int callpos[4] = {2, 3, 0, 1}; + GetRhsVar(3, MATRIX_OF_DOUBLE_DATATYPE, &mDf, &nDf, &lDf); + Df = stk(lDf); + for (i = 0; i < mDf * nDf; ++i) + if ((int) Df[i] - Df[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 3); + } + CdfBase(fname, 2, 2, callpos, "PQ", _("X and Df"), 1, C2F(cdfchi), + cdfchiErr); + } + else if ( strcmp(cstk(l1), "X") == 0) + { + static int callpos[4] = {1, 2, 3, 0}; + GetRhsVar(2, MATRIX_OF_DOUBLE_DATATYPE, &mDf, &nDf, &lDf); + Df = stk(lDf); + for (i = 0; i < mDf * nDf; ++i) + if ((int) Df[i] - Df[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 2); + } + CdfBase(fname, 3, 1, callpos, "X", _("Df, P and Q"), 2, C2F(cdfchi), + cdfchiErr); + } + else if ( strcmp(cstk(l1), "Df") == 0) + { + static int callpos[4] = {0, 1, 2, 3}; + CdfBase(fname, 3, 1, callpos, "Df", _("P,Q and X"), 3, C2F(cdfchi), + cdfchiErr); + } + else + { + Scierror(999, _("%s: Wrong value for input argument #%d: '%s', '%s' or '%s' expected.\n"), fname, 1, "PQ", "X", "Df"); + } + return 0; +} +/*--------------------------------------------------------------------------*/ +static void cdfchiErr(int status, double bound) +{ + static char *param[7] = {"X", "P", "Q", "X", "Df"}; + switch ( status ) + { + case 1 : + { + cdfLowestSearchError(bound); + } + break; + case 2 : + { + cdfGreatestSearchError(bound); + } + break; + case 3 : + { + Scierror(999, " P + Q .ne. 1 \n"); + } + break ; + case 10 : + { + Scierror(999, _("cdfchi: Error in cumgam\n")); + } + break ; + default : + { + CdfDefaultError(param, status, bound); + } + break; + } +} +/*--------------------------------------------------------------------------*/ diff --git a/modules/statistics/sci_gateway/c/sci_cdfchn.c b/modules/statistics/sci_gateway/c/sci_cdfchn.c new file mode 100755 index 000000000..7be74384f --- /dev/null +++ b/modules/statistics/sci_gateway/c/sci_cdfchn.c @@ -0,0 +1,119 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - + * Copyright (C) 2010 - DIGITEO - Allan CORNET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ +/*--------------------------------------------------------------------------*/ +#include <string.h> +#include "gw_statistics.h" +#include "stack-c.h" +#include "CdfBase.h" +#include "Scierror.h" +#include "localization.h" +#include "sciprint.h" +/*--------------------------------------------------------------------------*/ +extern int C2F(cdfchn)(int *, double *, double *, double*, double *, double *, int *, double *); +/*--------------------------------------------------------------------------*/ +static void cdfchnErr(int status, double bound); +/*--------------------------------------------------------------------------*/ +/* +* hand written interface +* Interface for cdfchn +* Non-central Chi-Square +*/ +int cdfchnI(char* fname, unsigned long l) +{ + int m1 = 0, n1 = 0, l1 = 0, mDf = 0, nDf = 0, lDf = 0, i = 0; + double *Df = NULL; + Nbvars = 0; + CheckRhs(4, 5); + CheckLhs(1, 2); + GetRhsVar(1, STRING_DATATYPE, &m1, &n1, &l1); + if ( strcmp(cstk(l1), "PQ") == 0) + { + static int callpos[5] = {3, 4, 0, 1, 2}; + GetRhsVar(3, MATRIX_OF_DOUBLE_DATATYPE, &mDf, &nDf, &lDf); + Df = stk(lDf); + for (i = 0; i < mDf * nDf; ++i) + if ((int) Df[i] - Df[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 3); + } + CdfBase(fname, 3, 2, callpos, "PQ", _("X,Df and Pnonc"), 1, C2F(cdfchn), + cdfchnErr); + } + else if ( strcmp(cstk(l1), "X") == 0) + { + static int callpos[5] = {2, 3, 4, 0, 1}; + GetRhsVar(2, MATRIX_OF_DOUBLE_DATATYPE, &mDf, &nDf, &lDf); + Df = stk(lDf); + for (i = 0; i < mDf * nDf; ++i) + if ((int) Df[i] - Df[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 2); + } + CdfBase(fname, 4, 1, callpos, "X", _("Df,Pnonc,P and Q"), 2, C2F(cdfchn), + cdfchnErr); + } + else if ( strcmp(cstk(l1), "Df") == 0) + { + static int callpos[5] = {1, 2, 3, 4, 0}; + CdfBase(fname, 4, 1, callpos, "Df", _("Pnonc,P,Q and X"), 3, C2F(cdfchn), + cdfchnErr); + } + else if ( strcmp(cstk(l1), "Pnonc") == 0) + { + static int callpos[5] = {0, 1, 2, 3, 4}; + GetRhsVar(5, MATRIX_OF_DOUBLE_DATATYPE, &mDf, &nDf, &lDf); + Df = stk(lDf); + for (i = 0; i < mDf * nDf; ++i) + if ((int) Df[i] - Df[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 5); + } + CdfBase(fname, 4, 1, callpos, "Pnonc", _("P,Q,X and Df"), 4, C2F(cdfchn), + cdfchnErr); + } + else + { + Scierror(999, _("%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n"), fname, 1, "PQ", "X", "Df", "Pnonc"); + + } + return 0; +} +/*--------------------------------------------------------------------------*/ +static void cdfchnErr(int status, double bound) +{ + static char *param[7] = {"X", "P", "Q", "F", "Dfn", "Dfd"}; + switch ( status ) + { + case 1 : + { + cdfLowestSearchError(bound); + } + break; + case 2 : + { + cdfGreatestSearchError(bound); + } + break; + case 3 : + { + Scierror(999, " P + Q .ne. 1 \n"); + } + break; + default : + { + CdfDefaultError(param, status, bound); + } + break; + } +} +/*--------------------------------------------------------------------------*/ diff --git a/modules/statistics/sci_gateway/c/sci_cdff.c b/modules/statistics/sci_gateway/c/sci_cdff.c new file mode 100755 index 000000000..eb8bcd6e3 --- /dev/null +++ b/modules/statistics/sci_gateway/c/sci_cdff.c @@ -0,0 +1,141 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - + * Copyright (C) 2010 - DIGITEO - Allan CORNET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ +/*--------------------------------------------------------------------------*/ +#include <string.h> +#include "gw_statistics.h" +#include "stack-c.h" +#include "CdfBase.h" +#include "Scierror.h" +#include "localization.h" +#include "sciprint.h" +/*--------------------------------------------------------------------------*/ +extern int C2F(cdff)(int *, double *, double *, double*, double *, double *, int *, double *); +/*--------------------------------------------------------------------------*/ +static void cdffErr(int status, double bound); +/*--------------------------------------------------------------------------*/ +/* +* hand written interface +* Interface for cdff +* Cumulative Distribution Function +* F distribution +*/ +/*--------------------------------------------------------------------------*/ +int cdffI(char* fname, unsigned long l) +{ + int m1 = 0, n1 = 0, l1 = 0, mDfd = 0, nDfd = 0, lDfd = 0, mDfn = 0, nDfn = 0, lDfn = 0, i = 0; + double *Dfd = NULL, *Dfn = NULL; + Nbvars = 0; + CheckRhs(4, 5); + CheckLhs(1, 2); + GetRhsVar(1, STRING_DATATYPE, &m1, &n1, &l1); + if ( strcmp(cstk(l1), "PQ") == 0) + { + static int callpos[5] = {3, 4, 0, 1, 2}; + GetRhsVar(3, MATRIX_OF_DOUBLE_DATATYPE, &mDfn, &nDfn, &lDfn); + Dfn = stk(lDfn); + for (i = 0; i < mDfn * nDfn; ++i) + if ((int) Dfn[i] - Dfn[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 3); + } + GetRhsVar(4, MATRIX_OF_DOUBLE_DATATYPE, &mDfd, &nDfd, &lDfd); + Dfd = stk(lDfd); + for (i = 0; i < mDfd * nDfd; ++i) + if ((int) Dfd[i] - Dfd[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 4); + } + CdfBase(fname, 3, 2, callpos, "PQ", _("F,Dfn and Dfd"), 1, C2F(cdff), + cdffErr); + } + else if ( strcmp(cstk(l1), "F") == 0) + { + static int callpos[5] = {2, 3, 4, 0, 1}; + GetRhsVar(2, MATRIX_OF_DOUBLE_DATATYPE, &mDfn, &nDfn, &lDfn); + Dfn = stk(lDfn); + for (i = 0; i < mDfn * nDfn; ++i) + if ((int) Dfn[i] - Dfn[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 2); + } + GetRhsVar(3, MATRIX_OF_DOUBLE_DATATYPE, &mDfd, &nDfd, &lDfd); + Dfd = stk(lDfd); + for (i = 0; i < mDfd * nDfd; ++i) + if ((int) Dfd[i] - Dfd[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 3); + } + CdfBase(fname, 4, 1, callpos, "F", _("Dfn,Dfd,P and Q"), 2, C2F(cdff), + cdffErr); + } + else if ( strcmp(cstk(l1), "Dfn") == 0) + { + static int callpos[5] = {1, 2, 3, 4, 0}; + GetRhsVar(2, MATRIX_OF_DOUBLE_DATATYPE, &mDfd, &nDfd, &lDfd); + Dfd = stk(lDfd); + for (i = 0; i < mDfd * nDfd; ++i) + if ((int) Dfd[i] - Dfd[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 2); + } + CdfBase(fname, 4, 1, callpos, "Dfn", _("Dfd,P,Q and F"), 3, C2F(cdff), + cdffErr); + } + else if ( strcmp(cstk(l1), "Dfd") == 0) + { + static int callpos[5] = {0, 1, 2, 3, 4}; + GetRhsVar(5, MATRIX_OF_DOUBLE_DATATYPE, &mDfn, &nDfn, &lDfn); + Dfn = stk(lDfn); + for (i = 0; i < mDfn * nDfn; ++i) + if ((int) Dfn[i] - Dfn[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 5); + } + CdfBase(fname, 4, 1, callpos, "Dfd", _("P,Q,F and Dfn"), 4, C2F(cdff), + cdffErr); + } + else + { + Scierror(999, _("%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n"), fname, 1, "PQ", "F", "Dfn", "Dfd"); + } + return 0; +} +/*--------------------------------------------------------------------------*/ +static void cdffErr(int status, double bound) +{ + static char *param[7] = {"X", "P", "Q", "F", "Dfn", "Dfd"}; + switch ( status ) + { + case 1 : + { + cdfLowestSearchError(bound); + } + break; + case 2 : + { + cdfGreatestSearchError(bound); + } + break; + case 3 : + { + Scierror(999, " P + Q .ne. 1 \n"); + } + break ; + default : + { + CdfDefaultError(param, status, bound); + } + break; + } +} +/*--------------------------------------------------------------------------*/ diff --git a/modules/statistics/sci_gateway/c/sci_cdffnc.c b/modules/statistics/sci_gateway/c/sci_cdffnc.c new file mode 100755 index 000000000..1e138f811 --- /dev/null +++ b/modules/statistics/sci_gateway/c/sci_cdffnc.c @@ -0,0 +1,162 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - + * Copyright (C) 2010 - DIGITEO - Allan CORNET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ +/*--------------------------------------------------------------------------*/ +#include <string.h> +#include "gw_statistics.h" +#include "stack-c.h" +#include "CdfBase.h" +#include "Scierror.h" +#include "localization.h" +#include "sciprint.h" +/*--------------------------------------------------------------------------*/ +extern int C2F(cdffnc)(int *, double *, double *, double *, double *, double *, double *, int *, double *); +/*--------------------------------------------------------------------------*/ +static void cdffncErr(int status, double bound); +/*--------------------------------------------------------------------------*/ +/* +* hand written interface +* Interface for cdffnc +* Cumulative Distribution Function +* Non-central F distribution +*/ +/*--------------------------------------------------------------------------*/ +int cdffncI(char* fname, unsigned long l) +{ + int m1 = 0, n1 = 0, l1 = 0, mDfd = 0, nDfd = 0, lDfd = 0, mDfn = 0, nDfn = 0, lDfn = 0, i = 0; + double *Dfd = NULL, *Dfn = NULL; + Nbvars = 0; + CheckRhs(5, 6); + CheckLhs(1, 2); + GetRhsVar(1, STRING_DATATYPE, &m1, &n1, &l1); + if ( strcmp(cstk(l1), "PQ") == 0) + { + static int callpos[6] = {4, 5, 0, 1, 2, 3}; + GetRhsVar(3, MATRIX_OF_DOUBLE_DATATYPE, &mDfn, &nDfn, &lDfn); + Dfn = stk(lDfn); + for (i = 0; i < mDfn * nDfn; ++i) + if ((int) Dfn[i] - Dfn[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 3); + } + GetRhsVar(4, MATRIX_OF_DOUBLE_DATATYPE, &mDfd, &nDfd, &lDfd); + Dfd = stk(lDfd); + for (i = 0; i < mDfd * nDfd; ++i) + if ((int) Dfd[i] - Dfd[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 4); + } + CdfBase(fname, 4, 2, callpos, "PQ", _("F,Dfn,Dfd and Pnonc"), 1, C2F(cdffnc), + cdffncErr); + } + else if ( strcmp(cstk(l1), "F") == 0) + { + static int callpos[6] = {3, 4, 5, 0, 1, 2}; + GetRhsVar(2, MATRIX_OF_DOUBLE_DATATYPE, &mDfn, &nDfn, &lDfn); + Dfn = stk(lDfn); + for (i = 0; i < mDfn * nDfn; ++i) + if ((int) Dfn[i] - Dfn[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 2); + } + GetRhsVar(3, MATRIX_OF_DOUBLE_DATATYPE, &mDfd, &nDfd, &lDfd); + Dfd = stk(lDfd); + for (i = 0; i < mDfd * nDfd; ++i) + if ((int) Dfd[i] - Dfd[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 3); + } + CdfBase(fname, 5, 1, callpos, "F", _("Dfn,Dfd,Pnonc,P and Q"), 2, C2F(cdffnc), + cdffncErr); + } + else if ( strcmp(cstk(l1), "Dfn") == 0) + { + static int callpos[6] = {2, 3, 4, 5, 0, 1}; + GetRhsVar(2, MATRIX_OF_DOUBLE_DATATYPE, &mDfd, &nDfd, &lDfd); + Dfd = stk(lDfd); + for (i = 0; i < mDfd * nDfd; ++i) + if ((int) Dfd[i] - Dfd[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 2); + } + CdfBase(fname, 5, 1, callpos, "Dfn", _("Dfd,Pnonc,P,Q and F"), 3, C2F(cdffnc), + cdffncErr); + } + else if ( strcmp(cstk(l1), "Dfd") == 0) + { + static int callpos[6] = {1, 2, 3, 4, 5, 0}; + GetRhsVar(6, MATRIX_OF_DOUBLE_DATATYPE, &mDfn, &nDfn, &lDfn); + Dfn = stk(lDfn); + for (i = 0; i < mDfn * nDfn; ++i) + if ((int) Dfn[i] - Dfn[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 6); + } + CdfBase(fname, 5, 1, callpos, "Dfd", _("Pnonc,P,Q,F and Dfn"), 4, C2F(cdffnc), + cdffncErr); + } + else if ( strcmp(cstk(l1), "Pnonc") == 0) + { + static int callpos[6] = {0, 1, 2, 3, 4, 5}; + GetRhsVar(5, MATRIX_OF_DOUBLE_DATATYPE, &mDfn, &nDfn, &lDfn); + Dfn = stk(lDfn); + for (i = 0; i < mDfn * nDfn; ++i) + if ((int) Dfn[i] - Dfn[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 5); + } + GetRhsVar(6, MATRIX_OF_DOUBLE_DATATYPE, &mDfd, &nDfd, &lDfd); + Dfd = stk(lDfd); + for (i = 0; i < mDfd * nDfd; ++i) + if ((int) Dfd[i] - Dfd[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 6); + } + CdfBase(fname, 5, 1, callpos, "Pnonc", _("P,Q,F,Dfn and Dfd"), 5, C2F(cdffnc), + cdffncErr); + } + else + { + Scierror(999, _("%s: Wrong value for input argument #%d: '%s', '%s', '%s', '%s' or '%s' expected.\n"), fname, 1, "PQ", "F", "Dfn", "Dfd", "Pnonc"); + + } + return 0; +} +/*--------------------------------------------------------------------------*/ +static void cdffncErr(int status, double bound) +{ + static char *param[7] = {"X", "P", "Q", "F", "Dfn", "Dfd", "Pnonc"}; + switch ( status ) + { + case 1 : + { + cdfLowestSearchError(bound); + } + break; + case 2 : + { + cdfGreatestSearchError(bound); + } + break; + case 3 : + { + Scierror(999, " P + Q .ne. 1 \n"); + } + break; + default : + { + CdfDefaultError(param, status, bound); + } + break; + } +} +/*--------------------------------------------------------------------------*/ diff --git a/modules/statistics/sci_gateway/c/sci_cdfgam.c b/modules/statistics/sci_gateway/c/sci_cdfgam.c new file mode 100755 index 000000000..615c07926 --- /dev/null +++ b/modules/statistics/sci_gateway/c/sci_cdfgam.c @@ -0,0 +1,104 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - + * Copyright (C) 2010 - DIGITEO - Allan CORNET + * Copyright (C) 2010 - DIGITEO - Michael Baudin + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ + +/*--------------------------------------------------------------------------*/ +#include <string.h> +#include "gw_statistics.h" +#include "stack-c.h" +#include "CdfBase.h" +#include "Scierror.h" +#include "localization.h" +/*--------------------------------------------------------------------------*/ +extern int C2F(cdfgam)(int *, double *, double *, double*, double *, double *, int *, double *); +/*--------------------------------------------------------------------------*/ +static void cdfgamErr(int status, double bound); +/*--------------------------------------------------------------------------*/ +/* +* hand written interface +* Interface for cdfgam +* Cumulative Distribution Function +* F distribution +*/ +/*--------------------------------------------------------------------------*/ +int cdfgamI(char* fname, unsigned long l) +{ + int m1 = 0, n1 = 0, l1 = 0; + Nbvars = 0; + CheckRhs(4, 5); + CheckLhs(1, 2); + GetRhsVar(1, STRING_DATATYPE, &m1, &n1, &l1); + if ( strcmp(cstk(l1), "PQ") == 0) + { + static int callpos[5] = {3, 4, 0, 1, 2}; + CdfBase(fname, 3, 2, callpos, "PQ", _("X,Shape and Rate"), 1, C2F(cdfgam), + cdfgamErr); + } + else if ( strcmp(cstk(l1), "X") == 0) + { + static int callpos[5] = {2, 3, 4, 0, 1}; + CdfBase(fname, 4, 1, callpos, "X", _("Shape,Rate,P and Q"), 2, C2F(cdfgam), + cdfgamErr); + } + else if ( strcmp(cstk(l1), "Shape") == 0) + { + static int callpos[5] = {1, 2, 3, 4, 0}; + CdfBase(fname, 4, 1, callpos, "Shape", _("Rate,P,Q and X"), 3, C2F(cdfgam), + cdfgamErr); + } + else if ( strcmp(cstk(l1), "Rate") == 0) + { + static int callpos[5] = {0, 1, 2, 3, 4}; + CdfBase(fname, 4, 1, callpos, "Rate", _("P,Q,X and Shape"), 4, C2F(cdfgam), + cdfgamErr); + } + else + { + Scierror(999, _("%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n"), fname, 1, "PQ", "X", "Shape", "Rate"); + } + return 0; +} +/*--------------------------------------------------------------------------*/ +static void cdfgamErr(int status, double bound) +{ + static char *param[7] = {"X", "P", "Q", "X", "Shape", "Rate"}; + switch ( status ) + { + case 1 : + { + cdfLowestSearchError(bound); + } + break; + case 2 : + { + cdfGreatestSearchError(bound); + } + break; + case 3 : + { + Scierror(999, " P + Q .ne. 1 \n"); + } + break; + case 10 : + { + Scierror(999, " cannot compute the answer \n"); + } + break; + default : + { + CdfDefaultError(param, status, bound); + } + break; + } +} +/*--------------------------------------------------------------------------*/ diff --git a/modules/statistics/sci_gateway/c/sci_cdfnbn.c b/modules/statistics/sci_gateway/c/sci_cdfnbn.c new file mode 100755 index 000000000..dc1af6b74 --- /dev/null +++ b/modules/statistics/sci_gateway/c/sci_cdfnbn.c @@ -0,0 +1,107 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - + * Copyright (C) 2010 - DIGITEO - Allan CORNET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ + +/*--------------------------------------------------------------------------*/ +#include <string.h> +#include "gw_statistics.h" +#include "stack-c.h" +#include "CdfBase.h" +#include "Scierror.h" +#include "localization.h" +/*--------------------------------------------------------------------------*/ +extern int C2F(cdfnbn)(int *, double *, double *, double *, double *, double *, double *, int *, double *); +/*--------------------------------------------------------------------------*/ +static void cdfnbnErr(int status, double bound); +/*--------------------------------------------------------------------------*/ +/* +* hand written interface +* Interface for cdfnbn +* SUBROUTINE cdfnbn(which,p,q,s,xn,pr,ompr,status,bound) +* Cumulative Distribution Function +* Negative BiNomial distribution +*/ +/*--------------------------------------------------------------------------*/ +int cdfnbnI(char* fname, unsigned long l) +{ + int m1 = 0, n1 = 0, l1 = 0; + Nbvars = 0; + CheckRhs(5, 6); + CheckLhs(1, 2); + GetRhsVar(1, STRING_DATATYPE, &m1, &n1, &l1); + if ( strcmp(cstk(l1), "PQ") == 0) + { + static int callpos[6] = {4, 5, 0, 1, 2, 3}; + CdfBase(fname, 4, 2, callpos, "PQ", _("S,XN,PR and OMPR"), 1, C2F(cdfnbn), + cdfnbnErr); + } + else if ( strcmp(cstk(l1), "S") == 0) + { + static int callpos[6] = {3, 4, 5, 0, 1, 2}; + CdfBase(fname, 5, 1, callpos, "S", _("XN,PR,OMPR,P and Q"), 2, C2F(cdfnbn), + cdfnbnErr); + } + else if ( strcmp(cstk(l1), "Xn") == 0) + { + static int callpos[6] = {2, 3, 4, 5, 0, 1}; + CdfBase(fname, 5, 1, callpos, "Xn", _("PR,OMPR,P,Q and S"), 3, C2F(cdfnbn), + cdfnbnErr); + return 0; + } + else if ( strcmp(cstk(l1), "PrOmpr") == 0) + { + static int callpos[6] = {0, 1, 2, 3, 4, 5}; + CdfBase(fname, 4, 2, callpos, "PrOmpr", _("P,Q,S and Xn"), 4, C2F(cdfnbn), + cdfnbnErr); + } + else + { + Scierror(999, _("%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n"), fname, 1, "PQ", "S", "Xn", "PrOmpr"); + + } + return 0; +} +/*--------------------------------------------------------------------------*/ +static void cdfnbnErr(int status, double bound) +{ + static char *param[1] = {"-PQXYAB"}; + + switch ( status ) + { + case 1 : + { + cdfLowestSearchError(bound); + } + break; + case 2 : + { + cdfGreatestSearchError(bound); + } + break; + case 3 : + { + Scierror(999, " P + Q .ne. 1 \n"); + } + break; + case 4 : + { + Scierror(999, " Pr + Ompr .ne. 1 \n"); + } + break; + default : + { + CdfDefaultError(param, status, bound); + } + break; + } +} +/*--------------------------------------------------------------------------*/ diff --git a/modules/statistics/sci_gateway/c/sci_cdfnor.c b/modules/statistics/sci_gateway/c/sci_cdfnor.c new file mode 100755 index 000000000..02877800b --- /dev/null +++ b/modules/statistics/sci_gateway/c/sci_cdfnor.c @@ -0,0 +1,103 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - + * Copyright (C) 2010 - DIGITEO - Allan CORNET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ + +/*--------------------------------------------------------------------------*/ +#include <string.h> +#include "gw_statistics.h" +#include "stack-c.h" +#include "CdfBase.h" +#include "Scierror.h" +#include "localization.h" +/*--------------------------------------------------------------------------*/ +extern int C2F(cdfnor)(int *, double *, double *, double*, double *, double *, int *, double *); +/*--------------------------------------------------------------------------*/ +static void cdfnorErr(int status, double bound); +/*--------------------------------------------------------------------------*/ +/* +* hand written interface +* Interface for cdfnor +* Cumulative Distribution Function +* NORmal distribution +*/ +/*--------------------------------------------------------------------------*/ +int cdfnorI(char* fname, unsigned long l) +{ + int m1 = 0, n1 = 0, l1 = 0; + Nbvars = 0; + CheckRhs(4, 5); + CheckLhs(1, 2); + GetRhsVar(1, STRING_DATATYPE, &m1, &n1, &l1); + if ( strcmp(cstk(l1), "PQ") == 0) + { + static int callpos[5] = {3, 4, 0, 1, 2}; + CdfBase(fname, 3, 2, callpos, "PQ", _("X,Mean and Std"), 1, C2F(cdfnor), + cdfnorErr); + } + else if ( strcmp(cstk(l1), "X") == 0) + { + static int callpos[5] = {2, 3, 4, 0, 1}; + CdfBase(fname, 4, 1, callpos, "X", _("Mean,Std,P and Q"), 2, C2F(cdfnor), + cdfnorErr); + } + else if ( strcmp(cstk(l1), "Mean") == 0) + { + static int callpos[5] = {1, 2, 3, 4, 0}; + CdfBase(fname, 4, 1, callpos, "Mean", _("Std,P,Q and X"), 3, C2F(cdfnor), + cdfnorErr); + } + else if ( strcmp(cstk(l1), "Std") == 0) + { + static int callpos[5] = {0, 1, 2, 3, 4}; + CdfBase(fname, 4, 1, callpos, "Std", _("P,Q,X and Mean"), 4, C2F(cdfnor), + cdfnorErr); + } + else + { + Scierror(999, _("%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n"), fname, 1, "PQ", "X", "Mean", "Std"); + } + return 0; +} +/*--------------------------------------------------------------------------*/ +static void cdfnorErr(int status, double bound) +{ + static char *param[7] = {"X", "P", "Q", "X", "Mean", "Std"}; + switch ( status ) + { + case 1 : + { + cdfLowestSearchError(bound); + } + break; + case 2 : + { + cdfGreatestSearchError(bound); + } + break; + case 3 : + { + Scierror(999, " P + Q .ne. 1\n"); + } + break; + case 4 : + { + Scierror(999, _(" Std must not be zero\n")); + } + break; + default : + { + CdfDefaultError(param, status, bound); + } + break; + } +} +/*--------------------------------------------------------------------------*/ diff --git a/modules/statistics/sci_gateway/c/sci_cdfpoi.c b/modules/statistics/sci_gateway/c/sci_cdfpoi.c new file mode 100755 index 000000000..7be1b214a --- /dev/null +++ b/modules/statistics/sci_gateway/c/sci_cdfpoi.c @@ -0,0 +1,112 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - + * Copyright (C) 2010 - DIGITEO - Allan CORNET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ + +/*--------------------------------------------------------------------------*/ +#include <string.h> +#include "gw_statistics.h" +#include "stack-c.h" +#include "CdfBase.h" +#include "Scierror.h" +#include "localization.h" +#include "sciprint.h" +/*--------------------------------------------------------------------------*/ +extern int C2F(cdfpoi)(int *, double *, double *, double *, double *, int *, double *); +/*--------------------------------------------------------------------------*/ +static void cdfpoiErr(int status, double bound); +/*--------------------------------------------------------------------------*/ +/* +* hand written interface +* Interface for cdfpoi +* POIsson distribution +*/ +/*--------------------------------------------------------------------------*/ +int cdfpoiI(char* fname, unsigned long l) +{ + int m1 = 0, n1 = 0, l1 = 0, mS = 0, nS = 0, lS = 0, i = 0; + double *S = NULL; + Nbvars = 0; + CheckRhs(3, 4); + CheckLhs(1, 2); + GetRhsVar(1, STRING_DATATYPE, &m1, &n1, &l1); + if ( strcmp(cstk(l1), "PQ") == 0) + { + static int callpos[4] = {2, 3, 0, 1}; + GetRhsVar(2, MATRIX_OF_DOUBLE_DATATYPE, &mS, &nS, &lS); + S = stk(lS); + for (i = 0; i < mS * nS; ++i) + if (S[i] == S[i] && S[i] + 1 != S[i]) // NaN and Inf will be handled in the program + if ((int) S[i] - S[i] != 0) + { + Scierror(999, _("%s: Wrong value for input argument #%d: A matrix of integer values expected.\n"), fname, 2); + return 0; + } + CdfBase(fname, 2, 2, callpos, "PQ", _("S and Xlam"), 1, C2F(cdfpoi), + cdfpoiErr); + } + else if ( strcmp(cstk(l1), "S") == 0) + { + static int callpos[4] = {1, 2, 3, 0}; + CdfBase(fname, 3, 1, callpos, "S", _("Xlam,P and Q"), 2, C2F(cdfpoi), + cdfpoiErr); + } + else if ( strcmp(cstk(l1), "Xlam") == 0) + { + static int callpos[4] = {0, 1, 2, 3}; + GetRhsVar(4, MATRIX_OF_DOUBLE_DATATYPE, &mS, &nS, &lS); + S = stk(lS); + for (i = 0; i < mS * nS; ++i) + if (S[i] == S[i] && S[i] + 1 != S[i]) // NaN and Inf will be handled in the program + if ((int) S[i] - S[i] != 0) + { + Scierror(999, _("%s: Wrong value for input argument #%d: A matrix of integer values expected.\n"), fname, 4); + return 0; + } + CdfBase(fname, 3, 1, callpos, "Xlam", _("P,Q and S"), 3, C2F(cdfpoi), + cdfpoiErr); + } + else + { + Scierror(999, _("%s: Wrong value for input argument #%d: '%s', '%s' or '%s' expected.\n"), fname, 1, "PQ", "S", "Xlam"); + } + return 0; +} +/*--------------------------------------------------------------------------*/ +static void cdfpoiErr(int status, double bound) +{ + static char *param[7] = {"X", "P", "Q", "S", "Xlam"}; + switch ( status ) + { + case 1 : + { + cdfLowestSearchError(bound); + } + break; + case 2 : + { + cdfGreatestSearchError(bound); + } + break; + case 3 : + { + Scierror(999, " P + Q .ne. 1 \n"); + } + break; + default : + { + CdfDefaultError(param, status, bound); + } + break; + } +} +/*--------------------------------------------------------------------------*/ + diff --git a/modules/statistics/sci_gateway/c/sci_cdft.c b/modules/statistics/sci_gateway/c/sci_cdft.c new file mode 100755 index 000000000..25701cbb9 --- /dev/null +++ b/modules/statistics/sci_gateway/c/sci_cdft.c @@ -0,0 +1,106 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - + * Copyright (C) 2010 - DIGITEO - Allan CORNET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ +/*--------------------------------------------------------------------------*/ +#include <string.h> +#include "gw_statistics.h" +#include "stack-c.h" +#include "CdfBase.h" +#include "Scierror.h" +#include "localization.h" +#include "sciprint.h" +/*--------------------------------------------------------------------------*/ +extern int C2F(cdft)(int *, double *, double *, double *, double *, int *, double *); +/*--------------------------------------------------------------------------*/ +static void cdftErr(int status, double bound); +/*--------------------------------------------------------------------------*/ +/* +* hand written interface +* Interface for cdft +* T distribution +*/ +/*--------------------------------------------------------------------------*/ +int cdftI(char* fname, unsigned long l) +{ + int m1 = 0, n1 = 0, l1 = 0, mDf = 0, nDf = 0, lDf = 0, i = 0; + double *Df = NULL; + Nbvars = 0; + CheckRhs(3, 4); + CheckLhs(1, 2); + GetRhsVar(1, STRING_DATATYPE, &m1, &n1, &l1); + if ( strcmp(cstk(l1), "PQ") == 0) + { + static int callpos[4] = {2, 3, 0, 1}; + GetRhsVar(3, MATRIX_OF_DOUBLE_DATATYPE, &mDf, &nDf, &lDf); + Df = stk(lDf); + for (i = 0; i < mDf * nDf; ++i) + if ((int) Df[i] - Df[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 3); + } + CdfBase(fname, 2, 2, callpos, "PQ", _("T and Df"), 1, C2F(cdft), + cdftErr); + } + else if ( strcmp(cstk(l1), "T") == 0) + { + static int callpos[4] = {1, 2, 3, 0}; + GetRhsVar(2, MATRIX_OF_DOUBLE_DATATYPE, &mDf, &nDf, &lDf); + Df = stk(lDf); + for (i = 0; i < mDf * nDf; ++i) + if ((int) Df[i] - Df[i] != 0) + { + sciprint(_("%s: Warning: using non integer values for argument #%d may lead to incorrect results.\n"), fname, 2); + } + CdfBase(fname, 3, 1, callpos, "T", _("Df, P and Q"), 2, C2F(cdft), + cdftErr); + } + else if ( strcmp(cstk(l1), "Df") == 0) + { + static int callpos[4] = {0, 1, 2, 3}; + CdfBase(fname, 3, 1, callpos, "Df", _("P,Q and T"), 3, C2F(cdft), + cdftErr); + } + else + { + Scierror(999, _("%s: Wrong value for input argument #%d: '%s', '%s' or '%s' expected.\n"), fname, 1, "PQ", "T", "Df"); + } + return 0; +} +/*--------------------------------------------------------------------------*/ +static void cdftErr(int status, double bound) +{ + static char *param[7] = {"X", "P", "Q", "T", "Df"}; + switch ( status ) + { + case 1 : + { + cdfLowestSearchError(bound); + } + break; + case 2 : + { + cdfGreatestSearchError(bound); + } + break; + case 3 : + { + Scierror(999, " P + Q .ne. 1 \n"); + } + break; + default : + { + CdfDefaultError(param, status, bound); + } + break; + } +} +/*--------------------------------------------------------------------------*/ diff --git a/modules/statistics/sci_gateway/statistics_gateway.xml b/modules/statistics/sci_gateway/statistics_gateway.xml new file mode 100755 index 000000000..3280ee3e2 --- /dev/null +++ b/modules/statistics/sci_gateway/statistics_gateway.xml @@ -0,0 +1,49 @@ +<?xml version="1.0" encoding="UTF-8" standalone="no"?> + +<!DOCTYPE GATEWAY SYSTEM "../../functions/xml/gateway.dtd"> +<GATEWAY name="statistics"> + <!-- =================== --> + <!-- + Scilab + Interface description. In this file, we define the list of the function which + will be available into Scilab and the link to the "native" function. + + gatewayId is the position in the hashtable 'Interfaces' defined in the + file SCI/modules/core/src/c/callinterf.h + + primitiveId is the position in the hashtable '<module>Table Tab[]' defined + in the file modules/<module>/sci_gateway/c/gw_<module>.c + + primitiveName is the name of the Scilab function + + =================== + Don't touch if you do not know what you are doing +--> + + <!-- + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2007 - INRIA Allan CORNET + * Copyright (C) 2007 - INRIA Sylvestre LEDRU + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + --> + + <!-- =================== --> + + <PRIMITIVE gatewayId="37" primitiveId="1" primitiveName="cdfbet" /> + <PRIMITIVE gatewayId="37" primitiveId="2" primitiveName="cdfbin" /> + <PRIMITIVE gatewayId="37" primitiveId="3" primitiveName="cdfchi" /> + <PRIMITIVE gatewayId="37" primitiveId="4" primitiveName="cdfchn" /> + <PRIMITIVE gatewayId="37" primitiveId="5" primitiveName="cdff" /> + <PRIMITIVE gatewayId="37" primitiveId="6" primitiveName="cdffnc" /> + <PRIMITIVE gatewayId="37" primitiveId="7" primitiveName="cdfgam" /> + <PRIMITIVE gatewayId="37" primitiveId="8" primitiveName="cdfnbn" /> + <PRIMITIVE gatewayId="37" primitiveId="9" primitiveName="cdfnor" /> + <PRIMITIVE gatewayId="37" primitiveId="10" primitiveName="cdfpoi" /> + <PRIMITIVE gatewayId="37" primitiveId="11" primitiveName="cdft" /> +</GATEWAY> diff --git a/modules/statistics/src/c/.deps/.dirstamp b/modules/statistics/src/c/.deps/.dirstamp new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/statistics/src/c/.deps/.dirstamp diff --git a/modules/statistics/src/c/.deps/libscistatistics_algo_la-CdfBase.Plo b/modules/statistics/src/c/.deps/libscistatistics_algo_la-CdfBase.Plo new file mode 100755 index 000000000..f810594ae --- /dev/null +++ b/modules/statistics/src/c/.deps/libscistatistics_algo_la-CdfBase.Plo @@ -0,0 +1,212 @@ +src/c/libscistatistics_algo_la-CdfBase.lo: src/c/CdfBase.c \ + /usr/include/stdc-predef.h /usr/include/string.h /usr/include/features.h \ + /usr/include/x86_64-linux-gnu/sys/cdefs.h \ + /usr/include/x86_64-linux-gnu/bits/wordsize.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs-64.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h /usr/include/xlocale.h \ + /usr/include/x86_64-linux-gnu/bits/string.h \ + /usr/include/x86_64-linux-gnu/bits/string2.h /usr/include/endian.h \ + /usr/include/x86_64-linux-gnu/bits/endian.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap.h \ + /usr/include/x86_64-linux-gnu/bits/types.h \ + /usr/include/x86_64-linux-gnu/bits/typesizes.h \ + /usr/include/x86_64-linux-gnu/bits/byteswap-16.h /usr/include/stdlib.h \ + /usr/include/x86_64-linux-gnu/bits/string3.h \ + ../../modules/core/includes/stack-c.h \ + ../../modules/core/includes/core_math.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h \ + /usr/include/limits.h /usr/include/x86_64-linux-gnu/bits/posix1_lim.h \ + /usr/include/x86_64-linux-gnu/bits/local_lim.h \ + /usr/include/linux/limits.h \ + /usr/include/x86_64-linux-gnu/bits/posix2_lim.h /usr/include/math.h \ + /usr/include/x86_64-linux-gnu/bits/math-vector.h \ + /usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h \ + /usr/include/x86_64-linux-gnu/bits/huge_val.h \ + /usr/include/x86_64-linux-gnu/bits/huge_valf.h \ + /usr/include/x86_64-linux-gnu/bits/huge_vall.h \ + /usr/include/x86_64-linux-gnu/bits/inf.h \ + /usr/include/x86_64-linux-gnu/bits/nan.h \ + /usr/include/x86_64-linux-gnu/bits/mathdef.h \ + /usr/include/x86_64-linux-gnu/bits/mathcalls.h \ + /usr/include/x86_64-linux-gnu/bits/mathinline.h \ + /usr/include/x86_64-linux-gnu/bits/waitflags.h \ + /usr/include/x86_64-linux-gnu/bits/waitstatus.h \ + /usr/include/x86_64-linux-gnu/sys/types.h /usr/include/time.h \ + /usr/include/x86_64-linux-gnu/sys/select.h \ + /usr/include/x86_64-linux-gnu/bits/select.h \ + /usr/include/x86_64-linux-gnu/bits/sigset.h \ + /usr/include/x86_64-linux-gnu/bits/time.h \ + /usr/include/x86_64-linux-gnu/bits/select2.h \ + /usr/include/x86_64-linux-gnu/sys/sysmacros.h \ + /usr/include/x86_64-linux-gnu/bits/pthreadtypes.h /usr/include/alloca.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib-float.h \ + /usr/include/x86_64-linux-gnu/bits/stdlib.h \ + ../../modules/core/includes/stack-def.h \ + ../../modules/core/includes/machine.h \ + ../../modules/core/includes/stackTypeVariable.h \ + ../../modules/core/includes/BOOL.h \ + ../../modules/core/includes/doublecomplex.h \ + ../../modules/core/includes/stack1.h \ + ../../modules/core/includes/scisparse.h \ + ../../modules/core/includes/stack2.h \ + ../../modules/core/includes/stack3.h \ + ../../modules/core/includes/stack-optional.h \ + ../../modules/core/includes/sci_types.h src/c/CdfBase.h \ + ../../modules/output_stream/includes/Scierror.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h \ + ../../modules/output_stream/includes/do_error_number.h \ + ../../modules/core/includes/machine.h \ + ../../modules/localization/includes/localization.h \ + /usr/include/libintl.h /usr/include/locale.h \ + /usr/include/x86_64-linux-gnu/bits/locale.h + +/usr/include/stdc-predef.h: + +/usr/include/string.h: + +/usr/include/features.h: + +/usr/include/x86_64-linux-gnu/sys/cdefs.h: + +/usr/include/x86_64-linux-gnu/bits/wordsize.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs-64.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stddef.h: + +/usr/include/xlocale.h: + +/usr/include/x86_64-linux-gnu/bits/string.h: + +/usr/include/x86_64-linux-gnu/bits/string2.h: + +/usr/include/endian.h: + +/usr/include/x86_64-linux-gnu/bits/endian.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap.h: + +/usr/include/x86_64-linux-gnu/bits/types.h: + +/usr/include/x86_64-linux-gnu/bits/typesizes.h: + +/usr/include/x86_64-linux-gnu/bits/byteswap-16.h: + +/usr/include/stdlib.h: + +/usr/include/x86_64-linux-gnu/bits/string3.h: + +../../modules/core/includes/stack-c.h: + +../../modules/core/includes/core_math.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h: + +/usr/include/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix1_lim.h: + +/usr/include/x86_64-linux-gnu/bits/local_lim.h: + +/usr/include/linux/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix2_lim.h: + +/usr/include/math.h: + +/usr/include/x86_64-linux-gnu/bits/math-vector.h: + +/usr/include/x86_64-linux-gnu/bits/libm-simd-decl-stubs.h: + +/usr/include/x86_64-linux-gnu/bits/huge_val.h: + +/usr/include/x86_64-linux-gnu/bits/huge_valf.h: + +/usr/include/x86_64-linux-gnu/bits/huge_vall.h: + +/usr/include/x86_64-linux-gnu/bits/inf.h: + +/usr/include/x86_64-linux-gnu/bits/nan.h: + +/usr/include/x86_64-linux-gnu/bits/mathdef.h: + +/usr/include/x86_64-linux-gnu/bits/mathcalls.h: + +/usr/include/x86_64-linux-gnu/bits/mathinline.h: + +/usr/include/x86_64-linux-gnu/bits/waitflags.h: + +/usr/include/x86_64-linux-gnu/bits/waitstatus.h: + +/usr/include/x86_64-linux-gnu/sys/types.h: + +/usr/include/time.h: + +/usr/include/x86_64-linux-gnu/sys/select.h: + +/usr/include/x86_64-linux-gnu/bits/select.h: + +/usr/include/x86_64-linux-gnu/bits/sigset.h: + +/usr/include/x86_64-linux-gnu/bits/time.h: + +/usr/include/x86_64-linux-gnu/bits/select2.h: + +/usr/include/x86_64-linux-gnu/sys/sysmacros.h: + +/usr/include/x86_64-linux-gnu/bits/pthreadtypes.h: + +/usr/include/alloca.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-bsearch.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib-float.h: + +/usr/include/x86_64-linux-gnu/bits/stdlib.h: + +../../modules/core/includes/stack-def.h: + +../../modules/core/includes/machine.h: + +../../modules/core/includes/stackTypeVariable.h: + +../../modules/core/includes/BOOL.h: + +../../modules/core/includes/doublecomplex.h: + +../../modules/core/includes/stack1.h: + +../../modules/core/includes/scisparse.h: + +../../modules/core/includes/stack2.h: + +../../modules/core/includes/stack3.h: + +../../modules/core/includes/stack-optional.h: + +../../modules/core/includes/sci_types.h: + +src/c/CdfBase.h: + +../../modules/output_stream/includes/Scierror.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/stdarg.h: + +../../modules/output_stream/includes/do_error_number.h: + +../../modules/core/includes/machine.h: + +../../modules/localization/includes/localization.h: + +/usr/include/libintl.h: + +/usr/include/locale.h: + +/usr/include/x86_64-linux-gnu/bits/locale.h: diff --git a/modules/statistics/src/c/.deps/libscistatistics_algo_la-ipmpar1.Plo b/modules/statistics/src/c/.deps/libscistatistics_algo_la-ipmpar1.Plo new file mode 100755 index 000000000..89b22f8cb --- /dev/null +++ b/modules/statistics/src/c/.deps/libscistatistics_algo_la-ipmpar1.Plo @@ -0,0 +1,52 @@ +src/c/libscistatistics_algo_la-ipmpar1.lo: src/c/ipmpar1.c \ + /usr/include/stdc-predef.h \ + ../../modules/core/includes/../../sparse/includes/spConfig.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h \ + /usr/include/limits.h /usr/include/features.h \ + /usr/include/x86_64-linux-gnu/sys/cdefs.h \ + /usr/include/x86_64-linux-gnu/bits/wordsize.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs.h \ + /usr/include/x86_64-linux-gnu/gnu/stubs-64.h \ + /usr/include/x86_64-linux-gnu/bits/posix1_lim.h \ + /usr/include/x86_64-linux-gnu/bits/local_lim.h \ + /usr/include/linux/limits.h \ + /usr/include/x86_64-linux-gnu/bits/posix2_lim.h \ + /usr/lib/gcc/x86_64-linux-gnu/5/include/float.h includes/ipmpar1.h \ + includes/dynlib_statistics.h ../../modules/core/includes/machine.h + +/usr/include/stdc-predef.h: + +../../modules/core/includes/../../sparse/includes/spConfig.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/limits.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include-fixed/syslimits.h: + +/usr/include/limits.h: + +/usr/include/features.h: + +/usr/include/x86_64-linux-gnu/sys/cdefs.h: + +/usr/include/x86_64-linux-gnu/bits/wordsize.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs.h: + +/usr/include/x86_64-linux-gnu/gnu/stubs-64.h: + +/usr/include/x86_64-linux-gnu/bits/posix1_lim.h: + +/usr/include/x86_64-linux-gnu/bits/local_lim.h: + +/usr/include/linux/limits.h: + +/usr/include/x86_64-linux-gnu/bits/posix2_lim.h: + +/usr/lib/gcc/x86_64-linux-gnu/5/include/float.h: + +includes/ipmpar1.h: + +includes/dynlib_statistics.h: + +../../modules/core/includes/machine.h: diff --git a/modules/statistics/src/c/.dirstamp b/modules/statistics/src/c/.dirstamp new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/statistics/src/c/.dirstamp diff --git a/modules/statistics/src/c/.libs/libscistatistics_algo_la-CdfBase.o b/modules/statistics/src/c/.libs/libscistatistics_algo_la-CdfBase.o Binary files differnew file mode 100755 index 000000000..452687681 --- /dev/null +++ b/modules/statistics/src/c/.libs/libscistatistics_algo_la-CdfBase.o diff --git a/modules/statistics/src/c/.libs/libscistatistics_algo_la-ipmpar1.o b/modules/statistics/src/c/.libs/libscistatistics_algo_la-ipmpar1.o Binary files differnew file mode 100755 index 000000000..1e5df5415 --- /dev/null +++ b/modules/statistics/src/c/.libs/libscistatistics_algo_la-ipmpar1.o diff --git a/modules/statistics/src/c/CdfBase.c b/modules/statistics/src/c/CdfBase.c new file mode 100755 index 000000000..383a71b74 --- /dev/null +++ b/modules/statistics/src/c/CdfBase.c @@ -0,0 +1,144 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ + +/*--------------------------------------------------------------------------*/ +#include <string.h> +#include "stack-c.h" +#include "CdfBase.h" +#include "Scierror.h" +#include "localization.h" +/*--------------------------------------------------------------------------*/ +int CdfBase(char *fname, int inarg, int oarg, int *callpos, char *option, char *errnames, int which, int (*fonc)(), void (*foncErr)() ) +{ + int i = 0, status = 0, m[6], n[6], l[6]; + double bound = 0; + if ( Rhs != inarg + 1 ) + { + Scierror(999, _("%s: Wrong number of input arguments with the '%s' option: %d expected.\n"), fname, option, inarg + 1); + return 1; + } + for ( i = 0 ; i < inarg ; i++ ) + { + GetRhsVar(i + 2, MATRIX_OF_DOUBLE_DATATYPE, &m[i], &n[i], &l[i]); + } + for ( i = 1 ; i < inarg ; i++) + { + if ( m[i] != m[i - 1] || n[i] != n[i - 1]) + { + Scierror(999, _("%s and %s must have same size.\n"), fname, errnames); + return 1; + } + } + for ( i = 0 ; i < oarg ; i++) + { + CreateVar(i + 2 + inarg, MATRIX_OF_DOUBLE_DATATYPE, &m[0], &n[0], &l[i + inarg]); + } + + switch ( inarg + oarg) + { + case 5: + for ( i = 0 ; i < m[0]*n[0]; i++) + { + (*fonc)(&which, stk(l[callpos[0]] + i), stk(l[callpos[1]] + i), + stk(l[callpos[2]] + i), stk(l[callpos[3]] + i), + stk(l[callpos[4]] + i), + &status, &bound); + + if (status != 0) + { + (*foncErr)(status, bound); + return 1; + } + } + break; + + case 6: + for ( i = 0 ; i < m[0]*n[0]; i++) + { + (*fonc)(&which, stk(l[callpos[0]] + i), stk(l[callpos[1]] + i), + stk(l[callpos[2]] + i), stk(l[callpos[3]] + i), + stk(l[callpos[4]] + i), stk(l[callpos[5]] + i), + &status, &bound); + + if (status != 0) + { + /** Scierror(999,"i=%d\n",i); **/ + (*foncErr)(status, bound); + return 1; + } + } + break; + case 4: + for ( i = 0 ; i < m[0]*n[0]; i++) + { + (*fonc)(&which, stk(l[callpos[0]] + i), stk(l[callpos[1]] + i), + stk(l[callpos[2]] + i), stk(l[callpos[3]] + i), + &status, &bound); + + if (status != 0) + { + (*foncErr)(status, bound); + return 1; + } + } + break; + } + + for ( i = 0 ; i < oarg ; i++) + { + LhsVar(i + 1) = i + 2 + inarg; + } + + PutLhsVar(); + return 0; +} +/*--------------------------------------------------------------------------*/ +void CdfDefaultError(char** param, int status, double bound) +{ + if (bound <= ZERO_FOR_CDF) + { + Scierror(999, "Input argument %c is out of range.\nBound exceeded: %f\n", param[-status - 1], 0); + } + else if (bound >= INFINITY_FOR_CDF) + { + Scierror(999, "Input argument %c is out of range.\nBound exceeded: %s\n", param[-status - 1], "%inf"); + } + else + { + Scierror(999, "Input argument %c is out of range.\nBound exceeded: %f\n", param[-status - 1], bound); + } +} +/*--------------------------------------------------------------------------*/ +void cdfLowestSearchError(double bound) +{ + if (bound == ZERO_FOR_CDF) + { + Scierror(999, _("Answer appears to be lower than lowest search bound %g\n"), ZERO_FOR_CDF); + } + else + { + Scierror(999, _("Answer appears to be lower than lowest search bound %f\n"), bound); + } +} +/*--------------------------------------------------------------------------*/ +void cdfGreatestSearchError(double bound) +{ + if (bound >= INFINITY_FOR_CDF) + { + Scierror(999, _("Answer appears to be higher than greatest search bound %s\n"), "%inf"); + } + else + { + Scierror(999, _("Answer appears to be higher than greatest search bound %f\n"), bound); + } +} +/*--------------------------------------------------------------------------*/ diff --git a/modules/statistics/src/c/CdfBase.h b/modules/statistics/src/c/CdfBase.h new file mode 100755 index 000000000..dfb8211e4 --- /dev/null +++ b/modules/statistics/src/c/CdfBase.h @@ -0,0 +1,44 @@ + +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2007 - INRIA - Sylvestre LEDRU + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ + +#ifndef __CDFBASE_H__ +#define __CDFBASE_H__ + +/* see cdff.f line 97 */ +#define INFINITY_FOR_CDF 1.0e300 +#define ZERO_FOR_CDF 1.0e-300 + +/** + * TODO : needs comments + * @param fname + * @param inarg + * @param oarg + * @param callpos + * @param option + * @param errnames + * @param which + * @param (*fonc)() + * @param (*foncErr)() + * @return + */ +int CdfBase(char *fname, int inarg, int oarg, int *callpos, char *option, char *errnames, int which, int (*fonc)(), void (*foncErr)() ); + + +/* messages error */ +void CdfDefaultError(char** param, int status, double bound); + +void cdfLowestSearchError(double bound); + +void cdfGreatestSearchError(double bound); + +#endif /* __CDFBASE_H__ */ diff --git a/modules/statistics/src/c/DllMainStatistics.c b/modules/statistics/src/c/DllMainStatistics.c new file mode 100755 index 000000000..b8afdb605 --- /dev/null +++ b/modules/statistics/src/c/DllMainStatistics.c @@ -0,0 +1,34 @@ + +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) DIGITEO - Allan CORNET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ + +/*--------------------------------------------------------------------------*/ +#include <windows.h> +/*--------------------------------------------------------------------------*/ +#pragma comment(lib,"../../../../bin/libintl.lib") +/*--------------------------------------------------------------------------*/ +int WINAPI DllMain (HINSTANCE hInstance , DWORD reason, PVOID pvReserved) +{ + switch (reason) + { + case DLL_PROCESS_ATTACH: + break; + case DLL_PROCESS_DETACH: + break; + case DLL_THREAD_ATTACH: + break; + case DLL_THREAD_DETACH: + break; + } + return 1; +} +/*--------------------------------------------------------------------------*/ diff --git a/modules/statistics/src/c/core_Import.def b/modules/statistics/src/c/core_Import.def new file mode 100755 index 000000000..80cb338c1 --- /dev/null +++ b/modules/statistics/src/c/core_Import.def @@ -0,0 +1,16 @@ +LIBRARY core.dll + + +EXPORTS +;core +checkrhs_ +checklhs_ +getrhsvar_ +com_ +stack_ +intersci_ +putlhsvar_ +createvar_ +callFunctionFromGateway +MyHeapAlloc +MyHeapFree diff --git a/modules/statistics/src/c/dcd_f_Import.def b/modules/statistics/src/c/dcd_f_Import.def new file mode 100755 index 000000000..4a036c86b --- /dev/null +++ b/modules/statistics/src/c/dcd_f_Import.def @@ -0,0 +1,17 @@ +LIBRARY dcd_f.dll + + +EXPORTS +; + +cdfbet_ +cdfbin_ +cdfchi_ +cdfchn_ +cdff_ +cdffnc_ +cdfgam_ +cdfnbn_ +cdfnor_ +cdfpoi_ +cdft_
\ No newline at end of file diff --git a/modules/statistics/src/c/ipmpar1.c b/modules/statistics/src/c/ipmpar1.c new file mode 100755 index 000000000..5d41bb21d --- /dev/null +++ b/modules/statistics/src/c/ipmpar1.c @@ -0,0 +1,46 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2006-2008 - INRIA - + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt + * + */ +/*--------------------------------------------------------------------------*/ +/* + * MACHINE CONSTANTS + * These numbers must be updated when the program is ported to a new machine. + * Using spConfig.h to get the largest int + */ +/*--------------------------------------------------------------------------*/ +#define spINSIDE_SPARSE +#include "../../sparse/includes/spConfig.h" +#include "ipmpar1.h" +/*--------------------------------------------------------------------------*/ +int C2F(largestint)() +{ + static int first = 0, large = 0; + if ( first == 0) + { + if (sizeof(int) == sizeof(long)) + { + large = LARGEST_LONG_INTEGER ; + } + else if (sizeof(int) == sizeof(short)) + { + large = LARGEST_SHORT_INTEGER; + } + else + { + large = 2147483647 ; /** using default value **/ + } + + first++; + return large ; + } + return large; +} +/*--------------------------------------------------------------------------*/ diff --git a/modules/statistics/src/c/libscistatistics_algo_la-CdfBase.lo b/modules/statistics/src/c/libscistatistics_algo_la-CdfBase.lo new file mode 100755 index 000000000..dc0891e46 --- /dev/null +++ b/modules/statistics/src/c/libscistatistics_algo_la-CdfBase.lo @@ -0,0 +1,12 @@ +# src/c/libscistatistics_algo_la-CdfBase.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/libscistatistics_algo_la-CdfBase.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/c/libscistatistics_algo_la-ipmpar1.lo b/modules/statistics/src/c/libscistatistics_algo_la-ipmpar1.lo new file mode 100755 index 000000000..bec043062 --- /dev/null +++ b/modules/statistics/src/c/libscistatistics_algo_la-ipmpar1.lo @@ -0,0 +1,12 @@ +# src/c/libscistatistics_algo_la-ipmpar1.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/libscistatistics_algo_la-ipmpar1.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/c/statistics.rc b/modules/statistics/src/c/statistics.rc new file mode 100755 index 000000000..23475c8d1 --- /dev/null +++ b/modules/statistics/src/c/statistics.rc @@ -0,0 +1,96 @@ +// Microsoft Visual C++ generated resource script. +// + + +#define APSTUDIO_READONLY_SYMBOLS +///////////////////////////////////////////////////////////////////////////// +// +// Generated from the TEXTINCLUDE 2 resource. +// +//#include "afxres.h" +#define APSTUDIO_HIDDEN_SYMBOLS +#include "windows.h" +///////////////////////////////////////////////////////////////////////////// +#undef APSTUDIO_READONLY_SYMBOLS + +///////////////////////////////////////////////////////////////////////////// +// French (France) resources + +#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_FRA) +#ifdef _WIN32 +LANGUAGE LANG_FRENCH, SUBLANG_FRENCH +#pragma code_page(1252) +#endif //_WIN32 + +#ifdef APSTUDIO_INVOKED +///////////////////////////////////////////////////////////////////////////// +// +// TEXTINCLUDE +// + +1 TEXTINCLUDE +BEGIN + "resource.h\0" +END + +3 TEXTINCLUDE +BEGIN + "\r\n" + "\0" +END + +#endif // APSTUDIO_INVOKED + + +///////////////////////////////////////////////////////////////////////////// +// +// Version +// + +VS_VERSION_INFO VERSIONINFO + FILEVERSION 5,5,2,0 + PRODUCTVERSION 5,5,2,0 + FILEFLAGSMASK 0x17L +#ifdef _DEBUG + FILEFLAGS 0x1L +#else + FILEFLAGS 0x0L +#endif + FILEOS 0x4L + FILETYPE 0x2L + FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "040c04b0" + BEGIN + VALUE "FileDescription", "statistics module" + VALUE "FileVersion", "5, 5, 2, 0" + VALUE "InternalName", "statistics module" + VALUE "LegalCopyright", "Copyright (C) 2017" + VALUE "OriginalFilename", "statistics.dll" + VALUE "ProductName", "statistics module" + VALUE "ProductVersion", "5, 5, 2, 0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x40c, 1200 + END +END + +#endif // French (France) resources +///////////////////////////////////////////////////////////////////////////// + + + +#ifndef APSTUDIO_INVOKED +///////////////////////////////////////////////////////////////////////////// +// +// Generated from the TEXTINCLUDE 3 resource. +// + + +///////////////////////////////////////////////////////////////////////////// +#endif // not APSTUDIO_INVOKED + diff --git a/modules/statistics/src/c/statistics.vcxproj b/modules/statistics/src/c/statistics.vcxproj new file mode 100755 index 000000000..6d236db79 --- /dev/null +++ b/modules/statistics/src/c/statistics.vcxproj @@ -0,0 +1,246 @@ +<?xml version="1.0" encoding="utf-8"?> +<Project DefaultTargets="Build" ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <ItemGroup Label="ProjectConfigurations"> + <ProjectConfiguration Include="Debug|Win32"> + <Configuration>Debug</Configuration> + <Platform>Win32</Platform> + </ProjectConfiguration> + <ProjectConfiguration Include="Debug|x64"> + <Configuration>Debug</Configuration> + <Platform>x64</Platform> + </ProjectConfiguration> + <ProjectConfiguration Include="Release|Win32"> + <Configuration>Release</Configuration> + <Platform>Win32</Platform> + </ProjectConfiguration> + <ProjectConfiguration Include="Release|x64"> + <Configuration>Release</Configuration> + <Platform>x64</Platform> + </ProjectConfiguration> + </ItemGroup> + <PropertyGroup Label="Globals"> + <ProjectGuid>{FE9EB721-B3C1-41D8-B585-3FB3A0083CEC}</ProjectGuid> + <RootNamespace>statistics</RootNamespace> + <Keyword>Win32Proj</Keyword> + </PropertyGroup> + <Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" /> + <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration"> + <ConfigurationType>DynamicLibrary</ConfigurationType> + <CharacterSet>MultiByte</CharacterSet> + <WholeProgramOptimization>false</WholeProgramOptimization> + <PlatformToolset>v110</PlatformToolset> + </PropertyGroup> + <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration"> + <ConfigurationType>DynamicLibrary</ConfigurationType> + <CharacterSet>MultiByte</CharacterSet> + <PlatformToolset>v110</PlatformToolset> + </PropertyGroup> + <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'" Label="Configuration"> + <ConfigurationType>DynamicLibrary</ConfigurationType> + <CharacterSet>MultiByte</CharacterSet> + <WholeProgramOptimization>false</WholeProgramOptimization> + <PlatformToolset>v110</PlatformToolset> + </PropertyGroup> + <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'" Label="Configuration"> + <ConfigurationType>DynamicLibrary</ConfigurationType> + <CharacterSet>MultiByte</CharacterSet> + <PlatformToolset>v110</PlatformToolset> + </PropertyGroup> + <Import Project="$(VCTargetsPath)\Microsoft.Cpp.props" /> + <ImportGroup Label="ExtensionSettings"> + </ImportGroup> + <ImportGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="PropertySheets"> + <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" /> + </ImportGroup> + <ImportGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="PropertySheets"> + <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" /> + </ImportGroup> + <ImportGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'" Label="PropertySheets"> + <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" /> + </ImportGroup> + <ImportGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'" Label="PropertySheets"> + <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" /> + </ImportGroup> + <PropertyGroup Label="UserMacros" /> + <PropertyGroup> + <_ProjectFileVersion>10.0.30319.1</_ProjectFileVersion> + <OutDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">$(SolutionDir)bin\</OutDir> + <IntDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">$(ProjectDir)$(Configuration)\</IntDir> + <LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">false</LinkIncremental> + <OutDir Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">$(SolutionDir)bin\</OutDir> + <IntDir Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">$(ProjectDir)$(Configuration)\</IntDir> + <LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">false</LinkIncremental> + <OutDir Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">$(SolutionDir)bin\</OutDir> + <IntDir Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">$(ProjectDir)$(Configuration)\</IntDir> + <LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">false</LinkIncremental> + <OutDir Condition="'$(Configuration)|$(Platform)'=='Release|x64'">$(SolutionDir)bin\</OutDir> + <IntDir Condition="'$(Configuration)|$(Platform)'=='Release|x64'">$(ProjectDir)$(Configuration)\</IntDir> + <LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Release|x64'">false</LinkIncremental> + </PropertyGroup> + <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'"> + <ClCompile> + <Optimization>Disabled</Optimization> + <AdditionalIncludeDirectories>.;../../includes;../../../../libs/intl;../../../core/includes;../../../localization/includes;../../../output_stream/includes;../../../dynamic_link/includes;../../../windows_tools/includes;../../../api_scilab/includes;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> + <PreprocessorDefinitions>_CRT_SECURE_NO_DEPRECATE;FORDLL;_DEBUG;_WINDOWS;_USRDLL;STATISTICS_EXPORTS;%(PreprocessorDefinitions)</PreprocessorDefinitions> + <RuntimeLibrary>MultiThreadedDebugDLL</RuntimeLibrary> + <WarningLevel>Level3</WarningLevel> + </ClCompile> + <PreLinkEvent> + <Message>Make dependencies</Message> + <Command>lib /DEF:"$(ProjectDir)core_import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)dcd_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)dcd_f.lib" 1>NUL 2>NUL</Command> + </PreLinkEvent> + <Link> + <AdditionalDependencies>dcd_f.lib;core.lib;%(AdditionalDependencies)</AdditionalDependencies> + <OutputFile>$(SolutionDir)bin\$(ProjectName).dll</OutputFile> + <GenerateDebugInformation>true</GenerateDebugInformation> + <SubSystem>Windows</SubSystem> + <ImportLibrary>$(SolutionDir)bin\$(ProjectName).lib</ImportLibrary> + <TargetMachine>MachineX86</TargetMachine> + <CLRUnmanagedCodeCheck>true</CLRUnmanagedCodeCheck> + <RandomizedBaseAddress>false</RandomizedBaseAddress> + </Link> + </ItemDefinitionGroup> + <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'"> + <Midl> + <TargetEnvironment>X64</TargetEnvironment> + </Midl> + <ClCompile> + <Optimization>Disabled</Optimization> + <AdditionalIncludeDirectories>.;../../includes;../../../../libs/intl;../../../core/includes;../../../localization/includes;../../../output_stream/includes;../../../dynamic_link/includes;../../../windows_tools/includes;../../../api_scilab/includes;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> + <PreprocessorDefinitions>_CRT_SECURE_NO_DEPRECATE;FORDLL;_DEBUG;_WINDOWS;_USRDLL;STATISTICS_EXPORTS;%(PreprocessorDefinitions)</PreprocessorDefinitions> + <RuntimeLibrary>MultiThreadedDebugDLL</RuntimeLibrary> + <WarningLevel>Level3</WarningLevel> + </ClCompile> + <PreLinkEvent> + <Message>Make dependencies</Message> + <Command>lib /DEF:"$(ProjectDir)core_import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)dcd_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)dcd_f.lib" 1>NUL 2>NUL</Command> + </PreLinkEvent> + <Link> + <AdditionalDependencies>dcd_f.lib;core.lib;%(AdditionalDependencies)</AdditionalDependencies> + <OutputFile>$(SolutionDir)bin\$(ProjectName).dll</OutputFile> + <GenerateDebugInformation>true</GenerateDebugInformation> + <SubSystem>Windows</SubSystem> + <ImportLibrary>$(SolutionDir)bin\$(ProjectName).lib</ImportLibrary> + <TargetMachine>MachineX64</TargetMachine> + <CLRUnmanagedCodeCheck>true</CLRUnmanagedCodeCheck> + <RandomizedBaseAddress>false</RandomizedBaseAddress> + </Link> + </ItemDefinitionGroup> + <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'"> + <ClCompile> + <FavorSizeOrSpeed>Speed</FavorSizeOrSpeed> + <WholeProgramOptimization>false</WholeProgramOptimization> + <AdditionalIncludeDirectories>.;../../includes;../../../../libs/intl;../../../core/includes;../../../localization/includes;../../../output_stream/includes;../../../dynamic_link/includes;../../../windows_tools/includes;../../../api_scilab/includes;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> + <PreprocessorDefinitions>_CRT_SECURE_NO_DEPRECATE;FORDLL;NDEBUG;_WINDOWS;_USRDLL;STATISTICS_EXPORTS;%(PreprocessorDefinitions)</PreprocessorDefinitions> + <StringPooling>true</StringPooling> + <RuntimeLibrary>MultiThreadedDLL</RuntimeLibrary> + <WarningLevel>Level3</WarningLevel> + <MultiProcessorCompilation>true</MultiProcessorCompilation> + </ClCompile> + <PreLinkEvent> + <Message>Make dependencies</Message> + <Command>lib /DEF:"$(ProjectDir)core_import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)dcd_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)dcd_f.lib" 1>NUL 2>NUL</Command> + </PreLinkEvent> + <Link> + <AdditionalDependencies>dcd_f.lib;core.lib;%(AdditionalDependencies)</AdditionalDependencies> + <OutputFile>$(SolutionDir)bin\$(ProjectName).dll</OutputFile> + <GenerateDebugInformation>false</GenerateDebugInformation> + <SubSystem>Windows</SubSystem> + <OptimizeReferences>true</OptimizeReferences> + <EnableCOMDATFolding>true</EnableCOMDATFolding> + <ImportLibrary>$(SolutionDir)bin\$(ProjectName).lib</ImportLibrary> + <TargetMachine>MachineX86</TargetMachine> + <CLRUnmanagedCodeCheck>true</CLRUnmanagedCodeCheck> + <RandomizedBaseAddress>false</RandomizedBaseAddress> + </Link> + </ItemDefinitionGroup> + <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'"> + <Midl> + <TargetEnvironment>X64</TargetEnvironment> + </Midl> + <ClCompile> + <FavorSizeOrSpeed>Speed</FavorSizeOrSpeed> + <WholeProgramOptimization>false</WholeProgramOptimization> + <AdditionalIncludeDirectories>.;../../includes;../../../../libs/intl;../../../core/includes;../../../localization/includes;../../../output_stream/includes;../../../dynamic_link/includes;../../../windows_tools/includes;../../../api_scilab/includes;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> + <PreprocessorDefinitions>_CRT_SECURE_NO_DEPRECATE;FORDLL;NDEBUG;_WINDOWS;_USRDLL;STATISTICS_EXPORTS;%(PreprocessorDefinitions)</PreprocessorDefinitions> + <StringPooling>true</StringPooling> + <RuntimeLibrary>MultiThreadedDLL</RuntimeLibrary> + <WarningLevel>Level3</WarningLevel> + <MultiProcessorCompilation>true</MultiProcessorCompilation> + </ClCompile> + <PreLinkEvent> + <Message>Make dependencies</Message> + <Command>lib /DEF:"$(ProjectDir)core_import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)dcd_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)dcd_f.lib" 1>NUL 2>NUL</Command> + </PreLinkEvent> + <Link> + <AdditionalDependencies>dcd_f.lib;core.lib;%(AdditionalDependencies)</AdditionalDependencies> + <OutputFile>$(SolutionDir)bin\$(ProjectName).dll</OutputFile> + <GenerateDebugInformation>false</GenerateDebugInformation> + <SubSystem>Windows</SubSystem> + <OptimizeReferences>true</OptimizeReferences> + <EnableCOMDATFolding>true</EnableCOMDATFolding> + <ImportLibrary>$(SolutionDir)bin\$(ProjectName).lib</ImportLibrary> + <TargetMachine>MachineX64</TargetMachine> + <CLRUnmanagedCodeCheck>true</CLRUnmanagedCodeCheck> + <RandomizedBaseAddress>false</RandomizedBaseAddress> + </Link> + </ItemDefinitionGroup> + <ItemGroup> + <ClCompile Include="CdfBase.c" /> + <ClCompile Include="DllMainStatistics.c" /> + <ClCompile Include="..\..\sci_gateway\c\gw_statistics.c" /> + <ClCompile Include="ipmpar1.c" /> + <ClCompile Include="..\..\sci_gateway\c\sci_cdfbet.c" /> + <ClCompile Include="..\..\sci_gateway\c\sci_cdfbin.c" /> + <ClCompile Include="..\..\sci_gateway\c\sci_cdfchi.c" /> + <ClCompile Include="..\..\sci_gateway\c\sci_cdfchn.c" /> + <ClCompile Include="..\..\sci_gateway\c\sci_cdff.c" /> + <ClCompile Include="..\..\sci_gateway\c\sci_cdffnc.c" /> + <ClCompile Include="..\..\sci_gateway\c\sci_cdfgam.c" /> + <ClCompile Include="..\..\sci_gateway\c\sci_cdfnbn.c" /> + <ClCompile Include="..\..\sci_gateway\c\sci_cdfnor.c" /> + <ClCompile Include="..\..\sci_gateway\c\sci_cdfpoi.c" /> + <ClCompile Include="..\..\sci_gateway\c\sci_cdft.c" /> + </ItemGroup> + <ItemGroup> + <ClInclude Include="CdfBase.h" /> + <ClInclude Include="..\..\includes\dynlib_statistics.h" /> + <ClInclude Include="..\..\includes\gw_statistics.h" /> + <ClInclude Include="..\..\includes\ipmpar1.h" /> + </ItemGroup> + <ItemGroup> + <None Include="..\..\locales\statistics.pot" /> + <None Include="dcd_f_Import.def" /> + <None Include="core_import.def" /> + <None Include="..\..\Makefile.am" /> + <None Include="..\..\statistics.iss" /> + <None Include="..\..\sci_gateway\statistics_gateway.xml" /> + </ItemGroup> + <ItemGroup> + <ResourceCompile Include="statistics.rc" /> + </ItemGroup> + <ItemGroup> + <ProjectReference Include="..\..\..\..\tools\Dumpexts\Dumpexts.vcxproj"> + <Project>{3170e4c2-1173-4264-a222-7ee8ccb3ddf7}</Project> + <ReferenceOutputAssembly>false</ReferenceOutputAssembly> + </ProjectReference> + <ProjectReference Include="..\..\..\api_scilab\api_scilab.vcxproj"> + <Project>{43c5bab1-1dca-4743-a183-77e0d42fe7d0}</Project> + </ProjectReference> + <ProjectReference Include="..\..\..\localization\src\localization.vcxproj"> + <Project>{ecffeb0c-1eda-45ee-9a10-b18143852e17}</Project> + <ReferenceOutputAssembly>false</ReferenceOutputAssembly> + </ProjectReference> + <ProjectReference Include="..\..\..\output_stream\src\c\output_stream.vcxproj"> + <Project>{a5911cd7-f8e8-440c-a23e-4843a0636f3a}</Project> + <ReferenceOutputAssembly>false</ReferenceOutputAssembly> + </ProjectReference> + </ItemGroup> + <Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" /> + <ImportGroup Label="ExtensionTargets"> + </ImportGroup> +</Project>
\ No newline at end of file diff --git a/modules/statistics/src/c/statistics.vcxproj.filters b/modules/statistics/src/c/statistics.vcxproj.filters new file mode 100755 index 000000000..02690ee0f --- /dev/null +++ b/modules/statistics/src/c/statistics.vcxproj.filters @@ -0,0 +1,105 @@ +<?xml version="1.0" encoding="utf-8"?> +<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <ItemGroup> + <Filter Include="Source Files"> + <UniqueIdentifier>{cedc8de4-c00c-49bf-bc04-beb37e6e4801}</UniqueIdentifier> + <Extensions>cpp;c;cxx;rc;def;r;odl;idl;hpj;bat</Extensions> + </Filter> + <Filter Include="Header Files"> + <UniqueIdentifier>{ca2feca2-903a-430a-a7bb-c5b2f309bcab}</UniqueIdentifier> + <Extensions>h;hpp;hxx;hm;inl</Extensions> + </Filter> + <Filter Include="localization"> + <UniqueIdentifier>{a82769a2-e58f-4604-b440-a8ddca0906a5}</UniqueIdentifier> + </Filter> + <Filter Include="Libraries Dependencies"> + <UniqueIdentifier>{5e9fc7b7-98f1-459b-b57f-0335e2a62806}</UniqueIdentifier> + </Filter> + <Filter Include="Libraries Dependencies\Imports"> + <UniqueIdentifier>{3955b2f0-d01e-4424-9669-df4e7ca49bff}</UniqueIdentifier> + </Filter> + <Filter Include="Resource Files"> + <UniqueIdentifier>{91df8ccb-f137-48e5-b354-35d2bbbbe18b}</UniqueIdentifier> + </Filter> + </ItemGroup> + <ItemGroup> + <ClCompile Include="CdfBase.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="DllMainStatistics.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\c\gw_statistics.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="ipmpar1.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\c\sci_cdfbet.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\c\sci_cdfbin.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\c\sci_cdfchi.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\c\sci_cdfchn.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\c\sci_cdff.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\c\sci_cdffnc.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\c\sci_cdfgam.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\c\sci_cdfnbn.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\c\sci_cdfnor.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\c\sci_cdfpoi.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\..\sci_gateway\c\sci_cdft.c"> + <Filter>Source Files</Filter> + </ClCompile> + </ItemGroup> + <ItemGroup> + <ClInclude Include="CdfBase.h"> + <Filter>Header Files</Filter> + </ClInclude> + <ClInclude Include="..\..\includes\dynlib_statistics.h"> + <Filter>Header Files</Filter> + </ClInclude> + <ClInclude Include="..\..\includes\gw_statistics.h"> + <Filter>Header Files</Filter> + </ClInclude> + <ClInclude Include="..\..\includes\ipmpar1.h"> + <Filter>Header Files</Filter> + </ClInclude> + </ItemGroup> + <ItemGroup> + <None Include="core_import.def"> + <Filter>Libraries Dependencies\Imports</Filter> + </None> + <None Include="..\..\Makefile.am" /> + <None Include="..\..\statistics.iss" /> + <None Include="..\..\sci_gateway\statistics_gateway.xml" /> + <None Include="..\..\locales\statistics.pot"> + <Filter>localization</Filter> + </None> + <None Include="dcd_f_Import.def"> + <Filter>Libraries Dependencies\Imports</Filter> + </None> + </ItemGroup> + <ItemGroup> + <ResourceCompile Include="statistics.rc"> + <Filter>Resource Files</Filter> + </ResourceCompile> + </ItemGroup> +</Project>
\ No newline at end of file diff --git a/modules/statistics/src/dcdflib/.deps/.dirstamp b/modules/statistics/src/dcdflib/.deps/.dirstamp new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/statistics/src/dcdflib/.deps/.dirstamp diff --git a/modules/statistics/src/dcdflib/.dirstamp b/modules/statistics/src/dcdflib/.dirstamp new file mode 100755 index 000000000..e69de29bb --- /dev/null +++ b/modules/statistics/src/dcdflib/.dirstamp diff --git a/modules/statistics/src/dcdflib/.libs/algdiv.o b/modules/statistics/src/dcdflib/.libs/algdiv.o Binary files differnew file mode 100755 index 000000000..06f799784 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/algdiv.o diff --git a/modules/statistics/src/dcdflib/.libs/alngam.o b/modules/statistics/src/dcdflib/.libs/alngam.o Binary files differnew file mode 100755 index 000000000..41d9a9315 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/alngam.o diff --git a/modules/statistics/src/dcdflib/.libs/alnrel.o b/modules/statistics/src/dcdflib/.libs/alnrel.o Binary files differnew file mode 100755 index 000000000..16bdb9277 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/alnrel.o diff --git a/modules/statistics/src/dcdflib/.libs/apser.o b/modules/statistics/src/dcdflib/.libs/apser.o Binary files differnew file mode 100755 index 000000000..b2ee83b2d --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/apser.o diff --git a/modules/statistics/src/dcdflib/.libs/basym.o b/modules/statistics/src/dcdflib/.libs/basym.o Binary files differnew file mode 100755 index 000000000..c6977a125 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/basym.o diff --git a/modules/statistics/src/dcdflib/.libs/bcorr.o b/modules/statistics/src/dcdflib/.libs/bcorr.o Binary files differnew file mode 100755 index 000000000..cb1ac0af1 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/bcorr.o diff --git a/modules/statistics/src/dcdflib/.libs/betaln.o b/modules/statistics/src/dcdflib/.libs/betaln.o Binary files differnew file mode 100755 index 000000000..9e4949335 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/betaln.o diff --git a/modules/statistics/src/dcdflib/.libs/bfrac.o b/modules/statistics/src/dcdflib/.libs/bfrac.o Binary files differnew file mode 100755 index 000000000..2f6254817 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/bfrac.o diff --git a/modules/statistics/src/dcdflib/.libs/bgrat.o b/modules/statistics/src/dcdflib/.libs/bgrat.o Binary files differnew file mode 100755 index 000000000..658902588 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/bgrat.o diff --git a/modules/statistics/src/dcdflib/.libs/bpser.o b/modules/statistics/src/dcdflib/.libs/bpser.o Binary files differnew file mode 100755 index 000000000..2880aac5a --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/bpser.o diff --git a/modules/statistics/src/dcdflib/.libs/bratio.o b/modules/statistics/src/dcdflib/.libs/bratio.o Binary files differnew file mode 100755 index 000000000..f0025c236 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/bratio.o diff --git a/modules/statistics/src/dcdflib/.libs/brcmp1.o b/modules/statistics/src/dcdflib/.libs/brcmp1.o Binary files differnew file mode 100755 index 000000000..44024e2b2 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/brcmp1.o diff --git a/modules/statistics/src/dcdflib/.libs/brcomp.o b/modules/statistics/src/dcdflib/.libs/brcomp.o Binary files differnew file mode 100755 index 000000000..8fc831bc0 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/brcomp.o diff --git a/modules/statistics/src/dcdflib/.libs/bup.o b/modules/statistics/src/dcdflib/.libs/bup.o Binary files differnew file mode 100755 index 000000000..0ee3e30d7 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/bup.o diff --git a/modules/statistics/src/dcdflib/.libs/cdfbet.o b/modules/statistics/src/dcdflib/.libs/cdfbet.o Binary files differnew file mode 100755 index 000000000..ad5f51657 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cdfbet.o diff --git a/modules/statistics/src/dcdflib/.libs/cdfbin.o b/modules/statistics/src/dcdflib/.libs/cdfbin.o Binary files differnew file mode 100755 index 000000000..12e44b36a --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cdfbin.o diff --git a/modules/statistics/src/dcdflib/.libs/cdfchi.o b/modules/statistics/src/dcdflib/.libs/cdfchi.o Binary files differnew file mode 100755 index 000000000..8bb3ec850 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cdfchi.o diff --git a/modules/statistics/src/dcdflib/.libs/cdfchn.o b/modules/statistics/src/dcdflib/.libs/cdfchn.o Binary files differnew file mode 100755 index 000000000..c69a0e1bf --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cdfchn.o diff --git a/modules/statistics/src/dcdflib/.libs/cdff.o b/modules/statistics/src/dcdflib/.libs/cdff.o Binary files differnew file mode 100755 index 000000000..2527241a2 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cdff.o diff --git a/modules/statistics/src/dcdflib/.libs/cdffnc.o b/modules/statistics/src/dcdflib/.libs/cdffnc.o Binary files differnew file mode 100755 index 000000000..312429875 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cdffnc.o diff --git a/modules/statistics/src/dcdflib/.libs/cdfgam.o b/modules/statistics/src/dcdflib/.libs/cdfgam.o Binary files differnew file mode 100755 index 000000000..de3791069 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cdfgam.o diff --git a/modules/statistics/src/dcdflib/.libs/cdfnbn.o b/modules/statistics/src/dcdflib/.libs/cdfnbn.o Binary files differnew file mode 100755 index 000000000..3a647e96e --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cdfnbn.o diff --git a/modules/statistics/src/dcdflib/.libs/cdfnor.o b/modules/statistics/src/dcdflib/.libs/cdfnor.o Binary files differnew file mode 100755 index 000000000..8ad42325b --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cdfnor.o diff --git a/modules/statistics/src/dcdflib/.libs/cdfpoi.o b/modules/statistics/src/dcdflib/.libs/cdfpoi.o Binary files differnew file mode 100755 index 000000000..66331c924 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cdfpoi.o diff --git a/modules/statistics/src/dcdflib/.libs/cdft.o b/modules/statistics/src/dcdflib/.libs/cdft.o Binary files differnew file mode 100755 index 000000000..fef35be4f --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cdft.o diff --git a/modules/statistics/src/dcdflib/.libs/cumbet.o b/modules/statistics/src/dcdflib/.libs/cumbet.o Binary files differnew file mode 100755 index 000000000..0f09713ef --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cumbet.o diff --git a/modules/statistics/src/dcdflib/.libs/cumbin.o b/modules/statistics/src/dcdflib/.libs/cumbin.o Binary files differnew file mode 100755 index 000000000..279e3ad7e --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cumbin.o diff --git a/modules/statistics/src/dcdflib/.libs/cumchi.o b/modules/statistics/src/dcdflib/.libs/cumchi.o Binary files differnew file mode 100755 index 000000000..aa392023e --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cumchi.o diff --git a/modules/statistics/src/dcdflib/.libs/cumchn.o b/modules/statistics/src/dcdflib/.libs/cumchn.o Binary files differnew file mode 100755 index 000000000..71506d459 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cumchn.o diff --git a/modules/statistics/src/dcdflib/.libs/cumf.o b/modules/statistics/src/dcdflib/.libs/cumf.o Binary files differnew file mode 100755 index 000000000..ecfe03baf --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cumf.o diff --git a/modules/statistics/src/dcdflib/.libs/cumfnc.o b/modules/statistics/src/dcdflib/.libs/cumfnc.o Binary files differnew file mode 100755 index 000000000..d053e775d --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cumfnc.o diff --git a/modules/statistics/src/dcdflib/.libs/cumgam.o b/modules/statistics/src/dcdflib/.libs/cumgam.o Binary files differnew file mode 100755 index 000000000..56cb47ef4 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cumgam.o diff --git a/modules/statistics/src/dcdflib/.libs/cumnbn.o b/modules/statistics/src/dcdflib/.libs/cumnbn.o Binary files differnew file mode 100755 index 000000000..2787827d6 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cumnbn.o diff --git a/modules/statistics/src/dcdflib/.libs/cumnor.o b/modules/statistics/src/dcdflib/.libs/cumnor.o Binary files differnew file mode 100755 index 000000000..f5bb1ba11 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cumnor.o diff --git a/modules/statistics/src/dcdflib/.libs/cumpoi.o b/modules/statistics/src/dcdflib/.libs/cumpoi.o Binary files differnew file mode 100755 index 000000000..df838cc7c --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cumpoi.o diff --git a/modules/statistics/src/dcdflib/.libs/cumt.o b/modules/statistics/src/dcdflib/.libs/cumt.o Binary files differnew file mode 100755 index 000000000..07e419735 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/cumt.o diff --git a/modules/statistics/src/dcdflib/.libs/devlpl.o b/modules/statistics/src/dcdflib/.libs/devlpl.o Binary files differnew file mode 100755 index 000000000..ba7b0fb61 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/devlpl.o diff --git a/modules/statistics/src/dcdflib/.libs/dinvnr.o b/modules/statistics/src/dcdflib/.libs/dinvnr.o Binary files differnew file mode 100755 index 000000000..68adaea1b --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/dinvnr.o diff --git a/modules/statistics/src/dcdflib/.libs/dinvr.o b/modules/statistics/src/dcdflib/.libs/dinvr.o Binary files differnew file mode 100755 index 000000000..f233242fa --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/dinvr.o diff --git a/modules/statistics/src/dcdflib/.libs/dt1.o b/modules/statistics/src/dcdflib/.libs/dt1.o Binary files differnew file mode 100755 index 000000000..e0132480d --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/dt1.o diff --git a/modules/statistics/src/dcdflib/.libs/dzror.o b/modules/statistics/src/dcdflib/.libs/dzror.o Binary files differnew file mode 100755 index 000000000..86e856f8e --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/dzror.o diff --git a/modules/statistics/src/dcdflib/.libs/erf.o b/modules/statistics/src/dcdflib/.libs/erf.o Binary files differnew file mode 100755 index 000000000..eb624f6ed --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/erf.o diff --git a/modules/statistics/src/dcdflib/.libs/erfc1.o b/modules/statistics/src/dcdflib/.libs/erfc1.o Binary files differnew file mode 100755 index 000000000..7acb3c353 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/erfc1.o diff --git a/modules/statistics/src/dcdflib/.libs/esum.o b/modules/statistics/src/dcdflib/.libs/esum.o Binary files differnew file mode 100755 index 000000000..6ed589a91 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/esum.o diff --git a/modules/statistics/src/dcdflib/.libs/exparg.o b/modules/statistics/src/dcdflib/.libs/exparg.o Binary files differnew file mode 100755 index 000000000..e72b18a67 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/exparg.o diff --git a/modules/statistics/src/dcdflib/.libs/fpser.o b/modules/statistics/src/dcdflib/.libs/fpser.o Binary files differnew file mode 100755 index 000000000..7c08cacc9 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/fpser.o diff --git a/modules/statistics/src/dcdflib/.libs/gam1.o b/modules/statistics/src/dcdflib/.libs/gam1.o Binary files differnew file mode 100755 index 000000000..16a45b3a1 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/gam1.o diff --git a/modules/statistics/src/dcdflib/.libs/gaminv.o b/modules/statistics/src/dcdflib/.libs/gaminv.o Binary files differnew file mode 100755 index 000000000..d7d779e61 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/gaminv.o diff --git a/modules/statistics/src/dcdflib/.libs/gamln.o b/modules/statistics/src/dcdflib/.libs/gamln.o Binary files differnew file mode 100755 index 000000000..237f1c491 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/gamln.o diff --git a/modules/statistics/src/dcdflib/.libs/gamln1.o b/modules/statistics/src/dcdflib/.libs/gamln1.o Binary files differnew file mode 100755 index 000000000..f4036c459 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/gamln1.o diff --git a/modules/statistics/src/dcdflib/.libs/gamma.o b/modules/statistics/src/dcdflib/.libs/gamma.o Binary files differnew file mode 100755 index 000000000..52dfd59f4 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/gamma.o diff --git a/modules/statistics/src/dcdflib/.libs/grat1.o b/modules/statistics/src/dcdflib/.libs/grat1.o Binary files differnew file mode 100755 index 000000000..cac18e399 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/grat1.o diff --git a/modules/statistics/src/dcdflib/.libs/gratio.o b/modules/statistics/src/dcdflib/.libs/gratio.o Binary files differnew file mode 100755 index 000000000..09a467dac --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/gratio.o diff --git a/modules/statistics/src/dcdflib/.libs/gsumln.o b/modules/statistics/src/dcdflib/.libs/gsumln.o Binary files differnew file mode 100755 index 000000000..01780a7f9 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/gsumln.o diff --git a/modules/statistics/src/dcdflib/.libs/ipmpar.o b/modules/statistics/src/dcdflib/.libs/ipmpar.o Binary files differnew file mode 100755 index 000000000..877e5142e --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/ipmpar.o diff --git a/modules/statistics/src/dcdflib/.libs/psi.o b/modules/statistics/src/dcdflib/.libs/psi.o Binary files differnew file mode 100755 index 000000000..56508edde --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/psi.o diff --git a/modules/statistics/src/dcdflib/.libs/rcomp.o b/modules/statistics/src/dcdflib/.libs/rcomp.o Binary files differnew file mode 100755 index 000000000..f4770ddcc --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/rcomp.o diff --git a/modules/statistics/src/dcdflib/.libs/rexp.o b/modules/statistics/src/dcdflib/.libs/rexp.o Binary files differnew file mode 100755 index 000000000..ee2466b0e --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/rexp.o diff --git a/modules/statistics/src/dcdflib/.libs/rlog.o b/modules/statistics/src/dcdflib/.libs/rlog.o Binary files differnew file mode 100755 index 000000000..dd04b4a66 --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/rlog.o diff --git a/modules/statistics/src/dcdflib/.libs/rlog1.o b/modules/statistics/src/dcdflib/.libs/rlog1.o Binary files differnew file mode 100755 index 000000000..3fa7a9f7b --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/rlog1.o diff --git a/modules/statistics/src/dcdflib/.libs/spmpar.o b/modules/statistics/src/dcdflib/.libs/spmpar.o Binary files differnew file mode 100755 index 000000000..a0f89bfbc --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/spmpar.o diff --git a/modules/statistics/src/dcdflib/.libs/stvaln.o b/modules/statistics/src/dcdflib/.libs/stvaln.o Binary files differnew file mode 100755 index 000000000..ef61c2acf --- /dev/null +++ b/modules/statistics/src/dcdflib/.libs/stvaln.o diff --git a/modules/statistics/src/dcdflib/README b/modules/statistics/src/dcdflib/README new file mode 100755 index 000000000..8133163a5 --- /dev/null +++ b/modules/statistics/src/dcdflib/README @@ -0,0 +1,318 @@ + + + + + + + + + + + + DCDFLIB + + Library of Fortran Routines for Cumulative Distribution + Functions, Inverses, and Other Parameters + + (February, 1994) + + + + + + + Summary Documentation of Each Routine + + + + + + + + + Compiled and Written by: + + Barry W. Brown + James Lovato + Kathy Russell + + + + + + + + + + Department of Biomathematics, Box 237 + The University of Texas, M.D. Anderson Cancer Center + 1515 Holcombe Boulevard + Houston, TX 77030 + + + This work was supported by grant CA-16672 from the National Cancer Institute. + + + SUMMARY OF DCDFLIB + +This library contains routines to compute cumulative distribution +functions, inverses, and parameters of the distribution for the +following set of statistical distributions: + + (1) Beta + (2) Binomial + (3) Chi-square + (4) Noncentral Chi-square + (5) F + (6) Noncentral F + (7) Gamma + (8) Negative Binomial + (9) Normal + (10) Poisson + (11) Student's t + +Given values of all but one parameter of a distribution, the other is +computed. These calculations are done with FORTRAN Double Precision +variables. + + -------------------- WARNINGS -------------------- + +The F and Noncentral F distribution are not necessarily monotone in +either degree of freedom argument. Consequently, there may be two +degree of freedom arguments that satisfy the specified condition. An +arbitrary one of these will be found by the cdf routines. + +The amount of computation required for the noncentral chisquare and +noncentral F distribution is proportional to the value of the +noncentrality parameter. Very large values of this parameter can +require immense numbers of computation. Consequently, when the +noncentrality parameter is to be calculated, the upper limit searched +is 10,000. + + -------------------- END WARNINGS -------------------- + + DOCUMENTATION + +This file contains an overview of the library and is the primary +documentation. + +Other documentation is in directory 'doc' on the distribution as +character (ASCII) files. A summary of all of the available routines +is contained in dcdflib.chs (chs is an abbreviation of 'cheat sheet'). +The 'chs' file will probably be the primary reference. The file, +dcdflib.fdoc, contains the header comments for each routine intended +for direct use. + + INSTALLATION + +The Fortran source routines are contained in directory src. + +A few routines use machine dependent constants. Lists of such +constants for different machines are found in ipmpar.f. Uncomment the +ones appropriate to your machine. The distributed version uses the +IEEE arithmetic that is used by the IBM PC, Macintosh, and most Unix +workstations. + +Ignore compilation warnings that lines of code are not reachable. We +write in a Fortran structured preprocessor (FLECS) that is similar in +spirit to Ratfor. Sometimes our coding practices in FLECS lead to +unreachable lines. Also, FLECS inserts lines of code: STOP "CODE +FLOWING INTO FLECS PROCEEDURES". All such lines should be +unreachable. + + SOURCES + +The following routines, written by others, are incorporated into +DCDFLIB. + + Beta Distribution + +DiDinato, A. R. and Morris, A. H. Algorithm 708: Significant Digit +Computation of the Incomplete Beta Function Ratios. ACM Trans. Math. +Softw. 18 (1993), 360-373. + + Gamma Distribution and It's Inverse + +DiDinato, A. R. and Morris, A. H. Computation of the Incomplete Gamma +Function Ratios and their Inverse. ACM Trans. Math. Softw. 12 +(1986), 377-393. + + Normal Distribution + +Kennedy and Gentle, Statistical Computing, Marcel Dekker, NY, 1980. +The rational function approximations from pages 90-95 are used during +the calculation of the inverse normal. + +Cody, W.D. (1993). "ALGORITHM 715: SPECFUN - A Portabel FORTRAN +Package of Special Function Routines and Test Drivers", acm +Transactions on Mathematical Software. 19, 22-32. A slightly modified +version of Cody's function anorm is used for the cumultive normal. + + Zero Finder + +J. C. P. Bus and T. J. Dekker. Two Efficient Algorithms with +Guaranteed Convergence for Finding a Zero of a Function. ACM Trans. +Math. Softw. 4 (1975), 330. + +We transliterated Algoritm R of this paper from Algol to Fortran. + + General Reference + +Abramowitz, M. and Stegun, I. A. Handbook of Mathematical Functions +With Formulas, Graphs, and Mathematical Tables. (1964) National +Bureau of Standards. + +This book has been reprinted by Dover and others. + + + LEGALITIES + +Code that appeared in an ACM publication is subject to their +algorithms policy: + + Submittal of an algorithm for publication in one of the ACM + Transactions implies that unrestricted use of the algorithm within a + computer is permissible. General permission to copy and distribute + the algorithm without fee is granted provided that the copies are not + made or distributed for direct commercial advantage. The ACM + copyright notice and the title of the publication and its date appear, + and notice is given that copying is by permission of the Association + for Computing Machinery. To copy otherwise, or to republish, requires + a fee and/or specific permission. + + Krogh, F. Algorithms Policy. ACM Tran. Math. Softw. 13(1987), + 183-186. + +We place the DCDFLIB code that we have written in the public domain. + + NO WARRANTY + + WE PROVIDE ABSOLUTELY NO WARRANTY OF ANY KIND EITHER EXPRESSED OR + IMPLIED, INCLUDING BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF + MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK + AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD + THIS PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY + SERVICING, REPAIR OR CORRECTION. + + IN NO EVENT SHALL THE UNIVERSITY OF TEXAS OR ANY OF ITS COMPONENT + INSTITUTIONS INCLUDING M. D. ANDERSON HOSPITAL BE LIABLE TO YOU FOR + DAMAGES, INCLUDING ANY LOST PROFITS, LOST MONIES, OR OTHER SPECIAL, + INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR + INABILITY TO USE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA OR + ITS ANALYSIS BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY THIRD + PARTIES) THE PROGRAM. + + (Above NO WARRANTY modified from the GNU NO WARRANTY statement.) + + HOW TO USE THE ROUTINES + +The calling sequence for each routine is of the form: + + SUBROUTINE CDF<name>( WHICH, P, Q, X, <parameters>, STATUS, BOUND ). + +WHICH and STATUS are INTEGER, all other arguments are DOUBLE PRECISION. + +<name> is a one to three character name identifying the distribution. +WHICH is an input integer value that identifies what parameter value +is to be calculated from the values of the other parameters. + +P is always the cdf evaluated at X, Q is always the compliment of the +cdf evaluated at X, i.e. 1-P, and X is always the value at which the +cdf is evaluated. The auxiliary parameters, <parameters>, of the +distribution differ by distribution. + +If WHICH is 1, P and Q are to be calculated, i.e., the cdf; if WHICH +is 2, X is to be calculated, i.e., the inverse cdf. The value of one +auxiliary parameter in <parameters> can also be the value calculated. + +STATUS returns 0 if the calculation completes correctly. + + --------------------WARNING-------------------- + +If STATUS is not 0, no meaningful answer is returned. + + -------------------- END WARNING -------------------- + +STATUS returns -I if the I'th input parameter was not in the legal +range (see below). Parameters are counted with WHICH being the first +in these return values. + +A STATUS value of 1 indicates that the desired answer was apparently +lower than the lower bound on the search interval. A return code of 2 +indicates that the answer was apparently higher than the upper bound +on the search interval. A return code of 3 indicates that P and Q did +not sum to 1. Other positive codes are routine specific. + +BOUND is not set if STATUS is returned as 0. If STATUS is -I then +BOUND is the bound illegally exceeded by input parameter I, where +WHICH is counted as 1, P as 2, Q as 3, X as 4, etc. If STATUS is +returned as 1 or 2 then BOUND is returned as the lower or upper bound +on the search interval respectively. + + BOUNDS + +Below are the rules that we used in determining bounds on quantities +to be calculated. Those who don't care can find a summary of the +bounds in dcdflib.chs. Input bounds are checked for legality of +input. The search range is the range of values searched for an +answer. + + Input Bounds + +Bounds on input parameters are checked by the CDF* routines. These +bounds were set according to the following rules. + +P: If the domain of the cdf (X) extends to -infinity then P must be +greater than 0 otherwise P must be greater than or equal to 0. P must +always be less than or equal to 1. + +Q: If the domain of the cdf (X) extends to +infinity then Q must be +greater than 0 otherwise Q must be greater than or equal to 0. Q must +always be less than or equal to 1. + +Further, P and Q must sum to 1. The smaller of the two P and Q will be +used in calculations to increase accuracy + +X: If the domain is infinite in either the positive or negative +direction, no check is performed in that direction. If the left end +of the domain is 0, then X is checked to assure non-negativity. + +DF, SD, etc.: Some auxiliary parameters must be positive. The lowest +input values accepted for these parameters is 1E-300. + + + Search Bounds + +These are the ranges searched for an answer. If the domain of the +parameter in the cdf is closed at some finite value, e.g., 0, then +this value is the same endpoint of the search range. If the domain is +open at some finite endpoint (which only occurs for 0 -- some +parameters must be strictly positive) then the endpoint is 1E-300. If +the domain is infinite in either direction then +/- 1E300 is used as +the endpoint of the search range. + + HOW THE ROUTINES WORK + +The cumulative distribution functions are computed directly. The +normal, gamma, and beta functions use the code from the references +cited. Other cdfs are calculated by relating them to one of these +distributions. For example, the binomial and negative binomial cdfs +can be converted to a beta cdf. This is how fractional observations +are handled. The formula from Abramowitz and Stegun for converting +the cdfs is cited in the fdoc file. (We think the formula for the +negative binomial in A&S is wrong, but there is a correct one which we +used.) + +The inverse normal and gamma are also taken from the references. For +all other parameters, a search is made for the value that provides the +desired P. Initial values are chosen crudely for the search (e.g., +5). If the domain of the cdf for the parameter being calculated is +infinite, a step doubling strategy is used to bound the desired value +then the zero finder is employed to refine the answer. The zero +finder attempts to obtain the answer accurately to about eight decimal +places. + + + + + diff --git a/modules/statistics/src/dcdflib/algdiv.f b/modules/statistics/src/dcdflib/algdiv.f new file mode 100755 index 000000000..6fab9b490 --- /dev/null +++ b/modules/statistics/src/dcdflib/algdiv.f @@ -0,0 +1,71 @@ + DOUBLE PRECISION FUNCTION algdiv(a,b) +C----------------------------------------------------------------------- +C +C COMPUTATION OF LN(GAMMA(B)/GAMMA(A+B)) WHEN B .GE. 8 +C +C -------- +C +C IN THIS ALGORITHM, DEL(X) IS THE FUNCTION DEFINED BY +C LN(GAMMA(X)) = (X - 0.5)*LN(X) - X + 0.5*LN(2*PI) + DEL(X). +C +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION a,b +C .. +C .. Local Scalars .. + DOUBLE PRECISION c,c0,c1,c2,c3,c4,c5,d,h,s11,s3,s5,s7,s9,t,u,v,w, + + x,x2 +C .. +C .. External Functions .. + DOUBLE PRECISION alnrel + EXTERNAL alnrel +C .. +C .. Intrinsic Functions .. + INTRINSIC dlog +C .. +C .. Data statements .. + DATA c0/.833333333333333D-01/,c1/-.277777777760991D-02/, + + c2/.793650666825390D-03/,c3/-.595202931351870D-03/, + + c4/.837308034031215D-03/,c5/-.165322962780713D-02/ +C .. +C .. Executable Statements .. +C------------------------ + IF (a.LE.b) GO TO 10 + h = b/a + c = 1.0D0/ (1.0D0+h) + x = h/ (1.0D0+h) + d = a + (b-0.5D0) + GO TO 20 + + 10 h = a/b + c = h/ (1.0D0+h) + x = 1.0D0/ (1.0D0+h) + d = b + (a-0.5D0) +C +C SET SN = (1 - X**N)/(1 - X) +C + 20 x2 = x*x + s3 = 1.0D0 + (x+x2) + s5 = 1.0D0 + (x+x2*s3) + s7 = 1.0D0 + (x+x2*s5) + s9 = 1.0D0 + (x+x2*s7) + s11 = 1.0D0 + (x+x2*s9) +C +C SET W = DEL(B) - DEL(A + B) +C + t = (1.0D0/b)**2 + w = ((((c5*s11*t+c4*s9)*t+c3*s7)*t+c2*s5)*t+c1*s3)*t + c0 + w = w* (c/b) +C +C COMBINE THE RESULTS +C + u = d*alnrel(a/b) + v = a* (dlog(b)-1.0D0) + IF (u.LE.v) GO TO 30 + algdiv = (w-v) - u + RETURN + + 30 algdiv = (w-u) - v + RETURN + + END diff --git a/modules/statistics/src/dcdflib/algdiv.lo b/modules/statistics/src/dcdflib/algdiv.lo new file mode 100755 index 000000000..586a075e0 --- /dev/null +++ b/modules/statistics/src/dcdflib/algdiv.lo @@ -0,0 +1,12 @@ +# src/dcdflib/algdiv.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/algdiv.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/alngam.f b/modules/statistics/src/dcdflib/alngam.f new file mode 100755 index 000000000..25e485c06 --- /dev/null +++ b/modules/statistics/src/dcdflib/alngam.f @@ -0,0 +1,131 @@ + DOUBLE PRECISION FUNCTION alngam(x) +C********************************************************************** +C +C DOUBLE PRECISION FUNCTION ALNGAM(X) +C double precision LN of the GAMma function +C +C +C Function +C +C +C Returns the natural logarithm of GAMMA(X). +C +C +C Arguments +C +C +C X --> value at which scaled log gamma is to be returned +C X is DOUBLE PRECISION +C +C +C Method +C +C +C If X .le. 6.0, then use recursion to get X below 3 +C then apply rational approximation number 5236 of +C Hart et al, Computer Approximations, John Wiley and +C Sons, NY, 1968. +C +C If X .gt. 6.0, then use recursion to get X to at least 12 and +C then use formula 5423 of the same source. +C +C********************************************************************** +C +C .. Parameters .. + DOUBLE PRECISION hln2pi + PARAMETER (hln2pi=0.91893853320467274178D0) +C .. +C .. Scalar Arguments .. + DOUBLE PRECISION x +C .. +C .. Local Scalars .. + DOUBLE PRECISION offset,prod,xx + INTEGER i,n +C .. +C .. Local Arrays .. + DOUBLE PRECISION coef(5),scoefd(4),scoefn(9) +C .. +C .. External Functions .. + DOUBLE PRECISION devlpl + EXTERNAL devlpl +C .. +C .. Intrinsic Functions .. + INTRINSIC log,dble,int +C .. +C .. Data statements .. + DATA scoefn(1)/0.62003838007127258804D2/, + + scoefn(2)/0.36036772530024836321D2/, + + scoefn(3)/0.20782472531792126786D2/, + + scoefn(4)/0.6338067999387272343D1/, + + scoefn(5)/0.215994312846059073D1/, + + scoefn(6)/0.3980671310203570498D0/, + + scoefn(7)/0.1093115956710439502D0/, + + scoefn(8)/0.92381945590275995D-2/, + + scoefn(9)/0.29737866448101651D-2/ + DATA scoefd(1)/0.62003838007126989331D2/, + + scoefd(2)/0.9822521104713994894D1/, + + scoefd(3)/-0.8906016659497461257D1/, + + scoefd(4)/0.1000000000000000000D1/ + DATA coef(1)/0.83333333333333023564D-1/, + + coef(2)/-0.27777777768818808D-2/, + + coef(3)/0.79365006754279D-3/,coef(4)/-0.594997310889D-3/, + + coef(5)/0.8065880899D-3/ +C .. +C .. Executable Statements .. + IF (.NOT. (x.LE.6.0D0)) GO TO 70 + prod = 1.0D0 + xx = x + IF (.NOT. (x.GT.3.0D0)) GO TO 30 + 10 IF (.NOT. (xx.GT.3.0D0)) GO TO 20 + xx = xx - 1.0D0 + prod = prod*xx + GO TO 10 + + 20 CONTINUE + 30 IF (.NOT. (x.LT.2.0D0)) GO TO 60 + 40 IF (.NOT. (xx.LT.2.0D0)) GO TO 50 + prod = prod/xx + xx = xx + 1.0D0 + GO TO 40 + + 50 CONTINUE + 60 alngam = devlpl(scoefn,9,xx-2.0D0)/devlpl(scoefd,4,xx-2.0D0) +C +C +C COMPUTE RATIONAL APPROXIMATION TO GAMMA(X) +C +C + alngam = alngam*prod + alngam = log(alngam) + GO TO 110 + + 70 offset = hln2pi +C +C +C IF NECESSARY MAKE X AT LEAST 12 AND CARRY CORRECTION IN OFFSET +C +C +C ADDED TO PREVENT INTEGER OVERFLOW IN int(12.0D0-x) S. STEER + if (x .gt. 12.0d0) go to 90 +C + n = int(12.0D0-x) + IF (.NOT. (n.GT.0)) GO TO 90 + prod = 1.0D0 + DO 80,i = 1,n + prod = prod* (x+dble(i-1)) + 80 CONTINUE + offset = offset - log(prod) + xx = x + dble(n) + GO TO 100 + + 90 xx = x +C +C +C COMPUTE POWER SERIES +C +C + 100 alngam = devlpl(coef,5,1.0D0/ (xx**2))/xx + alngam = alngam + offset + (xx-0.5D0)*log(xx) - xx + 110 RETURN + + END diff --git a/modules/statistics/src/dcdflib/alngam.lo b/modules/statistics/src/dcdflib/alngam.lo new file mode 100755 index 000000000..d517d6851 --- /dev/null +++ b/modules/statistics/src/dcdflib/alngam.lo @@ -0,0 +1,12 @@ +# src/dcdflib/alngam.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/alngam.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/alnrel.f b/modules/statistics/src/dcdflib/alnrel.f new file mode 100755 index 000000000..bc9af9adf --- /dev/null +++ b/modules/statistics/src/dcdflib/alnrel.f @@ -0,0 +1,33 @@ + DOUBLE PRECISION FUNCTION alnrel(a) +C----------------------------------------------------------------------- +C EVALUATION OF THE FUNCTION LN(1 + A) +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION a +C .. +C .. Local Scalars .. + DOUBLE PRECISION p1,p2,p3,q1,q2,q3,t,t2,w,x +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,dble,dlog +C .. +C .. Data statements .. + DATA p1/-.129418923021993D+01/,p2/.405303492862024D+00/, + + p3/-.178874546012214D-01/ + DATA q1/-.162752256355323D+01/,q2/.747811014037616D+00/, + + q3/-.845104217945565D-01/ +C .. +C .. Executable Statements .. +C-------------------------- + IF (abs(a).GT.0.375D0) GO TO 10 + t = a/ (a+2.0D0) + t2 = t*t + w = (((p3*t2+p2)*t2+p1)*t2+1.0D0)/ (((q3*t2+q2)*t2+q1)*t2+1.0D0) + alnrel = 2.0D0*t*w + RETURN +C + 10 x = 1.D0 + dble(a) + alnrel = dlog(x) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/alnrel.lo b/modules/statistics/src/dcdflib/alnrel.lo new file mode 100755 index 000000000..599c6649d --- /dev/null +++ b/modules/statistics/src/dcdflib/alnrel.lo @@ -0,0 +1,12 @@ +# src/dcdflib/alnrel.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/alnrel.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/apser.f b/modules/statistics/src/dcdflib/apser.f new file mode 100755 index 000000000..e1558f521 --- /dev/null +++ b/modules/statistics/src/dcdflib/apser.f @@ -0,0 +1,46 @@ + DOUBLE PRECISION FUNCTION apser(a,b,x,eps) +C----------------------------------------------------------------------- +C APSER YIELDS THE INCOMPLETE BETA RATIO I(SUB(1-X))(B,A) FOR +C A .LE. MIN(EPS,EPS*B), B*X .LE. 1, AND X .LE. 0.5. USED WHEN +C A IS VERY SMALL. USE ONLY IF ABOVE INEQUALITIES ARE SATISFIED. +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION a,b,eps,x +C .. +C .. Local Scalars .. + DOUBLE PRECISION aj,bx,c,g,j,s,t,tol +C .. +C .. External Functions .. + DOUBLE PRECISION psi1 + EXTERNAL psi1 +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,dlog +C .. +C .. Data statements .. +C-------------------- + DATA g/.577215664901533D0/ +C .. +C .. Executable Statements .. +C-------------------- + bx = b*x + t = x - bx + IF (b*eps.GT.2.D-2) GO TO 10 + c = dlog(x) + psi1(b) + g + t + GO TO 20 + + 10 c = dlog(bx) + g + t +C + 20 tol = 5.0D0*eps*abs(c) + j = 1.0D0 + s = 0.0D0 + 30 j = j + 1.0D0 + t = t* (x-bx/j) + aj = t/j + s = s + aj + IF (abs(aj).GT.tol) GO TO 30 +C + apser = -a* (c+s) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/apser.lo b/modules/statistics/src/dcdflib/apser.lo new file mode 100755 index 000000000..566cd4fe3 --- /dev/null +++ b/modules/statistics/src/dcdflib/apser.lo @@ -0,0 +1,12 @@ +# src/dcdflib/apser.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/apser.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/basym.f b/modules/statistics/src/dcdflib/basym.f new file mode 100755 index 000000000..356da173b --- /dev/null +++ b/modules/statistics/src/dcdflib/basym.f @@ -0,0 +1,120 @@ + DOUBLE PRECISION FUNCTION basym(a,b,lambda,eps) +C----------------------------------------------------------------------- +C ASYMPTOTIC EXPANSION FOR IX(A,B) FOR LARGE A AND B. +C LAMBDA = (A + B)*Y - B AND EPS IS THE TOLERANCE USED. +C IT IS ASSUMED THAT LAMBDA IS NONNEGATIVE AND THAT +C A AND B ARE GREATER THAN OR EQUAL TO 15. +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION a,b,eps,lambda +C .. +C .. Local Scalars .. + DOUBLE PRECISION bsum,dsum,e0,e1,f,h,h2,hn,j0,j1,r,r0,r1,s,sum,t, + + t0,t1,u,w,w0,z,z0,z2,zn,znm1 + INTEGER i,im1,imj,j,m,mm1,mmj,n,np1,num +C .. +C .. Local Arrays .. + DOUBLE PRECISION a0(21),b0(21),c(21),d(21) +C .. +C .. External Functions .. + DOUBLE PRECISION bcorr,erfc1,rlog1 + EXTERNAL bcorr,erfc1,rlog1 +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,exp,sqrt +C .. +C .. Data statements .. +C------------------------ +C ****** NUM IS THE MAXIMUM VALUE THAT N CAN TAKE IN THE DO LOOP +C ENDING AT STATEMENT 50. IT IS REQUIRED THAT NUM BE EVEN. +C THE ARRAYS A0, B0, C, D HAVE DIMENSION NUM + 1. +C +C------------------------ +C E0 = 2/SQRT(PI) +C E1 = 2**(-3/2) +C------------------------ + DATA num/20/ + DATA e0/1.12837916709551D0/,e1/.353553390593274D0/ +C .. +C .. Executable Statements .. +C------------------------ + basym = 0.0D0 + IF (a.GE.b) GO TO 10 + h = a/b + r0 = 1.0D0/ (1.0D0+h) + r1 = (b-a)/b + w0 = 1.0D0/sqrt(a* (1.0D0+h)) + GO TO 20 + + 10 h = b/a + r0 = 1.0D0/ (1.0D0+h) + r1 = (b-a)/a + w0 = 1.0D0/sqrt(b* (1.0D0+h)) +C + 20 f = a*rlog1(-lambda/a) + b*rlog1(lambda/b) + t = exp(-f) + IF (t.EQ.0.0D0) RETURN + z0 = sqrt(f) + z = 0.5D0* (z0/e1) + z2 = f + f +C + a0(1) = (2.0D0/3.0D0)*r1 + c(1) = -0.5D0*a0(1) + d(1) = -c(1) + j0 = (0.5D0/e0)*erfc1(1,z0) + j1 = e1 + sum = j0 + d(1)*w0*j1 +C + s = 1.0D0 + h2 = h*h + hn = 1.0D0 + w = w0 + znm1 = z + zn = z2 + DO 70 n = 2,num,2 + hn = h2*hn + a0(n) = 2.0D0*r0* (1.0D0+h*hn)/ (n+2.0D0) + np1 = n + 1 + s = s + hn + a0(np1) = 2.0D0*r1*s/ (n+3.0D0) +C + DO 60 i = n,np1 + r = -0.5D0* (i+1.0D0) + b0(1) = r*a0(1) + DO 40 m = 2,i + bsum = 0.0D0 + mm1 = m - 1 + DO 30 j = 1,mm1 + mmj = m - j + bsum = bsum + (j*r-mmj)*a0(j)*b0(mmj) + 30 CONTINUE + b0(m) = r*a0(m) + bsum/m + 40 CONTINUE + c(i) = b0(i)/ (i+1.0D0) +C + dsum = 0.0D0 + im1 = i - 1 + DO 50 j = 1,im1 + imj = i - j + dsum = dsum + d(imj)*c(j) + 50 CONTINUE + d(i) = - (dsum+c(i)) + 60 CONTINUE +C + j0 = e1*znm1 + (n-1.0D0)*j0 + j1 = e1*zn + n*j1 + znm1 = z2*znm1 + zn = z2*zn + w = w0*w + t0 = d(n)*w*j0 + w = w0*w + t1 = d(np1)*w*j1 + sum = sum + (t0+t1) + IF ((abs(t0)+abs(t1)).LE.eps*sum) GO TO 80 + 70 CONTINUE +C + 80 u = exp(-bcorr(a,b)) + basym = e0*t*u*sum + RETURN + + END diff --git a/modules/statistics/src/dcdflib/basym.lo b/modules/statistics/src/dcdflib/basym.lo new file mode 100755 index 000000000..873b35006 --- /dev/null +++ b/modules/statistics/src/dcdflib/basym.lo @@ -0,0 +1,12 @@ +# src/dcdflib/basym.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/basym.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/bcorr.f b/modules/statistics/src/dcdflib/bcorr.f new file mode 100755 index 000000000..381de8b62 --- /dev/null +++ b/modules/statistics/src/dcdflib/bcorr.f @@ -0,0 +1,54 @@ + DOUBLE PRECISION FUNCTION bcorr(a0,b0) +C----------------------------------------------------------------------- +C +C EVALUATION OF DEL(A0) + DEL(B0) - DEL(A0 + B0) WHERE +C LN(GAMMA(A)) = (A - 0.5)*LN(A) - A + 0.5*LN(2*PI) + DEL(A). +C IT IS ASSUMED THAT A0 .GE. 8 AND B0 .GE. 8. +C +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION a0,b0 +C .. +C .. Local Scalars .. + DOUBLE PRECISION a,b,c,c0,c1,c2,c3,c4,c5,h,s11,s3,s5,s7,s9,t,w,x, + + x2 +C .. +C .. Intrinsic Functions .. + INTRINSIC dmax1,dmin1 +C .. +C .. Data statements .. + DATA c0/.833333333333333D-01/,c1/-.277777777760991D-02/, + + c2/.793650666825390D-03/,c3/-.595202931351870D-03/, + + c4/.837308034031215D-03/,c5/-.165322962780713D-02/ +C .. +C .. Executable Statements .. +C------------------------ + a = dmin1(a0,b0) + b = dmax1(a0,b0) +C + h = a/b + c = h/ (1.0D0+h) + x = 1.0D0/ (1.0D0+h) + x2 = x*x +C +C SET SN = (1 - X**N)/(1 - X) +C + s3 = 1.0D0 + (x+x2) + s5 = 1.0D0 + (x+x2*s3) + s7 = 1.0D0 + (x+x2*s5) + s9 = 1.0D0 + (x+x2*s7) + s11 = 1.0D0 + (x+x2*s9) +C +C SET W = DEL(B) - DEL(A + B) +C + t = (1.0D0/b)**2 + w = ((((c5*s11*t+c4*s9)*t+c3*s7)*t+c2*s5)*t+c1*s3)*t + c0 + w = w* (c/b) +C +C COMPUTE DEL(A) + W +C + t = (1.0D0/a)**2 + bcorr = (((((c5*t+c4)*t+c3)*t+c2)*t+c1)*t+c0)/a + w + RETURN + + END diff --git a/modules/statistics/src/dcdflib/bcorr.lo b/modules/statistics/src/dcdflib/bcorr.lo new file mode 100755 index 000000000..bca01afce --- /dev/null +++ b/modules/statistics/src/dcdflib/bcorr.lo @@ -0,0 +1,12 @@ +# src/dcdflib/bcorr.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/bcorr.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/betaln.f b/modules/statistics/src/dcdflib/betaln.f new file mode 100755 index 000000000..d9a49b6c4 --- /dev/null +++ b/modules/statistics/src/dcdflib/betaln.f @@ -0,0 +1,103 @@ + DOUBLE PRECISION FUNCTION betaln(a0,b0) +C----------------------------------------------------------------------- +C EVALUATION OF THE LOGARITHM OF THE BETA FUNCTION +C----------------------------------------------------------------------- +C E = 0.5*LN(2*PI) +C-------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION a0,b0 +C .. +C .. Local Scalars .. + DOUBLE PRECISION a,b,c,e,h,u,v,w,z + INTEGER i,n +C .. +C .. External Functions .. + DOUBLE PRECISION algdiv,alnrel,bcorr,gamln,gsumln + EXTERNAL algdiv,alnrel,bcorr,gamln,gsumln +C .. +C .. Intrinsic Functions .. + INTRINSIC dlog,dmax1,dmin1 +C .. +C .. Data statements .. + DATA e/.918938533204673D0/ +C .. +C .. Executable Statements .. +C-------------------------- + a = dmin1(a0,b0) + b = dmax1(a0,b0) + IF (a.GE.8.0D0) GO TO 100 + IF (a.GE.1.0D0) GO TO 20 +C----------------------------------------------------------------------- +C PROCEDURE WHEN A .LT. 1 +C----------------------------------------------------------------------- + IF (b.GE.8.0D0) GO TO 10 + betaln = gamln(a) + (gamln(b)-gamln(a+b)) + RETURN + + 10 betaln = gamln(a) + algdiv(a,b) + RETURN +C----------------------------------------------------------------------- +C PROCEDURE WHEN 1 .LE. A .LT. 8 +C----------------------------------------------------------------------- + 20 IF (a.GT.2.0D0) GO TO 40 + IF (b.GT.2.0D0) GO TO 30 + betaln = gamln(a) + gamln(b) - gsumln(a,b) + RETURN + + 30 w = 0.0D0 + IF (b.LT.8.0D0) GO TO 60 + betaln = gamln(a) + algdiv(a,b) + RETURN +C +C REDUCTION OF A WHEN B .LE. 1000 +C + 40 IF (b.GT.1000.0D0) GO TO 80 + n = a - 1.0D0 + w = 1.0D0 + DO 50 i = 1,n + a = a - 1.0D0 + h = a/b + w = w* (h/ (1.0D0+h)) + 50 CONTINUE + w = dlog(w) + IF (b.LT.8.0D0) GO TO 60 + betaln = w + gamln(a) + algdiv(a,b) + RETURN +C +C REDUCTION OF B WHEN B .LT. 8 +C + 60 n = b - 1.0D0 + z = 1.0D0 + DO 70 i = 1,n + b = b - 1.0D0 + z = z* (b/ (a+b)) + 70 CONTINUE + betaln = w + dlog(z) + (gamln(a)+ (gamln(b)-gsumln(a,b))) + RETURN +C +C REDUCTION OF A WHEN B .GT. 1000 +C + 80 n = a - 1.0D0 + w = 1.0D0 + DO 90 i = 1,n + a = a - 1.0D0 + w = w* (a/ (1.0D0+a/b)) + 90 CONTINUE + betaln = (dlog(w)-n*dlog(b)) + (gamln(a)+algdiv(a,b)) + RETURN +C----------------------------------------------------------------------- +C PROCEDURE WHEN A .GE. 8 +C----------------------------------------------------------------------- + 100 w = bcorr(a,b) + h = a/b + c = h/ (1.0D0+h) + u = - (a-0.5D0)*dlog(c) + v = b*alnrel(h) + IF (u.LE.v) GO TO 110 + betaln = (((-0.5D0*dlog(b)+e)+w)-v) - u + RETURN + + 110 betaln = (((-0.5D0*dlog(b)+e)+w)-u) - v + RETURN + + END diff --git a/modules/statistics/src/dcdflib/betaln.lo b/modules/statistics/src/dcdflib/betaln.lo new file mode 100755 index 000000000..a7e494f74 --- /dev/null +++ b/modules/statistics/src/dcdflib/betaln.lo @@ -0,0 +1,12 @@ +# src/dcdflib/betaln.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/betaln.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/bfrac.f b/modules/statistics/src/dcdflib/bfrac.f new file mode 100755 index 000000000..1557eca8d --- /dev/null +++ b/modules/statistics/src/dcdflib/bfrac.f @@ -0,0 +1,77 @@ + DOUBLE PRECISION FUNCTION bfrac(a,b,x,y,lambda,eps) +C----------------------------------------------------------------------- +C CONTINUED FRACTION EXPANSION FOR IX(A,B) WHEN A,B .GT. 1. +C IT IS ASSUMED THAT LAMBDA = (A + B)*Y - B. +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION a,b,eps,lambda,x,y +C .. +C .. Local Scalars .. + DOUBLE PRECISION alpha,an,anp1,beta,bn,bnp1,c,c0,c1,e,n,p,r,r0,s, + + t,w,yp1 +C .. +C .. External Functions .. + DOUBLE PRECISION brcomp + EXTERNAL brcomp +C .. +C .. Intrinsic Functions .. + INTRINSIC abs +C .. +C .. Executable Statements .. +C-------------------- + bfrac = brcomp(a,b,x,y) + IF (bfrac.EQ.0.0D0) RETURN +C + c = 1.0D0 + lambda + c0 = b/a + c1 = 1.0D0 + 1.0D0/a + yp1 = y + 1.0D0 +C + n = 0.0D0 + p = 1.0D0 + s = a + 1.0D0 + an = 0.0D0 + bn = 1.0D0 + anp1 = 1.0D0 + bnp1 = c/c1 + r = c1/c +C +C CONTINUED FRACTION CALCULATION +C + 10 n = n + 1.0D0 + t = n/a + w = n* (b-n)*x + e = a/s + alpha = (p* (p+c0)*e*e)* (w*x) + e = (1.0D0+t)/ (c1+t+t) + beta = n + w/s + e* (c+n*yp1) + p = 1.0D0 + t + s = s + 2.0D0 +C +C UPDATE AN, BN, ANP1, AND BNP1 +C + t = alpha*an + beta*anp1 + an = anp1 + anp1 = t + t = alpha*bn + beta*bnp1 + bn = bnp1 + bnp1 = t +C + r0 = r + r = anp1/bnp1 + IF (abs(r-r0).LE.eps*r) GO TO 20 +C +C RESCALE AN, BN, ANP1, AND BNP1 +C + an = an/bnp1 + bn = bn/bnp1 + anp1 = r + bnp1 = 1.0D0 + GO TO 10 +C +C TERMINATION +C + 20 bfrac = bfrac*r + RETURN + + END diff --git a/modules/statistics/src/dcdflib/bfrac.lo b/modules/statistics/src/dcdflib/bfrac.lo new file mode 100755 index 000000000..13dd6779d --- /dev/null +++ b/modules/statistics/src/dcdflib/bfrac.lo @@ -0,0 +1,12 @@ +# src/dcdflib/bfrac.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/bfrac.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/bgrat.f b/modules/statistics/src/dcdflib/bgrat.f new file mode 100755 index 000000000..e6a707b65 --- /dev/null +++ b/modules/statistics/src/dcdflib/bgrat.f @@ -0,0 +1,93 @@ + SUBROUTINE bgrat(a,b,x,y,w,eps,ierr) +C----------------------------------------------------------------------- +C ASYMPTOTIC EXPANSION FOR IX(A,B) WHEN A IS LARGER THAN B. +C THE RESULT OF THE EXPANSION IS ADDED TO W. IT IS ASSUMED +C THAT A .GE. 15 AND B .LE. 1. EPS IS THE TOLERANCE USED. +C IERR IS A VARIABLE THAT REPORTS THE STATUS OF THE RESULTS. +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION a,b,eps,w,x,y + INTEGER ierr +C .. +C .. Local Scalars .. + DOUBLE PRECISION bm1,bp2n,cn,coef,dj,j,l,lnx,n2,nu,p,q,r,s,sum,t, + + t2,u,v,z + INTEGER i,n,nm1 +C .. +C .. Local Arrays .. + DOUBLE PRECISION c(30),d(30) +C .. +C .. External Functions .. + DOUBLE PRECISION algdiv,alnrel,gam1 + EXTERNAL algdiv,alnrel,gam1 +C .. +C .. External Subroutines .. + EXTERNAL grat1 +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,dlog,exp +C .. +C .. Executable Statements .. +C + bm1 = (b-0.5D0) - 0.5D0 + nu = a + 0.5D0*bm1 + IF (y.GT.0.375D0) GO TO 10 + lnx = alnrel(-y) + GO TO 20 + + 10 lnx = dlog(x) + 20 z = -nu*lnx + IF (b*z.EQ.0.0D0) GO TO 70 +C +C COMPUTATION OF THE EXPANSION +C SET R = EXP(-Z)*Z**B/GAMMA(B) +C + r = b* (1.0D0+gam1(b))*exp(b*dlog(z)) + r = r*exp(a*lnx)*exp(0.5D0*bm1*lnx) + u = algdiv(b,a) + b*dlog(nu) + u = r*exp(-u) + IF (u.EQ.0.0D0) GO TO 70 + CALL grat1(b,z,r,p,q,eps) +C + v = 0.25D0* (1.0D0/nu)**2 + t2 = 0.25D0*lnx*lnx + l = w/u + j = q/r + sum = j + t = 1.0D0 + cn = 1.0D0 + n2 = 0.0D0 + DO 50 n = 1,30 + bp2n = b + n2 + j = (bp2n* (bp2n+1.0D0)*j+ (z+bp2n+1.0D0)*t)*v + n2 = n2 + 2.0D0 + t = t*t2 + cn = cn/ (n2* (n2+1.0D0)) + c(n) = cn + s = 0.0D0 + IF (n.EQ.1) GO TO 40 + nm1 = n - 1 + coef = b - n + DO 30 i = 1,nm1 + s = s + coef*c(i)*d(n-i) + coef = coef + b + 30 CONTINUE + 40 d(n) = bm1*cn + s/n + dj = d(n)*j + sum = sum + dj + IF (sum.LE.0.0D0) GO TO 70 + IF (abs(dj).LE.eps* (sum+l)) GO TO 60 + 50 CONTINUE +C +C ADD THE RESULTS TO W +C + 60 ierr = 0 + w = w + u*sum + RETURN +C +C THE EXPANSION CANNOT BE COMPUTED +C + 70 ierr = 1 + RETURN + + END diff --git a/modules/statistics/src/dcdflib/bgrat.lo b/modules/statistics/src/dcdflib/bgrat.lo new file mode 100755 index 000000000..e16d301e9 --- /dev/null +++ b/modules/statistics/src/dcdflib/bgrat.lo @@ -0,0 +1,12 @@ +# src/dcdflib/bgrat.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/bgrat.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/bpser.f b/modules/statistics/src/dcdflib/bpser.f new file mode 100755 index 000000000..802f0a6db --- /dev/null +++ b/modules/statistics/src/dcdflib/bpser.f @@ -0,0 +1,99 @@ + DOUBLE PRECISION FUNCTION bpser(a,b,x,eps) +C----------------------------------------------------------------------- +C POWER SERIES EXPANSION FOR EVALUATING IX(A,B) WHEN B .LE. 1 +C OR B*X .LE. 0.7. EPS IS THE TOLERANCE USED. +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION a,b,eps,x +C .. +C .. Local Scalars .. + DOUBLE PRECISION a0,apb,b0,c,n,sum,t,tol,u,w,z + INTEGER i,m +C .. +C .. External Functions .. + DOUBLE PRECISION algdiv,betaln,gam1,gamln1 + EXTERNAL algdiv,betaln,gam1,gamln1 +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,dble,dlog,dmax1,dmin1,exp +C .. +C .. Executable Statements .. +C + bpser = 0.0D0 + IF (x.EQ.0.0D0) RETURN +C----------------------------------------------------------------------- +C COMPUTE THE FACTOR X**A/(A*BETA(A,B)) +C----------------------------------------------------------------------- + a0 = dmin1(a,b) + IF (a0.LT.1.0D0) GO TO 10 + z = a*dlog(x) - betaln(a,b) + bpser = exp(z)/a + GO TO 100 + + 10 b0 = dmax1(a,b) + IF (b0.GE.8.0D0) GO TO 90 + IF (b0.GT.1.0D0) GO TO 40 +C +C PROCEDURE FOR A0 .LT. 1 AND B0 .LE. 1 +C + bpser = x**a + IF (bpser.EQ.0.0D0) RETURN +C + apb = a + b + IF (apb.GT.1.0D0) GO TO 20 + z = 1.0D0 + gam1(apb) + GO TO 30 + + 20 u = dble(a) + dble(b) - 1.D0 + z = (1.0D0+gam1(u))/apb +C + 30 c = (1.0D0+gam1(a))* (1.0D0+gam1(b))/z + bpser = bpser*c* (b/apb) + GO TO 100 +C +C PROCEDURE FOR A0 .LT. 1 AND 1 .LT. B0 .LT. 8 +C + 40 u = gamln1(a0) + m = b0 - 1.0D0 + IF (m.LT.1) GO TO 60 + c = 1.0D0 + DO 50 i = 1,m + b0 = b0 - 1.0D0 + c = c* (b0/ (a0+b0)) + 50 CONTINUE + u = dlog(c) + u +C + 60 z = a*dlog(x) - u + b0 = b0 - 1.0D0 + apb = a0 + b0 + IF (apb.GT.1.0D0) GO TO 70 + t = 1.0D0 + gam1(apb) + GO TO 80 + + 70 u = dble(a0) + dble(b0) - 1.D0 + t = (1.0D0+gam1(u))/apb + 80 bpser = exp(z)* (a0/a)* (1.0D0+gam1(b0))/t + GO TO 100 +C +C PROCEDURE FOR A0 .LT. 1 AND B0 .GE. 8 +C + 90 u = gamln1(a0) + algdiv(a0,b0) + z = a*dlog(x) - u + bpser = (a0/a)*exp(z) + 100 IF (bpser.EQ.0.0D0 .OR. a.LE.0.1D0*eps) RETURN +C----------------------------------------------------------------------- +C COMPUTE THE SERIES +C----------------------------------------------------------------------- + sum = 0.0D0 + n = 0.0D0 + c = 1.0D0 + tol = eps/a + 110 n = n + 1.0D0 + c = c* (0.5D0+ (0.5D0-b/n))*x + w = c/ (a+n) + sum = sum + w + IF (abs(w).GT.tol) GO TO 110 + bpser = bpser* (1.0D0+a*sum) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/bpser.lo b/modules/statistics/src/dcdflib/bpser.lo new file mode 100755 index 000000000..a41991a2e --- /dev/null +++ b/modules/statistics/src/dcdflib/bpser.lo @@ -0,0 +1,12 @@ +# src/dcdflib/bpser.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/bpser.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/bratio.f b/modules/statistics/src/dcdflib/bratio.f new file mode 100755 index 000000000..7cd451126 --- /dev/null +++ b/modules/statistics/src/dcdflib/bratio.f @@ -0,0 +1,236 @@ + SUBROUTINE bratio(a,b,x,y,w,w1,ierr) +C----------------------------------------------------------------------- +C +C EVALUATION OF THE INCOMPLETE BETA FUNCTION IX(A,B) +C +C -------------------- +C +C IT IS ASSUMED THAT A AND B ARE NONNEGATIVE, AND THAT X .LE. 1 +C AND Y = 1 - X. BRATIO ASSIGNS W AND W1 THE VALUES +C +C W = IX(A,B) +C W1 = 1 - IX(A,B) +C +C IERR IS A VARIABLE THAT REPORTS THE STATUS OF THE RESULTS. +C IF NO INPUT ERRORS ARE DETECTED THEN IERR IS SET TO 0 AND +C W AND W1 ARE COMPUTED. OTHERWISE, IF AN ERROR IS DETECTED, +C THEN W AND W1 ARE ASSIGNED THE VALUE 0 AND IERR IS SET TO +C ONE OF THE FOLLOWING VALUES ... +C +C IERR = 1 IF A OR B IS NEGATIVE +C IERR = 2 IF A = B = 0 +C IERR = 3 IF X .LT. 0 OR X .GT. 1 +C IERR = 4 IF Y .LT. 0 OR Y .GT. 1 +C IERR = 5 IF X + Y .NE. 1 +C IERR = 6 IF X = A = 0 +C IERR = 7 IF Y = B = 0 +C +C-------------------- +C WRITTEN BY ALFRED H. MORRIS, JR. +C NAVAL SURFACE WARFARE CENTER +C DAHLGREN, VIRGINIA +C REVISED ... NOV 1991 +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION a,b,w,w1,x,y + INTEGER ierr +C .. +C .. Local Scalars .. + DOUBLE PRECISION a0,b0,eps,lambda,t,x0,y0,z + INTEGER ierr1,ind,n +C .. +C .. External Functions .. + DOUBLE PRECISION apser,basym,bfrac,bpser,bup,fpser,spmpar + EXTERNAL apser,basym,bfrac,bpser,bup,fpser,spmpar +C .. +C .. External Subroutines .. + EXTERNAL bgrat +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,dmax1,dmin1 +C .. +C .. Executable Statements .. +C----------------------------------------------------------------------- +C +C ****** EPS IS A MACHINE DEPENDENT CONSTANT. EPS IS THE SMALLEST +C FLOATING POINT NUMBER FOR WHICH 1.0 + EPS .GT. 1.0 +C + eps = spmpar(1) +C +C----------------------------------------------------------------------- + w = 0.0D0 + w1 = 0.0D0 + IF (a.LT.0.0D0 .OR. b.LT.0.0D0) GO TO 270 + IF (a.EQ.0.0D0 .AND. b.EQ.0.0D0) GO TO 280 + IF (x.LT.0.0D0 .OR. x.GT.1.0D0) GO TO 290 + IF (y.LT.0.0D0 .OR. y.GT.1.0D0) GO TO 300 + z = ((x+y)-0.5D0) - 0.5D0 + IF (abs(z).GT.3.0D0*eps) GO TO 310 +C + ierr = 0 + IF (x.EQ.0.0D0) GO TO 210 + IF (y.EQ.0.0D0) GO TO 230 + IF (a.EQ.0.0D0) GO TO 240 + IF (b.EQ.0.0D0) GO TO 220 +C + eps = dmax1(eps,1.D-15) + IF (dmax1(a,b).LT.1.D-3*eps) GO TO 260 +C + ind = 0 + a0 = a + b0 = b + x0 = x + y0 = y + IF (dmin1(a0,b0).GT.1.0D0) GO TO 40 +C +C PROCEDURE FOR A0 .LE. 1 OR B0 .LE. 1 +C + IF (x.LE.0.5D0) GO TO 10 + ind = 1 + a0 = b + b0 = a + x0 = y + y0 = x +C + 10 IF (b0.LT.dmin1(eps,eps*a0)) GO TO 90 + IF (a0.LT.dmin1(eps,eps*b0) .AND. b0*x0.LE.1.0D0) GO TO 100 + IF (dmax1(a0,b0).GT.1.0D0) GO TO 20 + IF (a0.GE.dmin1(0.2D0,b0)) GO TO 110 + IF (x0**a0.LE.0.9D0) GO TO 110 + IF (x0.GE.0.3D0) GO TO 120 + n = 20 + GO TO 140 +C + 20 IF (b0.LE.1.0D0) GO TO 110 + IF (x0.GE.0.3D0) GO TO 120 + IF (x0.GE.0.1D0) GO TO 30 + IF ((x0*b0)**a0.LE.0.7D0) GO TO 110 + 30 IF (b0.GT.15.0D0) GO TO 150 + n = 20 + GO TO 140 +C +C PROCEDURE FOR A0 .GT. 1 AND B0 .GT. 1 +C + 40 IF (a.GT.b) GO TO 50 + lambda = a - (a+b)*x + GO TO 60 + + 50 lambda = (a+b)*y - b + 60 IF (lambda.GE.0.0D0) GO TO 70 + ind = 1 + a0 = b + b0 = a + x0 = y + y0 = x + lambda = abs(lambda) +C + 70 IF (b0.LT.40.0D0 .AND. b0*x0.LE.0.7D0) GO TO 110 + IF (b0.LT.40.0D0) GO TO 160 + IF (a0.GT.b0) GO TO 80 + IF (a0.LE.100.0D0) GO TO 130 + IF (lambda.GT.0.03D0*a0) GO TO 130 + GO TO 200 + + 80 IF (b0.LE.100.0D0) GO TO 130 + IF (lambda.GT.0.03D0*b0) GO TO 130 + GO TO 200 +C +C EVALUATION OF THE APPROPRIATE ALGORITHM +C + 90 w = fpser(a0,b0,x0,eps) + w1 = 0.5D0 + (0.5D0-w) + GO TO 250 +C + 100 w1 = apser(a0,b0,x0,eps) + w = 0.5D0 + (0.5D0-w1) + GO TO 250 +C + 110 w = bpser(a0,b0,x0,eps) + w1 = 0.5D0 + (0.5D0-w) + GO TO 250 +C + 120 w1 = bpser(b0,a0,y0,eps) + w = 0.5D0 + (0.5D0-w1) + GO TO 250 +C + 130 w = bfrac(a0,b0,x0,y0,lambda,15.0D0*eps) + w1 = 0.5D0 + (0.5D0-w) + GO TO 250 +C + 140 w1 = bup(b0,a0,y0,x0,n,eps) + b0 = b0 + n + 150 CALL bgrat(b0,a0,y0,x0,w1,15.0D0*eps,ierr1) + w = 0.5D0 + (0.5D0-w1) + GO TO 250 +C + 160 n = b0 + b0 = b0 - n + IF (b0.NE.0.0D0) GO TO 170 + n = n - 1 + b0 = 1.0D0 + 170 w = bup(b0,a0,y0,x0,n,eps) + IF (x0.GT.0.7D0) GO TO 180 + w = w + bpser(a0,b0,x0,eps) + w1 = 0.5D0 + (0.5D0-w) + GO TO 250 +C + 180 IF (a0.GT.15.0D0) GO TO 190 + n = 20 + w = w + bup(a0,b0,x0,y0,n,eps) + a0 = a0 + n + 190 CALL bgrat(a0,b0,x0,y0,w,15.0D0*eps,ierr1) + w1 = 0.5D0 + (0.5D0-w) + GO TO 250 +C + 200 w = basym(a0,b0,lambda,100.0D0*eps) + w1 = 0.5D0 + (0.5D0-w) + GO TO 250 +C +C TERMINATION OF THE PROCEDURE +C + 210 IF (a.EQ.0.0D0) GO TO 320 + 220 w = 0.0D0 + w1 = 1.0D0 + RETURN +C + 230 IF (b.EQ.0.0D0) GO TO 330 + 240 w = 1.0D0 + w1 = 0.0D0 + RETURN +C + 250 IF (ind.EQ.0) RETURN + t = w + w = w1 + w1 = t + RETURN +C +C PROCEDURE FOR A AND B .LT. 1.E-3*EPS +C + 260 w = b/ (a+b) + w1 = a/ (a+b) + RETURN +C +C ERROR RETURN +C + 270 ierr = 1 + RETURN + + 280 ierr = 2 + RETURN + + 290 ierr = 3 + RETURN + + 300 ierr = 4 + RETURN + + 310 ierr = 5 + RETURN + + 320 ierr = 6 + RETURN + + 330 ierr = 7 + RETURN + + END diff --git a/modules/statistics/src/dcdflib/bratio.lo b/modules/statistics/src/dcdflib/bratio.lo new file mode 100755 index 000000000..0a8ef1129 --- /dev/null +++ b/modules/statistics/src/dcdflib/bratio.lo @@ -0,0 +1,12 @@ +# src/dcdflib/bratio.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/bratio.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/brcmp1.f b/modules/statistics/src/dcdflib/brcmp1.f new file mode 100755 index 000000000..ae3b412c4 --- /dev/null +++ b/modules/statistics/src/dcdflib/brcmp1.f @@ -0,0 +1,136 @@ + DOUBLE PRECISION FUNCTION brcmp1(mu,a,b,x,y) +C----------------------------------------------------------------------- +C EVALUATION OF EXP(MU) * (X**A*Y**B/BETA(A,B)) +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION a,b,x,y + INTEGER mu +C .. +C .. Local Scalars .. + DOUBLE PRECISION a0,apb,b0,c,const,e,h,lambda,lnx,lny,t,u,v,x0,y0, + + z + INTEGER i,n +C .. +C .. External Functions .. + DOUBLE PRECISION algdiv,alnrel,bcorr,betaln,esum,gam1,gamln1,rlog1 + EXTERNAL algdiv,alnrel,bcorr,betaln,esum,gam1,gamln1,rlog1 +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,dble,dlog,dmax1,dmin1,exp,sqrt +C .. +C .. Data statements .. +C----------------- +C CONST = 1/SQRT(2*PI) +C----------------- + DATA const/.398942280401433D0/ +C .. +C .. Executable Statements .. +C + a0 = dmin1(a,b) + IF (a0.GE.8.0D0) GO TO 130 +C + IF (x.GT.0.375D0) GO TO 10 + lnx = dlog(x) + lny = alnrel(-x) + GO TO 30 + + 10 IF (y.GT.0.375D0) GO TO 20 + lnx = alnrel(-y) + lny = dlog(y) + GO TO 30 + + 20 lnx = dlog(x) + lny = dlog(y) +C + 30 z = a*lnx + b*lny + IF (a0.LT.1.0D0) GO TO 40 + z = z - betaln(a,b) + brcmp1 = esum(mu,z) + RETURN +C----------------------------------------------------------------------- +C PROCEDURE FOR A .LT. 1 OR B .LT. 1 +C----------------------------------------------------------------------- + 40 b0 = dmax1(a,b) + IF (b0.GE.8.0D0) GO TO 120 + IF (b0.GT.1.0D0) GO TO 70 +C +C ALGORITHM FOR B0 .LE. 1 +C + brcmp1 = esum(mu,z) + IF (brcmp1.EQ.0.0D0) RETURN +C + apb = a + b + IF (apb.GT.1.0D0) GO TO 50 + z = 1.0D0 + gam1(apb) + GO TO 60 + + 50 u = dble(a) + dble(b) - 1.D0 + z = (1.0D0+gam1(u))/apb +C + 60 c = (1.0D0+gam1(a))* (1.0D0+gam1(b))/z + brcmp1 = brcmp1* (a0*c)/ (1.0D0+a0/b0) + RETURN +C +C ALGORITHM FOR 1 .LT. B0 .LT. 8 +C + 70 u = gamln1(a0) + n = b0 - 1.0D0 + IF (n.LT.1) GO TO 90 + c = 1.0D0 + DO 80 i = 1,n + b0 = b0 - 1.0D0 + c = c* (b0/ (a0+b0)) + 80 CONTINUE + u = dlog(c) + u +C + 90 z = z - u + b0 = b0 - 1.0D0 + apb = a0 + b0 + IF (apb.GT.1.0D0) GO TO 100 + t = 1.0D0 + gam1(apb) + GO TO 110 + + 100 u = dble(a0) + dble(b0) - 1.D0 + t = (1.0D0+gam1(u))/apb + 110 brcmp1 = a0*esum(mu,z)* (1.0D0+gam1(b0))/t + RETURN +C +C ALGORITHM FOR B0 .GE. 8 +C + 120 u = gamln1(a0) + algdiv(a0,b0) + brcmp1 = a0*esum(mu,z-u) + RETURN +C----------------------------------------------------------------------- +C PROCEDURE FOR A .GE. 8 AND B .GE. 8 +C----------------------------------------------------------------------- + 130 IF (a.GT.b) GO TO 140 + h = a/b + x0 = h/ (1.0D0+h) + y0 = 1.0D0/ (1.0D0+h) + lambda = a - (a+b)*x + GO TO 150 + + 140 h = b/a + x0 = 1.0D0/ (1.0D0+h) + y0 = h/ (1.0D0+h) + lambda = (a+b)*y - b +C + 150 e = -lambda/a + IF (abs(e).GT.0.6D0) GO TO 160 + u = rlog1(e) + GO TO 170 + + 160 u = e - dlog(x/x0) +C + 170 e = lambda/b + IF (abs(e).GT.0.6D0) GO TO 180 + v = rlog1(e) + GO TO 190 + + 180 v = e - dlog(y/y0) +C + 190 z = esum(mu,- (a*u+b*v)) + brcmp1 = const*sqrt(b*x0)*z*exp(-bcorr(a,b)) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/brcmp1.lo b/modules/statistics/src/dcdflib/brcmp1.lo new file mode 100755 index 000000000..7577d6829 --- /dev/null +++ b/modules/statistics/src/dcdflib/brcmp1.lo @@ -0,0 +1,12 @@ +# src/dcdflib/brcmp1.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/brcmp1.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/brcomp.f b/modules/statistics/src/dcdflib/brcomp.f new file mode 100755 index 000000000..f54cfd145 --- /dev/null +++ b/modules/statistics/src/dcdflib/brcomp.f @@ -0,0 +1,137 @@ + DOUBLE PRECISION FUNCTION brcomp(a,b,x,y) +C----------------------------------------------------------------------- +C EVALUATION OF X**A*Y**B/BETA(A,B) +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION a,b,x,y +C .. +C .. Local Scalars .. + DOUBLE PRECISION a0,apb,b0,c,const,e,h,lambda,lnx,lny,t,u,v,x0,y0, + + z + INTEGER i,n +C .. +C .. External Functions .. + DOUBLE PRECISION algdiv,alnrel,bcorr,betaln,gam1,gamln1,rlog1 + EXTERNAL algdiv,alnrel,bcorr,betaln,gam1,gamln1,rlog1 +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,dble,dlog,dmax1,dmin1,exp,sqrt +C .. +C .. Data statements .. +C----------------- +C CONST = 1/SQRT(2*PI) +C----------------- + DATA const/.398942280401433D0/ +C .. +C .. Executable Statements .. +C + brcomp = 0.0D0 + IF (x.EQ.0.0D0 .OR. y.EQ.0.0D0) RETURN + a0 = dmin1(a,b) + IF (a0.GE.8.0D0) GO TO 130 +C + IF (x.GT.0.375D0) GO TO 10 + lnx = dlog(x) + lny = alnrel(-x) + GO TO 30 + + 10 IF (y.GT.0.375D0) GO TO 20 + lnx = alnrel(-y) + lny = dlog(y) + GO TO 30 + + 20 lnx = dlog(x) + lny = dlog(y) +C + 30 z = a*lnx + b*lny + IF (a0.LT.1.0D0) GO TO 40 + z = z - betaln(a,b) + brcomp = exp(z) + RETURN +C----------------------------------------------------------------------- +C PROCEDURE FOR A .LT. 1 OR B .LT. 1 +C----------------------------------------------------------------------- + 40 b0 = dmax1(a,b) + IF (b0.GE.8.0D0) GO TO 120 + IF (b0.GT.1.0D0) GO TO 70 +C +C ALGORITHM FOR B0 .LE. 1 +C + brcomp = exp(z) + IF (brcomp.EQ.0.0D0) RETURN +C + apb = a + b + IF (apb.GT.1.0D0) GO TO 50 + z = 1.0D0 + gam1(apb) + GO TO 60 + + 50 u = dble(a) + dble(b) - 1.D0 + z = (1.0D0+gam1(u))/apb +C + 60 c = (1.0D0+gam1(a))* (1.0D0+gam1(b))/z + brcomp = brcomp* (a0*c)/ (1.0D0+a0/b0) + RETURN +C +C ALGORITHM FOR 1 .LT. B0 .LT. 8 +C + 70 u = gamln1(a0) + n = b0 - 1.0D0 + IF (n.LT.1) GO TO 90 + c = 1.0D0 + DO 80 i = 1,n + b0 = b0 - 1.0D0 + c = c* (b0/ (a0+b0)) + 80 CONTINUE + u = dlog(c) + u +C + 90 z = z - u + b0 = b0 - 1.0D0 + apb = a0 + b0 + IF (apb.GT.1.0D0) GO TO 100 + t = 1.0D0 + gam1(apb) + GO TO 110 + + 100 u = dble(a0) + dble(b0) - 1.D0 + t = (1.0D0+gam1(u))/apb + 110 brcomp = a0*exp(z)* (1.0D0+gam1(b0))/t + RETURN +C +C ALGORITHM FOR B0 .GE. 8 +C + 120 u = gamln1(a0) + algdiv(a0,b0) + brcomp = a0*exp(z-u) + RETURN +C----------------------------------------------------------------------- +C PROCEDURE FOR A .GE. 8 AND B .GE. 8 +C----------------------------------------------------------------------- + 130 IF (a.GT.b) GO TO 140 + h = a/b + x0 = h/ (1.0D0+h) + y0 = 1.0D0/ (1.0D0+h) + lambda = a - (a+b)*x + GO TO 150 + + 140 h = b/a + x0 = 1.0D0/ (1.0D0+h) + y0 = h/ (1.0D0+h) + lambda = (a+b)*y - b +C + 150 e = -lambda/a + IF (abs(e).GT.0.6D0) GO TO 160 + u = rlog1(e) + GO TO 170 + + 160 u = e - dlog(x/x0) +C + 170 e = lambda/b + IF (abs(e).GT.0.6D0) GO TO 180 + v = rlog1(e) + GO TO 190 + + 180 v = e - dlog(y/y0) +C + 190 z = exp(- (a*u+b*v)) + brcomp = const*sqrt(b*x0)*z*exp(-bcorr(a,b)) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/brcomp.lo b/modules/statistics/src/dcdflib/brcomp.lo new file mode 100755 index 000000000..0bf7abec6 --- /dev/null +++ b/modules/statistics/src/dcdflib/brcomp.lo @@ -0,0 +1,12 @@ +# src/dcdflib/brcomp.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/brcomp.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/bup.f b/modules/statistics/src/dcdflib/bup.f new file mode 100755 index 000000000..2df254e84 --- /dev/null +++ b/modules/statistics/src/dcdflib/bup.f @@ -0,0 +1,81 @@ + DOUBLE PRECISION FUNCTION bup(a,b,x,y,n,eps) +C----------------------------------------------------------------------- +C EVALUATION OF IX(A,B) - IX(A+N,B) WHERE N IS A POSITIVE INTEGER. +C EPS IS THE TOLERANCE USED. +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION a,b,eps,x,y + INTEGER n +C .. +C .. Local Scalars .. + DOUBLE PRECISION ap1,apb,d,l,r,t,w + INTEGER i,k,kp1,mu,nm1 +C .. +C .. External Functions .. + DOUBLE PRECISION brcmp1,exparg + EXTERNAL brcmp1,exparg +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,exp +C .. +C .. Executable Statements .. +C +C OBTAIN THE SCALING FACTOR EXP(-MU) AND +C EXP(MU)*(X**A*Y**B/BETA(A,B))/A +C + apb = a + b + ap1 = a + 1.0D0 + mu = 0 + d = 1.0D0 + IF (n.EQ.1 .OR. a.LT.1.0D0) GO TO 10 + IF (apb.LT.1.1D0*ap1) GO TO 10 + mu = abs(exparg(1)) + k = exparg(0) + IF (k.LT.mu) mu = k + t = mu + d = exp(-t) +C + 10 bup = brcmp1(mu,a,b,x,y)/a + IF (n.EQ.1 .OR. bup.EQ.0.0D0) RETURN + nm1 = n - 1 + w = d +C +C LET K BE THE INDEX OF THE MAXIMUM TERM +C + k = 0 + IF (b.LE.1.0D0) GO TO 50 + IF (y.GT.1.D-4) GO TO 20 + k = nm1 + GO TO 30 + + 20 r = (b-1.0D0)*x/y - a + IF (r.LT.1.0D0) GO TO 50 + k = nm1 + t = nm1 + IF (r.LT.t) k = r +C +C ADD THE INCREASING TERMS OF THE SERIES +C + 30 DO 40 i = 1,k + l = i - 1 + d = ((apb+l)/ (ap1+l))*x*d + w = w + d + 40 CONTINUE + IF (k.EQ.nm1) GO TO 70 +C +C ADD THE REMAINING TERMS OF THE SERIES +C + 50 kp1 = k + 1 + DO 60 i = kp1,nm1 + l = i - 1 + d = ((apb+l)/ (ap1+l))*x*d + w = w + d + IF (d.LE.eps*w) GO TO 70 + 60 CONTINUE +C +C TERMINATE THE PROCEDURE +C + 70 bup = bup*w + RETURN + + END diff --git a/modules/statistics/src/dcdflib/bup.lo b/modules/statistics/src/dcdflib/bup.lo new file mode 100755 index 000000000..a283d82e6 --- /dev/null +++ b/modules/statistics/src/dcdflib/bup.lo @@ -0,0 +1,12 @@ +# src/dcdflib/bup.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/bup.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cdfbet.f b/modules/statistics/src/dcdflib/cdfbet.f new file mode 100755 index 000000000..99a5d5acc --- /dev/null +++ b/modules/statistics/src/dcdflib/cdfbet.f @@ -0,0 +1,410 @@ + SUBROUTINE cdfbet(which,p,q,x,y,a,b,status,bound) +C********************************************************************** +C +C SUBROUTINE CDFBET( WHICH, P, Q, X, Y, A, B, STATUS, BOUND ) +C Cumulative Distribution Function +C BETa Distribution +C +C +C Function +C +C +C Calculates any one parameter of the beta distribution given +C values for the others. +C +C +C Arguments +C +C +C WHICH --> Integer indicating which of the next four argument +C values is to be calculated from the others. +C Legal range: 1..4 +C iwhich = 1 : Calculate P and Q from X,Y,A and B +C iwhich = 2 : Calculate X and Y from P,Q,A and B +C iwhich = 3 : Calculate A from P,Q,X,Y and B +C iwhich = 4 : Calculate B from P,Q,X,Y and A +C +C INTEGER WHICH +C +C P <--> The integral from 0 to X of the chi-square +C distribution. +C Input range: [0, 1]. +C DOUBLE PRECISION P +C +C Q <--> 1-P. +C Input range: [0, 1]. +C P + Q = 1.0. +C DOUBLE PRECISION Q +C +C X <--> Upper limit of integration of beta density. +C Input range: [0,1]. +C Search range: [0,1] +C DOUBLE PRECISION X +C +C Y <--> 1-X. +C Input range: [0,1]. +C Search range: [0,1] +C X + Y = 1.0. +C DOUBLE PRECISION Y +C +C A <--> The first parameter of the beta density. +C Input range: (0, +infinity). +C Search range: [1D-300,1D300] +C DOUBLE PRECISION A +C +C B <--> The second parameter of the beta density. +C Input range: (0, +infinity). +C Search range: [1D-300,1D300] +C DOUBLE PRECISION B +C +C STATUS <-- 0 if calculation completed correctly +C -I if input parameter number I is out of range +C 1 if answer appears to be lower than lowest +C search bound +C 2 if answer appears to be higher than greatest +C search bound +C 3 if P + Q .ne. 1 +C 4 if X + Y .ne. 1 +C INTEGER STATUS +C +C BOUND <-- Undefined if STATUS is 0 +C +C Bound exceeded by parameter number I if STATUS +C is negative. +C +C Lower search bound if STATUS is 1. +C +C Upper search bound if STATUS is 2. +C +C +C Method +C +C +C Cumulative distribution function (P) is calculated directly by +C code associated with the following reference. +C +C DiDinato, A. R. and Morris, A. H. Algorithm 708: Significant +C Digit Computation of the Incomplete Beta Function Ratios. ACM +C Trans. Math. Softw. 18 (1993), 360-373. +C +C Computation of other parameters involve a search for a value that +C produces the desired value of P. The search relies on the +C monotonicity of P with the other parameter. +C +C +C Note +C +C +C The beta density is proportional to +C t^(A-1) * (1-t)^(B-1) +C +C********************************************************************** +C .. Parameters .. + DOUBLE PRECISION tol + PARAMETER (tol=1.0D-13) + DOUBLE PRECISION atol + PARAMETER (atol=1.0D-50) + DOUBLE PRECISION zero,inf + PARAMETER (zero=1.0D-300,inf=1.0D300) + DOUBLE PRECISION one + PARAMETER (one=1.0D0) +C .. +C .. Scalar Arguments .. + DOUBLE PRECISION a,b,bound,p,q,x,y + INTEGER status,which +C .. +C .. Local Scalars .. + DOUBLE PRECISION fx,xhi,xlo,cum,ccum,xy,pq + LOGICAL qhi,qleft,qporq +C .. +C .. External Functions .. + INTEGER vfinite + DOUBLE PRECISION spmpar + EXTERNAL spmpar +C .. +C .. External Subroutines .. + EXTERNAL cumbet,dinvr,dstinv,dstzr,dzror +C .. +C .. Executable Statements .. +C +C Check arguments +C + IF (.NOT. ((which.LT.1).OR. (which.GT.4))) GO TO 30 + IF (.NOT. (which.LT.1)) GO TO 10 + bound = 1.0D0 + GO TO 20 + + 10 bound = 4.0D0 + 20 status = -1 + RETURN + + 30 IF (which.EQ.1) GO TO 70 +C +C P +C + IF (ISANAN(p).EQ.1) THEN + CALL RETURNANANFORTRAN(a) + CALL RETURNANANFORTRAN(b) + CALL RETURNANANFORTRAN(x) + CALL RETURNANANFORTRAN(y) + RETURN + ENDIF + IF (.NOT. ((p.LT.0.0D0).OR. (p.GT.1.0D0))) GO TO 60 + IF (.NOT. (p.LT.0.0D0)) GO TO 40 + bound = 0.0D0 + GO TO 50 + + 40 bound = 1.0D0 + 50 status = -2 + RETURN + + 60 CONTINUE + 70 IF (which.EQ.1) GO TO 110 +C +C Q +C + IF (ISANAN(q).EQ.1) THEN + CALL RETURNANANFORTRAN(a) + CALL RETURNANANFORTRAN(b) + CALL RETURNANANFORTRAN(x) + CALL RETURNANANFORTRAN(y) + RETURN + ENDIF + IF (.NOT. ((q.LT.0.0D0).OR. (q.GT.1.0D0))) GO TO 100 + IF (.NOT. (q.LT.0.0D0)) GO TO 80 + bound = 0.0D0 + GO TO 90 + + 80 bound = 1.0D0 + 90 status = -3 + RETURN + + 100 CONTINUE + 110 IF (which.EQ.2) GO TO 150 +C +C X +C + IF (ISANAN(x).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(a) + CALL RETURNANANFORTRAN(b) + RETURN + ENDIF + IF (.NOT. ((x.LT.0.0D0).OR. (x.GT.1.0D0))) GO TO 140 + IF (.NOT. (x.LT.0.0D0)) GO TO 120 + bound = 0.0D0 + GO TO 130 + + 120 bound = 1.0D0 + 130 status = -4 + RETURN + + 140 CONTINUE + 150 IF (which.EQ.2) GO TO 190 +C +C Y +C + IF (ISANAN(y).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(a) + CALL RETURNANANFORTRAN(b) + RETURN + ENDIF + IF (.NOT. ((y.LT.0.0D0).OR. (y.GT.1.0D0))) GO TO 180 + IF (.NOT. (y.LT.0.0D0)) GO TO 160 + bound = 0.0D0 + GO TO 170 + + 160 bound = 1.0D0 + 170 status = -5 + RETURN + + 180 CONTINUE + 190 IF (which.EQ.3) GO TO 210 +C +C A +C + IF (ISANAN(a).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(x) + CALL RETURNANANFORTRAN(y) + CALL RETURNANANFORTRAN(b) + RETURN + ENDIF + IF (vfinite(1,a).EQ.0) a = SIGN(inf,a) + IF (.NOT. (a.LE.0.0D0)) GO TO 200 + bound = 0.0D0 + status = -6 + RETURN + + 200 CONTINUE + 210 IF (which.EQ.4) GO TO 230 +C +C B +C + IF (ISANAN(b).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(x) + CALL RETURNANANFORTRAN(y) + CALL RETURNANANFORTRAN(a) + RETURN + ENDIF + IF (vfinite(1,b).EQ.0) b = SIGN(inf,b) + IF (.NOT. (b.LE.0.0D0)) GO TO 220 + bound = 0.0D0 + status = -7 + RETURN + + 220 CONTINUE + 230 IF (which.EQ.1) GO TO 270 +C +C P + Q +C + pq = p + q + IF (.NOT. (abs(((pq)-0.5D0)-0.5D0).GT. + + (3.0D0*spmpar(1)))) GO TO 260 + IF (.NOT. (pq.LT.0.0D0)) GO TO 240 + bound = 0.0D0 + GO TO 250 + + 240 bound = 1.0D0 + 250 status = 3 + RETURN + + 260 CONTINUE + 270 IF (which.EQ.2) GO TO 310 +C +C X + Y +C + xy = x + y + IF (.NOT. (abs(((xy)-0.5D0)-0.5D0).GT. + + (3.0D0*spmpar(1)))) GO TO 300 + IF (.NOT. (xy.LT.0.0D0)) GO TO 280 + bound = 0.0D0 + GO TO 290 + + 280 bound = 1.0D0 + 290 status = 4 + RETURN + + 300 CONTINUE + 310 IF (.NOT. (which.EQ.1)) qporq = p .LE. q +C +C Select the minimum of P or Q +C +C +C Calculate ANSWERS +C + IF ((1).EQ. (which)) THEN +C +C Calculating P and Q +C + CALL cumbet(x,y,a,b,p,q) + status = 0 + + ELSE IF ((2).EQ. (which)) THEN +C +C Calculating X and Y +C + CALL dstzr(0.0D0,1.0D0,atol,tol) + IF (.NOT. (qporq)) GO TO 340 + status = 0 + CALL dzror(status,x,fx,xlo,xhi,qleft,qhi) + y = one - x + 320 IF (.NOT. (status.EQ.1)) GO TO 330 + CALL cumbet(x,y,a,b,cum,ccum) + fx = cum - p + CALL dzror(status,x,fx,xlo,xhi,qleft,qhi) + y = one - x +c write(6,'(''x'',e10.3,''y='',e10.3,''sta='',i3)') x,y,status + GO TO 320 + + 330 GO TO 370 + + 340 status = 0 + CALL dzror(status,y,fx,xlo,xhi,qleft,qhi) + x = one - y + 350 IF (.NOT. (status.EQ.1)) GO TO 360 + CALL cumbet(x,y,a,b,cum,ccum) + fx = ccum - q + CALL dzror(status,y,fx,xlo,xhi,qleft,qhi) + x = one - y + GO TO 350 + + 360 CONTINUE + 370 IF (.NOT. (status.EQ.-1)) GO TO 400 + IF (.NOT. (qleft)) GO TO 380 + status = 1 + bound = 0.0D0 + GO TO 390 + + 380 status = 2 + bound = 1.0D0 + 390 CONTINUE + 400 CONTINUE + + ELSE IF ((3).EQ. (which)) THEN +C +C Computing A +C + a = 5.0D0 + CALL dstinv(zero,inf,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,a,fx,qleft,qhi) + 410 IF (.NOT. (status.EQ.1)) GO TO 440 + CALL cumbet(x,y,a,b,cum,ccum) + IF (.NOT. (qporq)) GO TO 420 + fx = cum - p + GO TO 430 + + 420 fx = ccum - q + 430 CALL dinvr(status,a,fx,qleft,qhi) + GO TO 410 + + 440 IF (.NOT. (status.EQ.-1)) GO TO 470 + IF (.NOT. (qleft)) GO TO 450 + status = 1 + bound = zero + GO TO 460 + + 450 status = 2 + bound = inf + 460 CONTINUE + 470 CONTINUE + + ELSE IF ((4).EQ. (which)) THEN +C +C Computing B +C + b = 5.0D0 + CALL dstinv(zero,inf,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,b,fx,qleft,qhi) + 480 IF (.NOT. (status.EQ.1)) GO TO 510 + CALL cumbet(x,y,a,b,cum,ccum) + IF (.NOT. (qporq)) GO TO 490 + fx = cum - p + GO TO 500 + + 490 fx = ccum - q + 500 CALL dinvr(status,b,fx,qleft,qhi) + GO TO 480 + + 510 IF (.NOT. (status.EQ.-1)) GO TO 540 + IF (.NOT. (qleft)) GO TO 520 + status = 1 + bound = zero + GO TO 530 + + 520 status = 2 + bound = inf + 530 CONTINUE + 540 END IF + + RETURN +C + END diff --git a/modules/statistics/src/dcdflib/cdfbet.lo b/modules/statistics/src/dcdflib/cdfbet.lo new file mode 100755 index 000000000..e8398f633 --- /dev/null +++ b/modules/statistics/src/dcdflib/cdfbet.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cdfbet.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cdfbet.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cdfbin.f b/modules/statistics/src/dcdflib/cdfbin.f new file mode 100755 index 000000000..a2fa5b245 --- /dev/null +++ b/modules/statistics/src/dcdflib/cdfbin.f @@ -0,0 +1,405 @@ + SUBROUTINE cdfbin(which,p,q,s,xn,pr,ompr,status,bound) +C********************************************************************** +C +C SUBROUTINE CDFBIN ( WHICH, P, Q, S, XN, PR, OMPR, STATUS, BOUND ) +C Cumulative Distribution Function +C BINomial distribution +C +C +C Function +C +C +C Calculates any one parameter of the binomial +C distribution given values for the others. +C +C +C Arguments +C +C +C WHICH --> Integer indicating which of the next four argument +C values is to be calculated from the others. +C Legal range: 1..4 +C iwhich = 1 : Calculate P and Q from S,XN,PR and OMPR +C iwhich = 2 : Calculate S from P,Q,XN,PR and OMPR +C iwhich = 3 : Calculate XN from P,Q,S,PR and OMPR +C iwhich = 4 : Calculate PR and OMPR from P,Q,S and XN +C INTEGER WHICH +C +C P <--> The cumulation from 0 to S of the binomial distribution. +C (Probablility of S or fewer successes in XN trials each +C with probability of success PR.) +C Input range: [0,1]. +C DOUBLE PRECISION P +C +C Q <--> 1-P. +C Input range: [0, 1]. +C P + Q = 1.0. +C DOUBLE PRECISION Q +C +C S <--> The number of successes observed. +C Input range: [0, XN] +C Search range: [0, XN] +C DOUBLE PRECISION S +C +C XN <--> The number of binomial trials. +C Input range: (0, +infinity). +C Search range: [1E-300, 1E300] +C DOUBLE PRECISION XN +C +C PR <--> The probability of success in each binomial trial. +C Input range: [0,1]. +C Search range: [0,1] +C DOUBLE PRECISION PR +C +C OMPR <--> 1-PR +C Input range: [0,1]. +C Search range: [0,1] +C PR + OMPR = 1.0 +C DOUBLE PRECISION OMPR +C +C STATUS <-- 0 if calculation completed correctly +C -I if input parameter number I is out of range +C 1 if answer appears to be lower than lowest +C search bound +C 2 if answer appears to be higher than greatest +C search bound +C 3 if P + Q .ne. 1 +C 4 if PR + OMPR .ne. 1 +C INTEGER STATUS +C +C BOUND <-- Undefined if STATUS is 0 +C +C Bound exceeded by parameter number I if STATUS +C is negative. +C +C Lower search bound if STATUS is 1. +C +C Upper search bound if STATUS is 2. +C +C +C Method +C +C +C Formula 26.5.24 of Abramowitz and Stegun, Handbook of +C Mathematical Functions (1966) is used to reduce the binomial +C distribution to the cumulative incomplete beta distribution. +C +C Computation of other parameters involve a search for a value that +C produces the desired value of P. The search relies on the +C monotonicity of P with the other parameter. +C +C +C********************************************************************** + +C .. Parameters .. + DOUBLE PRECISION atol + PARAMETER (atol=1.0D-50) + DOUBLE PRECISION tol + PARAMETER (tol=1.0D-13) + DOUBLE PRECISION zero,inf + PARAMETER (zero=1.0D-300,inf=1.0D300) + DOUBLE PRECISION one + PARAMETER (one=1.0D0) +C .. +C .. Scalar Arguments .. + DOUBLE PRECISION bound,p,q,pr,ompr,s,xn + INTEGER status,which +C .. +C .. Local Scalars .. + DOUBLE PRECISION fx,xhi,xlo,cum,ccum,pq,prompr + LOGICAL qhi,qleft,qporq +C .. +C .. External Functions .. + INTEGER vfinite + DOUBLE PRECISION spmpar + EXTERNAL spmpar +C .. +C .. External Subroutines .. + EXTERNAL dinvr,dstinv,dstzr,dzror,cumbin +C .. +C .. Executable Statements .. +C +C Check arguments + IF ((which.GE.1).AND. (which.LE.4)) GO TO 30 + IF (.NOT. (which.LT.1)) GO TO 10 + bound = 1.0D0 + GO TO 20 + + 10 bound = 4.0D0 + 20 status = -1 + RETURN + + 30 IF (which.EQ.1) GO TO 70 +C +C P +C + IF (ISANAN(p).EQ.1) THEN + CALL RETURNANANFORTRAN(pr) + CALL RETURNANANFORTRAN(ompr) + CALL RETURNANANFORTRAN(s) + CALL RETURNANANFORTRAN(xn) + RETURN + ENDIF + IF (.NOT. ((p.LT.0.0D0).OR. (p.GT.1.0D0))) GO TO 60 + IF (.NOT. (p.LT.0.0D0)) GO TO 40 + bound = 0.0D0 + GO TO 50 + + 40 bound = 1.0D0 + 50 status = -2 + RETURN + + 60 CONTINUE + 70 IF (which.EQ.1) GO TO 110 +C +C Q +C + IF (ISANAN(q).EQ.1) THEN + CALL RETURNANANFORTRAN(pr) + CALL RETURNANANFORTRAN(ompr) + CALL RETURNANANFORTRAN(s) + CALL RETURNANANFORTRAN(xn) + RETURN + ENDIF + IF (.NOT. ((q.LT.0.0D0).OR. (q.GT.1.0D0))) GO TO 100 + IF (.NOT. (q.LT.0.0D0)) GO TO 80 + bound = 0.0D0 + GO TO 90 + + 80 bound = 1.0D0 + 90 status = -3 + RETURN + + 100 CONTINUE + 110 IF (which.EQ.3) GO TO 130 +C +C XN +C + IF (ISANAN(xn).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(s) + CALL RETURNANANFORTRAN(pr) + CALL RETURNANANFORTRAN(ompr) + RETURN + ENDIF + IF (vfinite(1,xn).EQ.0) xn = SIGN(inf,xn) + IF (.NOT. (xn.LE.0.0D0)) GO TO 120 + bound = 0.0D0 + status = -5 + RETURN + + 120 CONTINUE + 130 IF (which.EQ.2) GO TO 170 +C +C S +C + IF (ISANAN(s).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(xn) + CALL RETURNANANFORTRAN(pr) + CALL RETURNANANFORTRAN(ompr) + RETURN + ENDIF + IF (vfinite(1,s).EQ.0) s = SIGN(inf,s) + IF (.NOT. ((s.LT.0.0D0).OR. ((which.NE.3).AND. + + (s.GT.xn)))) GO TO 160 + IF (.NOT. (s.LT.0.0D0)) GO TO 140 + bound = 0.0D0 + GO TO 150 + + 140 bound = xn + 150 status = -4 + RETURN + + 160 CONTINUE + 170 IF (which.EQ.4) GO TO 210 +C +C PR +C + IF (ISANAN(pr).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(s) + CALL RETURNANANFORTRAN(xn) + RETURN + ENDIF + IF (.NOT. ((pr.LT.0.0D0).OR. (pr.GT.1.0D0))) GO TO 200 + IF (.NOT. (pr.LT.0.0D0)) GO TO 180 + bound = 0.0D0 + GO TO 190 + + 180 bound = 1.0D0 + 190 status = -6 + RETURN + + 200 CONTINUE + 210 IF (which.EQ.4) GO TO 250 +C +C OMPR +C + IF (ISANAN(ompr).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(s) + CALL RETURNANANFORTRAN(xn) + RETURN + ENDIF + IF (.NOT. ((ompr.LT.0.0D0).OR. (ompr.GT.1.0D0))) GO TO 240 + IF (.NOT. (ompr.LT.0.0D0)) GO TO 220 + bound = 0.0D0 + GO TO 230 + + 220 bound = 1.0D0 + 230 status = -7 + RETURN + + 240 CONTINUE + 250 IF (which.EQ.1) GO TO 290 +C +C P + Q +C + pq = p + q + IF (.NOT. (abs(((pq)-0.5D0)-0.5D0).GT. + + (3.0D0*spmpar(1)))) GO TO 280 + IF (.NOT. (pq.LT.0.0D0)) GO TO 260 + bound = 0.0D0 + GO TO 270 + + 260 bound = 1.0D0 + 270 status = 3 + RETURN + + 280 CONTINUE + 290 IF (which.EQ.4) GO TO 330 +C +C PR + OMPR +C + prompr = pr + ompr + IF (.NOT. (abs(((prompr)-0.5D0)-0.5D0).GT. + + (3.0D0*spmpar(1)))) GO TO 320 + IF (.NOT. (prompr.LT.0.0D0)) GO TO 300 + bound = 0.0D0 + GO TO 310 + + 300 bound = 1.0D0 + 310 status = 4 + RETURN + + 320 CONTINUE + 330 IF (.NOT. (which.EQ.1)) qporq = p .LE. q +C +C Select the minimum of P or Q +C +C +C Calculate ANSWERS +C + IF ((1).EQ. (which)) THEN +C +C Calculating P +C + CALL cumbin(s,xn,pr,ompr,p,q) + status = 0 + + ELSE IF ((2).EQ. (which)) THEN +C +C Calculating S +C + s = 5.0D0 + CALL dstinv(0.0D0,xn,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,s,fx,qleft,qhi) + 340 IF (.NOT. (status.EQ.1)) GO TO 370 + CALL cumbin(s,xn,pr,ompr,cum,ccum) + IF (.NOT. (qporq)) GO TO 350 + fx = cum - p + GO TO 360 + + 350 fx = ccum - q + 360 CALL dinvr(status,s,fx,qleft,qhi) + GO TO 340 + + 370 IF (.NOT. (status.EQ.-1)) GO TO 400 + IF (.NOT. (qleft)) GO TO 380 + status = 1 + bound = 0.0D0 + GO TO 390 + + 380 status = 2 + bound = xn + 390 CONTINUE + 400 CONTINUE + + ELSE IF ((3).EQ. (which)) THEN +C +C Calculating XN +C + xn = 5.0D0 + CALL dstinv(zero,inf,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,xn,fx,qleft,qhi) + 410 IF (.NOT. (status.EQ.1)) GO TO 440 + CALL cumbin(s,xn,pr,ompr,cum,ccum) + IF (.NOT. (qporq)) GO TO 420 + fx = cum - p + GO TO 430 + + 420 fx = ccum - q + 430 CALL dinvr(status,xn,fx,qleft,qhi) + GO TO 410 + + 440 IF (.NOT. (status.EQ.-1)) GO TO 470 + IF (.NOT. (qleft)) GO TO 450 + status = 1 + bound = zero + GO TO 460 + + 450 status = 2 + bound = inf + 460 CONTINUE + 470 CONTINUE + + ELSE IF ((4).EQ. (which)) THEN +C +C Calculating PR and OMPR +C + CALL dstzr(0.0D0,1.0D0,atol,tol) + IF (.NOT. (qporq)) GO TO 500 + status = 0 + CALL dzror(status,pr,fx,xlo,xhi,qleft,qhi) + ompr = one - pr + 480 IF (.NOT. (status.EQ.1)) GO TO 490 + CALL cumbin(s,xn,pr,ompr,cum,ccum) + fx = cum - p + CALL dzror(status,pr,fx,xlo,xhi,qleft,qhi) + ompr = one - pr + GO TO 480 + + 490 GO TO 530 + + 500 status = 0 + CALL dzror(status,ompr,fx,xlo,xhi,qleft,qhi) + pr = one - ompr + 510 IF (.NOT. (status.EQ.1)) GO TO 520 + CALL cumbin(s,xn,pr,ompr,cum,ccum) + fx = ccum - q + CALL dzror(status,ompr,fx,xlo,xhi,qleft,qhi) + pr = one - ompr + GO TO 510 + + 520 CONTINUE + 530 IF (.NOT. (status.EQ.-1)) GO TO 560 + IF (.NOT. (qleft)) GO TO 540 + status = 1 + bound = 0.0D0 + GO TO 550 + + 540 status = 2 + bound = 1.0D0 + 550 CONTINUE + 560 END IF + + RETURN + + END diff --git a/modules/statistics/src/dcdflib/cdfbin.lo b/modules/statistics/src/dcdflib/cdfbin.lo new file mode 100755 index 000000000..fec6612e9 --- /dev/null +++ b/modules/statistics/src/dcdflib/cdfbin.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cdfbin.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cdfbin.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cdfchi.f b/modules/statistics/src/dcdflib/cdfchi.f new file mode 100755 index 000000000..322951a5a --- /dev/null +++ b/modules/statistics/src/dcdflib/cdfchi.f @@ -0,0 +1,311 @@ + SUBROUTINE cdfchi(which,p,q,x,df,status,bound) +C********************************************************************** +C +C SUBROUTINE CDFCHI( WHICH, P, Q, X, DF, STATUS, BOUND ) +C Cumulative Distribution Function +C CHI-Square distribution +C +C +C Function +C +C +C Calculates any one parameter of the chi-square +C distribution given values for the others. +C +C +C Arguments +C +C +C WHICH --> Integer indicating which of the next three argument +C values is to be calculated from the others. +C Legal range: 1..3 +C iwhich = 1 : Calculate P and Q from X and DF +C iwhich = 2 : Calculate X from P,Q and DF +C iwhich = 3 : Calculate DF from P,Q and X +C INTEGER WHICH +C +C P <--> The integral from 0 to X of the chi-square +C distribution. +C Input range: [0, 1]. +C DOUBLE PRECISION P +C +C Q <--> 1-P. +C Input range: (0, 1]. +C P + Q = 1.0. +C DOUBLE PRECISION Q +C +C X <--> Upper limit of integration of the non-central +C chi-square distribution. +C Input range: [0, +infinity). +C Search range: [0,1E300] +C DOUBLE PRECISION X +C +C DF <--> Degrees of freedom of the +C chi-square distribution. +C Input range: (0, +infinity). +C Search range: [ 1E-300, 1E300] +C DOUBLE PRECISION DF +C +C STATUS <-- 0 if calculation completed correctly +C -I if input parameter number I is out of range +C 1 if answer appears to be lower than lowest +C search bound +C 2 if answer appears to be higher than greatest +C search bound +C 3 if P + Q .ne. 1 +C 10 indicates error returned from cumgam. See +C references in cdfgam +C INTEGER STATUS +C +C BOUND <-- Undefined if STATUS is 0 +C +C Bound exceeded by parameter number I if STATUS +C is negative. +C +C Lower search bound if STATUS is 1. +C +C Upper search bound if STATUS is 2. +C +C +C Method +C +C +C Formula 26.4.19 of Abramowitz and Stegun, Handbook of +C Mathematical Functions (1966) is used to reduce the chisqure +C distribution to the incomplete distribution. +C +C Computation of other parameters involve a search for a value that +C produces the desired value of P. The search relies on the +C monotonicity of P with the other parameter. +C +C********************************************************************** +C .. Parameters .. + DOUBLE PRECISION tol + PARAMETER (tol=1.0D-13) + DOUBLE PRECISION atol + PARAMETER (atol=1.0D-50) + DOUBLE PRECISION zero,inf + PARAMETER (zero=1.0D-300,inf=1.0D300) +C .. +C .. Scalar Arguments .. + DOUBLE PRECISION bound,df,p,q,x + INTEGER status,which +C .. +C .. Local Scalars .. + DOUBLE PRECISION fx,cum,ccum,pq,porq + LOGICAL qhi,qleft,qporq +C .. +C .. External Functions .. + INTEGER vfinite + DOUBLE PRECISION spmpar + EXTERNAL spmpar +C .. +C .. External Subroutines .. + EXTERNAL dinvr,dstinv,cumchi +C .. +C .. Executable Statements .. +C +C Check arguments +C + IF (.NOT. ((which.LT.1).OR. (which.GT.3))) GO TO 30 + IF (.NOT. (which.LT.1)) GO TO 10 + bound = 1.0D0 + GO TO 20 + + 10 bound = 3.0D0 + 20 status = -1 + RETURN + + 30 IF (which.EQ.1) GO TO 70 +C +C P +C + IF (ISANAN(p).EQ.1) THEN + CALL RETURNANANFORTRAN(df) + CALL RETURNANANFORTRAN(x) + RETURN + ENDIF + IF (.NOT. ((p.LT.0.0D0).OR. (p.GT.1.0D0))) GO TO 60 + IF (.NOT. (p.LT.0.0D0)) GO TO 40 + bound = 0.0D0 + GO TO 50 + + 40 bound = 1.0D0 + 50 status = -2 + RETURN + + 60 CONTINUE + 70 IF (which.EQ.1) GO TO 110 +C +C Q +C + IF (ISANAN(q).EQ.1) THEN + CALL RETURNANANFORTRAN(df) + CALL RETURNANANFORTRAN(x) + RETURN + ENDIF + IF (.NOT. ((q.LE.0.0D0).OR. (q.GT.1.0D0))) GO TO 100 + IF (.NOT. (q.LE.0.0D0)) GO TO 80 + bound = 0.0D0 + GO TO 90 + + 80 bound = 1.0D0 + 90 status = -3 + RETURN + + 100 CONTINUE + 110 IF (which.EQ.2) GO TO 130 +C +C X +C + IF (ISANAN(x).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(df) + RETURN + ENDIF + IF (vfinite(1,x).EQ.0) then + IF (which.EQ.1) then + IF (x.GT.0) then + p = 1 + q = 0 + RETURN + ENDIF + ELSE + x = SIGN(1D300,x) + ENDIF + ENDIF + IF (.NOT. (x.LT.0.0D0)) GO TO 120 + bound = 0.0D0 + status = -4 + RETURN + + 120 CONTINUE + 130 IF (which.EQ.3) GO TO 150 +C +C DF +C + IF (ISANAN(df).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(x) + RETURN + ENDIF + IF (vfinite(1,df).EQ.0) df = SIGN(inf,df) + IF (.NOT. (df.LE.0.0D0)) GO TO 140 + bound = 0.0D0 + status = -5 + RETURN + + 140 CONTINUE + 150 IF (which.EQ.1) GO TO 190 +C +C P + Q +C + pq = p + q + IF (.NOT. (abs(((pq)-0.5D0)-0.5D0).GT. + + (3.0D0*spmpar(1)))) GO TO 180 + IF (.NOT. (pq.LT.0.0D0)) GO TO 160 + bound = 0.0D0 + GO TO 170 + + 160 bound = 1.0D0 + 170 status = 3 + RETURN + + 180 CONTINUE + 190 IF (which.EQ.1) GO TO 220 +C +C Select the minimum of P or Q +C + qporq = p .LE. q + IF (.NOT. (qporq)) GO TO 200 + porq = p + GO TO 210 + + 200 porq = q + 210 CONTINUE +C +C Calculate ANSWERS +C + 220 IF ((1).EQ. (which)) THEN +C +C Calculating P and Q +C + status = 0 + CALL cumchi(x,df,p,q) +C jpc 2000 : porq must be computed ? +C ---> IF (porq.GT.1.5D0) THEN + IF (p .GT. 1.5d0 .or. q .GT. 1.5d0) then + status = 10 + RETURN + END IF + ELSE IF ((2).EQ. (which)) THEN +C +C Calculating X +C + x = 5.0D0 + CALL dstinv(0.0D0,inf,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,x,fx,qleft,qhi) + 230 IF (.NOT. (status.EQ.1)) GO TO 270 + CALL cumchi(x,df,cum,ccum) + IF (.NOT. (qporq)) GO TO 240 + fx = cum - p + GO TO 250 + + 240 fx = ccum - q + 250 IF (.NOT. ((fx+porq).GT.1.5D0)) GO TO 260 + status = 10 + RETURN + + 260 CALL dinvr(status,x,fx,qleft,qhi) + GO TO 230 + + 270 IF (.NOT. (status.EQ.-1)) GO TO 300 + IF (.NOT. (qleft)) GO TO 280 + status = 1 + bound = 0.0D0 + GO TO 290 + + 280 status = 2 + bound = inf + 290 CONTINUE + 300 CONTINUE + + ELSE IF ((3).EQ. (which)) THEN +C +C Calculating DF +C + df = 5.0D0 + CALL dstinv(zero,inf,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,df,fx,qleft,qhi) + 310 IF (.NOT. (status.EQ.1)) GO TO 350 + CALL cumchi(x,df,cum,ccum) + IF (.NOT. (qporq)) GO TO 320 + fx = cum - p + GO TO 330 + + 320 fx = ccum - q + 330 IF (.NOT. ((fx+porq).GT.1.5D0)) GO TO 340 + status = 10 + RETURN + + 340 CALL dinvr(status,df,fx,qleft,qhi) + GO TO 310 + + 350 IF (.NOT. (status.EQ.-1)) GO TO 380 + IF (.NOT. (qleft)) GO TO 360 + status = 1 + bound = zero + GO TO 370 + + 360 status = 2 + bound = inf + 370 CONTINUE + 380 END IF + + RETURN + + END diff --git a/modules/statistics/src/dcdflib/cdfchi.lo b/modules/statistics/src/dcdflib/cdfchi.lo new file mode 100755 index 000000000..f6981e876 --- /dev/null +++ b/modules/statistics/src/dcdflib/cdfchi.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cdfchi.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cdfchi.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cdfchn.f b/modules/statistics/src/dcdflib/cdfchn.f new file mode 100755 index 000000000..fdeca415b --- /dev/null +++ b/modules/statistics/src/dcdflib/cdfchn.f @@ -0,0 +1,302 @@ + SUBROUTINE cdfchn(which,p,q,x,df,pnonc,status,bound) +C********************************************************************** +C +C SUBROUTINE CDFCHN( WHICH, P, Q, X, DF, PNONC, STATUS, BOUND ) +C Cumulative Distribution Function +C Non-central Chi-Square +C +C +C Function +C +C +C Calculates any one parameter of the non-central chi-square +C distribution given values for the others. +C +C +C Arguments +C +C +C WHICH --> Integer indicating which of the next three argument +C values is to be calculated from the others. +C Input range: 1..4 +C iwhich = 1 : Calculate P and Q from X and DF +C iwhich = 2 : Calculate X from P,DF and PNONC +C iwhich = 3 : Calculate DF from P,X and PNONC +C iwhich = 3 : Calculate PNONC from P,X and DF +C INTEGER WHICH +C +C P <--> The integral from 0 to X of the non-central chi-square +C distribution. +C Input range: [0, 1-1E-16). +C DOUBLE PRECISION P +C +C Q <--> 1-P. +C Q is not used by this subroutine and is only included +C for similarity with other cdf* routines. +C DOUBLE PRECISION Q +C +C X <--> Upper limit of integration of the non-central +C chi-square distribution. +C Input range: [0, +infinity). +C Search range: [0,1E300] +C DOUBLE PRECISION X +C +C DF <--> Degrees of freedom of the non-central +C chi-square distribution. +C Input range: (0, +infinity). +C Search range: [ 1E-300, 1E300] +C DOUBLE PRECISION DF +C +C PNONC <--> Non-centrality parameter of the non-central +C chi-square distribution. +C Input range: [0, +infinity). +C Search range: [0,1E4] +C DOUBLE PRECISION PNONC +C +C STATUS <-- 0 if calculation completed correctly +C -I if input parameter number I is out of range +C 1 if answer appears to be lower than lowest +C search bound +C 2 if answer appears to be higher than greatest +C search bound +C INTEGER STATUS +C +C BOUND <-- Undefined if STATUS is 0 +C +C Bound exceeded by parameter number I if STATUS +C is negative. +C +C Lower search bound if STATUS is 1. +C +C Upper search bound if STATUS is 2. +C +C +C Method +C +C +C Formula 26.4.25 of Abramowitz and Stegun, Handbook of +C Mathematical Functions (1966) is used to compute the cumulative +C distribution function. +C +C Computation of other parameters involve a search for a value that +C produces the desired value of P. The search relies on the +C monotonicity of P with the other parameter. +C +C +C WARNING +C +C The computation time required for this routine is proportional +C to the noncentrality parameter (PNONC). Very large values of +C this parameter can consume immense computer resources. This is +C why the search range is bounded by 10,000. +C +C********************************************************************** +C .. Parameters .. + DOUBLE PRECISION tent4 + PARAMETER (tent4=1.0D4) + DOUBLE PRECISION tol + PARAMETER (tol=1.0D-13) + DOUBLE PRECISION atol + PARAMETER (atol=1.0D-50) + DOUBLE PRECISION zero,one,inf + PARAMETER (zero=1.0D-300,one=1.0D0-1.0D-16,inf=1.0D300) +C .. +C .. Scalar Arguments .. + DOUBLE PRECISION bound,df,p,q,pnonc,x + INTEGER status,which +C .. +C .. Local Scalars .. + DOUBLE PRECISION fx,cum,ccum + LOGICAL qhi,qleft +C .. +C .. External Functions .. + INTEGER vfinite +C .. +C .. External Subroutines .. + EXTERNAL dinvr,dstinv,cumchn +C .. +C .. Executable Statements .. +C +C Check arguments +C + IF (.NOT. ((which.LT.1).OR. (which.GT.4))) GO TO 30 + IF (.NOT. (which.LT.1)) GO TO 10 + bound = 1.0D0 + GO TO 20 + + 10 bound = 4.0D0 + 20 status = -1 + RETURN + + 30 IF (which.EQ.1) GO TO 70 +C +C P +C + IF (ISANAN(p).EQ.1) THEN + CALL RETURNANANFORTRAN(df) + CALL RETURNANANFORTRAN(pnonc) + CALL RETURNANANFORTRAN(x) + RETURN + ENDIF + IF (.NOT. ((p.LT.0.0D0).OR. (p.GT.one))) GO TO 60 + IF (.NOT. (p.LT.0.0D0)) GO TO 40 + bound = 0.0D0 + GO TO 50 + + 40 bound = one + 50 status = -2 + RETURN + + 60 CONTINUE + 70 IF (which.EQ.2) GO TO 90 +C +C X +C + IF (ISANAN(x).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(df) + CALL RETURNANANFORTRAN(pnonc) + RETURN + ENDIF + IF (vfinite(1,x).EQ.0) then + IF (which.EQ.1) then + IF (x.GT.0) then + p = 1 + q = 0 + RETURN + ENDIF + ELSE + x = SIGN(1D300,x) + ENDIF + ENDIF + IF (.NOT. (x.LT.0.0D0)) GO TO 80 + bound = 0.0D0 + status = -4 + RETURN + + 80 CONTINUE + 90 IF (which.EQ.3) GO TO 110 +C +C DF +C + IF (ISANAN(df).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(x) + CALL RETURNANANFORTRAN(pnonc) + RETURN + ENDIF + IF (vfinite(1,df).EQ.0) df = SIGN(inf,df) + IF (.NOT. (df.LE.0.0D0)) GO TO 100 + bound = 0.0D0 + status = -5 + RETURN + + 100 CONTINUE + 110 IF (which.EQ.4) GO TO 130 +C +C PNONC +C + IF (ISANAN(pnonc).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(x) + CALL RETURNANANFORTRAN(df) + RETURN + ENDIF + IF (vfinite(1,pnonc).EQ.0) pnonc = SIGN(inf,pnonc) + IF (.NOT. (pnonc.LT.0.0D0)) GO TO 120 + bound = 0.0D0 + status = -6 + RETURN + + 120 CONTINUE +C +C Calculate ANSWERS +C + 130 IF ((1).EQ. (which)) THEN +C +C Calculating P and Q +C + CALL cumchn(x,df,pnonc,p,q) + status = 0 + + ELSE IF ((2).EQ. (which)) THEN +C +C Calculating X +C + x = 5.0D0 + CALL dstinv(0.0D0,inf,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,x,fx,qleft,qhi) + 140 IF (.NOT. (status.EQ.1)) GO TO 150 + CALL cumchn(x,df,pnonc,cum,ccum) + fx = cum - p + CALL dinvr(status,x,fx,qleft,qhi) + GO TO 140 + + 150 IF (.NOT. (status.EQ.-1)) GO TO 180 + IF (.NOT. (qleft)) GO TO 160 + status = 1 + bound = 0.0D0 + GO TO 170 + + 160 status = 2 + bound = inf + 170 CONTINUE + 180 CONTINUE + + ELSE IF ((3).EQ. (which)) THEN +C +C Calculating DF +C + df = 5.0D0 + CALL dstinv(zero,inf,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,df,fx,qleft,qhi) + 190 IF (.NOT. (status.EQ.1)) GO TO 200 + CALL cumchn(x,df,pnonc,cum,ccum) + fx = cum - p + CALL dinvr(status,df,fx,qleft,qhi) + GO TO 190 + + 200 IF (.NOT. (status.EQ.-1)) GO TO 230 + IF (.NOT. (qleft)) GO TO 210 + status = 1 + bound = zero + GO TO 220 + + 210 status = 2 + bound = inf + 220 CONTINUE + 230 CONTINUE + + ELSE IF ((4).EQ. (which)) THEN +C +C Calculating PNONC +C + pnonc = 5.0D0 + CALL dstinv(0.0D0,tent4,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,pnonc,fx,qleft,qhi) + 240 IF (.NOT. (status.EQ.1)) GO TO 250 + CALL cumchn(x,df,pnonc,cum,ccum) + fx = cum - p + CALL dinvr(status,pnonc,fx,qleft,qhi) + GO TO 240 + + 250 IF (.NOT. (status.EQ.-1)) GO TO 280 + IF (.NOT. (qleft)) GO TO 260 + status = 1 + bound = zero + GO TO 270 + + 260 status = 2 + bound = tent4 + 270 CONTINUE + 280 END IF + + RETURN + + END diff --git a/modules/statistics/src/dcdflib/cdfchn.lo b/modules/statistics/src/dcdflib/cdfchn.lo new file mode 100755 index 000000000..42c07230b --- /dev/null +++ b/modules/statistics/src/dcdflib/cdfchn.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cdfchn.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cdfchn.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cdff.f b/modules/statistics/src/dcdflib/cdff.f new file mode 100755 index 000000000..ded2f2856 --- /dev/null +++ b/modules/statistics/src/dcdflib/cdff.f @@ -0,0 +1,351 @@ + SUBROUTINE cdff(which,p,q,f,dfn,dfd,status,bound) +C********************************************************************** +C +C SUBROUTINE CDFF( WHICH, P, Q, F, DFN, DFD, STATUS, BOUND ) +C Cumulative Distribution Function +C F distribution +C +C +C Function +C +C +C Calculates any one parameter of the F distribution +C given values for the others. +C +C +C Arguments +C +C +C WHICH --> Integer indicating which of the next four argument +C values is to be calculated from the others. +C Legal range: 1..4 +C iwhich = 1 : Calculate P and Q from F,DFN and DFD +C iwhich = 2 : Calculate F from P,Q,DFN and DFD +C iwhich = 3 : Calculate DFN from P,Q,F and DFD +C iwhich = 4 : Calculate DFD from P,Q,F and DFN +C INTEGER WHICH +C +C P <--> The integral from 0 to F of the f-density. +C Input range: [0,1]. +C DOUBLE PRECISION P +C +C Q <--> 1-P. +C Input range: (0, 1]. +C P + Q = 1.0. +C DOUBLE PRECISION Q +C +C F <--> Upper limit of integration of the f-density. +C Input range: [0, +infinity). +C Search range: [0,1E300] +C DOUBLE PRECISION F +C +C DFN < --> Degrees of freedom of the numerator sum of squares. +C Input range: (0, +infinity). +C Search range: [ 1E-300, 1E300] +C DOUBLE PRECISION DFN +C +C DFD < --> Degrees of freedom of the denominator sum of squares. +C Input range: (0, +infinity). +C Search range: [ 1E-300, 1E300] +C DOUBLE PRECISION DFD +C +C STATUS <-- 0 if calculation completed correctly +C -I if input parameter number I is out of range +C 1 if answer appears to be lower than lowest +C search bound +C 2 if answer appears to be higher than greatest +C search bound +C 3 if P + Q .ne. 1 +C INTEGER STATUS +C +C BOUND <-- Undefined if STATUS is 0 +C +C Bound exceeded by parameter number I if STATUS +C is negative. +C +C Lower search bound if STATUS is 1. +C +C Upper search bound if STATUS is 2. +C +C +C Method +C +C +C Formula 26.6.2 of Abramowitz and Stegun, Handbook of +C Mathematical Functions (1966) is used to reduce the computation +C of the cumulative distribution function for the F variate to +C that of an incomplete beta. +C +C Computation of other parameters involve a search for a value that +C produces the desired value of P. The search relies on the +C monotonicity of P with the other parameter. +C +C WARNING +C +C The value of the cumulative F distribution is not necessarily +C monotone in either degrees of freedom. There thus may be two +C values that provide a given CDF value. This routine assumes +C monotonicity and will find an arbitrary one of the two values. +C +C********************************************************************** +C .. Parameters .. + DOUBLE PRECISION tol + PARAMETER (tol=1.0D-13) + DOUBLE PRECISION atol + PARAMETER (atol=1.0D-50) + DOUBLE PRECISION zero,inf + PARAMETER (zero=1.0D-300,inf=1.0D300) +C .. +C .. Scalar Arguments .. + DOUBLE PRECISION bound,dfd,dfn,f,p,q + INTEGER status,which +C .. +C .. Local Scalars .. + DOUBLE PRECISION pq,fx,cum,ccum + LOGICAL qhi,qleft,qporq +C .. +C .. External Functions .. + INTEGER vfinite + DOUBLE PRECISION spmpar + EXTERNAL spmpar +C .. +C .. External Subroutines .. + EXTERNAL dinvr,dstinv,cumf +C .. +C .. Executable Statements .. +C +C Check arguments +C + IF (.NOT. ((which.LT.1).OR. (which.GT.4))) GO TO 30 + IF (.NOT. (which.LT.1)) GO TO 10 + bound = 1.0D0 + GO TO 20 + + 10 bound = 4.0D0 + 20 status = -1 + RETURN + + 30 IF (which.EQ.1) GO TO 70 +C +C P +C + IF (ISANAN(p).EQ.1) THEN + CALL RETURNANANFORTRAN(f) + CALL RETURNANANFORTRAN(dfn) + CALL RETURNANANFORTRAN(dfd) + RETURN + ENDIF + IF (.NOT. ((p.LT.0.0D0).OR. (p.GT.1.0D0))) GO TO 60 + IF (.NOT. (p.LT.0.0D0)) GO TO 40 + bound = 0.0D0 + GO TO 50 + + 40 bound = 1.0D0 + 50 status = -2 + RETURN + + 60 CONTINUE + 70 IF (which.EQ.1) GO TO 110 +C +C Q +C + IF (ISANAN(q).EQ.1) THEN + CALL RETURNANANFORTRAN(f) + CALL RETURNANANFORTRAN(dfn) + CALL RETURNANANFORTRAN(dfd) + RETURN + ENDIF + IF (.NOT. ((q.LE.0.0D0).OR. (q.GT.1.0D0))) GO TO 100 + IF (.NOT. (q.LE.0.0D0)) GO TO 80 + bound = 0.0D0 + GO TO 90 + + 80 bound = 1.0D0 + 90 status = -3 + RETURN + + 100 CONTINUE + 110 IF (which.EQ.2) GO TO 130 +C +C F +C + IF (ISANAN(f).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(dfn) + CALL RETURNANANFORTRAN(dfd) + RETURN + ENDIF + IF (vfinite(1,f).EQ.0) then + IF (which.EQ.1) then + IF (f.GT.0) then + p = 1 + q = 0 + RETURN + ENDIF + ELSE + f = SIGN(1D300,f) + ENDIF + ENDIF + IF (.NOT. (f.LT.0.0D0)) GO TO 120 + bound = 0.0D0 + status = -4 + RETURN + + 120 CONTINUE + 130 IF (which.EQ.3) GO TO 150 +C +C DFN +C + IF (ISANAN(dfn).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(f) + CALL RETURNANANFORTRAN(dfd) + RETURN + ENDIF + IF (vfinite(1,dfn).EQ.0) dfn = SIGN(inf,dfn) + IF (.NOT. (dfn.LE.0.0D0)) GO TO 140 + bound = 0.0D0 + status = -5 + RETURN + + 140 CONTINUE + 150 IF (which.EQ.4) GO TO 170 +C +C DFD +C + IF (ISANAN(dfd).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(f) + CALL RETURNANANFORTRAN(dfn) + RETURN + ENDIF + IF (vfinite(1,dfd).EQ.0) dfd = SIGN(inf,dfd) + IF (.NOT. (dfd.LE.0.0D0)) GO TO 160 + bound = 0.0D0 + status = -6 + RETURN + + 160 CONTINUE + 170 IF (which.EQ.1) GO TO 210 +C +C P + Q +C + pq = p + q + IF (.NOT. (abs(((pq)-0.5D0)-0.5D0).GT. + + (3.0D0*spmpar(1)))) GO TO 200 + IF (.NOT. (pq.LT.0.0D0)) GO TO 180 + bound = 0.0D0 + GO TO 190 + + 180 bound = 1.0D0 + 190 status = 3 + RETURN + + 200 CONTINUE + 210 IF (.NOT. (which.EQ.1)) qporq = p .LE. q +C +C Select the minimum of P or Q +C +C +C Calculate ANSWERS +C + IF ((1).EQ. (which)) THEN +C +C Calculating P +C + CALL cumf(f,dfn,dfd,p,q) + status = 0 + + ELSE IF ((2).EQ. (which)) THEN +C +C Calculating F +C + f = 5.0D0 + CALL dstinv(0.0D0,inf,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,f,fx,qleft,qhi) + 220 IF (.NOT. (status.EQ.1)) GO TO 250 + CALL cumf(f,dfn,dfd,cum,ccum) + IF (.NOT. (qporq)) GO TO 230 + fx = cum - p + GO TO 240 + + 230 fx = ccum - q + 240 CALL dinvr(status,f,fx,qleft,qhi) + GO TO 220 + + 250 IF (.NOT. (status.EQ.-1)) GO TO 280 + IF (.NOT. (qleft)) GO TO 260 + status = 1 + bound = 0.0D0 + GO TO 270 + + 260 status = 2 + bound = inf + 270 CONTINUE + 280 CONTINUE + + ELSE IF ((3).EQ. (which)) THEN +C +C Calculating DFN +C + dfn = 5.0D0 + CALL dstinv(zero,inf,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,dfn,fx,qleft,qhi) + 290 IF (.NOT. (status.EQ.1)) GO TO 320 + CALL cumf(f,dfn,dfd,cum,ccum) + IF (.NOT. (qporq)) GO TO 300 + fx = cum - p + GO TO 310 + + 300 fx = ccum - q + 310 CALL dinvr(status,dfn,fx,qleft,qhi) + GO TO 290 + + 320 IF (.NOT. (status.EQ.-1)) GO TO 350 + IF (.NOT. (qleft)) GO TO 330 + status = 1 + bound = zero + GO TO 340 + + 330 status = 2 + bound = inf + 340 CONTINUE + 350 CONTINUE + + ELSE IF ((4).EQ. (which)) THEN +C +C Calculating DFD +C + dfd = 5.0D0 + CALL dstinv(zero,inf,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,dfd,fx,qleft,qhi) + 360 IF (.NOT. (status.EQ.1)) GO TO 390 + CALL cumf(f,dfn,dfd,cum,ccum) + IF (.NOT. (qporq)) GO TO 370 + fx = cum - p + GO TO 380 + + 370 fx = ccum - q + 380 CALL dinvr(status,dfd,fx,qleft,qhi) + GO TO 360 + + 390 IF (.NOT. (status.EQ.-1)) GO TO 420 + IF (.NOT. (qleft)) GO TO 400 + status = 1 + bound = zero + GO TO 410 + + 400 status = 2 + bound = inf + 410 CONTINUE + 420 END IF + + RETURN + + END diff --git a/modules/statistics/src/dcdflib/cdff.lo b/modules/statistics/src/dcdflib/cdff.lo new file mode 100755 index 000000000..f1377a72c --- /dev/null +++ b/modules/statistics/src/dcdflib/cdff.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cdff.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cdff.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cdffnc.f b/modules/statistics/src/dcdflib/cdffnc.f new file mode 100755 index 000000000..62e50f308 --- /dev/null +++ b/modules/statistics/src/dcdflib/cdffnc.f @@ -0,0 +1,361 @@ + SUBROUTINE cdffnc(which,p,q,f,dfn,dfd,phonc,status,bound) +C********************************************************************** +C +C SUBROUTINE CDFFNC( WHICH, P, Q, F, DFN, DFD, PNONC, STATUS, BOUND +C Cumulative Distribution Function +C Non-central F distribution +C +C +C Function +C +C +C Calculates any one parameter of the Non-central F +C distribution given values for the others. +C +C +C Arguments +C +C +C WHICH --> Integer indicating which of the next five argument +C values is to be calculated from the others. +C Legal range: 1..5 +C iwhich = 1 : Calculate P and Q from F,DFN,DFD and PNONC +C iwhich = 2 : Calculate F from P,Q,DFN,DFD and PNONC +C iwhich = 3 : Calculate DFN from P,Q,F,DFD and PNONC +C iwhich = 4 : Calculate DFD from P,Q,F,DFN and PNONC +C iwhich = 5 : Calculate PNONC from P,Q,F,DFN and DFD +C INTEGER WHICH +C +C P <--> The integral from 0 to F of the non-central f-density. +C Input range: [0,1-1E-16). +C DOUBLE PRECISION P +C +C Q <--> 1-P. +C Q is not used by this subroutine and is only included +C for similarity with other cdf* routines. +C DOUBLE PRECISION Q +C +C F <--> Upper limit of integration of the non-central f-density. +C Input range: [0, +infinity). +C Search range: [0,1E300] +C DOUBLE PRECISION F +C +C DFN < --> Degrees of freedom of the numerator sum of squares. +C Input range: (0, +infinity). +C Search range: [ 1E-300, 1E300] +C DOUBLE PRECISION DFN +C +C DFD < --> Degrees of freedom of the denominator sum of squares. +C Must be in range: (0, +infinity). +C Input range: (0, +infinity). +C Search range: [ 1E-300, 1E300] +C DOUBLE PRECISION DFD +C +C PNONC <-> The non-centrality parameter +C Input range: [0,infinity) +C Search range: [0,1E4] +C DOUBLE PRECISION PHONC +C +C STATUS <-- 0 if calculation completed correctly +C -I if input parameter number I is out of range +C 1 if answer appears to be lower than lowest +C search bound +C 2 if answer appears to be higher than greatest +C search bound +C 3 if P + Q .ne. 1 +C INTEGER STATUS +C +C BOUND <-- Undefined if STATUS is 0 +C +C Bound exceeded by parameter number I if STATUS +C is negative. +C +C Lower search bound if STATUS is 1. +C +C Upper search bound if STATUS is 2. +C +C +C Method +C +C +C Formula 26.6.20 of Abramowitz and Stegun, Handbook of +C Mathematical Functions (1966) is used to compute the cumulative +C distribution function. +C +C Computation of other parameters involve a search for a value that +C produces the desired value of P. The search relies on the +C monotonicity of P with the other parameter. +C +C WARNING +C +C The computation time required for this routine is proportional +C to the noncentrality parameter (PNONC). Very large values of +C this parameter can consume immense computer resources. This is +C why the search range is bounded by 10,000. +C +C WARNING +C +C The value of the cumulative noncentral F distribution is not +C necessarily monotone in either degrees of freedom. There thus +C may be two values that provide a given CDF value. This routine +C assumes monotonicity and will find an arbitrary one of the two +C values. +C +C********************************************************************** +C .. Parameters .. + DOUBLE PRECISION tent4 + PARAMETER (tent4=1.0D4) + DOUBLE PRECISION tol + PARAMETER (tol=1.0D-13) + DOUBLE PRECISION atol + PARAMETER (atol=1.0D-50) + DOUBLE PRECISION zero,one,inf + PARAMETER (zero=1.0D-300,one=1.0D0-1.0D-16,inf=1.0D300) +C .. +C .. Scalar Arguments .. + DOUBLE PRECISION bound,dfd,dfn,f,p,q,phonc + INTEGER status,which +C .. +C .. Local Scalars .. + DOUBLE PRECISION fx,cum,ccum + LOGICAL qhi,qleft +C .. +C .. External Functions .. + INTEGER vfinite +C .. +C .. External Subroutines .. + EXTERNAL dinvr,dstinv,cumfnc +C .. +C .. Executable Statements .. +C +C Check arguments +C + IF (.NOT. ((which.LT.1).OR. (which.GT.5))) GO TO 30 + IF (.NOT. (which.LT.1)) GO TO 10 + bound = 1.0D0 + GO TO 20 + + 10 bound = 5.0D0 + 20 status = -1 + RETURN + + 30 IF (which.EQ.1) GO TO 70 +C +C P +C + IF (ISANAN(p).EQ.1) THEN + CALL RETURNANANFORTRAN(dfn) + CALL RETURNANANFORTRAN(dfd) + CALL RETURNANANFORTRAN(f) + CALL RETURNANANFORTRAN(phonc) + RETURN + ENDIF + IF (.NOT. ((p.LT.0.0D0).OR. (p.GT.one))) GO TO 60 + IF (.NOT. (p.LT.0.0D0)) GO TO 40 + bound = 0.0D0 + GO TO 50 + + 40 bound = one + 50 status = -2 + RETURN + + 60 CONTINUE + 70 IF (which.EQ.2) GO TO 90 +C +C F +C + IF (ISANAN(f).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(dfn) + CALL RETURNANANFORTRAN(dfd) + CALL RETURNANANFORTRAN(phonc) + RETURN + ENDIF + IF (vfinite(1,f).EQ.0) then + IF (which.EQ.1) then + IF (f.GT.0) then + p = 1 + q = 0 + RETURN + ENDIF + ELSE + f = SIGN(1D300,f) + ENDIF + ENDIF + IF (.NOT. (f.LT.0.0D0)) GO TO 80 + bound = 0.0D0 + status = -4 + RETURN + + 80 CONTINUE + 90 IF (which.EQ.3) GO TO 110 +C +C DFN +C + IF (ISANAN(dfn).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(f) + CALL RETURNANANFORTRAN(dfd) + CALL RETURNANANFORTRAN(phonc) + RETURN + ENDIF + IF (vfinite(1,dfn).EQ.0) dfn = SIGN(inf,dfn) + IF (.NOT. (dfn.LE.0.0D0)) GO TO 100 + bound = 0.0D0 + status = -5 + RETURN + + 100 CONTINUE + 110 IF (which.EQ.4) GO TO 130 +C +C DFD +C + IF (ISANAN(dfd).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(dfn) + CALL RETURNANANFORTRAN(f) + CALL RETURNANANFORTRAN(phonc) + RETURN + ENDIF + IF (vfinite(1,dfd).EQ.0) dfd = SIGN(inf,dfd) + IF (.NOT. (dfd.LE.0.0D0)) GO TO 120 + bound = 0.0D0 + status = -6 + RETURN + + 120 CONTINUE + 130 IF (which.EQ.5) GO TO 150 +C +C PHONC +C + IF (ISANAN(phonc).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(dfn) + CALL RETURNANANFORTRAN(dfd) + CALL RETURNANANFORTRAN(f) + RETURN + ENDIF + IF (vfinite(1,phonc).EQ.0) phonc = SIGN(inf,phonc) + IF (.NOT. (phonc.LT.0.0D0)) GO TO 140 + bound = 0.0D0 + status = -7 + RETURN + + 140 CONTINUE +C +C Calculate ANSWERS +C + 150 IF ((1).EQ. (which)) THEN +C +C Calculating P +C + CALL cumfnc(f,dfn,dfd,phonc,p,q) + status = 0 + + ELSE IF ((2).EQ. (which)) THEN +C +C Calculating F +C + f = 5.0D0 + CALL dstinv(0.0D0,inf,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,f,fx,qleft,qhi) + 160 IF (.NOT. (status.EQ.1)) GO TO 170 + CALL cumfnc(f,dfn,dfd,phonc,cum,ccum) + fx = cum - p + CALL dinvr(status,f,fx,qleft,qhi) + GO TO 160 + + 170 IF (.NOT. (status.EQ.-1)) GO TO 200 + IF (.NOT. (qleft)) GO TO 180 + status = 1 + bound = 0.0D0 + GO TO 190 + + 180 status = 2 + bound = inf + 190 CONTINUE + 200 CONTINUE + + ELSE IF ((3).EQ. (which)) THEN +C +C Calculating DFN +C + dfn = 5.0D0 + CALL dstinv(zero,inf,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,dfn,fx,qleft,qhi) + 210 IF (.NOT. (status.EQ.1)) GO TO 220 + CALL cumfnc(f,dfn,dfd,phonc,cum,ccum) + fx = cum - p + CALL dinvr(status,dfn,fx,qleft,qhi) + GO TO 210 + + 220 IF (.NOT. (status.EQ.-1)) GO TO 250 + IF (.NOT. (qleft)) GO TO 230 + status = 1 + bound = zero + GO TO 240 + + 230 status = 2 + bound = inf + 240 CONTINUE + 250 CONTINUE + + ELSE IF ((4).EQ. (which)) THEN +C +C Calculating DFD +C + dfd = 5.0D0 + CALL dstinv(zero,inf,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,dfd,fx,qleft,qhi) + 260 IF (.NOT. (status.EQ.1)) GO TO 270 + CALL cumfnc(f,dfn,dfd,phonc,cum,ccum) + fx = cum - p + CALL dinvr(status,dfd,fx,qleft,qhi) + GO TO 260 + + 270 IF (.NOT. (status.EQ.-1)) GO TO 300 + IF (.NOT. (qleft)) GO TO 280 + status = 1 + bound = zero + GO TO 290 + + 280 status = 2 + bound = inf + 290 CONTINUE + 300 CONTINUE + + ELSE IF ((5).EQ. (which)) THEN +C +C Calculating PHONC +C + phonc = 5.0D0 + CALL dstinv(0.0D0,tent4,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,phonc,fx,qleft,qhi) + 310 IF (.NOT. (status.EQ.1)) GO TO 320 + CALL cumfnc(f,dfn,dfd,phonc,cum,ccum) + fx = cum - p + CALL dinvr(status,phonc,fx,qleft,qhi) + GO TO 310 + + 320 IF (.NOT. (status.EQ.-1)) GO TO 350 + IF (.NOT. (qleft)) GO TO 330 + status = 1 + bound = 0.0D0 + GO TO 340 + + 330 status = 2 + bound = tent4 + 340 CONTINUE + 350 END IF + + RETURN + + END diff --git a/modules/statistics/src/dcdflib/cdffnc.lo b/modules/statistics/src/dcdflib/cdffnc.lo new file mode 100755 index 000000000..ffc4c2298 --- /dev/null +++ b/modules/statistics/src/dcdflib/cdffnc.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cdffnc.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cdffnc.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cdfgam.f b/modules/statistics/src/dcdflib/cdfgam.f new file mode 100755 index 000000000..e8b8d1ea6 --- /dev/null +++ b/modules/statistics/src/dcdflib/cdfgam.f @@ -0,0 +1,355 @@ + SUBROUTINE cdfgam(which,p,q,x,shape,scale,status,bound) +C********************************************************************** +C +C SUBROUTINE CDFGAM( WHICH, P, Q, X, SHAPE, SCALE, STATUS, BOUND ) +C Cumulative Distribution Function +C GAMma Distribution +C +C +C Function +C +C +C Calculates any one parameter of the gamma +C distribution given values for the others. +C +C +C Arguments +C +C +C WHICH --> Integer indicating which of the next four argument +C values is to be calculated from the others. +C Legal range: 1..4 +C iwhich = 1 : Calculate P and Q from X,SHAPE and SCALE +C iwhich = 2 : Calculate X from P,Q,SHAPE and SCALE +C iwhich = 3 : Calculate SHAPE from P,Q,X and SCALE +C iwhich = 4 : Calculate SCALE from P,Q,X and SHAPE +C INTEGER WHICH +C +C P <--> The integral from 0 to X of the gamma density. +C Input range: [0,1]. +C DOUBLE PRECISION P +C +C Q <--> 1-P. +C Input range: (0, 1]. +C P + Q = 1.0. +C DOUBLE PRECISION Q +C +C +C X <--> The upper limit of integration of the gamma density. +C Input range: [0, +infinity). +C Search range: [0,1E300] +C DOUBLE PRECISION X +C +C SHAPE <--> The shape parameter of the gamma density. +C Input range: (0, +infinity). +C Search range: [1E-300,1E300] +C DOUBLE PRECISION SHAPE +C +C +C SCALE <--> The scale parameter of the gamma density. +C Input range: (0, +infinity). +C Search range: (1E-300,1E300] +C DOUBLE PRECISION SCALE +C +C STATUS <-- 0 if calculation completed correctly +C -I if input parameter number I is out of range +C 1 if answer appears to be lower than lowest +C search bound +C 2 if answer appears to be higher than greatest +C search bound +C 3 if P + Q .ne. 1 +C 10 if the gamma or inverse gamma routine cannot +C compute the answer. Usually happens only for +C X and SHAPE very large (gt 1E10 or more) +C INTEGER STATUS +C +C BOUND <-- Undefined if STATUS is 0 +C +C Bound exceeded by parameter number I if STATUS +C is negative. +C +C Lower search bound if STATUS is 1. +C +C Upper search bound if STATUS is 2. +C +C +C Method +C +C +C Cumulative distribution function (P) is calculated directly by +C the code associated with: +C +C DiDinato, A. R. and Morris, A. H. Computation of the incomplete +C gamma function ratios and their inverse. ACM Trans. Math. +C Softw. 12 (1986), 377-393. +C +C Computation of other parameters involve a search for a value that +C produces the desired value of P. The search relies on the +C monotonicity of P with the other parameter. +C +C +C Note +C +C +C +C The gamma density is proportional to +C T**(SHAPE - 1) * EXP(- SCALE * T) +C +C History +C +C Routine modified by Scilab group 1998, because of an undefined +C variable. See below comments "CSS". + +C********************************************************************** +C .. Parameters .. + DOUBLE PRECISION tol + PARAMETER (tol=1.0D-13) + DOUBLE PRECISION atol + PARAMETER (atol=1.0D-50) + DOUBLE PRECISION zero,inf + PARAMETER (zero=1.0D-300,inf=1.0D300) +C .. +C .. Scalar Arguments .. + DOUBLE PRECISION bound,p,q,scale,shape,x + INTEGER status,which +C .. +C .. Local Scalars .. + DOUBLE PRECISION xx + DOUBLE PRECISION fx,xscale,cum,ccum,pq,porq + INTEGER ierr + LOGICAL qhi,qleft,qporq +C .. +C .. External Functions .. + INTEGER vfinite + DOUBLE PRECISION spmpar + EXTERNAL spmpar +C .. +C .. External Subroutines .. + EXTERNAL gaminv,dinvr,dstinv,cumgam +C .. +C .. Executable Statements .. +C +C Check arguments +C + IF (.NOT. ((which.LT.1).OR. (which.GT.4))) GO TO 30 + IF (.NOT. (which.LT.1)) GO TO 10 + bound = 1.0D0 + GO TO 20 + + 10 bound = 4.0D0 + 20 status = -1 + RETURN + + 30 IF (which.EQ.1) GO TO 70 +C +C P +C + IF (ISANAN(p).EQ.1) THEN + CALL RETURNANANFORTRAN(shape) + CALL RETURNANANFORTRAN(x) + CALL RETURNANANFORTRAN(scale) + RETURN + ENDIF + IF (.NOT. ((p.LT.0.0D0).OR. (p.GT.1.0D0))) GO TO 60 + IF (.NOT. (p.LT.0.0D0)) GO TO 40 + bound = 0.0D0 + GO TO 50 + + 40 bound = 1.0d0 + 50 status = -2 + RETURN + + 60 CONTINUE + 70 IF (which.EQ.1) GO TO 110 +C +C Q +C + IF (ISANAN(q).EQ.1) THEN + CALL RETURNANANFORTRAN(shape) + CALL RETURNANANFORTRAN(x) + CALL RETURNANANFORTRAN(scale) + RETURN + ENDIF + IF (.NOT. ((q.LE.0.0D0).OR. (q.GT.1.0D0))) GO TO 100 + IF (.NOT. (q.LE.0.0D0)) GO TO 80 + bound = 0.0D0 + GO TO 90 + + 80 bound = 1.0D0 + 90 status = -3 + RETURN + + 100 CONTINUE + 110 IF (which.EQ.2) GO TO 130 +C +C X +C + IF (ISANAN(x).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(shape) + CALL RETURNANANFORTRAN(scale) + RETURN + ENDIF + IF (vfinite(1,x).EQ.0) then + IF (which.EQ.1) then + IF (x.GT.0) then + p = 1 + q = 0 + RETURN + ENDIF + ELSE + x = SIGN(1D300,x) + ENDIF + ENDIF + IF (.NOT. (x.LT.0.0D0)) GO TO 120 + bound = 0.0D0 + status = -4 + RETURN + + 120 CONTINUE + 130 IF (which.EQ.3) GO TO 150 +C +C SHAPE +C + IF (ISANAN(shape).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(x) + CALL RETURNANANFORTRAN(scale) + RETURN + ENDIF + IF (vfinite(1,shape).EQ.0) shape = SIGN(inf,shape) + IF (.NOT. (shape.LE.0.0D0)) GO TO 140 + bound = 0.0D0 + status = -5 + RETURN + + 140 CONTINUE + 150 IF (which.EQ.4) GO TO 170 +C +C SCALE +C + IF (ISANAN(scale).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(shape) + CALL RETURNANANFORTRAN(x) + RETURN + ENDIF + IF (vfinite(1,scale).EQ.0) scale = SIGN(inf,scale) + IF (.NOT. (scale.LE.0.0D0)) GO TO 160 + bound = 0.0D0 + status = -6 + RETURN + + 160 CONTINUE + 170 IF (which.EQ.1) GO TO 210 +C +C P + Q +C + pq = p + q + IF (.NOT. (abs(((pq)-0.5D0)-0.5D0).GT. + + (3.0D0*spmpar(1)))) GO TO 200 + IF (.NOT. (pq.LT.0.0D0)) GO TO 180 + bound = 0.0D0 + GO TO 190 + + 180 bound = 1.0D0 + 190 status = 3 + RETURN + + 200 CONTINUE + 210 IF (which.EQ.1) GO TO 240 +C +C Select the minimum of P or Q +C + qporq = p .LE. q + IF (.NOT. (qporq)) GO TO 220 + porq = p + GO TO 230 + + 220 porq = q + 230 CONTINUE +C +C Calculate ANSWERS +C + 240 IF ((1).EQ. (which)) THEN +C +C Calculating P +C + status = 0 + xscale = x*scale + CALL cumgam(xscale,shape,p,q) +CSS Next line changed by Scilab group. porq undefined here +CSS IF (porq.GT.1.5D0) status = 10 + IF (p.GT.1.5D0) status = 10 + + ELSE IF ((2).EQ. (which)) THEN +C +C Computing X +C + CALL gaminv(shape,xx,-1.0D0,p,q,ierr) + IF (ierr.LT.0.0D0) THEN + status = 10 + RETURN + + ELSE + x = xx/scale + status = 0 + END IF + + ELSE IF ((3).EQ. (which)) THEN +C +C Computing SHAPE +C + shape = 5.0D0 + xscale = x*scale + CALL dstinv(zero,inf,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,shape,fx,qleft,qhi) + 250 IF (.NOT. (status.EQ.1)) GO TO 290 + CALL cumgam(xscale,shape,cum,ccum) + IF (.NOT. (qporq)) GO TO 260 + fx = cum - p + GO TO 270 + + 260 fx = ccum - q + 270 IF (.NOT. ((qporq.AND. (cum.GT.1.5D0)).OR. + + ((.NOT.qporq).AND. (ccum.GT.1.5D0)))) GO TO 280 + status = 10 + RETURN + + 280 CALL dinvr(status,shape,fx,qleft,qhi) + GO TO 250 + + 290 IF (.NOT. (status.EQ.-1)) GO TO 320 + IF (.NOT. (qleft)) GO TO 300 + status = 1 + bound = zero + GO TO 310 + + 300 status = 2 + bound = inf + 310 CONTINUE + 320 CONTINUE + + ELSE IF ((4).EQ. (which)) THEN +C +C Computing SCALE +C + CALL gaminv(shape,xx,-1.0D0,p,q,ierr) + IF (ierr.LT.0.0D0) THEN + status = 10 + RETURN + + ELSE + scale = xx/x + status = 0 + END IF + + END IF + + RETURN + + END diff --git a/modules/statistics/src/dcdflib/cdfgam.lo b/modules/statistics/src/dcdflib/cdfgam.lo new file mode 100755 index 000000000..4395fff6c --- /dev/null +++ b/modules/statistics/src/dcdflib/cdfgam.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cdfgam.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cdfgam.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cdfnbn.f b/modules/statistics/src/dcdflib/cdfnbn.f new file mode 100755 index 000000000..924ab647e --- /dev/null +++ b/modules/statistics/src/dcdflib/cdfnbn.f @@ -0,0 +1,420 @@ + SUBROUTINE cdfnbn(which,p,q,s,xn,pr,ompr,status,bound) +C********************************************************************** +C +C SUBROUTINE CDFNBN ( WHICH, P,Q, S, XN, PR, STATUS, BOUND ) +C Cumulative Distribution Function +C Negative BiNomial distribution +C +C +C Function +C +C +C Calculates any one parameter of the negative binomial +C distribution given values for the others. +C +C The cumulative negative binomial distribution returns the +C probability that there will be F or fewer failures before the +C XNth success in binomial trials each of which has probability of +C success PR. +C +C The individual term of the negative binomial is the probability of +C S failures before XN successes and is +C Choose( S, XN+S-1 ) * PR^(XN) * (1-PR)^S +C +C +C Arguments +C +C +C WHICH --> Integer indicating which of the next four argument +C values is to be calculated from the others. +C Legal range: 1..4 +C iwhich = 1 : Calculate P and Q from S,XN,PR and OMPR +C iwhich = 2 : Calculate S from P,Q,XN,PR and OMPR +C iwhich = 3 : Calculate XN from P,Q,S,PR and OMPR +C iwhich = 4 : Calculate PR and OMPR from P,Q,S and XN +C INTEGER WHICH +C +C P <--> The cumulation from 0 to S of the negative +C binomial distribution. +C Input range: [0,1]. +C DOUBLE PRECISION P +C +C Q <--> 1-P. +C Input range: (0, 1]. +C P + Q = 1.0. +C DOUBLE PRECISION Q +C +C S <--> The upper limit of cumulation of the binomial distribution. +C There are F or fewer failures before the XNth success. +C Input range: [0, +infinity). +C Search range: [0, 1E300] +C DOUBLE PRECISION S +C +C XN <--> The number of successes. +C Input range: [0, +infinity). +C Search range: [0, 1E300] +C DOUBLE PRECISION XN +C +C PR <--> The probability of success in each binomial trial. +C Input range: [0,1]. +C Search range: [0,1]. +C DOUBLE PRECISION PR +C +C OMPR <--> 1-PR +C Input range: [0,1]. +C Search range: [0,1] +C PR + OMPR = 1.0 +C DOUBLE PRECISION OMPR +C +C STATUS <-- 0 if calculation completed correctly +C -I if input parameter number I is out of range +C 1 if answer appears to be lower than lowest +C search bound +C 2 if answer appears to be higher than greatest +C search bound +C 3 if P + Q .ne. 1 +C 4 if PR + OMPR .ne. 1 +C INTEGER STATUS +C +C BOUND <-- Undefined if STATUS is 0 +C +C Bound exceeded by parameter number I if STATUS +C is negative. +C +C Lower search bound if STATUS is 1. +C +C Upper search bound if STATUS is 2. +C +C +C Method +C +C +C Formula 26.5.26 of Abramowitz and Stegun, Handbook of +C Mathematical Functions (1966) is used to reduce calculation of +C the cumulative distribution function to that of an incomplete +C beta. +C +C Computation of other parameters involve a search for a value that +C produces the desired value of P. The search relies on the +C monotonicity of P with the other parameter. +C +C +C********************************************************************** +C .. Parameters .. + DOUBLE PRECISION tol + PARAMETER (tol=1.0D-13) + DOUBLE PRECISION atol + PARAMETER (atol=1.0D-50) + DOUBLE PRECISION inf + PARAMETER (inf=1.0D300) + DOUBLE PRECISION one + PARAMETER (one=1.0D0) +C .. +C .. Scalar Arguments .. + DOUBLE PRECISION bound,p,q,pr,ompr,s,xn + INTEGER status,which +C .. +C .. Local Scalars .. + DOUBLE PRECISION fx,xhi,xlo,pq,prompr,cum,ccum + LOGICAL qhi,qleft,qporq +C .. +C .. External Functions .. + INTEGER vfinite + DOUBLE PRECISION spmpar + EXTERNAL spmpar +C .. +C .. External Subroutines .. + EXTERNAL dinvr,dstinv,dstzr,dzror,cumnbn +C .. +C .. Executable Statements .. +C +C Check arguments +C + IF (.NOT. ((which.LT.1).OR. (which.GT.4))) GO TO 30 + IF (.NOT. (which.LT.1)) GO TO 10 + bound = 1.0D0 + GO TO 20 + + 10 bound = 4.0D0 + 20 status = -1 + RETURN + + 30 IF (which.EQ.1) GO TO 70 +C +C P +C + IF (ISANAN(p).EQ.1) THEN + CALL RETURNANANFORTRAN(s) + CALL RETURNANANFORTRAN(xn) + CALL RETURNANANFORTRAN(pr) + CALL RETURNANANFORTRAN(ompr) + RETURN + ENDIF + IF (.NOT. ((p.LT.0.0D0).OR. (p.GT.1.0D0))) GO TO 60 + IF (.NOT. (p.LT.0.0D0)) GO TO 40 + bound = 0.0D0 + GO TO 50 + + 40 bound = 1.0D0 + 50 status = -2 + RETURN + + 60 CONTINUE + 70 IF (which.EQ.1) GO TO 110 +C +C Q +C + IF (ISANAN(q).EQ.1) THEN + CALL RETURNANANFORTRAN(s) + CALL RETURNANANFORTRAN(xn) + CALL RETURNANANFORTRAN(pr) + CALL RETURNANANFORTRAN(ompr) + RETURN + ENDIF + IF (.NOT. ((q.LE.0.0D0).OR. (q.GT.1.0D0))) GO TO 100 + IF (.NOT. (q.LE.0.0D0)) GO TO 80 + bound = 0.0D0 + GO TO 90 + + 80 bound = 1.0D0 + 90 status = -3 + RETURN + + 100 CONTINUE + 110 IF (which.EQ.2) GO TO 130 +C +C S +C + IF (ISANAN(s).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(xn) + CALL RETURNANANFORTRAN(pr) + CALL RETURNANANFORTRAN(ompr) + RETURN + ENDIF + IF (vfinite(1,s).EQ.0) then + IF (which.EQ.1) then + IF (s.GT.0) then + p = 1 + q = 0 + RETURN + ENDIF + ELSE + s = SIGN(1D300,s) + ENDIF + ENDIF + IF (.NOT. (s.LT.0.0D0)) GO TO 120 + bound = 0.0D0 + status = -4 + RETURN + + 120 CONTINUE + 130 IF (which.EQ.3) GO TO 150 +C +C XN +C + IF (ISANAN(xn).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(s) + CALL RETURNANANFORTRAN(pr) + CALL RETURNANANFORTRAN(ompr) + RETURN + ENDIF + IF (vfinite(1,xn).EQ.0) xn = SIGN(inf,xn) + IF (.NOT. (xn.LT.0.0D0)) GO TO 140 + bound = 0.0D0 + status = -5 + RETURN + + 140 CONTINUE + 150 IF (which.EQ.4) GO TO 190 +C +C PR +C + IF (ISANAN(pr).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(s) + CALL RETURNANANFORTRAN(xn) + RETURN + ENDIF + IF (.NOT. ((pr.LT.0.0D0).OR. (pr.GT.1.0D0))) GO TO 180 + IF (.NOT. (pr.LT.0.0D0)) GO TO 160 + bound = 0.0D0 + GO TO 170 + + 160 bound = 1.0D0 + 170 status = -6 + RETURN + + 180 CONTINUE + 190 IF (which.EQ.4) GO TO 230 +C +C OMPR +C + IF (ISANAN(ompr).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(s) + CALL RETURNANANFORTRAN(xn) + RETURN + ENDIF + IF (.NOT. ((ompr.LT.0.0D0).OR. (ompr.GT.1.0D0))) GO TO 220 + IF (.NOT. (ompr.LT.0.0D0)) GO TO 200 + bound = 0.0D0 + GO TO 210 + + 200 bound = 1.0D0 + 210 status = -7 + RETURN + + 220 CONTINUE + 230 IF (which.EQ.1) GO TO 270 +C +C P + Q +C + pq = p + q + IF (.NOT. (abs(((pq)-0.5D0)-0.5D0).GT. + + (3.0D0*spmpar(1)))) GO TO 260 + IF (.NOT. (pq.LT.0.0D0)) GO TO 240 + bound = 0.0D0 + GO TO 250 + + 240 bound = 1.0D0 + 250 status = 3 + RETURN + + 260 CONTINUE + 270 IF (which.EQ.4) GO TO 310 +C +C PR + OMPR +C + prompr = pr + ompr + IF (.NOT. (abs(((prompr)-0.5D0)-0.5D0).GT. + + (3.0D0*spmpar(1)))) GO TO 300 + IF (.NOT. (prompr.LT.0.0D0)) GO TO 280 + bound = 0.0D0 + GO TO 290 + + 280 bound = 1.0D0 + 290 status = 4 + RETURN + + 300 CONTINUE + 310 IF (.NOT. (which.EQ.1)) qporq = p .LE. q +C +C Select the minimum of P or Q +C +C +C Calculate ANSWERS +C + IF ((1).EQ. (which)) THEN +C +C Calculating P +C + CALL cumnbn(s,xn,pr,ompr,p,q) + status = 0 + + ELSE IF ((2).EQ. (which)) THEN +C +C Calculating S +C + s = 5.0D0 + CALL dstinv(0.0D0,inf,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,s,fx,qleft,qhi) + 320 IF (.NOT. (status.EQ.1)) GO TO 350 + CALL cumnbn(s,xn,pr,ompr,cum,ccum) + IF (.NOT. (qporq)) GO TO 330 + fx = cum - p + GO TO 340 + + 330 fx = ccum - q + 340 CALL dinvr(status,s,fx,qleft,qhi) + GO TO 320 + + 350 IF (.NOT. (status.EQ.-1)) GO TO 380 + IF (.NOT. (qleft)) GO TO 360 + status = 1 + bound = 0.0D0 + GO TO 370 + + 360 status = 2 + bound = inf + 370 CONTINUE + 380 CONTINUE + + ELSE IF ((3).EQ. (which)) THEN +C +C Calculating XN +C + xn = 5.0D0 + CALL dstinv(0.0D0,inf,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,xn,fx,qleft,qhi) + 390 IF (.NOT. (status.EQ.1)) GO TO 420 + CALL cumnbn(s,xn,pr,ompr,cum,ccum) + IF (.NOT. (qporq)) GO TO 400 + fx = cum - p + GO TO 410 + + 400 fx = ccum - q + 410 CALL dinvr(status,xn,fx,qleft,qhi) + GO TO 390 + + 420 IF (.NOT. (status.EQ.-1)) GO TO 450 + IF (.NOT. (qleft)) GO TO 430 + status = 1 + bound = 0.0D0 + GO TO 440 + + 430 status = 2 + bound = inf + 440 CONTINUE + 450 CONTINUE + + ELSE IF ((4).EQ. (which)) THEN +C +C Calculating PR and OMPR +C + CALL dstzr(0.0D0,1.0D0,atol,tol) + IF (.NOT. (qporq)) GO TO 480 + status = 0 + CALL dzror(status,pr,fx,xlo,xhi,qleft,qhi) + ompr = one - pr + 460 IF (.NOT. (status.EQ.1)) GO TO 470 + CALL cumnbn(s,xn,pr,ompr,cum,ccum) + fx = cum - p + CALL dzror(status,pr,fx,xlo,xhi,qleft,qhi) + ompr = one - pr + GO TO 460 + + 470 GO TO 510 + + 480 status = 0 + CALL dzror(status,ompr,fx,xlo,xhi,qleft,qhi) + pr = one - ompr + 490 IF (.NOT. (status.EQ.1)) GO TO 500 + CALL cumnbn(s,xn,pr,ompr,cum,ccum) + fx = ccum - q + CALL dzror(status,ompr,fx,xlo,xhi,qleft,qhi) + pr = one - ompr + GO TO 490 + + 500 CONTINUE + 510 IF (.NOT. (status.EQ.-1)) GO TO 540 + IF (.NOT. (qleft)) GO TO 520 + status = 1 + bound = 0.0D0 + GO TO 530 + + 520 status = 2 + bound = 1.0D0 + 530 CONTINUE + 540 END IF + + RETURN + + END diff --git a/modules/statistics/src/dcdflib/cdfnbn.lo b/modules/statistics/src/dcdflib/cdfnbn.lo new file mode 100755 index 000000000..aa1081399 --- /dev/null +++ b/modules/statistics/src/dcdflib/cdfnbn.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cdfnbn.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cdfnbn.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cdfnor.f b/modules/statistics/src/dcdflib/cdfnor.f new file mode 100755 index 000000000..67f5b0c23 --- /dev/null +++ b/modules/statistics/src/dcdflib/cdfnor.f @@ -0,0 +1,281 @@ + SUBROUTINE cdfnor(which,p,q,x,mean,sd,status,bound) +C********************************************************************** +C +C SUBROUTINE CDFNOR( WHICH, P, Q, X, MEAN, SD, STATUS, BOUND ) +C Cumulative Distribution Function +C NORmal distribution +C +C +C Function +C +C +C Calculates any one parameter of the normal +C distribution given values for the others. +C +C +C Arguments +C +C +C WHICH --> Integer indicating which of the next parameter +C values is to be calculated using values of the others. +C Legal range: 1..4 +C iwhich = 1 : Calculate P and Q from X,MEAN and SD +C iwhich = 2 : Calculate X from P,Q,MEAN and SD +C iwhich = 3 : Calculate MEAN from P,Q,X and SD +C iwhich = 4 : Calculate SD from P,Q,X and MEAN +C INTEGER WHICH +C +C P <--> The integral from -infinity to X of the normal density. +C Input range: (0,1]. +C DOUBLE PRECISION P +C +C Q <--> 1-P. +C Input range: (0, 1]. +C P + Q = 1.0. +C DOUBLE PRECISION Q +C +C X < --> Upper limit of integration of the normal-density. +C Input range: ( -infinity, +infinity) +C DOUBLE PRECISION X +C +C MEAN <--> The mean of the normal density. +C Input range: (-infinity, +infinity) +C DOUBLE PRECISION MEAN +C +C SD <--> Standard Deviation of the normal density. +C Input range: (0, +infinity). +C DOUBLE PRECISION SD +C +C STATUS <-- 0 if calculation completed correctly +C -I if input parameter number I is out of range +C 1 if answer appears to be lower than lowest +C search bound +C 2 if answer appears to be higher than greatest +C search bound +C 3 if P + Q .ne. 1 +C INTEGER STATUS +C +C BOUND <-- Undefined if STATUS is 0 +C +C Bound exceeded by parameter number I if STATUS +C is negative. +C +C Lower search bound if STATUS is 1. +C +C Upper search bound if STATUS is 2. +C +C +C Method +C +C +C +C +C A slightly modified version of ANORM from +C +C Cody, W.D. (1993). "ALGORITHM 715: SPECFUN - A Portabel FORTRAN +C Package of Special Function Routines and Test Drivers" +C acm Transactions on Mathematical Software. 19, 22-32. +C +C is used to calulate the cumulative standard normal distribution. +C +C The rational functions from pages 90-95 of Kennedy and Gentle, +C Statistical Computing, Marcel Dekker, NY, 1980 are used as +C starting values to Newton's Iterations which compute the inverse +C standard normal. Therefore no searches are necessary for any +C parameter. +C +C For X < -15, the asymptotic expansion for the normal is used as +C the starting value in finding the inverse standard normal. +C This is formula 26.2.12 of Abramowitz and Stegun. +C +C +C Note +C +C +C The normal density is proportional to +C exp( - 0.5 * (( X - MEAN)/SD)**2) +C +C +C********************************************************************** +C .. Parameters .. + DOUBLE PRECISION inf + PARAMETER (inf=1.0D300) +C .. +C .. Scalar Arguments .. + DOUBLE PRECISION bound,mean,p,q,sd,x + INTEGER status,which +C .. +C .. Local Scalars .. + DOUBLE PRECISION z,pq +C .. +C .. External Functions .. + INTEGER vfinite + DOUBLE PRECISION dinvnr,spmpar + EXTERNAL dinvnr,spmpar +C .. +C .. External Subroutines .. + EXTERNAL cumnor +C .. +C .. Executable Statements .. +C +C Check arguments +C + status = 0 + IF (.NOT. ((which.LT.1).OR. (which.GT.4))) GO TO 30 + IF (.NOT. (which.LT.1)) GO TO 10 + bound = 1.0D0 + GO TO 20 + + 10 bound = 4.0D0 + 20 status = -1 + RETURN + + 30 IF (which.EQ.1) GO TO 70 +C +C P +C + IF (ISANAN(p).EQ.1) THEN + CALL RETURNANANFORTRAN(x) + CALL RETURNANANFORTRAN(sd) + CALL RETURNANANFORTRAN(mean) + RETURN + ENDIF + IF (.NOT. ((p.LE.0.0D0).OR. (p.GT.1.0D0))) GO TO 60 + IF (.NOT. (p.LE.0.0D0)) GO TO 40 + bound = 0.0D0 + GO TO 50 + + 40 bound = 1.0D0 + 50 status = -2 + RETURN + + 60 CONTINUE + 70 IF (which.EQ.1) GO TO 110 +C +C Q +C + IF (ISANAN(q).EQ.1) THEN + CALL RETURNANANFORTRAN(x) + CALL RETURNANANFORTRAN(sd) + CALL RETURNANANFORTRAN(mean) + RETURN + ENDIF + IF (.NOT. ((q.LE.0.0D0).OR. (q.GT.1.0D0))) GO TO 100 + IF (.NOT. (q.LE.0.0D0)) GO TO 80 + bound = 0.0D0 + GO TO 90 + + 80 bound = 1.0D0 + 90 status = -3 + RETURN + + 100 CONTINUE + 110 IF (which.EQ.1) GO TO 150 +C +C P + Q +C + pq = p + q + IF (.NOT. (abs(((pq)-0.5D0)-0.5D0).GT. + + (3.0D0*spmpar(1)))) GO TO 140 + IF (.NOT. (pq.LT.0.0D0)) GO TO 120 + bound = 0.0D0 + GO TO 130 + + 120 bound = 1.0D0 + 130 status = 3 + RETURN + + 140 CONTINUE + 150 IF (which.EQ.2) GO TO 160 +C +C X +C + IF (ISANAN(x).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(mean) + CALL RETURNANANFORTRAN(sd) + RETURN + ENDIF + IF (vfinite(1,x).EQ.0) then + IF (which.EQ.1) then + IF (x.GT.0) then + p = 1 + q = 0 + RETURN + ELSE + p = 0 + q = 1 + RETURN + ENDIF + ELSE + x = SIGN(inf,x) + ENDIF + ENDIF + + 160 IF (which.EQ.3) GO TO 170 +C +C MEAN +C + IF (ISANAN(mean).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(x) + CALL RETURNANANFORTRAN(sd) + RETURN + ENDIF + IF (vfinite(1,mean).EQ.0) mean = SIGN(inf,mean) + + 170 IF (which.EQ.4) GO TO 190 +C +C SD +C + IF (ISANAN(sd).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(x) + CALL RETURNANANFORTRAN(mean) + RETURN + ENDIF + IF (vfinite(1,sd).EQ.0) sd = SIGN(inf,sd) + IF (.NOT. (sd.LE.0.0D0)) GO TO 180 + bound = 0.0D0 + status = -6 + RETURN + + 180 CONTINUE +C +C Calculate ANSWERS +C + 190 IF ((1).EQ. (which)) THEN +C +C Computing P +C + z = (x-mean)/sd + CALL cumnor(z,p,q) + + ELSE IF ((2).EQ. (which)) THEN +C +C Computing X +C + z = dinvnr(p,q) + x = sd*z + mean + + ELSE IF ((3).EQ. (which)) THEN +C +C Computing the MEAN +C + z = dinvnr(p,q) + mean = x - sd*z + + ELSE IF ((4).EQ. (which)) THEN +C +C Computing SD +C + z = dinvnr(p,q) + sd = (x-mean)/z + END IF + + RETURN + + END diff --git a/modules/statistics/src/dcdflib/cdfnor.lo b/modules/statistics/src/dcdflib/cdfnor.lo new file mode 100755 index 000000000..7be6f5588 --- /dev/null +++ b/modules/statistics/src/dcdflib/cdfnor.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cdfnor.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cdfnor.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cdfpoi.f b/modules/statistics/src/dcdflib/cdfpoi.f new file mode 100755 index 000000000..cb08bd470 --- /dev/null +++ b/modules/statistics/src/dcdflib/cdfpoi.f @@ -0,0 +1,289 @@ + SUBROUTINE cdfpoi(which,p,q,s,xlam,status,bound) +C********************************************************************** +C +C SUBROUTINE CDFPOI( WHICH, P, Q, S, XLAM, STATUS, BOUND ) +C Cumulative Distribution Function +C POIsson distribution +C +C +C Function +C +C +C Calculates any one parameter of the Poisson +C distribution given values for the others. +C +C +C Arguments +C +C +C WHICH --> Integer indicating which argument +C value is to be calculated from the others. +C Legal range: 1..3 +C iwhich = 1 : Calculate P and Q from S and XLAM +C iwhich = 2 : Calculate A from P,Q and XLAM +C iwhich = 3 : Calculate XLAM from P,Q and S +C INTEGER WHICH +C +C P <--> The cumulation from 0 to S of the poisson density. +C Input range: [0,1]. +C DOUBLE PRECISION P +C +C Q <--> 1-P. +C Input range: (0, 1]. +C P + Q = 1.0. +C DOUBLE PRECISION Q +C +C S <--> Upper limit of cumulation of the Poisson. +C Input range: [0, +infinity). +C Search range: [0,1E300] +C DOUBLE PRECISION S +C +C XLAM <--> Mean of the Poisson distribution. +C Input range: [0, +infinity). +C Search range: [0,1E300] +C DOUBLE PRECISION XLAM +C +C STATUS <-- 0 if calculation completed correctly +C -I if input parameter number I is out of range +C 1 if answer appears to be lower than lowest +C search bound +C 2 if answer appears to be higher than greatest +C search bound +C 3 if P + Q .ne. 1 +C INTEGER STATUS +C +C BOUND <-- Undefined if STATUS is 0 +C +C Bound exceeded by parameter number I if STATUS +C is negative. +C +C Lower search bound if STATUS is 1. +C +C Upper search bound if STATUS is 2. +C +C +C Method +C +C +C Formula 26.4.21 of Abramowitz and Stegun, Handbook of +C Mathematical Functions (1966) is used to reduce the computation +C of the cumulative distribution function to that of computing a +C chi-square, hence an incomplete gamma function. +C +C Cumulative distribution function (P) is calculated directly. +C Computation of other parameters involve a search for a value that +C produces the desired value of P. The search relies on the +C monotonicity of P with the other parameter. +C +C +C********************************************************************** +C .. Parameters .. + DOUBLE PRECISION tol + PARAMETER (tol=1.0D-13) + DOUBLE PRECISION atol + PARAMETER (atol=1.0D-50) + DOUBLE PRECISION inf + PARAMETER (inf=1.0D300) +C .. +C .. Scalar Arguments .. + DOUBLE PRECISION bound,p,q,s,xlam + INTEGER status,which +C .. +C .. Local Scalars .. + DOUBLE PRECISION fx,cum,ccum,pq + LOGICAL qhi,qleft,qporq +C .. +C .. External Functions .. + INTEGER vfinite + DOUBLE PRECISION spmpar + EXTERNAL spmpar +C .. +C .. External Subroutines .. + EXTERNAL dinvr,dstinv,cumpoi +C .. +C .. Executable Statements .. +C +C Check arguments +C + IF (.NOT. ((which.LT.1).OR. (which.GT.3))) GO TO 30 + IF (.NOT. (which.LT.1)) GO TO 10 + bound = 1.0D0 + GO TO 20 + + 10 bound = 3.0D0 + 20 status = -1 + RETURN + + 30 IF (which.EQ.1) GO TO 70 +C +C P +C + IF (ISANAN(p).EQ.1) THEN + CALL RETURNANANFORTRAN(s) + CALL RETURNANANFORTRAN(xlam) + RETURN + ENDIF + IF (.NOT. ((p.LT.0.0D0).OR. (p.GT.1.0D0))) GO TO 60 + IF (.NOT. (p.LT.0.0D0)) GO TO 40 + bound = 0.0D0 + GO TO 50 + + 40 bound = 1.0D0 + 50 status = -2 + RETURN + + 60 CONTINUE + 70 IF (which.EQ.1) GO TO 110 +C +C Q +C + IF (ISANAN(q).EQ.1) THEN + CALL RETURNANANFORTRAN(s) + CALL RETURNANANFORTRAN(xlam) + RETURN + ENDIF + IF (.NOT. ((q.LE.0.0D0).OR. (q.GT.1.0D0))) GO TO 100 + IF (.NOT. (q.LE.0.0D0)) GO TO 80 + bound = 0.0D0 + GO TO 90 + + 80 bound = 1.0D0 + 90 status = -3 + RETURN + + 100 CONTINUE + 110 IF (which.EQ.2) GO TO 130 +C +C S +C + IF (ISANAN(s).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(xlam) + RETURN + ENDIF + IF (vfinite(1,s).EQ.0) then + IF (which.EQ.1) then + IF (s.GT.0) then + p = 1 + q = 0 + RETURN + ENDIF + ELSE + s = SIGN(1D300,s) + ENDIF + ENDIF + IF (.NOT. (s.LT.0.0D0)) GO TO 120 + bound = 0.0D0 + status = -4 + RETURN + + 120 CONTINUE + 130 IF (which.EQ.3) GO TO 150 +C +C XLAM +C + IF (ISANAN(xlam).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(s) + RETURN + ENDIF + IF (vfinite(1,xlam).EQ.0) xlam = SIGN(inf,xlam) + IF (.NOT. (xlam.LT.0.0D0)) GO TO 140 + bound = 0.0D0 + status = -5 + RETURN + + 140 CONTINUE + 150 IF (which.EQ.1) GO TO 190 +C +C P + Q +C + pq = p + q + IF (.NOT. (abs(((pq)-0.5D0)-0.5D0).GT. + + (3.0D0*spmpar(1)))) GO TO 180 + IF (.NOT. (pq.LT.0.0D0)) GO TO 160 + bound = 0.0D0 + GO TO 170 + + 160 bound = 1.0D0 + 170 status = 3 + RETURN + + 180 CONTINUE + 190 IF (.NOT. (which.EQ.1)) qporq = p .LE. q +C +C Select the minimum of P or Q +C +C +C Calculate ANSWERS +C + IF ((1).EQ. (which)) THEN +C +C Calculating P +C + CALL cumpoi(s,xlam,p,q) + status = 0 + + ELSE IF ((2).EQ. (which)) THEN +C +C Calculating S +C + s = 5.0D0 + CALL dstinv(0.0D0,inf,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,s,fx,qleft,qhi) + 200 IF (.NOT. (status.EQ.1)) GO TO 230 + CALL cumpoi(s,xlam,cum,ccum) + IF (.NOT. (qporq)) GO TO 210 + fx = cum - p + GO TO 220 + + 210 fx = ccum - q + 220 CALL dinvr(status,s,fx,qleft,qhi) + GO TO 200 + + 230 IF (.NOT. (status.EQ.-1)) GO TO 260 + IF (.NOT. (qleft)) GO TO 240 + status = 1 + bound = 0.0D0 + GO TO 250 + + 240 status = 2 + bound = inf + 250 CONTINUE + 260 CONTINUE + + ELSE IF ((3).EQ. (which)) THEN +C +C Calculating XLAM +C + xlam = 5.0D0 + CALL dstinv(0.0D0,inf,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,xlam,fx,qleft,qhi) + 270 IF (.NOT. (status.EQ.1)) GO TO 300 + CALL cumpoi(s,xlam,cum,ccum) + IF (.NOT. (qporq)) GO TO 280 + fx = cum - p + GO TO 290 + + 280 fx = ccum - q + 290 CALL dinvr(status,xlam,fx,qleft,qhi) + GO TO 270 + + 300 IF (.NOT. (status.EQ.-1)) GO TO 330 + IF (.NOT. (qleft)) GO TO 310 + status = 1 + bound = 0.0D0 + GO TO 320 + + 310 status = 2 + bound = inf + 320 CONTINUE + 330 END IF + + RETURN + + END diff --git a/modules/statistics/src/dcdflib/cdfpoi.lo b/modules/statistics/src/dcdflib/cdfpoi.lo new file mode 100755 index 000000000..8dbe5655e --- /dev/null +++ b/modules/statistics/src/dcdflib/cdfpoi.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cdfpoi.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cdfpoi.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cdft.f b/modules/statistics/src/dcdflib/cdft.f new file mode 100755 index 000000000..917091f3f --- /dev/null +++ b/modules/statistics/src/dcdflib/cdft.f @@ -0,0 +1,290 @@ + SUBROUTINE cdft(which,p,q,t,df,status,bound) +C********************************************************************** +C +C SUBROUTINE CDFT( WHICH, P, Q, T, DF, STATUS, BOUND ) +C Cumulative Distribution Function +C T distribution +C +C +C Function +C +C +C Calculates any one parameter of the t distribution given +C values for the others. +C +C +C Arguments +C +C +C WHICH --> Integer indicating which argument +C values is to be calculated from the others. +C Legal range: 1..3 +C iwhich = 1 : Calculate P and Q from T and DF +C iwhich = 2 : Calculate T from P,Q and DF +C iwhich = 3 : Calculate DF from P,Q and T +C INTEGER WHICH +C +C P <--> The integral from -infinity to t of the t-density. +C Input range: (0,1]. +C DOUBLE PRECISION P +C +C Q <--> 1-P. +C Input range: (0, 1]. +C P + Q = 1.0. +C DOUBLE PRECISION Q +C +C T <--> Upper limit of integration of the t-density. +C Input range: ( -infinity, +infinity). +C Search range: [ -1E150, 1E150 ] +C DOUBLE PRECISION T +C +C DF <--> Degrees of freedom of the t-distribution. +C Input range: (0 , +infinity). +C Search range: [1e-300, 1E10] +C DOUBLE PRECISION DF +C +C STATUS <-- 0 if calculation completed correctly +C -I if input parameter number I is out of range +C 1 if answer appears to be lower than lowest +C search bound +C 2 if answer appears to be higher than greatest +C search bound +C 3 if P + Q .ne. 1 +C INTEGER STATUS +C +C BOUND <-- Undefined if STATUS is 0 +C +C Bound exceeded by parameter number I if STATUS +C is negative. +C +C Lower search bound if STATUS is 1. +C +C Upper search bound if STATUS is 2. +C +C +C Method +C +C +C Formula 26.5.27 of Abramowitz and Stegun, Handbook of +C Mathematical Functions (1966) is used to reduce the computation +C of the cumulative distribution function to that of an incomplete +C beta. +C +C Computation of other parameters involve a search for a value that +C produces the desired value of P. The search relies on the +C monotonicity of P with the other parameter. +C +C********************************************************************** +C .. Parameters .. + DOUBLE PRECISION tol + PARAMETER (tol=1.0D-13) + DOUBLE PRECISION atol + PARAMETER (atol=1.0D-50) + DOUBLE PRECISION zero,inf + PARAMETER (zero=1.0D-300,inf=1.0D300) + DOUBLE PRECISION rtinf + PARAMETER (rtinf=1.0D150) + DOUBLE PRECISION maxdf + PARAMETER (maxdf=1.0d10) +C .. +C .. Scalar Arguments .. + DOUBLE PRECISION bound,df,p,q,t + INTEGER status,which +C .. +C .. Local Scalars .. + DOUBLE PRECISION fx,cum,ccum,pq + LOGICAL qhi,qleft,qporq +C .. +C .. External Functions .. + INTEGER vfinite + DOUBLE PRECISION spmpar,dt1 + EXTERNAL spmpar,dt1 +C .. +C .. External Subroutines .. + EXTERNAL dinvr,dstinv,cumt +C .. +C .. Executable Statements .. +C +C Check arguments +C + IF (.NOT. ((which.LT.1).OR. (which.GT.3))) GO TO 30 + IF (.NOT. (which.LT.1)) GO TO 10 + bound = 1.0D0 + GO TO 20 + + 10 bound = 3.0D0 + 20 status = -1 + RETURN + + 30 IF (which.EQ.1) GO TO 70 +C +C P +C + IF (ISANAN(p).EQ.1) THEN + CALL RETURNANANFORTRAN(t) + CALL RETURNANANFORTRAN(df) + RETURN + ENDIF + IF (.NOT. ((p.LE.0.0D0).OR. (p.GT.1.0D0))) GO TO 60 + IF (.NOT. (p.LE.0.0D0)) GO TO 40 + bound = 0.0D0 + GO TO 50 + + 40 bound = 1.0D0 + 50 status = -2 + RETURN + + 60 CONTINUE + 70 IF (which.EQ.1) GO TO 110 +C +C Q +C + IF (ISANAN(q).EQ.1) THEN + CALL RETURNANANFORTRAN(t) + CALL RETURNANANFORTRAN(df) + RETURN + ENDIF + IF (.NOT. ((q.LE.0.0D0).OR. (q.GT.1.0D0))) GO TO 100 + IF (.NOT. (q.LE.0.0D0)) GO TO 80 + bound = 0.0D0 + GO TO 90 + + 80 bound = 1.0D0 + 90 status = -3 + RETURN + + 100 CONTINUE + 110 IF (which.EQ.3) GO TO 130 +C +C T +C + IF (ISANAN(t).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(df) + RETURN + ENDIF + IF (vfinite(1,t).EQ.0) then + IF (which.EQ.1) then + IF (t.GT.0) then + p = 1 + q = 0 + RETURN + ELSE + p = 0 + q = 1 + RETURN + ENDIF + ELSE + t = SIGN(1D300,t) + ENDIF + ENDIF +C +C DF +C + IF (ISANAN(df).EQ.1) THEN + CALL RETURNANANFORTRAN(p) + CALL RETURNANANFORTRAN(q) + CALL RETURNANANFORTRAN(t) + RETURN + ENDIF + IF (vfinite(1,df).EQ.0) df = SIGN(inf,df) + IF (.NOT. (df.LE.0.0D0)) GO TO 120 + bound = 0.0D0 + status = -5 + RETURN + + 120 CONTINUE + 130 IF (which.EQ.1) GO TO 170 +C +C P + Q +C + pq = p + q + IF (.NOT. (abs(((pq)-0.5D0)-0.5D0).GT. + + (3.0D0*spmpar(1)))) GO TO 160 + IF (.NOT. (pq.LT.0.0D0)) GO TO 140 + bound = 0.0D0 + GO TO 150 + + 140 bound = 1.0D0 + 150 status = 3 + RETURN + + 160 CONTINUE + 170 IF (.NOT. (which.EQ.1)) qporq = p .LE. q +C +C Select the minimum of P or Q +C +C +C Calculate ANSWERS +C + IF ((1).EQ. (which)) THEN +C +C Computing P and Q +C + CALL cumt(t,df,p,q) + status = 0 + + ELSE IF ((2).EQ. (which)) THEN +C +C Computing T +C +C .. Get initial approximation for T +C + t = dt1(p,q,df) + CALL dstinv(-rtinf,rtinf,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,t,fx,qleft,qhi) + 180 IF (.NOT. (status.EQ.1)) GO TO 210 + CALL cumt(t,df,cum,ccum) + IF (.NOT. (qporq)) GO TO 190 + fx = cum - p + GO TO 200 + + 190 fx = ccum - q + 200 CALL dinvr(status,t,fx,qleft,qhi) + GO TO 180 + + 210 IF (.NOT. (status.EQ.-1)) GO TO 240 + IF (.NOT. (qleft)) GO TO 220 + status = 1 + bound = -rtinf + GO TO 230 + + 220 status = 2 + bound = rtinf + 230 CONTINUE + 240 CONTINUE + + ELSE IF ((3).EQ. (which)) THEN +C +C Computing DF +C + df = 5.0D0 + CALL dstinv(zero,maxdf,0.5D0,0.5D0,5.0D0,atol,tol) + status = 0 + CALL dinvr(status,df,fx,qleft,qhi) + 250 IF (.NOT. (status.EQ.1)) GO TO 280 + CALL cumt(t,df,cum,ccum) + IF (.NOT. (qporq)) GO TO 260 + fx = cum - p + GO TO 270 + + 260 fx = ccum - q + 270 CALL dinvr(status,df,fx,qleft,qhi) + GO TO 250 + + 280 IF (.NOT. (status.EQ.-1)) GO TO 310 + IF (.NOT. (qleft)) GO TO 290 + status = 1 + bound = zero + GO TO 300 + + 290 status = 2 + bound = maxdf + 300 CONTINUE + 310 END IF + + RETURN + + END diff --git a/modules/statistics/src/dcdflib/cdft.lo b/modules/statistics/src/dcdflib/cdft.lo new file mode 100755 index 000000000..1cb0acedf --- /dev/null +++ b/modules/statistics/src/dcdflib/cdft.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cdft.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cdft.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cumbet.f b/modules/statistics/src/dcdflib/cumbet.f new file mode 100755 index 000000000..b7a1242ca --- /dev/null +++ b/modules/statistics/src/dcdflib/cumbet.f @@ -0,0 +1,78 @@ + SUBROUTINE cumbet(x,y,a,b,cum,ccum) +C********************************************************************** +C +C SUBROUTINE CUMBET(X,Y,A,B,CUM,CCUM) +C Double precision cUMulative incomplete BETa distribution +C +C +C Function +C +C +C Calculates the cdf to X of the incomplete beta distribution +C with parameters a and b. This is the integral from 0 to x +C of (1/B(a,b))*f(t)) where f(t) = t**(a-1) * (1-t)**(b-1) +C +C +C Arguments +C +C +C X --> Upper limit of integration. +C X is DOUBLE PRECISION +C +C Y --> 1 - X. +C Y is DOUBLE PRECISION +C +C A --> First parameter of the beta distribution. +C A is DOUBLE PRECISION +C +C B --> Second parameter of the beta distribution. +C B is DOUBLE PRECISION +C +C CUM <-- Cumulative incomplete beta distribution. +C CUM is DOUBLE PRECISION +C +C CCUM <-- Compliment of Cumulative incomplete beta distribution. +C CCUM is DOUBLE PRECISION +C +C +C Method +C +C +C Calls the routine BRATIO. +C +C References +C +C Didonato, Armido R. and Morris, Alfred H. Jr. (1992) Algorithim +C 708 Significant Digit Computation of the Incomplete Beta Function +C Ratios. ACM ToMS, Vol.18, No. 3, Sept. 1992, 360-373. +C +C********************************************************************** + +C .. Scalar Arguments .. + DOUBLE PRECISION x,y,a,b,cum,ccum +C .. +C .. Local Scalars .. + INTEGER ierr +C .. +C .. External Routines .. + EXTERNAL bratio +C .. +C .. Executable Statements .. + IF (.NOT. (x.LE.0.0D0)) GO TO 10 + cum = 0.0D0 + ccum = 1.0D0 + RETURN + + 10 IF (.NOT. (y.LE.0.0D0)) GO TO 20 + cum = 1.0D0 + ccum = 0.0D0 + RETURN + + 20 CALL bratio(a,b,x,y,cum,ccum,ierr) + +C Call bratio routine + + + RETURN + + END diff --git a/modules/statistics/src/dcdflib/cumbet.lo b/modules/statistics/src/dcdflib/cumbet.lo new file mode 100755 index 000000000..c04ad6df7 --- /dev/null +++ b/modules/statistics/src/dcdflib/cumbet.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cumbet.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cumbet.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cumbin.f b/modules/statistics/src/dcdflib/cumbin.f new file mode 100755 index 000000000..7fc721e57 --- /dev/null +++ b/modules/statistics/src/dcdflib/cumbin.f @@ -0,0 +1,61 @@ + SUBROUTINE cumbin(s,xn,pr,ompr,cum,ccum) +C********************************************************************** +C +C SUBROUTINE CUMBIN(S,XN,PBIN,OMPR,CUM,CCUM) +C CUmulative BINomial distribution +C +C +C Function +C +C +C Returns the probability of 0 to S successes in XN binomial +C trials, each of which has a probability of success, PBIN. +C +C +C Arguments +C +C +C S --> The upper limit of cumulation of the binomial distribution. +C S is DOUBLE PRECISION +C +C XN --> The number of binomial trials. +C XN is DOUBLE PRECISIO +C +C PBIN --> The probability of success in each binomial trial. +C PBIN is DOUBLE PRECIS +C +C OMPR --> 1 - PBIN +C OMPR is DOUBLE PRECIS +C +C CUM <-- Cumulative binomial distribution. +C CUM is DOUBLE PRECISI +C +C CCUM <-- Compliment of Cumulative binomial distribution. +C CCUM is DOUBLE PRECIS + +C +C +C Method +C +C +C Formula 26.5.24 of Abramowitz and Stegun, Handbook of +C Mathematical Functions (1966) is used to reduce the binomial +C distribution to the cumulative beta distribution. +C +C********************************************************************** +C .. Scalar Arguments .. + DOUBLE PRECISION pr,ompr,s,xn,cum,ccum +C .. +C .. External Subroutines .. + EXTERNAL cumbet +C .. +C .. Executable Statements .. + IF (.NOT. (s.LT.xn)) GO TO 10 + CALL cumbet(pr,ompr,s+1.0D0,xn-s,ccum,cum) + GO TO 20 + + 10 cum = 1.0D0 + ccum = 0.0D0 + 20 RETURN + + END diff --git a/modules/statistics/src/dcdflib/cumbin.lo b/modules/statistics/src/dcdflib/cumbin.lo new file mode 100755 index 000000000..df9437dcc --- /dev/null +++ b/modules/statistics/src/dcdflib/cumbin.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cumbin.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cumbin.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cumchi.f b/modules/statistics/src/dcdflib/cumchi.f new file mode 100755 index 000000000..5471b8120 --- /dev/null +++ b/modules/statistics/src/dcdflib/cumchi.f @@ -0,0 +1,53 @@ + SUBROUTINE cumchi(x,df,cum,ccum) +C********************************************************************** +C +C SUBROUTINE FUNCTION CUMCHI(X,DF,CUM,CCUM) +C CUMulative of the CHi-square distribution +C +C +C Function +C +C +C Calculates the cumulative chi-square distribution. +C +C +C Arguments +C +C +C X --> Upper limit of integration of the +C chi-square distribution. +C X is DOUBLE PRECISION +C +C DF --> Degrees of freedom of the +C chi-square distribution. +C DF is DOUBLE PRECISION +C +C CUM <-- Cumulative chi-square distribution. +C CUM is DOUBLE PRECISIO +C +C CCUM <-- Compliment of Cumulative chi-square distribution. +C CCUM is DOUBLE PRECISI +C +C +C Method +C +C +C Calls incomplete gamma function (CUMGAM) +C +C********************************************************************** +C .. Scalar Arguments .. + DOUBLE PRECISION df,x,cum,ccum +C .. +C .. Local Scalars .. + DOUBLE PRECISION a,xx +C .. +C .. External Subroutines .. + EXTERNAL cumgam +C .. +C .. Executable Statements .. + a = df*0.5D0 + xx = x*0.5D0 + CALL cumgam(xx,a,cum,ccum) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/cumchi.lo b/modules/statistics/src/dcdflib/cumchi.lo new file mode 100755 index 000000000..7c43aef69 --- /dev/null +++ b/modules/statistics/src/dcdflib/cumchi.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cumchi.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cumchi.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cumchn.f b/modules/statistics/src/dcdflib/cumchn.f new file mode 100755 index 000000000..1e6ba50df --- /dev/null +++ b/modules/statistics/src/dcdflib/cumchn.f @@ -0,0 +1,244 @@ + SUBROUTINE cumchn(x,df,pnonc,cum,ccum) +C********************************************************************** +C +C SUBROUTINE CUMCHN(X,DF,PNONC,CUM,CCUM) +C CUMulative of the Non-central CHi-square distribution +C +C +C Function +C +C +C Calculates the cumulative non-central chi-square +C distribution, i.e., the probability that a random variable +C which follows the non-central chi-square distribution, with +C non-centrality parameter PNONC and continuous degrees of +C freedom DF, is less than or equal to X. +C +C +C Arguments +C +C +C X --> Upper limit of integration of the non-central +C chi-square distribution. +C X is DOUBLE PRECISION +C +C DF --> Degrees of freedom of the non-central +C chi-square distribution. +C DF is DOUBLE PRECISION +C +C PNONC --> Non-centrality parameter of the non-central +C chi-square distribution. +C PNONC is DOUBLE PRECIS +C +C CUM <-- Cumulative non-central chi-square distribution. +C CUM is DOUBLE PRECISIO +C +C CCUM <-- Compliment of Cumulative non-central chi-square distribut +C CCUM is DOUBLE PRECISI + +C +C +C Method +C +C +C Uses formula 26.4.25 of Abramowitz and Stegun, Handbook of +C Mathematical Functions, US NBS (1966) to calculate the +C non-central chi-square. +C +C +C Variables +C +C +C EPS --- Convergence criterion. The sum stops when a +C term is less than EPS*SUM. +C EPS is DOUBLE PRECISIO +C +C NTIRED --- Maximum number of terms to be evaluated +C in each sum. +C NTIRED is INTEGER +C +C QCONV --- .TRUE. if convergence achieved - +C i.e., program did not stop on NTIRED criterion. +C QCONV is LOGICAL +C +C CCUM <-- Compliment of Cumulative non-central +C chi-square distribution. +C CCUM is DOUBLE PRECISI +C +C********************************************************************** +C +C +C .. Scalar Arguments .. + DOUBLE PRECISION df,pnonc,x,cum,ccum +C .. +C .. Local Scalars .. + DOUBLE PRECISION adj,centaj,centwt,chid2,dfd2,eps,lcntaj,lcntwt, + + lfact,pcent,pterm,sum,sumadj,term,wt,xnonc,xx + INTEGER i,icent,iterb,iterf,ntired +C .. +C .. External Functions .. + DOUBLE PRECISION alngam + EXTERNAL alngam +C .. +C .. External Subroutines .. + EXTERNAL cumchi +C .. +C .. Intrinsic Functions .. + INTRINSIC log,exp,dble,int +C .. +C .. Statement Functions .. + DOUBLE PRECISION dg + LOGICAL qsmall,qtired +C .. +C .. Data statements .. + DATA ntired,eps/1000,1.0D-5/ +C .. +C .. Statement Function definitions .. + qtired(i) = i .GT. ntired + qsmall(xx) = sum .LT. 1.0D-20 .OR. xx .LT. eps*sum + dg(i) = df + 2.0D0*dble(i) +C .. +C .. Executable Statements .. +C + IF (.NOT. (x.LE.0.0D0)) GO TO 10 + cum = 0.0D0 + ccum = 1.0D0 + RETURN + + 10 IF (.NOT. (pnonc.LE.1.0D-10)) GO TO 20 +C +C +C When non-centrality parameter is (essentially) zero, +C use cumulative chi-square distribution +C +C + CALL cumchi(x,df,cum,ccum) + RETURN + + 20 xnonc = pnonc/2.0D0 +C********************************************************************** +C +C The following code calcualtes the weight, chi-square, and +C adjustment term for the central term in the infinite series. +C The central term is the one in which the poisson weight is +C greatest. The adjustment term is the amount that must +C be subtracted from the chi-square to move up two degrees +C of freedom. +C +C********************************************************************** + icent = int(xnonc) + IF (icent.EQ.0) icent = 1 + chid2 = x/2.0D0 +C +C +C Calculate central weight term +C +C + lfact = alngam(dble(icent+1)) + lcntwt = -xnonc + icent*log(xnonc) - lfact + centwt = exp(lcntwt) +C +C +C Calculate central chi-square +C +C + CALL cumchi(x,dg(icent),pcent,ccum) +C +C +C Calculate central adjustment term +C +C + dfd2 = dg(icent)/2.0D0 + lfact = alngam(1.0D0+dfd2) + lcntaj = dfd2*log(chid2) - chid2 - lfact + centaj = exp(lcntaj) + sum = centwt*pcent +C********************************************************************** +C +C Sum backwards from the central term towards zero. +C Quit whenever either +C (1) the zero term is reached, or +C (2) the term gets small relative to the sum, or +C (3) More than NTIRED terms are totaled. +C +C********************************************************************** + iterb = 0 + sumadj = 0.0D0 + adj = centaj + wt = centwt + i = icent +C + GO TO 40 + + 30 IF (qtired(iterb) .OR. qsmall(term) .OR. i.EQ.0) GO TO 50 + 40 dfd2 = dg(i)/2.0D0 +C +C +C Adjust chi-square for two fewer degrees of freedom. +C The adjusted value ends up in PTERM. +C +C + adj = adj*dfd2/chid2 + sumadj = sumadj + adj + pterm = pcent + sumadj +C +C +C Adjust poisson weight for J decreased by one +C +C + wt = wt* (i/xnonc) + term = wt*pterm + sum = sum + term + i = i - 1 + iterb = iterb + 1 + GO TO 30 + + 50 iterf = 0 +C********************************************************************** +C +C Now sum forward from the central term towards infinity. +C Quit when either +C (1) the term gets small relative to the sum, or +C (2) More than NTIRED terms are totaled. +C +C********************************************************************** + sumadj = centaj + adj = centaj + wt = centwt + i = icent +C + GO TO 70 + + 60 IF (qtired(iterf) .OR. qsmall(term)) GO TO 80 +C +C +C Update weights for next higher J +C +C + 70 wt = wt* (xnonc/ (i+1)) +C +C +C Calculate PTERM and add term to sum +C +C + pterm = pcent - sumadj + term = wt*pterm + sum = sum + term +C +C +C Update adjustment term for DF for next iteration +C +C + i = i + 1 + dfd2 = dg(i)/2.0D0 + adj = adj*chid2/dfd2 + sumadj = sumadj + adj + iterf = iterf + 1 + GO TO 60 + + 80 cum = sum + ccum = 0.5D0 + (0.5D0-cum) +C + RETURN + + END diff --git a/modules/statistics/src/dcdflib/cumchn.lo b/modules/statistics/src/dcdflib/cumchn.lo new file mode 100755 index 000000000..70c5981d3 --- /dev/null +++ b/modules/statistics/src/dcdflib/cumchn.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cumchn.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cumchn.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cumf.f b/modules/statistics/src/dcdflib/cumf.f new file mode 100755 index 000000000..84c758bab --- /dev/null +++ b/modules/statistics/src/dcdflib/cumf.f @@ -0,0 +1,93 @@ + SUBROUTINE cumf(f,dfn,dfd,cum,ccum) +C********************************************************************** +C +C SUBROUTINE CUMF(F,DFN,DFD,CUM,CCUM) +C CUMulative F distribution +C +C +C Function +C +C +C Computes the integral from 0 to F of the f-density with DFN +C and DFD degrees of freedom. +C +C +C Arguments +C +C +C F --> Upper limit of integration of the f-density. +C F is DOUBLE PRECISION +C +C DFN --> Degrees of freedom of the numerator sum of squares. +C DFN is DOUBLE PRECISI +C +C DFD --> Degrees of freedom of the denominator sum of squares. +C DFD is DOUBLE PRECISI +C +C CUM <-- Cumulative f distribution. +C CUM is DOUBLE PRECISI +C +C CCUM <-- Compliment of Cumulative f distribution. +C CCUM is DOUBLE PRECIS +C +C +C Method +C +C +C Formula 26.5.28 of Abramowitz and Stegun is used to reduce +C the cumulative F to a cumulative beta distribution. +C +C +C Note +C +C +C If F is less than or equal to 0, 0 is returned. +C +C********************************************************************** +C .. Scalar Arguments .. + DOUBLE PRECISION dfd,dfn,f,cum,ccum +C .. +C .. Local Scalars .. + + DOUBLE PRECISION dsum,prod,xx,yy + INTEGER ierr +C .. +C .. Parameters .. + DOUBLE PRECISION half + PARAMETER (half=0.5D0) + DOUBLE PRECISION done + PARAMETER (done=1.0D0) +C .. +C .. External Subroutines .. + EXTERNAL bratio +C .. +C .. Executable Statements .. + + IF (.NOT. (f.LE.0.0D0)) GO TO 10 + cum = 0.0D0 + ccum = 1.0D0 + RETURN + + 10 prod = dfn*f +C +C XX is such that the incomplete beta with parameters +C DFD/2 and DFN/2 evaluated at XX is 1 - CUM or CCUM +C +C YY is 1 - XX +C +C Calculate the smaller of XX and YY accurately +C + dsum = dfd + prod + xx = dfd/dsum + IF (xx.GT.half) THEN + yy = prod/dsum + xx = done - yy + + ELSE + yy = done - xx + END IF + + CALL bratio(dfd*half,dfn*half,xx,yy,ccum,cum,ierr) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/cumf.lo b/modules/statistics/src/dcdflib/cumf.lo new file mode 100755 index 000000000..b4be11707 --- /dev/null +++ b/modules/statistics/src/dcdflib/cumf.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cumf.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cumf.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cumfnc.f b/modules/statistics/src/dcdflib/cumfnc.f new file mode 100755 index 000000000..6d8675445 --- /dev/null +++ b/modules/statistics/src/dcdflib/cumfnc.f @@ -0,0 +1,189 @@ + SUBROUTINE cumfnc(f,dfn,dfd,pnonc,cum,ccum) +C********************************************************************** +C +C F -NON- -C-ENTRAL F DISTRIBUTION +C +C +C +C Function +C +C +C COMPUTES NONCENTRAL F DISTRIBUTION WITH DFN AND DFD +C DEGREES OF FREEDOM AND NONCENTRALITY PARAMETER PNONC +C +C +C Arguments +C +C +C X --> UPPER LIMIT OF INTEGRATION OF NONCENTRAL F IN EQUATION +C +C DFN --> DEGREES OF FREEDOM OF NUMERATOR +C +C DFD --> DEGREES OF FREEDOM OF DENOMINATOR +C +C PNONC --> NONCENTRALITY PARAMETER. +C +C CUM <-- CUMULATIVE NONCENTRAL F DISTRIBUTION +C +C CCUM <-- COMPLIMENT OF CUMMULATIVE +C +C +C Method +C +C +C USES FORMULA 26.6.20 OF REFERENCE FOR INFINITE SERIES. +C SERIES IS CALCULATED BACKWARD AND FORWARD FROM J = LAMBDA/2 +C (THIS IS THE TERM WITH THE LARGEST POISSON WEIGHT) UNTIL +C THE CONVERGENCE CRITERION IS MET. +C +C FOR SPEED, THE INCOMPLETE BETA FUNCTIONS ARE EVALUATED +C BY FORMULA 26.5.16. +C +C +C REFERENCE +C +C +C HANDBOOD OF MATHEMATICAL FUNCTIONS +C EDITED BY MILTON ABRAMOWITZ AND IRENE A. STEGUN +C NATIONAL BUREAU OF STANDARDS APPLIED MATEMATICS SERIES - 55 +C MARCH 1965 +C P 947, EQUATIONS 26.6.17, 26.6.18 +C +C +C Note +C +C +C THE SUM CONTINUES UNTIL A SUCCEEDING TERM IS LESS THAN EPS +C TIMES THE SUM (OR THE SUM IS LESS THAN 1.0E-20). EPS IS +C SET TO 1.0E-4 IN A DATA STATEMENT WHICH CAN BE CHANGED. +C +C********************************************************************** + +C .. Scalar Arguments .. + DOUBLE PRECISION dfd,dfn,pnonc,f,cum,ccum +C .. +C .. Local Scalars .. + DOUBLE PRECISION dsum,dummy,prod,xx,yy + DOUBLE PRECISION adn,aup,b,betdn,betup,centwt,dnterm,eps,sum, + + upterm,xmult,xnonc,x + INTEGER i,icent,ierr +C .. +C .. External Functions .. + DOUBLE PRECISION alngam + EXTERNAL alngam +C .. +C .. Intrinsic Functions .. + INTRINSIC log,dble,exp +C .. +C .. Statement Functions .. + LOGICAL qsmall +C .. +C .. External Subroutines .. + EXTERNAL bratio,cumf +C .. +C .. Parameters .. + DOUBLE PRECISION half + PARAMETER (half=0.5D0) + DOUBLE PRECISION done + PARAMETER (done=1.0D0) +C .. +C .. Data statements .. + DATA eps/1.0D-4/ +C .. +C .. Statement Function definitions .. + qsmall(x) = sum .LT. 1.0D-20 .OR. x .LT. eps*sum +C .. +C .. Executable Statements .. +C + IF (.NOT. (f.LE.0.0D0)) GO TO 10 + cum = 0.0D0 + ccum = 1.0D0 + RETURN + + 10 IF (.NOT. (pnonc.LT.1.0D-10)) GO TO 20 +C +C Handle case in which the non-centrality parameter is +C (essentially) zero. + + CALL cumf(f,dfn,dfd,cum,ccum) + RETURN + + 20 xnonc = pnonc/2.0D0 + +C Calculate the central term of the poisson weighting factor. + + icent = xnonc + IF (icent.EQ.0) icent = 1 + +C Compute central weight term + + centwt = exp(-xnonc+icent*log(xnonc)-alngam(dble(icent+1))) + +C Compute central incomplete beta term +C Assure that minimum of arg to beta and 1 - arg is computed +C accurately. + + prod = dfn*f + dsum = dfd + prod + yy = dfd/dsum + IF (yy.GT.half) THEN + xx = prod/dsum + yy = done - xx + + ELSE + xx = done - yy + END IF + + CALL bratio(dfn*half+dble(icent),dfd*half,xx,yy,betdn,dummy,ierr) + adn = dfn/2.0D0 + dble(icent) + aup = adn + b = dfd/2.0D0 + betup = betdn + sum = centwt*betdn + +C Now sum terms backward from icent until convergence or all done + + xmult = centwt + i = icent + dnterm = exp(alngam(adn+b)-alngam(adn+1.0D0)-alngam(b)+ + + adn*log(xx)+b*log(yy)) + 30 IF (qsmall(xmult*betdn) .OR. i.LE.0) GO TO 40 + xmult = xmult* (i/xnonc) + i = i - 1 + adn = adn - 1 + dnterm = (adn+1)/ ((adn+b)*xx)*dnterm + betdn = betdn + dnterm + sum = sum + xmult*betdn + GO TO 30 + + 40 i = icent + 1 + +C Now sum forwards until convergence + + xmult = centwt + IF ((aup-1+b).EQ.0) THEN + upterm = exp(-alngam(aup)-alngam(b)+ (aup-1)*log(xx)+ + + b*log(yy)) + + ELSE + upterm = exp(alngam(aup-1+b)-alngam(aup)-alngam(b)+ + + (aup-1)*log(xx)+b*log(yy)) + END IF + + GO TO 60 + + 50 IF (qsmall(xmult*betup)) GO TO 70 + 60 xmult = xmult* (xnonc/i) + i = i + 1 + aup = aup + 1 + upterm = (aup+b-2.0D0)*xx/ (aup-1)*upterm + betup = betup - upterm + sum = sum + xmult*betup + GO TO 50 + + 70 cum = sum + + ccum = 0.5D0 + (0.5D0-cum) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/cumfnc.lo b/modules/statistics/src/dcdflib/cumfnc.lo new file mode 100755 index 000000000..e034d10b4 --- /dev/null +++ b/modules/statistics/src/dcdflib/cumfnc.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cumfnc.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cumfnc.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cumgam.f b/modules/statistics/src/dcdflib/cumgam.f new file mode 100755 index 000000000..25484c56c --- /dev/null +++ b/modules/statistics/src/dcdflib/cumgam.f @@ -0,0 +1,61 @@ + SUBROUTINE cumgam(x,a,cum,ccum) +C********************************************************************** +C +C SUBROUTINE CUMGAM(X,A,CUM,CCUM) +C Double precision cUMulative incomplete GAMma distribution +C +C +C Function +C +C +C Computes the cumulative of the incomplete gamma +C distribution, i.e., the integral from 0 to X of +C (1/GAM(A))*EXP(-T)*T**(A-1) DT +C where GAM(A) is the complete gamma function of A, i.e., +C GAM(A) = integral from 0 to infinity of +C EXP(-T)*T**(A-1) DT +C +C +C Arguments +C +C +C X --> The upper limit of integration of the incomplete gamma. +C X is DOUBLE PRECISION +C +C A --> The shape parameter of the incomplete gamma. +C A is DOUBLE PRECISION +C +C CUM <-- Cumulative incomplete gamma distribution. +C CUM is DOUBLE PRECISION +C +C CCUM <-- Compliment of Cumulative incomplete gamma distribution. +C CCUM is DOUBLE PRECISIO +C +C +C Method +C +C +C Calls the routine GRATIO. +C +C********************************************************************** +C +C .. +C .. Scalar Arguments .. + DOUBLE PRECISION a,x,cum,ccum +C .. +C .. External Routines .. + EXTERNAL gratio +C .. +C .. Executable Statements .. + IF (.NOT. (x.LE.0.0D0)) GO TO 10 + cum = 0.0D0 + ccum = 1.0D0 + RETURN + + 10 CALL gratio(a,x,cum,ccum,0) + +C Call gratio routine + + RETURN + + END diff --git a/modules/statistics/src/dcdflib/cumgam.lo b/modules/statistics/src/dcdflib/cumgam.lo new file mode 100755 index 000000000..bb241a209 --- /dev/null +++ b/modules/statistics/src/dcdflib/cumgam.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cumgam.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cumgam.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cumnbn.f b/modules/statistics/src/dcdflib/cumnbn.f new file mode 100755 index 000000000..969b14a3f --- /dev/null +++ b/modules/statistics/src/dcdflib/cumnbn.f @@ -0,0 +1,61 @@ + SUBROUTINE cumnbn(s,xn,pr,ompr,cum,ccum) +C********************************************************************** +C +C SUBROUTINE CUMNNBN(S,XN,PR,OMPR,CUM,CCUM) +C CUmulative Negative BINomial distribution +C +C +C Function +C +C +C Returns the probability that it there will be S or fewer failures +C before there are XN successes, with each binomial trial having +C a probability of success PR. +C +C Prob(# failures = S | XN successes, PR) = +C ( XN + S - 1 ) +C ( ) * PR^XN * (1-PR)^S +C ( S ) +C +C +C Arguments +C +C +C S --> The number of failures +C S is DOUBLE PRECISION +C +C XN --> The number of successes +C XN is DOUBLE PRECISIO +C +C PR --> The probability of success in each binomial trial. +C PR is DOUBLE PRECISIO +C +C OMPR --> 1 - PR +C OMPR is DOUBLE PRECIS +C +C CUM <-- Cumulative negative binomial distribution. +C CUM is DOUBLE PRECISI +C +C CCUM <-- Compliment of Cumulative negative binomial distribution. +C CCUM is DOUBLE PRECIS +C +C +C Method +C +C +C Formula 26.5.26 of Abramowitz and Stegun, Handbook of +C Mathematical Functions (1966) is used to reduce the negative +C binomial distribution to the cumulative beta distribution. +C +C********************************************************************** +C .. Scalar Arguments .. + DOUBLE PRECISION pr,ompr,s,xn,cum,ccum +C .. +C .. External Subroutines .. + EXTERNAL cumbet +C .. +C .. Executable Statements .. + CALL cumbet(pr,ompr,xn,s+1.D0,cum,ccum) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/cumnbn.lo b/modules/statistics/src/dcdflib/cumnbn.lo new file mode 100755 index 000000000..e9a0c5d2f --- /dev/null +++ b/modules/statistics/src/dcdflib/cumnbn.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cumnbn.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cumnbn.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cumnor.f b/modules/statistics/src/dcdflib/cumnor.f new file mode 100755 index 000000000..32ada82fb --- /dev/null +++ b/modules/statistics/src/dcdflib/cumnor.f @@ -0,0 +1,213 @@ + SUBROUTINE cumnor(arg,result,ccum) +C********************************************************************** +C +C SUBROUINE CUMNOR(X,RESULT,CCUM) +C +C +C Function +C +C +C Computes the cumulative of the normal distribution, i.e., +C the integral from -infinity to x of +C (1/sqrt(2*pi)) exp(-u*u/2) du +C +C X --> Upper limit of integration. +C X is DOUBLE PRECISION +C +C RESULT <-- Cumulative normal distribution. +C RESULT is DOUBLE PRECISION +C +C CCUM <-- Compliment of Cumulative normal distribution. +C CCUM is DOUBLE PRECISION +C +C +C Renaming of function ANORM from: +C +C Cody, W.D. (1993). "ALGORITHM 715: SPECFUN - A Portabel FORTRAN +C Package of Special Function Routines and Test Drivers" +C acm Transactions on Mathematical Software. 19, 22-32. +C +C with slight modifications to return ccum and to deal with +C machine constants. +C +C********************************************************************** +C +C +C Original Comments: +C------------------------------------------------------------------ +C +C This function evaluates the normal distribution function: +C +C / x +C 1 | -t*t/2 +C P(x) = ----------- | e dt +C sqrt(2 pi) | +C /-oo +C +C The main computation evaluates near-minimax approximations +C derived from those in "Rational Chebyshev approximations for +C the error function" by W. J. Cody, Math. Comp., 1969, 631-637. +C This transportable program uses rational functions that +C theoretically approximate the normal distribution function to +C at least 18 significant decimal digits. The accuracy achieved +C depends on the arithmetic system, the compiler, the intrinsic +C functions, and proper selection of the machine-dependent +C constants. +C +C******************************************************************* +C******************************************************************* +C +C Explanation of machine-dependent constants. +C +C MIN = smallest machine representable number. +C +C EPS = argument below which anorm(x) may be represented by +C 0.5 and above which x*x will not underflow. +C A conservative value is the largest machine number X +C such that 1.0 + X = 1.0 to machine precision. +C******************************************************************* +C******************************************************************* +C +C Error returns +C +C The program returns ANORM = 0 for ARG .LE. XLOW. +C +C +C Intrinsic functions required are: +C +C ABS, AINT, EXP +C +C +C Author: W. J. Cody +C Mathematics and Computer Science Division +C Argonne National Laboratory +C Argonne, IL 60439 +C +C Latest modification: March 15, 1992 +C +C------------------------------------------------------------------ + INTEGER i + DOUBLE PRECISION a,arg,b,c,d,del,eps,half,p,one,q,result,sixten, + + temp,sqrpi,thrsh,root32,x,xden,xnum,y,xsq,zero, + + min,ccum + DIMENSION a(5),b(4),c(9),d(8),p(6),q(5) +C------------------------------------------------------------------ +C External Function +C------------------------------------------------------------------ + DOUBLE PRECISION spmpar + EXTERNAL spmpar +C------------------------------------------------------------------ +C Mathematical constants +C +C SQRPI = 1 / sqrt(2*pi), ROOT32 = sqrt(32), and +C THRSH is the argument for which anorm = 0.75. +C------------------------------------------------------------------ + DATA one,half,zero,sixten/1.0D0,0.5D0,0.0D0,1.60D0/, + + sqrpi/3.9894228040143267794D-1/,thrsh/0.66291D0/, + + root32/5.656854248D0/ +C------------------------------------------------------------------ +C Coefficients for approximation in first interval +C------------------------------------------------------------------ + DATA a/2.2352520354606839287D00,1.6102823106855587881D02, + + 1.0676894854603709582D03,1.8154981253343561249D04, + + 6.5682337918207449113D-2/ + DATA b/4.7202581904688241870D01,9.7609855173777669322D02, + + 1.0260932208618978205D04,4.5507789335026729956D04/ +C------------------------------------------------------------------ +C Coefficients for approximation in second interval +C------------------------------------------------------------------ + DATA c/3.9894151208813466764D-1,8.8831497943883759412D00, + + 9.3506656132177855979D01,5.9727027639480026226D02, + + 2.4945375852903726711D03,6.8481904505362823326D03, + + 1.1602651437647350124D04,9.8427148383839780218D03, + + 1.0765576773720192317D-8/ + DATA d/2.2266688044328115691D01,2.3538790178262499861D02, + + 1.5193775994075548050D03,6.4855582982667607550D03, + + 1.8615571640885098091D04,3.4900952721145977266D04, + + 3.8912003286093271411D04,1.9685429676859990727D04/ +C------------------------------------------------------------------ +C Coefficients for approximation in third interval +C------------------------------------------------------------------ + DATA p/2.1589853405795699D-1,1.274011611602473639D-1, + + 2.2235277870649807D-2,1.421619193227893466D-3, + + 2.9112874951168792D-5,2.307344176494017303D-2/ + DATA q/1.28426009614491121D00,4.68238212480865118D-1, + + 6.59881378689285515D-2,3.78239633202758244D-3, + + 7.29751555083966205D-5/ +C------------------------------------------------------------------ +C Machine dependent constants +C------------------------------------------------------------------ + eps = spmpar(1)*0.5D0 + min = spmpar(2) +C------------------------------------------------------------------ + x = arg + y = abs(x) + IF (y.LE.thrsh) THEN +C------------------------------------------------------------------ +C Evaluate anorm for |X| <= 0.66291 +C------------------------------------------------------------------ + xsq = zero + IF (y.GT.eps) xsq = x*x + xnum = a(5)*xsq + xden = xsq + DO 10 i = 1,3 + xnum = (xnum+a(i))*xsq + xden = (xden+b(i))*xsq + 10 CONTINUE + result = x* (xnum+a(4))/ (xden+b(4)) + temp = result + result = half + temp + ccum = half - temp +C------------------------------------------------------------------ +C Evaluate anorm for 0.66291 <= |X| <= sqrt(32) +C------------------------------------------------------------------ + ELSE IF (y.LE.root32) THEN + xnum = c(9)*y + xden = y + DO 20 i = 1,7 + xnum = (xnum+c(i))*y + xden = (xden+d(i))*y + 20 CONTINUE + result = (xnum+c(8))/ (xden+d(8)) + xsq = aint(y*sixten)/sixten + del = (y-xsq)* (y+xsq) + result = exp(-xsq*xsq*half)*exp(-del*half)*result + ccum = one - result + IF (x.GT.zero) THEN + temp = result + result = ccum + ccum = temp + END IF +C------------------------------------------------------------------ +C Evaluate anorm for |X| > sqrt(32) +C------------------------------------------------------------------ + ELSE + result = zero + xsq = one/ (x*x) + xnum = p(6)*xsq + xden = xsq + DO 30 i = 1,4 + xnum = (xnum+p(i))*xsq + xden = (xden+q(i))*xsq + 30 CONTINUE + result = xsq* (xnum+p(5))/ (xden+q(5)) + result = (sqrpi-result)/y + xsq = aint(x*sixten)/sixten + del = (x-xsq)* (x+xsq) + result = exp(-xsq*xsq*half)*exp(-del*half)*result + ccum = one - result + IF (x.GT.zero) THEN + temp = result + result = ccum + ccum = temp + END IF + + END IF + + IF (result.LT.min) result = 0.0D0 + IF (ccum.LT.min) ccum = 0.0D0 +C------------------------------------------------------------------ +C Fix up for negative argument, erf, etc. +C------------------------------------------------------------------ +C----------Last card of ANORM ---------- + END diff --git a/modules/statistics/src/dcdflib/cumnor.lo b/modules/statistics/src/dcdflib/cumnor.lo new file mode 100755 index 000000000..9f057b10b --- /dev/null +++ b/modules/statistics/src/dcdflib/cumnor.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cumnor.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cumnor.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cumpoi.f b/modules/statistics/src/dcdflib/cumpoi.f new file mode 100755 index 000000000..b6736816d --- /dev/null +++ b/modules/statistics/src/dcdflib/cumpoi.f @@ -0,0 +1,54 @@ + SUBROUTINE cumpoi(s,xlam,cum,ccum) +C********************************************************************** +C +C SUBROUTINE CUMPOI(S,XLAM,CUM,CCUM) +C CUMulative POIsson distribution +C +C +C Function +C +C +C Returns the probability of S or fewer events in a Poisson +C distribution with mean XLAM. +C +C +C Arguments +C +C +C S --> Upper limit of cumulation of the Poisson. +C S is DOUBLE PRECISION +C +C XLAM --> Mean of the Poisson distribution. +C XLAM is DOUBLE PRECIS +C +C CUM <-- Cumulative poisson distribution. +C CUM is DOUBLE PRECISION +C +C CCUM <-- Compliment of Cumulative poisson distribution. +C CCUM is DOUBLE PRECIS +C +C +C Method +C +C +C Uses formula 26.4.21 of Abramowitz and Stegun, Handbook of +C Mathematical Functions to reduce the cumulative Poisson to +C the cumulative chi-square distribution. +C +C********************************************************************** +C .. Scalar Arguments .. + DOUBLE PRECISION s,xlam,cum,ccum +C .. +C .. Local Scalars .. + DOUBLE PRECISION chi,df +C .. +C .. External Subroutines .. + EXTERNAL cumchi +C .. +C .. Executable Statements .. + df = 2.0D0* (s+1.0D0) + chi = 2.0D0*xlam + CALL cumchi(chi,df,ccum,cum) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/cumpoi.lo b/modules/statistics/src/dcdflib/cumpoi.lo new file mode 100755 index 000000000..9168f7f8e --- /dev/null +++ b/modules/statistics/src/dcdflib/cumpoi.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cumpoi.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cumpoi.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/cumt.f b/modules/statistics/src/dcdflib/cumt.f new file mode 100755 index 000000000..c69d71847 --- /dev/null +++ b/modules/statistics/src/dcdflib/cumt.f @@ -0,0 +1,63 @@ + SUBROUTINE cumt(t,df,cum,ccum) +C********************************************************************** +C +C SUBROUTINE CUMT(T,DF,CUM,CCUM) +C CUMulative T-distribution +C +C +C Function +C +C +C Computes the integral from -infinity to T of the t-density. +C +C +C Arguments +C +C +C T --> Upper limit of integration of the t-density. +C T is DOUBLE PRECISION +C +C DF --> Degrees of freedom of the t-distribution. +C DF is DOUBLE PRECISIO +C +C CUM <-- Cumulative t-distribution. +C CCUM is DOUBLE PRECIS +C +C CCUM <-- Compliment of Cumulative t-distribution. +C CCUM is DOUBLE PRECIS +C +C +C Method +C +C +C Formula 26.5.27 of Abramowitz and Stegun, Handbook of +C Mathematical Functions is used to reduce the t-distribution +C to an incomplete beta. +C +C********************************************************************** + +C .. Scalar Arguments .. + DOUBLE PRECISION df,t,cum,ccum +C .. +C .. Local Scalars .. + DOUBLE PRECISION xx,a,oma,tt,yy,dfptt +C .. +C .. External Subroutines .. + EXTERNAL cumbet +C .. +C .. Executable Statements .. + tt = t*t + dfptt = df + tt + xx = df/dfptt + yy = tt/dfptt + CALL cumbet(xx,yy,0.5D0*df,0.5D0,a,oma) + IF (.NOT. (t.LE.0.0D0)) GO TO 10 + cum = 0.5D0*a + ccum = oma + cum + GO TO 20 + + 10 ccum = 0.5D0*a + cum = oma + ccum + 20 RETURN + + END diff --git a/modules/statistics/src/dcdflib/cumt.lo b/modules/statistics/src/dcdflib/cumt.lo new file mode 100755 index 000000000..56c2fe72f --- /dev/null +++ b/modules/statistics/src/dcdflib/cumt.lo @@ -0,0 +1,12 @@ +# src/dcdflib/cumt.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/cumt.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/dcd_f/Core_Import.def b/modules/statistics/src/dcdflib/dcd_f/Core_Import.def new file mode 100755 index 000000000..757ec2c41 --- /dev/null +++ b/modules/statistics/src/dcdflib/dcd_f/Core_Import.def @@ -0,0 +1,7 @@ +LIBRARY core.dll + + +EXPORTS +; +isanan_ +returnananfortran_
\ No newline at end of file diff --git a/modules/statistics/src/dcdflib/dcd_f/Output_stream_Import.def b/modules/statistics/src/dcdflib/dcd_f/Output_stream_Import.def new file mode 100755 index 000000000..9181ba70b --- /dev/null +++ b/modules/statistics/src/dcdflib/dcd_f/Output_stream_Import.def @@ -0,0 +1,6 @@ +LIBRARY output_stream.dll + + +EXPORTS +; +basout_
\ No newline at end of file diff --git a/modules/statistics/src/dcdflib/dcd_f/dcd_f.rc b/modules/statistics/src/dcdflib/dcd_f/dcd_f.rc new file mode 100755 index 000000000..dad8f0988 --- /dev/null +++ b/modules/statistics/src/dcdflib/dcd_f/dcd_f.rc @@ -0,0 +1,96 @@ +// Microsoft Visual C++ generated resource script. +// + + +#define APSTUDIO_READONLY_SYMBOLS +///////////////////////////////////////////////////////////////////////////// +// +// Generated from the TEXTINCLUDE 2 resource. +// +//#include "afxres.h" +#define APSTUDIO_HIDDEN_SYMBOLS +#include "windows.h" +///////////////////////////////////////////////////////////////////////////// +#undef APSTUDIO_READONLY_SYMBOLS + +///////////////////////////////////////////////////////////////////////////// +// French (France) resources + +#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_FRA) +#ifdef _WIN32 +LANGUAGE LANG_FRENCH, SUBLANG_FRENCH +#pragma code_page(1252) +#endif //_WIN32 + +#ifdef APSTUDIO_INVOKED +///////////////////////////////////////////////////////////////////////////// +// +// TEXTINCLUDE +// + +1 TEXTINCLUDE +BEGIN + "resource.h\0" +END + +3 TEXTINCLUDE +BEGIN + "\r\n" + "\0" +END + +#endif // APSTUDIO_INVOKED + + +///////////////////////////////////////////////////////////////////////////// +// +// Version +// + +VS_VERSION_INFO VERSIONINFO + FILEVERSION 5,5,2,0 + PRODUCTVERSION 5,5,2,0 + FILEFLAGSMASK 0x17L +#ifdef _DEBUG + FILEFLAGS 0x1L +#else + FILEFLAGS 0x0L +#endif + FILEOS 0x4L + FILETYPE 0x2L + FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "040c04b0" + BEGIN + VALUE "FileDescription", "dcd library" + VALUE "FileVersion", "5, 5, 2, 0" + VALUE "InternalName", "dcd library for scilab 5.x" + VALUE "LegalCopyright", "Copyright (C) 2017" + VALUE "OriginalFilename", "dcd_f.dll" + VALUE "ProductName", "dcd library for scilab 5.x" + VALUE "ProductVersion", "5, 5, 2, 0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x40c, 1200 + END +END + +#endif // French (France) resources +///////////////////////////////////////////////////////////////////////////// + + + +#ifndef APSTUDIO_INVOKED +///////////////////////////////////////////////////////////////////////////// +// +// Generated from the TEXTINCLUDE 3 resource. +// + + +///////////////////////////////////////////////////////////////////////////// +#endif // not APSTUDIO_INVOKED + diff --git a/modules/statistics/src/dcdflib/dcd_f/dcd_f.vfproj b/modules/statistics/src/dcdflib/dcd_f/dcd_f.vfproj new file mode 100755 index 000000000..15ffbe325 --- /dev/null +++ b/modules/statistics/src/dcdflib/dcd_f/dcd_f.vfproj @@ -0,0 +1,162 @@ +<?xml version="1.0" encoding="UTF-8"?> +<VisualStudioProject ProjectType="typeDynamicLibrary" ProjectCreator="Intel Fortran" Keyword="Dll" Version="11.0" ProjectIdGuid="{18F043DA-1DB5-464F-B67D-CF1C23BE7EA0}"> + <Platforms> + <Platform Name="Win32"/> + <Platform Name="x64"/></Platforms> + <Configurations> + <Configuration Name="Debug|Win32" OutputDirectory="$(SolutionDir)bin\" IntermediateDirectory="$(ProjectDir)$(ConfigurationName)" DeleteExtensionsOnClean="*.obj;*.mod;*.pdb;*.asm;*.map;*.dyn;*.dpi;*.tmp;*.log;*.ilk;*.dll;$(TargetPath)" ConfigurationType="typeDynamicLibrary"> + <Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" DebugInformationFormat="debugEnabled" Optimization="optimizeDisabled" AdditionalIncludeDirectories="../../../../core/includes" F77RuntimeCompatibility="true" CallingConvention="callConventionCRef" ExternalNameUnderscore="true" ModulePath="$(INTDIR)/" ObjectFile="$(INTDIR)/" Traceback="true" BoundsCheck="true" RuntimeLibrary="rtMultiThreadedDebugDLL"/> + <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\$(ProjectName).dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="dcd_f.def" GenerateDebugInformation="true" SubSystem="subSystemWindows" ImportLibrary="$(SolutionDir)bin\$(ProjectName).lib" LinkDLL="true" AdditionalDependencies="../../../../../bin/blasplus.lib ../../../../../bin/lapack.lib output_stream.lib statistics.lib core.lib elementary_functions.lib"/> + <Tool Name="VFResourceCompilerTool"/> + <Tool Name="VFMidlTool" SuppressStartupBanner="true" HeaderFileName="$(InputName).h" TypeLibraryName="$(IntDir)/$(InputName).tlb"/> + <Tool Name="VFCustomBuildTool"/> + <Tool Name="VFPreLinkEventTool" CommandLine="setlocal EnableDelayedExpansion +cd $(ConfigurationName) +set LIST_OBJ= +for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f +"$(SolutionDir)bin\dumpexts" -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ% +copy $(ProjectName).def ..\$(ProjectName).def >nul +del *.def >nul +cd .." Description="Build $(ProjectName).def"/> + <Tool Name="VFPreBuildEventTool" CommandLine="lib /DEF:"$(InputDir)Output_stream_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)output_stream.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)Statistics_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)statistics.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)Core_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)elementary_functions_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)elementary_functions.lib" 1>NUL 2>NUL" Description="Make dependencies"/> + <Tool Name="VFPostBuildEventTool"/> + <Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration> + <Configuration Name="Release|Win32" OutputDirectory="$(SolutionDir)bin\" IntermediateDirectory="$(ProjectDir)$(ConfigurationName)" DeleteExtensionsOnClean="*.obj;*.mod;*.pdb;*.asm;*.map;*.dyn;*.dpi;*.tmp;*.log;*.ilk;*.dll;$(TargetPath)" ConfigurationType="typeDynamicLibrary"> + <Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" AdditionalIncludeDirectories="../../../../core/includes" AlternateParameterSyntax="false" F77RuntimeCompatibility="true" BackslashAsNormalCharacter="false" FPS4Libs="false" CallingConvention="callConventionCRef" ExternalNameUnderscore="true" ModulePath="$(INTDIR)/" ObjectFile="$(INTDIR)/" RuntimeLibrary="rtMultiThreadedDLL"/> + <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\$(ProjectName).dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="dcd_f.def" SubSystem="subSystemWindows" SupportUnloadOfDelayLoadedDLL="true" ImportLibrary="$(SolutionDir)bin\$(ProjectName).lib" LinkDLL="true" AdditionalDependencies="../../../../../bin/blasplus.lib ../../../../../bin/lapack.lib output_stream.lib statistics.lib core.lib elementary_functions.lib"/> + <Tool Name="VFResourceCompilerTool"/> + <Tool Name="VFMidlTool" SuppressStartupBanner="true" HeaderFileName="$(InputName).h" TypeLibraryName="$(IntDir)/$(InputName).tlb"/> + <Tool Name="VFCustomBuildTool"/> + <Tool Name="VFPreLinkEventTool" CommandLine="setlocal EnableDelayedExpansion +cd $(ConfigurationName) +set LIST_OBJ= +for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f +"$(SolutionDir)bin\dumpexts" -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ% +copy $(ProjectName).def ..\$(ProjectName).def >nul +del *.def >nul +cd .." Description="Build $(ProjectName).def"/> + <Tool Name="VFPreBuildEventTool" CommandLine="lib /DEF:"$(InputDir)Output_stream_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)output_stream.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)Statistics_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)statistics.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)Core_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)elementary_functions_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:"$(InputDir)elementary_functions.lib" 1>NUL 2>NUL" Description="Make dependencies"/> + <Tool Name="VFPostBuildEventTool"/> + <Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration> + <Configuration Name="Debug|x64" OutputDirectory="$(SolutionDir)bin\" IntermediateDirectory="$(ProjectDir)$(ConfigurationName)" DeleteExtensionsOnClean="*.obj;*.mod;*.pdb;*.asm;*.map;*.dyn;*.dpi;*.tmp;*.log;*.ilk;*.dll;$(TargetPath)" ConfigurationType="typeDynamicLibrary"> + <Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" DebugInformationFormat="debugEnabled" Optimization="optimizeDisabled" AdditionalIncludeDirectories="../../../../core/includes" F77RuntimeCompatibility="true" CallingConvention="callConventionCRef" ExternalNameUnderscore="true" ModulePath="$(INTDIR)/" ObjectFile="$(INTDIR)/" Traceback="true" BoundsCheck="true" RuntimeLibrary="rtMultiThreadedDebugDLL"/> + <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\$(ProjectName).dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="dcd_f.def" GenerateDebugInformation="true" SubSystem="subSystemWindows" ImportLibrary="$(SolutionDir)bin\$(ProjectName).lib" LinkDLL="true" AdditionalDependencies="../../../../../bin/blasplus.lib ../../../../../bin/lapack.lib output_stream.lib statistics.lib core.lib elementary_functions.lib"/> + <Tool Name="VFResourceCompilerTool"/> + <Tool Name="VFMidlTool" SuppressStartupBanner="true" HeaderFileName="$(InputName).h" TypeLibraryName="$(IntDir)/$(InputName).tlb"/> + <Tool Name="VFCustomBuildTool"/> + <Tool Name="VFPreLinkEventTool" CommandLine="setlocal EnableDelayedExpansion +cd $(ConfigurationName) +set LIST_OBJ= +for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f +"$(SolutionDir)bin\dumpexts" -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ% +copy $(ProjectName).def ..\$(ProjectName).def >nul +del *.def >nul +cd .." Description="Build $(ProjectName).def"/> + <Tool Name="VFPreBuildEventTool" CommandLine="lib /DEF:"$(InputDir)Output_stream_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)output_stream.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)Statistics_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)statistics.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)Core_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)elementary_functions_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)elementary_functions.lib" 1>NUL 2>NUL" Description="Make dependencies"/> + <Tool Name="VFPostBuildEventTool"/> + <Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration> + <Configuration Name="Release|x64" OutputDirectory="$(SolutionDir)bin\" IntermediateDirectory="$(ProjectDir)$(ConfigurationName)" DeleteExtensionsOnClean="*.obj;*.mod;*.pdb;*.asm;*.map;*.dyn;*.dpi;*.tmp;*.log;*.ilk;*.dll;$(TargetPath)" ConfigurationType="typeDynamicLibrary"> + <Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" AdditionalIncludeDirectories="../../../../core/includes" AlternateParameterSyntax="false" F77RuntimeCompatibility="true" BackslashAsNormalCharacter="false" FPS4Libs="false" CallingConvention="callConventionCRef" ExternalNameUnderscore="true" ModulePath="$(INTDIR)/" ObjectFile="$(INTDIR)/" RuntimeLibrary="rtMultiThreadedDLL"/> + <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\$(ProjectName).dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="dcd_f.def" SubSystem="subSystemWindows" SupportUnloadOfDelayLoadedDLL="true" ImportLibrary="$(SolutionDir)bin\$(ProjectName).lib" LinkDLL="true" AdditionalDependencies="../../../../../bin/blasplus.lib ../../../../../bin/lapack.lib output_stream.lib statistics.lib core.lib elementary_functions.lib"/> + <Tool Name="VFResourceCompilerTool"/> + <Tool Name="VFMidlTool" SuppressStartupBanner="true" HeaderFileName="$(InputName).h" TypeLibraryName="$(IntDir)/$(InputName).tlb"/> + <Tool Name="VFCustomBuildTool"/> + <Tool Name="VFPreLinkEventTool" CommandLine="setlocal EnableDelayedExpansion +cd $(ConfigurationName) +set LIST_OBJ= +for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f +"$(SolutionDir)bin\dumpexts" -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ% +copy $(ProjectName).def ..\$(ProjectName).def >nul +del *.def >nul +cd .." Description="Build $(ProjectName).def"/> + <Tool Name="VFPreBuildEventTool" CommandLine="lib /DEF:"$(InputDir)Output_stream_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)output_stream.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)Statistics_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)statistics.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)Core_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(InputDir)elementary_functions_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:"$(InputDir)elementary_functions.lib" 1>NUL 2>NUL" Description="Make dependencies"/> + <Tool Name="VFPostBuildEventTool"/> + <Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration></Configurations> + <Files> + <Filter Name="Header Files" Filter="fi;fd"/> + <Filter Name="Library Dependencies"> + <File RelativePath=".\Core_Import.def"/> + <File RelativePath=".\elementary_functions_Import.def"/> + <File RelativePath=".\Output_stream_Import.def"/> + <File RelativePath=".\statistics_Import.def"/></Filter> + <Filter Name="Resource Files" Filter="rc;ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"> + <File RelativePath=".\dcd_f.rc"/></Filter> + <Filter Name="Source Files" Filter="f90;for;f;fpp;ftn;def;odl;idl"> + <File RelativePath="..\algdiv.f"/> + <File RelativePath="..\alngam.f"/> + <File RelativePath="..\alnrel.f"/> + <File RelativePath="..\apser.f"/> + <File RelativePath="..\basym.f"/> + <File RelativePath="..\bcorr.f"/> + <File RelativePath="..\betaln.f"/> + <File RelativePath="..\bfrac.f"/> + <File RelativePath="..\bgrat.f"/> + <File RelativePath="..\bpser.f"/> + <File RelativePath="..\bratio.f"/> + <File RelativePath="..\brcmp1.f"/> + <File RelativePath="..\brcomp.f"/> + <File RelativePath="..\bup.f"/> + <File RelativePath="..\cdfbet.f"/> + <File RelativePath="..\cdfbin.f"/> + <File RelativePath="..\cdfchi.f"/> + <File RelativePath="..\cdfchn.f"/> + <File RelativePath="..\cdff.f"/> + <File RelativePath="..\cdffnc.f"/> + <File RelativePath="..\cdfgam.f"/> + <File RelativePath="..\cdfnbn.f"/> + <File RelativePath="..\cdfnor.f"/> + <File RelativePath="..\cdfpoi.f"/> + <File RelativePath="..\cdft.f"/> + <File RelativePath="..\cumbet.f"/> + <File RelativePath="..\cumbin.f"/> + <File RelativePath="..\cumchi.f"/> + <File RelativePath="..\cumchn.f"/> + <File RelativePath="..\cumf.f"/> + <File RelativePath="..\cumfnc.f"/> + <File RelativePath="..\cumgam.f"/> + <File RelativePath="..\cumnbn.f"/> + <File RelativePath="..\cumnor.f"/> + <File RelativePath="..\cumpoi.f"/> + <File RelativePath="..\cumt.f"/> + <File RelativePath="..\devlpl.f"/> + <File RelativePath="..\dexpm1.f"/> + <File RelativePath="..\dinvnr.f"/> + <File RelativePath="..\dinvr.f"/> + <File RelativePath="..\dt1.f"/> + <File RelativePath="..\dzror.f"/> + <File RelativePath="..\erf.f"/> + <File RelativePath="..\erfc1.f"/> + <File RelativePath="..\esum.f"/> + <File RelativePath="..\exparg.f"/> + <File RelativePath="..\fpser.f"/> + <File RelativePath="..\gam1.f"/> + <File RelativePath="..\gaminv.f"/> + <File RelativePath="..\gamln.f"/> + <File RelativePath="..\gamln1.f"/> + <File RelativePath="..\gamma.f"/> + <File RelativePath="..\grat1.f"/> + <File RelativePath="..\gratio.f"/> + <File RelativePath="..\gsumln.f"/> + <File RelativePath="..\ipmpar.f"/> + <File RelativePath="..\psi.f"/> + <File RelativePath="..\rcomp.f"/> + <File RelativePath="..\rexp.f"/> + <File RelativePath="..\rlog.f"/> + <File RelativePath="..\rlog1.f"/> + <File RelativePath="..\spmpar.f"/> + <File RelativePath="..\stvaln.f"/></Filter> + <File RelativePath="..\..\..\..\..\bin\blasplus.lib"/> + <File RelativePath="..\..\..\..\..\bin\lapack.lib"/></Files> + <Globals/></VisualStudioProject> diff --git a/modules/statistics/src/dcdflib/dcd_f/dcd_f2c.vcxproj b/modules/statistics/src/dcdflib/dcd_f/dcd_f2c.vcxproj new file mode 100755 index 000000000..d43dcb320 --- /dev/null +++ b/modules/statistics/src/dcdflib/dcd_f/dcd_f2c.vcxproj @@ -0,0 +1,386 @@ +<?xml version="1.0" encoding="utf-8"?> +<Project DefaultTargets="Build" ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <ItemGroup Label="ProjectConfigurations"> + <ProjectConfiguration Include="Debug|Win32"> + <Configuration>Debug</Configuration> + <Platform>Win32</Platform> + </ProjectConfiguration> + <ProjectConfiguration Include="Debug|x64"> + <Configuration>Debug</Configuration> + <Platform>x64</Platform> + </ProjectConfiguration> + <ProjectConfiguration Include="Release|Win32"> + <Configuration>Release</Configuration> + <Platform>Win32</Platform> + </ProjectConfiguration> + <ProjectConfiguration Include="Release|x64"> + <Configuration>Release</Configuration> + <Platform>x64</Platform> + </ProjectConfiguration> + </ItemGroup> + <PropertyGroup Label="Globals"> + <ProjectName>dcd_f</ProjectName> + <ProjectGuid>{18F043DA-1DB5-464F-B67D-CF1C23BE7EA0}</ProjectGuid> + <RootNamespace>dcd_f2c_DLL</RootNamespace> + <Keyword>Win32Proj</Keyword> + </PropertyGroup> + <Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" /> + <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration"> + <ConfigurationType>DynamicLibrary</ConfigurationType> + <CharacterSet>MultiByte</CharacterSet> + <PlatformToolset>v110</PlatformToolset> + </PropertyGroup> + <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration"> + <ConfigurationType>DynamicLibrary</ConfigurationType> + <CharacterSet>MultiByte</CharacterSet> + <PlatformToolset>v110</PlatformToolset> + </PropertyGroup> + <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'" Label="Configuration"> + <ConfigurationType>DynamicLibrary</ConfigurationType> + <CharacterSet>MultiByte</CharacterSet> + <PlatformToolset>v110</PlatformToolset> + </PropertyGroup> + <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'" Label="Configuration"> + <ConfigurationType>DynamicLibrary</ConfigurationType> + <CharacterSet>MultiByte</CharacterSet> + <PlatformToolset>v110</PlatformToolset> + </PropertyGroup> + <Import Project="$(VCTargetsPath)\Microsoft.Cpp.props" /> + <ImportGroup Label="ExtensionSettings"> + <Import Project="..\..\..\..\..\Visual-Studio-settings\f2c.props" /> + </ImportGroup> + <ImportGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="PropertySheets"> + <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" /> + </ImportGroup> + <ImportGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="PropertySheets"> + <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" /> + </ImportGroup> + <ImportGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'" Label="PropertySheets"> + <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" /> + </ImportGroup> + <ImportGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'" Label="PropertySheets"> + <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" /> + </ImportGroup> + <PropertyGroup Label="UserMacros" /> + <PropertyGroup> + <_ProjectFileVersion>10.0.30319.1</_ProjectFileVersion> + <OutDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">$(SolutionDir)bin\</OutDir> + <IntDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">$(ProjectDir)$(Configuration)\</IntDir> + <OutDir Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">$(SolutionDir)bin\</OutDir> + <IntDir Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">$(ProjectDir)$(Configuration)\</IntDir> + <OutDir Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">$(SolutionDir)bin\</OutDir> + <IntDir Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">$(ProjectDir)$(Configuration)\</IntDir> + <OutDir Condition="'$(Configuration)|$(Platform)'=='Release|x64'">$(SolutionDir)bin\</OutDir> + <IntDir Condition="'$(Configuration)|$(Platform)'=='Release|x64'">$(ProjectDir)$(Configuration)\</IntDir> + </PropertyGroup> + <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'"> + <PreBuildEvent> + <Command>lib /DEF:"$(ProjectDir)Output_stream_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)output_stream.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)Statistics_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)statistics.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)Core_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)elementary_functions_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)elementary_functions.lib" 1>NUL 2>NUL</Command> + <Message>Make dependencies</Message> + </PreBuildEvent> + <ClCompile> + <Optimization>Disabled</Optimization> + <AdditionalIncludeDirectories>../../../../../libs/f2c;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> + <PreprocessorDefinitions>__STDC__;_CRT_SECURE_NO_DEPRECATE;%(PreprocessorDefinitions)</PreprocessorDefinitions> + <RuntimeLibrary>MultiThreadedDebug</RuntimeLibrary> + <ObjectFileName>$(Configuration)/</ObjectFileName> + <WarningLevel>Level3</WarningLevel> + </ClCompile> + <PreLinkEvent> + <Message>Build $(ProjectName).def</Message> + <Command>setlocal EnableDelayedExpansion +cd $(ConfigurationName) +set LIST_OBJ= +for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f +"$(SolutionDir)bin\dumpexts" -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ% +copy $(ProjectName).def ..\$(ProjectName).def >nul +del *.def >nul +cd .. +</Command> + </PreLinkEvent> + <Link> + <AdditionalDependencies>../../../../../bin/blasplus.lib;../../../../../bin/lapack.lib;../../../../../bin/libf2c.lib;output_stream.lib;statistics.lib;core.lib;elementary_functions.lib;%(AdditionalDependencies)</AdditionalDependencies> + <OutputFile>$(SolutionDir)bin\$(ProjectName).dll</OutputFile> + <ModuleDefinitionFile>dcd_f.def</ModuleDefinitionFile> + <ImportLibrary>$(SolutionDir)bin\$(ProjectName).lib</ImportLibrary> + <CLRUnmanagedCodeCheck>true</CLRUnmanagedCodeCheck> + <RandomizedBaseAddress>false</RandomizedBaseAddress> + </Link> + <PostBuildEvent> + </PostBuildEvent> + </ItemDefinitionGroup> + <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'"> + <PreBuildEvent> + <Command>lib /DEF:"$(ProjectDir)Output_stream_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)output_stream.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)Statistics_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)statistics.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)Core_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)elementary_functions_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)elementary_functions.lib" 1>NUL 2>NUL</Command> + <Message>Make dependencies</Message> + </PreBuildEvent> + <Midl> + <TargetEnvironment>X64</TargetEnvironment> + </Midl> + <ClCompile> + <Optimization>Disabled</Optimization> + <AdditionalIncludeDirectories>../../../../../libs/f2c;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> + <PreprocessorDefinitions>__STDC__;_CRT_SECURE_NO_DEPRECATE;%(PreprocessorDefinitions)</PreprocessorDefinitions> + <RuntimeLibrary>MultiThreadedDebug</RuntimeLibrary> + <ObjectFileName>$(Configuration)/</ObjectFileName> + <WarningLevel>Level3</WarningLevel> + </ClCompile> + <PreLinkEvent> + <Message>Build $(ProjectName).def</Message> + <Command>setlocal EnableDelayedExpansion +cd $(ConfigurationName) +set LIST_OBJ= +for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f +"$(SolutionDir)bin\dumpexts" -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ% +copy $(ProjectName).def ..\$(ProjectName).def >nul +del *.def >nul +cd .. +</Command> + </PreLinkEvent> + <Link> + <AdditionalDependencies>../../../../../bin/blasplus.lib;../../../../../bin/lapack.lib;../../../../../bin/libf2c.lib;output_stream.lib;statistics.lib;core.lib;elementary_functions.lib;%(AdditionalDependencies)</AdditionalDependencies> + <OutputFile>$(SolutionDir)bin\$(ProjectName).dll</OutputFile> + <ModuleDefinitionFile>dcd_f.def</ModuleDefinitionFile> + <ImportLibrary>$(SolutionDir)bin\$(ProjectName).lib</ImportLibrary> + <TargetMachine>MachineX64</TargetMachine> + <CLRUnmanagedCodeCheck>true</CLRUnmanagedCodeCheck> + <RandomizedBaseAddress>false</RandomizedBaseAddress> + </Link> + <PostBuildEvent> + </PostBuildEvent> + </ItemDefinitionGroup> + <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'"> + <PreBuildEvent> + <Command>lib /DEF:"$(ProjectDir)Output_stream_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)output_stream.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)Statistics_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)statistics.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)Core_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)elementary_functions_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)elementary_functions.lib" 1>NUL 2>NUL</Command> + <Message>Make dependencies</Message> + </PreBuildEvent> + <ClCompile> + <FavorSizeOrSpeed>Speed</FavorSizeOrSpeed> + <AdditionalIncludeDirectories>../../../../../libs/f2c;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> + <PreprocessorDefinitions>__STDC__;_CRT_SECURE_NO_DEPRECATE;%(PreprocessorDefinitions)</PreprocessorDefinitions> + <RuntimeLibrary>MultiThreaded</RuntimeLibrary> + <ObjectFileName>$(Configuration)/</ObjectFileName> + <WarningLevel>Level3</WarningLevel> + </ClCompile> + <PreLinkEvent> + <Message>Build $(ProjectName).def</Message> + <Command>setlocal EnableDelayedExpansion +cd $(ConfigurationName) +set LIST_OBJ= +for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f +"$(SolutionDir)bin\dumpexts" -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ% +copy $(ProjectName).def ..\$(ProjectName).def >nul +del *.def >nul +cd .. +</Command> + </PreLinkEvent> + <Link> + <AdditionalDependencies>../../../../../bin/blasplus.lib;../../../../../bin/lapack.lib;../../../../../bin/libf2c.lib;output_stream.lib;statistics.lib;core.lib;elementary_functions.lib;%(AdditionalDependencies)</AdditionalDependencies> + <OutputFile>$(SolutionDir)bin\$(ProjectName).dll</OutputFile> + <ModuleDefinitionFile>dcd_f.def</ModuleDefinitionFile> + <ImportLibrary>$(SolutionDir)bin\$(ProjectName).lib</ImportLibrary> + <CLRUnmanagedCodeCheck>true</CLRUnmanagedCodeCheck> + <RandomizedBaseAddress>false</RandomizedBaseAddress> + </Link> + <PostBuildEvent> + </PostBuildEvent> + </ItemDefinitionGroup> + <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'"> + <PreBuildEvent> + <Command>lib /DEF:"$(ProjectDir)Output_stream_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)output_stream.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)Statistics_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)statistics.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)Core_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core.lib" 1>NUL 2>NUL +lib /DEF:"$(ProjectDir)elementary_functions_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)elementary_functions.lib" 1>NUL 2>NUL</Command> + <Message>Make dependencies</Message> + </PreBuildEvent> + <Midl> + <TargetEnvironment>X64</TargetEnvironment> + </Midl> + <ClCompile> + <FavorSizeOrSpeed>Speed</FavorSizeOrSpeed> + <AdditionalIncludeDirectories>../../../../../libs/f2c;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories> + <PreprocessorDefinitions>__STDC__;_CRT_SECURE_NO_DEPRECATE;%(PreprocessorDefinitions)</PreprocessorDefinitions> + <RuntimeLibrary>MultiThreaded</RuntimeLibrary> + <ObjectFileName>$(Configuration)/</ObjectFileName> + <WarningLevel>Level3</WarningLevel> + </ClCompile> + <PreLinkEvent> + <Message>Build $(ProjectName).def</Message> + <Command>setlocal EnableDelayedExpansion +cd $(ConfigurationName) +set LIST_OBJ= +for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f +"$(SolutionDir)bin\dumpexts" -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ% +copy $(ProjectName).def ..\$(ProjectName).def >nul +del *.def >nul +cd .. +</Command> + </PreLinkEvent> + <Link> + <AdditionalDependencies>../../../../../bin/blasplus.lib;../../../../../bin/lapack.lib;../../../../../bin/libf2c.lib;output_stream.lib;statistics.lib;core.lib;elementary_functions.lib;%(AdditionalDependencies)</AdditionalDependencies> + <OutputFile>$(SolutionDir)bin\$(ProjectName).dll</OutputFile> + <ModuleDefinitionFile>dcd_f.def</ModuleDefinitionFile> + <ImportLibrary>$(SolutionDir)bin\$(ProjectName).lib</ImportLibrary> + <TargetMachine>MachineX64</TargetMachine> + <CLRUnmanagedCodeCheck>true</CLRUnmanagedCodeCheck> + <RandomizedBaseAddress>false</RandomizedBaseAddress> + </Link> + <PostBuildEvent> + </PostBuildEvent> + </ItemDefinitionGroup> + <ItemGroup> + <ClCompile Include="..\algdiv.c" /> + <ClCompile Include="..\alngam.c" /> + <ClCompile Include="..\alnrel.c" /> + <ClCompile Include="..\apser.c" /> + <ClCompile Include="..\basym.c" /> + <ClCompile Include="..\bcorr.c" /> + <ClCompile Include="..\betaln.c" /> + <ClCompile Include="..\bfrac.c" /> + <ClCompile Include="..\bgrat.c" /> + <ClCompile Include="..\bpser.c" /> + <ClCompile Include="..\bratio.c" /> + <ClCompile Include="..\brcmp1.c" /> + <ClCompile Include="..\brcomp.c" /> + <ClCompile Include="..\bup.c" /> + <ClCompile Include="..\cdfbet.c" /> + <ClCompile Include="..\cdfbin.c" /> + <ClCompile Include="..\cdfchi.c" /> + <ClCompile Include="..\cdfchn.c" /> + <ClCompile Include="..\cdff.c" /> + <ClCompile Include="..\cdffnc.c" /> + <ClCompile Include="..\cdfgam.c" /> + <ClCompile Include="..\cdfnbn.c" /> + <ClCompile Include="..\cdfnor.c" /> + <ClCompile Include="..\cdfpoi.c" /> + <ClCompile Include="..\cdft.c" /> + <ClCompile Include="..\cumbet.c" /> + <ClCompile Include="..\cumbin.c" /> + <ClCompile Include="..\cumchi.c" /> + <ClCompile Include="..\cumchn.c" /> + <ClCompile Include="..\cumf.c" /> + <ClCompile Include="..\cumfnc.c" /> + <ClCompile Include="..\cumgam.c" /> + <ClCompile Include="..\cumnbn.c" /> + <ClCompile Include="..\cumnor.c" /> + <ClCompile Include="..\cumpoi.c" /> + <ClCompile Include="..\cumt.c" /> + <ClCompile Include="..\devlpl.c" /> + <ClCompile Include="..\dexpm1.c" /> + <ClCompile Include="..\dinvnr.c" /> + <ClCompile Include="..\dinvr.c" /> + <ClCompile Include="..\dt1.c" /> + <ClCompile Include="..\dzror.c" /> + <ClCompile Include="..\erf.c" /> + <ClCompile Include="..\erfc1.c" /> + <ClCompile Include="..\esum.c" /> + <ClCompile Include="..\exparg.c" /> + <ClCompile Include="..\fpser.c" /> + <ClCompile Include="..\gam1.c" /> + <ClCompile Include="..\gaminv.c" /> + <ClCompile Include="..\gamln.c" /> + <ClCompile Include="..\gamln1.c" /> + <ClCompile Include="..\gamma.c" /> + <ClCompile Include="..\grat1.c" /> + <ClCompile Include="..\gratio.c" /> + <ClCompile Include="..\gsumln.c" /> + <ClCompile Include="..\ipmpar.c" /> + <ClCompile Include="..\psi.c" /> + <ClCompile Include="..\rcomp.c" /> + <ClCompile Include="..\rexp.c" /> + <ClCompile Include="..\rlog.c" /> + <ClCompile Include="..\rlog1.c" /> + <ClCompile Include="..\spmpar.c" /> + <ClCompile Include="..\stvaln.c" /> + </ItemGroup> + <ItemGroup> + <f2c_rule Include="..\algdiv.f" /> + <f2c_rule Include="..\alngam.f" /> + <f2c_rule Include="..\alnrel.f" /> + <f2c_rule Include="..\apser.f" /> + <f2c_rule Include="..\basym.f" /> + <f2c_rule Include="..\bcorr.f" /> + <f2c_rule Include="..\betaln.f" /> + <f2c_rule Include="..\bfrac.f" /> + <f2c_rule Include="..\bgrat.f" /> + <f2c_rule Include="..\bpser.f" /> + <f2c_rule Include="..\bratio.f" /> + <f2c_rule Include="..\brcmp1.f" /> + <f2c_rule Include="..\brcomp.f" /> + <f2c_rule Include="..\bup.f" /> + <f2c_rule Include="..\cdfbet.f" /> + <f2c_rule Include="..\cdfbin.f" /> + <f2c_rule Include="..\cdfchi.f" /> + <f2c_rule Include="..\cdfchn.f" /> + <f2c_rule Include="..\cdff.f" /> + <f2c_rule Include="..\cdffnc.f" /> + <f2c_rule Include="..\cdfgam.f" /> + <f2c_rule Include="..\cdfnbn.f" /> + <f2c_rule Include="..\cdfnor.f" /> + <f2c_rule Include="..\cdfpoi.f" /> + <f2c_rule Include="..\cdft.f" /> + <f2c_rule Include="..\cumbet.f" /> + <f2c_rule Include="..\cumbin.f" /> + <f2c_rule Include="..\cumchi.f" /> + <f2c_rule Include="..\cumchn.f" /> + <f2c_rule Include="..\cumf.f" /> + <f2c_rule Include="..\cumfnc.f" /> + <f2c_rule Include="..\cumgam.f" /> + <f2c_rule Include="..\cumnbn.f" /> + <f2c_rule Include="..\cumnor.f" /> + <f2c_rule Include="..\cumpoi.f" /> + <f2c_rule Include="..\cumt.f" /> + <f2c_rule Include="..\devlpl.f" /> + <f2c_rule Include="..\dexpm1.f" /> + <f2c_rule Include="..\dinvnr.f" /> + <f2c_rule Include="..\dinvr.f" /> + <f2c_rule Include="..\dt1.f" /> + <f2c_rule Include="..\dzror.f" /> + <f2c_rule Include="..\erf.f" /> + <f2c_rule Include="..\erfc1.f" /> + <f2c_rule Include="..\esum.f" /> + <f2c_rule Include="..\exparg.f" /> + <f2c_rule Include="..\fpser.f" /> + <f2c_rule Include="..\gam1.f" /> + <f2c_rule Include="..\gaminv.f" /> + <f2c_rule Include="..\gamln.f" /> + <f2c_rule Include="..\gamln1.f" /> + <f2c_rule Include="..\gamma.f" /> + <f2c_rule Include="..\grat1.f" /> + <f2c_rule Include="..\gratio.f" /> + <f2c_rule Include="..\gsumln.f" /> + <f2c_rule Include="..\ipmpar.f" /> + <f2c_rule Include="..\psi.f" /> + <f2c_rule Include="..\rcomp.f" /> + <f2c_rule Include="..\rexp.f" /> + <f2c_rule Include="..\rlog.f" /> + <f2c_rule Include="..\rlog1.f" /> + <f2c_rule Include="..\spmpar.f" /> + <f2c_rule Include="..\stvaln.f" /> + </ItemGroup> + <ItemGroup> + <ProjectReference Include="..\..\..\..\..\tools\Dumpexts\Dumpexts.vcxproj"> + <Project>{3170e4c2-1173-4264-a222-7ee8ccb3ddf7}</Project> + <ReferenceOutputAssembly>false</ReferenceOutputAssembly> + </ProjectReference> + </ItemGroup> + <ItemGroup> + <None Include="Core_Import.def" /> + <None Include="elementary_functions_Import.def" /> + <None Include="Output_stream_Import.def" /> + <None Include="statistics_Import.def" /> + </ItemGroup> + <Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" /> + <ImportGroup Label="ExtensionTargets"> + <Import Project="..\..\..\..\..\Visual-Studio-settings\f2c.targets" /> + </ImportGroup> +</Project>
\ No newline at end of file diff --git a/modules/statistics/src/dcdflib/dcd_f/dcd_f2c.vcxproj.filters b/modules/statistics/src/dcdflib/dcd_f/dcd_f2c.vcxproj.filters new file mode 100755 index 000000000..6b6f23664 --- /dev/null +++ b/modules/statistics/src/dcdflib/dcd_f/dcd_f2c.vcxproj.filters @@ -0,0 +1,419 @@ +<?xml version="1.0" encoding="utf-8"?> +<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <ItemGroup> + <Filter Include="Source Files"> + <UniqueIdentifier>{7d075f4e-52ed-4136-9595-24c161c733ad}</UniqueIdentifier> + <Extensions>cpp;c;cxx;def;odl;idl;hpj;bat;asm;asmx</Extensions> + </Filter> + <Filter Include="Header Files"> + <UniqueIdentifier>{e2e9018b-5554-426b-9da6-00a017f92995}</UniqueIdentifier> + <Extensions>h;hpp;hxx;hm;inl;inc;xsd</Extensions> + </Filter> + <Filter Include="Resource Files"> + <UniqueIdentifier>{1abd3bc3-5847-4224-80ef-30a7537f9d17}</UniqueIdentifier> + <Extensions>rc;ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe;resx</Extensions> + </Filter> + <Filter Include="Fortran Files"> + <UniqueIdentifier>{133e4c80-9122-491c-8021-24677524d571}</UniqueIdentifier> + </Filter> + <Filter Include="Library Dependencies"> + <UniqueIdentifier>{4417abf3-7c8c-4472-b063-06a3aac0bd43}</UniqueIdentifier> + </Filter> + </ItemGroup> + <ItemGroup> + <ClCompile Include="..\algdiv.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\alngam.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\alnrel.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\apser.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\basym.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\bcorr.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\betaln.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\bfrac.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\bgrat.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\bpser.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\bratio.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\brcmp1.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\brcomp.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\bup.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cdfbet.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cdfbin.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cdfchi.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cdfchn.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cdff.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cdffnc.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cdfgam.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cdfnbn.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cdfnor.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cdfpoi.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cdft.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cumbet.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cumbin.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cumchi.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cumchn.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cumf.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cumfnc.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cumgam.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cumnbn.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cumnor.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cumpoi.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\cumt.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\devlpl.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\dexpm1.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\dinvnr.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\dinvr.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\dt1.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\dzror.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\erf.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\erfc1.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\esum.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\exparg.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\fpser.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\gam1.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\gaminv.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\gamln.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\gamln1.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\gamma.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\grat1.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\gratio.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\gsumln.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\ipmpar.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\psi.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\rcomp.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\rexp.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\rlog.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\rlog1.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\spmpar.c"> + <Filter>Source Files</Filter> + </ClCompile> + <ClCompile Include="..\stvaln.c"> + <Filter>Source Files</Filter> + </ClCompile> + </ItemGroup> + <ItemGroup> + <f2c_rule Include="..\algdiv.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\alngam.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\alnrel.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\apser.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\basym.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\bcorr.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\betaln.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\bfrac.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\bgrat.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\bpser.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\bratio.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\brcmp1.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\brcomp.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\bup.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cdfbet.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cdfbin.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cdfchi.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cdfchn.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cdff.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cdffnc.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cdfgam.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cdfnbn.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cdfnor.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cdfpoi.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cdft.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cumbet.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cumbin.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cumchi.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cumchn.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cumf.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cumfnc.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cumgam.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cumnbn.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cumnor.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cumpoi.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\cumt.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\devlpl.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\dexpm1.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\dinvnr.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\dinvr.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\dt1.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\dzror.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\erf.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\erfc1.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\esum.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\exparg.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\fpser.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\gam1.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\gaminv.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\gamln.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\gamln1.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\gamma.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\grat1.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\gratio.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\gsumln.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\ipmpar.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\psi.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\rcomp.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\rexp.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\rlog.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\rlog1.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\spmpar.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + <f2c_rule Include="..\stvaln.f"> + <Filter>Fortran Files</Filter> + </f2c_rule> + </ItemGroup> + <ItemGroup> + <None Include="Output_stream_Import.def"> + <Filter>Library Dependencies</Filter> + </None> + <None Include="statistics_Import.def"> + <Filter>Library Dependencies</Filter> + </None> + <None Include="Core_Import.def"> + <Filter>Library Dependencies</Filter> + </None> + <None Include="elementary_functions_Import.def"> + <Filter>Library Dependencies</Filter> + </None> + </ItemGroup> +</Project>
\ No newline at end of file diff --git a/modules/statistics/src/dcdflib/dcd_f/elementary_functions_Import.def b/modules/statistics/src/dcdflib/dcd_f/elementary_functions_Import.def new file mode 100755 index 000000000..575b928ac --- /dev/null +++ b/modules/statistics/src/dcdflib/dcd_f/elementary_functions_Import.def @@ -0,0 +1,6 @@ +LIBRARY elementary_functions.dll + + +EXPORTS +; +vfinite_
\ No newline at end of file diff --git a/modules/statistics/src/dcdflib/dcd_f/statistics_Import.def b/modules/statistics/src/dcdflib/dcd_f/statistics_Import.def new file mode 100755 index 000000000..bb1cd868f --- /dev/null +++ b/modules/statistics/src/dcdflib/dcd_f/statistics_Import.def @@ -0,0 +1,6 @@ +LIBRARY statistics.dll + + +EXPORTS +; +largestint_
\ No newline at end of file diff --git a/modules/statistics/src/dcdflib/devlpl.f b/modules/statistics/src/dcdflib/devlpl.f new file mode 100755 index 000000000..222014311 --- /dev/null +++ b/modules/statistics/src/dcdflib/devlpl.f @@ -0,0 +1,48 @@ + DOUBLE PRECISION FUNCTION devlpl(a,n,x) +C********************************************************************** +C +C DOUBLE PRECISION FUNCTION DEVLPL(A,N,X) +C Double precision EVALuate a PoLynomial at X +C +C +C Function +C +C +C returns +C A(1) + A(2)*X + ... + A(N)*X**(N-1) +C +C +C Arguments +C +C +C A --> Array of coefficients of the polynomial. +C A is DOUBLE PRECISION(N) +C +C N --> Length of A, also degree of polynomial - 1. +C N is INTEGER +C +C X --> Point at which the polynomial is to be evaluated. +C X is DOUBLE PRECISION +C +C********************************************************************** +C +C .. Scalar Arguments .. + DOUBLE PRECISION x + INTEGER n +C .. +C .. Array Arguments .. + DOUBLE PRECISION a(n) +C .. +C .. Local Scalars .. + DOUBLE PRECISION term + INTEGER i +C .. +C .. Executable Statements .. + term = a(n) + DO 10,i = n - 1,1,-1 + term = a(i) + term*x + 10 CONTINUE + devlpl = term + RETURN + + END diff --git a/modules/statistics/src/dcdflib/devlpl.lo b/modules/statistics/src/dcdflib/devlpl.lo new file mode 100755 index 000000000..98a676b47 --- /dev/null +++ b/modules/statistics/src/dcdflib/devlpl.lo @@ -0,0 +1,12 @@ +# src/dcdflib/devlpl.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/devlpl.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/dexpm1.f b/modules/statistics/src/dcdflib/dexpm1.f new file mode 100755 index 000000000..25108a825 --- /dev/null +++ b/modules/statistics/src/dcdflib/dexpm1.f @@ -0,0 +1,54 @@ + DOUBLE PRECISION FUNCTION dcddexpm1(x) +C********************************************************************** +C +C DOUBLE PRECISION FUNCTION dcddexpm1(x) +C Evaluation of the function EXP(X) - 1 +C +C +C Arguments +C +C +C X --> Argument at which exp(x)-1 desired +C DOUBLE PRECISION X +C +C +C Method +C +C +C Renaming of function rexp from code of: +C +C DiDinato, A. R. and Morris, A. H. Algorithm 708: Significant +C Digit Computation of the Incomplete Beta Function Ratios. ACM +C Trans. Math. Softw. 18 (1993), 360-373. +C +C********************************************************************** +C .. Scalar Arguments .. + DOUBLE PRECISION x +C .. +C .. Local Scalars .. + DOUBLE PRECISION p1,p2,q1,q2,q3,q4,w +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,exp +C .. +C .. Data statements .. + DATA p1/.914041914819518D-09/,p2/.238082361044469D-01/, + + q1/-.499999999085958D+00/,q2/.107141568980644D+00/, + + q3/-.119041179760821D-01/,q4/.595130811860248D-03/ +C .. +C .. Executable Statements .. +C + IF (abs(x).GT.0.15D0) GO TO 10 + dcddexpm1 = x* (((p2*x+p1)*x+1.0D0)/ + + ((((q4*x+q3)*x+q2)*x+q1)*x+1.0D0)) + RETURN +C + 10 w = exp(x) + IF (x.GT.0.0D0) GO TO 20 + dcddexpm1 = (w-0.5D0) - 0.5D0 + RETURN + + 20 dcddexpm1 = w* (0.5D0+ (0.5D0-1.0D0/w)) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/dinvnr.f b/modules/statistics/src/dcdflib/dinvnr.f new file mode 100755 index 000000000..27293f97b --- /dev/null +++ b/modules/statistics/src/dcdflib/dinvnr.f @@ -0,0 +1,115 @@ + DOUBLE PRECISION FUNCTION dinvnr(p,q) +C********************************************************************** +C +C DOUBLE PRECISION FUNCTION DINVNR(P,Q) +C Double precision NoRmal distribution INVerse +C +C +C Function +C +C +C Returns X such that CUMNOR(X) = P, i.e., the integral from - +C infinity to X of (1/SQRT(2*PI)) EXP(-U*U/2) dU is P +C +C +C Arguments +C +C +C P --> The probability whose normal deviate is sought. +C P is DOUBLE PRECISION +C +C Q --> 1-P +C P is DOUBLE PRECISION +C +C +C Method +C +C +C The rational function on page 95 of Kennedy and Gentle, +C Statistical Computing, Marcel Dekker, NY , 1980 is used as a start +C value for the Newton method of finding roots. +C +C +C Note +C +C +C If P or Q .lt. machine EPS returns +/- DINVNR(EPS) +C +C********************************************************************** +C .. Parameters .. + INTEGER maxit + PARAMETER (maxit=100) + DOUBLE PRECISION eps + PARAMETER (eps=1.0D-13) + DOUBLE PRECISION r2pi + PARAMETER (r2pi=0.3989422804014326D0) + DOUBLE PRECISION nhalf + PARAMETER (nhalf=-0.5D0) +C .. +C .. Scalar Arguments .. + DOUBLE PRECISION p,q +C .. +C .. Local Scalars .. + DOUBLE PRECISION strtx,xcur,cum,ccum,pp,dx + INTEGER i + LOGICAL qporq +C .. +C .. External Functions .. + DOUBLE PRECISION stvaln + EXTERNAL stvaln +C .. +C .. External Subroutines .. + EXTERNAL cumnor +C .. +C .. Statement Functions .. + DOUBLE PRECISION dennor,x + + dennor(x) = r2pi*exp(nhalf*x*x) +C .. +C .. Executable Statements .. +C +C FIND MINIMUM OF P AND Q +C + qporq = p .LE. q + IF (.NOT. (qporq)) THEN + pp = q + ELSE + pp = p + ENDIF +c +c DIGITEO - M. Baudin - 2010 +c Patched for bug #8032. +c Avoid to enter in the zero-finder algorithm in trivial case. +c + IF ( pp .EQ. 0.5d0 ) THEN + dinvnr = 0.d0 + RETURN + ENDIF +C +C INITIALIZATION STEP +C + strtx = stvaln(pp) + xcur = strtx +C +C NEWTON INTERATIONS +C + DO 30,i = 1,maxit + CALL cumnor(xcur,cum,ccum) + dx = (cum-pp)/dennor(xcur) + xcur = xcur - dx + IF (abs(dx/xcur).LT.eps) GO TO 40 + 30 CONTINUE + dinvnr = strtx +C +C IF WE GET HERE, NEWTON HAS FAILED +C + IF (.NOT.qporq) dinvnr = -dinvnr + RETURN +C +C IF WE GET HERE, NEWTON HAS SUCCEDED +C + 40 dinvnr = xcur + IF (.NOT.qporq) dinvnr = -dinvnr + RETURN + + END diff --git a/modules/statistics/src/dcdflib/dinvnr.lo b/modules/statistics/src/dcdflib/dinvnr.lo new file mode 100755 index 000000000..fb5913334 --- /dev/null +++ b/modules/statistics/src/dcdflib/dinvnr.lo @@ -0,0 +1,12 @@ +# src/dcdflib/dinvnr.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/dinvnr.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/dinvr.f b/modules/statistics/src/dcdflib/dinvr.f new file mode 100755 index 000000000..69189e0d8 --- /dev/null +++ b/modules/statistics/src/dcdflib/dinvr.f @@ -0,0 +1,363 @@ + SUBROUTINE dinvr(status,x,fx,qleft,qhi) +C********************************************************************** +C +C SUBROUTINE DINVR(STATUS, X, FX, QLEFT, QHI) +C Double precision +C bounds the zero of the function and invokes zror +C Reverse Communication +C +C +C Function +C +C +C Bounds the function and invokes ZROR to perform the zero +C finding. STINVR must have been called before this routine +C in order to set its parameters. +C +C +C Arguments +C +C +C STATUS <--> At the beginning of a zero finding problem, STATUS +C should be set to 0 and INVR invoked. (The value +C of parameters other than X will be ignored on this cal +C +C When INVR needs the function evaluated, it will set +C STATUS to 1 and return. The value of the function +C should be set in FX and INVR again called without +C changing any of its other parameters. +C +C When INVR has finished without error, it will return +C with STATUS 0. In that case X is approximately a root +C of F(X). +C +C If INVR cannot bound the function, it returns status +C -1 and sets QLEFT and QHI. +C INTEGER STATUS +C +C X <-- The value of X at which F(X) is to be evaluated. +C DOUBLE PRECISION X +C +C FX --> The value of F(X) calculated when INVR returns with +C STATUS = 1. +C DOUBLE PRECISION FX +C +C QLEFT <-- Defined only if QMFINV returns .FALSE. In that +C case it is .TRUE. If the stepping search terminated +C unsucessfully at SMALL. If it is .FALSE. the search +C terminated unsucessfully at BIG. +C QLEFT is LOGICAL +C +C QHI <-- Defined only if QMFINV returns .FALSE. In that +C case it is .TRUE. if F(X) .GT. Y at the termination +C of the search and .FALSE. if F(X) .LT. Y at the +C termination of the search. +C QHI is LOGICAL + +C +C********************************************************************** +C Modified by S. Steer INRIA 1998,to replace ASSIGN instruction by +c Computed GOTO +C********************************************************************** + include 'stack.h' +C .. Scalar Arguments .. + DOUBLE PRECISION fx,x,zabsst,zabsto,zbig,zrelst,zrelto,zsmall, + + zstpmu + INTEGER status + LOGICAL qhi,qleft +C .. +C .. Local Scalars .. + DOUBLE PRECISION absstp,abstol,big,fbig,fsmall,relstp,reltol, + + small,step,stpmul,xhi,xlb,xlo,xsave,xub,yy,zx,zy, + + zz + INTEGER i99999 + LOGICAL qbdd,qcond,qdum1,qdum2,qincr,qlim,qok,qup +C .. +C .. External Subroutines .. + EXTERNAL dstzr,dzror +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,max,min +C .. +C .. Statement Functions .. + LOGICAL qxmon +C .. +C .. Save statement .. + SAVE +C .. +C .. Statement Function definitions .. + qxmon(zx,zy,zz) = zx .LE. zy .AND. zy .LE. zz +C .. +C .. Executable Statements .. + + IF (status.GT.0) GO TO 310 + + qcond = .NOT. qxmon(small,x,big) + IF (qcond) then + call basout(io,wte,' SMALL, X, BIG not monotone in INVR') + status = -100 + return + endif + xsave = x +C +C See that SMALL and BIG bound the zero and set QINCR +C + x = small +C GET-FUNCTION-VALUE +c ASSIGN 10 TO i99999 + i99999=1 + GO TO 300 + + 10 fsmall = fx + x = big +C GET-FUNCTION-VALUE +c ASSIGN 20 TO i99999 + i99999=2 + GO TO 300 + + 20 fbig = fx + qincr = fbig .GT. fsmall + IF (.NOT. (qincr)) GO TO 50 + IF (fsmall.LE.0.0D0) GO TO 30 + status = -1 + qleft = .TRUE. + qhi = .TRUE. + RETURN + + 30 IF (fbig.GE.0.0D0) GO TO 40 + status = -1 + qleft = .FALSE. + qhi = .FALSE. + RETURN + + 40 GO TO 80 + + 50 IF (fsmall.GE.0.0D0) GO TO 60 + status = -1 + qleft = .TRUE. + qhi = .FALSE. + RETURN + + 60 IF (fbig.LE.0.0D0) GO TO 70 + status = -1 + qleft = .FALSE. + qhi = .TRUE. + RETURN + + 70 CONTINUE + 80 x = xsave + step = max(absstp,relstp*abs(x)) +C YY = F(X) - Y +C GET-FUNCTION-VALUE +c ASSIGN 90 TO i99999 + i99999=3 + GO TO 300 + + 90 yy = fx + IF (.NOT. (yy.EQ.0.0D0)) GO TO 100 + status = 0 + qok = .TRUE. + RETURN + + 100 qup = (qincr .AND. (yy.LT.0.0D0)) .OR. + + (.NOT.qincr .AND. (yy.GT.0.0D0)) +C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +C +C HANDLE CASE IN WHICH WE MUST STEP HIGHER +C +C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + IF (.NOT. (qup)) GO TO 170 + xlb = xsave + xub = min(xlb+step,big) + GO TO 120 + + 110 IF (qcond) GO TO 150 +C YY = F(XUB) - Y + 120 x = xub +C GET-FUNCTION-VALUE +c ASSIGN 130 TO i99999 + i99999=4 + GO TO 300 + + 130 yy = fx + qbdd = (qincr .AND. (yy.GE.0.0D0)) .OR. + + (.NOT.qincr .AND. (yy.LE.0.0D0)) + qlim = xub .GE. big + qcond = qbdd .OR. qlim + IF (qcond) GO TO 140 + step = stpmul*step + xlb = xub + xub = min(xlb+step,big) + 140 GO TO 110 + + 150 IF (.NOT. (qlim.AND..NOT.qbdd)) GO TO 160 + status = -1 + qleft = .FALSE. + qhi = .NOT. qincr + x = big + RETURN + + 160 GO TO 240 +C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +C +C HANDLE CASE IN WHICH WE MUST STEP LOWER +C +C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + 170 xub = xsave + xlb = max(xub-step,small) + GO TO 190 + + 180 IF (qcond) GO TO 220 +C YY = F(XLB) - Y + 190 x = xlb +C GET-FUNCTION-VALUE +c ASSIGN 200 TO i99999 + i99999=5 + GO TO 300 + + 200 yy = fx + qbdd = (qincr .AND. (yy.LE.0.0D0)) .OR. + + (.NOT.qincr .AND. (yy.GE.0.0D0)) + qlim = xlb .LE. small + qcond = qbdd .OR. qlim + IF (qcond) GO TO 210 + step = stpmul*step + xub = xlb + xlb = max(xub-step,small) + 210 GO TO 180 + + 220 IF (.NOT. (qlim.AND..NOT.qbdd)) GO TO 230 + status = -1 + qleft = .TRUE. + qhi = qincr + x = small + RETURN + + 230 CONTINUE + 240 CALL dstzr(xlb,xub,abstol,reltol) +C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +C +C IF WE REACH HERE, XLB AND XUB BOUND THE ZERO OF F. +C +C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + status = 0 + GO TO 260 + + 250 IF (.NOT. (status.EQ.1)) GO TO 290 + 260 CALL dzror(status,x,fx,xlo,xhi,qdum1,qdum2) + IF (.NOT. (status.EQ.1)) GO TO 280 +C GET-FUNCTION-VALUE +c ASSIGN 270 TO i99999 + i99999=6 + GO TO 300 + + 270 CONTINUE + 280 GO TO 250 + + 290 x = xlo + status = 0 + RETURN + + ENTRY dstinv(zsmall,zbig,zabsst,zrelst,zstpmu,zabsto,zrelto) +C********************************************************************** +C +C SUBROUTINE DSTINV( SMALL, BIG, ABSSTP, RELSTP, STPMUL, +C + ABSTOL, RELTOL ) +C Double Precision - SeT INverse finder - Reverse Communication +C +C +C Function +C +C +C Concise Description - Given a monotone function F finds X +C such that F(X) = Y. Uses Reverse communication -- see invr. +C This routine sets quantities needed by INVR. +C +C More Precise Description of INVR - +C +C F must be a monotone function, the results of QMFINV are +C otherwise undefined. QINCR must be .TRUE. if F is non- +C decreasing and .FALSE. if F is non-increasing. +C +C QMFINV will return .TRUE. if and only if F(SMALL) and +C F(BIG) bracket Y, i. e., +C QINCR is .TRUE. and F(SMALL).LE.Y.LE.F(BIG) or +C QINCR is .FALSE. and F(BIG).LE.Y.LE.F(SMALL) +C +C if QMFINV returns .TRUE., then the X returned satisfies +C the following condition. let +C TOL(X) = MAX(ABSTOL,RELTOL*ABS(X)) +C then if QINCR is .TRUE., +C F(X-TOL(X)) .LE. Y .LE. F(X+TOL(X)) +C and if QINCR is .FALSE. +C F(X-TOL(X)) .GE. Y .GE. F(X+TOL(X)) +C +C +C Arguments +C +C +C SMALL --> The left endpoint of the interval to be +C searched for a solution. +C SMALL is DOUBLE PRECISION +C +C BIG --> The right endpoint of the interval to be +C searched for a solution. +C BIG is DOUBLE PRECISION +C +C ABSSTP, RELSTP --> The initial step size in the search +C is MAX(ABSSTP,RELSTP*ABS(X)). See algorithm. +C ABSSTP is DOUBLE PRECISION +C RELSTP is DOUBLE PRECISION +C +C STPMUL --> When a step doesn't bound the zero, the step +C size is multiplied by STPMUL and another step +C taken. A popular value is 2.0 +C DOUBLE PRECISION STPMUL +C +C ABSTOL, RELTOL --> Two numbers that determine the accuracy +C of the solution. See function for a precise definition. +C ABSTOL is DOUBLE PRECISION +C RELTOL is DOUBLE PRECISION +C +C +C Method +C +C +C Compares F(X) with Y for the input value of X then uses QINCR +C to determine whether to step left or right to bound the +C desired x. the initial step size is +C MAX(ABSSTP,RELSTP*ABS(S)) for the input value of X. +C Iteratively steps right or left until it bounds X. +C At each step which doesn't bound X, the step size is doubled. +C The routine is careful never to step beyond SMALL or BIG. If +C it hasn't bounded X at SMALL or BIG, QMFINV returns .FALSE. +C after setting QLEFT and QHI. +C +C If X is successfully bounded then Algorithm R of the paper +C 'Two Efficient Algorithms with Guaranteed Convergence for +C Finding a Zero of a Function' by J. C. P. Bus and +C T. J. Dekker in ACM Transactions on Mathematical +C Software, Volume 1, No. 4 page 330 (DEC. '75) is employed +C to find the zero of the function F(X)-Y. This is routine +C QRZERO. +C +C********************************************************************** + small = zsmall + big = zbig + absstp = zabsst + relstp = zrelst + stpmul = zstpmu + abstol = zabsto + reltol = zrelto + RETURN + +C(jpc) STOP '*** EXECUTION FLOWING INTO FLECS PROCEDURES ***' +C TO GET-FUNCTION-VALUE + 300 status = 1 + RETURN + + 310 CONTINUE + goto(10,20,90,130,200,270) i99999 +c GO TO i99999 + + END diff --git a/modules/statistics/src/dcdflib/dinvr.lo b/modules/statistics/src/dcdflib/dinvr.lo new file mode 100755 index 000000000..78fee2669 --- /dev/null +++ b/modules/statistics/src/dcdflib/dinvr.lo @@ -0,0 +1,12 @@ +# src/dcdflib/dinvr.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/dinvr.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/dt1.f b/modules/statistics/src/dcdflib/dt1.f new file mode 100755 index 000000000..3a940381a --- /dev/null +++ b/modules/statistics/src/dcdflib/dt1.f @@ -0,0 +1,76 @@ + DOUBLE PRECISION FUNCTION dt1(p,q,df) +C********************************************************************** +C +C DOUBLE PRECISION FUNCTION DT1(P,Q,DF) +C Double precision Initalize Approximation to +C INVerse of the cumulative T distribution +C +C +C Function +C +C +C Returns the inverse of the T distribution function, i.e., +C the integral from 0 to INVT of the T density is P. This is an +C initial approximation +C +C +C Arguments +C +C +C P --> The p-value whose inverse from the T distribution is +C desired. +C P is DOUBLE PRECISION +C +C Q --> 1-P. +C Q is DOUBLE PRECISION +C +C DF --> Degrees of freedom of the T distribution. +C DF is DOUBLE PRECISION +C +C********************************************************************** +C +C .. Scalar Arguments .. + DOUBLE PRECISION df,p,q +C .. +C .. Local Scalars .. + DOUBLE PRECISION denpow,sum,term,x,xp,xx + INTEGER i +C .. +C .. Local Arrays .. + DOUBLE PRECISION coef(5,4),denom(4) + INTEGER ideg(4) +C .. +C .. External Functions .. + DOUBLE PRECISION dinvnr,devlpl + EXTERNAL dinvnr,devlpl +C .. +C .. Intrinsic Functions .. + INTRINSIC abs +C .. +C .. Data statements .. + DATA (coef(i,1),i=1,5)/1.0D0,1.0D0,3*0.0D0/ + DATA (coef(i,2),i=1,5)/3.0D0,16.0D0,5.0D0,2*0.0D0/ + DATA (coef(i,3),i=1,5)/-15.0D0,17.0D0,19.0D0,3.0D0,0.0D0/ + DATA (coef(i,4),i=1,5)/-945.0D0,-1920.0D0,1482.0D0,776.0D0,79.0D0/ + DATA ideg/2,3,4,5/ + DATA denom/4.0D0,96.0D0,384.0D0,92160.0D0/ +C .. +C .. Executable Statements .. + x = abs(dinvnr(p,q)) + xx = x*x + sum = x + denpow = 1.0D0 + DO 10,i = 1,4 + term = devlpl(coef(1,i),ideg(i),xx)*x + denpow = denpow*df + sum = sum + term/ (denpow*denom(i)) + 10 CONTINUE + IF (.NOT. (p.GE.0.5D0)) GO TO 20 + xp = sum + GO TO 30 + + 20 xp = -sum + 30 dt1 = xp + RETURN + + END diff --git a/modules/statistics/src/dcdflib/dt1.lo b/modules/statistics/src/dcdflib/dt1.lo new file mode 100755 index 000000000..c05e8a5d8 --- /dev/null +++ b/modules/statistics/src/dcdflib/dt1.lo @@ -0,0 +1,12 @@ +# src/dcdflib/dt1.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/dt1.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/dzror.f b/modules/statistics/src/dcdflib/dzror.f new file mode 100755 index 000000000..caafd7b0b --- /dev/null +++ b/modules/statistics/src/dcdflib/dzror.f @@ -0,0 +1,296 @@ + SUBROUTINE dzror(status,x,fx,xlo,xhi,qleft,qhi) +C********************************************************************** +C +C SUBROUTINE DZROR(STATUS, X, FX, XLO, XHI, QLEFT, QHI) +C Double precision ZeRo of a function -- Reverse Communication +C +C +C Function +C +C +C Performs the zero finding. STZROR must have been called before +C this routine in order to set its parameters. +C +C +C Arguments +C +C +C STATUS <--> At the beginning of a zero finding problem, STATUS +C should be set to 0 and ZROR invoked. (The value +C of other parameters will be ignored on this call.) +C +C When ZROR needs the function evaluated, it will set +C STATUS to 1 and return. The value of the function +C should be set in FX and ZROR again called without +C changing any of its other parameters. +C +C When ZROR has finished without error, it will return +C with STATUS 0. In that case (XLO,XHI) bound the answe +C +C If ZROR finds an error (which implies that F(XLO)-Y an +C F(XHI)-Y have the same sign, it returns STATUS -1. In +C this case, XLO and XHI are undefined. +C INTEGER STATUS +C +C X <-- The value of X at which F(X) is to be evaluated. +C DOUBLE PRECISION X +C +C FX --> The value of F(X) calculated when ZROR returns with +C STATUS = 1. +C DOUBLE PRECISION FX +C +C XLO <-- When ZROR returns with STATUS = 0, XLO bounds the +C inverval in X containing the solution below. +C DOUBLE PRECISION XLO +C +C XHI <-- When ZROR returns with STATUS = 0, XHI bounds the +C inverval in X containing the solution above. +C DOUBLE PRECISION XHI +C +C QLEFT <-- .TRUE. if the stepping search terminated unsucessfully +C at XLO. If it is .FALSE. the search terminated +C unsucessfully at XHI. +C QLEFT is LOGICAL +C +C QHI <-- .TRUE. if F(X) .GT. Y at the termination of the +C search and .FALSE. if F(X) .LT. Y at the +C termination of the search. +C QHI is LOGICAL +C +C********************************************************************** +C********************************************************************** +C Modified by S. Steer INRIA 1998,to replace ASSIGN instruction by +c Computed GOTO +C********************************************************************** +C .. Scalar Arguments .. + DOUBLE PRECISION fx,x,xhi,xlo,zabstl,zreltl,zxhi,zxlo + INTEGER status + LOGICAL qhi,qleft +C .. +C .. Save statement .. + SAVE +C .. +C .. Local Scalars .. + DOUBLE PRECISION a,abstol,b,c,d,fa,fb,fc,fd,fda,fdb,m,mb,p,q, + + reltol,tol,w,xxhi,xxlo,zx + INTEGER ext,i99999 + LOGICAL first,qrzero +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,max,sign +C .. +C .. Statement Functions .. + DOUBLE PRECISION ftol,dlamch +C .. +C .. Statement Function definitions .. + ftol(zx) = 0.5D0*max(abstol,reltol*abs(zx)) + eps = dlamch('e') +C .. +C .. Executable Statements .. + + IF (status.GT.0) GO TO 280 + xlo = xxlo + xhi = xxhi + b = xlo + x = xlo +C GET-FUNCTION-VALUE +c ASSIGN 10 TO i99999 + i99999=1 + GO TO 270 + + 10 fb = fx + xlo = xhi + a = xlo + x = xlo +C GET-FUNCTION-VALUE +c ASSIGN 20 TO i99999 + i99999=2 + GO TO 270 +C +C Check that F(ZXLO) < 0 < F(ZXHI) or +C F(ZXLO) > 0 > F(ZXHI) +C + 20 IF (.NOT. (fb.LT.0.0D0)) GO TO 40 + IF (.NOT. (fx.LT.0.0D0)) GO TO 30 + status = -1 + qleft = fx .LT. fb + qhi = .FALSE. + RETURN + + 30 CONTINUE + 40 IF (.NOT. (fb.GT.0.0D0)) GO TO 60 + IF (.NOT. (fx.GT.0.0D0)) GO TO 50 + status = -1 + qleft = fx .GT. fb + qhi = .TRUE. + RETURN + + 50 CONTINUE + 60 fa = fx +C + first = .TRUE. + 70 c = a + fc = fa + ext = 0 + 80 IF (.NOT. (abs(fc).LT.abs(fb))) GO TO 100 + IF (.NOT. (c.NE.a)) GO TO 90 + d = a + fd = fa + 90 a = b + fa = fb + xlo = c + b = xlo + fb = fc + c = a + fc = fa + 100 tol = ftol(xlo) + m = (c+b)*.5D0 + mb = m - b + IF (.NOT. (abs(mb).GT.tol)) GO TO 240 + IF (.NOT. (ext.GT.3)) GO TO 110 + w = mb + GO TO 190 + + 110 tol = sign(tol,mb) + p = (b-a)*fb + IF (.NOT. (first)) GO TO 120 + q = fa - fb + first = .FALSE. + GO TO 130 + + 120 fdb = (fd-fb)/ (d-b) + fda = (fd-fa)/ (d-a) + p = fda*p + q = fdb*fa - fda*fb + 130 IF (.NOT. (p.LT.0.0D0)) GO TO 140 + p = -p + q = -q + 140 IF (ext.EQ.3) p = p*2.0D0 + IF (.NOT. ((p*1.0D0).EQ.0.0D0.OR.p.LE. (q*tol))) GO TO 150 + w = tol + GO TO 180 + + 150 IF (.NOT. (p.LT. (mb*q))) GO TO 160 + w = p/q + GO TO 170 + + 160 w = mb + 170 CONTINUE + 180 CONTINUE + 190 d = a + fd = fa + a = b + fa = fb + b = b + w + xlo = b + x = xlo + if (x.lt.eps) then + x=0 + status = 0 + return + endif +C GET-FUNCTION-VALUE +c ASSIGN 200 TO i99999 + i99999=3 + GO TO 270 + + 200 fb = fx + IF (.NOT. ((fc*fb).GE.0.0D0)) GO TO 210 + GO TO 70 + + 210 IF (.NOT. (w.EQ.mb)) GO TO 220 + ext = 0 + GO TO 230 + + 220 ext = ext + 1 + 230 GO TO 80 + + 240 xhi = c + qrzero = (fc.GE.0.0D0 .AND. fb.LE.0.0D0) .OR. + + (fc.LT.0.0D0 .AND. fb.GE.0.0D0) + IF (.NOT. (qrzero)) GO TO 250 + status = 0 + GO TO 260 + + 250 status = -1 + 260 RETURN + + ENTRY dstzr(zxlo,zxhi,zabstl,zreltl) +C********************************************************************** +C +C SUBROUTINE DSTZR( XLO, XHI, ABSTOL, RELTOL ) +C Double precision SeT ZeRo finder - Reverse communication version +C +C +C Function +C +C +C +C Sets quantities needed by ZROR. The function of ZROR +C and the quantities set is given here. +C +C Concise Description - Given a function F +C find XLO such that F(XLO) = 0. +C +C More Precise Description - +C +C Input condition. F is a double precision function of a single +C double precision argument and XLO and XHI are such that +C F(XLO)*F(XHI) .LE. 0.0 +C +C If the input condition is met, QRZERO returns .TRUE. +C and output values of XLO and XHI satisfy the following +C F(XLO)*F(XHI) .LE. 0. +C ABS(F(XLO) .LE. ABS(F(XHI) +C ABS(XLO-XHI) .LE. TOL(X) +C where +C TOL(X) = MAX(ABSTOL,RELTOL*ABS(X)) +C +C If this algorithm does not find XLO and XHI satisfying +C these conditions then QRZERO returns .FALSE. This +C implies that the input condition was not met. +C +C +C Arguments +C +C +C XLO --> The left endpoint of the interval to be +C searched for a solution. +C XLO is DOUBLE PRECISION +C +C XHI --> The right endpoint of the interval to be +C for a solution. +C XHI is DOUBLE PRECISION +C +C ABSTOL, RELTOL --> Two numbers that determine the accuracy +C of the solution. See function for a +C precise definition. +C ABSTOL is DOUBLE PRECISION +C RELTOL is DOUBLE PRECISION +C +C +C Method +C +C +C Algorithm R of the paper 'Two Efficient Algorithms with +C Guaranteed Convergence for Finding a Zero of a Function' +C by J. C. P. Bus and T. J. Dekker in ACM Transactions on +C Mathematical Software, Volume 1, no. 4 page 330 +C (Dec. '75) is employed to find the zero of F(X)-Y. +C +C********************************************************************** + xxlo = zxlo + xxhi = zxhi + abstol = zabstl + reltol = zreltl + RETURN + +C(jpc) STOP '*** EXECUTION FLOWING INTO FLECS PROCEDURES ***' +C TO GET-FUNCTION-VALUE + 270 status = 1 + RETURN + + 280 CONTINUE + GO TO (10,20,200) i99999 + + END diff --git a/modules/statistics/src/dcdflib/dzror.lo b/modules/statistics/src/dcdflib/dzror.lo new file mode 100755 index 000000000..c92624866 --- /dev/null +++ b/modules/statistics/src/dcdflib/dzror.lo @@ -0,0 +1,12 @@ +# src/dcdflib/dzror.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/dzror.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/erf.f b/modules/statistics/src/dcdflib/erf.f new file mode 100755 index 000000000..98b32c56a --- /dev/null +++ b/modules/statistics/src/dcdflib/erf.f @@ -0,0 +1,74 @@ + DOUBLE PRECISION FUNCTION erf(x) +C----------------------------------------------------------------------- +C EVALUATION OF THE REAL ERROR FUNCTION +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION x +C .. +C .. Local Scalars .. + DOUBLE PRECISION ax,bot,c,t,top,x2 +C .. +C .. Local Arrays .. + DOUBLE PRECISION a(5),b(3),p(8),q(8),r(5),s(4) +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,exp,sign +C .. +C .. Data statements .. +C------------------------- +C------------------------- +C------------------------- +C------------------------- + DATA c/.564189583547756D0/ + DATA a(1)/.771058495001320D-04/,a(2)/-.133733772997339D-02/, + + a(3)/.323076579225834D-01/,a(4)/.479137145607681D-01/, + + a(5)/.128379167095513D+00/ + DATA b(1)/.301048631703895D-02/,b(2)/.538971687740286D-01/, + + b(3)/.375795757275549D+00/ + DATA p(1)/-1.36864857382717D-07/,p(2)/5.64195517478974D-01/, + + p(3)/7.21175825088309D+00/,p(4)/4.31622272220567D+01/, + + p(5)/1.52989285046940D+02/,p(6)/3.39320816734344D+02/, + + p(7)/4.51918953711873D+02/,p(8)/3.00459261020162D+02/ + DATA q(1)/1.00000000000000D+00/,q(2)/1.27827273196294D+01/, + + q(3)/7.70001529352295D+01/,q(4)/2.77585444743988D+02/, + + q(5)/6.38980264465631D+02/,q(6)/9.31354094850610D+02/, + + q(7)/7.90950925327898D+02/,q(8)/3.00459260956983D+02/ + DATA r(1)/2.10144126479064D+00/,r(2)/2.62370141675169D+01/, + + r(3)/2.13688200555087D+01/,r(4)/4.65807828718470D+00/, + + r(5)/2.82094791773523D-01/ + DATA s(1)/9.41537750555460D+01/,s(2)/1.87114811799590D+02/, + + s(3)/9.90191814623914D+01/,s(4)/1.80124575948747D+01/ +C .. +C .. Executable Statements .. +C------------------------- + ax = abs(x) + IF (ax.GT.0.5D0) GO TO 10 + t = x*x + top = ((((a(1)*t+a(2))*t+a(3))*t+a(4))*t+a(5)) + 1.0D0 + bot = ((b(1)*t+b(2))*t+b(3))*t + 1.0D0 + erf = x* (top/bot) + RETURN +C + 10 IF (ax.GT.4.0D0) GO TO 20 + top = ((((((p(1)*ax+p(2))*ax+p(3))*ax+p(4))*ax+p(5))*ax+p(6))*ax+ + + p(7))*ax + p(8) + bot = ((((((q(1)*ax+q(2))*ax+q(3))*ax+q(4))*ax+q(5))*ax+q(6))*ax+ + + q(7))*ax + q(8) + erf = 0.5D0 + (0.5D0-exp(-x*x)*top/bot) + IF (x.LT.0.0D0) erf = -erf + RETURN +C + 20 IF (ax.GE.5.8D0) GO TO 30 + x2 = x*x + t = 1.0D0/x2 + top = (((r(1)*t+r(2))*t+r(3))*t+r(4))*t + r(5) + bot = (((s(1)*t+s(2))*t+s(3))*t+s(4))*t + 1.0D0 + erf = (c-top/ (x2*bot))/ax + erf = 0.5D0 + (0.5D0-exp(-x2)*erf) + IF (x.LT.0.0D0) erf = -erf + RETURN +C + 30 erf = sign(1.0D0,x) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/erf.lo b/modules/statistics/src/dcdflib/erf.lo new file mode 100755 index 000000000..cf3262d0b --- /dev/null +++ b/modules/statistics/src/dcdflib/erf.lo @@ -0,0 +1,12 @@ +# src/dcdflib/erf.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/erf.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/erfc1.f b/modules/statistics/src/dcdflib/erfc1.f new file mode 100755 index 000000000..53d602306 --- /dev/null +++ b/modules/statistics/src/dcdflib/erfc1.f @@ -0,0 +1,111 @@ + DOUBLE PRECISION FUNCTION erfc1(ind,x) +C----------------------------------------------------------------------- +C EVALUATION OF THE COMPLEMENTARY ERROR FUNCTION +C +C ERFC1(IND,X) = ERFC(X) IF IND = 0 +C ERFC1(IND,X) = EXP(X*X)*ERFC(X) OTHERWISE +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION x + INTEGER ind +C .. +C .. Local Scalars .. + DOUBLE PRECISION ax,bot,c,e,t,top,w +C .. +C .. Local Arrays .. + DOUBLE PRECISION a(5),b(3),p(8),q(8),r(5),s(4) +C .. +C .. External Functions .. + DOUBLE PRECISION exparg + EXTERNAL exparg +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,dble,exp +C .. +C .. Data statements .. +C------------------------- +C------------------------- +C------------------------- +C------------------------- + DATA c/.564189583547756D0/ + DATA a(1)/.771058495001320D-04/,a(2)/-.133733772997339D-02/, + + a(3)/.323076579225834D-01/,a(4)/.479137145607681D-01/, + + a(5)/.128379167095513D+00/ + DATA b(1)/.301048631703895D-02/,b(2)/.538971687740286D-01/, + + b(3)/.375795757275549D+00/ + DATA p(1)/-1.36864857382717D-07/,p(2)/5.64195517478974D-01/, + + p(3)/7.21175825088309D+00/,p(4)/4.31622272220567D+01/, + + p(5)/1.52989285046940D+02/,p(6)/3.39320816734344D+02/, + + p(7)/4.51918953711873D+02/,p(8)/3.00459261020162D+02/ + DATA q(1)/1.00000000000000D+00/,q(2)/1.27827273196294D+01/, + + q(3)/7.70001529352295D+01/,q(4)/2.77585444743988D+02/, + + q(5)/6.38980264465631D+02/,q(6)/9.31354094850610D+02/, + + q(7)/7.90950925327898D+02/,q(8)/3.00459260956983D+02/ + DATA r(1)/2.10144126479064D+00/,r(2)/2.62370141675169D+01/, + + r(3)/2.13688200555087D+01/,r(4)/4.65807828718470D+00/, + + r(5)/2.82094791773523D-01/ + DATA s(1)/9.41537750555460D+01/,s(2)/1.87114811799590D+02/, + + s(3)/9.90191814623914D+01/,s(4)/1.80124575948747D+01/ +C .. +C .. Executable Statements .. +C------------------------- +C +C ABS(X) .LE. 0.5 +C + ax = abs(x) + IF (ax.GT.0.5D0) GO TO 10 + t = x*x + top = ((((a(1)*t+a(2))*t+a(3))*t+a(4))*t+a(5)) + 1.0D0 + bot = ((b(1)*t+b(2))*t+b(3))*t + 1.0D0 + erfc1 = 0.5D0 + (0.5D0-x* (top/bot)) + IF (ind.NE.0) erfc1 = exp(t)*erfc1 + RETURN +C +C 0.5 .LT. ABS(X) .LE. 4 +C + 10 IF (ax.GT.4.0D0) GO TO 20 + top = ((((((p(1)*ax+p(2))*ax+p(3))*ax+p(4))*ax+p(5))*ax+p(6))*ax+ + + p(7))*ax + p(8) + bot = ((((((q(1)*ax+q(2))*ax+q(3))*ax+q(4))*ax+q(5))*ax+q(6))*ax+ + + q(7))*ax + q(8) + erfc1 = top/bot + GO TO 40 +C +C ABS(X) .GT. 4 +C + 20 IF (x.LE.-5.6D0) GO TO 60 + IF (ind.NE.0) GO TO 30 + IF (x.GT.100.0D0) GO TO 70 + IF (x*x.GT.-exparg(1)) GO TO 70 +C + 30 t = (1.0D0/x)**2 + top = (((r(1)*t+r(2))*t+r(3))*t+r(4))*t + r(5) + bot = (((s(1)*t+s(2))*t+s(3))*t+s(4))*t + 1.0D0 + erfc1 = (c-t*top/bot)/ax +C +C FINAL ASSEMBLY +C + 40 IF (ind.EQ.0) GO TO 50 + IF (x.LT.0.0D0) erfc1 = 2.0D0*exp(x*x) - erfc1 + RETURN + + 50 w = dble(x)*dble(x) + t = w + e = w - dble(t) + erfc1 = ((0.5D0+ (0.5D0-e))*exp(-t))*erfc1 + IF (x.LT.0.0D0) erfc1 = 2.0D0 - erfc1 + RETURN +C +C LIMIT VALUE FOR LARGE NEGATIVE X +C + 60 erfc1 = 2.0D0 + IF (ind.NE.0) erfc1 = 2.0D0*exp(x*x) + RETURN +C +C LIMIT VALUE FOR LARGE POSITIVE X +C WHEN IND = 0 +C + 70 erfc1 = 0.0D0 + RETURN + + END diff --git a/modules/statistics/src/dcdflib/erfc1.lo b/modules/statistics/src/dcdflib/erfc1.lo new file mode 100755 index 000000000..9f3e63730 --- /dev/null +++ b/modules/statistics/src/dcdflib/erfc1.lo @@ -0,0 +1,12 @@ +# src/dcdflib/erfc1.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/erfc1.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/esum.f b/modules/statistics/src/dcdflib/esum.f new file mode 100755 index 000000000..b463a0b89 --- /dev/null +++ b/modules/statistics/src/dcdflib/esum.f @@ -0,0 +1,35 @@ + DOUBLE PRECISION FUNCTION esum(mu,x) +C----------------------------------------------------------------------- +C EVALUATION OF EXP(MU + X) +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION x + INTEGER mu +C .. +C .. Local Scalars .. + DOUBLE PRECISION w +C .. +C .. Intrinsic Functions .. + INTRINSIC exp +C .. +C .. Executable Statements .. + + IF (x.GT.0.0D0) GO TO 10 +C + IF (mu.LT.0) GO TO 20 + w = mu + x + IF (w.GT.0.0D0) GO TO 20 + esum = exp(w) + RETURN +C + 10 IF (mu.GT.0) GO TO 20 + w = mu + x + IF (w.LT.0.0D0) GO TO 20 + esum = exp(w) + RETURN +C + 20 w = mu + esum = exp(w)*exp(x) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/esum.lo b/modules/statistics/src/dcdflib/esum.lo new file mode 100755 index 000000000..99b62e6d7 --- /dev/null +++ b/modules/statistics/src/dcdflib/esum.lo @@ -0,0 +1,12 @@ +# src/dcdflib/esum.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/esum.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/exparg.f b/modules/statistics/src/dcdflib/exparg.f new file mode 100755 index 000000000..fa7a4cd10 --- /dev/null +++ b/modules/statistics/src/dcdflib/exparg.f @@ -0,0 +1,51 @@ + DOUBLE PRECISION FUNCTION exparg(l) +C-------------------------------------------------------------------- +C IF L = 0 THEN EXPARG(L) = THE LARGEST POSITIVE W FOR WHICH +C EXP(W) CAN BE COMPUTED. +C +C IF L IS NONZERO THEN EXPARG(L) = THE LARGEST NEGATIVE W FOR +C WHICH THE COMPUTED VALUE OF EXP(W) IS NONZERO. +C +C NOTE... ONLY AN APPROXIMATE VALUE FOR EXPARG(L) IS NEEDED. +C-------------------------------------------------------------------- +C .. Scalar Arguments .. + INTEGER l +C .. +C .. Local Scalars .. + DOUBLE PRECISION lnb + INTEGER b,m +C .. +C .. External Functions .. + INTEGER ipmpar + EXTERNAL ipmpar +C .. +C .. Intrinsic Functions .. + INTRINSIC dble,dlog +C .. +C .. Executable Statements .. +C + b = ipmpar(4) + IF (b.NE.2) GO TO 10 + lnb = .69314718055995D0 + GO TO 40 + + 10 IF (b.NE.8) GO TO 20 + lnb = 2.0794415416798D0 + GO TO 40 + + 20 IF (b.NE.16) GO TO 30 + lnb = 2.7725887222398D0 + GO TO 40 + + 30 lnb = dlog(dble(b)) +C + 40 IF (l.EQ.0) GO TO 50 + m = ipmpar(9) - 1 + exparg = 0.99999D0* (m*lnb) + RETURN + + 50 m = ipmpar(10) + exparg = 0.99999D0* (m*lnb) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/exparg.lo b/modules/statistics/src/dcdflib/exparg.lo new file mode 100755 index 000000000..3bd11dc4d --- /dev/null +++ b/modules/statistics/src/dcdflib/exparg.lo @@ -0,0 +1,12 @@ +# src/dcdflib/exparg.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/exparg.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/fpser.f b/modules/statistics/src/dcdflib/fpser.f new file mode 100755 index 000000000..ddbabb1a3 --- /dev/null +++ b/modules/statistics/src/dcdflib/fpser.f @@ -0,0 +1,51 @@ + DOUBLE PRECISION FUNCTION fpser(a,b,x,eps) +C----------------------------------------------------------------------- +C +C EVALUATION OF I (A,B) +C X +C +C FOR B .LT. MIN(EPS,EPS*A) AND X .LE. 0.5. +C +C----------------------------------------------------------------------- +C +C SET FPSER = X**A +C +C .. Scalar Arguments .. + DOUBLE PRECISION a,b,eps,x +C .. +C .. Local Scalars .. + DOUBLE PRECISION an,c,s,t,tol +C .. +C .. External Functions .. + DOUBLE PRECISION exparg + EXTERNAL exparg +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,dlog,exp +C .. +C .. Executable Statements .. + + fpser = 1.0D0 + IF (a.LE.1.D-3*eps) GO TO 10 + fpser = 0.0D0 + t = a*dlog(x) + IF (t.LT.exparg(1)) RETURN + fpser = exp(t) +C +C NOTE THAT 1/B(A,B) = B +C + 10 fpser = (b/a)*fpser + tol = eps/a + an = a + 1.0D0 + t = x + s = t/an + 20 an = an + 1.0D0 + t = x*t + c = t/an + s = s + c + IF (abs(c).GT.tol) GO TO 20 +C + fpser = fpser* (1.0D0+a*s) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/fpser.lo b/modules/statistics/src/dcdflib/fpser.lo new file mode 100755 index 000000000..679e1bf25 --- /dev/null +++ b/modules/statistics/src/dcdflib/fpser.lo @@ -0,0 +1,12 @@ +# src/dcdflib/fpser.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/fpser.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/gam1.f b/modules/statistics/src/dcdflib/gam1.f new file mode 100755 index 000000000..e6c8ff9b4 --- /dev/null +++ b/modules/statistics/src/dcdflib/gam1.f @@ -0,0 +1,70 @@ + DOUBLE PRECISION FUNCTION gam1(a) +C ------------------------------------------------------------------ +C COMPUTATION OF 1/GAMMA(A+1) - 1 FOR -0.5 .LE. A .LE. 1.5 +C ------------------------------------------------------------------ +C .. Scalar Arguments .. + DOUBLE PRECISION a +C .. +C .. Local Scalars .. + DOUBLE PRECISION bot,d,s1,s2,t,top,w +C .. +C .. Local Arrays .. + DOUBLE PRECISION p(7),q(5),r(9) +C .. +C .. Data statements .. +C ------------------- +C ------------------- +C ------------------- +C ------------------- + DATA p(1)/.577215664901533D+00/,p(2)/-.409078193005776D+00/, + + p(3)/-.230975380857675D+00/,p(4)/.597275330452234D-01/, + + p(5)/.766968181649490D-02/,p(6)/-.514889771323592D-02/, + + p(7)/.589597428611429D-03/ + DATA q(1)/.100000000000000D+01/,q(2)/.427569613095214D+00/, + + q(3)/.158451672430138D+00/,q(4)/.261132021441447D-01/, + + q(5)/.423244297896961D-02/ + DATA r(1)/-.422784335098468D+00/,r(2)/-.771330383816272D+00/, + + r(3)/-.244757765222226D+00/,r(4)/.118378989872749D+00/, + + r(5)/.930357293360349D-03/,r(6)/-.118290993445146D-01/, + + r(7)/.223047661158249D-02/,r(8)/.266505979058923D-03/, + + r(9)/-.132674909766242D-03/ + DATA s1/.273076135303957D+00/,s2/.559398236957378D-01/ +C .. +C .. Executable Statements .. +C ------------------- + t = a + d = a - 0.5D0 + IF (d.GT.0.0D0) t = d - 0.5D0 + if (t .lt. 0) then + goto 40 + elseif (t .eq. 0) then + goto 10 + else + goto 20 + endif +C + 10 gam1 = 0.0D0 + RETURN +C + 20 top = (((((p(7)*t+p(6))*t+p(5))*t+p(4))*t+p(3))*t+p(2))*t + p(1) + bot = (((q(5)*t+q(4))*t+q(3))*t+q(2))*t + 1.0D0 + w = top/bot + IF (d.GT.0.0D0) GO TO 30 + gam1 = a*w + RETURN + + 30 gam1 = (t/a)* ((w-0.5D0)-0.5D0) + RETURN +C + 40 top = (((((((r(9)*t+r(8))*t+r(7))*t+r(6))*t+r(5))*t+r(4))*t+r(3))* + + t+r(2))*t + r(1) + bot = (s2*t+s1)*t + 1.0D0 + w = top/bot + IF (d.GT.0.0D0) GO TO 50 + gam1 = a* ((w+0.5D0)+0.5D0) + RETURN + + 50 gam1 = t*w/a + RETURN + + END diff --git a/modules/statistics/src/dcdflib/gam1.lo b/modules/statistics/src/dcdflib/gam1.lo new file mode 100755 index 000000000..f8b53f67e --- /dev/null +++ b/modules/statistics/src/dcdflib/gam1.lo @@ -0,0 +1,12 @@ +# src/dcdflib/gam1.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/gam1.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/gaminv.f b/modules/statistics/src/dcdflib/gaminv.f new file mode 100755 index 000000000..9f57477a9 --- /dev/null +++ b/modules/statistics/src/dcdflib/gaminv.f @@ -0,0 +1,355 @@ + SUBROUTINE gaminv(a,x,x0,p,q,ierr) +C ---------------------------------------------------------------------- +C INVERSE INCOMPLETE GAMMA RATIO FUNCTION +C +C GIVEN POSITIVE A, AND NONEGATIVE P AND Q WHERE P + Q = 1. +C THEN X IS COMPUTED WHERE P(A,X) = P AND Q(A,X) = Q. SCHRODER +C ITERATION IS EMPLOYED. THE ROUTINE ATTEMPTS TO COMPUTE X +C TO 10 SIGNIFICANT DIGITS IF THIS IS POSSIBLE FOR THE +C PARTICULAR COMPUTER ARITHMETIC BEING USED. +C +C ------------ +C +C X IS A VARIABLE. IF P = 0 THEN X IS ASSIGNED THE VALUE 0, +C AND IF Q = 0 THEN X IS SET TO THE LARGEST FLOATING POINT +C NUMBER AVAILABLE. OTHERWISE, GAMINV ATTEMPTS TO OBTAIN +C A SOLUTION FOR P(A,X) = P AND Q(A,X) = Q. IF THE ROUTINE +C IS SUCCESSFUL THEN THE SOLUTION IS STORED IN X. +C +C X0 IS AN OPTIONAL INITIAL APPROXIMATION FOR X. IF THE USER +C DOES NOT WISH TO SUPPLY AN INITIAL APPROXIMATION, THEN SET +C X0 .LE. 0. +C +C IERR IS A VARIABLE THAT REPORTS THE STATUS OF THE RESULTS. +C WHEN THE ROUTINE TERMINATES, IERR HAS ONE OF THE FOLLOWING +C VALUES ... +C +C IERR = 0 THE SOLUTION WAS OBTAINED. ITERATION WAS +C NOT USED. +C IERR.GT.0 THE SOLUTION WAS OBTAINED. IERR ITERATIONS +C WERE PERFORMED. +C IERR = -2 (INPUT ERROR) A .LE. 0 +C IERR = -3 NO SOLUTION WAS OBTAINED. THE RATIO Q/A +C IS TOO LARGE. +C IERR = -4 (INPUT ERROR) P + Q .NE. 1 +C IERR = -6 20 ITERATIONS WERE PERFORMED. THE MOST +C RECENT VALUE OBTAINED FOR X IS GIVEN. +C THIS CANNOT OCCUR IF X0 .LE. 0. +C IERR = -7 ITERATION FAILED. NO VALUE IS GIVEN FOR X. +C THIS MAY OCCUR WHEN X IS APPROXIMATELY 0. +C IERR = -8 A VALUE FOR X HAS BEEN OBTAINED, BUT THE +C ROUTINE IS NOT CERTAIN OF ITS ACCURACY. +C ITERATION CANNOT BE PERFORMED IN THIS +C CASE. IF X0 .LE. 0, THIS CAN OCCUR ONLY +C WHEN P OR Q IS APPROXIMATELY 0. IF X0 IS +C POSITIVE THEN THIS CAN OCCUR WHEN A IS +C EXCEEDINGLY CLOSE TO X AND A IS EXTREMELY +C LARGE (SAY A .GE. 1.E20). +C ---------------------------------------------------------------------- +C WRITTEN BY ALFRED H. MORRIS, JR. +C NAVAL SURFACE WEAPONS CENTER +C DAHLGREN, VIRGINIA +C ------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION a,p,q,x,x0 + INTEGER ierr +C .. +C .. Local Scalars .. + DOUBLE PRECISION a0,a1,a2,a3,am1,amax,ap1,ap2,ap3,apn,b,b1,b2,b3, + + b4,c,c1,c2,c3,c4,c5,d,e,e2,eps,g,h,ln10,pn,qg,qn, + + r,rta,s,s2,sum,t,tol,u,w,xmax,xmin,xn,y,z + INTEGER iop +C .. +C .. Local Arrays .. + DOUBLE PRECISION amin(2),bmin(2),dmin(2),emin(2),eps0(2) +C .. +C .. External Functions .. + DOUBLE PRECISION alnrel,gamln,gamln1,gamma,rcomp,spmpar + EXTERNAL alnrel,gamln,gamln1,gamma,rcomp,spmpar +C .. +C .. External Subroutines .. + EXTERNAL gratio +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,dble,dlog,dmax1,exp,sqrt +C .. +C .. Data statements .. +C ------------------- +C LN10 = LN(10) +C C = EULER CONSTANT +C ------------------- +C ------------------- +C ------------------- +C ------------------- + DATA ln10/2.302585D0/ + DATA c/.577215664901533D0/ + DATA a0/3.31125922108741D0/,a1/11.6616720288968D0/, + + a2/4.28342155967104D0/,a3/.213623493715853D0/ + DATA b1/6.61053765625462D0/,b2/6.40691597760039D0/, + + b3/1.27364489782223D0/,b4/.036117081018842D0/ + DATA eps0(1)/1.D-10/,eps0(2)/1.D-08/ + DATA amin(1)/500.0D0/,amin(2)/100.0D0/ + DATA bmin(1)/1.D-28/,bmin(2)/1.D-13/ + DATA dmin(1)/1.D-06/,dmin(2)/1.D-04/ + DATA emin(1)/2.D-03/,emin(2)/6.D-03/ + DATA tol/1.D-5/ +C .. +C .. Executable Statements .. +C ------------------- +C ****** E, XMIN, AND XMAX ARE MACHINE DEPENDENT CONSTANTS. +C E IS THE SMALLEST NUMBER FOR WHICH 1.0 + E .GT. 1.0. +C XMIN IS THE SMALLEST POSITIVE NUMBER AND XMAX IS THE +C LARGEST POSITIVE NUMBER. +C + e = spmpar(1) + xmin = spmpar(2) + xmax = spmpar(3) +C ------------------- + x = 0.0D0 + IF (a.LE.0.0D0) GO TO 300 + t = dble(p) + dble(q) - 1.D0 + IF (abs(t).GT.e) GO TO 320 +C + ierr = 0 + IF (p.EQ.0.0D0) RETURN + IF (q.EQ.0.0D0) GO TO 270 + IF (a.EQ.1.0D0) GO TO 280 +C + e2 = 2.0D0*e + amax = 0.4D-10/ (e*e) + iop = 1 + IF (e.GT.1.D-10) iop = 2 + eps = eps0(iop) + xn = x0 + IF (x0.GT.0.0D0) GO TO 160 +C +C SELECTION OF THE INITIAL APPROXIMATION XN OF X +C WHEN A .LT. 1 +C + IF (a.GT.1.0D0) GO TO 80 + g = gamma(a+1.0D0) + qg = q*g + IF (qg.EQ.0.0D0) GO TO 360 + b = qg/a + IF (qg.GT.0.6D0*a) GO TO 40 + IF (a.GE.0.30D0 .OR. b.LT.0.35D0) GO TO 10 + t = exp(- (b+c)) + u = t*exp(t) + xn = t*exp(u) + GO TO 160 +C + 10 IF (b.GE.0.45D0) GO TO 40 + IF (b.EQ.0.0D0) GO TO 360 + y = -dlog(b) + s = 0.5D0 + (0.5D0-a) + z = dlog(y) + t = y - s*z + IF (b.LT.0.15D0) GO TO 20 + xn = y - s*dlog(t) - dlog(1.0D0+s/ (t+1.0D0)) + GO TO 220 + + 20 IF (b.LE.0.01D0) GO TO 30 + u = ((t+2.0D0* (3.0D0-a))*t+ (2.0D0-a)* (3.0D0-a))/ + + ((t+ (5.0D0-a))*t+2.0D0) + xn = y - s*dlog(t) - dlog(u) + GO TO 220 + + 30 c1 = -s*z + c2 = -s* (1.0D0+c1) + c3 = s* ((0.5D0*c1+ (2.0D0-a))*c1+ (2.5D0-1.5D0*a)) + c4 = -s* (((c1/3.0D0+ (2.5D0-1.5D0*a))*c1+ ((a-6.0D0)*a+7.0D0))* + + c1+ ((11.0D0*a-46)*a+47.0D0)/6.0D0) + c5 = -s* ((((-c1/4.0D0+ (11.0D0*a-17.0D0)/6.0D0)*c1+ ((-3.0D0*a+ + + 13.0D0)*a-13.0D0))*c1+0.5D0* (((2.0D0*a-25.0D0)*a+72.0D0)*a- + + 61.0D0))*c1+ (((25.0D0*a-195.0D0)*a+477.0D0)*a-379.0D0)/ + + 12.0D0) + xn = ((((c5/y+c4)/y+c3)/y+c2)/y+c1) + y + IF (a.GT.1.0D0) GO TO 220 + IF (b.GT.bmin(iop)) GO TO 220 + x = xn + RETURN +C + 40 IF (b*q.GT.1.D-8) GO TO 50 + xn = exp(- (q/a+c)) + GO TO 70 + + 50 IF (p.LE.0.9D0) GO TO 60 + xn = exp((alnrel(-q)+gamln1(a))/a) + GO TO 70 + + 60 xn = exp(dlog(p*g)/a) + 70 IF (xn.EQ.0.0D0) GO TO 310 + t = 0.5D0 + (0.5D0-xn/ (a+1.0D0)) + xn = xn/t + GO TO 160 +C +C SELECTION OF THE INITIAL APPROXIMATION XN OF X +C WHEN A .GT. 1 +C + 80 IF (q.LE.0.5D0) GO TO 90 + w = dlog(p) + GO TO 100 + + 90 w = dlog(q) + 100 t = sqrt(-2.0D0*w) + s = t - (((a3*t+a2)*t+a1)*t+a0)/ ((((b4*t+b3)*t+b2)*t+b1)*t+1.0D0) + IF (q.GT.0.5D0) s = -s +C + rta = sqrt(a) + s2 = s*s + xn = a + s*rta + (s2-1.0D0)/3.0D0 + s* (s2-7.0D0)/ (36.0D0*rta) - + + ((3.0D0*s2+7.0D0)*s2-16.0D0)/ (810.0D0*a) + + + s* ((9.0D0*s2+256.0D0)*s2-433.0D0)/ (38880.0D0*a*rta) + xn = dmax1(xn,0.0D0) + IF (a.LT.amin(iop)) GO TO 110 + x = xn + d = 0.5D0 + (0.5D0-x/a) + IF (abs(d).LE.dmin(iop)) RETURN +C + 110 IF (p.LE.0.5D0) GO TO 130 + IF (xn.LT.3.0D0*a) GO TO 220 + y = - (w+gamln(a)) + d = dmax1(2.0D0,a* (a-1.0D0)) + IF (y.LT.ln10*d) GO TO 120 + s = 1.0D0 - a + z = dlog(y) + GO TO 30 + + 120 t = a - 1.0D0 + xn = y + t*dlog(xn) - alnrel(-t/ (xn+1.0D0)) + xn = y + t*dlog(xn) - alnrel(-t/ (xn+1.0D0)) + GO TO 220 +C + 130 ap1 = a + 1.0D0 + IF (xn.GT.0.70D0*ap1) GO TO 170 + w = w + gamln(ap1) + IF (xn.GT.0.15D0*ap1) GO TO 140 + ap2 = a + 2.0D0 + ap3 = a + 3.0D0 + x = exp((w+x)/a) + x = exp((w+x-dlog(1.0D0+ (x/ap1)* (1.0D0+x/ap2)))/a) + x = exp((w+x-dlog(1.0D0+ (x/ap1)* (1.0D0+x/ap2)))/a) + x = exp((w+x-dlog(1.0D0+ (x/ap1)* (1.0D0+ (x/ap2)* (1.0D0+ + + x/ap3))))/a) + xn = x + IF (xn.GT.1.D-2*ap1) GO TO 140 + IF (xn.LE.emin(iop)*ap1) RETURN + GO TO 170 +C + 140 apn = ap1 + t = xn/apn + sum = 1.0D0 + t + 150 apn = apn + 1.0D0 + t = t* (xn/apn) + sum = sum + t + IF (t.GT.1.D-4) GO TO 150 + t = w - dlog(sum) + xn = exp((xn+t)/a) + xn = xn* (1.0D0- (a*dlog(xn)-xn-t)/ (a-xn)) + GO TO 170 +C +C SCHRODER ITERATION USING P +C + 160 IF (p.GT.0.5D0) GO TO 220 + 170 IF (p.LE.1.D10*xmin) GO TO 350 + am1 = (a-0.5D0) - 0.5D0 + 180 IF (a.LE.amax) GO TO 190 + d = 0.5D0 + (0.5D0-xn/a) + IF (abs(d).LE.e2) GO TO 350 +C + 190 IF (ierr.GE.20) GO TO 330 + ierr = ierr + 1 + CALL gratio(a,xn,pn,qn,0) + IF (pn.EQ.0.0D0 .OR. qn.EQ.0.0D0) GO TO 350 + r = rcomp(a,xn) + IF (r.EQ.0.0D0) GO TO 350 + t = (pn-p)/r + w = 0.5D0* (am1-xn) + IF (abs(t).LE.0.1D0 .AND. abs(w*t).LE.0.1D0) GO TO 200 + x = xn* (1.0D0-t) + IF (x.LE.0.0D0) GO TO 340 + d = abs(t) + GO TO 210 +C + 200 h = t* (1.0D0+w*t) + x = xn* (1.0D0-h) + IF (x.LE.0.0D0) GO TO 340 + IF (abs(w).GE.1.0D0 .AND. abs(w)*t*t.LE.eps) RETURN + d = abs(h) + 210 xn = x + IF (d.GT.tol) GO TO 180 + IF (d.LE.eps) RETURN + IF (abs(p-pn).LE.tol*p) RETURN + GO TO 180 +C +C SCHRODER ITERATION USING Q +C + 220 IF (q.LE.1.D10*xmin) GO TO 350 + am1 = (a-0.5D0) - 0.5D0 + 230 IF (a.LE.amax) GO TO 240 + d = 0.5D0 + (0.5D0-xn/a) + IF (abs(d).LE.e2) GO TO 350 +C + 240 IF (ierr.GE.20) GO TO 330 + ierr = ierr + 1 + CALL gratio(a,xn,pn,qn,0) + IF (pn.EQ.0.0D0 .OR. qn.EQ.0.0D0) GO TO 350 + r = rcomp(a,xn) + IF (r.EQ.0.0D0) GO TO 350 + t = (q-qn)/r + w = 0.5D0* (am1-xn) + IF (abs(t).LE.0.1D0 .AND. abs(w*t).LE.0.1D0) GO TO 250 + x = xn* (1.0D0-t) + IF (x.LE.0.0D0) GO TO 340 + d = abs(t) + GO TO 260 +C + 250 h = t* (1.0D0+w*t) + x = xn* (1.0D0-h) + IF (x.LE.0.0D0) GO TO 340 + IF (abs(w).GE.1.0D0 .AND. abs(w)*t*t.LE.eps) RETURN + d = abs(h) + 260 xn = x + IF (d.GT.tol) GO TO 230 + IF (d.LE.eps) RETURN + IF (abs(q-qn).LE.tol*q) RETURN + GO TO 230 +C +C SPECIAL CASES +C + 270 x = xmax + RETURN +C + 280 IF (q.LT.0.9D0) GO TO 290 + x = -alnrel(-p) + RETURN + + 290 x = -dlog(q) + RETURN +C +C ERROR RETURN +C + 300 ierr = -2 + RETURN +C + 310 ierr = -3 + RETURN +C + 320 ierr = -4 + RETURN +C + 330 ierr = -6 + RETURN +C + 340 ierr = -7 + RETURN +C + 350 x = xn + ierr = -8 + RETURN +C + 360 x = xmax + ierr = -8 + RETURN + + END diff --git a/modules/statistics/src/dcdflib/gaminv.lo b/modules/statistics/src/dcdflib/gaminv.lo new file mode 100755 index 000000000..c0b438897 --- /dev/null +++ b/modules/statistics/src/dcdflib/gaminv.lo @@ -0,0 +1,12 @@ +# src/dcdflib/gaminv.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/gaminv.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/gamln.f b/modules/statistics/src/dcdflib/gamln.f new file mode 100755 index 000000000..7d8c889d5 --- /dev/null +++ b/modules/statistics/src/dcdflib/gamln.f @@ -0,0 +1,57 @@ + DOUBLE PRECISION FUNCTION gamln(a) +C----------------------------------------------------------------------- +C EVALUATION OF LN(GAMMA(A)) FOR POSITIVE A +C----------------------------------------------------------------------- +C WRITTEN BY ALFRED H. MORRIS +C NAVAL SURFACE WARFARE CENTER +C DAHLGREN, VIRGINIA +C-------------------------- +C D = 0.5*(LN(2*PI) - 1) +C-------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION a +C .. +C .. Local Scalars .. + DOUBLE PRECISION c0,c1,c2,c3,c4,c5,d,t,w + INTEGER i,n +C .. +C .. External Functions .. + DOUBLE PRECISION gamln1 + EXTERNAL gamln1 +C .. +C .. Intrinsic Functions .. + INTRINSIC dlog +C .. +C .. Data statements .. +C-------------------------- + DATA d/.418938533204673D0/ + DATA c0/.833333333333333D-01/,c1/-.277777777760991D-02/, + + c2/.793650666825390D-03/,c3/-.595202931351870D-03/, + + c4/.837308034031215D-03/,c5/-.165322962780713D-02/ +C .. +C .. Executable Statements .. +C----------------------------------------------------------------------- + IF (a.GT.0.8D0) GO TO 10 + gamln = gamln1(a) - dlog(a) + RETURN + + 10 IF (a.GT.2.25D0) GO TO 20 + t = (a-0.5D0) - 0.5D0 + gamln = gamln1(t) + RETURN +C + 20 IF (a.GE.10.0D0) GO TO 40 + n = a - 1.25D0 + t = a + w = 1.0D0 + DO 30 i = 1,n + t = t - 1.0D0 + w = t*w + 30 CONTINUE + gamln = gamln1(t-1.0D0) + dlog(w) + RETURN +C + 40 t = (1.0D0/a)**2 + w = (((((c5*t+c4)*t+c3)*t+c2)*t+c1)*t+c0)/a + gamln = (d+w) + (a-0.5D0)* (dlog(a)-1.0D0) + END diff --git a/modules/statistics/src/dcdflib/gamln.lo b/modules/statistics/src/dcdflib/gamln.lo new file mode 100755 index 000000000..0bdda87fd --- /dev/null +++ b/modules/statistics/src/dcdflib/gamln.lo @@ -0,0 +1,12 @@ +# src/dcdflib/gamln.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/gamln.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/gamln1.f b/modules/statistics/src/dcdflib/gamln1.f new file mode 100755 index 000000000..4bf55bf96 --- /dev/null +++ b/modules/statistics/src/dcdflib/gamln1.f @@ -0,0 +1,42 @@ + DOUBLE PRECISION FUNCTION gamln1(a) +C----------------------------------------------------------------------- +C EVALUATION OF LN(GAMMA(1 + A)) FOR -0.2 .LE. A .LE. 1.25 +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION a +C .. +C .. Local Scalars .. + DOUBLE PRECISION p0,p1,p2,p3,p4,p5,p6,q1,q2,q3,q4,q5,q6,r0,r1,r2, + + r3,r4,r5,s1,s2,s3,s4,s5,w,x +C .. +C .. Data statements .. +C---------------------- + DATA p0/.577215664901533D+00/,p1/.844203922187225D+00/, + + p2/-.168860593646662D+00/,p3/-.780427615533591D+00/, + + p4/-.402055799310489D+00/,p5/-.673562214325671D-01/, + + p6/-.271935708322958D-02/ + DATA q1/.288743195473681D+01/,q2/.312755088914843D+01/, + + q3/.156875193295039D+01/,q4/.361951990101499D+00/, + + q5/.325038868253937D-01/,q6/.667465618796164D-03/ + DATA r0/.422784335098467D+00/,r1/.848044614534529D+00/, + + r2/.565221050691933D+00/,r3/.156513060486551D+00/, + + r4/.170502484022650D-01/,r5/.497958207639485D-03/ + DATA s1/.124313399877507D+01/,s2/.548042109832463D+00/, + + s3/.101552187439830D+00/,s4/.713309612391000D-02/, + + s5/.116165475989616D-03/ +C .. +C .. Executable Statements .. +C---------------------- + IF (a.GE.0.6D0) GO TO 10 + w = ((((((p6*a+p5)*a+p4)*a+p3)*a+p2)*a+p1)*a+p0)/ + + ((((((q6*a+q5)*a+q4)*a+q3)*a+q2)*a+q1)*a+1.0D0) + gamln1 = -a*w + RETURN +C + 10 x = (a-0.5D0) - 0.5D0 + w = (((((r5*x+r4)*x+r3)*x+r2)*x+r1)*x+r0)/ + + (((((s5*x+s4)*x+s3)*x+s2)*x+s1)*x+1.0D0) + gamln1 = x*w + RETURN + + END diff --git a/modules/statistics/src/dcdflib/gamln1.lo b/modules/statistics/src/dcdflib/gamln1.lo new file mode 100755 index 000000000..c34f9ee50 --- /dev/null +++ b/modules/statistics/src/dcdflib/gamln1.lo @@ -0,0 +1,12 @@ +# src/dcdflib/gamln1.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/gamln1.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/gamma.f b/modules/statistics/src/dcdflib/gamma.f new file mode 100755 index 000000000..65c254720 --- /dev/null +++ b/modules/statistics/src/dcdflib/gamma.f @@ -0,0 +1,156 @@ + DOUBLE PRECISION FUNCTION gamma(a) +C----------------------------------------------------------------------- +C +C EVALUATION OF THE GAMMA FUNCTION FOR REAL ARGUMENTS +C +C ----------- +C +C GAMMA(A) IS ASSIGNED THE VALUE 0 WHEN THE GAMMA FUNCTION CANNOT +C BE COMPUTED. +C +C----------------------------------------------------------------------- +C WRITTEN BY ALFRED H. MORRIS, JR. +C NAVAL SURFACE WEAPONS CENTER +C DAHLGREN, VIRGINIA +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION a +C .. +C .. Local Scalars .. + DOUBLE PRECISION bot,d,g,lnx,pi,r1,r2,r3,r4,r5,s,t,top,w,x,z + INTEGER i,j,m,n +C .. +C .. Local Arrays .. + DOUBLE PRECISION p(7),q(7) +C .. +C .. External Functions .. + DOUBLE PRECISION exparg,spmpar + EXTERNAL exparg,spmpar +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,dble,dlog,exp,int,mod,sin +C .. +C .. Data statements .. +C-------------------------- +C D = 0.5*(LN(2*PI) - 1) +C-------------------------- +C-------------------------- +C-------------------------- + DATA pi/3.1415926535898D0/ + DATA d/.41893853320467274178D0/ + DATA p(1)/.539637273585445D-03/,p(2)/.261939260042690D-02/, + + p(3)/.204493667594920D-01/,p(4)/.730981088720487D-01/, + + p(5)/.279648642639792D+00/,p(6)/.553413866010467D+00/, + + p(7)/1.0D0/ + DATA q(1)/-.832979206704073D-03/,q(2)/.470059485860584D-02/, + + q(3)/.225211131035340D-01/,q(4)/-.170458969313360D+00/, + + q(5)/-.567902761974940D-01/,q(6)/.113062953091122D+01/, + + q(7)/1.0D0/ + DATA r1/.820756370353826D-03/,r2/-.595156336428591D-03/, + + r3/.793650663183693D-03/,r4/-.277777777770481D-02/, + + r5/.833333333333333D-01/ +C .. +C .. Executable Statements .. +C-------------------------- + gamma = 0.0D0 + x = a + IF (abs(a).GE.15.0D0) GO TO 110 +C----------------------------------------------------------------------- +C EVALUATION OF GAMMA(A) FOR ABS(A) .LT. 15 +C----------------------------------------------------------------------- + t = 1.0D0 + m = int(a) - 1 +C +C LET T BE THE PRODUCT OF A-J WHEN A .GE. 2 +C + if (m .lt. 0) then + goto 40 + elseif (m .eq. 0) then + goto 30 + else + goto 10 + endif + 10 DO 20 j = 1,m + x = x - 1.0D0 + t = x*t + 20 CONTINUE + 30 x = x - 1.0D0 + GO TO 80 +C +C LET T BE THE PRODUCT OF A+J WHEN A .LT. 1 +C + 40 t = a + IF (a.GT.0.0D0) GO TO 70 + m = -m - 1 + IF (m.EQ.0) GO TO 60 + DO 50 j = 1,m + x = x + 1.0D0 + t = x*t + 50 CONTINUE + 60 x = (x+0.5D0) + 0.5D0 + t = x*t + IF (t.EQ.0.0D0) RETURN +C + 70 CONTINUE +C +C THE FOLLOWING CODE CHECKS IF 1/T CAN OVERFLOW. THIS +C CODE MAY BE OMITTED IF DESIRED. +C + IF (abs(t).GE.1.D-30) GO TO 80 + IF (abs(t)*spmpar(3).LE.1.0001D0) RETURN + gamma = 1.0D0/t + RETURN +C +C COMPUTE GAMMA(1 + X) FOR 0 .LE. X .LT. 1 +C + 80 top = p(1) + bot = q(1) + DO 90 i = 2,7 + top = p(i) + x*top + bot = q(i) + x*bot + 90 CONTINUE + gamma = top/bot +C +C TERMINATION +C + IF (a.LT.1.0D0) GO TO 100 + gamma = gamma*t + RETURN + + 100 gamma = gamma/t + RETURN +C----------------------------------------------------------------------- +C EVALUATION OF GAMMA(A) FOR ABS(A) .GE. 15 +C----------------------------------------------------------------------- + 110 IF (abs(a).GE.1.D3) RETURN + IF (a.GT.0.0D0) GO TO 120 + x = -a + n = x + t = x - n + IF (t.GT.0.9D0) t = 1.0D0 - t + s = sin(pi*t)/pi + IF (mod(n,2).EQ.0) s = -s + IF (s.EQ.0.0D0) RETURN +C +C COMPUTE THE MODIFIED ASYMPTOTIC SUM +C + 120 t = 1.0D0/ (x*x) + g = ((((r1*t+r2)*t+r3)*t+r4)*t+r5)/x +C +C ONE MAY REPLACE THE NEXT STATEMENT WITH LNX = ALOG(X) +C BUT LESS ACCURACY WILL NORMALLY BE OBTAINED. +C + lnx = dlog(x) +C +C FINAL ASSEMBLY +C + z = x + g = (d+g) + (z-0.5D0)* (lnx-1.D0) + w = g + t = g - dble(w) + IF (w.GT.0.99999D0*exparg(0)) RETURN + gamma = exp(w)* (1.0D0+t) + IF (a.LT.0.0D0) gamma = (1.0D0/ (gamma*s))/x + RETURN + + END diff --git a/modules/statistics/src/dcdflib/gamma.lo b/modules/statistics/src/dcdflib/gamma.lo new file mode 100755 index 000000000..3040a0020 --- /dev/null +++ b/modules/statistics/src/dcdflib/gamma.lo @@ -0,0 +1,12 @@ +# src/dcdflib/gamma.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/gamma.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/grat1.f b/modules/statistics/src/dcdflib/grat1.f new file mode 100755 index 000000000..7968af16f --- /dev/null +++ b/modules/statistics/src/dcdflib/grat1.f @@ -0,0 +1,105 @@ + SUBROUTINE grat1(a,x,r,p,q,eps) +C .. Scalar Arguments .. + DOUBLE PRECISION a,eps,p,q,r,x +C .. +C .. Local Scalars .. + DOUBLE PRECISION a2n,a2nm1,am0,an,an0,b2n,b2nm1,c,cma,g,h,j,l,sum, + + t,tol,w,z +C .. +C .. External Functions .. + DOUBLE PRECISION erf,erfc1,gam1,rexp + EXTERNAL erf,erfc1,gam1,rexp +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,dlog,exp,sqrt +C .. +C .. Executable Statements .. +C----------------------------------------------------------------------- +C EVALUATION OF THE INCOMPLETE GAMMA RATIO FUNCTIONS +C P(A,X) AND Q(A,X) +C +C IT IS ASSUMED THAT A .LE. 1. EPS IS THE TOLERANCE TO BE USED. +C THE INPUT ARGUMENT R HAS THE VALUE E**(-X)*X**A/GAMMA(A). +C----------------------------------------------------------------------- + IF (a*x.EQ.0.0D0) GO TO 120 + IF (a.EQ.0.5D0) GO TO 100 + IF (x.LT.1.1D0) GO TO 10 + GO TO 60 +C +C TAYLOR SERIES FOR P(A,X)/X**A +C + 10 an = 3.0D0 + c = x + sum = x/ (a+3.0D0) + tol = 0.1D0*eps/ (a+1.0D0) + 20 an = an + 1.0D0 + c = -c* (x/an) + t = c/ (a+an) + sum = sum + t + IF (abs(t).GT.tol) GO TO 20 + j = a*x* ((sum/6.0D0-0.5D0/ (a+2.0D0))*x+1.0D0/ (a+1.0D0)) +C + z = a*dlog(x) + h = gam1(a) + g = 1.0D0 + h + IF (x.LT.0.25D0) GO TO 30 + IF (a.LT.x/2.59D0) GO TO 50 + GO TO 40 + + 30 IF (z.GT.-.13394D0) GO TO 50 +C + 40 w = exp(z) + p = w*g* (0.5D0+ (0.5D0-j)) + q = 0.5D0 + (0.5D0-p) + RETURN +C + 50 l = rexp(z) + w = 0.5D0 + (0.5D0+l) + q = (w*j-l)*g - h + IF (q.LT.0.0D0) GO TO 90 + p = 0.5D0 + (0.5D0-q) + RETURN +C +C CONTINUED FRACTION EXPANSION +C + 60 a2nm1 = 1.0D0 + a2n = 1.0D0 + b2nm1 = x + b2n = x + (1.0D0-a) + c = 1.0D0 + 70 a2nm1 = x*a2n + c*a2nm1 + b2nm1 = x*b2n + c*b2nm1 + am0 = a2nm1/b2nm1 + c = c + 1.0D0 + cma = c - a + a2n = a2nm1 + cma*a2n + b2n = b2nm1 + cma*b2n + an0 = a2n/b2n + IF (abs(an0-am0).GE.eps*an0) GO TO 70 + q = r*an0 + p = 0.5D0 + (0.5D0-q) + RETURN +C +C SPECIAL CASES +C + 80 p = 0.0D0 + q = 1.0D0 + RETURN +C + 90 p = 1.0D0 + q = 0.0D0 + RETURN +C + 100 IF (x.GE.0.25D0) GO TO 110 + p = erf(sqrt(x)) + q = 0.5D0 + (0.5D0-p) + RETURN + + 110 q = erfc1(0,sqrt(x)) + p = 0.5D0 + (0.5D0-q) + RETURN +C + 120 IF (x.LE.a) GO TO 80 + GO TO 90 + + END diff --git a/modules/statistics/src/dcdflib/grat1.lo b/modules/statistics/src/dcdflib/grat1.lo new file mode 100755 index 000000000..4e0307458 --- /dev/null +++ b/modules/statistics/src/dcdflib/grat1.lo @@ -0,0 +1,12 @@ +# src/dcdflib/grat1.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/grat1.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/gratio.f b/modules/statistics/src/dcdflib/gratio.f new file mode 100755 index 000000000..c056d6728 --- /dev/null +++ b/modules/statistics/src/dcdflib/gratio.f @@ -0,0 +1,431 @@ + SUBROUTINE gratio(a,x,ans,qans,ind) +C ---------------------------------------------------------------------- +C EVALUATION OF THE INCOMPLETE GAMMA RATIO FUNCTIONS +C P(A,X) AND Q(A,X) +C +C ---------- +C +C IT IS ASSUMED THAT A AND X ARE NONNEGATIVE, WHERE A AND X +C ARE NOT BOTH 0. +C +C ANS AND QANS ARE VARIABLES. GRATIO ASSIGNS ANS THE VALUE +C P(A,X) AND QANS THE VALUE Q(A,X). IND MAY BE ANY INTEGER. +C IF IND = 0 THEN THE USER IS REQUESTING AS MUCH ACCURACY AS +C POSSIBLE (UP TO 14 SIGNIFICANT DIGITS). OTHERWISE, IF +C IND = 1 THEN ACCURACY IS REQUESTED TO WITHIN 1 UNIT OF THE +C 6-TH SIGNIFICANT DIGIT, AND IF IND .NE. 0,1 THEN ACCURACY +C IS REQUESTED TO WITHIN 1 UNIT OF THE 3RD SIGNIFICANT DIGIT. +C +C ERROR RETURN ... +C ANS IS ASSIGNED THE VALUE 2 WHEN A OR X IS NEGATIVE, +C WHEN A*X = 0, OR WHEN P(A,X) AND Q(A,X) ARE INDETERMINANT. +C P(A,X) AND Q(A,X) ARE COMPUTATIONALLY INDETERMINANT WHEN +C X IS EXCEEDINGLY CLOSE TO A AND A IS EXTREMELY LARGE. +C ---------------------------------------------------------------------- +C WRITTEN BY ALFRED H. MORRIS, JR. +C NAVAL SURFACE WEAPONS CENTER +C DAHLGREN, VIRGINIA +C -------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION a,ans,qans,x + INTEGER ind +C .. +C .. Local Scalars .. + DOUBLE PRECISION a2n,a2nm1,acc,alog10,am0,amn,an,an0,apn,b2n, + + b2nm1,c,c0,c1,c2,c3,c4,c5,c6,cma,d10,d20,d30,d40, + + d50,d60,d70,e,e0,g,h,j,l,r,rt2pin,rta,rtpi,rtx,s, + + sum,t,t1,third,tol,twoa,u,w,x0,y,z + INTEGER i,iop,m,max,n +C .. +C .. Local Arrays .. + DOUBLE PRECISION acc0(3),big(3),d0(13),d1(12),d2(10),d3(8),d4(6), + + d5(4),d6(2),e00(3),wk(20),x00(3) +C .. +C .. External Functions .. + DOUBLE PRECISION erf,erfc1,gam1,gamma,rexp,rlog,spmpar + EXTERNAL erf,erfc1,gam1,gamma,rexp,rlog,spmpar +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,dble,dlog,dmax1,exp,int,sqrt +C .. +C .. Data statements .. +C -------------------- +C -------------------- +C ALOG10 = LN(10) +C RT2PIN = 1/SQRT(2*PI) +C RTPI = SQRT(PI) +C -------------------- +C -------------------- +C -------------------- +C -------------------- +C -------------------- +C -------------------- +C -------------------- +C -------------------- +C -------------------- + DATA acc0(1)/5.D-15/,acc0(2)/5.D-7/,acc0(3)/5.D-4/ + DATA big(1)/20.0D0/,big(2)/14.0D0/,big(3)/10.0D0/ + DATA e00(1)/.25D-3/,e00(2)/.25D-1/,e00(3)/.14D0/ + DATA x00(1)/31.0D0/,x00(2)/17.0D0/,x00(3)/9.7D0/ + DATA alog10/2.30258509299405D0/ + DATA rt2pin/.398942280401433D0/ + DATA rtpi/1.77245385090552D0/ + DATA third/.333333333333333D0/ + DATA d0(1)/.833333333333333D-01/,d0(2)/-.148148148148148D-01/, + + d0(3)/.115740740740741D-02/,d0(4)/.352733686067019D-03/, + + d0(5)/-.178755144032922D-03/,d0(6)/.391926317852244D-04/, + + d0(7)/-.218544851067999D-05/,d0(8)/-.185406221071516D-05/, + + d0(9)/.829671134095309D-06/,d0(10)/-.176659527368261D-06/, + + d0(11)/.670785354340150D-08/,d0(12)/.102618097842403D-07/, + + d0(13)/-.438203601845335D-08/ + DATA d10/-.185185185185185D-02/,d1(1)/-.347222222222222D-02/, + + d1(2)/.264550264550265D-02/,d1(3)/-.990226337448560D-03/, + + d1(4)/.205761316872428D-03/,d1(5)/-.401877572016461D-06/, + + d1(6)/-.180985503344900D-04/,d1(7)/.764916091608111D-05/, + + d1(8)/-.161209008945634D-05/,d1(9)/.464712780280743D-08/, + + d1(10)/.137863344691572D-06/,d1(11)/-.575254560351770D-07/, + + d1(12)/.119516285997781D-07/ + DATA d20/.413359788359788D-02/,d2(1)/-.268132716049383D-02/, + + d2(2)/.771604938271605D-03/,d2(3)/.200938786008230D-05/, + + d2(4)/-.107366532263652D-03/,d2(5)/.529234488291201D-04/, + + d2(6)/-.127606351886187D-04/,d2(7)/.342357873409614D-07/, + + d2(8)/.137219573090629D-05/,d2(9)/-.629899213838006D-06/, + + d2(10)/.142806142060642D-06/ + DATA d30/.649434156378601D-03/,d3(1)/.229472093621399D-03/, + + d3(2)/-.469189494395256D-03/,d3(3)/.267720632062839D-03/, + + d3(4)/-.756180167188398D-04/,d3(5)/-.239650511386730D-06/, + + d3(6)/.110826541153473D-04/,d3(7)/-.567495282699160D-05/, + + d3(8)/.142309007324359D-05/ + DATA d40/-.861888290916712D-03/,d4(1)/.784039221720067D-03/, + + d4(2)/-.299072480303190D-03/,d4(3)/-.146384525788434D-05/, + + d4(4)/.664149821546512D-04/,d4(5)/-.396836504717943D-04/, + + d4(6)/.113757269706784D-04/ + DATA d50/-.336798553366358D-03/,d5(1)/-.697281375836586D-04/, + + d5(2)/.277275324495939D-03/,d5(3)/-.199325705161888D-03/, + + d5(4)/.679778047793721D-04/ + DATA d60/.531307936463992D-03/,d6(1)/-.592166437353694D-03/, + + d6(2)/.270878209671804D-03/ + DATA d70/.344367606892378D-03/ +C .. +C .. Executable Statements .. +C -------------------- +C ****** E IS A MACHINE DEPENDENT CONSTANT. E IS THE SMALLEST +C FLOATING POINT NUMBER FOR WHICH 1.0 + E .GT. 1.0 . +C + e = spmpar(1) +C +C -------------------- + IF (a.LT.0.0D0 .OR. x.LT.0.0D0) GO TO 430 + IF (a.EQ.0.0D0 .AND. x.EQ.0.0D0) GO TO 430 + IF (a*x.EQ.0.0D0) GO TO 420 +C + iop = ind + 1 + IF (iop.NE.1 .AND. iop.NE.2) iop = 3 + acc = dmax1(acc0(iop),e) + e0 = e00(iop) + x0 = x00(iop) +C +C SELECT THE APPROPRIATE ALGORITHM +C + IF (a.GE.1.0D0) GO TO 10 + IF (a.EQ.0.5D0) GO TO 390 + IF (x.LT.1.1D0) GO TO 160 + t1 = a*dlog(x) - x + u = a*exp(t1) + IF (u.EQ.0.0D0) GO TO 380 + r = u* (1.0D0+gam1(a)) + GO TO 250 +C + 10 IF (a.GE.big(iop)) GO TO 30 + IF (a.GT.x .OR. x.GE.x0) GO TO 20 + twoa = a + a + m = int(twoa) + IF (twoa.NE.dble(m)) GO TO 20 + i = m/2 + IF (a.EQ.dble(i)) GO TO 210 + GO TO 220 + + 20 t1 = a*dlog(x) - x + r = exp(t1)/gamma(a) + GO TO 40 +C + 30 l = x/a + IF (l.EQ.0.0D0) GO TO 370 + s = 0.5D0 + (0.5D0-l) + z = rlog(l) + IF (z.GE.700.0D0/a) GO TO 410 + y = a*z + rta = sqrt(a) + IF (abs(s).LE.e0/rta) GO TO 330 + IF (abs(s).LE.0.4D0) GO TO 270 +C + t = (1.0D0/a)**2 + t1 = (((0.75D0*t-1.0D0)*t+3.5D0)*t-105.0D0)/ (a*1260.0D0) + t1 = t1 - y + r = rt2pin*rta*exp(t1) +C + 40 IF (r.EQ.0.0D0) GO TO 420 + IF (x.LE.dmax1(a,alog10)) GO TO 50 + IF (x.LT.x0) GO TO 250 + GO TO 100 +C +C TAYLOR SERIES FOR P/R +C + 50 apn = a + 1.0D0 + t = x/apn + wk(1) = t + DO 60 n = 2,20 + apn = apn + 1.0D0 + t = t* (x/apn) + IF (t.LE.1.D-3) GO TO 70 + wk(n) = t + 60 CONTINUE + n = 20 +C + 70 sum = t + tol = 0.5D0*acc + 80 apn = apn + 1.0D0 + t = t* (x/apn) + sum = sum + t + IF (t.GT.tol) GO TO 80 +C + max = n - 1 + DO 90 m = 1,max + n = n - 1 + sum = sum + wk(n) + 90 CONTINUE + ans = (r/a)* (1.0D0+sum) + qans = 0.5D0 + (0.5D0-ans) + RETURN +C +C ASYMPTOTIC EXPANSION +C + 100 amn = a - 1.0D0 + t = amn/x + wk(1) = t + DO 110 n = 2,20 + amn = amn - 1.0D0 + t = t* (amn/x) + IF (abs(t).LE.1.D-3) GO TO 120 + wk(n) = t + 110 CONTINUE + n = 20 +C + 120 sum = t + 130 IF (abs(t).LE.acc) GO TO 140 + amn = amn - 1.0D0 + t = t* (amn/x) + sum = sum + t + GO TO 130 +C + 140 max = n - 1 + DO 150 m = 1,max + n = n - 1 + sum = sum + wk(n) + 150 CONTINUE + qans = (r/x)* (1.0D0+sum) + ans = 0.5D0 + (0.5D0-qans) + RETURN +C +C TAYLOR SERIES FOR P(A,X)/X**A +C + 160 an = 3.0D0 + c = x + sum = x/ (a+3.0D0) + tol = 3.0D0*acc/ (a+1.0D0) + 170 an = an + 1.0D0 + c = -c* (x/an) + t = c/ (a+an) + sum = sum + t + IF (abs(t).GT.tol) GO TO 170 + j = a*x* ((sum/6.0D0-0.5D0/ (a+2.0D0))*x+1.0D0/ (a+1.0D0)) +C + z = a*dlog(x) + h = gam1(a) + g = 1.0D0 + h + IF (x.LT.0.25D0) GO TO 180 + IF (a.LT.x/2.59D0) GO TO 200 + GO TO 190 + + 180 IF (z.GT.-.13394D0) GO TO 200 +C + 190 w = exp(z) + ans = w*g* (0.5D0+ (0.5D0-j)) + qans = 0.5D0 + (0.5D0-ans) + RETURN +C + 200 l = rexp(z) + w = 0.5D0 + (0.5D0+l) + qans = (w*j-l)*g - h + IF (qans.LT.0.0D0) GO TO 380 + ans = 0.5D0 + (0.5D0-qans) + RETURN +C +C FINITE SUMS FOR Q WHEN A .GE. 1 +C AND 2*A IS AN INTEGER +C + 210 sum = exp(-x) + t = sum + n = 1 + c = 0.0D0 + GO TO 230 +C + 220 rtx = sqrt(x) + sum = erfc1(0,rtx) + t = exp(-x)/ (rtpi*rtx) + n = 0 + c = -0.5D0 +C + 230 IF (n.EQ.i) GO TO 240 + n = n + 1 + c = c + 1.0D0 + t = (x*t)/c + sum = sum + t + GO TO 230 + + 240 qans = sum + ans = 0.5D0 + (0.5D0-qans) + RETURN +C +C CONTINUED FRACTION EXPANSION +C + 250 tol = dmax1(5.0D0*e,acc) + a2nm1 = 1.0D0 + a2n = 1.0D0 + b2nm1 = x + b2n = x + (1.0D0-a) + c = 1.0D0 + 260 a2nm1 = x*a2n + c*a2nm1 + b2nm1 = x*b2n + c*b2nm1 + am0 = a2nm1/b2nm1 + c = c + 1.0D0 + cma = c - a + a2n = a2nm1 + cma*a2n + b2n = b2nm1 + cma*b2n + an0 = a2n/b2n + IF (abs(an0-am0).GE.tol*an0) GO TO 260 +C + qans = r*an0 + ans = 0.5D0 + (0.5D0-qans) + RETURN +C +C GENERAL TEMME EXPANSION +C + 270 IF (abs(s).LE.2.0D0*e .AND. a*e*e.GT.3.28D-3) GO TO 430 + c = exp(-y) + w = 0.5D0*erfc1(1,sqrt(y)) + u = 1.0D0/a + z = sqrt(z+z) + IF (l.LT.1.0D0) z = -z + CRES=iop-2 + IF (CRES .lt. 0) then + goto 280 + ELSEIF (CRES .eq. 0) then + goto 290 + ELSE + goto 300 + ENDIF +C + 280 IF (abs(s).LE.1.D-3) GO TO 340 + c0 = ((((((((((((d0(13)*z+d0(12))*z+d0(11))*z+d0(10))*z+d0(9))*z+ + + d0(8))*z+d0(7))*z+d0(6))*z+d0(5))*z+d0(4))*z+d0(3))*z+d0(2))* + + z+d0(1))*z - third + c1 = (((((((((((d1(12)*z+d1(11))*z+d1(10))*z+d1(9))*z+d1(8))*z+ + + d1(7))*z+d1(6))*z+d1(5))*z+d1(4))*z+d1(3))*z+d1(2))*z+d1(1))* + + z + d10 + c2 = (((((((((d2(10)*z+d2(9))*z+d2(8))*z+d2(7))*z+d2(6))*z+ + + d2(5))*z+d2(4))*z+d2(3))*z+d2(2))*z+d2(1))*z + d20 + c3 = (((((((d3(8)*z+d3(7))*z+d3(6))*z+d3(5))*z+d3(4))*z+d3(3))*z+ + + d3(2))*z+d3(1))*z + d30 + c4 = (((((d4(6)*z+d4(5))*z+d4(4))*z+d4(3))*z+d4(2))*z+d4(1))*z + + + d40 + c5 = (((d5(4)*z+d5(3))*z+d5(2))*z+d5(1))*z + d50 + c6 = (d6(2)*z+d6(1))*z + d60 + t = ((((((d70*u+c6)*u+c5)*u+c4)*u+c3)*u+c2)*u+c1)*u + c0 + GO TO 310 +C + 290 c0 = (((((d0(6)*z+d0(5))*z+d0(4))*z+d0(3))*z+d0(2))*z+d0(1))*z - + + third + c1 = (((d1(4)*z+d1(3))*z+d1(2))*z+d1(1))*z + d10 + c2 = d2(1)*z + d20 + t = (c2*u+c1)*u + c0 + GO TO 310 +C + 300 t = ((d0(3)*z+d0(2))*z+d0(1))*z - third +C + 310 IF (l.LT.1.0D0) GO TO 320 + qans = c* (w+rt2pin*t/rta) + ans = 0.5D0 + (0.5D0-qans) + RETURN + + 320 ans = c* (w-rt2pin*t/rta) + qans = 0.5D0 + (0.5D0-ans) + RETURN +C +C TEMME EXPANSION FOR L = 1 +C + 330 IF (a*e*e.GT.3.28D-3) GO TO 430 + c = 0.5D0 + (0.5D0-y) + w = (0.5D0-sqrt(y)* (0.5D0+ (0.5D0-y/3.0D0))/rtpi)/c + u = 1.0D0/a + z = sqrt(z+z) + IF (l.LT.1.0D0) z = -z + CRES=iop-2 + IF (CRES .lt. 0) then + goto 340 + ELSEIF (CRES .eq. 0) then + goto 350 + ELSE + goto 360 + ENDIF + +C + 340 c0 = ((((((d0(7)*z+d0(6))*z+d0(5))*z+d0(4))*z+d0(3))*z+d0(2))*z+ + + d0(1))*z - third + c1 = (((((d1(6)*z+d1(5))*z+d1(4))*z+d1(3))*z+d1(2))*z+d1(1))*z + + + d10 + c2 = ((((d2(5)*z+d2(4))*z+d2(3))*z+d2(2))*z+d2(1))*z + d20 + c3 = (((d3(4)*z+d3(3))*z+d3(2))*z+d3(1))*z + d30 + c4 = (d4(2)*z+d4(1))*z + d40 + c5 = (d5(2)*z+d5(1))*z + d50 + c6 = d6(1)*z + d60 + t = ((((((d70*u+c6)*u+c5)*u+c4)*u+c3)*u+c2)*u+c1)*u + c0 + GO TO 310 +C + 350 c0 = (d0(2)*z+d0(1))*z - third + c1 = d1(1)*z + d10 + t = (d20*u+c1)*u + c0 + GO TO 310 +C + 360 t = d0(1)*z - third + GO TO 310 +C +C SPECIAL CASES +C + 370 ans = 0.0D0 + qans = 1.0D0 + RETURN +C + 380 ans = 1.0D0 + qans = 0.0D0 + RETURN +C + 390 IF (x.GE.0.25D0) GO TO 400 + ans = erf(sqrt(x)) + qans = 0.5D0 + (0.5D0-ans) + RETURN + + 400 qans = erfc1(0,sqrt(x)) + ans = 0.5D0 + (0.5D0-qans) + RETURN +C + 410 IF (abs(s).LE.2.0D0*e) GO TO 430 + 420 IF (x.LE.a) GO TO 370 + GO TO 380 +C +C ERROR RETURN +C + 430 ans = 2.0D0 + RETURN + + END diff --git a/modules/statistics/src/dcdflib/gratio.lo b/modules/statistics/src/dcdflib/gratio.lo new file mode 100755 index 000000000..b271cd046 --- /dev/null +++ b/modules/statistics/src/dcdflib/gratio.lo @@ -0,0 +1,12 @@ +# src/dcdflib/gratio.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/gratio.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/gsumln.f b/modules/statistics/src/dcdflib/gsumln.f new file mode 100755 index 000000000..6eec02559 --- /dev/null +++ b/modules/statistics/src/dcdflib/gsumln.f @@ -0,0 +1,32 @@ + DOUBLE PRECISION FUNCTION gsumln(a,b) +C----------------------------------------------------------------------- +C EVALUATION OF THE FUNCTION LN(GAMMA(A + B)) +C FOR 1 .LE. A .LE. 2 AND 1 .LE. B .LE. 2 +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION a,b +C .. +C .. Local Scalars .. + DOUBLE PRECISION x +C .. +C .. External Functions .. + DOUBLE PRECISION alnrel,gamln1 + EXTERNAL alnrel,gamln1 +C .. +C .. Intrinsic Functions .. + INTRINSIC dble,dlog +C .. +C .. Executable Statements .. + x = dble(a) + dble(b) - 2.D0 + IF (x.GT.0.25D0) GO TO 10 + gsumln = gamln1(1.0D0+x) + RETURN + + 10 IF (x.GT.1.25D0) GO TO 20 + gsumln = gamln1(x) + alnrel(x) + RETURN + + 20 gsumln = gamln1(x-1.0D0) + dlog(x* (1.0D0+x)) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/gsumln.lo b/modules/statistics/src/dcdflib/gsumln.lo new file mode 100755 index 000000000..4001f54f4 --- /dev/null +++ b/modules/statistics/src/dcdflib/gsumln.lo @@ -0,0 +1,12 @@ +# src/dcdflib/gsumln.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/gsumln.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/ipmpar.f b/modules/statistics/src/dcdflib/ipmpar.f new file mode 100755 index 000000000..e8bd41f6e --- /dev/null +++ b/modules/statistics/src/dcdflib/ipmpar.f @@ -0,0 +1,54 @@ + INTEGER FUNCTION ipmpar(i) +C----------------------------------------------------------------------- +C INTEGERS. +C +C ASSUME INTEGERS ARE REPRESENTED IN THE N-DIGIT, BASE-A FORM +C +C SIGN ( X(N-1)*A**(N-1) + ... + X(1)*A + X(0) ) +C +C WHERE 0 .LE. X(I) .LT. A FOR I=0,...,N-1. +C +C IPMPAR(1) = A, THE BASE. +C IPMPAR(2) = N, THE NUMBER OF BASE-A DIGITS. +C IPMPAR(3) = A**N - 1, THE LARGEST MAGNITUDE. +C +C FLOATING-POINT NUMBERS. +C +C IT IS ASSUMED THAT THE SINGLE AND DOUBLE PRECISION FLOATING +C POINT ARITHMETICS HAVE THE SAME BASE, SAY B, AND THAT THE +C NONZERO NUMBERS ARE REPRESENTED IN THE FORM +C +C SIGN (B**E) * (X(1)/B + ... + X(M)/B**M) +C +C WHERE X(I) = 0,1,...,B-1 FOR I=1,...,M, +C X(1) .GE. 1, AND EMIN .LE. E .LE. EMAX. +C +C IPMPAR(4) = B, THE BASE. +C SINGLE-PRECISION +C IPMPAR(5) = M, THE NUMBER OF BASE-B DIGITS. +C IPMPAR(6) = EMIN, THE SMALLEST EXPONENT E. +C IPMPAR(7) = EMAX, THE LARGEST EXPONENT E. +C DOUBLE-PRECISION +C IPMPAR(8) = M, THE NUMBER OF BASE-B DIGITS. +C IPMPAR(9) = EMIN, THE SMALLEST EXPONENT E. +C IPMPAR(10) = EMAX, THE LARGEST EXPONENT E. +C----------------------------------------------------------------------- +C RWRITTEN BY JPC to use lapack dlamch + a small c program +C for ipmpar(3) +C----------------------------------------------------------------------- + DOUBLE PRECISION DLAMCH + EXTERNAL DLAMCH + include 'stack.h' + goto (1,1,3,4,1,1,1,1,9,10) i + 1 continue + call basout(io,wte,'ipmpar called with wrong argument') + ipmpar = 0 + return + 3 ipmpar = largestint() + return + 4 ipmpar=dlamch('b') + return + 9 ipmpar=dlamch('m') + return + 10 ipmpar= dlamch('l') + END diff --git a/modules/statistics/src/dcdflib/ipmpar.f.dist b/modules/statistics/src/dcdflib/ipmpar.f.dist new file mode 100755 index 000000000..a52a8d77f --- /dev/null +++ b/modules/statistics/src/dcdflib/ipmpar.f.dist @@ -0,0 +1,429 @@ + INTEGER FUNCTION ipmpar(i) +C----------------------------------------------------------------------- +C +C IPMPAR PROVIDES THE INTEGER MACHINE CONSTANTS FOR THE COMPUTER +C THAT IS USED. IT IS ASSUMED THAT THE ARGUMENT I IS AN INTEGER +C HAVING ONE OF THE VALUES 1-10. IPMPAR(I) HAS THE VALUE ... +C +C INTEGERS. +C +C ASSUME INTEGERS ARE REPRESENTED IN THE N-DIGIT, BASE-A FORM +C +C SIGN ( X(N-1)*A**(N-1) + ... + X(1)*A + X(0) ) +C +C WHERE 0 .LE. X(I) .LT. A FOR I=0,...,N-1. +C +C IPMPAR(1) = A, THE BASE. +C +C IPMPAR(2) = N, THE NUMBER OF BASE-A DIGITS. +C +C IPMPAR(3) = A**N - 1, THE LARGEST MAGNITUDE. +C +C FLOATING-POINT NUMBERS. +C +C IT IS ASSUMED THAT THE SINGLE AND DOUBLE PRECISION FLOATING +C POINT ARITHMETICS HAVE THE SAME BASE, SAY B, AND THAT THE +C NONZERO NUMBERS ARE REPRESENTED IN THE FORM +C +C SIGN (B**E) * (X(1)/B + ... + X(M)/B**M) +C +C WHERE X(I) = 0,1,...,B-1 FOR I=1,...,M, +C X(1) .GE. 1, AND EMIN .LE. E .LE. EMAX. +C +C IPMPAR(4) = B, THE BASE. +C +C SINGLE-PRECISION +C +C IPMPAR(5) = M, THE NUMBER OF BASE-B DIGITS. +C +C IPMPAR(6) = EMIN, THE SMALLEST EXPONENT E. +C +C IPMPAR(7) = EMAX, THE LARGEST EXPONENT E. +C +C DOUBLE-PRECISION +C +C IPMPAR(8) = M, THE NUMBER OF BASE-B DIGITS. +C +C IPMPAR(9) = EMIN, THE SMALLEST EXPONENT E. +C +C IPMPAR(10) = EMAX, THE LARGEST EXPONENT E. +C +C----------------------------------------------------------------------- +C +C TO DEFINE THIS FUNCTION FOR THE COMPUTER BEING USED, ACTIVATE +C THE DATA STATMENTS FOR THE COMPUTER BY REMOVING THE C FROM +C COLUMN 1. (ALL THE OTHER DATA STATEMENTS SHOULD HAVE C IN +C COLUMN 1.) +C +C----------------------------------------------------------------------- +C +C IPMPAR IS AN ADAPTATION OF THE FUNCTION I1MACH, WRITTEN BY +C P.A. FOX, A.D. HALL, AND N.L. SCHRYER (BELL LABORATORIES). +C IPMPAR WAS FORMED BY A.H. MORRIS (NSWC). THE CONSTANTS ARE +C FROM BELL LABORATORIES, NSWC, AND OTHER SOURCES. +C +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + INTEGER i +C .. +C .. Local Arrays .. + INTEGER imach(10) +C .. +C .. Data statements .. +C +C MACHINE CONSTANTS FOR AMDAHL MACHINES. +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 31 / +C DATA IMACH( 3) / 2147483647 / +C DATA IMACH( 4) / 16 / +C DATA IMACH( 5) / 6 / +C DATA IMACH( 6) / -64 / +C DATA IMACH( 7) / 63 / +C DATA IMACH( 8) / 14 / +C DATA IMACH( 9) / -64 / +C DATA IMACH(10) / 63 / +C +C MACHINE CONSTANTS FOR THE AT&T 3B SERIES, AT&T +C PC 7300, AND AT&T 6300. +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 31 / +C DATA IMACH( 3) / 2147483647 / +C DATA IMACH( 4) / 2 / +C DATA IMACH( 5) / 24 / +C DATA IMACH( 6) / -125 / +C DATA IMACH( 7) / 128 / +C DATA IMACH( 8) / 53 / +C DATA IMACH( 9) / -1021 / +C DATA IMACH(10) / 1024 / +C +C MACHINE CONSTANTS FOR THE BURROUGHS 1700 SYSTEM. +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 33 / +C DATA IMACH( 3) / 8589934591 / +C DATA IMACH( 4) / 2 / +C DATA IMACH( 5) / 24 / +C DATA IMACH( 6) / -256 / +C DATA IMACH( 7) / 255 / +C DATA IMACH( 8) / 60 / +C DATA IMACH( 9) / -256 / +C DATA IMACH(10) / 255 / +C +C MACHINE CONSTANTS FOR THE BURROUGHS 5700 SYSTEM. +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 39 / +C DATA IMACH( 3) / 549755813887 / +C DATA IMACH( 4) / 8 / +C DATA IMACH( 5) / 13 / +C DATA IMACH( 6) / -50 / +C DATA IMACH( 7) / 76 / +C DATA IMACH( 8) / 26 / +C DATA IMACH( 9) / -50 / +C DATA IMACH(10) / 76 / +C +C MACHINE CONSTANTS FOR THE BURROUGHS 6700/7700 SYSTEMS. +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 39 / +C DATA IMACH( 3) / 549755813887 / +C DATA IMACH( 4) / 8 / +C DATA IMACH( 5) / 13 / +C DATA IMACH( 6) / -50 / +C DATA IMACH( 7) / 76 / +C DATA IMACH( 8) / 26 / +C DATA IMACH( 9) / -32754 / +C DATA IMACH(10) / 32780 / +C +C MACHINE CONSTANTS FOR THE CDC 6000/7000 SERIES +C 60 BIT ARITHMETIC, AND THE CDC CYBER 995 64 BIT +C ARITHMETIC (NOS OPERATING SYSTEM). +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 48 / +C DATA IMACH( 3) / 281474976710655 / +C DATA IMACH( 4) / 2 / +C DATA IMACH( 5) / 48 / +C DATA IMACH( 6) / -974 / +C DATA IMACH( 7) / 1070 / +C DATA IMACH( 8) / 95 / +C DATA IMACH( 9) / -926 / +C DATA IMACH(10) / 1070 / +C +C MACHINE CONSTANTS FOR THE CDC CYBER 995 64 BIT +C ARITHMETIC (NOS/VE OPERATING SYSTEM). +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 63 / +C DATA IMACH( 3) / 9223372036854775807 / +C DATA IMACH( 4) / 2 / +C DATA IMACH( 5) / 48 / +C DATA IMACH( 6) / -4096 / +C DATA IMACH( 7) / 4095 / +C DATA IMACH( 8) / 96 / +C DATA IMACH( 9) / -4096 / +C DATA IMACH(10) / 4095 / +C +C MACHINE CONSTANTS FOR THE CRAY 1, XMP, 2, AND 3. +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 63 / +C DATA IMACH( 3) / 9223372036854775807 / +C DATA IMACH( 4) / 2 / +C DATA IMACH( 5) / 47 / +C DATA IMACH( 6) / -8189 / +C DATA IMACH( 7) / 8190 / +C DATA IMACH( 8) / 94 / +C DATA IMACH( 9) / -8099 / +C DATA IMACH(10) / 8190 / +C +C MACHINE CONSTANTS FOR THE DATA GENERAL ECLIPSE S/200. +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 15 / +C DATA IMACH( 3) / 32767 / +C DATA IMACH( 4) / 16 / +C DATA IMACH( 5) / 6 / +C DATA IMACH( 6) / -64 / +C DATA IMACH( 7) / 63 / +C DATA IMACH( 8) / 14 / +C DATA IMACH( 9) / -64 / +C DATA IMACH(10) / 63 / +C +C MACHINE CONSTANTS FOR THE HARRIS 220. +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 23 / +C DATA IMACH( 3) / 8388607 / +C DATA IMACH( 4) / 2 / +C DATA IMACH( 5) / 23 / +C DATA IMACH( 6) / -127 / +C DATA IMACH( 7) / 127 / +C DATA IMACH( 8) / 38 / +C DATA IMACH( 9) / -127 / +C DATA IMACH(10) / 127 / +C +C MACHINE CONSTANTS FOR THE HONEYWELL 600/6000 +C AND DPS 8/70 SERIES. +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 35 / +C DATA IMACH( 3) / 34359738367 / +C DATA IMACH( 4) / 2 / +C DATA IMACH( 5) / 27 / +C DATA IMACH( 6) / -127 / +C DATA IMACH( 7) / 127 / +C DATA IMACH( 8) / 63 / +C DATA IMACH( 9) / -127 / +C DATA IMACH(10) / 127 / +C +C MACHINE CONSTANTS FOR THE HP 2100 +C 3 WORD DOUBLE PRECISION OPTION WITH FTN4 +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 15 / +C DATA IMACH( 3) / 32767 / +C DATA IMACH( 4) / 2 / +C DATA IMACH( 5) / 23 / +C DATA IMACH( 6) / -128 / +C DATA IMACH( 7) / 127 / +C DATA IMACH( 8) / 39 / +C DATA IMACH( 9) / -128 / +C DATA IMACH(10) / 127 / +C +C MACHINE CONSTANTS FOR THE HP 2100 +C 4 WORD DOUBLE PRECISION OPTION WITH FTN4 +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 15 / +C DATA IMACH( 3) / 32767 / +C DATA IMACH( 4) / 2 / +C DATA IMACH( 5) / 23 / +C DATA IMACH( 6) / -128 / +C DATA IMACH( 7) / 127 / +C DATA IMACH( 8) / 55 / +C DATA IMACH( 9) / -128 / +C DATA IMACH(10) / 127 / +C +C MACHINE CONSTANTS FOR THE HP 9000. +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 31 / +C DATA IMACH( 3) / 2147483647 / +C DATA IMACH( 4) / 2 / +C DATA IMACH( 5) / 24 / +C DATA IMACH( 6) / -126 / +C DATA IMACH( 7) / 128 / +C DATA IMACH( 8) / 53 / +C DATA IMACH( 9) / -1021 / +C DATA IMACH(10) / 1024 / +C +C MACHINE CONSTANTS FOR THE IBM 360/370 SERIES, +C THE ICL 2900, THE ITEL AS/6, THE XEROX SIGMA +C 5/7/9 AND THE SEL SYSTEMS 85/86. +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 31 / +C DATA IMACH( 3) / 2147483647 / +C DATA IMACH( 4) / 16 / +C DATA IMACH( 5) / 6 / +C DATA IMACH( 6) / -64 / +C DATA IMACH( 7) / 63 / +C DATA IMACH( 8) / 14 / +C DATA IMACH( 9) / -64 / +C DATA IMACH(10) / 63 / +C +C MACHINE CONSTANTS FOR THE IBM PC. +C +C DATA imach(1)/2/ +C DATA imach(2)/31/ +C DATA imach(3)/2147483647/ +C DATA imach(4)/2/ +C DATA imach(5)/24/ +C DATA imach(6)/-125/ +C DATA imach(7)/128/ +C DATA imach(8)/53/ +C DATA imach(9)/-1021/ +C DATA imach(10)/1024/ +C +C MACHINE CONSTANTS FOR THE MACINTOSH II - ABSOFT +C MACFORTRAN II. +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 31 / +C DATA IMACH( 3) / 2147483647 / +C DATA IMACH( 4) / 2 / +C DATA IMACH( 5) / 24 / +C DATA IMACH( 6) / -125 / +C DATA IMACH( 7) / 128 / +C DATA IMACH( 8) / 53 / +C DATA IMACH( 9) / -1021 / +C DATA IMACH(10) / 1024 / +C +C MACHINE CONSTANTS FOR THE MICROVAX - VMS FORTRAN. +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 31 / +C DATA IMACH( 3) / 2147483647 / +C DATA IMACH( 4) / 2 / +C DATA IMACH( 5) / 24 / +C DATA IMACH( 6) / -127 / +C DATA IMACH( 7) / 127 / +C DATA IMACH( 8) / 56 / +C DATA IMACH( 9) / -127 / +C DATA IMACH(10) / 127 / +C +C MACHINE CONSTANTS FOR THE PDP-10 (KA PROCESSOR). +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 35 / +C DATA IMACH( 3) / 34359738367 / +C DATA IMACH( 4) / 2 / +C DATA IMACH( 5) / 27 / +C DATA IMACH( 6) / -128 / +C DATA IMACH( 7) / 127 / +C DATA IMACH( 8) / 54 / +C DATA IMACH( 9) / -101 / +C DATA IMACH(10) / 127 / +C +C MACHINE CONSTANTS FOR THE PDP-10 (KI PROCESSOR). +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 35 / +C DATA IMACH( 3) / 34359738367 / +C DATA IMACH( 4) / 2 / +C DATA IMACH( 5) / 27 / +C DATA IMACH( 6) / -128 / +C DATA IMACH( 7) / 127 / +C DATA IMACH( 8) / 62 / +C DATA IMACH( 9) / -128 / +C DATA IMACH(10) / 127 / +C +C MACHINE CONSTANTS FOR THE PDP-11 FORTRAN SUPPORTING +C 32-BIT INTEGER ARITHMETIC. +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 31 / +C DATA IMACH( 3) / 2147483647 / +C DATA IMACH( 4) / 2 / +C DATA IMACH( 5) / 24 / +C DATA IMACH( 6) / -127 / +C DATA IMACH( 7) / 127 / +C DATA IMACH( 8) / 56 / +C DATA IMACH( 9) / -127 / +C DATA IMACH(10) / 127 / +C +C MACHINE CONSTANTS FOR THE SEQUENT BALANCE 8000. +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 31 / +C DATA IMACH( 3) / 2147483647 / +C DATA IMACH( 4) / 2 / +C DATA IMACH( 5) / 24 / +C DATA IMACH( 6) / -125 / +C DATA IMACH( 7) / 128 / +C DATA IMACH( 8) / 53 / +C DATA IMACH( 9) / -1021 / +C DATA IMACH(10) / 1024 / +C +C MACHINE CONSTANTS FOR THE SILICON GRAPHICS IRIS-4D +C SERIES (MIPS R3000 PROCESSOR). +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 31 / +C DATA IMACH( 3) / 2147483647 / +C DATA IMACH( 4) / 2 / +C DATA IMACH( 5) / 24 / +C DATA IMACH( 6) / -125 / +C DATA IMACH( 7) / 128 / +C DATA IMACH( 8) / 53 / +C DATA IMACH( 9) / -1021 / +C DATA IMACH(10) / 1024 / +C +C MACHINE CONSTANTS FOR IEEE ARITHMETIC MACHINES, SUCH AS THE AT&T +C 3B SERIES, MOTOROLA 68000 BASED MACHINES (E.G. SUN 3 AND AT&T +C PC 7300), AND 8087 BASED MICROS (E.G. IBM PC AND AT&T 6300). +C + DATA IMACH( 1) / 2 / + DATA IMACH( 2) / 31 / + DATA IMACH( 3) / 2147483647 / + DATA IMACH( 4) / 2 / + DATA IMACH( 5) / 24 / + DATA IMACH( 6) / -125 / + DATA IMACH( 7) / 128 / + DATA IMACH( 8) / 53 / + DATA IMACH( 9) / -1021 / + DATA IMACH(10) / 1024 / +C +C MACHINE CONSTANTS FOR THE UNIVAC 1100 SERIES. +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 35 / +C DATA IMACH( 3) / 34359738367 / +C DATA IMACH( 4) / 2 / +C DATA IMACH( 5) / 27 / +C DATA IMACH( 6) / -128 / +C DATA IMACH( 7) / 127 / +C DATA IMACH( 8) / 60 / +C DATA IMACH( 9) /-1024 / +C DATA IMACH(10) / 1023 / +C +C MACHINE CONSTANTS FOR THE VAX 11/780. +C +C DATA IMACH( 1) / 2 / +C DATA IMACH( 2) / 31 / +C DATA IMACH( 3) / 2147483647 / +C DATA IMACH( 4) / 2 / +C DATA IMACH( 5) / 24 / +C DATA IMACH( 6) / -127 / +C DATA IMACH( 7) / 127 / +C DATA IMACH( 8) / 56 / +C DATA IMACH( 9) / -127 / +C DATA IMACH(10) / 127 / +C + ipmpar = imach(i) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/ipmpar.lo b/modules/statistics/src/dcdflib/ipmpar.lo new file mode 100755 index 000000000..482d3e5cf --- /dev/null +++ b/modules/statistics/src/dcdflib/ipmpar.lo @@ -0,0 +1,12 @@ +# src/dcdflib/ipmpar.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/ipmpar.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/psi.f b/modules/statistics/src/dcdflib/psi.f new file mode 100755 index 000000000..8304f5584 --- /dev/null +++ b/modules/statistics/src/dcdflib/psi.f @@ -0,0 +1,193 @@ + DOUBLE PRECISION FUNCTION psi1(xx) +C--------------------------------------------------------------------- +C +C EVALUATION OF THE DIGAMMA FUNCTION +C +C ----------- +C +C PSI1(XX) IS ASSIGNED THE VALUE 0 WHEN THE DIGAMMA FUNCTION CANNOT +C BE COMPUTED. +C +C THE MAIN COMPUTATION INVOLVES EVALUATION OF RATIONAL CHEBYSHEV +C APPROXIMATIONS PUBLISHED IN MATH. COMP. 27, 123-127(1973) BY +C CODY, STRECOK AND THACHER. +C +C--------------------------------------------------------------------- +C PSI1 WAS WRITTEN AT ARGONNE NATIONAL LABORATORY FOR THE FUNPACK +C PACKAGE OF SPECIAL FUNCTION SUBROUTINES. PSI1 WAS MODIFIED BY +C A.H. MORRIS (NSWC). +C--------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION xx +C .. +C .. Local Scalars .. + DOUBLE PRECISION aug,den,dx0,piov4,sgn,upper,w,x,xmax1,xmx0, + + xsmall,z + INTEGER i,m,n,nq +C .. +C .. Local Arrays .. + DOUBLE PRECISION p1(7),p2(4),q1(6),q2(4) +C .. +C .. External Functions .. + DOUBLE PRECISION spmpar + INTEGER ipmpar + EXTERNAL spmpar,ipmpar +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,cos,dble,dlog,dmin1,int,sin +C .. +C .. Data statements .. +C--------------------------------------------------------------------- +C +C PIOV4 = PI/4 +C DX0 = ZERO OF PSI1 TO EXTENDED PRECISION +C +C--------------------------------------------------------------------- +C--------------------------------------------------------------------- +C +C COEFFICIENTS FOR RATIONAL APPROXIMATION OF +C PSI1(X) / (X - X0), 0.5 .LE. X .LE. 3.0 +C +C--------------------------------------------------------------------- +C--------------------------------------------------------------------- +C +C COEFFICIENTS FOR RATIONAL APPROXIMATION OF +C PSI1(X) - LN(X) + 1 / (2*X), X .GT. 3.0 +C +C--------------------------------------------------------------------- + DATA piov4/.785398163397448D0/ + DATA dx0/1.461632144968362341262659542325721325D0/ + DATA p1(1)/.895385022981970D-02/,p1(2)/.477762828042627D+01/, + + p1(3)/.142441585084029D+03/,p1(4)/.118645200713425D+04/, + + p1(5)/.363351846806499D+04/,p1(6)/.413810161269013D+04/, + + p1(7)/.130560269827897D+04/ + DATA q1(1)/.448452573429826D+02/,q1(2)/.520752771467162D+03/, + + q1(3)/.221000799247830D+04/,q1(4)/.364127349079381D+04/, + + q1(5)/.190831076596300D+04/,q1(6)/.691091682714533D-05/ + DATA p2(1)/-.212940445131011D+01/,p2(2)/-.701677227766759D+01/, + + p2(3)/-.448616543918019D+01/,p2(4)/-.648157123766197D+00/ + DATA q2(1)/.322703493791143D+02/,q2(2)/.892920700481861D+02/, + + q2(3)/.546117738103215D+02/,q2(4)/.777788548522962D+01/ +C .. +C .. Executable Statements .. +C--------------------------------------------------------------------- +C +C MACHINE DEPENDENT CONSTANTS ... +C +C XMAX1 = THE SMALLEST POSITIVE FLOATING POINT CONSTANT +C WITH ENTIRELY INTEGER REPRESENTATION. ALSO USED +C AS NEGATIVE OF LOWER BOUND ON ACCEPTABLE NEGATIVE +C ARGUMENTS AND AS THE POSITIVE ARGUMENT BEYOND WHICH +C PSI1 MAY BE REPRESENTED AS ALOG(X). +C +C XSMALL = ABSOLUTE ARGUMENT BELOW WHICH PI*COTAN(PI*X) +C MAY BE REPRESENTED BY 1/X. +C +C--------------------------------------------------------------------- + xmax1 = ipmpar(3) + xmax1 = dmin1(xmax1,1.0D0/spmpar(1)) + xsmall = 1.D-9 +C--------------------------------------------------------------------- + x = xx + aug = 0.0D0 + IF (x.GE.0.5D0) GO TO 50 +C--------------------------------------------------------------------- +C X .LT. 0.5, USE REFLECTION FORMULA +C PSI1(1-X) = PSI1(X) + PI * COTAN(PI*X) +C--------------------------------------------------------------------- + IF (abs(x).GT.xsmall) GO TO 10 + IF (x.EQ.0.0D0) GO TO 100 +C--------------------------------------------------------------------- +C 0 .LT. ABS(X) .LE. XSMALL. USE 1/X AS A SUBSTITUTE +C FOR PI*COTAN(PI*X) +C--------------------------------------------------------------------- + aug = -1.0D0/x + GO TO 40 +C--------------------------------------------------------------------- +C REDUCTION OF ARGUMENT FOR COTAN +C--------------------------------------------------------------------- + 10 w = -x + sgn = piov4 + IF (w.GT.0.0D0) GO TO 20 + w = -w + sgn = -sgn +C--------------------------------------------------------------------- +C MAKE AN ERROR EXIT IF X .LE. -XMAX1 +C--------------------------------------------------------------------- + 20 IF (w.GE.xmax1) GO TO 100 + nq = int(w) + w = w - dble(nq) + nq = int(w*4.0D0) + w = 4.0D0* (w-dble(nq)*.25D0) +C--------------------------------------------------------------------- +C W IS NOW RELATED TO THE FRACTIONAL PART OF 4.0 * X. +C ADJUST ARGUMENT TO CORRESPOND TO VALUES IN FIRST +C QUADRANT AND DETERMINE SIGN +C--------------------------------------------------------------------- + n = nq/2 + IF ((n+n).NE.nq) w = 1.0D0 - w + z = piov4*w + m = n/2 + IF ((m+m).NE.n) sgn = -sgn +C--------------------------------------------------------------------- +C DETERMINE FINAL VALUE FOR -PI*COTAN(PI*X) +C--------------------------------------------------------------------- + n = (nq+1)/2 + m = n/2 + m = m + m + IF (m.NE.n) GO TO 30 +C--------------------------------------------------------------------- +C CHECK FOR SINGULARITY +C--------------------------------------------------------------------- + IF (z.EQ.0.0D0) GO TO 100 +C--------------------------------------------------------------------- +C USE COS/SIN AS A SUBSTITUTE FOR COTAN, AND +C SIN/COS AS A SUBSTITUTE FOR TAN +C--------------------------------------------------------------------- + aug = sgn* ((cos(z)/sin(z))*4.0D0) + GO TO 40 + + 30 aug = sgn* ((sin(z)/cos(z))*4.0D0) + 40 x = 1.0D0 - x + 50 IF (x.GT.3.0D0) GO TO 70 +C--------------------------------------------------------------------- +C 0.5 .LE. X .LE. 3.0 +C--------------------------------------------------------------------- + den = x + upper = p1(1)*x +C + DO 60 i = 1,5 + den = (den+q1(i))*x + upper = (upper+p1(i+1))*x + 60 CONTINUE +C + den = (upper+p1(7))/ (den+q1(6)) + xmx0 = dble(x) - dx0 + psi1 = den*xmx0 + aug + RETURN +C--------------------------------------------------------------------- +C IF X .GE. XMAX1, PSI1 = LN(X) +C--------------------------------------------------------------------- + 70 IF (x.GE.xmax1) GO TO 90 +C--------------------------------------------------------------------- +C 3.0 .LT. X .LT. XMAX1 +C--------------------------------------------------------------------- + w = 1.0D0/ (x*x) + den = w + upper = p2(1)*w +C + DO 80 i = 1,3 + den = (den+q2(i))*w + upper = (upper+p2(i+1))*w + 80 CONTINUE +C + aug = upper/ (den+q2(4)) - 0.5D0/x + aug + 90 psi1 = aug + dlog(x) + RETURN +C--------------------------------------------------------------------- +C ERROR RETURN +C--------------------------------------------------------------------- + 100 psi1 = 0.0D0 + RETURN + + END diff --git a/modules/statistics/src/dcdflib/psi.lo b/modules/statistics/src/dcdflib/psi.lo new file mode 100755 index 000000000..17bef6137 --- /dev/null +++ b/modules/statistics/src/dcdflib/psi.lo @@ -0,0 +1,12 @@ +# src/dcdflib/psi.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/psi.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/rcomp.f b/modules/statistics/src/dcdflib/rcomp.f new file mode 100755 index 000000000..55d2c7edb --- /dev/null +++ b/modules/statistics/src/dcdflib/rcomp.f @@ -0,0 +1,43 @@ + DOUBLE PRECISION FUNCTION rcomp(a,x) +C ------------------- +C EVALUATION OF EXP(-X)*X**A/GAMMA(A) +C ------------------- +C RT2PIN = 1/SQRT(2*PI) +C ------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION a,x +C .. +C .. Local Scalars .. + DOUBLE PRECISION rt2pin,t,t1,u +C .. +C .. External Functions .. + DOUBLE PRECISION gam1,gamma,rlog + EXTERNAL gam1,gamma,rlog +C .. +C .. Intrinsic Functions .. + INTRINSIC dlog,exp,sqrt +C .. +C .. Data statements .. + DATA rt2pin/.398942280401433D0/ +C .. +C .. Executable Statements .. +C ------------------- + rcomp = 0.0D0 + IF (a.GE.20.0D0) GO TO 20 + t = a*dlog(x) - x + IF (a.GE.1.0D0) GO TO 10 + rcomp = (a*exp(t))* (1.0D0+gam1(a)) + RETURN + + 10 rcomp = exp(t)/gamma(a) + RETURN +C + 20 u = x/a + IF (u.EQ.0.0D0) RETURN + t = (1.0D0/a)**2 + t1 = (((0.75D0*t-1.0D0)*t+3.5D0)*t-105.0D0)/ (a*1260.0D0) + t1 = t1 - a*rlog(u) + rcomp = rt2pin*sqrt(a)*exp(t1) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/rcomp.lo b/modules/statistics/src/dcdflib/rcomp.lo new file mode 100755 index 000000000..7a29a9d1c --- /dev/null +++ b/modules/statistics/src/dcdflib/rcomp.lo @@ -0,0 +1,12 @@ +# src/dcdflib/rcomp.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/rcomp.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/rexp.f b/modules/statistics/src/dcdflib/rexp.f new file mode 100755 index 000000000..cc29c414f --- /dev/null +++ b/modules/statistics/src/dcdflib/rexp.f @@ -0,0 +1,33 @@ + DOUBLE PRECISION FUNCTION rexp(x) +C----------------------------------------------------------------------- +C EVALUATION OF THE FUNCTION EXP(X) - 1 +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION x +C .. +C .. Local Scalars .. + DOUBLE PRECISION p1,p2,q1,q2,q3,q4,w +C .. +C .. Intrinsic Functions .. + INTRINSIC abs,exp +C .. +C .. Data statements .. + DATA p1/.914041914819518D-09/,p2/.238082361044469D-01/, + + q1/-.499999999085958D+00/,q2/.107141568980644D+00/, + + q3/-.119041179760821D-01/,q4/.595130811860248D-03/ +C .. +C .. Executable Statements .. +C----------------------- + IF (abs(x).GT.0.15D0) GO TO 10 + rexp = x* (((p2*x+p1)*x+1.0D0)/ ((((q4*x+q3)*x+q2)*x+q1)*x+1.0D0)) + RETURN +C + 10 w = exp(x) + IF (x.GT.0.0D0) GO TO 20 + rexp = (w-0.5D0) - 0.5D0 + RETURN + + 20 rexp = w* (0.5D0+ (0.5D0-1.0D0/w)) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/rexp.lo b/modules/statistics/src/dcdflib/rexp.lo new file mode 100755 index 000000000..a0fe77bdd --- /dev/null +++ b/modules/statistics/src/dcdflib/rexp.lo @@ -0,0 +1,12 @@ +# src/dcdflib/rexp.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/rexp.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/rlog.f b/modules/statistics/src/dcdflib/rlog.f new file mode 100755 index 000000000..94faa6c3e --- /dev/null +++ b/modules/statistics/src/dcdflib/rlog.f @@ -0,0 +1,55 @@ + DOUBLE PRECISION FUNCTION rlog(x) +C ------------------- +C COMPUTATION OF X - 1 - LN(X) +C ------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION x +C .. +C .. Local Scalars .. + DOUBLE PRECISION a,b,p0,p1,p2,q1,q2,r,t,u,w,w1 +C .. +C .. Intrinsic Functions .. + INTRINSIC dble,dlog +C .. +C .. Data statements .. +C ------------------- + DATA a/.566749439387324D-01/ + DATA b/.456512608815524D-01/ + DATA p0/.333333333333333D+00/,p1/-.224696413112536D+00/, + + p2/.620886815375787D-02/ + DATA q1/-.127408923933623D+01/,q2/.354508718369557D+00/ +C .. +C .. Executable Statements .. +C ------------------- + IF (x.LT.0.61D0 .OR. x.GT.1.57D0) GO TO 40 + IF (x.LT.0.82D0) GO TO 10 + IF (x.GT.1.18D0) GO TO 20 +C +C ARGUMENT REDUCTION +C + u = (x-0.5D0) - 0.5D0 + w1 = 0.0D0 + GO TO 30 +C + 10 u = dble(x) - 0.7D0 + u = u/0.7D0 + w1 = a - u*0.3D0 + GO TO 30 +C + 20 u = 0.75D0*dble(x) - 1.D0 + w1 = b + u/3.0D0 +C +C SERIES EXPANSION +C + 30 r = u/ (u+2.0D0) + t = r*r + w = ((p2*t+p1)*t+p0)/ ((q2*t+q1)*t+1.0D0) + rlog = 2.0D0*t* (1.0D0/ (1.0D0-r)-r*w) + w1 + RETURN +C +C + 40 r = (x-0.5D0) - 0.5D0 + rlog = r - dlog(x) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/rlog.lo b/modules/statistics/src/dcdflib/rlog.lo new file mode 100755 index 000000000..3df434c18 --- /dev/null +++ b/modules/statistics/src/dcdflib/rlog.lo @@ -0,0 +1,12 @@ +# src/dcdflib/rlog.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/rlog.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/rlog1.f b/modules/statistics/src/dcdflib/rlog1.f new file mode 100755 index 000000000..8b215eba8 --- /dev/null +++ b/modules/statistics/src/dcdflib/rlog1.f @@ -0,0 +1,55 @@ + DOUBLE PRECISION FUNCTION rlog1(x) +C----------------------------------------------------------------------- +C EVALUATION OF THE FUNCTION X - LN(1 + X) +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + DOUBLE PRECISION x +C .. +C .. Local Scalars .. + DOUBLE PRECISION a,b,h,p0,p1,p2,q1,q2,r,t,w,w1 +C .. +C .. Intrinsic Functions .. + INTRINSIC dble,dlog +C .. +C .. Data statements .. +C------------------------ + DATA a/.566749439387324D-01/ + DATA b/.456512608815524D-01/ + DATA p0/.333333333333333D+00/,p1/-.224696413112536D+00/, + + p2/.620886815375787D-02/ + DATA q1/-.127408923933623D+01/,q2/.354508718369557D+00/ +C .. +C .. Executable Statements .. +C------------------------ + IF (x.LT.-0.39D0 .OR. x.GT.0.57D0) GO TO 40 + IF (x.LT.-0.18D0) GO TO 10 + IF (x.GT.0.18D0) GO TO 20 +C +C ARGUMENT REDUCTION +C + h = x + w1 = 0.0D0 + GO TO 30 +C + 10 h = dble(x) + 0.3D0 + h = h/0.7D0 + w1 = a - h*0.3D0 + GO TO 30 +C + 20 h = 0.75D0*dble(x) - 0.25D0 + w1 = b + h/3.0D0 +C +C SERIES EXPANSION +C + 30 r = h/ (h+2.0D0) + t = r*r + w = ((p2*t+p1)*t+p0)/ ((q2*t+q1)*t+1.0D0) + rlog1 = 2.0D0*t* (1.0D0/ (1.0D0-r)-r*w) + w1 + RETURN +C +C + 40 w = (x+0.5D0) + 0.5D0 + rlog1 = x - dlog(w) + RETURN + + END diff --git a/modules/statistics/src/dcdflib/rlog1.lo b/modules/statistics/src/dcdflib/rlog1.lo new file mode 100755 index 000000000..33178b74c --- /dev/null +++ b/modules/statistics/src/dcdflib/rlog1.lo @@ -0,0 +1,12 @@ +# src/dcdflib/rlog1.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/rlog1.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/spmpar.f b/modules/statistics/src/dcdflib/spmpar.f new file mode 100755 index 000000000..4f371707f --- /dev/null +++ b/modules/statistics/src/dcdflib/spmpar.f @@ -0,0 +1,29 @@ + DOUBLE PRECISION FUNCTION spmpar(i) +C----------------------------------------------------------------------- +C SPMPAR PROVIDES THE SINGLE PRECISION MACHINE CONSTANTS FOR +C THE COMPUTER BEING USED. IT IS ASSUMED THAT THE ARGUMENT +C I IS AN INTEGER HAVING ONE OF THE VALUES 1, 2, OR 3. IF THE +C SINGLE PRECISION ARITHMETIC BEING USED HAS M BASE B DIGITS AND +C ITS SMALLEST AND LARGEST EXPONENTS ARE EMIN AND EMAX, THEN +C +C SPMPAR(1) = B**(1 - M), THE MACHINE PRECISION, +C +C SPMPAR(2) = B**(EMIN - 1), THE SMALLEST MAGNITUDE, +C +C SPMPAR(3) = B**EMAX*(1 - B**(-M)), THE LARGEST MAGNITUDE. +C +C----------------------------------------------------------------------- +C RWRITTEN BY JPC to use lapack dlamch +C----------------------------------------------------------------------- + DOUBLE PRECISION DLAMCH + EXTERNAL DLAMCH + goto (1,2,3) i + spmpar=0.0 + RETURN + 1 spmpar=dlamch('p') + return + 2 spmpar=dlamch('u') + return + 3 spmpar=dlamch('o') + return + END diff --git a/modules/statistics/src/dcdflib/spmpar.f.dist b/modules/statistics/src/dcdflib/spmpar.f.dist new file mode 100755 index 000000000..4cfafb1a3 --- /dev/null +++ b/modules/statistics/src/dcdflib/spmpar.f.dist @@ -0,0 +1,72 @@ + DOUBLE PRECISION FUNCTION spmpar(i) +C----------------------------------------------------------------------- +C +C SPMPAR PROVIDES THE SINGLE PRECISION MACHINE CONSTANTS FOR +C THE COMPUTER BEING USED. IT IS ASSUMED THAT THE ARGUMENT +C I IS AN INTEGER HAVING ONE OF THE VALUES 1, 2, OR 3. IF THE +C SINGLE PRECISION ARITHMETIC BEING USED HAS M BASE B DIGITS AND +C ITS SMALLEST AND LARGEST EXPONENTS ARE EMIN AND EMAX, THEN +C +C SPMPAR(1) = B**(1 - M), THE MACHINE PRECISION, +C +C SPMPAR(2) = B**(EMIN - 1), THE SMALLEST MAGNITUDE, +C +C SPMPAR(3) = B**EMAX*(1 - B**(-M)), THE LARGEST MAGNITUDE. +C +C----------------------------------------------------------------------- +C WRITTEN BY +C ALFRED H. MORRIS, JR. +C NAVAL SURFACE WARFARE CENTER +C DAHLGREN VIRGINIA +C----------------------------------------------------------------------- +C----------------------------------------------------------------------- +C MODIFIED BY BARRY W. BROWN TO RETURN DOUBLE PRECISION MACHINE +C CONSTANTS FOR THE COMPUTER BEING USED. THIS MODIFICATION WAS +C MADE AS PART OF CONVERTING BRATIO TO DOUBLE PRECISION +C----------------------------------------------------------------------- +C .. Scalar Arguments .. + INTEGER i +C .. +C .. Local Scalars .. + DOUBLE PRECISION b,binv,bm1,one,w,z + INTEGER emax,emin,ibeta,m +C .. +C .. External Functions .. + INTEGER ipmpar + EXTERNAL ipmpar +C .. +C .. Intrinsic Functions .. + INTRINSIC dble +C .. +C .. Executable Statements .. +C + IF (i.GT.1) GO TO 10 + b = ipmpar(4) + m = ipmpar(8) + spmpar = b** (1-m) + RETURN +C + 10 IF (i.GT.2) GO TO 20 + b = ipmpar(4) + emin = ipmpar(9) + one = dble(1) + binv = one/b + w = b** (emin+2) + spmpar = ((w*binv)*binv)*binv + RETURN +C + 20 ibeta = ipmpar(4) + m = ipmpar(8) + emax = ipmpar(10) +C + b = ibeta + bm1 = ibeta - 1 + one = dble(1) + z = b** (m-1) + w = ((z-one)*b+bm1)/ (b*z) +C + z = b** (emax-2) + spmpar = ((w*z)*b)*b + RETURN + + END diff --git a/modules/statistics/src/dcdflib/spmpar.lo b/modules/statistics/src/dcdflib/spmpar.lo new file mode 100755 index 000000000..f6c176baf --- /dev/null +++ b/modules/statistics/src/dcdflib/spmpar.lo @@ -0,0 +1,12 @@ +# src/dcdflib/spmpar.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/spmpar.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/src/dcdflib/stvaln.f b/modules/statistics/src/dcdflib/stvaln.f new file mode 100755 index 000000000..51d1526ca --- /dev/null +++ b/modules/statistics/src/dcdflib/stvaln.f @@ -0,0 +1,67 @@ + DOUBLE PRECISION FUNCTION stvaln(p) +C +C********************************************************************** +C +C DOUBLE PRECISION FUNCTION STVALN(P) +C STarting VALue for Neton-Raphon +C calculation of Normal distribution Inverse +C +C +C Function +C +C +C Returns X such that CUMNOR(X) = P, i.e., the integral from - +C infinity to X of (1/SQRT(2*PI)) EXP(-U*U/2) dU is P +C +C +C Arguments +C +C +C P --> The probability whose normal deviate is sought. +C P is DOUBLE PRECISION +C +C +C Method +C +C +C The rational function on page 95 of Kennedy and Gentle, +C Statistical Computing, Marcel Dekker, NY , 1980. +C +C********************************************************************** +C +C .. Scalar Arguments .. + DOUBLE PRECISION p +C .. +C .. Local Scalars .. + DOUBLE PRECISION sign,y,z +C .. +C .. Local Arrays .. + DOUBLE PRECISION xden(5),xnum(5) +C .. +C .. External Functions .. + DOUBLE PRECISION devlpl + EXTERNAL devlpl +C .. +C .. Intrinsic Functions .. + INTRINSIC dble,log,sqrt +C .. +C .. Data statements .. + DATA xnum/-0.322232431088D0,-1.000000000000D0,-0.342242088547D0, + + -0.204231210245D-1,-0.453642210148D-4/ + DATA xden/0.993484626060D-1,0.588581570495D0,0.531103462366D0, + + 0.103537752850D0,0.38560700634D-2/ +C .. +C .. Executable Statements .. + IF (.NOT. (p.LE.0.5D0)) GO TO 10 + sign = -1.0D0 + z = p + GO TO 20 + + 10 sign = 1.0D0 + z = 1.0D0 - p + 20 y = sqrt(-2.0D0*log(z)) + stvaln = y + devlpl(xnum,5,y)/devlpl(xden,5,y) + stvaln = sign*stvaln + RETURN + + END diff --git a/modules/statistics/src/dcdflib/stvaln.lo b/modules/statistics/src/dcdflib/stvaln.lo new file mode 100755 index 000000000..4927f6dfe --- /dev/null +++ b/modules/statistics/src/dcdflib/stvaln.lo @@ -0,0 +1,12 @@ +# src/dcdflib/stvaln.lo - a libtool object file +# Generated by libtool (GNU libtool) 2.4.2 +# +# Please DO NOT delete this file! +# It is necessary for linking the library. + +# Name of the PIC object. +pic_object='.libs/stvaln.o' + +# Name of the non-PIC object +non_pic_object=none + diff --git a/modules/statistics/statistics.iss b/modules/statistics/statistics.iss new file mode 100755 index 000000000..7a7527f5b --- /dev/null +++ b/modules/statistics/statistics.iss @@ -0,0 +1,43 @@ +; +; Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +; Copyright (C) INRIA - Allan CORNET +; Copyright (C) DIGITEO - 2010 - Allan CORNET +; +; This file must be used under the terms of the CeCILL. +; This source file is licensed as described in the file COPYING, which +; you should have received as part of this distribution. The terms +; are also available at +; http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt +; +;-------------------------------------------------------------------------------------------------------------- +; Inno Setup Script (5.3 and more) for Scilab (UNICODE version required) +; +;-------------------------------------------------------------------------------------------------------------- +; statistics module +;-------------------------------------------------------------------------------------------------------------- +; +#define STATISTICS "statistics" + +Source: bin\{#STATISTICS}.dll; DestDir: {app}\bin; Components: {#COMPN_SCILAB} +Source: bin\dcd_f.dll; DestDir: {app}\bin; Components: {#COMPN_SCILAB} +; +Source: modules\{#STATISTICS}\license.txt; DestDir: {app}\modules\{#STATISTICS}; Components: {#COMPN_SCILAB} +; +Source: modules\{#STATISTICS}\sci_gateway\{#STATISTICS}_gateway.xml; DestDir: {app}\modules\{#STATISTICS}\sci_gateway; Components: {#COMPN_SCILAB} +; +Source: modules\{#STATISTICS}\etc\{#STATISTICS}.quit; DestDir: {app}\modules\{#STATISTICS}\etc; Components: {#COMPN_SCILAB} +Source: modules\{#STATISTICS}\etc\{#STATISTICS}.start; DestDir: {app}\modules\{#STATISTICS}\etc; Components: {#COMPN_SCILAB} +; +Source: modules\{#STATISTICS}\macros\lib; DestDir: {app}\modules\{#STATISTICS}\macros; Components: {#COMPN_SCILAB} +Source: modules\{#STATISTICS}\macros\names; DestDir: {app}\modules\{#STATISTICS}\macros; Components: {#COMPN_SCILAB} +Source: modules\{#STATISTICS}\macros\*.bin; DestDir: {app}\modules\{#STATISTICS}\macros; Components: {#COMPN_SCILAB} +Source: modules\{#STATISTICS}\macros\*.sci; DestDir: {app}\modules\{#STATISTICS}\macros; Components: {#COMPN_SCILAB} +Source: modules\{#STATISTICS}\macros\buildmacros.sce; DestDir: {app}\modules\{#STATISTICS}\macros; Components: {#COMPN_SCILAB} +Source: modules\{#STATISTICS}\macros\buildmacros.bat; DestDir: {app}\modules\{#STATISTICS}\macros; Components: {#COMPN_SCILAB} +Source: modules\{#STATISTICS}\macros\cleanmacros.bat; DestDir: {app}\modules\{#STATISTICS}\macros; Components: {#COMPN_SCILAB} +; +;Source: modules\{#STATISTICS}\demos\*.*; DestDir: {app}\modules\{#STATISTICS}\demos; Flags: recursesubdirs; Components: {#COMPN_SCILAB} +; +Source: modules\{#STATISTICS}\tests\*.*; DestDir: {app}\modules\{#STATISTICS}\tests; Flags: recursesubdirs; Components: {#COMPN_SCILAB} and {#COMPN_TESTS} +; +;-------------------------------------------------------------------------------------------------------------- diff --git a/modules/statistics/tests/benchmarks/bench_pca.tst b/modules/statistics/tests/benchmarks/bench_pca.tst new file mode 100755 index 000000000..bf6556a6f --- /dev/null +++ b/modules/statistics/tests/benchmarks/bench_pca.tst @@ -0,0 +1,18 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2007-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +//============================================================================== +// Benchmark for sva function +//============================================================================== + +// <-- BENCH NB RUN : 100 --> +stacksize(80000000); +A = rand(1000,100,'n'); + +// <-- BENCH START --> +[lambda,facpr,comprinc] = pca(A); +// <-- BENCH END --> diff --git a/modules/statistics/tests/nonreg_tests/bug_11209.dia.ref b/modules/statistics/tests/nonreg_tests/bug_11209.dia.ref new file mode 100755 index 000000000..fdef80260 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_11209.dia.ref @@ -0,0 +1,20 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Sylvestre Ledru +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// <-- Non-regression test for bug 11209 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=11209 +// +// <-- Short Description --> +// variance returned wrong results for complex arguments. +// ============================================================================= +a = [1,2,3,4,5]; +b = a + a*%i; +assert_checkequal(variance(a),2.5); +assert_checkalmostequal(variance(b), 5); +assert_checkfalse(variance(b) == 5*%i); diff --git a/modules/statistics/tests/nonreg_tests/bug_11209.tst b/modules/statistics/tests/nonreg_tests/bug_11209.tst new file mode 100755 index 000000000..5a988bf0d --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_11209.tst @@ -0,0 +1,22 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Sylvestre Ledru +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> + +// <-- Non-regression test for bug 11209 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=11209 +// +// <-- Short Description --> +// variance returned wrong results for complex arguments. +// ============================================================================= +a = [1,2,3,4,5]; +b = a + a*%i; +assert_checkequal(variance(a),2.5); +assert_checkalmostequal(variance(b), 5); +assert_checkfalse(variance(b) == 5*%i); diff --git a/modules/statistics/tests/nonreg_tests/bug_1239.dia.ref b/modules/statistics/tests/nonreg_tests/bug_1239.dia.ref new file mode 100755 index 000000000..6cdf35cd7 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_1239.dia.ref @@ -0,0 +1,29 @@ +// <-- Non-regression test for bug 1239 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=1239 +// +// <-- Short Description --> +// This bug was found by Marek. He says us in the newsgroup: +// +// It seems that nanmax, nanmin functions are not working well, +// or at +// least not according to documentation(they should supposedly +// ignore %nan +// values). I get the wollowing results in scilab 3.0: +// +// -->nanmax([%nan, -1]) +// ans = Inf +// +// -->nanmax([%nan, 1]) +// ans = Inf +// The same for nanmin. +// ======================================================== +// +// Btw, on a scilab cvs I don't see any problem with nanmin. +// +// Bruno +// Author : Scilab Project - Pierre MARECHAL +// Copyright INRIA +// Date : 21 Mar 2005 +if( (nanmax([%nan, -1]) <> -1) | (nanmax([%nan, 1]) <> 1) | (nanmin([%nan, -1]) <> -1) | (nanmin([%nan, 1]) <> 1) ) then bugmes();quit;end diff --git a/modules/statistics/tests/nonreg_tests/bug_1239.tst b/modules/statistics/tests/nonreg_tests/bug_1239.tst new file mode 100755 index 000000000..aefbf6825 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_1239.tst @@ -0,0 +1,34 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2005-2008 - INRIA -Pierre MARECHAL <pierre.marechal@inria.fr> +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- Non-regression test for bug 1239 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=1239 +// +// <-- Short Description --> +// This bug was found by Marek. He says us in the newsgroup: +// +// It seems that nanmax, nanmin functions are not working well, +// or at +// least not according to documentation(they should supposedly +// ignore %nan +// values). I get the wollowing results in scilab 3.0: +// +// -->nanmax([%nan, -1]) +// ans = Inf +// +// -->nanmax([%nan, 1]) +// ans = Inf +// The same for nanmin. +// ======================================================== +// +// Btw, on a scilab cvs I don't see any problem with nanmin. +// +// Bruno + +if( (nanmax([%nan, -1]) <> -1) | (nanmax([%nan, 1]) <> 1) | (nanmin([%nan, -1]) <> -1) | (nanmin([%nan, 1]) <> 1) ) then pause,end diff --git a/modules/statistics/tests/nonreg_tests/bug_12993.dia.ref b/modules/statistics/tests/nonreg_tests/bug_12993.dia.ref new file mode 100755 index 000000000..9dbab9e58 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_12993.dia.ref @@ -0,0 +1,22 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +// <-- CLI SHELL MODE --> +// +// <-- Non-regression test for bug 12993 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=12993 +// +// <-- Short Description --> +// stdev with no input arguments gave an erroneous result. +// ============================================================================= +clear x; +refMsg = msprintf(_("%s: Wrong number of input arguments: %d to %d expected.\n"), "stdev", 1, 3); +assert_checkerror("stdev;", refMsg); +x = 1:3; +assert_checkerror("stdev;", refMsg); diff --git a/modules/statistics/tests/nonreg_tests/bug_12993.tst b/modules/statistics/tests/nonreg_tests/bug_12993.tst new file mode 100755 index 000000000..098c24993 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_12993.tst @@ -0,0 +1,24 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +// <-- CLI SHELL MODE --> +// +// <-- Non-regression test for bug 12993 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=12993 +// +// <-- Short Description --> +// stdev with no input arguments gave an erroneous result. +// ============================================================================= + +clear x; + +refMsg = msprintf(_("%s: Wrong number of input arguments: %d to %d expected.\n"), "stdev", 1, 3); +assert_checkerror("stdev;", refMsg); +x = 1:3; +assert_checkerror("stdev;", refMsg); diff --git a/modules/statistics/tests/nonreg_tests/bug_13050.dia.ref b/modules/statistics/tests/nonreg_tests/bug_13050.dia.ref new file mode 100755 index 000000000..91c76efc4 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_13050.dia.ref @@ -0,0 +1,26 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// +// <-- ENGLISH IMPOSED --> +// +// <-- Non-regression test for bug 13050 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=13050 +// +// <-- Short Description --> +// The result of mvvacov was not symmetric. +// ============================================================================= +x = 1.e8 * rand(100, 3); +M = mvvacov(x); +WARNING: Feature mvvacov is obsolete. + Please use cov instead. + This feature will be permanently removed in Scilab 6.0.0 + +[m, n] = size(M); +assert_checkequal(M-M', zeros(m, n)); diff --git a/modules/statistics/tests/nonreg_tests/bug_13050.tst b/modules/statistics/tests/nonreg_tests/bug_13050.tst new file mode 100755 index 000000000..c3b005cda --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_13050.tst @@ -0,0 +1,24 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> +// +// <-- ENGLISH IMPOSED --> +// +// <-- Non-regression test for bug 13050 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=13050 +// +// <-- Short Description --> +// The result of mvvacov was not symmetric. +// ============================================================================= + +x = 1.e8 * rand(100, 3); +M = mvvacov(x); +[m, n] = size(M); +assert_checkequal(M-M', zeros(m, n)); diff --git a/modules/statistics/tests/nonreg_tests/bug_13208.dia.ref b/modules/statistics/tests/nonreg_tests/bug_13208.dia.ref new file mode 100755 index 000000000..e37b2fb38 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_13208.dia.ref @@ -0,0 +1,49 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2014 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +// <-- CLI SHELL MODE --> +// +// <-- Non-regression test for bug 13208 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=13208 +// +// <-- Short Description --> +// reglin returned NaNs when y contained NaNs. +// ============================================================================= +// In the following case, we can graphically see that a1 and b1 sould be equal +// to a2 and b2, because both problems represent two straight lines: +// one goes from from (0,0) to (10,10) and the other one goes from (0,20) to (10,30). +x = 0:10; +y = 20:30; +[a1, b1] = reglin(x, [x ; y]); +y(2:10) = %nan; // Leaving y(1) and y(11) unchanged. +[a2, b2] = nanreglin(x, [x ; y]); +assert_checkequal([a1 b1], [a2 b2]); +// Now both problems represent one straight line (reglin(x, x)) from (0,0) to (2,2), +// but while the second argument of the first problem (reglin(x, y)) represents +// a flat line (with equation y = 1), the second argument of the second problem +// (reglin(x, y2)) ignores the central point of y (set to %nan) so the flat line +// now has equation y = 0, because the two remaining points are (0,0) and (2,0). +x = 0:2; +y = [0 3 0]; +[a, b] = reglin(x, [x ; y]); +assert_checkequal(a, [1 ; 0]); +assert_checkequal(b, [0 ; 1]); +y2 = y; +y2(2) = %nan; // y2 = [0 %nan 0]; +[a, b] = nanreglin(x, [x ; y2]); +assert_checkequal(a, [1 ; 0]); +assert_checkequal(b, [0 ; 0]); +// Error checks +x = 1:3; +y = 1:3; +refMsg = msprintf(_("%s: No NaNs detected, please use %s() instead.\n"), "nanreglin", "reglin"); +assert_checkerror("[a, b] = nanreglin(x, [x ; y])", refMsg); +y = [1 %nan 3]; +refMsg = msprintf(_("%s: NaNs detected, please use %s() instead.\n"), "reglin", "nanreglin"); +assert_checkerror("[a, b, sig] = reglin(x, [x ; y])", refMsg); diff --git a/modules/statistics/tests/nonreg_tests/bug_13208.tst b/modules/statistics/tests/nonreg_tests/bug_13208.tst new file mode 100755 index 000000000..47fbc2c22 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_13208.tst @@ -0,0 +1,58 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2014 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +// <-- CLI SHELL MODE --> +// +// <-- Non-regression test for bug 13208 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=13208 +// +// <-- Short Description --> +// reglin returned NaNs when y contained NaNs. +// ============================================================================= + +// In the following case, we can graphically see that a1 and b1 sould be equal +// to a2 and b2, because both problems represent two straight lines: +// one goes from from (0,0) to (10,10) and the other one goes from (0,20) to (10,30). +x = 0:10; +y = 20:30; +[a1, b1] = reglin(x, [x ; y]); + +y(2:10) = %nan; // Leaving y(1) and y(11) unchanged. +[a2, b2] = nanreglin(x, [x ; y]); +assert_checkequal([a1 b1], [a2 b2]); + + +// Now both problems represent one straight line (reglin(x, x)) from (0,0) to (2,2), +// but while the second argument of the first problem (reglin(x, y)) represents +// a flat line (with equation y = 1), the second argument of the second problem +// (reglin(x, y2)) ignores the central point of y (set to %nan) so the flat line +// now has equation y = 0, because the two remaining points are (0,0) and (2,0). +x = 0:2; +y = [0 3 0]; +[a, b] = reglin(x, [x ; y]); +assert_checkequal(a, [1 ; 0]); +assert_checkequal(b, [0 ; 1]); + +y2 = y; +y2(2) = %nan; // y2 = [0 %nan 0]; +[a, b] = nanreglin(x, [x ; y2]); +assert_checkequal(a, [1 ; 0]); +assert_checkequal(b, [0 ; 0]); + + +// Error checks +x = 1:3; +y = 1:3; +refMsg = msprintf(_("%s: No NaNs detected, please use %s() instead.\n"), "nanreglin", "reglin"); +assert_checkerror("[a, b] = nanreglin(x, [x ; y])", refMsg); + +y = [1 %nan 3]; +refMsg = msprintf(_("%s: NaNs detected, please use %s() instead.\n"), "reglin", "nanreglin"); +assert_checkerror("[a, b, sig] = reglin(x, [x ; y])", refMsg); + diff --git a/modules/statistics/tests/nonreg_tests/bug_13605.dia.ref b/modules/statistics/tests/nonreg_tests/bug_13605.dia.ref new file mode 100755 index 000000000..53c7484cc --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_13605.dia.ref @@ -0,0 +1,23 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2014 - Scilab Enterprises - Vladislav TRUBKIN +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- Non-regression test for bug 13605 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=13605 +// +// <-- Short Description --> +// There was an inverted result value with parameters "r" or "c". +a = [1:10; 1:10]; +withParam = harmean(a, "c"); +withoutParam = harmean(a(1, :)); +assert_checkequal(withParam(1), withoutParam); +assert_checkequal(withParam(2), withoutParam); +a = [1:10; 1:10]'; +withParam = harmean(a, "r"); +withoutParam = harmean(a(:, 1)); +assert_checkequal(withParam(1), withoutParam); +assert_checkequal(withParam(2), withoutParam); diff --git a/modules/statistics/tests/nonreg_tests/bug_13605.tst b/modules/statistics/tests/nonreg_tests/bug_13605.tst new file mode 100755 index 000000000..98e66bf9d --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_13605.tst @@ -0,0 +1,24 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2014 - Scilab Enterprises - Vladislav TRUBKIN +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- Non-regression test for bug 13605 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=13605 +// +// <-- Short Description --> +// There was an inverted result value with parameters "r" or "c". + +a = [1:10; 1:10]; +withParam = harmean(a, "c"); +withoutParam = harmean(a(1, :)); +assert_checkequal(withParam(1), withoutParam); +assert_checkequal(withParam(2), withoutParam); +a = [1:10; 1:10]'; +withParam = harmean(a, "r"); +withoutParam = harmean(a(:, 1)); +assert_checkequal(withParam(1), withoutParam); +assert_checkequal(withParam(2), withoutParam); diff --git a/modules/statistics/tests/nonreg_tests/bug_13681.dia.ref b/modules/statistics/tests/nonreg_tests/bug_13681.dia.ref new file mode 100755 index 000000000..d4a0b636a --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_13681.dia.ref @@ -0,0 +1,23 @@ +// ============================================================================ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2015 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================ +// <-- Non-regression test for bug 13681 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=13681 +// +// <-- Short Description --> +// Calling cdfnor to get the "X" vector sometimes produced a vector with some NaN +// values. +Mean = 0; +Std = 1; +val = [9, 15, 30, 60, 100, 1000]; +for i = 1:6 + p = linspace(1e-10,1-1e-10, val(i)); + q = 1-p; + x = cdfnor("X", Mean*ones(p), Std*ones(p), p, q); + assert_checkequal(find(isnan(x)), []); +end diff --git a/modules/statistics/tests/nonreg_tests/bug_13681.tst b/modules/statistics/tests/nonreg_tests/bug_13681.tst new file mode 100755 index 000000000..4ce2fcd35 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_13681.tst @@ -0,0 +1,25 @@ +// ============================================================================ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2015 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================ + +// <-- Non-regression test for bug 13681 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=13681 +// +// <-- Short Description --> +// Calling cdfnor to get the "X" vector sometimes produced a vector with some NaN +// values. + +Mean = 0; +Std = 1; +val = [9, 15, 30, 60, 100, 1000]; +for i = 1:6 + p = linspace(1e-10,1-1e-10, val(i)); + q = 1-p; + x = cdfnor("X", Mean*ones(p), Std*ones(p), p, q); + assert_checkequal(find(isnan(x)), []); +end diff --git a/modules/statistics/tests/nonreg_tests/bug_1742.dia.ref b/modules/statistics/tests/nonreg_tests/bug_1742.dia.ref new file mode 100755 index 000000000..2e7da1151 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_1742.dia.ref @@ -0,0 +1,29 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2006-2008 - INRIA -Serge STEER <serge.steer@inria.fr> +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- Non-regression test for bug 1742 --> +// +// <-- ENGLISH IMPOSED --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=1742 +// +// <-- Short Description --> +// function [m]=stdev(x,orien) +// //This function computes the mean squared deviation of the values of a +// //vector or matrix x. +// +// elseif orien=='r'|orien==1 then +// m=sqrt(sum((x-ones(x(:,1))*mean(x,'r')).^2,'r')/ncol); +// +// This formula is wrong. Must be canged in: +// m=sqrt(sum((x-ones(x(:,1))*mean(x,'r')).^2,'r')/nrow); +x=matrix([5 2:8],2,4); +if (stdev(x)-3.5) >= %eps then bugmes();quit;end +if norm(stdev(x,1,mean(x, 1))-[3 1 1 1]/2) >= %eps then bugmes();quit;end +if norm(stdev(x,"r",mean(x, 1))-[3 1 1 1]/2) >= %eps then bugmes();quit;end +if norm(stdev(x,2,mean(x, 2))-sqrt([2;5])) >= %eps then bugmes();quit;end +if norm(stdev(x,"c",mean(x, 2))-sqrt([2;5])) >= %eps then bugmes();quit;end diff --git a/modules/statistics/tests/nonreg_tests/bug_1742.tst b/modules/statistics/tests/nonreg_tests/bug_1742.tst new file mode 100755 index 000000000..ff17c1649 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_1742.tst @@ -0,0 +1,32 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2006-2008 - INRIA -Serge STEER <serge.steer@inria.fr> +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- Non-regression test for bug 1742 --> +// +// <-- ENGLISH IMPOSED --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=1742 +// +// <-- Short Description --> +// function [m]=stdev(x,orien) +// //This function computes the mean squared deviation of the values of a +// //vector or matrix x. +// +// elseif orien=='r'|orien==1 then +// m=sqrt(sum((x-ones(x(:,1))*mean(x,'r')).^2,'r')/ncol); +// +// This formula is wrong. Must be canged in: +// m=sqrt(sum((x-ones(x(:,1))*mean(x,'r')).^2,'r')/nrow); + +x=matrix([5 2:8],2,4); + +if (stdev(x)-3.5) >= %eps then pause,end +if norm(stdev(x,1,mean(x, 1))-[3 1 1 1]/2) >= %eps then pause,end +if norm(stdev(x,"r",mean(x, 1))-[3 1 1 1]/2) >= %eps then pause,end +if norm(stdev(x,2,mean(x, 2))-sqrt([2;5])) >= %eps then pause,end +if norm(stdev(x,"c",mean(x, 2))-sqrt([2;5])) >= %eps then pause,end diff --git a/modules/statistics/tests/nonreg_tests/bug_2022.dia.ref b/modules/statistics/tests/nonreg_tests/bug_2022.dia.ref new file mode 100755 index 000000000..10c67d55f --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_2022.dia.ref @@ -0,0 +1,32 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2006-2008 - INRIA -Pierre MARECHAL <pierre.marechal@inria.fr> +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- Non-regression test for bug 2022 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=2022 +// +// <-- Short Description --> +// percentile function (perctl) doesn't always calculate percentile value, instead +// choosing to error out: +// +// Example that causes error: +// +// perctl([23.4,364.34,1929.3,4234.3,293.3,928.3],[10]) +val1 = perctl([500 480 460 453 452 452 451 450 450 431 421 420 420 417 416 414 410 410 405 397 380 360 332],90); +if or( val1 <> [472 3] ) then bugmes();quit;end +val2 = perctl([500 480 460 453 452 452 451 450 450 431 421 420 420 417 416 414 410 410 405 397 380 360 332],75); +if (or(val2 <> [452 5]) & or(val2 <> [452 6]) ) then bugmes();quit;end +val3 = perctl([500 480 460 453 452 452 451 450 450 431 421 420 420 417 416 414 410 410 405 397 380 360 332],10); +if or( val3 <> [368 22] ) then bugmes();quit;end +val4 = perctl([500 480 460 453 452 452 451 450 450 431 421 420 420 417 416 414 410 410 405 397 380 360 332],1); +if or( val4 <> [332 23] ) then bugmes();quit;end +val5 = perctl([500 480 460 453 452 452 451 450 450 431 421 420 420 417 416 414 410 410 405 397 380 360 332],2); +if or( val5 <> [332 23] ) then bugmes();quit;end +val6 = perctl([500 480 460 453 452 452 451 450 450 431 421 420 420 417 416 414 410 410 405 397 380 360 332],99); +if or( val6 <> [500 1] ) then bugmes();quit;end +val = perctl([23.4,364.34,1929.3,4234.3,293.3,928.3],[10]); +if or( val <> [23.4 1] ) then bugmes();quit;end diff --git a/modules/statistics/tests/nonreg_tests/bug_2022.tst b/modules/statistics/tests/nonreg_tests/bug_2022.tst new file mode 100755 index 000000000..7c89cf6b4 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_2022.tst @@ -0,0 +1,40 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2006-2008 - INRIA -Pierre MARECHAL <pierre.marechal@inria.fr> +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- Non-regression test for bug 2022 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=2022 +// +// <-- Short Description --> +// percentile function (perctl) doesn't always calculate percentile value, instead +// choosing to error out: +// +// Example that causes error: +// +// perctl([23.4,364.34,1929.3,4234.3,293.3,928.3],[10]) + +val1 = perctl([500 480 460 453 452 452 451 450 450 431 421 420 420 417 416 414 410 410 405 397 380 360 332],90); +if or( val1 <> [472 3] ) then pause,end + +val2 = perctl([500 480 460 453 452 452 451 450 450 431 421 420 420 417 416 414 410 410 405 397 380 360 332],75); +if (or(val2 <> [452 5]) & or(val2 <> [452 6]) ) then pause,end + +val3 = perctl([500 480 460 453 452 452 451 450 450 431 421 420 420 417 416 414 410 410 405 397 380 360 332],10); +if or( val3 <> [368 22] ) then pause,end + +val4 = perctl([500 480 460 453 452 452 451 450 450 431 421 420 420 417 416 414 410 410 405 397 380 360 332],1); +if or( val4 <> [332 23] ) then pause,end + +val5 = perctl([500 480 460 453 452 452 451 450 450 431 421 420 420 417 416 414 410 410 405 397 380 360 332],2); +if or( val5 <> [332 23] ) then pause,end + +val6 = perctl([500 480 460 453 452 452 451 450 450 431 421 420 420 417 416 414 410 410 405 397 380 360 332],99); +if or( val6 <> [500 1] ) then pause,end + +val = perctl([23.4,364.34,1929.3,4234.3,293.3,928.3],[10]); +if or( val <> [23.4 1] ) then pause,end diff --git a/modules/statistics/tests/nonreg_tests/bug_2083.dia.ref b/modules/statistics/tests/nonreg_tests/bug_2083.dia.ref new file mode 100755 index 000000000..c0679de15 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_2083.dia.ref @@ -0,0 +1,19 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2005-2008 - INRIA - Serge Steer +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- Non-regression test for bug 2083 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=2083 +// +// <-- Short Description --> +// the function trimmean (from the statistics module) has a bug and gives +// wrong results. from the help ,trimmean(X,0) should return the mean of +// X, and trimmean(X,100) should return the median. There is an actual +X = [6,7,5,2,9; + 7,2,2,2,7]; +if trimmean(X,100)<>median(X) then bugmes();quit;end +if trimmean(X,0)<>mean(X) then bugmes();quit;end diff --git a/modules/statistics/tests/nonreg_tests/bug_2083.tst b/modules/statistics/tests/nonreg_tests/bug_2083.tst new file mode 100755 index 000000000..960b08405 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_2083.tst @@ -0,0 +1,23 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2005-2008 - INRIA - Serge Steer +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- Non-regression test for bug 2083 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=2083 +// +// <-- Short Description --> +// the function trimmean (from the statistics module) has a bug and gives +// wrong results. from the help ,trimmean(X,0) should return the mean of +// X, and trimmean(X,100) should return the median. There is an actual + +X = [6,7,5,2,9; + 7,2,2,2,7]; +if trimmean(X,100)<>median(X) then pause,end + +if trimmean(X,0)<>mean(X) then pause,end + diff --git a/modules/statistics/tests/nonreg_tests/bug_2092.dia.ref b/modules/statistics/tests/nonreg_tests/bug_2092.dia.ref new file mode 100755 index 000000000..0e8c4e846 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_2092.dia.ref @@ -0,0 +1,14 @@ +// <-- Non-regression test for bug 2092 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=2092 +// +// <-- Short Description --> +// Incorrect handling of second input argument to function mad() +// Copyright INRIA +// Scilab Project - Pierre MARECHAL +// Copyright INRIA 2006 +// Date : 17 aout 2006 +A = mad([1:10;2:11],2); +B = mad([1:10;2:11],'c'); +if or(A <> B) then bugmes();quit;end diff --git a/modules/statistics/tests/nonreg_tests/bug_2092.tst b/modules/statistics/tests/nonreg_tests/bug_2092.tst new file mode 100755 index 000000000..5a0621129 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_2092.tst @@ -0,0 +1,19 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2006-2008 - INRIA -Pierre MARECHAL <pierre.marechal@inria.fr> +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- Non-regression test for bug 2092 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=2092 +// +// <-- Short Description --> +// Incorrect handling of second input argument to function mad() + +A = mad([1:10;2:11],2); +B = mad([1:10;2:11],'c'); + +if or(A <> B) then pause,end diff --git a/modules/statistics/tests/nonreg_tests/bug_2131.dia.ref b/modules/statistics/tests/nonreg_tests/bug_2131.dia.ref new file mode 100755 index 000000000..9f8dea45a --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_2131.dia.ref @@ -0,0 +1,16 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2005-2008 - INRIA -Pierre MARECHAL <pierre.marechal@inria.fr> +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- Non-regression test for bug 2131 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=2131 +// +// <-- Short Description --> +//Inconsistent results from functions median() with given argument of []. +if ~isnan(median([])) then bugmes();quit;end +if ~isempty(median([],1)) then bugmes();quit;end +if ~isempty(median([],2)) then bugmes();quit;end diff --git a/modules/statistics/tests/nonreg_tests/bug_2131.tst b/modules/statistics/tests/nonreg_tests/bug_2131.tst new file mode 100755 index 000000000..c21816fce --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_2131.tst @@ -0,0 +1,18 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2005-2008 - INRIA -Pierre MARECHAL <pierre.marechal@inria.fr> +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- Non-regression test for bug 2131 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=2131 +// +// <-- Short Description --> +//Inconsistent results from functions median() with given argument of []. + +if ~isnan(median([])) then pause,end +if ~isempty(median([],1)) then pause,end +if ~isempty(median([],2)) then pause,end diff --git a/modules/statistics/tests/nonreg_tests/bug_2407.dia.ref b/modules/statistics/tests/nonreg_tests/bug_2407.dia.ref new file mode 100755 index 000000000..34fa236ec --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_2407.dia.ref @@ -0,0 +1,29 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2007-2008 - INRIA -Pierre MARECHAL <pierre.marechal@inria.fr> +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- Non-regression test for bug 2407 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=2407 +// +// <-- Short Description --> +// stdev and st_deviation are not available for hypermatrix. +// +// When trying to calculate stdev of an hypermatrix, an error occurs +// systematically. The stdev of an hypermatrix should be managed by the % +// hm_st_deviation function in Scilab. +// After a quick look at the code of this function, i think i've +// understood the origin of the bug. There is a mix between two variables : +// N and d. +// For example, at line 8, instruction "p1=prod(dims(1:d-1));" should be +// replace by p1=prod(dims(1:N-1)); +// I think that the replacement of d by N in all the function could solve +// the problem. +// +// Regards. +a = zeros(3,3,3); +b = stdev(a); +if b <> 0 then bugmes();quit;end diff --git a/modules/statistics/tests/nonreg_tests/bug_2407.tst b/modules/statistics/tests/nonreg_tests/bug_2407.tst new file mode 100755 index 000000000..3fd23064e --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_2407.tst @@ -0,0 +1,32 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2007-2008 - INRIA -Pierre MARECHAL <pierre.marechal@inria.fr> +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- Non-regression test for bug 2407 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=2407 +// +// <-- Short Description --> +// stdev and st_deviation are not available for hypermatrix. +// +// When trying to calculate stdev of an hypermatrix, an error occurs +// systematically. The stdev of an hypermatrix should be managed by the % +// hm_st_deviation function in Scilab. +// After a quick look at the code of this function, i think i've +// understood the origin of the bug. There is a mix between two variables : +// N and d. +// For example, at line 8, instruction "p1=prod(dims(1:d-1));" should be +// replace by p1=prod(dims(1:N-1)); +// I think that the replacement of d by N in all the function could solve +// the problem. +// +// Regards. + +a = zeros(3,3,3); +b = stdev(a); + +if b <> 0 then pause,end diff --git a/modules/statistics/tests/nonreg_tests/bug_2546.dia.ref b/modules/statistics/tests/nonreg_tests/bug_2546.dia.ref new file mode 100755 index 000000000..7e1dec6c8 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_2546.dia.ref @@ -0,0 +1,14 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2005-2008 - INRIA - Serge Steer +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- Non-regression test for bug 2546 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=2546 +// +// <-- Short Description --> +// median(matrix,'c') errors when matrix contains exactly one row. +if abs(median([1, 2, 3], 'c')-2)>%eps then bugmes();quit;end diff --git a/modules/statistics/tests/nonreg_tests/bug_2546.tst b/modules/statistics/tests/nonreg_tests/bug_2546.tst new file mode 100755 index 000000000..aceb7f3f7 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_2546.tst @@ -0,0 +1,16 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2005-2008 - INRIA - Serge Steer +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- Non-regression test for bug 2546 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=2546 +// +// <-- Short Description --> +// median(matrix,'c') errors when matrix contains exactly one row. + +if abs(median([1, 2, 3], 'c')-2)>%eps then pause,end diff --git a/modules/statistics/tests/nonreg_tests/bug_316.dia.ref b/modules/statistics/tests/nonreg_tests/bug_316.dia.ref new file mode 100755 index 000000000..adab0119f --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_316.dia.ref @@ -0,0 +1,23 @@ +// ============================================================================ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) ????-2008 - INRIA - Sylvestre LEDRU +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================ +// <-- Non-regression test for bug 316 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=316 +// +// <-- Short Description --> +// The description for the "Mean" function is in error: +// the parameter "r" really does the column average, while the "c" +// parameter does the row +a = [ 1 1 1 ; 2 2 2 ; 3 3 3 ] + a = + + 1. 1. 1. + 2. 2. 2. + 3. 3. 3. +if size(mean(a,'r')) <> [ 1, 3] then bugmes();quit;end +if size(mean(a,'c')) <> [ 3, 1] then bugmes();quit;end diff --git a/modules/statistics/tests/nonreg_tests/bug_316.tst b/modules/statistics/tests/nonreg_tests/bug_316.tst new file mode 100755 index 000000000..d23ca7d13 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_316.tst @@ -0,0 +1,21 @@ +// ============================================================================ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) ????-2008 - INRIA - Sylvestre LEDRU +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================ + +// <-- Non-regression test for bug 316 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=316 +// +// <-- Short Description --> +// The description for the "Mean" function is in error: +// the parameter "r" really does the column average, while the "c" +// parameter does the row + +a = [ 1 1 1 ; 2 2 2 ; 3 3 3 ] + +if size(mean(a,'r')) <> [ 1, 3] then pause, end +if size(mean(a,'c')) <> [ 3, 1] then pause, end diff --git a/modules/statistics/tests/nonreg_tests/bug_3640.dia.ref b/modules/statistics/tests/nonreg_tests/bug_3640.dia.ref new file mode 100755 index 000000000..5656f3683 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_3640.dia.ref @@ -0,0 +1,31 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2008 - DIGITEO - Allan CORNET +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- Non-regression test for bug 3640 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=3640 +// +// <-- Short Description --> +// Calculating the mean value in the 3rd dimension "mean(A,3)", gives an error for input matrices of a certain size +test = rand(150,1,165); +assert_checkfalse(execstr("r = mean(test,3);" ,"errcatch") <> 0); +assert_checkequal(size(r), [150 1]); +test = rand(150,1,166); +assert_checkfalse(execstr("r = mean(test,3);" ,"errcatch") <> 0); +assert_checkequal(size(r), [150 1]); +test = rand(1000,1,165); +assert_checkfalse(execstr("r = mean(test,3);" ,"errcatch") <> 0); +assert_checkequal(size(r), [1000 1]); +test = rand(1000,1,166); +assert_checkfalse(execstr("r = mean(test,3);" ,"errcatch") <> 0); +assert_checkequal(size(r), [1000 1]); +test = rand(250,1,165); +assert_checkfalse(execstr("r = mean(test,3);" ,"errcatch") <> 0); +assert_checkequal(size(r), [250 1]); +test = rand(250,1,166); +assert_checkfalse(execstr("r = mean(test,3);" ,"errcatch") <> 0); +assert_checkequal(size(r), [250 1]); diff --git a/modules/statistics/tests/nonreg_tests/bug_3640.tst b/modules/statistics/tests/nonreg_tests/bug_3640.tst new file mode 100755 index 000000000..cc0d5e2e7 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_3640.tst @@ -0,0 +1,39 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2008 - DIGITEO - Allan CORNET +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- Non-regression test for bug 3640 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=3640 +// +// <-- Short Description --> +// Calculating the mean value in the 3rd dimension "mean(A,3)", gives an error for input matrices of a certain size + + +test = rand(150,1,165); +assert_checkfalse(execstr("r = mean(test,3);" ,"errcatch") <> 0); +assert_checkequal(size(r), [150 1]); + +test = rand(150,1,166); +assert_checkfalse(execstr("r = mean(test,3);" ,"errcatch") <> 0); +assert_checkequal(size(r), [150 1]); + +test = rand(1000,1,165); +assert_checkfalse(execstr("r = mean(test,3);" ,"errcatch") <> 0); +assert_checkequal(size(r), [1000 1]); + +test = rand(1000,1,166); +assert_checkfalse(execstr("r = mean(test,3);" ,"errcatch") <> 0); +assert_checkequal(size(r), [1000 1]); + +test = rand(250,1,165); +assert_checkfalse(execstr("r = mean(test,3);" ,"errcatch") <> 0); +assert_checkequal(size(r), [250 1]); + +test = rand(250,1,166); +assert_checkfalse(execstr("r = mean(test,3);" ,"errcatch") <> 0); +assert_checkequal(size(r), [250 1]); diff --git a/modules/statistics/tests/nonreg_tests/bug_3962.dia.ref b/modules/statistics/tests/nonreg_tests/bug_3962.dia.ref new file mode 100755 index 000000000..c57f4b35c --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_3962.dia.ref @@ -0,0 +1,16 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2005-2009 - INRIA - Serge Steer +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- Non-regression test for bug 3962 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=3962 +// +// <-- Short Description --> +// First lhs argument of pca no more contains a second column. +a=rand(100,10,'n'); +[lambda,facpr,comprinc] = pca(a); +if size(lambda,2)<>2 then bugmes();quit;end diff --git a/modules/statistics/tests/nonreg_tests/bug_3962.tst b/modules/statistics/tests/nonreg_tests/bug_3962.tst new file mode 100755 index 000000000..d05d93f0b --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_3962.tst @@ -0,0 +1,19 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2005-2009 - INRIA - Serge Steer +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- Non-regression test for bug 3962 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=3962 +// +// <-- Short Description --> +// First lhs argument of pca no more contains a second column. + +a=rand(100,10,'n'); +[lambda,facpr,comprinc] = pca(a); +if size(lambda,2)<>2 then pause,end + diff --git a/modules/statistics/tests/nonreg_tests/bug_534.dia.ref b/modules/statistics/tests/nonreg_tests/bug_534.dia.ref new file mode 100755 index 000000000..967745c70 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_534.dia.ref @@ -0,0 +1,29 @@ +// <-- Non-regression test for bug 534 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=534 +// +// <-- Short Description --> +// Bug Report Id: 030132003929164110 +// In order to correct error in command "geomean" it is necessary to +// 1) take the place of +// gm=prod(x)^(1/length(a)) +// on +// gm=prod(x)^(1/length(x)) +// and +// 2) take the place of +// gm=prod(x,orien).^(1/size(a,orien)) +// on +// gm=prod(x,orien).^(1/size(x,orien)) +// +// +// On Scilab 2.7.2 with " statistics " function +// The Error Messages are: +// !--error 4 +// undefined variable : a +// at line 25 of function geomean called by : +// g=geomean(x); +// Commands: x=[3 1 5]; +// ... +x=[3 1 5]; +if execstr("geomean(x)","errcatch")<>0 then bugmes();quit;end diff --git a/modules/statistics/tests/nonreg_tests/bug_534.tst b/modules/statistics/tests/nonreg_tests/bug_534.tst new file mode 100755 index 000000000..1d085f671 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_534.tst @@ -0,0 +1,37 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) ????-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- Non-regression test for bug 534 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=534 +// +// <-- Short Description --> +// Bug Report Id: 030132003929164110 +// In order to correct error in command "geomean" it is necessary to +// 1) take the place of +// gm=prod(x)^(1/length(a)) +// on +// gm=prod(x)^(1/length(x)) +// and +// 2) take the place of +// gm=prod(x,orien).^(1/size(a,orien)) +// on +// gm=prod(x,orien).^(1/size(x,orien)) +// +// +// On Scilab 2.7.2 with " statistics " function +// The Error Messages are: +// !--error 4 +// undefined variable : a +// at line 25 of function geomean called by : +// g=geomean(x); +// Commands: x=[3 1 5]; +// ... + +x=[3 1 5]; +if execstr("geomean(x)","errcatch")<>0 then pause,end diff --git a/modules/statistics/tests/nonreg_tests/bug_6306.dia.ref b/modules/statistics/tests/nonreg_tests/bug_6306.dia.ref new file mode 100755 index 000000000..06d1f52a5 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_6306.dia.ref @@ -0,0 +1,53 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +// <-- TEST WITH GRAPHIC --> +// +// <-- Non-regression test for bug 6306 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=6306 +// +// <-- Short Description --> +// It was not possible to retrieve the data computed by histplot. +// Also, new function histc to compute histogram data instead of plotting it. +d = rand(1, 10000, "normal"); +[cfC, indC] = histc(20, d); +[cfP, indP] = histplot(20, d); +assert_checkequal(indC, indP); +assert_checkalmostequal(cfC, cfP); +[cfC, indC] = histc(20, d, normalization=%f); +[cfP, indP] = histplot(20, d, normalization=%f); +assert_checkequal(indC, indP); +assert_checkalmostequal(cfC, cfP); +[cfC, indC] = histc([-1 0 1], d); +[cfP, indP] = histplot([-1 0 1], d); +assert_checkequal(indC, indP); +assert_checkalmostequal(cfC, cfP); +[cfC, indC] = histc([-1 0 1], d, normalization=%f); +[cfP, indP] = histplot([-1 0 1], d, normalization=%f); +assert_checkequal(indC, indP); +assert_checkalmostequal(cfC, cfP); +grand("setsd", 0); +lambda = 2; +D = grand(100000, 1, "exp", 1/lambda); +[cfC, indC] = histc(40, D); +[cfP, indP] = histplot(40, D); +assert_checkequal(indC, indP); +assert_checkalmostequal(cfC, cfP); +[cfC, indC] = histc(40, D, normalization=%f); +[cfP, indP] = histplot(40, D, normalization=%f); +assert_checkequal(indC, indP); +assert_checkalmostequal(cfC, cfP); +[cfC, indC] = histc([0 7], D); +[cfP, indP] = histplot([0 7], D); +assert_checkequal(indC, indP); +assert_checkalmostequal(cfC, cfP); +[cfC, indC] = histc([0 7], D, normalization=%f); +[cfP, indP] = histplot([0 7], D, normalization=%f); +assert_checkequal(indC, indP); +assert_checkalmostequal(cfC, cfP); diff --git a/modules/statistics/tests/nonreg_tests/bug_6306.tst b/modules/statistics/tests/nonreg_tests/bug_6306.tst new file mode 100755 index 000000000..d50eae43c --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_6306.tst @@ -0,0 +1,71 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +// <-- TEST WITH GRAPHIC --> +// +// <-- Non-regression test for bug 6306 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=6306 +// +// <-- Short Description --> +// It was not possible to retrieve the data computed by histplot. +// Also, new function histc to compute histogram data instead of plotting it. + +d = rand(1, 10000, "normal"); +[cfC, indC] = histc(20, d); +[cfP, indP] = histplot(20, d); + +assert_checkequal(indC, indP); +assert_checkalmostequal(cfC, cfP); + +[cfC, indC] = histc(20, d, normalization=%f); +[cfP, indP] = histplot(20, d, normalization=%f); + +assert_checkequal(indC, indP); +assert_checkalmostequal(cfC, cfP); + +[cfC, indC] = histc([-1 0 1], d); +[cfP, indP] = histplot([-1 0 1], d); + +assert_checkequal(indC, indP); +assert_checkalmostequal(cfC, cfP); + +[cfC, indC] = histc([-1 0 1], d, normalization=%f); +[cfP, indP] = histplot([-1 0 1], d, normalization=%f); + +assert_checkequal(indC, indP); +assert_checkalmostequal(cfC, cfP); + + + +grand("setsd", 0); +lambda = 2; +D = grand(100000, 1, "exp", 1/lambda); +[cfC, indC] = histc(40, D); +[cfP, indP] = histplot(40, D); + +assert_checkequal(indC, indP); +assert_checkalmostequal(cfC, cfP); + +[cfC, indC] = histc(40, D, normalization=%f); +[cfP, indP] = histplot(40, D, normalization=%f); + +assert_checkequal(indC, indP); +assert_checkalmostequal(cfC, cfP); + +[cfC, indC] = histc([0 7], D); +[cfP, indP] = histplot([0 7], D); + +assert_checkequal(indC, indP); +assert_checkalmostequal(cfC, cfP); + +[cfC, indC] = histc([0 7], D, normalization=%f); +[cfP, indP] = histplot([0 7], D, normalization=%f); + +assert_checkequal(indC, indP); +assert_checkalmostequal(cfC, cfP); diff --git a/modules/statistics/tests/nonreg_tests/bug_661.dia.ref b/modules/statistics/tests/nonreg_tests/bug_661.dia.ref new file mode 100755 index 000000000..789efa1ad --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_661.dia.ref @@ -0,0 +1,15 @@ +// <-- Non-regression test for bug 661 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=661 +// +// <-- Short Description --> +// the function quart(x) only works with an even x. +// Although the bug is normal, took me a whole afternoon +// of debugging of my macro to reach the conclusion +// that there was a problem with quart. +// Copyright INRIA +// Scilab Project - Serge Steer +// Copyright INRIA 2006 +// Date : 10 janvier 2006 +if or(abs(quart(1:3)-[1.25;2;2.75])>=10*%eps) then bugmes();quit;end diff --git a/modules/statistics/tests/nonreg_tests/bug_661.tst b/modules/statistics/tests/nonreg_tests/bug_661.tst new file mode 100755 index 000000000..a13dd0816 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_661.tst @@ -0,0 +1,19 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2006-2008 - INRIA - Serge STEER <serge.steer@inria.fr> +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- Non-regression test for bug 661 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=661 +// +// <-- Short Description --> +// the function quart(x) only works with an even x. +// Although the bug is normal, took me a whole afternoon +// of debugging of my macro to reach the conclusion +// that there was a problem with quart. + +if or(abs(quart(1:3)-[1.25;2;2.75])>=10*%eps) then pause,end diff --git a/modules/statistics/tests/nonreg_tests/bug_7204.dia.ref b/modules/statistics/tests/nonreg_tests/bug_7204.dia.ref new file mode 100755 index 000000000..19470a7f6 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_7204.dia.ref @@ -0,0 +1,19 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Sylvestre Ledru +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// <-- Non-regression test for bug 7204 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=7204 +// +// <-- Short Description --> +// geomean(v) applied to an hypermat v gives wrong result +// ============================================================================= +v=rand(2,2,2); +a=geomean(v); +b=prod(v)^(1/8); +assert_checkalmostequal(a,b); diff --git a/modules/statistics/tests/nonreg_tests/bug_7204.tst b/modules/statistics/tests/nonreg_tests/bug_7204.tst new file mode 100755 index 000000000..dba93636f --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_7204.tst @@ -0,0 +1,22 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Sylvestre Ledru +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> + +// <-- Non-regression test for bug 7204 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=7204 +// +// <-- Short Description --> +// geomean(v) applied to an hypermat v gives wrong result +// ============================================================================= + +v=rand(2,2,2); +a=geomean(v); +b=prod(v)^(1/8); +assert_checkalmostequal(a,b); diff --git a/modules/statistics/tests/nonreg_tests/bug_7206.dia.ref b/modules/statistics/tests/nonreg_tests/bug_7206.dia.ref new file mode 100755 index 000000000..0cea5ac0a --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_7206.dia.ref @@ -0,0 +1,24 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// <-- Non-regression test for bug 7206 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=7206 +// +// <-- Short Description --> +// If h is an hypermat, meanf(h,h) returned an error +// ============================================================================= +v = hypermat([2 2 2], [0.56 0.48 0.33 0.59 0.50 0.44 0.27 0.63]); +expected = 0.5037895; +assert_checkalmostequal(meanf(v, v), expected, 1d-7); +expected = hypermat([1 2 2], [0.5230769 0.4967391 0.4719149 0.522]); +assert_checkalmostequal(meanf(v, v, 1), expected, 1d-7); +assert_checkalmostequal(meanf(v, v, "r"), expected, 1d-7); +expected = hypermat([2 1 2], [0.4747191 0.5406542 0.4193506 0.5518692]); +assert_checkalmostequal(meanf(v, v, 2), expected, 1d-6); +assert_checkalmostequal(meanf(v, v, "c"), expected, 1d-6); diff --git a/modules/statistics/tests/nonreg_tests/bug_7206.tst b/modules/statistics/tests/nonreg_tests/bug_7206.tst new file mode 100755 index 000000000..0fe3bcfe9 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_7206.tst @@ -0,0 +1,28 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> + +// <-- Non-regression test for bug 7206 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=7206 +// +// <-- Short Description --> +// If h is an hypermat, meanf(h,h) returned an error +// ============================================================================= +v = hypermat([2 2 2], [0.56 0.48 0.33 0.59 0.50 0.44 0.27 0.63]); +expected = 0.5037895; +assert_checkalmostequal(meanf(v, v), expected, 1d-7); + +expected = hypermat([1 2 2], [0.5230769 0.4967391 0.4719149 0.522]); +assert_checkalmostequal(meanf(v, v, 1), expected, 1d-7); +assert_checkalmostequal(meanf(v, v, "r"), expected, 1d-7); + +expected = hypermat([2 1 2], [0.4747191 0.5406542 0.4193506 0.5518692]); +assert_checkalmostequal(meanf(v, v, 2), expected, 1d-6); +assert_checkalmostequal(meanf(v, v, "c"), expected, 1d-6); diff --git a/modules/statistics/tests/nonreg_tests/bug_7377.dia.ref b/modules/statistics/tests/nonreg_tests/bug_7377.dia.ref new file mode 100755 index 000000000..5669a9d7b --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_7377.dia.ref @@ -0,0 +1,18 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010 - INRIA - Michael Baudin +// Copyright (C) 2011 - DIGITEO - Michael Baudin +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- Non-regression test for bug 7377 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=7377 +// +// <-- Short Description --> +// thrownan failed on empty matrix +// +[nonan,numb]=thrownan([]); +assert_checkequal ( nonan , [] ); +assert_checkequal ( numb , [] ); diff --git a/modules/statistics/tests/nonreg_tests/bug_7377.tst b/modules/statistics/tests/nonreg_tests/bug_7377.tst new file mode 100755 index 000000000..68c7be8cb --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_7377.tst @@ -0,0 +1,21 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010 - INRIA - Michael Baudin +// Copyright (C) 2011 - DIGITEO - Michael Baudin +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- Non-regression test for bug 7377 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=7377 +// +// <-- Short Description --> +// thrownan failed on empty matrix + +// +[nonan,numb]=thrownan([]); +assert_checkequal ( nonan , [] ); +assert_checkequal ( numb , [] ); + diff --git a/modules/statistics/tests/nonreg_tests/bug_7593.dia.ref b/modules/statistics/tests/nonreg_tests/bug_7593.dia.ref new file mode 100755 index 000000000..0a85c2de4 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_7593.dia.ref @@ -0,0 +1,63 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +// <-- CLI SHELL MODE --> +// +// <-- Non-regression test for bug 7593 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=7593 +// +// <-- Short Description --> +// The function st_deviation was merged into stdev (they were duplicates), +// and msd is now accessible through the third input argument of stdev +x = matrix([5 2:8], 2, 4); +assert_checkalmostequal(stdev(x,"*",mean(x)), 1.870828693387); +assert_checkalmostequal(norm(stdev(x,1,mean(x,"r"))-[3 1 1 1]/2), 0); +assert_checkalmostequal(norm(stdev(x,"r",mean(x,"r"))-[3 1 1 1]/2), 0); +assert_checkalmostequal(norm(stdev(x,2,mean(x,"c"))-sqrt([2;5])), 0); +assert_checkalmostequal(norm(stdev(x,"c",mean(x,"c"))-sqrt([2;5])), 0); +// Biased deviation +assert_checkalmostequal(stdev(x,"*",%nan), 1.870828693387); +assert_checkalmostequal(norm(stdev(x,1,%nan)-[3 1 1 1]/2), 0); +assert_checkalmostequal(norm(stdev(x,"r",%nan)-[3 1 1 1]/2), 0); +assert_checkalmostequal(norm(stdev(x,2,%nan)-sqrt([2;5])), 0); +assert_checkalmostequal(norm(stdev(x,"c",%nan)-sqrt([2;5])), 0); +// With scalar means +rand("seed", 0); +x = rand(3, 10) + 0.5; +refR = [ +0.364541128374 +0.155589477734 +0.316156843180 +0.268553719068 +0.219155131832 +0.273506665569 +0.262844435686 +0.318334990307 +0.149138182829 +0.111372370623 ]'; +refC = [ +0.299608392744 +0.216862008097 +0.245620889607 ]; +assert_checkalmostequal(stdev(x, "*", 1), 0.256335678990); +assert_checkalmostequal(stdev(x, 1, 1), refR); +assert_checkalmostequal(stdev(x, "r", 1), refR); +assert_checkalmostequal(stdev(x, 2, 1), refC); +assert_checkalmostequal(stdev(x, "c", 1), refC); +// Scalar a priori mean for hypermatrix +grand("setsd", 0); +x = grand(4, 3, 2, "unf", 0, 10); +refHM = [2.09659394107671737 2.55579559873818374 1.1805640530346788]; +refHM(:, :, 2) = [3.14196221819646615 2.64930672717197169 2.1435288607041616]; +assert_checkalmostequal(stdev(x, "r", 5), refHM); +// Error checks +refMsg = msprintf(_("%s: Wrong size for input argument #%d.\n"),"stdev",3); +assert_checkerror("stdev(x, ""*"", [1 1])", refMsg); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"),"stdev",3); +assert_checkerror("stdev(x, ""*"", ""msd"")", refMsg); diff --git a/modules/statistics/tests/nonreg_tests/bug_7593.tst b/modules/statistics/tests/nonreg_tests/bug_7593.tst new file mode 100755 index 000000000..e8abba9cf --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_7593.tst @@ -0,0 +1,69 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +// <-- CLI SHELL MODE --> +// +// <-- Non-regression test for bug 7593 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=7593 +// +// <-- Short Description --> +// The function st_deviation was merged into stdev (they were duplicates), +// and msd is now accessible through the third input argument of stdev + +x = matrix([5 2:8], 2, 4); + +assert_checkalmostequal(stdev(x,"*",mean(x)), 1.870828693387); +assert_checkalmostequal(norm(stdev(x,1,mean(x,"r"))-[3 1 1 1]/2), 0); +assert_checkalmostequal(norm(stdev(x,"r",mean(x,"r"))-[3 1 1 1]/2), 0); +assert_checkalmostequal(norm(stdev(x,2,mean(x,"c"))-sqrt([2;5])), 0); +assert_checkalmostequal(norm(stdev(x,"c",mean(x,"c"))-sqrt([2;5])), 0); + +// Biased deviation +assert_checkalmostequal(stdev(x,"*",%nan), 1.870828693387); +assert_checkalmostequal(norm(stdev(x,1,%nan)-[3 1 1 1]/2), 0); +assert_checkalmostequal(norm(stdev(x,"r",%nan)-[3 1 1 1]/2), 0); +assert_checkalmostequal(norm(stdev(x,2,%nan)-sqrt([2;5])), 0); +assert_checkalmostequal(norm(stdev(x,"c",%nan)-sqrt([2;5])), 0); + +// With scalar means +rand("seed", 0); +x = rand(3, 10) + 0.5; +refR = [ +0.364541128374 +0.155589477734 +0.316156843180 +0.268553719068 +0.219155131832 +0.273506665569 +0.262844435686 +0.318334990307 +0.149138182829 +0.111372370623 ]'; +refC = [ +0.299608392744 +0.216862008097 +0.245620889607 ]; +assert_checkalmostequal(stdev(x, "*", 1), 0.256335678990); +assert_checkalmostequal(stdev(x, 1, 1), refR); +assert_checkalmostequal(stdev(x, "r", 1), refR); +assert_checkalmostequal(stdev(x, 2, 1), refC); +assert_checkalmostequal(stdev(x, "c", 1), refC); + +// Scalar a priori mean for hypermatrix +grand("setsd", 0); +x = grand(4, 3, 2, "unf", 0, 10); +refHM = [2.09659394107671737 2.55579559873818374 1.1805640530346788]; +refHM(:, :, 2) = [3.14196221819646615 2.64930672717197169 2.1435288607041616]; +assert_checkalmostequal(stdev(x, "r", 5), refHM); + +// Error checks +refMsg = msprintf(_("%s: Wrong size for input argument #%d.\n"),"stdev",3); +assert_checkerror("stdev(x, ""*"", [1 1])", refMsg); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"),"stdev",3); +assert_checkerror("stdev(x, ""*"", ""msd"")", refMsg); diff --git a/modules/statistics/tests/nonreg_tests/bug_7766.dia.ref b/modules/statistics/tests/nonreg_tests/bug_7766.dia.ref new file mode 100755 index 000000000..6c1efe08c --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_7766.dia.ref @@ -0,0 +1,24 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010 - DIGITEO - Allan CORNET +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// +// +// <-- Non-regression test for bug 7766 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=7744 +// +// <-- Short Description --> +// cdff, cdffnc, ... functions did not display %inf in error messages +if execstr("cdff(""Dfn"", 7, .99, .01, 7.460435)", "errcatch") <> 999 then bugmes();quit;end; +r = lasterror(); +ref = msprintf(_("Answer appears to be higher than greatest search bound %s\n"), "%inf"); +if r <> ref then bugmes();quit;end +if execstr("cdffnc(""Dfd"", 1.5, 0.3945792, 0.6054208, 1, 5)", "errcatch") <> 999 then bugmes();quit;end; +r = lasterror(); +ref = msprintf(_("Answer appears to be higher than greatest search bound %s\n"), "%inf"); +if r <> ref then bugmes();quit;end diff --git a/modules/statistics/tests/nonreg_tests/bug_7766.tst b/modules/statistics/tests/nonreg_tests/bug_7766.tst new file mode 100755 index 000000000..46e807014 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_7766.tst @@ -0,0 +1,26 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010 - DIGITEO - Allan CORNET +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// +// +// <-- Non-regression test for bug 7766 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=7744 +// +// <-- Short Description --> +// cdff, cdffnc, ... functions did not display %inf in error messages + +if execstr("cdff(""Dfn"", 7, .99, .01, 7.460435)", "errcatch") <> 999 then pause, end; +r = lasterror(); +ref = msprintf(_("Answer appears to be higher than greatest search bound %s\n"), "%inf"); +if r <> ref then pause,end + +if execstr("cdffnc(""Dfd"", 1.5, 0.3945792, 0.6054208, 1, 5)", "errcatch") <> 999 then pause, end; +r = lasterror(); +ref = msprintf(_("Answer appears to be higher than greatest search bound %s\n"), "%inf"); +if r <> ref then pause,end diff --git a/modules/statistics/tests/nonreg_tests/bug_7781.dia.ref b/modules/statistics/tests/nonreg_tests/bug_7781.dia.ref new file mode 100755 index 000000000..a7dc5ca62 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_7781.dia.ref @@ -0,0 +1,18 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// <-- Non-regression test for bug 7781 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=7781 +// +// <-- Short Description --> +// The second parameter of iqr function had no effect. +// ============================================================================= +X = [1:10; 2:2:20; 3:3:30]; +assert_checkequal(iqr(X,'r'), [1.5 3 4.5 6 7.5 9 10.5 12 13.5 15]); +assert_checkequal(iqr(X,'c'), [5 10 15]'); diff --git a/modules/statistics/tests/nonreg_tests/bug_7781.tst b/modules/statistics/tests/nonreg_tests/bug_7781.tst new file mode 100755 index 000000000..a4d2e9a6b --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_7781.tst @@ -0,0 +1,21 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> + +// <-- Non-regression test for bug 7781 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=7781 +// +// <-- Short Description --> +// The second parameter of iqr function had no effect. +// ============================================================================= +X = [1:10; 2:2:20; 3:3:30]; + +assert_checkequal(iqr(X,'r'), [1.5 3 4.5 6 7.5 9 10.5 12 13.5 15]); +assert_checkequal(iqr(X,'c'), [5 10 15]'); diff --git a/modules/statistics/tests/nonreg_tests/bug_7848.dia.ref b/modules/statistics/tests/nonreg_tests/bug_7848.dia.ref new file mode 100755 index 000000000..c22d87392 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_7848.dia.ref @@ -0,0 +1,31 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// <-- Non-regression test for bug 7848 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=7848 +// +// <-- Short Description --> +// The third argument of correl function is now optional. +// ============================================================================= +r = correl(1:10, 1:10); +assert_checkequal(r, 1); +fre = eye(10, 10); +r = correl(1:10, 1:10, fre); +assert_checkequal(r, 1); +fre = ones(10, 10); +r = correl(1:10, 1:10, fre); +assert_checkequal(r, 0); +r = correl(1:10, -(1:10)); +assert_checkequal(r, -1); +fre = eye(10, 10); +r = correl(1:10, -(1:10), fre); +assert_checkequal(r, -1); +fre = ones(10, 10); +r = correl(1:10, -(1:10), fre); +assert_checkequal(r, 0); diff --git a/modules/statistics/tests/nonreg_tests/bug_7848.tst b/modules/statistics/tests/nonreg_tests/bug_7848.tst new file mode 100755 index 000000000..dc584156d --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_7848.tst @@ -0,0 +1,39 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> + +// <-- Non-regression test for bug 7848 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=7848 +// +// <-- Short Description --> +// The third argument of correl function is now optional. +// ============================================================================= + +r = correl(1:10, 1:10); +assert_checkequal(r, 1); + +fre = eye(10, 10); +r = correl(1:10, 1:10, fre); +assert_checkequal(r, 1); + +fre = ones(10, 10); +r = correl(1:10, 1:10, fre); +assert_checkequal(r, 0); + +r = correl(1:10, -(1:10)); +assert_checkequal(r, -1); + +fre = eye(10, 10); +r = correl(1:10, -(1:10), fre); +assert_checkequal(r, -1); + +fre = ones(10, 10); +r = correl(1:10, -(1:10), fre); +assert_checkequal(r, 0); diff --git a/modules/statistics/tests/nonreg_tests/bug_7858.dia.ref b/modules/statistics/tests/nonreg_tests/bug_7858.dia.ref new file mode 100755 index 000000000..499e4bc24 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_7858.dia.ref @@ -0,0 +1,63 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +// <-- CLI SHELL MODE --> +// +// <-- ENGLISH IMPOSED --> +// +// <-- Non-regression test for bug 7858 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=7858 +// +// <-- Short Description --> +// variance and variancef can take now take the a priori mean as input, and it can be a scalar. +// ============================================================================= +//-------------------------------------------------------------- +// Variance +x = [ +0.9 0.7 +0.1 0.1 +0.5 0.4 ]; +orien = "r"; +expectedM = [1 1]; +expectedV = [1.07 1.26]/3; +// Voluntarily passing a bad a priori mean, to check that we get the same results with scalar +[Variance, Mean] = variance( x, orien, ones(mean(x,orien)) ); +assert_checkalmostequal([Variance Mean], [expectedV expectedM]); +// With a scalar +[Variance, Mean] = variance( x, orien, 1 ); +WARNING: variance: The significance of input argument #3 has been modified. Please refer to the variance help page. +assert_checkalmostequal([Variance Mean], [expectedV expectedM]); +orien = "c"; +expectedM = [1; 1; 1]; +expectedV = [0.05; 0.81; 0.305]; +// Voluntarily passing a bad a priori mean, to check that we get the same results with scalar +[Variance, Mean] = variance( x, orien, ones(mean(x,orien)) ); +assert_checkalmostequal([Variance Mean], [expectedV expectedM]); +// With a scalar +[Variance, Mean] = variance( x, orien, 1 ); +WARNING: variance: The significance of input argument #3 has been modified. Please refer to the variance help page. +assert_checkalmostequal([Variance Mean], [expectedV expectedM]); +//-------------------------------------------------------------- +// Variancef +x = [0.2113249 0.0002211 0.6653811; 0.7560439 0.9546254 0.6283918]; +fre = [1 2 3; 3 4 3]; +orien = "r"; +refM = [1 1 1]; +refV = [0.200138037385 0.334558519179 0.125031231272]; +[v, m] = variancef( x, fre, orien, ones(meanf(x,fre,orien)) ); +assert_checkalmostequal([v m], [refV refM]); +[v, m] = variancef( x, fre, orien, 1 ); +assert_checkalmostequal([v m], [refV refM]); +orien = "c"; +refM = [1; 1]; +refV = [0.492838922640; 0.060105711640]; +[v, m] = variancef( x, fre, orien, ones(meanf(x,fre,orien)) ); +assert_checkalmostequal([v m], [refV refM]); +[v, m] = variancef( x, fre, orien, 1 ); +assert_checkalmostequal([v m], [refV refM]); diff --git a/modules/statistics/tests/nonreg_tests/bug_7858.tst b/modules/statistics/tests/nonreg_tests/bug_7858.tst new file mode 100755 index 000000000..7fab7e8f2 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_7858.tst @@ -0,0 +1,73 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +// <-- CLI SHELL MODE --> +// +// <-- ENGLISH IMPOSED --> +// +// <-- Non-regression test for bug 7858 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=7858 +// +// <-- Short Description --> +// variance and variancef can take now take the a priori mean as input, and it can be a scalar. +// ============================================================================= + +//-------------------------------------------------------------- +// Variance + +x = [ +0.9 0.7 +0.1 0.1 +0.5 0.4 ]; +orien = "r"; +expectedM = [1 1]; +expectedV = [1.07 1.26]/3; + +// Voluntarily passing a bad a priori mean, to check that we get the same results with scalar +[Variance, Mean] = variance( x, orien, ones(mean(x,orien)) ); +assert_checkalmostequal([Variance Mean], [expectedV expectedM]); +// With a scalar +[Variance, Mean] = variance( x, orien, 1 ); +assert_checkalmostequal([Variance Mean], [expectedV expectedM]); + +orien = "c"; +expectedM = [1; 1; 1]; +expectedV = [0.05; 0.81; 0.305]; + +// Voluntarily passing a bad a priori mean, to check that we get the same results with scalar +[Variance, Mean] = variance( x, orien, ones(mean(x,orien)) ); +assert_checkalmostequal([Variance Mean], [expectedV expectedM]); +// With a scalar +[Variance, Mean] = variance( x, orien, 1 ); +assert_checkalmostequal([Variance Mean], [expectedV expectedM]); + + +//-------------------------------------------------------------- +// Variancef + +x = [0.2113249 0.0002211 0.6653811; 0.7560439 0.9546254 0.6283918]; +fre = [1 2 3; 3 4 3]; +orien = "r"; +refM = [1 1 1]; +refV = [0.200138037385 0.334558519179 0.125031231272]; + +[v, m] = variancef( x, fre, orien, ones(meanf(x,fre,orien)) ); +assert_checkalmostequal([v m], [refV refM]); + +[v, m] = variancef( x, fre, orien, 1 ); +assert_checkalmostequal([v m], [refV refM]); + +orien = "c"; +refM = [1; 1]; +refV = [0.492838922640; 0.060105711640]; +[v, m] = variancef( x, fre, orien, ones(meanf(x,fre,orien)) ); +assert_checkalmostequal([v m], [refV refM]); + +[v, m] = variancef( x, fre, orien, 1 ); +assert_checkalmostequal([v m], [refV refM]); diff --git a/modules/statistics/tests/nonreg_tests/bug_7916.dia.ref b/modules/statistics/tests/nonreg_tests/bug_7916.dia.ref new file mode 100755 index 000000000..f3bfec15e --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_7916.dia.ref @@ -0,0 +1,24 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// <-- Non-regression test for bug 7916 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=7916 +// +// <-- Short Description --> +// nansum([]) returned NaN value. +// ============================================================================= +assert_checkequal(sum([]), 0); +assert_checkequal(nansum([]), 0); +assert_checkequal(nansum(%nan), 0); +assert_checkequal(nansum([%nan %nan; 1 2]), 3); +assert_checkequal(nansum([%nan %nan; 1 2], "*"), 3); +assert_checkequal(nansum([%nan %nan; 1 2], "r"), [1 2]); +assert_checkequal(nansum([%nan %nan; 1 2], "c"), [0; 3]); +assert_checkequal(nansum([%nan %nan; 1 2], 1), [1 2]); +assert_checkequal(nansum([%nan %nan; 1 2], 2), [0; 3]); diff --git a/modules/statistics/tests/nonreg_tests/bug_7916.tst b/modules/statistics/tests/nonreg_tests/bug_7916.tst new file mode 100755 index 000000000..4e4f271a7 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_7916.tst @@ -0,0 +1,27 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> + +// <-- Non-regression test for bug 7916 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=7916 +// +// <-- Short Description --> +// nansum([]) returned NaN value. +// ============================================================================= + +assert_checkequal(sum([]), 0); +assert_checkequal(nansum([]), 0); +assert_checkequal(nansum(%nan), 0); +assert_checkequal(nansum([%nan %nan; 1 2]), 3); +assert_checkequal(nansum([%nan %nan; 1 2], "*"), 3); +assert_checkequal(nansum([%nan %nan; 1 2], "r"), [1 2]); +assert_checkequal(nansum([%nan %nan; 1 2], "c"), [0; 3]); +assert_checkequal(nansum([%nan %nan; 1 2], 1), [1 2]); +assert_checkequal(nansum([%nan %nan; 1 2], 2), [0; 3]); diff --git a/modules/statistics/tests/nonreg_tests/bug_801.dia.ref b/modules/statistics/tests/nonreg_tests/bug_801.dia.ref new file mode 100755 index 000000000..1371a0355 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_801.dia.ref @@ -0,0 +1,14 @@ +// <-- Non-regression test for bug 801 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=801 +// +// <-- Short Description --> +// error in the routine covar.sci +// Copyright INRIA +// Scilab Project - Pierre MARECHAL +// Date : 3 mai 2005 +x=[4 5]; +y=[3 4 5 6]; +m=[ 2 3 4 5; 5 4 3 2]; +if execstr('covar(x,y,m)','errcatch') <> 0 then bugmes();quit;end diff --git a/modules/statistics/tests/nonreg_tests/bug_801.tst b/modules/statistics/tests/nonreg_tests/bug_801.tst new file mode 100755 index 000000000..b3d0f1a72 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_801.tst @@ -0,0 +1,20 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2005-2008 - INRIA -Pierre MARECHAL <pierre.marechal@inria.fr> +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- Non-regression test for bug 801 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=801 +// +// <-- Short Description --> +// error in the routine covar.sci + +x=[4 5]; +y=[3 4 5 6]; +m=[ 2 3 4 5; 5 4 3 2]; + +if execstr('covar(x,y,m)','errcatch') <> 0 then pause,end diff --git a/modules/statistics/tests/nonreg_tests/bug_8031.dia.ref b/modules/statistics/tests/nonreg_tests/bug_8031.dia.ref new file mode 100755 index 000000000..64c860001 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_8031.dia.ref @@ -0,0 +1,22 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// <-- Non-regression test for bug 8031 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=8031 +// +// <-- Short Description --> +// Fixed cdfgam error message about the bound of the result. +// ============================================================================= +shape = 0.5; +rate = 1; +p = 1.12837916D-150; +q = 1; +x = 0; +refMsg = msprintf(_("Answer appears to be lower than lowest search bound %g\n"), 1e-300); +assert_checkerror("shape1 = cdfgam(""Shape"", shape, p, q, x);", refMsg); diff --git a/modules/statistics/tests/nonreg_tests/bug_8031.tst b/modules/statistics/tests/nonreg_tests/bug_8031.tst new file mode 100755 index 000000000..aadfa2fe0 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_8031.tst @@ -0,0 +1,26 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> + +// <-- Non-regression test for bug 8031 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=8031 +// +// <-- Short Description --> +// Fixed cdfgam error message about the bound of the result. +// ============================================================================= + +shape = 0.5; +rate = 1; +p = 1.12837916D-150; +q = 1; +x = 0; + +refMsg = msprintf(_("Answer appears to be lower than lowest search bound %g\n"), 1e-300); +assert_checkerror("shape1 = cdfgam(""Shape"", shape, p, q, x);", refMsg); diff --git a/modules/statistics/tests/nonreg_tests/bug_8032.dia.ref b/modules/statistics/tests/nonreg_tests/bug_8032.dia.ref new file mode 100755 index 000000000..6ff7fab41 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_8032.dia.ref @@ -0,0 +1,28 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2011 - DIGITEO - Michael Baudin +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// +// +// <-- Non-regression test for bug 8032 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=8032 +// +// <-- Short Description --> +// cdfnor was able to fail silently +Mean = 0; +Std = 1; +P = 0.5; +Q = 0.5; +X = cdfnor("X",Mean,Std,P,Q); +assert_checkequal ( X , 0 ); +Mean = 1; +X = 1; +P = 0.5; +Q = 0.5; +Std = cdfnor("Std",P,Q,X,Mean); +assert_checkequal ( isnan(Std) , %t ); diff --git a/modules/statistics/tests/nonreg_tests/bug_8032.tst b/modules/statistics/tests/nonreg_tests/bug_8032.tst new file mode 100755 index 000000000..c9cafd73c --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_8032.tst @@ -0,0 +1,32 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2011 - DIGITEO - Michael Baudin +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// +// +// <-- Non-regression test for bug 8032 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=8032 +// +// <-- Short Description --> +// cdfnor was able to fail silently + + +Mean = 0; +Std = 1; +P = 0.5; +Q = 0.5; +X = cdfnor("X",Mean,Std,P,Q); +assert_checkequal ( X , 0 ); + +Mean = 1; +X = 1; +P = 0.5; +Q = 0.5; +Std = cdfnor("Std",P,Q,X,Mean); +assert_checkequal ( isnan(Std) , %t ); + diff --git a/modules/statistics/tests/nonreg_tests/bug_8101.dia.ref b/modules/statistics/tests/nonreg_tests/bug_8101.dia.ref new file mode 100755 index 000000000..387dcb96a --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_8101.dia.ref @@ -0,0 +1,32 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2012 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// <-- Non-regression test for bug 8101 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=8101 +// +// <-- Short Description --> +// The median function with a sparse as a first argument did not return the +// good result. Moreover, median(sparse,'r'|'c") were not supported. +// ============================================================================= +s=sparse([1 0 2 0 0 ; 0 -4 0 0 7 ]); +y = median(s); +res = sparse(median(full(s))); +assert_checkequal(y, res); +y = median(s, "r"); +res = sparse(median(full(s), "r")); +assert_checkequal(y, res); +y = median(s, "c"); +res = sparse(median(full(s), "c")); +assert_checkequal(y, res); +y = median(s, "m"); +res = sparse(median(full(s), "m")); +assert_checkequal(y, res); +y = median(s, 1); +res = sparse(median(full(s), 1)); +assert_checkequal(y, res); diff --git a/modules/statistics/tests/nonreg_tests/bug_8101.tst b/modules/statistics/tests/nonreg_tests/bug_8101.tst new file mode 100755 index 000000000..32992b747 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_8101.tst @@ -0,0 +1,44 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2012 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> + +// <-- Non-regression test for bug 8101 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=8101 +// +// <-- Short Description --> +// The median function with a sparse as a first argument did not return the +// good result. Moreover, median(sparse,'r'|'c") were not supported. +// ============================================================================= + +s=sparse([1 0 2 0 0 ; 0 -4 0 0 7 ]); +y = median(s); +res = sparse(median(full(s))); +assert_checkequal(y, res); + +y = median(s, "r"); +res = sparse(median(full(s), "r")); +assert_checkequal(y, res); + +y = median(s, "c"); +res = sparse(median(full(s), "c")); +assert_checkequal(y, res); + +y = median(s, "m"); +res = sparse(median(full(s), "m")); +assert_checkequal(y, res); + +y = median(s, 1); +res = sparse(median(full(s), 1)); +assert_checkequal(y, res); + + + + + diff --git a/modules/statistics/tests/nonreg_tests/bug_9357.dia.ref b/modules/statistics/tests/nonreg_tests/bug_9357.dia.ref new file mode 100755 index 000000000..375d3ed10 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_9357.dia.ref @@ -0,0 +1,24 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2011 - DIGITEO - Michael Baudin +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// +// +// <-- Non-regression test for bug 9357 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=9357 +// +// <-- Short Description --> +//stdevf returns zero for row vector arguments +a=[2,3,4,5,5]; +b=[2,3,4,5]; +fre=[1,1,1,2]; +ref= stdev(a); +assert_checkequal(stdevf(b,fre),ref); +assert_checkequal(stdevf(b,fre,'*'),ref); +assert_checkequal(stdevf(b,fre,2),ref); +assert_checkequal(stdevf(b,fre,1),zeros(b)); diff --git a/modules/statistics/tests/nonreg_tests/bug_9357.tst b/modules/statistics/tests/nonreg_tests/bug_9357.tst new file mode 100755 index 000000000..d8fa373d8 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_9357.tst @@ -0,0 +1,25 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2011 - DIGITEO - Michael Baudin +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// +// +// <-- Non-regression test for bug 9357 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=9357 +// +// <-- Short Description --> +//stdevf returns zero for row vector arguments + +a=[2,3,4,5,5]; +b=[2,3,4,5]; +fre=[1,1,1,2]; +ref= stdev(a); +assert_checkequal(stdevf(b,fre),ref); +assert_checkequal(stdevf(b,fre,'*'),ref); +assert_checkequal(stdevf(b,fre,2),ref); +assert_checkequal(stdevf(b,fre,1),zeros(b)); diff --git a/modules/statistics/tests/nonreg_tests/bug_9976.dia.ref b/modules/statistics/tests/nonreg_tests/bug_9976.dia.ref new file mode 100755 index 000000000..b105da2c2 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_9976.dia.ref @@ -0,0 +1,21 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2012 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// <-- Non-regression test for bug 9976 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=9976 +// +// <-- Short Description --> +// The inverse cdfbet function returned wrong value instead 0 +// ============================================================================= +a = 1; +b = 2; +p = 0; +q = 1-p; +x = cdfbet("XY",a,b,p,q); +assert_checkequal(x, 0); diff --git a/modules/statistics/tests/nonreg_tests/bug_9976.tst b/modules/statistics/tests/nonreg_tests/bug_9976.tst new file mode 100755 index 000000000..c79dcb0f2 --- /dev/null +++ b/modules/statistics/tests/nonreg_tests/bug_9976.tst @@ -0,0 +1,24 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2012 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> + +// <-- Non-regression test for bug 9976 --> +// +// <-- Bugzilla URL --> +// http://bugzilla.scilab.org/show_bug.cgi?id=9976 +// +// <-- Short Description --> +// The inverse cdfbet function returned wrong value instead of 0 +// ============================================================================= + +a = 1; +b = 2; +p = 0; +q = 1-p; +x = cdfbet("XY",a,b,p,q); +assert_checkequal(x, 0); diff --git a/modules/statistics/tests/unit_tests/InfTests.dia.ref b/modules/statistics/tests/unit_tests/InfTests.dia.ref new file mode 100755 index 000000000..820cc8359 --- /dev/null +++ b/modules/statistics/tests/unit_tests/InfTests.dia.ref @@ -0,0 +1,90 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// <-- ENGLISH IMPOSED --> +// Run with test_run('statistics', 'InfTests', ['no_check_error_output']) +inf = %inf; +tol = 1e-299; +// Testing that the requested return is %inf when one input argument is %inf +// cdfchi +[res, res2] = cdfchi("PQ", inf, 1); +assert_checkequal(res, 1); +assert_checkequal(res2, 0); +[res, res2] = cdfchi("PQ", 1, inf); +cdfchi: Warning: using non integer values for argument #3 may lead to incorrect results. +assert_checkalmostequal(res, 0, tol); +assert_checkalmostequal(res2, 1, tol); +// cdfchn +[res, res2] = cdfchn("PQ", inf, 1, 1); +assert_checkequal(res, 1); +assert_checkequal(res2, 0); +[res, res2] = cdfchn("PQ", 1, inf, 1e-10); +cdfchn: Warning: using non integer values for argument #3 may lead to incorrect results. +assert_checkalmostequal(res, 0, tol); +assert_checkalmostequal(res2, 1, tol); +// cdff +[res, res2] = cdff("PQ", inf, 1, 1e-50); +cdff: Warning: using non integer values for argument #4 may lead to incorrect results. +assert_checkequal(res, 1); +assert_checkequal(res2, 0); +[res, res2] = cdff("PQ", 1, inf, 1e-50); +cdff: Warning: using non integer values for argument #3 may lead to incorrect results. +cdff: Warning: using non integer values for argument #4 may lead to incorrect results. +assert_checkalmostequal(res, 1, tol); +assert_checkalmostequal(res2, 0, tol); +// cdffnc +[res, res2] = cdffnc("PQ", inf, 1, 10, 0); +assert_checkequal(res, 1); +assert_checkequal(res2, 0); +[res, res2] = cdffnc("PQ", 1e-10, inf, 10, 0); +cdffnc: Warning: using non integer values for argument #3 may lead to incorrect results. +assert_checkalmostequal(res, 0, tol); +assert_checkalmostequal(res2, 1, tol); +// cdfgam +[res, res2] = cdfgam("PQ", inf, 1, 1); +assert_checkequal(res, 1); +assert_checkequal(res2, 0); +[res, res2] = cdfgam("PQ", 1, inf, 1); +assert_checkalmostequal(res, 0, tol); +assert_checkalmostequal(res2, 1, tol); +[res, res2] = cdfgam("PQ", 1, 1, inf); +assert_checkalmostequal(res, 1, tol); +assert_checkalmostequal(res2, 0, tol); +// cdfnbn +[res, res2] = cdfnbn("PQ", inf, 1, 0, 1); +assert_checkequal(res, 1); +assert_checkequal(res2, 0); +[res, res2] = cdfnbn("PQ", 1, inf, 0, 1); +assert_checkalmostequal(res, 0, tol); +assert_checkalmostequal(res2, 1, tol); +// cdfnor +[res, res2] = cdfnor("PQ", inf, 1, 1); +assert_checkequal(res, 1); +assert_checkequal(res2, 0); +[res, res2] = cdfnor("PQ", -inf, 1, 1); +assert_checkequal(res, 0); +assert_checkequal(res2, 1); +[res, res2] = cdfnor("PQ", 1, inf, 1); +assert_checkalmostequal(res, 0, tol); +assert_checkalmostequal(res2, 1, tol); +[res, res2] = cdfnor("PQ", 1, -inf, 1); +assert_checkalmostequal(res, 1, tol); +assert_checkalmostequal(res2, 0, tol); +// cdfpoi +[res, res2] = cdfpoi("PQ", inf, 1); +assert_checkequal(res, 1); +assert_checkequal(res2, 0); +[res, res2] = cdfpoi("PQ", 1, inf); +assert_checkalmostequal(res, 0, tol); +assert_checkalmostequal(res2, 1, tol); +// cdft +[res, res2] = cdft("PQ", inf, 1); +assert_checkequal(res, 1); +assert_checkequal(res2, 0); +[res, res2] = cdft("PQ", -inf, 1); +assert_checkequal(res, 0); +assert_checkequal(res2, 1); diff --git a/modules/statistics/tests/unit_tests/InfTests.tst b/modules/statistics/tests/unit_tests/InfTests.tst new file mode 100755 index 000000000..eb52d264a --- /dev/null +++ b/modules/statistics/tests/unit_tests/InfTests.tst @@ -0,0 +1,97 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> +// <-- ENGLISH IMPOSED --> + +// Run with test_run('statistics', 'InfTests', ['no_check_error_output']) + +inf = %inf; +tol = 1e-299; + +// Testing that the requested return is %inf when one input argument is %inf + +// cdfchi +[res, res2] = cdfchi("PQ", inf, 1); +assert_checkequal(res, 1); +assert_checkequal(res2, 0); +[res, res2] = cdfchi("PQ", 1, inf); +assert_checkalmostequal(res, 0, tol); +assert_checkalmostequal(res2, 1, tol); + +// cdfchn +[res, res2] = cdfchn("PQ", inf, 1, 1); +assert_checkequal(res, 1); +assert_checkequal(res2, 0); +[res, res2] = cdfchn("PQ", 1, inf, 1e-10); +assert_checkalmostequal(res, 0, tol); +assert_checkalmostequal(res2, 1, tol); + +// cdff +[res, res2] = cdff("PQ", inf, 1, 1e-50); +assert_checkequal(res, 1); +assert_checkequal(res2, 0); +[res, res2] = cdff("PQ", 1, inf, 1e-50); +assert_checkalmostequal(res, 1, tol); +assert_checkalmostequal(res2, 0, tol); + +// cdffnc +[res, res2] = cdffnc("PQ", inf, 1, 10, 0); +assert_checkequal(res, 1); +assert_checkequal(res2, 0); +[res, res2] = cdffnc("PQ", 1e-10, inf, 10, 0); +assert_checkalmostequal(res, 0, tol); +assert_checkalmostequal(res2, 1, tol); + +// cdfgam +[res, res2] = cdfgam("PQ", inf, 1, 1); +assert_checkequal(res, 1); +assert_checkequal(res2, 0); +[res, res2] = cdfgam("PQ", 1, inf, 1); +assert_checkalmostequal(res, 0, tol); +assert_checkalmostequal(res2, 1, tol); +[res, res2] = cdfgam("PQ", 1, 1, inf); +assert_checkalmostequal(res, 1, tol); +assert_checkalmostequal(res2, 0, tol); + +// cdfnbn +[res, res2] = cdfnbn("PQ", inf, 1, 0, 1); +assert_checkequal(res, 1); +assert_checkequal(res2, 0); +[res, res2] = cdfnbn("PQ", 1, inf, 0, 1); +assert_checkalmostequal(res, 0, tol); +assert_checkalmostequal(res2, 1, tol); + +// cdfnor +[res, res2] = cdfnor("PQ", inf, 1, 1); +assert_checkequal(res, 1); +assert_checkequal(res2, 0); +[res, res2] = cdfnor("PQ", -inf, 1, 1); +assert_checkequal(res, 0); +assert_checkequal(res2, 1); +[res, res2] = cdfnor("PQ", 1, inf, 1); +assert_checkalmostequal(res, 0, tol); +assert_checkalmostequal(res2, 1, tol); +[res, res2] = cdfnor("PQ", 1, -inf, 1); +assert_checkalmostequal(res, 1, tol); +assert_checkalmostequal(res2, 0, tol); + +// cdfpoi +[res, res2] = cdfpoi("PQ", inf, 1); +assert_checkequal(res, 1); +assert_checkequal(res2, 0); +[res, res2] = cdfpoi("PQ", 1, inf); +assert_checkalmostequal(res, 0, tol); +assert_checkalmostequal(res2, 1, tol); + +// cdft +[res, res2] = cdft("PQ", inf, 1); +assert_checkequal(res, 1); +assert_checkequal(res2, 0); +[res, res2] = cdft("PQ", -inf, 1); +assert_checkequal(res, 0); +assert_checkequal(res2, 1); diff --git a/modules/statistics/tests/unit_tests/NaNTests.dia.ref b/modules/statistics/tests/unit_tests/NaNTests.dia.ref new file mode 100755 index 000000000..2701bdbc8 --- /dev/null +++ b/modules/statistics/tests/unit_tests/NaNTests.dia.ref @@ -0,0 +1,141 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// <-- ENGLISH IMPOSED --> +// Run with test_run('statistics', 'NaNTests', ['no_check_error_output']) +nan = %nan; +// Testing that the requested return is %nan when one input argument is %nan +// cdfbet +[res, res2] = cdfbet("PQ", nan, nan, nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +[res, res2] = cdfbet("XY", nan, nan, nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdfbet("A", nan, nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdfbet("B", nan, nan, nan, nan, nan); +assert_checkequal(res, nan); +// cdfbin +[res, res2] = cdfbin("PQ", nan, nan, nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdfbin("S", nan, nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdfbin("Xn", nan, nan, nan, nan, nan); +assert_checkequal(res, nan); +[res, res2] = cdfbin("PrOmpr", nan, nan, nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +// cdfchi +[res, res2] = cdfchi("PQ", nan, nan); +cdfchi: Warning: using non integer values for argument #3 may lead to incorrect results. +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdfchi("X", nan, nan, nan); +cdfchi: Warning: using non integer values for argument #2 may lead to incorrect results. +assert_checkequal(res, nan); +res = cdfchi("Df", nan, nan, nan); +assert_checkequal(res, nan); +// cdfchn +[res, res2] = cdfchn("PQ", nan, nan, nan); +cdfchn: Warning: using non integer values for argument #3 may lead to incorrect results. +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdfchn("X", nan, nan, nan, nan); +cdfchn: Warning: using non integer values for argument #2 may lead to incorrect results. +assert_checkequal(res, nan); +res = cdfchn("Df", nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdfchn("Pnonc", nan, nan, nan, nan); +cdfchn: Warning: using non integer values for argument #5 may lead to incorrect results. +assert_checkequal(res, nan); +// cdff +[res, res2] = cdff("PQ", nan, nan, nan); +cdff: Warning: using non integer values for argument #3 may lead to incorrect results. +cdff: Warning: using non integer values for argument #4 may lead to incorrect results. +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdff("F", nan, nan, nan, nan); +cdff: Warning: using non integer values for argument #2 may lead to incorrect results. +cdff: Warning: using non integer values for argument #3 may lead to incorrect results. +assert_checkequal(res, nan); +res = cdff("Dfn", nan, nan, nan, nan); +cdff: Warning: using non integer values for argument #2 may lead to incorrect results. +assert_checkequal(res, nan); +res = cdff("Dfd",nan, nan, nan, nan); +cdff: Warning: using non integer values for argument #5 may lead to incorrect results. +assert_checkequal(res, nan); +// cdffnc +[res, res2] = cdffnc("PQ", nan, nan, nan, nan); +cdffnc: Warning: using non integer values for argument #3 may lead to incorrect results. +cdffnc: Warning: using non integer values for argument #4 may lead to incorrect results. +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdffnc("F", nan, nan, nan, nan, nan); +cdffnc: Warning: using non integer values for argument #2 may lead to incorrect results. +cdffnc: Warning: using non integer values for argument #3 may lead to incorrect results. +assert_checkequal(res, nan); +res = cdffnc("Dfn", nan, nan, nan, nan, nan); +cdffnc: Warning: using non integer values for argument #2 may lead to incorrect results. +assert_checkequal(res, nan); +res = cdffnc("Dfd", nan, nan, nan, nan, nan); +cdffnc: Warning: using non integer values for argument #6 may lead to incorrect results. +assert_checkequal(res, nan); +res = cdffnc("Pnonc", nan, nan, nan, nan, nan); +cdffnc: Warning: using non integer values for argument #5 may lead to incorrect results. +cdffnc: Warning: using non integer values for argument #6 may lead to incorrect results. +assert_checkequal(res, nan); +// cdfgam +[res, res2] = cdfgam("PQ", nan, nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdfgam("X", nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdfgam("Shape", nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdfgam("Rate", nan, nan, nan, nan); +assert_checkequal(res, nan); +// cdfnbn +[res, res2] = cdfnbn("PQ", nan, nan, nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdfnbn("S", nan, nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdfnbn("Xn", nan, nan, nan, nan, nan); +assert_checkequal(res, nan); +[res, res2] = cdfnbn("PrOmpr", nan, nan, nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +// cdfnor +[res, res2] = cdfnor("PQ", nan, nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdfnor("X", nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdfnor("Mean", nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdfnor("Std", nan, nan, nan, nan); +assert_checkequal(res, nan); +// cdfpoi +[res, res2] = cdfpoi("PQ", nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdfpoi("S", nan, nan, nan); +assert_checkequal(res, nan); +res = cdfpoi("Xlam", nan, nan, nan); +assert_checkequal(res, nan); +// cdft +[res, res2] = cdft("PQ", nan, nan); +cdft: Warning: using non integer values for argument #3 may lead to incorrect results. +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdft("T", nan, nan, nan); +cdft: Warning: using non integer values for argument #2 may lead to incorrect results. +assert_checkequal(res, nan); +res = cdft("Df", nan, nan, nan); +assert_checkequal(res, nan); diff --git a/modules/statistics/tests/unit_tests/NaNTests.tst b/modules/statistics/tests/unit_tests/NaNTests.tst new file mode 100755 index 000000000..a43bd154e --- /dev/null +++ b/modules/statistics/tests/unit_tests/NaNTests.tst @@ -0,0 +1,135 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> +// <-- ENGLISH IMPOSED --> + +// Run with test_run('statistics', 'NaNTests', ['no_check_error_output']) + +nan = %nan; + +// Testing that the requested return is %nan when one input argument is %nan + +// cdfbet +[res, res2] = cdfbet("PQ", nan, nan, nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +[res, res2] = cdfbet("XY", nan, nan, nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdfbet("A", nan, nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdfbet("B", nan, nan, nan, nan, nan); +assert_checkequal(res, nan); + +// cdfbin +[res, res2] = cdfbin("PQ", nan, nan, nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdfbin("S", nan, nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdfbin("Xn", nan, nan, nan, nan, nan); +assert_checkequal(res, nan); +[res, res2] = cdfbin("PrOmpr", nan, nan, nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); + +// cdfchi +[res, res2] = cdfchi("PQ", nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdfchi("X", nan, nan, nan); +assert_checkequal(res, nan); +res = cdfchi("Df", nan, nan, nan); +assert_checkequal(res, nan); + +// cdfchn +[res, res2] = cdfchn("PQ", nan, nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdfchn("X", nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdfchn("Df", nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdfchn("Pnonc", nan, nan, nan, nan); +assert_checkequal(res, nan); + +// cdff +[res, res2] = cdff("PQ", nan, nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdff("F", nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdff("Dfn", nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdff("Dfd",nan, nan, nan, nan); +assert_checkequal(res, nan); + +// cdffnc +[res, res2] = cdffnc("PQ", nan, nan, nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdffnc("F", nan, nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdffnc("Dfn", nan, nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdffnc("Dfd", nan, nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdffnc("Pnonc", nan, nan, nan, nan, nan); +assert_checkequal(res, nan); + +// cdfgam +[res, res2] = cdfgam("PQ", nan, nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdfgam("X", nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdfgam("Shape", nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdfgam("Rate", nan, nan, nan, nan); +assert_checkequal(res, nan); + +// cdfnbn +[res, res2] = cdfnbn("PQ", nan, nan, nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdfnbn("S", nan, nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdfnbn("Xn", nan, nan, nan, nan, nan); +assert_checkequal(res, nan); +[res, res2] = cdfnbn("PrOmpr", nan, nan, nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); + +// cdfnor +[res, res2] = cdfnor("PQ", nan, nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdfnor("X", nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdfnor("Mean", nan, nan, nan, nan); +assert_checkequal(res, nan); +res = cdfnor("Std", nan, nan, nan, nan); +assert_checkequal(res, nan); + +// cdfpoi +[res, res2] = cdfpoi("PQ", nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdfpoi("S", nan, nan, nan); +assert_checkequal(res, nan); +res = cdfpoi("Xlam", nan, nan, nan); +assert_checkequal(res, nan); + +// cdft +[res, res2] = cdft("PQ", nan, nan); +assert_checkequal(res, nan); +assert_checkequal(res2, nan); +res = cdft("T", nan, nan, nan); +assert_checkequal(res, nan); +res = cdft("Df", nan, nan, nan); +assert_checkequal(res, nan); diff --git a/modules/statistics/tests/unit_tests/cdfbet.dia.ref b/modules/statistics/tests/unit_tests/cdfbet.dia.ref new file mode 100755 index 000000000..b11ede661 --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdfbet.dia.ref @@ -0,0 +1,50 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) ????-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// ============================================================================= +// Tests for beta distribution +// ============================================================================= +// Run with test_run('statistics','cdfbet',['no_check_error_output']); +prec = 1.e-5; +A = 2; +B = 3; +bn = 1; +deff('[y]=Beta(x)','y=bn*(x^(A-1) * (1-x)^(B-1))'); +bn = intg(0,1,Beta); +bn = 1/bn; +assert_checkequal(intg(0,1,Beta), 1); +x = 0:0.1:1; +y = 1-x; +p1 = []; +for k=x + p1=[p1,intg(0,k,Beta)]; +end +A = 2*ones(x); +B = 3*ones(x); +[p,q]=cdfbet('PQ',x,y,A,B); +assert_checkalmostequal(p, p1); +[x1,y1]=cdfbet('XY',A,B,p,q); +assert_checkalmostequal(x, x1); +assert_checkalmostequal(y, y1); +A1 = cdfbet('A',B,p,q,x,y); +assert_checkalmostequal(A1(2:$-1), A(2:$-1)); +B1 = cdfbet('B',p,q,x,y,A); +assert_checkalmostequal(B1(2:$-1), B(2:$-1)); +// IEEE support +// See http://bugzilla.scilab.org/show_bug.cgi?id=7296 +X = 0; +Y = 1; +A = 1; +B = 1; +X = %nan; // X NaN +[P,Q] = cdfbet("PQ", X, Y, A, B); +assert_checkequal(P, %nan); +assert_checkequal(Q, %nan); +X = 1; +Y = %nan; // Y NaN +[P,Q] = cdfbet("PQ", X, Y, A, B); +assert_checkequal(P, %nan); +assert_checkequal(Q, %nan); diff --git a/modules/statistics/tests/unit_tests/cdfbet.tst b/modules/statistics/tests/unit_tests/cdfbet.tst new file mode 100755 index 000000000..3af1eb20e --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdfbet.tst @@ -0,0 +1,68 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) ????-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// ============================================================================= +// Tests for beta distribution +// ============================================================================= + +// Run with test_run('statistics','cdfbet',['no_check_error_output']); + +prec = 1.e-5; + +A = 2; +B = 3; +bn = 1; + +deff('[y]=Beta(x)','y=bn*(x^(A-1) * (1-x)^(B-1))'); + +bn = intg(0,1,Beta); +bn = 1/bn; +assert_checkequal(intg(0,1,Beta), 1); + +x = 0:0.1:1; +y = 1-x; +p1 = []; + +for k=x + p1=[p1,intg(0,k,Beta)]; +end + +A = 2*ones(x); +B = 3*ones(x); + +[p,q]=cdfbet('PQ',x,y,A,B); + +assert_checkalmostequal(p, p1); + +[x1,y1]=cdfbet('XY',A,B,p,q); + +assert_checkalmostequal(x, x1); +assert_checkalmostequal(y, y1); + +A1 = cdfbet('A',B,p,q,x,y); +assert_checkalmostequal(A1(2:$-1), A(2:$-1)); + +B1 = cdfbet('B',p,q,x,y,A); +assert_checkalmostequal(B1(2:$-1), B(2:$-1)); + +// IEEE support +// See http://bugzilla.scilab.org/show_bug.cgi?id=7296 +X = 0; +Y = 1; +A = 1; +B = 1; + +X = %nan; // X NaN +[P,Q] = cdfbet("PQ", X, Y, A, B); +assert_checkequal(P, %nan); +assert_checkequal(Q, %nan); + +X = 1; +Y = %nan; // Y NaN +[P,Q] = cdfbet("PQ", X, Y, A, B); +assert_checkequal(P, %nan); +assert_checkequal(Q, %nan); diff --git a/modules/statistics/tests/unit_tests/cdfbin.dia.ref b/modules/statistics/tests/unit_tests/cdfbin.dia.ref new file mode 100755 index 000000000..5782168be --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdfbin.dia.ref @@ -0,0 +1,35 @@ +// ============================================================================= +// Tests for cdfbin() function +// +// Scilab Team +// Copyright INRIA +// +// CN^k pr^k(1-pr)^(Xb-k) +// +// ============================================================================= +prec = 1.e-5; +XN = 10; +PR = 0.34; +deff('k=fact(n)','if n<=1;k=1;else k=n*fact(n-1);end'); +deff('cnk=CNK(N,k)','cnk=fact(N)/(fact(k)*fact(N-k))'); +pr = []; +S = 0:XN; +for k=S + pr=[pr,CNK(XN,k)*(PR)^k*(1-PR)^(XN-k)]; +end +Sth = cumsum(pr); +[Sth1,q] = cdfbin("PQ",S,XN*ones(S),PR*ones(S),(1-PR)*ones(S)); +if norm(Sth-Sth1) > prec then bugmes();quit;end +XN = 10; +S = 0:XN; +PR = rand(1,XN+1,'u'); +OMPR = 1-PR; +XN1 = XN*ones(1,XN+1); +[P,Q] = cdfbin("PQ",S,XN1,PR,OMPR); +[S1] = cdfbin("S",XN1,PR,OMPR,P,Q); +[XN2] = cdfbin("Xn",PR,OMPR,P,Q,S); +[PR1,OMPR1] = cdfbin("PrOmpr",P,Q,S,XN1); +if norm(S1-S) > prec then bugmes();quit;end +if norm(XN1(1:$-1)-XN2(1:$-1)) > 10*prec then bugmes();quit;end +// not good when pr is near 1 or zero +if norm(PR1(1:$-1)-PR(1:$-1)) > 0.1 then bugmes();quit;end diff --git a/modules/statistics/tests/unit_tests/cdfbin.tst b/modules/statistics/tests/unit_tests/cdfbin.tst new file mode 100755 index 000000000..f297017af --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdfbin.tst @@ -0,0 +1,49 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) ????-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// ============================================================================= +// Tests for cdfbin() function +// +// CN^k pr^k(1-pr)^(Xb-k) +// +// ============================================================================= + +prec = 1.e-5; + + +XN = 10; +PR = 0.34; + +deff('k=fact(n)','if n<=1;k=1;else k=n*fact(n-1);end'); +deff('cnk=CNK(N,k)','cnk=fact(N)/(fact(k)*fact(N-k))'); + +pr = []; +S = 0:XN; + +for k=S + pr=[pr,CNK(XN,k)*(PR)^k*(1-PR)^(XN-k)]; +end + +Sth = cumsum(pr); +[Sth1,q] = cdfbin("PQ",S,XN*ones(S),PR*ones(S),(1-PR)*ones(S)); +if norm(Sth-Sth1) > prec then pause,end + +XN = 10; +S = 0:XN; +PR = rand(1,XN+1,'u'); +OMPR = 1-PR; +XN1 = XN*ones(1,XN+1); +[P,Q] = cdfbin("PQ",S,XN1,PR,OMPR); +[S1] = cdfbin("S",XN1,PR,OMPR,P,Q); +[XN2] = cdfbin("Xn",PR,OMPR,P,Q,S); +[PR1,OMPR1] = cdfbin("PrOmpr",P,Q,S,XN1); + +if norm(S1-S) > prec then pause,end +if norm(XN1(1:$-1)-XN2(1:$-1)) > 10*prec then pause,end + +// not good when pr is near 1 or zero +if norm(PR1(1:$-1)-PR(1:$-1)) > 0.1 then pause,end diff --git a/modules/statistics/tests/unit_tests/cdfchi.dia.ref b/modules/statistics/tests/unit_tests/cdfchi.dia.ref new file mode 100755 index 000000000..50b868dc5 --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdfchi.dia.ref @@ -0,0 +1,36 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) ????-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// ============================================================================= +// Tests for cdfchi() function +// ============================================================================= +// Run with test_run('statistics','cdfchi',['no_check_error_output']); +prec = 1.e-5; +x = [0.01,0.025,0.05,0.1,0.9,0.95]; +deff('[y]=chi1(x)','y=exp(-x/2)/sqrt(2*%pi*x)'); +y1 = []; +for xx=x + y1=[y1,intg(0,xx,chi1)]; +end +y2 = cdfchi("PQ",x,ones(x)); +if norm(y1-y2) > prec then bugmes();quit;end +df = [1,2,3,4,5,6]; +[P,Q] = cdfchi("PQ",x,df); +[x1] = cdfchi("X",df,P,Q); +[df1] = cdfchi("Df",P,Q,x); +if norm(x1-x) > prec then bugmes();quit;end +if norm(df1-df) > prec then bugmes();quit;end +// IEEE support +// See http://bugzilla.scilab.org/show_bug.cgi?id=7296 +Df = 1; +X = %inf; // Inf +[P,Q] = cdfchi("PQ", X, Df); +assert_checkequal(P, 1); +assert_checkequal(Q, 0); +X = %nan; // NaN +[P,Q] = cdfchi("PQ", X, Df); +assert_checkequal(P, %nan); +assert_checkequal(Q, %nan); diff --git a/modules/statistics/tests/unit_tests/cdfchi.tst b/modules/statistics/tests/unit_tests/cdfchi.tst new file mode 100755 index 000000000..fdf63f13b --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdfchi.tst @@ -0,0 +1,47 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) ????-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// ============================================================================= +// Tests for cdfchi() function +// ============================================================================= + +// Run with test_run('statistics','cdfchi',['no_check_error_output']); + +prec = 1.e-5; + +x = [0.01,0.025,0.05,0.1,0.9,0.95]; +deff('[y]=chi1(x)','y=exp(-x/2)/sqrt(2*%pi*x)'); +y1 = []; + +for xx=x + y1=[y1,intg(0,xx,chi1)]; +end + +y2 = cdfchi("PQ",x,ones(x)); +if norm(y1-y2) > prec then pause,end + +df = [1,2,3,4,5,6]; +[P,Q] = cdfchi("PQ",x,df); +[x1] = cdfchi("X",df,P,Q); +[df1] = cdfchi("Df",P,Q,x); + +if norm(x1-x) > prec then pause,end +if norm(df1-df) > prec then pause,end + +// IEEE support +// See http://bugzilla.scilab.org/show_bug.cgi?id=7296 +Df = 1; + +X = %inf; // Inf +[P,Q] = cdfchi("PQ", X, Df); +assert_checkequal(P, 1); +assert_checkequal(Q, 0); + +X = %nan; // NaN +[P,Q] = cdfchi("PQ", X, Df); +assert_checkequal(P, %nan); +assert_checkequal(Q, %nan); diff --git a/modules/statistics/tests/unit_tests/cdfchn.dia.ref b/modules/statistics/tests/unit_tests/cdfchn.dia.ref new file mode 100755 index 000000000..76d2694f7 --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdfchn.dia.ref @@ -0,0 +1,34 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) ????-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// ============================================================================= +// Tests for cdfchn function +// ============================================================================= +// Run with test_run('statistics','cdfchn',['no_check_error_output']); +prec = 1.e-5; +x = [0.01,0.025,0.05,0.1,0.9,0.95]; +y1 = cdfchi("PQ",x,ones(x)); +y2 = cdfchn("PQ",x,ones(x),0*ones(x)); +if norm(y1-y2) > prec then bugmes();quit;end +df = [1,2,3,4,5,6]; +pno = df/10; +[P,Q] = cdfchn("PQ",x,df,pno); +[x1] = cdfchn("X",df,pno,P,Q); +[df1] = cdfchn("Df",pno,P,Q,x); +if norm(x1-x) > prec then bugmes();quit;end +if norm(df1-df) > prec then bugmes();quit;end +// IEEE support +// See http://bugzilla.scilab.org/show_bug.cgi?id=7296 +Df = 1; +Pnonc = 0.1; +X = %inf; // Inf +[P,Q] = cdfchn("PQ", X, Df, Pnonc); +assert_checkequal(P, 1); +assert_checkequal(Q, 0); +X = %nan; // NaN +[P,Q] = cdfchn("PQ", X, Df, Pnonc); +assert_checkequal(P, %nan); +assert_checkequal(Q, %nan); diff --git a/modules/statistics/tests/unit_tests/cdfchn.tst b/modules/statistics/tests/unit_tests/cdfchn.tst new file mode 100755 index 000000000..6ec74a3e1 --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdfchn.tst @@ -0,0 +1,43 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) ????-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// ============================================================================= +// Tests for cdfchn function +// ============================================================================= + +// Run with test_run('statistics','cdfchn',['no_check_error_output']); + +prec = 1.e-5; + +x = [0.01,0.025,0.05,0.1,0.9,0.95]; +y1 = cdfchi("PQ",x,ones(x)); +y2 = cdfchn("PQ",x,ones(x),0*ones(x)); +if norm(y1-y2) > prec then pause,end + +df = [1,2,3,4,5,6]; +pno = df/10; +[P,Q] = cdfchn("PQ",x,df,pno); +[x1] = cdfchn("X",df,pno,P,Q); +[df1] = cdfchn("Df",pno,P,Q,x); + +if norm(x1-x) > prec then pause,end +if norm(df1-df) > prec then pause,end + +// IEEE support +// See http://bugzilla.scilab.org/show_bug.cgi?id=7296 +Df = 1; +Pnonc = 0.1; + +X = %inf; // Inf +[P,Q] = cdfchn("PQ", X, Df, Pnonc); +assert_checkequal(P, 1); +assert_checkequal(Q, 0); + +X = %nan; // NaN +[P,Q] = cdfchn("PQ", X, Df, Pnonc); +assert_checkequal(P, %nan); +assert_checkequal(Q, %nan); diff --git a/modules/statistics/tests/unit_tests/cdff.dia.ref b/modules/statistics/tests/unit_tests/cdff.dia.ref new file mode 100755 index 000000000..33440afae --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdff.dia.ref @@ -0,0 +1,33 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) ????-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// ============================================================================= +// Tests for cdff() function +// ============================================================================= +// Run with test_run('statistics','cdff',['no_check_error_output']); +prec = 1.e-5; +f = [1:2]; +dfn = [1:2]; +dfd = 2*dfn; +[P,Q] = cdff("PQ",f,dfn,dfd); +[f1] = cdff("F",dfn,dfd,P,Q); +[dfn1] = cdff("Dfn",dfd,P,Q,f); +[dfd1] = cdff("Dfd",P,Q,f,dfn); +if norm(f1-f) > prec then bugmes();quit;end +if norm(dfn1-dfn) > prec then bugmes();quit;end +if norm(dfd1-dfd) > prec then bugmes();quit;end +// IEEE support +// See http://bugzilla.scilab.org/show_bug.cgi?id=7296 +dfn = 1; +dfd = 2; +f = %inf; // Inf +[P,Q] = cdff("PQ", f, dfn, dfd); +assert_checkequal(P, 1); +assert_checkequal(Q, 0); +f = %nan; // NaN +[P,Q] = cdff("PQ", f, dfn, dfd); +assert_checkequal(P, %nan); +assert_checkequal(Q, %nan); diff --git a/modules/statistics/tests/unit_tests/cdff.tst b/modules/statistics/tests/unit_tests/cdff.tst new file mode 100755 index 000000000..a1f1bb667 --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdff.tst @@ -0,0 +1,42 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) ????-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// ============================================================================= +// Tests for cdff() function +// ============================================================================= + +// Run with test_run('statistics','cdff',['no_check_error_output']); + +prec = 1.e-5; + +f = [1:2]; +dfn = [1:2]; +dfd = 2*dfn; + +[P,Q] = cdff("PQ",f,dfn,dfd); +[f1] = cdff("F",dfn,dfd,P,Q); +[dfn1] = cdff("Dfn",dfd,P,Q,f); +[dfd1] = cdff("Dfd",P,Q,f,dfn); + +if norm(f1-f) > prec then pause,end +if norm(dfn1-dfn) > prec then pause,end +if norm(dfd1-dfd) > prec then pause,end + +// IEEE support +// See http://bugzilla.scilab.org/show_bug.cgi?id=7296 +dfn = 1; +dfd = 2; + +f = %inf; // Inf +[P,Q] = cdff("PQ", f, dfn, dfd); +assert_checkequal(P, 1); +assert_checkequal(Q, 0); + +f = %nan; // NaN +[P,Q] = cdff("PQ", f, dfn, dfd); +assert_checkequal(P, %nan); +assert_checkequal(Q, %nan); diff --git a/modules/statistics/tests/unit_tests/cdffnc.dia.ref b/modules/statistics/tests/unit_tests/cdffnc.dia.ref new file mode 100755 index 000000000..b31279d7a --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdffnc.dia.ref @@ -0,0 +1,37 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) ????-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// ============================================================================= +// Tests for cdffnc() function +// ============================================================================= +// Run with test_run('statistics','cdffnc',['no_check_error_output']); +prec = 1.e-5; +f = [1:2]; +dfn = [1:2]; +dfd = 2*dfn; +pn = [0,1]; +[P,Q] = cdffnc("PQ",f,dfn,dfd,pn); +[f1] = cdffnc("F",dfn,dfd,pn,P,Q); +[dfn1] = cdffnc("Dfn",dfd,pn,P,Q,f); +//[dfd1] = cdffnc("Dfd",pn,P,Q,f,dfn); +[pnonc] = cdffnc("Pnonc",P,Q,f,dfn,dfd); +if norm(f1-f) > prec then bugmes();quit;end +if norm(dfn1-dfn) > prec then bugmes();quit;end +//if norm(dfd1-dfd) > prec then bugmes();quit;end +if norm(pnonc-pn) > prec then bugmes();quit;end +// IEEE support +// See http://bugzilla.scilab.org/show_bug.cgi?id=7296 +dfn = 1; +dfd = 2; +pn = 0; +f = %inf; // Inf +[P,Q] = cdffnc("PQ", f, dfn, dfd, pn); +assert_checkequal(P, 1); +assert_checkequal(Q, 0); +f = %nan; // NaN +[P,Q] = cdffnc("PQ", f, dfn, dfd, pn); +assert_checkequal(P, %nan); +assert_checkequal(Q, %nan); diff --git a/modules/statistics/tests/unit_tests/cdffnc.tst b/modules/statistics/tests/unit_tests/cdffnc.tst new file mode 100755 index 000000000..ad401ed1e --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdffnc.tst @@ -0,0 +1,46 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) ????-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// ============================================================================= +// Tests for cdffnc() function +// ============================================================================= + +// Run with test_run('statistics','cdffnc',['no_check_error_output']); + +prec = 1.e-5; + +f = [1:2]; +dfn = [1:2]; +dfd = 2*dfn; +pn = [0,1]; + +[P,Q] = cdffnc("PQ",f,dfn,dfd,pn); +[f1] = cdffnc("F",dfn,dfd,pn,P,Q); +[dfn1] = cdffnc("Dfn",dfd,pn,P,Q,f); +//[dfd1] = cdffnc("Dfd",pn,P,Q,f,dfn); +[pnonc] = cdffnc("Pnonc",P,Q,f,dfn,dfd); + +if norm(f1-f) > prec then pause,end +if norm(dfn1-dfn) > prec then pause,end +//if norm(dfd1-dfd) > prec then pause,end +if norm(pnonc-pn) > prec then pause,end + +// IEEE support +// See http://bugzilla.scilab.org/show_bug.cgi?id=7296 +dfn = 1; +dfd = 2; +pn = 0; + +f = %inf; // Inf +[P,Q] = cdffnc("PQ", f, dfn, dfd, pn); +assert_checkequal(P, 1); +assert_checkequal(Q, 0); + +f = %nan; // NaN +[P,Q] = cdffnc("PQ", f, dfn, dfd, pn); +assert_checkequal(P, %nan); +assert_checkequal(Q, %nan); diff --git a/modules/statistics/tests/unit_tests/cdfgam.dia.ref b/modules/statistics/tests/unit_tests/cdfgam.dia.ref new file mode 100755 index 000000000..8f69edff0 --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdfgam.dia.ref @@ -0,0 +1,132 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010 - DIGITEO - Michael Baudin +// Copyright (C) 2011 - DIGITEO - Michael Baudin +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// <-- ENGLISH IMPOSED --> +// Run with test_run('statistics','cdfgam',['no_check_error_output']); +// +// Assessing the quality of the Normal distribution function +// References +// Yalta, A. T. 2008. The accuracy of statistical distributions in Microsoft®Excel 2007. Comput. Stat. Data Anal. 52, 10 (Jun. 2008), 4579-4586. DOI= http://dx.doi.org/10.1016/j.csda.2008.03.005 +// Computation of Statistical Distributions (ELV), Leo Knüsel +// Table 5 +// Check Gamma distribution with parameters (x, alpha, beta = 1, Sigma = 1) +// +// Table of inputs from Yalta, 2008 +// [x shape scale P ] +table = [ + 0.1 , 0.1 , 1 , 0.827552 + 0.2 , 0.1 , 1 , 0.879420 + 0.2 , 0.2 , 1 , 0.764435 + 0.3 , 0.2 , 1 , 0.816527 + 0.3 , 0.3 , 1 , 0.726957 + 0.4 , 0.3 , 1 , 0.776381 + 0.4 , 0.4 , 1 , 0.701441 + 0.5 , 0.4 , 1 , 0.748019 + 0.5 , 0.5 , 1 , 0.682689 + 0.6 , 0.5 , 1 , 0.726678 +]; +precision = 1.e-5; +ntests = size(table,"r"); +for i = 1 : ntests + x = table(i,1); + shape = table(i,2); + scale = table(i,3); + expected = table(i,4); + // Caution: this is the rate ! + rate = 1/scale; + [computed,Q]=cdfgam("PQ",x,shape,rate); + assert_checkalmostequal ( computed , expected , precision ); + assert_checkalmostequal ( Q , 1 - expected , precision ); +end +// Table of inputs computed from R-2.8.1 +// [x shape scale PDF-P CDF-P CDF-Q] +table = [ +1.000000000000000056D-01 1.000000000000000056D-01 1.000000000000000000D+00 7.554920138253073958D-01 8.275517595858505882D-01 1.724482404141494951D-01 +2.000000000000000111D-01 1.000000000000000056D-01 1.000000000000000000D+00 3.663307993056703071D-01 8.794196267900568076D-01 1.205803732099432063D-01 +2.000000000000000111D-01 2.000000000000000111D-01 1.000000000000000000D+00 6.462857778271943188D-01 7.644345975029189777D-01 2.355654024970809945D-01 +2.999999999999999889D-01 2.000000000000000111D-01 1.000000000000000000D+00 4.227875047602157044D-01 8.165267943336527168D-01 1.834732056663473110D-01 +2.999999999999999889D-01 2.999999999999999889D-01 1.000000000000000000D+00 5.752117576599179438D-01 7.269573437103662439D-01 2.730426562896338116D-01 +4.000000000000000222D-01 2.999999999999999889D-01 1.000000000000000000D+00 4.255407854753925911D-01 7.763805810166358734D-01 2.236194189833642099D-01 +4.000000000000000222D-01 4.000000000000000222D-01 1.000000000000000000D+00 5.236648604477927016D-01 7.014412706419403953D-01 2.985587293580597157D-01 +5.000000000000000000D-01 4.000000000000000222D-01 1.000000000000000000D+00 4.144555659263016167D-01 7.480185547260104206D-01 2.519814452739895239D-01 +5.000000000000000000D-01 5.000000000000000000D-01 1.000000000000000000D+00 4.839414490382866751D-01 6.826894921370858516D-01 3.173105078629140929D-01 +5.999999999999999778D-01 5.000000000000000000D-01 1.000000000000000000D+00 3.997355278034666060D-01 7.266783217077018575D-01 2.733216782922981980D-01 +5.000000000000000000D-01 5.000000000000000000D-01 2.000000000000000000D+00 4.393912894677223790D-01 5.204998778130465187D-01 4.795001221869534258D-01 +5.000000000000000000D-01 5.000000000000000000D-01 3.000000000000000000D+00 3.899393114454822729D-01 4.362971383492270094D-01 5.637028616507729906D-01 +5.000000000000000000D-01 5.000000000000000000D-01 4.000000000000000000D+00 3.520653267642995243D-01 3.829249225480261809D-01 6.170750774519737636D-01 +1.000000000000000000D+00 5.000000000000000000D-01 1.000000000000000000D+00 2.075537487102973866D-01 8.427007929497148941D-01 1.572992070502851891D-01 +2.000000000000000000D+00 5.000000000000000000D-01 1.000000000000000000D+00 5.399096651318804896D-02 9.544997361036415828D-01 4.550026389635838248D-02 +4.000000000000000000D+00 5.000000000000000000D-01 1.000000000000000000D+00 5.166746338523012412D-03 9.953222650189527121D-01 4.677734981047261889D-03 +1.000000000000000000D+01 5.000000000000000000D-01 1.000000000000000000D+00 8.099910956089122777D-06 9.999922557835689840D-01 7.744216431044085842D-06 +2.000000000000000000D+01 5.000000000000000000D-01 1.000000000000000000D+00 2.600281868827196957D-10 9.999999997460371493D-01 2.539628589470869077D-10 +4.000000000000000000D+01 5.000000000000000000D-01 1.000000000000000000D+00 3.789795640412981196D-19 1.000000000000000000D+00 3.744097384202895045D-19 +//1.000000000000000000D+02 5.000000000000000000D-01 1.000000000000000000D+00 2.098828115677222045D-45 1.000000000000000000D+00 2.088487583762558879D-45 +3.000000000000000000D+02 5.000000000000000000D-01 1.000000000000000000D+00 1.67694904029982009D-132 1.000000000000000000D+00 1.67416798469182012D-132 +//5.000000000000000000D+02 5.000000000000000000D-01 1.000000000000000000D+00 1.79762504374667411D-219 1.000000000000000000D+00 1.79583278480075297D-219 +//1.000000000000000000D+03 5.000000000000000000D-01 1.000000000000000000D+00 0.000000000000000000D+00 1.000000000000000000D+00 0.000000000000000000D+00 +1.000000000000000021D-02 5.000000000000000000D-01 1.000000000000000000D+00 5.585758033944684620D+00 1.124629160182848975D-01 8.875370839817151580D-01 +1.000000000000000048D-04 5.000000000000000000D-01 1.000000000000000000D+00 5.641331674102550409D+01 1.128341555584961957D-02 9.887165844441503371D-01 +1.000000000000000021D-08 5.000000000000000000D-01 1.000000000000000000D+00 5.641895779058606422D+03 1.128379163334249004D-04 9.998871620836665697D-01 +9.999999999999999452D-21 5.000000000000000000D-01 1.000000000000000000D+00 5.641895835477570534D+09 1.128379167095512970D-10 9.999999998871620388D-01 +9.999999999999999293D-41 5.000000000000000000D-01 1.000000000000000000D+00 5.641895835477568717D+19 1.128379167095512972D-20 1.000000000000000000D+00 +1.00000000000000002D-100 5.000000000000000000D-01 1.000000000000000000D+00 5.641895835477541988D+49 1.128379167095513082D-50 1.000000000000000000D+00 +9.99999999999999982D-201 5.000000000000000000D-01 1.000000000000000000D+00 5.641895835477511468D+99 1.12837916709551300D-100 1.000000000000000000D+00 +//1.00000000000000002D-300 5.000000000000000000D-01 1.000000000000000000D+00 5.64189583547731891D+149 1.12837916709551298D-150 1.000000000000000000D+00 +//0.000000000000000000D+00 5.000000000000000000D-01 1.000000000000000000D+00 %inf 0.000000000000000000D+00 1.000000000000000000D+00 +]; +// For the inversion of Shape, require only 8 digits, as +// a consequence of bug #7569: http://bugzilla.scilab.org/show_bug.cgi?id=7569 +// +// Some tests do not pass: +// http://bugzilla.scilab.org/show_bug.cgi?id=8031 +// http://bugzilla.scilab.org/show_bug.cgi?id=8030 +// +// Prints the number of accurate digits. +precision = 1.e-12; +precinverse = 1.e-8; +ntests = size(table,"r"); +for i = 1 : ntests + x = table(i,1); + shape = table(i,2); + scale = table(i,3); + p = table(i,5); + q = table(i,6); + // Caution: this is the rate ! + rate = 1/scale; + [p1,q1] = cdfgam("PQ",x,shape,rate); + x1 = cdfgam("X",shape,rate,p,q); + shape1 = cdfgam("Shape",rate,p,q,x); + rate1 = cdfgam("Rate",p,q,x,shape); + if ( %t ) then + assert_checkalmostequal ( p1 , p , precision ); + assert_checkalmostequal ( q1 , q , precision ); + assert_checkalmostequal ( x1 , x , precision ); + assert_checkalmostequal ( shape1 , shape , precinverse ); + assert_checkalmostequal ( rate1 , rate , precinverse ); + end + if ( %f ) then + dp = assert_computedigits ( p1 , p ); + dq = assert_computedigits ( q1 , q ); + dx = assert_computedigits ( x1 , x ); + ds = assert_computedigits ( shape1 , shape ); + dr = assert_computedigits ( rate1 , rate ); + mprintf("Test #%3d/%3d: Digits p1= %.1f, q1=%.1f, X= %.1f, S= %.1f, R= %.1f\n",i,ntests,dp,dq,dx,ds,dr); + end +end +// IEEE support +// See http://bugzilla.scilab.org/show_bug.cgi?id=7296 +Shape = 0; +Rate = 1; +X = %inf; // Inf +[P, Q] = cdfgam("PQ", X, Shape, Rate); +assert_checkequal(P, 1); +assert_checkequal(Q, 0); +X = %nan; // NaN +[P, Q] = cdfgam("PQ", X, Shape, Rate); +assert_checkequal(P, %nan); +assert_checkequal(Q, %nan); diff --git a/modules/statistics/tests/unit_tests/cdfgam.tst b/modules/statistics/tests/unit_tests/cdfgam.tst new file mode 100755 index 000000000..8fa14f05b --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdfgam.tst @@ -0,0 +1,145 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010 - DIGITEO - Michael Baudin +// Copyright (C) 2011 - DIGITEO - Michael Baudin +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> +// <-- ENGLISH IMPOSED --> + +// Run with test_run('statistics','cdfgam',['no_check_error_output']); + +// +// Assessing the quality of the Normal distribution function +// References +// Yalta, A. T. 2008. The accuracy of statistical distributions in Microsoft®Excel 2007. Comput. Stat. Data Anal. 52, 10 (Jun. 2008), 4579-4586. DOI= http://dx.doi.org/10.1016/j.csda.2008.03.005 +// Computation of Statistical Distributions (ELV), Leo Knüsel +// Table 5 +// Check Gamma distribution with parameters (x, alpha, beta = 1, Sigma = 1) +// + + +// Table of inputs from Yalta, 2008 +// [x shape scale P ] +table = [ + 0.1 , 0.1 , 1 , 0.827552 + 0.2 , 0.1 , 1 , 0.879420 + 0.2 , 0.2 , 1 , 0.764435 + 0.3 , 0.2 , 1 , 0.816527 + 0.3 , 0.3 , 1 , 0.726957 + 0.4 , 0.3 , 1 , 0.776381 + 0.4 , 0.4 , 1 , 0.701441 + 0.5 , 0.4 , 1 , 0.748019 + 0.5 , 0.5 , 1 , 0.682689 + 0.6 , 0.5 , 1 , 0.726678 +]; + +precision = 1.e-5; +ntests = size(table,"r"); +for i = 1 : ntests + x = table(i,1); + shape = table(i,2); + scale = table(i,3); + expected = table(i,4); + // Caution: this is the rate ! + rate = 1/scale; + [computed,Q]=cdfgam("PQ",x,shape,rate); + assert_checkalmostequal ( computed , expected , precision ); + assert_checkalmostequal ( Q , 1 - expected , precision ); +end + +// Table of inputs computed from R-2.8.1 +// [x shape scale PDF-P CDF-P CDF-Q] +table = [ +1.000000000000000056D-01 1.000000000000000056D-01 1.000000000000000000D+00 7.554920138253073958D-01 8.275517595858505882D-01 1.724482404141494951D-01 +2.000000000000000111D-01 1.000000000000000056D-01 1.000000000000000000D+00 3.663307993056703071D-01 8.794196267900568076D-01 1.205803732099432063D-01 +2.000000000000000111D-01 2.000000000000000111D-01 1.000000000000000000D+00 6.462857778271943188D-01 7.644345975029189777D-01 2.355654024970809945D-01 +2.999999999999999889D-01 2.000000000000000111D-01 1.000000000000000000D+00 4.227875047602157044D-01 8.165267943336527168D-01 1.834732056663473110D-01 +2.999999999999999889D-01 2.999999999999999889D-01 1.000000000000000000D+00 5.752117576599179438D-01 7.269573437103662439D-01 2.730426562896338116D-01 +4.000000000000000222D-01 2.999999999999999889D-01 1.000000000000000000D+00 4.255407854753925911D-01 7.763805810166358734D-01 2.236194189833642099D-01 +4.000000000000000222D-01 4.000000000000000222D-01 1.000000000000000000D+00 5.236648604477927016D-01 7.014412706419403953D-01 2.985587293580597157D-01 +5.000000000000000000D-01 4.000000000000000222D-01 1.000000000000000000D+00 4.144555659263016167D-01 7.480185547260104206D-01 2.519814452739895239D-01 +5.000000000000000000D-01 5.000000000000000000D-01 1.000000000000000000D+00 4.839414490382866751D-01 6.826894921370858516D-01 3.173105078629140929D-01 +5.999999999999999778D-01 5.000000000000000000D-01 1.000000000000000000D+00 3.997355278034666060D-01 7.266783217077018575D-01 2.733216782922981980D-01 +5.000000000000000000D-01 5.000000000000000000D-01 2.000000000000000000D+00 4.393912894677223790D-01 5.204998778130465187D-01 4.795001221869534258D-01 +5.000000000000000000D-01 5.000000000000000000D-01 3.000000000000000000D+00 3.899393114454822729D-01 4.362971383492270094D-01 5.637028616507729906D-01 +5.000000000000000000D-01 5.000000000000000000D-01 4.000000000000000000D+00 3.520653267642995243D-01 3.829249225480261809D-01 6.170750774519737636D-01 +1.000000000000000000D+00 5.000000000000000000D-01 1.000000000000000000D+00 2.075537487102973866D-01 8.427007929497148941D-01 1.572992070502851891D-01 +2.000000000000000000D+00 5.000000000000000000D-01 1.000000000000000000D+00 5.399096651318804896D-02 9.544997361036415828D-01 4.550026389635838248D-02 +4.000000000000000000D+00 5.000000000000000000D-01 1.000000000000000000D+00 5.166746338523012412D-03 9.953222650189527121D-01 4.677734981047261889D-03 +1.000000000000000000D+01 5.000000000000000000D-01 1.000000000000000000D+00 8.099910956089122777D-06 9.999922557835689840D-01 7.744216431044085842D-06 +2.000000000000000000D+01 5.000000000000000000D-01 1.000000000000000000D+00 2.600281868827196957D-10 9.999999997460371493D-01 2.539628589470869077D-10 +4.000000000000000000D+01 5.000000000000000000D-01 1.000000000000000000D+00 3.789795640412981196D-19 1.000000000000000000D+00 3.744097384202895045D-19 +//1.000000000000000000D+02 5.000000000000000000D-01 1.000000000000000000D+00 2.098828115677222045D-45 1.000000000000000000D+00 2.088487583762558879D-45 +3.000000000000000000D+02 5.000000000000000000D-01 1.000000000000000000D+00 1.67694904029982009D-132 1.000000000000000000D+00 1.67416798469182012D-132 +//5.000000000000000000D+02 5.000000000000000000D-01 1.000000000000000000D+00 1.79762504374667411D-219 1.000000000000000000D+00 1.79583278480075297D-219 +//1.000000000000000000D+03 5.000000000000000000D-01 1.000000000000000000D+00 0.000000000000000000D+00 1.000000000000000000D+00 0.000000000000000000D+00 +1.000000000000000021D-02 5.000000000000000000D-01 1.000000000000000000D+00 5.585758033944684620D+00 1.124629160182848975D-01 8.875370839817151580D-01 +1.000000000000000048D-04 5.000000000000000000D-01 1.000000000000000000D+00 5.641331674102550409D+01 1.128341555584961957D-02 9.887165844441503371D-01 +1.000000000000000021D-08 5.000000000000000000D-01 1.000000000000000000D+00 5.641895779058606422D+03 1.128379163334249004D-04 9.998871620836665697D-01 +9.999999999999999452D-21 5.000000000000000000D-01 1.000000000000000000D+00 5.641895835477570534D+09 1.128379167095512970D-10 9.999999998871620388D-01 +9.999999999999999293D-41 5.000000000000000000D-01 1.000000000000000000D+00 5.641895835477568717D+19 1.128379167095512972D-20 1.000000000000000000D+00 +1.00000000000000002D-100 5.000000000000000000D-01 1.000000000000000000D+00 5.641895835477541988D+49 1.128379167095513082D-50 1.000000000000000000D+00 +9.99999999999999982D-201 5.000000000000000000D-01 1.000000000000000000D+00 5.641895835477511468D+99 1.12837916709551300D-100 1.000000000000000000D+00 +//1.00000000000000002D-300 5.000000000000000000D-01 1.000000000000000000D+00 5.64189583547731891D+149 1.12837916709551298D-150 1.000000000000000000D+00 +//0.000000000000000000D+00 5.000000000000000000D-01 1.000000000000000000D+00 %inf 0.000000000000000000D+00 1.000000000000000000D+00 +]; + +// For the inversion of Shape, require only 8 digits, as +// a consequence of bug #7569: http://bugzilla.scilab.org/show_bug.cgi?id=7569 +// +// Some tests do not pass: +// http://bugzilla.scilab.org/show_bug.cgi?id=8031 +// http://bugzilla.scilab.org/show_bug.cgi?id=8030 +// +// Prints the number of accurate digits. + +precision = 1.e-12; +precinverse = 1.e-8; + +ntests = size(table,"r"); +for i = 1 : ntests + x = table(i,1); + shape = table(i,2); + scale = table(i,3); + p = table(i,5); + q = table(i,6); + // Caution: this is the rate ! + rate = 1/scale; + [p1,q1] = cdfgam("PQ",x,shape,rate); + x1 = cdfgam("X",shape,rate,p,q); + shape1 = cdfgam("Shape",rate,p,q,x); + rate1 = cdfgam("Rate",p,q,x,shape); + if ( %t ) then + assert_checkalmostequal ( p1 , p , precision ); + assert_checkalmostequal ( q1 , q , precision ); + assert_checkalmostequal ( x1 , x , precision ); + assert_checkalmostequal ( shape1 , shape , precinverse ); + assert_checkalmostequal ( rate1 , rate , precinverse ); + end + if ( %f ) then + dp = assert_computedigits ( p1 , p ); + dq = assert_computedigits ( q1 , q ); + dx = assert_computedigits ( x1 , x ); + ds = assert_computedigits ( shape1 , shape ); + dr = assert_computedigits ( rate1 , rate ); + mprintf("Test #%3d/%3d: Digits p1= %.1f, q1=%.1f, X= %.1f, S= %.1f, R= %.1f\n",i,ntests,dp,dq,dx,ds,dr); + end +end + +// IEEE support +// See http://bugzilla.scilab.org/show_bug.cgi?id=7296 +Shape = 0; +Rate = 1; + +X = %inf; // Inf +[P, Q] = cdfgam("PQ", X, Shape, Rate); +assert_checkequal(P, 1); +assert_checkequal(Q, 0); + +X = %nan; // NaN +[P, Q] = cdfgam("PQ", X, Shape, Rate); +assert_checkequal(P, %nan); +assert_checkequal(Q, %nan); diff --git a/modules/statistics/tests/unit_tests/cdfnbn.dia.ref b/modules/statistics/tests/unit_tests/cdfnbn.dia.ref new file mode 100755 index 000000000..99dda1db1 --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdfnbn.dia.ref @@ -0,0 +1,21 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) ????-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// ============================================================================= +// Tests for cdfnbn() function +// ============================================================================= +prec = 1.e-5; +S = 2; +Xn = 10; +Pr = 0.4; +Ompr = 1-Pr; +[P,Q] = cdfnbn("PQ",S,Xn,Pr,Ompr); +[S1] = cdfnbn("S",Xn,Pr,Ompr,P,Q); +[Xn1] = cdfnbn("Xn",Pr,Ompr,P,Q,S); +[Pr1,Ompr1] = cdfnbn("PrOmpr",P,Q,S,Xn); +if norm(Pr1-Pr) > prec then bugmes();quit;end +if norm(Xn1-Xn) > prec then bugmes();quit;end +if norm(S1-S) > prec then bugmes();quit;end diff --git a/modules/statistics/tests/unit_tests/cdfnbn.tst b/modules/statistics/tests/unit_tests/cdfnbn.tst new file mode 100755 index 000000000..24d847cbc --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdfnbn.tst @@ -0,0 +1,25 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) ????-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// ============================================================================= +// Tests for cdfnbn() function +// ============================================================================= + +prec = 1.e-5; + +S = 2; +Xn = 10; +Pr = 0.4; +Ompr = 1-Pr; +[P,Q] = cdfnbn("PQ",S,Xn,Pr,Ompr); +[S1] = cdfnbn("S",Xn,Pr,Ompr,P,Q); +[Xn1] = cdfnbn("Xn",Pr,Ompr,P,Q,S); +[Pr1,Ompr1] = cdfnbn("PrOmpr",P,Q,S,Xn); + +if norm(Pr1-Pr) > prec then pause,end +if norm(Xn1-Xn) > prec then pause,end +if norm(S1-S) > prec then pause,end diff --git a/modules/statistics/tests/unit_tests/cdfnor.dia.ref b/modules/statistics/tests/unit_tests/cdfnor.dia.ref new file mode 100755 index 000000000..c4e5105d7 --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdfnor.dia.ref @@ -0,0 +1,124 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010 - INRIA - Michael Baudin +// Copyright (C) 2011 - DIGITEO - Michael Baudin +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// <-- ENGLISH IMPOSED --> +// Run with test_run('statistics','cdfnor',['no_check_error_output']); +// +// References +// Assessing the quality of the Normal distribution function +// References +// Yalta, A. T. 2008. The accuracy of statistical distributions in Microsoft®Excel 2007. Comput. Stat. Data Anal. 52, 10 (Jun. 2008), 4579-4586. DOI= http://dx.doi.org/10.1016/j.csda.2008.03.005 +// Computation of Statistical Distributions (ELV), Leo Knüsel +// Table 6 +// Check inverse of normal law +// +// Table from Yalta, 2008. +table = [ + 0.5 , 0.0 + 1.e-1 , -1.28155 + 1.e-2 , -2.32635 + 1.e-3 , -3.09023 + 1.e-4 , -3.71902 + 1.e-5 , -4.26489 + 1.e-6 , -4.75342 + 1.e-7 , -5.19934 + 1.e-15 , -7.94135 + 1.e-16 , -8.22208 + 1.e-100 , -21.2735 + 1.e-197 , -29.9763 + 1.e-198 , -30.0529 + 1.e-300 , -37.0471 +]; +precision = 1.e-5; +nt = size(table,"r"); +for k = 1 : nt + p = table(k,1); + expected = table(k,2); + q = 1 - p; + Mean = 0; + Std = 1; + computed = cdfnor ( "X" , Mean , Std , p , q ); + assert_checkalmostequal ( computed , expected , precision ); +end +// +// Values from R-2.8.1 +// table = [x mu sigma PDF-P CDF-P CDF-Q] +// Some tests do not pass with Scilab. +// +// See : http://bugzilla.scilab.org/show_bug.cgi?id=8032 +// +// Prints the number of accurate digits. +table = [ +// %inf 1.000000000000000000D+00 2.000000000000000000D+00 0.000000000000000000D+00 1.000000000000000000D+00 0.000000000000000000D+00 +1.630146181031128094D+01 1.000000000000000000D+00 2.000000000000000000D+00 3.885547484725481156D-14 9.999999999999900080D-01 9.992007221626602924D-15 +1.372268177939483991D+01 1.000000000000000000D+00 2.000000000000000000D+00 3.255794261707647101D-10 9.999999998999999917D-01 1.000000082740384053D-10 +1.139867516458132002D+01 1.000000000000000000D+00 2.000000000000000000D+00 2.689766239123555948D-07 9.999999000000000526D-01 9.999999994736501079D-08 +9.529781587847679702D+00 1.000000000000000000D+00 2.000000000000000000D+00 2.239366490571142939D-05 9.999900000000000455D-01 9.999999999954530395D-06 +8.438032970911416797D+00 1.000000000000000000D+00 2.000000000000000000D+00 1.979239833799469940D-04 9.999000000000000110D-01 9.999999999998900014D-05 +7.180464612335624608D+00 1.000000000000000000D+00 2.000000000000000000D+00 1.683545038532002075D-03 9.989999999999999991D-01 1.000000000000003924D-03 +5.652695748081682403D+00 1.000000000000000000D+00 2.000000000000000000D+00 1.332607110172901940D-02 9.899999999999999911D-01 1.000000000000000021D-02 +3.563103131089199849D+00 1.000000000000000000D+00 2.000000000000000000D+00 8.774916596624346421D-02 8.999999999999999112D-01 1.000000000000001027D-01 +2.683242467145829036D+00 1.000000000000000000D+00 2.000000000000000000D+00 1.399809602039041034D-01 8.000000000000001554D-01 1.999999999999999001D-01 +1.506694206271600001D+00 1.000000000000000000D+00 2.000000000000000000D+00 1.931712667484301871D-01 6.000000000000000888D-01 3.999999999999999112D-01 +1.000000000000000000D+00 1.000000000000000000D+00 2.000000000000000000D+00 1.994711402007164069D-01 5.000000000000000000D-01 5.000000000000000000D-01 +-6.832424671458280363D-01 1.000000000000000000D+00 2.000000000000000000D+00 1.399809602039041867D-01 2.000000000000000111D-01 8.000000000000000444D-01 +-1.563103131089200959D+00 1.000000000000000000D+00 2.000000000000000000D+00 8.774916596624339482D-02 1.000000000000000056D-01 9.000000000000000222D-01 +-3.652695748081681959D+00 1.000000000000000000D+00 2.000000000000000000D+00 1.332607110172904022D-02 1.000000000000001062D-02 9.899999999999999911D-01 +-7.529781587845650215D+00 1.000000000000000000D+00 2.000000000000000000D+00 2.239366490580828930D-05 9.999999999999960160D-06 9.999900000000000455D-01 +-1.172268180480810962D+01 1.000000000000000000D+00 2.000000000000000000D+00 3.255793998537787058D-10 1.000000000000008954D-10 9.999999998999999917D-01 +-1.752468017959679969D+01 1.000000000000000000D+00 2.000000000000000000D+00 4.683961267403037244D-20 1.000000000000072017D-20 1.000000000000000000D+00 +-2.886667506957698137D+01 1.000000000000000000D+00 2.000000000000000000D+00 7.499857137115675432D-50 9.999999999999744883D-51 1.000000000000000000D+00 +// -%inf 1.000000000000000000D+00 2.000000000000000000D+00 0.000000000000000000D+00 0.000000000000000000D+00 1.000000000000000000D+00 +]; +precision = 1.e-12; +precinv = 1.e-8; +nt = size(table,"r"); +for k = 1 : nt + x = table(k,1); + mu = table(k,2); + std = table(k,3); + p = table(k,5); + q = table(k,6); + [ p1 , q1 ] = cdfnor("PQ",x,mu,std); + x1 = cdfnor("X",mu,std,p,q); + mu1 = cdfnor("Mean",std,p,q,x); + std1 = cdfnor("Std",p,q,x,mu); + if ( %t ) then + assert_checkalmostequal ( p1 , p , precision ); + assert_checkalmostequal ( q1 , q , precision ); + assert_checkalmostequal ( x1 , x , precinv ); + assert_checkalmostequal ( mu1 , mu , precinv ); + if ( ~isnan(std1) ) then + assert_checkalmostequal ( std1 , std , precinv ); + end + end + if ( %f ) then + dP = assert_computedigits ( p1 , p ); + dQ = assert_computedigits ( q1 , q ); + dx = assert_computedigits ( x1 , x ); + dmu = assert_computedigits ( mu1 , mu ); + dstd = assert_computedigits ( std1 , std ); + mprintf("Test #%3d/%3d: Digits p1= %.1f, q1=%.1f, X=%.1f, M=%.1f, S=%.1f\n",k,nt,dP,dQ,dx,dmu,dstd); + end +end +// IEEE support +// See http://bugzilla.scilab.org/show_bug.cgi?id=7296 +Mean = 0; +Std = 1; +x = %inf; // Inf +[P, Q] = cdfnor("PQ", x, Mean, Std); +assert_checkequal(P, 1); +assert_checkequal(Q, 0); +x = -%inf; // -Inf +[P, Q] = cdfnor("PQ", x, Mean, Std); +assert_checkequal(P, 0); +assert_checkequal(Q, 1); +x = %nan; // NaN +[P, Q] = cdfnor("PQ", x, Mean, Std); +assert_checkequal(P, %nan); +assert_checkequal(Q, %nan); diff --git a/modules/statistics/tests/unit_tests/cdfnor.tst b/modules/statistics/tests/unit_tests/cdfnor.tst new file mode 100755 index 000000000..01450c534 --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdfnor.tst @@ -0,0 +1,136 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010 - INRIA - Michael Baudin +// Copyright (C) 2011 - DIGITEO - Michael Baudin +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> +// <-- ENGLISH IMPOSED --> + +// Run with test_run('statistics','cdfnor',['no_check_error_output']); + +// +// References +// Assessing the quality of the Normal distribution function +// References +// Yalta, A. T. 2008. The accuracy of statistical distributions in Microsoft®Excel 2007. Comput. Stat. Data Anal. 52, 10 (Jun. 2008), 4579-4586. DOI= http://dx.doi.org/10.1016/j.csda.2008.03.005 +// Computation of Statistical Distributions (ELV), Leo Knüsel +// Table 6 +// Check inverse of normal law +// + +// Table from Yalta, 2008. +table = [ + 0.5 , 0.0 + 1.e-1 , -1.28155 + 1.e-2 , -2.32635 + 1.e-3 , -3.09023 + 1.e-4 , -3.71902 + 1.e-5 , -4.26489 + 1.e-6 , -4.75342 + 1.e-7 , -5.19934 + 1.e-15 , -7.94135 + 1.e-16 , -8.22208 + 1.e-100 , -21.2735 + 1.e-197 , -29.9763 + 1.e-198 , -30.0529 + 1.e-300 , -37.0471 +]; + +precision = 1.e-5; +nt = size(table,"r"); +for k = 1 : nt + p = table(k,1); + expected = table(k,2); + q = 1 - p; + Mean = 0; + Std = 1; + computed = cdfnor ( "X" , Mean , Std , p , q ); + assert_checkalmostequal ( computed , expected , precision ); +end + +// +// Values from R-2.8.1 +// table = [x mu sigma PDF-P CDF-P CDF-Q] +// Some tests do not pass with Scilab. +// +// See : http://bugzilla.scilab.org/show_bug.cgi?id=8032 +// +// Prints the number of accurate digits. +table = [ +// %inf 1.000000000000000000D+00 2.000000000000000000D+00 0.000000000000000000D+00 1.000000000000000000D+00 0.000000000000000000D+00 +1.630146181031128094D+01 1.000000000000000000D+00 2.000000000000000000D+00 3.885547484725481156D-14 9.999999999999900080D-01 9.992007221626602924D-15 +1.372268177939483991D+01 1.000000000000000000D+00 2.000000000000000000D+00 3.255794261707647101D-10 9.999999998999999917D-01 1.000000082740384053D-10 +1.139867516458132002D+01 1.000000000000000000D+00 2.000000000000000000D+00 2.689766239123555948D-07 9.999999000000000526D-01 9.999999994736501079D-08 +9.529781587847679702D+00 1.000000000000000000D+00 2.000000000000000000D+00 2.239366490571142939D-05 9.999900000000000455D-01 9.999999999954530395D-06 +8.438032970911416797D+00 1.000000000000000000D+00 2.000000000000000000D+00 1.979239833799469940D-04 9.999000000000000110D-01 9.999999999998900014D-05 +7.180464612335624608D+00 1.000000000000000000D+00 2.000000000000000000D+00 1.683545038532002075D-03 9.989999999999999991D-01 1.000000000000003924D-03 +5.652695748081682403D+00 1.000000000000000000D+00 2.000000000000000000D+00 1.332607110172901940D-02 9.899999999999999911D-01 1.000000000000000021D-02 +3.563103131089199849D+00 1.000000000000000000D+00 2.000000000000000000D+00 8.774916596624346421D-02 8.999999999999999112D-01 1.000000000000001027D-01 +2.683242467145829036D+00 1.000000000000000000D+00 2.000000000000000000D+00 1.399809602039041034D-01 8.000000000000001554D-01 1.999999999999999001D-01 +1.506694206271600001D+00 1.000000000000000000D+00 2.000000000000000000D+00 1.931712667484301871D-01 6.000000000000000888D-01 3.999999999999999112D-01 +1.000000000000000000D+00 1.000000000000000000D+00 2.000000000000000000D+00 1.994711402007164069D-01 5.000000000000000000D-01 5.000000000000000000D-01 +-6.832424671458280363D-01 1.000000000000000000D+00 2.000000000000000000D+00 1.399809602039041867D-01 2.000000000000000111D-01 8.000000000000000444D-01 +-1.563103131089200959D+00 1.000000000000000000D+00 2.000000000000000000D+00 8.774916596624339482D-02 1.000000000000000056D-01 9.000000000000000222D-01 +-3.652695748081681959D+00 1.000000000000000000D+00 2.000000000000000000D+00 1.332607110172904022D-02 1.000000000000001062D-02 9.899999999999999911D-01 +-7.529781587845650215D+00 1.000000000000000000D+00 2.000000000000000000D+00 2.239366490580828930D-05 9.999999999999960160D-06 9.999900000000000455D-01 +-1.172268180480810962D+01 1.000000000000000000D+00 2.000000000000000000D+00 3.255793998537787058D-10 1.000000000000008954D-10 9.999999998999999917D-01 +-1.752468017959679969D+01 1.000000000000000000D+00 2.000000000000000000D+00 4.683961267403037244D-20 1.000000000000072017D-20 1.000000000000000000D+00 +-2.886667506957698137D+01 1.000000000000000000D+00 2.000000000000000000D+00 7.499857137115675432D-50 9.999999999999744883D-51 1.000000000000000000D+00 +// -%inf 1.000000000000000000D+00 2.000000000000000000D+00 0.000000000000000000D+00 0.000000000000000000D+00 1.000000000000000000D+00 +]; + +precision = 1.e-12; +precinv = 1.e-8; + +nt = size(table,"r"); +for k = 1 : nt + x = table(k,1); + mu = table(k,2); + std = table(k,3); + p = table(k,5); + q = table(k,6); + [ p1 , q1 ] = cdfnor("PQ",x,mu,std); + x1 = cdfnor("X",mu,std,p,q); + mu1 = cdfnor("Mean",std,p,q,x); + std1 = cdfnor("Std",p,q,x,mu); + if ( %t ) then + assert_checkalmostequal ( p1 , p , precision ); + assert_checkalmostequal ( q1 , q , precision ); + assert_checkalmostequal ( x1 , x , precinv ); + assert_checkalmostequal ( mu1 , mu , precinv ); + if ( ~isnan(std1) ) then + assert_checkalmostequal ( std1 , std , precinv ); + end + end + if ( %f ) then + dP = assert_computedigits ( p1 , p ); + dQ = assert_computedigits ( q1 , q ); + dx = assert_computedigits ( x1 , x ); + dmu = assert_computedigits ( mu1 , mu ); + dstd = assert_computedigits ( std1 , std ); + mprintf("Test #%3d/%3d: Digits p1= %.1f, q1=%.1f, X=%.1f, M=%.1f, S=%.1f\n",k,nt,dP,dQ,dx,dmu,dstd); + end +end + +// IEEE support +// See http://bugzilla.scilab.org/show_bug.cgi?id=7296 +Mean = 0; +Std = 1; + +x = %inf; // Inf +[P, Q] = cdfnor("PQ", x, Mean, Std); +assert_checkequal(P, 1); +assert_checkequal(Q, 0); + +x = -%inf; // -Inf +[P, Q] = cdfnor("PQ", x, Mean, Std); +assert_checkequal(P, 0); +assert_checkequal(Q, 1); + +x = %nan; // NaN +[P, Q] = cdfnor("PQ", x, Mean, Std); +assert_checkequal(P, %nan); +assert_checkequal(Q, %nan); diff --git a/modules/statistics/tests/unit_tests/cdfpoi.dia.ref b/modules/statistics/tests/unit_tests/cdfpoi.dia.ref new file mode 100755 index 000000000..d864ebf66 --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdfpoi.dia.ref @@ -0,0 +1,102 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010 - INRIA - Michael Baudin +// Copyright (C) 2011 - DIGITEO - Michael Baudin +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// <-- ENGLISH IMPOSED --> +// Run with test_run('statistics','cdfpoi',['no_check_error_output']); +// +// Assessing the quality of the Normal distribution function +// References +// Yalta, A. T. 2008. The accuracy of statistical distributions in Microsoft®Excel 2007. Comput. Stat. Data Anal. 52, 10 (Jun. 2008), 4579-4586. DOI= http://dx.doi.org/10.1016/j.csda.2008.03.005 +// Computation of Statistical Distributions (ELV), Leo Knüsel +// Table 4 +// Check Poisson distribution with parameters (lambda, k, Sigma) +// If Sigma = 1, the cumulated distribution function is to be computed. +// +// table = [x lambda p precision] +// +table = [ + 1e+03 , 1e+03 , 0.508409 , 1.e-5 + 1e+05 , 1e+05 , 0.500841 , 1.e-5 + 1e+07 , 1e+07 , 0.500084 , 1.e-5 + 1e+09 , 1e+09 , 0.500008 , 1.e-5 +]; +nt = size(table,"r"); +for k = 1 : nt + Xk = table(k,1); + lambda = table(k,2); + expected = table(k,3); + precision = table(k,4); + [computed,Q]=cdfpoi("PQ",Xk,lambda); + assert_checkalmostequal ( computed , expected , precision ); +end +// +// Values from R-2.8.1 +// table = [x lambda PDF-P CDF-P CDF-Q] +// Some tests do not pass with Scilab. +// +// +// Prints the number of accurate digits. +table = [ +1.000000000000000000D+03 1.000000000000000000D+03 1.261461134872150086D-02 5.084093671685060434D-01 4.915906328314940121D-01 +1.000000000000000000D+05 1.000000000000000000D+05 1.261565209705300949D-03 5.008410430993400775D-01 4.991589569006599225D-01 +1.000000000000000000D+07 1.000000000000000000D+07 1.261566250497027949D-04 5.000841044163260030D-01 4.999158955836739970D-01 +1.000000000000000000D+09 1.000000000000000000D+09 1.261566260904949930D-05 5.000084104417390485D-01 4.999915895582610070D-01 +//0.000000000000000000D+00 2.000000000000000000D+02 1.383896526736738008D-87 1.383896526736738008D-87 1.000000000000000000D+00 +5.000000000000000000D+01 2.000000000000000000D+02 5.123049239702292812D-37 6.815847235588002180D-37 1.000000000000000000D+00 +8.000000000000000000D+01 2.000000000000000000D+02 2.337628804093846817D-22 3.875088395176848769D-22 1.000000000000000000D+00 +1.030000000000000000D+02 2.000000000000000000D+02 1.417198708132908064D-14 2.891647405032629846D-14 9.999999999999711342D-01 +1.040000000000000000D+02 2.000000000000000000D+02 2.725382131024812095D-14 5.617029536057430897D-14 9.999999999999438227D-01 +1.330000000000000000D+02 2.000000000000000000D+02 1.013218285038530591D-07 2.943900186784097476D-07 9.999997056099813042D-01 +1.340000000000000000D+02 2.000000000000000000D+02 1.512266097072429104D-07 4.456166283856515992D-07 9.999995543833716249D-01 +2.000000000000000000D+02 2.000000000000000000D+02 2.819772768592081896D-02 5.187943096786845620D-01 4.812056903213154380D-01 +2.500000000000000000D+02 2.000000000000000000D+02 7.744905800132999957D-05 9.997153785997120456D-01 2.846214002883620114D-04 +2.800000000000000000D+02 2.000000000000000000D+02 1.602914502548084948D-08 9.999999615206405235D-01 3.847935945037056327D-08 +3.140000000000000000D+02 2.000000000000000000D+02 2.235682172206060878D-14 9.999999999999616973D-01 3.832269096110103145D-14 +3.150000000000000000D+02 2.000000000000000000D+02 1.419480744257838997D-14 9.999999999999759082D-01 2.412788351852324890D-14 +4.000000000000000000D+02 2.000000000000000000D+02 5.580687539454764804D-36 1.000000000000000000D+00 5.525962083726706326D-36 +6.000000000000000000D+02 2.000000000000000000D+02 4.53747297550031877D-115 1.000000000000000000D+00 2.26028138789988093D-115 +//9.000000000000000000D+02 2.000000000000000000D+02 1.73230170612912589D-286 1.000000000000000000D+00 4.94036667462315110D-287 +//1.000000000000000000D+03 2.000000000000000000D+02 0.000000000000000000D+00 1.000000000000000000D+00 0.000000000000000000D+00 +]; +precision = 1.e-12; +precinv = 1.e-8; +nt = size(table,"r"); +for k = 1 : nt + x = table(k,1); + lambda = table(k,2); + p = table(k,4); + q = table(k,5); + [ p1 , q1 ] = cdfpoi("PQ",x,lambda); + x1 = cdfpoi("S",lambda,p,q); + lambda1 = cdfpoi("Xlam",p,q,x); + if ( %t ) then + assert_checkalmostequal ( p1 , p , precision ); + assert_checkalmostequal ( q1 , q , precision ); + assert_checkalmostequal ( x1 , x , precinv ); + assert_checkalmostequal ( lambda1 , lambda , precinv ); + end + if ( %f ) then + dP = assert_computedigits ( p1 , p ); + dQ = assert_computedigits ( q1 , q ); + dx = assert_computedigits ( x1 , x ); + dl = assert_computedigits ( lambda , lambda1 ); + mprintf("Test #%3d/%3d: Digits p1= %.1f, q1=%.1f, X=%.1f, Lambda=%.1f\n",k,nt,dP,dQ,dx,dl); + end +end +// IEEE support +// See http://bugzilla.scilab.org/show_bug.cgi?id=7296 +Xlam = 0; +Std = 1; +S = %inf; // Inf +[P, Q] = cdfpoi("PQ", S, Xlam); +assert_checkequal(P, 1); +assert_checkequal(Q, 0); +S = %nan; // NaN +[P, Q] = cdfpoi("PQ", S, Xlam); +assert_checkequal(P, %nan); +assert_checkequal(Q, %nan); diff --git a/modules/statistics/tests/unit_tests/cdfpoi.tst b/modules/statistics/tests/unit_tests/cdfpoi.tst new file mode 100755 index 000000000..05f79e41c --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdfpoi.tst @@ -0,0 +1,113 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010 - INRIA - Michael Baudin +// Copyright (C) 2011 - DIGITEO - Michael Baudin +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> +// <-- ENGLISH IMPOSED --> + +// Run with test_run('statistics','cdfpoi',['no_check_error_output']); + +// +// Assessing the quality of the Normal distribution function +// References +// Yalta, A. T. 2008. The accuracy of statistical distributions in Microsoft®Excel 2007. Comput. Stat. Data Anal. 52, 10 (Jun. 2008), 4579-4586. DOI= http://dx.doi.org/10.1016/j.csda.2008.03.005 +// Computation of Statistical Distributions (ELV), Leo Knüsel +// Table 4 +// Check Poisson distribution with parameters (lambda, k, Sigma) +// If Sigma = 1, the cumulated distribution function is to be computed. +// +// table = [x lambda p precision] +// + +table = [ + 1e+03 , 1e+03 , 0.508409 , 1.e-5 + 1e+05 , 1e+05 , 0.500841 , 1.e-5 + 1e+07 , 1e+07 , 0.500084 , 1.e-5 + 1e+09 , 1e+09 , 0.500008 , 1.e-5 +]; + +nt = size(table,"r"); +for k = 1 : nt + Xk = table(k,1); + lambda = table(k,2); + expected = table(k,3); + precision = table(k,4); + [computed,Q]=cdfpoi("PQ",Xk,lambda); + assert_checkalmostequal ( computed , expected , precision ); +end + +// +// Values from R-2.8.1 +// table = [x lambda PDF-P CDF-P CDF-Q] +// Some tests do not pass with Scilab. +// +// +// Prints the number of accurate digits. + +table = [ +1.000000000000000000D+03 1.000000000000000000D+03 1.261461134872150086D-02 5.084093671685060434D-01 4.915906328314940121D-01 +1.000000000000000000D+05 1.000000000000000000D+05 1.261565209705300949D-03 5.008410430993400775D-01 4.991589569006599225D-01 +1.000000000000000000D+07 1.000000000000000000D+07 1.261566250497027949D-04 5.000841044163260030D-01 4.999158955836739970D-01 +1.000000000000000000D+09 1.000000000000000000D+09 1.261566260904949930D-05 5.000084104417390485D-01 4.999915895582610070D-01 +//0.000000000000000000D+00 2.000000000000000000D+02 1.383896526736738008D-87 1.383896526736738008D-87 1.000000000000000000D+00 +5.000000000000000000D+01 2.000000000000000000D+02 5.123049239702292812D-37 6.815847235588002180D-37 1.000000000000000000D+00 +8.000000000000000000D+01 2.000000000000000000D+02 2.337628804093846817D-22 3.875088395176848769D-22 1.000000000000000000D+00 +1.030000000000000000D+02 2.000000000000000000D+02 1.417198708132908064D-14 2.891647405032629846D-14 9.999999999999711342D-01 +1.040000000000000000D+02 2.000000000000000000D+02 2.725382131024812095D-14 5.617029536057430897D-14 9.999999999999438227D-01 +1.330000000000000000D+02 2.000000000000000000D+02 1.013218285038530591D-07 2.943900186784097476D-07 9.999997056099813042D-01 +1.340000000000000000D+02 2.000000000000000000D+02 1.512266097072429104D-07 4.456166283856515992D-07 9.999995543833716249D-01 +2.000000000000000000D+02 2.000000000000000000D+02 2.819772768592081896D-02 5.187943096786845620D-01 4.812056903213154380D-01 +2.500000000000000000D+02 2.000000000000000000D+02 7.744905800132999957D-05 9.997153785997120456D-01 2.846214002883620114D-04 +2.800000000000000000D+02 2.000000000000000000D+02 1.602914502548084948D-08 9.999999615206405235D-01 3.847935945037056327D-08 +3.140000000000000000D+02 2.000000000000000000D+02 2.235682172206060878D-14 9.999999999999616973D-01 3.832269096110103145D-14 +3.150000000000000000D+02 2.000000000000000000D+02 1.419480744257838997D-14 9.999999999999759082D-01 2.412788351852324890D-14 +4.000000000000000000D+02 2.000000000000000000D+02 5.580687539454764804D-36 1.000000000000000000D+00 5.525962083726706326D-36 +6.000000000000000000D+02 2.000000000000000000D+02 4.53747297550031877D-115 1.000000000000000000D+00 2.26028138789988093D-115 +//9.000000000000000000D+02 2.000000000000000000D+02 1.73230170612912589D-286 1.000000000000000000D+00 4.94036667462315110D-287 +//1.000000000000000000D+03 2.000000000000000000D+02 0.000000000000000000D+00 1.000000000000000000D+00 0.000000000000000000D+00 +]; + +precision = 1.e-12; +precinv = 1.e-8; +nt = size(table,"r"); +for k = 1 : nt + x = table(k,1); + lambda = table(k,2); + p = table(k,4); + q = table(k,5); + [ p1 , q1 ] = cdfpoi("PQ",x,lambda); + x1 = cdfpoi("S",lambda,p,q); + lambda1 = cdfpoi("Xlam",p,q,x); + if ( %t ) then + assert_checkalmostequal ( p1 , p , precision ); + assert_checkalmostequal ( q1 , q , precision ); + assert_checkalmostequal ( x1 , x , precinv ); + assert_checkalmostequal ( lambda1 , lambda , precinv ); + end + if ( %f ) then + dP = assert_computedigits ( p1 , p ); + dQ = assert_computedigits ( q1 , q ); + dx = assert_computedigits ( x1 , x ); + dl = assert_computedigits ( lambda , lambda1 ); + mprintf("Test #%3d/%3d: Digits p1= %.1f, q1=%.1f, X=%.1f, Lambda=%.1f\n",k,nt,dP,dQ,dx,dl); + end +end + +// IEEE support +// See http://bugzilla.scilab.org/show_bug.cgi?id=7296 +Xlam = 0; +Std = 1; + +S = %inf; // Inf +[P, Q] = cdfpoi("PQ", S, Xlam); +assert_checkequal(P, 1); +assert_checkequal(Q, 0); + +S = %nan; // NaN +[P, Q] = cdfpoi("PQ", S, Xlam); +assert_checkequal(P, %nan); +assert_checkequal(Q, %nan); diff --git a/modules/statistics/tests/unit_tests/cdft.dia.ref b/modules/statistics/tests/unit_tests/cdft.dia.ref new file mode 100755 index 000000000..357175420 --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdft.dia.ref @@ -0,0 +1,34 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) ????-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// ============================================================================= +// Tests for cdft() function +// using a table +// ============================================================================= +// Run with test_run('statistics','cdft',['no_check_error_output']); +prec = 1.e-5; +Tab = [0.9,0.5,0.3,0.20,0.10,0.05,0.02]; +Df = [1,2,3,4,5,6,7]; +Th = [0.158,0.816,1.250,1.533,2.015,2.447,2.998]; +[P1,Q1] = cdft("PQ",Th,Df); +[P2,Q2] = cdft("PQ",-Th,Df); +if norm(Tab-(Q1+P2)) > 0.1 then bugmes();quit;end +[P,Q] = cdft("PQ",Th,Df); +Th1 = cdft("T",Df,P,Q); +Df1 = cdft("Df",P,Q,Th); +if norm(Th1-Th) > prec then bugmes();quit;end +if norm(Df1-Df) > prec then bugmes();quit;end +// IEEE support +// See http://bugzilla.scilab.org/show_bug.cgi?id=7296 +Df = 1; +T = %inf; // Inf +[P,Q] = cdft("PQ", T, Df); +assert_checkequal(P, 1); +assert_checkequal(Q, 0); +T = %nan; // NaN +[P,Q] = cdft("PQ", T, Df); +assert_checkequal(P, %nan); +assert_checkequal(Q, %nan); diff --git a/modules/statistics/tests/unit_tests/cdft.tst b/modules/statistics/tests/unit_tests/cdft.tst new file mode 100755 index 000000000..d3356285b --- /dev/null +++ b/modules/statistics/tests/unit_tests/cdft.tst @@ -0,0 +1,44 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) ????-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// ============================================================================= +// Tests for cdft() function +// using a table +// ============================================================================= + +// Run with test_run('statistics','cdft',['no_check_error_output']); + +prec = 1.e-5; + +Tab = [0.9,0.5,0.3,0.20,0.10,0.05,0.02]; +Df = [1,2,3,4,5,6,7]; +Th = [0.158,0.816,1.250,1.533,2.015,2.447,2.998]; +[P1,Q1] = cdft("PQ",Th,Df); +[P2,Q2] = cdft("PQ",-Th,Df); + +if norm(Tab-(Q1+P2)) > 0.1 then pause, end + +[P,Q] = cdft("PQ",Th,Df); +Th1 = cdft("T",Df,P,Q); +Df1 = cdft("Df",P,Q,Th); + +if norm(Th1-Th) > prec then pause,end +if norm(Df1-Df) > prec then pause,end + +// IEEE support +// See http://bugzilla.scilab.org/show_bug.cgi?id=7296 +Df = 1; + +T = %inf; // Inf +[P,Q] = cdft("PQ", T, Df); +assert_checkequal(P, 1); +assert_checkequal(Q, 0); + +T = %nan; // NaN +[P,Q] = cdft("PQ", T, Df); +assert_checkequal(P, %nan); +assert_checkequal(Q, %nan); diff --git a/modules/statistics/tests/unit_tests/correl.dia.ref b/modules/statistics/tests/unit_tests/correl.dia.ref new file mode 100755 index 000000000..f5c3df397 --- /dev/null +++ b/modules/statistics/tests/unit_tests/correl.dia.ref @@ -0,0 +1,63 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// unit tests for correl function +// ============================================================================= +assert_checkfalse(execstr("correl()" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong number of input arguments: %d to %d expected.\n"),"correl",2,3); +assert_checkerror("correl()", refMsg); +assert_checkfalse(execstr("correl(1, [1 2])" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: Vector expected.\n"),"correl",1); +assert_checkerror("correl(1, [1 2])", refMsg); +assert_checkfalse(execstr("correl(""e"", [1 2])" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: Vector expected.\n"),"correl",1); +assert_checkerror("correl(""e"", [1 2])", refMsg); +assert_checkfalse(execstr("correl([1 2], 1)" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: Vector expected.\n"),"correl",2); +assert_checkerror("correl([1 2], 1)", refMsg); +assert_checkfalse(execstr("correl([1 2], ""e"")" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: Vector expected.\n"),"correl",2); +assert_checkerror("correl([1 2], ""e"")", refMsg); +r = correl([1 2 3], [8 9 1]); +assert_checkalmostequal(r, -0.802955068, [], %eps); +r = correl([1 2 3], [8 9 1], eye(3,3)); +assert_checkalmostequal(r, -0.802955068, [], %eps); +r = correl([9 5 1 3 5 7], [8 4 2 6 0 8]); +assert_checkalmostequal(r, 0.6062178, [], 1.e-8); +r = correl([9 5 1 3 5 7], [8 4 2 6 0 8], eye(6,6)); +assert_checkalmostequal(r, 0.6062178, [], 1.e-8); +r = correl([9 7 4 10 3 4 4 3 6], [5 4 6 6 5 3 7 5 10]); +assert_checkalmostequal(r, 0.0880254, [], 1.e-7); +r = correl([9 7 4 10 3 4 4 3 6]', [5 4 6 6 5 3 7 5 10]); +assert_checkalmostequal(r, 0.0880254, [], 1.e-7); +r = correl([9 7 4 10 3 4 4 3 6], [5 4 6 6 5 3 7 5 10]'); +assert_checkalmostequal(r, 0.0880254, [], 1.e-7); +r = correl([9 7 4 10 3 4 4 3 6]', [5 4 6 6 5 3 7 5 10]'); +assert_checkalmostequal(r, 0.0880254, [], 1.e-7); +r = correl([9 7 4 10 3 4 4 3 6], [5 4 6 6 5 3 7 5 10], eye(9,9)); +assert_checkalmostequal(r, 0.0880254, [], 1.e-7); +assert_checkfalse(execstr("correl([1 4 9 7 2], [6 3 0])" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Incompatible input arguments #%d and #%d: Same sizes expected"), "correl", 1, 2); +assert_checkerror("correl([1 4 9 7 2], [6 3 0])", refMsg); +r = correl([1 4 9 7 2], [6 3 0], eye(5,3)); +assert_checkalmostequal(r, -0.9897433, [], 1.e-8); +r = correl([1 4 9 7 2], [6 3 0], [0.3 0.5 0.7;0.1 1 0.4;0.3 0.6 0.4;0.2 0.2 0.3;0.8 0.4 0.5]); +assert_checkalmostequal(r, -0.0089969, [], 1.e-7); +r = correl([1 4 9 7 2], [2 5 10 8 3]) + r = + + 1. +assert_checkequal(r, 1); +r = correl([1 4 9 7 2], [-0 -3 -8 -6 -1]) + r = + + - 1. +assert_checkequal(r, -1); +x = [24.2; 22.7;30.5;28.6;25.5;32.0;28.6;26.5;25.3;26.0;24.4;24.8;20.6;25.1;21.4;23.7;23.9;25.2;27.4;28.3;28.8;26.6]; +y = [25;31;36;33;19;24;27;25;16;14;22;23;20;25;25;23;27;30;33;32;35;24]; +r = correl(x,y); +assert_checkalmostequal(r,0.4189440, [], 1.e-7); diff --git a/modules/statistics/tests/unit_tests/correl.tst b/modules/statistics/tests/unit_tests/correl.tst new file mode 100755 index 000000000..92f324822 --- /dev/null +++ b/modules/statistics/tests/unit_tests/correl.tst @@ -0,0 +1,80 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> + +// unit tests for correl function +// ============================================================================= + +assert_checkfalse(execstr("correl()" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong number of input arguments: %d to %d expected.\n"),"correl",2,3); +assert_checkerror("correl()", refMsg); + +assert_checkfalse(execstr("correl(1, [1 2])" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: Vector expected.\n"),"correl",1); +assert_checkerror("correl(1, [1 2])", refMsg); + +assert_checkfalse(execstr("correl(""e"", [1 2])" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: Vector expected.\n"),"correl",1); +assert_checkerror("correl(""e"", [1 2])", refMsg); + +assert_checkfalse(execstr("correl([1 2], 1)" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: Vector expected.\n"),"correl",2); +assert_checkerror("correl([1 2], 1)", refMsg); + +assert_checkfalse(execstr("correl([1 2], ""e"")" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: Vector expected.\n"),"correl",2); +assert_checkerror("correl([1 2], ""e"")", refMsg); + + +r = correl([1 2 3], [8 9 1]); +assert_checkalmostequal(r, -0.802955068, [], %eps); + +r = correl([1 2 3], [8 9 1], eye(3,3)); +assert_checkalmostequal(r, -0.802955068, [], %eps); + +r = correl([9 5 1 3 5 7], [8 4 2 6 0 8]); +assert_checkalmostequal(r, 0.6062178, [], 1.e-8); + +r = correl([9 5 1 3 5 7], [8 4 2 6 0 8], eye(6,6)); +assert_checkalmostequal(r, 0.6062178, [], 1.e-8); + +r = correl([9 7 4 10 3 4 4 3 6], [5 4 6 6 5 3 7 5 10]); +assert_checkalmostequal(r, 0.0880254, [], 1.e-7); + +r = correl([9 7 4 10 3 4 4 3 6]', [5 4 6 6 5 3 7 5 10]); +assert_checkalmostequal(r, 0.0880254, [], 1.e-7); + +r = correl([9 7 4 10 3 4 4 3 6], [5 4 6 6 5 3 7 5 10]'); +assert_checkalmostequal(r, 0.0880254, [], 1.e-7); + +r = correl([9 7 4 10 3 4 4 3 6]', [5 4 6 6 5 3 7 5 10]'); +assert_checkalmostequal(r, 0.0880254, [], 1.e-7); + +r = correl([9 7 4 10 3 4 4 3 6], [5 4 6 6 5 3 7 5 10], eye(9,9)); +assert_checkalmostequal(r, 0.0880254, [], 1.e-7); + +assert_checkfalse(execstr("correl([1 4 9 7 2], [6 3 0])" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Incompatible input arguments #%d and #%d: Same sizes expected"), "correl", 1, 2); +assert_checkerror("correl([1 4 9 7 2], [6 3 0])", refMsg); + +r = correl([1 4 9 7 2], [6 3 0], eye(5,3)); +assert_checkalmostequal(r, -0.9897433, [], 1.e-8); + +r = correl([1 4 9 7 2], [6 3 0], [0.3 0.5 0.7;0.1 1 0.4;0.3 0.6 0.4;0.2 0.2 0.3;0.8 0.4 0.5]); +assert_checkalmostequal(r, -0.0089969, [], 1.e-7); + +r = correl([1 4 9 7 2], [2 5 10 8 3]) +assert_checkequal(r, 1); + +r = correl([1 4 9 7 2], [-0 -3 -8 -6 -1]) +assert_checkequal(r, -1); + +x = [24.2; 22.7;30.5;28.6;25.5;32.0;28.6;26.5;25.3;26.0;24.4;24.8;20.6;25.1;21.4;23.7;23.9;25.2;27.4;28.3;28.8;26.6]; +y = [25;31;36;33;19;24;27;25;16;14;22;23;20;25;25;23;27;30;33;32;35;24]; +r = correl(x,y); +assert_checkalmostequal(r,0.4189440, [], 1.e-7); diff --git a/modules/statistics/tests/unit_tests/cov.dia.ref b/modules/statistics/tests/unit_tests/cov.dia.ref new file mode 100755 index 000000000..cc69200dc --- /dev/null +++ b/modules/statistics/tests/unit_tests/cov.dia.ref @@ -0,0 +1,145 @@ +// Copyright (C) 2012-2013 - Michael Baudin +// Copyright (C) 2010 - INRIA - Michael Baudin +// +// This file must be used under the terms of the GNU Lesser General Public License license : +// http://www.gnu.org/copyleft/lesser.html +// Run with test_run('statistics', 'cov', ['no_check_error_output']); +// <-- JVM NOT MANDATORY --> +// <-- ENGLISH IMPOSED --> +// Check error +assert_checkfalse(execstr("cov()" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong number of input argument(s): %d, %d or %d expected.\n"),"cov", 1, 2, 3); +assert_checkerror("cov()", refMsg); +assert_checkfalse(execstr("cov(""r"")" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: a real matrix expected.\n"),"cov", 1); +assert_checkerror("cov(""r"")", refMsg); +assert_checkfalse(execstr("cov([1;2], ""r"")" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: an integer or a real matrix expected.\n"),"cov", 2); +assert_checkerror("cov([1;2], ""r"")", refMsg); +assert_checkfalse(execstr("cov(""r"", [1;2])" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: a real matrix expected.\n"),"cov", 1); +assert_checkerror("cov(""r"", [1;2])", refMsg); +assert_checkfalse(execstr("cov(""r"", [1;2], 1)" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: a real matrix expected.\n"),"cov", 1); +assert_checkerror("cov(""r"", [1;2], 1)", refMsg); +assert_checkfalse(execstr("cov([1;2], ""r"", 1)" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: a real matrix expected.\n"),"cov", 2); +assert_checkerror("cov([1;2], ""r"", 1)", refMsg); +assert_checkfalse(execstr("cov([1;2], [3;4], ""r"")" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: an integer expected.\n"),"cov", 3); +assert_checkerror("cov([1;2], [3;4], ""r"")", refMsg); +x = [1;2]; +y = [3;4]; +computed = cov (x,y); +expected = [0.5,0.5;0.5,0.5]; +assert_checkequal ( computed , expected ); +// +// The same, with nrmlztn=0 +x = [1;2]; +y = [3;4]; +computed = cov (x,y,0); +expected = [0.5,0.5;0.5,0.5]; +assert_checkequal ( computed , expected ); +// +x = [230;181;165;150;97;192;181;189;172;170]; +y = [125;99;97;115;120;100;80;90;95;125]; +expected = [1152.4556,-88.911111;-88.911111,244.26667]; +computed = cov (x,y); +assert_checkalmostequal ( computed , expected , 1.e-7 ); +// +// The same, with nrmlztn=0 +x = [230;181;165;150;97;192;181;189;172;170]; +y = [125;99;97;115;120;100;80;90;95;125]; +expected = [1152.4556,-88.911111;-88.911111,244.26667]; +computed = cov (x,y,0); +assert_checkalmostequal ( computed , expected , 1.e-7 ); +// +x = [1;2;3;4;5]; +computed = cov (x); +expected = 2.5; +assert_checkequal ( computed , expected ); +// +// The same, with nrmlztn=0 +x = [1;2;3;4;5]; +computed = cov (x,0); +expected = 2.5; +assert_checkequal ( computed , expected ); +// +A = [-1 1 2 ; -2 3 1 ; 4 0 3]; +Cexpected = [ + 10.3333 -4.1667 3.0000 + -4.1667 2.3333 -1.5000 + 3.0000 -1.5000 1.0000 +]; +C = cov (A); +assert_checkalmostequal ( Cexpected , C , [] , 1.e-4, "element"); +// +// The same, with nrmlztn=0 +A = [-1 1 2 ; -2 3 1 ; 4 0 3]; +Cexpected = [ + 10.3333 -4.1667 3.0000 + -4.1667 2.3333 -1.5000 + 3.0000 -1.5000 1.0000 +]; +C = cov(A,0); +assert_checkalmostequal ( Cexpected , C , [] , 1.e-4, "element"); +// +// Reference +// 6.5.4.1. Mean Vector and Covariance Matrix +// http://www.itl.nist.gov/div898/handbook/pmc/section5/pmc541.htm +A = [ +4.0 2.0 0.60 +4.2 2.1 0.59 +3.9 2.0 0.58 +4.3 2.1 0.62 +4.1 2.2 0.63 +]; +S = [ +0.025 0.0075 0.00175 +0.0075 0.007 0.00135 +0.00175 0.00135 0.00043 +]; +C = cov (A); +assert_checkalmostequal ( S , C , 10*%eps , [] , "element"); +// +// The same, with nrmlztn=0 +A = [ +4.0 2.0 0.60 +4.2 2.1 0.59 +3.9 2.0 0.58 +4.3 2.1 0.62 +4.1 2.2 0.63 +]; +S = [ +0.025 0.0075 0.00175 +0.0075 0.007 0.00135 +0.00175 0.00135 0.00043 +]; +C = cov (A,0); +assert_checkalmostequal ( S , C , 10*%eps , [] , "element"); +// +x = [1;2]; +computed = cov (x,1); +expected = 0.25; +assert_checkequal ( computed , expected ); +// +x = [1;2]; +computed = cov (x,0); +expected = 0.5; +assert_checkequal ( computed , expected ); +// +x = [1;2]; +y = [3;4]; +computed = cov (x,y,1); +expected = [0.25,0.25;0.25,0.25]; +assert_checkequal ( computed , expected ); +// +// Matlab compatibility +x=[-1 1 2 ; -2 3 1 ; 4 0 3]; +computed = cov (x); +expected = [ + 10.3333 -4.1667 3.0000 + -4.1667 2.3333 -1.5000 + 3.0000 -1.5000 1.0000 +]; +assert_checkalmostequal ( computed , expected ,[],1.e-4); diff --git a/modules/statistics/tests/unit_tests/cov.tst b/modules/statistics/tests/unit_tests/cov.tst new file mode 100755 index 000000000..c7da0129a --- /dev/null +++ b/modules/statistics/tests/unit_tests/cov.tst @@ -0,0 +1,155 @@ +// Copyright (C) 2012-2013 - Michael Baudin +// Copyright (C) 2010 - INRIA - Michael Baudin +// +// This file must be used under the terms of the GNU Lesser General Public License license : +// http://www.gnu.org/copyleft/lesser.html + +// Run with test_run('statistics', 'cov', ['no_check_error_output']); + +// <-- JVM NOT MANDATORY --> +// <-- ENGLISH IMPOSED --> + +// Check error +assert_checkfalse(execstr("cov()" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong number of input argument(s): %d, %d or %d expected.\n"),"cov", 1, 2, 3); +assert_checkerror("cov()", refMsg); + +assert_checkfalse(execstr("cov(""r"")" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: a real matrix expected.\n"),"cov", 1); +assert_checkerror("cov(""r"")", refMsg); + +assert_checkfalse(execstr("cov([1;2], ""r"")" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: an integer or a real matrix expected.\n"),"cov", 2); +assert_checkerror("cov([1;2], ""r"")", refMsg); + +assert_checkfalse(execstr("cov(""r"", [1;2])" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: a real matrix expected.\n"),"cov", 1); +assert_checkerror("cov(""r"", [1;2])", refMsg); + +assert_checkfalse(execstr("cov(""r"", [1;2], 1)" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: a real matrix expected.\n"),"cov", 1); +assert_checkerror("cov(""r"", [1;2], 1)", refMsg); + +assert_checkfalse(execstr("cov([1;2], ""r"", 1)" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: a real matrix expected.\n"),"cov", 2); +assert_checkerror("cov([1;2], ""r"", 1)", refMsg); + +assert_checkfalse(execstr("cov([1;2], [3;4], ""r"")" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: an integer expected.\n"),"cov", 3); +assert_checkerror("cov([1;2], [3;4], ""r"")", refMsg); + +x = [1;2]; +y = [3;4]; +computed = cov (x,y); +expected = [0.5,0.5;0.5,0.5]; +assert_checkequal ( computed , expected ); +// +// The same, with nrmlztn=0 +x = [1;2]; +y = [3;4]; +computed = cov (x,y,0); +expected = [0.5,0.5;0.5,0.5]; +assert_checkequal ( computed , expected ); +// +x = [230;181;165;150;97;192;181;189;172;170]; +y = [125;99;97;115;120;100;80;90;95;125]; +expected = [1152.4556,-88.911111;-88.911111,244.26667]; +computed = cov (x,y); +assert_checkalmostequal ( computed , expected , 1.e-7 ); +// +// The same, with nrmlztn=0 +x = [230;181;165;150;97;192;181;189;172;170]; +y = [125;99;97;115;120;100;80;90;95;125]; +expected = [1152.4556,-88.911111;-88.911111,244.26667]; +computed = cov (x,y,0); +assert_checkalmostequal ( computed , expected , 1.e-7 ); +// +x = [1;2;3;4;5]; +computed = cov (x); +expected = 2.5; +assert_checkequal ( computed , expected ); +// +// The same, with nrmlztn=0 +x = [1;2;3;4;5]; +computed = cov (x,0); +expected = 2.5; +assert_checkequal ( computed , expected ); +// +A = [-1 1 2 ; -2 3 1 ; 4 0 3]; +Cexpected = [ + 10.3333 -4.1667 3.0000 + -4.1667 2.3333 -1.5000 + 3.0000 -1.5000 1.0000 +]; +C = cov (A); +assert_checkalmostequal ( Cexpected , C , [] , 1.e-4, "element"); +// +// The same, with nrmlztn=0 +A = [-1 1 2 ; -2 3 1 ; 4 0 3]; +Cexpected = [ + 10.3333 -4.1667 3.0000 + -4.1667 2.3333 -1.5000 + 3.0000 -1.5000 1.0000 +]; +C = cov(A,0); +assert_checkalmostequal ( Cexpected , C , [] , 1.e-4, "element"); +// +// Reference +// 6.5.4.1. Mean Vector and Covariance Matrix +// http://www.itl.nist.gov/div898/handbook/pmc/section5/pmc541.htm +A = [ +4.0 2.0 0.60 +4.2 2.1 0.59 +3.9 2.0 0.58 +4.3 2.1 0.62 +4.1 2.2 0.63 +]; +S = [ +0.025 0.0075 0.00175 +0.0075 0.007 0.00135 +0.00175 0.00135 0.00043 +]; +C = cov (A); +assert_checkalmostequal ( S , C , 10*%eps , [] , "element"); +// +// The same, with nrmlztn=0 +A = [ +4.0 2.0 0.60 +4.2 2.1 0.59 +3.9 2.0 0.58 +4.3 2.1 0.62 +4.1 2.2 0.63 +]; +S = [ +0.025 0.0075 0.00175 +0.0075 0.007 0.00135 +0.00175 0.00135 0.00043 +]; +C = cov (A,0); +assert_checkalmostequal ( S , C , 10*%eps , [] , "element"); +// +x = [1;2]; +computed = cov (x,1); +expected = 0.25; +assert_checkequal ( computed , expected ); +// +x = [1;2]; +computed = cov (x,0); +expected = 0.5; +assert_checkequal ( computed , expected ); +// +x = [1;2]; +y = [3;4]; +computed = cov (x,y,1); +expected = [0.25,0.25;0.25,0.25]; +assert_checkequal ( computed , expected ); +// +// Matlab compatibility +x=[-1 1 2 ; -2 3 1 ; 4 0 3]; +computed = cov (x); +expected = [ + 10.3333 -4.1667 3.0000 + -4.1667 2.3333 -1.5000 + 3.0000 -1.5000 1.0000 +]; +assert_checkalmostequal ( computed , expected ,[],1.e-4); diff --git a/modules/statistics/tests/unit_tests/ftest.dia.ref b/modules/statistics/tests/unit_tests/ftest.dia.ref new file mode 100755 index 000000000..9acccb2bf --- /dev/null +++ b/modules/statistics/tests/unit_tests/ftest.dia.ref @@ -0,0 +1,50 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// Copyright (C) ????-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// ============================================================================= +// Tests for ftest() function +// ============================================================================= +// Run with test_run('statistics', 'ftest', ['no_check_error_output']); +prec = 1.e-5; +samples = [46 55 54; + 53 54 50; + 49 58 51; + 50 61 51; + 46 52 49]; +[f, p] = ftest(samples); +expected_p = 0.0055319; +assert_checktrue(norm(p-expected_p) < prec); +prec = 1.e-32; +T = [ +107.8681568 +107.8681465 +107.8681572 +107.8681785 +107.8681446 +107.8681903 +107.8681526 +107.8681494 +107.8681616 +107.8681587 +107.8681519 +107.8681486 +107.8681419 +107.8681569 +107.8681508 +107.8681672 +107.8681385 +107.8681518 +107.8681662 +107.8681424 +107.8681360 +107.8681333 +107.8681610 +107.8681477 +]; +[f,p]=ftest([T,T*(1+1.e-6)]); +expected_p = 6.033347845799172588D-31; +assert_checktrue(norm(p-expected_p) < prec); diff --git a/modules/statistics/tests/unit_tests/ftest.tst b/modules/statistics/tests/unit_tests/ftest.tst new file mode 100755 index 000000000..c4b9fc0b3 --- /dev/null +++ b/modules/statistics/tests/unit_tests/ftest.tst @@ -0,0 +1,61 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// Copyright (C) ????-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// ============================================================================= +// Tests for ftest() function +// ============================================================================= + +// Run with test_run('statistics', 'ftest', ['no_check_error_output']); + +prec = 1.e-5; + +samples = [46 55 54; + 53 54 50; + 49 58 51; + 50 61 51; + 46 52 49]; + +[f, p] = ftest(samples); + +expected_p = 0.0055319; + +assert_checktrue(norm(p-expected_p) < prec); + +prec = 1.e-32; + +T = [ +107.8681568 +107.8681465 +107.8681572 +107.8681785 +107.8681446 +107.8681903 +107.8681526 +107.8681494 +107.8681616 +107.8681587 +107.8681519 +107.8681486 +107.8681419 +107.8681569 +107.8681508 +107.8681672 +107.8681385 +107.8681518 +107.8681662 +107.8681424 +107.8681360 +107.8681333 +107.8681610 +107.8681477 +]; + +[f,p]=ftest([T,T*(1+1.e-6)]); +expected_p = 6.033347845799172588D-31; + +assert_checktrue(norm(p-expected_p) < prec); diff --git a/modules/statistics/tests/unit_tests/ftuneq.dia.ref b/modules/statistics/tests/unit_tests/ftuneq.dia.ref new file mode 100755 index 000000000..73cd195ff --- /dev/null +++ b/modules/statistics/tests/unit_tests/ftuneq.dia.ref @@ -0,0 +1,49 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// Copyright (C) ????-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// ============================================================================= +// Tests for ftuneq() function +// ============================================================================= +// Run with test_run('statistics', 'ftuneq', ['no_check_error_output']); +prec = 1.e-5; +sample1 = [46 55 54]; +sample2 = [53 54]; +sample3 = [50 49 58 51 50]; +sample4 = [61 51 46 52]; +[f, p] = ftuneq(sample1, sample2, sample3, sample4); +expected_p = 0.9602320; +assert_checktrue(norm(p-expected_p) < prec); +prec = 1.e-32; +T = [ +107.8681568 +107.8681465 +107.8681572 +107.8681785 +107.8681446 +107.8681903 +107.8681526 +107.8681494 +107.8681616 +107.8681587 +107.8681519 +107.8681486 +107.8681419 +107.8681569 +107.8681508 +107.8681672 +107.8681385 +107.8681518 +107.8681662 +107.8681424 +107.8681360 +107.8681333 +107.8681610 +107.8681477 +]; +[f,p]=ftuneq(T,T*(1+1.e-6)); +expected_p = 6.033347845799172588D-31; +assert_checktrue(norm(p-expected_p) < prec); diff --git a/modules/statistics/tests/unit_tests/ftuneq.tst b/modules/statistics/tests/unit_tests/ftuneq.tst new file mode 100755 index 000000000..aecbabeb0 --- /dev/null +++ b/modules/statistics/tests/unit_tests/ftuneq.tst @@ -0,0 +1,60 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// Copyright (C) ????-2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// ============================================================================= +// Tests for ftuneq() function +// ============================================================================= + +// Run with test_run('statistics', 'ftuneq', ['no_check_error_output']); + +prec = 1.e-5; + +sample1 = [46 55 54]; +sample2 = [53 54]; +sample3 = [50 49 58 51 50]; +sample4 = [61 51 46 52]; + +[f, p] = ftuneq(sample1, sample2, sample3, sample4); + +expected_p = 0.9602320; + +assert_checktrue(norm(p-expected_p) < prec); + +prec = 1.e-32; + +T = [ +107.8681568 +107.8681465 +107.8681572 +107.8681785 +107.8681446 +107.8681903 +107.8681526 +107.8681494 +107.8681616 +107.8681587 +107.8681519 +107.8681486 +107.8681419 +107.8681569 +107.8681508 +107.8681672 +107.8681385 +107.8681518 +107.8681662 +107.8681424 +107.8681360 +107.8681333 +107.8681610 +107.8681477 +]; + +[f,p]=ftuneq(T,T*(1+1.e-6)); +expected_p = 6.033347845799172588D-31; + +assert_checktrue(norm(p-expected_p) < prec); diff --git a/modules/statistics/tests/unit_tests/histc.dia.ref b/modules/statistics/tests/unit_tests/histc.dia.ref new file mode 100755 index 000000000..e8373d17d --- /dev/null +++ b/modules/statistics/tests/unit_tests/histc.dia.ref @@ -0,0 +1,212 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +rand("seed", 0); +d = rand(1, 10000, "normal"); +[cfC, indC] = histc(20, d); +refCF = [ +0.000257209601 +0.001028838404 +0.005144192018 +0.009259545632 +0.027007008092 +0.073561945850 +0.128604800438 +0.205767680700 +0.303764538634 +0.364723214041 +0.397131623751 +0.363179956436 +0.289875220186 +0.190335104648 +0.110085709175 +0.061215885008 +0.026749798491 +0.010288384035 +0.002829305610 +0.001286048004 ]'; +assert_checkequal(size(indC), [1 10000]); +assert_checkalmostequal(cfC, refCF); +[cfC, indC] = histc(int32(20), d); +assert_checkequal(size(indC), [1 10000]); +assert_checkalmostequal(cfC, refCF); +// Same test, without normalization +[cfC, indC] = histc(20, d, normalization=%f); +refCF = [ +1 +4 +20 +36 +105 +286 +500 +800 +1181 +1418 +1544 +1412 +1127 +740 +428 +238 +104 +40 +11 +5 ]'; +assert_checkequal(size(indC), [1 10000]); +assert_checkequal(cfC, refCF); +[cfC, indC] = histc(int16(20), d, normalization=%f); +assert_checkequal(size(indC), [1 10000]); +assert_checkequal(cfC, refCF); +// With x instead of n as first argument +cfC = histc([-5 0 5], d); +refCF = [0.09982 0.10018]; +assert_checkequal(cfC, refCF); +cfC = histc(int8([-5 0 5]), d); +assert_checkequal(cfC, refCF); +cfC = histc(int16([-5 0 5]), d); +assert_checkequal(cfC, refCF); +cfC = histc(int32([-5 0 5]), d); +assert_checkequal(cfC, refCF); +assert_checkequal(sum(cfC), 0.2); +cfC = histc([-5 0 5], d, %f); +assert_checkequal(sum(cfC), 10000); // -5 > d > 5, and d has 10000 elements. +lambda = 2; +grand("setsd", 0); +D = grand(100000, 1, "exp", 1/lambda); +[cfC, indC] = histc(40, D); +refCF = [ +1.698711801698 +1.24408608389 +0.908431380900 +0.656611502242 +0.489635746028 +0.352875852007 +0.257181774872 +0.194479129735 +0.141490978915 +0.097271105433 +0.073615680960 +0.050401824411 +0.038416409344 +0.028512671632 +0.021447584856 +0.014634822607 +0.010660711296 +0.008200547151 +0.005866545269 +0.004289516971 +0.004163354707 +0.001387784902 +0.001450866034 +0.000946216979 +0.000756973583 +0.000756973583 +0.000441567923 +0.000315405660 +0.000252324528 +0.000189243396 +0.000063081132 +0.000189243396 +0.000126162264 +0.000063081132 +0.000063081132 +0 +0 +0.000063081132 +0 +0.000063081132 ]'; +assert_checkequal(size(indC), [100000 1]); +assert_checkalmostequal(cfC, refCF); +[cfC, indC] = histc(int8(40), D); +assert_checkequal(size(indC), [100000 1]); +assert_checkalmostequal(cfC, refCF); +// Same test, without normalization +[cfC, indC] = histc(40, D, normalization=%f); +refCF = [ +26929 +19722 +14401 +10409 +7762 +5594 +4077 +3083 +2243 +1542 +1167 +799 +609 +452 +340 +232 +169 +130 +93 +68 +66 +22 +23 +15 +12 +12 +7 +5 +4 +3 +1 +3 +2 +1 +1 +0 +0 +1 +0 +1 ]'; +assert_checkequal(size(indC), [100000 1]); +assert_checkalmostequal(cfC, refCF); +[cfC, indC] = histc(int32(40), D, normalization=%f); +assert_checkequal(size(indC), [100000 1]); +assert_checkalmostequal(cfC, refCF); +// With x instead of n as first argument +cfC = histc([0 7], D); +refCF = 0.142857142857; +assert_checkalmostequal(cfC, refCF); +cfC = histc(int8([0 7]), D); +assert_checkalmostequal(cfC, refCF); +cfC = histc(int16([0 7]), D); +assert_checkalmostequal(cfC, refCF); +cfC = histc(int32([0 7]), D); +assert_checkalmostequal(cfC, refCF); +cfC = histc([0 7], D, %f); +assert_checkequal(cfC, 100000); // 0 > D > 7, and D has 100000 elements. +// Error checks +refMsg = msprintf(_("%s: Wrong number of input argument(s): At least %d expected.\n"), "histc", 2); +assert_checkerror("histc(1)", refMsg); +assert_checkerror("histc()", refMsg); +refMsg = msprintf(_("%s: Wrong type of input argument #%d: A single boolean expected.\n"), "histc", 3); +assert_checkerror("histc(1, 1, normalization=[%t %t])", refMsg); +assert_checkerror("histc(1, 1, [%t %t])", refMsg); +assert_checkerror("histc(1, 1, """")", refMsg); +assert_checkerror("histc(1, 1, 1)", refMsg); +refMsg = msprintf(_("%s: Wrong value for input argument #%d: Must be in the interval %s.\n"), "histc", 1, "[1, oo)"); +assert_checkerror("histc(0, 1, %t)", refMsg); +assert_checkerror("histc(-1, 1)", refMsg); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: Integer expected.\n"), "histc", 1); +assert_checkerror("histc(1.5, 1, %t)", refMsg); +refMsg = msprintf(_("%s: Wrong values for input argument #%d: Elements must be in increasing order.\n"), "histc", 1); +assert_checkerror("histc([2 1], 1, %t)", refMsg); +assert_checkerror("histc([1 1], 1, %t)", refMsg); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "histc", 1); +assert_checkerror("histc(list(), 1)", refMsg); +assert_checkerror("histc("""", 1)", refMsg); +assert_checkerror("histc(%t, 1)", refMsg); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "histc", 2); +assert_checkerror("histc(1, list())", refMsg); +assert_checkerror("histc(1, """")", refMsg); +assert_checkerror("histc(1, %t)", refMsg); diff --git a/modules/statistics/tests/unit_tests/histc.tst b/modules/statistics/tests/unit_tests/histc.tst new file mode 100755 index 000000000..dc44a3c3a --- /dev/null +++ b/modules/statistics/tests/unit_tests/histc.tst @@ -0,0 +1,231 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// + +rand("seed", 0); +d = rand(1, 10000, "normal"); +[cfC, indC] = histc(20, d); + +refCF = [ +0.000257209601 +0.001028838404 +0.005144192018 +0.009259545632 +0.027007008092 +0.073561945850 +0.128604800438 +0.205767680700 +0.303764538634 +0.364723214041 +0.397131623751 +0.363179956436 +0.289875220186 +0.190335104648 +0.110085709175 +0.061215885008 +0.026749798491 +0.010288384035 +0.002829305610 +0.001286048004 ]'; +assert_checkequal(size(indC), [1 10000]); +assert_checkalmostequal(cfC, refCF); +[cfC, indC] = histc(int32(20), d); +assert_checkequal(size(indC), [1 10000]); +assert_checkalmostequal(cfC, refCF); + +// Same test, without normalization +[cfC, indC] = histc(20, d, normalization=%f); + +refCF = [ +1 +4 +20 +36 +105 +286 +500 +800 +1181 +1418 +1544 +1412 +1127 +740 +428 +238 +104 +40 +11 +5 ]'; +assert_checkequal(size(indC), [1 10000]); +assert_checkequal(cfC, refCF); +[cfC, indC] = histc(int16(20), d, normalization=%f); +assert_checkequal(size(indC), [1 10000]); +assert_checkequal(cfC, refCF); + + +// With x instead of n as first argument +cfC = histc([-5 0 5], d); +refCF = [0.09982 0.10018]; +assert_checkequal(cfC, refCF); +cfC = histc(int8([-5 0 5]), d); +assert_checkequal(cfC, refCF); +cfC = histc(int16([-5 0 5]), d); +assert_checkequal(cfC, refCF); +cfC = histc(int32([-5 0 5]), d); +assert_checkequal(cfC, refCF); +assert_checkequal(sum(cfC), 0.2); +cfC = histc([-5 0 5], d, %f); +assert_checkequal(sum(cfC), 10000); // -5 > d > 5, and d has 10000 elements. + + + +lambda = 2; +grand("setsd", 0); +D = grand(100000, 1, "exp", 1/lambda); +[cfC, indC] = histc(40, D); + +refCF = [ +1.698711801698 +1.24408608389 +0.908431380900 +0.656611502242 +0.489635746028 +0.352875852007 +0.257181774872 +0.194479129735 +0.141490978915 +0.097271105433 +0.073615680960 +0.050401824411 +0.038416409344 +0.028512671632 +0.021447584856 +0.014634822607 +0.010660711296 +0.008200547151 +0.005866545269 +0.004289516971 +0.004163354707 +0.001387784902 +0.001450866034 +0.000946216979 +0.000756973583 +0.000756973583 +0.000441567923 +0.000315405660 +0.000252324528 +0.000189243396 +0.000063081132 +0.000189243396 +0.000126162264 +0.000063081132 +0.000063081132 +0 +0 +0.000063081132 +0 +0.000063081132 ]'; +assert_checkequal(size(indC), [100000 1]); +assert_checkalmostequal(cfC, refCF); +[cfC, indC] = histc(int8(40), D); +assert_checkequal(size(indC), [100000 1]); +assert_checkalmostequal(cfC, refCF); + +// Same test, without normalization +[cfC, indC] = histc(40, D, normalization=%f); + +refCF = [ +26929 +19722 +14401 +10409 +7762 +5594 +4077 +3083 +2243 +1542 +1167 +799 +609 +452 +340 +232 +169 +130 +93 +68 +66 +22 +23 +15 +12 +12 +7 +5 +4 +3 +1 +3 +2 +1 +1 +0 +0 +1 +0 +1 ]'; +assert_checkequal(size(indC), [100000 1]); +assert_checkalmostequal(cfC, refCF); +[cfC, indC] = histc(int32(40), D, normalization=%f); +assert_checkequal(size(indC), [100000 1]); +assert_checkalmostequal(cfC, refCF); + +// With x instead of n as first argument +cfC = histc([0 7], D); +refCF = 0.142857142857; +assert_checkalmostequal(cfC, refCF); +cfC = histc(int8([0 7]), D); +assert_checkalmostequal(cfC, refCF); +cfC = histc(int16([0 7]), D); +assert_checkalmostequal(cfC, refCF); +cfC = histc(int32([0 7]), D); +assert_checkalmostequal(cfC, refCF); +cfC = histc([0 7], D, %f); +assert_checkequal(cfC, 100000); // 0 > D > 7, and D has 100000 elements. + +// Error checks +refMsg = msprintf(_("%s: Wrong number of input argument(s): At least %d expected.\n"), "histc", 2); +assert_checkerror("histc(1)", refMsg); +assert_checkerror("histc()", refMsg); + +refMsg = msprintf(_("%s: Wrong type of input argument #%d: A single boolean expected.\n"), "histc", 3); +assert_checkerror("histc(1, 1, normalization=[%t %t])", refMsg); +assert_checkerror("histc(1, 1, [%t %t])", refMsg); +assert_checkerror("histc(1, 1, """")", refMsg); +assert_checkerror("histc(1, 1, 1)", refMsg); + +refMsg = msprintf(_("%s: Wrong value for input argument #%d: Must be in the interval %s.\n"), "histc", 1, "[1, oo)"); +assert_checkerror("histc(0, 1, %t)", refMsg); +assert_checkerror("histc(-1, 1)", refMsg); + +refMsg = msprintf(_("%s: Wrong type for input argument #%d: Integer expected.\n"), "histc", 1); +assert_checkerror("histc(1.5, 1, %t)", refMsg); + +refMsg = msprintf(_("%s: Wrong values for input argument #%d: Elements must be in increasing order.\n"), "histc", 1); +assert_checkerror("histc([2 1], 1, %t)", refMsg); +assert_checkerror("histc([1 1], 1, %t)", refMsg); + +refMsg = msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "histc", 1); +assert_checkerror("histc(list(), 1)", refMsg); +assert_checkerror("histc("""", 1)", refMsg); +assert_checkerror("histc(%t, 1)", refMsg); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: A real matrix expected.\n"), "histc", 2); +assert_checkerror("histc(1, list())", refMsg); +assert_checkerror("histc(1, """")", refMsg); +assert_checkerror("histc(1, %t)", refMsg); diff --git a/modules/statistics/tests/unit_tests/iqr.dia.ref b/modules/statistics/tests/unit_tests/iqr.dia.ref new file mode 100755 index 000000000..fa311e12e --- /dev/null +++ b/modules/statistics/tests/unit_tests/iqr.dia.ref @@ -0,0 +1,51 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// unit tests for iqr function +// ============================================================================= +assert_checkfalse(execstr("iqr()" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong number of input argument: At least %d expected.\n"), "iqr", 1); +assert_checkerror("iqr()", refMsg); +assert_checkequal(iqr([]), %nan); +assert_checkequal(iqr(%nan), %nan); +assert_checkequal(iqr([%nan %nan]), %nan); +// Vector +x = 1:10; +assert_checkequal(iqr(x), 5); +assert_checkequal(iqr(x'), 5); +assert_checkfalse(execstr("iqr(x, ''r'')" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong dimensions for input argument #%d: A column vector or matrix expected.\n"), "iqr", 1); +assert_checkerror("iqr(x, ''r'')", refMsg); +assert_checkfalse(execstr("iqr(x, 1)" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong dimensions for input argument #%d: A column vector or matrix expected.\n"), "iqr", 1); +assert_checkerror("iqr(x, 1)", refMsg); +assert_checkfalse(execstr("iqr(x'', ''c'')" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong dimensions for input argument #%d: A row vector or matrix expected.\n"), "iqr", 1); +assert_checkerror("iqr(x'', ''c'')", refMsg); +assert_checkfalse(execstr("iqr(x'', 2)" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong dimensions for input argument #%d: A row vector or matrix expected.\n"), "iqr", 1); +assert_checkerror("iqr(x'', 2)", refMsg); +assert_checkequal(iqr(x, "c"), 5); +assert_checkequal(iqr(x, 2), 5); +assert_checkequal(iqr(x', "r"), 5); +assert_checkequal(iqr(x', 1), 5); +assert_checkfalse(execstr("iqr(x, 3)" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong value for input argument #%d: ''%s'', %d, ''%s'' or %d expected.\n"), "iqr", 2, "r", 1, "c", 2); +assert_checkerror("iqr(x, 3)", refMsg); +assert_checkfalse(execstr("iqr(x, ''t'')" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong value for input argument #%d: ''%s'', %d, ''%s'' or %d expected.\n"), "iqr", 2, "r", 1, "c", 2); +assert_checkerror("iqr(x, ''t'')", refMsg); +assert_checkfalse(execstr("iqr(x, [])" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong value for input argument #%d: ''%s'', %d, ''%s'' or %d expected.\n"), "iqr", 2, "r", 1, "c", 2); +assert_checkerror("iqr(x, [])", refMsg); +// Matrix +A=[1,2,10;7,7.1,7.01]; +assert_checkequal(iqr(A), 5.1); +assert_checkequal(iqr(A, "r"), [6 5.1 2.99]); +assert_checkalmostequal(iqr(A, "c"), [6.75; 0.075], [], %eps); +assert_checkequal(iqr(A, 1), [6 5.1 2.99]); +assert_checkalmostequal(iqr(A, 2), [6.75; 0.075], [], %eps); diff --git a/modules/statistics/tests/unit_tests/iqr.tst b/modules/statistics/tests/unit_tests/iqr.tst new file mode 100755 index 000000000..390ef9ef5 --- /dev/null +++ b/modules/statistics/tests/unit_tests/iqr.tst @@ -0,0 +1,69 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> + +// unit tests for iqr function +// ============================================================================= + +assert_checkfalse(execstr("iqr()" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong number of input argument: At least %d expected.\n"), "iqr", 1); +assert_checkerror("iqr()", refMsg); + +assert_checkequal(iqr([]), %nan); + +assert_checkequal(iqr(%nan), %nan); + +assert_checkequal(iqr([%nan %nan]), %nan); + +// Vector +x = 1:10; +assert_checkequal(iqr(x), 5); +assert_checkequal(iqr(x'), 5); + +assert_checkfalse(execstr("iqr(x, ''r'')" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong dimensions for input argument #%d: A column vector or matrix expected.\n"), "iqr", 1); +assert_checkerror("iqr(x, ''r'')", refMsg); + +assert_checkfalse(execstr("iqr(x, 1)" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong dimensions for input argument #%d: A column vector or matrix expected.\n"), "iqr", 1); +assert_checkerror("iqr(x, 1)", refMsg); + +assert_checkfalse(execstr("iqr(x'', ''c'')" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong dimensions for input argument #%d: A row vector or matrix expected.\n"), "iqr", 1); +assert_checkerror("iqr(x'', ''c'')", refMsg); + +assert_checkfalse(execstr("iqr(x'', 2)" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong dimensions for input argument #%d: A row vector or matrix expected.\n"), "iqr", 1); +assert_checkerror("iqr(x'', 2)", refMsg); + +assert_checkequal(iqr(x, "c"), 5); +assert_checkequal(iqr(x, 2), 5); + +assert_checkequal(iqr(x', "r"), 5); +assert_checkequal(iqr(x', 1), 5); + +assert_checkfalse(execstr("iqr(x, 3)" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong value for input argument #%d: ''%s'', %d, ''%s'' or %d expected.\n"), "iqr", 2, "r", 1, "c", 2); +assert_checkerror("iqr(x, 3)", refMsg); + +assert_checkfalse(execstr("iqr(x, ''t'')" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong value for input argument #%d: ''%s'', %d, ''%s'' or %d expected.\n"), "iqr", 2, "r", 1, "c", 2); +assert_checkerror("iqr(x, ''t'')", refMsg); + +assert_checkfalse(execstr("iqr(x, [])" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong value for input argument #%d: ''%s'', %d, ''%s'' or %d expected.\n"), "iqr", 2, "r", 1, "c", 2); +assert_checkerror("iqr(x, [])", refMsg); + +// Matrix +A=[1,2,10;7,7.1,7.01]; + +assert_checkequal(iqr(A), 5.1); +assert_checkequal(iqr(A, "r"), [6 5.1 2.99]); +assert_checkalmostequal(iqr(A, "c"), [6.75; 0.075], [], %eps); +assert_checkequal(iqr(A, 1), [6 5.1 2.99]); +assert_checkalmostequal(iqr(A, 2), [6.75; 0.075], [], %eps); diff --git a/modules/statistics/tests/unit_tests/meanf.dia.ref b/modules/statistics/tests/unit_tests/meanf.dia.ref new file mode 100755 index 000000000..ad9e4cd98 --- /dev/null +++ b/modules/statistics/tests/unit_tests/meanf.dia.ref @@ -0,0 +1,133 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// unit tests for meanf function +// ============================================================================= +assert_checkfalse(execstr("meanf()" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong number of input argument: %d to %d expected.\n"), "meanf", 2, 3); +assert_checkerror("meanf()", refMsg); +assert_checkequal(meanf([], 1), %nan); +assert_checkequal(meanf(%nan, 1), %nan); +assert_checkequal(meanf(%nan, %nan), %nan); +// Vector +x = 1:10; +assert_checkequal(meanf(x, 5), 55); +assert_checkequal(meanf(x', 5), 55); +assert_checkfalse(execstr("meanf(x, ''r'')" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: A full or sparse matrix, or an integer matrix, or an hypermat expected.\n"), "meanf", 2); +assert_checkerror("meanf(x, ''r'')", refMsg); +assert_checkequal(meanf(x, x), 7); +assert_checkequal(meanf(x', x'), 7); +assert_checkequal(meanf(x, []), %nan); +assert_checkequal(meanf(x', []), %nan); +assert_checkequal(meanf(x, x, "c"), 7); +assert_checkequal(meanf(x, x, 2), 7); +assert_checkequal(meanf(x, x, "*"), 7); +assert_checkequal(meanf(x', x', "r"), 7); +assert_checkequal(meanf(x', x', 1), 7); +assert_checkequal(meanf(x', x', "*"), 7); +assert_checkfalse(execstr("meanf(x, x, ''t'')" ,"errcatch") == 0); +refMsg = msprintf(gettext("%s: Wrong value for input argument #%d: ''%s'', ''%s'', %d or %d expected.\n"),"meanf",3,"r","c",1,2); +assert_checkerror("meanf(x, x, ''t'')", refMsg); +assert_checkfalse(execstr("meanf(x, x, 4)" ,"errcatch") == 0); +refMsg = msprintf(gettext("%s: Wrong value for input argument #%d: ''%s'', ''%s'', %d or %d expected.\n"),"meanf",3,"r","c",1,2); +assert_checkerror("meanf(x, x, 4)", refMsg); +// Matrix +A=[1,2,10;7,7.1,7.01]; +assert_checkfalse(execstr("meanf(A, A'')" ,"errcatch") == 0); +refMsg = msprintf(gettext("%s: Wrong size for input arguments #%d and #%d: Same dimensions expected.\n"),"meanf",1,2); +assert_checkerror("meanf(A, A'')", refMsg); +assert_checkequal(meanf(A, 3), 34.11); +assert_checkequal(meanf(A, 3, "r"), [8 9.1 17.01]); +assert_checkequal(meanf(A, 3, 1), [8 9.1 17.01]); +assert_checkequal(meanf(A, 3, "c"), [13;21.11]); +assert_checkequal(meanf(A, 3, 2), [13;21.11]); +assert_checkequal(meanf(A, 3, "*"), 34.11); +assert_checkalmostequal(meanf(A, A), 7.4333069, [], %eps); +assert_checkalmostequal(meanf(A, A, "*"), 7.4333069, [], %eps); +assert_checkalmostequal(meanf(A, A, "r"), [6.25 5.9791209 8.7677895], [], %eps); +assert_checkalmostequal(meanf(A, A, 1), [6.25 5.9791209 8.7677895], [], %eps); +assert_checkalmostequal(meanf(A, A, "c"), [8.0769231; 7.0369541], [], %eps); +assert_checkalmostequal(meanf(A, A, 2), [8.0769231; 7.0369541], [], %eps); +assert_checkequal(meanf(sparse(A), 3), 34.11); +assert_checkequal(meanf(sparse(A), 3, "*"), 34.11); +assert_checkalmostequal(meanf(sparse(A), 3, "r"), sparse([8 9.1 17.01]), [], %eps); +assert_checkalmostequal(meanf(sparse(A), 3, 1), sparse([8 9.1 17.01]), [], %eps); +assert_checkequal(meanf(sparse(A), 3, "c"), sparse([13;21.11])); +assert_checkequal(meanf(sparse(A), 3, 2), sparse([13;21.11])); +assert_checkalmostequal(meanf(sparse(A), A), 7.4333069, [], %eps); +assert_checkalmostequal(meanf(sparse(A), A, "*"), 7.4333069, [], %eps); +assert_checkalmostequal(meanf(sparse(A), A, "r"), sparse([6.25 5.9791209 8.7677895]), [], %eps); +assert_checkalmostequal(meanf(sparse(A), A, 1), sparse([6.25 5.9791209 8.7677895]), [], %eps); +assert_checkalmostequal(meanf(sparse(A), A, "c"), sparse([8.0769231; 7.0369541]), [], %eps); +assert_checkalmostequal(meanf(sparse(A), A, 2), sparse([8.0769231; 7.0369541]), [], %eps); +assert_checkalmostequal(meanf(A, sparse(A)), 7.4333069, [], %eps); +assert_checkalmostequal(meanf(A, sparse(A), "*"), 7.4333069, [], %eps); +assert_checkalmostequal(meanf(A, sparse(A), "r"), [6.25 5.9791209 8.7677895], [], %eps); +assert_checkalmostequal(meanf(A, sparse(A), 1), [6.25 5.9791209 8.7677895], [], %eps); +assert_checkalmostequal(meanf(A, sparse(A), "c"), [8.0769231; 7.0369541], [], %eps); +assert_checkalmostequal(meanf(A, sparse(A), 2), [8.0769231; 7.0369541], [], %eps); +assert_checkequal(meanf(int8(A), 3), int8(34)); +assert_checkequal(meanf(int8(A), 3, "*"), int8(34)); +assert_checkequal(meanf(int8(A), 3, "r"), int8([8 9 17])); +assert_checkequal(meanf(int8(A), 3, 1), int8([8 9 17])); +assert_checkequal(meanf(int8(A), 3, "c"), int8([13;21])); +assert_checkequal(meanf(int8(A), 3, 2), int8([13;21])); +assert_checkequal(meanf(int8(A), A), int8(0)); +assert_checkequal(meanf(A, int8(A)), int8(0)); +assert_checkequal(meanf(int8(A), A, "*"), int8(0)); +assert_checkequal(meanf(int8(A), A, "r"), int8([6 5 -6])); +assert_checkequal(meanf(int8(A), A, 1), int8([6 5 -6])); +assert_checkequal(meanf(int8(A), A, "c"), int8([8; -5])); +assert_checkequal(meanf(int8(A), A, 2), int8([8; -5])); +assert_checkequal(meanf(A, int8(3)), int8(34)); +assert_checkequal(meanf(A, int8(3), "*"), int8(34)); +assert_checkequal(meanf(A, int8(3), "r"), int8([8 9 17])); +assert_checkequal(meanf(A, int8(3), 1), int8([8 9 17])); +assert_checkequal(meanf(A, int8(3), "c"), int8([13;21])); +assert_checkequal(meanf(A, int8(3), 2), int8([13;21])); +assert_checkequal(meanf(uint8(A), 3), uint8(34)); +assert_checkequal(meanf(A, uint8(3)), uint8(34)); +assert_checkequal(meanf(uint8(A), 3, "r"), uint8([8 9 17])); +assert_checkequal(meanf(uint8(A), 3, 1), uint8([8 9 17])); +assert_checkequal(meanf(uint8(A), 3, "c"), uint8([13; 21])); +assert_checkequal(meanf(uint8(A), 3, 2), uint8([13; 21])); +assert_checkequal(meanf(uint8(A), A), uint8(7)); +assert_checkequal(meanf(A, uint8(A)), uint8(7)); +assert_checkequal(meanf(uint8(A), A, "r"), uint8([6 5 8])); +assert_checkequal(meanf(uint8(A), A, 1), uint8([6 5 8])); +assert_checkequal(meanf(uint8(A), A, "c"), uint8([8;7])); +assert_checkequal(meanf(uint8(A), A, 2), uint8([8;7])); +assert_checkequal(meanf(int16(A), 3), int16(34)); +assert_checkequal(meanf(int16(A), A), int16(7)); +assert_checkequal(meanf(A, int16(3)), int16(34)); +assert_checkequal(meanf(A, int16(A)), int16(7)); +assert_checkequal(meanf(uint16(A), 3), uint16(34)); +assert_checkequal(meanf(A, uint16(3)), uint16(34)); +assert_checkequal(meanf(uint16(A), A), uint16(7)); +assert_checkequal(meanf(A, uint16(A)), uint16(7)); +assert_checkequal(meanf(int32(A), 3), int32(34)); +assert_checkequal(meanf(A, int32(3)), int32(34)); +assert_checkequal(meanf(int32(A), A), int32(7)); +assert_checkequal(meanf(A, int32(A)), int32(7)); +assert_checkequal(meanf(uint32(A), 3), uint32(34)); +assert_checkequal(meanf(A, uint32(3)), uint32(34)); +assert_checkequal(meanf(uint32(A), A), uint32(7)); +assert_checkequal(meanf(A, uint32(A)), uint32(7)); +M = hypermat([1 2 3], A(:)); +assert_checkequal(meanf(M, 3), 34.11); +assert_checkequal(meanf(M, 3, "*"), 34.11); +assert_checkalmostequal(meanf(M, 3, "r"), M, [], %eps); +assert_checkalmostequal(meanf(M, 3, 1), M, [], %eps); +assert_checkequal(meanf(M, 3, "c"), hypermat([1 1 3], [8 9.1 17.01])); +assert_checkequal(meanf(M, 3, 2), hypermat([1 1 3], [8 9.1 17.01])); +assert_checkalmostequal(meanf(M, M), 7.4333069, [], %eps); +assert_checkalmostequal(meanf(M, M, "*"), 7.4333069, [], %eps); +assert_checkalmostequal(meanf(M, M, "r"), M, [], %eps); +assert_checkalmostequal(meanf(M, M, 1), M, [], %eps); +assert_checkalmostequal(meanf(M, M, "c"), hypermat([1 1 3], [6.25 5.9791209 8.7677895]), [], %eps); +assert_checkalmostequal(meanf(M, M, 2), hypermat([1 1 3], [6.25 5.9791209 8.7677895]), [], %eps); diff --git a/modules/statistics/tests/unit_tests/meanf.tst b/modules/statistics/tests/unit_tests/meanf.tst new file mode 100755 index 000000000..f25e99999 --- /dev/null +++ b/modules/statistics/tests/unit_tests/meanf.tst @@ -0,0 +1,168 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> + +// unit tests for meanf function +// ============================================================================= + +assert_checkfalse(execstr("meanf()" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong number of input argument: %d to %d expected.\n"), "meanf", 2, 3); +assert_checkerror("meanf()", refMsg); + +assert_checkequal(meanf([], 1), %nan); + +assert_checkequal(meanf(%nan, 1), %nan); + +assert_checkequal(meanf(%nan, %nan), %nan); + +// Vector +x = 1:10; +assert_checkequal(meanf(x, 5), 55); +assert_checkequal(meanf(x', 5), 55); + +assert_checkfalse(execstr("meanf(x, ''r'')" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: A full or sparse matrix, or an integer matrix, or an hypermat expected.\n"), "meanf", 2); +assert_checkerror("meanf(x, ''r'')", refMsg); + +assert_checkequal(meanf(x, x), 7); +assert_checkequal(meanf(x', x'), 7); + +assert_checkequal(meanf(x, []), %nan); +assert_checkequal(meanf(x', []), %nan); + +assert_checkequal(meanf(x, x, "c"), 7); +assert_checkequal(meanf(x, x, 2), 7); +assert_checkequal(meanf(x, x, "*"), 7); +assert_checkequal(meanf(x', x', "r"), 7); +assert_checkequal(meanf(x', x', 1), 7); +assert_checkequal(meanf(x', x', "*"), 7); + +assert_checkfalse(execstr("meanf(x, x, ''t'')" ,"errcatch") == 0); +refMsg = msprintf(gettext("%s: Wrong value for input argument #%d: ''%s'', ''%s'', %d or %d expected.\n"),"meanf",3,"r","c",1,2); +assert_checkerror("meanf(x, x, ''t'')", refMsg); + +assert_checkfalse(execstr("meanf(x, x, 4)" ,"errcatch") == 0); +refMsg = msprintf(gettext("%s: Wrong value for input argument #%d: ''%s'', ''%s'', %d or %d expected.\n"),"meanf",3,"r","c",1,2); +assert_checkerror("meanf(x, x, 4)", refMsg); + +// Matrix +A=[1,2,10;7,7.1,7.01]; + +assert_checkfalse(execstr("meanf(A, A'')" ,"errcatch") == 0); +refMsg = msprintf(gettext("%s: Wrong size for input arguments #%d and #%d: Same dimensions expected.\n"),"meanf",1,2); +assert_checkerror("meanf(A, A'')", refMsg); + +assert_checkequal(meanf(A, 3), 34.11); +assert_checkequal(meanf(A, 3, "r"), [8 9.1 17.01]); +assert_checkequal(meanf(A, 3, 1), [8 9.1 17.01]); +assert_checkequal(meanf(A, 3, "c"), [13;21.11]); +assert_checkequal(meanf(A, 3, 2), [13;21.11]); +assert_checkequal(meanf(A, 3, "*"), 34.11); + +assert_checkalmostequal(meanf(A, A), 7.4333069, [], %eps); +assert_checkalmostequal(meanf(A, A, "*"), 7.4333069, [], %eps); +assert_checkalmostequal(meanf(A, A, "r"), [6.25 5.9791209 8.7677895], [], %eps); +assert_checkalmostequal(meanf(A, A, 1), [6.25 5.9791209 8.7677895], [], %eps); +assert_checkalmostequal(meanf(A, A, "c"), [8.0769231; 7.0369541], [], %eps); +assert_checkalmostequal(meanf(A, A, 2), [8.0769231; 7.0369541], [], %eps); + +assert_checkequal(meanf(sparse(A), 3), 34.11); +assert_checkequal(meanf(sparse(A), 3, "*"), 34.11); +assert_checkalmostequal(meanf(sparse(A), 3, "r"), sparse([8 9.1 17.01]), [], %eps); +assert_checkalmostequal(meanf(sparse(A), 3, 1), sparse([8 9.1 17.01]), [], %eps); +assert_checkequal(meanf(sparse(A), 3, "c"), sparse([13;21.11])); +assert_checkequal(meanf(sparse(A), 3, 2), sparse([13;21.11])); + +assert_checkalmostequal(meanf(sparse(A), A), 7.4333069, [], %eps); +assert_checkalmostequal(meanf(sparse(A), A, "*"), 7.4333069, [], %eps); +assert_checkalmostequal(meanf(sparse(A), A, "r"), sparse([6.25 5.9791209 8.7677895]), [], %eps); +assert_checkalmostequal(meanf(sparse(A), A, 1), sparse([6.25 5.9791209 8.7677895]), [], %eps); +assert_checkalmostequal(meanf(sparse(A), A, "c"), sparse([8.0769231; 7.0369541]), [], %eps); +assert_checkalmostequal(meanf(sparse(A), A, 2), sparse([8.0769231; 7.0369541]), [], %eps); + +assert_checkalmostequal(meanf(A, sparse(A)), 7.4333069, [], %eps); +assert_checkalmostequal(meanf(A, sparse(A), "*"), 7.4333069, [], %eps); +assert_checkalmostequal(meanf(A, sparse(A), "r"), [6.25 5.9791209 8.7677895], [], %eps); +assert_checkalmostequal(meanf(A, sparse(A), 1), [6.25 5.9791209 8.7677895], [], %eps); +assert_checkalmostequal(meanf(A, sparse(A), "c"), [8.0769231; 7.0369541], [], %eps); +assert_checkalmostequal(meanf(A, sparse(A), 2), [8.0769231; 7.0369541], [], %eps); + +assert_checkequal(meanf(int8(A), 3), int8(34)); +assert_checkequal(meanf(int8(A), 3, "*"), int8(34)); +assert_checkequal(meanf(int8(A), 3, "r"), int8([8 9 17])); +assert_checkequal(meanf(int8(A), 3, 1), int8([8 9 17])); +assert_checkequal(meanf(int8(A), 3, "c"), int8([13;21])); +assert_checkequal(meanf(int8(A), 3, 2), int8([13;21])); + +assert_checkequal(meanf(int8(A), A), int8(0)); +assert_checkequal(meanf(A, int8(A)), int8(0)); +assert_checkequal(meanf(int8(A), A, "*"), int8(0)); +assert_checkequal(meanf(int8(A), A, "r"), int8([6 5 -6])); +assert_checkequal(meanf(int8(A), A, 1), int8([6 5 -6])); +assert_checkequal(meanf(int8(A), A, "c"), int8([8; -5])); +assert_checkequal(meanf(int8(A), A, 2), int8([8; -5])); + +assert_checkequal(meanf(A, int8(3)), int8(34)); +assert_checkequal(meanf(A, int8(3), "*"), int8(34)); +assert_checkequal(meanf(A, int8(3), "r"), int8([8 9 17])); +assert_checkequal(meanf(A, int8(3), 1), int8([8 9 17])); +assert_checkequal(meanf(A, int8(3), "c"), int8([13;21])); +assert_checkequal(meanf(A, int8(3), 2), int8([13;21])); + + +assert_checkequal(meanf(uint8(A), 3), uint8(34)); +assert_checkequal(meanf(A, uint8(3)), uint8(34)); +assert_checkequal(meanf(uint8(A), 3, "r"), uint8([8 9 17])); +assert_checkequal(meanf(uint8(A), 3, 1), uint8([8 9 17])); +assert_checkequal(meanf(uint8(A), 3, "c"), uint8([13; 21])); +assert_checkequal(meanf(uint8(A), 3, 2), uint8([13; 21])); + +assert_checkequal(meanf(uint8(A), A), uint8(7)); +assert_checkequal(meanf(A, uint8(A)), uint8(7)); +assert_checkequal(meanf(uint8(A), A, "r"), uint8([6 5 8])); +assert_checkequal(meanf(uint8(A), A, 1), uint8([6 5 8])); +assert_checkequal(meanf(uint8(A), A, "c"), uint8([8;7])); +assert_checkequal(meanf(uint8(A), A, 2), uint8([8;7])); + +assert_checkequal(meanf(int16(A), 3), int16(34)); +assert_checkequal(meanf(int16(A), A), int16(7)); +assert_checkequal(meanf(A, int16(3)), int16(34)); +assert_checkequal(meanf(A, int16(A)), int16(7)); + +assert_checkequal(meanf(uint16(A), 3), uint16(34)); +assert_checkequal(meanf(A, uint16(3)), uint16(34)); + +assert_checkequal(meanf(uint16(A), A), uint16(7)); +assert_checkequal(meanf(A, uint16(A)), uint16(7)); + +assert_checkequal(meanf(int32(A), 3), int32(34)); +assert_checkequal(meanf(A, int32(3)), int32(34)); + +assert_checkequal(meanf(int32(A), A), int32(7)); +assert_checkequal(meanf(A, int32(A)), int32(7)); + +assert_checkequal(meanf(uint32(A), 3), uint32(34)); +assert_checkequal(meanf(A, uint32(3)), uint32(34)); + +assert_checkequal(meanf(uint32(A), A), uint32(7)); +assert_checkequal(meanf(A, uint32(A)), uint32(7)); + +M = hypermat([1 2 3], A(:)); +assert_checkequal(meanf(M, 3), 34.11); +assert_checkequal(meanf(M, 3, "*"), 34.11); +assert_checkalmostequal(meanf(M, 3, "r"), M, [], %eps); +assert_checkalmostequal(meanf(M, 3, 1), M, [], %eps); +assert_checkequal(meanf(M, 3, "c"), hypermat([1 1 3], [8 9.1 17.01])); +assert_checkequal(meanf(M, 3, 2), hypermat([1 1 3], [8 9.1 17.01])); + +assert_checkalmostequal(meanf(M, M), 7.4333069, [], %eps); +assert_checkalmostequal(meanf(M, M, "*"), 7.4333069, [], %eps); +assert_checkalmostequal(meanf(M, M, "r"), M, [], %eps); +assert_checkalmostequal(meanf(M, M, 1), M, [], %eps); +assert_checkalmostequal(meanf(M, M, "c"), hypermat([1 1 3], [6.25 5.9791209 8.7677895]), [], %eps); +assert_checkalmostequal(meanf(M, M, 2), hypermat([1 1 3], [6.25 5.9791209 8.7677895]), [], %eps); diff --git a/modules/statistics/tests/unit_tests/median.dia.ref b/modules/statistics/tests/unit_tests/median.dia.ref new file mode 100755 index 000000000..1e6a4e872 --- /dev/null +++ b/modules/statistics/tests/unit_tests/median.dia.ref @@ -0,0 +1,19 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// ============================================================================= +// Tests for median function +// ============================================================================= +if or( median([1 2 3; 4 5 6],'c') <> [2;5]) then bugmes();quit;end +if or( median([1 2 3; 4 5 6],'r') <> [2.5 3.5 4.5]) then bugmes();quit;end +if or( median([1, 2, 3]','r') <> 2 ) then bugmes();quit;end +if or( median([1, 2, 3],'r') <> [1 2 3]) then bugmes();quit;end +if or( median([1, 2, 3]','c') <> [1 ; 2 ; 3]) then bugmes();quit;end +if or( median([1, 2, 3],'c') <> 2) then bugmes();quit;end +if or( median([1, 2, 3, 4]','c') <> [1 ; 2 ; 3 ; 4]) then bugmes();quit;end +if or( median([1, 2, 3, 4],'c') <> 2.5) then bugmes();quit;end +if or( median([1, 2, 3, 4],'r') <> [1 2 3 4]) then bugmes();quit;end +if or( median([1, 2, 3, 4]','r') <> 2.5) then bugmes();quit;end diff --git a/modules/statistics/tests/unit_tests/median.tst b/modules/statistics/tests/unit_tests/median.tst new file mode 100755 index 000000000..67016f0dd --- /dev/null +++ b/modules/statistics/tests/unit_tests/median.tst @@ -0,0 +1,28 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// ============================================================================= +// Tests for median function +// ============================================================================= + +if or( median([1 2 3; 4 5 6],'c') <> [2;5]) then pause, end +if or( median([1 2 3; 4 5 6],'r') <> [2.5 3.5 4.5]) then pause, end + +if or( median([1, 2, 3]','r') <> 2 ) then pause, end +if or( median([1, 2, 3],'r') <> [1 2 3]) then pause, end + + +if or( median([1, 2, 3]','c') <> [1 ; 2 ; 3]) then pause, end +if or( median([1, 2, 3],'c') <> 2) then pause, end + + +if or( median([1, 2, 3, 4]','c') <> [1 ; 2 ; 3 ; 4]) then pause, end +if or( median([1, 2, 3, 4],'c') <> 2.5) then pause, end + + +if or( median([1, 2, 3, 4],'r') <> [1 2 3 4]) then pause, end +if or( median([1, 2, 3, 4]','r') <> 2.5) then pause, end diff --git a/modules/statistics/tests/unit_tests/nancumsum.dia.ref b/modules/statistics/tests/unit_tests/nancumsum.dia.ref new file mode 100755 index 000000000..27b347cb7 --- /dev/null +++ b/modules/statistics/tests/unit_tests/nancumsum.dia.ref @@ -0,0 +1,53 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// unit tests for nancumsum function +// ============================================================================= +assert_checkfalse(execstr("nancumsum()" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong number of input argument(s): %d to %d expected.\n"), "nancumsum", 1, 2); +assert_checkerror("nancumsum()", refMsg); +assert_checkfalse(execstr("nancumsum(""s"")" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: Real or complex, boolean, polynomial matrix expected.\n"), "nancumsum", 1); +assert_checkerror("nancumsum(""s"")", refMsg); +assert_checkfalse(execstr("nancumsum(1, ""p"")" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong value for input argument #%d: Must be in the set {%s}.\n"), "nancumsum", 2, """r"", ""c"", ""*"", 1, 2"); +assert_checkerror("nancumsum(1, ""p"")", refMsg); +assert_checkfalse(execstr("nancumsum(1, %s)" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: A string or scalar expected.\n"), "nancumsum", 2); +assert_checkerror("nancumsum(1, %s)", refMsg); +assert_checkequal(nancumsum([]), []); +assert_checkequal(nancumsum(%nan), []); +assert_checkequal(nancumsum([%nan %nan; 1 1]), [0 1; 1 2]); +assert_checkequal(nancumsum([%nan %nan; 1 1], "*"), [0 1; 1 2]); +assert_checkequal(nancumsum([%nan %nan; 1 1], "r"), [0 0; 1 1]); +assert_checkequal(nancumsum([%nan %nan; 1 1], "c"), [0 0; 1 2]); +assert_checkequal(nancumsum([%nan %nan; 1 1], 1), [0 0; 1 1]); +assert_checkequal(nancumsum([%nan %nan; 1 1], 2), [0 0; 1 2]); +assert_checkequal(nancumsum([%nan 1; %nan 1]), [0 1;0 2]); +assert_checkequal(nancumsum([%nan 1; %nan 1], "*"), [0 1;0 2]); +assert_checkequal(nancumsum([%nan 1; %nan 1], "r"), [0 1;0 2]); +assert_checkequal(nancumsum([%nan 1; %nan 1], "c"), [0 1;0 1]); +assert_checkequal(nancumsum([%nan 1; %nan 1], 1), [0 1;0 2]); +assert_checkequal(nancumsum([%nan 1; %nan 1], 2), [0 1;0 1]); +assert_checkequal(nancumsum([1 3; %nan 6]), [1 4; 1 10]); +assert_checkequal(nancumsum([1 3; %nan 6], "*"), [1 4; 1 10]); +assert_checkequal(nancumsum([1 3; %nan 6], "r"), [1 3; 1 9]); +assert_checkequal(nancumsum([1 3; %nan 6], "c"), [1 4; 0 6]); +assert_checkequal(nancumsum([1 3; %nan 6], 1), [1 3; 1 9]); +assert_checkequal(nancumsum([1 3; %nan 6], 2), [1 4; 0 6]); +assert_checkequal(nancumsum([%nan %s; 1 1]), [0 1+%s; 1 2+%s]); +assert_checkequal(nancumsum([%nan %s; 1 1], "*"), [0 1+%s; 1 2+%s]); +assert_checkequal(nancumsum([%nan %s; 1 1], "r"), [0 %s; 1 1+%s]); +assert_checkequal(nancumsum([%nan %s; 1 1], "c"), [0 %s; 1 2]); +assert_checkequal(nancumsum([%nan %s; 1 1], 1), [0 %s; 1 1+%s]); +assert_checkequal(nancumsum([%nan %s; 1 1], 2), [0 %s; 1 2]); +assert_checkequal(nancumsum([%nan %t]), [0 1]); +assert_checkequal(nancumsum([%nan %t], "*"), [0 1]); +assert_checkequal(nancumsum([%nan %t], "r"), [0 1]); +assert_checkequal(nancumsum([%nan %t], "c"), [0 1]); +assert_checkequal(nancumsum([%nan %t], 1), [0 1]); +assert_checkequal(nancumsum([%nan %t], 2), [0 1]); diff --git a/modules/statistics/tests/unit_tests/nancumsum.tst b/modules/statistics/tests/unit_tests/nancumsum.tst new file mode 100755 index 000000000..73875ccf8 --- /dev/null +++ b/modules/statistics/tests/unit_tests/nancumsum.tst @@ -0,0 +1,64 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> + +// unit tests for nancumsum function +// ============================================================================= + +assert_checkfalse(execstr("nancumsum()" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong number of input argument(s): %d to %d expected.\n"), "nancumsum", 1, 2); +assert_checkerror("nancumsum()", refMsg); + +assert_checkfalse(execstr("nancumsum(""s"")" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: Real or complex, boolean, polynomial matrix expected.\n"), "nancumsum", 1); +assert_checkerror("nancumsum(""s"")", refMsg); + +assert_checkfalse(execstr("nancumsum(1, ""p"")" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong value for input argument #%d: Must be in the set {%s}.\n"), "nancumsum", 2, """r"", ""c"", ""*"", 1, 2"); +assert_checkerror("nancumsum(1, ""p"")", refMsg); + +assert_checkfalse(execstr("nancumsum(1, %s)" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: A string or scalar expected.\n"), "nancumsum", 2); +assert_checkerror("nancumsum(1, %s)", refMsg); + +assert_checkequal(nancumsum([]), []); +assert_checkequal(nancumsum(%nan), []); +assert_checkequal(nancumsum([%nan %nan; 1 1]), [0 1; 1 2]); +assert_checkequal(nancumsum([%nan %nan; 1 1], "*"), [0 1; 1 2]); +assert_checkequal(nancumsum([%nan %nan; 1 1], "r"), [0 0; 1 1]); +assert_checkequal(nancumsum([%nan %nan; 1 1], "c"), [0 0; 1 2]); +assert_checkequal(nancumsum([%nan %nan; 1 1], 1), [0 0; 1 1]); +assert_checkequal(nancumsum([%nan %nan; 1 1], 2), [0 0; 1 2]); + +assert_checkequal(nancumsum([%nan 1; %nan 1]), [0 1;0 2]); +assert_checkequal(nancumsum([%nan 1; %nan 1], "*"), [0 1;0 2]); +assert_checkequal(nancumsum([%nan 1; %nan 1], "r"), [0 1;0 2]); +assert_checkequal(nancumsum([%nan 1; %nan 1], "c"), [0 1;0 1]); +assert_checkequal(nancumsum([%nan 1; %nan 1], 1), [0 1;0 2]); +assert_checkequal(nancumsum([%nan 1; %nan 1], 2), [0 1;0 1]); + +assert_checkequal(nancumsum([1 3; %nan 6]), [1 4; 1 10]); +assert_checkequal(nancumsum([1 3; %nan 6], "*"), [1 4; 1 10]); +assert_checkequal(nancumsum([1 3; %nan 6], "r"), [1 3; 1 9]); +assert_checkequal(nancumsum([1 3; %nan 6], "c"), [1 4; 0 6]); +assert_checkequal(nancumsum([1 3; %nan 6], 1), [1 3; 1 9]); +assert_checkequal(nancumsum([1 3; %nan 6], 2), [1 4; 0 6]); + +assert_checkequal(nancumsum([%nan %s; 1 1]), [0 1+%s; 1 2+%s]); +assert_checkequal(nancumsum([%nan %s; 1 1], "*"), [0 1+%s; 1 2+%s]); +assert_checkequal(nancumsum([%nan %s; 1 1], "r"), [0 %s; 1 1+%s]); +assert_checkequal(nancumsum([%nan %s; 1 1], "c"), [0 %s; 1 2]); +assert_checkequal(nancumsum([%nan %s; 1 1], 1), [0 %s; 1 1+%s]); +assert_checkequal(nancumsum([%nan %s; 1 1], 2), [0 %s; 1 2]); + +assert_checkequal(nancumsum([%nan %t]), [0 1]); +assert_checkequal(nancumsum([%nan %t], "*"), [0 1]); +assert_checkequal(nancumsum([%nan %t], "r"), [0 1]); +assert_checkequal(nancumsum([%nan %t], "c"), [0 1]); +assert_checkequal(nancumsum([%nan %t], 1), [0 1]); +assert_checkequal(nancumsum([%nan %t], 2), [0 1]); diff --git a/modules/statistics/tests/unit_tests/nansum.dia.ref b/modules/statistics/tests/unit_tests/nansum.dia.ref new file mode 100755 index 000000000..5834a74a5 --- /dev/null +++ b/modules/statistics/tests/unit_tests/nansum.dia.ref @@ -0,0 +1,48 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// unit tests for nansum function +// ============================================================================= +assert_checkfalse(execstr("nansum()" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong number of input argument(s): %d to %d expected.\n"), "nansum", 1, 2); +assert_checkerror("nansum()", refMsg); +assert_checkfalse(execstr("nansum(""s"")" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: Real or complex, boolean, polynomial matrix expected.\n"), "nansum", 1); +assert_checkerror("nansum(""s"")", refMsg); +assert_checkfalse(execstr("nansum(1, ""p"")" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong value for input argument #%d: Must be in the set {%s}.\n"), "nansum", 2, """r"", ""c"", ""*"", 1, 2"); +assert_checkerror("nansum(1, ""p"")", refMsg); +assert_checkfalse(execstr("nansum(1, %s)" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: A string or scalar expected.\n"), "nansum", 2); +assert_checkerror("nansum(1, %s)", refMsg); +assert_checkequal(nansum([]), 0); +assert_checkequal(nansum(%nan), 0); +assert_checkequal(nansum([%nan %nan; 1 1]), 2); +assert_checkequal(nansum([%nan %nan; 1 1], "r"), [1 1]); +assert_checkequal(nansum([%nan %nan; 1 1], "c"), [0; 2]); +assert_checkequal(nansum([%nan %nan; 1 1], 1), [1 1]); +assert_checkequal(nansum([%nan %nan; 1 1], 2), [0; 2]); +assert_checkequal(nansum([%nan 1; %nan 1]), 2); +assert_checkequal(nansum([%nan 1; %nan 1], "r"), [0 2]); +assert_checkequal(nansum([%nan 1; %nan 1], "c"), [1; 1]); +assert_checkequal(nansum([%nan 1; %nan 1], 1), [0 2]); +assert_checkequal(nansum([%nan 1; %nan 1], 2), [1; 1]); +assert_checkequal(nansum([1 3; %nan 6]), 10); +assert_checkequal(nansum([1 3; %nan 6], "r"), [1 9]); +assert_checkequal(nansum([1 3; %nan 6], "c"), [4; 6]); +assert_checkequal(nansum([1 3; %nan 6], 1), [1 9]); +assert_checkequal(nansum([1 3; %nan 6], 2), [4; 6]); +assert_checkequal(nansum([%nan %s; 1 1]), 2+%s); +assert_checkequal(nansum([%nan %s; 1 1], "r"), [1 1+%s]); +assert_checkequal(nansum([%nan %s; 1 1], "c"), [%s; 2]); +assert_checkequal(nansum([%nan %s; 1 1], 1), [1 1+%s]); +assert_checkequal(nansum([%nan %s; 1 1], 2), [%s; 2]); +assert_checkequal(nansum([%nan %t]), 1); +assert_checkequal(nansum([%nan %t], "r"), [0 1]); +assert_checkequal(nansum([%nan %t], "c"), 1); +assert_checkequal(nansum([%nan %t], 1), [0 1]); +assert_checkequal(nansum([%nan %t], 2), 1); diff --git a/modules/statistics/tests/unit_tests/nansum.tst b/modules/statistics/tests/unit_tests/nansum.tst new file mode 100755 index 000000000..b22a6233b --- /dev/null +++ b/modules/statistics/tests/unit_tests/nansum.tst @@ -0,0 +1,59 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Adeline CARNIS +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> + +// unit tests for nansum function +// ============================================================================= + +assert_checkfalse(execstr("nansum()" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong number of input argument(s): %d to %d expected.\n"), "nansum", 1, 2); +assert_checkerror("nansum()", refMsg); + +assert_checkfalse(execstr("nansum(""s"")" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: Real or complex, boolean, polynomial matrix expected.\n"), "nansum", 1); +assert_checkerror("nansum(""s"")", refMsg); + +assert_checkfalse(execstr("nansum(1, ""p"")" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong value for input argument #%d: Must be in the set {%s}.\n"), "nansum", 2, """r"", ""c"", ""*"", 1, 2"); +assert_checkerror("nansum(1, ""p"")", refMsg); + +assert_checkfalse(execstr("nansum(1, %s)" ,"errcatch") == 0); +refMsg = msprintf(_("%s: Wrong type for input argument #%d: A string or scalar expected.\n"), "nansum", 2); +assert_checkerror("nansum(1, %s)", refMsg); + +assert_checkequal(nansum([]), 0); +assert_checkequal(nansum(%nan), 0); +assert_checkequal(nansum([%nan %nan; 1 1]), 2); +assert_checkequal(nansum([%nan %nan; 1 1], "r"), [1 1]); +assert_checkequal(nansum([%nan %nan; 1 1], "c"), [0; 2]); +assert_checkequal(nansum([%nan %nan; 1 1], 1), [1 1]); +assert_checkequal(nansum([%nan %nan; 1 1], 2), [0; 2]); + +assert_checkequal(nansum([%nan 1; %nan 1]), 2); +assert_checkequal(nansum([%nan 1; %nan 1], "r"), [0 2]); +assert_checkequal(nansum([%nan 1; %nan 1], "c"), [1; 1]); +assert_checkequal(nansum([%nan 1; %nan 1], 1), [0 2]); +assert_checkequal(nansum([%nan 1; %nan 1], 2), [1; 1]); + +assert_checkequal(nansum([1 3; %nan 6]), 10); +assert_checkequal(nansum([1 3; %nan 6], "r"), [1 9]); +assert_checkequal(nansum([1 3; %nan 6], "c"), [4; 6]); +assert_checkequal(nansum([1 3; %nan 6], 1), [1 9]); +assert_checkequal(nansum([1 3; %nan 6], 2), [4; 6]); + +assert_checkequal(nansum([%nan %s; 1 1]), 2+%s); +assert_checkequal(nansum([%nan %s; 1 1], "r"), [1 1+%s]); +assert_checkequal(nansum([%nan %s; 1 1], "c"), [%s; 2]); +assert_checkequal(nansum([%nan %s; 1 1], 1), [1 1+%s]); +assert_checkequal(nansum([%nan %s; 1 1], 2), [%s; 2]); + +assert_checkequal(nansum([%nan %t]), 1); +assert_checkequal(nansum([%nan %t], "r"), [0 1]); +assert_checkequal(nansum([%nan %t], "c"), 1); +assert_checkequal(nansum([%nan %t], 1), [0 1]); +assert_checkequal(nansum([%nan %t], 2), 1); diff --git a/modules/statistics/tests/unit_tests/pca.dia.ref b/modules/statistics/tests/unit_tests/pca.dia.ref new file mode 100755 index 000000000..84035ff60 --- /dev/null +++ b/modules/statistics/tests/unit_tests/pca.dia.ref @@ -0,0 +1,18 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// ============================================================================= +// Tests for pca function +// ============================================================================= +if execstr('pca()','errcatch')==0 then bugmes();quit;end +// ============================================================================= +a=rand(100,10,'n'); +[r1,r2,r3] = pca(a); +// ============================================================================= +if size(r1) <> [10 1] then bugmes();quit;end +if size(r2) <> [10 10] then bugmes();quit;end +if size(r3) <> [100 10] then bugmes();quit;end +// ============================================================================= diff --git a/modules/statistics/tests/unit_tests/pca.tst b/modules/statistics/tests/unit_tests/pca.tst new file mode 100755 index 000000000..bb5a8e7f4 --- /dev/null +++ b/modules/statistics/tests/unit_tests/pca.tst @@ -0,0 +1,19 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2008 - INRIA +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// ============================================================================= +// Tests for pca function +// ============================================================================= +if execstr('pca()','errcatch')==0 then pause,end +// ============================================================================= +a=rand(100,10,'n'); +[r1,r2,r3] = pca(a); +// ============================================================================= +if size(r1) <> [10 1] then pause,end +if size(r2) <> [10 10] then pause,end +if size(r3) <> [100 10] then pause,end +// =============================================================================
\ No newline at end of file diff --git a/modules/statistics/tests/unit_tests/sample.dia.ref b/modules/statistics/tests/unit_tests/sample.dia.ref new file mode 100755 index 000000000..b48ea9f47 --- /dev/null +++ b/modules/statistics/tests/unit_tests/sample.dia.ref @@ -0,0 +1,73 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2014 - Scilab Enterprises - Pierre-Aime Agnel +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// <-- unit test for sample.sci--> +// +//============================================================================== +// Checking error messages +//============================================================================== +fname = "sample"; +err_msg_glob = msprintf(_("%s: Wrong number of input arguments: %d to %d expected.\n"), fname, 2, 3); +err_msg_orient = msprintf(gettext("%s: Wrong value for input argument #%d: ''%s'', ''%s'', ''%s'', %d or %d expected.\n"), fname, 3, "*", "r", "c", 1, 2); +//======================================== +// Error for the number of input arguments +n = 100; +X = 1:10; +orient = "*"; +func_str = "sample(n)"; +grand("setsd",0); //Sets the randum number to seed 0 for reproductibility +assert_checkerror(func_str, err_msg_glob); +//======================================== +// Error for the value of orient +n = 100; +X = 1:10; +orient = "5"; +func_str = "sample(n, X, orient)"; +grand("setsd",0); //Sets the randum number to seed 0 for reproductibility +assert_checkerror(func_str, err_msg_orient); +//============================================================================== +// Checking normal behaviour for complete size '*' +//============================================================================== +//======================================== +// Check default call +n = 100; +X = 1:10; +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples = sample(n, X); +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_star = sample(n, X, "*"); +assert_checkequal(samples, samples_star); +//======================================== +// Check size consistency +X = X'; +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_transposed = sample(n, X); +assert_checkequal(samples, samples_transposed); +//============================================================================== +// Checking normal behaviour for complete size 'r' +//============================================================================== +//======================================== +// Check default call +n = 100; +X = [1 2 3; 4 5 6]; +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_r_n = sample(n, X, "r"); +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_one_n = sample(n, X, 1); +assert_checkequal(samples_r_n, samples_one_n); +//============================================================================== +// Checking normal behaviour for complete size 'c' +//============================================================================== +//======================================== +// Check default call +n = 100; +X = [1 2 3; 4 5 6]; +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_c_n = sample(n, X, "c"); +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_two_n = sample(n, X, 2); +assert_checkequal(samples_c_n, samples_two_n); diff --git a/modules/statistics/tests/unit_tests/sample.tst b/modules/statistics/tests/unit_tests/sample.tst new file mode 100755 index 000000000..a943408f0 --- /dev/null +++ b/modules/statistics/tests/unit_tests/sample.tst @@ -0,0 +1,100 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2014 - Scilab Enterprises - Pierre-Aime Agnel +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> +// <-- unit test for sample.sci--> +// + +//============================================================================== +// Checking error messages +//============================================================================== +fname = "sample"; +err_msg_glob = msprintf(_("%s: Wrong number of input arguments: %d to %d expected.\n"), fname, 2, 3); + +err_msg_orient = msprintf(gettext("%s: Wrong value for input argument #%d: ''%s'', ''%s'', ''%s'', %d or %d expected.\n"), fname, 3, "*", "r", "c", 1, 2); + +//======================================== +// Error for the number of input arguments +n = 100; +X = 1:10; +orient = "*"; + +func_str = "sample(n)"; + +grand("setsd",0); //Sets the randum number to seed 0 for reproductibility +assert_checkerror(func_str, err_msg_glob); + +//======================================== +// Error for the value of orient +n = 100; +X = 1:10; +orient = "5"; + +func_str = "sample(n, X, orient)"; + +grand("setsd",0); //Sets the randum number to seed 0 for reproductibility +assert_checkerror(func_str, err_msg_orient); + +//============================================================================== +// Checking normal behaviour for complete size '*' +//============================================================================== + +//======================================== +// Check default call +n = 100; +X = 1:10; + +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples = sample(n, X); + +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_star = sample(n, X, "*"); + +assert_checkequal(samples, samples_star); + +//======================================== +// Check size consistency +X = X'; + +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_transposed = sample(n, X); + +assert_checkequal(samples, samples_transposed); + +//============================================================================== +// Checking normal behaviour for complete size 'r' +//============================================================================== + +//======================================== +// Check default call +n = 100; +X = [1 2 3; 4 5 6]; + +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_r_n = sample(n, X, "r"); + +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_one_n = sample(n, X, 1); + +assert_checkequal(samples_r_n, samples_one_n); + +//============================================================================== +// Checking normal behaviour for complete size 'c' +//============================================================================== + +//======================================== +// Check default call +n = 100; +X = [1 2 3; 4 5 6]; + +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_c_n = sample(n, X, "c"); + +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_two_n = sample(n, X, 2); + +assert_checkequal(samples_c_n, samples_two_n); diff --git a/modules/statistics/tests/unit_tests/samplef.dia.ref b/modules/statistics/tests/unit_tests/samplef.dia.ref new file mode 100755 index 000000000..5086cd346 --- /dev/null +++ b/modules/statistics/tests/unit_tests/samplef.dia.ref @@ -0,0 +1,161 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2014 - Scilab Enterprises - Pierre-Aime Agnel +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// <-- unit test for samplef.sci--> +// +//============================================================================== +// Checking error messages +//============================================================================== +fname = "samplef"; +err_msg_negative = msprintf(_("%s: Wrong value for input argument #%d: Non-negative values expected.\n"), fname, 3); +err_msg_size_glob = msprintf(_("%s: Wrong size for input argument #%d and #%d: Same size expected.\n"), fname, 2, 3); +err_msg_size_row = msprintf(_("%s: Wrong size for input argument #%d: Same number of rows of the second input argument expected.\n"), fname, 3); +err_msg_size_col = msprintf(_("%s: Wrong size for input argument #%d: Same number of columns of the second input argument expected.\n"), fname, 3); +//======================================== +// Error if sum of frequency is negative +n = 100; +X = 1:10; +f = [-10:-1]; +func_str = "samplef(n, X, f)"; +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +assert_checkerror(func_str, err_msg_negative); +//======================================== +// Error if frequency is not the same size af the +X = 1:10; +f = [1:12]; +func_str = "samplef(n, X, f)"; +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +assert_checkerror(func_str, err_msg_size_glob); +//======================================== +// Error if row mode on and size of f does not match the number of rows +X = [1 2 3; 4 5 6]; +f = [5 10 15]; +func_str = "samplef(n, X, f, ""r"")"; +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +assert_checkerror(func_str, err_msg_size_row); +//======================================== +// Error if column mode on and size of f does not match the number of columns +X = [1 2 3; 4 5 6]; +f = [5 10]; +func_str = "samplef(n, X, f, ""c"")"; +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +assert_checkerror(func_str, err_msg_size_col); +//============================================================================== +// Checking Normal behaviours for complete size '*' +//============================================================================== +//======================================== +// Tests normalized frequencies +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +X = [1 2 3]; +f = [0.5 0.3 0.2]; +samples = samplef(10, X, f); +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_star = samplef(10, X, f, "*"); +//Check both results are identical +assert_checkequal(samples, samples_star); +//======================================== +// Tests non normalized frequencies +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +f = f * 10; +samples = samplef(10, X, f); +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_star = samplef(10, X, f, "*"); +//Check both results are identical +assert_checkequal(samples, samples_star); +//======================================== +// Checks 0 frequency value is not taken +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +f = ones(1, 10); +f(4) = 0; +X = 1:10; +samples = samplef(10000, X, f, "*"); +assert_checktrue(isempty(find(samples == 4))); +grand("setsd", 0); +f = zeros(1,10); +f(4) = 1; +samples = samplef(10000, X, f, "*"); +assert_checkalmostequal(samples, 4 .* ones(1,10000)); +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +f = ones(1, 10); +f(4) = 0; +X = 1:10; +X = matrix(X, 2, 5); +//No crash for X matrix and f correct size +samples = samplef(100, X, f, "*"); +assert_checktrue(isempty(find(samples == 4))); +//======================================== +// Checks consistency of size when called without "orient" options +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +f = [0.1 0.2 0.3; 0.2 0.1 0.1]; +X = ["a", "b", "c"; "d", "e", "f"]; +samples = samplef(100, X, f); +assert_checkequal(size(samples, 'r'), 1); +assert_checkequal(size(samples, 'c'), 100); +//============================================================================== +// Checking Normal behaviours for row size 'r' +//============================================================================== +//======================================== +// Test normalized frequencies +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +X = [1 2 3; 4 5 6]; +f = [0.1 0.9]; +samples_r_n = samplef(10, X, f, "r"); +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_one_n = samplef(10, X, f, 1); +//Check both results are identical +assert_checkequal(samples_r_n, samples_one_n); +//======================================== +// Test non normalized frequencies +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +X = [1 2 3; 4 5 6]; +f = [1000 9000]; +samples_r = samplef(10, X, f, "r"); +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_one = samplef(10, X, f, 1); +//Check both results are identical +assert_checkequal(samples_r, samples_one); +//Normalized and non normalized should have the same behaviour +assert_checkequal(samples_r_n, samples_r); +//======================================== +// Checks 0 frequency value is not taken +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +X = [1 2 3; 4 5 6]; +f = [1 0]; +samples = samplef(1000, X, f, 1); +assert_checkalmostequal(samples, repmat([1 2 3], 1000, 1)); +//============================================================================== +// Checking Normal behaviours for column size 'c' +//============================================================================== +//======================================== +// Test normalized frequencies +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +X = [1 2 3; 4 5 6]; +f = [0.1 0.7 0.2]; +samples_c_n = samplef(10, X, f, "c"); +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_two_n = samplef(10, X, f, 2); +//Check both results are identical +assert_checkequal(samples_c_n, samples_two_n); +//======================================== +// Test non normalized frequencies +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +X = [1 2 3; 4 5 6]; +f = [100 700 200]; +samples_c = samplef(10, X, f, "c"); +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_two = samplef(10, X, f, 2); +//Check both results are identical +assert_checkequal(samples_c, samples_two); +//Normalized and non normalized should have the same behaviour +assert_checkequal(samples_c_n, samples_c); +//======================================== +// Checks 0 frequency value is not taken +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +X = [1 2 3; 4 5 6]; +f = [1 0 1]; +samples = samplef(10000, X, f, "c"); +assert_checktrue(isempty(find(samples == 2 | samples == 5))); diff --git a/modules/statistics/tests/unit_tests/samplef.tst b/modules/statistics/tests/unit_tests/samplef.tst new file mode 100755 index 000000000..84f867bb0 --- /dev/null +++ b/modules/statistics/tests/unit_tests/samplef.tst @@ -0,0 +1,217 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2014 - Scilab Enterprises - Pierre-Aime Agnel +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> +// <-- unit test for samplef.sci--> +// + + +//============================================================================== +// Checking error messages +//============================================================================== +fname = "samplef"; + +err_msg_negative = msprintf(_("%s: Wrong value for input argument #%d: Non-negative values expected.\n"), fname, 3); + +err_msg_size_glob = msprintf(_("%s: Wrong size for input argument #%d and #%d: Same size expected.\n"), fname, 2, 3); + +err_msg_size_row = msprintf(_("%s: Wrong size for input argument #%d: Same number of rows of the second input argument expected.\n"), fname, 3); + +err_msg_size_col = msprintf(_("%s: Wrong size for input argument #%d: Same number of columns of the second input argument expected.\n"), fname, 3); + +//======================================== +// Error if sum of frequency is negative +n = 100; +X = 1:10; +f = [-10:-1]; +func_str = "samplef(n, X, f)"; + +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +assert_checkerror(func_str, err_msg_negative); + +//======================================== +// Error if frequency is not the same size af the +X = 1:10; +f = [1:12]; +func_str = "samplef(n, X, f)"; + +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +assert_checkerror(func_str, err_msg_size_glob); + +//======================================== +// Error if row mode on and size of f does not match the number of rows +X = [1 2 3; 4 5 6]; +f = [5 10 15]; +func_str = "samplef(n, X, f, ""r"")"; + +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +assert_checkerror(func_str, err_msg_size_row); + +//======================================== +// Error if column mode on and size of f does not match the number of columns +X = [1 2 3; 4 5 6]; +f = [5 10]; +func_str = "samplef(n, X, f, ""c"")"; + +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +assert_checkerror(func_str, err_msg_size_col); + + +//============================================================================== +// Checking Normal behaviours for complete size '*' +//============================================================================== + +//======================================== +// Tests normalized frequencies +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +X = [1 2 3]; +f = [0.5 0.3 0.2]; + +samples = samplef(10, X, f); + +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_star = samplef(10, X, f, "*"); + +//Check both results are identical +assert_checkequal(samples, samples_star); + +//======================================== +// Tests non normalized frequencies +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +f = f * 10; + +samples = samplef(10, X, f); + +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_star = samplef(10, X, f, "*"); + +//Check both results are identical +assert_checkequal(samples, samples_star); + +//======================================== +// Checks 0 frequency value is not taken +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +f = ones(1, 10); +f(4) = 0; +X = 1:10; + +samples = samplef(10000, X, f, "*"); +assert_checktrue(isempty(find(samples == 4))); + +grand("setsd", 0); +f = zeros(1,10); +f(4) = 1; +samples = samplef(10000, X, f, "*"); +assert_checkalmostequal(samples, 4 .* ones(1,10000)); + +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +f = ones(1, 10); +f(4) = 0; +X = 1:10; +X = matrix(X, 2, 5); + +//No crash for X matrix and f correct size +samples = samplef(100, X, f, "*"); +assert_checktrue(isempty(find(samples == 4))); + +//======================================== +// Checks consistency of size when called without "orient" options +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +f = [0.1 0.2 0.3; 0.2 0.1 0.1]; +X = ["a", "b", "c"; "d", "e", "f"]; + +samples = samplef(100, X, f); +assert_checkequal(size(samples, 'r'), 1); +assert_checkequal(size(samples, 'c'), 100); + +//============================================================================== +// Checking Normal behaviours for row size 'r' +//============================================================================== + +//======================================== +// Test normalized frequencies +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +X = [1 2 3; 4 5 6]; +f = [0.1 0.9]; + +samples_r_n = samplef(10, X, f, "r"); + +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_one_n = samplef(10, X, f, 1); + +//Check both results are identical +assert_checkequal(samples_r_n, samples_one_n); + +//======================================== +// Test non normalized frequencies +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +X = [1 2 3; 4 5 6]; +f = [1000 9000]; + +samples_r = samplef(10, X, f, "r"); + +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_one = samplef(10, X, f, 1); + +//Check both results are identical +assert_checkequal(samples_r, samples_one); + +//Normalized and non normalized should have the same behaviour +assert_checkequal(samples_r_n, samples_r); + +//======================================== +// Checks 0 frequency value is not taken +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +X = [1 2 3; 4 5 6]; +f = [1 0]; + +samples = samplef(1000, X, f, 1); +assert_checkalmostequal(samples, repmat([1 2 3], 1000, 1)); + +//============================================================================== +// Checking Normal behaviours for column size 'c' +//============================================================================== + +//======================================== +// Test normalized frequencies +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +X = [1 2 3; 4 5 6]; +f = [0.1 0.7 0.2]; + +samples_c_n = samplef(10, X, f, "c"); + +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_two_n = samplef(10, X, f, 2); + +//Check both results are identical +assert_checkequal(samples_c_n, samples_two_n); + +//======================================== +// Test non normalized frequencies +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +X = [1 2 3; 4 5 6]; +f = [100 700 200]; + +samples_c = samplef(10, X, f, "c"); + +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +samples_two = samplef(10, X, f, 2); + +//Check both results are identical +assert_checkequal(samples_c, samples_two); + +//Normalized and non normalized should have the same behaviour +assert_checkequal(samples_c_n, samples_c); + +//======================================== +// Checks 0 frequency value is not taken +grand("setsd", 0); //Sets the randum number to seed 0 for reproductibility +X = [1 2 3; 4 5 6]; +f = [1 0 1]; + +samples = samplef(10000, X, f, "c"); +assert_checktrue(isempty(find(samples == 2 | samples == 5))); diff --git a/modules/statistics/tests/unit_tests/samwr.dia.ref b/modules/statistics/tests/unit_tests/samwr.dia.ref new file mode 100755 index 000000000..4f69c9584 --- /dev/null +++ b/modules/statistics/tests/unit_tests/samwr.dia.ref @@ -0,0 +1,44 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2014 - Scilab Enterprises - Pierre-Aime Agnel +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +// <-- unit test for sample.sci--> +// +//============================================================================== +// checking error messages +//============================================================================== +fname = "samwr"; +err_msg_glob = msprintf(_("%s: Wrong number of input argument: %d expected.\n"), fname, 3); +err_msg_sizam = msprintf(_("%s: Wrong value of input argument #%d: Lower than or equal to size of input argument #%d expected.\n"), fname, 1, 3); +//======================================== +// error for the number of input arguments +sizam = 3; +numsamp = 10; +X = 1:10; +func_str = "samwr(sizam)"; +grand("setsd",0); //sets the randum number to seed 0 for reproductibility +assert_checkerror(func_str, err_msg_glob); +//======================================== +// error if sizam is greater than the size of X +sizam = 11; +numsamp = 10; +X = 1:10; +func_str = "samwr(sizam, numsamp, X)"; +grand("setsd",0); //sets the randum number to seed 0 for reproductibility +assert_checkerror(func_str, err_msg_sizam); +//============================================================================== +// checking normal behaviour +//============================================================================== +//======================================== +// Normal call of samwr on a population +sizam = 3; +numsamp = 15; +X = 1:10; +grand("setsd", 0); //sets the randum number to seed 0 for reproductibility +samples = samwr(sizam, numsamp, X); +//Checks the size of the output is sizam * numsamp +assert_checkequal(size(samples, "r"), 3); +assert_checkequal(size(samples, "c"), 15); diff --git a/modules/statistics/tests/unit_tests/samwr.tst b/modules/statistics/tests/unit_tests/samwr.tst new file mode 100755 index 000000000..1266390f6 --- /dev/null +++ b/modules/statistics/tests/unit_tests/samwr.tst @@ -0,0 +1,56 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2014 - Scilab Enterprises - Pierre-Aime Agnel +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> +// <-- unit test for sample.sci--> +// + +//============================================================================== +// checking error messages +//============================================================================== +fname = "samwr"; +err_msg_glob = msprintf(_("%s: Wrong number of input argument: %d expected.\n"), fname, 3); +err_msg_sizam = msprintf(_("%s: Wrong value of input argument #%d: Lower than or equal to size of input argument #%d expected.\n"), fname, 1, 3); + +//======================================== +// error for the number of input arguments +sizam = 3; +numsamp = 10; +X = 1:10; + +func_str = "samwr(sizam)"; + +grand("setsd",0); //sets the randum number to seed 0 for reproductibility +assert_checkerror(func_str, err_msg_glob); + +//======================================== +// error if sizam is greater than the size of X +sizam = 11; +numsamp = 10; +X = 1:10; + +func_str = "samwr(sizam, numsamp, X)"; + +grand("setsd",0); //sets the randum number to seed 0 for reproductibility +assert_checkerror(func_str, err_msg_sizam); + +//============================================================================== +// checking normal behaviour +//============================================================================== + +//======================================== +// Normal call of samwr on a population +sizam = 3; +numsamp = 15; +X = 1:10; + +grand("setsd", 0); //sets the randum number to seed 0 for reproductibility +samples = samwr(sizam, numsamp, X); + +//Checks the size of the output is sizam * numsamp +assert_checkequal(size(samples, "r"), 3); +assert_checkequal(size(samples, "c"), 15); diff --git a/modules/statistics/tests/unit_tests/show_pca.dia.ref b/modules/statistics/tests/unit_tests/show_pca.dia.ref new file mode 100755 index 000000000..52bb06fc2 --- /dev/null +++ b/modules/statistics/tests/unit_tests/show_pca.dia.ref @@ -0,0 +1,50 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2012 - Michael Baudin +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// The first example +a=rand(100,10,"n"); +[lambda,facpr,comprinc] = pca(a); +show_pca(lambda,facpr); +// The second example +// Source : +// http://cermics.enpc.fr/scilab_new/site/Tp/Statistique/acp/index.htm +// Analyse en composantes principales +// Jean-François DELMAS et Saad SALAM +// Weight of several parts of 23 cows +// X1: weight (alive) +// X2: skeleton weight +// X3: first grade meat weight +// X4: total meat weight +// X5: fat weight +// X6: bones weight +x = [ +395 224 35.1 79.1 6.0 14.9 +410 232 31.9 73.4 8.7 16.4 +405 233 30.7 76.5 7.0 16.5 +405 240 30.4 75.3 8.7 16.0 +390 217 31.9 76.5 7.8 15.7 +415 243 32.1 77.4 7.1 18.5 +390 229 32.1 78.4 4.6 17.0 +405 240 31.1 76.5 8.2 15.3 +420 234 32.4 76.0 7.2 16.8 +390 223 33.8 77.0 6.2 16.8 +415 247 30.7 75.5 8.4 16.1 +400 234 31.7 77.6 5.7 18.7 +400 224 28.2 73.5 11.0 15.5 +395 229 29.4 74.5 9.3 16.1 +395 219 29.7 72.8 8.7 18.5 +395 224 28.5 73.7 8.7 17.3 +400 223 28.5 73.1 9.1 17.7 +400 224 27.8 73.2 12.2 14.6 +400 221 26.5 72.3 13.2 14.5 +410 233 25.9 72.3 11.1 16.6 +402 234 27.1 72.1 10.4 17.5 +400 223 26.8 70.3 13.5 16.2 +400 213 25.8 70.4 12.1 17.5 +]; +[lambda,facpr,comprinc] = pca(x); +scf(); +show_pca(lambda,facpr); diff --git a/modules/statistics/tests/unit_tests/show_pca.tst b/modules/statistics/tests/unit_tests/show_pca.tst new file mode 100755 index 000000000..502e4ebf0 --- /dev/null +++ b/modules/statistics/tests/unit_tests/show_pca.tst @@ -0,0 +1,53 @@ +// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2012 - Michael Baudin
+//
+// This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+// The first example
+a=rand(100,10,"n");
+[lambda,facpr,comprinc] = pca(a);
+show_pca(lambda,facpr);
+
+// The second example
+// Source :
+// http://cermics.enpc.fr/scilab_new/site/Tp/Statistique/acp/index.htm
+// Analyse en composantes principales
+// Jean-François DELMAS et Saad SALAM
+// Weight of several parts of 23 cows
+// X1: weight (alive)
+// X2: skeleton weight
+// X3: first grade meat weight
+// X4: total meat weight
+// X5: fat weight
+// X6: bones weight
+x = [
+395 224 35.1 79.1 6.0 14.9
+410 232 31.9 73.4 8.7 16.4
+405 233 30.7 76.5 7.0 16.5
+405 240 30.4 75.3 8.7 16.0
+390 217 31.9 76.5 7.8 15.7
+415 243 32.1 77.4 7.1 18.5
+390 229 32.1 78.4 4.6 17.0
+405 240 31.1 76.5 8.2 15.3
+420 234 32.4 76.0 7.2 16.8
+390 223 33.8 77.0 6.2 16.8
+415 247 30.7 75.5 8.4 16.1
+400 234 31.7 77.6 5.7 18.7
+400 224 28.2 73.5 11.0 15.5
+395 229 29.4 74.5 9.3 16.1
+395 219 29.7 72.8 8.7 18.5
+395 224 28.5 73.7 8.7 17.3
+400 223 28.5 73.1 9.1 17.7
+400 224 27.8 73.2 12.2 14.6
+400 221 26.5 72.3 13.2 14.5
+410 233 25.9 72.3 11.1 16.6
+402 234 27.1 72.1 10.4 17.5
+400 223 26.8 70.3 13.5 16.2
+400 213 25.8 70.4 12.1 17.5
+];
+[lambda,facpr,comprinc] = pca(x);
+scf();
+show_pca(lambda,facpr);
+
diff --git a/modules/statistics/tests/unit_tests/stdev.dia.ref b/modules/statistics/tests/unit_tests/stdev.dia.ref new file mode 100755 index 000000000..9173d14ed --- /dev/null +++ b/modules/statistics/tests/unit_tests/stdev.dia.ref @@ -0,0 +1,56 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010 - DIGITEO - Bruno JOFRET +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// ============================================================================= +// Tests for standard deviation +// ============================================================================= +assert_checkequal(stdev(0), 0); +assert_checkequal(stdev(zeros(3,3)), 0); +assert_checkequal(stdev(zeros(3,3,3)), 0); +// stdev returns 0 when asking for singleton dimensions +assert_checkequal(stdev(1, 1), 0); +assert_checkequal(stdev(1, 2), 0); +assert_checkequal(stdev(ones(3,3), 3), zeros(3,3)); +assert_checkequal(stdev(ones(3,3,3), 4), zeros(3,3,3)); +rand("seed", 0); +a = rand(3, 3, 3); +refY = 0.272002431404198; +y0 = stdev(a); +ys = stdev(a, "*"); +assert_checkalmostequal(y0, refY); +assert_checkalmostequal(ys, refY); +refY = [0.3899896462733005 0.1836990129394737 0.1038925147784040]; +refY(:, :, 2) = [0.3177134004419370 0.2681129484277341 0.0087779568439578]; +refY(:, :, 3) = [0.2897656318619816 0.3895404996160437 0.1425603832951185]; +y1 = stdev(a, 1); +yr = stdev(a, "r"); +assert_checkalmostequal(y1, refY); +assert_checkalmostequal(yr, refY); +refY = [0.3394940617212404 ; 0.0475705580641355 ; 0.4523801086433633]; +refY(:, :, 2) = [0.342549229474548 ; 0.2004197906845895 ; 0.2310186249368761]; +refY(:, :, 3) = [0.3165165021017580 ; 0.2336663995922139 ; 0.1479958923819589]; +y2 = stdev(a, 2); +yc = stdev(a, "c"); +assert_checkalmostequal(y2, refY); +assert_checkalmostequal(yc, refY); +// Mean squared deviation +refY = 0.2669178254690693; +ys = stdev(a, "*", mean(a)); +assert_checkalmostequal(ys, refY); +refY = [0.3184252127793632 0.1499896159848785 0.0848278831005502]; +refY(:, :, 2) = [0.2594119051757631 0.2189133056936967 0.0071671717506227]; +refY(:, :, 3) = [0.2365926476856702 0.3180584860693779 0.1164000655362104]; +y1 = stdev(a, 1, mean(a,"r")); +yr = stdev(a, "r", mean(a,"r")); +assert_checkalmostequal(y1, refY); +assert_checkalmostequal(yr, refY); +refY = [0.2771957406406592 ; 0.0388411980121906 ; 0.3693668119870194]; +refY(:, :, 2) = [0.2796902746653962 ; 0.1636420738442178 ; 0.1886259173915840]; +refY(:, :, 3) = [0.2584346417732888 ; 0.1907878163447345 ; 0.1208381401212172]; +y2 = stdev(a, 2, mean(a,"c")); +yc = stdev(a, "c", mean(a,"c")); +assert_checkalmostequal(y2, refY); +assert_checkalmostequal(yc, refY); diff --git a/modules/statistics/tests/unit_tests/stdev.tst b/modules/statistics/tests/unit_tests/stdev.tst new file mode 100755 index 000000000..56c14ed5b --- /dev/null +++ b/modules/statistics/tests/unit_tests/stdev.tst @@ -0,0 +1,66 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010 - DIGITEO - Bruno JOFRET +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// ============================================================================= +// Tests for standard deviation +// ============================================================================= + +assert_checkequal(stdev(0), 0); +assert_checkequal(stdev(zeros(3,3)), 0); +assert_checkequal(stdev(zeros(3,3,3)), 0); +// stdev returns 0 when asking for singleton dimensions +assert_checkequal(stdev(1, 1), 0); +assert_checkequal(stdev(1, 2), 0); +assert_checkequal(stdev(ones(3,3), 3), zeros(3,3)); +assert_checkequal(stdev(ones(3,3,3), 4), zeros(3,3,3)); + +rand("seed", 0); +a = rand(3, 3, 3); +refY = 0.272002431404198; + +y0 = stdev(a); +ys = stdev(a, "*"); +assert_checkalmostequal(y0, refY); +assert_checkalmostequal(ys, refY); + +refY = [0.3899896462733005 0.1836990129394737 0.1038925147784040]; +refY(:, :, 2) = [0.3177134004419370 0.2681129484277341 0.0087779568439578]; +refY(:, :, 3) = [0.2897656318619816 0.3895404996160437 0.1425603832951185]; +y1 = stdev(a, 1); +yr = stdev(a, "r"); +assert_checkalmostequal(y1, refY); +assert_checkalmostequal(yr, refY); + +refY = [0.3394940617212404 ; 0.0475705580641355 ; 0.4523801086433633]; +refY(:, :, 2) = [0.342549229474548 ; 0.2004197906845895 ; 0.2310186249368761]; +refY(:, :, 3) = [0.3165165021017580 ; 0.2336663995922139 ; 0.1479958923819589]; +y2 = stdev(a, 2); +yc = stdev(a, "c"); +assert_checkalmostequal(y2, refY); +assert_checkalmostequal(yc, refY); + +// Mean squared deviation + +refY = 0.2669178254690693; +ys = stdev(a, "*", mean(a)); +assert_checkalmostequal(ys, refY); + +refY = [0.3184252127793632 0.1499896159848785 0.0848278831005502]; +refY(:, :, 2) = [0.2594119051757631 0.2189133056936967 0.0071671717506227]; +refY(:, :, 3) = [0.2365926476856702 0.3180584860693779 0.1164000655362104]; +y1 = stdev(a, 1, mean(a,"r")); +yr = stdev(a, "r", mean(a,"r")); +assert_checkalmostequal(y1, refY); +assert_checkalmostequal(yr, refY); + +refY = [0.2771957406406592 ; 0.0388411980121906 ; 0.3693668119870194]; +refY(:, :, 2) = [0.2796902746653962 ; 0.1636420738442178 ; 0.1886259173915840]; +refY(:, :, 3) = [0.2584346417732888 ; 0.1907878163447345 ; 0.1208381401212172]; +y2 = stdev(a, 2, mean(a,"c")); +yc = stdev(a, "c", mean(a,"c")); +assert_checkalmostequal(y2, refY); +assert_checkalmostequal(yc, refY); diff --git a/modules/statistics/tests/unit_tests/thrownan.dia.ref b/modules/statistics/tests/unit_tests/thrownan.dia.ref new file mode 100755 index 000000000..96f8f9723 --- /dev/null +++ b/modules/statistics/tests/unit_tests/thrownan.dia.ref @@ -0,0 +1,16 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2011 - DIGITEO - Michael Baudin +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// <-- CLI SHELL MODE --> +x=[0.2113249 %nan 0.6653811 %nan;0.7560439 0.3303271 0.6283918 %nan]; +[nonan,numb]=thrownan(x); +expected = [0.2113249;0.7560439;0.3303271;0.6653811;0.6283918]; +assert_checkequal ( nonan , expected ); +assert_checkequal ( numb , [1,2,4,5,6] ); +// +[nonan,numb]=thrownan([]); +assert_checkequal ( nonan , [] ); +assert_checkequal ( numb , [] ); diff --git a/modules/statistics/tests/unit_tests/thrownan.tst b/modules/statistics/tests/unit_tests/thrownan.tst new file mode 100755 index 000000000..4ef12c861 --- /dev/null +++ b/modules/statistics/tests/unit_tests/thrownan.tst @@ -0,0 +1,19 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2011 - DIGITEO - Michael Baudin +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// <-- CLI SHELL MODE --> + +x=[0.2113249 %nan 0.6653811 %nan;0.7560439 0.3303271 0.6283918 %nan]; +[nonan,numb]=thrownan(x); +expected = [0.2113249;0.7560439;0.3303271;0.6653811;0.6283918]; +assert_checkequal ( nonan , expected ); +assert_checkequal ( numb , [1,2,4,5,6] ); +// +[nonan,numb]=thrownan([]); +assert_checkequal ( nonan , [] ); +assert_checkequal ( numb , [] ); + diff --git a/modules/statistics/tests/unit_tests/trimmean.dia.ref b/modules/statistics/tests/unit_tests/trimmean.dia.ref new file mode 100755 index 000000000..e51cde693 --- /dev/null +++ b/modules/statistics/tests/unit_tests/trimmean.dia.ref @@ -0,0 +1,132 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2008 - INRIA - Michael Baudin +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// With x as a vector and 1 argument +data = [10, 20, 30, 40, 50, 60, 70, 80, 4000]; +computed = trimmean(data); +expected = 50; +if abs(computed-expected)>%eps then bugmes();quit;end +// With x as a vector and 2 arguments +data = [10, 20, 30, 40, 50, 60, 70, 80, 4000]; +computed = trimmean(data,25); +expected = 50; +if abs(computed-expected)>%eps then bugmes();quit;end +// With x as a matrix and 2 arguments +data = [ +10 20 30 40 +50 60 70 4000 +]; +computed = trimmean(data,25); +expected = 45; +if abs(computed-expected)>%eps then bugmes();quit;end +// With x as a vector and specified orient +data = [10, 20, 30, 40, 50, 60, 70, 80, 4000]; +computed = trimmean(data,25,"all"); +expected = 50; +if abs(computed-expected)>%eps then bugmes();quit;end +// With x as a matrix and specified orient +data = [ +10 20 30 40 +50 60 70 4000 +]; +computed = trimmean(data,25,"all"); +expected = 45; +if abs(computed-expected)>%eps then bugmes();quit;end +// With x as a vector and non-positionnal orien="all" +data = [10, 20, 30, 40, 50, 60, 70, 80, 4000]; +computed = trimmean(data,25,orien="all"); +expected = 50; +if abs(computed-expected)>%eps then bugmes();quit;end +// With x as a matrix and non-positionnal orien="all" +data = [ +10 20 30 40 +50 60 70 4000 +]; +computed = trimmean(data,25,orien="all"); +expected = 45; +if abs(computed-expected)>%eps then bugmes();quit;end +// With x as a matrix and positionnal orien="r" +data = [ +10 10 10 10 +20 20 20 20 +30 30 30 30 +4000 4000 4000 4000 +]; +computed = trimmean(data,50,"r"); +expected = [25,25,25,25]; +if norm(computed-expected)>%eps then bugmes();quit;end +// With x as a matrix and positionnal orien=1 +data = [ +10 10 10 10 +20 20 20 20 +30 30 30 30 +4000 4000 4000 4000 +]; +computed = trimmean(data,50,1); +expected = [25,25,25,25]; +if norm(computed-expected)>%eps then bugmes();quit;end +// With x as a matrix and positionnal orien="c" +data = [ +10 20 30 40 +50 60 70 4000 +]; +computed = trimmean(data,50,"c"); +expected = [25;65]; +if norm(computed-expected)>%eps then bugmes();quit;end +// With x as a matrix and positionnal orien=2 +data = [ +10 20 30 40 +50 60 70 4000 +]; +computed = trimmean(data,50,2); +expected = [25;65]; +if norm(computed-expected)>%eps then bugmes();quit;end +// With x as a matrix and non-positionnal orien="r" +data = [ +10 10 10 10 +20 20 20 20 +30 30 30 30 +4000 4000 4000 4000 +]; +computed = trimmean(data,orien="r",50); +expected = [25,25,25,25]; +if norm(computed-expected)>%eps then bugmes();quit;end +// With x as a matrix and non-positionnal orien=1 +data = [ +10 10 10 10 +20 20 20 20 +30 30 30 30 +4000 4000 4000 4000 +]; +computed = trimmean(data,orien="r",50); +expected = [25,25,25,25]; +if norm(computed-expected)>%eps then bugmes();quit;end +// With x as a matrix and non-positionnal orien="c" +data = [ +10 20 30 40 +50 60 70 4000 +]; +computed = trimmean(data,orien="c",50); +expected = [25;65]; +if norm(computed-expected)>%eps then bugmes();quit;end +// With x as a matrix and non-positionnal orien=2 +data = [ +10 20 30 40 +50 60 70 4000 +]; +computed = trimmean(data,orien=2,50); +expected = [25;65]; +if norm(computed-expected)>%eps then bugmes();quit;end +// Test extremal values of discard. +data = [10, 20, 30, 40, 50, 60, 70, 80, 90]; +computed = trimmean(data,discard=0); +expected = 50; +if abs(computed-expected)>%eps then bugmes();quit;end +// Test extremal values of discard. +data = [10, 20, 30, 40, 50, 60, 70, 80, 4000]; +computed = trimmean(data,discard=100); +expected = 50; +if abs(computed-expected)>%eps then bugmes();quit;end diff --git a/modules/statistics/tests/unit_tests/trimmean.tst b/modules/statistics/tests/unit_tests/trimmean.tst new file mode 100755 index 000000000..7abf15a61 --- /dev/null +++ b/modules/statistics/tests/unit_tests/trimmean.tst @@ -0,0 +1,134 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2008 - INRIA - Michael Baudin +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= + +// With x as a vector and 1 argument +data = [10, 20, 30, 40, 50, 60, 70, 80, 4000]; +computed = trimmean(data); +expected = 50; +if abs(computed-expected)>%eps then pause,end +// With x as a vector and 2 arguments +data = [10, 20, 30, 40, 50, 60, 70, 80, 4000]; +computed = trimmean(data,25); +expected = 50; +if abs(computed-expected)>%eps then pause,end +// With x as a matrix and 2 arguments +data = [ +10 20 30 40 +50 60 70 4000 +]; +computed = trimmean(data,25); +expected = 45; +if abs(computed-expected)>%eps then pause,end +// With x as a vector and specified orient +data = [10, 20, 30, 40, 50, 60, 70, 80, 4000]; +computed = trimmean(data,25,"all"); +expected = 50; +if abs(computed-expected)>%eps then pause,end +// With x as a matrix and specified orient +data = [ +10 20 30 40 +50 60 70 4000 +]; +computed = trimmean(data,25,"all"); +expected = 45; +if abs(computed-expected)>%eps then pause,end +// With x as a vector and non-positionnal orien="all" +data = [10, 20, 30, 40, 50, 60, 70, 80, 4000]; +computed = trimmean(data,25,orien="all"); +expected = 50; +if abs(computed-expected)>%eps then pause,end +// With x as a matrix and non-positionnal orien="all" +data = [ +10 20 30 40 +50 60 70 4000 +]; +computed = trimmean(data,25,orien="all"); +expected = 45; +if abs(computed-expected)>%eps then pause,end +// With x as a matrix and positionnal orien="r" +data = [ +10 10 10 10 +20 20 20 20 +30 30 30 30 +4000 4000 4000 4000 +]; +computed = trimmean(data,50,"r"); +expected = [25,25,25,25]; +if norm(computed-expected)>%eps then pause,end +// With x as a matrix and positionnal orien=1 +data = [ +10 10 10 10 +20 20 20 20 +30 30 30 30 +4000 4000 4000 4000 +]; +computed = trimmean(data,50,1); +expected = [25,25,25,25]; +if norm(computed-expected)>%eps then pause,end +// With x as a matrix and positionnal orien="c" +data = [ +10 20 30 40 +50 60 70 4000 +]; +computed = trimmean(data,50,"c"); +expected = [25;65]; +if norm(computed-expected)>%eps then pause,end +// With x as a matrix and positionnal orien=2 +data = [ +10 20 30 40 +50 60 70 4000 +]; +computed = trimmean(data,50,2); +expected = [25;65]; +if norm(computed-expected)>%eps then pause,end +// With x as a matrix and non-positionnal orien="r" +data = [ +10 10 10 10 +20 20 20 20 +30 30 30 30 +4000 4000 4000 4000 +]; +computed = trimmean(data,orien="r",50); +expected = [25,25,25,25]; +if norm(computed-expected)>%eps then pause,end +// With x as a matrix and non-positionnal orien=1 +data = [ +10 10 10 10 +20 20 20 20 +30 30 30 30 +4000 4000 4000 4000 +]; +computed = trimmean(data,orien="r",50); +expected = [25,25,25,25]; +if norm(computed-expected)>%eps then pause,end +// With x as a matrix and non-positionnal orien="c" +data = [ +10 20 30 40 +50 60 70 4000 +]; +computed = trimmean(data,orien="c",50); +expected = [25;65]; +if norm(computed-expected)>%eps then pause,end +// With x as a matrix and non-positionnal orien=2 +data = [ +10 20 30 40 +50 60 70 4000 +]; +computed = trimmean(data,orien=2,50); +expected = [25;65]; +if norm(computed-expected)>%eps then pause,end +// Test extremal values of discard. +data = [10, 20, 30, 40, 50, 60, 70, 80, 90]; +computed = trimmean(data,discard=0); +expected = 50; +if abs(computed-expected)>%eps then pause,end +// Test extremal values of discard. +data = [10, 20, 30, 40, 50, 60, 70, 80, 4000]; +computed = trimmean(data,discard=100); +expected = 50; +if abs(computed-expected)>%eps then pause,end + diff --git a/modules/statistics/tests/unit_tests/variance.dia.ref b/modules/statistics/tests/unit_tests/variance.dia.ref new file mode 100755 index 000000000..dd46fdeca --- /dev/null +++ b/modules/statistics/tests/unit_tests/variance.dia.ref @@ -0,0 +1,89 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// Copyright (C) 2008 - INRIA - Michael Baudin +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +// <-- CLI SHELL MODE --> +// With x as a row vector and 1 argument +data = [10 20 30 40 50 60 70 80 90]; +[Variance, Mean] = variance(data); +expectedM = 50; +expectedV = 750; +assert_checkequal([Variance Mean], [expectedV expectedM]); +// With x as a column vector and 1 argument +data = [10; 20; 30; 40; 50; 60; 70; 80; 90]; +[Variance, Mean] = variance(data); +expectedM = 50; +expectedV = 750; +assert_checkequal([Variance Mean], [expectedV expectedM]); +// With x as a matrix +data = [10 20 30 40; 50 60 70 90]; +[Variance, Mean] = variance(data); +expectedM = 46.25; +expectedV = 712.5; +assert_checkequal([Variance Mean], [expectedV expectedM]); +// With x as a row vector and specified orient +[Variance, Mean] = variance(data, 1); +expectedM = [30 40 50 65]; +expectedV = [800 800 800 1250]; +assert_checkequal([Variance Mean], [expectedV expectedM]); +// With x as a row vector and specified orient +[Variance, Mean] = variance(data, "r"); +expectedM = [30 40 50 65]; +expectedV = [800 800 800 1250]; +assert_checkequal([Variance Mean], [expectedV expectedM]); +// With x as a row vector and specified orient +[Variance, Mean] = variance(data, 2); +expectedM = [50; 135]/2; +expectedV = [500; 875]/3; +assert_checkequal([Variance Mean], [expectedV expectedM]); +// With x as a row vector and specified orient +[Variance, Mean] = variance(data, "c"); +expectedM = [50; 135]/2; +expectedV = [500; 875]/3; +assert_checkequal([Variance Mean], [expectedV expectedM]); +// With x as a complex row vector and 1 argument +a = [ +0.9, 0.7; +0.1, 0.1; +0.5, 0.4 ]; +data = a + a * 2 * %i; +[Variance, Mean] = variance(data); +expectedM = 0.45+0.9*%i; +expectedV = 0.515; +assert_checkequal([Variance Mean], [expectedV expectedM]); // Must be variance(real(data)) + variance(imag(data)) +// With x as a complex row vector and computation by column +data = a + a * 2 * %i; +[Variance, Mean] = variance(data, 1); +expectedM = [0.5+%i 0.4+0.8*%i]; +expectedV = [0.8 0.45]; +assert_checkalmostequal([Variance Mean], [expectedV expectedM]); +// With x as a complex row vector and computation by row +data = a + a * 2 * %i; +[Variance, Mean] = variance(data, 2); +expectedM = [0.8+1.6*%i; 0.1+0.2*%i; 0.45+0.9*%i]; +expectedV = [0.1; 0; 0.025]; +assert_checkalmostequal([Variance Mean], [expectedV expectedM]); +// Normalization with N-1, no a priori mean +x = [ +0.9 0.7 +0.1 0.1 +0.5 0.4 ]; +orien = 1; +[Variance, Mean] = variance(x,orien); +expectedM = [0.5 0.4]; +expectedV = [0.16 0.09]; +assert_checkalmostequal([Variance Mean], [expectedV expectedM]); +// Normalization with N, the a priori can be known +[Variance, Mean] = variance(x,orien,mean(x,orien)); +expectedM = [0.5 0.4]; +expectedV = [0.32 0.18]/3; +assert_checkalmostequal([Variance Mean], [expectedV expectedM]); +// Biased variance +[Variance, Mean] = variance(x,orien,%nan); +expectedM = [0.5 0.4]; +expectedV = [0.32 0.18]/3; +assert_checkalmostequal([Variance Mean], [expectedV expectedM]); diff --git a/modules/statistics/tests/unit_tests/variance.tst b/modules/statistics/tests/unit_tests/variance.tst new file mode 100755 index 000000000..31594dabc --- /dev/null +++ b/modules/statistics/tests/unit_tests/variance.tst @@ -0,0 +1,93 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// Copyright (C) 2008 - INRIA - Michael Baudin +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +// <-- CLI SHELL MODE --> + +// With x as a row vector and 1 argument +data = [10 20 30 40 50 60 70 80 90]; +[Variance, Mean] = variance(data); +expectedM = 50; +expectedV = 750; +assert_checkequal([Variance Mean], [expectedV expectedM]); +// With x as a column vector and 1 argument +data = [10; 20; 30; 40; 50; 60; 70; 80; 90]; +[Variance, Mean] = variance(data); +expectedM = 50; +expectedV = 750; +assert_checkequal([Variance Mean], [expectedV expectedM]); +// With x as a matrix +data = [10 20 30 40; 50 60 70 90]; +[Variance, Mean] = variance(data); +expectedM = 46.25; +expectedV = 712.5; +assert_checkequal([Variance Mean], [expectedV expectedM]); +// With x as a row vector and specified orient +[Variance, Mean] = variance(data, 1); +expectedM = [30 40 50 65]; +expectedV = [800 800 800 1250]; +assert_checkequal([Variance Mean], [expectedV expectedM]); +// With x as a row vector and specified orient +[Variance, Mean] = variance(data, "r"); +expectedM = [30 40 50 65]; +expectedV = [800 800 800 1250]; +assert_checkequal([Variance Mean], [expectedV expectedM]); +// With x as a row vector and specified orient +[Variance, Mean] = variance(data, 2); +expectedM = [50; 135]/2; +expectedV = [500; 875]/3; +assert_checkequal([Variance Mean], [expectedV expectedM]); +// With x as a row vector and specified orient +[Variance, Mean] = variance(data, "c"); +expectedM = [50; 135]/2; +expectedV = [500; 875]/3; +assert_checkequal([Variance Mean], [expectedV expectedM]); + +// With x as a complex row vector and 1 argument +a = [ +0.9, 0.7; +0.1, 0.1; +0.5, 0.4 ]; +data = a + a * 2 * %i; +[Variance, Mean] = variance(data); +expectedM = 0.45+0.9*%i; +expectedV = 0.515; +assert_checkequal([Variance Mean], [expectedV expectedM]); // Must be variance(real(data)) + variance(imag(data)) + +// With x as a complex row vector and computation by column +data = a + a * 2 * %i; +[Variance, Mean] = variance(data, 1); +expectedM = [0.5+%i 0.4+0.8*%i]; +expectedV = [0.8 0.45]; +assert_checkalmostequal([Variance Mean], [expectedV expectedM]); +// With x as a complex row vector and computation by row +data = a + a * 2 * %i; +[Variance, Mean] = variance(data, 2); +expectedM = [0.8+1.6*%i; 0.1+0.2*%i; 0.45+0.9*%i]; +expectedV = [0.1; 0; 0.025]; +assert_checkalmostequal([Variance Mean], [expectedV expectedM]); + +// Normalization with N-1, no a priori mean +x = [ +0.9 0.7 +0.1 0.1 +0.5 0.4 ]; +orien = 1; +[Variance, Mean] = variance(x,orien); +expectedM = [0.5 0.4]; +expectedV = [0.16 0.09]; +assert_checkalmostequal([Variance Mean], [expectedV expectedM]); +// Normalization with N, the a priori can be known +[Variance, Mean] = variance(x,orien,mean(x,orien)); +expectedM = [0.5 0.4]; +expectedV = [0.32 0.18]/3; +assert_checkalmostequal([Variance Mean], [expectedV expectedM]); +// Biased variance +[Variance, Mean] = variance(x,orien,%nan); +expectedM = [0.5 0.4]; +expectedV = [0.32 0.18]/3; +assert_checkalmostequal([Variance Mean], [expectedV expectedM]); diff --git a/modules/statistics/tests/unit_tests/variancef.dia.ref b/modules/statistics/tests/unit_tests/variancef.dia.ref new file mode 100755 index 000000000..255d64aa6 --- /dev/null +++ b/modules/statistics/tests/unit_tests/variancef.dia.ref @@ -0,0 +1,40 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +// <-- CLI SHELL MODE --> +x = [0.2113249 0.0002211 0.6653811; 0.7560439 0.9546254 0.6283918]; +fre = [1 2 3; 3 4 3]; +refM = 0.63623244375; +refV = 0.096057419504; +[v, m] = variancef(x, fre); +assert_checkalmostequal([v m], [refV refM]); +refM = [0.61986415 0.636490633333 0.64688645]; +refV = [0.074179697240 0.242903351429 0.000410462494]; +[v, m] = variancef(x, fre, "r"); +assert_checkalmostequal([v m], [refV refM]); +refM = [0.367985066667; 0.79718087]; +refV = [0.112075256021; 0.021077902385]; +[v, m] = variancef(x, fre, "c"); +assert_checkalmostequal([v m], [refV refM]); +// With the a priori mean +refM = 0.63623244375; +refV = 0.090053830785; +[v, m] = variancef(x, fre, "*", meanf(x,fre)); +assert_checkalmostequal([v m], [refV refM]); +refM = [0.61986415 0.636490633333 0.64688645]; +refV = [0.055634772930 0.202419459524 0.000342052079]; +[v, m] = variancef(x, fre, "r", meanf(x,fre,"r")); +assert_checkalmostequal([v m], [refV refM]); +refM = [0.367985066667; 0.79718087]; +refV = [0.093396046684; 0.018970112146]; +[v, m] = variancef(x, fre, "c", meanf(x,fre,"c")); +assert_checkalmostequal([v m], [refV refM]); +// Biased variance +refM = 0.63623244375; +refV = 0.090053830785; +[v, m] = variancef(x, fre, "*", %nan); +assert_checkalmostequal([v m], [refV refM]); diff --git a/modules/statistics/tests/unit_tests/variancef.tst b/modules/statistics/tests/unit_tests/variancef.tst new file mode 100755 index 000000000..66630d2f9 --- /dev/null +++ b/modules/statistics/tests/unit_tests/variancef.tst @@ -0,0 +1,48 @@ +// ============================================================================= +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2013 - Scilab Enterprises - Paul Bignier +// +// This file is distributed under the same license as the Scilab package. +// ============================================================================= +// +// <-- CLI SHELL MODE --> + +x = [0.2113249 0.0002211 0.6653811; 0.7560439 0.9546254 0.6283918]; +fre = [1 2 3; 3 4 3]; + +refM = 0.63623244375; +refV = 0.096057419504; +[v, m] = variancef(x, fre); +assert_checkalmostequal([v m], [refV refM]); + +refM = [0.61986415 0.636490633333 0.64688645]; +refV = [0.074179697240 0.242903351429 0.000410462494]; +[v, m] = variancef(x, fre, "r"); +assert_checkalmostequal([v m], [refV refM]); + +refM = [0.367985066667; 0.79718087]; +refV = [0.112075256021; 0.021077902385]; +[v, m] = variancef(x, fre, "c"); +assert_checkalmostequal([v m], [refV refM]); + +// With the a priori mean +refM = 0.63623244375; +refV = 0.090053830785; +[v, m] = variancef(x, fre, "*", meanf(x,fre)); +assert_checkalmostequal([v m], [refV refM]); + +refM = [0.61986415 0.636490633333 0.64688645]; +refV = [0.055634772930 0.202419459524 0.000342052079]; +[v, m] = variancef(x, fre, "r", meanf(x,fre,"r")); +assert_checkalmostequal([v m], [refV refM]); + +refM = [0.367985066667; 0.79718087]; +refV = [0.093396046684; 0.018970112146]; +[v, m] = variancef(x, fre, "c", meanf(x,fre,"c")); +assert_checkalmostequal([v m], [refV refM]); + +// Biased variance +refM = 0.63623244375; +refV = 0.090053830785; +[v, m] = variancef(x, fre, "*", %nan); +assert_checkalmostequal([v m], [refV refM]); |