pax_global_header00006660000000000000000000000064123420416060014510gustar00rootroot0000000000000052 comment=674d4da14a9c0a386dd31153e46f6278455a8fb6 april-ann-0.3.1/000077500000000000000000000000001234204160600133725ustar00rootroot00000000000000april-ann-0.3.1/.gitignore000066400000000000000000000010021234204160600153530ustar00rootroot00000000000000gmon.out # Auxiliary include file # ########################## lua5.2-deb-multiarch.h # Building dirs # ################# build_* bin dep_graph.dot include lib doxygen_doc # Emacs backups # ################# *~ \#*\# .\#* # Vim swap # *.swp # OS generated files # ###################### .DS_Store .DS_Store? ._* .Spotlight-V100 .Trashes Icon? ehthumbs.db Thumbs.db # Emacs Clang autocompletion # ############################## .clang-completion-error # Global tags # ############### GPATH GRTAGS GSYMS GTAGS april-ann-0.3.1/.maketravis.sh000077500000000000000000000022501234204160600161540ustar00rootroot00000000000000#!/bin/bash . configure.sh UNAME=$(uname) if [[ $UNAME == "Linux" ]]; then if [[ $CC == gcc ]]; then ## echo "**** GCC RELEASE-ATLAS ****" && ## make release-atlas && echo "**** GCC TEST-DEBUG-ATLAS ****" && make test-debug-atlas && ## echo "**** GCC RELEASE-NO-OMP ****" && ## make release-no-omp && echo "**** GCC TEST-DEBUG-NO-OMP ****" && make test-debug-no-omp elif [[ $CC == clang ]]; then ## echo "**** CLANG RELEASE-NO-OMP ****" && ## make release-no-omp && echo "**** CLANG TEST-DEBUG-NO-OMP ****" && make test-debug-no-omp else echo "Unknown variable CC=$CC" exit 10 fi elif [[ $UNAME == "Darwin" ]]; then if [[ $CC == clang ]]; then ## echo "**** CLANG RELEASE-HOMEBREW ****" && ## make release-macosx && echo "**** CLANG TEST-DEBUG-HOMEBREW ****" && make test-debug-homebrew else echo "Unknown variable CC=$CC" exit 10 fi else echo "Unknown UNAME=$UNAME" exit 10 fi april-ann-0.3.1/.travis.yml000066400000000000000000000004001234204160600154750ustar00rootroot00000000000000env: OMP_NUM_THREADS=2 matrix: exclude: - os: osx compiler: gcc branches: only: - master - devel before_install: - ./DEPENDENCIES-INSTALLER.sh language: cpp script: ./.maketravis.sh compiler: - gcc - clang os: - linux - osx april-ann-0.3.1/AUTHORS.txt000066400000000000000000000002431234204160600152570ustar00rootroot00000000000000In this project has been worked: - Salvador España Boquera - Jorge Gorbe Moya - Adrián Palacios Corella - Joan Pastor Pellicer - Francisco Zamora Martínez april-ann-0.3.1/CHANGELIST.md000066400000000000000000000344061234204160600153440ustar00rootroot00000000000000ChangeList ========== Master branch release --------------------- ### Unstable changes ### API Changes ### Bugs removed ### C/C++ ### Other v0.3.1 ------ ### Unstable changes - Added `clustering` and `knn` algorithms. - Added `ann.components.zca_whitening` and `ann.components.pca_whitening` classes. - Added `stats.zca_whitening` and `stats.pca_whitening` functions. - Added packages `autodiff` and `autodiff.ann`, with automatic differentiation algorithms. - Added `ann.optimizer.quickprop` algorithm, but stills untested. - Gradients smoothing, based on weights sharing and `bunch_size`, is applied by `trainable.supervised_trainer` objects, not by the `optimizer`. - Added `ann.components.dropout` class. - Added `ann.autoencoders.ae` class, in order to factorize the SDAE code. - Solved problems with CUDA compilation, but it stills not working because an error during cuMemAlloc. - Class interest_points and layout algorithms (still in development). - Added the geometry c++ class for working in to lines and point geometry. ### API Changes - Modified bootstrapping API in order to be similar with R: `stats.boot()` and `stats.boot.ci()`. - Added `ann.optimizer.asgd` for Averaged SGD optimization. - Added `trainable.qlearning_trainer` for reinforcement learning tasks. - Enhanced `util.serialize` and `util.deserialize` to accept functions as argument, allowing to serialize/deserialize over general streams. - Added `iscallable(...)` function. - Added `utest` package, for unit testing. - Added methods to `matrix` which work with sparse matrices. - Added class `matrix.sparse`. - Added method `m:toTabStream(file or gzfile)` to `matrix`. - Added operations `math.log1p` and `math.logadd`. - Added operator `%` to Lua `string` metatable, allowing to do Python-like string formatting, and map-like substitutions. - Added index matrix for min/max operations in `matrix` objects. - Added `serialize` and `deserialize` Lua functions, in `util` package. ### Bugs removed - Solved bug which makes to load unitialized weight matrices when loading old trainable.supervised_trainer (without `matrix.dict` object). - Solved bug at `Matrix::sliding_window` which makes an early end of the iterator when window has an `offset` different of 0. ### C/C++ - Added `-lcblas` option to `build_release.lua` and `build_debug.lua`. - Added sparse CBLAS wrappers, for CUDA (not tested) and standard release. - Added CBLAS wrappers for float, double, and ComplexF types. - Added geometric parametrizer for off-line text preprocessing. - Added dependency with `liblapacke` for PCA when not available MKL or MacOS X. ### Other - Added argument check at `mathcore.block.*` constructors. - Travis is monitoring only master and devel branches, for push and pull-requests. - Added travis compilation and testing platform for pull-requests. v0.3.1-alpha (pre-relase of v0.3.1-beta) ---------------------------------------- ### API Changes - Added `matrix:linspace(a,b)` and `matrix:linspace(a,b,base)`. - `matrix:transpose()` returns a matrix which references the original. Any modification to the tranposed matrix, will be reflected at the original. - `matrix:cmul` method is now **in-place**, so, if you don't want to modify the original matrix, you need to do `m:clone():cmul(...)` instead of `m:cmul(...)`. - `update` property is added to `ann.optimizers.sgd` object in order to compute the momentum. - Optimizers `execute` method receives a functions which computes the loss, the gradient (mandatory). Any other data is **optional**. - Removed dropout code from activation functions. - Deleted options from ANN components. - Added methods `unroll` and `get` to `ann.components.stack` class. - Added `inf` and `sup` limits to Hard-Tanh activation function. - Added `random:to_lua_string()` method. - Moved `ann.loss.__base__` to `ann.loss`. - Moved `ann.components.actf.__base__` to `ann.components.actf`. ### New features - Added Sauvola's binarization method. - Added a normalize handwritting text utilities based on the main areas of the text. - Added `matrix.dict`, a hash set dictionary in C++ binded to Lua, which allows to execute basic math operations and reductions over the whole set of contained matrices. It major purpose is to represent a set of connection weights or gradients in ANNs. - Added `dataset.token.filter`, which allows ANN components as filters. - Added `trainable.train_holdout_validation` class, which replace `trainable.supervised_trainer:train_holdout_validation` method. - Added `trainable.train_wo_validation` class, which replace `trainable.supervised_trainer:train_wo_validation` method. - Added `trainable.dataset_pair_iterator` and `trainable.dataset_multiple_iterator`, useful to iterate over datasets following different traversal schemes: sequential, shuffled, shuffled with replacement, shuffled with distribution. - Added method `precompute_output_size` in ANN components. - Added `ann.optimizer.cg`, Conjugate Gradient algorithm. - Added `ann.optimizer.rprop`, Resilient Prop algorithm. - Added `batch_fmeasure_micro_avg` and `batch_fmeasure_macro_avg` for multi-class FMeasure computation. - Renamed loss function `local_fmeasure` as `batch_fmeasure`, and improved to work with multi-class models. - Added `ann.loss.zero_one` loss function. - Added `DEPENDENCIES-INSTALLER.sh`. - Added syntactic sugar for `matrix:slice(...)` method: `m("1:2","3:4")` or `m({1,2},{3,4})`, like in Matlab or Octave. - Added `matrix.svd` and `matrix.diagonalize`. - Added `stats.pca`, `stats.mean_centered`, `stats.pca_whitening`. ### Bugs removed - Memory leak due to the GPUMirroredMemoryBlock pool was solved. - Solved bug at `stats.correlation.pearson`. - Solved bug at `trainable` when using `use_dataset`, `train_dataset`, `validate_dataset`, `grad_check_dataset` methods without a `bunch_size` parameter, and with a trainer which has not a `bunch_size` defined at construction. - Stabilization of log-logistic activation function. - Stabilization of training with cross-entropy and multi-class-entropy. - Solved bug when reading using `matrix.fromTabFilename`. The loader failed when the file had empty lines. - Solved bug at `Matrix::select(...)` C++ method. The matrix offset wasn't be added to the resulting matrix offset. - Solved bug at `SlidingWindow::setAtWindow(...)` C++ method. The matrix offset wasn't be added to the computed window position. - Solved bug at `buffered_memory.h`. Such bug introduces an early stop when reading matrices, ignoring the last lines of files. - Solved problem with `rlcompleter`, which didn't work properly when loaded as a Lua module. - Modified `configure.sh` to inform about any error during Lua building. - Loadable modules are working on MacOs X. ### C/C++ code changes - Added `Matrix::random_acces_iterator`, which reduces the access overhead for random access of a `Matrix` object. It retains the memory pointer forcing an update between host and device (GPU) memory. - Generalized `GPUMirroredBlockBase` to allow the reinterpretation of the underlying memory pointer using different types (reinterpret_cast). - Added `MatrixSet` class template, which stores a dictionary of STRING->MATRIX, useful for ANNs and gradient descent purposes. - Added `StochasticANNComponent` which is base class for stochastic components. - Simplified coupling between ANN components, ANN loss functions, introducing automatic binding between MatrixFloat and TokenMatrixFloat. - ANN Components has a pointer to a `MatrixFloat` instead of `ANN::Connections`. - `ANN::Connections` is a static class with helper functions, and it is binded as `ann.connections`. - Old-weights property is removed from ANN connections. - Added automatic conversion between DataSetFloat and DataSetToken in `dataset.token.filter` and `dataset.token.union`. - Added `FunctionInterface` class, in Lua as `functions` class, superclass of ANN components. v0.3.0-beta relase ------------------ ### API Changes - Added `loss` parameter to `trainable.supervised_trainer` methods. - Added `optimizer` parameter to `trainable.supervised_trainer` methods. - Added `ann.optimizer` package, which has the implementation of weight update based on weight gradient. So, the ANN components only compute gradients. This allows to implement different optimization methods (as "Conjugate Gradient", or "Linear Search Brack-Propagation") with the same gradient computation. - Loss functions `ann.loss` API has been changed, now the loss computation is done in two separated steps: - `matrix = loss:compute_loss(output,target)`: which returns a matrix with the loss of every pair of patterns, allowing to perform several loss computations without taken them into account. - `matrix = loss:accum_loss(matrix)`: which accumulates the loss in the internal state of the class. - Added a new version of `loss` function, which computes mean and sample variance of the loss. Besides, the loss computation is done with doubles, being more accurated than before. - `replacement` parameter in SDAE doesn't force `on_the_fly` parameter, they are independent. - SDAE training has been changed in order to allow the use of LUA datasets, - Replaced `cpp_class_binding_extension` by `class_extension` function, adding Lua classes support besides to CPP binded classes. - Modified `class` and `class_instance` functions to be more homogeneous with C++ binding. - Added support for GZipped matrices load and save from C++, so functions `matrix.savefile` and `matrix.loadfile` (and its correspondence for complex numbers, double, int32, and char) were removed. Methods `matrix.fromFilename` and `matrix.toFilename` accept '.gz' extension. ### Packages rename - Changed package `sdae` to `ann.autoencoders`. - Changed package `loss_functions` to `ann.loss`. - Splitted `mathcore` package into `mathcore` and `complex` packages. - Renamed `math` package to `mathcore` to avoid the collision with Lua standard math library. ### New features - April-ANN is deployed as a standalone executable and as a shared library for Lua 5.2. - Modified `lua.h` to incorporate the GIT commit number in the disclaimer. - Added Lua autocompletion when readline is available. - Implemented SignalHandler class in C++. - Added `signal.register` and `signal.receive` functions to Lua. - Added to `matrix` the methods `map`, `contiguous`, `join`, `abs`, `tan`, `atan`, `atanh`, `sinh`, `asin`, `asinh`, `cosh`, `acos`, `acosh`, `fromMMap`, `toMMap`, `div`, `max`, `min`. - Added `iterator` class, which is a wrapper around Lua iterators, but provides a more natural interface with functional programming procedures as `map`, `filter`, `apply`, or `reduce`. - Added methods `iterate`, `field`, `select` to iterator Lua class. - `table.insert` returns the table, which is useful for reduction operations. - Added `table` method to `iterator` class. - Added naive `L1_norm` regularization. - Added `dataset.clamp`. - Added `mathcore.set_mmap_allocation` function, which allows to forces the use of mmap for `matrix` memory allocation. - Added `ann.components.slice`. - Added GS-PCA algorithm for efficient computation of PCA (iterative algorithm), `stats.iterative_pca` Lua function. - Added basic MapReduce implementation in Lua. - Added `stats.correlation.pearson` Lua class. - Added `stats.bootstrap_resampling` function. - Added `math.add`, `math.sub`, `math.mul`, `math.div` functions. - `trainable` and `ann.mlp.all_all` are using `matrix:to_lua_string()` method. - Added method `to_lua_string()` in all matrix types, so the method produce a Lua chunk which is loadable and produce a matrix. - Added serialization to `parallel_foreach`, allowing to produce outputs which could be loaded by the caller process. - Declaration of `luatype` function as global, it wasn't. - Added `iterable_map` and `multiple_ipairs` functions to the Lua utilities. - Added SubAndDivNormalizationDataSet, applies a substraction and a division of the feature vectors. - Added stepDataset. ### Bugs removed - Solved bug at `luabind_template.cc`, which introduced spurious segmentation faults due to Lua execution of garbage collection in the middle of a `lua_pushClassName`. - Solved bug at glob function. - Solved bug at matrix iterators operator=. - Solved bug at method `matrix::best_span_iterator::setAtWindow`. Becaose of It the method didn't works when the matrix was a sub-matrix (slice) of other matrix. - Solved bugs at Matrix template constructor which affects to `rewrap` lua method, and to select method, which affects to `select` lua method. - Added binarizer::init() to a binded static_constructor, it is needed to execute init() before decode/encode double numbers, because of endianism. - Solved bug at constString when extracting double numbers in binary format. - MacOS compilation problems solved. - Solved problems with CUDA, it is working again. - Dynamic loading of C modules is working now. ### C/C++ code changes - Added BIND_STRING_CONSTANT to luabind, so it is possible to export C string constants to Lua. - Removed warning of clang about unused variables, adding a new macro `UNUSED_VARIABLE(x)` defined in the header `utils/c_src/unused_variable.h`. - Matrix fromString and toString Lua methods have been improved to write/read directly from Lua string buffer, so the memory print has been reduced. - The C++ routines to write and read files is generalized to work with streams, under the BufferedStream template, and it is instantiated to FILE and gzFile formats. - Added sanity check to cross-entropy and multi-class cross-entropy loss functions, to detect the use of non logarithmic outputs. v0.2.1-beta relase ------------------ - matrices with float (matrix), complex numbers (matrixComplex), double (matrixDouble), int32 (matrixInt32), and char (matrixChar). - GZIO is fresh code, a wrapper over ZLIB, binded using LUABIND. - Added LAPACK support, for matrix inversion computation. - Updated Lua class mean_var to follow the method of Knuth. - CUDA compiles, but stills not working :SSSSSS - Solved problems of table.tostring. - Generalization of matrix math operators. - Specialization of math wrappers for float and complex numbers. - Support for MAT-file format (Matlab matrices). - Added mutual_information package. - Added APRIL_EXEC and APRIL_TOOLS_DIR environment variables to configure.sh - Added scripts for NBEST, but not working :SSSSSS - Some memory leaks, and bugs are solved. april-ann-0.3.1/DEPENDENCIES-INSTALLER.sh000077500000000000000000000075661234204160600171300ustar00rootroot00000000000000#!/bin/bash UNAME=$(uname) echo "System: $UNAME" if [ $UNAME = "Linux" ]; then if [ $(which apt-get) ]; then sudo apt-get update -y -q ubuntu_release=$(lsb_release -r | cut -f 2) if [[ $? -ne 0 ]]; then echo "Unable to call lsb_release command. This script only works in Ubuntu" exit 10 fi if [[ $ubuntu_release == "12.04" ]]; then sudo apt-get install -y gfortran cmake pkg-config libz-dev libreadline-dev libblas-dev libatlas-dev libatlas-base-dev libpng12-dev libtiff-dev liblua5.2-dev libncurses5 libncurses5-dev liblapack-dev if ! locate liblapacke.so; then cwd=$(pwd) cd /tmp/ && wget http://www.netlib.org/lapack/lapack-3.5.0.tgz && tar zxvf lapack-3.5.0.tgz && cd lapack-3.5.0 && cmake -DBUILD_SHARED_LIBS=1 -DLAPACKE=1 -DCMAKE_INSTALL_PREFIX=/usr . && make && sudo make install if [[ $? -ne 0 ]]; then echo "Error installing dependencies" exit 10 fi cd $cwd fi else sudo apt-get install -y gfortran pkg-config libz-dev libreadline-dev libblas-dev libatlas-dev libatlas-base-dev libpng12-dev libtiff-dev liblua5.2-dev libncurses5 libncurses5-dev liblapacke-dev if [[ $? -ne 0 ]]; then echo "Error installing dependencies, only works with ubuntu >= 12.04" exit 10 fi fi dest=$(tempfile) echo -e '#include "lua5.2-deb-multiarch.h"\nint main() { return 0; }\n' > $dest.c multiarch=lua/include/lua5.2-deb-multiarch.h multiarch2=lua/lua-5.2.2/src/lua5.2-deb-multiarch.h if ! gcc -c $dest.c 2> /dev/null; then echo "Not found lua5.2-deb-multiarch.h, generating a default one in $multiarch, please, check the content" echo -e "#ifndef _LUA_DEB_MULTIARCH_\n#define _LUA_DEB_MULTIARCH_\n#define DEB_HOST_MULTIARCH \""$(arch)"-linux-gnu\"\n#endif" > $multiarch echo -e "#ifndef _LUA_DEB_MULTIARCH_\n#define _LUA_DEB_MULTIARCH_\n#define DEB_HOST_MULTIARCH \""$(arch)"-linux-gnu\"\n#endif" > $multiarch2 fi if [ ! -z $dest ]; then rm -f $dest* rm -f $(basename $dest).o fi else echo "Error, impossible to install dependencies, this script only works with apt-get" exit 10 fi elif [ $UNAME = "Darwin" ]; then if [ $(which port) ]; then if ! sudo port install zlib readline libpng tiff findutils pkgconfig lua; then echo "ERROR INSTALLING DEPENDENCIES USING MACPORTS" exit 10 fi elif [ $(which brew) ]; then brew update if ! brew install lzlib readline libpng libtiff findutils pkgconfig; then echo "ERROR INSTALLING DEPENDENCIES USING HOMEBREW" exit 10 fi ################################################################### # THIS UGLY HACK IS BECAUSE LUA52 IS NOT AT DEFAULT HOMEBREW REPO # brew tap homebrew/versions if ! brew install lua52; then echo "ERROR INSTALLING DEPENDENCIES USING HOMEBREW" exit 10 fi brew link lua52 ################################################################### else echo "Error, impossible to install dependencies, this scripts needs MacPorts or Homebrew" exit 10 fi echo "This script will change the default system BSD find by GNU find" echo "BSD find will be renamed as bfind" if [ ! -e /usr/find/bfind ]; then sudo mv /usr/bin/find /usr/bin/bfind else sudo rm -f /usr/bin/find fi sudo ln -s $(which gfind) /usr/bin/find else echo "Error, impossible to install dependencies, not recognized system: $UNAME" exit 10 fi exit 0 april-ann-0.3.1/EXAMPLES/000077500000000000000000000000001234204160600146105ustar00rootroot00000000000000april-ann-0.3.1/EXAMPLES/digits-from-scratch.lua000066400000000000000000000113241234204160600211650ustar00rootroot00000000000000local digits_image = ImageIO.read(string.get_path(arg[0]).."digits.png") local m1 = digits_image:to_grayscale():invert_colors():matrix() -- -- TRAINING -- -- a simple matrix for the desired output local train_input = dataset.matrix(m1, { patternSize = {16,16}, offset = {0,0}, numSteps = {80,10}, stepSize = {16,16}, orderStep = {1,0} }) local m2 = matrix(10,{1,0,0,0,0,0,0,0,0,0}) -- a circular dataset which advances with step -1 local train_output = dataset.matrix(m2, { patternSize = {10}, offset = {0}, numSteps = {800}, stepSize = {-1}, circular = {true} }) -- VALIDATION -- local val_input = dataset.matrix(m1, { patternSize = {16,16}, offset = {1280,0}, numSteps = {20,10}, stepSize = {16,16}, orderStep = {1,0} }) local val_output = dataset.matrix(m2, { patternSize = {10}, offset = {0}, numSteps = {200}, stepSize = {-1}, circular = {true} }) -- local bunch_size = 32 local thenet,cnns = ann.mlp.all_all.generate("256 inputs 128 tanh 10 log_softmax"):build() local weights_random = random(52324) local cnn_array = iterator(pairs(cnns)):enumerate():table() table.sort(cnn_array, function(a,b) return a[1]0 and count) or 1 w:scal( 1.0/math.sqrt(count*bunch_size) ) end return tr_loss,weight_grads,tr_matrix end, cnns) loss:accum_loss(tr_loss,tr_matrix) end local tr,_=loss:get_accum_loss() return tr end -- local validate = function(thenet,data,loss) loss:reset() for input,target in trainable.dataset_pair_iterator(data) do thenet:reset() local out = thenet:forward(input) loss:accum_loss(loss:compute_loss(out,target)) end local va,_=loss:get_accum_loss() return va end -- local clock = util.stopwatch() clock:go() print("# Epoch Training Validation") local stopping_criterion = trainable.stopping_criteria.make_max_epochs_wo_imp_relative(2) local train_func = trainable.train_holdout_validation{ min_epochs = 100, max_epochs = 1000, stopping_criterion = stopping_criterion } while train_func:execute(function() local tr_loss = train(thenet,training_data,loss,opt) local va_loss = validate(thenet,validation_data,loss) return thenet,tr_loss,va_loss end) do print(train_func:get_state_string()) local state = train_func:get_state_table() if state.current_epoch == state.best_epoch then train_func:save("jjj.lua", "binary", { optimizer = opt, loss = loss, weights = cnns, shuffle = shuffle }) end end clock:stop() local cpu,wall = clock:read() local num_epochs = train_func:get_state_table().current_epoch printf("# Wall total time: %.3f per epoch: %.3f\n", wall, wall/num_epochs) printf("# CPU total time: %.3f per epoch: %.3f\n", cpu, cpu/num_epochs) april-ann-0.3.1/EXAMPLES/digits.lua000066400000000000000000000057051234204160600166050ustar00rootroot00000000000000digits_image = ImageIO.read(string.get_path(arg[0]).."digits.png") m1 = digits_image:to_grayscale():invert_colors():matrix() -- TRAINING -- -- a simple matrix for the desired output train_input = dataset.matrix(m1, { patternSize = {16,16}, offset = {0,0}, numSteps = {80,10}, stepSize = {16,16}, orderStep = {1,0} }) m2 = matrix(10,{1,0,0,0,0,0,0,0,0,0}) -- a circular dataset which advances with step -1 train_output = dataset.matrix(m2, { patternSize = {10}, offset = {0}, numSteps = {800}, stepSize = {-1}, circular = {true} }) -- VALIDATION -- val_input = dataset.matrix(m1, { patternSize = {16,16}, offset = {1280,0}, numSteps = {20,10}, stepSize = {16,16}, orderStep = {1,0} }) val_output = dataset.matrix(m2, { patternSize = {10}, offset = {0}, numSteps = {200}, stepSize = {-1}, circular = {true} }) bunch_size = 32 thenet = ann.mlp.all_all.generate("256 inputs 128 tanh 10 log_softmax") if util.is_cuda_available() then thenet:set_use_cuda(true) end trainer = trainable.supervised_trainer(thenet, ann.loss.multi_class_cross_entropy(), bunch_size) trainer:build() -- trainer:set_option("learning_rate", 0.01) trainer:set_option("momentum", 0.01) trainer:set_option("weight_decay", 1e-04) trainer:set_option("L1_norm", 1e-05) -- we avoid weight_decay in bias trainer:set_layerwise_option("b.", "weight_decay", 0) trainer:set_layerwise_option("b.", "L1_norm", 0) trainer:randomize_weights{ random = random(52324), use_fanin = true, use_fanout = true, inf = -1, sup = 1, } training_data = { input_dataset = train_input, output_dataset = train_output, shuffle = random(25234), } validation_data = { input_dataset = val_input, output_dataset = val_output, } clock = util.stopwatch() clock:go() print("# Epoch Training Validation") stopping_criterion = trainable.stopping_criteria.make_max_epochs_wo_imp_relative(2) train_func = trainable.train_holdout_validation{ min_epochs = 100, max_epochs = 1000, stopping_criterion = stopping_criterion } while train_func:execute(function() local tr = trainer:train_dataset(training_data) local va = trainer:validate_dataset(validation_data) return trainer,tr,va end) do print(train_func:get_state_string()) end best = train_func:get_state_table().best clock:stop() cpu,wall = clock:read() num_epochs = train_func:get_state_table().current_epoch local val_error,val_variance=best:validate_dataset{ input_dataset = val_input, output_dataset = val_output, loss = ann.loss.zero_one(10) } printf("# Wall total time: %.3f per epoch: %.3f\n", wall, wall/num_epochs) printf("# CPU total time: %.3f per epoch: %.3f\n", cpu, cpu/num_epochs) printf("# Validation error: %f +- %f\n", val_error, val_variance) april-ann-0.3.1/EXAMPLES/digits.png000066400000000000000000000605771234204160600166200ustar00rootroot00000000000000PNG  IHDR@0IaFIDATxڥۖ亪DgUe"f W|N@ vss>ߋ1g@Bm~)ѹ2?':S@&&~|̶OӐR/%ڥOO(KU+`& "r՟zzT_Zo|bjL| X2?ڱZYj_@Up_6CMʇNKwH'HL#$B([6ڈ|so|q[%q;L4{fҊojg;Wri^Y1k0?ro}@`= dV@/ dM&|ˇ{_qStuG[9p˾v[tw6rRv sZ`rxBS ։Q+2nUzQ oH=Od_pXs"R502|=!Ny_| "7 /5Rݲ { x\gטo*;esΩ3%O.8a7-yf,1jan[k~0B,S,*!7@9 iia@>*Jxs] I $N7@QFm9 Ͷ-$xߎQQ4yPVs<^.jP  6s ~B%Eչ P0? )mDp|+Wpi$vY~ 艕[UN@逞,9ic ]xEQQ/٣i?hG))(/Ebd,#Ahmp. Ȧ#K_6X/| f"{"wa>hݠ.H#7p, `c}Eʭ _-!6UZN> \|ͺKСAY U^6BE3:>5c}6V/w& ,<]x!HHr s"ȳ]E>YR 䌢PU ֯gU 8V .A>HaΎPmKt* ) P*sbԟG!1;faomSKtTsEHVx7?~m ׄ'@lSڽ&Ƅq@_>UHaN>,\/,, ~=> ߥDAh4w={z +EJ5-J0w6)3':~ND~0 fwYWbb "TH1 q3ҥ᛾ dXSCJ'䲂\[;I¢nQ!; F&A )RSWt!Kpn'R6yrņn>(bB i($q} ӭ 6&š< :!ۻJ%@JWb:0[Eg Q_e iaX)!'y&c6 5!5~şRfs⟋ O$LK`>o?Ȟ_d?W>K+C|AR 0@P-?DÚo`)\Qf# ~y2J _H0% g9$< 5wz6y< Ookv g 3l8SQH XdmjE uuT,F(0[RyZ2`3KD4CU?g m*L%WO,B^/x-Mۃu4;zG TnX:3:]kkB?4Ds.Ҭ Dr맽Qᰉcg_8wHw@яaE0][\㗀kYr6rCx7-}XBz%DT߳zbRb:#>f0%qN=֕#`ј9I "' U%$R[OHs a)/ډ}F%%oۚjZ}=_LAb TD H_ml /۝b{K|W$6l2< J[)ԴL@k:‰q/PQ!w@JfQDbSH;y(ʀj(ǂ8p4 ?6e oa=^֜z `Od bɤ~!:=W 3\ 9B'U~_}$yQɉ.߯ Q]!1ν cFusI"SײO1G)Kgˀԁ +rwȢ&TniC'~p+ J5Jj=1mi,gp?1MwF~e#_x}4xFM(go9VMo,K0Y@|t E=\cCl7|Cu_2|.Dg@.[h|L]@;pXc)ĔI%§ vR_WFbA|?z7+w@[vq6m%OR {@~85(g Kڡ2T[xY_TDAX^~smX '3;i]%h/mLXhxe]4JLʐ/`Z.XpW8'eYpVHzR3 XJɀė,9ꌏ0"1 ?Ch_є!D5x8w |TcC 8 ,)26S,o;r}lR+lm-eTdugTW'(p#4iZ*=!f $:M w|.'\-n1`n5}C]MTN@ D@c2 ȗ_GbaѵC郝yrcP_X7S<9V:(K #,m0nn<?O<sF~O0S*O:~KdL0yzGp^NT"A|c.I*VM-t|U |i?(+iXE?_ /KިsKÄ,*f.g^E޾猴'7zuXcw㷖Rh1>LOj%ʇN 0r.` ZV>8MZEO|!u `eW!-OfNy/}ttw\V'>>}TL` CmŒE<HtI&(P1 pAi4lk d\H*pQR'@hhQfaDW*8 Btz\6,A,I?^-|jЮs$_W&eF/`f `!uv^[#MŤ},J.p(dR";[.u'5r7 UeȀ$8-}_Sb)V} )#? 2ޑbN$}̋U#=E`.DnA AfnI_KFaܰ.cn$Z8=K3ZMx̐|)31Jo32<|5WAIB;$(Uyox RV2pȼWyIr~%hy "1uC?ƀ]bEG80&sK;4LŊvkǤaXoL#`/$9 /?sTN2̈MiV1ZI)'.U)aQOXIIC| H.[{\&*$ _ ^~zc[̉$B7(~5 Ѓu –`+yG6lt҃!Tu?L1Z˔5|aW|E^ `;ox&/5Q4yl58=8jGP?z4 dpt88=  HB\VhҶ}dgy81Xd# (o9W^ysRᯉ X 84a7>]lxSr@xi2-zV'b&gZ"OZg 7R@78NoPˈ /C&(qVB| ?;y=4ߧL: Z6]\D"GI BiͰ^|sSu5v@NR1P`OPpn#nlKPY$vLb+#Q0Hй{,Gt&˯B/|_AgVZxܚPj r{l՚<)\Tt]P0A*aA *77Y"4OH|U?Usps,B SƟ$=;žز=fŵf5vmn6)@Aj2 >R!vX+m@KwƵP- ^%8n 7 M5H"Z `e@Cs6.*㡁 XVI[I$*Ǩr_,F%@ x;TTf3T/9YATl `IFLwMp /D'$" ]{R'Q&,KohSH#3 ’׀5?6-Hd.y3DZti>@HSH T7t@N ?hA$_001Q8| .rlk,M^[#P6j?x6\8>p(fo|ijrb| yK< `mzKk m {k[~QTќ\haڲ>{Wr0dwIDpj?(R/\T# S +EkЬKVzz|(,^x%@9<ULx Ŋ)pAj 5(1F.0a S!$!{%b|=KC0OqWzF+!-^"֞wDi5%3(cm1ӗe<bA<`h/,Bvs PH|X8޽r1 J2^ QB_S"%c>E@#Ňq<@PA1ky@t@fȯ% :g^/,ۼy?nX+!sBSTJY_BFn(3R>X#Xz,lgNkk}Kt򩈷"Ѕ=X~evs|v4颧F\؝+V }e@;V=&){kf2=4jۋZOViOxBo=iȋksF nb#{,;1"3 Rý>#)yGkxlS< *g@ވ;YT32<IlQFI `57R!б t!!Ҟv0q ؀@l{_$|>e%@x+P'ԏ%G|Y4W[qz %nQAMW F1 hy Ahj/kcovہR66Ĕ%#5@AZ;̒)>"%9d^q;c@UW =G$}4U!d>t3}GTV`4_? q@`ӿ!®) c 0eIR!V[μdhZC0#ҶS4N?@fQ{wcpa'/TUт7Q$$@3 25`!quNLʊ%>|,hfkfp\zLr M@3NA9f٬r+%9 xvjB@݈;r>j)؍ _4QSK+6{Qg*29y~=byxgg-G\{kuR9Ӹט7dERPc F V;[ hsxLs.3.tz3$X<}̯%MPZؖ`go^5.6ԐD@~ًf-Y#Ba粚Jްk} ~x;9>˓׳ `Y;hoAd@w"< I$:ڽ}SV@).*ӣ&#!"Wi?fk\oUV@5nPj4[Ūpp^$xYxFTC=@u,~d@6"ER~Zx_QRVlz;a5&b2 rsEw\$'ۅK%P^&Q1^pF@c  *Rq}׳ K'2h>bj2ßyX1\ZJ0+%a8%ܼL{Lbʪ|sߣ+۶iǁAj;M$Ԉ>0FK!eʃV644aq'k|l<(& L@ :nܔuL.GVKp$Ue;Xg O|V @"j+7 .g@e:`@pzwx:a^d eֵI^s>O"P 9uPzK&׉m+pO-{؝_R=!x;YgזՁIvQS a'S``}" /2[#_JCUV c5UM+]ۭ($LuYÌyPMzP dfc4zJB ߵeʍ9)~r}k#BZ ! y[5kdW}2a[̈́~5OZ7ٺKo0嘽e?"ab]Z]GA,Xh:,.=m ]zN\! hls0`$;)#/`1:VV9-:'b>{*Q09,!u1TffF1T^Y??UlZp&aadpP=XvU_5Ett#߶jTX [Ѯ`ʉq_ MK8ſK.'gP hn.oLGPP2@]sQ73do:"]`yrTGYE2kt%|z! BLyPA `cm|*z`~2| CSI@p_pj`] (e\F8$ \c LTDbJYM3*Za}Ӵy-^<(>/*[%Hks9v2(pLA- NiiOXd vg(@!, fuallr ^ is*/`TKE1JTF{ڼ1Wr's;%B]=w-NΟK4D!Bjp_7mtQڹy(3@VG#m̧6& }|goT|'Ư-4u}0T'AswO`E@jNx&cB8AlK[Ki|4΅X= aYZD#kQټ3'F'!(rX? fWJIBp\1_sRèzJ3V̫\23^P ~/3j>: U>P f.2ԔOu pSBZ|;B8m \&F>xw_MT{ I=kAnFF/|I-@FDc !^ mc۰FohIEr_NqWB; P'fsj*EKz 8L st@wYe8;!bWکP5,}>X4y7>885 o4@+*e'EXAI+oTt{c  (0nMAo'}3H6p$hmD߬YD;\لΙv?X2t IP6A|-Ǜd zjxc>N&;M"hH-,>v4@XoKL@0;@Ypp~7o#x'> !n;94@(LYc`HUA8CN/sű^t$ -5JcZs&<>E|"OZlr$@= pI:N~x7s'wҴ(nMN Ӹs|ÏtV2[~p&NqBۍ>AQr7'xn3QdL[(q H6nLOY,JSVۭz2S߷7@_nj`.z$hwx+`Ⳍ&kg!XX3q4A]- HaZ"``OL$3 G+Xጙ*!GFDJ>_1_zwbL(q^ۙKp.ozgTqޙKYn.-׷\Jp븧'|"RvBw>^c|ְڤ\ab%ʀ/E47 4xj3|Ow8y&E[/jP@zO\sO@8/A<`~q=m&8@o~zW+>2l8}m棣eD@c9l0 V}d {TX>sAmʀsc(|,Kf8~٪DA,,r?T8C7!m䃻OTTRi$i+/!i%XdEL'@Ʒy?> |@~\zXׯ D|Ů@ /8gK M|7rΕ00"t]0#tȡ~}6bGu!i2n \Q* >LЦ(3 wAsm=O G51Mϊg+p: O0Ь/hAV7axj 6>(_zHKH8go??i`#` _j_ o*@F|zxP3R~q!d!i_dЁE0Z ݑ1D.v22gN/CiIm|m" 8, UQ(8=|q@X2z7lh|i`7H+ /Ou'PF5Ի/@<-!5,}ha'@gӶ<7 ȊY .OÀnWa@eYt_l~FyoK|9AvЈPq`~#B4)`.Of|x {!+ 5~FdN3M%OI y>4E@9nk?E/!zfD?_ \W2}KѤEXRu~i=\O {Kz^WƮ |oMMIo\5L~7_:Ti6;de_) MPUB0YUm d%V6K;I&6@MHZ* -|je@u*D `l>F(;'o `ns/LoN%J-`Ǿ< HH-y?aMcPڂ&UX%?_~-df^xE(6L 82>ǘ h"l"Eע9ֿ5Ao|K?xmm>ݠCl^khbl&,6 ]0M_J0B׍@R+EЯΧ _ik(JxOC4&Ufgj&$)|~FG A;5} iY\I x0`_mNW<*qks%끟l/Yg"-@o&J &@1w9]#G`W:% 65ɭ٪ߞW\a[4"g-ވ 'xGF<K{cl >w𳭅Y6=սEdϺ?"K}p^>kn; ?q'pl9Im3mLĜ}^%YG0`K Xb]EIF=Cl‹5r)o rcj*v~ݜ-Nj} >ey5ǼCyֳ ƜI] PԈ> ax/W'og &$-θ% 4kB^'> +/6A!4'm@- +eO_L|wXŸ/SF ZJmn{jpR$@ ݙK+" pHv;xR͑|W@.^1?|b))1bG?]%_LH x^R2 8-'Jޏ֪8|Rwawiˍpd02gI`$5iϏ1hBDl+9Ԣ=!M~09(YZQ_dI-,cP[p0اPH9" !Ks9—^b6> U?/W; \D>~W#c7@ZLb&#MD&w'qc.5s[#}1(sO0zϸ񵽳ɜֲ nV p ! PagHn4Br ##5^W(e`[ xT0l%,= ش` `2I/@n @;#^ P<%4 1w&8/ggCиʦ'mfՅ Fإ fS`E!wb9EtXwk7+xg\v⥽p|!Z=iHS.JKwKuJYEOE@QHnƃ1@ TС,+&|LhFqTh`юD A k!>}[ k0&~~V@0𥪚No$Gc5.# g)b~XL5=_%g B<::]-o8<8U 77Q֣Psn1YtiώKrl/BS|Фw^3 ئpn;zG0.LwуBIU~x* g[A4KHP2a1;P @fqR4 rːT@.IJP2[ ۚ |dO7!aP# |"@$Q*ǀ|, 1ih&_"4LHo~;8YZ -H%%ʒlASīp OB$]}ѓTPzX A 0|d?7f97mE"y^G= Px"Դ1 mK>"}pGe _/b4bSIw|!o|ExO907}1o x J ,990 c>1a,%٩"9ˇ*Sl:u ! .+L^֪ez/'yȨB^sx߾G L M| ߒSj;=7¥bͼd 2o<ZO3+&@|?+i47 |D@>:0fz[MSJ|AL);\[FG5͠;!s1XqYPn[׮ՓQ.Wy9DLK`RRQLƚzfp>=H- 7c?ۿBի-1{kk~/۪̇G.#C Co(F'. 1; y_fX8N˓'.  1JU+mZ@RT7|k |dw@>?8)7vI<#ﲣ0r Yl?7SEcz`ǯP;M(-|LcȪqzQhtL)& w;`PzFѨvfѴ} Z|yG?8-ן"8#FgT+‡oQt]0KHz) Э6;P NBE; 6E4ߠL?M6VW< DR(_nʽys 5s X$i,iܲ+Zz8vpc~:CAkNOf@WY ]}! je9GzsY@ffo="ksP'`O;e)%*9pX9R$Bzm^2R@sxn%"l @.QKx 92>O'd|C0fV|3Os}n(>&2&QZmHE5AT:CKC  CyA'~1T!}D~gӇ+ |K|Խ|c4˖b27^0JPFc=6wRJ ~>J^ 1D]%)`ֆUgFK@p!zM |^PG{aߖrP5#i77bڽ9i>,ѕ$:bLzeY2/_ft,V>>71koc{G>1-m+D1M#62ǤM0TL1Oņ;i <^kCB|ohԦMOuM֗Ȭҍo|ϧI@R7y\Yg2.] bH_(xpnE -Sy[E8a[2c"2i>n.mTXbG|rckO:Nk7=Bt~#pH :Y|q$?<= LF࣒LB͟KlC][ٞw?0{+/F.9/S< u,"Ƹ6 N PF;{ ]Q c .7E}>3\g@pBMm|䚹9 HY N PA$|_ RW@`֏5RQ}#$)а&ڽWr ҵ4PhqdF7|~/m2/IyEBx@2p^C*z"Y"OLdM|kK!=`@?J@{otTÜ`H2`)v1\T@kϣ A ŷŋtu"H6{$zd]=338.;dovKEF1*ʷv[݂4!n=9"HB_ @ X*3vi%m[~%5ԏ(<6E.^2Pn/lKu~a*8{5$m 6։E?DBϧQz aܤnVv!}Q)#`U,K.f b:bň pCx9 )Il^B/:3bq9XxV ŀfls_tg$u#8# 8` -np$>| zmczN .V(*vg<(=yT1ah-Apv`]K?a /r)b̙<*#bڲ uУf2wzπ?N ̈́f gu[=!0]4ǀkV-lJ+@R|:`0TDV Nm,uO}[MH"@7q_%*twWC2'KU, Ɋ O*Ɍeե$C `"H39ep.@qw$*L uq|FT Tw(Ž!"}h-lXN^.a"{G kGGy?@:`;H1QBrvY\o / `J |{(^ݟ O7:WF}|H KbVZ\4O)Mp؃e4CPoѴnFU.2[_t%ls3RY7}| `v=S])I3 1IX xmBq0BPDl.p\7x ޑpa@0U8 v/R\hP.AG Ao'OV  ˌH<|$@43w|,05 n@T_&@I17ϡb"##*0D=Cٌ R<.V.7ʋH[k)p@:ti EA"c[hX2.=_yƍq 5[bNgO.i;I8껝` I O H)@{" _o#/H^͛ˈ,5`/'GZ &5ְ60\q*:$|;-H 0; "y3tAWFH"I-VUy`&>?a+,n%%\z[^A@v 7OBb!?!tYy~Ld3?#H1l>jju#_&??(N bK`OX8F*USGNE*[[ĶPZ6T@ F)&w9<'Y "1~%kBՊF꛽XBcPoo붘O:y\M񅈞s6_͉{ӵ-OfD7倸%Ѐx<UgW <] 3˾i,9ΧM`PynD3g2)038iܗ]:C\4 8X xhZ?=}@'puBx<]p5}y!5-P, HVMѯFySLv_#`z#t|ϤO*ɩ| oL;Xp~g}#ȢA3qs$uPU_>)i~ÀR/Y.)En;(+ht@Cb r,ѭf^4X}4Ep!AɧQEXpJ&#AEAppǙ<[Ģ~Vh Ss@kp'IWhH-. ț"qL!m0ld ^c4m.hlj˯D{na:D官/bzIXݍ&)9&al cO9TK)Gʨ1hpD`>I\NN_)5>z_D &h[͐7ɯ/&11+ K X:34w33eI"O|kKM|WQx`{-&O)9>Jq>;8PR^ua\"Xc`_BrXūw`F^lsmZ*yOA'vR' =gx*󍣚[$8q9w?kȗMn Q~;QX!j[tx *2gp]զer;U(Rl3w1@XPETWhQ@I;Vnx,Eߪr rf /}|Ёvku?+</- v@K10h޵[ g]zL݌Cp{OK qӏ 0spxL | ~ڋ5B&g\`)G@=Y *9π)c&ėI~AL|9XKS|ro&qM'_ԢXM韼%E#!$գ0YwAYV?Zf!U@~@r/l=Ʒy )аA< I ȅ[ 5CG;˳:(Az\fL3PPc_4e{Hd'h)75yބv"wDN xvR?ΙRh"s>ްd/i^w9R-nn58/=džjI_HE͟_zÊ߭xodb{n?d|IENDB`april-ann-0.3.1/EXAMPLES/optimizer-from-scartch.lua000066400000000000000000000017451234204160600217320ustar00rootroot00000000000000local thenet = ann.mlp.all_all.generate("256 inputs 128 tanh 10 log_softmax") local thenet,cnns = thenet:build() local loss = ann.loss.multi_class_cross_entropy() local opt = ann.optimizer.sgd() opt:set_option("learning_rate", 0.01) local rnd = random(1234) for _,w in pairs(cnns) do w:uniformf(-0.1,0.1,rnd) end local weight_grads = matrix.dict() -- upvalue for eval function for i=1,1000 do local input = matrix.col_major(1,256):uniformf(0,1,rnd) local target = matrix.col_major(1,10):zeros():set(1, rnd:randInt(1,10), 1.0) opt:execute(function(it) thenet:reset(it) local out = thenet:forward(input) local tr_loss,tr_matrix = loss:compute_loss(out,target) thenet:backprop(loss:gradient(out,target)) weight_grads:zeros() weight_grads = thenet:compute_gradients(weight_grads) return tr_loss,weight_grads end, cnns) end april-ann-0.3.1/EXAMPLES/xor.lua000066400000000000000000000015431234204160600161260ustar00rootroot00000000000000bunch_size=4 thenet = ann.mlp.all_all.generate("2 inputs 2 logistic 1 logistic") trainer = trainable.supervised_trainer(thenet, ann.loss.mse(1), bunch_size) trainer:build() trainer:randomize_weights{ random = random(1234), inf = -0.1, sup = 0.1 } trainer:set_option("learning_rate", 8.0) trainer:set_option("momentum", 0.5) trainer:set_option("weight_decay", 1e-05) trainer:set_layerwise_option("b.*", "weight_decay", 0.0) m_xor = matrix.fromString[[ 4 3 ascii 0 0 0 0 1 1 1 0 1 1 1 0 ]] ds_input = dataset.matrix(m_xor, {patternSize={1,2}}) ds_output = dataset.matrix(m_xor, {offset={0,2}, patternSize={1,1}}) rnd=random(523) for i=1,10000 do local error = trainer:train_dataset{ input_dataset = ds_input, output_dataset = ds_output, shuffle = rnd } print(i, error) end april-ann-0.3.1/LICENSE.txt000066400000000000000000001106511234204160600152210ustar00rootroot00000000000000April-ANN, Copyright (c) 2012-2014, ESET, Universidad CEU-Cardenal Herrera, (F. Zamora) April-ANN, Copyright (c) 2012-2014, DSIC, Universitat Politècncia de València (S. España, J. Pastor, A. Palacios) April, Copyright (c) 2006-2012, DSIC, Universitat Politècnica de València (S. España, J. Gorbe, F. Zamora) GNU GENERAL PUBLIC LICENSE Version 3, 29 June 2007 Copyright (C) 2007 Free Software Foundation, Inc. Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The GNU General Public License is a free, copyleft license for software and other kinds of works. The licenses for most software and other practical works are designed to take away your freedom to share and change the works. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change all versions of a program--to make sure it remains free software for all its users. We, the Free Software Foundation, use the GNU General Public License for most of our software; it applies also to any other work released this way by its authors. You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for them if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs, and that you know you can do these things. To protect your rights, we need to prevent others from denying you these rights or asking you to surrender the rights. Therefore, you have certain responsibilities if you distribute copies of the software, or if you modify it: responsibilities to respect the freedom of others. For example, if you distribute copies of such a program, whether gratis or for a fee, you must pass on to the recipients the same freedoms that you received. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. Developers that use the GNU GPL protect your rights with two steps: (1) assert copyright on the software, and (2) offer you this License giving you legal permission to copy, distribute and/or modify it. For the developers' and authors' protection, the GPL clearly explains that there is no warranty for this free software. For both users' and authors' sake, the GPL requires that modified versions be marked as changed, so that their problems will not be attributed erroneously to authors of previous versions. Some devices are designed to deny users access to install or run modified versions of the software inside them, although the manufacturer can do so. This is fundamentally incompatible with the aim of protecting users' freedom to change the software. The systematic pattern of such abuse occurs in the area of products for individuals to use, which is precisely where it is most unacceptable. Therefore, we have designed this version of the GPL to prohibit the practice for those products. If such problems arise substantially in other domains, we stand ready to extend this provision to those domains in future versions of the GPL, as needed to protect the freedom of users. Finally, every program is threatened constantly by software patents. States should not allow patents to restrict development and use of software on general-purpose computers, but in those that do, we wish to avoid the special danger that patents applied to a free program could make it effectively proprietary. To prevent this, the GPL assures that patents cannot be used to render the program non-free. The precise terms and conditions for copying, distribution and modification follow. TERMS AND CONDITIONS 0. Definitions. "This License" refers to version 3 of the GNU General Public License. "Copyright" also means copyright-like laws that apply to other kinds of works, such as semiconductor masks. "The Program" refers to any copyrightable work licensed under this License. Each licensee is addressed as "you". "Licensees" and "recipients" may be individuals or organizations. To "modify" a work means to copy from or adapt all or part of the work in a fashion requiring copyright permission, other than the making of an exact copy. The resulting work is called a "modified version" of the earlier work or a work "based on" the earlier work. A "covered work" means either the unmodified Program or a work based on the Program. To "propagate" a work means to do anything with it that, without permission, would make you directly or secondarily liable for infringement under applicable copyright law, except executing it on a computer or modifying a private copy. Propagation includes copying, distribution (with or without modification), making available to the public, and in some countries other activities as well. To "convey" a work means any kind of propagation that enables other parties to make or receive copies. Mere interaction with a user through a computer network, with no transfer of a copy, is not conveying. An interactive user interface displays "Appropriate Legal Notices" to the extent that it includes a convenient and prominently visible feature that (1) displays an appropriate copyright notice, and (2) tells the user that there is no warranty for the work (except to the extent that warranties are provided), that licensees may convey the work under this License, and how to view a copy of this License. If the interface presents a list of user commands or options, such as a menu, a prominent item in the list meets this criterion. 1. Source Code. The "source code" for a work means the preferred form of the work for making modifications to it. "Object code" means any non-source form of a work. A "Standard Interface" means an interface that either is an official standard defined by a recognized standards body, or, in the case of interfaces specified for a particular programming language, one that is widely used among developers working in that language. The "System Libraries" of an executable work include anything, other than the work as a whole, that (a) is included in the normal form of packaging a Major Component, but which is not part of that Major Component, and (b) serves only to enable use of the work with that Major Component, or to implement a Standard Interface for which an implementation is available to the public in source code form. A "Major Component", in this context, means a major essential component (kernel, window system, and so on) of the specific operating system (if any) on which the executable work runs, or a compiler used to produce the work, or an object code interpreter used to run it. The "Corresponding Source" for a work in object code form means all the source code needed to generate, install, and (for an executable work) run the object code and to modify the work, including scripts to control those activities. However, it does not include the work's System Libraries, or general-purpose tools or generally available free programs which are used unmodified in performing those activities but which are not part of the work. For example, Corresponding Source includes interface definition files associated with source files for the work, and the source code for shared libraries and dynamically linked subprograms that the work is specifically designed to require, such as by intimate data communication or control flow between those subprograms and other parts of the work. The Corresponding Source need not include anything that users can regenerate automatically from other parts of the Corresponding Source. The Corresponding Source for a work in source code form is that same work. 2. Basic Permissions. All rights granted under this License are granted for the term of copyright on the Program, and are irrevocable provided the stated conditions are met. This License explicitly affirms your unlimited permission to run the unmodified Program. The output from running a covered work is covered by this License only if the output, given its content, constitutes a covered work. This License acknowledges your rights of fair use or other equivalent, as provided by copyright law. You may make, run and propagate covered works that you do not convey, without conditions so long as your license otherwise remains in force. You may convey covered works to others for the sole purpose of having them make modifications exclusively for you, or provide you with facilities for running those works, provided that you comply with the terms of this License in conveying all material for which you do not control copyright. Those thus making or running the covered works for you must do so exclusively on your behalf, under your direction and control, on terms that prohibit them from making any copies of your copyrighted material outside their relationship with you. Conveying under any other circumstances is permitted solely under the conditions stated below. Sublicensing is not allowed; section 10 makes it unnecessary. 3. Protecting Users' Legal Rights From Anti-Circumvention Law. No covered work shall be deemed part of an effective technological measure under any applicable law fulfilling obligations under article 11 of the WIPO copyright treaty adopted on 20 December 1996, or similar laws prohibiting or restricting circumvention of such measures. When you convey a covered work, you waive any legal power to forbid circumvention of technological measures to the extent such circumvention is effected by exercising rights under this License with respect to the covered work, and you disclaim any intention to limit operation or modification of the work as a means of enforcing, against the work's users, your or third parties' legal rights to forbid circumvention of technological measures. 4. Conveying Verbatim Copies. You may convey verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice; keep intact all notices stating that this License and any non-permissive terms added in accord with section 7 apply to the code; keep intact all notices of the absence of any warranty; and give all recipients a copy of this License along with the Program. You may charge any price or no price for each copy that you convey, and you may offer support or warranty protection for a fee. 5. Conveying Modified Source Versions. You may convey a work based on the Program, or the modifications to produce it from the Program, in the form of source code under the terms of section 4, provided that you also meet all of these conditions: a) The work must carry prominent notices stating that you modified it, and giving a relevant date. b) The work must carry prominent notices stating that it is released under this License and any conditions added under section 7. This requirement modifies the requirement in section 4 to "keep intact all notices". c) You must license the entire work, as a whole, under this License to anyone who comes into possession of a copy. This License will therefore apply, along with any applicable section 7 additional terms, to the whole of the work, and all its parts, regardless of how they are packaged. This License gives no permission to license the work in any other way, but it does not invalidate such permission if you have separately received it. d) If the work has interactive user interfaces, each must display Appropriate Legal Notices; however, if the Program has interactive interfaces that do not display Appropriate Legal Notices, your work need not make them do so. A compilation of a covered work with other separate and independent works, which are not by their nature extensions of the covered work, and which are not combined with it such as to form a larger program, in or on a volume of a storage or distribution medium, is called an "aggregate" if the compilation and its resulting copyright are not used to limit the access or legal rights of the compilation's users beyond what the individual works permit. Inclusion of a covered work in an aggregate does not cause this License to apply to the other parts of the aggregate. 6. Conveying Non-Source Forms. You may convey a covered work in object code form under the terms of sections 4 and 5, provided that you also convey the machine-readable Corresponding Source under the terms of this License, in one of these ways: a) Convey the object code in, or embodied in, a physical product (including a physical distribution medium), accompanied by the Corresponding Source fixed on a durable physical medium customarily used for software interchange. b) Convey the object code in, or embodied in, a physical product (including a physical distribution medium), accompanied by a written offer, valid for at least three years and valid for as long as you offer spare parts or customer support for that product model, to give anyone who possesses the object code either (1) a copy of the Corresponding Source for all the software in the product that is covered by this License, on a durable physical medium customarily used for software interchange, for a price no more than your reasonable cost of physically performing this conveying of source, or (2) access to copy the Corresponding Source from a network server at no charge. c) Convey individual copies of the object code with a copy of the written offer to provide the Corresponding Source. This alternative is allowed only occasionally and noncommercially, and only if you received the object code with such an offer, in accord with subsection 6b. d) Convey the object code by offering access from a designated place (gratis or for a charge), and offer equivalent access to the Corresponding Source in the same way through the same place at no further charge. You need not require recipients to copy the Corresponding Source along with the object code. If the place to copy the object code is a network server, the Corresponding Source may be on a different server (operated by you or a third party) that supports equivalent copying facilities, provided you maintain clear directions next to the object code saying where to find the Corresponding Source. Regardless of what server hosts the Corresponding Source, you remain obligated to ensure that it is available for as long as needed to satisfy these requirements. e) Convey the object code using peer-to-peer transmission, provided you inform other peers where the object code and Corresponding Source of the work are being offered to the general public at no charge under subsection 6d. A separable portion of the object code, whose source code is excluded from the Corresponding Source as a System Library, need not be included in conveying the object code work. A "User Product" is either (1) a "consumer product", which means any tangible personal property which is normally used for personal, family, or household purposes, or (2) anything designed or sold for incorporation into a dwelling. In determining whether a product is a consumer product, doubtful cases shall be resolved in favor of coverage. For a particular product received by a particular user, "normally used" refers to a typical or common use of that class of product, regardless of the status of the particular user or of the way in which the particular user actually uses, or expects or is expected to use, the product. A product is a consumer product regardless of whether the product has substantial commercial, industrial or non-consumer uses, unless such uses represent the only significant mode of use of the product. "Installation Information" for a User Product means any methods, procedures, authorization keys, or other information required to install and execute modified versions of a covered work in that User Product from a modified version of its Corresponding Source. The information must suffice to ensure that the continued functioning of the modified object code is in no case prevented or interfered with solely because modification has been made. If you convey an object code work under this section in, or with, or specifically for use in, a User Product, and the conveying occurs as part of a transaction in which the right of possession and use of the User Product is transferred to the recipient in perpetuity or for a fixed term (regardless of how the transaction is characterized), the Corresponding Source conveyed under this section must be accompanied by the Installation Information. But this requirement does not apply if neither you nor any third party retains the ability to install modified object code on the User Product (for example, the work has been installed in ROM). The requirement to provide Installation Information does not include a requirement to continue to provide support service, warranty, or updates for a work that has been modified or installed by the recipient, or for the User Product in which it has been modified or installed. Access to a network may be denied when the modification itself materially and adversely affects the operation of the network or violates the rules and protocols for communication across the network. Corresponding Source conveyed, and Installation Information provided, in accord with this section must be in a format that is publicly documented (and with an implementation available to the public in source code form), and must require no special password or key for unpacking, reading or copying. 7. Additional Terms. "Additional permissions" are terms that supplement the terms of this License by making exceptions from one or more of its conditions. Additional permissions that are applicable to the entire Program shall be treated as though they were included in this License, to the extent that they are valid under applicable law. If additional permissions apply only to part of the Program, that part may be used separately under those permissions, but the entire Program remains governed by this License without regard to the additional permissions. When you convey a copy of a covered work, you may at your option remove any additional permissions from that copy, or from any part of it. (Additional permissions may be written to require their own removal in certain cases when you modify the work.) You may place additional permissions on material, added by you to a covered work, for which you have or can give appropriate copyright permission. Notwithstanding any other provision of this License, for material you add to a covered work, you may (if authorized by the copyright holders of that material) supplement the terms of this License with terms: a) Disclaiming warranty or limiting liability differently from the terms of sections 15 and 16 of this License; or b) Requiring preservation of specified reasonable legal notices or author attributions in that material or in the Appropriate Legal Notices displayed by works containing it; or c) Prohibiting misrepresentation of the origin of that material, or requiring that modified versions of such material be marked in reasonable ways as different from the original version; or d) Limiting the use for publicity purposes of names of licensors or authors of the material; or e) Declining to grant rights under trademark law for use of some trade names, trademarks, or service marks; or f) Requiring indemnification of licensors and authors of that material by anyone who conveys the material (or modified versions of it) with contractual assumptions of liability to the recipient, for any liability that these contractual assumptions directly impose on those licensors and authors. All other non-permissive additional terms are considered "further restrictions" within the meaning of section 10. If the Program as you received it, or any part of it, contains a notice stating that it is governed by this License along with a term that is a further restriction, you may remove that term. If a license document contains a further restriction but permits relicensing or conveying under this License, you may add to a covered work material governed by the terms of that license document, provided that the further restriction does not survive such relicensing or conveying. If you add terms to a covered work in accord with this section, you must place, in the relevant source files, a statement of the additional terms that apply to those files, or a notice indicating where to find the applicable terms. Additional terms, permissive or non-permissive, may be stated in the form of a separately written license, or stated as exceptions; the above requirements apply either way. 8. Termination. You may not propagate or modify a covered work except as expressly provided under this License. Any attempt otherwise to propagate or modify it is void, and will automatically terminate your rights under this License (including any patent licenses granted under the third paragraph of section 11). However, if you cease all violation of this License, then your license from a particular copyright holder is reinstated (a) provisionally, unless and until the copyright holder explicitly and finally terminates your license, and (b) permanently, if the copyright holder fails to notify you of the violation by some reasonable means prior to 60 days after the cessation. Moreover, your license from a particular copyright holder is reinstated permanently if the copyright holder notifies you of the violation by some reasonable means, this is the first time you have received notice of violation of this License (for any work) from that copyright holder, and you cure the violation prior to 30 days after your receipt of the notice. Termination of your rights under this section does not terminate the licenses of parties who have received copies or rights from you under this License. If your rights have been terminated and not permanently reinstated, you do not qualify to receive new licenses for the same material under section 10. 9. Acceptance Not Required for Having Copies. You are not required to accept this License in order to receive or run a copy of the Program. Ancillary propagation of a covered work occurring solely as a consequence of using peer-to-peer transmission to receive a copy likewise does not require acceptance. However, nothing other than this License grants you permission to propagate or modify any covered work. These actions infringe copyright if you do not accept this License. Therefore, by modifying or propagating a covered work, you indicate your acceptance of this License to do so. 10. Automatic Licensing of Downstream Recipients. Each time you convey a covered work, the recipient automatically receives a license from the original licensors, to run, modify and propagate that work, subject to this License. You are not responsible for enforcing compliance by third parties with this License. An "entity transaction" is a transaction transferring control of an organization, or substantially all assets of one, or subdividing an organization, or merging organizations. If propagation of a covered work results from an entity transaction, each party to that transaction who receives a copy of the work also receives whatever licenses to the work the party's predecessor in interest had or could give under the previous paragraph, plus a right to possession of the Corresponding Source of the work from the predecessor in interest, if the predecessor has it or can get it with reasonable efforts. You may not impose any further restrictions on the exercise of the rights granted or affirmed under this License. For example, you may not impose a license fee, royalty, or other charge for exercise of rights granted under this License, and you may not initiate litigation (including a cross-claim or counterclaim in a lawsuit) alleging that any patent claim is infringed by making, using, selling, offering for sale, or importing the Program or any portion of it. 11. Patents. A "contributor" is a copyright holder who authorizes use under this License of the Program or a work on which the Program is based. The work thus licensed is called the contributor's "contributor version". A contributor's "essential patent claims" are all patent claims owned or controlled by the contributor, whether already acquired or hereafter acquired, that would be infringed by some manner, permitted by this License, of making, using, or selling its contributor version, but do not include claims that would be infringed only as a consequence of further modification of the contributor version. For purposes of this definition, "control" includes the right to grant patent sublicenses in a manner consistent with the requirements of this License. Each contributor grants you a non-exclusive, worldwide, royalty-free patent license under the contributor's essential patent claims, to make, use, sell, offer for sale, import and otherwise run, modify and propagate the contents of its contributor version. In the following three paragraphs, a "patent license" is any express agreement or commitment, however denominated, not to enforce a patent (such as an express permission to practice a patent or covenant not to sue for patent infringement). To "grant" such a patent license to a party means to make such an agreement or commitment not to enforce a patent against the party. If you convey a covered work, knowingly relying on a patent license, and the Corresponding Source of the work is not available for anyone to copy, free of charge and under the terms of this License, through a publicly available network server or other readily accessible means, then you must either (1) cause the Corresponding Source to be so available, or (2) arrange to deprive yourself of the benefit of the patent license for this particular work, or (3) arrange, in a manner consistent with the requirements of this License, to extend the patent license to downstream recipients. "Knowingly relying" means you have actual knowledge that, but for the patent license, your conveying the covered work in a country, or your recipient's use of the covered work in a country, would infringe one or more identifiable patents in that country that you have reason to believe are valid. If, pursuant to or in connection with a single transaction or arrangement, you convey, or propagate by procuring conveyance of, a covered work, and grant a patent license to some of the parties receiving the covered work authorizing them to use, propagate, modify or convey a specific copy of the covered work, then the patent license you grant is automatically extended to all recipients of the covered work and works based on it. A patent license is "discriminatory" if it does not include within the scope of its coverage, prohibits the exercise of, or is conditioned on the non-exercise of one or more of the rights that are specifically granted under this License. You may not convey a covered work if you are a party to an arrangement with a third party that is in the business of distributing software, under which you make payment to the third party based on the extent of your activity of conveying the work, and under which the third party grants, to any of the parties who would receive the covered work from you, a discriminatory patent license (a) in connection with copies of the covered work conveyed by you (or copies made from those copies), or (b) primarily for and in connection with specific products or compilations that contain the covered work, unless you entered into that arrangement, or that patent license was granted, prior to 28 March 2007. Nothing in this License shall be construed as excluding or limiting any implied license or other defenses to infringement that may otherwise be available to you under applicable patent law. 12. No Surrender of Others' Freedom. If conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot convey a covered work so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not convey it at all. For example, if you agree to terms that obligate you to collect a royalty for further conveying from those to whom you convey the Program, the only way you could satisfy both those terms and this License would be to refrain entirely from conveying the Program. 13. Use with the GNU Affero General Public License. Notwithstanding any other provision of this License, you have permission to link or combine any covered work with a work licensed under version 3 of the GNU Affero General Public License into a single combined work, and to convey the resulting work. The terms of this License will continue to apply to the part which is the covered work, but the special requirements of the GNU Affero General Public License, section 13, concerning interaction through a network will apply to the combination as such. 14. Revised Versions of this License. The Free Software Foundation may publish revised and/or new versions of the GNU General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies that a certain numbered version of the GNU General Public License "or any later version" applies to it, you have the option of following the terms and conditions either of that numbered version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of the GNU General Public License, you may choose any version ever published by the Free Software Foundation. If the Program specifies that a proxy can decide which future versions of the GNU General Public License can be used, that proxy's public statement of acceptance of a version permanently authorizes you to choose that version for the Program. Later license versions may give you additional or different permissions. However, no additional obligations are imposed on any author or copyright holder as a result of your choosing to follow a later version. 15. Disclaimer of Warranty. THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT 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 THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 16. Limitation of Liability. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. 17. Interpretation of Sections 15 and 16. If the disclaimer of warranty and limitation of liability provided above cannot be given local legal effect according to their terms, reviewing courts shall apply local law that most closely approximates an absolute waiver of all civil liability in connection with the Program, unless a warranty or assumption of liability accompanies a copy of the Program in return for a fee. END OF TERMS AND CONDITIONS How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively state the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . Also add information on how to contact you by electronic and paper mail. If the program does terminal interaction, make it output a short notice like this when it starts in an interactive mode: Copyright (C) This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, your program's commands might be different; for a GUI interface, you would use an "about box". You should also get your employer (if you work as a programmer) or school, if any, to sign a "copyright disclaimer" for the program, if necessary. For more information on this, and how to apply and follow the GNU GPL, see . The GNU General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Lesser General Public License instead of this License. But first, please read . ------------------------------------------------------------------------------- Lua originaly is under the terms of MIT license. However the version used here has minimal modifications and is sublicensed as GPL v3. ------------------------------------------------------------------------------- Lua original License -------------------- Lua is licensed under the terms of the MIT license reproduced below. This means that Lua is free software and can be used for both academic and commercial purposes at absolutely no cost. For details and rationale, see http://www.lua.org/license.html . =============================================================================== Copyright © 1994–2013 Lua.org, PUC-Rio. Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. =============================================================================== april-ann-0.3.1/README.md000066400000000000000000000233671234204160600146640ustar00rootroot00000000000000April-ANN ========= Requirements ------------ Requires the following libraries. Versions are only orientative, it could work with older and newer versions whenver the API was compatible. - GNU C++ compiler (g++): v 4.7.2 - Only in Linux systems: Lua 5.2 headers to tell April-ANN the default system path for Lua modules (`lua5.2-deb-multiarch.h` header). - BLAS implementation: ATLAS (v. 3), Intel MKL (v. 10.3.6), MacOS Accelerate Framework - Threads posix (pthread) - Readline (libreadline) - OpenMP - LAPACK library, offered by liblapack_atlas, mkl_lapack, or MacOS Accelerate Framework - LAPACKE library when compiling with ATLAS - libz: support for open of GZIPPED files The following libreries are recommended, but optional: - [OPTIONAL] libpng: if you want to open PNG images - [OPTIONAL] libtiff: if you want to open TIFF images For perform computation on GPU, this optional library: - [OPTIONAL] CUDA and CUBLAS: release 4.2.6 Dependencies setup ------------------ The first time, you need to install dependencies in Linux (via apt-get) and in MacOS X (via MacPorts) running: ```$ sudo ./DEPENDENCIES-INSTALLER.sh``` Compilation ----------- First, it is mandatory to configure (only the first time) the repo PATH and other stuff: ```$ . configure.sh``` Second, you could compile the april version which you need. We have developed compiling files for using different libraries. It is simple, you do ```$ make TARGET``` where TARGET is one of the following, depending on which version you want: - **release-mkl** needs of MKL library installed at `/opt/MKL` as prefix. - **release-atlas** needs of OMP and ATLAS library. - **release-no-omp** needs ATLAS library. - **release-cuda-mkl** needs CUDA and MKL installed at `/opt/MKL` as prefix. - **release-macports** needs Mac OS X with MacPorts and Accelerate Framework. - **release-homebrew** needs Mac OS X with Homebrew and Accelerate Framework. - **release** it is the default target if nothing indicated when `make` invocation and is equivalent to **release-mkl**. Besides this targets, it is possible to compile for debug replacing release string with **debug** string, and for testing replacing release by **test-debug**. Each of this targets will need a little configuration depending on your library installation. For example, in order to compile with MKL, the file `profile_build_scripts/build_mkl_release.lua` contains the following sections (among others): ``` global_flags = { debug="no", use_lstrip = "no", use_readline="yes", optimization = "yes", platform = "unix", extra_flags={ -- For Intel MKL :) "-DUSE_MKL", "-I/opt/MKL/include", -------------------- "-march=native", "-msse", "-DNDEBUG", }, extra_libs={ "-lpthread", -- For Intel MKL :) "-L/opt/MKL/lib", "-lmkl_intel_lp64", "-Wl,--start-group", "-lmkl_intel_thread", "-lmkl_core", "-Wl,--end-group", "-liomp5" }, }, ``` You need to especify the `-I` option to the compiler, and all the extra_libs stuff related with MKL. Exists one build file for each possible target: build_release.lua, build_debug.lua, build_mkl_release.lua, build_mkl_debug.lua, ... and so on. The binary will be generated at `bin/april-ann`, which incorporates the Lua 5.2 interpreter and works without any dependency in Lua. Besides, a shared library will be generated at `lib/aprilann.so`, so it is possible to use `require` from Lua to load April-ANN in a standard Lua 5.2 interpreter. **NOTE** that loading `april-ann` as a Lua 5.2 module, you need to have the `.so` library in the `package.cpath` or LUA_CPATH. It is possible to install it in your system defaults following next section. ENJOY! Installation ------------ The installation is done executing: ``` $ sudo make install ``` This procedure copies the binary to system location in `/usr` (or in `/opt/local` for Mac OS X via MacPorts). The shared library is copied to Lua default directory, in order to load it by using `require` function. *If you are using a non default installation (a custom one), please copy the `.so` files manually to your `package.cpath` or LUA_CPATH*. Use --- - You can execute the standalone binary: ``` $ april-ann April-ANN v0.2.1-beta COMMIT 920 Copyright (C) 2012-2013 DSIC-UPV, CEU-UCH This program comes with ABSOLUTELY NO WARRANTY; for details see LICENSE.txt. This is free software, and you are welcome to redistribute it under certain conditions; see LICENSE.txt for details. Lua 5.2.2 Copyright (C) 1994-2013 Lua.org, PUC-Rio > print "Hello World!" Hello World! ``` - It is possible to use April-ANN as a Lua module, loading only the packages which you need (i.e. `require("aprilann.matrix")`), or loading the full library (`require("aprilann")`). **Be careful**, the April-ANN modules doesn't follow Lua guidelines and have lateral effects because of the declaration of tables, functions, and other values at the GLOBALs Lua table: ``` $ lua Lua 5.2.2 Copyright (C) 1994-2013 Lua.org, PUC-Rio > require "aprilann.matrix" > require "aprilann" April-ANN v0.2.1-beta COMMIT 920 Copyright (C) 2012-2013 DSIC-UPV, CEU-UCH This program comes with ABSOLUTELY NO WARRANTY; for details see LICENSE.txt. This is free software, and you are welcome to redistribute it under certain conditions; see LICENSE.txt for details. > print "Hello World!" Hello World! ``` Citation -------- If you are interested in use this software, please cite correctly the source. In academic publications you can use this bibitem: ```bibtex @misc{aprilann, Author = {Francisco Zamora-Mart\'inez and Salvador Espa\~na-Boquera and Jorge Gorbe-Moya and Joan Pastor-Pellicer and Adrian Palacios}, Note = {{https://github.com/pakozm/april-ann}}, Title = {{April-ANN toolkit, A Pattern Recognizer In Lua with Artificial Neural Networks}}, Year = {2013}} ``` Publications ------------ List of research papers which uses this tool: - Francisco Zamora-Martínez, Pablo Romeu, Paloma Botella-Rocamora, and Juan Pardo. [Towards Energy Efficiency: Forecasting Indoor Temperature via Multivariate Analysis](http://www.mdpi.com/1996-1073/6/9/4639). *Energies*, 6(9):4639-4659, 2013. - Pablo Romeu, Francisco Zamora-Martinez, Paloma Botella, and Juan Pardo. [Time-Series Forecasting of Indoor Temperature Using Pre-trained Deep Neural Networks](http://dx.doi.org/10.1007/978-3-642-40728-4_57). In *ICANN*, pages 451-458. 2013. - Joan Pastor-Pellicer, Francisco Zamora-Martinez, Salvador España-Boquera, and M.J. Castro-Bleda. [F-Measure as the error function to train Neural Networks](http://dx.doi.org/10.1007/978-3-642-38679-4). In *Advances in Computational Intelligence, IWANN, part I*, LNCS, pages 376-384. Springer, 2013. - F. Zamora-Martínez, Pablo Romeu, Juan Pardo, and Daniel Tormo. Some empirical evaluations of a temperature forecasting module based on Artificial Neural Networks for a domotic home environment. In *IC3K - KDIR*, pages 206-211, 2012. Our ancient ANN implementation in the former April tookit was published here: - S. España-Boquera, F. Zamora-Martinez, M.J. Castro-Bleda, J. Gorbe-Moya. Efficient BP algorithms for general feedforward neural networks. In *IWINAC*, pages 327-336, 2007. Packages -------- April-ANN is compiled following a package system. In the directory packages you could find a tree of directory entries. Leaves in the tree are directories which contain file "package.lua". The "package.lua" defines requirements, dependencies, libraries, and other stuff needed by the corresponding package. Each package could contain this directories: - c_src: source files (.h, .cc, .c, .cpp, .cu, and others). - binding: binding files (.lua.cc), a kind of templatized file which generates the glue code between C/C++ and Lua. - lua_src: lua source files which define functions, tables, and pseudo-classes in Lua. - doc: doxygen documentation additional files. - test: examples and files for testing. At root directory exists a file named "package_list.lua". It is a Lua table with the name of packages that you want to compile. If you don't want or don't have libpng, or libtiff, or other library, you could erase the package name from this list to avoid its compilation. Includes these sources ---------------------- - Lua virtual machine 5.2.2: http://www.lua.org/ - Luiz's lstrip for Lua 5.1, adapted to compile with Lua 5.2.2: http://www.tecgraf.puc-rio.br/~lhf/ftp/lua/5.1/lstrip.tar.gz - MersenneTwister: http://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/emt.html - Median filter from Simon Perreault: http://nomis80.org/ctmf.html - RuningStat class for efficient and stable computation of mean and variance: http://www.johndcook.com/standard_deviation.html - Lua autocompletion rlcompleter release 2, by rthomas: https://github.com/rrthomas/lua-rlcompleter Wiki documentation ------------------ - [PDF version](https://rawgithub.com/wiki/pakozm/april-ann/WIKI.pdf) - [HTML one-page](https://rawgithub.com/wiki/pakozm/april-ann/WIKI.html) Doxygen documentation --------------------- - [Developer manual](http://cafre.dsic.upv.es:8080/~pako/STUFF/doxygen_doc/developer/html/index.html) - [Reference manual](http://cafre.dsic.upv.es:8080/~pako/STUFF/doxygen_doc/user_refman/html/index.html) LINUX installation ------------------ Install g++, libatlas-dev, libreadline-dev, libpng-dev, libtiff-dev, libz-dev, libopenmp-dev or execute: `$ sudo ./DEPENDENCIES-INSTALLER.sh` MAC OS X installation --------------------- Via MacPorts: - Install [MacPorts](http://www.macports.org/) - Execute `$ sudo ./DEPENDENCIES-INSTALLER.sh` Or manually: - Install libpng, from [sourceforge](http://sourceforge.net/projects/libpng/files/). Follow INSTALL information. - Install findutils, from [GNU](http://ftp.gnu.org/pub/gnu/findutils/). Follow INSTALL instructions. Execute `./configure --prefix=/usr` in order to substitute BSD find of your MacOS. april-ann-0.3.1/STYLEGUIDE.md000066400000000000000000000040321234204160600153710ustar00rootroot00000000000000# April-ANN source code **style guide** The coding style is not homogeneous becase some code parts are very old. However, for every new and fresh code, this guide will be followed. ## C/C++ style guide ### Coding style - Indentation: Two spaces indentation. Tabs are not recommended, please, substitute them by spaces. - Namespaces: Namespaces are in UpperCamelCase. - Classes: Class names (and structs) are in UpperCamelCase. - Methods: Method names in lowerCamelCase. - Properties: In lower case with underscore sepparating words. - Variables: In lower case with underscore sepparating words. - Constants: In upper case with underscore sepparating words. Example: ```C++ // upper case underscored #define ZERO_CONSTANT 0 namespace NameSpaceWhatever { // Two spaces indentation class ClassName : public OtherClassName { // upper case underscored const int ONE_CONSTANT = 1; // underscored property names int int_property; float float_property; public: ClassName(int int_property, float float_property) : OtherClassName(), int_property(int_property), float_property(float_property) { } // lowerCamelCase method names int getIntProperty() const { return int_property; } float getFloatProperty() const { return float_property; } }; // lowerCamelCase function names template T addTwo(const T &a, const T &b) { // underscored variables T auxiliary = a + b; return auxiliary; } } ``` ### Useful macros - Unused variables: `#include "unused_variable.h"` and use `UNUSED_VARIABLE` macro. - Ignored results: `#include "ignore_result.h"` and use `IGNORE_RESULT` macro. - Asserts: `#include "april_assert.h"` and use `april_assert` macro. - Error print and exit: `#include "error_print.h"` and use macros `ERROR_PRINT*` and `ERROR_EXIT*`. ## Lua style guide Prefered always in lower case with underscore sepparating words. ## LuaPkg packages Package names are prefered to be equal to the global Lua table where C/C++ classes and functions are binded, and where Lua code is written. april-ann-0.3.1/TEST/000077500000000000000000000000001234204160600141515ustar00rootroot00000000000000april-ann-0.3.1/TEST/cross-entropy-stability/000077500000000000000000000000001234204160600210025ustar00rootroot00000000000000april-ann-0.3.1/TEST/cross-entropy-stability/test.cc000066400000000000000000000010101234204160600222600ustar00rootroot00000000000000#include #define EPSILON 1e-20f #define MULT 1.01f //2.0f int main() { for (float target=EPSILON; target <= 1.0f; target *= MULT) { for (float output=EPSILON; output <= 1.0f; output *= MULT) { float numerator = output - target; float denominator = output * (1.0f - output); float frac = numerator/denominator; float result = frac * denominator; printf ("%g %g => %g - %g = %g \n", output, target, numerator, result, result-numerator); } } return 0; } april-ann-0.3.1/TEST/digitos/000077500000000000000000000000001234204160600156135ustar00rootroot00000000000000april-ann-0.3.1/TEST/digitos/digits.png000066400000000000000000000605771234204160600176230ustar00rootroot00000000000000PNG  IHDR@0IaFIDATxڥۖ亪DgUe"f W|N@ vss>ߋ1g@Bm~)ѹ2?':S@&&~|̶OӐR/%ڥOO(KU+`& "r՟zzT_Zo|bjL| X2?ڱZYj_@Up_6CMʇNKwH'HL#$B([6ڈ|so|q[%q;L4{fҊojg;Wri^Y1k0?ro}@`= dV@/ dM&|ˇ{_qStuG[9p˾v[tw6rRv sZ`rxBS ։Q+2nUzQ oH=Od_pXs"R502|=!Ny_| "7 /5Rݲ { x\gטo*;esΩ3%O.8a7-yf,1jan[k~0B,S,*!7@9 iia@>*Jxs] I $N7@QFm9 Ͷ-$xߎQQ4yPVs<^.jP  6s ~B%Eչ P0? )mDp|+Wpi$vY~ 艕[UN@逞,9ic ]xEQQ/٣i?hG))(/Ebd,#Ahmp. Ȧ#K_6X/| f"{"wa>hݠ.H#7p, `c}Eʭ _-!6UZN> \|ͺKСAY U^6BE3:>5c}6V/w& ,<]x!HHr s"ȳ]E>YR 䌢PU ֯gU 8V .A>HaΎPmKt* ) P*sbԟG!1;faomSKtTsEHVx7?~m ׄ'@lSڽ&Ƅq@_>UHaN>,\/,, ~=> ߥDAh4w={z +EJ5-J0w6)3':~ND~0 fwYWbb "TH1 q3ҥ᛾ dXSCJ'䲂\[;I¢nQ!; F&A )RSWt!Kpn'R6yrņn>(bB i($q} ӭ 6&š< :!ۻJ%@JWb:0[Eg Q_e iaX)!'y&c6 5!5~şRfs⟋ O$LK`>o?Ȟ_d?W>K+C|AR 0@P-?DÚo`)\Qf# ~y2J _H0% g9$< 5wz6y< Ookv g 3l8SQH XdmjE uuT,F(0[RyZ2`3KD4CU?g m*L%WO,B^/x-Mۃu4;zG TnX:3:]kkB?4Ds.Ҭ Dr맽Qᰉcg_8wHw@яaE0][\㗀kYr6rCx7-}XBz%DT߳zbRb:#>f0%qN=֕#`ј9I "' U%$R[OHs a)/ډ}F%%oۚjZ}=_LAb TD H_ml /۝b{K|W$6l2< J[)ԴL@k:‰q/PQ!w@JfQDbSH;y(ʀj(ǂ8p4 ?6e oa=^֜z `Od bɤ~!:=W 3\ 9B'U~_}$yQɉ.߯ Q]!1ν cFusI"SײO1G)Kgˀԁ +rwȢ&TniC'~p+ J5Jj=1mi,gp?1MwF~e#_x}4xFM(go9VMo,K0Y@|t E=\cCl7|Cu_2|.Dg@.[h|L]@;pXc)ĔI%§ vR_WFbA|?z7+w@[vq6m%OR {@~85(g Kڡ2T[xY_TDAX^~smX '3;i]%h/mLXhxe]4JLʐ/`Z.XpW8'eYpVHzR3 XJɀė,9ꌏ0"1 ?Ch_є!D5x8w |TcC 8 ,)26S,o;r}lR+lm-eTdugTW'(p#4iZ*=!f $:M w|.'\-n1`n5}C]MTN@ D@c2 ȗ_GbaѵC郝yrcP_X7S<9V:(K #,m0nn<?O<sF~O0S*O:~KdL0yzGp^NT"A|c.I*VM-t|U |i?(+iXE?_ /KިsKÄ,*f.g^E޾猴'7zuXcw㷖Rh1>LOj%ʇN 0r.` ZV>8MZEO|!u `eW!-OfNy/}ttw\V'>>}TL` CmŒE<HtI&(P1 pAi4lk d\H*pQR'@hhQfaDW*8 Btz\6,A,I?^-|jЮs$_W&eF/`f `!uv^[#MŤ},J.p(dR";[.u'5r7 UeȀ$8-}_Sb)V} )#? 2ޑbN$}̋U#=E`.DnA AfnI_KFaܰ.cn$Z8=K3ZMx̐|)31Jo32<|5WAIB;$(Uyox RV2pȼWyIr~%hy "1uC?ƀ]bEG80&sK;4LŊvkǤaXoL#`/$9 /?sTN2̈MiV1ZI)'.U)aQOXIIC| H.[{\&*$ _ ^~zc[̉$B7(~5 Ѓu –`+yG6lt҃!Tu?L1Z˔5|aW|E^ `;ox&/5Q4yl58=8jGP?z4 dpt88=  HB\VhҶ}dgy81Xd# (o9W^ysRᯉ X 84a7>]lxSr@xi2-zV'b&gZ"OZg 7R@78NoPˈ /C&(qVB| ?;y=4ߧL: Z6]\D"GI BiͰ^|sSu5v@NR1P`OPpn#nlKPY$vLb+#Q0Hй{,Gt&˯B/|_AgVZxܚPj r{l՚<)\Tt]P0A*aA *77Y"4OH|U?Usps,B SƟ$=;žز=fŵf5vmn6)@Aj2 >R!vX+m@KwƵP- ^%8n 7 M5H"Z `e@Cs6.*㡁 XVI[I$*Ǩr_,F%@ x;TTf3T/9YATl `IFLwMp /D'$" ]{R'Q&,KohSH#3 ’׀5?6-Hd.y3DZti>@HSH T7t@N ?hA$_001Q8| .rlk,M^[#P6j?x6\8>p(fo|ijrb| yK< `mzKk m {k[~QTќ\haڲ>{Wr0dwIDpj?(R/\T# S +EkЬKVzz|(,^x%@9<ULx Ŋ)pAj 5(1F.0a S!$!{%b|=KC0OqWzF+!-^"֞wDi5%3(cm1ӗe<bA<`h/,Bvs PH|X8޽r1 J2^ QB_S"%c>E@#Ňq<@PA1ky@t@fȯ% :g^/,ۼy?nX+!sBSTJY_BFn(3R>X#Xz,lgNkk}Kt򩈷"Ѕ=X~evs|v4颧F\؝+V }e@;V=&){kf2=4jۋZOViOxBo=iȋksF nb#{,;1"3 Rý>#)yGkxlS< *g@ވ;YT32<IlQFI `57R!б t!!Ҟv0q ؀@l{_$|>e%@x+P'ԏ%G|Y4W[qz %nQAMW F1 hy Ahj/kcovہR66Ĕ%#5@AZ;̒)>"%9d^q;c@UW =G$}4U!d>t3}GTV`4_? q@`ӿ!®) c 0eIR!V[μdhZC0#ҶS4N?@fQ{wcpa'/TUт7Q$$@3 25`!quNLʊ%>|,hfkfp\zLr M@3NA9f٬r+%9 xvjB@݈;r>j)؍ _4QSK+6{Qg*29y~=byxgg-G\{kuR9Ӹט7dERPc F V;[ hsxLs.3.tz3$X<}̯%MPZؖ`go^5.6ԐD@~ًf-Y#Ba粚Jްk} ~x;9>˓׳ `Y;hoAd@w"< I$:ڽ}SV@).*ӣ&#!"Wi?fk\oUV@5nPj4[Ūpp^$xYxFTC=@u,~d@6"ER~Zx_QRVlz;a5&b2 rsEw\$'ۅK%P^&Q1^pF@c  *Rq}׳ K'2h>bj2ßyX1\ZJ0+%a8%ܼL{Lbʪ|sߣ+۶iǁAj;M$Ԉ>0FK!eʃV644aq'k|l<(& L@ :nܔuL.GVKp$Ue;Xg O|V @"j+7 .g@e:`@pzwx:a^d eֵI^s>O"P 9uPzK&׉m+pO-{؝_R=!x;YgזՁIvQS a'S``}" /2[#_JCUV c5UM+]ۭ($LuYÌyPMzP dfc4zJB ߵeʍ9)~r}k#BZ ! y[5kdW}2a[̈́~5OZ7ٺKo0嘽e?"ab]Z]GA,Xh:,.=m ]zN\! hls0`$;)#/`1:VV9-:'b>{*Q09,!u1TffF1T^Y??UlZp&aadpP=XvU_5Ett#߶jTX [Ѯ`ʉq_ MK8ſK.'gP hn.oLGPP2@]sQ73do:"]`yrTGYE2kt%|z! BLyPA `cm|*z`~2| CSI@p_pj`] (e\F8$ \c LTDbJYM3*Za}Ӵy-^<(>/*[%Hks9v2(pLA- NiiOXd vg(@!, fuallr ^ is*/`TKE1JTF{ڼ1Wr's;%B]=w-NΟK4D!Bjp_7mtQڹy(3@VG#m̧6& }|goT|'Ư-4u}0T'AswO`E@jNx&cB8AlK[Ki|4΅X= aYZD#kQټ3'F'!(rX? fWJIBp\1_sRèzJ3V̫\23^P ~/3j>: U>P f.2ԔOu pSBZ|;B8m \&F>xw_MT{ I=kAnFF/|I-@FDc !^ mc۰FohIEr_NqWB; P'fsj*EKz 8L st@wYe8;!bWکP5,}>X4y7>885 o4@+*e'EXAI+oTt{c  (0nMAo'}3H6p$hmD߬YD;\لΙv?X2t IP6A|-Ǜd zjxc>N&;M"hH-,>v4@XoKL@0;@Ypp~7o#x'> !n;94@(LYc`HUA8CN/sű^t$ -5JcZs&<>E|"OZlr$@= pI:N~x7s'wҴ(nMN Ӹs|ÏtV2[~p&NqBۍ>AQr7'xn3QdL[(q H6nLOY,JSVۭz2S߷7@_nj`.z$hwx+`Ⳍ&kg!XX3q4A]- HaZ"``OL$3 G+Xጙ*!GFDJ>_1_zwbL(q^ۙKp.ozgTqޙKYn.-׷\Jp븧'|"RvBw>^c|ְڤ\ab%ʀ/E47 4xj3|Ow8y&E[/jP@zO\sO@8/A<`~q=m&8@o~zW+>2l8}m棣eD@c9l0 V}d {TX>sAmʀsc(|,Kf8~٪DA,,r?T8C7!m䃻OTTRi$i+/!i%XdEL'@Ʒy?> |@~\zXׯ D|Ů@ /8gK M|7rΕ00"t]0#tȡ~}6bGu!i2n \Q* >LЦ(3 wAsm=O G51Mϊg+p: O0Ь/hAV7axj 6>(_zHKH8go??i`#` _j_ o*@F|zxP3R~q!d!i_dЁE0Z ݑ1D.v22gN/CiIm|m" 8, UQ(8=|q@X2z7lh|i`7H+ /Ou'PF5Ի/@<-!5,}ha'@gӶ<7 ȊY .OÀnWa@eYt_l~FyoK|9AvЈPq`~#B4)`.Of|x {!+ 5~FdN3M%OI y>4E@9nk?E/!zfD?_ \W2}KѤEXRu~i=\O {Kz^WƮ |oMMIo\5L~7_:Ti6;de_) MPUB0YUm d%V6K;I&6@MHZ* -|je@u*D `l>F(;'o `ns/LoN%J-`Ǿ< HH-y?aMcPڂ&UX%?_~-df^xE(6L 82>ǘ h"l"Eע9ֿ5Ao|K?xmm>ݠCl^khbl&,6 ]0M_J0B׍@R+EЯΧ _ik(JxOC4&Ufgj&$)|~FG A;5} iY\I x0`_mNW<*qks%끟l/Yg"-@o&J &@1w9]#G`W:% 65ɭ٪ߞW\a[4"g-ވ 'xGF<K{cl >w𳭅Y6=սEdϺ?"K}p^>kn; ?q'pl9Im3mLĜ}^%YG0`K Xb]EIF=Cl‹5r)o rcj*v~ݜ-Nj} >ey5ǼCyֳ ƜI] PԈ> ax/W'og &$-θ% 4kB^'> +/6A!4'm@- +eO_L|wXŸ/SF ZJmn{jpR$@ ݙK+" pHv;xR͑|W@.^1?|b))1bG?]%_LH x^R2 8-'Jޏ֪8|Rwawiˍpd02gI`$5iϏ1hBDl+9Ԣ=!M~09(YZQ_dI-,cP[p0اPH9" !Ks9—^b6> U?/W; \D>~W#c7@ZLb&#MD&w'qc.5s[#}1(sO0zϸ񵽳ɜֲ nV p ! PagHn4Br ##5^W(e`[ xT0l%,= ش` `2I/@n @;#^ P<%4 1w&8/ggCиʦ'mfՅ Fإ fS`E!wb9EtXwk7+xg\v⥽p|!Z=iHS.JKwKuJYEOE@QHnƃ1@ TС,+&|LhFqTh`юD A k!>}[ k0&~~V@0𥪚No$Gc5.# g)b~XL5=_%g B<::]-o8<8U 77Q֣Psn1YtiώKrl/BS|Фw^3 ئpn;zG0.LwуBIU~x* g[A4KHP2a1;P @fqR4 rːT@.IJP2[ ۚ |dO7!aP# |"@$Q*ǀ|, 1ih&_"4LHo~;8YZ -H%%ʒlASīp OB$]}ѓTPzX A 0|d?7f97mE"y^G= Px"Դ1 mK>"}pGe _/b4bSIw|!o|ExO907}1o x J ,990 c>1a,%٩"9ˇ*Sl:u ! .+L^֪ez/'yȨB^sx߾G L M| ߒSj;=7¥bͼd 2o<ZO3+&@|?+i47 |D@>:0fz[MSJ|AL);\[FG5͠;!s1XqYPn[׮ՓQ.Wy9DLK`RRQLƚzfp>=H- 7c?ۿBի-1{kk~/۪̇G.#C Co(F'. 1; y_fX8N˓'.  1JU+mZ@RT7|k |dw@>?8)7vI<#ﲣ0r Yl?7SEcz`ǯP;M(-|LcȪqzQhtL)& w;`PzFѨvfѴ} Z|yG?8-ן"8#FgT+‡oQt]0KHz) Э6;P NBE; 6E4ߠL?M6VW< DR(_nʽys 5s X$i,iܲ+Zz8vpc~:CAkNOf@WY ]}! je9GzsY@ffo="ksP'`O;e)%*9pX9R$Bzm^2R@sxn%"l @.QKx 92>O'd|C0fV|3Os}n(>&2&QZmHE5AT:CKC  CyA'~1T!}D~gӇ+ |K|Խ|c4˖b27^0JPFc=6wRJ ~>J^ 1D]%)`ֆUgFK@p!zM |^PG{aߖrP5#i77bڽ9i>,ѕ$:bLzeY2/_ft,V>>71koc{G>1-m+D1M#62ǤM0TL1Oņ;i <^kCB|ohԦMOuM֗Ȭҍo|ϧI@R7y\Yg2.] bH_(xpnE -Sy[E8a[2c"2i>n.mTXbG|rckO:Nk7=Bt~#pH :Y|q$?<= LF࣒LB͟KlC][ٞw?0{+/F.9/S< u,"Ƹ6 N PF;{ ]Q c .7E}>3\g@pBMm|䚹9 HY N PA$|_ RW@`֏5RQ}#$)а&ڽWr ҵ4PhqdF7|~/m2/IyEBx@2p^C*z"Y"OLdM|kK!=`@?J@{otTÜ`H2`)v1\T@kϣ A ŷŋtu"H6{$zd]=338.;dovKEF1*ʷv[݂4!n=9"HB_ @ X*3vi%m[~%5ԏ(<6E.^2Pn/lKu~a*8{5$m 6։E?DBϧQz aܤnVv!}Q)#`U,K.f b:bň pCx9 )Il^B/:3bq9XxV ŀfls_tg$u#8# 8` -np$>| zmczN .V(*vg<(=yT1ah-Apv`]K?a /r)b̙<*#bڲ uУf2wzπ?N ̈́f gu[=!0]4ǀkV-lJ+@R|:`0TDV Nm,uO}[MH"@7q_%*twWC2'KU, Ɋ O*Ɍeե$C `"H39ep.@qw$*L uq|FT Tw(Ž!"}h-lXN^.a"{G kGGy?@:`;H1QBrvY\o / `J |{(^ݟ O7:WF}|H KbVZ\4O)Mp؃e4CPoѴnFU.2[_t%ls3RY7}| `v=S])I3 1IX xmBq0BPDl.p\7x ޑpa@0U8 v/R\hP.AG Ao'OV  ˌH<|$@43w|,05 n@T_&@I17ϡb"##*0D=Cٌ R<.V.7ʋH[k)p@:ti EA"c[hX2.=_yƍq 5[bNgO.i;I8껝` I O H)@{" _o#/H^͛ˈ,5`/'GZ &5ְ60\q*:$|;-H 0; "y3tAWFH"I-VUy`&>?a+,n%%\z[^A@v 7OBb!?!tYy~Ld3?#H1l>jju#_&??(N bK`OX8F*USGNE*[[ĶPZ6T@ F)&w9<'Y "1~%kBՊF꛽XBcPoo붘O:y\M񅈞s6_͉{ӵ-OfD7倸%Ѐx<UgW <] 3˾i,9ΧM`PynD3g2)038iܗ]:C\4 8X xhZ?=}@'puBx<]p5}y!5-P, HVMѯFySLv_#`z#t|ϤO*ɩ| oL;Xp~g}#ȢA3qs$uPU_>)i~ÀR/Y.)En;(+ht@Cb r,ѭf^4X}4Ep!AɧQEXpJ&#AEAppǙ<[Ģ~Vh Ss@kp'IWhH-. ț"qL!m0ld ^c4m.hlj˯D{na:D官/bzIXݍ&)9&al cO9TK)Gʨ1hpD`>I\NN_)5>z_D &h[͐7ɯ/&11+ K X:34w33eI"O|kKM|WQx`{-&O)9>Jq>;8PR^ua\"Xc`_BrXūw`F^lsmZ*yOA'vR' =gx*󍣚[$8q9w?kȗMn Q~;QX!j[tx *2gp]զer;U(Rl3w1@XPETWhQ@I;Vnx,Eߪr rf /}|Ёvku?+</- v@K10h޵[ g]zL݌Cp{OK qӏ 0spxL | ~ڋ5B&g\`)G@=Y *9π)c&ėI~AL|9XKS|ro&qM'_ԢXM韼%E#!$գ0YwAYV?Zf!U@~@r/l=Ʒy )аA< I ȅ[ 5CG;˳:(Az\fL3PPc_4e{Hd'h)75yބv"wDN xvR?ΙRh"s>ްd/i^w9R-nn58/=džjI_HE͟_zÊ߭xodb{n?d|IENDB`april-ann-0.3.1/TEST/digitos/learndigits.lua000066400000000000000000000177141234204160600206350ustar00rootroot00000000000000function verdigito(digito) local out = "------------------\n" for x = 0,15 do out = out..'|' for y = 1,16 do out = out..(((digito[16*x+y] == 1) and "#") or " ") end out = out..'|\n' end out = out.."------------------\n" printf(out) end m1 = matrix.loadImage("digits.png", "gray") print(table.concat(m1:dim(), " ")) train_input = dataset.matrix(m1, { patternSize = {16,16}, offset = {0,0}, numSteps = {80,10}, stepSize = {16,16}, orderStep = {1,0} }) val_input = dataset.matrix(m1, { patternSize = {16,16}, offset = {1280,0}, numSteps = {20,10}, stepSize = {16,16}, orderStep = {1,0} }) -- una matriz pequenya la podemos cargar directamente m2 = matrix(10,{1,0,0,0,0,0,0,0,0,0}) -- ojito con este dataset, fijaros que usa una matriz de dim 1 y talla -- 10 PERO avanza con valor -1 y la considera CIRCULAR en su unica -- dimension train_output = dataset.matrix(m2, { patternSize = {10}, offset = {0}, numSteps = {800}, stepSize = {-1}, circular = {true} }) val_output = dataset.matrix(m2, { patternSize = {10}, offset = {0}, numSteps = {200}, stepSize = {-1}, circular = {true} }) -- esto es una prueba --doble_train_input = dataset.union{train_input,train_input} --doble_train_output = dataset.union{train_output,train_output} -- un generador de valores aleatorios... y otros parametros semilla = 1234 aleat = random(semilla) description = "256 inputs 256 tanh 128 tanh 10 log_softmax" inf = -0.1 sup = 0.1 bunch_size = tonumber(arg[1]) or 64 thenet = ann.mlp.all_all.generate(description) trainer = trainable.supervised_trainer(thenet, ann.loss.multi_class_cross_entropy(10)) trainer:build() trainer:set_option("learning_rate", 0.04) trainer:set_option("momentum", 0.02) trainer:set_option("weight_decay", 1e-05) -- bias has weight_decay of ZERO trainer:set_layerwise_option("b.", "weight_decay", 0) trainer:randomize_weights{ random = aleat, inf = inf, sup = sup, } -- otro para mostrar datos de validacion otrorand = random(5678) -- algunas funciones function ver_resultado() --lared:prune_output_neurons() repeat --clrscr() digito = otrorand:randInt(0,9) autor = otrorand:randInt(0,19) index = 1+autor*10+digito resul = trainer:calculate(val_input:getPattern(index)):rewrap(10) resul:exp() desired = val_output:getPattern(index) inputpattern = train_input:getPattern(index) verdigito(inputpattern) printf("Labels: ") for i=0,9 do printf(" %d",i) end; printf("\n") printf("Target: ") for i = 1,10 do printf(" %.2f",desired[i]) end; printf("\n") printf("Output: ") max,imax = resul:max() clasificado = imax for i = 1,10 do printf(" %.2f",resul:get(i)) end; printf("\n") printf("Autor %2d Digito %d\n",autor,digito) printf("MLP clasifica %d %s\n",clasificado,clasificado == digito and ":)" or ":'(") -- printf("\n\nLos valores de las neuronas de las capas ocultas:\n%s\n\n", -- string.join(lared:activation_values(),",")) print("Pulse intro para continuar, una letra e intro para parar") a = io.read('*l') until string.len(a) > 0 end -- datos para entrenar datosentrenar = { input_dataset = train_input, output_dataset = train_output, shuffle = aleat, bunch_size = bunch_size, } datosvalidar = { input_dataset = val_input, output_dataset = val_output, bunch_size = bunch_size, } -- datos para guardar una matriz de salida de la red msalida = matrix(200,10) dsalida = dataset.matrix(msalida, { patternSize={1,10},offset={0,0},numSteps={200,1},stepSize={1,0}}) datosusar = { input_dataset = val_input, output_dataset = dsalida, } totalepocas = 0 function entrenar(epocas) print("Epoch Training Validation") for epoch = 1,epocas do totalepocas = totalepocas+1 errortrain = trainer:train_dataset(datosentrenar) errorval = trainer:validate_dataset(datosvalidar) printf("%4d %.7f %.7f\n", totalepocas,errortrain,errorval) end end function entrenar_reemplazo(epocas,reemplazos) datosentrenar.replacement = reemplazos print("Epoch Training Validation") for epoch = 1,epocas do totalepocas = totalepocas+1 errortrain = trainer:train_dataset(datosentrenar) errorval = trainer:validate_dataset(datosvalidar) printf("%4d %.7f %.7f\n", totalepocas,errortrain,errorval) end datosentrenar.replacement = nil end function menu() --clrscr() printf("-------- ENTRENAMIENTO DIGITOS -------- \n") printf(" 1 - Entrenar epocas\n") printf(" 2 - Entrenar con reemplazo\n") printf(" 3 - Ver resultados\n") printf(" 4 - Salvar red\n") printf(" 5 - Cargar red\n") printf(" 6 - Ver datos\n") printf(" 7 - Clasificar\n") printf(" 8 - Salir\n") printf("Opcion:") opc = tonumber(io.read('*l')) return opc end function ppal() repeat local opc = menu() if opc == 1 then printf("cuantas epocas? ") cuantas = tonumber(io.read('*l')) entrenar(cuantas) print("Pulse intro para continuar") io.read('*l') elseif opc == 2 then printf("cuantos reemplazos? ") reemplazos = tonumber(io.read('*l')) printf("cuantas epocas? ") cuantas = tonumber(io.read('*l')) entrenar_reemplazo(cuantas,reemplazos) print("Pulse intro para continuar") io.read('*l') elseif opc == 3 then ver_resultado() elseif opc == 4 then printf("Salvar la red, nombre: ") filename = io.read('*l') printf("Ascii o binario? (A/B): ") tipoAB = io.read('*l') printf("Guardamos pesos iteracion anterior? (S/N): ") tipoOLD = io.read('*l') if not use_adrian_mlp then mlp.save(trainer, filename, (tipoAB == "A" and "ascii") or "binary", (tipoOLD == "S" and "old") or nil) else ann.mlp.all_all.save(trainer, filename, (tipoAB == "A" and "ascii") or "binary", (tipoOLD == "S" and "old") or nil) end elseif opc == 5 then printf("Cargar la red, nombre: ") filename = io.read('*l') printf('Leemos la red en "%s"\n',filename) print("Antes",trainer) if not use_adrian_mlp then trainer = mlp.load(filename) else trainer = ann.mlp.all_all.load(filename, bunch_size) end print("Despues",trainer) print("Pulse intro para continuar") io.read('*l') elseif opc == 6 then for index=1,train_output:numPatterns() do --clrscr() print"Introduce cualquier cosa ademas de enter parar parar" verdigito(train_input:getPattern(index)) print(table.concat(train_output:getPattern(index),",")) a = io.read('*l') if (string.len(a) > 0) then break end end elseif opc == 7 then -- clasificamos ------------------------------------- local aux_m = matrix(train_input:numPatterns()) local aux_ds = dataset.matrix(aux_m) trainer:classify{ input_dataset = train_input, output_dataset = aux_ds, } local errors = 0 for i=1,aux_ds:numPatterns() do local pat = train_output:getPattern(i) v,p = table.max(pat) if p ~= aux_ds:getPattern(i)[1] then errors = errors + 1 end end print ("ERROR EN TRAINING: ", errors/aux_ds:numPatterns() .. "%", errors) ------------------------------------- local aux_m = matrix(val_input:numPatterns()) local aux_ds = dataset.matrix(aux_m) trainer:classify{ input_dataset = val_input, output_dataset = aux_ds, } local errors = 0 for i=1,aux_ds:numPatterns() do local pat = val_output:getPattern(i) v,p = table.max(pat) if p ~= aux_ds:getPattern(i)[1] then errors = errors + 1 end end print ("ERROR EN VALIDATION: ", errors/aux_ds:numPatterns() .. " %", errors) print("Pulse intro para continuar") io.read('*l') end until opc == 8 end printf("He cargado\n") ppal() april-ann-0.3.1/TEST/digitos/test.lua000066400000000000000000000077501234204160600173060ustar00rootroot00000000000000-- un generador de valores aleatorios... y otros parametros bunch_size = tonumber(arg[1]) or 64 semilla = 1234 weights_random = random(semilla) description = "256 inputs 256 tanh 128 tanh 10 log_softmax" inf = -1 sup = 1 shuffle_random = random(5678) learning_rate = 0.08 momentum = 0.01 weight_decay = 1e-05 max_epochs = 10 -- training and validation errors = { {2.2762842, 2.0276833}, {1.6794761, 1.2444804}, {0.9245928, 0.6157830}, {0.5167769, 0.3807266}, {0.3109381, 0.3248250}, {0.2184281, 0.2167415}, {0.1626369, 0.1783843}, {0.1271410, 0.1495624}, {0.1077118, 0.1718368}, {0.0960633, 0.1591717}, } epsilon = 1e-04 -------------------------------------------------------------- m1 = ImageIO.read(string.get_path(arg[0]) .. "digits.png"):to_grayscale():invert_colors():matrix() train_input = dataset.matrix(m1, { patternSize = {16,16}, offset = {0,0}, numSteps = {80,10}, stepSize = {16,16}, orderStep = {1,0} }) val_input = dataset.matrix(m1, { patternSize = {16,16}, offset = {1280,0}, numSteps = {20,10}, stepSize = {16,16}, orderStep = {1,0} }) -- una matriz pequenya la podemos cargar directamente m2 = matrix(10,{1,0,0,0,0,0,0,0,0,0}) -- ojito con este dataset, fijaros que usa una matriz de dim 1 y talla -- 10 PERO avanza con valor -1 y la considera CIRCULAR en su unica -- dimension train_output = dataset.matrix(m2, { patternSize = {10}, offset = {0}, numSteps = {800}, stepSize = {-1}, circular = {true} }) val_output = dataset.matrix(m2, { patternSize = {10}, offset = {0}, numSteps = {200}, stepSize = {-1}, circular = {true} }) thenet = ann.mlp.all_all.generate(description) if util.is_cuda_available() then thenet:set_use_cuda(true) end trainer = trainable.supervised_trainer(thenet, ann.loss.multi_class_cross_entropy(10), bunch_size) trainer:build() trainer:set_option("learning_rate", learning_rate) trainer:set_option("momentum", momentum) trainer:set_option("weight_decay", weight_decay) -- bias has weight_decay of ZERO trainer:set_layerwise_option("b.", "weight_decay", 0) trainer:randomize_weights{ random = weights_random, inf = inf, sup = sup, use_fanin = true, } -- datos para entrenar datosentrenar = { input_dataset = train_input, output_dataset = train_output, shuffle = shuffle_random, } datosvalidar = { input_dataset = val_input, output_dataset = val_output, } totalepocas = 0 errorval = trainer:validate_dataset(datosvalidar) -- print("# Initial validation error:", errorval) clock = util.stopwatch() clock:go() -- print("Epoch Training Validation") train_func = trainable.train_holdout_validation{ max_epochs = max_epochs } -- training loop while train_func:execute(function() local tr = trainer:train_dataset(datosentrenar) local va = trainer:validate_dataset(datosvalidar) return trainer,tr,va end) do print(train_func:get_state_string()) if bunch_size == 64 then local epoch,errortrain,errorval,best_epoch = train_func:get_state() if math.abs(errortrain - errors[epoch][1]) > epsilon then error(string.format("Training error %g is not equal enough to ".. "reference error %g", errortrain, errors[epoch][1])) end if math.abs(errorval - errors[epoch][2]) > epsilon then error(string.format("Validation error %g is not equal enough to ".. "reference error %g", errorval, errors[epoch][2])) end end -- if best_epoch == epoch then train_func:save("wop.lua", "binary", {shuffle=datosentrenar.shuffle}) end end clock:stop() cpu,wall = clock:read() printf("Wall total time: %.3f per epoch: %.3f\n", wall, wall/max_epochs) printf("CPU total time: %.3f per epoch: %.3f\n", cpu, cpu/max_epochs) -- print("Test passed! OK!") april-ann-0.3.1/TEST/xor/000077500000000000000000000000001234204160600147615ustar00rootroot00000000000000april-ann-0.3.1/TEST/xor/xor-MLP-dot-product-action-transpose-weights.lua000066400000000000000000000110221234204160600261170ustar00rootroot00000000000000learning_rate = 0.4 momentum = 0.1 weight_decay = 1e-05 semilla = 1234 aleat = random(semilla) bunch_size = tonumber(arg[1]) or 64 delta = 1e-05 initial_result = { 0.18666581809521, 0.16942968964577, 0.17109067738056, 0.14423334598541 } final_result = { 0.0135539099, 0.9875200987, 0.9875199199, 0.0143862367 } m = matrix.fromString[[ 19 ascii 1.0 0.1 0.2 -1.0 0.3 0.4 -0.5 -1.2 1.0 -2.0 4.0 -4.0 0.1 1.1 -1.5 -1.0 2.0 2.0 -1.0 ]] bias0_m = matrix.fromString[[ 2 ascii 1.0 -1.0 ]] bias1_m = matrix.fromString[[ 3 ascii -0.5 -2.0 0.1 ]] bias2_m = matrix.fromString[[ 1 ascii -1.0 ]] w0_m = matrix.fromString[[ 4 ascii 0.1 0.2 0.3 0.4 ]] w1t_m = matrix.fromString[[ 6 ascii -1.2 4.0 1.1 1.0 -4.0 -1.5 ]] w2_m = matrix.fromString[[ 3 ascii 2.0 2.0 -1.0 ]] function show_weights(lared) lared:show_weights() print() local outds = dataset.matrix(matrix(4)) lared:use_dataset{ input_dataset = ds_input, output_dataset = outds } for i = 1,ds_input:numPatterns() do value = lared:calculate(ds_input:getPattern(i))[1] printf("%s\t %s\t %s\n", table.concat(ds_input:getPattern(i),","), value, outds:getPattern(i)[1]) end print() end function check_result(lared, result) local outds = dataset.matrix(matrix(4)) lared:use_dataset{ input_dataset = ds_input, output_dataset = outds } for i = 1,ds_input:numPatterns() do value = lared:calculate(ds_input:getPattern(i))[1] if math.abs(value - result[i]) > delta then error("Incorrect result using bunch_size=1!!! expected " .. value .. " was " .. result[i]) end if math.abs(outds:getPattern(i)[1] - result[i]) > delta then error("Incorrect result using bunch_size=" .. bunch_size .."!!!") end end end ----------------------------------------------------------- lared = ann.mlp{ bunch_size = bunch_size } -- neuron layers i = ann.units.real_cod{ size = 2, ann = lared, type = "inputs" } h0 = ann.units.real_cod{ size = 2, ann = lared, type = "hidden" } h1 = ann.units.real_cod{ size = 3, ann = lared, type = "hidden" } o = ann.units.real_cod{ size = 1, ann = lared, type = "outputs" } -- connection layers b0 = ann.connections.bias{ size = h0:num_neurons(), ann = lared, w = bias0_m } c0 = ann.connections.all_all{ input_size = i:num_neurons(), output_size = h0:num_neurons(), ann = lared, w = w0_m} b1 = ann.connections.bias{ size = h1:num_neurons(), ann = lared, w = bias1_m } c1 = ann.connections.all_all{ input_size = h1:num_neurons(), output_size = h0:num_neurons(), ann = lared, w = w1t_m } b2 = ann.connections.bias{ size = o:num_neurons(), ann = lared, w = bias2_m } c2 = ann.connections.all_all{ input_size = h1:num_neurons(), output_size = o:num_neurons(), ann = lared, w = w2_m } -- first layer actions lared:push_back_all_all_layer{ input = i, output = h0, bias = b0, weights = c0, actfunc = ann.activations.tanh() } -- second layer actions lared:push_back_all_all_layer{ input = h0, output = h1, bias = b1, weights = c1, actfunc = ann.activations.tanh(), transpose = true } -- third layer actions lared:push_back_all_all_layer{ input = h1, output = o, bias = b2, weights = c2, actfunc = ann.activations.logistic() } lared:set_option("learning_rate", learning_rate) lared:set_option("momentum", momentum) lared:set_option("weight_decay", weight_decay) lared2=ann.mlp.all_all.generate{ topology = "2 inputs 2 tanh 3 tanh 1 logistic", w = m, oldw = m, bunch_size = bunch_size, } lared2:set_option("learning_rate", learning_rate) lared2:set_option("momentum", momentum) lared2:set_option("weight_decay", weight_decay) m_xor = matrix.fromString[[ 4 3 ascii 0 0 0 0 1 1 1 0 1 1 1 0 ]] ds_input = dataset.matrix(m_xor,{patternSize={1,2}}) ds_output = dataset.matrix(m_xor,{offset={0,2},patternSize={1,1}}) -------- -- GO -- -------- check_result(lared, initial_result) check_result(lared2, initial_result) data = { input_dataset = ds_input, output_dataset = ds_output, shuffle = random(1234) } data2 = { input_dataset = ds_input, output_dataset = ds_output, shuffle = random(1234) } for i=1,30000 do lared:train_dataset(data) lared2:train_dataset(data2) end check_result(lared, final_result) check_result(lared2, final_result) print("TEST PASSED!") april-ann-0.3.1/TEST/xor/xor-output.log000066400000000000000000026502731234204160600176510ustar00rootroot00000000000000---------------------------------------------- ---------------------------------------------- Initial values 0,0 0.49837177991867 0,1 0.56214302778244 1,0 0.74469667673111 1,1 0.47552713751793 b1 -0.5 -2 w1 -1.2000000476837 1 4 -4 b2 -1 w2 2 2 ---------------------------------------------- -------------------------------------------- After forward of (0,0) 0,0 0.48070278763771 0,1 0.54420828819275 1,0 0.73190540075302 1,1 0.45829811692238 b1 -0.52342361211777 -2.0104651451111 w1 -1.1999880075455 0.99998998641968 3.9999599456787 -3.9999599456787 b2 -1.0498366355896 w2 1.9811645746231 1.9940392971039 After forward of (0,1) 0,0 0.49532616138458 0,1 0.56277918815613 1,0 0.74130284786224 1,1 0.47480425238609 b1 -0.50459259748459 -2.0112915039062 w1 -1.1999747753143 1.0211522579193 3.9999158382416 -3.9996957778931 b2 -1.0095974206924 w2 2.0071609020233 1.9935339689255 After one epoch 0,0 0.49234294891357 0,1 0.55632698535919 1,0 0.74045896530151 1,1 0.46828258037567 b1 -0.50956290960312 -2.008068561554 w1 -1.2079700231552 0.9996030330658 3.997017621994 -4.0048341751099 b2 -1.0173752307892 w2 1.9976183176041 2.0027861595154 After two epochs 0,0 0.4862080514431 0,1 0.55045384168625 1,0 0.73615819215775 1,1 0.46092438697815 b1 -0.5194331407547 -2.0166413784027 w1 -1.2164492607117 0.99959456920624 3.9939501285553 -4.0100154876709 b2 -1.035166144371 w2 1.9955781698227 2.0062191486359 After 30000 epochs 3 0.55150872468948 4 0.54351460933685 5 0.53730577230453 6 0.53248238563538 7 0.52831441164017 8 0.52443826198578 9 0.52069306373596 10 0.5170077085495 11 0.51334953308105 12 0.50970274209976 13 0.50605857372284 14 0.50241208076477 15 0.49875983595848 16 0.4950989484787 17 0.49142742156982 18 0.48774337768555 19 0.48404532670975 20 0.48033195734024 21 0.47660219669342 22 0.47285515069962 23 0.46909016370773 24 0.46530672907829 25 0.46150451898575 26 0.45768341422081 27 0.4538434445858 28 0.44998472929001 29 0.44610768556595 30 0.44221284985542 31 0.43830072879791 32 0.43437215685844 33 0.43042802810669 34 0.42646926641464 35 0.42249715328217 36 0.41851270198822 37 0.4145173728466 38 0.41051250696182 39 0.40649956464767 40 0.40248024463654 41 0.39845591783524 42 0.39442843198776 43 0.39039942622185 44 0.38637065887451 45 0.38234385848045 46 0.37832090258598 47 0.3743035197258 48 0.37029355764389 49 0.36629271507263 50 0.3623029589653 51 0.3583260178566 52 0.35436350107193 53 0.35041731595993 54 0.34648910164833 55 0.34258037805557 56 0.33869287371635 57 0.33482813835144 58 0.33098763227463 59 0.32717284560204 60 0.32338500022888 61 0.31962561607361 62 0.31589576601982 63 0.31219679117203 64 0.30852973461151 65 0.30489563941956 66 0.3012954890728 67 0.29773023724556 68 0.29420065879822 69 0.2907075881958 70 0.2872516810894 71 0.28383359313011 72 0.28045389056206 73 0.27711308002472 74 0.27381163835526 75 0.27054989337921 76 0.26732820272446 77 0.26414680480957 78 0.26100593805313 79 0.25790578126907 80 0.25484639406204 81 0.25182798504829 82 0.24885034561157 83 0.24591353535652 84 0.24301758408546 85 0.24016226828098 86 0.23734751343727 87 0.23457309603691 88 0.23183879256248 89 0.22914445400238 90 0.22648973762989 91 0.22387439012527 92 0.22129802405834 93 0.21876040101051 94 0.21626105904579 95 0.21379971504211 96 0.21137595176697 97 0.20898929238319 98 0.20663940906525 99 0.20432585477829 100 0.20204815268517 101 0.19980582594872 102 0.19759848713875 103 0.1954255849123 104 0.19328671693802 105 0.19118142127991 106 0.189109146595 107 0.18706941604614 108 0.18506181240082 109 0.18308579921722 110 0.1811408996582 111 0.1792266368866 112 0.17734250426292 113 0.17548805475235 114 0.17366275191307 115 0.17186616361141 116 0.17009779810905 117 0.16835719347 118 0.16664382815361 119 0.16495731472969 120 0.16329717636108 121 0.16166287660599 122 0.16005408763885 123 0.15847027301788 124 0.1569110751152 125 0.15537595748901 126 0.15386456251144 127 0.15237647294998 128 0.15091122686863 129 0.14946846663952 130 0.14804776012897 131 0.146648645401 132 0.14527082443237 133 0.1439139097929 134 0.14257743954659 135 0.14126119017601 136 0.13996461033821 137 0.13868749141693 138 0.13742941617966 139 0.13619002699852 140 0.13496898114681 141 0.13376598060131 142 0.13258065283298 143 0.13141274452209 144 0.13026186823845 145 0.12912772595882 146 0.12801004946232 147 0.12690848112106 148 0.12582276761532 149 0.12475257366896 150 0.12369769066572 151 0.12265780568123 152 0.12163262069225 153 0.12062194943428 154 0.11962544173002 155 0.11864284425974 156 0.11767396330833 157 0.11671851575375 158 0.11577631533146 159 0.11484704166651 160 0.11393047869205 161 0.11302645504475 162 0.11213468760252 163 0.11125502735376 164 0.11038722097874 165 0.10953103005886 166 0.10868629813194 167 0.10785280913115 168 0.10703033953905 169 0.10621871054173 170 0.10541772842407 171 0.1046272739768 172 0.10384707152843 173 0.10307698696852 174 0.10231684148312 175 0.1015664935112 176 0.10082571208477 177 0.10009437054396 178 0.099372312426567 179 0.098659366369247 180 0.097955398261547 181 0.097260251641273 182 0.096573725342751 183 0.095895759761333 184 0.095226146280766 185 0.094564788043499 186 0.093911550939083 187 0.093266218900681 188 0.09262877702713 189 0.091999031603336 190 0.091376848518848 191 0.090762168169022 192 0.090154767036438 193 0.089554600417614 194 0.088961526751518 195 0.088375464081764 196 0.087796248495579 197 0.087223805487156 198 0.086658000946045 199 0.08609876781702 200 0.085545964539051 201 0.084999516606331 202 0.08445930480957 203 0.083925247192383 204 0.08339723944664 205 0.082875169813633 206 0.082358978688717 207 0.081848561763763 208 0.081343829631805 209 0.080844670534134 210 0.080351069569588 211 0.079862862825394 212 0.079380020499229 213 0.078902415931225 214 0.078429996967316 215 0.077962718904018 216 0.077500462532043 217 0.077043168246746 218 0.076590731739998 219 0.076143115758896 220 0.075700238347054 221 0.075262024998665 222 0.074828423559666 223 0.074399366974831 224 0.073974758386612 225 0.073554553091526 226 0.073138684034348 227 0.072727106511593 228 0.072319746017456 229 0.071916528046131 230 0.071517422795296 231 0.071122340857983 232 0.070731230080128 233 0.070344045758247 234 0.069960787892342 235 0.069581277668476 236 0.069205544888973 237 0.068833544850349 238 0.068465195596218 239 0.068100452423096 240 0.067739270627499 241 0.067381605505943 242 0.067027390003204 243 0.06667660176754 244 0.066329181194305 245 0.065985083580017 246 0.065644264221191 247 0.065306678414345 248 0.064972296357155 249 0.064641065895557 250 0.064312912523746 251 0.063987851142883 252 0.063665807247162 253 0.063346780836582 254 0.063030682504177 255 0.062717497348785 256 0.062407180666924 257 0.062099702656269 258 0.061795026063919 259 0.061493083834648 260 0.061193894594908 261 0.060897387564182 262 0.06060353666544 263 0.060312323272228 264 0.060023687779903 265 0.059737630188465 266 0.059454075992107 267 0.059173014014959 268 0.058894421905279 269 0.058618281036615 270 0.058344528079033 271 0.058073163032532 272 0.057804130017757 273 0.057537406682968 274 0.057272981852293 275 0.057010821998119 276 0.056750886142254 277 0.056493144482374 278 0.056237585842609 279 0.055984176695347 280 0.055732898414135 281 0.055483721196651 282 0.055236630141735 283 0.054991580545902 284 0.054748542606831 285 0.054507538676262 286 0.054268512874842 287 0.054031439125538 288 0.053796291351318 289 0.053563073277473 290 0.053331710398197 291 0.053102225065231 292 0.052874609827995 293 0.052648816257715 294 0.052424810826778 295 0.052202589809895 296 0.051982130855322 297 0.05176342651248 298 0.051546443253756 299 0.051331166177988 300 0.051117576658726 301 0.050905652344227 302 0.050695355981588 303 0.050486713647842 304 0.050279658287764 305 0.050074208527803 306 0.04987033829093 307 0.049668025225401 308 0.049467261880636 309 0.049268022179604 310 0.049070276319981 311 0.048874042928219 312 0.048679266124964 313 0.048485953360796 314 0.048294086009264 315 0.048103667795658 316 0.047914642840624 317 0.047727022320032 318 0.047540776431561 319 0.04735591262579 320 0.047172382473946 321 0.046990223228931 322 0.046809382736683 323 0.046629849821329 324 0.046451613306999 325 0.046274665743113 326 0.046098988503218 327 0.045924581587315 328 0.0457514077425 329 0.045579485595226 330 0.045408762991428 331 0.045239247381687 332 0.045070953667164 333 0.044903814792633 334 0.044737845659256 335 0.044573064893484 336 0.044409409165382 337 0.044246908277273 338 0.044085521250963 339 0.043925240635872 340 0.04376607760787 341 0.043608009815216 342 0.043451003730297 343 0.043295085430145 344 0.043140228837729 345 0.042986407876015 346 0.042833644896746 347 0.042681906372309 348 0.042531177401543 349 0.042381465435028 350 0.042232744395733 351 0.042085025459528 352 0.041938293725252 353 0.041792519390583 354 0.041647713631392 355 0.041503861546516 356 0.041360948234797 357 0.041218981146812 358 0.041077941656113 359 0.040937803685665 360 0.040798582136631 361 0.040660265833139 362 0.040522843599319 363 0.0403863042593 364 0.04025062546134 365 0.04011582955718 366 0.039981886744499 367 0.039848797023296 368 0.03971654176712 369 0.039585143327713 370 0.039454560726881 371 0.039324808865786 372 0.039195846766233 373 0.039067715406418 374 0.038940366357565 375 0.038813829421997 376 0.038688067346811 377 0.038563076406717 378 0.038438856601715 379 0.038315400481224 380 0.038192708045244 381 0.038070775568485 382 0.037949569523335 383 0.037829115986824 384 0.03770936653018 385 0.037590365856886 386 0.037472072988749 387 0.037354487925768 388 0.037237614393234 389 0.037121448665857 390 0.037005957216024 391 0.036891162395477 392 0.036777053028345 393 0.036663606762886 394 0.036550842225552 395 0.036438729614019 396 0.036327283829451 397 0.036216489970684 398 0.036106340587139 399 0.035996824502945 400 0.035887964069843 401 0.035779722034931 402 0.03567210957408 403 0.035565111786127 404 0.035458736121655 405 0.03535296395421 406 0.035247817635536 407 0.035143245011568 408 0.035039287060499 409 0.034935899078846 410 0.034833110868931 411 0.034730896353722 412 0.034629262983799 413 0.034528199583292 414 0.03442769870162 415 0.034327756613493 416 0.034228373318911 417 0.034129537642002 418 0.034031260758638 419 0.033933516591787 420 0.03383631259203 421 0.033739671111107 422 0.033643539994955 423 0.033547945320606 424 0.033452849835157 425 0.03335827589035 426 0.033264230936766 427 0.033170707523823 428 0.033077668398619 429 0.032985143363476 430 0.032893106341362 431 0.032801561057568 432 0.032710518687963 433 0.032619964331388 434 0.032529883086681 435 0.032440282404423 436 0.032351154834032 437 0.0322625041008 438 0.032174315303564 439 0.032086592167616 440 0.031999334692955 441 0.031912542879581 442 0.031826183199883 443 0.031740289181471 444 0.031654842197895 445 0.031569834798574 446 0.03148528188467 447 0.03140114992857 448 0.031317457556725 449 0.031234201043844 450 0.031151369214058 451 0.031068950891495 452 0.03098695538938 453 0.03090538457036 454 0.030824225395918 455 0.030743468552828 456 0.030663130804896 457 0.030583191663027 458 0.030503667891026 459 0.030424535274506 460 0.030345810577273 461 0.030267463997006 462 0.03018950112164 463 0.030111942440271 464 0.030034771189094 465 0.029957979917526 466 0.029881566762924 467 0.029805529862642 468 0.029729872941971 469 0.029654584825039 470 0.029579654335976 471 0.029505096375942 472 0.029430899769068 473 0.029357068240643 474 0.029283598065376 475 0.029210470616817 476 0.029137708246708 477 0.029065292328596 478 0.028993222862482 479 0.028921503573656 480 0.028850130736828 481 0.028779093176126 482 0.028708402067423 483 0.028638044372201 484 0.028568021953106 485 0.028498325496912 486 0.028428964316845 487 0.028359938412905 488 0.028291217982769 489 0.02822283655405 490 0.028154766187072 491 0.028087016195059 492 0.028019577264786 493 0.027952451258898 494 0.027885654941201 495 0.027819158509374 496 0.027752967551351 497 0.027687087655067 498 0.027621511369944 499 0.027556231245399 500 0.027491260319948 501 0.027426583692431 502 0.027362203225493 503 0.027298107743263 504 0.027234308421612 505 0.027170801535249 506 0.027107588946819 507 0.027044661343098 508 0.026982003822923 509 0.026919636875391 510 0.026857556775212 511 0.02679574675858 512 0.026734214276075 513 0.026672959327698 514 0.026611972600222 515 0.026551261544228 516 0.02649081684649 517 0.026430638507009 518 0.026370730251074 519 0.026311084628105 520 0.026251705363393 521 0.026192588731647 522 0.026133723556995 523 0.02607512101531 524 0.026016771793365 525 0.02595866844058 526 0.025900829583406 527 0.025843240320683 528 0.025785904377699 529 0.02572880871594 530 0.02567196637392 531 0.025615371763706 532 0.025559017434716 533 0.025502886623144 534 0.025447005406022 535 0.025391358882189 536 0.02533595636487 537 0.025280775502324 538 0.025225847959518 539 0.02517114020884 540 0.025116676464677 541 0.025062438100576 542 0.025008419528604 543 0.02495464682579 544 0.024901086464524 545 0.024847755208611 546 0.024794640019536 547 0.024741750210524 548 0.024689089506865 549 0.024636633694172 550 0.024584397673607 551 0.024532390758395 552 0.024480590596795 553 0.024429010227323 554 0.024377636611462 555 0.024326466023922 556 0.02427551150322 557 0.024224761873484 558 0.02417422644794 559 0.024123903363943 560 0.024073762819171 561 0.024023843929172 562 0.023974120616913 563 0.023924589157104 564 0.023875273764133 565 0.023826140910387 566 0.023777212947607 567 0.023728489875793 568 0.023679956793785 569 0.023631609976292 570 0.0235834736377 571 0.023535519838333 572 0.023487754166126 573 0.02344018034637 574 0.023392796516418 575 0.023345589637756 576 0.02329858019948 577 0.023251760751009 578 0.023205112665892 579 0.023158660158515 580 0.023112379014492 581 0.023066285997629 582 0.02302036434412 583 0.022974628955126 584 0.022929068654776 585 0.02288369461894 586 0.022838480770588 587 0.022793451324105 588 0.022748593240976 589 0.022703904658556 590 0.022659387439489 591 0.022615049034357 592 0.022570883855224 593 0.022526886314154 594 0.022483043372631 595 0.022439394146204 596 0.022395886480808 597 0.022352552041411 598 0.022309383377433 599 0.022266382351518 600 0.022223537787795 601 0.022180853411555 602 0.022138323634863 603 0.02209597453475 604 0.022053766995668 605 0.022011738270521 606 0.021969851106405 607 0.021928122267127 608 0.021886542439461 609 0.021845124661922 610 0.021803855895996 611 0.021762736141682 612 0.021721778437495 613 0.021680967882276 614 0.021640308201313 615 0.021599795669317 616 0.021559430286288 617 0.021519217640162 618 0.021479148417711 619 0.021439230069518 620 0.021399460732937 621 0.021359827369452 622 0.021320344880223 623 0.021281003952026 624 0.021241806447506 625 0.021202735602856 626 0.021163830533624 627 0.021125053986907 628 0.021086419001222 629 0.021047938615084 630 0.02100956812501 631 0.020971361547709 632 0.020933268591762 633 0.020895326510072 634 0.020857518538833 635 0.020819844678044 636 0.020782295614481 637 0.02074489928782 638 0.020707618445158 639 0.020670469850302 640 0.020633455365896 641 0.020596569404006 642 0.020559810101986 643 0.020523181185126 644 0.020486688241363 645 0.020450318232179 646 0.020414084196091 647 0.020377960056067 648 0.020341977477074 649 0.02030611410737 650 0.020270371809602 651 0.020234754309058 652 0.02019926533103 653 0.020163889974356 654 0.020128650590777 655 0.020093509927392 656 0.020058510825038 657 0.020023638382554 658 0.019988862797618 659 0.019954223185778 660 0.019919693470001 661 0.019885290414095 662 0.019850995391607 663 0.019816815853119 664 0.01978275924921 665 0.019748814404011 666 0.019714983180165 667 0.019681263715029 668 0.019647665321827 669 0.019614182412624 670 0.019580801948905 671 0.01954753883183 672 0.019514385610819 673 0.019481340423226 674 0.019448408856988 675 0.019415581598878 676 0.019382869824767 677 0.01935026794672 678 0.019317777827382 679 0.019285392016172 680 0.019253114238381 681 0.019220940768719 682 0.019188869744539 683 0.019156903028488 684 0.019125046208501 685 0.019093299284577 686 0.019061647355556 687 0.019030103459954 688 0.018998662009835 689 0.018967317417264 690 0.018936090171337 691 0.018904946744442 692 0.018873926252127 693 0.018842991441488 694 0.018812155351043 695 0.018781419843435 696 0.018750784918666 697 0.018720250576735 698 0.018689811229706 699 0.01865947432816 700 0.018629230558872 701 0.018599083647132 702 0.01856903731823 703 0.01853908225894 704 0.018509214743972 705 0.018479447811842 706 0.018449787050486 707 0.018420213833451 708 0.018390741199255 709 0.018361350521445 710 0.018332064151764 711 0.018302861601114 712 0.018273754045367 713 0.018244732171297 714 0.018215810880065 715 0.0181869789958 716 0.018158232793212 717 0.018129579722881 718 0.018101021647453 719 0.018072547391057 720 0.018044160678983 721 0.018015868961811 722 0.017987657338381 723 0.017959533259273 724 0.017931498587132 725 0.017903553321958 726 0.017875688150525 727 0.017847906798124 728 0.017820218577981 729 0.017792606726289 730 0.017765086144209 731 0.017737651243806 732 0.017710294574499 733 0.017683025449514 734 0.017655832692981 735 0.017628727480769 736 0.017601711675525 737 0.017574770376086 738 0.017547912895679 739 0.017521142959595 740 0.017494453117251 741 0.017467835918069 742 0.017441300675273 743 0.017414849251509 744 0.017388481646776 745 0.017362186685205 746 0.017335969954729 747 0.01730982773006 748 0.017283763736486 749 0.0172577816993 750 0.017231879755855 751 0.017206059768796 752 0.017180312424898 753 0.017154648900032 754 0.017129054293036 755 0.017103534191847 756 0.017078084871173 757 0.01705270819366 758 0.017027415335178 759 0.017002195119858 760 0.016977053135633 761 0.016951974481344 762 0.016926977783442 763 0.016902051866055 764 0.016877194866538 765 0.016852412372828 766 0.016827702522278 767 0.016803069040179 768 0.016778504475951 769 0.016754006966949 770 0.016729578375816 771 0.016705233603716 772 0.016680950298905 773 0.016656743362546 774 0.016632599756122 775 0.016608525067568 776 0.01658452488482 777 0.016560589894652 778 0.016536727547646 779 0.016512926667929 780 0.016489192843437 781 0.016465540975332 782 0.016441946849227 783 0.016418416053057 784 0.016394957900047 785 0.016371564939618 786 0.016348233446479 787 0.016324983909726 788 0.016301779076457 789 0.01627865806222 790 0.016255592927337 791 0.016232596710324 792 0.016209665685892 793 0.01618679612875 794 0.016163984313607 795 0.016141248866916 796 0.01611858047545 797 0.016095956787467 798 0.016073418781161 799 0.016050921753049 800 0.016028497368097 801 0.016006134450436 802 0.015983831137419 803 0.015961598604918 804 0.015939425677061 805 0.015917304903269 806 0.015895247459412 807 0.015873258933425 808 0.015851328149438 809 0.015829458832741 810 0.015807639807463 811 0.01578588411212 812 0.015764199197292 813 0.015742555260658 814 0.01572098582983 815 0.015699464827776 816 0.015678005293012 817 0.015656610950828 818 0.015635266900063 819 0.01561398524791 820 0.015592765063047 821 0.015571597963572 822 0.015550492331386 823 0.015529443509877 824 0.015508448705077 825 0.015487506985664 826 0.015466624870896 827 0.015445794910192 828 0.015425026416779 829 0.015404310077429 830 0.015383651480079 831 0.015363048762083 832 0.015342497266829 833 0.01532200537622 834 0.015301560051739 835 0.015281170606613 836 0.015260842628777 837 0.015240564011037 838 0.015220345929265 839 0.015200178138912 840 0.015180058777332 841 0.015159988775849 842 0.015139986760914 843 0.01512002106756 844 0.01510011125356 845 0.01508027408272 846 0.015060464851558 847 0.015040716156363 848 0.015021029859781 849 0.015001386404037 850 0.0149817885831 851 0.01496225129813 852 0.014942759647965 853 0.014923315495253 854 0.014903927221894 855 0.014884586445987 856 0.01486529968679 857 0.014846066012979 858 0.014826875180006 859 0.014807738363743 860 0.014788649044931 861 0.014769606292248 862 0.014750611968338 863 0.014731664210558 864 0.014712769538164 865 0.014693923294544 866 0.01467512268573 867 0.014656372368336 868 0.014637671411037 869 0.014619011431932 870 0.014600416645408 871 0.014581847935915 872 0.014563336037099 873 0.01454486977309 874 0.014526447281241 875 0.014508074149489 876 0.014489749446511 877 0.014471467584372 878 0.014453234151006 879 0.014435046352446 880 0.014416901394725 881 0.0143988057971 882 0.014380754902959 883 0.014362751506269 884 0.014344783499837 885 0.014326871372759 886 0.014309003949165 887 0.014291174709797 888 0.014273393899202 889 0.014255659654737 890 0.014237968251109 891 0.014220320619643 892 0.014202715829015 893 0.014185147359967 894 0.014167636632919 895 0.014150153845549 896 0.014132723212242 897 0.014115344733 898 0.01409799978137 899 0.014080699533224 900 0.01406345050782 901 0.014046231284738 902 0.014029053039849 903 0.014011919498444 904 0.013994829729199 905 0.013977784663439 906 0.013960772193968 907 0.013943810015917 908 0.013926890678704 909 0.013910001143813 910 0.013893160969019 911 0.013876363635063 912 0.013859602622688 913 0.013842881657183 914 0.013826200738549 915 0.013809566386044 916 0.013792963698506 917 0.013776397332549 918 0.013759884983301 919 0.013743407092988 920 0.013726959936321 921 0.013710552826524 922 0.013694194145501 923 0.013677869923413 924 0.01366158016026 925 0.013645336963236 926 0.013629132881761 927 0.013612962327898 928 0.013596834614873 929 0.013580746948719 930 0.013564698398113 931 0.01354867964983 932 0.013532702811062 933 0.013516767881811 934 0.013500866480172 935 0.013485001400113 936 0.01346917822957 937 0.013453386723995 938 0.013437632471323 939 0.013421922922134 940 0.013406247831881 941 0.013390611857176 942 0.013375006616116 943 0.013359441421926 944 0.013343914411962 945 0.013328420929611 946 0.013312962837517 947 0.013297544792295 948 0.01328216213733 949 0.013266803696752 950 0.01325149461627 951 0.013236213475466 952 0.013220970518887 953 0.013205763883889 954 0.013190587051213 955 0.013175448402762 956 0.013160347938538 957 0.01314527913928 958 0.013130242936313 959 0.013115245848894 960 0.013100282289088 961 0.013085343874991 962 0.013070453889668 963 0.013055588118732 964 0.013040757738054 965 0.013025967404246 966 0.013011207804084 967 0.012996482662857 968 0.012981785461307 969 0.012967132031918 970 0.01295250095427 971 0.012937913648784 972 0.012923354282975 973 0.012908826582134 974 0.012894329614937 975 0.012879873625934 976 0.012865439988673 977 0.012851046398282 978 0.012836683541536 979 0.012822350487113 980 0.01280805002898 981 0.012793783098459 982 0.012779545970261 983 0.012765346094966 984 0.012751175090671 985 0.012737032026052 986 0.012722929939628 987 0.012708856724203 988 0.01269480958581 989 0.012680796906352 990 0.012666815891862 991 0.012652860023081 992 0.012638944201171 993 0.012625051662326 994 0.012611194513738 995 0.012597368098795 996 0.01258357334882 997 0.012569800019264 998 0.012556066736579 999 0.012542354874313 1000 0.01252868026495 1001 0.012515028938651 1002 0.012501418590546 1003 0.012487827800214 1004 0.012474270537496 1005 0.012460739351809 1006 0.012447238899767 1007 0.012433772906661 1008 0.012420334853232 1009 0.01240692101419 1010 0.01239353697747 1011 0.012380190193653 1012 0.012366870418191 1013 0.012353572994471 1014 0.012340305373073 1015 0.01232706848532 1016 0.012313861399889 1017 0.012300685979426 1018 0.01228753477335 1019 0.012274409644306 1020 0.012261316180229 1021 0.01224825438112 1022 0.012235218659043 1023 0.012222208082676 1024 0.012209224514663 1025 0.012196272611618 1026 0.012183342128992 1027 0.012170443311334 1028 0.012157578021288 1029 0.012144733220339 1030 0.012131919153035 1031 0.01211913023144 1032 0.012106371112168 1033 0.012093641795218 1034 0.0120809385553 1035 0.012068253941834 1036 0.012055604718626 1037 0.012042980641127 1038 0.012030380778015 1039 0.012017814442515 1040 0.012005265802145 1041 0.01199275162071 1042 0.011980256997049 1043 0.011967789381742 1044 0.011955351568758 1045 0.011942928656936 1046 0.011930544860661 1047 0.011918183416128 1048 0.011905849911273 1049 0.011893536895514 1050 0.011881247162819 1051 0.011868988163769 1052 0.011856758035719 1053 0.011844548396766 1054 0.0118323629722 1055 0.011820199899375 1056 0.011808067560196 1057 0.011795963160694 1058 0.011783875524998 1059 0.011771814897656 1060 0.011759782209992 1061 0.011747772805393 1062 0.01173579134047 1063 0.01172383222729 1064 0.011711901053786 1065 0.01169999409467 1066 0.011688109487295 1067 0.01167624630034 1068 0.011664411984384 1069 0.011652598157525 1070 0.011640813201666 1071 0.011629052460194 1072 0.011617313139141 1073 0.011605597101152 1074 0.01159390155226 1075 0.011582237668335 1076 0.011570592410862 1077 0.011558973230422 1078 0.011547373607755 1079 0.011535807512701 1080 0.01152426097542 1081 0.011512742377818 1082 0.011501238681376 1083 0.011489755474031 1084 0.011478304862976 1085 0.01146687194705 1086 0.011455470696092 1087 0.011444082483649 1088 0.011432724073529 1089 0.011421382427216 1090 0.011410065926611 1091 0.011398771777749 1092 0.011387497186661 1093 0.01137625053525 1094 0.011365025304258 1095 0.01135382335633 1096 0.011342636309564 1097 0.01133147906512 1098 0.011320343241096 1099 0.011309221386909 1100 0.011298132129014 1101 0.011287061497569 1102 0.011276014149189 1103 0.011264978908002 1104 0.011253975331783 1105 0.011242993175983 1106 0.011232035234571 1107 0.011221089400351 1108 0.011210168711841 1109 0.011199267581105 1110 0.011188390664756 1111 0.011177537962794 1112 0.011166702955961 1113 0.01115589030087 1114 0.011145102791488 1115 0.01113433483988 1116 0.011123587377369 1117 0.0111128622666 1118 0.011102151125669 1119 0.011091469787061 1120 0.011080801486969 1121 0.011070162057877 1122 0.011059539392591 1123 0.011048937216401 1124 0.011038351804018 1125 0.011027789674699 1126 0.011017251759768 1127 0.011006731539965 1128 0.010996229946613 1129 0.010985754430294 1130 0.010975290089846 1131 0.01096485927701 1132 0.010954445227981 1133 0.010944047942758 1134 0.010933663696051 1135 0.010923311114311 1136 0.010912971571088 1137 0.010902658104897 1138 0.010892360471189 1139 0.010882078669965 1140 0.010871821083128 1141 0.010861586779356 1142 0.010851364582777 1143 0.010841162875295 1144 0.010830985382199 1145 0.010820818133652 1146 0.010810674168169 1147 0.010800555348396 1148 0.010790449567139 1149 0.010780367068946 1150 0.010770298540592 1151 0.010760253295302 1152 0.010750228539109 1153 0.010740218684077 1154 0.010730231180787 1155 0.010720259509981 1156 0.010710304602981 1157 0.01070037484169 1158 0.010690455324948 1159 0.010680560953915 1160 0.010670688003302 1161 0.010660827159882 1162 0.010650986805558 1163 0.010641162283719 1164 0.010631355457008 1165 0.010621573776007 1166 0.010611809790134 1167 0.010602060705423 1168 0.010592327453196 1169 0.010582618415356 1170 0.010572926141322 1171 0.010563247837126 1172 0.010553596541286 1173 0.010543957352638 1174 0.010534330271184 1175 0.010524730198085 1176 0.010515146888793 1177 0.010505583137274 1178 0.010496036149561 1179 0.01048650033772 1180 0.010476985014975 1181 0.010467489250004 1182 0.010458008386195 1183 0.010448548942804 1184 0.01043910626322 1185 0.010429677553475 1186 0.010420271195471 1187 0.010410880669951 1188 0.010401505976915 1189 0.01039214618504 1190 0.010382810607553 1191 0.010373482480645 1192 0.01036417670548 1193 0.01035488769412 1194 0.010345617309213 1195 0.010336363688111 1196 0.010327121242881 1197 0.010317903012037 1198 0.010308695025742 1199 0.010299506597221 1200 0.010290334932506 1201 0.01028118096292 1202 0.010272040963173 1203 0.010262914933264 1204 0.010253809392452 1205 0.010244721546769 1206 0.01023564953357 1207 0.010226593352854 1208 0.0102175520733 1209 0.01020853035152 1210 0.010199517942965 1211 0.010190527886152 1212 0.010181549936533 1213 0.010172591544688 1214 0.010163646191359 1215 0.010154720395803 1216 0.010145808570087 1217 0.010136914439499 1218 0.010128032416105 1219 0.01011916808784 1220 0.010110319592059 1221 0.010101485997438 1222 0.010092665441334 1223 0.010083869099617 1224 0.010075083933771 1225 0.010066314600408 1226 0.010057561099529 1227 0.010048824362457 1228 0.010040102526546 1229 0.01003139372915 1230 0.010022707283497 1231 0.010014029219747 1232 0.010005367919803 1233 0.0099967233836651 1234 0.0099880984053016 1235 0.0099794799461961 1236 0.0099708838388324 1237 0.0099622998386621 1238 0.0099537251517177 1239 0.0099451700225472 1240 0.0099366381764412 1241 0.0099281081929803 1242 0.0099196014925838 1243 0.0099111087620258 1244 0.0099026300013065 1245 0.0098941642791033 1246 0.0098857181146741 1247 0.0098772821947932 1248 0.0098688649013638 1249 0.0098604597151279 1250 0.0098520666360855 1251 0.0098436903208494 1252 0.0098353298380971 1253 0.0098269833251834 1254 0.0098186498507857 1255 0.0098103331401944 1256 0.0098020285367966 1257 0.0097937360405922 1258 0.0097854658961296 1259 0.0097772078588605 1260 0.0097689609974623 1261 0.0097607271745801 1262 0.0097525082528591 1263 0.0097442977130413 1264 0.009736105799675 1265 0.0097279343754053 1266 0.0097197694703937 1267 0.0097116222605109 1268 0.0097034871578217 1269 0.009695366024971 1270 0.0096872579306364 1271 0.0096791656687856 1272 0.0096710883080959 1273 0.0096630249172449 1274 0.0096549689769745 1275 0.0096469316631556 1276 0.0096389027312398 1277 0.0096308905631304 1278 0.0096228923648596 1279 0.0096149099990726 1280 0.0096069388091564 1281 0.0095989825204015 1282 0.00959103833884 1283 0.0095831137150526 1284 0.0095751937478781 1285 0.0095672952011228 1286 0.0095594059675932 1287 0.0095515307039022 1288 0.0095436703413725 1289 0.0095358220860362 1290 0.0095279859378934 1291 0.0095201637595892 1292 0.0095123555511236 1293 0.0095045613124967 1294 0.0094967726618052 1295 0.0094890100881457 1296 0.0094812493771315 1297 0.0094735026359558 1298 0.0094657754525542 1299 0.009458058513701 1300 0.009450351819396 1301 0.00944266282022 1302 0.0094349831342697 1303 0.0094273202121258 1304 0.0094196628779173 1305 0.0094120278954506 1306 0.0094043966382742 1307 0.009396780282259 1308 0.0093891751021147 1309 0.0093815885484219 1310 0.0093740122392774 1311 0.0093664452433586 1312 0.0093588931486011 1313 0.0093513522297144 1314 0.0093438215553761 1315 0.0093363057821989 1316 0.0093288039788604 1317 0.0093213124200702 1318 0.009313833899796 1319 0.0093063684180379 1320 0.0092989169061184 1321 0.0092914709821343 1322 0.0092840427532792 1323 0.0092766266316175 1324 0.0092692235484719 1325 0.0092618297785521 1326 0.0092544546350837 1327 0.0092470813542604 1328 0.0092397220432758 1329 0.0092323757708073 1330 0.0092250416055322 1331 0.0092177214100957 1332 0.0092104151844978 1333 0.0092031173408031 1334 0.0091958306729794 1335 0.0091885579749942 1336 0.009181291796267 1337 0.0091740414500237 1338 0.0091668013483286 1339 0.0091595761477947 1340 0.0091523583978415 1341 0.0091451574116945 1342 0.0091379657387733 1343 0.0091307796537876 1344 0.0091236103326082 1345 0.0091164549812675 1346 0.0091093108057976 1347 0.0091021787375212 1348 0.0090950597077608 1349 0.009087948128581 1350 0.0090808514505625 1351 0.0090737584978342 1352 0.009066678583622 1353 0.0090596172958612 1354 0.0090525578707457 1355 0.009045522660017 1356 0.0090384902432561 1357 0.0090314708650112 1358 0.009024465456605 1359 0.0090174647048116 1360 0.0090104760602117 1361 0.0090035023167729 1362 0.0089965434744954 1363 0.0089895892888308 1364 0.0089826509356499 1365 0.0089757200330496 1366 0.0089688021689653 1367 0.0089618936181068 1368 0.0089549915865064 1369 0.0089481100440025 1370 0.0089412312954664 1371 0.0089343711733818 1372 0.0089275129139423 1373 0.0089206742122769 1374 0.0089138392359018 1375 0.0089070154353976 1376 0.0089002065360546 1377 0.0088934069499373 1378 0.0088866213336587 1379 0.0088798403739929 1380 0.0088730761781335 1381 0.0088663166388869 1382 0.0088595654815435 1383 0.0088528273627162 1384 0.0088460994884372 1385 0.008839382790029 1386 0.0088326772674918 1387 0.0088259857147932 1388 0.0088193025439978 1389 0.0088126268237829 1390 0.0088059650734067 1391 0.0087993126362562 1392 0.0087926667183638 1393 0.0087860338389874 1394 0.0087794130668044 1395 0.0087727997452021 1396 0.0087661994621158 1397 0.0087596084922552 1398 0.0087530240416527 1399 0.0087464498355985 1400 0.0087398868054152 1401 0.0087333340197802 1402 0.0087267924100161 1403 0.00872025731951 1404 0.0087137361988425 1405 0.0087072243914008 1406 0.0087007228285074 1407 0.0086942296475172 1408 0.008687749505043 1409 0.0086812758818269 1410 0.0086748152971268 1411 0.0086683630943298 1412 0.0086619257926941 1413 0.0086554978042841 1414 0.0086490800604224 1415 0.0086426716297865 1416 0.0086362659931183 1417 0.008629878051579 1418 0.0086234919726849 1419 0.0086171207949519 1420 0.0086107570677996 1421 0.008604409173131 1422 0.0085980668663979 1423 0.0085917338728905 1424 0.008585412055254 1425 0.0085790967568755 1426 0.0085727889090776 1427 0.0085664987564087 1428 0.0085602169856429 1429 0.0085539445281029 1430 0.008547680452466 1431 0.0085414238274097 1432 0.0085351746529341 1433 0.0085289422422647 1434 0.008522710762918 1435 0.0085164923220873 1436 0.0085102869197726 1437 0.0085040889680386 1438 0.0084978975355625 1439 0.0084917172789574 1440 0.0084855509921908 1441 0.0084793865680695 1442 0.0084732361137867 1443 0.0084670903161168 1444 0.0084609519690275 1445 0.0084548247978091 1446 0.0084487088024616 1447 0.0084426030516624 1448 0.0084365038201213 1449 0.0084304139018059 1450 0.0084243332967162 1451 0.008418258279562 1452 0.0084121953696012 1453 0.0084061417728662 1454 0.0084000946953893 1455 0.0083940615877509 1456 0.0083880368620157 1457 0.0083820158615708 1458 0.008376007899642 1459 0.008370004594326 1460 0.0083640115335584 1461 0.0083580296486616 1462 0.0083520542830229 1463 0.008346090093255 1464 0.0083401324227452 1465 0.0083341849967837 1466 0.008328246884048 1467 0.0083223171532154 1468 0.0083163976669312 1469 0.0083104837685823 1470 0.0083045763894916 1471 0.0082986811175942 1472 0.0082927905023098 1473 0.0082869110628963 1474 0.0082810465246439 1475 0.0082751829177141 1476 0.0082693304866552 1477 0.0082634883001447 1478 0.0082576498389244 1479 0.0082518197596073 1480 0.0082460036501288 1481 0.0082401912659407 1482 0.0082343947142363 1483 0.0082285962998867 1484 0.0082228099927306 1485 0.0082170385867357 1486 0.0082112727686763 1487 0.008205508813262 1488 0.0081997606903315 1489 0.0081940153613687 1490 0.008188284933567 1491 0.0081825582310557 1492 0.0081768436357379 1493 0.0081711346283555 1494 0.0081654284149408 1495 0.0081597361713648 1496 0.0081540551036596 1497 0.0081483777612448 1498 0.0081427106633782 1499 0.0081370519474149 1500 0.0081314034759998 1501 0.0081257596611977 1502 0.0081201251596212 1503 0.008114499039948 1504 0.0081088822335005 1505 0.008103271946311 1506 0.0080976700410247 1507 0.0080920765176415 1508 0.0080864951014519 1509 0.0080809108912945 1510 0.0080753397196531 1511 0.0080697797238827 1512 0.0080642243847251 1513 0.0080586774274707 1514 0.0080531388521194 1515 0.0080476058647037 1516 0.0080420840531588 1517 0.0080365696921945 1518 0.0080310609191656 1519 0.0080255642533302 1520 0.0080200731754303 1521 0.0080145830288529 1522 0.0080091040581465 1523 0.0080036344006658 1524 0.0079981731250882 1525 0.0079927239567041 1526 0.0079872785136104 1527 0.0079818405210972 1528 0.0079764146357775 1529 0.00797098595649 1530 0.0079655693843961 1531 0.0079601602628827 1532 0.0079547585919499 1533 0.0079493680968881 1534 0.0079439859837294 1535 0.0079386094585061 1536 0.0079332366585732 1537 0.0079278750345111 1538 0.0079225171357393 1539 0.0079171694815159 1540 0.0079118320718408 1541 0.0079064983874559 1542 0.0079011702910066 1543 0.0078958515077829 1544 0.0078905448317528 1545 0.0078852381557226 1546 0.0078799454495311 1547 0.0078746564686298 1548 0.0078693749383092 1549 0.0078641017898917 1550 0.0078588323667645 1551 0.007853570394218 1552 0.0078483195975423 1553 0.0078430706635118 1554 0.0078378431499004 1555 0.0078326109796762 1556 0.0078273918479681 1557 0.0078221736475825 1558 0.0078169694170356 1559 0.0078117670491338 1560 0.0078065749257803 1561 0.0078013893216848 1562 0.007796207908541 1563 0.0077910330146551 1564 0.0077858730219305 1565 0.0077807172201574 1566 0.0077755670063198 1567 0.007770424708724 1568 0.0077652875334024 1569 0.0077601596713066 1570 0.0077550401911139 1571 0.0077499258331954 1572 0.007744817994535 1573 0.0077397199347615 1574 0.0077346251346171 1575 0.0077295424416661 1576 0.0077244648709893 1577 0.0077193924225867 1578 0.0077143255621195 1579 0.0077092670835555 1580 0.0077042169868946 1581 0.0076991692185402 1582 0.0076941344887018 1583 0.0076891011558473 1584 0.0076840776018798 1585 0.0076790582388639 1586 0.0076740472577512 1587 0.0076690455898643 1588 0.0076640462502837 1589 0.0076590590178967 1590 0.007654074113816 1591 0.0076490971259773 1592 0.0076441285200417 1593 0.0076391631737351 1594 0.0076342048123479 1595 0.0076292562298477 1596 0.0076243095099926 1597 0.0076193725690246 1598 0.0076144388876855 1599 0.0076095182448626 1600 0.0076046027243137 1601 0.0075996881350875 1602 0.0075947875156999 1603 0.0075898887589574 1604 0.0075849969871342 1605 0.0075801089406013 1606 0.0075752316042781 1607 0.0075703556649387 1608 0.0075654918327928 1609 0.007560633122921 1610 0.0075557790696621 1611 0.0075509338639677 1612 0.0075460998341441 1613 0.0075412630103528 1614 0.0075364368967712 1615 0.0075316182337701 1616 0.0075268018990755 1617 0.0075219958089292 1618 0.0075171925127506 1619 0.0075123952701688 1620 0.0075076050125062 1621 0.007502824999392 1622 0.0074980491772294 1623 0.0074932835996151 1624 0.0074885184876621 1625 0.0074837594293058 1626 0.0074790106154978 1627 0.007474263664335 1628 0.0074695260263979 1629 0.0074647916480899 1630 0.0074600642547011 1631 0.0074553438462317 1632 0.007450632750988 1633 0.0074459286406636 1634 0.0074412296526134 1635 0.0074365376494825 1636 0.0074318470433354 1637 0.0074271690100431 1638 0.0074224909767509 1639 0.0074178227223456 1640 0.0074131572619081 1641 0.0074084978550673 1642 0.0074038468301296 1643 0.0073992013931274 1644 0.0073945634067059 1645 0.0073899310082197 1646 0.0073853079229593 1647 0.0073806867003441 1648 0.007376073859632 1649 0.007371467538178 1650 0.0073668640106916 1651 0.0073622679337859 1652 0.0073576793074608 1653 0.0073530972003937 1654 0.0073485188186169 1655 0.0073439422994852 1656 0.0073393792845309 1657 0.007334821857512 1658 0.0073302704840899 1659 0.0073257219046354 1660 0.0073211761191487 1661 0.0073166415095329 1662 0.0073121096938848 1663 0.0073075857944787 1664 0.0073030679486692 1665 0.0072985524311662 1666 0.0072940466925502 1667 0.0072895423509181 1668 0.0072850491851568 1669 0.0072805602103472 1670 0.007276073563844 1671 0.0072715962305665 1672 0.0072671240195632 1673 0.0072626606561244 1674 0.0072581958957016 1675 0.0072537399828434 1676 0.007249291986227 1677 0.0072448486462235 1678 0.0072404071688652 1679 0.0072359726764262 1680 0.0072315465658903 1681 0.0072271251119673 1682 0.0072227097116411 1683 0.0072183003649116 1684 0.0072138942778111 1685 0.0072094965726137 1686 0.0072051035240293 1687 0.0072007123380899 1688 0.007196331396699 1689 0.0071919532492757 1690 0.0071875788271427 1691 0.0071832123212516 1692 0.0071788509376347 1693 0.0071744993329048 1694 0.0071701472625136 1695 0.0071658031083643 1696 0.0071614682674408 1697 0.0071571348235011 1698 0.0071528051048517 1699 0.0071484828367829 1700 0.0071441656909883 1701 0.0071398545987904 1702 0.0071355472318828 1703 0.0071312468498945 1704 0.0071269501931965 1705 0.0071226605214179 1706 0.0071183731779456 1707 0.0071140960790217 1708 0.0071098241023719 1709 0.0071055539883673 1710 0.0071012927219272 1711 0.0070970309898257 1712 0.0070927804335952 1713 0.0070885345339775 1714 0.0070842914283276 1715 0.0070800576359034 1716 0.007075825240463 1717 0.0070716002956033 1718 0.0070673818700016 1719 0.0070631699636579 1720 0.007058959454298 1721 0.0070547582581639 1722 0.007050558924675 1723 0.0070463619194925 1724 0.007042174693197 1725 0.0070379916578531 1726 0.0070338109508157 1727 0.0070296423509717 1728 0.0070254723541439 1729 0.0070213139988482 1730 0.0070171589031816 1731 0.0070130047388375 1732 0.007008861284703 1733 0.0070047220215201 1734 0.0070005883462727 1735 0.0069964583963156 1736 0.0069923349656165 1737 0.0069882115349174 1738 0.0069840955547988 1739 0.0069799842312932 1740 0.0069758780300617 1741 0.006971781142056 1742 0.0069676898419857 1743 0.0069635966792703 1744 0.0069595109671354 1745 0.0069554322399199 1746 0.0069513567723334 1747 0.0069472878240049 1748 0.0069432239979506 1749 0.0069391648285091 1750 0.0069351075217128 1751 0.0069310558028519 1752 0.0069270096719265 1753 0.0069229695945978 1754 0.006918934173882 1755 0.0069149006158113 1756 0.0069108726456761 1757 0.0069068511947989 1758 0.0069028344005346 1759 0.0068988241255283 1760 0.0068948203697801 1761 0.0068908166140318 1762 0.0068868212401867 1763 0.0068828295916319 1764 0.0068788421340287 1765 0.0068748611956835 1766 0.0068708844482899 1767 0.0068669114261866 1768 0.0068629421293736 1769 0.0068589774891734 1770 0.006855022162199 1771 0.0068510663695633 1772 0.0068471180275083 1773 0.0068431776016951 1774 0.0068392353132367 1775 0.0068353014066815 1776 0.0068313740193844 1777 0.0068274475634098 1778 0.0068235266953707 1779 0.0068196142092347 1780 0.0068157026544213 1781 0.006811794359237 1782 0.0068078911863267 1783 0.0068039912730455 1784 0.0068000992760062 1785 0.0067962124012411 1786 0.0067923278547823 1787 0.0067884493619204 1788 0.0067845778539777 1789 0.006780709605664 1790 0.0067768441513181 1791 0.0067729838192463 1792 0.0067691281437874 1793 0.0067652799189091 1794 0.0067614293657243 1795 0.0067575881257653 1796 0.0067537524737418 1797 0.0067499177530408 1798 0.0067460872232914 1799 0.0067422613501549 1800 0.0067384447902441 1801 0.006734627764672 1802 0.006730823777616 1803 0.0067270174622536 1804 0.0067232172004879 1805 0.0067194239236414 1806 0.0067156297154725 1807 0.0067118434235454 1808 0.006708063185215 1809 0.0067042848095298 1810 0.0067005124874413 1811 0.0066967415623367 1812 0.0066929776221514 1813 0.0066892174072564 1814 0.0066854669712484 1815 0.0066817170009017 1816 0.0066779721528292 1817 0.006674234289676 1818 0.0066704973578453 1819 0.0066667627543211 1820 0.0066630365327001 1821 0.0066593098454177 1822 0.0066555957309902 1823 0.0066518802195787 1824 0.0066481698304415 1825 0.0066444608382881 1826 0.0066407583653927 1827 0.0066370647400618 1828 0.006633372977376 1829 0.0066296830773354 1830 0.006626000162214 1831 0.0066223191097379 1832 0.0066186469048262 1833 0.0066149733029306 1834 0.0066113071516156 1835 0.0066076414659619 1836 0.0066039869561791 1837 0.0066003301180899 1838 0.006596677005291 1839 0.0065930341370404 1840 0.0065893931314349 1841 0.0065857539884746 1842 0.0065821199677885 1843 0.0065784910693765 1844 0.0065748649649322 1845 0.0065712449140847 1846 0.0065676299855113 1847 0.0065640169195831 1848 0.0065604099072516 1849 0.0065568080171943 1850 0.0065532033331692 1851 0.0065496088936925 1852 0.0065460163168609 1853 0.0065424302592874 1854 0.0065388455986977 1855 0.0065352646633983 1856 0.0065316874533892 1857 0.0065281176939607 1858 0.0065245479345322 1859 0.006520985160023 1860 0.0065174251794815 1861 0.0065138717181981 1862 0.0065103229135275 1863 0.0065067745745182 1864 0.0065032336860895 1865 0.0064996937289834 1866 0.0064961607567966 1867 0.0064926310442388 1868 0.0064891004003584 1869 0.0064855795353651 1870 0.0064820586703718 1871 0.0064785447902977 1872 0.0064750341698527 1873 0.0064715277403593 1874 0.0064680208452046 1875 0.0064645246602595 1876 0.0064610298722982 1877 0.0064575355499983 1878 0.0064540500752628 1879 0.0064505683258176 1880 0.006447090767324 1881 0.0064436136744916 1882 0.0064401412382722 1883 0.0064366739243269 1884 0.0064332103356719 1885 0.0064297509379685 1886 0.0064262943342328 1887 0.006422839127481 1888 0.0064193946309388 1889 0.0064159510657191 1890 0.0064125098288059 1891 0.0064090732485056 1892 0.0064056455157697 1893 0.0064022168517113 1894 0.0063987970352173 1895 0.006395373493433 1896 0.0063919606618583 1897 0.0063885487616062 1898 0.0063851405866444 1899 0.0063817356713116 1900 0.0063783349469304 1901 0.0063749342225492 1902 0.0063715428113937 1903 0.0063681560568511 1904 0.0063647693023086 1905 0.0063613913953304 1906 0.0063580139540136 1907 0.0063546421006322 1908 0.0063512730412185 1909 0.0063479077070951 1910 0.0063445474952459 1911 0.0063411872833967 1912 0.0063378373160958 1913 0.0063344854861498 1914 0.006331137381494 1915 0.0063277925364673 1916 0.0063244560733438 1917 0.0063211200758815 1918 0.0063177864067256 1919 0.0063144573941827 1920 0.0063111362978816 1921 0.0063078133389354 1922 0.0063044968992472 1923 0.0063011813908815 1924 0.0062978737987578 1925 0.0062945690006018 1926 0.0062912683933973 1927 0.0062879724428058 1928 0.0062846732325852 1929 0.0062813838012516 1930 0.0062780966982245 1931 0.0062748119235039 1932 0.0062715313397348 1933 0.006268254481256 1934 0.0062649771571159 1935 0.006261708214879 1936 0.006258440669626 1937 0.0062551777809858 1938 0.0062519176863134 1939 0.0062486622482538 1940 0.0062454091385007 1941 0.0062421597540379 1942 0.006238916888833 1943 0.006235676817596 1944 0.0062324390746653 1945 0.0062292064540088 1946 0.0062259761616588 1947 0.0062227454036474 1948 0.0062195248901844 1949 0.0062163020484149 1950 0.0062130894511938 1951 0.0062098749913275 1952 0.0062066637910903 1953 0.0062034567818046 1954 0.0062002534978092 1955 0.0061970553360879 1956 0.0061938581056893 1957 0.0061906636692584 1958 0.0061874757520854 1959 0.0061842883005738 1960 0.0061811073683202 1961 0.0061779282987118 1962 0.0061747548170388 1963 0.0061715836636722 1964 0.0061684139072895 1965 0.0061652478761971 1966 0.0061620892956853 1967 0.006158928386867 1968 0.0061557749286294 1969 0.0061526210047305 1970 0.0061494736000896 1971 0.0061463280580938 1972 0.0061431876383722 1973 0.0061400486156344 1974 0.0061369128525257 1975 0.0061337822116911 1976 0.0061306552961469 1977 0.006127530708909 1978 0.0061244089156389 1979 0.0061212931759655 1980 0.0061181802302599 1981 0.006115070078522 1982 0.0061119608581066 1983 0.0061088558286428 1984 0.006105755455792 1985 0.0061026550829411 1986 0.0060995621606708 1987 0.0060964720323682 1988 0.0060933851636946 1989 0.0060903020203114 1990 0.0060872230678797 1991 0.0060841436497867 1992 0.0060810698196292 1993 0.0060779992491007 1994 0.0060749342665076 1995 0.0060718692839146 1996 0.006068809889257 1997 0.0060657532885671 1998 0.0060626957565546 1999 0.006059649400413 2000 0.0060566011816263 2001 0.0060535576194525 2002 0.0060505168512464 2003 0.0060474802739918 2004 0.0060444450937212 2005 0.0060414141044021 2006 0.0060383882373571 2007 0.0060353642329574 2008 0.0060323453508317 2009 0.0060293264687061 2010 0.0060263117775321 2011 0.0060232998803258 2012 0.0060202935710549 2013 0.0060172900557518 2014 0.0060142884030938 2015 0.0060112904757261 2016 0.0060082944110036 2017 0.0060053025372326 2018 0.006002314388752 2019 0.0059993299655616 2020 0.0059963464736938 2021 0.0059933662414551 2022 0.0059903915971518 2023 0.0059874197468162 2024 0.0059844474308193 2025 0.005981482565403 2026 0.0059785172343254 2027 0.0059755574911833 2028 0.005972599145025 2029 0.0059696421958506 2030 0.0059666903689504 2031 0.005963739939034 2032 0.0059607946313918 2033 0.0059578521177173 2034 0.0059549133293331 2035 0.0059519768692553 2036 0.0059490422718227 2037 0.0059461127966642 2038 0.0059431870467961 2039 0.0059402603656054 2040 0.0059373378753662 2041 0.0059344219043851 2042 0.0059315068647265 2043 0.0059285946190357 2044 0.0059256888926029 2045 0.0059227794408798 2046 0.0059198755770922 2047 0.0059169768355787 2048 0.0059140794910491 2049 0.0059111849404871 2050 0.0059082936495543 2051 0.0059054070152342 2052 0.0059025208465755 2053 0.0058996398001909 2054 0.0058967582881451 2055 0.0058938842266798 2056 0.0058910120278597 2057 0.0058881370350718 2058 0.0058852690272033 2059 0.0058824075385928 2060 0.005879545584321 2061 0.005876689683646 2062 0.0058738328516483 2063 0.0058709811419249 2064 0.005868130363524 2065 0.0058652833104134 2066 0.0058624409139156 2067 0.0058596013113856 2068 0.0058567635715008 2069 0.0058539295569062 2070 0.0058510936796665 2071 0.0058482680469751 2072 0.0058454419486225 2073 0.0058426177129149 2074 0.0058397958055139 2075 0.0058369804173708 2076 0.0058341645635664 2077 0.0058313542976975 2078 0.0058285444974899 2079 0.0058257365599275 2080 0.0058229332789779 2081 0.0058201337233186 2082 0.0058173323050141 2083 0.0058145397342741 2084 0.0058117480948567 2085 0.0058089606463909 2086 0.0058061704039574 2087 0.0058033857494593 2088 0.0058006071485579 2089 0.0057978322729468 2090 0.0057950573973358 2091 0.0057922871783376 2092 0.005789521150291 2093 0.0057867523282766 2094 0.0057839909568429 2095 0.0057812300510705 2096 0.0057784751988947 2097 0.00577571708709 2098 0.0057729668915272 2099 0.0057702166959643 2100 0.0057674725539982 2101 0.0057647307403386 2102 0.0057619903236628 2103 0.0057592540979385 2104 0.0057565188035369 2105 0.0057537858374417 2106 0.0057510584592819 2107 0.0057483329437673 2108 0.005745611153543 2109 0.0057428912259638 2110 0.0057401722297072 2111 0.0057374588213861 2112 0.0057347477413714 2113 0.0057320352643728 2114 0.005729328840971 2115 0.0057266233488917 2116 0.0057239229790866 2117 0.0057212258689106 2118 0.0057185310870409 2119 0.0057158381678164 2120 0.005713147111237 2121 0.0057104611769319 2122 0.0057077733799815 2123 0.0057050948962569 2124 0.005702412687242 2125 0.0056997369974852 2126 0.0056970599107444 2127 0.005694386549294 2128 0.0056917192414403 2129 0.0056890514679253 2130 0.0056863892823458 2131 0.0056837256997824 2132 0.0056810700334609 2133 0.0056784115731716 2134 0.0056757582351565 2135 0.0056731118820608 2136 0.0056704599410295 2137 0.0056678149849176 2138 0.0056651700288057 2139 0.0056625306606293 2140 0.0056598950177431 2141 0.0056572612375021 2142 0.0056546283885837 2143 0.0056519974023104 2144 0.0056493724696338 2145 0.0056467480026186 2146 0.005644123069942 2147 0.0056415079161525 2148 0.0056388881057501 2149 0.005636275280267 2150 0.0056336643174291 2151 0.0056310561485589 2152 0.0056284507736564 2153 0.0056258481927216 2154 0.0056232437491417 2155 0.0056206467561424 2156 0.0056180479004979 2157 0.0056154550984502 2158 0.0056128641590476 2159 0.005610273219645 2160 0.0056076874025166 2161 0.0056051034480333 2162 0.0056025227531791 2163 0.0055999448522925 2164 0.0055973683483899 2165 0.0055947965011001 2166 0.0055922237224877 2167 0.0055896542035043 2168 0.0055870884098113 2169 0.0055845249444246 2170 0.0055819656699896 2171 0.005579405464232 2172 0.0055768517777324 2173 0.0055742976255715 2174 0.0055717471987009 2175 0.0055692009627819 2176 0.0055666519328952 2177 0.00556410709396 2178 0.0055615669116378 2179 0.0055590285919607 2180 0.00555649260059 2181 0.0055539589375257 2182 0.0055514266714454 2183 0.005548897664994 2184 0.0055463747121394 2185 0.0055438494309783 2186 0.0055413288064301 2187 0.005538806784898 2188 0.0055362903513014 2189 0.0055337781086564 2190 0.0055312663316727 2191 0.0055287545546889 2192 0.0055262483656406 2193 0.0055237440392375 2194 0.0055212406441569 2195 0.0055187423713505 2196 0.0055162431672215 2197 0.0055137509480119 2198 0.0055112577974796 2199 0.0055087683722377 2200 0.005506279412657 2201 0.0055037960410118 2202 0.0055013122037053 2203 0.0054988348856568 2204 0.0054963575676084 2205 0.0054938867688179 2206 0.0054914150387049 2207 0.0054889456368983 2208 0.005486476700753 2209 0.0054840133525431 2210 0.0054815509356558 2211 0.0054790917783976 2212 0.0054766349494457 2213 0.0054741809144616 2214 0.0054717282764614 2215 0.0054692807607353 2216 0.0054668323136866 2217 0.0054643847979605 2218 0.0054619428701699 2219 0.0054595009423792 2220 0.0054570618085563 2221 0.0054546259343624 2222 0.0054521923884749 2223 0.0054497602395713 2224 0.0054473336786032 2225 0.0054449080489576 2226 0.0054424805566669 2227 0.0054400600492954 2228 0.0054376390762627 2229 0.0054352227598429 2230 0.0054328078404069 2231 0.0054303929209709 2232 0.0054279807955027 2233 0.0054255714640021 2234 0.0054231672547758 2235 0.0054207635112107 2236 0.005418362095952 2237 0.0054159620776772 2238 0.0054135643877089 2239 0.0054111704230309 2240 0.0054087750613689 2241 0.0054063862189651 2242 0.0054039992392063 2243 0.0054016122594476 2244 0.0053992276079953 2245 0.0053968443535268 2246 0.0053944666869938 2247 0.0053920899517834 2248 0.0053897155448794 2249 0.005387342069298 2250 0.0053849704563618 2251 0.0053826058283448 2252 0.0053802393376827 2253 0.0053778719156981 2254 0.0053755091503263 2255 0.0053731519728899 2256 0.005370793864131 2257 0.0053684408776462 2258 0.0053660869598389 2259 0.0053637367673218 2260 0.0053613884374499 2261 0.0053590419702232 2262 0.0053567020222545 2263 0.0053543583489954 2264 0.0053520202636719 2265 0.0053496831096709 2266 0.0053473459556699 2267 0.0053450148552656 2268 0.0053426837548614 2269 0.0053403535857797 2270 0.0053380280733109 2271 0.0053357044234872 2272 0.0053333826363087 2273 0.0053310603834689 2274 0.0053287409245968 2275 0.0053264279849827 2276 0.0053241159766912 2277 0.0053218030370772 2278 0.0053194919601083 2279 0.0053171864710748 2280 0.0053148828446865 2281 0.0053125768899918 2282 0.0053102765232325 2283 0.0053079784847796 2284 0.0053056813776493 2285 0.0053033865988255 2286 0.0053010960109532 2287 0.0052988058887422 2288 0.0052965171635151 2289 0.0052942330949008 2290 0.0052919471636415 2291 0.0052896644920111 2292 0.005287385545671 2293 0.0052851084619761 2294 0.0052828318439424 2295 0.0052805603481829 2296 0.005278289783746 2297 0.005276020616293 2298 0.0052737537771463 2299 0.0052714883349836 2300 0.0052692256867886 2301 0.0052669635042548 2302 0.0052647050470114 2303 0.0052624503150582 2304 0.0052601951174438 2305 0.0052579399198294 2306 0.0052556903101504 2307 0.0052534425631166 2308 0.0052511976100504 2309 0.005248952191323 2310 0.0052467109635472 2311 0.0052444702014327 2312 0.0052422331646085 2313 0.0052399979904294 2314 0.0052377604879439 2315 0.0052355313673615 2316 0.0052333027124405 2317 0.0052310763858259 2318 0.0052288509905338 2319 0.0052266288548708 2320 0.0052244095131755 2321 0.005222191568464 2322 0.005219975952059 2323 0.0052177617326379 2324 0.0052155507728457 2325 0.005213338881731 2326 0.0052111316472292 2327 0.0052089258097112 2328 0.005206722766161 2329 0.0052045220509171 2330 0.0052023204043508 2331 0.0052001243457198 2332 0.0051979259587824 2333 0.0051957350224257 2334 0.0051935417577624 2335 0.0051913522183895 2336 0.0051891645416617 2337 0.0051869777962565 2338 0.0051847938448191 2339 0.0051826140843332 2340 0.0051804324612021 2341 0.0051782540977001 2342 0.0051760794594884 2343 0.0051739062182605 2344 0.0051717301830649 2345 0.0051695629954338 2346 0.0051673953421414 2347 0.0051652286201715 2348 0.005163062363863 2349 0.0051608998328447 2350 0.0051587396301329 2351 0.0051565803587437 2352 0.0051544229499996 2353 0.0051522655412555 2354 0.005150112323463 2355 0.005147963296622 2356 0.0051458147354424 2357 0.0051436661742628 2358 0.0051415218040347 2359 0.0051393792964518 2360 0.0051372363232076 2361 0.0051351003348827 2362 0.0051329638808966 2363 0.0051308260299265 2364 0.0051286928355694 2365 0.0051265619695187 2366 0.0051244329661131 2367 0.0051223048940301 2368 0.0051201791502535 2369 0.0051180557347834 2370 0.0051159327849746 2371 0.0051138121634722 2372 0.0051116929389536 2373 0.0051095755770802 2374 0.0051074605435133 2375 0.0051053473725915 2376 0.005103234667331 2377 0.0051011266186833 2378 0.005099019035697 2379 0.0050969100557268 2380 0.0050948103889823 2381 0.0050927079282701 2382 0.0050906087271869 2383 0.005088513251394 2384 0.0050864149816334 2385 0.0050843195058405 2386 0.0050822282209992 2387 0.0050801364704967 2388 0.0050780461169779 2389 0.0050759594887495 2390 0.0050738761201501 2391 0.0050717950798571 2392 0.0050697126425803 2393 0.005067631136626 2394 0.0050655556842685 2395 0.0050634797662497 2396 0.0050614052452147 2397 0.0050593325868249 2398 0.0050572622567415 2399 0.0050551937893033 2400 0.0050531253218651 2401 0.0050510601140559 2402 0.005048998631537 2403 0.0050469376146793 2404 0.0050448747351766 2405 0.0050428174436092 2406 0.0050407601520419 2407 0.005038705188781 2408 0.0050366553477943 2409 0.0050346041098237 2410 0.0050325533375144 2411 0.005030507221818 2412 0.0050284606404603 2413 0.005026416387409 2414 0.0050243744626641 2415 0.0050223339349031 2416 0.0050202943384647 2417 0.0050182598643005 2418 0.0050162221305072 2419 0.0050141918472946 2420 0.0050121597014368 2421 0.0050101322121918 2422 0.005008103325963 2423 0.0050060790963471 2424 0.005004053004086 2425 0.0050020320340991 2426 0.0050000105984509 2427 0.0049979910254478 2428 0.0049959742464125 2429 0.0049939593300223 2430 0.0049919444136322 2431 0.0049899341538548 2432 0.0049879215657711 2433 0.0049859145656228 2434 0.0049839112907648 2435 0.0049819066189229 2436 0.0049799042753875 2437 0.0049779047258198 2438 0.0049759075045586 2439 0.0049739102832973 2440 0.0049719177186489 2441 0.0049699251540005 2442 0.0049679335206747 2443 0.0049659451469779 2444 0.0049639600329101 2445 0.0049619758501649 2446 0.0049599916674197 2447 0.0049580093473196 2448 0.0049560302868485 2449 0.0049540512263775 2450 0.0049520740285516 2451 0.0049500977620482 2452 0.0049481247551739 2453 0.0049461517482996 2454 0.0049441829323769 2455 0.0049422131851315 2456 0.0049402434378862 2457 0.0049382783472538 2458 0.0049363169819117 2459 0.0049343528226018 2460 0.0049323914572597 2461 0.004930435679853 2462 0.0049284780398011 2463 0.004926523193717 2464 0.0049245692789555 2465 0.0049226167611778 2466 0.0049206665717065 2467 0.0049187187105417 2468 0.0049167741090059 2469 0.0049148295074701 2470 0.0049128876999021 2471 0.0049109440296888 2472 0.0049090040847659 2473 0.0049070664681494 2474 0.0049051297828555 2475 0.0049031926319003 2476 0.0049012592062354 2477 0.0048993285745382 2478 0.0048973988741636 2479 0.0048954668454826 2480 0.0048935427330434 2481 0.0048916144296527 2482 0.0048896917141974 2483 0.0048877680674195 2484 0.0048858467489481 2485 0.0048839282244444 2486 0.004882013425231 2487 0.0048800967633724 2488 0.004878181964159 2489 0.0048762708902359 2490 0.0048743593506515 2491 0.0048724482767284 2492 0.0048705404624343 2493 0.0048686340451241 2494 0.004866729490459 2495 0.0048648277297616 2496 0.0048629269003868 2497 0.0048610256053507 2498 0.0048591289669275 2499 0.0048572327941656 2500 0.0048553398810327 2501 0.0048534460365772 2502 0.0048515540547669 2503 0.004849664401263 2504 0.0048477775417268 2505 0.0048458906821907 2506 0.0048440042883158 2507 0.0048421202227473 2508 0.0048402366228402 2509 0.0048383548855782 2510 0.0048364754766226 2511 0.0048346002586186 2512 0.004832724109292 2513 0.0048308484256268 2514 0.0048289764672518 2515 0.0048271026462317 2516 0.0048252362757921 2517 0.004823365714401 2518 0.0048214998096228 2519 0.0048196343705058 2520 0.0048177721910179 2521 0.0048159090802073 2522 0.0048140492290258 2523 0.0048121879808605 2524 0.0048103304579854 2525 0.0048084771260619 2526 0.0048066219314933 2527 0.0048047704622149 2528 0.0048029194585979 2529 0.0048010698519647 2530 0.004799222573638 2531 0.0047973780892789 2532 0.0047955298796296 2533 0.0047936881892383 2534 0.0047918469645083 2535 0.0047900057397783 2536 0.0047881677746773 2537 0.0047863298095763 2538 0.0047844937071204 2539 0.004782659932971 2540 0.0047808256931603 2541 0.0047789942473173 2542 0.0047771651297808 2543 0.0047753332182765 2544 0.0047735068947077 2545 0.0047716819681227 2546 0.0047698589041829 2547 0.0047680353745818 2548 0.0047662174329162 2549 0.0047643962316215 2550 0.0047625792212784 2551 0.0047607626765966 2552 0.0047589489258826 2553 0.0047571337781847 2554 0.0047553232870996 2555 0.0047535141929984 2556 0.0047517050988972 2557 0.0047498964704573 2558 0.004748092032969 2559 0.0047462903894484 2560 0.0047444910742342 2561 0.0047426889650524 2562 0.0047408905811608 2563 0.0047390926629305 2564 0.0047372970730066 2565 0.0047355038113892 2566 0.0047337105497718 2567 0.0047319214791059 2568 0.0047301319427788 2569 0.0047283433377743 2570 0.0047265561297536 2571 0.0047247735783458 2572 0.0047229886986315 2573 0.004721206612885 2574 0.004719425458461 2575 0.0047176475636661 2576 0.0047158719971776 2577 0.0047140931710601 2578 0.004712319932878 2579 0.0047105471603572 2580 0.0047087757848203 2581 0.0047070034779608 2582 0.0047052358277142 2583 0.004703470505774 2584 0.00470170378685 2585 0.0046999398618937 2586 0.0046981787309051 2587 0.0046964175999165 2588 0.004694658331573 2589 0.0046928995288908 2590 0.0046911435201764 2591 0.0046893879771233 2592 0.0046876333653927 2593 0.0046858806163073 2594 0.0046841283328831 2595 0.004682379309088 2596 0.0046806307509542 2597 0.0046788807958364 2598 0.0046771359629929 2599 0.0046753920614719 2600 0.0046736490912735 2601 0.0046719051897526 2602 0.0046701664105058 2603 0.0046684266999364 2604 0.0046666893176734 2605 0.0046649533323944 2606 0.0046632182784379 2607 0.0046614869497716 2608 0.0046597556211054 2609 0.0046580247581005 2610 0.0046562952920794 2611 0.004654566757381 2612 0.0046528419479728 2613 0.0046511148102582 2614 0.0046493909321725 2615 0.0046476693823934 2616 0.004645949229598 2617 0.0046442309394479 2618 0.0046425117179751 2619 0.004640799947083 2620 0.0046390816569328 2621 0.0046373684890568 2622 0.0046356562525034 2623 0.0046339454129338 2624 0.0046322336420417 2625 0.004630527459085 2626 0.004628820810467 2627 0.0046271122992039 2628 0.0046254089102149 2629 0.0046237064525485 2630 0.0046220044605434 2631 0.0046203024685383 2632 0.0046186046674848 2633 0.0046169068664312 2634 0.0046152104623616 2635 0.0046135121956468 2636 0.0046118185855448 2637 0.0046101287007332 2638 0.0046084374189377 2639 0.0046067479997873 2640 0.0046050581149757 2641 0.0046033719554543 2642 0.0046016862615943 2643 0.0046000024303794 2644 0.0045983195304871 2645 0.004596637096256 2646 0.0045949583873153 2647 0.004593278747052 2648 0.0045916060917079 2649 0.0045899278484285 2650 0.004588252864778 2651 0.004586580209434 2652 0.0045849089510739 2653 0.0045832367613912 2654 0.0045815696939826 2655 0.0045799007639289 2656 0.0045782341621816 2657 0.0045765666291118 2658 0.0045749051496387 2659 0.0045732408761978 2660 0.0045715803280473 2661 0.0045699174515903 2662 0.0045682610943913 2663 0.0045666014775634 2664 0.0045649437233806 2665 0.0045632887631655 2666 0.0045616338029504 2667 0.004559981636703 2668 0.0045583294704556 2669 0.0045566782355309 2670 0.0045550297945738 2671 0.0045533822849393 2672 0.0045517357066274 2673 0.0045500919222832 2674 0.0045484504662454 2675 0.0045468062162399 2676 0.0045451652258635 2677 0.0045435247011483 2678 0.0045418869704008 2679 0.0045402483083308 2680 0.0045386147685349 2681 0.0045369807630777 2682 0.0045353495515883 2683 0.0045337174087763 2684 0.004532088059932 2685 0.0045304596424103 2686 0.0045288288965821 2687 0.004527204670012 2688 0.0045255795121193 2689 0.0045239557512105 2690 0.0045223319903016 2691 0.0045207119546831 2692 0.0045190914534032 2693 0.0045174714177847 2694 0.0045158546417952 2695 0.0045142387971282 2696 0.004512625746429 2697 0.0045110094361007 2698 0.0045094001106918 2699 0.0045077889226377 2700 0.0045061800628901 2701 0.004504575394094 2702 0.0045029670000076 2703 0.0045013627968729 2704 0.0044997581280768 2705 0.0044981562532485 2706 0.0044965539127588 2707 0.0044949557632208 2708 0.004493358079344 2709 0.0044917585328221 2710 0.0044901659712195 2711 0.0044885720126331 2712 0.0044869780540466 2713 0.0044853892177343 2714 0.0044837975874543 2715 0.0044822068884969 2716 0.0044806199148297 2717 0.0044790324755013 2718 0.0044774464331567 2719 0.0044758599251509 2720 0.0044742776080966 2721 0.0044726943597198 2722 0.0044711139053106 2723 0.0044695325195789 2724 0.0044679529964924 2725 0.0044663762673736 2726 0.004464800003916 2727 0.0044632242061198 2728 0.0044616488739848 2729 0.0044600758701563 2730 0.0044585056602955 2731 0.0044569335877895 2732 0.0044553610496223 2733 0.0044537945650518 2734 0.00445222761482 2735 0.0044506601989269 2736 0.0044490965083241 2737 0.0044475328177214 2738 0.0044459719210863 2739 0.0044444091618061 2740 0.0044428491964936 2741 0.0044412929564714 2742 0.0044397376477718 2743 0.0044381790794432 2744 0.0044366270303726 2745 0.0044350735843182 2746 0.0044335210695863 2747 0.004431969486177 2748 0.0044304211623967 2749 0.0044288714416325 2750 0.0044273231178522 2751 0.0044257780537009 2752 0.0044242311269045 2753 0.0044226879253983 2754 0.0044211456552148 2755 0.0044196024537086 2756 0.0044180606491864 2757 0.0044165207073092 2758 0.0044149816967547 2759 0.0044134454801679 2760 0.0044119083322585 2761 0.0044103749096394 2762 0.004408841021359 2763 0.0044073075987399 2764 0.0044057755731046 2765 0.0044042454101145 2766 0.0044027157127857 2767 0.0044011850841343 2768 0.0043996600434184 2769 0.0043981322087348 2770 0.004396609030664 2771 0.0043950863182545 2772 0.0043935654684901 2773 0.0043920436874032 2774 0.0043905228376389 2775 0.0043890033848584 2776 0.0043874867260456 2777 0.004385971929878 2778 0.0043844543397427 2779 0.0043829423375428 2780 0.0043814303353429 2781 0.0043799206614494 2782 0.0043784100562334 2783 0.00437690038234 2784 0.0043753921054304 2785 0.0043738856911659 2786 0.0043723792769015 2787 0.0043708751909435 2788 0.0043693706393242 2789 0.0043678665533662 2790 0.0043663652613759 2791 0.0043648649007082 2792 0.0043633636087179 2793 0.0043618669733405 2794 0.0043603712692857 2795 0.004358874168247 2796 0.004357379861176 2797 0.0043558860197663 2798 0.0043543912470341 2799 0.0043529001995921 2800 0.0043514077551663 2801 0.0043499190360308 2802 0.0043484317138791 2803 0.0043469425290823 2804 0.0043454566039145 2805 0.0043439720757306 2806 0.0043424880132079 2807 0.0043410039506853 2808 0.0043395212851465 2809 0.0043380381539464 2810 0.0043365606106818 2811 0.0043350839987397 2812 0.0043336041271687 2813 0.0043321289122105 2814 0.0043306555598974 2815 0.0043291808106005 2816 0.0043277083896101 2817 0.0043262368999422 2818 0.0043247672729194 2819 0.004323298111558 2820 0.0043218284845352 2821 0.0043203635141253 2822 0.0043188976123929 2823 0.0043174317106605 2824 0.0043159686028957 2825 0.0043145073577762 2826 0.0043130456469953 2827 0.0043115857988596 2828 0.00431012455374 2829 0.0043086665682495 2830 0.0043072081170976 2831 0.0043057505972683 2832 0.0043042949400842 2833 0.0043028416112065 2834 0.004301386885345 2835 0.0042999349534512 2836 0.0042984839528799 2837 0.0042970334179699 2838 0.0042955838143826 2839 0.0042941379360855 2840 0.0042926934547722 2841 0.0042912485077977 2842 0.0042898068204522 2843 0.004288362339139 2844 0.0042869220487773 2845 0.0042854812927544 2846 0.0042840433306992 2847 0.0042826058343053 2848 0.0042811692692339 2849 0.0042797341011465 2850 0.0042783012613654 2851 0.0042768665589392 2852 0.0042754337191582 2853 0.0042740050703287 2854 0.0042725731618702 2855 0.0042711440473795 2856 0.0042697167955339 2857 0.0042682928033173 2858 0.0042668664827943 2859 0.00426543969661 2860 0.004264016635716 2861 0.0042625917121768 2862 0.0042611700482666 2863 0.0042597483843565 2864 0.0042583290487528 2865 0.0042569106444716 2866 0.0042554927058518 2867 0.0042540747672319 2868 0.0042526591569185 2869 0.0042512444779277 2870 0.0042498307302594 2871 0.0042484179139137 2872 0.0042470069602132 2873 0.0042455941438675 2874 0.0042441845871508 2875 0.0042427750304341 2876 0.0042413678020239 2877 0.0042399610392749 2878 0.0042385556735098 2879 0.0042371498420835 2880 0.0042357482016087 2881 0.0042343437671661 2882 0.0042329430580139 2883 0.0042315423488617 2884 0.004230142571032 2885 0.0042287455871701 2886 0.0042273481376469 2887 0.0042259516194463 2888 0.0042245583608747 2889 0.0042231655679643 2890 0.0042217718437314 2891 0.0042203813791275 2892 0.004218989983201 2893 0.0042176004499197 2894 0.0042162118479609 2895 0.0042148232460022 2896 0.0042134360410273 2897 0.004212049767375 2898 0.0042106662876904 2899 0.0042092809453607 2900 0.0042078983969986 2901 0.0042065158486366 2902 0.004205135628581 2903 0.0042037544772029 2904 0.004202373791486 2905 0.0042009949684143 2906 0.004199618473649 2907 0.0041982419788837 2908 0.0041968626901507 2909 0.0041954917833209 2910 0.0041941152885556 2911 0.0041927434504032 2912 0.0041913716122508 2913 0.0041900002397597 2914 0.0041886325925589 2915 0.0041872630827129 2916 0.0041858945041895 2917 0.0041845291852951 2918 0.0041831624694169 2919 0.0041817990131676 2920 0.0041804355569184 2921 0.0041790730319917 2922 0.0041777100414038 2923 0.0041763507761061 2924 0.0041749915108085 2925 0.0041736345738173 2926 0.0041722757741809 2927 0.0041709197685122 2928 0.00416956609115 2929 0.0041682124137878 2930 0.0041668587364256 2931 0.0041655064560473 2932 0.0041641560383141 2933 0.0041628051549196 2934 0.0041614547371864 2935 0.0041601061820984 2936 0.0041587599553168 2937 0.0041574127972126 2938 0.0041560679674149 2939 0.0041547226719558 2940 0.0041533792391419 2941 0.0041520339436829 2942 0.0041506933048368 2943 0.0041493512690067 2944 0.0041480101644993 2945 0.0041466699913144 2946 0.0041453335434198 2947 0.0041439947672188 2948 0.004142657853663 2949 0.0041413237340748 2950 0.004139986820519 2951 0.0041386550292373 2952 0.0041373209096491 2953 0.0041359886527061 2954 0.0041346563957632 2955 0.0041333260014653 2956 0.0041319960728288 2957 0.0041306680068374 2958 0.004129339940846 2959 0.0041280146688223 2960 0.0041266870684922 2961 0.0041253645904362 2962 0.0041240397840738 2963 0.0041227163746953 2964 0.0041213948279619 2965 0.0041200751438737 2966 0.0041187573224306 2967 0.0041174357756972 2968 0.0041161216795444 2969 0.0041148047894239 2970 0.0041134874336421 2971 0.0041121738031507 2972 0.0041108601726592 2973 0.0041095488704741 2974 0.0041082361713052 2975 0.0041069248691201 2976 0.0041056144982576 2977 0.0041043041273952 2978 0.0041029960848391 2979 0.0041016885079443 2980 0.0041003804653883 2981 0.0040990766137838 2982 0.0040977713651955 2983 0.0040964661166072 2984 0.0040951645933092 2985 0.0040938602760434 2986 0.0040925606153905 2987 0.0040912604890764 2988 0.0040899617597461 2989 0.0040886644273996 2990 0.0040873670950532 2991 0.0040860720910132 2992 0.0040847761556506 2993 0.004083483479917 2994 0.0040821898728609 2995 0.0040808981284499 2996 0.0040796073153615 2997 0.0040783178992569 2998 0.0040770284831524 2999 0.0040757423266768 3000 0.0040744538418949 3001 0.0040731700137258 3002 0.0040718857198954 3003 0.0040706009604037 3004 0.004069316200912 3005 0.0040680360980332 3006 0.0040667545981705 3007 0.0040654735639691 3008 0.0040641948580742 3009 0.0040629161521792 3010 0.0040616397745907 3011 0.0040603633970022 3012 0.004059087485075 3013 0.0040578106418252 3014 0.0040565384551883 3015 0.0040552653372288 3016 0.0040539940819144 3017 0.0040527214296162 3018 0.0040514501743019 3019 0.0040501798503101 3020 0.0040489099919796 3021 0.0040476424619555 3022 0.0040463749319315 3023 0.0040451092645526 3024 0.0040438422001898 3025 0.0040425797924399 3026 0.004041314125061 3027 0.0040400503203273 3028 0.0040387888439 3029 0.0040375264361501 3030 0.0040362658910453 3031 0.0040350048802793 3032 0.004033746663481 3033 0.0040324879810214 3034 0.004031231161207 3035 0.0040299762040377 3036 0.0040287175215781 3037 0.0040274625644088 3038 0.0040262099355459 3039 0.0040249549783766 3040 0.0040237032808363 3041 0.0040224511176348 3042 0.0040212012827396 3043 0.0040199500508606 3044 0.0040187039412558 3045 0.0040174569003284 3046 0.0040162117220461 3047 0.0040149679407477 3048 0.0040137227624655 3049 0.0040124803781509 3050 0.0040112370625138 3051 0.0040099946781993 3052 0.0040087546221912 3053 0.0040075154975057 3054 0.0040062768384814 3055 0.0040050367824733 3056 0.0040037985891104 3057 0.00400256132707 3058 0.0040013249963522 3059 0.0040000923909247 3060 0.0039988569915295 3061 0.0039976229891181 3062 0.0039963889867067 3063 0.0039951573126018 3064 0.0039939265698195 3065 0.0039926967583597 3066 0.003991465549916 3067 0.0039902362041175 3068 0.0039890091866255 3069 0.0039877817034721 3070 0.0039865560829639 3071 0.0039853299967945 3072 0.0039841057732701 3073 0.0039828829467297 3074 0.003981658257544 3075 0.0039804358966649 3076 0.0039792121388018 3077 0.0039779916405678 3078 0.003976771607995 3079 0.0039755534380674 3080 0.0039743334054947 3081 0.0039731152355671 3082 0.0039718993939459 3083 0.0039706830866635 3084 0.0039694677107036 3085 0.0039682546630502 3086 0.0039670411497355 3087 0.0039658276364207 3088 0.0039646164514124 3089 0.0039634080603719 3090 0.0039621964097023 3091 0.0039609894156456 3092 0.0039597819559276 3093 0.0039585758931935 3094 0.0039573688991368 3095 0.0039561637677252 3096 0.0039549595676363 3097 0.003953754901886 3098 0.0039525548927486 3099 0.0039513520896435 3100 0.0039501525461674 3101 0.0039489497430623 3102 0.0039477506652474 3103 0.0039465520530939 3104 0.0039453529752791 3105 0.0039441557601094 3106 0.003942959010601 3107 0.0039417636580765 3108 0.003940568305552 3109 0.0039393738843501 3110 0.0039381803944707 3111 0.0039369887672365 3112 0.0039357943460345 3113 0.0039346036501229 3114 0.0039334143511951 3115 0.0039322231896222 3116 0.0039310352876782 3117 0.003929846920073 3118 0.0039286590181291 3119 0.0039274711161852 3120 0.0039262869395316 3121 0.0039251009002328 3122 0.0039239157922566 3123 0.0039227325469255 3124 0.0039215502329171 3125 0.003920366987586 3126 0.0039191865362227 3127 0.0039180037565529 3128 0.0039168242365122 3129 0.0039156461134553 3130 0.0039144679903984 3131 0.0039132894016802 3132 0.0039121122099459 3133 0.0039109387435019 3134 0.0039097634144127 3135 0.0039085908792913 3136 0.0039074160158634 3137 0.0039062458090484 3138 0.0039050760678947 3139 0.0039039044640958 3140 0.0039027330931276 3141 0.0039015670772642 3142 0.0039003975689411 3143 0.0038992301560938 3144 0.0038980641402304 3145 0.0038968976587057 3146 0.00389573443681 3147 0.0038945705164224 3148 0.0038934093900025 3149 0.0038922461681068 3150 0.0038910848088562 3151 0.003889923915267 3152 0.0038887655828148 3153 0.0038876086473465 3154 0.0038864500820637 3155 0.0038852924481034 3156 0.003884136211127 3157 0.0038829806726426 3158 0.0038818274624646 3159 0.0038806728553027 3160 0.003879520110786 3161 0.0038783648051322 3162 0.0038772136904299 3163 0.0038760621100664 3164 0.0038749123923481 3165 0.0038737640716136 3166 0.003872616449371 3167 0.0038714674301445 3168 0.0038703200407326 3169 0.003869173116982 3170 0.0038680289871991 3171 0.0038668839260936 3172 0.0038657381664962 3173 0.0038645949680358 3174 0.00386345339939 3175 0.0038623139262199 3176 0.0038611735217273 3177 0.0038600331172347 3178 0.0038588945753872 3179 0.0038577574305236 3180 0.0038566200528294 3181 0.0038554843049496 3182 0.0038543473929167 3183 0.0038532137405127 3184 0.0038520791567862 3185 0.0038509464357048 3186 0.0038498132489622 3187 0.0038486793637276 3188 0.0038475489709526 3189 0.0038464171811938 3190 0.0038452888838947 3191 0.0038441605865955 3192 0.0038430311251432 3193 0.0038419025950134 3194 0.0038407768588513 3195 0.0038396490272135 3196 0.0038385239895433 3197 0.0038373980205506 3198 0.0038362741470337 3199 0.0038351500406861 3200 0.0038340275641531 3201 0.0038329060189426 3202 0.0038317837752402 3203 0.0038306633941829 3204 0.0038295409176499 3205 0.0038284214679152 3206 0.0038273031823337 3207 0.0038261862937361 3208 0.0038250689394772 3209 0.0038239525165409 3210 0.0038228349294513 3211 0.0038217187393457 3212 0.0038206041790545 3213 0.0038194919470698 3214 0.0038183773867786 3215 0.0038172630593181 3216 0.0038161515258253 3217 0.003815040923655 3218 0.0038139303214848 3219 0.0038128211162984 3220 0.0038117109797895 3221 0.0038106043357402 3222 0.0038094972260296 3223 0.0038083889521658 3224 0.0038072839379311 3225 0.0038061791565269 3226 0.003805075539276 3227 0.003803972620517 3228 0.0038028706330806 3229 0.0038017691113055 3230 0.0038006668910384 3231 0.0037995679304004 3232 0.0037984675727785 3233 0.0037973688449711 3234 0.0037962715141475 3235 0.0037951753474772 3236 0.0037940773181617 3237 0.0037929811514914 3238 0.0037918852176517 3239 0.0037907906807959 3240 0.0037896973080933 3241 0.0037886037025601 3242 0.0037875103298575 3243 0.0037864176556468 3244 0.0037853270769119 3245 0.0037842351011932 3246 0.0037831466179341 3247 0.0037820569705218 3248 0.0037809675559402 3249 0.0037798807024956 3250 0.0037787940818816 3251 0.003777707926929 3252 0.0037766217719764 3253 0.0037755351513624 3254 0.0037744503933936 3255 0.0037733663339168 3256 0.0037722843699157 3257 0.0037712007761002 3258 0.0037701183464378 3259 0.003769036848098 3260 0.0037679560482502 3261 0.0037668761797249 3262 0.0037657984066755 3263 0.0037647183053195 3264 0.0037636407651007 3265 0.0037625632248819 3266 0.0037614873144776 3267 0.003760410938412 3268 0.0037593350280076 3269 0.003758261911571 3270 0.0037571848370135 3271 0.0037561117205769 3272 0.0037550402339548 3273 0.0037539689801633 3274 0.0037528979592025 3275 0.0037518285680562 3276 0.0037507601082325 3277 0.0037496916484088 3278 0.0037486243527383 3279 0.0037475563585758 3280 0.003746491856873 3281 0.0037454245612025 3282 0.003744360525161 3283 0.0037432969547808 3284 0.0037422333844006 3285 0.0037411702796817 3286 0.0037401062436402 3287 0.0037390438374132 3288 0.0037379832938313 3289 0.0037369236815721 3290 0.0037358640693128 3291 0.003734806086868 3292 0.0037337474059314 3293 0.0037326894234866 3294 0.0037316312082112 3295 0.0037305748555809 3296 0.0037295203655958 3297 0.0037284642457962 3298 0.0037274085916579 3299 0.0037263550329953 3300 0.0037253017071635 3301 0.0037242500111461 3302 0.0037231990136206 3303 0.0037221466191113 3304 0.0037210951559246 3305 0.0037200434599072 3306 0.0037189950235188 3307 0.0037179468199611 3308 0.0037168990820646 3309 0.0037158508785069 3310 0.0037148038391024 3311 0.0037137563340366 3312 0.0037127113901079 3313 0.0037116669118404 3314 0.0037106226664037 3315 0.0037095786537975 3316 0.0037085365038365 3317 0.0037074931897223 3318 0.0037064524367452 3319 0.0037054130807519 3320 0.0037043746560812 3321 0.003703334601596 3322 0.0037022959440947 3323 0.0037012593820691 3324 0.0037002230528742 3325 0.003699189517647 3326 0.0036981557495892 3327 0.003697122214362 3328 0.003696087282151 3329 0.0036950553767383 3330 0.0036940248683095 3331 0.0036929936613888 3332 0.0036919610574841 3333 0.0036909321788698 3334 0.0036899026017636 3335 0.0036888746544719 3336 0.0036878474056721 3337 0.0036868185270578 3338 0.0036857929080725 3339 0.0036847668234259 3340 0.0036837405059487 3341 0.0036827148869634 3342 0.0036816915962845 3343 0.003680668072775 3344 0.0036796440836042 3345 0.0036786217242479 3346 0.0036776005290449 3347 0.0036765791010112 3348 0.0036755586043 3349 0.0036745388060808 3350 0.0036735211033374 3351 0.0036725010722876 3352 0.0036714829038829 3353 0.0036704654339701 3354 0.0036694495938718 3355 0.0036684330552816 3356 0.0036674169823527 3357 0.0036664025392383 3358 0.0036653862334788 3359 0.003664372721687 3360 0.0036633592098951 3361 0.0036623468622565 3362 0.0036613345146179 3363 0.003660321701318 3364 0.003659310285002 3365 0.0036583000328392 3366 0.0036572909448296 3367 0.0036562806926668 3368 0.003655273700133 3369 0.0036542643792927 3370 0.0036532578524202 3371 0.0036522499285638 3372 0.0036512445658445 3373 0.0036502394359559 3374 0.0036492361687124 3375 0.0036482322029769 3376 0.0036472314968705 3377 0.0036462270654738 3378 0.0036452270578593 3379 0.0036442251875997 3380 0.0036432270426303 3381 0.003642225638032 3382 0.0036412277258933 3383 0.0036402281839401 3384 0.0036392312031239 3385 0.0036382358521223 3386 0.0036372388713062 3387 0.0036362435203046 3388 0.0036352481693029 3389 0.0036342542152852 3390 0.0036332600284368 3391 0.0036322663072497 3392 0.0036312732845545 3393 0.0036302807275206 3394 0.0036292891018093 3395 0.0036282984074205 3396 0.0036273072473705 3397 0.003626317717135 3398 0.0036253281868994 3399 0.0036243391223252 3400 0.0036233491264284 3401 0.0036223640199751 3402 0.0036213758867234 3403 0.0036203879863024 3404 0.003619403578341 3405 0.0036184177733958 3406 0.0036174324341118 3407 0.0036164482589811 3408 0.0036154657136649 3409 0.0036144817713648 3410 0.0036134999245405 3411 0.0036125176120549 3412 0.0036115352995694 3413 0.003610554151237 3414 0.0036095730029047 3415 0.0036085937172174 3416 0.0036076137330383 3417 0.003606635145843 3418 0.0036056567914784 3419 0.0036046793684363 3420 0.0036037019453943 3421 0.0036027263849974 3422 0.0036017508246005 3423 0.0036007761955261 3424 0.0035997999366373 3425 0.0035988264717162 3426 0.003597853705287 3427 0.0035968818701804 3428 0.0035959098022431 3429 0.0035949405282736 3430 0.0035939705558121 3431 0.0035930005833507 3432 0.0035920322407037 3433 0.0035910648293793 3434 0.0035900988150388 3435 0.0035891314037144 3436 0.0035881635267287 3437 0.0035871989093721 3438 0.0035862345248461 3439 0.003585267579183 3440 0.0035843052901328 3441 0.0035833423025906 3442 0.0035823786165565 3443 0.003581415861845 3444 0.0035804538056254 3445 0.0035794931463897 3446 0.0035785310901701 3447 0.0035775727592409 3448 0.0035766132641584 3449 0.0035756528377533 3450 0.0035746961366385 3451 0.0035737371072173 3452 0.0035727808717638 3453 0.0035718227736652 3454 0.003570867003873 3455 0.0035699130967259 3456 0.0035689566284418 3457 0.003568003186956 3458 0.0035670474171638 3459 0.00356609467417 3460 0.0035651409998536 3461 0.0035641889553517 3462 0.0035632362123579 3463 0.0035622857976705 3464 0.0035613351501524 3465 0.0035603845026344 3466 0.0035594354849309 3467 0.0035584876313806 3468 0.0035575376823545 3469 0.0035565905272961 3470 0.0035556426737458 3471 0.0035546950530261 3472 0.0035537502262741 3473 0.0035528047010303 3474 0.0035518577788025 3475 0.0035509127192199 3476 0.0035499688237906 3477 0.0035490267910063 3478 0.0035480840597302 3479 0.0035471408627927 3480 0.0035461988300085 3481 0.0035452567972243 3482 0.0035443152301013 3483 0.0035433764569461 3484 0.0035424383822829 3485 0.0035415000747889 3486 0.0035405622329563 3487 0.0035396260209382 3488 0.0035386884119362 3489 0.0035377526655793 3490 0.0035368176177144 3491 0.0035358823370188 3492 0.0035349470563233 3493 0.0035340145695955 3494 0.0035330834798515 3495 0.0035321505274624 3496 0.0035312189720571 3497 0.0035302885808051 3498 0.0035293591208756 3499 0.0035284284967929 3500 0.0035274992696941 3501 0.0035265730693936 3502 0.0035256433766335 3503 0.0035247157793492 3504 0.0035237884148955 3505 0.0035228626802564 3506 0.0035219360142946 3507 0.0035210116766393 3508 0.0035200864076614 3509 0.0035191623028368 3510 0.0035182386636734 3511 0.0035173171199858 3512 0.0035163951106369 3513 0.0035154721699655 3514 0.0035145508591086 3515 0.0035136295482516 3516 0.0035127094015479 3517 0.0035117911174893 3518 0.0035108719021082 3519 0.0035099519882351 3520 0.0035090339370072 3521 0.0035081165842712 3522 0.0035072006285191 3523 0.0035062830429524 3524 0.0035053670872003 3525 0.0035044515971094 3526 0.0035035372711718 3527 0.0035026222467422 3528 0.0035017081536353 3529 0.0035007952246815 3530 0.0034998822957277 3531 0.0034989691339433 3532 0.0034980578348041 3533 0.0034971458371729 3534 0.0034962338395417 3535 0.003495326731354 3536 0.0034944172948599 3537 0.003493509022519 3538 0.0034926009830087 3539 0.003491694573313 3540 0.0034907883964479 3541 0.0034898819867522 3542 0.0034889769740403 3543 0.0034880705643445 3544 0.0034871667157859 3545 0.0034862626343966 3546 0.0034853599499911 3547 0.0034844567999244 3548 0.0034835557453334 3549 0.0034826523624361 3550 0.0034817517735064 3551 0.0034808502532542 3552 0.0034799515269697 3553 0.00347905093804 3554 0.0034781522117555 3555 0.0034772530198097 3556 0.0034763542935252 3557 0.0034754574298859 3558 0.0034745605662465 3559 0.003473661839962 3560 0.0034727659076452 3561 0.0034718702081591 3562 0.003470974508673 3563 0.0034700809046626 3564 0.0034691845066845 3565 0.0034682936966419 3566 0.003467399161309 3567 0.0034665057901293 3568 0.0034656128846109 3569 0.0034647220745683 3570 0.0034638326615095 3571 0.0034629416186363 3572 0.0034620496444404 3573 0.0034611604642123 3574 0.0034602729137987 3575 0.0034593844320625 3576 0.0034584943205118 3577 0.0034576058387756 3578 0.0034567192196846 3579 0.003455831669271 3580 0.00345494505018 3581 0.0034540588967502 3582 0.0034531750716269 3583 0.003452290315181 3584 0.0034514032304287 3585 0.003450519638136 3586 0.0034496365115047 3587 0.0034487531520426 3588 0.0034478711895645 3589 0.003446988761425 3590 0.0034461081959307 3591 0.0034452266991138 3592 0.0034443472977728 3593 0.0034434648696333 3594 0.0034425866324455 3595 0.0034417062997818 3596 0.0034408289939165 3597 0.0034399514552206 3598 0.0034390720538795 3599 0.0034381963778287 3600 0.0034373209346086 3601 0.0034364466555417 3602 0.0034355730749667 3603 0.0034346978645772 3604 0.0034338240511715 3605 0.0034329511690885 3606 0.0034320787526667 3607 0.0034312075003982 3608 0.0034303364809602 3609 0.0034294645301998 3610 0.0034285942092538 3611 0.0034277241211385 3612 0.0034268538001925 3613 0.0034259848762304 3614 0.0034251161850989 3615 0.0034242488909513 3616 0.0034233804326504 3617 0.0034225136041641 3618 0.0034216460771859 3619 0.0034207801800221 3620 0.0034199133515358 3621 0.0034190507140011 3622 0.0034181848168373 3623 0.0034173203166574 3624 0.0034164579119533 3625 0.0034155924804509 3626 0.0034147289115936 3627 0.0034138672053814 3628 0.0034130066633224 3629 0.0034121437929571 3630 0.0034112832508981 3631 0.0034104222431779 3632 0.0034095617011189 3633 0.0034087013918906 3634 0.0034078420139849 3635 0.0034069842658937 3636 0.0034061253536493 3637 0.0034052678383887 3638 0.0034044105559587 3639 0.0034035537391901 3640 0.0034026973880827 3641 0.0034018415026367 3642 0.0034009860828519 3643 0.0034001332242042 3644 0.0033992775715888 3645 0.0033984233159572 3646 0.0033975692931563 3647 0.003396715503186 3648 0.0033958631101996 3649 0.0033950125798583 3650 0.0033941604197025 3651 0.0033933091908693 3652 0.00339245935902 3653 0.0033916081301868 3654 0.0033907575998455 3655 0.0033899096306413 3656 0.0033890602644533 3657 0.0033882127609104 3658 0.0033873666543514 3659 0.0033865182194859 3660 0.0033856714144349 3661 0.0033848262391984 3662 0.0033839815296233 3663 0.0033831370528787 3664 0.0033822930417955 3665 0.0033814506605268 3666 0.0033806068822742 3667 0.0033797656651586 3668 0.0033789223525673 3669 0.0033780802041292 3670 0.0033772401511669 3671 0.0033764000982046 3672 0.0033755591139197 3673 0.0033747192937881 3674 0.0033738797064871 3675 0.0033730412833393 3676 0.0033722021616995 3677 0.003371364204213 3678 0.0033705276437104 3679 0.0033696899190545 3680 0.0033688542898744 3681 0.0033680174965411 3682 0.0033671814016998 3683 0.0033663464710116 3684 0.0033655129373074 3685 0.0033646812662482 3686 0.0033638458698988 3687 0.0033630144316703 3688 0.0033621822949499 3689 0.003361348528415 3690 0.0033605177886784 3691 0.0033596868161112 3692 0.0033588556107134 3693 0.00335802603513 3694 0.0033571971580386 3695 0.0033563664183021 3696 0.00335553730838 3697 0.0033547095954418 3698 0.0033538807183504 3699 0.0033530544023961 3700 0.0033522290177643 3701 0.0033514040987939 3702 0.0033505759201944 3703 0.0033497510012239 3704 0.0033489274792373 3705 0.0033481023274362 3706 0.0033472790382802 3707 0.0033464571461082 3708 0.0033456324599683 3709 0.0033448098693043 3710 0.0033439889084548 3711 0.0033431672491133 3712 0.0033423439599574 3713 0.003341524861753 3714 0.0033407043665648 3715 0.0033398857340217 3716 0.0033390675671399 3717 0.0033382489345968 3718 0.0033374330960214 3719 0.0033366149291396 3720 0.0033357969950885 3721 0.0033349797595292 3722 0.0033341643866152 3723 0.0033333499450237 3724 0.0033325352706015 3725 0.0033317201305181 3726 0.0033309056889266 3727 0.0033300928771496 3728 0.0033292800653726 3729 0.0033284679520875 3730 0.0033276565372944 3731 0.0033268453553319 3732 0.0033260339405388 3733 0.0033252225257456 3734 0.0033244118094444 3735 0.0033236020244658 3736 0.003322793636471 3737 0.0033219852484763 3738 0.0033211768604815 3739 0.00332036963664 3740 0.0033195617143065 3741 0.0033187542576343 3742 0.0033179470337927 3743 0.0033171409741044 3744 0.003316335612908 3745 0.0033155297860503 3746 0.0033147241920233 3747 0.0033139190636575 3748 0.003313115099445 3749 0.0033123106695712 3750 0.003311506472528 3751 0.0033107046037912 3752 0.0033099029678851 3753 0.0033090999349952 3754 0.0033082996960729 3755 0.0033074964303523 3756 0.0033066940959543 3757 0.0033058961853385 3758 0.0033050964120775 3759 0.0033042959403247 3760 0.0033034975640476 3761 0.0033026987221092 3762 0.0033019015099853 3763 0.0033011015038937 3764 0.0033003040589392 3765 0.0032995056826621 3766 0.0032987101003528 3767 0.003297915449366 3768 0.0032971187029034 3769 0.0032963228877634 3770 0.0032955291680992 3771 0.003294734749943 3772 0.0032939391676337 3773 0.0032931454479694 3774 0.0032923524267972 3775 0.0032915610354394 3776 0.0032907682470977 3777 0.0032899766229093 3778 0.0032891845330596 3779 0.003288394305855 3780 0.0032876026816666 3781 0.0032868119888008 3782 0.0032860240899026 3783 0.00328523456119 3784 0.0032844461966306 3785 0.003283659229055 3786 0.0032828710973263 3787 0.0032820822671056 3788 0.0032812946010381 3789 0.0032805087976158 3790 0.003279723925516 3791 0.0032789371907711 3792 0.0032781530171633 3793 0.0032773690763861 3794 0.0032765853684396 3795 0.0032758030574769 3796 0.003275019582361 3797 0.0032742382027209 3798 0.0032734568230808 3799 0.0032726742792875 3800 0.003271893132478 3801 0.0032711112871766 3802 0.0032703317701817 3803 0.0032695515546948 3804 0.0032687708735466 3805 0.0032679927535355 3806 0.0032672132365406 3807 0.0032664358150214 3808 0.0032656569965184 3809 0.0032648793421686 3810 0.0032641033176333 3811 0.0032633261289448 3812 0.0032625496387482 3813 0.0032617738470435 3814 0.0032609975896776 3815 0.0032602229621261 3816 0.0032594483345747 3817 0.0032586741726846 3818 0.0032579004764557 3819 0.0032571265473962 3820 0.0032563537824899 3821 0.003255580784753 3822 0.0032548075541854 3823 0.0032540366519243 3824 0.0032532655168325 3825 0.0032524946145713 3826 0.0032517234794796 3827 0.003250953508541 3828 0.0032501840032637 3829 0.0032494137994945 3830 0.0032486461568624 3831 0.0032478757202625 3832 0.0032471073791385 3833 0.0032463395036757 3834 0.0032455720938742 3835 0.003244805149734 3836 0.0032440396025777 3837 0.0032432735897601 3838 0.0032425075769424 3839 0.0032417422626168 3840 0.0032409757841378 3841 0.003240211866796 3842 0.003239446785301 3843 0.0032386840321124 3844 0.0032379205804318 3845 0.0032371568959206 3846 0.003236394142732 3847 0.0032356306910515 3848 0.0032348684035242 3849 0.0032341075129807 3850 0.0032333449926227 3851 0.0032325831707567 3852 0.0032318246085197 3853 0.0032310648821294 3854 0.0032303070183843 3855 0.0032295475248247 3856 0.0032287905924022 3857 0.0032280317973346 3858 0.0032272734679282 3859 0.0032265158370137 3860 0.003225761000067 3861 0.003225005697459 3862 0.003224250394851 3863 0.0032234936952591 3864 0.0032227386254817 3865 0.0032219858840108 3866 0.0032212319783866 3867 0.0032204780727625 3868 0.0032197264954448 3869 0.0032189742196351 3870 0.0032182219438255 3871 0.0032174694351852 3872 0.0032167183235288 3873 0.0032159676775336 3874 0.0032152179628611 3875 0.0032144659198821 3876 0.0032137155067176 3877 0.0032129664905369 3878 0.0032122186385095 3879 0.0032114693894982 3880 0.0032107215374708 3881 0.003209974616766 3882 0.0032092260662466 3883 0.0032084798440337 3884 0.0032077350188047 3885 0.0032069876324385 3886 0.0032062421087176 3887 0.0032054961193353 3888 0.0032047531567514 3889 0.0032040076330304 3890 0.0032032646704465 3891 0.0032025210093707 3892 0.0032017775811255 3893 0.0032010362483561 3894 0.0032002937514335 3895 0.0031995514873415 3896 0.0031988099217415 3897 0.003198069287464 3898 0.0031973281875253 3899 0.0031965870875865 3900 0.0031958485487849 3901 0.0031951109413058 3902 0.003194369841367 3903 0.003193631535396 3904 0.003192893229425 3905 0.0031921544577926 3906 0.0031914175488055 3907 0.0031906811054796 3908 0.003189945127815 3909 0.0031892079859972 3910 0.003188471775502 3911 0.0031877383589745 3912 0.0031870026141405 3913 0.0031862689647824 3914 0.003185534151271 3915 0.0031848000362515 3916 0.0031840684823692 3917 0.003183335531503 3918 0.0031826049089432 3919 0.0031818724237382 3920 0.0031811413355172 3921 0.0031804097816348 3922 0.0031796796247363 3923 0.0031789487693459 3924 0.00317821954377 3925 0.0031774900853634 3926 0.0031767627224326 3927 0.0031760334968567 3928 0.0031753065995872 3929 0.0031745787709951 3930 0.0031738509424031 3931 0.0031731259077787 3932 0.0031723980791867 3933 0.0031716737430543 3934 0.0031709475442767 3935 0.003170223440975 3936 0.0031694986391813 3937 0.0031687731388956 3938 0.0031680504325777 3939 0.0031673274934292 3940 0.0031666033901274 3941 0.0031658809166402 3942 0.0031651589088142 3943 0.0031644362024963 3944 0.0031637155916542 3945 0.0031629938166589 3946 0.0031622741371393 3947 0.0031615518964827 3948 0.0031608322169632 3949 0.0031601130031049 3950 0.0031593930907547 3951 0.0031586731784046 3952 0.0031579555943608 3953 0.0031572361476719 3954 0.0031565185636282 3955 0.0031558009795845 3956 0.0031550826970488 3957 0.003154365811497 3958 0.0031536477617919 3959 0.003152932273224 3960 0.003152217483148 3961 0.0031515005975962 3962 0.0031507860403508 3963 0.0031500700861216 3964 0.00314935692586 3965 0.0031486409716308 3966 0.0031479275785387 3967 0.0031472151167691 3968 0.0031465014908463 3969 0.0031457892619073 3970 0.0031450754031539 3971 0.0031443648040295 3972 0.0031436528079212 3973 0.0031429422087967 3974 0.0031422290485352 3975 0.0031415186822414 3976 0.0031408090144396 3977 0.0031400979496539 3978 0.0031393880490214 3979 0.0031386795453727 3980 0.0031379705760628 3981 0.0031372623052448 3982 0.0031365542672575 3983 0.0031358450651169 3984 0.003135136095807 3985 0.0031344294548035 3986 0.0031337216496468 3987 0.0031330166384578 3988 0.0031323102302849 3989 0.0031316049862653 3990 0.0031309016048908 3991 0.003130195196718 3992 0.0031294920481741 3993 0.003128788433969 3994 0.0031280857510865 3995 0.0031273814383894 3996 0.0031266785226762 3997 0.0031259765382856 3998 0.0031252733897418 3999 0.0031245730351657 4000 0.0031238719820976 4001 0.0031231706961989 4002 0.0031224705744535 4003 0.003121770452708 4004 0.0031210710294545 4005 0.003120370907709 4006 0.0031196740455925 4007 0.0031189753208309 4008 0.0031182765960693 4009 0.0031175781041384 4010 0.0031168814748526 4011 0.0031161843799055 4012 0.0031154891476035 4013 0.0031147920526564 4014 0.0031140968203545 4015 0.0031134015880525 4016 0.0031127063557506 4017 0.0031120106577873 4018 0.0031113170552999 4019 0.0031106229871511 4020 0.0031099296174943 4021 0.0031092350836843 4022 0.0031085424125195 4023 0.0031078504398465 4024 0.0031071580015123 4025 0.0031064657960087 4026 0.0031057745218277 4027 0.0031050825491548 4028 0.0031043910421431 4029 0.0031037018634379 4030 0.0031030108220875 4031 0.0031023202463984 4032 0.0031016319990158 4033 0.0031009423546493 4034 0.003100253874436 4035 0.0030995653942227 4036 0.0030988771468401 4037 0.0030981900636107 4038 0.0030975011177361 4039 0.0030968133360147 4040 0.0030961278825998 4041 0.0030954426620156 4042 0.0030947548802942 4043 0.0030940682627261 4044 0.0030933837406337 4045 0.0030926975887269 4046 0.0030920137651265 4047 0.0030913292430341 4048 0.0030906428582966 4049 0.003089961130172 4050 0.0030892773065716 4051 0.0030885932501405 4052 0.0030879115220159 4053 0.00308722932823 4054 0.0030865455046296 4055 0.0030858651734889 4056 0.0030851825140417 4057 0.003084501484409 4058 0.0030838216189295 4059 0.0030831408221275 4060 0.0030824625864625 4061 0.0030817817896605 4062 0.0030811014585197 4063 0.0030804229900241 4064 0.0030797433573753 4065 0.0030790651217103 4066 0.0030783878173679 4067 0.0030777098145336 4068 0.0030770322773606 4069 0.0030763566028327 4070 0.0030756797641516 4071 0.0030750026926398 4072 0.0030743270181119 4073 0.0030736518092453 4074 0.0030729779973626 4075 0.0030723011586815 4076 0.0030716280452907 4077 0.003070954233408 4078 0.0030702804215252 4079 0.0030696063768119 4080 0.0030689334962517 4081 0.0030682610813528 4082 0.0030675893649459 4083 0.0030669183470309 4084 0.003066245932132 4085 0.0030655777081847 4086 0.0030649050604552 4087 0.0030642363708466 4088 0.0030635646544397 4089 0.0030628950335085 4090 0.0030622268095613 4091 0.0030615567229688 4092 0.0030608887318522 4093 0.0030602216720581 4094 0.0030595536809415 4095 0.0030588861554861 4096 0.0030582188628614 4097 0.003057551337406 4098 0.0030568840447813 4099 0.0030562188476324 4100 0.0030555515550077 4101 0.0030548889189959 4102 0.0030542234890163 4103 0.0030535596888512 4104 0.0030528958886862 4105 0.0030522316228598 4106 0.0030515682883561 4107 0.0030509054195136 4108 0.0030502411536872 4109 0.003049578750506 4110 0.0030489168129861 4111 0.0030482532456517 4112 0.0030475934036076 4113 0.0030469330959022 4114 0.0030462702270597 4115 0.0030456096865237 4116 0.003044948913157 4117 0.0030442888382822 4118 0.00304362969473 4119 0.0030429696198553 4120 0.003042311174795 4121 0.0030416527297348 4122 0.0030409945175052 4123 0.0030403360724449 4124 0.0030396785587072 4125 0.0030390205793083 4126 0.0030383637640625 4127 0.0030377067159861 4128 0.0030370510648936 4129 0.0030363956466317 4130 0.0030357418581843 4131 0.0030350859742612 4132 0.0030344319529831 4133 0.0030337767675519 4134 0.0030331239104271 4135 0.0030324691906571 4136 0.0030318156350404 4137 0.0030311620794237 4138 0.0030305099207908 4139 0.0030298589263111 4140 0.003029206302017 4141 0.0030285541433841 4142 0.0030279036145657 4143 0.0030272530857474 4144 0.0030266013927758 4145 0.0030259529594332 4146 0.0030253017321229 4147 0.003024653531611 4148 0.0030240046326071 4149 0.0030233557336032 4150 0.00302270706743 4151 0.0030220597982407 4152 0.0030214106664062 4153 0.0030207633972168 4154 0.0030201151967049 4155 0.0030194683931768 4156 0.0030188241507858 4157 0.003018178511411 4158 0.0030175321735442 4159 0.0030168883968145 4160 0.0030162420589477 4161 0.0030155973508954 4162 0.0030149531085044 4163 0.0030143090989441 4164 0.0030136650893837 4165 0.0030130206141621 4166 0.0030123791657388 4167 0.0030117365531623 4168 0.0030110955704004 4169 0.0030104520265013 4170 0.0030098103452474 4171 0.0030091693624854 4172 0.0030085274484009 4173 0.0030078862328082 4174 0.0030072464141995 4175 0.0030066077597439 4176 0.0030059670098126 4177 0.0030053264927119 4178 0.0030046887695789 4179 0.0030040480196476 4180 0.0030034114606678 4181 0.0030027716420591 4182 0.0030021343845874 4183 0.0030014968942851 4184 0.0030008591711521 4185 0.0030002223793417 4186 0.0029995862860233 4187 0.0029989506583661 4188 0.002998314332217 4189 0.0029976784717292 4190 0.0029970419127494 4191 0.0029964060522616 4192 0.0029957715887576 4193 0.0029951364267617 4194 0.0029945017304271 4195 0.0029938672669232 4196 0.0029932358302176 4197 0.0029926018323749 4198 0.002991967368871 4199 0.0029913343023509 4200 0.0029907012358308 4201 0.002990068634972 4202 0.002989438129589 4203 0.0029888057615608 4204 0.0029881740920246 4205 0.0029875445179641 4206 0.0029869144782424 4207 0.0029862832743675 4208 0.0029856511391699 4209 0.0029850215651095 4210 0.0029843910597265 4211 0.0029837624169886 4212 0.0029831330757588 4213 0.0029825046658516 4214 0.0029818760231137 4215 0.0029812473803759 4216 0.002980618737638 4217 0.0029799924232066 4218 0.0029793649446219 4219 0.002978737000376 4220 0.0029781102202833 4221 0.0029774832073599 4222 0.0029768582899123 4223 0.0029762326739728 4224 0.002975607290864 4225 0.0029749828390777 4226 0.0029743588529527 4227 0.0029737337026745 4228 0.0029731097165495 4229 0.0029724859632552 4230 0.0029718622099608 4231 0.0029712412506342 4232 0.0029706184286624 4233 0.0029699956066906 4234 0.0029693727847189 4235 0.0029687515925616 4236 0.0029681297019124 4237 0.0029675078112632 4238 0.0029668873175979 4239 0.0029662654269487 4240 0.0029656449332833 4241 0.0029650258366019 4242 0.0029644060414284 4243 0.0029637878760695 4244 0.00296316947788 4245 0.0029625513125211 4246 0.0029619329143316 4247 0.0029613140504807 4248 0.0029606975149363 4249 0.0029600800480694 4250 0.0029594618827105 4251 0.0029588448815048 4252 0.0029582295101136 4253 0.0029576129745692 4254 0.0029569985345006 4255 0.0029563833959401 4256 0.0029557682573795 4257 0.0029551538173109 4258 0.0029545379802585 4259 0.0029539233073592 4260 0.0029533091001213 4261 0.0029526962898672 4262 0.0029520834796131 4263 0.0029514709021896 4264 0.0029508580919355 4265 0.0029502457473427 4266 0.002949632704258 4267 0.0029490212909877 4268 0.0029484077822417 4269 0.0029477977659553 4270 0.0029471851885319 4271 0.0029465756379068 4272 0.0029459649231285 4273 0.0029453549068421 4274 0.0029447441920638 4275 0.0029441351071 4276 0.0029435253236443 4277 0.0029429155401886 4278 0.0029423059895635 4279 0.002941696671769 4280 0.0029410899151117 4281 0.0029404808301479 4282 0.0029398738406599 4283 0.0029392670840025 4284 0.0029386607930064 4285 0.0029380521737039 4286 0.0029374465811998 4287 0.0029368393588811 4288 0.0029362326022238 4289 0.002935626776889 4290 0.0029350207187235 4291 0.0029344162903726 4292 0.002933812327683 4293 0.0029332058038563 4294 0.0029326027724892 4295 0.0029319985769689 4296 0.002931394148618 4297 0.002930790418759 4298 0.0029301859904081 4299 0.0029295836575329 4300 0.0029289810918272 4301 0.0029283789917827 4302 0.0029277768917382 4303 0.002927174558863 4304 0.0029265736229718 4305 0.0029259722214192 4306 0.002925370587036 4307 0.0029247689526528 4308 0.0029241680167615 4309 0.0029235691763461 4310 0.0029229682404548 4311 0.0029223703313619 4312 0.002921772422269 4313 0.0029211733490229 4314 0.0029205756727606 4315 0.0029199772980064 4316 0.0029193784575909 4317 0.0029187807813287 4318 0.0029181828722358 4319 0.0029175865929574 4320 0.002916989615187 4321 0.0029163938015699 4322 0.0029157970566303 4323 0.0029152012430131 4324 0.002914606127888 4325 0.0029140103142709 4326 0.002913414966315 4327 0.0029128193855286 4328 0.0029122256673872 4329 0.0029116321820766 4330 0.0029110396280885 4331 0.0029104470741004 4332 0.0029098547529429 4333 0.0029092628974468 4334 0.0029086719732732 4335 0.0029080808162689 4336 0.0029074905905873 4337 0.0029068989679217 4338 0.0029063087422401 4339 0.002905716188252 4340 0.0029051266610622 4341 0.0029045380651951 4342 0.0029039478395134 4343 0.0029033594764769 4344 0.0029027699492872 4345 0.0029021822847426 4346 0.0029015929903835 4347 0.0029010048601776 4348 0.0029004164971411 4349 0.002899827901274 4350 0.0028992414008826 4351 0.0028986558318138 4352 0.0028980677016079 4353 0.0028974828310311 4354 0.0028968960978091 4355 0.0028963116928935 4356 0.0028957235626876 4357 0.0028951379936188 4358 0.0028945517260581 4359 0.0028939670883119 4360 0.0028933838475496 4361 0.0028927992098033 4362 0.0028922155033797 4363 0.0028916334267706 4364 0.0028910499531776 4365 0.0028904681093991 4366 0.0028898855671287 4367 0.0028893025591969 4368 0.0028887209482491 4369 0.0028881400357932 4370 0.0028875567950308 4371 0.0028869765810668 4372 0.0028863965999335 4373 0.0028858161531389 4374 0.0028852347750217 4375 0.0028846554923803 4376 0.0028840757440776 4377 0.0028834952972829 4378 0.0028829157818109 4379 0.0028823369648308 4380 0.0028817590791732 4381 0.0028811802621931 4382 0.0028806016780436 4383 0.0028800226282328 4384 0.0028794463723898 4385 0.0028788682539016 4386 0.002878291066736 4387 0.0028777148108929 4388 0.002877137158066 4389 0.0028765602037311 4390 0.0028759837150574 4391 0.002875407692045 4392 0.0028748326003551 4393 0.0028742586728185 4394 0.0028736838139594 4395 0.0028731096535921 4396 0.0028725354932249 4397 0.0028719617985189 4398 0.0028713862411678 4399 0.002870813710615 4400 0.002870240714401 4401 0.0028696679510176 4402 0.0028690949548036 4403 0.0028685214929283 4404 0.0028679510578513 4405 0.0028673792257905 4406 0.0028668076265603 4407 0.0028662360273302 4408 0.0028656655922532 4409 0.0028650956228375 4410 0.0028645244892687 4411 0.0028639533556998 4412 0.0028633843176067 4413 0.0028628152795136 4414 0.0028622471727431 4415 0.0028616765048355 4416 0.0028611086308956 4417 0.0028605395928025 4418 0.0028599728830159 4419 0.0028594047762454 4420 0.0028588376007974 4421 0.0028582694940269 4422 0.0028577027842402 4423 0.0028571367729455 4424 0.0028565702959895 4425 0.0028560049831867 4426 0.0028554401360452 4427 0.0028548729605973 4428 0.0028543083462864 4429 0.0028537418693304 4430 0.0028531784191728 4431 0.00285261310637 4432 0.0028520477935672 4433 0.0028514843434095 4434 0.0028509213589132 4435 0.0028503574430943 4436 0.002849793061614 4437 0.0028492312412709 4438 0.0028486675582826 4439 0.0028481050394475 4440 0.0028475425206125 4441 0.0028469809331 4442 0.0028464186470956 4443 0.002845857758075 4444 0.0028452950064093 4445 0.0028447352815419 4446 0.0028441743925214 4447 0.0028436151333153 4448 0.0028430535458028 4449 0.0028424942865968 4450 0.0028419343288988 4451 0.0028413753025234 4452 0.0028408144135028 4453 0.0028402553871274 4454 0.0028396961279213 4455 0.0028391371015459 4456 0.0028385780751705 4457 0.0028380216099322 4458 0.0028374646790326 4459 0.0028369061183184 4460 0.0028363484889269 4461 0.0028357924893498 4462 0.0028352348599583 4463 0.002834677696228 4464 0.0028341209981591 4465 0.0028335645329207 4466 0.0028330087661743 4467 0.0028324527665973 4468 0.0028318981640041 4469 0.0028313426300883 4470 0.0028307868633419 4471 0.0028302331920713 4472 0.0028296783566475 4473 0.0028291246853769 4474 0.0028285698499531 4475 0.0028280168771744 4476 0.0028274622745812 4477 0.0028269097674638 4478 0.0028263560961932 4479 0.0028258038219064 4480 0.0028252515476197 4481 0.002824698574841 4482 0.0028241472318769 4483 0.0028235937934369 4484 0.002823042916134 4485 0.0028224913403392 4486 0.0028219392988831 4487 0.0028213900513947 4488 0.0028208391740918 4489 0.0028202906250954 4490 0.0028197402134538 4491 0.0028191914316267 4492 0.0028186431154609 4493 0.0028180941008031 4494 0.0028175441548228 4495 0.0028169951401651 4496 0.0028164465911686 4497 0.0028158996719867 4498 0.0028153513558209 4499 0.0028148032724857 4500 0.0028142558876425 4501 0.0028137101326138 4502 0.0028131632134318 4503 0.0028126158285886 4504 0.0028120710048825 4505 0.0028115236200392 4506 0.0028109792619944 4507 0.0028104335069656 4508 0.0028098877519369 4509 0.0028093429282308 4510 0.0028087985701859 4511 0.0028082535136491 4512 0.002807708689943 4513 0.0028071668930352 4514 0.0028066230006516 4515 0.0028060800395906 4516 0.002805536845699 4517 0.002804993884638 4518 0.0028044525533915 4519 0.0028039086610079 4520 0.0028033673297614 4521 0.0028028269298375 4522 0.002802284900099 4523 0.0028017440345138 4524 0.0028012038674206 4525 0.0028006627690047 4526 0.0028001228347421 4527 0.0027995831333101 4528 0.0027990425005555 4529 0.0027985034976155 4530 0.0027979635633528 4531 0.0027974247932434 4532 0.0027968850918114 4533 0.002796346321702 4534 0.0027958084829152 4535 0.0027952715754509 4536 0.0027947325725108 4537 0.0027941945008934 4538 0.0027936575934291 4539 0.002793119288981 4540 0.0027925830800086 4541 0.0027920471038669 4542 0.0027915113605559 4543 0.0027909744530916 4544 0.0027904375456274 4545 0.0027899018023163 4546 0.0027893653605133 4547 0.0027888312470168 4548 0.002788295969367 4549 0.0027877599932253 4550 0.0027872263453901 4551 0.0027866908349097 4552 0.0027861562557518 4553 0.0027856226079166 4554 0.0027850894257426 4555 0.0027845553122461 4556 0.0027840218972415 4557 0.0027834898792207 4558 0.0027829562313855 4559 0.0027824244461954 4560 0.0027818907983601 4561 0.0027813585475087 4562 0.0027808267623186 4563 0.0027802961412817 4564 0.002779764123261 4565 0.0027792330365628 4566 0.0027787028811872 4567 0.002778172492981 4568 0.0027776416391134 4569 0.0027771107852459 4570 0.0027765824925154 4571 0.0027760511729866 4572 0.0027755228802562 4573 0.0027749934233725 4574 0.0027744653634727 4575 0.0027739368379116 4576 0.0027734083123505 4577 0.0027728818822652 4578 0.002772354753688 4579 0.0027718266937882 4580 0.0027713007293642 4581 0.0027707738336176 4582 0.0027702478691936 4583 0.0027697205077857 4584 0.002769195009023 4585 0.0027686699759215 4586 0.0027681458741426 4587 0.0027676206082106 4588 0.0027670948766172 4589 0.0027665700763464 4590 0.0027660452760756 4591 0.0027655218727887 4592 0.0027649980038404 4593 0.0027644743677229 4594 0.002763950265944 4595 0.0027634266298264 4596 0.0027629025280476 4597 0.0027623807545751 4598 0.0027618571184576 4599 0.0027613358106464 4600 0.0027608142700046 4601 0.0027602917980403 4602 0.0027597690932453 4603 0.0027592475526035 4604 0.0027587260119617 4605 0.0027582056354731 4606 0.0027576845604926 4607 0.0027571630198509 4608 0.002756642177701 4609 0.0027561229653656 4610 0.0027556018903852 4611 0.0027550819795579 4612 0.0027545623015612 4613 0.0027540437877178 4614 0.0027535245753825 4615 0.0027530074585229 4616 0.0027524896431714 4617 0.0027519725263119 4618 0.0027514542452991 4619 0.0027509368956089 4620 0.0027504211757332 4621 0.0027499045245349 4622 0.0027493888046592 4623 0.002748872153461 4624 0.0027483557350934 4625 0.0027478407137096 4626 0.0027473252266645 4627 0.0027468109037727 4628 0.0027462949510664 4629 0.0027457817923278 4630 0.0027452665381134 4631 0.0027447517495602 4632 0.0027442378923297 4633 0.0027437238022685 4634 0.002743209945038 4635 0.00274269701913 4636 0.002742184093222 4637 0.0027416709344834 4638 0.0027411575429142 4639 0.0027406446170062 4640 0.0027401326224208 4641 0.0027396196965128 4642 0.0027391084004194 4643 0.0027385968714952 4644 0.0027380865067244 4645 0.002737574512139 4646 0.0027370636817068 4647 0.0027365512214601 4648 0.0027360410895199 4649 0.0027355304919183 4650 0.0027350201271474 4651 0.0027345099952072 4652 0.0027339996304363 4653 0.0027334913611412 4654 0.0027329830918461 4655 0.0027324734255672 4656 0.0027319635264575 4657 0.002731456886977 4658 0.0027309474535286 4659 0.0027304401155561 4660 0.0027299304492772 4661 0.0027294224128127 4662 0.0027289155405015 4663 0.0027284079696983 4664 0.0027279010973871 4665 0.0027273932937533 4666 0.002726887119934 4667 0.002726380713284 4668 0.0027258752379566 4669 0.0027253672014922 4670 0.0027248624246567 4671 0.0027243562508374 4672 0.0027238498441875 4673 0.0027233459986746 4674 0.0027228402905166 4675 0.0027223352808505 4676 0.0027218307368457 4677 0.0027213264256716 4678 0.0027208235114813 4679 0.0027203194331378 4680 0.0027198158204556 4681 0.0027193138375878 4682 0.0027188104577363 4683 0.0027183077763766 4684 0.0027178041636944 4685 0.0027173024136573 4686 0.0027168006636202 4687 0.0027162986807525 4688 0.0027157959993929 4689 0.0027152963448316 4690 0.0027147955261171 4691 0.0027142942417413 4692 0.0027137941215187 4693 0.0027132933028042 4694 0.002712793648243 4695 0.0027122932951897 4696 0.0027117938734591 4697 0.0027112932875752 4698 0.0027107938658446 4699 0.0027102946769446 4700 0.0027097966521978 4701 0.002709296066314 4702 0.0027087989728898 4703 0.0027083000168204 4704 0.0027078012935817 4705 0.0027073046658188 4706 0.0027068071067333 4707 0.002706308150664 4708 0.0027058115229011 4709 0.0027053146623075 4710 0.0027048164047301 4711 0.0027043207082897 4712 0.0027038243133575 4713 0.0027033297810704 4714 0.0027028331533074 4715 0.002702338853851 4716 0.0027018433902413 4717 0.0027013493236154 4718 0.0027008545584977 4719 0.0027003607247025 4720 0.002699866425246 4721 0.0026993714272976 4722 0.0026988789904863 4723 0.0026983851566911 4724 0.0026978920213878 4725 0.0026973988860846 4726 0.0026969066821039 4727 0.0026964137796313 4728 0.0026959213428199 4729 0.0026954296045005 4730 0.0026949371676892 4731 0.0026944451965392 4732 0.0026939534582198 4733 0.0026934621855617 4734 0.0026929720770568 4735 0.002692480571568 4736 0.0026919892989099 4737 0.0026914984919131 4738 0.0026910086162388 4739 0.0026905187405646 4740 0.0026900288648903 4741 0.0026895394548774 4742 0.0026890500448644 4743 0.0026885611005127 4744 0.0026880721561611 4745 0.0026875822804868 4746 0.0026870924048126 4747 0.0026866039261222 4748 0.0026861161459237 4749 0.0026856274344027 4750 0.0026851405855268 4751 0.0026846535038203 4752 0.0026841657236218 4753 0.0026836774777621 4754 0.0026831903960556 4755 0.0026827035471797 4756 0.0026822164654732 4757 0.0026817305479199 4758 0.0026812430005521 4759 0.00268075754866 4760 0.0026802718639374 4761 0.0026797852478921 4762 0.0026793000288308 4763 0.0026788152754307 4764 0.0026783314533532 4765 0.0026778453029692 4766 0.0026773600839078 4767 0.002676875796169 4768 0.0026763912755996 4769 0.0026759058237076 4770 0.0026754224672914 4771 0.0026749395765364 4772 0.0026744564529508 4773 0.0026739714667201 4774 0.0026734890416265 4775 0.0026730066165328 4776 0.0026725237257779 4777 0.0026720413006842 4778 0.0026715593412519 4779 0.0026710776146501 4780 0.0026705958880484 4781 0.0026701132301241 4782 0.0026696308050305 4783 0.0026691486127675 4784 0.0026686675846577 4785 0.0026681860908866 4786 0.0026677052956074 4787 0.0026672242674977 4788 0.002666745102033 4789 0.002666266169399 4790 0.0026657860726118 4791 0.0026653078384697 4792 0.0026648291386664 4793 0.0026643499732018 4794 0.002663871506229 4795 0.0026633916422725 4796 0.0026629127096385 4797 0.0026624340098351 4798 0.0026619571726769 4799 0.0026614791713655 4800 0.0026610023342073 4801 0.0026605241000652 4802 0.0026600477285683 4803 0.0026595704257488 4804 0.0026590940542519 4805 0.0026586172170937 4806 0.0026581401471049 4807 0.0026576640084386 4808 0.0026571878697723 4809 0.0026567112654448 4810 0.002656236756593 4811 0.0026557613164186 4812 0.002655286109075 4813 0.0026548120658845 4814 0.0026543373242021 4815 0.0026538616511971 4816 0.0026533885393292 4817 0.0026529137976468 4818 0.0026524395216256 4819 0.0026519647799432 4820 0.0026514909695834 4821 0.0026510164607316 4822 0.002650543814525 4823 0.0026500702369958 4824 0.0026495987549424 4825 0.0026491268072277 4826 0.0026486553251743 4827 0.0026481836102903 4828 0.0026477128267288 4829 0.0026472401805222 4830 0.0026467691641301 4831 0.0026462986133993 4832 0.0026458268985152 4833 0.002645357279107 4834 0.0026448876596987 4835 0.0026444178074598 4836 0.0026439486537129 4837 0.0026434797327965 4838 0.0026430115103722 4839 0.0026425414253026 4840 0.0026420741342008 4841 0.0026416070759296 4842 0.0026411372236907 4843 0.0026406690012664 4844 0.0026402010116726 4845 0.0026397330220789 4846 0.0026392647996545 4847 0.0026387984398752 4848 0.0026383316144347 4849 0.0026378643233329 4850 0.002637398429215 4851 0.0026369306724519 4852 0.0026364652439952 4853 0.0026359986513853 4854 0.0026355325244367 4855 0.00263506709598 4856 0.0026346002705395 4857 0.0026341357734054 4858 0.0026336696464568 4859 0.0026332046836615 4860 0.0026327399536967 4861 0.0026322754565626 4862 0.0026318114250898 4863 0.0026313466951251 4864 0.0026308831293136 4865 0.0026304200291634 4866 0.0026299566961825 4867 0.002629493130371 4868 0.0026290295645595 4869 0.0026285662315786 4870 0.0026281024329364 4871 0.0026276390999556 4872 0.002627176232636 4873 0.002626713598147 4874 0.0026262509636581 4875 0.0026257906574756 4876 0.0026253289543092 4877 0.0026248665526509 4878 0.0026244048494846 4879 0.0026239431463182 4880 0.0026234828401357 4881 0.0026230227667838 4882 0.00262256199494 4883 0.0026221009902656 4884 0.002621642081067 4885 0.0026211813092232 4886 0.0026207217015326 4887 0.0026202632579952 4888 0.0026198043487966 4889 0.002619344741106 4890 0.0026188874617219 4891 0.0026184297166765 4892 0.0026179722044617 4893 0.0026175153907388 4894 0.0026170574128628 4895 0.0026165989693254 4896 0.0026161433197558 4897 0.0026156853418797 4898 0.0026152285281569 4899 0.0026147712487727 4900 0.0026143155992031 4901 0.0026138594839722 4902 0.0026134036015719 4903 0.0026129488833249 4904 0.0026124927680939 4905 0.002612036652863 4906 0.0026115817017853 4907 0.0026111272163689 4908 0.0026106727309525 4909 0.0026102177798748 4910 0.0026097623631358 4911 0.0026093083433807 4912 0.0026088529266417 4913 0.0026083989068866 4914 0.0026079446543008 4915 0.0026074920315295 4916 0.0026070387102664 4917 0.0026065860874951 4918 0.0026061336975545 4919 0.0026056792121381 4920 0.00260522775352 4921 0.0026047744322568 4922 0.0026043227408081 4923 0.0026038698852062 4924 0.0026034167967737 4925 0.0026029648724943 4926 0.0026025124825537 4927 0.0026020631194115 4928 0.0026016116607934 4929 0.0026011606678367 4930 0.0026007103733718 4931 0.0026002605445683 4932 0.0025998121127486 4933 0.0025993627496064 4934 0.0025989122223109 4935 0.0025984621606767 4936 0.0025980116333812 4937 0.0025975639000535 4938 0.0025971154682338 4939 0.0025966658722609 4940 0.0025962174404413 4941 0.0025957699399441 4942 0.0025953217409551 4943 0.0025948735419661 4944 0.0025944267399609 4945 0.0025939787738025 4946 0.0025935310404748 4947 0.0025930854026228 4948 0.0025926360394806 4949 0.0025921906344593 4950 0.0025917426683009 4951 0.0025912958662957 4952 0.0025908495299518 4953 0.0025904015637934 4954 0.0025899580214173 4955 0.0025895116850734 4956 0.0025890660472214 4957 0.002588621340692 4958 0.0025881754700094 4959 0.0025877305306494 4960 0.0025872853584588 4961 0.002586841583252 4962 0.0025863961782306 4963 0.0025859521701932 4964 0.0025855079293251 4965 0.0025850625243038 4966 0.0025846180506051 4967 0.0025841754395515 4968 0.0025837328284979 4969 0.002583289751783 4970 0.0025828466750681 4971 0.0025824045296758 4972 0.0025819619186223 4973 0.0025815181434155 4974 0.0025810764636844 4975 0.0025806329213083 4976 0.002580190077424 4977 0.0025797486305237 4978 0.0025793062523007 4979 0.0025788648054004 4980 0.0025784224271774 4981 0.0025779814459383 4982 0.0025775402318686 4983 0.0025771006476134 4984 0.0025766594335437 4985 0.0025762193836272 4986 0.0025757788680494 4987 0.0025753388181329 4988 0.0025748992338777 4989 0.0025744601152837 4990 0.0025740175042301 4991 0.0025735781528056 4992 0.0025731390342116 4993 0.0025726989842951 4994 0.0025722603313625 4995 0.0025718228425831 4996 0.0025713839568198 4997 0.002570946700871 4998 0.002570508280769 4999 0.0025700703263283 5000 0.0025696316733956 5001 0.0025691948831081 5002 0.0025687555316836 5003 0.0025683189742267 5004 0.0025678803212941 5005 0.0025674428325146 5006 0.0025670067407191 5007 0.0025665704160929 5008 0.0025661329273134 5009 0.0025656977668405 5010 0.0025652628391981 5011 0.0025648267474025 5012 0.0025643918197602 5013 0.0025639580562711 5014 0.0025635226629674 5015 0.0025630882009864 5016 0.0025626525748521 5017 0.0025622164830565 5018 0.0025617820210755 5019 0.0025613480247557 5020 0.0025609130971134 5021 0.0025604802649468 5022 0.0025600458029658 5023 0.0025596125051379 5024 0.0025591803714633 5025 0.0025587473064661 5026 0.0025583142414689 5027 0.0025578809436411 5028 0.0025574476458132 5029 0.0025570157449692 5030 0.0025565831456333 5031 0.0025561507791281 5032 0.0025557188782841 5033 0.0025552862789482 5034 0.0025548548437655 5035 0.0025544229429215 5036 0.0025539910420775 5037 0.0025535607710481 5038 0.0025531300343573 5039 0.0025526990648359 5040 0.0025522687938064 5041 0.0025518380571157 5042 0.0025514080189168 5043 0.0025509775150567 5044 0.0025505479425192 5045 0.0025501186028123 5046 0.0025496885646135 5047 0.002549258293584 5048 0.0025488287210464 5049 0.0025484000798315 5050 0.0025479714386165 5051 0.0025475434958935 5052 0.0025471153203398 5053 0.0025466876104474 5054 0.0025462601333857 5055 0.002545831957832 5056 0.0025454047136009 5057 0.0025449774693698 5058 0.0025445502251387 5059 0.0025441227480769 5060 0.0025436959695071 5061 0.002543268725276 5062 0.0025428419467062 5063 0.0025424151681364 5064 0.0025419902522117 5065 0.002541565336287 5066 0.0025411387905478 5067 0.0025407143402845 5068 0.0025402889586985 5069 0.0025398631114513 5070 0.0025394381955266 5071 0.0025390130467713 5072 0.0025385888293386 5073 0.0025381634477526 5074 0.002537737833336 5075 0.0025373133830726 5076 0.0025368891656399 5077 0.0025364654138684 5078 0.0025360418949276 5079 0.0025356183759868 5080 0.0025351955555379 5081 0.0025347727350891 5082 0.0025343492161483 5083 0.0025339268613607 5084 0.0025335042737424 5085 0.0025330807548016 5086 0.0025326579343528 5087 0.0025322358123958 5088 0.0025318134576082 5089 0.0025313904043287 5090 0.0025309692136943 5091 0.0025305482558906 5092 0.0025301263667643 5093 0.0025297054089606 5094 0.0025292849168181 5095 0.0025288630276918 5096 0.0025284418370575 5097 0.0025280211120844 5098 0.0025276006199419 5099 0.0025271810591221 5100 0.0025267605669796 5101 0.0025263398420066 5102 0.0025259195826948 5103 0.0025254995562136 5104 0.0025250795297325 5105 0.0025246604345739 5106 0.0025242413394153 5107 0.002523822709918 5108 0.0025234031490982 5109 0.0025229845196009 5110 0.0025225658901036 5111 0.0025221474934369 5112 0.0025217290967703 5113 0.0025213132612407 5114 0.0025208941660821 5115 0.0025204771663994 5116 0.0025200597010553 5117 0.0025196420028806 5118 0.0025192252360284 5119 0.0025188087020069 5120 0.0025183926336467 5121 0.0025179770309478 5122 0.0025175621267408 5123 0.0025171469897032 5124 0.0025167323183268 5125 0.0025163167156279 5126 0.0025159013457596 5127 0.0025154859758914 5128 0.0025150715373456 5129 0.0025146570987999 5130 0.002514242194593 5131 0.0025138275232166 5132 0.0025134130846709 5133 0.0025129991117865 5134 0.0025125846732408 5135 0.002512170933187 5136 0.0025117588229477 5137 0.0025113457813859 5138 0.0025109320413321 5139 0.0025105196982622 5140 0.0025101061910391 5141 0.0025096933823079 5142 0.0025092815048993 5143 0.0025088682305068 5144 0.0025084558874369 5145 0.0025080442428589 5146 0.0025076323654503 5147 0.0025072200223804 5148 0.002506808610633 5149 0.002506397664547 5150 0.0025059855543077 5151 0.002505574375391 5152 0.0025051636621356 5153 0.0025047524832189 5154 0.0025043427012861 5155 0.0025039317552 5156 0.0025035212747753 5157 0.0025031121913344 5158 0.0025027021765709 5159 0.0025022919289768 5160 0.0025018812157214 5161 0.0025014712009579 5162 0.002501062117517 5163 0.0025006532669067 5164 0.0025002441834658 5165 0.0024998355656862 5166 0.0024994269479066 5167 0.0024990187957883 5168 0.0024986101780087 5169 0.0024982015602291 5170 0.0024977955035865 5171 0.0024973882827908 5172 0.002496981061995 5173 0.0024965736083686 5174 0.0024961661547422 5175 0.0024957603309304 5176 0.0024953533429652 5177 0.0024949465878308 5178 0.0024945412296802 5179 0.002494134940207 5180 0.002493730513379 5181 0.0024933249223977 5182 0.0024929195642471 5183 0.002492515835911 5184 0.0024921093136072 5185 0.0024917058181018 5186 0.0024913004599512 5187 0.0024908964987844 5188 0.0024904913734645 5189 0.002490087877959 5190 0.0024896822869778 5191 0.0024892797227949 5192 0.0024888752959669 5193 0.0024884711019695 5194 0.0024880685377866 5195 0.0024876662064344 5196 0.002487262012437 5197 0.0024868589825928 5198 0.0024864573497325 5199 0.0024860536213964 5200 0.0024856526870281 5201 0.002485248958692 5202 0.0024848473258317 5203 0.0024844456929713 5204 0.0024840428959578 5205 0.0024836412630975 5206 0.0024832407943904 5207 0.0024828386958688 5208 0.0024824375286698 5209 0.0024820351973176 5210 0.0024816354271024 5211 0.0024812342599034 5212 0.0024808349553496 5213 0.0024804337881505 5214 0.002480034250766 5215 0.0024796335492283 5216 0.0024792330805212 5217 0.0024788335431367 5218 0.002478432841599 5219 0.0024780333042145 5220 0.002477633068338 5221 0.0024772342294455 5222 0.0024768332950771 5223 0.0024764356203377 5224 0.0024760367814451 5225 0.0024756384082139 5226 0.0024752398021519 5227 0.0024748418945819 5228 0.0024744437541813 5229 0.002474044682458 5230 0.002473646774888 5231 0.0024732486344874 5232 0.0024728518910706 5233 0.0024724549148232 5234 0.0024720565415919 5235 0.0024716593325138 5236 0.0024712628219277 5237 0.0024708653800189 5238 0.0024704681709409 5239 0.0024700716603547 5240 0.0024696763139218 5241 0.0024692791048437 5242 0.0024688823614269 5243 0.0024684872478247 5244 0.0024680914357305 5245 0.0024676956236362 5246 0.002467299811542 5247 0.0024669046979398 5248 0.0024665095843375 5249 0.0024661142379045 5250 0.0024657172616571 5251 0.0024653230793774 5252 0.0024649298284203 5253 0.0024645354133099 5254 0.0024641426280141 5255 0.002463748678565 5256 0.0024633549619466 5257 0.0024629619438201 5258 0.0024625682272017 5259 0.0024621747434139 5260 0.0024617821909487 5261 0.0024613891728222 5262 0.0024609970860183 5263 0.0024606033693999 5264 0.0024602105841041 5265 0.0024598180316389 5266 0.0024594261776656 5267 0.002459033858031 5268 0.0024586422368884 5269 0.0024582510814071 5270 0.0024578585289419 5271 0.0024574676062912 5272 0.0024570773821324 5273 0.0024566859938204 5274 0.0024562948383391 5275 0.0024559053126723 5276 0.0024555136915296 5277 0.0024551237002015 5278 0.0024547330103815 5279 0.0024543425533921 5280 0.0024539520964026 5281 0.0024535618722439 5282 0.0024531725794077 5283 0.0024527830537409 5284 0.0024523930624127 5285 0.0024520033039153 5286 0.0024516149424016 5287 0.0024512261152267 5288 0.0024508372880518 5289 0.0024504475295544 5290 0.0024500591680408 5291 0.0024496712721884 5292 0.0024492815136909 5293 0.0024488936178386 5294 0.0024485040921718 5295 0.0024481164291501 5296 0.0024477280676365 5297 0.002447341568768 5298 0.002446954138577 5299 0.0024465669412166 5300 0.002446178579703 5301 0.0024457923136652 5302 0.002445406280458 5303 0.0024450183846056 5304 0.0024446328170598 5305 0.0024442467838526 5306 0.0024438607506454 5307 0.0024434756487608 5308 0.002443088684231 5309 0.0024427040480077 5310 0.0024423187132925 5311 0.0024419326800853 5312 0.0024415482766926 5313 0.0024411629419774 5314 0.0024407783057541 5315 0.0024403927382082 5316 0.0024400097317994 5317 0.0024396236985922 5318 0.0024392397608608 5319 0.002438856754452 5320 0.0024384732823819 5321 0.0024380898103118 5322 0.0024377063382417 5323 0.0024373224005103 5324 0.0024369382299483 5325 0.0024365559220314 5326 0.0024361722171307 5327 0.0024357889778912 5328 0.002435406204313 5329 0.0024350234307349 5330 0.0024346415884793 5331 0.0024342606775463 5332 0.0024338774383068 5333 0.0024334953632206 5334 0.0024331132881343 5335 0.0024327321443707 5336 0.0024323498364538 5337 0.0024319691583514 5338 0.0024315877817571 5339 0.0024312052410096 5340 0.0024308240972459 5341 0.0024304434191436 5342 0.0024300622753799 5343 0.0024296818301082 5344 0.0024293018504977 5345 0.002428921405226 5346 0.0024285409599543 5347 0.0024281593505293 5348 0.0024277805350721 5349 0.0024274007882923 5350 0.0024270210415125 5351 0.0024266419932246 5352 0.0024262631777674 5353 0.002425883198157 5354 0.0024255034513772 5355 0.0024251244030893 5356 0.0024247460532933 5357 0.0024243658408523 5358 0.0024239872582257 5359 0.0024236089084297 5360 0.0024232300929725 5361 0.0024228524416685 5362 0.0024224745575339 5363 0.0024220966733992 5364 0.0024217190220952 5365 0.0024213416036218 5366 0.0024209641851485 5367 0.0024205856025219 5368 0.0024202074855566 5369 0.0024198314640671 5370 0.0024194535799325 5371 0.002419077558443 5372 0.0024187001399696 5373 0.0024183234199882 5374 0.0024179483298212 5375 0.0024175720755011 5376 0.0024171955883503 5377 0.0024168202653527 5378 0.0024164444766939 5379 0.0024160682223737 5380 0.0024156933650374 5381 0.0024153182748705 5382 0.002414942253381 5383 0.0024145669303834 5384 0.0024141923058778 5385 0.0024138176813722 5386 0.0024134428240359 5387 0.002413067035377 5388 0.0024126931093633 5389 0.0024123191833496 5390 0.0024119450245053 5391 0.0024115713313222 5392 0.0024111983366311 5393 0.0024108248762786 5394 0.0024104516487569 5395 0.0024100788868964 5396 0.0024097058922052 5397 0.0024093333631754 5398 0.0024089603684843 5399 0.0024085876066238 5400 0.0024082157760859 5401 0.0024078437127173 5402 0.0024074718821794 5403 0.0024070995859802 5404 0.002406727289781 5405 0.0024063566233963 5406 0.002405985025689 5407 0.0024056141264737 5408 0.0024052432272583 5409 0.0024048711638898 5410 0.0024044997990131 5411 0.002404130063951 5412 0.002403758931905 5413 0.0024033896625042 5414 0.0024030189961195 5415 0.0024026499595493 5416 0.0024022804573178 5417 0.0024019104894251 5418 0.0024015414528549 5419 0.0024011712521315 5420 0.0024008015170693 5421 0.0024004345759749 5422 0.002400066005066 5423 0.0023996965028346 5424 0.002399327699095 5425 0.0023989588953555 5426 0.0023985910229385 5427 0.0023982217535377 5428 0.0023978541139513 5429 0.0023974857758731 5430 0.0023971176706254 5431 0.002396750729531 5432 0.0023963826242834 5433 0.0023960145190358 5434 0.0023956480436027 5435 0.0023952801711857 5436 0.0023949132300913 5437 0.0023945472203195 5438 0.0023941805120558 5439 0.0023938142694533 5440 0.0023934477940202 5441 0.0023930810857564 5442 0.002392714843154 5443 0.0023923483677208 5444 0.0023919816594571 5445 0.0023916168138385 5446 0.0023912515025586 5447 0.0023908854927868 5448 0.0023905206471682 5449 0.0023901555687189 5450 0.0023897918872535 5451 0.002389426343143 5452 0.002389061730355 5453 0.0023886975832283 5454 0.0023883334361017 5455 0.0023879695218056 5456 0.0023876058403403 5457 0.0023872419260442 5458 0.0023868787102401 5459 0.0023865145631135 5460 0.0023861506488174 5461 0.0023857881315053 5462 0.0023854246828705 5463 0.002385062398389 5464 0.0023846994154155 5465 0.002384337130934 5466 0.0023839748464525 5467 0.0023836127948016 5468 0.0023832507431507 5469 0.0023828882258385 5470 0.0023825264070183 5471 0.0023821643553674 5472 0.002381803933531 5473 0.0023814423475415 5474 0.0023810812272131 5475 0.0023807208053768 5476 0.002380358055234 5477 0.0023799974005669 5478 0.0023796367458999 5479 0.0023792774882168 5480 0.002378917299211 5481 0.0023785573430359 5482 0.0023781973868608 5483 0.0023778371978551 5484 0.0023774770088494 5485 0.0023771175183356 5486 0.0023767587263137 5487 0.0023763990029693 5488 0.0023760402109474 5489 0.0023756818845868 5490 0.0023753228597343 5491 0.0023749643005431 5492 0.0023746048100293 5493 0.00237424694933 5494 0.0023738883901387 5495 0.0023735295981169 5496 0.0023731719702482 5497 0.0023728138767183 5498 0.0023724548518658 5499 0.0023720990866423 5500 0.0023717407602817 5501 0.0023713833652437 5502 0.002371026435867 5503 0.0023706690408289 5504 0.0023703121114522 5505 0.0023699547164142 5506 0.0023695970885456 5507 0.0023692417889833 5508 0.0023688853252679 5509 0.0023685286287218 5510 0.002368172397837 5511 0.0023678159341216 5512 0.0023674592375755 5513 0.0023671037051827 5514 0.0023667477071285 5515 0.0023663914762437 5516 0.0023660361766815 5517 0.0023656815756112 5518 0.0023653260432184 5519 0.0023649709764868 5520 0.0023646161425859 5521 0.0023642620071769 5522 0.0023639078717679 5523 0.0023635537363589 5524 0.0023631993681192 5525 0.0023628452327102 5526 0.0023624913301319 5527 0.0023621376603842 5528 0.0023617839906365 5529 0.00236143078655 5530 0.002361076651141 5531 0.002360723214224 5532 0.0023603704757988 5533 0.0023600175045431 5534 0.0023596638347954 5535 0.0023593120276928 5536 0.002358959056437 5537 0.0023586084134877 5538 0.0023582549765706 5539 0.0023579027038068 5540 0.0023575504310429 5541 0.0023571981582791 5542 0.0023568475153297 5543 0.0023564952425659 5544 0.002356143668294 5545 0.0023557916283607 5546 0.0023554400540888 5547 0.0023550884798169 5548 0.002354736905545 5549 0.0023543862625957 5550 0.0023540360853076 5551 0.002353684976697 5552 0.002353334100917 5553 0.0023529841564596 5554 0.0023526332806796 5555 0.0023522828705609 5556 0.0023519336245954 5557 0.0023515832144767 5558 0.0023512335028499 5559 0.0023508840240538 5560 0.0023505340795964 5561 0.002350184135139 5562 0.0023498355876654 5563 0.0023494858760387 5564 0.0023491368629038 5565 0.0023487871512771 5566 0.0023484388366342 5567 0.0023480895906687 5568 0.0023477398790419 5569 0.0023473920300603 5570 0.0023470441810787 5571 0.0023466965649277 5572 0.0023463473189622 5573 0.00234599923715 5574 0.0023456513881683 5575 0.002345304004848 5576 0.0023449566215277 5577 0.0023446083068848 5578 0.0023442620877177 5579 0.0023439130745828 5580 0.0023435656912625 5581 0.0023432190064341 5582 0.0023428716231138 5583 0.0023425263352692 5584 0.0023421791847795 5585 0.0023418334312737 5586 0.0023414867464453 5587 0.0023411409929395 5588 0.0023407968692482 5589 0.002340450650081 5590 0.0023401048965752 5591 0.0023397593759 5592 0.0023394140880555 5593 0.0023390690330416 5594 0.0023387242108583 5595 0.0023383782245219 5596 0.0023380341008306 5597 0.0023376885801554 5598 0.0023373437579721 5599 0.0023369994014502 5600 0.0023366555105895 5601 0.0023363116197288 5602 0.0023359670303762 5603 0.0023356238380075 5604 0.0023352804128081 5605 0.0023349369876087 5606 0.002334593096748 5607 0.0023342503700405 5608 0.0023339076433331 5609 0.0023335649166256 5610 0.0023332210257649 5611 0.0023328787647188 5612 0.002332536270842 5613 0.0023321935441345 5614 0.0023318489547819 5615 0.0023315069265664 5616 0.0023311644326895 5617 0.002330823102966 5618 0.0023304796777666 5619 0.0023301378823817 5620 0.0023297958541662 5621 0.0023294549901038 5622 0.0023291129618883 5623 0.002328772097826 5624 0.0023284298367798 5625 0.0023280899040401 5626 0.0023277488071471 5627 0.0023274086415768 5628 0.0023270666133612 5629 0.0023267257492989 5630 0.0023263862822205 5631 0.0023260449524969 5632 0.0023257052525878 5633 0.0023253632243723 5634 0.0023250232916325 5635 0.0023246847558767 5636 0.002324344124645 5637 0.0023240034934133 5638 0.0023236637935042 5639 0.0023233247920871 5640 0.0023229862563312 5641 0.0023226463235915 5642 0.0023223080206662 5643 0.0023219687864184 5644 0.0023216300178319 5645 0.0023212907835841 5646 0.0023209513165057 5647 0.0023206134792417 5648 0.0023202742449939 5649 0.0023199347779155 5650 0.0023195962421596 5651 0.0023192586377263 5652 0.0023189203348011 5653 0.0023185824975371 5654 0.0023182448931038 5655 0.0023179058916867 5656 0.0023175694514066 5657 0.0023172320798039 5658 0.0023168965708464 5659 0.0023165582679212 5660 0.0023162211291492 5661 0.0023158844560385 5662 0.0023155487142503 5663 0.0023152115754783 5664 0.0023148749023676 5665 0.0023145377635956 5666 0.0023142020218074 5667 0.0023138653486967 5668 0.002313528675586 5669 0.0023131922353059 5670 0.002312856959179 5671 0.0023125214502215 5672 0.0023121857084334 5673 0.0023118490353227 5674 0.0023115139920264 5675 0.0023111791815609 5676 0.0023108448367566 5677 0.0023105095606297 5678 0.0023101754486561 5679 0.0023098418023437 5680 0.0023095065262169 5681 0.0023091724142432 5682 0.0023088383022696 5683 0.0023085051216185 5684 0.0023081712424755 5685 0.0023078373633325 5686 0.0023075020872056 5687 0.0023071689065546 5688 0.0023068354930729 5689 0.0023065027780831 5690 0.0023061688989401 5691 0.0023058366496116 5692 0.0023055039346218 5693 0.0023051721509546 5694 0.0023048387374729 5695 0.0023045062553138 5696 0.0023041730746627 5697 0.0023038415238261 5698 0.0023035088088363 5699 0.0023031767923385 5700 0.0023028450086713 5701 0.0023025127593428 5702 0.0023021812085062 5703 0.0023018491920084 5704 0.0023015169426799 5705 0.0023011858575046 5706 0.0023008538410068 5707 0.0023005232214928 5708 0.0023001916706562 5709 0.0022998610511422 5710 0.0022995315957814 5711 0.0022992007434368 5712 0.0022988698910922 5713 0.0022985399700701 5714 0.0022982093505561 5715 0.0022978796623647 5716 0.002297549508512 5717 0.0022972193546593 5718 0.0022968892008066 5719 0.0022965599782765 5720 0.0022962298244238 5721 0.002295900369063 5722 0.0022955695167184 5723 0.0022952407598495 5724 0.0022949101403356 5725 0.0022945809178054 5726 0.0022942514624447 5727 0.0022939234040678 5728 0.0022935948800296 5729 0.0022932663559914 5730 0.0022929385304451 5731 0.0022926107048988 5732 0.0022922824136913 5733 0.0022919548209757 5734 0.00229162722826 5735 0.0022912989370525 5736 0.0022909727413207 5737 0.0022906444501132 5738 0.0022903177887201 5739 0.0022899906616658 5740 0.0022896633017808 5741 0.0022893361747265 5742 0.0022890097461641 5743 0.002288683783263 5744 0.0022883580531925 5745 0.002288032323122 5746 0.0022877063602209 5747 0.0022873803973198 5748 0.0022870553657413 5749 0.0022867298685014 5750 0.002286404138431 5751 0.0022860802710056 5752 0.0022857547737658 5753 0.0022854299750179 5754 0.0022851042449474 5755 0.0022847796790302 5756 0.0022844548802823 5757 0.0022841300815344 5758 0.0022838048171252 5759 0.0022834804840386 5760 0.0022831554524601 5761 0.0022828315850347 5762 0.0022825081832707 5763 0.0022821847815067 5764 0.0022818616125733 5765 0.0022815372794867 5766 0.0022812145762146 5767 0.0022808911744505 5768 0.0022805684711784 5769 0.0022802441380918 5770 0.0022799214348197 5771 0.0022795982658863 5772 0.0022792753297836 5773 0.002278953557834 5774 0.0022786306217313 5775 0.0022783074527979 5776 0.0022779838182032 5777 0.0022776615805924 5778 0.0022773400414735 5779 0.0022770171053708 5780 0.0022766948677599 5781 0.0022763726301491 5782 0.0022760522551835 5783 0.0022757295519114 5784 0.0022754082456231 5785 0.0022750871721655 5786 0.0022747660987079 5787 0.0022744450252503 5788 0.0022741241846234 5789 0.0022738026455045 5790 0.0022734811063856 5791 0.0022731604985893 5792 0.0022728394251317 5793 0.0022725192829967 5794 0.0022721984423697 5795 0.002271878067404 5796 0.0022715569939464 5797 0.0022712356876582 5798 0.0022709167096764 5799 0.0022705956362188 5800 0.0022702771238983 5801 0.0022699574474245 5802 0.0022696373052895 5803 0.0022693197242916 5804 0.0022689998149872 5805 0.002268681069836 5806 0.0022683623246849 5807 0.0022680428810418 5808 0.0022677229717374 5809 0.0022674053907394 5810 0.0022670864127576 5811 0.0022667683660984 5812 0.0022664500866085 5813 0.0022661318071187 5814 0.0022658135276288 5815 0.0022654957138002 5816 0.002265177667141 5817 0.0022648593876511 5818 0.0022645434364676 5819 0.0022642253898084 5820 0.0022639080416411 5821 0.0022635934874415 5822 0.0022632766049355 5823 0.0022629599552602 5824 0.0022626426070929 5825 0.0022623271215707 5826 0.0022620118688792 5827 0.0022616945207119 5828 0.0022613788023591 5829 0.0022610630840063 5830 0.0022607475984842 5831 0.0022604309488088 5832 0.0022601159289479 5833 0.0022597997449338 5834 0.0022594844922423 5835 0.0022591680753976 5836 0.002258853521198 5837 0.0022585389669985 5838 0.0022582234814763 5839 0.0022579098585993 5840 0.0022575948387384 5841 0.0022572809830308 5842 0.0022569664288312 5843 0.0022566521074623 5844 0.0022563377860934 5845 0.0022560239303857 5846 0.0022557093761861 5847 0.0022553952876478 5848 0.0022550816647708 5849 0.0022547678090632 5850 0.0022544532548636 5851 0.0022541403304785 5852 0.002253825776279 5853 0.0022535123862326 5854 0.0022531992290169 5855 0.0022528858389705 5856 0.0022525717504323 5857 0.0022522599902004 5858 0.0022519484627992 5859 0.0022516348399222 5860 0.0022513228468597 5861 0.0022510115522891 5862 0.0022506983950734 5863 0.0022503859363496 5864 0.0022500748746097 5865 0.0022497624158859 5866 0.0022494504228234 5867 0.0022491384297609 5868 0.0022488266695291 5869 0.0022485146764666 5870 0.0022482026834041 5871 0.0022478918544948 5872 0.0022475798614323 5873 0.0022472678683698 5874 0.0022469568066299 5875 0.0022466452792287 5876 0.0022463349159807 5877 0.0022460236214101 5878 0.0022457144223154 5879 0.0022454031277448 5880 0.0022450934629887 5881 0.0022447830997407 5882 0.0022444734349847 5883 0.0022441619075835 5884 0.00224385317415 5885 0.002243542810902 5886 0.0022432329133153 5887 0.0022429225500673 5888 0.0022426128853112 5889 0.0022423032205552 5890 0.0022419942542911 5891 0.0022416841238737 5892 0.0022413751576096 5893 0.0022410643287003 5894 0.0022407558280975 5895 0.002240447094664 5896 0.0022401390597224 5897 0.0022398317232728 5898 0.00223952322267 5899 0.0022392158862203 5900 0.0022389078512788 5901 0.0022385993506759 5902 0.002238292247057 5903 0.0022379839792848 5904 0.0022376764100045 5905 0.0022373693063855 5906 0.002237060572952 5907 0.0022367534693331 5908 0.0022364472970366 5909 0.002236139960587 5910 0.0022358314599842 5911 0.0022355248220265 5912 0.0022352179512382 5913 0.0022349101491272 5914 0.0022346037440002 5915 0.0022342978045344 5916 0.002233991632238 5917 0.002233685227111 5918 0.0022333802189678 5919 0.0022330745123327 5920 0.0022327692713588 5921 0.002232464030385 5922 0.0022321566939354 5923 0.0022318516857922 5924 0.0022315469104797 5925 0.0022312405053526 5926 0.0022309352643788 5927 0.002230630023405 5928 0.0022303254809231 5929 0.0022300202399492 5930 0.0022297140676528 5931 0.0022294092923403 5932 0.0022291040513664 5933 0.0022287997417152 5934 0.0022284954320639 5935 0.0022281906567514 5936 0.0022278865799308 5937 0.0022275832016021 5938 0.0022272791247815 5939 0.0022269741166383 5940 0.0022266709711403 5941 0.0022263678256422 5942 0.0022260644473135 5943 0.002225759672001 5944 0.002225455828011 5945 0.002225152682513 5946 0.002224849537015 5947 0.0022245454601943 5948 0.0022242423146963 5949 0.0022239394020289 5950 0.0022236364893615 5951 0.0022233326453716 5952 0.0022230306640267 5953 0.00222272798419 5954 0.0022224246058613 5955 0.0022221235558391 5956 0.0022218218073249 5957 0.0022215195931494 5958 0.0022212183102965 5959 0.0022209158632904 5960 0.0022206148132682 5961 0.0022203128319234 5962 0.0022200113162398 5963 0.0022197084035724 5964 0.0022194078192115 5965 0.0022191060706973 5966 0.0022188043221831 5967 0.0022185030393302 5968 0.0022182022221386 5969 0.002217901404947 5970 0.0022175989579409 5971 0.002217297675088 5972 0.0022169959265739 5973 0.0022166960407048 5974 0.0022163959220052 5975 0.0022160955704749 5976 0.0022157959174365 5977 0.0022154955659062 5978 0.0022151959128678 5979 0.0022148955613375 5980 0.0022145959082991 5981 0.0022142957895994 5982 0.0022139966022223 5983 0.0022136971820146 5984 0.0022133977618068 5985 0.0022130985744298 5986 0.002212799154222 5987 0.0022124988026917 5988 0.0022121998481452 5989 0.0022119004279375 5990 0.0022116010077298 5991 0.002211301587522 5992 0.0022110033314675 5993 0.0022107055410743 5994 0.0022104075178504 5995 0.0022101097274572 5996 0.0022098124027252 5997 0.0022095141466707 5998 0.0022092172876 5999 0.0022089192643762 6000 0.0022086221724749 6001 0.0022083248477429 6002 0.0022080270573497 6003 0.0022077304311097 6004 0.0022074333392084 6005 0.0022071357816458 6006 0.0022068389225751 6007 0.0022065411321819 6008 0.0022062433417886 6009 0.0022059474140406 6010 0.0022056503221393 6011 0.002205353230238 6012 0.0022050575353205 6013 0.0022047609090805 6014 0.0022044654469937 6015 0.0022041695192456 6016 0.0022038740571588 6017 0.0022035790607333 6018 0.0022032833658159 6019 0.0022029869724065 6020 0.0022026922088116 6021 0.0022023962810636 6022 0.0022021010518074 6023 0.00220180535689 6024 0.0022015101276338 6025 0.0022012155968696 6026 0.0022009194362909 6027 0.0022006251383573 6028 0.0022003301419318 6029 0.0022000344470143 6030 0.0021997396834195 6031 0.0021994453854859 6032 0.0021991496905684 6033 0.0021988565567881 6034 0.0021985624916852 6035 0.0021982688922435 6036 0.002197973895818 6037 0.002197680529207 6038 0.002197387162596 6039 0.0021970940288156 6040 0.0021967999637127 6041 0.002196506364271 6042 0.002196213696152 6043 0.0021959191653877 6044 0.0021956274285913 6045 0.002195333596319 6046 0.0021950406953692 6047 0.0021947475615889 6048 0.0021944546606392 6049 0.0021941615268588 6050 0.0021938681602478 6051 0.0021935747936368 6052 0.0021932830568403 6053 0.0021929899230599 6054 0.0021926977206022 6055 0.0021924064494669 6056 0.0021921154111624 6057 0.0021918220445514 6058 0.0021915314719081 6059 0.002191239502281 6060 0.0021909475326538 6061 0.0021906555630267 6062 0.0021903642918915 6063 0.0021900734864175 6064 0.0021897810511291 6065 0.0021894907113165 6066 0.0021891994401813 6067 0.0021889079362154 6068 0.0021886164322495 6069 0.002188325393945 6070 0.0021880336571485 6071 0.0021877433173358 6072 0.00218745181337 6073 0.0021871621720493 6074 0.002186871599406 6075 0.002186581492424 6076 0.0021862920839339 6077 0.0021860033739358 6078 0.0021857146639377 6079 0.0021854259539396 6080 0.0021851372439414 6081 0.0021848489996046 6082 0.0021845600567758 6083 0.0021842708811164 6084 0.0021839831024408 6085 0.0021836939267814 6086 0.0021834059152752 6087 0.0021831169724464 6088 0.0021828280296177 6089 0.0021825402509421 6090 0.0021822520066053 6091 0.0021819639950991 6092 0.0021816757507622 6093 0.002181388437748 6094 0.0021811006590724 6095 0.0021808128803968 6096 0.0021805258002132 6097 0.0021802387200296 6098 0.0021799518726766 6099 0.0021796650253236 6100 0.0021793781779706 6101 0.0021790913306177 6102 0.0021788040176034 6103 0.0021785176359117 6104 0.0021782303228974 6105 0.0021779446396977 6106 0.0021776580251753 6107 0.0021773711778224 6108 0.0021770845633 6109 0.002176798414439 6110 0.0021765111014247 6111 0.0021762251853943 6112 0.0021759390365332 6113 0.0021756531205028 6114 0.0021753674373031 6115 0.0021750819869339 6116 0.0021747960709035 6117 0.0021745106205344 6118 0.0021742256358266 6119 0.0021739406511188 6120 0.0021736554335803 6121 0.0021733699832112 6122 0.0021730863954872 6123 0.0021728004794568 6124 0.0021725164260715 6125 0.0021722309757024 6126 0.0021719464566559 6127 0.0021716612391174 6128 0.0021713764872402 6129 0.0021710924338549 6130 0.002170808147639 6131 0.0021705231629312 6132 0.0021702388767153 6133 0.0021699536591768 6134 0.0021696705371141 6135 0.002169385086745 6136 0.0021691017318517 6137 0.0021688172128052 6138 0.002168535022065 6139 0.0021682516671717 6140 0.0021679680794477 6141 0.0021676849573851 6142 0.0021674018353224 6143 0.002167119178921 6144 0.0021668360568583 6145 0.0021665536332875 6146 0.0021662705112249 6147 0.0021659885533154 6148 0.0021657054312527 6149 0.0021654227748513 6150 0.0021651401184499 6151 0.0021648579277098 6152 0.0021645743399858 6153 0.0021642921492457 6154 0.0021640104241669 6155 0.0021637263707817 6156 0.0021634458098561 6157 0.002163162920624 6158 0.0021628821268678 6159 0.0021626011002809 6160 0.0021623191423714 6161 0.0021620390471071 6162 0.0021617577876896 6163 0.002161477226764 6164 0.002161196898669 6165 0.0021609156392515 6166 0.0021606362424791 6167 0.0021603556815535 6168 0.0021600753534585 6169 0.0021597966551781 6170 0.0021595163270831 6171 0.0021592359989882 6172 0.0021589561365545 6173 0.0021586765069515 6174 0.0021583959460258 6175 0.0021581167820841 6176 0.0021578369196504 6177 0.00215755822137 6178 0.002157277893275 6179 0.0021570003591478 6180 0.0021567214280367 6181 0.0021564424969256 6182 0.0021561633329839 6183 0.0021558851003647 6184 0.0021556075662374 6185 0.0021553284022957 6186 0.0021550499368459 6187 0.002154772169888 6188 0.0021544932387769 6189 0.0021542159374803 6190 0.0021539379376918 6191 0.0021536592394114 6192 0.0021533812396228 6193 0.0021531025413424 6194 0.0021528257057071 6195 0.0021525472402573 6196 0.0021522690076381 6197 0.0021519912406802 6198 0.0021517134737223 6199 0.0021514361724257 6200 0.0021511600352824 6201 0.0021508829668164 6202 0.0021506049670279 6203 0.0021503292955458 6204 0.0021500519942492 6205 0.0021497758571059 6206 0.0021494983229786 6207 0.0021492224186659 6208 0.0021489460486919 6209 0.0021486692130566 6210 0.0021483933087438 6211 0.0021481171716005 6212 0.0021478415001184 6213 0.0021475637331605 6214 0.0021472878288478 6215 0.0021470123901963 6216 0.0021467367187142 6217 0.0021464601159096 6218 0.0021461837459356 6219 0.0021459087729454 6220 0.0021456335671246 6221 0.0021453569643199 6222 0.0021450819913298 6223 0.0021448074840009 6224 0.0021445313468575 6225 0.0021442575380206 6226 0.0021439827978611 6227 0.0021437073592097 6228 0.0021434330847114 6229 0.0021431592758745 6230 0.0021428838372231 6231 0.0021426095627248 6232 0.0021423352882266 6233 0.0021420610137284 6234 0.0021417860407382 6235 0.0021415119990706 6236 0.0021412379574031 6237 0.0021409629844129 6238 0.0021406889427453 6239 0.0021404149010777 6240 0.0021401401609182 6241 0.0021398670505732 6242 0.0021395930089056 6243 0.0021393201313913 6244 0.0021390470210463 6245 0.0021387739107013 6246 0.0021385010331869 6247 0.00213822722435 6248 0.0021379557438195 6249 0.0021376840304583 6250 0.002137411152944 6251 0.0021371399052441 6252 0.0021368667948991 6253 0.0021365946158767 6254 0.0021363231353462 6255 0.0021360507234931 6256 0.0021357787773013 6257 0.0021355063654482 6258 0.002135236049071 6259 0.0021349638700485 6260 0.0021346907597035 6261 0.0021344190463424 6262 0.0021341471001506 6263 0.0021338760852814 6264 0.0021336055360734 6265 0.0021333342883736 6266 0.002133064204827 6267 0.0021327917929739 6268 0.0021325214765966 6269 0.0021322504617274 6270 0.0021319810766727 6271 0.0021317100618035 6272 0.0021314402110875 6273 0.0021311698947102 6274 0.0021308993455023 6275 0.0021306285634637 6276 0.0021303582470864 6277 0.002130089327693 6278 0.0021298190113157 6279 0.0021295486949384 6280 0.0021292795427144 6281 0.0021290087606758 6282 0.0021287389099598 6283 0.0021284688264132 6284 0.0021281992085278 6285 0.0021279302891344 6286 0.002127660671249 6287 0.0021273917518556 6288 0.0021271223668009 6289 0.0021268534474075 6290 0.0021265842951834 6291 0.0021263160742819 6292 0.0021260473877192 6293 0.002125778933987 6294 0.0021255109459162 6295 0.0021252420265228 6296 0.0021249747369438 6297 0.0021247053518891 6298 0.0021244366653264 6299 0.0021241693757474 6300 0.002123901154846 6301 0.0021236324682832 6302 0.0021233642473817 6303 0.0021230969578028 6304 0.0021228278055787 6305 0.0021225605159998 6306 0.0021222915966064 6307 0.0021220243070275 6308 0.0021217570174485 6309 0.002121489495039 6310 0.0021212219726294 6311 0.0021209551487118 6312 0.002120687160641 6313 0.0021204208023846 6314 0.0021201535128057 6315 0.0021198869217187 6316 0.0021196212619543 6317 0.0021193551365286 6318 0.0021190880797803 6319 0.0021188212558627 6320 0.0021185548976064 6321 0.0021182887721807 6322 0.0021180217154324 6323 0.0021177558228374 6324 0.0021174901630729 6325 0.0021172231063247 6326 0.0021169576793909 6327 0.002116690389812 6328 0.0021164258942008 6329 0.0021161600016057 6330 0.0021158936433494 6331 0.0021156282164156 6332 0.0021153627894819 6333 0.0021150968968868 6334 0.0021148326341063 6335 0.0021145674400032 6336 0.0021143015474081 6337 0.0021140375174582 6338 0.0021137723233551 6339 0.002113507129252 6340 0.0021132424008101 6341 0.0021129788365215 6342 0.0021127131767571 6343 0.0021124486811459 6344 0.0021121837198734 6345 0.0021119196899235 6346 0.0021116549614817 6347 0.0021113897673786 6348 0.0021111264359206 6349 0.0021108619403094 6350 0.0021105972118676 6351 0.002110333647579 6352 0.0021100698504597 6353 0.0021098072174937 6354 0.002109543653205 6355 0.0021092803217471 6356 0.0021090174559504 6357 0.0021087545901537 6358 0.0021084910258651 6359 0.0021082295570523 6360 0.0021079669240862 6361 0.0021077038254589 6362 0.0021074418909848 6363 0.0021071787923574 6364 0.0021069175563753 6365 0.0021066546905786 6366 0.00210639112629 6367 0.0021061294246465 6368 0.0021058679558337 6369 0.0021056048572063 6370 0.0021053431555629 6371 0.0021050805225968 6372 0.0021048183552921 6373 0.0021045575849712 6374 0.0021042951848358 6375 0.002104033017531 6376 0.0021037722472101 6377 0.002103510312736 6378 0.0021032497752458 6379 0.002102987607941 6380 0.0021027259062976 6381 0.0021024658344686 6382 0.0021022048313171 6383 0.0021019445266575 6384 0.0021016832906753 6385 0.002101422753185 6386 0.0021011622156948 6387 0.0021009021438658 6388 0.0021006404422224 6389 0.0021003808360547 6390 0.0021001198329031 6391 0.0020998590625823 6392 0.0020995992235839 6393 0.0020993382204324 6394 0.002099079079926 6395 0.0020988173782825 6396 0.0020985580049455 6397 0.0020982981659472 6398 0.0020980378612876 6399 0.0020977794192731 6400 0.0020975195802748 6401 0.0020972599741071 6402 0.0020969996694475 6403 0.0020967405289412 6404 0.0020964811556041 6405 0.002096222480759 6406 0.0020959633402526 6407 0.0020957048982382 6408 0.0020954455249012 6409 0.002095187548548 6410 0.0020949279423803 6411 0.0020946688018739 6412 0.0020944108255208 6413 0.0020941512193531 6414 0.002093892544508 6415 0.0020936341024935 6416 0.0020933761261404 6417 0.0020931165199727 6418 0.0020928585436195 6419 0.0020926005672663 6420 0.0020923416595906 6421 0.0020920836832374 6422 0.0020918273366988 6423 0.002091568429023 6424 0.0020913109183311 6425 0.0020910531748086 6426 0.0020907958969474 6427 0.0020905395504087 6428 0.0020902811083943 6429 0.0020900254603475 6430 0.0020897679496557 6431 0.0020895111374557 6432 0.0020892540924251 6433 0.0020889972802252 6434 0.0020887395367026 6435 0.0020884838886559 6436 0.0020882252138108 6437 0.0020879697985947 6438 0.0020877122879028 6439 0.0020874561741948 6440 0.0020871995948255 6441 0.0020869434811175 6442 0.0020866869017482 6443 0.0020864312537014 6444 0.0020861739758402 6445 0.0020859187934548 6446 0.0020856624469161 6447 0.0020854072645307 6448 0.0020851520821452 6449 0.0020848968997598 6450 0.002084641251713 6451 0.0020843863021582 6452 0.0020841318182647 6453 0.0020838780328631 6454 0.0020836228504777 6455 0.0020833685994148 6456 0.0020831150468439 6457 0.0020828605629504 6458 0.0020826058462262 6459 0.002082351827994 6460 0.002082098275423 6461 0.0020818437915295 6462 0.0020815902389586 6463 0.002081336453557 6464 0.0020810819696635 6465 0.0020808286499232 6466 0.0020805755630136 6467 0.0020803224761039 6468 0.002080068923533 6469 0.0020798156037927 6470 0.0020795622840524 6471 0.0020793084986508 6472 0.0020790558774024 6473 0.0020788037218153 6474 0.0020785490050912 6475 0.0020782973151654 6476 0.0020780451595783 6477 0.002077791839838 6478 0.002077539684251 6479 0.0020772870630026 6480 0.0020770344417542 6481 0.0020767829846591 6482 0.002076530829072 6483 0.0020762775093317 6484 0.0020760248880833 6485 0.0020757724996656 6486 0.0020755212754011 6487 0.002075269119814 6488 0.002075016964227 6489 0.0020747655071318 6490 0.002074513817206 6491 0.0020742616616189 6492 0.0020740106701851 6493 0.0020737592130899 6494 0.0020735077559948 6495 0.0020732567645609 6496 0.0020730050746351 6497 0.0020727529190481 6498 0.0020725021604449 6499 0.0020722514018416 6500 0.0020720013417304 6501 0.0020717508159578 6502 0.0020715002901852 6503 0.0020712502300739 6504 0.0020709990058094 6505 0.0020707489456981 6506 0.0020704984199256 6507 0.0020702476613224 6508 0.0020699969027191 6509 0.0020697473082691 6510 0.0020694960840046 6511 0.0020692457910627 6512 0.0020689957309514 6513 0.0020687463693321 6514 0.0020684958435595 6515 0.0020682464819402 6516 0.0020679971203208 6517 0.0020677470602095 6518 0.0020674979314208 6519 0.0020672483369708 6520 0.0020669985096902 6521 0.0020667493809015 6522 0.0020665000192821 6523 0.0020662508904934 6524 0.0020660026930273 6525 0.0020657528657466 6526 0.0020655039697886 6527 0.0020652548409998 6528 0.0020650059450418 6529 0.0020647570490837 6530 0.0020645086187869 6531 0.0020642594899982 6532 0.0020640105940402 6533 0.0020637621637434 6534 0.0020635132677853 6535 0.0020632660016418 6536 0.0020630173385143 6537 0.0020627698395401 6538 0.0020625218749046 6539 0.0020622746087611 6540 0.0020620278082788 6541 0.0020617807749659 6542 0.0020615323446691 6543 0.0020612848456949 6544 0.0020610380452126 6545 0.0020607907790691 6546 0.0020605437457561 6547 0.0020602976437658 6548 0.0020600501447916 6549 0.0020598038099706 6550 0.002059557242319 6551 0.0020593102090061 6552 0.0020590638741851 6553 0.0020588177721947 6554 0.0020585714373738 6555 0.0020583258010447 6556 0.0020580794662237 6557 0.0020578331314027 6558 0.0020575874950737 6559 0.002057341625914 6560 0.0020570971537381 6561 0.0020568503532559 6562 0.0020566047169268 6563 0.0020563593134284 6564 0.0020561143755913 6565 0.0020558694377542 6566 0.0020556235685945 6567 0.0020553774666041 6568 0.0020551334600896 6569 0.0020548873580992 6570 0.002054643118754 6571 0.0020543988794088 6572 0.0020541539415717 6573 0.0020539092365652 6574 0.00205366499722 6575 0.0020534205250442 6576 0.0020531765185297 6577 0.0020529322791845 6578 0.0020526880398393 6579 0.0020524438004941 6580 0.0020521986298263 6581 0.002051955088973 6582 0.0020517103839666 6583 0.0020514668431133 6584 0.0020512230694294 6585 0.0020509785972536 6586 0.0020507352892309 6587 0.002050492214039 6588 0.0020502486731857 6589 0.0020500048995018 6590 0.0020497613586485 6591 0.0020495180506259 6592 0.002049274276942 6593 0.0020490321330726 6594 0.0020487881265581 6595 0.0020485445857048 6596 0.0020483022090048 6597 0.0020480593666434 6598 0.0020478169899434 6599 0.0020475739147514 6600 0.0020473306067288 6601 0.002047089394182 6602 0.0020468451548368 6603 0.0020466030109674 6604 0.0020463597029448 6605 0.002046117791906 6606 0.0020458756480366 6607 0.0020456330385059 6608 0.0020453904289752 6609 0.0020451480522752 6610 0.002044907072559 6611 0.0020446651615202 6612 0.0020444230176508 6613 0.0020441804081202 6614 0.002043939428404 6615 0.0020436975173652 6616 0.0020434560719877 6617 0.0020432146266103 6618 0.0020429731812328 6619 0.0020427326671779 6620 0.0020424900576472 6621 0.002042249077931 6622 0.0020420083310455 6623 0.002041766885668 6624 0.0020415259059519 6625 0.0020412856247276 6626 0.0020410441793501 6627 0.0020408041309565 6628 0.0020405631512403 6629 0.0020403231028467 6630 0.0020400818902999 6631 0.0020398409105837 6632 0.0020396006293595 6633 0.0020393598824739 6634 0.0020391198340803 6635 0.002038880251348 6636 0.0020386395044625 6637 0.0020383999217302 6638 0.0020381596405059 6639 0.0020379195921123 6640 0.0020376788452268 6641 0.0020374392624944 6642 0.0020371999125928 6643 0.0020369598641992 6644 0.0020367202814668 6645 0.0020364811643958 6646 0.0020362413488328 6647 0.0020360024645925 6648 0.0020357633475214 6649 0.0020355256274343 6650 0.0020352862775326 6651 0.0020350478589535 6652 0.002034809673205 6653 0.0020345712546259 6654 0.0020343321375549 6655 0.0020340941846371 6656 0.0020338553003967 6657 0.0020336168818176 6658 0.0020333786960691 6659 0.0020331412088126 6660 0.0020329030230641 6661 0.0020326660014689 6662 0.0020324273500592 6663 0.0020321900956333 6664 0.0020319526083767 6665 0.0020317144226283 6666 0.0020314764697105 6667 0.0020312389824539 6668 0.0020310012623668 6669 0.0020307637751102 6670 0.0020305262878537 6671 0.0020302892662585 6672 0.0020300524774939 6673 0.002029815223068 6674 0.0020295779686421 6675 0.0020293411798775 6676 0.002029103692621 6677 0.0020288676023483 6678 0.0020286305807531 6679 0.0020283935591578 6680 0.0020281560719013 6681 0.0020279195159674 6682 0.0020276836585253 6683 0.0020274482667446 6684 0.0020272110123187 6685 0.0020269746892154 6686 0.0020267383661121 6687 0.0020265022758394 6688 0.0020262664183974 6689 0.0020260291639715 6690 0.0020257937721908 6691 0.0020255576819181 6692 0.0020253220573068 6693 0.0020250857342035 6694 0.0020248498767614 6695 0.0020246147178113 6696 0.0020243790932 6697 0.0020241434685886 6698 0.0020239085424691 6699 0.0020236731506884 6700 0.0020234379917383 6701 0.0020232023671269 6702 0.0020229681394994 6703 0.002022732514888 6704 0.0020224975887686 6705 0.0020222621969879 6706 0.0020220265723765 6707 0.0020217925775796 6708 0.0020215576514602 6709 0.0020213234238327 6710 0.0020210884977132 6711 0.002020854037255 6712 0.0020206200424582 6713 0.002020385582 6714 0.0020201504230499 6715 0.0020199161954224 6716 0.0020196819677949 6717 0.0020194482058287 6718 0.0020192144438624 6719 0.002018979517743 6720 0.0020187452901155 6721 0.0020185105968267 6722 0.0020182779990137 6723 0.0020180444698781 6724 0.0020178109407425 6725 0.0020175769459456 6726 0.0020173438824713 6727 0.0020171103533357 6728 0.0020168768242002 6729 0.0020166435278952 6730 0.0020164099987596 6731 0.0020161767024547 6732 0.0020159436389804 6733 0.0020157103426754 6734 0.0020154779776931 6735 0.0020152451470494 6736 0.0020150132477283 6737 0.0020147794857621 6738 0.002014547586441 6739 0.0020143142901361 6740 0.0020140819251537 6741 0.0020138493273407 6742 0.002013617195189 6743 0.002013384597376 6744 0.0020131524652243 6745 0.0020129201002419 6746 0.0020126877352595 6747 0.0020124551374465 6748 0.0020122244022787 6749 0.0020119920372963 6750 0.0020117606036365 6751 0.0020115282386541 6752 0.0020112968049943 6753 0.0020110639743507 6754 0.0020108334720135 6755 0.002010601805523 6756 0.0020103703718632 6757 0.0020101382397115 6758 0.0020099082030356 6759 0.002009677933529 6760 0.0020094464998692 6761 0.0020092155318707 6762 0.0020089852623641 6763 0.0020087549928576 6764 0.002008524723351 6765 0.0020082937553525 6766 0.002008062787354 6767 0.0020078318193555 6768 0.0020076013170183 6769 0.0020073717460036 6770 0.0020071417093277 6771 0.0020069107413292 6772 0.002006680238992 6773 0.0020064499694854 6774 0.0020062213297933 6775 0.002005991525948 6776 0.0020057619549334 6777 0.0020055319182575 6778 0.0020053028129041 6779 0.0020050732418895 6780 0.0020048436708748 6781 0.0020046136341989 6782 0.0020043847616762 6783 0.0020041547250003 6784 0.0020039265509695 6785 0.0020036981441081 6786 0.002003469504416 6787 0.0020032408647239 6788 0.0020030117593706 6789 0.0020027826540172 6790 0.0020025537814945 6791 0.0020023249089718 6792 0.0020020962692797 6793 0.0020018669310957 6794 0.0020016392227262 6795 0.0020014110486954 6796 0.0020011821761727 6797 0.0020009537693113 6798 0.0020007244311273 6799 0.0020004967227578 6800 0.0020002680830657 6801 0.002000039909035 6802 0.0019998128991574 6803 0.0019995849579573 6804 0.0019993565510958 6805 0.001999129075557 6806 0.0019989009015262 6807 0.0019986724946648 6808 0.0019984450191259 6809 0.0019982184749097 6810 0.0019979909993708 6811 0.0019977632910013 6812 0.0019975358154625 6813 0.0019973088055849 6814 0.0019970808643848 6815 0.0019968543201685 6816 0.0019966280087829 6817 0.0019964014645666 6818 0.0019961739890277 6819 0.0019959465134889 6820 0.0019957199692726 6821 0.0019954929593951 6822 0.0019952664151788 6823 0.0019950394053012 6824 0.0019948126282543 6825 0.0019945863168687 6826 0.0019943602383137 6827 0.001994133926928 6828 0.0019939076155424 6829 0.0019936815369874 6830 0.0019934547599405 6831 0.0019932282157242 6832 0.0019930023699999 6833 0.0019927765242755 6834 0.0019925513770431 6835 0.0019923252984881 6836 0.0019920989871025 6837 0.0019918733742088 6838 0.0019916479941458 6839 0.0019914233125746 6840 0.001991197001189 6841 0.0019909723196179 6842 0.0019907464738935 6843 0.0019905208609998 6844 0.0019902959465981 6845 0.0019900717306882 6846 0.0019898463506252 6847 0.001989621669054 6848 0.001989396288991 6849 0.0019891718402505 6850 0.00198894739151 6851 0.0019887224771082 6852 0.0019884980283678 6853 0.0019882735796273 6854 0.0019880495965481 6855 0.0019878253806382 6856 0.0019876016303897 6857 0.0019873774144799 6858 0.0019871536642313 6859 0.0019869294483215 6860 0.001986704999581 6861 0.0019864828791469 6862 0.0019862586632371 6863 0.0019860353786498 6864 0.0019858123268932 6865 0.0019855878781527 6866 0.001985365524888 6867 0.0019851413089782 6868 0.0019849189557135 6869 0.0019846954382956 6870 0.0019844712223858 6871 0.0019842484034598 6872 0.0019840262830257 6873 0.0019838027656078 6874 0.0019835797138512 6875 0.0019833571277559 6876 0.0019831340759993 6877 0.0019829105585814 6878 0.001982687972486 6879 0.0019824649207294 6880 0.0019822421018034 6881 0.0019820213783532 6882 0.0019817987922579 6883 0.0019815769046545 6884 0.0019813543185592 6885 0.0019811333622783 6886 0.0019809110090137 6887 0.0019806891214103 6888 0.0019804670009762 6889 0.001980246277526 6890 0.0019800253212452 6891 0.0019798032008111 6892 0.0019795831758529 6893 0.0019793612882495 6894 0.001979140099138 6895 0.0019789186771959 6896 0.0019786981865764 6897 0.0019784769974649 6898 0.0019782555755228 6899 0.001978034619242 6900 0.0019778143614531 6901 0.0019775936380029 6902 0.0019773715175688 6903 0.0019771510269493 6904 0.0019769300706685 6905 0.001976708881557 6906 0.0019764881581068 6907 0.0019762685988098 6908 0.0019760488066822 6909 0.0019758278504014 6910 0.0019756078254431 6911 0.0019753873348236 6912 0.0019751670770347 6913 0.0019749463535845 6914 0.0019747265614569 6915 0.0019745079334825 6916 0.001974287442863 6917 0.001974067883566 6918 0.0019738483242691 6919 0.0019736276008189 6920 0.0019734092056751 6921 0.0019731898792088 6922 0.0019729700870812 6923 0.0019727507606149 6924 0.0019725316669792 6925 0.0019723116420209 6926 0.0019720930140465 6927 0.0019718734547496 6928 0.0019716534297913 6929 0.0019714348018169 6930 0.0019712157081813 6931 0.001970995683223 6932 0.0019707775209099 6933 0.0019705579616129 6934 0.0019703391008079 6935 0.0019701207056642 6936 0.0019699023105204 6937 0.0019696834497154 6938 0.0019694650545716 6939 0.001969245262444 6940 0.0019690275657922 6941 0.0019688098691404 6942 0.0019685910083354 6943 0.0019683733116835 6944 0.0019681556150317 6945 0.0019679379183799 6946 0.0019677204545587 6947 0.0019675018265843 6948 0.0019672845955938 6949 0.0019670673646033 6950 0.0019668489694595 6951 0.0019666310399771 6952 0.0019664145074785 6953 0.0019661963451654 6954 0.0019659795798361 6955 0.0019657611846924 6956 0.0019655441865325 6957 0.0019653264898807 6958 0.0019651094917208 6959 0.0019648913294077 6960 0.0019646738655865 6961 0.001964456634596 6962 0.0019642398692667 6963 0.0019640233367682 6964 0.001963805872947 6965 0.0019635893404484 6966 0.0019633735064417 6967 0.0019631567411125 6968 0.0019629411399364 6969 0.0019627248402685 6970 0.0019625099375844 6971 0.0019622943364084 6972 0.0019620780367404 6973 0.001961862668395 6974 0.0019616477657109 6975 0.001961431466043 6976 0.0019612167961895 6977 0.0019610007293522 6978 0.0019607865251601 6979 0.0019605702254921 6980 0.0019603560213 6981 0.0019601411186159 6982 0.0019599255174398 6983 0.0019597103819251 6984 0.0019594957120717 6985 0.0019592805765569 6986 0.0019590659067035 6987 0.0019588507711887 6988 0.0019586358685046 6989 0.0019584209658206 6990 0.0019582060631365 6991 0.0019579925574362 6992 0.0019577767234296 6993 0.0019575629848987 6994 0.0019573487807065 6995 0.001957134809345 6996 0.0019569210708141 6997 0.001956706866622 6998 0.001956493826583 6999 0.0019562798552215 7000 0.0019560663495213 7001 0.0019558521453291 7002 0.0019556381739676 7003 0.0019554246682674 7004 0.0019552109297365 7005 0.0019549971912056 7006 0.001954783918336 7007 0.0019545708782971 7008 0.0019543566741049 7009 0.0019541431684047 7010 0.001953930594027 7011 0.0019537173211575 7012 0.0019535038154572 7013 0.0019532898440957 7014 0.0019530762219802 7015 0.0019528632983565 7016 0.0019526500254869 7017 0.0019524378003553 7018 0.0019522244110703 7019 0.001952011603862 7020 0.0019517990294844 7021 0.0019515858730301 7022 0.0019513731822371 7023 0.0019511606078595 7024 0.0019509473349899 7025 0.0019507361575961 7026 0.0019505233503878 7027 0.0019503115909174 7028 0.001950099482201 7029 0.001949887140654 7030 0.0019496752647683 7031 0.0019494630396366 7032 0.0019492516294122 7033 0.0019490394042805 7034 0.0019488276448101 7035 0.0019486153032631 7036 0.0019484043586999 7037 0.0019481920171529 7038 0.0019479808397591 7039 0.0019477689638734 7040 0.001947556855157 7041 0.0019473456777632 7042 0.0019471347332001 7043 0.0019469218095765 7044 0.0019467105157673 7045 0.0019464991055429 7046 0.0019462885102257 7047 0.0019460775656626 7048 0.0019458660390228 7049 0.0019456553272903 7050 0.0019454438006505 7051 0.0019452340202406 7052 0.0019450223771855 7053 0.0019448134116828 7054 0.001944602583535 7055 0.0019443926867098 7056 0.0019441818585619 7057 0.0019439721945673 7058 0.0019437611335889 7059 0.0019435504218563 7060 0.0019433402922004 7061 0.0019431300461292 7062 0.0019429200328887 7063 0.0019427099032328 7064 0.0019424996571615 7065 0.001942289294675 7066 0.0019420807948336 7067 0.0019418697338551 7068 0.0019416597206146 7069 0.001941449707374 7070 0.001941239926964 7071 0.0019410304958001 7072 0.0019408199004829 7073 0.0019406102364883 7074 0.0019404008053243 7075 0.0019401920726523 7076 0.0019399818265811 7077 0.0019397727446631 7078 0.0019395633134991 7079 0.0019393536495045 7080 0.0019391446840018 7081 0.0019389365334064 7082 0.001938727684319 7083 0.0019385183695704 7084 0.0019383103353903 7085 0.0019381010206416 7086 0.0019378926372156 7087 0.0019376847194508 7088 0.0019374750554562 7089 0.0019372664391994 7090 0.0019370584050193 7091 0.0019368494395167 7092 0.0019366415217519 7093 0.0019364329054952 7094 0.0019362245220691 7095 0.0019360157893971 7096 0.0019358075223863 7097 0.0019355989061296 7098 0.0019353907555342 7099 0.0019351826049387 7100 0.001934973988682 7101 0.0019347664201632 7102 0.0019345581531525 7103 0.0019343505846336 7104 0.0019341427832842 7105 0.0019339364953339 7106 0.0019337286939844 7107 0.0019335213582963 7108 0.0019333146046847 7109 0.0019331076182425 7110 0.0019329015631229 7111 0.0019326950423419 7112 0.0019324872409925 7113 0.0019322807202116 7114 0.0019320745486766 7115 0.0019318675622344 7116 0.0019316612742841 7117 0.0019314554519951 7118 0.0019312476506457 7119 0.0019310412462801 7120 0.0019308349583298 7121 0.0019306287867948 7122 0.0019304224988446 7123 0.001930215395987 7124 0.001930009573698 7125 0.0019298032857478 7126 0.0019295973470435 7127 0.0019293901277706 7128 0.0019291846547276 7129 0.0019289783667773 7130 0.0019287719624117 7131 0.0019285661401227 7132 0.0019283613655716 7133 0.0019281554268673 7134 0.001927949488163 7135 0.0019277437822893 7136 0.001927538192831 7137 0.001927332719788 7138 0.0019271278288215 7139 0.0019269221229479 7140 0.0019267173483968 7141 0.0019265119917691 7142 0.0019263073336333 7143 0.0019261024426669 7144 0.0019258982501924 7145 0.0019256917294115 7146 0.0019254868384451 7147 0.0019252826459706 7148 0.0019250772893429 7149 0.0019248722819611 7150 0.0019246673909947 7151 0.0019244628492743 7152 0.0019242581911385 7153 0.0019240544643253 7154 0.0019238493405282 7155 0.0019236439839005 7156 0.0019234397914261 7157 0.0019232353661209 7158 0.0019230302423239 7159 0.0019228257006034 7160 0.0019226213917136 7161 0.0019224174320698 7162 0.0019222130067647 7163 0.0019220088142902 7164 0.0019218057859689 7165 0.0019216022919863 7166 0.0019213985651731 7167 0.0019211946055293 7168 0.0019209908787161 7169 0.0019207879668102 7170 0.001920583890751 7171 0.0019203801639378 7172 0.0019201776012778 7173 0.0019199738744646 7174 0.0019197708461434 7175 0.0019195670029148 7176 0.0019193638581783 7177 0.0019191607134417 7178 0.0019189571030438 7179 0.0019187545403838 7180 0.0019185510464013 7181 0.0019183482509106 7182 0.0019181447569281 7183 0.0019179426599294 7184 0.0019177391659468 7185 0.0019175368361175 7186 0.0019173332257196 7187 0.0019171305466443 7188 0.0019169272854924 7189 0.0019167251884937 7190 0.0019165225094184 7191 0.0019163198303431 7192 0.0019161175005138 7193 0.0019159154035151 7194 0.0019157130736858 7195 0.0019155106274411 7196 0.001915309112519 7197 0.0019151073647663 7198 0.0019149057334289 7199 0.0019147034035996 7200 0.0019145017722622 7201 0.0019143002573401 7202 0.0019140989752486 7203 0.0019138969946653 7204 0.0019136960618198 7205 0.0019134930334985 7206 0.0019132914021611 7207 0.0019130900036544 7208 0.0019128888379782 7209 0.0019126869738102 7210 0.0019124849932268 7211 0.0019122834783047 7212 0.0019120814977214 7213 0.0019118805648759 7214 0.0019116792827845 7215 0.0019114775350317 7216 0.001911276136525 7217 0.0019110746216029 7218 0.0019108731066808 7219 0.0019106718245894 7220 0.0019104711245745 7221 0.0019102701917291 7222 0.001910069026053 7223 0.0019098686752841 7224 0.0019096691394225 7225 0.0019094690214843 7226 0.001909269252792 7227 0.0019090693676844 7228 0.0019088697154075 7229 0.0019086702959612 7230 0.0019084704108536 7231 0.001908270874992 7232 0.0019080711062998 7233 0.0019078715704381 7234 0.0019076722674072 7235 0.0019074727315456 7236 0.0019072729628533 7237 0.0019070741254836 7238 0.0019068741239607 7239 0.0019066747045144 7240 0.0019064748194069 7241 0.0019062763312832 7242 0.0019060762133449 7243 0.0019058764446527 7244 0.001905677607283 7245 0.0019054779550061 7246 0.0019052788848057 7247 0.0019050791161135 7248 0.0019048803951591 7249 0.0019046808592975 7250 0.0019044817890972 7251 0.0019042836502194 7252 0.0019040845800191 7253 0.0019038871396333 7254 0.0019036885350943 7255 0.0019034898141399 7256 0.0019032913260162 7257 0.0019030936527997 7258 0.0019028943497688 7259 0.001902696210891 7260 0.0019024981884286 7261 0.0019022999331355 7262 0.001902102958411 7263 0.0019019041210413 7264 0.0019017060985789 7265 0.0019015085417777 7266 0.0019013105193153 7267 0.0019011122640222 7268 0.0019009145908058 7269 0.0019007169175893 7270 0.0019005180802196 7271 0.0019003201741725 7272 0.0019001225009561 7273 0.0018999247113243 7274 0.0018997263396159 7275 0.0018995293648914 7276 0.0018993318080902 7277 0.0018991342512891 7278 0.0018989375093952 7279 0.0018987397197634 7280 0.0018985437927768 7281 0.0018983467016369 7282 0.001898149959743 7283 0.0018979536835104 7284 0.0018977576401085 7285 0.0018975606653839 7286 0.0018973649712279 7287 0.0018971681129187 7288 0.0018969719531015 7289 0.0018967756768689 7290 0.0018965798662975 7291 0.001896382891573 7292 0.0018961870810017 7293 0.0018959913868457 7294 0.0018957952270284 7295 0.0018955988343805 7296 0.0018954029073939 7297 0.0018952073296532 7298 0.0018950111698359 7299 0.0018948158249259 7300 0.0018946196651086 7301 0.0018944235052913 7302 0.001894228393212 7303 0.0018940322333947 7304 0.0018938368884847 7305 0.001893640961498 7306 0.0018934451509267 7307 0.0018932493403554 7308 0.0018930530641228 7309 0.0018928572535515 7310 0.0018926626071334 7311 0.0018924677278847 7312 0.0018922720337287 7313 0.0018920777365565 7314 0.0018918823916465 7315 0.0018916878616437 7316 0.0018914939137176 7317 0.0018912985688075 7318 0.0018911035731435 7319 0.0018909089267254 7320 0.0018907149787992 7321 0.0018905204487965 7322 0.0018903253367171 7323 0.0018901313887909 7324 0.0018899372080341 7325 0.0018897419795394 7326 0.0018895487301052 7327 0.0018893540836871 7328 0.0018891597865149 7329 0.0018889645580202 7330 0.001888771308586 7331 0.0018885774770752 7332 0.0018883825978264 7333 0.0018881889991462 7334 0.0018879948183894 7335 0.0018878006376326 7336 0.0018876066897064 7337 0.0018874123925343 7338 0.0018872184446082 7339 0.0018870243802667 7340 0.0018868308980018 7341 0.0018866368336603 7342 0.0018864435842261 7343 0.0018862499855459 7344 0.0018860563868657 7345 0.0018858637195081 7346 0.0018856709357351 7347 0.0018854780355468 7348 0.0018852856010199 7349 0.0018850925844163 7350 0.001884900033474 7351 0.0018847067840397 7352 0.0018845138838515 7353 0.0018843204015866 7354 0.001884127734229 7355 0.0018839357653633 7356 0.0018837430980057 7357 0.0018835498485714 7358 0.0018833572976291 7359 0.0018831647466868 7360 0.0018829717300832 7361 0.0018827792955562 7362 0.0018825866281986 7363 0.0018823941936716 7364 0.001882202224806 7365 0.001882009441033 7366 0.0018818174721673 7367 0.0018816242227331 7368 0.0018814320210367 7369 0.0018812397029251 7370 0.0018810468027368 7371 0.0018808546010405 7372 0.0018806628650054 7373 0.0018804711289704 7374 0.0018802810227498 7375 0.0018800896359608 7376 0.0018798984820023 7377 0.0018797077937052 7378 0.0018795160576701 7379 0.0018793259514496 7380 0.0018791338661686 7381 0.0018789428286254 7382 0.0018787529552355 7383 0.0018785616848618 7384 0.0018783706473187 7385 0.0018781801918522 7386 0.0018779893871397 7387 0.0018777980003506 7388 0.0018776068463922 7389 0.0018774170894176 7390 0.0018772254697978 7391 0.0018770360620692 7392 0.0018768443260342 7393 0.0018766545690596 7394 0.0018764634151012 7395 0.001876272726804 7396 0.0018760825041682 7397 0.0018758910009637 7398 0.0018757008947432 7399 0.0018755102064461 7400 0.0018753205658868 7401 0.0018751285970211 7402 0.0018749377923086 7403 0.0018747488502413 7404 0.0018745585111901 7405 0.0018743695691228 7406 0.0018741794629022 7407 0.001873990171589 7408 0.001873800996691 7409 0.0018736117053777 7410 0.0018734218319878 7411 0.0018732326570898 7412 0.0018730427836999 7413 0.001872853608802 7414 0.0018726651323959 7415 0.0018724758410826 7416 0.0018722855020314 7417 0.0018720977241173 7418 0.0018719080835581 7419 0.0018717194907367 7420 0.0018715315964073 7421 0.0018713421886787 7422 0.0018711530137807 7423 0.0018709654686972 7424 0.001870776177384 7425 0.0018705875845626 7426 0.0018703988753259 7427 0.0018702109809965 7428 0.0018700215732679 7429 0.0018698333296925 7430 0.0018696447368711 7431 0.0018694566097111 7432 0.001869268482551 7433 0.001869079307653 7434 0.0018688922282308 7435 0.0018687036354095 7436 0.0018685150425881 7437 0.0018683286616579 7438 0.0018681408837438 7439 0.0018679527565837 7440 0.0018677647458389 7441 0.0018675776664168 7442 0.0018673902377486 7443 0.0018672025762498 7444 0.0018670153804123 7445 0.0018668288830668 7446 0.0018666405230761 7447 0.0018664536764845 7448 0.0018662662478164 7449 0.0018660790519789 7450 0.0018658912740648 7451 0.0018657043110579 7452 0.0018655174644664 7453 0.001865329570137 7454 0.0018651423742995 7455 0.0018649559933692 7456 0.0018647671677172 7457 0.0018645813688636 7458 0.0018643940566108 7459 0.0018642077920958 7460 0.001864020479843 7461 0.0018638328183442 7462 0.0018636458553374 7463 0.0018634586594999 7464 0.0018632715800777 7465 0.0018630847334862 7466 0.0018628977704793 7467 0.0018627112731338 7468 0.0018625254742801 7469 0.0018623390933499 7470 0.0018621529452503 7471 0.0018619677284732 7472 0.0018617828609422 7473 0.0018615978769958 7474 0.0018614118453115 7475 0.0018612272106111 7476 0.0018610411789268 7477 0.0018608552636579 7478 0.0018606708617881 7479 0.0018604851793498 7480 0.0018603003118187 7481 0.0018601143965498 7482 0.0018599288305268 7483 0.0018597438465804 7484 0.0018595586298034 7485 0.0018593741115183 7486 0.0018591883126646 7487 0.0018590029794723 7488 0.0018588184611872 7489 0.0018586323130876 7490 0.0018584480276331 7491 0.0018582623451948 7492 0.0018580780597404 7493 0.0018578921444714 7494 0.0018577070441097 7495 0.001857521943748 7496 0.0018573377747089 7497 0.0018571524415165 7498 0.0018569680396467 7499 0.0018567830557004 7500 0.0018565985374153 7501 0.0018564148340374 7502 0.0018562304321676 7503 0.0018560463795438 7504 0.0018558634910733 7505 0.0018556793220341 7506 0.0018554942216724 7507 0.0018553102854639 7508 0.0018551269313321 7509 0.0018549429951236 7510 0.0018547589424998 7511 0.0018545757047832 7512 0.0018543910700828 7513 0.0018542067846283 7514 0.0018540229648352 7515 0.0018538397271186 7516 0.0018536555580795 7517 0.0018534723203629 7518 0.0018532883841544 7519 0.0018531042151153 7520 0.0018529208609834 7521 0.0018527370411903 7522 0.0018525538034737 7523 0.0018523696344346 7524 0.0018521859310567 7525 0.0018520033918321 7526 0.0018518189899623 7527 0.0018516345880926 7528 0.0018514522816986 7529 0.0018512688111514 7530 0.0018510855734348 7531 0.0018509016372263 7532 0.001850719214417 7533 0.0018505367916077 7534 0.0018503540195525 7535 0.0018501714803278 7536 0.0018499892903492 7537 0.0018498066347092 7538 0.0018496237462386 7539 0.0018494409741834 7540 0.0018492590170354 7541 0.0018490775255486 7542 0.0018488948699087 7543 0.0018487125635147 7544 0.0018485302571207 7545 0.0018483477178961 7546 0.0018481661099941 7547 0.0018479838036001 7548 0.0018478018464521 7549 0.0018476194236428 7550 0.0018474368844181 7551 0.0018472548108548 7552 0.0018470722716302 7553 0.0018468901980668 7554 0.0018467095214874 7555 0.0018465260509402 7556 0.0018463449086994 7557 0.0018461622530594 7558 0.0018459813436493 7559 0.0018457981059328 7560 0.0018456167308614 7561 0.00184543535579 7562 0.0018452524673194 7563 0.001845070393756 7564 0.0018448894843459 7565 0.0018447078764439 7566 0.0018445276655257 7567 0.0018443467561156 7568 0.0018441653810441 7569 0.0018439843552187 7570 0.0018438035622239 7571 0.0018436221871525 7572 0.0018434412777424 7573 0.0018432602519169 7574 0.0018430792260915 7575 0.0018428986659274 7576 0.0018427174072713 7577 0.0018425369635224 7578 0.0018423565197736 7579 0.0018421757267788 7580 0.0018419943517074 7581 0.0018418140243739 7582 0.0018416333477944 7583 0.0018414531368762 7584 0.0018412722274661 7585 0.0018410912016407 7586 0.0018409113399684 7587 0.001840730663389 7588 0.0018405505688861 7589 0.0018403694266453 7590 0.0018401896813884 7591 0.0018400099361315 7592 0.0018398289103061 7593 0.0018396482337266 7594 0.0018394682556391 7595 0.0018392883939669 7596 0.0018391073681414 7597 0.0018389270408079 7598 0.0018387483432889 7599 0.001838568598032 7600 0.0018383883871138 7601 0.0018382101552561 7602 0.0018380306428298 7603 0.0018378518288955 7604 0.0018376722000539 7605 0.0018374929204583 7606 0.0018373139901087 7607 0.001837135059759 7608 0.0018369548488408 7609 0.0018367761513218 7610 0.0018365965224802 7611 0.0018364187562838 7612 0.0018362393602729 7613 0.0018360588001087 7614 0.0018358806846663 7615 0.0018357012886554 7616 0.0018355222418904 7617 0.0018353437772021 7618 0.0018351644976065 7619 0.0018349860329181 7620 0.0018348067533225 7621 0.0018346275901422 7622 0.0018344500567764 7623 0.0018342696130276 7624 0.0018340910319239 7625 0.0018339126836509 7626 0.0018337341025472 7627 0.0018335547065362 7628 0.0018333760090172 7629 0.0018331966130063 7630 0.0018330189632252 7631 0.0018328406149521 7632 0.0018326616846025 7633 0.001832484966144 7634 0.0018323066178709 7635 0.0018321295501664 7636 0.0018319524824619 7637 0.0018317757640034 7638 0.0018315974157304 7639 0.0018314202316105 7640 0.001831243163906 7641 0.0018310665618628 7642 0.0018308889120817 7643 0.0018307107966393 7644 0.0018305331468582 7645 0.0018303571268916 7646 0.0018301801756024 7647 0.001830002409406 7648 0.0018298251088709 7649 0.001829648623243 7650 0.0018294705078006 7651 0.001829294487834 7652 0.0018291164888069 7653 0.001828940003179 7654 0.0018287631683052 7655 0.0018285865662619 7656 0.0018284088000655 7657 0.0018282321980223 7658 0.0018280546646565 7659 0.0018278772477061 7660 0.0018277013441548 7661 0.0018275235779583 7662 0.0018273468594998 7663 0.0018271703738719 7664 0.0018269943539053 7665 0.0018268177518621 7666 0.0018266411498189 7667 0.0018264655955136 7668 0.001826289575547 7669 0.001826113788411 7670 0.0018259377684444 7671 0.0018257619813085 7672 0.0018255859613419 7673 0.0018254097085446 7674 0.001825234037824 7675 0.0018250573193654 7676 0.0018248825799674 7677 0.0018247060943395 7678 0.0018245310056955 7679 0.0018243554513901 7680 0.0018241796642542 7681 0.001824003062211 7682 0.0018238283228129 7683 0.0018236533505842 7684 0.001823476748541 7685 0.0018233018927276 7686 0.0018231256399304 7687 0.0018229503184557 7688 0.0018227738328278 7689 0.0018225983949378 7690 0.0018224234227091 7691 0.0018222477519885 7692 0.0018220730125904 7693 0.0018218972254544 7694 0.0018217214383185 7695 0.0018215463496745 7696 0.0018213712610304 7697 0.0018211964052171 7698 0.0018210215494037 7699 0.001820846227929 7700 0.0018206726526842 7701 0.0018204983789474 7702 0.0018203239887953 7703 0.0018201492493972 7704 0.0018199747428298 7705 0.0018198007019237 7706 0.0018196268938482 7707 0.0018194514559582 7708 0.0018192774150521 7709 0.0018191034905612 7710 0.0018189296824858 7711 0.0018187537789345 7712 0.0018185810185969 7713 0.0018184063956141 7714 0.001818232354708 7715 0.0018180573824793 7716 0.0018178833415732 7717 0.0018177106976509 7718 0.0018175353761762 7719 0.0018173612188548 7720 0.0018171870615333 7721 0.0018170129042119 7722 0.001816839328967 7723 0.0018166652880609 7724 0.0018164906650782 7725 0.0018163170898333 7726 0.0018161426996812 7727 0.0018159687751904 7728 0.0018157953163609 7729 0.0018156212754548 7730 0.0018154480494559 7731 0.001815274474211 7732 0.0018151006661355 7733 0.001814927905798 7734 0.0018147540977225 7735 0.0018145811045542 7736 0.0018144079949707 7737 0.0018142351182178 7738 0.0018140613101423 7739 0.0018138891318813 7740 0.0018137155566365 7741 0.0018135426798835 7742 0.0018133700359613 7743 0.001813197042793 7744 0.0018130249809474 7745 0.0018128523370251 7746 0.0018126801587641 7747 0.0018125079805031 7748 0.0018123366171494 7749 0.0018121646717191 7750 0.0018119926098734 7751 0.0018118205480278 7752 0.0018116493010893 7753 0.0018114765407518 7754 0.00181130587589 7755 0.0018111326498911 7756 0.001810961868614 7757 0.0018107898067683 7758 0.0018106182105839 7759 0.0018104466143996 7760 0.0018102759495378 7761 0.0018101030727848 7762 0.0018099312437698 7763 0.0018097598804161 7764 0.0018095892155543 7765 0.0018094173865393 7766 0.0018092468380928 7767 0.0018090743105859 7768 0.0018089042278007 7769 0.0018087329808623 7770 0.001808563247323 7771 0.0018083911854774 7772 0.0018082211026922 7773 0.001808050670661 7774 0.0018078803550452 7775 0.0018077094573528 7776 0.0018075377447531 7777 0.0018073676619679 7778 0.0018071968806908 7779 0.001807026215829 7780 0.0018068561330438 7781 0.0018066855845973 7782 0.0018065150361508 7783 0.001806344371289 7784 0.0018061741720885 7785 0.001806003623642 7786 0.0018058327259496 7787 0.0018056626431644 7788 0.0018054920947179 7789 0.0018053217791021 7790 0.0018051519291475 7791 0.0018049804493785 7792 0.0018048100173473 7793 0.0018046405166388 7794 0.0018044697353616 7795 0.0018043003510684 7796 0.00180412910413 7797 0.0018039593705907 7798 0.0018037885893136 7799 0.001803619088605 7800 0.0018034488894045 7801 0.0018032795051113 7802 0.0018031089566648 7803 0.0018029396887869 7804 0.0018027704209089 7805 0.0018026003381237 7806 0.0018024311866611 7807 0.0018022620351985 7808 0.0018020931165665 7809 0.0018019243143499 7810 0.0018017551628873 7811 0.0018015860114247 7812 0.0018014166271314 7813 0.001801248639822 7814 0.0018010789062828 7815 0.0018009103368968 7816 0.0018007410690188 7817 0.0018005719175562 7818 0.0018004029989243 7819 0.0018002348951995 7820 0.001800065394491 7821 0.001799896825105 7822 0.0017997288377956 7823 0.0017995595699176 7824 0.0017993911169469 7825 0.0017992228968069 7826 0.001799053628929 7827 0.001798885059543 7828 0.0017987159080803 7829 0.0017985481536016 7830 0.0017983781872317 7831 0.0017982101999223 7832 0.0017980422126129 7833 0.001797873293981 7834 0.0017977051902562 7835 0.0017975362716243 7836 0.0017973687499762 7837 0.0017972008790821 7838 0.0017970327753574 7839 0.0017968642059714 7840 0.0017966963350773 7841 0.0017965288134292 7842 0.0017963617574424 7843 0.0017961938865483 7844 0.0017960256664082 7845 0.0017958582611755 7846 0.001795690972358 7847 0.0017955233342946 7848 0.0017953558126464 7849 0.0017951873596758 7850 0.0017950205365196 7851 0.0017948523163795 7852 0.0017946852603927 7853 0.0017945179715753 7854 0.0017943501006812 7855 0.001794182928279 7856 0.001794015057385 7857 0.0017938483506441 7858 0.0017936807125807 7859 0.0017935130745173 7860 0.0017933455528691 7861 0.0017931781476364 7862 0.0017930115573108 7863 0.0017928434535861 7864 0.0017926765140146 7865 0.0017925091087818 7866 0.0017923422856256 7867 0.0017921753460541 7868 0.0017920074751601 7869 0.0017918420489877 7870 0.0017916741780937 7871 0.0017915077041835 7872 0.0017913422780111 7873 0.001791174756363 7874 0.0017910083988681 7875 0.0017908419249579 7876 0.0017906753346324 7877 0.0017905093263835 7878 0.0017903435509652 7879 0.0017901768442243 7880 0.0017900107195601 7881 0.0017898450605571 7882 0.0017896785866469 7883 0.001789512578398 7884 0.0017893465701491 7885 0.0017891802126542 7886 0.0017890149028972 7887 0.0017888491274789 7888 0.0017886832356453 7889 0.0017885168781504 7890 0.0017883512191474 7891 0.0017881847452372 7892 0.0017880199011415 7893 0.0017878524959087 7894 0.0017876877682284 7895 0.0017875221092254 7896 0.0017873551696539 7897 0.0017871899763122 7898 0.0017870246665552 7899 0.0017868586583063 7900 0.001786693232134 7901 0.001786527922377 7902 0.0017863617977127 7903 0.0017861962551251 7904 0.0017860304797068 7905 0.0017858655191958 7906 0.0017857006751001 7907 0.0017855346668512 7908 0.0017853699391708 7909 0.0017852059099823 7910 0.0017850417643785 7911 0.0017848757561296 7912 0.0017847120761871 7913 0.0017845483962446 7914 0.0017843840178102 7915 0.0017842199886218 7916 0.0017840564250946 7917 0.0017838918138295 7918 0.0017837279010564 7919 0.0017835644539446 7920 0.0017834012396634 7921 0.0017832369776443 7922 0.0017830727156252 7923 0.0017829092685133 7924 0.0017827457049862 7925 0.0017825814429671 7926 0.0017824174137786 7927 0.0017822538502514 7928 0.0017820911016315 7929 0.0017819261411205 7930 0.0017817629268393 7931 0.0017815999453887 7932 0.0017814359162003 7933 0.0017812717705965 7934 0.0017811084399 7935 0.001780946040526 7936 0.0017807821277529 7937 0.0017806182149798 7938 0.0017804548842832 7939 0.0017802915535867 7940 0.0017801285721362 7941 0.0017799639608711 7942 0.0017798016779125 7943 0.0017796389292926 7944 0.001779475947842 7945 0.0017793126171455 7946 0.0017791491700336 7947 0.0017789864214137 7948 0.0017788240220398 7949 0.0017786615062505 7950 0.0017784989904612 7951 0.0017783367075026 7952 0.0017781739588827 7953 0.0017780112102628 7954 0.0017778485780582 7955 0.0017776871100068 7956 0.0017775245942175 7957 0.0017773623112589 7958 0.0017771997954696 7959 0.001777037512511 7960 0.0017768745310605 7961 0.0017767123645172 7962 0.0017765497323126 7963 0.0017763880314305 7964 0.0017762260977179 7965 0.0017760635819286 7966 0.001775900949724 7967 0.001775739248842 7968 0.0017755767330527 7969 0.0017754150321707 7970 0.0017752532148734 7971 0.0017750905826688 7972 0.0017749282997102 7973 0.0017747662495822 7974 0.0017746045487002 7975 0.0017744426149875 7976 0.0017742800991982 7977 0.0017741190968081 7978 0.0017739579780027 7979 0.0017737955786288 7980 0.0017736344598234 7981 0.0017734722932801 7982 0.0017733103595674 7983 0.0017731494735926 7984 0.0017729884712026 7985 0.0017728272359818 7986 0.0017726657679304 7987 0.0017725048819557 7988 0.0017723435303196 7989 0.0017721827607602 7990 0.0017720215255395 7991 0.0017718606395647 7992 0.0017717005684972 7993 0.0017715387511998 7994 0.0017713778652251 7995 0.0017712166300043 7996 0.0017710562096909 7997 0.0017708959057927 7998 0.0017707350198179 7999 0.0017705733189359 8000 0.0017704134806991 8001 0.0017702520126477 8002 0.0017700917087495 8003 0.0017699314048514 8004 0.0017697699368 8005 0.0017696092836559 8006 0.0017694483976811 8007 0.0017692882101983 8008 0.0017691269749776 8009 0.0017689664382488 8010 0.0017688057851046 8011 0.0017686448991299 8012 0.0017684843624011 8013 0.0017683239420876 8014 0.0017681639874354 8015 0.0017680043820292 8016 0.0017678430303931 8017 0.0017676829593256 8018 0.0017675234703347 8019 0.0017673633992672 8020 0.0017672029789537 8021 0.0017670430243015 8022 0.0017668831860647 8023 0.0017667240463197 8024 0.0017665636260062 8025 0.0017664039041847 8026 0.0017662441823632 8027 0.0017660855082795 8028 0.0017659249715507 8029 0.0017657657153904 8030 0.0017656056443229 8031 0.001765446155332 8032 0.0017652866663411 8033 0.0017651270609349 8034 0.00176496792119 8035 0.0017648083157837 8036 0.0017646491760388 8037 0.0017644898034632 8038 0.0017643300816417 8039 0.0017641708254814 8040 0.0017640118021518 8041 0.0017638525459915 8042 0.001763693173416 8043 0.0017635336844251 8044 0.0017633746610954 8045 0.0017632154049352 8046 0.0017630561487749 8047 0.0017628972418606 8048 0.0017627381021157 8049 0.0017625795444474 8050 0.0017624214524403 8051 0.0017622627783567 8052 0.0017621037550271 8053 0.0017619457794353 8054 0.0017617869889364 8055 0.0017616297118366 8056 0.0017614713869989 8057 0.0017613135278225 8058 0.0017611556686461 8059 0.0017609964124858 8060 0.0017608392518014 8061 0.0017606804613024 8062 0.0017605233006179 8063 0.0017603660235181 8064 0.0017602082807571 8065 0.001760050537996 8066 0.0017598930280656 8067 0.0017597351688892 8068 0.0017595778917894 8069 0.0017594203818589 8070 0.0017592622898519 8071 0.0017591046635062 8072 0.0017589468043298 8073 0.0017587892943993 8074 0.0017586313188076 8075 0.0017584741581231 8076 0.0017583165317774 8077 0.0017581593710929 8078 0.0017580011626706 8079 0.0017578436527401 8080 0.001757686259225 8081 0.0017575297970325 8082 0.0017573714721948 8083 0.0017572143115103 8084 0.0017570576164871 8085 0.0017569008050486 8086 0.0017567423637956 8087 0.0017565850866958 8088 0.0017564287409186 8089 0.0017562716966495 8090 0.0017561147687957 8091 0.0017559580737725 8092 0.001755800913088 8093 0.0017556443344802 8094 0.0017554874066263 8095 0.0017553309444338 8096 0.0017551735509187 8097 0.0017550162738189 8098 0.0017548602772877 8099 0.0017547038150951 8100 0.0017545481678098 8101 0.001754391589202 8102 0.0017542343121022 8103 0.0017540781991556 8104 0.0017539218533784 8105 0.0017537650419399 8106 0.0017536089289933 8107 0.0017534523503855 8108 0.0017532970523462 8109 0.0017531404737383 8110 0.0017529842443764 8111 0.0017528281314299 8112 0.0017526720184833 8113 0.0017525161383674 8114 0.0017523607239127 8115 0.0017522049602121 8116 0.0017520487308502 8117 0.001751892734319 8118 0.0017517369706184 8119 0.0017515812069178 8120 0.0017514248611405 8121 0.0017512693302706 8122 0.0017511137994006 8123 0.0017509581521153 8124 0.0017508023884147 8125 0.0017506465082988 8126 0.0017504907445982 8127 0.0017503355629742 8128 0.0017501800321043 8129 0.0017500245012343 8130 0.0017498695524409 8131 0.0017497141379863 8132 0.0017495589563623 8133 0.0017494035419077 8134 0.0017492491751909 8135 0.0017490927129984 8136 0.001748938113451 8137 0.0017487831646577 8138 0.0017486286815256 8139 0.0017484738491476 8140 0.0017483189003542 8141 0.0017481640679762 8142 0.0017480093520135 8143 0.0017478547524661 8144 0.0017476999200881 8145 0.0017475455533713 8146 0.0017473903717473 8147 0.0017472356557846 8148 0.0017470808234066 8149 0.0017469262238592 8150 0.0017467709258199 8151 0.0017466167919338 8152 0.0017464619595557 8153 0.0017463073600084 8154 0.0017461526440457 8155 0.0017459980444983 8156 0.0017458442598581 8157 0.0017456894274801 8158 0.0017455347115174 8159 0.0017453799955547 8160 0.0017452258616686 8161 0.0017450714949518 8162 0.0017449167789891 8163 0.0017447621794418 8164 0.001744608161971 8165 0.0017444541445002 8166 0.0017443005926907 8167 0.0017441459931433 8168 0.0017439920920879 8169 0.0017438386566937 8170 0.0017436848720536 8171 0.0017435306217521 8172 0.001743376487866 8173 0.0017432232853025 8174 0.0017430690350011 8175 0.0017429161816835 8176 0.0017427618149668 8177 0.001742608495988 8178 0.0017424552934244 8179 0.0017423018580303 8180 0.0017421483062208 8181 0.0017419947544113 8182 0.0017418413190171 8183 0.0017416882328689 8184 0.0017415344482288 8185 0.0017413811292499 8186 0.0017412293236703 8187 0.0017410757718608 8188 0.0017409223364666 8189 0.0017407692503184 8190 0.0017406148836017 8191 0.0017404621466994 8192 0.0017403095262125 8193 0.001740156323649 8194 0.0017400033539161 8195 0.0017398494528607 8196 0.0017396965995431 8197 0.0017395432805642 8198 0.001739390892908 8199 0.0017392380395904 8200 0.0017390849534422 8201 0.0017389323329553 8202 0.0017387794796377 8203 0.0017386265099049 8204 0.0017384736565873 8205 0.0017383223166689 8206 0.001738169696182 8207 0.0017380173085257 8208 0.0017378652701154 8209 0.0017377119511366 8210 0.0017375596798956 8211 0.0017374074086547 8212 0.0017372540896758 8213 0.0017371017020196 8214 0.0017369498964399 8215 0.0017367984401062 8216 0.0017366460524499 8217 0.0017364942468703 8218 0.0017363427905366 8219 0.0017361901700497 8220 0.00173603836447 8221 0.0017358863260597 8222 0.0017357346368954 8223 0.0017355827149004 8224 0.0017354316078126 8225 0.0017352796858177 8226 0.0017351272981614 8227 0.0017349752597511 8228 0.0017348229885101 8229 0.0017346716485918 8230 0.0017345200758427 8231 0.0017343679210171 8232 0.0017342157661915 8233 0.0017340641934425 8234 0.0017339125042781 8235 0.0017337605822831 8236 0.0017336091259494 8237 0.0017334579024464 8238 0.0017333063296974 8239 0.0017331558046862 8240 0.0017330041155219 8241 0.0017328531248495 8242 0.0017327014356852 8243 0.0017325503285974 8244 0.0017324003856629 8245 0.0017322485800833 8246 0.0017320975894108 8247 0.0017319459002465 8248 0.0017317945603281 8249 0.0017316439189017 8250 0.0017314932774752 8251 0.0017313421703875 8252 0.0017311915289611 8253 0.0017310404218733 8254 0.0017308914102614 8255 0.0017307412344962 8256 0.0017305911751464 8257 0.0017304407665506 8258 0.0017302909400314 8259 0.0017301416955888 8260 0.0017299923347309 8261 0.0017298427410424 8262 0.0017296925652772 8263 0.0017295432044193 8264 0.0017293924465775 8265 0.0017292429693043 8266 0.0017290932592005 8267 0.0017289438983425 8268 0.0017287940718234 8269 0.0017286438960582 8270 0.0017284945352003 8271 0.001728345407173 8272 0.0017281946493313 8273 0.0017280459869653 8274 0.0017278960440308 8275 0.001727745635435 8276 0.0017275972058997 8277 0.0017274470301345 8278 0.0017272976692766 8279 0.0017271492397413 8280 0.0017269995296374 8281 0.0017268513329327 8282 0.0017267023213208 8283 0.0017265531932935 8284 0.0017264040652663 8285 0.0017262544715777 8286 0.0017261049943045 8287 0.0017259565647691 8288 0.0017258077859879 8289 0.0017256588907912 8290 0.001725509762764 8291 0.0017253608675674 8292 0.0017252125544474 8293 0.0017250635428354 8294 0.0017249146476388 8295 0.0017247669165954 8296 0.0017246175557375 8297 0.0017244692426175 8298 0.0017243211623281 8299 0.0017241723835468 8300 0.0017240239540115 8301 0.0017238757573068 8302 0.0017237277934328 8303 0.0017235791310668 8304 0.0017234307015315 8305 0.0017232822719961 8306 0.0017231339588761 8307 0.0017229857621714 8308 0.0017228373326361 8309 0.0017226894851774 8310 0.0017225415213034 8311 0.0017223932081833 8312 0.0017222436144948 8313 0.0017220969311893 8314 0.0017219486180693 8315 0.0017218003049493 8316 0.0017216521082446 8317 0.0017215043772012 8318 0.0017213562969118 8319 0.0017212084494531 8320 0.0017210607184097 8321 0.0017209124052897 8322 0.0017207644414157 8323 0.0017206175252795 8324 0.0017204695614055 8325 0.0017203228781 8326 0.0017201751470566 8327 0.0017200266011059 8328 0.0017198798013851 8329 0.001719732186757 8330 0.0017195839900523 8331 0.0017194368410856 8332 0.0017192901577801 8333 0.0017191424267367 8334 0.0017189946956933 8335 0.0017188481288031 8336 0.0017187013290823 8337 0.0017185537144542 8338 0.0017184064490721 8339 0.0017182594165206 8340 0.0017181119183078 8341 0.001717965467833 8342 0.0017178180860355 8343 0.0017176710534841 8344 0.0017175236716866 8345 0.0017173772212118 8346 0.0017172301886603 8347 0.0017170832725242 8348 0.0017169365892187 8349 0.0017167894402519 8350 0.0017166422912851 8351 0.0017164954915643 8352 0.0017163490410894 8353 0.0017162020085379 8354 0.0017160552088171 8355 0.0017159084090963 8356 0.0017157611437142 8357 0.0017156152753159 8358 0.0017154682427645 8359 0.0017153226071969 8360 0.0017151767387986 8361 0.0017150301719084 8362 0.0017148840706795 8363 0.0017147382022813 8364 0.0017145925667137 8365 0.0017144469311461 8366 0.0017143001314253 8367 0.001714154612273 8368 0.0017140093259513 8369 0.0017138628754765 8370 0.0017137173563242 8371 0.0017135719535872 8372 0.0017134262016043 8373 0.0017132802167907 8374 0.0017131350468844 8375 0.0017129895277321 8376 0.0017128437757492 8377 0.0017126986058429 8378 0.0017125533195212 8379 0.0017124079167843 8380 0.0017122616991401 8381 0.0017121178098023 8382 0.0017119727563113 8383 0.0017118270043284 8384 0.0017116824164987 8385 0.0017115365481004 8386 0.001711392425932 8387 0.0017112469067797 8388 0.0017111013876274 8389 0.0017109564505517 8390 0.0017108113970608 8391 0.0017106672748923 8392 0.0017105216393247 8393 0.0017103767022491 8394 0.0017102307174355 8395 0.0017100862460211 8396 0.0017099417746067 8397 0.0017097964882851 8398 0.0017096520168707 8399 0.0017095075454563 8400 0.0017093627247959 8401 0.0017092176713049 8402 0.0017090738983825 8403 0.0017089287284762 8404 0.0017087849555537 8405 0.0017086395528167 8406 0.0017084961291403 8407 0.0017083513084799 8408 0.0017082070698962 8409 0.0017080624820665 8410 0.0017079171957448 8411 0.0017077737720683 8412 0.0017076291842386 8413 0.0017074844799936 8414 0.0017073396593332 8415 0.0017071963520721 8416 0.0017070517642424 8417 0.0017069082241505 8418 0.0017067646840587 8419 0.0017066202126443 8420 0.0017064763233066 8421 0.0017063325503841 8422 0.0017061891267076 8423 0.0017060454702005 8424 0.0017059011152014 8425 0.001705756643787 8426 0.0017056132201105 8427 0.0017054693307728 8428 0.001705325441435 8429 0.0017051820177585 8430 0.0017050377791747 8431 0.0017048933077604 8432 0.0017047497676685 8433 0.0017046061111614 8434 0.0017044632695615 8435 0.0017043186817318 8436 0.0017041752580553 8437 0.0017040321836248 8438 0.0017038879450411 8439 0.0017037452198565 8440 0.0017036022618413 8441 0.0017034593038261 8442 0.0017033164622262 8443 0.0017031740862876 8444 0.0017030306626111 8445 0.0017028882866725 8446 0.001702744862996 8447 0.0017026027198881 8448 0.0017024596454576 8449 0.0017023171531036 8450 0.0017021734965965 8451 0.0017020312370732 8452 0.0017018890939653 8453 0.0017017457867041 8454 0.0017016042256728 8455 0.001701460685581 8456 0.0017013184260577 8457 0.0017011762829497 8458 0.0017010339070112 8459 0.0017008916474879 8460 0.0017007498536259 8461 0.0017006078269333 8462 0.0017004651017487 8463 0.001700323773548 8464 0.0017001815140247 8465 0.0017000383231789 8466 0.0016998976934701 8467 0.0016997545026243 8468 0.0016996131744236 8469 0.0016994711477309 8470 0.001699329353869 8471 0.001699186861515 8472 0.0016990444855765 8473 0.0016989031573758 8474 0.0016987605486065 8475 0.0016986185219139 8476 0.0016984778922051 8477 0.0016983349341899 8478 0.0016981930239126 8479 0.0016980512300506 8480 0.0016979094361886 8481 0.0016977676423267 8482 0.0016976264305413 8483 0.0016974846366793 8484 0.001697343075648 8485 0.0016972017474473 8486 0.0016970598371699 8487 0.0016969179268926 8488 0.0016967775300145 8489 0.0016966350376606 8490 0.0016964939422905 8491 0.0016963526140898 8492 0.0016962110530585 8493 0.0016960703069344 8494 0.0016959278145805 8495 0.0016957877669483 8496 0.0016956455074251 8497 0.0016955040628091 8498 0.0016953632002696 8499 0.0016952221048996 8500 0.0016950813587755 8501 0.001694941194728 8502 0.001694799400866 8503 0.0016946587711573 8504 0.0016945179086179 8505 0.0016943772789091 8506 0.0016942358342931 8507 0.0016940957866609 8508 0.0016939542256296 8509 0.0016938140615821 8510 0.0016936734318733 8511 0.0016935323365033 8512 0.0016933919396251 8513 0.0016932511935011 8514 0.0016931105637923 8515 0.0016929694684222 8516 0.0016928287222981 8517 0.0016926877433434 8518 0.0016925476957113 8519 0.0016924075316638 8520 0.0016922662034631 8521 0.0016921260394156 8522 0.0016919863410294 8523 0.0016918460605666 8524 0.0016917055472732 8525 0.0016915650339797 8526 0.0016914260340855 8527 0.0016912852879614 8528 0.0016911452403292 8529 0.001691005192697 8530 0.0016908653778955 8531 0.0016907254466787 8532 0.0016905849333853 8533 0.001690445933491 8534 0.0016903051873669 8535 0.0016901650233194 8536 0.0016900257905945 8537 0.001689885975793 8538 0.0016897452296689 8539 0.0016896068118513 8540 0.0016894667642191 8541 0.0016893268330023 8542 0.001689187833108 8543 0.0016890476690605 8544 0.0016889090184122 8545 0.0016887683887035 8546 0.0016886300873011 8547 0.0016884902724996 8548 0.0016883502248675 8549 0.0016882115742192 8550 0.0016880719922483 8551 0.0016879328759387 8552 0.0016877925954759 8553 0.0016876548761502 8554 0.0016875150613487 8555 0.0016873753629625 8556 0.0016872368287295 8557 0.0016870974795893 8558 0.0016869573155418 8559 0.0016868190141395 8560 0.0016866793157533 8561 0.0016865411307663 8562 0.0016864014323801 8563 0.0016862625489011 8564 0.0016861230833456 8565 0.0016859846655279 8566 0.0016858455492184 8567 0.0016857071314007 8568 0.0016855676658452 8569 0.0016854294808581 8570 0.0016852905973792 8571 0.0016851522959769 8572 0.0016850128304213 8573 0.0016848746454343 8574 0.0016847365768626 8575 0.0016845971113071 8576 0.0016844585770741 8577 0.0016843206249177 8578 0.0016841813921928 8579 0.0016840428579599 8580 0.0016839047893882 8581 0.0016837657894939 8582 0.0016836284194142 8583 0.0016834898851812 8584 0.0016833513509482 8585 0.0016832132823765 8586 0.0016830756794661 8587 0.0016829376108944 8588 0.0016827996587381 8589 0.0016826615901664 8590 0.0016825246857479 8591 0.0016823860350996 8592 0.0016822492470965 8593 0.0016821110621095 8594 0.0016819732263684 8595 0.0016818365547806 8596 0.0016816986026242 8597 0.0016815618146211 8598 0.0016814229311422 8599 0.0016812856774777 8600 0.0016811487730592 8601 0.0016810104716569 8602 0.0016808731015772 8603 0.0016807359643281 8604 0.001680598128587 8605 0.0016804605256766 8606 0.0016803233884275 8607 0.0016801855526865 8608 0.0016800492303446 8609 0.0016799116274342 8610 0.0016797750722617 8611 0.0016796381678432 8612 0.0016795000992715 8613 0.001679363893345 8614 0.0016792273381725 8615 0.0016790900845081 8616 0.0016789529472589 8617 0.0016788162756711 8618 0.001678679138422 8619 0.0016785422340035 8620 0.0016784052131698 8621 0.0016782684251666 8622 0.0016781315207481 8623 0.0016779944999143 8624 0.0016778577119112 8625 0.0016777204582468 8626 0.0016775843687356 8627 0.0016774476971477 8628 0.0016773110255599 8629 0.001677174703218 8630 0.0016770386137068 8631 0.0016769021749496 8632 0.0016767657361925 8633 0.0016766290646046 8634 0.0016764925094321 8635 0.0016763565363362 8636 0.0016762193990871 8637 0.0016760842408985 8638 0.0016759488498792 8639 0.0016758111305535 8640 0.0016756759723648 8641 0.0016755391843617 8642 0.0016754028620198 8643 0.0016752666560933 8644 0.0016751310322434 8645 0.0016749945934862 8646 0.0016748574562371 8647 0.0016747219488025 8648 0.00167458539363 8649 0.0016744494205341 8650 0.0016743130981922 8651 0.0016741778235883 8652 0.0016740425489843 8653 0.0016739070415497 8654 0.0016737715341151 8655 0.0016736348625273 8656 0.0016734998207539 8657 0.001673363847658 8658 0.0016732288058847 8659 0.0016730923671275 8660 0.0016729570925236 8661 0.0016728211194277 8662 0.0016726857284084 8663 0.0016725506866351 8664 0.0016724159941077 8665 0.0016722794389352 8666 0.0016721439315006 8667 0.0016720081912354 8668 0.0016718723345548 8669 0.0016717369435355 8670 0.0016716015525162 8671 0.0016714668599889 8672 0.0016713314689696 8673 0.0016711967764422 8674 0.0016710615018383 8675 0.0016709263436496 8676 0.0016707917675376 8677 0.001670656260103 8678 0.0016705214511603 8679 0.001670386060141 8680 0.0016702509019524 8681 0.0016701160930097 8682 0.001669981633313 8683 0.0016698464751244 8684 0.0016697112005204 8685 0.0016695773229003 8686 0.0016694411169738 8687 0.0016693071229383 8688 0.001669172081165 8689 0.0016690369229764 8690 0.001668902579695 8691 0.0016687668394297 8692 0.0016686331946403 8693 0.0016684979200363 8694 0.0016683634603396 8695 0.0016682293498889 8696 0.0016680944245309 8697 0.0016679597320035 8698 0.0016678257379681 8699 0.0016676908126101 8700 0.0016675570514053 8701 0.0016674228245392 8702 0.0016672877827659 8703 0.0016671542543918 8704 0.0016670195618644 8705 0.0016668860334903 8706 0.0016667512245476 8707 0.0016666171140969 8708 0.0016664830036461 8709 0.0016663486603647 8710 0.0016662143170834 8711 0.0016660802066326 8712 0.0016659458633512 8713 0.0016658121021464 8714 0.0016656776424497 8715 0.001665543531999 8716 0.0016654094215482 8717 0.0016652753110975 8718 0.0016651417827234 8719 0.0016650075558573 8720 0.0016648748423904 8721 0.0016647402662784 8722 0.0016646066214889 8723 0.0016644734423608 8724 0.0016643397975713 8725 0.0016642065020278 8726 0.0016640732064843 8727 0.0016639402601868 8728 0.0016638059169054 8729 0.0016636730870232 8730 0.0016635396750644 8731 0.0016634059138596 8732 0.0016632728511468 8733 0.001663139089942 8734 0.0016630053287372 8735 0.001662872848101 8736 0.0016627385048196 8737 0.0016626057913527 8738 0.0016624721465632 8739 0.001662339316681 8740 0.0016622063703835 8741 0.0016620740061626 8742 0.001661941409111 8743 0.0016618090448901 8744 0.0016616757493466 8745 0.0016615433851257 8746 0.0016614107880741 8747 0.0016612786566839 8748 0.001661145593971 8749 0.0016610135789961 8750 0.0016608808655292 8751 0.0016607486177236 8752 0.0016606164863333 8753 0.0016604830743745 8754 0.0016603512922302 8755 0.0016602179966867 8756 0.0016600865637884 8757 0.0016599537339061 8758 0.0016598216025159 8759 0.0016596891218796 8760 0.0016595569904894 8761 0.0016594243934378 8762 0.0016592927277088 8763 0.0016591602470726 8764 0.0016590284649283 8765 0.0016588958678767 8766 0.0016587644349784 8767 0.0016586318379268 8768 0.0016585005214438 8769 0.0016583683900535 8770 0.0016582366079092 8771 0.0016581042436883 8772 0.0016579723451287 8773 0.0016578410286456 8774 0.0016577085480094 8775 0.0016575771151111 8776 0.0016574456822127 8777 0.0016573135508224 8778 0.0016571818850935 8779 0.0016570503357798 8780 0.0016569177387282 8781 0.0016567860729992 8782 0.0016566545236856 8783 0.0016565230907872 8784 0.0016563918907195 8785 0.0016562604578212 8786 0.0016561282100156 8787 0.0016559973591939 8788 0.0016558659262955 8789 0.0016557346098125 8790 0.0016556037589908 8791 0.0016554722096771 8792 0.0016553401947021 8793 0.0016552095767111 8794 0.001655078260228 8795 0.001654946943745 8796 0.0016548163257539 8797 0.0016546850092709 8798 0.0016545534599572 8799 0.0016544227255508 8800 0.0016542911762372 8801 0.0016541604418308 8802 0.0016540291253477 8803 0.0016538975760341 8804 0.0016537667252123 8805 0.0016536362236366 8806 0.0016535051399842 8807 0.0016533749876544 8808 0.0016532446024939 8809 0.0016531144501641 8810 0.0016529835993424 8811 0.0016528543783352 8812 0.0016527232946828 8813 0.0016525930259377 8814 0.0016524628736079 8815 0.0016523331869394 8816 0.0016522032674402 8817 0.0016520732315257 8818 0.0016519431956112 8819 0.0016518124612048 8820 0.0016516824252903 8821 0.0016515527386218 8822 0.0016514227027074 8823 0.0016512925503775 8824 0.0016511616995558 8825 0.0016510323621333 8826 0.0016509025590494 8827 0.0016507729887962 8828 0.0016506433021277 8829 0.0016505139647052 8830 0.0016503841616213 8831 0.0016502545913681 8832 0.0016501254867762 8833 0.0016499956836924 8834 0.0016498657641932 8835 0.0016497364267707 8836 0.0016496070893481 8837 0.0016494781011716 8838 0.0016493492294103 8839 0.0016492183785886 8840 0.0016490895068273 8841 0.0016489597037435 8842 0.0016488302499056 8843 0.0016487005632371 8844 0.0016485716914758 8845 0.0016484423540533 8846 0.0016483126673847 8847 0.0016481836792082 8848 0.0016480535268784 8849 0.0016479243058711 8850 0.0016477949684486 8851 0.0016476660966873 8852 0.0016475364100188 8853 0.0016474078875035 8854 0.0016472786664963 8855 0.0016471499111503 8856 0.0016470205737278 8857 0.0016468918183818 8858 0.0016467636451125 8859 0.0016466344241053 8860 0.00164650590159 8861 0.0016463763313368 8862 0.0016462476924062 8863 0.0016461191698909 8864 0.0016459898324683 8865 0.0016458607278764 8866 0.0016457324381918 8867 0.0016456032171845 8868 0.0016454746946692 8869 0.0016453457064927 8870 0.0016452167183161 8871 0.0016450881958008 8872 0.0016449595568702 8873 0.0016448313836008 8874 0.0016447025118396 8875 0.0016445748042315 8876 0.0016444465145469 8877 0.0016443176427856 8878 0.0016441892366856 8879 0.0016440623439848 8880 0.001643932890147 8881 0.001643804833293 8882 0.0016436774749309 8883 0.0016435489524156 8884 0.0016434205463156 8885 0.0016432916745543 8886 0.0016431645490229 8887 0.0016430364921689 8888 0.0016429076204076 8889 0.0016427794471383 8890 0.0016426520887762 8891 0.001642522867769 8892 0.0016423955094069 8893 0.0016422672197223 8894 0.0016421396285295 8895 0.0016420113388449 8896 0.0016418828163296 8897 0.0016417547594756 8898 0.0016416275175288 8899 0.0016414994606748 8900 0.0016413715202361 8901 0.0016412446275353 8902 0.0016411171527579 8903 0.0016409890959039 8904 0.0016408620867878 8905 0.0016407339135185 8906 0.0016406064387411 8907 0.0016404795460403 8908 0.0016403512563556 8909 0.0016402240144089 8910 0.0016400960739702 8911 0.0016399687156081 8912 0.0016398418229073 8913 0.0016397143481299 8914 0.0016395871061832 8915 0.0016394591657445 8916 0.0016393325058743 8917 0.0016392050310969 8918 0.0016390781383961 8919 0.0016389515949413 8920 0.0016388241201639 8921 0.0016386965289712 8922 0.0016385704511777 8923 0.0016384433256462 8924 0.0016383159672841 8925 0.0016381891909987 8926 0.0016380620654672 8927 0.0016379352891818 8928 0.001637808047235 8929 0.0016376817366108 8930 0.0016375543782488 8931 0.0016374276019633 8932 0.0016373009420931 8933 0.0016371741658077 8934 0.0016370469238609 8935 0.0016369201475754 8936 0.0016367938369513 8937 0.0016366671770811 8938 0.001636539818719 8939 0.0016364131588489 8940 0.0016362867318094 8941 0.001636159257032 8942 0.0016360330628231 8943 0.0016359067521989 8944 0.0016357799759135 8945 0.0016356529667974 8946 0.0016355267725885 8947 0.0016354004619643 8948 0.0016352753154933 8949 0.0016351484227926 8950 0.001635021995753 8951 0.0016348962672055 8952 0.0016347699565813 8953 0.0016346431802958 8954 0.0016345171025023 8955 0.0016343912575394 8956 0.0016342645976692 8957 0.0016341388691217 8958 0.0016340122092515 8959 0.001633886131458 8960 0.001633760984987 8961 0.0016336336266249 8962 0.0016335074324161 8963 0.0016333819366992 8964 0.0016332560917363 8965 0.0016331293154508 8966 0.0016330044018105 8967 0.0016328782076016 8968 0.0016327523626387 8969 0.0016326261684299 8970 0.0016325004398823 8971 0.0016323749441653 8972 0.0016322493320331 8973 0.0016321239527315 8974 0.0016319979913533 8975 0.0016318729612976 8976 0.001631747581996 8977 0.0016316209221259 8978 0.0016314963577315 8979 0.0016313705127686 8980 0.001631245133467 8981 0.0016311187064275 8982 0.0016309940256178 8983 0.0016308684134856 8984 0.0016307425685227 8985 0.0016306176548824 8986 0.0016304915770888 8987 0.0016303659649566 8988 0.0016302408184856 8989 0.0016301155555993 8990 0.0016299893613905 8991 0.0016298640985042 8992 0.0016297394176945 8993 0.0016296147368848 8994 0.0016294891247526 8995 0.0016293650260195 8996 0.0016292405780405 8997 0.0016291156644002 8998 0.0016289907507598 8999 0.0016288664191961 9000 0.0016287423204631 9001 0.0016286165919155 9002 0.0016284933080897 9003 0.0016283681616187 9004 0.0016282433643937 9005 0.0016281187999994 9006 0.0016279940027744 9007 0.0016278702532873 9008 0.001627744990401 9009 0.0016276207752526 9010 0.0016274959780276 9011 0.0016273724613711 9012 0.0016272471984848 9013 0.0016271229833364 9014 0.0016269987681881 9015 0.0016268754843622 9016 0.0016267511527985 9017 0.0016266269376501 9018 0.0016265034209937 9019 0.001626378390938 9020 0.0016262549906969 9021 0.0016261311247945 9022 0.0016260077245533 9023 0.0016258836258203 9024 0.0016257601091638 9025 0.001625636825338 9026 0.0016255131922662 9027 0.0016253888607025 9028 0.0016252662753686 9029 0.0016251422930509 9030 0.0016250186599791 9031 0.0016248961910605 9032 0.0016247719759122 9033 0.0016246482264251 9034 0.0016245248261839 9035 0.0016244015423581 9036 0.001624278142117 9037 0.0016241546254605 9038 0.0016240312252194 9039 0.0016239074757323 9040 0.0016237840754911 9041 0.001623661024496 9042 0.0016235375078395 9043 0.0016234145732597 9044 0.0016232912894338 9045 0.0016231684712693 9046 0.0016230454202741 9047 0.0016229227185249 9048 0.0016227994346991 9049 0.001622676034458 9050 0.0016225537983701 9051 0.0016224307473749 9052 0.001622307812795 9053 0.0016221846453846 9054 0.0016220619436353 9055 0.0016219386598095 9056 0.001621815492399 9057 0.0016216932563111 9058 0.0016215699724853 9059 0.0016214470379055 9060 0.0016213248018175 9061 0.001621201634407 9062 0.0016210788162425 9063 0.0016209568129852 9064 0.0016208339948207 9065 0.0016207118751481 9066 0.0016205894062296 9067 0.001620467286557 9068 0.0016203448176384 9069 0.0016202228143811 9070 0.0016201001126319 9071 0.0016199788078666 9072 0.0016198552912101 9073 0.0016197330551222 9074 0.0016196116339415 9075 0.0016194890486076 9076 0.0016193665796891 9077 0.0016192444600165 9078 0.001619121292606 9079 0.0016189991729334 9080 0.0016188779845834 9081 0.0016187551664189 9082 0.0016186321154237 9083 0.0016185109270737 9084 0.0016183885745704 9085 0.0016182663384825 9086 0.0016181438695639 9087 0.001618021982722 9088 0.0016178997466341 9089 0.0016177776269615 9090 0.0016176551580429 9091 0.0016175336204469 9092 0.0016174123156816 9093 0.0016172904288396 9094 0.0016171685419977 9095 0.0016170470044017 9096 0.0016169251175597 9097 0.0016168032307178 9098 0.0016166819259524 9099 0.0016165603883564 9100 0.0016164383850992 9101 0.0016163167310879 9102 0.0016161957755685 9103 0.0016160742379725 9104 0.0016159520018846 9105 0.0016158302314579 9106 0.0016157090431079 9107 0.0016155878547579 9108 0.001615465967916 9109 0.0016153453616425 9110 0.0016152241732925 9111 0.0016151037998497 9112 0.0016149829607457 9113 0.0016148617723957 9114 0.0016147412825376 9115 0.0016146199777722 9116 0.0016144993714988 9117 0.0016143787652254 9118 0.0016142579261214 9119 0.0016141375526786 9120 0.0016140171792358 9121 0.0016138962237164 9122 0.0016137752681971 9123 0.0016136545455083 9124 0.0016135337064043 9125 0.0016134136822075 9126 0.0016132929595187 9127 0.0016131720039994 9128 0.0016130512813106 9129 0.0016129314899445 9130 0.0016128106508404 9131 0.0016126902773976 9132 0.0016125693218783 9133 0.0016124488320202 9134 0.0016123285749927 9135 0.0016122072702274 9136 0.0016120877116919 9137 0.0016119666397572 9138 0.001611846499145 9139 0.0016117255436257 9140 0.0016116051701829 9141 0.0016114851459861 9142 0.0016113647725433 9143 0.0016112450975925 9144 0.0016111250733957 9145 0.0016110052820295 9146 0.0016108849085867 9147 0.001610764535144 9148 0.0016106450930238 9149 0.0016105246031657 9150 0.0016104052774608 9151 0.0016102851368487 9152 0.0016101652290672 9153 0.0016100448556244 9154 0.0016099244821817 9155 0.0016098053893074 9156 0.0016096853651106 9157 0.0016095654573292 9158 0.001609445316717 9159 0.0016093263402581 9160 0.0016092070145532 9161 0.0016090869903564 9162 0.0016089675482363 9163 0.0016088477568701 9164 0.0016087286639959 9165 0.0016086094547063 9166 0.0016084893140942 9167 0.0016083696391433 9168 0.0016082501970232 9169 0.0016081312205642 9170 0.0016080122441053 9171 0.0016078926855698 9172 0.001607773010619 9173 0.0016076536849141 9174 0.001607533893548 9175 0.0016074150335044 9176 0.0016072952421382 9177 0.001607175800018 9178 0.0016070562414825 9179 0.0016069372650236 9180 0.001606818055734 9181 0.0016066982643679 9182 0.0016065791714936 9183 0.0016064596129581 9184 0.0016063404036686 9185 0.0016062208451331 9186 0.0016061018686742 9187 0.0016059827757999 9188 0.0016058631008491 9189 0.0016057441243902 9190 0.0016056251479313 9191 0.0016055053565651 9192 0.0016053870785981 9193 0.0016052678693086 9194 0.0016051492420956 9195 0.0016050304984674 9196 0.0016049107071012 9197 0.0016047924291342 9198 0.0016046732198447 9199 0.0016045549418777 9200 0.0016044361982495 9201 0.0016043173382059 9202 0.0016041984781623 9203 0.0016040802001953 9204 0.0016039609909058 9205 0.0016038429457694 9206 0.0016037247842178 9207 0.0016036066226661 9208 0.0016034869477153 9209 0.0016033693682402 9210 0.0016032512066886 9211 0.0016031328123063 9212 0.0016030150000006 9213 0.0016028960235417 9214 0.0016027784440666 9215 0.0016026594676077 9216 0.0016025406075642 9217 0.0016024229116738 9218 0.0016023046337068 9219 0.0016021863557398 9220 0.0016020684270188 9221 0.0016019496833906 9222 0.0016018319875002 9223 0.0016017137095332 9224 0.0016015957808122 9225 0.0016014776192605 9226 0.0016013600397855 9227 0.0016012417618185 9228 0.0016011234838516 9229 0.0016010054387152 9230 0.0016008868115023 9231 0.0016007689991966 9232 0.0016006509540603 9233 0.0016005332581699 9234 0.0016004154458642 9235 0.0016002965858206 9236 0.0016001791227609 9237 0.0016000610776246 9238 0.0015999430324882 9239 0.0015998258022591 9240 0.0015997077571228 9241 0.0015995908761397 9242 0.0015994725981727 9243 0.0015993550186977 9244 0.0015992370899767 9245 0.0015991197433323 9246 0.0015990023966879 9247 0.0015988845843822 9248 0.0015987667720765 9249 0.0015986498910934 9250 0.0015985320787877 9251 0.0015984149649739 9252 0.0015982969198376 9253 0.0015981798060238 9254 0.0015980628086254 9255 0.0015979446470737 9256 0.0015978277660906 9257 0.0015977106522769 9258 0.0015975940041244 9259 0.0015974761918187 9260 0.0015973593108356 9261 0.0015972423134372 9262 0.0015971250832081 9263 0.0015970079693943 9264 0.0015968912048265 9265 0.0015967743238434 9266 0.0015966575592756 9267 0.0015965407947078 9268 0.0015964234480634 9269 0.001596306799911 9270 0.0015961886383593 9271 0.0015960716409609 9272 0.0015959551092237 9273 0.0015958385774866 9274 0.0015957213472575 9275 0.0015956048155203 9276 0.0015954875852913 9277 0.0015953712863848 9278 0.0015952540561557 9279 0.0015951371751726 9280 0.0015950202941895 9281 0.0015949031803757 9282 0.0015947864158079 9283 0.0015946701169014 9284 0.0015945530030876 9285 0.0015944362385198 9286 0.0015943190082908 9287 0.0015942031750455 9288 0.0015940854791552 9289 0.0015939687145874 9290 0.0015938516007736 9291 0.0015937351854518 9292 0.0015936198178679 9293 0.0015935029368848 9294 0.0015933872200549 9295 0.0015932703390718 9296 0.0015931539237499 9297 0.0015930377412587 9298 0.0015929217915982 9299 0.0015928049106151 9300 0.0015926887281239 9301 0.0015925725456327 9302 0.0015924564795569 9303 0.001592340064235 9304 0.0015922241145745 9305 0.0015921082813293 9306 0.0015919915167615 9307 0.0015918759163469 9308 0.0015917597338557 9309 0.0015916439006105 9310 0.0015915278345346 9311 0.001591412583366 9312 0.0015912973321974 9313 0.0015911812661216 9314 0.001591065316461 9315 0.0015909499488771 9316 0.0015908341156319 9317 0.0015907187480479 9318 0.0015906025655568 9319 0.0015904870815575 9320 0.001590371131897 9321 0.001590255764313 9322 0.0015901393489912 9323 0.0015900237485766 9324 0.0015899080317467 9325 0.0015897926641628 9326 0.0015896776458248 9327 0.0015895620454103 9328 0.001589446561411 9329 0.0015893310774118 9330 0.0015892153605819 9331 0.0015890998765826 9332 0.001588984625414 9333 0.0015888689085841 9334 0.0015887535410002 9335 0.0015886374749243 9336 0.0015885224565864 9337 0.0015884066233411 9338 0.0015882912557572 9339 0.0015881761210039 9340 0.0015880601713434 9341 0.0015879452694207 9342 0.0015878297854215 9343 0.0015877146506682 9344 0.0015875993994996 9345 0.001587484497577 9346 0.0015873692464083 9347 0.0015872542280704 9348 0.0015871395589784 9349 0.0015870238421485 9350 0.0015869092894718 9351 0.0015867942711338 9352 0.0015866796020418 9353 0.0015865645837039 9354 0.0015864497981966 9355 0.0015863343141973 9356 0.0015862197615206 9357 0.0015861042775214 9358 0.001585990190506 9359 0.0015858752885833 9360 0.0015857612015679 9361 0.0015856460668147 9362 0.0015855322126299 9363 0.0015854174271226 9364 0.0015853031072766 9365 0.0015851883217692 9366 0.0015850735362619 9367 0.0015849593328312 9368 0.0015848444309086 9369 0.0015847299946472 9370 0.0015846162568778 9371 0.0015845014713705 9372 0.0015843871515244 9373 0.001584273064509 9374 0.0015841585118324 9375 0.001584044424817 9376 0.0015839298721403 9377 0.0015838157851249 9378 0.0015837019309402 9379 0.0015835865633562 9380 0.0015834723599255 9381 0.0015833583893254 9382 0.0015832441858947 9383 0.0015831298660487 9384 0.0015830161282793 9385 0.001582900993526 9386 0.0015827871393412 9387 0.0015826729359105 9388 0.0015825584996492 9389 0.0015824445290491 9390 0.0015823303256184 9391 0.0015822155401111 9392 0.0015821016859263 9393 0.0015819873660803 9394 0.0015818731626496 9395 0.0015817598905414 9396 0.0015816459199414 9397 0.00158153148368 9398 0.0015814186772332 9399 0.0015813051722944 9400 0.0015811915509403 9401 0.0015810781624168 9402 0.0015809643082321 9403 0.0015808515017852 9404 0.0015807378804311 9405 0.0015806247247383 9406 0.0015805112197995 9407 0.0015803975984454 9408 0.0015802846755832 9409 0.0015801717527211 9410 0.0015800588298589 9411 0.0015799461398274 9412 0.0015798340318725 9413 0.0015797212254256 9414 0.0015796087682247 9415 0.0015794951468706 9416 0.0015793830389157 9417 0.0015792706981301 9418 0.0015791580080986 9419 0.0015790454344824 9420 0.0015789329772815 9421 0.0015788206364959 9422 0.0015787086449564 9423 0.0015785959549248 9424 0.0015784832648933 9425 0.0015783710405231 9426 0.0015782580012456 9427 0.0015781463589519 9428 0.0015780337853357 9429 0.0015779214445502 9430 0.0015778087545186 9431 0.0015776966465637 9432 0.0015775841893628 9433 0.0015774720814079 9434 0.001577359973453 9435 0.0015772476326674 9436 0.0015771351754665 9437 0.0015770227182657 9438 0.0015769102610648 9439 0.0015767975710332 9440 0.0015766859287396 9441 0.0015765740536153 9442 0.0015764615964144 9443 0.0015763493720442 9444 0.001576237147674 9445 0.0015761248068884 9446 0.0015760123496875 9447 0.0015759007073939 9448 0.0015757892979309 9449 0.0015756767243147 9450 0.0015755649656057 9451 0.0015754525084049 9452 0.0015753413317725 9453 0.0015752294566482 9454 0.0015751179307699 9455 0.0015750065213069 9456 0.0015748941805214 9457 0.0015747826546431 9458 0.0015746701974422 9459 0.0015745587879792 9460 0.0015744470292702 9461 0.0015743356198072 9462 0.0015742242103443 9463 0.0015741131501272 9464 0.0015740010421723 9465 0.0015738900983706 9466 0.0015737792709842 9467 0.0015736678615212 9468 0.0015735566848889 9469 0.0015734452754259 9470 0.0015733337495476 9471 0.0015732224564999 9472 0.0015731113962829 9473 0.001572999637574 9474 0.0015728883445263 9475 0.0015727770514786 9476 0.0015726659912616 9477 0.0015725553967059 9478 0.0015724441036582 9479 0.0015723325777799 9480 0.0015722212847322 9481 0.0015721102245152 9482 0.0015719986986369 9483 0.0015718869399279 9484 0.0015717762289569 9485 0.0015716649359092 9486 0.0015715544577688 9487 0.0015714433975518 9488 0.0015713321045041 9489 0.0015712210442871 9490 0.0015711095184088 9491 0.0015709986910224 9492 0.0015708872815594 9493 0.0015707761049271 9494 0.00157066504471 9495 0.0015705537516624 9496 0.0015704426914454 9497 0.0015703320968896 9498 0.0015702203381807 9499 0.0015701095107943 9500 0.0015699989162385 9501 0.0015698876231909 9502 0.0015697773778811 9503 0.0015696665504947 9504 0.0015695551410317 9505 0.001569444546476 9506 0.0015693348832428 9507 0.0015692239394411 9508 0.0015691134613007 9509 0.001569003215991 9510 0.0015688919229433 9511 0.0015687817940488 9512 0.0015686711994931 9513 0.0015685606049374 9514 0.0015684508252889 9515 0.0015683406963944 9516 0.0015682310331613 9517 0.0015681213699281 9518 0.0015680115902796 9519 0.0015679020434618 9520 0.0015677914489061 9521 0.0015676815528423 9522 0.0015675718896091 9523 0.0015674624592066 9524 0.0015673527959734 9525 0.001567242667079 9526 0.0015671323053539 9527 0.001567023107782 9528 0.0015669135609642 9529 0.001566803897731 9530 0.0015666938852519 9531 0.0015665842220187 9532 0.0015664744423702 9533 0.0015663646627218 9534 0.0015662555815652 9535 0.0015661449870095 9536 0.0015660361386836 9537 0.0015659255441278 9538 0.0015658162301406 9539 0.0015657066833228 9540 0.0015655966708437 9541 0.0015654875896871 9542 0.0015653782756999 9543 0.0015652687288821 9544 0.001565158367157 9545 0.0015650495188311 9546 0.0015649398555979 9547 0.0015648296102881 9548 0.0015647198306397 9549 0.0015646104002371 9550 0.0015645019011572 9551 0.0015643921215087 9552 0.0015642822254449 9553 0.0015641736099496 9554 0.0015640638303012 9555 0.0015639548655599 9556 0.0015638459008187 9557 0.0015637369360775 9558 0.0015636276220903 9559 0.0015635184245184 9560 0.0015634088777006 9561 0.0015632995637134 9562 0.0015631905989721 9563 0.0015630817506462 9564 0.001562972436659 9565 0.0015628640539944 9566 0.0015627547400072 9567 0.0015626460080966 9568 0.001562537625432 9569 0.0015624293591827 9570 0.0015623206272721 9571 0.0015622123610228 9572 0.0015621036291122 9573 0.0015619944315404 9574 0.0015618866309524 9575 0.0015617777826265 9576 0.0015616690507159 9577 0.001561559853144 9578 0.0015614515868947 9579 0.0015613434370607 9580 0.0015612347051501 9581 0.0015611258568242 9582 0.0015610174741596 9583 0.0015609094407409 9584 0.0015608007088304 9585 0.0015606919769198 9586 0.0015605837106705 9587 0.0015604748623446 9588 0.0015603668289259 9589 0.0015602585626766 9590 0.001560149830766 9591 0.0015600413316861 9592 0.0015599331818521 9593 0.0015598245663568 9594 0.0015597160672769 9595 0.0015596084995195 9596 0.001559499418363 9597 0.0015593908028677 9598 0.0015592820709571 9599 0.0015591736882925 9600 0.0015590661205351 9601 0.0015589579707012 9602 0.0015588492387906 9603 0.0015587412053719 9604 0.0015586330555379 9605 0.0015585240907967 9606 0.0015584155917168 9607 0.00155830825679 9608 0.0015581995248795 9609 0.0015580912586302 9610 0.0015579831087962 9611 0.0015578754246235 9612 0.0015577673912048 9613 0.0015576598234475 9614 0.0015575521392748 9615 0.0015574437566102 9616 0.0015573359560221 9617 0.0015572279226035 9618 0.0015571198891848 9619 0.0015570126706734 9620 0.0015569045208395 9621 0.0015567964874208 9622 0.0015566889196634 9623 0.0015565819339827 9624 0.0015564745990559 9625 0.0015563666820526 9626 0.0015562592307106 9627 0.0015561521286145 9628 0.0015560442116112 9629 0.0015559367602691 9630 0.0015558291925117 9631 0.0015557217411697 9632 0.0015556145226583 9633 0.0015555073041469 9634 0.0015553998528048 9635 0.0015552928671241 9636 0.0015551852993667 9637 0.00155507796444 9638 0.0015549702802673 9639 0.0015548629453406 9640 0.0015547554939985 9641 0.0015546487411484 9642 0.0015545414062217 9643 0.0015544332563877 9644 0.001554325921461 9645 0.0015542185865343 9646 0.0015541118336841 9647 0.0015540051972494 9648 0.0015538977459073 9649 0.0015537906438112 9650 0.0015536831924692 9651 0.0015535757411271 9652 0.0015534691046923 9653 0.0015533625846729 9654 0.0015532550169155 9655 0.0015531470999122 9656 0.0015530408127233 9657 0.0015529335942119 9658 0.0015528262592852 9659 0.0015527189243585 9660 0.001552612753585 9661 0.0015525061171502 9662 0.0015523990150541 9663 0.0015522923786193 9664 0.0015521848108619 9665 0.0015520787565038 9666 0.0015519724693149 9667 0.0015518659492955 9668 0.001551759429276 9669 0.0015516537241638 9670 0.0015515475533903 9671 0.0015514409169555 9672 0.0015513342805207 9673 0.0015512278769165 9674 0.0015511215897277 9675 0.0015510154189542 9676 0.0015509088989347 9677 0.0015508030774072 9678 0.0015506972558796 9679 0.0015505922492594 9680 0.0015504858456552 9681 0.0015503800241277 9682 0.0015502746682614 9683 0.0015501682646573 9684 0.0015500622102991 9685 0.0015499565051869 9686 0.0015498511493206 9687 0.0015497448621318 9688 0.0015496383421123 9689 0.0015495328698307 9690 0.0015494269318879 9691 0.0015493211103603 9692 0.0015492152888328 9693 0.0015491091180593 9694 0.0015490031801164 9695 0.0015488979406655 9696 0.0015487922355533 9697 0.0015486861811951 9698 0.0015485803596675 9699 0.0015484750038013 9700 0.0015483690658584 9701 0.0015482630115002 9702 0.0015481581212953 9703 0.0015480524161831 9704 0.0015479470603168 9705 0.0015478418208659 9706 0.0015477354172617 9707 0.0015476295957342 9708 0.0015475245891139 9709 0.001547418651171 9710 0.0015473132953048 9711 0.0015472082886845 9712 0.0015471023507416 9713 0.0015469966456294 9714 0.0015468912897632 9715 0.0015467854682356 9716 0.0015466795302927 9717 0.0015465752221644 9718 0.0015464692842215 9719 0.0015463632298633 9720 0.0015462578739971 9721 0.0015461524017155 9722 0.0015460463473573 9723 0.0015459426213056 9724 0.0015458370326087 9725 0.0015457315603271 9726 0.0015456269029528 9727 0.0015455211978406 9728 0.0015454159583896 9729 0.0015453103696927 9730 0.0015452054794878 9731 0.0015451007056981 9732 0.0015449956990778 9733 0.0015448903432116 9734 0.0015447855694219 9735 0.0015446811448783 9736 0.001544576138258 9737 0.0015444714808837 9738 0.0015443665906787 9739 0.0015442619333044 9740 0.0015441577415913 9741 0.0015440526185557 9742 0.0015439483104274 9743 0.001543843653053 9744 0.0015437385300174 9745 0.0015436339890584 9746 0.0015435289824381 9747 0.0015434250235558 9748 0.0015433203661814 9749 0.0015432165237144 9750 0.0015431114006788 9751 0.0015430067433044 9752 0.0015429022023454 9753 0.0015427974285558 9754 0.0015426930040121 9755 0.0015425885794684 9756 0.0015424834564328 9757 0.0015423801960424 9758 0.0015422749565914 9759 0.0015421705320477 9760 0.0015420661075041 9761 0.0015419609844685 9762 0.0015418571420014 9763 0.001541752833873 9764 0.0015416479436681 9765 0.0015415438683704 9766 0.0015414394438267 9767 0.0015413344372064 9768 0.0015412303619087 9769 0.0015411264030263 9770 0.0015410220948979 9771 0.0015409177867696 9772 0.0015408131293952 9773 0.0015407082391903 9774 0.0015406039310619 9775 0.0015404999721795 9776 0.0015403963625431 9777 0.0015402917051688 9778 0.0015401869313791 9779 0.0015400832053274 9780 0.0015399790136144 9781 0.0015398745890707 9782 0.0015397706301883 9783 0.0015396669041365 9784 0.0015395629452541 9785 0.0015394589863718 9786 0.0015393547946587 9787 0.0015392511850223 9788 0.0015391481574625 9789 0.0015390444314107 9790 0.001538940705359 9791 0.0015388370957226 9792 0.0015387343009934 9793 0.001538630342111 9794 0.0015385274309665 9795 0.0015384242869914 9796 0.0015383205609396 9797 0.0015382174169645 9798 0.0015381140401587 9799 0.0015380112454295 9800 0.0015379076357931 9801 0.0015378043754026 9802 0.0015377007657662 9803 0.001537597971037 9804 0.0015374943614006 9805 0.0015373905189335 9806 0.0015372874913737 9807 0.0015371843473986 9808 0.0015370813198388 9809 0.001536977943033 9810 0.0015368747990578 9811 0.001536771771498 9812 0.0015366685111076 9813 0.0015365655999631 9814 0.001536462106742 9815 0.0015363591955975 9816 0.0015362564008683 9817 0.0015361532568932 9818 0.0015360503457487 9819 0.0015359467361122 9820 0.0015358445234597 9821 0.0015357407974079 9822 0.0015356369549409 9823 0.0015355347422883 9824 0.0015354312490672 9825 0.0015353282215074 9826 0.0015352254267782 9827 0.0015351222828031 9828 0.0015350186731666 9829 0.0015349162276834 9830 0.0015348134329543 9831 0.0015347100561485 9832 0.0015346074942499 9833 0.0015345038846135 9834 0.0015344012062997 9835 0.0015342982951552 9836 0.00153419515118 9837 0.0015340916579589 9838 0.0015339895617217 9839 0.0015338871162385 9840 0.0015337844379246 9841 0.0015336819924414 9842 0.0015335801290348 9843 0.0015334781492129 9844 0.0015333751216531 9845 0.0015332739567384 9846 0.0015331712784246 9847 0.0015330701135099 9848 0.0015329675516114 9849 0.0015328654553741 9850 0.0015327642904595 9851 0.0015326621942222 9852 0.0015325603308156 9853 0.0015324582345784 9854 0.0015323554398492 9855 0.0015322542749345 9856 0.0015321528771892 9857 0.0015320511301979 9858 0.0015319496160373 9859 0.0015318472869694 9860 0.0015317456563935 9861 0.0015316439094022 9862 0.0015315425116569 9863 0.0015314407646656 9864 0.0015313380863518 9865 0.0015312375035137 9866 0.0015311348251998 9867 0.0015310335438699 9868 0.0015309319132939 9869 0.0015308298170567 9870 0.0015307279536501 9871 0.0015306262066588 9872 0.0015305245760828 9873 0.0015304227126762 9874 0.0015303208492696 9875 0.0015302195679396 9876 0.0015301179373637 9877 0.0015300161903724 9878 0.0015299143269658 9879 0.0015298130456358 9880 0.0015297108329833 9881 0.001529608736746 9882 0.0015295080374926 9883 0.0015294059412554 9884 0.0015293045435101 9885 0.0015292037278414 9886 0.0015291016316041 9887 0.0015289995353669 9888 0.0015288984868675 9889 0.0015287967398763 9890 0.0015286948764697 9891 0.0015285934787244 9892 0.0015284918481484 9893 0.0015283902175725 9894 0.0015282888198271 9895 0.0015281873056665 9896 0.0015280856750906 9897 0.0015279850922525 9898 0.0015278834616765 9899 0.0015277825295925 9900 0.0015276810154319 9901 0.0015275804325938 9902 0.0015274793840945 9903 0.0015273784520105 9904 0.0015272775199264 9905 0.0015271776355803 9906 0.0015270768199116 9907 0.0015269757714123 9908 0.0015268754214048 9909 0.0015267742564902 9910 0.0015266733244061 9911 0.0015265726251528 9912 0.00152647215873 9913 0.001526371226646 9914 0.0015262713422999 9915 0.0015261700609699 9916 0.0015260699437931 9917 0.0015259694773704 9918 0.0015258685452864 9919 0.001525767846033 9920 0.0015256670303643 9921 0.0015255670296028 9922 0.0015254658646882 9923 0.0015253655146807 9924 0.001525264699012 9925 0.0015251646982506 9926 0.0015250639989972 9927 0.0015249631833285 9928 0.0015248630661517 9929 0.0015247621340677 9930 0.0015246623661369 9931 0.0015245610848069 9932 0.0015244608512148 9933 0.0015243599191308 9934 0.0015242600347847 9935 0.00152415886987 9936 0.0015240589855239 9937 0.0015239587519318 9938 0.0015238580526784 9939 0.001523758051917 9940 0.0015236577019095 9941 0.0015235566534102 9942 0.0015234564198181 9943 0.001523356186226 9944 0.0015232561854646 9945 0.0015231557190418 9946 0.0015230544377118 9947 0.0015229551354423 9948 0.0015228544361889 9949 0.0015227538533509 9950 0.0015226539690048 9951 0.001522553851828 9952 0.0015224530361593 9953 0.0015223528025672 9954 0.0015222528018057 9955 0.0015221522189677 9956 0.0015220521017909 9957 0.0015219517517835 9958 0.0015218523330986 9959 0.0015217529144138 9960 0.0015216525644064 9961 0.0015215532621369 9962 0.0015214533777907 9963 0.0015213545411825 9964 0.0015212544240057 9965 0.0015211552381516 9966 0.0015210551209748 9967 0.0015209557022899 9968 0.0015208565164357 9969 0.0015207566320896 9970 0.0015206570969895 9971 0.0015205579111353 9972 0.0015204582596198 9973 0.0015203591901809 9974 0.0015202587237582 9975 0.001520159537904 9976 0.0015200604684651 9977 0.0015199607005343 9978 0.0015198611654341 9979 0.0015197617467493 9980 0.0015196623280644 9981 0.001519562327303 9982 0.0015194630250335 9983 0.0015193643048406 9984 0.0015192639548331 9985 0.0015191652346402 9986 0.0015190656995401 9987 0.0015189660480246 9988 0.0015188666293398 9989 0.0015187670942396 9990 0.0015186675591394 9991 0.0015185687225312 9992 0.001518469536677 9993 0.0015183698851615 9994 0.0015182703500614 9995 0.0015181711642072 9996 0.0015180718619376 9997 0.0015179722104222 9998 0.0015178727917373 9999 0.0015177732566372 10000 0.0015176746528596 10001 0.0015175751177594 10002 0.0015174758154899 10003 0.001517376746051 10004 0.0015172772109509 10005 0.0015171782579273 10006 0.0015170784899965 10007 0.0015169793041423 10008 0.0015168807003647 10009 0.0015167813980952 10010 0.0015166823286563 10011 0.0015165826771408 10012 0.0015164837241173 10013 0.0015163840726018 10014 0.0015162848867476 10015 0.001516185933724 10016 0.0015160867478698 10017 0.0015159881440923 10018 0.0015158888418227 10019 0.0015157907037064 10020 0.0015156918670982 10021 0.0015155939618126 10022 0.0015154964057729 10023 0.0015153979184106 10024 0.0015152998967096 10025 0.0015152022242546 10026 0.0015151035040617 10027 0.0015150049002841 10028 0.0015149071114138 10029 0.0015148089732975 10030 0.0015147113008425 10031 0.0015146123478189 10032 0.0015145149081945 10033 0.0015144171193242 10034 0.0015143192140386 10035 0.0015142203774303 10036 0.0015141232870519 10037 0.0015140254981816 10038 0.0015139267779887 10039 0.0015138293383643 10040 0.0015137310838327 10041 0.0015136329457164 10042 0.0015135348076001 10043 0.0015134379500523 10044 0.0015133391134441 10045 0.0015132419066504 10046 0.0015131433028728 10047 0.0015130462124944 10048 0.0015129485400394 10049 0.001512851100415 10050 0.0015127529622987 10051 0.0015126543585211 10052 0.0015125575009733 10053 0.0015124594792724 10054 0.0015123608754948 10055 0.0015122633194551 10056 0.0015121651813388 10057 0.0015120680909604 10058 0.0015119705349207 10059 0.0015118725132197 10060 0.0015117742586881 10061 0.0015116771683097 10062 0.001511579263024 10063 0.0015114818233997 10064 0.0015113831032068 10065 0.0015112861292437 10066 0.001511188223958 10067 0.001511090551503 10068 0.0015109920641407 10069 0.0015108947409317 10070 0.0015107976505533 10071 0.0015107000945136 10072 0.0015106016071513 10073 0.0015105048660189 10074 0.0015104071935639 10075 0.0015103103360161 10076 0.0015102127799764 10077 0.0015101159224287 10078 0.0015100187156349 10079 0.0015099224401638 10080 0.001509826281108 10081 0.0015097293071449 10082 0.0015096319839358 10083 0.0015095359412953 10084 0.0015094394329935 10085 0.0015093430411071 10086 0.001509245368652 10087 0.0015091495588422 10088 0.0015090528177097 10089 0.0015089561929926 10090 0.0015088592190295 10091 0.0015087628271431 10092 0.0015086659695953 10093 0.0015085692284629 10094 0.0015084727201611 10095 0.0015083763282746 10096 0.0015082798199728 10097 0.001508183311671 10098 0.0015080866869539 10099 0.0015079899458215 10100 0.0015078936703503 10101 0.0015077972784638 10102 0.0015077005373314 10103 0.0015076039126143 10104 0.0015075077535585 10105 0.0015074105467647 10106 0.0015073143877089 10107 0.0015072178794071 10108 0.0015071217203513 10109 0.0015070249792188 10110 0.0015069285873324 10111 0.0015068320790306 10112 0.0015067360363901 10113 0.001506638713181 10114 0.0015065430197865 10115 0.0015064468607306 10116 0.0015063507016748 10117 0.0015062537277117 10118 0.0015061572194099 10119 0.0015060609439388 10120 0.0015059645520523 10121 0.0015058685094118 10122 0.0015057718846947 10123 0.0015056757256389 10124 0.0015055797994137 10125 0.0015054823597893 10126 0.0015053867828101 10127 0.0015052907401696 10128 0.0015051943482831 10129 0.0015050976071507 10130 0.0015050008660182 10131 0.0015049059875309 10132 0.0015048088971525 10133 0.0015047122724354 10134 0.0015046156477183 10135 0.0015045206528157 10136 0.0015044235624373 10137 0.0015043272869661 10138 0.001504231360741 10139 0.0015041357837617 10140 0.0015040393918753 10141 0.0015039443969727 10142 0.0015038483543321 10143 0.0015037533594295 10144 0.0015036569675431 10145 0.0015035616233945 10146 0.0015034662792459 10147 0.0015033707022667 10148 0.0015032757073641 10149 0.0015031797811389 10150 0.0015030842041597 10151 0.0015029883943498 10152 0.0015028942143545 10153 0.001502797822468 10154 0.0015027024783194 10155 0.0015026070177555 10156 0.001502511324361 10157 0.0015024163294584 10158 0.0015023204032332 10159 0.0015022251754999 10160 0.0015021301805973 10161 0.0015020347200334 10162 0.0015019390266389 10163 0.0015018442645669 10164 0.0015017486875877 10165 0.0015016538091004 10166 0.0015015578828752 10167 0.0015014626551419 10168 0.0015013676602393 10169 0.0015012726653367 10170 0.0015011774376035 10171 0.0015010817442089 10172 0.0015009868657216 10173 0.0015008915215731 10174 0.0015007962938398 10175 0.0015007009496912 10176 0.0015006056055427 10177 0.0015005108434707 10178 0.0015004153829068 10179 0.0015003198059276 10180 0.0015002252766863 10181 0.0015001301653683 10182 0.0015000341227278 10183 0.0014999393606558 10184 0.0014998437836766 10185 0.0014997486723587 10186 0.001499654375948 10187 0.0014995587989688 10188 0.0014994638040662 10189 0.0014993692748249 10190 0.0014992733485997 10191 0.0014991788193583 10192 0.0014990838244557 10193 0.0014989881310612 10194 0.0014988932525739 10195 0.0014987976755947 10196 0.0014987027971074 10197 0.0014986083842814 10198 0.0014985128073022 10199 0.0014984179288149 10200 0.0014983236324042 10201 0.0014982281718403 10202 0.0014981335261837 10203 0.0014980393461883 10204 0.0014979447005317 10205 0.001497850054875 10206 0.0014977557584643 10207 0.0014976619277149 10208 0.0014975669328123 10209 0.001497472752817 10210 0.0014973789220676 10211 0.0014972847420722 10212 0.0014971902128309 10213 0.0014970955671743 10214 0.0014970013871789 10215 0.001496906275861 10216 0.0014968126779422 10217 0.0014967183815315 10218 0.0014966244343668 10219 0.0014965299051255 10220 0.0014964354922995 10221 0.0014963418943807 10222 0.0014962470158935 10223 0.0014961531851441 10224 0.0014960585394874 10225 0.0014959648251534 10226 0.0014958701794967 10227 0.0014957753010094 10228 0.0014956819359213 10229 0.0014955879887566 10230 0.0014954933431 10231 0.0014953996287659 10232 0.0014953054487705 10233 0.0014952110359445 10234 0.0014951163902879 10235 0.0014950230251998 10236 0.0014949293108657 10237 0.0014948346652091 10238 0.0014947403687984 10239 0.001494646188803 10240 0.0014945524744689 10241 0.001494457712397 10242 0.0014943641144782 10243 0.0014942699344829 10244 0.0014941762201488 10245 0.0014940823893994 10246 0.0014939880929887 10247 0.00149389449507 10248 0.001493800082244 10249 0.0014937061350793 10250 0.0014936121879146 10251 0.0014935177750885 10252 0.0014934241771698 10253 0.0014933308120817 10254 0.0014932360500097 10255 0.0014931425685063 10256 0.0014930492034182 10257 0.0014929547905922 10258 0.0014928616583347 10259 0.0014927665470168 10260 0.0014926730655134 10261 0.0014925793511793 10262 0.0014924850547686 10263 0.0014923916896805 10264 0.0014922985574231 10265 0.0014922046102583 10266 0.0014921119436622 10267 0.0014920182293281 10268 0.0014919250970706 10269 0.0014918323140591 10270 0.001491738948971 10271 0.0014916457002982 10272 0.0014915529172868 10273 0.0014914597850293 10274 0.0014913661871105 10275 0.0014912728220224 10276 0.0014911800390109 10277 0.0014910867903382 10278 0.0014909936580807 10279 0.0014909005258232 10280 0.0014908075099811 10281 0.001490714494139 10282 0.0014906212454662 10283 0.0014905279967934 10284 0.0014904350973666 10285 0.0014903423143551 10286 0.0014902492985129 10287 0.0014901562826708 10288 0.0014900634996593 10289 0.0014899699017406 10290 0.001489877467975 10291 0.0014897841028869 10292 0.001489691901952 10293 0.0014895980712026 10294 0.0014895054046065 10295 0.001489412272349 10296 0.0014893193729222 10297 0.0014892262406647 10298 0.0014891329919919 10299 0.0014890399761498 10300 0.0014889474259689 10301 0.0014888546429574 10302 0.0014887616271153 10303 0.0014886688441038 10304 0.0014885753626004 10305 0.0014884826960042 10306 0.0014883899129927 10307 0.0014882968971506 10308 0.0014882039977238 10309 0.0014881113311276 10310 0.0014880179660395 10311 0.0014879256486893 10312 0.0014878327492625 10313 0.0014877405483276 10314 0.0014876471832395 10315 0.0014875546330586 10316 0.0014874620828778 10317 0.0014873694162816 10318 0.0014872769825161 10319 0.0014871836174279 10320 0.0014870907180011 10321 0.0014869975857437 10322 0.0014869058504701 10323 0.0014868130674586 10324 0.0014867199352011 10325 0.0014866275014356 10326 0.0014865344855934 10327 0.0014864425174892 10328 0.0014863503165543 10329 0.0014862571842968 10330 0.0014861652161926 10331 0.001486073131673 10332 0.0014859817456454 10333 0.0014858884969726 10334 0.0014857968781143 10335 0.001485705957748 10336 0.0014856130583212 10337 0.0014855217887089 10338 0.0014854291221127 10339 0.0014853372704238 10340 0.0014852450694889 10341 0.0014851534506306 10342 0.0014850614825264 10343 0.0014849688159302 10344 0.0014848774299026 10345 0.0014847851125523 10346 0.0014846929116175 10347 0.0014846012927592 10348 0.0014845095574856 10349 0.00148441712372 10350 0.0014843257376924 10351 0.0014842338860035 10352 0.0014841421507299 10353 0.0014840501826257 10354 0.0014839585637674 10355 0.0014838662464172 10356 0.0014837747439742 10357 0.0014836826594546 10358 0.001483591273427 10359 0.0014834988396615 10360 0.0014834073372185 10361 0.0014833154855296 10362 0.0014832236338407 10363 0.0014831318985671 10364 0.0014830407453701 10365 0.0014829494757578 10366 0.0014828580897301 10367 0.0014827672857791 10368 0.0014826753176749 10369 0.0014825849793851 10370 0.0014824935933575 10371 0.0014824020909145 10372 0.0014823107048869 10373 0.0014822204830125 10374 0.0014821295626462 10375 0.0014820389915258 10376 0.0014819467905909 10377 0.0014818562194705 10378 0.0014817657647654 10379 0.0014816743787378 10380 0.0014815825270489 10381 0.0014814918395132 10382 0.0014814010355622 10383 0.0014813097659498 10384 0.0014812191948295 10385 0.0014811281580478 10386 0.0014810371212661 10387 0.0014809456188232 10388 0.0014808551641181 10389 0.0014807640109211 10390 0.0014806725084782 10391 0.0014805818209425 10392 0.0014804911334068 10393 0.001480401144363 10394 0.0014803105732426 10395 0.0014802201185375 10396 0.0014801300130785 10397 0.001480039791204 10398 0.0014799494529143 10399 0.0014798594638705 10400 0.0014797688927501 10401 0.001479678787291 10402 0.0014795884490013 10403 0.0014794981107116 10404 0.0014794080052525 10405 0.0014793172013015 10406 0.0014792275615036 10407 0.0014791376888752 10408 0.0014790465356782 10409 0.0014789565466344 10410 0.00147886632476 10411 0.0014787761028856 10412 0.0014786855317652 10413 0.0014785958919674 10414 0.001478505320847 10415 0.0014784153318033 10416 0.0014783246442676 10417 0.0014782346552238 10418 0.00147814466618 10419 0.0014780544443056 10420 0.0014779643388465 10421 0.0014778742333874 10422 0.0014777834294364 10423 0.0014776936732233 10424 0.0014776040334255 10425 0.0014775134623051 10426 0.0014774232404307 10427 0.0014773329021409 10428 0.0014772432623431 10429 0.0014771537389606 10430 0.001477062702179 10431 0.0014769728295505 10432 0.0014768828405067 10433 0.0014767923858017 10434 0.0014767025131732 10435 0.0014766115928069 10436 0.0014765218365937 10437 0.0014764321967959 10438 0.0014763418585062 10439 0.0014762517530471 10440 0.0014761621132493 10441 0.0014760718913749 10442 0.0014759819023311 10443 0.001475892146118 10444 0.0014758022734895 10445 0.0014757117023692 10446 0.001475621946156 10447 0.0014755327720195 10448 0.0014754420844838 10449 0.0014753523282707 10450 0.0014752625720575 10451 0.0014751725830138 10452 0.0014750831760466 10453 0.0014749923720956 10454 0.0014749027322978 10455 0.0014748130925 10456 0.0014747228706256 10457 0.0014746333472431 10458 0.0014745441731066 10459 0.0014744540676475 10460 0.0014743653591722 10461 0.0014742761850357 10462 0.0014741871273145 10463 0.001474097603932 10464 0.0014740086626261 10465 0.0014739198377356 10466 0.0014738297322765 10467 0.0014737411402166 10468 0.001473652664572 10469 0.0014735632576048 10470 0.0014734738506377 10471 0.0014733844436705 10472 0.0014732957351953 10473 0.0014732067938894 10474 0.0014731182018295 10475 0.0014730282127857 10476 0.0014729392714798 10477 0.0014728506794199 10478 0.0014727619709447 10479 0.0014726725639775 10480 0.0014725830405951 10481 0.0014724939828739 10482 0.0014724053908139 10483 0.0014723166823387 10484 0.0014722270425409 10485 0.0014721378684044 10486 0.0014720490435138 10487 0.0014719603350386 10488 0.0014718711609021 10489 0.0014717816375196 10490 0.001471693161875 10491 0.0014716039877385 10492 0.0014715156285092 10493 0.0014714271528646 10494 0.0014713375130668 10495 0.001471248222515 10496 0.0014711595140398 10497 0.0014710708055645 10498 0.001470981631428 10499 0.0014708931557834 10500 0.001470803283155 10501 0.0014707151567563 10502 0.0014706267975271 10503 0.0014705372741446 10504 0.0014704482164234 10505 0.0014703590422869 10506 0.0014702705666423 10507 0.0014701820909977 10508 0.0014700932661071 10509 0.001470003509894 10510 0.0014699152670801 10511 0.0014698267914355 10512 0.0014697373844683 10513 0.0014696486759931 10514 0.0014695605495945 10515 0.0014694718411192 10516 0.0014693824341521 10517 0.0014692936092615 10518 0.0014692051336169 10519 0.0014691157266498 10520 0.0014690269017592 10521 0.0014689391246065 10522 0.0014688500668854 10523 0.0014687615912408 10524 0.0014686741633341 10525 0.0014685862697661 10526 0.0014684976777062 10527 0.0014684096677229 10528 0.0014683222398162 10529 0.0014682343462482 10530 0.0014681463362649 10531 0.0014680586755276 10532 0.0014679704327136 10533 0.0014678828883916 10534 0.0014677953440696 10535 0.0014677075669169 10536 0.0014676192076877 10537 0.0014675318961963 10538 0.0014674444682896 10539 0.001467356691137 10540 0.0014672685647383 10541 0.0014671813696623 10542 0.001467093359679 10543 0.0014670055825263 10544 0.0014669173397124 10545 0.0014668295625597 10546 0.0014667422510684 10547 0.0014666541246697 10548 0.0014665661146864 10549 0.0014664792688563 10550 0.001466391957365 10551 0.001466303714551 10552 0.0014662158209831 10553 0.001466128625907 10554 0.0014660408487543 10555 0.0014659536536783 10556 0.0014658649452031 10557 0.001465777750127 10558 0.0014656896237284 10559 0.0014656028943136 10560 0.0014655156992376 10561 0.0014654267579317 10562 0.001465339679271 10563 0.0014652523677796 10564 0.001465164590627 10565 0.0014650769298896 10566 0.0014649897348136 10567 0.0014649018412456 10568 0.0014648138312623 10569 0.0014647266361862 10570 0.0014646390918642 10571 0.0014645515475422 10572 0.0014644640032202 10573 0.0014643768081442 10574 0.0014642891474068 10575 0.0014642011374235 10576 0.0014641132438555 10577 0.0014640265144408 10578 0.0014639392029494 10579 0.0014638516586274 10580 0.0014637641143054 10581 0.0014636765699834 10582 0.0014635893749073 10583 0.0014635022962466 10584 0.0014634145190939 10585 0.0014633267419413 10586 0.0014632393140346 10587 0.0014631517697126 10588 0.0014630649238825 10589 0.0014629772631451 10590 0.0014628898352385 10591 0.001462803571485 10592 0.0014627166092396 10593 0.0014626291813329 10594 0.0014625418698415 10595 0.0014624557225034 10596 0.0014623692259192 10597 0.0014622829621658 10598 0.0014621966984123 10599 0.0014621095033363 10600 0.0014620232395828 10601 0.0014619366265833 10602 0.0014618501299992 10603 0.0014617630513385 10604 0.001461676787585 10605 0.0014615905238315 10606 0.0014615042600781 10607 0.001461417414248 10608 0.0014613313833252 10609 0.0014612443046644 10610 0.001461157691665 10611 0.0014610716607422 10612 0.0014609850477427 10613 0.0014608980854973 10614 0.0014608121709898 10615 0.0014607256744057 10616 0.0014606390614063 10617 0.0014605527976528 10618 0.0014604657189921 10619 0.0014603795716539 10620 0.0014602930750698 10621 0.0014602064620703 10622 0.0014601199654862 10623 0.0014600346330553 10624 0.0014599475543946 10625 0.0014598604757339 10626 0.001459774444811 10627 0.0014596877153963 10628 0.0014596018008888 10629 0.0014595156535506 10630 0.0014594291569665 10631 0.0014593430096284 10632 0.0014592555817217 10633 0.0014591701328754 10634 0.001459083519876 10635 0.0014589973725379 10636 0.0014589102938771 10637 0.001458824146539 10638 0.0014587384648621 10639 0.0014586512697861 10640 0.0014585654716939 10641 0.001458479440771 10642 0.0014583929441869 10643 0.0014583063311875 10644 0.0014582196017727 10645 0.0014581336872652 10646 0.0014580480055884 10647 0.0014579609269276 10648 0.0014578748960048 10649 0.0014577890979126 10650 0.0014577026013285 10651 0.0014576162211597 10652 0.0014575300738215 10653 0.0014574438100681 10654 0.001457357313484 10655 0.0014572715153918 10656 0.0014571845531464 10657 0.0014570989878848 10658 0.001457013306208 10659 0.0014569276245311 10660 0.001456840778701 10661 0.0014567550970241 10662 0.001456669298932 10663 0.0014565836172551 10664 0.0014564980519935 10665 0.0014564117882401 10666 0.0014563262229785 10667 0.0014562408905476 10668 0.0014561559073627 10669 0.0014560696436092 10670 0.0014559840783477 10671 0.0014558986295015 10672 0.0014558129478246 10673 0.001455728081055 10674 0.0014556418173015 10675 0.0014555563684553 10676 0.0014554709196091 10677 0.0014553855871782 10678 0.001455299789086 10679 0.0014552143402398 10680 0.0014551288913935 10681 0.0014550434425473 10682 0.0014549583429471 10683 0.0014548727776855 10684 0.0014547866303474 10685 0.0014547016471624 10686 0.0014546161983162 10687 0.0014545301673934 10688 0.0014544451842085 10689 0.0014543598517776 10690 0.0014542744029313 10691 0.0014541889540851 10692 0.0014541033888236 10693 0.0014540180563927 10694 0.0014539331896231 10695 0.0014538477407768 10696 0.0014537614770234 10697 0.0014536766102538 10698 0.0014535908121616 10699 0.0014535053633153 10700 0.0014534202637151 10701 0.0014533344656229 10702 0.0014532498316839 10703 0.0014531638007611 10704 0.0014530785847455 10705 0.0014529937179759 10706 0.0014529081527144 10707 0.0014528223546222 10708 0.0014527372550219 10709 0.0014526521554217 10710 0.0014525670558214 10711 0.0014524816069752 10712 0.001452396158129 10713 0.0014523114077747 10714 0.0014522261917591 10715 0.0014521406264976 10716 0.001452055410482 10717 0.0014519706601277 10718 0.0014518852112815 10719 0.0014518003445119 10720 0.001451714662835 10721 0.0014516294468194 10722 0.0014515445800498 10723 0.0014514594804496 10724 0.0014513740316033 10725 0.0014512886991724 10726 0.0014512039488181 10727 0.0014511186163872 10728 0.0014510344481096 10729 0.0014509499305859 10730 0.0014508648309857 10731 0.0014507799642161 10732 0.0014506953302771 10733 0.0014506102306768 10734 0.0014505253639072 10735 0.0014504414284602 10736 0.0014503564452752 10737 0.0014502722769976 10738 0.0014501881087199 10739 0.0014501037076116 10740 0.0014500196557492 10741 0.0014499351382256 10742 0.0014498510863632 10743 0.0014497658703476 10744 0.001449681352824 10745 0.0014495971845463 10746 0.0014495130162686 10747 0.0014494291972369 10748 0.0014493437483907 10749 0.0014492593472824 10750 0.00144917529542 10751 0.0014490908943117 10752 0.00144900707528 10753 0.0014489218592644 10754 0.0014488380402327 10755 0.0014487537555397 10756 0.0014486694708467 10757 0.0014485851861537 10758 0.0014485004357994 10759 0.0014484170824289 10760 0.00144833244849 10761 0.0014482487458736 10762 0.0014481637626886 10763 0.0014480793615803 10764 0.0014479956589639 10765 0.0014479116071016 10766 0.0014478277880698 10767 0.0014477431541309 10768 0.0014476585201919 10769 0.0014475744683295 10770 0.0014474905328825 10771 0.0014474068302661 10772 0.0014473225455731 10773 0.0014472387265414 10774 0.0014471536269411 10775 0.0014470693422481 10776 0.0014469847083092 10777 0.0014469011221081 10778 0.0014468170702457 10779 0.001446733251214 10780 0.001446648966521 10781 0.0014465651474893 10782 0.0014464805135503 10783 0.0014463963452727 10784 0.0014463127590716 10785 0.0014462277758867 10786 0.0014461441896856 10787 0.0014460601378232 10788 0.0014459766680375 10789 0.0014458921505138 10790 0.0014458074001595 10791 0.0014457239303738 10792 0.0014456398785114 10793 0.001445556525141 10794 0.0014454717747867 10795 0.001445387606509 10796 0.0014453042531386 10797 0.0014452207833529 10798 0.0014451375463977 10799 0.0014450533781201 10800 0.0014449690934271 10801 0.0014448853908107 10802 0.0014448019210249 10803 0.0014447185676545 10804 0.0014446342829615 10805 0.0014445518609136 10806 0.0014444687403738 10807 0.0014443853870034 10808 0.0014443022664636 10809 0.0014442192623392 10810 0.0014441364910454 10811 0.0014440532540902 10812 0.0014439700171351 10813 0.0014438868965954 10814 0.0014438035432249 10815 0.0014437207719311 10816 0.0014436383498833 10817 0.0014435545308515 10818 0.0014434714103118 10819 0.0014433891046792 10820 0.0014433063333854 10821 0.0014432228635997 10822 0.0014431392773986 10823 0.0014430568553507 10824 0.0014429739676416 10825 0.0014428914291784 10826 0.0014428078429773 10827 0.001442724140361 10828 0.0014426419511437 10829 0.0014425587141886 10830 0.0014424767578021 10831 0.0014423934044316 10832 0.0014423100510612 10833 0.0014422269305214 10834 0.0014421448577195 10835 0.0014420617371798 10836 0.0014419785002246 10837 0.0014418957289308 10838 0.0014418128412217 10839 0.0014417300699279 10840 0.0014416472986341 10841 0.0014415648765862 10842 0.0014414817560464 10843 0.0014413989847526 10844 0.0014413165627047 10845 0.001441233442165 10846 0.0014411506708711 10847 0.0014410680159926 10848 0.0014409848954529 10849 0.001440902124159 10850 0.0014408195856959 10851 0.0014407369308174 10852 0.0014406546251848 10853 0.0014405716210604 10854 0.0014404886169359 10855 0.001440406544134 10856 0.0014403236564249 10857 0.0014402413507923 10858 0.0014401583466679 10859 0.00144007592462 10860 0.0014399931533262 10861 0.0014399107312784 10862 0.0014398274943233 10863 0.0014397449558601 10864 0.0014396625338122 10865 0.001439579995349 10866 0.0014394975733012 10867 0.0014394151512533 10868 0.0014393329620361 10869 0.0014392506564036 10870 0.0014391688164324 10871 0.0014390861615539 10872 0.0014390036230907 10873 0.0014389215502888 10874 0.0014388397103176 10875 0.0014387571718544 10876 0.0014386753318831 10877 0.0014385932590812 10878 0.0014385116519406 10879 0.0014384293463081 10880 0.0014383473899215 10881 0.001438264735043 10882 0.0014381832443178 10883 0.0014381024520844 10884 0.0014380197972059 10885 0.0014379373751581 10886 0.0014378557680175 10887 0.0014377734623849 10888 0.001437691738829 10889 0.0014376100152731 10890 0.0014375280588865 10891 0.0014374461025 10892 0.0014373646117747 10893 0.0014372826553881 10894 0.0014372011646628 10895 0.0014371189754456 10896 0.0014370371354744 10897 0.0014369550626725 10898 0.0014368733391166 10899 0.0014367918483913 10900 0.0014367101248354 10901 0.0014366288669407 10902 0.0014365469105542 10903 0.001436464721337 10904 0.001436382997781 10905 0.0014363009249792 10906 0.0014362188521773 10907 0.0014361378271133 10908 0.0014360555214807 10909 0.0014359743800014 10910 0.0014358920743689 10911 0.0014358105836436 10912 0.0014357283944264 10913 0.0014356470201164 10914 0.0014355654129758 10915 0.0014354840386659 10916 0.0014354027807713 10917 0.0014353202423081 10918 0.0014352384023368 10919 0.0014351571444422 10920 0.0014350754208863 10921 0.0014349938137457 10922 0.0014349120901898 10923 0.0014348307158798 10924 0.0014347488759086 10925 0.0014346670359373 10926 0.0014345856616274 10927 0.0014345040544868 10928 0.0014344223309308 10929 0.0014343403745443 10930 0.001434258534573 10931 0.001434177509509 10932 0.0014340957859531 10933 0.0014340146444738 10934 0.0014339322224259 10935 0.0014338510809466 10936 0.0014337692409754 10937 0.001433688448742 10938 0.0014336071908474 10939 0.0014335258165374 10940 0.0014334446750581 10941 0.0014333629515022 10942 0.0014332820428535 10943 0.0014332004357129 10944 0.0014331195270643 10945 0.001433038385585 10946 0.0014329571276903 10947 0.0014328764518723 10948 0.001432795310393 10949 0.0014327140524983 10950 0.0014326339587569 10951 0.0014325533993542 10952 0.0014324727235362 10953 0.0014323925133795 10954 0.0014323119539768 10955 0.0014322318602353 10956 0.0014321509515867 10957 0.0014320698101074 10958 0.0014319897163659 10959 0.0014319090405479 10960 0.0014318287139758 10961 0.0014317483874038 10962 0.0014316679444164 10963 0.0014315873850137 10964 0.0014315067091957 10965 0.001431426149793 10966 0.0014313454739749 10967 0.0014312652638182 10968 0.0014311849372461 10969 0.0014311047270894 10970 0.0014310241676867 10971 0.00143094395753 10972 0.0014308626996353 10973 0.0014307828387246 10974 0.001430701231584 10975 0.0014306212542579 10976 0.0014305409276858 10977 0.0014304607175291 10978 0.0014303805073723 10979 0.0014303002972156 10980 0.0014302193885669 10981 0.0014301395276561 10982 0.0014300586190075 10983 0.0014299786416814 10984 0.0014298983151093 10985 0.0014298183377832 10986 0.0014297378947958 10987 0.0014296571025625 10988 0.001429577358067 10989 0.0014294969150797 10990 0.0014294162392616 10991 0.0014293361455202 10992 0.0014292561681941 10993 0.0014291754923761 10994 0.001429095165804 10995 0.001429014489986 10996 0.0014289346290752 10997 0.0014288544189185 10998 0.0014287739759311 10999 0.0014286937657744 11000 0.0014286132063717 11001 0.0014285332290456 11002 0.0014284532517195 11003 0.0014283730415627 11004 0.0014282927149907 11005 0.0014282125048339 11006 0.0014281327603385 11007 0.0014280516188592 11008 0.001427971990779 11009 0.001427891314961 11010 0.0014278115704656 11011 0.0014277320588008 11012 0.001427651848644 11013 0.0014275718713179 11014 0.0014274929417297 11015 0.0014274118002504 11016 0.001427331706509 11017 0.0014272518455982 11018 0.0014271717518568 11019 0.0014270927058533 11020 0.0014270128449425 11021 0.0014269331004471 11022 0.0014268530067056 11023 0.0014267730293795 11024 0.0014266937505454 11025 0.0014266140060499 11026 0.0014265350764617 11027 0.0014264555647969 11028 0.0014263764023781 11029 0.0014262966578826 11030 0.0014262169133872 11031 0.0014261370524764 11032 0.0014260575408116 11033 0.0014259784948081 11034 0.0014258990995586 11035 0.0014258194714785 11036 0.0014257405418903 11037 0.0014256600989029 11038 0.0014255810528994 11039 0.0014255020068958 11040 0.0014254223788157 11041 0.0014253427507356 11042 0.0014252628898248 11043 0.00142518337816 11044 0.0014251045649871 11045 0.0014250250533223 11046 0.0014249456580728 11047 0.0014248660299927 11048 0.0014247868675739 11049 0.0014247072394937 11050 0.0014246280770749 11051 0.0014245487982407 11052 0.0014244698686525 11053 0.0014243905898184 11054 0.0014243111945689 11055 0.0014242321485654 11056 0.0014241524040699 11057 0.0014240730088204 11058 0.0014239943120629 11059 0.0014239145675674 11060 0.0014238351723179 11061 0.0014237558934838 11062 0.0014236761489883 11063 0.0014235972194001 11064 0.0014235179405659 11065 0.0014234386617318 11066 0.0014233596157283 11067 0.0014232804533094 11068 0.0014232011744753 11069 0.0014231217792258 11070 0.0014230427332222 11071 0.0014229633379728 11072 0.0014228844083846 11073 0.0014228050131351 11074 0.0014227256178856 11075 0.0014226462226361 11076 0.0014225670602173 11077 0.0014224887127057 11078 0.0014224089682102 11079 0.0014223298057914 11080 0.0014222507597879 11081 0.0014221717137843 11082 0.0014220922021195 11083 0.001422013505362 11084 0.0014219344593585 11085 0.0014218558790162 11086 0.0014217783464119 11087 0.0014217003481463 11088 0.0014216215349734 11089 0.0014215426053852 11090 0.0014214646071196 11091 0.0014213861431926 11092 0.0014213072136045 11093 0.0014212292153388 11094 0.0014211501693353 11095 0.0014210718218237 11096 0.0014209938235581 11097 0.0014209160581231 11098 0.0014208373613656 11099 0.0014207591302693 11100 0.0014206813648343 11101 0.001420603133738 11102 0.0014205249026418 11103 0.0014204469043761 11104 0.0014203687896952 11105 0.0014202906750143 11106 0.0014202129095793 11107 0.0014201345620677 11108 0.0014200562145561 11109 0.0014199779834598 11110 0.0014199011493474 11111 0.0014198232674971 11112 0.0014197451528162 11113 0.0014196664560586 11114 0.0014195886906236 11115 0.0014195104595274 11116 0.001419432926923 11117 0.0014193544629961 11118 0.0014192761154845 11119 0.0014191978843883 11120 0.001419120002538 11121 0.0014190429355949 11122 0.0014189647044986 11123 0.0014188869390637 11124 0.0014188087079674 11125 0.0014187307097018 11126 0.0014186523621902 11127 0.0014185742475092 11128 0.0014184967149049 11129 0.0014184191823006 11130 0.0014183411840349 11131 0.0014182637678459 11132 0.001418185303919 11133 0.0014181074220687 11134 0.0014180295402184 11135 0.0014179516583681 11136 0.0014178738929331 11137 0.0014177958946675 11138 0.0014177176635712 11139 0.001417639432475 11140 0.0014175625983626 11141 0.0014174850657582 11142 0.0014174069510773 11143 0.0014173288363963 11144 0.0014172510709614 11145 0.0014171734219417 11146 0.001417095772922 11147 0.0014170184731483 11148 0.0014169411733747 11149 0.0014168634079397 11150 0.0014167858753353 11151 0.0014167078770697 11152 0.001416630577296 11153 0.001416553510353 11154 0.0014164764434099 11155 0.0014163984451443 11156 0.0014163216110319 11157 0.0014162434963509 11158 0.0014161658473313 11159 0.0014160878490657 11160 0.0014160112477839 11161 0.0014159340644255 11162 0.0014158568810672 11163 0.0014157795812935 11164 0.0014157021651044 11165 0.0014156250981614 11166 0.001415547914803 11167 0.0014154714299366 11168 0.0014153945958242 11169 0.0014153169468045 11170 0.0014152395306155 11171 0.0014151623472571 11172 0.0014150858623907 11173 0.0014150087954476 11174 0.0014149320777506 11175 0.0014148551272228 11176 0.0014147782931104 11177 0.001414701808244 11178 0.0014146253233775 11179 0.0014145480236039 11180 0.0014144709566608 11181 0.001414394704625 11182 0.001414317637682 11183 0.0014142408035696 11184 0.0014141637366265 11185 0.0014140871353447 11186 0.0014140098355711 11187 0.0014139332342893 11188 0.0014138568658382 11189 0.0014137795660645 11190 0.0014137035468593 11191 0.0014136267127469 11192 0.0014135497622192 11193 0.0014134728116915 11194 0.0014133962104097 11195 0.0014133200747892 11196 0.0014132432406768 11197 0.0014131665229797 11198 0.001413089921698 11199 0.0014130128547549 11200 0.0014129356713966 11201 0.0014128590701148 11202 0.0014127823524177 11203 0.0014127056347206 11204 0.0014126292662695 11205 0.0014125526649877 11206 0.0014124755980447 11207 0.0014123993460089 11208 0.0014123228611425 11209 0.0014122459106147 11210 0.0014121690765023 11211 0.0014120922423899 11212 0.0014120165724307 11213 0.0014119395054877 11214 0.0014118630206212 11215 0.0014117863029242 11216 0.0014117094688118 11217 0.0014116324018687 11218 0.0014115560334176 11219 0.0014114802470431 11220 0.0014114037621766 11221 0.0014113272773102 11222 0.0014112502103671 11223 0.0014111737255007 11224 0.0014110974734649 11225 0.0014110208721831 11226 0.001410944503732 11227 0.0014108677860349 11228 0.0014107914175838 11229 0.0014107152819633 11230 0.0014106385642663 11231 0.0014105618465692 11232 0.0014104862930253 11233 0.0014104094589129 11234 0.0014103325083852 11235 0.0014102561399341 11236 0.0014101797714829 11237 0.0014101044507697 11238 0.0014100281987339 11239 0.0014099514810368 11240 0.0014098754618317 11241 0.0014097993262112 11242 0.0014097227249295 11243 0.0014096474042162 11244 0.0014095711521804 11245 0.0014094949001446 11246 0.0014094188809395 11247 0.001409342745319 11248 0.0014092668425292 11249 0.0014091902412474 11250 0.0014091143384576 11251 0.0014090387849137 11252 0.0014089627657086 11253 0.00140888732858 11254 0.0014088114257902 11255 0.0014087352901697 11256 0.0014086592709646 11257 0.0014085836010054 11258 0.0014085079310462 11259 0.001408432610333 11260 0.0014083576388657 11261 0.0014082819689065 11262 0.001408205833286 11263 0.0014081301633269 11264 0.0014080544933677 11265 0.0014079785905778 11266 0.0014079033862799 11267 0.0014078270178288 11268 0.0014077519299462 11269 0.001407676609233 11270 0.0014076008228585 11271 0.0014075255021453 11272 0.0014074494829401 11273 0.0014073741622269 11274 0.0014072980266064 11275 0.0014072220074013 11276 0.0014071475015953 11277 0.0014070715988055 11278 0.0014069960452616 11279 0.0014069203753024 11280 0.0014068444725126 11281 0.0014067696174607 11282 0.0014066935982555 11283 0.0014066176954657 11284 0.0014065428404137 11285 0.0014064670540392 11286 0.001406391733326 11287 0.0014063166454434 11288 0.0014062407426536 11289 0.0014061653055251 11290 0.0014060895191506 11291 0.0014060139656067 11292 0.0014059385284781 11293 0.0014058633241802 11294 0.0014057878870517 11295 0.0014057118678465 11296 0.0014056363143027 11297 0.0014055607607588 11298 0.0014054853236303 11299 0.0014054102357477 11300 0.0014053345657885 11301 0.0014052594779059 11302 0.0014051838079467 11303 0.0014051075559109 11304 0.0014050322351977 11305 0.0014049567980692 11306 0.0014048821758479 11307 0.0014048067387193 11308 0.0014047311851755 11309 0.0014046557480469 11310 0.0014045799616724 11311 0.0014045045245439 11312 0.001404429320246 11313 0.0014043538831174 11314 0.0014042784459889 11315 0.001404203241691 11316 0.0014041285030544 11317 0.0014040531823412 11318 0.0014039780944586 11319 0.0014039027737454 11320 0.0014038283843547 11321 0.0014037531800568 11322 0.0014036778593436 11323 0.001403602771461 11324 0.0014035273343325 11325 0.0014034523628652 11326 0.0014033772749826 11327 0.0014033021871001 11328 0.0014032274484634 11329 0.0014031525934115 11330 0.0014030775055289 11331 0.0014030032325536 11332 0.0014029279118404 11333 0.0014028535224497 11334 0.0014027786673978 11335 0.0014027035795152 11336 0.0014026284916326 11337 0.0014025552663952 11338 0.0014024798292667 11339 0.0014024046249688 11340 0.0014023302355781 11341 0.0014022552641109 11342 0.0014021811075509 11343 0.0014021063689142 11344 0.0014020319795236 11345 0.001401956891641 11346 0.0014018816873431 11347 0.0014018079964444 11348 0.0014017334906384 11349 0.0014016586355865 11350 0.0014015842461959 11351 0.0014015092747286 11352 0.0014014347689226 11353 0.0014013606123626 11354 0.001401285873726 11355 0.0014012116007507 11356 0.0014011369785294 11357 0.0014010624727234 11358 0.0014009883161634 11359 0.0014009133446962 11360 0.0014008390717208 11361 0.0014007647987455 11362 0.0014006907586008 11363 0.0014006156707183 11364 0.0014005413977429 11365 0.0014004672411829 11366 0.0014003922697157 11367 0.0014003186952323 11368 0.0014002434909344 11369 0.0014001688687131 11370 0.0014000944793224 11371 0.0014000199735165 11372 0.0013999459333718 11373 0.0013998711947352 11374 0.0013997968053445 11375 0.0013997224159539 11376 0.0013996474444866 11377 0.0013995729386806 11378 0.0013994984328747 11379 0.0013994238106534 11380 0.001399349886924 11381 0.0013992756139487 11382 0.0013992012245581 11383 0.0013991267187521 11384 0.0013990523293614 11385 0.0013989782892168 11386 0.0013989040162414 11387 0.0013988299760967 11388 0.0013987547717988 11389 0.0013986802659929 11390 0.0013986065750942 11391 0.0013985319528729 11392 0.0013984582619742 11393 0.0013983835233375 11394 0.0013983095996082 11395 0.0013982350938022 11396 0.0013981612864882 11397 0.0013980877120048 11398 0.0013980137882754 11399 0.0013979392824695 11400 0.0013978653587401 11401 0.0013977916678414 11402 0.001397718093358 11403 0.001397643936798 11404 0.0013975700130686 11405 0.0013974963221699 11406 0.0013974220491946 11407 0.0013973475433886 11408 0.0013972744345665 11409 0.0013971994630992 11410 0.0013971258886158 11411 0.0013970525469631 11412 0.0013969793217257 11413 0.001396905630827 11414 0.0013968317070976 11415 0.0013967581326142 11416 0.0013966846745461 11417 0.0013966108672321 11418 0.0013965372927487 11419 0.0013964640675113 11420 0.0013963903766125 11421 0.0013963169185445 11422 0.0013962435768917 11423 0.001396169885993 11424 0.0013960965443403 11425 0.0013960230862722 11426 0.0013959492789581 11427 0.0013958757044747 11428 0.0013958022464067 11429 0.0013957289047539 11430 0.0013956550974399 11431 0.0013955819886178 11432 0.001395508646965 11433 0.0013954347232357 11434 0.0013953614979982 11435 0.0013952879235148 11436 0.0013952149311081 11437 0.0013951410073787 11438 0.0013950674328953 11439 0.0013949939748272 11440 0.0013949209824204 11441 0.001394847407937 11442 0.0013947740662843 11443 0.0013946995604783 11444 0.0013946271501482 11445 0.0013945531100035 11446 0.0013944791862741 11447 0.0013944070087746 11448 0.0013943328522146 11449 0.0013942595105618 11450 0.0013941867509857 11451 0.001394112710841 11452 0.0013940400676802 11453 0.0013939661439508 11454 0.0013938928022981 11455 0.00139381934423 11456 0.0013937461189926 11457 0.0013936732430011 11458 0.0013935990864411 11459 0.001393525977619 11460 0.0013934532180429 11461 0.0013933794107288 11462 0.0013933060690761 11463 0.0013932330766693 11464 0.0013931596186012 11465 0.0013930854620412 11466 0.0013930122368038 11467 0.0013929398264736 11468 0.0013928662519902 11469 0.0013927931431681 11470 0.0013927195686847 11471 0.0013926459942013 11472 0.0013925726525486 11473 0.0013925005914643 11474 0.0013924274826422 11475 0.0013923541409895 11476 0.0013922810321674 11477 0.0013922079233453 11478 0.0013921360950917 11479 0.0013920626370236 11480 0.0013919890625402 11481 0.0013919166522101 11482 0.0013918434269726 11483 0.0013917698524892 11484 0.0013916979078203 11485 0.0013916250318289 11486 0.0013915521558374 11487 0.0013914783485234 11488 0.0013914064038545 11489 0.001391333527863 11490 0.0013912606518716 11491 0.0013911876594648 11492 0.001391114667058 11493 0.0013910421403125 11494 0.001390969962813 11495 0.0013908979017287 11496 0.0013908250257373 11497 0.0013907527318224 11498 0.001390679855831 11499 0.0013906079111621 11500 0.0013905350351706 11501 0.0013904625084251 11502 0.001390389399603 11503 0.0013903176877648 11504 0.0013902445789427 11505 0.0013901721686125 11506 0.0013900991762057 11507 0.0013900274643674 11508 0.001389954937622 11509 0.0013898815959692 11510 0.0013898100005463 11511 0.0013897374738008 11512 0.0013896650634706 11513 0.0013895920710638 11514 0.0013895196607336 11515 0.0013894475996494 11516 0.001389374723658 11517 0.0013893023133278 11518 0.0013892300194129 11519 0.0013891576090828 11520 0.0013890848495066 11521 0.001389013021253 11522 0.0013889404945076 11523 0.0013888677349314 11524 0.0013887948589399 11525 0.0013887227978557 11526 0.0013886496890336 11527 0.0013885777443647 11528 0.0013885051012039 11529 0.0013884328072891 11530 0.0013883605133742 11531 0.0013882879866287 11532 0.0013882159255445 11533 0.0013881431659684 11534 0.0013880711048841 11535 0.0013879984617233 11536 0.0013879262842238 11537 0.001387853291817 11538 0.0013877816963941 11539 0.0013877091696486 11540 0.0013876371085644 11541 0.0013875642325729 11542 0.0013874920550734 11543 0.0013874195283279 11544 0.0013873473508283 11545 0.0013872748240829 11546 0.0013872031122446 11547 0.0013871304690838 11548 0.0013870575930923 11549 0.0013869858812541 11550 0.0013869126560166 11551 0.001386841177009 11552 0.0013867688830942 11553 0.0013866971712559 11554 0.001386625575833 11555 0.0013865533983335 11556 0.0013864813372493 11557 0.0013864095089957 11558 0.0013863373314962 11559 0.001386265270412 11560 0.0013861933257431 11561 0.0013861216139048 11562 0.0013860494364053 11563 0.0013859776081517 11564 0.0013859050814062 11565 0.0013858338352293 11566 0.0013857615413144 11567 0.0013856902951375 11568 0.0013856181176379 11569 0.0013855462893844 11570 0.0013854748103768 11571 0.0013854022836313 11572 0.0013853310374543 11573 0.0013852587435395 11574 0.0013851878466085 11575 0.0013851168332621 11576 0.0013850457035005 11577 0.0013849746901542 11578 0.0013849030947313 11579 0.0013848319649696 11580 0.0013847602531314 11581 0.0013846897054464 11582 0.0013846185756847 11583 0.0013845474459231 11584 0.0013844766654074 11585 0.0013844049535692 11586 0.0013843340566382 11587 0.0013842624612153 11588 0.0013841920299456 11589 0.0013841203181073 11590 0.001384049304761 11591 0.0013839775929227 11592 0.0013839066959918 11593 0.0013838355662301 11594 0.0013837644364685 11595 0.0013836933067068 11596 0.0013836219441146 11597 0.0013835512800142 11598 0.0013834799174219 11599 0.0013834087876603 11600 0.001383337774314 11601 0.0013832666445524 11602 0.0013831951655447 11603 0.0013831241521984 11604 0.0013830533716828 11605 0.0013829817762598 11606 0.0013829113449901 11607 0.0013828400988132 11608 0.0013827685033903 11609 0.0013826977228746 11610 0.0013826265931129 11611 0.0013825554633513 11612 0.0013824846828356 11613 0.0013824140187353 11614 0.0013823425397277 11615 0.0013822714099661 11616 0.0013822000473738 11617 0.0013821305474266 11618 0.0013820588355884 11619 0.0013819882879034 11620 0.0013819177402183 11621 0.0013818471925333 11622 0.0013817762956023 11623 0.001381705282256 11624 0.001381634734571 11625 0.0013815640704706 11626 0.0013814935227856 11627 0.0013814225094393 11628 0.0013813521945849 11629 0.0013812808319926 11630 0.001381210051477 11631 0.0013811390381306 11632 0.0013810689561069 11633 0.0013809987576678 11634 0.0013809278607368 11635 0.0013808569638059 11636 0.0013807871146128 11637 0.001380717032589 11638 0.0013806463684887 11639 0.0013805764028803 11640 0.0013805059716105 11641 0.0013804355403408 11642 0.0013803651090711 11643 0.0013802954927087 11644 0.0013802252942696 11645 0.0013801548629999 11646 0.0013800841988996 11647 0.0013800145825371 11648 0.0013799446169287 11649 0.0013798734871671 11650 0.001379803637974 11651 0.0013797325082123 11652 0.0013796627754346 11653 0.0013795928098261 11654 0.0013795227278024 11655 0.0013794521801174 11656 0.0013793816324323 11657 0.0013793112011626 11658 0.0013792421668768 11659 0.0013791726669297 11660 0.00137910223566 11661 0.0013790318043903 11662 0.0013789625372738 11663 0.0013788923388347 11664 0.0013788227224723 11665 0.0013787533389404 11666 0.0013786829076707 11667 0.0013786130584776 11668 0.0013785432092845 11669 0.0013784733600914 11670 0.0013784030452371 11671 0.0013783335452899 11672 0.0013782636960968 11673 0.0013781938469037 11674 0.0013781239977106 11675 0.0013780536828563 11676 0.0013779833680019 11677 0.0013779141008854 11678 0.0013778442516923 11679 0.0013777744024992 11680 0.0013777040876448 11681 0.0013776349369437 11682 0.0013775648549199 11683 0.0013774947728962 11684 0.0013774255057797 11685 0.0013773557730019 11686 0.0013772863894701 11687 0.0013772160746157 11688 0.0013771461090073 11689 0.0013770761433989 11690 0.0013770065270364 11691 0.0013769371435046 11692 0.0013768667122349 11693 0.0013767967466265 11694 0.0013767279451713 11695 0.0013766575139016 11696 0.0013765874318779 11697 0.001376518048346 11698 0.0013764477334917 11699 0.0013763783499599 11700 0.0013763091992587 11701 0.0013762388844043 11702 0.0013761691516265 11703 0.0013760988367721 11704 0.0013760299189016 11705 0.0013759603025392 11706 0.0013758903369308 11707 0.0013758209533989 11708 0.0013757506385446 11709 0.0013756810221821 11710 0.0013756114058197 11711 0.0013755412073806 11712 0.0013754717074335 11713 0.001375402440317 11714 0.0013753323582932 11715 0.0013752625091001 11716 0.001375193009153 11717 0.0013751231599599 11718 0.0013750547077507 11719 0.0013749854406342 11720 0.0013749160571024 11721 0.0013748471392319 11722 0.0013747777557001 11723 0.0013747088378295 11724 0.0013746405020356 11725 0.0013745706528425 11726 0.0013745016185567 11727 0.0013744327006862 11728 0.0013743636664003 11729 0.0013742949813604 11730 0.0013742260634899 11731 0.0013741566799581 11732 0.0013740876456723 11733 0.0013740183785558 11734 0.0013739496935159 11735 0.0013738807756454 11736 0.0013738116249442 11737 0.0013737422414124 11738 0.0013736737892032 11739 0.0013736051041633 11740 0.0013735358370468 11741 0.0013734672684222 11742 0.0013733981177211 11743 0.0013733287341893 11744 0.0013732598163188 11745 0.0013731915969402 11746 0.0013731226790696 11747 0.0013730537611991 11748 0.0013729851925746 11749 0.0013729160418734 11750 0.0013728484045714 11751 0.0013727793702856 11752 0.001372710452415 11753 0.0013726421166211 11754 0.0013725737808272 11755 0.0013725048629567 11756 0.0013724362943321 11757 0.0013723683077842 11758 0.0013722993899137 11759 0.0013722309377044 11760 0.0013721617870033 11761 0.0013720934512094 11762 0.0013720244169235 11763 0.0013719557318836 11764 0.0013718873960897 11765 0.0013718190602958 11766 0.0013717504916713 11767 0.0013716821558774 11768 0.0013716134708375 11769 0.0013715451350436 11770 0.0013714764500037 11771 0.0013714079977944 11772 0.0013713395455852 11773 0.0013712708605453 11774 0.0013712021755055 11775 0.0013711337232962 11776 0.0013710653875023 11777 0.0013709971681237 11778 0.0013709282502532 11779 0.001370859448798 11780 0.0013707909965888 11781 0.0013707228936255 11782 0.0013706543250009 11783 0.0013705855235457 11784 0.0013705175369978 11785 0.0013704492012039 11786 0.00137038086541 11787 0.0013703124132007 11788 0.0013702432624996 11789 0.0013701752759516 11790 0.0013701061252505 11791 0.0013700386043638 11792 0.0013699700357392 11793 0.0013699014671147 11794 0.0013698325492442 11795 0.0013697640970349 11796 0.0013696964597329 11797 0.0013696269597858 11798 0.0013695592060685 11799 0.0013694908702746 11800 0.0013694227673113 11801 0.0013693536166102 11802 0.0013692852808163 11803 0.0013692176435143 11804 0.0013691490748897 11805 0.0013690812047571 11806 0.0013690132182091 11807 0.0013689451152459 11808 0.0013688774779439 11809 0.00136880914215 11810 0.0013687417376786 11811 0.0013686736347154 11812 0.0013686046004295 11813 0.0013685375452042 11814 0.0013684694422409 11815 0.001368401106447 11816 0.0013683328870684 11817 0.0013682647841051 11818 0.0013681969139725 11819 0.0013681289274246 11820 0.0013680610572919 11821 0.001367993070744 11822 0.0013679248513654 11823 0.0013678570976481 11824 0.0013677885290235 11825 0.0013677207753062 11826 0.0013676527887583 11827 0.001367585035041 11828 0.0013675166992471 11829 0.0013674485962838 11830 0.0013673803769052 11831 0.0013673130888492 11832 0.0013672454515472 11833 0.0013671773485839 11834 0.0013671095948666 11835 0.0013670426560566 11836 0.0013669750187546 11837 0.0013669074978679 11838 0.0013668396277353 11839 0.0013667716411874 11840 0.0013667041203007 11841 0.0013666371814907 11842 0.0013665687292814 11843 0.0013665009755641 11844 0.0013664341531694 11845 0.0013663660502061 11846 0.0013662982964888 11847 0.0013662310084328 11848 0.0013661631383002 11849 0.0013660953845829 11850 0.0013660285621881 11851 0.0013659609248862 11852 0.0013658930547535 11853 0.0013658253010362 11854 0.0013657578965649 11855 0.0013656902592629 11856 0.0013656233204529 11857 0.0013655554503202 11858 0.0013654872309417 11859 0.0013654202921316 11860 0.0013653533533216 11861 0.0013652855996042 11862 0.0013652179623023 11863 0.0013651505578309 11864 0.0013650830369443 11865 0.0013650148175657 11866 0.0013649482280016 11867 0.0013648802414536 11868 0.0013648124877363 11869 0.0013647453160957 11870 0.001364678144455 11871 0.0013646099250764 11872 0.0013645426370203 11873 0.0013644753489643 11874 0.0013644073624164 11875 0.0013643398415297 11876 0.001364273019135 11877 0.0013642054982483 11878 0.0013641372788697 11879 0.0013640706893057 11880 0.0013640029355884 11881 0.001363935880363 11882 0.001363867893815 11883 0.0013638004893437 11884 0.0013637332012877 11885 0.0013636662624776 11886 0.0013635981595144 11887 0.0013635312207043 11888 0.0013634632341564 11889 0.0013633959461004 11890 0.0013633292401209 11891 0.001363261253573 11892 0.0013631940819323 11893 0.0013631271431223 11894 0.0013630600878969 11895 0.0013629929162562 11896 0.0013629263266921 11897 0.0013628590386361 11898 0.0013627919834107 11899 0.001362725161016 11900 0.0013626574072987 11901 0.0013625909341499 11902 0.0013625245774165 11903 0.0013624564744532 11904 0.0013623894192278 11905 0.0013623230624944 11906 0.0013622555416077 11907 0.0013621886027977 11908 0.0013621218968183 11909 0.0013620543759316 11910 0.0013619870878756 11911 0.0013619209639728 11912 0.0013618533266708 11913 0.0013617862714455 11914 0.001361719565466 11915 0.0013616527430713 11916 0.0013615852221847 11917 0.0013615190982819 11918 0.0013614520430565 11919 0.0013613842893392 11920 0.0013613178161904 11921 0.0013612515758723 11922 0.0013611848698929 11923 0.0013611176982522 11924 0.0013610511086881 11925 0.0013609847519547 11926 0.0013609182788059 11927 0.0013608511071652 11928 0.0013607841683552 11929 0.001360718277283 11930 0.0013606514548883 11931 0.0013605842832476 11932 0.0013605178100988 11933 0.0013604515697807 11934 0.001360384747386 11935 0.0013603176921606 11936 0.0013602514518425 11937 0.0013601852115244 11938 0.0013601182727143 11939 0.0013600516831502 11940 0.0013599847443402 11941 0.0013599185040221 11942 0.0013598516816273 11943 0.0013597847428173 11944 0.0013597189681605 11945 0.0013596517965198 11946 0.001359584974125 11947 0.0013595183845609 11948 0.0013594522606581 11949 0.0013593853218481 11950 0.0013593188486993 11951 0.0013592520263046 11952 0.0013591856695712 11953 0.0013591193128377 11954 0.0013590526068583 11955 0.0013589863665402 11956 0.0013589198933914 11957 0.0013588534202427 11958 0.0013587868306786 11959 0.0013587202411145 11960 0.0013586538843811 11961 0.0013585870619863 11962 0.0013585207052529 11963 0.0013584546977654 11964 0.001358388341032 11965 0.0013583211693913 11966 0.0013582550454885 11967 0.001358188688755 11968 0.0013581222156063 11969 0.0013580558588728 11970 0.0013579896185547 11971 0.0013579223304987 11972 0.0013578560901806 11973 0.0013577900826931 11974 0.0013577237259597 11975 0.0013576570199803 11976 0.0013575901975855 11977 0.0013575237244368 11978 0.0013574574841186 11979 0.0013573919422925 11980 0.0013573258183897 11981 0.0013572599273175 11982 0.0013571931049228 11983 0.0013571276795119 11984 0.0013570617884398 11985 0.001356995315291 11986 0.0013569293078035 11987 0.0013568630674854 11988 0.0013567975256592 11989 0.0013567311689258 11990 0.0013566648121923 11991 0.0013565992703661 11992 0.0013565329136327 11993 0.0013564672553912 11994 0.0013564008986577 11995 0.0013563350075856 11996 0.0013562687672675 11997 0.00135620275978 11998 0.0013561366358772 11999 0.0013560706283897 12000 0.0013560045044869 12001 0.0013559393119067 12002 0.0013558728387579 12003 0.0013558065984398 12004 0.001355740474537 12005 0.0013556748162955 12006 0.0013556086923927 12007 0.0013555424520746 12008 0.0013554770266637 12009 0.0013554107863456 12010 0.0013553454773501 12011 0.0013552799355239 12012 0.0013552147429436 12013 0.0013551492011175 12014 0.0013550827279687 12015 0.0013550181174651 12016 0.0013549525756389 12017 0.0013548876158893 12018 0.0013548217248172 12019 0.0013547568814829 12020 0.001354691456072 12021 0.0013546261470765 12022 0.0013545610709116 12023 0.0013544956455007 12024 0.0013544305693358 12025 0.0013543650275096 12026 0.0013542993692681 12027 0.0013542341766879 12028 0.0013541688676924 12029 0.0013541032094508 12030 0.0013540383661166 12031 0.0013539724750444 12032 0.0013539070496336 12033 0.0013538413913921 12034 0.0013537765480578 12035 0.0013537115883082 12036 0.0013536453479901 12037 0.0013535801554099 12038 0.0013535146135837 12039 0.0013534496538341 12040 0.0013533845776692 12041 0.0013533184537664 12042 0.0013532541925088 12043 0.0013531887670979 12044 0.0013531232252717 12045 0.0013530584983528 12046 0.0013529933057725 12047 0.001352927647531 12048 0.0013528623385355 12049 0.0013527974952012 12050 0.0013527321862057 12051 0.0013526671100408 12052 0.0013526019174606 12053 0.0013525362592191 12054 0.0013524712994695 12055 0.0013524062233046 12056 0.001352340914309 12057 0.0013522761873901 12058 0.0013522108783945 12059 0.0013521448709071 12060 0.0013520804932341 12061 0.0013520151842386 12062 0.0013519504573196 12063 0.0013518852647394 12064 0.0013518200721592 12065 0.0013517548795789 12066 0.0013516896869987 12067 0.0013516244944185 12068 0.0013515594182536 12069 0.0013514946913347 12070 0.0013514303136617 12071 0.0013513650046661 12072 0.0013513002777472 12073 0.0013512348523363 12074 0.0013511705910787 12075 0.0013511059805751 12076 0.0013510405551642 12077 0.0013509760610759 12078 0.001350911334157 12079 0.0013508468400687 12080 0.0013507811818272 12081 0.0013507169205695 12082 0.0013506526593119 12083 0.0013505874667317 12084 0.0013505222741514 12085 0.0013504576636478 12086 0.0013503930531442 12087 0.0013503284426406 12088 0.0013502635993063 12089 0.0013501985231414 12090 0.0013501339126378 12091 0.0013500691857189 12092 0.0013500042259693 12093 0.001349939731881 12094 0.0013498752377927 12095 0.0013498101616278 12096 0.0013497455511242 12097 0.0013496811734512 12098 0.0013496158644557 12099 0.0013495512539521 12100 0.001349487574771 12101 0.0013494228478521 12102 0.0013493583537638 12103 0.0013492937432602 12104 0.0013492291327566 12105 0.0013491653371602 12106 0.0013491003774107 12107 0.0013490365818143 12108 0.0013489723205566 12109 0.0013489073608071 12110 0.0013488430995494 12111 0.0013487784890458 12112 0.0013487142277882 12113 0.0013486493844539 12114 0.0013485858216882 12115 0.0013485205126926 12116 0.0013484570663422 12117 0.001348392223008 12118 0.0013483276125044 12119 0.0013482637004927 12120 0.0013481993228197 12121 0.0013481352943927 12122 0.0013480710331351 12123 0.0013480061898008 12124 0.0013479420449585 12125 0.0013478774344549 12126 0.0013478137552738 12127 0.0013477491447702 12128 0.0013476854655892 12129 0.0013476208550856 12130 0.0013475560117513 12131 0.0013474923325703 12132 0.0013474279548973 12133 0.0013473636936396 12134 0.0013472995487973 12135 0.0013472351711243 12136 0.001347171026282 12137 0.001347106648609 12138 0.0013470427365974 12139 0.0013469781260937 12140 0.0013469135155901 12141 0.0013468496035784 12142 0.0013467855751514 12143 0.0013467217795551 12144 0.0013466565869749 12145 0.0013465923257172 12146 0.0013465289957821 12147 0.0013464647345245 12148 0.0013464000076056 12149 0.0013463355135173 12150 0.0013462717179209 12151 0.0013462076894939 12152 0.0013461436610669 12153 0.0013460793998092 12154 0.0013460151385516 12155 0.001345950528048 12156 0.0013458866160363 12157 0.0013458218891174 12158 0.001345758093521 12159 0.00134569441434 12160 0.001345630036667 12161 0.00134556600824 12162 0.0013455029111356 12163 0.0013454391155392 12164 0.0013453745050356 12165 0.0013453104766086 12166 0.0013452472630888 12167 0.0013451830018312 12168 0.0013451194390655 12169 0.0013450557598844 12170 0.0013449912657961 12171 0.0013449273537844 12172 0.0013448643730953 12173 0.0013448001118377 12174 0.0013447373639792 12175 0.0013446727534756 12176 0.0013446088414639 12177 0.0013445450458676 12178 0.0013444811338559 12179 0.0013444176875055 12180 0.0013443541247398 12181 0.0013442903291434 12182 0.0013442264171317 12183 0.0013441629707813 12184 0.0013440989423543 12185 0.0013440346810967 12186 0.0013439717004076 12187 0.0013439073227346 12188 0.0013438442256302 12189 0.0013437798479572 12190 0.0013437161687762 12191 0.0013436524895951 12192 0.0013435885775834 12193 0.0013435255968943 12194 0.0013434620341286 12195 0.0013433990534395 12196 0.0013433350250125 12197 0.0013432715786621 12198 0.0013432087143883 12199 0.0013431441038847 12200 0.0013430814724416 12201 0.0013430179096758 12202 0.0013429549289867 12203 0.0013428907841444 12204 0.0013428275706246 12205 0.0013427641242743 12206 0.0013427009107545 12207 0.0013426374644041 12208 0.0013425734359771 12209 0.0013425102224573 12210 0.0013424474745989 12211 0.0013423841446638 12212 0.0013423204654828 12213 0.0013422571355477 12214 0.0013421938056126 12215 0.0013421304756775 12216 0.0013420671457425 12217 0.0013420039322227 12218 0.0013419402530417 12219 0.0013418768066913 12220 0.0013418142916635 12221 0.0013417499139905 12222 0.0013416868168861 12223 0.0013416230212897 12224 0.0013415601570159 12225 0.0013414965942502 12226 0.0013414333807305 12227 0.0013413701672107 12228 0.0013413069536909 12229 0.0013412431580946 12230 0.0013411799445748 12231 0.0013411166146398 12232 0.0013410531682894 12233 0.001340989721939 12234 0.0013409270904958 12235 0.0013408639933914 12236 0.0013408004306257 12237 0.0013407373335212 12238 0.0013406738871709 12239 0.0013406110228971 12240 0.0013405471108854 12241 0.0013404844794422 12242 0.0013404211495072 12243 0.001340358518064 12244 0.0013402946060523 12245 0.0013402315089479 12246 0.0013401684118435 12247 0.0013401048490778 12248 0.001340041635558 12249 0.0013399793533608 12250 0.0013399152085185 12251 0.0013398523442447 12252 0.0013397897128016 12253 0.0013397268485278 12254 0.0013396632857621 12255 0.0013396008871496 12256 0.0013395379064605 12257 0.0013394750421867 12258 0.0013394127599895 12259 0.0013393496628851 12260 0.0013392867986113 12261 0.0013392233522609 12262 0.001339161535725 12263 0.0013390985550359 12264 0.0013390358071774 12265 0.0013389725936577 12266 0.0013389097293839 12267 0.0013388465158641 12268 0.001338784233667 12269 0.0013387211365625 12270 0.0013386586215347 12271 0.0013385955244303 12272 0.0013385326601565 12273 0.001338469912298 12274 0.0013384069316089 12275 0.0013383440673351 12276 0.0013382819015533 12277 0.0013382185716182 12278 0.0013381557073444 12279 0.0013380933087319 12280 0.0013380299787968 12281 0.0013379673473537 12282 0.0013379049487412 12283 0.0013378424337134 12284 0.0013377795694396 12285 0.0013377168215811 12286 0.0013376545393839 12287 0.0013375920243561 12288 0.0013375304406509 12289 0.0013374683912843 12290 0.0013374056434259 12291 0.0013373442925513 12292 0.0013372823596001 12293 0.0013372200774029 12294 0.0013371580280364 12295 0.0013370957458392 12296 0.0013370333472267 12297 0.0013369717635214 12298 0.0013369098305702 12299 0.0013368481304497 12300 0.0013367857318372 12301 0.0013367229839787 12302 0.0013366614002734 12303 0.0013365995837376 12304 0.0013365373015404 12305 0.0013364756014198 12306 0.0013364136684686 12307 0.0013363511534408 12308 0.0013362893369049 12309 0.0013362269382924 12310 0.0013361647725105 12311 0.0013361034216359 12312 0.0013360413722694 12313 0.0013359790900722 12314 0.001335917157121 12315 0.0013358544092625 12316 0.0013357928255573 12317 0.0013357311254367 12318 0.0013356697745621 12319 0.0013356072595343 12320 0.0013355443952605 12321 0.0013354828115553 12322 0.0013354211114347 12323 0.0013353594113141 12324 0.001335297129117 12325 0.0013352355454117 12326 0.0013351727975532 12327 0.0013351109810174 12328 0.0013350495137274 12329 0.0013349871151149 12330 0.0013349258806556 12331 0.0013348633656278 12332 0.001334801199846 12333 0.0013347398489714 12334 0.0013346774503589 12335 0.0013346159830689 12336 0.0013345542829484 12337 0.0013344918843359 12338 0.0013344298349693 12339 0.0013343677856028 12340 0.001334305619821 12341 0.0013342443853617 12342 0.0013341826852411 12343 0.0013341206358746 12344 0.0013340595178306 12345 0.0013339975848794 12346 0.0013339357683435 12347 0.0013338749995455 12348 0.0013338127173483 12349 0.0013337507843971 12350 0.0013336894335225 12351 0.0013336276169866 12352 0.0013335663825274 12353 0.0013335049152374 12354 0.0013334432151169 12355 0.0013333812821656 12356 0.0013333200477064 12357 0.0013332581147552 12358 0.0013331966474652 12359 0.0013331352965906 12360 0.001333073945716 12361 0.0013330116635188 12362 0.0013329501962289 12363 0.0013328889617696 12364 0.0013328273780644 12365 0.0013327656779438 12366 0.0013327042106539 12367 0.001332642044872 12368 0.0013325806939974 12369 0.0013325191102922 12370 0.0013324578758329 12371 0.0013323961757123 12372 0.0013323348248377 12373 0.0013322726590559 12374 0.0013322120066732 12375 0.001332150422968 12376 0.0013320891885087 12377 0.0013320276048034 12378 0.0013319656718522 12379 0.0013319042045623 12380 0.0013318428536877 12381 0.0013317810371518 12382 0.0013317201519385 12383 0.0013316585682333 12384 0.0013315975666046 12385 0.0013315357500687 12386 0.0013314746320248 12387 0.0013314131647348 12388 0.0013313526287675 12389 0.0013312913943082 12390 0.0013312303926796 12391 0.001331168692559 12392 0.001331108273007 12393 0.0013310468057171 12394 0.0013309858040884 12395 0.0013309249188751 12396 0.0013308632187545 12397 0.0013308016350493 12398 0.0013307414483279 12399 0.001330679631792 12400 0.0013306187465787 12401 0.0013305578613654 12402 0.0013304970925674 12403 0.0013304357416928 12404 0.0013303739251569 12405 0.0013303129235283 12406 0.0013302519218996 12407 0.0013301916187629 12408 0.001330129802227 12409 0.0013300685677677 12410 0.0013300075661391 12411 0.0013299463316798 12412 0.0013298853300512 12413 0.0013298245612532 12414 0.0013297634432092 12415 0.0013297017430887 12416 0.0013296415563673 12417 0.001329580321908 12418 0.0013295190874487 12419 0.0013294575037435 12420 0.0013293963856995 12421 0.0013293358497322 12422 0.0013292753137648 12423 0.0013292136136442 12424 0.0013291524956003 12425 0.0013290920760483 12426 0.001329030841589 12427 0.0013289696071297 12428 0.0013289086055011 12429 0.0013288478367031 12430 0.0013287868350744 12431 0.0013287264155224 12432 0.0013286642497405 12433 0.0013286037137732 12434 0.0013285425957292 12435 0.0013284821761772 12436 0.0013284211745486 12437 0.0013283608714119 12438 0.0013282992877066 12439 0.0013282392174006 12440 0.0013281783321872 12441 0.0013281177962199 12442 0.0013280566781759 12443 0.0013279969571158 12444 0.0013279352569953 12445 0.0013278747210279 12446 0.0013278138358146 12447 0.0013277536490932 12448 0.0013276929967105 12449 0.0013276326935738 12450 0.0013275707606226 12451 0.0013275106903166 12452 0.0013274503871799 12453 0.0013273903168738 12454 0.0013273290824145 12455 0.0013272687792778 12456 0.0013272077776492 12457 0.0013271475909278 12458 0.0013270865892991 12459 0.0013270259369165 12460 0.0013269654009491 12461 0.0013269052142277 12462 0.0013268443290144 12463 0.0013267833273858 12464 0.0013267225585878 12465 0.001326662604697 12466 0.0013266017194837 12467 0.0013265416491777 12468 0.0013264807639644 12469 0.0013264206936583 12470 0.0013263596920297 12471 0.0013262998545542 12472 0.0013262387365103 12473 0.0013261780841276 12474 0.0013261176645756 12475 0.0013260572450235 12476 0.0013259972911328 12477 0.0013259361730888 12478 0.0013258759863675 12479 0.0013258152175695 12480 0.0013257552636787 12481 0.0013256946112961 12482 0.0013256340753287 12483 0.001325573772192 12484 0.0013255140511319 12485 0.0013254537479952 12486 0.0013253932120278 12487 0.0013253329088911 12488 0.0013252724893391 12489 0.0013252128846943 12490 0.001325152697973 12491 0.0013250922784209 12492 0.0013250318588689 12493 0.0013249716721475 12494 0.0013249119510874 12495 0.0013248511822894 12496 0.0013247912283987 12497 0.0013247310416773 12498 0.0013246707385406 12499 0.0013246100861579 12500 0.0013245497830212 12501 0.0013244899455458 12502 0.0013244296424091 12503 0.001324369572103 12504 0.0013243096182123 12505 0.0013242496643215 12506 0.0013241895940155 12507 0.0013241292908788 12508 0.001324069336988 12509 0.0013240084517747 12510 0.0013239482650533 12511 0.0013238883111626 12512 0.0013238283572719 12513 0.0013237681705505 12514 0.0013237076345831 12515 0.0013236484955996 12516 0.0013235881924629 12517 0.0013235280057415 12518 0.0013234680518508 12519 0.0013234085636213 12520 0.0013233486097306 12521 0.0013232890050858 12522 0.0013232304481789 12523 0.0013231703778729 12524 0.0013231108896434 12525 0.0013230512849987 12526 0.0013229919131845 12527 0.0013229323085397 12528 0.001322872354649 12529 0.0013228132156655 12530 0.0013227537274361 12531 0.0013226945884526 12532 0.0013226354494691 12533 0.001322576077655 12534 0.0013225169386715 12535 0.0013224576832727 12536 0.0013223985442892 12537 0.0013223392888904 12538 0.0013222798006609 12539 0.0013222204288468 12540 0.0013221616391093 12541 0.0013221022672951 12542 0.0013220433611423 12543 0.0013219839893281 12544 0.001321924617514 12545 0.0013218661770225 12546 0.001321807038039 12547 0.0013217476662248 12548 0.0013216882944107 12549 0.0013216291554272 12550 0.0013215697836131 12551 0.001321510411799 12552 0.0013214518548921 12553 0.0013213923666626 12554 0.0013213338097557 12555 0.0013212744379416 12556 0.0013212154153734 12557 0.0013211561599746 12558 0.0013210970209911 12559 0.001321037998423 12560 0.0013209789758548 12561 0.0013209192547947 12562 0.0013208598829806 12563 0.0013208016753197 12564 0.0013207420706749 12565 0.0013206829316914 12566 0.0013206240255386 12567 0.001320565235801 12568 0.0013205062132329 12569 0.0013204470742494 12570 0.0013203875860199 12571 0.0013203285634518 12572 0.0013202694244683 12573 0.0013202106347308 12574 0.0013201513793319 12575 0.0013200927060097 12576 0.001320032402873 12577 0.0013199737295508 12578 0.001319915172644 12579 0.0013198554515839 12580 0.0013197966618463 12581 0.0013197375228629 12582 0.0013196793152019 12583 0.0013196204090491 12584 0.0013195618521422 12585 0.001319502829574 12586 0.0013194443890825 12587 0.0013193862978369 12588 0.0013193263439462 12589 0.0013192677870393 12590 0.0013192089973018 12591 0.0013191505568102 12592 0.0013190917670727 12593 0.0013190330937505 12594 0.0013189747696742 12595 0.0013189156306908 12596 0.0013188576558605 12597 0.0013187980512157 12598 0.0013187394943088 12599 0.0013186815194786 12600 0.0013186222640797 12601 0.0013185638235882 12602 0.0013185057323426 12603 0.0013184461276978 12604 0.0013183876872063 12605 0.0013183290138841 12606 0.0013182699913159 12607 0.0013182116672397 12608 0.0013181536924094 12609 0.001318093854934 12610 0.0013180355308577 12611 0.0013179770903662 12612 0.0013179187662899 12613 0.0013178599765524 12614 0.0013178013032302 12615 0.0013177427463233 12616 0.0013176838401705 12617 0.0013176251668483 12618 0.0013175667263567 12619 0.0013175082858652 12620 0.0013174497289583 12621 0.0013173911720514 12622 0.0013173322658986 12623 0.0013172740582377 12624 0.0013172153849155 12625 0.0013171575265005 12626 0.0013170978054404 12627 0.0013170393649489 12628 0.0013169806916267 12629 0.0013169228332117 12630 0.0013168638106436 12631 0.0013168054865673 12632 0.0013167472789064 12633 0.0013166891876608 12634 0.0013166309799999 12635 0.001316572423093 12636 0.0013165136333555 12637 0.0013164558913559 12638 0.0013163979165256 12639 0.001316340174526 12640 0.0013162816176191 12641 0.0013162232935429 12642 0.0013161648530513 12643 0.001316106878221 12644 0.0013160487869754 12645 0.0013159909285605 12646 0.0013159324880689 12647 0.0013158747460693 12648 0.0013158160727471 12649 0.0013157583307475 12650 0.0013157004723325 12651 0.0013156424975023 12652 0.0013155838241801 12653 0.0013155257329345 12654 0.0013154672924429 12655 0.0013154096668586 12656 0.0013153518084437 12657 0.0013152936007828 12658 0.0013152350438759 12659 0.0013151773018762 12660 0.0013151190942153 12661 0.0013150612358004 12662 0.0013150030281395 12663 0.0013149444712326 12664 0.0013148868456483 12665 0.001314829220064 12666 0.0013147706631571 12667 0.0013147131539881 12668 0.0013146543642506 12669 0.0013145969714969 12670 0.0013145380653441 12671 0.0013144799740985 12672 0.0013144224649295 12673 0.0013143646065146 12674 0.001314306515269 12675 0.0013142477255315 12676 0.0013141898671165 12677 0.0013141325907782 12678 0.0013140741502866 12679 0.0013140162918717 12680 0.0013139578513801 12681 0.0013139006914571 12682 0.0013138419017196 12683 0.001313783810474 12684 0.0013137254863977 12685 0.0013136679772288 12686 0.0013136103516445 12687 0.0013135522603989 12688 0.0013134941691533 12689 0.0013134368928149 12690 0.0013133792672306 12691 0.001313321874477 12692 0.0013132636668161 12693 0.0013132062740624 12694 0.0013131482992321 12695 0.0013130905572325 12696 0.0013130328152329 12697 0.0013129755388945 12698 0.0013129172148183 12699 0.0013128602877259 12700 0.0013128021964803 12701 0.001312744570896 12702 0.0013126865960658 12703 0.0013126290868968 12704 0.0013125711120665 12705 0.0013125132536516 12706 0.0013124564429745 12707 0.0013123990502208 12708 0.0013123409589753 12709 0.001312283333391 12710 0.0013122257078066 12711 0.0013121676165611 12712 0.0013121101073921 12713 0.0013120527146384 12714 0.0013119950890541 12715 0.0013119374634698 12716 0.0013118800707161 12717 0.0013118222123012 12718 0.0013117643538862 12719 0.0013117062626407 12720 0.001311648869887 12721 0.0013115918263793 12722 0.001311534200795 12723 0.0013114761095494 12724 0.0013114188332111 12725 0.0013113608583808 12726 0.0013113028835505 12727 0.0013112460728735 12728 0.0013111880980432 12729 0.0013111308217049 12730 0.001311072614044 12731 0.0013110148720443 12732 0.001310957595706 12733 0.0013108998537064 12734 0.0013108426937833 12735 0.0013107841368765 12736 0.0013107270933688 12737 0.0013106699334458 12738 0.0013106130063534 12739 0.0013105552643538 12740 0.0013104975223541 12741 0.0013104409445077 12742 0.0013103830860928 12743 0.0013103262754157 12744 0.0013102681841701 12745 0.0013102118391544 12746 0.0013101543299854 12747 0.0013100972864777 12748 0.0013100401265547 12749 0.001309982733801 12750 0.001309925224632 12751 0.0013098679482937 12752 0.0013098106719553 12753 0.0013097531627864 12754 0.0013096963521093 12755 0.0013096393086016 12756 0.0013095817994326 12757 0.0013095252215862 12758 0.0013094677124172 12759 0.0013094102032483 12760 0.0013093530433252 12761 0.0013092962326482 12762 0.0013092389563099 12763 0.0013091810978949 12764 0.0013091248692945 12765 0.0013090670108795 12766 0.0013090095017105 12767 0.0013089523417875 12768 0.0013088951818645 12769 0.0013088382547721 12770 0.0013087810948491 12771 0.0013087240513414 12772 0.0013086666585878 12773 0.0013086089165881 12774 0.0013085521059111 12775 0.0013084947131574 12776 0.0013084376696497 12777 0.0013083802768961 12778 0.0013083233498037 12779 0.0013082658406347 12780 0.0013082078658044 12781 0.0013081510551274 12782 0.001308093778789 12783 0.0013080374337733 12784 0.0013079799246043 12785 0.001307922648266 12786 0.001307865139097 12787 0.0013078090269119 12788 0.0013077522162348 12789 0.0013076954055578 12790 0.0013076378963888 12791 0.0013075814349577 12792 0.00130752439145 12793 0.0013074685120955 12794 0.0013074111193419 12795 0.0013073547743261 12796 0.0013072972651571 12797 0.0013072409201413 12798 0.0013071837602183 12799 0.0013071267167106 12800 0.0013070704881102 12801 0.0013070135610178 12802 0.0013069573324174 12803 0.001306900405325 12804 0.0013068434782326 12805 0.0013067866675556 12806 0.0013067305553705 12807 0.0013066730462015 12808 0.0013066157698631 12809 0.001306559657678 12810 0.0013065031962469 12811 0.0013064461527392 12812 0.0013063889928162 12813 0.0013063321821392 12814 0.0013062757207081 12815 0.0013062183279544 12816 0.001306161750108 12817 0.0013061044737697 12818 0.0013060483615845 12819 0.0013059910852462 12820 0.0013059343909845 12821 0.0013058782787994 12822 0.0013058218173683 12823 0.0013057653559372 12824 0.0013057086616755 12825 0.0013056518509984 12826 0.0013055950403214 12827 0.0013055384624749 12828 0.0013054823502898 12829 0.0013054257724434 12830 0.0013053693110123 12831 0.0013053126167506 12832 0.0013052558060735 12833 0.0013051994610578 12834 0.0013051428832114 12835 0.001305086305365 12836 0.0013050303095952 12837 0.0013049733825028 12838 0.0013049171539024 12839 0.0013048608088866 12840 0.0013048050459474 12841 0.0013047483516857 12842 0.0013046921230853 12843 0.0013046357780695 12844 0.0013045804807916 12845 0.0013045237865299 12846 0.0013044674415141 12847 0.001304410980083 12848 0.0013043547514826 12849 0.0013042984064668 12850 0.0013042418286204 12851 0.00130418560002 12852 0.0013041298370808 12853 0.0013040739577264 12854 0.0013040177291259 12855 0.0013039613841102 12856 0.0013039051555097 12857 0.0013038488104939 12858 0.0013037924654782 12859 0.001303736702539 12860 0.0013036807067692 12861 0.0013036243617535 12862 0.0013035674346611 12863 0.0013035116717219 12864 0.0013034557923675 12865 0.0013033993309364 12866 0.0013033439172432 12867 0.0013032879214734 12868 0.0013032311107963 12869 0.0013031747657806 12870 0.0013031191192567 12871 0.001303062774241 12872 0.0013030060799792 12873 0.0013029500842094 12874 0.001302893855609 12875 0.0013028378598392 12876 0.0013027812819928 12877 0.001302725635469 12878 0.0013026691740379 12879 0.0013026136439294 12880 0.0013025571824983 12881 0.0013025009538978 12882 0.0013024450745434 12883 0.0013023887295276 12884 0.0013023323845118 12885 0.0013022769708186 12886 0.0013022202765569 12887 0.0013021640479565 12888 0.0013021080521867 12889 0.0013020525220782 12890 0.0013019958278164 12891 0.0013019402977079 12892 0.0013018844183534 12893 0.0013018290046602 12894 0.0013017727760598 12895 0.00130171678029 12896 0.0013016609009355 12897 0.001301605720073 12898 0.0013015493750572 12899 0.0013014933792874 12900 0.0013014377327636 12901 0.0013013826683164 12902 0.0013013262068853 12903 0.0013012704439461 12904 0.001301214681007 12905 0.0013011584524065 12906 0.0013011035043746 12907 0.0013010476250201 12908 0.0013009912800044 12909 0.0013009357498959 12910 0.0013008802197874 12911 0.0013008243404329 12912 0.0013007684610784 12913 0.0013007131638005 12914 0.0013006569352001 12915 0.0013006016379222 12916 0.0013005455257371 12917 0.0013004898792133 12918 0.0013004337670282 12919 0.0013003778876737 12920 0.0013003220083192 12921 0.0013002660125494 12922 0.0013002103660256 12923 0.0013001548359171 12924 0.0013000989565626 12925 0.0013000431936234 12926 0.0012999867321923 12927 0.0012999312020838 12928 0.0012998760212213 12929 0.0012998204911128 12930 0.001299763796851 12931 0.0012997084995732 12932 0.0012996529694647 12933 0.0012995969736949 12934 0.0012995412107557 12935 0.0012994857970625 12936 0.0012994301505387 12937 0.0012993741547689 12938 0.0012993179261684 12939 0.001299262046814 12940 0.0012992073316127 12941 0.0012991512194276 12942 0.0012990949908271 12943 0.0012990393443033 12944 0.0012989845126867 12945 0.0012989286333323 12946 0.0012988734524697 12947 0.0012988179223612 12948 0.0012987627414986 12949 0.0012987069785595 12950 0.0012986515648663 12951 0.0012985965004191 12952 0.0012985409703106 12953 0.0012984856730327 12954 0.0012984295608476 12955 0.0012983742635697 12956 0.0012983188498765 12957 0.0012982640182599 12958 0.0012982080224901 12959 0.0012981528416276 12960 0.0012980973115191 12961 0.0012980422470719 12962 0.0012979868333787 12963 0.0012979310704395 12964 0.0012978756567463 12965 0.0012978203594685 12966 0.0012977649457753 12967 0.0012977094156668 12968 0.0012976540019736 12969 0.0012975994031876 12970 0.0012975436402485 12971 0.0012974882265553 12972 0.0012974330456927 12973 0.0012973779812455 12974 0.0012973223347217 12975 0.0012972669210285 12976 0.001297211041674 12977 0.0012971563264728 12978 0.0012971011456102 12979 0.0012970456155017 12980 0.0012969897361472 12981 0.0012969349045306 12982 0.0012968792580068 12983 0.0012968234950677 12984 0.0012967680813745 12985 0.0012967130169272 12986 0.0012966585345566 12987 0.0012966030044481 12988 0.0012965481728315 12989 0.001296492991969 12990 0.0012964375782758 12991 0.0012963820481673 12992 0.001296328031458 12993 0.0012962731998414 12994 0.0012962174369022 12995 0.0012961621396244 12996 0.0012961075408384 12997 0.0012960536405444 12998 0.0012959983432665 12999 0.0012959433952346 13000 0.001295888912864 13001 0.0012958343140781 13002 0.0012957790168002 13003 0.0012957248836756 13004 0.0012956701684743 13005 0.0012956154532731 13006 0.0012955598067492 13007 0.0012955055572093 13008 0.0012954509584233 13009 0.0012953967088833 13010 0.0012953416444361 13011 0.0012952869292349 13012 0.0012952322140336 13013 0.0012951772660017 13014 0.0012951225508004 13015 0.0012950680684298 13016 0.0012950133532286 13017 0.0012949584051967 13018 0.0012949036899954 13019 0.0012948489747941 13020 0.0012947944924235 13021 0.0012947397772223 13022 0.0012946852948517 13023 0.0012946305796504 13024 0.0012945757480338 13025 0.0012945213820785 13026 0.0012944663176313 13027 0.0012944117188454 13028 0.0012943570036441 13029 0.0012943029869348 13030 0.0012942479224876 13031 0.0012941933237016 13032 0.0012941383756697 13033 0.0012940841261297 13034 0.0012940290616825 13035 0.0012939744628966 13036 0.00129391963128 13037 0.0012938656145707 13038 0.0012938107829541 13039 0.0012937568826601 13040 0.0012937018182129 13041 0.0012936471030116 13042 0.0012935930863023 13043 0.0012935384875163 13044 0.0012934836558998 13045 0.0012934292899445 13046 0.0012933750404045 13047 0.0012933206744492 13048 0.0012932658428326 13049 0.001293211360462 13050 0.001293157110922 13051 0.0012931034434587 13052 0.0012930484954268 13053 0.0012929943623021 13054 0.0012929401127622 13055 0.0012928862124681 13056 0.0012928316136822 13057 0.0012927774805576 13058 0.0012927236966789 13059 0.0012926689814776 13060 0.001292614848353 13061 0.001292560948059 13062 0.0012925064656883 13063 0.0012924522161484 13064 0.0012923979666084 13065 0.0012923437170684 13066 0.0012922897003591 13067 0.0012922356836498 13068 0.0012921814341098 13069 0.0012921270681545 13070 0.0012920729350299 13071 0.0012920188019052 13072 0.0012919651344419 13073 0.0012919100699946 13074 0.0012918564025313 13075 0.001291802036576 13076 0.0012917486019433 13077 0.0012916941195726 13078 0.001291639986448 13079 0.001291585736908 13080 0.0012915316037834 13081 0.0012914777034894 13082 0.0012914239196107 13083 0.0012913696700707 13084 0.0012913155369461 13085 0.0012912612874061 13086 0.0012912072706968 13087 0.0012911531375721 13088 0.0012910992372781 13089 0.0012910452205688 13090 0.0012909910874441 13091 0.0012909366050735 13092 0.0012908822391182 13093 0.0012908279895782 13094 0.0012907750206068 13095 0.0012907204218209 13096 0.0012906664051116 13097 0.0012906123884022 13098 0.0012905579060316 13099 0.0012905044713989 13100 0.0012904503382742 13101 0.0012903965543956 13102 0.0012903420720249 13103 0.0012902882881463 13104 0.001290233922191 13105 0.001290180021897 13106 0.001290126121603 13107 0.0012900729198009 13108 0.0012900189030915 13109 0.0012899654684588 13110 0.0012899118009955 13111 0.0012898587156087 13112 0.00128980493173 13113 0.0012897516135126 13114 0.0012896982952952 13115 0.0012896447442472 13116 0.0012895915424451 13117 0.0012895378749818 13118 0.0012894843239337 13119 0.0012894311221316 13120 0.0012893771054223 13121 0.0012893236707896 13122 0.0012892702361569 13123 0.0012892168015242 13124 0.0012891635997221 13125 0.001289110048674 13126 0.0012890563812107 13127 0.0012890031794086 13128 0.0012889497447759 13129 0.0012888964265585 13130 0.0012888418277726 13131 0.0012887890916318 13132 0.0012887355405837 13133 0.001288682105951 13134 0.0012886291369796 13135 0.0012885758187622 13136 0.0012885222677141 13137 0.0012884682510048 13138 0.0012884149327874 13139 0.0012883618474007 13140 0.0012883084127679 13141 0.0012882549781352 13142 0.0012882021255791 13143 0.0012881482252851 13144 0.0012880951398984 13145 0.0012880410067737 13146 0.0012879885034636 13147 0.0012879349524155 13148 0.0012878812849522 13149 0.0012878276174888 13150 0.0012877746485174 13151 0.0012877213303 13152 0.00128766708076 13153 0.0012876141117886 13154 0.0012875611428171 13155 0.0012875075917691 13156 0.0012874541571364 13157 0.0012874007225037 13158 0.0012873477535322 13159 0.0012872947845608 13160 0.0012872413499281 13161 0.0012871888466179 13162 0.0012871354119852 13163 0.0012870820937678 13164 0.0012870292412117 13165 0.001286975806579 13166 0.0012869231868535 13167 0.0012868696358055 13168 0.0012868164340034 13169 0.0012867641635239 13170 0.0012867108453065 13171 0.0012866577599198 13172 0.001286604674533 13173 0.0012865510070696 13174 0.0012864987365901 13175 0.0012864454183728 13176 0.001286392332986 13177 0.0012863391311839 13178 0.0012862861622125 13179 0.0012862329604104 13180 0.0012861797586083 13181 0.0012861265568063 13182 0.0012860739370808 13183 0.0012860206188634 13184 0.001285967649892 13185 0.0012859157286584 13186 0.0012858620611951 13187 0.0012858089758083 13188 0.0012857560068369 13189 0.0012857029214501 13190 0.0012856496032327 13191 0.001285596867092 13192 0.0012855436652899 13193 0.0012854912783951 13194 0.0012854378437623 13195 0.0012853846419603 13196 0.0012853315565735 13197 0.001285278936848 13198 0.0012852263171226 13199 0.0012851732317358 13200 0.0012851196806878 13201 0.001285066595301 13202 0.0012850136263296 13203 0.0012849606573582 13204 0.0012849073391408 13205 0.001284854952246 13206 0.0012848022161052 13207 0.0012847485486418 13208 0.0012846959289163 13209 0.0012846430763602 13210 0.0012845899909735 13211 0.0012845364399254 13212 0.0012844846351072 13213 0.0012844309676439 13214 0.0012843783479184 13215 0.001284325029701 13216 0.0012842726428062 13217 0.0012842194410041 13218 0.0012841663556173 13219 0.0012841133866459 13220 0.0012840615818277 13221 0.0012840082636103 13222 0.0012839558767155 13223 0.0012839031405747 13224 0.0012838505208492 13225 0.0012837970862165 13226 0.001283745164983 13227 0.0012836924288422 13228 0.001283640274778 13229 0.0012835869565606 13230 0.0012835345696658 13231 0.001283481833525 13232 0.0012834300287068 13233 0.0012833767104894 13234 0.0012833238579333 13235 0.0012832719366997 13236 0.0012832193169743 13237 0.0012831665808335 13238 0.0012831137282774 13239 0.0012830613413826 13240 0.0012830090709031 13241 0.001282955869101 13242 0.0012829033657908 13243 0.0012828514445573 13244 0.0012827987084165 13245 0.0012827458558604 13246 0.0012826931197196 13247 0.0012826403835788 13248 0.0012825881130993 13249 0.0012825358426198 13250 0.001282483106479 13251 0.0012824307195842 13252 0.0012823778670281 13253 0.0012823254801333 13254 0.0012822726275772 13255 0.0012822205899283 13256 0.0012821680866182 13257 0.0012821145355701 13258 0.0012820627307519 13259 0.0012820101110265 13260 0.001281957840547 13261 0.0012819056864828 13262 0.0012818528339267 13263 0.0012818002142012 13264 0.0012817478273064 13265 0.0012816953239962 13266 0.001281643519178 13267 0.0012815910158679 13268 0.0012815387453884 13269 0.0012814867077395 13270 0.00128143443726 13271 0.0012813818175346 13272 0.001281329896301 13273 0.0012812779750675 13274 0.0012812252389267 13275 0.0012811733176932 13276 0.0012811209307984 13277 0.0012810686603189 13278 0.0012810165062547 13279 0.0012809643521905 13280 0.001280912430957 13281 0.0012808603933081 13282 0.0012808077735826 13283 0.0012807558523491 13284 0.0012807035818696 13285 0.0012806513113901 13286 0.0012805993901566 13287 0.0012805470032617 13288 0.0012804951984435 13289 0.0012804423458874 13290 0.0012803906574845 13291 0.0012803385034204 13292 0.0012802865821868 13293 0.0012802344281226 13294 0.0012801820412278 13295 0.0012801298871636 13296 0.0012800778495148 13297 0.0012800260446966 13298 0.0012799735413864 13299 0.0012799212709069 13300 0.0012798696989194 13301 0.0012798169627786 13302 0.0012797652743757 13303 0.0012797132367268 13304 0.001279660849832 13305 0.0012796082301065 13306 0.0012795565417036 13307 0.0012795042712241 13308 0.00127945211716 13309 0.0012794004287571 13310 0.0012793478090316 13311 0.0012792954221368 13312 0.0012792439665645 13313 0.001279191696085 13314 0.0012791390763596 13315 0.0012790876207873 13316 0.0012790351174772 13317 0.0012789830798283 13318 0.0012789312750101 13319 0.0012788793537766 13320 0.001278827432543 13321 0.0012787751620635 13322 0.0012787224259228 13323 0.0012786707375199 13324 0.0012786185834557 13325 0.0012785664293915 13326 0.0012785147409886 13327 0.0012784623540938 13328 0.0012784100836143 13329 0.0012783582787961 13330 0.0012783065903932 13331 0.0012782539706677 13332 0.0012782021658495 13333 0.00127814989537 13334 0.0012780979741365 13335 0.0012780465185642 13336 0.0012779945973307 13337 0.0012779426760972 13338 0.0012778909876943 13339 0.001277839881368 13340 0.0012777883093804 13341 0.0012777365045622 13342 0.0012776837684214 13343 0.0012776325456798 13344 0.0012775807408616 13345 0.0012775297509506 13346 0.0012774775968865 13347 0.0012774257920682 13348 0.0012773751514032 13349 0.0012773228809237 13350 0.0012772715417668 13351 0.0012772199697793 13352 0.0012771679321304 13353 0.0012771168258041 13354 0.0012770647881553 13355 0.0012770130997524 13356 0.0012769612949342 13357 0.0012769098393619 13358 0.0012768579181284 13359 0.0012768062297255 13360 0.0012767546577379 13361 0.001276702969335 13362 0.0012766518630087 13363 0.0012766001746058 13364 0.001276548486203 13365 0.0012764965649694 13366 0.0012764451093972 13367 0.0012763930717483 13368 0.001276341965422 13369 0.0012762901606038 13370 0.0012762387050316 13371 0.0012761869002134 13372 0.0012761354446411 13373 0.0012760837562382 13374 0.0012760325334966 13375 0.0012759806122631 13376 0.0012759289238602 13377 0.0012758774682879 13378 0.0012758263619617 13379 0.0012757760705426 13380 0.001275724847801 13381 0.0012756736250594 13382 0.0012756222859025 13383 0.0012755715288222 13384 0.0012755201896653 13385 0.001275469083339 13386 0.0012754182098433 13387 0.0012753673363477 13388 0.0012753161136061 13389 0.0012752651236951 13390 0.0012752141337842 13391 0.0012751633767039 13392 0.0012751123867929 13393 0.0012750608148053 13394 0.0012750099413097 13395 0.0012749589513987 13396 0.0012749079614878 13397 0.0012748570879921 13398 0.0012748056324199 13399 0.0012747554574162 13400 0.0012747042346746 13401 0.0012746527791023 13402 0.0012746022548527 13403 0.001274551730603 13404 0.0012745002750307 13405 0.0012744490522891 13406 0.0012743980623782 13407 0.0012743471888825 13408 0.0012742963153869 13409 0.0012742447433993 13410 0.0012741944519803 13411 0.0012741438113153 13412 0.0012740921229124 13413 0.0012740414822474 13414 0.0012739904923365 13415 0.0012739393860102 13416 0.0012738883960992 13417 0.0012738372897729 13418 0.0012737860670313 13419 0.0012737357756123 13420 0.0012736844364554 13421 0.0012736335629597 13422 0.0012735823402181 13423 0.0012735316995531 13424 0.0012734804768115 13425 0.0012734298361465 13426 0.0012733786134049 13427 0.0012733268085867 13428 0.0012732765171677 13429 0.0012732254108414 13430 0.0012731743045151 13431 0.0012731237802655 13432 0.0012730724411085 13433 0.0012730211019516 13434 0.0012729708105326 13435 0.0012729202862829 13436 0.001272868947126 13437 0.001272817607969 13438 0.0012727663852274 13439 0.0012727165594697 13440 0.0012726653367281 13441 0.0012726141139865 13442 0.0012725628912449 13443 0.0012725124834105 13444 0.0012724611442536 13445 0.0012724101543427 13446 0.0012723600957543 13447 0.001272308989428 13448 0.001272257999517 13449 0.0012722068931907 13450 0.0012721561361104 13451 0.0012721051461995 13452 0.0012720543891191 13453 0.0012720043305308 13454 0.0012719536898658 13455 0.0012719035148621 13456 0.0012718522921205 13457 0.0012718020007014 13458 0.0012717508943751 13459 0.0012717009522021 13460 0.0012716499622911 13461 0.0012715994380414 13462 0.0012715487973765 13463 0.0012714982731268 13464 0.0012714475160465 13465 0.0012713967589661 13466 0.0012713465839624 13467 0.0012712960597128 13468 0.0012712457682937 13469 0.0012711946619675 13470 0.0012711437884718 13471 0.0012710939627141 13472 0.0012710429728031 13473 0.0012709924485534 13474 0.0012709426227957 13475 0.0012708912836388 13476 0.0012708405265585 13477 0.0012707905843854 13478 0.0012707398273051 13479 0.0012706894194707 13480 0.0012706390116364 13481 0.0012705877888948 13482 0.0012705372646451 13483 0.0012704870896414 13484 0.0012704365653917 13485 0.0012703859247267 13486 0.0012703356333077 13487 0.0012702848762274 13488 0.0012702341191471 13489 0.0012701842933893 13490 0.001270133536309 13491 0.0012700831284747 13492 0.0012700320221484 13493 0.0012699821963906 13494 0.0012699319049716 13495 0.0012698819627985 13496 0.0012698319042102 13497 0.0012697817292064 13498 0.0012697316706181 13499 0.0012696805642918 13500 0.001269630738534 13501 0.0012695806799456 13502 0.0012695309706032 13503 0.0012694805627689 13504 0.0012694301549345 13505 0.0012693795142695 13506 0.0012693299213424 13507 0.0012692795135081 13508 0.0012692293385044 13509 0.0012691791635007 13510 0.0012691298034042 13511 0.0012690789299086 13512 0.0012690293369815 13513 0.0012689790455624 13514 0.0012689287541434 13515 0.0012688788119704 13516 0.0012688278220594 13517 0.0012687779963017 13518 0.0012687280541286 13519 0.0012686776462942 13520 0.0012686271220446 13521 0.0012685778783634 13522 0.0012685277033597 13523 0.0012684763642028 13524 0.001268426887691 13525 0.0012683770619333 13526 0.0012683270033449 13527 0.0012682770611718 13528 0.0012682268861681 13529 0.0012681761290878 13530 0.0012681265361607 13531 0.0012680765939876 13532 0.0012680268846452 13533 0.0012679775245488 13534 0.0012679271167144 13535 0.0012678776402026 13536 0.0012678276980296 13537 0.0012677777558565 13538 0.0012677281629294 13539 0.0012676783371717 13540 0.0012676286278293 13541 0.0012675784528255 13542 0.0012675285106525 13543 0.0012674786848947 13544 0.001267429208383 13545 0.0012673791497946 13546 0.0012673293240368 13547 0.0012672797311097 13548 0.0012672297889367 13549 0.0012671794975176 13550 0.0012671303702518 13551 0.0012670806609094 13552 0.0012670304859057 13553 0.001266980310902 13554 0.0012669304851443 13555 0.0012668808922172 13556 0.0012668310664594 13557 0.0012667812407017 13558 0.0012667324626818 13559 0.0012666818220168 13560 0.0012666317634284 13561 0.001266582403332 13562 0.0012665328104049 13563 0.0012664828682318 13564 0.0012664330424741 13565 0.0012663833331317 13566 0.0012663335073739 13567 0.0012662835652009 13568 0.0012662343215197 13569 0.001266184495762 13570 0.0012661345535889 13571 0.0012660846114159 13572 0.0012660350184888 13573 0.001265985891223 13574 0.0012659366475418 13575 0.0012658869381994 13576 0.0012658376945183 13577 0.0012657877523452 13578 0.0012657387414947 13579 0.0012656886829063 13580 0.0012656400213018 13581 0.0012655904283747 13582 0.0012655411846936 13583 0.0012654913589358 13584 0.0012654419988394 13585 0.0012653921730816 13586 0.0012653433950618 13587 0.00126529391855 13588 0.001265243976377 13589 0.0012651940342039 13590 0.0012651449069381 13591 0.0012650955468416 13592 0.0012650456046686 13593 0.0012649958953261 13594 0.001264947000891 13595 0.0012648976407945 13596 0.0012648479314521 13597 0.0012647981056944 13598 0.0012647494440898 13599 0.0012646995019168 13600 0.001264650374651 13601 0.0012646000832319 13602 0.0012645513052121 13603 0.0012645019451156 13604 0.0012644528178498 13605 0.00126440403983 13606 0.0012643539812416 13607 0.0012643041554838 13608 0.001264255028218 13609 0.0012642059009522 13610 0.0012641560751945 13611 0.0012641069479287 13612 0.0012640572385862 13613 0.001264008693397 13614 0.0012639593333006 13615 0.0012639100896195 13616 0.001263861078769 13617 0.0012638120679185 13618 0.001263763057068 13619 0.0012637136969715 13620 0.0012636643368751 13621 0.0012636156752706 13622 0.0012635667808354 13623 0.0012635174207389 13624 0.0012634687591344 13625 0.001263419399038 13626 0.0012633701553568 13627 0.001263321377337 13628 0.0012632723664865 13629 0.001263223355636 13630 0.0012631744612008 13631 0.001263125333935 13632 0.0012630762066692 13633 0.0012630269629881 13634 0.0012629781849682 13635 0.0012629291741177 13636 0.0012628802796826 13637 0.0012628304539248 13638 0.0012627819087356 13639 0.0012627328978851 13640 0.001262683654204 13641 0.0012626345269382 13642 0.001262586330995 13643 0.0012625374365598 13644 0.001262488309294 13645 0.0012624390656129 13646 0.0012623905204237 13647 0.0012623415095732 13648 0.0012622919166461 13649 0.0012622433714569 13650 0.0012621940113604 13651 0.0012621451169252 13652 0.0012620961060748 13653 0.0012620476773009 13654 0.0012619986664504 13655 0.0012619495391846 13656 0.0012619007611647 13657 0.0012618518667296 13658 0.0012618028558791 13659 0.0012617534957826 13660 0.0012617046013474 13661 0.0012616553576663 13662 0.0012616066960618 13663 0.0012615580344573 13664 0.0012615087907761 13665 0.0012614601291716 13666 0.0012614110019058 13667 0.0012613623403013 13668 0.0012613135622814 13669 0.0012612647842616 13670 0.0012612161226571 13671 0.0012611672282219 13672 0.0012611183337867 13673 0.0012610689736903 13674 0.0012610201956704 13675 0.0012609714176506 13676 0.0012609227560461 13677 0.0012608738616109 13678 0.0012608249671757 13679 0.0012607767712325 13680 0.0012607272947207 13681 0.0012606788659468 13682 0.0012606299715117 13683 0.0012605809606612 13684 0.0012605322990566 13685 0.0012604837538674 13686 0.0012604345101863 13687 0.0012603856157511 13688 0.001260336721316 13689 0.0012602880597115 13690 0.0012602391652763 13691 0.0012601906200871 13692 0.0012601431226358 13693 0.0012600942282006 13694 0.0012600456830114 13695 0.0012599970214069 13696 0.001259948243387 13697 0.0012598994653672 13698 0.001259851269424 13699 0.0012598023749888 13700 0.0012597544118762 13701 0.0012597056338564 13702 0.0012596570886672 13703 0.0012596083106473 13704 0.0012595597654581 13705 0.0012595112202689 13706 0.0012594622094184 13707 0.0012594142463058 13708 0.0012593658175319 13709 0.0012593172723427 13710 0.0012592686107382 13711 0.001259220065549 13712 0.0012591714039445 13713 0.0012591221602634 13714 0.0012590737314895 13715 0.0012590251863003 13716 0.0012589768739417 13717 0.0012589283287525 13718 0.0012588798999786 13719 0.0012588317040354 13720 0.0012587829260156 13721 0.0012587347300723 13722 0.0012586865341291 13723 0.0012586377561092 13724 0.0012585894437507 13725 0.0012585412478074 13726 0.0012584921205416 13727 0.0012584442738444 13728 0.0012583956122398 13729 0.001258347183466 13730 0.0012582989875227 13731 0.0012582500930876 13732 0.0012582015478984 13733 0.0012581537012011 13734 0.0012581048067659 13735 0.001258057076484 13736 0.0012580092297867 13737 0.0012579604517668 13738 0.001257912022993 13739 0.001257864292711 13740 0.0012578159803525 13741 0.0012577681336552 13742 0.0012577197048813 13743 0.0012576715089381 13744 0.0012576238950714 13745 0.0012575755827129 13746 0.0012575273867697 13747 0.0012574794236571 13748 0.0012574308784679 13749 0.0012573826825246 13750 0.0012573346029967 13751 0.0012572867562994 13752 0.0012572380946949 13753 0.001257190364413 13754 0.0012571420520544 13755 0.0012570943217725 13756 0.0012570458929986 13757 0.0012569976970553 13758 0.0012569498503581 13759 0.0012569015379995 13760 0.0012568535748869 13761 0.0012568049132824 13762 0.0012567571830004 13763 0.0012567085213959 13764 0.001256660791114 13765 0.0012566127115861 13766 0.0012565643992275 13767 0.0012565164361149 13768 0.001256468705833 13769 0.0012564212083817 13770 0.0012563725467771 13771 0.0012563250493258 13772 0.0012562769697979 13773 0.001256228541024 13774 0.0012561803450808 13775 0.0012561323819682 13776 0.0012560840696096 13777 0.0012560363393277 13778 0.0012559883762151 13779 0.0012559400638565 13780 0.0012558919843286 13781 0.0012558439048007 13782 0.0012557959416881 13783 0.0012557480949908 13784 0.0012557000154629 13785 0.0012556513538584 13786 0.0012556039728224 13787 0.0012555554276332 13788 0.0012555073481053 13789 0.001255459850654 13790 0.0012554117711261 13791 0.0012553634587675 13792 0.0012553159613162 13793 0.0012552676489577 13794 0.0012552195694298 13795 0.0012551713734865 13796 0.0012551235267892 13797 0.0012550755636767 13798 0.0012550272513181 13799 0.0012549789389595 13800 0.0012549313250929 13801 0.0012548831291497 13802 0.0012548353988677 13803 0.0012547873193398 13804 0.0012547395890579 13805 0.0012546910438687 13806 0.0012546430807561 13807 0.0012545954668894 13808 0.0012545472709462 13809 0.0012544989585876 13810 0.0012544506462291 13811 0.0012544034980237 13812 0.0012543555349112 13813 0.0012543068733066 13814 0.0012542598415166 13815 0.0012542117619887 13816 0.001254164846614 13817 0.0012541167670861 13818 0.0012540693860501 13819 0.0012540216557682 13820 0.0012539734598249 13821 0.0012539258459583 13822 0.0012538782320917 13823 0.0012538305018097 13824 0.0012537827715278 13825 0.0012537352740765 13826 0.0012536876602098 13827 0.0012536399299279 13828 0.0012535923160613 13829 0.001253544469364 13830 0.0012534966226667 13831 0.0012534486595541 13832 0.0012534015113488 13833 0.0012533540138975 13834 0.0012533064000309 13835 0.0012532583205029 13836 0.0012532107066363 13837 0.001253163209185 13838 0.0012531147804111 13839 0.0012530671665445 13840 0.0012530197855085 13841 0.0012529722880572 13842 0.0012529243249446 13843 0.001252877060324 13844 0.001252829330042 13845 0.0012527815997601 13846 0.0012527338694781 13847 0.0012526867212728 13848 0.0012526391074061 13849 0.0012525912607089 13850 0.0012525434140116 13851 0.0012524960329756 13852 0.001252448419109 13853 0.001252400688827 13854 0.0012523527257144 13855 0.0012523058103397 13856 0.0012522579636425 13857 0.0012522104661912 13858 0.0012521634344012 13859 0.0012521157041192 13860 0.0012520684394985 13861 0.0012520209420472 13862 0.0012519735610113 13863 0.0012519258307293 13864 0.0012518790317699 13865 0.0012518316507339 13866 0.001251783920452 13867 0.0012517366558313 13868 0.0012516892747954 13869 0.0012516420101747 13870 0.0012515946291387 13871 0.001251547364518 13872 0.0012514996342361 13873 0.0012514523696154 13874 0.0012514052214101 13875 0.0012513579567894 13876 0.0012513105757535 13877 0.0012512624962255 13878 0.0012512159300968 13879 0.0012511685490608 13880 0.0012511211680248 13881 0.0012510740198195 13882 0.0012510267551988 13883 0.0012509798398241 13884 0.0012509321095422 13885 0.0012508851941675 13886 0.0012508378131315 13887 0.0012507901992649 13888 0.0012507429346442 13889 0.0012506961356848 13890 0.0012506487546489 13891 0.0012506012571976 13892 0.0012505539925769 13893 0.0012505073100328 13894 0.0012504593469203 13895 0.0012504120822996 13896 0.0012503648176789 13897 0.0012503181351349 13898 0.0012502711033449 13899 0.0012502232566476 13900 0.0012501761084422 13901 0.0012501287274063 13902 0.0012500816956162 13903 0.0012500344309956 13904 0.001249986817129 13905 0.0012499400181696 13906 0.0012498932192102 13907 0.0012498458381742 13908 0.0012497988063842 13909 0.0012497513089329 13910 0.0012497042771429 13911 0.0012496572453529 13912 0.0012496095150709 13913 0.0012495620176196 13914 0.0012495152186602 13915 0.0012494683032855 13916 0.0012494209222496 13917 0.0012493740068749 13918 0.0012493267422542 13919 0.0012492795940489 13920 0.0012492320965976 13921 0.0012491848319769 13922 0.0012491382658482 13923 0.0012490904191509 13924 0.0012490437366068 13925 0.0012489961227402 13926 0.0012489496730268 13927 0.0012489020591602 13928 0.0012488551437855 13929 0.0012488078791648 13930 0.0012487608473748 13931 0.0012487133499235 13932 0.0012486663181335 13933 0.0012486192863435 13934 0.0012485724873841 13935 0.0012485256884247 13936 0.00124847877305 13937 0.0012484319740906 13938 0.0012483850587159 13939 0.0012483384925872 13940 0.0012482916936278 13941 0.0012482446618378 13942 0.0012481975136325 13943 0.0012481508310884 13944 0.0012481037992984 13945 0.0012480568839237 13946 0.0012480102013797 13947 0.0012479636352509 13948 0.0012479161377996 13949 0.0012478699209169 13950 0.0012478227727115 13951 0.0012477762065828 13952 0.0012477289419621 13953 0.0012476828414947 13954 0.0012476351112127 13955 0.0012475887779146 13956 0.0012475420953706 13957 0.0012474954128265 13958 0.0012474486138672 13959 0.0012474013492465 13960 0.0012473550159484 13961 0.0012473076349124 13962 0.0012472614180297 13963 0.0012472140369937 13964 0.0012471678201109 13965 0.0012471206719056 13966 0.0012470739893615 13967 0.0012470271904022 13968 0.0012469800421968 13969 0.001246933825314 13970 0.001246886793524 13971 0.0012468402273953 13972 0.0012467928463593 13973 0.0012467467458919 13974 0.0012466998305172 13975 0.0012466527987272 13976 0.0012466066982597 13977 0.0012465596664697 13978 0.0012465128675103 13979 0.0012464656028897 13980 0.0012464197352529 13981 0.0012463730527088 13982 0.001246326835826 13983 0.0012462800368667 13984 0.0012462339363992 13985 0.0012461876031011 13986 0.0012461409205571 13987 0.001246094936505 13988 0.0012460476718843 13989 0.0012460008729249 13990 0.0012459547724575 13991 0.0012459084391594 13992 0.0012458623386919 13993 0.0012458156561479 13994 0.0012457688571885 13995 0.0012457224074751 13996 0.001245676074177 13997 0.0012456292752177 13998 0.0012455829419196 13999 0.0012455368414521 14000 0.0012454903917387 14001 0.0012454441748559 14002 0.0012453976087272 14003 0.0012453512754291 14004 0.001245304942131 14005 0.0012452581431717 14006 0.0012452122755349 14007 0.0012451654765755 14008 0.0012451194925234 14009 0.0012450731592253 14010 0.0012450269423425 14011 0.0012449803762138 14012 0.0012449340429157 14013 0.0012448877096176 14014 0.0012448410270736 14015 0.0012447949266061 14016 0.0012447488261387 14017 0.001244701910764 14018 0.0012446558102965 14019 0.0012446095934138 14020 0.001244563376531 14021 0.0012445168104023 14022 0.0012444705935195 14023 0.0012444242602214 14024 0.001244377810508 14025 0.0012443317100406 14026 0.0012442856095731 14027 0.0012442388106138 14028 0.0012441924773157 14029 0.0012441460276023 14030 0.0012440996943042 14031 0.0012440535938367 14032 0.001244007027708 14033 0.0012439608108252 14034 0.0012439147103578 14035 0.001243868493475 14036 0.0012438222765923 14037 0.0012437754776329 14038 0.0012437293771654 14039 0.0012436831602827 14040 0.0012436367105693 14041 0.0012435900280252 14042 0.0012435432290658 14043 0.0012434972450137 14044 0.0012434509117156 14045 0.0012434042291716 14046 0.0012433580122888 14047 0.0012433123774827 14048 0.0012432658113539 14049 0.0012432197108865 14050 0.0012431733775884 14051 0.0012431272771209 14052 0.0012430805945769 14053 0.0012430344941095 14054 0.0012429876951501 14055 0.0012429414782673 14056 0.0012428951449692 14057 0.0012428491609171 14058 0.001242803176865 14059 0.0012427573092282 14060 0.0012427112087607 14061 0.0012426653411239 14062 0.0012426191242412 14063 0.0012425730237737 14064 0.0012425270397216 14065 0.0012424811720848 14066 0.0012424346059561 14067 0.0012423888547346 14068 0.0012423431035131 14069 0.0012422968866304 14070 0.0012422511354089 14071 0.0012422052677721 14072 0.0012421594001353 14073 0.0012421131832525 14074 0.0012420676648617 14075 0.0012420215643942 14076 0.0012419754639268 14077 0.0012419298291206 14078 0.0012418837286532 14079 0.0012418378610164 14080 0.0012417915277183 14081 0.0012417460093275 14082 0.0012416997924447 14083 0.0012416538083926 14084 0.0012416085228324 14085 0.0012415630044416 14086 0.0012415171368048 14087 0.001241471269168 14088 0.0012414266820997 14089 0.0012413810472935 14090 0.0012413355289027 14091 0.0012412897776812 14092 0.0012412443757057 14093 0.0012411990901455 14094 0.0012411532225087 14095 0.0012411080533639 14096 0.001241062534973 14097 0.0012410175986588 14098 0.0012409719638526 14099 0.0012409269111231 14100 0.0012408811599016 14101 0.0012408355250955 14102 0.0012407903559506 14103 0.0012407447211444 14104 0.0012406995519996 14105 0.0012406540336087 14106 0.0012406089808792 14107 0.001240564044565 14108 0.0012405184097588 14109 0.0012404740555212 14110 0.0012404292356223 14111 0.0012403839500621 14112 0.0012403388973325 14113 0.0012402930296957 14114 0.0012402482097968 14115 0.0012402033898979 14116 0.0012401583371684 14117 0.0012401134008542 14118 0.0012400679988787 14119 0.0012400227133185 14120 0.0012399778934196 14121 0.0012399329571053 14122 0.0012398879043758 14123 0.0012398432008922 14124 0.0012397981481627 14125 0.0012397523969412 14126 0.001239707111381 14127 0.0012396624078974 14128 0.0012396178208292 14129 0.0012395724188536 14130 0.0012395275989547 14131 0.0012394823133945 14132 0.001239437609911 14133 0.0012393925571814 14134 0.0012393476208672 14135 0.0012393024517223 14136 0.0012392568169162 14137 0.0012392116477713 14138 0.0012391668278724 14139 0.0012391220079735 14140 0.0012390770716593 14141 0.0012390320189297 14142 0.0012389873154461 14143 0.0012389421463013 14144 0.0012388967443258 14145 0.0012388515751809 14146 0.0012388068716973 14147 0.0012387613533065 14148 0.0012387168826535 14149 0.0012386717135087 14150 0.0012386268936098 14151 0.0012385812588036 14152 0.0012385366717353 14153 0.0012384913861752 14154 0.0012384465662763 14155 0.0012384017463773 14156 0.0012383564608172 14157 0.0012383112916723 14158 0.0012382660061121 14159 0.0012382210697979 14160 0.0012381763663143 14161 0.0012381311971694 14162 0.0012380863772705 14163 0.0012380415573716 14164 0.0012379963882267 14165 0.0012379516847432 14166 0.0012379065155983 14167 0.00123786192853 14168 0.0012378160608932 14169 0.0012377710081637 14170 0.0012377258390188 14171 0.0012376813683659 14172 0.001237636548467 14173 0.0012375912629068 14174 0.0012375467922539 14175 0.0012375018559396 14176 0.0012374565703794 14177 0.0012374122161418 14178 0.001237366348505 14179 0.0012373212957755 14180 0.0012372768251225 14181 0.001237231423147 14182 0.0012371870689094 14183 0.0012371418997645 14184 0.001237096847035 14185 0.0012370522599667 14186 0.0012370068579912 14187 0.001236962270923 14188 0.0012369173346087 14189 0.0012368726311252 14190 0.001236827345565 14191 0.0012367824092507 14192 0.0012367384042591 14193 0.0012366938171908 14194 0.0012366487644613 14195 0.0012366047594696 14196 0.0012365591246635 14197 0.0012365148868412 14198 0.0012364701833576 14199 0.0012364253634587 14200 0.0012363808928058 14201 0.0012363359564915 14202 0.0012362917186692 14203 0.0012362470151857 14204 0.0012362019624561 14205 0.0012361574918032 14206 0.0012361129047349 14207 0.0012360686669126 14208 0.001236023963429 14209 0.0012359784450382 14210 0.0012359340908006 14211 0.001235889038071 14212 0.0012358445674181 14213 0.0012358005624264 14214 0.0012357557425275 14215 0.001235711039044 14216 0.001235666568391 14217 0.0012356222141534 14218 0.0012355770450085 14219 0.0012355329236016 14220 0.0012354879872873 14221 0.0012354431673884 14222 0.0012353984639049 14223 0.0012353542260826 14224 0.0012353097554296 14225 0.0012352651683614 14226 0.0012352203484625 14227 0.0012351762270555 14228 0.0012351316399872 14229 0.0012350869365036 14230 0.0012350426986814 14231 0.0012349976459518 14232 0.0012349532917142 14233 0.0012349088210613 14234 0.0012348644668236 14235 0.0012348197633401 14236 0.0012347756419331 14237 0.0012347314041108 14238 0.0012346872827038 14239 0.0012346423463896 14240 0.0012345986906439 14241 0.0012345537543297 14242 0.0012345099821687 14243 0.0012344656279311 14244 0.0012344211572781 14245 0.0012343772687018 14246 0.0012343323323876 14247 0.0012342886766419 14248 0.0012342443224043 14249 0.0012342003174126 14250 0.0012341557303444 14251 0.0012341116089374 14252 0.0012340671382844 14253 0.0012340231332928 14254 0.0012339786626399 14255 0.0012339341919869 14256 0.0012338900705799 14257 0.0012338458327577 14258 0.0012338011292741 14259 0.0012337579391897 14260 0.0012337132357061 14261 0.0012336692307144 14262 0.0012336245272309 14263 0.0012335805222392 14264 0.0012335359351709 14265 0.0012334919301793 14266 0.001233447692357 14267 0.0012334031052887 14268 0.0012333591002971 14269 0.0012333146296442 14270 0.0012332703918219 14271 0.0012332259211689 14272 0.0012331824982539 14273 0.001233137678355 14274 0.0012330937897786 14275 0.0012330496683717 14276 0.0012330057797953 14277 0.0012329615419731 14278 0.0012329174205661 14279 0.0012328729499131 14280 0.0012328291777521 14281 0.0012327847070992 14282 0.0012327408185229 14283 0.001232695998624 14284 0.0012326519936323 14285 0.0012326076393947 14286 0.001232563983649 14287 0.0012325195129961 14288 0.0012324757408351 14289 0.0012324316194281 14290 0.0012323872651905 14291 0.0012323429109529 14292 0.0012322987895459 14293 0.0012322547845542 14294 0.0012322105467319 14295 0.001232166425325 14296 0.001232122303918 14297 0.0012320780660957 14298 0.0012320337118581 14299 0.0012319898232818 14300 0.0012319455854595 14301 0.0012319015804678 14302 0.0012318572262302 14303 0.0012318135704845 14304 0.0012317688670009 14305 0.0012317250948399 14306 0.001231680973433 14307 0.001231636852026 14308 0.0012315924977884 14309 0.0012315484927967 14310 0.0012315041385591 14311 0.0012314603663981 14312 0.0012314158957452 14313 0.0012313721235842 14314 0.0012313281185925 14315 0.0012312836479396 14316 0.0012312396429479 14317 0.0012311958707869 14318 0.0012311512837186 14319 0.0012311078608036 14320 0.0012310640886426 14321 0.0012310191523284 14322 0.0012309753801674 14323 0.0012309311423451 14324 0.0012308874865994 14325 0.0012308428995311 14326 0.0012307991273701 14327 0.0012307552387938 14328 0.0012307111173868 14329 0.0012306671123952 14330 0.0012306242715567 14331 0.0012305795680732 14332 0.0012305361451581 14333 0.0012304921401665 14334 0.0012304484844208 14335 0.0012304043630138 14336 0.0012303610565141 14337 0.0012303171679378 14338 0.0012302731629461 14339 0.0012302293907851 14340 0.0012301858514547 14341 0.001230142195709 14342 0.0012300983071327 14343 0.0012300547678024 14344 0.0012300107628107 14345 0.001229967107065 14346 0.0012299228692427 14347 0.0012298796791583 14348 0.0012298356741667 14349 0.0012297921348363 14350 0.0012297481298447 14351 0.0012297043576837 14352 0.001229660352692 14353 0.001229616929777 14354 0.001229573157616 14355 0.0012295292690396 14356 0.0012294854968786 14357 0.0012294421903789 14358 0.001229397719726 14359 0.0012293540639803 14360 0.0012293102918193 14361 0.0012292667524889 14362 0.0012292230967432 14363 0.0012291790917516 14364 0.0012291357852519 14365 0.0012290922459215 14366 0.0012290487065911 14367 0.0012290058657527 14368 0.001228962559253 14369 0.0012289194855839 14370 0.0012288766447455 14371 0.0012288328725845 14372 0.0012287899153307 14373 0.0012287470744923 14374 0.0012287041172385 14375 0.0012286606943235 14376 0.0012286177370697 14377 0.0012285750126466 14378 0.0012285315897316 14379 0.0012284886324778 14380 0.0012284449767321 14381 0.0012284019030631 14382 0.001228358829394 14383 0.0012283157557249 14384 0.0012282723328099 14385 0.0012282297248021 14386 0.0012281861854717 14387 0.0012281433446333 14388 0.0012281006202102 14389 0.0012280570808798 14390 0.0012280142400414 14391 0.0012279705842957 14392 0.0012279271613806 14393 0.0012278844369575 14394 0.0012278412468731 14395 0.00122779852245 14396 0.0012277548667043 14397 0.0012277122586966 14398 0.0012276693014428 14399 0.0012276254128665 14400 0.0012275824556127 14401 0.0012275399640203 14402 0.0012274959590286 14403 0.0012274535838515 14404 0.0012274101609364 14405 0.0012273667380214 14406 0.0012273238971829 14407 0.0012272805906832 14408 0.0012272377498448 14409 0.0012271945597604 14410 0.0012271516025066 14411 0.0012271085288376 14412 0.0012270653387532 14413 0.0012270221486688 14414 0.001226978842169 14415 0.0012269361177459 14416 0.0012268933933228 14417 0.0012268498539925 14418 0.001226807013154 14419 0.001226763590239 14420 0.0012267208658159 14421 0.0012266775593162 14422 0.0012266344856471 14423 0.0012265912955627 14424 0.0012265485711396 14425 0.0012265056138858 14426 0.0012264624238014 14427 0.0012264191173017 14428 0.0012263765092939 14429 0.0012263334356248 14430 0.0012262902455404 14431 0.001226247055456 14432 0.001226203632541 14433 0.0012261607917026 14434 0.0012261181836948 14435 0.0012260749936104 14436 0.0012260319199413 14437 0.0012259893119335 14438 0.0012259462382644 14439 0.0012259032810107 14440 0.0012258600909263 14441 0.0012258169008419 14442 0.0012257737107575 14443 0.0012257306370884 14444 0.0012256879126653 14445 0.0012256450718269 14446 0.0012256018817425 14447 0.0012255589244887 14448 0.0012255160836503 14449 0.0012254725443199 14450 0.0012254297034815 14451 0.0012253867462277 14452 0.0012253433233127 14453 0.0012253008317202 14454 0.0012252575252205 14455 0.0012252146843821 14456 0.0012251721927896 14457 0.0012251287698746 14458 0.0012250859290361 14459 0.0012250426225364 14460 0.0012249996652827 14461 0.0012249569408596 14462 0.0012249136343598 14463 0.0012248709099367 14464 0.001224827603437 14465 0.0012247852282599 14466 0.0012247427366674 14467 0.0012246993137524 14468 0.0012246563564986 14469 0.0012246136320755 14470 0.0012245706748217 14471 0.0012245285324752 14472 0.0012244856916368 14473 0.0012244429672137 14474 0.0012244008248672 14475 0.0012243578676134 14476 0.0012243149103597 14477 0.0012242719531059 14478 0.0012242294615135 14479 0.001224186620675 14480 0.0012241438962519 14481 0.0012241012882441 14482 0.0012240578653291 14483 0.0012240156065673 14484 0.0012239732313901 14485 0.0012239302741364 14486 0.0012238878989592 14487 0.0012238455237821 14488 0.001223802100867 14489 0.0012237594928592 14490 0.0012237168848515 14491 0.0012236742768437 14492 0.0012236316688359 14493 0.0012235890608281 14494 0.0012235461035743 14495 0.0012235030299053 14496 0.0012234607711434 14497 0.0012234188616276 14498 0.0012233755551279 14499 0.001223333296366 14500 0.0012232906883582 14501 0.0012232480803505 14502 0.0012232053559273 14503 0.0012231627479196 14504 0.001223120954819 14505 0.0012230785796419 14506 0.0012230360880494 14507 0.0012229939457029 14508 0.0012229513376951 14509 0.0012229091953486 14510 0.0012228664709255 14511 0.0012228242121637 14512 0.0012227818369865 14513 0.00122273969464 14514 0.0012226965045556 14515 0.0012226544786245 14516 0.001222612336278 14517 0.0012225696118549 14518 0.001222527353093 14519 0.0012224849779159 14520 0.0012224430684 14521 0.0012224002275616 14522 0.0012223580852151 14523 0.0012223160592839 14524 0.0012222731020302 14525 0.001222230726853 14526 0.0012221888173372 14527 0.0012221462093294 14528 0.0012221032520756 14529 0.0012220605276525 14530 0.0012220185017213 14531 0.0012219762429595 14532 0.0012219338677824 14533 0.0012218912597746 14534 0.0012218491174281 14535 0.0012218065094203 14536 0.0012217645999044 14537 0.0012217219918966 14538 0.0012216799659654 14539 0.0012216377072036 14540 0.0012215953320265 14541 0.0012215533060953 14542 0.0012215104652569 14543 0.001221468904987 14544 0.0012214260641485 14545 0.0012213836889714 14546 0.0012213414302096 14547 0.001221299637109 14548 0.00122125656344 14549 0.0012212148867548 14550 0.0012211725115776 14551 0.0012211300199851 14552 0.0012210877612233 14553 0.0012210458517075 14554 0.0012210034765303 14555 0.0012209609849378 14556 0.0012209188425913 14557 0.0012208768166602 14558 0.0012208339758217 14559 0.0012207920663059 14560 0.0012207498075441 14561 0.0012207074323669 14562 0.0012206649407744 14563 0.0012206232640892 14564 0.0012205808889121 14565 0.0012205385137349 14566 0.0012204966042191 14567 0.0012204544618726 14568 0.0012204123195261 14569 0.0012203700607643 14570 0.0012203282676637 14571 0.0012202855432406 14572 0.0012202436337247 14573 0.0012202013749629 14574 0.0012201589997858 14575 0.001220116741024 14576 0.0012200751807541 14577 0.0012200323399156 14578 0.0012199903139845 14579 0.001219947822392 14580 0.0012199064949527 14581 0.0012198642361909 14582 0.0012198216281831 14583 0.0012197799514979 14584 0.0012197371106595 14585 0.001219694968313 14586 0.0012196531752124 14587 0.0012196108000353 14588 0.0012195686576888 14589 0.0012195265153423 14590 0.0012194846058264 14591 0.0012194422306493 14592 0.0012194000883028 14593 0.0012193580623716 14594 0.0012193163856864 14595 0.0012192742433399 14596 0.0012192322174087 14597 0.0012191894929856 14598 0.0012191475834697 14599 0.0012191056739539 14600 0.0012190628331155 14601 0.0012190213892609 14602 0.0012189790140837 14603 0.0012189367553219 14604 0.0012188949622214 14605 0.0012188528198749 14606 0.0012188107939437 14607 0.0012187686515972 14608 0.001218727324158 14609 0.0012186854146421 14610 0.0012186432722956 14611 0.0012186014791951 14612 0.0012185595696792 14613 0.0012185180094093 14614 0.0012184758670628 14615 0.0012184344232082 14616 0.0012183923972771 14617 0.0012183503713459 14618 0.0012183086946607 14619 0.0012182667851448 14620 0.0012182249920443 14621 0.0012181833153591 14622 0.0012181409401819 14623 0.001218099379912 14624 0.0012180575868115 14625 0.0012180159101263 14626 0.0012179741170257 14627 0.0012179324403405 14628 0.00121789064724 14629 0.0012178490869701 14630 0.0012178071774542 14631 0.0012177652679384 14632 0.0012177239404991 14633 0.0012176821473986 14634 0.001217640703544 14635 0.0012175989104435 14636 0.0012175570009276 14637 0.0012175154406577 14638 0.0012174731818959 14639 0.001217431970872 14640 0.0012173905270174 14641 0.0012173487339169 14642 0.0012173077557236 14643 0.0012172665446997 14644 0.0012172251008451 14645 0.0012171838898212 14646 0.001217141514644 14647 0.0012171003036201 14648 0.0012170589761809 14649 0.0012170175323263 14650 0.0012169763213024 14651 0.0012169347610325 14652 0.0012168930843472 14653 0.001216852106154 14654 0.0012168106622994 14655 0.0012167692184448 14656 0.0012167275417596 14657 0.0012166855158284 14658 0.0012166443048045 14659 0.0012166032101959 14660 0.001216561649926 14661 0.0012165202060714 14662 0.0012164786458015 14663 0.0012164369691163 14664 0.001216395990923 14665 0.0012163545470685 14666 0.0012163133360445 14667 0.0012162717757747 14668 0.0012162299826741 14669 0.0012161888880655 14670 0.0012161477934569 14671 0.0012161063496023 14672 0.0012160650221631 14673 0.0012160232290626 14674 0.001215981785208 14675 0.001215941272676 14676 0.0012159002944827 14677 0.0012158590834588 14678 0.0012158176396042 14679 0.0012157768942416 14680 0.0012157355668023 14681 0.0012156937737018 14682 0.0012156527955085 14683 0.0012156117008999 14684 0.0012155706062913 14685 0.001215529628098 14686 0.001215489115566 14687 0.0012154473224655 14688 0.0012154058786109 14689 0.0012153650168329 14690 0.0012153240386397 14691 0.001215283293277 14692 0.0012152423150837 14693 0.0012152007548138 14694 0.0012151595437899 14695 0.0012151187984273 14696 0.0012150780530646 14697 0.0012150364927948 14698 0.0012149955146015 14699 0.0012149545364082 14700 0.0012149136746302 14701 0.0012148726964369 14702 0.0012148312525824 14703 0.0012147898087278 14704 0.0012147491797805 14705 0.0012147082015872 14706 0.0012146671069786 14707 0.0012146255467087 14708 0.0012145844521001 14709 0.0012145440559834 14710 0.0012145026121289 14711 0.0012144615175202 14712 0.001214420190081 14713 0.0012143792118877 14714 0.0012143385829404 14715 0.0012142974883318 14716 0.0012142565101385 14717 0.0012142150662839 14718 0.0012141743209213 14719 0.0012141334591433 14720 0.0012140920152888 14721 0.0012140506878495 14722 0.0012140097096562 14723 0.0012139689642936 14724 0.0012139281025156 14725 0.0012138867750764 14726 0.0012138461461291 14727 0.0012138047022745 14728 0.0012137638404965 14729 0.0012137228623033 14730 0.0012136814184487 14731 0.0012136407895014 14732 0.0012135996948928 14733 0.0012135586002842 14734 0.0012135178549215 14735 0.0012134767603129 14736 0.0012134357821196 14737 0.0012133952695876 14738 0.001213354524225 14739 0.0012133133132011 14740 0.0012132723350078 14741 0.0012132313568145 14742 0.0012131906114519 14743 0.0012131489347667 14744 0.001213108189404 14745 0.0012130674440414 14746 0.0012130266986787 14747 0.0012129851384088 14748 0.0012129446258768 14749 0.0012129037640989 14750 0.001212862203829 14751 0.0012128219241276 14752 0.0012127809459344 14753 0.001212740666233 14754 0.0012126996880397 14755 0.0012126589426771 14756 0.0012126185465604 14757 0.0012125778011978 14758 0.0012125367065892 14759 0.0012124960776418 14760 0.0012124557979405 14761 0.0012124148197472 14762 0.0012123741907999 14763 0.0012123333290219 14764 0.0012122931657359 14765 0.0012122524203733 14766 0.0012122112093493 14767 0.0012121708132327 14768 0.00121213006787 14769 0.0012120892060921 14770 0.0012120488099754 14771 0.0012120080646127 14772 0.0012119675520808 14773 0.0012119271559641 14774 0.0012118861777708 14775 0.0012118453159928 14776 0.0012118045706302 14777 0.0012117639416829 14778 0.0012117240112275 14779 0.0012116828002036 14780 0.0012116418220103 14781 0.0012116014258936 14782 0.0012115607969463 14783 0.0012115205172449 14784 0.0012114800047129 14785 0.0012114403070882 14786 0.0012113996781409 14787 0.0012113596312702 14788 0.0012113185366616 14789 0.0012112784897909 14790 0.0012112378608435 14791 0.0012111978139728 14792 0.0012111570686102 14793 0.0012111165560782 14794 0.0012110760435462 14795 0.0012110365787521 14796 0.0012109957169741 14797 0.0012109554372728 14798 0.0012109149247408 14799 0.0012108741793782 14800 0.0012108337832615 14801 0.0012107939692214 14802 0.0012107534566894 14803 0.0012107131769881 14804 0.001210673013702 14805 0.0012106320355088 14806 0.0012105914065614 14807 0.0012105515925214 14808 0.0012105114292353 14809 0.001210470800288 14810 0.001210430637002 14811 0.001210390473716 14812 0.0012103491462767 14813 0.001210309099406 14814 0.0012102690525353 14815 0.0012102285400033 14816 0.001210187911056 14817 0.0012101479806006 14818 0.0012101077008992 14819 0.0012100671883672 14820 0.0012100264430046 14821 0.0012099863961339 14822 0.0012099458836019 14823 0.0012099058367312 14824 0.0012098655570298 14825 0.0012098249280825 14826 0.0012097847647965 14827 0.0012097448343411 14828 0.0012097037397325 14829 0.0012096633436158 14830 0.0012096234131604 14831 0.0012095833662897 14832 0.0012095427373424 14833 0.0012095026904717 14834 0.0012094627600163 14835 0.0012094222474843 14836 0.001209381269291 14837 0.0012093413388357 14838 0.0012093011755496 14839 0.0012092611286789 14840 0.0012092204997316 14841 0.0012091798707843 14842 0.0012091395910829 14843 0.0012090998934582 14844 0.0012090596137568 14845 0.0012090194504708 14846 0.0012089785886928 14847 0.0012089386582375 14848 0.0012088976800442 14849 0.0012088576331735 14850 0.0012088179355487 14851 0.0012087773066014 14852 0.0012087366776541 14853 0.0012086966307834 14854 0.0012086569331586 14855 0.001208616187796 14856 0.0012085755588487 14857 0.0012085353955626 14858 0.0012084951158613 14859 0.0012084549525753 14860 0.0012084140907973 14861 0.0012083745095879 14862 0.0012083342298865 14863 0.0012082937173545 14864 0.0012082532048225 14865 0.0012082130415365 14866 0.0012081727618352 14867 0.0012081327149644 14868 0.0012080920860171 14869 0.0012080522719771 14870 0.0012080115266144 14871 0.001207971596159 14872 0.0012079316657037 14873 0.0012078908039257 14874 0.0012078506406397 14875 0.001207810244523 14876 0.0012077699648216 14877 0.0012077302671969 14878 0.0012076896382496 14879 0.0012076497077942 14880 0.0012076094280928 14881 0.0012075689155608 14882 0.0012075291015208 14883 0.0012074887054041 14884 0.0012074484257028 14885 0.0012074082624167 14886 0.0012073689140379 14887 0.00120732805226 14888 0.0012072877725586 14889 0.0012072478421032 14890 0.0012072080280632 14891 0.0012071676319465 14892 0.0012071271194145 14893 0.0012070871889591 14894 0.0012070478405803 14895 0.0012070080265403 14896 0.0012069683289155 14897 0.0012069276999682 14898 0.0012068881187588 14899 0.0012068480718881 14900 0.0012068080250174 14901 0.001206768443808 14902 0.0012067288625985 14903 0.0012066886993125 14904 0.0012066486524418 14905 0.0012066089548171 14906 0.0012065693736076 14907 0.0012065295595676 14908 0.0012064898619428 14909 0.0012064499314874 14910 0.0012064095353708 14911 0.0012063699541613 14912 0.0012063306057826 14913 0.0012062899768353 14914 0.0012062503956258 14915 0.0012062104651704 14916 0.0012061704182997 14917 0.0012061309535056 14918 0.0012060909066349 14919 0.0012060512090102 14920 0.0012060113949701 14921 0.0012059715809301 14922 0.0012059316504747 14923 0.0012058920692652 14924 0.0012058522552252 14925 0.0012058124411851 14926 0.0012057723943144 14927 0.0012057330459356 14928 0.0012056931154802 14929 0.0012056538835168 14930 0.0012056144187227 14931 0.0012055753031746 14932 0.0012055356055498 14933 0.0012054959079251 14934 0.0012054567923769 14935 0.0012054167455062 14936 0.0012053770478815 14937 0.001205337815918 14938 0.001205298001878 14939 0.0012052585370839 14940 0.0012052189558744 14941 0.0012051798403263 14942 0.0012051399098709 14943 0.0012051004450768 14944 0.001205061096698 14945 0.0012050213990733 14946 0.0012049817014486 14947 0.0012049425859004 14948 0.0012049024226144 14949 0.0012048631906509 14950 0.0012048239586875 14951 0.0012047848431394 14952 0.0012047453783453 14953 0.0012047060299665 14954 0.0012046660995111 14955 0.0012046264018863 14956 0.0012045870535076 14957 0.0012045475887135 14958 0.0012045081239194 14959 0.0012044685427099 14960 0.0012044291943312 14961 0.0012043890310451 14962 0.001204350264743 14963 0.0012043104507029 14964 0.0012042709859088 14965 0.0012042315211147 14966 0.0012041921727359 14967 0.0012041520094499 14968 0.0012041128939018 14969 0.001204073196277 14970 0.0012040338478982 14971 0.0012039944995195 14972 0.0012039551511407 14973 0.0012039158027619 14974 0.0012038762215525 14975 0.0012038367567584 14976 0.001203797175549 14977 0.0012037577107549 14978 0.0012037183623761 14979 0.0012036784319207 14980 0.0012036391999573 14981 0.0012036005500704 14982 0.0012035605031997 14983 0.0012035211548209 14984 0.0012034818064421 14985 0.0012034421088174 14986 0.0012034024111927 14987 0.0012033632956445 14988 0.0012033232487738 14989 0.0012032840168104 14990 0.0012032445520163 14991 0.0012032052036375 14992 0.0012031657388434 14993 0.0012031263904646 14994 0.0012030866928399 14995 0.0012030468787998 14996 0.001203007879667 14997 0.0012029687641189 14998 0.0012029292993248 14999 0.0012028897181153 15000 0.0012028502533212 15001 0.0012028106721118 15002 0.001202771323733 15003 0.0012027322081849 15004 0.0012026927433908 15005 0.0012026524636894 15006 0.0012026133481413 15007 0.0012025737669319 15008 0.0012025350006297 15009 0.0012024956522509 15010 0.0012024563038722 15011 0.0012024167226627 15012 0.0012023772578686 15013 0.0012023374438286 15014 0.0012022980954498 15015 0.0012022586306557 15016 0.0012022191658616 15017 0.0012021800503135 15018 0.0012021404691041 15019 0.0012021008878946 15020 0.0012020622380078 15021 0.0012020221911371 15022 0.0012019829591736 15023 0.0012019436107948 15024 0.0012019043788314 15025 0.0012018650304526 15026 0.0012018252164125 15027 0.0012017858680338 15028 0.0012017464032397 15029 0.0012017069384456 15030 0.0012016682885587 15031 0.0012016289401799 15032 0.0012015893589705 15033 0.0012015502434224 15034 0.0012015108950436 15035 0.0012014713138342 15036 0.0012014320818707 15037 0.0012013921514153 15038 0.0012013528030366 15039 0.0012013132218271 15040 0.0012012743391097 15041 0.0012012353399768 15042 0.0012011962244287 15043 0.0012011574581265 15044 0.0012011179933324 15045 0.0012010785285383 15046 0.0012010392965749 15047 0.0012010004138574 15048 0.0012009610654786 15049 0.0012009220663458 15050 0.0012008833000436 15051 0.0012008439516649 15052 0.0012008044868708 15053 0.0012007658369839 15054 0.0012007266050205 15055 0.0012006871402264 15056 0.0012006486067548 15057 0.0012006094912067 15058 0.0012005703756586 15059 0.0012005311436951 15060 0.0012004919117317 15061 0.0012004523305222 15062 0.0012004130985588 15063 0.0012003742158413 15064 0.0012003355659544 15065 0.0012002965668216 15066 0.0012002578005195 15067 0.0012002184521407 15068 0.0012001788709313 15069 0.0012001397553831 15070 0.001200100639835 15071 0.0012000618735328 15072 0.0012000226415694 15073 0.0011999835260212 15074 0.0011999442940578 15075 0.0011999056441709 15076 0.0011998664122075 15077 0.0011998279951513 15078 0.0011997892288491 15079 0.0011997499968857 15080 0.0011997118126601 15081 0.001199672697112 15082 0.0011996342800558 15083 0.0011995956301689 15084 0.0011995562817901 15085 0.001199517166242 15086 0.0011994785163552 15087 0.0011994396336377 15088 0.0011994009837508 15089 0.0011993627995253 15090 0.0011993240332231 15091 0.0011992851505056 15092 0.0011992460349575 15093 0.0011992072686553 15094 0.0011991686187685 15095 0.001199129386805 15096 0.0011990910861641 15097 0.0011990524362773 15098 0.0011990136699751 15099 0.0011989743215963 15100 0.0011989355552942 15101 0.001198897138238 15102 0.0011988580226898 15103 0.001198819372803 15104 0.0011987807229161 15105 0.0011987418401986 15106 0.0011987036559731 15107 0.0011986648896709 15108 0.0011986256577075 15109 0.0011985870078206 15110 0.0011985483579338 15111 0.0011985094752163 15112 0.0011984707089141 15113 0.0011984322918579 15114 0.0011983925942332 15115 0.0011983542935923 15116 0.0011983156437054 15117 0.0011982766445726 15118 0.0011982383439317 15119 0.0011981998104602 15120 0.0011981603456661 15121 0.0011981218121946 15122 0.0011980832787231 15123 0.0011980445124209 15124 0.0011980051640421 15125 0.0011979665141553 15126 0.0011979276314378 15127 0.0011978889815509 15128 0.0011978502152488 15129 0.0011978119146079 15130 0.0011977729154751 15131 0.0011977346148342 15132 0.0011976957321167 15133 0.0011976566165686 15134 0.0011976183159277 15135 0.0011975795496255 15136 0.0011975405504927 15137 0.0011975017841905 15138 0.0011974633671343 15139 0.0011974247172475 15140 0.0011973852524534 15141 0.0011973468353972 15142 0.001197308418341 15143 0.0011972695356235 15144 0.001197231002152 15145 0.0011971922358498 15146 0.0011971538187936 15147 0.0011971145868301 15148 0.001197075820528 15149 0.0011970367049798 15150 0.0011969978222623 15151 0.0011969596380368 15152 0.0011969209881499 15153 0.0011968821054325 15154 0.0011968440376222 15155 0.0011968055041507 15156 0.0011967663886026 15157 0.001196727855131 15158 0.0011966892052442 15159 0.001196650438942 15160 0.0011966119054705 15161 0.0011965731391683 15162 0.0011965346056968 15163 0.0011964953737333 15164 0.0011964564910159 15165 0.001196418190375 15166 0.0011963795404881 15167 0.0011963410070166 15168 0.0011963025899604 15169 0.0011962637072429 15170 0.0011962251737714 15171 0.0011961860582232 15172 0.0011961474083364 15173 0.0011961087584496 15174 0.0011960703413934 15175 0.0011960320407525 15176 0.0011959929252043 15177 0.0011959543917328 15178 0.0011959160910919 15179 0.0011958774412051 15180 0.0011958387913182 15181 0.0011958002578467 15182 0.0011957616079599 15183 0.0011957226088271 15184 0.0011956840753555 15185 0.0011956454254687 15186 0.0011956066591665 15187 0.0011955687077716 15188 0.0011955300578848 15189 0.0011954910587519 15190 0.0011954533401877 15191 0.0011954146903008 15192 0.0011953759239987 15193 0.0011953377397731 15194 0.0011952995555475 15195 0.0011952605564147 15196 0.0011952224886045 15197 0.0011951841879636 15198 0.001195146003738 15199 0.0011951078195125 15200 0.0011950695188716 15201 0.0011950305197388 15202 0.0011949925683439 15203 0.0011949541512877 15204 0.0011949157342315 15205 0.0011948774335906 15206 0.0011948398314416 15207 0.0011948009487242 15208 0.0011947625316679 15209 0.0011947246966884 15210 0.0011946863960475 15211 0.0011946480954066 15212 0.001194609911181 15213 0.0011945718433708 15214 0.0011945334263146 15215 0.0011944947764277 15216 0.0011944564757869 15217 0.0011944179423153 15218 0.0011943799909204 15219 0.0011943414574489 15220 0.0011943036224693 15221 0.0011942655546591 15222 0.0011942272540182 15223 0.0011941886041313 15224 0.0011941506527364 15225 0.0011941122356802 15226 0.001194073818624 15227 0.0011940363328904 15228 0.0011939982650802 15229 0.0011939606629312 15230 0.001193922595121 15231 0.0011938840616494 15232 0.0011938463430852 15233 0.0011938080424443 15234 0.0011937702074647 15235 0.0011937324889004 15236 0.0011936945375055 15237 0.0011936565861106 15238 0.0011936188675463 15239 0.0011935806833208 15240 0.0011935423826799 15241 0.0011935047805309 15242 0.001193466829136 15243 0.0011934289941564 15244 0.0011933912755921 15245 0.0011933534406126 15246 0.0011933151399717 15247 0.0011932769557461 15248 0.0011932395864278 15249 0.0011932016350329 15250 0.0011931635672227 15251 0.0011931257322431 15252 0.0011930880136788 15253 0.0011930500622839 15254 0.0011930124601349 15255 0.001192974159494 15256 0.0011929362080991 15257 0.0011928984895349 15258 0.0011928605381399 15259 0.001192822935991 15260 0.0011927851010114 15261 0.0011927466839552 15262 0.0011927091982216 15263 0.001192671363242 15264 0.0011926335282624 15265 0.0011925959261134 15266 0.0011925575090572 15267 0.0011925195576623 15268 0.001192481839098 15269 0.0011924435384572 15270 0.0011924059363082 15271 0.0011923683341593 15272 0.0011923301499337 15273 0.0011922921985388 15274 0.0011922542471439 15275 0.0011922165285796 15276 0.0011921786936 15277 0.0011921409750357 15278 0.0011921030236408 15279 0.0011920649558306 15280 0.0011920268880203 15281 0.0011919891694561 15282 0.0011919511016458 15283 0.0011919139651582 15284 0.0011918760137632 15285 0.0011918381787837 15286 0.0011918001109734 15287 0.0011917625088245 15288 0.0011917244410142 15289 0.001191686373204 15290 0.0011916483053938 15291 0.0011916109360754 15292 0.0011915729846805 15293 0.0011915351497009 15294 0.0011914968490601 15295 0.0011914594797418 15296 0.0011914216447622 15297 0.0011913835769519 15298 0.0011913455091417 15299 0.0011913082562387 15300 0.0011912699555978 15301 0.0011912318877876 15302 0.0011911941692233 15303 0.0011911565670744 15304 0.0011911191977561 15305 0.0011910812463611 15306 0.0011910435277969 15307 0.0011910049943253 15308 0.0011909673921764 15309 0.0011909294407815 15310 0.0011908921878785 15311 0.0011908544693142 15312 0.0011908165179193 15313 0.0011907784501091 15314 0.0011907413136214 15315 0.0011907027801499 15316 0.0011906651780009 15317 0.0011906276922673 15318 0.001190589973703 15319 0.0011905523715541 15320 0.0011905145365745 15321 0.0011904763523489 15322 0.0011904390994459 15323 0.0011904003331438 15324 0.0011903627309948 15325 0.0011903250124305 15326 0.0011902875266969 15327 0.0011902501573786 15328 0.0011902118567377 15329 0.0011901740217581 15330 0.0011901359539479 15331 0.0011900985846296 15332 0.0011900605168194 15333 0.0011900230310857 15334 0.0011899858945981 15335 0.0011899485252798 15336 0.0011899109231308 15337 0.0011898743687198 15338 0.0011898369994015 15339 0.0011897993972525 15340 0.0011897623771802 15341 0.0011897246586159 15342 0.0011896871728823 15343 0.0011896507348865 15344 0.0011896130163223 15345 0.0011895755305886 15346 0.0011895386269316 15347 0.0011895013740286 15348 0.0011894641211256 15349 0.0011894274502993 15350 0.0011893901973963 15351 0.0011893531773239 15352 0.0011893161572516 15353 0.0011892798356712 15354 0.0011892428155988 15355 0.0011892055626959 15356 0.0011891688918695 15357 0.0011891318717971 15358 0.0011890947353095 15359 0.0011890574824065 15360 0.0011890202295035 15361 0.0011889832094312 15362 0.0011889463057742 15363 0.0011889092857018 15364 0.0011888728477061 15365 0.0011888360604644 15366 0.0011887983419001 15367 0.0011887610889971 15368 0.0011887240689248 15369 0.0011886870488524 15370 0.0011886501451954 15371 0.0011886133579537 15372 0.0011885764542967 15373 0.0011885389685631 15374 0.0011885022977367 15375 0.001188465161249 15376 0.0011884283740073 15377 0.0011883911211044 15378 0.0011883550323546 15379 0.001188317546621 15380 0.0011882805265486 15381 0.0011882437393069 15382 0.0011882070684806 15383 0.0011881698155776 15384 0.0011881333775818 15385 0.0011880970560014 15386 0.0011880602687597 15387 0.001188023481518 15388 0.001187986927107 15389 0.0011879501398653 15390 0.0011879133526236 15391 0.0011878765653819 15392 0.0011878395453095 15393 0.0011878036893904 15394 0.0011877666693181 15395 0.0011877297656611 15396 0.0011876934440807 15397 0.001187656656839 15398 0.0011876204516739 15399 0.0011875831987709 15400 0.0011875468771905 15401 0.0011875100899488 15402 0.0011874730698764 15403 0.0011874363990501 15404 0.0011873999610543 15405 0.0011873634066433 15406 0.0011873268522322 15407 0.0011872898321599 15408 0.0011872528120875 15409 0.0011872161412612 15410 0.0011871795868501 15411 0.0011871429160237 15412 0.0011871067108586 15413 0.001187069225125 15414 0.0011870325542986 15415 0.0011869962327182 15416 0.0011869596783072 15417 0.0011869228910655 15418 0.0011868861038238 15419 0.0011868489673361 15420 0.0011868125293404 15421 0.0011867764405906 15422 0.0011867391876876 15423 0.0011867028661072 15424 0.0011866660788655 15425 0.0011866291752085 15426 0.0011865921551362 15427 0.0011865564156324 15428 0.0011865195119753 15429 0.0011864830739796 15430 0.0011864460539073 15431 0.0011864090338349 15432 0.0011863730615005 15433 0.0011863361578435 15434 0.0011862993706018 15435 0.0011862628161907 15436 0.0011862262617797 15437 0.0011861895909533 15438 0.0011861528037116 15439 0.0011861161328852 15440 0.0011860794620588 15441 0.0011860426748171 15442 0.0011860067024827 15443 0.0011859696824104 15444 0.0011859338264912 15445 0.0011858965735883 15446 0.0011858595535159 15447 0.0011858229991049 15448 0.0011857863282785 15449 0.0011857497738674 15450 0.0011857135687023 15451 0.0011856770142913 15452 0.0011856405762956 15453 0.0011856035562232 15454 0.0011855668853968 15455 0.0011855304474011 15456 0.0011854943586513 15457 0.0011854574549943 15458 0.0011854205513373 15459 0.0011853842297569 15460 0.0011853473260999 15461 0.0011853111209348 15462 0.0011852739844471 15463 0.001185237779282 15464 0.001185201224871 15465 0.0011851644376293 15466 0.0011851281160489 15467 0.0011850916780531 15468 0.0011850546579808 15469 0.0011850178707391 15470 0.0011849811999127 15471 0.0011849449947476 15472 0.0011849083239213 15473 0.0011848720023409 15474 0.0011848353315145 15475 0.0011847987771034 15476 0.0011847622226924 15477 0.00118472520262 15478 0.0011846884153783 15479 0.0011846522102132 15480 0.0011846155393869 15481 0.0011845791013911 15482 0.0011845424305648 15483 0.0011845057597384 15484 0.0011844695545733 15485 0.0011844327673316 15486 0.0011843960965052 15487 0.0011843594256788 15488 0.0011843227548525 15489 0.0011842863168567 15490 0.0011842496460304 15491 0.0011842134408653 15492 0.0011841768864542 15493 0.0011841400992125 15494 0.0011841038940474 15495 0.0011840672232211 15496 0.0011840307852253 15497 0.0011839945800602 15498 0.0011839577928185 15499 0.0011839210055768 15500 0.0011838850332424 15501 0.0011838482460007 15502 0.0011838115751743 15503 0.0011837750207633 15504 0.0011837388155982 15505 0.0011837014462799 15506 0.0011836655903608 15507 0.0011836289195344 15508 0.0011835924815387 15509 0.0011835559271276 15510 0.0011835198383778 15511 0.0011834831675515 15512 0.0011834469623864 15513 0.0011834108736366 15514 0.0011833743192255 15515 0.0011833379976451 15516 0.0011833017924801 15517 0.0011832659365609 15518 0.0011832294985652 15519 0.0011831932934001 15520 0.0011831567389891 15521 0.0011831206502393 15522 0.0011830842122436 15523 0.0011830485891551 15524 0.0011830118019134 15525 0.001182975480333 15526 0.0011829390423372 15527 0.0011829027207568 15528 0.0011828674469143 15529 0.0011828310089186 15530 0.0011827948037535 15531 0.0011827587150037 15532 0.0011827220441774 15533 0.0011826861882582 15534 0.0011826502159238 15535 0.0011826136615127 15536 0.001182577572763 15537 0.0011825417168438 15538 0.0011825051624328 15539 0.0011824702378362 15540 0.0011824341490865 15541 0.0011823982931674 15542 0.0011823623208329 15543 0.0011823265813291 15544 0.0011822909582406 15545 0.0011822556843981 15546 0.0011822199448943 15547 0.0011821839725599 15548 0.0011821482330561 15549 0.0011821123771369 15550 0.0011820767540485 15551 0.0011820413637906 15552 0.0011820059735328 15553 0.0011819696519524 15554 0.0011819340288639 15555 0.0011818981729448 15556 0.0011818631319329 15557 0.0011818273924291 15558 0.001181791885756 15559 0.0011817560298368 15560 0.001181720290333 15561 0.0011816844344139 15562 0.0011816488113254 15563 0.0011816135374829 15564 0.0011815776815638 15565 0.0011815418256447 15566 0.0011815057368949 15567 0.0011814698809758 15568 0.0011814343743026 15569 0.0011813987512141 15570 0.0011813630117103 15571 0.0011813275050372 15572 0.0011812918819487 15573 0.0011812564916909 15574 0.0011812205193564 15575 0.0011811850126833 15576 0.0011811490403488 15577 0.001181113300845 15578 0.0011810776777565 15579 0.0011810420546681 15580 0.0011810061987489 15581 0.0011809706920758 15582 0.0011809350689873 15583 0.0011808995623142 15584 0.0011808641720563 15585 0.0011808284325525 15586 0.001180792809464 15587 0.0011807568371296 15588 0.0011807221453637 15589 0.0011806865222752 15590 0.0011806504335254 15591 0.0011806145776063 15592 0.0011805794201791 15593 0.0011805433314294 15594 0.0011805080575868 15595 0.0011804725509137 15596 0.0011804372770712 15597 0.0011804018868133 15598 0.0011803657980636 15599 0.0011803301749751 15600 0.00118029396981 15601 0.0011802586959675 15602 0.001180223072879 15603 0.0011801875662059 15604 0.001180152175948 15605 0.0011801169021055 15606 0.0011800810461864 15607 0.0011800451902673 15608 0.0011800095671788 15609 0.0011799742933363 15610 0.0011799387866631 15611 0.00117990327999 15612 0.0011798675404862 15613 0.0011798318009824 15614 0.0011797962943092 15615 0.0011797606712207 15616 0.0011797250481322 15617 0.0011796900071204 15618 0.0011796543840319 15619 0.0011796186445281 15620 0.0011795831378549 15621 0.0011795472819358 15622 0.001179511193186 15623 0.0011794756865129 15624 0.0011794400634244 15625 0.0011794046731666 15626 0.0011793687008321 15627 0.0011793338926509 15628 0.0011792983859777 15629 0.0011792625300586 15630 0.0011792269069701 15631 0.0011791912838817 15632 0.0011791555443779 15633 0.0011791202705353 15634 0.0011790845310315 15635 0.0011790490243584 15636 0.0011790134012699 15637 0.0011789782438427 15638 0.0011789425043389 15639 0.0011789072304964 15640 0.0011788714909926 15641 0.0011788357514888 15642 0.0011788007104769 15643 0.0011787649709731 15644 0.0011787294643 15645 0.0011786940740421 15646 0.0011786589166149 15647 0.0011786234099418 15648 0.0011785879032686 15649 0.0011785523965955 15650 0.0011785165406764 15651 0.0011784813832492 15652 0.0011784454109147 15653 0.0011784099042416 15654 0.001178374979645 15655 0.0011783392401412 15656 0.0011783043155447 15657 0.0011782683432102 15658 0.0011782336514443 15659 0.0011781976791099 15660 0.0011781621724367 15661 0.0011781272478402 15662 0.0011780918575823 15663 0.0011780563509092 15664 0.0011780213098973 15665 0.0011779859196395 15666 0.0011779504129663 15667 0.0011779147898778 15668 0.0011778798652813 15669 0.0011778442421928 15670 0.0011778095504269 15671 0.0011777736945078 15672 0.0011777384206653 15673 0.0011777031468228 15674 0.0011776669416577 15675 0.0011776320170611 15676 0.0011775963939726 15677 0.0011775614693761 15678 0.0011775263119489 15679 0.0011774904560298 15680 0.0011774562299252 15681 0.0011774204904214 15682 0.0011773852165788 15683 0.0011773502919823 15684 0.0011773153673857 15685 0.0011772802099586 15686 0.0011772448197007 15687 0.0011772098951042 15688 0.001177174737677 15689 0.0011771400459111 15690 0.0011771046556532 15691 0.0011770700803027 15692 0.0011770348064601 15693 0.0011769995326176 15694 0.0011769644916058 15695 0.0011769293341786 15696 0.0011768946424127 15697 0.0011768593685701 15698 0.0011768239783123 15699 0.0011767894029617 15700 0.0011767538962886 15701 0.0011767188552767 15702 0.0011766836978495 15703 0.0011766491224989 15704 0.0011766140814871 15705 0.0011765790404752 15706 0.0011765444651246 15707 0.0011765093076974 15708 0.0011764747323468 15709 0.0011764399241656 15710 0.0011764052323997 15711 0.0011763708898798 15712 0.0011763359652832 15713 0.0011763009242713 15714 0.0011762662325054 15715 0.0011762313079089 15716 0.001176196266897 15717 0.0011761619243771 15718 0.0011761269997805 15719 0.0011760923080146 15720 0.0011760572670028 15721 0.0011760225752369 15722 0.0011759876506403 15723 0.0011759534245357 15724 0.0011759183835238 15725 0.0011758838081732 15726 0.001175848650746 15727 0.0011758133769035 15728 0.0011757786851376 15729 0.0011757442262024 15730 0.0011757095344365 15731 0.0011756746098399 15732 0.0011756401509047 15733 0.0011756046442315 15734 0.0011755703017116 15735 0.0011755351442844 15736 0.0011755003361031 15737 0.0011754657607526 15738 0.0011754303704947 15739 0.0011753964936361 15740 0.0011753608705476 15741 0.0011753264116123 15742 0.0011752912541851 15743 0.0011752566788346 15744 0.0011752222198993 15745 0.0011751871788874 15746 0.0011751529527828 15747 0.0011751177953556 15748 0.0011750827543437 15749 0.0011750485282391 15750 0.0011750137200579 15751 0.0011749785626307 15752 0.0011749438708648 15753 0.0011749092955142 15754 0.001174874138087 15755 0.0011748394463211 15756 0.0011748049873859 15757 0.0011747701792046 15758 0.0011747353710234 15759 0.0011747005628422 15760 0.0011746662203223 15761 0.0011746310628951 15762 0.0011745960218832 15763 0.0011745614465326 15764 0.0011745267547667 15765 0.0011744925286621 15766 0.0011744578368962 15767 0.001174423028715 15768 0.0011743879877031 15769 0.0011743532959372 15770 0.0011743186041713 15771 0.001174284145236 15772 0.0011742496863008 15773 0.0011742149945349 15774 0.001174179604277 15775 0.0011741451453418 15776 0.0011741099879146 15777 0.0011740755289793 15778 0.0011740406043828 15779 0.0011740066111088 15780 0.0011739716865122 15781 0.001173936529085 15782 0.0011739020701498 15783 0.0011738670291379 15784 0.0011738330358639 15785 0.0011737982276827 15786 0.0011737638851628 15787 0.0011737287277356 15788 0.001173693803139 15789 0.0011736592277884 15790 0.0011736244196072 15791 0.0011735898442566 15792 0.0011735549196601 15793 0.0011735204607248 15794 0.0011734855361283 15795 0.0011734507279471 15796 0.0011734161525965 15797 0.0011733816936612 15798 0.0011733474675566 15799 0.0011733118444681 15800 0.0011732769198716 15801 0.0011732425773516 15802 0.0011732076527551 15803 0.0011731734266505 15804 0.0011731388512999 15805 0.0011731042759493 15806 0.0011730690021068 15807 0.0011730339610949 15808 0.0011729995021597 15809 0.0011729648103938 15810 0.0011729301186278 15811 0.0011728957761079 15812 0.001172861084342 15813 0.0011728263925761 15814 0.0011727917008102 15815 0.0011727570090443 15816 0.0011727217352018 15817 0.0011726879747584 15818 0.0011726527009159 15819 0.0011726184748113 15820 0.0011725838994607 15821 0.0011725488584489 15822 0.0011725146323442 15823 0.0011724795913324 15824 0.0011724450159818 15825 0.0011724106734619 15826 0.0011723758652806 15827 0.00117234128993 15828 0.0011723063653335 15829 0.0011722719063982 15830 0.0011722368653864 15831 0.0011722029885277 15832 0.0011721679475158 15833 0.0011721331393346 15834 0.0011720986803994 15835 0.0011720636393875 15836 0.0011720294132829 15837 0.0011719949543476 15838 0.0011719608446583 15839 0.0011719259200618 15840 0.0011718918103725 15841 0.0011718570021912 15842 0.001171822543256 15843 0.0011717877350748 15844 0.0011717535089701 15845 0.0011717184679583 15846 0.0011716838926077 15847 0.0011716492008418 15848 0.0011716147419065 15849 0.0011715800501406 15850 0.0011715453583747 15851 0.0011715108994395 15852 0.0011714767897502 15853 0.0011714425636455 15854 0.0011714081047103 15855 0.001171373995021 15856 0.0011713395360857 15857 0.0011713055428118 15858 0.0011712708510458 15859 0.0011712368577719 15860 0.001171202166006 15861 0.0011711680563167 15862 0.0011711338302121 15863 0.0011710989056155 15864 0.0011710644466802 15865 0.0011710304534063 15866 0.0011709961108863 15867 0.0011709614191204 15868 0.0011709274258465 15869 0.0011708923848346 15870 0.0011708589736372 15871 0.0011708248639479 15872 0.0011707900557667 15873 0.0011707559460774 15874 0.0011707218363881 15875 0.0011706873774529 15876 0.0011706535005942 15877 0.0011706198565662 15878 0.0011705852812156 15879 0.0011705518700182 15880 0.0011705171782523 15881 0.0011704833013937 15882 0.0011704496573657 15883 0.0011704150820151 15884 0.0011703810887411 15885 0.0011703473282978 15886 0.0011703131021932 15887 0.0011702789925039 15888 0.0011702446499839 15889 0.0011702104238793 15890 0.0011701761977747 15891 0.0011701425537467 15892 0.0011701085604727 15893 0.0011700744507834 15894 0.0011700405739248 15895 0.0011700061149895 15896 0.0011699721217155 15897 0.0011699381284416 15898 0.001169903902337 15899 0.0011698703747243 15900 0.0011698361486197 15901 0.0011698020389304 15902 0.0011697681620717 15903 0.0011697344016284 15904 0.0011697000591084 15905 0.0011696665314957 15906 0.0011696319561452 15907 0.0011695978464559 15908 0.0011695642024279 15909 0.0011695299763232 15910 0.0011694959830493 15911 0.0011694622226059 15912 0.001169427880086 15913 0.001169393886812 15914 0.0011693600099534 15915 0.0011693259002641 15916 0.0011692915577441 15917 0.0011692580301315 15918 0.0011692240368575 15919 0.0011691900435835 15920 0.0011691563995555 15921 0.0011691222898662 15922 0.0011690881801769 15923 0.0011690543033183 15924 0.0011690199607983 15925 0.0011689857346937 15926 0.001168952207081 15927 0.0011689183302224 15928 0.0011688838712871 15929 0.0011688505765051 15930 0.0011688161175698 15931 0.0011687825899571 15932 0.0011687483638525 15933 0.0011687141377479 15934 0.0011686808429658 15935 0.0011686466168612 15936 0.0011686123907566 15937 0.0011685786303133 15938 0.0011685448698699 15939 0.0011685104109347 15940 0.0011684769997373 15941 0.0011684426572174 15942 0.0011684079654515 15943 0.0011683743214235 15944 0.0011683402117342 15945 0.0011683063348755 15946 0.0011682726908475 15947 0.0011682383483276 15948 0.0011682042386383 15949 0.0011681707110256 15950 0.0011681367177516 15951 0.0011681023752317 15952 0.0011680687312037 15953 0.0011680346215144 15954 0.0011680005118251 15955 0.001167967217043 15956 0.0011679324088618 15957 0.0011678985320032 15958 0.0011678648879752 15959 0.0011678308947012 15960 0.0011677971342579 15961 0.0011677625589073 15962 0.0011677287984639 15963 0.0011676945723593 15964 0.0011676609283313 15965 0.0011676267022267 15966 0.0011675929417834 15967 0.0011675588320941 15968 0.0011675248388201 15969 0.0011674909619614 15970 0.0011674562701955 15971 0.0011674230918288 15972 0.0011673893313855 15973 0.0011673553381115 15974 0.0011673209955916 15975 0.0011672872351483 15976 0.0011672534747049 15977 0.0011672197142616 15978 0.0011671858374029 15979 0.0011671523097903 15980 0.0011671185493469 15981 0.0011670850217342 15982 0.0011670514941216 15983 0.0011670177336782 15984 0.0011669838568196 15985 0.0011669499799609 15986 0.0011669168015942 15987 0.0011668824590743 15988 0.0011668493971229 15989 0.0011668157530949 15990 0.0011667818762362 15991 0.0011667486978695 15992 0.0011667148210108 15993 0.0011666809441522 15994 0.0011666479986161 15995 0.0011666138889268 15996 0.0011665804777294 15997 0.0011665469501168 15998 0.0011665128404275 15999 0.0011664795456454 16000 0.0011664462508634 16001 0.0011664123740047 16002 0.0011663786135614 16003 0.001166345202364 16004 0.0011663117911667 16005 0.001166277914308 16006 0.0011662445031106 16007 0.001166210975498 16008 0.0011661772150546 16009 0.0011661439202726 16010 0.0011661100434139 16011 0.0011660763993859 16012 0.0011660429881886 16013 0.0011660092277452 16014 0.0011659760493785 16015 0.0011659420561045 16016 0.0011659082956612 16017 0.0011658748844638 16018 0.0011658410076052 16019 0.0011658077128232 16020 0.0011657739523798 16021 0.0011657401919365 16022 0.0011657066643238 16023 0.0011656734859571 16024 0.0011656400747597 16025 0.001165606547147 16026 0.001165573252365 16027 0.0011655401904136 16028 0.0011655061971396 16029 0.0011654729023576 16030 0.0011654398404062 16031 0.0011654065456241 16032 0.0011653732508421 16033 0.0011653399560601 16034 0.001165306312032 16035 0.0011652732500806 16036 0.0011652394896373 16037 0.0011652063112706 16038 0.0011651732493192 16039 0.0011651397217065 16040 0.0011651061940938 16041 0.0011650727828965 16042 0.0011650397209451 16043 0.0011650061933324 16044 0.0011649725493044 16045 0.0011649392545223 16046 0.0011649064254016 16047 0.0011648728977889 16048 0.0011648398358375 16049 0.0011648070067167 16050 0.0011647737119347 16051 0.0011647411156446 16052 0.0011647077044472 16053 0.0011646747589111 16054 0.0011646412312984 16055 0.001164608867839 16056 0.0011645759223029 16057 0.0011645426275209 16058 0.0011645100312307 16059 0.0011644765036181 16060 0.0011644428595901 16061 0.0011644103797153 16062 0.0011643774341792 16063 0.0011643443722278 16064 0.0011643110774457 16065 0.0011642776662484 16066 0.0011642449535429 16067 0.0011642114259303 16068 0.0011641782475635 16069 0.0011641456512734 16070 0.0011641121236607 16071 0.0011640782468021 16072 0.0011640455340967 16073 0.0011640123557299 16074 0.0011639792937785 16075 0.0011639469303191 16076 0.0011639134027064 16077 0.0011638804571703 16078 0.0011638470459729 16079 0.0011638141004369 16080 0.0011637806892395 16081 0.0011637477437034 16082 0.0011637142160907 16083 0.0011636812705547 16084 0.0011636483250186 16085 0.0011636149138212 16086 0.0011635816190392 16087 0.0011635489063337 16088 0.0011635154951364 16089 0.0011634826660156 16090 0.0011634494876489 16091 0.0011634165421128 16092 0.0011633837129921 16093 0.00116335041821 16094 0.0011633172398433 16095 0.0011632846435532 16096 0.0011632514651865 16097 0.0011632181704044 16098 0.0011631845263764 16099 0.0011631519300863 16100 0.0011631187517196 16101 0.0011630852241069 16102 0.0011630521621555 16103 0.0011630196822807 16104 0.001162986503914 16105 0.0011629530927166 16106 0.0011629200307652 16107 0.0011628870852292 16108 0.001162854488939 16109 0.001162820844911 16110 0.0011627880157903 16111 0.0011627554195002 16112 0.0011627218918875 16113 0.0011626888299361 16114 0.0011626560008153 16115 0.0011626229388639 16116 0.0011625897604972 16117 0.0011625571642071 16118 0.0011625238694251 16119 0.0011624910403043 16120 0.0011624578619376 16121 0.0011624250328168 16122 0.0011623920872808 16123 0.0011623590253294 16124 0.0011623257305473 16125 0.0011622926685959 16126 0.0011622592573985 16127 0.0011622266611084 16128 0.0011621932499111 16129 0.0011621601879597 16130 0.0011621274752542 16131 0.0011620947625488 16132 0.0011620613513514 16133 0.0011620284058154 16134 0.0011619954602793 16135 0.0011619626311585 16136 0.0011619294527918 16137 0.0011618968565017 16138 0.0011618634453043 16139 0.0011618304997683 16140 0.0011617974378169 16141 0.0011617648415267 16142 0.0011617313139141 16143 0.0011616984847933 16144 0.0011616658885032 16145 0.0011616325937212 16146 0.001161599997431 16147 0.001161566702649 16148 0.0011615341063589 16149 0.0011615010444075 16150 0.0011614684481174 16151 0.0011614351533353 16152 0.0011614023242146 16153 0.0011613694950938 16154 0.0011613359674811 16155 0.001161303371191 16156 0.0011612699599937 16157 0.0011612372472882 16158 0.0011612044181675 16159 0.0011611713562161 16160 0.001161138759926 16161 0.0011611056979746 16162 0.0011610727524385 16163 0.0011610398069024 16164 0.001161007094197 16165 0.0011609739158303 16166 0.0011609408538789 16167 0.0011609082575887 16168 0.001160875079222 16169 0.0011608421336859 16170 0.0011608090717345 16171 0.0011607760097831 16172 0.001160743413493 16173 0.001160710467957 16174 0.0011606777552515 16175 0.0011606448097154 16176 0.0011606118641794 16177 0.001160578802228 16178 0.0011605460895225 16179 0.0011605134932324 16180 0.0011604799656197 16181 0.0011604472529143 16182 0.0011604144237936 16183 0.0011603814782575 16184 0.001160348765552 16185 0.001160315820016 16186 0.0011602826416492 16187 0.0011602498125285 16188 0.0011602169834077 16189 0.0011601839214563 16190 0.0011601510923356 16191 0.0011601180303842 16192 0.0011600853176787 16193 0.0011600527213886 16194 0.0011600193101913 16195 0.0011599869467318 16196 0.0011599537683651 16197 0.0011599210556597 16198 0.0011598876444623 16199 0.0011598551645875 16200 0.0011598222190514 16201 0.0011597897391766 16202 0.0011597571428865 16203 0.0011597243137658 16204 0.001159691484645 16205 0.0011596588883549 16206 0.0011596268741414 16207 0.0011595935793594 16208 0.0011595608666539 16209 0.0011595287360251 16210 0.0011594954412431 16211 0.0011594633106142 16212 0.0011594302486628 16213 0.0011593980016187 16214 0.0011593650560826 16215 0.0011593324597925 16216 0.001159300445579 16217 0.0011592676164582 16218 0.0011592352529988 16219 0.001159202773124 16220 0.0011591701768339 16221 0.0011591373477131 16222 0.0011591049842536 16223 0.0011590723879635 16224 0.0011590400245041 16225 0.0011590078938752 16226 0.0011589755304158 16227 0.0011589432833716 16228 0.0011589105706662 16229 0.0011588784400374 16230 0.0011588463094085 16231 0.0011588134802878 16232 0.0011587818153203 16233 0.0011587494518608 16234 0.00115871662274 16235 0.0011586854234338 16236 0.001158652943559 16237 0.0011586201144382 16238 0.0011585879838094 16239 0.0011585562024266 16240 0.0011585233733058 16241 0.001158491242677 16242 0.0011584588792175 16243 0.0011584269814193 16244 0.0011583946179599 16245 0.0011583622545004 16246 0.0011583298910409 16247 0.0011582975275815 16248 0.001158265164122 16249 0.0011582324514166 16250 0.001158201135695 16251 0.0011581685394049 16252 0.0011581359431148 16253 0.0011581038124859 16254 0.0011580712161958 16255 0.0011580392019823 16256 0.0011580067221075 16257 0.0011579748243093 16258 0.0011579425772652 16259 0.0011579103302211 16260 0.0011578781995922 16261 0.0011578459525481 16262 0.0011578132398427 16263 0.0011577813420445 16264 0.001157748978585 16265 0.0011577168479562 16266 0.0011576848337427 16267 0.0011576525866985 16268 0.0011576199904084 16269 0.0011575878597796 16270 0.0011575553799048 16271 0.0011575230164453 16272 0.0011574913514778 16273 0.0011574591044337 16274 0.0011574262753129 16275 0.0011573939118534 16276 0.001157361548394 16277 0.0011573295341805 16278 0.0011572972871363 16279 0.0011572651565075 16280 0.0011572332587093 16281 0.0011572004295886 16282 0.0011571681825444 16283 0.0011571362847462 16284 0.0011571035720408 16285 0.0011570713249967 16286 0.0011570389615372 16287 0.0011570075294003 16288 0.0011569749331102 16289 0.001156942686066 16290 0.0011569099733606 16291 0.0011568779591471 16292 0.0011568459449336 16293 0.0011568134650588 16294 0.0011567819165066 16295 0.0011567492038012 16296 0.001156716607511 16297 0.0011566848261282 16298 0.0011566521134228 16299 0.0011566197499633 16300 0.0011565873865038 16301 0.0011565557215363 16302 0.0011565230088308 16303 0.0011564909946173 16304 0.0011564590968192 16305 0.0011564261512831 16306 0.0011563946027309 16307 0.0011563620064408 16308 0.0011563301086426 16309 0.0011562979780138 16310 0.0011562658473849 16311 0.0011562334839255 16312 0.0011562008876354 16313 0.0011561687570065 16314 0.0011561363935471 16315 0.0011561044957489 16316 0.0011560721322894 16317 0.0011560403509066 16318 0.0011560074053705 16319 0.001155975041911 16320 0.0011559437261894 16321 0.001155911013484 16322 0.0011558792321011 16323 0.0011558468686417 16324 0.0011558148544282 16325 0.0011557823745534 16326 0.0011557503603399 16327 0.0011557184625417 16328 0.0011556856334209 16329 0.0011556535027921 16330 0.0011556213721633 16331 0.0011555892415345 16332 0.001155556878075 16333 0.0011555245146155 16334 0.001155492849648 16335 0.0011554597876966 16336 0.0011554285883904 16337 0.0011553962249309 16338 0.0011553639778867 16339 0.0011553319636732 16340 0.0011552993673831 16341 0.0011552670039237 16342 0.0011552351061255 16343 0.0011552036739886 16344 0.0011551708448678 16345 0.0011551388306543 16346 0.0011551065836102 16347 0.0011550745693967 16348 0.0011550422059372 16349 0.0011550098424777 16350 0.0011549781775102 16351 0.0011549459304661 16352 0.0011549139162526 16353 0.0011548812035471 16354 0.0011548495385796 16355 0.0011548174079508 16356 0.00115478457883 16357 0.0011547529138625 16358 0.0011547207832336 16359 0.0011546886526048 16360 0.00115465617273 16361 0.0011546241585165 16362 0.0011545915622264 16363 0.0011545593151823 16364 0.0011545275337994 16365 0.0011544957524166 16366 0.0011544636217877 16367 0.0011544309090823 16368 0.0011543994769454 16369 0.0011543668806553 16370 0.0011543347500265 16371 0.001154302735813 16372 0.0011542703723535 16373 0.001154238008894 16374 0.0011542061110958 16375 0.0011541735148057 16376 0.0011541417334229 16377 0.0011541097192094 16378 0.0011540772393346 16379 0.0011540448758751 16380 0.0011540137929842 16381 0.0011539816623554 16382 0.0011539494153112 16383 0.001153918216005 16384 0.0011538862017915 16385 0.0011538539547473 16386 0.0011538224061951 16387 0.0011537906248122 16388 0.0011537584941834 16389 0.0011537265963852 16390 0.0011536944657564 16391 0.0011536626843736 16392 0.0011536305537447 16393 0.0011535991216078 16394 0.0011535667581484 16395 0.0011535350931808 16396 0.001153503311798 16397 0.0011534708319232 16398 0.0011534391669556 16399 0.0011534076184034 16400 0.0011533756041899 16401 0.0011533435899764 16402 0.0011533118085936 16403 0.0011532800272107 16404 0.0011532481294125 16405 0.0011532165808603 16406 0.0011531843338162 16407 0.0011531529016793 16408 0.0011531207710505 16409 0.0011530893389136 16410 0.001153058023192 16411 0.0011530256597325 16412 0.0011529946932569 16413 0.0011529629118741 16414 0.0011529311304912 16415 0.0011528994655237 16416 0.0011528683826327 16417 0.0011528362520039 16418 0.0011528047034517 16419 0.0011527729220688 16420 0.0011527413735166 16421 0.0011527106398717 16422 0.0011526783928275 16423 0.0011526474263519 16424 0.001152615644969 16425 0.0011525836307555 16426 0.0011525517329574 16427 0.0011525206500664 16428 0.0011524891015142 16429 0.001152457902208 16430 0.0011524260044098 16431 0.0011523948051035 16432 0.001152363140136 16433 0.0011523314751685 16434 0.0011522996937856 16435 0.0011522686108947 16436 0.0011522364802659 16437 0.0011522049317136 16438 0.0011521738488227 16439 0.0011521419510245 16440 0.001152110635303 16441 0.0011520789703354 16442 0.0011520476546139 16443 0.001152015523985 16444 0.0011519842082635 16445 0.0011519526597112 16446 0.0011519209947437 16447 0.0011518895626068 16448 0.001151857781224 16449 0.0011518259998411 16450 0.0011517952661961 16451 0.0011517636012286 16452 0.0011517317034304 16453 0.0011517002712935 16454 0.0011516687227413 16455 0.0011516371741891 16456 0.0011516050435603 16457 0.0011515740770847 16458 0.0011515426449478 16459 0.0011515107471496 16460 0.0011514793150127 16461 0.0011514476500452 16462 0.0011514159850776 16463 0.0011513845529407 16464 0.0011513533536345 16465 0.0011513215722516 16466 0.0011512894416228 16467 0.0011512581259012 16468 0.0011512268101797 16469 0.0011511949123815 16470 0.0011511640623212 16471 0.0011511327465996 16472 0.0011511008488014 16473 0.0011510693002492 16474 0.0011510378681123 16475 0.0011510065523908 16476 0.0011509748874232 16477 0.0011509432224557 16478 0.0011509113246575 16479 0.0011508804745972 16480 0.001150848926045 16481 0.0011508173774928 16482 0.0011507858289406 16483 0.001150754513219 16484 0.0011507231974974 16485 0.0011506912996992 16486 0.001150660100393 16487 0.0011506286682561 16488 0.0011505972361192 16489 0.0011505655711517 16490 0.0011505344882607 16491 0.0011505025904626 16492 0.001150471274741 16493 0.0011504400754347 16494 0.0011504084104672 16495 0.0011503769783303 16496 0.0011503456626087 16497 0.0011503143468872 16498 0.001150282798335 16499 0.0011502507841215 16500 0.0011502194683999 16501 0.0011501889675856 16502 0.0011501568369567 16503 0.0011501252884045 16504 0.0011500944383442 16505 0.0011500630062073 16506 0.0011500313412398 16507 0.0011499996762723 16508 0.0011499682441354 16509 0.0011499372776598 16510 0.0011499054962769 16511 0.001149874413386 16512 0.0011498427484185 16513 0.0011498109670356 16514 0.0011497798841447 16515 0.0011497486848384 16516 0.0011497170198709 16517 0.001149685238488 16518 0.0011496539227664 16519 0.0011496224906296 16520 0.0011495912913233 16521 0.0011495596263558 16522 0.0011495279613882 16523 0.0011494966456667 16524 0.0011494652135298 16525 0.0011494337813929 16526 0.0011494021164253 16527 0.0011493710335344 16528 0.0011493393685669 16529 0.00114930793643 16530 0.001149277202785 16531 0.0011492450721562 16532 0.0011492132907733 16533 0.0011491822078824 16534 0.0011491508921608 16535 0.0011491193436086 16536 0.0011490874458104 16537 0.0011490568285808 16538 0.0011490252800286 16539 0.0011489934986457 16540 0.0011489625321701 16541 0.0011489306343719 16542 0.0011488994350657 16543 0.0011488677700981 16544 0.0011488368036225 16545 0.001148805138655 16546 0.0011487735901028 16547 0.0011487422743812 16548 0.0011487111914903 16549 0.0011486795265228 16550 0.0011486478615552 16551 0.0011486170114949 16552 0.0011485853465274 16553 0.0011485539143905 16554 0.0011485223658383 16555 0.0011484913993627 16556 0.0011484595015645 16557 0.0011484280694276 16558 0.0011483964044601 16559 0.0011483659036458 16560 0.0011483341222629 16561 0.0011483025737107 16562 0.0011482720728964 16563 0.0011482408735901 16564 0.0011482097906992 16565 0.0011481787078083 16566 0.0011481470428407 16567 0.0011481161927804 16568 0.0011480851098895 16569 0.0011480536777526 16570 0.0011480231769383 16571 0.0011479915119708 16572 0.0011479604290798 16573 0.0011479295790195 16574 0.0011478983797133 16575 0.0011478672968224 16576 0.0011478356318548 16577 0.0011478052474558 16578 0.0011477738153189 16579 0.0011477426160127 16580 0.0011477118823677 16581 0.0011476806830615 16582 0.0011476494837552 16583 0.001147617935203 16584 0.0011475872015581 16585 0.0011475560022518 16586 0.0011475246865302 16587 0.0011474937200546 16588 0.001147462753579 16589 0.0011474313214421 16590 0.0011474005877972 16591 0.0011473700869828 16592 0.0011473390040919 16593 0.0011473078047857 16594 0.0011472777696326 16595 0.0011472463374957 16596 0.0011472154874355 16597 0.0011471846373752 16598 0.0011471533216536 16599 0.0011471234029159 16600 0.0011470918543637 16601 0.0011470613535494 16602 0.0011470307363197 16603 0.0011469990713522 16604 0.0011469693854451 16605 0.0011469379533082 16606 0.0011469073360786 16607 0.0011468764860183 16608 0.001146845635958 16609 0.0011468147858977 16610 0.0011467842850834 16611 0.0011467527365312 16612 0.0011467222357169 16613 0.0011466917349026 16614 0.0011466608848423 16615 0.0011466301511973 16616 0.0011465986026451 16617 0.0011465681018308 16618 0.0011465372517705 16619 0.0011465065181255 16620 0.0011464757844806 16621 0.0011464445851743 16622 0.0011464142007753 16623 0.0011463831178844 16624 0.0011463525006548 16625 0.0011463211849332 16626 0.0011462911497802 16627 0.0011462602997199 16628 0.0011462289839983 16629 0.0011461985995993 16630 0.0011461672838777 16631 0.0011461368994787 16632 0.0011461060494184 16633 0.0011460753157735 16634 0.0011460441164672 16635 0.001146012917161 16636 0.0011459831148386 16637 0.0011459514498711 16638 0.0011459211818874 16639 0.0011458905646577 16640 0.0011458600638434 16641 0.0011458289809525 16642 0.0011457982473075 16643 0.0011457670480013 16644 0.001145736197941 16645 0.0011457060463727 16646 0.0011456747306511 16647 0.0011456438805908 16648 0.0011456131469458 16649 0.0011455828789622 16650 0.0011455516796559 16651 0.0011455209460109 16652 0.001145490212366 16653 0.0011454592458904 16654 0.0011454287450761 16655 0.0011453975457698 16656 0.0011453677434474 16657 0.0011453361948952 16658 0.0011453058104962 16659 0.0011452747276053 16660 0.001145243877545 16661 0.0011452136095613 16662 0.0011451820610091 16663 0.0011451519094408 16664 0.0011451214086264 16665 0.0011450902093202 16666 0.0011450598249212 16667 0.0011450285091996 16668 0.0011449982412159 16669 0.001144967507571 16670 0.0011449365410954 16671 0.0011449062731117 16672 0.0011448753066361 16673 0.0011448443401605 16674 0.0011448136065155 16675 0.0011447826400399 16676 0.0011447522556409 16677 0.0011447216384113 16678 0.0011446906719357 16679 0.0011446599382907 16680 0.0011446292046458 16681 0.0011445984710008 16682 0.0011445677373558 16683 0.0011445367708802 16684 0.0011445065028965 16685 0.0011444757692516 16686 0.0011444446863607 16687 0.001144414069131 16688 0.0011443832190707 16689 0.0011443528346717 16690 0.0011443216353655 16691 0.0011442916002125 16692 0.0011442604009062 16693 0.0011442297836766 16694 0.0011441991664469 16695 0.00114416773431 16696 0.001144137349911 16697 0.0011441063834354 16698 0.0011440764646977 16699 0.0011440454982221 16700 0.0011440138332546 16701 0.0011439841473475 16702 0.0011439529480413 16703 0.0011439222143963 16704 0.001143891364336 16705 0.001143860979937 16706 0.0011438302462921 16707 0.0011437995126471 16708 0.0011437684297562 16709 0.0011437376961112 16710 0.0011437069624662 16711 0.0011436758795753 16712 0.0011436459608376 16713 0.001143614994362 16714 0.001143584609963 16715 0.0011435535270721 16716 0.0011435227934271 16717 0.0011434919433668 16718 0.0011434609768912 16719 0.0011434305924922 16720 0.0011433997424319 16721 0.0011433688923717 16722 0.001143338275142 16723 0.0011433076579124 16724 0.0011432766914368 16725 0.0011432454921305 16726 0.0011432152241468 16727 0.0011431848397478 16728 0.0011431541061029 16729 0.0011431232560426 16730 0.0011430927552283 16731 0.001143061905168 16732 0.0011430310551077 16733 0.0011430005542934 16734 0.0011429698206484 16735 0.0011429390870035 16736 0.0011429080041125 16737 0.0011428773868829 16738 0.0011428470024839 16739 0.0011428167345002 16740 0.0011427854187787 16741 0.0011427544523031 16742 0.0011427245335653 16743 0.0011426933342591 16744 0.0011426629498601 16745 0.0011426316341385 16746 0.0011426015989855 16747 0.0011425709817559 16748 0.0011425405973569 16749 0.0011425102129579 16750 0.0011424797121435 16751 0.0011424501426518 16752 0.0011424192925915 16753 0.0011423893738538 16754 0.0011423588730395 16755 0.001142329769209 16756 0.0011422988027334 16757 0.0011422684183344 16758 0.0011422382667661 16759 0.0011422078823671 16760 0.0011421780800447 16761 0.0011421479284763 16762 0.0011421175440773 16763 0.0011420878581703 16764 0.0011420575901866 16765 0.0011420273222029 16766 0.0011419974034652 16767 0.0011419667862356 16768 0.0011419365182519 16769 0.0011419062502682 16770 0.0011418764479458 16771 0.0011418462963775 16772 0.0011418159119785 16773 0.0011417858768255 16774 0.0011417558416724 16775 0.00114172603935 16776 0.0011416958877817 16777 0.0011416665511206 16778 0.0011416362831369 16779 0.0011416065972298 16780 0.0011415770277381 16781 0.0011415468761697 16782 0.001141516957432 16783 0.001141487271525 16784 0.0011414578184485 16785 0.0011414280161262 16786 0.0011413984466344 16787 0.0011413688771427 16788 0.001141338609159 16789 0.0011413090396672 16790 0.0011412791209295 16791 0.001141250366345 16792 0.0011412205640227 16793 0.0011411904124543 16794 0.0011411608429626 16795 0.0011411310406402 16796 0.0011411015875638 16797 0.0011410719016567 16798 0.0011410424485803 16799 0.0011410124134272 16800 0.0011409830767661 16801 0.0011409532744437 16802 0.0011409239377826 16803 0.0011408939026296 16804 0.0011408639838919 16805 0.0011408351128921 16806 0.0011408051941544 16807 0.0011407752754167 16808 0.0011407458223403 16809 0.0011407156707719 16810 0.0011406864505261 16811 0.0011406566482037 16812 0.0011406273115426 16813 0.0011405973928049 16814 0.0011405679397285 16815 0.0011405379045755 16816 0.0011405081022531 16817 0.0011404788820073 16818 0.0011404488468543 16819 0.0011404195101932 16820 0.0011403899407014 16821 0.0011403602547944 16822 0.0011403305688873 16823 0.0011403011158109 16824 0.0011402711970732 16825 0.0011402417439967 16826 0.0011402115924284 16827 0.0011401822557673 16828 0.0011401530355215 16829 0.0011401233496144 16830 0.0011400934308767 16831 0.0011400636285543 16832 0.0011400340590626 16833 0.0011400043731555 16834 0.0011399752693251 16835 0.0011399454670027 16836 0.001139915548265 16837 0.0011398862116039 16838 0.0011398560600355 16839 0.0011398270726204 16840 0.001139797270298 16841 0.0011397671187297 16842 0.0011397380148992 16843 0.0011397087946534 16844 0.0011396788759157 16845 0.001139648957178 16846 0.0011396198533475 16847 0.0011395902838558 16848 0.0011395604815334 16849 0.0011395309120417 16850 0.001139500993304 16851 0.0011394717730582 16852 0.0011394420871511 16853 0.00113941275049 16854 0.0011393828317523 16855 0.0011393537279218 16856 0.0011393241584301 16857 0.0011392942396924 16858 0.0011392653686926 16859 0.0011392352171242 16860 0.0011392056476325 16861 0.001139176543802 16862 0.0011391467414796 16863 0.0011391168227419 16864 0.0011390873696655 16865 0.0011390580330044 16866 0.001139028230682 16867 0.0011389986611903 16868 0.0011389693245292 16869 0.0011389391729608 16870 0.0011389104183763 16871 0.0011388809652999 16872 0.0011388515122235 16873 0.0011388218263164 16874 0.00113879237324 16875 0.0011387629201636 16876 0.0011387331178412 16877 0.0011387037811801 16878 0.0011386743281037 16879 0.0011386445257813 16880 0.0011386151891202 16881 0.0011385860852897 16882 0.001138556166552 16883 0.0011385263642296 16884 0.0011384974932298 16885 0.0011384675744921 16886 0.0011384380050004 16887 0.0011384083190933 16888 0.0011383790988475 16889 0.0011383497621864 16890 0.001138319959864 16891 0.0011382901575416 16892 0.0011382614029571 16893 0.0011382314842194 16894 0.001138201681897 16895 0.0011381722288206 16896 0.0011381432414055 16897 0.0011381136719137 16898 0.0011380838695914 16899 0.0011380543000996 16900 0.0011380246141925 16901 0.0011379958596081 16902 0.001137965824455 16903 0.0011379364877939 16904 0.0011379064526409 16905 0.0011378775816411 16906 0.00113784824498 16907 0.0011378183262423 16908 0.0011377887567505 16909 0.0011377598857507 16910 0.0011377301998436 16911 0.0011377008631825 16912 0.0011376708280295 16913 0.0011376412585378 16914 0.001137612387538 16915 0.0011375825852156 16916 0.0011375530157238 16917 0.0011375234462321 16918 0.0011374943424016 16919 0.0011374650057405 16920 0.0011374357854947 16921 0.0011374059831724 16922 0.0011373769957572 16923 0.0011373474262655 16924 0.0011373178567737 16925 0.0011372884036973 16926 0.0011372589506209 16927 0.0011372293811291 16928 0.001137200393714 16929 0.0011371705913916 16930 0.0011371404398233 16931 0.0011371118016541 16932 0.001137082115747 16933 0.0011370530119166 16934 0.0011370233260095 16935 0.0011369937565178 16936 0.0011369647691026 16937 0.0011369355488569 16938 0.0011369052808732 16939 0.001136876293458 16940 0.0011368470732123 16941 0.0011368172708899 16942 0.0011367881670594 16943 0.0011367582483217 16944 0.0011367292609066 16945 0.0011366996914148 16946 0.0011366700055078 16947 0.0011366406688467 16948 0.0011366110993549 16949 0.0011365816462785 16950 0.0011365530081093 16951 0.0011365229729563 16952 0.0011364931706339 16953 0.0011364645324647 16954 0.0011364351958036 16955 0.0011364063248038 16956 0.0011363765224814 16957 0.001136347069405 16958 0.0011363183148205 16959 0.0011362892109901 16960 0.0011362597579136 16961 0.0011362312361598 16962 0.0011362017830834 16963 0.0011361725628376 16964 0.0011361439246684 16965 0.0011361143551767 16966 0.0011360850185156 16967 0.0011360560311005 16968 0.001136027276516 16969 0.0011359977070242 16970 0.0011359682539478 16971 0.001135939382948 16972 0.0011359099298716 16973 0.0011358817573637 16974 0.0011358526535332 16975 0.0011358235497028 16976 0.0011357949115336 16977 0.0011357662733644 16978 0.0011357374023646 16979 0.0011357088806108 16980 0.0011356803588569 16981 0.0011356514878571 16982 0.0011356226168573 16983 0.0011355944443494 16984 0.0011355651076883 16985 0.0011355365859345 16986 0.0011355085298419 16987 0.0011354794260114 16988 0.0011354510206729 16989 0.0011354223825037 16990 0.0011353937443346 16991 0.0011353647569194 16992 0.0011353362351656 16993 0.0011353077134117 16994 0.0011352787259966 16995 0.0011352498549968 16996 0.0011352217989042 16997 0.0011351929279044 16998 0.001135163824074 16999 0.0011351356515661 17000 0.0011351071298122 17001 0.0011350783752277 17002 0.0011350502027199 17003 0.0011350210988894 17004 0.0011349924607202 17005 0.0011349640553817 17006 0.0011349353007972 17007 0.0011349066626281 17008 0.0011348776752129 17009 0.0011348489206284 17010 0.0011348207481205 17011 0.0011347917607054 17012 0.0011347631225362 17013 0.0011347344843671 17014 0.0011347061954439 17015 0.0011346775572747 17016 0.0011346489191055 17017 0.0011346196988598 17018 0.0011345915263519 17019 0.001134563004598 17020 0.0011345341335982 17021 0.001134505844675 17022 0.0011344766244292 17023 0.0011344485683367 17024 0.0011344196973369 17025 0.001134390826337 17026 0.0011343625374138 17027 0.001134333666414 17028 0.0011343050282449 17029 0.0011342763900757 17030 0.0011342475190759 17031 0.001134219346568 17032 0.0011341902427375 17033 0.0011341619538143 17034 0.0011341333156452 17035 0.001134104677476 17036 0.0011340761557221 17037 0.001134047517553 17038 0.0011340187629685 17039 0.0011339901247993 17040 0.0011339623015374 17041 0.0011339334305376 17042 0.0011339045595378 17043 0.001133875688538 17044 0.0011338470503688 17045 0.0011338189942762 17046 0.0011337901232764 17047 0.0011337613686919 17048 0.0011337327305228 17049 0.0011337045580149 17050 0.0011336756870151 17051 0.0011336472816765 17052 0.0011336181778461 17053 0.0011335902381688 17054 0.0011335619492456 17055 0.0011335329618305 17056 0.001133504556492 17057 0.0011334756854922 17058 0.001133447396569 17059 0.0011334188748151 17060 0.0011333901202306 17061 0.0011333613656461 17062 0.0011333329603076 17063 0.0011333043221384 17064 0.0011332754511386 17065 0.0011332470458001 17066 0.0011332186404616 17067 0.001133190235123 17068 0.0011331615969539 17069 0.0011331327259541 17070 0.0011331042042002 17071 0.001133075566031 17072 0.0011330470442772 17073 0.0011330182896927 17074 0.0011329898843542 17075 0.0011329613626003 17076 0.0011329326080158 17077 0.0011329039698467 17078 0.0011328750988469 17079 0.001132846577093 17080 0.0011328187538311 17081 0.0011327899992466 17082 0.0011327608954161 17083 0.0011327326064929 17084 0.0011327042011544 17085 0.0011326753301546 17086 0.0011326468084008 17087 0.0011326184030622 17088 0.0011325895320624 17089 0.0011325619416311 17090 0.00113253260497 17091 0.0011325036175549 17092 0.001132475445047 17093 0.0011324464576319 17094 0.001132418285124 17095 0.0011323897633702 17096 0.001132361125201 17097 0.0011323321377859 17098 0.0011323038488626 17099 0.0011322754435241 17100 0.001132246805355 17101 0.0011322181671858 17102 0.0011321897618473 17103 0.0011321613565087 17104 0.0011321322526783 17105 0.0011321038473397 17106 0.0011320755584165 17107 0.0011320466874167 17108 0.0011320182820782 17109 0.0011319898767397 17110 0.0011319612385705 17111 0.001131932833232 17112 0.0011319038458169 17113 0.0011318752076477 17114 0.0011318471515551 17115 0.001131818513386 17116 0.0011317897588015 17117 0.0011317613534629 17118 0.0011317329481244 17119 0.0011317040771246 17120 0.0011316757882014 17121 0.0011316471500322 17122 0.0011316195596009 17123 0.0011315905721858 17124 0.001131561701186 17125 0.0011315329466015 17126 0.001131504541263 17127 0.0011314767180011 17128 0.0011314479634166 17129 0.0011314190924168 17130 0.0011313909199089 17131 0.0011313621653244 17132 0.0011313337599859 17133 0.0011313054710627 17134 0.0011312769493088 17135 0.0011312487768009 17136 0.0011312200222164 17137 0.0011311917332932 17138 0.0011311632115394 17139 0.0011311345733702 17140 0.0011311058187857 17141 0.0011310776462778 17142 0.00113104947377 17143 0.0011310207191855 17144 0.0011309921974316 17145 0.0011309633264318 17146 0.0011309350375086 17147 0.0011309066321701 17148 0.0011308786924928 17149 0.001130850519985 17150 0.0011308217654005 17151 0.001130793010816 17152 0.0011307639069855 17153 0.001130735850893 17154 0.0011307072127238 17155 0.0011306789238006 17156 0.0011306507512927 17157 0.0011306219967082 17158 0.0011305934749544 17159 0.0011305653024465 17160 0.001130536547862 17161 0.0011305073276162 17162 0.0011304797371849 17163 0.0011304512154311 17164 0.0011304230429232 17165 0.0011303948704153 17166 0.0011303664650768 17167 0.0011303380597383 17168 0.0011303098872304 17169 0.0011302818311378 17170 0.0011302540078759 17171 0.0011302253697067 17172 0.0011301968479529 17173 0.0011301687918603 17174 0.0011301400372759 17175 0.0011301124468446 17176 0.0011300841579214 17177 0.0011300558689982 17178 0.0011300276964903 17179 0.0011299994075671 17180 0.0011299713514745 17181 0.001129943295382 17182 0.0011299155885354 17183 0.0011298874160275 17184 0.0011298595927656 17185 0.0011298314202577 17186 0.0011298037134111 17187 0.0011297757737339 17188 0.0011297478340566 17189 0.0011297193123028 17190 0.0011296918382868 17191 0.0011296641314402 17192 0.0011296356096864 17193 0.0011296076700091 17194 0.0011295794975013 17195 0.0011295516742393 17196 0.0011295233853161 17197 0.0011294963769615 17198 0.0011294679716229 17199 0.0011294402647763 17200 0.0011294120922685 17201 0.0011293838033453 17202 0.0011293566785753 17203 0.0011293281568214 17204 0.0011293003335595 17205 0.0011292720446363 17206 0.0011292443377897 17207 0.0011292167473584 17208 0.0011291888076812 17209 0.001129160518758 17210 0.0011291324626654 17211 0.0011291049886495 17212 0.0011290768161416 17213 0.0011290488764644 17214 0.0011290205875412 17215 0.0011289935791865 17216 0.0011289654066786 17217 0.001128937699832 17218 0.0011289095273241 17219 0.0011288807727396 17220 0.0011288536479697 17221 0.0011288253590465 17222 0.0011287976521999 17223 0.0011287693632767 17224 0.0011287418892607 17225 0.0011287136003375 17226 0.0011286858934909 17227 0.0011286579538137 17228 0.0011286300141364 17229 0.0011286021908745 17230 0.0011285740183666 17231 0.0011285465443507 17232 0.0011285180225968 17233 0.0011284907814115 17234 0.0011284626089036 17235 0.0011284346692264 17236 0.0011284069623798 17237 0.0011283789062873 17238 0.0011283510830253 17239 0.0011283229105175 17240 0.0011282948544249 17241 0.0011282674968243 17242 0.0011282394407317 17243 0.0011282110353932 17244 0.0011281835613772 17245 0.0011281555052847 17246 0.0011281280312687 17247 0.0011281000915915 17248 0.0011280714534223 17249 0.0011280439794064 17250 0.0011280160397291 17251 0.0011279883328825 17252 0.0011279601603746 17253 0.0011279319878668 17254 0.0011279042810202 17255 0.0011278765741736 17256 0.0011278489837423 17257 0.0011278210440651 17258 0.0011277929879725 17259 0.0011277648154646 17260 0.001127737108618 17261 0.0011277089361101 17262 0.0011276812292635 17263 0.0011276532895863 17264 0.0011276255827397 17265 0.0011275977594778 17266 0.0011275700526312 17267 0.001127541763708 17268 0.0011275138240308 17269 0.0011274861171842 17270 0.0011274580610916 17271 0.0011274305870757 17272 0.0011274026473984 17273 0.0011273743584752 17274 0.0011273465352133 17275 0.0011273190611973 17276 0.0011272911215201 17277 0.0011272628325969 17278 0.0011272348929197 17279 0.001127207535319 17280 0.0011271795956418 17281 0.0011271511903033 17282 0.001127123599872 17283 0.0011270954273641 17284 0.0011270684190094 17285 0.0011270407121629 17286 0.001127012539655 17287 0.0011269847163931 17288 0.0011269568931311 17289 0.0011269289534539 17290 0.001126901130192 17291 0.0011268730740994 17292 0.0011268453672528 17293 0.0011268174275756 17294 0.0011267903028056 17295 0.001126762246713 17296 0.0011267337249592 17297 0.0011267064837739 17298 0.001126678660512 17299 0.0011266506044194 17300 0.0011266227811575 17301 0.0011265950743109 17302 0.0011265670182183 17303 0.0011265394277871 17304 0.0011265117209405 17305 0.0011264837812632 17306 0.001126455841586 17307 0.0011264279019088 17308 0.0011264004278928 17309 0.0011263720225543 17310 0.0011263446649536 17311 0.0011263167252764 17312 0.0011262890184298 17313 0.0011262613115832 17314 0.0011262337211519 17315 0.0011262053158134 17316 0.0011261776089668 17317 0.0011261501349509 17318 0.0011261218460277 17319 0.0011260947212577 17320 0.0011260660830885 17321 0.0011260383762419 17322 0.0011260111350566 17323 0.0011259830789641 17324 0.0011259552557021 17325 0.0011259274324402 17326 0.001125899492763 17327 0.0011258721351624 17328 0.0011258438462391 17329 0.0011258162558079 17330 0.0011257885489613 17331 0.0011257604928687 17332 0.0011257331352681 17333 0.0011257049627602 17334 0.0011256779544055 17335 0.001125649898313 17336 0.0011256216093898 17337 0.0011255941353738 17338 0.0011255661956966 17339 0.0011255389545113 17340 0.0011255107820034 17341 0.0011254836572334 17342 0.0011254553683102 17343 0.0011254276614636 17344 0.0011254001874477 17345 0.0011253715492785 17346 0.0011253441916779 17347 0.001125316368416 17348 0.0011252886615694 17349 0.0011252606054768 17350 0.0011252330150455 17351 0.0011252057738602 17352 0.001125177834183 17353 0.0011251498945057 17354 0.0011251223040745 17355 0.0011250944808125 17356 0.001125066773966 17357 0.0011250386014581 17358 0.0011250103125349 17359 0.0011249831877649 17360 0.001124955015257 17361 0.0011249277740717 17362 0.0011248992523178 17363 0.0011248715454713 17364 0.00112484395504 17365 0.0011248163646087 17366 0.0011247885413468 17367 0.0011247602524236 17368 0.0011247327784076 17369 0.001124705420807 17370 0.0011246774811298 17371 0.0011246496578678 17372 0.0011246219510213 17373 0.0011245938949287 17374 0.0011245667701587 17375 0.0011245383648202 17376 0.0011245105415583 17377 0.0011244828347117 17378 0.0011244553606957 17379 0.0011244282359257 17380 0.0011244001798332 17381 0.0011243724729866 17382 0.0011243456974626 17383 0.0011243178742006 17384 0.0011242900509387 17385 0.0011242628097534 17386 0.0011242352193221 17387 0.0011242077453062 17388 0.0011241806205362 17389 0.0011241529136896 17390 0.0011241260217503 17391 0.0011240986641496 17392 0.0011240714229643 17393 0.0011240437161177 17394 0.0011240168241784 17395 0.0011239894665778 17396 0.0011239625746384 17397 0.0011239349842072 17398 0.0011239075101912 17399 0.0011238807346672 17400 0.0011238530278206 17401 0.0011238260194659 17402 0.0011237986618653 17403 0.0011237720027566 17404 0.0011237445287406 17405 0.0011237176368013 17406 0.0011236899299547 17407 0.0011236624559388 17408 0.0011236359132454 17409 0.0011236078571528 17410 0.0011235807323828 17411 0.0011235534911975 17412 0.0011235269485041 17413 0.0011234991252422 17414 0.0011234721168876 17415 0.0011234442936257 17416 0.0011234174016863 17417 0.0011233903933316 17418 0.0011233629193157 17419 0.001123335910961 17420 0.0011233084369451 17421 0.0011232816614211 17422 0.0011232543038204 17423 0.0011232270626351 17424 0.0011231994722039 17425 0.0011231730459258 17426 0.0011231452226639 17427 0.0011231177486479 17428 0.0011230909731239 17429 0.001123063499108 17430 0.0011230364907533 17431 0.001123009249568 17432 0.001122981775552 17433 0.0011229545343667 17434 0.0011229277588427 17435 0.0011229001684114 17436 0.0011228732764721 17437 0.0011228458024561 17438 0.0011228185612708 17439 0.0011227917857468 17440 0.0011227639624849 17441 0.0011227368377149 17442 0.0011227099457756 17443 0.0011226827045903 17444 0.0011226548813283 17445 0.0011226285714656 17446 0.001122600864619 17447 0.0011225733906031 17448 0.0011225468479097 17449 0.0011225192574784 17450 0.0011224921327084 17451 0.0011224651243538 17452 0.0011224377667531 17453 0.0011224101763219 17454 0.0011223834007978 17455 0.0011223561596125 17456 0.0011223290348426 17457 0.0011223016772419 17458 0.0011222740868106 17459 0.0011222471948713 17460 0.001122219953686 17461 0.0011221929453313 17462 0.0011221655877307 17463 0.0011221381137148 17464 0.0011221116874367 17465 0.0011220840970054 17466 0.0011220570886508 17467 0.0011220299638808 17468 0.0011220027226955 17469 0.0011219755979255 17470 0.0011219484731555 17471 0.0011219208827242 17472 0.0011218936415389 17473 0.0011218672152609 17474 0.0011218397412449 17475 0.0011218129657209 17476 0.0011217854917049 17477 0.0011217584833503 17478 0.001121731242165 17479 0.0011217042338103 17480 0.0011216772254556 17481 0.0011216503335163 17482 0.001121623441577 17483 0.0011215966660529 17484 0.0011215698905289 17485 0.0011215423000976 17486 0.0011215161066502 17487 0.0011214888654649 17488 0.0011214620899409 17489 0.0011214350815862 17490 0.0011214083060622 17491 0.0011213810648769 17492 0.0011213541729376 17493 0.0011213276302442 17494 0.0011213000398129 17495 0.0011212737299502 17496 0.0011212469544262 17497 0.0011212199460715 17498 0.0011211928213015 17499 0.0011211663950235 17500 0.0011211392702535 17501 0.0011211124947295 17502 0.0011210859520361 17503 0.0011210583616048 17504 0.0011210317024961 17505 0.0011210049269721 17506 0.0011209780350327 17507 0.0011209509102628 17508 0.0011209242511541 17509 0.0011208973592147 17510 0.001120870700106 17511 0.0011208438081667 17512 0.001120816799812 17513 0.0011207895586267 17514 0.001120762550272 17515 0.001120736123994 17516 0.001120708999224 17517 0.0011206821072847 17518 0.0011206552153453 17519 0.0011206287890673 17520 0.001120601547882 17521 0.0011205745395273 17522 0.0011205475311726 17523 0.001120520173572 17524 0.0011204939801246 17525 0.0011204669717699 17526 0.0011204403126612 17527 0.0011204131878912 17528 0.0011203868780285 17529 0.0011203596368432 17530 0.0011203328613192 17531 0.0011203059693798 17532 0.0011202793102711 17533 0.0011202523019165 17534 0.0011202254099771 17535 0.0011201984016225 17536 0.0011201715096831 17537 0.0011201443849131 17538 0.0011201177258044 17539 0.0011200910666957 17540 0.0011200640583411 17541 0.001120037632063 17542 0.0011200102744624 17543 0.001119983731769 17544 0.001119956606999 17545 0.0011199302971363 17546 0.0011199032887816 17547 0.0011198763968423 17548 0.0011198492720723 17549 0.0011198222637177 17550 0.0011197959538549 17551 0.0011197690619156 17552 0.0011197419371456 17553 0.0011197152780369 17554 0.0011196888517588 17555 0.0011196617269889 17556 0.0011196350678802 17557 0.0011196077102795 17558 0.0011195810511708 17559 0.0011195546248928 17560 0.0011195272672921 17561 0.0011195003753528 17562 0.0011194734834135 17563 0.0011194465914741 17564 0.0011194201651961 17565 0.0011193926911801 17566 0.0011193656828254 17567 0.0011193391401321 17568 0.0011193121317774 17569 0.0011192854726687 17570 0.0011192589299753 17571 0.0011192312231287 17572 0.0011192051460966 17573 0.0011191779049113 17574 0.0011191512458026 17575 0.0011191244702786 17576 0.001119097461924 17577 0.0011190702207386 17578 0.0011190440272912 17579 0.0011190171353519 17580 0.0011189896613359 17581 0.0011189633514732 17582 0.0011189365759492 17583 0.0011189100332558 17584 0.0011188827920705 17585 0.0011188560165465 17586 0.0011188293574378 17587 0.0011188022326678 17588 0.0011187754571438 17589 0.0011187483323738 17590 0.0011187214404345 17591 0.001118695246987 17592 0.0011186678893864 17593 0.0011186409974471 17594 0.0011186152696609 17595 0.0011185880284756 17596 0.0011185614857823 17597 0.0011185355251655 17598 0.0011185085168108 17599 0.0011184823233634 17600 0.0011184556642547 17601 0.0011184288887307 17602 0.0011184024624527 17603 0.001118375454098 17604 0.0011183491442353 17605 0.0011183227179572 17606 0.0011182964080945 17607 0.0011182706803083 17608 0.0011182436719537 17609 0.0011182168964297 17610 0.0011181912850589 17611 0.0011181645095348 17612 0.0011181379668415 17613 0.00111811212264 17614 0.0011180854635313 17615 0.0011180596193299 17616 0.0011180334258825 17617 0.0011180066503584 17618 0.0011179805733263 17619 0.001117954030633 17620 0.0011179273715243 17621 0.0011179016437382 17622 0.0011178749846295 17623 0.0011178490240127 17624 0.0011178224813193 17625 0.0011177964042872 17626 0.0011177699780092 17627 0.0011177435517311 17628 0.0011177171254531 17629 0.0011176911648363 17630 0.0011176645057276 17631 0.0011176385451108 17632 0.0011176120024174 17633 0.0011175853433087 17634 0.001117559033446 17635 0.0011175334220752 17636 0.0011175065301359 17637 0.0011174802202731 17638 0.0011174547253177 17639 0.001117428066209 17640 0.0011174010578543 17641 0.0011173756793141 17642 0.0011173490202054 17643 0.0011173223610967 17644 0.0011172965168953 17645 0.0011172699742019 17646 0.0011172435479239 17647 0.0011172180529684 17648 0.0011171912774444 17649 0.001117165083997 17650 0.0011171383084729 17651 0.0011171118821949 17652 0.0011170862708241 17653 0.0011170596117154 17654 0.0011170329526067 17655 0.0011170067591593 17656 0.0011169807985425 17657 0.0011169551871717 17658 0.0011169282952324 17659 0.001116901403293 17660 0.0011168761411682 17661 0.0011168492492288 17662 0.0011168230557814 17663 0.0011167967459187 17664 0.0011167705524713 17665 0.0011167442426085 17666 0.0011167180491611 17667 0.0011166915064678 17668 0.0011166650801897 17669 0.001116638770327 17670 0.0011166128097102 17671 0.0011165863834321 17672 0.0011165598407388 17673 0.0011165339965373 17674 0.0011165075702593 17675 0.0011164810275659 17676 0.0011164552997798 17677 0.0011164288735017 17678 0.0011164023308083 17679 0.0011163763701916 17680 0.0011163493618369 17681 0.0011163234012201 17682 0.0011162973241881 17683 0.0011162707814947 17684 0.0011162448208779 17685 0.0011162181617692 17686 0.0011161923175678 17687 0.0011161661241204 17688 0.0011161396978423 17689 0.0011161138536409 17690 0.0011160873109475 17691 0.0011160608846694 17692 0.0011160352732986 17693 0.0011160089634359 17694 0.0011159826535732 17695 0.0011159565765411 17696 0.0011159302666783 17697 0.0011159048881382 17698 0.0011158781126142 17699 0.0011158519191667 17700 0.0011158258421347 17701 0.0011157997651026 17702 0.0011157735716552 17703 0.0011157474946231 17704 0.001115721417591 17705 0.0011156945256516 17706 0.0011156689142808 17707 0.0011156422551721 17708 0.0011156166438013 17709 0.0011155907995999 17710 0.0011155642569065 17711 0.0011155379470438 17712 0.001115511986427 17713 0.0011154857929796 17714 0.0011154598323628 17715 0.0011154341045767 17716 0.0011154079111293 17717 0.0011153816012666 17718 0.0011153555242345 17719 0.0011153295636177 17720 0.0011153030209243 17721 0.0011152775259688 17722 0.0011152510996908 17723 0.0011152252554893 17724 0.001115198712796 17725 0.0011151728685945 17726 0.0011151467915624 17727 0.001115120947361 17728 0.0011150951031595 17729 0.0011150685604662 17730 0.0011150425998494 17731 0.001115016406402 17732 0.0011149907950312 17733 0.0011149643687531 17734 0.0011149384081364 17735 0.001114912214689 17736 0.0011148860212415 17737 0.0011148598277941 17738 0.0011148338671774 17739 0.00111480767373 17740 0.0011147817131132 17741 0.0011147554032505 17742 0.001114729559049 17743 0.001114703132771 17744 0.0011146774049848 17745 0.0011146515607834 17746 0.001114625367336 17747 0.0011145995231345 17748 0.0011145728640258 17749 0.0011145471362397 17750 0.0011145211756229 17751 0.0011144948657602 17752 0.0011144692543894 17753 0.0011144425952807 17754 0.0011144171003252 17755 0.0011143905576319 17756 0.0011143647134304 17757 0.0011143386363983 17758 0.0011143123265356 17759 0.0011142863659188 17760 0.001114260405302 17761 0.00111423432827 17762 0.0011142087168992 17763 0.0011141821742058 17764 0.0011141563300043 17765 0.0011141295544803 17766 0.0011141037102789 17767 0.0011140776332468 17768 0.0011140514397994 17769 0.0011140257120132 17770 0.0011139992857352 17771 0.0011139734415337 17772 0.0011139472480863 17773 0.0011139215203002 17774 0.0011138953268528 17775 0.0011138691334054 17776 0.0011138428235427 17777 0.0011138166300952 17778 0.0011137912515551 17779 0.0011137649416924 17780 0.0011137388646603 17781 0.0011137127876282 17782 0.0011136868270114 17783 0.0011136607499793 17784 0.0011136345565319 17785 0.0011136084794998 17786 0.0011135822860524 17787 0.0011135562090203 17788 0.0011135304812342 17789 0.0011135037057102 17790 0.00111347832717 17791 0.0011134523665532 17792 0.0011134259402752 17793 0.0011134003289044 17794 0.0011133742518723 17795 0.0011133482912555 17796 0.0011133218649775 17797 0.0011132957879454 17798 0.001113269594498 17799 0.0011132440995425 17800 0.0011132176732644 17801 0.0011131917126477 17802 0.0011131654027849 17803 0.0011131393257529 17804 0.0011131139472127 17805 0.0011130875209346 17806 0.0011130615603179 17807 0.0011130352504551 17808 0.0011130096390843 17809 0.001112983096391 17810 0.0011129572521895 17811 0.0011129311751574 17812 0.0011129054473713 17813 0.0011128791375086 17814 0.0011128531768918 17815 0.001112827216275 17816 0.0011128017213196 17817 0.0011127756442875 17818 0.0011127495672554 17819 0.0011127246543765 17820 0.0011126982280985 17821 0.0011126730823889 17822 0.0011126468889415 17823 0.0011126215104014 17824 0.001112595316954 17825 0.0011125698219985 17826 0.0011125438613817 17827 0.0011125183664262 17828 0.0011124928714707 17829 0.0011124674929306 17830 0.0011124415323138 17831 0.0011124158045277 17832 0.0011123907752335 17833 0.0011123653966933 17834 0.0011123390868306 17835 0.0011123138247058 17836 0.0011122880969197 17837 0.0011122631840408 17838 0.0011122373398393 17839 0.0011122118448839 17840 0.001112186582759 17841 0.0011121608549729 17842 0.0011121355928481 17843 0.0011121092829853 17844 0.0011120844865218 17845 0.0011120587587357 17846 0.0011120331473649 17847 0.0011120077688247 17848 0.0011119821574539 17849 0.0011119565460831 17850 0.0011119318660349 17851 0.0011119055561721 17852 0.0011118805268779 17853 0.0011118542170152 17854 0.0011118289548904 17855 0.0011118042748421 17856 0.0011117779649794 17857 0.0011117529356852 17858 0.0011117265094072 17859 0.0011117017129436 17860 0.0011116758687422 17861 0.0011116503737867 17862 0.0011116248788312 17863 0.0011115993838757 17864 0.0011115737725049 17865 0.0011115485103801 17866 0.0011115231318399 17867 0.0011114978697151 17868 0.0011114719090983 17869 0.0011114465305582 17870 0.0011114210356027 17871 0.0011113953078166 17872 0.0011113698128611 17873 0.0011113444343209 17874 0.0011113190557808 17875 0.001111293095164 17876 0.0011112673673779 17877 0.0011112422216684 17878 0.0011112166102976 17879 0.0011111913481727 17880 0.001111165387556 17881 0.0011111401254311 17882 0.001111114048399 17883 0.0011110890191048 17884 0.0011110631749034 17885 0.0011110376799479 17886 0.0011110124178231 17887 0.0011109864572063 17888 0.0011109608458355 17889 0.0011109352344647 17890 0.0011109106708318 17891 0.0011108849430457 17892 0.0011108590988442 17893 0.0011108338367194 17894 0.0011108081089333 17895 0.0011107826139778 17896 0.001110757002607 17897 0.0011107312748209 17898 0.0011107061291113 17899 0.0011106799356639 17900 0.0011106550227851 17901 0.0011106295278296 17902 0.0011106038000435 17903 0.0011105785379186 17904 0.0011105525773019 17905 0.0011105277808383 17906 0.0011105018202215 17907 0.0011104763252661 17908 0.0011104515288025 17909 0.0011104256846011 17910 0.0011104000732303 17911 0.0011103745782748 17912 0.001110348966904 17913 0.0011103239376098 17914 0.001110298326239 17915 0.0011102729476988 17916 0.001110247336328 17917 0.0011102219577879 17918 0.0011101961135864 17919 0.0011101707350463 17920 0.0011101455893368 17921 0.0011101197451353 17922 0.0011100943665951 17923 0.0011100685223937 17924 0.0011100437259302 17925 0.0011100181145594 17926 0.0011099927360192 17927 0.0011099672410637 17928 0.0011099412804469 17929 0.001109916716814 17930 0.001109890639782 17931 0.0011098657269031 17932 0.001109839649871 17933 0.0011098147369921 17934 0.0011097888927907 17935 0.0011097632814199 17936 0.0011097384849563 17937 0.0011097122915089 17938 0.0011096876114607 17939 0.0011096620000899 17940 0.0011096359230578 17941 0.001109610660933 17942 0.0011095853988081 17943 0.0011095595546067 17944 0.0011095342924818 17945 0.0011095085646957 17946 0.0011094838846475 17947 0.0011094575747848 17948 0.0011094327783212 17949 0.0011094072833657 17950 0.0011093814391643 17951 0.0011093564098701 17952 0.0011093304492533 17953 0.0011093054199591 17954 0.0011092799250036 17955 0.0011092543136328 17956 0.001109228702262 17957 0.0011092039057985 17958 0.0011091779451817 17959 0.0011091530323029 17960 0.0011091271881014 17961 0.0011091019259766 17962 0.0011090764310211 17963 0.001109050703235 17964 0.0011090255575255 17965 0.0011089991312474 17966 0.0011089743347839 17967 0.0011089488398284 17968 0.0011089234612882 17969 0.0011088977335021 17970 0.0011088722385466 17971 0.0011088468600065 17972 0.0011088214814663 17973 0.0011087963357568 17974 0.0011087706079707 17975 0.0011087452294305 17976 0.001108719734475 17977 0.0011086943559349 17978 0.0011086688609794 17979 0.0011086431331933 17980 0.0011086178710684 17981 0.0011085923761129 17982 0.0011085669975728 17983 0.0011085416190326 17984 0.0011085164733231 17985 0.0011084910947829 17986 0.0011084653669968 17987 0.0011084396392107 17988 0.0011084144935012 17989 0.0011083889985457 17990 0.0011083637364209 17991 0.0011083376593888 17992 0.0011083126300946 17993 0.0011082869023085 17994 0.0011082616401836 17995 0.0011082362616435 17996 0.001108210766688 17997 0.0011081855045632 17998 0.0011081600096077 17999 0.0011081341654062 18000 0.001108109485358 18001 0.0011080836411566 18002 0.0011080587282777 18003 0.0011080331169069 18004 0.0011080076219514 18005 0.0011079823598266 18006 0.0011079568648711 18007 0.0011079314863309 18008 0.0011079057585448 18009 0.0011078806128353 18010 0.0011078552342951 18011 0.0011078297393396 18012 0.0011078041279688 18013 0.0011077790986747 18014 0.0011077537201345 18015 0.0011077278759331 18016 0.0011077024973929 18017 0.0011076773516834 18018 0.0011076519731432 18019 0.0011076264781877 18020 0.001107600517571 18021 0.0011075757211074 18022 0.0011075504589826 18023 0.0011075244983658 18024 0.0011074994690716 18025 0.0011074736248702 18026 0.001107448595576 18027 0.0011074233334512 18028 0.0011073970235884 18029 0.0011073726927862 18030 0.001107346965 18031 0.0011073219357058 18032 0.0011072959750891 18033 0.0011072707129642 18034 0.0011072455672547 18035 0.0011072203051299 18036 0.0011071946937591 18037 0.0011071695480496 18038 0.0011071437038481 18039 0.0011071182088926 18040 0.0011070929467678 18041 0.0011070675682276 18042 0.0011070425389335 18043 0.0011070169275627 18044 0.0011069921310991 18045 0.0011069667525589 18046 0.0011069420725107 18047 0.0011069165775552 18048 0.001106891548261 18049 0.0011068662861362 18050 0.0011068410240114 18051 0.0011068161111325 18052 0.001106790616177 18053 0.0011067658197135 18054 0.001106739975512 18055 0.0011067154118791 18056 0.0011066907318309 18057 0.0011066657025367 18058 0.0011066407896578 18059 0.0011066156439483 18060 0.0011065908474848 18061 0.0011065666330978 18062 0.001106541370973 18063 0.0011065169237554 18064 0.0011064915452152 18065 0.0011064662830904 18066 0.0011064421851188 18067 0.0011064166901633 18068 0.0011063918936998 18069 0.0011063669808209 18070 0.001106342067942 18071 0.0011063171550632 18072 0.0011062924750149 18073 0.0011062668636441 18074 0.0011062429985031 18075 0.0011062175035477 18076 0.0011061925906688 18077 0.0011061681434512 18078 0.0011061426484957 18079 0.0011061182012782 18080 0.0011060934048146 18081 0.0011060683755204 18082 0.0011060432298109 18083 0.0011060187825933 18084 0.0011059936368838 18085 0.0011059686075896 18086 0.0011059432290494 18087 0.0011059191310778 18088 0.001105893868953 18089 0.0011058693053201 18090 0.0011058442760259 18091 0.001105819363147 18092 0.0011057951487601 18093 0.0011057700030506 18094 0.0011057448573411 18095 0.0011057200608775 18096 0.0011056951479986 18097 0.0011056705843657 18098 0.0011056455550715 18099 0.0011056200601161 18100 0.0011055960785598 18101 0.0011055710492656 18102 0.0011055463692173 18103 0.0011055212235078 18104 0.0011054964270443 18105 0.0011054715141654 18106 0.0011054467177019 18107 0.0011054220376536 18108 0.0011053967755288 18109 0.0011053719790652 18110 0.0011053471826017 18111 0.0011053223861381 18112 0.0011052977060899 18113 0.001105272793211 18114 0.0011052479967475 18115 0.001105222851038 18116 0.0011051980545744 18117 0.0011051737237722 18118 0.0011051485780627 18119 0.0011051241308451 18120 0.0011050988687202 18121 0.001105073839426 18122 0.0011050496250391 18123 0.0011050243629143 18124 0.001105000032112 18125 0.0011049747699872 18126 0.001104949740693 18127 0.0011049252934754 18128 0.0011049003805965 18129 0.0011048753513023 18130 0.0011048507876694 18131 0.0011048259912059 18132 0.0011048011947423 18133 0.0011047756997868 18134 0.0011047511361539 18135 0.0011047266889364 18136 0.0011047020088881 18137 0.0011046770960093 18138 0.0011046514846385 18139 0.0011046275030822 18140 0.0011046028230339 18141 0.0011045780265704 18142 0.0011045527644455 18143 0.0011045278515667 18144 0.0011045032879338 18145 0.0011044787243009 18146 0.0011044536950067 18147 0.0011044284328818 18148 0.0011044044513255 18149 0.0011043791892007 18150 0.0011043540434912 18151 0.0011043294798583 18152 0.0011043045669794 18153 0.0011042798869312 18154 0.0011042550904676 18155 0.0011042305268347 18156 0.0011042056139559 18157 0.0011041809339076 18158 0.0011041562538594 18159 0.0011041312245652 18160 0.001104106544517 18161 0.0011040818644688 18162 0.0011040560202673 18163 0.0011040318058804 18164 0.0011040073586628 18165 0.0011039824457839 18166 0.0011039576493204 18167 0.0011039327364415 18168 0.0011039079399779 18169 0.0011038838420063 18170 0.0011038585798815 18171 0.0011038342490792 18172 0.0011038089869544 18173 0.0011037844233215 18174 0.0011037597432733 18175 0.0011037345975637 18176 0.0011037103831768 18177 0.0011036850046366 18178 0.0011036605574191 18179 0.0011036355281249 18180 0.0011036114301533 18181 0.0011035864008591 18182 0.0011035617208108 18183 0.0011035369243473 18184 0.0011035120114684 18185 0.0011034875642508 18186 0.0011034628842026 18187 0.0011034377384931 18188 0.0011034130584449 18189 0.0011033880291507 18190 0.0011033634655178 18191 0.0011033387854695 18192 0.0011033141054213 18193 0.0011032894253731 18194 0.0011032647453249 18195 0.001103239832446 18196 0.0011032150359824 18197 0.0011031905887648 18198 0.0011031659087166 18199 0.0011031404137611 18200 0.0011031163157895 18201 0.0011030914029106 18202 0.0011030671885237 18203 0.0011030423920602 18204 0.0011030168971047 18205 0.0011029927991331 18206 0.0011029678862542 18207 0.0011029430897906 18208 0.0011029184097424 18209 0.0011028932640329 18210 0.0011028689332306 18211 0.0011028437875211 18212 0.0011028192238882 18213 0.0011027943110093 18214 0.0011027698637918 18215 0.0011027451837435 18216 0.0011027202708647 18217 0.0011026960564777 18218 0.0011026710271835 18219 0.0011026463471353 18220 0.0011026214342564 18221 0.0011025972198695 18222 0.0011025723069906 18223 0.0011025477433577 18224 0.0011025224812329 18225 0.0011024980340153 18226 0.0011024728883058 18227 0.0011024483246729 18228 0.0011024236446247 18229 0.0011023990809917 18230 0.0011023741681129 18231 0.0011023494880646 18232 0.0011023250408471 18233 0.0011023002443835 18234 0.0011022756807506 18235 0.0011022507678717 18236 0.0011022260878235 18237 0.0011022014077753 18238 0.0011021768441424 18239 0.0011021518148482 18240 0.0011021271348 18241 0.001102102920413 18242 0.0011020773090422 18243 0.0011020533274859 18244 0.0011020281817764 18245 0.0011020039673895 18246 0.0011019788216799 18247 0.0011019541416317 18248 0.0011019296944141 18249 0.0011019052471966 18250 0.001101880101487 18251 0.0011018549557775 18252 0.0011018307413906 18253 0.0011018061777577 18254 0.0011017816141248 18255 0.0011017567012459 18256 0.0011017320211977 18257 0.0011017073411494 18258 0.0011016826611012 18259 0.0011016577482224 18260 0.0011016335338354 18261 0.0011016083881259 18262 0.0011015839409083 18263 0.0011015591444448 18264 0.0011015346972272 18265 0.001101510017179 18266 0.0011014847550541 18267 0.0011014604242519 18268 0.001101435162127 18269 0.0011014110641554 18270 0.0011013865005225 18271 0.0011013617040589 18272 0.001101337140426 18273 0.0011013122275472 18274 0.0011012877803296 18275 0.0011012641480193 18276 0.0011012393515557 18277 0.0011012151371688 18278 0.0011011903407052 18279 0.0011011661263183 18280 0.0011011415626854 18281 0.0011011166498065 18282 0.0011010931339115 18283 0.0011010682210326 18284 0.001101043773815 18285 0.0011010188609362 18286 0.0011009947629645 18287 0.0011009704321623 18288 0.00110094610136 18289 0.0011009217705578 18290 0.0011008976725861 18291 0.0011008735746145 18292 0.0011008495930582 18293 0.00110082491301 18294 0.0011008011642843 18295 0.0011007764842361 18296 0.0011007525026798 18297 0.0011007288703695 18298 0.0011007041903213 18299 0.0011006800923496 18300 0.0011006552958861 18301 0.0011006317799911 18302 0.0011006070999429 18303 0.0011005834676325 18304 0.0011005592532456 18305 0.0011005349224433 18306 0.0011005107080564 18307 0.0011004863772541 18308 0.0011004618136212 18309 0.0011004382977262 18310 0.0011004137340933 18311 0.0011003892868757 18312 0.0011003651889041 18313 0.0011003410909325 18314 0.0011003169929609 18315 0.001100292429328 18316 0.0011002691462636 18317 0.0011002448154613 18318 0.0011002203682438 18319 0.0011001958046108 18320 0.0011001718230546 18321 0.0011001478414983 18322 0.0011001236271113 18323 0.0011000994127244 18324 0.0011000751983374 18325 0.0011000512167811 18326 0.0011000265367329 18327 0.0011000022059307 18328 0.0010999783407897 18329 0.0010999544756487 18330 0.0010999299120158 18331 0.0010999056976289 18332 0.0010998813668266 18333 0.0010998578509316 18334 0.0010998329380527 18335 0.0010998094221577 18336 0.0010997848585248 18337 0.0010997612262145 18338 0.0010997365461662 18339 0.0010997124481946 18340 0.0010996884666383 18341 0.0010996637865901 18342 0.0010996398050338 18343 0.0010996155906469 18344 0.0010995917255059 18345 0.0010995672782883 18346 0.0010995434131473 18347 0.0010995188495144 18348 0.0010994949843735 18349 0.0010994703043252 18350 0.0010994465555996 18351 0.001099422108382 18352 0.0010993983596563 18353 0.0010993743781 18354 0.0010993496980518 18355 0.0010993259493262 18356 0.0010993019677699 18357 0.001099277404137 18358 0.0010992533061653 18359 0.0010992286261171 18360 0.0010992051102221 18361 0.0010991808958352 18362 0.0010991566814482 18363 0.0010991326998919 18364 0.0010991086019203 18365 0.0010990840382874 18366 0.0010990600567311 18367 0.0010990358423442 18368 0.0010990116279572 18369 0.0010989879956469 18370 0.0010989631991833 18371 0.0010989396832883 18372 0.0010989153524861 18373 0.0010988910216838 18374 0.0010988675057888 18375 0.0010988430585712 18376 0.0010988188441843 18377 0.0010987949790433 18378 0.0010987708810717 18379 0.0010987466666847 18380 0.0010987229179591 18381 0.0010986981214955 18382 0.0010986746056005 18383 0.0010986500419676 18384 0.0010986261768267 18385 0.0010986018460244 18386 0.0010985782137141 18387 0.0010985534172505 18388 0.0010985299013555 18389 0.0010985055705532 18390 0.0010984815889969 18391 0.0010984574910253 18392 0.001098433509469 18393 0.0010984095279127 18394 0.0010983853135258 18395 0.0010983610991389 18396 0.0010983371175826 18397 0.0010983129031956 18398 0.00109828915447 18399 0.0010982643580064 18400 0.0010982410749421 18401 0.0010982165113091 18402 0.0010981927625835 18403 0.0010981678497046 18404 0.0010981446830556 18405 0.0010981201194227 18406 0.0010980966035277 18407 0.0010980713414028 18408 0.0010980475926772 18409 0.0010980234947056 18410 0.0010979995131493 18411 0.0010979756480083 18412 0.0010979515500367 18413 0.0010979274520651 18414 0.0010979032376781 18415 0.0010978791397065 18416 0.0010978549253196 18417 0.0010978309437633 18418 0.0010978073114529 18419 0.0010977822821587 18420 0.0010977587662637 18421 0.0010977343190461 18422 0.0010977105703205 18423 0.0010976861231029 18424 0.0010976623743773 18425 0.0010976379271597 18426 0.0010976142948493 18427 0.0010975891491398 18428 0.0010975658660755 18429 0.0010975418845192 18430 0.0010975177865475 18431 0.0010974936885759 18432 0.0010974695906043 18433 0.001097445609048 18434 0.0010974216274917 18435 0.0010973970638588 18436 0.0010973737807944 18437 0.0010973487515002 18438 0.0010973251191899 18439 0.0010973006719723 18440 0.0010972768068314 18441 0.001097253174521 18442 0.0010972288437188 18443 0.0010972043965012 18444 0.0010971805313602 18445 0.0010971562005579 18446 0.0010971326846629 18447 0.0010971082374454 18448 0.0010970842558891 18449 0.0010970601579174 18450 0.0010970360599458 18451 0.0010970118455589 18452 0.0010969880968332 18453 0.0010969639988616 18454 0.0010969405993819 18455 0.0010969170834869 18456 0.0010968936840072 18457 0.0010968700516969 18458 0.0010968468850479 18459 0.0010968224378303 18460 0.0010967992711812 18461 0.0010967752896249 18462 0.0010967521229759 18463 0.0010967281414196 18464 0.0010967043926939 18465 0.0010966809932142 18466 0.0010966579429805 18467 0.0010966338450089 18468 0.0010966105619445 18469 0.0010965869296342 18470 0.0010965631809086 18471 0.0010965397814289 18472 0.0010965161491185 18473 0.0010964926332235 18474 0.0010964693501592 18475 0.0010964453686029 18476 0.0010964219691232 18477 0.0010963982203975 18478 0.0010963747045025 18479 0.0010963509557769 18480 0.0010963279055431 18481 0.0010963036911562 18482 0.0010962806409225 18483 0.0010962567757815 18484 0.0010962332598865 18485 0.0010962096275762 18486 0.0010961857624352 18487 0.0010961623629555 18488 0.0010961387306452 18489 0.0010961149819195 18490 0.0010960921645164 18491 0.0010960679501295 18492 0.0010960446670651 18493 0.0010960210347548 18494 0.0010959976352751 18495 0.0010959741193801 18496 0.0010959506034851 18497 0.0010959266219288 18498 0.0010959034552798 18499 0.0010958799393848 18500 0.0010958563070744 18501 0.0010958325583488 18502 0.0010958093916997 18503 0.0010957850608975 18504 0.0010957620106637 18505 0.0010957384947687 18506 0.0010957153281197 18507 0.0010956916958094 18508 0.0010956679470837 18509 0.0010956441983581 18510 0.001095620682463 18511 0.0010955969337374 18512 0.001095573650673 18513 0.0010955495527014 18514 0.001095526618883 18515 0.0010955029865727 18516 0.0010954790050164 18517 0.001095455721952 18518 0.001095432555303 18519 0.001095409039408 18520 0.0010953861055896 18521 0.0010953629389405 18522 0.0010953397722915 18523 0.0010953161399812 18524 0.0010952925076708 18525 0.0010952693410218 18526 0.0010952461743727 18527 0.001095222774893 18528 0.0010951990261674 18529 0.001095176441595 18530 0.001095152576454 18531 0.0010951302247122 18532 0.0010951068252325 18533 0.0010950837749988 18534 0.0010950606083497 18535 0.0010950372088701 18536 0.001095014042221 18537 0.0010949914576486 18538 0.0010949680581689 18539 0.0010949457064271 18540 0.0010949218412861 18541 0.0010948989074677 18542 0.0010948757408187 18543 0.0010948532726616 18544 0.0010948297567666 18545 0.0010948070557788 18546 0.0010947836562991 18547 0.0010947606060654 18548 0.0010947372065857 18549 0.0010947145055979 18550 0.0010946914553642 18551 0.0010946689872071 18552 0.0010946450056508 18553 0.0010946221882477 18554 0.0010945989051834 18555 0.001094575971365 18556 0.0010945526883006 18557 0.0010945296380669 18558 0.0010945064714178 18559 0.0010944835375994 18560 0.0010944597888738 18561 0.001094437437132 18562 0.0010944143868983 18563 0.0010943913366646 18564 0.0010943678207695 18565 0.0010943448869511 18566 0.0010943216038868 18567 0.0010942991357297 18568 0.001094275387004 18569 0.0010942528024316 18570 0.0010942292865366 18571 0.0010942071676254 18572 0.0010941837681457 18573 0.001094160717912 18574 0.0010941370856017 18575 0.0010941146174446 18576 0.0010940916836262 18577 0.0010940684005618 18578 0.0010940454667434 18579 0.0010940223000944 18580 0.0010939992498606 18581 0.0010939760832116 18582 0.0010939529165626 18583 0.0010939300991595 18584 0.0010939069325104 18585 0.0010938837658614 18586 0.0010938609484583 18587 0.0010938376653939 18588 0.0010938141494989 18589 0.0010937916813418 18590 0.0010937681654468 18591 0.0010937459301203 18592 0.0010937221813947 18593 0.0010936997132376 18594 0.0010936763137579 18595 0.0010936534963548 18596 0.0010936299804598 18597 0.0010936072794721 18598 0.0010935842292383 18599 0.0010935617610812 18600 0.0010935382451862 18601 0.0010935155441985 18602 0.0010934927267954 18603 0.0010934695601463 18604 0.0010934460442513 18605 0.0010934233432636 18606 0.0010934005258605 18607 0.0010933770099655 18608 0.0010933540761471 18609 0.001093330909498 18610 0.0010933079756796 18611 0.0010932846926153 18612 0.0010932617587969 18613 0.0010932384757325 18614 0.001093216240406 18615 0.0010931929573417 18616 0.0010931696742773 18617 0.0010931468568742 18618 0.0010931239230558 18619 0.0010931007564068 18620 0.0010930782882497 18621 0.0010930546559393 18622 0.0010930324206129 18623 0.0010930090211332 18624 0.0010929855052382 18625 0.0010929626878351 18626 0.0010929396376014 18627 0.0010929169366136 18628 0.0010928937699646 18629 0.0010928707197309 18630 0.0010928477859125 18631 0.0010928249685094 18632 0.001092801685445 18633 0.0010927786352113 18634 0.0010927557013929 18635 0.0010927328839898 18636 0.0010927098337561 18637 0.0010926868999377 18638 0.0010926639661193 18639 0.0010926411487162 18640 0.0010926176328212 18641 0.0010925948154181 18642 0.0010925717651844 18643 0.0010925483657047 18644 0.0010925254318863 18645 0.0010925021488219 18646 0.0010924797970802 18647 0.0010924561647698 18648 0.0010924334637821 18649 0.0010924100643024 18650 0.00109238747973 18651 0.0010923644294962 18652 0.0010923416120932 18653 0.0010923183290288 18654 0.0010922960937023 18655 0.001092272461392 18656 0.0010922496439889 18657 0.0010922260116786 18658 0.0010922038927674 18659 0.0010921802604571 18660 0.0010921573266387 18661 0.0010921340435743 18662 0.0010921114590019 18663 0.0010920882923529 18664 0.0010920650092885 18665 0.0010920418426394 18666 0.0010920190252364 18667 0.001091995742172 18668 0.0010919726919383 18669 0.0010919495252892 18670 0.0010919265914708 18671 0.0010919036576524 18672 0.0010918804910034 18673 0.0010918576736003 18674 0.0010918352054432 18675 0.0010918116895482 18676 0.0010917891049758 18677 0.0010917657054961 18678 0.0010917426552624 18679 0.0010917199542746 18680 0.0010916967876256 18681 0.0010916743194684 18682 0.0010916508035734 18683 0.0010916276369244 18684 0.0010916045866907 18685 0.0010915817692876 18686 0.0010915587190539 18687 0.0010915359016508 18688 0.0010915128514171 18689 0.001091490034014 18690 0.001091466518119 18691 0.0010914437007159 18692 0.0010914211161435 18693 0.0010913978330791 18694 0.0010913752485067 18695 0.0010913516161963 18696 0.0010913293808699 18697 0.0010913059813902 18698 0.0010912829311565 18699 0.0010912604629993 18700 0.0010912372963503 18701 0.0010912147117779 18702 0.0010911917779595 18703 0.0010911687277257 18704 0.0010911459103227 18705 0.0010911228600889 18706 0.0010910994606093 18707 0.0010910771088675 18708 0.0010910542914644 18709 0.0010910308919847 18710 0.0010910085402429 18711 0.0010909851407632 18712 0.0010909623233601 18713 0.0010909389238805 18714 0.0010909165721387 18715 0.0010908937547356 18716 0.0010908704716712 18717 0.0010908481199294 18718 0.0010908246040344 18719 0.0010908017866313 18720 0.0010907787363976 18721 0.0010907559189945 18722 0.0010907329851761 18723 0.0010907100513577 18724 0.0010906867682934 18725 0.0010906643001363 18726 0.0010906411334872 18727 0.0010906181996688 18728 0.0010905948001891 18729 0.0010905720992014 18730 0.0010905490489677 18731 0.0010905261151493 18732 0.0010905036469921 18733 0.0010904800146818 18734 0.0010904574301094 18735 0.0010904343798757 18736 0.0010904115624726 18737 0.0010903892107308 18738 0.0010903659276664 18739 0.0010903431102633 18740 0.0010903200600296 18741 0.0010902970097959 18742 0.0010902741923928 18743 0.0010902509093285 18744 0.0010902285575867 18745 0.0010902052745223 18746 0.0010901824571192 18747 0.0010901594068855 18748 0.0010901361238211 18749 0.0010901130735874 18750 0.001090090139769 18751 0.00109006697312 18752 0.0010900447377935 18753 0.0010900215711445 18754 0.0010899986373261 18755 0.0010899757035077 18756 0.0010899525368586 18757 0.0010899296030402 18758 0.0010899064363912 18759 0.0010898839682341 18760 0.001089860801585 18761 0.0010898377513513 18762 0.0010898147011176 18763 0.0010897915344685 18764 0.0010897694155574 18765 0.0010897455504164 18766 0.0010897230822593 18767 0.0010896995663643 18768 0.0010896770982072 18769 0.0010896542808041 18770 0.0010896311141551 18771 0.0010896084131673 18772 0.0010895853629336 18773 0.0010895625455305 18774 0.0010895391460508 18775 0.001089516794309 18776 0.0010894939769059 18777 0.0010894713923335 18778 0.0010894490405917 18779 0.0010894262231886 18780 0.0010894038714468 18781 0.0010893812868744 18782 0.0010893589351326 18783 0.0010893363505602 18784 0.0010893137659878 18785 0.001089291414246 18786 0.0010892692953348 18787 0.0010892474092543 18788 0.0010892247082666 18789 0.0010892025893554 18790 0.0010891803540289 18791 0.0010891587007791 18792 0.001089135883376 18793 0.0010891139972955 18794 0.0010890914127231 18795 0.0010890692938119 18796 0.0010890470584854 18797 0.0010890245903283 18798 0.0010890030534938 18799 0.001088980352506 18800 0.0010889581171796 18801 0.0010889355326071 18802 0.0010889139957726 18803 0.0010888918768615 18804 0.001088869641535 18805 0.0010888474062085 18806 0.0010888250544667 18807 0.0010888027027249 18808 0.0010887812823057 18809 0.0010887586977333 18810 0.0010887364624068 18811 0.0010887142270803 18812 0.0010886923409998 18813 0.0010886701056734 18814 0.0010886476375163 18815 0.0010886252857745 18816 0.0010886031668633 18817 0.0010885812807828 18818 0.0010885586962104 18819 0.0010885363444686 18820 0.0010885144583881 18821 0.0010884925723076 18822 0.0010884699877352 18823 0.0010884483344853 18824 0.0010884257499129 18825 0.001088404096663 18826 0.0010883813956752 18827 0.0010883596260101 18828 0.0010883372742683 18829 0.0010883153881878 18830 0.0010882928036153 18831 0.0010882709175348 18832 0.001088248915039 18833 0.0010882267961279 18834 0.0010882040951401 18835 0.0010881824418902 18836 0.0010881600901484 18837 0.0010881379712373 18838 0.0010881156194955 18839 0.0010880935005844 18840 0.0010880713816732 18841 0.0010880492627621 18842 0.0010880272602662 18843 0.0010880049085245 18844 0.0010879829060286 18845 0.0010879606707022 18846 0.0010879384353757 18847 0.0010879165492952 18848 0.0010878939647228 18849 0.0010878718458116 18850 0.0010878498433158 18851 0.00108782784082 18852 0.0010878057219088 18853 0.001087783370167 18854 0.0010877610184252 18855 0.0010877393651754 18856 0.0010877172462642 18857 0.0010876948945224 18858 0.00108767230995 18859 0.0010876505402848 18860 0.0010876283049583 18861 0.0010876064188778 18862 0.0010875838343054 18863 0.0010875621810555 18864 0.0010875395964831 18865 0.0010875177104026 18866 0.0010874951258302 18867 0.001087473705411 18868 0.0010874511208385 18869 0.001087429234758 18870 0.0010874067666009 18871 0.0010873849969357 18872 0.0010873626451939 18873 0.0010873408755288 18874 0.001087318523787 18875 0.0010872965212911 18876 0.0010872746352106 18877 0.0010872521670535 18878 0.0010872298153117 18879 0.0010872072307393 18880 0.0010871856939048 18881 0.0010871636914089 18882 0.0010871414560825 18883 0.0010871193371713 18884 0.0010870971018448 18885 0.0010870746336877 18886 0.0010870533296838 18887 0.0010870305122808 18888 0.0010870087426156 18889 0.0010869863908738 18890 0.0010869645047933 18891 0.0010869423858821 18892 0.0010869200341403 18893 0.0010868982644752 18894 0.0010868756799027 18895 0.0010868539102376 18896 0.0010868317913264 18897 0.001086809206754 18898 0.0010867872042581 18899 0.001086765085347 18900 0.0010867428500205 18901 0.001086721313186 18902 0.0010866986121982 18903 0.0010866769589484 18904 0.0010866546072066 18905 0.0010866323718801 18906 0.0010866101365536 18907 0.0010865880176425 18908 0.0010865662479773 18909 0.0010865437798202 18910 0.001086522010155 18911 0.0010864997748286 18912 0.0010864773066714 18913 0.0010864557698369 18914 0.0010864333016798 18915 0.001086411299184 18916 0.0010863885981962 18917 0.001086366828531 18918 0.0010863454081118 18919 0.0010863225907087 18920 0.0010863007046282 18921 0.0010862778872252 18922 0.0010862562339753 18923 0.0010862342314795 18924 0.0010862122289836 18925 0.0010861897608265 18926 0.001086167874746 18927 0.0010861457558349 18928 0.0010861232876778 18929 0.0010861016344279 18930 0.0010860790498555 18931 0.001086057163775 18932 0.0010860351612791 18933 0.0010860129259527 18934 0.0010859908070415 18935 0.0010859685717151 18936 0.0010859468020499 18937 0.0010859243338928 18938 0.0010859023313969 18939 0.0010858799796551 18940 0.0010858579771593 18941 0.0010858355090022 18942 0.0010858136229217 18943 0.0010857915040106 18944 0.0010857693850994 18945 0.0010857474990189 18946 0.0010857249144465 18947 0.0010857032611966 18948 0.0010856807930395 18949 0.001085658906959 18950 0.0010856366716325 18951 0.001085614785552 18952 0.0010855927830562 18953 0.0010855699656531 18954 0.0010855486616492 18955 0.0010855263099074 18956 0.0010855041909963 18957 0.0010854823049158 18958 0.001085459953174 18959 0.0010854382999241 18960 0.0010854155989364 18961 0.0010853939456865 18962 0.0010853718267754 18963 0.0010853494750336 18964 0.0010853274725378 18965 0.0010853053536266 18966 0.0010852834675461 18967 0.0010852616978809 18968 0.0010852392297238 18969 0.0010852174600586 18970 0.0010851951083168 18971 0.001085173105821 18972 0.0010851508704945 18973 0.0010851286351681 18974 0.0010851069819182 18975 0.0010850849794224 18976 0.0010850629769266 18977 0.0010850409744307 18978 0.0010850183898583 18979 0.0010849967366084 18980 0.001084974152036 18981 0.0010849523823708 18982 0.0010849299142137 18983 0.0010849079117179 18984 0.001084886607714 18985 0.0010848636738956 18986 0.0010848422534764 18987 0.0010848195524886 18988 0.0010847978992388 18989 0.0010847760131583 18990 0.0010847537778318 18991 0.0010847311932594 18992 0.0010847095400095 18993 0.0010846878867596 18994 0.0010846656514332 18995 0.0010846432996914 18996 0.0010846212971956 18997 0.0010845992946997 18998 0.0010845769429579 18999 0.0010845555225387 19000 0.0010845330543816 19001 0.0010845110518858 19002 0.0010844889329746 19003 0.0010844669304788 19004 0.0010844450443983 19005 0.0010844226926565 19006 0.00108440045733 19007 0.0010843786876649 19008 0.0010843569179997 19009 0.0010843347990885 19010 0.0010843123309314 19011 0.0010842904448509 19012 0.0010842686751857 19013 0.0010842464398593 19014 0.0010842243209481 19015 0.0010842024348676 19016 0.0010841801995412 19017 0.0010841583134606 19018 0.0010841353796422 19019 0.0010841140756384 19020 0.0010840914910659 19021 0.0010840698378161 19022 0.0010840471368283 19023 0.0010840255999938 19024 0.001084003248252 19025 0.0010839815950021 19026 0.001083959126845 19027 0.0010839375900105 19028 0.0010839151218534 19029 0.0010838935850188 19030 0.0010838708840311 19031 0.0010838491143659 19032 0.0010838268790394 19033 0.0010838054586202 19034 0.0010837829904631 19035 0.0010837609879673 19036 0.0010837384033948 19037 0.0010837170993909 19038 0.0010836946312338 19039 0.001083672977984 19040 0.0010836508590728 19041 0.0010836293222383 19042 0.0010836073197424 19043 0.0010835855500773 19044 0.0010835635475814 19045 0.0010835418943316 19046 0.001083520706743 19047 0.0010834982385859 19048 0.001083476934582 19049 0.0010834544664249 19050 0.001083433162421 19051 0.0010834109270945 19052 0.00108338939026 19053 0.0010833677370101 19054 0.001083345618099 19055 0.0010833239648491 19056 0.0010833021951839 19057 0.0010832803091034 19058 0.0010832588886842 19059 0.0010832367697731 19060 0.0010832154657692 19061 0.0010831935796887 19062 0.0010831721592695 19063 0.0010831508552656 19064 0.0010831292020157 19065 0.0010831074323505 19066 0.0010830857791007 19067 0.0010830640094355 19068 0.0010830428218469 19069 0.0010830208193511 19070 0.0010829991661012 19071 0.001082977745682 19072 0.0010829563252628 19073 0.0010829344391823 19074 0.0010829131351784 19075 0.0010828919475898 19076 0.001082869945094 19077 0.0010828487575054 19078 0.0010828265221789 19079 0.0010828058002517 19080 0.0010827840305865 19081 0.001082762144506 19082 0.0010827409569174 19083 0.0010827194200829 19084 0.0010826976504177 19085 0.0010826764628291 19086 0.001082654343918 19087 0.00108263338916 19088 0.0010826110374182 19089 0.0010825900826603 19090 0.0010825679637492 19091 0.0010825470089912 19092 0.0010825248900801 19093 0.0010825033532456 19094 0.001082481816411 19095 0.0010824603959918 19096 0.0010824387427419 19097 0.0010824175551534 19098 0.0010823960183188 19099 0.0010823742486537 19100 0.0010823525954038 19101 0.0010823309421539 19102 0.0010823095217347 19103 0.0010822884505615 19104 0.0010822663316503 19105 0.001082245609723 19106 0.0010822233743966 19107 0.001082202186808 19108 0.0010821805335581 19109 0.0010821591131389 19110 0.0010821374598891 19111 0.0010821163887158 19112 0.0010820942698047 19113 0.0010820729658008 19114 0.0010820517782122 19115 0.001082030008547 19116 0.0010820082388818 19117 0.0010819875169545 19118 0.0010819653980434 19119 0.0010819444432855 19120 0.0010819223243743 19121 0.0010819013696164 19122 0.0010818795999512 19123 0.001081858179532 19124 0.0010818366426975 19125 0.0010818155715242 19126 0.0010817934526131 19127 0.0010817727306858 19128 0.0010817507281899 19129 0.0010817294241861 19130 0.0010817076545209 19131 0.0010816869325936 19132 0.0010816646972671 19133 0.0010816433932632 19134 0.0010816222056746 19135 0.0010816003195941 19136 0.0010815788991749 19137 0.0010815573623404 19138 0.0010815357090905 19139 0.0010815147543326 19140 0.0010814931010827 19141 0.0010814712150022 19142 0.0010814496781677 19143 0.0010814283741638 19144 0.0010814067209139 19145 0.0010813855333254 19146 0.0010813639964908 19147 0.001081342343241 19148 0.0010813209228218 19149 0.0010812993859872 19150 0.001081277616322 19151 0.0010812567779794 19152 0.0010812346590683 19153 0.0010812137043104 19154 0.0010811915853992 19155 0.0010811707470566 19156 0.0010811490938067 19157 0.0010811279062182 19158 0.0010811059037223 19159 0.0010810847161338 19160 0.0010810634121299 19161 0.0010810414096341 19162 0.0010810203384608 19163 0.0010809989180416 19164 0.001080977730453 19165 0.0010809556115419 19166 0.001080934307538 19167 0.0010809126542881 19168 0.0010808914666995 19169 0.0010808696970344 19170 0.0010808487422764 19171 0.0010808268561959 19172 0.0010808049701154 19173 0.0010807835496962 19174 0.0010807618964463 19175 0.0010807408252731 19176 0.0010807189391926 19177 0.0010806974023581 19178 0.0010806760983542 19179 0.0010806547943503 19180 0.0010806330246851 19181 0.0010806117206812 19182 0.0010805904166773 19183 0.0010805691126734 19184 0.0010805472265929 19185 0.0010805261554196 19186 0.0010805046185851 19187 0.0010804834309965 19188 0.0010804617777467 19189 0.0010804401244968 19190 0.0010804187040776 19191 0.0010803969344124 19192 0.0010803759796545 19193 0.0010803542099893 19194 0.0010803330224007 19195 0.0010803111363202 19196 0.001080289715901 19197 0.0010802685283124 19198 0.0010802466422319 19199 0.0010802255710587 19200 0.0010802039178088 19201 0.0010801820317283 19202 0.0010801609605551 19203 0.0010801391908899 19204 0.0010801181197166 19205 0.0010800962336361 19206 0.0010800748132169 19207 0.0010800531599671 19208 0.0010800319723785 19209 0.0010800103191286 19210 0.0010799888987094 19211 0.0010799674782902 19212 0.0010799458250403 19213 0.0010799244046211 19214 0.0010799028677866 19215 0.0010798809817061 19216 0.0010798597941175 19217 0.0010798383736983 19218 0.0010798168368638 19219 0.0010797953000292 19220 0.0010797734139487 19221 0.0010797528084368 19222 0.0010797306895256 19223 0.0010797097347677 19224 0.0010796878486872 19225 0.0010796668939292 19226 0.0010796450078487 19227 0.0010796239366755 19228 0.0010796021670103 19229 0.0010795809794217 19230 0.0010795597918332 19231 0.0010795382549986 19232 0.0010795171838254 19233 0.0010794961126521 19234 0.0010794748086482 19235 0.0010794535046443 19236 0.0010794320842251 19237 0.0010794114787132 19238 0.001079389709048 19239 0.0010793684050441 19240 0.0010793474502861 19241 0.0010793262626976 19242 0.001079305075109 19243 0.0010792836546898 19244 0.0010792621178553 19245 0.0010792417451739 19246 0.0010792197426781 19247 0.0010791989043355 19248 0.0010791776003316 19249 0.0010791565291584 19250 0.0010791351087391 19251 0.0010791139211506 19252 0.0010790933156386 19253 0.0010790717788041 19254 0.0010790505912155 19255 0.0010790294036269 19256 0.0010790085652843 19257 0.0010789871448651 19258 0.0010789663065225 19259 0.0010789441876113 19260 0.00107892381493 19261 0.0010789020452648 19262 0.0010788813233376 19263 0.0010788595536724 19264 0.0010788384824991 19265 0.0010788172949106 19266 0.0010787958744913 19267 0.0010787744540721 19268 0.0010787534993142 19269 0.0010787323117256 19270 0.0010787112405524 19271 0.0010786892380565 19272 0.0010786687489599 19273 0.00107864709571 19274 0.0010786266066134 19275 0.0010786046041176 19276 0.0010785836493596 19277 0.0010785623453557 19278 0.0010785411577672 19279 0.0010785199701786 19280 0.00107849878259 19281 0.0010784771293402 19282 0.0010784564074129 19283 0.0010784345213324 19284 0.0010784139158204 19285 0.0010783924954012 19286 0.0010783711913973 19287 0.0010783500038087 19288 0.0010783288162202 19289 0.0010783075122163 19290 0.0010782865574583 19291 0.0010782645549625 19292 0.0010782438330352 19293 0.0010782225290313 19294 0.0010782014578581 19295 0.0010781802702695 19296 0.001078158733435 19297 0.0010781376622617 19298 0.0010781167075038 19299 0.0010780949378386 19300 0.0010780738666654 19301 0.0010780524462461 19302 0.0010780318407342 19303 0.0010780098382384 19304 0.0010779893491417 19305 0.0010779675794765 19306 0.0010779466247186 19307 0.0010779248550534 19308 0.0010779040167108 19309 0.0010778836440295 19310 0.0010778618743643 19311 0.0010778409196064 19312 0.0010778201976791 19313 0.0010777992429212 19314 0.0010777784045786 19315 0.0010777569841594 19316 0.0010777361458167 19317 0.0010777155403048 19318 0.0010776938870549 19319 0.0010776736307889 19320 0.0010776529088616 19321 0.0010776312556118 19322 0.0010776104172692 19323 0.0010775894625112 19324 0.0010775686241686 19325 0.0010775475529954 19326 0.0010775267146528 19327 0.0010775056434795 19328 0.0010774850379676 19329 0.001077464199625 19330 0.0010774431284517 19331 0.0010774221736938 19332 0.0010774014517665 19333 0.0010773807298392 19334 0.0010773597750813 19335 0.0010773389367387 19336 0.0010773183312267 19337 0.0010772974928841 19338 0.0010772768873721 19339 0.0010772563982755 19340 0.0010772354435176 19341 0.0010772147215903 19342 0.0010771946981549 19343 0.001077173394151 19344 0.0010771533707157 19345 0.0010771322995424 19346 0.0010771118104458 19347 0.0010770908556879 19348 0.0010770703665912 19349 0.0010770499939099 19350 0.0010770289227366 19351 0.00107700843364 19352 0.0010769879445434 19353 0.0010769673390314 19354 0.0010769463842735 19355 0.0010769254295155 19356 0.0010769050568342 19357 0.0010768846841529 19358 0.001076863380149 19359 0.0010768430074677 19360 0.0010768226347864 19361 0.0010768016800284 19362 0.0010767810745165 19363 0.0010767608182505 19364 0.0010767398634925 19365 0.0010767194908112 19366 0.0010766987688839 19367 0.0010766779305413 19368 0.0010766573250294 19369 0.0010766368359327 19370 0.0010766159975901 19371 0.0010765951592475 19372 0.0010765746701509 19373 0.0010765538318083 19374 0.0010765332262963 19375 0.0010765126207843 19376 0.001076492248103 19377 0.0010764712933451 19378 0.0010764502221718 19379 0.0010764298494905 19380 0.0010764094768092 19381 0.0010763886384666 19382 0.0010763679165393 19383 0.0010763468453661 19384 0.001076326938346 19385 0.0010763061000034 19386 0.0010762856109068 19387 0.0010762650053948 19388 0.0010762440506369 19389 0.0010762237943709 19390 0.001076202839613 19391 0.001076182234101 19392 0.0010761615121737 19393 0.0010761404410005 19394 0.0010761200683191 19395 0.0010760996956378 19396 0.0010760786244646 19397 0.0010760581353679 19398 0.0010760372970253 19399 0.0010760168079287 19400 0.001075996318832 19401 0.0010759753640741 19402 0.0010759544093162 19403 0.0010759338038042 19404 0.0010759137803689 19405 0.0010758927091956 19406 0.0010758724529296 19407 0.001075851614587 19408 0.0010758307762444 19409 0.0010758102871478 19410 0.0010757901472971 19411 0.0010757683776319 19412 0.0010757483541965 19413 0.0010757278650999 19414 0.0010757071431726 19415 0.0010756861884147 19416 0.0010756656993181 19417 0.0010756453266367 19418 0.0010756241390482 19419 0.0010756036499515 19420 0.0010755828116089 19421 0.0010755617404357 19422 0.0010755411349237 19423 0.001075521344319 19424 0.0010754998074844 19425 0.0010754795512185 19426 0.0010754591785371 19427 0.0010754381073639 19428 0.0010754173854366 19429 0.0010753972455859 19430 0.0010753761744127 19431 0.0010753558017313 19432 0.0010753348469734 19433 0.0010753145907074 19434 0.0010752937523648 19435 0.0010752732632682 19436 0.0010752528905869 19437 0.0010752318194136 19438 0.001075211330317 19439 0.0010751909576356 19440 0.0010751696536317 19441 0.0010751496301964 19442 0.0010751285590231 19443 0.0010751079535112 19444 0.0010750873479992 19445 0.0010750673245639 19446 0.00107504602056 19447 0.0010750255314633 19448 0.001075005158782 19449 0.00107498455327 19450 0.0010749632492661 19451 0.0010749432258308 19452 0.0010749228531495 19453 0.0010749016655609 19454 0.0010748810600489 19455 0.0010748610366136 19456 0.0010748400818557 19457 0.0010748191270977 19458 0.001074798987247 19459 0.0010747781489044 19460 0.0010747574269772 19461 0.0010747367050499 19462 0.0010747164487839 19463 0.0010746953776106 19464 0.0010746752377599 19465 0.001074654283002 19466 0.0010746339103207 19467 0.0010746131883934 19468 0.0010745921172202 19469 0.0010745722102001 19470 0.0010745516046882 19471 0.0010745307663456 19472 0.0010745100444183 19473 0.0010744894389063 19474 0.0010744689498097 19475 0.0010744479950517 19476 0.0010744277387857 19477 0.0010744072496891 19478 0.0010743862949312 19479 0.0010743660386652 19480 0.0010743455495685 19481 0.0010743248276412 19482 0.0010743039892986 19483 0.0010742832673714 19484 0.0010742627782747 19485 0.0010742420563474 19486 0.0010742220329121 19487 0.0010742007289082 19488 0.0010741803562269 19489 0.0010741599835455 19490 0.0010741392616183 19491 0.0010741190053523 19492 0.0010740978177637 19493 0.0010740774450824 19494 0.0010740568395704 19495 0.0010740362340584 19496 0.0010740160942078 19497 0.0010739947902039 19498 0.0010739747667685 19499 0.0010739541612566 19500 0.001073932973668 19501 0.0010739129502326 19502 0.001073892461136 19503 0.0010738712735474 19504 0.0010738510172814 19505 0.0010738305281848 19506 0.0010738099226728 19507 0.0010737890843302 19508 0.0010737691773102 19509 0.0010737486882135 19510 0.0010737272677943 19511 0.001073706895113 19512 0.001073686289601 19513 0.0010736656840891 19514 0.0010736447293311 19515 0.0010736245894805 19516 0.0010736038675532 19517 0.0010735830292106 19518 0.0010735631221905 19519 0.001073541934602 19520 0.0010735215619206 19521 0.0010735009564087 19522 0.0010734798852354 19523 0.0010734598618001 19524 0.0010734389070421 19525 0.0010734179522842 19526 0.0010733983945101 19527 0.0010733779054135 19528 0.0010733567178249 19529 0.0010733362287283 19530 0.001073315506801 19531 0.001073295250535 19532 0.0010732740629464 19533 0.0010732542723417 19534 0.0010732332011685 19535 0.0010732124792412 19536 0.0010731918737292 19537 0.0010731713846326 19538 0.0010731507791206 19539 0.0010731305228546 19540 0.0010731095680967 19541 0.0010730889625847 19542 0.0010730682406574 19543 0.0010730482172221 19544 0.0010730269132182 19545 0.0010730068897828 19546 0.0010729860514402 19547 0.0010729656787589 19548 0.0010729446075857 19549 0.001072924118489 19550 0.001072903862223 19551 0.0010728831402957 19552 0.0010728619527072 19553 0.0010728421621025 19554 0.0010728214401752 19555 0.0010728014167398 19556 0.0010727798799053 19557 0.0010727597400546 19558 0.0010727391345426 19559 0.0010727185290307 19560 0.0010726979235187 19561 0.0010726770851761 19562 0.0010726563632488 19563 0.0010726363398135 19564 0.0010726153850555 19565 0.0010725948959589 19566 0.0010725740576163 19567 0.0010725541505963 19568 0.001072533079423 19569 0.0010725122410804 19570 0.0010724919848144 19571 0.0010724717285484 19572 0.0010724510066211 19573 0.0010724305175245 19574 0.0010724099120125 19575 0.0010723895393312 19576 0.0010723687009886 19577 0.0010723482118919 19578 0.0010723274899647 19579 0.0010723068844527 19580 0.0010722865117714 19581 0.0010722656734288 19582 0.0010722454171628 19583 0.0010722246952355 19584 0.0010722039733082 19585 0.0010721837170422 19586 0.0010721629951149 19587 0.0010721432045102 19588 0.001072121784091 19589 0.001072101178579 19590 0.0010720817372203 19591 0.001072061015293 19592 0.0010720409918576 19593 0.001072020153515 19594 0.0010720001300797 19595 0.0010719802230597 19596 0.0010719592683017 19597 0.001071939477697 19598 0.0010719189886004 19599 0.001071898965165 19600 0.0010718785924837 19601 0.0010718575213104 19602 0.0010718379635364 19603 0.0010718171251938 19604 0.0010717971017584 19605 0.0010717769619077 19606 0.0010717564728111 19607 0.0010717362165451 19608 0.0010717154946178 19609 0.0010716959368438 19610 0.0010716752149165 19611 0.0010716548422351 19612 0.0010716349352151 19613 0.0010716139804572 19614 0.0010715939570218 19615 0.0010715737007558 19616 0.0010715535609052 19617 0.0010715340031311 19618 0.0010715133976191 19619 0.0010714938398451 19620 0.0010714732343331 19621 0.0010714535601437 19622 0.0010714331874624 19623 0.0010714130476117 19624 0.0010713934898376 19625 0.0010713728843257 19626 0.0010713534429669 19627 0.0010713334195316 19628 0.0010713126976043 19629 0.0010712930234149 19630 0.0010712726507336 19631 0.0010712527437136 19632 0.0010712330695242 19633 0.0010712123475969 19634 0.0010711927898228 19635 0.0010711724171415 19636 0.0010711528593674 19637 0.0010711322538555 19638 0.0010711121140048 19639 0.0010710924398154 19640 0.0010710719507188 19641 0.0010710520436987 19642 0.001071032253094 19643 0.0010710115311667 19644 0.0010709918569773 19645 0.0010709713678807 19646 0.001070951577276 19647 0.0010709320195019 19648 0.0010709112975746 19649 0.0010708915069699 19650 0.0010708712507039 19651 0.0010708521585912 19652 0.0010708310874179 19653 0.0010708115296438 19654 0.0010707916226238 19655 0.0010707710171118 19656 0.0010707515757531 19657 0.0010707315523177 19658 0.0010707115288824 19659 0.0010706916218624 19660 0.0010706710163504 19661 0.001070651342161 19662 0.001070630736649 19663 0.0010706112952903 19664 0.0010705912718549 19665 0.0010705708991736 19666 0.0010705511085689 19667 0.0010705305030569 19668 0.0010705112945288 19669 0.0010704912710935 19670 0.0010704711312428 19671 0.0010704509913921 19672 0.0010704307351261 19673 0.0010704110609367 19674 0.0010703911539167 19675 0.001070371014066 19676 0.001070351107046 19677 0.001070330501534 19678 0.0010703108273447 19679 0.0010702908039093 19680 0.0010702711297199 19681 0.0010702508734539 19682 0.0010702307336032 19683 0.0010702109429985 19684 0.0010701913852245 19685 0.0010701707797125 19686 0.0010701509891078 19687 0.0010701307328418 19688 0.0010701110586524 19689 0.001070091035217 19690 0.0010700708953664 19691 0.0010700509883463 19692 0.0010700314305723 19693 0.0010700111743063 19694 0.0010699913837016 19695 0.0010699710110202 19696 0.0010699514532462 19697 0.0010699308477342 19698 0.0010699118720368 19699 0.0010698917321861 19700 0.0010698715923354 19701 0.0010698508704081 19702 0.0010698310798034 19703 0.0010698112891987 19704 0.0010697916150093 19705 0.0010697711259127 19706 0.0010697515681386 19707 0.0010697314282879 19708 0.0010697110556066 19709 0.0010696916142479 19710 0.0010696713579819 19711 0.0010696516837925 19712 0.0010696311946958 19713 0.0010696114040911 19714 0.0010695918463171 19715 0.0010695714736357 19716 0.0010695521486923 19717 0.0010695311939344 19718 0.0010695122182369 19719 0.0010694919619709 19720 0.0010694719385356 19721 0.0010694520315155 19722 0.0010694320080802 19723 0.0010694121010602 19724 0.0010693923104554 19725 0.0010693720541894 19726 0.0010693522635847 19727 0.0010693321237341 19728 0.0010693124495447 19729 0.001069291960448 19730 0.001069272402674 19731 0.0010692526120692 19732 0.0010692325886339 19733 0.0010692123323679 19734 0.0010691925417632 19735 0.0010691724019125 19736 0.0010691524948925 19737 0.0010691322386265 19738 0.0010691129136831 19739 0.0010690924245864 19740 0.001069073099643 19741 0.0010690527269617 19742 0.0010690327035263 19743 0.0010690131457523 19744 0.0010689928894863 19745 0.0010689730988815 19746 0.0010689531918615 19747 0.0010689331684262 19748 0.0010689133778214 19749 0.0010688930051401 19750 0.0010688736801967 19751 0.0010688533075154 19752 0.0010688330512494 19753 0.00106881337706 19754 0.001068793120794 19755 0.0010687735630199 19756 0.0010687536559999 19757 0.0010687329340726 19758 0.0010687138419598 19759 0.0010686937021092 19760 0.0010686739115044 19761 0.0010686537716538 19762 0.0010686339810491 19763 0.0010686137247831 19764 0.001068593817763 19765 0.0010685743764043 19766 0.001068554003723 19767 0.0010685343295336 19768 0.0010685147717595 19769 0.0010684942826629 19770 0.0010684746084735 19771 0.0010684542357922 19772 0.0010684346780181 19773 0.0010684147709981 19774 0.0010683946311474 19775 0.001068374607712 19776 0.0010683545842767 19777 0.0010683350265026 19778 0.001068314537406 19779 0.0010682945139706 19780 0.0010682753054425 19781 0.0010682546999305 19782 0.0010682353749871 19783 0.0010682155843824 19784 0.0010681954445317 19785 0.0010681755375117 19786 0.0010681548155844 19787 0.0010681352578104 19788 0.0010681158164516 19789 0.0010680957930163 19790 0.0010680756531656 19791 0.0010680555133149 19792 0.0010680359555408 19793 0.0010680158156902 19794 0.0010679956758395 19795 0.0010679761180654 19796 0.0010679559782147 19797 0.0010679360711947 19798 0.0010679163970053 19799 0.0010678961407393 19800 0.0010678765829653 19801 0.0010678565595299 19802 0.0010678365360945 19803 0.0010678165126592 19804 0.0010677967220545 19805 0.0010677768150344 19806 0.0010677566751838 19807 0.0010677368845791 19808 0.0010677168611437 19809 0.001067697070539 19810 0.001067676814273 19811 0.001067656907253 19812 0.0010676372330636 19813 0.0010676169767976 19814 0.0010675976518542 19815 0.0010675773955882 19816 0.0010675576049834 19817 0.0010675376979634 19818 0.0010675170924515 19819 0.001067497767508 19820 0.0010674779769033 19821 0.0010674578370526 19822 0.0010674380464479 19823 0.0010674181394279 19824 0.0010673981159925 19825 0.0010673784418032 19826 0.0010673584183678 19827 0.0010673380456865 19828 0.0010673180222511 19829 0.0010672984644771 19830 0.0010672786738724 19831 0.0010672584176064 19832 0.001067238743417 19833 0.0010672188363969 19834 0.0010671986965463 19835 0.0010671794880182 19836 0.0010671587660909 19837 0.0010671389754862 19838 0.0010671194177121 19839 0.0010670991614461 19840 0.0010670800693333 19841 0.0010670598130673 19842 0.001067039440386 19843 0.001067019533366 19844 0.0010670000920072 19845 0.0010669803014025 19846 0.0010669599287212 19847 0.0010669399052858 19848 0.0010669201146811 19849 0.0010669005569071 19850 0.0010668805334717 19851 0.0010668601607904 19852 0.001066840486601 19853 0.0010668208124116 19854 0.0010668009053916 19855 0.0010667811147869 19856 0.0010667608585209 19857 0.0010667413007468 19858 0.0010667209280655 19859 0.0010667011374608 19860 0.001066681696102 19861 0.0010666610905901 19862 0.001066641882062 19863 0.0010666217422113 19864 0.0010666016023606 19865 0.0010665822774172 19866 0.0010665620211512 19867 0.0010665424633771 19868 0.0010665219742805 19869 0.0010665025329217 19870 0.0010664826259017 19871 0.0010664623696357 19872 0.001066442928277 19873 0.0010664224391803 19874 0.0010664031142369 19875 0.0010663830908015 19876 0.0010663627181202 19877 0.0010663433931768 19878 0.0010663237189874 19879 0.001066304044798 19880 0.0010662849526852 19881 0.0010662650456652 19882 0.0010662457207218 19883 0.0010662261629477 19884 0.0010662059066817 19885 0.0010661869309843 19886 0.0010661664418876 19887 0.0010661473497748 19888 0.0010661277920008 19889 0.0010661076521501 19890 0.0010660889092833 19891 0.0010660686530173 19892 0.0010660489788279 19893 0.0010660296538845 19894 0.0010660099796951 19895 0.001065990771167 19896 0.0010659709805623 19897 0.0010659511899576 19898 0.0010659313993528 19899 0.0010659119579941 19900 0.0010658933315426 19901 0.0010658733081073 19902 0.0010658540995792 19903 0.0010658347746357 19904 0.0010658154496923 19905 0.0010657960083336 19906 0.0010657765669748 19907 0.0010657575912774 19908 0.0010657380335033 19909 0.0010657184757292 19910 0.0010656991507858 19911 0.001065680058673 19912 0.0010656603844836 19913 0.0010656409431249 19914 0.0010656223166734 19915 0.0010656025260687 19916 0.0010655830847099 19917 0.0010655636433512 19918 0.0010655446676537 19919 0.0010655254591256 19920 0.0010655060177669 19921 0.0010654868092388 19922 0.0010654670186341 19923 0.0010654476936907 19924 0.0010654284851626 19925 0.0010654090438038 19926 0.001065389951691 19927 0.0010653705103323 19928 0.0010653508361429 19929 0.0010653316276148 19930 0.001065312535502 19931 0.0010652936762199 19932 0.0010652737691998 19933 0.0010652543278411 19934 0.001065235119313 19935 0.0010652156779543 19936 0.0010651962365955 19937 0.0010651773773134 19938 0.0010651574702933 19939 0.0010651383781806 19940 0.0010651191696525 19941 0.0010650993790478 19942 0.0010650807525963 19943 0.0010650609619915 19944 0.0010650414042175 19945 0.00106502242852 19946 0.0010650029871613 19947 0.0010649841278791 19948 0.0010649639880285 19949 0.001064945012331 19950 0.0010649260366336 19951 0.0010649058967829 19952 0.0010648871539161 19953 0.0010648678289726 19954 0.0010648486204445 19955 0.0010648287134245 19956 0.0010648095048964 19957 0.0010647908784449 19958 0.0010647710878402 19959 0.0010647517628968 19960 0.0010647319722921 19961 0.0010647128801793 19962 0.0010646937880665 19963 0.0010646743467078 19964 0.001064654905349 19965 0.0010646358132362 19966 0.0010646164882928 19967 0.00106459739618 19968 0.0010645772563294 19969 0.0010645583970472 19970 0.0010645393049344 19971 0.0010645197471604 19972 0.0010645003058016 19973 0.0010644808644429 19974 0.0010644618887454 19975 0.001064442563802 19976 0.0010644232388586 19977 0.0010644039139152 19978 0.0010643842397258 19979 0.001064365496859 19980 0.0010643461719155 19981 0.0010643267305568 19982 0.0010643068235368 19983 0.0010642879642546 19984 0.0010642692213878 19985 0.0010642493143678 19986 0.0010642301058397 19987 0.0010642105480656 19988 0.0010641912231222 19989 0.001064172713086 19990 0.0010641525732353 19991 0.0010641339467838 19992 0.0010641145054251 19993 0.001064094947651 19994 0.0010640757391229 19995 0.0010640558321029 19996 0.0010640372056514 19997 0.0010640181135386 19998 0.0010639985557646 19999 0.0010639789979905 20000 0.0010639595566317 20001 0.0010639405809343 20002 0.0010639216052368 20003 0.0010639022802934 20004 0.0010638824896887 20005 0.0010638630483299 20006 0.0010638439562172 20007 0.001063825096935 20008 0.0010638050734997 20009 0.0010637859813869 20010 0.0010637670056894 20011 0.0010637475643307 20012 0.0010637284722179 20013 0.0010637085651979 20014 0.0010636895895004 20015 0.0010636703809723 20016 0.0010636511724442 20017 0.0010636318475008 20018 0.001063612755388 20019 0.0010635934304446 20020 0.0010635738726705 20021 0.0010635550133884 20022 0.0010635352227837 20023 0.0010635160142556 20024 0.0010634971549734 20025 0.0010634773643687 20026 0.0010634578065947 20027 0.0010634389473125 20028 0.0010634197387844 20029 0.0010634006466717 20030 0.0010633809724823 20031 0.0010633615311235 20032 0.0010633422061801 20033 0.0010633231140673 20034 0.0010633042547852 20035 0.0010632843477651 20036 0.0010632652556524 20037 0.0010632456978783 20038 0.0010632269550115 20039 0.001063207979314 20040 0.001063188072294 20041 0.0010631690965965 20042 0.0010631491895765 20043 0.001063130563125 20044 0.0010631110053509 20045 0.0010630916804075 20046 0.0010630728211254 20047 0.00106305279769 20048 0.0010630342876539 20049 0.0010630143806338 20050 0.0010629952885211 20051 0.0010629766620696 20052 0.0010629566386342 20053 0.0010629371972755 20054 0.0010629181051627 20055 0.0010628988966346 20056 0.0010628795716912 20057 0.0010628604795784 20058 0.001062841154635 20059 0.0010628218296915 20060 0.0010628026211634 20061 0.0010627830633894 20062 0.0010627644369379 20063 0.0010627444135025 20064 0.0010627254378051 20065 0.0010627063456923 20066 0.0010626869043335 20067 0.0010626675793901 20068 0.0010626482544467 20069 0.0010626290459186 20070 0.0010626099538058 20071 0.0010625902796164 20072 0.0010625715367496 20073 0.0010625519789755 20074 0.0010625325376168 20075 0.0010625132126734 20076 0.0010624941205606 20077 0.0010624746792018 20078 0.0010624552378431 20079 0.0010624364949763 20080 0.0010624167043716 20081 0.0010623973794281 20082 0.0010623784037307 20083 0.0010623595444486 20084 0.0010623396374285 20085 0.0010623205453157 20086 0.0010623013367876 20087 0.0010622816625983 20088 0.0010622626869008 20089 0.0010622437112033 20090 0.0010622241534293 20091 0.0010622050613165 20092 0.0010621853871271 20093 0.0010621664114296 20094 0.0010621470864862 20095 0.0010621279943734 20096 0.00106210866943 20097 0.001062089111656 20098 0.0010620701359585 20099 0.0010620504617691 20100 0.0010620314860716 20101 0.0010620127432048 20102 0.0010619927197695 20103 0.001061974093318 20104 0.0010619545355439 20105 0.0010619352106005 20106 0.0010619161184877 20107 0.001061896327883 20108 0.0010618778178468 20109 0.0010618581436574 20110 0.0010618387022987 20111 0.0010618196101859 20112 0.0010618001688272 20113 0.0010617811931297 20114 0.0010617619846016 20115 0.0010617430089042 20116 0.0010617238003761 20117 0.0010617040097713 20118 0.0010616848012432 20119 0.0010616659419611 20120 0.001061646733433 20121 0.0010616271756589 20122 0.0010616081999615 20123 0.0010615885257721 20124 0.0010615692008287 20125 0.0010615498758852 20126 0.0010615306673571 20127 0.0010615115752444 20128 0.001061491901055 20129 0.0010614729253575 20130 0.0010614537168294 20131 0.001061434391886 20132 0.0010614151833579 20133 0.0010613957419991 20134 0.001061376882717 20135 0.0010613572085276 20136 0.0010613381164148 20137 0.0010613190243021 20138 0.0010612999321893 20139 0.0010612807236612 20140 0.0010612611658871 20141 0.0010612418409437 20142 0.0010612222831696 20143 0.0010612036567181 20144 0.0010611845646054 20145 0.0010611650068313 20146 0.0010611459147185 20147 0.0010611261241138 20148 0.0010611071484163 20149 0.0010610882891342 20150 0.0010610688477755 20151 0.0010610497556627 20152 0.001061029965058 20153 0.0010610112221912 20154 0.0010609917808324 20155 0.0010609722230583 20156 0.0010609535966069 20157 0.0010609342716634 20158 0.0010609148303047 20159 0.0010608956217766 20160 0.0010608766460791 20161 0.0010608573211357 20162 0.0010608376469463 20163 0.0010608187876642 20164 0.0010608001612127 20165 0.0010607804870233 20166 0.0010607610456645 20167 0.0010607418371364 20168 0.0010607223957777 20169 0.0010607036529109 20170 0.0010606842115521 20171 0.0010606645373628 20172 0.00106064544525 20173 0.0010606264695525 20174 0.0010606070281938 20175 0.0010605880524963 20176 0.0010605691932142 20177 0.001060550333932 20178 0.0010605312418193 20179 0.0010605120332912 20180 0.0010604936396703 20181 0.0010604744311422 20182 0.0010604556882754 20183 0.001060436014086 20184 0.0010604169219732 20185 0.0010603984119371 20186 0.001060379203409 20187 0.0010603597620502 20188 0.001060341252014 20189 0.0010603228583932 20190 0.0010603030677885 20191 0.0010602839756757 20192 0.0010602655820549 20193 0.0010602467227727 20194 0.0010602273978293 20195 0.0010602080728859 20196 0.0010601899120957 20197 0.0010601704707369 20198 0.0010601520771161 20199 0.0010601333342493 20200 0.0010601143585518 20201 0.0010600957321003 20202 0.0010600772220641 20203 0.001060058362782 20204 0.0010600393870845 20205 0.0010600207606331 20206 0.0010600017849356 20207 0.0010599832748994 20208 0.0010599644156173 20209 0.0010599459055811 20210 0.0010599265806377 20211 0.0010599085362628 20212 0.0010598893277347 20213 0.0010598708176985 20214 0.0010598518420011 20215 0.0010598332155496 20216 0.0010598142398521 20217 0.001059795729816 20218 0.0010597771033645 20219 0.0010597580112517 20220 0.0010597392683849 20221 0.0010597213404253 20222 0.0010597018990666 20223 0.0010596831561998 20224 0.0010596644133329 20225 0.0010596455540508 20226 0.0010596270440146 20227 0.0010596080683172 20228 0.0010595893254504 20229 0.0010595704661682 20230 0.0010595516068861 20231 0.0010595330968499 20232 0.0010595144703984 20233 0.001059495145455 20234 0.0010594768682495 20235 0.001059458241798 20236 0.0010594389168546 20237 0.0010594204068184 20238 0.0010594018967822 20239 0.0010593829210848 20240 0.0010593640618026 20241 0.0010593457845971 20242 0.0010593264596537 20243 0.0010593077167869 20244 0.0010592895559967 20245 0.0010592702310532 20246 0.0010592518374324 20247 0.0010592330945656 20248 0.0010592138860375 20249 0.001059195259586 20250 0.0010591766331345 20251 0.0010591578902677 20252 0.0010591387981549 20253 0.0010591205209494 20254 0.0010591018944979 20255 0.0010590828023851 20256 0.0010590641759336 20257 0.0010590452002361 20258 0.0010590262245387 20259 0.0010590081801638 20260 0.0010589892044663 20261 0.0010589696466923 20262 0.0010589516023174 20263 0.0010589328594506 20264 0.0010589136509225 20265 0.0010588951408863 20266 0.0010588760487735 20267 0.0010588580043986 20268 0.0010588387958705 20269 0.0010588201694191 20270 0.0010588015429676 20271 0.0010587826836854 20272 0.0010587638244033 20273 0.0010587453143671 20274 0.001058726455085 20275 0.0010587073629722 20276 0.001058688852936 20277 0.0010586701100692 20278 0.0010586518328637 20279 0.0010586326243356 20280 0.0010586143471301 20281 0.0010585953714326 20282 0.0010585768613964 20283 0.0010585582349449 20284 0.0010585391428322 20285 0.001058520632796 20286 0.0010585018899292 20287 0.0010584829142317 20288 0.0010584644041955 20289 0.0010584456613287 20290 0.0010584263363853 20291 0.0010584080591798 20292 0.0010583891998976 20293 0.0010583709226921 20294 0.001058351714164 20295 0.0010583334369585 20296 0.0010583145776764 20297 0.0010582956019789 20298 0.001058277208358 20299 0.0010582588147372 20300 0.0010582392569631 20301 0.0010582210961729 20302 0.0010582025861368 20303 0.0010581838432699 20304 0.0010581646347418 20305 0.0010581463575363 20306 0.0010581271490082 20307 0.0010581087553874 20308 0.0010580897796899 20309 0.0010580711532384 20310 0.0010580525267869 20311 0.0010580335510895 20312 0.0010580151574686 20313 0.0010579964146018 20314 0.0010579775553197 20315 0.0010579591616988 20316 0.0010579398367554 20317 0.0010579219087958 20318 0.0010579027002677 20319 0.0010578841902316 20320 0.0010578654473647 20321 0.0010578469373286 20322 0.0010578283108771 20323 0.0010578094515949 20324 0.0010577905923128 20325 0.001057772198692 20326 0.0010577529901639 20327 0.001057734945789 20328 0.0010577158536762 20329 0.00105769734364 20330 0.0010576787171885 20331 0.0010576597414911 20332 0.0010576412314549 20333 0.0010576222557575 20334 0.0010576033964753 20335 0.0010575851192698 20336 0.001057566027157 20337 0.0010575477499515 20338 0.0010575284250081 20339 0.0010575099149719 20340 0.0010574917541817 20341 0.0010574724292383 20342 0.0010574541520327 20343 0.0010574351763353 20344 0.0010574164334685 20345 0.0010573982726783 20346 0.0010573788313195 20347 0.0010573610197753 20348 0.0010573415784165 20349 0.0010573231847957 20350 0.0010573044419289 20351 0.0010572854662314 20352 0.0010572668397799 20353 0.0010572478640825 20354 0.0010572291212156 20355 0.0010572110768408 20356 0.0010571915190667 20357 0.0010571733582765 20358 0.0010571544989944 20359 0.0010571358725429 20360 0.0010571172460914 20361 0.0010570981539786 20362 0.0010570799931884 20363 0.001057060668245 20364 0.0010570419253781 20365 0.0010570236481726 20366 0.0010570047888905 20367 0.0010569866281003 20368 0.0010569673031569 20369 0.0010569490259513 20370 0.0010569300502539 20371 0.0010569111909717 20372 0.0010568932630122 20373 0.0010568741708994 20374 0.001056854845956 20375 0.0010568365687504 20376 0.0010568182915449 20377 0.0010567993158475 20378 0.001056780689396 20379 0.0010567619465292 20380 0.0010567435529083 20381 0.0010567242279649 20382 0.0010567060671747 20383 0.0010566873243079 20384 0.0010566686978564 20385 0.0010566497221589 20386 0.0010566313285381 20387 0.0010566122364253 20388 0.0010565938428044 20389 0.0010565749835223 20390 0.0010565563570708 20391 0.0010565377306193 20392 0.0010565192205831 20393 0.0010565002448857 20394 0.0010564817348495 20395 0.0010564628755674 20396 0.0010564445983618 20397 0.0010564252734184 20398 0.0010564072290435 20399 0.0010563882533461 20400 0.0010563693940639 20401 0.0010563507676125 20402 0.001056332141161 20403 0.0010563131654635 20404 0.0010562950046733 20405 0.0010562763782218 20406 0.0010562578681856 20407 0.0010562385432422 20408 0.0010562204988673 20409 0.0010562015231699 20410 0.0010561827803031 20411 0.0010561640374362 20412 0.0010561456438154 20413 0.001056126318872 20414 0.0010561081580818 20415 0.0010560895316303 20416 0.0010560709051788 20417 0.0010560516966507 20418 0.0010560335358605 20419 0.0010560151422396 20420 0.0010559958172962 20421 0.0010559771908447 20422 0.0010559589136392 20423 0.0010559398215264 20424 0.0010559214279056 20425 0.0010559025686234 20426 0.0010558841750026 20427 0.0010558648500592 20428 0.0010558469220996 20429 0.0010558280628175 20430 0.0010558092035353 20431 0.0010557905770838 20432 0.001055772183463 20433 0.0010557533241808 20434 0.00105573493056 20435 0.0010557158384472 20436 0.001055697328411 20437 0.0010556783527136 20438 0.0010556600755081 20439 0.0010556410998106 20440 0.0010556225897744 20441 0.0010556037304923 20442 0.0010555848712102 20443 0.0010555664775893 20444 0.0010555483167991 20445 0.001055529457517 20446 0.0010555111803114 20447 0.0010554927866906 20448 0.0010554741602391 20449 0.0010554556502029 20450 0.0010554374894127 20451 0.0010554192122072 20452 0.0010554002365097 20453 0.0010553819593042 20454 0.0010553642641753 20455 0.0010553451720625 20456 0.0010553267784417 20457 0.0010553083848208 20458 0.0010552904568613 20459 0.0010552714811638 20460 0.0010552529711276 20461 0.0010552348103374 20462 0.0010552164167166 20463 0.0010551976738498 20464 0.0010551797458902 20465 0.0010551605373621 20466 0.0010551427258179 20467 0.0010551242157817 20468 0.0010551057057455 20469 0.0010550873121247 20470 0.0010550690349191 20471 0.0010550507577136 20472 0.0010550320148468 20473 0.0010550133883953 20474 0.0010549952276051 20475 0.0010549768339843 20476 0.0010549584403634 20477 0.0010549399303272 20478 0.0010549215367064 20479 0.0010549034923315 20480 0.001054884516634 20481 0.0010548662394285 20482 0.001054848311469 20483 0.0010548301506788 20484 0.0010548117570579 20485 0.001054793712683 20486 0.0010547754354775 20487 0.0010547578567639 20488 0.0010547388810664 20489 0.0010547210695222 20490 0.0010547030251473 20491 0.0010546843986958 20492 0.0010546662379056 20493 0.0010546483099461 20494 0.0010546294506639 20495 0.0010546115227044 20496 0.0010545933619142 20497 0.0010545754339546 20498 0.0010545568075031 20499 0.0010545392287895 20500 0.0010545208351687 20501 0.0010545020923018 20502 0.0010544843971729 20503 0.0010544664692134 20504 0.0010544477263466 20505 0.0010544302640483 20506 0.0010544125689194 20507 0.0010543942917138 20508 0.0010543770622462 20509 0.0010543593671173 20510 0.0010543409734964 20511 0.0010543242096901 20512 0.0010543060488999 20513 0.0010542878881097 20514 0.0010542705422267 20515 0.0010542526142672 20516 0.0010542349191383 20517 0.00105421745684 20518 0.0010541995288804 20519 0.0010541814845055 20520 0.0010541639057919 20521 0.0010541459778324 20522 0.0010541287483647 20523 0.0010541105875745 20524 0.0010540930088609 20525 0.001054075313732 20526 0.0010540575021878 20527 0.0010540399234742 20528 0.0010540222283453 20529 0.0010540045332164 20530 0.0010539869545028 20531 0.0010539692593738 20532 0.0010539517970756 20533 0.0010539337527007 20534 0.0010539162904024 20535 0.0010538985952735 20536 0.0010538802016526 20537 0.0010538630886003 20538 0.0010538451606408 20539 0.0010538275819272 20540 0.0010538096539676 20541 0.0010537919588387 20542 0.0010537742637098 20543 0.0010537569178268 20544 0.0010537391062826 20545 0.0010537209454924 20546 0.0010537037160248 20547 0.0010536860208958 20548 0.0010536683257669 20549 0.0010536507470533 20550 0.0010536327026784 20551 0.0010536151239648 20552 0.0010535975452513 20553 0.0010535801993683 20554 0.0010535620385781 20555 0.0010535443434492 20556 0.0010535269975662 20557 0.0010535090696067 20558 0.0010534916073084 20559 0.0010534736793488 20560 0.0010534557513893 20561 0.001053438289091 20562 0.0010534207103774 20563 0.0010534026660025 20564 0.0010533850872889 20565 0.0010533676249906 20566 0.0010533496970311 20567 0.0010533322347328 20568 0.0010533144231886 20569 0.0010532969608903 20570 0.001053279498592 20571 0.0010532620362937 20572 0.0010532438755035 20573 0.0010532264132053 20574 0.0010532082524151 20575 0.0010531910229474 20576 0.0010531733278185 20577 0.001053155050613 20578 0.0010531378211454 20579 0.0010531201260164 20580 0.0010531026637182 20581 0.0010530843865126 20582 0.0010530669242144 20583 0.0010530494619161 20584 0.0010530318832025 20585 0.0010530144209042 20586 0.001052996260114 20587 0.0010529791470617 20588 0.0010529612191021 20589 0.0010529435239732 20590 0.0010529265273362 20591 0.001052908366546 20592 0.0010528906714171 20593 0.0010528732091188 20594 0.0010528557468206 20595 0.001052838168107 20596 0.0010528203565627 20597 0.0010528031270951 20598 0.0010527849663049 20599 0.0010527677368373 20600 0.0010527500417084 20601 0.0010527322301641 20602 0.0010527148842812 20603 0.0010526973055676 20604 0.0010526792611927 20605 0.0010526615660638 20606 0.0010526441037655 20607 0.0010526260593906 20608 0.0010526091791689 20609 0.0010525913676247 20610 0.0010525740217417 20611 0.0010525560937822 20612 0.0010525383986533 20613 0.0010525210527703 20614 0.0010525034740567 20615 0.0010524856625125 20616 0.0010524684330449 20617 0.0010524506215006 20618 0.001052432693541 20619 0.0010524149984121 20620 0.0010523978853598 20621 0.0010523798409849 20622 0.0010523627279326 20623 0.0010523450328037 20624 0.0010523274540901 20625 0.0010523096425459 20626 0.0010522917145863 20627 0.0010522743687034 20628 0.0010522566735744 20629 0.0010522393276915 20630 0.0010522212833166 20631 0.0010522045195103 20632 0.0010521863587201 20633 0.0010521692456678 20634 0.0010521508520469 20635 0.001052133506164 20636 0.001052115811035 20637 0.0010520979994908 20638 0.0010520808864385 20639 0.0010520631913096 20640 0.0010520454961807 20641 0.001052028266713 20642 0.0010520101059228 20643 0.0010519924107939 20644 0.0010519749484956 20645 0.0010519579518586 20646 0.0010519396746531 20647 0.0010519225616008 20648 0.0010519045172259 20649 0.0010518867056817 20650 0.0010518691269681 20651 0.0010518517810851 20652 0.0010518338531256 20653 0.0010518166236579 20654 0.0010517990449443 20655 0.0010517813498154 20656 0.0010517640039325 20657 0.0010517457267269 20658 0.001051728380844 20659 0.0010517109185457 20660 0.0010516929905862 20661 0.0010516761103645 20662 0.001051657833159 20663 0.0010516406036913 20664 0.0010516231413931 20665 0.0010516050970182 20666 0.0010515875183046 20667 0.0010515700560063 20668 0.0010515521280468 20669 0.0010515348985791 20670 0.0010515172034502 20671 0.001051499391906 20672 0.001051481696777 20673 0.0010514642344788 20674 0.0010514466557652 20675 0.0010514287278056 20676 0.0010514112655073 20677 0.0010513939196244 20678 0.0010513761080801 20679 0.0010513589950278 20680 0.0010513404849917 20681 0.0010513234883547 20682 0.0010513059096411 20683 0.0010512883309275 20684 0.0010512708686292 20685 0.001051252707839 20686 0.0010512354783714 20687 0.0010512178996578 20688 0.0010512002045289 20689 0.001051182160154 20690 0.0010511649306864 20691 0.0010511474683881 20692 0.0010511298896745 20693 0.0010511125437915 20694 0.001051094615832 20695 0.0010510766878724 20696 0.0010510596912354 20697 0.0010510421125218 20698 0.0010510241845623 20699 0.0010510064894333 20700 0.0010509892599657 20701 0.0010509716812521 20702 0.0010509543353692 20703 0.001050935825333 20704 0.0010509189451113 20705 0.0010509006679058 20706 0.0010508835548535 20707 0.0010508663253859 20708 0.0010508483974263 20709 0.0010508305858821 20710 0.0010508131235838 20711 0.0010507957777008 20712 0.0010507776169106 20713 0.001050760038197 20714 0.0010507429251447 20715 0.0010507249971852 20716 0.0010507081169635 20717 0.0010506901890039 20718 0.0010506727267057 20719 0.0010506549151614 20720 0.0010506373364478 20721 0.0010506196413189 20722 0.0010506024118513 20723 0.0010505847167224 20724 0.0010505671380088 20725 0.0010505497921258 20726 0.0010505320969969 20727 0.001050514052622 20728 0.0010504969395697 20729 0.0010504792444408 20730 0.0010504614328966 20731 0.001050443854183 20732 0.0010504266247153 20733 0.0010504086967558 20734 0.0010503913508728 20735 0.0010503740049899 20736 0.0010503560770303 20737 0.001050338614732 20738 0.0010503211524338 20739 0.0010503042722121 20740 0.0010502859950066 20741 0.0010502685327083 20742 0.0010502513032407 20743 0.0010502337245271 20744 0.0010502159129828 20745 0.0010501984506845 20746 0.0010501814540476 20747 0.0010501634096727 20748 0.0010501458309591 20749 0.0010501290671527 20750 0.0010501109063625 20751 0.0010500934440643 20752 0.0010500762145966 20753 0.0010500581702217 20754 0.0010500407079235 20755 0.0010500233620405 20756 0.0010500055504963 20757 0.0010499879717827 20758 0.0010499709751457 20759 0.0010499531636015 20760 0.0010499355848879 20761 0.0010499181225896 20762 0.0010499006602913 20763 0.0010498830815777 20764 0.0010498657356948 20765 0.0010498486226425 20766 0.0010498303454369 20767 0.0010498131159693 20768 0.0010497958865017 20769 0.0010497779585421 20770 0.0010497603798285 20771 0.0010497433831915 20772 0.001049725105986 20773 0.0010497078765184 20774 0.0010496904142201 20775 0.0010496728355065 20776 0.0010496552567929 20777 0.0010496381437406 20778 0.0010496204486117 20779 0.0010496025206521 20780 0.0010495855240151 20781 0.0010495674796402 20782 0.0010495507158339 20783 0.0010495327878743 20784 0.0010495153255761 20785 0.0010494978632778 20786 0.0010494802845642 20787 0.0010494627058506 20788 0.001049445476383 20789 0.0010494275484234 20790 0.0010494100861251 20791 0.0010493927402422 20792 0.0010493751615286 20793 0.0010493571171537 20794 0.001049340236932 20795 0.0010493232402951 20796 0.0010493057779968 20797 0.0010492883156985 20798 0.0010492716683075 20799 0.0010492539731786 20800 0.0010492367437109 20801 0.0010492196306586 20802 0.0010492018191144 20803 0.0010491845896468 20804 0.0010491675930098 20805 0.0010491498978809 20806 0.0010491326684132 20807 0.0010491155553609 20808 0.001049097860232 20809 0.001049080863595 20810 0.0010490634012967 20811 0.0010490464046597 20812 0.0010490287095308 20813 0.0010490115964785 20814 0.0010489941341802 20815 0.0010489767882973 20816 0.0010489594424143 20817 0.0010489424457774 20818 0.0010489249834791 20819 0.0010489078704268 20820 0.0010488905245438 20821 0.0010488734114915 20822 0.0010488557163626 20823 0.0010488386033103 20824 0.0010488210245967 20825 0.001048804144375 20826 0.0010487863328308 20827 0.0010487698018551 20828 0.0010487518738955 20829 0.0010487348772585 20830 0.0010487174149603 20831 0.0010487006511539 20832 0.0010486828396097 20833 0.0010486657265574 20834 0.0010486487299204 20835 0.0010486311512068 20836 0.0010486136889085 20837 0.0010485968086869 20838 0.0010485793463886 20839 0.0010485618840903 20840 0.0010485448874533 20841 0.0010485275415704 20842 0.0010485103121027 20843 0.0010484929662198 20844 0.0010484759695828 20845 0.0010484582744539 20846 0.0010484412778169 20847 0.0010484239319339 20848 0.0010484070517123 20849 0.001048389240168 20850 0.0010483723599464 20851 0.0010483546648175 20852 0.0010483380174264 20853 0.0010483204387128 20854 0.0010483034420758 20855 0.0010482859797776 20856 0.0010482686338946 20857 0.001048251753673 20858 0.0010482345242053 20859 0.0010482170619071 20860 0.0010482001816854 20861 0.0010481823701411 20862 0.0010481657227501 20863 0.0010481484932825 20864 0.0010481313802302 20865 0.0010481143835932 20866 0.0010480976197869 20867 0.0010480806231499 20868 0.0010480633936822 20869 0.0010480465134606 20870 0.0010480295168236 20871 0.0010480127530172 20872 0.0010479956399649 20873 0.0010479785269126 20874 0.001047961646691 20875 0.0010479444172233 20876 0.0010479278862476 20877 0.0010479100747034 20878 0.0010478935437277 20879 0.0010478763142601 20880 0.0010478597832844 20881 0.0010478422045708 20882 0.0010478255571797 20883 0.0010478087933734 20884 0.0010477916803211 20885 0.0010477750329301 20886 0.0010477576870471 20887 0.0010477405739948 20888 0.0010477234609425 20889 0.0010477066971362 20890 0.0010476899333298 20891 0.0010476725874469 20892 0.0010476555908099 20893 0.0010476394090801 20894 0.0010476215975359 20895 0.0010476048337296 20896 0.0010475874878466 20897 0.0010475707240403 20898 0.0010475537274033 20899 0.0010475370800123 20900 0.0010475193848833 20901 0.001047502970323 20902 0.0010474855080247 20903 0.0010474692098796 20904 0.0010474515147507 20905 0.0010474347509444 20906 0.0010474177543074 20907 0.0010474007576704 20908 0.0010473837610334 20909 0.0010473662987351 20910 0.0010473497677594 20911 0.0010473327711225 20912 0.0010473155416548 20913 0.0010472992435098 20914 0.0010472818976268 20915 0.0010472649009898 20916 0.0010472487192601 20917 0.0010472309077159 20918 0.0010472141439095 20919 0.0010471969144419 20920 0.0010471804998815 20921 0.0010471631539986 20922 0.0010471463901922 20923 0.0010471290443093 20924 0.0010471122805029 20925 0.0010470951674506 20926 0.0010470787528902 20927 0.0010470615234226 20928 0.0010470441775396 20929 0.0010470275301486 20930 0.0010470105335116 20931 0.0010469934204593 20932 0.001046976307407 20933 0.00104695931077 20934 0.001046942314133 20935 0.0010469253174961 20936 0.0010469087865204 20937 0.0010468914406374 20938 0.0010468744440004 20939 0.0010468577966094 20940 0.0010468410328031 20941 0.0010468232212588 20942 0.0010468065738678 20943 0.0010467898100615 20944 0.0010467729298398 20945 0.0010467555839568 20946 0.0010467392858118 20947 0.0010467220563442 20948 0.0010467050597072 20949 0.0010466880630702 20950 0.0010466712992638 20951 0.0010466540697962 20952 0.0010466368403286 20953 0.0010466203093529 20954 0.0010466030798852 20955 0.0010465858504176 20956 0.0010465695522726 20957 0.0010465520899743 20958 0.0010465354425833 20959 0.0010465184459463 20960 0.0010465020313859 20961 0.0010464844526723 20962 0.00104646733962 20963 0.0010464508086443 20964 0.0010464334627613 20965 0.0010464165825397 20966 0.0010463998187333 20967 0.0010463822400197 20968 0.001046365709044 20969 0.0010463487124071 20970 0.0010463321814314 20971 0.0010463143698871 20972 0.0010462979553267 20973 0.0010462809586897 20974 0.0010462636128068 20975 0.0010462469654158 20976 0.0010462300851941 20977 0.0010462125064805 20978 0.0010461958590895 20979 0.0010461789788678 20980 0.0010461623314768 20981 0.0010461445199326 20982 0.0010461282217875 20983 0.0010461109923199 20984 0.0010460936464369 20985 0.0010460768826306 20986 0.0010460595367476 20987 0.0010460425401106 20988 0.0010460260091349 20989 0.0010460093617439 20990 0.0010459914337844 20991 0.0010459749028087 20992 0.001045958371833 20993 0.0010459411423653 20994 0.001045924029313 20995 0.001045907032676 20996 0.0010458905017003 20997 0.0010458729229867 20998 0.0010458565084264 20999 0.00104583974462 21000 0.0010458223987371 21001 0.0010458058677614 21002 0.0010457885218784 21003 0.0010457714088261 21004 0.0010457545286044 21005 0.0010457375319675 21006 0.0010457210009918 21007 0.0010457040043548 21008 0.0010456864256412 21009 0.0010456698946655 21010 0.0010456528980285 21011 0.0010456354357302 21012 0.0010456189047545 21013 0.0010456021409482 21014 0.0010455851443112 21015 0.0010455681476742 21016 0.0010455511510372 21017 0.0010455342708156 21018 0.0010455168085173 21019 0.0010455005103722 21020 0.0010454831644893 21021 0.0010454658186063 21022 0.0010454492876306 21023 0.0010454322909936 21024 0.001045415061526 21025 0.0010453982977197 21026 0.0010453818831593 21027 0.001045364420861 21028 0.0010453476570547 21029 0.001045331126079 21030 0.0010453136637807 21031 0.0010452968999743 21032 0.0010452796705067 21033 0.0010452629067004 21034 0.0010452460264787 21035 0.001045229146257 21036 0.0010452119167894 21037 0.0010451950365677 21038 0.0010451783891767 21039 0.0010451613925397 21040 0.0010451439302415 21041 0.0010451273992658 21042 0.0010451107518747 21043 0.0010450929403305 21044 0.0010450765257701 21045 0.0010450598783791 21046 0.0010450427653268 21047 0.0010450256522745 21048 0.0010450088884681 21049 0.0010449920082465 21050 0.0010449750116095 21051 0.0010449580149725 21052 0.0010449414839968 21053 0.0010449242545292 21054 0.0010449072578922 21055 0.0010448908433318 21056 0.0010448734974489 21057 0.0010448565008119 21058 0.0010448399698362 21059 0.0010448227403685 21060 0.0010448060929775 21061 0.0010447890963405 21062 0.0010447719832882 21063 0.0010447547538206 21064 0.0010447384556755 21065 0.0010447211097926 21066 0.0010447041131556 21067 0.0010446872329339 21068 0.0010446703527123 21069 0.0010446533560753 21070 0.0010446364758536 21071 0.0010446197120473 21072 0.0010446030646563 21073 0.001044585602358 21074 0.0010445693042129 21075 0.0010445514926687 21076 0.0010445348452777 21077 0.0010445181978866 21078 0.0010445008520037 21079 0.0010444840881974 21080 0.0010444674408063 21081 0.0010444502113387 21082 0.0010444335639477 21083 0.0010444165673107 21084 0.0010443998035043 21085 0.001044382690452 21086 0.0010443658102304 21087 0.0010443485807627 21088 0.0010443322826177 21089 0.0010443149367347 21090 0.0010442980565131 21091 0.001044281758368 21092 0.0010442642960697 21093 0.001044247765094 21094 0.0010442303027958 21095 0.001044214121066 21096 0.0010441965423524 21097 0.0010441797785461 21098 0.0010441627819091 21099 0.0010441460181028 21100 0.0010441285558045 21101 0.0010441123740748 21102 0.0010440947953612 21103 0.0010440780315548 21104 0.0010440613841638 21105 0.0010440445039421 21106 0.0010440275073051 21107 0.0010440105106682 21108 0.0010439937468618 21109 0.0010439766338095 21110 0.0010439597535878 21111 0.0010439431061968 21112 0.0010439259931445 21113 0.0010439089965075 21114 0.0010438924655318 21115 0.0010438757017255 21116 0.0010438585886732 21117 0.0010438414756209 21118 0.0010438251774758 21119 0.0010438072495162 21120 0.0010437913006172 21121 0.0010437744203955 21122 0.0010437578894198 21123 0.0010437415912747 21124 0.001043725060299 21125 0.0010437086457387 21126 0.0010436923475936 21127 0.0010436754673719 21128 0.0010436595184729 21129 0.0010436425218359 21130 0.0010436261072755 21131 0.0010436096927151 21132 0.0010435928124934 21133 0.001043576747179 21134 0.0010435603326187 21135 0.001043543452397 21136 0.0010435275034979 21137 0.0010435110889375 21138 0.0010434946743771 21139 0.0010434779105708 21140 0.0010434617288411 21141 0.0010434448486194 21142 0.0010434285504743 21143 0.0010434124851599 21144 0.0010433963034302 21145 0.0010433797724545 21146 0.0010433627758175 21147 0.0010433467105031 21148 0.0010433301795274 21149 0.0010433134157211 21150 0.001043297117576 21151 0.0010432808194309 21152 0.0010432639392093 21153 0.0010432482231408 21154 0.0010432309936732 21155 0.0010432148119435 21156 0.0010431981645525 21157 0.0010431822156534 21158 0.0010431653354317 21159 0.0010431489208713 21160 0.0010431320406497 21161 0.0010431162081659 21162 0.0010430992115289 21163 0.0010430826805532 21164 0.0010430663824081 21165 0.0010430499678478 21166 0.001043033786118 21167 0.0010430169058964 21168 0.0010430007241666 21169 0.0010429845424369 21170 0.0010429677786306 21171 0.0010429515969008 21172 0.0010429351823404 21173 0.0010429183021188 21174 0.0010429023532197 21175 0.001042885472998 21176 0.0010428694076836 21177 0.0010428525274619 21178 0.0010428364621475 21179 0.0010428200475872 21180 0.0010428035166115 21181 0.0010427869856358 21182 0.0010427709203213 21183 0.0010427536908537 21184 0.0010427377419546 21185 0.0010427210945636 21186 0.0010427050292492 21187 0.0010426877997816 21188 0.0010426720837131 21189 0.0010426555527374 21190 0.0010426386725157 21191 0.0010426223743707 21192 0.001042606192641 21193 0.001042589196004 21194 0.0010425728978589 21195 0.0010425567161292 21196 0.0010425406508148 21197 0.0010425236541778 21198 0.0010425073560327 21199 0.001042491523549 21200 0.0010424742940813 21201 0.0010424584615976 21202 0.0010424415813759 21203 0.0010424251668155 21204 0.0010424088686705 21205 0.0010423925705254 21206 0.0010423759231344 21207 0.0010423596249893 21208 0.0010423430940136 21209 0.0010423271451145 21210 0.0010423102648929 21211 0.0010422938503325 21212 0.0010422776686028 21213 0.0010422606719658 21214 0.0010422446066514 21215 0.001042228192091 21216 0.001042211195454 21217 0.0010421951301396 21218 0.0010421785991639 21219 0.0010421626502648 21220 0.0010421454207972 21221 0.0010421297047287 21222 0.0010421130573377 21223 0.0010420966427773 21224 0.0010420805774629 21225 0.0010420643957332 21226 0.0010420479811728 21227 0.0010420317994431 21228 0.001042015850544 21229 0.0010419993195683 21230 0.0010419832542539 21231 0.0010419668396935 21232 0.001041951123625 21233 0.001041934476234 21234 0.0010419186437503 21235 0.0010419019963592 21236 0.0010418854653835 21237 0.0010418694000691 21238 0.0010418535675853 21239 0.001041837153025 21240 0.0010418208548799 21241 0.0010418044403195 21242 0.0010417888406664 21243 0.0010417718440294 21244 0.0010417560115457 21245 0.0010417399462312 21246 0.0010417235316709 21247 0.0010417073499411 21248 0.0010416912846267 21249 0.0010416756849736 21250 0.0010416588047519 21251 0.0010416429722682 21252 0.0010416270233691 21253 0.0010416103759781 21254 0.0010415943106636 21255 0.0010415783617646 21256 0.0010415617143735 21257 0.0010415457654744 21258 0.00104152970016 21259 0.001041513402015 21260 0.0010414973367006 21261 0.0010414810385555 21262 0.0010414648568258 21263 0.0010414485586807 21264 0.0010414321441203 21265 0.0010414163116366 21266 0.0010413995478302 21267 0.0010413840645924 21268 0.0010413673007861 21269 0.0010413514683023 21270 0.0010413349373266 21271 0.0010413191048428 21272 0.0010413031559438 21273 0.0010412866249681 21274 0.0010412709088996 21275 0.0010412541450933 21276 0.0010412381961942 21277 0.0010412222472951 21278 0.0010412060655653 21279 0.0010411894181743 21280 0.0010411734692752 21281 0.0010411571711302 21282 0.0010411415714771 21283 0.0010411245748401 21284 0.0010411089751869 21285 0.0010410924442112 21286 0.0010410761460662 21287 0.0010410601971671 21288 0.0010410440154374 21289 0.0010410277172923 21290 0.0010410116519779 21291 0.0010409958194941 21292 0.0010409796377644 21293 0.0010409631067887 21294 0.0010409473907202 21295 0.0010409309761599 21296 0.0010409146780148 21297 0.0010408987291157 21298 0.0010408826638013 21299 0.0010408663656563 21300 0.0010408499510959 21301 0.0010408342350274 21302 0.0010408179368824 21303 0.0010408017551526 21304 0.0010407859226689 21305 0.0010407702066004 21306 0.0010407536756247 21307 0.0010407380759716 21308 0.0010407220106572 21309 0.0010407061781734 21310 0.0010406898800284 21311 0.0010406742803752 21312 0.0010406578658149 21313 0.0010406420333311 21314 0.001040626084432 21315 0.0010406103683636 21316 0.0010405943030491 21317 0.0010405785869807 21318 0.0010405622888356 21319 0.0010405465727672 21320 0.0010405306238681 21321 0.001040514674969 21322 0.0010404987260699 21323 0.0010404826607555 21324 0.0010404668282717 21325 0.0010404511122033 21326 0.0010404351633042 21327 0.0010404187487438 21328 0.001040403265506 21329 0.0010403867345303 21330 0.0010403711348772 21331 0.0010403548367321 21332 0.0010403390042484 21333 0.0010403231717646 21334 0.0010403071064502 21335 0.0010402910411358 21336 0.0010402748594061 21337 0.0010402590269223 21338 0.0010402433108538 21339 0.0010402270127088 21340 0.0010402114130557 21341 0.0010401949984953 21342 0.0010401790495962 21343 0.0010401632171124 21344 0.0010401476174593 21345 0.0010401316685602 21346 0.0010401153704152 21347 0.001040100120008 21348 0.0010400838218629 21349 0.0010400676401332 21350 0.0010400520404801 21351 0.001040036091581 21352 0.00104001944419 21353 0.0010400041937828 21354 0.0010399878956378 21355 0.0010399726452306 21356 0.0010399557650089 21357 0.0010399402817711 21358 0.0010399242164567 21359 0.001039908034727 21360 0.0010398924350739 21361 0.0010398767190054 21362 0.0010398604208604 21363 0.0010398442391306 21364 0.0010398285230622 21365 0.0010398133890703 21366 0.0010397961596027 21367 0.0010397810256109 21368 0.0010397650767118 21369 0.0010397487785667 21370 0.0010397331789136 21371 0.0010397168807685 21372 0.0010397011647001 21373 0.0010396845173091 21374 0.0010396693833172 21375 0.0010396532015875 21376 0.0010396370198578 21377 0.0010396214202046 21378 0.0010396052384749 21379 0.0010395891731605 21380 0.001039573457092 21381 0.0010395573917776 21382 0.0010395415592939 21383 0.0010395250283182 21384 0.0010395095450804 21385 0.0010394932469353 21386 0.0010394777636975 21387 0.0010394620476291 21388 0.0010394456330687 21389 0.0010394298005849 21390 0.0010394133860245 21391 0.0010393980192021 21392 0.0010393816046417 21393 0.0010393656557426 21394 0.0010393501725048 21395 0.0010393341071904 21396 0.001039318041876 21397 0.0010393018601462 21398 0.0010392857948318 21399 0.0010392700787634 21400 0.0010392537806183 21401 0.0010392379481345 21402 0.0010392224648967 21403 0.001039206283167 21404 0.0010391904506832 21405 0.0010391743853688 21406 0.0010391583200544 21407 0.0010391427204013 21408 0.0010391264222562 21409 0.0010391107061878 21410 0.0010390945244581 21411 0.0010390786919743 21412 0.0010390626266599 21413 0.0010390471434221 21414 0.0010390307288617 21415 0.0010390147799626 21416 0.0010389988310635 21417 0.0010389831149951 21418 0.0010389669332653 21419 0.0010389509843662 21420 0.0010389350354671 21421 0.0010389192029834 21422 0.0010389034869149 21423 0.0010388875380158 21424 0.0010388717055321 21425 0.0010388555238023 21426 0.0010388398077339 21427 0.0010388239752501 21428 0.0010388082591817 21429 0.0010387919610366 21430 0.0010387760121375 21431 0.0010387599468231 21432 0.001038744696416 21433 0.0010387281654403 21434 0.0010387125657871 21435 0.001038696616888 21436 0.0010386810172349 21437 0.0010386648355052 21438 0.0010386491194367 21439 0.0010386330541223 21440 0.0010386173380539 21441 0.0010386016219854 21442 0.0010385857895017 21443 0.0010385699570179 21444 0.0010385538917035 21445 0.0010385379428044 21446 0.001038521528244 21447 0.0010385063942522 21448 0.0010384900961071 21449 0.0010384742636234 21450 0.0010384581983089 21451 0.0010384425986558 21452 0.0010384265333414 21453 0.0010384102351964 21454 0.0010383946355432 21455 0.0010383788030595 21456 0.0010383628541604 21457 0.0010383473709226 21458 0.0010383310727775 21459 0.0010383153567091 21460 0.001038299058564 21461 0.0010382839245722 21462 0.0010382680920884 21463 0.001038251677528 21464 0.0010382361942902 21465 0.0010382195468992 21466 0.001038204645738 21467 0.0010381881147623 21468 0.0010381726315245 21469 0.0010381564497948 21470 0.0010381408501416 21471 0.0010381250176579 21472 0.0010381084866822 21473 0.0010380926541984 21474 0.0010380771709606 21475 0.0010380608728155 21476 0.0010380453895777 21477 0.0010380289750174 21478 0.0010380136081949 21479 0.0010379974264652 21480 0.0010379819432274 21481 0.0010379659943283 21482 0.0010379500454292 21483 0.0010379340965301 21484 0.0010379186132923 21485 0.0010379031300545 21486 0.0010378870647401 21487 0.0010378716979176 21488 0.0010378560982645 21489 0.001037840382196 21490 0.0010378247825429 21491 0.0010378088336438 21492 0.00103779300116 21493 0.0010377778671682 21494 0.0010377620346844 21495 0.0010377464350313 21496 0.0010377302533016 21497 0.0010377151193097 21498 0.0010376991704106 21499 0.0010376838035882 21500 0.0010376679711044 21501 0.0010376523714513 21502 0.0010376364225522 21503 0.0010376210557297 21504 0.0010376060381532 21505 0.0010375893907622 21506 0.001037574140355 21507 0.0010375585407019 21508 0.0010375425918028 21509 0.0010375272249803 21510 0.0010375112760812 21511 0.0010374956764281 21512 0.001037480076775 21513 0.0010374638950452 21514 0.001037448993884 21515 0.0010374324629083 21516 0.0010374169796705 21517 0.0010374014964327 21518 0.001037385663949 21519 0.0010373704135418 21520 0.0010373542318121 21521 0.0010373385157436 21522 0.0010373233817518 21523 0.001037307898514 21524 0.0010372918331996 21525 0.0010372761171311 21526 0.001037260517478 21527 0.0010372456163168 21528 0.0010372292017564 21529 0.0010372136021033 21530 0.0010371978860348 21531 0.001037182752043 21532 0.0010371668031439 21533 0.0010371514363214 21534 0.001037135371007 21535 0.0010371196549386 21536 0.0010371040552855 21537 0.0010370888048783 21538 0.0010370728559792 21539 0.0010370572563261 21540 0.001037041307427 21541 0.0010370260570198 21542 0.0010370099917054 21543 0.0010369943920523 21544 0.0010369784431532 21545 0.0010369630763307 21546 0.0010369479423389 21547 0.0010369321098551 21548 0.0010369163937867 21549 0.0010369002120569 21550 0.0010368848452345 21551 0.0010368693619967 21552 0.0010368539951742 21553 0.0010368379298598 21554 0.001036822446622 21555 0.0010368062648922 21556 0.0010367912473157 21557 0.0010367755312473 21558 0.0010367598151788 21559 0.0010367438662797 21560 0.0010367284994572 21561 0.0010367128998041 21562 0.0010366970673203 21563 0.0010366808855906 21564 0.0010366659844294 21565 0.001036650268361 21566 0.0010366346687078 21567 0.0010366190690547 21568 0.0010366027709097 21569 0.0010365878697485 21570 0.0010365719208494 21571 0.0010365565540269 21572 0.0010365404887125 21573 0.0010365248890594 21574 0.0010365095222369 21575 0.0010364938061684 21576 0.0010364780901 21577 0.0010364627232775 21578 0.0010364467743784 21579 0.0010364314075559 21580 0.0010364154586568 21581 0.0010363997425884 21582 0.0010363842593506 21583 0.0010363686596975 21584 0.0010363534092903 21585 0.0010363373439759 21586 0.0010363217443228 21587 0.0010363061446697 21588 0.0010362906614318 21589 0.0010362750617787 21590 0.0010362595785409 21591 0.0010362435132265 21592 0.0010362279135734 21593 0.0010362123139203 21594 0.0010361971799284 21595 0.001036181114614 21596 0.0010361657477915 21597 0.001036150380969 21598 0.0010361352469772 21599 0.0010361196473241 21600 0.0010361045133322 21601 0.0010360886808485 21602 0.001036073663272 21603 0.0010360584128648 21604 0.0010360431624576 21605 0.0010360272135586 21606 0.0010360119631514 21607 0.0010359971784055 21608 0.0010359812295064 21609 0.0010359663283452 21610 0.0010359501466155 21611 0.001035935478285 21612 0.0010359196458012 21613 0.0010359045118093 21614 0.0010358891449869 21615 0.0010358733125031 21616 0.0010358581785113 21617 0.0010358430445194 21618 0.0010358272120357 21619 0.0010358123108745 21620 0.001035796594806 21621 0.0010357814608142 21622 0.0010357666760683 21623 0.0010357507271692 21624 0.0010357360588387 21625 0.001035719527863 21626 0.0010357047431171 21627 0.0010356892598793 21628 0.0010356740094721 21629 0.001035658409819 21630 0.0010356431594118 21631 0.001035627676174 21632 0.0010356125421822 21633 0.0010355970589444 21634 0.001035581342876 21635 0.0010355657432228 21636 0.0010355507256463 21637 0.0010355357080698 21638 0.0010355201084167 21639 0.0010355042759329 21640 0.0010354893747717 21641 0.0010354742407799 21642 0.0010354588739574 21643 0.0010354435071349 21644 0.0010354277910665 21645 0.001035412424244 21646 0.0010353971738368 21647 0.0010353818070143 21648 0.0010353664401919 21649 0.0010353511897847 21650 0.0010353354737163 21651 0.0010353206889704 21652 0.001035304623656 21653 0.0010352894896641 21654 0.001035274239257 21655 0.0010352588724345 21656 0.0010352430399507 21657 0.0010352279059589 21658 0.0010352125391364 21659 0.0010351974051446 21660 0.0010351813398302 21661 0.0010351662058383 21662 0.0010351508390158 21663 0.0010351352393627 21664 0.0010351203382015 21665 0.0010351042728871 21666 0.0010350893717259 21667 0.0010350737720728 21668 0.0010350581724197 21669 0.0010350430384278 21670 0.0010350272059441 21671 0.0010350118391216 21672 0.001034997170791 21673 0.0010349809890613 21674 0.0010349663207307 21675 0.0010349500225857 21676 0.0010349353542551 21677 0.001034919754602 21678 0.0010349039221182 21679 0.0010348892537877 21680 0.0010348735377192 21681 0.0010348582873121 21682 0.0010348429204896 21683 0.0010348273208365 21684 0.001034811954014 21685 0.0010347968200222 21686 0.0010347808711231 21687 0.0010347662027925 21688 0.0010347502538934 21689 0.0010347352363169 21690 0.0010347194038332 21691 0.00103470380418 21692 0.0010346887866035 21693 0.0010346728377044 21694 0.0010346579365432 21695 0.0010346425697207 21696 0.0010346273193136 21697 0.0010346120689064 21698 0.0010345967020839 21699 0.0010345811024308 21700 0.0010345657356083 21701 0.0010345499031246 21702 0.0010345348855481 21703 0.0010345196351409 21704 0.0010345040354878 21705 0.0010344884358346 21706 0.0010344733018428 21707 0.0010344577021897 21708 0.0010344425681978 21709 0.0010344267357141 21710 0.0010344118345529 21711 0.0010343960020691 21712 0.0010343806352466 21713 0.0010343660833314 21714 0.0010343501344323 21715 0.0010343350004405 21716 0.0010343194007874 21717 0.0010343041503802 21718 0.001034288899973 21719 0.0010342736495659 21720 0.0010342580499128 21721 0.0010342427995056 21722 0.0010342273162678 21723 0.0010342122986913 21724 0.0010341969318688 21725 0.001034181099385 21726 0.0010341657325625 21727 0.0010341505985707 21728 0.0010341353481635 21729 0.0010341199813411 21730 0.0010341039160267 21731 0.0010340891312808 21732 0.0010340739972889 21733 0.0010340583976358 21734 0.0010340436128899 21735 0.0010340275475755 21736 0.0010340124135837 21737 0.0010339970467612 21738 0.0010339817963541 21739 0.0010339659638703 21740 0.0010339505970478 21741 0.001033935463056 21742 0.0010339204454795 21743 0.001033904729411 21744 0.0010338898282498 21745 0.001033873995766 21746 0.0010338590946048 21747 0.001033843611367 21748 0.0010338281281292 21749 0.0010338128777221 21750 0.0010337975108996 21751 0.0010337822604924 21752 0.00103376689367 21753 0.0010337516432628 21754 0.0010337360436097 21755 0.0010337210260332 21756 0.0010337053099647 21757 0.0010336902923882 21758 0.0010336745763198 21759 0.0010336592094973 21760 0.0010336441919208 21761 0.0010336285922676 21762 0.0010336136911064 21763 0.001033597625792 21764 0.0010335828410462 21765 0.0010335674742237 21766 0.0010335517581552 21767 0.0010335369734094 21768 0.0010335213737562 21769 0.0010335058905184 21770 0.0010334908729419 21771 0.0010334755061194 21772 0.0010334602557123 21773 0.0010334446560591 21774 0.0010334295220673 21775 0.0010334138059989 21776 0.0010333987884223 21777 0.0010333834215999 21778 0.0010333681711927 21779 0.0010333525715396 21780 0.0010333375539631 21781 0.0010333220707253 21782 0.0010333071695641 21783 0.0010332914534956 21784 0.0010332758538425 21785 0.001033260836266 21786 0.0010332453530282 21787 0.0010332299862057 21788 0.0010332146193832 21789 0.0010331994853914 21790 0.0010331842349842 21791 0.0010331692174077 21792 0.0010331532685086 21793 0.0010331377852708 21794 0.0010331231169403 21795 0.0010331072844565 21796 0.0010330924997106 21797 0.0010330765508115 21798 0.0010330616496503 21799 0.0010330461664125 21800 0.001033031148836 21801 0.0010330160148442 21802 0.0010329997166991 21803 0.0010329848155379 21804 0.0010329695651308 21805 0.0010329543147236 21806 0.0010329382494092 21807 0.0010329234646633 21808 0.0010329080978408 21809 0.0010328930802643 21810 0.0010328774806112 21811 0.0010328617645428 21812 0.0010328467469662 21813 0.0010328313801438 21814 0.0010328165953979 21815 0.0010328008793294 21816 0.0010327856289223 21817 0.0010327702620998 21818 0.0010327552445233 21819 0.0010327396448702 21820 0.0010327245108783 21821 0.0010327091440558 21822 0.0010326937772334 21823 0.0010326786432415 21824 0.0010326635092497 21825 0.0010326480260119 21826 0.0010326325427741 21827 0.0010326174087822 21828 0.0010326021583751 21829 0.001032586558722 21830 0.0010325714247301 21831 0.001032556174323 21832 0.0010325405746698 21833 0.001032525440678 21834 0.0010325100738555 21835 0.0010324944742024 21836 0.0010324794566259 21837 0.0010324637405574 21838 0.0010324490722269 21839 0.0010324333561584 21840 0.0010324177565053 21841 0.0010324029717594 21842 0.0010323870228603 21843 0.0010323724709451 21844 0.0010323573369533 21845 0.0010323413880542 21846 0.0010323266033083 21847 0.0010323110036552 21848 0.001032295753248 21849 0.0010322810849175 21850 0.0010322650196031 21851 0.0010322502348572 21852 0.0010322342859581 21853 0.0010322195012122 21854 0.0010322043672204 21855 0.0010321885347366 21856 0.0010321736335754 21857 0.0010321584995836 21858 0.0010321430163458 21859 0.0010321279987693 21860 0.0010321122827008 21861 0.0010320966830477 21862 0.0010320820147172 21863 0.0010320666478947 21864 0.0010320513974875 21865 0.0010320362634957 21866 0.0010320213623345 21867 0.0010320065775886 21868 0.0010319913271815 21869 0.001031975960359 21870 0.0010319610591978 21871 0.0010319459252059 21872 0.0010319306747988 21873 0.0010319156572223 21874 0.0010319005232304 21875 0.0010318857384846 21876 0.0010318702552468 21877 0.0010318558197469 21878 0.0010318402200937 21879 0.0010318249696866 21880 0.001031810650602 21881 0.0010317950509489 21882 0.001031780266203 21883 0.0010317654814571 21884 0.001031749881804 21885 0.0010317346313968 21886 0.0010317197302356 21887 0.0010317050619051 21888 0.0010316898114979 21889 0.0010316747939214 21890 0.0010316593106836 21891 0.0010316444095224 21892 0.0010316293919459 21893 0.0010316141415387 21894 0.0010315991239622 21895 0.0010315839899704 21896 0.0010315692052245 21897 0.0010315543040633 21898 0.0010315389372408 21899 0.0010315236868337 21900 0.0010315085528418 21901 0.001031493768096 21902 0.0010314784012735 21903 0.0010314635001123 21904 0.0010314479004592 21905 0.001031432999298 21906 0.0010314183309674 21907 0.0010314030805603 21908 0.0010313877137378 21909 0.0010313731618226 21910 0.0010313577950001 21911 0.0010313430102542 21912 0.0010313274106011 21913 0.0010313125094399 21914 0.0010312974918634 21915 0.0010312823578715 21916 0.0010312674567103 21917 0.0010312519734725 21918 0.0010312374215573 21919 0.0010312222875655 21920 0.001031206920743 21921 0.0010311921359971 21922 0.0010311771184206 21923 0.0010311617515981 21924 0.0010311470832676 21925 0.0010311317164451 21926 0.001031116116792 21927 0.0010311016812921 21928 0.0010310863144696 21929 0.0010310711804777 21930 0.0010310565121472 21931 0.0010310409124941 21932 0.0010310262441635 21933 0.0010310106445104 21934 0.0010309960925952 21935 0.001030980842188 21936 0.0010309658246115 21937 0.001030950807035 21938 0.0010309352073818 21939 0.0010309210047126 21940 0.0010309054050595 21941 0.0010308905038983 21942 0.0010308757191524 21943 0.0010308598866686 21944 0.0010308453347534 21945 0.0010308300843462 21946 0.0010308152996004 21947 0.0010308002820238 21948 0.001030785497278 21949 0.0010307697812095 21950 0.0010307542979717 21951 0.0010307400953025 21952 0.00103072472848 21953 0.0010307093616575 21954 0.0010306948097423 21955 0.0010306799085811 21956 0.0010306644253433 21957 0.0010306490585208 21958 0.0010306345066056 21959 0.0010306191397831 21960 0.0010306043550372 21961 0.0010305893374607 21962 0.0010305742034689 21963 0.0010305589530617 21964 0.0010305440519005 21965 0.00103052938357 21966 0.0010305142495781 21967 0.0010304993484169 21968 0.0010304846800864 21969 0.0010304698953405 21970 0.0010304547613487 21971 0.0010304402094334 21972 0.0010304255411029 21973 0.0010304099414498 21974 0.0010303955059499 21975 0.0010303810704499 21976 0.0010303660528734 21977 0.0010303512681276 21978 0.001030336250551 21979 0.0010303219314665 21980 0.001030306564644 21981 0.0010302920127288 21982 0.0010302773443982 21983 0.0010302619775757 21984 0.0010302475420758 21985 0.0010302327573299 21986 0.0010302175069228 21987 0.0010302024893463 21988 0.0010301884030923 21989 0.0010301733855158 21990 0.0010301581351086 21991 0.0010301439324394 21992 0.0010301287984475 21993 0.001030113780871 21994 0.0010300987632945 21995 0.0010300842113793 21996 0.0010300695430487 21997 0.0010300545254722 21998 0.001030039973557 21999 0.0010300253052264 22000 0.0010300102876499 22001 0.0010299952700734 22002 0.0010299803689122 22003 0.0010299655841663 22004 0.0010299510322511 22005 0.0010299361310899 22006 0.0010299208806828 22007 0.0010299060959369 22008 0.001029891311191 22009 0.0010298772249371 22010 0.001029861625284 22011 0.001029847189784 22012 0.0010298326378688 22013 0.001029817154631 22014 0.0010298024863005 22015 0.0010297878179699 22016 0.0010297724511474 22017 0.0010297582484782 22018 0.0010297431144863 22019 0.0010297285625711 22020 0.0010297127300873 22021 0.0010296987602487 22022 0.0010296839755028 22023 0.001029668492265 22024 0.0010296541731805 22025 0.0010296396212652 22026 0.0010296248365194 22027 0.0010296094696969 22028 0.001029594684951 22029 0.0010295799002051 22030 0.0010295651154593 22031 0.0010295500978827 22032 0.0010295355459675 22033 0.0010295202955604 22034 0.0010295055108145 22035 0.0010294909588993 22036 0.0010294760577381 22037 0.0010294611565769 22038 0.0010294461390004 22039 0.0010294315870851 22040 0.0010294168023393 22041 0.0010294014355168 22042 0.0010293871164322 22043 0.001029372215271 22044 0.0010293569648638 22045 0.0010293424129486 22046 0.0010293273953721 22047 0.0010293126106262 22048 0.0010292981751263 22049 0.0010292832739651 22050 0.0010292679071426 22051 0.0010292537044734 22052 0.0010292388033122 22053 0.001029223902151 22054 0.0010292087681592 22055 0.0010291942162439 22056 0.0010291794314981 22057 0.0010291640646756 22058 0.0010291496291757 22059 0.0010291344951838 22060 0.0010291195940226 22061 0.0010291051585227 22062 0.0010290902573615 22063 0.0010290757054463 22064 0.0010290602222085 22065 0.0010290455538779 22066 0.0010290308855474 22067 0.0010290157515556 22068 0.001029001083225 22069 0.0010289864148945 22070 0.0010289715137333 22071 0.0010289566125721 22072 0.0010289417114109 22073 0.0010289273923263 22074 0.0010289127239957 22075 0.0010288973571733 22076 0.0010288830380887 22077 0.0010288674384356 22078 0.001028852770105 22079 0.0010288382181898 22080 0.0010288233170286 22081 0.0010288080666214 22082 0.0010287939803675 22083 0.001028778962791 22084 0.0010287639452145 22085 0.0010287490440533 22086 0.001028734492138 22087 0.0010287197073922 22088 0.0010287046898156 22089 0.0010286902543157 22090 0.0010286748874933 22091 0.0010286602191627 22092 0.0010286455508322 22093 0.001028630649671 22094 0.0010286157485098 22095 0.0010286014294252 22096 0.0010285862954333 22097 0.0010285718599334 22098 0.0010285567259416 22099 0.0010285418247804 22100 0.0010285272728652 22101 0.0010285121388733 22102 0.0010284975869581 22103 0.0010284828022122 22104 0.0010284676682204 22105 0.0010284531163052 22106 0.0010284383315593 22107 0.0010284233139828 22108 0.0010284089948982 22109 0.001028394093737 22110 0.0010283794254065 22111 0.0010283642914146 22112 0.0010283498559147 22113 0.0010283347219229 22114 0.0010283200535923 22115 0.0010283049196005 22116 0.0010282900184393 22117 0.0010282756993547 22118 0.0010282609146088 22119 0.0010282460134476 22120 0.0010282312287018 22121 0.0010282167932019 22122 0.001028202008456 22123 0.0010281868744642 22124 0.0010281720897183 22125 0.0010281575378031 22126 0.0010281426366419 22127 0.001028127851896 22128 0.0010281126014888 22129 0.0010280981659889 22130 0.0010280832648277 22131 0.0010280684800819 22132 0.001028053695336 22133 0.0010280393762514 22134 0.0010280242422596 22135 0.0010280094575137 22136 0.0010279945563525 22137 0.0010279796551913 22138 0.0010279653361067 22139 0.0010279503185302 22140 0.001027935417369 22141 0.0010279209818691 22142 0.0010279057314619 22143 0.0010278909467161 22144 0.0010278767440468 22145 0.0010278611443937 22146 0.0010278470581397 22147 0.0010278315749019 22148 0.0010278173722327 22149 0.0010278022382408 22150 0.0010277875699103 22151 0.0010277731344104 22152 0.0010277581168339 22153 0.001027743332088 22154 0.0010277286637574 22155 0.0010277139954269 22156 0.0010276993270963 22157 0.0010276840766892 22158 0.0010276698740199 22159 0.001027655089274 22160 0.0010276399552822 22161 0.0010276252869517 22162 0.0010276108514518 22163 0.0010275957174599 22164 0.00102758128196 22165 0.0010275663807988 22166 0.0010275511303917 22167 0.001027537160553 22168 0.0010275221429765 22169 0.0010275072418153 22170 0.0010274930391461 22171 0.0010274776723236 22172 0.001027463003993 22173 0.0010274484520778 22174 0.0010274334345013 22175 0.001027419231832 22176 0.0010274036321789 22177 0.001027389545925 22178 0.0010273748775944 22179 0.0010273598600179 22180 0.0010273451916873 22181 0.0010273305233568 22182 0.0010273158550262 22183 0.0010273011866957 22184 0.0010272859362885 22185 0.0010272713843733 22186 0.0010272569488734 22187 0.0010272416984662 22188 0.0010272273793817 22189 0.0010272125946358 22190 0.0010271978098899 22191 0.0010271831415594 22192 0.0010271682403982 22193 0.0010271536884829 22194 0.0010271386709064 22195 0.0010271235369146 22196 0.0010271094506606 22197 0.0010270938510075 22198 0.0010270795319229 22199 0.0010270655620843 22200 0.0010270499624312 22201 0.0010270355269313 22202 0.0010270200436935 22203 0.0010270059574395 22204 0.0010269911726937 22205 0.0010269762715325 22206 0.0010269618360326 22207 0.0010269472841173 22208 0.0010269319172949 22209 0.001026917481795 22210 0.0010269022313878 22211 0.0010268882615492 22212 0.0010268735932186 22213 0.0010268579935655 22214 0.0010268436744809 22215 0.0010268293553963 22216 0.0010268138721585 22217 0.0010267996694893 22218 0.0010267840698361 22219 0.0010267697507516 22220 0.0010267551988363 22221 0.0010267395991832 22222 0.0010267256293446 22223 0.0010267104953527 22224 0.0010266957106069 22225 0.0010266816243529 22226 0.0010266662575305 22227 0.0010266518220305 22228 0.0010266369208694 22229 0.0010266221361235 22230 0.0010266078170389 22231 0.0010265929158777 22232 0.0010265780147165 22233 0.001026563346386 22234 0.0010265484452248 22235 0.0010265338933095 22236 0.001026518875733 22237 0.0010265042074025 22238 0.0010264895390719 22239 0.0010264742886648 22240 0.0010264604352415 22241 0.0010264458833262 22242 0.0010264304000884 22243 0.0010264160810038 22244 0.001026401296258 22245 0.0010263863950968 22246 0.0010263719595969 22247 0.0010263569420204 22248 0.0010263425065205 22249 0.0010263278381899 22250 0.0010263125877827 22251 0.0010262987343594 22252 0.0010262834839523 22253 0.0010262688156217 22254 0.0010262543801218 22255 0.0010262390132993 22256 0.0010262245777994 22257 0.0010262101422995 22258 0.0010261955903843 22259 0.0010261816205457 22260 0.0010261668357998 22261 0.0010261520510539 22262 0.0010261379648 22263 0.0010261227143928 22264 0.0010261085117236 22265 0.0010260944254696 22266 0.0010260799899697 22267 0.0010260652052239 22268 0.0010260508861393 22269 0.0010260359849781 22270 0.0010260218987241 22271 0.0010260071139783 22272 0.0010259924456477 22273 0.0010259782429785 22274 0.0010259635746479 22275 0.0010259493719786 22276 0.0010259345872328 22277 0.0010259202681482 22278 0.0010259060654789 22279 0.0010258910479024 22280 0.0010258771944791 22281 0.0010258620604873 22282 0.0010258476249874 22283 0.0010258334223181 22284 0.0010258186375722 22285 0.0010258043184876 22286 0.0010257894173265 22287 0.0010257749818265 22288 0.0010257605463266 22289 0.0010257461108267 22290 0.0010257319081575 22291 0.0010257170069963 22292 0.001025702804327 22293 0.0010256880195811 22294 0.0010256738169119 22295 0.001025659032166 22296 0.0010256442474201 22297 0.0010256305104122 22298 0.0010256153764203 22299 0.0010256012901664 22300 0.0010255869710818 22301 0.0010255721863359 22302 0.0010255578672513 22303 0.0010255435481668 22304 0.0010255288798362 22305 0.0010255146771669 22306 0.0010254997760057 22307 0.0010254855733365 22308 0.0010254706721753 22309 0.0010254567023367 22310 0.0010254420340061 22311 0.0010254271328449 22312 0.001025412697345 22313 0.001025398960337 22314 0.0010253840591758 22315 0.0010253698565066 22316 0.0010253548389301 22317 0.0010253405198455 22318 0.0010253260843456 22319 0.0010253116488457 22320 0.0010252972133458 22321 0.0010252826614305 22322 0.0010252677602693 22323 0.0010252541396767 22324 0.0010252390056849 22325 0.001025224220939 22326 0.0010252103675157 22327 0.0010251953499392 22328 0.0010251811472699 22329 0.001025167061016 22330 0.0010251520434394 22331 0.0010251374915242 22332 0.0010251231724396 22333 0.0010251090861857 22334 0.0010250944178551 22335 0.0010250795166939 22336 0.001025065081194 22337 0.0010250508785248 22338 0.0010250363266096 22339 0.0010250222403556 22340 0.0010250072227791 22341 0.0010249930201098 22342 0.0010249790502712 22343 0.0010249651968479 22344 0.001024950761348 22345 0.0010249364422634 22346 0.0010249220067635 22347 0.0010249079205096 22348 0.0010248933685943 22349 0.0010248797480017 22350 0.0010248653125018 22351 0.0010248505277559 22352 0.0010248367907479 22353 0.0010248224716634 22354 0.0010248080361634 22355 0.0010247933678329 22356 0.0010247793979943 22357 0.001024765195325 22358 0.0010247512254864 22359 0.0010247370228171 22360 0.0010247225873172 22361 0.001024708384648 22362 0.0010246944148093 22363 0.0010246799793094 22364 0.0010246655438095 22365 0.0010246511083096 22366 0.001024637138471 22367 0.0010246227029711 22368 0.0010246085003018 22369 0.0010245948797092 22370 0.0010245793964714 22371 0.0010245656594634 22372 0.0010245512239635 22373 0.0010245373705402 22374 0.001024522818625 22375 0.0010245086159557 22376 0.0010244945297018 22377 0.0010244802106172 22378 0.0010244661243632 22379 0.001024451921694 22380 0.0010244367877021 22381 0.0010244231671095 22382 0.0010244094301015 22383 0.0010243946453556 22384 0.0010243802098557 22385 0.0010243663564324 22386 0.0010243522701785 22387 0.0010243378346786 22388 0.0010243236320093 22389 0.0010243090800941 22390 0.0010242951102555 22391 0.0010242809075862 22392 0.0010242665885016 22393 0.0010242525022477 22394 0.0010242373682559 22395 0.0010242236312479 22396 0.001024208846502 22397 0.0010241948766634 22398 0.0010241810232401 22399 0.0010241661220789 22400 0.0010241519194096 22401 0.0010241381824017 22402 0.0010241237469018 22403 0.0010241095442325 22404 0.0010240947594866 22405 0.001024081138894 22406 0.0010240667033941 22407 0.0010240523843095 22408 0.0010240382980555 22409 0.0010240242118016 22410 0.001024009543471 22411 0.0010239958064631 22412 0.0010239813709632 22413 0.0010239669354632 22414 0.0010239529656246 22415 0.0010239382972941 22416 0.0010239245602861 22417 0.0010239103576168 22418 0.0010238961549476 22419 0.0010238816030324 22420 0.0010238671675324 22421 0.0010238531976938 22422 0.0010238392278552 22423 0.0010238245595247 22424 0.0010238103568554 22425 0.0010237961541861 22426 0.0010237818351015 22427 0.0010237678652629 22428 0.0010237533133477 22429 0.0010237392270938 22430 0.0010237250244245 22431 0.0010237107053399 22432 0.0010236963862553 22433 0.0010236820671707 22434 0.0010236677480862 22435 0.0010236538946629 22436 0.0010236395755783 22437 0.0010236254893243 22438 0.0010236114030704 22439 0.0010235965019092 22440 0.0010235825320706 22441 0.001023568562232 22442 0.0010235542431474 22443 0.0010235399240628 22444 0.0010235251393169 22445 0.0010235112858936 22446 0.001023496966809 22447 0.0010234825313091 22448 0.0010234687943012 22449 0.0010234548244625 22450 0.001023440156132 22451 0.0010234259534627 22452 0.0010234118672088 22453 0.0010233976645395 22454 0.0010233836947009 22455 0.0010233686771244 22456 0.0010233549401164 22457 0.0010233408538625 22458 0.0010233260691166 22459 0.001023312099278 22460 0.00102329836227 22461 0.0010232834611088 22462 0.0010232699569315 22463 0.0010232550557703 22464 0.0010232414351776 22465 0.0010232265340164 22466 0.0010232125641778 22467 0.0010231985943392 22468 0.0010231842752546 22469 0.00102316995617 22470 0.0010231558699161 22471 0.0010231410851702 22472 0.0010231272317469 22473 0.0010231129126623 22474 0.0010230987099931 22475 0.0010230846237391 22476 0.0010230704210699 22477 0.00102305598557 22478 0.0010230420157313 22479 0.0010230275802314 22480 0.0010230134939775 22481 0.0010229990584776 22482 0.0010229848558083 22483 0.0010229708859697 22484 0.0010229564504698 22485 0.0010229423642159 22486 0.0010229281615466 22487 0.001022913493216 22488 0.0010228995233774 22489 0.0010228855535388 22490 0.0010228710016236 22491 0.0010228572646156 22492 0.001022842945531 22493 0.0010228287428617 22494 0.0010228140745312 22495 0.0010227999882773 22496 0.0010227860184386 22497 0.0010227712336928 22498 0.0010227574966848 22499 0.0010227430611849 22500 0.0010227287421003 22501 0.0010227150050923 22502 0.0010227002203465 22503 0.0010226864833385 22504 0.0010226720478386 22505 0.0010226578451693 22506 0.0010226435260847 22507 0.0010226292070001 22508 0.0010226152371615 22509 0.0010226011509076 22510 0.0010225862497464 22511 0.0010225725127384 22512 0.0010225586593151 22513 0.0010225438745692 22514 0.0010225301375613 22515 0.0010225157020614 22516 0.0010225014993921 22517 0.0010224876459688 22518 0.0010224730940536 22519 0.0010224590077996 22520 0.001022444688715 22521 0.0010224306024611 22522 0.0010224163997918 22523 0.0010224025463685 22524 0.001022387878038 22525 0.0010223742574453 22526 0.0010223594726995 22527 0.0010223456192762 22528 0.001022330718115 22529 0.001022316981107 22530 0.0010223028948531 22531 0.0010222884593531 22532 0.0010222742566839 22533 0.0010222605196759 22534 0.0010222462005913 22535 0.0010222314158455 22536 0.0010222174460068 22537 0.0010222031269222 22538 0.0010221891570836 22539 0.0010221744887531 22540 0.0010221608681604 22541 0.0010221458505839 22542 0.0010221321135759 22543 0.001022118027322 22544 0.0010221037082374 22545 0.0010220898548141 22546 0.0010220755357295 22547 0.0010220612166449 22548 0.001022047479637 22549 0.0010220324620605 22550 0.0010220184922218 22551 0.0010220045223832 22552 0.0010219902032986 22553 0.0010219756513834 22554 0.0010219615651295 22555 0.0010219475952908 22556 0.0010219330433756 22557 0.001021918724291 22558 0.0010219051036984 22559 0.0010218909010291 22560 0.0010218765819445 22561 0.0010218620300293 22562 0.0010218480601907 22563 0.0010218333918601 22564 0.0010218200040981 22565 0.001021804753691 22566 0.001021791016683 22567 0.0010217766975984 22568 0.0010217621456832 22569 0.0010217484086752 22570 0.0010217346716672 22571 0.0010217202361673 22572 0.0010217054514214 22573 0.0010216913651675 22574 0.0010216768132523 22575 0.0010216630762443 22576 0.0010216486407444 22577 0.0010216344380751 22578 0.0010216195369139 22579 0.0010216061491519 22580 0.0010215919464827 22581 0.0010215775109828 22582 0.0010215629590675 22583 0.0010215487563983 22584 0.0010215346701443 22585 0.0010215203510597 22586 0.0010215062648058 22587 0.0010214918293059 22588 0.0010214771609753 22589 0.001021463656798 22590 0.0010214492212981 22591 0.0010214352514595 22592 0.0010214205831289 22593 0.001021406496875 22594 0.0010213925270364 22595 0.0010213780915365 22596 0.0010213644709438 22597 0.0010213494533673 22598 0.0010213354835287 22599 0.0010213215136901 22600 0.0010213068453595 22601 0.0010212929919362 22602 0.0010212786728516 22603 0.0010212642373517 22604 0.0010212501510978 22605 0.0010212362976745 22606 0.0010212217457592 22607 0.0010212070774287 22608 0.0010211928747594 22609 0.0010211789049208 22610 0.0010211647022516 22611 0.0010211506159976 22612 0.0010211360640824 22613 0.0010211222106591 22614 0.0010211074259132 22615 0.0010210938053206 22616 0.0010210792534053 22617 0.0010210648179054 22618 0.0010210509644821 22619 0.0010210365289822 22620 0.0010210222098976 22621 0.0010210084728897 22622 0.0010209938045591 22623 0.0010209799511358 22624 0.0010209653992206 22625 0.0010209515457973 22626 0.0010209374595433 22627 0.0010209227912128 22628 0.0010209088213742 22629 0.0010208946187049 22630 0.001020880532451 22631 0.0010208663297817 22632 0.0010208515450358 22633 0.0010208376916125 22634 0.0010208237217739 22635 0.0010208091698587 22636 0.0010207952000201 22637 0.0010207808809355 22638 0.0010207663290203 22639 0.001020752475597 22640 0.0010207381565124 22641 0.0010207240702584 22642 0.0010207095183432 22643 0.0010206954320893 22644 0.0010206813458353 22645 0.0010206671431661 22646 0.0010206530569121 22647 0.0010206387378275 22648 0.0010206243023276 22649 0.0010206102160737 22650 0.0010205961298198 22651 0.0010205815779045 22652 0.0010205672588199 22653 0.0010205536382273 22654 0.0010205392027274 22655 0.0010205248836428 22656 0.0010205113794655 22657 0.0010204964783043 22658 0.0010204829741269 22659 0.0010204690042883 22660 0.0010204550344497 22661 0.0010204409481958 22662 0.0010204266291112 22663 0.0010204128921032 22664 0.0010203991550952 22665 0.001020384952426 22666 0.001020371215418 22667 0.0010203568963334 22668 0.0010203431593254 22669 0.0010203290730715 22670 0.0010203151032329 22671 0.001020300667733 22672 0.0010202871635556 22673 0.0010202727280557 22674 0.0010202589910477 22675 0.0010202457197011 22676 0.0010202308185399 22677 0.0010202173143625 22678 0.0010202033445239 22679 0.00102018925827 22680 0.0010201752884313 22681 0.0010201608529314 22682 0.0010201474651694 22683 0.0010201336117461 22684 0.0010201188270003 22685 0.0010201056720689 22686 0.001020091236569 22687 0.0010200773831457 22688 0.0010200631804764 22689 0.0010200492106378 22690 0.0010200354736298 22691 0.0010200215037912 22692 0.001020007301122 22693 0.0010199937969446 22694 0.0010199797106907 22695 0.0010199651587754 22696 0.0010199518874288 22697 0.0010199376847595 22698 0.0010199235985056 22699 0.0010199095122516 22700 0.0010198954259977 22701 0.0010198820382357 22702 0.0010198674863204 22703 0.0010198537493125 22704 0.0010198402451351 22705 0.0010198260424659 22706 0.0010198114905506 22707 0.001019797520712 22708 0.0010197834344581 22709 0.0010197698138654 22710 0.0010197553783655 22711 0.0010197418741882 22712 0.0010197279043496 22713 0.0010197139345109 22714 0.0010196996154264 22715 0.0010196856455877 22716 0.0010196721414104 22717 0.0010196578223258 22718 0.0010196438524872 22719 0.0010196298826486 22720 0.00101961591281 22721 0.001019601826556 22722 0.0010195878567174 22723 0.0010195740032941 22724 0.0010195599170402 22725 0.0010195461800322 22726 0.0010195318609476 22727 0.0010195181239396 22728 0.0010195036884397 22729 0.001019490417093 22730 0.0010194762144238 22731 0.0010194620117545 22732 0.0010194482747465 22733 0.0010194343049079 22734 0.0010194203350693 22735 0.001019406830892 22736 0.0010193921625614 22737 0.0010193787747994 22738 0.0010193643392995 22739 0.0010193504858762 22740 0.0010193369816989 22741 0.0010193230118603 22742 0.0010193093912676 22743 0.0010192955378443 22744 0.001019281684421 22745 0.0010192681802437 22746 0.0010192539775744 22747 0.0010192405898124 22748 0.0010192268528044 22749 0.0010192128829658 22750 0.0010191992623731 22751 0.0010191856417805 22752 0.0010191717883572 22753 0.0010191579349339 22754 0.0010191446635872 22755 0.0010191302280873 22756 0.0010191169567406 22757 0.0010191027540714 22758 0.0010190894827247 22759 0.0010190756293014 22760 0.0010190617758781 22761 0.0010190480388701 22762 0.0010190347675234 22763 0.0010190203320235 22764 0.0010190065950155 22765 0.0010189928580076 22766 0.0010189795866609 22767 0.0010189657332376 22768 0.0010189518798143 22769 0.0010189383756369 22770 0.0010189247550443 22771 0.001018910901621 22772 0.0010188969317824 22773 0.0010188838932663 22774 0.0010188692249358 22775 0.0010188559535891 22776 0.0010188417509198 22777 0.0010188284795731 22778 0.0010188141604885 22779 0.0010188007727265 22780 0.0010187870357186 22781 0.0010187737643719 22782 0.0010187590960413 22783 0.0010187458246946 22784 0.0010187327861786 22785 0.0010187185835093 22786 0.0010187048465014 22787 0.0010186911094934 22788 0.0010186774889007 22789 0.0010186636354774 22790 0.0010186496656388 22791 0.0010186359286308 22792 0.0010186228901148 22793 0.0010186083381996 22794 0.0010185947176069 22795 0.0010185807477683 22796 0.0010185674764216 22797 0.0010185537394136 22798 0.001018539769575 22799 0.0010185259161517 22800 0.0010185125283897 22801 0.0010184984421358 22802 0.0010184847051278 22803 0.0010184717830271 22804 0.0010184573475271 22805 0.0010184438433498 22806 0.0010184297570959 22807 0.0010184163693339 22808 0.0010184025159106 22809 0.0010183888953179 22810 0.0010183749254793 22811 0.0010183616541326 22812 0.0010183472186327 22813 0.001018333947286 22814 0.0010183200938627 22815 0.0010183063568547 22816 0.0010182927362621 22817 0.0010182787664235 22818 0.0010182654950768 22819 0.0010182515252382 22820 0.0010182381374761 22821 0.0010182237019762 22822 0.0010182107798755 22823 0.0010181964607909 22824 0.0010181831894442 22825 0.001018168637529 22826 0.0010181551333517 22827 0.0010181413963437 22828 0.0010181276593357 22829 0.0010181136894971 22830 0.0010181004181504 22831 0.0010180864483118 22832 0.0010180727113038 22833 0.0010180589742959 22834 0.0010180451208726 22835 0.0010180323151872 22836 0.0010180175304413 22837 0.0010180043755099 22838 0.0010179907549173 22839 0.0010179767850786 22840 0.00101796281524 22841 0.0010179495438933 22842 0.0010179358068854 22843 0.0010179220698774 22844 0.0010179084492847 22845 0.0010178943630308 22846 0.0010178808588535 22847 0.0010178671218455 22848 0.0010178530355915 22849 0.0010178398806602 22850 0.0010178255615756 22851 0.0010178122902289 22852 0.0010177984368056 22853 0.0010177846997976 22854 0.0010177711956203 22855 0.0010177574586123 22856 0.001017743605189 22857 0.001017730217427 22858 0.0010177163640037 22859 0.0010177028598264 22860 0.0010176895884797 22861 0.0010176756186411 22862 0.0010176624637097 22863 0.0010176488431171 22864 0.0010176353389397 22865 0.0010176217183471 22866 0.0010176079813391 22867 0.0010175949428231 22868 0.0010175814386457 22869 0.0010175677016377 22870 0.0010175543138757 22871 0.0010175412753597 22872 0.0010175269562751 22873 0.0010175140341744 22874 0.001017500879243 22875 0.0010174866765738 22876 0.0010174736380577 22877 0.0010174595518038 22878 0.0010174462804571 22879 0.0010174331255257 22880 0.0010174191556871 22881 0.001017406117171 22882 0.0010173928458244 22883 0.0010173787595704 22884 0.0010173656046391 22885 0.0010173516348004 22886 0.0010173383634537 22887 0.0010173250921071 22888 0.0010173110058531 22889 0.0010172979673371 22890 0.0010172844631597 22891 0.0010172704933211 22892 0.0010172573383898 22893 0.0010172438342124 22894 0.0010172303300351 22895 0.0010172169422731 22896 0.0010172035545111 22897 0.0010171899339184 22898 0.0010171764297411 22899 0.0010171628091484 22900 0.0010171494213864 22901 0.0010171361500397 22902 0.0010171221802011 22903 0.001017109490931 22904 0.0010170952882618 22905 0.0010170819004998 22906 0.0010170686291531 22907 0.0010170550085604 22908 0.0010170419700444 22909 0.0010170280002058 22910 0.0010170148452744 22911 0.0010170011082664 22912 0.0010169872548431 22913 0.0010169739834964 22914 0.0010169601300731 22915 0.0010169468587264 22916 0.0010169334709644 22917 0.0010169197339565 22918 0.0010169063461944 22919 0.0010168923763558 22920 0.0010168789885938 22921 0.0010168660664931 22922 0.0010168518638238 22923 0.0010168387088925 22924 0.0010168252047151 22925 0.0010168119333684 22926 0.0010167985456064 22927 0.0010167846921831 22928 0.0010167720029131 22929 0.0010167578002438 22930 0.0010167446453124 22931 0.0010167311411351 22932 0.0010167175205424 22933 0.0010167037835345 22934 0.0010166902793571 22935 0.0010166774736717 22936 0.0010166638530791 22937 0.0010166501160711 22938 0.0010166368447244 22939 0.0010166233405471 22940 0.0010166098363698 22941 0.0010165960993618 22942 0.0010165827115998 22943 0.0010165695566684 22944 0.0010165557032451 22945 0.0010165428975597 22946 0.0010165293933824 22947 0.0010165155399591 22948 0.0010165027342737 22949 0.0010164887644351 22950 0.0010164754930884 22951 0.0010164615232497 22952 0.001016448601149 22953 0.0010164350969717 22954 0.0010164219420403 22955 0.0010164086706936 22956 0.0010163949336857 22957 0.0010163814295083 22958 0.0010163680417463 22959 0.0010163547703996 22960 0.0010163412662223 22961 0.0010163278784603 22962 0.0010163141414523 22963 0.0010163008701056 22964 0.0010162875987589 22965 0.0010162740945816 22966 0.0010162610560656 22967 0.0010162468533963 22968 0.0010162334656343 22969 0.0010162200778723 22970 0.0010162068065256 22971 0.0010161934187636 22972 0.0010161797981709 22973 0.0010161661775783 22974 0.0010161531390622 22975 0.0010161398677155 22976 0.0010161262471229 22977 0.0010161127429456 22978 0.0010160990059376 22979 0.0010160858510062 22980 0.0010160724632442 22981 0.0010160593083128 22982 0.0010160452220589 22983 0.0010160321835428 22984 0.0010160192614421 22985 0.0010160051751882 22986 0.0010159921366721 22987 0.0010159783996642 22988 0.0010159648954868 22989 0.0010159513913095 22990 0.0010159383527935 22991 0.0010159246157855 22992 0.0010159111116081 22993 0.0010158978402615 22994 0.0010158845689148 22995 0.0010158710647374 22996 0.0010158574441448 22997 0.0010158441727981 22998 0.0010158304357901 22999 0.0010158172808588 23000 0.0010158035438508 23001 0.0010157905053347 23002 0.0010157765354961 23003 0.0010157630313188 23004 0.0010157502256334 23005 0.0010157364886254 23006 0.0010157231008634 23007 0.0010157095966861 23008 0.0010156964417547 23009 0.0010156824719161 23010 0.0010156693169847 23011 0.0010156559292227 23012 0.0010156424250454 23013 0.0010156290372834 23014 0.0010156156495214 23015 0.0010156023781747 23016 0.0010155888739973 23017 0.0010155751369894 23018 0.0010155618656427 23019 0.001015548594296 23020 0.001015534857288 23021 0.0010155220516026 23022 0.0010155081981793 23023 0.001015494694002 23024 0.0010154815390706 23025 0.0010154678020626 23026 0.0010154547635466 23027 0.001015440444462 23028 0.0010154275223613 23029 0.0010154140181839 23030 0.0010154008632526 23031 0.0010153870098293 23032 0.0010153733892366 23033 0.0010153603507206 23034 0.0010153469629586 23035 0.0010153336916119 23036 0.0010153204202652 23037 0.0010153066832572 23038 0.0010152931790799 23039 0.0010152800241485 23040 0.0010152666363865 23041 0.0010152530157939 23042 0.0010152397444472 23043 0.0010152265895158 23044 0.0010152127360925 23045 0.0010151993483305 23046 0.0010151861933991 23047 0.0010151719907299 23048 0.0010151590686291 23049 0.0010151455644518 23050 0.0010151322931051 23051 0.0010151190217584 23052 0.0010151051683351 23053 0.0010150925954804 23054 0.0010150782763958 23055 0.0010150654707104 23056 0.0010150518501177 23057 0.0010150384623557 23058 0.0010150248417631 23059 0.0010150113375857 23060 0.0010149985319003 23061 0.001014984678477 23062 0.0010149715235457 23063 0.0010149581357837 23064 0.0010149442823604 23065 0.001014931127429 23066 0.001014917739667 23067 0.0010149041190743 23068 0.0010148908477277 23069 0.001014877576381 23070 0.0010148643050343 23071 0.0010148505680263 23072 0.0010148369474337 23073 0.0010148241417482 23074 0.0010148104047403 23075 0.0010147971333936 23076 0.0010147833963856 23077 0.0010147703578696 23078 0.0010147567372769 23079 0.0010147436987609 23080 0.0010147310094908 23081 0.0010147175053135 23082 0.0010147042339668 23083 0.0010146909626201 23084 0.00101467827335 23085 0.0010146646527573 23086 0.0010146516142413 23087 0.0010146384593099 23088 0.0010146255372092 23089 0.0010146122658625 23090 0.0010145988781005 23091 0.0010145860724151 23092 0.0010145726846531 23093 0.0010145598789677 23094 0.0010145463747904 23095 0.001014533569105 23096 0.0010145200649276 23097 0.0010145069099963 23098 0.0010144943371415 23099 0.0010144803673029 23100 0.0010144677944481 23101 0.0010144542902708 23102 0.0010144416010007 23103 0.0010144277475774 23104 0.001014414941892 23105 0.001014401903376 23106 0.0010143882827833 23107 0.0010143757099286 23108 0.0010143623221666 23109 0.0010143490508199 23110 0.0010143360123038 23111 0.0010143229737878 23112 0.0010143098188564 23113 0.0010142964310944 23114 0.001014283276163 23115 0.0010142701212317 23116 0.001014257199131 23117 0.0010142439277843 23118 0.0010142308892682 23119 0.0010142175015062 23120 0.0010142043465748 23121 0.0010141914244741 23122 0.0010141781531274 23123 0.0010141644161195 23124 0.0010141518432647 23125 0.0010141386883333 23126 0.001014125533402 23127 0.0010141120292246 23128 0.0010140989907086 23129 0.0010140861850232 23130 0.0010140723315999 23131 0.0010140597587451 23132 0.0010140466038138 23133 0.001014033681713 23134 0.0010140204103664 23135 0.001014006906189 23136 0.0010139942169189 23137 0.001013980479911 23138 0.0010139676742256 23139 0.0010139541700482 23140 0.0010139415971935 23141 0.0010139279766008 23142 0.0010139147052541 23143 0.0010139021323994 23144 0.001013888628222 23145 0.0010138758225366 23146 0.0010138624347746 23147 0.0010138492798433 23148 0.0010138361249119 23149 0.0010138230863959 23150 0.0010138096986338 23151 0.0010137966601178 23152 0.0010137837380171 23153 0.0010137704666704 23154 0.0010137575445697 23155 0.001013743923977 23156 0.0010137312347069 23157 0.0010137178469449 23158 0.0010137048084289 23159 0.0010136914206669 23160 0.0010136787313968 23161 0.0010136659257114 23162 0.0010136520722881 23163 0.0010136396158487 23164 0.0010136265773326 23165 0.0010136138880625 23166 0.0010136007331312 23167 0.0010135876946151 23168 0.001013575005345 23169 0.001013561966829 23170 0.0010135492775589 23171 0.0010135363554582 23172 0.0010135232005268 23173 0.0010135100455955 23174 0.0010134973563254 23175 0.00101348455064 23176 0.0010134713957086 23177 0.0010134585900232 23178 0.0010134457843378 23179 0.0010134329786524 23180 0.0010134200565517 23181 0.001013407134451 23182 0.0010133943287656 23183 0.0010133814066648 23184 0.0010133681353182 23185 0.001013355795294 23186 0.0010133420582861 23187 0.0010133292526007 23188 0.0010133171454072 23189 0.0010133038740605 23190 0.0010132908355445 23191 0.0010132775641978 23192 0.0010132652241737 23193 0.0010132521856576 23194 0.0010132389143109 23195 0.0010132258757949 23196 0.0010132136521861 23197 0.0010132006136701 23198 0.0010131873423234 23199 0.0010131747694686 23200 0.0010131613817066 23201 0.0010131484596059 23202 0.0010131356539205 23203 0.0010131228482351 23204 0.0010131096933037 23205 0.0010130973532796 23206 0.0010130845475942 23207 0.0010130712762475 23208 0.0010130582377315 23209 0.0010130454320461 23210 0.0010130329756066 23211 0.0010130195878446 23212 0.0010130067821592 23213 0.0010129937436432 23214 0.0010129808215424 23215 0.0010129676666111 23216 0.0010129552101716 23217 0.0010129420552403 23218 0.0010129287838936 23219 0.0010129164438695 23220 0.0010129036381841 23221 0.001012890599668 23222 0.0010128773283213 23223 0.0010128645226359 23224 0.0010128519497812 23225 0.0010128384456038 23226 0.0010128259891644 23227 0.0010128130670637 23228 0.0010128000285476 23229 0.0010127868736163 23230 0.0010127741843462 23231 0.0010127610294148 23232 0.0010127484565601 23233 0.00101273576729 23234 0.0010127226123586 23235 0.0010127096902579 23236 0.0010126968845725 23237 0.0010126843117177 23238 0.0010126706911251 23239 0.0010126581182703 23240 0.001012644963339 23241 0.0010126328561455 23242 0.0010126194683835 23243 0.0010126065462828 23244 0.0010125940898433 23245 0.0010125803528354 23246 0.0010125678963959 23247 0.0010125550907105 23248 0.0010125421686098 23249 0.0010125290136784 23250 0.0010125159751624 23251 0.0010125032858923 23252 0.0010124898981303 23253 0.0010124770924449 23254 0.0010124640539289 23255 0.0010124518303201 23256 0.0010124382097274 23257 0.0010124255204573 23258 0.0010124124819413 23259 0.0010123997926712 23260 0.0010123872198164 23261 0.0010123738320544 23262 0.0010123609099537 23263 0.0010123482206836 23264 0.0010123354149982 23265 0.0010123224928975 23266 0.0010123093379661 23267 0.0010122962994501 23268 0.0010122837265953 23269 0.0010122710373253 23270 0.0010122578823939 23271 0.0010122449602932 23272 0.0010122323874384 23273 0.0010122191160917 23274 0.0010122063104063 23275 0.0010121937375516 23276 0.0010121800005436 23277 0.0010121678933501 23278 0.0010121548548341 23279 0.0010121419327334 23280 0.0010121297091246 23281 0.0010121158557013 23282 0.0010121033992618 23283 0.0010120905935764 23284 0.0010120780207217 23285 0.001012065098621 23286 0.0010120515944436 23287 0.0010120391380042 23288 0.0010120258666575 23289 0.0010120134102181 23290 0.0010120004881173 23291 0.0010119874496013 23292 0.0010119749931619 23293 0.0010119621874765 23294 0.0010119491489604 23295 0.0010119364596903 23296 0.0010119230719283 23297 0.0010119108483195 23298 0.0010118981590495 23299 0.0010118850041181 23300 0.001011872664094 23301 0.0010118593927473 23302 0.0010118465870619 23303 0.0010118340142071 23304 0.0010118207428604 23305 0.001011807937175 23306 0.0010117951314896 23307 0.0010117823258042 23308 0.0010117695201188 23309 0.0010117568308488 23310 0.0010117441415787 23311 0.0010117316851392 23312 0.0010117182973772 23313 0.0010117057245225 23314 0.0010116923367605 23315 0.0010116801131517 23316 0.0010116671910509 23317 0.0010116542689502 23318 0.0010116415796801 23319 0.0010116286575794 23320 0.0010116164339706 23321 0.0010116037447006 23322 0.0010115904733539 23323 0.0010115777840838 23324 0.0010115645127371 23325 0.0010115517070517 23326 0.0010115393670276 23327 0.0010115259792656 23328 0.0010115132899955 23329 0.0010115007171407 23330 0.001011488144286 23331 0.0010114752221853 23332 0.0010114621836692 23333 0.0010114493779838 23334 0.0010114365722984 23335 0.001011423766613 23336 0.0010114108445123 23337 0.0010113980388269 23338 0.0010113851167262 23339 0.0010113726602867 23340 0.001011360087432 23341 0.0010113472817466 23342 0.0010113338939846 23343 0.0010113212047145 23344 0.0010113083990291 23345 0.0010112955933437 23346 0.0010112829040736 23347 0.0010112698655576 23348 0.0010112571762875 23349 0.0010112442541867 23350 0.001011231681332 23351 0.0010112187592313 23352 0.0010112063027918 23353 0.0010111934971064 23354 0.001011181040667 23355 0.001011167303659 23356 0.0010111546143889 23357 0.0010111425071955 23358 0.0010111297015101 23359 0.0010111165465787 23360 0.0010111037408933 23361 0.0010110912844539 23362 0.0010110777802765 23363 0.0010110654402524 23364 0.001011052634567 23365 0.0010110397124663 23366 0.0010110267903656 23367 0.0010110139846802 23368 0.0010110017610714 23369 0.0010109883733094 23370 0.0010109760332853 23371 0.0010109634604305 23372 0.0010109500726685 23373 0.0010109369177371 23374 0.001010924577713 23375 0.0010109120048583 23376 0.0010108989663422 23377 0.0010108861606568 23378 0.0010108731221408 23379 0.0010108607821167 23380 0.0010108476271853 23381 0.0010108351707458 23382 0.0010108225978911 23383 0.0010108092101291 23384 0.0010107967536896 23385 0.0010107844136655 23386 0.0010107709094882 23387 0.0010107579873875 23388 0.001010745530948 23389 0.0010107327252626 23390 0.0010107195703313 23391 0.0010107071138918 23392 0.0010106941917911 23393 0.0010106820845976 23394 0.001010668464005 23395 0.0010106556583196 23396 0.0010106430854648 23397 0.0010106300469488 23398 0.001010617474094 23399 0.001010604784824 23400 0.0010105920955539 23401 0.0010105790570378 23402 0.0010105667170137 23403 0.0010105536784977 23404 0.001010540407151 23405 0.0010105276014656 23406 0.0010105152614415 23407 0.0010105024557561 23408 0.00101048941724 23409 0.0010104768443853 23410 0.0010104638058692 23411 0.0010104511165991 23412 0.0010104385437444 23413 0.0010104262037203 23414 0.0010104124667123 23415 0.0010103995446116 23416 0.0010103872045875 23417 0.0010103742824867 23418 0.0010103611275554 23419 0.0010103486711159 23420 0.0010103357490152 23421 0.0010103231761605 23422 0.0010103101376444 23423 0.001010297331959 23424 0.0010102841770276 23425 0.0010102712549269 23426 0.0010102589149028 23427 0.0010102458763868 23428 0.0010102334199473 23429 0.001010220265016 23430 0.0010102079249918 23431 0.0010101950028911 23432 0.0010101820807904 23433 0.001010169275105 23434 0.0010101564694196 23435 0.0010101440129802 23436 0.0010101306252182 23437 0.0010101181687787 23438 0.001010105246678 23439 0.0010100926738232 23440 0.0010100798681378 23441 0.0010100672952831 23442 0.001010054256767 23443 0.0010100416839123 23444 0.0010100284125656 23445 0.0010100156068802 23446 0.0010100025683641 23447 0.0010099901119247 23448 0.0010099776554853 23449 0.0010099649662152 23450 0.0010099519276991 23451 0.0010099392384291 23452 0.0010099264327437 23453 0.0010099133942276 23454 0.0010099010542035 23455 0.0010098875500262 23456 0.0010098749771714 23457 0.001009862171486 23458 0.0010098495986313 23459 0.0010098366765305 23460 0.0010098237544298 23461 0.0010098109487444 23462 0.0010097986087203 23463 0.0010097859194502 23464 0.0010097727645189 23465 0.0010097599588335 23466 0.0010097471531481 23467 0.0010097342310473 23468 0.0010097218910232 23469 0.0010097089689225 23470 0.0010096962796524 23471 0.0010096837067977 23472 0.0010096706682816 23473 0.0010096583282575 23474 0.0010096450569108 23475 0.0010096321348101 23476 0.00100961944554 23477 0.0010096067562699 23478 0.0010095939505845 23479 0.0010095811448991 23480 0.0010095686884597 23481 0.001009555766359 23482 0.0010095430770889 23483 0.0010095301549882 23484 0.0010095178149641 23485 0.0010095048928633 23486 0.0010094915051013 23487 0.0010094789322466 23488 0.0010094658937305 23489 0.0010094533208758 23490 0.0010094409808517 23491 0.0010094279423356 23492 0.0010094152530655 23493 0.0010094022145495 23494 0.00100938975811 23495 0.0010093769524246 23496 0.0010093637974933 23497 0.0010093511082232 23498 0.0010093387681991 23499 0.0010093258460984 23500 0.0010093128075823 23501 0.0010093004675582 23502 0.0010092870797962 23503 0.0010092749726027 23504 0.001009262050502 23505 0.0010092497104779 23506 0.0010092363227159 23507 0.0010092234006152 23508 0.0010092111770064 23509 0.001009198022075 23510 0.0010091853328049 23511 0.0010091725271195 23512 0.001009160419926 23513 0.0010091471485794 23514 0.0010091345757246 23515 0.0010091218864545 23516 0.0010091087315232 23517 0.0010090958094224 23518 0.0010090835858136 23519 0.0010090710129589 23520 0.0010090584401041 23521 0.0010090456344187 23522 0.0010090335272253 23523 0.0010090210707858 23524 0.0010090081486851 23525 0.0010089955758303 23526 0.0010089833522215 23527 0.0010089700808749 23528 0.0010089578572661 23529 0.0010089456336573 23530 0.0010089324787259 23531 0.0010089203715324 23532 0.001008907565847 23533 0.0010088953422382 23534 0.0010088827693835 23535 0.0010088703129441 23536 0.001008857623674 23537 0.0010088447015733 23538 0.0010088321287185 23539 0.001008820021525 23540 0.0010088079143316 23541 0.0010087944101542 23542 0.0010087821865454 23543 0.0010087696136907 23544 0.0010087568080053 23545 0.0010087444679812 23546 0.0010087315458804 23547 0.001008719438687 23548 0.0010087066330016 23549 0.0010086939437315 23550 0.0010086813708767 23551 0.0010086685651913 23552 0.0010086559923366 23553 0.0010086434194818 23554 0.001008631195873 23555 0.001008617808111 23556 0.0010086055845022 23557 0.0010085931280628 23558 0.001008580555208 23559 0.0010085679823533 23560 0.0010085550602525 23561 0.0010085430694744 23562 0.0010085297981277 23563 0.0010085173416883 23564 0.0010085050016642 23565 0.0010084919631481 23566 0.0010084793902934 23567 0.0010084671666846 23568 0.0010084547102451 23569 0.0010084414388984 23570 0.001008428982459 23571 0.0010084164096043 23572 0.0010084036039189 23573 0.0010083907982334 23574 0.0010083785746247 23575 0.0010083663510159 23576 0.0010083531960845 23577 0.0010083406232297 23578 0.0010083281667903 23579 0.0010083157103509 23580 0.0010083027882501 23581 0.001008290448226 23582 0.0010082778753713 23583 0.0010082649532706 23584 0.0010082524968311 23585 0.0010082396911457 23586 0.0010082277003676 23587 0.0010082144290209 23588 0.0010082018561661 23589 0.0010081897489727 23590 0.0010081762447953 23591 0.0010081641376019 23592 0.0010081515647471 23593 0.0010081389918923 23594 0.0010081259533763 23595 0.0010081138461828 23596 0.0010081008076668 23597 0.001008088234812 23598 0.0010080758947879 23599 0.0010080630891025 23600 0.0010080508654937 23601 0.0010080377105623 23602 0.0010080253705382 23603 0.0010080127976835 23604 0.0010079998755828 23605 0.0010079878848046 23606 0.0010079750791192 23607 0.0010079623898491 23608 0.001007949700579 23609 0.0010079371277243 23610 0.0010079240892082 23611 0.0010079115163535 23612 0.0010078989434987 23613 0.0010078868363053 23614 0.0010078742634505 23615 0.0010078611085191 23616 0.0010078488849103 23617 0.0010078365448862 23618 0.0010078242048621 23619 0.001007811864838 23620 0.0010078002233058 23621 0.001007787999697 23622 0.001007775310427 23623 0.0010077637853101 23624 0.00100775109604 23625 0.0010077391052619 23626 0.0010077267652377 23627 0.0010077152401209 23628 0.0010077026672661 23629 0.001007690327242 23630 0.0010076786857098 23631 0.0010076662292704 23632 0.001007653772831 23633 0.0010076415492222 23634 0.0010076296748593 23635 0.0010076176840812 23636 0.0010076049948111 23637 0.0010075934696943 23638 0.0010075808968395 23639 0.0010075690224767 23640 0.0010075566824526 23641 0.0010075445752591 23642 0.0010075323516503 23643 0.0010075198952109 23644 0.0010075082536787 23645 0.0010074959136546 23646 0.0010074840392917 23647 0.0010074713500217 23648 0.0010074591264129 23649 0.00100744725205 23650 0.0010074347956106 23651 0.0010074226884171 23652 0.0010074109304696 23653 0.0010073989396915 23654 0.0010073863668367 23655 0.0010073742596433 23656 0.0010073620360345 23657 0.0010073496960104 23658 0.0010073375888169 23659 0.0010073257144541 23660 0.0010073136072606 23661 0.0010073010344058 23662 0.0010072889272124 23663 0.0010072769364342 23664 0.0010072647128254 23665 0.0010072523728013 23666 0.0010072404984385 23667 0.0010072281584144 23668 0.0010072160512209 23669 0.0010072039440274 23670 0.0010071917204186 23671 0.0010071796132252 23672 0.0010071670403704 23673 0.0010071552824229 23674 0.0010071432916448 23675 0.0010071308352053 23676 0.0010071190772578 23677 0.001007106853649 23678 0.0010070946300402 23679 0.0010070818243548 23680 0.0010070701828226 23681 0.0010070579592139 23682 0.0010070458520204 23683 0.0010070337448269 23684 0.0010070215212181 23685 0.0010070096468553 23686 0.0010069970740005 23687 0.0010069848503917 23688 0.0010069725103676 23689 0.0010069607524201 23690 0.001006948761642 23691 0.0010069366544485 23692 0.0010069243144244 23693 0.0010069117415696 23694 0.0010069001000375 23695 0.0010068875271827 23696 0.0010068754199892 23697 0.0010068628471345 23698 0.0010068512056023 23699 0.0010068392148241 23700 0.0010068267583847 23701 0.0010068146511912 23702 0.0010068024275824 23703 0.0010067909024656 23704 0.0010067780967802 23705 0.0010067665716633 23706 0.0010067542316392 23707 0.0010067417751998 23708 0.0010067300172523 23709 0.0010067175608128 23710 0.0010067054536194 23711 0.0010066931135952 23712 0.0010066815884784 23713 0.001006669132039 23714 0.0010066567920148 23715 0.0010066451504827 23716 0.0010066330432892 23717 0.0010066205868497 23718 0.001006608013995 23719 0.0010065963724628 23720 0.0010065840324387 23721 0.0010065720416605 23722 0.0010065600508824 23723 0.001006547594443 23724 0.0010065354872495 23725 0.001006523380056 23726 0.0010065112728626 23727 0.0010064988164231 23728 0.0010064865928143 23729 0.0010064748348668 23730 0.001006462611258 23731 0.0010064502712339 23732 0.0010064381640404 23733 0.001006426056847 23734 0.0010064139496535 23735 0.0010064016096294 23736 0.0010063900845125 23737 0.0010063777444884 23738 0.001006365288049 23739 0.0010063534136862 23740 0.0010063413064927 23741 0.0010063288500533 23742 0.0010063166264445 23743 0.0010063049849123 23744 0.0010062928777188 23745 0.0010062805376947 23746 0.0010062683140859 23747 0.0010062563233078 23748 0.0010062438668683 23749 0.0010062319925055 23750 0.0010062196524814 23751 0.0010062075452879 23752 0.0010061953216791 23753 0.0010061834473163 23754 0.0010061713401228 23755 0.0010061584180221 23756 0.0010061468929052 23757 0.0010061345528811 23758 0.0010061224456877 23759 0.0010061101056635 23760 0.0010060981148854 23761 0.0010060863569379 23762 0.0010060733184218 23763 0.0010060616768897 23764 0.0010060494532809 23765 0.0010060374625027 23766 0.0010060255881399 23767 0.0010060131317005 23768 0.0010060017229989 23769 0.0010059883352369 23770 0.0010059769265354 23771 0.0010059649357572 23772 0.0010059527121484 23773 0.001005940255709 23774 0.0010059282649308 23775 0.0010059168562293 23776 0.0010059040505439 23777 0.0010058921761811 23778 0.0010058799525723 23779 0.0010058677289635 23780 0.0010058551561087 23781 0.0010058435145766 23782 0.0010058316402137 23783 0.0010058193001896 23784 0.0010058071929961 23785 0.001005795202218 23786 0.0010057829786092 23787 0.0010057704057544 23788 0.0010057587642223 23789 0.0010057467734441 23790 0.0010057345498353 23791 0.0010057222098112 23792 0.0010057099862024 23793 0.0010056979954243 23794 0.0010056855389848 23795 0.0010056738974527 23796 0.0010056616738439 23797 0.0010056494502351 23798 0.0010056373430416 23799 0.0010056253522635 23800 0.0010056133614853 23801 0.0010056005557999 23802 0.0010055891470984 23803 0.0010055769234896 23804 0.0010055645834655 23805 0.0010055522434413 23806 0.0010055404854938 23807 0.001005528611131 23808 0.0010055161546916 23809 0.0010055042803288 23810 0.0010054914746433 23811 0.0010054798331112 23812 0.0010054679587483 23813 0.0010054558515549 23814 0.0010054442100227 23815 0.0010054319864139 23816 0.0010054199956357 23817 0.0010054083541036 23818 0.0010053964797407 23819 0.0010053840233013 23820 0.0010053724981844 23821 0.0010053608566523 23822 0.0010053492151201 23823 0.0010053364094347 23824 0.0010053250007331 23825 0.0010053128935397 23826 0.0010053010191768 23827 0.0010052892612293 23828 0.0010052775032818 23829 0.001005265628919 23830 0.0010052535217255 23831 0.0010052416473627 23832 0.0010052297729999 23833 0.0010052175493911 23834 0.0010052055586129 23835 0.0010051938006654 23836 0.0010051819263026 23837 0.0010051701683551 23838 0.0010051580611616 23839 0.0010051465360448 23840 0.0010051338467747 23841 0.0010051223216578 23842 0.0010051106801257 23843 0.0010050988057628 23844 0.001005086582154 23845 0.0010050747077912 23846 0.0010050627170131 23847 0.0010050508426502 23848 0.0010050388518721 23849 0.0010050273267552 23850 0.0010050151031464 23851 0.0010050032287836 23852 0.0010049911215901 23853 0.0010049797128886 23854 0.0010049673728645 23855 0.001004955265671 23856 0.0010049437405542 23857 0.0010049322154373 23858 0.0010049198754132 23859 0.0010049083502963 23860 0.0010048961266875 23861 0.0010048840194941 23862 0.0010048719123006 23863 0.0010048601543531 23864 0.0010048488620669 23865 0.0010048358235508 23866 0.0010048246476799 23867 0.0010048127733171 23868 0.0010048010153696 23869 0.0010047886753455 23870 0.0010047771502286 23871 0.0010047652758658 23872 0.0010047529358417 23873 0.0010047410614789 23874 0.0010047297691926 23875 0.0010047173127532 23876 0.0010047052055597 23877 0.0010046935640275 23878 0.00100468180608 23879 0.0010046693496406 23880 0.0010046577081084 23881 0.0010046460665762 23882 0.0010046343086287 23883 0.0010046216193587 23884 0.0010046106763184 23885 0.0010045983362943 23886 0.0010045866947621 23887 0.0010045742383227 23888 0.0010045629460365 23889 0.001004550838843 23890 0.0010045387316495 23891 0.001004526973702 23892 0.0010045155650005 23893 0.001004503108561 23894 0.0010044910013676 23895 0.001004479592666 23896 0.0010044672526419 23897 0.0010044553782791 23898 0.0010044432710856 23899 0.0010044318623841 23900 0.0010044196387753 23901 0.0010044076479971 23902 0.0010043961228803 23903 0.0010043840156868 23904 0.0010043720249087 23905 0.0010043602669612 23906 0.001004348276183 23907 0.0010043368674815 23908 0.0010043241782114 23909 0.0010043128859252 23910 0.001004300895147 23911 0.0010042889043689 23912 0.0010042769135907 23913 0.0010042652720585 23914 0.0010042532812804 23915 0.0010042412905023 23916 0.0010042297653854 23917 0.0010042181238532 23918 0.0010042054345831 23919 0.0010041939094663 23920 0.0010041820351034 23921 0.0010041703935713 23922 0.0010041580535471 23923 0.0010041462955996 23924 0.0010041343048215 23925 0.0010041219647974 23926 0.0010041104396805 23927 0.0010040982160717 23928 0.0010040865745395 23929 0.0010040741181001 23930 0.0010040630586445 23931 0.0010040508350357 23932 0.0010040393099189 23933 0.0010040267370641 23934 0.0010040152119473 23935 0.0010040033375844 23936 0.0010039913468063 23937 0.0010039795888588 23938 0.0010039678309113 23939 0.0010039558401331 23940 0.0010039437329397 23941 0.0010039319749922 23942 0.0010039205662906 23943 0.0010039079934359 23944 0.001003896468319 23945 0.0010038847103715 23946 0.0010038731852546 23947 0.0010038607288152 23948 0.0010038488544524 23949 0.0010038369800895 23950 0.001003825222142 23951 0.0010038134641945 23952 0.0010038019390777 23953 0.0010037899482995 23954 0.0010037778411061 23955 0.0010037656174973 23956 0.0010037540923804 23957 0.0010037426836789 23958 0.0010037297615781 23959 0.0010037184692919 23960 0.0010037063620985 23961 0.001003694604151 23962 0.0010036826133728 23963 0.0010036710882559 23964 0.0010036590974778 23965 0.0010036467574537 23966 0.0010036353487521 23967 0.0010036239400506 23968 0.0010036111343652 23969 0.0010035997256637 23970 0.0010035876184702 23971 0.0010035758605227 23972 0.0010035636369139 23973 0.0010035525774583 23974 0.0010035408195108 23975 0.0010035288287327 23976 0.0010035176528618 23977 0.0010035068262368 23978 0.0010034948354587 23979 0.0010034835431725 23980 0.0010034720180556 23981 0.0010034609586 23982 0.0010034490842372 23983 0.0010034379083663 23984 0.0010034263832495 23985 0.0010034149745479 23986 0.0010034029837698 23987 0.0010033921571448 23988 0.0010033808648586 23989 0.0010033691069111 23990 0.0010033574653789 23991 0.001003346289508 23992 0.0010033349972218 23993 0.0010033228900284 23994 0.0010033121798187 23995 0.0010033003054559 23996 0.0010032890131697 23997 0.0010032773716375 23998 0.0010032664285973 23999 0.0010032545542344 24000 0.0010032426798716 24001 0.001003231620416 24002 0.0010032205609605 24003 0.001003208453767 24004 0.0010031971614808 24005 0.0010031857527792 24006 0.001003174460493 24007 0.0010031624697149 24008 0.0010031515266746 24009 0.0010031398851424 24010 0.0010031284764409 24011 0.0010031168349087 24012 0.0010031061246991 24013 0.0010030936682597 24014 0.0010030828416348 24015 0.0010030712001026 24016 0.0010030602570623 24017 0.0010030482662842 24018 0.0010030370904133 24019 0.0010030255652964 24020 0.0010030142730102 24021 0.0010030027478933 24022 0.0010029908735305 24023 0.0010029796976596 24024 0.0010029682889581 24025 0.0010029568802565 24026 0.0010029452387244 24027 0.0010029344120994 24028 0.001002922304906 24029 0.0010029108962044 24030 0.0010028993710876 24031 0.001002888311632 24032 0.0010028770193458 24033 0.0010028652613983 24034 0.001002853969112 24035 0.0010028426768258 24036 0.0010028310352936 24037 0.0010028198594227 24038 0.0010028079850599 24039 0.001002796809189 24040 0.0010027851676568 24041 0.0010027743410319 24042 0.0010027626994997 24043 0.0010027515236288 24044 0.0010027395328507 24045 0.0010027283569798 24046 0.0010027168318629 24047 0.0010027057724074 24048 0.0010026937816292 24049 0.001002682489343 24050 0.0010026709642261 24051 0.0010026597883552 24052 0.001002648496069 24053 0.0010026372037828 24054 0.0010026252130046 24055 0.0010026136878878 24056 0.0010026025120169 24057 0.0010025914525613 24058 0.0010025798110291 24059 0.0010025680530816 24060 0.0010025566443801 24061 0.0010025451192632 24062 0.0010025339433923 24063 0.0010025223018602 24064 0.0010025113588199 24065 0.0010024989023805 24066 0.0010024879593402 24067 0.0010024768998846 24068 0.0010024653747678 24069 0.0010024538496509 24070 0.0010024425573647 24071 0.0010024309158325 24072 0.0010024198563769 24073 0.0010024079820141 24074 0.0010023969225585 24075 0.001002385164611 24076 0.0010023741051555 24077 0.0010023625800386 24078 0.0010023511713371 24079 0.0010023398790509 24080 0.0010023285867646 24081 0.0010023165959865 24082 0.0010023055365309 24083 0.0010022938949987 24084 0.0010022826027125 24085 0.0010022714268416 24086 0.0010022599017248 24087 0.0010022483766079 24088 0.0010022367350757 24089 0.0010022256756201 24090 0.0010022142669186 24091 0.0010022020433098 24092 0.0010021911002696 24093 0.001002179691568 24094 0.0010021683992818 24095 0.0010021566413343 24096 0.0010021448833868 24097 0.0010021338239312 24098 0.0010021219495684 24099 0.0010021108901128 24100 0.001002099364996 24101 0.0010020881891251 24102 0.0010020763147622 24103 0.001002065371722 24104 0.0010020537301898 24105 0.0010020424379036 24106 0.001002031029202 24107 0.0010020195040852 24108 0.001002007862553 24109 0.0010019968030974 24110 0.0010019850451499 24111 0.0010019743349403 24112 0.0010019623441622 24113 0.0010019512847066 24114 0.0010019396431744 24115 0.0010019283508882 24116 0.001001917058602 24117 0.0010019051842391 24118 0.0010018936591223 24119 0.0010018829489127 24120 0.0010018709581345 24121 0.0010018600150943 24122 0.0010018487228081 24123 0.0010018371976912 24124 0.0010018253233284 24125 0.0010018143802881 24126 0.0010018026223406 24127 0.0010017912136391 24128 0.0010017793392763 24129 0.001001768745482 24130 0.0010017569875345 24131 0.0010017461609095 24132 0.0010017348686233 24133 0.0010017231106758 24134 0.0010017120512202 24135 0.0010017006425187 24136 0.0010016900487244 24137 0.0010016786400229 24138 0.0010016679298133 24139 0.0010016560554504 24140 0.0010016448795795 24141 0.0010016337037086 24142 0.0010016231099144 24143 0.0010016114683822 24144 0.001001600176096 24145 0.0010015890002251 24146 0.0010015781736001 24147 0.0010015668813139 24148 0.0010015558218583 24149 0.0010015440639108 24150 0.0010015331208706 24151 0.0010015218285844 24152 0.0010015111183748 24153 0.0010014997096732 24154 0.001001488766633 24155 0.0010014771251008 24156 0.0010014662984759 24157 0.0010014548897743 24158 0.0010014438303187 24159 0.0010014327708632 24160 0.001001421129331 24161 0.0010014099534601 24162 0.0010013993596658 24163 0.0010013877181336 24164 0.0010013771243393 24165 0.0010013651335612 24166 0.0010013541905209 24167 0.00100134301465 24168 0.0010013321880251 24169 0.0010013206629083 24170 0.001001309370622 24171 0.0010012981947511 24172 0.0010012872517109 24173 0.00100127607584 24174 0.0010012646671385 24175 0.0010012536076829 24176 0.0010012425482273 24177 0.0010012313723564 24178 0.0010012198472396 24179 0.0010012086713687 24180 0.0010011974954978 24181 0.0010011865524575 24182 0.0010011750273407 24183 0.0010011639678851 24184 0.0010011529084295 24185 0.0010011416161433 24186 0.0010011299746111 24187 0.0010011191479862 24188 0.0010011080885306 24189 0.0010010972619057 24190 0.0010010857367888 24191 0.0010010744445026 24192 0.0010010630358011 24193 0.0010010520927608 24194 0.0010010410333052 24195 0.0010010298574343 24196 0.0010010187979788 24197 0.0010010073892772 24198 0.0010009963298216 24199 0.0010009852703661 24200 0.0010009738616645 24201 0.0010009631514549 24202 0.0010009516263381 24203 0.0010009404504672 24204 0.001000929158181 24205 0.001000918331556 24206 0.0010009069228545 24207 0.0010008963290602 24208 0.001000884338282 24209 0.0010008735116571 24210 0.0010008621029556 24211 0.0010008512763306 24212 0.0010008397512138 24213 0.0010008285753429 24214 0.001000817399472 24215 0.0010008064564317 24216 0.0010007950477302 24217 0.00100078410469 24218 0.0010007728124037 24219 0.0010007615201175 24220 0.0010007506934926 24221 0.0010007385862991 24222 0.0010007278760895 24223 0.0010007163509727 24224 0.0010007057571784 24225 0.0010006941156462 24226 0.0010006834054366 24227 0.0010006718803197 24228 0.0010006609372795 24229 0.0010006499942392 24230 0.001000638701953 24231 0.0010006269440055 24232 0.0010006161173806 24233 0.0010006051743403 24234 0.0010005941148847 24235 0.0010005825897679 24236 0.0010005715303123 24237 0.0010005602380261 24238 0.0010005495278165 24239 0.0010005382355303 24240 0.00100052729249 24241 0.0010005155345425 24242 0.0010005045915022 24243 0.001000493299216 24244 0.0010004824725911 24245 0.0010004710638896 24246 0.0010004598880187 24247 0.0010004488285631 24248 0.0010004381183535 24249 0.0010004265932366 24250 0.0010004155337811 24251 0.0010004042414948 24252 0.0010003928327933 24253 0.0010003815405071 24254 0.0010003708302975 24255 0.0010003591887653 24256 0.0010003483621404 24257 0.0010003371862695 24258 0.0010003263596445 24259 0.001000314950943 24260 0.0010003038914874 24261 0.0010002924827859 24262 0.001000280957669 24263 0.0010002695489675 24264 0.0010002588387579 24265 0.001000247662887 24266 0.0010002369526774 24267 0.0010002251947299 24268 0.0010002139024436 24269 0.0010002034250647 24270 0.0010001915507019 24271 0.0010001808404922 24272 0.0010001689661294 24273 0.0010001580230892 24274 0.0010001469636336 24275 0.0010001357877627 24276 0.0010001247283071 24277 0.0010001134360209 24278 0.0010001023765653 24279 0.0010000915499404 24280 0.0010000799084082 24281 0.0010000690817833 24282 0.0010000573238358 24283 0.0010000466136262 24284 0.00100003532134 24285 0.0010000243782997 24286 0.0010000127367675 24287 0.0010000020265579 24288 0.00099999085068703 24289 0.00099997990764678 24290 0.00099996849894524 24291 0.00099995778873563 24292 0.0009999459143728 24293 0.00099993497133255 24294 0.00099992356263101 24295 0.00099991238676012 24296 0.00099990144371986 24297 0.00099989026784897 24298 0.00099987885914743 24299 0.00099986838176847 24300 0.00099985697306693 24301 0.00099984603002667 24302 0.00099983462132514 24303 0.00099982332903892 24304 0.0009998120367527 24305 0.00099980097729713 24306 0.00099978991784155 24307 0.00099977874197066 24308 0.00099976744968444 24309 0.00099975639022887 24310 0.00099974544718862 24311 0.00099973427131772 24312 0.00099972286261618 24313 0.00099971157032996 24314 0.00099970027804375 24315 0.0009996893350035 24316 0.00099967839196324 24317 0.00099966651760042 24318 0.00099965580739081 24319 0.00099964498076588 24320 0.00099963345564902 24321 0.00099962227977812 24322 0.00099961110390723 24323 0.00099959957879037 24324 0.00099958851933479 24325 0.0009995773434639 24326 0.00099956605117768 24327 0.00099955510813743 24328 0.00099954439792782 24329 0.00099953298922628 24330 0.00099952181335539 24331 0.00099951075389981 24332 0.00099949957802892 24333 0.0009994882857427 24334 0.00099947699345648 24335 0.00099946593400091 24336 0.00099945487454534 24337 0.00099944323301315 24338 0.00099943263921887 24339 0.00099942123051733 24340 0.00099941028747708 24341 0.00099939946085215 24342 0.00099938816856593 24343 0.00099937699269503 24344 0.00099936523474753 24345 0.0009993544081226 24346 0.00099934288300574 24347 0.00099933193996549 24348 0.00099932088050991 24349 0.00099930947180837 24350 0.00099929887801409 24351 0.00099928735289723 24352 0.0009992765262723 24353 0.00099926511757076 24354 0.00099925347603858 24355 0.00099924253299832 24356 0.00099923147354275 24357 0.0009992205305025 24358 0.00099920912180096 24359 0.00099919806234539 24360 0.00099918700288981 24361 0.00099917559418827 24362 0.00099916488397866 24363 0.00099915370810777 24364 0.0009991426486522 24365 0.00099913123995066 24366 0.00099911994766444 24367 0.00099910900462419 24368 0.00099909771233797 24369 0.0009990866528824 24370 0.00099907559342682 24371 0.00099906441755593 24372 0.00099905382376164 24373 0.00099904183298349 24374 0.0009990306571126 24375 0.00099901994690299 24376 0.00099900853820145 24377 0.0009989975951612 24378 0.00099898607004434 24379 0.00099897489417344 24380 0.00099896395113319 24381 0.00099895265884697 24382 0.00099894194863737 24383 0.00099893019068986 24384 0.00099891913123429 24385 0.00099890818819404 24386 0.0009988967794925 24387 0.00099888618569821 24388 0.00099887500982732 24389 0.00099886348471045 24390 0.00099885230883956 24391 0.00099884124938399 24392 0.00099882995709777 24393 0.0009988188976422 24394 0.0009988077217713 24395 0.00099879689514637 24396 0.00099878537002951 24397 0.00099877454340458 24398 0.00099876360036433 24399 0.00099875242449343 24400 0.00099874078296125 24401 0.00099872960709035 24402 0.00099871878046542 24403 0.00099870772100985 24404 0.0009986967779696 24405 0.00099868513643742 24406 0.00099867396056652 24407 0.00099866301752627 24408 0.00099865184165537 24409 0.0009986407821998 24410 0.00099862948991358 24411 0.0009986188961193 24412 0.00099860713817179 24413 0.00099859607871622 24414 0.00099858525209129 24415 0.00099857407622039 24416 0.0009985629003495 24417 0.00099855149164796 24418 0.00099854019936174 24419 0.0009985298383981 24420 0.00099851842969656 24421 0.00099850725382566 24422 0.0009984957287088 24423 0.00099848455283791 24424 0.00099847407545894 24425 0.0009984626667574 24426 0.00099845160730183 24427 0.00099843996576965 24428 0.00099842867348343 24429 0.00099841807968915 24430 0.00099840643815696 24431 0.00099839572794735 24432 0.00099838431924582 24433 0.00099837314337492 24434 0.00099836243316531 24435 0.00099835079163313 24436 0.00099834031425416 24437 0.00099832867272198 24438 0.0009983170311898 24439 0.00099830632098019 24440 0.0009982951451093 24441 0.00099828443489969 24442 0.00099827279336751 24443 0.00099826150108129 24444 0.000998250907287 24445 0.00099823973141611 24446 0.00099822878837585 24447 0.00099821726325899 24448 0.00099820597097278 24449 0.00099819502793252 24450 0.00099818408489227 24451 0.00099817279260606 24452 0.00099816161673516 24453 0.00099815055727959 24454 0.00099813914857805 24455 0.0009981282055378 24456 0.00099811737891287 24457 0.00099810631945729 24458 0.00099809502717108 24459 0.00099808350205421 24460 0.00099807255901396 24461 0.00099806138314307 24462 0.00099805055651814 24463 0.00099803972989321 24464 0.00099802785553038 24465 0.00099801679607481 24466 0.0009980060858652 24467 0.00099799479357898 24468 0.00099798385053873 24469 0.00099797220900655 24470 0.00099796173162758 24471 0.00099795032292604 24472 0.00099793914705515 24473 0.00099792808759958 24474 0.00099791679531336 24475 0.00099790585227311 24476 0.00099789444357157 24477 0.00099788315128535 24478 0.00099787232466042 24479 0.00099786161445081 24480 0.00099785008933395 24481 0.00099783879704773 24482 0.00099782762117684 24483 0.00099781691096723 24484 0.00099780550226569 24485 0.0009977943263948 24486 0.0009977831505239 24487 0.00099777185823768 24488 0.0009977612644434 24489 0.00099774985574186 24490 0.00099773891270161 24491 0.00099772762041539 24492 0.00099771621171385 24493 0.00099770538508892 24494 0.00099769444204867 24495 0.00099768361542374 24496 0.0009976722067222 24497 0.0009976604487747 24498 0.00099764985498041 24499 0.00099763879552484 24500 0.00099762796889991 24501 0.0009976162109524 24502 0.00099760550074279 24503 0.00099759420845658 24504 0.000997583149001 24505 0.00099757232237607 24506 0.00099756079725921 24507 0.00099754985421896 24508 0.00099753914400935 24509 0.00099752796813846 24510 0.00099751725792885 24511 0.00099750654771924 24512 0.00099749537184834 24513 0.00099748431239277 24514 0.00099747348576784 24515 0.00099746277555823 24516 0.00099745171610266 24517 0.00099744112230837 24518 0.00099742971360683 24519 0.00099741900339723 24520 0.00099740782752633 24521 0.00099739758297801 24522 0.00099738652352244 24523 0.00099737499840558 24524 0.00099736440461129 24525 0.00099735334515572 24526 0.00099734228570014 24527 0.0009973319247365 24528 0.00099732028320432 24529 0.00099730980582535 24530 0.00099729862995446 24531 0.00099728768691421 24532 0.0009972769767046 24533 0.00099726615007967 24534 0.00099725532345474 24535 0.00099724403116852 24536 0.00099723308812827 24537 0.00099722249433398 24538 0.00099721131846309 24539 0.00099720037542284 24540 0.00099718943238258 24541 0.00099717837292701 24542 0.00099716777913272 24543 0.00099715706892312 24544 0.00099714600946754 24545 0.00099713495001197 24546 0.00099712400697172 24547 0.00099711352959275 24548 0.00099710200447589 24549 0.00099709164351225 24550 0.00099708023481071 24551 0.00099706987384707 24552 0.00099705869797617 24553 0.00099704775493592 24554 0.00099703716114163 24555 0.00099702575244009 24556 0.00099701527506113 24557 0.00099700433202088 24558 0.00099699327256531 24559 0.00099698291160166 24560 0.00099697208497673 24561 0.00099696067627519 24562 0.00099694961681962 24563 0.00099693890661001 24564 0.00099692796356976 24565 0.00099691725336015 24566 0.0009969063103199 24567 0.00099689536727965 24568 0.00099688488990068 24569 0.00099687383044511 24570 0.00099686300382018 24571 0.00099685194436461 24572 0.00099684088490903 24573 0.00099683040753007 24574 0.00099681911524385 24575 0.00099680805578828 24576 0.00099679792765528 24577 0.00099678663536906 24578 0.00099677592515945 24579 0.00099676474928856 24580 0.00099675392266363 24581 0.00099674344528466 24582 0.00099673180375248 24583 0.00099672144278884 24584 0.00099671026691794 24585 0.00099669932387769 24586 0.00099668884649873 24587 0.00099667767062783 24588 0.0009966668440029 24589 0.00099665601737797 24590 0.00099664484150708 24591 0.00099663436412811 24592 0.00099662330467254 24593 0.00099661236163229 24594 0.00099660165142268 24595 0.00099659059196711 24596 0.00099657976534218 24597 0.0009965687058866 24598 0.00099655753001571 24599 0.00099654705263674 24600 0.00099653610959649 24601 0.00099652516655624 24602 0.00099651410710067 24603 0.00099650351330638 24604 0.00099649210460484 24605 0.00099648151081055 24606 0.00099647068418562 24607 0.00099645962473005 24608 0.00099644903093576 24609 0.00099643773864955 24610 0.00099642714485526 24611 0.00099641620181501 24612 0.00099640560802072 24613 0.00099639443214983 24614 0.0009963836055249 24615 0.000996372429654 24616 0.00099636160302907 24617 0.00099635100923479 24618 0.00099633983336389 24619 0.00099632900673896 24620 0.00099631794728339 24621 0.00099630700424314 24622 0.00099629652686417 24623 0.0009962854674086 24624 0.00099627452436835 24625 0.00099626381415874 24626 0.00099625228904188 24627 0.00099624216090888 24628 0.0009962311014533 24629 0.00099621992558241 24630 0.0009962092153728 24631 0.00099619815591723 24632 0.00099618779495358 24633 0.00099617626983672 24634 0.00099616590887308 24635 0.00099615496583283 24636 0.00099614344071597 24637 0.00099613307975233 24638 0.00099612190388143 24639 0.00099611154291779 24640 0.00099610059987754 24641 0.00099608954042196 24642 0.00099607859738171 24643 0.00099606742151082 24644 0.00099605729337782 24645 0.00099604635033756 24646 0.0009960348252207 24647 0.00099602376576513 24648 0.00099601328838617 24649 0.00099600246176124 24650 0.00099599151872098 24651 0.00099598080851138 24652 0.00099597009830177 24653 0.00099595868960023 24654 0.00099594797939062 24655 0.00099593691993505 24656 0.00099592644255608 24657 0.00099591561593115 24658 0.00099590432364494 24659 0.00099589338060468 24660 0.00099588232114911 24661 0.00099587242584676 24662 0.00099586136639118 24663 0.00099585053976625 24664 0.00099584006238729 24665 0.00099582911934704 24666 0.00099581887479872 24667 0.00099580828100443 24668 0.00099579722154886 24669 0.0009957862785086 24670 0.00099577568471432 24671 0.000995765440166 24672 0.00099575449712574 24673 0.00099574448540807 24674 0.00099573319312185 24675 0.0009957222500816 24676 0.00099571223836392 24677 0.00099570141173899 24678 0.00099569093436003 24679 0.00099567987490445 24680 0.00099566904827952 24681 0.00099565868731588 24682 0.00099564786069095 24683 0.00099563761614263 24684 0.00099562632385641 24685 0.00099561549723148 24686 0.00099560560192913 24687 0.00099559454247355 24688 0.00099558418150991 24689 0.0009955734713003 24690 0.00099556311033666 24691 0.00099555193446577 24692 0.00099554099142551 24693 0.00099553097970784 24694 0.00099552003666759 24695 0.00099550955928862 24696 0.00099549884907901 24697 0.00099548790603876 24698 0.0009954774286598 24699 0.00099546671845019 24700 0.00099545635748655 24701 0.00099544529803097 24702 0.00099543458782136 24703 0.00099542399402708 24704 0.00099541316740215 24705 0.00099540269002318 24706 0.00099539221264422 24707 0.00099538103677332 24708 0.00099537067580968 24709 0.0009953600820154 24710 0.00099534925539047 24711 0.00099533854518086 24712 0.00099532795138657 24713 0.00099531735759228 24714 0.00099530629813671 24715 0.00099529593717307 24716 0.00099528534337878 24717 0.00099527509883046 24718 0.00099526392295957 24719 0.00099525297991931 24720 0.00099524238612503 24721 0.00099523167591542 24722 0.00099522154778242 24723 0.00099521037191153 24724 0.00099519977811724 24725 0.00099518906790763 24726 0.00099517847411335 24727 0.0009951681131497 24728 0.00099515717010945 24729 0.00099514704197645 24730 0.00099513621535152 24731 0.00099512527231127 24732 0.00099511502776295 24733 0.00099510420113802 24734 0.00099509349092841 24735 0.00099508289713413 24736 0.00099507172126323 24737 0.00099506159313023 24738 0.00099505111575127 24739 0.00099504052195698 24740 0.00099502957891673 24741 0.0009950187522918 24742 0.0009950086241588 24743 0.00099499779753387 24744 0.00099498732015491 24745 0.00099497637711465 24746 0.00099496566690505 24747 0.00099495495669544 24748 0.00099494447931647 24749 0.00099493388552219 24750 0.00099492305889726 24751 0.00099491258151829 24752 0.00099490187130868 24753 0.0009948912775144 24754 0.00099488091655076 24755 0.00099487020634115 24756 0.00099485914688557 24757 0.00099484855309129 24758 0.00099483854137361 24759 0.00099482736550272 24760 0.00099481677170843 24761 0.00099480606149882 24762 0.00099479523487389 24763 0.00099478499032557 24764 0.00099477404728532 24765 0.00099476345349103 24766 0.00099475285969675 24767 0.00099474168382585 24768 0.00099473190493882 24769 0.00099472072906792 24770 0.00099470978602767 24771 0.00099469977430999 24772 0.00099468883126974 24773 0.00099467858672142 24774 0.00099466752726585 24775 0.00099465693347156 24776 0.0009946464560926 24777 0.00099463562946767 24778 0.00099462526850402 24779 0.00099461432546377 24780 0.00099460396450013 24781 0.00099459302145988 24782 0.00099458242766559 24783 0.00099457206670195 24784 0.00099456124007702 24785 0.00099455064628273 24786 0.00099454005248845 24787 0.00099452910944819 24788 0.00099451863206923 24789 0.00099450792185962 24790 0.00099449744448066 24791 0.00099448673427105 24792 0.00099447648972273 24793 0.0009944656630978 24794 0.00099445495288819 24795 0.00099444459192455 24796 0.00099443341605365 24797 0.00099442317150533 24798 0.00099441246129572 24799 0.00099440186750144 24800 0.00099439092446119 24801 0.00099438009783626 24802 0.00099436996970326 24803 0.00099435914307833 24804 0.00099434878211468 24805 0.00099433795548975 24806 0.00099432794377208 24807 0.00099431641865522 24808 0.00099430582486093 24809 0.00099429558031261 24810 0.00099428463727236 24811 0.00099427392706275 24812 0.00099426333326846 24813 0.00099425308872014 24814 0.00099424249492586 24815 0.00099423190113157 24816 0.00099422072526067 24817 0.00099421036429703 24818 0.00099419965408742 24819 0.00099418964236975 24820 0.00099417835008353 24821 0.00099416798911989 24822 0.00099415704607964 24823 0.00099414656870067 24824 0.00099413597490638 24825 0.0009941253811121 24826 0.00099411478731781 24827 0.00099410419352353 24828 0.00099409348331392 24829 0.00099408335518092 24830 0.00099407217931002 24831 0.0009940619347617 24832 0.00099405110813677 24833 0.00099404039792717 24834 0.00099402968771756 24835 0.00099401944316924 24836 0.00099400838371366 24837 0.00099399825558066 24838 0.00099398731254041 24839 0.00099397695157677 24840 0.00099396600853652 24841 0.0009939557639882 24842 0.00099394470453262 24843 0.00099393422715366 24844 0.00099392351694405 24845 0.00099391280673444 24846 0.00099390209652483 24847 0.00099389161914587 24848 0.00099388125818223 24849 0.00099387019872665 24850 0.00099385960493237 24851 0.00099384924396873 24852 0.00099383806809783 24853 0.00099382817279547 24854 0.0009938171133399 24855 0.00099380640313029 24856 0.00099379569292068 24857 0.00099378521554172 24858 0.00099377473816276 24859 0.00099376402795315 24860 0.0009937530849129 24861 0.00099374284036458 24862 0.00099373166449368 24863 0.00099372176919132 24864 0.00099371070973575 24865 0.00099369999952614 24866 0.00099368928931653 24867 0.00099367892835289 24868 0.00099366833455861 24869 0.00099365774076432 24870 0.00099364703055471 24871 0.00099363620392978 24872 0.00099362549372017 24873 0.0009936154820025 24874 0.00099360453896224 24875 0.0009935941779986 24876 0.00099358300212771 24877 0.00099357252474874 24878 0.00099356181453913 24879 0.00099355145357549 24880 0.00099354074336588 24881 0.00099353003315628 24882 0.00099351885728538 24883 0.0009935088455677 24884 0.00099349825177342 24885 0.00099348777439445 24886 0.00099347694776952 24887 0.00099346612114459 24888 0.00099345552735031 24889 0.00099344493355602 24890 0.00099343422334641 24891 0.00099342362955213 24892 0.00099341291934252 24893 0.00099340232554823 24894 0.0009933914989233 24895 0.00099338113795966 24896 0.00099337054416537 24897 0.00099336006678641 24898 0.00099334912374616 24899 0.00099333852995187 24900 0.00099332793615758 24901 0.0009933173423633 24902 0.00099330674856901 24903 0.00099329650402069 24904 0.00099328509531915 24905 0.00099327485077083 24906 0.00099326425697654 24907 0.00099325377959758 24908 0.00099324330221862 24909 0.00099323247559369 24910 0.00099322176538408 24911 0.00099321105517447 24912 0.00099320046138018 24913 0.00099319044966251 24914 0.00099317927379161 24915 0.00099316844716668 24916 0.00099315762054175 24917 0.00099314714316279 24918 0.00099313701502979 24919 0.00099312618840486 24920 0.00099311559461057 24921 0.000993104535155 24922 0.000993094407022 24923 0.00099308381322771 24924 0.00099307298660278 24925 0.00099306274205446 24926 0.00099305168259889 24927 0.00099304073955864 24928 0.00099303037859499 24929 0.00099302036687732 24930 0.00099300942383707 24931 0.00099299813155085 24932 0.00099298777058721 24933 0.0009929770603776 24934 0.0009929669322446 24935 0.00099295633845031 24936 0.00099294539541006 24937 0.00099293468520045 24938 0.00099292420782149 24939 0.00099291407968849 24940 0.00099290325306356 24941 0.00099289254285395 24942 0.0009928815998137 24943 0.00099287077318877 24944 0.00099286064505577 24945 0.00099285005126148 24946 0.00099283969029784 24947 0.00099282874725759 24948 0.00099281792063266 24949 0.00099280767608434 24950 0.00099279684945941 24951 0.00099278672132641 24952 0.00099277577828616 24953 0.00099276460241526 24954 0.00099275447428226 24955 0.00099274376407266 24956 0.00099273340310901 24957 0.00099272246006876 24958 0.00099271233193576 24959 0.00099270150531083 24960 0.00099269079510123 24961 0.00099268043413758 24962 0.00099266937468201 24963 0.00099265924654901 24964 0.00099264841992408 24965 0.00099263747688383 24966 0.00099262711592019 24967 0.00099261628929526 24968 0.00099260627757758 24969 0.00099259533453733 24970 0.0009925845079124 24971 0.00099257426336408 24972 0.00099256366956979 24973 0.0009925530757755 24974 0.00099254259839654 24975 0.00099253188818693 24976 0.000992521061562 24977 0.00099251046776772 24978 0.00099249999038875 24979 0.00099248916376382 24980 0.00099247926846147 24981 0.00099246809259057 24982 0.00099245761521161 24983 0.00099244702141732 24984 0.00099243642762303 24985 0.00099242618307471 24986 0.00099241477437317 24987 0.0009924047626555 24988 0.0009923935867846 24989 0.00099238310940564 24990 0.00099237309768796 24991 0.00099236227106303 24992 0.0009923514444381 24993 0.00099234073422849 24994 0.00099233014043421 24995 0.00099231977947056 24996 0.00099230906926095 24997 0.00099229859188199 24998 0.00099228729959577 24999 0.0009922772878781 25000 0.00099226704332978 25001 0.0009922559838742 25002 0.00099224597215652 25003 0.00099223444703966 25004 0.00099222431890666 25005 0.00099221372511238 25006 0.00099220313131809 25007 0.00099219253752381 25008 0.00099218147806823 25009 0.00099217100068927 25010 0.00099216098897159 25011 0.00099215027876198 25012 0.0009921396849677 25013 0.00099212909117341 25014 0.00099211814813316 25015 0.00099210755433887 25016 0.00099209707695991 25017 0.0009920863667503 25018 0.00099207554012537 25019 0.00099206471350044 25020 0.00099205470178276 25021 0.00099204387515783 25022 0.00099203328136355 25023 0.0009920229203999 25024 0.00099201197735965 25025 0.00099200091790408 25026 0.00099199067335576 25027 0.00099197973031551 25028 0.00099196960218251 25029 0.0009919588919729 25030 0.00099194806534797 25031 0.00099193747155368 25032 0.00099192664492875 25033 0.00099191640038043 25034 0.0009919055737555 25035 0.0009918954456225 25036 0.00099188415333629 25037 0.000991873559542 25038 0.00099186366423965 25039 0.00099185283761472 25040 0.00099184305872768 25041 0.00099183176644146 25042 0.00099182152189314 25043 0.0009918111609295 25044 0.00099180091638118 25045 0.00099179125390947 25046 0.00099178054369986 25047 0.00099176994990557 25048 0.00099175935611129 25049 0.000991748762317 25050 0.00099173886701465 25051 0.000991728506051 25052 0.00099171767942607 25053 0.00099170720204711 25054 0.0009916964918375 25055 0.00099168671295047 25056 0.00099167600274086 25057 0.00099166587460786 25058 0.00099165493156761 25059 0.00099164457060397 25060 0.00099163432605565 25061 0.00099162408150733 25062 0.00099161372054368 25063 0.00099160301033407 25064 0.00099159276578575 25065 0.00099158252123743 25066 0.00099157192744315 25067 0.0009915615664795 25068 0.00099155143834651 25069 0.00099154037889093 25070 0.00099153025075793 25071 0.00099152023904026 25072 0.00099150952883065 25073 0.00099149893503636 25074 0.00099148857407272 25075 0.00099147809669375 25076 0.00099146796856076 25077 0.00099145737476647 25078 0.00099144724663347 25079 0.00099143700208515 25080 0.00099142617546022 25081 0.00099141628015786 25082 0.00099140545353293 25083 0.00099139544181526 25084 0.00099138496443629 25085 0.0009913737885654 25086 0.00099136400967836 25087 0.0009913535322994 25088 0.00099134317133576 25089 0.00099133281037211 25090 0.00099132210016251 25091 0.00099131185561419 25092 0.00099130137823522 25093 0.00099129078444093 25094 0.00099128053989261 25095 0.00099127017892897 25096 0.00099125958513469 25097 0.00099124922417104 25098 0.00099123874679208 25099 0.00099122838582844 25100 0.00099121814128011 25101 0.00099120778031647 25102 0.00099119730293751 25103 0.00099118682555854 25104 0.00099117623176426 25105 0.00099116610363126 25106 0.00099115562625229 25107 0.00099114538170397 25108 0.00099113443866372 25109 0.00099112407770008 25110 0.00099111371673644 25111 0.00099110323935747 25112 0.00099109311122447 25113 0.00099108240101486 25114 0.00099107169080526 25115 0.00099106191191822 25116 0.00099105155095458 25117 0.00099104142282158 25118 0.00099103036336601 25119 0.00099102035164833 25120 0.00099101010710001 25121 0.00099099928047508 25122 0.00099098938517272 25123 0.00099097867496312 25124 0.00099096796475351 25125 0.00099095795303583 25126 0.00099094759207219 25127 0.0009909369982779 25128 0.00099092640448362 25129 0.00099091650918126 25130 0.0009909060318023 25131 0.00099089555442333 25132 0.00099088507704437 25133 0.00099087483249605 25134 0.00099086423870176 25135 0.00099085364490747 25136 0.00099084340035915 25137 0.00099083292298019 25138 0.00099082267843187 25139 0.0009908122010529 25140 0.00099080160725862 25141 0.00099079124629498 25142 0.00099078088533133 25143 0.00099077029153705 25144 0.00099076004698873 25145 0.00099074956960976 25146 0.0009907390922308 25147 0.00099072873126715 25148 0.0009907188359648 25149 0.00099070812575519 25150 0.00099069799762219 25151 0.00099068775307387 25152 0.00099067681003362 25153 0.0009906665654853 25154 0.00099065597169101 25155 0.00099064595997334 25156 0.00099063536617905 25157 0.00099062488880008 25158 0.00099061452783644 25159 0.00099060439970344 25160 0.00099059392232448 25161 0.00099058321211487 25162 0.00099057331681252 25163 0.00099056225735694 25164 0.00099055224563926 25165 0.00099054211750627 25166 0.0009905316401273 25167 0.00099052174482495 25168 0.00099051126744598 25169 0.00099050044082105 25170 0.00099049031268805 25171 0.00099048018455505 25172 0.00099046947434545 25173 0.00099045876413584 25174 0.00099044875241816 25175 0.00099043874070048 25176 0.00099042826332152 25177 0.00099041743669659 25178 0.00099040719214827 25179 0.00099039706401527 25180 0.00099038635380566 25181 0.00099037622567266 25182 0.00099036633037031 25183 0.00099035538733006 25184 0.00099034514278173 25185 0.00099033478181809 25186 0.00099032488651574 25187 0.00099031487479806 25188 0.0009903043974191 25189 0.00099029438570142 25190 0.00099028437398374 25191 0.00099027424585074 25192 0.00099026435054839 25193 0.00099025433883071 25194 0.00099024409428239 25195 0.00099023361690342 25196 0.00099022360518575 25197 0.00099021382629871 25198 0.00099020381458104 25199 0.00099019333720207 25200 0.0009901833254844 25201 0.00099017284810543 25202 0.00099016260355711 25203 0.00099015270825475 25204 0.00099014304578304 25205 0.00099013280123472 25206 0.00099012244027108 25207 0.00099011231213808 25208 0.00099010206758976 25209 0.00099009252153337 25210 0.00099008169490844 25211 0.00099007214885205 25212 0.00099006178788841 25213 0.00099005154334009 25214 0.00099004129879177 25215 0.00099003128707409 25216 0.00099002150818706 25217 0.00099001091439277 25218 0.00099000078625977 25219 0.00098999077454209 25220 0.00098998076282442 25221 0.0009899705182761 25222 0.00098996050655842 25223 0.00098995037842542 25224 0.00098994001746178 25225 0.0009899300057441 25226 0.00098992022685707 25227 0.00098990998230875 25228 0.00098990008700639 25229 0.00098988995887339 25230 0.00098987983074039 25231 0.00098986981902272 25232 0.00098985969088972 25233 0.0009898494463414 25234 0.00098983943462372 25235 0.00098982953932136 25236 0.00098981929477304 25237 0.00098980916664004 25238 0.00098979892209172 25239 0.00098978891037405 25240 0.00098977889865637 25241 0.00098976900335401 25242 0.00098975852597505 25243 0.00098974839784205 25244 0.00098973815329373 25245 0.00098972825799137 25246 0.00098971812985837 25247 0.00098970765247941 25248 0.00098969787359238 25249 0.00098968762904406 25250 0.00098967738449574 25251 0.00098966737277806 25252 0.00098965724464506 25253 0.00098964711651206 25254 0.00098963687196374 25255 0.00098962697666138 25256 0.00098961661569774 25257 0.00098960695322603 25258 0.00098959659226239 25259 0.00098958681337535 25260 0.00098957645241171 25261 0.00098956597503275 25262 0.00098955596331507 25263 0.000989546533674 25264 0.00098953628912568 25265 0.00098952569533139 25266 0.00098951591644436 25267 0.00098950567189604 25268 0.00098949600942433 25269 0.00098948564846069 25270 0.00098947575315833 25271 0.00098946562502533 25272 0.00098945596255362 25273 0.00098944536875933 25274 0.00098943547345698 25275 0.0009894254617393 25276 0.00098941545002162 25277 0.00098940543830395 25278 0.00098939496092498 25279 0.00098938518203795 25280 0.00098937528673559 25281 0.0009893651586026 25282 0.00098935491405427 25283 0.0009893449023366 25284 0.00098933489061892 25285 0.00098932499531657 25286 0.00098931463435292 25287 0.00098930462263525 25288 0.0009892953094095 25289 0.00098928483203053 25290 0.00098927458748221 25291 0.00098926457576454 25292 0.00098925491329283 25293 0.00098924478515983 25294 0.00098923488985747 25295 0.00098922476172447 25296 0.00098921475000679 25297 0.00098920473828912 25298 0.00098919495940208 25299 0.00098918448202312 25300 0.00098917447030544 25301 0.00098916457500309 25302 0.00098915491253138 25303 0.00098914455156773 25304 0.00098913442343473 25305 0.0009891246445477 25306 0.00098911463283002 25307 0.00098910415545106 25308 0.00098909449297935 25309 0.00098908413201571 25310 0.00098907446954399 25311 0.00098906422499567 25312 0.00098905432969332 25313 0.00098904490005225 25314 0.00098903477191925 25315 0.00098902464378625 25316 0.00098901451565325 25317 0.00098900450393558 25318 0.0009889944922179 25319 0.00098898459691554 25320 0.00098897411953658 25321 0.00098896434064955 25322 0.00098895421251655 25323 0.00098894431721419 25324 0.00098893465474248 25325 0.00098892429377884 25326 0.00098891439847648 25327 0.0009889043867588 25328 0.00098889460787177 25329 0.00098888413049281 25330 0.00098887435160577 25331 0.00098886399064213 25332 0.00098885432817042 25333 0.0009888440836221 25334 0.00098883442115039 25335 0.00098882440943271 25336 0.00098881451413035 25337 0.00098880473524332 25338 0.00098879425786436 25339 0.00098878424614668 25340 0.000988774234429 25341 0.00098876433912665 25342 0.00098875374533236 25343 0.00098874419927597 25344 0.00098873430397362 25345 0.0009887246415019 25346 0.00098871416412294 25347 0.00098870426882058 25348 0.00098869425710291 25349 0.00098868436180055 25350 0.00098867435008287 25351 0.00098866410553455 25352 0.0009886542102322 25353 0.00098864443134516 25354 0.00098863407038152 25355 0.00098862452432513 25356 0.00098861427977681 25357 0.00098860450088978 25358 0.0009885944891721 25359 0.0009885843610391 25360 0.00098857434932142 25361 0.00098856445401907 25362 0.00098855420947075 25363 0.00098854396492243 25364 0.00098853430245072 25365 0.0009885240579024 25366 0.00098851462826133 25367 0.00098850450012833 25368 0.00098849437199533 25369 0.00098848436027765 25370 0.00098847423214465 25371 0.0009884643368423 25372 0.00098845397587866 25373 0.0009884440805763 25374 0.00098843430168927 25375 0.00098842452280223 25376 0.00098841427825391 25377 0.00098840438295156 25378 0.00098839413840324 25379 0.00098838447593153 25380 0.00098837446421385 25381 0.00098836398683488 25382 0.00098835397511721 25383 0.00098834431264549 25384 0.00098833406809717 25385 0.00098832370713353 25386 0.00098831404466182 25387 0.00098830414935946 25388 0.00098829437047243 25389 0.00098828389309347 25390 0.00098827411420643 25391 0.00098826410248876 25392 0.00098825444001704 25393 0.0009882440790534 25394 0.00098823406733572 25395 0.00098822428844869 25396 0.00098821392748505 25397 0.0009882046142593 25398 0.00098819425329566 25399 0.0009881843579933 25400 0.00098817422986031 25401 0.00098816433455795 25402 0.00098815409000963 25403 0.00098814407829195 25404 0.00098813406657428 25405 0.00098812417127192 25406 0.00098811462521553 25407 0.0009881037985906 25408 0.00098809436894953 25409 0.00098808435723186 25410 0.0009880744619295 25411 0.00098806398455054 25412 0.0009880542056635 25413 0.00098804431036115 25414 0.00098803441505879 25415 0.00098802405409515 25416 0.00098801392596215 25417 0.00098800414707512 25418 0.00098799425177276 25419 0.00098798458930105 25420 0.00098797399550676 25421 0.00098796421661973 25422 0.00098795420490205 25423 0.00098794419318438 25424 0.00098793406505138 25425 0.00098792393691838 25426 0.0009879139252007 25427 0.00098790414631367 25428 0.00098789355251938 25429 0.00098788377363235 25430 0.00098787411116064 25431 0.00098786409944296 25432 0.00098785397130996 25433 0.00098784395959228 25434 0.00098783406428993 25435 0.00098782428540289 25436 0.00098781404085457 25437 0.00098780391272157 25438 0.00098779366817325 25439 0.00098778423853219 25440 0.00098777411039919 25441 0.00098776374943554 25442 0.00098775373771787 25443 0.00098774395883083 25444 0.00098773406352848 25445 0.00098772428464144 25446 0.00098771369084716 25447 0.0009877037955448 25448 0.00098769413307309 25449 0.00098768412135541 25450 0.00098767387680709 25451 0.00098766386508942 25452 0.00098765396978706 25453 0.00098764407448471 25454 0.00098763406276703 25455 0.00098762440029532 25456 0.00098761427216232 25457 0.00098760426044464 25458 0.00098759424872696 25459 0.00098758388776332 25460 0.00098757434170693 25461 0.0009875645628199 25462 0.00098755431827158 25463 0.00098754395730793 25464 0.00098753406200558 25465 0.00098752393387258 25466 0.00098751462064683 25467 0.00098750460892916 25468 0.00098749413155019 25469 0.00098748435266316 25470 0.00098747410811484 25471 0.00098746397998184 25472 0.00098745455034077 25473 0.00098744442220777 25474 0.00098743452690542 25475 0.00098742486443371 25476 0.00098741427063942 25477 0.00098740472458303 25478 0.00098739436361939 25479 0.00098738470114768 25480 0.00098737468943 25481 0.00098736397922039 25482 0.000987354433164 25483 0.00098734442144632 25484 0.00098733475897461 25485 0.00098732463084161 25486 0.00098731450270861 25487 0.00098730495665222 25488 0.00098729506134987 25489 0.00098728446755558 25490 0.00098727445583791 25491 0.00098726456053555 25492 0.00098725466523319 25493 0.00098724511917681 25494 0.00098723464179784 25495 0.00098722474649549 25496 0.00098721485119313 25497 0.00098720437381417 25498 0.00098719447851181 25499 0.00098718435037881 25500 0.0009871746879071 25501 0.00098716490902007 25502 0.0009871544316411 25503 0.00098714441992342 25504 0.00098713499028236 25505 0.00098712474573404 25506 0.00098711508326232 25507 0.00098710472229868 25508 0.00098709459416568 25509 0.00098708539735526 25510 0.00098707515280694 25511 0.00098706490825862 25512 0.00098705489654094 25513 0.00098704488482326 25514 0.00098703545518219 25515 0.00098702521063387 25516 0.0009870151989162 25517 0.00098700518719852 25518 0.00098699505906552 25519 0.0009869858622551 25520 0.00098697526846081 25521 0.00098696514032781 25522 0.00098695524502546 25523 0.00098694546613842 25524 0.0009869352215901 25525 0.00098692567553371 25526 0.00098691566381603 25527 0.00098690541926771 25528 0.00098689587321132 25529 0.00098688504658639 25530 0.00098687573336065 25531 0.00098686572164297 25532 0.00098685605917126 25533 0.00098684569820762 25534 0.00098683557007462 25535 0.00098682567477226 25536 0.00098681601230055 25537 0.00098680565133691 25538 0.00098679540678859 25539 0.0009867858607322 25540 0.00098677561618388 25541 0.00098676641937345 25542 0.00098675559274852 25543 0.00098674581386149 25544 0.00098673580214381 25545 0.00098672567401081 25546 0.00098671612795442 25547 0.00098670599982142 25548 0.00098669610451907 25549 0.00098668644204736 25550 0.00098667666316032 25551 0.00098666630219668 25552 0.00098665663972497 25553 0.00098664616234601 25554 0.00098663649987429 25555 0.00098662613891065 25556 0.00098661612719297 25557 0.00098660681396723 25558 0.00098659656941891 25559 0.00098658644128591 25560 0.00098657631315291 25561 0.00098656641785055 25562 0.00098655675537884 25563 0.00098654697649181 25564 0.00098653649911284 25565 0.00098652660381049 25566 0.00098651694133878 25567 0.00098650704603642 25568 0.00098649691790342 25569 0.00098648655693978 25570 0.00098647677805275 25571 0.00098646676633507 25572 0.00098645617254078 25573 0.00098644685931504 25574 0.000986437080428 25575 0.00098642683587968 25576 0.00098641705699265 25577 0.00098640646319836 25578 0.0009863970335573 25579 0.00098638713825494 25580 0.00098637701012194 25581 0.00098636711481959 25582 0.00098635698668659 25583 0.0009863474406302 25584 0.00098633742891252 25585 0.00098632741719484 25586 0.00098631717264652 25587 0.00098630716092885 25588 0.00098629703279585 25589 0.00098628760315478 25590 0.0009862775914371 25591 0.00098626723047346 25592 0.00098625745158643 25593 0.00098624732345343 25594 0.00098623754456639 25595 0.00098622753284872 25596 0.00098621717188507 25597 0.00098620750941336 25598 0.00098619761411101 25599 0.00098618760239333 25600 0.00098617759067565 25601 0.00098616746254265 25602 0.00098615791648626 25603 0.00098614790476859 25604 0.0009861383587122 25605 0.00098612857982516 25606 0.00098611903376877 25607 0.0009861090220511 25608 0.00098609935957938 25609 0.00098608923144639 25610 0.00098607980180532 25611 0.00098607013933361 25612 0.00098606024403125 25613 0.00098605058155954 25614 0.00098604068625718 25615 0.00098603148944676 25616 0.00098602136131376 25617 0.00098601158242673 25618 0.00098600180353969 25619 0.00098599179182202 25620 0.00098598189651966 25621 0.00098597258329391 25622 0.00098596268799156 25623 0.00098595267627388 25624 0.00098594324663281 25625 0.00098593335133046 25626 0.00098592368885875 25627 0.00098591402638704 25628 0.00098590436391532 25629 0.00098589435219765 25630 0.00098588480614126 25631 0.00098587526008487 25632 0.00098586489912122 25633 0.00098585535306484 25634 0.0009858455741778 25635 0.0009858354460448 25636 0.00098582624923438 25637 0.00098581681959331 25638 0.00098580680787563 25639 0.0009857970289886 25640 0.00098578748293221 25641 0.00098577723838389 25642 0.00098576757591218 25643 0.00098575791344047 25644 0.0009857484837994 25645 0.00098573858849704 25646 0.00098572915885597 25647 0.00098571949638426 25648 0.00098570913542062 25649 0.00098569982219487 25650 0.00098568992689252 25651 0.00098568014800549 25652 0.00098567036911845 25653 0.00098566093947738 25654 0.00098565057851374 25655 0.00098564103245735 25656 0.00098563183564693 25657 0.00098562194034457 25658 0.00098561204504222 25659 0.00098560226615518 25660 0.00098559283651412 25661 0.00098558270838112 25662 0.00098557281307876 25663 0.00098556338343769 25664 0.00098555313888937 25665 0.00098554359283298 25666 0.00098553381394595 25667 0.00098552438430488 25668 0.0009855143725872 25669 0.00098550482653081 25670 0.00098549504764378 25671 0.0009854850359261 25672 0.00098547572270036 25673 0.00098546536173671 25674 0.00098545604851097 25675 0.00098544615320861 25676 0.00098543695639819 25677 0.00098542706109583 25678 0.0009854172822088 25679 0.00098540750332177 25680 0.00098539737518877 25681 0.00098538806196302 25682 0.00098537805024534 25683 0.00098536815494299 25684 0.0009853586088866 25685 0.00098534859716892 25686 0.00098533870186657 25687 0.0009853292722255 25688 0.00098531972616911 25689 0.00098531029652804 25690 0.00098529981914908 25691 0.00098529027309269 25692 0.00098528049420565 25693 0.00098527036607265 25694 0.00098526058718562 25695 0.00098525127395988 25696 0.00098524102941155 25697 0.0009852321818471 25698 0.00098522193729877 25699 0.00098521204199642 25700 0.00098520249594003 25701 0.000985192717053 25702 0.00098518282175064 25703 0.00098517327569425 25704 0.00098516349680722 25705 0.00098515383433551 25706 0.00098514382261783 25707 0.00098513427656144 25708 0.00098512484692037 25709 0.00098511495161802 25710 0.00098510505631566 25711 0.00098509562667459 25712 0.00098508573137224 25713 0.00098507583606988 25714 0.00098506617359817 25715 0.00098505592904985 25716 0.00098504638299346 25717 0.00098503730259836 25718 0.00098502729088068 25719 0.00098501762840897 25720 0.00098500808235258 25721 0.0009849980706349 25722 0.00098498817533255 25723 0.00098497839644551 25724 0.0009849687339738 25725 0.00098495907150209 25726 0.00098494917619973 25727 0.00098493997938931 25728 0.00098492973484099 25729 0.0009849201887846 25730 0.00098491029348224 25731 0.00098490039817989 25732 0.00098489038646221 25733 0.00098488118965179 25734 0.00098487129434943 25735 0.00098486128263175 25736 0.00098485173657537 25737 0.0009848423069343 25738 0.00098483241163194 25739 0.00098482251632959 25740 0.00098481308668852 25741 0.00098480330780149 25742 0.00098479341249913 25743 0.0009847836336121 25744 0.0009847735054791 25745 0.00098476407583803 25746 0.00098475406412035 25747 0.00098474440164864 25748 0.00098473543766886 25749 0.0009847255423665 25750 0.00098471611272544 25751 0.00098470575176179 25752 0.00098469632212073 25753 0.00098468677606434 25754 0.00098467688076198 25755 0.00098466733470559 25756 0.00098465825431049 25757 0.00098464882466942 25758 0.00098463916219771 25759 0.00098462984897196 25760 0.00098461960442364 25761 0.00098461040761322 25762 0.00098460109438747 25763 0.00098459096625447 25764 0.0009845815366134 25765 0.00098457222338766 25766 0.00098456267733127 25767 0.00098455301485956 25768 0.00098454405087978 25769 0.00098453438840806 25770 0.00098452519159764 25771 0.000984514830634 25772 0.0009845057502389 25773 0.00098449608776718 25774 0.00098448665812612 25775 0.00098447687923908 25776 0.00098446733318269 25777 0.00098445813637227 25778 0.00098444882314652 25779 0.00098443916067481 25780 0.0009844294982031 25781 0.00098442006856203 25782 0.00098441052250564 25783 0.00098440132569522 25784 0.00098439143039286 25785 0.00098438165150583 25786 0.0009843724546954 25787 0.00098436302505434 25788 0.00098435359541327 25789 0.0009843441657722 25790 0.00098433438688517 25791 0.00098432507365942 25792 0.00098431552760303 25793 0.000984305748716 25794 0.00098429620265961 25795 0.00098428665660322 25796 0.00098427711054683 25797 0.00098426779732108 25798 0.00098425825126469 25799 0.0009842487052083 25800 0.00098423950839788 25801 0.00098423031158745 25802 0.00098421983420849 25803 0.00098421075381339 25804 0.000984201207757 25805 0.00098419177811593 25806 0.00098418188281357 25807 0.0009841724531725 25808 0.00098416325636208 25809 0.00098415394313633 25810 0.00098414439707994 25811 0.00098413461819291 25812 0.00098412530496716 25813 0.00098411564249545 25814 0.00098410632926971 25815 0.00098409655038267 25816 0.00098408677149564 25817 0.00098407792393118 25818 0.00098406837787479 25819 0.00098405894823372 25820 0.00098404905293137 25821 0.0009840396232903 25822 0.00098403007723391 25823 0.00098402076400816 25824 0.00098401075229049 25825 0.00098400132264942 25826 0.00098399189300835 25827 0.00098398234695196 25828 0.00098397338297218 25829 0.0009839633712545 25830 0.00098395405802876 25831 0.00098394462838769 25832 0.00098393519874662 25833 0.00098392530344427 25834 0.00098391610663384 25835 0.00098390621133149 25836 0.00098389689810574 25837 0.00098388805054128 25838 0.0009838780388236 25839 0.00098386860918254 25840 0.00098385917954147 25841 0.0009838497499004 25842 0.0009838396217674 25843 0.00098383065778762 25844 0.00098382087890059 25845 0.00098381156567484 25846 0.00098380201961845 25847 0.0009837921243161 25848 0.00098378350958228 25849 0.00098377419635653 25850 0.00098376488313079 25851 0.00098375510424376 25852 0.00098374602384865 25853 0.00098373671062291 25854 0.0009837276302278 25855 0.00098371796775609 25856 0.00098370865453035 25857 0.00098369969055057 25858 0.00098369049374014 25859 0.00098368106409907 25860 0.00098367210011929 25861 0.00098366278689355 25862 0.00098365324083716 25863 0.00098364392761141 25864 0.00098363484721631 25865 0.00098362541757524 25866 0.00098361575510353 25867 0.0009836065582931 25868 0.00098359759431332 25869 0.00098358816467226 25870 0.00098357908427715 25871 0.00098356953822076 25872 0.00098356045782566 25873 0.00098355126101524 25874 0.00098354159854352 25875 0.00098353205248713 25876 0.00098352308850735 25877 0.00098351412452757 25878 0.00098350504413247 25879 0.00098349549807608 25880 0.00098348618485034 25881 0.00098347722087055 25882 0.00098346767481416 25883 0.00098345777951181 25884 0.00098344858270139 25885 0.00098343938589096 25886 0.00098343007266521 25887 0.00098342134151608 25888 0.00098341144621372 25889 0.00098340236581862 25890 0.00098339305259287 25891 0.00098338373936713 25892 0.00098337430972606 25893 0.00098336499650031 25894 0.00098335568327457 25895 0.0009833462536335 25896 0.00098333740606904 25897 0.00098332786001265 25898 0.00098331889603287 25899 0.00098330923356116 25900 0.00098330015316606 25901 0.00098329107277095 25902 0.00098328152671456 25903 0.00098327221348882 25904 0.00098326278384775 25905 0.00098325381986797 25906 0.00098324427381158 25907 0.00098323519341648 25908 0.00098322588019073 25909 0.00098321691621095 25910 0.00098320713732392 25911 0.00098319794051349 25912 0.00098318874370307 25913 0.000983179314062 25914 0.0009831702336669 25915 0.00098316045477986 25916 0.00098315114155412 25917 0.0009831425268203 25918 0.00098313321359456 25919 0.0009831233182922 25920 0.00098311435431242 25921 0.00098310527391732 25922 0.00098309584427625 25923 0.00098308676388115 25924 0.00098307663574815 25925 0.00098306767176837 25926 0.0009830582421273 25927 0.00098304951097816 25928 0.00098303961567581 25929 0.00098303076811135 25930 0.00098302110563964 25931 0.00098301214165986 25932 0.00098300271201879 25933 0.0009829931659624 25934 0.00098298396915197 25935 0.00098297488875687 25936 0.00098296592477709 25937 0.00098295672796667 25938 0.00098294683266431 25939 0.00098293763585389 25940 0.00098292878828943 25941 0.00098291935864836 25942 0.00098290981259197 25943 0.00098290049936622 25944 0.0009828913025558 25945 0.0009828822221607 25946 0.00098287290893495 25947 0.00098286371212453 25948 0.00098285439889878 25949 0.00098284520208836 25950 0.00098283577244729 25951 0.00098282645922154 25952 0.00098281679674983 25953 0.00098280783277005 25954 0.00098279863595963 25955 0.00098278932273388 25956 0.00098278024233878 25957 0.00098277092911303 25958 0.00098276161588728 25959 0.00098275241907686 25960 0.00098274275660515 25961 0.00098273367621005 25962 0.00098272447939962 25963 0.00098271504975855 25964 0.00098270596936345 25965 0.00098269642330706 25966 0.00098268734291196 25967 0.00098267826251686 25968 0.00098266918212175 25969 0.00098265940323472 25970 0.00098264997359365 25971 0.00098264100961387 25972 0.00098263146355748 25973 0.00098262238316238 25974 0.00098261248786002 25975 0.0009826032910496 25976 0.00098259444348514 25977 0.00098258524667472 25978 0.00098257604986429 25979 0.0009825665038079 25980 0.0009825574234128 25981 0.00098254822660238 25982 0.00098253902979195 25983 0.0009825291344896 25984 0.00098252017050982 25985 0.00098251085728407 25986 0.00098250200971961 25987 0.00098249269649386 25988 0.00098248291760683 25989 0.00098247383721173 25990 0.0009824646404013 25991 0.00098245544359088 25992 0.00098244566470385 25993 0.00098243646789342 25994 0.00098242703825235 25995 0.00098241842351854 25996 0.00098240887746215 25997 0.00098239944782108 25998 0.00098239036742598 25999 0.00098238105420023 26000 0.00098237197380513 26001 0.00098236277699471 26002 0.00098235311452299 26003 0.00098234380129725 26004 0.00098233472090214 26005 0.00098232575692236 26006 0.00098231621086597 26007 0.00098230701405555 26008 0.0009822977008298 26009 0.00098228850401938 26010 0.00098227930720896 26011 0.00098226964473724 26012 0.0009822603315115 26013 0.00098225125111639 26014 0.00098224182147533 26015 0.00098223274108022 26016 0.00098222307860851 26017 0.00098221423104405 26018 0.00098220503423363 26019 0.00098219607025385 26020 0.00098218652419746 26021 0.00098217709455639 26022 0.00098216801416129 26023 0.00098215881735086 26024 0.00098214915487915 26025 0.00098214007448405 26026 0.00098213111050427 26027 0.0009821216808632 26028 0.0009821126004681 26029 0.00098210317082703 26030 0.00098209350835532 26031 0.00098208454437554 26032 0.00098207534756511 26033 0.00098206603433937 26034 0.00098205683752894 26035 0.00098204764071852 26036 0.00098203821107745 26037 0.00098202924709767 26038 0.00098201935179532 26039 0.00098201050423086 26040 0.00098200119100511 26041 0.00098199187777936 26042 0.00098198268096894 26043 0.00098197325132787 26044 0.00098196405451745 26045 0.00098195509053767 26046 0.00098194601014256 26047 0.00098193623125553 26048 0.00098192703444511 26049 0.00098191783763468 26050 0.00098190852440894 26051 0.00098189932759851 26052 0.0009818896651268 26053 0.0009818805847317 26054 0.00098187185358256 26055 0.00098186230752617 26056 0.00098185299430043 26057 0.00098184391390532 26058 0.00098183460067958 26059 0.00098182552028447 26060 0.00098181632347405 26061 0.00098180677741766 26062 0.00098179734777659 26063 0.00098178815096617 26064 0.00098177941981703 26065 0.00098177010659128 26066 0.00098176032770425 26067 0.00098175113089383 26068 0.00098174216691405 26069 0.00098173262085766 26070 0.00098172319121659 26071 0.00098171387799084 26072 0.0009817045647651 26073 0.00098169583361596 26074 0.00098168628755957 26075 0.0009816768579185 26076 0.00098166754469275 26077 0.00098165858071297 26078 0.00098164926748723 26079 0.00098164018709213 26080 0.00098163040820509 26081 0.00098162121139467 26082 0.00098161201458424 26083 0.00098160316701978 26084 0.00098159373737872 26085 0.00098158442415297 26086 0.00098157511092722 26087 0.0009815659141168 26088 0.00098155660089105 26089 0.00098154693841934 26090 0.00098153785802424 26091 0.00098152842838317 26092 0.00098151946440339 26093 0.00098151015117764 26094 0.0009815008379519 26095 0.00098149152472615 26096 0.00098148256074637 26097 0.0009814731311053 26098 0.00098146358504891 26099 0.00098145473748446 26100 0.00098144530784339 26101 0.00098143634386361 26102 0.00098142714705318 26103 0.00098141748458147 26104 0.00098140817135572 26105 0.00098139909096062 26106 0.00098138977773488 26107 0.00098138034809381 26108 0.00098137126769871 26109 0.00098136183805764 26110 0.00098135299049318 26111 0.00098134391009808 26112 0.00098133424762636 26113 0.00098132505081594 26114 0.00098131608683616 26115 0.00098130677361041 26116 0.00098129757679999 26117 0.00098128826357424 26118 0.00098127871751785 26119 0.00098126975353807 26120 0.00098126055672765 26121 0.00098125089425594 26122 0.00098124158103019 26123 0.00098123261705041 26124 0.00098122318740934 26125 0.00098121422342956 26126 0.00098120456095785 26127 0.00098119559697807 26128 0.00098118628375232 26129 0.0009811770869419 26130 0.00098116765730083 26131 0.00098115834407508 26132 0.00098114914726466 26133 0.00098113983403891 26134 0.00098113098647445 26135 0.00098112097475678 26136 0.000981112010777 26137 0.00098110281396657 26138 0.00098109361715615 26139 0.00098108442034572 26140 0.00098107545636594 26141 0.0009810661431402 26142 0.00098105706274509 26143 0.00098104798234999 26144 0.00098103878553957 26145 0.00098102923948318 26146 0.00098101980984211 26147 0.00098101084586233 26148 0.00098100176546723 26149 0.00098099198658019 26150 0.00098098278976977 26151 0.00098097370937467 26152 0.00098096462897956 26153 0.00098095531575382 26154 0.00098094600252807 26155 0.00098093645647168 26156 0.00098092737607658 26157 0.00098091829568148 26158 0.00098090851679444 26159 0.00098089931998402 26160 0.00098089047241956 26161 0.00098088115919381 26162 0.00098087196238339 26163 0.00098086253274232 26164 0.00098085321951658 26165 0.00098084437195212 26166 0.00098083494231105 26167 0.00098082586191595 26168 0.00098081619944423 26169 0.00098080711904913 26170 0.00098079768940806 26171 0.00098078872542828 26172 0.00098077917937189 26173 0.00098076986614615 26174 0.00098076078575104 26175 0.00098075170535594 26176 0.00098074262496084 26177 0.00098073296248913 26178 0.00098072388209403 26179 0.00098071445245296 26180 0.00098070548847318 26181 0.00098069605883211 26182 0.00098068662919104 26183 0.00098067743238062 26184 0.00098066823557019 26185 0.00098065903875977 26186 0.0009806496091187 26187 0.00098064029589295 26188 0.00098063109908253 26189 0.00098062213510275 26190 0.000980612821877 26191 0.00098060350865126 26192 0.00098059431184083 26193 0.00098058511503041 26194 0.00098057591821998 26195 0.00098056683782488 26196 0.00098055717535317 26197 0.00098054797854275 26198 0.00098053901456296 26199 0.00098052946850657 26200 0.00098052038811147 26201 0.00098051130771637 26202 0.00098050222732127 26203 0.00098049337975681 26204 0.00098048453219235 26205 0.00098047475330532 26206 0.0009804661385715 26207 0.00098045752383769 26208 0.00098044832702726 26209 0.00098043936304748 26210 0.00098042981699109 26211 0.00098042085301131 26212 0.00098041200544685 26213 0.00098040304146707 26214 0.00098039349541068 26215 0.00098038488067687 26216 0.00098037568386644 26217 0.00098036683630198 26218 0.00098035775590688 26219 0.00098034832626581 26220 0.00098033982794732 26221 0.00098033109679818 26222 0.00098032224923372 26223 0.00098031328525394 26224 0.00098030408844352 26225 0.00098029500804842 26226 0.00098028616048396 26227 0.00098027719650418 26228 0.00098026776686311 26229 0.00098025891929865 26230 0.00098025007173419 26231 0.00098024099133909 26232 0.00098023179452866 26233 0.00098022259771824 26234 0.00098021351732314 26235 0.00098020466975868 26236 0.00098019547294825 26237 0.00098018674179912 26238 0.00098017719574273 26239 0.00098016858100891 26240 0.00098015950061381 26241 0.00098015076946467 26242 0.0009801413398236 26243 0.00098013237584382 26244 0.00098012364469469 26245 0.00098011433146894 26246 0.00098010548390448 26247 0.00098009617067873 26248 0.00098008709028363 26249 0.00098007800988853 26250 0.00098006939515471 26251 0.00098006019834429 26252 0.00098005088511854 26253 0.00098004180472344 26254 0.00098003284074366 26255 0.0009800239931792 26256 0.0009800149127841 26257 0.00098000548314303 26258 0.00097999651916325 26259 0.00097998778801411 26260 0.00097997859120369 26261 0.00097996951080859 26262 0.00097996066324413 26263 0.00097995123360306 26264 0.00097994250245392 26265 0.00097993342205882 26266 0.00097992410883307 26267 0.00097991502843797 26268 0.00097990618087351 26269 0.00097989698406309 26270 0.00097988860215992 26271 0.00097987928893417 26272 0.00097987032495439 26273 0.00097986124455929 26274 0.00097985228057951 26275 0.00097984296735376 26276 0.0009798341197893 26277 0.00097982492297888 26278 0.00097981584258378 26279 0.00097980711143464 26280 0.00097979733254761 26281 0.00097978860139847 26282 0.00097977975383401 26283 0.00097977067343891 26284 0.00097976170945913 26285 0.0009797525126487 26286 0.00097974378149956 26287 0.00097973470110446 26288 0.00097972596995533 26289 0.00097971665672958 26290 0.00097970757633448 26291 0.00097969826310873 26292 0.00097968988120556 26293 0.00097968091722578 26294 0.00097967148758471 26295 0.00097966229077429 26296 0.00097965355962515 26297 0.0009796442463994 26298 0.0009796351660043 26299 0.00097962631843984 26300 0.00097961712162942 26301 0.00097960815764964 26302 0.00097959896083921 26303 0.00097958988044411 26304 0.00097958091646433 26305 0.00097957230173051 26306 0.00097956287208945 26307 0.00097955367527902 26308 0.00097954494412988 26309 0.00097953563090414 26310 0.00097952701617032 26311 0.00097951758652925 26312 0.00097950862254947 26313 0.00097949942573905 26314 0.00097949069458991 26315 0.00097948114853352 26316 0.00097947218455374 26317 0.00097946356981993 26318 0.00097945448942482 26319 0.00097944540902972 26320 0.00097943632863462 26321 0.00097942724823952 26322 0.00097941828425974 26323 0.00097940897103399 26324 0.00097940000705421 26325 0.00097939127590507 26326 0.000979381846264 26327 0.0009793727658689 26328 0.0009793636854738 26329 0.00097935448866338 26330 0.00097934529185295 26331 0.00097933632787317 26332 0.00097932759672403 26333 0.00097931863274425 26334 0.00097930931951851 26335 0.00097930012270808 26336 0.00097929139155895 26337 0.00097928266040981 26338 0.0009792729979381 26339 0.00097926415037364 26340 0.00097925530280918 26341 0.00097924575675279 26342 0.00097923679277301 26343 0.00097922817803919 26344 0.00097921886481345 26345 0.00097920978441834 26346 0.00097920093685389 26347 0.00097919185645878 26348 0.000979182892479 26349 0.00097917369566858 26350 0.00097916484810412 26351 0.00097915588412434 26352 0.00097914657089859 26353 0.00097913737408817 26354 0.00097912852652371 26355 0.00097911944612861 26356 0.00097911013290286 26357 0.00097910116892308 26358 0.0009790922049433 26359 0.00097908289171755 26360 0.00097907369490713 26361 0.00097906508017331 26362 0.00097905588336289 26363 0.00097904691938311 26364 0.00097903830464929 26365 0.00097902945708483 26366 0.00097902014385909 26367 0.00097901106346399 26368 0.00097900209948421 26369 0.00097899325191975 26370 0.00097898382227868 26371 0.0009789748582989 26372 0.00097896612714976 26373 0.00097895669750869 26374 0.00097894761711359 26375 0.00097893900237978 26376 0.00097892933990806 26377 0.00097892072517425 26378 0.00097891152836382 26379 0.00097890279721469 26380 0.00097889371681958 26381 0.00097888463642448 26382 0.00097887578886002 26383 0.00097886635921896 26384 0.0009788575116545 26385 0.00097884843125939 26386 0.00097883923444897 26387 0.0009788298048079 26388 0.00097882130648941 26389 0.00097881210967898 26390 0.00097880302928388 26391 0.00097879418171942 26392 0.00097878486849368 26393 0.0009787759045139 26394 0.00097876647487283 26395 0.00097875809296966 26396 0.00097874947823584 26397 0.00097874016501009 26398 0.00097873178310692 26399 0.00097872235346586 26400 0.00097871385514736 26401 0.00097870524041355 26402 0.00097869604360312 26403 0.00097868754528463 26404 0.00097867893055081 26405 0.00097866961732507 26406 0.00097866100259125 26407 0.00097865192219615 26408 0.00097864295821637 26409 0.0009786345763132 26410 0.00097862561233342 26411 0.00097861676476896 26412 0.00097860815003514 26413 0.00097859895322472 26414 0.0009785903384909 26415 0.00097858090884984 26416 0.0009785721777007 26417 0.00097856367938221 26418 0.0009785545989871 26419 0.00097854575142264 26420 0.0009785364381969 26421 0.00097852805629373 26422 0.00097851909231395 26423 0.00097851024474949 26424 0.00097850174643099 26425 0.00097849278245121 26426 0.00097848393488675 26427 0.00097847532015294 26428 0.00097846647258848 26429 0.00097845785785466 26430 0.00097844912670553 26431 0.00097844004631042 26432 0.00097843131516129 26433 0.00097842223476619 26434 0.00097841350361705 26435 0.00097840477246791 26436 0.00097839557565749 26437 0.00097838696092367 26438 0.0009783785790205 26439 0.00097836926579475 26440 0.00097836076747626 26441 0.00097835157066584 26442 0.00097834318876266 26443 0.00097833445761353 26444 0.00097832537721843 26445 0.00097831664606929 26446 0.00097830756567419 26447 0.00097829895094037 26448 0.00097829010337591 26449 0.00097828125581145 26450 0.00097827252466232 26451 0.00097826367709786 26452 0.00097825471311808 26453 0.00097824598196894 26454 0.00097823678515851 26455 0.00097822828684002 26456 0.00097821955569088 26457 0.00097821012604982 26458 0.00097820162773132 26459 0.00097819324582815 26460 0.00097818369977176 26461 0.00097817520145327 26462 0.00097816600464284 26463 0.00097815727349371 26464 0.00097814865875989 26465 0.00097813981119543 26466 0.0009781310800463 26467 0.00097812188323587 26468 0.00097811315208673 26469 0.00097810453735292 26470 0.00097809557337314 26471 0.00097808660939336 26472 0.00097807799465954 26473 0.00097806891426444 26474 0.00097806006669998 26475 0.00097805121913552 26476 0.00097804237157106 26477 0.00097803364042193 26478 0.00097802456002682 26479 0.00097801594529301 26480 0.00097800686489791 26481 0.00097799825016409 26482 0.0009779897518456 26483 0.00097798020578921 26484 0.00097797170747072 26485 0.0009779630927369 26486 0.00097795424517244 26487 0.00097794574685395 26488 0.00097793666645885 26489 0.00097792770247906 26490 0.00097791920416057 26491 0.00097791035659611 26492 0.00097790115978569 26493 0.00097789231222123 26494 0.00097788404673338 26495 0.00097787543199956 26496 0.00097786658443511 26497 0.00097785762045532 26498 0.00097784912213683 26499 0.00097783980891109 26500 0.00097783107776195 26501 0.00097782234661281 26502 0.00097781349904835 26503 0.00097780488431454 26504 0.00097779580391943 26505 0.00097778718918562 26506 0.00097777810879052 26507 0.0009777694940567 26508 0.00097776076290756 26509 0.00097775144968182 26510 0.000977742834948 26511 0.00097773433662951 26512 0.00097772525623441 26513 0.00097771652508527 26514 0.00097770756110549 26515 0.00097769871354103 26516 0.00097769009880722 26517 0.00097768113482744 26518 0.00097767228726298 26519 0.00097766355611384 26520 0.00097765447571874 26521 0.0009776457445696 26522 0.00097763678058982 26523 0.00097762793302536 26524 0.00097761931829154 26525 0.00097761023789644 26526 0.00097760139033198 26527 0.00097759254276752 26528 0.00097758392803371 26529 0.00097757508046925 26530 0.00097756600007415 26531 0.00097755738534033 26532 0.00097754877060652 26533 0.00097753992304206 26534 0.0009775310754776 26535 0.0009775219950825 26536 0.00097751361317933 26537 0.00097750476561487 26538 0.00097749580163509 26539 0.00097748707048595 26540 0.00097747857216746 26541 0.00097746914252639 26542 0.00097746064420789 26543 0.00097745168022811 26544 0.00097744294907898 26545 0.00097743445076048 26546 0.00097742537036538 26547 0.00097741663921624 26548 0.00097740755882114 26549 0.00097739894408733 26550 0.00097739032935351 26551 0.00097738124895841 26552 0.00097737275063992 26553 0.00097736425232142 26554 0.00097735528834164 26555 0.00097734644077718 26556 0.00097733759321272 26557 0.00097732897847891 26558 0.00097732001449913 26559 0.00097731105051935 26560 0.00097730243578553 26561 0.00097729312255979 26562 0.00097728462424129 26563 0.0009772761259228 26564 0.00097726681269705 26565 0.00097725819796324 26566 0.0009772494668141 26567 0.000977240386419 26568 0.00097723177168518 26569 0.00097722292412072 26570 0.00097721384372562 26571 0.00097720534540713 26572 0.00097719591576606 26573 0.00097718741744757 26574 0.00097717868629843 26575 0.00097716960590333 26576 0.00097716087475419 26577 0.00097715191077441 26578 0.00097714329604059 26579 0.00097713468130678 26580 0.000977125717327 26581 0.00097711675334722 26582 0.00097710825502872 26583 0.0009770990582183 26584 0.00097709032706916 26585 0.0009770814795047 26586 0.00097707274835557 26587 0.00097706413362175 26588 0.00097705493681133 26589 0.00097704655490816 26590 0.00097703712526709 26591 0.0009770286269486 26592 0.00097702024504542 26593 0.00097701081540436 26594 0.00097700231708586 26595 0.00097699370235205 26596 0.00097698450554162 26597 0.00097697589080781 26598 0.0009769668104127 26599 0.00097695831209421 26600 0.0009769496973604 26601 0.00097694061696529 26602 0.00097693176940084 26603 0.00097692292183638 26604 0.00097691407427192 26605 0.0009769054595381 26606 0.00097689661197364 26607 0.00097688764799386 26608 0.00097687926609069 26609 0.00097687018569559 26610 0.00097686145454645 26611 0.00097685237415135 26612 0.00097684399224818 26613 0.00097683526109904 26614 0.00097682606428862 26615 0.00097681768238544 26616 0.00097680906765163 26617 0.00097680010367185 26618 0.00097679102327675 26619 0.00097678205929697 26620 0.00097677332814783 26621 0.00097676459699869 26622 0.00097675574943423 26623 0.00097674678545445 26624 0.00097673840355128 26625 0.00097672897391021 26626 0.00097672047559172 26627 0.00097671162802726 26628 0.0009767027804628 26629 0.00097669439855963 26630 0.00097668531816453 26631 0.00097667623776942 26632 0.00097666692454368 26633 0.00097665854264051 26634 0.00097665016073734 26635 0.00097664073109627 26636 0.00097663258202374 26637 0.00097662396728992 26638 0.00097661488689482 26639 0.00097660627216101 26640 0.0009765971917659 26641 0.00097658857703209 26642 0.00097657996229827 26643 0.00097657088190317 26644 0.00097656203433871 26645 0.00097655353602022 26646 0.00097654445562512 26647 0.0009765358408913 26648 0.00097652693511918 26649 0.00097651814576238 26650 0.00097650935640559 26651 0.00097650021780282 26652 0.00097649183589965 26653 0.00097648287191987 26654 0.00097647390794009 26655 0.00097646546782926 26656 0.00097645644564182 26657 0.00097644794732332 26658 0.0009764387505129 26659 0.00097642972832546 26660 0.0009764211717993 26661 0.00097641232423484 26662 0.00097640365129337 26663 0.00097639497835189 26664 0.00097638601437211 26665 0.00097637728322297 26666 0.00097636878490448 26667 0.0009763598209247 26668 0.0009763510315679 26669 0.00097634218400344 26670 0.00097633351106197 26671 0.00097632472170517 26672 0.00097631546668708 26673 0.00097630685195327 26674 0.00097629800438881 26675 0.00097628915682435 26676 0.00097628054209054 26677 0.00097627146169543 26678 0.00097626307979226 26679 0.00097625446505845 26680 0.00097624538466334 26681 0.00097623676992953 26682 0.00097622838802636 26683 0.00097621913300827 26684 0.00097621051827446 26685 0.00097620114684105 26686 0.00097619224106893 26687 0.0009761838009581 26688 0.00097617483697832 26689 0.00097616610582918 26690 0.00097615737468004 26691 0.00097614852711558 26692 0.00097614002879709 26693 0.00097613083198667 26694 0.00097612256649882 26695 0.00097611371893436 26696 0.00097610475495458 26697 0.00097609602380544 26698 0.000976087001618 26699 0.00097607809584588 26700 0.00097606948111206 26701 0.00097606028430164 26702 0.00097605178598315 26703 0.00097604334587231 26704 0.00097603444010019 26705 0.00097602588357404 26706 0.0009760168613866 26707 0.00097600795561448 26708 0.00097599963191897 26709 0.00097599055152386 26710 0.00097598193679005 26711 0.00097597314743325 26712 0.00097596400883049 26713 0.00097595539409667 26714 0.00097594625549391 26715 0.00097593775717542 26716 0.00097592896781862 26717 0.00097592012025416 26718 0.00097591144731268 26719 0.00097590242512524 26720 0.00097589404322207 26721 0.00097588531207293 26722 0.00097587628988549 26723 0.00097586773335934 26724 0.00097585906041786 26725 0.00097585009643808 26726 0.00097584089962766 26727 0.00097583199385554 26728 0.00097582337912172 26729 0.00097581476438791 26730 0.0009758056839928 26731 0.00097579695284367 26732 0.00097578833810985 26733 0.00097577966516837 26734 0.00097577110864222 26735 0.00097576173720881 26736 0.00097575329709798 26737 0.00097574444953352 26738 0.00097573560196906 26739 0.0009757264633663 26740 0.00097571790684015 26741 0.0009757088846527 26742 0.00097570015350357 26743 0.00097569124773145 26744 0.00097568228375167 26745 0.00097567378543317 26746 0.00097566482145339 26747 0.00097565609030426 26748 0.00097564730094746 26749 0.00097563822055236 26750 0.0009756296640262 26751 0.00097562046721578 26752 0.00097561173606664 26753 0.0009756027138792 26754 0.00097559369169176 26755 0.0009755851351656 26756 0.00097557617118582 26757 0.00097556720720604 26758 0.00097555865067989 26759 0.00097554945386946 26760 0.00097554066451266 26761 0.00097553210798651 26762 0.00097552326042205 26763 0.00097551452927291 26764 0.00097550568170846 26765 0.00097549660131335 26766 0.0009754883358255 26767 0.00097547867335379 26768 0.00097546988399699 26769 0.00097546121105552 26770 0.00097545236349106 26771 0.00097544363234192 26772 0.00097543466836214 26773 0.00097542605362833 26774 0.00097541708964854 26775 0.00097540824208409 26776 0.00097539974376559 26777 0.00097539077978581 26778 0.00097538181580603 26779 0.00097537308465689 26780 0.00097536400426179 26781 0.00097535515669733 26782 0.00097534601809457 26783 0.00097533687949181 26784 0.00097532814834267 26785 0.00097531965002418 26786 0.00097531027859077 26787 0.00097530172206461 26788 0.00097529258346185 26789 0.00097528379410505 26790 0.00097527517937124 26791 0.00097526621539146 26792 0.0009752576588653 26793 0.0009752488695085 26794 0.00097523984732106 26795 0.00097523082513362 26796 0.00097522186115384 26797 0.00097521330462769 26798 0.00097520451527089 26799 0.00097519555129111 26800 0.00097518670372665 26801 0.00097517808899283 26802 0.00097516900859773 26803 0.00097516027744859 26804 0.00097515125526115 26805 0.00097514258231968 26806 0.0009751339093782 26807 0.00097512465436012 26808 0.00097511615604162 26809 0.00097510684281588 26810 0.00097509822808206 26811 0.00097508943872526 26812 0.0009750803001225 26813 0.00097507203463465 26814 0.00097506353631616 26815 0.00097505457233638 26816 0.0009750461904332 26817 0.00097503775032237 26818 0.00097502872813493 26819 0.00097502040443942 26820 0.00097501161508262 26821 0.00097500259289518 26822 0.00097499432740733 26823 0.00097498530521989 26824 0.0009749768069014 26825 0.00097496819216758 26826 0.00097495969384909 26827 0.00097495131194592 26828 0.00097494228975847 26829 0.00097493408247828 26830 0.00097492535132915 26831 0.00097491662018001 26832 0.00097490783082321 26833 0.00097489927429706 26834 0.00097489083418623 26835 0.00097488210303709 26836 0.00097487343009561 26837 0.00097486487356946 26838 0.00097485614242032 26839 0.0009748472366482 26840 0.00097483856370673 26841 0.00097482965793461 26842 0.00097482104320079 26843 0.00097481289412826 26844 0.00097480358090252 26845 0.00097479531541467 26846 0.00097478687530383 26847 0.00097477773670107 26848 0.00097476947121322 26849 0.00097476050723344 26850 0.00097475200891495 26851 0.0009747437434271 26852 0.00097473507048562 26853 0.00097472622292116 26854 0.00097471789922565 26855 0.00097470916807652 26856 0.00097470066975802 26857 0.00097469193860888 26858 0.00097468320745975 26859 0.00097467482555658 26860 0.00097466597799212 26861 0.0009746573632583 26862 0.00097464880673215 26863 0.00097464013379067 26864 0.00097463163547218 26865 0.00097462272970006 26866 0.00097461434779689 26867 0.00097460590768605 26868 0.0009745970601216 26869 0.00097458867821842 26870 0.00097458017989993 26871 0.00097457144875079 26872 0.0009745629504323 26873 0.00097455375362188 26874 0.00097454525530338 26875 0.00097453687340021 26876 0.00097452785121277 26877 0.00097451941110194 26878 0.00097451102919877 26879 0.00097450206521899 26880 0.00097449356690049 26881 0.00097448437009007 26882 0.00097447633743286 26883 0.00097446772269905 26884 0.00097445887513459 26885 0.00097445060964674 26886 0.00097444211132824 26887 0.0009744330891408 26888 0.00097442453261465 26889 0.00097441580146551 26890 0.00097440707031637 26891 0.00097439857199788 26892 0.00097438984084874 26893 0.00097438128432259 26894 0.00097437272779644 26895 0.00097436376381665 26896 0.00097435544012114 26897 0.0009743464179337 26898 0.00097433815244585 26899 0.00097432977054268 26900 0.00097432057373226 26901 0.00097431219182909 26902 0.00097430369351059 26903 0.00097429502056912 26904 0.00097428652225062 26905 0.0009742776164785 26906 0.00097426929278299 26907 0.0009742607944645 26908 0.00097425188869238 26909 0.00097424339037389 26910 0.00097423489205539 26911 0.00097422598628327 26912 0.00097421772079542 26913 0.0009742088150233 26914 0.00097420043312013 26915 0.0009741919930093 26916 0.00097418285440654 26917 0.00097417458891869 26918 0.00097416597418487 26919 0.00097415706841275 26920 0.00097414857009426 26921 0.00097413989715278 26922 0.00097413122421131 26923 0.00097412278410047 26924 0.00097411405295134 26925 0.0009741053218022 26926 0.00097409682348371 26927 0.00097408809233457 26928 0.00097407936118543 26929 0.00097407051362097 26930 0.00097406201530248 26931 0.00097405398264527 26932 0.00097404525149614 26933 0.00097403698600829 26934 0.00097402872052044 26935 0.00097402033861727 26936 0.00097401195671409 26937 0.00097400340018794 26938 0.00097399519290775 26939 0.00097398681100458 26940 0.00097397831268609 26941 0.00097397004719824 26942 0.00097396178171039 26943 0.00097395328339189 26944 0.0009739450761117 26945 0.00097393628675491 26946 0.00097392790485173 26947 0.00097391969757155 26948 0.0009739106753841 26949 0.0009739026427269 26950 0.00097389466827735 26951 0.00097388558788225 26952 0.00097387749701738 26953 0.00097386876586825 26954 0.00097386096604168 26955 0.0009738527587615 26956 0.00097384385298938 26957 0.00097383558750153 26958 0.000973827438429 26959 0.00097381882369518 26960 0.00097381049999967 26961 0.0009738018270582 26962 0.0009737933287397 26963 0.0009737852960825 26964 0.00097377685597166 26965 0.00097376829944551 26966 0.00097376015037298 26967 0.00097375153563917 26968 0.00097374297911301 26969 0.00097373430617154 26970 0.00097372621530667 26971 0.00097371771698818 26972 0.00097370916046202 26973 0.00097370106959715 26974 0.00097369257127866 26975 0.00097368413116783 26976 0.00097367586567998 26977 0.00097366760019213 26978 0.00097365910187364 26979 0.00097365048713982 26980 0.00097364198882133 26981 0.00097363372333348 26982 0.00097362557426095 26983 0.00097361672669649 26984 0.00097360863583162 26985 0.00097360002109781 26986 0.0009735916974023 26987 0.00097358372295275 26988 0.00097357458434999 26989 0.00097356643527746 26990 0.00097355816978961 26991 0.00097354932222515 26992 0.00097354140598327 26993 0.00097353314049542 26994 0.00097352458396927 26995 0.00097351614385843 26996 0.00097350764553994 26997 0.00097349926363677 26998 0.00097349093994126 26999 0.00097348226699978 27000 0.00097347388509661 27001 0.0009734658524394 27002 0.00097345735412091 27003 0.00097344920504838 27004 0.00097344059031457 27005 0.0009734322084114 27006 0.00097342388471588 27007 0.00097341544460505 27008 0.00097340694628656 27009 0.00097339868079871 27010 0.00097339012427256 27011 0.0009733815677464 27012 0.00097337330225855 27013 0.00097336515318602 27014 0.00097335688769817 27015 0.00097334838937968 27016 0.00097334012389183 27017 0.00097333180019632 27018 0.00097332301083952 27019 0.00097331474535167 27020 0.00097330583957955 27021 0.00097329786513001 27022 0.00097328948322684 27023 0.0009732807520777 27024 0.00097327283583581 27025 0.00097326457034796 27026 0.00097325583919883 27027 0.00097324751550332 27028 0.00097323872614652 27029 0.00097323051886633 27030 0.00097322219517082 27031 0.00097321352222934 27032 0.00097320519853383 27033 0.00097319693304598 27034 0.00097318791085854 27035 0.00097317981999367 27036 0.0009731714380905 27037 0.00097316288156435 27038 0.00097315484890714 27039 0.00097314605955034 27040 0.00097313756123185 27041 0.00097312941215932 27042 0.00097312097204849 27043 0.00097311241552234 27044 0.00097310426644981 27045 0.00097309576813132 27046 0.00097308756085113 27047 0.00097307923715562 27048 0.00097307097166777 27049 0.00097306282259524 27050 0.0009730540914461 27051 0.00097304576775059 27052 0.0009730375604704 27053 0.00097302906215191 27054 0.00097302079666406 27055 0.00097301206551492 27056 0.00097300391644239 27057 0.0009729954181239 27058 0.00097298691980541 27059 0.0009729788871482 27060 0.00097297015599906 27061 0.00097296171588823 27062 0.00097295339219272 27063 0.00097294471925125 27064 0.00097293651197106 27065 0.00097292847931385 27066 0.00097291939891875 27067 0.00097291130805388 27068 0.00097290310077369 27069 0.00097289431141689 27070 0.00097288627875969 27071 0.00097287772223353 27072 0.00097286968957633 27073 0.00097286165691912 27074 0.00097285315860063 27075 0.00097284541698173 27076 0.00097283720970154 27077 0.00097282871138304 27078 0.00097282079514116 27079 0.00097281287889928 27080 0.00097280408954248 27081 0.00097279605688527 27082 0.00097278779139742 27083 0.00097277958411723 27084 0.00097277178429067 27085 0.00097276316955686 27086 0.00097275507869199 27087 0.00097274710424244 27088 0.00097273883875459 27089 0.00097273074788973 27090 0.00097272213315591 27091 0.00097271410049871 27092 0.00097270589321852 27093 0.00097269762773067 27094 0.00097268982790411 27095 0.00097268191166222 27096 0.00097267370438203 27097 0.00097266543889418 27098 0.00097265705699101 27099 0.0009726490243338 27100 0.0009726409916766 27101 0.00097263249335811 27102 0.00097262440249324 27103 0.00097261613700539 27104 0.00097260787151754 27105 0.00097260001348332 27106 0.0009725913987495 27107 0.0009725836571306 27108 0.00097257562447339 27109 0.0009725671261549 27110 0.00097255926812068 27111 0.00097255123546347 27112 0.00097254256252199 27113 0.00097253435524181 27114 0.00097252649720758 27115 0.00097251776605844 27116 0.00097250996623188 27117 0.00097250175895169 27118 0.00097249331884086 27119 0.00097248563542962 27120 0.00097247713711113 27121 0.00097246904624626 27122 0.00097246072255075 27123 0.00097245222423226 27124 0.00097244424978271 27125 0.00097243598429486 27126 0.00097242800984532 27127 0.00097241986077279 27128 0.0009724116534926 27129 0.00097240332979709 27130 0.00097239558817819 27131 0.00097238697344437 27132 0.00097237894078717 27133 0.00097237061709166 27134 0.00097236246801913 27135 0.00097235455177724 27136 0.00097234593704343 27137 0.00097233831183985 27138 0.00097233027918264 27139 0.00097232218831778 27140 0.00097231398103759 27141 0.00097230554092675 27142 0.00097229768289253 27143 0.00097228935919702 27144 0.00097228097729385 27145 0.00097227288642898 27146 0.00097226491197944 27147 0.00097225664649159 27148 0.00097224849741906 27149 0.00097224058117718 27150 0.00097223208285868 27151 0.00097222422482446 27152 0.00097221555188298 27153 0.00097220786847174 27154 0.00097219960298389 27155 0.00097219098825008 27156 0.00097218330483884 27157 0.00097217515576631 27158 0.00097216665744781 27159 0.00097215862479061 27160 0.00097215035930276 27161 0.00097214209381491 27162 0.00097213435219601 27163 0.00097212620312348 27164 0.00097211764659733 27165 0.00097210984677076 27166 0.00097210134845227 27167 0.00097209343221039 27168 0.00097208528313786 27169 0.0009720767266117 27170 0.0009720689849928 27171 0.00097206060308963 27172 0.00097205251222476 27173 0.00097204436315224 27174 0.00097203615587205 27175 0.00097202771576121 27176 0.00097201997414231 27177 0.00097201176686212 27178 0.00097200344316661 27179 0.00097199523588642 27180 0.00097198720322922 27181 0.00097197922877967 27182 0.00097197078866884 27183 0.00097196298884228 27184 0.00097195472335443 27185 0.00097194645786658 27186 0.00097193848341703 27187 0.00097192934481427 27188 0.00097192154498771 27189 0.00097191345412284 27190 0.00097190507221967 27191 0.00097189703956246 27192 0.00097188929794356 27193 0.00097188085783273 27194 0.00097187282517552 27195 0.00097186490893364 27196 0.00097185629419982 27197 0.0009718484361656 27198 0.00097183993784711 27199 0.0009718319051899 27200 0.00097182393074036 27201 0.00097181519959122 27202 0.00097180728334934 27203 0.00097179925069213 27204 0.00097179104341194 27205 0.00097178277792409 27206 0.00097177462885156 27207 0.00097176642157137 27208 0.00097175838891417 27209 0.000971750007011 27210 0.00097174191614613 27211 0.00097173388348892 27212 0.00097172544337809 27213 0.00097171764355153 27214 0.00097170926164836 27215 0.00097170111257583 27216 0.00097169273067266 27217 0.00097168411593884 27218 0.00097167631611228 27219 0.00097166828345507 27220 0.00097165978513658 27221 0.00097165175247937 27222 0.00097164395265281 27223 0.00097163557074964 27224 0.00097162724705413 27225 0.00097161915618926 27226 0.00097161094890907 27227 0.00097160297445953 27228 0.00097159476717934 27229 0.00097158644348383 27230 0.00097157881828025 27231 0.00097156967967749 27232 0.00097156153060496 27233 0.00097155314870179 27234 0.00097154517425224 27235 0.00097153696697205 27236 0.00097152875969186 27237 0.00097152113448828 27238 0.00097151263616979 27239 0.00097150437068194 27240 0.00097149633802474 27241 0.00097148847999051 27242 0.00097148003987968 27243 0.00097147224005312 27244 0.00097146368352696 27245 0.00097145582549274 27246 0.00097144756000489 27247 0.00097143894527107 27248 0.00097143114544451 27249 0.000971422821749 27250 0.00097141438163817 27251 0.00097140634898096 27252 0.00097139814170077 27253 0.00097139016725123 27254 0.00097138213459402 27255 0.00097137392731383 27256 0.00097136572003365 27257 0.00097135792020708 27258 0.00097134965471923 27259 0.00097134133102372 27260 0.00097133312374353 27261 0.00097132462542504 27262 0.00097131682559848 27263 0.00097130809444934 27264 0.00097130029462278 27265 0.00097129214555025 27266 0.0009712838800624 27267 0.00097127602202818 27268 0.00097126781474799 27269 0.00097125954926014 27270 0.00097125128377229 27271 0.00097124301828444 27272 0.00097123498562723 27273 0.00097122718580067 27274 0.00097121868748218 27275 0.00097121036378667 27276 0.00097120250575244 27277 0.00097119400743395 27278 0.00097118597477674 27279 0.0009711780003272 27280 0.00097116961842403 27281 0.00097116141114384 27282 0.00097115332027897 27283 0.00097114522941411 27284 0.0009711371967569 27285 0.00097112893126905 27286 0.00097112072398886 27287 0.00097111298236996 27288 0.00097110471688211 27289 0.00097109627677128 27290 0.00097108801128343 27291 0.00097107992041856 27292 0.00097107194596902 27293 0.00097106338944286 27294 0.00097105564782396 27295 0.00097104761516675 27296 0.00097103917505592 27297 0.00097103125881404 27298 0.00097102310974151 27299 0.00097101490246132 27300 0.00097100692801178 27301 0.00097099842969328 27302 0.00097099016420543 27303 0.00097098253900185 27304 0.00097097409889102 27305 0.00097096560057253 27306 0.00097095780074596 27307 0.00097094941884279 27308 0.00097094144439325 27309 0.0009709334699437 27310 0.00097092520445585 27311 0.00097091699717566 27312 0.00097090878989547 27313 0.00097090052440763 27314 0.00097089254995808 27315 0.00097088445909321 27316 0.00097087625181302 27317 0.0009708683937788 27318 0.00097086012829095 27319 0.00097085162997246 27320 0.00097084371373057 27321 0.00097083521541208 27322 0.00097082747379318 27323 0.0009708188008517 27324 0.00097081082640216 27325 0.00097080291016027 27326 0.00097079447004944 27327 0.00097078667022288 27328 0.00097077846294269 27329 0.0009707702556625 27330 0.00097076233942062 27331 0.00097075378289446 27332 0.00097074580844492 27333 0.00097073789220303 27334 0.00097072904463857 27335 0.00097072083735839 27336 0.00097071309573948 27337 0.00097070483025163 27338 0.00097069679759443 27339 0.00097068882314488 27340 0.00097068073228002 27341 0.00097067246679217 27342 0.00097066443413496 27343 0.0009706566343084 27344 0.00097064836882055 27345 0.00097063992870972 27346 0.00097063166322187 27347 0.00097062403801829 27348 0.00097061577253044 27349 0.00097060727421194 27350 0.00097059889230877 27351 0.00097059091785923 27352 0.00097058311803266 27353 0.00097057444509119 27354 0.00097056670347229 27355 0.00097055861260742 27356 0.00097054993966594 27357 0.00097054231446236 27358 0.00097053434001282 27359 0.00097052589990199 27360 0.00097051786724478 27361 0.00097050942713395 27362 0.00097050156909972 27363 0.0009704937110655 27364 0.00097048503812402 27365 0.00097047665622085 27366 0.00097046868177131 27367 0.00097046024166048 27368 0.00097045226721093 27369 0.00097044440917671 27370 0.00097043614368886 27371 0.00097042793640867 27372 0.00097041967092082 27373 0.00097041192930192 27374 0.00097040378022939 27375 0.0009703955729492 27376 0.00097038736566901 27377 0.00097037933301181 27378 0.00097037106752396 27379 0.00097036274382845 27380 0.00097035471117124 27381 0.00097034627106041 27382 0.00097033858764917 27383 0.00097032997291535 27384 0.00097032228950411 27385 0.00097031431505457 27386 0.00097030575852841 27387 0.00097029795870185 27388 0.00097028980962932 27389 0.00097028136951849 27390 0.00097027339506894 27391 0.00097026495495811 27392 0.00097025698050857 27393 0.000970249180682 27394 0.00097024056594819 27395 0.00097023218404502 27396 0.00097022438421845 27397 0.00097021594410762 27398 0.00097020796965808 27399 0.00097019982058555 27400 0.0009701915550977 27401 0.00097018334781751 27402 0.00097017514053732 27403 0.00097016745712608 27404 0.00097015930805355 27405 0.00097015110077336 27406 0.00097014312632382 27407 0.00097013515187427 27408 0.00097012694459409 27409 0.00097011844627559 27410 0.00097011029720306 27411 0.00097010191529989 27412 0.00097009411547333 27413 0.00097008544253185 27414 0.00097007740987465 27415 0.00097006955184042 27416 0.00097006116993725 27417 0.00097005331190303 27418 0.0009700448717922 27419 0.00097003707196563 27420 0.00097002909751609 27421 0.0009700208902359 27422 0.00097001250833273 27423 0.00097000424284488 27424 0.00096999603556469 27425 0.00096998747903854 27426 0.0009699797956273 27427 0.00096997147193179 27428 0.00096996361389756 27429 0.00096995540661737 27430 0.00096994737396017 27431 0.00096993951592594 27432 0.00096993101760745 27433 0.00096992310136557 27434 0.00096991448663175 27435 0.00096990668680519 27436 0.00096989859594032 27437 0.00096989050507545 27438 0.0009698822395876 27439 0.00096987385768443 27440 0.00096986547578126 27441 0.00096985755953938 27442 0.00096984975971282 27443 0.0009698414360173 27444 0.00096983346156776 27445 0.00096982519607991 27446 0.0009698168723844 27447 0.00096980866510421 27448 0.00096980080706999 27449 0.00096979236695915 27450 0.00096978468354791 27451 0.00096977676730603 27452 0.00096976838540286 27453 0.00096976035274565 27454 0.00096975162159652 27455 0.00096974376356229 27456 0.00096973532345146 27457 0.00096972746541724 27458 0.00096971908351406 27459 0.00096971110906452 27460 0.00096970295999199 27461 0.00096969481091946 27462 0.00096968718571588 27463 0.00096967868739739 27464 0.00096967065474018 27465 0.00096966238925233 27466 0.00096965458942577 27467 0.00096964626573026 27468 0.00096963829128072 27469 0.0009696296765469 27470 0.00096962129464373 27471 0.00096961308736354 27472 0.00096960534574464 27473 0.00096959725487977 27474 0.00096958916401491 27475 0.00096958118956536 27476 0.00096957286586985 27477 0.00096956500783563 27478 0.00096955674234778 27479 0.00096954882610589 27480 0.00096954050241038 27481 0.00096953264437616 27482 0.00096952414605767 27483 0.00096951622981578 27484 0.0009695083135739 27485 0.00096949934959412 27486 0.00096949172439054 27487 0.00096948322607204 27488 0.0009694752516225 27489 0.00096946686971933 27490 0.00096945912810043 27491 0.00096945074619725 27492 0.00096944288816303 27493 0.00096943462267518 27494 0.00096942641539499 27495 0.00096941861556843 27496 0.0009694101754576 27497 0.00096940220100805 27498 0.00096939411014318 27499 0.00096938613569364 27500 0.00096937722992152 27501 0.00096936931367964 27502 0.00096936116460711 27503 0.00096935289911926 27504 0.00096934533212334 27505 0.00096933741588145 27506 0.00096932903397828 27507 0.00096932129235938 27508 0.00096931320149451 27509 0.00096930511062965 27510 0.00096929725259542 27511 0.00096928956918418 27512 0.00096928147831932 27513 0.00096927367849275 27514 0.00096926535479724 27515 0.00096925674006343 27516 0.00096924940589815 27517 0.00096924102399498 27518 0.0009692331077531 27519 0.00096922507509589 27520 0.00096921698423102 27521 0.00096920947544277 27522 0.00096920120995492 27523 0.00096919341012836 27524 0.00096918549388647 27525 0.00096917746122926 27526 0.00096916989423335 27527 0.00096916197799146 27528 0.00096915388712659 27529 0.00096914573805407 27530 0.00096913718152791 27531 0.00096912938170135 27532 0.00096912158187479 27533 0.00096911319997162 27534 0.00096910540014505 27535 0.00096909748390317 27536 0.00096908956766129 27537 0.00096908170962706 27538 0.00096907385159284 27539 0.00096906541148201 27540 0.00096905755344778 27541 0.0009690496372059 27542 0.00096904154634103 27543 0.00096903380472213 27544 0.00096902571385726 27545 0.0009690176229924 27546 0.00096900970675051 27547 0.00096900167409331 27548 0.00096899340860546 27549 0.00096898560877889 27550 0.00096897745970637 27551 0.00096896942704916 27552 0.00096896151080728 27553 0.00096895359456539 27554 0.00096894550370052 27555 0.00096893752925098 27556 0.0009689299040474 27557 0.00096892181318253 27558 0.00096891343127936 27559 0.0009689056314528 27560 0.00096889759879559 27561 0.00096888898406178 27562 0.00096888153348118 27563 0.00096887309337035 27564 0.00096886517712846 27565 0.0009688573773019 27566 0.00096884928643703 27567 0.00096884160302579 27568 0.00096883368678391 27569 0.00096882542129606 27570 0.00096881756326184 27571 0.00096880970522761 27572 0.00096880184719339 27573 0.00096879375632852 27574 0.00096878572367132 27575 0.00096877745818347 27576 0.00096876954194158 27577 0.00096876139286906 27578 0.00096875330200419 27579 0.00096874556038529 27580 0.00096873741131276 27581 0.00096872943686321 27582 0.00096872192807496 27583 0.00096871389541775 27584 0.0009687056299299 27585 0.00096869777189568 27586 0.00096868968103081 27587 0.00096868182299659 27588 0.00096867373213172 27589 0.0009686658740975 27590 0.00096865824889392 27591 0.00096865009982139 27592 0.00096864171791822 27593 0.00096863345243037 27594 0.00096862588543445 27595 0.00096861796919256 27596 0.00096860970370471 27597 0.00096860190387815 27598 0.00096859398763627 27599 0.00096858554752544 27600 0.00096857780590653 27601 0.00096857023891062 27602 0.00096856168238446 27603 0.00096855382435024 27604 0.00096854602452368 27605 0.00096853793365881 27606 0.00096853007562459 27607 0.00096852169372141 27608 0.00096851360285655 27609 0.00096850568661466 27610 0.0009684975957498 27611 0.00096849002875388 27612 0.00096848170505837 27613 0.00096847396343946 27614 0.00096846569795161 27615 0.00096845807274804 27616 0.00096845021471381 27617 0.00096844206564128 27618 0.0009684341493994 27619 0.00096842634957284 27620 0.00096841785125434 27621 0.00096840993501246 27622 0.00096840236801654 27623 0.00096839375328273 27624 0.00096838572062552 27625 0.00096837803721428 27626 0.00096837000455707 27627 0.00096836208831519 27628 0.000968353881035 27629 0.00096834602300078 27630 0.00096833810675889 27631 0.00096833007410169 27632 0.00096832239069045 27633 0.00096831424161792 27634 0.00096830632537603 27635 0.00096829829271883 27636 0.00096829049289227 27637 0.00096828246023506 27638 0.00096827448578551 27639 0.00096826610388234 27640 0.00096825818764046 27641 0.00096825003856793 27642 0.0009682418894954 27643 0.00096823449712247 27644 0.0009682261152193 27645 0.00096821819897741 27646 0.00096821080660447 27647 0.00096820254111663 27648 0.00096819456666708 27649 0.00096818630117923 27650 0.00096817855956033 27651 0.00096817070152611 27652 0.00096816220320761 27653 0.00096815486904234 27654 0.00096814654534683 27655 0.00096813845448196 27656 0.00096813077107072 27657 0.00096812262199819 27658 0.00096811470575631 27659 0.00096810673130676 27660 0.00096809875685722 27661 0.00096809078240767 27662 0.00096808274975047 27663 0.00096807500813156 27664 0.000968067208305 27665 0.00096805882640183 27666 0.00096805091015995 27667 0.00096804328495637 27668 0.0009680351940915 27669 0.00096802721964195 27670 0.00096801883773878 27671 0.00096801068866625 27672 0.00096800277242437 27673 0.00096799456514418 27674 0.00096798699814826 27675 0.00096797908190638 27676 0.00096797099104151 27677 0.00096796324942261 27678 0.00096795515855774 27679 0.00096794730052352 27680 0.00096793926786631 27681 0.00096793123520911 27682 0.00096792337717488 27683 0.00096791528631002 27684 0.00096790766110644 27685 0.0009678992209956 27686 0.00096789101371542 27687 0.00096788292285055 27688 0.00096787547226995 27689 0.0009678672067821 27690 0.0009678591741249 27691 0.00096785154892132 27692 0.00096784328343347 27693 0.00096783530898392 27694 0.00096782739274204 27695 0.00096781941829249 27696 0.00096781156025827 27697 0.00096780352760106 27698 0.0009677957277745 27699 0.00096778792794794 27700 0.00096777954604477 27701 0.00096777128055692 27702 0.00096776324789971 27703 0.00096775550628081 27704 0.00096774729900062 27705 0.0009677397320047 27706 0.00096773193217814 27707 0.00096772372489795 27708 0.00096771563403308 27709 0.00096770829986781 27710 0.00096769968513399 27711 0.00096769182709977 27712 0.00096768431831151 27713 0.00096767593640834 27714 0.00096766790375113 27715 0.00096765998750925 27716 0.00096765183843672 27717 0.00096764403861016 27718 0.00096763594774529 27719 0.00096762820612639 27720 0.00096762028988451 27721 0.00096761190798134 27722 0.00096760375890881 27723 0.00096759584266692 27724 0.00096758804284036 27725 0.00096757995197549 27726 0.00096757232677191 27727 0.00096756429411471 27728 0.0009675562614575 27729 0.0009675482288003 27730 0.00096754054538906 27731 0.00096753274556249 27732 0.00096752448007464 27733 0.00096751638920978 27734 0.00096750800730661 27735 0.00096750014927238 27736 0.00096749217482284 27737 0.00096748431678861 27738 0.00096747640054673 27739 0.00096746860072017 27740 0.00096746062627062 27741 0.0009674527682364 27742 0.00096744473557919 27743 0.00096743658650666 27744 0.00096742890309542 27745 0.00096742046298459 27746 0.00096741248853505 27747 0.00096740492153913 27748 0.00096739659784362 27749 0.00096738850697875 27750 0.00096738093998283 27751 0.00096737296553329 27752 0.0009673647582531 27753 0.00096735678380355 27754 0.00096734939143062 27755 0.00096734089311212 27756 0.00096733309328556 27757 0.00096732535166666 27758 0.00096731720259413 27759 0.00096730946097523 27760 0.00096730154473335 27761 0.0009672938613221 27762 0.00096728623611853 27763 0.00096727814525366 27764 0.00096727052005008 27765 0.00096726283663884 27766 0.00096725457115099 27767 0.00096724677132443 27768 0.00096723926253617 27769 0.00096723157912493 27770 0.00096722377929837 27771 0.00096721632871777 27772 0.00096720864530653 27773 0.0009672007872723 27774 0.00096719292923808 27775 0.00096718542044982 27776 0.00096717750420794 27777 0.00096716958796605 27778 0.00096716231200844 27779 0.00096715427935123 27780 0.00096714636310935 27781 0.00096713856328279 27782 0.00096713093807921 27783 0.00096712331287563 27784 0.00096711562946439 27785 0.00096710794605315 27786 0.00096710014622658 27787 0.00096709211356938 27788 0.00096708454657346 27789 0.00096707686316222 27790 0.00096706865588203 27791 0.00096706079784781 27792 0.00096705334726721 27793 0.00096704554744065 27794 0.00096703786402941 27795 0.00096703041344881 27796 0.00096702232258394 27797 0.00096701446454972 27798 0.00096700643189251 27799 0.00096699909772724 27800 0.00096699089044705 27801 0.00096698320703581 27802 0.00096697616390884 27803 0.00096696801483631 27804 0.00096696044784039 27805 0.00096695258980617 27806 0.00096694519743323 27807 0.00096693710656837 27808 0.00096692913211882 27809 0.0009669215651229 27810 0.00096691370708868 27811 0.00096690584905446 27812 0.00096689804922789 27813 0.00096689019119367 27814 0.00096688250778243 27815 0.00096687464974821 27816 0.00096686731558293 27817 0.00096685963217169 27818 0.00096685165772215 27819 0.0009668439743109 27820 0.00096683599986136 27821 0.00096682825824246 27822 0.00096682040020823 27823 0.0009668132988736 27824 0.00096680520800874 27825 0.00096679758280516 27826 0.00096678937552497 27827 0.00096678198315203 27828 0.00096677418332547 27829 0.00096676649991423 27830 0.00096675893291831 27831 0.00096675101667643 27832 0.00096674321684986 27833 0.00096673506777734 27834 0.00096672773361206 27835 0.00096671981737018 27836 0.00096671225037426 27837 0.00096670450875536 27838 0.00096669694175944 27839 0.00096668890910223 27840 0.00096668128389865 27841 0.00096667319303378 27842 0.00096666539320722 27843 0.00096665747696534 27844 0.00096665043383837 27845 0.0009666423429735 27846 0.00096663454314694 27847 0.00096662703435868 27848 0.0009666194091551 27849 0.00096661149291322 27850 0.00096660398412496 27851 0.00096659641712904 27852 0.00096658815164119 27853 0.00096658006077632 27854 0.00096657290123403 27855 0.00096656527603045 27856 0.00096655718516558 27857 0.00096654967637733 27858 0.00096654170192778 27859 0.00096653396030888 27860 0.00096652621868998 27861 0.00096651882631704 27862 0.00096651096828282 27863 0.0009665031102486 27864 0.00096649571787566 27865 0.00096648745238781 27866 0.00096647982718423 27867 0.00096647196915001 27868 0.00096646451856941 27869 0.00096645671874285 27870 0.0009664487442933 27871 0.00096644141012803 27872 0.00096643343567848 27873 0.0009664255194366 27874 0.00096641766140237 27875 0.00096641003619879 27876 0.00096640241099522 27877 0.00096639466937631 27878 0.00096638675313443 27879 0.00096637906972319 27880 0.00096637121168897 27881 0.00096636335365474 27882 0.00096635596128181 27883 0.00096634839428589 27884 0.00096633977955207 27885 0.00096633215434849 27886 0.00096632452914491 27887 0.00096631672931835 27888 0.00096630875486881 27889 0.00096630153711885 27890 0.00096629344625399 27891 0.00096628541359678 27892 0.00096627825405449 27893 0.00096627039602026 27894 0.00096626271260902 27895 0.00096625508740544 27896 0.00096624722937122 27897 0.00096623902209103 27898 0.00096623122226447 27899 0.00096622412092984 27900 0.00096621608827263 27901 0.00096620823023841 27902 0.00096620060503483 27903 0.00096619292162359 27904 0.00096618488896638 27905 0.00096617720555514 27906 0.00096616940572858 27907 0.00096616183873266 27908 0.0009661540389061 27909 0.00096614641370252 27910 0.00096613838104531 27911 0.00096613063942641 27912 0.00096612272318453 27913 0.00096611562184989 27914 0.00096610776381567 27915 0.00096609990578145 27916 0.00096609239699319 27917 0.00096608407329768 27918 0.00096607650630176 27919 0.0009660687064752 27920 0.0009660612558946 27921 0.00096605363069102 27922 0.00096604559803382 27923 0.00096603791462258 27924 0.000966030289419 27925 0.00096602219855413 27926 0.00096601503901184 27927 0.00096600706456229 27928 0.00096599903190508 27929 0.00096599140670151 27930 0.00096598360687494 27931 0.00096597580704838 27932 0.00096596812363714 27933 0.00096596061484888 27934 0.000965952698607 27935 0.00096594484057277 27936 0.00096593663329259 27937 0.00096592959016562 27938 0.00096592149930075 27939 0.00096591364126652 27940 0.00096590624889359 27941 0.00096589839085937 27942 0.00096589094027877 27943 0.00096588261658326 27944 0.00096587528241798 27945 0.00096586748259142 27946 0.0009658596245572 27947 0.0009658521739766 27948 0.0009658444323577 27949 0.00096583674894646 27950 0.00096582871628925 27951 0.00096582085825503 27952 0.00096581323305145 27953 0.00096580537501723 27954 0.00096579804085195 27955 0.00096579041564837 27956 0.00096578220836818 27957 0.0009657745831646 27958 0.00096576742362231 27959 0.0009657593909651 27960 0.00096575170755386 27961 0.000965743616689 27962 0.00096573575865477 27963 0.00096572784241289 27964 0.00096572045003995 27965 0.00096571259200573 27966 0.00096570485038683 27967 0.0009656969923526 27968 0.00096568965818733 27969 0.00096568191656843 27970 0.0009656740585342 27971 0.00096566649153829 27972 0.0009656585752964 27973 0.00096565100830048 27974 0.00096564320847392 27975 0.00096563575789332 27976 0.00096562784165144 27977 0.00096561992540956 27978 0.00096561259124428 27979 0.00096560490783304 27980 0.00096559635130689 27981 0.00096558919176459 27982 0.00096558127552271 27983 0.00096557335928082 27984 0.00096556555945426 27985 0.00096555822528899 27986 0.00096555036725476 27987 0.00096554285846651 27988 0.00096553529147059 27989 0.00096552760805935 27990 0.0009655196336098 27991 0.00096551177557558 27992 0.00096550432499498 27993 0.00096549652516842 27994 0.00096548855071887 27995 0.00096548115834594 27996 0.00096547324210405 27997 0.00096546561690047 27998 0.00096545764245093 27999 0.00096545077394694 28000 0.00096544297412038 28001 0.00096543494146317 28002 0.00096542778192088 28003 0.00096542009850964 28004 0.00096541200764477 28005 0.00096540426602587 28006 0.00096539629157633 28007 0.00096538878278807 28008 0.00096538115758449 28009 0.00096537335775793 28010 0.00096536590717733 28011 0.00096535804914311 28012 0.00096535048214719 28013 0.00096534285694361 28014 0.00096533476607874 28015 0.00096532714087516 28016 0.00096531969029456 28017 0.00096531148301437 28018 0.00096530397422612 28019 0.00096529664006084 28020 0.00096528860740364 28021 0.00096528086578473 28022 0.00096527329878882 28023 0.0009652657317929 28024 0.000965257990174 28025 0.00096525013213977 28026 0.00096524285618216 28027 0.00096523482352495 28028 0.00096522679086775 28029 0.00096521980594844 28030 0.00096521194791421 28031 0.00096520397346467 28032 0.00096519640646875 28033 0.00096518901409581 28034 0.00096518109785393 28035 0.00096517353085801 28036 0.00096516613848507 28037 0.00096515816403553 28038 0.00096515053883195 28039 0.00096514262259007 28040 0.00096513511380181 28041 0.00096512743039057 28042 0.00096511974697933 28043 0.00096511200536042 28044 0.00096510438015684 28045 0.00096509675495327 28046 0.00096508848946542 28047 0.0009650809224695 28048 0.00096507341368124 28049 0.00096506538102403 28050 0.00096505787223577 28051 0.00096505007240921 28052 0.00096504227258265 28053 0.00096503493841738 28054 0.00096502684755251 28055 0.00096501922234893 28056 0.00096501171356067 28057 0.00096500408835709 28058 0.00096499640494585 28059 0.00096498860511929 28060 0.00096498092170805 28061 0.00096497376216576 28062 0.00096496590413153 28063 0.00096495798788965 28064 0.00096495059551671 28065 0.00096494291210547 28066 0.00096493499586359 28067 0.00096492748707533 28068 0.00096491957083344 28069 0.00096491194562986 28070 0.00096490443684161 28071 0.0009648964041844 28072 0.00096488883718848 28073 0.00096488109556958 28074 0.000964873470366 28075 0.00096486578695476 28076 0.00096485810354352 28077 0.00096485076937824 28078 0.00096484296955168 28079 0.00096483516972512 28080 0.00096482736989856 28081 0.00096481980290264 28082 0.00096481223590672 28083 0.00096480397041887 28084 0.00096479675266892 28085 0.000964789185673 28086 0.00096478097839281 28087 0.00096477341139689 28088 0.00096476613543928 28089 0.00096475798636675 28090 0.00096475018654019 28091 0.00096474308520555 28092 0.0009647355764173 28093 0.00096472789300606 28094 0.00096471997676417 28095 0.00096471235156059 28096 0.00096470455173403 28097 0.00096469657728449 28098 0.00096468941774219 28099 0.00096468155970797 28100 0.00096467364346609 28101 0.00096466642571613 28102 0.00096465874230489 28103 0.00096465088427067 28104 0.00096464302623644 28105 0.00096463551744819 28106 0.00096462771762162 28107 0.0009646198595874 28108 0.00096461246721447 28109 0.0009646043763496 28110 0.0009645966347307 28111 0.00096458930056542 28112 0.00096458155894652 28113 0.00096457381732762 28114 0.00096456607570872 28115 0.0009645585087128 28116 0.00096455065067858 28117 0.00096454261802137 28118 0.00096453534206375 28119 0.00096452771686018 28120 0.00096451980061829 28121 0.00096451200079173 28122 0.00096450478304178 28123 0.0009644971578382 28124 0.00096448964904994 28125 0.00096448202384636 28126 0.00096447434043512 28127 0.00096446671523154 28128 0.00096445874078199 28129 0.00096445088274777 28130 0.00096444331575185 28131 0.00096443516667932 28132 0.00096442800713703 28133 0.00096442020731047 28134 0.00096441223286092 28135 0.00096440513152629 28136 0.00096439727349207 28137 0.00096438947366551 28138 0.00096438179025427 28139 0.00096437410684302 28140 0.0009643662488088 28141 0.0009643585071899 28142 0.00096435123123229 28143 0.00096434354782104 28144 0.00096433551516384 28145 0.00096432847203687 28146 0.000964320381172 28147 0.0009643126395531 28148 0.00096430483972654 28149 0.00096429750556126 28150 0.00096428953111172 28151 0.00096428167307749 28152 0.00096427457174286 28153 0.00096426688833162 28154 0.00096425879746675 28155 0.00096425105584785 28156 0.00096424395451322 28157 0.00096423592185602 28158 0.00096422823844478 28159 0.00096422084607184 28160 0.00096421292982996 28161 0.00096420483896509 28162 0.00096419674810022 28163 0.00096418953035027 28164 0.00096418196335435 28165 0.00096417381428182 28166 0.00096416671294719 28167 0.00096415885491297 28168 0.0009641510550864 28169 0.00096414383733645 28170 0.00096413603750989 28171 0.00096412817947567 28172 0.00096412014681846 28173 0.00096411257982254 28174 0.00096410477999598 28175 0.00096409680554643 28176 0.00096408952958882 28177 0.00096408172976226 28178 0.00096407404635102 28179 0.00096406682860106 28180 0.0009640587377362 28181 0.00096405117074028 28182 0.00096404342912138 28183 0.00096403632778674 28184 0.00096402846975252 28185 0.0009640206117183 28186 0.00096401327755302 28187 0.0009640057105571 28188 0.00096399785252288 28189 0.00096398999448866 28190 0.0009639827767387 28191 0.0009639747440815 28192 0.00096396711887792 28193 0.00096395961008966 28194 0.00096395157743245 28195 0.00096394366119057 28196 0.00096393632702529 28197 0.00096392876002938 28198 0.00096392119303346 28199 0.00096391362603754 28200 0.00096390646649525 28201 0.00096389901591465 28202 0.00096389115788043 28203 0.00096388382371515 28204 0.00096387637313455 28205 0.00096386868972331 28206 0.00096386129735038 28207 0.00096385413780808 28208 0.00096384616335854 28209 0.0009638387709856 28210 0.00096383166965097 28211 0.00096382369520143 28212 0.00096381653565913 28213 0.00096380920149386 28214 0.0009638016927056 28215 0.0009637939510867 28216 0.00096378626767546 28217 0.00096377916634083 28218 0.00096377171576023 28219 0.00096376391593367 28220 0.00096375663997605 28221 0.00096374924760312 28222 0.0009637416806072 28223 0.00096373388078064 28224 0.00096372701227665 28225 0.00096371909603477 28226 0.00096371176186949 28227 0.00096370454411954 28228 0.00096369656966999 28229 0.00096368923550472 28230 0.0009636819595471 28231 0.00096367427613586 28232 0.00096366705838591 28233 0.00096365925855935 28234 0.00096365192439407 28235 0.00096364470664412 28236 0.00096363667398691 28237 0.0009636296890676 28238 0.00096362200565636 28239 0.00096361472969875 28240 0.00096360722091049 28241 0.00096359977032989 28242 0.00096359220333397 28243 0.00096358498558402 28244 0.00096357782604173 28245 0.00096357031725347 28246 0.00096356251742691 28247 0.0009635555325076 28248 0.00096354790730402 28249 0.0009635403403081 28250 0.00096353265689686 28251 0.00096352549735457 28252 0.00096351793035865 28253 0.00096351047977805 28254 0.00096350302919745 28255 0.00096349569503218 28256 0.00096348795341328 28257 0.00096348044462502 28258 0.00096347299404442 28259 0.00096346531063318 28260 0.00096345762722194 28261 0.00096345064230263 28262 0.00096344284247607 28263 0.00096343539189547 28264 0.00096342829056084 28265 0.00096342043252662 28266 0.00096341292373836 28267 0.00096340547315776 28268 0.00096339813899249 28269 0.00096339080482721 28270 0.00096338300500065 28271 0.00096337636932731 28272 0.00096336880233139 28273 0.00096336082788184 28274 0.00096335390117019 28275 0.00096334633417428 28276 0.00096333859255537 28277 0.0009633312583901 28278 0.00096332374960184 28279 0.00096331618260592 28280 0.00096330849919468 28281 0.00096330128144473 28282 0.00096329371444881 28283 0.00096328614745289 28284 0.00096327881328762 28285 0.00096327165374532 28286 0.00096326391212642 28287 0.00096325646154583 28288 0.00096324883634225 28289 0.00096324150217697 28290 0.00096323399338871 28291 0.00096322665922344 28292 0.00096321932505816 28293 0.00096321187447757 28294 0.00096320395823568 28295 0.00096319685690105 28296 0.00096318894065917 28297 0.00096318154828623 28298 0.00096317450515926 28299 0.00096316676354036 28300 0.0009631592547521 28301 0.00096315232804045 28302 0.00096314470283687 28303 0.00096313701942563 28304 0.00096312945242971 28305 0.00096312235109508 28306 0.00096311478409916 28307 0.0009631072753109 28308 0.00096309999935329 28309 0.00096309243235737 28310 0.00096308486536145 28311 0.00096307724015787 28312 0.00096307008061558 28313 0.00096306233899668 28314 0.0009630550048314 28315 0.00096304790349677 28316 0.00096304033650085 28317 0.0009630328277126 28318 0.00096302572637796 28319 0.00096301775192842 28320 0.00096301024314016 28321 0.00096300267614424 28322 0.00096299569122493 28323 0.00096298760036007 28324 0.00096298038261011 28325 0.00096297304844484 28326 0.00096296553965658 28327 0.00096295797266066 28328 0.00096295098774135 28329 0.00096294365357608 28330 0.00096293597016484 28331 0.00096292834496126 28332 0.00096292141824961 28333 0.00096291356021538 28334 0.00096290616784245 28335 0.00096289906650782 28336 0.00096289115026593 28337 0.00096288369968534 28338 0.00096287636552006 28339 0.00096286891493946 28340 0.00096286152256653 28341 0.00096285401377827 28342 0.00096284644678235 28343 0.00096283911261708 28344 0.00096283119637519 28345 0.0009628240368329 28346 0.00096281623700634 28347 0.0009628085535951 28348 0.00096280116122216 28349 0.00096279394347221 28350 0.00096278608543798 28351 0.00096277869306505 28352 0.00096277153352275 28353 0.00096276390831918 28354 0.00096275639953092 28355 0.00096274929819629 28356 0.00096274173120037 28357 0.00096273410599679 28358 0.00096272677183151 28359 0.00096271943766624 28360 0.00096271187067032 28361 0.00096270418725908 28362 0.00096269708592445 28363 0.00096268963534385 28364 0.00096268189372495 28365 0.00096267426852137 28366 0.00096266681794077 28367 0.00096265890169889 28368 0.00096265145111829 28369 0.0009626445826143 28370 0.00096263631712645 28371 0.00096262898296118 28372 0.00096262176521122 28373 0.00096261384896934 28374 0.00096260639838874 28375 0.00096259918063879 28376 0.00096259161364287 28377 0.00096258404664695 28378 0.00096257671248168 28379 0.0009625693783164 28380 0.00096256169490516 28381 0.00096255424432456 28382 0.00096254696836695 28383 0.00096253928495571 28384 0.0009625320089981 28385 0.00096252473304048 28386 0.00096251745708287 28387 0.00096250965725631 28388 0.00096250220667571 28389 0.00096249469788745 28390 0.00096248718909919 28391 0.00096247956389561 28392 0.00096247252076864 28393 0.00096246495377272 28394 0.00096245727036148 28395 0.00096244976157323 28396 0.00096244248561561 28397 0.00096243480220437 28398 0.00096242729341611 28399 0.00096241995925084 28400 0.00096241250867024 28401 0.000962404825259 28402 0.00096239766571671 28403 0.00096239021513611 28404 0.00096238229889423 28405 0.00096237473189831 28406 0.000962367746979 28407 0.00096235983073711 28408 0.00096235243836418 28409 0.00096234516240656 28410 0.00096233747899532 28411 0.0009623299119994 28412 0.00096232222858816 28413 0.00096231477800757 28414 0.00096230790950358 28415 0.00096229999326169 28416 0.00096229295013472 28417 0.00096228532493114 28418 0.00096227769972757 28419 0.00096227065660059 28420 0.00096226285677403 28421 0.00096225511515513 28422 0.00096224772278219 28423 0.0009622405632399 28424 0.00096223293803632 28425 0.00096222513820976 28426 0.00096221826970577 28427 0.00096221058629453 28428 0.00096220272826031 28429 0.00096219580154866 28430 0.00096218782709911 28431 0.00096218043472618 28432 0.0009621728095226 28433 0.00096216553356498 28434 0.00096215796656907 28435 0.00096215063240379 28436 0.00096214306540787 28437 0.00096213555661961 28438 0.00096212781500071 28439 0.0009621208300814 28440 0.00096211337950081 28441 0.00096210598712787 28442 0.00096209859475493 28443 0.00096209131879732 28444 0.00096208340255544 28445 0.0009620760101825 28446 0.00096206890884787 28447 0.00096206134185195 28448 0.00096205383306369 28449 0.0009620466735214 28450 0.00096203904831782 28451 0.00096203136490658 28452 0.00096202339045703 28453 0.00096201652195305 28454 0.00096200883854181 28455 0.00096200098050758 28456 0.00096199376275763 28457 0.00096198631217703 28458 0.00096197857055813 28459 0.00096197106176987 28460 0.00096196378581226 28461 0.00096195621881634 28462 0.00096194847719744 28463 0.00096194149227813 28464 0.00096193380886689 28465 0.00096192618366331 28466 0.000961919198744 28467 0.00096191116608679 28468 0.00096190365729854 28469 0.00096189690520987 28470 0.00096188922179863 28471 0.00096188182942569 28472 0.00096187414601445 28473 0.00096186704467982 28474 0.00096185953589156 28475 0.0009618514450267 28476 0.00096184451831505 28477 0.00096183677669615 28478 0.00096182891866192 28479 0.00096182152628899 28480 0.00096181436674669 28481 0.00096180662512779 28482 0.00096179929096252 28483 0.00096179178217426 28484 0.00096178433159366 28485 0.00096177699742839 28486 0.00096176972147077 28487 0.00096176203805953 28488 0.00096175452927127 28489 0.00096174702048302 28490 0.00096173956990242 28491 0.0009617320029065 28492 0.00096172431949526 28493 0.00096171710174531 28494 0.00096170976758003 28495 0.00096170249162242 28496 0.00096169544849545 28497 0.00096168840536848 28498 0.00096168112941086 28499 0.00096167367883027 28500 0.00096166715957224 28501 0.00096165970899165 28502 0.00096165260765702 28503 0.00096164585556835 28504 0.0009616386378184 28505 0.00096163153648376 28506 0.00096162437694147 28507 0.00096161739202216 28508 0.00096161052351817 28509 0.00096160307293758 28510 0.00096159643726423 28511 0.00096158962696791 28512 0.00096158211817965 28513 0.00096157536609098 28514 0.00096156803192571 28515 0.00096156075596809 28516 0.00096155435312539 28517 0.00096154713537544 28518 0.00096153997583315 28519 0.00096153293270618 28520 0.00096152600599453 28521 0.00096151849720627 28522 0.00096151127945632 28523 0.00096150446915999 28524 0.00096149742603302 28525 0.00096149009186774 28526 0.00096148368902504 28527 0.00096147623844445 28528 0.00096146936994046 28529 0.00096146191935986 28530 0.00096145464340225 28531 0.00096144794952124 28532 0.00096144084818661 28533 0.00096143397968262 28534 0.00096142687834799 28535 0.00096141977701336 28536 0.0009614130249247 28537 0.00096140569075942 28538 0.00096139789093286 28539 0.0009613906731829 28540 0.0009613842703402 28541 0.00096137716900557 28542 0.00096136995125562 28543 0.00096136331558228 28544 0.00096135621424764 28545 0.00096134893829003 28546 0.00096134172054008 28547 0.00096133485203609 28548 0.00096132775070146 28549 0.0009613205329515 28550 0.0009613141301088 28551 0.00096130667952821 28552 0.00096129986923188 28553 0.00096129288431257 28554 0.00096128543373197 28555 0.00096127850702032 28556 0.00096127152210101 28557 0.00096126418793574 28558 0.00096125714480877 28559 0.0009612501016818 28560 0.00096124340780079 28561 0.00096123613184318 28562 0.0009612287976779 28563 0.00096122204558924 28564 0.00096121482783929 28565 0.00096120784291998 28566 0.00096120074158534 28567 0.00096119398949668 28568 0.00096118706278503 28569 0.00096117967041209 28570 0.00096117268549278 28571 0.00096116540953517 28572 0.00096115830820054 28573 0.00096115184715018 28574 0.0009611445129849 28575 0.00096113712061197 28576 0.0009611306595616 28577 0.00096112344181165 28578 0.00096111581660807 28579 0.00096110900631174 28580 0.00096110231243074 28581 0.00096109521109611 28582 0.0009610882261768 28583 0.00096108112484217 28584 0.00096107425633818 28585 0.00096106703858823 28586 0.00096105947159231 28587 0.00096105295233428 28588 0.00096104579279199 28589 0.0009610386332497 28590 0.00096103188116103 28591 0.00096102501265705 28592 0.00096101767849177 28593 0.00096101040253416 28594 0.00096100330119953 28595 0.00096099614165723 28596 0.00096098938956857 28597 0.00096098246285692 28598 0.00096097507048398 28599 0.00096096802735701 28600 0.00096096156630665 28601 0.00096095411572605 28602 0.00096094672335312 28603 0.00096094008767977 28604 0.0009609327535145 28605 0.00096092600142583 28606 0.00096091913292184 28607 0.00096091208979487 28608 0.0009609050466679 28609 0.00096089788712561 28610 0.00096089072758332 28611 0.00096088310237974 28612 0.00096087611746043 28613 0.00096086936537176 28614 0.00096086232224479 28615 0.00096085527911782 28616 0.00096084835240617 28617 0.00096084119286388 28618 0.00096083397511393 28619 0.00096082664094865 28620 0.00096082006348297 28621 0.00096081313677132 28622 0.00096080568619072 28623 0.00096079928334802 28624 0.00096079206559807 28625 0.00096078496426344 28626 0.00096077797934413 28627 0.00096077076159418 28628 0.00096076366025954 28629 0.00096075661713257 28630 0.00096074963221326 28631 0.00096074235625565 28632 0.00096073537133634 28633 0.00096072850283235 28634 0.0009607212850824 28635 0.00096071395091712 28636 0.00096070737345144 28637 0.00096070027211681 28638 0.00096069311257452 28639 0.00096068612765521 28640 0.0009606791427359 28641 0.00096067198319361 28642 0.00096066488185897 28643 0.000960657838732 28644 0.00096065097022802 28645 0.00096064421813935 28646 0.00096063723322004 28647 0.00096062978263944 28648 0.00096062262309715 28649 0.00096061534713954 28650 0.00096060859505087 28651 0.00096060114447027 28652 0.0009605941013433 28653 0.0009605874074623 28654 0.00096058059716597 28655 0.00096057314658538 28656 0.00096056668553501 28657 0.00096055946778506 28658 0.00096055230824277 28659 0.00096054485766217 28660 0.00096053828019649 28661 0.00096053100423887 28662 0.0009605239611119 28663 0.00096051732543856 28664 0.00096051010768861 28665 0.00096050294814631 28666 0.00096049578860402 28667 0.00096048857085407 28668 0.00096048146951944 28669 0.00096047425176948 28670 0.00096046755788848 28671 0.00096046063117683 28672 0.00096045341342688 28673 0.00096044642850757 28674 0.00096043932717294 28675 0.00096043210942298 28676 0.00096042535733432 28677 0.00096041831420735 28678 0.00096041109645739 28679 0.00096040416974574 28680 0.0009603975340724 28681 0.00096039014169946 28682 0.00096038292394951 28683 0.00096037599723786 28684 0.00096036872128025 28685 0.00096036144532263 28686 0.00096035492606461 28687 0.00096034759189934 28688 0.00096034060698003 28689 0.00096033391309902 28690 0.00096032646251842 28691 0.00096031953580678 28692 0.00096031231805682 28693 0.00096030544955283 28694 0.00096029846463352 28695 0.00096029130509123 28696 0.00096028466941789 28697 0.00096027739346027 28698 0.000960270059295 28699 0.00096026330720633 28700 0.00096025597304106 28701 0.00096024892991409 28702 0.00096024182857946 28703 0.00096023507649079 28704 0.00096022780053318 28705 0.00096022058278322 28706 0.00096021348144859 28707 0.00096020667115226 28708 0.00096019916236401 28709 0.000960192468483 28710 0.00096018548356369 28711 0.00096017855685204 28712 0.00096017133910209 28713 0.00096016388852149 28714 0.00096015713643283 28715 0.00096015015151352 28716 0.00096014281734824 28717 0.0009601361816749 28718 0.00096012884750962 28719 0.00096012209542096 28720 0.00096011476125568 28721 0.00096010760171339 28722 0.0009601007332094 28723 0.00096009380649775 28724 0.00096008635591716 28725 0.00096007948741317 28726 0.00096007238607854 28727 0.00096006551757455 28728 0.0009600582998246 28729 0.000960050849244 28730 0.00096004432998598 28731 0.00096003728685901 28732 0.00096003006910905 28733 0.00096002302598208 28734 0.00096001604106277 28735 0.00096000893972814 28736 0.00096000183839351 28737 0.00095999438781291 28738 0.00095998751930892 28739 0.0009599807090126 28740 0.00095997378230095 28741 0.00095996644813567 28742 0.00095995934680104 28743 0.00095995259471238 28744 0.00095994572620839 28745 0.00095993769355118 28746 0.00095993105787784 28747 0.00095992395654321 28748 0.00095991702983156 28749 0.00095990963745862 28750 0.00095990288536996 28751 0.00095989601686597 28752 0.000959888973739 28753 0.00095988146495074 28754 0.00095987459644675 28755 0.00095986726228148 28756 0.00095986051019281 28757 0.00095985364168882 28758 0.0009598460746929 28759 0.00095983897335827 28760 0.00095983233768493 28761 0.0009598252363503 28762 0.00095981790218502 28763 0.00095981103368104 28764 0.00095980387413874 28765 0.00095979694742709 28766 0.00095978972967714 28767 0.00095978268655017 28768 0.0009597756434232 28769 0.00095976860029623 28770 0.0009597614989616 28771 0.00095975439762697 28772 0.00095974712166935 28773 0.00095974054420367 28774 0.00095973344286904 28775 0.00095972599228844 28776 0.00095971912378445 28777 0.0009597121970728 28778 0.00095970515394583 28779 0.00095969793619588 28780 0.00095969095127657 28781 0.00095968384994194 28782 0.00095967674860731 28783 0.000959669763688 28784 0.00095966254593804 28785 0.00095965550281107 28786 0.00095964857609943 28787 0.00095964118372649 28788 0.00095963454805315 28789 0.00095962767954916 28790 0.00095962069462985 28791 0.00095961330225691 28792 0.00095960590988398 28793 0.00095959915779531 28794 0.00095959205646068 28795 0.0009595847222954 28796 0.00095957797020674 28797 0.00095957098528743 28798 0.00095956400036812 28799 0.00095955707365647 28800 0.00095954979769886 28801 0.00095954292919487 28802 0.00095953542040661 28803 0.00095952866831794 28804 0.00095952133415267 28805 0.00095951399998739 28806 0.00095950765535235 28807 0.00095950049581006 28808 0.00095949316164479 28809 0.00095948635134846 28810 0.00095947925001383 28811 0.00095947238150984 28812 0.00095946493092924 28813 0.00095945782959461 28814 0.00095945096109062 28815 0.00095944362692535 28816 0.00095943704945967 28817 0.00095942988991737 28818 0.00095942232292145 28819 0.00095941592007875 28820 0.0009594087023288 28821 0.00095940142637119 28822 0.0009593945578672 28823 0.00095938734011725 28824 0.00095938047161326 28825 0.00095937290461734 28826 0.00095936615252867 28827 0.00095935928402469 28828 0.00095935183344409 28829 0.0009593449649401 28830 0.00095933815464377 28831 0.00095933070406318 28832 0.00095932401018217 28833 0.00095931644318625 28834 0.00095930940005928 28835 0.00095930241513997 28836 0.00095929566305131 28837 0.00095928838709369 28838 0.00095928134396672 28839 0.00095927465008572 28840 0.00095926760695875 28841 0.00095926027279347 28842 0.00095925305504352 28843 0.00095924624474719 28844 0.00095923879416659 28845 0.00095923227490857 28846 0.00095922511536628 28847 0.00095921795582399 28848 0.0009592107962817 28849 0.00095920416060835 28850 0.00095919671002775 28851 0.00095918955048546 28852 0.00095918262377381 28853 0.00095917587168515 28854 0.00095916842110455 28855 0.00095916166901588 28856 0.0009591548005119 28857 0.0009591473499313 28858 0.00095914071425796 28859 0.000959133496508 28860 0.00095912622055039 28861 0.00095911859534681 28862 0.00095911201788113 28863 0.00095910468371585 28864 0.00095909764058888 28865 0.0009590910631232 28866 0.00095908419461921 28867 0.00095907651120797 28868 0.00095906964270398 28869 0.00095906283240765 28870 0.00095905549824238 28871 0.00095904793124646 28872 0.00095904152840376 28873 0.00095903431065381 28874 0.0009590273257345 28875 0.00095901999156922 28876 0.00095901312306523 28877 0.00095900584710762 28878 0.00095899926964194 28879 0.00095899193547666 28880 0.00095898506697267 28881 0.00095897744176909 28882 0.00095897098071873 28883 0.00095896364655346 28884 0.00095895619597286 28885 0.00095894979313016 28886 0.00095894263358787 28887 0.00095893547404557 28888 0.00095892848912627 28889 0.00095892138779163 28890 0.00095891405362636 28891 0.00095890730153769 28892 0.00095890008378774 28893 0.00095889292424545 28894 0.00095888541545719 28895 0.00095887912902981 28896 0.00095887156203389 28897 0.00095886428607628 28898 0.0009588579996489 28899 0.00095885060727596 28900 0.00095884327311069 28901 0.00095883622998372 28902 0.00095882924506441 28903 0.0009588222601451 28904 0.00095881556626409 28905 0.00095880834851414 28906 0.00095880130538717 28907 0.00095879397122189 28908 0.00095878733554855 28909 0.00095877971034497 28910 0.00095877260901034 28911 0.00095876603154466 28912 0.00095875898841769 28913 0.00095875142142177 28914 0.00095874461112544 28915 0.00095873774262145 28916 0.00095873046666384 28917 0.00095872289966792 28918 0.00095871649682522 28919 0.00095870939549059 28920 0.00095870194490999 28921 0.00095869554206729 28922 0.00095868809148669 28923 0.00095868087373674 28924 0.0009586742380634 28925 0.00095866713672876 28926 0.00095865986077115 28927 0.00095865270122886 28928 0.00095864594914019 28929 0.0009586387895979 28930 0.00095863122260198 28931 0.00095862476155162 28932 0.00095861760200933 28933 0.00095861026784405 28934 0.00095860339934006 28935 0.00095859629800543 28936 0.00095858942950144 28937 0.00095858349232003 28938 0.00095857633277774 28939 0.00095856934785843 28940 0.00095856265397742 28941 0.00095855654217303 28942 0.00095854984829202 28943 0.00095854286337271 28944 0.00095853628590703 28945 0.0009585302323103 28946 0.00095852313097566 28947 0.0009585166699253 28948 0.00095850980142131 28949 0.00095850293291733 28950 0.00095849693752825 28951 0.00095848983619362 28952 0.0009584833169356 28953 0.00095847644843161 28954 0.00095847027841955 28955 0.00095846329350024 28956 0.00095845642499626 28957 0.00095845037139952 28958 0.00095844338648021 28959 0.00095843651797622 28960 0.00095843011513352 28961 0.00095842347946018 28962 0.00095841666916385 28963 0.0009584104991518 28964 0.0009584033396095 28965 0.00095839699497446 28966 0.00095839018467814 28967 0.00095838401466608 28968 0.00095837691333145 28969 0.0009583696955815 28970 0.00095836370019242 28971 0.00095835729734972 28972 0.00095834996318445 28973 0.00095834361854941 28974 0.00095833709929138 28975 0.0009583302307874 28976 0.00095832347869873 28977 0.00095831690123305 28978 0.00095831032376736 28979 0.00095830362988636 28980 0.0009582974598743 28981 0.00095829041674733 28982 0.0009582833154127 28983 0.00095827732002363 28984 0.00095827091718093 28985 0.00095826346660033 28986 0.00095825752941892 28987 0.00095825083553791 28988 0.00095824373420328 28989 0.00095823692390695 28990 0.00095823057927191 28991 0.00095822411822155 28992 0.00095821724971756 28993 0.0009582104976289 28994 0.00095820415299386 28995 0.00095819728448987 28996 0.00095819123089314 28997 0.0009581841295585 28998 0.00095817702822387 28999 0.00095817050896585 29000 0.00095816457178444 29001 0.00095815764507279 29002 0.0009581504855305 29003 0.00095814425731078 29004 0.0009581379708834 29005 0.00095813127700239 29006 0.00095812429208308 29007 0.00095811783103272 29008 0.00095811090432107 29009 0.00095810485072434 29010 0.00095809798222035 29011 0.00095809070626274 29012 0.0009580843616277 29013 0.00095807842444628 29014 0.00095807132311165 29015 0.00095806445460767 29016 0.00095805816818029 29017 0.00095805153250694 29018 0.00095804478041828 29019 0.00095803814474493 29020 0.00095803168369457 29021 0.00095802481519058 29022 0.00095801858697087 29023 0.00095801160205156 29024 0.00095800450071692 29025 0.00095799803966656 29026 0.00095799181144685 29027 0.00095798471011221 29028 0.00095797789981589 29029 0.00095797161338851 29030 0.00095796526875347 29031 0.00095795775996521 29032 0.00095795164816082 29033 0.00095794524531811 29034 0.00095793860964477 29035 0.00095793209038675 29036 0.00095792522188276 29037 0.00095791835337877 29038 0.00095791160129011 29039 0.00095790560590103 29040 0.00095789856277406 29041 0.00095789163606241 29042 0.00095788534963503 29043 0.00095787906320766 29044 0.00095787190366536 29045 0.00095786550082266 29046 0.00095785892335698 29047 0.00095785217126831 29048 0.00095784547738731 29049 0.00095783884171396 29050 0.0009578320896253 29051 0.00095782533753663 29052 0.00095781940035522 29053 0.00095781229902059 29054 0.00095780560513958 29055 0.00095779914408922 29056 0.00095779279945418 29057 0.00095778569811955 29058 0.00095777912065387 29059 0.00095777265960351 29060 0.00095776584930718 29061 0.00095775915542617 29062 0.00095775269437581 29063 0.00095774600049481 29064 0.00095773948123679 29065 0.00095773267094046 29066 0.00095772615168244 29067 0.00095771922497079 29068 0.00095771305495873 29069 0.00095770612824708 29070 0.00095769925974309 29071 0.00095769303152338 29072 0.00095768645405769 29073 0.00095767981838435 29074 0.00095767277525738 29075 0.00095766631420702 29076 0.00095765967853367 29077 0.00095765281002969 29078 0.00095764629077166 29079 0.00095763936406001 29080 0.00095763278659433 29081 0.00095762661658227 29082 0.00095761968987063 29083 0.00095761305419728 29084 0.00095760659314692 29085 0.00095760019030422 29086 0.00095759320538491 29087 0.00095758656971157 29088 0.00095758034149185 29089 0.00095757324015722 29090 0.00095756672089919 29091 0.00095756025984883 29092 0.00095755362417549 29093 0.00095754693029448 29094 0.00095754052745178 29095 0.00095753377536312 29096 0.00095752696506679 29097 0.00095752056222409 29098 0.00095751410117373 29099 0.00095750717446208 29100 0.00095750065520406 29101 0.0009574941941537 29102 0.00095748755848035 29103 0.0009574803407304 29104 0.00095747411251068 29105 0.00095746736042202 29106 0.00095746060833335 29107 0.00095745362341404 29108 0.00095744710415602 29109 0.00095744029385969 29110 0.00095743400743231 29111 0.00095742742996663 29112 0.00095742044504732 29113 0.00095741380937397 29114 0.00095740717370063 29115 0.00095740059623495 29116 0.00095739326206967 29117 0.00095738720847294 29118 0.00095738045638427 29119 0.00095737347146496 29120 0.0009573667193763 29121 0.00095736014191061 29122 0.00095735350623727 29123 0.00095734692877159 29124 0.00095733994385228 29125 0.00095733342459425 29126 0.00095732690533623 29127 0.00095732032787055 29128 0.00095731334295124 29129 0.00095730612520128 29130 0.00095730007160455 29131 0.00095729337772354 29132 0.00095728662563488 29133 0.00095727958250791 29134 0.00095727306324989 29135 0.00095726636936888 29136 0.00095725990831852 29137 0.00095725298160687 29138 0.00095724634593353 29139 0.00095723971026018 29140 0.00095723330741748 29141 0.00095722597325221 29142 0.00095721939578652 29143 0.00095721305115148 29144 0.00095720629906282 29145 0.00095719960518181 29146 0.00095719285309315 29147 0.0009571862174198 29148 0.00095717923250049 29149 0.00095717288786545 29150 0.00095716596115381 29151 0.00095715967472643 29152 0.00095715268980712 29153 0.00095714628696442 29154 0.00095713912742212 29155 0.0009571326081641 29156 0.00095712626352906 29157 0.00095711956964806 29158 0.0009571123518981 29159 0.00095710589084774 29160 0.00095709931338206 29161 0.0009570928523317 29162 0.00095708610024303 29163 0.00095707911532372 29164 0.00095707265427336 29165 0.00095706630963832 29166 0.00095705944113433 29167 0.0009570523397997 29168 0.00095704535488039 29169 0.00095703930128366 29170 0.00095703254919499 29171 0.00095702562248334 29172 0.00095701898681 29173 0.00095701240934432 29174 0.00095700589008629 29175 0.00095699890516698 29176 0.00095699250232428 29177 0.00095698545919731 29178 0.00095697899814695 29179 0.00095697247888893 29180 0.00095696526113898 29181 0.00095695850905031 29182 0.00095695222262293 29183 0.00095694558694959 29184 0.00095693860203028 29185 0.00095693214097992 29186 0.00095692550530657 29187 0.00095691840397194 29188 0.00095691159367561 29189 0.00095690489979461 29190 0.00095689867157489 29191 0.00095689215231687 29192 0.00095688493456692 29193 0.00095687818247825 29194 0.00095687143038958 29195 0.00095686537679285 29196 0.00095685839187354 29197 0.00095685129053891 29198 0.00095684471307322 29199 0.0009568381938152 29200 0.0009568317909725 29201 0.00095682480605319 29202 0.00095681805396453 29203 0.0009568115347065 29204 0.00095680501544848 29205 0.00095679820515215 29206 0.00095679133664817 29207 0.0009567842935212 29208 0.0009567781817168 29209 0.00095677142962813 29210 0.00095676461933181 29211 0.00095675804186612 29212 0.00095675134798512 29213 0.0009567448287271 29214 0.00095673830946907 29215 0.00095673138275743 29216 0.00095672439783812 29217 0.00095671782037243 29218 0.00095671135932207 29219 0.00095670484006405 29220 0.00095669738948345 29221 0.00095669116126373 29222 0.00095668435096741 29223 0.0009566776570864 29224 0.00095667119603604 29225 0.00095666438573971 29226 0.0009566574008204 29227 0.00095665105618536 29228 0.00095664453692734 29229 0.00095663784304634 29230 0.00095663097454235 29231 0.00095662439707667 29232 0.00095661776140332 29233 0.00095661135856062 29234 0.00095660489751026 29235 0.00095659773796797 29236 0.00095659052021801 29237 0.00095658435020596 29238 0.00095657765632495 29239 0.00095657078782097 29240 0.00095656450139359 29241 0.00095655734185129 29242 0.00095655082259327 29243 0.00095654436154291 29244 0.00095653778407723 29245 0.00095653079915792 29246 0.00095652387244627 29247 0.00095651741139591 29248 0.00095651065930724 29249 0.00095650384901091 29250 0.00095649773720652 29251 0.00095649086870253 29252 0.00095648411661386 29253 0.00095647730631754 29254 0.0009564709616825 29255 0.00095646391855553 29256 0.00095645728288218 29257 0.00095645088003948 29258 0.00095644412795082 29259 0.00095643725944683 29260 0.00095643085660413 29261 0.00095642352243885 29262 0.0009564176434651 29263 0.00095641100779176 29264 0.00095640361541882 29265 0.00095639674691483 29266 0.00095639022765681 29267 0.00095638376660645 29268 0.00095637701451778 29269 0.00095637061167508 29270 0.00095636368496343 29271 0.00095635670004413 29272 0.00095635041361675 29273 0.00095634371973574 29274 0.00095633673481643 29275 0.00095633050659671 29276 0.00095632398733869 29277 0.00095631688600406 29278 0.00095631001750007 29279 0.00095630361465737 29280 0.00095629662973806 29281 0.00095629011048004 29282 0.00095628364942968 29283 0.00095627689734101 29284 0.00095627037808299 29285 0.00095626385882497 29286 0.00095625652465969 29287 0.00095625000540167 29288 0.00095624377718195 29289 0.00095623696688563 29290 0.00095623009838164 29291 0.00095622357912362 29292 0.00095621659420431 29293 0.00095620984211564 29294 0.00095620332285762 29295 0.00095619645435363 29296 0.00095619010971859 29297 0.00095618341583759 29298 0.00095617689657956 29299 0.00095617055194452 29300 0.00095616304315627 29301 0.00095615687314421 29302 0.00095615000464022 29303 0.00095614313613623 29304 0.00095613719895482 29305 0.00095612998120487 29306 0.0009561232291162 29307 0.00095611636061221 29308 0.00095610989956185 29309 0.00095610338030383 29310 0.00095609645359218 29311 0.00095608993433416 29312 0.00095608341507614 29313 0.00095607666298747 29314 0.00095607002731413 29315 0.00095606304239482 29316 0.00095605646492913 29317 0.00095605023670942 29318 0.00095604348462075 29319 0.00095603673253208 29320 0.0009560298640281 29321 0.00095602305373177 29322 0.00095601647626609 29323 0.00095600984059274 29324 0.00095600361237302 29325 0.00095599639462307 29326 0.0009559896425344 29327 0.00095598341431469 29328 0.00095597689505666 29329 0.00095596973551437 29330 0.00095596304163337 29331 0.00095595623133704 29332 0.00095595000311732 29333 0.00095594330923632 29334 0.00095593644073233 29335 0.00095592974685133 29336 0.00095592299476266 29337 0.00095591624267399 29338 0.00095590989803895 29339 0.00095590314595029 29340 0.00095589639386162 29341 0.00095588993281126 29342 0.00095588271506131 29343 0.00095587642863393 29344 0.00095586967654526 29345 0.0009558629244566 29346 0.00095585646340623 29347 0.00095584947848693 29348 0.00095584307564422 29349 0.00095583609072492 29350 0.00095582916401327 29351 0.00095582252833992 29352 0.00095581595087424 29353 0.00095580995548517 29354 0.00095580291235819 29355 0.00095579662593082 29356 0.00095579045591876 29357 0.0009557839948684 29358 0.00095577747561038 29359 0.00095577107276767 29360 0.00095576420426369 29361 0.00095575803425163 29362 0.00095575163140893 29363 0.00095574499573559 29364 0.0009557384182699 29365 0.00095573219005018 29366 0.00095572584541515 29367 0.0009557189187035 29368 0.00095571263227612 29369 0.00095570628764108 29370 0.00095569965196773 29371 0.00095569342374802 29372 0.00095568713732064 29373 0.00095568038523197 29374 0.00095567386597395 29375 0.00095566757954657 29376 0.00095566094387323 29377 0.00095565477386117 29378 0.00095564854564145 29379 0.0009556416189298 29380 0.00095563504146412 29381 0.00095562846399844 29382 0.00095562235219404 29383 0.000955616007559 29384 0.00095560902263969 29385 0.00095560314366594 29386 0.00095559621695429 29387 0.00095558993052691 29388 0.00095558364409953 29389 0.00095557683380321 29390 0.00095557048916817 29391 0.00095556443557143 29392 0.00095555779989809 29393 0.00095555104780942 29394 0.00095554470317438 29395 0.00095553818391636 29396 0.000955531722866 29397 0.00095552497077733 29398 0.00095551915001124 29399 0.00095551216509193 29400 0.00095550576224923 29401 0.00095549947582185 29402 0.00095549272373319 29403 0.00095548643730581 29404 0.00095548020908609 29405 0.00095547368982807 29406 0.0009554669377394 29407 0.00095546065131202 29408 0.00095545407384634 29409 0.00095544749638066 29410 0.00095544120995328 29411 0.0009554349235259 29412 0.00095542817143723 29413 0.00095542165217921 29414 0.00095541495829821 29415 0.00095540843904018 29416 0.00095540215261281 29417 0.00095539609901607 29418 0.00095538969617337 29419 0.00095538271125406 29420 0.00095537665765733 29421 0.00095536990556866 29422 0.00095536350272596 29423 0.00095535721629858 29424 0.0009553506388329 29425 0.00095534400315955 29426 0.00095533765852451 29427 0.00095533113926649 29428 0.00095532444538549 29429 0.00095531798433512 29430 0.00095531198894605 29431 0.0009553050622344 29432 0.00095529871759936 29433 0.00095529260579497 29434 0.00095528591191396 29435 0.0009552791598253 29436 0.00095527281519026 29437 0.0009552666451782 29438 0.00095525995129719 29439 0.00095525378128514 29440 0.00095524697098881 29441 0.00095524045173079 29442 0.00095523439813405 29443 0.00095522787887603 29444 0.00095522066112608 29445 0.00095521454932168 29446 0.00095520832110196 29447 0.00095520197646692 29448 0.00095519534079358 29449 0.00095518882153556 29450 0.00095518253510818 29451 0.00095517572481185 29452 0.00095516996225342 29453 0.00095516303554177 29454 0.00095515628345311 29455 0.00095515046268702 29456 0.00095514353597537 29457 0.00095513660926372 29458 0.00095513026462868 29459 0.0009551239782013 29460 0.0009551175753586 29461 0.00095511111430824 29462 0.0009551047696732 29463 0.00095509830862284 29464 0.00095509138191119 29465 0.00095508550293744 29466 0.00095507857622579 29467 0.00095507205696777 29468 0.00095506611978635 29469 0.00095505971694365 29470 0.00095505244098604 29471 0.00095504662021995 29472 0.00095504004275426 29473 0.00095503369811922 29474 0.00095502694603056 29475 0.00095502071781084 29476 0.0009550143731758 29477 0.00095500762108713 29478 0.00095500145107508 29479 0.00095499458257109 29480 0.00095498806331307 29481 0.0009549823589623 29482 0.00095497583970428 29483 0.00095496885478497 29484 0.0009549623937346 29485 0.00095495616551489 29486 0.00095494964625686 29487 0.00095494324341416 29488 0.00095493672415614 29489 0.00095493049593642 29490 0.00095492374384776 29491 0.00095491769025102 29492 0.00095491076353937 29493 0.00095490424428135 29494 0.00095489819068462 29495 0.00095489167142659 29496 0.00095488468650728 29497 0.00095487863291055 29498 0.00095487199723721 29499 0.00095486547797918 29500 0.00095485907513648 29501 0.0009548527887091 29502 0.00095484650228173 29503 0.0009548399830237 29504 0.00095483369659632 29505 0.00095482665346935 29506 0.00095482059987262 29507 0.00095481425523758 29508 0.00095480779418722 29509 0.00095480063464493 29510 0.00095479458104819 29511 0.00095478811999783 29512 0.00095478136790916 29513 0.0009547746158205 29514 0.00095476838760078 29515 0.0009547621011734 29516 0.00095475593116134 29517 0.00095474912086502 29518 0.00095474277622998 29519 0.00095473614055663 29520 0.00095472997054458 29521 0.00095472333487123 29522 0.00095471687382087 29523 0.00095471035456285 29524 0.00095470400992781 29525 0.00095469766529277 29526 0.00095469114603475 29527 0.00095468456856906 29528 0.00095467816572636 29529 0.00095467193750665 29530 0.00095466524362564 29531 0.00095465854974464 29532 0.00095465255435556 29533 0.00095464620972052 29534 0.0009546396904625 29535 0.00095463258912787 29536 0.00095462671015412 29537 0.00095462036551908 29538 0.00095461396267638 29539 0.00095460726879537 29540 0.00095460109878331 29541 0.00095459463773295 29542 0.00095458794385195 29543 0.00095458142459393 29544 0.0009545749053359 29545 0.00095456844428554 29546 0.00095456256531179 29547 0.00095455604605377 29548 0.00095454911934212 29549 0.0009545428911224 29550 0.00095453654648736 29551 0.000954530085437 29552 0.00095452327514067 29553 0.00095451733795926 29554 0.00095451070228592 29555 0.00095450400840491 29556 0.00095449778018519 29557 0.00095449137734249 29558 0.00095448479987681 29559 0.00095447839703411 29560 0.00095447199419141 29561 0.00095446559134871 29562 0.00095445907209069 29563 0.00095445307670161 29564 0.00095444649923593 29565 0.00095443951431662 29566 0.0009544332860969 29567 0.00095442740712315 29568 0.00095442071324214 29569 0.00095441355369985 29570 0.00095440750010312 29571 0.00095440121367574 29572 0.00095439504366368 29573 0.00095438805874437 29574 0.00095438177231699 29575 0.00095437560230494 29576 0.00095436902483925 29577 0.00095436250558123 29578 0.00095435598632321 29579 0.00095434952527285 29580 0.00095434329705313 29581 0.00095433677779511 29582 0.00095433031674474 29583 0.00095432397210971 29584 0.00095431692898273 29585 0.00095431128283963 29586 0.0009543044725433 29587 0.0009542980697006 29588 0.0009542916668579 29589 0.00095428538043052 29590 0.0009542788611725 29591 0.00095427222549915 29592 0.00095426558982581 29593 0.00095426000189036 29594 0.00095425336621702 29595 0.00095424643950537 29596 0.00095424032770097 29597 0.00095423375023529 29598 0.00095422758022323 29599 0.00095422094454989 29600 0.00095421390142292 29601 0.00095420831348747 29602 0.00095420185243711 29603 0.0009541951585561 29604 0.00095418852288276 29605 0.00095418223645538 29606 0.000954175950028 29607 0.00095416966360062 29608 0.00095416256226599 29609 0.00095415685791522 29610 0.00095415022224188 29611 0.00095414347015321 29612 0.00095413741655648 29613 0.00095413060626015 29614 0.00095412461087108 29615 0.00095411809161305 29616 0.00095411174697801 29617 0.00095410511130467 29618 0.00095409841742367 29619 0.00095409213099629 29620 0.00095408596098423 29621 0.00095407920889556 29622 0.00095407298067585 29623 0.00095406657783315 29624 0.00095406011678278 29625 0.00095405359752476 29626 0.00095404667081311 29627 0.0009540404425934 29628 0.00095403485465795 29629 0.00095402775332332 29630 0.00095402135048062 29631 0.00095401494763792 29632 0.00095400831196457 29633 0.0009540023165755 29634 0.00095399538986385 29635 0.00095398921985179 29636 0.00095398264238611 29637 0.00095397664699703 29638 0.00095396989490837 29639 0.00095396337565035 29640 0.00095395679818466 29641 0.00095395080279559 29642 0.00095394381787628 29643 0.00095393741503358 29644 0.00095393124502152 29645 0.00095392530784011 29646 0.00095391838112846 29647 0.00095391145441681 29648 0.00095390545902774 29649 0.00095389975467697 29650 0.00095389352645725 29651 0.00095388700719923 29652 0.00095388025511056 29653 0.00095387466717511 29654 0.0009538687299937 29655 0.00095386197790504 29656 0.00095385580789298 29657 0.00095384998712689 29658 0.00095384346786886 29659 0.00095383723964915 29660 0.00095383083680645 29661 0.00095382507424802 29662 0.00095381855498999 29663 0.00095381215214729 29664 0.00095380586571991 29665 0.0009537996375002 29666 0.00095379381673411 29667 0.00095378753030673 29668 0.00095378118567169 29669 0.00095377489924431 29670 0.00095376884564757 29671 0.00095376244280487 29672 0.00095375615637749 29673 0.00095374946249649 29674 0.00095374369993806 29675 0.00095373729709536 29676 0.00095373135991395 29677 0.00095372460782528 29678 0.00095371872885153 29679 0.0009537122095935 29680 0.00095370615599677 29681 0.00095369969494641 29682 0.00095369381597266 29683 0.00095368758775294 29684 0.00095368135953322 29685 0.00095367489848286 29686 0.0009536684374325 29687 0.00095366273308173 29688 0.00095365633023903 29689 0.00095365016022697 29690 0.00095364346634597 29691 0.00095363764557987 29692 0.00095363159198314 29693 0.00095362536376342 29694 0.00095361866988242 29695 0.00095361249987036 29696 0.00095360650448129 29697 0.00095360050909221 29698 0.00095359387341887 29699 0.00095358752878383 29700 0.00095358170801774 29701 0.00095357524696738 29702 0.00095356907695532 29703 0.00095356267411262 29704 0.00095355650410056 29705 0.00095355050871149 29706 0.00095354398945346 29707 0.00095353764481843 29708 0.00095353147480637 29709 0.00095352553762496 29710 0.00095351948402822 29711 0.00095351308118552 29712 0.00095350609626621 29713 0.00095350050833076 29714 0.00095349433831871 29715 0.00095348805189133 29716 0.00095348199829459 29717 0.00095347530441359 29718 0.00095346907619387 29719 0.0009534630808048 29720 0.00095345656154677 29721 0.00095345027511939 29722 0.00095344427973032 29723 0.00095343799330294 29724 0.00095343153225258 29725 0.00095342559507117 29726 0.00095341959968209 29727 0.00095341261476278 29728 0.00095340609550476 29729 0.00095340027473867 29730 0.00095339375548065 29731 0.00095338758546859 29732 0.00095338182291016 29733 0.00095337518723682 29734 0.00095336860977113 29735 0.0009533625561744 29736 0.0009533561533317 29737 0.00095335009973496 29738 0.00095334404613823 29739 0.00095333764329553 29740 0.00095333106582984 29741 0.00095332501223311 29742 0.00095331860939041 29743 0.00095331214834005 29744 0.00095330632757396 29745 0.00095329957548529 29746 0.00095329352188855 29747 0.00095328746829182 29748 0.00095328118186444 29749 0.00095327466260642 29750 0.00095326825976372 29751 0.0009532623225823 29752 0.00095325603615493 29753 0.00095324945868924 29754 0.00095324363792315 29755 0.00095323740970343 29756 0.00095323065761477 29757 0.00095322483684868 29758 0.00095321837579831 29759 0.00095321191474795 29760 0.00095320615218952 29761 0.00095319980755448 29762 0.00095319357933477 29763 0.00095318723469973 29764 0.00095318059902638 29765 0.00095317419618368 29766 0.00095316855004057 29767 0.00095316208899021 29768 0.00095315638463944 29769 0.00095314951613545 29770 0.00095314311329275 29771 0.00095313659403473 29772 0.00095313065685332 29773 0.00095312471967191 29774 0.00095311814220622 29775 0.0009531119139865 29776 0.00095310586038977 29777 0.00095309969037771 29778 0.00095309322932735 29779 0.00095308700110763 29780 0.00095308042364195 29781 0.00095307437004521 29782 0.00095306825824082 29783 0.00095306220464408 29784 0.00095305568538606 29785 0.00095304934075102 29786 0.00095304293790832 29787 0.0009530367096886 29788 0.00095303100533783 29789 0.00095302448607981 29790 0.00095301796682179 29791 0.00095301162218675 29792 0.00095300527755171 29793 0.00095299922395498 29794 0.00095299299573526 29795 0.0009529865346849 29796 0.00095298036467284 29797 0.00095297407824546 29798 0.00095296819927171 29799 0.00095296162180603 29800 0.00095295498613268 29801 0.00095294904895127 29802 0.00095294276252389 29803 0.00095293647609651 29804 0.00095293065533042 29805 0.00095292401965708 29806 0.00095291784964502 29807 0.000952911330387 29808 0.00095290516037494 29809 0.00095289899036288 29810 0.00095289252931252 29811 0.00095288635930046 29812 0.00095288036391139 29813 0.00095287384465337 29814 0.00095286790747195 29815 0.00095286144642159 29816 0.00095285475254059 29817 0.00095284904818982 29818 0.00095284270355478 29819 0.00095283647533506 29820 0.00095283047994599 29821 0.00095282343681902 29822 0.00095281738322228 29823 0.00095281121321023 29824 0.00095280515961349 29825 0.00095279898960143 29826 0.00095279270317405 29827 0.0009527868242003 29828 0.00095278065418825 29829 0.00095277465879917 29830 0.0009527686634101 29831 0.00095276220235974 29832 0.000952756148763 29833 0.00095275056082755 29834 0.00095274415798485 29835 0.00095273822080344 29836 0.00095273181796074 29837 0.00095272588077933 29838 0.00095271947793663 29839 0.00095271359896287 29840 0.00095270777819678 29841 0.00095270154997706 29842 0.00095269561279565 29843 0.00095268932636827 29844 0.00095268298173323 29845 0.00095267751021311 29846 0.00095267151482403 29847 0.00095266493735835 29848 0.00095265952404588 29849 0.00095265341224149 29850 0.00095264730043709 29851 0.00095264101400971 29852 0.00095263484399766 29853 0.00095262879040092 29854 0.00095262267859653 29855 0.00095261709066108 29856 0.00095261097885668 29857 0.00095260457601398 29858 0.00095259881345555 29859 0.00095259246882051 29860 0.00095258641522378 29861 0.00095258094370365 29862 0.00095257471548393 29863 0.00095256831264123 29864 0.00095256266649812 29865 0.00095255638007075 29866 0.00095255021005869 29867 0.0009525443892926 29868 0.00095253833569586 29869 0.00095253216568381 29870 0.00095252657774836 29871 0.00095252058235928 29872 0.00095251383027062 29873 0.00095250830054283 29874 0.00095250201411545 29875 0.0009524958441034 29876 0.00095248984871432 29877 0.00095248414436355 29878 0.00095247803255916 29879 0.0009524715715088 29880 0.0009524657507427 29881 0.00095245975535363 29882 0.00095245370175689 29883 0.00095244823023677 29884 0.00095244159456342 29885 0.00095243554096669 29886 0.0009524297202006 29887 0.0009524233173579 29888 0.00095241761300713 29889 0.00095241150120273 29890 0.00095240562222898 29891 0.00095239974325523 29892 0.00095239357324317 29893 0.00095238763606176 29894 0.00095238134963438 29895 0.00095237535424531 29896 0.00095236953347921 29897 0.00095236336346716 29898 0.00095235742628574 29899 0.00095235148910433 29900 0.00095234520267695 29901 0.00095233914908022 29902 0.0009523332118988 29903 0.00095232762396336 29904 0.00095232157036662 29905 0.00095231476007029 29906 0.00095230859005824 29907 0.00095230294391513 29908 0.00095229712314904 29909 0.00095229083672166 29910 0.00095228495774791 29911 0.0009522793116048 29912 0.00095227267593145 29913 0.0009522665059194 29914 0.00095226126722991 29915 0.00095225457334891 29916 0.00095224886899814 29917 0.00095224299002439 29918 0.00095223682001233 29919 0.00095223047537729 29920 0.0009522249456495 29921 0.00095221848459914 29922 0.00095221266383305 29923 0.00095220701768994 29924 0.00095220108050853 29925 0.00095219467766583 29926 0.00095218868227676 29927 0.0009521825122647 29928 0.00095217651687562 29929 0.00095217081252486 29930 0.00095216475892812 29931 0.00095215864712372 29932 0.00095215305918828 29933 0.00095214624889195 29934 0.00095214054454118 29935 0.00095213437452912 29936 0.00095212878659368 29937 0.00095212226733565 29938 0.00095211650477722 29939 0.00095211062580347 29940 0.00095210428116843 29941 0.0009520982275717 29942 0.00095209246501327 29943 0.00095208629500121 29944 0.0009520809398964 29945 0.0009520745370537 29946 0.00095206836704165 29947 0.0009520624880679 29948 0.00095205655088648 29949 0.00095205032266676 29950 0.00095204473473132 29951 0.00095203833188862 29952 0.00095203198725358 29953 0.00095202616648749 29954 0.00095202028751373 29955 0.00095201417570934 29956 0.00095200852956623 29957 0.00095200230134651 29958 0.00095199618954211 29959 0.00095199019415304 29960 0.00095198437338695 29961 0.00095197831979021 29962 0.00095197244081646 29963 0.00095196632901207 29964 0.00095195992616937 29965 0.00095195387257263 29966 0.0009519481100142 29967 0.00095194228924811 29968 0.00095193594461307 29969 0.00095193006563932 29970 0.00095192453591153 29971 0.00095191807486117 29972 0.00095191207947209 29973 0.00095190614229068 29974 0.00095189991407096 29975 0.00095189415151253 29976 0.00095188815612346 29977 0.00095188186969608 29978 0.00095187581609935 29979 0.00095186993712559 29980 0.00095186399994418 29981 0.00095185794634745 29982 0.00095185206737369 29983 0.00095184601377696 29984 0.00095183961093426 29985 0.00095183408120647 29986 0.00095182820223272 29987 0.00095182185759768 29988 0.00095181592041627 29989 0.00095180928474292 29990 0.00095180334756151 29991 0.00095179787604138 29992 0.00095179217169061 29993 0.00095178582705557 29994 0.00095177965704352 29995 0.00095177354523912 29996 0.00095176772447303 29997 0.00095176172908396 29998 0.0009517555590719 29999 0.0009517494472675 30000 0.00095174321904778 0,0 0.00096295791347527 0,1 0.99906093247472 1,0 0.99906275144406 1,1 0.00096586381043744 b1 -3.8529949188232 -3.9333512783051 w1 -6.9309539794922 6.918788433075 7.0428323745728 -7.0194535255432 b2 -7.5515928268433 w2 15.197933197021 15.170973777771 april-ann-0.3.1/TEST/xor/xor-with-sparse-input.lua000066400000000000000000000061051234204160600216770ustar00rootroot00000000000000learning_rate = 0.4 momentum = 0.1 weight_decay = 1e-05 semilla = 1234 aleat = random(semilla) num_weights = 9 bunch_size = tonumber(arg[1]) or 64 m = matrix.fromString[[ 9 ascii -0.5 -1.2 1.0 -2.0 4.0 -4.0 -1.0 2.0 2.0 ]] function show_weights(trainer, filter) if not filter then filter = function(x) return x end end print() for i = 1,ds_input:numPatterns() do local out = trainer:calculate(ds_input:getPattern(i)):toTable() value = filter(out[1]) --printf("%s\t %s\n", --table.concat(ds_input:getPattern(i),","), --value) print(value) end print() for _,wname in ipairs({ "b1", "w1", "b2", "w2" }) do local w = trainer.weights_table[wname]:copy_to():toTable() print(wname, table.concat(w, " ")) end end function load_initial_weights(weights_table) weights_table["b1"]:load{ w=m, first_pos=0, column_size=3 } weights_table["w1"]:load{ w=m, first_pos=1, column_size=3 } weights_table["b2"]:load{ w=m, first_pos=6, column_size=3 } weights_table["w2"]:load{ w=m, first_pos=7, column_size=3 } end ----------------------------------------------------------- net_component=ann.mlp.all_all.generate("2 inputs 2 logistic 1 logistic") trainer=trainable.supervised_trainer(net_component) trainer:set_option("learning_rate", learning_rate) trainer:set_option("momentum", momentum) trainer:set_option("weight_decay", weight_decay) trainer:build() trainer:set_loss_function(ann.loss.mse(net_component:get_output_size())) load_initial_weights(trainer.weights_table) m_xor = matrix.fromString[[ 4 3 ascii 0 0 0 0 1 1 1 0 1 1 1 0 ]] ds_input = dataset.token.vector(2) ds_output = dataset.token.vector(1) t = tokens.vector.sparse() ds_input:push_back(t) t = tokens.vector.sparse() t:push_back(0, 1.0) ds_input:push_back(t) t = tokens.vector.sparse() t:push_back(1, 1.0) ds_input:push_back(t) t = tokens.vector.sparse() t:push_back(0, 1.0) t:push_back(1, 1.0) ds_input:push_back(t) ------------------------------ t = tokens.matrix( matrix.col_major(1,1,{0.0}) ) ds_output:push_back(t) t = tokens.matrix( matrix.col_major(1,1,{1.0}) ) ds_output:push_back(t) t = tokens.matrix( matrix.col_major(1,1,{1.0}) ) ds_output:push_back(t) t = tokens.matrix( matrix.col_major(1,1,{0.0}) ) ds_output:push_back(t) ----------------------- -- Valores iniciales -- ----------------------- load_initial_weights(trainer.weights_table) data={ input_dataset = ds_input, output_dataset = ds_output, shuffle = aleat, bunch_size = bunch_size } print ("\nAfter one epoch") trainer:train_dataset(data) show_weights(trainer) print ("\nAfter two epochs") trainer:train_dataset(data) show_weights(trainer) net_component:pop() net_component:push( ann.components.actf.log_logistic() ) trainer=trainable.supervised_trainer(net_component) trainer:build() trainer:set_loss_function(ann.loss.cross_entropy(net_component:get_output_size())) load_initial_weights(trainer.weights_table) print ("\nAfter 30000 epochs") for i=3,30000 do print(i, trainer:train_dataset(data)) end show_weights(trainer, math.exp) april-ann-0.3.1/TEST/xor/xor.lua000066400000000000000000000101541234204160600162750ustar00rootroot00000000000000learning_rate = 0.4 momentum = 0.1 weight_decay = 1e-05 semilla = 1234 aleat = random(semilla) num_weights = 9 bunch_size = tonumber(arg[1]) or 64 m = matrix.fromString[[ 9 ascii -0.5 -1.2 1.0 -2.0 4.0 -4.0 -1.0 2.0 2.0 ]] function show_weights(trainer, filter) if not filter then filter = function(x) return x end end print() for i = 1,ds_input:numPatterns() do value = filter(trainer:calculate(ds_input:getPattern(i)):toTable()[1]) printf("%s\t %s\n", table.concat(ds_input:getPattern(i),","), value) end print() for _,wname in ipairs({ "b1", "w1", "b2", "w2" }) do local w = trainer.weights_table[wname]:toTable() print(wname, table.concat(w, " ")) end end function load_initial_weights(weights_table) ann.connections.load(weights_table["b1"], { w=m, first_pos=0, column_size=3 }) ann.connections.load(weights_table["w1"], { w=m, first_pos=1, column_size=3 }) ann.connections.load(weights_table["b2"], { w=m, first_pos=6, column_size=3 }) ann.connections.load(weights_table["w2"], { w=m, first_pos=7, column_size=3 }) end ----------------------------------------------------------- net_component=ann.mlp.all_all.generate("2 inputs 2 logistic 1 logistic") trainer=trainable.supervised_trainer(net_component) trainer:build() trainer:set_option("learning_rate", learning_rate) trainer:set_option("momentum", momentum) trainer:set_option("weight_decay", weight_decay) trainer:set_layerwise_option("b.*", "weight_decay", 0.0) trainer:set_loss_function(ann.loss.mse(net_component:get_output_size())) load_initial_weights(trainer.weights_table) m_xor = matrix.fromString[[ 4 3 ascii 0 0 0 0 1 1 1 0 1 1 1 0 ]] ds_input = dataset.matrix(m_xor,{patternSize={1,2}}) ds_output = dataset.matrix(m_xor,{offset={0,2},patternSize={1,1}}) ds_input1 = dataset.matrix(m_xor,{ patternSize={1,2}, numSteps={1,1}}) ds_output1 = dataset.matrix(m_xor,{ offset={0,2}, patternSize={1,1}, numSteps={1,1}}) ds_input2 = dataset.matrix(m_xor,{ offset={1,0}, patternSize={1,2}, numSteps={1,1}}) ds_output2 = dataset.matrix(m_xor,{ offset={1,2}, patternSize={1,1}, numSteps={1,1}}) if not trainer:grad_check_dataset{ input_dataset = ds_input, output_dataset = ds_output, bunch_size = 4 } then error("Incorrect gradients!!!") end ----------------------- -- Valores iniciales -- ----------------------- print ("----------------------------------------------") print ("----------------------------------------------") print ("Initial values") show_weights(trainer) print ("----------------------------------------------") print ("--------------------------------------------") print ("After forward of (0,0)") data={ input_dataset = ds_input1, output_dataset = ds_output1, shuffle = aleat, bunch_size = bunch_size } trainer:train_dataset(data) show_weights(trainer) print ("\nAfter forward of (0,1)") data={ input_dataset = ds_input2, output_dataset = ds_output2, shuffle = aleat, bunch_size = bunch_size } trainer:train_dataset(data) show_weights(trainer) load_initial_weights(trainer.weights_table) data={ input_dataset = ds_input, output_dataset = ds_output, shuffle = aleat, bunch_size = bunch_size } print ("\nAfter one epoch") trainer:train_dataset(data) show_weights(trainer) print ("\nAfter two epochs") trainer:train_dataset(data) show_weights(trainer) net_component:pop() net_component:push( ann.components.actf.log_logistic() ) trainer=trainable.supervised_trainer(net_component) trainer:build() trainer:set_option("learning_rate", learning_rate) trainer:set_option("momentum", momentum) trainer:set_option("weight_decay", weight_decay) trainer:set_layerwise_option("b.*", "weight_decay", 0.0) trainer:set_loss_function(ann.loss.cross_entropy(net_component:get_output_size())) load_initial_weights(trainer.weights_table) print ("\nAfter 30000 epochs") for i=3,30000 do print(i, trainer:train_dataset(data)) end show_weights(trainer, math.exp) april-ann-0.3.1/TODO.md000066400000000000000000000006001234204160600144550ustar00rootroot00000000000000- Search for FIXME word - MKL implementation of sparse operations is not working properly. - Update `ocr.off_line.param` package to use `Matrix` iterators instead of direct access to data. - Update `Image` package to use `Matrix::random_access_iterator`, instead of direct access to data. Therefore, image would work with any underlying `matrix`, even not simple ones. april-ann-0.3.1/binding/000077500000000000000000000000001234204160600150045ustar00rootroot00000000000000april-ann-0.3.1/binding/Doxygen_template000066400000000000000000000236351234204160600202500ustar00rootroot00000000000000# Doxyfile 1.5.1 #--------------------------------------------------------------------------- # Project related configuration options #--------------------------------------------------------------------------- PROJECT_NAME = april PROJECT_NUMBER = OUTPUT_DIRECTORY = CREATE_SUBDIRS = NO DOXYFILE_ENCODING = UTF-8 #OUTPUT_LANGUAGE = Spanish OUTPUT_LANGUAGE = English USE_WINDOWS_ENCODING = NO BRIEF_MEMBER_DESC = YES REPEAT_BRIEF = YES ABBREVIATE_BRIEF = "The $name class" \ "The $name widget" \ "The $name file" \ is \ provides \ specifies \ contains \ represents \ a \ an \ the ALWAYS_DETAILED_SEC = NO INLINE_INHERITED_MEMB = NO FULL_PATH_NAMES = YES STRIP_FROM_PATH = STRIP_FROM_INC_PATH = SHORT_NAMES = NO JAVADOC_AUTOBRIEF = NO MULTILINE_CPP_IS_BRIEF = NO DETAILS_AT_TOP = NO INHERIT_DOCS = YES SEPARATE_MEMBER_PAGES = NO TAB_SIZE = 8 ALIASES = OPTIMIZE_OUTPUT_FOR_C = NO OPTIMIZE_OUTPUT_JAVA = NO BUILTIN_STL_SUPPORT = NO DISTRIBUTE_GROUP_DOC = NO SUBGROUPING = YES #--------------------------------------------------------------------------- # Build related configuration options #--------------------------------------------------------------------------- EXTRACT_ALL = YES EXTRACT_PRIVATE = YES EXTRACT_STATIC = YES EXTRACT_LOCAL_CLASSES = YES EXTRACT_LOCAL_METHODS = YES HIDE_UNDOC_MEMBERS = YES HIDE_UNDOC_CLASSES = YES HIDE_FRIEND_COMPOUNDS = NO HIDE_IN_BODY_DOCS = NO INTERNAL_DOCS = NO CASE_SENSE_NAMES = YES HIDE_SCOPE_NAMES = NO SHOW_INCLUDE_FILES = NO INLINE_INFO = YES SORT_MEMBER_DOCS = YES SORT_BRIEF_DOCS = NO SORT_BY_SCOPE_NAME = NO GENERATE_TODOLIST = YES GENERATE_TESTLIST = YES GENERATE_BUGLIST = YES GENERATE_DEPRECATEDLIST= YES ENABLED_SECTIONS = MAX_INITIALIZER_LINES = 30 SHOW_USED_FILES = NO SHOW_DIRECTORIES = NO FILE_VERSION_FILTER = #--------------------------------------------------------------------------- # configuration options related to warning and progress messages #--------------------------------------------------------------------------- QUIET = NO WARNINGS = YES WARN_IF_UNDOCUMENTED = YES WARN_IF_DOC_ERROR = YES WARN_NO_PARAMDOC = NO WARN_FORMAT = "$file:$line: $text" WARN_LOGFILE = #--------------------------------------------------------------------------- # configuration options related to the input files #--------------------------------------------------------------------------- INPUT = FILE_PATTERNS = *.c \ *.cc \ *.cxx \ *.cpp \ *.c++ \ *.d \ *.java \ *.ii \ *.ixx \ *.ipp \ *.i++ \ *.inl \ *.h \ *.hh \ *.hxx \ *.hpp \ *.h++ \ *.idl \ *.odl \ *.cs \ *.php \ *.php3 \ *.inc \ *.m \ *.mm \ *.dox \ *.py \ *.C \ *.CC \ *.C++ \ *.II \ *.I++ \ *.H \ *.HH \ *.H++ \ *.CS \ *.PHP \ *.PHP3 \ *.M \ *.MM \ *.PY RECURSIVE = YES EXCLUDE = EXCLUDE_SYMLINKS = NO EXCLUDE_PATTERNS = EXAMPLE_PATH = EXAMPLE_PATTERNS = * EXAMPLE_RECURSIVE = NO IMAGE_PATH = INPUT_FILTER = FILTER_PATTERNS = FILTER_SOURCE_FILES = NO #--------------------------------------------------------------------------- # configuration options related to source browsing #--------------------------------------------------------------------------- SOURCE_BROWSER = NO INLINE_SOURCES = NO STRIP_CODE_COMMENTS = YES REFERENCED_BY_RELATION = YES REFERENCES_RELATION = YES REFERENCES_LINK_SOURCE = YES USE_HTAGS = NO VERBATIM_HEADERS = NO #--------------------------------------------------------------------------- # configuration options related to the alphabetical class index #--------------------------------------------------------------------------- ALPHABETICAL_INDEX = NO COLS_IN_ALPHA_INDEX = 5 IGNORE_PREFIX = #--------------------------------------------------------------------------- # configuration options related to the HTML output #--------------------------------------------------------------------------- GENERATE_HTML = YES HTML_OUTPUT = html HTML_FILE_EXTENSION = .html HTML_HEADER = HTML_FOOTER = HTML_STYLESHEET = HTML_ALIGN_MEMBERS = YES GENERATE_HTMLHELP = NO CHM_FILE = HHC_LOCATION = GENERATE_CHI = NO BINARY_TOC = NO TOC_EXPAND = NO DISABLE_INDEX = NO ENUM_VALUES_PER_LINE = 4 GENERATE_TREEVIEW = NO TREEVIEW_WIDTH = 250 #--------------------------------------------------------------------------- # configuration options related to the LaTeX output #--------------------------------------------------------------------------- GENERATE_LATEX = NO LATEX_OUTPUT = latex LATEX_CMD_NAME = latex MAKEINDEX_CMD_NAME = makeindex COMPACT_LATEX = NO PAPER_TYPE = a4wide EXTRA_PACKAGES = LATEX_HEADER = PDF_HYPERLINKS = NO USE_PDFLATEX = NO LATEX_BATCHMODE = NO LATEX_HIDE_INDICES = NO #--------------------------------------------------------------------------- # configuration options related to the RTF output #--------------------------------------------------------------------------- GENERATE_RTF = NO RTF_OUTPUT = rtf COMPACT_RTF = NO RTF_HYPERLINKS = NO RTF_STYLESHEET_FILE = RTF_EXTENSIONS_FILE = #--------------------------------------------------------------------------- # configuration options related to the man page output #--------------------------------------------------------------------------- GENERATE_MAN = NO MAN_OUTPUT = man MAN_EXTENSION = .3 MAN_LINKS = NO #--------------------------------------------------------------------------- # configuration options related to the XML output #--------------------------------------------------------------------------- GENERATE_XML = NO XML_OUTPUT = xml XML_SCHEMA = XML_DTD = XML_PROGRAMLISTING = YES #--------------------------------------------------------------------------- # configuration options for the AutoGen Definitions output #--------------------------------------------------------------------------- GENERATE_AUTOGEN_DEF = NO #--------------------------------------------------------------------------- # configuration options related to the Perl module output #--------------------------------------------------------------------------- GENERATE_PERLMOD = NO PERLMOD_LATEX = NO PERLMOD_PRETTY = YES PERLMOD_MAKEVAR_PREFIX = #--------------------------------------------------------------------------- # Configuration options related to the preprocessor #--------------------------------------------------------------------------- ENABLE_PREPROCESSING = YES MACRO_EXPANSION = NO EXPAND_ONLY_PREDEF = NO SEARCH_INCLUDES = YES INCLUDE_PATH = INCLUDE_FILE_PATTERNS = PREDEFINED = EXPAND_AS_DEFINED = SKIP_FUNCTION_MACROS = YES #--------------------------------------------------------------------------- # Configuration::additions related to external references #--------------------------------------------------------------------------- TAGFILES = GENERATE_TAGFILE = ALLEXTERNALS = NO EXTERNAL_GROUPS = YES PERL_PATH = /usr/bin/perl #--------------------------------------------------------------------------- # Configuration options related to the dot tool #--------------------------------------------------------------------------- CLASS_DIAGRAMS = YES HIDE_UNDOC_RELATIONS = YES HAVE_DOT = YES CLASS_GRAPH = YES COLLABORATION_GRAPH = YES GROUP_GRAPHS = YES UML_LOOK = NO TEMPLATE_RELATIONS = YES INCLUDE_GRAPH = YES INCLUDED_BY_GRAPH = YES CALL_GRAPH = NO CALLER_GRAPH = NO GRAPHICAL_HIERARCHY = YES DIRECTORY_GRAPH = YES DOT_IMAGE_FORMAT = png DOT_PATH = DOTFILE_DIRS = MAX_DOT_GRAPH_WIDTH = 1024 MAX_DOT_GRAPH_HEIGHT = 1024 MAX_DOT_GRAPH_DEPTH = 1000 DOT_TRANSPARENT = NO DOT_MULTI_TARGETS = NO GENERATE_LEGEND = YES DOT_CLEANUP = YES #--------------------------------------------------------------------------- # Configuration::additions related to the search engine #--------------------------------------------------------------------------- SEARCHENGINE = NO april-ann-0.3.1/binding/bind_templates/000077500000000000000000000000001234204160600177765ustar00rootroot00000000000000april-ann-0.3.1/binding/bind_templates/luabind_document_template.cc000066400000000000000000000000001234204160600255020ustar00rootroot00000000000000april-ann-0.3.1/binding/bind_templates/luabind_document_template.h000066400000000000000000000104071234204160600253600ustar00rootroot00000000000000// $$FILENAME$$ // Generado automáticamente por luabind el $$os.date()$$ /*LUA -- funcion para extraer las etiquetas //DOC_BEGIN .... //DOC_END function get_method_headers(code) local t = {} local list = {} -- buscamos cada grupo de etiquetas //DOC_BEGIN - //DOC_END for lines_headers in string.gmatch(code, "[ \t]*%/%/DOC_BEGIN".. "[^\n]*\n(.-)[ \t]*\n+".. "%/%/DOC_END") do local i=1 local funstr = "" local docstr = "" -- las tokenizamos por lineas for token in string.gmatch(lines_headers, '[^\n]+') do if i==1 then -- la primera linea es la cabecera de la funcion local type,func_hdr ini,fin,type,func_hdr = string.find(token, "//%s*([^ \n]+)%s+([^\n]+)") if type == nil then ini,fin,func_hdr = string.find(token, "//%s*([^\n]+)") type = "" end funstr = type .. " " .. func_hdr i = i + 1 else -- el resto es documentacion ;) docstr = docstr .. "\n" .. token end end table.insert(list, docstr .. "\n" .. funstr) end return list end */ //LUA for ClassName, class in pairs(CLASSES) do //LUA if CREATE_CLASS[ClassName] then //LUA classname = LUANAME[ClassName] or ClassName /*LUA -- extraemos el namespace: algo.otra.cosa... namespace = "" last_token = nil for token in string.gmatch(classname, '[^%.]+') do if last_token then */ namespace $$last_token$$ { /*LUA end last_token = token end doc_classname = last_token */ //LUA if not PARENT_CLASS[ClassName] then class $$doc_classname$$ { //LUA else //LUA doc_parentclassname = string.gsub(LUANAME[PARENT_CLASS[ClassName]] or PARENT_CLASS[ClassName], "%.", "::") //LUA parent_classname = class $$doc_classname$$ : public $$doc_parentclassname$$ { //LUA end public: /*LUA method_headers = get_method_headers(class.constructor, classname); if #method_headers > 0 then for i,func_header in ipairs(method_headers) do */ $$func_header$$ { } /*LUA end else */ $$doc_classname$$(lua_State *L) { } //LUA end /*LUA method_headers = get_method_headers(class.destructor, classname); if #method_headers > 0 then for i,func_header in ipairs(method_headers) do */ $$func_header$$ { } /*LUA end else */ ~$$doc_classname$$(lua_State *L) { } //LUA end void $$doc_classname$$_open_constructor(lua_State *L); //LUA for MethodName,code in pairs(class.methods) do /*LUA method_headers = get_method_headers(code); if #method_headers > 0 then for i,func_header in ipairs(method_headers) do */ $$func_header$$ { } /*LUA end else */ int $$MethodName$$(lua_State *L) { } //LUA end //LUA end //LUA for ClassMethodName,code in pairs(class.class_methods) do /*LUA method_headers = get_method_headers(code); if #method_headers > 0 then for i,func_header in ipairs(method_headers) do */ $$func_header$$ { } /*LUA end else */ static int $$ClassMethodName$$(lua_State *L) { } //LUA end //LUA end }; /*LUA -- extraemos el namespace: algo.otra.cosa... namespace = "" last_token = nil for token in string.gmatch(classname, '[^%.]+') do if last_token then */ } /*LUA end last_token = token end */ //LUA end //LUA end //LUA for func_name,code in pairs(FUNCTIONS) do /*LUA -- extraemos el namespace: algo.otra.cosa... namespace = "" last_token = nil for token in string.gmatch(func_name, '[^%.]+') do if last_token then */ namespace $$last_token$$ { /*LUA end last_token = token end doc_func_name = last_token */ /*LUA method_headers = get_method_headers(code); if #method_headers > 0 then for i,func_header in ipairs(method_headers) do */ $$func_header$$ { } /*LUA end else */ static int $$doc_func_name$$(lua_State *L) { } //LUA end /*LUA -- extraemos el namespace: algo.otra.cosa... namespace = "" last_token = nil for token in string.gmatch(func_name, '[^%.]+') do if last_token then */ } /*LUA end last_token = token end */ //LUA end //LUA for name,code in pairs(STATIC_CONSTRUCTOR) do /*LUA method_headers = get_method_headers(code); if #method_headers > 0 then for i,func_header in ipairs(method_headers) do */ $$func_header$$ { } /*LUA end else */ int $$name$$_STATIC_CONSTRUCTOR(lua_State *L) { } //LUA end //LUA end #endif april-ann-0.3.1/binding/bind_templates/luabind_template.cc000066400000000000000000000441171234204160600236250ustar00rootroot00000000000000// $$FILENAME$$ // Generado automáticamente por luabind el $$os.date()$$ // extern "C" { #include "lua.h" #include "lualib.h" #include "lauxlib.h" } #ifndef UNUSED_VARIABLE #define UNUSED_VARIABLE(x) (void)(x) #endif #include "$$string.gsub(FILENAME,".*/([%w_]+).cc","%1.h")$$" #include // para strerror #include // para utilizar exit #ifdef __GNUC__ #define UNUSED __attribute__((unused)) #else #define UNUSED #endif #ifdef __DEBUG__ #define DEBUG(a) printf("DEBUG %s\n",a);fflush(stdout) #define DEBUG_OBJ(a,o) printf("DEBUG(%p) %s\n",o,a);fflush(stdout) #include #else #define DEBUG(a) #define DEBUG_OBJ(a,o) #endif $$HEADER_C$$ #include "luabindutil.h" /*LUA -- Esta funcion creara un nombre de tablas -- jerarquico, del tipo a.b.c, y dejara -- en el tope de la pila la ultima tabla function lua_setdottedname(dottedname) local cpp_str = { "\nbool exists = false;\n", "lua_pushglobaltable(L);\n" } for subName in string.gmatch(dottedname, "([%w_]+)[%.]*") do table.insert(cpp_str, string.format([[ // stack: tablevieja lua_pushstring(L,"%s"); lua_rawget(L,-2); if (lua_isnil(L,-1)) { exists = false; lua_pop(L,1); lua_newtable(L); lua_pushstring(L,"%s"); lua_pushvalue(L,-2); // stack: tablanueva cadena tablanueva tablavieja ... lua_pushvalue(L,-1); // stack: tablanueva tablanueva cadena tablanueva tablavieja ... lua_setmetatable(L, -2); // stack: tablanueva cadena tablanueva tablavieja ... lua_rawset(L,-4); } else exists = true; //stack: tablanueva tablavieja lua_remove(L,-2); // stack: tablanueva ]], subName, subName)) end return table.concat(cpp_str); end */ //LUA for ClassName, class in pairs(CLASSES) do //LUA for MethodName in pairs(class.methods) do int lua_call_$$ClassName$$_$$MethodName$$(lua_State *L); //LUA end //LUA for ClassMethodName in pairs(class.class_methods) do int lua_call_class_$$ClassName$$_$$ClassMethodName$$(lua_State *L); //LUA end int lua_new_$$ClassName$$_$$FILENAME2$$(lua_State *L); int lua_delete_$$ClassName$$_$$FILENAME2$$(lua_State *L); $$ClassName$$ *lua_rawget$$ClassName$$_$$FILENAME2$$(lua_State *L, int index) { $$ClassName$$ **pre_obj = static_cast<$$ClassName$$**>(lua_touserdata(L,index)); $$ClassName$$ *obj = 0; if (pre_obj) obj = (*pre_obj); return obj; } //LUA if CREATE_CLASS[ClassName] then /* Implementacion :: */ $$ClassName$$ *lua_to$$ClassName$$(lua_State *L, int index){ $$ClassName$$ *obj = lua_rawget$$ClassName$$_$$FILENAME2$$(L,index); DEBUG_OBJ("lua_to$$ClassName$$", obj); if (obj == NULL) return 0; if (!lua_getmetatable(L,index)) return 0; // metatabla lua_pushstring(L,"__index"); lua_rawget(L,-2); // metatabla metainstance lua_pushstring(L,"is_$$(LUANAME[ClassName] or ClassName)$$"); lua_gettable(L,-2); if ( !lua_isboolean(L,-1)) { obj = NULL; } lua_pop(L,3); return obj; } int lua_is$$ClassName$$(lua_State *L, int index){ int result; $$ClassName$$ *obj = lua_rawget$$ClassName$$_$$FILENAME2$$(L,index); DEBUG_OBJ("lua_is$$ClassName$$", obj); if (obj == NULL) return 0; if (!lua_getmetatable(L,index)) return 0; // metatabla lua_pushstring(L,"__index"); lua_rawget(L,-2); // metatabla metainstance lua_pushstring(L,"is_$$(LUANAME[ClassName] or ClassName)$$"); lua_gettable(L,-2); result = lua_isboolean(L,-1); lua_pop(L,3); return ( result != 0 ); } void lua_push$$ClassName$$(lua_State *L, $$ClassName$$ *obj){ // We do IncRef as soon as possible avoiding GARBAGE COLLECTOR to removes // our instance IncRef(obj); // $$ClassName$$ **ptr; DEBUG("lua_push$$ClassName$$ (begin)"); ptr = static_cast<$$ClassName$$**>( lua_newuserdata(L,sizeof($$ClassName$$*)) ); // instance *ptr = obj; // pila = ptr // le asociamos al userdata la metatabla que le corresponde lua_pushstring(L,"luabind_classes"); // pila = ptr, "luabind_clases" lua_rawget(L,LUA_REGISTRYINDEX); // pila = ptr, luabind_clases lua_pushstring(L,"$$(LUANAME[ClassName] or ClassName)$$"); // pila = ptr, luabind_clases ClassName lua_rawget(L,-2); // pila = ptr, luabind_clases luabind_clases[ClassName] DEBUG_OBJ("lua_push$$ClassName$$",obj); lua_pushstring(L,"meta_instance"); // pila = ptr, luabind_clases luabind_clases[ClassName] "metainstance" lua_rawget(L,-2); // class_table // pila = ptr, table:luabind_clases luabind_clases[ClassName] metainstance lua_setmetatable(L,-4); // obj_index // pila = ptr, table:luabind_clases luabind_clases[ClassName] lua_pop(L,2); // pila = ptr DEBUG("lua_push$$ClassName$$ (end)"); } //LUA end // Macros para el constructor #undef FUNCTION_NAME #define FUNCTION_NAME "$$(LUANAME[ClassName] or ClassName)$$:$$(LUANAME[ClassName] or ClassName)$$" #include "luabindmacros.h" int lua_new_$$ClassName$$_$$FILENAME2$$(lua_State *L) { // stops garbage collector to avoid problems with reference counting lua_gc(L, LUA_GCSTOP, 0); lua_remove(L,1); // primer parametro es la metatabla __call(table,...) $$ClassName$$ UNUSED *obj = 0; DEBUG("lua_new_$$ClassName$$ (begin)"); int luabind_num_returned_values = 0; $$class.constructor$$ DEBUG("lua_new_$$ClassName$$ (end)"); if (luabind_num_returned_values != 1) { LUABIND_ERROR("constructors must return 1 (and only 1) value"); } // restart the garbage collector lua_gc(L, LUA_GCRESTART, 0); return luabind_num_returned_values; } int lua_delete_$$ClassName$$_$$FILENAME2$$(lua_State *L){ // stops garbage collector to avoid problems with reference counting lua_gc(L, LUA_GCSTOP, 0); $$ClassName$$ *obj = lua_rawget$$ClassName$$_$$FILENAME2$$(L,1); if (obj != 0) { DEBUG_OBJ("lua_delete_$$ClassName$$ (begin)",obj); $$class.destructor$$ DEBUG_OBJ("lua_delete_$$ClassName$$ (end)",obj); // Hacemos un DecRef para borrar la referencia a este objeto DecRef(obj); } // FIXME: This warning is due to the META_INSTANCE table, which is a metatable // of itself and has a __gc method, so at the end of APRIL execution, the __gc // is executed with a NULL pointer else { DEBUG_OBJ("lua_delete_$$ClassName$$ WARNING!! NULL pointer", obj); } // restart the garbage collector lua_gc(L, LUA_GCRESTART, 0); return 0; } void bindluaopen_$$ClassName$$_$$FILENAME2$$(lua_State *L){ int meta_instance; // instance's metatable int meta_class; // class's metatable int class_table; // tabla de la clase int instance_methods;// metodos DEBUG("bindluaopen_$$ClassName$$_$$FILENAME2$$ (begin)"); // Creamos la tabla para la clase $$lua_setdottedname(LUANAME[ClassName])$$ // stack: last_table if (exists) { DEBUG("bindluaopen_$$ClassName$$_$$FILENAME2$$ (exists table)"); lua_pushstring(L,"luabind_classes"); lua_rawget(L,LUA_REGISTRYINDEX); exists = false; if (not lua_isnil(L,-1)) { // stack: luabind_class class_table lua_pushstring(L,"$$(LUANAME[ClassName] or ClassName)$$"); // stack: cadena luabind_class class_table lua_rawget(L,-2); // stack: value luabind_class class_table if (not lua_isnil(L,-1)) { // Ya existe esta clase en el registry exists = true; } // stack: nil luabind_class class_table lua_pop(L, 2); } else { // stack: nil last_table lua_pop(L, 1); } } class_table = lua_gettop(L); if (not exists) { DEBUG("bindluaopen_$$ClassName$$_$$FILENAME2$$ (creating class)"); // creamos las tablas y guardamos los indices lua_newtable(L); meta_instance = lua_gettop(L); lua_newtable(L); meta_class = lua_gettop(L); lua_newtable(L); instance_methods = lua_gettop(L); // __tostring lua_pushstring(L,"__tostring"); lua_pushcfunction(L,lua_print_name_instance); lua_settable(L,meta_instance); lua_pushstring(L,"__tostring"); lua_pushcfunction(L,lua_print_name_class); lua_settable(L,meta_class); // Class metatable lua_pushstring(L,"__call"); lua_pushvalue(L,class_table); lua_pushcclosure(L, lua_new_$$ClassName$$_$$FILENAME2$$,1); lua_settable(L,meta_class); // Class table lua_pushstring(L,"meta_instance"); lua_pushvalue(L,meta_instance); lua_settable(L,class_table); // Meta_instance lua_pushstring(L,"__gc"); lua_pushcfunction(L,lua_delete_$$ClassName$$_$$FILENAME2$$); lua_settable(L,meta_instance); lua_pushstring(L,"__eq"); lua_pushcfunction(L,equaluserdata); lua_settable(L,meta_instance); lua_pushstring(L,"__index"); lua_pushvalue(L,instance_methods); lua_settable(L,meta_instance); lua_pushstring(L,"is_$$(LUANAME[ClassName] or ClassName)$$"); //table's (class) id... lua_pushboolean(L,1); lua_settable(L,instance_methods); lua_pushstring(L,"id"); //table's (class) id... lua_pushstring(L,"$$(LUANAME[ClassName] or ClassName)$$"); lua_settable(L,meta_instance); // todo: revisar si dejamos esto: lua_pushstring(L,"id"); //table's (class) id... lua_pushstring(L,"$$(LUANAME[ClassName] or ClassName)$$ class"); lua_settable(L,meta_class); // class metatable lua_pushvalue(L,meta_class); lua_setmetatable(L,class_table); // luabind_classes at RegistryIndex lua_pushstring(L,"luabind_classes"); lua_rawget(L,LUA_REGISTRYINDEX); if (lua_isnil(L,-1)){ lua_pop(L,1); lua_newtable(L); lua_pushstring(L,"luabind_classes"); lua_pushvalue(L,-2); lua_rawset(L,LUA_REGISTRYINDEX); } lua_pushstring(L,"$$(LUANAME[ClassName] or ClassName)$$"); lua_pushvalue(L,class_table); lua_rawset(L,-3); /* Esto no hace falta lua_pushstring(L,"$$(LUANAME[ClassName] or ClassName)$$"); lua_pushvalue(L,class_table); lua_rawset(L,LUA_RIDX_GLOBALS); */ lua_pop(L,1); // luabind_classes } else { DEBUG("bindluaopen_$$ClassName$$_$$FILENAME2$$ (acess created class)"); // Ya existe la clase, buscamos las tablas // stack: class_table lua_pushstring(L,"meta_instance"); lua_gettable(L, class_table); // stack: meta_instance class_table meta_instance = lua_gettop(L); lua_pushstring(L,"__index"); lua_gettable(L, meta_instance); // stack: instance_methods meta_instance class_table instance_methods = lua_gettop(L); } DEBUG("bindluaopen_$$ClassName$$_$$FILENAME2$$ (methods)"); // Instance_methods //LUA for MethodName in pairs(class.methods) do lua_pushstring(L,"$$MethodName$$"); lua_pushcfunction(L,lua_call_$$ClassName$$_$$MethodName$$); lua_settable(L,instance_methods); //LUA end // class_methods //LUA for ClassMethodName in pairs(class.class_methods) do lua_pushstring(L,"$$ClassMethodName$$"); lua_pushcfunction(L,lua_call_class_$$ClassName$$_$$ClassMethodName$$); lua_settable(L,class_table); //LUA end if (exists) { // Eliminamos las tablas que hemos puesto en la pila lua_pop(L, 3); } else { lua_pop(L,4); // created tables } //LUA if class.class_open ~= "" then // Codigo a ejecutar cuando se hace open de la clase DEBUG("bindluaopen_$$ClassName$$_$$FILENAME2$$ (open)"); { $$class.class_open$$ } //LUA end DEBUG("bindluaopen_$$ClassName$$_$$FILENAME2$$ (end)"); } //LUA for MethodName,code in pairs(class.methods) do #undef FUNCTION_NAME #define FUNCTION_NAME "$$(LUANAME[ClassName] or ClassName)$$:$$MethodName$$" #include "luabindmacros.h" int lua_call_$$ClassName$$_$$MethodName$$(lua_State *L){ // stops garbage collector to avoid problems with reference counting lua_gc(L, LUA_GCSTOP, 0); //Comprobamos que el primer elemento sea el userdata que esperamos if (!lua_is$$ClassName$$(L,1)) { lua_pushstring(L, "First argument of $$MethodName$$ must be of type " "$$ClassName$$. Did you use '.' instead of ':'?"); lua_error(L); } $$ClassName$$ *obj = lua_rawget$$ClassName$$_$$FILENAME2$$(L,1); int luabind_num_returned_values = 0; DEBUG_OBJ("lua_call_$$ClassName$$_$$MethodName$$ (begin)", obj); lua_remove(L,1); // methods do not need the instance pointer // CODE: { $$code$$ } DEBUG_OBJ("lua_call_$$ClassName$$_$$MethodName$$ (end)", obj); // restart the garbage collector lua_gc(L, LUA_GCRESTART, 0); return luabind_num_returned_values; } //LUA end //LUA for ClassMethodName,code in pairs(class.class_methods) do #undef FUNCTION_NAME #define FUNCTION_NAME "$$(LUANAME[ClassName] or ClassName)$$:$$ClassMethodName$$" #include "luabindmacros.h" int lua_call_class_$$ClassName$$_$$ClassMethodName$$(lua_State *L){ DEBUG("lua_call_class_$$ClassName$$_$$ClassMethodName$$"); // stops garbage collector to avoid problems with reference counting lua_gc(L, LUA_GCSTOP, 0); int luabind_num_returned_values = 0; // CODE: { $$code$$ } // restart the garbage collector lua_gc(L, LUA_GCRESTART, 0); return luabind_num_returned_values; } //LUA end //LUA end //LUA for func_name,code in pairs(FUNCTIONS) do #undef FUNCTION_NAME #define FUNCTION_NAME "$$func_name$$" #include "luabindmacros.h" static int lua_call_$$string.gsub(func_name,"%p","_")$$(lua_State *L){ // stops garbage collector to avoid problems with reference counting lua_gc(L, LUA_GCSTOP, 0); lua_remove(L,1); // primer parametro es la metatabla __call(table,...) DEBUG("lua_call_$$string.gsub(func_name,"%p","_")$$ (begin)"); int luabind_num_returned_values = 0; $$code$$ // restart the garbage collector lua_gc(L, LUA_GCRESTART, 0); DEBUG("lua_call_$$string.gsub(func_name,"%p","_")$$ (end)"); return luabind_num_returned_values; } //LUA end int lua_register_tables_$$FILENAME2$$(lua_State *L){ UNUSED_VARIABLE(L); DEBUG("lua_register_tables_$$FILENAME2$$ (begin)"); //LUA for table_name in pairs(TABLES) do { $$lua_setdottedname(table_name)$$ } lua_pop(L,1); //LUA end //LUA for func_name in pairs(FUNCTIONS) do { $$lua_setdottedname(func_name)$$ } // stack: table lua_pushvalue(L,-1); // stack: table table lua_setmetatable(L,-2); // stack: table lua_pushstring(L, "__call"); // stack: cadena table lua_pushcfunction(L, lua_call_$$string.gsub(func_name,"%p","_")$$); // stack: funcion cadena table lua_rawset(L, -3); // stack: table lua_pop(L,1); //LUA end //LUA for varsTblName,vars in pairs(ENUM_CONSTANT) do { $$lua_setdottedname(varsTblName)$$ } //LUA for varName,varValue in pairs(vars) do // stack: table lua_pushstring(L, "$$varName$$"); // stack: string table lua_pushnumber(L, $$varValue$$); // stack: value string table lua_rawset(L, -3); // stack: table lua_pushnumber(L, $$varValue$$); // stack: value table lua_rawget(L, -2); if (lua_isnil(L, -1)) { // stack: nil table lua_pop(L,1); // stack: table lua_pushnumber(L, $$varValue$$); // stack: value table lua_pushstring(L, "$$varName$$"); // stack: string value table lua_rawset(L, -3); // stack: table } else { fprintf(stderr, "ENUM_CONSTANT value is repeated: $$varsTblName$$.$$varName$$\n"); exit(10); } //LUA end lua_pop(L,1); //LUA end //LUA for varsTblName,vars in pairs(STRING_CONSTANT) do { $$lua_setdottedname(varsTblName)$$ } //LUA for varName,varValue in pairs(vars) do // stack: table lua_pushstring(L, "$$varName$$"); // stack: string table lua_pushstring(L, $$varValue$$); // stack: value string table lua_rawset(L, -3); // stack: table lua_pushstring(L, $$varValue$$); // stack: value table lua_rawget(L, -2); if (lua_isnil(L, -1)) { // stack: nil table lua_pop(L,1); // stack: table lua_pushstring(L, $$varValue$$); // stack: value table lua_pushstring(L, "$$varName$$"); // stack: string value table lua_rawset(L, -3); // stack: table } else { fprintf(stderr, "STRING_CONSTANT value is repeated: $$varsTblName$$.$$varName$$\n"); exit(10); } //LUA end lua_pop(L,1); //LUA end DEBUG("lua_register_tables_$$FILENAME2$$ (end)"); return 0; } int lua_register_subclasses_$$FILENAME2$$(lua_State *L){ UNUSED_VARIABLE(L); DEBUG("lua_register_subclasses_$$FILENAME2$$ (begin)"); //LUA for childclass, parentclass in pairs(PARENT_CLASS) do // buscamos la metatabla de la clase child lua_pushstring(L,"luabind_classes"); // pila = ... "luabind_clases" lua_rawget(L,LUA_REGISTRYINDEX); // pila = ... luabind_clases lua_pushstring(L,"$$(LUANAME[childclass] or childclass)$$"); // pila = ... luabind_clases childclass lua_rawget(L,-2); // pila = ... luabind_clases luabind_clases[childclass] lua_pushstring(L,"meta_instance"); // pila = ... luabind_clases luabind_clases[childclass] "metainstance" lua_rawget(L,-2); // class_table // pila = ... luabind_clases luabind_clases[childclass] child_metainstance lua_pushstring(L,"__index"); // pila = ... luabind_clases luabind_clases[childclass] child_metainstance "__index" lua_rawget(L,-2); // pila = ... luabind_clases luabind_clases[childclass] child_metainstance child_metainstance[__index] lua_remove(L,-2); // pila = ... luabind_clases luabind_clases[childclass] child_metainstance[__index] lua_pushstring(L,"$$(LUANAME[parentclass] or parentclass)$$"); // pila = ... luabind_clases luabind_clases[childclass] child_metainstance[__index] parentclass_string lua_rawget(L,-4); // -4 deberia ser luabind_clases // pila = ... luabind_clases luabind_clases[childclass] // child_metainstance[__index] luabindclasses[parentclass] lua_pushstring(L,"meta_instance"); // pila = ... luabind_clases luabind_clases[childclass] // child_metainstance[__index] luabindclasses[parentclass] "meta_instance" lua_rawget(L,-2); // class_table // pila = ... luabind_clases luabind_clases[childclass] // child_meta_instance[__index] luabindclasses[parentclass] parent_meta_instance lua_setmetatable(L,-3); // pila = ... luabind_clases luabind_clases[childclass] // child_meta_instance[__index] luabindclasses[parentclass] lua_pop(L,4); // pila = ... //LUA end DEBUG("lua_register_subclasses_$$FILENAME2$$ (end)"); return 0; } //LUA for name,code in pairs(STATIC_CONSTRUCTOR) do int lua_execute_static_constructor_$$FILENAME2$$_$$name$$(lua_State *L) { UNUSED_VARIABLE(L); DEBUG("lua_execute_static_constructor_$$FILENAME2$$_$$name$$ (begin)"); $$code$$ DEBUG("lua_execute_static_constructor_$$FILENAME2$$_$$name$$ (end)"); return 0; } //LUA end april-ann-0.3.1/binding/bind_templates/luabind_template.h000066400000000000000000000025251234204160600234640ustar00rootroot00000000000000// $$FILENAME$$ // Generado automáticamente por luabind el $$os.date()$$ #ifndef LUA_BIND_$$FILENAME2$$_H #define LUA_BIND_$$FILENAME2$$_H extern "C" { #include } $$HEADER_H$$ //LUA for ClassName, class in pairs(CLASSES) do #ifndef LUA_BIND_$$ClassName$$_$$FILENAME2$$_H #define LUA_BIND_$$ClassName$$_$$FILENAME2$$_H extern "C" { void bindluaopen_$$ClassName$$_$$FILENAME2$$(lua_State *L); } //LUA if CREATE_CLASS[ClassName] then int lua_is$$ClassName$$(lua_State *L, int index); $$ClassName$$ *lua_to$$ClassName$$(lua_State *L, int index); void lua_push$$ClassName$$(lua_State *L, $$ClassName$$ *obj); //LUA end /*LUA -- las lineas de salida estandar que empiecen por "...register:" se utilizan para registrar ciertas funciones oldprint("...register:bindluaopen_"..ClassName.."_"..FILENAME2) */ #endif //LUA end extern "C" { int lua_register_tables_$$FILENAME2$$(lua_State *L); } //LUA oldprint("...register:lua_register_tables_"..FILENAME2) extern "C" { int lua_register_subclasses_$$FILENAME2$$(lua_State *L); } //LUA oldprint("...register:lua_register_subclasses_"..FILENAME2) //LUA for name,code in pairs(STATIC_CONSTRUCTOR) do extern "C" { int lua_execute_static_constructor_$$FILENAME2$$_$$name$$(lua_State *L); } //LUA oldprint("...register:lua_execute_static_constructor_"..FILENAME2.."_"..name) //LUA end #endif april-ann-0.3.1/binding/c_src/000077500000000000000000000000001234204160600160755ustar00rootroot00000000000000april-ann-0.3.1/binding/c_src/luabindmacros.h000066400000000000000000000077321234204160600211020ustar00rootroot00000000000000#undef LUABIND_CHECK_ARGN #define LUABIND_CHECK_ARGN(op, n) \ do { \ int luabind_n = (n); \ int argn = lua_gettop(L); \ if (!(argn op luabind_n)) { \ lua_pushfstring(L, FUNCTION_NAME "() requires " #op " " #n " arguments" \ "(%d given)", argn); \ lua_error(L); \ } \ } while(0) #undef LUABIND_CHECK_PARAMETER #define LUABIND_CHECK_PARAMETER(i, type) \ do { \ int luabind_pos = (i); \ if (!lua_is##type(L, luabind_pos)) { \ lua_pushfstring(L, FUNCTION_NAME "() requires a %s as its " #i "%s parameter", \ #type, (luabind_pos==1 ? "st" : (luabind_pos==2 ? "nd" : (luabind_pos==3 ? "rd" : "th")))); \ lua_error(L); \ } \ } while(0) #undef LUABIND_GET_PARAMETER #define LUABIND_GET_PARAMETER(i, type, var) \ do { \ int luabind_pos = (i); \ if (!lua_is##type(L, luabind_pos)) { \ lua_pushfstring(L, FUNCTION_NAME "() requires a %s as its " #i "%s parameter", \ #type, (luabind_pos==1 ? "st" : (luabind_pos==2 ? "nd" : (luabind_pos==3 ? "rd" : "th")))); \ lua_error(L); \ } \ var = lua_to##type(L, luabind_pos); \ } while(0) #undef LUABIND_GET_OPTIONAL_PARAMETER #define LUABIND_GET_OPTIONAL_PARAMETER(i, type, var, default_value) \ do { \ int luabind_pos = (i); \ if (lua_type(L, luabind_pos) == LUA_TNONE || lua_isnil(L, luabind_pos)) var = default_value; \ else { \ if (!lua_is##type(L, luabind_pos)) { \ lua_pushfstring(L, FUNCTION_NAME "() requires a %s as its %d%s parameter", \ #type, luabind_pos, (luabind_pos==1 ? "st" : (luabind_pos==2 ? "nd" : (luabind_pos==3 ? "rd" : "th")))); \ lua_error(L); \ } \ var = lua_to##type(L, luabind_pos); \ } \ } while(0) #undef LUABIND_GET_TABLE_PARAMETER #define LUABIND_GET_TABLE_PARAMETER(i, name, type, var) \ do { \ int luabind_pos_table = (i); \ lua_pushstring(L, #name); \ lua_rawget(L, luabind_pos_table); \ if (!lua_is##type(L,-1)) { \ lua_pushfstring(L, FUNCTION_NAME "() requires a \"%s\" field with type \"%s\" " \ "in its " #i "%s parameter", #name, #type, \ (luabind_pos_table==1 ? "st" : (luabind_pos_table==2 ? "nd" : (luabind_pos_table==3 ? "rd" : "th")))); \ lua_error(L); \ } \ var = lua_to##type(L, -1); \ lua_pop(L, 1); \ } while (0) #undef LUABIND_GET_TABLE_OPTIONAL_PARAMETER #define LUABIND_GET_TABLE_OPTIONAL_PARAMETER(i, name, type, var, default_value) \ do { \ int luabind_pos_table = (i); \ lua_pushstring(L, #name); \ lua_rawget(L, luabind_pos_table); \ if (lua_isnil(L, -1)) var = default_value; \ else { \ if (!lua_is##type(L,-1)) { \ lua_pushfstring(L, FUNCTION_NAME "() requires a \"%s\" field " \ "with type \"%s\" in its " #i "%s parameter", #name, #type, \ (luabind_pos_table==1 ? "st" : (luabind_pos_table==2 ? "nd" : (luabind_pos_table==3 ? "rd" : "th")))); \ lua_error(L); \ } \ var = lua_to##type(L, -1); \ } \ lua_pop(L, 1); \ } while (0) #undef LUABIND_ERROR #define LUABIND_ERROR(str) \ do {\ lua_pushstring(L, FUNCTION_NAME ": " str); \ lua_error(L); \ } while (0) #undef LUABIND_FERROR1 #define LUABIND_FERROR1(str, p1) \ do {\ lua_pushfstring(L, FUNCTION_NAME ": " str, p1); \ lua_error(L); \ } while (0) #undef LUABIND_FERROR2 #define LUABIND_FERROR2(str, p1, p2) \ do {\ lua_pushfstring(L, FUNCTION_NAME ": " str, p1, p2); \ lua_error(L); \ } while (0) #undef LUABIND_FERROR3 #define LUABIND_FERROR3(str, p1, p2, p3) \ do {\ lua_pushfstring(L, FUNCTION_NAME ": " str, p1, p2, p3); \ lua_error(L); \ } while (0) #undef LUABIND_FERROR4 #define LUABIND_FERROR4(str, p1, p2, p3, p4) \ do {\ lua_pushfstring(L, FUNCTION_NAME ": " str, p1, p2, p3, p4); \ lua_error(L); \ } while (0) #undef LUABIND_FERROR5 #define LUABIND_FERROR5(str, p1, p2, p3, p4, p5) \ do {\ lua_pushfstring(L, FUNCTION_NAME ": " str, p1, p2, p3, p4, p5); \ lua_error(L); \ } while (0) april-ann-0.3.1/binding/c_src/luabindutil.cc000066400000000000000000000125721234204160600207270ustar00rootroot00000000000000#include "luabindutil.h" #include #include bool lua_isFILE(lua_State *L, int idx) { void *ud; luaL_checkany(L, idx); ud = lua_touserdata(L, idx); lua_getfield(L, LUA_REGISTRYINDEX, LUA_FILEHANDLE); if (ud == NULL || !lua_getmetatable(L, 1) || !lua_rawequal(L, -2, -1)) return false; /* not a file */ else if (*((FILE **)ud) == NULL) return false; else return true; } FILE* lua_toFILE(lua_State *L, int idx) { void *ud; luaL_checkany(L, idx); ud = lua_touserdata(L, idx); lua_getfield(L, LUA_REGISTRYINDEX, LUA_FILEHANDLE); if (ud == NULL || !lua_getmetatable(L, 1) || !lua_rawequal(L, -2, -1)) return 0; /* not a file */ return *((FILE **)ud); } int equaluserdata(lua_State *L) { void **ptra = (void**)lua_touserdata(L,1); void **ptrb = (void**)lua_touserdata(L,2); lua_pushboolean(L, (*ptra == *ptrb)); return 1; } bool lua_tobool(lua_State *L, int idx) { return (bool)(lua_toboolean(L, idx)); } int lua_toint(lua_State *L, int idx) { // FIXME: Considerar si vale la pena comprobar si el numero // leido es realmente un entero return int(lua_tonumber(L, idx)); } int64_t lua_toint64(lua_State *L, int idx) { // FIXME: Considerar si vale la pena comprobar si el numero // leido es realmente un entero return int64_t(lua_tonumber(L, idx)); } unsigned int lua_touint(lua_State *L, int idx) { // FIXME: Considerar si vale la pena comprobar si el numero // leido es realmente un entero return (unsigned int)(lua_tonumber(L, idx)); } float lua_tofloat(lua_State *L, int idx) { return float(lua_tonumber(L, idx)); } double lua_todouble(lua_State *L, int idx) { return double(lua_tonumber(L, idx)); } char *lua_toNEW_STRING(lua_State *L, int idx) { int len = lua_strlen(L, idx); char *buf = new char[len+1]; // Segun el manual de lua, el resultado de lua_tostring siempre lleva // un '\0' al final, asi que es seguro copiar len+1 caracteres memcpy(buf, lua_tostring(L, idx), len+1); return buf; } char lua_tochar(lua_State *L, int idx) { // FIXME: Considerar si vale la pena comprobar que la cadena // consta realmente de un unico caracter return lua_tostring(L, idx)[0]; } void *lua_tolightuserdata(lua_State *L, int idx) { return lua_touserdata(L, idx); } bool lua_isbool(lua_State *L, int idx) { return lua_isboolean(L,idx); } bool lua_isint(lua_State *L, int idx) { if(!lua_isnumber(L, idx)) return false; else { double d = lua_tonumber(L, idx); return (d == int(d)); } } bool lua_isint64(lua_State *L, int idx) { if(!lua_isnumber(L, idx)) return false; else { double d = lua_tonumber(L, idx); return (d == int64_t(d)); } } bool lua_isuint(lua_State *L, int idx) { if(!lua_isnumber(L, idx)) return false; else { double d = lua_tonumber(L, idx); return (d == (unsigned int)(d)); } } bool lua_isfloat(lua_State *L, int idx) { return lua_isnumber(L, idx); } bool lua_isdouble(lua_State *L, int idx) { return lua_isnumber(L, idx); } bool lua_ischar(lua_State *L, int idx) { return (lua_isstring(L, idx) && (lua_strlen(L, idx) == 1)); } bool lua_isNEW_STRING(lua_State *L, int idx) { return lua_isstring(L, idx); } bool lua_isconstString(lua_State *L, int idx) { return lua_isstring(L, idx); } void lua_pushbool(lua_State *L, bool value) { lua_pushboolean(L, value); } void lua_pushint(lua_State *L, int value) { lua_pushnumber(L, value); } void lua_pushint(lua_State *L, int64_t value) { lua_pushnumber(L, value); } void lua_pushuint(lua_State *L, unsigned int value) { lua_pushnumber(L, value); } void lua_pushfloat(lua_State *L, float value) { lua_pushnumber(L, value); } void lua_pushdouble(lua_State *L, double value) { lua_pushnumber(L, value); } void lua_pushchar(lua_State *L, char value) { lua_pushlstring(L, &value, 1); } int lua_print_name_instance(lua_State *L) { char buff[128]; if (lua_istable(L,1)) { sprintf(buff,"this instance is a table (%p) not a userdata", lua_topointer(L,1)); } else { void **ptr = (void**)lua_touserdata(L,1); if (!lua_getmetatable(L,1)) { sprintf(buff,"unknown object %p",(void*)ptr); } else { lua_pushstring(L,"id"); lua_rawget(L,-2); const char *class_name = lua_tostring(L,-1); if (class_name == 0) { sprintf(buff,"unknown object %p",(void*)ptr); } else { sprintf(buff,"instance %p of %s",*ptr,class_name); } lua_pop(L,2); } } lua_pushstring(L, buff); return 1; } int lua_print_name_class(lua_State *L) { char buff[128]; sprintf(buff,"unknown class"); if (lua_getmetatable(L,1)) { lua_pushstring(L,"id"); lua_rawget(L,-2); const char *class_name = lua_tostring(L,-1); if (class_name) { sprintf(buff,"class %s",class_name); } lua_pop(L,2); } lua_pushstring(L, buff); return 1; } void check_table_fields(lua_State *L, int idx, ...) { lua_pushnil(L); while(lua_next(L, idx) != 0) { // Clave en -2, valor en -1 lua_pop(L, 1); // el valor no interesa, clave en -1 const char *key = lua_tostring(L, -1); va_list ap; va_start(ap, idx); const char *word = va_arg(ap, const char *); bool found = false; while (word != 0) { if (strcmp(word, key) == 0) { found = true; break; } word = va_arg(ap, const char *); } va_end(ap); if (!found) { lua_pushfstring(L, "ERROR: field %s not allowed in table", key); lua_error(L); } } } april-ann-0.3.1/binding/c_src/luabindutil.h000066400000000000000000000076351234204160600205750ustar00rootroot00000000000000#ifndef LUABINDUTIL_H #define LUABINDUTIL_H #include extern "C" { #include "lua.h" #include "lualib.h" #include "lauxlib.h" } int equaluserdata(lua_State *L); typedef char* NEW_STRING; #define lua_strlen(L,idx) luaL_len((L),(idx)) bool lua_tobool(lua_State *L, int idx); int lua_toint(lua_State *L, int idx); int64_t lua_toint64(lua_State *L, int idx); unsigned int lua_touint(lua_State *L, int idx); float lua_tofloat(lua_State *L, int idx); double lua_todouble(lua_State *L, int idx); char *lua_toNEW_STRING(lua_State *L, int idx); char lua_tochar(lua_State *L, int idx); void *lua_tolightuserdata(lua_State *L, int idx); #ifdef CONSTSTRING_H inline constString lua_toconstString(lua_State *L, int idx) { return constString(lua_tostring(L, idx),lua_strlen(L, idx)); } #endif bool lua_isFILE(lua_State *L, int idx); FILE* lua_toFILE(lua_State *L, int idx); bool lua_isbool(lua_State *L, int idx); bool lua_isint(lua_State *L, int idx); bool lua_isint64(lua_State *L, int idx); bool lua_isuint(lua_State *L, int idx); bool lua_isfloat(lua_State *L, int idx); bool lua_isdouble(lua_State *L, int idx); bool lua_ischar(lua_State *L, int idx); bool lua_isNEW_STRING(lua_State *L, int idx); bool lua_isconstString(lua_State *L, int idx); void lua_pushbool(lua_State *L, bool value); void lua_pushint(lua_State *L, int value); void lua_pushint64(lua_State *L, int64_t value); void lua_pushuint(lua_State *L, unsigned int value); void lua_pushfloat(lua_State *L, float value); void lua_pushdouble(lua_State *L, double value); void lua_pushchar(lua_State *L, char value); int lua_print_name_instance(lua_State *L); int lua_print_name_class(lua_State *L); void check_table_fields(lua_State *L, int idx, ...); #define LUABIND_TABLE_GETN(idx, var) \ do { \ var = (int)luaL_len(L,idx); \ } while (0) #define LUABIND_TABLE_TO_VECTOR(table, tipo, vector, longitud) \ do { \ int luabind_len = (longitud); \ int luabind_table = (table); \ for(int luabind_i=0; luabind_i < luabind_len; luabind_i++) { \ lua_rawgeti(L, luabind_table, luabind_i+1); \ vector[luabind_i] = lua_to##tipo(L, -1); \ lua_pop(L,1); \ } \ } while (0) #define LUABIND_TABLE_TO_VECTOR_SUB1(table, tipo, vector, longitud) \ do { \ int luabind_len = (longitud); \ int luabind_table = (table); \ for(int luabind_i=0; luabind_i < luabind_len; luabind_i++) { \ lua_rawgeti(L, luabind_table, luabind_i+1); \ vector[luabind_i] = lua_to##tipo(L, -1) - 1; \ lua_pop(L,1); \ } \ } while (0) #define LUABIND_VECTOR_TO_NEW_TABLE(tipo, vector, longitud) \ do { \ int luabind_len = longitud; \ const tipo *luabind_vector = vector; \ lua_createtable (L, luabind_len, 0); \ for(int luabind_i=0; luabind_i < luabind_len; luabind_i++) { \ lua_push##tipo(L,luabind_vector[luabind_i]); \ lua_rawseti(L,-2,luabind_i+1); \ } \ } while (0) #define LUABIND_FORWARD_CONTAINER_TO_NEW_TABLE(container_type, data_type, container) \ do { \ const container_type *luabind_container = &container; \ lua_createtable (L, luabind_container->size(), 0); \ int luabind_index = 1; \ for (container_type::const_iterator luabind_i = luabind_container->begin(); \ luabind_i != luabind_container->end(); \ ++luabind_i) { \ lua_push##data_type(L, *luabind_i); \ lua_rawseti(L, -2, luabind_index++); \ } \ } while(0) #define LUABIND_RETURN(type, value) \ do { \ lua_push##type(L, (value)); \ ++luabind_num_returned_values; \ } while (0) #define LUABIND_RETURN_NIL() \ do { \ lua_pushnil(L); \ ++luabind_num_returned_values; \ } while (0) #define LUABIND_RETURN_FROM_STACK(index) \ do { \ lua_pushvalue(L, index); \ ++luabind_num_returned_values; \ } while (0) #define LUABIND_INCREASE_NUM_RETURNS(value) luabind_num_returned_values+=(value) #endif // LUABINDUTIL_H april-ann-0.3.1/binding/c_src/utilLua.cc000066400000000000000000000052371234204160600200320ustar00rootroot00000000000000#include "utilLua.h" //devuelve true si consigue leer "name" en la tabla que esté en el top // y en v[] deja los n primeros valores bool leer_int_params(lua_State *L, const char *name, int *v, int n) { // table lua_pushstring(L, name); // name (atributo) lua_gettable(L,-2); if (!lua_istable(L,-1)) { lua_pop(L,1); //remove string return false; } // tabla del atributo for (int i = 1; i <= n; i++) { lua_rawgeti(L, -1, i); v[i-1] = (int)luaL_checknumber(L, -1); lua_pop(L,1); } lua_pop(L,1); //tabla del atributo return true; } //idem pero leyendo bool's bool leer_bool_params(lua_State *L, const char *name, bool *v, int n) { // table lua_pushstring(L, name); // name (atributo) lua_gettable(L,-2); if (!lua_istable(L,-1)) { lua_pop(L,1); //remove string return false; } // tabla del atributo for (int i = 1; i <= n; i++) { lua_rawgeti(L, -1, i); v[i-1] = (lua_toboolean(L, -1) != 0); lua_pop(L,1); } lua_pop(L,1); //tabla del atributo return true; } int table_to_char_vector(lua_State *L, char ***vec) { int length = table_getn(L); char **v = new char*[length]; for (int i=0; i #include #include } //devuelve true si consigue leer "name" en la tabla que esté en el top // y en v[] deja los n primeros valores bool leer_int_params(lua_State *L, const char *name, int *v, int n); //idem pero leyendo bool's bool leer_bool_params(lua_State *L, const char *name, bool *v, int n); // toma una tabla en la pila y devuelve la longitud de la misma // la pila se queda igual, con la tabla en el tope #define table_getn(L) luaL_len((L),-1); // cargan una tabla que contiene valores de tipo int, float o double // devuelve el tamaño del vector reservado usando new tipo[...] que // se devuelve por el argumento. Es responsabilidad del que llama // liberar esa memoria usando delete[] int table_to_int_vector(lua_State *L, int **vec, int offset=0); int table_to_float_vector(lua_State *L, float **vec); int table_to_double_vector(lua_State *L, double **vec); int table_to_char_vector(lua_State *L, char ***vec); // crea una tabla lua en la que pone un vector vec de enteros de talla // sz void int_vector_to_table( lua_State *L, int *vec, int sz, int first=1); void float_vector_to_table( lua_State *L, float *vec, int sz, int first=1); void double_vector_to_table(lua_State *L, double *vec, int sz, int first=1); #endif // UTILLUA_H april-ann-0.3.1/binding/doc/000077500000000000000000000000001234204160600155515ustar00rootroot00000000000000april-ann-0.3.1/binding/doc/userman.txt000066400000000000000000000254511234204160600177730ustar00rootroot00000000000000Manual para uso del Bindeador ============================= El uso basico del bindeador es para poder hacer wrappers de clases C++, puediendo utilizarlas desde lua. Este uso basico se ve extendido añadiendo la posibilidad de bindear tambien funciones C/C++ para que sean visibles en un lugar del espacio de nombres y tablas de lua. Todo esto se lleva a cabo mediante una serie de macros especiales. Todas las macros del bindeador tienen esta forma: //BIND_* donde el * denota el tipo de comando o accion que estamos bindeando (pudiendo ser funciones, metodos de una clase, constructores de clase, destructores, constructores estaticos que se ejecutan al comenzar la ejecucion de la funcion "main" de C...). Existen dos tipos de macros/comandos en el bindeador. Las que pueden contener codigo C/C++, de manera que permiten implementar funciones (metodos, constructores ...) y las que tan solo ejecutan un comando (crear una tabla, declarar herencia entre clases ...). Las macros del primer tipo necesitan al final el comando //BIND_END para indicar donde acaba el codigo C/C++ que necesitan. ******************************************************************* EN TODOS LOS BLOQUES DE CODIGO C++ HAY DEFINIDIAS LAS SIGUIENTES VARIABLES: - luaState *L: Es el estado de la pila de Lua, para poder recoger y poner variables ;) ******************************************************************* Las macros actuales son: //BIND_STATIC_CONSTRUCTOR nombre_constructor { CODIGO C++ } //BIND_END Sirve para declarar una funcion que sera ejecutada de forma inevitable ;) al iniciar la ejecucion de la funcion "main" de C. De esa forma se pueden hacer cosas como registrar codigos en tablas globales, etc. Dado que cada constructor tiene un nombre diferente, y son estaticos a cada fichero bindeado, podemos tener varios STATIC_CONSTRUCTOR en un mismo fichero de binding, aunque no sirve para mucho esto :S ******************************************************************* //BIND_CREATE_TABLE tabla1.tabla2.tabla3... Sirve para crear en lua una ruta de tablas, de manera que si no existen las tablas padre, seran creadas ;) ******************************************************************* //BIND_FUNCTION tabla1.tabla2....nombre_de_funcion { CODIGO C++ } Crea una funcion que puede ser utilizada desde lua. La funcion es creada en la ruta de tablas 'tabla1.tabla2....nombre_de_funcion' de manera que si no existen las tablas, son creadas. Por tanto para poder usarla desde lua es necesario hacer: a.b.c.d.nombreFuncion(parametros...) ******************************************************************* //BIND_HEADER_C CODIGO C++ //BIND_END El codigo sera metido en la cabecera del fichero '.cc' que se genera a partir del fichero con el binding. ******************************************************************* //BIND_HEADER_H CODIGO C++ //BIND_END El codigo sera metido en la cabecera del fichero '.h' que se genera a partir del fichero con el binding. ******************************************************************* //BIND_LUACLASSNAME claseC tabla1.tabla2.....nombreLua Asocia a una claseC un nombre en Lua. El nombre en Lua puede ser una ruta de tablas, de manera que seran creadas si no existian. ******************************************************************* //BIND_CPP_CLASS ClassName Genera los metodos tipo lua_isClassName, lua_toClassName, lua_pushClassName, para que puedan ser utilizados por otros ficheros de binding. ******************************************************************* //BIND_SUBCLASS_OF childclass parentclass Sirve para indicar que una clase es hija de otra. Los nombres childclass y parentclass deben ser los nombres en C de las clases, de manera que si el nombre en C no se corresponde con el nombre en Lua, ya que ha sido modificado mediante //BIND_LUACLASSNAME, es necesario poner un //BIND_LUACLASSNAME antes del SUBCLASS_OF, tanto para la clase hija como la padre. ******************************************************************* //BIND_CLASS_OPEN ClassName { CODIGO C++ } //BIND_END Sirve para añadir codigo que se ejecutara cuando se inicie el programa, concretamente cuando se creen las estructuras lua referidas a la clase ClassName. ClassName es el nombre de la clase bindeada en C++. ******************************************************************* //BIND_CONSTRUCTOR ClassName { CODIGO C++ } //BIND_END Añade codigo C++ que sera ejecutado cuando se construyan desde lua las clases bindeadas. Actua como un constructor de C++. El ClassName es el nombre de la clase en C++. ******************************************************************* //BIND_DESTRUCTOR ClassName { CODIGO C++ } //BIND_END Idem que el anterior pero para el destructor. ******************************************************************* //BIND_METHOD ClassName metodo { CODIGO C++ } //BIND_END Sirve para crear un metodo nuevo en una clase Lua. ClassName hace referencia al nombre de la clase en C++ y metodo hace referencia al nombre que tendra el metodo visto desde lua. En el bloque de codigo C++ se puede usar la variable "ClassName *obj", que apunta al objeto C++ que contiene el objeto Lua, y haria las veces de puntero "this". ******************************************************************* //BIND_CLASS_METHOD ClassName metodo { CODIGO C++ } //BIND_END Crea un metodo estatico (de clase). Por tanto la variable *obj no existe. ******************************************************************* Tambien hay definidas una serie de macros y funciones que ayudan a recuperar los parametros que reciben los metodos bindeados. MACROS * Manipulacin de tablas: - LUABIND_TABLE_GETN(idx, var): Pone en la variable 'var' el numero de elementos de la tabla situada en la posicion 'idx' de la pila de Lua. - LUABIND_TABLE_TO_NEW_VECTOR(table, tipo, vector): Genera en la variable 'vector' un vector, reservado con 'new[]', a partir de la tabla situada en la posicion 'table', asumiendo que la tabla es un vector en Lua y que TODAS sus componentes son de tipo 'tipo'. ***OJO*** Las siguientes macros trabajan con los parametros de las funciones llamadas desde Lua, y necesitan que la pila no haya sido manipulada previamente. Comprobar y obtener los valores de los parametros debe ser lo primero que se haga en el binding de cada funcion. - LUABIND_CHECK_ARGN(op, n): Comprueba si el numero de argumentos pasados desde lua al metodo actual cumple la siguiente condicion: numero_argumentos op n donde 'op' es un operador de tipo <,<=,==,>=,>,!= - LUABIND_CHECK_PARAMETER(i, type): Comprueba que el tipo del parametro 'i' del metodo es del tipo 'type'. - LUABIND_GET_PARAMETER(i, type, var): Devuelve en la variable 'var' el parametro 'i' de tipo 'type'. Si no existe o el tipo no es correcto da error. - LUABIND_GET_OPTIONAL_PARAMETER(i, type, var, default_value): Devuelve en la variable 'var' el parametro 'i' de tipo 'type'. Si no existe el parametro 'i', devuelve 'default_value'. Si el tipo no es correcto da error. - LUABIND_GET_TABLE_PARAMETER(i, name, type, var): Busca en la tabla que se encuentra en la posicion 'i' de la pila un campo con el nombre 'name', de tipo 'type' y lo deja en la variable 'var'. Si no existe o el tipo no es correcto da error. - LUABIND_GET_TABLE_OPTIONAL_PARAMETER(i, name, type, var, default_value): Busca en la tabla que se encuentra en la posicion 'i' de la pila un campo con el nombre 'name', de tipo 'type' y lo deja en la variable 'var'. Si no existe devuelve 'default_value'. Si el tipo no es correcto da error. ***OJO*** Las siguientes macros sirven para declarar devolucion de valores desde una funcion llamada desde Lua. La devolucion se hace por medio de la pila (cada RETURN equivale a un push en la pila y un incremento del numero total de valores devueltos), asi que no se debe manipular la pila entre llamadas a LUABIND_RETURN*. Por ejemplo: LUABIND_RETURN(int, A); lua_pushnumber(L, B); LUABIND_RETURN(int, C); generaria un return 2 al final del binding, devolviendo los dos ultimos valores de la pila (B y C) en lugar de A y C como se pretendia. - LUABIND_RETURN(type, value): Especifica un valor devuelto 'value' de tipo 'type'. - LUABIND_RETURN_NIL(): Especifica la devolucion de un valor nil de Lua. - LUABIND_RETURN_FROM_STACK(index): Especifica que se va a devolver el valor situado en la posicion 'index' en la pila de Lua. * Tratamiento de errores: - LUABIND_ERROR(str): Para lanzar un error mostrando el mensaje 'str'. - LUABIND_FERROR1(str, p1): Para lanzar un error mostrando el mensaje 'str' que puede contener una cadena formateada estilo printf con un argumento. - LUABIND_FERROR2(str, p1, p2): Para lanzar un error mostrando el mensaje 'str' que puede contener una cadena formateada estilo printf con dos argumentos. - LUABIND_FERROR3(str, p1, p2, p3): Para lanzar un error mostrando el mensaje 'str' que puede contener una cadena formateada estilo printf con tres argumentos. ***************************************************************** FUNCIONES - int lua_toint(lua_State *L, int idx): Recupera de la posicion 'idx' de la pila de Lua un valor numerico que sera casteado a int. - float lua_tofloat(lua_State *L, int idx): Recupera de la posicion 'idx' de la pila de Lua un valor numerico que sera casteado a float. - char *lua_toNEW_STRING(lua_State *L, int idx): Recupera de la posicion 'idx' de la pila de Lua una cadena de caracteres, de manera que la memoria de la cadena sera reservada con "new[]" y por tanto necesita ser borrada con "delete[]", y el borrado es responsabilidad del usuario. - char lua_tochar(lua_State *L, int idx): Recupera de la posicion 'idx' de la pila de Lua un unica char. - void check_table_fields(lua_State *L, int idx, ...): Comprueba que en la tabla situada en la posicion 'idx' de la pila de Lua SOLO hay campos con los nombres indicados en la lista variable (...). De esa forma, si aparece un campo que no esta en la lista, saltara una error. Sin embargo, si un campo de la lista no esta definido, NO dara error. De esa forma pueden haber campos opcionales y obligatorios que seran comprobados con las MACROS, y aquellos campos que debido a errores tipograficos no sean correctos, seran detectados. april-ann-0.3.1/binding/formiga.lua000066400000000000000000002305041234204160600171370ustar00rootroot00000000000000-- TODO: REVISAR EL APANYO PARA COMPILAR USANDO CUDA!!! ES MUY -- FEO!!!!!! "buscar nvcc y cuda en el codigo" ----------------------------------------------------------------------- -- FORMIGA ---------------------------------------------------------------------- -- formiga is a software tool for automating software build -- processes. It is similar to 'apache ant' but is written in Lua -- root directory -- | -- |- lua -> standard lua sources -- | -- |- binding -> all files required to manage packages, make bindings, etc. -- | -- |- XXX.lua -> configuration file -- | -- |- bin -> executables of lua, luac and whatever the toolkit generate -- | -- \_ packages -> in this directory formiga searches "package.lua" files -- |- packageA -- |- packageB -- | -- |- A_DIRECTORY -- | | -- | \_ packageC -- | -- \_ packageD -- -- Every package should have this structure: -- -- |- package.lua -> configuration file -- |- c_src -> C/C++ source files -- |- lua_src -> lua source files -- |- binding -> code to bind C/C++ code into lua -- |- test -- \_ doc -- -- usage: lua -l formiga package [target] -- -- luapkg{ -- program_name = "blah", -- packages = { -- list of packages included in the binary -- packageA, -- packageB, -- }, -- global_flags = { -- debug="no", -- use_readline="yes", -- optimization = "yes", -- global flag -- platform = "unix", -- extra_flags = "...", -- }, -- main_package = package{ ... }, -- } -- every package.lua contains a call to; -- -- package{ name = "packageA", -- depends = { "packageB", "packageC", }, -- keywords = { "one", "two" }, -- description = "this is a package", -- target{ name = "init", -- mkdir{ dir = "build" }, -- mkdir{ dir = "include" }, -- }, -- target{ name = "clean", -- delete{ dir = "build" }, -- delete{ dir = "include" }, -- }, -- } -- dofile("binding/utilformiga.lua") local commit_count = io.popen("git rev-list HEAD --count"):read("*l") if not tonumber(commit_count) then commit_count="UNKNOWN" end ----------------------------------------------------------------- -- table used to avoid using "other" global variables formiga = { --------------------------------------------------------------- -- operating system specific details os = { SEPPATH = ':', -- TODO: cambiar codigo para utilizar esta variable SEPDIR = '/', -- required because we cannot use 'chdir' from lua basedir = ".", -- current working directory cwd = ".", -- other functions are defined below!!! }, --------------------------------------------------------------- -- compiler specific details compiler = { CUDAcompiler = "nvcc", CPPcompiler = os.getenv("CXX") or "g++", Ccompiler = os.getenv("CC") or "gcc", extra_libs = {"-ldl"}, shared_extra_libs = { }, extra_flags = { string.format("-DGIT_COMMIT=%s", commit_count), }, language_by_extension = { c = "c", cc = "c++", cxx = "c++", CC = "c++", cpp = "c++", cu = "nvcc", }, select_language = "-x", destination = "-o", include_dir = "-I", library_inclusion = "-l", object_dir = "-L", compile_object = "-c", debug = "-g", optimization = "-O3", wall = "-Wall -Wextra -Wno-unused", -- global flags for all packages global_flags = { }, }, --------------------------------------------------------------- -- other things related to the package system packages_subdir = "packages", build_dir = "build", documentation_build_dir = "build_doc", documentation_dest_dir = "doxygen_doc", doc_user_refman_dir = "user_refman", doc_developer_dir = "developer", -- list of funcions to be registered with extern C lua_dot_c_register_functions = {}, -- list of C functions that must be executed in order to register -- the bindings of every package package_register_functions = {}, -- table to register packages created with package{...} package_table = {}, -- global properties global_properties = {}, ------------------- -- package system -- (direct and indirect) dependencies of every package package_dependencies = {}, pkgconfig_flags = {}, pkgconfig_libs = {}, package_link_libraries = {}, package_library_paths = {}, main_package_name ="main_package", -- current package name current_package_name = "", -- relates directories and name of every package dir_to_package = {}, package_to_dir = {}, -- auxiliar, used to create tables dir_to_package and package_to_dir. this -- variable is set to the name of the directory before performing a -- "dofile" to every package.lua -- initialized to formiga.os.cwd in formiga.initialize() current_package_dir = "", -- dependency list for every package, collected from package depends list dependencies = {}, -- set of packages referenced in luapkg set_of_packages = {}, -- given a keyword, this table stores the set of packages that -- reference this keyword packages_with_keyword = {}, -- graph with packages pkg_graph = graph(), -- program_name program_name = "default", module_name = "default", -- color output color_output = false, } -- auxiliary functions function table.invert(t) local n = {} for i,j in pairs(t) do n[j] = i end return n end -- function table.append(t1,t2) for _,j in ipairs(t2) do table.insert(t1,j) end end function printverbose(level, ...) if formiga.verbosity_level >= level then print(...) end end function printverbosecolor_aux(print_func, level, fgcolor, bgcolor, ...) local fgcolors={ ["black"]="\27[30m", ["bright_black"]="\27[1;30m", ["red"]="\27[31m", ["bright_red"]="\27[1;31m", ["green"]="\27[32m", ["bright_green"]="\27[1;32m", ["yellow"]="\27[33m", ["bright_yellow"]="\27[1;33m", ["blue"]="\27[34m", ["bright_blue"]="\27[1;34m", ["magenta"]="\27[35m", ["bright_magenta"]="\27[1;35m", ["cyan"]="\27[36m", ["bright_cyan"]="\27[1;36m", ["white"]="\27[37m", ["bright_white"]="\27[1;37m", ["default"]="\27[0;39m", } local bgcolors={ ["black"]="\27[40m", ["bright_black"]="\27[1;40m", ["red"]="\27[41m", ["bright_red"]="\27[1;41m", ["green"]="\27[42m", ["bright_green"]="\27[1;42m", ["yellow"]="\27[43m", ["bright_yellow"]="\27[1;43m", ["blue"]="\27[44m", ["bright_blue"]="\27[1;44m", ["magenta"]="\27[45m", ["bright_magenta"]="\27[1;45m", ["cyan"]="\27[46m", ["bright_cyan"]="\27[1;46m", ["white"]="\27[47m", ["bright_white"]="\27[1;47m", ["default"]="\27[0;49m", } if formiga.verbosity_level >= level then -- set colors if formiga.color_output then if fgcolors[fgcolor] ~= nil then io.write(fgcolors[fgcolor]) end if bgcolors[bgcolor] ~= nil then io.write(bgcolors[bgcolor]) end end print_func(...) -- reset colors if formiga.color_output then io.write(fgcolors["default"]) io.write(bgcolors["default"]) end end end function printverbosecolor(level, fgcolor, bgcolor, ...) printverbosecolor_aux(print, level, fgcolor, bgcolor, ...) end function writeverbosecolor(level, fgcolor, bgcolor, ...) printverbosecolor_aux(io.write, level, fgcolor, bgcolor, ...) end function string.tokenize(str,sep) local sep = sep or ' \t' local list = {} for token in string.gmatch(str, '[^'..sep..']+') do table.insert(list,token) end return list end -- what is done after printing a warning function pause_warning() io.read("*l") end -- obtains the timestamp of a given directory function formiga.os.get_directory_timestamp(path) local f=io.popen("find " .. path .. " -type f -printf '%h/%f %T@\n' 2>/dev/null | " .. "grep -v '.*/\\..*' | grep -v 'gmon.out' | " .. "grep -Ev '[^ ]*/tests?/[^/]+' | " .. "cut -d' ' -f2 | sort -n | tail -n 1") local timestamp=tonumber(f:read("*l")) f:close() if timestamp == nil then timestamp = 0 end return timestamp end -- obtains the timestamp of a given file function formiga.os.get_file_timestamp(file) local f=io.popen("stat -c %Y "..file .. " 2> /dev/null || echo 0") local timestamp=tonumber(f:read("*l")) f:close() printverbose(1, "timestamp ["..file.."] =",timestamp) return timestamp end -- decomposes a path in path, file, extension function formiga.os.path_file_extension(cadena) -- funcion auxiliar local _,p,f,e _,_, p,f,e = string.find(cadena, "(.*)/(.*)%.(.*)") return p,f,e end -- todo: assure that no "//" is generated if, by mistake, a "/" appear -- in some of the arguments -- WARNING: depends on formiga.os.SEPDIR function formiga.os.compose_dir(...) return table.concat({...},formiga.os.SEPDIR) end -- currently uses pwd and popen to obtain the cwd function formiga.os.getcwd () local f,cwd local f = io.popen("pwd") local cwd = string.gsub(f:read("*a"),"\n","") f:close() return cwd end -- returns the directory where lua.c is function formiga.os.get_lua_dot_c_path () local f = io.popen("find lua -name lua.c") local total = f:read("*a") f:close() local p,f,e p,f,e = formiga.os.path_file_extension(total) return p end -- execute a command from formiga.os.basedir -- WARNING: depends on formiga.os.basedir function formiga.os.execute(command,continueaftererror) io.stdout:flush() -- to get things appear in order io.stderr:flush() -- to get things appear in order local ok,what,resul -- la invocacion precedida por un cd basedir ok,what,resul = os.execute("cd "..formiga.os.basedir.."; "..command) io.stdout:flush() -- to get things appear in order io.stderr:flush() -- to get things appear in order if resul ~= 0 and not continueaftererror then -- report error and stop everything print("Error "..(resul or"nil").." in "..formiga.os.basedir.. "\nwhen executing command "..command.."\n") os.exit(1) end return ok end -- execute popen from formiga.os.basedir -- WARNING: depends on formiga.os.basedir function formiga.os.popen(command) return io.popen("cd ".. formiga.os.basedir .."; "..command) end -- execute popen from formiga.os.basedir -- WARNING: depends on formiga.os.basedir function formiga.os.get_popen_output_line(command) local fd = io.popen("cd ".. formiga.os.basedir .."; "..command) local resul = fd:read("*l") fd:close() return resul end -- execute popen from formiga.os.basedir -- WARNING: depends on formiga.os.basedir function formiga.os.glob(expr) if type(expr) == "string" then expr = { expr } end local r = {} for _,e in ipairs(expr) do local f = io.popen("cd ".. formiga.os.basedir .. "; ls "..e.." 2>/dev/null") for i in f:lines() do table.insert(r,i) end f:close() end return r end -- used to set up some formiga default values function formiga.initialize () if formiga.is_initialized == nil then formiga.is_initialized = true formiga.the_configuration_file = arg[0] formiga.os.cwd = formiga.os.getcwd() formiga.global_properties.lua_include_dir = formiga.os.compose_dir(formiga.os.cwd, "lua","include") formiga.global_properties.bindtemplates_dir = formiga.os.compose_dir(formiga.os.cwd, "binding", "bind_templates") formiga.global_properties.documentation_dir = formiga.os.compose_dir(formiga.os.cwd, formiga.documentation_build_dir) formiga.global_properties.build_dir = formiga.os.compose_dir(formiga.os.cwd, formiga.build_dir) os.execute("mkdir -p "..formiga.global_properties.build_dir) os.execute("mkdir -p "..formiga.os.compose_dir(formiga.global_properties.build_dir,"bin")) formiga.lua_dot_c_path = formiga.os.get_lua_dot_c_path() formiga.lua_path=formiga.os.compose_dir(formiga.os.cwd,"lua","lua-5.2.2") end end ---------------------------------------------------------------------- -- cosas especificas de Formiga: ---------------------------------------------------------------------- -- can be used where? into a target? into a task???? -- set a mark property ~= nil function property (t) t.__property__ = 1 return t end -- to execute a package function formiga.exec_package(package_name,target,global_timestamp) if not global_timestamp then global_timestamp = 0 end local the_package = formiga.package_table[package_name] if (the_package ~= nil) then -- miramos si la marca temporal es mas reciente que la global --if the_package.timestamp > global_timestamp then -- the_package.compile_mark = true --end -- set formiga.basedir to make things execute from package -- directory formiga.os.basedir = the_package.basedir -- add indirect dependencies formiga.current_package_name = the_package.name formiga.package_link_libraries[the_package.name] = the_package.link_libraries formiga.package_library_paths[the_package.name] = the_package.library_paths local aux_depends = the_package.depends local aux_pkgconfig_flags = "" local aux_pkgconfig_libs = "" if the_package.pkgconfig_depends then local aux = the_package.pkgconfig_depends if type(aux) == "table" then aux = table.concat(aux," ") end aux_pkgconfig_flags = formiga.os.get_popen_output_line('pkg-config --cflags '..aux) aux_pkgconfig_libs = formiga.os.get_popen_output_line('pkg-config --libs '..aux) end -- traverse direct dependencies if the_package.depends then local rev_dep = table.invert(the_package.depends) for i,v in ipairs(the_package.depends) do -- a direct dependency must be compiled? if formiga.package_table[v].compile_mark then the_package.compile_mark = true end if formiga.package_dependencies[v] then -- metemos las indirectas ;) for j,w in ipairs(formiga.package_dependencies[v]) do if not rev_dep[w] then -- sin repetir ;) table.insert(aux_depends,w) rev_dep[w] = true end end end end -- for i,v in ipairs(the_package.depends) do else -- if the_package.depends aux_depends = {} end formiga.package_dependencies[the_package.name] = aux_depends formiga.pkgconfig_flags[the_package.name] = aux_pkgconfig_flags formiga.pkgconfig_libs[the_package.name] = aux_pkgconfig_libs -- -- if the_package.compile_mark then printverbosecolor(1,"yellow", nil, "[package] "..the_package.name, "\tCompile: " .. tostring(the_package.compile_mark)) else printverbosecolor(1,"green", nil, "[package] "..the_package.name, "\tCompile: " .. tostring(the_package.compile_mark)) end if target == nil then target = the_package.default_target end local thetarget = the_package.target_table[target] if thetarget == nil then print("WARNING: target "..target.." not found") else if the_package.compile_mark or not thetarget.use_timestamp then thetarget.__target__(thetarget) end table.insert(formiga.lua_dot_c_register_functions, { the_package.module_name, the_package.luaopen_name }) end end -- if the_package ~= nil return the_package.compile_mark end -- function to register a package -- WARNING uses global variable formiga function package (t) formiga.initialize() local build_dir = formiga.os.compose_dir(formiga.global_properties.build_dir, formiga.os.basedir) if formiga.package_table[t.name] ~= nil then error("Error: package "..t.name.." already exists. " .. "package_directory='" .. formiga.current_package_dir .. "'\n") end formiga.package_table[t.name] = t formiga.package_table[t.name].luaopen_name = "luaopen_" .. formiga.module_name .. "_" .. t.name:gsub("%-",""):gsub("%.","_") formiga.package_table[t.name].module_name = formiga.module_name .. "." .. t.name -- set up the timestamp t.timestamp = formiga.os.get_directory_timestamp(build_dir) t.src_timestamp = formiga.os.get_directory_timestamp(formiga.os.basedir) -- and the compile_mark if t.src_timestamp > t.timestamp then t.compile_mark = true else t.compile_mark = false end -- relate the package with the directory formiga.dir_to_package[formiga.current_package_dir] = t.name formiga.package_to_dir[t.name] = formiga.current_package_dir -- store dependencies if t.name ~= formiga.main_package_name then formiga.dependencies[t.name] = t.depends formiga.pkg_graph:add_node(t.name) formiga.pkg_graph:connect(t.name, t.depends) end -- store keywords if t.keywords then for _,keyword in pairs(t.keywords) do if formiga.packages_with_keyword[keyword] == nil then formiga.packages_with_keyword[keyword] = {} end table.insert(formiga.packages_with_keyword[keyword],t.name) end end -- store basedir t.basedir = formiga.os.basedir -- target_table references the set of targets given the target name t.target_table = {} t.properties = t.properties or {} for i,j in ipairs(t) do if j.__target__ ~= nil then t.target_table[j.name] = j j.package = t elseif j.__property__ ~= nil then for k,r in pairs(j) do if k ~= "__property__" then t.properties[k] = r end end end end return t end -- what is executed when a target is executed function formiga.__target__ (t) -- ?????????????? package_register_functions = {} -- printverbosecolor(1,"bright_black", nil, "[target ] "..t.name) -- look for dependencies if type(t.depends) == "table" then printverbose(2,"-- executing dependencies") for _,j in ipairs(t.depends) do local othertarget = t.package.target_table[j] if othertarget == nil then error(string.format("Dependency '%s' for target '%s' not found", j, t.name)) end othertarget.__target__(othertarget) end printverbose(2,"-- recovering target "..t.name) end -- execute the tasks for _,j in ipairs(t) do if type(j) == "table" and j.__task__ ~= nil then j.__task__(j) end end -- if t.name == "build" then -- solo para targets tipo build generate_package_register_file(t.package,package_register_functions) end end -- every call to target is done inside a package{} -- receives a table t function target(t) t.__target__ = formiga.__target__ t.use_timestamp = t.use_timestamp or false if type(t.depends) == "string" then t.depends = { t.depends } end -- array part of table t is suposed to be a list of tasks -- these tasks are told to be part of this target for _,j in ipairs(t) do if j.__task__ ~= nil then j.target = t end end -- returns the same table t modified return t end -- WARNING: depends on global formiga.global_properties function formiga.expand_properties(thing,tbl) if type(thing) == "string" then local number repeat thing,number = string.gsub(thing,'%${(.-)}', function (x) if not tbl[x] and not formiga.global_properties[x] then print("Error, property '".. x.."' doesn't exist!!") pause_warning() return "" end return tbl[x] or formiga.global_properties[x] end) until number < 1 end return thing end ---------------------------------------------------------------------- -- TASK DEFINITIONS ---------------------------------------------------------------------- ---------------------------------------------------------------------- -- ECHO ---------------------------------------------------------------------- function formiga.__echo__ (t) printverbosecolor(1, "bright_white", nil, "[echo ] "..t[1]) -- a diferencia de otros task, level 1 end function echo (t) if type(t) == "string" then t = { t } end t.__task__ = formiga.__echo__ return t end ---------------------------------------------------------------------- -- MKDIR ---------------------------------------------------------------------- function formiga.__mkdir__ (t) local build_dir = formiga.os.compose_dir(formiga.global_properties.build_dir, formiga.os.basedir) local dir = formiga.os.compose_dir(build_dir, t.dir) if dir then dir = formiga.expand_properties(dir,t.target.package.properties) local command = string.format("mkdir -p %s",dir) printverbose(2," [mkdir ] "..command) formiga.os.execute(command) end end function mkdir (t) t.__task__ = formiga.__mkdir__ return t end ---------------------------------------------------------------------- -- DELETE ---------------------------------------------------------------------- -- Attributes: -- dir -> tells the task to "brutally" delete the entire directory tree function formiga.__delete__ (t) local build_dir = formiga.os.compose_dir(formiga.global_properties.build_dir, formiga.os.basedir) local dir = formiga.os.compose_dir(build_dir, t.dir) if dir then dir = formiga.expand_properties(dir,t.target.package.properties) local command = string.format("rm -rf %s",dir) printverbose(2," [delete] "..command) formiga.os.execute(command) end end function delete (t) t.__task__ = formiga.__delete__ return t end ---------------------------------------------------------------------- -- COPY ---------------------------------------------------------------------- function formiga.__copy__ (t) local build_dir = formiga.os.compose_dir(formiga.global_properties.build_dir, formiga.os.basedir) local dest_dir = formiga.os.compose_dir(build_dir,t.dest_dir) local file = t.file if dest_dir and file then dest_dir = formiga.expand_properties(dest_dir,t.target.package.properties) file = formiga.expand_properties(file,t.target.package.properties) local command = string.format("cp -rp %s %s",file,dest_dir) printverbose(2," [copy ] "..command) formiga.os.execute(command) end end function copy (t) t.__task__ = formiga.__copy__ return t end ---------------------------------------------------------------------- -- EXEC ---------------------------------------------------------------------- -- Executes a system command function formiga.__exec__ (t) local command = t.command if (command) then command = formiga.expand_properties(command,t.target.package.properties) printverbose(2," [exec] "..command) formiga.os.execute(command) end end function exec (t) t.__task__ = formiga.__exec__ return t end ---------------------------------------------------------------------- -- LUAEXEC ---------------------------------------------------------------------- -- DEPRECATED???????? -- Executes a lua function without arguments function formiga.__luaexec__ (t) if type(t[1]) == "function" then t[1]() end end function luaexec (t) t.__task__ = formiga.__luaexec__ return t end ---------------------------------------------------------------------- -- PROGRAM ---------------------------------------------------------------------- -- donde se usa???????????????????? -- Un programa C de cara a compilar requiere la siguiente informacion: function formiga .__program__ (t) local prop = t.target.package.properties local build_dir = formiga.os.compose_dir(formiga.global_properties.build_dir, formiga.os.basedir) local command if (t.file == nil) then print("[program] error: file must be specified") return end local thefiles = formiga.os.glob(formiga.expand_properties(t.file,prop)) for _,thefile in pairs(thefiles) do command = { formiga.compiler.CPPcompiler, formiga.compiler.wall, table.concat(formiga.compiler.extra_flags, " "), table.concat(formiga.version_flags, " ") } local path,file,extension,debug,optimization,otherflags path,file,extension = formiga.os.path_file_extension(thefile) if formiga.compiler.global_flags.debug == "yes" or formiga.expand_properties(t.debug,prop) == "yes" then table.insert(command,formiga.compiler.debug) end if global_flags.optimization == "yes" or formiga.expand_properties(t.optimization,prop) == "yes" then table.insert(command,formiga.compiler.optimization) end otherflags = formiga.expand_properties(t.flags,prop) or "" if string.len(otherflags) > 0 then table.insert(command,otherflags) end local language = formiga.expand_properties(t.language,prop) or formiga.language_by_extension[extension] or "c" table.insert(command,formiga.compiler.select_language.." "..language) table.insert(command,thefile) -- like objects but without "-c " local dest_dir = formiga.os.compose_dir(build_dir, formiga.expand_properties(t.dest_dir,prop) or path) table.insert(command,formiga.compiler.destination.." " ..dest_dir..SEPDIR..file..".o") -- directory inclusion -- the directory where the file is table.insert(command,formiga.compiler.include_dir..path) local directory if t.include_dirs then for _,directory in pairs(t.include_dirs) do for w in string.gmatch(formiga.expand_properties(directory,prop),"[^"..formiga.os.SEPPATH.."]+") do table.insert(command,formiga.compiler.include_dir..w) end end end -- library inclusion if t.libraries then for _,libr in pairs(t.libraries) do for w in string.gmatch(formiga.expand_properties(directory,prop),"w+") do table.insert(command,formiga.compiler.library_inclusion..w) end end end -- inclusion de objetos table.insert(command,formiga.compiler.object_dir..path) -- el propio directorio donde esta el fichero local directory if t.object_dirs then for _,directory in pairs(t.object_dirs) do for w in string.gmatch(formiga.expand_properties(directory,prop),"[^"..formiga.os.SEPPATH.."]+") do table.insert(command,formiga.compiler.object_dir..w) end end end command = table.concat(command," ") printverbose(2," [program] "..command) formiga.os.execute(command) end end function program (t) t.__task__ = formiga.__program__ if type(t.libraries) == "string" then t.libraries = { t.libraries } end if type(t.include_dirs) == "string" then t.include_dirs = { t.include_dirs } end if type(t.object_dirs) == "string" then t.include_dirs = { t.object_dirs } end return t end ---------------------------------------------------------------------- -- OBJECT ---------------------------------------------------------------------- -- Compilar librerias function formiga .__object__ (t) local prop = t.target.package.properties local build_dir = formiga.os.compose_dir(formiga.global_properties.build_dir, formiga.os.basedir) if (t.file == nil) then print("[object] error: file must be specified") return end for _,tfile in ipairs(t.file) do local thefiles = formiga.os.glob(formiga.expand_properties(tfile,prop)) for _,thefile in ipairs(thefiles) do command = { formiga.compiler.CPPcompiler} local path,file,extension,debug,optimization,otherflags path,file,extension = formiga.os.path_file_extension(thefile) if formiga.compiler.global_flags.debug == "yes" or formiga.expand_properties(t.debug,prop) == "yes" then table.insert(command,formiga.compiler.debug) end if formiga.compiler.global_flags.optimization == "yes" or formiga.expand_properties(t.optimization,prop) == "yes" then table.insert(command,formiga.compiler.optimization) end otherflags = formiga.expand_properties(t.flags,prop) or "" if string.len(otherflags) > 0 then table.insert(command,otherflags) end language = formiga.expand_properties(t.language,prop) or formiga.compiler.language_by_extension[extension] or "c" if language == formiga.compiler.CUDAcompiler then if formiga.compiler.global_flags.ignore_cuda then language = formiga.compiler.language_by_extension.cc table.insert(command,formiga.compiler.select_language.." "..language) table.insert(command, formiga.compiler.wall) table.append(command, formiga.compiler.extra_flags) table.append(command, formiga.version_flags) else command[1] = formiga.compiler.CUDAcompiler if formiga.compiler.global_flags.debug == "yes" then command[1] = command[1] .. " -g" end local flags = {} for _,flag in ipairs(formiga.compiler.extra_flags) do if not string.match(flag, "arch") and not string.match(flag, "sse") then if formiga.compiler.global_flags.debug ~= "yes" or not string.match(flag, "%-O[0-9]") then table.insert(flags, flag) end end end table.append(command, flags) table.append(command, formiga.version_flags) end else table.insert(command,formiga.compiler.select_language.." "..language) table.insert(command, formiga.compiler.wall) table.append(command, formiga.compiler.extra_flags) table.append(command, formiga.version_flags) end table.insert(command,formiga.compiler.compile_object.." "..thefile) dest_dir = formiga.os.compose_dir(build_dir, formiga.expand_properties(t.dest_dir,prop) or path) os.execute("mkdir -p ".. dest_dir) table.insert(command,formiga.compiler.destination.." "..dest_dir..formiga.os.SEPDIR..file..".o") -- inclusion de librerias if t.libraries then for _,libr in pairs(t.libraries) do for w in string.gmatch(formiga.expand_properties(directory,prop),"w+") do table.insert(command,formiga.compiler.library_inclusion..w) end end end -- directory inclusion table.insert(command,formiga.compiler.include_dir..path) -- the directory where the file is table.insert(command,formiga.compiler.include_dir..formiga.global_properties.lua_include_dir) -- the directory where lua headers are if t.include_dirs then for _,directory in pairs(t.include_dirs) do for w in string.gmatch(formiga.expand_properties(directory,prop), "[^"..formiga.os.SEPPATH.."]+") do if string.sub(w,1,1) == "/" then table.insert(command,formiga.compiler.include_dir..w) else table.insert(command,formiga.compiler.include_dir.. formiga.os.compose_dir(build_dir, w)) end end end end -- Incluimos las dependencias indirectas... for i,directory in ipairs(formiga.package_dependencies[formiga.current_package_name]) do for w in string.gmatch(formiga.expand_properties(directory,prop),"[^"..formiga.os.SEPPATH.."]+") do local basedir = formiga.package_table[w].basedir table.insert(command, formiga.compiler.include_dir.. formiga.os.compose_dir(formiga.global_properties.build_dir, basedir, "include")) table.insert(command, formiga.pkgconfig_flags[w]) end end -- y anyadimos tb las de pkgconfig_flags table.insert(command, formiga.pkgconfig_flags[formiga.current_package_name]) -- creamos y ejecutamos el comando command = table.concat(command," ") printverbose(2," [object] "..command) local ok = formiga.os.execute(command, true) if not ok then os.execute("rm -Rf " .. build_dir) -- error("ERROR") os.exit(1) end end end end function object (t) t.__task__ = formiga.__object__ if type(t.file) == "string" then t.file = { t.file } end if type(t.include_dirs) == "string" then t.include_dirs = { t.include_dirs } end if type(t.libraries) == "string" then t.libraries = { t.libraries } end return t end ---------------------------------------------------------------------- -- LUAC ---------------------------------------------------------------------- -- -- opciones: -- -- orig_dir <- directorio origen donde compilar *.lua -- -- dest_dir <- directorio destino donde dejar el .c y el .o -- en caso de omision, usa el propio directorio origen -- -- register_function <- nombre de la funcion creada -- en caso de omision, le da como nombre el lua_register_$$PROYECTO$$ -- para representar un pedazo de codigo binario como cadena a lo C function formiga.bin2Cstring(bin) local aux = {} for i = 1,string.len(bin) do table.insert(aux,string.format("\\%03o",string.byte(bin,i))) end return table.concat(aux) end function formiga.__luacode__ (t) local prop = t.target.package.properties local f,command,orig_dir,dest_dir,reg_function local thefile,luafiles local build_dir = formiga.os.compose_dir(formiga.global_properties.build_dir, formiga.os.basedir) orig_dir = formiga.expand_properties(t.orig_dir,prop) luafiles = t.file or "*.lua" if type(orig_dir) ~= "string" then error("Error: luac action needs an orig_dir field of type string\n") end if type(luafiles) == 'string' then luafiles = { luafiles } end local files_list = {} for _,luafil in ipairs(luafiles) do if type(luafil) ~= 'string' then error("Error: luac action field orig_dir is wrong\n") end table.append(files_list, formiga.os.glob(formiga.os.compose_dir(orig_dir,luafil))) end local ok,f_lua lua_data = {} local function has_lstrip() local f = io.popen("which lstrip") local l = f:read("*l") f:close() if not l or #l == 0 then printverbosecolor(0,"red","black", "WARNING!!! Impossible to run lstrip command, skipping lstrip") return false end return true end for _,lua_file in ipairs(files_list) do command = "luac -o /dev/null "..lua_file formiga.os.execute(command) lua_file_path = formiga.os.compose_dir(formiga.os.basedir, lua_file) if formiga.compiler.global_flags.use_lstrip == "yes" and has_lstrip() then command = "lstrip "..lua_file_path f_lua = io.popen(command) else f_lua = io.open(lua_file_path) end table.insert(lua_data, f_lua:read("*a")) local ok,msg= f_lua:close() if formiga.compiler.global_flags.use_lstrip == "yes" and not ok then print("Error in command: " .. command) os.execute("rm -Rf " .. build_dir) os.exit(1) end printverbose(2," [luac ] "..lua_file) io.stdout:flush() end dest_dir = t.dest_dir or t.orig_dir reg_function = t.reg_function or "lua_register_"..t.target.package.luaopen_name io.stdout:flush() -- TODO: abrir fichero y guardar en 'el el bytecode como cadena C -- SUPERTODO: ver si se puede poner la linea ahora comentada: thefile = formiga.os.compose_dir(build_dir, dest_dir,reg_function) -- thefile = -- formiga.os.append_path_basedir(formiga.os.basedir, -- formiga.os.compose_dir(dest_dir, -- reg_function)) f = io.open(thefile..".c","w") local lua_data_string = table.concat(lua_data, "\n\n") f:write([[ #include #include int ]]..reg_function.. '(lua_State *L) {\nluaL_loadbuffer(L,\n"'.. formiga.bin2Cstring(lua_data_string)..'",'.. string.len(lua_data_string).. ',"'..t.target.package.luaopen_name..'");\nlua_call(L,0,0);\nreturn 0;\n}\n') f:close() command = table.concat({ formiga.compiler.Ccompiler, formiga.compiler.compile_object, thefile..".c", formiga.compiler.destination, thefile..".o", formiga.compiler.include_dir.." lua/include/", table.concat(formiga.compiler.extra_flags, " "), table.concat(formiga.version_flags, " "), }, " ") local ok,what,error_resul = os.execute(command) if not ok then print("Error in command: " .. command) os.exit(1) end os.execute("rm "..thefile..".c") -- seguramente no hace falta generar este fichero .h f = io.open(thefile..".h","w") f:write("#include \nint "..reg_function.."(lua_State *L);\n") f:close() -- registramos la funcion table.insert(package_register_functions, reg_function) end function luac (t) t.__task__ = formiga.__luacode__ return t end ---------------------------------------------------------------------- -- PROVIDE_BIND ---------------------------------------------------------------------- -- llama al bindeador con la plantilla .h function formiga.__provide_bind__ (t) local thefile, dest_dir,dest_name,path,file,extension local build_dir = formiga.os.compose_dir(formiga.global_properties.build_dir, formiga.os.basedir) thefile = t.file if (thefile) then path,file,extension = formiga.os.path_file_extension(thefile) dest_dir = formiga.os.compose_dir(build_dir, t.dest_dir or path, "binding") os.execute("mkdir -p ".. dest_dir) dest_name = string.gsub(file,".lua",".h") -- TODO asumimos fichero es .lua.cc command = "lua ".. formiga.os.compose_dir(formiga.os.cwd,"binding","luabind.lua ").. formiga.os.compose_dir(dest_dir,dest_name).." ".. formiga.os.compose_dir(formiga.global_properties.bindtemplates_dir, "luabind_template.h ").. thefile printverbose(2," [provide_bind] "..command) local f = formiga.os.popen(command) for r in f:lines() do printverbose(2,r) -- para simular formiga.os.execute(command), se puede quitar -- todas las lineas de salida estandar que empiecen por "...register:" -- tienen el nombre XXX de una funcion -- int XXX(luaState *L); -- que se registrara en lua.c _,_,fu = string.find(r, "^...register:(.*)$") if fu then table.insert(package_register_functions, fu) end end f:close() end end function provide_bind (t) t.__task__ = formiga.__provide_bind__ return t end ---------------------------------------------------------------------- -- UNITARY TESTING ---------------------------------------------------------------------- function formiga.__execute_script(t) local prop = t.target.package.properties local program_binary = formiga.os.compose_dir(formiga.global_properties.build_dir, "bin", formiga.program_name) if (t.file == nil) then print("[execute_script] error: file must be specified") return end for _,tfile in ipairs(t.file) do local thefiles = formiga.os.glob(formiga.expand_properties(tfile,prop)) for _,thefile in ipairs(thefiles) do command = { program_binary, thefile, "> /dev/null" } -- creamos y ejecutamos el comando command = table.concat(command," ") printverbose(2," [execute_script] "..command) local ok,what,error_resul = formiga.os.execute(command, true) if not ok then print("Unitary test '".. thefile .. "' failed: " .. t.target.package.name) os.exit(1) end end end end function execute_script(t) t.__task__ = formiga.__execute_script if type(t.file) == "string" then t.file = { t.file } end return t end ---------------------------------------------------------------------- -- BUILD_BIND ---------------------------------------------------------------------- -- llama al bindeador con la plantilla .cc function formiga.__build_bind__ (t) local thefile, dest_dir,dest_name,path,file,extension local pack_dir = formiga.package_to_dir[t.target.package.name] local build_dir = formiga.os.compose_dir(formiga.global_properties.build_dir, formiga.os.basedir) thefile = t.file if (thefile) then path,file,extension = formiga.os.path_file_extension(thefile) dest_dir = formiga.os.compose_dir(build_dir, t.dest_dir or path, "binding") os.execute("mkdir -p ".. dest_dir) dest_name = string.gsub(file,".lua",".cc") -- TODO asumimos fichero es .lua.cc dest_cfile = formiga.os.compose_dir(dest_dir,dest_name) dest_obj = string.gsub(file,".lua",".o") -- TODO asumimos fichero es .lua.cc dest_objfile = formiga.os.compose_dir(dest_dir,dest_obj) command = "lua ".. formiga.os.compose_dir(formiga.os.cwd,"binding","luabind.lua ").. dest_cfile.." ".. formiga.os.compose_dir(formiga.global_properties.bindtemplates_dir, "luabind_template.cc ").. thefile if formiga.verbosity_level < 2 then command = command .. " > /dev/null" end printverbose(2," [build_bind] "..command) formiga.os.execute(command) -- ya tenemos el .cc, como lo compilamos? -- creamos y ejecutamos el comando command = { formiga.compiler.CPPcompiler, formiga.compiler.wall, formiga.compiler.compile_object, dest_cfile, formiga.compiler.destination, dest_objfile, table.concat(formiga.compiler.extra_flags, " "), table.concat(formiga.version_flags, " ")} local prop = t.target.package.properties local id = "${include_dirs}"..formiga.os.SEPPATH.. "${lua_include_dir}"..formiga.os.SEPPATH.. --"include"..formiga.os.SEPPATH.. formiga.os.compose_dir(build_dir,"include")..formiga.os.SEPPATH.. formiga.os.compose_dir(build_dir,"include", "binding")..formiga.os.SEPPATH.. formiga.os.compose_dir(formiga.os.cwd,"binding","c_src") for w in string.gmatch(formiga.expand_properties(id,prop), "[^"..formiga.os.SEPPATH.."]+") do table.insert(command,formiga.compiler.include_dir..w) end -- y anyadimos tb las de pkgconfig_flags table.insert(command, formiga.pkgconfig_flags[formiga.current_package_name]) if formiga.compiler.global_flags.debug == "yes" or formiga.expand_properties(t.debug,prop) == "yes" then table.insert(command, formiga.compiler.debug) end if formiga.compiler.global_flags.optimization == "yes" or formiga.expand_properties(t.optimization,prop) == "yes" then table.insert(command, formiga.compiler.optimization) end otherflags = formiga.expand_properties(t.flags,prop) or "" if string.len(otherflags) > 0 then table.insert(command,otherflags) end -- Incluimos las dependencias indirectas... for i,directory in ipairs(formiga.package_dependencies[formiga.current_package_name]) do for w in string.gmatch(formiga.expand_properties(directory,prop), "[^"..formiga.os.SEPPATH.."]+") do local basedir = formiga.package_table[w].basedir table.insert(command, formiga.compiler.include_dir.. formiga.os.compose_dir(formiga.global_properties.build_dir, basedir, "include")) table.insert(command, formiga.compiler.include_dir.. formiga.os.compose_dir(formiga.global_properties.build_dir, basedir, "include", "binding")) end end -- command = table.concat(command," ") printverbose(2," "..command) local ok,what,error_resul = formiga.os.execute(command, true) if not ok then os.execute("rm -Rf " .. build_dir) -- error("ERROR") os.exit(1) end end end function build_bind (t) t.__task__ = formiga.__build_bind__ return t end ---------------------------------------------------------------------- -- CREATE_STATIC_LIBRARY ---------------------------------------------------------------------- function formiga.__create_static_library__ (t) printverbosecolor(1, "bright_blue", nil, "Creating static library...") local lib_name = "lib"..formiga.program_name..".a" local dest_dir = formiga.os.compose_dir(formiga.global_properties.build_dir, "lib") local destination = formiga.os.compose_dir(dest_dir, lib_name) os.execute("mkdir -p "..dest_dir) os.execute("ar rcs "..destination.." "..formiga.get_all_non_binding_objects()) end function create_static_library (t) t.__task__ = formiga.__create_static_library__ return t end ---------------------------------------------------------------------- -- COPY_HEADER_FILES ---------------------------------------------------------------------- function formiga.__copy_header_files__ (t) local headers,dir,files printverbosecolor(1, "bright_blue", nil, "Copying header files...") headers = {} for pkg in pairs(formiga.set_of_packages) do dir = formiga.os.compose_dir(formiga.global_properties.build_dir, "packages", formiga.package_to_dir[pkg], "include", "*") dest_dir = formiga.os.compose_dir(formiga.global_properties.build_dir, "include",formiga.program_name,pkg) os.execute("mkdir -p "..dest_dir) files = formiga.os.glob(dir) for _,f in ipairs(files) do -- copy only regular files local tmp = io.open(f, "r") if tmp then if tmp:read(0) ~= nil then os.execute("cp \""..f.."\" "..dest_dir) end tmp:close() end end end end function copy_header_files (t) t.__task__ = formiga.__copy_header_files__ return t end ---------------------------------------------------------------------- -- LINK_MAIN_PROGRAM ---------------------------------------------------------------------- function formiga.__link_main_program__ (t) -- crear programa ppal --formiga.exec_package("luapkg_main","build") local module_name = formiga.module_name local f = io.open(formiga.os.compose_dir(formiga.global_properties.build_dir, "luapkgMain.cc"),"w") -- f:write('#define lua_c\n') f:write('extern "C" {\n') f:write("#include \n") f:write("#include \n") f:write("#include \n") f:write('#include \n') f:write('#include \n') f:write('#include \n') --f:write('#include \n') f:write('}\n') f:write('#ifndef GIT_COMMIT\n') f:write('#define GIT_COMMIT UNKNOWN\n') f:write('#endif\n') f:write('#define STRINGFY(X) #X\n') f:write('#define TOSTRING(X) STRINGFY(X)\n') for i,content in ipairs(formiga.disclaimer_strings) do f:write('#define DISCLAIMER' .. i .. ' ' .. content .. '\n') end f:write('const char *__COMMIT_NUMBER__ = TOSTRING(GIT_COMMIT);\n') -- f:write('extern "C" {\n') for _,data in pairs(formiga.lua_dot_c_register_functions) do f:write('extern int '..data[2]..'(lua_State *L);\n') end -- f:write('int luaopen_' .. module_name .. '(lua_State *L) { \n') for _,data in pairs(formiga.lua_dot_c_register_functions) do -- f:write(' '..funcname..'(L);\n') f:write(' luaL_requiref(L, "' .. data[1] .. '", ' .. data[2] .. ', 0);\n') f:write(' lua_pop(L, 1);\n') end f:write(' if (isatty(fileno(stdin)) && isatty(fileno(stdout))) {\n') for i,_ in ipairs(formiga.disclaimer_strings) do f:write(' luai_writestring(DISCLAIMER' .. i .. ','.. 'strlen(DISCLAIMER'..i..'));\n') f:write(' luai_writeline();\n') end f:write(' }\n') f:write(" lua_newtable(L);\n") f:write(" lua_pushstring(L, \"" .. module_name:upper() .. "\");\n") f:write(" lua_pushboolean(L, 1);\n") f:write(" lua_rawset(L, -3);\n") f:write(" return 1;\n") -- f:write(" return 0;\n") f:write('}\n') f:write('}\n') -- f:write('\n') f:write('#define lua_userinit(L) do { \\\n') f:write(' luaL_requiref(L, "' .. module_name .. '", luaopen_' .. module_name .. ', 0);\\\n') f:write(' lua_pop(L, 1);\\\n') f:write(' } while(0)\n') f:write('\n') -- f:write('#include \n') f:close() -- -- Collect all package libraries and generate compiler options. local package_library_paths_str="" for package_name, paths in pairs(formiga.package_library_paths) do for _, path in ipairs(paths) do package_library_paths_str = package_library_paths_str..formiga.compiler.object_dir..path.." " end end local package_link_libraries_str="" for package_name, libs in pairs(formiga.package_link_libraries) do for _, lib in ipairs(libs) do package_link_libraries_str = package_link_libraries_str..formiga.compiler.library_inclusion..lib.." " end end local pkgconfig_libs_list = {} for _,j in pairs(formiga.pkgconfig_libs) do if j ~= "" then table.insert(pkgconfig_libs_list,j) end end pkgconfig_libs_list = table.concat(pkgconfig_libs_list," ") local command = table.concat({ formiga.compiler.CPPcompiler, formiga.compiler.wall, formiga.compiler.destination, formiga.os.compose_dir(formiga.global_properties.build_dir, "bin", formiga.program_name), formiga.os.compose_dir(formiga.global_properties.build_dir, "luapkgMain.cc"), --formiga.compiler.include_dir, formiga.get_all_objects(), formiga.os.compose_dir(formiga.global_properties.build_dir,"binding","c_src","*.o"), formiga.os.compose_dir(formiga.os.cwd,"lua","lib","*.a"), package_library_paths_str, package_link_libraries_str, table.concat(formiga.compiler.extra_libs, " "), table.concat(formiga.compiler.extra_flags, " "), table.concat(formiga.version_flags, " "), pkgconfig_libs_list, ' -lm '..formiga.compiler.include_dir..formiga.os.compose_dir(formiga.os.cwd,"lua","include")..' '.. formiga.compiler.include_dir .. formiga.lua_dot_c_path}, " ") -- printverbose(2,'['..command..']') io.stdout:flush() -- para que las cosas salgan en un orden apropiado io.stderr:flush() -- para que las cosas salgan en un orden apropiado formiga.os.execute(command) if not formiga.compiler.global_flags.no_shared then -- We generate a shared library which could be loaded in any Lua interperter local shared_lib_dest_dir = formiga.os.compose_dir(formiga.global_properties.build_dir, "lib") os.execute("mkdir -p " .. shared_lib_dest_dir) local command = table.concat({ formiga.compiler.CPPcompiler, formiga.compiler.wall, formiga.compiler.destination, string.format("%s/%s.so", shared_lib_dest_dir, module_name, ".so"), formiga.os.compose_dir(formiga.global_properties.build_dir, "luapkgMain.cc"), --formiga.compiler.include_dir, formiga.get_all_objects(), formiga.os.compose_dir(formiga.global_properties.build_dir,"binding","c_src","*.o"), package_library_paths_str, package_link_libraries_str, table.concat(formiga.compiler.extra_libs, " "), table.concat(formiga.compiler.shared_extra_libs, " "), table.concat(formiga.compiler.extra_flags, " "), table.concat(formiga.version_flags, " "), pkgconfig_libs_list, ' -lm '.. formiga.compiler.include_dir ..formiga.os.compose_dir(formiga.os.cwd,"lua","include")..' '.. formiga.compiler.include_dir .. formiga.lua_dot_c_path}, " ") -- printverbose(2,'['..command..']') io.stdout:flush() -- para que las cosas salgan en un orden apropiado io.stderr:flush() -- para que las cosas salgan en un orden apropiado formiga.os.execute(command) end end function link_main_program (t) t.__task__ = formiga.__link_main_program__ return t end ---------------------------------------------------------------------- -- DOT_GRAPH ---------------------------------------------------------------------- function formiga.__dot_graph__ (t) local dotfile = io.open(t.file_name, "w") dotfile:write("Digraph dep_graph {\n") dotfile:write("rankdir=LR;\n") for origpkg,_ in formiga.pkg_graph:nodes_iterator() do if origpkg ~= formiga.main_package_name and formiga.set_of_packages[origpkg] then dotfile:write(origpkg .. " [label=" .. origpkg .. "];\n") for _,destpkg in formiga.pkg_graph:next_iterator(origpkg) do dotfile:write(origpkg .. " -> " .. destpkg .. ";\n") end end end for pkg,_ in pairs(formiga.set_of_packages) do if pkg ~= formiga.main_package_name then dotfile:write(pkg .. " [label=" .. pkg .. ", shape=octagon];\n") end end dotfile:write("}\n") dotfile:close() end function dot_graph (t) t.__task__ = formiga.__dot_graph__ t.file_name = t.file_name or "dep_graph.dot" return t end ---------------------------------------------------------------------- -- DOCUMENT_SRC ---------------------------------------------------------------------- -- copia todos los fuentes especificados en el mismo path de -- build_doc function formiga.__document_src__ (t) local pack_dir = formiga.package_to_dir[t.target.package.name] local group = t.group or pack_dir if type(group) == 'string' then group = string.tokenize(pack_dir,formiga.os.SEPDIR) end if type(group) ~= 'table' then print("WARNING: document_src group field of wrong type") pause_warning() return end local str_begin = "" local str_end = "" local lengroup = #group if (lengroup > 0) then local aux_begin = {} local aux_end = {} for _,namegroup in ipairs(group) do table.insert(aux_begin,"/// \\addtogroup "..namegroup) table.insert(aux_begin,"/// @{") table.insert(aux_end, "/// @}") end table.insert(aux_begin,"") table.insert(aux_end, "") str_begin = table.concat(aux_begin,"\n") str_end = table.concat(aux_end,"\n") end t.file = t.file or { "c_src/*.h","c_src/*.cc","c_src/*.c", "doc/*_dev.dox", "doc/*_both.dox" } local thefiles = formiga.os.glob(formiga.expand_properties(t.file,prop)) for _,thefile in pairs(thefiles) do --print("thefile",thefile) local f = io.open(formiga.os.compose_dir(formiga.os.basedir,thefile),"r") local content = f:read("*a") f:close() local destfile = formiga.os.compose_dir(formiga.documentation_build_dir, formiga.doc_developer_dir, pack_dir,thefile) local path = formiga.os.path_file_extension(destfile) os.execute("mkdir -p ".. path) f = io.open(destfile,"w") f:write(str_begin..content..str_end) f:close() end end function document_src (t) t.__task__ = formiga.__document_src__ return t end ---------------------------------------------------------------------- -- DOCUMENT_BIND ---------------------------------------------------------------------- -- procesa un fichero .lua.cc para generar cabeceras que -- enganyen a Doxygen function formiga.__document_bind__ (t) local pack_dir = formiga.package_to_dir[t.target.package.name] local group = t.group or pack_dir if type(group) == 'string' then group = string.tokenize(pack_dir,formiga.os.SEPDIR) end if type(group) ~= 'table' then print("WARNING: document_bind group field of wrong type") pause_warning() return end local str_begin = "" local str_end = "" local lengroup = #group if (lengroup > 0) then local aux_begin = {} local aux_end = {} for _,namegroup in ipairs(group) do table.insert(aux_begin,"/// \\addtogroup "..namegroup) table.insert(aux_begin,"/// @{") table.insert(aux_end, "/// @}") end table.insert(aux_begin,"") table.insert(aux_end, "") str_begin = table.concat(aux_begin,"\n") str_end = table.concat(aux_end,"\n") end t.file = t.file or "binding/*.lua.cc" for _,extension in ipairs({".h",".cc"}) do local thefiles = formiga.os.glob(formiga.expand_properties(t.file,prop)) for _,thefile in pairs(thefiles) do local newfile = string.gsub(thefile,".lua.cc",extension) local destfile = formiga.os.compose_dir(formiga.os.cwd, formiga.documentation_build_dir, formiga.doc_user_refman_dir, pack_dir,newfile) local path = formiga.os.path_file_extension(destfile) --print("DESTFILE",destfile) os.execute("mkdir -p ".. path) command = { "lua", "-e'lines_information=0'", formiga.os.compose_dir(formiga.os.cwd,"binding","luabind.lua "), destfile, formiga.os.compose_dir(formiga.global_properties.bindtemplates_dir, "luabind_document_template"..extension), thefile, } if formiga.verbosity_level < 2 then table.insert(command,">/dev/null") table.insert(command,"2>/dev/null") end command = table.concat(command," ") printverbose(0," [document_bind] "..command) formiga.os.execute(command) local f = io.open(destfile,"r") if f == nil then error("Error: "..destfile.." file not found\n") end local content = f:read("*a") f:close() f = io.open(destfile,"w") -- append str_begin and str_end f:write(str_begin..content..str_end) f:close() end end local aux_file = {"doc/*_user.dox","doc/*_both.dox"} local thefiles = formiga.os.glob(formiga.expand_properties(aux_file,prop)) for _,thefile in pairs(thefiles) do --print("thefile",thefile) local f = io.open(formiga.os.compose_dir(formiga.os.basedir,thefile),"r") local content = f:read("*a") f:close() local destfile = formiga.os.compose_dir(formiga.documentation_build_dir, formiga.doc_user_refman_dir, pack_dir,thefile) local path = formiga.os.path_file_extension(destfile) os.execute("mkdir -p ".. path) f = io.open(destfile,"w") f:write(str_begin..content..str_end) f:close() end end function document_bind (t) t.__task__ = formiga.__document_bind__ return t end ---------------------------------------------------------------------- -- DOCUMENT_TEST ---------------------------------------------------------------------- -- hace una copia a lo bestia de carpetas _dox que cuelgan del -- directorio tests function formiga.__document_test__ (t) local pack_dir = formiga.package_to_dir[t.target.package.name] local group = t.group or pack_dir if type(group) == 'string' then group = string.tokenize(pack_dir,formiga.os.SEPDIR) end if type(group) ~= 'table' then print("WARNING: document_bind group field of wrong type") pause_warning() return end local str_begin = "" local str_end = "" local lengroup = #group if (lengroup > 0) then local aux_begin = {} local aux_end = {} for _,namegroup in ipairs(group) do table.insert(aux_begin,"/// \\addtogroup "..namegroup) table.insert(aux_begin,"/// @{") table.insert(aux_end, "/// @}") end table.insert(aux_begin,"") table.insert(aux_end, "") str_begin = table.concat(aux_begin,"\n") str_end = table.concat(aux_end,"\n") end local aux_file = {"test/*.dox"} local thefiles = formiga.os.glob(formiga.expand_properties(aux_file,prop)) for _,thefile in pairs(thefiles) do --print("thefile",thefile) local f = io.open(formiga.os.compose_dir(formiga.os.basedir,thefile),"r") local content = f:read("*a") f:close() local destfile = formiga.os.compose_dir(formiga.documentation_build_dir, formiga.doc_user_refman_dir, pack_dir,thefile) local path = formiga.os.path_file_extension(destfile) os.execute("mkdir -p ".. path) f = io.open(destfile,"w") --f:write(str_begin..content..str_end) f:write(content) f:close() end end function document_test (t) t.__task__ = formiga.__document_test__ return t end ---------------------------------------------------------------------- -- DOCUMENT_COPY_FILE ---------------------------------------------------------------------- function formiga.__document_copy_file__ (t) local the_type = t.type or formiga.doc_user_refman_dir local the_dest = formiga.os.compose_dir(formiga.os.cwd, formiga.documentation_dest_dir, the_type,"html",t.dest_dir) command = "mkdir -p ".. the_dest printverbose(2," [doc cp] "..command) formiga.os.execute(command) -- if t.file then local the_files = formiga.os.glob(formiga.expand_properties(t.file,prop)) for _,thefile in pairs(the_files) do command = "cp "..thefile.." "..the_dest printverbose(2," [doc cp] "..command) formiga.os.execute(command) end end end function document_copy_file (t) t.__task__ = formiga.__document_copy_file__ return t end ---------------------------------------------------------------------- -- MAIN_DOCUMENTATION ---------------------------------------------------------------------- -- funcion auxiliar function formiga.__make_header_doc__ (filename,title,dev_title,user_title,is_dev) local if_is_dev = '' local if_is_user = '' if is_dev == true then if_is_dev = ' id="current"' else if_is_user = ' id="current"' end local src = '\n'.. '\n'.. ''..title..'\n'.. '\n'.. '\n'.. '\n'.. '
\n' local f= io.open(filename,"w") f:write(src) f:close() end -- funcion auxiliar function formiga.__make_redirect_page__ (title,wait,urldest) return '\n'.. '\n'.. '\n'.. ''..title..'\n'.. '"Pincha aquí"'.. '\n' end function formiga.__main_documentation__ (t) -- create redirect page local f_dir = formiga.os.compose_dir(formiga.os.cwd, formiga.documentation_dest_dir) os.execute("mkdir -p "..f_dir) local f = io.open(formiga.os.compose_dir(f_dir,"index.html"),"w") -- ojito!!! dest_url es RELATIVO desde f_dir local dest_url = formiga.os.compose_dir(formiga.doc_user_refman_dir, "html", "index.html") f:write(formiga.__make_redirect_page__(formiga.program_name,0,dest_url)) f:close() -- for i=1,2 do -- 1 user 2 dev local doc_dir_name = ({ formiga.doc_user_refman_dir,formiga.doc_developer_dir})[i] local the_table = ({t.user_documentation,t.dev_documentation})[i] local doc_file = the_table.main_documentation_file local doc_dir = formiga.os.compose_dir(formiga.os.cwd, formiga.documentation_build_dir, doc_dir_name) local dest_dir = formiga.os.compose_dir(formiga.os.cwd, formiga.documentation_dest_dir, doc_dir_name) if (doc_file) then local command = 'mkdir -p '..doc_dir..'; cd '..doc_dir..';ln -s '.. formiga.os.compose_dir(formiga.os.cwd,doc_file) --print("user_documentation: "..command) os.execute(command) end -- local tbl = the_table.doxygen_options if tbl.INPUT == nil then tbl.INPUT = doc_dir end if tbl.PROJECT_NAME == nil then tbl.PROJECT_NAME = '"'..formiga.program_name..({ " (user reference manual)", " (developer manual)"})[i]..'"' end if tbl.OUTPUT_DIRECTORY == nil then tbl.OUTPUT_DIRECTORY = dest_dir end if tbl.STRIP_FROM_PATH == nil then tbl.STRIP_FROM_PATH = doc_dir end if tbl.HTML_HEADER == nil then local header_filename = formiga.os.compose_dir(formiga.os.cwd, formiga.documentation_build_dir, doc_dir_name, "header.html") --formiga.__make_header_doc__(filename,title,dev_title,user_title,is_dev) formiga.__make_header_doc__(header_filename, formiga.program_name, formiga.program_name.." (developer manual)", formiga.program_name.." (user reference manual)", i==2) tbl.HTML_HEADER = header_filename end if tbl.HTML_FOOTER == nil then local footer_filename = formiga.os.compose_dir(formiga.os.cwd, formiga.documentation_build_dir, doc_dir_name, "footer.html") tbl.HTML_FOOTER = footer_filename local f= io.open(footer_filename,"w") f:write("\n\n\n") f:close() end -- copiar el our_doxygen.css os.execute(string.format("mkdir -p %s; cp %s %s", formiga.os.compose_dir(dest_dir,"html"), formiga.os.compose_dir(formiga.os.cwd,"binding","our_doxygen.css"), formiga.os.compose_dir(dest_dir,"html"))) local doxygen_template_filename = formiga.os.compose_dir(formiga.os.cwd,"binding","Doxygen_template") local doxygen_aux_file = formiga.os.compose_dir(doc_dir,"doxygen_conf") local doxygen_conf = {} local f = io.open(doxygen_template_filename,"r") if f == nil then error("Error: "..doxygen_template_filename.." file not found\n") end for line in f:lines() do -- procesar las lineas y ver si son de la forma -- blah = wop -- si blah esta en la tabla, reemplazar wop local left,right _,_,left = string.find(line,"%s*([^%=%s]+)%s*%=.*") --print(string.format("line: '%s'",line)) if left and tbl[left] ~= nil then line = left.." = "..tbl[left] end table.insert(doxygen_conf,line) end f:close() f = io.open(doxygen_aux_file,"w") if f == nil then error("Error: "..doxygen_template_filename.." file cannot be created\n") end f:write(table.concat(doxygen_conf,"\n")) f:close() local command = "doxygen "..doxygen_aux_file if formiga.verbosity_level < 2 then command = command.." >/dev/null 2>/dev/null" end os.execute("mkdir -p "..dest_dir) print("ejecutamos",command) local ok,what,resul = os.execute(command) if not ok then -- report error and stop everything error("Error "..resul.. "\nwhen executing command "..command.."\n") end end end function main_documentation (t) t.__task__ = formiga.__main_documentation__ return t end --------------------------------------------------------------------------------- -- ejecuta todos los package.lua encontrados desde la ruta packages -- WARNING updates global variable formiga.package_table function formiga.read_all_packages () local f = io.popen('find packages -name package.lua',"r") local dirname for path in f:lines() do _, _, dirname = string.find(path,"packages/(.*)/package.lua") printverbose(2,'-- reading package '..dirname) -- set these two variables which are used during the dofile formiga.current_package_dir = dirname formiga.os.basedir = formiga.os.compose_dir("packages",dirname) dofile(path) end f:close() end -- updates include_dirs properties of every package function formiga.add_include_dirs() for pkg in pairs(formiga.set_of_packages) do local tid = {} for _,pkg2 in ipairs(formiga.dependencies[pkg]) do table.insert(tid, formiga.os.compose_dir(formiga.global_properties.build_dir,"packages", formiga.package_to_dir[pkg2], "include")) table.insert(tid, formiga.os.compose_dir(formiga.global_properties.build_dir,"packages", formiga.package_to_dir[pkg2], "include", "binding")) end local include_dirs = table.concat(tid,formiga.os.SEPPATH) formiga.package_table[pkg].properties.include_dirs = include_dirs end end -- generates a string with all .o files separated with whitespace function formiga.get_all_objects() local tobj,dir,files tobj = {} for pkg in pairs(formiga.set_of_packages) do dir = formiga.os.compose_dir(formiga.global_properties.build_dir, "packages", formiga.package_to_dir[pkg], "build", "*.o") files = formiga.os.glob(dir) if #files ~= 0 then table.insert(tobj,dir) end dir = formiga.os.compose_dir(formiga.global_properties.build_dir, "packages", formiga.package_to_dir[pkg], "build", "binding", "*.o") files = formiga.os.glob(dir) if #files ~= 0 then table.insert(tobj,dir) end end return table.concat(tobj," ") end -- generates a string with all the .o files which don't come from bindings function formiga.get_all_non_binding_objects() local tobj,dir,files tobj = {} for pkg in pairs(formiga.set_of_packages) do dir = formiga.os.compose_dir(formiga.global_properties.build_dir, "packages", formiga.package_to_dir[pkg], "build", "*.o") files = formiga.os.glob(dir) if #files ~= 0 then table.insert(tobj,dir) end end return table.concat(tobj," ") end -- this function checks if new packages must be added to the list of -- packages function formiga.get_all_dependencies () local nodependencies repeat nodependencies = true for pkg in pairs(formiga.set_of_packages) do if formiga.dependencies[pkg] == nil then print("package "..pkg.." not found") return false else for _,pkg2 in ipairs(formiga.dependencies[pkg]) do if formiga.set_of_packages[pkg2] == nil then formiga.set_of_packages[pkg2] = 1 printverbose(2,"adding dependency "..pkg2) nodependencies = false end end end end until nodependencies return true end ------------------------------------------------------------------------ -- funcion para crear el ".o" necesario para registar los fuentes -- "lua" y bindings de un proyecto function generate_package_register_file(package,package_register_functions) local thefile = formiga.os.compose_dir(formiga.global_properties.build_dir,package.basedir,"build", "register_package_lua_and_binding_" .. package.name) local f = io.open(thefile..".c", "w") if not f then error ("The directory 'build' must be created in package: ".. package.name) end f:write("#include \n#include \n".. "#include \n\n") for i,func in ipairs(package_register_functions) do f:write("void " .. func .. "(lua_State *L);\n") end f:write("\n") for i,v in ipairs(package.depends or {}) do f:write('extern int ' .. formiga.package_table[v].luaopen_name .. '(lua_State *L);\n') end f:write("\n") f:write("int " .. package.luaopen_name .. "(lua_State *L) {\n") f:write(' luaL_getsubtable(L, LUA_REGISTRYINDEX, "_LOADED");\n') f:write(' lua_getfield(L, -1, "' .. package.module_name .. '");\n') f:write(' if (lua_isnil(L, -1)) {\n') for i,v in ipairs(package.depends or {}) do f:write(' luaL_requiref(L, "' .. formiga.package_table[v].module_name .. '", ' .. formiga.package_table[v].luaopen_name .. ', 0);\n') f:write(' lua_pop(L, 1);\n') end for i,func in ipairs(package_register_functions) do f:write(' '..func .. '(L);\n') end f:write(' }\n') f:write(' lua_pop(L,2);\n') local tokens = string.tokenize(package.name, ".") f:write(' lua_getglobal(L, "' .. tokens[1] .. '");\n') for i=2,#tokens do f:write(' lua_getfield(L, -1, "' .. tokens[i] .. '");\n') f:write(' lua_remove(L, -2);\n') end f:write(' if (lua_isnil(L, -1)) {\n') f:write(' lua_pop(L, 1);\n') f:write(' lua_newtable(L);\n') f:write(' }\n') f:write(' lua_pushstring(L, "_VERSION");\n') f:write(' lua_pushstring(L, "' .. (package.version or "none") .. '");\n') f:write(' lua_rawset(L, -3);\n') f:write(' lua_pushstring(L, "_NAME");\n') f:write(' lua_pushstring(L, "' .. package.name .. '");\n') f:write(' lua_rawset(L, -3);\n') f:write(' return 1;\n') -- f:write(' return 0;\n') f:write('}\n') f:close() local command = table.concat({ formiga.compiler.Ccompiler, formiga.compiler.compile_object, thefile..".c", formiga.compiler.destination, thefile..".o", formiga.compiler.include_dir, "lua/include/", table.concat(formiga.compiler.extra_flags, " ") }, " ") local ok,what,resul = os.execute(command) if not ok then print("Error in command: " .. command) os.exit(1) end end -- treats formiga.compiler.global_flags function manage_specific_global_flags() local t = formiga.compiler.global_flags if t.platform == "arm-wince-pocketpc" then t.ignore_cuda = true formiga.compiler.CPPcompiler = os.getenv("CXX") or "arm-wince-pe-g++" formiga.compiler.Ccompiler = os.getenv("CC") or "arm-wince-pe-gcc" table.insert(formiga.compiler.extra_flags, "-D__NOTUSE_SIGNAL__") elseif t.platform == "unix" then t.ignore_cuda = true formiga.compiler.CPPcompiler = os.getenv("CXX") or "g++" formiga.compiler.Ccompiler = os.getenv("CC") or "gcc" table.insert(formiga.compiler.extra_libs,"-ldl") elseif t.platform == "unix64+cuda" then t.ignore_cuda = false table.insert(formiga.compiler.extra_flags, "-DUSE_CUDA") table.insert(formiga.compiler.extra_libs,"-lcuda -lcudart -L/usr/local/cuda/lib64") end if t.use_readline=="yes" then table.insert(formiga.compiler.extra_libs, "-lreadline -lhistory -lncurses") table.insert(formiga.compiler.extra_flags, "-DLUA_USE_READLINE") end if t.CPPcompiler then formiga.compiler.CPPcompiler = t.CPPcompiler end if t.Ccompiler then formiga.compiler.Ccompiler = t.Ccompiler end if t.extra_libs then table.append(formiga.compiler.extra_libs,t.extra_libs) end if t.shared_extra_libs then table.append(formiga.compiler.shared_extra_libs,t.shared_extra_libs) end if t.extra_flags then table.append(formiga.compiler.extra_flags,t.extra_flags) end end ------------------------------------------------------------------------ -- luapkg ------------------------------------------------------------------------ function luapkg (t) -- formiga.initialize para obtener formiga.os.basedir, etc. formiga.initialize() formiga.program_name = t.program_name formiga.module_name = t.program_name:gsub("[%-%.%_]","") formiga.version_flags = t.version_flags formiga.disclaimer_strings = t.disclaimer_strings formiga.verbosity_level = t.verbosity_level or 2 if os.getenv("TERM")=="xterm" then formiga.color_output=true end if arg[1] then default_target = arg[1] else print("default target: build") default_target = "build" end formiga.main_package_name = t.main_package.name formiga.read_all_packages() -- add all packages in dependency list of main_package formiga.dependencies[formiga.main_package_name] = t.packages formiga.pkg_graph:add_node(formiga.main_package_name) formiga.pkg_graph:connect(formiga.main_package_name, t.packages) formiga.compiler.global_flags = t.global_flags or {} manage_specific_global_flags() -- the set of packages formiga.set_of_packages = {} for _,pkg in pairs(t.packages) do formiga.set_of_packages[pkg] = 1 end formiga.set_of_packages[formiga.main_package_name] = 1 if not formiga.get_all_dependencies() then print("luapkg dependencies failed") else formiga.add_include_dirs() local components = formiga.pkg_graph:search_strongly_cc(formiga.set_of_packages) local rev_top_order = components.components_graph:reverse_top_order(formiga.set_of_packages) formiga.order_to_process_packages = {} for i,j in ipairs(rev_top_order) do printverbose(2,"DEBUG Componente ",i,j) if components.nodes_graph[j]:size() > 1 then print("WARNING: a component of strongly c.c. with ".. components.nodes_graph[j]:size() .. " nodes:") for k,h in components.nodes_graph[j]:nodes_iterator() do print("",k) end pause_warning() end for k,h in components.nodes_graph[j]:nodes_iterator() do table.insert(formiga.order_to_process_packages,k) end end printverbosecolor(1, "blue", nil, "[Reverse Topologic Order] " .. table.concat(formiga.order_to_process_packages,",")) -- sacamos el timestamp del script lua y del program_name local programnm = formiga.os.compose_dir(formiga.global_properties.build_dir,"bin",formiga.program_name) local program_timestamp = formiga.os.get_file_timestamp(programnm) local script_timestamp = formiga.os.get_file_timestamp(formiga.the_configuration_file) if script_timestamp > program_timestamp then -- un 0 en program_timestamp fuerza la compilacion de todo program_timestamp = 0 end -- ejecutamos :P local order = formiga.order_to_process_packages local package_string = "" local prev_package_string = "" for i,pkg in ipairs(order) do formiga.exec_package(pkg,default_target, program_timestamp) prev_package_string = package_string if order[i+1] then package_string = order[i+1] .. " " .. formiga.package_table[order[i+1]].basedir.."/ " else package_string = "OK!" end writeverbosecolor(0, "bright_green", nil, string.format("\r[%3d/%3d (%3.1f%%) done]: %-" ..tostring(#prev_package_string).."s", i, #order, 100*(i/#order), package_string)) end io.write("\n") end end april-ann-0.3.1/binding/luabind.lua000066400000000000000000000254021234204160600171300ustar00rootroot00000000000000-- Variable GLOBAL para conrolar que se generen numeros de linea -- utiles para GCC -- strip tipico -- simbolos = simbolos que actuan de separadores function strip(texto,simbolos) local SEPARADOR_EXT="["..simbolos.."]+" local res = {} local total = string.len(texto) local last = 1 local pos ,fin pos,fin = string.find(texto,SEPARADOR_EXT, last) while pos do table.insert(res, string.sub(texto,last,pos-1)) last = fin + 1 pos,fin = string.find(texto,SEPARADOR_EXT, last) end if last < total then table.insert(res,string.sub(texto, last, total)) end return res end -- Funcion para procesar texto, devuelve un texto que puede ser -- ejecutado para procesar el fichero. function expand_text(original) local inicio_code = nil local fin_marca = nil local tipo = nil local last = 1 local total = string.len(original) local resultado = "" local fin_marca_code -- Dentro del print de codigo normal se buscan cadenas encerradas entre '$$' -- que sern ejecutadas en lua ( para concatenar como cadena de texto ) local function parse(text) if text=="" then return "" end local res = " print([["..text.."]]) " res = string.gsub(res,"%$%$([^$]+)%$%$","]]..%1..[[") return res end -- Buscamos comentarios del tipo /*LUA o //LUA y al hacer -- /([*/])LUA el tercer argumento devuelto sera "*" o "/" -- que determina el tipo de comentario inicio_code, fin_marca, tipo= string.find(original, "/([*/])LUA",last) while inicio_code ~= nil do if tipo == '/' then fin_code, fin_marca_code = string.find(original, "\n",fin_marca) else fin_code, fin_marca_code = string.find(original,"%*/",fin_marca) end -- Escribimos -- resultado = resultado..parse(string.sub(original,last,inicio_code-1)) resultado = resultado..string.sub(original,fin_marca+1,fin_code-1) last = fin_marca_code+1 inicio_code, fin_marca, tipo= string.find(original, "/([*/])LUA",last) end if (last < total) then resultado = resultado..parse(string.sub(original,last,total)) end return resultado end -- para cargar tal cual un fichero en una cadena function load_raw(filename) local f = io.open(filename) local c = f:read("*a") f:close() return c end -- load_data carga informacin del fichero filename y fija ciertas variables -- globales: -- CLASSES : tabla indexada por nombre de Clase y que contiene: -- [nombre_clase] = { -- methods = {} ( [nombre_metodo] = string (codigo) ) -- class_methods = {} ( [nombre_metodo] = string (codigo) ) -- class_open = string (codigo) -- constructor = string ( codigo ) -- destructor = string ( codigo ) -- } -- HEADER_H : Cabecera del posible .h -- HEADER_C : Cabecera del posible .cc FUNCTIONS = {} TABLES = {} CREATE_CLASS = {} CLASSES = {} HEADER_H = "" HEADER_C = "" LUANAME = {} PARENT_CLASS = {} STATIC_CONSTRUCTOR = {} ENUM_CONSTANT = {} STRING_CONSTANT = {} function load_data(filename) local f,_error = io.open(filename) if (f == nil) then print("error opening file ".. filename .." : ".. (_error or "nil")) os.exit() end local line, ini, fin, name local num_line = 0 local buffer = {} local last_table = nil local last_key = "" local last_className = "" -- Guardar en la ultima tabla,key el buffer actual local function store_buffer() if last_table and last_key then if lines_information == nil then table.insert(buffer,'/*___LUA_END___ ('..last_className..'::'..last_key..') '.. filename..":"..(num_line-1)..' *****/') end last_table[last_key] = table.concat(buffer,'\n') last_table = nil last_key = "" buffer = {} end end -- inicializar el buffer de codigo fuente local function store_header() if lines_information == nil then table.insert(buffer,'\n/*__LUA_BEGIN__ ('..last_className..'::'..last_key..') '.. filename..":"..(num_line+1)..' *****/\n#line '.. (num_line+1)..' "'..filename..'"') end end -- Comprueba si una clase existe y si no la inicializa local function check_class(ClassName) if not CLASSES[ClassName] then if not LUANAME[ClassName] then LUANAME[ClassName] = ClassName end CLASSES[ClassName] = { methods={}, constructor = "", destructor = "", class_open = "", class_methods = {} } end end -- Funciones para cada una de las marcas local dolabel = { STATIC_CONSTRUCTOR = function(name) assert(name, "STATIC_CONSTRUCTOR needs a name") last_className = "static_constructor_for_"..name last_table, last_key = STATIC_CONSTRUCTOR, name store_header() print("...Static Constructor::"..name) end, CREATE_TABLE = function(TableName) assert(TableName, "CREATE_TABLE needs a TableName") TABLES[TableName] = true last_table = TABLES last_key = TableName print ("...Create Table "..TableName) end, FUNCTION = function(TableName) assert(TableName, "FUNCTION needs a TableName") last_table = FUNCTIONS last_className = TableName last_key = TableName store_header () print ("...Function "..TableName) end, METHOD = function(ClassName, Method) assert(ClassName and Method, "METHOD needs a ClassName and Method") check_class(ClassName) last_className = ClassName last_table, last_key = CLASSES[ClassName].methods, Method store_header() print("..."..ClassName.."::"..Method) end, CLASS_METHOD = function(ClassName, Method) assert(ClassName and Method, "CLASS_METHOD needs a ClassName and Method") check_class(ClassName) last_className = ClassName last_table, last_key = CLASSES[ClassName].class_methods, Method store_header() print("..."..ClassName.."::"..Method.."(class_method)") end, CLASS_OPEN = function(ClassName) assert(ClassName, "CLASS_OPEN needs a ClassName") check_class(ClassName) last_className = ClassName last_table, last_key = CLASSES[ClassName], "class_open" store_header() print("..."..ClassName.." (open)") end, CONSTRUCTOR = function(ClassName) assert(ClassName, "CONSTRUCTOR needs a ClassName") check_class(ClassName) last_className = ClassName last_table, last_key = CLASSES[ClassName], "constructor" store_header() print("..."..ClassName.."::Constructor") end, DESTRUCTOR = function(ClassName) assert(ClassName, "DESTRUCTOR needs a ClassName") check_class(ClassName) last_className = ClassName last_table, last_key = CLASSES[ClassName], "destructor" store_header() print("..."..ClassName.."::Destructor") end, END = function() store_buffer() end, HEADER_C = function() last_className ="Cabecera" last_table, last_key = _G, "HEADER_C" store_header() print("...Header cc") end, HEADER_H = function() last_className ="Cabecera" last_table, last_key = _G, "HEADER_H" store_header() print("...Header h") end, LUACLASSNAME = function (cName, luaName) assert(cName and luaName, "LUACLASSNAME needs a cName and luaName") LUANAME[cName] = luaName end, CPP_CLASS = function (cName) assert(cName, "CPP_CLASS needs a cName") CREATE_CLASS[cName] = true end, SUBCLASS_OF = function(childclass,parentclass) assert(childclass and parentclass, "SUBCLASS_OF needs a childclass and parentclass") if PARENT_CLASS[childclass] then error ("Redefining a SUBCLASS_OF label in ".. "binding trying '".. childclass .."' is child of '".. parentclass .."'!!!") end PARENT_CLASS[childclass] = parentclass -- CLASSES[parentclass] metatabla de CLASSES[childclass] end, -- Esta macro permite exportar a Lua valores de ENUMS o MACROS -- de C/C++. OJO!!! al ser ENUMS, los valores siempre hacen -- referencia a CONSTANTES NUMERICAS (nunca numeros), y no se -- permite que dos o mas compartan el mismo valor. ENUM_CONSTANT = function(varName, varValue) assert(varValue and varValue, "ENUM_CONSTANT needs a varName and varValue") local tbl=string.gsub(varName, "^(.*)%.[^%.]*$", "%1") local name=string.gsub(varName, "^.*%.([^%.]*)$", "%1") ENUM_CONSTANT[tbl] = ENUM_CONSTANT[tbl] or {} if ENUM_CONSTANT[tbl][name] then io.stderr:write("ENUM_CONSTANT " .. varName .. " is repeated!!!\n") os.exit(10) end ENUM_CONSTANT[tbl][name] = varValue end, -- Esta macro permite exportar a Lua valores de STRINGS o MACROS -- de C/C++. OJO!!! al ser CONSTANTES, los valores siempre hacen -- referencia a CONST CHAR *, y no se -- permite que dos o mas compartan el mismo valor. STRING_CONSTANT = function(varName, varValue) assert(varValue and varValue, "STRING_CONSTANT needs a varName and varValue") local tbl=string.gsub(varName, "^(.*)%.[^%.]*$", "%1") local name=string.gsub(varName, "^.*%.([^%.]*)$", "%1") STRING_CONSTANT[tbl] = STRING_CONSTANT[tbl] or {} if STRING_CONSTANT[tbl][name] then io.stderr:write("STRING_CONSTANT " .. varName .. " is repeated!!!\n") os.exit(10) end STRING_CONSTANT[tbl][name] = varValue end, } for line in f:lines() do num_line = num_line + 1 ini,fin,name,args = string.find(line,"[ \t]*//BIND_([^ ]*) *(.*)") if ini ~= nil then if dolabel[name] then args = strip(args," ") dolabel[name](unpack(args)) else io.stderr:write("Error: Etiqueta "..name.." Desconocida\n") os.exit(1) end -- if dolabel[name] else table.insert(buffer,line) end -- if ini end -- for store_buffer() end -- MAIN if #arg < 3 then io.stderr:write( "USO: "..arg[-1].." "..arg[0].." file_output plantilla fichero_to_bind1 [fichero_to_bind2 ...]\n") os.exit(1) end f = io.open(arg[2]) plantilla = expand_text( f:read("*a") ) for i=3,#arg do load_data( arg[i] ) end FILENAME = arg[1] _,_,FILENAME2 = string.find(FILENAME,"[.]*/([%w_]+)%.[^/]*") FILENAME2 = string.gsub(FILENAME2,"%p", "_") if FILENAME==arg[2] or FILENAME==arg[3] then io.stderr:write( "El fichero a generar coincide con la plantilla o el fuente [".. FILENAME.."]\n\tPlantilla="..arg[2].."\n\tFuente="..arg[3].."\n") os.exit(1) end -- redirigimos la salida new_output = io.open(FILENAME,"w+") if new_output == nil then print("Error: file "..FILENAME.." cannot be created") os.exit(256) end oldprint = print print = function(...) new_output:write(...,"\n") end -- ejecutamos --f=io.open("wop.tmp","w") --f:write(plantilla) -- para debug --f:close() assert(loadstring(plantilla))() april-ann-0.3.1/binding/our_doxygen.css000066400000000000000000000176561234204160600200770ustar00rootroot00000000000000BODY,H1,H2,H3,H4,H5,H6,P,CENTER,TD,TH,UL,DL,DIV { font-family: Geneva, Arial, Helvetica, sans-serif; } BODY,TD { font-size: 90%; } CODE { font-size: 120%; } H1 { text-align: center; font-size: 160%; } H2 { font-size: 120%; } H3 { font-size: 100%; } CAPTION { font-weight: bold } DIV.qindex { width: 100%; background-color: #e8eef2; border: 1px solid #84b0c7; text-align: center; margin: 2px; padding: 2px; line-height: 140%; } DIV.nav { width: 100%; background-color: #e8eef2; border: 1px solid #84b0c7; text-align: center; margin: 2px; padding: 2px; line-height: 140%; } DIV.navtab { background-color: #e8eef2; border: 1px solid #84b0c7; text-align: center; margin: 2px; margin-right: 15px; padding: 2px; } TD.navtab { font-size: 70%; } A.qindex { text-decoration: none; font-weight: bold; color: #1A419D; } A.qindex:visited { text-decoration: none; font-weight: bold; color: #1A419D } A.qindex:hover { text-decoration: none; background-color: #ddddff; } A.qindexHL { text-decoration: none; font-weight: bold; background-color: #6666cc; color: #ffffff; border: 1px double #9295C2; } A.qindexHL:hover { text-decoration: none; background-color: #6666cc; color: #ffffff; } A.qindexHL:visited { text-decoration: none; background-color: #6666cc; color: #ffffff } A.el { text-decoration: none; font-weight: bold } A.elRef { font-weight: bold } A.code:link { text-decoration: none; font-weight: normal; color: #0000FF} A.code:visited { text-decoration: none; font-weight: normal; color: #0000FF} A.codeRef:link { font-weight: normal; color: #0000FF} A.codeRef:visited { font-weight: normal; color: #0000FF} A:hover { text-decoration: none; background-color: #f2f2ff } DL.el { margin-left: -1cm } .fragment { font-family: monospace, fixed; font-size: 95%; } PRE.fragment { border: 1px solid #CCCCCC; background-color: #f5f5f5; margin-top: 4px; margin-bottom: 4px; margin-left: 2px; margin-right: 8px; padding-left: 6px; padding-right: 6px; padding-top: 4px; padding-bottom: 4px; } DIV.ah { background-color: black; font-weight: bold; color: #ffffff; margin-bottom: 3px; margin-top: 3px } DIV.groupHeader { margin-left: 16px; margin-top: 12px; margin-bottom: 6px; font-weight: bold; } DIV.groupText { margin-left: 16px; font-style: italic; font-size: 90% } BODY { background: white; color: black; margin-right: 20px; margin-left: 20px; } TD.indexkey { background-color: #e8eef2; font-weight: bold; padding-right : 10px; padding-top : 2px; padding-left : 10px; padding-bottom : 2px; margin-left : 0px; margin-right : 0px; margin-top : 2px; margin-bottom : 2px; border: 1px solid #CCCCCC; } TD.indexvalue { background-color: #e8eef2; font-style: italic; padding-right : 10px; padding-top : 2px; padding-left : 10px; padding-bottom : 2px; margin-left : 0px; margin-right : 0px; margin-top : 2px; margin-bottom : 2px; border: 1px solid #CCCCCC; } TR.memlist { background-color: #f0f0f0; } P.formulaDsp { text-align: center; } IMG.formulaDsp { } IMG.formulaInl { vertical-align: middle; } SPAN.keyword { color: #008000 } SPAN.keywordtype { color: #604020 } SPAN.keywordflow { color: #e08000 } SPAN.comment { color: #800000 } SPAN.preprocessor { color: #806020 } SPAN.stringliteral { color: #002080 } SPAN.charliteral { color: #008080 } .mdescLeft { padding: 0px 8px 4px 8px; font-size: 80%; font-style: italic; background-color: #FAFAFA; border-top: 1px none #E0E0E0; border-right: 1px none #E0E0E0; border-bottom: 1px none #E0E0E0; border-left: 1px none #E0E0E0; margin: 0px; } .mdescRight { padding: 0px 8px 4px 8px; font-size: 80%; font-style: italic; background-color: #FAFAFA; border-top: 1px none #E0E0E0; border-right: 1px none #E0E0E0; border-bottom: 1px none #E0E0E0; border-left: 1px none #E0E0E0; margin: 0px; } .memItemLeft { padding: 1px 0px 0px 8px; margin: 4px; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; border-top-color: #E0E0E0; border-right-color: #E0E0E0; border-bottom-color: #E0E0E0; border-left-color: #E0E0E0; border-top-style: solid; border-right-style: none; border-bottom-style: none; border-left-style: none; background-color: #FAFAFA; font-size: 80%; } .memItemRight { padding: 1px 8px 0px 8px; margin: 4px; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; border-top-color: #E0E0E0; border-right-color: #E0E0E0; border-bottom-color: #E0E0E0; border-left-color: #E0E0E0; border-top-style: solid; border-right-style: none; border-bottom-style: none; border-left-style: none; background-color: #FAFAFA; font-size: 80%; } .memTemplItemLeft { padding: 1px 0px 0px 8px; margin: 4px; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; border-top-color: #E0E0E0; border-right-color: #E0E0E0; border-bottom-color: #E0E0E0; border-left-color: #E0E0E0; border-top-style: none; border-right-style: none; border-bottom-style: none; border-left-style: none; background-color: #FAFAFA; font-size: 80%; } .memTemplItemRight { padding: 1px 8px 0px 8px; margin: 4px; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; border-top-color: #E0E0E0; border-right-color: #E0E0E0; border-bottom-color: #E0E0E0; border-left-color: #E0E0E0; border-top-style: none; border-right-style: none; border-bottom-style: none; border-left-style: none; background-color: #FAFAFA; font-size: 80%; } .memTemplParams { padding: 1px 0px 0px 8px; margin: 4px; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; border-top-color: #E0E0E0; border-right-color: #E0E0E0; border-bottom-color: #E0E0E0; border-left-color: #E0E0E0; border-top-style: solid; border-right-style: none; border-bottom-style: none; border-left-style: none; color: #606060; background-color: #FAFAFA; font-size: 80%; } .search { color: #003399; font-weight: bold; } FORM.search { margin-bottom: 0px; margin-top: 0px; } INPUT.search { font-size: 75%; color: #000080; font-weight: normal; background-color: #e8eef2; } TD.tiny { font-size: 75%; } a { color: #1A41A8; } a:visited { color: #2A3798; } .dirtab { padding: 4px; border-collapse: collapse; border: 1px solid #84b0c7; } TH.dirtab { background: #e8eef2; font-weight: bold; } HR { height: 1px; border: none; border-top: 1px solid black; } /* Style for detailed member documentation */ .memtemplate { font-size: 80%; color: #606060; font-weight: normal; } .memnav { background-color: #e8eef2; border: 1px solid #84b0c7; text-align: center; margin: 2px; margin-right: 15px; padding: 2px; } .memitem { padding: 4px; background-color: #eef3f5; border-width: 1px; border-style: solid; border-color: #dedeee; -moz-border-radius: 8px 8px 8px 8px; } .memname { white-space: nowrap; font-weight: bold; } .memdoc{ padding-left: 10px; } .memproto { background-color: #d5e1e8; width: 100%; border-width: 1px; border-style: solid; border-color: #84b0c7; font-weight: bold; -moz-border-radius: 8px 8px 8px 8px; } .paramkey { text-align: right; } .paramtype { white-space: nowrap; } .paramname { color: #602020; font-style: italic; white-space: nowrap; } /* End Styling for detailed member documentation */ /* for the tree view */ .ftvtree { font-family: sans-serif; margin:0.5em; } .directory { font-size: 9pt; font-weight: bold; } .directory h3 { margin: 0px; margin-top: 1em; font-size: 11pt; } .directory > h3 { margin-top: 0; } .directory p { margin: 0px; white-space: nowrap; } .directory div { display: none; margin: 0px; } .directory img { vertical-align: -30%; } april-ann-0.3.1/binding/utilformiga.lua000066400000000000000000000137341234204160600200410ustar00rootroot00000000000000-- Clases auxiliares para calcular el orden topológico, grafo y pila ------------------ -- Little Stack -- ------------------ stack = {} stack.__index = stack setmetatable(stack, stack) stack.__tostring = function() return "stack" end function stack:push(v) self.n = self.n+1 self.data[self.n] = v end function stack:top() return self.data[self.n] end function stack:pop() v = self.data[self.n] self.n = self.n-1 return v end function stack:size() return self.n end function stack:clear() self.n = 0 self.data = {} end function stack:print() print ("Stack: ", table.concat(self.data, ",",1,self.n)) end function stack:__call() local obj = { n=0, data={} } setmetatable (obj, self) return obj end function stack.__newindex(t,k,v) error("attempt to modify stack class") end ------------------ -- Little Graph -- ------------------ graph = {} graph.__index = graph setmetatable(graph, graph) graph.__tostring = function() return "graph" end function graph:add_node(node) if not self.nodes[node] then self.nodes[node] = { connections={}, next={}, back={} } end end function graph:connect(node1, dest_list) if not self.nodes[node1] then self.nodes[node1] = { connections={}, next={}, back={} } self.n = self.n + 1 end for i,dest_node in pairs(dest_list) do if not self.nodes[dest_node] then self.nodes[dest_node] = { connections={}, next={}, back={} } self.n = self.n + 1 end if not self.nodes[node1].connections[dest_node] then self.nodes[node1].connections[dest_node] = true table.insert(self.nodes[node1].next, dest_node) table.insert(self.nodes[dest_node].back, node1) end end end function graph:get_node(node) return self.nodes[node] end function graph:size() return self.n end function graph:nodes_iterator() return pairs(self.nodes) end function graph:next_iterator(node) return pairs(self.nodes[node].next) end function graph:back_iterator(node) return pairs(self.nodes[node].back) end function graph:__call() obj = { n=0, nodes={} } setmetatable (obj, self) return obj end -- -- Strongly Connected Componentes and topologic order -- -- Algorithm extracted from: -- -- @article{ nuutila94finding, -- author = "Esko Nuutila and Eljas Soisalon-Soininen", -- title = "On Finding the Strongly Connected Components in a Directed Graph", -- journal = "Information Processing Letters", -- volume = "49", -- number = "1", -- pages = "9-14", -- year = "1994", -- url = "citeseer.ist.psu.edu/nuutila94finding.html" -- } -- recursive function function graph:visit(node,useful_node) self.visited[node] = true self.visit_count = self.visit_count + 1 self.root[node] = self.visit_count self.indexes[self.visit_count] = node self.in_component[node] = false self.the_stack:push(node) for _,a_node in self:next_iterator(node) do if not self.visited[a_node] and useful_node[a_node] then self:visit(a_node,useful_node) end if not self.in_component[a_node] then if self.root[a_node] < self.root[node] then self.root[node] = self.root[a_node] end end end local w if self.indexes[self.root[node]] == node then repeat w = self.the_stack:pop() self.in_component[w] = true until node == w end end function graph:search_strongly_cc(useful_node) -- set up attributes self.visited = {} -- visited nodes self.root = {} -- root nodes of connected components self.in_component= {} -- indicates wheter a node is in a c.c. self.indexes = {} -- index of node in function 'visit' (visit_count) self.visit_count = 0 -- current index for function 'visit' (indexes) self.the_stack = stack() for a_node,_ in self:nodes_iterator() do if not self.visited[a_node] and useful_node[a_node] then self:visit(a_node,useful_node) end end self.the_stack:clear() -- Creamos el grafo de las componentes conexas -- y para cada componente el grafo de sus nodes local components = { components_graph = graph(), -- El grafo de las componentes nodes_graph = {} -- Un grafo por cada componente con -- la conexión de sus nodes } for i,v in pairs(self.root) do -- Recorremos todos los nodes local component_name = self.indexes[v] if not components.nodes_graph[component_name] then components.nodes_graph[component_name] = graph() end -- Anyadimos el node components.nodes_graph[component_name]:add_node(component_name) components.components_graph:add_node(component_name) -- Conexiones for _,next in self:next_iterator(i) do -- Recorremos las aristas of current node if self.root[next] == v then -- El node destino está en la misma componente -- conexa que el origen components.nodes_graph[component_name]:connect (i, {next}) else -- Cada node está en una componente distinta -- Creamos la conexión entre las dos componentes conexas components.components_graph:connect(component_name, {self.indexes[self.root[next]]}) end end end -- unset attributes self.visited = nil self.root = nil self.in_component= nil self.indexes = nil self.visit_count = nil self.the_stack = nil -- return components end function graph:get_reverse_top_order (the_node,useful_node) for _,node in self:next_iterator(the_node) do if not self.visited[node] and useful_node[node] then self.visited[node] = true self:get_reverse_top_order(node,useful_node) end end table.insert(self.top_order, the_node) end function graph:reverse_top_order(useful_node) self.visited = {} self.top_order = {} for pkg,_ in self:nodes_iterator() do if not self.visited[pkg] and useful_node[pkg] then self.visited[pkg] = true self:get_reverse_top_order(pkg,useful_node) end end local top_order = self.top_order self.visited = nil self.top_order = nil return top_order end -- function graph.__newindex(t,k,v) -- error("attempt to modify graph class") -- end april-ann-0.3.1/clean.sh000077500000000000000000000000311234204160600150050ustar00rootroot00000000000000#!/bin/sh rm -Rf build_* april-ann-0.3.1/configure.sh000077500000000000000000000007701234204160600157160ustar00rootroot00000000000000if [ -z $APRILANN_CONFIGURED ]; then export APRILANN_CONFIGURED=1 #export LANG="" export PATH="`pwd`"/lua/bin:`pwd`/bin:$PATH #export LUA_PATH="`pwd`""/binding/?.lua;?" fi export LUA_DIR="`pwd`"/lua/lua-5.2.2 (make -C $LUA_DIR && make -C $LUA_DIR install && make -C "`pwd`"/lua/lstrip) || (echo "Error building Lua!!!" && exit -1) if [ -z $APRIL_EXEC ]; then export APRIL_EXEC=`pwd`/bin/april-ann fi if [ -z $APRIL_TOOLS_DIR ]; then export APRIL_TOOLS_DIR=`pwd`/tools/ fi april-ann-0.3.1/lua/000077500000000000000000000000001234204160600141535ustar00rootroot00000000000000april-ann-0.3.1/lua/.gitignore000066400000000000000000000000241234204160600161370ustar00rootroot00000000000000*.o *.a bin include april-ann-0.3.1/lua/README.txt000066400000000000000000000276431234204160600156650ustar00rootroot000000000000002013/10/13: COPYRIGHT, AUTHORS, and VERSION stuff is out of Lua source tree, it is managed by formiga. 2013/09/17: Modified lua.h to incorporate the commit number diff --git a/lua/lua-5.2.2/src/lua.h b/lua/lua-5.2.2/src/lua.h index c675516..027bc17 100644 --- a/lua/lua-5.2.2/src/lua.h +++ b/lua/lua-5.2.2/src/lua.h @@ -26,10 +26,15 @@ #define LUA_COPYRIGHT LUA_RELEASE " Copyright (C) 1994-2013 Lua.org, PUC-Rio" #define LUA_AUTHORS "R. Ierusalimschy, L. H. de Figueiredo, W. Celes" +#ifndef APRILANN_COMMIT +#define APRILANN_COMMIT UNKNOWN +#endif +#define STRINGFY(X) #X +#define TOSTRING(X) STRINGFY(X) #define APRILANN_VERSION_MAJOR "0" #define APRILANN_VERSION_MINOR "2" #define APRILANN_VERSION_RELEASE "1" -#define APRILANN_RELEASE "April-ANN v" APRILANN_VERSION_MAJOR "." APRILANN_VERSION_MINOR "." APRILANN_VERSION_RELEASE "-beta" +#define APRILANN_RELEASE "April-ANN v" APRILANN_VERSION_MAJOR "." APRILANN_VERSION_MINOR "." APRILANN_VERSION_RELEASE "-beta COMMIT " TOSTRING(APRILANN_COMMIT) #define APRILANN_COPYRIGHT "Copyright (C) 2012-2013 DSIC-UPV, CEU-UCH" #define APRILANN_AUTHORS "F. Zamora-Martinez, S. España-Boquera, J. Gorbe-Moya, J. Pastor & A. Palacios" ------------------------------------------------------------------------------ 2013/09/04: Finally, here is the luaconf.h section for LUA_PATH and LUA_CPATH: #define LUA_CDIR_32 LUA_ROOT "lib/i386-linux-gnu/lua/" LUA_VDIR #define LUA_CDIR_64 LUA_ROOT "lib/x86_64-linux-gnu/lua/" LUA_VDIR #define LUA_PATH_DEFAULT \ LUA_LDIR"?.lua;" LUA_LDIR"?/init.lua;" \ LUA_CDIR"?.lua;" LUA_CDIR"?/init.lua;" "./?.lua" #define LUA_CPATH_DEFAULT \ LUA_CDIR"?.so;" LUA_CDIR"loadall.so;" \ LUA_CDIR_32"?.so;" LUA_CDIR_32"loadall.so;" \ LUA_CDIR_64"?.so;" LUA_CDIR_64"loadall.so;" \ "./?.so;" #endif /* } */ ---------------------------------------------------------------------------- 2013/09/03: Modified luaconf.h: - #define LUA_ROOT "/usr/local/" + #define LUA_ROOT "/usr/" ---------------------------------------------------------------------------- 2013/08/28: Modified Lua makefile, added this: UNAME = `uname` PLAT= DetectOs DetectOs: -@make $(UNAME) Linux: linux Darwin: macosx ---------------------------------------------------------------------------- 2013/06/08: Lua 5.2.2 update - Changes of Lua 5.2.2 diff --git a/lua/lua-5.2.2/src/liolib.c b/lua/lua-5.2.2/src/liolib.c index 3f80db1..d49d1db 100644 --- a/lua/lua-5.2.2/src/liolib.c +++ b/lua/lua-5.2.2/src/liolib.c @@ -46,40 +46,6 @@ /* ** {====================================================== -** lua_popen spawns a new process connected to the current -** one through the file streams. -** ======================================================= -*/ - -#if !defined(lua_popen) /* { */ - -#if defined(LUA_USE_POPEN) /* { */ - -#define lua_popen(L,c,m) ((void)L, fflush(NULL), popen(c,m)) -#define lua_pclose(L,file) ((void)L, pclose(file)) - -#elif defined(LUA_WIN) /* }{ */ - -#define lua_popen(L,c,m) ((void)L, _popen(c,m)) -#define lua_pclose(L,file) ((void)L, _pclose(file)) - - -#else /* }{ */ - -#define lua_popen(L,c,m) ((void)((void)c, m), \ - luaL_error(L, LUA_QL("popen") " not supported"), (FILE*)0) -#define lua_pclose(L,file) ((void)((void)L, file), -1) - - -#endif /* } */ - -#endif /* } */ - -/* }====================================================== */ - - -/* -** {====================================================== ** lua_fseek/lua_ftell: configuration for longer offsets ** ======================================================= */ diff --git a/lua/lua-5.2.2/src/llex.c b/lua/lua-5.2.2/src/llex.c index 1a32e34..877dc34 100644 --- a/lua/lua-5.2.2/src/llex.c +++ b/lua/lua-5.2.2/src/llex.c @@ -33,7 +33,7 @@ /* ORDER RESERVED */ -static const char *const luaX_tokens [] = { +const char *const luaX_tokens [] = { "and", "break", "do", "else", "elseif", "end", "false", "for", "function", "goto", "if", "in", "local", "nil", "not", "or", "repeat", diff --git a/lua/lua-5.2.2/src/lua.h b/lua/lua-5.2.2/src/lua.h index f6fe0d4..c675516 100644 --- a/lua/lua-5.2.2/src/lua.h +++ b/lua/lua-5.2.2/src/lua.h @@ -28,7 +28,7 @@ #define APRILANN_VERSION_MAJOR "0" #define APRILANN_VERSION_MINOR "2" -#define APRILANN_VERSION_RELEASE "0" +#define APRILANN_VERSION_RELEASE "1" #define APRILANN_RELEASE "April-ANN v" APRILANN_VERSION_MAJOR "." APRILANN_VERSION_MINOR "." APRILANN_VERSION_RELEASE "-beta" #define APRILANN_COPYRIGHT "Copyright (C) 2012-2013 DSIC-UPV, CEU-UCH" #define APRILANN_AUTHORS "F. Zamora-Martinez, S. España-Boquera, J. Gorbe-Moya, J. Pastor & A. Palacios" diff --git a/lua/lua-5.2.2/src/lualib.h b/lua/lua-5.2.2/src/lualib.h index 9fd126b..f5977cb 100644 --- a/lua/lua-5.2.2/src/lualib.h +++ b/lua/lua-5.2.2/src/lualib.h @@ -10,6 +10,38 @@ #include "lua.h" +/* +** {====================================================== +** lua_popen spawns a new process connected to the current +** one through the file streams. +** ======================================================= +*/ + +#if !defined(lua_popen) /* { */ + +#if defined(LUA_USE_POPEN) /* { */ + +#define lua_popen(L,c,m) ((void)L, fflush(NULL), popen(c,m)) +#define lua_pclose(L,file) ((void)L, pclose(file)) + +#elif defined(LUA_WIN) /* }{ */ + +#define lua_popen(L,c,m) ((void)L, _popen(c,m)) +#define lua_pclose(L,file) ((void)L, _pclose(file)) + + +#else /* }{ */ + +#define lua_popen(L,c,m) ((void)((void)c, m), \ + luaL_error(L, LUA_QL("popen") " not supported"), (FILE*)0) +#define lua_pclose(L,file) ((void)((void)L, file), -1) + + +#endif /* } */ + +#endif /* } */ + +/* }====================================================== */ LUAMOD_API int (luaopen_base) (lua_State *L); - Changes for compilation of lstrip/lstrip.c with Lua 5.2.2 diff --git a/lua/lstrip/lstrip.c b/lua/lstrip/lstrip.c index 715f3b6..b99fa2b 100644 --- a/lua/lstrip/lstrip.c +++ b/lua/lstrip/lstrip.c @@ -12,6 +12,8 @@ #include #include +#define lua_open() luaL_newstate() + #define LUA_CORE #include "lua.h" @@ -31,6 +33,8 @@ static const char* progname=PROGNAME; /* actual program name */ static int preserve=0; /* preserve line breaks? */ static int dump=0; /* dump instead of stripping? */ +extern const char *const luaX_tokens []; + static void fatal(const char* message) { fprintf(stderr,"%s: %s\n",progname,message); @@ -184,14 +188,24 @@ static void dostrip(LexState *X) } } -Proto *luaY_parser(lua_State *L, ZIO *z, Mbuffer *buff, const char *name) +Closure *luaY_parser(lua_State *L, ZIO *z, Mbuffer *buff, + Dyndata *dyd, const char *name, int firstchar) { LexState X; FuncState F; + Closure *cl = luaF_newLclosure(L, 1); /* create main closure */ + /* anchor closure (to avoid being collected) */ + setclLvalue(L, L->top, cl); + incr_top(L); X.buff=buff; - luaX_setinput(L,&X,z,luaS_new(L,name)); + F.f = cl->l.p = luaF_newproto(L); + F.f->source = luaS_new(L, name); /* create and anchor TString */ + X.buff = buff; + X.dyd = dyd; + dyd->actvar.n = dyd->gt.n = dyd->label.n = 0; + luaX_setinput(L, &X, z, F.f->source, firstchar); X.fs=&F; - X.fs->h=luaH_new(L,0,0); + X.fs->h=luaH_new(L); sethvalue2s(L,L->top,X.fs->h); incr_top(L); if (dump) @@ -200,7 +214,7 @@ Proto *luaY_parser(lua_State *L, ZIO *z, Mbuffer *buff, const char *name) dodump(&X); } else dostrip(&X); - return luaF_newproto(L); + return cl; /* it's on the stack too */ } static void strip(lua_State *L, const char *file) ------------------------------------- -- CHANGES BEFORE LUA 5.2.2 UPDATE -- ------------------------------------- 07/06/2013 diff --git a/lua/lua-5.1.4/src/lua.c b/lua/lua-5.1.4/src/lua.c index a650dbd..164dc12 100644 --- a/lua/lua-5.1.4/src/lua.c +++ b/lua/lua-5.1.4/src/lua.c @@ -110,6 +110,7 @@ static int docall (lua_State *L, int narg, int clear) { static void print_version (void) { l_message(NULL, LUA_RELEASE " " LUA_COPYRIGHT); + l_message(NULL, APRILANN_RELEASE " " APRILANN_COPYRIGHT); } diff --git a/lua/lua-5.1.4/src/lua.h b/lua/lua-5.1.4/src/lua.h index e4bdfd3..8956ab3 100644 --- a/lua/lua-5.1.4/src/lua.h +++ b/lua/lua-5.1.4/src/lua.h @@ -22,6 +22,9 @@ #define LUA_COPYRIGHT "Copyright (C) 1994-2008 Lua.org, PUC-Rio" #define LUA_AUTHORS "R. Ierusalimschy, L. H. de Figueiredo & W. Celes" +#define APRILANN_RELEASE "April-ANN 0.1.1 beta" +#define APRILANN_COPYRIGHT "Copyright (C) 2012-2013 April-ANN" +#define APRILANN_AUTHORS "F. Zamora-Martinez, S. España-Boquera, J. Gorbe-Moya, J. Pastor & A. Palacios" /* mark for precompiled code (`Lua') */ #define LUA_SIGNATURE "\033Lua" ---------------------------------------------------------------------------- 02/06/2013 - lua.c:22 static lua_State *globalL = NULL; + lua.c:22 lua_State *globalL = NULL; 23/04/2007 Aplicar los cambios del parche lua_dist2april.patch --------------------------------------------------- cd lua-.... patch -p1 < ../lua_dist2april.patch El p1 se salta el primer directorio de la ruta en la que se encuentran los ficheros a parchear. Cambios realizados a lua-5.1.2 ------------------------------ Los mismos que a 5.1.1. He creado un parche con ambos cambios para poder aplicarlos comodamente a futuras versiones (al menos de la serie 5.1, supongo). No obstante, sigue siendo necesario especificar las variables PLAT e INSTALL_TOP en el Makefile. Cambios realizados a la version estándar de lua-5.1.1 ----------------------------------------------------- En src/lib/liolib.c, funcion read_chars, cambio para evitar que un read termine interrumpido por seal y se entienda como un EOF - } while (n > 0 && nr == rlen); /* until end of count or eof */ + } while ((n > 0 && nr == rlen) || (ferror(f) && !feof(f) && errno==EINTR)); /* until end of count or eof */ -- En el Makefile poner: PLAT= posix INSTALL_TOP= ../.. de esta manera instala lua en el directorio superior, quedando: luapkg | |- lua | | | |- lua-5.1.1 <- hacer make y make install en este punto | |- lib | |- bin | |- include | \- man | . . . -- Inicializacion de los paquetes en pmain en lua.c. Ya no existe llamada a lua_userinit como la habia en la version anterior. PATCH: --- /home/jgorbe/temp/lua-5.1.1/src/lua.c 2006-06-02 17:34:00.000000000 +0200 +++ lua/lua-5.1.1/src/lua.c 2007-03-15 18:44:51.000000000 +0100 @@ -344,6 +344,9 @@ if (argv[0] && argv[0][0]) progname = argv[0]; lua_gc(L, LUA_GCSTOP, 0); /* stop collector during initialization */ luaL_openlibs(L); /* open libraries */ +#ifdef lua_userinit + lua_userinit(L); /* APRIL: init packages */ +#endif lua_gc(L, LUA_GCRESTART, 0); s->status = handle_luainit(L); if (s->status != 0) return 0; -------------------------------------------------------------------------------- ------------ CAMBIOS DE LA 5.0.3 QUE NO SE HICIERON AL PASAR A 5.1 ------------- -------------------------------------------------------------------------------- En el fichero src/lib/liolib.c: Aadida la funcin 'pclose' para usar con el interprete de Lua. Las lneas aadidas estn mrcadas con comentarios. Buscar 'Formiga' en el comentario. En el fichero luac.c situado en src/luac hemos añadido en la línea 93: antes: else if (IS("-o")) /* output file */ { output=argv[++i]; if (output==NULL || *output==0) usage("`-o' needs argument"); } ahora: else if (IS("-o")) /* output file */ { output=argv[++i]; if (output==NULL || *output==0) usage("`-o' needs argument"); if (IS("-")) output=NULL; } y hemos cambiado la línea 182: antes: FILE* D=fopen(output,"wb"); ahora: FILE* D= (output==NULL) ? stdout : fopen(output,"wb"); de esta manera se permite poner -o - para que saque el bytecode por salida estándar. Hemos cambiado tres líneas en el fichero config: descomentar para que funcione en el MacOS X: POPEN= -DUSE_POPEN=1 descomentar: MYCFLAGS= -O3 -fomit-frame-pointer # -fPIC poner: INSTALL_ROOT= .. de esta manera instala lua en el directorio superior, quedando: luapkg | |- lua | | | |- lua-5.0.2 <- hacer make y make install en este punto | |- lib | |- bin | |- include | \- man | . . . april-ann-0.3.1/lua/include/000077500000000000000000000000001234204160600155765ustar00rootroot00000000000000april-ann-0.3.1/lua/include/.gitignore000066400000000000000000000000001234204160600175540ustar00rootroot00000000000000april-ann-0.3.1/lua/lstrip/000077500000000000000000000000001234204160600154705ustar00rootroot00000000000000april-ann-0.3.1/lua/lstrip/.gitignore000066400000000000000000000000071234204160600174550ustar00rootroot00000000000000lstrip april-ann-0.3.1/lua/lstrip/Makefile000066400000000000000000000015371234204160600171360ustar00rootroot00000000000000# makefile for lstrip # change these to reflect your Lua installation (Lua 5.1!) LUA= $(LUA_DIR) LUAINC= $(LUA)/src LUALIB= $(LUA)/src LUASRC= $(LUA)/src # no need to change anything below here CFLAGS= $(INCS) $(WARN) -O2 $G WARN= -ansi -pedantic -Wall INCS= -I$(LUAINC) -I$(LUASRC) LIBS= -L$(LUALIB) -llua -lm MYNAME= lstrip MYLIB= $(MYNAME) T= $(MYNAME) OBJS= $(MYNAME).o TEST= test.lua LUAEXECDIR = $(LUA_DIR)/../bin all: $T test: $T -rm -f core core.* $T $(TEST) $T: $(OBJS) $(CC) -o $@ $(OBJS) $(LIBS) cp $(MYNAME) $(LUAEXECDIR) clean: -rm -f $(OBJS) core core.* a.out $(MYNAME) # distribution FTP= $(HOME)/public/ftp/lua/5.1 D= $(MYNAME) A= $(MYLIB).tar.gz TOTAR= Makefile,README,$(MYNAME).c,test.lua tar: clean tar zcvf $A -C .. $D/{$(TOTAR)} distr: tar touch -r $A .stamp mv $A $(FTP) diff: clean tar zxf $(FTP)/$A diff $D . # eof april-ann-0.3.1/lua/lstrip/README000066400000000000000000000015011234204160600163450ustar00rootroot00000000000000lstrip compresses Lua programs by removing comments and whitespace, including line breaks. By default, lstrip removes all line breaks. Use "lstrip -p" to preserve some line breaks. Use "lstrip -p -p" to preserve all line breaks. lstrip can also dump the token stream with -d. In this mode, for each token lstrip outputs a line with the line number, the token, and its value, separated by tabs. To try lstrip, just edit Makefile to reflect your installation of Lua and then run make. This will build lstrip and run a simple test. Note that lstrip needs inside information from the Lua private headers and so it needs to be built using a Lua build directory, not just the usual installation directories. This code is hereby placed in the public domain. Please send comments, suggestions, and bug reports to lhf@tecgraf.puc-rio.br . april-ann-0.3.1/lua/lstrip/lstrip.c000066400000000000000000000116061234204160600171550ustar00rootroot00000000000000/* * lstrip.c * compress Lua programs by removing comments and whitespaces, * optionally preserving line breaks (for error messages). * 20 Oct 2006 09:25:34 * Luiz Henrique de Figueiredo * This code is hereby placed in the public domain. */ #include #include #include #include #define lua_open() luaL_newstate() #define LUA_CORE #include "lua.h" #include "lauxlib.h" #include "ldo.h" #include "lfunc.h" #include "llex.h" #include "lobject.h" #include "lparser.h" #include "lstring.h" #include "ltable.h" #include "lzio.h" #define PROGNAME "lstrip" /* default program name */ static const char* progname=PROGNAME; /* actual program name */ static int preserve=0; /* preserve line breaks? */ static int dump=0; /* dump instead of stripping? */ extern const char *const luaX_tokens []; static void fatal(const char* message) { fprintf(stderr,"%s: %s\n",progname,message); exit(EXIT_FAILURE); } static void quote(const TString *ts) { const char *s=getstr(ts); size_t n=ts->tsv.len; int i; printf("\""); for (i=0; i', '='), pair('[', '='), pair('[', '['), pair('~', '='), pair(TK_CONCAT, '.'), pair(TK_CONCAT, TK_CONCAT), pair(TK_CONCAT, TK_DOTS), pair(TK_CONCAT, TK_NUMBER), pair(TK_NAME, TK_NAME), pair(TK_NAME, TK_NUMBER), pair(TK_NUMBER, '.'), pair(TK_NUMBER, TK_CONCAT), pair(TK_NUMBER, TK_DOTS), pair(TK_NUMBER, TK_NAME), pair(TK_NUMBER, TK_NUMBER), 0 }; static int space(int a, int b) { int i,c; if (a>=FIRST_RESERVED && a<=TK_WHILE) a=TK_NAME; if (b>=FIRST_RESERVED && b<=TK_WHILE) b=TK_NAME; c=pair(a,b); for (i=0; clash[i]!=0; i++) if (c==clash[i]) return 1; return 0; } static void dodump(LexState *X) { for (;;) { int t; luaX_next(X); t=X->t.token; printf("%d\t",X->linenumber); if (tt.seminfo.ts); break; case TK_NAME: printf("%s",getstr(X->t.seminfo.ts)); break; case TK_NUMBER: printf("%s",X->buff->buffer); break; } printf("\n"); } } static void dostrip(LexState *X) { int ln=1; int lt=0; for (;;) { int t; luaX_next(X); t=X->t.token; if (preserve) { if (X->linenumber!=ln) { if (preserve>1) while (X->linenumber!=ln++) printf("\n"); else if (lt!=0) printf("\n"); ln=X->linenumber; lt=0; } } if (space(lt,t)) printf(" "); switch (t) { case TK_EOS: return; case TK_STRING: quote(X->t.seminfo.ts); break; case TK_NAME: printf("%s",getstr(X->t.seminfo.ts)); break; case TK_NUMBER: printf("%s",X->buff->buffer); break; default: if (t2) printf("\n"); } } Closure *luaY_parser(lua_State *L, ZIO *z, Mbuffer *buff, Dyndata *dyd, const char *name, int firstchar) { LexState X; FuncState F; Closure *cl = luaF_newLclosure(L, 1); /* create main closure */ /* anchor closure (to avoid being collected) */ setclLvalue(L, L->top, cl); incr_top(L); X.buff=buff; F.f = cl->l.p = luaF_newproto(L); F.f->source = luaS_new(L, name); /* create and anchor TString */ X.buff = buff; X.dyd = dyd; dyd->actvar.n = dyd->gt.n = dyd->label.n = 0; luaX_setinput(L, &X, z, F.f->source, firstchar); X.fs=&F; X.fs->h=luaH_new(L); sethvalue2s(L,L->top,X.fs->h); incr_top(L); if (dump) { printf("0\t\t%s\n",name); dodump(&X); } else dostrip(&X); return cl; /* it's on the stack too */ } static void strip(lua_State *L, const char *file) { if (file!=NULL && strcmp(file,"-")==0) file=NULL; if (luaL_loadfile(L,file)!=0) fatal(lua_tostring(L,-1)); lua_settop(L,0); } int main(int argc, char* argv[]) { lua_State *L=lua_open(); if (argv[0]!=NULL && *argv[0]!=0) progname=argv[0]; if (L==NULL) fatal("not enough memory for state"); while (*++argv!=NULL && strcmp(*argv,"-p")==0) preserve++; --argv; while (*++argv!=NULL && strcmp(*argv,"-d")==0) dump++; if (*argv==NULL) strip(L,NULL); else while (*argv) strip(L,*argv++); lua_close(L); return EXIT_SUCCESS; } april-ann-0.3.1/lua/lstrip/test.lua000066400000000000000000000004621234204160600171540ustar00rootroot00000000000000-- testing lstrip -- this function does nothing -- this is another comment function f(n,...) local s=[[ --header... bye ]] for i=1,n do s = s .. ' ' .. 12 .. " " .. ... end print(">>>", ... .. s, ...) end --[[ Now test it... Not that it means anything... ]] f(1 - -2, "alpha", "beta", "gamma") april-ann-0.3.1/lua/lua-5.2.2/000077500000000000000000000000001234204160600153765ustar00rootroot00000000000000april-ann-0.3.1/lua/lua-5.2.2/.gitignore000066400000000000000000000000311234204160600173600ustar00rootroot00000000000000src/*.o src/lua src/luac april-ann-0.3.1/lua/lua-5.2.2/Makefile000066400000000000000000000063571234204160600170510ustar00rootroot00000000000000# Makefile for installing Lua # See doc/readme.html for installation and customization instructions. # == CHANGE THE SETTINGS BELOW TO SUIT YOUR ENVIRONMENT ======================= # Your platform. See PLATS for possible values. UNAME = `uname` PLAT= DetectOS # Where to install. The installation starts in the src and doc directories, # so take care if INSTALL_TOP is not an absolute path. See the local target. # You may want to make INSTALL_LMOD and INSTALL_CMOD consistent with # LUA_ROOT, LUA_LDIR, and LUA_CDIR in luaconf.h. INSTALL_TOP= ../.. INSTALL_BIN= $(INSTALL_TOP)/bin INSTALL_INC= $(INSTALL_TOP)/include INSTALL_LIB= $(INSTALL_TOP)/lib INSTALL_MAN= $(INSTALL_TOP)/man/man1 INSTALL_LMOD= $(INSTALL_TOP)/share/lua/$V INSTALL_CMOD= $(INSTALL_TOP)/lib/lua/$V # How to install. If your install program does not support "-p", then # you may have to run ranlib on the installed liblua.a. INSTALL= install -p INSTALL_EXEC= $(INSTALL) -m 0755 INSTALL_DATA= $(INSTALL) -m 0644 # # If you don't have "install" you can use "cp" instead. # INSTALL= cp -p # INSTALL_EXEC= $(INSTALL) # INSTALL_DATA= $(INSTALL) # Other utilities. MKDIR= mkdir -p RM= rm -f # == END OF USER SETTINGS -- NO NEED TO CHANGE ANYTHING BELOW THIS LINE ======= # Convenience platforms targets. PLATS= DetectOS Darwin Linux aix ansi bsd freebsd generic linux macosx mingw posix solaris # What to install. TO_BIN= lua luac TO_INC= lua.h luaconf.h lualib.h lauxlib.h lua.hpp TO_LIB= liblua.a TO_MAN= lua.1 luac.1 # Lua version and release. V= 5.2 R= $V.1 # Targets start here. all: $(PLAT) $(PLATS) clean: cd src && $(MAKE) $@ test: dummy src/lua -v install: dummy cd src && $(MKDIR) $(INSTALL_BIN) $(INSTALL_INC) $(INSTALL_LIB) $(INSTALL_MAN) $(INSTALL_LMOD) $(INSTALL_CMOD) cd src && $(INSTALL_EXEC) $(TO_BIN) $(INSTALL_BIN) cd src && $(INSTALL_DATA) $(TO_INC) $(INSTALL_INC) cd src && $(INSTALL_DATA) $(TO_LIB) $(INSTALL_LIB) cd doc && $(INSTALL_DATA) $(TO_MAN) $(INSTALL_MAN) uninstall: cd src && cd $(INSTALL_BIN) && $(RM) $(TO_BIN) cd src && cd $(INSTALL_INC) && $(RM) $(TO_INC) cd src && cd $(INSTALL_LIB) && $(RM) $(TO_LIB) cd doc && cd $(INSTALL_MAN) && $(RM) $(TO_MAN) local: $(MAKE) install INSTALL_TOP=../install none: @echo "Please do 'make PLATFORM' where PLATFORM is one of these:" @echo " $(PLATS)" @echo "See doc/readme.html for complete instructions." # make may get confused with test/ and install/ dummy: # echo config parameters echo: @cd src && $(MAKE) -s echo @echo "PLAT= $(PLAT)" @echo "V= $V" @echo "R= $R" @echo "TO_BIN= $(TO_BIN)" @echo "TO_INC= $(TO_INC)" @echo "TO_LIB= $(TO_LIB)" @echo "TO_MAN= $(TO_MAN)" @echo "INSTALL_TOP= $(INSTALL_TOP)" @echo "INSTALL_BIN= $(INSTALL_BIN)" @echo "INSTALL_INC= $(INSTALL_INC)" @echo "INSTALL_LIB= $(INSTALL_LIB)" @echo "INSTALL_MAN= $(INSTALL_MAN)" @echo "INSTALL_LMOD= $(INSTALL_LMOD)" @echo "INSTALL_CMOD= $(INSTALL_CMOD)" @echo "INSTALL_EXEC= $(INSTALL_EXEC)" @echo "INSTALL_DATA= $(INSTALL_DATA)" # echo pkg-config data pc: @echo "version=$R" @echo "prefix=$(INSTALL_TOP)" @echo "libdir=$(INSTALL_LIB)" @echo "includedir=$(INSTALL_INC)" # list targets that do not create files (but not all makes understand .PHONY) .PHONY: all $(PLATS) clean test install local none dummy echo pecho lecho # (end of Makefile) april-ann-0.3.1/lua/lua-5.2.2/README000066400000000000000000000002271234204160600162570ustar00rootroot00000000000000 This is Lua 5.2.2, released on 21 Mar 2013. For installation instructions, license details, and further information about Lua, see doc/readme.html. april-ann-0.3.1/lua/lua-5.2.2/doc/000077500000000000000000000000001234204160600161435ustar00rootroot00000000000000april-ann-0.3.1/lua/lua-5.2.2/doc/contents.html000066400000000000000000000606661234204160600207040ustar00rootroot00000000000000 Lua 5.2 Reference Manual - contents

Lua 5.2 Reference Manual

The reference manual is the official definition of the Lua language. For a complete introduction to Lua programming, see the book Programming in Lua.

start · contents · index

Copyright © 2011–2013 Lua.org, PUC-Rio. Freely available under the terms of the Lua license.

Contents

Index

Lua functions

_G
_VERSION

assert
collectgarbage
dofile
error
getmetatable
ipairs
load
loadfile
next
pairs
pcall
print
rawequal
rawget
rawlen
rawset
require
select
setmetatable
tonumber
tostring
type
xpcall

bit32.arshift
bit32.band
bit32.bnot
bit32.bor
bit32.btest
bit32.bxor
bit32.extract
bit32.lrotate
bit32.lshift
bit32.replace
bit32.rrotate
bit32.rshift

coroutine.create
coroutine.resume
coroutine.running
coroutine.status
coroutine.wrap
coroutine.yield

debug.debug
debug.getuservalue
debug.gethook
debug.getinfo
debug.getlocal
debug.getmetatable
debug.getregistry
debug.getupvalue
debug.setuservalue
debug.sethook
debug.setlocal
debug.setmetatable
debug.setupvalue
debug.traceback
debug.upvalueid
debug.upvaluejoin

file:close
file:flush
file:lines
file:read
file:seek
file:setvbuf
file:write

io.close
io.flush
io.input
io.lines
io.open
io.output
io.popen
io.read
io.stderr
io.stdin
io.stdout
io.tmpfile
io.type
io.write

 

math.abs
math.acos
math.asin
math.atan
math.atan2
math.ceil
math.cos
math.cosh
math.deg
math.exp
math.floor
math.fmod
math.frexp
math.huge
math.ldexp
math.log
math.max
math.min
math.modf
math.pi
math.pow
math.rad
math.random
math.randomseed
math.sin
math.sinh
math.sqrt
math.tan
math.tanh

os.clock
os.date
os.difftime
os.execute
os.exit
os.getenv
os.remove
os.rename
os.setlocale
os.time
os.tmpname

package.config
package.cpath
package.loaded
package.loadlib
package.path
package.preload
package.searchers
package.searchpath

string.byte
string.char
string.dump
string.find
string.format
string.gmatch
string.gsub
string.len
string.lower
string.match
string.rep
string.reverse
string.sub
string.upper

table.concat
table.insert
table.pack
table.remove
table.sort
table.unpack

C API

lua_Alloc
lua_CFunction
lua_Debug
lua_Hook
lua_Integer
lua_Number
lua_Reader
lua_State
lua_Unsigned
lua_Writer

lua_absindex
lua_arith
lua_atpanic
lua_call
lua_callk
lua_checkstack
lua_close
lua_compare
lua_concat
lua_copy
lua_createtable
lua_dump
lua_error
lua_gc
lua_getallocf
lua_getctx
lua_getfield
lua_getglobal
lua_gethook
lua_gethookcount
lua_gethookmask
lua_getinfo
lua_getlocal
lua_getmetatable
lua_getstack
lua_gettable
lua_gettop
lua_getupvalue
lua_getuservalue
lua_insert
lua_isboolean
lua_iscfunction
lua_isfunction
lua_islightuserdata
lua_isnil
lua_isnone
lua_isnoneornil
lua_isnumber
lua_isstring
lua_istable
lua_isthread
lua_isuserdata
lua_len
lua_load
lua_newstate
lua_newtable
lua_newthread
lua_newuserdata
lua_next
lua_pcall
lua_pcallk
lua_pop
lua_pushboolean
lua_pushcclosure
lua_pushcfunction
lua_pushfstring
lua_pushglobaltable
lua_pushinteger
lua_pushlightuserdata
lua_pushliteral
lua_pushlstring
lua_pushnil
lua_pushnumber
lua_pushstring
lua_pushthread
lua_pushunsigned
lua_pushvalue
lua_pushvfstring
lua_rawequal
lua_rawget
lua_rawgeti
lua_rawgetp
lua_rawlen
lua_rawset
lua_rawseti
lua_rawsetp
lua_register
lua_remove
lua_replace
lua_resume
lua_setallocf
lua_setfield
lua_setglobal
lua_sethook
lua_setlocal
lua_setmetatable
lua_settable
lua_settop
lua_setupvalue
lua_setuservalue
lua_status
lua_toboolean
lua_tocfunction
lua_tointeger
lua_tointegerx
lua_tolstring
lua_tonumber
lua_tonumberx
lua_topointer
lua_tostring
lua_tothread
lua_tounsigned
lua_tounsignedx
lua_touserdata
lua_type
lua_typename
lua_upvalueid
lua_upvalueindex
lua_upvaluejoin
lua_version
lua_xmove
lua_yield
lua_yieldk

auxiliary library

luaL_Buffer
luaL_Reg

luaL_addchar
luaL_addlstring
luaL_addsize
luaL_addstring
luaL_addvalue
luaL_argcheck
luaL_argerror
luaL_buffinit
luaL_buffinitsize
luaL_callmeta
luaL_checkany
luaL_checkint
luaL_checkinteger
luaL_checklong
luaL_checklstring
luaL_checknumber
luaL_checkoption
luaL_checkstack
luaL_checkstring
luaL_checktype
luaL_checkudata
luaL_checkunsigned
luaL_checkversion
luaL_dofile
luaL_dostring
luaL_error
luaL_execresult
luaL_fileresult
luaL_getmetafield
luaL_getmetatable
luaL_getsubtable
luaL_gsub
luaL_len
luaL_loadbuffer
luaL_loadbufferx
luaL_loadfile
luaL_loadfilex
luaL_loadstring
luaL_newlib
luaL_newlibtable
luaL_newmetatable
luaL_newstate
luaL_openlibs
luaL_optint
luaL_optinteger
luaL_optlong
luaL_optlstring
luaL_optnumber
luaL_optstring
luaL_optunsigned
luaL_prepbuffer
luaL_prepbuffsize
luaL_pushresult
luaL_pushresultsize
luaL_ref
luaL_requiref
luaL_setfuncs
luaL_setmetatable
luaL_testudata
luaL_tolstring
luaL_traceback
luaL_typename
luaL_unref
luaL_where
Last update: Tue Mar 12 11:22:18 BRT 2013 april-ann-0.3.1/lua/lua-5.2.2/doc/logo.gif000066400000000000000000000102101234204160600175640ustar00rootroot00000000000000GIF87arvz}~ oooqqqvvvzzz !!%%""%%)),,55115511::::??BBDDBBEEJJHHLLMMPPTTQQWWYYZZ\\^^``ccggiijjoollqqvvttyy{{~~‰ËŎƐǒȕʙ˙̟ϡϢѥҩөԭ֯ױױصڻݼ,' H*\ȰÇ#JHŋ3jȱǏ CIɓ(S\ɲ˗0cʜIpִQ:(RJI;HGSSFAPȑA!rC+j D#:S Y:A mSNF1Rg.=2 @ ;5A)s.:)v 0`ϟlnp#rdDD#xЙ 643#LTFyPE+]s2Qk( ;gGΗPfh ( oNr,NiHG0^s& *92;!lX_mwDGU7 DX qIRw5EA&9MdMDHM(އhcYC$#!~8@I$~! $pP |@ c11abRI!``a㠁Y2qkD;Pv}6jǍ0}F^ipZDE ph2+ar&C }t.GEbC |,s69 P( y0DpVft%Af.KH?,nb9"|/GAH"} A#w:p;x5$sE-I";[Xwu85!KV}[A]$ܩepG pYC@ڄkn:m VXf2 BYzD3 ,.zs9PBD\ lf4y",Bscdqf(6J袋@\[$z@@B ˦=5ɢE8H Dk8F{R= ~}Ν `g-1,RBHe-Ms (!{QHm ` AcRf!F &D `Dvd!B07 ,^lأRPIh~ @r)`$ hC@AG"yX mB4i Y(D8& F+1Rh KIH+ @EJ I* #RWDBhD ,6o| m#DxBЪV@$Y B yC$B*$} ZE @asPJoQ| Η?BYeJB8JH,iuJ&9a!r(#D|,9|D'yF)_st$ @2^o'ЯCh>@dz,F!QHB6I( E9E;C\oh2B5+$T}mHCه:VGjM0$8!mhApfBɏ@ m:O<6t}p<1@"t$H "BZ-6lgq,:@|P aF #Q!a'Qi];$}^V_xpmѳq8K`m[@(m`q! B /[mrg&^&qt$ 6g)l ];FpHA(]r Ƃb`QAFkq72-KMΧh xw=XvA@@m‡ƺXZO/ ?xă(+D,d9}Ev XԽIe 0]4y}'W!)] B|Fq D ͧ?s!#F3_ӣ738 N>@8lH q[ JƱ7(hE6,sI7)F0Vp`[%W25fc"8t.Aa!D@i_qeG#UT4PFxE vDa~ R t<"(WAl-[uf$P%~w9W@xwHv{9whV65P\ "ufoDd2g>6-c0(Y< 1"1O*p)ЊPj*25 0% (@BanS{ DN/%Jҍ  (3 b1$X]RP9Z*)~N-#r]NhGpl с^@FY4}b/M !0U|Me=dE$>pM ~rJ-&&@.\ 87{3`%0ds+1Hh22PK3 W0uE)*U))+ @50FtEOKHP@}^ jH0}U`10 k咹EcVUK$A_z`TEΑUɕ4A֓<RrfPGBza"gd62(ayImF"qc("gAyP0i@eESҘYO9b4"}"x@'Pupj`22,*&qٕf%E+]B%f0YJ3f?1,/p?;}XV5Q%H1Z4JmpOP7d=O y;!ӑpeq!F PP-eKfw.lzp`- j`o@EPOv*RzUP uS@Ĩ!IO*PEAO` p\ P 1{:LSPU@QzRʪ#4PG`Nڬ;april-ann-0.3.1/lua/lua-5.2.2/doc/lua.1000066400000000000000000000042341234204160600170110ustar00rootroot00000000000000.\" $Id: lua.man,v 1.13 2011/11/16 17:16:53 lhf Exp $ .TH LUA 1 "$Date: 2011/11/16 17:16:53 $" .SH NAME lua \- Lua interpreter .SH SYNOPSIS .B lua [ .I options ] [ .I script [ .I args ] ] .SH DESCRIPTION .B lua is the standalone Lua interpreter. It loads and executes Lua programs, either in textual source form or in precompiled binary form. (Precompiled binaries are output by .BR luac , the Lua compiler.) .B lua can be used as a batch interpreter and also interactively. .LP The given .I options are handled in order and then the Lua program in file .I script is loaded and executed. The given .I args are available to .I script as strings in a global table named .BR arg . If no options or arguments are given, then .B "\-v \-i" is assumed when the standard input is a terminal; otherwise, .B "\-" is assumed. .LP In interactive mode, .B lua prompts the user, reads lines from the standard input, and executes them as they are read. If a line does not contain a complete statement, then a secondary prompt is displayed and lines are read until a complete statement is formed or a syntax error is found. If a line starts with .BR '=' , then .B lua evaluates and displays the values of the expressions in the remainder of the line. .LP At the very start, before even handling the command line, .B lua checks the contents of the environment variables .B LUA_INIT_5_2 or .BR LUA_INIT , in that order. If the contents is of the form .RI '@ filename ', then .I filename is executed. Otherwise, the string is assumed to be a Lua statement and is executed. .SH OPTIONS .TP .BI \-e " stat" execute statement .IR stat . .TP .B \-i enter interactive mode after executing .IR script . .TP .BI \-l " name" execute the equivalent of .IB name =require(' name ') before executing .IR script . .TP .B \-v show version information. .TP .B \-E ignore environment variables. .TP .B \-\- stop handling options. .TP .B \- stop handling options and execute the standard input as a file. .SH "SEE ALSO" .BR luac (1) .br The documentation at lua.org, especially section 7 of the reference manual. .SH DIAGNOSTICS Error messages should be self explanatory. .SH AUTHORS R. Ierusalimschy, L. H. de Figueiredo, W. Celes .\" EOF april-ann-0.3.1/lua/lua-5.2.2/doc/lua.css000066400000000000000000000024301234204160600174350ustar00rootroot00000000000000body { color: #000000 ; background-color: #FFFFFF ; font-family: Helvetica, Arial, sans-serif ; text-align: justify ; margin-right: 30px ; margin-left: 30px ; } h1, h2, h3, h4 { font-family: Verdana, Geneva, sans-serif ; font-weight: normal ; font-style: italic ; } h2 { padding-top: 0.4em ; padding-bottom: 0.4em ; padding-left: 1em ; padding-right: 1em ; background-color: #E0E0FF ; border-radius: 8px ; } h3 { padding-left: 0.5em ; border-left: solid #E0E0FF 1em ; } table h3 { padding-left: 0px ; border-left: none ; } a:link { color: #000080 ; background-color: inherit ; text-decoration: none ; } a:visited { background-color: inherit ; text-decoration: none ; } a:link:hover, a:visited:hover { color: #000080 ; background-color: #E0E0FF ; } a:link:active, a:visited:active { color: #FF0000 ; } hr { border: 0 ; height: 1px ; color: #a0a0a0 ; background-color: #a0a0a0 ; } :target { background-color: #F8F8F8 ; padding: 8px ; border: solid #a0a0a0 2px ; } .footer { color: gray ; font-size: small ; } input[type=text] { border: solid #a0a0a0 2px ; border-radius: 2em ; -moz-border-radius: 2em ; background-image: url('images/search.png') ; background-repeat: no-repeat; background-position: 4px center ; padding-left: 20px ; height: 2em ; } april-ann-0.3.1/lua/lua-5.2.2/doc/luac.1000066400000000000000000000057771234204160600171710ustar00rootroot00000000000000.\" $Id: luac.man,v 1.29 2011/11/16 13:53:40 lhf Exp $ .TH LUAC 1 "$Date: 2011/11/16 13:53:40 $" .SH NAME luac \- Lua compiler .SH SYNOPSIS .B luac [ .I options ] [ .I filenames ] .SH DESCRIPTION .B luac is the Lua compiler. It translates programs written in the Lua programming language into binary files containing precompiled chunks that can be later loaded and executed. .LP The main advantages of precompiling chunks are: faster loading, protecting source code from accidental user changes, and off-line syntax checking. Precompiling does not imply faster execution because in Lua chunks are always compiled into bytecodes before being executed. .B luac simply allows those bytecodes to be saved in a file for later execution. Precompiled chunks are not necessarily smaller than the corresponding source. The main goal in precompiling is faster loading. .LP In the command line, you can mix text files containing Lua source and binary files containing precompiled chunks. .B luac produces a single output file containing the combined bytecodes for all files given. Executing the combined file is equivalent to executing the given files. By default, the output file is named .BR luac.out , but you can change this with the .B \-o option. .LP Precompiled chunks are .I not portable across different architectures. Moreover, the internal format of precompiled chunks is likely to change when a new version of Lua is released. Make sure you save the source files of all Lua programs that you precompile. .LP .SH OPTIONS .TP .B \-l produce a listing of the compiled bytecode for Lua's virtual machine. Listing bytecodes is useful to learn about Lua's virtual machine. If no files are given, then .B luac loads .B luac.out and lists its contents. Use .B \-l \-l for a full listing. .TP .BI \-o " file" output to .IR file , instead of the default .BR luac.out . (You can use .B "'\-'" for standard output, but not on platforms that open standard output in text mode.) The output file may be one of the given files because all files are loaded before the output file is written. Be careful not to overwrite precious files. .TP .B \-p load files but do not generate any output file. Used mainly for syntax checking and for testing precompiled chunks: corrupted files will probably generate errors when loaded. If no files are given, then .B luac loads .B luac.out and tests its contents. No messages are displayed if the file loads without errors. .TP .B \-s strip debug information before writing the output file. This saves some space in very large chunks, but if errors occur when running a stripped chunk, then the error messages may not contain the full information they usually do. In particular, line numbers and names of local variables are lost. .TP .B \-v show version information. .TP .B \-\- stop handling options. .TP .B \- stop handling options and process standard input. .SH "SEE ALSO" .BR lua (1) .br The documentation at lua.org. .SH DIAGNOSTICS Error messages should be self explanatory. .SH AUTHORS R. Ierusalimschy, L. H. de Figueiredo, W. Celes .\" EOF april-ann-0.3.1/lua/lua-5.2.2/doc/manual.css000066400000000000000000000005541234204160600201360ustar00rootroot00000000000000h3 code { font-family: inherit ; font-size: inherit ; } pre, code { font-size: 12pt ; } span.apii { float: right ; font-family: inherit ; font-style: normal ; font-size: small ; color: gray ; } p+h1, ul+h1 { padding-top: 0.4em ; padding-bottom: 0.4em ; padding-left: 24px ; margin-left: -24px ; background-color: #E0E0FF ; border-radius: 8px ; } april-ann-0.3.1/lua/lua-5.2.2/doc/manual.html000066400000000000000000011262011234204160600203110ustar00rootroot00000000000000 Lua 5.2 Reference Manual

Lua 5.2 Reference Manual

by Roberto Ierusalimschy, Luiz Henrique de Figueiredo, Waldemar Celes

Copyright © 2011–2013 Lua.org, PUC-Rio. Freely available under the terms of the Lua license.

contents · index

1 – Introduction

Lua is an extension programming language designed to support general procedural programming with data description facilities. It also offers good support for object-oriented programming, functional programming, and data-driven programming. Lua is intended to be used as a powerful, lightweight, embeddable scripting language for any program that needs one. Lua is implemented as a library, written in clean C, the common subset of Standard C and C++.

Being an extension language, Lua has no notion of a "main" program: it only works embedded in a host client, called the embedding program or simply the host. The host program can invoke functions to execute a piece of Lua code, can write and read Lua variables, and can register C functions to be called by Lua code. Through the use of C functions, Lua can be augmented to cope with a wide range of different domains, thus creating customized programming languages sharing a syntactical framework. The Lua distribution includes a sample host program called lua, which uses the Lua library to offer a complete, standalone Lua interpreter, for interactive or batch use.

Lua is free software, and is provided as usual with no guarantees, as stated in its license. The implementation described in this manual is available at Lua's official web site, www.lua.org.

Like any other reference manual, this document is dry in places. For a discussion of the decisions behind the design of Lua, see the technical papers available at Lua's web site. For a detailed introduction to programming in Lua, see Roberto's book, Programming in Lua.

2 – Basic Concepts

This section describes the basic concepts of the language.

2.1 – Values and Types

Lua is a dynamically typed language. This means that variables do not have types; only values do. There are no type definitions in the language. All values carry their own type.

All values in Lua are first-class values. This means that all values can be stored in variables, passed as arguments to other functions, and returned as results.

There are eight basic types in Lua: nil, boolean, number, string, function, userdata, thread, and table. Nil is the type of the value nil, whose main property is to be different from any other value; it usually represents the absence of a useful value. Boolean is the type of the values false and true. Both nil and false make a condition false; any other value makes it true. Number represents real (double-precision floating-point) numbers. Operations on numbers follow the same rules of the underlying C implementation, which, in turn, usually follows the IEEE 754 standard. (It is easy to build Lua interpreters that use other internal representations for numbers, such as single-precision floats or long integers; see file luaconf.h.) String represents immutable sequences of bytes. Lua is 8-bit clean: strings can contain any 8-bit value, including embedded zeros ('\0').

Lua can call (and manipulate) functions written in Lua and functions written in C (see §3.4.9).

The type userdata is provided to allow arbitrary C data to be stored in Lua variables. A userdata value is a pointer to a block of raw memory. There are two kinds of userdata: full userdata, where the block of memory is managed by Lua, and light userdata, where the block of memory is managed by the host. Userdata has no predefined operations in Lua, except assignment and identity test. By using metatables, the programmer can define operations for full userdata values (see §2.4). Userdata values cannot be created or modified in Lua, only through the C API. This guarantees the integrity of data owned by the host program.

The type thread represents independent threads of execution and it is used to implement coroutines (see §2.6). Do not confuse Lua threads with operating-system threads. Lua supports coroutines on all systems, even those that do not support threads.

The type table implements associative arrays, that is, arrays that can be indexed not only with numbers, but with any Lua value except nil and NaN (Not a Number, a special numeric value used to represent undefined or unrepresentable results, such as 0/0). Tables can be heterogeneous; that is, they can contain values of all types (except nil). Any key with value nil is not considered part of the table. Conversely, any key that is not part of a table has an associated value nil.

Tables are the sole data structuring mechanism in Lua; they can be used to represent ordinary arrays, sequences, symbol tables, sets, records, graphs, trees, etc. To represent records, Lua uses the field name as an index. The language supports this representation by providing a.name as syntactic sugar for a["name"]. There are several convenient ways to create tables in Lua (see §3.4.8).

We use the term sequence to denote a table where the set of all positive numeric keys is equal to {1..n} for some integer n, which is called the length of the sequence (see §3.4.6).

Like indices, the values of table fields can be of any type. In particular, because functions are first-class values, table fields can contain functions. Thus tables can also carry methods (see §3.4.10).

The indexing of tables follows the definition of raw equality in the language. The expressions a[i] and a[j] denote the same table element if and only if i and j are raw equal (that is, equal without metamethods).

Tables, functions, threads, and (full) userdata values are objects: variables do not actually contain these values, only references to them. Assignment, parameter passing, and function returns always manipulate references to such values; these operations do not imply any kind of copy.

The library function type returns a string describing the type of a given value (see §6.1).

2.2 – Environments and the Global Environment

As will be discussed in §3.2 and §3.3.3, any reference to a global name var is syntactically translated to _ENV.var. Moreover, every chunk is compiled in the scope of an external local variable called _ENV (see §3.3.2), so _ENV itself is never a global name in a chunk.

Despite the existence of this external _ENV variable and the translation of global names, _ENV is a completely regular name. In particular, you can define new variables and parameters with that name. Each reference to a global name uses the _ENV that is visible at that point in the program, following the usual visibility rules of Lua (see §3.5).

Any table used as the value of _ENV is called an environment.

Lua keeps a distinguished environment called the global environment. This value is kept at a special index in the C registry (see §4.5). In Lua, the variable _G is initialized with this same value.

When Lua compiles a chunk, it initializes the value of its _ENV upvalue with the global environment (see load). Therefore, by default, global variables in Lua code refer to entries in the global environment. Moreover, all standard libraries are loaded in the global environment and several functions there operate on that environment. You can use load (or loadfile) to load a chunk with a different environment. (In C, you have to load the chunk and then change the value of its first upvalue.)

If you change the global environment in the registry (through C code or the debug library), all chunks loaded after the change will get the new environment. Previously loaded chunks are not affected, however, as each has its own reference to the environment in its _ENV variable. Moreover, the variable _G (which is stored in the original global environment) is never updated by Lua.

2.3 – Error Handling

Because Lua is an embedded extension language, all Lua actions start from C code in the host program calling a function from the Lua library (see lua_pcall). Whenever an error occurs during the compilation or execution of a Lua chunk, control returns to the host, which can take appropriate measures (such as printing an error message).

Lua code can explicitly generate an error by calling the error function. If you need to catch errors in Lua, you can use pcall or xpcall to call a given function in protected mode.

Whenever there is an error, an error object (also called an error message) is propagated with information about the error. Lua itself only generates errors where the error object is a string, but programs may generate errors with any value for the error object.

When you use xpcall or lua_pcall, you may give a message handler to be called in case of errors. This function is called with the original error message and returns a new error message. It is called before the error unwinds the stack, so that it can gather more information about the error, for instance by inspecting the stack and creating a stack traceback. This message handler is still protected by the protected call; so, an error inside the message handler will call the message handler again. If this loop goes on, Lua breaks it and returns an appropriate message.

2.4 – Metatables and Metamethods

Every value in Lua can have a metatable. This metatable is an ordinary Lua table that defines the behavior of the original value under certain special operations. You can change several aspects of the behavior of operations over a value by setting specific fields in its metatable. For instance, when a non-numeric value is the operand of an addition, Lua checks for a function in the field "__add" of the value's metatable. If it finds one, Lua calls this function to perform the addition.

The keys in a metatable are derived from the event names; the corresponding values are called metamethods. In the previous example, the event is "add" and the metamethod is the function that performs the addition.

You can query the metatable of any value using the getmetatable function.

You can replace the metatable of tables using the setmetatable function. You cannot change the metatable of other types from Lua (except by using the debug library); you must use the C API for that.

Tables and full userdata have individual metatables (although multiple tables and userdata can share their metatables). Values of all other types share one single metatable per type; that is, there is one single metatable for all numbers, one for all strings, etc. By default, a value has no metatable, but the string library sets a metatable for the string type (see §6.4).

A metatable controls how an object behaves in arithmetic operations, order comparisons, concatenation, length operation, and indexing. A metatable also can define a function to be called when a userdata or a table is garbage collected. When Lua performs one of these operations over a value, it checks whether this value has a metatable with the corresponding event. If so, the value associated with that key (the metamethod) controls how Lua will perform the operation.

Metatables control the operations listed next. Each operation is identified by its corresponding name. The key for each operation is a string with its name prefixed by two underscores, '__'; for instance, the key for operation "add" is the string "__add".

The semantics of these operations is better explained by a Lua function describing how the interpreter executes the operation. The code shown here in Lua is only illustrative; the real behavior is hard coded in the interpreter and it is much more efficient than this simulation. All functions used in these descriptions (rawget, tonumber, etc.) are described in §6.1. In particular, to retrieve the metamethod of a given object, we use the expression 

     metatable(obj)[event]

This should be read as 

     rawget(getmetatable(obj) or {}, event)

This means that the access to a metamethod does not invoke other metamethods, and access to objects with no metatables does not fail (it simply results in nil).

For the unary - and # operators, the metamethod is called with a dummy second argument. This extra argument is only to simplify Lua's internals; it may be removed in future versions and therefore it is not present in the following code. (For most uses this extra argument is irrelevant.)

  • "add": the + operation.

    The function getbinhandler below defines how Lua chooses a handler for a binary operation. First, Lua tries the first operand. If its type does not define a handler for the operation, then Lua tries the second operand. 

         function getbinhandler (op1, op2, event)
       return metatable(op1)[event] or metatable(op2)[event]
     end

    By using this function, the behavior of the op1 + op2 is 

         function add_event (op1, op2)
       local o1, o2 = tonumber(op1), tonumber(op2)
       if o1 and o2 then  -- both operands are numeric?
         return o1 + o2   -- '+' here is the primitive 'add'
       else  -- at least one of the operands is not numeric
         local h = getbinhandler(op1, op2, "__add")
         if h then
           -- call the handler with both operands
           return (h(op1, op2))
         else  -- no handler available: default behavior
           error(···)
         end
       end
     end

  • "sub": the - operation. Behavior similar to the "add" operation.
  • "mul": the * operation. Behavior similar to the "add" operation.
  • "div": the / operation. Behavior similar to the "add" operation.
  • "mod": the % operation. Behavior similar to the "add" operation, with the operation o1 - floor(o1/o2)*o2 as the primitive operation.
  • "pow": the ^ (exponentiation) operation. Behavior similar to the "add" operation, with the function pow (from the C math library) as the primitive operation.
  • "unm": the unary - operation. 
         function unm_event (op)
       local o = tonumber(op)
       if o then  -- operand is numeric?
         return -o  -- '-' here is the primitive 'unm'
       else  -- the operand is not numeric.
         -- Try to get a handler from the operand
         local h = metatable(op).__unm
         if h then
           -- call the handler with the operand
           return (h(op))
         else  -- no handler available: default behavior
           error(···)
         end
       end
     end

  • "concat": the .. (concatenation) operation. 
         function concat_event (op1, op2)
       if (type(op1) == "string" or type(op1) == "number") and
          (type(op2) == "string" or type(op2) == "number") then
         return op1 .. op2  -- primitive string concatenation
       else
         local h = getbinhandler(op1, op2, "__concat")
         if h then
           return (h(op1, op2))
         else
           error(···)
         end
       end
     end

  • "len": the # operation. 
         function len_event (op)
       if type(op) == "string" then
         return strlen(op)      -- primitive string length
       else
         local h = metatable(op).__len
         if h then
           return (h(op))       -- call handler with the operand
         elseif type(op) == "table" then
           return #op              -- primitive table length
         else  -- no handler available: error
           error(···)
         end
       end
     end

    See §3.4.6 for a description of the length of a table.

  • "eq": the == operation. The function getequalhandler defines how Lua chooses a metamethod for equality. A metamethod is selected only when both values being compared have the same type and the same metamethod for the selected operation, and the values are either tables or full userdata. 
         function getequalhandler (op1, op2)
       if type(op1) ~= type(op2) or
          (type(op1) ~= "table" and type(op1) ~= "userdata") then
         return nil     -- different values
       end
       local mm1 = metatable(op1).__eq
       local mm2 = metatable(op2).__eq
       if mm1 == mm2 then return mm1 else return nil end
     end

    The "eq" event is defined as follows: 

         function eq_event (op1, op2)
       if op1 == op2 then   -- primitive equal?
         return true   -- values are equal
       end
       -- try metamethod
       local h = getequalhandler(op1, op2)
       if h then
         return not not h(op1, op2)
       else
         return false
       end
     end

    Note that the result is always a boolean.

  • "lt": the < operation. 
         function lt_event (op1, op2)
       if type(op1) == "number" and type(op2) == "number" then
         return op1 < op2   -- numeric comparison
       elseif type(op1) == "string" and type(op2) == "string" then
         return op1 < op2   -- lexicographic comparison
       else
         local h = getbinhandler(op1, op2, "__lt")
         if h then
           return not not h(op1, op2)
         else
           error(···)
         end
       end
     end

    Note that the result is always a boolean.

  • "le": the <= operation. 
         function le_event (op1, op2)
       if type(op1) == "number" and type(op2) == "number" then
         return op1 <= op2   -- numeric comparison
       elseif type(op1) == "string" and type(op2) == "string" then
         return op1 <= op2   -- lexicographic comparison
       else
         local h = getbinhandler(op1, op2, "__le")
         if h then
           return not not h(op1, op2)
         else
           h = getbinhandler(op1, op2, "__lt")
           if h then
             return not h(op2, op1)
           else
             error(···)
           end
         end
       end
     end

    Note that, in the absence of a "le" metamethod, Lua tries the "lt", assuming that a <= b is equivalent to not (b < a).

    As with the other comparison operators, the result is always a boolean.

  • "index": The indexing access table[key]. Note that the metamethod is tried only when key is not present in table. (When table is not a table, no key is ever present, so the metamethod is always tried.) 
         function gettable_event (table, key)
       local h
       if type(table) == "table" then
         local v = rawget(table, key)
         -- if key is present, return raw value
         if v ~= nil then return v end
         h = metatable(table).__index
         if h == nil then return nil end
       else
         h = metatable(table).__index
         if h == nil then
           error(···)
         end
       end
       if type(h) == "function" then
         return (h(table, key))     -- call the handler
       else return h[key]           -- or repeat operation on it
       end
     end

  • "newindex": The indexing assignment table[key] = value. Note that the metamethod is tried only when key is not present in table. 
         function settable_event (table, key, value)
       local h
       if type(table) == "table" then
         local v = rawget(table, key)
         -- if key is present, do raw assignment
         if v ~= nil then rawset(table, key, value); return end
         h = metatable(table).__newindex
         if h == nil then rawset(table, key, value); return end
       else
         h = metatable(table).__newindex
         if h == nil then
           error(···)
         end
       end
       if type(h) == "function" then
         h(table, key,value)           -- call the handler
       else h[key] = value             -- or repeat operation on it
       end
     end

  • "call": called when Lua calls a value. 
         function function_event (func, ...)
       if type(func) == "function" then
         return func(...)   -- primitive call
       else
         local h = metatable(func).__call
         if h then
           return h(func, ...)
         else
           error(···)
         end
       end
     end

2.5 – Garbage Collection

Lua performs automatic memory management. This means that you have to worry neither about allocating memory for new objects nor about freeing it when the objects are no longer needed. Lua manages memory automatically by running a garbage collector to collect all dead objects (that is, objects that are no longer accessible from Lua). All memory used by Lua is subject to automatic management: strings, tables, userdata, functions, threads, internal structures, etc.

Lua implements an incremental mark-and-sweep collector. It uses two numbers to control its garbage-collection cycles: the garbage-collector pause and the garbage-collector step multiplier. Both use percentage points as units (e.g., a value of 100 means an internal value of 1).

The garbage-collector pause controls how long the collector waits before starting a new cycle. Larger values make the collector less aggressive. Values smaller than 100 mean the collector will not wait to start a new cycle. A value of 200 means that the collector waits for the total memory in use to double before starting a new cycle.

The garbage-collector step multiplier controls the relative speed of the collector relative to memory allocation. Larger values make the collector more aggressive but also increase the size of each incremental step. Values smaller than 100 make the collector too slow and can result in the collector never finishing a cycle. The default is 200, which means that the collector runs at "twice" the speed of memory allocation.

If you set the step multiplier to a very large number (larger than 10% of the maximum number of bytes that the program may use), the collector behaves like a stop-the-world collector. If you then set the pause to 200, the collector behaves as in old Lua versions, doing a complete collection every time Lua doubles its memory usage.

You can change these numbers by calling lua_gc in C or collectgarbage in Lua. You can also use these functions to control the collector directly (e.g., stop and restart it).

As an experimental feature in Lua 5.2, you can change the collector's operation mode from incremental to generational. A generational collector assumes that most objects die young, and therefore it traverses only young (recently created) objects. This behavior can reduce the time used by the collector, but also increases memory usage (as old dead objects may accumulate). To mitigate this second problem, from time to time the generational collector performs a full collection. Remember that this is an experimental feature; you are welcome to try it, but check your gains.

2.5.1 – Garbage-Collection Metamethods

You can set garbage-collector metamethods for tables and, using the C API, for full userdata (see §2.4). These metamethods are also called finalizers. Finalizers allow you to coordinate Lua's garbage collection with external resource management (such as closing files, network or database connections, or freeing your own memory).

For an object (table or userdata) to be finalized when collected, you must mark it for finalization. You mark an object for finalization when you set its metatable and the metatable has a field indexed by the string "__gc". Note that if you set a metatable without a __gc field and later create that field in the metatable, the object will not be marked for finalization. However, after an object is marked, you can freely change the __gc field of its metatable.

When a marked object becomes garbage, it is not collected immediately by the garbage collector. Instead, Lua puts it in a list. After the collection, Lua does the equivalent of the following function for each object in that list: 

     function gc_event (obj)
       local h = metatable(obj).__gc
       if type(h) == "function" then
         h(obj)
       end
     end

At the end of each garbage-collection cycle, the finalizers for objects are called in the reverse order that they were marked for collection, among those collected in that cycle; that is, the first finalizer to be called is the one associated with the object marked last in the program. The execution of each finalizer may occur at any point during the execution of the regular code.

Because the object being collected must still be used by the finalizer, it (and other objects accessible only through it) must be resurrected by Lua. Usually, this resurrection is transient, and the object memory is freed in the next garbage-collection cycle. However, if the finalizer stores the object in some global place (e.g., a global variable), then there is a permanent resurrection. In any case, the object memory is freed only when it becomes completely inaccessible; its finalizer will never be called twice.

When you close a state (see lua_close), Lua calls the finalizers of all objects marked for finalization, following the reverse order that they were marked. If any finalizer marks new objects for collection during that phase, these new objects will not be finalized.

2.5.2 – Weak Tables

A weak table is a table whose elements are weak references. A weak reference is ignored by the garbage collector. In other words, if the only references to an object are weak references, then the garbage collector will collect that object.

A weak table can have weak keys, weak values, or both. A table with weak keys allows the collection of its keys, but prevents the collection of its values. A table with both weak keys and weak values allows the collection of both keys and values. In any case, if either the key or the value is collected, the whole pair is removed from the table. The weakness of a table is controlled by the __mode field of its metatable. If the __mode field is a string containing the character 'k', the keys in the table are weak. If __mode contains 'v', the values in the table are weak.

A table with weak keys and strong values is also called an ephemeron table. In an ephemeron table, a value is considered reachable only if its key is reachable. In particular, if the only reference to a key comes through its value, the pair is removed.

Any change in the weakness of a table may take effect only at the next collect cycle. In particular, if you change the weakness to a stronger mode, Lua may still collect some items from that table before the change takes effect.

Only objects that have an explicit construction are removed from weak tables. Values, such as numbers and light C functions, are not subject to garbage collection, and therefore are not removed from weak tables (unless its associated value is collected). Although strings are subject to garbage collection, they do not have an explicit construction, and therefore are not removed from weak tables.

Resurrected objects (that is, objects being finalized and objects accessible only through objects being finalized) have a special behavior in weak tables. They are removed from weak values before running their finalizers, but are removed from weak keys only in the next collection after running their finalizers, when such objects are actually freed. This behavior allows the finalizer to access properties associated with the object through weak tables.

If a weak table is among the resurrected objects in a collection cycle, it may not be properly cleared until the next cycle.

2.6 – Coroutines

Lua supports coroutines, also called collaborative multithreading. A coroutine in Lua represents an independent thread of execution. Unlike threads in multithread systems, however, a coroutine only suspends its execution by explicitly calling a yield function.

You create a coroutine by calling coroutine.create. Its sole argument is a function that is the main function of the coroutine. The create function only creates a new coroutine and returns a handle to it (an object of type thread); it does not start the coroutine.

You execute a coroutine by calling coroutine.resume. When you first call coroutine.resume, passing as its first argument a thread returned by coroutine.create, the coroutine starts its execution, at the first line of its main function. Extra arguments passed to coroutine.resume are passed on to the coroutine main function. After the coroutine starts running, it runs until it terminates or yields.

A coroutine can terminate its execution in two ways: normally, when its main function returns (explicitly or implicitly, after the last instruction); and abnormally, if there is an unprotected error. In the first case, coroutine.resume returns true, plus any values returned by the coroutine main function. In case of errors, coroutine.resume returns false plus an error message.

A coroutine yields by calling coroutine.yield. When a coroutine yields, the corresponding coroutine.resume returns immediately, even if the yield happens inside nested function calls (that is, not in the main function, but in a function directly or indirectly called by the main function). In the case of a yield, coroutine.resume also returns true, plus any values passed to coroutine.yield. The next time you resume the same coroutine, it continues its execution from the point where it yielded, with the call to coroutine.yield returning any extra arguments passed to coroutine.resume.

Like coroutine.create, the coroutine.wrap function also creates a coroutine, but instead of returning the coroutine itself, it returns a function that, when called, resumes the coroutine. Any arguments passed to this function go as extra arguments to coroutine.resume. coroutine.wrap returns all the values returned by coroutine.resume, except the first one (the boolean error code). Unlike coroutine.resume, coroutine.wrap does not catch errors; any error is propagated to the caller.

As an example of how coroutines work, consider the following code: 

     function foo (a)
       print("foo", a)
       return coroutine.yield(2*a)
     end
     
     co = coroutine.create(function (a,b)
           print("co-body", a, b)
           local r = foo(a+1)
           print("co-body", r)
           local r, s = coroutine.yield(a+b, a-b)
           print("co-body", r, s)
           return b, "end"
     end)
     
     print("main", coroutine.resume(co, 1, 10))
     print("main", coroutine.resume(co, "r"))
     print("main", coroutine.resume(co, "x", "y"))
     print("main", coroutine.resume(co, "x", "y"))

When you run it, it produces the following output: 

     co-body 1       10
     foo     2
     main    true    4
     co-body r
     main    true    11      -9
     co-body x       y
     main    true    10      end
     main    false   cannot resume dead coroutine

You can also create and manipulate coroutines through the C API: see functions lua_newthread, lua_resume, and lua_yield.

3 – The Language

This section describes the lexis, the syntax, and the semantics of Lua. In other words, this section describes which tokens are valid, how they can be combined, and what their combinations mean.

Language constructs will be explained using the usual extended BNF notation, in which {a} means 0 or more a's, and [a] means an optional a. Non-terminals are shown like non-terminal, keywords are shown like kword, and other terminal symbols are shown like ‘=’. The complete syntax of Lua can be found in §9 at the end of this manual.

3.1 – Lexical Conventions

Lua is a free-form language. It ignores spaces (including new lines) and comments between lexical elements (tokens), except as delimiters between names and keywords.

Names (also called identifiers) in Lua can be any string of letters, digits, and underscores, not beginning with a digit. Identifiers are used to name variables, table fields, and labels.

The following keywords are reserved and cannot be used as names: 

     and       break     do        else      elseif    end
     false     for       function  goto      if        in
     local     nil       not       or        repeat    return
     then      true      until     while

Lua is a case-sensitive language: and is a reserved word, but And and AND are two different, valid names. As a convention, names starting with an underscore followed by uppercase letters (such as _VERSION) are reserved for variables used by Lua.

The following strings denote other tokens: 

     +     -     *     /     %     ^     #
     ==    ~=    <=    >=    <     >     =
     (     )     {     }     [     ]     ::
     ;     :     ,     .     ..    ...

Literal strings can be delimited by matching single or double quotes, and can contain the following C-like escape sequences: '\a' (bell), '\b' (backspace), '\f' (form feed), '\n' (newline), '\r' (carriage return), '\t' (horizontal tab), '\v' (vertical tab), '\\' (backslash), '\"' (quotation mark [double quote]), and '\'' (apostrophe [single quote]). A backslash followed by a real newline results in a newline in the string. The escape sequence '\z' skips the following span of white-space characters, including line breaks; it is particularly useful to break and indent a long literal string into multiple lines without adding the newlines and spaces into the string contents.

A byte in a literal string can also be specified by its numerical value. This can be done with the escape sequence \xXX, where XX is a sequence of exactly two hexadecimal digits, or with the escape sequence \ddd, where ddd is a sequence of up to three decimal digits. (Note that if a decimal escape is to be followed by a digit, it must be expressed using exactly three digits.) Strings in Lua can contain any 8-bit value, including embedded zeros, which can be specified as '\0'.

Literal strings can also be defined using a long format enclosed by long brackets. We define an opening long bracket of level n as an opening square bracket followed by n equal signs followed by another opening square bracket. So, an opening long bracket of level 0 is written as [[, an opening long bracket of level 1 is written as [=[, and so on. A closing long bracket is defined similarly; for instance, a closing long bracket of level 4 is written as ]====]. A long literal starts with an opening long bracket of any level and ends at the first closing long bracket of the same level. It can contain any text except a closing bracket of the proper level. Literals in this bracketed form can run for several lines, do not interpret any escape sequences, and ignore long brackets of any other level. Any kind of end-of-line sequence (carriage return, newline, carriage return followed by newline, or newline followed by carriage return) is converted to a simple newline.

Any byte in a literal string not explicitly affected by the previous rules represents itself. However, Lua opens files for parsing in text mode, and the system file functions may have problems with some control characters. So, it is safer to represent non-text data as a quoted literal with explicit escape sequences for non-text characters.

For convenience, when the opening long bracket is immediately followed by a newline, the newline is not included in the string. As an example, in a system using ASCII (in which 'a' is coded as 97, newline is coded as 10, and '1' is coded as 49), the five literal strings below denote the same string: 

     a = 'alo\n123"'
     a = "alo\n123\""
     a = '\97lo\10\04923"'
     a = [[alo
     123"]]
     a = [==[
     alo
     123"]==]

A numerical constant can be written with an optional fractional part and an optional decimal exponent, marked by a letter 'e' or 'E'. Lua also accepts hexadecimal constants, which start with 0x or 0X. Hexadecimal constants also accept an optional fractional part plus an optional binary exponent, marked by a letter 'p' or 'P'. Examples of valid numerical constants are 

     3     3.0     3.1416     314.16e-2     0.31416E1
     0xff  0x0.1E  0xA23p-4   0X1.921FB54442D18P+1

A comment starts with a double hyphen (--) anywhere outside a string. If the text immediately after -- is not an opening long bracket, the comment is a short comment, which runs until the end of the line. Otherwise, it is a long comment, which runs until the corresponding closing long bracket. Long comments are frequently used to disable code temporarily.

3.2 – Variables

Variables are places that store values. There are three kinds of variables in Lua: global variables, local variables, and table fields.

A single name can denote a global variable or a local variable (or a function's formal parameter, which is a particular kind of local variable): 

	var ::= Name

Name denotes identifiers, as defined in §3.1.

Any variable name is assumed to be global unless explicitly declared as a local (see §3.3.7). Local variables are lexically scoped: local variables can be freely accessed by functions defined inside their scope (see §3.5).

Before the first assignment to a variable, its value is nil.

Square brackets are used to index a table: 

	var ::= prefixexp ‘[’ exp ‘]’

The meaning of accesses to table fields can be changed via metatables. An access to an indexed variable t[i] is equivalent to a call gettable_event(t,i). (See §2.4 for a complete description of the gettable_event function. This function is not defined or callable in Lua. We use it here only for explanatory purposes.)

The syntax var.Name is just syntactic sugar for var["Name"]: 

	var ::= prefixexp ‘.’ Name

An access to a global variable x is equivalent to _ENV.x. Due to the way that chunks are compiled, _ENV is never a global name (see §2.2).

3.3 – Statements

Lua supports an almost conventional set of statements, similar to those in Pascal or C. This set includes assignments, control structures, function calls, and variable declarations.

3.3.1 – Blocks

A block is a list of statements, which are executed sequentially: 

	block ::= {stat}

Lua has empty statements that allow you to separate statements with semicolons, start a block with a semicolon or write two semicolons in sequence: 

	stat ::= ‘;’

Function calls and assignments can start with an open parenthesis. This possibility leads to an ambiguity in Lua's grammar. Consider the following fragment: 

     a = b + c
     (print or io.write)('done')

The grammar could see it in two ways: 

     a = b + c(print or io.write)('done')
     
     a = b + c; (print or io.write)('done')

The current parser always sees such constructions in the first way, interpreting the open parenthesis as the start of the arguments to a call. To avoid this ambiguity, it is a good practice to always precede with a semicolon statements that start with a parenthesis: 

     ;(print or io.write)('done')

A block can be explicitly delimited to produce a single statement: 

	stat ::= do block end

Explicit blocks are useful to control the scope of variable declarations. Explicit blocks are also sometimes used to add a return statement in the middle of another block (see §3.3.4).

3.3.2 – Chunks

The unit of compilation of Lua is called a chunk. Syntactically, a chunk is simply a block: 

	chunk ::= block

Lua handles a chunk as the body of an anonymous function with a variable number of arguments (see §3.4.10). As such, chunks can define local variables, receive arguments, and return values. Moreover, such anonymous function is compiled as in the scope of an external local variable called _ENV (see §2.2). The resulting function always has _ENV as its only upvalue, even if it does not use that variable.

A chunk can be stored in a file or in a string inside the host program. To execute a chunk, Lua first precompiles the chunk into instructions for a virtual machine, and then it executes the compiled code with an interpreter for the virtual machine.

Chunks can also be precompiled into binary form; see program luac for details. Programs in source and compiled forms are interchangeable; Lua automatically detects the file type and acts accordingly.

3.3.3 – Assignment

Lua allows multiple assignments. Therefore, the syntax for assignment defines a list of variables on the left side and a list of expressions on the right side. The elements in both lists are separated by commas: 

	stat ::= varlist ‘=’ explist
	varlist ::= var {‘,’ var}
	explist ::= exp {‘,’ exp}

Expressions are discussed in §3.4.

Before the assignment, the list of values is adjusted to the length of the list of variables. If there are more values than needed, the excess values are thrown away. If there are fewer values than needed, the list is extended with as many nil's as needed. If the list of expressions ends with a function call, then all values returned by that call enter the list of values, before the adjustment (except when the call is enclosed in parentheses; see §3.4).

The assignment statement first evaluates all its expressions and only then are the assignments performed. Thus the code 

     i = 3
     i, a[i] = i+1, 20

sets a[3] to 20, without affecting a[4] because the i in a[i] is evaluated (to 3) before it is assigned 4. Similarly, the line 

     x, y = y, x

exchanges the values of x and y, and 

     x, y, z = y, z, x

cyclically permutes the values of x, y, and z.

The meaning of assignments to global variables and table fields can be changed via metatables. An assignment to an indexed variable t[i] = val is equivalent to settable_event(t,i,val). (See §2.4 for a complete description of the settable_event function. This function is not defined or callable in Lua. We use it here only for explanatory purposes.)

An assignment to a global variable x = val is equivalent to the assignment _ENV.x = val (see §2.2).

3.3.4 – Control Structures

The control structures if, while, and repeat have the usual meaning and familiar syntax: 

	stat ::= while exp do block end
	stat ::= repeat block until exp
	stat ::= if exp then block {elseif exp then block} [else block] end

Lua also has a for statement, in two flavors (see §3.3.5).

The condition expression of a control structure can return any value. Both false and nil are considered false. All values different from nil and false are considered true (in particular, the number 0 and the empty string are also true).

In the repeat–until loop, the inner block does not end at the until keyword, but only after the condition. So, the condition can refer to local variables declared inside the loop block.

The goto statement transfers the program control to a label. For syntactical reasons, labels in Lua are considered statements too: 

	stat ::= goto Name
	stat ::= label
	label ::= ‘::’ Name ‘::’

A label is visible in the entire block where it is defined, except inside nested blocks where a label with the same name is defined and inside nested functions. A goto may jump to any visible label as long as it does not enter into the scope of a local variable.

Labels and empty statements are called void statements, as they perform no actions.

The break statement terminates the execution of a while, repeat, or for loop, skipping to the next statement after the loop: 

	stat ::= break

A break ends the innermost enclosing loop.

The return statement is used to return values from a function or a chunk (which is a function in disguise). Functions can return more than one value, so the syntax for the return statement is 

	stat ::= return [explist] [‘;’]

The return statement can only be written as the last statement of a block. If it is really necessary to return in the middle of a block, then an explicit inner block can be used, as in the idiom do return end, because now return is the last statement in its (inner) block.

3.3.5 – For Statement

The for statement has two forms: one numeric and one generic.

The numeric for loop repeats a block of code while a control variable runs through an arithmetic progression. It has the following syntax: 

	stat ::= for Name ‘=’ exp ‘,’ exp [‘,’ exp] do block end

The block is repeated for name starting at the value of the first exp, until it passes the second exp by steps of the third exp. More precisely, a for statement like 

     for v = e1, e2, e3 do block end

is equivalent to the code: 

     do
       local var, limit, step = tonumber(e1), tonumber(e2), tonumber(e3)
       if not (var and limit and step) then error() end
       while (step > 0 and var <= limit) or (step <= 0 and var >= limit) do
         local v = var
         block
         var = var + step
       end
     end

Note the following:

  • All three control expressions are evaluated only once, before the loop starts. They must all result in numbers.
  • var, limit, and step are invisible variables. The names shown here are for explanatory purposes only.
  • If the third expression (the step) is absent, then a step of 1 is used.
  • You can use break to exit a for loop.
  • The loop variable v is local to the loop; you cannot use its value after the for ends or is broken. If you need this value, assign it to another variable before breaking or exiting the loop.

The generic for statement works over functions, called iterators. On each iteration, the iterator function is called to produce a new value, stopping when this new value is nil. The generic for loop has the following syntax: 

	stat ::= for namelist in explist do block end
	namelist ::= Name {‘,’ Name}

A for statement like 

     for var_1, ···, var_n in explist do block end

is equivalent to the code: 

     do
       local f, s, var = explist
       while true do
         local var_1, ···, var_n = f(s, var)
         if var_1 == nil then break end
         var = var_1
         block
       end
     end

Note the following:

  • explist is evaluated only once. Its results are an iterator function, a state, and an initial value for the first iterator variable.
  • f, s, and var are invisible variables. The names are here for explanatory purposes only.
  • You can use break to exit a for loop.
  • The loop variables var_i are local to the loop; you cannot use their values after the for ends. If you need these values, then assign them to other variables before breaking or exiting the loop.

3.3.6 – Function Calls as Statements

To allow possible side-effects, function calls can be executed as statements: 

	stat ::= functioncall

In this case, all returned values are thrown away. Function calls are explained in §3.4.9.

3.3.7 – Local Declarations

Local variables can be declared anywhere inside a block. The declaration can include an initial assignment: 

	stat ::= local namelist [‘=’ explist]

If present, an initial assignment has the same semantics of a multiple assignment (see §3.3.3). Otherwise, all variables are initialized with nil.

A chunk is also a block (see §3.3.2), and so local variables can be declared in a chunk outside any explicit block.

The visibility rules for local variables are explained in §3.5.

3.4 – Expressions

The basic expressions in Lua are the following: 

	exp ::= prefixexp
	exp ::= nil | false | true
	exp ::= Number
	exp ::= String
	exp ::= functiondef
	exp ::= tableconstructor
	exp ::= ‘...’
	exp ::= exp binop exp
	exp ::= unop exp
	prefixexp ::= var | functioncall | ‘(’ exp ‘)’

Numbers and literal strings are explained in §3.1; variables are explained in §3.2; function definitions are explained in §3.4.10; function calls are explained in §3.4.9; table constructors are explained in §3.4.8. Vararg expressions, denoted by three dots ('...'), can only be used when directly inside a vararg function; they are explained in §3.4.10.

Binary operators comprise arithmetic operators (see §3.4.1), relational operators (see §3.4.3), logical operators (see §3.4.4), and the concatenation operator (see §3.4.5). Unary operators comprise the unary minus (see §3.4.1), the unary not (see §3.4.4), and the unary length operator (see §3.4.6).

Both function calls and vararg expressions can result in multiple values. If a function call is used as a statement (see §3.3.6), then its return list is adjusted to zero elements, thus discarding all returned values. If an expression is used as the last (or the only) element of a list of expressions, then no adjustment is made (unless the expression is enclosed in parentheses). In all other contexts, Lua adjusts the result list to one element, either discarding all values except the first one or adding a single nil if there are no values.

Here are some examples: 

     f()                -- adjusted to 0 results
     g(f(), x)          -- f() is adjusted to 1 result
     g(x, f())          -- g gets x plus all results from f()
     a,b,c = f(), x     -- f() is adjusted to 1 result (c gets nil)
     a,b = ...          -- a gets the first vararg parameter, b gets
                        -- the second (both a and b can get nil if there
                        -- is no corresponding vararg parameter)
     
     a,b,c = x, f()     -- f() is adjusted to 2 results
     a,b,c = f()        -- f() is adjusted to 3 results
     return f()         -- returns all results from f()
     return ...         -- returns all received vararg parameters
     return x,y,f()     -- returns x, y, and all results from f()
     {f()}              -- creates a list with all results from f()
     {...}              -- creates a list with all vararg parameters
     {f(), nil}         -- f() is adjusted to 1 result

Any expression enclosed in parentheses always results in only one value. Thus, (f(x,y,z)) is always a single value, even if f returns several values. (The value of (f(x,y,z)) is the first value returned by f or nil if f does not return any values.)

3.4.1 – Arithmetic Operators

Lua supports the usual arithmetic operators: the binary + (addition), - (subtraction), * (multiplication), / (division), % (modulo), and ^ (exponentiation); and unary - (mathematical negation). If the operands are numbers, or strings that can be converted to numbers (see §3.4.2), then all operations have the usual meaning. Exponentiation works for any exponent. For instance, x^(-0.5) computes the inverse of the square root of x. Modulo is defined as 

     a % b == a - math.floor(a/b)*b

That is, it is the remainder of a division that rounds the quotient towards minus infinity.

3.4.2 – Coercion

Lua provides automatic conversion between string and number values at run time. Any arithmetic operation applied to a string tries to convert this string to a number, following the rules of the Lua lexer. (The string may have leading and trailing spaces and a sign.) Conversely, whenever a number is used where a string is expected, the number is converted to a string, in a reasonable format. For complete control over how numbers are converted to strings, use the format function from the string library (see string.format).

3.4.3 – Relational Operators

The relational operators in Lua are 

     ==    ~=    <     >     <=    >=

These operators always result in false or true.

Equality (==) first compares the type of its operands. If the types are different, then the result is false. Otherwise, the values of the operands are compared. Numbers and strings are compared in the usual way. Tables, userdata, and threads are compared by reference: two objects are considered equal only if they are the same object. Every time you create a new object (a table, userdata, or thread), this new object is different from any previously existing object. Closures with the same reference are always equal. Closures with any detectable difference (different behavior, different definition) are always different.

You can change the way that Lua compares tables and userdata by using the "eq" metamethod (see §2.4).

The conversion rules of §3.4.2 do not apply to equality comparisons. Thus, "0"==0 evaluates to false, and t[0] and t["0"] denote different entries in a table.

The operator ~= is exactly the negation of equality (==).

The order operators work as follows. If both arguments are numbers, then they are compared as such. Otherwise, if both arguments are strings, then their values are compared according to the current locale. Otherwise, Lua tries to call the "lt" or the "le" metamethod (see §2.4). A comparison a > b is translated to b < a and a >= b is translated to b <= a.

3.4.4 – Logical Operators

The logical operators in Lua are and, or, and not. Like the control structures (see §3.3.4), all logical operators consider both false and nil as false and anything else as true.

The negation operator not always returns false or true. The conjunction operator and returns its first argument if this value is false or nil; otherwise, and returns its second argument. The disjunction operator or returns its first argument if this value is different from nil and false; otherwise, or returns its second argument. Both and and or use short-cut evaluation; that is, the second operand is evaluated only if necessary. Here are some examples: 

     10 or 20            --> 10
     10 or error()       --> 10
     nil or "a"          --> "a"
     nil and 10          --> nil
     false and error()   --> false
     false and nil       --> false
     false or nil        --> nil
     10 and 20           --> 20

(In this manual, --> indicates the result of the preceding expression.)

3.4.5 – Concatenation

The string concatenation operator in Lua is denoted by two dots ('..'). If both operands are strings or numbers, then they are converted to strings according to the rules mentioned in §3.4.2. Otherwise, the __concat metamethod is called (see §2.4).

3.4.6 – The Length Operator

The length operator is denoted by the unary prefix operator #. The length of a string is its number of bytes (that is, the usual meaning of string length when each character is one byte).

A program can modify the behavior of the length operator for any value but strings through the __len metamethod (see §2.4).

Unless a __len metamethod is given, the length of a table t is only defined if the table is a sequence, that is, the set of its positive numeric keys is equal to {1..n} for some integer n. In that case, n is its length. Note that a table like 

     {10, 20, nil, 40}

is not a sequence, because it has the key 4 but does not have the key 3. (So, there is no n such that the set {1..n} is equal to the set of positive numeric keys of that table.) Note, however, that non-numeric keys do not interfere with whether a table is a sequence.

3.4.7 – Precedence

Operator precedence in Lua follows the table below, from lower to higher priority: 

     or
     and
     <     >     <=    >=    ~=    ==
     ..
     +     -
     *     /     %
     not   #     - (unary)
     ^

As usual, you can use parentheses to change the precedences of an expression. The concatenation ('..') and exponentiation ('^') operators are right associative. All other binary operators are left associative.

3.4.8 – Table Constructors

Table constructors are expressions that create tables. Every time a constructor is evaluated, a new table is created. A constructor can be used to create an empty table or to create a table and initialize some of its fields. The general syntax for constructors is 

	tableconstructor ::= ‘{’ [fieldlist] ‘}’
	fieldlist ::= field {fieldsep field} [fieldsep]
	field ::= ‘[’ exp ‘]’ ‘=’ exp | Name ‘=’ exp | exp
	fieldsep ::= ‘,’ | ‘;’

Each field of the form [exp1] = exp2 adds to the new table an entry with key exp1 and value exp2. A field of the form name = exp is equivalent to ["name"] = exp. Finally, fields of the form exp are equivalent to [i] = exp, where i are consecutive numerical integers, starting with 1. Fields in the other formats do not affect this counting. For example, 

     a = { [f(1)] = g; "x", "y"; x = 1, f(x), [30] = 23; 45 }

is equivalent to 

     do
       local t = {}
       t[f(1)] = g
       t[1] = "x"         -- 1st exp
       t[2] = "y"         -- 2nd exp
       t.x = 1            -- t["x"] = 1
       t[3] = f(x)        -- 3rd exp
       t[30] = 23
       t[4] = 45          -- 4th exp
       a = t
     end

If the last field in the list has the form exp and the expression is a function call or a vararg expression, then all values returned by this expression enter the list consecutively (see §3.4.9).

The field list can have an optional trailing separator, as a convenience for machine-generated code.

3.4.9 – Function Calls

A function call in Lua has the following syntax: 

	functioncall ::= prefixexp args

In a function call, first prefixexp and args are evaluated. If the value of prefixexp has type function, then this function is called with the given arguments. Otherwise, the prefixexp "call" metamethod is called, having as first parameter the value of prefixexp, followed by the original call arguments (see §2.4).

The form 

	functioncall ::= prefixexp ‘:’ Name args

can be used to call "methods". A call v:name(args) is syntactic sugar for v.name(v,args), except that v is evaluated only once.

Arguments have the following syntax: 

	args ::= ‘(’ [explist] ‘)’
	args ::= tableconstructor
	args ::= String

All argument expressions are evaluated before the call. A call of the form f{fields} is syntactic sugar for f({fields}); that is, the argument list is a single new table. A call of the form f'string' (or f"string" or f[[string]]) is syntactic sugar for f('string'); that is, the argument list is a single literal string.

A call of the form return functioncall is called a tail call. Lua implements proper tail calls (or proper tail recursion): in a tail call, the called function reuses the stack entry of the calling function. Therefore, there is no limit on the number of nested tail calls that a program can execute. However, a tail call erases any debug information about the calling function. Note that a tail call only happens with a particular syntax, where the return has one single function call as argument; this syntax makes the calling function return exactly the returns of the called function. So, none of the following examples are tail calls: 

     return (f(x))        -- results adjusted to 1
     return 2 * f(x)
     return x, f(x)       -- additional results
     f(x); return         -- results discarded
     return x or f(x)     -- results adjusted to 1

3.4.10 – Function Definitions

The syntax for function definition is 

	functiondef ::= function funcbody
	funcbody ::= ‘(’ [parlist] ‘)’ block end

The following syntactic sugar simplifies function definitions: 

	stat ::= function funcname funcbody
	stat ::= local function Name funcbody
	funcname ::= Name {‘.’ Name} [‘:’ Name]

The statement 

     function f () body end

translates to 

     f = function () body end

The statement 

     function t.a.b.c.f () body end

translates to 

     t.a.b.c.f = function () body end

The statement 

     local function f () body end

translates to 

     local f; f = function () body end

not to 

     local f = function () body end

(This only makes a difference when the body of the function contains references to f.)

A function definition is an executable expression, whose value has type function. When Lua precompiles a chunk, all its function bodies are precompiled too. Then, whenever Lua executes the function definition, the function is instantiated (or closed). This function instance (or closure) is the final value of the expression.

Parameters act as local variables that are initialized with the argument values: 

	parlist ::= namelist [‘,’ ‘...’] | ‘...’

When a function is called, the list of arguments is adjusted to the length of the list of parameters, unless the function is a vararg function, which is indicated by three dots ('...') at the end of its parameter list. A vararg function does not adjust its argument list; instead, it collects all extra arguments and supplies them to the function through a vararg expression, which is also written as three dots. The value of this expression is a list of all actual extra arguments, similar to a function with multiple results. If a vararg expression is used inside another expression or in the middle of a list of expressions, then its return list is adjusted to one element. If the expression is used as the last element of a list of expressions, then no adjustment is made (unless that last expression is enclosed in parentheses).

As an example, consider the following definitions: 

     function f(a, b) end
     function g(a, b, ...) end
     function r() return 1,2,3 end

Then, we have the following mapping from arguments to parameters and to the vararg expression: 

     CALL            PARAMETERS
     
     f(3)             a=3, b=nil
     f(3, 4)          a=3, b=4
     f(3, 4, 5)       a=3, b=4
     f(r(), 10)       a=1, b=10
     f(r())           a=1, b=2
     
     g(3)             a=3, b=nil, ... -->  (nothing)
     g(3, 4)          a=3, b=4,   ... -->  (nothing)
     g(3, 4, 5, 8)    a=3, b=4,   ... -->  5  8
     g(5, r())        a=5, b=1,   ... -->  2  3

Results are returned using the return statement (see §3.3.4). If control reaches the end of a function without encountering a return statement, then the function returns with no results.

There is a system-dependent limit on the number of values that a function may return. This limit is guaranteed to be larger than 1000.

The colon syntax is used for defining methods, that is, functions that have an implicit extra parameter self. Thus, the statement 

     function t.a.b.c:f (params) body end

is syntactic sugar for 

     t.a.b.c.f = function (self, params) body end

3.5 – Visibility Rules

Lua is a lexically scoped language. The scope of a local variable begins at the first statement after its declaration and lasts until the last non-void statement of the innermost block that includes the declaration. Consider the following example: 

     x = 10                -- global variable
     do                    -- new block
       local x = x         -- new 'x', with value 10
       print(x)            --> 10
       x = x+1
       do                  -- another block
         local x = x+1     -- another 'x'
         print(x)          --> 12
       end
       print(x)            --> 11
     end
     print(x)              --> 10  (the global one)

Notice that, in a declaration like local x = x, the new x being declared is not in scope yet, and so the second x refers to the outside variable.

Because of the lexical scoping rules, local variables can be freely accessed by functions defined inside their scope. A local variable used by an inner function is called an upvalue, or external local variable, inside the inner function.

Notice that each execution of a local statement defines new local variables. Consider the following example: 

     a = {}
     local x = 20
     for i=1,10 do
       local y = 0
       a[i] = function () y=y+1; return x+y end
     end

The loop creates ten closures (that is, ten instances of the anonymous function). Each of these closures uses a different y variable, while all of them share the same x.

4 – The Application Program Interface

This section describes the C API for Lua, that is, the set of C functions available to the host program to communicate with Lua. All API functions and related types and constants are declared in the header file lua.h.

Even when we use the term "function", any facility in the API may be provided as a macro instead. Except where stated otherwise, all such macros use each of their arguments exactly once (except for the first argument, which is always a Lua state), and so do not generate any hidden side-effects.

As in most C libraries, the Lua API functions do not check their arguments for validity or consistency. However, you can change this behavior by compiling Lua with the macro LUA_USE_APICHECK defined.

4.1 – The Stack

Lua uses a virtual stack to pass values to and from C. Each element in this stack represents a Lua value (nil, number, string, etc.).

Whenever Lua calls C, the called function gets a new stack, which is independent of previous stacks and of stacks of C functions that are still active. This stack initially contains any arguments to the C function and it is where the C function pushes its results to be returned to the caller (see lua_CFunction).

For convenience, most query operations in the API do not follow a strict stack discipline. Instead, they can refer to any element in the stack by using an index: A positive index represents an absolute stack position (starting at 1); a negative index represents an offset relative to the top of the stack. More specifically, if the stack has n elements, then index 1 represents the first element (that is, the element that was pushed onto the stack first) and index n represents the last element; index -1 also represents the last element (that is, the element at the top) and index -n represents the first element.

4.2 – Stack Size

When you interact with the Lua API, you are responsible for ensuring consistency. In particular, you are responsible for controlling stack overflow. You can use the function lua_checkstack to ensure that the stack has extra slots when pushing new elements.

Whenever Lua calls C, it ensures that the stack has at least LUA_MINSTACK extra slots. LUA_MINSTACK is defined as 20, so that usually you do not have to worry about stack space unless your code has loops pushing elements onto the stack.

When you call a Lua function without a fixed number of results (see lua_call), Lua ensures that the stack has enough size for all results, but it does not ensure any extra space. So, before pushing anything in the stack after such a call you should use lua_checkstack.

4.3 – Valid and Acceptable Indices

Any function in the API that receives stack indices works only with valid indices or acceptable indices.

A valid index is an index that refers to a real position within the stack, that is, its position lies between 1 and the stack top (1 ≤ abs(index) ≤ top). Usually, functions that can modify the value at an index require valid indices.

Unless otherwise noted, any function that accepts valid indices also accepts pseudo-indices, which represent some Lua values that are accessible to C code but which are not in the stack. Pseudo-indices are used to access the registry and the upvalues of a C function (see §4.4).

Functions that do not need a specific stack position, but only a value in the stack (e.g., query functions), can be called with acceptable indices. An acceptable index can be any valid index, including the pseudo-indices, but it also can be any positive index after the stack top within the space allocated for the stack, that is, indices up to the stack size. (Note that 0 is never an acceptable index.) Except when noted otherwise, functions in the API work with acceptable indices.

Acceptable indices serve to avoid extra tests against the stack top when querying the stack. For instance, a C function can query its third argument without the need to first check whether there is a third argument, that is, without the need to check whether 3 is a valid index.

For functions that can be called with acceptable indices, any non-valid index is treated as if it contains a value of a virtual type LUA_TNONE, which behaves like a nil value.

4.4 – C Closures

When a C function is created, it is possible to associate some values with it, thus creating a C closure (see lua_pushcclosure); these values are called upvalues and are accessible to the function whenever it is called.

Whenever a C function is called, its upvalues are located at specific pseudo-indices. These pseudo-indices are produced by the macro lua_upvalueindex. The first value associated with a function is at position lua_upvalueindex(1), and so on. Any access to lua_upvalueindex(n), where n is greater than the number of upvalues of the current function (but not greater than 256), produces an acceptable but invalid index.

4.5 – Registry

Lua provides a registry, a predefined table that can be used by any C code to store whatever Lua values it needs to store. The registry table is always located at pseudo-index LUA_REGISTRYINDEX, which is a valid index. Any C library can store data into this table, but it should take care to choose keys that are different from those used by other libraries, to avoid collisions. Typically, you should use as key a string containing your library name, or a light userdata with the address of a C object in your code, or any Lua object created by your code. As with global names, string keys starting with an underscore followed by uppercase letters are reserved for Lua.

The integer keys in the registry are used by the reference mechanism, implemented by the auxiliary library, and by some predefined values. Therefore, integer keys should not be used for other purposes.

When you create a new Lua state, its registry comes with some predefined values. These predefined values are indexed with integer keys defined as constants in lua.h. The following constants are defined:

  • LUA_RIDX_MAINTHREAD: At this index the registry has the main thread of the state. (The main thread is the one created together with the state.)
  • LUA_RIDX_GLOBALS: At this index the registry has the global environment.

4.6 – Error Handling in C

Internally, Lua uses the C longjmp facility to handle errors. (You can also choose to use exceptions if you compile Lua as C++; search for LUAI_THROW in the source code.) When Lua faces any error (such as a memory allocation error, type errors, syntax errors, and runtime errors) it raises an error; that is, it does a long jump. A protected environment uses setjmp to set a recovery point; any error jumps to the most recent active recovery point.

If an error happens outside any protected environment, Lua calls a panic function (see lua_atpanic) and then calls abort, thus exiting the host application. Your panic function can avoid this exit by never returning (e.g., doing a long jump to your own recovery point outside Lua).

The panic function runs as if it were a message handler (see §2.3); in particular, the error message is at the top of the stack. However, there is no guarantees about stack space. To push anything on the stack, the panic function should first check the available space (see §4.2).

Most functions in the API can throw an error, for instance due to a memory allocation error. The documentation for each function indicates whether it can throw errors.

Inside a C function you can throw an error by calling lua_error.

4.7 – Handling Yields in C

Internally, Lua uses the C longjmp facility to yield a coroutine. Therefore, if a function foo calls an API function and this API function yields (directly or indirectly by calling another function that yields), Lua cannot return to foo any more, because the longjmp removes its frame from the C stack.

To avoid this kind of problem, Lua raises an error whenever it tries to yield across an API call, except for three functions: lua_yieldk, lua_callk, and lua_pcallk. All those functions receive a continuation function (as a parameter called k) to continue execution after a yield.

We need to set some terminology to explain continuations. We have a C function called from Lua which we will call the original function. This original function then calls one of those three functions in the C API, which we will call the callee function, that then yields the current thread. (This can happen when the callee function is lua_yieldk, or when the callee function is either lua_callk or lua_pcallk and the function called by them yields.)

Suppose the running thread yields while executing the callee function. After the thread resumes, it eventually will finish running the callee function. However, the callee function cannot return to the original function, because its frame in the C stack was destroyed by the yield. Instead, Lua calls a continuation function, which was given as an argument to the callee function. As the name implies, the continuation function should continue the task of the original function.

Lua treats the continuation function as if it were the original function. The continuation function receives the same Lua stack from the original function, in the same state it would be if the callee function had returned. (For instance, after a lua_callk the function and its arguments are removed from the stack and replaced by the results from the call.) It also has the same upvalues. Whatever it returns is handled by Lua as if it were the return of the original function.

The only difference in the Lua state between the original function and its continuation is the result of a call to lua_getctx.

4.8 – Functions and Types

Here we list all functions and types from the C API in alphabetical order. Each function has an indicator like this: [-o, +p, x]

The first field, o, is how many elements the function pops from the stack. The second field, p, is how many elements the function pushes onto the stack. (Any function always pushes its results after popping its arguments.) A field in the form x|y means the function can push (or pop) x or y elements, depending on the situation; an interrogation mark '?' means that we cannot know how many elements the function pops/pushes by looking only at its arguments (e.g., they may depend on what is on the stack). The third field, x, tells whether the function may throw errors: '-' means the function never throws any error; 'e' means the function may throw errors; 'v' means the function may throw an error on purpose.

lua_absindex

[-0, +0, –] 

int lua_absindex (lua_State *L, int idx);

Converts the acceptable index idx into an absolute index (that is, one that does not depend on the stack top).

lua_Alloc

typedef void * (*lua_Alloc) (void *ud,
                             void *ptr,
                             size_t osize,
                             size_t nsize);

The type of the memory-allocation function used by Lua states. The allocator function must provide a functionality similar to realloc, but not exactly the same. Its arguments are ud, an opaque pointer passed to lua_newstate; ptr, a pointer to the block being allocated/reallocated/freed; osize, the original size of the block or some code about what is being allocated; nsize, the new size of the block.

When ptr is not NULL, osize is the size of the block pointed by ptr, that is, the size given when it was allocated or reallocated.

When ptr is NULL, osize encodes the kind of object that Lua is allocating. osize is any of LUA_TSTRING, LUA_TTABLE, LUA_TFUNCTION, LUA_TUSERDATA, or LUA_TTHREAD when (and only when) Lua is creating a new object of that type. When osize is some other value, Lua is allocating memory for something else.

Lua assumes the following behavior from the allocator function:

When nsize is zero, the allocator should behave like free and return NULL.

When nsize is not zero, the allocator should behave like realloc. The allocator returns NULL if and only if it cannot fulfill the request. Lua assumes that the allocator never fails when osize >= nsize.

Here is a simple implementation for the allocator function. It is used in the auxiliary library by luaL_newstate. 

     static void *l_alloc (void *ud, void *ptr, size_t osize,
                                                size_t nsize) {
       (void)ud;  (void)osize;  /* not used */
       if (nsize == 0) {
         free(ptr);
         return NULL;
       }
       else
         return realloc(ptr, nsize);
     }

Note that Standard C ensures that free(NULL) has no effect and that realloc(NULL, size) is equivalent to malloc(size). This code assumes that realloc does not fail when shrinking a block. (Although Standard C does not ensure this behavior, it seems to be a safe assumption.)

lua_arith

[-(2|1), +1, e] 

void lua_arith (lua_State *L, int op);

Performs an arithmetic operation over the two values (or one, in the case of negation) at the top of the stack, with the value at the top being the second operand, pops these values, and pushes the result of the operation. The function follows the semantics of the corresponding Lua operator (that is, it may call metamethods).

The value of op must be one of the following constants:

lua_atpanic

[-0, +0, –] 

lua_CFunction lua_atpanic (lua_State *L, lua_CFunction panicf);

Sets a new panic function and returns the old one (see §4.6).

lua_call

[-(nargs+1), +nresults, e] 

void lua_call (lua_State *L, int nargs, int nresults);

Calls a function.

To call a function you must use the following protocol: first, the function to be called is pushed onto the stack; then, the arguments to the function are pushed in direct order; that is, the first argument is pushed first. Finally you call lua_call; nargs is the number of arguments that you pushed onto the stack. All arguments and the function value are popped from the stack when the function is called. The function results are pushed onto the stack when the function returns. The number of results is adjusted to nresults, unless nresults is LUA_MULTRET. In this case, all results from the function are pushed. Lua takes care that the returned values fit into the stack space. The function results are pushed onto the stack in direct order (the first result is pushed first), so that after the call the last result is on the top of the stack.

Any error inside the called function is propagated upwards (with a longjmp).

The following example shows how the host program can do the equivalent to this Lua code: 

     a = f("how", t.x, 14)

Here it is in C: 

     lua_getglobal(L, "f");                  /* function to be called */
     lua_pushstring(L, "how");                        /* 1st argument */
     lua_getglobal(L, "t");                    /* table to be indexed */
     lua_getfield(L, -1, "x");        /* push result of t.x (2nd arg) */
     lua_remove(L, -2);                  /* remove 't' from the stack */
     lua_pushinteger(L, 14);                          /* 3rd argument */
     lua_call(L, 3, 1);     /* call 'f' with 3 arguments and 1 result */
     lua_setglobal(L, "a");                         /* set global 'a' */

Note that the code above is "balanced": at its end, the stack is back to its original configuration. This is considered good programming practice.

lua_callk

[-(nargs + 1), +nresults, e] 

void lua_callk (lua_State *L, int nargs, int nresults, int ctx,
                lua_CFunction k);

This function behaves exactly like lua_call, but allows the called function to yield (see §4.7).

lua_CFunction

typedef int (*lua_CFunction) (lua_State *L);

Type for C functions.

In order to communicate properly with Lua, a C function must use the following protocol, which defines the way parameters and results are passed: a C function receives its arguments from Lua in its stack in direct order (the first argument is pushed first). So, when the function starts, lua_gettop(L) returns the number of arguments received by the function. The first argument (if any) is at index 1 and its last argument is at index lua_gettop(L). To return values to Lua, a C function just pushes them onto the stack, in direct order (the first result is pushed first), and returns the number of results. Any other value in the stack below the results will be properly discarded by Lua. Like a Lua function, a C function called by Lua can also return many results.

As an example, the following function receives a variable number of numerical arguments and returns their average and sum: 

     static int foo (lua_State *L) {
       int n = lua_gettop(L);    /* number of arguments */
       lua_Number sum = 0;
       int i;
       for (i = 1; i <= n; i++) {
         if (!lua_isnumber(L, i)) {
           lua_pushstring(L, "incorrect argument");
           lua_error(L);
         }
         sum += lua_tonumber(L, i);
       }
       lua_pushnumber(L, sum/n);        /* first result */
       lua_pushnumber(L, sum);         /* second result */
       return 2;                   /* number of results */
     }

lua_checkstack

[-0, +0, –] 

int lua_checkstack (lua_State *L, int extra);

Ensures that there are at least extra free stack slots in the stack. It returns false if it cannot fulfill the request, because it would cause the stack to be larger than a fixed maximum size (typically at least a few thousand elements) or because it cannot allocate memory for the new stack size. This function never shrinks the stack; if the stack is already larger than the new size, it is left unchanged.

lua_close

[-0, +0, –] 

void lua_close (lua_State *L);

Destroys all objects in the given Lua state (calling the corresponding garbage-collection metamethods, if any) and frees all dynamic memory used by this state. On several platforms, you may not need to call this function, because all resources are naturally released when the host program ends. On the other hand, long-running programs that create multiple states, such as daemons or web servers, might need to close states as soon as they are not needed.

lua_compare

[-0, +0, e] 

int lua_compare (lua_State *L, int index1, int index2, int op);

Compares two Lua values. Returns 1 if the value at index index1 satisfies op when compared with the value at index index2, following the semantics of the corresponding Lua operator (that is, it may call metamethods). Otherwise returns 0. Also returns 0 if any of the indices is non valid.

The value of op must be one of the following constants:

lua_concat

[-n, +1, e] 

void lua_concat (lua_State *L, int n);

Concatenates the n values at the top of the stack, pops them, and leaves the result at the top. If n is 1, the result is the single value on the stack (that is, the function does nothing); if n is 0, the result is the empty string. Concatenation is performed following the usual semantics of Lua (see §3.4.5).

lua_copy

[-0, +0, –] 

void lua_copy (lua_State *L, int fromidx, int toidx);

Moves the element at index fromidx into the valid index toidx without shifting any element (therefore replacing the value at that position).

lua_createtable

[-0, +1, e] 

void lua_createtable (lua_State *L, int narr, int nrec);

Creates a new empty table and pushes it onto the stack. Parameter narr is a hint for how many elements the table will have as a sequence; parameter nrec is a hint for how many other elements the table will have. Lua may use these hints to preallocate memory for the new table. This pre-allocation is useful for performance when you know in advance how many elements the table will have. Otherwise you can use the function lua_newtable.

lua_dump

[-0, +0, e] 

int lua_dump (lua_State *L, lua_Writer writer, void *data);

Dumps a function as a binary chunk. Receives a Lua function on the top of the stack and produces a binary chunk that, if loaded again, results in a function equivalent to the one dumped. As it produces parts of the chunk, lua_dump calls function writer (see lua_Writer) with the given data to write them.

The value returned is the error code returned by the last call to the writer; 0 means no errors.

This function does not pop the Lua function from the stack.

lua_error

[-1, +0, v] 

int lua_error (lua_State *L);

Generates a Lua error. The error message (which can actually be a Lua value of any type) must be on the stack top. This function does a long jump, and therefore never returns (see luaL_error).

lua_gc

[-0, +0, e] 

int lua_gc (lua_State *L, int what, int data);

Controls the garbage collector.

This function performs several tasks, according to the value of the parameter what:

  • LUA_GCSTOP: stops the garbage collector.
  • LUA_GCRESTART: restarts the garbage collector.
  • LUA_GCCOLLECT: performs a full garbage-collection cycle.
  • LUA_GCCOUNT: returns the current amount of memory (in Kbytes) in use by Lua.
  • LUA_GCCOUNTB: returns the remainder of dividing the current amount of bytes of memory in use by Lua by 1024.
  • LUA_GCSTEP: performs an incremental step of garbage collection. The step "size" is controlled by data (larger values mean more steps) in a non-specified way. If you want to control the step size you must experimentally tune the value of data. The function returns 1 if the step finished a garbage-collection cycle.
  • LUA_GCSETPAUSE: sets data as the new value for the pause of the collector (see §2.5). The function returns the previous value of the pause.
  • LUA_GCSETSTEPMUL: sets data as the new value for the step multiplier of the collector (see §2.5). The function returns the previous value of the step multiplier.
  • LUA_GCISRUNNING: returns a boolean that tells whether the collector is running (i.e., not stopped).
  • LUA_GCGEN: changes the collector to generational mode (see §2.5).
  • LUA_GCINC: changes the collector to incremental mode. This is the default mode.

For more details about these options, see collectgarbage.

lua_getallocf

[-0, +0, –] 

lua_Alloc lua_getallocf (lua_State *L, void **ud);

Returns the memory-allocation function of a given state. If ud is not NULL, Lua stores in *ud the opaque pointer passed to lua_newstate.

lua_getctx

[-0, +0, –] 

int lua_getctx (lua_State *L, int *ctx);

This function is called by a continuation function (see §4.7) to retrieve the status of the thread and a context information.

When called in the original function, lua_getctx always returns LUA_OK and does not change the value of its argument ctx. When called inside a continuation function, lua_getctx returns LUA_YIELD and sets the value of ctx to be the context information (the value passed as the ctx argument to the callee together with the continuation function).

When the callee is lua_pcallk, Lua may also call its continuation function to handle errors during the call. That is, upon an error in the function called by lua_pcallk, Lua may not return to the original function but instead may call the continuation function. In that case, a call to lua_getctx will return the error code (the value that would be returned by lua_pcallk); the value of ctx will be set to the context information, as in the case of a yield.

lua_getfield

[-0, +1, e] 

void lua_getfield (lua_State *L, int index, const char *k);

Pushes onto the stack the value t[k], where t is the value at the given index. As in Lua, this function may trigger a metamethod for the "index" event (see §2.4).

lua_getglobal

[-0, +1, e] 

void lua_getglobal (lua_State *L, const char *name);

Pushes onto the stack the value of the global name.

lua_getmetatable

[-0, +(0|1), –] 

int lua_getmetatable (lua_State *L, int index);

Pushes onto the stack the metatable of the value at the given index. If the value does not have a metatable, the function returns 0 and pushes nothing on the stack.

lua_gettable

[-1, +1, e] 

void lua_gettable (lua_State *L, int index);

Pushes onto the stack the value t[k], where t is the value at the given index and k is the value at the top of the stack.

This function pops the key from the stack (putting the resulting value in its place). As in Lua, this function may trigger a metamethod for the "index" event (see §2.4).

lua_gettop

[-0, +0, –] 

int lua_gettop (lua_State *L);

Returns the index of the top element in the stack. Because indices start at 1, this result is equal to the number of elements in the stack (and so 0 means an empty stack).

lua_getuservalue

[-0, +1, –] 

void lua_getuservalue (lua_State *L, int index);

Pushes onto the stack the Lua value associated with the userdata at the given index. This Lua value must be a table or nil.

lua_insert

[-1, +1, –] 

void lua_insert (lua_State *L, int index);

Moves the top element into the given valid index, shifting up the elements above this index to open space. This function cannot be called with a pseudo-index, because a pseudo-index is not an actual stack position.

lua_Integer

typedef ptrdiff_t lua_Integer;

The type used by the Lua API to represent signed integral values.

By default it is a ptrdiff_t, which is usually the largest signed integral type the machine handles "comfortably".

lua_isboolean

[-0, +0, –] 

int lua_isboolean (lua_State *L, int index);

Returns 1 if the value at the given index is a boolean, and 0 otherwise.

lua_iscfunction

[-0, +0, –] 

int lua_iscfunction (lua_State *L, int index);

Returns 1 if the value at the given index is a C function, and 0 otherwise.

lua_isfunction

[-0, +0, –] 

int lua_isfunction (lua_State *L, int index);

Returns 1 if the value at the given index is a function (either C or Lua), and 0 otherwise.

lua_islightuserdata

[-0, +0, –] 

int lua_islightuserdata (lua_State *L, int index);

Returns 1 if the value at the given index is a light userdata, and 0 otherwise.

lua_isnil

[-0, +0, –] 

int lua_isnil (lua_State *L, int index);

Returns 1 if the value at the given index is nil, and 0 otherwise.

lua_isnone

[-0, +0, –] 

int lua_isnone (lua_State *L, int index);

Returns 1 if the given index is not valid, and 0 otherwise.

lua_isnoneornil

[-0, +0, –] 

int lua_isnoneornil (lua_State *L, int index);

Returns 1 if the given index is not valid or if the value at this index is nil, and 0 otherwise.

lua_isnumber

[-0, +0, –] 

int lua_isnumber (lua_State *L, int index);

Returns 1 if the value at the given index is a number or a string convertible to a number, and 0 otherwise.

lua_isstring

[-0, +0, –] 

int lua_isstring (lua_State *L, int index);

Returns 1 if the value at the given index is a string or a number (which is always convertible to a string), and 0 otherwise.

lua_istable

[-0, +0, –] 

int lua_istable (lua_State *L, int index);

Returns 1 if the value at the given index is a table, and 0 otherwise.

lua_isthread

[-0, +0, –] 

int lua_isthread (lua_State *L, int index);

Returns 1 if the value at the given index is a thread, and 0 otherwise.

lua_isuserdata

[-0, +0, –] 

int lua_isuserdata (lua_State *L, int index);

Returns 1 if the value at the given index is a userdata (either full or light), and 0 otherwise.

lua_len

[-0, +1, e] 

void lua_len (lua_State *L, int index);

Returns the "length" of the value at the given index; it is equivalent to the '#' operator in Lua (see §3.4.6). The result is pushed on the stack.

lua_load

[-0, +1, –] 

int lua_load (lua_State *L,
              lua_Reader reader,
              void *data,
              const char *source,
              const char *mode);

Loads a Lua chunk (without running it). If there are no errors, lua_load pushes the compiled chunk as a Lua function on top of the stack. Otherwise, it pushes an error message.

The return values of lua_load are:

  • LUA_OK: no errors;
  • LUA_ERRSYNTAX: syntax error during precompilation;
  • LUA_ERRMEM: memory allocation error;
  • LUA_ERRGCMM: error while running a __gc metamethod. (This error has no relation with the chunk being loaded. It is generated by the garbage collector.)

The lua_load function uses a user-supplied reader function to read the chunk (see lua_Reader). The data argument is an opaque value passed to the reader function.

The source argument gives a name to the chunk, which is used for error messages and in debug information (see §4.9).

lua_load automatically detects whether the chunk is text or binary and loads it accordingly (see program luac). The string mode works as in function load, with the addition that a NULL value is equivalent to the string "bt".

lua_load uses the stack internally, so the reader function should always leave the stack unmodified when returning.

If the resulting function has one upvalue, this upvalue is set to the value of the global environment stored at index LUA_RIDX_GLOBALS in the registry (see §4.5). When loading main chunks, this upvalue will be the _ENV variable (see §2.2).

lua_newstate

[-0, +0, –] 

lua_State *lua_newstate (lua_Alloc f, void *ud);

Creates a new thread running in a new, independent state. Returns NULL if cannot create the thread or the state (due to lack of memory). The argument f is the allocator function; Lua does all memory allocation for this state through this function. The second argument, ud, is an opaque pointer that Lua passes to the allocator in every call.

lua_newtable

[-0, +1, e] 

void lua_newtable (lua_State *L);

Creates a new empty table and pushes it onto the stack. It is equivalent to lua_createtable(L, 0, 0).

lua_newthread

[-0, +1, e] 

lua_State *lua_newthread (lua_State *L);

Creates a new thread, pushes it on the stack, and returns a pointer to a lua_State that represents this new thread. The new thread returned by this function shares with the original thread its global environment, but has an independent execution stack.

There is no explicit function to close or to destroy a thread. Threads are subject to garbage collection, like any Lua object.

lua_newuserdata

[-0, +1, e] 

void *lua_newuserdata (lua_State *L, size_t size);

This function allocates a new block of memory with the given size, pushes onto the stack a new full userdata with the block address, and returns this address. The host program can freely use this memory.

lua_next

[-1, +(2|0), e] 

int lua_next (lua_State *L, int index);

Pops a key from the stack, and pushes a key–value pair from the table at the given index (the "next" pair after the given key). If there are no more elements in the table, then lua_next returns 0 (and pushes nothing).

A typical traversal looks like this: 

     /* table is in the stack at index 't' */
     lua_pushnil(L);  /* first key */
     while (lua_next(L, t) != 0) {
       /* uses 'key' (at index -2) and 'value' (at index -1) */
       printf("%s - %s\n",
              lua_typename(L, lua_type(L, -2)),
              lua_typename(L, lua_type(L, -1)));
       /* removes 'value'; keeps 'key' for next iteration */
       lua_pop(L, 1);
     }

While traversing a table, do not call lua_tolstring directly on a key, unless you know that the key is actually a string. Recall that lua_tolstring may change the value at the given index; this confuses the next call to lua_next.

See function next for the caveats of modifying the table during its traversal.

lua_Number

typedef double lua_Number;

The type of numbers in Lua. By default, it is double, but that can be changed in luaconf.h. Through this configuration file you can change Lua to operate with another type for numbers (e.g., float or long).

lua_pcall

[-(nargs + 1), +(nresults|1), –] 

int lua_pcall (lua_State *L, int nargs, int nresults, int msgh);

Calls a function in protected mode.

Both nargs and nresults have the same meaning as in lua_call. If there are no errors during the call, lua_pcall behaves exactly like lua_call. However, if there is any error, lua_pcall catches it, pushes a single value on the stack (the error message), and returns an error code. Like lua_call, lua_pcall always removes the function and its arguments from the stack.

If msgh is 0, then the error message returned on the stack is exactly the original error message. Otherwise, msgh is the stack index of a message handler. (In the current implementation, this index cannot be a pseudo-index.) In case of runtime errors, this function will be called with the error message and its return value will be the message returned on the stack by lua_pcall.

Typically, the message handler is used to add more debug information to the error message, such as a stack traceback. Such information cannot be gathered after the return of lua_pcall, since by then the stack has unwound.

The lua_pcall function returns one of the following codes (defined in lua.h):

  • LUA_OK (0): success.
  • LUA_ERRRUN: a runtime error.
  • LUA_ERRMEM: memory allocation error. For such errors, Lua does not call the message handler.
  • LUA_ERRERR: error while running the message handler.
  • LUA_ERRGCMM: error while running a __gc metamethod. (This error typically has no relation with the function being called. It is generated by the garbage collector.)

lua_pcallk

[-(nargs + 1), +(nresults|1), –] 

int lua_pcallk (lua_State *L,
                int nargs,
                int nresults,
                int errfunc,
                int ctx,
                lua_CFunction k);

This function behaves exactly like lua_pcall, but allows the called function to yield (see §4.7).

lua_pop

[-n, +0, –] 

void lua_pop (lua_State *L, int n);

Pops n elements from the stack.

lua_pushboolean

[-0, +1, –] 

void lua_pushboolean (lua_State *L, int b);

Pushes a boolean value with value b onto the stack.

lua_pushcclosure

[-n, +1, e] 

void lua_pushcclosure (lua_State *L, lua_CFunction fn, int n);

Pushes a new C closure onto the stack.

When a C function is created, it is possible to associate some values with it, thus creating a C closure (see §4.4); these values are then accessible to the function whenever it is called. To associate values with a C function, first these values should be pushed onto the stack (when there are multiple values, the first value is pushed first). Then lua_pushcclosure is called to create and push the C function onto the stack, with the argument n telling how many values should be associated with the function. lua_pushcclosure also pops these values from the stack.

The maximum value for n is 255.

When n is zero, this function creates a light C function, which is just a pointer to the C function. In that case, it never throws a memory error.

lua_pushcfunction

[-0, +1, –] 

void lua_pushcfunction (lua_State *L, lua_CFunction f);

Pushes a C function onto the stack. This function receives a pointer to a C function and pushes onto the stack a Lua value of type function that, when called, invokes the corresponding C function.

Any function to be registered in Lua must follow the correct protocol to receive its parameters and return its results (see lua_CFunction).

lua_pushcfunction is defined as a macro: 

     #define lua_pushcfunction(L,f)  lua_pushcclosure(L,f,0)

Note that f is used twice.

lua_pushfstring

[-0, +1, e] 

const char *lua_pushfstring (lua_State *L, const char *fmt, ...);

Pushes onto the stack a formatted string and returns a pointer to this string. It is similar to the ANSI C function sprintf, but has some important differences:

  • You do not have to allocate space for the result: the result is a Lua string and Lua takes care of memory allocation (and deallocation, through garbage collection).
  • The conversion specifiers are quite restricted. There are no flags, widths, or precisions. The conversion specifiers can only be '%%' (inserts a '%' in the string), '%s' (inserts a zero-terminated string, with no size restrictions), '%f' (inserts a lua_Number), '%p' (inserts a pointer as a hexadecimal numeral), '%d' (inserts an int), and '%c' (inserts an int as a byte).

lua_pushglobaltable

[-0, +1, –] 

void lua_pushglobaltable (lua_State *L);

Pushes the global environment onto the stack.

lua_pushinteger

[-0, +1, –] 

void lua_pushinteger (lua_State *L, lua_Integer n);

Pushes a number with value n onto the stack.

lua_pushlightuserdata

[-0, +1, –] 

void lua_pushlightuserdata (lua_State *L, void *p);

Pushes a light userdata onto the stack.

Userdata represent C values in Lua. A light userdata represents a pointer, a void*. It is a value (like a number): you do not create it, it has no individual metatable, and it is not collected (as it was never created). A light userdata is equal to "any" light userdata with the same C address.

lua_pushliteral

[-0, +1, e] 

const char *lua_pushliteral (lua_State *L, const char *s);

This macro is equivalent to lua_pushlstring, but can be used only when s is a literal string. It automatically provides the string length.

lua_pushlstring

[-0, +1, e] 

const char *lua_pushlstring (lua_State *L, const char *s, size_t len);

Pushes the string pointed to by s with size len onto the stack. Lua makes (or reuses) an internal copy of the given string, so the memory at s can be freed or reused immediately after the function returns. The string can contain any binary data, including embedded zeros.

Returns a pointer to the internal copy of the string.

lua_pushnil

[-0, +1, –] 

void lua_pushnil (lua_State *L);

Pushes a nil value onto the stack.

lua_pushnumber

[-0, +1, –] 

void lua_pushnumber (lua_State *L, lua_Number n);

Pushes a number with value n onto the stack.

lua_pushstring

[-0, +1, e] 

const char *lua_pushstring (lua_State *L, const char *s);

Pushes the zero-terminated string pointed to by s onto the stack. Lua makes (or reuses) an internal copy of the given string, so the memory at s can be freed or reused immediately after the function returns.

Returns a pointer to the internal copy of the string.

If s is NULL, pushes nil and returns NULL.

lua_pushthread

[-0, +1, –] 

int lua_pushthread (lua_State *L);

Pushes the thread represented by L onto the stack. Returns 1 if this thread is the main thread of its state.

lua_pushunsigned

[-0, +1, –] 

void lua_pushunsigned (lua_State *L, lua_Unsigned n);

Pushes a number with value n onto the stack.

lua_pushvalue

[-0, +1, –] 

void lua_pushvalue (lua_State *L, int index);

Pushes a copy of the element at the given index onto the stack.

lua_pushvfstring

[-0, +1, e] 

const char *lua_pushvfstring (lua_State *L,
                              const char *fmt,
                              va_list argp);

Equivalent to lua_pushfstring, except that it receives a va_list instead of a variable number of arguments.

lua_rawequal

[-0, +0, –] 

int lua_rawequal (lua_State *L, int index1, int index2);

Returns 1 if the two values in indices index1 and index2 are primitively equal (that is, without calling metamethods). Otherwise returns 0. Also returns 0 if any of the indices are non valid.

lua_rawget

[-1, +1, –] 

void lua_rawget (lua_State *L, int index);

Similar to lua_gettable, but does a raw access (i.e., without metamethods).

lua_rawgeti

[-0, +1, –] 

void lua_rawgeti (lua_State *L, int index, int n);

Pushes onto the stack the value t[n], where t is the table at the given index. The access is raw; that is, it does not invoke metamethods.

lua_rawgetp

[-0, +1, –] 

void lua_rawgetp (lua_State *L, int index, const void *p);

Pushes onto the stack the value t[k], where t is the table at the given index and k is the pointer p represented as a light userdata. The access is raw; that is, it does not invoke metamethods.

lua_rawlen

[-0, +0, –] 

size_t lua_rawlen (lua_State *L, int index);

Returns the raw "length" of the value at the given index: for strings, this is the string length; for tables, this is the result of the length operator ('#') with no metamethods; for userdata, this is the size of the block of memory allocated for the userdata; for other values, it is 0.

lua_rawset

[-2, +0, e] 

void lua_rawset (lua_State *L, int index);

Similar to lua_settable, but does a raw assignment (i.e., without metamethods).

lua_rawseti

[-1, +0, e] 

void lua_rawseti (lua_State *L, int index, int n);

Does the equivalent of t[n] = v, where t is the table at the given index and v is the value at the top of the stack.

This function pops the value from the stack. The assignment is raw; that is, it does not invoke metamethods.

lua_rawsetp

[-1, +0, e] 

void lua_rawsetp (lua_State *L, int index, const void *p);

Does the equivalent of t[k] = v, where t is the table at the given index, k is the pointer p represented as a light userdata, and v is the value at the top of the stack.

This function pops the value from the stack. The assignment is raw; that is, it does not invoke metamethods.

lua_Reader

typedef const char * (*lua_Reader) (lua_State *L,
                                    void *data,
                                    size_t *size);

The reader function used by lua_load. Every time it needs another piece of the chunk, lua_load calls the reader, passing along its data parameter. The reader must return a pointer to a block of memory with a new piece of the chunk and set size to the block size. The block must exist until the reader function is called again. To signal the end of the chunk, the reader must return NULL or set size to zero. The reader function may return pieces of any size greater than zero.

lua_register

[-0, +0, e] 

void lua_register (lua_State *L, const char *name, lua_CFunction f);

Sets the C function f as the new value of global name. It is defined as a macro: 

     #define lua_register(L,n,f) \
            (lua_pushcfunction(L, f), lua_setglobal(L, n))

lua_remove

[-1, +0, –] 

void lua_remove (lua_State *L, int index);

Removes the element at the given valid index, shifting down the elements above this index to fill the gap. This function cannot be called with a pseudo-index, because a pseudo-index is not an actual stack position.

lua_replace

[-1, +0, –] 

void lua_replace (lua_State *L, int index);

Moves the top element into the given valid index without shifting any element (therefore replacing the value at the given index), and then pops the top element.

lua_resume

[-?, +?, –] 

int lua_resume (lua_State *L, lua_State *from, int nargs);

Starts and resumes a coroutine in a given thread.

To start a coroutine, you push onto the thread stack the main function plus any arguments; then you call lua_resume, with nargs being the number of arguments. This call returns when the coroutine suspends or finishes its execution. When it returns, the stack contains all values passed to lua_yield, or all values returned by the body function. lua_resume returns LUA_YIELD if the coroutine yields, LUA_OK if the coroutine finishes its execution without errors, or an error code in case of errors (see lua_pcall).

In case of errors, the stack is not unwound, so you can use the debug API over it. The error message is on the top of the stack.

To resume a coroutine, you remove any results from the last lua_yield, put on its stack only the values to be passed as results from yield, and then call lua_resume.

The parameter from represents the coroutine that is resuming L. If there is no such coroutine, this parameter can be NULL.

lua_setallocf

[-0, +0, –] 

void lua_setallocf (lua_State *L, lua_Alloc f, void *ud);

Changes the allocator function of a given state to f with user data ud.

lua_setfield

[-1, +0, e] 

void lua_setfield (lua_State *L, int index, const char *k);

Does the equivalent to t[k] = v, where t is the value at the given index and v is the value at the top of the stack.

This function pops the value from the stack. As in Lua, this function may trigger a metamethod for the "newindex" event (see §2.4).

lua_setglobal

[-1, +0, e] 

void lua_setglobal (lua_State *L, const char *name);

Pops a value from the stack and sets it as the new value of global name.

lua_setmetatable

[-1, +0, –] 

void lua_setmetatable (lua_State *L, int index);

Pops a table from the stack and sets it as the new metatable for the value at the given index.

lua_settable

[-2, +0, e] 

void lua_settable (lua_State *L, int index);

Does the equivalent to t[k] = v, where t is the value at the given index, v is the value at the top of the stack, and k is the value just below the top.

This function pops both the key and the value from the stack. As in Lua, this function may trigger a metamethod for the "newindex" event (see §2.4).

lua_settop

[-?, +?, –] 

void lua_settop (lua_State *L, int index);

Accepts any index, or 0, and sets the stack top to this index. If the new top is larger than the old one, then the new elements are filled with nil. If index is 0, then all stack elements are removed.

lua_setuservalue

[-1, +0, –] 

void lua_setuservalue (lua_State *L, int index);

Pops a table or nil from the stack and sets it as the new value associated to the userdata at the given index.

lua_State

typedef struct lua_State lua_State;

An opaque structure that points to a thread and indirectly (through the thread) to the whole state of a Lua interpreter. The Lua library is fully reentrant: it has no global variables. All information about a state is accessible through this structure.

A pointer to this structure must be passed as the first argument to every function in the library, except to lua_newstate, which creates a Lua state from scratch.

lua_status

[-0, +0, –] 

int lua_status (lua_State *L);

Returns the status of the thread L.

The status can be 0 (LUA_OK) for a normal thread, an error code if the thread finished the execution of a lua_resume with an error, or LUA_YIELD if the thread is suspended.

You can only call functions in threads with status LUA_OK. You can resume threads with status LUA_OK (to start a new coroutine) or LUA_YIELD (to resume a coroutine).

lua_toboolean

[-0, +0, –] 

int lua_toboolean (lua_State *L, int index);

Converts the Lua value at the given index to a C boolean value (0 or 1). Like all tests in Lua, lua_toboolean returns true for any Lua value different from false and nil; otherwise it returns false. (If you want to accept only actual boolean values, use lua_isboolean to test the value's type.)

lua_tocfunction

[-0, +0, –] 

lua_CFunction lua_tocfunction (lua_State *L, int index);

Converts a value at the given index to a C function. That value must be a C function; otherwise, returns NULL.

lua_tointeger

[-0, +0, –] 

lua_Integer lua_tointeger (lua_State *L, int index);

Equivalent to lua_tointegerx with isnum equal to NULL.

lua_tointegerx

[-0, +0, –] 

lua_Integer lua_tointegerx (lua_State *L, int index, int *isnum);

Converts the Lua value at the given index to the signed integral type lua_Integer. The Lua value must be a number or a string convertible to a number (see §3.4.2); otherwise, lua_tointegerx returns 0.

If the number is not an integer, it is truncated in some non-specified way.

If isnum is not NULL, its referent is assigned a boolean value that indicates whether the operation succeeded.

lua_tolstring

[-0, +0, e] 

const char *lua_tolstring (lua_State *L, int index, size_t *len);

Converts the Lua value at the given index to a C string. If len is not NULL, it also sets *len with the string length. The Lua value must be a string or a number; otherwise, the function returns NULL. If the value is a number, then lua_tolstring also changes the actual value in the stack to a string. (This change confuses lua_next when lua_tolstring is applied to keys during a table traversal.)

lua_tolstring returns a fully aligned pointer to a string inside the Lua state. This string always has a zero ('\0') after its last character (as in C), but can contain other zeros in its body. Because Lua has garbage collection, there is no guarantee that the pointer returned by lua_tolstring will be valid after the corresponding value is removed from the stack.

lua_tonumber

[-0, +0, –] 

lua_Number lua_tonumber (lua_State *L, int index);

Equivalent to lua_tonumberx with isnum equal to NULL.

lua_tonumberx

[-0, +0, –] 

lua_Number lua_tonumberx (lua_State *L, int index, int *isnum);

Converts the Lua value at the given index to the C type lua_Number (see lua_Number). The Lua value must be a number or a string convertible to a number (see §3.4.2); otherwise, lua_tonumberx returns 0.

If isnum is not NULL, its referent is assigned a boolean value that indicates whether the operation succeeded.

lua_topointer

[-0, +0, –] 

const void *lua_topointer (lua_State *L, int index);

Converts the value at the given index to a generic C pointer (void*). The value can be a userdata, a table, a thread, or a function; otherwise, lua_topointer returns NULL. Different objects will give different pointers. There is no way to convert the pointer back to its original value.

Typically this function is used only for debug information.

lua_tostring

[-0, +0, e] 

const char *lua_tostring (lua_State *L, int index);

Equivalent to lua_tolstring with len equal to NULL.

lua_tothread

[-0, +0, –] 

lua_State *lua_tothread (lua_State *L, int index);

Converts the value at the given index to a Lua thread (represented as lua_State*). This value must be a thread; otherwise, the function returns NULL.

lua_tounsigned

[-0, +0, –] 

lua_Unsigned lua_tounsigned (lua_State *L, int index);

Equivalent to lua_tounsignedx with isnum equal to NULL.

lua_tounsignedx

[-0, +0, –] 

lua_Unsigned lua_tounsignedx (lua_State *L, int index, int *isnum);

Converts the Lua value at the given index to the unsigned integral type lua_Unsigned. The Lua value must be a number or a string convertible to a number (see §3.4.2); otherwise, lua_tounsignedx returns 0.

If the number is not an integer, it is truncated in some non-specified way. If the number is outside the range of representable values, it is normalized to the remainder of its division by one more than the maximum representable value.

If isnum is not NULL, its referent is assigned a boolean value that indicates whether the operation succeeded.

lua_touserdata

[-0, +0, –] 

void *lua_touserdata (lua_State *L, int index);

If the value at the given index is a full userdata, returns its block address. If the value is a light userdata, returns its pointer. Otherwise, returns NULL.

lua_type

[-0, +0, –] 

int lua_type (lua_State *L, int index);

Returns the type of the value in the given valid index, or LUA_TNONE for a non-valid (but acceptable) index. The types returned by lua_type are coded by the following constants defined in lua.h: LUA_TNIL, LUA_TNUMBER, LUA_TBOOLEAN, LUA_TSTRING, LUA_TTABLE, LUA_TFUNCTION, LUA_TUSERDATA, LUA_TTHREAD, and LUA_TLIGHTUSERDATA.

lua_typename

[-0, +0, –] 

const char *lua_typename (lua_State *L, int tp);

Returns the name of the type encoded by the value tp, which must be one the values returned by lua_type.

lua_Unsigned

typedef unsigned long lua_Unsigned;

The type used by the Lua API to represent unsigned integral values. It must have at least 32 bits.

By default it is an unsigned int or an unsigned long, whichever can hold 32-bit values.

lua_upvalueindex

[-0, +0, –] 

int lua_upvalueindex (int i);

Returns the pseudo-index that represents the i-th upvalue of the running function (see §4.4).

lua_version

[-0, +0, v] 

const lua_Number *lua_version (lua_State *L);

Returns the address of the version number stored in the Lua core. When called with a valid lua_State, returns the address of the version used to create that state. When called with NULL, returns the address of the version running the call.

lua_Writer

typedef int (*lua_Writer) (lua_State *L,
                           const void* p,
                           size_t sz,
                           void* ud);

The type of the writer function used by lua_dump. Every time it produces another piece of chunk, lua_dump calls the writer, passing along the buffer to be written (p), its size (sz), and the data parameter supplied to lua_dump.

The writer returns an error code: 0 means no errors; any other value means an error and stops lua_dump from calling the writer again.

lua_xmove

[-?, +?, –] 

void lua_xmove (lua_State *from, lua_State *to, int n);

Exchange values between different threads of the same state.

This function pops n values from the stack from, and pushes them onto the stack to.

lua_yield

[-?, +?, –] 

int lua_yield (lua_State *L, int nresults);

This function is equivalent to lua_yieldk, but it has no continuation (see §4.7). Therefore, when the thread resumes, it returns to the function that called the function calling lua_yield.

lua_yieldk

[-?, +?, –] 

int lua_yieldk (lua_State *L, int nresults, int ctx, lua_CFunction k);

Yields a coroutine.

This function should only be called as the return expression of a C function, as follows: 

     return lua_yieldk (L, n, i, k);

When a C function calls lua_yieldk in that way, the running coroutine suspends its execution, and the call to lua_resume that started this coroutine returns. The parameter nresults is the number of values from the stack that are passed as results to lua_resume.

When the coroutine is resumed again, Lua calls the given continuation function k to continue the execution of the C function that yielded (see §4.7). This continuation function receives the same stack from the previous function, with the results removed and replaced by the arguments passed to lua_resume. Moreover, the continuation function may access the value ctx by calling lua_getctx.

4.9 – The Debug Interface

Lua has no built-in debugging facilities. Instead, it offers a special interface by means of functions and hooks. This interface allows the construction of different kinds of debuggers, profilers, and other tools that need "inside information" from the interpreter.

lua_Debug

typedef struct lua_Debug {
  int event;
  const char *name;           /* (n) */
  const char *namewhat;       /* (n) */
  const char *what;           /* (S) */
  const char *source;         /* (S) */
  int currentline;            /* (l) */
  int linedefined;            /* (S) */
  int lastlinedefined;        /* (S) */
  unsigned char nups;         /* (u) number of upvalues */
  unsigned char nparams;      /* (u) number of parameters */
  char isvararg;              /* (u) */
  char istailcall;            /* (t) */
  char short_src[LUA_IDSIZE]; /* (S) */
  /* private part */
  other fields
} lua_Debug;

A structure used to carry different pieces of information about a function or an activation record. lua_getstack fills only the private part of this structure, for later use. To fill the other fields of lua_Debug with useful information, call lua_getinfo.

The fields of lua_Debug have the following meaning:

  • source: the source of the chunk that created the function. If source starts with a '@', it means that the function was defined in a file where the file name follows the '@'. If source starts with a '=', the remainder of its contents describe the source in a user-dependent manner. Otherwise, the function was defined in a string where source is that string.
  • short_src: a "printable" version of source, to be used in error messages.
  • linedefined: the line number where the definition of the function starts.
  • lastlinedefined: the line number where the definition of the function ends.
  • what: the string "Lua" if the function is a Lua function, "C" if it is a C function, "main" if it is the main part of a chunk.
  • currentline: the current line where the given function is executing. When no line information is available, currentline is set to -1.
  • name: a reasonable name for the given function. Because functions in Lua are first-class values, they do not have a fixed name: some functions can be the value of multiple global variables, while others can be stored only in a table field. The lua_getinfo function checks how the function was called to find a suitable name. If it cannot find a name, then name is set to NULL.
  • namewhat: explains the name field. The value of namewhat can be "global", "local", "method", "field", "upvalue", or "" (the empty string), according to how the function was called. (Lua uses the empty string when no other option seems to apply.)
  • istailcall: true if this function invocation was called by a tail call. In this case, the caller of this level is not in the stack.
  • nups: the number of upvalues of the function.
  • nparams: the number of fixed parameters of the function (always 0 for C functions).
  • isvararg: true if the function is a vararg function (always true for C functions).

lua_gethook

[-0, +0, –] 

lua_Hook lua_gethook (lua_State *L);

Returns the current hook function.

lua_gethookcount

[-0, +0, –] 

int lua_gethookcount (lua_State *L);

Returns the current hook count.

lua_gethookmask

[-0, +0, –] 

int lua_gethookmask (lua_State *L);

Returns the current hook mask.

lua_getinfo

[-(0|1), +(0|1|2), e] 

int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar);

Gets information about a specific function or function invocation.

To get information about a function invocation, the parameter ar must be a valid activation record that was filled by a previous call to lua_getstack or given as argument to a hook (see lua_Hook).

To get information about a function you push it onto the stack and start the what string with the character '>'. (In that case, lua_getinfo pops the function from the top of the stack.) For instance, to know in which line a function f was defined, you can write the following code: 

     lua_Debug ar;
     lua_getglobal(L, "f");  /* get global 'f' */
     lua_getinfo(L, ">S", &ar);
     printf("%d\n", ar.linedefined);

Each character in the string what selects some fields of the structure ar to be filled or a value to be pushed on the stack:

  • 'n': fills in the field name and namewhat;
  • 'S': fills in the fields source, short_src, linedefined, lastlinedefined, and what;
  • 'l': fills in the field currentline;
  • 't': fills in the field istailcall;
  • 'u': fills in the fields nups, nparams, and isvararg;
  • 'f': pushes onto the stack the function that is running at the given level;
  • 'L': pushes onto the stack a table whose indices are the numbers of the lines that are valid on the function. (A valid line is a line with some associated code, that is, a line where you can put a break point. Non-valid lines include empty lines and comments.)

This function returns 0 on error (for instance, an invalid option in what).

lua_getlocal

[-0, +(0|1), –] 

const char *lua_getlocal (lua_State *L, lua_Debug *ar, int n);

Gets information about a local variable of a given activation record or a given function.

In the first case, the parameter ar must be a valid activation record that was filled by a previous call to lua_getstack or given as argument to a hook (see lua_Hook). The index n selects which local variable to inspect; see debug.getlocal for details about variable indices and names.

lua_getlocal pushes the variable's value onto the stack and returns its name.

In the second case, ar should be NULL and the function to be inspected must be at the top of the stack. In this case, only parameters of Lua functions are visible (as there is no information about what variables are active) and no values are pushed onto the stack.

Returns NULL (and pushes nothing) when the index is greater than the number of active local variables.

lua_getstack

[-0, +0, –] 

int lua_getstack (lua_State *L, int level, lua_Debug *ar);

Gets information about the interpreter runtime stack.

This function fills parts of a lua_Debug structure with an identification of the activation record of the function executing at a given level. Level 0 is the current running function, whereas level n+1 is the function that has called level n (except for tail calls, which do not count on the stack). When there are no errors, lua_getstack returns 1; when called with a level greater than the stack depth, it returns 0.

lua_getupvalue

[-0, +(0|1), –] 

const char *lua_getupvalue (lua_State *L, int funcindex, int n);

Gets information about a closure's upvalue. (For Lua functions, upvalues are the external local variables that the function uses, and that are consequently included in its closure.) lua_getupvalue gets the index n of an upvalue, pushes the upvalue's value onto the stack, and returns its name. funcindex points to the closure in the stack. (Upvalues have no particular order, as they are active through the whole function. So, they are numbered in an arbitrary order.)

Returns NULL (and pushes nothing) when the index is greater than the number of upvalues. For C functions, this function uses the empty string "" as a name for all upvalues.

lua_Hook

typedef void (*lua_Hook) (lua_State *L, lua_Debug *ar);

Type for debugging hook functions.

Whenever a hook is called, its ar argument has its field event set to the specific event that triggered the hook. Lua identifies these events with the following constants: LUA_HOOKCALL, LUA_HOOKRET, LUA_HOOKTAILCALL, LUA_HOOKLINE, and LUA_HOOKCOUNT. Moreover, for line events, the field currentline is also set. To get the value of any other field in ar, the hook must call lua_getinfo.

For call events, event can be LUA_HOOKCALL, the normal value, or LUA_HOOKTAILCALL, for a tail call; in this case, there will be no corresponding return event.

While Lua is running a hook, it disables other calls to hooks. Therefore, if a hook calls back Lua to execute a function or a chunk, this execution occurs without any calls to hooks.

Hook functions cannot have continuations, that is, they cannot call lua_yieldk, lua_pcallk, or lua_callk with a non-null k.

Hook functions can yield under the following conditions: Only count and line events can yield and they cannot yield any value; to yield a hook function must finish its execution calling lua_yield with nresults equal to zero.

lua_sethook

[-0, +0, –] 

int lua_sethook (lua_State *L, lua_Hook f, int mask, int count);

Sets the debugging hook function.

Argument f is the hook function. mask specifies on which events the hook will be called: it is formed by a bitwise or of the constants LUA_MASKCALL, LUA_MASKRET, LUA_MASKLINE, and LUA_MASKCOUNT. The count argument is only meaningful when the mask includes LUA_MASKCOUNT. For each event, the hook is called as explained below:

  • The call hook: is called when the interpreter calls a function. The hook is called just after Lua enters the new function, before the function gets its arguments.
  • The return hook: is called when the interpreter returns from a function. The hook is called just before Lua leaves the function. There is no standard way to access the values to be returned by the function.
  • The line hook: is called when the interpreter is about to start the execution of a new line of code, or when it jumps back in the code (even to the same line). (This event only happens while Lua is executing a Lua function.)
  • The count hook: is called after the interpreter executes every count instructions. (This event only happens while Lua is executing a Lua function.)

A hook is disabled by setting mask to zero.

lua_setlocal

[-(0|1), +0, –] 

const char *lua_setlocal (lua_State *L, lua_Debug *ar, int n);

Sets the value of a local variable of a given activation record. Parameters ar and n are as in lua_getlocal (see lua_getlocal). lua_setlocal assigns the value at the top of the stack to the variable and returns its name. It also pops the value from the stack.

Returns NULL (and pops nothing) when the index is greater than the number of active local variables.

lua_setupvalue

[-(0|1), +0, –] 

const char *lua_setupvalue (lua_State *L, int funcindex, int n);

Sets the value of a closure's upvalue. It assigns the value at the top of the stack to the upvalue and returns its name. It also pops the value from the stack. Parameters funcindex and n are as in the lua_getupvalue (see lua_getupvalue).

Returns NULL (and pops nothing) when the index is greater than the number of upvalues.

lua_upvalueid

[-0, +0, –] 

void *lua_upvalueid (lua_State *L, int funcindex, int n);

Returns an unique identifier for the upvalue numbered n from the closure at index funcindex. Parameters funcindex and n are as in the lua_getupvalue (see lua_getupvalue) (but n cannot be greater than the number of upvalues).

These unique identifiers allow a program to check whether different closures share upvalues. Lua closures that share an upvalue (that is, that access a same external local variable) will return identical ids for those upvalue indices.

lua_upvaluejoin

[-0, +0, –] 

void lua_upvaluejoin (lua_State *L, int funcindex1, int n1,
                                    int funcindex2, int n2);

Make the n1-th upvalue of the Lua closure at index funcindex1 refer to the n2-th upvalue of the Lua closure at index funcindex2.

5 – The Auxiliary Library

The auxiliary library provides several convenient functions to interface C with Lua. While the basic API provides the primitive functions for all interactions between C and Lua, the auxiliary library provides higher-level functions for some common tasks.

All functions and types from the auxiliary library are defined in header file lauxlib.h and have a prefix luaL_.

All functions in the auxiliary library are built on top of the basic API, and so they provide nothing that cannot be done with that API. Nevertheless, the use of the auxiliary library ensures more consistency to your code.

Several functions in the auxiliary library use internally some extra stack slots. When a function in the auxiliary library uses less than five slots, it does not check the stack size; it simply assumes that there are enough slots.

Several functions in the auxiliary library are used to check C function arguments. Because the error message is formatted for arguments (e.g., "bad argument #1"), you should not use these functions for other stack values.

Functions called luaL_check* always throw an error if the check is not satisfied.

5.1 – Functions and Types

Here we list all functions and types from the auxiliary library in alphabetical order.

luaL_addchar

[-?, +?, e] 

void luaL_addchar (luaL_Buffer *B, char c);

Adds the byte c to the buffer B (see luaL_Buffer).

luaL_addlstring

[-?, +?, e] 

void luaL_addlstring (luaL_Buffer *B, const char *s, size_t l);

Adds the string pointed to by s with length l to the buffer B (see luaL_Buffer). The string can contain embedded zeros.

luaL_addsize

[-?, +?, e] 

void luaL_addsize (luaL_Buffer *B, size_t n);

Adds to the buffer B (see luaL_Buffer) a string of length n previously copied to the buffer area (see luaL_prepbuffer).

luaL_addstring

[-?, +?, e] 

void luaL_addstring (luaL_Buffer *B, const char *s);

Adds the zero-terminated string pointed to by s to the buffer B (see luaL_Buffer). The string cannot contain embedded zeros.

luaL_addvalue

[-1, +?, e] 

void luaL_addvalue (luaL_Buffer *B);

Adds the value at the top of the stack to the buffer B (see luaL_Buffer). Pops the value.

This is the only function on string buffers that can (and must) be called with an extra element on the stack, which is the value to be added to the buffer.

luaL_argcheck

[-0, +0, v] 

void luaL_argcheck (lua_State *L,
                    int cond,
                    int arg,
                    const char *extramsg);

Checks whether cond is true. If not, raises an error with a standard message.

luaL_argerror

[-0, +0, v] 

int luaL_argerror (lua_State *L, int arg, const char *extramsg);

Raises an error with a standard message that includes extramsg as a comment.

This function never returns, but it is an idiom to use it in C functions as return luaL_argerror(args).

luaL_Buffer

typedef struct luaL_Buffer luaL_Buffer;

Type for a string buffer.

A string buffer allows C code to build Lua strings piecemeal. Its pattern of use is as follows:

  • First declare a variable b of type luaL_Buffer.
  • Then initialize it with a call luaL_buffinit(L, &b).
  • Then add string pieces to the buffer calling any of the luaL_add* functions.
  • Finish by calling luaL_pushresult(&b). This call leaves the final string on the top of the stack.

If you know beforehand the total size of the resulting string, you can use the buffer like this:

  • First declare a variable b of type luaL_Buffer.
  • Then initialize it and preallocate a space of size sz with a call luaL_buffinitsize(L, &b, sz).
  • Then copy the string into that space.
  • Finish by calling luaL_pushresultsize(&b, sz), where sz is the total size of the resulting string copied into that space.

During its normal operation, a string buffer uses a variable number of stack slots. So, while using a buffer, you cannot assume that you know where the top of the stack is. You can use the stack between successive calls to buffer operations as long as that use is balanced; that is, when you call a buffer operation, the stack is at the same level it was immediately after the previous buffer operation. (The only exception to this rule is luaL_addvalue.) After calling luaL_pushresult the stack is back to its level when the buffer was initialized, plus the final string on its top.

luaL_buffinit

[-0, +0, –] 

void luaL_buffinit (lua_State *L, luaL_Buffer *B);

Initializes a buffer B. This function does not allocate any space; the buffer must be declared as a variable (see luaL_Buffer).

luaL_buffinitsize

[-?, +?, e] 

char *luaL_buffinitsize (lua_State *L, luaL_Buffer *B, size_t sz);

Equivalent to the sequence luaL_buffinit, luaL_prepbuffsize.

luaL_callmeta

[-0, +(0|1), e] 

int luaL_callmeta (lua_State *L, int obj, const char *e);

Calls a metamethod.

If the object at index obj has a metatable and this metatable has a field e, this function calls this field passing the object as its only argument. In this case this function returns true and pushes onto the stack the value returned by the call. If there is no metatable or no metamethod, this function returns false (without pushing any value on the stack).

luaL_checkany

[-0, +0, v] 

void luaL_checkany (lua_State *L, int arg);

Checks whether the function has an argument of any type (including nil) at position arg.

luaL_checkint

[-0, +0, v] 

int luaL_checkint (lua_State *L, int arg);

Checks whether the function argument arg is a number and returns this number cast to an int.

luaL_checkinteger

[-0, +0, v] 

lua_Integer luaL_checkinteger (lua_State *L, int arg);

Checks whether the function argument arg is a number and returns this number cast to a lua_Integer.

luaL_checklong

[-0, +0, v] 

long luaL_checklong (lua_State *L, int arg);

Checks whether the function argument arg is a number and returns this number cast to a long.

luaL_checklstring

[-0, +0, v] 

const char *luaL_checklstring (lua_State *L, int arg, size_t *l);

Checks whether the function argument arg is a string and returns this string; if l is not NULL fills *l with the string's length.

This function uses lua_tolstring to get its result, so all conversions and caveats of that function apply here.

luaL_checknumber

[-0, +0, v] 

lua_Number luaL_checknumber (lua_State *L, int arg);

Checks whether the function argument arg is a number and returns this number.

luaL_checkoption

[-0, +0, v] 

int luaL_checkoption (lua_State *L,
                      int arg,
                      const char *def,
                      const char *const lst[]);

Checks whether the function argument arg is a string and searches for this string in the array lst (which must be NULL-terminated). Returns the index in the array where the string was found. Raises an error if the argument is not a string or if the string cannot be found.

If def is not NULL, the function uses def as a default value when there is no argument arg or when this argument is nil.

This is a useful function for mapping strings to C enums. (The usual convention in Lua libraries is to use strings instead of numbers to select options.)

luaL_checkstack

[-0, +0, v] 

void luaL_checkstack (lua_State *L, int sz, const char *msg);

Grows the stack size to top + sz elements, raising an error if the stack cannot grow to that size. msg is an additional text to go into the error message (or NULL for no additional text).

luaL_checkstring

[-0, +0, v] 

const char *luaL_checkstring (lua_State *L, int arg);

Checks whether the function argument arg is a string and returns this string.

This function uses lua_tolstring to get its result, so all conversions and caveats of that function apply here.

luaL_checktype

[-0, +0, v] 

void luaL_checktype (lua_State *L, int arg, int t);

Checks whether the function argument arg has type t. See lua_type for the encoding of types for t.

luaL_checkudata

[-0, +0, v] 

void *luaL_checkudata (lua_State *L, int arg, const char *tname);

Checks whether the function argument arg is a userdata of the type tname (see luaL_newmetatable) and returns the userdata address (see lua_touserdata).

luaL_checkunsigned

[-0, +0, v] 

lua_Unsigned luaL_checkunsigned (lua_State *L, int arg);

Checks whether the function argument arg is a number and returns this number cast to a lua_Unsigned.

luaL_checkversion

[-0, +0, –] 

void luaL_checkversion (lua_State *L);

Checks whether the core running the call, the core that created the Lua state, and the code making the call are all using the same version of Lua. Also checks whether the core running the call and the core that created the Lua state are using the same address space.

luaL_dofile

[-0, +?, e] 

int luaL_dofile (lua_State *L, const char *filename);

Loads and runs the given file. It is defined as the following macro: 

     (luaL_loadfile(L, filename) || lua_pcall(L, 0, LUA_MULTRET, 0))

It returns false if there are no errors or true in case of errors.

luaL_dostring

[-0, +?, –] 

int luaL_dostring (lua_State *L, const char *str);

Loads and runs the given string. It is defined as the following macro: 

     (luaL_loadstring(L, str) || lua_pcall(L, 0, LUA_MULTRET, 0))

It returns false if there are no errors or true in case of errors.

luaL_error

[-0, +0, v] 

int luaL_error (lua_State *L, const char *fmt, ...);

Raises an error. The error message format is given by fmt plus any extra arguments, following the same rules of lua_pushfstring. It also adds at the beginning of the message the file name and the line number where the error occurred, if this information is available.

This function never returns, but it is an idiom to use it in C functions as return luaL_error(args).

luaL_execresult

[-0, +3, e] 

int luaL_execresult (lua_State *L, int stat);

This function produces the return values for process-related functions in the standard library (os.execute and io.close).

luaL_fileresult

[-0, +(1|3), e] 

int luaL_fileresult (lua_State *L, int stat, const char *fname);

This function produces the return values for file-related functions in the standard library (io.open, os.rename, file:seek, etc.).

luaL_getmetafield

[-0, +(0|1), e] 

int luaL_getmetafield (lua_State *L, int obj, const char *e);

Pushes onto the stack the field e from the metatable of the object at index obj. If the object does not have a metatable, or if the metatable does not have this field, returns false and pushes nothing.

luaL_getmetatable

[-0, +1, –] 

void luaL_getmetatable (lua_State *L, const char *tname);

Pushes onto the stack the metatable associated with name tname in the registry (see luaL_newmetatable).

luaL_getsubtable

[-0, +1, e] 

int luaL_getsubtable (lua_State *L, int idx, const char *fname);

Ensures that the value t[fname], where t is the value at index idx, is a table, and pushes that table onto the stack. Returns true if it finds a previous table there and false if it creates a new table.

luaL_gsub

[-0, +1, e] 

const char *luaL_gsub (lua_State *L,
                       const char *s,
                       const char *p,
                       const char *r);

Creates a copy of string s by replacing any occurrence of the string p with the string r. Pushes the resulting string on the stack and returns it.

luaL_len

[-0, +0, e] 

int luaL_len (lua_State *L, int index);

Returns the "length" of the value at the given index as a number; it is equivalent to the '#' operator in Lua (see §3.4.6). Raises an error if the result of the operation is not a number. (This case only can happen through metamethods.)

luaL_loadbuffer

[-0, +1, –] 

int luaL_loadbuffer (lua_State *L,
                     const char *buff,
                     size_t sz,
                     const char *name);

Equivalent to luaL_loadbufferx with mode equal to NULL.

luaL_loadbufferx

[-0, +1, –] 

int luaL_loadbufferx (lua_State *L,
                      const char *buff,
                      size_t sz,
                      const char *name,
                      const char *mode);

Loads a buffer as a Lua chunk. This function uses lua_load to load the chunk in the buffer pointed to by buff with size sz.

This function returns the same results as lua_load. name is the chunk name, used for debug information and error messages. The string mode works as in function lua_load.

luaL_loadfile

[-0, +1, e] 

int luaL_loadfile (lua_State *L, const char *filename);

Equivalent to luaL_loadfilex with mode equal to NULL.

luaL_loadfilex

[-0, +1, e] 

int luaL_loadfilex (lua_State *L, const char *filename,
                                            const char *mode);

Loads a file as a Lua chunk. This function uses lua_load to load the chunk in the file named filename. If filename is NULL, then it loads from the standard input. The first line in the file is ignored if it starts with a #.

The string mode works as in function lua_load.

This function returns the same results as lua_load, but it has an extra error code LUA_ERRFILE if it cannot open/read the file or the file has a wrong mode.

As lua_load, this function only loads the chunk; it does not run it.

luaL_loadstring

[-0, +1, –] 

int luaL_loadstring (lua_State *L, const char *s);

Loads a string as a Lua chunk. This function uses lua_load to load the chunk in the zero-terminated string s.

This function returns the same results as lua_load.

Also as lua_load, this function only loads the chunk; it does not run it.

luaL_newlib

[-0, +1, e] 

void luaL_newlib (lua_State *L, const luaL_Reg *l);

Creates a new table and registers there the functions in list l. It is implemented as the following macro: 

     (luaL_newlibtable(L,l), luaL_setfuncs(L,l,0))

luaL_newlibtable

[-0, +1, e] 

void luaL_newlibtable (lua_State *L, const luaL_Reg l[]);

Creates a new table with a size optimized to store all entries in the array l (but does not actually store them). It is intended to be used in conjunction with luaL_setfuncs (see luaL_newlib).

It is implemented as a macro. The array l must be the actual array, not a pointer to it.

luaL_newmetatable

[-0, +1, e] 

int luaL_newmetatable (lua_State *L, const char *tname);

If the registry already has the key tname, returns 0. Otherwise, creates a new table to be used as a metatable for userdata, adds it to the registry with key tname, and returns 1.

In both cases pushes onto the stack the final value associated with tname in the registry.

luaL_newstate

[-0, +0, –] 

lua_State *luaL_newstate (void);

Creates a new Lua state. It calls lua_newstate with an allocator based on the standard C realloc function and then sets a panic function (see §4.6) that prints an error message to the standard error output in case of fatal errors.

Returns the new state, or NULL if there is a memory allocation error.

luaL_openlibs

[-0, +0, e] 

void luaL_openlibs (lua_State *L);

Opens all standard Lua libraries into the given state.

luaL_optint

[-0, +0, v] 

int luaL_optint (lua_State *L, int arg, int d);

If the function argument arg is a number, returns this number cast to an int. If this argument is absent or is nil, returns d. Otherwise, raises an error.

luaL_optinteger

[-0, +0, v] 

lua_Integer luaL_optinteger (lua_State *L,
                             int arg,
                             lua_Integer d);

If the function argument arg is a number, returns this number cast to a lua_Integer. If this argument is absent or is nil, returns d. Otherwise, raises an error.

luaL_optlong

[-0, +0, v] 

long luaL_optlong (lua_State *L, int arg, long d);

If the function argument arg is a number, returns this number cast to a long. If this argument is absent or is nil, returns d. Otherwise, raises an error.

luaL_optlstring

[-0, +0, v] 

const char *luaL_optlstring (lua_State *L,
                             int arg,
                             const char *d,
                             size_t *l);

If the function argument arg is a string, returns this string. If this argument is absent or is nil, returns d. Otherwise, raises an error.

If l is not NULL, fills the position *l with the result's length.

luaL_optnumber

[-0, +0, v] 

lua_Number luaL_optnumber (lua_State *L, int arg, lua_Number d);

If the function argument arg is a number, returns this number. If this argument is absent or is nil, returns d. Otherwise, raises an error.

luaL_optstring

[-0, +0, v] 

const char *luaL_optstring (lua_State *L,
                            int arg,
                            const char *d);

If the function argument arg is a string, returns this string. If this argument is absent or is nil, returns d. Otherwise, raises an error.

luaL_optunsigned

[-0, +0, v] 

lua_Unsigned luaL_optunsigned (lua_State *L,
                               int arg,
                               lua_Unsigned u);

If the function argument arg is a number, returns this number cast to a lua_Unsigned. If this argument is absent or is nil, returns u. Otherwise, raises an error.

luaL_prepbuffer

[-?, +?, e] 

char *luaL_prepbuffer (luaL_Buffer *B);

Equivalent to luaL_prepbuffsize with the predefined size LUAL_BUFFERSIZE.

luaL_prepbuffsize

[-?, +?, e] 

char *luaL_prepbuffsize (luaL_Buffer *B, size_t sz);

Returns an address to a space of size sz where you can copy a string to be added to buffer B (see luaL_Buffer). After copying the string into this space you must call luaL_addsize with the size of the string to actually add it to the buffer.

luaL_pushresult

[-?, +1, e] 

void luaL_pushresult (luaL_Buffer *B);

Finishes the use of buffer B leaving the final string on the top of the stack.

luaL_pushresultsize

[-?, +1, e] 

void luaL_pushresultsize (luaL_Buffer *B, size_t sz);

Equivalent to the sequence luaL_addsize, luaL_pushresult.

luaL_ref

[-1, +0, e] 

int luaL_ref (lua_State *L, int t);

Creates and returns a reference, in the table at index t, for the object at the top of the stack (and pops the object).

A reference is a unique integer key. As long as you do not manually add integer keys into table t, luaL_ref ensures the uniqueness of the key it returns. You can retrieve an object referred by reference r by calling lua_rawgeti(L, t, r). Function luaL_unref frees a reference and its associated object.

If the object at the top of the stack is nil, luaL_ref returns the constant LUA_REFNIL. The constant LUA_NOREF is guaranteed to be different from any reference returned by luaL_ref.

luaL_Reg

typedef struct luaL_Reg {
  const char *name;
  lua_CFunction func;
} luaL_Reg;

Type for arrays of functions to be registered by luaL_setfuncs. name is the function name and func is a pointer to the function. Any array of luaL_Reg must end with an sentinel entry in which both name and func are NULL.

luaL_requiref

[-0, +1, e] 

void luaL_requiref (lua_State *L, const char *modname,
                    lua_CFunction openf, int glb);

Calls function openf with string modname as an argument and sets the call result in package.loaded[modname], as if that function has been called through require.

If glb is true, also stores the result into global modname.

Leaves a copy of that result on the stack.

luaL_setfuncs

[-nup, +0, e] 

void luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup);

Registers all functions in the array l (see luaL_Reg) into the table on the top of the stack (below optional upvalues, see next).

When nup is not zero, all functions are created sharing nup upvalues, which must be previously pushed on the stack on top of the library table. These values are popped from the stack after the registration.

luaL_setmetatable

[-0, +0, –] 

void luaL_setmetatable (lua_State *L, const char *tname);

Sets the metatable of the object at the top of the stack as the metatable associated with name tname in the registry (see luaL_newmetatable).

luaL_testudata

[-0, +0, e] 

void *luaL_testudata (lua_State *L, int arg, const char *tname);

This function works like luaL_checkudata, except that, when the test fails, it returns NULL instead of throwing an error.

luaL_tolstring

[-0, +1, e] 

const char *luaL_tolstring (lua_State *L, int idx, size_t *len);

Converts any Lua value at the given index to a C string in a reasonable format. The resulting string is pushed onto the stack and also returned by the function. If len is not NULL, the function also sets *len with the string length.

If the value has a metatable with a "__tostring" field, then luaL_tolstring calls the corresponding metamethod with the value as argument, and uses the result of the call as its result.

luaL_traceback

[-0, +1, e] 

void luaL_traceback (lua_State *L, lua_State *L1, const char *msg,
                     int level);

Creates and pushes a traceback of the stack L1. If msg is not NULL it is appended at the beginning of the traceback. The level parameter tells at which level to start the traceback.

luaL_typename

[-0, +0, –] 

const char *luaL_typename (lua_State *L, int index);

Returns the name of the type of the value at the given index.

luaL_unref

[-0, +0, –] 

void luaL_unref (lua_State *L, int t, int ref);

Releases reference ref from the table at index t (see luaL_ref). The entry is removed from the table, so that the referred object can be collected. The reference ref is also freed to be used again.

If ref is LUA_NOREF or LUA_REFNIL, luaL_unref does nothing.

luaL_where

[-0, +1, e] 

void luaL_where (lua_State *L, int lvl);

Pushes onto the stack a string identifying the current position of the control at level lvl in the call stack. Typically this string has the following format: 

     chunkname:currentline:

Level 0 is the running function, level 1 is the function that called the running function, etc.

This function is used to build a prefix for error messages.

6 – Standard Libraries

The standard Lua libraries provide useful functions that are implemented directly through the C API. Some of these functions provide essential services to the language (e.g., type and getmetatable); others provide access to "outside" services (e.g., I/O); and others could be implemented in Lua itself, but are quite useful or have critical performance requirements that deserve an implementation in C (e.g., table.sort).

All libraries are implemented through the official C API and are provided as separate C modules. Currently, Lua has the following standard libraries:

  • basic library (§6.1);
  • coroutine library (§6.2);
  • package library (§6.3);
  • string manipulation (§6.4);
  • table manipulation (§6.5);
  • mathematical functions (§6.6) (sin, log, etc.);
  • bitwise operations (§6.7);
  • input and output (§6.8);
  • operating system facilities (§6.9);
  • debug facilities (§6.10).

Except for the basic and the package libraries, each library provides all its functions as fields of a global table or as methods of its objects.

To have access to these libraries, the C host program should call the luaL_openlibs function, which opens all standard libraries. Alternatively, the host program can open them individually by using luaL_requiref to call luaopen_base (for the basic library), luaopen_package (for the package library), luaopen_coroutine (for the coroutine library), luaopen_string (for the string library), luaopen_table (for the table library), luaopen_math (for the mathematical library), luaopen_bit32 (for the bit library), luaopen_io (for the I/O library), luaopen_os (for the Operating System library), and luaopen_debug (for the debug library). These functions are declared in lualib.h.

6.1 – Basic Functions

The basic library provides core functions to Lua. If you do not include this library in your application, you should check carefully whether you need to provide implementations for some of its facilities.

assert (v [, message])

Issues an error when the value of its argument v is false (i.e., nil or false); otherwise, returns all its arguments. message is an error message; when absent, it defaults to "assertion failed!"

collectgarbage ([opt [, arg]])

This function is a generic interface to the garbage collector. It performs different functions according to its first argument, opt:

  • "collect": performs a full garbage-collection cycle. This is the default option.
  • "stop": stops automatic execution of the garbage collector. The collector will run only when explicitly invoked, until a call to restart it.
  • "restart": restarts automatic execution of the garbage collector.
  • "count": returns the total memory in use by Lua (in Kbytes) and a second value with the total memory in bytes modulo 1024. The first value has a fractional part, so the following equality is always true: 
         k, b = collectgarbage("count")
     assert(k*1024 == math.floor(k)*1024 + b)

    (The second result is useful when Lua is compiled with a non floating-point type for numbers.)

  • "step": performs a garbage-collection step. The step "size" is controlled by arg (larger values mean more steps) in a non-specified way. If you want to control the step size you must experimentally tune the value of arg. Returns true if the step finished a collection cycle.
  • "setpause": sets arg as the new value for the pause of the collector (see §2.5). Returns the previous value for pause.
  • "setstepmul": sets arg as the new value for the step multiplier of the collector (see §2.5). Returns the previous value for step.
  • "isrunning": returns a boolean that tells whether the collector is running (i.e., not stopped).
  • "generational": changes the collector to generational mode. This is an experimental feature (see §2.5).
  • "incremental": changes the collector to incremental mode. This is the default mode.

dofile ([filename])

Opens the named file and executes its contents as a Lua chunk. When called without arguments, dofile executes the contents of the standard input (stdin). Returns all values returned by the chunk. In case of errors, dofile propagates the error to its caller (that is, dofile does not run in protected mode).

error (message [, level])

Terminates the last protected function called and returns message as the error message. Function error never returns.

Usually, error adds some information about the error position at the beginning of the message, if the message is a string. The level argument specifies how to get the error position. With level 1 (the default), the error position is where the error function was called. Level 2 points the error to where the function that called error was called; and so on. Passing a level 0 avoids the addition of error position information to the message.

_G

A global variable (not a function) that holds the global environment (see §2.2). Lua itself does not use this variable; changing its value does not affect any environment, nor vice-versa.

getmetatable (object)

If object does not have a metatable, returns nil. Otherwise, if the object's metatable has a "__metatable" field, returns the associated value. Otherwise, returns the metatable of the given object.

ipairs (t)

If t has a metamethod __ipairs, calls it with t as argument and returns the first three results from the call.

Otherwise, returns three values: an iterator function, the table t, and 0, so that the construction 

     for i,v in ipairs(t) do body end

will iterate over the pairs (1,t[1]), (2,t[2]), ..., up to the first integer key absent from the table.

load (ld [, source [, mode [, env]]])

Loads a chunk.

If ld is a string, the chunk is this string. If ld is a function, load calls it repeatedly to get the chunk pieces. Each call to ld must return a string that concatenates with previous results. A return of an empty string, nil, or no value signals the end of the chunk.

If there are no syntactic errors, returns the compiled chunk as a function; otherwise, returns nil plus the error message.

If the resulting function has upvalues, the first upvalue is set to the value of env, if that parameter is given, or to the value of the global environment. (When you load a main chunk, the resulting function will always have exactly one upvalue, the _ENV variable (see §2.2). When you load a binary chunk created from a function (see string.dump), the resulting function can have arbitrary upvalues.)

source is used as the source of the chunk for error messages and debug information (see §4.9). When absent, it defaults to ld, if ld is a string, or to "=(load)" otherwise.

The string mode controls whether the chunk can be text or binary (that is, a precompiled chunk). It may be the string "b" (only binary chunks), "t" (only text chunks), or "bt" (both binary and text). The default is "bt".

loadfile ([filename [, mode [, env]]])

Similar to load, but gets the chunk from file filename or from the standard input, if no file name is given.

next (table [, index])

Allows a program to traverse all fields of a table. Its first argument is a table and its second argument is an index in this table. next returns the next index of the table and its associated value. When called with nil as its second argument, next returns an initial index and its associated value. When called with the last index, or with nil in an empty table, next returns nil. If the second argument is absent, then it is interpreted as nil. In particular, you can use next(t) to check whether a table is empty.

The order in which the indices are enumerated is not specified, even for numeric indices. (To traverse a table in numeric order, use a numerical for.)

The behavior of next is undefined if, during the traversal, you assign any value to a non-existent field in the table. You may however modify existing fields. In particular, you may clear existing fields.

pairs (t)

If t has a metamethod __pairs, calls it with t as argument and returns the first three results from the call.

Otherwise, returns three values: the next function, the table t, and nil, so that the construction 

     for k,v in pairs(t) do body end

will iterate over all key–value pairs of table t.

See function next for the caveats of modifying the table during its traversal.

pcall (f [, arg1, ···])

Calls function f with the given arguments in protected mode. This means that any error inside f is not propagated; instead, pcall catches the error and returns a status code. Its first result is the status code (a boolean), which is true if the call succeeds without errors. In such case, pcall also returns all results from the call, after this first result. In case of any error, pcall returns false plus the error message.

print (···)

Receives any number of arguments and prints their values to stdout, using the tostring function to convert each argument to a string. print is not intended for formatted output, but only as a quick way to show a value, for instance for debugging. For complete control over the output, use string.format and io.write.

rawequal (v1, v2)

Checks whether v1 is equal to v2, without invoking any metamethod. Returns a boolean.

rawget (table, index)

Gets the real value of table[index], without invoking any metamethod. table must be a table; index may be any value.

rawlen (v)

Returns the length of the object v, which must be a table or a string, without invoking any metamethod. Returns an integer number.

rawset (table, index, value)

Sets the real value of table[index] to value, without invoking any metamethod. table must be a table, index any value different from nil and NaN, and value any Lua value.

This function returns table.

select (index, ···)

If index is a number, returns all arguments after argument number index; a negative number indexes from the end (-1 is the last argument). Otherwise, index must be the string "#", and select returns the total number of extra arguments it received.

setmetatable (table, metatable)

Sets the metatable for the given table. (You cannot change the metatable of other types from Lua, only from C.) If metatable is nil, removes the metatable of the given table. If the original metatable has a "__metatable" field, raises an error.

This function returns table.

tonumber (e [, base])

When called with no base, tonumber tries to convert its argument to a number. If the argument is already a number or a string convertible to a number (see §3.4.2), then tonumber returns this number; otherwise, it returns nil.

When called with base, then e should be a string to be interpreted as an integer numeral in that base. The base may be any integer between 2 and 36, inclusive. In bases above 10, the letter 'A' (in either upper or lower case) represents 10, 'B' represents 11, and so forth, with 'Z' representing 35. If the string e is not a valid numeral in the given base, the function returns nil.

tostring (v)

Receives a value of any type and converts it to a string in a reasonable format. (For complete control of how numbers are converted, use string.format.)

If the metatable of v has a "__tostring" field, then tostring calls the corresponding value with v as argument, and uses the result of the call as its result.

type (v)

Returns the type of its only argument, coded as a string. The possible results of this function are "nil" (a string, not the value nil), "number", "string", "boolean", "table", "function", "thread", and "userdata".

_VERSION

A global variable (not a function) that holds a string containing the current interpreter version. The current contents of this variable is "Lua 5.2".

xpcall (f, msgh [, arg1, ···])

This function is similar to pcall, except that it sets a new message handler msgh.

6.2 – Coroutine Manipulation

The operations related to coroutines comprise a sub-library of the basic library and come inside the table coroutine. See §2.6 for a general description of coroutines.

coroutine.create (f)

Creates a new coroutine, with body f. f must be a Lua function. Returns this new coroutine, an object with type "thread".

coroutine.resume (co [, val1, ···])

Starts or continues the execution of coroutine co. The first time you resume a coroutine, it starts running its body. The values val1, ... are passed as the arguments to the body function. If the coroutine has yielded, resume restarts it; the values val1, ... are passed as the results from the yield.

If the coroutine runs without any errors, resume returns true plus any values passed to yield (if the coroutine yields) or any values returned by the body function (if the coroutine terminates). If there is any error, resume returns false plus the error message.

coroutine.running ()

Returns the running coroutine plus a boolean, true when the running coroutine is the main one.

coroutine.status (co)

Returns the status of coroutine co, as a string: "running", if the coroutine is running (that is, it called status); "suspended", if the coroutine is suspended in a call to yield, or if it has not started running yet; "normal" if the coroutine is active but not running (that is, it has resumed another coroutine); and "dead" if the coroutine has finished its body function, or if it has stopped with an error.

coroutine.wrap (f)

Creates a new coroutine, with body f. f must be a Lua function. Returns a function that resumes the coroutine each time it is called. Any arguments passed to the function behave as the extra arguments to resume. Returns the same values returned by resume, except the first boolean. In case of error, propagates the error.

coroutine.yield (···)

Suspends the execution of the calling coroutine. Any arguments to yield are passed as extra results to resume.

6.3 – Modules

The package library provides basic facilities for loading modules in Lua. It exports one function directly in the global environment: require. Everything else is exported in a table package.

require (modname)

Loads the given module. The function starts by looking into the package.loaded table to determine whether modname is already loaded. If it is, then require returns the value stored at package.loaded[modname]. Otherwise, it tries to find a loader for the module.

To find a loader, require is guided by the package.searchers sequence. By changing this sequence, we can change how require looks for a module. The following explanation is based on the default configuration for package.searchers.

First require queries package.preload[modname]. If it has a value, this value (which should be a function) is the loader. Otherwise require searches for a Lua loader using the path stored in package.path. If that also fails, it searches for a C loader using the path stored in package.cpath. If that also fails, it tries an all-in-one loader (see package.searchers).

Once a loader is found, require calls the loader with two arguments: modname and an extra value dependent on how it got the loader. (If the loader came from a file, this extra value is the file name.) If the loader returns any non-nil value, require assigns the returned value to package.loaded[modname]. If the loader does not return a non-nil value and has not assigned any value to package.loaded[modname], then require assigns true to this entry. In any case, require returns the final value of package.loaded[modname].

If there is any error loading or running the module, or if it cannot find any loader for the module, then require raises an error.

package.config

A string describing some compile-time configurations for packages. This string is a sequence of lines:

  • The first line is the directory separator string. Default is '\' for Windows and '/' for all other systems.
  • The second line is the character that separates templates in a path. Default is ';'.
  • The third line is the string that marks the substitution points in a template. Default is '?'.
  • The fourth line is a string that, in a path in Windows, is replaced by the executable's directory. Default is '!'.
  • The fifth line is a mark to ignore all text before it when building the luaopen_ function name. Default is '-'.

package.cpath

The path used by require to search for a C loader.

Lua initializes the C path package.cpath in the same way it initializes the Lua path package.path, using the environment variable LUA_CPATH_5_2 or the environment variable LUA_CPATH or a default path defined in luaconf.h.

package.loaded

A table used by require to control which modules are already loaded. When you require a module modname and package.loaded[modname] is not false, require simply returns the value stored there.

This variable is only a reference to the real table; assignments to this variable do not change the table used by require.

package.loadlib (libname, funcname)

Dynamically links the host program with the C library libname.

If funcname is "*", then it only links with the library, making the symbols exported by the library available to other dynamically linked libraries. Otherwise, it looks for a function funcname inside the library and returns this function as a C function. So, funcname must follow the lua_CFunction prototype (see lua_CFunction).

This is a low-level function. It completely bypasses the package and module system. Unlike require, it does not perform any path searching and does not automatically adds extensions. libname must be the complete file name of the C library, including if necessary a path and an extension. funcname must be the exact name exported by the C library (which may depend on the C compiler and linker used).

This function is not supported by Standard C. As such, it is only available on some platforms (Windows, Linux, Mac OS X, Solaris, BSD, plus other Unix systems that support the dlfcn standard).

package.path

The path used by require to search for a Lua loader.

At start-up, Lua initializes this variable with the value of the environment variable LUA_PATH_5_2 or the environment variable LUA_PATH or with a default path defined in luaconf.h, if those environment variables are not defined. Any ";;" in the value of the environment variable is replaced by the default path.

package.preload

A table to store loaders for specific modules (see require).

This variable is only a reference to the real table; assignments to this variable do not change the table used by require.

package.searchers

A table used by require to control how to load modules.

Each entry in this table is a searcher function. When looking for a module, require calls each of these searchers in ascending order, with the module name (the argument given to require) as its sole parameter. The function can return another function (the module loader) plus an extra value that will be passed to that loader, or a string explaining why it did not find that module (or nil if it has nothing to say).

Lua initializes this table with four searcher functions.

The first searcher simply looks for a loader in the package.preload table.

The second searcher looks for a loader as a Lua library, using the path stored at package.path. The search is done as described in function package.searchpath.

The third searcher looks for a loader as a C library, using the path given by the variable package.cpath. Again, the search is done as described in function package.searchpath. For instance, if the C path is the string 

     "./?.so;./?.dll;/usr/local/?/init.so"

the searcher for module foo will try to open the files ./foo.so, ./foo.dll, and /usr/local/foo/init.so, in that order. Once it finds a C library, this searcher first uses a dynamic link facility to link the application with the library. Then it tries to find a C function inside the library to be used as the loader. The name of this C function is the string "luaopen_" concatenated with a copy of the module name where each dot is replaced by an underscore. Moreover, if the module name has a hyphen, its prefix up to (and including) the first hyphen is removed. For instance, if the module name is a.v1-b.c, the function name will be luaopen_b_c.

The fourth searcher tries an all-in-one loader. It searches the C path for a library for the root name of the given module. For instance, when requiring a.b.c, it will search for a C library for a. If found, it looks into it for an open function for the submodule; in our example, that would be luaopen_a_b_c. With this facility, a package can pack several C submodules into one single library, with each submodule keeping its original open function.

All searchers except the first one (preload) return as the extra value the file name where the module was found, as returned by package.searchpath. The first searcher returns no extra value.

package.searchpath (name, path [, sep [, rep]])

Searches for the given name in the given path.

A path is a string containing a sequence of templates separated by semicolons. For each template, the function replaces each interrogation mark (if any) in the template with a copy of name wherein all occurrences of sep (a dot, by default) were replaced by rep (the system's directory separator, by default), and then tries to open the resulting file name.

For instance, if the path is the string 

     "./?.lua;./?.lc;/usr/local/?/init.lua"

the search for the name foo.a will try to open the files ./foo/a.lua, ./foo/a.lc, and /usr/local/foo/a/init.lua, in that order.

Returns the resulting name of the first file that it can open in read mode (after closing the file), or nil plus an error message if none succeeds. (This error message lists all file names it tried to open.)

6.4 – String Manipulation

This library provides generic functions for string manipulation, such as finding and extracting substrings, and pattern matching. When indexing a string in Lua, the first character is at position 1 (not at 0, as in C). Indices are allowed to be negative and are interpreted as indexing backwards, from the end of the string. Thus, the last character is at position -1, and so on.

The string library provides all its functions inside the table string. It also sets a metatable for strings where the __index field points to the string table. Therefore, you can use the string functions in object-oriented style. For instance, string.byte(s,i) can be written as s:byte(i).

The string library assumes one-byte character encodings.

string.byte (s [, i [, j]])

Returns the internal numerical codes of the characters s[i], s[i+1], ..., s[j]. The default value for i is 1; the default value for j is i. These indices are corrected following the same rules of function string.sub.

Numerical codes are not necessarily portable across platforms.

string.char (···)

Receives zero or more integers. Returns a string with length equal to the number of arguments, in which each character has the internal numerical code equal to its corresponding argument.

Numerical codes are not necessarily portable across platforms.

string.dump (function)

Returns a string containing a binary representation of the given function, so that a later load on this string returns a copy of the function (but with new upvalues).

string.find (s, pattern [, init [, plain]])

Looks for the first match of pattern in the string s. If it finds a match, then find returns the indices of s where this occurrence starts and ends; otherwise, it returns nil. A third, optional numerical argument init specifies where to start the search; its default value is 1 and can be negative. A value of true as a fourth, optional argument plain turns off the pattern matching facilities, so the function does a plain "find substring" operation, with no characters in pattern being considered magic. Note that if plain is given, then init must be given as well.

If the pattern has captures, then in a successful match the captured values are also returned, after the two indices.

string.format (formatstring, ···)

Returns a formatted version of its variable number of arguments following the description given in its first argument (which must be a string). The format string follows the same rules as the ANSI C function sprintf. The only differences are that the options/modifiers *, h, L, l, n, and p are not supported and that there is an extra option, q. The q option formats a string between double quotes, using escape sequences when necessary to ensure that it can safely be read back by the Lua interpreter. For instance, the call 

     string.format('%q', 'a string with "quotes" and \n new line')

may produce the string: 

     "a string with \"quotes\" and \
      new line"

Options A and a (when available), E, e, f, G, and g all expect a number as argument. Options c, d, i, o, u, X, and x also expect a number, but the range of that number may be limited by the underlying C implementation. For options o, u, X, and x, the number cannot be negative. Option q expects a string; option s expects a string without embedded zeros. If the argument to option s is not a string, it is converted to one following the same rules of tostring.

string.gmatch (s, pattern)

Returns an iterator function that, each time it is called, returns the next captures from pattern over the string s. If pattern specifies no captures, then the whole match is produced in each call.

As an example, the following loop will iterate over all the words from string s, printing one per line: 

     s = "hello world from Lua"
     for w in string.gmatch(s, "%a+") do
       print(w)
     end

The next example collects all pairs key=value from the given string into a table: 

     t = {}
     s = "from=world, to=Lua"
     for k, v in string.gmatch(s, "(%w+)=(%w+)") do
       t[k] = v
     end

For this function, a caret '^' at the start of a pattern does not work as an anchor, as this would prevent the iteration.

string.gsub (s, pattern, repl [, n])

Returns a copy of s in which all (or the first n, if given) occurrences of the pattern have been replaced by a replacement string specified by repl, which can be a string, a table, or a function. gsub also returns, as its second value, the total number of matches that occurred. The name gsub comes from Global SUBstitution.

If repl is a string, then its value is used for replacement. The character % works as an escape character: any sequence in repl of the form %d, with d between 1 and 9, stands for the value of the d-th captured substring. The sequence %0 stands for the whole match. The sequence %% stands for a single %.

If repl is a table, then the table is queried for every match, using the first capture as the key.

If repl is a function, then this function is called every time a match occurs, with all captured substrings passed as arguments, in order.

In any case, if the pattern specifies no captures, then it behaves as if the whole pattern was inside a capture.

If the value returned by the table query or by the function call is a string or a number, then it is used as the replacement string; otherwise, if it is false or nil, then there is no replacement (that is, the original match is kept in the string).

Here are some examples: 

     x = string.gsub("hello world", "(%w+)", "%1 %1")
     --> x="hello hello world world"
     
     x = string.gsub("hello world", "%w+", "%0 %0", 1)
     --> x="hello hello world"
     
     x = string.gsub("hello world from Lua", "(%w+)%s*(%w+)", "%2 %1")
     --> x="world hello Lua from"
     
     x = string.gsub("home = $HOME, user = $USER", "%$(%w+)", os.getenv)
     --> x="home = /home/roberto, user = roberto"
     
     x = string.gsub("4+5 = $return 4+5$", "%$(.-)%$", function (s)
           return load(s)()
         end)
     --> x="4+5 = 9"
     
     local t = {name="lua", version="5.2"}
     x = string.gsub("$name-$version.tar.gz", "%$(%w+)", t)
     --> x="lua-5.2.tar.gz"

string.len (s)

Receives a string and returns its length. The empty string "" has length 0. Embedded zeros are counted, so "a\000bc\000" has length 5.

string.lower (s)

Receives a string and returns a copy of this string with all uppercase letters changed to lowercase. All other characters are left unchanged. The definition of what an uppercase letter is depends on the current locale.

string.match (s, pattern [, init])

Looks for the first match of pattern in the string s. If it finds one, then match returns the captures from the pattern; otherwise it returns nil. If pattern specifies no captures, then the whole match is returned. A third, optional numerical argument init specifies where to start the search; its default value is 1 and can be negative.

string.rep (s, n [, sep])

Returns a string that is the concatenation of n copies of the string s separated by the string sep. The default value for sep is the empty string (that is, no separator).

string.reverse (s)

Returns a string that is the string s reversed.

string.sub (s, i [, j])

Returns the substring of s that starts at i and continues until j; i and j can be negative. If j is absent, then it is assumed to be equal to -1 (which is the same as the string length). In particular, the call string.sub(s,1,j) returns a prefix of s with length j, and string.sub(s, -i) returns a suffix of s with length i.

If, after the translation of negative indices, i is less than 1, it is corrected to 1. If j is greater than the string length, it is corrected to that length. If, after these corrections, i is greater than j, the function returns the empty string.

string.upper (s)

Receives a string and returns a copy of this string with all lowercase letters changed to uppercase. All other characters are left unchanged. The definition of what a lowercase letter is depends on the current locale.

6.4.1 – Patterns

Character Class:

A character class is used to represent a set of characters. The following combinations are allowed in describing a character class:

  • x: (where x is not one of the magic characters ^$()%.[]*+-?) represents the character x itself.
  • .: (a dot) represents all characters.
  • %a: represents all letters.
  • %c: represents all control characters.
  • %d: represents all digits.
  • %g: represents all printable characters except space.
  • %l: represents all lowercase letters.
  • %p: represents all punctuation characters.
  • %s: represents all space characters.
  • %u: represents all uppercase letters.
  • %w: represents all alphanumeric characters.
  • %x: represents all hexadecimal digits.
  • %x: (where x is any non-alphanumeric character) represents the character x. This is the standard way to escape the magic characters. Any punctuation character (even the non magic) can be preceded by a '%' when used to represent itself in a pattern.
  • [set]: represents the class which is the union of all characters in set. A range of characters can be specified by separating the end characters of the range, in ascending order, with a '-', All classes %x described above can also be used as components in set. All other characters in set represent themselves. For example, [%w_] (or [_%w]) represents all alphanumeric characters plus the underscore, [0-7] represents the octal digits, and [0-7%l%-] represents the octal digits plus the lowercase letters plus the '-' character.

    The interaction between ranges and classes is not defined. Therefore, patterns like [%a-z] or [a-%%] have no meaning.

  • [^set]: represents the complement of set, where set is interpreted as above.

For all classes represented by single letters (%a, %c, etc.), the corresponding uppercase letter represents the complement of the class. For instance, %S represents all non-space characters.

The definitions of letter, space, and other character groups depend on the current locale. In particular, the class [a-z] may not be equivalent to %l.

Pattern Item:

A pattern item can be

  • a single character class, which matches any single character in the class;
  • a single character class followed by '*', which matches 0 or more repetitions of characters in the class. These repetition items will always match the longest possible sequence;
  • a single character class followed by '+', which matches 1 or more repetitions of characters in the class. These repetition items will always match the longest possible sequence;
  • a single character class followed by '-', which also matches 0 or more repetitions of characters in the class. Unlike '*', these repetition items will always match the shortest possible sequence;
  • a single character class followed by '?', which matches 0 or 1 occurrence of a character in the class;
  • %n, for n between 1 and 9; such item matches a substring equal to the n-th captured string (see below);
  • %bxy, where x and y are two distinct characters; such item matches strings that start with x, end with y, and where the x and y are balanced. This means that, if one reads the string from left to right, counting +1 for an x and -1 for a y, the ending y is the first y where the count reaches 0. For instance, the item %b() matches expressions with balanced parentheses.
  • %f[set], a frontier pattern; such item matches an empty string at any position such that the next character belongs to set and the previous character does not belong to set. The set set is interpreted as previously described. The beginning and the end of the subject are handled as if they were the character '\0'.

Pattern:

A pattern is a sequence of pattern items. A caret '^' at the beginning of a pattern anchors the match at the beginning of the subject string. A '$' at the end of a pattern anchors the match at the end of the subject string. At other positions, '^' and '$' have no special meaning and represent themselves.

Captures:

A pattern can contain sub-patterns enclosed in parentheses; they describe captures. When a match succeeds, the substrings of the subject string that match captures are stored (captured) for future use. Captures are numbered according to their left parentheses. For instance, in the pattern "(a*(.)%w(%s*))", the part of the string matching "a*(.)%w(%s*)" is stored as the first capture (and therefore has number 1); the character matching "." is captured with number 2, and the part matching "%s*" has number 3.

As a special case, the empty capture () captures the current string position (a number). For instance, if we apply the pattern "()aa()" on the string "flaaap", there will be two captures: 3 and 5.

6.5 – Table Manipulation

This library provides generic functions for table manipulation. It provides all its functions inside the table table.

Remember that, whenever an operation needs the length of a table, the table should be a proper sequence or have a __len metamethod (see §3.4.6). All functions ignore non-numeric keys in tables given as arguments.

For performance reasons, all table accesses (get/set) performed by these functions are raw.

table.concat (list [, sep [, i [, j]]])

Given a list where all elements are strings or numbers, returns the string list[i]..sep..list[i+1] ··· sep..list[j]. The default value for sep is the empty string, the default for i is 1, and the default for j is #list. If i is greater than j, returns the empty string.

table.insert (list, [pos,] value)

Inserts element value at position pos in list, shifting up the elements list[pos], list[pos+1], ···, list[#list]. The default value for pos is #list+1, so that a call table.insert(t,x) inserts x at the end of list t.

table.pack (···)

Returns a new table with all parameters stored into keys 1, 2, etc. and with a field "n" with the total number of parameters. Note that the resulting table may not be a sequence.

table.remove (list [, pos])

Removes from list the element at position pos, returning the value of the removed element. When pos is an integer between 1 and #list, it shifts down the elements list[pos+1], list[pos+2], ···, list[#list] and erases element list[#list]; The index pos can also be 0 when #list is 0, or #list + 1; in those cases, the function erases the element list[pos].

The default value for pos is #list, so that a call table.remove(t) removes the last element of list t.

table.sort (list [, comp])

Sorts list elements in a given order, in-place, from list[1] to list[#list]. If comp is given, then it must be a function that receives two list elements and returns true when the first element must come before the second in the final order (so that not comp(list[i+1],list[i]) will be true after the sort). If comp is not given, then the standard Lua operator < is used instead.

The sort algorithm is not stable; that is, elements considered equal by the given order may have their relative positions changed by the sort.

table.unpack (list [, i [, j]])

Returns the elements from the given table. This function is equivalent to 

     return list[i], list[i+1], ···, list[j]

By default, i is 1 and j is #list.

6.6 – Mathematical Functions

This library is an interface to the standard C math library. It provides all its functions inside the table math.

math.abs (x)

Returns the absolute value of x.

math.acos (x)

Returns the arc cosine of x (in radians).

math.asin (x)

Returns the arc sine of x (in radians).

math.atan (x)

Returns the arc tangent of x (in radians).

math.atan2 (y, x)

Returns the arc tangent of y/x (in radians), but uses the signs of both parameters to find the quadrant of the result. (It also handles correctly the case of x being zero.)

math.ceil (x)

Returns the smallest integer larger than or equal to x.

math.cos (x)

Returns the cosine of x (assumed to be in radians).

math.cosh (x)

Returns the hyperbolic cosine of x.

math.deg (x)

Returns the angle x (given in radians) in degrees.

math.exp (x)

Returns the value ex.

math.floor (x)

Returns the largest integer smaller than or equal to x.

math.fmod (x, y)

Returns the remainder of the division of x by y that rounds the quotient towards zero.

math.frexp (x)

Returns m and e such that x = m2e, e is an integer and the absolute value of m is in the range [0.5, 1) (or zero when x is zero).

math.huge

The value HUGE_VAL, a value larger than or equal to any other numerical value.

math.ldexp (m, e)

Returns m2e (e should be an integer).

math.log (x [, base])

Returns the logarithm of x in the given base. The default for base is e (so that the function returns the natural logarithm of x).

math.max (x, ···)

Returns the maximum value among its arguments.

math.min (x, ···)

Returns the minimum value among its arguments.

math.modf (x)

Returns two numbers, the integral part of x and the fractional part of x.

math.pi

The value of π.

math.pow (x, y)

Returns xy. (You can also use the expression x^y to compute this value.)

math.rad (x)

Returns the angle x (given in degrees) in radians.

math.random ([m [, n]])

This function is an interface to the simple pseudo-random generator function rand provided by Standard C. (No guarantees can be given for its statistical properties.)

When called without arguments, returns a uniform pseudo-random real number in the range [0,1). When called with an integer number m, math.random returns a uniform pseudo-random integer in the range [1, m]. When called with two integer numbers m and n, math.random returns a uniform pseudo-random integer in the range [m, n].

math.randomseed (x)

Sets x as the "seed" for the pseudo-random generator: equal seeds produce equal sequences of numbers.

math.sin (x)

Returns the sine of x (assumed to be in radians).

math.sinh (x)

Returns the hyperbolic sine of x.

math.sqrt (x)

Returns the square root of x. (You can also use the expression x^0.5 to compute this value.)

math.tan (x)

Returns the tangent of x (assumed to be in radians).

math.tanh (x)

Returns the hyperbolic tangent of x.

6.7 – Bitwise Operations

This library provides bitwise operations. It provides all its functions inside the table bit32.

Unless otherwise stated, all functions accept numeric arguments in the range (-251,+251); each argument is normalized to the remainder of its division by 232 and truncated to an integer (in some unspecified way), so that its final value falls in the range [0,232 - 1]. Similarly, all results are in the range [0,232 - 1]. Note that bit32.bnot(0) is 0xFFFFFFFF, which is different from -1.

bit32.arshift (x, disp)

Returns the number x shifted disp bits to the right. The number disp may be any representable integer. Negative displacements shift to the left.

This shift operation is what is called arithmetic shift. Vacant bits on the left are filled with copies of the higher bit of x; vacant bits on the right are filled with zeros. In particular, displacements with absolute values higher than 31 result in zero or 0xFFFFFFFF (all original bits are shifted out).

bit32.band (···)

Returns the bitwise and of its operands.

bit32.bnot (x)

Returns the bitwise negation of x. For any integer x, the following identity holds: 

     assert(bit32.bnot(x) == (-1 - x) % 2^32)

bit32.bor (···)

Returns the bitwise or of its operands.

bit32.btest (···)

Returns a boolean signaling whether the bitwise and of its operands is different from zero.

bit32.bxor (···)

Returns the bitwise exclusive or of its operands.

bit32.extract (n, field [, width])

Returns the unsigned number formed by the bits field to field + width - 1 from n. Bits are numbered from 0 (least significant) to 31 (most significant). All accessed bits must be in the range [0, 31].

The default for width is 1.

bit32.replace (n, v, field [, width])

Returns a copy of n with the bits field to field + width - 1 replaced by the value v. See bit32.extract for details about field and width.

bit32.lrotate (x, disp)

Returns the number x rotated disp bits to the left. The number disp may be any representable integer.

For any valid displacement, the following identity holds: 

     assert(bit32.lrotate(x, disp) == bit32.lrotate(x, disp % 32))

In particular, negative displacements rotate to the right.

bit32.lshift (x, disp)

Returns the number x shifted disp bits to the left. The number disp may be any representable integer. Negative displacements shift to the right. In any direction, vacant bits are filled with zeros. In particular, displacements with absolute values higher than 31 result in zero (all bits are shifted out).

For positive displacements, the following equality holds: 

     assert(bit32.lshift(b, disp) == (b * 2^disp) % 2^32)

bit32.rrotate (x, disp)

Returns the number x rotated disp bits to the right. The number disp may be any representable integer.

For any valid displacement, the following identity holds: 

     assert(bit32.rrotate(x, disp) == bit32.rrotate(x, disp % 32))

In particular, negative displacements rotate to the left.

bit32.rshift (x, disp)

Returns the number x shifted disp bits to the right. The number disp may be any representable integer. Negative displacements shift to the left. In any direction, vacant bits are filled with zeros. In particular, displacements with absolute values higher than 31 result in zero (all bits are shifted out).

For positive displacements, the following equality holds: 

     assert(bit32.rshift(b, disp) == math.floor(b % 2^32 / 2^disp))

This shift operation is what is called logical shift.

6.8 – Input and Output Facilities

The I/O library provides two different styles for file manipulation. The first one uses implicit file descriptors; that is, there are operations to set a default input file and a default output file, and all input/output operations are over these default files. The second style uses explicit file descriptors.

When using implicit file descriptors, all operations are supplied by table io. When using explicit file descriptors, the operation io.open returns a file descriptor and then all operations are supplied as methods of the file descriptor.

The table io also provides three predefined file descriptors with their usual meanings from C: io.stdin, io.stdout, and io.stderr. The I/O library never closes these files.

Unless otherwise stated, all I/O functions return nil on failure (plus an error message as a second result and a system-dependent error code as a third result) and some value different from nil on success. On non-Posix systems, the computation of the error message and error code in case of errors may be not thread safe, because they rely on the global C variable errno.

io.close ([file])

Equivalent to file:close(). Without a file, closes the default output file.

io.flush ()

Equivalent to io.output():flush().

io.input ([file])

When called with a file name, it opens the named file (in text mode), and sets its handle as the default input file. When called with a file handle, it simply sets this file handle as the default input file. When called without parameters, it returns the current default input file.

In case of errors this function raises the error, instead of returning an error code.

io.lines ([filename ···])

Opens the given file name in read mode and returns an iterator function that works like file:lines(···) over the opened file. When the iterator function detects the end of file, it returns nil (to finish the loop) and automatically closes the file.

The call io.lines() (with no file name) is equivalent to io.input():lines(); that is, it iterates over the lines of the default input file. In this case it does not close the file when the loop ends.

In case of errors this function raises the error, instead of returning an error code.

io.open (filename [, mode])

This function opens a file, in the mode specified in the string mode. It returns a new file handle, or, in case of errors, nil plus an error message.

The mode string can be any of the following:

  • "r": read mode (the default);
  • "w": write mode;
  • "a": append mode;
  • "r+": update mode, all previous data is preserved;
  • "w+": update mode, all previous data is erased;
  • "a+": append update mode, previous data is preserved, writing is only allowed at the end of file.

The mode string can also have a 'b' at the end, which is needed in some systems to open the file in binary mode.

io.output ([file])

Similar to io.input, but operates over the default output file.

io.popen (prog [, mode])

This function is system dependent and is not available on all platforms.

Starts program prog in a separated process and returns a file handle that you can use to read data from this program (if mode is "r", the default) or to write data to this program (if mode is "w").

io.read (···)

Equivalent to io.input():read(···).

io.tmpfile ()

Returns a handle for a temporary file. This file is opened in update mode and it is automatically removed when the program ends.

io.type (obj)

Checks whether obj is a valid file handle. Returns the string "file" if obj is an open file handle, "closed file" if obj is a closed file handle, or nil if obj is not a file handle.

io.write (···)

Equivalent to io.output():write(···).

file:close ()

Closes file. Note that files are automatically closed when their handles are garbage collected, but that takes an unpredictable amount of time to happen.

When closing a file handle created with io.popen, file:close returns the same values returned by os.execute.

file:flush ()

Saves any written data to file.

file:lines (···)

Returns an iterator function that, each time it is called, reads the file according to the given formats. When no format is given, uses "*l" as a default. As an example, the construction 

     for c in file:lines(1) do body end

will iterate over all characters of the file, starting at the current position. Unlike io.lines, this function does not close the file when the loop ends.

In case of errors this function raises the error, instead of returning an error code.

file:read (···)

Reads the file file, according to the given formats, which specify what to read. For each format, the function returns a string (or a number) with the characters read, or nil if it cannot read data with the specified format. When called without formats, it uses a default format that reads the next line (see below).

The available formats are

  • "*n": reads a number; this is the only format that returns a number instead of a string.
  • "*a": reads the whole file, starting at the current position. On end of file, it returns the empty string.
  • "*l": reads the next line skipping the end of line, returning nil on end of file. This is the default format.
  • "*L": reads the next line keeping the end of line (if present), returning nil on end of file.
  • number: reads a string with up to this number of bytes, returning nil on end of file. If number is zero, it reads nothing and returns an empty string, or nil on end of file.

file:seek ([whence [, offset]])

Sets and gets the file position, measured from the beginning of the file, to the position given by offset plus a base specified by the string whence, as follows:

  • "set": base is position 0 (beginning of the file);
  • "cur": base is current position;
  • "end": base is end of file;

In case of success, seek returns the final file position, measured in bytes from the beginning of the file. If seek fails, it returns nil, plus a string describing the error.

The default value for whence is "cur", and for offset is 0. Therefore, the call file:seek() returns the current file position, without changing it; the call file:seek("set") sets the position to the beginning of the file (and returns 0); and the call file:seek("end") sets the position to the end of the file, and returns its size.

file:setvbuf (mode [, size])

Sets the buffering mode for an output file. There are three available modes:

  • "no": no buffering; the result of any output operation appears immediately.
  • "full": full buffering; output operation is performed only when the buffer is full or when you explicitly flush the file (see io.flush).
  • "line": line buffering; output is buffered until a newline is output or there is any input from some special files (such as a terminal device).

For the last two cases, size specifies the size of the buffer, in bytes. The default is an appropriate size.

file:write (···)

Writes the value of each of its arguments to file. The arguments must be strings or numbers.

In case of success, this function returns file. Otherwise it returns nil plus a string describing the error.

6.9 – Operating System Facilities

This library is implemented through table os.

os.clock ()

Returns an approximation of the amount in seconds of CPU time used by the program.

os.date ([format [, time]])

Returns a string or a table containing date and time, formatted according to the given string format.

If the time argument is present, this is the time to be formatted (see the os.time function for a description of this value). Otherwise, date formats the current time.

If format starts with '!', then the date is formatted in Coordinated Universal Time. After this optional character, if format is the string "*t", then date returns a table with the following fields: year (four digits), month (1–12), day (1–31), hour (0–23), min (0–59), sec (0–61), wday (weekday, Sunday is 1), yday (day of the year), and isdst (daylight saving flag, a boolean). This last field may be absent if the information is not available.

If format is not "*t", then date returns the date as a string, formatted according to the same rules as the ANSI C function strftime.

When called without arguments, date returns a reasonable date and time representation that depends on the host system and on the current locale (that is, os.date() is equivalent to os.date("%c")).

On non-Posix systems, this function may be not thread safe because of its reliance on C function gmtime and C function localtime.

os.difftime (t2, t1)

Returns the number of seconds from time t1 to time t2. In POSIX, Windows, and some other systems, this value is exactly t2-t1.

os.execute ([command])

This function is equivalent to the ANSI C function system. It passes command to be executed by an operating system shell. Its first result is true if the command terminated successfully, or nil otherwise. After this first result the function returns a string and a number, as follows:

  • "exit": the command terminated normally; the following number is the exit status of the command.
  • "signal": the command was terminated by a signal; the following number is the signal that terminated the command.

When called without a command, os.execute returns a boolean that is true if a shell is available.

os.exit ([code [, close])

Calls the ANSI C function exit to terminate the host program. If code is true, the returned status is EXIT_SUCCESS; if code is false, the returned status is EXIT_FAILURE; if code is a number, the returned status is this number. The default value for code is true.

If the optional second argument close is true, closes the Lua state before exiting.

os.getenv (varname)

Returns the value of the process environment variable varname, or nil if the variable is not defined.

os.remove (filename)

Deletes the file (or empty directory, on POSIX systems) with the given name. If this function fails, it returns nil, plus a string describing the error and the error code.

os.rename (oldname, newname)

Renames file or directory named oldname to newname. If this function fails, it returns nil, plus a string describing the error and the error code.

os.setlocale (locale [, category])

Sets the current locale of the program. locale is a system-dependent string specifying a locale; category is an optional string describing which category to change: "all", "collate", "ctype", "monetary", "numeric", or "time"; the default category is "all". The function returns the name of the new locale, or nil if the request cannot be honored.

If locale is the empty string, the current locale is set to an implementation-defined native locale. If locale is the string "C", the current locale is set to the standard C locale.

When called with nil as the first argument, this function only returns the name of the current locale for the given category.

This function may be not thread safe because of its reliance on C function setlocale.

os.time ([table])

Returns the current time when called without arguments, or a time representing the date and time specified by the given table. This table must have fields year, month, and day, and may have fields hour (default is 12), min (default is 0), sec (default is 0), and isdst (default is nil). For a description of these fields, see the os.date function.

The returned value is a number, whose meaning depends on your system. In POSIX, Windows, and some other systems, this number counts the number of seconds since some given start time (the "epoch"). In other systems, the meaning is not specified, and the number returned by time can be used only as an argument to os.date and os.difftime.

os.tmpname ()

Returns a string with a file name that can be used for a temporary file. The file must be explicitly opened before its use and explicitly removed when no longer needed.

On POSIX systems, this function also creates a file with that name, to avoid security risks. (Someone else might create the file with wrong permissions in the time between getting the name and creating the file.) You still have to open the file to use it and to remove it (even if you do not use it).

When possible, you may prefer to use io.tmpfile, which automatically removes the file when the program ends.

6.10 – The Debug Library

This library provides the functionality of the debug interface (§4.9) to Lua programs. You should exert care when using this library. Several of its functions violate basic assumptions about Lua code (e.g., that variables local to a function cannot be accessed from outside; that userdata metatables cannot be changed by Lua code; that Lua programs do not crash) and therefore can compromise otherwise secure code. Moreover, some functions in this library may be slow.

All functions in this library are provided inside the debug table. All functions that operate over a thread have an optional first argument which is the thread to operate over. The default is always the current thread.

debug.debug ()

Enters an interactive mode with the user, running each string that the user enters. Using simple commands and other debug facilities, the user can inspect global and local variables, change their values, evaluate expressions, and so on. A line containing only the word cont finishes this function, so that the caller continues its execution.

Note that commands for debug.debug are not lexically nested within any function and so have no direct access to local variables.

debug.gethook ([thread])

Returns the current hook settings of the thread, as three values: the current hook function, the current hook mask, and the current hook count (as set by the debug.sethook function).

debug.getinfo ([thread,] f [, what])

Returns a table with information about a function. You can give the function directly or you can give a number as the value of f, which means the function running at level f of the call stack of the given thread: level 0 is the current function (getinfo itself); level 1 is the function that called getinfo (except for tail calls, which do not count on the stack); and so on. If f is a number larger than the number of active functions, then getinfo returns nil.

The returned table can contain all the fields returned by lua_getinfo, with the string what describing which fields to fill in. The default for what is to get all information available, except the table of valid lines. If present, the option 'f' adds a field named func with the function itself. If present, the option 'L' adds a field named activelines with the table of valid lines.

For instance, the expression debug.getinfo(1,"n").name returns a table with a name for the current function, if a reasonable name can be found, and the expression debug.getinfo(print) returns a table with all available information about the print function.

debug.getlocal ([thread,] f, local)

This function returns the name and the value of the local variable with index local of the function at level f of the stack. This function accesses not only explicit local variables, but also parameters, temporaries, etc.

The first parameter or local variable has index 1, and so on, until the last active variable. Negative indices refer to vararg parameters; -1 is the first vararg parameter. The function returns nil if there is no variable with the given index, and raises an error when called with a level out of range. (You can call debug.getinfo to check whether the level is valid.)

Variable names starting with '(' (open parenthesis) represent internal variables (loop control variables, temporaries, varargs, and C function locals).

The parameter f may also be a function. In that case, getlocal returns only the name of function parameters.

debug.getmetatable (value)

Returns the metatable of the given value or nil if it does not have a metatable.

debug.getregistry ()

Returns the registry table (see §4.5).

debug.getupvalue (f, up)

This function returns the name and the value of the upvalue with index up of the function f. The function returns nil if there is no upvalue with the given index.

debug.getuservalue (u)

Returns the Lua value associated to u. If u is not a userdata, returns nil.

debug.sethook ([thread,] hook, mask [, count])

Sets the given function as a hook. The string mask and the number count describe when the hook will be called. The string mask may have the following characters, with the given meaning:

  • 'c': the hook is called every time Lua calls a function;
  • 'r': the hook is called every time Lua returns from a function;
  • 'l': the hook is called every time Lua enters a new line of code.

With a count different from zero, the hook is called after every count instructions.

When called without arguments, debug.sethook turns off the hook.

When the hook is called, its first parameter is a string describing the event that has triggered its call: "call" (or "tail call"), "return", "line", and "count". For line events, the hook also gets the new line number as its second parameter. Inside a hook, you can call getinfo with level 2 to get more information about the running function (level 0 is the getinfo function, and level 1 is the hook function).

debug.setlocal ([thread,] level, local, value)

This function assigns the value value to the local variable with index local of the function at level level of the stack. The function returns nil if there is no local variable with the given index, and raises an error when called with a level out of range. (You can call getinfo to check whether the level is valid.) Otherwise, it returns the name of the local variable.

See debug.getlocal for more information about variable indices and names.

debug.setmetatable (value, table)

Sets the metatable for the given value to the given table (which can be nil). Returns value.

debug.setupvalue (f, up, value)

This function assigns the value value to the upvalue with index up of the function f. The function returns nil if there is no upvalue with the given index. Otherwise, it returns the name of the upvalue.

debug.setuservalue (udata, value)

Sets the given value as the Lua value associated to the given udata. value must be a table or nil; udata must be a full userdata.

Returns udata.

debug.traceback ([thread,] [message [, level]])

If message is present but is neither a string nor nil, this function returns message without further processing. Otherwise, it returns a string with a traceback of the call stack. An optional message string is appended at the beginning of the traceback. An optional level number tells at which level to start the traceback (default is 1, the function calling traceback).

debug.upvalueid (f, n)

Returns an unique identifier (as a light userdata) for the upvalue numbered n from the given function.

These unique identifiers allow a program to check whether different closures share upvalues. Lua closures that share an upvalue (that is, that access a same external local variable) will return identical ids for those upvalue indices.

debug.upvaluejoin (f1, n1, f2, n2)

Make the n1-th upvalue of the Lua closure f1 refer to the n2-th upvalue of the Lua closure f2.

7 – Lua Standalone

Although Lua has been designed as an extension language, to be embedded in a host C program, it is also frequently used as a standalone language. An interpreter for Lua as a standalone language, called simply lua, is provided with the standard distribution. The standalone interpreter includes all standard libraries, including the debug library. Its usage is: 

     lua [options] [script [args]]

The options are:

  • -e stat: executes string stat;
  • -l mod: "requires" mod;
  • -i: enters interactive mode after running script;
  • -v: prints version information;
  • -E: ignores environment variables;
  • --: stops handling options;
  • -: executes stdin as a file and stops handling options.

After handling its options, lua runs the given script, passing to it the given args as string arguments. When called without arguments, lua behaves as lua -v -i when the standard input (stdin) is a terminal, and as lua - otherwise.

When called without option -E, the interpreter checks for an environment variable LUA_INIT_5_2 (or LUA_INIT if it is not defined) before running any argument. If the variable content has the format @filename, then lua executes the file. Otherwise, lua executes the string itself.

When called with option -E, besides ignoring LUA_INIT, Lua also ignores the values of LUA_PATH and LUA_CPATH, setting the values of package.path and package.cpath with the default paths defined in luaconf.h.

All options are handled in order, except -i and -E. For instance, an invocation like 

     $ lua -e'a=1' -e 'print(a)' script.lua

will first set a to 1, then print the value of a, and finally run the file script.lua with no arguments. (Here $ is the shell prompt. Your prompt may be different.)

Before starting to run the script, lua collects all arguments in the command line in a global table called arg. The script name is stored at index 0, the first argument after the script name goes to index 1, and so on. Any arguments before the script name (that is, the interpreter name plus the options) go to negative indices. For instance, in the call 

     $ lua -la b.lua t1 t2

the interpreter first runs the file a.lua, then creates a table 

     arg = { [-2] = "lua", [-1] = "-la",
             [0] = "b.lua",
             [1] = "t1", [2] = "t2" }

and finally runs the file b.lua. The script is called with arg[1], arg[2], ... as arguments; it can also access these arguments with the vararg expression '...'.

In interactive mode, if you write an incomplete statement, the interpreter waits for its completion by issuing a different prompt.

In case of unprotected errors in the script, the interpreter reports the error to the standard error stream. If the error object is a string, the interpreter adds a stack traceback to it. Otherwise, if the error object has a metamethod __tostring, the interpreter calls this metamethod to produce the final message. Finally, if the error object is nil, the interpreter does not report the error.

When finishing normally, the interpreter closes its main Lua state (see lua_close). The script can avoid this step by calling os.exit to terminate.

To allow the use of Lua as a script interpreter in Unix systems, the standalone interpreter skips the first line of a chunk if it starts with #. Therefore, Lua scripts can be made into executable programs by using chmod +x and the #! form, as in 

     #!/usr/local/bin/lua

(Of course, the location of the Lua interpreter may be different in your machine. If lua is in your PATH, then 

     #!/usr/bin/env lua

is a more portable solution.)

8 – Incompatibilities with the Previous Version

Here we list the incompatibilities that you may find when moving a program from Lua 5.1 to Lua 5.2. You can avoid some incompatibilities by compiling Lua with appropriate options (see file luaconf.h). However, all these compatibility options will be removed in the next version of Lua. Similarly, all features marked as deprecated in Lua 5.1 have been removed in Lua 5.2.

8.1 – Changes in the Language

  • The concept of environment changed. Only Lua functions have environments. To set the environment of a Lua function, use the variable _ENV or the function load.

    C functions no longer have environments. Use an upvalue with a shared table if you need to keep shared state among several C functions. (You may use luaL_setfuncs to open a C library with all functions sharing a common upvalue.)

    To manipulate the "environment" of a userdata (which is now called user value), use the new functions lua_getuservalue and lua_setuservalue.

  • Lua identifiers cannot use locale-dependent letters.
  • Doing a step or a full collection in the garbage collector does not restart the collector if it has been stopped.
  • Weak tables with weak keys now perform like ephemeron tables.
  • The event tail return in debug hooks was removed. Instead, tail calls generate a special new event, tail call, so that the debugger can know that there will not be a corresponding return event.
  • Equality between function values has changed. Now, a function definition may not create a new value; it may reuse some previous value if there is no observable difference to the new function.

8.2 – Changes in the Libraries

  • Function module is deprecated. It is easy to set up a module with regular Lua code. Modules are not expected to set global variables.
  • Functions setfenv and getfenv were removed, because of the changes in environments.
  • Function math.log10 is deprecated. Use math.log with 10 as its second argument, instead.
  • Function loadstring is deprecated. Use load instead; it now accepts string arguments and are exactly equivalent to loadstring.
  • Function table.maxn is deprecated. Write it in Lua if you really need it.
  • Function os.execute now returns true when command terminates successfully and nil plus error information otherwise.
  • Function unpack was moved into the table library and therefore must be called as table.unpack.
  • Character class %z in patterns is deprecated, as now patterns may contain '\0' as a regular character.
  • The table package.loaders was renamed package.searchers.
  • Lua does not have bytecode verification anymore. So, all functions that load code (load and loadfile) are potentially insecure when loading untrusted binary data. (Actually, those functions were already insecure because of flaws in the verification algorithm.) When in doubt, use the mode argument of those functions to restrict them to loading textual chunks.
  • The standard paths in the official distribution may change between versions.

8.3 – Changes in the API

  • Pseudoindex LUA_GLOBALSINDEX was removed. You must get the global environment from the registry (see §4.5).
  • Pseudoindex LUA_ENVIRONINDEX and functions lua_getfenv/lua_setfenv were removed, as C functions no longer have environments.
  • Function luaL_register is deprecated. Use luaL_setfuncs so that your module does not create globals. (Modules are not expected to set global variables anymore.)
  • The osize argument to the allocation function may not be zero when creating a new block, that is, when ptr is NULL (see lua_Alloc). Use only the test ptr == NULL to check whether the block is new.
  • Finalizers (__gc metamethods) for userdata are called in the reverse order that they were marked for finalization, not that they were created (see §2.5.1). (Most userdata are marked immediately after they are created.) Moreover, if the metatable does not have a __gc field when set, the finalizer will not be called, even if it is set later.
  • luaL_typerror was removed. Write your own version if you need it.
  • Function lua_cpcall is deprecated. You can simply push the function with lua_pushcfunction and call it with lua_pcall.
  • Functions lua_equal and lua_lessthan are deprecated. Use the new lua_compare with appropriate options instead.
  • Function lua_objlen was renamed lua_rawlen.
  • Function lua_load has an extra parameter, mode. Pass NULL to simulate the old behavior.
  • Function lua_resume has an extra parameter, from. Pass NULL or the thread doing the call.

9 – The Complete Syntax of Lua

Here is the complete syntax of Lua in extended BNF. (It does not describe operator precedences.) 


	chunk ::= block

	block ::= {stat} [retstat]

	stat ::=  ‘;’ | 
		 varlist ‘=’ explist | 
		 functioncall | 
		 label | 
		 break | 
		 goto Name | 
		 do block end | 
		 while exp do block end | 
		 repeat block until exp | 
		 if exp then block {elseif exp then block} [else block] end | 
		 for Name ‘=’ exp ‘,’ exp [‘,’ exp] do block end | 
		 for namelist in explist do block end | 
		 function funcname funcbody | 
		 local function Name funcbody | 
		 local namelist [‘=’ explist] 

	retstat ::= return [explist] [‘;’]

	label ::= ‘::’ Name ‘::’

	funcname ::= Name {‘.’ Name} [‘:’ Name]

	varlist ::= var {‘,’ var}

	var ::=  Name | prefixexp ‘[’ exp ‘]’ | prefixexp ‘.’ Name 

	namelist ::= Name {‘,’ Name}

	explist ::= exp {‘,’ exp}

	exp ::=  nil | false | true | Number | String | ‘...’ | functiondef | 
		 prefixexp | tableconstructor | exp binop exp | unop exp 

	prefixexp ::= var | functioncall | ‘(’ exp ‘)’

	functioncall ::=  prefixexp args | prefixexp ‘:’ Name args 

	args ::=  ‘(’ [explist] ‘)’ | tableconstructor | String 

	functiondef ::= function funcbody

	funcbody ::= ‘(’ [parlist] ‘)’ block end

	parlist ::= namelist [‘,’ ‘...’] | ‘...’

	tableconstructor ::= ‘{’ [fieldlist] ‘}’

	fieldlist ::= field {fieldsep field} [fieldsep]

	field ::= ‘[’ exp ‘]’ ‘=’ exp | Name ‘=’ exp | exp

	fieldsep ::= ‘,’ | ‘;’

	binop ::= ‘+’ | ‘-’ | ‘*’ | ‘/’ | ‘^’ | ‘%’ | ‘..’ | 
		 ‘<’ | ‘<=’ | ‘>’ | ‘>=’ | ‘==’ | ‘~=’ | 
		 and | or

	unop ::= ‘-’ | not | ‘#’

Last update: Thu Mar 21 12:58:59 BRT 2013 april-ann-0.3.1/lua/lua-5.2.2/doc/osi-certified-72x60.png000066400000000000000000000072761234204160600221770ustar00rootroot00000000000000PNG  IHDRH<JKb?Q?"јQ;vU$|3cpVY g.8|)=h|O1ã[RG;1vnY<}'&`wzs c?N; Ib.S=XB@p 8H0\^B'b~7F+f鑖 qcazz{{ n<w.@?3;CU*YtR':CLoԗ*K#ajXpCm74.W'SuVY> i<Dž3,%7K~9bmz?_FL-3ݧӽ{U! 9brX#oSv?GOqED \׬Ow bBcN睎ja`MHg7#1"8p"N77u tY9'\;*'@:CSX5-d-3-|A;D"hZ'@:Cd5ܑTb/R9II!l 1H3C8%E Ō@rI;gG#NƘX(v3Ĥ^Rùi p/>wjgƣ# aI9 }2#̰a^w!zL=9DpBc~x@ !Ʊqi 9F+m?lMv^M9~ ,\ǍHgM2G,ź+&|?hzh?"emؔ 0Ɔ֞>Hgyy%%w0G1B\}5?nq~ h6ۦupFz)cw+'-+B#Y 6:?Ѳ84K>yƼ_w<0@({,93%>EW=BC$)ݣ5׺\C$1Y{Mgh#I܂/fwD:v&&df:F4ՍmB! bw7t'$ ͽCfG4RTކBiQRe/ݔ2OL?"UoC=D̴'zⴤcgƈuEe["eU;uwZ;[f˲v‰\l;2uRciK !]=e[.D掟GX;%9t3eg= mG O?pb0gND'^(6.)1I"\X_ܷoN](uw bg6fٓ\׮]x񢣬j)i:%%%//clt:3ZlrJP(Ξ= 6lW\QTW^ggg@FFݻϟߗ ~vVj hV(QQQPTT$,Yb3gdf޼yb?V鼼fxH4@I)SUOOhGT*O?tΝFq׮]su'zMMBP*555}uuuZZZCCCYYYJJNtƍcaD"¤RF!IR?~"00pr|ݺu{7c0f̘1x9ZAGfTTT?|ĉmmm/^|b@wwcqP߿X,f%$$rEQ2BnϜ9gձ?Izcǎq8ebF1 <<>>_~KBBBxxx~~~~~㓟߮](io}v.{ĉӧOoڴ)'' .\| GG/_|Ν.MvQp,L&KJJZreZZZAAA@@ɓ'nݚ ?['ݻwϝ;jCCCzΝ;4Md+VJvZtti̙ܿ34M&&&"*** BazzzTTTmmmkkQYYY^^qD'%%I$ZZ`~)JrJ777-++:ulK#/mbo/"IENDB`april-ann-0.3.1/lua/lua-5.2.2/doc/readme.html000066400000000000000000000310301234204160600202630ustar00rootroot00000000000000 Lua 5.2 readme

Lua Welcome to Lua 5.2

about · installation · changes · license · reference manual

About Lua

Lua is a powerful, fast, lightweight, embeddable scripting language developed by a team at PUC-Rio, the Pontifical Catholic University of Rio de Janeiro in Brazil. Lua is free software used in many products and projects around the world.

Lua's official web site provides complete information about Lua, including an executive summary and updated documentation, especially the reference manual, which may differ slightly from the local copy distributed in this package.

Installing Lua

Lua is distributed in source form. You need to build it before using it. Building Lua should be straightforward because Lua is implemented in pure ANSI C and compiles unmodified in all known platforms that have an ANSI C compiler. Lua also compiles unmodified as C++. The instructions given below for building Lua are for Unix-like platforms. See also instructions for other systems and customization options.

If you don't have the time or the inclination to compile Lua yourself, get a binary from LuaBinaries. Try also Lua for Windows, an easy-to-use distribution of Lua that includes many useful libraries.

Building Lua

In most Unix-like platforms, simply do "make" with a suitable target. Here are the details.

  1. Open a terminal window and move to the top-level directory, which is named lua-5.2.2. The Makefile there controls both the build process and the installation process.

  2. Do "make" and see if your platform is listed. The platforms currently supported are:

    aix ansi bsd freebsd generic linux macosx mingw posix solaris

    If your platform is listed, just do "make xxx", where xxx is your platform name.

    If your platform is not listed, try the closest one or posix, generic, ansi, in this order.

  3. The compilation takes only a few moments and produces three files in the src directory: lua (the interpreter), luac (the compiler), and liblua.a (the library).

  4. To check that Lua has been built correctly, do "make test" after building Lua. This will run the interpreter and print its version string.

If you're running Linux and get compilation errors, make sure you have installed the readline development package. If you get link errors after that, then try "make linux MYLIBS=-ltermcap".

Installing Lua

Once you have built Lua, you may want to install it in an official place in your system. In this case, do "make install". The official place and the way to install files are defined in the Makefile. You'll probably need the right permissions to install files.

To build and install Lua in one step, do "make xxx install", where xxx is your platform name.

To install Lua locally, do "make local". This will create a directory install with subdirectories bin, include, lib, man, and install Lua as listed below. To install Lua locally, but in some other directory, do "make install INSTALL_TOP=xxx", where xxx is your chosen directory.

bin:
lua luac
include:
lua.h luaconf.h lualib.h lauxlib.h lua.hpp
lib:
liblua.a
man/man1:
lua.1 luac.1

These are the only directories you need for development. If you only want to run Lua programs, you only need the files in bin and man. The files in include and lib are needed for embedding Lua in C or C++ programs.

Customization

Three kinds of things can be customized by editing a file:

  • Where and how to install Lua — edit Makefile.
  • How to build Lua — edit src/Makefile.
  • Lua features — edit src/luaconf.h.

You don't actually need to edit the Makefiles because you may set the relevant variables in the command line when invoking make. Nevertheless, it's probably best to edit and save the Makefiles to record the changes you need.

On the other hand, if you need to customize some Lua features, you'll need to edit src/luaconf.h before building and installing Lua. The edited file will be the one installed, and it will be used by any Lua clients that you build, to ensure consistency. Further customization is available to experts by editing the Lua sources.

We strongly recommend that you enable dynamic loading in src/luaconf.h. This is done automatically for all platforms listed above that have this feature and also for Windows.

Building Lua on other systems

If you're not using the usual Unix tools, then the instructions for building Lua depend on the compiler you use. You'll need to create projects (or whatever your compiler uses) for building the library, the interpreter, and the compiler, as follows:

library:
lapi.c lcode.c lctype.c ldebug.c ldo.c ldump.c lfunc.c lgc.c llex.c lmem.c lobject.c lopcodes.c lparser.c lstate.c lstring.c ltable.c ltm.c lundump.c lvm.c lzio.c lauxlib.c lbaselib.c lbitlib.c lcorolib.c ldblib.c liolib.c lmathlib.c loslib.c lstrlib.c ltablib.c loadlib.c linit.c
interpreter:
library, lua.c
compiler:
library, luac.c

To use Lua as a library in your own programs you'll need to know how to create and use libraries with your compiler. Moreover, to dynamically load C libraries for Lua you'll need to know how to create dynamic libraries and you'll need to make sure that the Lua API functions are accessible to those dynamic libraries — but don't link the Lua library into each dynamic library. For Unix, we recommend that the Lua library be linked statically into the host program and its symbols exported for dynamic linking; src/Makefile does this for the Lua interpreter. For Windows, we recommend that the Lua library be a DLL.

As mentioned above, you may edit src/luaconf.h to customize some features before building Lua.

Changes since Lua 5.1

Here are the main changes introduced in Lua 5.2. The reference manual lists the incompatibilities that had to be introduced.

Main changes

  • yieldable pcall and metamethods
  • new lexical scheme for globals
  • ephemeron tables
  • new library for bitwise operations
  • light C functions
  • emergency garbage collector
  • goto statement
  • finalizers for tables
Here are the other changes introduced in Lua 5.2:

Language

  • no more fenv for threads or functions
  • tables honor the __len metamethod
  • hex and \z escapes in strings
  • support for hexadecimal floats
  • order metamethods work for different types
  • no more verification of opcode consistency
  • hook event "tail return" replaced by "tail call"
  • empty statement
  • break statement may appear in the middle of a block

Libraries

  • arguments for function called through xpcall
  • optional 'mode' argument to load and loadfile (to control binary x text)
  • optional 'env' argument to load and loadfile (environment for loaded chunk)
  • loadlib may load libraries with global names (RTLD_GLOBAL)
  • new function package.searchpath
  • modules receive their paths when loaded
  • optional base in math.log
  • optional separator in string.rep
  • file:write returns file
  • closing a pipe returns exit status
  • os.exit may close state
  • new metamethods __pairs and __ipairs
  • new option 'isrunning' for collectgarbage and lua_gc
  • frontier patterns
  • \0 in patterns
  • new option *L for io.read
  • options for io.lines
  • debug.getlocal can access function varargs

C API

  • main thread predefined in the registry
  • new functions lua_absindex, lua_arith, lua_compare, lua_copy, lua_len, lua_rawgetp, lua_rawsetp, lua_upvalueid, lua_upvaluejoin, lua_version.
  • new functions luaL_checkversion, luaL_setmetatable, luaL_testudata, luaL_tolstring.
  • lua_pushstring and pushlstring return string
  • nparams and isvararg available in debug API
  • new lua_Unsigned

Implementation

  • max constants per function raised to 226
  • generational mode for garbage collection (experimental)
  • NaN trick (experimental)
  • internal (immutable) version of ctypes
  • simpler implementation for string buffers
  • parser uses much less C-stack space (no more auto arrays)

Lua standalone interpreter

  • new -E option to avoid environment variables
  • handling of non-string error messages

License

[osi certified]

Lua is free software distributed under the terms of the MIT license reproduced below; it may be used for any purpose, including commercial purposes, at absolutely no cost without having to ask us. The only requirement is that if you do use Lua, then you should give us credit by including the appropriate copyright notice somewhere in your product or its documentation. For details, see this.

Copyright © 1994–2013 Lua.org, PUC-Rio.

Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:

The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

Last update: Fri Feb 22 09:24:20 BRT 2013 april-ann-0.3.1/lua/lua-5.2.2/src/000077500000000000000000000000001234204160600161655ustar00rootroot00000000000000april-ann-0.3.1/lua/lua-5.2.2/src/Makefile000066400000000000000000000143341234204160600176320ustar00rootroot00000000000000# Makefile for building Lua # See ../doc/readme.html for installation and customization instructions. # == CHANGE THE SETTINGS BELOW TO SUIT YOUR ENVIRONMENT ======================= # Your platform. See PLATS for possible values. UNAME = `uname` PLAT= DetectOS CC= gcc CFLAGS= -O2 -Wall -DLUA_COMPAT_ALL $(SYSCFLAGS) $(MYCFLAGS) LDFLAGS= $(SYSLDFLAGS) $(MYLDFLAGS) LIBS= -lm $(SYSLIBS) $(MYLIBS) AR= ar rcu RANLIB= ranlib RM= rm -f SYSCFLAGS= SYSLDFLAGS= SYSLIBS= MYCFLAGS= MYLDFLAGS= MYLIBS= MYOBJS= # == END OF USER SETTINGS -- NO NEED TO CHANGE ANYTHING BELOW THIS LINE ======= PLATS= DetectOS Darwin Linux aix ansi bsd freebsd generic linux macosx mingw posix solaris LUA_A= liblua.a CORE_O= lapi.o lcode.o lctype.o ldebug.o ldo.o ldump.o lfunc.o lgc.o llex.o \ lmem.o lobject.o lopcodes.o lparser.o lstate.o lstring.o ltable.o \ ltm.o lundump.o lvm.o lzio.o LIB_O= lauxlib.o lbaselib.o lbitlib.o lcorolib.o ldblib.o liolib.o \ lmathlib.o loslib.o lstrlib.o ltablib.o loadlib.o linit.o BASE_O= $(CORE_O) $(LIB_O) $(MYOBJS) LUA_T= lua LUA_O= lua.o LUAC_T= luac LUAC_O= luac.o ALL_O= $(BASE_O) $(LUA_O) $(LUAC_O) ALL_T= $(LUA_A) $(LUA_T) $(LUAC_T) ALL_A= $(LUA_A) # Targets start here. DetectOS: @make $(UNAME) Linux: linux Darwin: macosx default: $(PLAT) all: $(ALL_T) o: $(ALL_O) a: $(ALL_A) $(LUA_A): $(BASE_O) $(AR) $@ $(BASE_O) $(RANLIB) $@ $(LUA_T): $(LUA_O) $(LUA_A) $(CC) -o $@ $(LDFLAGS) $(LUA_O) $(LUA_A) $(LIBS) $(LUAC_T): $(LUAC_O) $(LUA_A) $(CC) -o $@ $(LDFLAGS) $(LUAC_O) $(LUA_A) $(LIBS) clean: $(RM) $(ALL_T) $(ALL_O) depend: @$(CC) $(CFLAGS) -MM l*.c echo: @echo "PLAT= $(PLAT)" @echo "CC= $(CC)" @echo "CFLAGS= $(CFLAGS)" @echo "LDFLAGS= $(SYSLDFLAGS)" @echo "LIBS= $(LIBS)" @echo "AR= $(AR)" @echo "RANLIB= $(RANLIB)" @echo "RM= $(RM)" # Convenience targets for popular platforms ALL= all none: @echo "Please do 'make PLATFORM' where PLATFORM is one of these:" @echo " $(PLATS)" aix: $(MAKE) $(ALL) CC="xlc" CFLAGS="-O2 -DLUA_USE_POSIX -DLUA_USE_DLOPEN" SYSLIBS="-ldl" SYSLDFLAGS="-brtl -bexpall" ansi: $(MAKE) $(ALL) SYSCFLAGS="-DLUA_ANSI" bsd: $(MAKE) $(ALL) SYSCFLAGS="-DLUA_USE_POSIX -DLUA_USE_DLOPEN" SYSLIBS="-Wl,-E" freebsd: $(MAKE) $(ALL) SYSCFLAGS="-DLUA_USE_LINUX" SYSLIBS="-Wl,-E -lreadline" generic: $(ALL) linux: $(MAKE) $(ALL) SYSCFLAGS="-DLUA_USE_LINUX" SYSLIBS="-Wl,-E -ldl -lreadline" macosx: $(MAKE) $(ALL) SYSCFLAGS="-DLUA_USE_MACOSX" SYSLIBS="-ldl -lreadline" mingw: $(MAKE) "LUA_A=lua52.dll" "LUA_T=lua.exe" \ "AR=$(CC) -shared -o" "RANLIB=strip --strip-unneeded" \ "SYSCFLAGS=-DLUA_BUILD_AS_DLL" "SYSLIBS=" "SYSLDFLAGS=-s" lua.exe $(MAKE) "LUAC_T=luac.exe" luac.exe posix: $(MAKE) $(ALL) SYSCFLAGS="-DLUA_USE_POSIX" SYSLIBS="-lreadline" solaris: $(MAKE) $(ALL) SYSCFLAGS="-DLUA_USE_POSIX -DLUA_USE_DLOPEN" SYSLIBS="-ldl" # list targets that do not create files (but not all makes understand .PHONY) .PHONY: all $(PLATS) default o a clean depend echo none # DO NOT DELETE lapi.o: lapi.c lua.h luaconf.h lapi.h llimits.h lstate.h lobject.h ltm.h \ lzio.h lmem.h ldebug.h ldo.h lfunc.h lgc.h lstring.h ltable.h lundump.h \ lvm.h lauxlib.o: lauxlib.c lua.h luaconf.h lauxlib.h lbaselib.o: lbaselib.c lua.h luaconf.h lauxlib.h lualib.h lbitlib.o: lbitlib.c lua.h luaconf.h lauxlib.h lualib.h lcode.o: lcode.c lua.h luaconf.h lcode.h llex.h lobject.h llimits.h \ lzio.h lmem.h lopcodes.h lparser.h ldebug.h lstate.h ltm.h ldo.h lgc.h \ lstring.h ltable.h lvm.h lcorolib.o: lcorolib.c lua.h luaconf.h lauxlib.h lualib.h lctype.o: lctype.c lctype.h lua.h luaconf.h llimits.h ldblib.o: ldblib.c lua.h luaconf.h lauxlib.h lualib.h ldebug.o: ldebug.c lua.h luaconf.h lapi.h llimits.h lstate.h lobject.h \ ltm.h lzio.h lmem.h lcode.h llex.h lopcodes.h lparser.h ldebug.h ldo.h \ lfunc.h lstring.h lgc.h ltable.h lvm.h ldo.o: ldo.c lua.h luaconf.h lapi.h llimits.h lstate.h lobject.h ltm.h \ lzio.h lmem.h ldebug.h ldo.h lfunc.h lgc.h lopcodes.h lparser.h \ lstring.h ltable.h lundump.h lvm.h ldump.o: ldump.c lua.h luaconf.h lobject.h llimits.h lstate.h ltm.h \ lzio.h lmem.h lundump.h lfunc.o: lfunc.c lua.h luaconf.h lfunc.h lobject.h llimits.h lgc.h \ lstate.h ltm.h lzio.h lmem.h lgc.o: lgc.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h ltm.h \ lzio.h lmem.h ldo.h lfunc.h lgc.h lstring.h ltable.h linit.o: linit.c lua.h luaconf.h lualib.h lauxlib.h liolib.o: liolib.c lua.h luaconf.h lauxlib.h lualib.h llex.o: llex.c lua.h luaconf.h lctype.h llimits.h ldo.h lobject.h \ lstate.h ltm.h lzio.h lmem.h llex.h lparser.h lstring.h lgc.h ltable.h lmathlib.o: lmathlib.c lua.h luaconf.h lauxlib.h lualib.h lmem.o: lmem.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h \ ltm.h lzio.h lmem.h ldo.h lgc.h loadlib.o: loadlib.c lua.h luaconf.h lauxlib.h lualib.h lobject.o: lobject.c lua.h luaconf.h lctype.h llimits.h ldebug.h lstate.h \ lobject.h ltm.h lzio.h lmem.h ldo.h lstring.h lgc.h lvm.h lopcodes.o: lopcodes.c lopcodes.h llimits.h lua.h luaconf.h loslib.o: loslib.c lua.h luaconf.h lauxlib.h lualib.h lparser.o: lparser.c lua.h luaconf.h lcode.h llex.h lobject.h llimits.h \ lzio.h lmem.h lopcodes.h lparser.h ldebug.h lstate.h ltm.h ldo.h lfunc.h \ lstring.h lgc.h ltable.h lstate.o: lstate.c lua.h luaconf.h lapi.h llimits.h lstate.h lobject.h \ ltm.h lzio.h lmem.h ldebug.h ldo.h lfunc.h lgc.h llex.h lstring.h \ ltable.h lstring.o: lstring.c lua.h luaconf.h lmem.h llimits.h lobject.h lstate.h \ ltm.h lzio.h lstring.h lgc.h lstrlib.o: lstrlib.c lua.h luaconf.h lauxlib.h lualib.h ltable.o: ltable.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h \ ltm.h lzio.h lmem.h ldo.h lgc.h lstring.h ltable.h lvm.h ltablib.o: ltablib.c lua.h luaconf.h lauxlib.h lualib.h ltm.o: ltm.c lua.h luaconf.h lobject.h llimits.h lstate.h ltm.h lzio.h \ lmem.h lstring.h lgc.h ltable.h lua.o: lua.c lua.h luaconf.h lauxlib.h lualib.h luac.o: luac.c lua.h luaconf.h lauxlib.h lobject.h llimits.h lstate.h \ ltm.h lzio.h lmem.h lundump.h ldebug.h lopcodes.h lundump.o: lundump.c lua.h luaconf.h ldebug.h lstate.h lobject.h \ llimits.h ltm.h lzio.h lmem.h ldo.h lfunc.h lstring.h lgc.h lundump.h lvm.o: lvm.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h ltm.h \ lzio.h lmem.h ldo.h lfunc.h lgc.h lopcodes.h lstring.h ltable.h lvm.h lzio.o: lzio.c lua.h luaconf.h llimits.h lmem.h lstate.h lobject.h ltm.h \ lzio.h april-ann-0.3.1/lua/lua-5.2.2/src/lapi.c000066400000000000000000000723221234204160600172640ustar00rootroot00000000000000/* ** $Id: lapi.c,v 2.171 2013/03/16 21:10:18 roberto Exp $ ** Lua API ** See Copyright Notice in lua.h */ #include #include #define lapi_c #define LUA_CORE #include "lua.h" #include "lapi.h" #include "ldebug.h" #include "ldo.h" #include "lfunc.h" #include "lgc.h" #include "lmem.h" #include "lobject.h" #include "lstate.h" #include "lstring.h" #include "ltable.h" #include "ltm.h" #include "lundump.h" #include "lvm.h" const char lua_ident[] = "$LuaVersion: " LUA_COPYRIGHT " $" "$LuaAuthors: " LUA_AUTHORS " $"; /* value at a non-valid index */ #define NONVALIDVALUE cast(TValue *, luaO_nilobject) /* corresponding test */ #define isvalid(o) ((o) != luaO_nilobject) /* test for pseudo index */ #define ispseudo(i) ((i) <= LUA_REGISTRYINDEX) /* test for valid but not pseudo index */ #define isstackindex(i, o) (isvalid(o) && !ispseudo(i)) #define api_checkvalidindex(L, o) api_check(L, isvalid(o), "invalid index") #define api_checkstackindex(L, i, o) \ api_check(L, isstackindex(i, o), "index not in the stack") static TValue *index2addr (lua_State *L, int idx) { CallInfo *ci = L->ci; if (idx > 0) { TValue *o = ci->func + idx; api_check(L, idx <= ci->top - (ci->func + 1), "unacceptable index"); if (o >= L->top) return NONVALIDVALUE; else return o; } else if (!ispseudo(idx)) { /* negative index */ api_check(L, idx != 0 && -idx <= L->top - (ci->func + 1), "invalid index"); return L->top + idx; } else if (idx == LUA_REGISTRYINDEX) return &G(L)->l_registry; else { /* upvalues */ idx = LUA_REGISTRYINDEX - idx; api_check(L, idx <= MAXUPVAL + 1, "upvalue index too large"); if (ttislcf(ci->func)) /* light C function? */ return NONVALIDVALUE; /* it has no upvalues */ else { CClosure *func = clCvalue(ci->func); return (idx <= func->nupvalues) ? &func->upvalue[idx-1] : NONVALIDVALUE; } } } /* ** to be called by 'lua_checkstack' in protected mode, to grow stack ** capturing memory errors */ static void growstack (lua_State *L, void *ud) { int size = *(int *)ud; luaD_growstack(L, size); } LUA_API int lua_checkstack (lua_State *L, int size) { int res; CallInfo *ci = L->ci; lua_lock(L); if (L->stack_last - L->top > size) /* stack large enough? */ res = 1; /* yes; check is OK */ else { /* no; need to grow stack */ int inuse = cast_int(L->top - L->stack) + EXTRA_STACK; if (inuse > LUAI_MAXSTACK - size) /* can grow without overflow? */ res = 0; /* no */ else /* try to grow stack */ res = (luaD_rawrunprotected(L, &growstack, &size) == LUA_OK); } if (res && ci->top < L->top + size) ci->top = L->top + size; /* adjust frame top */ lua_unlock(L); return res; } LUA_API void lua_xmove (lua_State *from, lua_State *to, int n) { int i; if (from == to) return; lua_lock(to); api_checknelems(from, n); api_check(from, G(from) == G(to), "moving among independent states"); api_check(from, to->ci->top - to->top >= n, "not enough elements to move"); from->top -= n; for (i = 0; i < n; i++) { setobj2s(to, to->top++, from->top + i); } lua_unlock(to); } LUA_API lua_CFunction lua_atpanic (lua_State *L, lua_CFunction panicf) { lua_CFunction old; lua_lock(L); old = G(L)->panic; G(L)->panic = panicf; lua_unlock(L); return old; } LUA_API const lua_Number *lua_version (lua_State *L) { static const lua_Number version = LUA_VERSION_NUM; if (L == NULL) return &version; else return G(L)->version; } /* ** basic stack manipulation */ /* ** convert an acceptable stack index into an absolute index */ LUA_API int lua_absindex (lua_State *L, int idx) { return (idx > 0 || ispseudo(idx)) ? idx : cast_int(L->top - L->ci->func + idx); } LUA_API int lua_gettop (lua_State *L) { return cast_int(L->top - (L->ci->func + 1)); } LUA_API void lua_settop (lua_State *L, int idx) { StkId func = L->ci->func; lua_lock(L); if (idx >= 0) { api_check(L, idx <= L->stack_last - (func + 1), "new top too large"); while (L->top < (func + 1) + idx) setnilvalue(L->top++); L->top = (func + 1) + idx; } else { api_check(L, -(idx+1) <= (L->top - (func + 1)), "invalid new top"); L->top += idx+1; /* `subtract' index (index is negative) */ } lua_unlock(L); } LUA_API void lua_remove (lua_State *L, int idx) { StkId p; lua_lock(L); p = index2addr(L, idx); api_checkstackindex(L, idx, p); while (++p < L->top) setobjs2s(L, p-1, p); L->top--; lua_unlock(L); } LUA_API void lua_insert (lua_State *L, int idx) { StkId p; StkId q; lua_lock(L); p = index2addr(L, idx); api_checkstackindex(L, idx, p); for (q = L->top; q > p; q--) /* use L->top as a temporary */ setobjs2s(L, q, q - 1); setobjs2s(L, p, L->top); lua_unlock(L); } static void moveto (lua_State *L, TValue *fr, int idx) { TValue *to = index2addr(L, idx); api_checkvalidindex(L, to); setobj(L, to, fr); if (idx < LUA_REGISTRYINDEX) /* function upvalue? */ luaC_barrier(L, clCvalue(L->ci->func), fr); /* LUA_REGISTRYINDEX does not need gc barrier (collector revisits it before finishing collection) */ } LUA_API void lua_replace (lua_State *L, int idx) { lua_lock(L); api_checknelems(L, 1); moveto(L, L->top - 1, idx); L->top--; lua_unlock(L); } LUA_API void lua_copy (lua_State *L, int fromidx, int toidx) { TValue *fr; lua_lock(L); fr = index2addr(L, fromidx); moveto(L, fr, toidx); lua_unlock(L); } LUA_API void lua_pushvalue (lua_State *L, int idx) { lua_lock(L); setobj2s(L, L->top, index2addr(L, idx)); api_incr_top(L); lua_unlock(L); } /* ** access functions (stack -> C) */ LUA_API int lua_type (lua_State *L, int idx) { StkId o = index2addr(L, idx); return (isvalid(o) ? ttypenv(o) : LUA_TNONE); } LUA_API const char *lua_typename (lua_State *L, int t) { UNUSED(L); return ttypename(t); } LUA_API int lua_iscfunction (lua_State *L, int idx) { StkId o = index2addr(L, idx); return (ttislcf(o) || (ttisCclosure(o))); } LUA_API int lua_isnumber (lua_State *L, int idx) { TValue n; const TValue *o = index2addr(L, idx); return tonumber(o, &n); } LUA_API int lua_isstring (lua_State *L, int idx) { int t = lua_type(L, idx); return (t == LUA_TSTRING || t == LUA_TNUMBER); } LUA_API int lua_isuserdata (lua_State *L, int idx) { const TValue *o = index2addr(L, idx); return (ttisuserdata(o) || ttislightuserdata(o)); } LUA_API int lua_rawequal (lua_State *L, int index1, int index2) { StkId o1 = index2addr(L, index1); StkId o2 = index2addr(L, index2); return (isvalid(o1) && isvalid(o2)) ? luaV_rawequalobj(o1, o2) : 0; } LUA_API void lua_arith (lua_State *L, int op) { StkId o1; /* 1st operand */ StkId o2; /* 2nd operand */ lua_lock(L); if (op != LUA_OPUNM) /* all other operations expect two operands */ api_checknelems(L, 2); else { /* for unary minus, add fake 2nd operand */ api_checknelems(L, 1); setobjs2s(L, L->top, L->top - 1); L->top++; } o1 = L->top - 2; o2 = L->top - 1; if (ttisnumber(o1) && ttisnumber(o2)) { setnvalue(o1, luaO_arith(op, nvalue(o1), nvalue(o2))); } else luaV_arith(L, o1, o1, o2, cast(TMS, op - LUA_OPADD + TM_ADD)); L->top--; lua_unlock(L); } LUA_API int lua_compare (lua_State *L, int index1, int index2, int op) { StkId o1, o2; int i = 0; lua_lock(L); /* may call tag method */ o1 = index2addr(L, index1); o2 = index2addr(L, index2); if (isvalid(o1) && isvalid(o2)) { switch (op) { case LUA_OPEQ: i = equalobj(L, o1, o2); break; case LUA_OPLT: i = luaV_lessthan(L, o1, o2); break; case LUA_OPLE: i = luaV_lessequal(L, o1, o2); break; default: api_check(L, 0, "invalid option"); } } lua_unlock(L); return i; } LUA_API lua_Number lua_tonumberx (lua_State *L, int idx, int *isnum) { TValue n; const TValue *o = index2addr(L, idx); if (tonumber(o, &n)) { if (isnum) *isnum = 1; return nvalue(o); } else { if (isnum) *isnum = 0; return 0; } } LUA_API lua_Integer lua_tointegerx (lua_State *L, int idx, int *isnum) { TValue n; const TValue *o = index2addr(L, idx); if (tonumber(o, &n)) { lua_Integer res; lua_Number num = nvalue(o); lua_number2integer(res, num); if (isnum) *isnum = 1; return res; } else { if (isnum) *isnum = 0; return 0; } } LUA_API lua_Unsigned lua_tounsignedx (lua_State *L, int idx, int *isnum) { TValue n; const TValue *o = index2addr(L, idx); if (tonumber(o, &n)) { lua_Unsigned res; lua_Number num = nvalue(o); lua_number2unsigned(res, num); if (isnum) *isnum = 1; return res; } else { if (isnum) *isnum = 0; return 0; } } LUA_API int lua_toboolean (lua_State *L, int idx) { const TValue *o = index2addr(L, idx); return !l_isfalse(o); } LUA_API const char *lua_tolstring (lua_State *L, int idx, size_t *len) { StkId o = index2addr(L, idx); if (!ttisstring(o)) { lua_lock(L); /* `luaV_tostring' may create a new string */ if (!luaV_tostring(L, o)) { /* conversion failed? */ if (len != NULL) *len = 0; lua_unlock(L); return NULL; } luaC_checkGC(L); o = index2addr(L, idx); /* previous call may reallocate the stack */ lua_unlock(L); } if (len != NULL) *len = tsvalue(o)->len; return svalue(o); } LUA_API size_t lua_rawlen (lua_State *L, int idx) { StkId o = index2addr(L, idx); switch (ttypenv(o)) { case LUA_TSTRING: return tsvalue(o)->len; case LUA_TUSERDATA: return uvalue(o)->len; case LUA_TTABLE: return luaH_getn(hvalue(o)); default: return 0; } } LUA_API lua_CFunction lua_tocfunction (lua_State *L, int idx) { StkId o = index2addr(L, idx); if (ttislcf(o)) return fvalue(o); else if (ttisCclosure(o)) return clCvalue(o)->f; else return NULL; /* not a C function */ } LUA_API void *lua_touserdata (lua_State *L, int idx) { StkId o = index2addr(L, idx); switch (ttypenv(o)) { case LUA_TUSERDATA: return (rawuvalue(o) + 1); case LUA_TLIGHTUSERDATA: return pvalue(o); default: return NULL; } } LUA_API lua_State *lua_tothread (lua_State *L, int idx) { StkId o = index2addr(L, idx); return (!ttisthread(o)) ? NULL : thvalue(o); } LUA_API const void *lua_topointer (lua_State *L, int idx) { StkId o = index2addr(L, idx); switch (ttype(o)) { case LUA_TTABLE: return hvalue(o); case LUA_TLCL: return clLvalue(o); case LUA_TCCL: return clCvalue(o); case LUA_TLCF: return cast(void *, cast(size_t, fvalue(o))); case LUA_TTHREAD: return thvalue(o); case LUA_TUSERDATA: case LUA_TLIGHTUSERDATA: return lua_touserdata(L, idx); default: return NULL; } } /* ** push functions (C -> stack) */ LUA_API void lua_pushnil (lua_State *L) { lua_lock(L); setnilvalue(L->top); api_incr_top(L); lua_unlock(L); } LUA_API void lua_pushnumber (lua_State *L, lua_Number n) { lua_lock(L); setnvalue(L->top, n); luai_checknum(L, L->top, luaG_runerror(L, "C API - attempt to push a signaling NaN")); api_incr_top(L); lua_unlock(L); } LUA_API void lua_pushinteger (lua_State *L, lua_Integer n) { lua_lock(L); setnvalue(L->top, cast_num(n)); api_incr_top(L); lua_unlock(L); } LUA_API void lua_pushunsigned (lua_State *L, lua_Unsigned u) { lua_Number n; lua_lock(L); n = lua_unsigned2number(u); setnvalue(L->top, n); api_incr_top(L); lua_unlock(L); } LUA_API const char *lua_pushlstring (lua_State *L, const char *s, size_t len) { TString *ts; lua_lock(L); luaC_checkGC(L); ts = luaS_newlstr(L, s, len); setsvalue2s(L, L->top, ts); api_incr_top(L); lua_unlock(L); return getstr(ts); } LUA_API const char *lua_pushstring (lua_State *L, const char *s) { if (s == NULL) { lua_pushnil(L); return NULL; } else { TString *ts; lua_lock(L); luaC_checkGC(L); ts = luaS_new(L, s); setsvalue2s(L, L->top, ts); api_incr_top(L); lua_unlock(L); return getstr(ts); } } LUA_API const char *lua_pushvfstring (lua_State *L, const char *fmt, va_list argp) { const char *ret; lua_lock(L); luaC_checkGC(L); ret = luaO_pushvfstring(L, fmt, argp); lua_unlock(L); return ret; } LUA_API const char *lua_pushfstring (lua_State *L, const char *fmt, ...) { const char *ret; va_list argp; lua_lock(L); luaC_checkGC(L); va_start(argp, fmt); ret = luaO_pushvfstring(L, fmt, argp); va_end(argp); lua_unlock(L); return ret; } LUA_API void lua_pushcclosure (lua_State *L, lua_CFunction fn, int n) { lua_lock(L); if (n == 0) { setfvalue(L->top, fn); } else { Closure *cl; api_checknelems(L, n); api_check(L, n <= MAXUPVAL, "upvalue index too large"); luaC_checkGC(L); cl = luaF_newCclosure(L, n); cl->c.f = fn; L->top -= n; while (n--) setobj2n(L, &cl->c.upvalue[n], L->top + n); setclCvalue(L, L->top, cl); } api_incr_top(L); lua_unlock(L); } LUA_API void lua_pushboolean (lua_State *L, int b) { lua_lock(L); setbvalue(L->top, (b != 0)); /* ensure that true is 1 */ api_incr_top(L); lua_unlock(L); } LUA_API void lua_pushlightuserdata (lua_State *L, void *p) { lua_lock(L); setpvalue(L->top, p); api_incr_top(L); lua_unlock(L); } LUA_API int lua_pushthread (lua_State *L) { lua_lock(L); setthvalue(L, L->top, L); api_incr_top(L); lua_unlock(L); return (G(L)->mainthread == L); } /* ** get functions (Lua -> stack) */ LUA_API void lua_getglobal (lua_State *L, const char *var) { Table *reg = hvalue(&G(L)->l_registry); const TValue *gt; /* global table */ lua_lock(L); gt = luaH_getint(reg, LUA_RIDX_GLOBALS); setsvalue2s(L, L->top++, luaS_new(L, var)); luaV_gettable(L, gt, L->top - 1, L->top - 1); lua_unlock(L); } LUA_API void lua_gettable (lua_State *L, int idx) { StkId t; lua_lock(L); t = index2addr(L, idx); luaV_gettable(L, t, L->top - 1, L->top - 1); lua_unlock(L); } LUA_API void lua_getfield (lua_State *L, int idx, const char *k) { StkId t; lua_lock(L); t = index2addr(L, idx); setsvalue2s(L, L->top, luaS_new(L, k)); api_incr_top(L); luaV_gettable(L, t, L->top - 1, L->top - 1); lua_unlock(L); } LUA_API void lua_rawget (lua_State *L, int idx) { StkId t; lua_lock(L); t = index2addr(L, idx); api_check(L, ttistable(t), "table expected"); setobj2s(L, L->top - 1, luaH_get(hvalue(t), L->top - 1)); lua_unlock(L); } LUA_API void lua_rawgeti (lua_State *L, int idx, int n) { StkId t; lua_lock(L); t = index2addr(L, idx); api_check(L, ttistable(t), "table expected"); setobj2s(L, L->top, luaH_getint(hvalue(t), n)); api_incr_top(L); lua_unlock(L); } LUA_API void lua_rawgetp (lua_State *L, int idx, const void *p) { StkId t; TValue k; lua_lock(L); t = index2addr(L, idx); api_check(L, ttistable(t), "table expected"); setpvalue(&k, cast(void *, p)); setobj2s(L, L->top, luaH_get(hvalue(t), &k)); api_incr_top(L); lua_unlock(L); } LUA_API void lua_createtable (lua_State *L, int narray, int nrec) { Table *t; lua_lock(L); luaC_checkGC(L); t = luaH_new(L); sethvalue(L, L->top, t); api_incr_top(L); if (narray > 0 || nrec > 0) luaH_resize(L, t, narray, nrec); lua_unlock(L); } LUA_API int lua_getmetatable (lua_State *L, int objindex) { const TValue *obj; Table *mt = NULL; int res; lua_lock(L); obj = index2addr(L, objindex); switch (ttypenv(obj)) { case LUA_TTABLE: mt = hvalue(obj)->metatable; break; case LUA_TUSERDATA: mt = uvalue(obj)->metatable; break; default: mt = G(L)->mt[ttypenv(obj)]; break; } if (mt == NULL) res = 0; else { sethvalue(L, L->top, mt); api_incr_top(L); res = 1; } lua_unlock(L); return res; } LUA_API void lua_getuservalue (lua_State *L, int idx) { StkId o; lua_lock(L); o = index2addr(L, idx); api_check(L, ttisuserdata(o), "userdata expected"); if (uvalue(o)->env) { sethvalue(L, L->top, uvalue(o)->env); } else setnilvalue(L->top); api_incr_top(L); lua_unlock(L); } /* ** set functions (stack -> Lua) */ LUA_API void lua_setglobal (lua_State *L, const char *var) { Table *reg = hvalue(&G(L)->l_registry); const TValue *gt; /* global table */ lua_lock(L); api_checknelems(L, 1); gt = luaH_getint(reg, LUA_RIDX_GLOBALS); setsvalue2s(L, L->top++, luaS_new(L, var)); luaV_settable(L, gt, L->top - 1, L->top - 2); L->top -= 2; /* pop value and key */ lua_unlock(L); } LUA_API void lua_settable (lua_State *L, int idx) { StkId t; lua_lock(L); api_checknelems(L, 2); t = index2addr(L, idx); luaV_settable(L, t, L->top - 2, L->top - 1); L->top -= 2; /* pop index and value */ lua_unlock(L); } LUA_API void lua_setfield (lua_State *L, int idx, const char *k) { StkId t; lua_lock(L); api_checknelems(L, 1); t = index2addr(L, idx); setsvalue2s(L, L->top++, luaS_new(L, k)); luaV_settable(L, t, L->top - 1, L->top - 2); L->top -= 2; /* pop value and key */ lua_unlock(L); } LUA_API void lua_rawset (lua_State *L, int idx) { StkId t; lua_lock(L); api_checknelems(L, 2); t = index2addr(L, idx); api_check(L, ttistable(t), "table expected"); setobj2t(L, luaH_set(L, hvalue(t), L->top-2), L->top-1); invalidateTMcache(hvalue(t)); luaC_barrierback(L, gcvalue(t), L->top-1); L->top -= 2; lua_unlock(L); } LUA_API void lua_rawseti (lua_State *L, int idx, int n) { StkId t; lua_lock(L); api_checknelems(L, 1); t = index2addr(L, idx); api_check(L, ttistable(t), "table expected"); luaH_setint(L, hvalue(t), n, L->top - 1); luaC_barrierback(L, gcvalue(t), L->top-1); L->top--; lua_unlock(L); } LUA_API void lua_rawsetp (lua_State *L, int idx, const void *p) { StkId t; TValue k; lua_lock(L); api_checknelems(L, 1); t = index2addr(L, idx); api_check(L, ttistable(t), "table expected"); setpvalue(&k, cast(void *, p)); setobj2t(L, luaH_set(L, hvalue(t), &k), L->top - 1); luaC_barrierback(L, gcvalue(t), L->top - 1); L->top--; lua_unlock(L); } LUA_API int lua_setmetatable (lua_State *L, int objindex) { TValue *obj; Table *mt; lua_lock(L); api_checknelems(L, 1); obj = index2addr(L, objindex); if (ttisnil(L->top - 1)) mt = NULL; else { api_check(L, ttistable(L->top - 1), "table expected"); mt = hvalue(L->top - 1); } switch (ttypenv(obj)) { case LUA_TTABLE: { hvalue(obj)->metatable = mt; if (mt) { luaC_objbarrierback(L, gcvalue(obj), mt); luaC_checkfinalizer(L, gcvalue(obj), mt); } break; } case LUA_TUSERDATA: { uvalue(obj)->metatable = mt; if (mt) { luaC_objbarrier(L, rawuvalue(obj), mt); luaC_checkfinalizer(L, gcvalue(obj), mt); } break; } default: { G(L)->mt[ttypenv(obj)] = mt; break; } } L->top--; lua_unlock(L); return 1; } LUA_API void lua_setuservalue (lua_State *L, int idx) { StkId o; lua_lock(L); api_checknelems(L, 1); o = index2addr(L, idx); api_check(L, ttisuserdata(o), "userdata expected"); if (ttisnil(L->top - 1)) uvalue(o)->env = NULL; else { api_check(L, ttistable(L->top - 1), "table expected"); uvalue(o)->env = hvalue(L->top - 1); luaC_objbarrier(L, gcvalue(o), hvalue(L->top - 1)); } L->top--; lua_unlock(L); } /* ** `load' and `call' functions (run Lua code) */ #define checkresults(L,na,nr) \ api_check(L, (nr) == LUA_MULTRET || (L->ci->top - L->top >= (nr) - (na)), \ "results from function overflow current stack size") LUA_API int lua_getctx (lua_State *L, int *ctx) { if (L->ci->callstatus & CIST_YIELDED) { if (ctx) *ctx = L->ci->u.c.ctx; return L->ci->u.c.status; } else return LUA_OK; } LUA_API void lua_callk (lua_State *L, int nargs, int nresults, int ctx, lua_CFunction k) { StkId func; lua_lock(L); api_check(L, k == NULL || !isLua(L->ci), "cannot use continuations inside hooks"); api_checknelems(L, nargs+1); api_check(L, L->status == LUA_OK, "cannot do calls on non-normal thread"); checkresults(L, nargs, nresults); func = L->top - (nargs+1); if (k != NULL && L->nny == 0) { /* need to prepare continuation? */ L->ci->u.c.k = k; /* save continuation */ L->ci->u.c.ctx = ctx; /* save context */ luaD_call(L, func, nresults, 1); /* do the call */ } else /* no continuation or no yieldable */ luaD_call(L, func, nresults, 0); /* just do the call */ adjustresults(L, nresults); lua_unlock(L); } /* ** Execute a protected call. */ struct CallS { /* data to `f_call' */ StkId func; int nresults; }; static void f_call (lua_State *L, void *ud) { struct CallS *c = cast(struct CallS *, ud); luaD_call(L, c->func, c->nresults, 0); } LUA_API int lua_pcallk (lua_State *L, int nargs, int nresults, int errfunc, int ctx, lua_CFunction k) { struct CallS c; int status; ptrdiff_t func; lua_lock(L); api_check(L, k == NULL || !isLua(L->ci), "cannot use continuations inside hooks"); api_checknelems(L, nargs+1); api_check(L, L->status == LUA_OK, "cannot do calls on non-normal thread"); checkresults(L, nargs, nresults); if (errfunc == 0) func = 0; else { StkId o = index2addr(L, errfunc); api_checkstackindex(L, errfunc, o); func = savestack(L, o); } c.func = L->top - (nargs+1); /* function to be called */ if (k == NULL || L->nny > 0) { /* no continuation or no yieldable? */ c.nresults = nresults; /* do a 'conventional' protected call */ status = luaD_pcall(L, f_call, &c, savestack(L, c.func), func); } else { /* prepare continuation (call is already protected by 'resume') */ CallInfo *ci = L->ci; ci->u.c.k = k; /* save continuation */ ci->u.c.ctx = ctx; /* save context */ /* save information for error recovery */ ci->extra = savestack(L, c.func); ci->u.c.old_allowhook = L->allowhook; ci->u.c.old_errfunc = L->errfunc; L->errfunc = func; /* mark that function may do error recovery */ ci->callstatus |= CIST_YPCALL; luaD_call(L, c.func, nresults, 1); /* do the call */ ci->callstatus &= ~CIST_YPCALL; L->errfunc = ci->u.c.old_errfunc; status = LUA_OK; /* if it is here, there were no errors */ } adjustresults(L, nresults); lua_unlock(L); return status; } LUA_API int lua_load (lua_State *L, lua_Reader reader, void *data, const char *chunkname, const char *mode) { ZIO z; int status; lua_lock(L); if (!chunkname) chunkname = "?"; luaZ_init(L, &z, reader, data); status = luaD_protectedparser(L, &z, chunkname, mode); if (status == LUA_OK) { /* no errors? */ LClosure *f = clLvalue(L->top - 1); /* get newly created function */ if (f->nupvalues == 1) { /* does it have one upvalue? */ /* get global table from registry */ Table *reg = hvalue(&G(L)->l_registry); const TValue *gt = luaH_getint(reg, LUA_RIDX_GLOBALS); /* set global table as 1st upvalue of 'f' (may be LUA_ENV) */ setobj(L, f->upvals[0]->v, gt); luaC_barrier(L, f->upvals[0], gt); } } lua_unlock(L); return status; } LUA_API int lua_dump (lua_State *L, lua_Writer writer, void *data) { int status; TValue *o; lua_lock(L); api_checknelems(L, 1); o = L->top - 1; if (isLfunction(o)) status = luaU_dump(L, getproto(o), writer, data, 0); else status = 1; lua_unlock(L); return status; } LUA_API int lua_status (lua_State *L) { return L->status; } /* ** Garbage-collection function */ LUA_API int lua_gc (lua_State *L, int what, int data) { int res = 0; global_State *g; lua_lock(L); g = G(L); switch (what) { case LUA_GCSTOP: { g->gcrunning = 0; break; } case LUA_GCRESTART: { luaE_setdebt(g, 0); g->gcrunning = 1; break; } case LUA_GCCOLLECT: { luaC_fullgc(L, 0); break; } case LUA_GCCOUNT: { /* GC values are expressed in Kbytes: #bytes/2^10 */ res = cast_int(gettotalbytes(g) >> 10); break; } case LUA_GCCOUNTB: { res = cast_int(gettotalbytes(g) & 0x3ff); break; } case LUA_GCSTEP: { if (g->gckind == KGC_GEN) { /* generational mode? */ res = (g->GCestimate == 0); /* true if it will do major collection */ luaC_forcestep(L); /* do a single step */ } else { lu_mem debt = cast(lu_mem, data) * 1024 - GCSTEPSIZE; if (g->gcrunning) debt += g->GCdebt; /* include current debt */ luaE_setdebt(g, debt); luaC_forcestep(L); if (g->gcstate == GCSpause) /* end of cycle? */ res = 1; /* signal it */ } break; } case LUA_GCSETPAUSE: { res = g->gcpause; g->gcpause = data; break; } case LUA_GCSETMAJORINC: { res = g->gcmajorinc; g->gcmajorinc = data; break; } case LUA_GCSETSTEPMUL: { res = g->gcstepmul; g->gcstepmul = data; break; } case LUA_GCISRUNNING: { res = g->gcrunning; break; } case LUA_GCGEN: { /* change collector to generational mode */ luaC_changemode(L, KGC_GEN); break; } case LUA_GCINC: { /* change collector to incremental mode */ luaC_changemode(L, KGC_NORMAL); break; } default: res = -1; /* invalid option */ } lua_unlock(L); return res; } /* ** miscellaneous functions */ LUA_API int lua_error (lua_State *L) { lua_lock(L); api_checknelems(L, 1); luaG_errormsg(L); /* code unreachable; will unlock when control actually leaves the kernel */ return 0; /* to avoid warnings */ } LUA_API int lua_next (lua_State *L, int idx) { StkId t; int more; lua_lock(L); t = index2addr(L, idx); api_check(L, ttistable(t), "table expected"); more = luaH_next(L, hvalue(t), L->top - 1); if (more) { api_incr_top(L); } else /* no more elements */ L->top -= 1; /* remove key */ lua_unlock(L); return more; } LUA_API void lua_concat (lua_State *L, int n) { lua_lock(L); api_checknelems(L, n); if (n >= 2) { luaC_checkGC(L); luaV_concat(L, n); } else if (n == 0) { /* push empty string */ setsvalue2s(L, L->top, luaS_newlstr(L, "", 0)); api_incr_top(L); } /* else n == 1; nothing to do */ lua_unlock(L); } LUA_API void lua_len (lua_State *L, int idx) { StkId t; lua_lock(L); t = index2addr(L, idx); luaV_objlen(L, L->top, t); api_incr_top(L); lua_unlock(L); } LUA_API lua_Alloc lua_getallocf (lua_State *L, void **ud) { lua_Alloc f; lua_lock(L); if (ud) *ud = G(L)->ud; f = G(L)->frealloc; lua_unlock(L); return f; } LUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud) { lua_lock(L); G(L)->ud = ud; G(L)->frealloc = f; lua_unlock(L); } LUA_API void *lua_newuserdata (lua_State *L, size_t size) { Udata *u; lua_lock(L); luaC_checkGC(L); u = luaS_newudata(L, size, NULL); setuvalue(L, L->top, u); api_incr_top(L); lua_unlock(L); return u + 1; } static const char *aux_upvalue (StkId fi, int n, TValue **val, GCObject **owner) { switch (ttype(fi)) { case LUA_TCCL: { /* C closure */ CClosure *f = clCvalue(fi); if (!(1 <= n && n <= f->nupvalues)) return NULL; *val = &f->upvalue[n-1]; if (owner) *owner = obj2gco(f); return ""; } case LUA_TLCL: { /* Lua closure */ LClosure *f = clLvalue(fi); TString *name; Proto *p = f->p; if (!(1 <= n && n <= p->sizeupvalues)) return NULL; *val = f->upvals[n-1]->v; if (owner) *owner = obj2gco(f->upvals[n - 1]); name = p->upvalues[n-1].name; return (name == NULL) ? "" : getstr(name); } default: return NULL; /* not a closure */ } } LUA_API const char *lua_getupvalue (lua_State *L, int funcindex, int n) { const char *name; TValue *val = NULL; /* to avoid warnings */ lua_lock(L); name = aux_upvalue(index2addr(L, funcindex), n, &val, NULL); if (name) { setobj2s(L, L->top, val); api_incr_top(L); } lua_unlock(L); return name; } LUA_API const char *lua_setupvalue (lua_State *L, int funcindex, int n) { const char *name; TValue *val = NULL; /* to avoid warnings */ GCObject *owner = NULL; /* to avoid warnings */ StkId fi; lua_lock(L); fi = index2addr(L, funcindex); api_checknelems(L, 1); name = aux_upvalue(fi, n, &val, &owner); if (name) { L->top--; setobj(L, val, L->top); luaC_barrier(L, owner, L->top); } lua_unlock(L); return name; } static UpVal **getupvalref (lua_State *L, int fidx, int n, LClosure **pf) { LClosure *f; StkId fi = index2addr(L, fidx); api_check(L, ttisLclosure(fi), "Lua function expected"); f = clLvalue(fi); api_check(L, (1 <= n && n <= f->p->sizeupvalues), "invalid upvalue index"); if (pf) *pf = f; return &f->upvals[n - 1]; /* get its upvalue pointer */ } LUA_API void *lua_upvalueid (lua_State *L, int fidx, int n) { StkId fi = index2addr(L, fidx); switch (ttype(fi)) { case LUA_TLCL: { /* lua closure */ return *getupvalref(L, fidx, n, NULL); } case LUA_TCCL: { /* C closure */ CClosure *f = clCvalue(fi); api_check(L, 1 <= n && n <= f->nupvalues, "invalid upvalue index"); return &f->upvalue[n - 1]; } default: { api_check(L, 0, "closure expected"); return NULL; } } } LUA_API void lua_upvaluejoin (lua_State *L, int fidx1, int n1, int fidx2, int n2) { LClosure *f1; UpVal **up1 = getupvalref(L, fidx1, n1, &f1); UpVal **up2 = getupvalref(L, fidx2, n2, NULL); *up1 = *up2; luaC_objbarrier(L, f1, *up2); } april-ann-0.3.1/lua/lua-5.2.2/src/lapi.h000066400000000000000000000010351234204160600172620ustar00rootroot00000000000000/* ** $Id: lapi.h,v 2.7 2009/11/27 15:37:59 roberto Exp $ ** Auxiliary functions from Lua API ** See Copyright Notice in lua.h */ #ifndef lapi_h #define lapi_h #include "llimits.h" #include "lstate.h" #define api_incr_top(L) {L->top++; api_check(L, L->top <= L->ci->top, \ "stack overflow");} #define adjustresults(L,nres) \ { if ((nres) == LUA_MULTRET && L->ci->top < L->top) L->ci->top = L->top; } #define api_checknelems(L,n) api_check(L, (n) < (L->top - L->ci->func), \ "not enough elements in the stack") #endif april-ann-0.3.1/lua/lua-5.2.2/src/lauxlib.c000066400000000000000000000656211234204160600200030ustar00rootroot00000000000000/* ** $Id: lauxlib.c,v 1.248 2013/03/21 13:54:57 roberto Exp $ ** Auxiliary functions for building Lua libraries ** See Copyright Notice in lua.h */ #include #include #include #include #include /* This file uses only the official API of Lua. ** Any function declared here could be written as an application function. */ #define lauxlib_c #define LUA_LIB #include "lua.h" #include "lauxlib.h" /* ** {====================================================== ** Traceback ** ======================================================= */ #define LEVELS1 12 /* size of the first part of the stack */ #define LEVELS2 10 /* size of the second part of the stack */ /* ** search for 'objidx' in table at index -1. ** return 1 + string at top if find a good name. */ static int findfield (lua_State *L, int objidx, int level) { if (level == 0 || !lua_istable(L, -1)) return 0; /* not found */ lua_pushnil(L); /* start 'next' loop */ while (lua_next(L, -2)) { /* for each pair in table */ if (lua_type(L, -2) == LUA_TSTRING) { /* ignore non-string keys */ if (lua_rawequal(L, objidx, -1)) { /* found object? */ lua_pop(L, 1); /* remove value (but keep name) */ return 1; } else if (findfield(L, objidx, level - 1)) { /* try recursively */ lua_remove(L, -2); /* remove table (but keep name) */ lua_pushliteral(L, "."); lua_insert(L, -2); /* place '.' between the two names */ lua_concat(L, 3); return 1; } } lua_pop(L, 1); /* remove value */ } return 0; /* not found */ } static int pushglobalfuncname (lua_State *L, lua_Debug *ar) { int top = lua_gettop(L); lua_getinfo(L, "f", ar); /* push function */ lua_pushglobaltable(L); if (findfield(L, top + 1, 2)) { lua_copy(L, -1, top + 1); /* move name to proper place */ lua_pop(L, 2); /* remove pushed values */ return 1; } else { lua_settop(L, top); /* remove function and global table */ return 0; } } static void pushfuncname (lua_State *L, lua_Debug *ar) { if (*ar->namewhat != '\0') /* is there a name? */ lua_pushfstring(L, "function " LUA_QS, ar->name); else if (*ar->what == 'm') /* main? */ lua_pushliteral(L, "main chunk"); else if (*ar->what == 'C') { if (pushglobalfuncname(L, ar)) { lua_pushfstring(L, "function " LUA_QS, lua_tostring(L, -1)); lua_remove(L, -2); /* remove name */ } else lua_pushliteral(L, "?"); } else lua_pushfstring(L, "function <%s:%d>", ar->short_src, ar->linedefined); } static int countlevels (lua_State *L) { lua_Debug ar; int li = 1, le = 1; /* find an upper bound */ while (lua_getstack(L, le, &ar)) { li = le; le *= 2; } /* do a binary search */ while (li < le) { int m = (li + le)/2; if (lua_getstack(L, m, &ar)) li = m + 1; else le = m; } return le - 1; } LUALIB_API void luaL_traceback (lua_State *L, lua_State *L1, const char *msg, int level) { lua_Debug ar; int top = lua_gettop(L); int numlevels = countlevels(L1); int mark = (numlevels > LEVELS1 + LEVELS2) ? LEVELS1 : 0; if (msg) lua_pushfstring(L, "%s\n", msg); lua_pushliteral(L, "stack traceback:"); while (lua_getstack(L1, level++, &ar)) { if (level == mark) { /* too many levels? */ lua_pushliteral(L, "\n\t..."); /* add a '...' */ level = numlevels - LEVELS2; /* and skip to last ones */ } else { lua_getinfo(L1, "Slnt", &ar); lua_pushfstring(L, "\n\t%s:", ar.short_src); if (ar.currentline > 0) lua_pushfstring(L, "%d:", ar.currentline); lua_pushliteral(L, " in "); pushfuncname(L, &ar); if (ar.istailcall) lua_pushliteral(L, "\n\t(...tail calls...)"); lua_concat(L, lua_gettop(L) - top); } } lua_concat(L, lua_gettop(L) - top); } /* }====================================================== */ /* ** {====================================================== ** Error-report functions ** ======================================================= */ LUALIB_API int luaL_argerror (lua_State *L, int narg, const char *extramsg) { lua_Debug ar; if (!lua_getstack(L, 0, &ar)) /* no stack frame? */ return luaL_error(L, "bad argument #%d (%s)", narg, extramsg); lua_getinfo(L, "n", &ar); if (strcmp(ar.namewhat, "method") == 0) { narg--; /* do not count `self' */ if (narg == 0) /* error is in the self argument itself? */ return luaL_error(L, "calling " LUA_QS " on bad self (%s)", ar.name, extramsg); } if (ar.name == NULL) ar.name = (pushglobalfuncname(L, &ar)) ? lua_tostring(L, -1) : "?"; return luaL_error(L, "bad argument #%d to " LUA_QS " (%s)", narg, ar.name, extramsg); } static int typeerror (lua_State *L, int narg, const char *tname) { const char *msg = lua_pushfstring(L, "%s expected, got %s", tname, luaL_typename(L, narg)); return luaL_argerror(L, narg, msg); } static void tag_error (lua_State *L, int narg, int tag) { typeerror(L, narg, lua_typename(L, tag)); } LUALIB_API void luaL_where (lua_State *L, int level) { lua_Debug ar; if (lua_getstack(L, level, &ar)) { /* check function at level */ lua_getinfo(L, "Sl", &ar); /* get info about it */ if (ar.currentline > 0) { /* is there info? */ lua_pushfstring(L, "%s:%d: ", ar.short_src, ar.currentline); return; } } lua_pushliteral(L, ""); /* else, no information available... */ } LUALIB_API int luaL_error (lua_State *L, const char *fmt, ...) { va_list argp; va_start(argp, fmt); luaL_where(L, 1); lua_pushvfstring(L, fmt, argp); va_end(argp); lua_concat(L, 2); return lua_error(L); } LUALIB_API int luaL_fileresult (lua_State *L, int stat, const char *fname) { int en = errno; /* calls to Lua API may change this value */ if (stat) { lua_pushboolean(L, 1); return 1; } else { lua_pushnil(L); if (fname) lua_pushfstring(L, "%s: %s", fname, strerror(en)); else lua_pushstring(L, strerror(en)); lua_pushinteger(L, en); return 3; } } #if !defined(inspectstat) /* { */ #if defined(LUA_USE_POSIX) #include /* ** use appropriate macros to interpret 'pclose' return status */ #define inspectstat(stat,what) \ if (WIFEXITED(stat)) { stat = WEXITSTATUS(stat); } \ else if (WIFSIGNALED(stat)) { stat = WTERMSIG(stat); what = "signal"; } #else #define inspectstat(stat,what) /* no op */ #endif #endif /* } */ LUALIB_API int luaL_execresult (lua_State *L, int stat) { const char *what = "exit"; /* type of termination */ if (stat == -1) /* error? */ return luaL_fileresult(L, 0, NULL); else { inspectstat(stat, what); /* interpret result */ if (*what == 'e' && stat == 0) /* successful termination? */ lua_pushboolean(L, 1); else lua_pushnil(L); lua_pushstring(L, what); lua_pushinteger(L, stat); return 3; /* return true/nil,what,code */ } } /* }====================================================== */ /* ** {====================================================== ** Userdata's metatable manipulation ** ======================================================= */ LUALIB_API int luaL_newmetatable (lua_State *L, const char *tname) { luaL_getmetatable(L, tname); /* try to get metatable */ if (!lua_isnil(L, -1)) /* name already in use? */ return 0; /* leave previous value on top, but return 0 */ lua_pop(L, 1); lua_newtable(L); /* create metatable */ lua_pushvalue(L, -1); lua_setfield(L, LUA_REGISTRYINDEX, tname); /* registry.name = metatable */ return 1; } LUALIB_API void luaL_setmetatable (lua_State *L, const char *tname) { luaL_getmetatable(L, tname); lua_setmetatable(L, -2); } LUALIB_API void *luaL_testudata (lua_State *L, int ud, const char *tname) { void *p = lua_touserdata(L, ud); if (p != NULL) { /* value is a userdata? */ if (lua_getmetatable(L, ud)) { /* does it have a metatable? */ luaL_getmetatable(L, tname); /* get correct metatable */ if (!lua_rawequal(L, -1, -2)) /* not the same? */ p = NULL; /* value is a userdata with wrong metatable */ lua_pop(L, 2); /* remove both metatables */ return p; } } return NULL; /* value is not a userdata with a metatable */ } LUALIB_API void *luaL_checkudata (lua_State *L, int ud, const char *tname) { void *p = luaL_testudata(L, ud, tname); if (p == NULL) typeerror(L, ud, tname); return p; } /* }====================================================== */ /* ** {====================================================== ** Argument check functions ** ======================================================= */ LUALIB_API int luaL_checkoption (lua_State *L, int narg, const char *def, const char *const lst[]) { const char *name = (def) ? luaL_optstring(L, narg, def) : luaL_checkstring(L, narg); int i; for (i=0; lst[i]; i++) if (strcmp(lst[i], name) == 0) return i; return luaL_argerror(L, narg, lua_pushfstring(L, "invalid option " LUA_QS, name)); } LUALIB_API void luaL_checkstack (lua_State *L, int space, const char *msg) { /* keep some extra space to run error routines, if needed */ const int extra = LUA_MINSTACK; if (!lua_checkstack(L, space + extra)) { if (msg) luaL_error(L, "stack overflow (%s)", msg); else luaL_error(L, "stack overflow"); } } LUALIB_API void luaL_checktype (lua_State *L, int narg, int t) { if (lua_type(L, narg) != t) tag_error(L, narg, t); } LUALIB_API void luaL_checkany (lua_State *L, int narg) { if (lua_type(L, narg) == LUA_TNONE) luaL_argerror(L, narg, "value expected"); } LUALIB_API const char *luaL_checklstring (lua_State *L, int narg, size_t *len) { const char *s = lua_tolstring(L, narg, len); if (!s) tag_error(L, narg, LUA_TSTRING); return s; } LUALIB_API const char *luaL_optlstring (lua_State *L, int narg, const char *def, size_t *len) { if (lua_isnoneornil(L, narg)) { if (len) *len = (def ? strlen(def) : 0); return def; } else return luaL_checklstring(L, narg, len); } LUALIB_API lua_Number luaL_checknumber (lua_State *L, int narg) { int isnum; lua_Number d = lua_tonumberx(L, narg, &isnum); if (!isnum) tag_error(L, narg, LUA_TNUMBER); return d; } LUALIB_API lua_Number luaL_optnumber (lua_State *L, int narg, lua_Number def) { return luaL_opt(L, luaL_checknumber, narg, def); } LUALIB_API lua_Integer luaL_checkinteger (lua_State *L, int narg) { int isnum; lua_Integer d = lua_tointegerx(L, narg, &isnum); if (!isnum) tag_error(L, narg, LUA_TNUMBER); return d; } LUALIB_API lua_Unsigned luaL_checkunsigned (lua_State *L, int narg) { int isnum; lua_Unsigned d = lua_tounsignedx(L, narg, &isnum); if (!isnum) tag_error(L, narg, LUA_TNUMBER); return d; } LUALIB_API lua_Integer luaL_optinteger (lua_State *L, int narg, lua_Integer def) { return luaL_opt(L, luaL_checkinteger, narg, def); } LUALIB_API lua_Unsigned luaL_optunsigned (lua_State *L, int narg, lua_Unsigned def) { return luaL_opt(L, luaL_checkunsigned, narg, def); } /* }====================================================== */ /* ** {====================================================== ** Generic Buffer manipulation ** ======================================================= */ /* ** check whether buffer is using a userdata on the stack as a temporary ** buffer */ #define buffonstack(B) ((B)->b != (B)->initb) /* ** returns a pointer to a free area with at least 'sz' bytes */ LUALIB_API char *luaL_prepbuffsize (luaL_Buffer *B, size_t sz) { lua_State *L = B->L; if (B->size - B->n < sz) { /* not enough space? */ char *newbuff; size_t newsize = B->size * 2; /* double buffer size */ if (newsize - B->n < sz) /* not big enough? */ newsize = B->n + sz; if (newsize < B->n || newsize - B->n < sz) luaL_error(L, "buffer too large"); /* create larger buffer */ newbuff = (char *)lua_newuserdata(L, newsize * sizeof(char)); /* move content to new buffer */ memcpy(newbuff, B->b, B->n * sizeof(char)); if (buffonstack(B)) lua_remove(L, -2); /* remove old buffer */ B->b = newbuff; B->size = newsize; } return &B->b[B->n]; } LUALIB_API void luaL_addlstring (luaL_Buffer *B, const char *s, size_t l) { char *b = luaL_prepbuffsize(B, l); memcpy(b, s, l * sizeof(char)); luaL_addsize(B, l); } LUALIB_API void luaL_addstring (luaL_Buffer *B, const char *s) { luaL_addlstring(B, s, strlen(s)); } LUALIB_API void luaL_pushresult (luaL_Buffer *B) { lua_State *L = B->L; lua_pushlstring(L, B->b, B->n); if (buffonstack(B)) lua_remove(L, -2); /* remove old buffer */ } LUALIB_API void luaL_pushresultsize (luaL_Buffer *B, size_t sz) { luaL_addsize(B, sz); luaL_pushresult(B); } LUALIB_API void luaL_addvalue (luaL_Buffer *B) { lua_State *L = B->L; size_t l; const char *s = lua_tolstring(L, -1, &l); if (buffonstack(B)) lua_insert(L, -2); /* put value below buffer */ luaL_addlstring(B, s, l); lua_remove(L, (buffonstack(B)) ? -2 : -1); /* remove value */ } LUALIB_API void luaL_buffinit (lua_State *L, luaL_Buffer *B) { B->L = L; B->b = B->initb; B->n = 0; B->size = LUAL_BUFFERSIZE; } LUALIB_API char *luaL_buffinitsize (lua_State *L, luaL_Buffer *B, size_t sz) { luaL_buffinit(L, B); return luaL_prepbuffsize(B, sz); } /* }====================================================== */ /* ** {====================================================== ** Reference system ** ======================================================= */ /* index of free-list header */ #define freelist 0 LUALIB_API int luaL_ref (lua_State *L, int t) { int ref; if (lua_isnil(L, -1)) { lua_pop(L, 1); /* remove from stack */ return LUA_REFNIL; /* `nil' has a unique fixed reference */ } t = lua_absindex(L, t); lua_rawgeti(L, t, freelist); /* get first free element */ ref = (int)lua_tointeger(L, -1); /* ref = t[freelist] */ lua_pop(L, 1); /* remove it from stack */ if (ref != 0) { /* any free element? */ lua_rawgeti(L, t, ref); /* remove it from list */ lua_rawseti(L, t, freelist); /* (t[freelist] = t[ref]) */ } else /* no free elements */ ref = (int)lua_rawlen(L, t) + 1; /* get a new reference */ lua_rawseti(L, t, ref); return ref; } LUALIB_API void luaL_unref (lua_State *L, int t, int ref) { if (ref >= 0) { t = lua_absindex(L, t); lua_rawgeti(L, t, freelist); lua_rawseti(L, t, ref); /* t[ref] = t[freelist] */ lua_pushinteger(L, ref); lua_rawseti(L, t, freelist); /* t[freelist] = ref */ } } /* }====================================================== */ /* ** {====================================================== ** Load functions ** ======================================================= */ typedef struct LoadF { int n; /* number of pre-read characters */ FILE *f; /* file being read */ char buff[LUAL_BUFFERSIZE]; /* area for reading file */ } LoadF; static const char *getF (lua_State *L, void *ud, size_t *size) { LoadF *lf = (LoadF *)ud; (void)L; /* not used */ if (lf->n > 0) { /* are there pre-read characters to be read? */ *size = lf->n; /* return them (chars already in buffer) */ lf->n = 0; /* no more pre-read characters */ } else { /* read a block from file */ /* 'fread' can return > 0 *and* set the EOF flag. If next call to 'getF' called 'fread', it might still wait for user input. The next check avoids this problem. */ if (feof(lf->f)) return NULL; *size = fread(lf->buff, 1, sizeof(lf->buff), lf->f); /* read block */ } return lf->buff; } static int errfile (lua_State *L, const char *what, int fnameindex) { const char *serr = strerror(errno); const char *filename = lua_tostring(L, fnameindex) + 1; lua_pushfstring(L, "cannot %s %s: %s", what, filename, serr); lua_remove(L, fnameindex); return LUA_ERRFILE; } static int skipBOM (LoadF *lf) { const char *p = "\xEF\xBB\xBF"; /* Utf8 BOM mark */ int c; lf->n = 0; do { c = getc(lf->f); if (c == EOF || c != *(const unsigned char *)p++) return c; lf->buff[lf->n++] = c; /* to be read by the parser */ } while (*p != '\0'); lf->n = 0; /* prefix matched; discard it */ return getc(lf->f); /* return next character */ } /* ** reads the first character of file 'f' and skips an optional BOM mark ** in its beginning plus its first line if it starts with '#'. Returns ** true if it skipped the first line. In any case, '*cp' has the ** first "valid" character of the file (after the optional BOM and ** a first-line comment). */ static int skipcomment (LoadF *lf, int *cp) { int c = *cp = skipBOM(lf); if (c == '#') { /* first line is a comment (Unix exec. file)? */ do { /* skip first line */ c = getc(lf->f); } while (c != EOF && c != '\n') ; *cp = getc(lf->f); /* skip end-of-line, if present */ return 1; /* there was a comment */ } else return 0; /* no comment */ } LUALIB_API int luaL_loadfilex (lua_State *L, const char *filename, const char *mode) { LoadF lf; int status, readstatus; int c; int fnameindex = lua_gettop(L) + 1; /* index of filename on the stack */ if (filename == NULL) { lua_pushliteral(L, "=stdin"); lf.f = stdin; } else { lua_pushfstring(L, "@%s", filename); lf.f = fopen(filename, "r"); if (lf.f == NULL) return errfile(L, "open", fnameindex); } if (skipcomment(&lf, &c)) /* read initial portion */ lf.buff[lf.n++] = '\n'; /* add line to correct line numbers */ if (c == LUA_SIGNATURE[0] && filename) { /* binary file? */ lf.f = freopen(filename, "rb", lf.f); /* reopen in binary mode */ if (lf.f == NULL) return errfile(L, "reopen", fnameindex); skipcomment(&lf, &c); /* re-read initial portion */ } if (c != EOF) lf.buff[lf.n++] = c; /* 'c' is the first character of the stream */ status = lua_load(L, getF, &lf, lua_tostring(L, -1), mode); readstatus = ferror(lf.f); if (filename) fclose(lf.f); /* close file (even in case of errors) */ if (readstatus) { lua_settop(L, fnameindex); /* ignore results from `lua_load' */ return errfile(L, "read", fnameindex); } lua_remove(L, fnameindex); return status; } typedef struct LoadS { const char *s; size_t size; } LoadS; static const char *getS (lua_State *L, void *ud, size_t *size) { LoadS *ls = (LoadS *)ud; (void)L; /* not used */ if (ls->size == 0) return NULL; *size = ls->size; ls->size = 0; return ls->s; } LUALIB_API int luaL_loadbufferx (lua_State *L, const char *buff, size_t size, const char *name, const char *mode) { LoadS ls; ls.s = buff; ls.size = size; return lua_load(L, getS, &ls, name, mode); } LUALIB_API int luaL_loadstring (lua_State *L, const char *s) { return luaL_loadbuffer(L, s, strlen(s), s); } /* }====================================================== */ LUALIB_API int luaL_getmetafield (lua_State *L, int obj, const char *event) { if (!lua_getmetatable(L, obj)) /* no metatable? */ return 0; lua_pushstring(L, event); lua_rawget(L, -2); if (lua_isnil(L, -1)) { lua_pop(L, 2); /* remove metatable and metafield */ return 0; } else { lua_remove(L, -2); /* remove only metatable */ return 1; } } LUALIB_API int luaL_callmeta (lua_State *L, int obj, const char *event) { obj = lua_absindex(L, obj); if (!luaL_getmetafield(L, obj, event)) /* no metafield? */ return 0; lua_pushvalue(L, obj); lua_call(L, 1, 1); return 1; } LUALIB_API int luaL_len (lua_State *L, int idx) { int l; int isnum; lua_len(L, idx); l = (int)lua_tointegerx(L, -1, &isnum); if (!isnum) luaL_error(L, "object length is not a number"); lua_pop(L, 1); /* remove object */ return l; } LUALIB_API const char *luaL_tolstring (lua_State *L, int idx, size_t *len) { if (!luaL_callmeta(L, idx, "__tostring")) { /* no metafield? */ switch (lua_type(L, idx)) { case LUA_TNUMBER: case LUA_TSTRING: lua_pushvalue(L, idx); break; case LUA_TBOOLEAN: lua_pushstring(L, (lua_toboolean(L, idx) ? "true" : "false")); break; case LUA_TNIL: lua_pushliteral(L, "nil"); break; default: lua_pushfstring(L, "%s: %p", luaL_typename(L, idx), lua_topointer(L, idx)); break; } } return lua_tolstring(L, -1, len); } /* ** {====================================================== ** Compatibility with 5.1 module functions ** ======================================================= */ #if defined(LUA_COMPAT_MODULE) static const char *luaL_findtable (lua_State *L, int idx, const char *fname, int szhint) { const char *e; if (idx) lua_pushvalue(L, idx); do { e = strchr(fname, '.'); if (e == NULL) e = fname + strlen(fname); lua_pushlstring(L, fname, e - fname); lua_rawget(L, -2); if (lua_isnil(L, -1)) { /* no such field? */ lua_pop(L, 1); /* remove this nil */ lua_createtable(L, 0, (*e == '.' ? 1 : szhint)); /* new table for field */ lua_pushlstring(L, fname, e - fname); lua_pushvalue(L, -2); lua_settable(L, -4); /* set new table into field */ } else if (!lua_istable(L, -1)) { /* field has a non-table value? */ lua_pop(L, 2); /* remove table and value */ return fname; /* return problematic part of the name */ } lua_remove(L, -2); /* remove previous table */ fname = e + 1; } while (*e == '.'); return NULL; } /* ** Count number of elements in a luaL_Reg list. */ static int libsize (const luaL_Reg *l) { int size = 0; for (; l && l->name; l++) size++; return size; } /* ** Find or create a module table with a given name. The function ** first looks at the _LOADED table and, if that fails, try a ** global variable with that name. In any case, leaves on the stack ** the module table. */ LUALIB_API void luaL_pushmodule (lua_State *L, const char *modname, int sizehint) { luaL_findtable(L, LUA_REGISTRYINDEX, "_LOADED", 1); /* get _LOADED table */ lua_getfield(L, -1, modname); /* get _LOADED[modname] */ if (!lua_istable(L, -1)) { /* not found? */ lua_pop(L, 1); /* remove previous result */ /* try global variable (and create one if it does not exist) */ lua_pushglobaltable(L); if (luaL_findtable(L, 0, modname, sizehint) != NULL) luaL_error(L, "name conflict for module " LUA_QS, modname); lua_pushvalue(L, -1); lua_setfield(L, -3, modname); /* _LOADED[modname] = new table */ } lua_remove(L, -2); /* remove _LOADED table */ } LUALIB_API void luaL_openlib (lua_State *L, const char *libname, const luaL_Reg *l, int nup) { luaL_checkversion(L); if (libname) { luaL_pushmodule(L, libname, libsize(l)); /* get/create library table */ lua_insert(L, -(nup + 1)); /* move library table to below upvalues */ } if (l) luaL_setfuncs(L, l, nup); else lua_pop(L, nup); /* remove upvalues */ } #endif /* }====================================================== */ /* ** set functions from list 'l' into table at top - 'nup'; each ** function gets the 'nup' elements at the top as upvalues. ** Returns with only the table at the stack. */ LUALIB_API void luaL_setfuncs (lua_State *L, const luaL_Reg *l, int nup) { luaL_checkversion(L); luaL_checkstack(L, nup, "too many upvalues"); for (; l->name != NULL; l++) { /* fill the table with given functions */ int i; for (i = 0; i < nup; i++) /* copy upvalues to the top */ lua_pushvalue(L, -nup); lua_pushcclosure(L, l->func, nup); /* closure with those upvalues */ lua_setfield(L, -(nup + 2), l->name); } lua_pop(L, nup); /* remove upvalues */ } /* ** ensure that stack[idx][fname] has a table and push that table ** into the stack */ LUALIB_API int luaL_getsubtable (lua_State *L, int idx, const char *fname) { lua_getfield(L, idx, fname); if (lua_istable(L, -1)) return 1; /* table already there */ else { lua_pop(L, 1); /* remove previous result */ idx = lua_absindex(L, idx); lua_newtable(L); lua_pushvalue(L, -1); /* copy to be left at top */ lua_setfield(L, idx, fname); /* assign new table to field */ return 0; /* false, because did not find table there */ } } /* ** stripped-down 'require'. Calls 'openf' to open a module, ** registers the result in 'package.loaded' table and, if 'glb' ** is true, also registers the result in the global table. ** Leaves resulting module on the top. */ LUALIB_API void luaL_requiref (lua_State *L, const char *modname, lua_CFunction openf, int glb) { lua_pushcfunction(L, openf); lua_pushstring(L, modname); /* argument to open function */ lua_call(L, 1, 1); /* open module */ luaL_getsubtable(L, LUA_REGISTRYINDEX, "_LOADED"); lua_pushvalue(L, -2); /* make copy of module (call result) */ lua_setfield(L, -2, modname); /* _LOADED[modname] = module */ lua_pop(L, 1); /* remove _LOADED table */ if (glb) { lua_pushvalue(L, -1); /* copy of 'mod' */ lua_setglobal(L, modname); /* _G[modname] = module */ } } LUALIB_API const char *luaL_gsub (lua_State *L, const char *s, const char *p, const char *r) { const char *wild; size_t l = strlen(p); luaL_Buffer b; luaL_buffinit(L, &b); while ((wild = strstr(s, p)) != NULL) { luaL_addlstring(&b, s, wild - s); /* push prefix */ luaL_addstring(&b, r); /* push replacement in place of pattern */ s = wild + l; /* continue after `p' */ } luaL_addstring(&b, s); /* push last suffix */ luaL_pushresult(&b); return lua_tostring(L, -1); } static void *l_alloc (void *ud, void *ptr, size_t osize, size_t nsize) { (void)ud; (void)osize; /* not used */ if (nsize == 0) { free(ptr); return NULL; } else return realloc(ptr, nsize); } static int panic (lua_State *L) { luai_writestringerror("PANIC: unprotected error in call to Lua API (%s)\n", lua_tostring(L, -1)); return 0; /* return to Lua to abort */ } LUALIB_API lua_State *luaL_newstate (void) { lua_State *L = lua_newstate(l_alloc, NULL); if (L) lua_atpanic(L, &panic); return L; } LUALIB_API void luaL_checkversion_ (lua_State *L, lua_Number ver) { const lua_Number *v = lua_version(L); if (v != lua_version(NULL)) luaL_error(L, "multiple Lua VMs detected"); else if (*v != ver) luaL_error(L, "version mismatch: app. needs %f, Lua core provides %f", ver, *v); /* check conversions number -> integer types */ lua_pushnumber(L, -(lua_Number)0x1234); if (lua_tointeger(L, -1) != -0x1234 || lua_tounsigned(L, -1) != (lua_Unsigned)-0x1234) luaL_error(L, "bad conversion number->int;" " must recompile Lua with proper settings"); lua_pop(L, 1); } april-ann-0.3.1/lua/lua-5.2.2/src/lauxlib.h000066400000000000000000000162541234204160600200060ustar00rootroot00000000000000/* ** $Id: lauxlib.h,v 1.120 2011/11/29 15:55:08 roberto Exp $ ** Auxiliary functions for building Lua libraries ** See Copyright Notice in lua.h */ #ifndef lauxlib_h #define lauxlib_h #include #include #include "lua.h" /* extra error code for `luaL_load' */ #define LUA_ERRFILE (LUA_ERRERR+1) typedef struct luaL_Reg { const char *name; lua_CFunction func; } luaL_Reg; LUALIB_API void (luaL_checkversion_) (lua_State *L, lua_Number ver); #define luaL_checkversion(L) luaL_checkversion_(L, LUA_VERSION_NUM) LUALIB_API int (luaL_getmetafield) (lua_State *L, int obj, const char *e); LUALIB_API int (luaL_callmeta) (lua_State *L, int obj, const char *e); LUALIB_API const char *(luaL_tolstring) (lua_State *L, int idx, size_t *len); LUALIB_API int (luaL_argerror) (lua_State *L, int numarg, const char *extramsg); LUALIB_API const char *(luaL_checklstring) (lua_State *L, int numArg, size_t *l); LUALIB_API const char *(luaL_optlstring) (lua_State *L, int numArg, const char *def, size_t *l); LUALIB_API lua_Number (luaL_checknumber) (lua_State *L, int numArg); LUALIB_API lua_Number (luaL_optnumber) (lua_State *L, int nArg, lua_Number def); LUALIB_API lua_Integer (luaL_checkinteger) (lua_State *L, int numArg); LUALIB_API lua_Integer (luaL_optinteger) (lua_State *L, int nArg, lua_Integer def); LUALIB_API lua_Unsigned (luaL_checkunsigned) (lua_State *L, int numArg); LUALIB_API lua_Unsigned (luaL_optunsigned) (lua_State *L, int numArg, lua_Unsigned def); LUALIB_API void (luaL_checkstack) (lua_State *L, int sz, const char *msg); LUALIB_API void (luaL_checktype) (lua_State *L, int narg, int t); LUALIB_API void (luaL_checkany) (lua_State *L, int narg); LUALIB_API int (luaL_newmetatable) (lua_State *L, const char *tname); LUALIB_API void (luaL_setmetatable) (lua_State *L, const char *tname); LUALIB_API void *(luaL_testudata) (lua_State *L, int ud, const char *tname); LUALIB_API void *(luaL_checkudata) (lua_State *L, int ud, const char *tname); LUALIB_API void (luaL_where) (lua_State *L, int lvl); LUALIB_API int (luaL_error) (lua_State *L, const char *fmt, ...); LUALIB_API int (luaL_checkoption) (lua_State *L, int narg, const char *def, const char *const lst[]); LUALIB_API int (luaL_fileresult) (lua_State *L, int stat, const char *fname); LUALIB_API int (luaL_execresult) (lua_State *L, int stat); /* pre-defined references */ #define LUA_NOREF (-2) #define LUA_REFNIL (-1) LUALIB_API int (luaL_ref) (lua_State *L, int t); LUALIB_API void (luaL_unref) (lua_State *L, int t, int ref); LUALIB_API int (luaL_loadfilex) (lua_State *L, const char *filename, const char *mode); #define luaL_loadfile(L,f) luaL_loadfilex(L,f,NULL) LUALIB_API int (luaL_loadbufferx) (lua_State *L, const char *buff, size_t sz, const char *name, const char *mode); LUALIB_API int (luaL_loadstring) (lua_State *L, const char *s); LUALIB_API lua_State *(luaL_newstate) (void); LUALIB_API int (luaL_len) (lua_State *L, int idx); LUALIB_API const char *(luaL_gsub) (lua_State *L, const char *s, const char *p, const char *r); LUALIB_API void (luaL_setfuncs) (lua_State *L, const luaL_Reg *l, int nup); LUALIB_API int (luaL_getsubtable) (lua_State *L, int idx, const char *fname); LUALIB_API void (luaL_traceback) (lua_State *L, lua_State *L1, const char *msg, int level); LUALIB_API void (luaL_requiref) (lua_State *L, const char *modname, lua_CFunction openf, int glb); /* ** =============================================================== ** some useful macros ** =============================================================== */ #define luaL_newlibtable(L,l) \ lua_createtable(L, 0, sizeof(l)/sizeof((l)[0]) - 1) #define luaL_newlib(L,l) (luaL_newlibtable(L,l), luaL_setfuncs(L,l,0)) #define luaL_argcheck(L, cond,numarg,extramsg) \ ((void)((cond) || luaL_argerror(L, (numarg), (extramsg)))) #define luaL_checkstring(L,n) (luaL_checklstring(L, (n), NULL)) #define luaL_optstring(L,n,d) (luaL_optlstring(L, (n), (d), NULL)) #define luaL_checkint(L,n) ((int)luaL_checkinteger(L, (n))) #define luaL_optint(L,n,d) ((int)luaL_optinteger(L, (n), (d))) #define luaL_checklong(L,n) ((long)luaL_checkinteger(L, (n))) #define luaL_optlong(L,n,d) ((long)luaL_optinteger(L, (n), (d))) #define luaL_typename(L,i) lua_typename(L, lua_type(L,(i))) #define luaL_dofile(L, fn) \ (luaL_loadfile(L, fn) || lua_pcall(L, 0, LUA_MULTRET, 0)) #define luaL_dostring(L, s) \ (luaL_loadstring(L, s) || lua_pcall(L, 0, LUA_MULTRET, 0)) #define luaL_getmetatable(L,n) (lua_getfield(L, LUA_REGISTRYINDEX, (n))) #define luaL_opt(L,f,n,d) (lua_isnoneornil(L,(n)) ? (d) : f(L,(n))) #define luaL_loadbuffer(L,s,sz,n) luaL_loadbufferx(L,s,sz,n,NULL) /* ** {====================================================== ** Generic Buffer manipulation ** ======================================================= */ typedef struct luaL_Buffer { char *b; /* buffer address */ size_t size; /* buffer size */ size_t n; /* number of characters in buffer */ lua_State *L; char initb[LUAL_BUFFERSIZE]; /* initial buffer */ } luaL_Buffer; #define luaL_addchar(B,c) \ ((void)((B)->n < (B)->size || luaL_prepbuffsize((B), 1)), \ ((B)->b[(B)->n++] = (c))) #define luaL_addsize(B,s) ((B)->n += (s)) LUALIB_API void (luaL_buffinit) (lua_State *L, luaL_Buffer *B); LUALIB_API char *(luaL_prepbuffsize) (luaL_Buffer *B, size_t sz); LUALIB_API void (luaL_addlstring) (luaL_Buffer *B, const char *s, size_t l); LUALIB_API void (luaL_addstring) (luaL_Buffer *B, const char *s); LUALIB_API void (luaL_addvalue) (luaL_Buffer *B); LUALIB_API void (luaL_pushresult) (luaL_Buffer *B); LUALIB_API void (luaL_pushresultsize) (luaL_Buffer *B, size_t sz); LUALIB_API char *(luaL_buffinitsize) (lua_State *L, luaL_Buffer *B, size_t sz); #define luaL_prepbuffer(B) luaL_prepbuffsize(B, LUAL_BUFFERSIZE) /* }====================================================== */ /* ** {====================================================== ** File handles for IO library ** ======================================================= */ /* ** A file handle is a userdata with metatable 'LUA_FILEHANDLE' and ** initial structure 'luaL_Stream' (it may contain other fields ** after that initial structure). */ #define LUA_FILEHANDLE "FILE*" typedef struct luaL_Stream { FILE *f; /* stream (NULL for incompletely created streams) */ lua_CFunction closef; /* to close stream (NULL for closed streams) */ } luaL_Stream; /* }====================================================== */ /* compatibility with old module system */ #if defined(LUA_COMPAT_MODULE) LUALIB_API void (luaL_pushmodule) (lua_State *L, const char *modname, int sizehint); LUALIB_API void (luaL_openlib) (lua_State *L, const char *libname, const luaL_Reg *l, int nup); #define luaL_register(L,n,l) (luaL_openlib(L,(n),(l),0)) #endif #endif april-ann-0.3.1/lua/lua-5.2.2/src/lbaselib.c000066400000000000000000000277711234204160600201240ustar00rootroot00000000000000/* ** $Id: lbaselib.c,v 1.276 2013/02/21 13:44:53 roberto Exp $ ** Basic library ** See Copyright Notice in lua.h */ #include #include #include #include #define lbaselib_c #define LUA_LIB #include "lua.h" #include "lauxlib.h" #include "lualib.h" static int luaB_print (lua_State *L) { int n = lua_gettop(L); /* number of arguments */ int i; lua_getglobal(L, "tostring"); for (i=1; i<=n; i++) { const char *s; size_t l; lua_pushvalue(L, -1); /* function to be called */ lua_pushvalue(L, i); /* value to print */ lua_call(L, 1, 1); s = lua_tolstring(L, -1, &l); /* get result */ if (s == NULL) return luaL_error(L, LUA_QL("tostring") " must return a string to " LUA_QL("print")); if (i>1) luai_writestring("\t", 1); luai_writestring(s, l); lua_pop(L, 1); /* pop result */ } luai_writeline(); return 0; } #define SPACECHARS " \f\n\r\t\v" static int luaB_tonumber (lua_State *L) { if (lua_isnoneornil(L, 2)) { /* standard conversion */ int isnum; lua_Number n = lua_tonumberx(L, 1, &isnum); if (isnum) { lua_pushnumber(L, n); return 1; } /* else not a number; must be something */ luaL_checkany(L, 1); } else { size_t l; const char *s = luaL_checklstring(L, 1, &l); const char *e = s + l; /* end point for 's' */ int base = luaL_checkint(L, 2); int neg = 0; luaL_argcheck(L, 2 <= base && base <= 36, 2, "base out of range"); s += strspn(s, SPACECHARS); /* skip initial spaces */ if (*s == '-') { s++; neg = 1; } /* handle signal */ else if (*s == '+') s++; if (isalnum((unsigned char)*s)) { lua_Number n = 0; do { int digit = (isdigit((unsigned char)*s)) ? *s - '0' : toupper((unsigned char)*s) - 'A' + 10; if (digit >= base) break; /* invalid numeral; force a fail */ n = n * (lua_Number)base + (lua_Number)digit; s++; } while (isalnum((unsigned char)*s)); s += strspn(s, SPACECHARS); /* skip trailing spaces */ if (s == e) { /* no invalid trailing characters? */ lua_pushnumber(L, (neg) ? -n : n); return 1; } /* else not a number */ } /* else not a number */ } lua_pushnil(L); /* not a number */ return 1; } static int luaB_error (lua_State *L) { int level = luaL_optint(L, 2, 1); lua_settop(L, 1); if (lua_isstring(L, 1) && level > 0) { /* add extra information? */ luaL_where(L, level); lua_pushvalue(L, 1); lua_concat(L, 2); } return lua_error(L); } static int luaB_getmetatable (lua_State *L) { luaL_checkany(L, 1); if (!lua_getmetatable(L, 1)) { lua_pushnil(L); return 1; /* no metatable */ } luaL_getmetafield(L, 1, "__metatable"); return 1; /* returns either __metatable field (if present) or metatable */ } static int luaB_setmetatable (lua_State *L) { int t = lua_type(L, 2); luaL_checktype(L, 1, LUA_TTABLE); luaL_argcheck(L, t == LUA_TNIL || t == LUA_TTABLE, 2, "nil or table expected"); if (luaL_getmetafield(L, 1, "__metatable")) return luaL_error(L, "cannot change a protected metatable"); lua_settop(L, 2); lua_setmetatable(L, 1); return 1; } static int luaB_rawequal (lua_State *L) { luaL_checkany(L, 1); luaL_checkany(L, 2); lua_pushboolean(L, lua_rawequal(L, 1, 2)); return 1; } static int luaB_rawlen (lua_State *L) { int t = lua_type(L, 1); luaL_argcheck(L, t == LUA_TTABLE || t == LUA_TSTRING, 1, "table or string expected"); lua_pushinteger(L, lua_rawlen(L, 1)); return 1; } static int luaB_rawget (lua_State *L) { luaL_checktype(L, 1, LUA_TTABLE); luaL_checkany(L, 2); lua_settop(L, 2); lua_rawget(L, 1); return 1; } static int luaB_rawset (lua_State *L) { luaL_checktype(L, 1, LUA_TTABLE); luaL_checkany(L, 2); luaL_checkany(L, 3); lua_settop(L, 3); lua_rawset(L, 1); return 1; } static int luaB_collectgarbage (lua_State *L) { static const char *const opts[] = {"stop", "restart", "collect", "count", "step", "setpause", "setstepmul", "setmajorinc", "isrunning", "generational", "incremental", NULL}; static const int optsnum[] = {LUA_GCSTOP, LUA_GCRESTART, LUA_GCCOLLECT, LUA_GCCOUNT, LUA_GCSTEP, LUA_GCSETPAUSE, LUA_GCSETSTEPMUL, LUA_GCSETMAJORINC, LUA_GCISRUNNING, LUA_GCGEN, LUA_GCINC}; int o = optsnum[luaL_checkoption(L, 1, "collect", opts)]; int ex = luaL_optint(L, 2, 0); int res = lua_gc(L, o, ex); switch (o) { case LUA_GCCOUNT: { int b = lua_gc(L, LUA_GCCOUNTB, 0); lua_pushnumber(L, res + ((lua_Number)b/1024)); lua_pushinteger(L, b); return 2; } case LUA_GCSTEP: case LUA_GCISRUNNING: { lua_pushboolean(L, res); return 1; } default: { lua_pushinteger(L, res); return 1; } } } static int luaB_type (lua_State *L) { luaL_checkany(L, 1); lua_pushstring(L, luaL_typename(L, 1)); return 1; } static int pairsmeta (lua_State *L, const char *method, int iszero, lua_CFunction iter) { if (!luaL_getmetafield(L, 1, method)) { /* no metamethod? */ luaL_checktype(L, 1, LUA_TTABLE); /* argument must be a table */ lua_pushcfunction(L, iter); /* will return generator, */ lua_pushvalue(L, 1); /* state, */ if (iszero) lua_pushinteger(L, 0); /* and initial value */ else lua_pushnil(L); } else { lua_pushvalue(L, 1); /* argument 'self' to metamethod */ lua_call(L, 1, 3); /* get 3 values from metamethod */ } return 3; } static int luaB_next (lua_State *L) { luaL_checktype(L, 1, LUA_TTABLE); lua_settop(L, 2); /* create a 2nd argument if there isn't one */ if (lua_next(L, 1)) return 2; else { lua_pushnil(L); return 1; } } static int luaB_pairs (lua_State *L) { return pairsmeta(L, "__pairs", 0, luaB_next); } static int ipairsaux (lua_State *L) { int i = luaL_checkint(L, 2); luaL_checktype(L, 1, LUA_TTABLE); i++; /* next value */ lua_pushinteger(L, i); lua_rawgeti(L, 1, i); return (lua_isnil(L, -1)) ? 1 : 2; } static int luaB_ipairs (lua_State *L) { return pairsmeta(L, "__ipairs", 1, ipairsaux); } static int load_aux (lua_State *L, int status, int envidx) { if (status == LUA_OK) { if (envidx != 0) { /* 'env' parameter? */ lua_pushvalue(L, envidx); /* environment for loaded function */ if (!lua_setupvalue(L, -2, 1)) /* set it as 1st upvalue */ lua_pop(L, 1); /* remove 'env' if not used by previous call */ } return 1; } else { /* error (message is on top of the stack) */ lua_pushnil(L); lua_insert(L, -2); /* put before error message */ return 2; /* return nil plus error message */ } } static int luaB_loadfile (lua_State *L) { const char *fname = luaL_optstring(L, 1, NULL); const char *mode = luaL_optstring(L, 2, NULL); int env = (!lua_isnone(L, 3) ? 3 : 0); /* 'env' index or 0 if no 'env' */ int status = luaL_loadfilex(L, fname, mode); return load_aux(L, status, env); } /* ** {====================================================== ** Generic Read function ** ======================================================= */ /* ** reserved slot, above all arguments, to hold a copy of the returned ** string to avoid it being collected while parsed. 'load' has four ** optional arguments (chunk, source name, mode, and environment). */ #define RESERVEDSLOT 5 /* ** Reader for generic `load' function: `lua_load' uses the ** stack for internal stuff, so the reader cannot change the ** stack top. Instead, it keeps its resulting string in a ** reserved slot inside the stack. */ static const char *generic_reader (lua_State *L, void *ud, size_t *size) { (void)(ud); /* not used */ luaL_checkstack(L, 2, "too many nested functions"); lua_pushvalue(L, 1); /* get function */ lua_call(L, 0, 1); /* call it */ if (lua_isnil(L, -1)) { lua_pop(L, 1); /* pop result */ *size = 0; return NULL; } else if (!lua_isstring(L, -1)) luaL_error(L, "reader function must return a string"); lua_replace(L, RESERVEDSLOT); /* save string in reserved slot */ return lua_tolstring(L, RESERVEDSLOT, size); } static int luaB_load (lua_State *L) { int status; size_t l; const char *s = lua_tolstring(L, 1, &l); const char *mode = luaL_optstring(L, 3, "bt"); int env = (!lua_isnone(L, 4) ? 4 : 0); /* 'env' index or 0 if no 'env' */ if (s != NULL) { /* loading a string? */ const char *chunkname = luaL_optstring(L, 2, s); status = luaL_loadbufferx(L, s, l, chunkname, mode); } else { /* loading from a reader function */ const char *chunkname = luaL_optstring(L, 2, "=(load)"); luaL_checktype(L, 1, LUA_TFUNCTION); lua_settop(L, RESERVEDSLOT); /* create reserved slot */ status = lua_load(L, generic_reader, NULL, chunkname, mode); } return load_aux(L, status, env); } /* }====================================================== */ static int dofilecont (lua_State *L) { return lua_gettop(L) - 1; } static int luaB_dofile (lua_State *L) { const char *fname = luaL_optstring(L, 1, NULL); lua_settop(L, 1); if (luaL_loadfile(L, fname) != LUA_OK) return lua_error(L); lua_callk(L, 0, LUA_MULTRET, 0, dofilecont); return dofilecont(L); } static int luaB_assert (lua_State *L) { if (!lua_toboolean(L, 1)) return luaL_error(L, "%s", luaL_optstring(L, 2, "assertion failed!")); return lua_gettop(L); } static int luaB_select (lua_State *L) { int n = lua_gettop(L); if (lua_type(L, 1) == LUA_TSTRING && *lua_tostring(L, 1) == '#') { lua_pushinteger(L, n-1); return 1; } else { int i = luaL_checkint(L, 1); if (i < 0) i = n + i; else if (i > n) i = n; luaL_argcheck(L, 1 <= i, 1, "index out of range"); return n - i; } } static int finishpcall (lua_State *L, int status) { if (!lua_checkstack(L, 1)) { /* no space for extra boolean? */ lua_settop(L, 0); /* create space for return values */ lua_pushboolean(L, 0); lua_pushstring(L, "stack overflow"); return 2; /* return false, msg */ } lua_pushboolean(L, status); /* first result (status) */ lua_replace(L, 1); /* put first result in first slot */ return lua_gettop(L); } static int pcallcont (lua_State *L) { int status = lua_getctx(L, NULL); return finishpcall(L, (status == LUA_YIELD)); } static int luaB_pcall (lua_State *L) { int status; luaL_checkany(L, 1); lua_pushnil(L); lua_insert(L, 1); /* create space for status result */ status = lua_pcallk(L, lua_gettop(L) - 2, LUA_MULTRET, 0, 0, pcallcont); return finishpcall(L, (status == LUA_OK)); } static int luaB_xpcall (lua_State *L) { int status; int n = lua_gettop(L); luaL_argcheck(L, n >= 2, 2, "value expected"); lua_pushvalue(L, 1); /* exchange function... */ lua_copy(L, 2, 1); /* ...and error handler */ lua_replace(L, 2); status = lua_pcallk(L, n - 2, LUA_MULTRET, 1, 0, pcallcont); return finishpcall(L, (status == LUA_OK)); } static int luaB_tostring (lua_State *L) { luaL_checkany(L, 1); luaL_tolstring(L, 1, NULL); return 1; } static const luaL_Reg base_funcs[] = { {"assert", luaB_assert}, {"collectgarbage", luaB_collectgarbage}, {"dofile", luaB_dofile}, {"error", luaB_error}, {"getmetatable", luaB_getmetatable}, {"ipairs", luaB_ipairs}, {"loadfile", luaB_loadfile}, {"load", luaB_load}, #if defined(LUA_COMPAT_LOADSTRING) {"loadstring", luaB_load}, #endif {"next", luaB_next}, {"pairs", luaB_pairs}, {"pcall", luaB_pcall}, {"print", luaB_print}, {"rawequal", luaB_rawequal}, {"rawlen", luaB_rawlen}, {"rawget", luaB_rawget}, {"rawset", luaB_rawset}, {"select", luaB_select}, {"setmetatable", luaB_setmetatable}, {"tonumber", luaB_tonumber}, {"tostring", luaB_tostring}, {"type", luaB_type}, {"xpcall", luaB_xpcall}, {NULL, NULL} }; LUAMOD_API int luaopen_base (lua_State *L) { /* set global _G */ lua_pushglobaltable(L); lua_pushglobaltable(L); lua_setfield(L, -2, "_G"); /* open lib into global table */ luaL_setfuncs(L, base_funcs, 0); lua_pushliteral(L, LUA_VERSION); lua_setfield(L, -2, "_VERSION"); /* set global _VERSION */ return 1; } april-ann-0.3.1/lua/lua-5.2.2/src/lbitlib.c000066400000000000000000000103141234204160600177510ustar00rootroot00000000000000/* ** $Id: lbitlib.c,v 1.18 2013/03/19 13:19:12 roberto Exp $ ** Standard library for bitwise operations ** See Copyright Notice in lua.h */ #define lbitlib_c #define LUA_LIB #include "lua.h" #include "lauxlib.h" #include "lualib.h" /* number of bits to consider in a number */ #if !defined(LUA_NBITS) #define LUA_NBITS 32 #endif #define ALLONES (~(((~(lua_Unsigned)0) << (LUA_NBITS - 1)) << 1)) /* macro to trim extra bits */ #define trim(x) ((x) & ALLONES) /* builds a number with 'n' ones (1 <= n <= LUA_NBITS) */ #define mask(n) (~((ALLONES << 1) << ((n) - 1))) typedef lua_Unsigned b_uint; static b_uint andaux (lua_State *L) { int i, n = lua_gettop(L); b_uint r = ~(b_uint)0; for (i = 1; i <= n; i++) r &= luaL_checkunsigned(L, i); return trim(r); } static int b_and (lua_State *L) { b_uint r = andaux(L); lua_pushunsigned(L, r); return 1; } static int b_test (lua_State *L) { b_uint r = andaux(L); lua_pushboolean(L, r != 0); return 1; } static int b_or (lua_State *L) { int i, n = lua_gettop(L); b_uint r = 0; for (i = 1; i <= n; i++) r |= luaL_checkunsigned(L, i); lua_pushunsigned(L, trim(r)); return 1; } static int b_xor (lua_State *L) { int i, n = lua_gettop(L); b_uint r = 0; for (i = 1; i <= n; i++) r ^= luaL_checkunsigned(L, i); lua_pushunsigned(L, trim(r)); return 1; } static int b_not (lua_State *L) { b_uint r = ~luaL_checkunsigned(L, 1); lua_pushunsigned(L, trim(r)); return 1; } static int b_shift (lua_State *L, b_uint r, int i) { if (i < 0) { /* shift right? */ i = -i; r = trim(r); if (i >= LUA_NBITS) r = 0; else r >>= i; } else { /* shift left */ if (i >= LUA_NBITS) r = 0; else r <<= i; r = trim(r); } lua_pushunsigned(L, r); return 1; } static int b_lshift (lua_State *L) { return b_shift(L, luaL_checkunsigned(L, 1), luaL_checkint(L, 2)); } static int b_rshift (lua_State *L) { return b_shift(L, luaL_checkunsigned(L, 1), -luaL_checkint(L, 2)); } static int b_arshift (lua_State *L) { b_uint r = luaL_checkunsigned(L, 1); int i = luaL_checkint(L, 2); if (i < 0 || !(r & ((b_uint)1 << (LUA_NBITS - 1)))) return b_shift(L, r, -i); else { /* arithmetic shift for 'negative' number */ if (i >= LUA_NBITS) r = ALLONES; else r = trim((r >> i) | ~(~(b_uint)0 >> i)); /* add signal bit */ lua_pushunsigned(L, r); return 1; } } static int b_rot (lua_State *L, int i) { b_uint r = luaL_checkunsigned(L, 1); i &= (LUA_NBITS - 1); /* i = i % NBITS */ r = trim(r); r = (r << i) | (r >> (LUA_NBITS - i)); lua_pushunsigned(L, trim(r)); return 1; } static int b_lrot (lua_State *L) { return b_rot(L, luaL_checkint(L, 2)); } static int b_rrot (lua_State *L) { return b_rot(L, -luaL_checkint(L, 2)); } /* ** get field and width arguments for field-manipulation functions, ** checking whether they are valid. ** ('luaL_error' called without 'return' to avoid later warnings about ** 'width' being used uninitialized.) */ static int fieldargs (lua_State *L, int farg, int *width) { int f = luaL_checkint(L, farg); int w = luaL_optint(L, farg + 1, 1); luaL_argcheck(L, 0 <= f, farg, "field cannot be negative"); luaL_argcheck(L, 0 < w, farg + 1, "width must be positive"); if (f + w > LUA_NBITS) luaL_error(L, "trying to access non-existent bits"); *width = w; return f; } static int b_extract (lua_State *L) { int w; b_uint r = luaL_checkunsigned(L, 1); int f = fieldargs(L, 2, &w); r = (r >> f) & mask(w); lua_pushunsigned(L, r); return 1; } static int b_replace (lua_State *L) { int w; b_uint r = luaL_checkunsigned(L, 1); b_uint v = luaL_checkunsigned(L, 2); int f = fieldargs(L, 3, &w); int m = mask(w); v &= m; /* erase bits outside given width */ r = (r & ~(m << f)) | (v << f); lua_pushunsigned(L, r); return 1; } static const luaL_Reg bitlib[] = { {"arshift", b_arshift}, {"band", b_and}, {"bnot", b_not}, {"bor", b_or}, {"bxor", b_xor}, {"btest", b_test}, {"extract", b_extract}, {"lrotate", b_lrot}, {"lshift", b_lshift}, {"replace", b_replace}, {"rrotate", b_rrot}, {"rshift", b_rshift}, {NULL, NULL} }; LUAMOD_API int luaopen_bit32 (lua_State *L) { luaL_newlib(L, bitlib); return 1; } april-ann-0.3.1/lua/lua-5.2.2/src/lcode.c000066400000000000000000000536001234204160600174230ustar00rootroot00000000000000/* ** $Id: lcode.c,v 2.62 2012/08/16 17:34:28 roberto Exp $ ** Code generator for Lua ** See Copyright Notice in lua.h */ #include #define lcode_c #define LUA_CORE #include "lua.h" #include "lcode.h" #include "ldebug.h" #include "ldo.h" #include "lgc.h" #include "llex.h" #include "lmem.h" #include "lobject.h" #include "lopcodes.h" #include "lparser.h" #include "lstring.h" #include "ltable.h" #include "lvm.h" #define hasjumps(e) ((e)->t != (e)->f) static int isnumeral(expdesc *e) { return (e->k == VKNUM && e->t == NO_JUMP && e->f == NO_JUMP); } void luaK_nil (FuncState *fs, int from, int n) { Instruction *previous; int l = from + n - 1; /* last register to set nil */ if (fs->pc > fs->lasttarget) { /* no jumps to current position? */ previous = &fs->f->code[fs->pc-1]; if (GET_OPCODE(*previous) == OP_LOADNIL) { int pfrom = GETARG_A(*previous); int pl = pfrom + GETARG_B(*previous); if ((pfrom <= from && from <= pl + 1) || (from <= pfrom && pfrom <= l + 1)) { /* can connect both? */ if (pfrom < from) from = pfrom; /* from = min(from, pfrom) */ if (pl > l) l = pl; /* l = max(l, pl) */ SETARG_A(*previous, from); SETARG_B(*previous, l - from); return; } } /* else go through */ } luaK_codeABC(fs, OP_LOADNIL, from, n - 1, 0); /* else no optimization */ } int luaK_jump (FuncState *fs) { int jpc = fs->jpc; /* save list of jumps to here */ int j; fs->jpc = NO_JUMP; j = luaK_codeAsBx(fs, OP_JMP, 0, NO_JUMP); luaK_concat(fs, &j, jpc); /* keep them on hold */ return j; } void luaK_ret (FuncState *fs, int first, int nret) { luaK_codeABC(fs, OP_RETURN, first, nret+1, 0); } static int condjump (FuncState *fs, OpCode op, int A, int B, int C) { luaK_codeABC(fs, op, A, B, C); return luaK_jump(fs); } static void fixjump (FuncState *fs, int pc, int dest) { Instruction *jmp = &fs->f->code[pc]; int offset = dest-(pc+1); lua_assert(dest != NO_JUMP); if (abs(offset) > MAXARG_sBx) luaX_syntaxerror(fs->ls, "control structure too long"); SETARG_sBx(*jmp, offset); } /* ** returns current `pc' and marks it as a jump target (to avoid wrong ** optimizations with consecutive instructions not in the same basic block). */ int luaK_getlabel (FuncState *fs) { fs->lasttarget = fs->pc; return fs->pc; } static int getjump (FuncState *fs, int pc) { int offset = GETARG_sBx(fs->f->code[pc]); if (offset == NO_JUMP) /* point to itself represents end of list */ return NO_JUMP; /* end of list */ else return (pc+1)+offset; /* turn offset into absolute position */ } static Instruction *getjumpcontrol (FuncState *fs, int pc) { Instruction *pi = &fs->f->code[pc]; if (pc >= 1 && testTMode(GET_OPCODE(*(pi-1)))) return pi-1; else return pi; } /* ** check whether list has any jump that do not produce a value ** (or produce an inverted value) */ static int need_value (FuncState *fs, int list) { for (; list != NO_JUMP; list = getjump(fs, list)) { Instruction i = *getjumpcontrol(fs, list); if (GET_OPCODE(i) != OP_TESTSET) return 1; } return 0; /* not found */ } static int patchtestreg (FuncState *fs, int node, int reg) { Instruction *i = getjumpcontrol(fs, node); if (GET_OPCODE(*i) != OP_TESTSET) return 0; /* cannot patch other instructions */ if (reg != NO_REG && reg != GETARG_B(*i)) SETARG_A(*i, reg); else /* no register to put value or register already has the value */ *i = CREATE_ABC(OP_TEST, GETARG_B(*i), 0, GETARG_C(*i)); return 1; } static void removevalues (FuncState *fs, int list) { for (; list != NO_JUMP; list = getjump(fs, list)) patchtestreg(fs, list, NO_REG); } static void patchlistaux (FuncState *fs, int list, int vtarget, int reg, int dtarget) { while (list != NO_JUMP) { int next = getjump(fs, list); if (patchtestreg(fs, list, reg)) fixjump(fs, list, vtarget); else fixjump(fs, list, dtarget); /* jump to default target */ list = next; } } static void dischargejpc (FuncState *fs) { patchlistaux(fs, fs->jpc, fs->pc, NO_REG, fs->pc); fs->jpc = NO_JUMP; } void luaK_patchlist (FuncState *fs, int list, int target) { if (target == fs->pc) luaK_patchtohere(fs, list); else { lua_assert(target < fs->pc); patchlistaux(fs, list, target, NO_REG, target); } } LUAI_FUNC void luaK_patchclose (FuncState *fs, int list, int level) { level++; /* argument is +1 to reserve 0 as non-op */ while (list != NO_JUMP) { int next = getjump(fs, list); lua_assert(GET_OPCODE(fs->f->code[list]) == OP_JMP && (GETARG_A(fs->f->code[list]) == 0 || GETARG_A(fs->f->code[list]) >= level)); SETARG_A(fs->f->code[list], level); list = next; } } void luaK_patchtohere (FuncState *fs, int list) { luaK_getlabel(fs); luaK_concat(fs, &fs->jpc, list); } void luaK_concat (FuncState *fs, int *l1, int l2) { if (l2 == NO_JUMP) return; else if (*l1 == NO_JUMP) *l1 = l2; else { int list = *l1; int next; while ((next = getjump(fs, list)) != NO_JUMP) /* find last element */ list = next; fixjump(fs, list, l2); } } static int luaK_code (FuncState *fs, Instruction i) { Proto *f = fs->f; dischargejpc(fs); /* `pc' will change */ /* put new instruction in code array */ luaM_growvector(fs->ls->L, f->code, fs->pc, f->sizecode, Instruction, MAX_INT, "opcodes"); f->code[fs->pc] = i; /* save corresponding line information */ luaM_growvector(fs->ls->L, f->lineinfo, fs->pc, f->sizelineinfo, int, MAX_INT, "opcodes"); f->lineinfo[fs->pc] = fs->ls->lastline; return fs->pc++; } int luaK_codeABC (FuncState *fs, OpCode o, int a, int b, int c) { lua_assert(getOpMode(o) == iABC); lua_assert(getBMode(o) != OpArgN || b == 0); lua_assert(getCMode(o) != OpArgN || c == 0); lua_assert(a <= MAXARG_A && b <= MAXARG_B && c <= MAXARG_C); return luaK_code(fs, CREATE_ABC(o, a, b, c)); } int luaK_codeABx (FuncState *fs, OpCode o, int a, unsigned int bc) { lua_assert(getOpMode(o) == iABx || getOpMode(o) == iAsBx); lua_assert(getCMode(o) == OpArgN); lua_assert(a <= MAXARG_A && bc <= MAXARG_Bx); return luaK_code(fs, CREATE_ABx(o, a, bc)); } static int codeextraarg (FuncState *fs, int a) { lua_assert(a <= MAXARG_Ax); return luaK_code(fs, CREATE_Ax(OP_EXTRAARG, a)); } int luaK_codek (FuncState *fs, int reg, int k) { if (k <= MAXARG_Bx) return luaK_codeABx(fs, OP_LOADK, reg, k); else { int p = luaK_codeABx(fs, OP_LOADKX, reg, 0); codeextraarg(fs, k); return p; } } void luaK_checkstack (FuncState *fs, int n) { int newstack = fs->freereg + n; if (newstack > fs->f->maxstacksize) { if (newstack >= MAXSTACK) luaX_syntaxerror(fs->ls, "function or expression too complex"); fs->f->maxstacksize = cast_byte(newstack); } } void luaK_reserveregs (FuncState *fs, int n) { luaK_checkstack(fs, n); fs->freereg += n; } static void freereg (FuncState *fs, int reg) { if (!ISK(reg) && reg >= fs->nactvar) { fs->freereg--; lua_assert(reg == fs->freereg); } } static void freeexp (FuncState *fs, expdesc *e) { if (e->k == VNONRELOC) freereg(fs, e->u.info); } static int addk (FuncState *fs, TValue *key, TValue *v) { lua_State *L = fs->ls->L; TValue *idx = luaH_set(L, fs->h, key); Proto *f = fs->f; int k, oldsize; if (ttisnumber(idx)) { lua_Number n = nvalue(idx); lua_number2int(k, n); if (luaV_rawequalobj(&f->k[k], v)) return k; /* else may be a collision (e.g., between 0.0 and "\0\0\0\0\0\0\0\0"); go through and create a new entry for this value */ } /* constant not found; create a new entry */ oldsize = f->sizek; k = fs->nk; /* numerical value does not need GC barrier; table has no metatable, so it does not need to invalidate cache */ setnvalue(idx, cast_num(k)); luaM_growvector(L, f->k, k, f->sizek, TValue, MAXARG_Ax, "constants"); while (oldsize < f->sizek) setnilvalue(&f->k[oldsize++]); setobj(L, &f->k[k], v); fs->nk++; luaC_barrier(L, f, v); return k; } int luaK_stringK (FuncState *fs, TString *s) { TValue o; setsvalue(fs->ls->L, &o, s); return addk(fs, &o, &o); } int luaK_numberK (FuncState *fs, lua_Number r) { int n; lua_State *L = fs->ls->L; TValue o; setnvalue(&o, r); if (r == 0 || luai_numisnan(NULL, r)) { /* handle -0 and NaN */ /* use raw representation as key to avoid numeric problems */ setsvalue(L, L->top++, luaS_newlstr(L, (char *)&r, sizeof(r))); n = addk(fs, L->top - 1, &o); L->top--; } else n = addk(fs, &o, &o); /* regular case */ return n; } static int boolK (FuncState *fs, int b) { TValue o; setbvalue(&o, b); return addk(fs, &o, &o); } static int nilK (FuncState *fs) { TValue k, v; setnilvalue(&v); /* cannot use nil as key; instead use table itself to represent nil */ sethvalue(fs->ls->L, &k, fs->h); return addk(fs, &k, &v); } void luaK_setreturns (FuncState *fs, expdesc *e, int nresults) { if (e->k == VCALL) { /* expression is an open function call? */ SETARG_C(getcode(fs, e), nresults+1); } else if (e->k == VVARARG) { SETARG_B(getcode(fs, e), nresults+1); SETARG_A(getcode(fs, e), fs->freereg); luaK_reserveregs(fs, 1); } } void luaK_setoneret (FuncState *fs, expdesc *e) { if (e->k == VCALL) { /* expression is an open function call? */ e->k = VNONRELOC; e->u.info = GETARG_A(getcode(fs, e)); } else if (e->k == VVARARG) { SETARG_B(getcode(fs, e), 2); e->k = VRELOCABLE; /* can relocate its simple result */ } } void luaK_dischargevars (FuncState *fs, expdesc *e) { switch (e->k) { case VLOCAL: { e->k = VNONRELOC; break; } case VUPVAL: { e->u.info = luaK_codeABC(fs, OP_GETUPVAL, 0, e->u.info, 0); e->k = VRELOCABLE; break; } case VINDEXED: { OpCode op = OP_GETTABUP; /* assume 't' is in an upvalue */ freereg(fs, e->u.ind.idx); if (e->u.ind.vt == VLOCAL) { /* 't' is in a register? */ freereg(fs, e->u.ind.t); op = OP_GETTABLE; } e->u.info = luaK_codeABC(fs, op, 0, e->u.ind.t, e->u.ind.idx); e->k = VRELOCABLE; break; } case VVARARG: case VCALL: { luaK_setoneret(fs, e); break; } default: break; /* there is one value available (somewhere) */ } } static int code_label (FuncState *fs, int A, int b, int jump) { luaK_getlabel(fs); /* those instructions may be jump targets */ return luaK_codeABC(fs, OP_LOADBOOL, A, b, jump); } static void discharge2reg (FuncState *fs, expdesc *e, int reg) { luaK_dischargevars(fs, e); switch (e->k) { case VNIL: { luaK_nil(fs, reg, 1); break; } case VFALSE: case VTRUE: { luaK_codeABC(fs, OP_LOADBOOL, reg, e->k == VTRUE, 0); break; } case VK: { luaK_codek(fs, reg, e->u.info); break; } case VKNUM: { luaK_codek(fs, reg, luaK_numberK(fs, e->u.nval)); break; } case VRELOCABLE: { Instruction *pc = &getcode(fs, e); SETARG_A(*pc, reg); break; } case VNONRELOC: { if (reg != e->u.info) luaK_codeABC(fs, OP_MOVE, reg, e->u.info, 0); break; } default: { lua_assert(e->k == VVOID || e->k == VJMP); return; /* nothing to do... */ } } e->u.info = reg; e->k = VNONRELOC; } static void discharge2anyreg (FuncState *fs, expdesc *e) { if (e->k != VNONRELOC) { luaK_reserveregs(fs, 1); discharge2reg(fs, e, fs->freereg-1); } } static void exp2reg (FuncState *fs, expdesc *e, int reg) { discharge2reg(fs, e, reg); if (e->k == VJMP) luaK_concat(fs, &e->t, e->u.info); /* put this jump in `t' list */ if (hasjumps(e)) { int final; /* position after whole expression */ int p_f = NO_JUMP; /* position of an eventual LOAD false */ int p_t = NO_JUMP; /* position of an eventual LOAD true */ if (need_value(fs, e->t) || need_value(fs, e->f)) { int fj = (e->k == VJMP) ? NO_JUMP : luaK_jump(fs); p_f = code_label(fs, reg, 0, 1); p_t = code_label(fs, reg, 1, 0); luaK_patchtohere(fs, fj); } final = luaK_getlabel(fs); patchlistaux(fs, e->f, final, reg, p_f); patchlistaux(fs, e->t, final, reg, p_t); } e->f = e->t = NO_JUMP; e->u.info = reg; e->k = VNONRELOC; } void luaK_exp2nextreg (FuncState *fs, expdesc *e) { luaK_dischargevars(fs, e); freeexp(fs, e); luaK_reserveregs(fs, 1); exp2reg(fs, e, fs->freereg - 1); } int luaK_exp2anyreg (FuncState *fs, expdesc *e) { luaK_dischargevars(fs, e); if (e->k == VNONRELOC) { if (!hasjumps(e)) return e->u.info; /* exp is already in a register */ if (e->u.info >= fs->nactvar) { /* reg. is not a local? */ exp2reg(fs, e, e->u.info); /* put value on it */ return e->u.info; } } luaK_exp2nextreg(fs, e); /* default */ return e->u.info; } void luaK_exp2anyregup (FuncState *fs, expdesc *e) { if (e->k != VUPVAL || hasjumps(e)) luaK_exp2anyreg(fs, e); } void luaK_exp2val (FuncState *fs, expdesc *e) { if (hasjumps(e)) luaK_exp2anyreg(fs, e); else luaK_dischargevars(fs, e); } int luaK_exp2RK (FuncState *fs, expdesc *e) { luaK_exp2val(fs, e); switch (e->k) { case VTRUE: case VFALSE: case VNIL: { if (fs->nk <= MAXINDEXRK) { /* constant fits in RK operand? */ e->u.info = (e->k == VNIL) ? nilK(fs) : boolK(fs, (e->k == VTRUE)); e->k = VK; return RKASK(e->u.info); } else break; } case VKNUM: { e->u.info = luaK_numberK(fs, e->u.nval); e->k = VK; /* go through */ } case VK: { if (e->u.info <= MAXINDEXRK) /* constant fits in argC? */ return RKASK(e->u.info); else break; } default: break; } /* not a constant in the right range: put it in a register */ return luaK_exp2anyreg(fs, e); } void luaK_storevar (FuncState *fs, expdesc *var, expdesc *ex) { switch (var->k) { case VLOCAL: { freeexp(fs, ex); exp2reg(fs, ex, var->u.info); return; } case VUPVAL: { int e = luaK_exp2anyreg(fs, ex); luaK_codeABC(fs, OP_SETUPVAL, e, var->u.info, 0); break; } case VINDEXED: { OpCode op = (var->u.ind.vt == VLOCAL) ? OP_SETTABLE : OP_SETTABUP; int e = luaK_exp2RK(fs, ex); luaK_codeABC(fs, op, var->u.ind.t, var->u.ind.idx, e); break; } default: { lua_assert(0); /* invalid var kind to store */ break; } } freeexp(fs, ex); } void luaK_self (FuncState *fs, expdesc *e, expdesc *key) { int ereg; luaK_exp2anyreg(fs, e); ereg = e->u.info; /* register where 'e' was placed */ freeexp(fs, e); e->u.info = fs->freereg; /* base register for op_self */ e->k = VNONRELOC; luaK_reserveregs(fs, 2); /* function and 'self' produced by op_self */ luaK_codeABC(fs, OP_SELF, e->u.info, ereg, luaK_exp2RK(fs, key)); freeexp(fs, key); } static void invertjump (FuncState *fs, expdesc *e) { Instruction *pc = getjumpcontrol(fs, e->u.info); lua_assert(testTMode(GET_OPCODE(*pc)) && GET_OPCODE(*pc) != OP_TESTSET && GET_OPCODE(*pc) != OP_TEST); SETARG_A(*pc, !(GETARG_A(*pc))); } static int jumponcond (FuncState *fs, expdesc *e, int cond) { if (e->k == VRELOCABLE) { Instruction ie = getcode(fs, e); if (GET_OPCODE(ie) == OP_NOT) { fs->pc--; /* remove previous OP_NOT */ return condjump(fs, OP_TEST, GETARG_B(ie), 0, !cond); } /* else go through */ } discharge2anyreg(fs, e); freeexp(fs, e); return condjump(fs, OP_TESTSET, NO_REG, e->u.info, cond); } void luaK_goiftrue (FuncState *fs, expdesc *e) { int pc; /* pc of last jump */ luaK_dischargevars(fs, e); switch (e->k) { case VJMP: { invertjump(fs, e); pc = e->u.info; break; } case VK: case VKNUM: case VTRUE: { pc = NO_JUMP; /* always true; do nothing */ break; } default: { pc = jumponcond(fs, e, 0); break; } } luaK_concat(fs, &e->f, pc); /* insert last jump in `f' list */ luaK_patchtohere(fs, e->t); e->t = NO_JUMP; } void luaK_goiffalse (FuncState *fs, expdesc *e) { int pc; /* pc of last jump */ luaK_dischargevars(fs, e); switch (e->k) { case VJMP: { pc = e->u.info; break; } case VNIL: case VFALSE: { pc = NO_JUMP; /* always false; do nothing */ break; } default: { pc = jumponcond(fs, e, 1); break; } } luaK_concat(fs, &e->t, pc); /* insert last jump in `t' list */ luaK_patchtohere(fs, e->f); e->f = NO_JUMP; } static void codenot (FuncState *fs, expdesc *e) { luaK_dischargevars(fs, e); switch (e->k) { case VNIL: case VFALSE: { e->k = VTRUE; break; } case VK: case VKNUM: case VTRUE: { e->k = VFALSE; break; } case VJMP: { invertjump(fs, e); break; } case VRELOCABLE: case VNONRELOC: { discharge2anyreg(fs, e); freeexp(fs, e); e->u.info = luaK_codeABC(fs, OP_NOT, 0, e->u.info, 0); e->k = VRELOCABLE; break; } default: { lua_assert(0); /* cannot happen */ break; } } /* interchange true and false lists */ { int temp = e->f; e->f = e->t; e->t = temp; } removevalues(fs, e->f); removevalues(fs, e->t); } void luaK_indexed (FuncState *fs, expdesc *t, expdesc *k) { lua_assert(!hasjumps(t)); t->u.ind.t = t->u.info; t->u.ind.idx = luaK_exp2RK(fs, k); t->u.ind.vt = (t->k == VUPVAL) ? VUPVAL : check_exp(vkisinreg(t->k), VLOCAL); t->k = VINDEXED; } static int constfolding (OpCode op, expdesc *e1, expdesc *e2) { lua_Number r; if (!isnumeral(e1) || !isnumeral(e2)) return 0; if ((op == OP_DIV || op == OP_MOD) && e2->u.nval == 0) return 0; /* do not attempt to divide by 0 */ r = luaO_arith(op - OP_ADD + LUA_OPADD, e1->u.nval, e2->u.nval); e1->u.nval = r; return 1; } static void codearith (FuncState *fs, OpCode op, expdesc *e1, expdesc *e2, int line) { if (constfolding(op, e1, e2)) return; else { int o2 = (op != OP_UNM && op != OP_LEN) ? luaK_exp2RK(fs, e2) : 0; int o1 = luaK_exp2RK(fs, e1); if (o1 > o2) { freeexp(fs, e1); freeexp(fs, e2); } else { freeexp(fs, e2); freeexp(fs, e1); } e1->u.info = luaK_codeABC(fs, op, 0, o1, o2); e1->k = VRELOCABLE; luaK_fixline(fs, line); } } static void codecomp (FuncState *fs, OpCode op, int cond, expdesc *e1, expdesc *e2) { int o1 = luaK_exp2RK(fs, e1); int o2 = luaK_exp2RK(fs, e2); freeexp(fs, e2); freeexp(fs, e1); if (cond == 0 && op != OP_EQ) { int temp; /* exchange args to replace by `<' or `<=' */ temp = o1; o1 = o2; o2 = temp; /* o1 <==> o2 */ cond = 1; } e1->u.info = condjump(fs, op, cond, o1, o2); e1->k = VJMP; } void luaK_prefix (FuncState *fs, UnOpr op, expdesc *e, int line) { expdesc e2; e2.t = e2.f = NO_JUMP; e2.k = VKNUM; e2.u.nval = 0; switch (op) { case OPR_MINUS: { if (isnumeral(e)) /* minus constant? */ e->u.nval = luai_numunm(NULL, e->u.nval); /* fold it */ else { luaK_exp2anyreg(fs, e); codearith(fs, OP_UNM, e, &e2, line); } break; } case OPR_NOT: codenot(fs, e); break; case OPR_LEN: { luaK_exp2anyreg(fs, e); /* cannot operate on constants */ codearith(fs, OP_LEN, e, &e2, line); break; } default: lua_assert(0); } } void luaK_infix (FuncState *fs, BinOpr op, expdesc *v) { switch (op) { case OPR_AND: { luaK_goiftrue(fs, v); break; } case OPR_OR: { luaK_goiffalse(fs, v); break; } case OPR_CONCAT: { luaK_exp2nextreg(fs, v); /* operand must be on the `stack' */ break; } case OPR_ADD: case OPR_SUB: case OPR_MUL: case OPR_DIV: case OPR_MOD: case OPR_POW: { if (!isnumeral(v)) luaK_exp2RK(fs, v); break; } default: { luaK_exp2RK(fs, v); break; } } } void luaK_posfix (FuncState *fs, BinOpr op, expdesc *e1, expdesc *e2, int line) { switch (op) { case OPR_AND: { lua_assert(e1->t == NO_JUMP); /* list must be closed */ luaK_dischargevars(fs, e2); luaK_concat(fs, &e2->f, e1->f); *e1 = *e2; break; } case OPR_OR: { lua_assert(e1->f == NO_JUMP); /* list must be closed */ luaK_dischargevars(fs, e2); luaK_concat(fs, &e2->t, e1->t); *e1 = *e2; break; } case OPR_CONCAT: { luaK_exp2val(fs, e2); if (e2->k == VRELOCABLE && GET_OPCODE(getcode(fs, e2)) == OP_CONCAT) { lua_assert(e1->u.info == GETARG_B(getcode(fs, e2))-1); freeexp(fs, e1); SETARG_B(getcode(fs, e2), e1->u.info); e1->k = VRELOCABLE; e1->u.info = e2->u.info; } else { luaK_exp2nextreg(fs, e2); /* operand must be on the 'stack' */ codearith(fs, OP_CONCAT, e1, e2, line); } break; } case OPR_ADD: case OPR_SUB: case OPR_MUL: case OPR_DIV: case OPR_MOD: case OPR_POW: { codearith(fs, cast(OpCode, op - OPR_ADD + OP_ADD), e1, e2, line); break; } case OPR_EQ: case OPR_LT: case OPR_LE: { codecomp(fs, cast(OpCode, op - OPR_EQ + OP_EQ), 1, e1, e2); break; } case OPR_NE: case OPR_GT: case OPR_GE: { codecomp(fs, cast(OpCode, op - OPR_NE + OP_EQ), 0, e1, e2); break; } default: lua_assert(0); } } void luaK_fixline (FuncState *fs, int line) { fs->f->lineinfo[fs->pc - 1] = line; } void luaK_setlist (FuncState *fs, int base, int nelems, int tostore) { int c = (nelems - 1)/LFIELDS_PER_FLUSH + 1; int b = (tostore == LUA_MULTRET) ? 0 : tostore; lua_assert(tostore != 0); if (c <= MAXARG_C) luaK_codeABC(fs, OP_SETLIST, base, b, c); else if (c <= MAXARG_Ax) { luaK_codeABC(fs, OP_SETLIST, base, b, 0); codeextraarg(fs, c); } else luaX_syntaxerror(fs->ls, "constructor too long"); fs->freereg = base + 1; /* free registers with list values */ } april-ann-0.3.1/lua/lua-5.2.2/src/lcode.h000066400000000000000000000060541234204160600174310ustar00rootroot00000000000000/* ** $Id: lcode.h,v 1.58 2011/08/30 16:26:41 roberto Exp $ ** Code generator for Lua ** See Copyright Notice in lua.h */ #ifndef lcode_h #define lcode_h #include "llex.h" #include "lobject.h" #include "lopcodes.h" #include "lparser.h" /* ** Marks the end of a patch list. It is an invalid value both as an absolute ** address, and as a list link (would link an element to itself). */ #define NO_JUMP (-1) /* ** grep "ORDER OPR" if you change these enums (ORDER OP) */ typedef enum BinOpr { OPR_ADD, OPR_SUB, OPR_MUL, OPR_DIV, OPR_MOD, OPR_POW, OPR_CONCAT, OPR_EQ, OPR_LT, OPR_LE, OPR_NE, OPR_GT, OPR_GE, OPR_AND, OPR_OR, OPR_NOBINOPR } BinOpr; typedef enum UnOpr { OPR_MINUS, OPR_NOT, OPR_LEN, OPR_NOUNOPR } UnOpr; #define getcode(fs,e) ((fs)->f->code[(e)->u.info]) #define luaK_codeAsBx(fs,o,A,sBx) luaK_codeABx(fs,o,A,(sBx)+MAXARG_sBx) #define luaK_setmultret(fs,e) luaK_setreturns(fs, e, LUA_MULTRET) #define luaK_jumpto(fs,t) luaK_patchlist(fs, luaK_jump(fs), t) LUAI_FUNC int luaK_codeABx (FuncState *fs, OpCode o, int A, unsigned int Bx); LUAI_FUNC int luaK_codeABC (FuncState *fs, OpCode o, int A, int B, int C); LUAI_FUNC int luaK_codek (FuncState *fs, int reg, int k); LUAI_FUNC void luaK_fixline (FuncState *fs, int line); LUAI_FUNC void luaK_nil (FuncState *fs, int from, int n); LUAI_FUNC void luaK_reserveregs (FuncState *fs, int n); LUAI_FUNC void luaK_checkstack (FuncState *fs, int n); LUAI_FUNC int luaK_stringK (FuncState *fs, TString *s); LUAI_FUNC int luaK_numberK (FuncState *fs, lua_Number r); LUAI_FUNC void luaK_dischargevars (FuncState *fs, expdesc *e); LUAI_FUNC int luaK_exp2anyreg (FuncState *fs, expdesc *e); LUAI_FUNC void luaK_exp2anyregup (FuncState *fs, expdesc *e); LUAI_FUNC void luaK_exp2nextreg (FuncState *fs, expdesc *e); LUAI_FUNC void luaK_exp2val (FuncState *fs, expdesc *e); LUAI_FUNC int luaK_exp2RK (FuncState *fs, expdesc *e); LUAI_FUNC void luaK_self (FuncState *fs, expdesc *e, expdesc *key); LUAI_FUNC void luaK_indexed (FuncState *fs, expdesc *t, expdesc *k); LUAI_FUNC void luaK_goiftrue (FuncState *fs, expdesc *e); LUAI_FUNC void luaK_goiffalse (FuncState *fs, expdesc *e); LUAI_FUNC void luaK_storevar (FuncState *fs, expdesc *var, expdesc *e); LUAI_FUNC void luaK_setreturns (FuncState *fs, expdesc *e, int nresults); LUAI_FUNC void luaK_setoneret (FuncState *fs, expdesc *e); LUAI_FUNC int luaK_jump (FuncState *fs); LUAI_FUNC void luaK_ret (FuncState *fs, int first, int nret); LUAI_FUNC void luaK_patchlist (FuncState *fs, int list, int target); LUAI_FUNC void luaK_patchtohere (FuncState *fs, int list); LUAI_FUNC void luaK_patchclose (FuncState *fs, int list, int level); LUAI_FUNC void luaK_concat (FuncState *fs, int *l1, int l2); LUAI_FUNC int luaK_getlabel (FuncState *fs); LUAI_FUNC void luaK_prefix (FuncState *fs, UnOpr op, expdesc *v, int line); LUAI_FUNC void luaK_infix (FuncState *fs, BinOpr op, expdesc *v); LUAI_FUNC void luaK_posfix (FuncState *fs, BinOpr op, expdesc *v1, expdesc *v2, int line); LUAI_FUNC void luaK_setlist (FuncState *fs, int base, int nelems, int tostore); #endif april-ann-0.3.1/lua/lua-5.2.2/src/lcorolib.c000066400000000000000000000067631234204160600201520ustar00rootroot00000000000000/* ** $Id: lcorolib.c,v 1.5 2013/02/21 13:44:53 roberto Exp $ ** Coroutine Library ** See Copyright Notice in lua.h */ #include #define lcorolib_c #define LUA_LIB #include "lua.h" #include "lauxlib.h" #include "lualib.h" static int auxresume (lua_State *L, lua_State *co, int narg) { int status; if (!lua_checkstack(co, narg)) { lua_pushliteral(L, "too many arguments to resume"); return -1; /* error flag */ } if (lua_status(co) == LUA_OK && lua_gettop(co) == 0) { lua_pushliteral(L, "cannot resume dead coroutine"); return -1; /* error flag */ } lua_xmove(L, co, narg); status = lua_resume(co, L, narg); if (status == LUA_OK || status == LUA_YIELD) { int nres = lua_gettop(co); if (!lua_checkstack(L, nres + 1)) { lua_pop(co, nres); /* remove results anyway */ lua_pushliteral(L, "too many results to resume"); return -1; /* error flag */ } lua_xmove(co, L, nres); /* move yielded values */ return nres; } else { lua_xmove(co, L, 1); /* move error message */ return -1; /* error flag */ } } static int luaB_coresume (lua_State *L) { lua_State *co = lua_tothread(L, 1); int r; luaL_argcheck(L, co, 1, "coroutine expected"); r = auxresume(L, co, lua_gettop(L) - 1); if (r < 0) { lua_pushboolean(L, 0); lua_insert(L, -2); return 2; /* return false + error message */ } else { lua_pushboolean(L, 1); lua_insert(L, -(r + 1)); return r + 1; /* return true + `resume' returns */ } } static int luaB_auxwrap (lua_State *L) { lua_State *co = lua_tothread(L, lua_upvalueindex(1)); int r = auxresume(L, co, lua_gettop(L)); if (r < 0) { if (lua_isstring(L, -1)) { /* error object is a string? */ luaL_where(L, 1); /* add extra info */ lua_insert(L, -2); lua_concat(L, 2); } return lua_error(L); /* propagate error */ } return r; } static int luaB_cocreate (lua_State *L) { lua_State *NL; luaL_checktype(L, 1, LUA_TFUNCTION); NL = lua_newthread(L); lua_pushvalue(L, 1); /* move function to top */ lua_xmove(L, NL, 1); /* move function from L to NL */ return 1; } static int luaB_cowrap (lua_State *L) { luaB_cocreate(L); lua_pushcclosure(L, luaB_auxwrap, 1); return 1; } static int luaB_yield (lua_State *L) { return lua_yield(L, lua_gettop(L)); } static int luaB_costatus (lua_State *L) { lua_State *co = lua_tothread(L, 1); luaL_argcheck(L, co, 1, "coroutine expected"); if (L == co) lua_pushliteral(L, "running"); else { switch (lua_status(co)) { case LUA_YIELD: lua_pushliteral(L, "suspended"); break; case LUA_OK: { lua_Debug ar; if (lua_getstack(co, 0, &ar) > 0) /* does it have frames? */ lua_pushliteral(L, "normal"); /* it is running */ else if (lua_gettop(co) == 0) lua_pushliteral(L, "dead"); else lua_pushliteral(L, "suspended"); /* initial state */ break; } default: /* some error occurred */ lua_pushliteral(L, "dead"); break; } } return 1; } static int luaB_corunning (lua_State *L) { int ismain = lua_pushthread(L); lua_pushboolean(L, ismain); return 2; } static const luaL_Reg co_funcs[] = { {"create", luaB_cocreate}, {"resume", luaB_coresume}, {"running", luaB_corunning}, {"status", luaB_costatus}, {"wrap", luaB_cowrap}, {"yield", luaB_yield}, {NULL, NULL} }; LUAMOD_API int luaopen_coroutine (lua_State *L) { luaL_newlib(L, co_funcs); return 1; } april-ann-0.3.1/lua/lua-5.2.2/src/lctype.c000066400000000000000000000043671234204160600176430ustar00rootroot00000000000000/* ** $Id: lctype.c,v 1.11 2011/10/03 16:19:23 roberto Exp $ ** 'ctype' functions for Lua ** See Copyright Notice in lua.h */ #define lctype_c #define LUA_CORE #include "lctype.h" #if !LUA_USE_CTYPE /* { */ #include LUAI_DDEF const lu_byte luai_ctype_[UCHAR_MAX + 2] = { 0x00, /* EOZ */ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0. */ 0x00, 0x08, 0x08, 0x08, 0x08, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 1. */ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0c, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, /* 2. */ 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x16, 0x16, 0x16, 0x16, 0x16, 0x16, 0x16, 0x16, /* 3. */ 0x16, 0x16, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x04, 0x15, 0x15, 0x15, 0x15, 0x15, 0x15, 0x05, /* 4. */ 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, /* 5. */ 0x05, 0x05, 0x05, 0x04, 0x04, 0x04, 0x04, 0x05, 0x04, 0x15, 0x15, 0x15, 0x15, 0x15, 0x15, 0x05, /* 6. */ 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, 0x05, /* 7. */ 0x05, 0x05, 0x05, 0x04, 0x04, 0x04, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 8. */ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 9. */ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* a. */ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* b. */ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* c. */ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* d. */ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* e. */ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* f. */ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, }; #endif /* } */ april-ann-0.3.1/lua/lua-5.2.2/src/lctype.h000066400000000000000000000034551234204160600176450ustar00rootroot00000000000000/* ** $Id: lctype.h,v 1.12 2011/07/15 12:50:29 roberto Exp $ ** 'ctype' functions for Lua ** See Copyright Notice in lua.h */ #ifndef lctype_h #define lctype_h #include "lua.h" /* ** WARNING: the functions defined here do not necessarily correspond ** to the similar functions in the standard C ctype.h. They are ** optimized for the specific needs of Lua */ #if !defined(LUA_USE_CTYPE) #if 'A' == 65 && '0' == 48 /* ASCII case: can use its own tables; faster and fixed */ #define LUA_USE_CTYPE 0 #else /* must use standard C ctype */ #define LUA_USE_CTYPE 1 #endif #endif #if !LUA_USE_CTYPE /* { */ #include #include "llimits.h" #define ALPHABIT 0 #define DIGITBIT 1 #define PRINTBIT 2 #define SPACEBIT 3 #define XDIGITBIT 4 #define MASK(B) (1 << (B)) /* ** add 1 to char to allow index -1 (EOZ) */ #define testprop(c,p) (luai_ctype_[(c)+1] & (p)) /* ** 'lalpha' (Lua alphabetic) and 'lalnum' (Lua alphanumeric) both include '_' */ #define lislalpha(c) testprop(c, MASK(ALPHABIT)) #define lislalnum(c) testprop(c, (MASK(ALPHABIT) | MASK(DIGITBIT))) #define lisdigit(c) testprop(c, MASK(DIGITBIT)) #define lisspace(c) testprop(c, MASK(SPACEBIT)) #define lisprint(c) testprop(c, MASK(PRINTBIT)) #define lisxdigit(c) testprop(c, MASK(XDIGITBIT)) /* ** this 'ltolower' only works for alphabetic characters */ #define ltolower(c) ((c) | ('A' ^ 'a')) /* two more entries for 0 and -1 (EOZ) */ LUAI_DDEC const lu_byte luai_ctype_[UCHAR_MAX + 2]; #else /* }{ */ /* ** use standard C ctypes */ #include #define lislalpha(c) (isalpha(c) || (c) == '_') #define lislalnum(c) (isalnum(c) || (c) == '_') #define lisdigit(c) (isdigit(c)) #define lisspace(c) (isspace(c)) #define lisprint(c) (isprint(c)) #define lisxdigit(c) (isxdigit(c)) #define ltolower(c) (tolower(c)) #endif /* } */ #endif april-ann-0.3.1/lua/lua-5.2.2/src/ldblib.c000066400000000000000000000235351234204160600175710ustar00rootroot00000000000000/* ** $Id: ldblib.c,v 1.132 2012/01/19 20:14:44 roberto Exp $ ** Interface from Lua to its debug API ** See Copyright Notice in lua.h */ #include #include #include #define ldblib_c #define LUA_LIB #include "lua.h" #include "lauxlib.h" #include "lualib.h" #define HOOKKEY "_HKEY" static int db_getregistry (lua_State *L) { lua_pushvalue(L, LUA_REGISTRYINDEX); return 1; } static int db_getmetatable (lua_State *L) { luaL_checkany(L, 1); if (!lua_getmetatable(L, 1)) { lua_pushnil(L); /* no metatable */ } return 1; } static int db_setmetatable (lua_State *L) { int t = lua_type(L, 2); luaL_argcheck(L, t == LUA_TNIL || t == LUA_TTABLE, 2, "nil or table expected"); lua_settop(L, 2); lua_setmetatable(L, 1); return 1; /* return 1st argument */ } static int db_getuservalue (lua_State *L) { if (lua_type(L, 1) != LUA_TUSERDATA) lua_pushnil(L); else lua_getuservalue(L, 1); return 1; } static int db_setuservalue (lua_State *L) { if (lua_type(L, 1) == LUA_TLIGHTUSERDATA) luaL_argerror(L, 1, "full userdata expected, got light userdata"); luaL_checktype(L, 1, LUA_TUSERDATA); if (!lua_isnoneornil(L, 2)) luaL_checktype(L, 2, LUA_TTABLE); lua_settop(L, 2); lua_setuservalue(L, 1); return 1; } static void settabss (lua_State *L, const char *i, const char *v) { lua_pushstring(L, v); lua_setfield(L, -2, i); } static void settabsi (lua_State *L, const char *i, int v) { lua_pushinteger(L, v); lua_setfield(L, -2, i); } static void settabsb (lua_State *L, const char *i, int v) { lua_pushboolean(L, v); lua_setfield(L, -2, i); } static lua_State *getthread (lua_State *L, int *arg) { if (lua_isthread(L, 1)) { *arg = 1; return lua_tothread(L, 1); } else { *arg = 0; return L; } } static void treatstackoption (lua_State *L, lua_State *L1, const char *fname) { if (L == L1) { lua_pushvalue(L, -2); lua_remove(L, -3); } else lua_xmove(L1, L, 1); lua_setfield(L, -2, fname); } static int db_getinfo (lua_State *L) { lua_Debug ar; int arg; lua_State *L1 = getthread(L, &arg); const char *options = luaL_optstring(L, arg+2, "flnStu"); if (lua_isnumber(L, arg+1)) { if (!lua_getstack(L1, (int)lua_tointeger(L, arg+1), &ar)) { lua_pushnil(L); /* level out of range */ return 1; } } else if (lua_isfunction(L, arg+1)) { lua_pushfstring(L, ">%s", options); options = lua_tostring(L, -1); lua_pushvalue(L, arg+1); lua_xmove(L, L1, 1); } else return luaL_argerror(L, arg+1, "function or level expected"); if (!lua_getinfo(L1, options, &ar)) return luaL_argerror(L, arg+2, "invalid option"); lua_createtable(L, 0, 2); if (strchr(options, 'S')) { settabss(L, "source", ar.source); settabss(L, "short_src", ar.short_src); settabsi(L, "linedefined", ar.linedefined); settabsi(L, "lastlinedefined", ar.lastlinedefined); settabss(L, "what", ar.what); } if (strchr(options, 'l')) settabsi(L, "currentline", ar.currentline); if (strchr(options, 'u')) { settabsi(L, "nups", ar.nups); settabsi(L, "nparams", ar.nparams); settabsb(L, "isvararg", ar.isvararg); } if (strchr(options, 'n')) { settabss(L, "name", ar.name); settabss(L, "namewhat", ar.namewhat); } if (strchr(options, 't')) settabsb(L, "istailcall", ar.istailcall); if (strchr(options, 'L')) treatstackoption(L, L1, "activelines"); if (strchr(options, 'f')) treatstackoption(L, L1, "func"); return 1; /* return table */ } static int db_getlocal (lua_State *L) { int arg; lua_State *L1 = getthread(L, &arg); lua_Debug ar; const char *name; int nvar = luaL_checkint(L, arg+2); /* local-variable index */ if (lua_isfunction(L, arg + 1)) { /* function argument? */ lua_pushvalue(L, arg + 1); /* push function */ lua_pushstring(L, lua_getlocal(L, NULL, nvar)); /* push local name */ return 1; } else { /* stack-level argument */ if (!lua_getstack(L1, luaL_checkint(L, arg+1), &ar)) /* out of range? */ return luaL_argerror(L, arg+1, "level out of range"); name = lua_getlocal(L1, &ar, nvar); if (name) { lua_xmove(L1, L, 1); /* push local value */ lua_pushstring(L, name); /* push name */ lua_pushvalue(L, -2); /* re-order */ return 2; } else { lua_pushnil(L); /* no name (nor value) */ return 1; } } } static int db_setlocal (lua_State *L) { int arg; lua_State *L1 = getthread(L, &arg); lua_Debug ar; if (!lua_getstack(L1, luaL_checkint(L, arg+1), &ar)) /* out of range? */ return luaL_argerror(L, arg+1, "level out of range"); luaL_checkany(L, arg+3); lua_settop(L, arg+3); lua_xmove(L, L1, 1); lua_pushstring(L, lua_setlocal(L1, &ar, luaL_checkint(L, arg+2))); return 1; } static int auxupvalue (lua_State *L, int get) { const char *name; int n = luaL_checkint(L, 2); luaL_checktype(L, 1, LUA_TFUNCTION); name = get ? lua_getupvalue(L, 1, n) : lua_setupvalue(L, 1, n); if (name == NULL) return 0; lua_pushstring(L, name); lua_insert(L, -(get+1)); return get + 1; } static int db_getupvalue (lua_State *L) { return auxupvalue(L, 1); } static int db_setupvalue (lua_State *L) { luaL_checkany(L, 3); return auxupvalue(L, 0); } static int checkupval (lua_State *L, int argf, int argnup) { lua_Debug ar; int nup = luaL_checkint(L, argnup); luaL_checktype(L, argf, LUA_TFUNCTION); lua_pushvalue(L, argf); lua_getinfo(L, ">u", &ar); luaL_argcheck(L, 1 <= nup && nup <= ar.nups, argnup, "invalid upvalue index"); return nup; } static int db_upvalueid (lua_State *L) { int n = checkupval(L, 1, 2); lua_pushlightuserdata(L, lua_upvalueid(L, 1, n)); return 1; } static int db_upvaluejoin (lua_State *L) { int n1 = checkupval(L, 1, 2); int n2 = checkupval(L, 3, 4); luaL_argcheck(L, !lua_iscfunction(L, 1), 1, "Lua function expected"); luaL_argcheck(L, !lua_iscfunction(L, 3), 3, "Lua function expected"); lua_upvaluejoin(L, 1, n1, 3, n2); return 0; } #define gethooktable(L) luaL_getsubtable(L, LUA_REGISTRYINDEX, HOOKKEY) static void hookf (lua_State *L, lua_Debug *ar) { static const char *const hooknames[] = {"call", "return", "line", "count", "tail call"}; gethooktable(L); lua_pushthread(L); lua_rawget(L, -2); if (lua_isfunction(L, -1)) { lua_pushstring(L, hooknames[(int)ar->event]); if (ar->currentline >= 0) lua_pushinteger(L, ar->currentline); else lua_pushnil(L); lua_assert(lua_getinfo(L, "lS", ar)); lua_call(L, 2, 0); } } static int makemask (const char *smask, int count) { int mask = 0; if (strchr(smask, 'c')) mask |= LUA_MASKCALL; if (strchr(smask, 'r')) mask |= LUA_MASKRET; if (strchr(smask, 'l')) mask |= LUA_MASKLINE; if (count > 0) mask |= LUA_MASKCOUNT; return mask; } static char *unmakemask (int mask, char *smask) { int i = 0; if (mask & LUA_MASKCALL) smask[i++] = 'c'; if (mask & LUA_MASKRET) smask[i++] = 'r'; if (mask & LUA_MASKLINE) smask[i++] = 'l'; smask[i] = '\0'; return smask; } static int db_sethook (lua_State *L) { int arg, mask, count; lua_Hook func; lua_State *L1 = getthread(L, &arg); if (lua_isnoneornil(L, arg+1)) { lua_settop(L, arg+1); func = NULL; mask = 0; count = 0; /* turn off hooks */ } else { const char *smask = luaL_checkstring(L, arg+2); luaL_checktype(L, arg+1, LUA_TFUNCTION); count = luaL_optint(L, arg+3, 0); func = hookf; mask = makemask(smask, count); } if (gethooktable(L) == 0) { /* creating hook table? */ lua_pushstring(L, "k"); lua_setfield(L, -2, "__mode"); /** hooktable.__mode = "k" */ lua_pushvalue(L, -1); lua_setmetatable(L, -2); /* setmetatable(hooktable) = hooktable */ } lua_pushthread(L1); lua_xmove(L1, L, 1); lua_pushvalue(L, arg+1); lua_rawset(L, -3); /* set new hook */ lua_sethook(L1, func, mask, count); /* set hooks */ return 0; } static int db_gethook (lua_State *L) { int arg; lua_State *L1 = getthread(L, &arg); char buff[5]; int mask = lua_gethookmask(L1); lua_Hook hook = lua_gethook(L1); if (hook != NULL && hook != hookf) /* external hook? */ lua_pushliteral(L, "external hook"); else { gethooktable(L); lua_pushthread(L1); lua_xmove(L1, L, 1); lua_rawget(L, -2); /* get hook */ lua_remove(L, -2); /* remove hook table */ } lua_pushstring(L, unmakemask(mask, buff)); lua_pushinteger(L, lua_gethookcount(L1)); return 3; } static int db_debug (lua_State *L) { for (;;) { char buffer[250]; luai_writestringerror("%s", "lua_debug> "); if (fgets(buffer, sizeof(buffer), stdin) == 0 || strcmp(buffer, "cont\n") == 0) return 0; if (luaL_loadbuffer(L, buffer, strlen(buffer), "=(debug command)") || lua_pcall(L, 0, 0, 0)) luai_writestringerror("%s\n", lua_tostring(L, -1)); lua_settop(L, 0); /* remove eventual returns */ } } static int db_traceback (lua_State *L) { int arg; lua_State *L1 = getthread(L, &arg); const char *msg = lua_tostring(L, arg + 1); if (msg == NULL && !lua_isnoneornil(L, arg + 1)) /* non-string 'msg'? */ lua_pushvalue(L, arg + 1); /* return it untouched */ else { int level = luaL_optint(L, arg + 2, (L == L1) ? 1 : 0); luaL_traceback(L, L1, msg, level); } return 1; } static const luaL_Reg dblib[] = { {"debug", db_debug}, {"getuservalue", db_getuservalue}, {"gethook", db_gethook}, {"getinfo", db_getinfo}, {"getlocal", db_getlocal}, {"getregistry", db_getregistry}, {"getmetatable", db_getmetatable}, {"getupvalue", db_getupvalue}, {"upvaluejoin", db_upvaluejoin}, {"upvalueid", db_upvalueid}, {"setuservalue", db_setuservalue}, {"sethook", db_sethook}, {"setlocal", db_setlocal}, {"setmetatable", db_setmetatable}, {"setupvalue", db_setupvalue}, {"traceback", db_traceback}, {NULL, NULL} }; LUAMOD_API int luaopen_debug (lua_State *L) { luaL_newlib(L, dblib); return 1; } april-ann-0.3.1/lua/lua-5.2.2/src/ldebug.c000066400000000000000000000363351234204160600176050ustar00rootroot00000000000000/* ** $Id: ldebug.c,v 2.90 2012/08/16 17:34:28 roberto Exp $ ** Debug Interface ** See Copyright Notice in lua.h */ #include #include #include #define ldebug_c #define LUA_CORE #include "lua.h" #include "lapi.h" #include "lcode.h" #include "ldebug.h" #include "ldo.h" #include "lfunc.h" #include "lobject.h" #include "lopcodes.h" #include "lstate.h" #include "lstring.h" #include "ltable.h" #include "ltm.h" #include "lvm.h" #define noLuaClosure(f) ((f) == NULL || (f)->c.tt == LUA_TCCL) static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name); static int currentpc (CallInfo *ci) { lua_assert(isLua(ci)); return pcRel(ci->u.l.savedpc, ci_func(ci)->p); } static int currentline (CallInfo *ci) { return getfuncline(ci_func(ci)->p, currentpc(ci)); } /* ** this function can be called asynchronous (e.g. during a signal) */ LUA_API int lua_sethook (lua_State *L, lua_Hook func, int mask, int count) { if (func == NULL || mask == 0) { /* turn off hooks? */ mask = 0; func = NULL; } if (isLua(L->ci)) L->oldpc = L->ci->u.l.savedpc; L->hook = func; L->basehookcount = count; resethookcount(L); L->hookmask = cast_byte(mask); return 1; } LUA_API lua_Hook lua_gethook (lua_State *L) { return L->hook; } LUA_API int lua_gethookmask (lua_State *L) { return L->hookmask; } LUA_API int lua_gethookcount (lua_State *L) { return L->basehookcount; } LUA_API int lua_getstack (lua_State *L, int level, lua_Debug *ar) { int status; CallInfo *ci; if (level < 0) return 0; /* invalid (negative) level */ lua_lock(L); for (ci = L->ci; level > 0 && ci != &L->base_ci; ci = ci->previous) level--; if (level == 0 && ci != &L->base_ci) { /* level found? */ status = 1; ar->i_ci = ci; } else status = 0; /* no such level */ lua_unlock(L); return status; } static const char *upvalname (Proto *p, int uv) { TString *s = check_exp(uv < p->sizeupvalues, p->upvalues[uv].name); if (s == NULL) return "?"; else return getstr(s); } static const char *findvararg (CallInfo *ci, int n, StkId *pos) { int nparams = clLvalue(ci->func)->p->numparams; if (n >= ci->u.l.base - ci->func - nparams) return NULL; /* no such vararg */ else { *pos = ci->func + nparams + n; return "(*vararg)"; /* generic name for any vararg */ } } static const char *findlocal (lua_State *L, CallInfo *ci, int n, StkId *pos) { const char *name = NULL; StkId base; if (isLua(ci)) { if (n < 0) /* access to vararg values? */ return findvararg(ci, -n, pos); else { base = ci->u.l.base; name = luaF_getlocalname(ci_func(ci)->p, n, currentpc(ci)); } } else base = ci->func + 1; if (name == NULL) { /* no 'standard' name? */ StkId limit = (ci == L->ci) ? L->top : ci->next->func; if (limit - base >= n && n > 0) /* is 'n' inside 'ci' stack? */ name = "(*temporary)"; /* generic name for any valid slot */ else return NULL; /* no name */ } *pos = base + (n - 1); return name; } LUA_API const char *lua_getlocal (lua_State *L, const lua_Debug *ar, int n) { const char *name; lua_lock(L); if (ar == NULL) { /* information about non-active function? */ if (!isLfunction(L->top - 1)) /* not a Lua function? */ name = NULL; else /* consider live variables at function start (parameters) */ name = luaF_getlocalname(clLvalue(L->top - 1)->p, n, 0); } else { /* active function; get information through 'ar' */ StkId pos = 0; /* to avoid warnings */ name = findlocal(L, ar->i_ci, n, &pos); if (name) { setobj2s(L, L->top, pos); api_incr_top(L); } } lua_unlock(L); return name; } LUA_API const char *lua_setlocal (lua_State *L, const lua_Debug *ar, int n) { StkId pos = 0; /* to avoid warnings */ const char *name = findlocal(L, ar->i_ci, n, &pos); lua_lock(L); if (name) setobjs2s(L, pos, L->top - 1); L->top--; /* pop value */ lua_unlock(L); return name; } static void funcinfo (lua_Debug *ar, Closure *cl) { if (noLuaClosure(cl)) { ar->source = "=[C]"; ar->linedefined = -1; ar->lastlinedefined = -1; ar->what = "C"; } else { Proto *p = cl->l.p; ar->source = p->source ? getstr(p->source) : "=?"; ar->linedefined = p->linedefined; ar->lastlinedefined = p->lastlinedefined; ar->what = (ar->linedefined == 0) ? "main" : "Lua"; } luaO_chunkid(ar->short_src, ar->source, LUA_IDSIZE); } static void collectvalidlines (lua_State *L, Closure *f) { if (noLuaClosure(f)) { setnilvalue(L->top); api_incr_top(L); } else { int i; TValue v; int *lineinfo = f->l.p->lineinfo; Table *t = luaH_new(L); /* new table to store active lines */ sethvalue(L, L->top, t); /* push it on stack */ api_incr_top(L); setbvalue(&v, 1); /* boolean 'true' to be the value of all indices */ for (i = 0; i < f->l.p->sizelineinfo; i++) /* for all lines with code */ luaH_setint(L, t, lineinfo[i], &v); /* table[line] = true */ } } static int auxgetinfo (lua_State *L, const char *what, lua_Debug *ar, Closure *f, CallInfo *ci) { int status = 1; for (; *what; what++) { switch (*what) { case 'S': { funcinfo(ar, f); break; } case 'l': { ar->currentline = (ci && isLua(ci)) ? currentline(ci) : -1; break; } case 'u': { ar->nups = (f == NULL) ? 0 : f->c.nupvalues; if (noLuaClosure(f)) { ar->isvararg = 1; ar->nparams = 0; } else { ar->isvararg = f->l.p->is_vararg; ar->nparams = f->l.p->numparams; } break; } case 't': { ar->istailcall = (ci) ? ci->callstatus & CIST_TAIL : 0; break; } case 'n': { /* calling function is a known Lua function? */ if (ci && !(ci->callstatus & CIST_TAIL) && isLua(ci->previous)) ar->namewhat = getfuncname(L, ci->previous, &ar->name); else ar->namewhat = NULL; if (ar->namewhat == NULL) { ar->namewhat = ""; /* not found */ ar->name = NULL; } break; } case 'L': case 'f': /* handled by lua_getinfo */ break; default: status = 0; /* invalid option */ } } return status; } LUA_API int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar) { int status; Closure *cl; CallInfo *ci; StkId func; lua_lock(L); if (*what == '>') { ci = NULL; func = L->top - 1; api_check(L, ttisfunction(func), "function expected"); what++; /* skip the '>' */ L->top--; /* pop function */ } else { ci = ar->i_ci; func = ci->func; lua_assert(ttisfunction(ci->func)); } cl = ttisclosure(func) ? clvalue(func) : NULL; status = auxgetinfo(L, what, ar, cl, ci); if (strchr(what, 'f')) { setobjs2s(L, L->top, func); api_incr_top(L); } if (strchr(what, 'L')) collectvalidlines(L, cl); lua_unlock(L); return status; } /* ** {====================================================== ** Symbolic Execution ** ======================================================= */ static const char *getobjname (Proto *p, int lastpc, int reg, const char **name); /* ** find a "name" for the RK value 'c' */ static void kname (Proto *p, int pc, int c, const char **name) { if (ISK(c)) { /* is 'c' a constant? */ TValue *kvalue = &p->k[INDEXK(c)]; if (ttisstring(kvalue)) { /* literal constant? */ *name = svalue(kvalue); /* it is its own name */ return; } /* else no reasonable name found */ } else { /* 'c' is a register */ const char *what = getobjname(p, pc, c, name); /* search for 'c' */ if (what && *what == 'c') { /* found a constant name? */ return; /* 'name' already filled */ } /* else no reasonable name found */ } *name = "?"; /* no reasonable name found */ } /* ** try to find last instruction before 'lastpc' that modified register 'reg' */ static int findsetreg (Proto *p, int lastpc, int reg) { int pc; int setreg = -1; /* keep last instruction that changed 'reg' */ for (pc = 0; pc < lastpc; pc++) { Instruction i = p->code[pc]; OpCode op = GET_OPCODE(i); int a = GETARG_A(i); switch (op) { case OP_LOADNIL: { int b = GETARG_B(i); if (a <= reg && reg <= a + b) /* set registers from 'a' to 'a+b' */ setreg = pc; break; } case OP_TFORCALL: { if (reg >= a + 2) setreg = pc; /* affect all regs above its base */ break; } case OP_CALL: case OP_TAILCALL: { if (reg >= a) setreg = pc; /* affect all registers above base */ break; } case OP_JMP: { int b = GETARG_sBx(i); int dest = pc + 1 + b; /* jump is forward and do not skip `lastpc'? */ if (pc < dest && dest <= lastpc) pc += b; /* do the jump */ break; } case OP_TEST: { if (reg == a) setreg = pc; /* jumped code can change 'a' */ break; } default: if (testAMode(op) && reg == a) /* any instruction that set A */ setreg = pc; break; } } return setreg; } static const char *getobjname (Proto *p, int lastpc, int reg, const char **name) { int pc; *name = luaF_getlocalname(p, reg + 1, lastpc); if (*name) /* is a local? */ return "local"; /* else try symbolic execution */ pc = findsetreg(p, lastpc, reg); if (pc != -1) { /* could find instruction? */ Instruction i = p->code[pc]; OpCode op = GET_OPCODE(i); switch (op) { case OP_MOVE: { int b = GETARG_B(i); /* move from 'b' to 'a' */ if (b < GETARG_A(i)) return getobjname(p, pc, b, name); /* get name for 'b' */ break; } case OP_GETTABUP: case OP_GETTABLE: { int k = GETARG_C(i); /* key index */ int t = GETARG_B(i); /* table index */ const char *vn = (op == OP_GETTABLE) /* name of indexed variable */ ? luaF_getlocalname(p, t + 1, pc) : upvalname(p, t); kname(p, pc, k, name); return (vn && strcmp(vn, LUA_ENV) == 0) ? "global" : "field"; } case OP_GETUPVAL: { *name = upvalname(p, GETARG_B(i)); return "upvalue"; } case OP_LOADK: case OP_LOADKX: { int b = (op == OP_LOADK) ? GETARG_Bx(i) : GETARG_Ax(p->code[pc + 1]); if (ttisstring(&p->k[b])) { *name = svalue(&p->k[b]); return "constant"; } break; } case OP_SELF: { int k = GETARG_C(i); /* key index */ kname(p, pc, k, name); return "method"; } default: break; /* go through to return NULL */ } } return NULL; /* could not find reasonable name */ } static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name) { TMS tm; Proto *p = ci_func(ci)->p; /* calling function */ int pc = currentpc(ci); /* calling instruction index */ Instruction i = p->code[pc]; /* calling instruction */ switch (GET_OPCODE(i)) { case OP_CALL: case OP_TAILCALL: /* get function name */ return getobjname(p, pc, GETARG_A(i), name); case OP_TFORCALL: { /* for iterator */ *name = "for iterator"; return "for iterator"; } /* all other instructions can call only through metamethods */ case OP_SELF: case OP_GETTABUP: case OP_GETTABLE: tm = TM_INDEX; break; case OP_SETTABUP: case OP_SETTABLE: tm = TM_NEWINDEX; break; case OP_EQ: tm = TM_EQ; break; case OP_ADD: tm = TM_ADD; break; case OP_SUB: tm = TM_SUB; break; case OP_MUL: tm = TM_MUL; break; case OP_DIV: tm = TM_DIV; break; case OP_MOD: tm = TM_MOD; break; case OP_POW: tm = TM_POW; break; case OP_UNM: tm = TM_UNM; break; case OP_LEN: tm = TM_LEN; break; case OP_LT: tm = TM_LT; break; case OP_LE: tm = TM_LE; break; case OP_CONCAT: tm = TM_CONCAT; break; default: return NULL; /* else no useful name can be found */ } *name = getstr(G(L)->tmname[tm]); return "metamethod"; } /* }====================================================== */ /* ** only ANSI way to check whether a pointer points to an array ** (used only for error messages, so efficiency is not a big concern) */ static int isinstack (CallInfo *ci, const TValue *o) { StkId p; for (p = ci->u.l.base; p < ci->top; p++) if (o == p) return 1; return 0; } static const char *getupvalname (CallInfo *ci, const TValue *o, const char **name) { LClosure *c = ci_func(ci); int i; for (i = 0; i < c->nupvalues; i++) { if (c->upvals[i]->v == o) { *name = upvalname(c->p, i); return "upvalue"; } } return NULL; } l_noret luaG_typeerror (lua_State *L, const TValue *o, const char *op) { CallInfo *ci = L->ci; const char *name = NULL; const char *t = objtypename(o); const char *kind = NULL; if (isLua(ci)) { kind = getupvalname(ci, o, &name); /* check whether 'o' is an upvalue */ if (!kind && isinstack(ci, o)) /* no? try a register */ kind = getobjname(ci_func(ci)->p, currentpc(ci), cast_int(o - ci->u.l.base), &name); } if (kind) luaG_runerror(L, "attempt to %s %s " LUA_QS " (a %s value)", op, kind, name, t); else luaG_runerror(L, "attempt to %s a %s value", op, t); } l_noret luaG_concaterror (lua_State *L, StkId p1, StkId p2) { if (ttisstring(p1) || ttisnumber(p1)) p1 = p2; lua_assert(!ttisstring(p1) && !ttisnumber(p2)); luaG_typeerror(L, p1, "concatenate"); } l_noret luaG_aritherror (lua_State *L, const TValue *p1, const TValue *p2) { TValue temp; if (luaV_tonumber(p1, &temp) == NULL) p2 = p1; /* first operand is wrong */ luaG_typeerror(L, p2, "perform arithmetic on"); } l_noret luaG_ordererror (lua_State *L, const TValue *p1, const TValue *p2) { const char *t1 = objtypename(p1); const char *t2 = objtypename(p2); if (t1 == t2) luaG_runerror(L, "attempt to compare two %s values", t1); else luaG_runerror(L, "attempt to compare %s with %s", t1, t2); } static void addinfo (lua_State *L, const char *msg) { CallInfo *ci = L->ci; if (isLua(ci)) { /* is Lua code? */ char buff[LUA_IDSIZE]; /* add file:line information */ int line = currentline(ci); TString *src = ci_func(ci)->p->source; if (src) luaO_chunkid(buff, getstr(src), LUA_IDSIZE); else { /* no source available; use "?" instead */ buff[0] = '?'; buff[1] = '\0'; } luaO_pushfstring(L, "%s:%d: %s", buff, line, msg); } } l_noret luaG_errormsg (lua_State *L) { if (L->errfunc != 0) { /* is there an error handling function? */ StkId errfunc = restorestack(L, L->errfunc); if (!ttisfunction(errfunc)) luaD_throw(L, LUA_ERRERR); setobjs2s(L, L->top, L->top - 1); /* move argument */ setobjs2s(L, L->top - 1, errfunc); /* push function */ L->top++; luaD_call(L, L->top - 2, 1, 0); /* call it */ } luaD_throw(L, LUA_ERRRUN); } l_noret luaG_runerror (lua_State *L, const char *fmt, ...) { va_list argp; va_start(argp, fmt); addinfo(L, luaO_pushvfstring(L, fmt, argp)); va_end(argp); luaG_errormsg(L); } april-ann-0.3.1/lua/lua-5.2.2/src/ldebug.h000066400000000000000000000020731234204160600176020ustar00rootroot00000000000000/* ** $Id: ldebug.h,v 2.7 2011/10/07 20:45:19 roberto Exp $ ** Auxiliary functions from Debug Interface module ** See Copyright Notice in lua.h */ #ifndef ldebug_h #define ldebug_h #include "lstate.h" #define pcRel(pc, p) (cast(int, (pc) - (p)->code) - 1) #define getfuncline(f,pc) (((f)->lineinfo) ? (f)->lineinfo[pc] : 0) #define resethookcount(L) (L->hookcount = L->basehookcount) /* Active Lua function (given call info) */ #define ci_func(ci) (clLvalue((ci)->func)) LUAI_FUNC l_noret luaG_typeerror (lua_State *L, const TValue *o, const char *opname); LUAI_FUNC l_noret luaG_concaterror (lua_State *L, StkId p1, StkId p2); LUAI_FUNC l_noret luaG_aritherror (lua_State *L, const TValue *p1, const TValue *p2); LUAI_FUNC l_noret luaG_ordererror (lua_State *L, const TValue *p1, const TValue *p2); LUAI_FUNC l_noret luaG_runerror (lua_State *L, const char *fmt, ...); LUAI_FUNC l_noret luaG_errormsg (lua_State *L); #endif april-ann-0.3.1/lua/lua-5.2.2/src/ldo.c000066400000000000000000000500251234204160600171110ustar00rootroot00000000000000/* ** $Id: ldo.c,v 2.108 2012/10/01 14:05:04 roberto Exp $ ** Stack and Call structure of Lua ** See Copyright Notice in lua.h */ #include #include #include #define ldo_c #define LUA_CORE #include "lua.h" #include "lapi.h" #include "ldebug.h" #include "ldo.h" #include "lfunc.h" #include "lgc.h" #include "lmem.h" #include "lobject.h" #include "lopcodes.h" #include "lparser.h" #include "lstate.h" #include "lstring.h" #include "ltable.h" #include "ltm.h" #include "lundump.h" #include "lvm.h" #include "lzio.h" /* ** {====================================================== ** Error-recovery functions ** ======================================================= */ /* ** LUAI_THROW/LUAI_TRY define how Lua does exception handling. By ** default, Lua handles errors with exceptions when compiling as ** C++ code, with _longjmp/_setjmp when asked to use them, and with ** longjmp/setjmp otherwise. */ #if !defined(LUAI_THROW) #if defined(__cplusplus) && !defined(LUA_USE_LONGJMP) /* C++ exceptions */ #define LUAI_THROW(L,c) throw(c) #define LUAI_TRY(L,c,a) \ try { a } catch(...) { if ((c)->status == 0) (c)->status = -1; } #define luai_jmpbuf int /* dummy variable */ #elif defined(LUA_USE_ULONGJMP) /* in Unix, try _longjmp/_setjmp (more efficient) */ #define LUAI_THROW(L,c) _longjmp((c)->b, 1) #define LUAI_TRY(L,c,a) if (_setjmp((c)->b) == 0) { a } #define luai_jmpbuf jmp_buf #else /* default handling with long jumps */ #define LUAI_THROW(L,c) longjmp((c)->b, 1) #define LUAI_TRY(L,c,a) if (setjmp((c)->b) == 0) { a } #define luai_jmpbuf jmp_buf #endif #endif /* chain list of long jump buffers */ struct lua_longjmp { struct lua_longjmp *previous; luai_jmpbuf b; volatile int status; /* error code */ }; static void seterrorobj (lua_State *L, int errcode, StkId oldtop) { switch (errcode) { case LUA_ERRMEM: { /* memory error? */ setsvalue2s(L, oldtop, G(L)->memerrmsg); /* reuse preregistered msg. */ break; } case LUA_ERRERR: { setsvalue2s(L, oldtop, luaS_newliteral(L, "error in error handling")); break; } default: { setobjs2s(L, oldtop, L->top - 1); /* error message on current top */ break; } } L->top = oldtop + 1; } l_noret luaD_throw (lua_State *L, int errcode) { if (L->errorJmp) { /* thread has an error handler? */ L->errorJmp->status = errcode; /* set status */ LUAI_THROW(L, L->errorJmp); /* jump to it */ } else { /* thread has no error handler */ L->status = cast_byte(errcode); /* mark it as dead */ if (G(L)->mainthread->errorJmp) { /* main thread has a handler? */ setobjs2s(L, G(L)->mainthread->top++, L->top - 1); /* copy error obj. */ luaD_throw(G(L)->mainthread, errcode); /* re-throw in main thread */ } else { /* no handler at all; abort */ if (G(L)->panic) { /* panic function? */ lua_unlock(L); G(L)->panic(L); /* call it (last chance to jump out) */ } abort(); } } } int luaD_rawrunprotected (lua_State *L, Pfunc f, void *ud) { unsigned short oldnCcalls = L->nCcalls; struct lua_longjmp lj; lj.status = LUA_OK; lj.previous = L->errorJmp; /* chain new error handler */ L->errorJmp = &lj; LUAI_TRY(L, &lj, (*f)(L, ud); ); L->errorJmp = lj.previous; /* restore old error handler */ L->nCcalls = oldnCcalls; return lj.status; } /* }====================================================== */ static void correctstack (lua_State *L, TValue *oldstack) { CallInfo *ci; GCObject *up; L->top = (L->top - oldstack) + L->stack; for (up = L->openupval; up != NULL; up = up->gch.next) gco2uv(up)->v = (gco2uv(up)->v - oldstack) + L->stack; for (ci = L->ci; ci != NULL; ci = ci->previous) { ci->top = (ci->top - oldstack) + L->stack; ci->func = (ci->func - oldstack) + L->stack; if (isLua(ci)) ci->u.l.base = (ci->u.l.base - oldstack) + L->stack; } } /* some space for error handling */ #define ERRORSTACKSIZE (LUAI_MAXSTACK + 200) void luaD_reallocstack (lua_State *L, int newsize) { TValue *oldstack = L->stack; int lim = L->stacksize; lua_assert(newsize <= LUAI_MAXSTACK || newsize == ERRORSTACKSIZE); lua_assert(L->stack_last - L->stack == L->stacksize - EXTRA_STACK); luaM_reallocvector(L, L->stack, L->stacksize, newsize, TValue); for (; lim < newsize; lim++) setnilvalue(L->stack + lim); /* erase new segment */ L->stacksize = newsize; L->stack_last = L->stack + newsize - EXTRA_STACK; correctstack(L, oldstack); } void luaD_growstack (lua_State *L, int n) { int size = L->stacksize; if (size > LUAI_MAXSTACK) /* error after extra size? */ luaD_throw(L, LUA_ERRERR); else { int needed = cast_int(L->top - L->stack) + n + EXTRA_STACK; int newsize = 2 * size; if (newsize > LUAI_MAXSTACK) newsize = LUAI_MAXSTACK; if (newsize < needed) newsize = needed; if (newsize > LUAI_MAXSTACK) { /* stack overflow? */ luaD_reallocstack(L, ERRORSTACKSIZE); luaG_runerror(L, "stack overflow"); } else luaD_reallocstack(L, newsize); } } static int stackinuse (lua_State *L) { CallInfo *ci; StkId lim = L->top; for (ci = L->ci; ci != NULL; ci = ci->previous) { lua_assert(ci->top <= L->stack_last); if (lim < ci->top) lim = ci->top; } return cast_int(lim - L->stack) + 1; /* part of stack in use */ } void luaD_shrinkstack (lua_State *L) { int inuse = stackinuse(L); int goodsize = inuse + (inuse / 8) + 2*EXTRA_STACK; if (goodsize > LUAI_MAXSTACK) goodsize = LUAI_MAXSTACK; if (inuse > LUAI_MAXSTACK || /* handling stack overflow? */ goodsize >= L->stacksize) /* would grow instead of shrink? */ condmovestack(L); /* don't change stack (change only for debugging) */ else luaD_reallocstack(L, goodsize); /* shrink it */ } void luaD_hook (lua_State *L, int event, int line) { lua_Hook hook = L->hook; if (hook && L->allowhook) { CallInfo *ci = L->ci; ptrdiff_t top = savestack(L, L->top); ptrdiff_t ci_top = savestack(L, ci->top); lua_Debug ar; ar.event = event; ar.currentline = line; ar.i_ci = ci; luaD_checkstack(L, LUA_MINSTACK); /* ensure minimum stack size */ ci->top = L->top + LUA_MINSTACK; lua_assert(ci->top <= L->stack_last); L->allowhook = 0; /* cannot call hooks inside a hook */ ci->callstatus |= CIST_HOOKED; lua_unlock(L); (*hook)(L, &ar); lua_lock(L); lua_assert(!L->allowhook); L->allowhook = 1; ci->top = restorestack(L, ci_top); L->top = restorestack(L, top); ci->callstatus &= ~CIST_HOOKED; } } static void callhook (lua_State *L, CallInfo *ci) { int hook = LUA_HOOKCALL; ci->u.l.savedpc++; /* hooks assume 'pc' is already incremented */ if (isLua(ci->previous) && GET_OPCODE(*(ci->previous->u.l.savedpc - 1)) == OP_TAILCALL) { ci->callstatus |= CIST_TAIL; hook = LUA_HOOKTAILCALL; } luaD_hook(L, hook, -1); ci->u.l.savedpc--; /* correct 'pc' */ } static StkId adjust_varargs (lua_State *L, Proto *p, int actual) { int i; int nfixargs = p->numparams; StkId base, fixed; lua_assert(actual >= nfixargs); /* move fixed parameters to final position */ fixed = L->top - actual; /* first fixed argument */ base = L->top; /* final position of first argument */ for (i=0; itop++, fixed + i); setnilvalue(fixed + i); } return base; } static StkId tryfuncTM (lua_State *L, StkId func) { const TValue *tm = luaT_gettmbyobj(L, func, TM_CALL); StkId p; ptrdiff_t funcr = savestack(L, func); if (!ttisfunction(tm)) luaG_typeerror(L, func, "call"); /* Open a hole inside the stack at `func' */ for (p = L->top; p > func; p--) setobjs2s(L, p, p-1); incr_top(L); func = restorestack(L, funcr); /* previous call may change stack */ setobj2s(L, func, tm); /* tag method is the new function to be called */ return func; } #define next_ci(L) (L->ci = (L->ci->next ? L->ci->next : luaE_extendCI(L))) /* ** returns true if function has been executed (C function) */ int luaD_precall (lua_State *L, StkId func, int nresults) { lua_CFunction f; CallInfo *ci; int n; /* number of arguments (Lua) or returns (C) */ ptrdiff_t funcr = savestack(L, func); switch (ttype(func)) { case LUA_TLCF: /* light C function */ f = fvalue(func); goto Cfunc; case LUA_TCCL: { /* C closure */ f = clCvalue(func)->f; Cfunc: luaD_checkstack(L, LUA_MINSTACK); /* ensure minimum stack size */ ci = next_ci(L); /* now 'enter' new function */ ci->nresults = nresults; ci->func = restorestack(L, funcr); ci->top = L->top + LUA_MINSTACK; lua_assert(ci->top <= L->stack_last); ci->callstatus = 0; luaC_checkGC(L); /* stack grow uses memory */ if (L->hookmask & LUA_MASKCALL) luaD_hook(L, LUA_HOOKCALL, -1); lua_unlock(L); n = (*f)(L); /* do the actual call */ lua_lock(L); api_checknelems(L, n); luaD_poscall(L, L->top - n); return 1; } case LUA_TLCL: { /* Lua function: prepare its call */ StkId base; Proto *p = clLvalue(func)->p; luaD_checkstack(L, p->maxstacksize); func = restorestack(L, funcr); n = cast_int(L->top - func) - 1; /* number of real arguments */ for (; n < p->numparams; n++) setnilvalue(L->top++); /* complete missing arguments */ base = (!p->is_vararg) ? func + 1 : adjust_varargs(L, p, n); ci = next_ci(L); /* now 'enter' new function */ ci->nresults = nresults; ci->func = func; ci->u.l.base = base; ci->top = base + p->maxstacksize; lua_assert(ci->top <= L->stack_last); ci->u.l.savedpc = p->code; /* starting point */ ci->callstatus = CIST_LUA; L->top = ci->top; luaC_checkGC(L); /* stack grow uses memory */ if (L->hookmask & LUA_MASKCALL) callhook(L, ci); return 0; } default: { /* not a function */ func = tryfuncTM(L, func); /* retry with 'function' tag method */ return luaD_precall(L, func, nresults); /* now it must be a function */ } } } int luaD_poscall (lua_State *L, StkId firstResult) { StkId res; int wanted, i; CallInfo *ci = L->ci; if (L->hookmask & (LUA_MASKRET | LUA_MASKLINE)) { if (L->hookmask & LUA_MASKRET) { ptrdiff_t fr = savestack(L, firstResult); /* hook may change stack */ luaD_hook(L, LUA_HOOKRET, -1); firstResult = restorestack(L, fr); } L->oldpc = ci->previous->u.l.savedpc; /* 'oldpc' for caller function */ } res = ci->func; /* res == final position of 1st result */ wanted = ci->nresults; L->ci = ci = ci->previous; /* back to caller */ /* move results to correct place */ for (i = wanted; i != 0 && firstResult < L->top; i--) setobjs2s(L, res++, firstResult++); while (i-- > 0) setnilvalue(res++); L->top = res; return (wanted - LUA_MULTRET); /* 0 iff wanted == LUA_MULTRET */ } /* ** Call a function (C or Lua). The function to be called is at *func. ** The arguments are on the stack, right after the function. ** When returns, all the results are on the stack, starting at the original ** function position. */ void luaD_call (lua_State *L, StkId func, int nResults, int allowyield) { if (++L->nCcalls >= LUAI_MAXCCALLS) { if (L->nCcalls == LUAI_MAXCCALLS) luaG_runerror(L, "C stack overflow"); else if (L->nCcalls >= (LUAI_MAXCCALLS + (LUAI_MAXCCALLS>>3))) luaD_throw(L, LUA_ERRERR); /* error while handing stack error */ } if (!allowyield) L->nny++; if (!luaD_precall(L, func, nResults)) /* is a Lua function? */ luaV_execute(L); /* call it */ if (!allowyield) L->nny--; L->nCcalls--; } static void finishCcall (lua_State *L) { CallInfo *ci = L->ci; int n; lua_assert(ci->u.c.k != NULL); /* must have a continuation */ lua_assert(L->nny == 0); if (ci->callstatus & CIST_YPCALL) { /* was inside a pcall? */ ci->callstatus &= ~CIST_YPCALL; /* finish 'lua_pcall' */ L->errfunc = ci->u.c.old_errfunc; } /* finish 'lua_callk'/'lua_pcall' */ adjustresults(L, ci->nresults); /* call continuation function */ if (!(ci->callstatus & CIST_STAT)) /* no call status? */ ci->u.c.status = LUA_YIELD; /* 'default' status */ lua_assert(ci->u.c.status != LUA_OK); ci->callstatus = (ci->callstatus & ~(CIST_YPCALL | CIST_STAT)) | CIST_YIELDED; lua_unlock(L); n = (*ci->u.c.k)(L); lua_lock(L); api_checknelems(L, n); /* finish 'luaD_precall' */ luaD_poscall(L, L->top - n); } static void unroll (lua_State *L, void *ud) { UNUSED(ud); for (;;) { if (L->ci == &L->base_ci) /* stack is empty? */ return; /* coroutine finished normally */ if (!isLua(L->ci)) /* C function? */ finishCcall(L); else { /* Lua function */ luaV_finishOp(L); /* finish interrupted instruction */ luaV_execute(L); /* execute down to higher C 'boundary' */ } } } /* ** check whether thread has a suspended protected call */ static CallInfo *findpcall (lua_State *L) { CallInfo *ci; for (ci = L->ci; ci != NULL; ci = ci->previous) { /* search for a pcall */ if (ci->callstatus & CIST_YPCALL) return ci; } return NULL; /* no pending pcall */ } static int recover (lua_State *L, int status) { StkId oldtop; CallInfo *ci = findpcall(L); if (ci == NULL) return 0; /* no recovery point */ /* "finish" luaD_pcall */ oldtop = restorestack(L, ci->extra); luaF_close(L, oldtop); seterrorobj(L, status, oldtop); L->ci = ci; L->allowhook = ci->u.c.old_allowhook; L->nny = 0; /* should be zero to be yieldable */ luaD_shrinkstack(L); L->errfunc = ci->u.c.old_errfunc; ci->callstatus |= CIST_STAT; /* call has error status */ ci->u.c.status = status; /* (here it is) */ return 1; /* continue running the coroutine */ } /* ** signal an error in the call to 'resume', not in the execution of the ** coroutine itself. (Such errors should not be handled by any coroutine ** error handler and should not kill the coroutine.) */ static l_noret resume_error (lua_State *L, const char *msg, StkId firstArg) { L->top = firstArg; /* remove args from the stack */ setsvalue2s(L, L->top, luaS_new(L, msg)); /* push error message */ api_incr_top(L); luaD_throw(L, -1); /* jump back to 'lua_resume' */ } /* ** do the work for 'lua_resume' in protected mode */ static void resume (lua_State *L, void *ud) { int nCcalls = L->nCcalls; StkId firstArg = cast(StkId, ud); CallInfo *ci = L->ci; if (nCcalls >= LUAI_MAXCCALLS) resume_error(L, "C stack overflow", firstArg); if (L->status == LUA_OK) { /* may be starting a coroutine */ if (ci != &L->base_ci) /* not in base level? */ resume_error(L, "cannot resume non-suspended coroutine", firstArg); /* coroutine is in base level; start running it */ if (!luaD_precall(L, firstArg - 1, LUA_MULTRET)) /* Lua function? */ luaV_execute(L); /* call it */ } else if (L->status != LUA_YIELD) resume_error(L, "cannot resume dead coroutine", firstArg); else { /* resuming from previous yield */ L->status = LUA_OK; ci->func = restorestack(L, ci->extra); if (isLua(ci)) /* yielded inside a hook? */ luaV_execute(L); /* just continue running Lua code */ else { /* 'common' yield */ if (ci->u.c.k != NULL) { /* does it have a continuation? */ int n; ci->u.c.status = LUA_YIELD; /* 'default' status */ ci->callstatus |= CIST_YIELDED; lua_unlock(L); n = (*ci->u.c.k)(L); /* call continuation */ lua_lock(L); api_checknelems(L, n); firstArg = L->top - n; /* yield results come from continuation */ } luaD_poscall(L, firstArg); /* finish 'luaD_precall' */ } unroll(L, NULL); } lua_assert(nCcalls == L->nCcalls); } LUA_API int lua_resume (lua_State *L, lua_State *from, int nargs) { int status; lua_lock(L); luai_userstateresume(L, nargs); L->nCcalls = (from) ? from->nCcalls + 1 : 1; L->nny = 0; /* allow yields */ api_checknelems(L, (L->status == LUA_OK) ? nargs + 1 : nargs); status = luaD_rawrunprotected(L, resume, L->top - nargs); if (status == -1) /* error calling 'lua_resume'? */ status = LUA_ERRRUN; else { /* yield or regular error */ while (status != LUA_OK && status != LUA_YIELD) { /* error? */ if (recover(L, status)) /* recover point? */ status = luaD_rawrunprotected(L, unroll, NULL); /* run continuation */ else { /* unrecoverable error */ L->status = cast_byte(status); /* mark thread as `dead' */ seterrorobj(L, status, L->top); L->ci->top = L->top; break; } } lua_assert(status == L->status); } L->nny = 1; /* do not allow yields */ L->nCcalls--; lua_assert(L->nCcalls == ((from) ? from->nCcalls : 0)); lua_unlock(L); return status; } LUA_API int lua_yieldk (lua_State *L, int nresults, int ctx, lua_CFunction k) { CallInfo *ci = L->ci; luai_userstateyield(L, nresults); lua_lock(L); api_checknelems(L, nresults); if (L->nny > 0) { if (L != G(L)->mainthread) luaG_runerror(L, "attempt to yield across a C-call boundary"); else luaG_runerror(L, "attempt to yield from outside a coroutine"); } L->status = LUA_YIELD; ci->extra = savestack(L, ci->func); /* save current 'func' */ if (isLua(ci)) { /* inside a hook? */ api_check(L, k == NULL, "hooks cannot continue after yielding"); } else { if ((ci->u.c.k = k) != NULL) /* is there a continuation? */ ci->u.c.ctx = ctx; /* save context */ ci->func = L->top - nresults - 1; /* protect stack below results */ luaD_throw(L, LUA_YIELD); } lua_assert(ci->callstatus & CIST_HOOKED); /* must be inside a hook */ lua_unlock(L); return 0; /* return to 'luaD_hook' */ } int luaD_pcall (lua_State *L, Pfunc func, void *u, ptrdiff_t old_top, ptrdiff_t ef) { int status; CallInfo *old_ci = L->ci; lu_byte old_allowhooks = L->allowhook; unsigned short old_nny = L->nny; ptrdiff_t old_errfunc = L->errfunc; L->errfunc = ef; status = luaD_rawrunprotected(L, func, u); if (status != LUA_OK) { /* an error occurred? */ StkId oldtop = restorestack(L, old_top); luaF_close(L, oldtop); /* close possible pending closures */ seterrorobj(L, status, oldtop); L->ci = old_ci; L->allowhook = old_allowhooks; L->nny = old_nny; luaD_shrinkstack(L); } L->errfunc = old_errfunc; return status; } /* ** Execute a protected parser. */ struct SParser { /* data to `f_parser' */ ZIO *z; Mbuffer buff; /* dynamic structure used by the scanner */ Dyndata dyd; /* dynamic structures used by the parser */ const char *mode; const char *name; }; static void checkmode (lua_State *L, const char *mode, const char *x) { if (mode && strchr(mode, x[0]) == NULL) { luaO_pushfstring(L, "attempt to load a %s chunk (mode is " LUA_QS ")", x, mode); luaD_throw(L, LUA_ERRSYNTAX); } } static void f_parser (lua_State *L, void *ud) { int i; Closure *cl; struct SParser *p = cast(struct SParser *, ud); int c = zgetc(p->z); /* read first character */ if (c == LUA_SIGNATURE[0]) { checkmode(L, p->mode, "binary"); cl = luaU_undump(L, p->z, &p->buff, p->name); } else { checkmode(L, p->mode, "text"); cl = luaY_parser(L, p->z, &p->buff, &p->dyd, p->name, c); } lua_assert(cl->l.nupvalues == cl->l.p->sizeupvalues); for (i = 0; i < cl->l.nupvalues; i++) { /* initialize upvalues */ UpVal *up = luaF_newupval(L); cl->l.upvals[i] = up; luaC_objbarrier(L, cl, up); } } int luaD_protectedparser (lua_State *L, ZIO *z, const char *name, const char *mode) { struct SParser p; int status; L->nny++; /* cannot yield during parsing */ p.z = z; p.name = name; p.mode = mode; p.dyd.actvar.arr = NULL; p.dyd.actvar.size = 0; p.dyd.gt.arr = NULL; p.dyd.gt.size = 0; p.dyd.label.arr = NULL; p.dyd.label.size = 0; luaZ_initbuffer(L, &p.buff); status = luaD_pcall(L, f_parser, &p, savestack(L, L->top), L->errfunc); luaZ_freebuffer(L, &p.buff); luaM_freearray(L, p.dyd.actvar.arr, p.dyd.actvar.size); luaM_freearray(L, p.dyd.gt.arr, p.dyd.gt.size); luaM_freearray(L, p.dyd.label.arr, p.dyd.label.size); L->nny--; return status; } april-ann-0.3.1/lua/lua-5.2.2/src/ldo.h000066400000000000000000000027671234204160600171300ustar00rootroot00000000000000/* ** $Id: ldo.h,v 2.20 2011/11/29 15:55:08 roberto Exp $ ** Stack and Call structure of Lua ** See Copyright Notice in lua.h */ #ifndef ldo_h #define ldo_h #include "lobject.h" #include "lstate.h" #include "lzio.h" #define luaD_checkstack(L,n) if (L->stack_last - L->top <= (n)) \ luaD_growstack(L, n); else condmovestack(L); #define incr_top(L) {L->top++; luaD_checkstack(L,0);} #define savestack(L,p) ((char *)(p) - (char *)L->stack) #define restorestack(L,n) ((TValue *)((char *)L->stack + (n))) /* type of protected functions, to be ran by `runprotected' */ typedef void (*Pfunc) (lua_State *L, void *ud); LUAI_FUNC int luaD_protectedparser (lua_State *L, ZIO *z, const char *name, const char *mode); LUAI_FUNC void luaD_hook (lua_State *L, int event, int line); LUAI_FUNC int luaD_precall (lua_State *L, StkId func, int nresults); LUAI_FUNC void luaD_call (lua_State *L, StkId func, int nResults, int allowyield); LUAI_FUNC int luaD_pcall (lua_State *L, Pfunc func, void *u, ptrdiff_t oldtop, ptrdiff_t ef); LUAI_FUNC int luaD_poscall (lua_State *L, StkId firstResult); LUAI_FUNC void luaD_reallocstack (lua_State *L, int newsize); LUAI_FUNC void luaD_growstack (lua_State *L, int n); LUAI_FUNC void luaD_shrinkstack (lua_State *L); LUAI_FUNC l_noret luaD_throw (lua_State *L, int errcode); LUAI_FUNC int luaD_rawrunprotected (lua_State *L, Pfunc f, void *ud); #endif april-ann-0.3.1/lua/lua-5.2.2/src/ldump.c000066400000000000000000000062211234204160600174530ustar00rootroot00000000000000/* ** $Id: ldump.c,v 2.17 2012/01/23 23:02:10 roberto Exp $ ** save precompiled Lua chunks ** See Copyright Notice in lua.h */ #include #define ldump_c #define LUA_CORE #include "lua.h" #include "lobject.h" #include "lstate.h" #include "lundump.h" typedef struct { lua_State* L; lua_Writer writer; void* data; int strip; int status; } DumpState; #define DumpMem(b,n,size,D) DumpBlock(b,(n)*(size),D) #define DumpVar(x,D) DumpMem(&x,1,sizeof(x),D) static void DumpBlock(const void* b, size_t size, DumpState* D) { if (D->status==0) { lua_unlock(D->L); D->status=(*D->writer)(D->L,b,size,D->data); lua_lock(D->L); } } static void DumpChar(int y, DumpState* D) { char x=(char)y; DumpVar(x,D); } static void DumpInt(int x, DumpState* D) { DumpVar(x,D); } static void DumpNumber(lua_Number x, DumpState* D) { DumpVar(x,D); } static void DumpVector(const void* b, int n, size_t size, DumpState* D) { DumpInt(n,D); DumpMem(b,n,size,D); } static void DumpString(const TString* s, DumpState* D) { if (s==NULL) { size_t size=0; DumpVar(size,D); } else { size_t size=s->tsv.len+1; /* include trailing '\0' */ DumpVar(size,D); DumpBlock(getstr(s),size*sizeof(char),D); } } #define DumpCode(f,D) DumpVector(f->code,f->sizecode,sizeof(Instruction),D) static void DumpFunction(const Proto* f, DumpState* D); static void DumpConstants(const Proto* f, DumpState* D) { int i,n=f->sizek; DumpInt(n,D); for (i=0; ik[i]; DumpChar(ttypenv(o),D); switch (ttypenv(o)) { case LUA_TNIL: break; case LUA_TBOOLEAN: DumpChar(bvalue(o),D); break; case LUA_TNUMBER: DumpNumber(nvalue(o),D); break; case LUA_TSTRING: DumpString(rawtsvalue(o),D); break; default: lua_assert(0); } } n=f->sizep; DumpInt(n,D); for (i=0; ip[i],D); } static void DumpUpvalues(const Proto* f, DumpState* D) { int i,n=f->sizeupvalues; DumpInt(n,D); for (i=0; iupvalues[i].instack,D); DumpChar(f->upvalues[i].idx,D); } } static void DumpDebug(const Proto* f, DumpState* D) { int i,n; DumpString((D->strip) ? NULL : f->source,D); n= (D->strip) ? 0 : f->sizelineinfo; DumpVector(f->lineinfo,n,sizeof(int),D); n= (D->strip) ? 0 : f->sizelocvars; DumpInt(n,D); for (i=0; ilocvars[i].varname,D); DumpInt(f->locvars[i].startpc,D); DumpInt(f->locvars[i].endpc,D); } n= (D->strip) ? 0 : f->sizeupvalues; DumpInt(n,D); for (i=0; iupvalues[i].name,D); } static void DumpFunction(const Proto* f, DumpState* D) { DumpInt(f->linedefined,D); DumpInt(f->lastlinedefined,D); DumpChar(f->numparams,D); DumpChar(f->is_vararg,D); DumpChar(f->maxstacksize,D); DumpCode(f,D); DumpConstants(f,D); DumpUpvalues(f,D); DumpDebug(f,D); } static void DumpHeader(DumpState* D) { lu_byte h[LUAC_HEADERSIZE]; luaU_header(h); DumpBlock(h,LUAC_HEADERSIZE,D); } /* ** dump Lua function as precompiled chunk */ int luaU_dump (lua_State* L, const Proto* f, lua_Writer w, void* data, int strip) { DumpState D; D.L=L; D.writer=w; D.data=data; D.strip=strip; D.status=0; DumpHeader(&D); DumpFunction(f,&D); return D.status; } april-ann-0.3.1/lua/lua-5.2.2/src/lfunc.c000066400000000000000000000102521234204160600174400ustar00rootroot00000000000000/* ** $Id: lfunc.c,v 2.30 2012/10/03 12:36:46 roberto Exp $ ** Auxiliary functions to manipulate prototypes and closures ** See Copyright Notice in lua.h */ #include #define lfunc_c #define LUA_CORE #include "lua.h" #include "lfunc.h" #include "lgc.h" #include "lmem.h" #include "lobject.h" #include "lstate.h" Closure *luaF_newCclosure (lua_State *L, int n) { Closure *c = &luaC_newobj(L, LUA_TCCL, sizeCclosure(n), NULL, 0)->cl; c->c.nupvalues = cast_byte(n); return c; } Closure *luaF_newLclosure (lua_State *L, int n) { Closure *c = &luaC_newobj(L, LUA_TLCL, sizeLclosure(n), NULL, 0)->cl; c->l.p = NULL; c->l.nupvalues = cast_byte(n); while (n--) c->l.upvals[n] = NULL; return c; } UpVal *luaF_newupval (lua_State *L) { UpVal *uv = &luaC_newobj(L, LUA_TUPVAL, sizeof(UpVal), NULL, 0)->uv; uv->v = &uv->u.value; setnilvalue(uv->v); return uv; } UpVal *luaF_findupval (lua_State *L, StkId level) { global_State *g = G(L); GCObject **pp = &L->openupval; UpVal *p; UpVal *uv; while (*pp != NULL && (p = gco2uv(*pp))->v >= level) { GCObject *o = obj2gco(p); lua_assert(p->v != &p->u.value); lua_assert(!isold(o) || isold(obj2gco(L))); if (p->v == level) { /* found a corresponding upvalue? */ if (isdead(g, o)) /* is it dead? */ changewhite(o); /* resurrect it */ return p; } pp = &p->next; } /* not found: create a new one */ uv = &luaC_newobj(L, LUA_TUPVAL, sizeof(UpVal), pp, 0)->uv; uv->v = level; /* current value lives in the stack */ uv->u.l.prev = &g->uvhead; /* double link it in `uvhead' list */ uv->u.l.next = g->uvhead.u.l.next; uv->u.l.next->u.l.prev = uv; g->uvhead.u.l.next = uv; lua_assert(uv->u.l.next->u.l.prev == uv && uv->u.l.prev->u.l.next == uv); return uv; } static void unlinkupval (UpVal *uv) { lua_assert(uv->u.l.next->u.l.prev == uv && uv->u.l.prev->u.l.next == uv); uv->u.l.next->u.l.prev = uv->u.l.prev; /* remove from `uvhead' list */ uv->u.l.prev->u.l.next = uv->u.l.next; } void luaF_freeupval (lua_State *L, UpVal *uv) { if (uv->v != &uv->u.value) /* is it open? */ unlinkupval(uv); /* remove from open list */ luaM_free(L, uv); /* free upvalue */ } void luaF_close (lua_State *L, StkId level) { UpVal *uv; global_State *g = G(L); while (L->openupval != NULL && (uv = gco2uv(L->openupval))->v >= level) { GCObject *o = obj2gco(uv); lua_assert(!isblack(o) && uv->v != &uv->u.value); L->openupval = uv->next; /* remove from `open' list */ if (isdead(g, o)) luaF_freeupval(L, uv); /* free upvalue */ else { unlinkupval(uv); /* remove upvalue from 'uvhead' list */ setobj(L, &uv->u.value, uv->v); /* move value to upvalue slot */ uv->v = &uv->u.value; /* now current value lives here */ gch(o)->next = g->allgc; /* link upvalue into 'allgc' list */ g->allgc = o; luaC_checkupvalcolor(g, uv); } } } Proto *luaF_newproto (lua_State *L) { Proto *f = &luaC_newobj(L, LUA_TPROTO, sizeof(Proto), NULL, 0)->p; f->k = NULL; f->sizek = 0; f->p = NULL; f->sizep = 0; f->code = NULL; f->cache = NULL; f->sizecode = 0; f->lineinfo = NULL; f->sizelineinfo = 0; f->upvalues = NULL; f->sizeupvalues = 0; f->numparams = 0; f->is_vararg = 0; f->maxstacksize = 0; f->locvars = NULL; f->sizelocvars = 0; f->linedefined = 0; f->lastlinedefined = 0; f->source = NULL; return f; } void luaF_freeproto (lua_State *L, Proto *f) { luaM_freearray(L, f->code, f->sizecode); luaM_freearray(L, f->p, f->sizep); luaM_freearray(L, f->k, f->sizek); luaM_freearray(L, f->lineinfo, f->sizelineinfo); luaM_freearray(L, f->locvars, f->sizelocvars); luaM_freearray(L, f->upvalues, f->sizeupvalues); luaM_free(L, f); } /* ** Look for n-th local variable at line `line' in function `func'. ** Returns NULL if not found. */ const char *luaF_getlocalname (const Proto *f, int local_number, int pc) { int i; for (i = 0; isizelocvars && f->locvars[i].startpc <= pc; i++) { if (pc < f->locvars[i].endpc) { /* is variable active? */ local_number--; if (local_number == 0) return getstr(f->locvars[i].varname); } } return NULL; /* not found */ } april-ann-0.3.1/lua/lua-5.2.2/src/lfunc.h000066400000000000000000000020211234204160600174400ustar00rootroot00000000000000/* ** $Id: lfunc.h,v 2.8 2012/05/08 13:53:33 roberto Exp $ ** Auxiliary functions to manipulate prototypes and closures ** See Copyright Notice in lua.h */ #ifndef lfunc_h #define lfunc_h #include "lobject.h" #define sizeCclosure(n) (cast(int, sizeof(CClosure)) + \ cast(int, sizeof(TValue)*((n)-1))) #define sizeLclosure(n) (cast(int, sizeof(LClosure)) + \ cast(int, sizeof(TValue *)*((n)-1))) LUAI_FUNC Proto *luaF_newproto (lua_State *L); LUAI_FUNC Closure *luaF_newCclosure (lua_State *L, int nelems); LUAI_FUNC Closure *luaF_newLclosure (lua_State *L, int nelems); LUAI_FUNC UpVal *luaF_newupval (lua_State *L); LUAI_FUNC UpVal *luaF_findupval (lua_State *L, StkId level); LUAI_FUNC void luaF_close (lua_State *L, StkId level); LUAI_FUNC void luaF_freeproto (lua_State *L, Proto *f); LUAI_FUNC void luaF_freeupval (lua_State *L, UpVal *uv); LUAI_FUNC const char *luaF_getlocalname (const Proto *func, int local_number, int pc); #endif april-ann-0.3.1/lua/lua-5.2.2/src/lgc.c000066400000000000000000001112011234204160600170720ustar00rootroot00000000000000/* ** $Id: lgc.c,v 2.140 2013/03/16 21:10:18 roberto Exp $ ** Garbage Collector ** See Copyright Notice in lua.h */ #include #define lgc_c #define LUA_CORE #include "lua.h" #include "ldebug.h" #include "ldo.h" #include "lfunc.h" #include "lgc.h" #include "lmem.h" #include "lobject.h" #include "lstate.h" #include "lstring.h" #include "ltable.h" #include "ltm.h" /* ** cost of sweeping one element (the size of a small object divided ** by some adjust for the sweep speed) */ #define GCSWEEPCOST ((sizeof(TString) + 4) / 4) /* maximum number of elements to sweep in each single step */ #define GCSWEEPMAX (cast_int((GCSTEPSIZE / GCSWEEPCOST) / 4)) /* maximum number of finalizers to call in each GC step */ #define GCFINALIZENUM 4 /* ** macro to adjust 'stepmul': 'stepmul' is actually used like ** 'stepmul / STEPMULADJ' (value chosen by tests) */ #define STEPMULADJ 200 /* ** macro to adjust 'pause': 'pause' is actually used like ** 'pause / PAUSEADJ' (value chosen by tests) */ #define PAUSEADJ 100 /* ** 'makewhite' erases all color bits plus the old bit and then ** sets only the current white bit */ #define maskcolors (~(bit2mask(BLACKBIT, OLDBIT) | WHITEBITS)) #define makewhite(g,x) \ (gch(x)->marked = cast_byte((gch(x)->marked & maskcolors) | luaC_white(g))) #define white2gray(x) resetbits(gch(x)->marked, WHITEBITS) #define black2gray(x) resetbit(gch(x)->marked, BLACKBIT) #define isfinalized(x) testbit(gch(x)->marked, FINALIZEDBIT) #define checkdeadkey(n) lua_assert(!ttisdeadkey(gkey(n)) || ttisnil(gval(n))) #define checkconsistency(obj) \ lua_longassert(!iscollectable(obj) || righttt(obj)) #define markvalue(g,o) { checkconsistency(o); \ if (valiswhite(o)) reallymarkobject(g,gcvalue(o)); } #define markobject(g,t) { if ((t) && iswhite(obj2gco(t))) \ reallymarkobject(g, obj2gco(t)); } static void reallymarkobject (global_State *g, GCObject *o); /* ** {====================================================== ** Generic functions ** ======================================================= */ /* ** one after last element in a hash array */ #define gnodelast(h) gnode(h, cast(size_t, sizenode(h))) /* ** link table 'h' into list pointed by 'p' */ #define linktable(h,p) ((h)->gclist = *(p), *(p) = obj2gco(h)) /* ** if key is not marked, mark its entry as dead (therefore removing it ** from the table) */ static void removeentry (Node *n) { lua_assert(ttisnil(gval(n))); if (valiswhite(gkey(n))) setdeadvalue(gkey(n)); /* unused and unmarked key; remove it */ } /* ** tells whether a key or value can be cleared from a weak ** table. Non-collectable objects are never removed from weak ** tables. Strings behave as `values', so are never removed too. for ** other objects: if really collected, cannot keep them; for objects ** being finalized, keep them in keys, but not in values */ static int iscleared (global_State *g, const TValue *o) { if (!iscollectable(o)) return 0; else if (ttisstring(o)) { markobject(g, rawtsvalue(o)); /* strings are `values', so are never weak */ return 0; } else return iswhite(gcvalue(o)); } /* ** barrier that moves collector forward, that is, mark the white object ** being pointed by a black object. */ void luaC_barrier_ (lua_State *L, GCObject *o, GCObject *v) { global_State *g = G(L); lua_assert(isblack(o) && iswhite(v) && !isdead(g, v) && !isdead(g, o)); lua_assert(g->gcstate != GCSpause); lua_assert(gch(o)->tt != LUA_TTABLE); if (keepinvariantout(g)) /* must keep invariant? */ reallymarkobject(g, v); /* restore invariant */ else { /* sweep phase */ lua_assert(issweepphase(g)); makewhite(g, o); /* mark main obj. as white to avoid other barriers */ } } /* ** barrier that moves collector backward, that is, mark the black object ** pointing to a white object as gray again. (Current implementation ** only works for tables; access to 'gclist' is not uniform across ** different types.) */ void luaC_barrierback_ (lua_State *L, GCObject *o) { global_State *g = G(L); lua_assert(isblack(o) && !isdead(g, o) && gch(o)->tt == LUA_TTABLE); black2gray(o); /* make object gray (again) */ gco2t(o)->gclist = g->grayagain; g->grayagain = o; } /* ** barrier for prototypes. When creating first closure (cache is ** NULL), use a forward barrier; this may be the only closure of the ** prototype (if it is a "regular" function, with a single instance) ** and the prototype may be big, so it is better to avoid traversing ** it again. Otherwise, use a backward barrier, to avoid marking all ** possible instances. */ LUAI_FUNC void luaC_barrierproto_ (lua_State *L, Proto *p, Closure *c) { global_State *g = G(L); lua_assert(isblack(obj2gco(p))); if (p->cache == NULL) { /* first time? */ luaC_objbarrier(L, p, c); } else { /* use a backward barrier */ black2gray(obj2gco(p)); /* make prototype gray (again) */ p->gclist = g->grayagain; g->grayagain = obj2gco(p); } } /* ** check color (and invariants) for an upvalue that was closed, ** i.e., moved into the 'allgc' list */ void luaC_checkupvalcolor (global_State *g, UpVal *uv) { GCObject *o = obj2gco(uv); lua_assert(!isblack(o)); /* open upvalues are never black */ if (isgray(o)) { if (keepinvariant(g)) { resetoldbit(o); /* see MOVE OLD rule */ gray2black(o); /* it is being visited now */ markvalue(g, uv->v); } else { lua_assert(issweepphase(g)); makewhite(g, o); } } } /* ** create a new collectable object (with given type and size) and link ** it to '*list'. 'offset' tells how many bytes to allocate before the ** object itself (used only by states). */ GCObject *luaC_newobj (lua_State *L, int tt, size_t sz, GCObject **list, int offset) { global_State *g = G(L); char *raw = cast(char *, luaM_newobject(L, novariant(tt), sz)); GCObject *o = obj2gco(raw + offset); if (list == NULL) list = &g->allgc; /* standard list for collectable objects */ gch(o)->marked = luaC_white(g); gch(o)->tt = tt; gch(o)->next = *list; *list = o; return o; } /* }====================================================== */ /* ** {====================================================== ** Mark functions ** ======================================================= */ /* ** mark an object. Userdata, strings, and closed upvalues are visited ** and turned black here. Other objects are marked gray and added ** to appropriate list to be visited (and turned black) later. (Open ** upvalues are already linked in 'headuv' list.) */ static void reallymarkobject (global_State *g, GCObject *o) { lu_mem size; white2gray(o); switch (gch(o)->tt) { case LUA_TSHRSTR: case LUA_TLNGSTR: { size = sizestring(gco2ts(o)); break; /* nothing else to mark; make it black */ } case LUA_TUSERDATA: { Table *mt = gco2u(o)->metatable; markobject(g, mt); markobject(g, gco2u(o)->env); size = sizeudata(gco2u(o)); break; } case LUA_TUPVAL: { UpVal *uv = gco2uv(o); markvalue(g, uv->v); if (uv->v != &uv->u.value) /* open? */ return; /* open upvalues remain gray */ size = sizeof(UpVal); break; } case LUA_TLCL: { gco2lcl(o)->gclist = g->gray; g->gray = o; return; } case LUA_TCCL: { gco2ccl(o)->gclist = g->gray; g->gray = o; return; } case LUA_TTABLE: { linktable(gco2t(o), &g->gray); return; } case LUA_TTHREAD: { gco2th(o)->gclist = g->gray; g->gray = o; return; } case LUA_TPROTO: { gco2p(o)->gclist = g->gray; g->gray = o; return; } default: lua_assert(0); return; } gray2black(o); g->GCmemtrav += size; } /* ** mark metamethods for basic types */ static void markmt (global_State *g) { int i; for (i=0; i < LUA_NUMTAGS; i++) markobject(g, g->mt[i]); } /* ** mark all objects in list of being-finalized */ static void markbeingfnz (global_State *g) { GCObject *o; for (o = g->tobefnz; o != NULL; o = gch(o)->next) { makewhite(g, o); reallymarkobject(g, o); } } /* ** mark all values stored in marked open upvalues. (See comment in ** 'lstate.h'.) */ static void remarkupvals (global_State *g) { UpVal *uv; for (uv = g->uvhead.u.l.next; uv != &g->uvhead; uv = uv->u.l.next) { if (isgray(obj2gco(uv))) markvalue(g, uv->v); } } /* ** mark root set and reset all gray lists, to start a new ** incremental (or full) collection */ static void restartcollection (global_State *g) { g->gray = g->grayagain = NULL; g->weak = g->allweak = g->ephemeron = NULL; markobject(g, g->mainthread); markvalue(g, &g->l_registry); markmt(g); markbeingfnz(g); /* mark any finalizing object left from previous cycle */ } /* }====================================================== */ /* ** {====================================================== ** Traverse functions ** ======================================================= */ static void traverseweakvalue (global_State *g, Table *h) { Node *n, *limit = gnodelast(h); /* if there is array part, assume it may have white values (do not traverse it just to check) */ int hasclears = (h->sizearray > 0); for (n = gnode(h, 0); n < limit; n++) { checkdeadkey(n); if (ttisnil(gval(n))) /* entry is empty? */ removeentry(n); /* remove it */ else { lua_assert(!ttisnil(gkey(n))); markvalue(g, gkey(n)); /* mark key */ if (!hasclears && iscleared(g, gval(n))) /* is there a white value? */ hasclears = 1; /* table will have to be cleared */ } } if (hasclears) linktable(h, &g->weak); /* has to be cleared later */ else /* no white values */ linktable(h, &g->grayagain); /* no need to clean */ } static int traverseephemeron (global_State *g, Table *h) { int marked = 0; /* true if an object is marked in this traversal */ int hasclears = 0; /* true if table has white keys */ int prop = 0; /* true if table has entry "white-key -> white-value" */ Node *n, *limit = gnodelast(h); int i; /* traverse array part (numeric keys are 'strong') */ for (i = 0; i < h->sizearray; i++) { if (valiswhite(&h->array[i])) { marked = 1; reallymarkobject(g, gcvalue(&h->array[i])); } } /* traverse hash part */ for (n = gnode(h, 0); n < limit; n++) { checkdeadkey(n); if (ttisnil(gval(n))) /* entry is empty? */ removeentry(n); /* remove it */ else if (iscleared(g, gkey(n))) { /* key is not marked (yet)? */ hasclears = 1; /* table must be cleared */ if (valiswhite(gval(n))) /* value not marked yet? */ prop = 1; /* must propagate again */ } else if (valiswhite(gval(n))) { /* value not marked yet? */ marked = 1; reallymarkobject(g, gcvalue(gval(n))); /* mark it now */ } } if (prop) linktable(h, &g->ephemeron); /* have to propagate again */ else if (hasclears) /* does table have white keys? */ linktable(h, &g->allweak); /* may have to clean white keys */ else /* no white keys */ linktable(h, &g->grayagain); /* no need to clean */ return marked; } static void traversestrongtable (global_State *g, Table *h) { Node *n, *limit = gnodelast(h); int i; for (i = 0; i < h->sizearray; i++) /* traverse array part */ markvalue(g, &h->array[i]); for (n = gnode(h, 0); n < limit; n++) { /* traverse hash part */ checkdeadkey(n); if (ttisnil(gval(n))) /* entry is empty? */ removeentry(n); /* remove it */ else { lua_assert(!ttisnil(gkey(n))); markvalue(g, gkey(n)); /* mark key */ markvalue(g, gval(n)); /* mark value */ } } } static lu_mem traversetable (global_State *g, Table *h) { const char *weakkey, *weakvalue; const TValue *mode = gfasttm(g, h->metatable, TM_MODE); markobject(g, h->metatable); if (mode && ttisstring(mode) && /* is there a weak mode? */ ((weakkey = strchr(svalue(mode), 'k')), (weakvalue = strchr(svalue(mode), 'v')), (weakkey || weakvalue))) { /* is really weak? */ black2gray(obj2gco(h)); /* keep table gray */ if (!weakkey) /* strong keys? */ traverseweakvalue(g, h); else if (!weakvalue) /* strong values? */ traverseephemeron(g, h); else /* all weak */ linktable(h, &g->allweak); /* nothing to traverse now */ } else /* not weak */ traversestrongtable(g, h); return sizeof(Table) + sizeof(TValue) * h->sizearray + sizeof(Node) * cast(size_t, sizenode(h)); } static int traverseproto (global_State *g, Proto *f) { int i; if (f->cache && iswhite(obj2gco(f->cache))) f->cache = NULL; /* allow cache to be collected */ markobject(g, f->source); for (i = 0; i < f->sizek; i++) /* mark literals */ markvalue(g, &f->k[i]); for (i = 0; i < f->sizeupvalues; i++) /* mark upvalue names */ markobject(g, f->upvalues[i].name); for (i = 0; i < f->sizep; i++) /* mark nested protos */ markobject(g, f->p[i]); for (i = 0; i < f->sizelocvars; i++) /* mark local-variable names */ markobject(g, f->locvars[i].varname); return sizeof(Proto) + sizeof(Instruction) * f->sizecode + sizeof(Proto *) * f->sizep + sizeof(TValue) * f->sizek + sizeof(int) * f->sizelineinfo + sizeof(LocVar) * f->sizelocvars + sizeof(Upvaldesc) * f->sizeupvalues; } static lu_mem traverseCclosure (global_State *g, CClosure *cl) { int i; for (i = 0; i < cl->nupvalues; i++) /* mark its upvalues */ markvalue(g, &cl->upvalue[i]); return sizeCclosure(cl->nupvalues); } static lu_mem traverseLclosure (global_State *g, LClosure *cl) { int i; markobject(g, cl->p); /* mark its prototype */ for (i = 0; i < cl->nupvalues; i++) /* mark its upvalues */ markobject(g, cl->upvals[i]); return sizeLclosure(cl->nupvalues); } static lu_mem traversestack (global_State *g, lua_State *th) { StkId o = th->stack; if (o == NULL) return 1; /* stack not completely built yet */ for (; o < th->top; o++) markvalue(g, o); if (g->gcstate == GCSatomic) { /* final traversal? */ StkId lim = th->stack + th->stacksize; /* real end of stack */ for (; o < lim; o++) /* clear not-marked stack slice */ setnilvalue(o); } return sizeof(lua_State) + sizeof(TValue) * th->stacksize; } /* ** traverse one gray object, turning it to black (except for threads, ** which are always gray). */ static void propagatemark (global_State *g) { lu_mem size; GCObject *o = g->gray; lua_assert(isgray(o)); gray2black(o); switch (gch(o)->tt) { case LUA_TTABLE: { Table *h = gco2t(o); g->gray = h->gclist; /* remove from 'gray' list */ size = traversetable(g, h); break; } case LUA_TLCL: { LClosure *cl = gco2lcl(o); g->gray = cl->gclist; /* remove from 'gray' list */ size = traverseLclosure(g, cl); break; } case LUA_TCCL: { CClosure *cl = gco2ccl(o); g->gray = cl->gclist; /* remove from 'gray' list */ size = traverseCclosure(g, cl); break; } case LUA_TTHREAD: { lua_State *th = gco2th(o); g->gray = th->gclist; /* remove from 'gray' list */ th->gclist = g->grayagain; g->grayagain = o; /* insert into 'grayagain' list */ black2gray(o); size = traversestack(g, th); break; } case LUA_TPROTO: { Proto *p = gco2p(o); g->gray = p->gclist; /* remove from 'gray' list */ size = traverseproto(g, p); break; } default: lua_assert(0); return; } g->GCmemtrav += size; } static void propagateall (global_State *g) { while (g->gray) propagatemark(g); } static void propagatelist (global_State *g, GCObject *l) { lua_assert(g->gray == NULL); /* no grays left */ g->gray = l; propagateall(g); /* traverse all elements from 'l' */ } /* ** retraverse all gray lists. Because tables may be reinserted in other ** lists when traversed, traverse the original lists to avoid traversing ** twice the same table (which is not wrong, but inefficient) */ static void retraversegrays (global_State *g) { GCObject *weak = g->weak; /* save original lists */ GCObject *grayagain = g->grayagain; GCObject *ephemeron = g->ephemeron; g->weak = g->grayagain = g->ephemeron = NULL; propagateall(g); /* traverse main gray list */ propagatelist(g, grayagain); propagatelist(g, weak); propagatelist(g, ephemeron); } static void convergeephemerons (global_State *g) { int changed; do { GCObject *w; GCObject *next = g->ephemeron; /* get ephemeron list */ g->ephemeron = NULL; /* tables will return to this list when traversed */ changed = 0; while ((w = next) != NULL) { next = gco2t(w)->gclist; if (traverseephemeron(g, gco2t(w))) { /* traverse marked some value? */ propagateall(g); /* propagate changes */ changed = 1; /* will have to revisit all ephemeron tables */ } } } while (changed); } /* }====================================================== */ /* ** {====================================================== ** Sweep Functions ** ======================================================= */ /* ** clear entries with unmarked keys from all weaktables in list 'l' up ** to element 'f' */ static void clearkeys (global_State *g, GCObject *l, GCObject *f) { for (; l != f; l = gco2t(l)->gclist) { Table *h = gco2t(l); Node *n, *limit = gnodelast(h); for (n = gnode(h, 0); n < limit; n++) { if (!ttisnil(gval(n)) && (iscleared(g, gkey(n)))) { setnilvalue(gval(n)); /* remove value ... */ removeentry(n); /* and remove entry from table */ } } } } /* ** clear entries with unmarked values from all weaktables in list 'l' up ** to element 'f' */ static void clearvalues (global_State *g, GCObject *l, GCObject *f) { for (; l != f; l = gco2t(l)->gclist) { Table *h = gco2t(l); Node *n, *limit = gnodelast(h); int i; for (i = 0; i < h->sizearray; i++) { TValue *o = &h->array[i]; if (iscleared(g, o)) /* value was collected? */ setnilvalue(o); /* remove value */ } for (n = gnode(h, 0); n < limit; n++) { if (!ttisnil(gval(n)) && iscleared(g, gval(n))) { setnilvalue(gval(n)); /* remove value ... */ removeentry(n); /* and remove entry from table */ } } } } static void freeobj (lua_State *L, GCObject *o) { switch (gch(o)->tt) { case LUA_TPROTO: luaF_freeproto(L, gco2p(o)); break; case LUA_TLCL: { luaM_freemem(L, o, sizeLclosure(gco2lcl(o)->nupvalues)); break; } case LUA_TCCL: { luaM_freemem(L, o, sizeCclosure(gco2ccl(o)->nupvalues)); break; } case LUA_TUPVAL: luaF_freeupval(L, gco2uv(o)); break; case LUA_TTABLE: luaH_free(L, gco2t(o)); break; case LUA_TTHREAD: luaE_freethread(L, gco2th(o)); break; case LUA_TUSERDATA: luaM_freemem(L, o, sizeudata(gco2u(o))); break; case LUA_TSHRSTR: G(L)->strt.nuse--; /* go through */ case LUA_TLNGSTR: { luaM_freemem(L, o, sizestring(gco2ts(o))); break; } default: lua_assert(0); } } #define sweepwholelist(L,p) sweeplist(L,p,MAX_LUMEM) static GCObject **sweeplist (lua_State *L, GCObject **p, lu_mem count); /* ** sweep the (open) upvalues of a thread and resize its stack and ** list of call-info structures. */ static void sweepthread (lua_State *L, lua_State *L1) { if (L1->stack == NULL) return; /* stack not completely built yet */ sweepwholelist(L, &L1->openupval); /* sweep open upvalues */ luaE_freeCI(L1); /* free extra CallInfo slots */ /* should not change the stack during an emergency gc cycle */ if (G(L)->gckind != KGC_EMERGENCY) luaD_shrinkstack(L1); } /* ** sweep at most 'count' elements from a list of GCObjects erasing dead ** objects, where a dead (not alive) object is one marked with the "old" ** (non current) white and not fixed. ** In non-generational mode, change all non-dead objects back to white, ** preparing for next collection cycle. ** In generational mode, keep black objects black, and also mark them as ** old; stop when hitting an old object, as all objects after that ** one will be old too. ** When object is a thread, sweep its list of open upvalues too. */ static GCObject **sweeplist (lua_State *L, GCObject **p, lu_mem count) { global_State *g = G(L); int ow = otherwhite(g); int toclear, toset; /* bits to clear and to set in all live objects */ int tostop; /* stop sweep when this is true */ if (isgenerational(g)) { /* generational mode? */ toclear = ~0; /* clear nothing */ toset = bitmask(OLDBIT); /* set the old bit of all surviving objects */ tostop = bitmask(OLDBIT); /* do not sweep old generation */ } else { /* normal mode */ toclear = maskcolors; /* clear all color bits + old bit */ toset = luaC_white(g); /* make object white */ tostop = 0; /* do not stop */ } while (*p != NULL && count-- > 0) { GCObject *curr = *p; int marked = gch(curr)->marked; if (isdeadm(ow, marked)) { /* is 'curr' dead? */ *p = gch(curr)->next; /* remove 'curr' from list */ freeobj(L, curr); /* erase 'curr' */ } else { if (testbits(marked, tostop)) return NULL; /* stop sweeping this list */ if (gch(curr)->tt == LUA_TTHREAD) sweepthread(L, gco2th(curr)); /* sweep thread's upvalues */ /* update marks */ gch(curr)->marked = cast_byte((marked & toclear) | toset); p = &gch(curr)->next; /* go to next element */ } } return (*p == NULL) ? NULL : p; } /* ** sweep a list until a live object (or end of list) */ static GCObject **sweeptolive (lua_State *L, GCObject **p, int *n) { GCObject ** old = p; int i = 0; do { i++; p = sweeplist(L, p, 1); } while (p == old); if (n) *n += i; return p; } /* }====================================================== */ /* ** {====================================================== ** Finalization ** ======================================================= */ static void checkSizes (lua_State *L) { global_State *g = G(L); if (g->gckind != KGC_EMERGENCY) { /* do not change sizes in emergency */ int hs = g->strt.size / 2; /* half the size of the string table */ if (g->strt.nuse < cast(lu_int32, hs)) /* using less than that half? */ luaS_resize(L, hs); /* halve its size */ luaZ_freebuffer(L, &g->buff); /* free concatenation buffer */ } } static GCObject *udata2finalize (global_State *g) { GCObject *o = g->tobefnz; /* get first element */ lua_assert(isfinalized(o)); g->tobefnz = gch(o)->next; /* remove it from 'tobefnz' list */ gch(o)->next = g->allgc; /* return it to 'allgc' list */ g->allgc = o; resetbit(gch(o)->marked, SEPARATED); /* mark that it is not in 'tobefnz' */ lua_assert(!isold(o)); /* see MOVE OLD rule */ if (!keepinvariantout(g)) /* not keeping invariant? */ makewhite(g, o); /* "sweep" object */ return o; } static void dothecall (lua_State *L, void *ud) { UNUSED(ud); luaD_call(L, L->top - 2, 0, 0); } static void GCTM (lua_State *L, int propagateerrors) { global_State *g = G(L); const TValue *tm; TValue v; setgcovalue(L, &v, udata2finalize(g)); tm = luaT_gettmbyobj(L, &v, TM_GC); if (tm != NULL && ttisfunction(tm)) { /* is there a finalizer? */ int status; lu_byte oldah = L->allowhook; int running = g->gcrunning; L->allowhook = 0; /* stop debug hooks during GC metamethod */ g->gcrunning = 0; /* avoid GC steps */ setobj2s(L, L->top, tm); /* push finalizer... */ setobj2s(L, L->top + 1, &v); /* ... and its argument */ L->top += 2; /* and (next line) call the finalizer */ status = luaD_pcall(L, dothecall, NULL, savestack(L, L->top - 2), 0); L->allowhook = oldah; /* restore hooks */ g->gcrunning = running; /* restore state */ if (status != LUA_OK && propagateerrors) { /* error while running __gc? */ if (status == LUA_ERRRUN) { /* is there an error object? */ const char *msg = (ttisstring(L->top - 1)) ? svalue(L->top - 1) : "no message"; luaO_pushfstring(L, "error in __gc metamethod (%s)", msg); status = LUA_ERRGCMM; /* error in __gc metamethod */ } luaD_throw(L, status); /* re-throw error */ } } } /* ** move all unreachable objects (or 'all' objects) that need ** finalization from list 'finobj' to list 'tobefnz' (to be finalized) */ static void separatetobefnz (lua_State *L, int all) { global_State *g = G(L); GCObject **p = &g->finobj; GCObject *curr; GCObject **lastnext = &g->tobefnz; /* find last 'next' field in 'tobefnz' list (to add elements in its end) */ while (*lastnext != NULL) lastnext = &gch(*lastnext)->next; while ((curr = *p) != NULL) { /* traverse all finalizable objects */ lua_assert(!isfinalized(curr)); lua_assert(testbit(gch(curr)->marked, SEPARATED)); if (!(iswhite(curr) || all)) /* not being collected? */ p = &gch(curr)->next; /* don't bother with it */ else { l_setbit(gch(curr)->marked, FINALIZEDBIT); /* won't be finalized again */ *p = gch(curr)->next; /* remove 'curr' from 'finobj' list */ gch(curr)->next = *lastnext; /* link at the end of 'tobefnz' list */ *lastnext = curr; lastnext = &gch(curr)->next; } } } /* ** if object 'o' has a finalizer, remove it from 'allgc' list (must ** search the list to find it) and link it in 'finobj' list. */ void luaC_checkfinalizer (lua_State *L, GCObject *o, Table *mt) { global_State *g = G(L); if (testbit(gch(o)->marked, SEPARATED) || /* obj. is already separated... */ isfinalized(o) || /* ... or is finalized... */ gfasttm(g, mt, TM_GC) == NULL) /* or has no finalizer? */ return; /* nothing to be done */ else { /* move 'o' to 'finobj' list */ GCObject **p; GCheader *ho = gch(o); if (g->sweepgc == &ho->next) { /* avoid removing current sweep object */ lua_assert(issweepphase(g)); g->sweepgc = sweeptolive(L, g->sweepgc, NULL); } /* search for pointer pointing to 'o' */ for (p = &g->allgc; *p != o; p = &gch(*p)->next) { /* empty */ } *p = ho->next; /* remove 'o' from root list */ ho->next = g->finobj; /* link it in list 'finobj' */ g->finobj = o; l_setbit(ho->marked, SEPARATED); /* mark it as such */ if (!keepinvariantout(g)) /* not keeping invariant? */ makewhite(g, o); /* "sweep" object */ else resetoldbit(o); /* see MOVE OLD rule */ } } /* }====================================================== */ /* ** {====================================================== ** GC control ** ======================================================= */ /* ** set a reasonable "time" to wait before starting a new GC cycle; ** cycle will start when memory use hits threshold */ static void setpause (global_State *g, l_mem estimate) { l_mem debt, threshold; estimate = estimate / PAUSEADJ; /* adjust 'estimate' */ threshold = (g->gcpause < MAX_LMEM / estimate) /* overflow? */ ? estimate * g->gcpause /* no overflow */ : MAX_LMEM; /* overflow; truncate to maximum */ debt = -cast(l_mem, threshold - gettotalbytes(g)); luaE_setdebt(g, debt); } #define sweepphases \ (bitmask(GCSsweepstring) | bitmask(GCSsweepudata) | bitmask(GCSsweep)) /* ** enter first sweep phase (strings) and prepare pointers for other ** sweep phases. The calls to 'sweeptolive' make pointers point to an ** object inside the list (instead of to the header), so that the real ** sweep do not need to skip objects created between "now" and the start ** of the real sweep. ** Returns how many objects it swept. */ static int entersweep (lua_State *L) { global_State *g = G(L); int n = 0; g->gcstate = GCSsweepstring; lua_assert(g->sweepgc == NULL && g->sweepfin == NULL); /* prepare to sweep strings, finalizable objects, and regular objects */ g->sweepstrgc = 0; g->sweepfin = sweeptolive(L, &g->finobj, &n); g->sweepgc = sweeptolive(L, &g->allgc, &n); return n; } /* ** change GC mode */ void luaC_changemode (lua_State *L, int mode) { global_State *g = G(L); if (mode == g->gckind) return; /* nothing to change */ if (mode == KGC_GEN) { /* change to generational mode */ /* make sure gray lists are consistent */ luaC_runtilstate(L, bitmask(GCSpropagate)); g->GCestimate = gettotalbytes(g); g->gckind = KGC_GEN; } else { /* change to incremental mode */ /* sweep all objects to turn them back to white (as white has not changed, nothing extra will be collected) */ g->gckind = KGC_NORMAL; entersweep(L); luaC_runtilstate(L, ~sweepphases); } } /* ** call all pending finalizers */ static void callallpendingfinalizers (lua_State *L, int propagateerrors) { global_State *g = G(L); while (g->tobefnz) { resetoldbit(g->tobefnz); GCTM(L, propagateerrors); } } void luaC_freeallobjects (lua_State *L) { global_State *g = G(L); int i; separatetobefnz(L, 1); /* separate all objects with finalizers */ lua_assert(g->finobj == NULL); callallpendingfinalizers(L, 0); g->currentwhite = WHITEBITS; /* this "white" makes all objects look dead */ g->gckind = KGC_NORMAL; sweepwholelist(L, &g->finobj); /* finalizers can create objs. in 'finobj' */ sweepwholelist(L, &g->allgc); for (i = 0; i < g->strt.size; i++) /* free all string lists */ sweepwholelist(L, &g->strt.hash[i]); lua_assert(g->strt.nuse == 0); } static l_mem atomic (lua_State *L) { global_State *g = G(L); l_mem work = -cast(l_mem, g->GCmemtrav); /* start counting work */ GCObject *origweak, *origall; lua_assert(!iswhite(obj2gco(g->mainthread))); markobject(g, L); /* mark running thread */ /* registry and global metatables may be changed by API */ markvalue(g, &g->l_registry); markmt(g); /* mark basic metatables */ /* remark occasional upvalues of (maybe) dead threads */ remarkupvals(g); propagateall(g); /* propagate changes */ work += g->GCmemtrav; /* stop counting (do not (re)count grays) */ /* traverse objects caught by write barrier and by 'remarkupvals' */ retraversegrays(g); work -= g->GCmemtrav; /* restart counting */ convergeephemerons(g); /* at this point, all strongly accessible objects are marked. */ /* clear values from weak tables, before checking finalizers */ clearvalues(g, g->weak, NULL); clearvalues(g, g->allweak, NULL); origweak = g->weak; origall = g->allweak; work += g->GCmemtrav; /* stop counting (objects being finalized) */ separatetobefnz(L, 0); /* separate objects to be finalized */ markbeingfnz(g); /* mark objects that will be finalized */ propagateall(g); /* remark, to propagate `preserveness' */ work -= g->GCmemtrav; /* restart counting */ convergeephemerons(g); /* at this point, all resurrected objects are marked. */ /* remove dead objects from weak tables */ clearkeys(g, g->ephemeron, NULL); /* clear keys from all ephemeron tables */ clearkeys(g, g->allweak, NULL); /* clear keys from all allweak tables */ /* clear values from resurrected weak tables */ clearvalues(g, g->weak, origweak); clearvalues(g, g->allweak, origall); g->currentwhite = cast_byte(otherwhite(g)); /* flip current white */ work += g->GCmemtrav; /* complete counting */ return work; /* estimate of memory marked by 'atomic' */ } static lu_mem singlestep (lua_State *L) { global_State *g = G(L); switch (g->gcstate) { case GCSpause: { /* start to count memory traversed */ g->GCmemtrav = g->strt.size * sizeof(GCObject*); lua_assert(!isgenerational(g)); restartcollection(g); g->gcstate = GCSpropagate; return g->GCmemtrav; } case GCSpropagate: { if (g->gray) { lu_mem oldtrav = g->GCmemtrav; propagatemark(g); return g->GCmemtrav - oldtrav; /* memory traversed in this step */ } else { /* no more `gray' objects */ lu_mem work; int sw; g->gcstate = GCSatomic; /* finish mark phase */ g->GCestimate = g->GCmemtrav; /* save what was counted */; work = atomic(L); /* add what was traversed by 'atomic' */ g->GCestimate += work; /* estimate of total memory traversed */ sw = entersweep(L); return work + sw * GCSWEEPCOST; } } case GCSsweepstring: { int i; for (i = 0; i < GCSWEEPMAX && g->sweepstrgc + i < g->strt.size; i++) sweepwholelist(L, &g->strt.hash[g->sweepstrgc + i]); g->sweepstrgc += i; if (g->sweepstrgc >= g->strt.size) /* no more strings to sweep? */ g->gcstate = GCSsweepudata; return i * GCSWEEPCOST; } case GCSsweepudata: { if (g->sweepfin) { g->sweepfin = sweeplist(L, g->sweepfin, GCSWEEPMAX); return GCSWEEPMAX*GCSWEEPCOST; } else { g->gcstate = GCSsweep; return 0; } } case GCSsweep: { if (g->sweepgc) { g->sweepgc = sweeplist(L, g->sweepgc, GCSWEEPMAX); return GCSWEEPMAX*GCSWEEPCOST; } else { /* sweep main thread */ GCObject *mt = obj2gco(g->mainthread); sweeplist(L, &mt, 1); checkSizes(L); g->gcstate = GCSpause; /* finish collection */ return GCSWEEPCOST; } } default: lua_assert(0); return 0; } } /* ** advances the garbage collector until it reaches a state allowed ** by 'statemask' */ void luaC_runtilstate (lua_State *L, int statesmask) { global_State *g = G(L); while (!testbit(statesmask, g->gcstate)) singlestep(L); } static void generationalcollection (lua_State *L) { global_State *g = G(L); lua_assert(g->gcstate == GCSpropagate); if (g->GCestimate == 0) { /* signal for another major collection? */ luaC_fullgc(L, 0); /* perform a full regular collection */ g->GCestimate = gettotalbytes(g); /* update control */ } else { lu_mem estimate = g->GCestimate; luaC_runtilstate(L, bitmask(GCSpause)); /* run complete (minor) cycle */ g->gcstate = GCSpropagate; /* skip restart */ if (gettotalbytes(g) > (estimate / 100) * g->gcmajorinc) g->GCestimate = 0; /* signal for a major collection */ else g->GCestimate = estimate; /* keep estimate from last major coll. */ } setpause(g, gettotalbytes(g)); lua_assert(g->gcstate == GCSpropagate); } static void incstep (lua_State *L) { global_State *g = G(L); l_mem debt = g->GCdebt; int stepmul = g->gcstepmul; if (stepmul < 40) stepmul = 40; /* avoid ridiculous low values (and 0) */ /* convert debt from Kb to 'work units' (avoid zero debt and overflows) */ debt = (debt / STEPMULADJ) + 1; debt = (debt < MAX_LMEM / stepmul) ? debt * stepmul : MAX_LMEM; do { /* always perform at least one single step */ lu_mem work = singlestep(L); /* do some work */ debt -= work; } while (debt > -GCSTEPSIZE && g->gcstate != GCSpause); if (g->gcstate == GCSpause) setpause(g, g->GCestimate); /* pause until next cycle */ else { debt = (debt / stepmul) * STEPMULADJ; /* convert 'work units' to Kb */ luaE_setdebt(g, debt); } } /* ** performs a basic GC step */ void luaC_forcestep (lua_State *L) { global_State *g = G(L); int i; if (isgenerational(g)) generationalcollection(L); else incstep(L); /* run a few finalizers (or all of them at the end of a collect cycle) */ for (i = 0; g->tobefnz && (i < GCFINALIZENUM || g->gcstate == GCSpause); i++) GCTM(L, 1); /* call one finalizer */ } /* ** performs a basic GC step only if collector is running */ void luaC_step (lua_State *L) { global_State *g = G(L); if (g->gcrunning) luaC_forcestep(L); else luaE_setdebt(g, -GCSTEPSIZE); /* avoid being called too often */ } /* ** performs a full GC cycle; if "isemergency", does not call ** finalizers (which could change stack positions) */ void luaC_fullgc (lua_State *L, int isemergency) { global_State *g = G(L); int origkind = g->gckind; lua_assert(origkind != KGC_EMERGENCY); if (isemergency) /* do not run finalizers during emergency GC */ g->gckind = KGC_EMERGENCY; else { g->gckind = KGC_NORMAL; callallpendingfinalizers(L, 1); } if (keepinvariant(g)) { /* may there be some black objects? */ /* must sweep all objects to turn them back to white (as white has not changed, nothing will be collected) */ entersweep(L); } /* finish any pending sweep phase to start a new cycle */ luaC_runtilstate(L, bitmask(GCSpause)); luaC_runtilstate(L, ~bitmask(GCSpause)); /* start new collection */ luaC_runtilstate(L, bitmask(GCSpause)); /* run entire collection */ if (origkind == KGC_GEN) { /* generational mode? */ /* generational mode must be kept in propagate phase */ luaC_runtilstate(L, bitmask(GCSpropagate)); } g->gckind = origkind; setpause(g, gettotalbytes(g)); if (!isemergency) /* do not run finalizers during emergency GC */ callallpendingfinalizers(L, 1); } /* }====================================================== */ april-ann-0.3.1/lua/lua-5.2.2/src/lgc.h000066400000000000000000000124301234204160600171030ustar00rootroot00000000000000/* ** $Id: lgc.h,v 2.58 2012/09/11 12:53:08 roberto Exp $ ** Garbage Collector ** See Copyright Notice in lua.h */ #ifndef lgc_h #define lgc_h #include "lobject.h" #include "lstate.h" /* ** Collectable objects may have one of three colors: white, which ** means the object is not marked; gray, which means the ** object is marked, but its references may be not marked; and ** black, which means that the object and all its references are marked. ** The main invariant of the garbage collector, while marking objects, ** is that a black object can never point to a white one. Moreover, ** any gray object must be in a "gray list" (gray, grayagain, weak, ** allweak, ephemeron) so that it can be visited again before finishing ** the collection cycle. These lists have no meaning when the invariant ** is not being enforced (e.g., sweep phase). */ /* how much to allocate before next GC step */ #if !defined(GCSTEPSIZE) /* ~100 small strings */ #define GCSTEPSIZE (cast_int(100 * sizeof(TString))) #endif /* ** Possible states of the Garbage Collector */ #define GCSpropagate 0 #define GCSatomic 1 #define GCSsweepstring 2 #define GCSsweepudata 3 #define GCSsweep 4 #define GCSpause 5 #define issweepphase(g) \ (GCSsweepstring <= (g)->gcstate && (g)->gcstate <= GCSsweep) #define isgenerational(g) ((g)->gckind == KGC_GEN) /* ** macros to tell when main invariant (white objects cannot point to black ** ones) must be kept. During a non-generational collection, the sweep ** phase may break the invariant, as objects turned white may point to ** still-black objects. The invariant is restored when sweep ends and ** all objects are white again. During a generational collection, the ** invariant must be kept all times. */ #define keepinvariant(g) (isgenerational(g) || g->gcstate <= GCSatomic) /* ** Outside the collector, the state in generational mode is kept in ** 'propagate', so 'keepinvariant' is always true. */ #define keepinvariantout(g) \ check_exp(g->gcstate == GCSpropagate || !isgenerational(g), \ g->gcstate <= GCSatomic) /* ** some useful bit tricks */ #define resetbits(x,m) ((x) &= cast(lu_byte, ~(m))) #define setbits(x,m) ((x) |= (m)) #define testbits(x,m) ((x) & (m)) #define bitmask(b) (1<<(b)) #define bit2mask(b1,b2) (bitmask(b1) | bitmask(b2)) #define l_setbit(x,b) setbits(x, bitmask(b)) #define resetbit(x,b) resetbits(x, bitmask(b)) #define testbit(x,b) testbits(x, bitmask(b)) /* Layout for bit use in `marked' field: */ #define WHITE0BIT 0 /* object is white (type 0) */ #define WHITE1BIT 1 /* object is white (type 1) */ #define BLACKBIT 2 /* object is black */ #define FINALIZEDBIT 3 /* object has been separated for finalization */ #define SEPARATED 4 /* object is in 'finobj' list or in 'tobefnz' */ #define FIXEDBIT 5 /* object is fixed (should not be collected) */ #define OLDBIT 6 /* object is old (only in generational mode) */ /* bit 7 is currently used by tests (luaL_checkmemory) */ #define WHITEBITS bit2mask(WHITE0BIT, WHITE1BIT) #define iswhite(x) testbits((x)->gch.marked, WHITEBITS) #define isblack(x) testbit((x)->gch.marked, BLACKBIT) #define isgray(x) /* neither white nor black */ \ (!testbits((x)->gch.marked, WHITEBITS | bitmask(BLACKBIT))) #define isold(x) testbit((x)->gch.marked, OLDBIT) /* MOVE OLD rule: whenever an object is moved to the beginning of a GC list, its old bit must be cleared */ #define resetoldbit(o) resetbit((o)->gch.marked, OLDBIT) #define otherwhite(g) (g->currentwhite ^ WHITEBITS) #define isdeadm(ow,m) (!(((m) ^ WHITEBITS) & (ow))) #define isdead(g,v) isdeadm(otherwhite(g), (v)->gch.marked) #define changewhite(x) ((x)->gch.marked ^= WHITEBITS) #define gray2black(x) l_setbit((x)->gch.marked, BLACKBIT) #define valiswhite(x) (iscollectable(x) && iswhite(gcvalue(x))) #define luaC_white(g) cast(lu_byte, (g)->currentwhite & WHITEBITS) #define luaC_condGC(L,c) \ {if (G(L)->GCdebt > 0) {c;}; condchangemem(L);} #define luaC_checkGC(L) luaC_condGC(L, luaC_step(L);) #define luaC_barrier(L,p,v) { if (valiswhite(v) && isblack(obj2gco(p))) \ luaC_barrier_(L,obj2gco(p),gcvalue(v)); } #define luaC_barrierback(L,p,v) { if (valiswhite(v) && isblack(obj2gco(p))) \ luaC_barrierback_(L,p); } #define luaC_objbarrier(L,p,o) \ { if (iswhite(obj2gco(o)) && isblack(obj2gco(p))) \ luaC_barrier_(L,obj2gco(p),obj2gco(o)); } #define luaC_objbarrierback(L,p,o) \ { if (iswhite(obj2gco(o)) && isblack(obj2gco(p))) luaC_barrierback_(L,p); } #define luaC_barrierproto(L,p,c) \ { if (isblack(obj2gco(p))) luaC_barrierproto_(L,p,c); } LUAI_FUNC void luaC_freeallobjects (lua_State *L); LUAI_FUNC void luaC_step (lua_State *L); LUAI_FUNC void luaC_forcestep (lua_State *L); LUAI_FUNC void luaC_runtilstate (lua_State *L, int statesmask); LUAI_FUNC void luaC_fullgc (lua_State *L, int isemergency); LUAI_FUNC GCObject *luaC_newobj (lua_State *L, int tt, size_t sz, GCObject **list, int offset); LUAI_FUNC void luaC_barrier_ (lua_State *L, GCObject *o, GCObject *v); LUAI_FUNC void luaC_barrierback_ (lua_State *L, GCObject *o); LUAI_FUNC void luaC_barrierproto_ (lua_State *L, Proto *p, Closure *c); LUAI_FUNC void luaC_checkfinalizer (lua_State *L, GCObject *o, Table *mt); LUAI_FUNC void luaC_checkupvalcolor (global_State *g, UpVal *uv); LUAI_FUNC void luaC_changemode (lua_State *L, int mode); #endif april-ann-0.3.1/lua/lua-5.2.2/src/linit.c000066400000000000000000000032251234204160600174520ustar00rootroot00000000000000/* ** $Id: linit.c,v 1.32 2011/04/08 19:17:36 roberto Exp $ ** Initialization of libraries for lua.c and other clients ** See Copyright Notice in lua.h */ /* ** If you embed Lua in your program and need to open the standard ** libraries, call luaL_openlibs in your program. If you need a ** different set of libraries, copy this file to your project and edit ** it to suit your needs. */ #define linit_c #define LUA_LIB #include "lua.h" #include "lualib.h" #include "lauxlib.h" /* ** these libs are loaded by lua.c and are readily available to any Lua ** program */ static const luaL_Reg loadedlibs[] = { {"_G", luaopen_base}, {LUA_LOADLIBNAME, luaopen_package}, {LUA_COLIBNAME, luaopen_coroutine}, {LUA_TABLIBNAME, luaopen_table}, {LUA_IOLIBNAME, luaopen_io}, {LUA_OSLIBNAME, luaopen_os}, {LUA_STRLIBNAME, luaopen_string}, {LUA_BITLIBNAME, luaopen_bit32}, {LUA_MATHLIBNAME, luaopen_math}, {LUA_DBLIBNAME, luaopen_debug}, {NULL, NULL} }; /* ** these libs are preloaded and must be required before used */ static const luaL_Reg preloadedlibs[] = { {NULL, NULL} }; LUALIB_API void luaL_openlibs (lua_State *L) { const luaL_Reg *lib; /* call open functions from 'loadedlibs' and set results to global table */ for (lib = loadedlibs; lib->func; lib++) { luaL_requiref(L, lib->name, lib->func, 1); lua_pop(L, 1); /* remove lib */ } /* add open functions from 'preloadedlibs' into 'package.preload' table */ luaL_getsubtable(L, LUA_REGISTRYINDEX, "_PRELOAD"); for (lib = preloadedlibs; lib->func; lib++) { lua_pushcfunction(L, lib->func); lua_setfield(L, -2, lib->name); } lua_pop(L, 1); /* remove _PRELOAD table */ } april-ann-0.3.1/lua/lua-5.2.2/src/liolib.c000066400000000000000000000376221234204160600176150ustar00rootroot00000000000000/* ** $Id: liolib.c,v 2.111 2013/03/21 13:57:27 roberto Exp $ ** Standard I/O (and system) library ** See Copyright Notice in lua.h */ /* ** POSIX idiosyncrasy! ** This definition must come before the inclusion of 'stdio.h'; it ** should not affect non-POSIX systems */ #if !defined(_FILE_OFFSET_BITS) #define _FILE_OFFSET_BITS 64 #endif #include #include #include #include #define liolib_c #define LUA_LIB #include "lua.h" #include "lauxlib.h" #include "lualib.h" #if !defined(lua_checkmode) /* ** Check whether 'mode' matches '[rwa]%+?b?'. ** Change this macro to accept other modes for 'fopen' besides ** the standard ones. */ #define lua_checkmode(mode) \ (*mode != '\0' && strchr("rwa", *(mode++)) != NULL && \ (*mode != '+' || ++mode) && /* skip if char is '+' */ \ (*mode != 'b' || ++mode) && /* skip if char is 'b' */ \ (*mode == '\0')) #endif /* ** {====================================================== ** lua_fseek/lua_ftell: configuration for longer offsets ** ======================================================= */ #if !defined(lua_fseek) /* { */ #if defined(LUA_USE_POSIX) #define l_fseek(f,o,w) fseeko(f,o,w) #define l_ftell(f) ftello(f) #define l_seeknum off_t #elif defined(LUA_WIN) && !defined(_CRTIMP_TYPEINFO) \ && defined(_MSC_VER) && (_MSC_VER >= 1400) /* Windows (but not DDK) and Visual C++ 2005 or higher */ #define l_fseek(f,o,w) _fseeki64(f,o,w) #define l_ftell(f) _ftelli64(f) #define l_seeknum __int64 #else #define l_fseek(f,o,w) fseek(f,o,w) #define l_ftell(f) ftell(f) #define l_seeknum long #endif #endif /* } */ /* }====================================================== */ #define IO_PREFIX "_IO_" #define IO_INPUT (IO_PREFIX "input") #define IO_OUTPUT (IO_PREFIX "output") typedef luaL_Stream LStream; #define tolstream(L) ((LStream *)luaL_checkudata(L, 1, LUA_FILEHANDLE)) #define isclosed(p) ((p)->closef == NULL) static int io_type (lua_State *L) { LStream *p; luaL_checkany(L, 1); p = (LStream *)luaL_testudata(L, 1, LUA_FILEHANDLE); if (p == NULL) lua_pushnil(L); /* not a file */ else if (isclosed(p)) lua_pushliteral(L, "closed file"); else lua_pushliteral(L, "file"); return 1; } static int f_tostring (lua_State *L) { LStream *p = tolstream(L); if (isclosed(p)) lua_pushliteral(L, "file (closed)"); else lua_pushfstring(L, "file (%p)", p->f); return 1; } static FILE *tofile (lua_State *L) { LStream *p = tolstream(L); if (isclosed(p)) luaL_error(L, "attempt to use a closed file"); lua_assert(p->f); return p->f; } /* ** When creating file handles, always creates a `closed' file handle ** before opening the actual file; so, if there is a memory error, the ** file is not left opened. */ static LStream *newprefile (lua_State *L) { LStream *p = (LStream *)lua_newuserdata(L, sizeof(LStream)); p->closef = NULL; /* mark file handle as 'closed' */ luaL_setmetatable(L, LUA_FILEHANDLE); return p; } static int aux_close (lua_State *L) { LStream *p = tolstream(L); lua_CFunction cf = p->closef; p->closef = NULL; /* mark stream as closed */ return (*cf)(L); /* close it */ } static int io_close (lua_State *L) { if (lua_isnone(L, 1)) /* no argument? */ lua_getfield(L, LUA_REGISTRYINDEX, IO_OUTPUT); /* use standard output */ tofile(L); /* make sure argument is an open stream */ return aux_close(L); } static int f_gc (lua_State *L) { LStream *p = tolstream(L); if (!isclosed(p) && p->f != NULL) aux_close(L); /* ignore closed and incompletely open files */ return 0; } /* ** function to close regular files */ static int io_fclose (lua_State *L) { LStream *p = tolstream(L); int res = fclose(p->f); return luaL_fileresult(L, (res == 0), NULL); } static LStream *newfile (lua_State *L) { LStream *p = newprefile(L); p->f = NULL; p->closef = &io_fclose; return p; } static void opencheck (lua_State *L, const char *fname, const char *mode) { LStream *p = newfile(L); p->f = fopen(fname, mode); if (p->f == NULL) luaL_error(L, "cannot open file " LUA_QS " (%s)", fname, strerror(errno)); } static int io_open (lua_State *L) { const char *filename = luaL_checkstring(L, 1); const char *mode = luaL_optstring(L, 2, "r"); LStream *p = newfile(L); const char *md = mode; /* to traverse/check mode */ luaL_argcheck(L, lua_checkmode(md), 2, "invalid mode"); p->f = fopen(filename, mode); return (p->f == NULL) ? luaL_fileresult(L, 0, filename) : 1; } /* ** function to close 'popen' files */ static int io_pclose (lua_State *L) { LStream *p = tolstream(L); return luaL_execresult(L, lua_pclose(L, p->f)); } static int io_popen (lua_State *L) { const char *filename = luaL_checkstring(L, 1); const char *mode = luaL_optstring(L, 2, "r"); LStream *p = newprefile(L); p->f = lua_popen(L, filename, mode); p->closef = &io_pclose; return (p->f == NULL) ? luaL_fileresult(L, 0, filename) : 1; } static int io_tmpfile (lua_State *L) { LStream *p = newfile(L); p->f = tmpfile(); return (p->f == NULL) ? luaL_fileresult(L, 0, NULL) : 1; } static FILE *getiofile (lua_State *L, const char *findex) { LStream *p; lua_getfield(L, LUA_REGISTRYINDEX, findex); p = (LStream *)lua_touserdata(L, -1); if (isclosed(p)) luaL_error(L, "standard %s file is closed", findex + strlen(IO_PREFIX)); return p->f; } static int g_iofile (lua_State *L, const char *f, const char *mode) { if (!lua_isnoneornil(L, 1)) { const char *filename = lua_tostring(L, 1); if (filename) opencheck(L, filename, mode); else { tofile(L); /* check that it's a valid file handle */ lua_pushvalue(L, 1); } lua_setfield(L, LUA_REGISTRYINDEX, f); } /* return current value */ lua_getfield(L, LUA_REGISTRYINDEX, f); return 1; } static int io_input (lua_State *L) { return g_iofile(L, IO_INPUT, "r"); } static int io_output (lua_State *L) { return g_iofile(L, IO_OUTPUT, "w"); } static int io_readline (lua_State *L); static void aux_lines (lua_State *L, int toclose) { int i; int n = lua_gettop(L) - 1; /* number of arguments to read */ /* ensure that arguments will fit here and into 'io_readline' stack */ luaL_argcheck(L, n <= LUA_MINSTACK - 3, LUA_MINSTACK - 3, "too many options"); lua_pushvalue(L, 1); /* file handle */ lua_pushinteger(L, n); /* number of arguments to read */ lua_pushboolean(L, toclose); /* close/not close file when finished */ for (i = 1; i <= n; i++) lua_pushvalue(L, i + 1); /* copy arguments */ lua_pushcclosure(L, io_readline, 3 + n); } static int f_lines (lua_State *L) { tofile(L); /* check that it's a valid file handle */ aux_lines(L, 0); return 1; } static int io_lines (lua_State *L) { int toclose; if (lua_isnone(L, 1)) lua_pushnil(L); /* at least one argument */ if (lua_isnil(L, 1)) { /* no file name? */ lua_getfield(L, LUA_REGISTRYINDEX, IO_INPUT); /* get default input */ lua_replace(L, 1); /* put it at index 1 */ tofile(L); /* check that it's a valid file handle */ toclose = 0; /* do not close it after iteration */ } else { /* open a new file */ const char *filename = luaL_checkstring(L, 1); opencheck(L, filename, "r"); lua_replace(L, 1); /* put file at index 1 */ toclose = 1; /* close it after iteration */ } aux_lines(L, toclose); return 1; } /* ** {====================================================== ** READ ** ======================================================= */ static int read_number (lua_State *L, FILE *f) { lua_Number d; if (fscanf(f, LUA_NUMBER_SCAN, &d) == 1) { lua_pushnumber(L, d); return 1; } else { lua_pushnil(L); /* "result" to be removed */ return 0; /* read fails */ } } static int test_eof (lua_State *L, FILE *f) { int c = getc(f); ungetc(c, f); lua_pushlstring(L, NULL, 0); return (c != EOF); } static int read_line (lua_State *L, FILE *f, int chop) { luaL_Buffer b; luaL_buffinit(L, &b); for (;;) { size_t l; char *p = luaL_prepbuffer(&b); if (fgets(p, LUAL_BUFFERSIZE, f) == NULL) { /* eof? */ luaL_pushresult(&b); /* close buffer */ return (lua_rawlen(L, -1) > 0); /* check whether read something */ } l = strlen(p); if (l == 0 || p[l-1] != '\n') luaL_addsize(&b, l); else { luaL_addsize(&b, l - chop); /* chop 'eol' if needed */ luaL_pushresult(&b); /* close buffer */ return 1; /* read at least an `eol' */ } } } #define MAX_SIZE_T (~(size_t)0) static void read_all (lua_State *L, FILE *f) { size_t rlen = LUAL_BUFFERSIZE; /* how much to read in each cycle */ luaL_Buffer b; luaL_buffinit(L, &b); for (;;) { char *p = luaL_prepbuffsize(&b, rlen); size_t nr = fread(p, sizeof(char), rlen, f); luaL_addsize(&b, nr); if (nr < rlen) break; /* eof? */ else if (rlen <= (MAX_SIZE_T / 4)) /* avoid buffers too large */ rlen *= 2; /* double buffer size at each iteration */ } luaL_pushresult(&b); /* close buffer */ } static int read_chars (lua_State *L, FILE *f, size_t n) { size_t nr; /* number of chars actually read */ char *p; luaL_Buffer b; luaL_buffinit(L, &b); p = luaL_prepbuffsize(&b, n); /* prepare buffer to read whole block */ nr = fread(p, sizeof(char), n, f); /* try to read 'n' chars */ luaL_addsize(&b, nr); luaL_pushresult(&b); /* close buffer */ return (nr > 0); /* true iff read something */ } static int g_read (lua_State *L, FILE *f, int first) { int nargs = lua_gettop(L) - 1; int success; int n; clearerr(f); if (nargs == 0) { /* no arguments? */ success = read_line(L, f, 1); n = first+1; /* to return 1 result */ } else { /* ensure stack space for all results and for auxlib's buffer */ luaL_checkstack(L, nargs+LUA_MINSTACK, "too many arguments"); success = 1; for (n = first; nargs-- && success; n++) { if (lua_type(L, n) == LUA_TNUMBER) { size_t l = (size_t)lua_tointeger(L, n); success = (l == 0) ? test_eof(L, f) : read_chars(L, f, l); } else { const char *p = lua_tostring(L, n); luaL_argcheck(L, p && p[0] == '*', n, "invalid option"); switch (p[1]) { case 'n': /* number */ success = read_number(L, f); break; case 'l': /* line */ success = read_line(L, f, 1); break; case 'L': /* line with end-of-line */ success = read_line(L, f, 0); break; case 'a': /* file */ read_all(L, f); /* read entire file */ success = 1; /* always success */ break; default: return luaL_argerror(L, n, "invalid format"); } } } } if (ferror(f)) return luaL_fileresult(L, 0, NULL); if (!success) { lua_pop(L, 1); /* remove last result */ lua_pushnil(L); /* push nil instead */ } return n - first; } static int io_read (lua_State *L) { return g_read(L, getiofile(L, IO_INPUT), 1); } static int f_read (lua_State *L) { return g_read(L, tofile(L), 2); } static int io_readline (lua_State *L) { LStream *p = (LStream *)lua_touserdata(L, lua_upvalueindex(1)); int i; int n = (int)lua_tointeger(L, lua_upvalueindex(2)); if (isclosed(p)) /* file is already closed? */ return luaL_error(L, "file is already closed"); lua_settop(L , 1); for (i = 1; i <= n; i++) /* push arguments to 'g_read' */ lua_pushvalue(L, lua_upvalueindex(3 + i)); n = g_read(L, p->f, 2); /* 'n' is number of results */ lua_assert(n > 0); /* should return at least a nil */ if (!lua_isnil(L, -n)) /* read at least one value? */ return n; /* return them */ else { /* first result is nil: EOF or error */ if (n > 1) { /* is there error information? */ /* 2nd result is error message */ return luaL_error(L, "%s", lua_tostring(L, -n + 1)); } if (lua_toboolean(L, lua_upvalueindex(3))) { /* generator created file? */ lua_settop(L, 0); lua_pushvalue(L, lua_upvalueindex(1)); aux_close(L); /* close it */ } return 0; } } /* }====================================================== */ static int g_write (lua_State *L, FILE *f, int arg) { int nargs = lua_gettop(L) - arg; int status = 1; for (; nargs--; arg++) { if (lua_type(L, arg) == LUA_TNUMBER) { /* optimization: could be done exactly as for strings */ status = status && fprintf(f, LUA_NUMBER_FMT, lua_tonumber(L, arg)) > 0; } else { size_t l; const char *s = luaL_checklstring(L, arg, &l); status = status && (fwrite(s, sizeof(char), l, f) == l); } } if (status) return 1; /* file handle already on stack top */ else return luaL_fileresult(L, status, NULL); } static int io_write (lua_State *L) { return g_write(L, getiofile(L, IO_OUTPUT), 1); } static int f_write (lua_State *L) { FILE *f = tofile(L); lua_pushvalue(L, 1); /* push file at the stack top (to be returned) */ return g_write(L, f, 2); } static int f_seek (lua_State *L) { static const int mode[] = {SEEK_SET, SEEK_CUR, SEEK_END}; static const char *const modenames[] = {"set", "cur", "end", NULL}; FILE *f = tofile(L); int op = luaL_checkoption(L, 2, "cur", modenames); lua_Number p3 = luaL_optnumber(L, 3, 0); l_seeknum offset = (l_seeknum)p3; luaL_argcheck(L, (lua_Number)offset == p3, 3, "not an integer in proper range"); op = l_fseek(f, offset, mode[op]); if (op) return luaL_fileresult(L, 0, NULL); /* error */ else { lua_pushnumber(L, (lua_Number)l_ftell(f)); return 1; } } static int f_setvbuf (lua_State *L) { static const int mode[] = {_IONBF, _IOFBF, _IOLBF}; static const char *const modenames[] = {"no", "full", "line", NULL}; FILE *f = tofile(L); int op = luaL_checkoption(L, 2, NULL, modenames); lua_Integer sz = luaL_optinteger(L, 3, LUAL_BUFFERSIZE); int res = setvbuf(f, NULL, mode[op], sz); return luaL_fileresult(L, res == 0, NULL); } static int io_flush (lua_State *L) { return luaL_fileresult(L, fflush(getiofile(L, IO_OUTPUT)) == 0, NULL); } static int f_flush (lua_State *L) { return luaL_fileresult(L, fflush(tofile(L)) == 0, NULL); } /* ** functions for 'io' library */ static const luaL_Reg iolib[] = { {"close", io_close}, {"flush", io_flush}, {"input", io_input}, {"lines", io_lines}, {"open", io_open}, {"output", io_output}, {"popen", io_popen}, {"read", io_read}, {"tmpfile", io_tmpfile}, {"type", io_type}, {"write", io_write}, {NULL, NULL} }; /* ** methods for file handles */ static const luaL_Reg flib[] = { {"close", io_close}, {"flush", f_flush}, {"lines", f_lines}, {"read", f_read}, {"seek", f_seek}, {"setvbuf", f_setvbuf}, {"write", f_write}, {"__gc", f_gc}, {"__tostring", f_tostring}, {NULL, NULL} }; static void createmeta (lua_State *L) { luaL_newmetatable(L, LUA_FILEHANDLE); /* create metatable for file handles */ lua_pushvalue(L, -1); /* push metatable */ lua_setfield(L, -2, "__index"); /* metatable.__index = metatable */ luaL_setfuncs(L, flib, 0); /* add file methods to new metatable */ lua_pop(L, 1); /* pop new metatable */ } /* ** function to (not) close the standard files stdin, stdout, and stderr */ static int io_noclose (lua_State *L) { LStream *p = tolstream(L); p->closef = &io_noclose; /* keep file opened */ lua_pushnil(L); lua_pushliteral(L, "cannot close standard file"); return 2; } static void createstdfile (lua_State *L, FILE *f, const char *k, const char *fname) { LStream *p = newprefile(L); p->f = f; p->closef = &io_noclose; if (k != NULL) { lua_pushvalue(L, -1); lua_setfield(L, LUA_REGISTRYINDEX, k); /* add file to registry */ } lua_setfield(L, -2, fname); /* add file to module */ } LUAMOD_API int luaopen_io (lua_State *L) { luaL_newlib(L, iolib); /* new module */ createmeta(L); /* create (and set) default files */ createstdfile(L, stdin, IO_INPUT, "stdin"); createstdfile(L, stdout, IO_OUTPUT, "stdout"); createstdfile(L, stderr, NULL, "stderr"); return 1; } april-ann-0.3.1/lua/lua-5.2.2/src/llex.c000066400000000000000000000355551234204160600173120ustar00rootroot00000000000000/* ** $Id: llex.c,v 2.63 2013/03/16 21:10:18 roberto Exp $ ** Lexical Analyzer ** See Copyright Notice in lua.h */ #include #include #define llex_c #define LUA_CORE #include "lua.h" #include "lctype.h" #include "ldo.h" #include "llex.h" #include "lobject.h" #include "lparser.h" #include "lstate.h" #include "lstring.h" #include "ltable.h" #include "lzio.h" #define next(ls) (ls->current = zgetc(ls->z)) #define currIsNewline(ls) (ls->current == '\n' || ls->current == '\r') /* ORDER RESERVED */ const char *const luaX_tokens [] = { "and", "break", "do", "else", "elseif", "end", "false", "for", "function", "goto", "if", "in", "local", "nil", "not", "or", "repeat", "return", "then", "true", "until", "while", "..", "...", "==", ">=", "<=", "~=", "::", "", "", "", "" }; #define save_and_next(ls) (save(ls, ls->current), next(ls)) static l_noret lexerror (LexState *ls, const char *msg, int token); static void save (LexState *ls, int c) { Mbuffer *b = ls->buff; if (luaZ_bufflen(b) + 1 > luaZ_sizebuffer(b)) { size_t newsize; if (luaZ_sizebuffer(b) >= MAX_SIZET/2) lexerror(ls, "lexical element too long", 0); newsize = luaZ_sizebuffer(b) * 2; luaZ_resizebuffer(ls->L, b, newsize); } b->buffer[luaZ_bufflen(b)++] = cast(char, c); } void luaX_init (lua_State *L) { int i; for (i=0; itsv.extra = cast_byte(i+1); /* reserved word */ } } const char *luaX_token2str (LexState *ls, int token) { if (token < FIRST_RESERVED) { /* single-byte symbols? */ lua_assert(token == cast(unsigned char, token)); return (lisprint(token)) ? luaO_pushfstring(ls->L, LUA_QL("%c"), token) : luaO_pushfstring(ls->L, "char(%d)", token); } else { const char *s = luaX_tokens[token - FIRST_RESERVED]; if (token < TK_EOS) /* fixed format (symbols and reserved words)? */ return luaO_pushfstring(ls->L, LUA_QS, s); else /* names, strings, and numerals */ return s; } } static const char *txtToken (LexState *ls, int token) { switch (token) { case TK_NAME: case TK_STRING: case TK_NUMBER: save(ls, '\0'); return luaO_pushfstring(ls->L, LUA_QS, luaZ_buffer(ls->buff)); default: return luaX_token2str(ls, token); } } static l_noret lexerror (LexState *ls, const char *msg, int token) { char buff[LUA_IDSIZE]; luaO_chunkid(buff, getstr(ls->source), LUA_IDSIZE); msg = luaO_pushfstring(ls->L, "%s:%d: %s", buff, ls->linenumber, msg); if (token) luaO_pushfstring(ls->L, "%s near %s", msg, txtToken(ls, token)); luaD_throw(ls->L, LUA_ERRSYNTAX); } l_noret luaX_syntaxerror (LexState *ls, const char *msg) { lexerror(ls, msg, ls->t.token); } /* ** creates a new string and anchors it in function's table so that ** it will not be collected until the end of the function's compilation ** (by that time it should be anchored in function's prototype) */ TString *luaX_newstring (LexState *ls, const char *str, size_t l) { lua_State *L = ls->L; TValue *o; /* entry for `str' */ TString *ts = luaS_newlstr(L, str, l); /* create new string */ setsvalue2s(L, L->top++, ts); /* temporarily anchor it in stack */ o = luaH_set(L, ls->fs->h, L->top - 1); if (ttisnil(o)) { /* not in use yet? (see 'addK') */ /* boolean value does not need GC barrier; table has no metatable, so it does not need to invalidate cache */ setbvalue(o, 1); /* t[string] = true */ luaC_checkGC(L); } L->top--; /* remove string from stack */ return ts; } /* ** increment line number and skips newline sequence (any of ** \n, \r, \n\r, or \r\n) */ static void inclinenumber (LexState *ls) { int old = ls->current; lua_assert(currIsNewline(ls)); next(ls); /* skip `\n' or `\r' */ if (currIsNewline(ls) && ls->current != old) next(ls); /* skip `\n\r' or `\r\n' */ if (++ls->linenumber >= MAX_INT) luaX_syntaxerror(ls, "chunk has too many lines"); } void luaX_setinput (lua_State *L, LexState *ls, ZIO *z, TString *source, int firstchar) { ls->decpoint = '.'; ls->L = L; ls->current = firstchar; ls->lookahead.token = TK_EOS; /* no look-ahead token */ ls->z = z; ls->fs = NULL; ls->linenumber = 1; ls->lastline = 1; ls->source = source; ls->envn = luaS_new(L, LUA_ENV); /* create env name */ luaS_fix(ls->envn); /* never collect this name */ luaZ_resizebuffer(ls->L, ls->buff, LUA_MINBUFFER); /* initialize buffer */ } /* ** ======================================================= ** LEXICAL ANALYZER ** ======================================================= */ static int check_next (LexState *ls, const char *set) { if (ls->current == '\0' || !strchr(set, ls->current)) return 0; save_and_next(ls); return 1; } /* ** change all characters 'from' in buffer to 'to' */ static void buffreplace (LexState *ls, char from, char to) { size_t n = luaZ_bufflen(ls->buff); char *p = luaZ_buffer(ls->buff); while (n--) if (p[n] == from) p[n] = to; } #if !defined(getlocaledecpoint) #define getlocaledecpoint() (localeconv()->decimal_point[0]) #endif #define buff2d(b,e) luaO_str2d(luaZ_buffer(b), luaZ_bufflen(b) - 1, e) /* ** in case of format error, try to change decimal point separator to ** the one defined in the current locale and check again */ static void trydecpoint (LexState *ls, SemInfo *seminfo) { char old = ls->decpoint; ls->decpoint = getlocaledecpoint(); buffreplace(ls, old, ls->decpoint); /* try new decimal separator */ if (!buff2d(ls->buff, &seminfo->r)) { /* format error with correct decimal point: no more options */ buffreplace(ls, ls->decpoint, '.'); /* undo change (for error message) */ lexerror(ls, "malformed number", TK_NUMBER); } } /* LUA_NUMBER */ /* ** this function is quite liberal in what it accepts, as 'luaO_str2d' ** will reject ill-formed numerals. */ static void read_numeral (LexState *ls, SemInfo *seminfo) { const char *expo = "Ee"; int first = ls->current; lua_assert(lisdigit(ls->current)); save_and_next(ls); if (first == '0' && check_next(ls, "Xx")) /* hexadecimal? */ expo = "Pp"; for (;;) { if (check_next(ls, expo)) /* exponent part? */ check_next(ls, "+-"); /* optional exponent sign */ if (lisxdigit(ls->current) || ls->current == '.') save_and_next(ls); else break; } save(ls, '\0'); buffreplace(ls, '.', ls->decpoint); /* follow locale for decimal point */ if (!buff2d(ls->buff, &seminfo->r)) /* format error? */ trydecpoint(ls, seminfo); /* try to update decimal point separator */ } /* ** skip a sequence '[=*[' or ']=*]' and return its number of '='s or ** -1 if sequence is malformed */ static int skip_sep (LexState *ls) { int count = 0; int s = ls->current; lua_assert(s == '[' || s == ']'); save_and_next(ls); while (ls->current == '=') { save_and_next(ls); count++; } return (ls->current == s) ? count : (-count) - 1; } static void read_long_string (LexState *ls, SemInfo *seminfo, int sep) { save_and_next(ls); /* skip 2nd `[' */ if (currIsNewline(ls)) /* string starts with a newline? */ inclinenumber(ls); /* skip it */ for (;;) { switch (ls->current) { case EOZ: lexerror(ls, (seminfo) ? "unfinished long string" : "unfinished long comment", TK_EOS); break; /* to avoid warnings */ case ']': { if (skip_sep(ls) == sep) { save_and_next(ls); /* skip 2nd `]' */ goto endloop; } break; } case '\n': case '\r': { save(ls, '\n'); inclinenumber(ls); if (!seminfo) luaZ_resetbuffer(ls->buff); /* avoid wasting space */ break; } default: { if (seminfo) save_and_next(ls); else next(ls); } } } endloop: if (seminfo) seminfo->ts = luaX_newstring(ls, luaZ_buffer(ls->buff) + (2 + sep), luaZ_bufflen(ls->buff) - 2*(2 + sep)); } static void escerror (LexState *ls, int *c, int n, const char *msg) { int i; luaZ_resetbuffer(ls->buff); /* prepare error message */ save(ls, '\\'); for (i = 0; i < n && c[i] != EOZ; i++) save(ls, c[i]); lexerror(ls, msg, TK_STRING); } static int readhexaesc (LexState *ls) { int c[3], i; /* keep input for error message */ int r = 0; /* result accumulator */ c[0] = 'x'; /* for error message */ for (i = 1; i < 3; i++) { /* read two hexadecimal digits */ c[i] = next(ls); if (!lisxdigit(c[i])) escerror(ls, c, i + 1, "hexadecimal digit expected"); r = (r << 4) + luaO_hexavalue(c[i]); } return r; } static int readdecesc (LexState *ls) { int c[3], i; int r = 0; /* result accumulator */ for (i = 0; i < 3 && lisdigit(ls->current); i++) { /* read up to 3 digits */ c[i] = ls->current; r = 10*r + c[i] - '0'; next(ls); } if (r > UCHAR_MAX) escerror(ls, c, i, "decimal escape too large"); return r; } static void read_string (LexState *ls, int del, SemInfo *seminfo) { save_and_next(ls); /* keep delimiter (for error messages) */ while (ls->current != del) { switch (ls->current) { case EOZ: lexerror(ls, "unfinished string", TK_EOS); break; /* to avoid warnings */ case '\n': case '\r': lexerror(ls, "unfinished string", TK_STRING); break; /* to avoid warnings */ case '\\': { /* escape sequences */ int c; /* final character to be saved */ next(ls); /* do not save the `\' */ switch (ls->current) { case 'a': c = '\a'; goto read_save; case 'b': c = '\b'; goto read_save; case 'f': c = '\f'; goto read_save; case 'n': c = '\n'; goto read_save; case 'r': c = '\r'; goto read_save; case 't': c = '\t'; goto read_save; case 'v': c = '\v'; goto read_save; case 'x': c = readhexaesc(ls); goto read_save; case '\n': case '\r': inclinenumber(ls); c = '\n'; goto only_save; case '\\': case '\"': case '\'': c = ls->current; goto read_save; case EOZ: goto no_save; /* will raise an error next loop */ case 'z': { /* zap following span of spaces */ next(ls); /* skip the 'z' */ while (lisspace(ls->current)) { if (currIsNewline(ls)) inclinenumber(ls); else next(ls); } goto no_save; } default: { if (!lisdigit(ls->current)) escerror(ls, &ls->current, 1, "invalid escape sequence"); /* digital escape \ddd */ c = readdecesc(ls); goto only_save; } } read_save: next(ls); /* read next character */ only_save: save(ls, c); /* save 'c' */ no_save: break; } default: save_and_next(ls); } } save_and_next(ls); /* skip delimiter */ seminfo->ts = luaX_newstring(ls, luaZ_buffer(ls->buff) + 1, luaZ_bufflen(ls->buff) - 2); } static int llex (LexState *ls, SemInfo *seminfo) { luaZ_resetbuffer(ls->buff); for (;;) { switch (ls->current) { case '\n': case '\r': { /* line breaks */ inclinenumber(ls); break; } case ' ': case '\f': case '\t': case '\v': { /* spaces */ next(ls); break; } case '-': { /* '-' or '--' (comment) */ next(ls); if (ls->current != '-') return '-'; /* else is a comment */ next(ls); if (ls->current == '[') { /* long comment? */ int sep = skip_sep(ls); luaZ_resetbuffer(ls->buff); /* `skip_sep' may dirty the buffer */ if (sep >= 0) { read_long_string(ls, NULL, sep); /* skip long comment */ luaZ_resetbuffer(ls->buff); /* previous call may dirty the buff. */ break; } } /* else short comment */ while (!currIsNewline(ls) && ls->current != EOZ) next(ls); /* skip until end of line (or end of file) */ break; } case '[': { /* long string or simply '[' */ int sep = skip_sep(ls); if (sep >= 0) { read_long_string(ls, seminfo, sep); return TK_STRING; } else if (sep == -1) return '['; else lexerror(ls, "invalid long string delimiter", TK_STRING); } case '=': { next(ls); if (ls->current != '=') return '='; else { next(ls); return TK_EQ; } } case '<': { next(ls); if (ls->current != '=') return '<'; else { next(ls); return TK_LE; } } case '>': { next(ls); if (ls->current != '=') return '>'; else { next(ls); return TK_GE; } } case '~': { next(ls); if (ls->current != '=') return '~'; else { next(ls); return TK_NE; } } case ':': { next(ls); if (ls->current != ':') return ':'; else { next(ls); return TK_DBCOLON; } } case '"': case '\'': { /* short literal strings */ read_string(ls, ls->current, seminfo); return TK_STRING; } case '.': { /* '.', '..', '...', or number */ save_and_next(ls); if (check_next(ls, ".")) { if (check_next(ls, ".")) return TK_DOTS; /* '...' */ else return TK_CONCAT; /* '..' */ } else if (!lisdigit(ls->current)) return '.'; /* else go through */ } case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': { read_numeral(ls, seminfo); return TK_NUMBER; } case EOZ: { return TK_EOS; } default: { if (lislalpha(ls->current)) { /* identifier or reserved word? */ TString *ts; do { save_and_next(ls); } while (lislalnum(ls->current)); ts = luaX_newstring(ls, luaZ_buffer(ls->buff), luaZ_bufflen(ls->buff)); seminfo->ts = ts; if (isreserved(ts)) /* reserved word? */ return ts->tsv.extra - 1 + FIRST_RESERVED; else { return TK_NAME; } } else { /* single-char tokens (+ - / ...) */ int c = ls->current; next(ls); return c; } } } } } void luaX_next (LexState *ls) { ls->lastline = ls->linenumber; if (ls->lookahead.token != TK_EOS) { /* is there a look-ahead token? */ ls->t = ls->lookahead; /* use this one */ ls->lookahead.token = TK_EOS; /* and discharge it */ } else ls->t.token = llex(ls, &ls->t.seminfo); /* read next token */ } int luaX_lookahead (LexState *ls) { lua_assert(ls->lookahead.token == TK_EOS); ls->lookahead.token = llex(ls, &ls->lookahead.seminfo); return ls->lookahead.token; } april-ann-0.3.1/lua/lua-5.2.2/src/llex.h000066400000000000000000000041561234204160600173100ustar00rootroot00000000000000/* ** $Id: llex.h,v 1.72 2011/11/30 12:43:51 roberto Exp $ ** Lexical Analyzer ** See Copyright Notice in lua.h */ #ifndef llex_h #define llex_h #include "lobject.h" #include "lzio.h" #define FIRST_RESERVED 257 /* * WARNING: if you change the order of this enumeration, * grep "ORDER RESERVED" */ enum RESERVED { /* terminal symbols denoted by reserved words */ TK_AND = FIRST_RESERVED, TK_BREAK, TK_DO, TK_ELSE, TK_ELSEIF, TK_END, TK_FALSE, TK_FOR, TK_FUNCTION, TK_GOTO, TK_IF, TK_IN, TK_LOCAL, TK_NIL, TK_NOT, TK_OR, TK_REPEAT, TK_RETURN, TK_THEN, TK_TRUE, TK_UNTIL, TK_WHILE, /* other terminal symbols */ TK_CONCAT, TK_DOTS, TK_EQ, TK_GE, TK_LE, TK_NE, TK_DBCOLON, TK_EOS, TK_NUMBER, TK_NAME, TK_STRING }; /* number of reserved words */ #define NUM_RESERVED (cast(int, TK_WHILE-FIRST_RESERVED+1)) typedef union { lua_Number r; TString *ts; } SemInfo; /* semantics information */ typedef struct Token { int token; SemInfo seminfo; } Token; /* state of the lexer plus state of the parser when shared by all functions */ typedef struct LexState { int current; /* current character (charint) */ int linenumber; /* input line counter */ int lastline; /* line of last token `consumed' */ Token t; /* current token */ Token lookahead; /* look ahead token */ struct FuncState *fs; /* current function (parser) */ struct lua_State *L; ZIO *z; /* input stream */ Mbuffer *buff; /* buffer for tokens */ struct Dyndata *dyd; /* dynamic structures used by the parser */ TString *source; /* current source name */ TString *envn; /* environment variable name */ char decpoint; /* locale decimal point */ } LexState; LUAI_FUNC void luaX_init (lua_State *L); LUAI_FUNC void luaX_setinput (lua_State *L, LexState *ls, ZIO *z, TString *source, int firstchar); LUAI_FUNC TString *luaX_newstring (LexState *ls, const char *str, size_t l); LUAI_FUNC void luaX_next (LexState *ls); LUAI_FUNC int luaX_lookahead (LexState *ls); LUAI_FUNC l_noret luaX_syntaxerror (LexState *ls, const char *s); LUAI_FUNC const char *luaX_token2str (LexState *ls, int token); #endif april-ann-0.3.1/lua/lua-5.2.2/src/llimits.h000066400000000000000000000165451234204160600200260ustar00rootroot00000000000000/* ** $Id: llimits.h,v 1.103 2013/02/20 14:08:56 roberto Exp $ ** Limits, basic types, and some other `installation-dependent' definitions ** See Copyright Notice in lua.h */ #ifndef llimits_h #define llimits_h #include #include #include "lua.h" typedef unsigned LUA_INT32 lu_int32; typedef LUAI_UMEM lu_mem; typedef LUAI_MEM l_mem; /* chars used as small naturals (so that `char' is reserved for characters) */ typedef unsigned char lu_byte; #define MAX_SIZET ((size_t)(~(size_t)0)-2) #define MAX_LUMEM ((lu_mem)(~(lu_mem)0)-2) #define MAX_LMEM ((l_mem) ((MAX_LUMEM >> 1) - 2)) #define MAX_INT (INT_MAX-2) /* maximum value of an int (-2 for safety) */ /* ** conversion of pointer to integer ** this is for hashing only; there is no problem if the integer ** cannot hold the whole pointer value */ #define IntPoint(p) ((unsigned int)(lu_mem)(p)) /* type to ensure maximum alignment */ #if !defined(LUAI_USER_ALIGNMENT_T) #define LUAI_USER_ALIGNMENT_T union { double u; void *s; long l; } #endif typedef LUAI_USER_ALIGNMENT_T L_Umaxalign; /* result of a `usual argument conversion' over lua_Number */ typedef LUAI_UACNUMBER l_uacNumber; /* internal assertions for in-house debugging */ #if defined(lua_assert) #define check_exp(c,e) (lua_assert(c), (e)) /* to avoid problems with conditions too long */ #define lua_longassert(c) { if (!(c)) lua_assert(0); } #else #define lua_assert(c) ((void)0) #define check_exp(c,e) (e) #define lua_longassert(c) ((void)0) #endif /* ** assertion for checking API calls */ #if !defined(luai_apicheck) #if defined(LUA_USE_APICHECK) #include #define luai_apicheck(L,e) assert(e) #else #define luai_apicheck(L,e) lua_assert(e) #endif #endif #define api_check(l,e,msg) luai_apicheck(l,(e) && msg) #if !defined(UNUSED) #define UNUSED(x) ((void)(x)) /* to avoid warnings */ #endif #define cast(t, exp) ((t)(exp)) #define cast_byte(i) cast(lu_byte, (i)) #define cast_num(i) cast(lua_Number, (i)) #define cast_int(i) cast(int, (i)) #define cast_uchar(i) cast(unsigned char, (i)) /* ** non-return type */ #if defined(__GNUC__) #define l_noret void __attribute__((noreturn)) #elif defined(_MSC_VER) #define l_noret void __declspec(noreturn) #else #define l_noret void #endif /* ** maximum depth for nested C calls and syntactical nested non-terminals ** in a program. (Value must fit in an unsigned short int.) */ #if !defined(LUAI_MAXCCALLS) #define LUAI_MAXCCALLS 200 #endif /* ** maximum number of upvalues in a closure (both C and Lua). (Value ** must fit in an unsigned char.) */ #define MAXUPVAL UCHAR_MAX /* ** type for virtual-machine instructions ** must be an unsigned with (at least) 4 bytes (see details in lopcodes.h) */ typedef lu_int32 Instruction; /* maximum stack for a Lua function */ #define MAXSTACK 250 /* minimum size for the string table (must be power of 2) */ #if !defined(MINSTRTABSIZE) #define MINSTRTABSIZE 32 #endif /* minimum size for string buffer */ #if !defined(LUA_MINBUFFER) #define LUA_MINBUFFER 32 #endif #if !defined(lua_lock) #define lua_lock(L) ((void) 0) #define lua_unlock(L) ((void) 0) #endif #if !defined(luai_threadyield) #define luai_threadyield(L) {lua_unlock(L); lua_lock(L);} #endif /* ** these macros allow user-specific actions on threads when you defined ** LUAI_EXTRASPACE and need to do something extra when a thread is ** created/deleted/resumed/yielded. */ #if !defined(luai_userstateopen) #define luai_userstateopen(L) ((void)L) #endif #if !defined(luai_userstateclose) #define luai_userstateclose(L) ((void)L) #endif #if !defined(luai_userstatethread) #define luai_userstatethread(L,L1) ((void)L) #endif #if !defined(luai_userstatefree) #define luai_userstatefree(L,L1) ((void)L) #endif #if !defined(luai_userstateresume) #define luai_userstateresume(L,n) ((void)L) #endif #if !defined(luai_userstateyield) #define luai_userstateyield(L,n) ((void)L) #endif /* ** lua_number2int is a macro to convert lua_Number to int. ** lua_number2integer is a macro to convert lua_Number to lua_Integer. ** lua_number2unsigned is a macro to convert a lua_Number to a lua_Unsigned. ** lua_unsigned2number is a macro to convert a lua_Unsigned to a lua_Number. ** luai_hashnum is a macro to hash a lua_Number value into an integer. ** The hash must be deterministic and give reasonable values for ** both small and large values (outside the range of integers). */ #if defined(MS_ASMTRICK) || defined(LUA_MSASMTRICK) /* { */ /* trick with Microsoft assembler for X86 */ #define lua_number2int(i,n) __asm {__asm fld n __asm fistp i} #define lua_number2integer(i,n) lua_number2int(i, n) #define lua_number2unsigned(i,n) \ {__int64 l; __asm {__asm fld n __asm fistp l} i = (unsigned int)l;} #elif defined(LUA_IEEE754TRICK) /* }{ */ /* the next trick should work on any machine using IEEE754 with a 32-bit int type */ union luai_Cast { double l_d; LUA_INT32 l_p[2]; }; #if !defined(LUA_IEEEENDIAN) /* { */ #define LUAI_EXTRAIEEE \ static const union luai_Cast ieeeendian = {-(33.0 + 6755399441055744.0)}; #define LUA_IEEEENDIANLOC (ieeeendian.l_p[1] == 33) #else #define LUA_IEEEENDIANLOC LUA_IEEEENDIAN #define LUAI_EXTRAIEEE /* empty */ #endif /* } */ #define lua_number2int32(i,n,t) \ { LUAI_EXTRAIEEE \ volatile union luai_Cast u; u.l_d = (n) + 6755399441055744.0; \ (i) = (t)u.l_p[LUA_IEEEENDIANLOC]; } #define luai_hashnum(i,n) \ { volatile union luai_Cast u; u.l_d = (n) + 1.0; /* avoid -0 */ \ (i) = u.l_p[0]; (i) += u.l_p[1]; } /* add double bits for his hash */ #define lua_number2int(i,n) lua_number2int32(i, n, int) #define lua_number2unsigned(i,n) lua_number2int32(i, n, lua_Unsigned) /* the trick can be expanded to lua_Integer when it is a 32-bit value */ #if defined(LUA_IEEELL) #define lua_number2integer(i,n) lua_number2int32(i, n, lua_Integer) #endif #endif /* } */ /* the following definitions always work, but may be slow */ #if !defined(lua_number2int) #define lua_number2int(i,n) ((i)=(int)(n)) #endif #if !defined(lua_number2integer) #define lua_number2integer(i,n) ((i)=(lua_Integer)(n)) #endif #if !defined(lua_number2unsigned) /* { */ /* the following definition assures proper modulo behavior */ #if defined(LUA_NUMBER_DOUBLE) || defined(LUA_NUMBER_FLOAT) #include #define SUPUNSIGNED ((lua_Number)(~(lua_Unsigned)0) + 1) #define lua_number2unsigned(i,n) \ ((i)=(lua_Unsigned)((n) - floor((n)/SUPUNSIGNED)*SUPUNSIGNED)) #else #define lua_number2unsigned(i,n) ((i)=(lua_Unsigned)(n)) #endif #endif /* } */ #if !defined(lua_unsigned2number) /* on several machines, coercion from unsigned to double is slow, so it may be worth to avoid */ #define lua_unsigned2number(u) \ (((u) <= (lua_Unsigned)INT_MAX) ? (lua_Number)(int)(u) : (lua_Number)(u)) #endif #if defined(ltable_c) && !defined(luai_hashnum) #include #include #define luai_hashnum(i,n) { int e; \ n = l_mathop(frexp)(n, &e) * (lua_Number)(INT_MAX - DBL_MAX_EXP); \ lua_number2int(i, n); i += e; } #endif /* ** macro to control inclusion of some hard tests on stack reallocation */ #if !defined(HARDSTACKTESTS) #define condmovestack(L) ((void)0) #else /* realloc stack keeping its size */ #define condmovestack(L) luaD_reallocstack((L), (L)->stacksize) #endif #if !defined(HARDMEMTESTS) #define condchangemem(L) condmovestack(L) #else #define condchangemem(L) \ ((void)(!(G(L)->gcrunning) || (luaC_fullgc(L, 0), 1))) #endif #endif april-ann-0.3.1/lua/lua-5.2.2/src/lmathlib.c000066400000000000000000000146661234204160600201420ustar00rootroot00000000000000/* ** $Id: lmathlib.c,v 1.83 2013/03/07 18:21:32 roberto Exp $ ** Standard mathematical library ** See Copyright Notice in lua.h */ #include #include #define lmathlib_c #define LUA_LIB #include "lua.h" #include "lauxlib.h" #include "lualib.h" #undef PI #define PI ((lua_Number)(3.1415926535897932384626433832795)) #define RADIANS_PER_DEGREE ((lua_Number)(PI/180.0)) static int math_abs (lua_State *L) { lua_pushnumber(L, l_mathop(fabs)(luaL_checknumber(L, 1))); return 1; } static int math_sin (lua_State *L) { lua_pushnumber(L, l_mathop(sin)(luaL_checknumber(L, 1))); return 1; } static int math_sinh (lua_State *L) { lua_pushnumber(L, l_mathop(sinh)(luaL_checknumber(L, 1))); return 1; } static int math_cos (lua_State *L) { lua_pushnumber(L, l_mathop(cos)(luaL_checknumber(L, 1))); return 1; } static int math_cosh (lua_State *L) { lua_pushnumber(L, l_mathop(cosh)(luaL_checknumber(L, 1))); return 1; } static int math_tan (lua_State *L) { lua_pushnumber(L, l_mathop(tan)(luaL_checknumber(L, 1))); return 1; } static int math_tanh (lua_State *L) { lua_pushnumber(L, l_mathop(tanh)(luaL_checknumber(L, 1))); return 1; } static int math_asin (lua_State *L) { lua_pushnumber(L, l_mathop(asin)(luaL_checknumber(L, 1))); return 1; } static int math_acos (lua_State *L) { lua_pushnumber(L, l_mathop(acos)(luaL_checknumber(L, 1))); return 1; } static int math_atan (lua_State *L) { lua_pushnumber(L, l_mathop(atan)(luaL_checknumber(L, 1))); return 1; } static int math_atan2 (lua_State *L) { lua_pushnumber(L, l_mathop(atan2)(luaL_checknumber(L, 1), luaL_checknumber(L, 2))); return 1; } static int math_ceil (lua_State *L) { lua_pushnumber(L, l_mathop(ceil)(luaL_checknumber(L, 1))); return 1; } static int math_floor (lua_State *L) { lua_pushnumber(L, l_mathop(floor)(luaL_checknumber(L, 1))); return 1; } static int math_fmod (lua_State *L) { lua_pushnumber(L, l_mathop(fmod)(luaL_checknumber(L, 1), luaL_checknumber(L, 2))); return 1; } static int math_modf (lua_State *L) { lua_Number ip; lua_Number fp = l_mathop(modf)(luaL_checknumber(L, 1), &ip); lua_pushnumber(L, ip); lua_pushnumber(L, fp); return 2; } static int math_sqrt (lua_State *L) { lua_pushnumber(L, l_mathop(sqrt)(luaL_checknumber(L, 1))); return 1; } static int math_pow (lua_State *L) { lua_Number x = luaL_checknumber(L, 1); lua_Number y = luaL_checknumber(L, 2); lua_pushnumber(L, l_mathop(pow)(x, y)); return 1; } static int math_log (lua_State *L) { lua_Number x = luaL_checknumber(L, 1); lua_Number res; if (lua_isnoneornil(L, 2)) res = l_mathop(log)(x); else { lua_Number base = luaL_checknumber(L, 2); if (base == (lua_Number)10.0) res = l_mathop(log10)(x); else res = l_mathop(log)(x)/l_mathop(log)(base); } lua_pushnumber(L, res); return 1; } #if defined(LUA_COMPAT_LOG10) static int math_log10 (lua_State *L) { lua_pushnumber(L, l_mathop(log10)(luaL_checknumber(L, 1))); return 1; } #endif static int math_exp (lua_State *L) { lua_pushnumber(L, l_mathop(exp)(luaL_checknumber(L, 1))); return 1; } static int math_deg (lua_State *L) { lua_pushnumber(L, luaL_checknumber(L, 1)/RADIANS_PER_DEGREE); return 1; } static int math_rad (lua_State *L) { lua_pushnumber(L, luaL_checknumber(L, 1)*RADIANS_PER_DEGREE); return 1; } static int math_frexp (lua_State *L) { int e; lua_pushnumber(L, l_mathop(frexp)(luaL_checknumber(L, 1), &e)); lua_pushinteger(L, e); return 2; } static int math_ldexp (lua_State *L) { lua_Number x = luaL_checknumber(L, 1); int ep = luaL_checkint(L, 2); lua_pushnumber(L, l_mathop(ldexp)(x, ep)); return 1; } static int math_min (lua_State *L) { int n = lua_gettop(L); /* number of arguments */ lua_Number dmin = luaL_checknumber(L, 1); int i; for (i=2; i<=n; i++) { lua_Number d = luaL_checknumber(L, i); if (d < dmin) dmin = d; } lua_pushnumber(L, dmin); return 1; } static int math_max (lua_State *L) { int n = lua_gettop(L); /* number of arguments */ lua_Number dmax = luaL_checknumber(L, 1); int i; for (i=2; i<=n; i++) { lua_Number d = luaL_checknumber(L, i); if (d > dmax) dmax = d; } lua_pushnumber(L, dmax); return 1; } static int math_random (lua_State *L) { /* the `%' avoids the (rare) case of r==1, and is needed also because on some systems (SunOS!) `rand()' may return a value larger than RAND_MAX */ lua_Number r = (lua_Number)(rand()%RAND_MAX) / (lua_Number)RAND_MAX; switch (lua_gettop(L)) { /* check number of arguments */ case 0: { /* no arguments */ lua_pushnumber(L, r); /* Number between 0 and 1 */ break; } case 1: { /* only upper limit */ lua_Number u = luaL_checknumber(L, 1); luaL_argcheck(L, (lua_Number)1.0 <= u, 1, "interval is empty"); lua_pushnumber(L, l_mathop(floor)(r*u) + (lua_Number)(1.0)); /* [1, u] */ break; } case 2: { /* lower and upper limits */ lua_Number l = luaL_checknumber(L, 1); lua_Number u = luaL_checknumber(L, 2); luaL_argcheck(L, l <= u, 2, "interval is empty"); lua_pushnumber(L, l_mathop(floor)(r*(u-l+1)) + l); /* [l, u] */ break; } default: return luaL_error(L, "wrong number of arguments"); } return 1; } static int math_randomseed (lua_State *L) { srand(luaL_checkunsigned(L, 1)); (void)rand(); /* discard first value to avoid undesirable correlations */ return 0; } static const luaL_Reg mathlib[] = { {"abs", math_abs}, {"acos", math_acos}, {"asin", math_asin}, {"atan2", math_atan2}, {"atan", math_atan}, {"ceil", math_ceil}, {"cosh", math_cosh}, {"cos", math_cos}, {"deg", math_deg}, {"exp", math_exp}, {"floor", math_floor}, {"fmod", math_fmod}, {"frexp", math_frexp}, {"ldexp", math_ldexp}, #if defined(LUA_COMPAT_LOG10) {"log10", math_log10}, #endif {"log", math_log}, {"max", math_max}, {"min", math_min}, {"modf", math_modf}, {"pow", math_pow}, {"rad", math_rad}, {"random", math_random}, {"randomseed", math_randomseed}, {"sinh", math_sinh}, {"sin", math_sin}, {"sqrt", math_sqrt}, {"tanh", math_tanh}, {"tan", math_tan}, {NULL, NULL} }; /* ** Open math library */ LUAMOD_API int luaopen_math (lua_State *L) { luaL_newlib(L, mathlib); lua_pushnumber(L, PI); lua_setfield(L, -2, "pi"); lua_pushnumber(L, HUGE_VAL); lua_setfield(L, -2, "huge"); return 1; } april-ann-0.3.1/lua/lua-5.2.2/src/lmem.c000066400000000000000000000051261234204160600172670ustar00rootroot00000000000000/* ** $Id: lmem.c,v 1.84 2012/05/23 15:41:53 roberto Exp $ ** Interface to Memory Manager ** See Copyright Notice in lua.h */ #include #define lmem_c #define LUA_CORE #include "lua.h" #include "ldebug.h" #include "ldo.h" #include "lgc.h" #include "lmem.h" #include "lobject.h" #include "lstate.h" /* ** About the realloc function: ** void * frealloc (void *ud, void *ptr, size_t osize, size_t nsize); ** (`osize' is the old size, `nsize' is the new size) ** ** * frealloc(ud, NULL, x, s) creates a new block of size `s' (no ** matter 'x'). ** ** * frealloc(ud, p, x, 0) frees the block `p' ** (in this specific case, frealloc must return NULL); ** particularly, frealloc(ud, NULL, 0, 0) does nothing ** (which is equivalent to free(NULL) in ANSI C) ** ** frealloc returns NULL if it cannot create or reallocate the area ** (any reallocation to an equal or smaller size cannot fail!) */ #define MINSIZEARRAY 4 void *luaM_growaux_ (lua_State *L, void *block, int *size, size_t size_elems, int limit, const char *what) { void *newblock; int newsize; if (*size >= limit/2) { /* cannot double it? */ if (*size >= limit) /* cannot grow even a little? */ luaG_runerror(L, "too many %s (limit is %d)", what, limit); newsize = limit; /* still have at least one free place */ } else { newsize = (*size)*2; if (newsize < MINSIZEARRAY) newsize = MINSIZEARRAY; /* minimum size */ } newblock = luaM_reallocv(L, block, *size, newsize, size_elems); *size = newsize; /* update only when everything else is OK */ return newblock; } l_noret luaM_toobig (lua_State *L) { luaG_runerror(L, "memory allocation error: block too big"); } /* ** generic allocation routine. */ void *luaM_realloc_ (lua_State *L, void *block, size_t osize, size_t nsize) { void *newblock; global_State *g = G(L); size_t realosize = (block) ? osize : 0; lua_assert((realosize == 0) == (block == NULL)); #if defined(HARDMEMTESTS) if (nsize > realosize && g->gcrunning) luaC_fullgc(L, 1); /* force a GC whenever possible */ #endif newblock = (*g->frealloc)(g->ud, block, osize, nsize); if (newblock == NULL && nsize > 0) { api_check(L, nsize > realosize, "realloc cannot fail when shrinking a block"); if (g->gcrunning) { luaC_fullgc(L, 1); /* try to free some memory... */ newblock = (*g->frealloc)(g->ud, block, osize, nsize); /* try again */ } if (newblock == NULL) luaD_throw(L, LUA_ERRMEM); } lua_assert((nsize == 0) == (newblock == NULL)); g->GCdebt = (g->GCdebt + nsize) - realosize; return newblock; } april-ann-0.3.1/lua/lua-5.2.2/src/lmem.h000066400000000000000000000034121234204160600172700ustar00rootroot00000000000000/* ** $Id: lmem.h,v 1.40 2013/02/20 14:08:21 roberto Exp $ ** Interface to Memory Manager ** See Copyright Notice in lua.h */ #ifndef lmem_h #define lmem_h #include #include "llimits.h" #include "lua.h" /* ** This macro avoids the runtime division MAX_SIZET/(e), as 'e' is ** always constant. ** The macro is somewhat complex to avoid warnings: ** +1 avoids warnings of "comparison has constant result"; ** cast to 'void' avoids warnings of "value unused". */ #define luaM_reallocv(L,b,on,n,e) \ (cast(void, \ (cast(size_t, (n)+1) > MAX_SIZET/(e)) ? (luaM_toobig(L), 0) : 0), \ luaM_realloc_(L, (b), (on)*(e), (n)*(e))) #define luaM_freemem(L, b, s) luaM_realloc_(L, (b), (s), 0) #define luaM_free(L, b) luaM_realloc_(L, (b), sizeof(*(b)), 0) #define luaM_freearray(L, b, n) luaM_reallocv(L, (b), n, 0, sizeof((b)[0])) #define luaM_malloc(L,s) luaM_realloc_(L, NULL, 0, (s)) #define luaM_new(L,t) cast(t *, luaM_malloc(L, sizeof(t))) #define luaM_newvector(L,n,t) \ cast(t *, luaM_reallocv(L, NULL, 0, n, sizeof(t))) #define luaM_newobject(L,tag,s) luaM_realloc_(L, NULL, tag, (s)) #define luaM_growvector(L,v,nelems,size,t,limit,e) \ if ((nelems)+1 > (size)) \ ((v)=cast(t *, luaM_growaux_(L,v,&(size),sizeof(t),limit,e))) #define luaM_reallocvector(L, v,oldn,n,t) \ ((v)=cast(t *, luaM_reallocv(L, v, oldn, n, sizeof(t)))) LUAI_FUNC l_noret luaM_toobig (lua_State *L); /* not to be called directly */ LUAI_FUNC void *luaM_realloc_ (lua_State *L, void *block, size_t oldsize, size_t size); LUAI_FUNC void *luaM_growaux_ (lua_State *L, void *block, int *size, size_t size_elem, int limit, const char *what); #endif april-ann-0.3.1/lua/lua-5.2.2/src/loadlib.c000066400000000000000000000517601234204160600177500ustar00rootroot00000000000000/* ** $Id: loadlib.c,v 1.111 2012/05/30 12:33:44 roberto Exp $ ** Dynamic library loader for Lua ** See Copyright Notice in lua.h ** ** This module contains an implementation of loadlib for Unix systems ** that have dlfcn, an implementation for Windows, and a stub for other ** systems. */ /* ** if needed, includes windows header before everything else */ #if defined(_WIN32) #include #endif #include #include #define loadlib_c #define LUA_LIB #include "lua.h" #include "lauxlib.h" #include "lualib.h" /* ** LUA_PATH and LUA_CPATH are the names of the environment ** variables that Lua check to set its paths. */ #if !defined(LUA_PATH) #define LUA_PATH "LUA_PATH" #endif #if !defined(LUA_CPATH) #define LUA_CPATH "LUA_CPATH" #endif #define LUA_PATHSUFFIX "_" LUA_VERSION_MAJOR "_" LUA_VERSION_MINOR #define LUA_PATHVERSION LUA_PATH LUA_PATHSUFFIX #define LUA_CPATHVERSION LUA_CPATH LUA_PATHSUFFIX /* ** LUA_PATH_SEP is the character that separates templates in a path. ** LUA_PATH_MARK is the string that marks the substitution points in a ** template. ** LUA_EXEC_DIR in a Windows path is replaced by the executable's ** directory. ** LUA_IGMARK is a mark to ignore all before it when building the ** luaopen_ function name. */ #if !defined (LUA_PATH_SEP) #define LUA_PATH_SEP ";" #endif #if !defined (LUA_PATH_MARK) #define LUA_PATH_MARK "?" #endif #if !defined (LUA_EXEC_DIR) #define LUA_EXEC_DIR "!" #endif #if !defined (LUA_IGMARK) #define LUA_IGMARK "-" #endif /* ** LUA_CSUBSEP is the character that replaces dots in submodule names ** when searching for a C loader. ** LUA_LSUBSEP is the character that replaces dots in submodule names ** when searching for a Lua loader. */ #if !defined(LUA_CSUBSEP) #define LUA_CSUBSEP LUA_DIRSEP #endif #if !defined(LUA_LSUBSEP) #define LUA_LSUBSEP LUA_DIRSEP #endif /* prefix for open functions in C libraries */ #define LUA_POF "luaopen_" /* separator for open functions in C libraries */ #define LUA_OFSEP "_" /* table (in the registry) that keeps handles for all loaded C libraries */ #define CLIBS "_CLIBS" #define LIB_FAIL "open" /* error codes for ll_loadfunc */ #define ERRLIB 1 #define ERRFUNC 2 #define setprogdir(L) ((void)0) /* ** system-dependent functions */ static void ll_unloadlib (void *lib); static void *ll_load (lua_State *L, const char *path, int seeglb); static lua_CFunction ll_sym (lua_State *L, void *lib, const char *sym); #if defined(LUA_USE_DLOPEN) /* ** {======================================================================== ** This is an implementation of loadlib based on the dlfcn interface. ** The dlfcn interface is available in Linux, SunOS, Solaris, IRIX, FreeBSD, ** NetBSD, AIX 4.2, HPUX 11, and probably most other Unix flavors, at least ** as an emulation layer on top of native functions. ** ========================================================================= */ #include static void ll_unloadlib (void *lib) { dlclose(lib); } static void *ll_load (lua_State *L, const char *path, int seeglb) { void *lib = dlopen(path, RTLD_NOW | (seeglb ? RTLD_GLOBAL : RTLD_LOCAL)); if (lib == NULL) lua_pushstring(L, dlerror()); return lib; } static lua_CFunction ll_sym (lua_State *L, void *lib, const char *sym) { lua_CFunction f = (lua_CFunction)dlsym(lib, sym); if (f == NULL) lua_pushstring(L, dlerror()); return f; } /* }====================================================== */ #elif defined(LUA_DL_DLL) /* ** {====================================================================== ** This is an implementation of loadlib for Windows using native functions. ** ======================================================================= */ #undef setprogdir /* ** optional flags for LoadLibraryEx */ #if !defined(LUA_LLE_FLAGS) #define LUA_LLE_FLAGS 0 #endif static void setprogdir (lua_State *L) { char buff[MAX_PATH + 1]; char *lb; DWORD nsize = sizeof(buff)/sizeof(char); DWORD n = GetModuleFileNameA(NULL, buff, nsize); if (n == 0 || n == nsize || (lb = strrchr(buff, '\\')) == NULL) luaL_error(L, "unable to get ModuleFileName"); else { *lb = '\0'; luaL_gsub(L, lua_tostring(L, -1), LUA_EXEC_DIR, buff); lua_remove(L, -2); /* remove original string */ } } static void pusherror (lua_State *L) { int error = GetLastError(); char buffer[128]; if (FormatMessageA(FORMAT_MESSAGE_IGNORE_INSERTS | FORMAT_MESSAGE_FROM_SYSTEM, NULL, error, 0, buffer, sizeof(buffer)/sizeof(char), NULL)) lua_pushstring(L, buffer); else lua_pushfstring(L, "system error %d\n", error); } static void ll_unloadlib (void *lib) { FreeLibrary((HMODULE)lib); } static void *ll_load (lua_State *L, const char *path, int seeglb) { HMODULE lib = LoadLibraryExA(path, NULL, LUA_LLE_FLAGS); (void)(seeglb); /* not used: symbols are 'global' by default */ if (lib == NULL) pusherror(L); return lib; } static lua_CFunction ll_sym (lua_State *L, void *lib, const char *sym) { lua_CFunction f = (lua_CFunction)GetProcAddress((HMODULE)lib, sym); if (f == NULL) pusherror(L); return f; } /* }====================================================== */ #else /* ** {====================================================== ** Fallback for other systems ** ======================================================= */ #undef LIB_FAIL #define LIB_FAIL "absent" #define DLMSG "dynamic libraries not enabled; check your Lua installation" static void ll_unloadlib (void *lib) { (void)(lib); /* not used */ } static void *ll_load (lua_State *L, const char *path, int seeglb) { (void)(path); (void)(seeglb); /* not used */ lua_pushliteral(L, DLMSG); return NULL; } static lua_CFunction ll_sym (lua_State *L, void *lib, const char *sym) { (void)(lib); (void)(sym); /* not used */ lua_pushliteral(L, DLMSG); return NULL; } /* }====================================================== */ #endif static void *ll_checkclib (lua_State *L, const char *path) { void *plib; lua_getfield(L, LUA_REGISTRYINDEX, CLIBS); lua_getfield(L, -1, path); plib = lua_touserdata(L, -1); /* plib = CLIBS[path] */ lua_pop(L, 2); /* pop CLIBS table and 'plib' */ return plib; } static void ll_addtoclib (lua_State *L, const char *path, void *plib) { lua_getfield(L, LUA_REGISTRYINDEX, CLIBS); lua_pushlightuserdata(L, plib); lua_pushvalue(L, -1); lua_setfield(L, -3, path); /* CLIBS[path] = plib */ lua_rawseti(L, -2, luaL_len(L, -2) + 1); /* CLIBS[#CLIBS + 1] = plib */ lua_pop(L, 1); /* pop CLIBS table */ } /* ** __gc tag method for CLIBS table: calls 'll_unloadlib' for all lib ** handles in list CLIBS */ static int gctm (lua_State *L) { int n = luaL_len(L, 1); for (; n >= 1; n--) { /* for each handle, in reverse order */ lua_rawgeti(L, 1, n); /* get handle CLIBS[n] */ ll_unloadlib(lua_touserdata(L, -1)); lua_pop(L, 1); /* pop handle */ } return 0; } static int ll_loadfunc (lua_State *L, const char *path, const char *sym) { void *reg = ll_checkclib(L, path); /* check loaded C libraries */ if (reg == NULL) { /* must load library? */ reg = ll_load(L, path, *sym == '*'); if (reg == NULL) return ERRLIB; /* unable to load library */ ll_addtoclib(L, path, reg); } if (*sym == '*') { /* loading only library (no function)? */ lua_pushboolean(L, 1); /* return 'true' */ return 0; /* no errors */ } else { lua_CFunction f = ll_sym(L, reg, sym); if (f == NULL) return ERRFUNC; /* unable to find function */ lua_pushcfunction(L, f); /* else create new function */ return 0; /* no errors */ } } static int ll_loadlib (lua_State *L) { const char *path = luaL_checkstring(L, 1); const char *init = luaL_checkstring(L, 2); int stat = ll_loadfunc(L, path, init); if (stat == 0) /* no errors? */ return 1; /* return the loaded function */ else { /* error; error message is on stack top */ lua_pushnil(L); lua_insert(L, -2); lua_pushstring(L, (stat == ERRLIB) ? LIB_FAIL : "init"); return 3; /* return nil, error message, and where */ } } /* ** {====================================================== ** 'require' function ** ======================================================= */ static int readable (const char *filename) { FILE *f = fopen(filename, "r"); /* try to open file */ if (f == NULL) return 0; /* open failed */ fclose(f); return 1; } static const char *pushnexttemplate (lua_State *L, const char *path) { const char *l; while (*path == *LUA_PATH_SEP) path++; /* skip separators */ if (*path == '\0') return NULL; /* no more templates */ l = strchr(path, *LUA_PATH_SEP); /* find next separator */ if (l == NULL) l = path + strlen(path); lua_pushlstring(L, path, l - path); /* template */ return l; } static const char *searchpath (lua_State *L, const char *name, const char *path, const char *sep, const char *dirsep) { luaL_Buffer msg; /* to build error message */ luaL_buffinit(L, &msg); if (*sep != '\0') /* non-empty separator? */ name = luaL_gsub(L, name, sep, dirsep); /* replace it by 'dirsep' */ while ((path = pushnexttemplate(L, path)) != NULL) { const char *filename = luaL_gsub(L, lua_tostring(L, -1), LUA_PATH_MARK, name); lua_remove(L, -2); /* remove path template */ if (readable(filename)) /* does file exist and is readable? */ return filename; /* return that file name */ lua_pushfstring(L, "\n\tno file " LUA_QS, filename); lua_remove(L, -2); /* remove file name */ luaL_addvalue(&msg); /* concatenate error msg. entry */ } luaL_pushresult(&msg); /* create error message */ return NULL; /* not found */ } static int ll_searchpath (lua_State *L) { const char *f = searchpath(L, luaL_checkstring(L, 1), luaL_checkstring(L, 2), luaL_optstring(L, 3, "."), luaL_optstring(L, 4, LUA_DIRSEP)); if (f != NULL) return 1; else { /* error message is on top of the stack */ lua_pushnil(L); lua_insert(L, -2); return 2; /* return nil + error message */ } } static const char *findfile (lua_State *L, const char *name, const char *pname, const char *dirsep) { const char *path; lua_getfield(L, lua_upvalueindex(1), pname); path = lua_tostring(L, -1); if (path == NULL) luaL_error(L, LUA_QL("package.%s") " must be a string", pname); return searchpath(L, name, path, ".", dirsep); } static int checkload (lua_State *L, int stat, const char *filename) { if (stat) { /* module loaded successfully? */ lua_pushstring(L, filename); /* will be 2nd argument to module */ return 2; /* return open function and file name */ } else return luaL_error(L, "error loading module " LUA_QS " from file " LUA_QS ":\n\t%s", lua_tostring(L, 1), filename, lua_tostring(L, -1)); } static int searcher_Lua (lua_State *L) { const char *filename; const char *name = luaL_checkstring(L, 1); filename = findfile(L, name, "path", LUA_LSUBSEP); if (filename == NULL) return 1; /* module not found in this path */ return checkload(L, (luaL_loadfile(L, filename) == LUA_OK), filename); } static int loadfunc (lua_State *L, const char *filename, const char *modname) { const char *funcname; const char *mark; modname = luaL_gsub(L, modname, ".", LUA_OFSEP); mark = strchr(modname, *LUA_IGMARK); if (mark) { int stat; funcname = lua_pushlstring(L, modname, mark - modname); funcname = lua_pushfstring(L, LUA_POF"%s", funcname); stat = ll_loadfunc(L, filename, funcname); if (stat != ERRFUNC) return stat; modname = mark + 1; /* else go ahead and try old-style name */ } funcname = lua_pushfstring(L, LUA_POF"%s", modname); return ll_loadfunc(L, filename, funcname); } static int searcher_C (lua_State *L) { const char *name = luaL_checkstring(L, 1); const char *filename = findfile(L, name, "cpath", LUA_CSUBSEP); if (filename == NULL) return 1; /* module not found in this path */ return checkload(L, (loadfunc(L, filename, name) == 0), filename); } static int searcher_Croot (lua_State *L) { const char *filename; const char *name = luaL_checkstring(L, 1); const char *p = strchr(name, '.'); int stat; if (p == NULL) return 0; /* is root */ lua_pushlstring(L, name, p - name); filename = findfile(L, lua_tostring(L, -1), "cpath", LUA_CSUBSEP); if (filename == NULL) return 1; /* root not found */ if ((stat = loadfunc(L, filename, name)) != 0) { if (stat != ERRFUNC) return checkload(L, 0, filename); /* real error */ else { /* open function not found */ lua_pushfstring(L, "\n\tno module " LUA_QS " in file " LUA_QS, name, filename); return 1; } } lua_pushstring(L, filename); /* will be 2nd argument to module */ return 2; } static int searcher_preload (lua_State *L) { const char *name = luaL_checkstring(L, 1); lua_getfield(L, LUA_REGISTRYINDEX, "_PRELOAD"); lua_getfield(L, -1, name); if (lua_isnil(L, -1)) /* not found? */ lua_pushfstring(L, "\n\tno field package.preload['%s']", name); return 1; } static void findloader (lua_State *L, const char *name) { int i; luaL_Buffer msg; /* to build error message */ luaL_buffinit(L, &msg); lua_getfield(L, lua_upvalueindex(1), "searchers"); /* will be at index 3 */ if (!lua_istable(L, 3)) luaL_error(L, LUA_QL("package.searchers") " must be a table"); /* iterate over available searchers to find a loader */ for (i = 1; ; i++) { lua_rawgeti(L, 3, i); /* get a searcher */ if (lua_isnil(L, -1)) { /* no more searchers? */ lua_pop(L, 1); /* remove nil */ luaL_pushresult(&msg); /* create error message */ luaL_error(L, "module " LUA_QS " not found:%s", name, lua_tostring(L, -1)); } lua_pushstring(L, name); lua_call(L, 1, 2); /* call it */ if (lua_isfunction(L, -2)) /* did it find a loader? */ return; /* module loader found */ else if (lua_isstring(L, -2)) { /* searcher returned error message? */ lua_pop(L, 1); /* remove extra return */ luaL_addvalue(&msg); /* concatenate error message */ } else lua_pop(L, 2); /* remove both returns */ } } static int ll_require (lua_State *L) { const char *name = luaL_checkstring(L, 1); lua_settop(L, 1); /* _LOADED table will be at index 2 */ lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED"); lua_getfield(L, 2, name); /* _LOADED[name] */ if (lua_toboolean(L, -1)) /* is it there? */ return 1; /* package is already loaded */ /* else must load package */ lua_pop(L, 1); /* remove 'getfield' result */ findloader(L, name); lua_pushstring(L, name); /* pass name as argument to module loader */ lua_insert(L, -2); /* name is 1st argument (before search data) */ lua_call(L, 2, 1); /* run loader to load module */ if (!lua_isnil(L, -1)) /* non-nil return? */ lua_setfield(L, 2, name); /* _LOADED[name] = returned value */ lua_getfield(L, 2, name); if (lua_isnil(L, -1)) { /* module did not set a value? */ lua_pushboolean(L, 1); /* use true as result */ lua_pushvalue(L, -1); /* extra copy to be returned */ lua_setfield(L, 2, name); /* _LOADED[name] = true */ } return 1; } /* }====================================================== */ /* ** {====================================================== ** 'module' function ** ======================================================= */ #if defined(LUA_COMPAT_MODULE) /* ** changes the environment variable of calling function */ static void set_env (lua_State *L) { lua_Debug ar; if (lua_getstack(L, 1, &ar) == 0 || lua_getinfo(L, "f", &ar) == 0 || /* get calling function */ lua_iscfunction(L, -1)) luaL_error(L, LUA_QL("module") " not called from a Lua function"); lua_pushvalue(L, -2); /* copy new environment table to top */ lua_setupvalue(L, -2, 1); lua_pop(L, 1); /* remove function */ } static void dooptions (lua_State *L, int n) { int i; for (i = 2; i <= n; i++) { if (lua_isfunction(L, i)) { /* avoid 'calling' extra info. */ lua_pushvalue(L, i); /* get option (a function) */ lua_pushvalue(L, -2); /* module */ lua_call(L, 1, 0); } } } static void modinit (lua_State *L, const char *modname) { const char *dot; lua_pushvalue(L, -1); lua_setfield(L, -2, "_M"); /* module._M = module */ lua_pushstring(L, modname); lua_setfield(L, -2, "_NAME"); dot = strrchr(modname, '.'); /* look for last dot in module name */ if (dot == NULL) dot = modname; else dot++; /* set _PACKAGE as package name (full module name minus last part) */ lua_pushlstring(L, modname, dot - modname); lua_setfield(L, -2, "_PACKAGE"); } static int ll_module (lua_State *L) { const char *modname = luaL_checkstring(L, 1); int lastarg = lua_gettop(L); /* last parameter */ luaL_pushmodule(L, modname, 1); /* get/create module table */ /* check whether table already has a _NAME field */ lua_getfield(L, -1, "_NAME"); if (!lua_isnil(L, -1)) /* is table an initialized module? */ lua_pop(L, 1); else { /* no; initialize it */ lua_pop(L, 1); modinit(L, modname); } lua_pushvalue(L, -1); set_env(L); dooptions(L, lastarg); return 1; } static int ll_seeall (lua_State *L) { luaL_checktype(L, 1, LUA_TTABLE); if (!lua_getmetatable(L, 1)) { lua_createtable(L, 0, 1); /* create new metatable */ lua_pushvalue(L, -1); lua_setmetatable(L, 1); } lua_pushglobaltable(L); lua_setfield(L, -2, "__index"); /* mt.__index = _G */ return 0; } #endif /* }====================================================== */ /* auxiliary mark (for internal use) */ #define AUXMARK "\1" /* ** return registry.LUA_NOENV as a boolean */ static int noenv (lua_State *L) { int b; lua_getfield(L, LUA_REGISTRYINDEX, "LUA_NOENV"); b = lua_toboolean(L, -1); lua_pop(L, 1); /* remove value */ return b; } static void setpath (lua_State *L, const char *fieldname, const char *envname1, const char *envname2, const char *def) { const char *path = getenv(envname1); if (path == NULL) /* no environment variable? */ path = getenv(envname2); /* try alternative name */ if (path == NULL || noenv(L)) /* no environment variable? */ lua_pushstring(L, def); /* use default */ else { /* replace ";;" by ";AUXMARK;" and then AUXMARK by default path */ path = luaL_gsub(L, path, LUA_PATH_SEP LUA_PATH_SEP, LUA_PATH_SEP AUXMARK LUA_PATH_SEP); luaL_gsub(L, path, AUXMARK, def); lua_remove(L, -2); } setprogdir(L); lua_setfield(L, -2, fieldname); } static const luaL_Reg pk_funcs[] = { {"loadlib", ll_loadlib}, {"searchpath", ll_searchpath}, #if defined(LUA_COMPAT_MODULE) {"seeall", ll_seeall}, #endif {NULL, NULL} }; static const luaL_Reg ll_funcs[] = { #if defined(LUA_COMPAT_MODULE) {"module", ll_module}, #endif {"require", ll_require}, {NULL, NULL} }; static void createsearcherstable (lua_State *L) { static const lua_CFunction searchers[] = {searcher_preload, searcher_Lua, searcher_C, searcher_Croot, NULL}; int i; /* create 'searchers' table */ lua_createtable(L, sizeof(searchers)/sizeof(searchers[0]) - 1, 0); /* fill it with pre-defined searchers */ for (i=0; searchers[i] != NULL; i++) { lua_pushvalue(L, -2); /* set 'package' as upvalue for all searchers */ lua_pushcclosure(L, searchers[i], 1); lua_rawseti(L, -2, i+1); } } LUAMOD_API int luaopen_package (lua_State *L) { /* create table CLIBS to keep track of loaded C libraries */ luaL_getsubtable(L, LUA_REGISTRYINDEX, CLIBS); lua_createtable(L, 0, 1); /* metatable for CLIBS */ lua_pushcfunction(L, gctm); lua_setfield(L, -2, "__gc"); /* set finalizer for CLIBS table */ lua_setmetatable(L, -2); /* create `package' table */ luaL_newlib(L, pk_funcs); createsearcherstable(L); #if defined(LUA_COMPAT_LOADERS) lua_pushvalue(L, -1); /* make a copy of 'searchers' table */ lua_setfield(L, -3, "loaders"); /* put it in field `loaders' */ #endif lua_setfield(L, -2, "searchers"); /* put it in field 'searchers' */ /* set field 'path' */ setpath(L, "path", LUA_PATHVERSION, LUA_PATH, LUA_PATH_DEFAULT); /* set field 'cpath' */ setpath(L, "cpath", LUA_CPATHVERSION, LUA_CPATH, LUA_CPATH_DEFAULT); /* store config information */ lua_pushliteral(L, LUA_DIRSEP "\n" LUA_PATH_SEP "\n" LUA_PATH_MARK "\n" LUA_EXEC_DIR "\n" LUA_IGMARK "\n"); lua_setfield(L, -2, "config"); /* set field `loaded' */ luaL_getsubtable(L, LUA_REGISTRYINDEX, "_LOADED"); lua_setfield(L, -2, "loaded"); /* set field `preload' */ luaL_getsubtable(L, LUA_REGISTRYINDEX, "_PRELOAD"); lua_setfield(L, -2, "preload"); lua_pushglobaltable(L); lua_pushvalue(L, -2); /* set 'package' as upvalue for next lib */ luaL_setfuncs(L, ll_funcs, 1); /* open lib into global table */ lua_pop(L, 1); /* pop global table */ return 1; /* return 'package' table */ } april-ann-0.3.1/lua/lua-5.2.2/src/lobject.c000066400000000000000000000173351234204160600177640ustar00rootroot00000000000000/* ** $Id: lobject.c,v 2.58 2013/02/20 14:08:56 roberto Exp $ ** Some generic functions over Lua objects ** See Copyright Notice in lua.h */ #include #include #include #include #define lobject_c #define LUA_CORE #include "lua.h" #include "lctype.h" #include "ldebug.h" #include "ldo.h" #include "lmem.h" #include "lobject.h" #include "lstate.h" #include "lstring.h" #include "lvm.h" LUAI_DDEF const TValue luaO_nilobject_ = {NILCONSTANT}; /* ** converts an integer to a "floating point byte", represented as ** (eeeeexxx), where the real value is (1xxx) * 2^(eeeee - 1) if ** eeeee != 0 and (xxx) otherwise. */ int luaO_int2fb (unsigned int x) { int e = 0; /* exponent */ if (x < 8) return x; while (x >= 0x10) { x = (x+1) >> 1; e++; } return ((e+1) << 3) | (cast_int(x) - 8); } /* converts back */ int luaO_fb2int (int x) { int e = (x >> 3) & 0x1f; if (e == 0) return x; else return ((x & 7) + 8) << (e - 1); } int luaO_ceillog2 (unsigned int x) { static const lu_byte log_2[256] = { 0,1,2,2,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8, 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8 }; int l = 0; x--; while (x >= 256) { l += 8; x >>= 8; } return l + log_2[x]; } lua_Number luaO_arith (int op, lua_Number v1, lua_Number v2) { switch (op) { case LUA_OPADD: return luai_numadd(NULL, v1, v2); case LUA_OPSUB: return luai_numsub(NULL, v1, v2); case LUA_OPMUL: return luai_nummul(NULL, v1, v2); case LUA_OPDIV: return luai_numdiv(NULL, v1, v2); case LUA_OPMOD: return luai_nummod(NULL, v1, v2); case LUA_OPPOW: return luai_numpow(NULL, v1, v2); case LUA_OPUNM: return luai_numunm(NULL, v1); default: lua_assert(0); return 0; } } int luaO_hexavalue (int c) { if (lisdigit(c)) return c - '0'; else return ltolower(c) - 'a' + 10; } #if !defined(lua_strx2number) #include static int isneg (const char **s) { if (**s == '-') { (*s)++; return 1; } else if (**s == '+') (*s)++; return 0; } static lua_Number readhexa (const char **s, lua_Number r, int *count) { for (; lisxdigit(cast_uchar(**s)); (*s)++) { /* read integer part */ r = (r * cast_num(16.0)) + cast_num(luaO_hexavalue(cast_uchar(**s))); (*count)++; } return r; } /* ** convert an hexadecimal numeric string to a number, following ** C99 specification for 'strtod' */ static lua_Number lua_strx2number (const char *s, char **endptr) { lua_Number r = 0.0; int e = 0, i = 0; int neg = 0; /* 1 if number is negative */ *endptr = cast(char *, s); /* nothing is valid yet */ while (lisspace(cast_uchar(*s))) s++; /* skip initial spaces */ neg = isneg(&s); /* check signal */ if (!(*s == '0' && (*(s + 1) == 'x' || *(s + 1) == 'X'))) /* check '0x' */ return 0.0; /* invalid format (no '0x') */ s += 2; /* skip '0x' */ r = readhexa(&s, r, &i); /* read integer part */ if (*s == '.') { s++; /* skip dot */ r = readhexa(&s, r, &e); /* read fractional part */ } if (i == 0 && e == 0) return 0.0; /* invalid format (no digit) */ e *= -4; /* each fractional digit divides value by 2^-4 */ *endptr = cast(char *, s); /* valid up to here */ if (*s == 'p' || *s == 'P') { /* exponent part? */ int exp1 = 0; int neg1; s++; /* skip 'p' */ neg1 = isneg(&s); /* signal */ if (!lisdigit(cast_uchar(*s))) goto ret; /* must have at least one digit */ while (lisdigit(cast_uchar(*s))) /* read exponent */ exp1 = exp1 * 10 + *(s++) - '0'; if (neg1) exp1 = -exp1; e += exp1; } *endptr = cast(char *, s); /* valid up to here */ ret: if (neg) r = -r; return l_mathop(ldexp)(r, e); } #endif int luaO_str2d (const char *s, size_t len, lua_Number *result) { char *endptr; if (strpbrk(s, "nN")) /* reject 'inf' and 'nan' */ return 0; else if (strpbrk(s, "xX")) /* hexa? */ *result = lua_strx2number(s, &endptr); else *result = lua_str2number(s, &endptr); if (endptr == s) return 0; /* nothing recognized */ while (lisspace(cast_uchar(*endptr))) endptr++; return (endptr == s + len); /* OK if no trailing characters */ } static void pushstr (lua_State *L, const char *str, size_t l) { setsvalue2s(L, L->top++, luaS_newlstr(L, str, l)); } /* this function handles only `%d', `%c', %f, %p, and `%s' formats */ const char *luaO_pushvfstring (lua_State *L, const char *fmt, va_list argp) { int n = 0; for (;;) { const char *e = strchr(fmt, '%'); if (e == NULL) break; luaD_checkstack(L, 2); /* fmt + item */ pushstr(L, fmt, e - fmt); switch (*(e+1)) { case 's': { const char *s = va_arg(argp, char *); if (s == NULL) s = "(null)"; pushstr(L, s, strlen(s)); break; } case 'c': { char buff; buff = cast(char, va_arg(argp, int)); pushstr(L, &buff, 1); break; } case 'd': { setnvalue(L->top++, cast_num(va_arg(argp, int))); break; } case 'f': { setnvalue(L->top++, cast_num(va_arg(argp, l_uacNumber))); break; } case 'p': { char buff[4*sizeof(void *) + 8]; /* should be enough space for a `%p' */ int l = sprintf(buff, "%p", va_arg(argp, void *)); pushstr(L, buff, l); break; } case '%': { pushstr(L, "%", 1); break; } default: { luaG_runerror(L, "invalid option " LUA_QL("%%%c") " to " LUA_QL("lua_pushfstring"), *(e + 1)); } } n += 2; fmt = e+2; } luaD_checkstack(L, 1); pushstr(L, fmt, strlen(fmt)); if (n > 0) luaV_concat(L, n + 1); return svalue(L->top - 1); } const char *luaO_pushfstring (lua_State *L, const char *fmt, ...) { const char *msg; va_list argp; va_start(argp, fmt); msg = luaO_pushvfstring(L, fmt, argp); va_end(argp); return msg; } /* number of chars of a literal string without the ending \0 */ #define LL(x) (sizeof(x)/sizeof(char) - 1) #define RETS "..." #define PRE "[string \"" #define POS "\"]" #define addstr(a,b,l) ( memcpy(a,b,(l) * sizeof(char)), a += (l) ) void luaO_chunkid (char *out, const char *source, size_t bufflen) { size_t l = strlen(source); if (*source == '=') { /* 'literal' source */ if (l <= bufflen) /* small enough? */ memcpy(out, source + 1, l * sizeof(char)); else { /* truncate it */ addstr(out, source + 1, bufflen - 1); *out = '\0'; } } else if (*source == '@') { /* file name */ if (l <= bufflen) /* small enough? */ memcpy(out, source + 1, l * sizeof(char)); else { /* add '...' before rest of name */ addstr(out, RETS, LL(RETS)); bufflen -= LL(RETS); memcpy(out, source + 1 + l - bufflen, bufflen * sizeof(char)); } } else { /* string; format as [string "source"] */ const char *nl = strchr(source, '\n'); /* find first new line (if any) */ addstr(out, PRE, LL(PRE)); /* add prefix */ bufflen -= LL(PRE RETS POS) + 1; /* save space for prefix+suffix+'\0' */ if (l < bufflen && nl == NULL) { /* small one-line source? */ addstr(out, source, l); /* keep it */ } else { if (nl != NULL) l = nl - source; /* stop at first newline */ if (l > bufflen) l = bufflen; addstr(out, source, l); addstr(out, RETS, LL(RETS)); } memcpy(out, POS, (LL(POS) + 1) * sizeof(char)); } } april-ann-0.3.1/lua/lua-5.2.2/src/lobject.h000066400000000000000000000351351234204160600177670ustar00rootroot00000000000000/* ** $Id: lobject.h,v 2.71 2012/09/11 18:21:44 roberto Exp $ ** Type definitions for Lua objects ** See Copyright Notice in lua.h */ #ifndef lobject_h #define lobject_h #include #include "llimits.h" #include "lua.h" /* ** Extra tags for non-values */ #define LUA_TPROTO LUA_NUMTAGS #define LUA_TUPVAL (LUA_NUMTAGS+1) #define LUA_TDEADKEY (LUA_NUMTAGS+2) /* ** number of all possible tags (including LUA_TNONE but excluding DEADKEY) */ #define LUA_TOTALTAGS (LUA_TUPVAL+2) /* ** tags for Tagged Values have the following use of bits: ** bits 0-3: actual tag (a LUA_T* value) ** bits 4-5: variant bits ** bit 6: whether value is collectable */ #define VARBITS (3 << 4) /* ** LUA_TFUNCTION variants: ** 0 - Lua function ** 1 - light C function ** 2 - regular C function (closure) */ /* Variant tags for functions */ #define LUA_TLCL (LUA_TFUNCTION | (0 << 4)) /* Lua closure */ #define LUA_TLCF (LUA_TFUNCTION | (1 << 4)) /* light C function */ #define LUA_TCCL (LUA_TFUNCTION | (2 << 4)) /* C closure */ /* Variant tags for strings */ #define LUA_TSHRSTR (LUA_TSTRING | (0 << 4)) /* short strings */ #define LUA_TLNGSTR (LUA_TSTRING | (1 << 4)) /* long strings */ /* Bit mark for collectable types */ #define BIT_ISCOLLECTABLE (1 << 6) /* mark a tag as collectable */ #define ctb(t) ((t) | BIT_ISCOLLECTABLE) /* ** Union of all collectable objects */ typedef union GCObject GCObject; /* ** Common Header for all collectable objects (in macro form, to be ** included in other objects) */ #define CommonHeader GCObject *next; lu_byte tt; lu_byte marked /* ** Common header in struct form */ typedef struct GCheader { CommonHeader; } GCheader; /* ** Union of all Lua values */ typedef union Value Value; #define numfield lua_Number n; /* numbers */ /* ** Tagged Values. This is the basic representation of values in Lua, ** an actual value plus a tag with its type. */ #define TValuefields Value value_; int tt_ typedef struct lua_TValue TValue; /* macro defining a nil value */ #define NILCONSTANT {NULL}, LUA_TNIL #define val_(o) ((o)->value_) #define num_(o) (val_(o).n) /* raw type tag of a TValue */ #define rttype(o) ((o)->tt_) /* tag with no variants (bits 0-3) */ #define novariant(x) ((x) & 0x0F) /* type tag of a TValue (bits 0-3 for tags + variant bits 4-5) */ #define ttype(o) (rttype(o) & 0x3F) /* type tag of a TValue with no variants (bits 0-3) */ #define ttypenv(o) (novariant(rttype(o))) /* Macros to test type */ #define checktag(o,t) (rttype(o) == (t)) #define checktype(o,t) (ttypenv(o) == (t)) #define ttisnumber(o) checktag((o), LUA_TNUMBER) #define ttisnil(o) checktag((o), LUA_TNIL) #define ttisboolean(o) checktag((o), LUA_TBOOLEAN) #define ttislightuserdata(o) checktag((o), LUA_TLIGHTUSERDATA) #define ttisstring(o) checktype((o), LUA_TSTRING) #define ttisshrstring(o) checktag((o), ctb(LUA_TSHRSTR)) #define ttislngstring(o) checktag((o), ctb(LUA_TLNGSTR)) #define ttistable(o) checktag((o), ctb(LUA_TTABLE)) #define ttisfunction(o) checktype(o, LUA_TFUNCTION) #define ttisclosure(o) ((rttype(o) & 0x1F) == LUA_TFUNCTION) #define ttisCclosure(o) checktag((o), ctb(LUA_TCCL)) #define ttisLclosure(o) checktag((o), ctb(LUA_TLCL)) #define ttislcf(o) checktag((o), LUA_TLCF) #define ttisuserdata(o) checktag((o), ctb(LUA_TUSERDATA)) #define ttisthread(o) checktag((o), ctb(LUA_TTHREAD)) #define ttisdeadkey(o) checktag((o), LUA_TDEADKEY) #define ttisequal(o1,o2) (rttype(o1) == rttype(o2)) /* Macros to access values */ #define nvalue(o) check_exp(ttisnumber(o), num_(o)) #define gcvalue(o) check_exp(iscollectable(o), val_(o).gc) #define pvalue(o) check_exp(ttislightuserdata(o), val_(o).p) #define rawtsvalue(o) check_exp(ttisstring(o), &val_(o).gc->ts) #define tsvalue(o) (&rawtsvalue(o)->tsv) #define rawuvalue(o) check_exp(ttisuserdata(o), &val_(o).gc->u) #define uvalue(o) (&rawuvalue(o)->uv) #define clvalue(o) check_exp(ttisclosure(o), &val_(o).gc->cl) #define clLvalue(o) check_exp(ttisLclosure(o), &val_(o).gc->cl.l) #define clCvalue(o) check_exp(ttisCclosure(o), &val_(o).gc->cl.c) #define fvalue(o) check_exp(ttislcf(o), val_(o).f) #define hvalue(o) check_exp(ttistable(o), &val_(o).gc->h) #define bvalue(o) check_exp(ttisboolean(o), val_(o).b) #define thvalue(o) check_exp(ttisthread(o), &val_(o).gc->th) /* a dead value may get the 'gc' field, but cannot access its contents */ #define deadvalue(o) check_exp(ttisdeadkey(o), cast(void *, val_(o).gc)) #define l_isfalse(o) (ttisnil(o) || (ttisboolean(o) && bvalue(o) == 0)) #define iscollectable(o) (rttype(o) & BIT_ISCOLLECTABLE) /* Macros for internal tests */ #define righttt(obj) (ttype(obj) == gcvalue(obj)->gch.tt) #define checkliveness(g,obj) \ lua_longassert(!iscollectable(obj) || \ (righttt(obj) && !isdead(g,gcvalue(obj)))) /* Macros to set values */ #define settt_(o,t) ((o)->tt_=(t)) #define setnvalue(obj,x) \ { TValue *io=(obj); num_(io)=(x); settt_(io, LUA_TNUMBER); } #define setnilvalue(obj) settt_(obj, LUA_TNIL) #define setfvalue(obj,x) \ { TValue *io=(obj); val_(io).f=(x); settt_(io, LUA_TLCF); } #define setpvalue(obj,x) \ { TValue *io=(obj); val_(io).p=(x); settt_(io, LUA_TLIGHTUSERDATA); } #define setbvalue(obj,x) \ { TValue *io=(obj); val_(io).b=(x); settt_(io, LUA_TBOOLEAN); } #define setgcovalue(L,obj,x) \ { TValue *io=(obj); GCObject *i_g=(x); \ val_(io).gc=i_g; settt_(io, ctb(gch(i_g)->tt)); } #define setsvalue(L,obj,x) \ { TValue *io=(obj); \ TString *x_ = (x); \ val_(io).gc=cast(GCObject *, x_); settt_(io, ctb(x_->tsv.tt)); \ checkliveness(G(L),io); } #define setuvalue(L,obj,x) \ { TValue *io=(obj); \ val_(io).gc=cast(GCObject *, (x)); settt_(io, ctb(LUA_TUSERDATA)); \ checkliveness(G(L),io); } #define setthvalue(L,obj,x) \ { TValue *io=(obj); \ val_(io).gc=cast(GCObject *, (x)); settt_(io, ctb(LUA_TTHREAD)); \ checkliveness(G(L),io); } #define setclLvalue(L,obj,x) \ { TValue *io=(obj); \ val_(io).gc=cast(GCObject *, (x)); settt_(io, ctb(LUA_TLCL)); \ checkliveness(G(L),io); } #define setclCvalue(L,obj,x) \ { TValue *io=(obj); \ val_(io).gc=cast(GCObject *, (x)); settt_(io, ctb(LUA_TCCL)); \ checkliveness(G(L),io); } #define sethvalue(L,obj,x) \ { TValue *io=(obj); \ val_(io).gc=cast(GCObject *, (x)); settt_(io, ctb(LUA_TTABLE)); \ checkliveness(G(L),io); } #define setdeadvalue(obj) settt_(obj, LUA_TDEADKEY) #define setobj(L,obj1,obj2) \ { const TValue *io2=(obj2); TValue *io1=(obj1); \ io1->value_ = io2->value_; io1->tt_ = io2->tt_; \ checkliveness(G(L),io1); } /* ** different types of assignments, according to destination */ /* from stack to (same) stack */ #define setobjs2s setobj /* to stack (not from same stack) */ #define setobj2s setobj #define setsvalue2s setsvalue #define sethvalue2s sethvalue #define setptvalue2s setptvalue /* from table to same table */ #define setobjt2t setobj /* to table */ #define setobj2t setobj /* to new object */ #define setobj2n setobj #define setsvalue2n setsvalue /* check whether a number is valid (useful only for NaN trick) */ #define luai_checknum(L,o,c) { /* empty */ } /* ** {====================================================== ** NaN Trick ** ======================================================= */ #if defined(LUA_NANTRICK) /* ** numbers are represented in the 'd_' field. All other values have the ** value (NNMARK | tag) in 'tt__'. A number with such pattern would be ** a "signaled NaN", which is never generated by regular operations by ** the CPU (nor by 'strtod') */ /* allows for external implementation for part of the trick */ #if !defined(NNMARK) /* { */ #if !defined(LUA_IEEEENDIAN) #error option 'LUA_NANTRICK' needs 'LUA_IEEEENDIAN' #endif #define NNMARK 0x7FF7A500 #define NNMASK 0x7FFFFF00 #undef TValuefields #undef NILCONSTANT #if (LUA_IEEEENDIAN == 0) /* { */ /* little endian */ #define TValuefields \ union { struct { Value v__; int tt__; } i; double d__; } u #define NILCONSTANT {{{NULL}, tag2tt(LUA_TNIL)}} /* field-access macros */ #define v_(o) ((o)->u.i.v__) #define d_(o) ((o)->u.d__) #define tt_(o) ((o)->u.i.tt__) #else /* }{ */ /* big endian */ #define TValuefields \ union { struct { int tt__; Value v__; } i; double d__; } u #define NILCONSTANT {{tag2tt(LUA_TNIL), {NULL}}} /* field-access macros */ #define v_(o) ((o)->u.i.v__) #define d_(o) ((o)->u.d__) #define tt_(o) ((o)->u.i.tt__) #endif /* } */ #endif /* } */ /* correspondence with standard representation */ #undef val_ #define val_(o) v_(o) #undef num_ #define num_(o) d_(o) #undef numfield #define numfield /* no such field; numbers are the entire struct */ /* basic check to distinguish numbers from non-numbers */ #undef ttisnumber #define ttisnumber(o) ((tt_(o) & NNMASK) != NNMARK) #define tag2tt(t) (NNMARK | (t)) #undef rttype #define rttype(o) (ttisnumber(o) ? LUA_TNUMBER : tt_(o) & 0xff) #undef settt_ #define settt_(o,t) (tt_(o) = tag2tt(t)) #undef setnvalue #define setnvalue(obj,x) \ { TValue *io_=(obj); num_(io_)=(x); lua_assert(ttisnumber(io_)); } #undef setobj #define setobj(L,obj1,obj2) \ { const TValue *o2_=(obj2); TValue *o1_=(obj1); \ o1_->u = o2_->u; \ checkliveness(G(L),o1_); } /* ** these redefinitions are not mandatory, but these forms are more efficient */ #undef checktag #undef checktype #define checktag(o,t) (tt_(o) == tag2tt(t)) #define checktype(o,t) (ctb(tt_(o) | VARBITS) == ctb(tag2tt(t) | VARBITS)) #undef ttisequal #define ttisequal(o1,o2) \ (ttisnumber(o1) ? ttisnumber(o2) : (tt_(o1) == tt_(o2))) #undef luai_checknum #define luai_checknum(L,o,c) { if (!ttisnumber(o)) c; } #endif /* }====================================================== */ /* ** {====================================================== ** types and prototypes ** ======================================================= */ union Value { GCObject *gc; /* collectable objects */ void *p; /* light userdata */ int b; /* booleans */ lua_CFunction f; /* light C functions */ numfield /* numbers */ }; struct lua_TValue { TValuefields; }; typedef TValue *StkId; /* index to stack elements */ /* ** Header for string value; string bytes follow the end of this structure */ typedef union TString { L_Umaxalign dummy; /* ensures maximum alignment for strings */ struct { CommonHeader; lu_byte extra; /* reserved words for short strings; "has hash" for longs */ unsigned int hash; size_t len; /* number of characters in string */ } tsv; } TString; /* get the actual string (array of bytes) from a TString */ #define getstr(ts) cast(const char *, (ts) + 1) /* get the actual string (array of bytes) from a Lua value */ #define svalue(o) getstr(rawtsvalue(o)) /* ** Header for userdata; memory area follows the end of this structure */ typedef union Udata { L_Umaxalign dummy; /* ensures maximum alignment for `local' udata */ struct { CommonHeader; struct Table *metatable; struct Table *env; size_t len; /* number of bytes */ } uv; } Udata; /* ** Description of an upvalue for function prototypes */ typedef struct Upvaldesc { TString *name; /* upvalue name (for debug information) */ lu_byte instack; /* whether it is in stack */ lu_byte idx; /* index of upvalue (in stack or in outer function's list) */ } Upvaldesc; /* ** Description of a local variable for function prototypes ** (used for debug information) */ typedef struct LocVar { TString *varname; int startpc; /* first point where variable is active */ int endpc; /* first point where variable is dead */ } LocVar; /* ** Function Prototypes */ typedef struct Proto { CommonHeader; TValue *k; /* constants used by the function */ Instruction *code; struct Proto **p; /* functions defined inside the function */ int *lineinfo; /* map from opcodes to source lines (debug information) */ LocVar *locvars; /* information about local variables (debug information) */ Upvaldesc *upvalues; /* upvalue information */ union Closure *cache; /* last created closure with this prototype */ TString *source; /* used for debug information */ int sizeupvalues; /* size of 'upvalues' */ int sizek; /* size of `k' */ int sizecode; int sizelineinfo; int sizep; /* size of `p' */ int sizelocvars; int linedefined; int lastlinedefined; GCObject *gclist; lu_byte numparams; /* number of fixed parameters */ lu_byte is_vararg; lu_byte maxstacksize; /* maximum stack used by this function */ } Proto; /* ** Lua Upvalues */ typedef struct UpVal { CommonHeader; TValue *v; /* points to stack or to its own value */ union { TValue value; /* the value (when closed) */ struct { /* double linked list (when open) */ struct UpVal *prev; struct UpVal *next; } l; } u; } UpVal; /* ** Closures */ #define ClosureHeader \ CommonHeader; lu_byte nupvalues; GCObject *gclist typedef struct CClosure { ClosureHeader; lua_CFunction f; TValue upvalue[1]; /* list of upvalues */ } CClosure; typedef struct LClosure { ClosureHeader; struct Proto *p; UpVal *upvals[1]; /* list of upvalues */ } LClosure; typedef union Closure { CClosure c; LClosure l; } Closure; #define isLfunction(o) ttisLclosure(o) #define getproto(o) (clLvalue(o)->p) /* ** Tables */ typedef union TKey { struct { TValuefields; struct Node *next; /* for chaining */ } nk; TValue tvk; } TKey; typedef struct Node { TValue i_val; TKey i_key; } Node; typedef struct Table { CommonHeader; lu_byte flags; /* 1<

lsizenode)) /* ** (address of) a fixed nil value */ #define luaO_nilobject (&luaO_nilobject_) LUAI_DDEC const TValue luaO_nilobject_; LUAI_FUNC int luaO_int2fb (unsigned int x); LUAI_FUNC int luaO_fb2int (int x); LUAI_FUNC int luaO_ceillog2 (unsigned int x); LUAI_FUNC lua_Number luaO_arith (int op, lua_Number v1, lua_Number v2); LUAI_FUNC int luaO_str2d (const char *s, size_t len, lua_Number *result); LUAI_FUNC int luaO_hexavalue (int c); LUAI_FUNC const char *luaO_pushvfstring (lua_State *L, const char *fmt, va_list argp); LUAI_FUNC const char *luaO_pushfstring (lua_State *L, const char *fmt, ...); LUAI_FUNC void luaO_chunkid (char *out, const char *source, size_t len); #endif april-ann-0.3.1/lua/lua-5.2.2/src/lopcodes.c000066400000000000000000000060001234204160600201350ustar00rootroot00000000000000/* ** $Id: lopcodes.c,v 1.49 2012/05/14 13:34:18 roberto Exp $ ** Opcodes for Lua virtual machine ** See Copyright Notice in lua.h */ #define lopcodes_c #define LUA_CORE #include "lopcodes.h" /* ORDER OP */ LUAI_DDEF const char *const luaP_opnames[NUM_OPCODES+1] = { "MOVE", "LOADK", "LOADKX", "LOADBOOL", "LOADNIL", "GETUPVAL", "GETTABUP", "GETTABLE", "SETTABUP", "SETUPVAL", "SETTABLE", "NEWTABLE", "SELF", "ADD", "SUB", "MUL", "DIV", "MOD", "POW", "UNM", "NOT", "LEN", "CONCAT", "JMP", "EQ", "LT", "LE", "TEST", "TESTSET", "CALL", "TAILCALL", "RETURN", "FORLOOP", "FORPREP", "TFORCALL", "TFORLOOP", "SETLIST", "CLOSURE", "VARARG", "EXTRAARG", NULL }; #define opmode(t,a,b,c,m) (((t)<<7) | ((a)<<6) | ((b)<<4) | ((c)<<2) | (m)) LUAI_DDEF const lu_byte luaP_opmodes[NUM_OPCODES] = { /* T A B C mode opcode */ opmode(0, 1, OpArgR, OpArgN, iABC) /* OP_MOVE */ ,opmode(0, 1, OpArgK, OpArgN, iABx) /* OP_LOADK */ ,opmode(0, 1, OpArgN, OpArgN, iABx) /* OP_LOADKX */ ,opmode(0, 1, OpArgU, OpArgU, iABC) /* OP_LOADBOOL */ ,opmode(0, 1, OpArgU, OpArgN, iABC) /* OP_LOADNIL */ ,opmode(0, 1, OpArgU, OpArgN, iABC) /* OP_GETUPVAL */ ,opmode(0, 1, OpArgU, OpArgK, iABC) /* OP_GETTABUP */ ,opmode(0, 1, OpArgR, OpArgK, iABC) /* OP_GETTABLE */ ,opmode(0, 0, OpArgK, OpArgK, iABC) /* OP_SETTABUP */ ,opmode(0, 0, OpArgU, OpArgN, iABC) /* OP_SETUPVAL */ ,opmode(0, 0, OpArgK, OpArgK, iABC) /* OP_SETTABLE */ ,opmode(0, 1, OpArgU, OpArgU, iABC) /* OP_NEWTABLE */ ,opmode(0, 1, OpArgR, OpArgK, iABC) /* OP_SELF */ ,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_ADD */ ,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_SUB */ ,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_MUL */ ,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_DIV */ ,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_MOD */ ,opmode(0, 1, OpArgK, OpArgK, iABC) /* OP_POW */ ,opmode(0, 1, OpArgR, OpArgN, iABC) /* OP_UNM */ ,opmode(0, 1, OpArgR, OpArgN, iABC) /* OP_NOT */ ,opmode(0, 1, OpArgR, OpArgN, iABC) /* OP_LEN */ ,opmode(0, 1, OpArgR, OpArgR, iABC) /* OP_CONCAT */ ,opmode(0, 0, OpArgR, OpArgN, iAsBx) /* OP_JMP */ ,opmode(1, 0, OpArgK, OpArgK, iABC) /* OP_EQ */ ,opmode(1, 0, OpArgK, OpArgK, iABC) /* OP_LT */ ,opmode(1, 0, OpArgK, OpArgK, iABC) /* OP_LE */ ,opmode(1, 0, OpArgN, OpArgU, iABC) /* OP_TEST */ ,opmode(1, 1, OpArgR, OpArgU, iABC) /* OP_TESTSET */ ,opmode(0, 1, OpArgU, OpArgU, iABC) /* OP_CALL */ ,opmode(0, 1, OpArgU, OpArgU, iABC) /* OP_TAILCALL */ ,opmode(0, 0, OpArgU, OpArgN, iABC) /* OP_RETURN */ ,opmode(0, 1, OpArgR, OpArgN, iAsBx) /* OP_FORLOOP */ ,opmode(0, 1, OpArgR, OpArgN, iAsBx) /* OP_FORPREP */ ,opmode(0, 0, OpArgN, OpArgU, iABC) /* OP_TFORCALL */ ,opmode(0, 1, OpArgR, OpArgN, iAsBx) /* OP_TFORLOOP */ ,opmode(0, 0, OpArgU, OpArgU, iABC) /* OP_SETLIST */ ,opmode(0, 1, OpArgU, OpArgN, iABx) /* OP_CLOSURE */ ,opmode(0, 1, OpArgU, OpArgN, iABC) /* OP_VARARG */ ,opmode(0, 0, OpArgU, OpArgU, iAx) /* OP_EXTRAARG */ }; april-ann-0.3.1/lua/lua-5.2.2/src/lopcodes.h000066400000000000000000000204421234204160600201500ustar00rootroot00000000000000/* ** $Id: lopcodes.h,v 1.142 2011/07/15 12:50:29 roberto Exp $ ** Opcodes for Lua virtual machine ** See Copyright Notice in lua.h */ #ifndef lopcodes_h #define lopcodes_h #include "llimits.h" /*=========================================================================== We assume that instructions are unsigned numbers. All instructions have an opcode in the first 6 bits. Instructions can have the following fields: `A' : 8 bits `B' : 9 bits `C' : 9 bits 'Ax' : 26 bits ('A', 'B', and 'C' together) `Bx' : 18 bits (`B' and `C' together) `sBx' : signed Bx A signed argument is represented in excess K; that is, the number value is the unsigned value minus K. K is exactly the maximum value for that argument (so that -max is represented by 0, and +max is represented by 2*max), which is half the maximum for the corresponding unsigned argument. ===========================================================================*/ enum OpMode {iABC, iABx, iAsBx, iAx}; /* basic instruction format */ /* ** size and position of opcode arguments. */ #define SIZE_C 9 #define SIZE_B 9 #define SIZE_Bx (SIZE_C + SIZE_B) #define SIZE_A 8 #define SIZE_Ax (SIZE_C + SIZE_B + SIZE_A) #define SIZE_OP 6 #define POS_OP 0 #define POS_A (POS_OP + SIZE_OP) #define POS_C (POS_A + SIZE_A) #define POS_B (POS_C + SIZE_C) #define POS_Bx POS_C #define POS_Ax POS_A /* ** limits for opcode arguments. ** we use (signed) int to manipulate most arguments, ** so they must fit in LUAI_BITSINT-1 bits (-1 for sign) */ #if SIZE_Bx < LUAI_BITSINT-1 #define MAXARG_Bx ((1<>1) /* `sBx' is signed */ #else #define MAXARG_Bx MAX_INT #define MAXARG_sBx MAX_INT #endif #if SIZE_Ax < LUAI_BITSINT-1 #define MAXARG_Ax ((1<>POS_OP) & MASK1(SIZE_OP,0))) #define SET_OPCODE(i,o) ((i) = (((i)&MASK0(SIZE_OP,POS_OP)) | \ ((cast(Instruction, o)<>pos) & MASK1(size,0))) #define setarg(i,v,pos,size) ((i) = (((i)&MASK0(size,pos)) | \ ((cast(Instruction, v)<= R(A) + 1 */ OP_EQ,/* A B C if ((RK(B) == RK(C)) ~= A) then pc++ */ OP_LT,/* A B C if ((RK(B) < RK(C)) ~= A) then pc++ */ OP_LE,/* A B C if ((RK(B) <= RK(C)) ~= A) then pc++ */ OP_TEST,/* A C if not (R(A) <=> C) then pc++ */ OP_TESTSET,/* A B C if (R(B) <=> C) then R(A) := R(B) else pc++ */ OP_CALL,/* A B C R(A), ... ,R(A+C-2) := R(A)(R(A+1), ... ,R(A+B-1)) */ OP_TAILCALL,/* A B C return R(A)(R(A+1), ... ,R(A+B-1)) */ OP_RETURN,/* A B return R(A), ... ,R(A+B-2) (see note) */ OP_FORLOOP,/* A sBx R(A)+=R(A+2); if R(A) > 4) & 3)) #define getCMode(m) (cast(enum OpArgMask, (luaP_opmodes[m] >> 2) & 3)) #define testAMode(m) (luaP_opmodes[m] & (1 << 6)) #define testTMode(m) (luaP_opmodes[m] & (1 << 7)) LUAI_DDEC const char *const luaP_opnames[NUM_OPCODES+1]; /* opcode names */ /* number of list items to accumulate before a SETLIST instruction */ #define LFIELDS_PER_FLUSH 50 #endif april-ann-0.3.1/lua/lua-5.2.2/src/loslib.c000066400000000000000000000175671234204160600176350ustar00rootroot00000000000000/* ** $Id: loslib.c,v 1.40 2012/10/19 15:54:02 roberto Exp $ ** Standard Operating System library ** See Copyright Notice in lua.h */ #include #include #include #include #include #define loslib_c #define LUA_LIB #include "lua.h" #include "lauxlib.h" #include "lualib.h" /* ** list of valid conversion specifiers for the 'strftime' function */ #if !defined(LUA_STRFTIMEOPTIONS) #if !defined(LUA_USE_POSIX) #define LUA_STRFTIMEOPTIONS { "aAbBcdHIjmMpSUwWxXyYz%", "" } #else #define LUA_STRFTIMEOPTIONS \ { "aAbBcCdDeFgGhHIjmMnprRStTuUVwWxXyYzZ%", "" \ "", "E", "cCxXyY", \ "O", "deHImMSuUVwWy" } #endif #endif /* ** By default, Lua uses tmpnam except when POSIX is available, where it ** uses mkstemp. */ #if defined(LUA_USE_MKSTEMP) #include #define LUA_TMPNAMBUFSIZE 32 #define lua_tmpnam(b,e) { \ strcpy(b, "/tmp/lua_XXXXXX"); \ e = mkstemp(b); \ if (e != -1) close(e); \ e = (e == -1); } #elif !defined(lua_tmpnam) #define LUA_TMPNAMBUFSIZE L_tmpnam #define lua_tmpnam(b,e) { e = (tmpnam(b) == NULL); } #endif /* ** By default, Lua uses gmtime/localtime, except when POSIX is available, ** where it uses gmtime_r/localtime_r */ #if defined(LUA_USE_GMTIME_R) #define l_gmtime(t,r) gmtime_r(t,r) #define l_localtime(t,r) localtime_r(t,r) #elif !defined(l_gmtime) #define l_gmtime(t,r) ((void)r, gmtime(t)) #define l_localtime(t,r) ((void)r, localtime(t)) #endif static int os_execute (lua_State *L) { const char *cmd = luaL_optstring(L, 1, NULL); int stat = system(cmd); if (cmd != NULL) return luaL_execresult(L, stat); else { lua_pushboolean(L, stat); /* true if there is a shell */ return 1; } } static int os_remove (lua_State *L) { const char *filename = luaL_checkstring(L, 1); return luaL_fileresult(L, remove(filename) == 0, filename); } static int os_rename (lua_State *L) { const char *fromname = luaL_checkstring(L, 1); const char *toname = luaL_checkstring(L, 2); return luaL_fileresult(L, rename(fromname, toname) == 0, NULL); } static int os_tmpname (lua_State *L) { char buff[LUA_TMPNAMBUFSIZE]; int err; lua_tmpnam(buff, err); if (err) return luaL_error(L, "unable to generate a unique filename"); lua_pushstring(L, buff); return 1; } static int os_getenv (lua_State *L) { lua_pushstring(L, getenv(luaL_checkstring(L, 1))); /* if NULL push nil */ return 1; } static int os_clock (lua_State *L) { lua_pushnumber(L, ((lua_Number)clock())/(lua_Number)CLOCKS_PER_SEC); return 1; } /* ** {====================================================== ** Time/Date operations ** { year=%Y, month=%m, day=%d, hour=%H, min=%M, sec=%S, ** wday=%w+1, yday=%j, isdst=? } ** ======================================================= */ static void setfield (lua_State *L, const char *key, int value) { lua_pushinteger(L, value); lua_setfield(L, -2, key); } static void setboolfield (lua_State *L, const char *key, int value) { if (value < 0) /* undefined? */ return; /* does not set field */ lua_pushboolean(L, value); lua_setfield(L, -2, key); } static int getboolfield (lua_State *L, const char *key) { int res; lua_getfield(L, -1, key); res = lua_isnil(L, -1) ? -1 : lua_toboolean(L, -1); lua_pop(L, 1); return res; } static int getfield (lua_State *L, const char *key, int d) { int res, isnum; lua_getfield(L, -1, key); res = (int)lua_tointegerx(L, -1, &isnum); if (!isnum) { if (d < 0) return luaL_error(L, "field " LUA_QS " missing in date table", key); res = d; } lua_pop(L, 1); return res; } static const char *checkoption (lua_State *L, const char *conv, char *buff) { static const char *const options[] = LUA_STRFTIMEOPTIONS; unsigned int i; for (i = 0; i < sizeof(options)/sizeof(options[0]); i += 2) { if (*conv != '\0' && strchr(options[i], *conv) != NULL) { buff[1] = *conv; if (*options[i + 1] == '\0') { /* one-char conversion specifier? */ buff[2] = '\0'; /* end buffer */ return conv + 1; } else if (*(conv + 1) != '\0' && strchr(options[i + 1], *(conv + 1)) != NULL) { buff[2] = *(conv + 1); /* valid two-char conversion specifier */ buff[3] = '\0'; /* end buffer */ return conv + 2; } } } luaL_argerror(L, 1, lua_pushfstring(L, "invalid conversion specifier '%%%s'", conv)); return conv; /* to avoid warnings */ } static int os_date (lua_State *L) { const char *s = luaL_optstring(L, 1, "%c"); time_t t = luaL_opt(L, (time_t)luaL_checknumber, 2, time(NULL)); struct tm tmr, *stm; if (*s == '!') { /* UTC? */ stm = l_gmtime(&t, &tmr); s++; /* skip `!' */ } else stm = l_localtime(&t, &tmr); if (stm == NULL) /* invalid date? */ lua_pushnil(L); else if (strcmp(s, "*t") == 0) { lua_createtable(L, 0, 9); /* 9 = number of fields */ setfield(L, "sec", stm->tm_sec); setfield(L, "min", stm->tm_min); setfield(L, "hour", stm->tm_hour); setfield(L, "day", stm->tm_mday); setfield(L, "month", stm->tm_mon+1); setfield(L, "year", stm->tm_year+1900); setfield(L, "wday", stm->tm_wday+1); setfield(L, "yday", stm->tm_yday+1); setboolfield(L, "isdst", stm->tm_isdst); } else { char cc[4]; luaL_Buffer b; cc[0] = '%'; luaL_buffinit(L, &b); while (*s) { if (*s != '%') /* no conversion specifier? */ luaL_addchar(&b, *s++); else { size_t reslen; char buff[200]; /* should be big enough for any conversion result */ s = checkoption(L, s + 1, cc); reslen = strftime(buff, sizeof(buff), cc, stm); luaL_addlstring(&b, buff, reslen); } } luaL_pushresult(&b); } return 1; } static int os_time (lua_State *L) { time_t t; if (lua_isnoneornil(L, 1)) /* called without args? */ t = time(NULL); /* get current time */ else { struct tm ts; luaL_checktype(L, 1, LUA_TTABLE); lua_settop(L, 1); /* make sure table is at the top */ ts.tm_sec = getfield(L, "sec", 0); ts.tm_min = getfield(L, "min", 0); ts.tm_hour = getfield(L, "hour", 12); ts.tm_mday = getfield(L, "day", -1); ts.tm_mon = getfield(L, "month", -1) - 1; ts.tm_year = getfield(L, "year", -1) - 1900; ts.tm_isdst = getboolfield(L, "isdst"); t = mktime(&ts); } if (t == (time_t)(-1)) lua_pushnil(L); else lua_pushnumber(L, (lua_Number)t); return 1; } static int os_difftime (lua_State *L) { lua_pushnumber(L, difftime((time_t)(luaL_checknumber(L, 1)), (time_t)(luaL_optnumber(L, 2, 0)))); return 1; } /* }====================================================== */ static int os_setlocale (lua_State *L) { static const int cat[] = {LC_ALL, LC_COLLATE, LC_CTYPE, LC_MONETARY, LC_NUMERIC, LC_TIME}; static const char *const catnames[] = {"all", "collate", "ctype", "monetary", "numeric", "time", NULL}; const char *l = luaL_optstring(L, 1, NULL); int op = luaL_checkoption(L, 2, "all", catnames); lua_pushstring(L, setlocale(cat[op], l)); return 1; } static int os_exit (lua_State *L) { int status; if (lua_isboolean(L, 1)) status = (lua_toboolean(L, 1) ? EXIT_SUCCESS : EXIT_FAILURE); else status = luaL_optint(L, 1, EXIT_SUCCESS); if (lua_toboolean(L, 2)) lua_close(L); if (L) exit(status); /* 'if' to avoid warnings for unreachable 'return' */ return 0; } static const luaL_Reg syslib[] = { {"clock", os_clock}, {"date", os_date}, {"difftime", os_difftime}, {"execute", os_execute}, {"exit", os_exit}, {"getenv", os_getenv}, {"remove", os_remove}, {"rename", os_rename}, {"setlocale", os_setlocale}, {"time", os_time}, {"tmpname", os_tmpname}, {NULL, NULL} }; /* }====================================================== */ LUAMOD_API int luaopen_os (lua_State *L) { luaL_newlib(L, syslib); return 1; } april-ann-0.3.1/lua/lua-5.2.2/src/lparser.c000066400000000000000000001316211234204160600200050ustar00rootroot00000000000000/* ** $Id: lparser.c,v 2.130 2013/02/06 13:37:39 roberto Exp $ ** Lua Parser ** See Copyright Notice in lua.h */ #include #define lparser_c #define LUA_CORE #include "lua.h" #include "lcode.h" #include "ldebug.h" #include "ldo.h" #include "lfunc.h" #include "llex.h" #include "lmem.h" #include "lobject.h" #include "lopcodes.h" #include "lparser.h" #include "lstate.h" #include "lstring.h" #include "ltable.h" /* maximum number of local variables per function (must be smaller than 250, due to the bytecode format) */ #define MAXVARS 200 #define hasmultret(k) ((k) == VCALL || (k) == VVARARG) /* ** nodes for block list (list of active blocks) */ typedef struct BlockCnt { struct BlockCnt *previous; /* chain */ short firstlabel; /* index of first label in this block */ short firstgoto; /* index of first pending goto in this block */ lu_byte nactvar; /* # active locals outside the block */ lu_byte upval; /* true if some variable in the block is an upvalue */ lu_byte isloop; /* true if `block' is a loop */ } BlockCnt; /* ** prototypes for recursive non-terminal functions */ static void statement (LexState *ls); static void expr (LexState *ls, expdesc *v); static void anchor_token (LexState *ls) { /* last token from outer function must be EOS */ lua_assert(ls->fs != NULL || ls->t.token == TK_EOS); if (ls->t.token == TK_NAME || ls->t.token == TK_STRING) { TString *ts = ls->t.seminfo.ts; luaX_newstring(ls, getstr(ts), ts->tsv.len); } } /* semantic error */ static l_noret semerror (LexState *ls, const char *msg) { ls->t.token = 0; /* remove 'near to' from final message */ luaX_syntaxerror(ls, msg); } static l_noret error_expected (LexState *ls, int token) { luaX_syntaxerror(ls, luaO_pushfstring(ls->L, "%s expected", luaX_token2str(ls, token))); } static l_noret errorlimit (FuncState *fs, int limit, const char *what) { lua_State *L = fs->ls->L; const char *msg; int line = fs->f->linedefined; const char *where = (line == 0) ? "main function" : luaO_pushfstring(L, "function at line %d", line); msg = luaO_pushfstring(L, "too many %s (limit is %d) in %s", what, limit, where); luaX_syntaxerror(fs->ls, msg); } static void checklimit (FuncState *fs, int v, int l, const char *what) { if (v > l) errorlimit(fs, l, what); } static int testnext (LexState *ls, int c) { if (ls->t.token == c) { luaX_next(ls); return 1; } else return 0; } static void check (LexState *ls, int c) { if (ls->t.token != c) error_expected(ls, c); } static void checknext (LexState *ls, int c) { check(ls, c); luaX_next(ls); } #define check_condition(ls,c,msg) { if (!(c)) luaX_syntaxerror(ls, msg); } static void check_match (LexState *ls, int what, int who, int where) { if (!testnext(ls, what)) { if (where == ls->linenumber) error_expected(ls, what); else { luaX_syntaxerror(ls, luaO_pushfstring(ls->L, "%s expected (to close %s at line %d)", luaX_token2str(ls, what), luaX_token2str(ls, who), where)); } } } static TString *str_checkname (LexState *ls) { TString *ts; check(ls, TK_NAME); ts = ls->t.seminfo.ts; luaX_next(ls); return ts; } static void init_exp (expdesc *e, expkind k, int i) { e->f = e->t = NO_JUMP; e->k = k; e->u.info = i; } static void codestring (LexState *ls, expdesc *e, TString *s) { init_exp(e, VK, luaK_stringK(ls->fs, s)); } static void checkname (LexState *ls, expdesc *e) { codestring(ls, e, str_checkname(ls)); } static int registerlocalvar (LexState *ls, TString *varname) { FuncState *fs = ls->fs; Proto *f = fs->f; int oldsize = f->sizelocvars; luaM_growvector(ls->L, f->locvars, fs->nlocvars, f->sizelocvars, LocVar, SHRT_MAX, "local variables"); while (oldsize < f->sizelocvars) f->locvars[oldsize++].varname = NULL; f->locvars[fs->nlocvars].varname = varname; luaC_objbarrier(ls->L, f, varname); return fs->nlocvars++; } static void new_localvar (LexState *ls, TString *name) { FuncState *fs = ls->fs; Dyndata *dyd = ls->dyd; int reg = registerlocalvar(ls, name); checklimit(fs, dyd->actvar.n + 1 - fs->firstlocal, MAXVARS, "local variables"); luaM_growvector(ls->L, dyd->actvar.arr, dyd->actvar.n + 1, dyd->actvar.size, Vardesc, MAX_INT, "local variables"); dyd->actvar.arr[dyd->actvar.n++].idx = cast(short, reg); } static void new_localvarliteral_ (LexState *ls, const char *name, size_t sz) { new_localvar(ls, luaX_newstring(ls, name, sz)); } #define new_localvarliteral(ls,v) \ new_localvarliteral_(ls, "" v, (sizeof(v)/sizeof(char))-1) static LocVar *getlocvar (FuncState *fs, int i) { int idx = fs->ls->dyd->actvar.arr[fs->firstlocal + i].idx; lua_assert(idx < fs->nlocvars); return &fs->f->locvars[idx]; } static void adjustlocalvars (LexState *ls, int nvars) { FuncState *fs = ls->fs; fs->nactvar = cast_byte(fs->nactvar + nvars); for (; nvars; nvars--) { getlocvar(fs, fs->nactvar - nvars)->startpc = fs->pc; } } static void removevars (FuncState *fs, int tolevel) { fs->ls->dyd->actvar.n -= (fs->nactvar - tolevel); while (fs->nactvar > tolevel) getlocvar(fs, --fs->nactvar)->endpc = fs->pc; } static int searchupvalue (FuncState *fs, TString *name) { int i; Upvaldesc *up = fs->f->upvalues; for (i = 0; i < fs->nups; i++) { if (luaS_eqstr(up[i].name, name)) return i; } return -1; /* not found */ } static int newupvalue (FuncState *fs, TString *name, expdesc *v) { Proto *f = fs->f; int oldsize = f->sizeupvalues; checklimit(fs, fs->nups + 1, MAXUPVAL, "upvalues"); luaM_growvector(fs->ls->L, f->upvalues, fs->nups, f->sizeupvalues, Upvaldesc, MAXUPVAL, "upvalues"); while (oldsize < f->sizeupvalues) f->upvalues[oldsize++].name = NULL; f->upvalues[fs->nups].instack = (v->k == VLOCAL); f->upvalues[fs->nups].idx = cast_byte(v->u.info); f->upvalues[fs->nups].name = name; luaC_objbarrier(fs->ls->L, f, name); return fs->nups++; } static int searchvar (FuncState *fs, TString *n) { int i; for (i = cast_int(fs->nactvar) - 1; i >= 0; i--) { if (luaS_eqstr(n, getlocvar(fs, i)->varname)) return i; } return -1; /* not found */ } /* Mark block where variable at given level was defined (to emit close instructions later). */ static void markupval (FuncState *fs, int level) { BlockCnt *bl = fs->bl; while (bl->nactvar > level) bl = bl->previous; bl->upval = 1; } /* Find variable with given name 'n'. If it is an upvalue, add this upvalue into all intermediate functions. */ static int singlevaraux (FuncState *fs, TString *n, expdesc *var, int base) { if (fs == NULL) /* no more levels? */ return VVOID; /* default is global */ else { int v = searchvar(fs, n); /* look up locals at current level */ if (v >= 0) { /* found? */ init_exp(var, VLOCAL, v); /* variable is local */ if (!base) markupval(fs, v); /* local will be used as an upval */ return VLOCAL; } else { /* not found as local at current level; try upvalues */ int idx = searchupvalue(fs, n); /* try existing upvalues */ if (idx < 0) { /* not found? */ if (singlevaraux(fs->prev, n, var, 0) == VVOID) /* try upper levels */ return VVOID; /* not found; is a global */ /* else was LOCAL or UPVAL */ idx = newupvalue(fs, n, var); /* will be a new upvalue */ } init_exp(var, VUPVAL, idx); return VUPVAL; } } } static void singlevar (LexState *ls, expdesc *var) { TString *varname = str_checkname(ls); FuncState *fs = ls->fs; if (singlevaraux(fs, varname, var, 1) == VVOID) { /* global name? */ expdesc key; singlevaraux(fs, ls->envn, var, 1); /* get environment variable */ lua_assert(var->k == VLOCAL || var->k == VUPVAL); codestring(ls, &key, varname); /* key is variable name */ luaK_indexed(fs, var, &key); /* env[varname] */ } } static void adjust_assign (LexState *ls, int nvars, int nexps, expdesc *e) { FuncState *fs = ls->fs; int extra = nvars - nexps; if (hasmultret(e->k)) { extra++; /* includes call itself */ if (extra < 0) extra = 0; luaK_setreturns(fs, e, extra); /* last exp. provides the difference */ if (extra > 1) luaK_reserveregs(fs, extra-1); } else { if (e->k != VVOID) luaK_exp2nextreg(fs, e); /* close last expression */ if (extra > 0) { int reg = fs->freereg; luaK_reserveregs(fs, extra); luaK_nil(fs, reg, extra); } } } static void enterlevel (LexState *ls) { lua_State *L = ls->L; ++L->nCcalls; checklimit(ls->fs, L->nCcalls, LUAI_MAXCCALLS, "C levels"); } #define leavelevel(ls) ((ls)->L->nCcalls--) static void closegoto (LexState *ls, int g, Labeldesc *label) { int i; FuncState *fs = ls->fs; Labellist *gl = &ls->dyd->gt; Labeldesc *gt = &gl->arr[g]; lua_assert(luaS_eqstr(gt->name, label->name)); if (gt->nactvar < label->nactvar) { TString *vname = getlocvar(fs, gt->nactvar)->varname; const char *msg = luaO_pushfstring(ls->L, " at line %d jumps into the scope of local " LUA_QS, getstr(gt->name), gt->line, getstr(vname)); semerror(ls, msg); } luaK_patchlist(fs, gt->pc, label->pc); /* remove goto from pending list */ for (i = g; i < gl->n - 1; i++) gl->arr[i] = gl->arr[i + 1]; gl->n--; } /* ** try to close a goto with existing labels; this solves backward jumps */ static int findlabel (LexState *ls, int g) { int i; BlockCnt *bl = ls->fs->bl; Dyndata *dyd = ls->dyd; Labeldesc *gt = &dyd->gt.arr[g]; /* check labels in current block for a match */ for (i = bl->firstlabel; i < dyd->label.n; i++) { Labeldesc *lb = &dyd->label.arr[i]; if (luaS_eqstr(lb->name, gt->name)) { /* correct label? */ if (gt->nactvar > lb->nactvar && (bl->upval || dyd->label.n > bl->firstlabel)) luaK_patchclose(ls->fs, gt->pc, lb->nactvar); closegoto(ls, g, lb); /* close it */ return 1; } } return 0; /* label not found; cannot close goto */ } static int newlabelentry (LexState *ls, Labellist *l, TString *name, int line, int pc) { int n = l->n; luaM_growvector(ls->L, l->arr, n, l->size, Labeldesc, SHRT_MAX, "labels/gotos"); l->arr[n].name = name; l->arr[n].line = line; l->arr[n].nactvar = ls->fs->nactvar; l->arr[n].pc = pc; l->n++; return n; } /* ** check whether new label 'lb' matches any pending gotos in current ** block; solves forward jumps */ static void findgotos (LexState *ls, Labeldesc *lb) { Labellist *gl = &ls->dyd->gt; int i = ls->fs->bl->firstgoto; while (i < gl->n) { if (luaS_eqstr(gl->arr[i].name, lb->name)) closegoto(ls, i, lb); else i++; } } /* ** "export" pending gotos to outer level, to check them against ** outer labels; if the block being exited has upvalues, and ** the goto exits the scope of any variable (which can be the ** upvalue), close those variables being exited. */ static void movegotosout (FuncState *fs, BlockCnt *bl) { int i = bl->firstgoto; Labellist *gl = &fs->ls->dyd->gt; /* correct pending gotos to current block and try to close it with visible labels */ while (i < gl->n) { Labeldesc *gt = &gl->arr[i]; if (gt->nactvar > bl->nactvar) { if (bl->upval) luaK_patchclose(fs, gt->pc, bl->nactvar); gt->nactvar = bl->nactvar; } if (!findlabel(fs->ls, i)) i++; /* move to next one */ } } static void enterblock (FuncState *fs, BlockCnt *bl, lu_byte isloop) { bl->isloop = isloop; bl->nactvar = fs->nactvar; bl->firstlabel = fs->ls->dyd->label.n; bl->firstgoto = fs->ls->dyd->gt.n; bl->upval = 0; bl->previous = fs->bl; fs->bl = bl; lua_assert(fs->freereg == fs->nactvar); } /* ** create a label named "break" to resolve break statements */ static void breaklabel (LexState *ls) { TString *n = luaS_new(ls->L, "break"); int l = newlabelentry(ls, &ls->dyd->label, n, 0, ls->fs->pc); findgotos(ls, &ls->dyd->label.arr[l]); } /* ** generates an error for an undefined 'goto'; choose appropriate ** message when label name is a reserved word (which can only be 'break') */ static l_noret undefgoto (LexState *ls, Labeldesc *gt) { const char *msg = isreserved(gt->name) ? "<%s> at line %d not inside a loop" : "no visible label " LUA_QS " for at line %d"; msg = luaO_pushfstring(ls->L, msg, getstr(gt->name), gt->line); semerror(ls, msg); } static void leaveblock (FuncState *fs) { BlockCnt *bl = fs->bl; LexState *ls = fs->ls; if (bl->previous && bl->upval) { /* create a 'jump to here' to close upvalues */ int j = luaK_jump(fs); luaK_patchclose(fs, j, bl->nactvar); luaK_patchtohere(fs, j); } if (bl->isloop) breaklabel(ls); /* close pending breaks */ fs->bl = bl->previous; removevars(fs, bl->nactvar); lua_assert(bl->nactvar == fs->nactvar); fs->freereg = fs->nactvar; /* free registers */ ls->dyd->label.n = bl->firstlabel; /* remove local labels */ if (bl->previous) /* inner block? */ movegotosout(fs, bl); /* update pending gotos to outer block */ else if (bl->firstgoto < ls->dyd->gt.n) /* pending gotos in outer block? */ undefgoto(ls, &ls->dyd->gt.arr[bl->firstgoto]); /* error */ } /* ** adds a new prototype into list of prototypes */ static Proto *addprototype (LexState *ls) { Proto *clp; lua_State *L = ls->L; FuncState *fs = ls->fs; Proto *f = fs->f; /* prototype of current function */ if (fs->np >= f->sizep) { int oldsize = f->sizep; luaM_growvector(L, f->p, fs->np, f->sizep, Proto *, MAXARG_Bx, "functions"); while (oldsize < f->sizep) f->p[oldsize++] = NULL; } f->p[fs->np++] = clp = luaF_newproto(L); luaC_objbarrier(L, f, clp); return clp; } /* ** codes instruction to create new closure in parent function. ** The OP_CLOSURE instruction must use the last available register, ** so that, if it invokes the GC, the GC knows which registers ** are in use at that time. */ static void codeclosure (LexState *ls, expdesc *v) { FuncState *fs = ls->fs->prev; init_exp(v, VRELOCABLE, luaK_codeABx(fs, OP_CLOSURE, 0, fs->np - 1)); luaK_exp2nextreg(fs, v); /* fix it at the last register */ } static void open_func (LexState *ls, FuncState *fs, BlockCnt *bl) { lua_State *L = ls->L; Proto *f; fs->prev = ls->fs; /* linked list of funcstates */ fs->ls = ls; ls->fs = fs; fs->pc = 0; fs->lasttarget = 0; fs->jpc = NO_JUMP; fs->freereg = 0; fs->nk = 0; fs->np = 0; fs->nups = 0; fs->nlocvars = 0; fs->nactvar = 0; fs->firstlocal = ls->dyd->actvar.n; fs->bl = NULL; f = fs->f; f->source = ls->source; f->maxstacksize = 2; /* registers 0/1 are always valid */ fs->h = luaH_new(L); /* anchor table of constants (to avoid being collected) */ sethvalue2s(L, L->top, fs->h); incr_top(L); enterblock(fs, bl, 0); } static void close_func (LexState *ls) { lua_State *L = ls->L; FuncState *fs = ls->fs; Proto *f = fs->f; luaK_ret(fs, 0, 0); /* final return */ leaveblock(fs); luaM_reallocvector(L, f->code, f->sizecode, fs->pc, Instruction); f->sizecode = fs->pc; luaM_reallocvector(L, f->lineinfo, f->sizelineinfo, fs->pc, int); f->sizelineinfo = fs->pc; luaM_reallocvector(L, f->k, f->sizek, fs->nk, TValue); f->sizek = fs->nk; luaM_reallocvector(L, f->p, f->sizep, fs->np, Proto *); f->sizep = fs->np; luaM_reallocvector(L, f->locvars, f->sizelocvars, fs->nlocvars, LocVar); f->sizelocvars = fs->nlocvars; luaM_reallocvector(L, f->upvalues, f->sizeupvalues, fs->nups, Upvaldesc); f->sizeupvalues = fs->nups; lua_assert(fs->bl == NULL); ls->fs = fs->prev; /* last token read was anchored in defunct function; must re-anchor it */ anchor_token(ls); L->top--; /* pop table of constants */ luaC_checkGC(L); } /*============================================================*/ /* GRAMMAR RULES */ /*============================================================*/ /* ** check whether current token is in the follow set of a block. ** 'until' closes syntactical blocks, but do not close scope, ** so it handled in separate. */ static int block_follow (LexState *ls, int withuntil) { switch (ls->t.token) { case TK_ELSE: case TK_ELSEIF: case TK_END: case TK_EOS: return 1; case TK_UNTIL: return withuntil; default: return 0; } } static void statlist (LexState *ls) { /* statlist -> { stat [`;'] } */ while (!block_follow(ls, 1)) { if (ls->t.token == TK_RETURN) { statement(ls); return; /* 'return' must be last statement */ } statement(ls); } } static void fieldsel (LexState *ls, expdesc *v) { /* fieldsel -> ['.' | ':'] NAME */ FuncState *fs = ls->fs; expdesc key; luaK_exp2anyregup(fs, v); luaX_next(ls); /* skip the dot or colon */ checkname(ls, &key); luaK_indexed(fs, v, &key); } static void yindex (LexState *ls, expdesc *v) { /* index -> '[' expr ']' */ luaX_next(ls); /* skip the '[' */ expr(ls, v); luaK_exp2val(ls->fs, v); checknext(ls, ']'); } /* ** {====================================================================== ** Rules for Constructors ** ======================================================================= */ struct ConsControl { expdesc v; /* last list item read */ expdesc *t; /* table descriptor */ int nh; /* total number of `record' elements */ int na; /* total number of array elements */ int tostore; /* number of array elements pending to be stored */ }; static void recfield (LexState *ls, struct ConsControl *cc) { /* recfield -> (NAME | `['exp1`]') = exp1 */ FuncState *fs = ls->fs; int reg = ls->fs->freereg; expdesc key, val; int rkkey; if (ls->t.token == TK_NAME) { checklimit(fs, cc->nh, MAX_INT, "items in a constructor"); checkname(ls, &key); } else /* ls->t.token == '[' */ yindex(ls, &key); cc->nh++; checknext(ls, '='); rkkey = luaK_exp2RK(fs, &key); expr(ls, &val); luaK_codeABC(fs, OP_SETTABLE, cc->t->u.info, rkkey, luaK_exp2RK(fs, &val)); fs->freereg = reg; /* free registers */ } static void closelistfield (FuncState *fs, struct ConsControl *cc) { if (cc->v.k == VVOID) return; /* there is no list item */ luaK_exp2nextreg(fs, &cc->v); cc->v.k = VVOID; if (cc->tostore == LFIELDS_PER_FLUSH) { luaK_setlist(fs, cc->t->u.info, cc->na, cc->tostore); /* flush */ cc->tostore = 0; /* no more items pending */ } } static void lastlistfield (FuncState *fs, struct ConsControl *cc) { if (cc->tostore == 0) return; if (hasmultret(cc->v.k)) { luaK_setmultret(fs, &cc->v); luaK_setlist(fs, cc->t->u.info, cc->na, LUA_MULTRET); cc->na--; /* do not count last expression (unknown number of elements) */ } else { if (cc->v.k != VVOID) luaK_exp2nextreg(fs, &cc->v); luaK_setlist(fs, cc->t->u.info, cc->na, cc->tostore); } } static void listfield (LexState *ls, struct ConsControl *cc) { /* listfield -> exp */ expr(ls, &cc->v); checklimit(ls->fs, cc->na, MAX_INT, "items in a constructor"); cc->na++; cc->tostore++; } static void field (LexState *ls, struct ConsControl *cc) { /* field -> listfield | recfield */ switch(ls->t.token) { case TK_NAME: { /* may be 'listfield' or 'recfield' */ if (luaX_lookahead(ls) != '=') /* expression? */ listfield(ls, cc); else recfield(ls, cc); break; } case '[': { recfield(ls, cc); break; } default: { listfield(ls, cc); break; } } } static void constructor (LexState *ls, expdesc *t) { /* constructor -> '{' [ field { sep field } [sep] ] '}' sep -> ',' | ';' */ FuncState *fs = ls->fs; int line = ls->linenumber; int pc = luaK_codeABC(fs, OP_NEWTABLE, 0, 0, 0); struct ConsControl cc; cc.na = cc.nh = cc.tostore = 0; cc.t = t; init_exp(t, VRELOCABLE, pc); init_exp(&cc.v, VVOID, 0); /* no value (yet) */ luaK_exp2nextreg(ls->fs, t); /* fix it at stack top */ checknext(ls, '{'); do { lua_assert(cc.v.k == VVOID || cc.tostore > 0); if (ls->t.token == '}') break; closelistfield(fs, &cc); field(ls, &cc); } while (testnext(ls, ',') || testnext(ls, ';')); check_match(ls, '}', '{', line); lastlistfield(fs, &cc); SETARG_B(fs->f->code[pc], luaO_int2fb(cc.na)); /* set initial array size */ SETARG_C(fs->f->code[pc], luaO_int2fb(cc.nh)); /* set initial table size */ } /* }====================================================================== */ static void parlist (LexState *ls) { /* parlist -> [ param { `,' param } ] */ FuncState *fs = ls->fs; Proto *f = fs->f; int nparams = 0; f->is_vararg = 0; if (ls->t.token != ')') { /* is `parlist' not empty? */ do { switch (ls->t.token) { case TK_NAME: { /* param -> NAME */ new_localvar(ls, str_checkname(ls)); nparams++; break; } case TK_DOTS: { /* param -> `...' */ luaX_next(ls); f->is_vararg = 1; break; } default: luaX_syntaxerror(ls, " or " LUA_QL("...") " expected"); } } while (!f->is_vararg && testnext(ls, ',')); } adjustlocalvars(ls, nparams); f->numparams = cast_byte(fs->nactvar); luaK_reserveregs(fs, fs->nactvar); /* reserve register for parameters */ } static void body (LexState *ls, expdesc *e, int ismethod, int line) { /* body -> `(' parlist `)' block END */ FuncState new_fs; BlockCnt bl; new_fs.f = addprototype(ls); new_fs.f->linedefined = line; open_func(ls, &new_fs, &bl); checknext(ls, '('); if (ismethod) { new_localvarliteral(ls, "self"); /* create 'self' parameter */ adjustlocalvars(ls, 1); } parlist(ls); checknext(ls, ')'); statlist(ls); new_fs.f->lastlinedefined = ls->linenumber; check_match(ls, TK_END, TK_FUNCTION, line); codeclosure(ls, e); close_func(ls); } static int explist (LexState *ls, expdesc *v) { /* explist -> expr { `,' expr } */ int n = 1; /* at least one expression */ expr(ls, v); while (testnext(ls, ',')) { luaK_exp2nextreg(ls->fs, v); expr(ls, v); n++; } return n; } static void funcargs (LexState *ls, expdesc *f, int line) { FuncState *fs = ls->fs; expdesc args; int base, nparams; switch (ls->t.token) { case '(': { /* funcargs -> `(' [ explist ] `)' */ luaX_next(ls); if (ls->t.token == ')') /* arg list is empty? */ args.k = VVOID; else { explist(ls, &args); luaK_setmultret(fs, &args); } check_match(ls, ')', '(', line); break; } case '{': { /* funcargs -> constructor */ constructor(ls, &args); break; } case TK_STRING: { /* funcargs -> STRING */ codestring(ls, &args, ls->t.seminfo.ts); luaX_next(ls); /* must use `seminfo' before `next' */ break; } default: { luaX_syntaxerror(ls, "function arguments expected"); } } lua_assert(f->k == VNONRELOC); base = f->u.info; /* base register for call */ if (hasmultret(args.k)) nparams = LUA_MULTRET; /* open call */ else { if (args.k != VVOID) luaK_exp2nextreg(fs, &args); /* close last argument */ nparams = fs->freereg - (base+1); } init_exp(f, VCALL, luaK_codeABC(fs, OP_CALL, base, nparams+1, 2)); luaK_fixline(fs, line); fs->freereg = base+1; /* call remove function and arguments and leaves (unless changed) one result */ } /* ** {====================================================================== ** Expression parsing ** ======================================================================= */ static void primaryexp (LexState *ls, expdesc *v) { /* primaryexp -> NAME | '(' expr ')' */ switch (ls->t.token) { case '(': { int line = ls->linenumber; luaX_next(ls); expr(ls, v); check_match(ls, ')', '(', line); luaK_dischargevars(ls->fs, v); return; } case TK_NAME: { singlevar(ls, v); return; } default: { luaX_syntaxerror(ls, "unexpected symbol"); } } } static void suffixedexp (LexState *ls, expdesc *v) { /* suffixedexp -> primaryexp { '.' NAME | '[' exp ']' | ':' NAME funcargs | funcargs } */ FuncState *fs = ls->fs; int line = ls->linenumber; primaryexp(ls, v); for (;;) { switch (ls->t.token) { case '.': { /* fieldsel */ fieldsel(ls, v); break; } case '[': { /* `[' exp1 `]' */ expdesc key; luaK_exp2anyregup(fs, v); yindex(ls, &key); luaK_indexed(fs, v, &key); break; } case ':': { /* `:' NAME funcargs */ expdesc key; luaX_next(ls); checkname(ls, &key); luaK_self(fs, v, &key); funcargs(ls, v, line); break; } case '(': case TK_STRING: case '{': { /* funcargs */ luaK_exp2nextreg(fs, v); funcargs(ls, v, line); break; } default: return; } } } static void simpleexp (LexState *ls, expdesc *v) { /* simpleexp -> NUMBER | STRING | NIL | TRUE | FALSE | ... | constructor | FUNCTION body | suffixedexp */ switch (ls->t.token) { case TK_NUMBER: { init_exp(v, VKNUM, 0); v->u.nval = ls->t.seminfo.r; break; } case TK_STRING: { codestring(ls, v, ls->t.seminfo.ts); break; } case TK_NIL: { init_exp(v, VNIL, 0); break; } case TK_TRUE: { init_exp(v, VTRUE, 0); break; } case TK_FALSE: { init_exp(v, VFALSE, 0); break; } case TK_DOTS: { /* vararg */ FuncState *fs = ls->fs; check_condition(ls, fs->f->is_vararg, "cannot use " LUA_QL("...") " outside a vararg function"); init_exp(v, VVARARG, luaK_codeABC(fs, OP_VARARG, 0, 1, 0)); break; } case '{': { /* constructor */ constructor(ls, v); return; } case TK_FUNCTION: { luaX_next(ls); body(ls, v, 0, ls->linenumber); return; } default: { suffixedexp(ls, v); return; } } luaX_next(ls); } static UnOpr getunopr (int op) { switch (op) { case TK_NOT: return OPR_NOT; case '-': return OPR_MINUS; case '#': return OPR_LEN; default: return OPR_NOUNOPR; } } static BinOpr getbinopr (int op) { switch (op) { case '+': return OPR_ADD; case '-': return OPR_SUB; case '*': return OPR_MUL; case '/': return OPR_DIV; case '%': return OPR_MOD; case '^': return OPR_POW; case TK_CONCAT: return OPR_CONCAT; case TK_NE: return OPR_NE; case TK_EQ: return OPR_EQ; case '<': return OPR_LT; case TK_LE: return OPR_LE; case '>': return OPR_GT; case TK_GE: return OPR_GE; case TK_AND: return OPR_AND; case TK_OR: return OPR_OR; default: return OPR_NOBINOPR; } } static const struct { lu_byte left; /* left priority for each binary operator */ lu_byte right; /* right priority */ } priority[] = { /* ORDER OPR */ {6, 6}, {6, 6}, {7, 7}, {7, 7}, {7, 7}, /* `+' `-' `*' `/' `%' */ {10, 9}, {5, 4}, /* ^, .. (right associative) */ {3, 3}, {3, 3}, {3, 3}, /* ==, <, <= */ {3, 3}, {3, 3}, {3, 3}, /* ~=, >, >= */ {2, 2}, {1, 1} /* and, or */ }; #define UNARY_PRIORITY 8 /* priority for unary operators */ /* ** subexpr -> (simpleexp | unop subexpr) { binop subexpr } ** where `binop' is any binary operator with a priority higher than `limit' */ static BinOpr subexpr (LexState *ls, expdesc *v, int limit) { BinOpr op; UnOpr uop; enterlevel(ls); uop = getunopr(ls->t.token); if (uop != OPR_NOUNOPR) { int line = ls->linenumber; luaX_next(ls); subexpr(ls, v, UNARY_PRIORITY); luaK_prefix(ls->fs, uop, v, line); } else simpleexp(ls, v); /* expand while operators have priorities higher than `limit' */ op = getbinopr(ls->t.token); while (op != OPR_NOBINOPR && priority[op].left > limit) { expdesc v2; BinOpr nextop; int line = ls->linenumber; luaX_next(ls); luaK_infix(ls->fs, op, v); /* read sub-expression with higher priority */ nextop = subexpr(ls, &v2, priority[op].right); luaK_posfix(ls->fs, op, v, &v2, line); op = nextop; } leavelevel(ls); return op; /* return first untreated operator */ } static void expr (LexState *ls, expdesc *v) { subexpr(ls, v, 0); } /* }==================================================================== */ /* ** {====================================================================== ** Rules for Statements ** ======================================================================= */ static void block (LexState *ls) { /* block -> statlist */ FuncState *fs = ls->fs; BlockCnt bl; enterblock(fs, &bl, 0); statlist(ls); leaveblock(fs); } /* ** structure to chain all variables in the left-hand side of an ** assignment */ struct LHS_assign { struct LHS_assign *prev; expdesc v; /* variable (global, local, upvalue, or indexed) */ }; /* ** check whether, in an assignment to an upvalue/local variable, the ** upvalue/local variable is begin used in a previous assignment to a ** table. If so, save original upvalue/local value in a safe place and ** use this safe copy in the previous assignment. */ static void check_conflict (LexState *ls, struct LHS_assign *lh, expdesc *v) { FuncState *fs = ls->fs; int extra = fs->freereg; /* eventual position to save local variable */ int conflict = 0; for (; lh; lh = lh->prev) { /* check all previous assignments */ if (lh->v.k == VINDEXED) { /* assigning to a table? */ /* table is the upvalue/local being assigned now? */ if (lh->v.u.ind.vt == v->k && lh->v.u.ind.t == v->u.info) { conflict = 1; lh->v.u.ind.vt = VLOCAL; lh->v.u.ind.t = extra; /* previous assignment will use safe copy */ } /* index is the local being assigned? (index cannot be upvalue) */ if (v->k == VLOCAL && lh->v.u.ind.idx == v->u.info) { conflict = 1; lh->v.u.ind.idx = extra; /* previous assignment will use safe copy */ } } } if (conflict) { /* copy upvalue/local value to a temporary (in position 'extra') */ OpCode op = (v->k == VLOCAL) ? OP_MOVE : OP_GETUPVAL; luaK_codeABC(fs, op, extra, v->u.info, 0); luaK_reserveregs(fs, 1); } } static void assignment (LexState *ls, struct LHS_assign *lh, int nvars) { expdesc e; check_condition(ls, vkisvar(lh->v.k), "syntax error"); if (testnext(ls, ',')) { /* assignment -> ',' suffixedexp assignment */ struct LHS_assign nv; nv.prev = lh; suffixedexp(ls, &nv.v); if (nv.v.k != VINDEXED) check_conflict(ls, lh, &nv.v); checklimit(ls->fs, nvars + ls->L->nCcalls, LUAI_MAXCCALLS, "C levels"); assignment(ls, &nv, nvars+1); } else { /* assignment -> `=' explist */ int nexps; checknext(ls, '='); nexps = explist(ls, &e); if (nexps != nvars) { adjust_assign(ls, nvars, nexps, &e); if (nexps > nvars) ls->fs->freereg -= nexps - nvars; /* remove extra values */ } else { luaK_setoneret(ls->fs, &e); /* close last expression */ luaK_storevar(ls->fs, &lh->v, &e); return; /* avoid default */ } } init_exp(&e, VNONRELOC, ls->fs->freereg-1); /* default assignment */ luaK_storevar(ls->fs, &lh->v, &e); } static int cond (LexState *ls) { /* cond -> exp */ expdesc v; expr(ls, &v); /* read condition */ if (v.k == VNIL) v.k = VFALSE; /* `falses' are all equal here */ luaK_goiftrue(ls->fs, &v); return v.f; } static void gotostat (LexState *ls, int pc) { int line = ls->linenumber; TString *label; int g; if (testnext(ls, TK_GOTO)) label = str_checkname(ls); else { luaX_next(ls); /* skip break */ label = luaS_new(ls->L, "break"); } g = newlabelentry(ls, &ls->dyd->gt, label, line, pc); findlabel(ls, g); /* close it if label already defined */ } /* check for repeated labels on the same block */ static void checkrepeated (FuncState *fs, Labellist *ll, TString *label) { int i; for (i = fs->bl->firstlabel; i < ll->n; i++) { if (luaS_eqstr(label, ll->arr[i].name)) { const char *msg = luaO_pushfstring(fs->ls->L, "label " LUA_QS " already defined on line %d", getstr(label), ll->arr[i].line); semerror(fs->ls, msg); } } } /* skip no-op statements */ static void skipnoopstat (LexState *ls) { while (ls->t.token == ';' || ls->t.token == TK_DBCOLON) statement(ls); } static void labelstat (LexState *ls, TString *label, int line) { /* label -> '::' NAME '::' */ FuncState *fs = ls->fs; Labellist *ll = &ls->dyd->label; int l; /* index of new label being created */ checkrepeated(fs, ll, label); /* check for repeated labels */ checknext(ls, TK_DBCOLON); /* skip double colon */ /* create new entry for this label */ l = newlabelentry(ls, ll, label, line, fs->pc); skipnoopstat(ls); /* skip other no-op statements */ if (block_follow(ls, 0)) { /* label is last no-op statement in the block? */ /* assume that locals are already out of scope */ ll->arr[l].nactvar = fs->bl->nactvar; } findgotos(ls, &ll->arr[l]); } static void whilestat (LexState *ls, int line) { /* whilestat -> WHILE cond DO block END */ FuncState *fs = ls->fs; int whileinit; int condexit; BlockCnt bl; luaX_next(ls); /* skip WHILE */ whileinit = luaK_getlabel(fs); condexit = cond(ls); enterblock(fs, &bl, 1); checknext(ls, TK_DO); block(ls); luaK_jumpto(fs, whileinit); check_match(ls, TK_END, TK_WHILE, line); leaveblock(fs); luaK_patchtohere(fs, condexit); /* false conditions finish the loop */ } static void repeatstat (LexState *ls, int line) { /* repeatstat -> REPEAT block UNTIL cond */ int condexit; FuncState *fs = ls->fs; int repeat_init = luaK_getlabel(fs); BlockCnt bl1, bl2; enterblock(fs, &bl1, 1); /* loop block */ enterblock(fs, &bl2, 0); /* scope block */ luaX_next(ls); /* skip REPEAT */ statlist(ls); check_match(ls, TK_UNTIL, TK_REPEAT, line); condexit = cond(ls); /* read condition (inside scope block) */ if (bl2.upval) /* upvalues? */ luaK_patchclose(fs, condexit, bl2.nactvar); leaveblock(fs); /* finish scope */ luaK_patchlist(fs, condexit, repeat_init); /* close the loop */ leaveblock(fs); /* finish loop */ } static int exp1 (LexState *ls) { expdesc e; int reg; expr(ls, &e); luaK_exp2nextreg(ls->fs, &e); lua_assert(e.k == VNONRELOC); reg = e.u.info; return reg; } static void forbody (LexState *ls, int base, int line, int nvars, int isnum) { /* forbody -> DO block */ BlockCnt bl; FuncState *fs = ls->fs; int prep, endfor; adjustlocalvars(ls, 3); /* control variables */ checknext(ls, TK_DO); prep = isnum ? luaK_codeAsBx(fs, OP_FORPREP, base, NO_JUMP) : luaK_jump(fs); enterblock(fs, &bl, 0); /* scope for declared variables */ adjustlocalvars(ls, nvars); luaK_reserveregs(fs, nvars); block(ls); leaveblock(fs); /* end of scope for declared variables */ luaK_patchtohere(fs, prep); if (isnum) /* numeric for? */ endfor = luaK_codeAsBx(fs, OP_FORLOOP, base, NO_JUMP); else { /* generic for */ luaK_codeABC(fs, OP_TFORCALL, base, 0, nvars); luaK_fixline(fs, line); endfor = luaK_codeAsBx(fs, OP_TFORLOOP, base + 2, NO_JUMP); } luaK_patchlist(fs, endfor, prep + 1); luaK_fixline(fs, line); } static void fornum (LexState *ls, TString *varname, int line) { /* fornum -> NAME = exp1,exp1[,exp1] forbody */ FuncState *fs = ls->fs; int base = fs->freereg; new_localvarliteral(ls, "(for index)"); new_localvarliteral(ls, "(for limit)"); new_localvarliteral(ls, "(for step)"); new_localvar(ls, varname); checknext(ls, '='); exp1(ls); /* initial value */ checknext(ls, ','); exp1(ls); /* limit */ if (testnext(ls, ',')) exp1(ls); /* optional step */ else { /* default step = 1 */ luaK_codek(fs, fs->freereg, luaK_numberK(fs, 1)); luaK_reserveregs(fs, 1); } forbody(ls, base, line, 1, 1); } static void forlist (LexState *ls, TString *indexname) { /* forlist -> NAME {,NAME} IN explist forbody */ FuncState *fs = ls->fs; expdesc e; int nvars = 4; /* gen, state, control, plus at least one declared var */ int line; int base = fs->freereg; /* create control variables */ new_localvarliteral(ls, "(for generator)"); new_localvarliteral(ls, "(for state)"); new_localvarliteral(ls, "(for control)"); /* create declared variables */ new_localvar(ls, indexname); while (testnext(ls, ',')) { new_localvar(ls, str_checkname(ls)); nvars++; } checknext(ls, TK_IN); line = ls->linenumber; adjust_assign(ls, 3, explist(ls, &e), &e); luaK_checkstack(fs, 3); /* extra space to call generator */ forbody(ls, base, line, nvars - 3, 0); } static void forstat (LexState *ls, int line) { /* forstat -> FOR (fornum | forlist) END */ FuncState *fs = ls->fs; TString *varname; BlockCnt bl; enterblock(fs, &bl, 1); /* scope for loop and control variables */ luaX_next(ls); /* skip `for' */ varname = str_checkname(ls); /* first variable name */ switch (ls->t.token) { case '=': fornum(ls, varname, line); break; case ',': case TK_IN: forlist(ls, varname); break; default: luaX_syntaxerror(ls, LUA_QL("=") " or " LUA_QL("in") " expected"); } check_match(ls, TK_END, TK_FOR, line); leaveblock(fs); /* loop scope (`break' jumps to this point) */ } static void test_then_block (LexState *ls, int *escapelist) { /* test_then_block -> [IF | ELSEIF] cond THEN block */ BlockCnt bl; FuncState *fs = ls->fs; expdesc v; int jf; /* instruction to skip 'then' code (if condition is false) */ luaX_next(ls); /* skip IF or ELSEIF */ expr(ls, &v); /* read condition */ checknext(ls, TK_THEN); if (ls->t.token == TK_GOTO || ls->t.token == TK_BREAK) { luaK_goiffalse(ls->fs, &v); /* will jump to label if condition is true */ enterblock(fs, &bl, 0); /* must enter block before 'goto' */ gotostat(ls, v.t); /* handle goto/break */ skipnoopstat(ls); /* skip other no-op statements */ if (block_follow(ls, 0)) { /* 'goto' is the entire block? */ leaveblock(fs); return; /* and that is it */ } else /* must skip over 'then' part if condition is false */ jf = luaK_jump(fs); } else { /* regular case (not goto/break) */ luaK_goiftrue(ls->fs, &v); /* skip over block if condition is false */ enterblock(fs, &bl, 0); jf = v.f; } statlist(ls); /* `then' part */ leaveblock(fs); if (ls->t.token == TK_ELSE || ls->t.token == TK_ELSEIF) /* followed by 'else'/'elseif'? */ luaK_concat(fs, escapelist, luaK_jump(fs)); /* must jump over it */ luaK_patchtohere(fs, jf); } static void ifstat (LexState *ls, int line) { /* ifstat -> IF cond THEN block {ELSEIF cond THEN block} [ELSE block] END */ FuncState *fs = ls->fs; int escapelist = NO_JUMP; /* exit list for finished parts */ test_then_block(ls, &escapelist); /* IF cond THEN block */ while (ls->t.token == TK_ELSEIF) test_then_block(ls, &escapelist); /* ELSEIF cond THEN block */ if (testnext(ls, TK_ELSE)) block(ls); /* `else' part */ check_match(ls, TK_END, TK_IF, line); luaK_patchtohere(fs, escapelist); /* patch escape list to 'if' end */ } static void localfunc (LexState *ls) { expdesc b; FuncState *fs = ls->fs; new_localvar(ls, str_checkname(ls)); /* new local variable */ adjustlocalvars(ls, 1); /* enter its scope */ body(ls, &b, 0, ls->linenumber); /* function created in next register */ /* debug information will only see the variable after this point! */ getlocvar(fs, b.u.info)->startpc = fs->pc; } static void localstat (LexState *ls) { /* stat -> LOCAL NAME {`,' NAME} [`=' explist] */ int nvars = 0; int nexps; expdesc e; do { new_localvar(ls, str_checkname(ls)); nvars++; } while (testnext(ls, ',')); if (testnext(ls, '=')) nexps = explist(ls, &e); else { e.k = VVOID; nexps = 0; } adjust_assign(ls, nvars, nexps, &e); adjustlocalvars(ls, nvars); } static int funcname (LexState *ls, expdesc *v) { /* funcname -> NAME {fieldsel} [`:' NAME] */ int ismethod = 0; singlevar(ls, v); while (ls->t.token == '.') fieldsel(ls, v); if (ls->t.token == ':') { ismethod = 1; fieldsel(ls, v); } return ismethod; } static void funcstat (LexState *ls, int line) { /* funcstat -> FUNCTION funcname body */ int ismethod; expdesc v, b; luaX_next(ls); /* skip FUNCTION */ ismethod = funcname(ls, &v); body(ls, &b, ismethod, line); luaK_storevar(ls->fs, &v, &b); luaK_fixline(ls->fs, line); /* definition `happens' in the first line */ } static void exprstat (LexState *ls) { /* stat -> func | assignment */ FuncState *fs = ls->fs; struct LHS_assign v; suffixedexp(ls, &v.v); if (ls->t.token == '=' || ls->t.token == ',') { /* stat -> assignment ? */ v.prev = NULL; assignment(ls, &v, 1); } else { /* stat -> func */ check_condition(ls, v.v.k == VCALL, "syntax error"); SETARG_C(getcode(fs, &v.v), 1); /* call statement uses no results */ } } static void retstat (LexState *ls) { /* stat -> RETURN [explist] [';'] */ FuncState *fs = ls->fs; expdesc e; int first, nret; /* registers with returned values */ if (block_follow(ls, 1) || ls->t.token == ';') first = nret = 0; /* return no values */ else { nret = explist(ls, &e); /* optional return values */ if (hasmultret(e.k)) { luaK_setmultret(fs, &e); if (e.k == VCALL && nret == 1) { /* tail call? */ SET_OPCODE(getcode(fs,&e), OP_TAILCALL); lua_assert(GETARG_A(getcode(fs,&e)) == fs->nactvar); } first = fs->nactvar; nret = LUA_MULTRET; /* return all values */ } else { if (nret == 1) /* only one single value? */ first = luaK_exp2anyreg(fs, &e); else { luaK_exp2nextreg(fs, &e); /* values must go to the `stack' */ first = fs->nactvar; /* return all `active' values */ lua_assert(nret == fs->freereg - first); } } } luaK_ret(fs, first, nret); testnext(ls, ';'); /* skip optional semicolon */ } static void statement (LexState *ls) { int line = ls->linenumber; /* may be needed for error messages */ enterlevel(ls); switch (ls->t.token) { case ';': { /* stat -> ';' (empty statement) */ luaX_next(ls); /* skip ';' */ break; } case TK_IF: { /* stat -> ifstat */ ifstat(ls, line); break; } case TK_WHILE: { /* stat -> whilestat */ whilestat(ls, line); break; } case TK_DO: { /* stat -> DO block END */ luaX_next(ls); /* skip DO */ block(ls); check_match(ls, TK_END, TK_DO, line); break; } case TK_FOR: { /* stat -> forstat */ forstat(ls, line); break; } case TK_REPEAT: { /* stat -> repeatstat */ repeatstat(ls, line); break; } case TK_FUNCTION: { /* stat -> funcstat */ funcstat(ls, line); break; } case TK_LOCAL: { /* stat -> localstat */ luaX_next(ls); /* skip LOCAL */ if (testnext(ls, TK_FUNCTION)) /* local function? */ localfunc(ls); else localstat(ls); break; } case TK_DBCOLON: { /* stat -> label */ luaX_next(ls); /* skip double colon */ labelstat(ls, str_checkname(ls), line); break; } case TK_RETURN: { /* stat -> retstat */ luaX_next(ls); /* skip RETURN */ retstat(ls); break; } case TK_BREAK: /* stat -> breakstat */ case TK_GOTO: { /* stat -> 'goto' NAME */ gotostat(ls, luaK_jump(ls->fs)); break; } default: { /* stat -> func | assignment */ exprstat(ls); break; } } lua_assert(ls->fs->f->maxstacksize >= ls->fs->freereg && ls->fs->freereg >= ls->fs->nactvar); ls->fs->freereg = ls->fs->nactvar; /* free registers */ leavelevel(ls); } /* }====================================================================== */ /* ** compiles the main function, which is a regular vararg function with an ** upvalue named LUA_ENV */ static void mainfunc (LexState *ls, FuncState *fs) { BlockCnt bl; expdesc v; open_func(ls, fs, &bl); fs->f->is_vararg = 1; /* main function is always vararg */ init_exp(&v, VLOCAL, 0); /* create and... */ newupvalue(fs, ls->envn, &v); /* ...set environment upvalue */ luaX_next(ls); /* read first token */ statlist(ls); /* parse main body */ check(ls, TK_EOS); close_func(ls); } Closure *luaY_parser (lua_State *L, ZIO *z, Mbuffer *buff, Dyndata *dyd, const char *name, int firstchar) { LexState lexstate; FuncState funcstate; Closure *cl = luaF_newLclosure(L, 1); /* create main closure */ /* anchor closure (to avoid being collected) */ setclLvalue(L, L->top, cl); incr_top(L); funcstate.f = cl->l.p = luaF_newproto(L); funcstate.f->source = luaS_new(L, name); /* create and anchor TString */ lexstate.buff = buff; lexstate.dyd = dyd; dyd->actvar.n = dyd->gt.n = dyd->label.n = 0; luaX_setinput(L, &lexstate, z, funcstate.f->source, firstchar); mainfunc(&lexstate, &funcstate); lua_assert(!funcstate.prev && funcstate.nups == 1 && !lexstate.fs); /* all scopes should be correctly finished */ lua_assert(dyd->actvar.n == 0 && dyd->gt.n == 0 && dyd->label.n == 0); return cl; /* it's on the stack too */ } april-ann-0.3.1/lua/lua-5.2.2/src/lparser.h000066400000000000000000000064001234204160600200060ustar00rootroot00000000000000/* ** $Id: lparser.h,v 1.70 2012/05/08 13:53:33 roberto Exp $ ** Lua Parser ** See Copyright Notice in lua.h */ #ifndef lparser_h #define lparser_h #include "llimits.h" #include "lobject.h" #include "lzio.h" /* ** Expression descriptor */ typedef enum { VVOID, /* no value */ VNIL, VTRUE, VFALSE, VK, /* info = index of constant in `k' */ VKNUM, /* nval = numerical value */ VNONRELOC, /* info = result register */ VLOCAL, /* info = local register */ VUPVAL, /* info = index of upvalue in 'upvalues' */ VINDEXED, /* t = table register/upvalue; idx = index R/K */ VJMP, /* info = instruction pc */ VRELOCABLE, /* info = instruction pc */ VCALL, /* info = instruction pc */ VVARARG /* info = instruction pc */ } expkind; #define vkisvar(k) (VLOCAL <= (k) && (k) <= VINDEXED) #define vkisinreg(k) ((k) == VNONRELOC || (k) == VLOCAL) typedef struct expdesc { expkind k; union { struct { /* for indexed variables (VINDEXED) */ short idx; /* index (R/K) */ lu_byte t; /* table (register or upvalue) */ lu_byte vt; /* whether 't' is register (VLOCAL) or upvalue (VUPVAL) */ } ind; int info; /* for generic use */ lua_Number nval; /* for VKNUM */ } u; int t; /* patch list of `exit when true' */ int f; /* patch list of `exit when false' */ } expdesc; /* description of active local variable */ typedef struct Vardesc { short idx; /* variable index in stack */ } Vardesc; /* description of pending goto statements and label statements */ typedef struct Labeldesc { TString *name; /* label identifier */ int pc; /* position in code */ int line; /* line where it appeared */ lu_byte nactvar; /* local level where it appears in current block */ } Labeldesc; /* list of labels or gotos */ typedef struct Labellist { Labeldesc *arr; /* array */ int n; /* number of entries in use */ int size; /* array size */ } Labellist; /* dynamic structures used by the parser */ typedef struct Dyndata { struct { /* list of active local variables */ Vardesc *arr; int n; int size; } actvar; Labellist gt; /* list of pending gotos */ Labellist label; /* list of active labels */ } Dyndata; /* control of blocks */ struct BlockCnt; /* defined in lparser.c */ /* state needed to generate code for a given function */ typedef struct FuncState { Proto *f; /* current function header */ Table *h; /* table to find (and reuse) elements in `k' */ struct FuncState *prev; /* enclosing function */ struct LexState *ls; /* lexical state */ struct BlockCnt *bl; /* chain of current blocks */ int pc; /* next position to code (equivalent to `ncode') */ int lasttarget; /* 'label' of last 'jump label' */ int jpc; /* list of pending jumps to `pc' */ int nk; /* number of elements in `k' */ int np; /* number of elements in `p' */ int firstlocal; /* index of first local var (in Dyndata array) */ short nlocvars; /* number of elements in 'f->locvars' */ lu_byte nactvar; /* number of active local variables */ lu_byte nups; /* number of upvalues */ lu_byte freereg; /* first free register */ } FuncState; LUAI_FUNC Closure *luaY_parser (lua_State *L, ZIO *z, Mbuffer *buff, Dyndata *dyd, const char *name, int firstchar); #endif april-ann-0.3.1/lua/lua-5.2.2/src/lstate.c000066400000000000000000000167341234204160600176400ustar00rootroot00000000000000/* ** $Id: lstate.c,v 2.99 2012/10/02 17:40:53 roberto Exp $ ** Global State ** See Copyright Notice in lua.h */ #include #include #define lstate_c #define LUA_CORE #include "lua.h" #include "lapi.h" #include "ldebug.h" #include "ldo.h" #include "lfunc.h" #include "lgc.h" #include "llex.h" #include "lmem.h" #include "lstate.h" #include "lstring.h" #include "ltable.h" #include "ltm.h" #if !defined(LUAI_GCPAUSE) #define LUAI_GCPAUSE 200 /* 200% */ #endif #if !defined(LUAI_GCMAJOR) #define LUAI_GCMAJOR 200 /* 200% */ #endif #if !defined(LUAI_GCMUL) #define LUAI_GCMUL 200 /* GC runs 'twice the speed' of memory allocation */ #endif #define MEMERRMSG "not enough memory" /* ** a macro to help the creation of a unique random seed when a state is ** created; the seed is used to randomize hashes. */ #if !defined(luai_makeseed) #include #define luai_makeseed() cast(unsigned int, time(NULL)) #endif /* ** thread state + extra space */ typedef struct LX { #if defined(LUAI_EXTRASPACE) char buff[LUAI_EXTRASPACE]; #endif lua_State l; } LX; /* ** Main thread combines a thread state and the global state */ typedef struct LG { LX l; global_State g; } LG; #define fromstate(L) (cast(LX *, cast(lu_byte *, (L)) - offsetof(LX, l))) /* ** Compute an initial seed as random as possible. In ANSI, rely on ** Address Space Layout Randomization (if present) to increase ** randomness.. */ #define addbuff(b,p,e) \ { size_t t = cast(size_t, e); \ memcpy(buff + p, &t, sizeof(t)); p += sizeof(t); } static unsigned int makeseed (lua_State *L) { char buff[4 * sizeof(size_t)]; unsigned int h = luai_makeseed(); int p = 0; addbuff(buff, p, L); /* heap variable */ addbuff(buff, p, &h); /* local variable */ addbuff(buff, p, luaO_nilobject); /* global variable */ addbuff(buff, p, &lua_newstate); /* public function */ lua_assert(p == sizeof(buff)); return luaS_hash(buff, p, h); } /* ** set GCdebt to a new value keeping the value (totalbytes + GCdebt) ** invariant */ void luaE_setdebt (global_State *g, l_mem debt) { g->totalbytes -= (debt - g->GCdebt); g->GCdebt = debt; } CallInfo *luaE_extendCI (lua_State *L) { CallInfo *ci = luaM_new(L, CallInfo); lua_assert(L->ci->next == NULL); L->ci->next = ci; ci->previous = L->ci; ci->next = NULL; return ci; } void luaE_freeCI (lua_State *L) { CallInfo *ci = L->ci; CallInfo *next = ci->next; ci->next = NULL; while ((ci = next) != NULL) { next = ci->next; luaM_free(L, ci); } } static void stack_init (lua_State *L1, lua_State *L) { int i; CallInfo *ci; /* initialize stack array */ L1->stack = luaM_newvector(L, BASIC_STACK_SIZE, TValue); L1->stacksize = BASIC_STACK_SIZE; for (i = 0; i < BASIC_STACK_SIZE; i++) setnilvalue(L1->stack + i); /* erase new stack */ L1->top = L1->stack; L1->stack_last = L1->stack + L1->stacksize - EXTRA_STACK; /* initialize first ci */ ci = &L1->base_ci; ci->next = ci->previous = NULL; ci->callstatus = 0; ci->func = L1->top; setnilvalue(L1->top++); /* 'function' entry for this 'ci' */ ci->top = L1->top + LUA_MINSTACK; L1->ci = ci; } static void freestack (lua_State *L) { if (L->stack == NULL) return; /* stack not completely built yet */ L->ci = &L->base_ci; /* free the entire 'ci' list */ luaE_freeCI(L); luaM_freearray(L, L->stack, L->stacksize); /* free stack array */ } /* ** Create registry table and its predefined values */ static void init_registry (lua_State *L, global_State *g) { TValue mt; /* create registry */ Table *registry = luaH_new(L); sethvalue(L, &g->l_registry, registry); luaH_resize(L, registry, LUA_RIDX_LAST, 0); /* registry[LUA_RIDX_MAINTHREAD] = L */ setthvalue(L, &mt, L); luaH_setint(L, registry, LUA_RIDX_MAINTHREAD, &mt); /* registry[LUA_RIDX_GLOBALS] = table of globals */ sethvalue(L, &mt, luaH_new(L)); luaH_setint(L, registry, LUA_RIDX_GLOBALS, &mt); } /* ** open parts of the state that may cause memory-allocation errors */ static void f_luaopen (lua_State *L, void *ud) { global_State *g = G(L); UNUSED(ud); stack_init(L, L); /* init stack */ init_registry(L, g); luaS_resize(L, MINSTRTABSIZE); /* initial size of string table */ luaT_init(L); luaX_init(L); /* pre-create memory-error message */ g->memerrmsg = luaS_newliteral(L, MEMERRMSG); luaS_fix(g->memerrmsg); /* it should never be collected */ g->gcrunning = 1; /* allow gc */ } /* ** preinitialize a state with consistent values without allocating ** any memory (to avoid errors) */ static void preinit_state (lua_State *L, global_State *g) { G(L) = g; L->stack = NULL; L->ci = NULL; L->stacksize = 0; L->errorJmp = NULL; L->nCcalls = 0; L->hook = NULL; L->hookmask = 0; L->basehookcount = 0; L->allowhook = 1; resethookcount(L); L->openupval = NULL; L->nny = 1; L->status = LUA_OK; L->errfunc = 0; } static void close_state (lua_State *L) { global_State *g = G(L); luaF_close(L, L->stack); /* close all upvalues for this thread */ luaC_freeallobjects(L); /* collect all objects */ luaM_freearray(L, G(L)->strt.hash, G(L)->strt.size); luaZ_freebuffer(L, &g->buff); freestack(L); lua_assert(gettotalbytes(g) == sizeof(LG)); (*g->frealloc)(g->ud, fromstate(L), sizeof(LG), 0); /* free main block */ } LUA_API lua_State *lua_newthread (lua_State *L) { lua_State *L1; lua_lock(L); luaC_checkGC(L); L1 = &luaC_newobj(L, LUA_TTHREAD, sizeof(LX), NULL, offsetof(LX, l))->th; setthvalue(L, L->top, L1); api_incr_top(L); preinit_state(L1, G(L)); L1->hookmask = L->hookmask; L1->basehookcount = L->basehookcount; L1->hook = L->hook; resethookcount(L1); luai_userstatethread(L, L1); stack_init(L1, L); /* init stack */ lua_unlock(L); return L1; } void luaE_freethread (lua_State *L, lua_State *L1) { LX *l = fromstate(L1); luaF_close(L1, L1->stack); /* close all upvalues for this thread */ lua_assert(L1->openupval == NULL); luai_userstatefree(L, L1); freestack(L1); luaM_free(L, l); } LUA_API lua_State *lua_newstate (lua_Alloc f, void *ud) { int i; lua_State *L; global_State *g; LG *l = cast(LG *, (*f)(ud, NULL, LUA_TTHREAD, sizeof(LG))); if (l == NULL) return NULL; L = &l->l.l; g = &l->g; L->next = NULL; L->tt = LUA_TTHREAD; g->currentwhite = bit2mask(WHITE0BIT, FIXEDBIT); L->marked = luaC_white(g); g->gckind = KGC_NORMAL; preinit_state(L, g); g->frealloc = f; g->ud = ud; g->mainthread = L; g->seed = makeseed(L); g->uvhead.u.l.prev = &g->uvhead; g->uvhead.u.l.next = &g->uvhead; g->gcrunning = 0; /* no GC while building state */ g->GCestimate = 0; g->strt.size = 0; g->strt.nuse = 0; g->strt.hash = NULL; setnilvalue(&g->l_registry); luaZ_initbuffer(L, &g->buff); g->panic = NULL; g->version = lua_version(NULL); g->gcstate = GCSpause; g->allgc = NULL; g->finobj = NULL; g->tobefnz = NULL; g->sweepgc = g->sweepfin = NULL; g->gray = g->grayagain = NULL; g->weak = g->ephemeron = g->allweak = NULL; g->totalbytes = sizeof(LG); g->GCdebt = 0; g->gcpause = LUAI_GCPAUSE; g->gcmajorinc = LUAI_GCMAJOR; g->gcstepmul = LUAI_GCMUL; for (i=0; i < LUA_NUMTAGS; i++) g->mt[i] = NULL; if (luaD_rawrunprotected(L, f_luaopen, NULL) != LUA_OK) { /* memory allocation error: free partial state */ close_state(L); L = NULL; } else luai_userstateopen(L); return L; } LUA_API void lua_close (lua_State *L) { L = G(L)->mainthread; /* only the main thread can be closed */ lua_lock(L); luai_userstateclose(L); close_state(L); } april-ann-0.3.1/lua/lua-5.2.2/src/lstate.h000066400000000000000000000165631234204160600176450ustar00rootroot00000000000000/* ** $Id: lstate.h,v 2.82 2012/07/02 13:37:04 roberto Exp $ ** Global State ** See Copyright Notice in lua.h */ #ifndef lstate_h #define lstate_h #include "lua.h" #include "lobject.h" #include "ltm.h" #include "lzio.h" /* ** Some notes about garbage-collected objects: All objects in Lua must ** be kept somehow accessible until being freed. ** ** Lua keeps most objects linked in list g->allgc. The link uses field ** 'next' of the CommonHeader. ** ** Strings are kept in several lists headed by the array g->strt.hash. ** ** Open upvalues are not subject to independent garbage collection. They ** are collected together with their respective threads. Lua keeps a ** double-linked list with all open upvalues (g->uvhead) so that it can ** mark objects referred by them. (They are always gray, so they must ** be remarked in the atomic step. Usually their contents would be marked ** when traversing the respective threads, but the thread may already be ** dead, while the upvalue is still accessible through closures.) ** ** Objects with finalizers are kept in the list g->finobj. ** ** The list g->tobefnz links all objects being finalized. */ struct lua_longjmp; /* defined in ldo.c */ /* extra stack space to handle TM calls and some other extras */ #define EXTRA_STACK 5 #define BASIC_STACK_SIZE (2*LUA_MINSTACK) /* kinds of Garbage Collection */ #define KGC_NORMAL 0 #define KGC_EMERGENCY 1 /* gc was forced by an allocation failure */ #define KGC_GEN 2 /* generational collection */ typedef struct stringtable { GCObject **hash; lu_int32 nuse; /* number of elements */ int size; } stringtable; /* ** information about a call */ typedef struct CallInfo { StkId func; /* function index in the stack */ StkId top; /* top for this function */ struct CallInfo *previous, *next; /* dynamic call link */ short nresults; /* expected number of results from this function */ lu_byte callstatus; ptrdiff_t extra; union { struct { /* only for Lua functions */ StkId base; /* base for this function */ const Instruction *savedpc; } l; struct { /* only for C functions */ int ctx; /* context info. in case of yields */ lua_CFunction k; /* continuation in case of yields */ ptrdiff_t old_errfunc; lu_byte old_allowhook; lu_byte status; } c; } u; } CallInfo; /* ** Bits in CallInfo status */ #define CIST_LUA (1<<0) /* call is running a Lua function */ #define CIST_HOOKED (1<<1) /* call is running a debug hook */ #define CIST_REENTRY (1<<2) /* call is running on same invocation of luaV_execute of previous call */ #define CIST_YIELDED (1<<3) /* call reentered after suspension */ #define CIST_YPCALL (1<<4) /* call is a yieldable protected call */ #define CIST_STAT (1<<5) /* call has an error status (pcall) */ #define CIST_TAIL (1<<6) /* call was tail called */ #define CIST_HOOKYIELD (1<<7) /* last hook called yielded */ #define isLua(ci) ((ci)->callstatus & CIST_LUA) /* ** `global state', shared by all threads of this state */ typedef struct global_State { lua_Alloc frealloc; /* function to reallocate memory */ void *ud; /* auxiliary data to `frealloc' */ lu_mem totalbytes; /* number of bytes currently allocated - GCdebt */ l_mem GCdebt; /* bytes allocated not yet compensated by the collector */ lu_mem GCmemtrav; /* memory traversed by the GC */ lu_mem GCestimate; /* an estimate of the non-garbage memory in use */ stringtable strt; /* hash table for strings */ TValue l_registry; unsigned int seed; /* randomized seed for hashes */ lu_byte currentwhite; lu_byte gcstate; /* state of garbage collector */ lu_byte gckind; /* kind of GC running */ lu_byte gcrunning; /* true if GC is running */ int sweepstrgc; /* position of sweep in `strt' */ GCObject *allgc; /* list of all collectable objects */ GCObject *finobj; /* list of collectable objects with finalizers */ GCObject **sweepgc; /* current position of sweep in list 'allgc' */ GCObject **sweepfin; /* current position of sweep in list 'finobj' */ GCObject *gray; /* list of gray objects */ GCObject *grayagain; /* list of objects to be traversed atomically */ GCObject *weak; /* list of tables with weak values */ GCObject *ephemeron; /* list of ephemeron tables (weak keys) */ GCObject *allweak; /* list of all-weak tables */ GCObject *tobefnz; /* list of userdata to be GC */ UpVal uvhead; /* head of double-linked list of all open upvalues */ Mbuffer buff; /* temporary buffer for string concatenation */ int gcpause; /* size of pause between successive GCs */ int gcmajorinc; /* pause between major collections (only in gen. mode) */ int gcstepmul; /* GC `granularity' */ lua_CFunction panic; /* to be called in unprotected errors */ struct lua_State *mainthread; const lua_Number *version; /* pointer to version number */ TString *memerrmsg; /* memory-error message */ TString *tmname[TM_N]; /* array with tag-method names */ struct Table *mt[LUA_NUMTAGS]; /* metatables for basic types */ } global_State; /* ** `per thread' state */ struct lua_State { CommonHeader; lu_byte status; StkId top; /* first free slot in the stack */ global_State *l_G; CallInfo *ci; /* call info for current function */ const Instruction *oldpc; /* last pc traced */ StkId stack_last; /* last free slot in the stack */ StkId stack; /* stack base */ int stacksize; unsigned short nny; /* number of non-yieldable calls in stack */ unsigned short nCcalls; /* number of nested C calls */ lu_byte hookmask; lu_byte allowhook; int basehookcount; int hookcount; lua_Hook hook; GCObject *openupval; /* list of open upvalues in this stack */ GCObject *gclist; struct lua_longjmp *errorJmp; /* current error recover point */ ptrdiff_t errfunc; /* current error handling function (stack index) */ CallInfo base_ci; /* CallInfo for first level (C calling Lua) */ }; #define G(L) (L->l_G) /* ** Union of all collectable objects */ union GCObject { GCheader gch; /* common header */ union TString ts; union Udata u; union Closure cl; struct Table h; struct Proto p; struct UpVal uv; struct lua_State th; /* thread */ }; #define gch(o) (&(o)->gch) /* macros to convert a GCObject into a specific value */ #define rawgco2ts(o) \ check_exp(novariant((o)->gch.tt) == LUA_TSTRING, &((o)->ts)) #define gco2ts(o) (&rawgco2ts(o)->tsv) #define rawgco2u(o) check_exp((o)->gch.tt == LUA_TUSERDATA, &((o)->u)) #define gco2u(o) (&rawgco2u(o)->uv) #define gco2lcl(o) check_exp((o)->gch.tt == LUA_TLCL, &((o)->cl.l)) #define gco2ccl(o) check_exp((o)->gch.tt == LUA_TCCL, &((o)->cl.c)) #define gco2cl(o) \ check_exp(novariant((o)->gch.tt) == LUA_TFUNCTION, &((o)->cl)) #define gco2t(o) check_exp((o)->gch.tt == LUA_TTABLE, &((o)->h)) #define gco2p(o) check_exp((o)->gch.tt == LUA_TPROTO, &((o)->p)) #define gco2uv(o) check_exp((o)->gch.tt == LUA_TUPVAL, &((o)->uv)) #define gco2th(o) check_exp((o)->gch.tt == LUA_TTHREAD, &((o)->th)) /* macro to convert any Lua object into a GCObject */ #define obj2gco(v) (cast(GCObject *, (v))) /* actual number of total bytes allocated */ #define gettotalbytes(g) ((g)->totalbytes + (g)->GCdebt) LUAI_FUNC void luaE_setdebt (global_State *g, l_mem debt); LUAI_FUNC void luaE_freethread (lua_State *L, lua_State *L1); LUAI_FUNC CallInfo *luaE_extendCI (lua_State *L); LUAI_FUNC void luaE_freeCI (lua_State *L); #endif april-ann-0.3.1/lua/lua-5.2.2/src/lstring.c000066400000000000000000000114441234204160600200170ustar00rootroot00000000000000/* ** $Id: lstring.c,v 2.26 2013/01/08 13:50:10 roberto Exp $ ** String table (keeps all strings handled by Lua) ** See Copyright Notice in lua.h */ #include #define lstring_c #define LUA_CORE #include "lua.h" #include "lmem.h" #include "lobject.h" #include "lstate.h" #include "lstring.h" /* ** Lua will use at most ~(2^LUAI_HASHLIMIT) bytes from a string to ** compute its hash */ #if !defined(LUAI_HASHLIMIT) #define LUAI_HASHLIMIT 5 #endif /* ** equality for long strings */ int luaS_eqlngstr (TString *a, TString *b) { size_t len = a->tsv.len; lua_assert(a->tsv.tt == LUA_TLNGSTR && b->tsv.tt == LUA_TLNGSTR); return (a == b) || /* same instance or... */ ((len == b->tsv.len) && /* equal length and ... */ (memcmp(getstr(a), getstr(b), len) == 0)); /* equal contents */ } /* ** equality for strings */ int luaS_eqstr (TString *a, TString *b) { return (a->tsv.tt == b->tsv.tt) && (a->tsv.tt == LUA_TSHRSTR ? eqshrstr(a, b) : luaS_eqlngstr(a, b)); } unsigned int luaS_hash (const char *str, size_t l, unsigned int seed) { unsigned int h = seed ^ cast(unsigned int, l); size_t l1; size_t step = (l >> LUAI_HASHLIMIT) + 1; for (l1 = l; l1 >= step; l1 -= step) h = h ^ ((h<<5) + (h>>2) + cast_byte(str[l1 - 1])); return h; } /* ** resizes the string table */ void luaS_resize (lua_State *L, int newsize) { int i; stringtable *tb = &G(L)->strt; /* cannot resize while GC is traversing strings */ luaC_runtilstate(L, ~bitmask(GCSsweepstring)); if (newsize > tb->size) { luaM_reallocvector(L, tb->hash, tb->size, newsize, GCObject *); for (i = tb->size; i < newsize; i++) tb->hash[i] = NULL; } /* rehash */ for (i=0; isize; i++) { GCObject *p = tb->hash[i]; tb->hash[i] = NULL; while (p) { /* for each node in the list */ GCObject *next = gch(p)->next; /* save next */ unsigned int h = lmod(gco2ts(p)->hash, newsize); /* new position */ gch(p)->next = tb->hash[h]; /* chain it */ tb->hash[h] = p; resetoldbit(p); /* see MOVE OLD rule */ p = next; } } if (newsize < tb->size) { /* shrinking slice must be empty */ lua_assert(tb->hash[newsize] == NULL && tb->hash[tb->size - 1] == NULL); luaM_reallocvector(L, tb->hash, tb->size, newsize, GCObject *); } tb->size = newsize; } /* ** creates a new string object */ static TString *createstrobj (lua_State *L, const char *str, size_t l, int tag, unsigned int h, GCObject **list) { TString *ts; size_t totalsize; /* total size of TString object */ totalsize = sizeof(TString) + ((l + 1) * sizeof(char)); ts = &luaC_newobj(L, tag, totalsize, list, 0)->ts; ts->tsv.len = l; ts->tsv.hash = h; ts->tsv.extra = 0; memcpy(ts+1, str, l*sizeof(char)); ((char *)(ts+1))[l] = '\0'; /* ending 0 */ return ts; } /* ** creates a new short string, inserting it into string table */ static TString *newshrstr (lua_State *L, const char *str, size_t l, unsigned int h) { GCObject **list; /* (pointer to) list where it will be inserted */ stringtable *tb = &G(L)->strt; TString *s; if (tb->nuse >= cast(lu_int32, tb->size) && tb->size <= MAX_INT/2) luaS_resize(L, tb->size*2); /* too crowded */ list = &tb->hash[lmod(h, tb->size)]; s = createstrobj(L, str, l, LUA_TSHRSTR, h, list); tb->nuse++; return s; } /* ** checks whether short string exists and reuses it or creates a new one */ static TString *internshrstr (lua_State *L, const char *str, size_t l) { GCObject *o; global_State *g = G(L); unsigned int h = luaS_hash(str, l, g->seed); for (o = g->strt.hash[lmod(h, g->strt.size)]; o != NULL; o = gch(o)->next) { TString *ts = rawgco2ts(o); if (h == ts->tsv.hash && l == ts->tsv.len && (memcmp(str, getstr(ts), l * sizeof(char)) == 0)) { if (isdead(G(L), o)) /* string is dead (but was not collected yet)? */ changewhite(o); /* resurrect it */ return ts; } } return newshrstr(L, str, l, h); /* not found; create a new string */ } /* ** new string (with explicit length) */ TString *luaS_newlstr (lua_State *L, const char *str, size_t l) { if (l <= LUAI_MAXSHORTLEN) /* short string? */ return internshrstr(L, str, l); else { if (l + 1 > (MAX_SIZET - sizeof(TString))/sizeof(char)) luaM_toobig(L); return createstrobj(L, str, l, LUA_TLNGSTR, G(L)->seed, NULL); } } /* ** new zero-terminated string */ TString *luaS_new (lua_State *L, const char *str) { return luaS_newlstr(L, str, strlen(str)); } Udata *luaS_newudata (lua_State *L, size_t s, Table *e) { Udata *u; if (s > MAX_SIZET - sizeof(Udata)) luaM_toobig(L); u = &luaC_newobj(L, LUA_TUSERDATA, sizeof(Udata) + s, NULL, 0)->u; u->uv.len = s; u->uv.metatable = NULL; u->uv.env = e; return u; } april-ann-0.3.1/lua/lua-5.2.2/src/lstring.h000066400000000000000000000023641234204160600200250ustar00rootroot00000000000000/* ** $Id: lstring.h,v 1.49 2012/02/01 21:57:15 roberto Exp $ ** String table (keep all strings handled by Lua) ** See Copyright Notice in lua.h */ #ifndef lstring_h #define lstring_h #include "lgc.h" #include "lobject.h" #include "lstate.h" #define sizestring(s) (sizeof(union TString)+((s)->len+1)*sizeof(char)) #define sizeudata(u) (sizeof(union Udata)+(u)->len) #define luaS_newliteral(L, s) (luaS_newlstr(L, "" s, \ (sizeof(s)/sizeof(char))-1)) #define luaS_fix(s) l_setbit((s)->tsv.marked, FIXEDBIT) /* ** test whether a string is a reserved word */ #define isreserved(s) ((s)->tsv.tt == LUA_TSHRSTR && (s)->tsv.extra > 0) /* ** equality for short strings, which are always internalized */ #define eqshrstr(a,b) check_exp((a)->tsv.tt == LUA_TSHRSTR, (a) == (b)) LUAI_FUNC unsigned int luaS_hash (const char *str, size_t l, unsigned int seed); LUAI_FUNC int luaS_eqlngstr (TString *a, TString *b); LUAI_FUNC int luaS_eqstr (TString *a, TString *b); LUAI_FUNC void luaS_resize (lua_State *L, int newsize); LUAI_FUNC Udata *luaS_newudata (lua_State *L, size_t s, Table *e); LUAI_FUNC TString *luaS_newlstr (lua_State *L, const char *str, size_t l); LUAI_FUNC TString *luaS_new (lua_State *L, const char *str); #endif april-ann-0.3.1/lua/lua-5.2.2/src/lstrlib.c000066400000000000000000000672771234204160600200270ustar00rootroot00000000000000/* ** $Id: lstrlib.c,v 1.178 2012/08/14 18:12:34 roberto Exp $ ** Standard library for string operations and pattern-matching ** See Copyright Notice in lua.h */ #include #include #include #include #include #define lstrlib_c #define LUA_LIB #include "lua.h" #include "lauxlib.h" #include "lualib.h" /* ** maximum number of captures that a pattern can do during ** pattern-matching. This limit is arbitrary. */ #if !defined(LUA_MAXCAPTURES) #define LUA_MAXCAPTURES 32 #endif /* macro to `unsign' a character */ #define uchar(c) ((unsigned char)(c)) static int str_len (lua_State *L) { size_t l; luaL_checklstring(L, 1, &l); lua_pushinteger(L, (lua_Integer)l); return 1; } /* translate a relative string position: negative means back from end */ static size_t posrelat (ptrdiff_t pos, size_t len) { if (pos >= 0) return (size_t)pos; else if (0u - (size_t)pos > len) return 0; else return len - ((size_t)-pos) + 1; } static int str_sub (lua_State *L) { size_t l; const char *s = luaL_checklstring(L, 1, &l); size_t start = posrelat(luaL_checkinteger(L, 2), l); size_t end = posrelat(luaL_optinteger(L, 3, -1), l); if (start < 1) start = 1; if (end > l) end = l; if (start <= end) lua_pushlstring(L, s + start - 1, end - start + 1); else lua_pushliteral(L, ""); return 1; } static int str_reverse (lua_State *L) { size_t l, i; luaL_Buffer b; const char *s = luaL_checklstring(L, 1, &l); char *p = luaL_buffinitsize(L, &b, l); for (i = 0; i < l; i++) p[i] = s[l - i - 1]; luaL_pushresultsize(&b, l); return 1; } static int str_lower (lua_State *L) { size_t l; size_t i; luaL_Buffer b; const char *s = luaL_checklstring(L, 1, &l); char *p = luaL_buffinitsize(L, &b, l); for (i=0; i> 1) static int str_rep (lua_State *L) { size_t l, lsep; const char *s = luaL_checklstring(L, 1, &l); int n = luaL_checkint(L, 2); const char *sep = luaL_optlstring(L, 3, "", &lsep); if (n <= 0) lua_pushliteral(L, ""); else if (l + lsep < l || l + lsep >= MAXSIZE / n) /* may overflow? */ return luaL_error(L, "resulting string too large"); else { size_t totallen = n * l + (n - 1) * lsep; luaL_Buffer b; char *p = luaL_buffinitsize(L, &b, totallen); while (n-- > 1) { /* first n-1 copies (followed by separator) */ memcpy(p, s, l * sizeof(char)); p += l; if (lsep > 0) { /* avoid empty 'memcpy' (may be expensive) */ memcpy(p, sep, lsep * sizeof(char)); p += lsep; } } memcpy(p, s, l * sizeof(char)); /* last copy (not followed by separator) */ luaL_pushresultsize(&b, totallen); } return 1; } static int str_byte (lua_State *L) { size_t l; const char *s = luaL_checklstring(L, 1, &l); size_t posi = posrelat(luaL_optinteger(L, 2, 1), l); size_t pose = posrelat(luaL_optinteger(L, 3, posi), l); int n, i; if (posi < 1) posi = 1; if (pose > l) pose = l; if (posi > pose) return 0; /* empty interval; return no values */ n = (int)(pose - posi + 1); if (posi + n <= pose) /* (size_t -> int) overflow? */ return luaL_error(L, "string slice too long"); luaL_checkstack(L, n, "string slice too long"); for (i=0; i= ms->level || ms->capture[l].len == CAP_UNFINISHED) return luaL_error(ms->L, "invalid capture index %%%d", l + 1); return l; } static int capture_to_close (MatchState *ms) { int level = ms->level; for (level--; level>=0; level--) if (ms->capture[level].len == CAP_UNFINISHED) return level; return luaL_error(ms->L, "invalid pattern capture"); } static const char *classend (MatchState *ms, const char *p) { switch (*p++) { case L_ESC: { if (p == ms->p_end) luaL_error(ms->L, "malformed pattern (ends with " LUA_QL("%%") ")"); return p+1; } case '[': { if (*p == '^') p++; do { /* look for a `]' */ if (p == ms->p_end) luaL_error(ms->L, "malformed pattern (missing " LUA_QL("]") ")"); if (*(p++) == L_ESC && p < ms->p_end) p++; /* skip escapes (e.g. `%]') */ } while (*p != ']'); return p+1; } default: { return p; } } } static int match_class (int c, int cl) { int res; switch (tolower(cl)) { case 'a' : res = isalpha(c); break; case 'c' : res = iscntrl(c); break; case 'd' : res = isdigit(c); break; case 'g' : res = isgraph(c); break; case 'l' : res = islower(c); break; case 'p' : res = ispunct(c); break; case 's' : res = isspace(c); break; case 'u' : res = isupper(c); break; case 'w' : res = isalnum(c); break; case 'x' : res = isxdigit(c); break; case 'z' : res = (c == 0); break; /* deprecated option */ default: return (cl == c); } return (islower(cl) ? res : !res); } static int matchbracketclass (int c, const char *p, const char *ec) { int sig = 1; if (*(p+1) == '^') { sig = 0; p++; /* skip the `^' */ } while (++p < ec) { if (*p == L_ESC) { p++; if (match_class(c, uchar(*p))) return sig; } else if ((*(p+1) == '-') && (p+2 < ec)) { p+=2; if (uchar(*(p-2)) <= c && c <= uchar(*p)) return sig; } else if (uchar(*p) == c) return sig; } return !sig; } static int singlematch (MatchState *ms, const char *s, const char *p, const char *ep) { if (s >= ms->src_end) return 0; else { int c = uchar(*s); switch (*p) { case '.': return 1; /* matches any char */ case L_ESC: return match_class(c, uchar(*(p+1))); case '[': return matchbracketclass(c, p, ep-1); default: return (uchar(*p) == c); } } } static const char *matchbalance (MatchState *ms, const char *s, const char *p) { if (p >= ms->p_end - 1) luaL_error(ms->L, "malformed pattern " "(missing arguments to " LUA_QL("%%b") ")"); if (*s != *p) return NULL; else { int b = *p; int e = *(p+1); int cont = 1; while (++s < ms->src_end) { if (*s == e) { if (--cont == 0) return s+1; } else if (*s == b) cont++; } } return NULL; /* string ends out of balance */ } static const char *max_expand (MatchState *ms, const char *s, const char *p, const char *ep) { ptrdiff_t i = 0; /* counts maximum expand for item */ while (singlematch(ms, s + i, p, ep)) i++; /* keeps trying to match with the maximum repetitions */ while (i>=0) { const char *res = match(ms, (s+i), ep+1); if (res) return res; i--; /* else didn't match; reduce 1 repetition to try again */ } return NULL; } static const char *min_expand (MatchState *ms, const char *s, const char *p, const char *ep) { for (;;) { const char *res = match(ms, s, ep+1); if (res != NULL) return res; else if (singlematch(ms, s, p, ep)) s++; /* try with one more repetition */ else return NULL; } } static const char *start_capture (MatchState *ms, const char *s, const char *p, int what) { const char *res; int level = ms->level; if (level >= LUA_MAXCAPTURES) luaL_error(ms->L, "too many captures"); ms->capture[level].init = s; ms->capture[level].len = what; ms->level = level+1; if ((res=match(ms, s, p)) == NULL) /* match failed? */ ms->level--; /* undo capture */ return res; } static const char *end_capture (MatchState *ms, const char *s, const char *p) { int l = capture_to_close(ms); const char *res; ms->capture[l].len = s - ms->capture[l].init; /* close capture */ if ((res = match(ms, s, p)) == NULL) /* match failed? */ ms->capture[l].len = CAP_UNFINISHED; /* undo capture */ return res; } static const char *match_capture (MatchState *ms, const char *s, int l) { size_t len; l = check_capture(ms, l); len = ms->capture[l].len; if ((size_t)(ms->src_end-s) >= len && memcmp(ms->capture[l].init, s, len) == 0) return s+len; else return NULL; } static const char *match (MatchState *ms, const char *s, const char *p) { if (ms->matchdepth-- == 0) luaL_error(ms->L, "pattern too complex"); init: /* using goto's to optimize tail recursion */ if (p != ms->p_end) { /* end of pattern? */ switch (*p) { case '(': { /* start capture */ if (*(p + 1) == ')') /* position capture? */ s = start_capture(ms, s, p + 2, CAP_POSITION); else s = start_capture(ms, s, p + 1, CAP_UNFINISHED); break; } case ')': { /* end capture */ s = end_capture(ms, s, p + 1); break; } case '$': { if ((p + 1) != ms->p_end) /* is the `$' the last char in pattern? */ goto dflt; /* no; go to default */ s = (s == ms->src_end) ? s : NULL; /* check end of string */ break; } case L_ESC: { /* escaped sequences not in the format class[*+?-]? */ switch (*(p + 1)) { case 'b': { /* balanced string? */ s = matchbalance(ms, s, p + 2); if (s != NULL) { p += 4; goto init; /* return match(ms, s, p + 4); */ } /* else fail (s == NULL) */ break; } case 'f': { /* frontier? */ const char *ep; char previous; p += 2; if (*p != '[') luaL_error(ms->L, "missing " LUA_QL("[") " after " LUA_QL("%%f") " in pattern"); ep = classend(ms, p); /* points to what is next */ previous = (s == ms->src_init) ? '\0' : *(s - 1); if (!matchbracketclass(uchar(previous), p, ep - 1) && matchbracketclass(uchar(*s), p, ep - 1)) { p = ep; goto init; /* return match(ms, s, ep); */ } s = NULL; /* match failed */ break; } case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': { /* capture results (%0-%9)? */ s = match_capture(ms, s, uchar(*(p + 1))); if (s != NULL) { p += 2; goto init; /* return match(ms, s, p + 2) */ } break; } default: goto dflt; } break; } default: dflt: { /* pattern class plus optional suffix */ const char *ep = classend(ms, p); /* points to optional suffix */ /* does not match at least once? */ if (!singlematch(ms, s, p, ep)) { if (*ep == '*' || *ep == '?' || *ep == '-') { /* accept empty? */ p = ep + 1; goto init; /* return match(ms, s, ep + 1); */ } else /* '+' or no suffix */ s = NULL; /* fail */ } else { /* matched once */ switch (*ep) { /* handle optional suffix */ case '?': { /* optional */ const char *res; if ((res = match(ms, s + 1, ep + 1)) != NULL) s = res; else { p = ep + 1; goto init; /* else return match(ms, s, ep + 1); */ } break; } case '+': /* 1 or more repetitions */ s++; /* 1 match already done */ /* go through */ case '*': /* 0 or more repetitions */ s = max_expand(ms, s, p, ep); break; case '-': /* 0 or more repetitions (minimum) */ s = min_expand(ms, s, p, ep); break; default: /* no suffix */ s++; p = ep; goto init; /* return match(ms, s + 1, ep); */ } } break; } } } ms->matchdepth++; return s; } static const char *lmemfind (const char *s1, size_t l1, const char *s2, size_t l2) { if (l2 == 0) return s1; /* empty strings are everywhere */ else if (l2 > l1) return NULL; /* avoids a negative `l1' */ else { const char *init; /* to search for a `*s2' inside `s1' */ l2--; /* 1st char will be checked by `memchr' */ l1 = l1-l2; /* `s2' cannot be found after that */ while (l1 > 0 && (init = (const char *)memchr(s1, *s2, l1)) != NULL) { init++; /* 1st char is already checked */ if (memcmp(init, s2+1, l2) == 0) return init-1; else { /* correct `l1' and `s1' to try again */ l1 -= init-s1; s1 = init; } } return NULL; /* not found */ } } static void push_onecapture (MatchState *ms, int i, const char *s, const char *e) { if (i >= ms->level) { if (i == 0) /* ms->level == 0, too */ lua_pushlstring(ms->L, s, e - s); /* add whole match */ else luaL_error(ms->L, "invalid capture index"); } else { ptrdiff_t l = ms->capture[i].len; if (l == CAP_UNFINISHED) luaL_error(ms->L, "unfinished capture"); if (l == CAP_POSITION) lua_pushinteger(ms->L, ms->capture[i].init - ms->src_init + 1); else lua_pushlstring(ms->L, ms->capture[i].init, l); } } static int push_captures (MatchState *ms, const char *s, const char *e) { int i; int nlevels = (ms->level == 0 && s) ? 1 : ms->level; luaL_checkstack(ms->L, nlevels, "too many captures"); for (i = 0; i < nlevels; i++) push_onecapture(ms, i, s, e); return nlevels; /* number of strings pushed */ } /* check whether pattern has no special characters */ static int nospecials (const char *p, size_t l) { size_t upto = 0; do { if (strpbrk(p + upto, SPECIALS)) return 0; /* pattern has a special character */ upto += strlen(p + upto) + 1; /* may have more after \0 */ } while (upto <= l); return 1; /* no special chars found */ } static int str_find_aux (lua_State *L, int find) { size_t ls, lp; const char *s = luaL_checklstring(L, 1, &ls); const char *p = luaL_checklstring(L, 2, &lp); size_t init = posrelat(luaL_optinteger(L, 3, 1), ls); if (init < 1) init = 1; else if (init > ls + 1) { /* start after string's end? */ lua_pushnil(L); /* cannot find anything */ return 1; } /* explicit request or no special characters? */ if (find && (lua_toboolean(L, 4) || nospecials(p, lp))) { /* do a plain search */ const char *s2 = lmemfind(s + init - 1, ls - init + 1, p, lp); if (s2) { lua_pushinteger(L, s2 - s + 1); lua_pushinteger(L, s2 - s + lp); return 2; } } else { MatchState ms; const char *s1 = s + init - 1; int anchor = (*p == '^'); if (anchor) { p++; lp--; /* skip anchor character */ } ms.L = L; ms.matchdepth = MAXCCALLS; ms.src_init = s; ms.src_end = s + ls; ms.p_end = p + lp; do { const char *res; ms.level = 0; lua_assert(ms.matchdepth == MAXCCALLS); if ((res=match(&ms, s1, p)) != NULL) { if (find) { lua_pushinteger(L, s1 - s + 1); /* start */ lua_pushinteger(L, res - s); /* end */ return push_captures(&ms, NULL, 0) + 2; } else return push_captures(&ms, s1, res); } } while (s1++ < ms.src_end && !anchor); } lua_pushnil(L); /* not found */ return 1; } static int str_find (lua_State *L) { return str_find_aux(L, 1); } static int str_match (lua_State *L) { return str_find_aux(L, 0); } static int gmatch_aux (lua_State *L) { MatchState ms; size_t ls, lp; const char *s = lua_tolstring(L, lua_upvalueindex(1), &ls); const char *p = lua_tolstring(L, lua_upvalueindex(2), &lp); const char *src; ms.L = L; ms.matchdepth = MAXCCALLS; ms.src_init = s; ms.src_end = s+ls; ms.p_end = p + lp; for (src = s + (size_t)lua_tointeger(L, lua_upvalueindex(3)); src <= ms.src_end; src++) { const char *e; ms.level = 0; lua_assert(ms.matchdepth == MAXCCALLS); if ((e = match(&ms, src, p)) != NULL) { lua_Integer newstart = e-s; if (e == src) newstart++; /* empty match? go at least one position */ lua_pushinteger(L, newstart); lua_replace(L, lua_upvalueindex(3)); return push_captures(&ms, src, e); } } return 0; /* not found */ } static int gmatch (lua_State *L) { luaL_checkstring(L, 1); luaL_checkstring(L, 2); lua_settop(L, 2); lua_pushinteger(L, 0); lua_pushcclosure(L, gmatch_aux, 3); return 1; } static void add_s (MatchState *ms, luaL_Buffer *b, const char *s, const char *e) { size_t l, i; const char *news = lua_tolstring(ms->L, 3, &l); for (i = 0; i < l; i++) { if (news[i] != L_ESC) luaL_addchar(b, news[i]); else { i++; /* skip ESC */ if (!isdigit(uchar(news[i]))) { if (news[i] != L_ESC) luaL_error(ms->L, "invalid use of " LUA_QL("%c") " in replacement string", L_ESC); luaL_addchar(b, news[i]); } else if (news[i] == '0') luaL_addlstring(b, s, e - s); else { push_onecapture(ms, news[i] - '1', s, e); luaL_addvalue(b); /* add capture to accumulated result */ } } } } static void add_value (MatchState *ms, luaL_Buffer *b, const char *s, const char *e, int tr) { lua_State *L = ms->L; switch (tr) { case LUA_TFUNCTION: { int n; lua_pushvalue(L, 3); n = push_captures(ms, s, e); lua_call(L, n, 1); break; } case LUA_TTABLE: { push_onecapture(ms, 0, s, e); lua_gettable(L, 3); break; } default: { /* LUA_TNUMBER or LUA_TSTRING */ add_s(ms, b, s, e); return; } } if (!lua_toboolean(L, -1)) { /* nil or false? */ lua_pop(L, 1); lua_pushlstring(L, s, e - s); /* keep original text */ } else if (!lua_isstring(L, -1)) luaL_error(L, "invalid replacement value (a %s)", luaL_typename(L, -1)); luaL_addvalue(b); /* add result to accumulator */ } static int str_gsub (lua_State *L) { size_t srcl, lp; const char *src = luaL_checklstring(L, 1, &srcl); const char *p = luaL_checklstring(L, 2, &lp); int tr = lua_type(L, 3); size_t max_s = luaL_optinteger(L, 4, srcl+1); int anchor = (*p == '^'); size_t n = 0; MatchState ms; luaL_Buffer b; luaL_argcheck(L, tr == LUA_TNUMBER || tr == LUA_TSTRING || tr == LUA_TFUNCTION || tr == LUA_TTABLE, 3, "string/function/table expected"); luaL_buffinit(L, &b); if (anchor) { p++; lp--; /* skip anchor character */ } ms.L = L; ms.matchdepth = MAXCCALLS; ms.src_init = src; ms.src_end = src+srcl; ms.p_end = p + lp; while (n < max_s) { const char *e; ms.level = 0; lua_assert(ms.matchdepth == MAXCCALLS); e = match(&ms, src, p); if (e) { n++; add_value(&ms, &b, src, e, tr); } if (e && e>src) /* non empty match? */ src = e; /* skip it */ else if (src < ms.src_end) luaL_addchar(&b, *src++); else break; if (anchor) break; } luaL_addlstring(&b, src, ms.src_end-src); luaL_pushresult(&b); lua_pushinteger(L, n); /* number of substitutions */ return 2; } /* }====================================================== */ /* ** {====================================================== ** STRING FORMAT ** ======================================================= */ /* ** LUA_INTFRMLEN is the length modifier for integer conversions in ** 'string.format'; LUA_INTFRM_T is the integer type corresponding to ** the previous length */ #if !defined(LUA_INTFRMLEN) /* { */ #if defined(LUA_USE_LONGLONG) #define LUA_INTFRMLEN "ll" #define LUA_INTFRM_T long long #else #define LUA_INTFRMLEN "l" #define LUA_INTFRM_T long #endif #endif /* } */ /* ** LUA_FLTFRMLEN is the length modifier for float conversions in ** 'string.format'; LUA_FLTFRM_T is the float type corresponding to ** the previous length */ #if !defined(LUA_FLTFRMLEN) #define LUA_FLTFRMLEN "" #define LUA_FLTFRM_T double #endif /* maximum size of each formatted item (> len(format('%99.99f', -1e308))) */ #define MAX_ITEM 512 /* valid flags in a format specification */ #define FLAGS "-+ #0" /* ** maximum size of each format specification (such as '%-099.99d') ** (+10 accounts for %99.99x plus margin of error) */ #define MAX_FORMAT (sizeof(FLAGS) + sizeof(LUA_INTFRMLEN) + 10) static void addquoted (lua_State *L, luaL_Buffer *b, int arg) { size_t l; const char *s = luaL_checklstring(L, arg, &l); luaL_addchar(b, '"'); while (l--) { if (*s == '"' || *s == '\\' || *s == '\n') { luaL_addchar(b, '\\'); luaL_addchar(b, *s); } else if (*s == '\0' || iscntrl(uchar(*s))) { char buff[10]; if (!isdigit(uchar(*(s+1)))) sprintf(buff, "\\%d", (int)uchar(*s)); else sprintf(buff, "\\%03d", (int)uchar(*s)); luaL_addstring(b, buff); } else luaL_addchar(b, *s); s++; } luaL_addchar(b, '"'); } static const char *scanformat (lua_State *L, const char *strfrmt, char *form) { const char *p = strfrmt; while (*p != '\0' && strchr(FLAGS, *p) != NULL) p++; /* skip flags */ if ((size_t)(p - strfrmt) >= sizeof(FLAGS)/sizeof(char)) luaL_error(L, "invalid format (repeated flags)"); if (isdigit(uchar(*p))) p++; /* skip width */ if (isdigit(uchar(*p))) p++; /* (2 digits at most) */ if (*p == '.') { p++; if (isdigit(uchar(*p))) p++; /* skip precision */ if (isdigit(uchar(*p))) p++; /* (2 digits at most) */ } if (isdigit(uchar(*p))) luaL_error(L, "invalid format (width or precision too long)"); *(form++) = '%'; memcpy(form, strfrmt, (p - strfrmt + 1) * sizeof(char)); form += p - strfrmt + 1; *form = '\0'; return p; } /* ** add length modifier into formats */ static void addlenmod (char *form, const char *lenmod) { size_t l = strlen(form); size_t lm = strlen(lenmod); char spec = form[l - 1]; strcpy(form + l - 1, lenmod); form[l + lm - 1] = spec; form[l + lm] = '\0'; } static int str_format (lua_State *L) { int top = lua_gettop(L); int arg = 1; size_t sfl; const char *strfrmt = luaL_checklstring(L, arg, &sfl); const char *strfrmt_end = strfrmt+sfl; luaL_Buffer b; luaL_buffinit(L, &b); while (strfrmt < strfrmt_end) { if (*strfrmt != L_ESC) luaL_addchar(&b, *strfrmt++); else if (*++strfrmt == L_ESC) luaL_addchar(&b, *strfrmt++); /* %% */ else { /* format item */ char form[MAX_FORMAT]; /* to store the format (`%...') */ char *buff = luaL_prepbuffsize(&b, MAX_ITEM); /* to put formatted item */ int nb = 0; /* number of bytes in added item */ if (++arg > top) luaL_argerror(L, arg, "no value"); strfrmt = scanformat(L, strfrmt, form); switch (*strfrmt++) { case 'c': { nb = sprintf(buff, form, luaL_checkint(L, arg)); break; } case 'd': case 'i': { lua_Number n = luaL_checknumber(L, arg); LUA_INTFRM_T ni = (LUA_INTFRM_T)n; lua_Number diff = n - (lua_Number)ni; luaL_argcheck(L, -1 < diff && diff < 1, arg, "not a number in proper range"); addlenmod(form, LUA_INTFRMLEN); nb = sprintf(buff, form, ni); break; } case 'o': case 'u': case 'x': case 'X': { lua_Number n = luaL_checknumber(L, arg); unsigned LUA_INTFRM_T ni = (unsigned LUA_INTFRM_T)n; lua_Number diff = n - (lua_Number)ni; luaL_argcheck(L, -1 < diff && diff < 1, arg, "not a non-negative number in proper range"); addlenmod(form, LUA_INTFRMLEN); nb = sprintf(buff, form, ni); break; } case 'e': case 'E': case 'f': #if defined(LUA_USE_AFORMAT) case 'a': case 'A': #endif case 'g': case 'G': { addlenmod(form, LUA_FLTFRMLEN); nb = sprintf(buff, form, (LUA_FLTFRM_T)luaL_checknumber(L, arg)); break; } case 'q': { addquoted(L, &b, arg); break; } case 's': { size_t l; const char *s = luaL_tolstring(L, arg, &l); if (!strchr(form, '.') && l >= 100) { /* no precision and string is too long to be formatted; keep original string */ luaL_addvalue(&b); break; } else { nb = sprintf(buff, form, s); lua_pop(L, 1); /* remove result from 'luaL_tolstring' */ break; } } default: { /* also treat cases `pnLlh' */ return luaL_error(L, "invalid option " LUA_QL("%%%c") " to " LUA_QL("format"), *(strfrmt - 1)); } } luaL_addsize(&b, nb); } } luaL_pushresult(&b); return 1; } /* }====================================================== */ static const luaL_Reg strlib[] = { {"byte", str_byte}, {"char", str_char}, {"dump", str_dump}, {"find", str_find}, {"format", str_format}, {"gmatch", gmatch}, {"gsub", str_gsub}, {"len", str_len}, {"lower", str_lower}, {"match", str_match}, {"rep", str_rep}, {"reverse", str_reverse}, {"sub", str_sub}, {"upper", str_upper}, {NULL, NULL} }; static void createmetatable (lua_State *L) { lua_createtable(L, 0, 1); /* table to be metatable for strings */ lua_pushliteral(L, ""); /* dummy string */ lua_pushvalue(L, -2); /* copy table */ lua_setmetatable(L, -2); /* set table as metatable for strings */ lua_pop(L, 1); /* pop dummy string */ lua_pushvalue(L, -2); /* get string library */ lua_setfield(L, -2, "__index"); /* metatable.__index = string */ lua_pop(L, 1); /* pop metatable */ } /* ** Open string library */ LUAMOD_API int luaopen_string (lua_State *L) { luaL_newlib(L, strlib); createmetatable(L); return 1; } april-ann-0.3.1/lua/lua-5.2.2/src/ltable.c000066400000000000000000000401361234204160600176000ustar00rootroot00000000000000/* ** $Id: ltable.c,v 2.72 2012/09/11 19:37:16 roberto Exp $ ** Lua tables (hash) ** See Copyright Notice in lua.h */ /* ** Implementation of tables (aka arrays, objects, or hash tables). ** Tables keep its elements in two parts: an array part and a hash part. ** Non-negative integer keys are all candidates to be kept in the array ** part. The actual size of the array is the largest `n' such that at ** least half the slots between 0 and n are in use. ** Hash uses a mix of chained scatter table with Brent's variation. ** A main invariant of these tables is that, if an element is not ** in its main position (i.e. the `original' position that its hash gives ** to it), then the colliding element is in its own main position. ** Hence even when the load factor reaches 100%, performance remains good. */ #include #define ltable_c #define LUA_CORE #include "lua.h" #include "ldebug.h" #include "ldo.h" #include "lgc.h" #include "lmem.h" #include "lobject.h" #include "lstate.h" #include "lstring.h" #include "ltable.h" #include "lvm.h" /* ** max size of array part is 2^MAXBITS */ #if LUAI_BITSINT >= 32 #define MAXBITS 30 #else #define MAXBITS (LUAI_BITSINT-2) #endif #define MAXASIZE (1 << MAXBITS) #define hashpow2(t,n) (gnode(t, lmod((n), sizenode(t)))) #define hashstr(t,str) hashpow2(t, (str)->tsv.hash) #define hashboolean(t,p) hashpow2(t, p) /* ** for some types, it is better to avoid modulus by power of 2, as ** they tend to have many 2 factors. */ #define hashmod(t,n) (gnode(t, ((n) % ((sizenode(t)-1)|1)))) #define hashpointer(t,p) hashmod(t, IntPoint(p)) #define dummynode (&dummynode_) #define isdummy(n) ((n) == dummynode) static const Node dummynode_ = { {NILCONSTANT}, /* value */ {{NILCONSTANT, NULL}} /* key */ }; /* ** hash for lua_Numbers */ static Node *hashnum (const Table *t, lua_Number n) { int i; luai_hashnum(i, n); if (i < 0) { if (cast(unsigned int, i) == 0u - i) /* use unsigned to avoid overflows */ i = 0; /* handle INT_MIN */ i = -i; /* must be a positive value */ } return hashmod(t, i); } /* ** returns the `main' position of an element in a table (that is, the index ** of its hash value) */ static Node *mainposition (const Table *t, const TValue *key) { switch (ttype(key)) { case LUA_TNUMBER: return hashnum(t, nvalue(key)); case LUA_TLNGSTR: { TString *s = rawtsvalue(key); if (s->tsv.extra == 0) { /* no hash? */ s->tsv.hash = luaS_hash(getstr(s), s->tsv.len, s->tsv.hash); s->tsv.extra = 1; /* now it has its hash */ } return hashstr(t, rawtsvalue(key)); } case LUA_TSHRSTR: return hashstr(t, rawtsvalue(key)); case LUA_TBOOLEAN: return hashboolean(t, bvalue(key)); case LUA_TLIGHTUSERDATA: return hashpointer(t, pvalue(key)); case LUA_TLCF: return hashpointer(t, fvalue(key)); default: return hashpointer(t, gcvalue(key)); } } /* ** returns the index for `key' if `key' is an appropriate key to live in ** the array part of the table, -1 otherwise. */ static int arrayindex (const TValue *key) { if (ttisnumber(key)) { lua_Number n = nvalue(key); int k; lua_number2int(k, n); if (luai_numeq(cast_num(k), n)) return k; } return -1; /* `key' did not match some condition */ } /* ** returns the index of a `key' for table traversals. First goes all ** elements in the array part, then elements in the hash part. The ** beginning of a traversal is signaled by -1. */ static int findindex (lua_State *L, Table *t, StkId key) { int i; if (ttisnil(key)) return -1; /* first iteration */ i = arrayindex(key); if (0 < i && i <= t->sizearray) /* is `key' inside array part? */ return i-1; /* yes; that's the index (corrected to C) */ else { Node *n = mainposition(t, key); for (;;) { /* check whether `key' is somewhere in the chain */ /* key may be dead already, but it is ok to use it in `next' */ if (luaV_rawequalobj(gkey(n), key) || (ttisdeadkey(gkey(n)) && iscollectable(key) && deadvalue(gkey(n)) == gcvalue(key))) { i = cast_int(n - gnode(t, 0)); /* key index in hash table */ /* hash elements are numbered after array ones */ return i + t->sizearray; } else n = gnext(n); if (n == NULL) luaG_runerror(L, "invalid key to " LUA_QL("next")); /* key not found */ } } } int luaH_next (lua_State *L, Table *t, StkId key) { int i = findindex(L, t, key); /* find original element */ for (i++; i < t->sizearray; i++) { /* try first array part */ if (!ttisnil(&t->array[i])) { /* a non-nil value? */ setnvalue(key, cast_num(i+1)); setobj2s(L, key+1, &t->array[i]); return 1; } } for (i -= t->sizearray; i < sizenode(t); i++) { /* then hash part */ if (!ttisnil(gval(gnode(t, i)))) { /* a non-nil value? */ setobj2s(L, key, gkey(gnode(t, i))); setobj2s(L, key+1, gval(gnode(t, i))); return 1; } } return 0; /* no more elements */ } /* ** {============================================================= ** Rehash ** ============================================================== */ static int computesizes (int nums[], int *narray) { int i; int twotoi; /* 2^i */ int a = 0; /* number of elements smaller than 2^i */ int na = 0; /* number of elements to go to array part */ int n = 0; /* optimal size for array part */ for (i = 0, twotoi = 1; twotoi/2 < *narray; i++, twotoi *= 2) { if (nums[i] > 0) { a += nums[i]; if (a > twotoi/2) { /* more than half elements present? */ n = twotoi; /* optimal size (till now) */ na = a; /* all elements smaller than n will go to array part */ } } if (a == *narray) break; /* all elements already counted */ } *narray = n; lua_assert(*narray/2 <= na && na <= *narray); return na; } static int countint (const TValue *key, int *nums) { int k = arrayindex(key); if (0 < k && k <= MAXASIZE) { /* is `key' an appropriate array index? */ nums[luaO_ceillog2(k)]++; /* count as such */ return 1; } else return 0; } static int numusearray (const Table *t, int *nums) { int lg; int ttlg; /* 2^lg */ int ause = 0; /* summation of `nums' */ int i = 1; /* count to traverse all array keys */ for (lg=0, ttlg=1; lg<=MAXBITS; lg++, ttlg*=2) { /* for each slice */ int lc = 0; /* counter */ int lim = ttlg; if (lim > t->sizearray) { lim = t->sizearray; /* adjust upper limit */ if (i > lim) break; /* no more elements to count */ } /* count elements in range (2^(lg-1), 2^lg] */ for (; i <= lim; i++) { if (!ttisnil(&t->array[i-1])) lc++; } nums[lg] += lc; ause += lc; } return ause; } static int numusehash (const Table *t, int *nums, int *pnasize) { int totaluse = 0; /* total number of elements */ int ause = 0; /* summation of `nums' */ int i = sizenode(t); while (i--) { Node *n = &t->node[i]; if (!ttisnil(gval(n))) { ause += countint(gkey(n), nums); totaluse++; } } *pnasize += ause; return totaluse; } static void setarrayvector (lua_State *L, Table *t, int size) { int i; luaM_reallocvector(L, t->array, t->sizearray, size, TValue); for (i=t->sizearray; iarray[i]); t->sizearray = size; } static void setnodevector (lua_State *L, Table *t, int size) { int lsize; if (size == 0) { /* no elements to hash part? */ t->node = cast(Node *, dummynode); /* use common `dummynode' */ lsize = 0; } else { int i; lsize = luaO_ceillog2(size); if (lsize > MAXBITS) luaG_runerror(L, "table overflow"); size = twoto(lsize); t->node = luaM_newvector(L, size, Node); for (i=0; ilsizenode = cast_byte(lsize); t->lastfree = gnode(t, size); /* all positions are free */ } void luaH_resize (lua_State *L, Table *t, int nasize, int nhsize) { int i; int oldasize = t->sizearray; int oldhsize = t->lsizenode; Node *nold = t->node; /* save old hash ... */ if (nasize > oldasize) /* array part must grow? */ setarrayvector(L, t, nasize); /* create new hash part with appropriate size */ setnodevector(L, t, nhsize); if (nasize < oldasize) { /* array part must shrink? */ t->sizearray = nasize; /* re-insert elements from vanishing slice */ for (i=nasize; iarray[i])) luaH_setint(L, t, i + 1, &t->array[i]); } /* shrink array */ luaM_reallocvector(L, t->array, oldasize, nasize, TValue); } /* re-insert elements from hash part */ for (i = twoto(oldhsize) - 1; i >= 0; i--) { Node *old = nold+i; if (!ttisnil(gval(old))) { /* doesn't need barrier/invalidate cache, as entry was already present in the table */ setobjt2t(L, luaH_set(L, t, gkey(old)), gval(old)); } } if (!isdummy(nold)) luaM_freearray(L, nold, cast(size_t, twoto(oldhsize))); /* free old array */ } void luaH_resizearray (lua_State *L, Table *t, int nasize) { int nsize = isdummy(t->node) ? 0 : sizenode(t); luaH_resize(L, t, nasize, nsize); } static void rehash (lua_State *L, Table *t, const TValue *ek) { int nasize, na; int nums[MAXBITS+1]; /* nums[i] = number of keys with 2^(i-1) < k <= 2^i */ int i; int totaluse; for (i=0; i<=MAXBITS; i++) nums[i] = 0; /* reset counts */ nasize = numusearray(t, nums); /* count keys in array part */ totaluse = nasize; /* all those keys are integer keys */ totaluse += numusehash(t, nums, &nasize); /* count keys in hash part */ /* count extra key */ nasize += countint(ek, nums); totaluse++; /* compute new size for array part */ na = computesizes(nums, &nasize); /* resize the table to new computed sizes */ luaH_resize(L, t, nasize, totaluse - na); } /* ** }============================================================= */ Table *luaH_new (lua_State *L) { Table *t = &luaC_newobj(L, LUA_TTABLE, sizeof(Table), NULL, 0)->h; t->metatable = NULL; t->flags = cast_byte(~0); t->array = NULL; t->sizearray = 0; setnodevector(L, t, 0); return t; } void luaH_free (lua_State *L, Table *t) { if (!isdummy(t->node)) luaM_freearray(L, t->node, cast(size_t, sizenode(t))); luaM_freearray(L, t->array, t->sizearray); luaM_free(L, t); } static Node *getfreepos (Table *t) { while (t->lastfree > t->node) { t->lastfree--; if (ttisnil(gkey(t->lastfree))) return t->lastfree; } return NULL; /* could not find a free place */ } /* ** inserts a new key into a hash table; first, check whether key's main ** position is free. If not, check whether colliding node is in its main ** position or not: if it is not, move colliding node to an empty place and ** put new key in its main position; otherwise (colliding node is in its main ** position), new key goes to an empty position. */ TValue *luaH_newkey (lua_State *L, Table *t, const TValue *key) { Node *mp; if (ttisnil(key)) luaG_runerror(L, "table index is nil"); else if (ttisnumber(key) && luai_numisnan(L, nvalue(key))) luaG_runerror(L, "table index is NaN"); mp = mainposition(t, key); if (!ttisnil(gval(mp)) || isdummy(mp)) { /* main position is taken? */ Node *othern; Node *n = getfreepos(t); /* get a free place */ if (n == NULL) { /* cannot find a free place? */ rehash(L, t, key); /* grow table */ /* whatever called 'newkey' take care of TM cache and GC barrier */ return luaH_set(L, t, key); /* insert key into grown table */ } lua_assert(!isdummy(n)); othern = mainposition(t, gkey(mp)); if (othern != mp) { /* is colliding node out of its main position? */ /* yes; move colliding node into free position */ while (gnext(othern) != mp) othern = gnext(othern); /* find previous */ gnext(othern) = n; /* redo the chain with `n' in place of `mp' */ *n = *mp; /* copy colliding node into free pos. (mp->next also goes) */ gnext(mp) = NULL; /* now `mp' is free */ setnilvalue(gval(mp)); } else { /* colliding node is in its own main position */ /* new node will go into free position */ gnext(n) = gnext(mp); /* chain new position */ gnext(mp) = n; mp = n; } } setobj2t(L, gkey(mp), key); luaC_barrierback(L, obj2gco(t), key); lua_assert(ttisnil(gval(mp))); return gval(mp); } /* ** search function for integers */ const TValue *luaH_getint (Table *t, int key) { /* (1 <= key && key <= t->sizearray) */ if (cast(unsigned int, key-1) < cast(unsigned int, t->sizearray)) return &t->array[key-1]; else { lua_Number nk = cast_num(key); Node *n = hashnum(t, nk); do { /* check whether `key' is somewhere in the chain */ if (ttisnumber(gkey(n)) && luai_numeq(nvalue(gkey(n)), nk)) return gval(n); /* that's it */ else n = gnext(n); } while (n); return luaO_nilobject; } } /* ** search function for short strings */ const TValue *luaH_getstr (Table *t, TString *key) { Node *n = hashstr(t, key); lua_assert(key->tsv.tt == LUA_TSHRSTR); do { /* check whether `key' is somewhere in the chain */ if (ttisshrstring(gkey(n)) && eqshrstr(rawtsvalue(gkey(n)), key)) return gval(n); /* that's it */ else n = gnext(n); } while (n); return luaO_nilobject; } /* ** main search function */ const TValue *luaH_get (Table *t, const TValue *key) { switch (ttype(key)) { case LUA_TSHRSTR: return luaH_getstr(t, rawtsvalue(key)); case LUA_TNIL: return luaO_nilobject; case LUA_TNUMBER: { int k; lua_Number n = nvalue(key); lua_number2int(k, n); if (luai_numeq(cast_num(k), n)) /* index is int? */ return luaH_getint(t, k); /* use specialized version */ /* else go through */ } default: { Node *n = mainposition(t, key); do { /* check whether `key' is somewhere in the chain */ if (luaV_rawequalobj(gkey(n), key)) return gval(n); /* that's it */ else n = gnext(n); } while (n); return luaO_nilobject; } } } /* ** beware: when using this function you probably need to check a GC ** barrier and invalidate the TM cache. */ TValue *luaH_set (lua_State *L, Table *t, const TValue *key) { const TValue *p = luaH_get(t, key); if (p != luaO_nilobject) return cast(TValue *, p); else return luaH_newkey(L, t, key); } void luaH_setint (lua_State *L, Table *t, int key, TValue *value) { const TValue *p = luaH_getint(t, key); TValue *cell; if (p != luaO_nilobject) cell = cast(TValue *, p); else { TValue k; setnvalue(&k, cast_num(key)); cell = luaH_newkey(L, t, &k); } setobj2t(L, cell, value); } static int unbound_search (Table *t, unsigned int j) { unsigned int i = j; /* i is zero or a present index */ j++; /* find `i' and `j' such that i is present and j is not */ while (!ttisnil(luaH_getint(t, j))) { i = j; j *= 2; if (j > cast(unsigned int, MAX_INT)) { /* overflow? */ /* table was built with bad purposes: resort to linear search */ i = 1; while (!ttisnil(luaH_getint(t, i))) i++; return i - 1; } } /* now do a binary search between them */ while (j - i > 1) { unsigned int m = (i+j)/2; if (ttisnil(luaH_getint(t, m))) j = m; else i = m; } return i; } /* ** Try to find a boundary in table `t'. A `boundary' is an integer index ** such that t[i] is non-nil and t[i+1] is nil (and 0 if t[1] is nil). */ int luaH_getn (Table *t) { unsigned int j = t->sizearray; if (j > 0 && ttisnil(&t->array[j - 1])) { /* there is a boundary in the array part: (binary) search for it */ unsigned int i = 0; while (j - i > 1) { unsigned int m = (i+j)/2; if (ttisnil(&t->array[m - 1])) j = m; else i = m; } return i; } /* else must find a boundary in hash part */ else if (isdummy(t->node)) /* hash part is empty? */ return j; /* that is easy... */ else return unbound_search(t, j); } #if defined(LUA_DEBUG) Node *luaH_mainposition (const Table *t, const TValue *key) { return mainposition(t, key); } int luaH_isdummy (Node *n) { return isdummy(n); } #endif april-ann-0.3.1/lua/lua-5.2.2/src/ltable.h000066400000000000000000000023531234204160600176040ustar00rootroot00000000000000/* ** $Id: ltable.h,v 2.16 2011/08/17 20:26:47 roberto Exp $ ** Lua tables (hash) ** See Copyright Notice in lua.h */ #ifndef ltable_h #define ltable_h #include "lobject.h" #define gnode(t,i) (&(t)->node[i]) #define gkey(n) (&(n)->i_key.tvk) #define gval(n) (&(n)->i_val) #define gnext(n) ((n)->i_key.nk.next) #define invalidateTMcache(t) ((t)->flags = 0) LUAI_FUNC const TValue *luaH_getint (Table *t, int key); LUAI_FUNC void luaH_setint (lua_State *L, Table *t, int key, TValue *value); LUAI_FUNC const TValue *luaH_getstr (Table *t, TString *key); LUAI_FUNC const TValue *luaH_get (Table *t, const TValue *key); LUAI_FUNC TValue *luaH_newkey (lua_State *L, Table *t, const TValue *key); LUAI_FUNC TValue *luaH_set (lua_State *L, Table *t, const TValue *key); LUAI_FUNC Table *luaH_new (lua_State *L); LUAI_FUNC void luaH_resize (lua_State *L, Table *t, int nasize, int nhsize); LUAI_FUNC void luaH_resizearray (lua_State *L, Table *t, int nasize); LUAI_FUNC void luaH_free (lua_State *L, Table *t); LUAI_FUNC int luaH_next (lua_State *L, Table *t, StkId key); LUAI_FUNC int luaH_getn (Table *t); #if defined(LUA_DEBUG) LUAI_FUNC Node *luaH_mainposition (const Table *t, const TValue *key); LUAI_FUNC int luaH_isdummy (Node *n); #endif #endif april-ann-0.3.1/lua/lua-5.2.2/src/ltablib.c000066400000000000000000000167711234204160600177560ustar00rootroot00000000000000/* ** $Id: ltablib.c,v 1.65 2013/03/07 18:17:24 roberto Exp $ ** Library for Table Manipulation ** See Copyright Notice in lua.h */ #include #define ltablib_c #define LUA_LIB #include "lua.h" #include "lauxlib.h" #include "lualib.h" #define aux_getn(L,n) (luaL_checktype(L, n, LUA_TTABLE), luaL_len(L, n)) #if defined(LUA_COMPAT_MAXN) static int maxn (lua_State *L) { lua_Number max = 0; luaL_checktype(L, 1, LUA_TTABLE); lua_pushnil(L); /* first key */ while (lua_next(L, 1)) { lua_pop(L, 1); /* remove value */ if (lua_type(L, -1) == LUA_TNUMBER) { lua_Number v = lua_tonumber(L, -1); if (v > max) max = v; } } lua_pushnumber(L, max); return 1; } #endif static int tinsert (lua_State *L) { int e = aux_getn(L, 1) + 1; /* first empty element */ int pos; /* where to insert new element */ switch (lua_gettop(L)) { case 2: { /* called with only 2 arguments */ pos = e; /* insert new element at the end */ break; } case 3: { int i; pos = luaL_checkint(L, 2); /* 2nd argument is the position */ luaL_argcheck(L, 1 <= pos && pos <= e, 2, "position out of bounds"); for (i = e; i > pos; i--) { /* move up elements */ lua_rawgeti(L, 1, i-1); lua_rawseti(L, 1, i); /* t[i] = t[i-1] */ } break; } default: { return luaL_error(L, "wrong number of arguments to " LUA_QL("insert")); } } lua_rawseti(L, 1, pos); /* t[pos] = v */ return 0; } static int tremove (lua_State *L) { int size = aux_getn(L, 1); int pos = luaL_optint(L, 2, size); if (pos != size) /* validate 'pos' if given */ luaL_argcheck(L, 1 <= pos && pos <= size + 1, 1, "position out of bounds"); lua_rawgeti(L, 1, pos); /* result = t[pos] */ for ( ; pos < size; pos++) { lua_rawgeti(L, 1, pos+1); lua_rawseti(L, 1, pos); /* t[pos] = t[pos+1] */ } lua_pushnil(L); lua_rawseti(L, 1, pos); /* t[pos] = nil */ return 1; } static void addfield (lua_State *L, luaL_Buffer *b, int i) { lua_rawgeti(L, 1, i); if (!lua_isstring(L, -1)) luaL_error(L, "invalid value (%s) at index %d in table for " LUA_QL("concat"), luaL_typename(L, -1), i); luaL_addvalue(b); } static int tconcat (lua_State *L) { luaL_Buffer b; size_t lsep; int i, last; const char *sep = luaL_optlstring(L, 2, "", &lsep); luaL_checktype(L, 1, LUA_TTABLE); i = luaL_optint(L, 3, 1); last = luaL_opt(L, luaL_checkint, 4, luaL_len(L, 1)); luaL_buffinit(L, &b); for (; i < last; i++) { addfield(L, &b, i); luaL_addlstring(&b, sep, lsep); } if (i == last) /* add last value (if interval was not empty) */ addfield(L, &b, i); luaL_pushresult(&b); return 1; } /* ** {====================================================== ** Pack/unpack ** ======================================================= */ static int pack (lua_State *L) { int n = lua_gettop(L); /* number of elements to pack */ lua_createtable(L, n, 1); /* create result table */ lua_pushinteger(L, n); lua_setfield(L, -2, "n"); /* t.n = number of elements */ if (n > 0) { /* at least one element? */ int i; lua_pushvalue(L, 1); lua_rawseti(L, -2, 1); /* insert first element */ lua_replace(L, 1); /* move table into index 1 */ for (i = n; i >= 2; i--) /* assign other elements */ lua_rawseti(L, 1, i); } return 1; /* return table */ } static int unpack (lua_State *L) { int i, e, n; luaL_checktype(L, 1, LUA_TTABLE); i = luaL_optint(L, 2, 1); e = luaL_opt(L, luaL_checkint, 3, luaL_len(L, 1)); if (i > e) return 0; /* empty range */ n = e - i + 1; /* number of elements */ if (n <= 0 || !lua_checkstack(L, n)) /* n <= 0 means arith. overflow */ return luaL_error(L, "too many results to unpack"); lua_rawgeti(L, 1, i); /* push arg[i] (avoiding overflow problems) */ while (i++ < e) /* push arg[i + 1...e] */ lua_rawgeti(L, 1, i); return n; } /* }====================================================== */ /* ** {====================================================== ** Quicksort ** (based on `Algorithms in MODULA-3', Robert Sedgewick; ** Addison-Wesley, 1993.) ** ======================================================= */ static void set2 (lua_State *L, int i, int j) { lua_rawseti(L, 1, i); lua_rawseti(L, 1, j); } static int sort_comp (lua_State *L, int a, int b) { if (!lua_isnil(L, 2)) { /* function? */ int res; lua_pushvalue(L, 2); lua_pushvalue(L, a-1); /* -1 to compensate function */ lua_pushvalue(L, b-2); /* -2 to compensate function and `a' */ lua_call(L, 2, 1); res = lua_toboolean(L, -1); lua_pop(L, 1); return res; } else /* a < b? */ return lua_compare(L, a, b, LUA_OPLT); } static void auxsort (lua_State *L, int l, int u) { while (l < u) { /* for tail recursion */ int i, j; /* sort elements a[l], a[(l+u)/2] and a[u] */ lua_rawgeti(L, 1, l); lua_rawgeti(L, 1, u); if (sort_comp(L, -1, -2)) /* a[u] < a[l]? */ set2(L, l, u); /* swap a[l] - a[u] */ else lua_pop(L, 2); if (u-l == 1) break; /* only 2 elements */ i = (l+u)/2; lua_rawgeti(L, 1, i); lua_rawgeti(L, 1, l); if (sort_comp(L, -2, -1)) /* a[i]= P */ while (lua_rawgeti(L, 1, ++i), sort_comp(L, -1, -2)) { if (i>=u) luaL_error(L, "invalid order function for sorting"); lua_pop(L, 1); /* remove a[i] */ } /* repeat --j until a[j] <= P */ while (lua_rawgeti(L, 1, --j), sort_comp(L, -3, -1)) { if (j<=l) luaL_error(L, "invalid order function for sorting"); lua_pop(L, 1); /* remove a[j] */ } if (j #define ltm_c #define LUA_CORE #include "lua.h" #include "lobject.h" #include "lstate.h" #include "lstring.h" #include "ltable.h" #include "ltm.h" static const char udatatypename[] = "userdata"; LUAI_DDEF const char *const luaT_typenames_[LUA_TOTALTAGS] = { "no value", "nil", "boolean", udatatypename, "number", "string", "table", "function", udatatypename, "thread", "proto", "upval" /* these last two cases are used for tests only */ }; void luaT_init (lua_State *L) { static const char *const luaT_eventname[] = { /* ORDER TM */ "__index", "__newindex", "__gc", "__mode", "__len", "__eq", "__add", "__sub", "__mul", "__div", "__mod", "__pow", "__unm", "__lt", "__le", "__concat", "__call" }; int i; for (i=0; itmname[i] = luaS_new(L, luaT_eventname[i]); luaS_fix(G(L)->tmname[i]); /* never collect these names */ } } /* ** function to be used with macro "fasttm": optimized for absence of ** tag methods */ const TValue *luaT_gettm (Table *events, TMS event, TString *ename) { const TValue *tm = luaH_getstr(events, ename); lua_assert(event <= TM_EQ); if (ttisnil(tm)) { /* no tag method? */ events->flags |= cast_byte(1u<metatable; break; case LUA_TUSERDATA: mt = uvalue(o)->metatable; break; default: mt = G(L)->mt[ttypenv(o)]; } return (mt ? luaH_getstr(mt, G(L)->tmname[event]) : luaO_nilobject); } april-ann-0.3.1/lua/lua-5.2.2/src/ltm.h000066400000000000000000000021411234204160600171300ustar00rootroot00000000000000/* ** $Id: ltm.h,v 2.11 2011/02/28 17:32:10 roberto Exp $ ** Tag methods ** See Copyright Notice in lua.h */ #ifndef ltm_h #define ltm_h #include "lobject.h" /* * WARNING: if you change the order of this enumeration, * grep "ORDER TM" */ typedef enum { TM_INDEX, TM_NEWINDEX, TM_GC, TM_MODE, TM_LEN, TM_EQ, /* last tag method with `fast' access */ TM_ADD, TM_SUB, TM_MUL, TM_DIV, TM_MOD, TM_POW, TM_UNM, TM_LT, TM_LE, TM_CONCAT, TM_CALL, TM_N /* number of elements in the enum */ } TMS; #define gfasttm(g,et,e) ((et) == NULL ? NULL : \ ((et)->flags & (1u<<(e))) ? NULL : luaT_gettm(et, e, (g)->tmname[e])) #define fasttm(l,et,e) gfasttm(G(l), et, e) #define ttypename(x) luaT_typenames_[(x) + 1] #define objtypename(x) ttypename(ttypenv(x)) LUAI_DDEC const char *const luaT_typenames_[LUA_TOTALTAGS]; LUAI_FUNC const TValue *luaT_gettm (Table *events, TMS event, TString *ename); LUAI_FUNC const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o, TMS event); LUAI_FUNC void luaT_init (lua_State *L); #endif april-ann-0.3.1/lua/lua-5.2.2/src/lua.c000066400000000000000000000333751234204160600171250ustar00rootroot00000000000000/* ** $Id: lua.c,v 1.206 2012/09/29 20:07:06 roberto Exp $ ** Lua stand-alone interpreter ** See Copyright Notice in lua.h */ #include #include #include #include #define lua_c #include "lua.h" #include "lauxlib.h" #include "lualib.h" #if !defined(LUA_PROMPT) #define LUA_PROMPT "> " #define LUA_PROMPT2 ">> " #endif #if !defined(LUA_PROGNAME) #define LUA_PROGNAME "lua" #endif #if !defined(LUA_MAXINPUT) #define LUA_MAXINPUT 512 #endif #if !defined(LUA_INIT) #define LUA_INIT "LUA_INIT" #endif #define LUA_INITVERSION \ LUA_INIT "_" LUA_VERSION_MAJOR "_" LUA_VERSION_MINOR /* ** lua_stdin_is_tty detects whether the standard input is a 'tty' (that ** is, whether we're running lua interactively). */ #if defined(LUA_USE_ISATTY) #include #define lua_stdin_is_tty() isatty(0) #elif defined(LUA_WIN) #include #include #define lua_stdin_is_tty() _isatty(_fileno(stdin)) #else #define lua_stdin_is_tty() 1 /* assume stdin is a tty */ #endif /* ** lua_readline defines how to show a prompt and then read a line from ** the standard input. ** lua_saveline defines how to "save" a read line in a "history". ** lua_freeline defines how to free a line read by lua_readline. */ #if defined(LUA_USE_READLINE) #include #include #include #define lua_readline(L,b,p) ((void)L, ((b)=readline(p)) != NULL) #define lua_saveline(L,idx) \ if (lua_rawlen(L,idx) > 0) /* non-empty line? */ \ add_history(lua_tostring(L, idx)); /* add it to history */ #define lua_freeline(L,b) ((void)L, free(b)) #elif !defined(lua_readline) #define lua_readline(L,b,p) \ ((void)L, fputs(p, stdout), fflush(stdout), /* show prompt */ \ fgets(b, LUA_MAXINPUT, stdin) != NULL) /* get line */ #define lua_saveline(L,idx) { (void)L; (void)idx; } #define lua_freeline(L,b) { (void)L; (void)b; } #endif lua_State *globalL = NULL; static const char *progname = LUA_PROGNAME; static void lstop (lua_State *L, lua_Debug *ar) { (void)ar; /* unused arg. */ lua_sethook(L, NULL, 0, 0); luaL_error(L, "interrupted!"); } static void laction (int i) { signal(i, SIG_DFL); /* if another SIGINT happens before lstop, terminate process (default action) */ lua_sethook(globalL, lstop, LUA_MASKCALL | LUA_MASKRET | LUA_MASKCOUNT, 1); } static void print_usage (const char *badoption) { luai_writestringerror("%s: ", progname); if (badoption[1] == 'e' || badoption[1] == 'l') luai_writestringerror("'%s' needs argument\n", badoption); else luai_writestringerror("unrecognized option '%s'\n", badoption); luai_writestringerror( "usage: %s [options] [script [args]]\n" "Available options are:\n" " -e stat execute string " LUA_QL("stat") "\n" " -i enter interactive mode after executing " LUA_QL("script") "\n" " -l name require library " LUA_QL("name") "\n" " -v show version information\n" " -E ignore environment variables\n" " -- stop handling options\n" " - stop handling options and execute stdin\n" , progname); } static void l_message (const char *pname, const char *msg) { if (pname) luai_writestringerror("%s: ", pname); luai_writestringerror("%s\n", msg); } static int report (lua_State *L, int status) { if (status != LUA_OK && !lua_isnil(L, -1)) { const char *msg = lua_tostring(L, -1); if (msg == NULL) msg = "(error object is not a string)"; l_message(progname, msg); lua_pop(L, 1); /* force a complete garbage collection in case of errors */ lua_gc(L, LUA_GCCOLLECT, 0); } return status; } /* the next function is called unprotected, so it must avoid errors */ static void finalreport (lua_State *L, int status) { if (status != LUA_OK) { const char *msg = (lua_type(L, -1) == LUA_TSTRING) ? lua_tostring(L, -1) : NULL; if (msg == NULL) msg = "(error object is not a string)"; l_message(progname, msg); lua_pop(L, 1); } } static int traceback (lua_State *L) { const char *msg = lua_tostring(L, 1); if (msg) luaL_traceback(L, L, msg, 1); else if (!lua_isnoneornil(L, 1)) { /* is there an error object? */ if (!luaL_callmeta(L, 1, "__tostring")) /* try its 'tostring' metamethod */ lua_pushliteral(L, "(no error message)"); } return 1; } static int docall (lua_State *L, int narg, int nres) { int status; int base = lua_gettop(L) - narg; /* function index */ lua_pushcfunction(L, traceback); /* push traceback function */ lua_insert(L, base); /* put it under chunk and args */ globalL = L; /* to be available to 'laction' */ signal(SIGINT, laction); status = lua_pcall(L, narg, nres, base); signal(SIGINT, SIG_DFL); lua_remove(L, base); /* remove traceback function */ return status; } static void print_version (void) { luai_writestring(LUA_COPYRIGHT, strlen(LUA_COPYRIGHT)); luai_writeline(); } static int getargs (lua_State *L, char **argv, int n) { int narg; int i; int argc = 0; while (argv[argc]) argc++; /* count total number of arguments */ narg = argc - (n + 1); /* number of arguments to the script */ luaL_checkstack(L, narg + 3, "too many arguments to script"); for (i=n+1; i < argc; i++) lua_pushstring(L, argv[i]); lua_createtable(L, narg, n + 1); for (i=0; i < argc; i++) { lua_pushstring(L, argv[i]); lua_rawseti(L, -2, i - n); } return narg; } static int dofile (lua_State *L, const char *name) { int status = luaL_loadfile(L, name); if (status == LUA_OK) status = docall(L, 0, 0); return report(L, status); } static int dostring (lua_State *L, const char *s, const char *name) { int status = luaL_loadbuffer(L, s, strlen(s), name); if (status == LUA_OK) status = docall(L, 0, 0); return report(L, status); } static int dolibrary (lua_State *L, const char *name) { int status; lua_getglobal(L, "require"); lua_pushstring(L, name); status = docall(L, 1, 1); /* call 'require(name)' */ if (status == LUA_OK) lua_setglobal(L, name); /* global[name] = require return */ return report(L, status); } static const char *get_prompt (lua_State *L, int firstline) { const char *p; lua_getglobal(L, firstline ? "_PROMPT" : "_PROMPT2"); p = lua_tostring(L, -1); if (p == NULL) p = (firstline ? LUA_PROMPT : LUA_PROMPT2); return p; } /* mark in error messages for incomplete statements */ #define EOFMARK "" #define marklen (sizeof(EOFMARK)/sizeof(char) - 1) static int incomplete (lua_State *L, int status) { if (status == LUA_ERRSYNTAX) { size_t lmsg; const char *msg = lua_tolstring(L, -1, &lmsg); if (lmsg >= marklen && strcmp(msg + lmsg - marklen, EOFMARK) == 0) { lua_pop(L, 1); return 1; } } return 0; /* else... */ } static int pushline (lua_State *L, int firstline) { char buffer[LUA_MAXINPUT]; char *b = buffer; size_t l; const char *prmt = get_prompt(L, firstline); int readstatus = lua_readline(L, b, prmt); lua_pop(L, 1); /* remove result from 'get_prompt' */ if (readstatus == 0) return 0; /* no input */ l = strlen(b); if (l > 0 && b[l-1] == '\n') /* line ends with newline? */ b[l-1] = '\0'; /* remove it */ if (firstline && b[0] == '=') /* first line starts with `=' ? */ lua_pushfstring(L, "return %s", b+1); /* change it to `return' */ else lua_pushstring(L, b); lua_freeline(L, b); return 1; } static int loadline (lua_State *L) { int status; lua_settop(L, 0); if (!pushline(L, 1)) return -1; /* no input */ for (;;) { /* repeat until gets a complete line */ size_t l; const char *line = lua_tolstring(L, 1, &l); status = luaL_loadbuffer(L, line, l, "=stdin"); if (!incomplete(L, status)) break; /* cannot try to add lines? */ if (!pushline(L, 0)) /* no more input? */ return -1; lua_pushliteral(L, "\n"); /* add a new line... */ lua_insert(L, -2); /* ...between the two lines */ lua_concat(L, 3); /* join them */ } lua_saveline(L, 1); lua_remove(L, 1); /* remove line */ return status; } static void dotty (lua_State *L) { int status; const char *oldprogname = progname; progname = NULL; while ((status = loadline(L)) != -1) { if (status == LUA_OK) status = docall(L, 0, LUA_MULTRET); report(L, status); if (status == LUA_OK && lua_gettop(L) > 0) { /* any result to print? */ luaL_checkstack(L, LUA_MINSTACK, "too many results to print"); lua_getglobal(L, "print"); lua_insert(L, 1); if (lua_pcall(L, lua_gettop(L)-1, 0, 0) != LUA_OK) l_message(progname, lua_pushfstring(L, "error calling " LUA_QL("print") " (%s)", lua_tostring(L, -1))); } } lua_settop(L, 0); /* clear stack */ luai_writeline(); progname = oldprogname; } static int handle_script (lua_State *L, char **argv, int n) { int status; const char *fname; int narg = getargs(L, argv, n); /* collect arguments */ lua_setglobal(L, "arg"); fname = argv[n]; if (strcmp(fname, "-") == 0 && strcmp(argv[n-1], "--") != 0) fname = NULL; /* stdin */ status = luaL_loadfile(L, fname); lua_insert(L, -(narg+1)); if (status == LUA_OK) status = docall(L, narg, LUA_MULTRET); else lua_pop(L, narg); return report(L, status); } /* check that argument has no extra characters at the end */ #define noextrachars(x) {if ((x)[2] != '\0') return -1;} /* indices of various argument indicators in array args */ #define has_i 0 /* -i */ #define has_v 1 /* -v */ #define has_e 2 /* -e */ #define has_E 3 /* -E */ #define num_has 4 /* number of 'has_*' */ static int collectargs (char **argv, int *args) { int i; for (i = 1; argv[i] != NULL; i++) { if (argv[i][0] != '-') /* not an option? */ return i; switch (argv[i][1]) { /* option */ case '-': noextrachars(argv[i]); return (argv[i+1] != NULL ? i+1 : 0); case '\0': return i; case 'E': args[has_E] = 1; break; case 'i': noextrachars(argv[i]); args[has_i] = 1; /* go through */ case 'v': noextrachars(argv[i]); args[has_v] = 1; break; case 'e': args[has_e] = 1; /* go through */ case 'l': /* both options need an argument */ if (argv[i][2] == '\0') { /* no concatenated argument? */ i++; /* try next 'argv' */ if (argv[i] == NULL || argv[i][0] == '-') return -(i - 1); /* no next argument or it is another option */ } break; default: /* invalid option; return its index... */ return -i; /* ...as a negative value */ } } return 0; } static int runargs (lua_State *L, char **argv, int n) { int i; for (i = 1; i < n; i++) { lua_assert(argv[i][0] == '-'); switch (argv[i][1]) { /* option */ case 'e': { const char *chunk = argv[i] + 2; if (*chunk == '\0') chunk = argv[++i]; lua_assert(chunk != NULL); if (dostring(L, chunk, "=(command line)") != LUA_OK) return 0; break; } case 'l': { const char *filename = argv[i] + 2; if (*filename == '\0') filename = argv[++i]; lua_assert(filename != NULL); if (dolibrary(L, filename) != LUA_OK) return 0; /* stop if file fails */ break; } default: break; } } return 1; } static int handle_luainit (lua_State *L) { const char *name = "=" LUA_INITVERSION; const char *init = getenv(name + 1); if (init == NULL) { name = "=" LUA_INIT; init = getenv(name + 1); /* try alternative name */ } if (init == NULL) return LUA_OK; else if (init[0] == '@') return dofile(L, init+1); else return dostring(L, init, name); } static int pmain (lua_State *L) { int argc = (int)lua_tointeger(L, 1); char **argv = (char **)lua_touserdata(L, 2); int script; int args[num_has]; args[has_i] = args[has_v] = args[has_e] = args[has_E] = 0; if (argv[0] && argv[0][0]) progname = argv[0]; script = collectargs(argv, args); if (script < 0) { /* invalid arg? */ print_usage(argv[-script]); return 0; } if (args[has_v]) print_version(); if (args[has_E]) { /* option '-E'? */ lua_pushboolean(L, 1); /* signal for libraries to ignore env. vars. */ lua_setfield(L, LUA_REGISTRYINDEX, "LUA_NOENV"); } /* open standard libraries */ luaL_checkversion(L); lua_gc(L, LUA_GCSTOP, 0); /* stop collector during initialization */ luaL_openlibs(L); /* open libraries */ #ifdef lua_userinit lua_userinit(L); /* APRIL: init packages */ #endif lua_gc(L, LUA_GCRESTART, 0); if (!args[has_E] && handle_luainit(L) != LUA_OK) return 0; /* error running LUA_INIT */ /* execute arguments -e and -l */ if (!runargs(L, argv, (script > 0) ? script : argc)) return 0; /* execute main script (if there is one) */ if (script && handle_script(L, argv, script) != LUA_OK) return 0; if (args[has_i]) /* -i option? */ dotty(L); else if (script == 0 && !args[has_e] && !args[has_v]) { /* no arguments? */ if (lua_stdin_is_tty()) { print_version(); dotty(L); } else dofile(L, NULL); /* executes stdin as a file */ } lua_pushboolean(L, 1); /* signal no errors */ return 1; } int main (int argc, char **argv) { int status, result; lua_State *L = luaL_newstate(); /* create state */ if (L == NULL) { l_message(argv[0], "cannot create state: not enough memory"); return EXIT_FAILURE; } /* call 'pmain' in protected mode */ lua_pushcfunction(L, &pmain); lua_pushinteger(L, argc); /* 1st argument */ lua_pushlightuserdata(L, argv); /* 2nd argument */ status = lua_pcall(L, 2, 1, 0); result = lua_toboolean(L, -1); /* get result */ finalreport(L, status); lua_close(L); return (result && status == LUA_OK) ? EXIT_SUCCESS : EXIT_FAILURE; } april-ann-0.3.1/lua/lua-5.2.2/src/lua.h000066400000000000000000000324351234204160600171260ustar00rootroot00000000000000/* ** $Id: lua.h,v 1.285 2013/03/15 13:04:22 roberto Exp $ ** Lua - A Scripting Language ** Lua.org, PUC-Rio, Brazil (http://www.lua.org) ** See Copyright Notice at the end of this file */ #ifndef lua_h #define lua_h #include #include #include "luaconf.h" #define LUA_VERSION_MAJOR "5" #define LUA_VERSION_MINOR "2" #define LUA_VERSION_NUM 502 #define LUA_VERSION_RELEASE "2" #define LUA_VERSION "Lua " LUA_VERSION_MAJOR "." LUA_VERSION_MINOR #define LUA_RELEASE LUA_VERSION "." LUA_VERSION_RELEASE #define LUA_COPYRIGHT LUA_RELEASE " Copyright (C) 1994-2013 Lua.org, PUC-Rio" #define LUA_AUTHORS "R. Ierusalimschy, L. H. de Figueiredo, W. Celes" /* mark for precompiled code ('Lua') */ #define LUA_SIGNATURE "\033Lua" /* option for multiple returns in 'lua_pcall' and 'lua_call' */ #define LUA_MULTRET (-1) /* ** pseudo-indices */ #define LUA_REGISTRYINDEX LUAI_FIRSTPSEUDOIDX #define lua_upvalueindex(i) (LUA_REGISTRYINDEX - (i)) /* thread status */ #define LUA_OK 0 #define LUA_YIELD 1 #define LUA_ERRRUN 2 #define LUA_ERRSYNTAX 3 #define LUA_ERRMEM 4 #define LUA_ERRGCMM 5 #define LUA_ERRERR 6 typedef struct lua_State lua_State; typedef int (*lua_CFunction) (lua_State *L); /* ** functions that read/write blocks when loading/dumping Lua chunks */ typedef const char * (*lua_Reader) (lua_State *L, void *ud, size_t *sz); typedef int (*lua_Writer) (lua_State *L, const void* p, size_t sz, void* ud); /* ** prototype for memory-allocation functions */ typedef void * (*lua_Alloc) (void *ud, void *ptr, size_t osize, size_t nsize); /* ** basic types */ #define LUA_TNONE (-1) #define LUA_TNIL 0 #define LUA_TBOOLEAN 1 #define LUA_TLIGHTUSERDATA 2 #define LUA_TNUMBER 3 #define LUA_TSTRING 4 #define LUA_TTABLE 5 #define LUA_TFUNCTION 6 #define LUA_TUSERDATA 7 #define LUA_TTHREAD 8 #define LUA_NUMTAGS 9 /* minimum Lua stack available to a C function */ #define LUA_MINSTACK 20 /* predefined values in the registry */ #define LUA_RIDX_MAINTHREAD 1 #define LUA_RIDX_GLOBALS 2 #define LUA_RIDX_LAST LUA_RIDX_GLOBALS /* type of numbers in Lua */ typedef LUA_NUMBER lua_Number; /* type for integer functions */ typedef LUA_INTEGER lua_Integer; /* unsigned integer type */ typedef LUA_UNSIGNED lua_Unsigned; /* ** generic extra include file */ #if defined(LUA_USER_H) #include LUA_USER_H #endif /* ** RCS ident string */ extern const char lua_ident[]; /* ** state manipulation */ LUA_API lua_State *(lua_newstate) (lua_Alloc f, void *ud); LUA_API void (lua_close) (lua_State *L); LUA_API lua_State *(lua_newthread) (lua_State *L); LUA_API lua_CFunction (lua_atpanic) (lua_State *L, lua_CFunction panicf); LUA_API const lua_Number *(lua_version) (lua_State *L); /* ** basic stack manipulation */ LUA_API int (lua_absindex) (lua_State *L, int idx); LUA_API int (lua_gettop) (lua_State *L); LUA_API void (lua_settop) (lua_State *L, int idx); LUA_API void (lua_pushvalue) (lua_State *L, int idx); LUA_API void (lua_remove) (lua_State *L, int idx); LUA_API void (lua_insert) (lua_State *L, int idx); LUA_API void (lua_replace) (lua_State *L, int idx); LUA_API void (lua_copy) (lua_State *L, int fromidx, int toidx); LUA_API int (lua_checkstack) (lua_State *L, int sz); LUA_API void (lua_xmove) (lua_State *from, lua_State *to, int n); /* ** access functions (stack -> C) */ LUA_API int (lua_isnumber) (lua_State *L, int idx); LUA_API int (lua_isstring) (lua_State *L, int idx); LUA_API int (lua_iscfunction) (lua_State *L, int idx); LUA_API int (lua_isuserdata) (lua_State *L, int idx); LUA_API int (lua_type) (lua_State *L, int idx); LUA_API const char *(lua_typename) (lua_State *L, int tp); LUA_API lua_Number (lua_tonumberx) (lua_State *L, int idx, int *isnum); LUA_API lua_Integer (lua_tointegerx) (lua_State *L, int idx, int *isnum); LUA_API lua_Unsigned (lua_tounsignedx) (lua_State *L, int idx, int *isnum); LUA_API int (lua_toboolean) (lua_State *L, int idx); LUA_API const char *(lua_tolstring) (lua_State *L, int idx, size_t *len); LUA_API size_t (lua_rawlen) (lua_State *L, int idx); LUA_API lua_CFunction (lua_tocfunction) (lua_State *L, int idx); LUA_API void *(lua_touserdata) (lua_State *L, int idx); LUA_API lua_State *(lua_tothread) (lua_State *L, int idx); LUA_API const void *(lua_topointer) (lua_State *L, int idx); /* ** Comparison and arithmetic functions */ #define LUA_OPADD 0 /* ORDER TM */ #define LUA_OPSUB 1 #define LUA_OPMUL 2 #define LUA_OPDIV 3 #define LUA_OPMOD 4 #define LUA_OPPOW 5 #define LUA_OPUNM 6 LUA_API void (lua_arith) (lua_State *L, int op); #define LUA_OPEQ 0 #define LUA_OPLT 1 #define LUA_OPLE 2 LUA_API int (lua_rawequal) (lua_State *L, int idx1, int idx2); LUA_API int (lua_compare) (lua_State *L, int idx1, int idx2, int op); /* ** push functions (C -> stack) */ LUA_API void (lua_pushnil) (lua_State *L); LUA_API void (lua_pushnumber) (lua_State *L, lua_Number n); LUA_API void (lua_pushinteger) (lua_State *L, lua_Integer n); LUA_API void (lua_pushunsigned) (lua_State *L, lua_Unsigned n); LUA_API const char *(lua_pushlstring) (lua_State *L, const char *s, size_t l); LUA_API const char *(lua_pushstring) (lua_State *L, const char *s); LUA_API const char *(lua_pushvfstring) (lua_State *L, const char *fmt, va_list argp); LUA_API const char *(lua_pushfstring) (lua_State *L, const char *fmt, ...); LUA_API void (lua_pushcclosure) (lua_State *L, lua_CFunction fn, int n); LUA_API void (lua_pushboolean) (lua_State *L, int b); LUA_API void (lua_pushlightuserdata) (lua_State *L, void *p); LUA_API int (lua_pushthread) (lua_State *L); /* ** get functions (Lua -> stack) */ LUA_API void (lua_getglobal) (lua_State *L, const char *var); LUA_API void (lua_gettable) (lua_State *L, int idx); LUA_API void (lua_getfield) (lua_State *L, int idx, const char *k); LUA_API void (lua_rawget) (lua_State *L, int idx); LUA_API void (lua_rawgeti) (lua_State *L, int idx, int n); LUA_API void (lua_rawgetp) (lua_State *L, int idx, const void *p); LUA_API void (lua_createtable) (lua_State *L, int narr, int nrec); LUA_API void *(lua_newuserdata) (lua_State *L, size_t sz); LUA_API int (lua_getmetatable) (lua_State *L, int objindex); LUA_API void (lua_getuservalue) (lua_State *L, int idx); /* ** set functions (stack -> Lua) */ LUA_API void (lua_setglobal) (lua_State *L, const char *var); LUA_API void (lua_settable) (lua_State *L, int idx); LUA_API void (lua_setfield) (lua_State *L, int idx, const char *k); LUA_API void (lua_rawset) (lua_State *L, int idx); LUA_API void (lua_rawseti) (lua_State *L, int idx, int n); LUA_API void (lua_rawsetp) (lua_State *L, int idx, const void *p); LUA_API int (lua_setmetatable) (lua_State *L, int objindex); LUA_API void (lua_setuservalue) (lua_State *L, int idx); /* ** 'load' and 'call' functions (load and run Lua code) */ LUA_API void (lua_callk) (lua_State *L, int nargs, int nresults, int ctx, lua_CFunction k); #define lua_call(L,n,r) lua_callk(L, (n), (r), 0, NULL) LUA_API int (lua_getctx) (lua_State *L, int *ctx); LUA_API int (lua_pcallk) (lua_State *L, int nargs, int nresults, int errfunc, int ctx, lua_CFunction k); #define lua_pcall(L,n,r,f) lua_pcallk(L, (n), (r), (f), 0, NULL) LUA_API int (lua_load) (lua_State *L, lua_Reader reader, void *dt, const char *chunkname, const char *mode); LUA_API int (lua_dump) (lua_State *L, lua_Writer writer, void *data); /* ** coroutine functions */ LUA_API int (lua_yieldk) (lua_State *L, int nresults, int ctx, lua_CFunction k); #define lua_yield(L,n) lua_yieldk(L, (n), 0, NULL) LUA_API int (lua_resume) (lua_State *L, lua_State *from, int narg); LUA_API int (lua_status) (lua_State *L); /* ** garbage-collection function and options */ #define LUA_GCSTOP 0 #define LUA_GCRESTART 1 #define LUA_GCCOLLECT 2 #define LUA_GCCOUNT 3 #define LUA_GCCOUNTB 4 #define LUA_GCSTEP 5 #define LUA_GCSETPAUSE 6 #define LUA_GCSETSTEPMUL 7 #define LUA_GCSETMAJORINC 8 #define LUA_GCISRUNNING 9 #define LUA_GCGEN 10 #define LUA_GCINC 11 LUA_API int (lua_gc) (lua_State *L, int what, int data); /* ** miscellaneous functions */ LUA_API int (lua_error) (lua_State *L); LUA_API int (lua_next) (lua_State *L, int idx); LUA_API void (lua_concat) (lua_State *L, int n); LUA_API void (lua_len) (lua_State *L, int idx); LUA_API lua_Alloc (lua_getallocf) (lua_State *L, void **ud); LUA_API void (lua_setallocf) (lua_State *L, lua_Alloc f, void *ud); /* ** =============================================================== ** some useful macros ** =============================================================== */ #define lua_tonumber(L,i) lua_tonumberx(L,i,NULL) #define lua_tointeger(L,i) lua_tointegerx(L,i,NULL) #define lua_tounsigned(L,i) lua_tounsignedx(L,i,NULL) #define lua_pop(L,n) lua_settop(L, -(n)-1) #define lua_newtable(L) lua_createtable(L, 0, 0) #define lua_register(L,n,f) (lua_pushcfunction(L, (f)), lua_setglobal(L, (n))) #define lua_pushcfunction(L,f) lua_pushcclosure(L, (f), 0) #define lua_isfunction(L,n) (lua_type(L, (n)) == LUA_TFUNCTION) #define lua_istable(L,n) (lua_type(L, (n)) == LUA_TTABLE) #define lua_islightuserdata(L,n) (lua_type(L, (n)) == LUA_TLIGHTUSERDATA) #define lua_isnil(L,n) (lua_type(L, (n)) == LUA_TNIL) #define lua_isboolean(L,n) (lua_type(L, (n)) == LUA_TBOOLEAN) #define lua_isthread(L,n) (lua_type(L, (n)) == LUA_TTHREAD) #define lua_isnone(L,n) (lua_type(L, (n)) == LUA_TNONE) #define lua_isnoneornil(L, n) (lua_type(L, (n)) <= 0) #define lua_pushliteral(L, s) \ lua_pushlstring(L, "" s, (sizeof(s)/sizeof(char))-1) #define lua_pushglobaltable(L) \ lua_rawgeti(L, LUA_REGISTRYINDEX, LUA_RIDX_GLOBALS) #define lua_tostring(L,i) lua_tolstring(L, (i), NULL) /* ** {====================================================================== ** Debug API ** ======================================================================= */ /* ** Event codes */ #define LUA_HOOKCALL 0 #define LUA_HOOKRET 1 #define LUA_HOOKLINE 2 #define LUA_HOOKCOUNT 3 #define LUA_HOOKTAILCALL 4 /* ** Event masks */ #define LUA_MASKCALL (1 << LUA_HOOKCALL) #define LUA_MASKRET (1 << LUA_HOOKRET) #define LUA_MASKLINE (1 << LUA_HOOKLINE) #define LUA_MASKCOUNT (1 << LUA_HOOKCOUNT) typedef struct lua_Debug lua_Debug; /* activation record */ /* Functions to be called by the debugger in specific events */ typedef void (*lua_Hook) (lua_State *L, lua_Debug *ar); LUA_API int (lua_getstack) (lua_State *L, int level, lua_Debug *ar); LUA_API int (lua_getinfo) (lua_State *L, const char *what, lua_Debug *ar); LUA_API const char *(lua_getlocal) (lua_State *L, const lua_Debug *ar, int n); LUA_API const char *(lua_setlocal) (lua_State *L, const lua_Debug *ar, int n); LUA_API const char *(lua_getupvalue) (lua_State *L, int funcindex, int n); LUA_API const char *(lua_setupvalue) (lua_State *L, int funcindex, int n); LUA_API void *(lua_upvalueid) (lua_State *L, int fidx, int n); LUA_API void (lua_upvaluejoin) (lua_State *L, int fidx1, int n1, int fidx2, int n2); LUA_API int (lua_sethook) (lua_State *L, lua_Hook func, int mask, int count); LUA_API lua_Hook (lua_gethook) (lua_State *L); LUA_API int (lua_gethookmask) (lua_State *L); LUA_API int (lua_gethookcount) (lua_State *L); struct lua_Debug { int event; const char *name; /* (n) */ const char *namewhat; /* (n) 'global', 'local', 'field', 'method' */ const char *what; /* (S) 'Lua', 'C', 'main', 'tail' */ const char *source; /* (S) */ int currentline; /* (l) */ int linedefined; /* (S) */ int lastlinedefined; /* (S) */ unsigned char nups; /* (u) number of upvalues */ unsigned char nparams;/* (u) number of parameters */ char isvararg; /* (u) */ char istailcall; /* (t) */ char short_src[LUA_IDSIZE]; /* (S) */ /* private part */ struct CallInfo *i_ci; /* active function */ }; /* }====================================================================== */ /****************************************************************************** * Copyright (C) 1994-2013 Lua.org, PUC-Rio. * * Permission is hereby granted, free of charge, to any person obtaining * a copy of this software and associated documentation files (the * "Software"), to deal in the Software without restriction, including * without limitation the rights to use, copy, modify, merge, publish, * distribute, sublicense, and/or sell copies of the Software, and to * permit persons to whom the Software is furnished to do so, subject to * the following conditions: * * The above copyright notice and this permission notice shall be * included in all copies or substantial portions of the Software. * * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ******************************************************************************/ #endif april-ann-0.3.1/lua/lua-5.2.2/src/lua.hpp000066400000000000000000000002771234204160600174650ustar00rootroot00000000000000// lua.hpp // Lua header files for C++ // <> not supplied automatically because Lua also compiles as C++ extern "C" { #include "lua.h" #include "lualib.h" #include "lauxlib.h" } april-ann-0.3.1/lua/lua-5.2.2/src/luac.c000066400000000000000000000233521234204160600172620ustar00rootroot00000000000000/* ** $Id: luac.c,v 1.69 2011/11/29 17:46:33 lhf Exp $ ** Lua compiler (saves bytecodes to files; also list bytecodes) ** See Copyright Notice in lua.h */ #include #include #include #include #define luac_c #define LUA_CORE #include "lua.h" #include "lauxlib.h" #include "lobject.h" #include "lstate.h" #include "lundump.h" static void PrintFunction(const Proto* f, int full); #define luaU_print PrintFunction #define PROGNAME "luac" /* default program name */ #define OUTPUT PROGNAME ".out" /* default output file */ static int listing=0; /* list bytecodes? */ static int dumping=1; /* dump bytecodes? */ static int stripping=0; /* strip debug information? */ static char Output[]={ OUTPUT }; /* default output file name */ static const char* output=Output; /* actual output file name */ static const char* progname=PROGNAME; /* actual program name */ static void fatal(const char* message) { fprintf(stderr,"%s: %s\n",progname,message); exit(EXIT_FAILURE); } static void cannot(const char* what) { fprintf(stderr,"%s: cannot %s %s: %s\n",progname,what,output,strerror(errno)); exit(EXIT_FAILURE); } static void usage(const char* message) { if (*message=='-') fprintf(stderr,"%s: unrecognized option " LUA_QS "\n",progname,message); else fprintf(stderr,"%s: %s\n",progname,message); fprintf(stderr, "usage: %s [options] [filenames]\n" "Available options are:\n" " -l list (use -l -l for full listing)\n" " -o name output to file " LUA_QL("name") " (default is \"%s\")\n" " -p parse only\n" " -s strip debug information\n" " -v show version information\n" " -- stop handling options\n" " - stop handling options and process stdin\n" ,progname,Output); exit(EXIT_FAILURE); } #define IS(s) (strcmp(argv[i],s)==0) static int doargs(int argc, char* argv[]) { int i; int version=0; if (argv[0]!=NULL && *argv[0]!=0) progname=argv[0]; for (i=1; itop+(i)) static const Proto* combine(lua_State* L, int n) { if (n==1) return toproto(L,-1); else { Proto* f; int i=n; if (lua_load(L,reader,&i,"=(" PROGNAME ")",NULL)!=LUA_OK) fatal(lua_tostring(L,-1)); f=toproto(L,-1); for (i=0; ip[i]=toproto(L,i-n-1); if (f->p[i]->sizeupvalues>0) f->p[i]->upvalues[0].instack=0; } f->sizelineinfo=0; return f; } } static int writer(lua_State* L, const void* p, size_t size, void* u) { UNUSED(L); return (fwrite(p,size,1,(FILE*)u)!=1) && (size!=0); } static int pmain(lua_State* L) { int argc=(int)lua_tointeger(L,1); char** argv=(char**)lua_touserdata(L,2); const Proto* f; int i; if (!lua_checkstack(L,argc)) fatal("too many input files"); for (i=0; i1); if (dumping) { FILE* D= (output==NULL) ? stdout : fopen(output,"wb"); if (D==NULL) cannot("open"); lua_lock(L); luaU_dump(L,f,writer,D,stripping); lua_unlock(L); if (ferror(D)) cannot("write"); if (fclose(D)) cannot("close"); } return 0; } int main(int argc, char* argv[]) { lua_State* L; int i=doargs(argc,argv); argc-=i; argv+=i; if (argc<=0) usage("no input files given"); L=luaL_newstate(); if (L==NULL) fatal("cannot create state: not enough memory"); lua_pushcfunction(L,&pmain); lua_pushinteger(L,argc); lua_pushlightuserdata(L,argv); if (lua_pcall(L,2,0,0)!=LUA_OK) fatal(lua_tostring(L,-1)); lua_close(L); return EXIT_SUCCESS; } /* ** $Id: print.c,v 1.68 2011/09/30 10:21:20 lhf Exp $ ** print bytecodes ** See Copyright Notice in lua.h */ #include #include #define luac_c #define LUA_CORE #include "ldebug.h" #include "lobject.h" #include "lopcodes.h" #define VOID(p) ((const void*)(p)) static void PrintString(const TString* ts) { const char* s=getstr(ts); size_t i,n=ts->tsv.len; printf("%c",'"'); for (i=0; ik[i]; switch (ttype(o)) { case LUA_TNIL: printf("nil"); break; case LUA_TBOOLEAN: printf(bvalue(o) ? "true" : "false"); break; case LUA_TNUMBER: printf(LUA_NUMBER_FMT,nvalue(o)); break; case LUA_TSTRING: PrintString(rawtsvalue(o)); break; default: /* cannot happen */ printf("? type=%d",ttype(o)); break; } } #define UPVALNAME(x) ((f->upvalues[x].name) ? getstr(f->upvalues[x].name) : "-") #define MYK(x) (-1-(x)) static void PrintCode(const Proto* f) { const Instruction* code=f->code; int pc,n=f->sizecode; for (pc=0; pc0) printf("[%d]\t",line); else printf("[-]\t"); printf("%-9s\t",luaP_opnames[o]); switch (getOpMode(o)) { case iABC: printf("%d",a); if (getBMode(o)!=OpArgN) printf(" %d",ISK(b) ? (MYK(INDEXK(b))) : b); if (getCMode(o)!=OpArgN) printf(" %d",ISK(c) ? (MYK(INDEXK(c))) : c); break; case iABx: printf("%d",a); if (getBMode(o)==OpArgK) printf(" %d",MYK(bx)); if (getBMode(o)==OpArgU) printf(" %d",bx); break; case iAsBx: printf("%d %d",a,sbx); break; case iAx: printf("%d",MYK(ax)); break; } switch (o) { case OP_LOADK: printf("\t; "); PrintConstant(f,bx); break; case OP_GETUPVAL: case OP_SETUPVAL: printf("\t; %s",UPVALNAME(b)); break; case OP_GETTABUP: printf("\t; %s",UPVALNAME(b)); if (ISK(c)) { printf(" "); PrintConstant(f,INDEXK(c)); } break; case OP_SETTABUP: printf("\t; %s",UPVALNAME(a)); if (ISK(b)) { printf(" "); PrintConstant(f,INDEXK(b)); } if (ISK(c)) { printf(" "); PrintConstant(f,INDEXK(c)); } break; case OP_GETTABLE: case OP_SELF: if (ISK(c)) { printf("\t; "); PrintConstant(f,INDEXK(c)); } break; case OP_SETTABLE: case OP_ADD: case OP_SUB: case OP_MUL: case OP_DIV: case OP_POW: case OP_EQ: case OP_LT: case OP_LE: if (ISK(b) || ISK(c)) { printf("\t; "); if (ISK(b)) PrintConstant(f,INDEXK(b)); else printf("-"); printf(" "); if (ISK(c)) PrintConstant(f,INDEXK(c)); else printf("-"); } break; case OP_JMP: case OP_FORLOOP: case OP_FORPREP: case OP_TFORLOOP: printf("\t; to %d",sbx+pc+2); break; case OP_CLOSURE: printf("\t; %p",VOID(f->p[bx])); break; case OP_SETLIST: if (c==0) printf("\t; %d",(int)code[++pc]); else printf("\t; %d",c); break; case OP_EXTRAARG: printf("\t; "); PrintConstant(f,ax); break; default: break; } printf("\n"); } } #define SS(x) ((x==1)?"":"s") #define S(x) (int)(x),SS(x) static void PrintHeader(const Proto* f) { const char* s=f->source ? getstr(f->source) : "=?"; if (*s=='@' || *s=='=') s++; else if (*s==LUA_SIGNATURE[0]) s="(bstring)"; else s="(string)"; printf("\n%s <%s:%d,%d> (%d instruction%s at %p)\n", (f->linedefined==0)?"main":"function",s, f->linedefined,f->lastlinedefined, S(f->sizecode),VOID(f)); printf("%d%s param%s, %d slot%s, %d upvalue%s, ", (int)(f->numparams),f->is_vararg?"+":"",SS(f->numparams), S(f->maxstacksize),S(f->sizeupvalues)); printf("%d local%s, %d constant%s, %d function%s\n", S(f->sizelocvars),S(f->sizek),S(f->sizep)); } static void PrintDebug(const Proto* f) { int i,n; n=f->sizek; printf("constants (%d) for %p:\n",n,VOID(f)); for (i=0; isizelocvars; printf("locals (%d) for %p:\n",n,VOID(f)); for (i=0; ilocvars[i].varname),f->locvars[i].startpc+1,f->locvars[i].endpc+1); } n=f->sizeupvalues; printf("upvalues (%d) for %p:\n",n,VOID(f)); for (i=0; iupvalues[i].instack,f->upvalues[i].idx); } } static void PrintFunction(const Proto* f, int full) { int i,n=f->sizep; PrintHeader(f); PrintCode(f); if (full) PrintDebug(f); for (i=0; ip[i],full); } april-ann-0.3.1/lua/lua-5.2.2/src/luaconf.h000066400000000000000000000400211234204160600177620ustar00rootroot00000000000000/* ** $Id: luaconf.h,v 1.176 2013/03/16 21:10:18 roberto Exp $ ** Configuration file for Lua ** See Copyright Notice in lua.h */ #ifndef lconfig_h #define lconfig_h #include #include /* ** ================================================================== ** Search for "@@" to find all configurable definitions. ** =================================================================== */ /* @@ LUA_ANSI controls the use of non-ansi features. ** CHANGE it (define it) if you want Lua to avoid the use of any ** non-ansi feature or library. */ #if !defined(LUA_ANSI) && defined(__STRICT_ANSI__) #define LUA_ANSI #endif #if !defined(LUA_ANSI) && defined(_WIN32) && !defined(_WIN32_WCE) #define LUA_WIN /* enable goodies for regular Windows platforms */ #endif #if defined(LUA_WIN) #define LUA_DL_DLL #define LUA_USE_AFORMAT /* assume 'printf' handles 'aA' specifiers */ #endif #if defined(LUA_USE_LINUX) #define LUA_USE_POSIX #define LUA_USE_DLOPEN /* needs an extra library: -ldl */ #define LUA_USE_READLINE /* needs some extra libraries */ #define LUA_USE_STRTODHEX /* assume 'strtod' handles hex formats */ #define LUA_USE_AFORMAT /* assume 'printf' handles 'aA' specifiers */ #define LUA_USE_LONGLONG /* assume support for long long */ #endif #if defined(LUA_USE_MACOSX) #define LUA_USE_POSIX #define LUA_USE_DLOPEN /* does not need -ldl */ #define LUA_USE_READLINE /* needs an extra library: -lreadline */ #define LUA_USE_STRTODHEX /* assume 'strtod' handles hex formats */ #define LUA_USE_AFORMAT /* assume 'printf' handles 'aA' specifiers */ #define LUA_USE_LONGLONG /* assume support for long long */ #endif /* @@ LUA_USE_POSIX includes all functionality listed as X/Open System @* Interfaces Extension (XSI). ** CHANGE it (define it) if your system is XSI compatible. */ #if defined(LUA_USE_POSIX) #define LUA_USE_MKSTEMP #define LUA_USE_ISATTY #define LUA_USE_POPEN #define LUA_USE_ULONGJMP #define LUA_USE_GMTIME_R #endif /* @@ LUA_PATH_DEFAULT is the default path that Lua uses to look for @* Lua libraries. @@ LUA_CPATH_DEFAULT is the default path that Lua uses to look for @* C libraries. ** CHANGE them if your machine has a non-conventional directory ** hierarchy or if you want to install your libraries in ** non-conventional directories. */ #if defined(_WIN32) /* { */ /* ** In Windows, any exclamation mark ('!') in the path is replaced by the ** path of the directory of the executable file of the current process. */ #define LUA_LDIR "!\\lua\\" #define LUA_CDIR "!\\" #define LUA_PATH_DEFAULT \ LUA_LDIR"?.lua;" LUA_LDIR"?\\init.lua;" \ LUA_CDIR"?.lua;" LUA_CDIR"?\\init.lua;" ".\\?.lua" #define LUA_CPATH_DEFAULT \ LUA_CDIR"?.dll;" LUA_CDIR"loadall.dll;" ".\\?.dll" #elif __APPLE__ /* }{ */ #define LUA_VDIR LUA_VERSION_MAJOR "." LUA_VERSION_MINOR "/" #define LUA_ROOT "/usr/" #define LUA_LDIR LUA_ROOT "share/lua/" LUA_VDIR #define LUA_CDIR LUA_ROOT "lib/lua/" LUA_VDIR #define LUA_PATH_DEFAULT \ LUA_LDIR"?.lua;" LUA_LDIR"?/init.lua;" \ LUA_CDIR"?.lua;" LUA_CDIR"?/init.lua;" "./?.lua" #define LUA_CPATH_DEFAULT \ LUA_CDIR"?.so;" LUA_CDIR"loadall.so;" \ "./?.so;" #elif __linux /* }{ */ /* This defines DEB_HOST_MULTIARCH */ #include "lua5.2-deb-multiarch.h" #define LUA_VDIR LUA_VERSION_MAJOR "." LUA_VERSION_MINOR "/" #define LUA_ROOT "/usr/local/" #define LUA_ROOT2 "/usr/" #define LUA_LDIR LUA_ROOT "share/lua/" LUA_VDIR #define LUA_LDIR2 LUA_ROOT2 "share/lua/" LUA_VDIR #define LUA_CDIR LUA_ROOT "lib/lua/" LUA_VDIR #define LUA_CDIR2 LUA_ROOT2 "lib/" DEB_HOST_MULTIARCH "/lua/" LUA_VDIR #define LUA_CDIR3 LUA_ROOT2 "lib/lua/" LUA_VDIR #define LUA_PATH_DEFAULT \ LUA_LDIR"?.lua;" LUA_LDIR"?/init.lua;" \ LUA_CDIR"?.lua;" LUA_CDIR"?/init.lua;" "./?.lua;" \ LUA_LDIR2"?.lua;" LUA_LDIR2"?/init.lua;" "./?.lua" #define LUA_CPATH_DEFAULT \ LUA_CDIR"?.so;" LUA_CDIR2"?.so;" \ LUA_CDIR3"?.so;" LUA_CDIR"loadall.so;" "./?.so" #else /* } */ #error "Unknown platform" #endif /* } */ /* @@ LUA_DIRSEP is the directory separator (for submodules). ** CHANGE it if your machine does not use "/" as the directory separator ** and is not Windows. (On Windows Lua automatically uses "\".) */ #if defined(_WIN32) #define LUA_DIRSEP "\\" #else #define LUA_DIRSEP "/" #endif /* @@ LUA_ENV is the name of the variable that holds the current @@ environment, used to access global names. ** CHANGE it if you do not like this name. */ #define LUA_ENV "_ENV" /* @@ LUA_API is a mark for all core API functions. @@ LUALIB_API is a mark for all auxiliary library functions. @@ LUAMOD_API is a mark for all standard library opening functions. ** CHANGE them if you need to define those functions in some special way. ** For instance, if you want to create one Windows DLL with the core and ** the libraries, you may want to use the following definition (define ** LUA_BUILD_AS_DLL to get it). */ #if defined(LUA_BUILD_AS_DLL) /* { */ #if defined(LUA_CORE) || defined(LUA_LIB) /* { */ #define LUA_API __declspec(dllexport) #else /* }{ */ #define LUA_API __declspec(dllimport) #endif /* } */ #else /* }{ */ #define LUA_API extern #endif /* } */ /* more often than not the libs go together with the core */ #define LUALIB_API LUA_API #define LUAMOD_API LUALIB_API /* @@ LUAI_FUNC is a mark for all extern functions that are not to be @* exported to outside modules. @@ LUAI_DDEF and LUAI_DDEC are marks for all extern (const) variables @* that are not to be exported to outside modules (LUAI_DDEF for @* definitions and LUAI_DDEC for declarations). ** CHANGE them if you need to mark them in some special way. Elf/gcc ** (versions 3.2 and later) mark them as "hidden" to optimize access ** when Lua is compiled as a shared library. Not all elf targets support ** this attribute. Unfortunately, gcc does not offer a way to check ** whether the target offers that support, and those without support ** give a warning about it. To avoid these warnings, change to the ** default definition. */ #if defined(__GNUC__) && ((__GNUC__*100 + __GNUC_MINOR__) >= 302) && \ defined(__ELF__) /* { */ #define LUAI_FUNC __attribute__((visibility("hidden"))) extern #define LUAI_DDEC LUAI_FUNC #define LUAI_DDEF /* empty */ #else /* }{ */ #define LUAI_FUNC extern #define LUAI_DDEC extern #define LUAI_DDEF /* empty */ #endif /* } */ /* @@ LUA_QL describes how error messages quote program elements. ** CHANGE it if you want a different appearance. */ #define LUA_QL(x) "'" x "'" #define LUA_QS LUA_QL("%s") /* @@ LUA_IDSIZE gives the maximum size for the description of the source @* of a function in debug information. ** CHANGE it if you want a different size. */ #define LUA_IDSIZE 60 /* @@ luai_writestring/luai_writeline define how 'print' prints its results. ** They are only used in libraries and the stand-alone program. (The #if ** avoids including 'stdio.h' everywhere.) */ #if defined(LUA_LIB) || defined(lua_c) #include #define luai_writestring(s,l) fwrite((s), sizeof(char), (l), stdout) #define luai_writeline() (luai_writestring("\n", 1), fflush(stdout)) #endif /* @@ luai_writestringerror defines how to print error messages. ** (A format string with one argument is enough for Lua...) */ #define luai_writestringerror(s,p) \ (fprintf(stderr, (s), (p)), fflush(stderr)) /* @@ LUAI_MAXSHORTLEN is the maximum length for short strings, that is, ** strings that are internalized. (Cannot be smaller than reserved words ** or tags for metamethods, as these strings must be internalized; ** #("function") = 8, #("__newindex") = 10.) */ #define LUAI_MAXSHORTLEN 40 /* ** {================================================================== ** Compatibility with previous versions ** =================================================================== */ /* @@ LUA_COMPAT_ALL controls all compatibility options. ** You can define it to get all options, or change specific options ** to fit your specific needs. */ #if defined(LUA_COMPAT_ALL) /* { */ /* @@ LUA_COMPAT_UNPACK controls the presence of global 'unpack'. ** You can replace it with 'table.unpack'. */ #define LUA_COMPAT_UNPACK /* @@ LUA_COMPAT_LOADERS controls the presence of table 'package.loaders'. ** You can replace it with 'package.searchers'. */ #define LUA_COMPAT_LOADERS /* @@ macro 'lua_cpcall' emulates deprecated function lua_cpcall. ** You can call your C function directly (with light C functions). */ #define lua_cpcall(L,f,u) \ (lua_pushcfunction(L, (f)), \ lua_pushlightuserdata(L,(u)), \ lua_pcall(L,1,0,0)) /* @@ LUA_COMPAT_LOG10 defines the function 'log10' in the math library. ** You can rewrite 'log10(x)' as 'log(x, 10)'. */ #define LUA_COMPAT_LOG10 /* @@ LUA_COMPAT_LOADSTRING defines the function 'loadstring' in the base ** library. You can rewrite 'loadstring(s)' as 'load(s)'. */ #define LUA_COMPAT_LOADSTRING /* @@ LUA_COMPAT_MAXN defines the function 'maxn' in the table library. */ #define LUA_COMPAT_MAXN /* @@ The following macros supply trivial compatibility for some ** changes in the API. The macros themselves document how to ** change your code to avoid using them. */ #define lua_strlen(L,i) lua_rawlen(L, (i)) #define lua_objlen(L,i) lua_rawlen(L, (i)) #define lua_equal(L,idx1,idx2) lua_compare(L,(idx1),(idx2),LUA_OPEQ) #define lua_lessthan(L,idx1,idx2) lua_compare(L,(idx1),(idx2),LUA_OPLT) /* @@ LUA_COMPAT_MODULE controls compatibility with previous ** module functions 'module' (Lua) and 'luaL_register' (C). */ #define LUA_COMPAT_MODULE #endif /* } */ /* }================================================================== */ /* @@ LUAI_BITSINT defines the number of bits in an int. ** CHANGE here if Lua cannot automatically detect the number of bits of ** your machine. Probably you do not need to change this. */ /* avoid overflows in comparison */ #if INT_MAX-20 < 32760 /* { */ #define LUAI_BITSINT 16 #elif INT_MAX > 2147483640L /* }{ */ /* int has at least 32 bits */ #define LUAI_BITSINT 32 #else /* }{ */ #error "you must define LUA_BITSINT with number of bits in an integer" #endif /* } */ /* @@ LUA_INT32 is an signed integer with exactly 32 bits. @@ LUAI_UMEM is an unsigned integer big enough to count the total @* memory used by Lua. @@ LUAI_MEM is a signed integer big enough to count the total memory @* used by Lua. ** CHANGE here if for some weird reason the default definitions are not ** good enough for your machine. Probably you do not need to change ** this. */ #if LUAI_BITSINT >= 32 /* { */ #define LUA_INT32 int #define LUAI_UMEM size_t #define LUAI_MEM ptrdiff_t #else /* }{ */ /* 16-bit ints */ #define LUA_INT32 long #define LUAI_UMEM unsigned long #define LUAI_MEM long #endif /* } */ /* @@ LUAI_MAXSTACK limits the size of the Lua stack. ** CHANGE it if you need a different limit. This limit is arbitrary; ** its only purpose is to stop Lua to consume unlimited stack ** space (and to reserve some numbers for pseudo-indices). */ #if LUAI_BITSINT >= 32 #define LUAI_MAXSTACK 1000000 #else #define LUAI_MAXSTACK 15000 #endif /* reserve some space for error handling */ #define LUAI_FIRSTPSEUDOIDX (-LUAI_MAXSTACK - 1000) /* @@ LUAL_BUFFERSIZE is the buffer size used by the lauxlib buffer system. ** CHANGE it if it uses too much C-stack space. */ #define LUAL_BUFFERSIZE BUFSIZ /* ** {================================================================== @@ LUA_NUMBER is the type of numbers in Lua. ** CHANGE the following definitions only if you want to build Lua ** with a number type different from double. You may also need to ** change lua_number2int & lua_number2integer. ** =================================================================== */ #define LUA_NUMBER_DOUBLE #define LUA_NUMBER double /* @@ LUAI_UACNUMBER is the result of an 'usual argument conversion' @* over a number. */ #define LUAI_UACNUMBER double /* @@ LUA_NUMBER_SCAN is the format for reading numbers. @@ LUA_NUMBER_FMT is the format for writing numbers. @@ lua_number2str converts a number to a string. @@ LUAI_MAXNUMBER2STR is maximum size of previous conversion. */ #define LUA_NUMBER_SCAN "%lf" #define LUA_NUMBER_FMT "%.14g" #define lua_number2str(s,n) sprintf((s), LUA_NUMBER_FMT, (n)) #define LUAI_MAXNUMBER2STR 32 /* 16 digits, sign, point, and \0 */ /* @@ l_mathop allows the addition of an 'l' or 'f' to all math operations */ #define l_mathop(x) (x) /* @@ lua_str2number converts a decimal numeric string to a number. @@ lua_strx2number converts an hexadecimal numeric string to a number. ** In C99, 'strtod' does both conversions. C89, however, has no function ** to convert floating hexadecimal strings to numbers. For these ** systems, you can leave 'lua_strx2number' undefined and Lua will ** provide its own implementation. */ #define lua_str2number(s,p) strtod((s), (p)) #if defined(LUA_USE_STRTODHEX) #define lua_strx2number(s,p) strtod((s), (p)) #endif /* @@ The luai_num* macros define the primitive operations over numbers. */ /* the following operations need the math library */ #if defined(lobject_c) || defined(lvm_c) #include #define luai_nummod(L,a,b) ((a) - l_mathop(floor)((a)/(b))*(b)) #define luai_numpow(L,a,b) (l_mathop(pow)(a,b)) #endif /* these are quite standard operations */ #if defined(LUA_CORE) #define luai_numadd(L,a,b) ((a)+(b)) #define luai_numsub(L,a,b) ((a)-(b)) #define luai_nummul(L,a,b) ((a)*(b)) #define luai_numdiv(L,a,b) ((a)/(b)) #define luai_numunm(L,a) (-(a)) #define luai_numeq(a,b) ((a)==(b)) #define luai_numlt(L,a,b) ((a)<(b)) #define luai_numle(L,a,b) ((a)<=(b)) #define luai_numisnan(L,a) (!luai_numeq((a), (a))) #endif /* @@ LUA_INTEGER is the integral type used by lua_pushinteger/lua_tointeger. ** CHANGE that if ptrdiff_t is not adequate on your machine. (On most ** machines, ptrdiff_t gives a good choice between int or long.) */ #define LUA_INTEGER ptrdiff_t /* @@ LUA_UNSIGNED is the integral type used by lua_pushunsigned/lua_tounsigned. ** It must have at least 32 bits. */ #define LUA_UNSIGNED unsigned LUA_INT32 /* ** Some tricks with doubles */ #if defined(LUA_NUMBER_DOUBLE) && !defined(LUA_ANSI) /* { */ /* ** The next definitions activate some tricks to speed up the ** conversion from doubles to integer types, mainly to LUA_UNSIGNED. ** @@ LUA_MSASMTRICK uses Microsoft assembler to avoid clashes with a ** DirectX idiosyncrasy. ** @@ LUA_IEEE754TRICK uses a trick that should work on any machine ** using IEEE754 with a 32-bit integer type. ** @@ LUA_IEEELL extends the trick to LUA_INTEGER; should only be ** defined when LUA_INTEGER is a 32-bit integer. ** @@ LUA_IEEEENDIAN is the endianness of doubles in your machine ** (0 for little endian, 1 for big endian); if not defined, Lua will ** check it dynamically for LUA_IEEE754TRICK (but not for LUA_NANTRICK). ** @@ LUA_NANTRICK controls the use of a trick to pack all types into ** a single double value, using NaN values to represent non-number ** values. The trick only works on 32-bit machines (ints and pointers ** are 32-bit values) with numbers represented as IEEE 754-2008 doubles ** with conventional endianess (12345678 or 87654321), in CPUs that do ** not produce signaling NaN values (all NaNs are quiet). */ /* Microsoft compiler on a Pentium (32 bit) ? */ #if defined(LUA_WIN) && defined(_MSC_VER) && defined(_M_IX86) /* { */ #define LUA_MSASMTRICK #define LUA_IEEEENDIAN 0 #define LUA_NANTRICK /* pentium 32 bits? */ #elif defined(__i386__) || defined(__i386) || defined(__X86__) /* }{ */ #define LUA_IEEE754TRICK #define LUA_IEEELL #define LUA_IEEEENDIAN 0 #define LUA_NANTRICK /* pentium 64 bits? */ #elif defined(__x86_64) /* }{ */ #define LUA_IEEE754TRICK #define LUA_IEEEENDIAN 0 #elif defined(__POWERPC__) || defined(__ppc__) /* }{ */ #define LUA_IEEE754TRICK #define LUA_IEEEENDIAN 1 #else /* }{ */ /* assume IEEE754 and a 32-bit integer type */ #define LUA_IEEE754TRICK #endif /* } */ #endif /* } */ /* }================================================================== */ /* =================================================================== */ /* ** Local configuration. You can use this space to add your redefinitions ** without modifying the main part of the file. */ #endif april-ann-0.3.1/lua/lua-5.2.2/src/lualib.h000066400000000000000000000035771234204160600176220ustar00rootroot00000000000000/* ** $Id: lualib.h,v 1.43 2011/12/08 12:11:37 roberto Exp $ ** Lua standard libraries ** See Copyright Notice in lua.h */ #ifndef lualib_h #define lualib_h #include "lua.h" /* ** {====================================================== ** lua_popen spawns a new process connected to the current ** one through the file streams. ** ======================================================= */ #if !defined(lua_popen) /* { */ #if defined(LUA_USE_POPEN) /* { */ #define lua_popen(L,c,m) ((void)L, fflush(NULL), popen(c,m)) #define lua_pclose(L,file) ((void)L, pclose(file)) #elif defined(LUA_WIN) /* }{ */ #define lua_popen(L,c,m) ((void)L, _popen(c,m)) #define lua_pclose(L,file) ((void)L, _pclose(file)) #else /* }{ */ #define lua_popen(L,c,m) ((void)((void)c, m), \ luaL_error(L, LUA_QL("popen") " not supported"), (FILE*)0) #define lua_pclose(L,file) ((void)((void)L, file), -1) #endif /* } */ #endif /* } */ /* }====================================================== */ LUAMOD_API int (luaopen_base) (lua_State *L); #define LUA_COLIBNAME "coroutine" LUAMOD_API int (luaopen_coroutine) (lua_State *L); #define LUA_TABLIBNAME "table" LUAMOD_API int (luaopen_table) (lua_State *L); #define LUA_IOLIBNAME "io" LUAMOD_API int (luaopen_io) (lua_State *L); #define LUA_OSLIBNAME "os" LUAMOD_API int (luaopen_os) (lua_State *L); #define LUA_STRLIBNAME "string" LUAMOD_API int (luaopen_string) (lua_State *L); #define LUA_BITLIBNAME "bit32" LUAMOD_API int (luaopen_bit32) (lua_State *L); #define LUA_MATHLIBNAME "math" LUAMOD_API int (luaopen_math) (lua_State *L); #define LUA_DBLIBNAME "debug" LUAMOD_API int (luaopen_debug) (lua_State *L); #define LUA_LOADLIBNAME "package" LUAMOD_API int (luaopen_package) (lua_State *L); /* open all previous libraries */ LUALIB_API void (luaL_openlibs) (lua_State *L); #if !defined(lua_assert) #define lua_assert(x) ((void)0) #endif #endif april-ann-0.3.1/lua/lua-5.2.2/src/lundump.c000066400000000000000000000127631234204160600200260ustar00rootroot00000000000000/* ** $Id: lundump.c,v 2.22 2012/05/08 13:53:33 roberto Exp $ ** load precompiled Lua chunks ** See Copyright Notice in lua.h */ #include #define lundump_c #define LUA_CORE #include "lua.h" #include "ldebug.h" #include "ldo.h" #include "lfunc.h" #include "lmem.h" #include "lobject.h" #include "lstring.h" #include "lundump.h" #include "lzio.h" typedef struct { lua_State* L; ZIO* Z; Mbuffer* b; const char* name; } LoadState; static l_noret error(LoadState* S, const char* why) { luaO_pushfstring(S->L,"%s: %s precompiled chunk",S->name,why); luaD_throw(S->L,LUA_ERRSYNTAX); } #define LoadMem(S,b,n,size) LoadBlock(S,b,(n)*(size)) #define LoadByte(S) (lu_byte)LoadChar(S) #define LoadVar(S,x) LoadMem(S,&x,1,sizeof(x)) #define LoadVector(S,b,n,size) LoadMem(S,b,n,size) #if !defined(luai_verifycode) #define luai_verifycode(L,b,f) /* empty */ #endif static void LoadBlock(LoadState* S, void* b, size_t size) { if (luaZ_read(S->Z,b,size)!=0) error(S,"truncated"); } static int LoadChar(LoadState* S) { char x; LoadVar(S,x); return x; } static int LoadInt(LoadState* S) { int x; LoadVar(S,x); if (x<0) error(S,"corrupted"); return x; } static lua_Number LoadNumber(LoadState* S) { lua_Number x; LoadVar(S,x); return x; } static TString* LoadString(LoadState* S) { size_t size; LoadVar(S,size); if (size==0) return NULL; else { char* s=luaZ_openspace(S->L,S->b,size); LoadBlock(S,s,size*sizeof(char)); return luaS_newlstr(S->L,s,size-1); /* remove trailing '\0' */ } } static void LoadCode(LoadState* S, Proto* f) { int n=LoadInt(S); f->code=luaM_newvector(S->L,n,Instruction); f->sizecode=n; LoadVector(S,f->code,n,sizeof(Instruction)); } static void LoadFunction(LoadState* S, Proto* f); static void LoadConstants(LoadState* S, Proto* f) { int i,n; n=LoadInt(S); f->k=luaM_newvector(S->L,n,TValue); f->sizek=n; for (i=0; ik[i]); for (i=0; ik[i]; int t=LoadChar(S); switch (t) { case LUA_TNIL: setnilvalue(o); break; case LUA_TBOOLEAN: setbvalue(o,LoadChar(S)); break; case LUA_TNUMBER: setnvalue(o,LoadNumber(S)); break; case LUA_TSTRING: setsvalue2n(S->L,o,LoadString(S)); break; default: lua_assert(0); } } n=LoadInt(S); f->p=luaM_newvector(S->L,n,Proto*); f->sizep=n; for (i=0; ip[i]=NULL; for (i=0; ip[i]=luaF_newproto(S->L); LoadFunction(S,f->p[i]); } } static void LoadUpvalues(LoadState* S, Proto* f) { int i,n; n=LoadInt(S); f->upvalues=luaM_newvector(S->L,n,Upvaldesc); f->sizeupvalues=n; for (i=0; iupvalues[i].name=NULL; for (i=0; iupvalues[i].instack=LoadByte(S); f->upvalues[i].idx=LoadByte(S); } } static void LoadDebug(LoadState* S, Proto* f) { int i,n; f->source=LoadString(S); n=LoadInt(S); f->lineinfo=luaM_newvector(S->L,n,int); f->sizelineinfo=n; LoadVector(S,f->lineinfo,n,sizeof(int)); n=LoadInt(S); f->locvars=luaM_newvector(S->L,n,LocVar); f->sizelocvars=n; for (i=0; ilocvars[i].varname=NULL; for (i=0; ilocvars[i].varname=LoadString(S); f->locvars[i].startpc=LoadInt(S); f->locvars[i].endpc=LoadInt(S); } n=LoadInt(S); for (i=0; iupvalues[i].name=LoadString(S); } static void LoadFunction(LoadState* S, Proto* f) { f->linedefined=LoadInt(S); f->lastlinedefined=LoadInt(S); f->numparams=LoadByte(S); f->is_vararg=LoadByte(S); f->maxstacksize=LoadByte(S); LoadCode(S,f); LoadConstants(S,f); LoadUpvalues(S,f); LoadDebug(S,f); } /* the code below must be consistent with the code in luaU_header */ #define N0 LUAC_HEADERSIZE #define N1 (sizeof(LUA_SIGNATURE)-sizeof(char)) #define N2 N1+2 #define N3 N2+6 static void LoadHeader(LoadState* S) { lu_byte h[LUAC_HEADERSIZE]; lu_byte s[LUAC_HEADERSIZE]; luaU_header(h); memcpy(s,h,sizeof(char)); /* first char already read */ LoadBlock(S,s+sizeof(char),LUAC_HEADERSIZE-sizeof(char)); if (memcmp(h,s,N0)==0) return; if (memcmp(h,s,N1)!=0) error(S,"not a"); if (memcmp(h,s,N2)!=0) error(S,"version mismatch in"); if (memcmp(h,s,N3)!=0) error(S,"incompatible"); else error(S,"corrupted"); } /* ** load precompiled chunk */ Closure* luaU_undump (lua_State* L, ZIO* Z, Mbuffer* buff, const char* name) { LoadState S; Closure* cl; if (*name=='@' || *name=='=') S.name=name+1; else if (*name==LUA_SIGNATURE[0]) S.name="binary string"; else S.name=name; S.L=L; S.Z=Z; S.b=buff; LoadHeader(&S); cl=luaF_newLclosure(L,1); setclLvalue(L,L->top,cl); incr_top(L); cl->l.p=luaF_newproto(L); LoadFunction(&S,cl->l.p); if (cl->l.p->sizeupvalues != 1) { Proto* p=cl->l.p; cl=luaF_newLclosure(L,cl->l.p->sizeupvalues); cl->l.p=p; setclLvalue(L,L->top-1,cl); } luai_verifycode(L,buff,cl->l.p); return cl; } #define MYINT(s) (s[0]-'0') #define VERSION MYINT(LUA_VERSION_MAJOR)*16+MYINT(LUA_VERSION_MINOR) #define FORMAT 0 /* this is the official format */ /* * make header for precompiled chunks * if you change the code below be sure to update LoadHeader and FORMAT above * and LUAC_HEADERSIZE in lundump.h */ void luaU_header (lu_byte* h) { int x=1; memcpy(h,LUA_SIGNATURE,sizeof(LUA_SIGNATURE)-sizeof(char)); h+=sizeof(LUA_SIGNATURE)-sizeof(char); *h++=cast_byte(VERSION); *h++=cast_byte(FORMAT); *h++=cast_byte(*(char*)&x); /* endianness */ *h++=cast_byte(sizeof(int)); *h++=cast_byte(sizeof(size_t)); *h++=cast_byte(sizeof(Instruction)); *h++=cast_byte(sizeof(lua_Number)); *h++=cast_byte(((lua_Number)0.5)==0); /* is lua_Number integral? */ memcpy(h,LUAC_TAIL,sizeof(LUAC_TAIL)-sizeof(char)); } april-ann-0.3.1/lua/lua-5.2.2/src/lundump.h000066400000000000000000000014001234204160600200150ustar00rootroot00000000000000/* ** $Id: lundump.h,v 1.39 2012/05/08 13:53:33 roberto Exp $ ** load precompiled Lua chunks ** See Copyright Notice in lua.h */ #ifndef lundump_h #define lundump_h #include "lobject.h" #include "lzio.h" /* load one chunk; from lundump.c */ LUAI_FUNC Closure* luaU_undump (lua_State* L, ZIO* Z, Mbuffer* buff, const char* name); /* make header; from lundump.c */ LUAI_FUNC void luaU_header (lu_byte* h); /* dump one chunk; from ldump.c */ LUAI_FUNC int luaU_dump (lua_State* L, const Proto* f, lua_Writer w, void* data, int strip); /* data to catch conversion errors */ #define LUAC_TAIL "\x19\x93\r\n\x1a\n" /* size in bytes of header of binary files */ #define LUAC_HEADERSIZE (sizeof(LUA_SIGNATURE)-sizeof(char)+2+6+sizeof(LUAC_TAIL)-sizeof(char)) #endif april-ann-0.3.1/lua/lua-5.2.2/src/lvm.c000066400000000000000000000702461234204160600171400ustar00rootroot00000000000000/* ** $Id: lvm.c,v 2.155 2013/03/16 21:10:18 roberto Exp $ ** Lua virtual machine ** See Copyright Notice in lua.h */ #include #include #include #define lvm_c #define LUA_CORE #include "lua.h" #include "ldebug.h" #include "ldo.h" #include "lfunc.h" #include "lgc.h" #include "lobject.h" #include "lopcodes.h" #include "lstate.h" #include "lstring.h" #include "ltable.h" #include "ltm.h" #include "lvm.h" /* limit for table tag-method chains (to avoid loops) */ #define MAXTAGLOOP 100 const TValue *luaV_tonumber (const TValue *obj, TValue *n) { lua_Number num; if (ttisnumber(obj)) return obj; if (ttisstring(obj) && luaO_str2d(svalue(obj), tsvalue(obj)->len, &num)) { setnvalue(n, num); return n; } else return NULL; } int luaV_tostring (lua_State *L, StkId obj) { if (!ttisnumber(obj)) return 0; else { char s[LUAI_MAXNUMBER2STR]; lua_Number n = nvalue(obj); int l = lua_number2str(s, n); setsvalue2s(L, obj, luaS_newlstr(L, s, l)); return 1; } } static void traceexec (lua_State *L) { CallInfo *ci = L->ci; lu_byte mask = L->hookmask; int counthook = ((mask & LUA_MASKCOUNT) && L->hookcount == 0); if (counthook) resethookcount(L); /* reset count */ if (ci->callstatus & CIST_HOOKYIELD) { /* called hook last time? */ ci->callstatus &= ~CIST_HOOKYIELD; /* erase mark */ return; /* do not call hook again (VM yielded, so it did not move) */ } if (counthook) luaD_hook(L, LUA_HOOKCOUNT, -1); /* call count hook */ if (mask & LUA_MASKLINE) { Proto *p = ci_func(ci)->p; int npc = pcRel(ci->u.l.savedpc, p); int newline = getfuncline(p, npc); if (npc == 0 || /* call linehook when enter a new function, */ ci->u.l.savedpc <= L->oldpc || /* when jump back (loop), or when */ newline != getfuncline(p, pcRel(L->oldpc, p))) /* enter a new line */ luaD_hook(L, LUA_HOOKLINE, newline); /* call line hook */ } L->oldpc = ci->u.l.savedpc; if (L->status == LUA_YIELD) { /* did hook yield? */ if (counthook) L->hookcount = 1; /* undo decrement to zero */ ci->u.l.savedpc--; /* undo increment (resume will increment it again) */ ci->callstatus |= CIST_HOOKYIELD; /* mark that it yielded */ ci->func = L->top - 1; /* protect stack below results */ luaD_throw(L, LUA_YIELD); } } static void callTM (lua_State *L, const TValue *f, const TValue *p1, const TValue *p2, TValue *p3, int hasres) { ptrdiff_t result = savestack(L, p3); setobj2s(L, L->top++, f); /* push function */ setobj2s(L, L->top++, p1); /* 1st argument */ setobj2s(L, L->top++, p2); /* 2nd argument */ if (!hasres) /* no result? 'p3' is third argument */ setobj2s(L, L->top++, p3); /* 3rd argument */ /* metamethod may yield only when called from Lua code */ luaD_call(L, L->top - (4 - hasres), hasres, isLua(L->ci)); if (hasres) { /* if has result, move it to its place */ p3 = restorestack(L, result); setobjs2s(L, p3, --L->top); } } void luaV_gettable (lua_State *L, const TValue *t, TValue *key, StkId val) { int loop; for (loop = 0; loop < MAXTAGLOOP; loop++) { const TValue *tm; if (ttistable(t)) { /* `t' is a table? */ Table *h = hvalue(t); const TValue *res = luaH_get(h, key); /* do a primitive get */ if (!ttisnil(res) || /* result is not nil? */ (tm = fasttm(L, h->metatable, TM_INDEX)) == NULL) { /* or no TM? */ setobj2s(L, val, res); return; } /* else will try the tag method */ } else if (ttisnil(tm = luaT_gettmbyobj(L, t, TM_INDEX))) luaG_typeerror(L, t, "index"); if (ttisfunction(tm)) { callTM(L, tm, t, key, val, 1); return; } t = tm; /* else repeat with 'tm' */ } luaG_runerror(L, "loop in gettable"); } void luaV_settable (lua_State *L, const TValue *t, TValue *key, StkId val) { int loop; for (loop = 0; loop < MAXTAGLOOP; loop++) { const TValue *tm; if (ttistable(t)) { /* `t' is a table? */ Table *h = hvalue(t); TValue *oldval = cast(TValue *, luaH_get(h, key)); /* if previous value is not nil, there must be a previous entry in the table; moreover, a metamethod has no relevance */ if (!ttisnil(oldval) || /* previous value is nil; must check the metamethod */ ((tm = fasttm(L, h->metatable, TM_NEWINDEX)) == NULL && /* no metamethod; is there a previous entry in the table? */ (oldval != luaO_nilobject || /* no previous entry; must create one. (The next test is always true; we only need the assignment.) */ (oldval = luaH_newkey(L, h, key), 1)))) { /* no metamethod and (now) there is an entry with given key */ setobj2t(L, oldval, val); /* assign new value to that entry */ invalidateTMcache(h); luaC_barrierback(L, obj2gco(h), val); return; } /* else will try the metamethod */ } else /* not a table; check metamethod */ if (ttisnil(tm = luaT_gettmbyobj(L, t, TM_NEWINDEX))) luaG_typeerror(L, t, "index"); /* there is a metamethod */ if (ttisfunction(tm)) { callTM(L, tm, t, key, val, 0); return; } t = tm; /* else repeat with 'tm' */ } luaG_runerror(L, "loop in settable"); } static int call_binTM (lua_State *L, const TValue *p1, const TValue *p2, StkId res, TMS event) { const TValue *tm = luaT_gettmbyobj(L, p1, event); /* try first operand */ if (ttisnil(tm)) tm = luaT_gettmbyobj(L, p2, event); /* try second operand */ if (ttisnil(tm)) return 0; callTM(L, tm, p1, p2, res, 1); return 1; } static const TValue *get_equalTM (lua_State *L, Table *mt1, Table *mt2, TMS event) { const TValue *tm1 = fasttm(L, mt1, event); const TValue *tm2; if (tm1 == NULL) return NULL; /* no metamethod */ if (mt1 == mt2) return tm1; /* same metatables => same metamethods */ tm2 = fasttm(L, mt2, event); if (tm2 == NULL) return NULL; /* no metamethod */ if (luaV_rawequalobj(tm1, tm2)) /* same metamethods? */ return tm1; return NULL; } static int call_orderTM (lua_State *L, const TValue *p1, const TValue *p2, TMS event) { if (!call_binTM(L, p1, p2, L->top, event)) return -1; /* no metamethod */ else return !l_isfalse(L->top); } static int l_strcmp (const TString *ls, const TString *rs) { const char *l = getstr(ls); size_t ll = ls->tsv.len; const char *r = getstr(rs); size_t lr = rs->tsv.len; for (;;) { int temp = strcoll(l, r); if (temp != 0) return temp; else { /* strings are equal up to a `\0' */ size_t len = strlen(l); /* index of first `\0' in both strings */ if (len == lr) /* r is finished? */ return (len == ll) ? 0 : 1; else if (len == ll) /* l is finished? */ return -1; /* l is smaller than r (because r is not finished) */ /* both strings longer than `len'; go on comparing (after the `\0') */ len++; l += len; ll -= len; r += len; lr -= len; } } } int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r) { int res; if (ttisnumber(l) && ttisnumber(r)) return luai_numlt(L, nvalue(l), nvalue(r)); else if (ttisstring(l) && ttisstring(r)) return l_strcmp(rawtsvalue(l), rawtsvalue(r)) < 0; else if ((res = call_orderTM(L, l, r, TM_LT)) < 0) luaG_ordererror(L, l, r); return res; } int luaV_lessequal (lua_State *L, const TValue *l, const TValue *r) { int res; if (ttisnumber(l) && ttisnumber(r)) return luai_numle(L, nvalue(l), nvalue(r)); else if (ttisstring(l) && ttisstring(r)) return l_strcmp(rawtsvalue(l), rawtsvalue(r)) <= 0; else if ((res = call_orderTM(L, l, r, TM_LE)) >= 0) /* first try `le' */ return res; else if ((res = call_orderTM(L, r, l, TM_LT)) < 0) /* else try `lt' */ luaG_ordererror(L, l, r); return !res; } /* ** equality of Lua values. L == NULL means raw equality (no metamethods) */ int luaV_equalobj_ (lua_State *L, const TValue *t1, const TValue *t2) { const TValue *tm; lua_assert(ttisequal(t1, t2)); switch (ttype(t1)) { case LUA_TNIL: return 1; case LUA_TNUMBER: return luai_numeq(nvalue(t1), nvalue(t2)); case LUA_TBOOLEAN: return bvalue(t1) == bvalue(t2); /* true must be 1 !! */ case LUA_TLIGHTUSERDATA: return pvalue(t1) == pvalue(t2); case LUA_TLCF: return fvalue(t1) == fvalue(t2); case LUA_TSHRSTR: return eqshrstr(rawtsvalue(t1), rawtsvalue(t2)); case LUA_TLNGSTR: return luaS_eqlngstr(rawtsvalue(t1), rawtsvalue(t2)); case LUA_TUSERDATA: { if (uvalue(t1) == uvalue(t2)) return 1; else if (L == NULL) return 0; tm = get_equalTM(L, uvalue(t1)->metatable, uvalue(t2)->metatable, TM_EQ); break; /* will try TM */ } case LUA_TTABLE: { if (hvalue(t1) == hvalue(t2)) return 1; else if (L == NULL) return 0; tm = get_equalTM(L, hvalue(t1)->metatable, hvalue(t2)->metatable, TM_EQ); break; /* will try TM */ } default: lua_assert(iscollectable(t1)); return gcvalue(t1) == gcvalue(t2); } if (tm == NULL) return 0; /* no TM? */ callTM(L, tm, t1, t2, L->top, 1); /* call TM */ return !l_isfalse(L->top); } void luaV_concat (lua_State *L, int total) { lua_assert(total >= 2); do { StkId top = L->top; int n = 2; /* number of elements handled in this pass (at least 2) */ if (!(ttisstring(top-2) || ttisnumber(top-2)) || !tostring(L, top-1)) { if (!call_binTM(L, top-2, top-1, top-2, TM_CONCAT)) luaG_concaterror(L, top-2, top-1); } else if (tsvalue(top-1)->len == 0) /* second operand is empty? */ (void)tostring(L, top - 2); /* result is first operand */ else if (ttisstring(top-2) && tsvalue(top-2)->len == 0) { setobjs2s(L, top - 2, top - 1); /* result is second op. */ } else { /* at least two non-empty string values; get as many as possible */ size_t tl = tsvalue(top-1)->len; char *buffer; int i; /* collect total length */ for (i = 1; i < total && tostring(L, top-i-1); i++) { size_t l = tsvalue(top-i-1)->len; if (l >= (MAX_SIZET/sizeof(char)) - tl) luaG_runerror(L, "string length overflow"); tl += l; } buffer = luaZ_openspace(L, &G(L)->buff, tl); tl = 0; n = i; do { /* concat all strings */ size_t l = tsvalue(top-i)->len; memcpy(buffer+tl, svalue(top-i), l * sizeof(char)); tl += l; } while (--i > 0); setsvalue2s(L, top-n, luaS_newlstr(L, buffer, tl)); } total -= n-1; /* got 'n' strings to create 1 new */ L->top -= n-1; /* popped 'n' strings and pushed one */ } while (total > 1); /* repeat until only 1 result left */ } void luaV_objlen (lua_State *L, StkId ra, const TValue *rb) { const TValue *tm; switch (ttypenv(rb)) { case LUA_TTABLE: { Table *h = hvalue(rb); tm = fasttm(L, h->metatable, TM_LEN); if (tm) break; /* metamethod? break switch to call it */ setnvalue(ra, cast_num(luaH_getn(h))); /* else primitive len */ return; } case LUA_TSTRING: { setnvalue(ra, cast_num(tsvalue(rb)->len)); return; } default: { /* try metamethod */ tm = luaT_gettmbyobj(L, rb, TM_LEN); if (ttisnil(tm)) /* no metamethod? */ luaG_typeerror(L, rb, "get length of"); break; } } callTM(L, tm, rb, rb, ra, 1); } void luaV_arith (lua_State *L, StkId ra, const TValue *rb, const TValue *rc, TMS op) { TValue tempb, tempc; const TValue *b, *c; if ((b = luaV_tonumber(rb, &tempb)) != NULL && (c = luaV_tonumber(rc, &tempc)) != NULL) { lua_Number res = luaO_arith(op - TM_ADD + LUA_OPADD, nvalue(b), nvalue(c)); setnvalue(ra, res); } else if (!call_binTM(L, rb, rc, ra, op)) luaG_aritherror(L, rb, rc); } /* ** check whether cached closure in prototype 'p' may be reused, that is, ** whether there is a cached closure with the same upvalues needed by ** new closure to be created. */ static Closure *getcached (Proto *p, UpVal **encup, StkId base) { Closure *c = p->cache; if (c != NULL) { /* is there a cached closure? */ int nup = p->sizeupvalues; Upvaldesc *uv = p->upvalues; int i; for (i = 0; i < nup; i++) { /* check whether it has right upvalues */ TValue *v = uv[i].instack ? base + uv[i].idx : encup[uv[i].idx]->v; if (c->l.upvals[i]->v != v) return NULL; /* wrong upvalue; cannot reuse closure */ } } return c; /* return cached closure (or NULL if no cached closure) */ } /* ** create a new Lua closure, push it in the stack, and initialize ** its upvalues. Note that the call to 'luaC_barrierproto' must come ** before the assignment to 'p->cache', as the function needs the ** original value of that field. */ static void pushclosure (lua_State *L, Proto *p, UpVal **encup, StkId base, StkId ra) { int nup = p->sizeupvalues; Upvaldesc *uv = p->upvalues; int i; Closure *ncl = luaF_newLclosure(L, nup); ncl->l.p = p; setclLvalue(L, ra, ncl); /* anchor new closure in stack */ for (i = 0; i < nup; i++) { /* fill in its upvalues */ if (uv[i].instack) /* upvalue refers to local variable? */ ncl->l.upvals[i] = luaF_findupval(L, base + uv[i].idx); else /* get upvalue from enclosing function */ ncl->l.upvals[i] = encup[uv[i].idx]; } luaC_barrierproto(L, p, ncl); p->cache = ncl; /* save it on cache for reuse */ } /* ** finish execution of an opcode interrupted by an yield */ void luaV_finishOp (lua_State *L) { CallInfo *ci = L->ci; StkId base = ci->u.l.base; Instruction inst = *(ci->u.l.savedpc - 1); /* interrupted instruction */ OpCode op = GET_OPCODE(inst); switch (op) { /* finish its execution */ case OP_ADD: case OP_SUB: case OP_MUL: case OP_DIV: case OP_MOD: case OP_POW: case OP_UNM: case OP_LEN: case OP_GETTABUP: case OP_GETTABLE: case OP_SELF: { setobjs2s(L, base + GETARG_A(inst), --L->top); break; } case OP_LE: case OP_LT: case OP_EQ: { int res = !l_isfalse(L->top - 1); L->top--; /* metamethod should not be called when operand is K */ lua_assert(!ISK(GETARG_B(inst))); if (op == OP_LE && /* "<=" using "<" instead? */ ttisnil(luaT_gettmbyobj(L, base + GETARG_B(inst), TM_LE))) res = !res; /* invert result */ lua_assert(GET_OPCODE(*ci->u.l.savedpc) == OP_JMP); if (res != GETARG_A(inst)) /* condition failed? */ ci->u.l.savedpc++; /* skip jump instruction */ break; } case OP_CONCAT: { StkId top = L->top - 1; /* top when 'call_binTM' was called */ int b = GETARG_B(inst); /* first element to concatenate */ int total = cast_int(top - 1 - (base + b)); /* yet to concatenate */ setobj2s(L, top - 2, top); /* put TM result in proper position */ if (total > 1) { /* are there elements to concat? */ L->top = top - 1; /* top is one after last element (at top-2) */ luaV_concat(L, total); /* concat them (may yield again) */ } /* move final result to final position */ setobj2s(L, ci->u.l.base + GETARG_A(inst), L->top - 1); L->top = ci->top; /* restore top */ break; } case OP_TFORCALL: { lua_assert(GET_OPCODE(*ci->u.l.savedpc) == OP_TFORLOOP); L->top = ci->top; /* correct top */ break; } case OP_CALL: { if (GETARG_C(inst) - 1 >= 0) /* nresults >= 0? */ L->top = ci->top; /* adjust results */ break; } case OP_TAILCALL: case OP_SETTABUP: case OP_SETTABLE: break; default: lua_assert(0); } } /* ** some macros for common tasks in `luaV_execute' */ #if !defined luai_runtimecheck #define luai_runtimecheck(L, c) /* void */ #endif #define RA(i) (base+GETARG_A(i)) /* to be used after possible stack reallocation */ #define RB(i) check_exp(getBMode(GET_OPCODE(i)) == OpArgR, base+GETARG_B(i)) #define RC(i) check_exp(getCMode(GET_OPCODE(i)) == OpArgR, base+GETARG_C(i)) #define RKB(i) check_exp(getBMode(GET_OPCODE(i)) == OpArgK, \ ISK(GETARG_B(i)) ? k+INDEXK(GETARG_B(i)) : base+GETARG_B(i)) #define RKC(i) check_exp(getCMode(GET_OPCODE(i)) == OpArgK, \ ISK(GETARG_C(i)) ? k+INDEXK(GETARG_C(i)) : base+GETARG_C(i)) #define KBx(i) \ (k + (GETARG_Bx(i) != 0 ? GETARG_Bx(i) - 1 : GETARG_Ax(*ci->u.l.savedpc++))) /* execute a jump instruction */ #define dojump(ci,i,e) \ { int a = GETARG_A(i); \ if (a > 0) luaF_close(L, ci->u.l.base + a - 1); \ ci->u.l.savedpc += GETARG_sBx(i) + e; } /* for test instructions, execute the jump instruction that follows it */ #define donextjump(ci) { i = *ci->u.l.savedpc; dojump(ci, i, 1); } #define Protect(x) { {x;}; base = ci->u.l.base; } #define checkGC(L,c) \ Protect( luaC_condGC(L,{L->top = (c); /* limit of live values */ \ luaC_step(L); \ L->top = ci->top;}) /* restore top */ \ luai_threadyield(L); ) #define arith_op(op,tm) { \ TValue *rb = RKB(i); \ TValue *rc = RKC(i); \ if (ttisnumber(rb) && ttisnumber(rc)) { \ lua_Number nb = nvalue(rb), nc = nvalue(rc); \ setnvalue(ra, op(L, nb, nc)); \ } \ else { Protect(luaV_arith(L, ra, rb, rc, tm)); } } #define vmdispatch(o) switch(o) #define vmcase(l,b) case l: {b} break; #define vmcasenb(l,b) case l: {b} /* nb = no break */ void luaV_execute (lua_State *L) { CallInfo *ci = L->ci; LClosure *cl; TValue *k; StkId base; newframe: /* reentry point when frame changes (call/return) */ lua_assert(ci == L->ci); cl = clLvalue(ci->func); k = cl->p->k; base = ci->u.l.base; /* main loop of interpreter */ for (;;) { Instruction i = *(ci->u.l.savedpc++); StkId ra; if ((L->hookmask & (LUA_MASKLINE | LUA_MASKCOUNT)) && (--L->hookcount == 0 || L->hookmask & LUA_MASKLINE)) { Protect(traceexec(L)); } /* WARNING: several calls may realloc the stack and invalidate `ra' */ ra = RA(i); lua_assert(base == ci->u.l.base); lua_assert(base <= L->top && L->top < L->stack + L->stacksize); vmdispatch (GET_OPCODE(i)) { vmcase(OP_MOVE, setobjs2s(L, ra, RB(i)); ) vmcase(OP_LOADK, TValue *rb = k + GETARG_Bx(i); setobj2s(L, ra, rb); ) vmcase(OP_LOADKX, TValue *rb; lua_assert(GET_OPCODE(*ci->u.l.savedpc) == OP_EXTRAARG); rb = k + GETARG_Ax(*ci->u.l.savedpc++); setobj2s(L, ra, rb); ) vmcase(OP_LOADBOOL, setbvalue(ra, GETARG_B(i)); if (GETARG_C(i)) ci->u.l.savedpc++; /* skip next instruction (if C) */ ) vmcase(OP_LOADNIL, int b = GETARG_B(i); do { setnilvalue(ra++); } while (b--); ) vmcase(OP_GETUPVAL, int b = GETARG_B(i); setobj2s(L, ra, cl->upvals[b]->v); ) vmcase(OP_GETTABUP, int b = GETARG_B(i); Protect(luaV_gettable(L, cl->upvals[b]->v, RKC(i), ra)); ) vmcase(OP_GETTABLE, Protect(luaV_gettable(L, RB(i), RKC(i), ra)); ) vmcase(OP_SETTABUP, int a = GETARG_A(i); Protect(luaV_settable(L, cl->upvals[a]->v, RKB(i), RKC(i))); ) vmcase(OP_SETUPVAL, UpVal *uv = cl->upvals[GETARG_B(i)]; setobj(L, uv->v, ra); luaC_barrier(L, uv, ra); ) vmcase(OP_SETTABLE, Protect(luaV_settable(L, ra, RKB(i), RKC(i))); ) vmcase(OP_NEWTABLE, int b = GETARG_B(i); int c = GETARG_C(i); Table *t = luaH_new(L); sethvalue(L, ra, t); if (b != 0 || c != 0) luaH_resize(L, t, luaO_fb2int(b), luaO_fb2int(c)); checkGC(L, ra + 1); ) vmcase(OP_SELF, StkId rb = RB(i); setobjs2s(L, ra+1, rb); Protect(luaV_gettable(L, rb, RKC(i), ra)); ) vmcase(OP_ADD, arith_op(luai_numadd, TM_ADD); ) vmcase(OP_SUB, arith_op(luai_numsub, TM_SUB); ) vmcase(OP_MUL, arith_op(luai_nummul, TM_MUL); ) vmcase(OP_DIV, arith_op(luai_numdiv, TM_DIV); ) vmcase(OP_MOD, arith_op(luai_nummod, TM_MOD); ) vmcase(OP_POW, arith_op(luai_numpow, TM_POW); ) vmcase(OP_UNM, TValue *rb = RB(i); if (ttisnumber(rb)) { lua_Number nb = nvalue(rb); setnvalue(ra, luai_numunm(L, nb)); } else { Protect(luaV_arith(L, ra, rb, rb, TM_UNM)); } ) vmcase(OP_NOT, TValue *rb = RB(i); int res = l_isfalse(rb); /* next assignment may change this value */ setbvalue(ra, res); ) vmcase(OP_LEN, Protect(luaV_objlen(L, ra, RB(i))); ) vmcase(OP_CONCAT, int b = GETARG_B(i); int c = GETARG_C(i); StkId rb; L->top = base + c + 1; /* mark the end of concat operands */ Protect(luaV_concat(L, c - b + 1)); ra = RA(i); /* 'luav_concat' may invoke TMs and move the stack */ rb = b + base; setobjs2s(L, ra, rb); checkGC(L, (ra >= rb ? ra + 1 : rb)); L->top = ci->top; /* restore top */ ) vmcase(OP_JMP, dojump(ci, i, 0); ) vmcase(OP_EQ, TValue *rb = RKB(i); TValue *rc = RKC(i); Protect( if (cast_int(equalobj(L, rb, rc)) != GETARG_A(i)) ci->u.l.savedpc++; else donextjump(ci); ) ) vmcase(OP_LT, Protect( if (luaV_lessthan(L, RKB(i), RKC(i)) != GETARG_A(i)) ci->u.l.savedpc++; else donextjump(ci); ) ) vmcase(OP_LE, Protect( if (luaV_lessequal(L, RKB(i), RKC(i)) != GETARG_A(i)) ci->u.l.savedpc++; else donextjump(ci); ) ) vmcase(OP_TEST, if (GETARG_C(i) ? l_isfalse(ra) : !l_isfalse(ra)) ci->u.l.savedpc++; else donextjump(ci); ) vmcase(OP_TESTSET, TValue *rb = RB(i); if (GETARG_C(i) ? l_isfalse(rb) : !l_isfalse(rb)) ci->u.l.savedpc++; else { setobjs2s(L, ra, rb); donextjump(ci); } ) vmcase(OP_CALL, int b = GETARG_B(i); int nresults = GETARG_C(i) - 1; if (b != 0) L->top = ra+b; /* else previous instruction set top */ if (luaD_precall(L, ra, nresults)) { /* C function? */ if (nresults >= 0) L->top = ci->top; /* adjust results */ base = ci->u.l.base; } else { /* Lua function */ ci = L->ci; ci->callstatus |= CIST_REENTRY; goto newframe; /* restart luaV_execute over new Lua function */ } ) vmcase(OP_TAILCALL, int b = GETARG_B(i); if (b != 0) L->top = ra+b; /* else previous instruction set top */ lua_assert(GETARG_C(i) - 1 == LUA_MULTRET); if (luaD_precall(L, ra, LUA_MULTRET)) /* C function? */ base = ci->u.l.base; else { /* tail call: put called frame (n) in place of caller one (o) */ CallInfo *nci = L->ci; /* called frame */ CallInfo *oci = nci->previous; /* caller frame */ StkId nfunc = nci->func; /* called function */ StkId ofunc = oci->func; /* caller function */ /* last stack slot filled by 'precall' */ StkId lim = nci->u.l.base + getproto(nfunc)->numparams; int aux; /* close all upvalues from previous call */ if (cl->p->sizep > 0) luaF_close(L, oci->u.l.base); /* move new frame into old one */ for (aux = 0; nfunc + aux < lim; aux++) setobjs2s(L, ofunc + aux, nfunc + aux); oci->u.l.base = ofunc + (nci->u.l.base - nfunc); /* correct base */ oci->top = L->top = ofunc + (L->top - nfunc); /* correct top */ oci->u.l.savedpc = nci->u.l.savedpc; oci->callstatus |= CIST_TAIL; /* function was tail called */ ci = L->ci = oci; /* remove new frame */ lua_assert(L->top == oci->u.l.base + getproto(ofunc)->maxstacksize); goto newframe; /* restart luaV_execute over new Lua function */ } ) vmcasenb(OP_RETURN, int b = GETARG_B(i); if (b != 0) L->top = ra+b-1; if (cl->p->sizep > 0) luaF_close(L, base); b = luaD_poscall(L, ra); if (!(ci->callstatus & CIST_REENTRY)) /* 'ci' still the called one */ return; /* external invocation: return */ else { /* invocation via reentry: continue execution */ ci = L->ci; if (b) L->top = ci->top; lua_assert(isLua(ci)); lua_assert(GET_OPCODE(*((ci)->u.l.savedpc - 1)) == OP_CALL); goto newframe; /* restart luaV_execute over new Lua function */ } ) vmcase(OP_FORLOOP, lua_Number step = nvalue(ra+2); lua_Number idx = luai_numadd(L, nvalue(ra), step); /* increment index */ lua_Number limit = nvalue(ra+1); if (luai_numlt(L, 0, step) ? luai_numle(L, idx, limit) : luai_numle(L, limit, idx)) { ci->u.l.savedpc += GETARG_sBx(i); /* jump back */ setnvalue(ra, idx); /* update internal index... */ setnvalue(ra+3, idx); /* ...and external index */ } ) vmcase(OP_FORPREP, const TValue *init = ra; const TValue *plimit = ra+1; const TValue *pstep = ra+2; if (!tonumber(init, ra)) luaG_runerror(L, LUA_QL("for") " initial value must be a number"); else if (!tonumber(plimit, ra+1)) luaG_runerror(L, LUA_QL("for") " limit must be a number"); else if (!tonumber(pstep, ra+2)) luaG_runerror(L, LUA_QL("for") " step must be a number"); setnvalue(ra, luai_numsub(L, nvalue(ra), nvalue(pstep))); ci->u.l.savedpc += GETARG_sBx(i); ) vmcasenb(OP_TFORCALL, StkId cb = ra + 3; /* call base */ setobjs2s(L, cb+2, ra+2); setobjs2s(L, cb+1, ra+1); setobjs2s(L, cb, ra); L->top = cb + 3; /* func. + 2 args (state and index) */ Protect(luaD_call(L, cb, GETARG_C(i), 1)); L->top = ci->top; i = *(ci->u.l.savedpc++); /* go to next instruction */ ra = RA(i); lua_assert(GET_OPCODE(i) == OP_TFORLOOP); goto l_tforloop; ) vmcase(OP_TFORLOOP, l_tforloop: if (!ttisnil(ra + 1)) { /* continue loop? */ setobjs2s(L, ra, ra + 1); /* save control variable */ ci->u.l.savedpc += GETARG_sBx(i); /* jump back */ } ) vmcase(OP_SETLIST, int n = GETARG_B(i); int c = GETARG_C(i); int last; Table *h; if (n == 0) n = cast_int(L->top - ra) - 1; if (c == 0) { lua_assert(GET_OPCODE(*ci->u.l.savedpc) == OP_EXTRAARG); c = GETARG_Ax(*ci->u.l.savedpc++); } luai_runtimecheck(L, ttistable(ra)); h = hvalue(ra); last = ((c-1)*LFIELDS_PER_FLUSH) + n; if (last > h->sizearray) /* needs more space? */ luaH_resizearray(L, h, last); /* pre-allocate it at once */ for (; n > 0; n--) { TValue *val = ra+n; luaH_setint(L, h, last--, val); luaC_barrierback(L, obj2gco(h), val); } L->top = ci->top; /* correct top (in case of previous open call) */ ) vmcase(OP_CLOSURE, Proto *p = cl->p->p[GETARG_Bx(i)]; Closure *ncl = getcached(p, cl->upvals, base); /* cached closure */ if (ncl == NULL) /* no match? */ pushclosure(L, p, cl->upvals, base, ra); /* create a new one */ else setclLvalue(L, ra, ncl); /* push cashed closure */ checkGC(L, ra + 1); ) vmcase(OP_VARARG, int b = GETARG_B(i) - 1; int j; int n = cast_int(base - ci->func) - cl->p->numparams - 1; if (b < 0) { /* B == 0? */ b = n; /* get all var. arguments */ Protect(luaD_checkstack(L, n)); ra = RA(i); /* previous call may change the stack */ L->top = ra + n; } for (j = 0; j < b; j++) { if (j < n) { setobjs2s(L, ra + j, base - n + j); } else { setnilvalue(ra + j); } } ) vmcase(OP_EXTRAARG, lua_assert(0); ) } } } april-ann-0.3.1/lua/lua-5.2.2/src/lvm.h000066400000000000000000000027101234204160600171340ustar00rootroot00000000000000/* ** $Id: lvm.h,v 2.18 2013/01/08 14:06:55 roberto Exp $ ** Lua virtual machine ** See Copyright Notice in lua.h */ #ifndef lvm_h #define lvm_h #include "ldo.h" #include "lobject.h" #include "ltm.h" #define tostring(L,o) (ttisstring(o) || (luaV_tostring(L, o))) #define tonumber(o,n) (ttisnumber(o) || (((o) = luaV_tonumber(o,n)) != NULL)) #define equalobj(L,o1,o2) (ttisequal(o1, o2) && luaV_equalobj_(L, o1, o2)) #define luaV_rawequalobj(o1,o2) equalobj(NULL,o1,o2) /* not to called directly */ LUAI_FUNC int luaV_equalobj_ (lua_State *L, const TValue *t1, const TValue *t2); LUAI_FUNC int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r); LUAI_FUNC int luaV_lessequal (lua_State *L, const TValue *l, const TValue *r); LUAI_FUNC const TValue *luaV_tonumber (const TValue *obj, TValue *n); LUAI_FUNC int luaV_tostring (lua_State *L, StkId obj); LUAI_FUNC void luaV_gettable (lua_State *L, const TValue *t, TValue *key, StkId val); LUAI_FUNC void luaV_settable (lua_State *L, const TValue *t, TValue *key, StkId val); LUAI_FUNC void luaV_finishOp (lua_State *L); LUAI_FUNC void luaV_execute (lua_State *L); LUAI_FUNC void luaV_concat (lua_State *L, int total); LUAI_FUNC void luaV_arith (lua_State *L, StkId ra, const TValue *rb, const TValue *rc, TMS op); LUAI_FUNC void luaV_objlen (lua_State *L, StkId ra, const TValue *rb); #endif april-ann-0.3.1/lua/lua-5.2.2/src/lzio.c000066400000000000000000000031251234204160600173070ustar00rootroot00000000000000/* ** $Id: lzio.c,v 1.35 2012/05/14 13:34:18 roberto Exp $ ** Buffered streams ** See Copyright Notice in lua.h */ #include #define lzio_c #define LUA_CORE #include "lua.h" #include "llimits.h" #include "lmem.h" #include "lstate.h" #include "lzio.h" int luaZ_fill (ZIO *z) { size_t size; lua_State *L = z->L; const char *buff; lua_unlock(L); buff = z->reader(L, z->data, &size); lua_lock(L); if (buff == NULL || size == 0) return EOZ; z->n = size - 1; /* discount char being returned */ z->p = buff; return cast_uchar(*(z->p++)); } void luaZ_init (lua_State *L, ZIO *z, lua_Reader reader, void *data) { z->L = L; z->reader = reader; z->data = data; z->n = 0; z->p = NULL; } /* --------------------------------------------------------------- read --- */ size_t luaZ_read (ZIO *z, void *b, size_t n) { while (n) { size_t m; if (z->n == 0) { /* no bytes in buffer? */ if (luaZ_fill(z) == EOZ) /* try to read more */ return n; /* no more input; return number of missing bytes */ else { z->n++; /* luaZ_fill consumed first byte; put it back */ z->p--; } } m = (n <= z->n) ? n : z->n; /* min. between n and z->n */ memcpy(b, z->p, m); z->n -= m; z->p += m; b = (char *)b + m; n -= m; } return 0; } /* ------------------------------------------------------------------------ */ char *luaZ_openspace (lua_State *L, Mbuffer *buff, size_t n) { if (n > buff->buffsize) { if (n < LUA_MINBUFFER) n = LUA_MINBUFFER; luaZ_resizebuffer(L, buff, n); } return buff->buffer; } april-ann-0.3.1/lua/lua-5.2.2/src/lzio.h000066400000000000000000000027121234204160600173150ustar00rootroot00000000000000/* ** $Id: lzio.h,v 1.26 2011/07/15 12:48:03 roberto Exp $ ** Buffered streams ** See Copyright Notice in lua.h */ #ifndef lzio_h #define lzio_h #include "lua.h" #include "lmem.h" #define EOZ (-1) /* end of stream */ typedef struct Zio ZIO; #define zgetc(z) (((z)->n--)>0 ? cast_uchar(*(z)->p++) : luaZ_fill(z)) typedef struct Mbuffer { char *buffer; size_t n; size_t buffsize; } Mbuffer; #define luaZ_initbuffer(L, buff) ((buff)->buffer = NULL, (buff)->buffsize = 0) #define luaZ_buffer(buff) ((buff)->buffer) #define luaZ_sizebuffer(buff) ((buff)->buffsize) #define luaZ_bufflen(buff) ((buff)->n) #define luaZ_resetbuffer(buff) ((buff)->n = 0) #define luaZ_resizebuffer(L, buff, size) \ (luaM_reallocvector(L, (buff)->buffer, (buff)->buffsize, size, char), \ (buff)->buffsize = size) #define luaZ_freebuffer(L, buff) luaZ_resizebuffer(L, buff, 0) LUAI_FUNC char *luaZ_openspace (lua_State *L, Mbuffer *buff, size_t n); LUAI_FUNC void luaZ_init (lua_State *L, ZIO *z, lua_Reader reader, void *data); LUAI_FUNC size_t luaZ_read (ZIO* z, void* b, size_t n); /* read next n bytes */ /* --------- Private Part ------------------ */ struct Zio { size_t n; /* bytes still unread */ const char *p; /* current position in buffer */ lua_Reader reader; /* reader function */ void* data; /* additional data */ lua_State *L; /* Lua state (for reader) */ }; LUAI_FUNC int luaZ_fill (ZIO *z); #endif april-ann-0.3.1/lua/man/000077500000000000000000000000001234204160600147265ustar00rootroot00000000000000april-ann-0.3.1/lua/man/man1/000077500000000000000000000000001234204160600155625ustar00rootroot00000000000000april-ann-0.3.1/lua/man/man1/lua.1000066400000000000000000000042341234204160600164300ustar00rootroot00000000000000.\" $Id: lua.man,v 1.13 2011/11/16 17:16:53 lhf Exp $ .TH LUA 1 "$Date: 2011/11/16 17:16:53 $" .SH NAME lua \- Lua interpreter .SH SYNOPSIS .B lua [ .I options ] [ .I script [ .I args ] ] .SH DESCRIPTION .B lua is the standalone Lua interpreter. It loads and executes Lua programs, either in textual source form or in precompiled binary form. (Precompiled binaries are output by .BR luac , the Lua compiler.) .B lua can be used as a batch interpreter and also interactively. .LP The given .I options are handled in order and then the Lua program in file .I script is loaded and executed. The given .I args are available to .I script as strings in a global table named .BR arg . If no options or arguments are given, then .B "\-v \-i" is assumed when the standard input is a terminal; otherwise, .B "\-" is assumed. .LP In interactive mode, .B lua prompts the user, reads lines from the standard input, and executes them as they are read. If a line does not contain a complete statement, then a secondary prompt is displayed and lines are read until a complete statement is formed or a syntax error is found. If a line starts with .BR '=' , then .B lua evaluates and displays the values of the expressions in the remainder of the line. .LP At the very start, before even handling the command line, .B lua checks the contents of the environment variables .B LUA_INIT_5_2 or .BR LUA_INIT , in that order. If the contents is of the form .RI '@ filename ', then .I filename is executed. Otherwise, the string is assumed to be a Lua statement and is executed. .SH OPTIONS .TP .BI \-e " stat" execute statement .IR stat . .TP .B \-i enter interactive mode after executing .IR script . .TP .BI \-l " name" execute the equivalent of .IB name =require(' name ') before executing .IR script . .TP .B \-v show version information. .TP .B \-E ignore environment variables. .TP .B \-\- stop handling options. .TP .B \- stop handling options and execute the standard input as a file. .SH "SEE ALSO" .BR luac (1) .br The documentation at lua.org, especially section 7 of the reference manual. .SH DIAGNOSTICS Error messages should be self explanatory. .SH AUTHORS R. Ierusalimschy, L. H. de Figueiredo, W. Celes .\" EOF april-ann-0.3.1/lua/man/man1/luac.1000066400000000000000000000057771234204160600166100ustar00rootroot00000000000000.\" $Id: luac.man,v 1.29 2011/11/16 13:53:40 lhf Exp $ .TH LUAC 1 "$Date: 2011/11/16 13:53:40 $" .SH NAME luac \- Lua compiler .SH SYNOPSIS .B luac [ .I options ] [ .I filenames ] .SH DESCRIPTION .B luac is the Lua compiler. It translates programs written in the Lua programming language into binary files containing precompiled chunks that can be later loaded and executed. .LP The main advantages of precompiling chunks are: faster loading, protecting source code from accidental user changes, and off-line syntax checking. Precompiling does not imply faster execution because in Lua chunks are always compiled into bytecodes before being executed. .B luac simply allows those bytecodes to be saved in a file for later execution. Precompiled chunks are not necessarily smaller than the corresponding source. The main goal in precompiling is faster loading. .LP In the command line, you can mix text files containing Lua source and binary files containing precompiled chunks. .B luac produces a single output file containing the combined bytecodes for all files given. Executing the combined file is equivalent to executing the given files. By default, the output file is named .BR luac.out , but you can change this with the .B \-o option. .LP Precompiled chunks are .I not portable across different architectures. Moreover, the internal format of precompiled chunks is likely to change when a new version of Lua is released. Make sure you save the source files of all Lua programs that you precompile. .LP .SH OPTIONS .TP .B \-l produce a listing of the compiled bytecode for Lua's virtual machine. Listing bytecodes is useful to learn about Lua's virtual machine. If no files are given, then .B luac loads .B luac.out and lists its contents. Use .B \-l \-l for a full listing. .TP .BI \-o " file" output to .IR file , instead of the default .BR luac.out . (You can use .B "'\-'" for standard output, but not on platforms that open standard output in text mode.) The output file may be one of the given files because all files are loaded before the output file is written. Be careful not to overwrite precious files. .TP .B \-p load files but do not generate any output file. Used mainly for syntax checking and for testing precompiled chunks: corrupted files will probably generate errors when loaded. If no files are given, then .B luac loads .B luac.out and tests its contents. No messages are displayed if the file loads without errors. .TP .B \-s strip debug information before writing the output file. This saves some space in very large chunks, but if errors occur when running a stripped chunk, then the error messages may not contain the full information they usually do. In particular, line numbers and names of local variables are lost. .TP .B \-v show version information. .TP .B \-\- stop handling options. .TP .B \- stop handling options and process standard input. .SH "SEE ALSO" .BR lua (1) .br The documentation at lua.org. .SH DIAGNOSTICS Error messages should be self explanatory. .SH AUTHORS R. Ierusalimschy, L. H. de Figueiredo, W. Celes .\" EOF april-ann-0.3.1/makefile000066400000000000000000000062341234204160600150770ustar00rootroot00000000000000LINUX_LUALIB = /usr/lib/lua/5.2 DARWIN_LUALIB = /opt/local/lib/lua/5.2 BIN = /usr/bin UNAME = `uname` ALL: release release: release-mkl debug: debug-atlas test: test-debug-no-omp document: lua profile_build_scripts/build_release_atlas.lua document ############################################################################# # TEST with OMP and ATLAS test-debug-atlas: debug lua profile_build_scripts/build_debug_atlas.lua test # TEST without OMP and ATLAS test-debug-no-omp: debug-no-omp lua profile_build_scripts/build_debug_no_omp.lua test # TEST for MACOSX MACPORTS test-debug-macports: debug-macports lua profile_build_scripts/build_debug_macports.lua test # TEST for MACOSX HOMEBREW test-debug-homebrew: debug-homebrew lua profile_build_scripts/build_debug_homebrew.lua test # TEST with OMP and MKL test-debug-mkl: debug-mkl lua profile_build_scripts/build_debug_mkl.lua test # TEST with CUDA and MKL test-debug-cuda-mkl: debug-cuda-mkl lua profile_build_scripts/build_debug_cuda_and_mkl.lua test # TEST for raspberry-pi (subset of packages) test-debug-pi: debug-pi lua profile_build_scripts/build_debug_pi.lua test ############################################################################# # RELEASE for MACOSX MACPORTS release-macports: lua profile_build_scripts/build_release_macports.lua # RELEASE for MACOSX HOMEBREW release-homebrew: lua profile_build_scripts/build_release_homebrew.lua # RELEASE with OMP and MKL release-mkl: lua profile_build_scripts/build_release_mkl.lua # RELEASE with OMP and ATLAS release-atlas: lua profile_build_scripts/build_release_atlas.lua # RELEASE with CUDA and MKL release-cuda-mkl: lua profile_build_scripts/build_release_cuda_and_mkl.lua # RELEASE for raspberry-pi (subset of pacakges) release-pi: lua profile_build_scripts/build_release_pi.lua # RELEASE without OMP and ATLAS release-no-omp: lua profile_build_scripts/build_release_no_omp.lua ############################################################################# # DEBUG for MACOSX MACPORTS debug-macports: lua profile_build_scripts/build_debug_macports.lua # DEBUG for MACOSX HOMEBREW debug-homebrew: lua profile_build_scripts/build_debug_homebrew.lua # DEBUG with OMP and MKL debug-mkl: lua profile_build_scripts/build_debug_mkl.lua # DEBUG with OMP and ATLAS debug-atlas: lua profile_build_scripts/build_debug_atlas.lua # DEBUG without OMP and ATLAS debug-no-omp: lua profile_build_scripts/build_debug_no_omp.lua # DEBUG with CUDA and MKL debug-cuda-mkl: lua profile_build_scripts/build_debug_cuda_and_mkl.lua # DEBUG for raspberry-pi (subset of packages) debug-pi: lua profile_build_scripts/build_debug_pi.lua ############################################################################# clean: ./clean.sh install: make install-$(UNAME) uninstall: make uninstall-$(UNAME) install-Darwin: mkdir -p $(DARWIN_LUALIB) install lib/aprilann.so $(DARWIN_LUALIB) install bin/april-ann $(BIN) install-Linux: mkdir -p $(LINUX_LUALIB) install lib/aprilann.so $(LINUX_LUALIB) install bin/april-ann $(BIN) uninstall-Darwin: rm -f $(DARWIN_LUALIB)/aprilann.so rm -f $(BIN)/april-ann uninstall-Linux: rm -f $(LINUX_LUALIB)/aprilann.so rm -f $(BIN)/april-ann april-ann-0.3.1/packages/000077500000000000000000000000001234204160600151505ustar00rootroot00000000000000april-ann-0.3.1/packages/ann/000077500000000000000000000000001234204160600157245ustar00rootroot00000000000000april-ann-0.3.1/packages/ann/ann/000077500000000000000000000000001234204160600165005ustar00rootroot00000000000000april-ann-0.3.1/packages/ann/ann/binding/000077500000000000000000000000001234204160600201125ustar00rootroot00000000000000april-ann-0.3.1/packages/ann/ann/binding/bind_ann_base.bak000066400000000000000000000502001234204160600233300ustar00rootroot00000000000000/* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C #include "bind_activation_function.h" #include "bind_matrix.h" #include "bind_mtrand.h" //BIND_END //BIND_HEADER_H #include "ann.h" #include "connection.h" #include "all_all_connection.h" #include "bias_connection.h" #include "action.h" #include "dot_product_action.h" #include "forward_bias_action.h" #include "activations_action.h" #include "actunit.h" #include "errorfunc.h" #include "bind_trainablesuper.h" #include "bind_function_interface.h" #include "trainsuper.h" using namespace Trainable; using namespace ANN; using namespace Functions; //BIND_END //BIND_LUACLASSNAME TrainableSupervised __trainable__ //BIND_LUACLASSNAME ANNBase ann.__base__ //BIND_CPP_CLASS ANNBase //BIND_SUBCLASS_OF ANNBase TrainableSupervised ////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME ActivationUnits ann.units.__base__ //BIND_LUACLASSNAME RealActivationUnits ann.units.real_cod //BIND_CPP_CLASS ActivationUnits //BIND_CPP_CLASS RealActivationUnits //BIND_SUBCLASS_OF RealActivationUnits ActivationUnits //BIND_CONSTRUCTOR ActivationUnits { LUABIND_ERROR("Abstract class!!!\n"); } //BIND_END //BIND_METHOD ActivationUnits num_neurons { LUABIND_RETURN(uint, obj->numNeurons()); } //BIND_END //BIND_METHOD ActivationUnits set_sparse { bool v; LUABIND_CHECK_ARGN(==,1); LUABIND_GET_PARAMETER(1, bool, v); obj->setSparse(v); } //BIND_END //BIND_METHOD ActivationUnits clone { LUABIND_CHECK_ARGN(>=,1); LUABIND_CHECK_ARGN(<=,2); ANNBase *ann; const char *type; LUABIND_GET_PARAMETER(1, ANNBase, ann); LUABIND_GET_OPTIONAL_PARAMETER(2, string, type, 0); ActivationUnitsType type_enum = HIDDEN_TYPE; if (type == 0) type_enum = obj->getType(); else if (strcmp(type, "inputs") == 0) type_enum = INPUTS_TYPE; else if (strcmp(type, "outputs") == 0) type_enum = OUTPUTS_TYPE; ActivationUnits *units = obj->clone(ann->getConfReference()); units->setType(type_enum); ann->registerActivationUnits(units); if (type_enum == INPUTS_TYPE) ann->registerInput(units); else if (type_enum == OUTPUTS_TYPE) ann->registerOutput(units); LUABIND_RETURN(ActivationUnits, units); } //BIND_END ////////////////////////////////////////////////////////////////// //BIND_CONSTRUCTOR RealActivationUnits //DOC_BEGIN // ann.units.real{ size = ..., ann = ..., type = (inputs, hidden, outputs) } /// Create a real activation units layer /// @param size The number of neurons /// @param ann The ANN which belongs /// @param type The type, could be inputs, hidden, outputs //DOC_END { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "size", "ann", "type", 0); unsigned int size; ANNBase *ann; const char *type; ActivationUnitsType type_enum = HIDDEN_TYPE; LUABIND_GET_TABLE_PARAMETER(1, size, uint, size); LUABIND_GET_TABLE_PARAMETER(1, ann, ANNBase, ann); LUABIND_GET_TABLE_PARAMETER(1, type, string, type); if (strcmp(type, "inputs")!=0 && strcmp(type, "hidden")!=0 && strcmp(type, "outputs")!=0) { LUABIND_FERROR1("Incorrect type '%s'!!\n", type); } if (strcmp(type, "inputs") == 0) type_enum = INPUTS_TYPE; else if (strcmp(type, "outputs") == 0) type_enum = OUTPUTS_TYPE; obj = new RealActivationUnits(size, ann->getConfReference(), type_enum, type_enum != INPUTS_TYPE); ann->registerActivationUnits(obj); if (type_enum == INPUTS_TYPE) ann->registerInput(obj); else if (type_enum == OUTPUTS_TYPE) ann->registerOutput(obj); LUABIND_RETURN(RealActivationUnits, obj); } //BIND_END //////////////////////////////////////////////// //BIND_CONSTRUCTOR ANNBase { LUABIND_ERROR("Abstract class!!!"); } //BIND_END //BIND_METHOD ANNBase get_num_weights { LUABIND_RETURN(uint, obj->getNumWeights()); } //BIND_END //BIND_METHOD ANNBase release_output { obj->releaseOutput(); } //BIND_END //BIND_METHOD ANNBase register_action { Action *action; LUABIND_GET_PARAMETER(1, Action, action); obj->registerAction(action); LUABIND_RETURN(Action, action); } //BIND_END //BIND_METHOD ANNBase register_input { ActivationUnits *actu; LUABIND_GET_PARAMETER(1, ActivationUnits, actu); obj->registerInput(actu); } //BIND_END //BIND_METHOD ANNBase register_output { ActivationUnits *actu; LUABIND_GET_PARAMETER(1, ActivationUnits, actu); obj->registerOutput(actu); } //BIND_END //BIND_METHOD ANNBase set_use_cuda { bool use_cuda, pinned; LUABIND_GET_PARAMETER(1, bool, use_cuda); LUABIND_GET_OPTIONAL_PARAMETER(2, bool, pinned, true); obj->setUseCuda(use_cuda, pinned); } //BIND_END //BIND_METHOD ANNBase get_layer_connections { unsigned int layer; LUABIND_GET_PARAMETER(1, uint, layer); if (layer < 1) LUABIND_ERROR("First layer is numbered with 1"); LUABIND_RETURN(Connections, obj->getLayerConnections(layer-1)); } //BIND_END //BIND_METHOD ANNBase get_layer_activations { unsigned int layer; LUABIND_GET_PARAMETER(1, uint, layer); if (layer < 1) LUABIND_ERROR("First layer is numbered with 1"); LUABIND_RETURN(ActivationUnits, obj->getLayerActivations(layer-1)); } //BIND_END //BIND_METHOD ANNBase get_action { unsigned int idx; LUABIND_GET_PARAMETER(1, uint, idx); if (idx < 1) LUABIND_ERROR("First action is numbered with 1"); LUABIND_RETURN(Action, obj->getAction(idx-1)); } //BIND_END //BIND_METHOD ANNBase get_layer_connections_size { LUABIND_RETURN(uint, obj->getLayerConnectionsSize()); } //BIND_END //BIND_METHOD ANNBase get_layer_activations_size { LUABIND_RETURN(uint, obj->getLayerActivationsSize()); } //BIND_END //BIND_METHOD ANNBase get_layer_connections_vector { unsigned int sz = obj->getLayerConnectionsSize(); lua_createtable(L, static_cast(sz), 0); for (unsigned int i=0; igetLayerConnections(i); lua_pushConnections(L, cnn); lua_rawseti(L, -2, i+1); } LUABIND_RETURN_FROM_STACK(1); } //BIND_END //BIND_METHOD ANNBase get_layer_activations_vector { unsigned int sz = obj->getLayerActivationsSize(); lua_createtable(L, static_cast(sz), 0); for (unsigned int i=0; igetLayerActivations(i); lua_pushActivationUnits(L, units); lua_rawseti(L, -2, i+1); } LUABIND_RETURN_FROM_STACK(1); } //BIND_END //BIND_METHOD ANNBase weights { MatrixFloat *weights = 0; MatrixFloat *old_weights = 0; unsigned int sz = obj->copyWeightsTo(&weights, &old_weights); LUABIND_RETURN(MatrixFloat, weights); LUABIND_RETURN(MatrixFloat, old_weights); LUABIND_RETURN(uint, sz); } //BIND_END ///////////////////////////////////////////////////// //BIND_LUACLASSNAME Action ann.actions.__base__ //BIND_CPP_CLASS Action //BIND_CONSTRUCTOR Action { LUABIND_ERROR("Abstract class!!!"); } //BIND_END //BIND_METHOD Action set_option { const char *name; double value; LUABIND_GET_PARAMETER(1, string, name); LUABIND_GET_PARAMETER(2, double, value); obj->setOption(name, value); } //BIND_END //BIND_METHOD Action get_option { const char *name; LUABIND_GET_PARAMETER(1, string, name); LUABIND_RETURN(double, obj->getOption(name)); } //BIND_END //BIND_METHOD Action has_option { const char *name; LUABIND_GET_PARAMETER(1, string, name); LUABIND_RETURN(bool, obj->hasOption(name)); } //BIND_END ////////////////////////////////////////////////////// //BIND_LUACLASSNAME ForwardBiasAction ann.actions.forward_bias //BIND_CPP_CLASS ForwardBiasAction //BIND_SUBCLASS_OF ForwardBiasAction Action //BIND_CONSTRUCTOR ForwardBiasAction { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "ann", "output", "connections", 0); ActivationUnits *output; Connections *conn; ANNBase *ann; LUABIND_GET_TABLE_PARAMETER(1, output, ActivationUnits, output); LUABIND_GET_TABLE_PARAMETER(1, connections, Connections, conn); LUABIND_GET_TABLE_PARAMETER(1, ann, ANNBase, ann); obj = new ForwardBiasAction(ann->getConfReference(), output, conn); ann->registerAction(obj); LUABIND_RETURN(ForwardBiasAction, obj); } //BIND_END ////////////////////////////////////////////////////// //BIND_LUACLASSNAME DotProductAction ann.actions.dot_product //BIND_CPP_CLASS DotProductAction //BIND_SUBCLASS_OF DotProductAction Action //BIND_CONSTRUCTOR DotProductAction { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "ann", "input", "output", "connections", "transpose", 0); ActivationUnits *input; ActivationUnits *output; Connections *conn; ANNBase *ann; bool transpose; LUABIND_GET_TABLE_PARAMETER(1, input, ActivationUnits, input); LUABIND_GET_TABLE_PARAMETER(1, output, ActivationUnits, output); LUABIND_GET_TABLE_PARAMETER(1, connections, Connections, conn); LUABIND_GET_TABLE_PARAMETER(1, ann, ANNBase, ann); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, transpose, bool, transpose, false); obj = new DotProductAction(ann->getConfReference(), input, output, conn, transpose); ann->registerAction(obj); LUABIND_RETURN(DotProductAction, obj); } //BIND_END ////////////////////////////////////////////////////// //BIND_LUACLASSNAME ActivationsAction ann.actions.activations //BIND_CPP_CLASS ActivationsAction //BIND_SUBCLASS_OF ActivationsAction Action //BIND_CONSTRUCTOR ActivationsAction { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "ann", "actfunc", "output", 0); ActivationUnits *output; ActivationFunction *actfunc; ANNBase *ann; LUABIND_GET_TABLE_PARAMETER(1, output, ActivationUnits, output); LUABIND_GET_TABLE_PARAMETER(1, actfunc, ActivationFunction, actfunc); LUABIND_GET_TABLE_PARAMETER(1, ann, ANNBase, ann); obj = new ActivationsAction(ann->getConfReference(), output, actfunc); ann->registerAction(obj); LUABIND_RETURN(ActivationsAction, obj); } //BIND_END ////////////////////////////////////////////////////// //BIND_LUACLASSNAME ErrorFunction ann.error_functions.__base__ //BIND_CPP_CLASS ErrorFunction //BIND_CONSTRUCTOR ErrorFunction { LUABIND_ERROR("Abstract class!!!"); } //BIND_END //BIND_LUACLASSNAME MSE ann.error_functions.mse //BIND_CPP_CLASS MSE //BIND_SUBCLASS_OF MSE ErrorFunction //BIND_CONSTRUCTOR MSE { obj = new MSE(); LUABIND_RETURN(MSE, obj); } //BIND_END //BIND_LUACLASSNAME Tanh ann.error_functions.tanh //BIND_CPP_CLASS Tanh //BIND_SUBCLASS_OF Tanh ErrorFunction //BIND_CONSTRUCTOR Tanh { obj = new Tanh(); LUABIND_RETURN(Tanh, obj); } //BIND_END //BIND_LUACLASSNAME CrossEntropy ann.error_functions.cross_entropy //BIND_CPP_CLASS CrossEntropy //BIND_SUBCLASS_OF CrossEntropy ErrorFunction //BIND_CONSTRUCTOR CrossEntropy { obj = new CrossEntropy(); LUABIND_RETURN(CrossEntropy, obj); } //BIND_END //BIND_LUACLASSNAME LogisticCrossEntropy ann.error_functions.logistic_cross_entropy //BIND_CPP_CLASS LogisticCrossEntropy //BIND_SUBCLASS_OF LogisticCrossEntropy ErrorFunction //BIND_CONSTRUCTOR LogisticCrossEntropy { obj = new LogisticCrossEntropy(); LUABIND_RETURN(LogisticCrossEntropy, obj); } //BIND_END //BIND_LUACLASSNAME FullCrossEntropy ann.error_functions.full_cross_entropy //BIND_CPP_CLASS FullCrossEntropy //BIND_SUBCLASS_OF FullCrossEntropy ErrorFunction //BIND_CONSTRUCTOR FullCrossEntropy { obj = new FullCrossEntropy(); LUABIND_RETURN(FullCrossEntropy, obj); } //BIND_END //BIND_LUACLASSNAME FullLogisticCrossEntropy ann.error_functions.full_logistic_cross_entropy //BIND_CPP_CLASS FullLogisticCrossEntropy //BIND_SUBCLASS_OF FullLogisticCrossEntropy ErrorFunction //BIND_CONSTRUCTOR FullLogisticCrossEntropy { obj = new FullLogisticCrossEntropy(); LUABIND_RETURN(FullLogisticCrossEntropy, obj); } //BIND_END //BIND_LUACLASSNAME LocalFMeasure ann.error_functions.local_fmeasure //BIND_CPP_CLASS LocalFMeasure //BIND_SUBCLASS_OF LocalFMeasure ErrorFunction //BIND_CONSTRUCTOR LocalFMeasure { obj = new LocalFMeasure(); LUABIND_RETURN(LocalFMeasure, obj); } //BIND_END /////////////////////////////////////////////////// //BIND_LUACLASSNAME Connections ann.connections.__base__ //BIND_CPP_CLASS Connections //BIND_CONSTRUCTOR Connections { LUABIND_ERROR("Abstract class!!!"); } //BIND_END //BIND_METHOD Connections clone { LUABIND_CHECK_ARGN(==,1); ANNBase *ann; LUABIND_GET_PARAMETER(1, ANNBase, ann); Connections *cnn = obj->clone(); ann->registerConnections(cnn); LUABIND_RETURN(Connections, cnn); } //BIND_END //BIND_METHOD Connections load { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1,table); check_table_fields(L, 1, "w", "oldw", "first_pos", "column_size", 0); unsigned int first_pos, column_size; MatrixFloat *w, *oldw; LUABIND_GET_TABLE_PARAMETER(1, w, MatrixFloat, w); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, oldw, MatrixFloat, oldw, w); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, first_pos, uint, first_pos, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, column_size, uint, column_size, obj->getNumInputs()); LUABIND_RETURN(uint, obj->loadWeights(w, oldw, first_pos, column_size)); } //BIND_END //BIND_METHOD Connections weights { LUABIND_CHECK_ARGN(<=,1); LUABIND_CHECK_ARGN(>=,0); int nargs; LUABIND_TABLE_GETN(1, nargs); unsigned int first_pos=0, column_size=obj->getNumInputs(); MatrixFloat *w=0, *oldw=0; if (nargs == 1) { LUABIND_CHECK_PARAMETER(1,table); check_table_fields(L, 1, "w", "oldw", "first_pos", "column_size", 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, w, MatrixFloat, w, w); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, oldw, MatrixFloat, oldw, oldw); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, first_pos, uint, first_pos, first_pos); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, column_size, uint, column_size, column_size); } int size = static_cast(obj->size()); if (!w) w = new MatrixFloat(1, first_pos + size); if (!oldw) oldw = new MatrixFloat(1, w->size); if (first_pos + obj->size() > static_cast(w->size) || first_pos + obj->size() > static_cast(oldw->size) ) LUABIND_ERROR("Incorrect matrix size!!\n"); unsigned int sz = obj->copyWeightsTo(w, oldw, first_pos, column_size); LUABIND_RETURN(MatrixFloat, w); LUABIND_RETURN(MatrixFloat, oldw); LUABIND_RETURN(uint, sz); } //BIND_END //BIND_METHOD Connections size { LUABIND_RETURN(uint, obj->size()); } //BIND_END //BIND_METHOD Connections randomize_weights { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "random", "inf", "sup", "use_fanin", 0); MTRand *rnd; float inf, sup; bool use_fanin; LUABIND_GET_TABLE_PARAMETER(1, random, MTRand, rnd); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, inf, float, inf, -1.0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, sup, float, sup, 1.0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, use_fanin, bool, use_fanin, false); obj->randomizeWeights(rnd, inf, sup, use_fanin); } //BIND_END //////////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME AllAllConnections ann.connections.all_all //BIND_CPP_CLASS AllAllConnections //BIND_SUBCLASS_OF AllAllConnections Connections //BIND_CONSTRUCTOR AllAllConnections { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "input_size", "output_size", "ann", "w", "oldw", "first_pos", "column_size", 0); MatrixFloat *w, *oldw; unsigned int input_size, output_size, first_pos, column_size; ANNBase *ann; LUABIND_GET_TABLE_PARAMETER(1, input_size, uint, input_size); LUABIND_GET_TABLE_PARAMETER(1, output_size, uint, output_size); LUABIND_GET_TABLE_PARAMETER(1, ann, ANNBase, ann); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, w, MatrixFloat, w, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, oldw, MatrixFloat, oldw, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, first_pos, uint, first_pos, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, column_size, uint, column_size, input_size); if (oldw && !w) LUABIND_ERROR("Parameter w is mandatory with oldw!!!\n"); obj=new AllAllConnections(input_size, output_size); ann->registerConnections(obj); if (w) obj->loadWeights(w, oldw, first_pos, column_size); LUABIND_RETURN(AllAllConnections, obj); } //BIND_END //BIND_LUACLASSNAME BiasConnections ann.connections.bias //BIND_CPP_CLASS BiasConnections //BIND_SUBCLASS_OF BiasConnections Connections //BIND_CONSTRUCTOR BiasConnections { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "size", "ann", "w", "oldw", "first_pos", "column_size", 0); MatrixFloat *w, *oldw; unsigned int size, first_pos, column_size; ANNBase *ann; LUABIND_GET_TABLE_PARAMETER(1, size, uint, size); LUABIND_GET_TABLE_PARAMETER(1, ann, ANNBase, ann); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, w, MatrixFloat, w, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, oldw, MatrixFloat, oldw, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, first_pos, uint, first_pos, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, column_size, uint, column_size, 1); if (oldw && !w) LUABIND_ERROR("Parameter w is mandatory with oldw!!!\n"); obj=new BiasConnections(size); ann->registerConnections(obj); if (w) obj->loadWeights(w, oldw, first_pos, column_size); LUABIND_RETURN(BiasConnections, obj); } //BIND_END ///////////////////////////////////////////////////// //BIND_LUACLASSNAME TimeSeriesErrorFunction ann.time_series_error_functions.__base__ //BIND_CPP_CLASS TimeSeriesErrorFunction //BIND_CONSTRUCTOR TimeSeriesErrorFunction { LUABIND_ERROR("Abstract class!!!"); } //BIND_END //BIND_METHOD TimeSeriesErrorFunction computeErrorFromTimeSerie { float *outputs; float *target_outputs; unsigned int output_size; LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "outputs", "target_outputs", 0); lua_getfield(L, 1, "outputs"); LUABIND_TABLE_GETN(-1, output_size); outputs = new float[output_size]; LUABIND_TABLE_TO_VECTOR(-1, float, outputs, output_size); lua_pop(L, 1); lua_getfield(L, 1, "target_outputs"); unsigned int aux; LUABIND_TABLE_GETN(-1, aux); if (aux != output_size) LUABIND_ERROR ("outputs and target_outputs sizes are diferent!!!\n"); target_outputs = new float[output_size]; LUABIND_TABLE_TO_VECTOR(-1, float, target_outputs, output_size); lua_pop(L, 1); LUABIND_RETURN(float, obj->computeErrorFromTimeSerie(outputs, target_outputs, output_size)); delete[] outputs; delete[] target_outputs; } //BIND_END //////////////////////////////////////////////////// //BIND_LUACLASSNAME NormalizedRootMSE ann.time_series_error_functions.nrmse //BIND_CPP_CLASS NormalizedRootMSE //BIND_SUBCLASS_OF NormalizedRootMSE TimeSeriesErrorFunction //BIND_CONSTRUCTOR NormalizedRootMSE { obj = new NormalizedRootMSE(); LUABIND_RETURN(NormalizedRootMSE, obj); } //BIND_END //////////////////////////////////////////////////// //BIND_LUACLASSNAME RootMSE ann.time_series_error_functions.rmse //BIND_CPP_CLASS RootMSE //BIND_SUBCLASS_OF RootMSE TimeSeriesErrorFunction //BIND_CONSTRUCTOR RootMSE { obj = new RootMSE(); LUABIND_RETURN(RootMSE, obj); } //BIND_END //////////////////////////////////////////////////// //BIND_LUACLASSNAME AbsoluteError ann.time_series_error_functions.absolute_error //BIND_CPP_CLASS AbsoluteError //BIND_SUBCLASS_OF AbsoluteError TimeSeriesErrorFunction //BIND_CONSTRUCTOR AbsoluteError { obj = new AbsoluteError(); LUABIND_RETURN(AbsoluteError, obj); } //BIND_END april-ann-0.3.1/packages/ann/ann/binding/bind_ann_base.lua.cc000066400000000000000000001422101234204160600237430ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C #include "bind_function_interface.h" #include "bind_matrix.h" #include "bind_sparse_matrix.h" #include "bind_mtrand.h" #include "bind_tokens.h" #include "table_of_token_codes.h" static bool rewrapToAtLeastDim2(Token *&tk) { if (tk->getTokenCode() == table_of_token_codes::token_matrix) { TokenMatrixFloat *tk_mat = tk->convertTo(); MatrixFloat *m = tk_mat->getMatrix(); if (m->getNumDim() == 1) { int dims[2] = { 1, m->getDimSize(0) }; Token *new_tk = new TokenMatrixFloat(m->rewrap(dims, 2)); IncRef(new_tk); DecRef(tk); tk = new_tk; return true; } } return false; } static void unwrapToDim1(Token *&tk) { if (tk->getTokenCode() == table_of_token_codes::token_matrix) { TokenMatrixFloat *tk_mat = tk->convertTo(); MatrixFloat *m = tk_mat->getMatrix(); int dim = m->getDimSize(1); MatrixFloat *new_m = m->rewrap(&dim, 1); Token *tk = new TokenMatrixFloat(new_m); } } template void pushHashTableInLuaStack(lua_State *L, hash &hashobject, PushFunction push_function) { lua_createtable(L, 0, hashobject.size()); for (typename hash::iterator it = hashobject.begin(); it != hashobject.end(); ++it) { push_function(L, it->second); lua_setfield(L, -2, it->first.c_str()); } } //BIND_END //BIND_HEADER_H #include "ann_component.h" #include "dot_product_component.h" #include "bias_component.h" #include "hyperplane_component.h" #include "stack_component.h" #include "join_component.h" #include "copy_component.h" #include "select_component.h" #include "rewrap_component.h" #include "slice_component.h" #include "flatten_component.h" #include "convolution_component.h" #include "convolution_bias_component.h" #include "maxpooling_component.h" #include "activation_function_component.h" #include "connection.h" #include "activation_function_component.h" #include "logistic_actf_component.h" #include "tanh_actf_component.h" #include "softsign_actf_component.h" #include "log_logistic_actf_component.h" #include "softmax_actf_component.h" #include "log_softmax_actf_component.h" #include "softplus_actf_component.h" #include "relu_actf_component.h" #include "hardtanh_actf_component.h" #include "sin_actf_component.h" #include "linear_actf_component.h" #include "gaussian_noise_component.h" #include "salt_and_pepper_component.h" #include "dropout_component.h" #include "pca_whitening_component.h" #include "zca_whitening_component.h" #include "bind_function_interface.h" #include "error_print.h" using namespace Functions; using namespace ANN; //BIND_END ///////////////////////////////////////////////////// // Connections // ///////////////////////////////////////////////////// //BIND_FUNCTION ann.connections { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "input", "output", "w", "oldw", "first_pos", "column_size", (const char *)0); MatrixFloat *w, *oldw; unsigned int input_size, output_size, first_pos, column_size; LUABIND_GET_TABLE_PARAMETER(1, input, uint, input_size); LUABIND_GET_TABLE_PARAMETER(1, output, uint, output_size); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, w, MatrixFloat, w, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, oldw, MatrixFloat, oldw, 0); if (oldw != 0) ERROR_PRINT("oldw field is deprecated\n"); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, first_pos, uint, first_pos, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, column_size, uint, column_size, input_size); // MatrixFloat *obj; if (w && w->getMajorOrder() == CblasColMajor) obj = w->clone(); else { obj = Connections::build(input_size, output_size); if (w) Connections::loadWeights(obj, w, first_pos, column_size); } LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_FUNCTION ann.connections.to_lua_string { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1,MatrixFloat); MatrixFloat *obj; LUABIND_GET_PARAMETER(1, MatrixFloat, obj); char *str = Connections::toLuaString(obj); LUABIND_RETURN(string, str); delete[] str; } //BIND_END //BIND_FUNCTION ann.connections.load { LUABIND_CHECK_ARGN(==,2); LUABIND_CHECK_PARAMETER(1,MatrixFloat); LUABIND_CHECK_PARAMETER(2,table); check_table_fields(L, 2, "w", "oldw", "first_pos", "column_size", (const char *)0); unsigned int first_pos, column_size; MatrixFloat *w, *oldw, *obj; LUABIND_GET_PARAMETER(1, MatrixFloat, obj); LUABIND_GET_TABLE_PARAMETER(2, w, MatrixFloat, w); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(2, oldw, MatrixFloat, oldw, 0); if (oldw != 0) ERROR_PRINT("oldw field is deprecated\n"); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(2, first_pos, uint, first_pos, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(2, column_size, uint, column_size, Connections::getNumInputs(obj)); LUABIND_RETURN(uint, Connections::loadWeights(obj, w, first_pos, column_size)); } //BIND_END //BIND_FUNCTION ann.connections.copy_to { LUABIND_CHECK_ARGN(>=,1); LUABIND_CHECK_ARGN(<=,2); LUABIND_CHECK_PARAMETER(1, MatrixFloat); int argn = lua_gettop(L); MatrixFloat *w=0, *oldw=0, *obj; LUABIND_GET_PARAMETER(1, MatrixFloat, obj); unsigned int first_pos=0, column_size=Connections::getNumInputs(obj); if (argn == 2) { LUABIND_CHECK_PARAMETER(2,table); check_table_fields(L, 2, "w", "oldw", "first_pos", "column_size", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, w, MatrixFloat, w, w); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, oldw, MatrixFloat, oldw, 0); if (oldw != 0) ERROR_PRINT("oldw field is deprecated\n"); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, first_pos, uint, first_pos, first_pos); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, column_size, uint, column_size, column_size); } int size = static_cast(obj->size()); if (!w) w = new MatrixFloat(1, first_pos + size); if (first_pos + obj->size() > static_cast(w->size())) LUABIND_ERROR("Incorrect matrix size!!\n"); unsigned int lastpos; lastpos = Connections::copyWeightsTo(obj, w, first_pos, column_size); LUABIND_RETURN(MatrixFloat, w); LUABIND_RETURN(uint, lastpos); } //BIND_END //BIND_FUNCTION ann.connections.get_input_size { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, MatrixFloat); MatrixFloat *obj; LUABIND_GET_PARAMETER(1, MatrixFloat, obj); LUABIND_RETURN(uint, Connections::getInputSize(obj)); } //BIND_END //BIND_FUNCTION ann.connections.get_output_size { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, MatrixFloat); MatrixFloat *obj; LUABIND_GET_PARAMETER(1, MatrixFloat, obj); LUABIND_RETURN(uint, Connections::getOutputSize(obj)); } //BIND_END //BIND_FUNCTION ann.connections.randomize_weights { LUABIND_CHECK_ARGN(==, 2); LUABIND_CHECK_PARAMETER(1, MatrixFloat); LUABIND_CHECK_PARAMETER(2, table); check_table_fields(L, 2, "random", "inf", "sup", (const char *)0); MTRand *rnd; float inf, sup; bool use_fanin; MatrixFloat *obj; LUABIND_GET_PARAMETER(1, MatrixFloat, obj); LUABIND_GET_TABLE_PARAMETER(2, random, MTRand, rnd); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(2, inf, float, inf, -1.0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(2, sup, float, sup, 1.0); Connections::randomizeWeights(obj, rnd, inf, sup); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END ///////////////////////////////////////////////////// // ANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME FunctionInterface functions //BIND_LUACLASSNAME ANNComponent ann.components.base //BIND_CPP_CLASS ANNComponent //BIND_SUBCLASS_OF ANNComponent FunctionInterface //BIND_CONSTRUCTOR ANNComponent //DOC_BEGIN // base(name) /// Superclass for ann.components objects. It is also a dummy by-pass object (does nothing with input/output data). /// @param name A lua string with the name of the component. //DOC_END { LUABIND_CHECK_ARGN(<=,1); int argn = lua_gettop(L); const char *name = 0; const char *weights = 0; unsigned int size = 0; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "name", "weights", "size", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, weights, string, weights, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, size, uint, size, 0); } obj = new ANNComponent(name, weights, size, size); LUABIND_RETURN(ANNComponent, obj); } //BIND_END //BIND_FUNCTION ann.components.reset_id_counters { ANNComponent::resetIdCounters(); } //BIND_END //BIND_METHOD ANNComponent to_lua_string { char *str = obj->toLuaString(); LUABIND_RETURN(string, str); delete[] str; } //BIND_END //BIND_METHOD ANNComponent get_name { LUABIND_RETURN(string, obj->getName().c_str()); } //BIND_END //BIND_METHOD ANNComponent get_weights_name { LUABIND_RETURN(string, obj->getWeightsName().c_str()); } //BIND_END //BIND_METHOD ANNComponent has_weights_name { LUABIND_RETURN(bool, obj->hasWeightsName()); } //BIND_END //BIND_METHOD ANNComponent get_is_built { LUABIND_RETURN(bool, obj->getIsBuilt()); } //BIND_END //BIND_METHOD ANNComponent debug_info { obj->debugInfo(); } //BIND_END //BIND_METHOD ANNComponent get_input_size { LUABIND_RETURN(uint, obj->getInputSize()); } //BIND_END //BIND_METHOD ANNComponent get_output_size { LUABIND_RETURN(uint, obj->getOutputSize()); } //BIND_END //BIND_METHOD ANNComponent get_input { Token *aux = obj->getInput(); if (aux == 0) LUABIND_RETURN_NIL(); else LUABIND_RETURN(Token, aux); } //BIND_END //BIND_METHOD ANNComponent get_output { Token *aux = obj->getOutput(); if (aux == 0) LUABIND_RETURN_NIL(); else LUABIND_RETURN(Token, aux); } //BIND_END //BIND_METHOD ANNComponent get_error_input { Token *aux = obj->getErrorInput(); if (aux == 0) LUABIND_RETURN_NIL(); else LUABIND_RETURN(Token, aux); } //BIND_END //BIND_METHOD ANNComponent get_error_output { Token *aux = obj->getErrorOutput(); if (aux == 0) LUABIND_RETURN_NIL(); else LUABIND_RETURN(Token, aux); } //BIND_END //BIND_METHOD ANNComponent precompute_output_size { vector input_size, output_size; LUABIND_CHECK_ARGN(<=,1); int argn = lua_gettop(L); if (argn == 0) input_size.push_back(0); else { int n; LUABIND_TABLE_GETN(1, n); input_size.resize(n); LUABIND_TABLE_TO_VECTOR(1, uint, input_size, n); } obj->precomputeOutputSize(input_size, output_size); LUABIND_FORWARD_CONTAINER_TO_NEW_TABLE(vector, uint, output_size); LUABIND_RETURN_FROM_STACK(-1); } //BIND_END //BIND_METHOD ANNComponent forward { Token *input; bool during_training; LUABIND_CHECK_ARGN(>=, 1); LUABIND_CHECK_ARGN(<=, 2); LUABIND_GET_PARAMETER(1, AuxToken, input); LUABIND_GET_OPTIONAL_PARAMETER(2, bool, during_training, false); IncRef(input); bool rewrapped = rewrapToAtLeastDim2(input); Token *output = obj->doForward(input, during_training); if (rewrapped) unwrapToDim1(output); LUABIND_RETURN(Token, output); DecRef(input); } //BIND_END //BIND_METHOD ANNComponent backprop { Token *input; LUABIND_CHECK_ARGN(==, 1); LUABIND_GET_PARAMETER(1, AuxToken, input); IncRef(input); bool rewrapped = rewrapToAtLeastDim2(input); Token *gradient = obj->doBackprop(input); if (gradient != 0) { if (rewrapped) unwrapToDim1(gradient); LUABIND_RETURN(Token, gradient); } else LUABIND_RETURN_NIL(); DecRef(input); } //BIND_END //BIND_METHOD ANNComponent reset { unsigned int it; LUABIND_GET_OPTIONAL_PARAMETER(1, int, it, 0); obj->reset(it); } //BIND_END //BIND_METHOD ANNComponent compute_gradients { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); MatrixFloatSet *weight_grads_dict; if (argn == 1) LUABIND_GET_PARAMETER(1, MatrixFloatSet, weight_grads_dict); else weight_grads_dict = new MatrixFloatSet(); // obj->computeAllGradients(weight_grads_dict); LUABIND_RETURN(MatrixFloatSet, weight_grads_dict); } //BIND_END //BIND_METHOD ANNComponent clone { LUABIND_RETURN(ANNComponent, obj->clone()); } //BIND_END //BIND_METHOD ANNComponent set_use_cuda { bool use_cuda; LUABIND_CHECK_ARGN(==, 1); LUABIND_GET_PARAMETER(1, bool, use_cuda); obj->setUseCuda(use_cuda); LUABIND_RETURN(ANNComponent, obj); } //BIND_END //BIND_METHOD ANNComponent get_use_cuda { LUABIND_RETURN(bool, obj->getUseCuda()); } //BIND_END //BIND_METHOD ANNComponent build { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); unsigned int input_size=0, output_size=0; MatrixFloatSet *weights_dict = 0; hash components_dict; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "input", "output", "weights", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, input, uint, input_size, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, output, uint, output_size, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, weights, MatrixFloatSet, weights_dict, 0); } if (weights_dict == 0) weights_dict = new MatrixFloatSet(); // obj->build(input_size, output_size, weights_dict, components_dict); // LUABIND_RETURN(ANNComponent, obj); LUABIND_RETURN(MatrixFloatSet, weights_dict); pushHashTableInLuaStack(L, components_dict, lua_pushANNComponent); LUABIND_INCREASE_NUM_RETURNS(1); } //BIND_END //BIND_METHOD ANNComponent copy_weights { MatrixFloatSet *weights_dict = new MatrixFloatSet(); obj->copyWeights(weights_dict); LUABIND_RETURN(MatrixFloatSet, weights_dict); } //BIND_END //BIND_METHOD ANNComponent copy_components { hash components_dict; obj->copyComponents(components_dict); pushHashTableInLuaStack(L, components_dict, lua_pushANNComponent); LUABIND_RETURN_FROM_STACK(-1); } //BIND_END //BIND_METHOD ANNComponent get_component { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1,string); const char *name; LUABIND_GET_PARAMETER(1, string, name); string name_string(name); ANNComponent *component = obj->getComponent(name_string); LUABIND_RETURN(ANNComponent, component); } //BIND_END ///////////////////////////////////////////////////// // DotProductANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME DotProductANNComponent ann.components.dot_product //BIND_CPP_CLASS DotProductANNComponent //BIND_SUBCLASS_OF DotProductANNComponent ANNComponent //BIND_CONSTRUCTOR DotProductANNComponent { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); const char *name=0, *weights_name=0; unsigned int input_size=0, output_size=0; bool transpose_weights=false; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "name", "weights", "input", "output", "transpose", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, weights, string, weights_name, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, input, uint, input_size, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, output, uint, output_size, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, transpose, bool, transpose_weights, false); } obj = new DotProductANNComponent(name, weights_name, input_size, output_size, transpose_weights); LUABIND_RETURN(DotProductANNComponent, obj); } //BIND_END //BIND_METHOD DotProductANNComponent clone { LUABIND_RETURN(DotProductANNComponent, dynamic_cast(obj->clone())); } //BIND_END ///////////////////////////////////////////////////// // BiasANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME BiasANNComponent ann.components.bias //BIND_CPP_CLASS BiasANNComponent //BIND_SUBCLASS_OF BiasANNComponent ANNComponent //BIND_CONSTRUCTOR BiasANNComponent { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); const char *name=0, *weights_name=0; unsigned int size=0; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "name", "weights", "size", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, size, uint, size, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, weights, string, weights_name, 0); } obj = new BiasANNComponent(size, name, weights_name); LUABIND_RETURN(BiasANNComponent, obj); } //BIND_END //BIND_METHOD BiasANNComponent clone { LUABIND_RETURN(BiasANNComponent, dynamic_cast(obj->clone())); } //BIND_END ///////////////////////////////////////////////////// // HyperplaneANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME HyperplaneANNComponent ann.components.hyperplane //BIND_CPP_CLASS HyperplaneANNComponent //BIND_SUBCLASS_OF HyperplaneANNComponent ANNComponent //BIND_CONSTRUCTOR HyperplaneANNComponent { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); const char *name=0; const char *dot_product_name=0, *bias_name=0; const char *dot_product_weights=0, *bias_weights=0; unsigned int input_size=0, output_size=0; bool transpose_weights=false; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "name", "dot_product_name", "bias_name", "dot_product_weights", "bias_weights", "input", "output", "transpose", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, dot_product_name, string, dot_product_name, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, bias_name, string, bias_name, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, dot_product_weights, string, dot_product_weights, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, bias_weights, string, bias_weights, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, input, uint, input_size, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, output, uint, output_size, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, transpose, bool, transpose_weights, false); } obj = new HyperplaneANNComponent(name, dot_product_name, bias_name, dot_product_weights, bias_weights, input_size, output_size, transpose_weights); LUABIND_RETURN(HyperplaneANNComponent, obj); } //BIND_END //BIND_METHOD HyperplaneANNComponent clone { LUABIND_RETURN(HyperplaneANNComponent, dynamic_cast(obj->clone())); } //BIND_END ///////////////////////////////////////////////////// // StackANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME StackANNComponent ann.components.stack //BIND_CPP_CLASS StackANNComponent //BIND_SUBCLASS_OF StackANNComponent ANNComponent //BIND_CONSTRUCTOR StackANNComponent { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); const char *name=0; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "name", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); } obj = new StackANNComponent(name); LUABIND_RETURN(StackANNComponent, obj); } //BIND_END //BIND_METHOD StackANNComponent size { LUABIND_RETURN(uint, obj->size()); } //BIND_END //BIND_METHOD StackANNComponent push { LUABIND_CHECK_ARGN(>=, 1); int argn = lua_gettop(L); for (int i=1; i<=argn; ++i) { LUABIND_CHECK_PARAMETER(i, ANNComponent); ANNComponent *component; LUABIND_GET_PARAMETER(i, ANNComponent, component); obj->pushComponent(component); } LUABIND_RETURN(StackANNComponent, obj); } //BIND_END //BIND_METHOD StackANNComponent unroll { lua_checkstack(L, obj->size()); for (unsigned int i=0; isize(); ++i) LUABIND_RETURN(ANNComponent, obj->getComponentAt(i)); } //BIND_END //BIND_METHOD StackANNComponent get { LUABIND_CHECK_ARGN(>=,1); int argn = lua_gettop(L); lua_checkstack(L, argn); for (int i=1; i<=argn; ++i) { unsigned int idx; LUABIND_GET_PARAMETER(i, uint, idx); --idx; if (idx >= obj->size()) LUABIND_FERROR2("Incorrect index, expected <= %d, found %d\n", obj->size(), idx+1); LUABIND_RETURN(ANNComponent, obj->getComponentAt(idx)); } } //BIND_END //BIND_METHOD StackANNComponent top { LUABIND_RETURN(ANNComponent, obj->topComponent()); } //BIND_END //BIND_METHOD StackANNComponent pop { obj->popComponent(); LUABIND_RETURN(StackANNComponent, obj); } //BIND_END //BIND_METHOD StackANNComponent clone { LUABIND_RETURN(StackANNComponent, dynamic_cast(obj->clone())); } //BIND_END //BIND_METHOD StackANNComponent set_use_cuda { bool use_cuda; LUABIND_CHECK_ARGN(==, 1); LUABIND_GET_PARAMETER(1, bool, use_cuda); obj->setUseCuda(use_cuda); LUABIND_RETURN(StackANNComponent, obj); } //BIND_END ///////////////////////////////////////////////////// // JoinANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME JoinANNComponent ann.components.join //BIND_CPP_CLASS JoinANNComponent //BIND_SUBCLASS_OF JoinANNComponent ANNComponent //BIND_CONSTRUCTOR JoinANNComponent { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); const char *name=0; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "name", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); } obj = new JoinANNComponent(name); LUABIND_RETURN(JoinANNComponent, obj); } //BIND_END //BIND_METHOD JoinANNComponent add { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, ANNComponent); ANNComponent *component; LUABIND_GET_PARAMETER(1, ANNComponent, component); obj->addComponent(component); LUABIND_RETURN(JoinANNComponent, obj); } //BIND_END //BIND_METHOD JoinANNComponent clone { LUABIND_RETURN(JoinANNComponent, dynamic_cast(obj->clone())); } //BIND_END //BIND_METHOD JoinANNComponent set_use_cuda { bool use_cuda; LUABIND_CHECK_ARGN(==, 1); LUABIND_GET_PARAMETER(1, bool, use_cuda); obj->setUseCuda(use_cuda); LUABIND_RETURN(JoinANNComponent, obj); } //BIND_END ///////////////////////////////////////////////////// // CopyANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME CopyANNComponent ann.components.copy //BIND_CPP_CLASS CopyANNComponent //BIND_SUBCLASS_OF CopyANNComponent ANNComponent //BIND_CONSTRUCTOR CopyANNComponent { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); int argn = lua_gettop(L); const char *name=0; unsigned int input_size=0, output_size=0, times; check_table_fields(L, 1, "times", "name", "input", "output", (const char *)0); LUABIND_GET_TABLE_PARAMETER(1, times, uint, times); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, input, uint, input_size, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, output, uint, output_size, 0); obj = new CopyANNComponent(times, name, input_size, output_size); LUABIND_RETURN(CopyANNComponent, obj); } //BIND_END //BIND_METHOD CopyANNComponent clone { LUABIND_RETURN(CopyANNComponent, dynamic_cast(obj->clone())); } //BIND_END ///////////////////////////////////////////////////// // SelectANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME SelectANNComponent ann.components.select //BIND_CPP_CLASS SelectANNComponent //BIND_SUBCLASS_OF SelectANNComponent ANNComponent //BIND_CONSTRUCTOR SelectANNComponent { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); const char *name=0; int dimension, index; check_table_fields(L, 1, "name", "dimension", "index", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); LUABIND_GET_TABLE_PARAMETER(1, dimension, int, dimension); LUABIND_GET_TABLE_PARAMETER(1, index, int, index); obj = new SelectANNComponent(dimension-1, index-1, name); LUABIND_RETURN(SelectANNComponent, obj); } //BIND_END //BIND_METHOD SelectANNComponent clone { LUABIND_RETURN(SelectANNComponent, dynamic_cast(obj->clone())); } //BIND_END ///////////////////////////////////////////////////// // RewrapANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME RewrapANNComponent ann.components.rewrap //BIND_CPP_CLASS RewrapANNComponent //BIND_SUBCLASS_OF RewrapANNComponent ANNComponent //BIND_CONSTRUCTOR RewrapANNComponent { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); const char *name=0; int *size, n; check_table_fields(L, 1, "name", "size", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); lua_getfield(L, 1, "size"); if (!lua_istable(L, -1)) LUABIND_ERROR("Expected a table at field size"); LUABIND_TABLE_GETN(-1, n); size = new int[n]; LUABIND_TABLE_TO_VECTOR(-1, int, size, n); lua_pop(L, 1); obj = new RewrapANNComponent(size, n, name); delete[] size; LUABIND_RETURN(RewrapANNComponent, obj); } //BIND_END //BIND_METHOD RewrapANNComponent clone { LUABIND_RETURN(RewrapANNComponent, dynamic_cast(obj->clone())); } //BIND_END ///////////////////////////////////////////////////// // SliceANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME SliceANNComponent ann.components.slice //BIND_CPP_CLASS SliceANNComponent //BIND_SUBCLASS_OF SliceANNComponent ANNComponent //BIND_CONSTRUCTOR SliceANNComponent { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); const char *name=0; int *size, *pos, n; check_table_fields(L, 1, "name", "pos", "size", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); // lua_getfield(L, 1, "pos"); if (!lua_istable(L, -1)) LUABIND_ERROR("Expected a table at field pos"); LUABIND_TABLE_GETN(-1, n); pos = new int[n]; LUABIND_TABLE_TO_VECTOR_SUB1(-1, int, pos, n); lua_pop(L, 1); // lua_getfield(L, 1, "size"); if (!lua_istable(L, -1)) LUABIND_ERROR("Expected a table at field size"); LUABIND_TABLE_GETN(-1, n); size = new int[n]; LUABIND_TABLE_TO_VECTOR(-1, int, size, n); lua_pop(L, 1); // obj = new SliceANNComponent(pos, size, n, name); delete[] pos; delete[] size; LUABIND_RETURN(SliceANNComponent, obj); } //BIND_END //BIND_METHOD SliceANNComponent clone { LUABIND_RETURN(SliceANNComponent, dynamic_cast(obj->clone())); } //BIND_END ///////////////////////////////////////////////////// // FlattenANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME FlattenANNComponent ann.components.flatten //BIND_CPP_CLASS FlattenANNComponent //BIND_SUBCLASS_OF FlattenANNComponent ANNComponent //BIND_CONSTRUCTOR FlattenANNComponent { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); const char *name=0; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "name", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); } obj = new FlattenANNComponent(name); LUABIND_RETURN(FlattenANNComponent, obj); } //BIND_END //BIND_METHOD FlattenANNComponent clone { LUABIND_RETURN(FlattenANNComponent, dynamic_cast(obj->clone())); } //BIND_END ///////////////////////////////////////////////////// // ConvolutionANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME ConvolutionANNComponent ann.components.convolution //BIND_CPP_CLASS ConvolutionANNComponent //BIND_SUBCLASS_OF ConvolutionANNComponent ANNComponent //BIND_CONSTRUCTOR ConvolutionANNComponent { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); const char *name=0, *weights=0; int *kernel, *step, n, input_planes_dim; check_table_fields(L, 1, "name", "weights", "kernel", "input_planes_dim", "step", "n", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, weights, string, weights, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, input_planes_dim, int, input_planes_dim, 1); LUABIND_GET_TABLE_PARAMETER(1, n, int, n); // lua_getfield(L, 1, "kernel"); if (!lua_istable(L, -1)) LUABIND_ERROR("Expected a table at field 'kernel'"); int size; LUABIND_TABLE_GETN(-1, size); kernel = new int[size]; step = new int[size]; LUABIND_TABLE_TO_VECTOR(-1, int, kernel, size); lua_pop(L, 1); // lua_getfield(L, 1, "step"); if (lua_isnil(L, -1)) { for (int i=0; i(obj->clone())); } //BIND_END ///////////////////////////////////////////////////// // ConvolutionBiasANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME ConvolutionBiasANNComponent ann.components.convolution_bias //BIND_CPP_CLASS ConvolutionBiasANNComponent //BIND_SUBCLASS_OF ConvolutionBiasANNComponent ANNComponent //BIND_CONSTRUCTOR ConvolutionBiasANNComponent { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); const char *name=0, *weights=0; int n, ndims; check_table_fields(L, 1, "name", "weights", "n", "ndims", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, weights, string, weights, 0); LUABIND_GET_TABLE_PARAMETER(1, n, int, n); LUABIND_GET_TABLE_PARAMETER(1, ndims, int, ndims); // obj = new ConvolutionBiasANNComponent(ndims, n, name, weights); LUABIND_RETURN(ConvolutionBiasANNComponent, obj); } //BIND_END //BIND_METHOD ConvolutionBiasANNComponent clone { LUABIND_RETURN(ConvolutionBiasANNComponent, dynamic_cast(obj->clone())); } //BIND_END ///////////////////////////////////////////////////// // MaxPoolingANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME MaxPoolingANNComponent ann.components.max_pooling //BIND_CPP_CLASS MaxPoolingANNComponent //BIND_SUBCLASS_OF MaxPoolingANNComponent ANNComponent //BIND_CONSTRUCTOR MaxPoolingANNComponent { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); const char *name=0; int *kernel, *step; check_table_fields(L, 1, "name", "kernel", "step", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); // lua_getfield(L, 1, "kernel"); if (!lua_istable(L, -1)) LUABIND_ERROR("Expected a table at field 'kernel'"); int size; LUABIND_TABLE_GETN(-1, size); kernel = new int[size]; step = new int[size]; LUABIND_TABLE_TO_VECTOR(-1, int, kernel, size); lua_pop(L, 1); // lua_getfield(L, 1, "step"); if (lua_isnil(L, -1)) { for (int i=0; i(obj->clone())); } //BIND_END ///////////////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME StochasticANNComponent ann.components.stochastic //BIND_CPP_CLASS StochasticANNComponent //BIND_SUBCLASS_OF StochasticANNComponent ANNComponent //BIND_CONSTRUCTOR StochasticANNComponent { LUABIND_ERROR("Abstract class!!!"); } //BIND_END //BIND_METHOD StochasticANNComponent set_random { MTRand *random; LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, MTRand); LUABIND_GET_PARAMETER(1, MTRand, random); obj->setRandom(random); LUABIND_RETURN(StochasticANNComponent, obj); } //BIND_END //BIND_METHOD StochasticANNComponent get_random { LUABIND_RETURN(MTRand, obj->getRandom()); } //BIND_END ///////////////////////////////////////////////////// // GaussianNoiseANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME GaussianNoiseANNComponent ann.components.gaussian_noise //BIND_CPP_CLASS GaussianNoiseANNComponent //BIND_SUBCLASS_OF GaussianNoiseANNComponent ANNComponent //BIND_CONSTRUCTOR GaussianNoiseANNComponent { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); const char *name=0; float mean=0.0f, var=0.1f; unsigned int size=0; MTRand *random=0; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "size", "random", "mean", "var", "name", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, random, MTRand, random, random); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, mean, float, mean, mean); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, var, float, var, var); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, size, uint, size, size); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, name); } if (!random) random = new MTRand(); obj = new GaussianNoiseANNComponent(random, mean, var, name, size); LUABIND_RETURN(GaussianNoiseANNComponent, obj); } //BIND_END //BIND_METHOD GaussianNoiseANNComponent clone { LUABIND_RETURN(GaussianNoiseANNComponent, dynamic_cast(obj->clone())); } //BIND_END ///////////////////////////////////////////////////// // SaltAndPepperANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME SaltAndPepperANNComponent ann.components.salt_and_pepper //BIND_CPP_CLASS SaltAndPepperANNComponent //BIND_SUBCLASS_OF SaltAndPepperANNComponent ANNComponent //BIND_CONSTRUCTOR SaltAndPepperANNComponent { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); const char *name=0; float zero=0.0f, one=1.0f, prob=0.2f; unsigned int size=0; MTRand *random=0; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "size", "random", "one", "zero", "prob", "name", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, random, MTRand, random, random); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, prob, float, prob, prob); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, zero, float, zero, zero); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, one, float, one, one); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, size, uint, size, size); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, name); } if (!random) random = new MTRand(); obj = new SaltAndPepperANNComponent(random, zero, one, prob, name, size); LUABIND_RETURN(SaltAndPepperANNComponent, obj); } //BIND_END //BIND_METHOD SaltAndPepperANNComponent clone { LUABIND_RETURN(SaltAndPepperANNComponent, dynamic_cast(obj->clone())); } //BIND_END //////////////////////////////////////////////////// // DropoutANNComponent // //////////////////////////////////////////////////// //BIND_LUACLASSNAME DropoutANNComponent ann.components.dropout //BIND_CPP_CLASS DropoutANNComponent //BIND_SUBCLASS_OF DropoutANNComponent ANNComponent //BIND_CONSTRUCTOR DropoutANNComponent { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); const char *name=0; float prob=0.5f, value=0.0f; unsigned int size=0; MTRand *random=0; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "name", "size", "prob", "value", "random", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, name); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, size, uint, size, size); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, prob, float, prob, prob); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, value, float, value, value); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, random, MTRand, random, random); } if (!random) random = new MTRand(); obj = new DropoutANNComponent(random, value, prob, name, size); LUABIND_RETURN(DropoutANNComponent, obj); } //BIND_END //BIND_METHOD SaltAndPepperANNComponent clone { LUABIND_RETURN(DropoutANNComponent, dynamic_cast(obj->clone())); } //BIND_END ///////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////// // ActivationFunctionANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME ActivationFunctionANNComponent ann.components.actf //BIND_CPP_CLASS ActivationFunctionANNComponent //BIND_SUBCLASS_OF ActivationFunctionANNComponent ANNComponent //BIND_CONSTRUCTOR ActivationFunctionANNComponent { LUABIND_ERROR("Abstract class!!!"); } //BIND_END //BIND_METHOD ActivationFunctionANNComponent clone { LUABIND_RETURN(ActivationFunctionANNComponent, dynamic_cast(obj->clone())); } //BIND_END ///////////////////////////////////////////////////// // LogisticActfANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME LogisticActfANNComponent ann.components.actf.logistic //BIND_CPP_CLASS LogisticActfANNComponent //BIND_SUBCLASS_OF LogisticActfANNComponent ActivationFunctionANNComponent //BIND_CONSTRUCTOR LogisticActfANNComponent { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); const char *name=0; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "name", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); } obj = new LogisticActfANNComponent(name); LUABIND_RETURN(LogisticActfANNComponent, obj); } //BIND_END ///////////////////////////////////////////////////// // TanhActfANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME TanhActfANNComponent ann.components.actf.tanh //BIND_CPP_CLASS TanhActfANNComponent //BIND_SUBCLASS_OF TanhActfANNComponent ActivationFunctionANNComponent //BIND_CONSTRUCTOR TanhActfANNComponent { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); const char *name=0; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "name", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); } obj = new TanhActfANNComponent(name); LUABIND_RETURN(TanhActfANNComponent, obj); } //BIND_END ///////////////////////////////////////////////////// // SoftsignActfANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME SoftsignActfANNComponent ann.components.actf.softsign //BIND_CPP_CLASS SoftsignActfANNComponent //BIND_SUBCLASS_OF SoftsignActfANNComponent ActivationFunctionANNComponent //BIND_CONSTRUCTOR SoftsignActfANNComponent { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); const char *name=0; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "name", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); } obj = new SoftsignActfANNComponent(name); LUABIND_RETURN(SoftsignActfANNComponent, obj); } //BIND_END ///////////////////////////////////////////////////// // LogLogisticActfANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME LogLogisticActfANNComponent ann.components.actf.log_logistic //BIND_CPP_CLASS LogLogisticActfANNComponent //BIND_SUBCLASS_OF LogLogisticActfANNComponent ActivationFunctionANNComponent //BIND_CONSTRUCTOR LogLogisticActfANNComponent { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); const char *name=0; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "name", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); } obj = new LogLogisticActfANNComponent(name); LUABIND_RETURN(LogLogisticActfANNComponent, obj); } //BIND_END ///////////////////////////////////////////////////// // SoftmaxActfANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME SoftmaxActfANNComponent ann.components.actf.softmax //BIND_CPP_CLASS SoftmaxActfANNComponent //BIND_SUBCLASS_OF SoftmaxActfANNComponent ActivationFunctionANNComponent //BIND_CONSTRUCTOR SoftmaxActfANNComponent { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); const char *name=0; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "name", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); } obj = new SoftmaxActfANNComponent(name); LUABIND_RETURN(SoftmaxActfANNComponent, obj); } //BIND_END ///////////////////////////////////////////////////// // LogSoftmaxActfANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME LogSoftmaxActfANNComponent ann.components.actf.log_softmax //BIND_CPP_CLASS LogSoftmaxActfANNComponent //BIND_SUBCLASS_OF LogSoftmaxActfANNComponent ActivationFunctionANNComponent //BIND_CONSTRUCTOR LogSoftmaxActfANNComponent { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); const char *name=0; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "name", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); } obj = new LogSoftmaxActfANNComponent(name); LUABIND_RETURN(LogSoftmaxActfANNComponent, obj); } //BIND_END ///////////////////////////////////////////////////// // SoftplusActfANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME SoftplusActfANNComponent ann.components.actf.softplus //BIND_CPP_CLASS SoftplusActfANNComponent //BIND_SUBCLASS_OF SoftplusActfANNComponent ActivationFunctionANNComponent //BIND_CONSTRUCTOR SoftplusActfANNComponent { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); const char *name=0; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "name", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); } obj = new SoftplusActfANNComponent(name); LUABIND_RETURN(SoftplusActfANNComponent, obj); } //BIND_END ///////////////////////////////////////////////////// // ReLUActfANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME ReLUActfANNComponent ann.components.actf.relu //BIND_CPP_CLASS ReLUActfANNComponent //BIND_SUBCLASS_OF ReLUActfANNComponent ActivationFunctionANNComponent //BIND_CONSTRUCTOR ReLUActfANNComponent { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); const char *name=0; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "name", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); } obj = new ReLUActfANNComponent(name); LUABIND_RETURN(ReLUActfANNComponent, obj); } //BIND_END ///////////////////////////////////////////////////// // HardtanhActfANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME HardtanhActfANNComponent ann.components.actf.hardtanh //BIND_CPP_CLASS HardtanhActfANNComponent //BIND_SUBCLASS_OF HardtanhActfANNComponent ActivationFunctionANNComponent //BIND_CONSTRUCTOR HardtanhActfANNComponent { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); const char *name=0; float inf=-1.0f, sup=1.0f; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "name", "inf", "sup", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, inf, float, inf, -1.0f); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, sup, float, sup, 1.0f); } obj = new HardtanhActfANNComponent(name, inf, sup); LUABIND_RETURN(HardtanhActfANNComponent, obj); } //BIND_END ///////////////////////////////////////////////////// // SinActfANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME SinActfANNComponent ann.components.actf.sin //BIND_CPP_CLASS SinActfANNComponent //BIND_SUBCLASS_OF SinActfANNComponent ActivationFunctionANNComponent //BIND_CONSTRUCTOR SinActfANNComponent { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); const char *name=0; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "name", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); } obj = new SinActfANNComponent(name); LUABIND_RETURN(SinActfANNComponent, obj); } //BIND_END ///////////////////////////////////////////////////// // LinearActfANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME LinearActfANNComponent ann.components.actf.linear //BIND_CPP_CLASS LinearActfANNComponent //BIND_SUBCLASS_OF LinearActfANNComponent ActivationFunctionANNComponent //BIND_CONSTRUCTOR LinearActfANNComponent { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); const char *name=0; if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "name", (const char *)0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); } obj = new LinearActfANNComponent(name); LUABIND_RETURN(LinearActfANNComponent, obj); } //BIND_END ///////////////////////////////////////////////////// // PCAWhiteningANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME PCAWhiteningANNComponent ann.components.pca_whitening //BIND_CPP_CLASS PCAWhiteningANNComponent //BIND_SUBCLASS_OF PCAWhiteningANNComponent ANNComponent //BIND_CONSTRUCTOR PCAWhiteningANNComponent { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); const char *name=0; float epsilon; int takeN; MatrixFloat *U; SparseMatrixFloat *S; check_table_fields(L, 1, "U", "S", "takeN", "epsilon", (const char *)0); LUABIND_GET_TABLE_PARAMETER(1, U, MatrixFloat, U); LUABIND_GET_TABLE_PARAMETER(1, S, SparseMatrixFloat, S); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, takeN, int, takeN, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, epsilon, float, epsilon, 0); // obj = new PCAWhiteningANNComponent(U, S, epsilon, takeN, name); LUABIND_RETURN(PCAWhiteningANNComponent, obj); } //BIND_END //BIND_METHOD PCAWhiteningANNComponent clone { LUABIND_RETURN(PCAWhiteningANNComponent, dynamic_cast(obj->clone())); } //BIND_END ///////////////////////////////////////////////////// // ZCAWhiteningANNComponent // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME ZCAWhiteningANNComponent ann.components.zca_whitening //BIND_CPP_CLASS ZCAWhiteningANNComponent //BIND_SUBCLASS_OF ZCAWhiteningANNComponent ANNComponent //BIND_CONSTRUCTOR ZCAWhiteningANNComponent { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); const char *name=0; float epsilon; int takeN; MatrixFloat *U; SparseMatrixFloat *S; check_table_fields(L, 1, "U", "S", "takeN", "epsilon", (const char *)0); LUABIND_GET_TABLE_PARAMETER(1, U, MatrixFloat, U); LUABIND_GET_TABLE_PARAMETER(1, S, SparseMatrixFloat, S); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, name, string, name, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, takeN, int, takeN, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, epsilon, float, epsilon, 0); // obj = new ZCAWhiteningANNComponent(U, S, epsilon, takeN, name); LUABIND_RETURN(ZCAWhiteningANNComponent, obj); } //BIND_END //BIND_METHOD ZCAWhiteningANNComponent clone { LUABIND_RETURN(ZCAWhiteningANNComponent, dynamic_cast(obj->clone())); } //BIND_END april-ann-0.3.1/packages/ann/ann/c_src/000077500000000000000000000000001234204160600175715ustar00rootroot00000000000000april-ann-0.3.1/packages/ann/ann/c_src/activation_function_component.cc000066400000000000000000000147321234204160600262370ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "unused_variable.h" #include "activation_function_component.h" #include "wrapper.h" namespace ANN { ActivationFunctionANNComponent::ActivationFunctionANNComponent(const char *name) : ANNComponent(name, 0, 0, 0), input(0), output(0), error_input(0), error_output(0) { } ActivationFunctionANNComponent::~ActivationFunctionANNComponent() { if (input) DecRef(input); if (error_input) DecRef(error_input); if (output) DecRef(output); if (error_output) DecRef(error_output); } Token *ActivationFunctionANNComponent::doForward(Token* _input, bool during_training) { UNUSED_VARIABLE(during_training); // error checking if ( (_input == 0) || (_input->getTokenCode() != table_of_token_codes::token_matrix)) ERROR_EXIT1(129,"Incorrect input Token type, expected token_matrix! [%s]\n", name.c_str()); // change current input by new input AssignRef(input,_input->convertTo()); MatrixFloat *input_mat = input->getMatrix(); april_assert(input_mat->getMajorOrder() == CblasColMajor); april_assert(input_mat->getNumDim() >= 2); if (!input_mat->getIsContiguous()) { input_mat = input_mat->clone(); AssignRef(input,new TokenMatrixFloat(input_mat)); } #ifdef USE_CUDA input_mat->setUseCuda(use_cuda); #endif unsigned int bunch_size = input_mat->getDimSize(0); unsigned int current_input_size = input_mat->size() / bunch_size; // new output to fit the bunch MatrixFloat *output_mat = input_mat->cloneOnlyDims(); AssignRef(output,new TokenMatrixFloat(output_mat)); // flatten the matrices if it is necessary bool flattened = false; if (input_mat->getNumDim() > 2) { int dims[2] = { static_cast(bunch_size), static_cast(current_input_size) }; input_mat = input_mat->rewrap(dims, 2); output_mat = output_mat->rewrap(dims, 2); flattened = true; } // get memory blocks for tokens FloatGPUMirroredMemoryBlock *input_ptr = input_mat->getRawDataAccess(); FloatGPUMirroredMemoryBlock *output_ptr = output_mat->getRawDataAccess(); // execute apply activations abstract method applyActivation(input_ptr, output_ptr, current_input_size, bunch_size); if (flattened) { delete input_mat; delete output_mat; } return output; } Token *ActivationFunctionANNComponent::doBackprop(Token *_error_input) { // error checking if ( (_error_input == 0) || (_error_input->getTokenCode() != table_of_token_codes::token_matrix)) ERROR_EXIT1(129,"Incorrect input error Token type, expected token_matrix! [%s]\n", name.c_str()); // change current input by new input AssignRef(error_input,_error_input->convertTo()); MatrixFloat *error_input_mat = error_input->getMatrix(); april_assert(error_input_mat->getMajorOrder() == CblasColMajor); april_assert(error_input_mat->getNumDim() >= 2); if (!error_input_mat->getIsContiguous()) { error_input_mat = error_input_mat->clone(); AssignRef(error_input,new TokenMatrixFloat(error_input_mat)); } #ifdef USE_CUDA error_input_mat->setUseCuda(use_cuda); #endif unsigned int bunch_size = error_input_mat->getDimSize(0); unsigned int current_input_size = error_input_mat->size() / bunch_size; // new output to fit the bunch MatrixFloat *error_output_mat = error_input_mat->cloneOnlyDims(); AssignRef(error_output,new TokenMatrixFloat(error_output_mat)); if (!error_output_mat->sameDim(input->getMatrix())) ERROR_EXIT1(129, "Different bunches found at doForward and doBackprop [%s]\n", name.c_str()); // flatten the matrices if it is necessary bool flattened = false; if (error_input_mat->getNumDim() > 2) { int dims[2] = { static_cast(bunch_size), static_cast(current_input_size) }; error_input_mat = error_input_mat->rewrap(dims, 2); error_output_mat = error_output_mat->rewrap(dims, 2); flattened = true; } MatrixFloat *input_mat = input->getMatrix(); MatrixFloat *output_mat = output->getMatrix(); FloatGPUMirroredMemoryBlock *input_ptr = input_mat->getRawDataAccess(); FloatGPUMirroredMemoryBlock *output_ptr = output_mat->getRawDataAccess(); FloatGPUMirroredMemoryBlock *error_input_ptr = error_input_mat->getRawDataAccess(); FloatGPUMirroredMemoryBlock *error_output_ptr = error_output_mat->getRawDataAccess(); // apply derivatives at gradients multiplyDerivatives(input_ptr, output_ptr, error_input_ptr, error_output_ptr, current_input_size, bunch_size); if (flattened) { delete error_input_mat; delete error_output_mat; } return error_output; } void ActivationFunctionANNComponent::reset(unsigned int it) { UNUSED_VARIABLE(it); if (input) DecRef(input); if (error_input) DecRef(error_input); if (output) DecRef(output); if (error_output) DecRef(error_output); input = 0; error_input = 0; output = 0; error_output = 0; } void ActivationFunctionANNComponent::build(unsigned int _input_size, unsigned int _output_size, MatrixFloatSet *weights_dict, hash &components_dict) { ANNComponent::build(_input_size, _output_size, weights_dict, components_dict); if (input_size == 0) input_size = output_size; if (output_size == 0) output_size = input_size; if (input_size != output_size) ERROR_EXIT3(240, "ActivationFunctionANNComponent input/output " "sizes must be equal (component %s): %d != %d\n", name.c_str(), input_size, output_size); } } // namespace ANN april-ann-0.3.1/packages/ann/ann/c_src/activation_function_component.h000066400000000000000000000047261234204160600261030ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef ACTFCOMPONENT_H #define ACTFCOMPONENT_H #include "token_matrix.h" #include "ann_component.h" #include "gpu_mirrored_memory_block.h" #include "MersenneTwister.h" namespace ANN { /// An abstract class that defines the basic interface that /// the anncomponents must fulfill. class ActivationFunctionANNComponent : public ANNComponent { TokenMatrixFloat *input, *output, *error_input, *error_output; protected: virtual void applyActivation(FloatGPUMirroredMemoryBlock *input_units, FloatGPUMirroredMemoryBlock *output_units, unsigned int size, unsigned int bunch_size) = 0; virtual void multiplyDerivatives(FloatGPUMirroredMemoryBlock *input_units, FloatGPUMirroredMemoryBlock *output_units, FloatGPUMirroredMemoryBlock *input_errors, FloatGPUMirroredMemoryBlock *output_errors, unsigned int size, unsigned int bunch_size) = 0; public: ActivationFunctionANNComponent(const char *name=0); virtual ~ActivationFunctionANNComponent(); virtual Token *getInput() { return input; } virtual Token *getOutput() { return output; } virtual Token *getErrorInput() { return error_input; } virtual Token *getErrorOutput() { return error_output; } virtual Token *doForward(Token* input, bool during_training); virtual Token *doBackprop(Token *input_error); virtual void reset(unsigned int it=0); virtual void build(unsigned int _input_size, unsigned int _output_size, MatrixFloatSet *weights_dict, hash &components_dict); }; } #endif // ACTFCOMPONENT_H april-ann-0.3.1/packages/ann/ann/c_src/ann_component.cc000066400000000000000000000017101234204160600227350ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "ann_component.h" namespace ANN { unsigned int ANNComponent::next_name_id = 1; unsigned int ANNComponent::next_weights_id = 1; } april-ann-0.3.1/packages/ann/ann/c_src/ann_component.h000066400000000000000000000222511234204160600226020ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef ANNCOMPONENT_H #define ANNCOMPONENT_H #include #include "vector.h" #include "unused_variable.h" #include "function_interface.h" #include "unused_variable.h" #include "mystring.h" #include "connection.h" #include "error_print.h" #include "token_base.h" #include "aux_hash_table.h" // required for build #include "hash_table.h" // required for build #include "matrixFloat.h" #include "matrixFloatSet.h" using april_utils::hash; // required for build using april_utils::string; using april_utils::vector; #ifndef NDEBUG #define ASSERT_MATRIX(m) do { \ april_assert( (m)->getNumDim() == 2 ); \ april_assert( (m)->getMajorOrder() == CblasColMajor ); \ } while(0) #else #define ASSERT_MATRIX(m) #endif #define MAX_NAME_STR 256 namespace ANN { /// An abstract class that defines the basic interface that /// the anncomponents must fulfill. class ANNComponent : public Functions::FunctionInterface { private: bool is_built; void generateDefaultName(const char *prefix=0) { char default_prefix[2] = "c"; char str_id[MAX_NAME_STR+1]; if (prefix == 0) prefix = default_prefix; snprintf(str_id, MAX_NAME_STR, "%s%u", prefix, next_name_id); name = string(str_id); ++next_name_id; } protected: static unsigned int next_name_id; static unsigned int next_weights_id; /// The name identifies this component to do fast search. It is a unique /// name, repetitions are forbidden. string name; string weights_name; unsigned int input_size; unsigned int output_size; bool use_cuda; /// Method which computes the gradient of the weights on the given /// MatrixFloat object virtual void computeGradients(MatrixFloat*& weight_grads) { UNUSED_VARIABLE(weight_grads); } public: ANNComponent(const char *name = 0, const char *weights_name = 0, unsigned int input_size = 0, unsigned int output_size = 0) : Functions::FunctionInterface(), is_built(false), input_size(input_size), output_size(output_size), use_cuda(false) { if (name) this->name = string(name); else generateDefaultName(); if (weights_name) this->weights_name = string(weights_name); } virtual ~ANNComponent() { } const string &getName() const { return name; } const string &getWeightsName() const { return weights_name; } bool hasWeightsName() const { return !weights_name.empty(); } static void resetIdCounters() { next_name_id=0; next_weights_id=0; } bool getIsBuilt() const { return is_built; } void generateDefaultWeightsName(string &dest, const char *prefix=0) { char str_id[MAX_NAME_STR+1]; char default_prefix[2] = "w"; if (prefix == 0) prefix = default_prefix; snprintf(str_id, MAX_NAME_STR, "%s%u", prefix, next_weights_id); dest = string(str_id); ++next_weights_id; } // FunctionInterface methods virtual unsigned int getInputSize() const { return input_size; } virtual unsigned int getOutputSize() const { return output_size; } virtual Token *calculate(Token *input) { return this->doForward(input, false); } ///////////////////////////////////////////// virtual void precomputeOutputSize(const vector &input_size, vector &output_size) { output_size.clear(); if (getOutputSize()>0) output_size.push_back(getOutputSize()); else if (getInputSize() > 0) output_size.push_back(getInputSize()); else output_size = input_size; } virtual Token *getInput() { return 0; } virtual Token *getOutput() { return 0; } virtual Token *getErrorInput() { return 0; } virtual Token *getErrorOutput() { return 0; } /// Virtual method that executes the set of operations required for each /// block of connections when performing the forward step of the /// Backpropagation algorithm, and returns its output Token virtual Token *doForward(Token* input, bool during_training) { UNUSED_VARIABLE(during_training); return input; } /// Virtual method that back-propagates error derivatives and computes /// other useful stuff. Receives input error gradients, and returns its /// output error gradients Token. virtual Token *doBackprop(Token *input_error) { return input_error; } /// Virtual method to reset to zero gradients and outputs (inputs are not /// reseted). It receives a counter of the number of times it is called by /// iterative optimizers (as conjugate gradient). virtual void reset(unsigned int it=0) { UNUSED_VARIABLE(it); } /// Method which receives a hash table with matrices where compute the /// gradients. virtual void computeAllGradients(MatrixFloatSet *weight_grads_dict){ if (!weights_name.empty()) computeGradients( (*weight_grads_dict)[weights_name] ); } virtual ANNComponent *clone() { return new ANNComponent(name.c_str(), weights_name.c_str(), input_size, output_size); } /// Virtual method to set use_cuda option. All childs which rewrite this /// method must call parent method before do anything. virtual void setUseCuda(bool v) { #ifdef USE_CUDA use_cuda = v; #else UNUSED_VARIABLE(v); ERROR_PRINT("WARNING!!! Trying to set use_cuda=true with NON " "cuda compilation\n"); use_cuda = false; // always false in this case #endif } bool getUseCuda() const { return use_cuda; } /// Abstract method to finish building of component hierarchy and set /// weights objects pointers. All childs which rewrite this method must call /// parent method before do anything. virtual void build(unsigned int _input_size, unsigned int _output_size, MatrixFloatSet *weights_dict, hash &components_dict) { UNUSED_VARIABLE(weights_dict); // if (is_built) ERROR_EXIT(128, "Rebuild is forbidden!!!!\n"); is_built = true; //////////////////////////////////////////////////////////////////// ANNComponent *&component = components_dict[name]; if (component != 0) ERROR_EXIT1(102, "Non unique component name found: %s\n", name.c_str()); component = this; //////////////////////////////////////////////////////////////////// if (input_size == 0) input_size = _input_size; if (output_size == 0) output_size = _output_size; if (_input_size == 0) _input_size = input_size; if (_output_size == 0) _output_size = output_size; if (_output_size != 0) output_size = _output_size; if (_input_size != 0) input_size = _input_size; if (input_size != _input_size) ERROR_EXIT2(129, "Incorrect input size, expected %d, found %d\n", input_size, _input_size); if (output_size != _output_size) ERROR_EXIT2(129, "Incorrect output size, expected %d, found %d\n", output_size, _output_size); } /// Abstract method to retrieve matrix weights from ANNComponents virtual void copyWeights(MatrixFloatSet *weights_dict) { UNUSED_VARIABLE(weights_dict); } /// Abstract method to retrieve ANNComponents objects. All childs which /// rewrite this method must call parent method before do anything. virtual void copyComponents(hash &components_dict) { components_dict[name] = this; } /// virtual void debugInfo() { fprintf(stderr, "Component '%s' ('%s') %d inputs %d outputs\n", name.c_str(), !(weights_name.empty())?weights_name.c_str():"(null)", input_size, output_size); } /// Virtual method which returns the component with the given name if /// exists, otherwise it returns 0. By default, base components only /// contains itself. Component composition will need to look to itself and /// all contained components. All childs which rewrite this method must /// call parent method before do anything. virtual ANNComponent *getComponent(string &name) { if (this->name == name) return this; return 0; } virtual char *toLuaString() { buffer_list buffer; buffer.printf("ann.components.base{ name='%s', weights='%s', size=%d }", name.c_str(), weights_name.c_str(), input_size); return buffer.to_string(buffer_list::NULL_TERMINATED); } }; } #undef MAX_NAME_STR #endif // ANNCOMPONENT_H april-ann-0.3.1/packages/ann/ann/c_src/bias_component.cc000066400000000000000000000162041234204160600231030ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "unused_variable.h" #include "bias_component.h" #include "wrapper.h" #include "unused_variable.h" namespace ANN { BiasANNComponent::BiasANNComponent(unsigned int size, const char *name, const char *weights_name) : ANNComponent(name, weights_name, size, size), input(0), output(0), error(0), bias_vector(0) { if (weights_name == 0) generateDefaultWeightsName(this->weights_name, "b"); } BiasANNComponent::~BiasANNComponent() { if (bias_vector) DecRef(bias_vector); if (input) DecRef(input); if (error) DecRef(error); if (output) DecRef(output); } Token *BiasANNComponent::doForward(Token* _input, bool during_training) { UNUSED_VARIABLE(during_training); if (bias_vector == 0) ERROR_EXIT1(129, "Not built component %s\n", name.c_str()); // error checking if ( (_input == 0) || (_input->getTokenCode() != table_of_token_codes::token_matrix)) ERROR_EXIT1(129,"Incorrect input Token type, expected token_matrix! [%s]\n", name.c_str()); // change current input by new input AssignRef(input,_input->convertTo()); MatrixFloat *input_mat = input->getMatrix(); #ifdef USE_CUDA input_mat->setUseCuda(use_cuda); #endif ASSERT_MATRIX(input_mat); april_assert(input_mat->getDimSize(1) == static_cast(input_size)); unsigned int bunch_size = input_mat->getDimSize(0); // linear transfer of input to output MatrixFloat *output_mat = input_mat->clone(); AssignRef(output,new TokenMatrixFloat(output_mat)); // bias MatrixFloat *bias_ptr = bias_vector; if (bunch_size == 1) output_mat->axpy(1.0f, bias_ptr); else { // addition of bias vector at output doAxpyLoop(output_size, 1.0f, bias_ptr->getRawDataAccess(), bias_ptr->getStrideSize(0), 0, output_mat->getRawDataAccess(), output_mat->getStrideSize(1), 0, bunch_size, 0, output_mat->getStrideSize(0), use_cuda); } // return output; } /// In BiasANNComponent this method is a by-pass Token *BiasANNComponent::doBackprop(Token *_error_input) { if ( (_error_input == 0) || (_error_input->getTokenCode() != table_of_token_codes::token_matrix)) ERROR_EXIT1(129,"Incorrect input error Token type, expected token_matrix! [%s]\n", name.c_str()); // change current input by new input AssignRef(error,_error_input->convertTo()); #ifdef USE_CUDA error->getMatrix()->setUseCuda(use_cuda); #endif return error; } void BiasANNComponent::reset(unsigned int it) { UNUSED_VARIABLE(it); if (input) DecRef(input); if (error) DecRef(error); if (output) DecRef(output); input = 0; error = 0; output = 0; // reset shared counter bias_vector->resetSharedCount(); } void BiasANNComponent::computeGradients(MatrixFloat*& grads_mat) { // count one use of the vector bias_vector->addToSharedCount(); if (grads_mat == 0) { grads_mat = bias_vector->cloneOnlyDims(); grads_mat->zeros(); IncRef(grads_mat); } else if (!grads_mat->sameDim(bias_vector)) ERROR_EXIT(128, "Incorrect weights matrix dimensions\n"); MatrixFloat *input_error_mat = error->getMatrix(); unsigned int bunch_size = input_error_mat->getDimSize(0); // bias update: prev_bias[j] = prev_bias[j] + \sum_b norm_learn_rate * ERROR_INPUT[b,j] if (bunch_size == 1) grads_mat->axpy(1.0f, input_error_mat); else doAxpyLoop(output_size, 1.0f, input_error_mat->getRawDataAccess(), input_error_mat->getStrideSize(1), 0, grads_mat->getRawDataAccess(), grads_mat->getStrideSize(0), 0, bunch_size, input_error_mat->getStrideSize(0), 0, use_cuda); } ANNComponent *BiasANNComponent::clone() { BiasANNComponent *component = new BiasANNComponent(input_size, name.c_str(), weights_name.c_str()); return component; } void BiasANNComponent::build(unsigned int _input_size, unsigned int _output_size, MatrixFloatSet *weights_dict, hash &components_dict) { ANNComponent::build(_input_size, _output_size, weights_dict, components_dict); // if (input_size == 0 || output_size == 0) ERROR_EXIT1(141, "Impossible to compute input/output " "sizes for this component [%s]\n", name.c_str()); if (input_size != output_size) ERROR_EXIT1(142, "BiasANNComponent input/output sizes must be equal [%s]\n", name.c_str()); unsigned int weights_input_size = 1; unsigned int weights_output_size = output_size; //////////////////////////////////////////////////////////////////// MatrixFloat *&w = (*weights_dict)[weights_name]; // printf("%s :: %p %p\n", weights_name.c_str(), w, bias_vector); if (w != 0) { AssignRef(bias_vector, w); // printf("COPY OF BIAS FROM HASH %s\n", weights_name.c_str()); if (!Connections::checkInputOutputSizes(bias_vector, weights_input_size, weights_output_size)) ERROR_EXIT3(256,"The weights matrix input/output sizes are not correct, " "expected %d inputs and %d outputs. [%s]\n", weights_input_size, weights_output_size, name.c_str()); } else { if (bias_vector == 0) { // printf("NEW OF BIAS %s\n", weights_name.c_str()); bias_vector = Connections::build(weights_input_size, weights_output_size); IncRef(bias_vector); } // else printf("USING PREVIOUS BIAS %s\n", weights_name.c_str()); w = bias_vector; IncRef(w); } } void BiasANNComponent::copyWeights(MatrixFloatSet *weights_dict) { if (bias_vector == 0) ERROR_EXIT1(100, "Component not built, impossible execute copyWeights [%s]\n", name.c_str()); MatrixFloat *&w = (*weights_dict)[weights_name]; if (w != 0 && w != bias_vector) ERROR_EXIT2(101, "Weights dictionary contains %s weights name which is " "not shared with bias_vector attribute [%s]\n", weights_name.c_str(), name.c_str()); else if (w == 0) { w = bias_vector; IncRef(w); } } char *BiasANNComponent::toLuaString() { buffer_list buffer; buffer.printf("ann.components.bias{ size=%d, name='%s', weights='%s' }", input_size, name.c_str(), weights_name.c_str()); return buffer.to_string(buffer_list::NULL_TERMINATED); } } april-ann-0.3.1/packages/ann/ann/c_src/bias_component.h000066400000000000000000000042301234204160600227410ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef BIASANNCOMPONENT_H #define BIASANNCOMPONENT_H #include "cblas_headers.h" #include "ann_component.h" #include "connection.h" #include "token_matrix.h" namespace ANN { /// A component which adds a bias to the given bi-dimensional input matrix. class BiasANNComponent : public ANNComponent { TokenMatrixFloat *input, *output, *error; MatrixFloat *bias_vector; protected: virtual void computeGradients(MatrixFloat*& grad_mat); public: BiasANNComponent(unsigned int size=0, const char *name=0, const char *weights_name=0); virtual ~BiasANNComponent(); virtual Token *getInput() { return input; } virtual Token *getOutput() { return output; } virtual Token *getErrorInput() { return error; } virtual Token *getErrorOutput() { return error; } virtual Token *doForward(Token* input, bool during_training); virtual Token *doBackprop(Token *input_error); virtual void reset(unsigned int it=0); virtual ANNComponent *clone(); virtual void build(unsigned int input_size, unsigned int output_size, MatrixFloatSet *weights_dict, hash &components_dict); virtual void copyWeights(MatrixFloatSet *weights_dict); virtual char *toLuaString(); }; } #endif // BIASANNCOMPONENT_H april-ann-0.3.1/packages/ann/ann/c_src/connection.cc000066400000000000000000000141621234204160600222430ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "swap.h" #include "connection.h" #include "check_floats.h" #include "wrapper.h" #include "utilMatrixFloat.h" #include "buffer_list.h" #define MAX_ITERATIONS_RANDOMIZE_LOOP 1000 // generates a random weight, checking number of iterations and weightnearzero #define rnd_weight(rnd, value, dinf, range, weightnearzero) do { \ unsigned int it = 0; \ do { \ (value) = (rnd)->rand((range))+(dinf); \ it++; \ } while (it < MAX_ITERATIONS_RANDOMIZE_LOOP && \ fabs((value)) < (weightnearzero)); \ if (fabs((value)) < (weightnearzero)) \ ERROR_PRINT("# WARNING!!! Detected weightnearzero\n"); \ } while(false); namespace ANN { const double Connections::weightnearzero = 1e-7; MatrixFloat *Connections::build(unsigned int num_inputs, unsigned int num_outputs) { int dims[2] = { static_cast(num_outputs), static_cast(num_inputs) }; MatrixFloat *weights = new MatrixFloat(2, dims, CblasColMajor); if (weights == 0) ERROR_EXIT(130, "Impossible to allocate memory\n"); return weights; } bool Connections::checkInputOutputSizes(const MatrixFloat *weights, unsigned int input_size, unsigned int output_size) { if (getOutputSize(weights) != output_size) { ERROR_PRINT("Incorrect output size!!!\n"); return false; } if (getInputSize(weights) != input_size) { ERROR_PRINT("Incorrect input size!!!\n"); return false; } return true; } // Crea de forma aleatoria el conjunto de pesos con valores en el // rango [low, high] void Connections::randomizeWeights(MatrixFloat *weights, MTRand *rnd, float low, float high) { double dinf = low; double dsup = high; // assert to avoid nearzero weights if (fabs(dinf) < weightnearzero) dinf = weightnearzero; if (fabs(dsup) < weightnearzero) dsup = -weightnearzero; double range = dsup - dinf; MatrixFloat::iterator w_it(weights->begin()); while(w_it != weights->end()) { rnd_weight(rnd, *w_it, dinf, range, weightnearzero); ++w_it; } } void Connections::randomizeWeightsAtColumn(MatrixFloat *weights, unsigned int col, MTRand *rnd, float low, float high) { double dinf = low; double dsup = high; // assert to avoid nearzero weights april_assert(fabs(dinf) > weightnearzero); april_assert(fabs(dsup) > weightnearzero); double range = dsup - dinf; MatrixFloat::iterator w_it(weights->iteratorAt(col,0)); MatrixFloat::iterator end(weights->iteratorAt(col+1,0)); while(w_it != end) { rnd_weight(rnd, *w_it, dinf, range, weightnearzero); ++w_it; } } unsigned int Connections::loadWeights(MatrixFloat *weights, MatrixFloat *data, unsigned int first_weight_pos, unsigned int column_size) { const unsigned int num_outputs = static_cast(weights->getDimSize(0)); const unsigned int num_inputs = static_cast(weights->getDimSize(1)); const unsigned int total_size = static_cast(weights->size()); unsigned int min_size = (total_size + max(0, (static_cast(column_size-num_inputs)-1))*num_outputs + first_weight_pos); if (min_size > static_cast(data->size())) ERROR_EXIT2(24, "Incorrect matrix size, was %d, expected >= %d\n", data->size(), min_size); if (!data->isSimple()) ERROR_EXIT(128, "Matrices need to be simple (contiguous " "and in row-major)\n"); unsigned int current_w_pos = first_weight_pos; MatrixFloat::iterator w_it(weights->begin()); for (unsigned int j=0; j(weights->getDimSize(0)); const unsigned int num_inputs = static_cast(weights->getDimSize(1)); const unsigned int total_size = static_cast(weights->size()); unsigned int min_size = (total_size + max(0, (static_cast(column_size-num_inputs)-1))*num_outputs + first_weight_pos); if (min_size > static_cast(data->size())) ERROR_EXIT2(24, "Incorrect matrix size, was %d, expected >= %d\n", data->size(), min_size); if (!data->isSimple()) ERROR_EXIT(128, "Matrices need to be simple (contiguous " "and in row-major)\n"); unsigned int current_w_pos = first_weight_pos; MatrixFloat::const_iterator w_it(weights->begin()); for (unsigned int j=0; j #include "aligned_memory.h" #include "swap.h" #include "referenced.h" #include "MersenneTwister.h" #include "matrixFloat.h" #include "error_print.h" #include "maxmin.h" using april_utils::max; namespace ANN { /// The class Connections is an static class. It is a helper to build, /// initialize, and query matrix instances interpreted as connection weights. class Connections : public Referenced { public: static const double weightnearzero; static MatrixFloat *build(unsigned int num_inputs, unsigned int num_outputs); // static unsigned int getInputSize(const MatrixFloat *weights) { return static_cast(weights->getDimSize(1)); } static unsigned int getNumInputs(const MatrixFloat *weights) { return static_cast(weights->getDimSize(1)); } static unsigned int getOutputSize(const MatrixFloat *weights) { return static_cast(weights->getDimSize(0)); } static unsigned int getNumOutputs(const MatrixFloat *weights) { return static_cast(weights->getDimSize(0)); } static bool checkInputOutputSizes(const MatrixFloat *weights, unsigned int input_size, unsigned int output_size); static void randomizeWeights(MatrixFloat *weights, MTRand *rnd, float low, float high); static void randomizeWeightsAtColumn(MatrixFloat *weights, unsigned int col, MTRand *rnd, float low, float high); // Carga/guarda los pesos de la matriz data comenzando por la // posicion first_weight_pos. Devuelve la suma del numero de pesos // cargados/salvados y first_weight_pos. En caso de error, // abortara el programa con un ERROR_EXIT static unsigned int loadWeights(MatrixFloat *weights, MatrixFloat *data, unsigned int first_weight_pos, unsigned int column_size); static unsigned int copyWeightsTo(MatrixFloat *weights, MatrixFloat *data, unsigned int first_weight_pos, unsigned int column_size); static char *toLuaString(MatrixFloat *weights); }; } #endif april-ann-0.3.1/packages/ann/ann/c_src/convolution_bias_component.cc000066400000000000000000000250621234204160600255440ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "unused_variable.h" #include "convolution_bias_component.h" #include "token_matrix.h" #include "table_of_token_codes.h" namespace ANN { //////////////////////////////////////////////// // ConvolutionBiasANNComponent implementation // //////////////////////////////////////////////// void ConvolutionBiasANNComponent::initializeArrays(const int *input_dims) { // input_dims[0] => BUNCH SIZE, input_dims[1] => HIDDEN SIZE window_size[0] = input_dims[0]; for (int i=2; i<=num_dims; ++i) window_num_steps[i] = input_dims[i]; } // A method to convert the bias vector of size Nx1 in a matrix of size // BUNCHxK1xK2x...xKM being Ki the kernel size at dimension i MatrixFloat *ConvolutionBiasANNComponent::prepareBiasBunch() { /* FIXME: When the following improvement is set, the performance of the ANN degenerates... if (bias_matrix != 0 && bias_matrix->sameDim(window_size, num_dims + 1)) return bias_matrix; */ // this line converts the bias matrix of Nx1 in a vector of N elements MatrixFloat *bias_vec = bias_vector->select(1,0); IncRef(bias_vec); // the output bias as a 2d matrix of BUNCHxN MatrixFloat *bias_matrix_2d = new MatrixFloat(2, window_size, CblasColMajor); IncRef(bias_matrix_2d); // first pattern is done out of the loop MatrixFloat *dest = bias_matrix_2d->select(0, 0); IncRef(dest); dest->copy(bias_vec); // for the rest of patterns at the bunch for (int b=1; bselect(0, b, dest); dest->copy(bias_vec); } DecRef(dest); if (bias_matrix) DecRef(bias_matrix); // reinterpret the output bias matrix of BUNCHxN to fit with the output // sliding window of BUNCHxK1xK2x....xKM where Ki is the kernel size at // dimension i bias_matrix = bias_matrix_2d->rewrap(window_size, num_dims + 1); IncRef(bias_matrix); // free the memory of auxiliary matrices DecRef(bias_matrix_2d); DecRef(bias_vec); return bias_matrix; } ConvolutionBiasANNComponent:: ConvolutionBiasANNComponent(int num_dims, unsigned int num_output_planes, const char *name, const char *bias_name) : ANNComponent(name, bias_name, 0, 0), input(0), error(0), output(0), bias_vector(0), bias_matrix(0), hidden_size(num_output_planes), num_dims(num_dims), window_size(new int[num_dims+1]), window_step(new int[num_dims+1]), window_num_steps(new int[num_dims+1]) { if (bias_name == 0) generateDefaultWeightsName(this->weights_name, "b"); window_size[1] = static_cast(hidden_size); window_step[0] = 1; window_step[1] = 1; window_num_steps[0] = 1; window_num_steps[1] = 1; for (int i=2; i<=num_dims; ++i) { window_size[i] = 1; window_step[i] = 1; } } ConvolutionBiasANNComponent::~ConvolutionBiasANNComponent() { if (bias_vector) DecRef(bias_vector); if (input) DecRef(input); if (error) DecRef(error); if (output) DecRef(output); delete[] window_size; delete[] window_step; delete[] window_num_steps; if (bias_matrix) DecRef(bias_matrix); } // The ConvolutionBiasANNComponent Token *ConvolutionBiasANNComponent::doForward(Token *_input, bool during_training) { UNUSED_VARIABLE(during_training); if (bias_vector == 0) ERROR_EXIT1(129, "Not built component %s\n", name.c_str()); // error checking if (_input == 0) ERROR_EXIT1(129,"Null Token received! [%s]\n", name.c_str()); if (_input->getTokenCode() != table_of_token_codes::token_matrix) ERROR_EXIT1(129, "Incorrect token received, expected token_matrix [%s]\n", name.c_str()); AssignRef(input, _input->convertTo()); MatrixFloat *input_mat=input->getMatrix(); if (input_mat->getNumDim() != num_dims+1) ERROR_EXIT3(129, "Incorrect input matrix numDims, " "expected %d, found %d [%s]\n", num_dims+1, input_mat->getNumDim(), name.c_str()); #ifdef USE_CUDA input_mat->setUseCuda(use_cuda); #endif const int *input_dims = input_mat->getDimPtr(); if (input_dims[1] != static_cast(hidden_size)) ERROR_EXIT3(129,"Incorrect input dim[1] size, found %d, expected %d [%s]\n", input_dims[1], hidden_size, name.c_str()); initializeArrays(input_dims); MatrixFloat *output_mat; output_mat = input_mat->clone(); AssignRef(output, new TokenMatrixFloat(output_mat)); MatrixFloat *bias_matrix = prepareBiasBunch(); IncRef(bias_matrix); ///////////////////////////////////////////////////////////////////////// // Prepare sliding windows to compute the convolution MatrixFloat::sliding_window input_sw(input_mat, window_size, 0, // OFFSET window_step, window_num_steps); MatrixFloat::sliding_window output_sw(output_mat, window_size, 0, // OFFSET window_step, window_num_steps); number_input_windows = input_sw.numWindows(); // CONVOLUTION OVER number_input_windows MatrixFloat *input_w = input_sw.getMatrix(); MatrixFloat *output_w = output_sw.getMatrix(); IncRef(input_w); IncRef(output_w); while(!input_sw.isEnd() && !output_sw.isEnd()) { input_sw.getMatrix(input_w); output_sw.getMatrix(output_w); // ADD BIAS output_w->axpy(1.0f, bias_matrix); // Next iteration input_sw.next(); output_sw.next(); } // Free memory DecRef(input_w); DecRef(output_w); DecRef(bias_matrix); // return output; } Token *ConvolutionBiasANNComponent::doBackprop(Token *_error_input) { // error checking if ( (_error_input == 0) || (_error_input->getTokenCode() != table_of_token_codes::token_matrix)) ERROR_EXIT1(129,"Incorrect input error Token type, expected token_matrix! [%s]\n", name.c_str()); // change current input by new input AssignRef(error,_error_input->convertTo()); MatrixFloat *error_mat=error->getMatrix(); if (!output->getMatrix()->sameDim(error_mat)) ERROR_EXIT1(129, "Incorrect dimensions at error input matrix [%s]\n", name.c_str()); #ifdef USE_CUDA error_mat->setUseCuda(use_cuda); #endif // return error; } void ConvolutionBiasANNComponent::computeGradients(MatrixFloat *&grads_mat) { // reset shared counter bias_vector->addToSharedCount(number_input_windows); if (grads_mat == 0) { grads_mat = bias_vector->cloneOnlyDims(); grads_mat->zeros(); IncRef(grads_mat); } MatrixFloat *input_error_mat = error->getMatrix(); // Prepare sliding windows to compute the convolution MatrixFloat::sliding_window error_sw(input_error_mat, window_size, 0, // OFFSET window_step, window_num_steps); unsigned int bunch_size = input_error_mat->getDimSize(0); april_assert(error_sw.numWindows() == number_input_windows); MatrixFloat *error_w = error_sw.getMatrix(); IncRef(error_w); while(!error_sw.isEnd()) { error_sw.getMatrix(error_w); // BIAS UPDATE doAxpyLoop(hidden_size, 1.0f, error_w->getRawDataAccess(), error_w->getStrideSize(1), error_w->getOffset(), grads_mat->getRawDataAccess(), grads_mat->getStrideSize(0), 0, bunch_size, error_w->getStrideSize(0), 0, use_cuda); // Next iteration error_sw.next(); } // Free memory DecRef(error_w); } void ConvolutionBiasANNComponent::reset(unsigned int it) { UNUSED_VARIABLE(it); if (input) DecRef(input); if (error) DecRef(error); if (output) DecRef(output); input = 0; error = 0; output = 0; // reset shared counter bias_vector->resetSharedCount(); } ANNComponent *ConvolutionBiasANNComponent::clone() { ConvolutionBiasANNComponent *component = new ConvolutionBiasANNComponent(num_dims, hidden_size, name.c_str(), weights_name.c_str()); component->input_size = input_size; component->output_size = output_size; return component; } void ConvolutionBiasANNComponent::build(unsigned int _input_size, unsigned int _output_size, MatrixFloatSet *weights_dict, hash &components_dict) { ANNComponent::build(_input_size, _output_size, weights_dict, components_dict); //////////////////////////////////////////////////////////////////// MatrixFloat *&b = (*weights_dict)[weights_name]; if (b != 0) { AssignRef(bias_vector, b); if (!Connections::checkInputOutputSizes(bias_vector,1,hidden_size)) ERROR_EXIT2(256,"The bias vector input/output sizes are not correct, " "expected 1x%d [%s]\n", hidden_size, name.c_str()); } else { if (bias_vector == 0) { bias_vector = Connections::build(1, hidden_size); IncRef(bias_vector); } b = bias_vector; IncRef(b); } } void ConvolutionBiasANNComponent::copyWeights(MatrixFloatSet *weights_dict) { if (bias_vector == 0) ERROR_EXIT1(100, "Component not built, impossible execute copyWeights [%s]\n", name.c_str()); MatrixFloat *&b = (*weights_dict)[weights_name]; if (b != 0 && b != bias_vector) ERROR_EXIT2(101, "Weights dictionary contains %s bias name which is " "not shared with bias_vector attribute [%s]\n", weights_name.c_str(), name.c_str()); else if (b == 0) { b = bias_vector; IncRef(b); } } char *ConvolutionBiasANNComponent::toLuaString() { buffer_list buffer; buffer.printf("ann.components.convolution_bias{ name='%s',weights='%s', " "n=%d, ndims=%d }", name.c_str(), weights_name.c_str(), hidden_size, num_dims); return buffer.to_string(buffer_list::NULL_TERMINATED); } ////////////////////////////////////////////////////////////////////////// } april-ann-0.3.1/packages/ann/ann/c_src/convolution_bias_component.h000066400000000000000000000056011234204160600254030ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef CONVOLUTIONBIASANNCOMPONENT_H #define CONVOLUTIONBIASANNCOMPONENT_H #include "token_matrix.h" #include "cblas_headers.h" #include "ann_component.h" #include "connection.h" namespace ANN { /// A component which adds a convolutional bias given the number of output /// planes. Exists one bias per each output plane. class ConvolutionBiasANNComponent : public ANNComponent { TokenMatrixFloat *input, *error, *output; MatrixFloat *bias_vector; MatrixFloat *bias_matrix; // rewrapping of bias_vector matrix to fits at // input window sizes /// The number of convolutions computed during last forward int number_input_windows; // parameters of the convolution bias unsigned int hidden_size; // number of planes int num_dims; int *window_size; int *window_step; int *window_num_steps; void initializeArrays(const int *input_dims); MatrixFloat *prepareBiasBunch(); protected: virtual void computeGradients(MatrixFloat*& grads_mat); public: ConvolutionBiasANNComponent(int input_num_dims, unsigned int num_output_planes, // hidden layer size const char *name=0, const char *bias_name=0); virtual ~ConvolutionBiasANNComponent(); virtual Token *getInput() { return input; } virtual Token *getOutput() { return output; } virtual Token *getErrorInput() { return error; } virtual Token *getErrorOutput() { return error; } virtual void precomputeOutputSize(const vector &input_size, vector &output_size) { output_size = input_size; } virtual Token *doForward(Token* input, bool during_training); virtual Token *doBackprop(Token *input_error); virtual void reset(unsigned int it=0); virtual ANNComponent *clone(); virtual void build(unsigned int input_size, unsigned int output_size, MatrixFloatSet *weights_dict, hash &components_dict); virtual void copyWeights(MatrixFloatSet *weights_dict); virtual char *toLuaString(); }; } #endif // CONVOLUTIONANNCOMPONENT_H april-ann-0.3.1/packages/ann/ann/c_src/convolution_component.cc000066400000000000000000000426761234204160600245600ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "unused_variable.h" #include "convolution_component.h" #include "token_matrix.h" #include "table_of_token_codes.h" namespace ANN { /////////////////////////////////////////// // ConvolutionANNComponent implementation // /////////////////////////////////////////// void ConvolutionANNComponent::initializeArrays(const int *input_dims) { for (int i=1; i BUNCH SIZE // output_dims[0] => BUNCH SIZE, output_dims[1] => HIDDEN LAYER SIZE output_dims[0] = input_dims[0]; output_dims[1] = hidden_size; input_window_size[0] = input_dims[0]; input_window_num_steps[0] = 1; input_window_num_steps[input_planes_dim] = 1; output_window_size[0] = input_dims[0]; // AT CONSTRUCTOR: output_window_size[1] = hidden_size; output_window_num_steps[0] = 1; output_window_num_steps[1] = 1; input_window_rewrap[0] = input_dims[0]; // AT CONSTRUCTOR: input_window_rewrap[1] = kernel_size; output_window_rewrap[0] = input_dims[0]; // AT CONSTRUCTOR: output_window_rewrap[1] = hidden_size; if (input_dims[input_planes_dim] != kernel_dims[input_planes_dim]) ERROR_EXIT7(128, "Input matrix dim %d must be equals to kernel dim %d, " "input_dims[%d]=%d, kernel_dims[%d]=%d [%s]\n", input_planes_dim, input_planes_dim, input_planes_dim, input_dims[input_planes_dim], input_planes_dim, kernel_dims[input_planes_dim], name.c_str()); } ConvolutionANNComponent::ConvolutionANNComponent(int input_num_dims, const int *_kernel_dims, const int *_kernel_step, const int input_planes_dim, int num_output_planes, const char *name, const char *weights_name) : ANNComponent(name, weights_name, 0, 0), input(0), error_input(0), output(0), error_output(0), weights_matrix(0), input_planes_dim(input_planes_dim), number_input_windows(0), kernel_size(1), hidden_size(num_output_planes), input_num_dims(input_num_dims), kernel_dims(new int[input_num_dims+1]), kernel_step(new int[input_num_dims+1]), output_dims(new int[input_num_dims+1]), input_window_size(new int[input_num_dims+1]), input_window_num_steps(new int[input_num_dims+1]), input_window_order_step(new int[input_num_dims+1]), input_window_rewrap(new int[2]), output_window_size(new int[input_num_dims+1]), output_window_step(new int[input_num_dims+1]), output_window_num_steps(new int[input_num_dims+1]), output_window_order_step(new int[input_num_dims+1]), output_window_rewrap(new int[2]) { if (weights_name == 0) generateDefaultWeightsName(this->weights_name, "w"); kernel_dims[0] = static_cast(hidden_size); kernel_step[0] = 1; input_window_order_step[0] = 0; output_window_size[0] = 0; output_window_size[1] = static_cast(hidden_size); output_window_order_step[0] = 0; output_window_step[0] = 1; output_window_step[1] = 1; for(int i=0; i(kernel_size); output_window_rewrap[0] = 0; output_window_rewrap[1] = static_cast(hidden_size); } ConvolutionANNComponent::~ConvolutionANNComponent() { if (weights_matrix) DecRef(weights_matrix); if (input) DecRef(input); if (error_input) DecRef(error_input); if (output) DecRef(output); if (error_output) DecRef(error_output); delete[] kernel_dims; delete[] kernel_step; delete[] output_dims; delete[] input_window_size; delete[] input_window_num_steps; delete[] input_window_order_step; delete[] output_window_size; delete[] output_window_step; delete[] output_window_num_steps; delete[] output_window_order_step; delete[] input_window_rewrap; delete[] output_window_rewrap; } // The ConvolutionANNComponent Token *ConvolutionANNComponent::doForward(Token *_input, bool during_training) { UNUSED_VARIABLE(during_training); if (weights_matrix == 0) ERROR_EXIT1(129, "Not built component %s\n", name.c_str()); MatrixFloat *weights_mat = weights_matrix; // error checking if (_input == 0) ERROR_EXIT1(129,"Null Token received! [%s]\n", name.c_str()); if (_input->getTokenCode() != table_of_token_codes::token_matrix) ERROR_EXIT1(129, "Incorrect token received, expected token_matrix [%s]\n", name.c_str()); AssignRef(input, _input->convertTo()); MatrixFloat *input_mat=input->getMatrix(); if (input_mat->getNumDim() != input_num_dims+1) ERROR_EXIT3(129, "Incorrect input matrix numDims, " "expected %d, found %d [%s]\n", input_num_dims+1, input_mat->getNumDim(), name.c_str()); #ifdef USE_CUDA input_mat->setUseCuda(use_cuda); #endif const int *input_dims = input_mat->getDimPtr(); initializeArrays(input_dims); MatrixFloat *output_mat; output_mat = new MatrixFloat(input_num_dims+1, output_dims, CblasColMajor); AssignRef(output, new TokenMatrixFloat(output_mat)); #ifdef USE_CUDA output_mat->setUseCuda(use_cuda); #endif ///////////////////////////////////////////////////////////////////////// // Prepare sliding windows to compute the convolution MatrixFloat::sliding_window input_sw(input_mat, input_window_size, 0, // OFFSET kernel_step, input_window_num_steps, input_window_order_step); MatrixFloat::sliding_window output_sw(output_mat, output_window_size, 0, // OFFSET output_window_step, output_window_num_steps, output_window_order_step); number_input_windows = input_sw.numWindows(); // CONVOLUTION OVER number_input_windows MatrixFloat *input_w = input_sw.getMatrix(); MatrixFloat *output_w = output_sw.getMatrix(); IncRef(input_w); IncRef(output_w); while(!input_sw.isEnd() && !output_sw.isEnd()) { // reusing the same MatrixFloat across all the possible windows input_sw.getMatrix(input_w); output_sw.getMatrix(output_w); MatrixFloat *input_flattened = getRewrappedMatrix(input_w, input_window_rewrap, 2, true); MatrixFloat *output_flattened = getRewrappedMatrix(output_w, output_window_rewrap, 2, false); IncRef(input_flattened); IncRef(output_flattened); // COMPUTE MATRIX MULTIPLICATION output_flattened->gemm(CblasNoTrans, CblasTrans, 1.0f, input_flattened, weights_mat, 0.0f); // COPY TO DESTINATION IF NEEDED if (output_w->getRawDataAccess()!=output_flattened->getRawDataAccess()) { // if output_w and output_flattened are pointing to different data // then the copy is needed, otherwise it isn't MatrixFloat *conv_output_rewrapped; conv_output_rewrapped = output_flattened->rewrap(output_w->getDimPtr(), output_w->getNumDim()); IncRef(conv_output_rewrapped); output_w->copy(conv_output_rewrapped); DecRef(conv_output_rewrapped); } // Next iteration input_sw.next(); output_sw.next(); // Free memory DecRef(input_flattened); DecRef(output_flattened); } DecRef(input_w); DecRef(output_w); return output; } Token *ConvolutionANNComponent::doBackprop(Token *_error_input) { MatrixFloat *weights_mat = weights_matrix; // error checking if ( (_error_input == 0) || (_error_input->getTokenCode() != table_of_token_codes::token_matrix)) ERROR_EXIT1(129,"Incorrect input error Token type, expected token_matrix! [%s]\n", name.c_str()); // change current input by new input AssignRef(error_input,_error_input->convertTo()); MatrixFloat *error_input_mat=error_input->getMatrix(); if (!output->getMatrix()->sameDim(error_input_mat)) ERROR_EXIT1(129, "Incorrect dimensions at error input matrix [%s]\n", name.c_str()); #ifdef USE_CUDA error_input_mat->setUseCuda(use_cuda); #endif MatrixFloat *error_output_mat = input->getMatrix()->cloneOnlyDims(); AssignRef(error_output, new TokenMatrixFloat(error_output_mat)); // initialization of error_output_mat is needed because of kernel // overlapping error_output_mat->zeros(); // Prepare sliding windows to compute the convolution gradient MatrixFloat::sliding_window error_output_sw(error_output_mat, input_window_size, 0, // OFFSET kernel_step, input_window_num_steps, input_window_order_step); MatrixFloat::sliding_window error_input_sw(error_input_mat, output_window_size, 0, // OFFSET output_window_step, output_window_num_steps, output_window_order_step); april_assert(error_input_sw.numWindows() == number_input_windows); // CONVOLUTION GRADIENT MatrixFloat *error_input_w = error_input_sw.getMatrix(); MatrixFloat *error_output_w = error_output_sw.getMatrix(); IncRef(error_input_w); IncRef(error_output_w); while(!error_input_sw.isEnd() && !error_output_sw.isEnd()) { // reuse the same MatrixFloat across all possible windows error_input_sw.getMatrix(error_input_w); error_output_sw.getMatrix(error_output_w); MatrixFloat *error_input_flattened = getRewrappedMatrix(error_input_w, output_window_rewrap, 2, true); MatrixFloat *error_output_flattened = getRewrappedMatrix(error_output_w, input_window_rewrap, 2, true); IncRef(error_input_flattened); IncRef(error_output_flattened); // COMPUTE MATRIX MULTIPLICATION error_output_flattened->gemm(CblasNoTrans, CblasNoTrans, 1.0f, error_input_flattened, weights_mat, 1.0f); // accumulative operation // COPY TO DESTINATION IF NEEDED if (error_output_w->getRawDataAccess()!=error_output_flattened->getRawDataAccess()) { // if error_output_w and error_output_flattened are pointing to // different data then the copy is needed, otherwise it isn't MatrixFloat *conv_error_output_rewrapped; conv_error_output_rewrapped = error_output_flattened->rewrap(error_output_w->getDimPtr(), error_output_w->getNumDim()); IncRef(conv_error_output_rewrapped); // COPY THE RESULT error_output_w->copy(conv_error_output_rewrapped); DecRef(conv_error_output_rewrapped); } // Next iteration error_input_sw.next(); error_output_sw.next(); // Free memory DecRef(error_input_flattened); DecRef(error_output_flattened); } DecRef(error_input_w); DecRef(error_output_w); return error_output; } void ConvolutionANNComponent::computeGradients(MatrixFloat *&grads_mat) { weights_matrix->addToSharedCount(number_input_windows); if (grads_mat == 0) { grads_mat = weights_matrix->cloneOnlyDims(); grads_mat->zeros(); IncRef(grads_mat); } MatrixFloat *input_mat = input->getMatrix(); MatrixFloat *error_input_mat = error_input->getMatrix(); // Prepare sliding windows to compute the convolution MatrixFloat::sliding_window input_sw(input_mat, input_window_size, 0, // OFFSET kernel_step, input_window_num_steps, input_window_order_step); MatrixFloat::sliding_window error_input_sw(error_input_mat, output_window_size, 0, // OFFSET output_window_step, output_window_num_steps, output_window_order_step); unsigned int bunch_size = error_input_mat->getDimSize(0); MatrixFloat *input_w = input_sw.getMatrix(); MatrixFloat *error_input_w = error_input_sw.getMatrix(); IncRef(input_w); IncRef(error_input_w); while(!input_sw.isEnd() && !error_input_sw.isEnd()) { input_sw.getMatrix(input_w); error_input_sw.getMatrix(error_input_w); MatrixFloat *input_flattened = getRewrappedMatrix(input_w, input_window_rewrap, 2, true); MatrixFloat *error_input_flattened = getRewrappedMatrix(error_input_w, output_window_rewrap, 2, true); IncRef(input_flattened); IncRef(error_input_flattened); // WEIGHTS UPDATE grads_mat->gemm(CblasTrans, CblasNoTrans, 1.0f, error_input_flattened, // A input_flattened, // B 1.0f); // Next iteration input_sw.next(); error_input_sw.next(); // Free memory DecRef(input_flattened); DecRef(error_input_flattened); } DecRef(input_w); DecRef(error_input_w); } void ConvolutionANNComponent::reset(unsigned int it) { UNUSED_VARIABLE(it); if (input) DecRef(input); if (error_input) DecRef(error_input); if (output) DecRef(output); if (error_output) DecRef(error_output); input = 0; error_input = 0; output = 0; error_output = 0; weights_matrix->resetSharedCount(); } ANNComponent *ConvolutionANNComponent::clone() { ConvolutionANNComponent *component = new ConvolutionANNComponent(input_num_dims, kernel_dims+1, kernel_step+1, input_planes_dim, hidden_size, name.c_str(), weights_name.c_str()); component->input_size = input_size; component->output_size = output_size; return component; } void ConvolutionANNComponent::build(unsigned int _input_size, unsigned int _output_size, MatrixFloatSet *weights_dict, hash &components_dict) { ANNComponent::build(_input_size, _output_size, weights_dict, components_dict); // unsigned int weights_input_size = kernel_size; unsigned int weights_output_size = hidden_size; //////////////////////////////////////////////////////////////////// MatrixFloat *&w = (*weights_dict)[weights_name]; // printf("%s :: %p %p\n", weights_name.c_str(), w, weights_matrix); if (w != 0) { // printf("COPY OF WEIGHTS FROM HASH %s\n", weights_name.c_str()); AssignRef(weights_matrix, w); if (!Connections::checkInputOutputSizes(weights_matrix, weights_input_size, weights_output_size)) ERROR_EXIT3(256,"The weights matrix input/output sizes are not correct, " "expected %dx%d [%s]\n", weights_input_size, weights_output_size, name.c_str()); } else { if (weights_matrix == 0) { // printf("NEW OF WEIGHTS %s\n", weights_name.c_str()); weights_matrix = Connections::build(weights_input_size, weights_output_size); IncRef(weights_matrix); } // else printf("USING PREVIOUS WEIGHTS %s\n", weights_name.c_str()); w = weights_matrix; IncRef(w); } } void ConvolutionANNComponent::copyWeights(MatrixFloatSet *weights_dict) { if (weights_matrix == 0) ERROR_EXIT1(100, "Component not built, impossible execute copyWeights [%s]\n", name.c_str()); MatrixFloat *&w = (*weights_dict)[weights_name]; if (w != 0 && w != weights_matrix) ERROR_EXIT2(101, "Weights dictionary contains %s weights name which is " "not shared with weights_matrix attribute [%s]\n", weights_name.c_str(), name.c_str()); else if (w == 0) { w = weights_matrix; IncRef(w); } } char *ConvolutionANNComponent::toLuaString() { buffer_list buffer; buffer.printf("ann.components.convolution{ name='%s',weights='%s'," "n=%d, input_planes_dim=%d, kernel={", name.c_str(), weights_name.c_str(), hidden_size, input_planes_dim); for (int i=0; i

~7P'//>ٙ`$m.`7#fሡ@4Av_V_`24ȓp:a=6*L<20fަ˫;,qr쳰1!W [ȱVMBC_#f3pA]%M1QP*ʰ` G 䊱lT;e}Z֮0 8DMH=IHH;CLb4"3=ЉGHٸ/ yJj'j(*7S,ZHC2ōQJ,fjAܰ%b{}fa&V*)Gg7xZ+'dأAKSUwޥ08"潐؍mx#BK: v܁ެ.Mi l..Ӽx|.Ӳ?q]Eϙx=ֺku{frAP΋P[S#0Ms[ŠKuc˦4]iFZ R`'AܻݠsO[̎8#Z[*qaZ'Ә^^5 !;2NuJLPi50b}eNa耔ؽ\SX-$$ 983*Z8`됟VS')}" b#B4{063 #XڽGB2o]qPkGdFZ+=~z}u~X.Mi~|' /o>now|P>ۿKhFȒ~y*3vW[1lۻ˜iHy8y2( 7PjPƮ7`k}u]{JE:* []r4WVk3h=t9a$0z_#N {zIv)&.t64Uf)%e 9bJ@P"G$hbGY7 Z$ ]<5IA_I@8Rf@L)`Cm"JJwJIk0C 5L CNьI`܇#;+pג`1P%6p>jt QP h318x(:\r`5R oB^[0Ut %rdm"MkM!s/ cAl!a0*dQrpAh)Qg+Em̍|`a=#ƚw\4]$49N}@mဠ88%V2s@ zr٦a=0ТДIIv׆c]x,5|L;aCD5~s>3_қջMyDіf.e7|Rjv/~g~ۋ[eܧ޽l,ewsQ[_>~N#^e'aF_Joi^m⇿/iw`VW?x(_nv_W/22+%yW?҃uo!)(0\NFj%Vf-HPI]S%~7OyDBJ<]BJzɈ2mZ0go/6ϗrȣ~B7g\$/ʀQόcE#d@b\{1'#?Eh);xyyOo7ק5*emnϮ>/^}r5EMc3~\]K5(I{U)]Sv1~ݍu^s&PWaN>]Ow9|#Mt"LzSNxz0ndSRA4lӶ ^{Dq"<6L(fp@k (Y1V;J5"U^|XOoNۯs .q{fjsjxlieǾ0!A@ ʅ)oȲO_|gn T3S6 Tw0#%"qWLen܈;8jG'^11 eؕfnNP-TuTSd# k@H+Tw;̬ CCˠ=<rJ"0D\Ye$XL#oes+):X!@F`pXujaX!p'?c0B<87b•,Œ0@J֊Fdj@RTzbQ)%o>!'Wʲ88hf FYMR@|mq޽8Tl"p}y~!d~u9NGOe[Gvdm9ܟ-Ɍ) << 3?/O:/jCR_ϯ>}>|/S\wv&R20Ŗ3\XJ$7WGc :Ŷ0}u7~jM Ѷ=}8[Bȗ7;،Č,t%g&?)aXSӖ5~j9nS_}ۻG_g굲DwgdB6Z"VPhϺyr]XW,Ϡ-V/6fW#Q-LU81F4pIZ@GfQ=@3TK`2@B?;$E{40yGD&dp!bsZ 0Ef0r'Bl&[n"  H@1"˜ja"ΘjD9A ZեLL+/ K!aCH7ВdwHZTbmv OVtN?}-8m~ܤ߽p]JCS';rT0.*02DNi^8Qiz|4÷÷VFޏQO>~vϦK:k,ɞ\vSmFN)i9WOA$(Lݘ,f4,a4bige̘Bh _L4)5pNQ.Ӟ(!#$ aFJA DA69uPF%Ki0X)) Ѓ`v=aZ >lyGywꕗw!SqJ =;GGs$ơzFwj,@"WnmIh=.L,NomFA޼;7o>Vv͸l&b#_]a~7Jua؏6ϤzX &mumM»@QZCN혶Fȵ"89J2Zڰ~x_,B<\/ǟ}<^lN!qG/SW=,slvȐ4ds8,3]qܒgQǯx۾ zjmz<ҹ`MI=H>p~{WA~v6vC|ey;V/m6 mbmջv`-,c803+L CS y0B=rcXxU,K?WqĻ̙]#l(F]WRqq01;mP=.vKRCxtL \;$ӚbQBӜJ(w \.EIJ Mb%i%VҰ)BMD'Ov(I $ٸðyqra L%zuπ4ap F+Au[ jw R;6l=x!asK_ 32CC$\\|掚C=(𠰃.8 4Ɛp6,kr_N| V lvk @3pgQT37pw0XiaB %U⹁љהXMʅA.&rO@z aqpաFYaom?Nm wCW5ӱ!w}5] ?}XPvv8O7Cyu⫿xl|ssպ^^}*i@%,Qӛ?_+Җ/}2 ŸF#JRx.O5)־4C7 +/XO|_]?~l?iq'^GKwhʹxTH$"2r6 ,N2~D˼,CEC*f->Z7N+>V{sZ9uk> ؐ;P<8렮' uR͛z&@q9& }`"Z}Ē9Vnxj+,С\,Psuozb̽GZ@r=ILy{ Ũ$D92B@ 2Bqjh6i!$Dψ=(*-woȈ UM q6"!qrϪ@ eTڳPKmu)k5carPq0x]S2W35(KnJi-hF4 '~.zWv0D6{Y{U7糠*{N8d9zGf. Н,avnAhȄ =sgT0t Ha :JVѩŦbK+3K06>fC㴸lb)R ,6O  X=2:{*ճk_DKxo#d A.ig] /^cgYζ.J@#!+עoکڡWA7~߾?g/ڽ@MB ?ïힽHƓ 4G6_2y+j\ߵ_^\}}0 *-aD Wǂ5ֶ?^|l7}FRV1!gNk@dSٮ#OC?- mx߾D//M#~}]~8Dde6r鐮1Ѭ {P$ɡl}3d\7;L5Xfꆧ9Q߾̲W2654~}û8tWM@i~n󗿼vꣽL##u% 3ӈxrlD'mDX;l R(@sDFs 9û׃7 X'_}Ӂ Q$”P`+b^NO{]c޲,KrFٚk+X Z!,,j 9+t(@*s=} Z`\l:G $nQl5IkV)5E>t@)]sJsJo'wHrD#=~*nm$_ @*2:L^8`RJqI4$AJ]|͉$s1󄽱:9Y ƼfPN 9Cu{a(Pi E z"%LsvI"]jW`Q,șq9cL(eW*l}֬_^ɗ2 e!ebfeK:ߑw.*S?ԛNjex[@2 I9mWr1 KٳwbL4ϟ=}V0 zD8M{x/Ytﾽ9TV$R)bgErk!Nog?n>ݯ_E՜l| @#ӹG Zc=Ƈ _?fׯ8G/7?0=P wH o'D(BxyBOS`H%BClΆ=zG:h2903fiU@||6iYM!NV`\]cܗ &}^ 3 R8ؐV Vj֙)ֆCMEwu)~3CtXcOԬuMx{: .N~O %$?P/A5($lX1q+@|OC<&B Vܜ-ipj#G3Ѭ1耬mY425Pj$w &N +!tzH[T %Gف{ ,ު C'cK$N;,V u ƉМå0)n! P}nC zie3yՖSJ@2lKT [90bt8;c $"Z%]7]qL!CRZZ)Hi 4L>xD ENF=\2,AAWLhͣ3~(7i|w/n>w2/Vo[&"/D6myLp/WuZD>}6׻k!q];pDXEmv5nLUu;6 wǧCLq:ߡ)bv4-Dspwn]< $<MF,Xlno"%Х'޼[v}؍7׷$H4 O={{"]|˫P=2L`X2o i4 RHRw5mՏ0?;obI{ܳKPF$)g kLXWEnFՕDI8,I$'C 0CdC"/'NwIYuTRFlbm3qV;[eޝ ,zt}@q0ڠ9ʀ1,M/3} +lt9 r<{28GKb;A<W546/>_on!P! Ki1]ZcULHA1BaYJ!i9Wڭ;n $DЅ#٦rXڒ>4 M 3-[$GR&eHRbHTmآy uBs*\1򆁰zEx0`1) ]c'Cp ʄ{0XH נ 9 x KwKind0` ~[l>:t*VY'ͨgtk՚τ6fLMLzK!yCbKDHQ}RPbjD+1+3qD l VД sN"V IJBԲ r8@ $pdaQ0u+\f\ L!I@RYa(B%(jN✛1+7d CdUȗ䆊b؍= ՗ ,M9z(^S-ffDV쀌f2eP7ONFf0tc-CxN ;BV%լG=٩,wOn7grsH&)*Uoꎢ<Hȩ)DGSc< ,hV\̃ avd6Wa45MMԬ*V8T021 qJ1̶ G cܜ 02yX̊n$sG#ޅezZscq\+V)S1N4,c?߼|fUJum_Ta0(2n?owo^rn=;W/˯_M-x+krkG[I4P֍$]ּ?8Xgzۇg~si896{ Q6^oROχ!6%bd+!g?>~7l>wwRI$Y801OD$Jg矾S1dNw'V*f2n-q!)aHx%';I l˒zdͼO Mbw#3 y-NyE+ZsEBQto@b7Rd `ke?>Oo^=)3Os#o)rgݐV=~tgd}`HmHO4jnZei0 VHDV kְ#WeG?KXWϏXyo]ߝNGBѹ6-5 0k(ѹ6u"o-baL0t<6tyy0hU+ 1q(@<4fX1&-hSVٝѝBu}!J[ P4W!tHvB$@!*YPj13eEv ΆDיjAc"j[9Wշ׿+Hu&Qw-Kw}lM94GV5q0܅;{O?:x|xuh8'n1?o_yops36ԛ)ԨƇNa1KdU`O~_>U3sa?MIE@0:G\ \F= ?O.׏t}:J߯6RkVfܳqhZՁHXKAO i\ !02P@qh@jmy՗/_n&H"hnyzժ|9wDe).SC%HNj9*(9^/~Ou\{TRJ^˷_|©yLbHR$u݁$JmG&1d5MI075MٔݸBUnB,y =}AoN$`ΎK@xpct ܝ,%>6Vj>x+y%%Vt FN9 e΄ Dk&1쇁MT<v‡ s"YJQAW˜`-u [QܬrA 8ZAqJ+L_SG"@CyO_t&=am]oݟ?%n֌:Я~el݋fwt7m뻢S(e[Wg0 JҿQ NO9NߌC #/B r ݤo_|o}e*blaZ0m ~?_]_| 4)UMAuCT)dj(e~vd4?Oe>[af.^2OQ3\#ah;}{߉ѣțC iQlZOϞrKsٿgޗ1%_|W~ 5ʥuPXS } PBEji gp$B4yh)TRǴfaDZj=LF8B.zqP [?3?au>JSﯶ064rd_#hP(֫VWɾ#E%o*OC\GCRB2^"oh˅C\wz0Y4CqD!V<Xv_Rhsmػ5$`]/cx_q!l2E2#4`ѝdfw!aӈV)rPcTȵ9ELRA\%Y4;pG>0C C]UȆRro2r0։\BE} kga֥`S֎ p? a,ԐEpA¹tR`Z Zn؉;SKLv߉sϦZG;_.!F `D{2jd 9a=6!3Ț{j٬9buyyx JїщC-sT듇yL1);ivЖ(gP`5 u_N/>m%-~_Vq!_ʂuhP YTluű[HTt%ynQ$c\Rpzݾzy{\ҽ#/^M@2Ӏh]1\<mȗ{{7gZ <|ux{k7̞p>yL8e޼bfAG@V٭BlLG˧M-=\D.`(uz_~ ѻ6#oXHKEJ@bM!YDRѲ_y@O1Tk9zt0;z^5(X!\\u`ـۋO?~3?}|fa t^s{`^g '}ǯ1ܟ,ؚRϸ4&N]-< $xHgݍyq@BL\`1v2?O *AdzLӂHf?m/b,]u`^^m\e!Zn"M]Q e; c7A [gaij; 뇬_/?}I;}3G#n _ZXKuT!W8lcH%)[ܘ%'c>v!lh0NDQ 1uk5Gt ehV4p(-hT@)`(bZ*k 0[C!![c ֊CPQ}4h2f?NG6+Q%ACY83 ' b]}hDRht5HM'Vh֘EHi ,dUw @w4仏E9| <޻i11 E+'"UЯ'g~KuƼ{/| ˲,5CM1::^ zJ]kluޱ;kUWir[,pj F2bnx:/ Z7^;vv ;`Zk"AYb@".#MJ]ZBq #!B9W791'*$ yiS[zy?Te фmb]XД#?yԾx(.c(V9A&HAv'o_jUiJMDWg47jy.Vuw<ڲެiJ zSUb5Zqv| ^/iHD]c7!P55hԾ$3#!@'KrEHMTĊ\]ٵxH׉3B^5 O{H6䋧 10֔:Shࣄ|A=Yf\%{u0 10xs B'>lCn( Z6H :W7A_сdK#Jƀ̓s3,)t"Ȁ;4d٣z,fѩĚqUQ d+pb(*ͻ:b5҉*2c@x%ICڌ;B)N͝Pו4f-(YV)L9t>!ā6A чN:Q:Q̩a1h,g'jw`~wo-n?ڎtqE21fi[t{}p=no귿r L%0)tCVo9|c8bH.2lfҊ }aE(QJZLKͨh>{w//_)|CO=DekCk.>?߿| 6pu0R<).bE1fi浞Ězkڪx=R B61H͹7 -a{S)[ZGvq9;?Vzxۃί?}fm(hg ]=CޖϪ&(=lC,c $Է(s(:Y&$rA,i ,]Ҥ!u$R]N`i߂acvܨ [KOyA@A8R?)HCO-?qvzus,iiΓ]}O}9_wux[v/Wwu ~9ҕr6[胍 :pWc9Po'i<jk3` tvSoUǼ]ݞu_oMdƙ<yl^^⑭ݷ?x&`< Yc+KD_:i2  N"#{b@LiYƮ;* on'~S·S/e`Lh:~oױflʥ2!-FS(e>0C`u,aT=8ԢF7@9Ҧ#Uu=Gfm^6qwڠ3 1H*̈JĦҬKHe%j@2jЇzz>$KR1*xY3"6`5b3/+ix:c- qG:77j"Zj\L(+Jp7ST1vM#`EL^ꤌT,3- ĉDE JQGTF]e ;N"P}6Us&8q1%P$ԭ9tfUaϐ; L 63bԔVtvBmDU+izܩWGq#Uάp$BV .hN[vKCk4@0Z ͳ{HDud6ȫYAv7To>~۶Гl7ol.ez~x/_')ê)b!X³xvvywx$AR'˯~́Y?;YӁC$ҧ@ju\<0*W(JeUۉr_R<6hCz sJ58 6,26@av^Xѡ.ЈC3maI6^pBw:?1M?AcЧ.cH"Ec + i|۞ ˜(,Զ!>e\RZ+ơ6ݥGx:=_|S`^hf&|OM@w@`NCןrQb6]nu@{ -`4HB  HsYXeZo-.6{ge oq\c6j͒;zNV;!3"-yꚘAyKsYXrk]#sb'hblI:8&V&g3c_U;Gj$b9{NA,A*# ԚVݐ`)K QvHyT<:!h)5(7d =1ULZ>!%{Iq5.Fup&SPPRe{[a!n+ɚ$g6JͤD Dˡj!yYQ')f;2DMk .ȂG'ZT9bC͌=: q!.@ cE;#8 GkS ARԌzC"c ]uDF 3X5<2ؙU#Z5 r0^ suZ{;3hSAw C:9JS_(HHT ؉yIkfAB᡼}ӭ:kTYp8=;fte/\zy޹|w>nW29m*oW:ߴ/>^s ,M8Ƞ5?z|0VjXi}0M a)cy *!ic~~=7m5QNqY*LЯ2`1ےwonl9G`0 J",,; fUpbހ2rKۇ;bx0=z٤_v0^mθn"ksCf:4wH7?=yMl&H8 l>-tԺLotMx{{&_-^{x|o=W 6akDj՚`:4 tu}_Zٽt]gr[ bBIZ]2h5&`PmwӆK+7@`@ײ@~~Zo/)5J<}՝#l.Cp[|_S%u*C }ָP,cSl6d'A9U/lI#d&"|'6˲jTAjѦV9#a^ilZUhSQRCL1$@ j8Zk -&[*)2@4TRA>44R5,n@@ [ ULzhVы{h fՈHZZv[ 9z$t)T3@`ă-@#VUs8i̘]+ XlQB"SŐW1FbXZm1!E?~equkkp Vt:Г@ͬK'cZZ(C(@ Hg' %fp.8!5 ٪$843Fk Y!SP4ЉOEGFMc (NX \+6"R%-0=fĚ+=XE:<2U.k<FnXz7~mr>uO~珌bnӌ\S.Wz w$lHXͺFXš}TSz-쭆 $ɅZ8:2]ѳPoTA J*%&S髪2CmāZ3L=Rq-ޘX)a T+LЀ%k@GͰQ:uq=v!MAw d( xZARmnl̬؂s$85vV^gJkh!w3qh* YEMk;#BJa"{+04&Cv5@T]\S pěTKQ:z>RYb,{`HPٴ湴Ûπ#NGH1pf>;K<pvo._Lky̭ħYo!UWwxtdJfmِ~l.oQ`X]_44~үlmWPM}m?*s>wWi}Qz)ƕckjL5׋^nU=(en\i9UAæLP""SМӺdb mw0˼$6WOysí<;Ğ&LQ ҨX kUa9_qP s{٪#:}sJ+YF5H}1/>Q98yYm>~ shsϺaۅ9,-m/^4 b19bHqqm@~Q,Q:''h#۾@ )e:D->39?~zz}׭˭Vps`+fOf-` ! t:xBd˱&1W;ޗz6nBH^h.qUёIhiӸnb!բ(r֕:% т :{hR%Slyrȑ h: 7 JPqjS%8ʙ罗rݷF> hLy=4Űh$'ၸrBT[\$uQNKY^꼟RNS!69ѻ1h}x~ ˇi޻gCGt???w|_ֹ85 |ţa>fv7էbF}Z{U5Hy/;_ׇ* a?GY=O⼕|5둇cN,kTc-W:Ѳ4x6#RCCw]H4l'l۳Gn_}%$~oό[lr9h8d>MJ+盟K_i:U_b$ 5p^pؤ2g CwS|Q9=z]qj +RO/3ե*GN 3k(`U#N8%T,q%]fbiyr s2WZk`*d.Qrf *='9[d(ܷ@M]f+hN9KFjh=(9 {f`L )tݠs' cWnJEn*(;SaЈs5MB",0PiҖpEGuA%F[cTXRX$xWm9  J$Yd&Q@ĉSM* @WEjҘR>K)",b(UO+P$@\49'N(rN`r@GbuO($5*i>i8R8+'-trr :έ OtժJe$/C"Zd(y_TeY*H$?\}^<&!ݞ;Ov}d?=g/~?sp{ |*^^^ MCypV>O;/&Pa9Jk7}~OҥԪpkOkaqØD ǡ:;N/_<+ C%;J6+M ܗ{.kvղD$qx|~NwK9NEWW/O>Y}N77@OuoܾEtH؜C̖;); +?ZʙS$, @f mX\[aq۲L,_N_~[n }jnI%&Ytׯ@֏OZUN_ڱҎrzne7|c:!AmP܀b;Ce%ĵ "T* t _mt*܊pN]\Y%  2n5#iڴi)o^/W:RZ ],di{c eiD.-{Q33u_4Q_ر6|DxɮpؖN0Whv`)dVu~EjݟYXБ5ưX7bg]3d֔G"5U`d܈Ra6ػ*zGZBT#j`ruE 6kD1v0 9nZ="抨N G}AUꍋV`sRF-X󸊱ȹXc8rq*(^0"q e@"-I\Q( [Xl;|$fPejIhUD@S,K1L, !@Oސch50&0P=@@wULЉ 4eDi9uфh |>GB+q`Y蝅uq|OEW1^wk>{|ۯݿѽu-;d_=bգ8Ęn/ӆZ;Lao~s؝碁0 ^ufpᛒ3xqZtcٹJޅnr Ѝ]YlO݁Zk%` )$ āxpDc5W)v=`l>dfRbή+%SCˊf+#L=$- M'ܝr{),bIΛ/8KSW(kh1Y$CR ]O~2FžT$KM L(IK50FV[Xn~h' ۨSnHCZI ;G);FFDH=Pc6`䂁@E1PM([3-n#j` s538ؘ<a, 55aqL^512[/.2ВuA&x"d @!HZ ̃4eZ]I= rT( !vC]〄gzիsJv.y/W~|uhH >`qK;Lo,Wzwrw/^ïaִ6C4{tn̓n=u|ϞM*_7˜uBضgqCKmݧCn߫o?^ s://݈wj5i1Ϟ׼^hynZݍ).6ΆI iaqw?^zyr9~auc_<&b#TZhJû?|7;q<[#Rh 2VI G#Aj"䞤[ws>z%T;lyNoOǁd;5Mғ:i~2=|Vg-!xg:Ϡ<7nǷ01a~<ĕL a3a$D N GܑQu{ S"&@hK;st qڪgyrU7s>NzF{xuٵSE ^[ ݉ZRN;QKuzj6p- [)M"Wy|>Ō\޾کB @sz0i r֦|5_3S@@g6KjX4&ܛUZ=l6RQ j 6l>K ͨՀmq=%63 kFܚ3ZG=8bUXV!Nڃ \6ݱЊˌ5*X#c9n@Fz1 TO73:26$:%N3!DZ,늢U,CB7+ 24fйTP`4GE%$UE 8q04vaoɹ'PT9^Ő@ON}by@.J͍БEح38$ - TĶ+4ܭ2Fche51fN':{ؾi|}"judw^^\bk!5)8mcÛoK:}}{$ ? Bsl-cCC.u֩\B]r]u=}g'lٌ=y?U|xq|" *doB!h%Cau?N)z?X EErt"]jnpQ ]0R6d#Yw9\% 'Z^μIkP2pY*y4&( $2JjC]ƒUReZ: nHGt$=^SJ$2LgVvnjP3+XF77V-VMs B*5 -Ul,])tZ" xnjAȘ::GBYm Z"[&F,sAݎ@``kin5 7DܜJQQW ܁ڌ2Xذ7 'r} hj fTé٠E::5Ch ".`0B<oǦPUoۂ5cDzhՅ0<;h6RۋuO_ʮ]_٤I6MSRr>W,ׇΞ~ZE, & eα+ D&5a%[ސI][91ƀ`Nç=^ۯ޹xr&_AhMf!8Vv8"V?ۯOKVQ$pT6L :ӅPh!Bәu"RˢCgG8{ZZ-Va?4?zuLlovZt z۽6؂ 1&5̧z uq*PWӅ[#E˖+@p2 H!OMP$'+ УqTF^xHLX2].c'iUJN܏楏w^$y39 I6]|SNm# 3Ր@"t|-1,Aa܎C(nЅ#v SR% 鱁FulJ3#1.X=hZPX  S^`AUT&ܲ\ b(6(*Smf$$'<-54F@C@zB܌Fa.X7iJpCGDУn@] ]@H;װ)u7877r\ԨX D]$BubI n (!lAP`"D̀s^VӨ(-<|\j*luiH: *vI9:9x̀];bhz zz]G|~X%&L |FDdbԬ;PAzBU9745Fv?𻛥l⣧Ǐ|~^=l:@)@pdPL]Aٿ_nuXB\Eľ@p {9pP Г0D(,+ ^Ƒ#am/CZ %PHU8 }7 }d78$7[2ڊL-+4eOУX`l!w`UÚ`i,b4" + ! ݜн֎ڲZ)hw*XŦ 9I\ԅi)G=Hh؇5"NV-R9D8Vp#u6Cjg>(lwΚ&5iRN켋\5 MŅC@3e}95I+LRZ mq}]ƨX @S(h +R2Aytm1!hQ34FѸ#9  Օ1f0$CUK -k bkѵ uh͙I nюn::UZ(DW+51%%FcBP|*z6ѩw%v!dPf^!Xcxj̝\%`m I%x R .N2Fqboj?H@h9`XQBMRW\C3wfD}},CQ0:*2D_2Z\cU#詒Yg!䎃G4@~K;߆CI0z܄mݽsm=~s^@Vqݴeܦlwwk>Z24D"l8b3}}?Z}$]|z^\K{_ͦlً"b~T; as%?t.3۰tx WJwa;oo~?lnXu^>nܠ(Z&(!zlCPs&D=9AS uLBw?h{8 u׭KP^~Np!1,h9 388=ZSۆoV ^1+&< $-ڡX5r4tv@[#WUZ+? /^"t*~ 1Ł)& {ע*( jKL"['{ΪRУń(k8Y-AQ̆]4;:33%i^fzkS4,35V:քe$n识 kM_P'85@(PMb\-ĥ^X !RX6e-alx~/ O3ao-ƈJFԒ G|<&6<⦲L1@KURxW9 X3$Z4@Z|(fCEЖJT"82DkLxЃ.^Yf#٭qu%bPh1UoQ밉XܠxV G@.u;f< 4.$Z*#/( !!gTDd%E 9gSZg4`pb'r->q!alVr.jM0)Xf掰4dZM{d N dA[`BTWX;G;49fHT+6!hD-@NCprt6CB t ]XCFU f|k|ܭ2Q[Mכrn^7c^R=_*9>˯vZ-;֥@`Pzt`麳u勿^ͷנl;ib^xN3'_rATj%JC1Z.ݧjۿ + OL.]Hw6O?7wݻAZ+'/}<#7kݹ'wtjBɕe4 2U ]8@GOEkݖ&yoaΕ_:bwuI0,u4C. 6, ʢ,hbh6lv+שsZk9xKswwߟ_Mĺvn~yNF`,|&\Zrx_sޓ[gJQG@+҄戫3Re(Tr4w(3n1Q[80(,|퉠%^=L0 $ˌ(NwySIp :P9䔬F:(5 %d ڣfi 0ÈL 5Rq*kJ?]uLJ5 Hct_bG XtS~v-S)kx2 :``~QQ*q niOǥ*qJ`<˞&O׫w>Re*;ilǴ bS1 =3Bsocw;vpp*֍"H4BDu~K=-/=a{mm7Hy,SU=޽uDT#ۏIMmqO ,͋1'պpqRy1/f mY T_tB8=.wYK_rSM.آ-Q̥usm,Rs0K#P<*k" 0,#ZoۻWϿ9?"߾OHK GrR<D Eyٿ_Ôo ՜Tٽ0B"̹IJ_ !%R4Vr8-xJDR " %HiB C%H8T`'\*zuж`JLcap')mzr!$8q&\+{gEf'GL*IPYzB,kXov)@m_Kd7]M_֭IFCHx MsE6"4\wSz>^o}xtw\X:jqtSˁ d)'ۆi ˋw\L!@AeGDL3pܐ"6R &5$!thɂLS",[#5#FF'^h9FP~1Ă9tR1@Nޜ4`<L,EnNDk> 쇺;dQnrʐUXISbVbc*LDF`;" i`%0$, #VޡX.!TZvGԻv$M%F]pbFm =aQ58^`<8PОBgؐ$1!LwE 2G3NSI#*xq 9q@DNAd(~?x̯oLsޙS\~Tp>_z] a:f:{ QNw/>~RFNsmmi=?~>~na}.vx ,_橵1|-i9;δ=?BS==/xSngoƇ_AwcVg7wC % *&=x$ B =P"(eB$[k0Ʉ$M 72z=J;džIYȁ0;:.l`~8a{4e> 4tP\18T x%V"r*AV6FvIO{5WmVo;elqHĀDة^/+LIQ^aWOF"[ Q |ͽm F^B (|$ŷQObyo?x46k[\IIkOx;xna/}^旿 Kƻ_ 77˿/z:5LG˛ mc+x*i$@yؠw2E 2E3!r>~t{/MN!9/S=p*STN;H"OZ9eRq])K!(3DMif5bS%g ,kHx@ djᦴUy hFl,7LbF"ǽ!Ⲁ"&71e,hKжsfF8gp4D0ch -h{zc0e(C8 o@ntũkLB:h;z:QKU0GM3!/7T!+d60L&ZBfG< ۣ6:` v! @(WDN>y)y ؠ={J)l%@=ESos&4Me')aJ0;A#P70h!!F7q4fP6:_`8xkˀ̙q2ձ4)&ri ]a@_6MǀpncCtA.#Sgte'Lٳy # Ր)FL"O. ߾oqn|-|9(*|ޟ<\>v&*pˍzSāƻy[bƶyPk#Q9buw Ѝ(s6  WkBPl|{\Y3@I; :.<r&ȌXN#%A0F)u/G&iXwT//Y߁̈+j}&ENJ5cPFb:FήNnHԐG&(h `DK"˻FX"het m(¸x0 _`SSJ{ΐ&c&s@Fa ` {fw`!s#D3$!B[~eJJDMM@"b`&p E،9 3{fz!R=C x 5J s3⍳N #j6Hu ]iA(W& NXku)yairjO[#ʮ8ۼ͛Q' 8_ƹ-F@ad\/>wg5r]52=)48y 1v#wϧ'to|UO)n~zxq{u WX9iW"߿y<1\WcXC~g؀B\,K>=?-D@ThpNNj5D㕋r7wE+1 =nKO^1[+?ܽܠ $'0LC}~O Yʔä4{+.Q`bD|nrH,D15Θwr.KC2vzHn XVz DY㒅 <QkV7>9`BU AD:8̛ >« !s 2rDDJ pC2& WpĊdcY< I ##u9{ޝP?Ϗ땧A3"M7JVYRDy30" "1 L5̀ Ρ1GX*rAM`;F+z26*Sil!"-]#UvxVTZF4*\*@䌸) @v[HccaċL@SCXCn DbYn`uK阻AbDޘմ,$0Jڌmo'o/^Ϸu_B=\W 8c b͏| \ȧħy|7}6vO^bYϯ}TRco]K9T)wϷ9=z߼ I׻G?'S<~~$2Xf*9{lZ$đ#% .% my|{_,ݧ_;i:28N09 ?':ifNK*nsMz#[V)\# 20ڊNBxqE<- lhXȹRA Úd l3YDWF ؉Ho"$QCpC^SxymaÏ DBO!'U\ $w%4*Vne2R=t0rʜ5#]['bkvsߌ9[Čy'LoVAw N=J羐%ex\ 5|C,$Kd,Ċ@!0cs4%װQ:rh/gXvG)c0`"_ 9ps3߁i0FD=0A#P ;m)j}OZ?#_ t$Vڵ` YBPiʔ·):yiJUO4P L) XB 8v@s#q73\g-a3<+`D`Mx]b; peQD4ºXIX1<pk0;1FT.ƭDܴ=4<*Vl$$n mHikcVSV\0lFtjj@m$RT\1r(r=F:ೇMw>z^J u9q۔sm}^z>A/&λZ\Z79jiv~wׯr]Iy{?_. ic)a}*?|ҙ@J:+}~+ mrY~_R/g^q>!uQ'dwb@jI }#W]jʒşjO<W31lr9}4oxfRZ1(]Qw?~Yڧɧ>.)4fLE-*t =BgPacE \O;DXG 0r` tH7 s _o~kr1(q<|_#4l6Rp'EʁA $ +(H (̽yC`cǰhI0!m(!Pe!g﬜!p:.<d) ^.q6XiOMVIc X;ou蠺v''Gww[3}ahB 0vdX:IbFaLtE3_ qБv{i8M'A,k`)a*#J`pj02XZD(k^Xɬ=>:ƴ^ \H35s_HxtB2D8l0 Z= ݅8{`u5 šBll&6g7 >í 3"@Ԇ#&$٪݁$)bFw> g *1PL+Z@G~xRv6`KC$1Wm ÀbyEY%`6"Tj#}XYla Mns옧k=̅JuG^vioϯ?{",C& OU H8 h}HG]޿Qw^yBD vIL}D/w?>~kznw7i\?m˿{g Q=_Odg##J_pW\9E y^X-BF_="幵kr/s~^?~|O=\}>ұ.9Ϫ)M4u=wIUb;l\YrBbN:rI\<b͂ՋW !YI0DFDedM rr~&@JiDLBA1w F`bH0P0< kXQU[}ʼ:Kf4AG:NJ 'aޗS00 9Zm& ج]']"p#* %A̒v;zz"X @aSn8Ue*ݔ^]ǃ^9' #`|Ç ˮ&y\^?[vQɼ{ڦOsfm>F|:|쾜=2ߥ=fry}>wPVƒ$~kLNu un֯#_>KSHgMOgXQ2~zR_Z; MGɹ|ְdhS\"af0̹G5sOng=}y9 ww?_c Ÿ2OTGH4o0Fl8SpoVF,4extT)G. XYA}Cr0dkOeW9)Xav\|,uqd=eM8Ѻdv "4 tf6"E8@ fDǑ[ _Q zg!!Fx(75vUgbw45B!Y,ZmyNQثƒpf0$irOdΛ*YA@R!w$DkHgFyd6 0DfkxC-&O$JlHmLa؝ $@fÌ3x7|w%bn*䄁`נ րm4).lgD7hM --TP1Tet=mM>HkV\J>i,WT`Ôa@5q~x| yޏnO{82rÇhSjƵtM,+shu; -{N9N춘P9Lȝ cnGKI\'fѧ?io~l{)n;i~.2rbvk~'%+LJ 'G~ƴfd (4FSgI55 oAtzPwGd')vUiv]q<`ylW& $%QEdSx`:Y {a,il$c Hep0FҌޕ <;D&.)`3b9e"\F\ :FP4] zP" %wTB.y`g2F;7knVKitw唏ЮnT4ra|cZH=ݜ4T+$KuC`>8@8wɸMk9K,a@Da Zsh猽DV|΂}P\9skk .mdT.1Lbڍ P- ļ6tGg8P[*S9ׁI:88;@( 6 #j2\ `X6T<#{f 3@cd3o[w&ӀDd-Jq$ΕbD䱢CIxp'X͉-`] e2Cf/{lb 4c td t2츞M8@W@s׆ 6*si cD#8BZg|Ww':n }Fu7/x=ܧi_^ʃٟu!݋g v}7YV&H$LfO}봻uLmh\28Hq>}~kOUY )A%tdt`F7%@Tzb.^wx×_? R,MW_|O=ʎO\Af. ġA>~fy:#SvnXuƠ;lWy~?;EMƔgEէ7y*8 r vǧ_N`LXKNlI2Fs@ed>ԓG9Q* I"##ZT`($Aɻ_CfJw<C'4@& y8IR}c29QA\+:r攇2PG[d0d2|r` D@8 V к3a XK`ܠue dc$Ceb9m *)V2:|Op}yb Jsh/RIhb,2v%Uo$ykCԷC~*3KykdVZ$s$ڹTD,Ax v)0*2Ō|n3x 쁲fkH2!om4a\:dN[\$rr]8ws|)v3K*J%) xL(8;vtC`@ 1 fCk^8;#M@ 3A0b@N7#kڣ)NjHcx2Iw*)@s0Ϧ=̌C&bɇFeo} úTdАǀ]U (Dc`G Lsѡ'6ҾFH` 8`$ >`y2t [݇]wU<=@ ^r|'}k<5W]Bza;iNǗ~x}?;~C|z,f懿c틠ܞ|})(GdЌzPaB r՗e=Mfr뻏?NO?4;/|߾;5t{27#kOe!1-v2\q7 R9>̢o~qy< e$W0~nKF 9MS%şKW`D()ve$",d2H)hD7- 9l('N aNJ>0aOL0UH8E @C۠܂+lh%=!Ptwaa؍A4=LX-o8((SՋ`,1l_Z*`B`ye1R!V6,|}f@\=1yLO Slkpr7 Y`fcqƁEt%./]<snGF8tjܴ0)J]uxmYȀ\eC@'*w7S"yx\iDHҖM2fIhsIfN {A [W@~4/^ޖO/r9C)ӄ~OQdk_wS@dkC p . ): p-@H+Eht t9 Z8-0" P8px ($ݐ ($vс9'l J. % W3Qƀ@P3k!-4 //+c9uT!H]"•<|5ؠw@g <)"`!uO)z: =2LF- =㮘zoF F5:6b-m{9z&} RVi2\RxcOXz}IlۧDへzS<!Xl"nsֵ#pHɡ;"=#z4 4lT>p U_%sө"h ˷dm#d2J(!1%D$!9;ulO74Wv >&`BD "LIp,#E` 0;ā`QFx"#tn-j> ]p$ڜ)K2B #߇*]2* ŷ t@C#5щavyNm,|Y8):o <\%^ 7*1E oWj×[se&^S=~~߼.A C}|wzvsI}%'<])p.VCJ{~:}w=/FiWc}'oo}W??7)B[oI!9H@$u`zYn{[La %Ni~v7_<|s}j}Wv}=O":|4 pAT h SԝQn_}t8a!]8nxA+eBC ?J˖.vn͆sKv@2s ]?{ó}>.y컟>&0ӜƆIw~5㲭d~8̎%,‚ c865@Bܢ`/`cޡSrH`A8꺄H-2_)~"xĜ;^i 8.<*Bqhޕ,DVa" :hי5cgtI@v=ˆ#(IH;Px (`^K$~!8 m8f lAlk'm;uwh $Υ2tJbńɇ`EBRXTu B0@~4,vnp8N ʜ(wPCtyubjRLk %F)i!&tGF{#Ce] 0d }(=; - + F|}c#Qh6$ !zb3a A9-<m`J!H*JW[aNLYʐX̑I<<$L1 r憶va6\9CDrDW(at3qh@]CӶe;I0Ej'9G)sh-nB2o=.@A)eqC،%{1 GR dA2:#K{PhSXg -W,B )QLu E5 GeNHHW.c`Ry6d5s`F ׫6IJiZ*;&rFAf"3s@AЂH0dJD Y.;V4A\;rz!pcuv%r 1]oE,q['C0rKHY 630f M0Fx3P4@ɰo4.}9óg/NS_}Շm!^xĜG?a>N捠?mÑp;%LB\BWw'=/(xLUukS`\)'8LᖗCJ=3>=vק=<l1P) m #s-͋g'Wf[slyʈ)[ >(<[b0rak;Qw1^+u>Lv`id^z ;Qw@󡑈@A8D{r 3pBw@t:Pa >6W-(cu(@b`W Vfj-< #raH$!azʍJd@c:=ѡ--yK/;Q@o+"6]>BfNS8լ (xTI@ GA}#ԧ@ɻ8cHi %v+8CmIH9{T!PF@IDZYEM{k2΃=F6Jv `}_~W{N;@ЄjH#!60Da"'4ED HJ'SF8RRFdջ=% ~;7GH9C޷`FiNB+l=p6^ɉ9I rkn'\;DcN(>dk ]9˺\FAwRU}z;:_GLJ}w?i]"`F!F@g(i||*Gׯ[q,ga|#!c}yhy$@fƅ?9WE06u$Ho?d*?"b*?f;??ou9\$uaΊ )m\%}᱀ sVJ e2 L`ᩈzBMZQZʀTmT̀$ (E\}tGTl#;.%| `;{ΨD $m()h}|ɶ]ppAyLG'D8CɕWخuWLD1찓3H>th#BNJhgsg 5gVcp{Pjy'I&.x&4 `)2EN0<{`!]p3WH#\VORFF:KNF;Μ *p5\W&FՒ5l0EB!9oJ$,Z")K 7r'h݀Cx"@*R1 O !0 00W " B =4>X؀"k%mA8!=L(z1@L}-tq53FBgʇPX- |d @$BR0P.p%TYny"ٮ2QrFʩ0`<큜,DG)i3-3 Ԯd4q͍q6]ߍƳ7?{ꇟ?<}|O~l:^۸ g/>?:ׇ/zn5{W|{<޿'n+ûUzncMpdAB z@ Ѭ/c01!BJ#Ë7OL?}j] B"mmK/_|;~ﳏ>T6t:#l|pk0#B;cSTAC868 TW/MuN]BSM/[#`f@@ 1:l}thcXB-1ה꼏H` K\w?:}X#16G"@)t .F@S]n2q@8bީRUWm:l ctk,J)s:. :7pLO>uJ##&V)P6hAHAÇSF `BA\0LA2IDP3 riߔgw"eλTfFU$J_թ L<ҵBČ!1N :;9-Zw>/`ÝSِI83˜ uR!r޺sc~Ctl8Ae4!M)(؟w?SyVeOSʧɴ۷zzr|h7?ӥ v72'_ԵLJo.y݊t@ȻhHK)SM Nh* k3[Xh/gF6]W?w˹k.O͢ȥ(%hzx)a͟=/mo~'?y]6!dϣ/S;ayӯBA[YO>/NȼK%Պ5y_=4콫.Yۊef"&Ov 7H5K0aFtAɟ!#!(GAwV - M.%w:trP! m "&J9`j (E.2%H-VOfNm46H /l۹EAbSUgdx9Er] 'ݜn^F}Naow+$E$&bi@pYCtb2N#Gba`ܧ9ͱ6a3FHl%@ hm-mm3k71@ʉrARH0 `@H" %c<t l,"H|! N;E5B[Č!VD(BJ,0;G{r 8NRr(ai1_17 E7J@`  {QkDhL 5;$Gc`246au}pfƔ`Z>>i\y~p_쿷o_?̳||߿( t/W}U:۟j]|92˫.Ka//>feyكz gaNPvs`"&C@?A kX+23PMX9 R1uD @@R(q P-Q vK߄6mpsQYCܻN@{ :N)cH44,Bg$hF?V3ŽTCύx@.B9  C ("(8 n}A}a!\@7t!y W&kn!)ښ< q'!&GfBQH̫O;4gGܙ`0q6i@r0yk 6 K{O@swcXhC&WaĝɒKz72e:|}~2r9+e}>^G/s]_߽}zw/_/s>:i/}}W+Ir:]&S_yi 4ڸޯ4w9E_ZDŁd.O4坾}ȯ?#}17ghrAAyrǛ)7Gb^^{ HO?Mu8 ri[^~,_1 6a}?y 6\Do*u :%݀oG׊2[F{GJyJ-F0&OyN1Wc5inShH>Ε5Agk !kn Xa@ߜ=nx|@be{DѤp!A>@2A&] 0Hd Ym|lrAHS({sˉ0dF|vkB] >ƣ%l&P$e Ryec b ]J@ 7$n# ;bpR'b3L㆔H܀$3%BHnQXݱON7JX 3(A DC8O#ڶ!C!wn iW\&KgZ#Nqk;bj)C )[e x5>P@NCl%c)!xs .4ϞM//.~Z5/>e?t1@|z?|{V?yEkޱ =6B{?~quz_83P RD-}gß]T1D@rpphM,gN3C(u)Y0f B/ZEt2S5AQ s,w|klձͫoFGL#yQ03&-(E8 sL(< 4tjDa-h9 NdjUM88$ ِ b g*4e1:A NnʞԶ(`)ԟF@Yݶ^W3E[3nT#Ald0H8a(f᤺{3:~ g@ GCGl3uUM8Ah+)HV20( Z0PPH'hJ  JgWԐz$& r`(;.|46*=;R t%Zڑ bPQaIږb D}j90sȤ(|Y"i4N)  q@$,@fLV ( g' Hx&;yr H"Vl9q'388Eh5IhcDe D:suLC'!8@ʎZ1[ F):&ćʂ:0QD }38*yH'`/@59гcym e\8a!L0ޔ6>_O_H|c z2v58tw|0J(?|7>}?o~\> 8]| 'XDð߳E`{zI˗Ofѳ?P4П61jumi(kH1;S 4LrFLӔpsQr=Nr|{~HN EWؿ?o:#E݇{c_F>7izFH]}wːe}[OjFY#P^MrW)g2дDZo*3%(0gk b  Fpg#ԩas6{ 84sk3A,A[*D8m IbJ]N>p${:}z?>?_C}ڡ Ee{Z?/_?4m~s>{O4>{Ö^>c"r''E.@޻Cyezjijfez>ḛնyEn*>̧G?^4//Քiw>xvsu3 8osJ돿w2q?u*GOQo͛^ K,,hZ9 `8k˒hT$ȁ 0'0XԩI0ܛٸPHpSl3 d<撰UW0p5@xAρ"lq W7u g*L*kUmJDڜPm{pzy 5L$.} OwݷvoBk791m v11~n}4hU<]_#pxWB)Kr̚2lCAwvQnmZRÍJϯțjH*:cg)վJz2RRr, 3)Y0FRSs44u7QMXz\,<,Іv.nn 4AI@S8LHST'oMݛg\Cu$ z=QYrfIɁ LjX0k92@@eOL{0NH (!b +C"@b;#!& @RD (ԶSN4&4N6Ml/U fMܐ)HYنa43O{l]&es]ɲc[ v i8 HBVafF֌^5##(Ch}i`;??\7\l7ļ?-7'FIe|vu{Ͼ_n7CǭAi9mј}ww8zg5 _X^}4{\Sq4 g0P0Di1v- 7^]\a[ǖHEc]>zq{%2 Gc]6"~xSCļ{qqŅln-?;rĔ^>{QBC4o6g4lsFYxY*i")X͜a)ƒl@ٛd}(dS0P{ -BC[#%ހN1mNx$cL;B #VE= G& ЎC(*Uq큎)Å'sP7c ] P;Zhh5:)&HCA֨YLh&Wn*;@Iȓ**ysowO6wu~lMGu"͛-[=k2nuֻG]Om3[9مn0rm$zSbրXjb.yJP5l}e42J&F 7턪|HY' y/W[G[%uҲn.kg,#9 )ad&1eh4xI\KXҐP8663@h);NHv](( )PW0G @H1:h` DAL.LXC7 oBv\6#m6 C pĨgX*m]6j bvc<({5z  %`@0G)1H4-;y(5KVϋc"v)~}AǮn7ߞ0!R>ҞԊPJy4q )k>wox_ H9Ltp(m[NLB5vʭDyD)ŰCX›cT  TWcm mj9 }#$n=p{A ha'ۍ*fS8) . ⢮Ja09j<@"yŶFu@L0%ʂ@Fh S٠WN :LlVL: z`%MK Q2:Ч!7c$8 f |˖wEĂ)C٘,&۰8m{1:B`1p zAPPDܓUz+zNX`}`-*,ׅ@ Far3`2H/!SlN8?=qۿڞ·'̾h/~yۯt^zbΗmw_域uenߟI1zJe;'#'%3L|}X5x6W_嫇MYal]8oa}7p?i)Ň졋'Ͼm;A2UWlBr5W/wC{M: N} $J黿/_=Xh0Im5뚘v{sK*ིmh-` eHuK}uCFਁ)WK4:G9!..Ap2=XbCV3#;/F {-@o#e U B4q,5ܣ)wn<0$XH$xG hv WBOaI,#nRs"_I T9e$d-G찑sޭ+Y%j͊[CRaJ1Cs~ꍛ8/r PL\ I W4'臩Xic@p0\T3{vOh2 a'@O# `"МF3=-A@c,=ْ;%A&e 0)譹X*eY7DN^{zkn m"da NF2!2RPH 1{j4 Tг bB耄)p @ T9vUx3%S24.ܕk@Z Υ`okA eYeƒ\ݺ"mQd94P<4!P ;a$Z7hk\ܷ1hw$]r ԱNjgثq]j}L2.o׷~: *u[pvo޾f&LjXGǯoyx};VW0 g|{ɒAֵWM<[[$#r^+G]?A9cɗ~v|;|sBJC~n}е#]7_l{ KiL|q2Jnˋ篮w~̵t3~b|9&z8{̜}`F.vsC:.4yÜ8NqPT"2!{?+ B 25EI>ZfEIĊ?aư5hcI8ZgugH+xT%'32(_q3 $n TQ @=3rB`gCP`% s^N=v+J_)@* ҘzgR G3D\NDݛ'A\Z&P)|b7J(T-e`%Ws“3n[O@f - `ef9㫗}n7='/docxéXq ޚmIpa?^[ iȒKD 4+%$Ô/w?K iS}ݹ=$̿x~oOߟgwACW]5.˔8u%'/=aW/^:to˯'O_sl.[z%f XڪH`@;&7' -#zBI(8ZF/1s`jNY<2 PIR`B]w]K!0@PwaŅ7I1)P +o^Dpe뀉KjH`yYδ9HuPl %JBԃ'pR2Hj k@m6ήs30@ 4zު=.Z1I(Hb]B4xuLy7EQZY ;X;P`֟noƏ!\v&y4Ys.Ьz}=\'aw\Ї5 N'{r,(\VAPIPHoQQlqH: g-Gs³4,!f1,2bi`?2`]a6n)z}8=x#ɘ]~잽?mKcOnO}m^83@;h0ŇϏ,S j MjݬȞN"y'ye]} /~ﶊ'Up~?_Mdj!ؼa}L)fO$ESJ B*(Sĭ%n&KD١w~sX)erUaI])bB,[_y  !!Gw(#sBAsjk a(EaVpNY:yeu @(>M d\w-\"t)h5XP.S`H(# PFDDDXC"@CA"  -j Z 4"sN8I y<>Ł!+x0Udڼ7;crw v/HIrq(k*>^&hCJivpGz:#`>EXFE7C$Ktw>gy F۷r]O_jfՋϟv޴AAOig~x=-O}z{[\|O}=Wmpȴ˜ka S <ƻ*ӏrq=ҷ'zg|Sv<խ?ӻmO-o_ܷM}Юty/_][~P#x~_^ C-,t~iVAb }x燋6y<^8qw*Xw[V>)۷QngW*s?he?ºNv:_Ntҗ8$~ZQÛ|n8/Қ%\q4~];n~Rdw۷߾1$TYq4[C,ȿF=ls]ޱv-,:0`H+Df.NiX&q@h:@ds]\g DF=0}ձ }iU; ) .5ړ >_C`cSf ͡5'+МB #Bw@PusR-  -LD*eؖ<:;lik秵r)$T4On6$SU7rJDVECIy ̊]v@q˘&m(Mi׻z~o'z*p#*-B[k_nTod1V){SVy ^t|w#xß߹|m?=|{yꋋ+~o?hOͷǫ)NT[H짃oWtʸ?ogo[[g|O~?Ip)W}wf"fB(/j ^w.Ի] 2Ŗu,@KL$ @ B{lAAM},):Sq]p ~ dd:fcb!a4 3UȘs!$4%3]0tՍ M>&4ֈg`B thtz@[D9|@2f im ӻ Zq?1U ,cǁYJq .6 D%"zXZ)e[ݓq;E kHS8qo~o>QƩD0C$cj褃HI)%P '#\]3Fp4p<qA)!aG@B @&l@h=Hf0{NH+)Q@@PC@q@#'*AADdrsZCdVB$a|U],Ef G% } e3K6b(F$2[gMº-ol-9ݔˋr|WO_LTpN DX^eg˪7+$gW~z14N|w}@q8HeY$GrjΈV+tOY"L`PJ.Pk@CaPFt6 1T|Ν y ݔQ` 0B(]Ms<6l2S)#)ynI C̘ H Ci4@@`%aF ;)b Y$xU(niU2[&n6Ҿk?QZ*-Oy2:֕@^4榏x $erO'\/vy-.ߗkwAC)9 Bx. &ґ݋"Poe qbi{q$ 5}t\VRFÉ`cD \d&lQP.n -cS{ z1P%{P'C`IƒY iB@p=]8@b@A c68TbVI: dmU!0!X*` ]4l]|H!40&2y"೮C!Ü<8D C#'*P,㪨K>@+t ƱVapr}|Oi<Ût^EL(}U֥Nan_<qڽ} ̽:pZ]A.gK~8Ȼ ~|z:U8z_jm7z P_bTv|18]ˋonrk]}!b$ؿ-zXEzs q}V;ĭBy Q!ɾj*@3spCHtq@8Gȓ,[InFX4 ,H{7@N0 $` A@ @_yX`A@; P1Y( XaC J# #u.>xeAPl=Ɯ+D5 āʸn$D@ &Ir ';!]XuIe va>a̾ [dBt̞?B}˺i?YPPnOQz,Ft8j=f&@ }T>N4n~._gN{[7R=g0\M$YAuY?Ub$N۷=>8]iN60yl/'ۧ79Zk]22'&S.Uƹ@ӴٷпX#B =iҘxo_~#sb(""FqRb0Lw{:q!aLNBv|7ﶇ4V2Tѣef2a2&\ PXՔt81yKA:JgAfp  ] }u xb M v_G Zpb.=Z 9>QP0^*sd%Ӻ:;!A='g`puXW:o=f-+s> Ԉ4:vUazBZ'ζ!dzP]cM[RPuE Y~Y6- q{qgn@46ΣV-IK<ͻ5H<0oԴ.}˺3#9nwڀ$E &쾛F%juE'Bt@+pD)Jhbg-f#;9J%yݙ\ p! JF^A]i$މ҉AzU6l+t䉁؜F56L$Aށ,`0 ,A(X*| $DLd#:Et֩@֍W5j]3cI@p gc,RƢQ]z#.`ArFd@K㞶JdaݑF hrz9YvSg`C`uG30)+&<__~y_~b@0@U&4iJj7|3z<\r!9Otk-J9k, ǹ.p? {=߿^en2%A 0tأhʠiT rح6#8xss짯YBFZN:~?ymׇ!Qr}Q=m_>7jL+N  ΰ:344q:RơD 59k`h'I+ cťoHJl'L!HN-AY#Wd!pȀ B`3]c ]\u$$L@R1lA+<-7ɄBz1|z۷O>˺vE6H) %t6I{X*,sFM7~gǶR\ €̝cL 3E*.Z3!Y oypF>hP#&mU6UJҭ,Z!6KItLʵ" 2 "m+;@Ik< {AG ֳ c&U=,wj!` ҁ*8b V4!Xf(a2" ayWucEo1c %ؑ1SD#huEw{||k;t=LXK4\>[Oۡny3TJG>LSIspy9|iq~;2|<쇡B:?`P'׭=lM7u;sz_"7ՁRLBͫ.:La=);Rۯmp~>I??im)*b,D r ~ÞP7r4.CT,g OPrN1T?[}4A$v44콌eI\J,Ჶx!bezEL4/ԃ :vWB@N.H[Pt5tAxx`Gr +r@A6%$!Up$:o5QP"LK •(9eZOZnw;*VΏ[:>}׷=wGܽI'{Ƚa>(QaY,4* ԻoQݻqӧfDfԵFbBU5*PW̄q#$@)a G tQ"{(Pikf6vq\ɵ8~7i:>^f`fI姣~庿꫾=C^NjN7XE4棧Y%Ro?</#s$G/:AGC H™ҋi>Fs*Y-,T!G 84IS   2`(! (wN%bDǣt纽AJ,+ޜo;Y 3\vޙpc g4ډ,sX6ʞJ#Pt^co5`6d=iԵY\ONVZf $2F.bu>TەvF؉ %jY01j<{b@0b:xr겐( (rEk&J+׋QV!`0?\UaT\ 0KDVcI&VV+ )98ͤ:҉q*H\ @KP ~C#&e@CX9R@T}4ZT0#V#BF&ˍCōM,Ca Jk\f0tj$tf\uZ?_^ߵ?Qc-)e^ae{9ϩ_ߵt_>/Cxq[7_l#rTO?}vkC ŨExZ_ߝ?moP 2EI`fO{# N,ן?yMnQ,11rL0SH_=$ȝ4E1H7w7 e$ݜj!s(lt@R%=* :tiaDcN#\d;| M|3$7ⲯ.9yc~楍6.|חYtnOo~?s%C;^e 8}Hn~o?o~fr5A'?5?&.N4m?rnꭟ.OOw;#9L4t}\̇-lkPN\>|EI3c >1A/>ChD=X9ܧ ׍.'(@]'w[f]# uwHQtnIch.f6DC̰U|frw"Ix^t2AcɈ\;E1a 6D! :A$B,sy"fG'7`T Dn$S pDY=: p 0q3(U '*a[4g+>Bp4QicT2DZ}c,HsKJi KtOA`}:#,w)h&Ѧ}e&#ܸ ?(p ߩEC;'Ylv2gg)@PهJb7#cvt^{{><=DۣyB6ݟtOsNU{z~{1<ݾJa/^g|VdiBp׷2_~/t>&FvQs|K OgW?2Uы)Df[moo毿ohN{嬴l_79ūo[^ޜSMfv[C{KXe|~OV# *Q**޼2QPN N̜hK\>幎B e^}59Eg&])i{#jNɺPM%@D=ڹ'TtG5a['̆=_Lj/cJ[o}{ v\8&Ɣr@DiPk֭ *Hal%gf3zgLi$lXt楈Jâd۵q|˪HAB3a7F)!c*IBp`CuJGw!*9F"mO{.Wf1J-~r[R'p3G-JHz*K9b"8Aa.A/HA 8pD!E @s4Q ʈ\bphD@3MY e 9LwVZ[i:B61#!ҞSiuKi" "Co:٠nH0 ]Qr{KRT(>zY־82?_|sz~?o/<=~[{ΓQ]/}ϯ.w>ugbm/ތyN7}m BO?{^oz{ח_}LڬmN?/a0R/3v^$/|7ŻY5/Gu 9gGK S}Ƕ[VbGQRٶo'r|:61mK[ Fk@L)F#d~A#‡e%I>~4k*ޟ%*'ں[|~s̓{oCW'I^MyD~X DԈReVϷW߳yFv"D'*ChUĞPđM,عH5 &= .I0$Q«5dYG+R:Z 8$ssq8︯, ^wdFQ;\Hcdtf \3ɸBBBB(`,;[SN 1SBDY#"9A(epiK@DItd#1 6F <K:f( 6NA.t1IH|CJy{EvC.>路5 ixG9y[ acB aV3.y0ӺjIL80ׯC.ž\?g-Tיb +>~j-8x%Ƈ?.iǧyèϾl`{m*u}nO͍pN|_x!}{g?B[[?L̄gD{X}+AS"(BA<'?p}W/~?;h,ar95Ky>09/O~pvew'dp_Z-mHAhb'D%MonYk62]<+&o?}l:O;s!r =396/I vO;$A րD0T 98U`jt DWOqP.>Dû DEPF)4SZ$A,sF v'$48`:\Aj^56AM8Pڬnni4;bH3?+4z<Ç+fwf bww?o|ͻ7O?Olxm[Ns=5Oa}zJ=xwfmDA2G+k^͟W&QȻӫ|g?W__:orrN@49-t͡)q9/e>VM$'Df{NBDcGZP=EOSt4ÉMiԊ{Jѧmo;#" HmdbnFm3"#93SPD5R6CܔX!l`&à߽n,ٜKps!GH,BQn*lANd! 1ȳ㐧]kt@R8A%yL(.4ܜDC8PU62Su-׶^O#Ǧ fᜈ:q(ۄg'7D bL`fF jĨ&NDl9[#8~YAD/#̑FP& 83RpcOkL{m,+`1D4OZm֣`EstъvpS' U%# 2.4ܙ]5U*eF3::i Z#1ȅ[k@8Q70Ut<˙d !^u %juJ~np׶)L`i;vELH9vH^ؙPw-UX+V-c9|3/w|8ʧ'/ )M4A`#RA_yRЁtvWCB =C]ƹɲ{,:l>YD¸šrHOg~?O>l5eqӍ>|CKo?^w&@ŨˡOY:\G b }|88&/h-zZ^OoxD<-ss~lߧ|eo盛R2O:WO~7}E)crnh/Gosgܵ4W_-?n^I<ɗ0/Oǖcĩ1)6&,>r"˾I&Hs<噕x:FvCEOЫ ΉLN!%!s7湻'p!`Fi6ov<0?1If)1_{L _\&`!VOK0DzW EJ ,d}i $=,2Dx H7GRxr9|82)a4o#ECݜ(lN^aG=|60Qxb͎fúxZ( mZXɍ-x|JM1Ce4iiYmEZZp?yJMEXCnÃKfuJ!} E Qos_H;iX QÂSjע9IaB'vqq1"ɢRY&Iz QvA'0IQc#]b)2H1;`vGOFA(H(iLAR' ey7" $ttD4~uI|HAL(#B0NU`L jmnzͯ&4/<V<>qy:L|釷/^>kE|򛛻r?'pzÿ|XKfV7¥= %09p{O| @AȌXC9(S0#1*,H,h\5ܣBCQŕ.4y5aC. )@1wPPpk q,<NIL>k&|0 /0R"mO0q3=eoa..8̙KVNIrɇ+Daꉜ;ȣz`x:)tv*%ȽEm2MܓF]d' q'G 9JVh#8ivpֹKppZL&J%\EKހ 896Kjw߃[SpW24KX#MsCcރkp0L ,ps`*h33͠ë[ G`pPL, @!l':BoF:n(TX #"D:W½eeL hJK%ŝFLN{ăF1'n=2;dR:GL;9CR6|4 u*{4+:ή {i}L~yq8}bo0Hvr:/icU9)󋟜W<믟u34p:$G(QqxǛcXy>'n_kyɝ7z4>>W9F7?Z!YNE[-Û7;19 a㎟Ӌ:grY^LyO oo%Mʄi:|C}߽<8F\ۧ|~G/$n}ݻo%Qٔ'ݝ|za܄z9mmi^z:a'*n{} eWq;rPywq?9rYh9ۼ=w~˨K_/ں_g?=]1a6hii5sD-EЁV"Ӿ{L'8F\"P$B3pDˁDqH==Jg͋Uga#ڸGxom,ٳ\d!! yu2ф9EXtC݃Ĭ@[aW\AFX.`p>򼐏( D#La\YR )yq=, ')UjXF1 V!%J;CcX1YTKgb2Z_{ݳDHT^>w41(hJSQxL@#q j`9HH1(AAp-$ :(As4 wp:E6P8xD )u>4 6 *֞yR4$Yyhx) %4@C.gO92ǀSJo$@25129AR98Ȅ)Xĥ$aq6ȩm^ܔS}~~sK!#l!|ȇ/ֽT߼EJw ʅnnxJ*͢Ln@#kGzzHE߿)i~_W_ӱh*OɔCt;ܜ2eyyoiS>uھZjE9W?[Xb%Qo~?z{Z]%'' WdACەV;mW^c7>_ގaп{{ }aK[/+qBaIGFvb[y0d{8:WWH'.4;FX냀џÄp#{'x ]֣Ul"s֌P:cOQX3H1@E*HY2w`b  ݜ|'>5ZaBi81 Fӯ^-Pc 7>$,(hK@DݡsIT4GQ(ZW^)sy*mQtzu3K]٧ؕ!#)!4XUQQWwV=u'3ǕV"m-A04M{H{h$G*Iخn,Dl`p⩈l${ e+p|u$A4EX`&Z[ 1HSxDHL %X9H  RD ;"!N0l[ '".Da9@} Ѩp*  הEKAtnL"II'aD)9bOAO4* IwuTl D gJXc0F$hMr=KPeX;Wt*cr<ڇ3/S0c,QѶ<>:W~٪]ɕy?&2Ҩ[Mu^|6$Mm>eRc_li7anl緿%ˋ?_ë̃sN7F ͟Cޯ>{ϗa˓?Z*4H[ݲ<ڿMe1e>ӗ~S -rGclz6dP%A܍`8U"s֨ɘM-n46v $ pڼt4YSbs[, "%NS ('p8C4P"JAnԝ2,`V@yXR]rJ$pb+P%0Rp 8;@+a` ;0`sTAq"!JqDVP&Y I$9{k>Bw$&cwUAP^!l#1ü[$ !¾ޥ8#@%$3h GJc: %]s6b{\{)kb9_zӼ%{'<7ʬjO^o_gwo~x颞;G*M!%N;z騇t;^2?_8P׏m2Ouy۞rr\4=e[}zỏo?F}l۵oozَl?8~t_ҦHQУޗ(S%<9ۥ|r} :,7_~]?_g %]uSf0حj׋d&FHS*c}Ke !~83E$wn14L!`np67*|jk/ikė䣢k L*%sGfZjf W E](%wܨ[HufS|L{p* 0e?rd"8#!{[/I! oŁ(0݂Ȃ62cK4Xc g8Q#G8J!.C#"$L#pEpyPF#$lSSɇ{{,sJ}*31F$먣;-YxYrrJn^CX{{touI>/6"\wbC& ` *CUƓۑtDLaDt(k+1c Z2*ڱ7fW|w.wG__qJ%^Q߽K!Eu0oD+ˇn}wiW/?$ ̇65LjŇt_iXzy҂X˛01%zݻڣg$v82ڛKo ?ۓƸՙ.>=]gۇ>8Ocn_|}7q[xZYvu9s 4N4iИخTǿn]{KFѺf}}?KNݙ<\S' "Ɋ$0n{pQoͶ瘔O<)1Jrk*X8:gAc*& >1B# \XY n8nD CF pGT.pқpWnƀQ( BcN¬Q4خ\ak3mID:S"vS[Od»+EcD:] m;7$Aj^) F#ԗ@k-?==55>Ψם@fFݴ.)4:wwǣՋlKEݳRD>Hi3CF&/ޜ{oF3 QToOGgӸpd$&)XlՍ0Dx>0=6B©&$ȉ)h-ƅR +x Βܕ0ԛy" N:j%*fzHaAQJPpBT$ 4pN4F21 ʈN !@p'.'`Y` [f`E QY 1x^6ySo ̞-F !Kj`ɰ;U׉ c`=|XGhx,̍& =wD_WF ,l*#\3Zo[-y^-S!ȬcJCL/m:}vKL%ϋu;6_vs8Oݏ>UՑe}n.#KJ%/rHwo~U\u:~4,s&s_/>u}BX߼t JLtwK|Ү_}rOًOnǷ:컵6X?xZ|wyy{<+wg_֫.rYDɆ_bFo\*S ^b7G*ˤ8i>ZӤV%O*\lh鐨WΎ9Uzx :)l'nikZ" " n#c.J`qo(3elT qS\UxgAİv4GOU .Aå3 Ɉ,1Xi"1"v,ػ\P&2aI37:h \—q&'ʼn~M%s4p:o÷4x&_z679D3ia^{yHcX )Dؠ>8%֫ QPznnHEIrlrIE}d?#Xy3C^#wޭcz3u,HΤw;@2XCF`!;Qjĕ4H%b -<| G*1LAR *$+EboDA!UwRXS&!;$Ni݄zvXJ0WGLVW{dϝD.p eb2Iď$n40:u*A3SBRb'!r.L;$Laf,<2 o/Xez仭Z^}vz* } U#7o޾ )hr=mzhwן ߾]46z-_aŏ~i훯g_OwAE߼]O~rW>t=3(s)cV .(#j?g8-OTr|?~{B3n!ޕ͆>?o0)kkdS⨕5Eֶ|#F㤇Ds kXzht>^@߯ÃxKD>=F  Ώ5:U NCoLD @\svV<Ӝܟ1 sxklLA6XWcT X Gc ,ѯښ)9ND6 p1 j{w) /A#D 茶0D٩li4XEh2)9>\&/k8<ў򺎽m)べu6 srֱ.S.Q[;F<&M\TEV]G"f|<3Ӥ!96ssX& 2͎̀DXkt.a(!eh\xPwBtO(QQMK&nd~u~y珲}P,]_Grܽ~5-c>n{W|.J)2/Eu$)O +p.qi;<˶Y{t/]uU}u?kޮVrbɏ>d-<ܐ:P1&"spXx}竿ȷG }`V9o_ :Ȼi^fj+ģarspikO E,v`*`2k)3oլ]WB¨AQ#h إpedRYHw w Xk' )N f`]r T+;SKFk>$86و+ޞF>8*M{,{ g%*lAm@nbL ^dɁ!I:pgb{FINaDDP+|X/~?xZ$H!OYP}3'j{-L)d:loLQ\VQ ; Vg8:{^t~m!)*[ކ!G Hܒrg&ƒGSX#i:7=9LǾD Vzc3ؽHtDv0U`wɖ!:$D={kꔏ- 31I#س"`2L@C3 `u "H A$ D<% '@$Sld|&jAD1?oys}hkLradP1gn(i=m6fa) z,"䎀L-&H@sXe HYu Ew0h{fC8e7#ue8Wo#2ί^Lw컯{+ӘbO Gs}ӷyzq>rf`1%-iy|xR'P`i>9Zf~{o_?}F4 HFw:<շ?Gz{X}{O>/|:?yÛ7r )f>t.S]WKNy:0}")=Fܭ,r>Tsuvm!Lsä:n])_5[ uoO1VFam8՜P?&'sqB DDKnNm%kj 7 Azu2%fGlyh ϣ735>yZAF 2y(14"SAdvnoQk'dr~'kA;Ɏ;g ^LyM|5 cvگj Sѹi$"wGP7H6 }<=Psjq9M)&&8 2MiZ䠇%Gip!́Im `<զ9=)PAs̑د)ųFLkSSu4H=lk'Vp,im#I9A"R)T"@@wI(jU]g2IQ x9danݦ\wF4EJs  -C"\ Ipfʇ4BQDoXWƾ4x$ y406$ 521 (df{I8HL>1 m'MRn&>h&90V9$QG$A6ud.¡ )SRpU) =m0c\l+ S8JNR`W o@L)gr1Q#djfƄ &hT8F>T%W:QmH xEP^=&OI}Gp3$Ss JSDQ11uVaj`(Jc^/]D/2FhDZyg_{OZn/6rip'zwOrY2n['ѯOy9?8$>T%ar۶뗰u:on^.wwöB(c)??.ep\vV s6.7hJ:bI_vJA2/?^m}ty}OwίQi9-K^uk?횗cpfC' |eZGo}KaRN}9P,i {ԽYJJDzuK0"b ߰>Cdi`j A0 ¼P4%JljkȬ3=|Z+"zϟhrA Tu]ñ>224dT/.+fGL]|COBF*zu!d.O ѡ/HҝYb@8›1E 09b: k3uD_8^w2owTnZ!*@5l3 fwsh3ؖḅU} o~h0' p}QQS.8BKߍh#,zs\2ZЧ,[L_֜3qaåz2"C!>fQ?9VH)BdLJkS$ ¢Z dyB#Eu!tO*С j  x愉Ջ.d8PC7X^60#;)2L  ANB٫ cDsD@@T  I)  x  ")@ Yv$@$kPВuFJn5MH 44 [* HB%U;DH`IVk(c*ptrWLx Y B p`[k伭Fc!P %O/?nA;єyLS;BַZ&p߼ُq3FQ.EPN 3IW oImqsE=oZ/e<\Tn]VKmm_ηϿpzo^zYꗧs}8Tt觫 UW/۲ՀeHayzCBәSG$HȘ-Q\B3'w( P+nb` @(D PQ_(;xahv "+b]0[0 Rvw)Q+;DN+>Jnp^XkOT-' , dWGuө.eJS&3~r* LL)QĜI00qs.鴬bޱ- -W%k[ZHn%7"0/1abaJ%cY81;$+1V#F=vdl]7dFW"_PRpT(d(e F`EF=P] :n (Cv/iuƝcƄ%XhNͩ`lJHA Hh P6E( b {J#0E`#4hD XkVUK[v&v[Uq3X_b+8P^7wvY̢!SfwOYTndzK뾁!M=g֞>5CGWPX"f5zvnKlE t8/gOp87)w Qg_$.åatRo_|v Coʎ?%Mٗ/_u7;ȟT_s+Ku{ħ_Khvg9#IFptjˈNik֋mH8(s7.%qDet}lkPC #ϗow߼%eǠ1 Oox{~W'ϾZ?j/7y5:=NWW~9aN2P?5??v/Z4δ{9Ï^_n~/9)"'cжLSM#1[;UK?ڽ60l>\SNjZQ9Ӗh߮gU 82sN$q-#n N"/vwl̫G&&uYKEP^@] e!D  E "B|dͽn%#.D:8ER P@w,h7 $yZ^.(M0TJBI HD** vG f0B'୶0Mv=(K#SƊ,pT  !b6"g9꒘״IrSy7RL^k]74?|5CoML2ngdk}uw_n1r<vQ㦰Zx e>xnגnm4_޿+SvYv{_gO#oev8ǕONϾׇ韔W$m)y<(=֜F:Yot~@-MsͧnHe<|wx?o'QJ($yCj\v>ʔ |>-)qh}8XGzk`(<%qdT"2W+1w΃<5% &wR€it%rJvˉ\=?S'N*X*DAC5FEt@,}qfZ_yU]c+e㊻o2eqqPA0ҺQ6ߔa #CJ͡vZ?vidn]^wׇ?naOr9k)4N0 *O߾{ ucGI-Q2+V$n41Vh}C fz6JFʶ)$Ӓc\fХW'ukk^fi4{d# ,S:26&vS,uژJoXhȡ eEp#C+2)h#OfFX˜@5(@BH]9uճq#W?4nmjӟݍW T==zEH=?χ/dJ‡?>wO%ɥd(9oNq7qܵOPvd[mMBƥfZ KWbj-`Pѱ]u{%R>捇9@P49h XK8 Y0`@T Ů($l0djYU ֥ݨ|z!YF(B ޑ/`!>[LJ`VPOH%%bٽw}0Op Y z0d߀\ݶ>vʴƤm#A`/=EFHDV\ZV@R1a?'Ɔ45wHڶq~{wD++~]+Sqy+cԧ v ]D3#0Vjx]COP"4DN##!=raEq0k I;hJ6(2I;&>nΪLuińq$`g(c0D[Q"vAqFGCT#@̠[ށ(Hș="!0BN>@ԠaC pDʰ%o6R7׺zh*\`ٶ)tdJxڪx'$+yL"#ЀV.du`ZGx-f6jZ' zËwg^~8xr.<0Nq~uo/$ʀQsJ(rMi®LT}5zx2ȝE0 5"J6G)b*:PϘs7S@?I5 = PrKYϐ{U'O8{iW'! {ݵ`lWz_}J%㍨`W/חK9_1ѵأ[ ܰ{lH1așӶlJq;6ܞ>=2d4@g{J FldLҕA]2`c]T]+ > UoVخ7Xr'z(TH +GPE9uc.On90:393@ B)#:z A;  AO{Z5@ L#P"ѐ$& 9; @B9Ɛ*kfFDG\kC!-ƑE}DX# rM$lu+b$n'pC1ZaVbg_O_~^Ͽ9T7'۵xtox<]}x4AAҶca2aG].R:?;\3ִ{OpMDc?G l(ozٰuJ߼?>z^h^.O/n&'oh-}ʃ8_pu2׾G?_o{߇g7/?A7_ҰO4z[]8G z/a%ъnjL&a-Ev;" %(=,M ]s 4 +8Mn<Ʋm9o Y`- bN!q6)̱=_DJhCdЄʌeaN"q anl"Fb0ƀnkP PD@@0Iɽ lD,B@B0qhy4#RB(P  @F F (& *0օ- 1VJL|xϟ?78SN i4?_ӺjV7|L J.j5.la׶'HDmY;%qW~r==S2n i979ei_t$&9\? t}zt*ogG2Rۙ j?p?۵?/uqawvs_o?J =xPe_"XV8pz=L3lHV=zdcjh1sf$H+vpb{Z ^?*-#Ҙ7Z3[@XFݚM8z[#-ή3A{*( '<\Ѷֳi>$%2 (`  a,G0衅2T \(1CGF2p6o`:9a_Ky R_p6dHؼigp0!RM\D:d+ٺ( BAͳ"9Ƥ1pdd p@7 Ѐnyݳ||^@Ȑ1Jj[p]sZ%,2!&+,7c_ov_eOy|v/=RΫZ- ύ ӴJS?<=oËہk_y8t/?˝?| njݼ-pJB-rGϖ0MZI<#"iѢ*Ev](eDT(dHcծFՃT4N@tՠd`F #8`&R «*AAnc0v었BEIhc받W#ga04J؊V^7 V @tNPjpҼ!xGqA,_ .3@.n!,*i*z[F鲼߼&1LmS ]Vh""`v"r $,(^m9tJH {cv%L$# j<|ؿ|\(W%kuO0}J98I5da"UDo8%"ֈ@@"SQh}3rc&C8nMj7g#ƚi*"gd=9^m@;6:TOxlf 9gX:0#pw#Vq&wA4Jxpdn1"{`@)pw螏ydJC@ 2bd= >Bt#"b8Rt$nip)`j)G %<,Q{Di̇v{O ǁ12;$NvCѝ =@" 9.8  #R+Lu@2O!5 % YXj_ܿ^7WgFb1y(ϒNe^ENT}n-qJ.k |};bL]ħXҼqgm6rKcAaۜGG|w/?ۿCyNpƔ$ɣe,<گo?o#O*|>}χ*_vI*`C&h RNjζLrW",.܃vObw˅{ 2Ȃ$$^1[,.0ڹNrsP$hkAV1um9)K y0:uC0NҰUl*P:xh2XHR봻p@4%.ч9=aG]7XO(@ϡ5d7d *I~8-vdn}ik'hO6h) r,=`xűdOȳHZH򺄂aȲya$1cI#( , W240,=, ub =p&( =a F٧-F94%ᦴ~B KNcJŶĞ8͙ydHn1(  /jDLzS!h!s Hb2̰5!A yf'AXCBHܛC#0hH^4 f`5"{4f΄5" bGp-@D@u9г'j=TpGA9eT! uB)]VVyy8 eGL;ܷ룬]+A`tkmں޷Jޗ֫A@4/nCO \FȆCDDs>@oɷkddN',@\"EB@Gp+SӀ[!Ng֍B R^n[mSR`|oo8Vޭ>MH98HC/j^xXD$HɃ(Hf3ʰvqLeLTvҫEbpH\‰Hl'Hyv9Oy>HRHuS !, noH 28= 8Aadi0N ɄMmDMB9 QjTh$lBirn]͠3`R J=p] R  DP@ӍA `6n^)]nݽmݔ>mI$s*Y8^+K˧m> j!qǡQGMx.u"2Pfa RH9` XguU]O~բBG$ަ?i_; "҆ryx 0_1? Nܮ}lo+Ȑ<1L|<Gb>ܽ|}w{㻻|iSmk_ïo2}~/mk_>Ч/Eu. 4@MCS[ֹ_`ÿ[nŋ|ez1>~3^?qiFN)zVq,eʒ @0"x\8`ԬGƌں8z\ -hs- C:eum ALZg$u)Wǂ| K5GF4Uy8ռAIb@W v, hh5 lUF+9tf JSsQ6sx< s R3cKpx{}_5Wx>-vQWU4-YP6ZzϕI[K10SK xHI@r7/y  zCɖC C`.T[՚e;us2FK=#xovdXK`%ly ƽZ'א]Q qFD@hQ&bqL^2PcXZZQ0`,Īyy < #v:$md༒DD \dNmvbE*܍@)"dD: :Fw@ "$19@3" -‚<"  A QΨKDP(QΔܒGHC@mnطctsdX;eNfj+:̱m +0K ?Iqi IxL.v|~~姛򇿿tq[}#X24?^{D]qxh|X~1{=>r00rB[O~i:?mǻq?E6zן=iGg_/oKGRw])tQïn>;@_u>|<}Z*pn+t|ߝ8SIA&l}B|}rQG?7BY[c2Ro8<'/?^·q}ۿ_o[w87m[3uF)?nDz:n)"`4alƒ7Fv6-Jf8I’ 櫥HBks@ۈAׅ"!-Q.Z풽VzsU@(YܴMGDh v!qFi2`Ohh0x;Ap{`b ]Hrp % AbZ3uY ֵoNyShFWS/}WVJGdV_}w~t-օt2”Tr k+8 =TH& E0 6 `Vȉ%l ѨoYu29aX)n\@52%c5++*>z : ,tqƒL@ !<\)_@HQ[n)A\*8n5u5 Aѱg zD AB BG0  <0Y D@4OH(8(vp@5`K}E[A-R[0Cְ0L}JNmYRUtS'3z,.2JpƦMa C@ 1: )< T7erЌ,'E޷y)tHC`<2wo qᴓlyxTv>a/7)ӵ"w73 ̑snnd-Ah̯+ .8j(m?]~ql7/҈]N87OMgxsb8{=Xa{ïp>)==|Tv?@4\Fuލ°ۿ|/u{|=-LWzON_/ۧ*.wyv27x取g|~~zo߼)!("1P$ FU(IĜЈRXR%D vݶy)=Dm;uٲҠnҗpAUcHa [wMr[6 .o`٨\{okSv:ŶEVU8hdUxSC3xi!7.['" L %%bL0bɒ0Xaxchm}mi[m9^e[\Zru>y^>O#O kfk߶o/j\Rj)UkEܛiG*/)`k- ="rof3M.Hh䔈0zu,~@` 1S'rِ ȀlaR. :{<24Cpnj-F4G6 CSA"K1+1!p 9(9Cl,kaD'2hz$0!!.L0d&`B*% R.S Vfz `oI#a${ Q2G $Zݤ/Ȅi{v:m *[DEXa\P8{ d[)8yWVNd͢zZh`x}2]o%1HP%9 w߶_:ˎHE<-͇Ǜ%ZaO?w݇knū㪠qB7A_<?On.oK=. 'v,vYmnRm#|~poGӽ]{/$Z@XƶID/x91eyzhpRd{2[UsTfW8O'7[l!;ۺlǺv+nhښZnAEA {t3dj,4 -1pc TS}杉-{.49ѰN #8H9_|*b3%5ٜ P1MDT3CL7ق{s2 hcPk` S/5j^ A)#R(8e -0dp DBdt@'&JK֠E; CLP-ZEop2d #{g#O#}8/ʋyd]0[VĤ$0ܴCO(,-خ[= *(cbv 1q>]hs/[kܱ㋉D;eV! 6|<$'XN>N48=0 +3prO~u06kƍ.j*$؞44 %Rd3##6眯{6N?0-Yr!ԭxuH%Nޜ뒶dTnDX!=J*ɘ9zO St=N<7*fԅ&,Y4n= Cu,OHPz(I\x$KDGNB  Lf`2HrMƌȌt y#ZEHAS%.+ > 3h!R@2t#$M&ɔ>4fXb&%)#rze?| (ebVQ׌Iޱtbd- 62)]6偉"t!bNeu. @xȦD 8U6Cԏ?~xm#ɯO 6t3vp3Pb Ɯa{6]ʕΛ>}'=˳};Ow?/Oo~Hl =zZg?OoW?y~O㧏/{i ?8o}4U~f}S~/]rty~?ר̴pa'kfAJ LjDJ)mqT$V4U&inZ.G'+SRj3Jl!f+T;(&H3ӆ}S7M({;k[,Me;#$₂2hЉ<Ñ;0KamFј-l^u9s#2 =n)Ô")Lɺ<3U)F= QT~Bzf]%R|o:C.7֍ydS7Wɔp¬beqI94RSՈz;qZv `CP;}`͹MEȉ2g$WG?6$CH^Z$ dD}B=7M ,%kD#h-1Y99DA|88}9MEAR*(Dl~@Bi*ddY nl*>$yO  rpuId&omaOfB*6{0Bp-P`'j1K%2kH%>$p݉V(`I ʖgD"VE:IB3D\|Ef*K$d(Dd޽+VOJqͩE K +uکr\0'kbeaF1( "|;B [OmQ ZS'1BI0O? S&$^ ebJk-i9SkVQU3P~H*_е3g|[TS86S/tw߽wMPL3RuSk #r\N?y|Prƌidoo?կKv/z/I#wgdowy}-3Pvt/N^[~0}yws=۟%?_mg%ܯ]hqdCzv}Ǭ{>sNQʠ.᳛wnqEq1:˥_zm0y9GwìUn7Δ&\nznqqd)AnwYŘkx)4xq9$gH3T$Mb%cM-RN\7Pygaum纶ծߖ<<"n\|L}9q{͔G|~&_=oRf I]CkaYœ[#xmU8LB´BDkM IzVk_ZVp6t ZDGJqe`;ψd*<(5I}h Le27FjqSQsd1V`/82܄`e.I6Y1dy8cY H<:!c(&̄Ip!Gg&NI-S@ OBᔶÝDP^  a%b"&!&g#'EK ÈaƸt\p1:ّnDHF ;L8IcvG{f?6 LzIc'GR^hV$@s'')h?$[n ƘU)+P)絏7mmR*qۉL?-(b^sߏ0ieo6 5! Jsi(~e"hӷB\],&}w/|_>,~șY43cގ{WᯰMO{^rQ<}Çad'yq[3y7~]X9}ϗЕ0Ï9UDX'-7Mn0BH7j+sڽc1pRʜMh),Hr^<2$1 '1SVI 규UE[H:PaNurn~/"O#R$I<%uL$88.@PMq+M8m1GӘ9;=Ȉ+>4 ~(\JyUHi}rbЊXDWޘ FT3#۹K䌲iaw?~U G]nłKT#ԓjJCBJJ)Z:<(!<̔HےdM'YF_q7qY@2TDdFb}S鵸c ;_"J[-ԄI9bdiDA" K0\̨₤iz%c6T=e2UT)=KV,М>D),Ns& u<nNot3*'Ug#9N˺7G孮 r/}혷Ǿߧ}ܾi??YDa㭔$>EOw?~? >ujm] \_{*o:f6>/gnwΣjk,xɭB|Dn vi:k+ú 9M+mMTԍAbFq!yJ!@a/REr A2_l޽@p%+Sn;a=xdlvn!c=kIXEA}Q>BVa6C`9d]SO~ҩQ :#Oš§d"qT^WJ9W֚YIk't^$i2gTq(Fu-/ ,K"zD#ʂ4RɭjZOkI)LT9q):S-k RO2yT>$񙃨'/KjG=!G0/Z4A,>3%Jf!sI3gr) .ILε;ʘ8h[<;%YFeu'ΩRrqtB.1-fa9c u6䜻o)ÈaBAS*4* `0 v*AQ3Ґw G+w>p ̵d*]! + b@0Y8q0$䜙`pgN]~q=4R-ɋ$ҦTDY˩Jq[!xN+z:LJFOJt&9iKĪ_%c")]Q{bDU$'naUKʨzPuٙmWX+Gۿ^X&Źn=wW^F'sFZC9&,cv9_7J`Mrsr-NCa}wj~~dFRը-~׷濷tvw?׿yHwt2 UI!"^ZW[xՠz7!c~WPY@*F%&,,Ը=uq̍3;1}x=fAg-38֩%;mQ{aUo7>n6S1p%P1i8-R/kjXV`7LqXDP0K Ũ#U]ke*}z.#HACԝ`a^i9ͅ *A(tfPB@ O m~.C~1.D )w / cZVbס6V7o$l6{p-恍'ֶm)KX@T#&f6>$Yu^52LM }NFTKCky_{\xYfT8zzY\i\A™# bɌ&9fsJ0x$䍗5B˙!ZZ X( mqw}~"{RCEw"l' k)N#Pf^N n%ɰ{H5*SUR.bS[Hc^:ղ,e%) R*ke*)H]+iTӎR(oc74ٖ8=gQ=QwaBΩ79 W f8,i֔3@crjp+X6+0gږH§5r2ƓvLP9pFf4xbe^qYeCd(*gzf4D &@r SeD$l, ' s7ya!B0"HB`x=IKwH+k4NR7<) >-4Ltel4ebA,e$OK]UaeieF1S;I:V׭mE%_/-d(H{ƺeܮImLN_=Gz6-_~qOqjPm8x4ο]oW%C+ #JLD73^BbQƋPjg+eFBʦH^ O+ {v2ȌZ䐂clT" S~݅dH‹$q8S1Rދ>sd: ^G}01yw;*Zc.YQޏi13aT8/WKnUaR[rmsdAXd6.K:z)P `)oNW?sx[9V ?jǧT oionuO>JVV|^ߎB<]?-O֣qqc[7AѤ2-V-AˑasW1)h4eqw 9c,Qbz8U-e¤>t!z؄ϝVm2:g)+'Ќp{x9A@sӌu#X(%}Zph-]NS=e D-k[LuH%Yj0Uf 6Zi ,7r9 Ÿʏ+ے"7R/yqJ(sXX5Â$Dz0!ɩ (&dri[Ģ .?~*ŒgJVQ A2HN%J$ݯ snqzrM<a{( y8iNnG-1.EeFq0"4@c{2c4b$l͎2Ќ.\`^cfT39yԘLf7.GRb ͑aڽFQ6!VUb͢)BA)'d<1'DALD$(0W"#1C%8#x i8=LrEu93\TK稈!5"hA#mx1HrQs[JYH+mr Uٍ͊8&ӤlD #ɝsD@ LqC];䑐i evDY],*4s&Ph*yH[zURۭ|z#[ۧϗp&WQc2J^D[Έ`~uϾRJKE62Rwoߞs/v[D;wXβ Os,YE2=bg/e]|A?yfo}9']V.k˟nlhg*uq+dAR)YfIdn$nb#BL i%VjTFXJ\\ o5an!KZL16=x{Xu@vKbBalDA|> N95ŒS~4/]╈rj=e¬{XaJkԯl0>2k!FhEbĒҰ0AV.0ruKmSw= ӧ=!TJEɴݨR[H;5JDz,Q NJbY3 aQK˪D,JtDz<`<1aDyƔ>)eZh~)3Dw bRm>_BJR!dB'¤0JH %Y<"nCc bɝH%VLD`č8("a (n+ɂt"2 BIL(IFőpauWwBZBnZJ\{P#]0!$\BkFح_bڜeVU-3P[HL̞ʄᥠ*ăRwqMr~kWX=GAhrx?c`n{~'q:/_翿}oOWzݍYQjS(VK"|8)Qm{tWÀD\Ѫ'^Z%d9˰n:Jdд7ȐzAfOio/p?J)Z˼%wPq\G 냕J[hY7*ZfrfG>صzqG"ɢQ(IJn2Xe4XHJm͏I4ROsʵ(*\/(18Fא,ԕ֧~\A6X+%аDߘ«1H/Y9z̢ D8]!ӕӳ=V+զCH$O14'z[4Ã=R c6 c^݉u]rR=U2[2)J $$R $(W$aПȌ4"OZ3&a0B9m%s)΄;܉{z'!j?zSO4wBfܜw'J7Gb&(ad: |M^ T+da( \rRJ,%Qp~d!G%@=1}DaL 2E˛QWqAd,J^ܾ?`deo{I 31@2'.d~ s1UxmAcR]~1".c]բW~o?s|~"v7||~z/|\)ֿ_/ _d}Y֭[__~u}_\ݿ^/'/~F<>wD ꜺEuP PSiyqX؜52pnt82d9BRZY$e6T|&pۯqn@mNkY5i/ASV!`*ko*6Zz[c=b,pcxEV> -&@ 4'4+qp-!8#h ~UD1c-#B LTfd*-ب//txv )6vu='9y`[ھ WO̶0KםRH Zzce ҍO]_w/cR1z2Hed2y䩉sJWr~T\fR*li*9je㜔b[e2QtNr*9FSIQ6`O\W(N? dM0IR AC8fҚH8@Q P1qrRf% 2"^ &(JhV=1d;qCZDQna9l5YI JmM 1붵kz>) $pMWeNك $)LL62Z+l\`.NRUOر[JjAAy%OÇp#z-jۇϷ9ᇽoKв:/ݤU |EM궿}'[9C MX/_m>mXmX楏o/M.W)'9Ƕ=lSчnaP~ޅcͻ͟}~U9~J_5~z( $C`1ӹ.ɒ\SsV{jyĕ塒c՜}dLctwdJkAtQy53=߯3[ RdWVz@z,w}i?w|NԪsDEccRO*IWbJ9@ .Z%UX+V8ʼxErE B!G. U2>K\gF;7TO˒- ΤHkVK n1{fV }ݺݦ(/R"IJ 20Aw`ON f '%eB)98293(^ < DcRLeɈ@W{ 2cGf"сņH|RYmz|ާYy t$4;X'kEXV\+gNT2J[\QOdg*"mwXf@&q$% X@P{{K}/>N:s mHqݢ=xn8"hENӲ8ce)clY#R8P}O>k',*-׸^kn&׶azW_SSb"Ϸ(LtLpVb۶S*!OK Y}=kͷc/fkZn>f@O ,ӜЖb`9 y˺md U0c^oL%kme=QR1{랩h`tG@u# f˺<{"Ѝ&*[NIBO{\f,l)z-^f11sdw bKD`)lDa!%a^4WGr#ٍbvsr]C~&̱J/1fx1 (HDYm5TnN2c*%6tL`|ZIPBGc/OH}8fjcIL -T`f袢IaKZ9’9ytOݦ̣tiv eJ;J$砸 !Teۂ(EA P8` X<3sdtB$% VgqlD*R8 "DP,sg vB+̐(=s6/}Y6YO9it[M"3]J1jl.*m_`YvOY2.e5t"^O6> OxeWt\l{ ԚmTFL  xfDx1KqI2bSVPE@Va `KdHft $uZ!%& &R-wHPpe2[ ʠjIԲ<>?>d9WڈS SNB#0pB@$ 2V&"h Iդ7B֑Tnr20GOPFyDW?1v~/^~7o  ǴiI$Zwfe)BFL˩Yey B|*r,$)+R;ZQc q r$+ Yd@i#pq{̓H;-w?~l݂̱$|~P8ܾ~|oo}we!p=} #8 Idjv>ޏ׾O_~ST,ƺ,( 3'A{ AHfv}}e~|/bt<F EtP Id6ե0zμ^ =Ua™:+ѻLɈkjE ;yC4r*,2aϲ=Cvw`>II3L1Sm헗ۧifs _lk[_|ZV?ӥjEǽmxTmMa:K:Y]Xzst~O_?\>X-|}w?+ea+y\Z;-X?:|>_LjJ]\#QdV%Lya b4Ct@ 9TqvJbZDH9'ϋ.EBYpT/Vx栠I xѰEgWܽD?2z 7 cNji<`dʧ[k o?q }^UP1Zw_٢V9mEr$+]/x` "p&<LOpK鳣m\螷itkGs`SRu#/-cG[uyhG)Fc,e]w>]SxZt]z㔺.X]]>9|"~в\@XnZ~GĴ{s):nֈi"aSs]S1c&,dc䱻<7\ĩ "g#QYʱ X0%ZOZ%ﱪJ"BݩT%Pe3-ާ0$( `#ΤB 3e׸;&Bg˩A )4BI3#-P BDA MkDDށl# ![*$,8x\<:^~z~>a|>w>ju$ۃ3 *$!qX[f<.;1?:oUc}8(+)D^ޏ"r 8xZQIK9G֏67_7q(k>_~wdZ=-Q%Ǣ_?V}/~dݘLPE2!8̢O.%[l0Rb,Y}貭ͮqf`x$Go"3uS kKwUrGaOH,(.Er078+y4ɣ Ʒjg&.䙼Dy|FMNuq0l3AsD;ӼvZi>' Kt[0nUҔ .Li:{ =!@&DKeB8&Mrd)_!tGs b r8|*G 8q??~x?~ ߈=͌THv*L"Ǥ}ne씫c]Ϣ}X=v+"X$C2xvdHrWͺN\0JQzB8{M\=FD!%jC~_Rq{_?;=5>:W/{I=1jqSsxͼݎBLyٞ.? d fz3S.uyX!Eg.q4P-z-鈽/q[ޝt!2ï~)lϝocK;;*mmH/w\8?fP1W1!anGR҃u"%bP#3#[}Y[tfʜm-ow}2eϞa&T 3}TTfdLڬT,;DR3ͽ,mlIq *^un4ĩ0ؔEDqI δdcHi+2bD}<-D4ٙ`"z;0*=F2Zʔgfa w=,KcWJy$m=({HRGKWD=K[ҚoqX >>m!r;|:X -"3UJ{a'ф%4>GiYBUMGZ(1IfVNBnYYĻTwRH]5mtm>Ls*  hk-tu^SO#E+K8ff-wr2QO!hr 8D= Q W#}Y`Y~X)-C(uh8lS)Ok(┅2@0#k`:Dyht<BY0`(D$0w׌-F S:>uk6^ï^n?br!;@eQYki poݡ6c( ʵՌBG.ÀD#+"'&( GR0] ( {<{-OZ~L'Oϗsd^r`#OjsYvLFҤ=mst_ v@ce/ϥ oXmޟ>A}~g~p,biB˪* 뇪9wYOS|p|h~}{Y=:K ۝+#e61ko4{)!V4,F\Q+%G<Ӷl P=J%ҊPGԺ>p]e +rEik}nVqtniyʂmۧZOCrP6JX$ONEOEUk}^]FԵq(r)c& RM,e?dȝ5&LrbTCaUfGs\()XSy9l;>r~W,V(UT|N_(|xT0E35y9=2#|3&dֹ %D2 o[$ƌ,n8;4 [V>?|S7*mfk\@2nw+a1x>y;]U6fmcbgUmH&1|/^N&&>V,ME#bg76 dH&j<#2ᲖH\J LtA:2a$ fHgL`2JO"5 dM8Rr'#l=/wn^?}oh~.u>&{R$N,n U`gUD'hzj9+'oOu8=nv%]$wbOw[*p`Z%OL;[p0^SP@);*,B7'[~K)9"&/O=1ո/OA>D*Zπ+~6ټ%z+K yl4SVșr>޸~پX_A<,LJnDf3ַonem! K֧_6Ge~-7?y^Xy7//ǭ*t:G&U"pFJ!Ls;㝽~>slN13 gEe[yUcE=RR"<'K䪋։xmj]vҢiSρs}ޒ} A/6q߿,i#Js>}eeZuTC bH3-5Y髖[S7M;?3ir+6y%}.yyJ if(9U;i.$(*1S' G66lͰ, ^:5ErC̑,m s^JyΧ9kr>t3K*ᩏ!ٴ4({T0e]cZ+iGeբc?XpI.e\JBc)" k 8Az.-'3}q065܎}X$'viT"eCK۫w̢~^mziǬ&1JsaI8nHk2s Sb=4fQ%)9j(G8tN0qrT]'%L1dZDw5Ï=u?~a|v~%cبQJcO*dX6}a w L! *BA >;;! .Y[|Mm4Y!id tr-~~5ݲa2w63  2HW@I?Mw2x%"@И>~ϭ*3_y U;,x Ȇ+W֒$Ə.>OϞOw?eTxxpyIBמO$6Zz<{| LpMi[Kv U`:ݰ͈RH"Z_ü7B:7Hn(4\úƗ=\VƔOww@|w7chW͟\/q;DMY?y?gg_/M *dDu`  "'k03hY͐yIf:LDƄn-zB:eN΃ge8i3cۘm5܌tILJ.%[a^ GGOdZR s4m@h{ą͔[ڞD~h^jUL&(c'^igV51X00ZCBn:x,߻_!*u4D~x:婙`7;:-` d.1n &SmɈ7D,fRv8Y]Å4&o`,Zk9d4Mt14HhWȌ.V5輓#"Ci2ABD1v7:qI.IQ"}s@TΜZG_7IgɨU9CneΠ'k%#1z3"~(ܠ.' E0Tǐ5<Z3( Ѐ3QH2"9PG3T){` CJ10zpl@ |j[RmPIOC;ۇw;8uͩwvo[{ E\C %1Ix_~ማNv")'!'EJ H9E’I*< Uav $ 9%f*"cJ1AgĀ<!XS\܂XɳڽCXӼm轘tv>{ࣿswxpQٟtZCsJ]u2 0ʐBQ3fNLIsPt sJݐ68Q{ѧ)4輪铿Л??:v~tzjwv|7w/~=1ևyf^lzI;^PC_uxY݄Q\$1 #X#{Ovs>[o R>?i+%'߄+HZ:B^{WBڡ-g]y1=yZc4n(7v6}>|g <ߟG<"ȣ^_:0:3 #0 gRLxb01豺R{?_p`ZCxxS|rQ2a_)z^.9,ok]4xC Ͻ4EX׿qZKywqHtюo9+ۦח<xs wm{k5R~rn_†I:ν`-, ʀhJ3f< C"p=B,1]rQ]]>>/; LD(3ՕkMJ1T^ t&O֏k;qH]]?~uRNxgM7v]8Ű!洜&ZqhGf 7ESG[HJjA#cڣG"Nf*׹=cXjp`C'ʀѠ&!ǂXt= !({8igfi7iܲ$#VL^)+A P@OJAA ̭ġJ|=ܽ?~xwߞڱݺ̤SfiA6;P,֞oxSFR]06bXB],nj4e)KpVHD[ƊVZIWpP$?1el<{H&C9#QbXVeŦŧwm6zw8ž_>^W'&q׋ݴ? Ѱ%jlցUoIE 0Oݟ1MFuV-{K1a/{r;lL,)m|ywsjk2lvϮ͈I<^w^ZchMԷ^?I~rΛ)CږzMg7:]-'?-"1:2; Eo-9a<+\+ܬa]p@'F +Z݉p"Af(P&I%5IN\SBڨvI`0灐v0 mĀl%u404BmЕF$s6GOGw 1{G*F@a:ѽ:{*Q9e6 b?Jr!1CHӆE ;2&wr<%ngq~z0U0wcb6+3zJ`<0fQˈ!2 J\ 4)$s7z_K/ TI(40HnrĢ9 ^AӀϮϟ#o0%GDBiں! ɴcB=  @ a%Ԩ[ x踠I(@[ wHANhݖ(!Gk{ʘâLjp wFi A.Mӣ2rF@@@T@[C݁\!-Z(D H 0P W5s k`Mj?7V=b⁉<"ff*pW| ȋ3ZwOL)("S6FT%*!l9"(w2#Z3 "hlp H1\R 64 Q#2xN5րh ]=YD.?h~WK}ަR.Sz_Oүӟw? 4XS) ɢi$պ8 CK"_вpWKF q1 pxy|w3?Oeq=}xq㉇CG{65 d?S`|շ#cOz8plkXFJS_hZ9avDDgol?7hkܳ<}>c%ЀjJez owmɪS> {fDؚS8kP1KJDM\C aL0 Xo9cނu"zPP0rd(292:nH{+G.Gq3Z9}b(yxr6h̐ Htq&;Dhtsk72udm]pH2P(Pʖ0 "!8@h(5pH9'meckkؘVkB-:fahŁ UpF1i>ao{?Ԑ6Y3{ΙDbr7GANTJ}+yk[]i: cZr68'D`ĸ8+&=m#gQ*E,*E_Csر6ĭl-"y"-t eEQݜ4|͔201RJv64, c#s@"laÚ k}x=?wodT"LҊ5 3f J/Yn]?c" cXe6 #4rQs>C &.мRG(hAny1jbENr!$,|Ռ(3fʍ(m-4 H޳nϧ?wm0jt}6w.?_9 I )%olBؠ[-D ]3\^_Iz6Hj|.k/}LSڞ~#W./ϱip4_|co~O;͵'n=-̛wRwӋ_xs;?H8hssp?'W%ˇAq^090M@ %]9Avwfs+mMЅ[$*" 4jwRdHByyh``VAA% s[h[L@ `6phC.M);01%v0e؁)zdz/A[2p#AsJXnWGa>C)Ecv 1.1 { ki~Dp 1!i"esr4 AD,N ю,l/.꩔w˧g=Lm@"GuvXn;T|݂QI%24%_ۑӐNbl}. -Kǡħ_>~Gv:=}koO3 >&'A$!W%[,Pf,䑼.Dj́< YٺZx-$ZUPԺ&)Hcm̼'ד=TF|t þpFf  @ 02U;AE#V{Xs]؏C?<Nsojf k4Le ,cQh(iCVaȣg}ڌIP3m Xc&L[&T"\za?;ˑ6ޖu MgK)8 w 9 ^SH j¨̭d "#~񈿺kw6|{t;'~7#|}Q{n-z<:aͼv%4v9M6NG?Lٖ8vѼ//8/7nڜ;3*gWG\6/ζhۇoſ<~8Rdd)VϷt]Oy(u5/Yk[+P|8xfw^~JbULz@{k}bOi= #_yV=GWrJ*dM IQWI,$qb@%E5̩2a7`gl3H=&T9N+D SDŽ荒"`BFݔ:&p' nL@*! $(d (! :У D$-E4"!{HMi|*ۏgdC;> ۪a*+S"0pf1$PbJ90LC_C5@rĦi1(6B{a6N:?zU;{E͌maIHC e48pF T$ v#Cu1ֹZVgaw0W,F u1PYQqU{xNV;v rx%BFڢ/F%D@@_f HQ{S7CU=ˇ߿/]_pۂhYP #.pSG"'fIz4όFߕiCL}A)ddFBQ42̀P1 "j@@6ñ M[\Hz7,BIѣN:p'Vi!]gKXP{B>`K7a1z(X]\·$Tȡ'TC,7)@crJF@$]%4 &ɻ:0' I Q6Ao8Ӳ487{O1? :rF*0PաIf @ ̙"Ti<DD) @ `H,dձ+v&`Q<]??tu5кS2x4ӺQ0<',Ry.*ba7\Fy̓p=,'X;yn֣z?˭A0Xx*yKfhF L^݋SX<_RZą%SCd(N%:"u0a%nku7xg2fy*-#l:U޺)a[Yb{~U'F 'd@@B)9G`@G' D%#5y?4KVau=~7޿^oJR܋8jB)M)Ӑ9I̤H =! D^ Hd)됸L܉H0䆒pzjf Ѽ Ý4ŕ%a1D,@j:{Bh 8FFQs=ؿp;һ~c؏ Qpc>z;_r?o҃Far[` %]n+O)WpMkˡYZ-Dt?~j#Z[PvBRv^>v;H0PȩfLHhQ3454Xxޖ~tǼmՇu]ׇ6vkop~<_VI<%^&L,٧e ]8ov*ɵl[_Ok'?|MMe7gzxJ!iήiv c(|(ݕ-&3jCkF2mz;`E 8`u$xJY9uɬKK)M[`b}njF 99Xɉ#FJݙsM!IHޕv w eB,V+wɏ`y#dptt/[l$r`k=x=aaB"IQ0S*vA D'0d*N=d0  7"jsd}i~]փs$hBs8 "#Li!C"ލJfߜ.66֚izXUn?4?4w|3ں998@5Ba_r;n޾{0iIv_xpW͍B[[GΞ}r_nL/wϞ !ּp!ӎK*S>yY;yb>_^~~Ϟ/>V;q8tZuHN{8}-of\gێ9wV_CgK.R\x:nZDuA_NY8onn1jm Rr{5!wD M0Rj$a f $ep3 G#$0Be3/h@Gq'n4U"nA q̝ dSabnf#LF 2.f+N5 õBYZ@vgD.{u5v!<gȈ]A03 V1C0)M){pA^sDa p) ` [mIyr;(.Z[pp4"v`A> e:ۘa3C]0zp ͮ$dF977w'8ΞW<Öj;'D `S&)z iq qleA;CSlHÈ(z'DnԼ!c$!!u(YR\ `G轧A%4v pu gȉ;bƿ0b )P",@'s XM&"Z5F=QYkiH@CfgI7Xe떂Nd rN wYmY4|ٲ.Ѫ{X_7O|~|~~9o+y@]; 1DKR%{扆2n?&| UBP͝ a~W7~:]?SF"٘tx/<R]W`F4̪?;&.q]>_|x_{5}t{# Kh̵V-bbl܏[A&TD(U3vL,&%ym+ NbjI Ø@- [)<:@Y FފK*8NiBPM"m`tvl5`BFC@G27@L]8 2 ri5S2T" |^=gB #wˊ=F@d)MVݭ0_Do^}]#PoXTl˰)/Qt)6:T= /><~yÎqyh^l=zoￃ\}Cʓzum5o. Ip9Y=яp-O޿Yߟ}^3_v#0@kӭeGk |ˋR[O#"KA%[P24tJ19$*tGGN626ѻBj S!VICavCĘ ǮjhF䆜YRB獀S쉣n.%)w#Y9sp!uI#&Cԓ 0#% Ay"Y'1ډc9PH3m*q%5,"2 tN5X!S0z tN 1Rφ/dOL wlwDۻ:>ڊh*Dͭ[!BS6&҈,+QDɜBuTG_~UbDV4e){hd@P L’c[S ֈ DU5@K-NXP"a4pd4WL J@ ‰xF)|M[kfSXM >|8$3:KDGT@'w$L D0 !!t2s=}Y|{`^l}uXpV&HB\;6K%(0 Q$80hՙ#4.;kX7-CZC}ܟ]eL}{}j ˴OM⑶Wxeu. շMg~{ڭmcT22xc :uf#B{!3Y #& ICF']Ppt#$)ÞuAtiaз;֜е4PdӁlbh Fm]8'e,gt~68e d 3č; DhP=z8x[]K7ww/7o֯~oofRRNy+#$(CbbDFLTNj&@(1v/a ]raC ny A >?=afq(̑a kFlCLsNҶY@p,"  y!D!d P0-{WUOis|_}@w dD9"d=0wBq Z}񰹔|V;0lzlsѧ/勏i(}/~S*e[}8^:,-mSo4!泟l:UU4L[&}qz}߼?,l/O<3$@] 1ea/֜BxMe_oo/_~ɰ x:Hqx N͘V+ $dΉ|; ҂#{S 2Y 8]8 xqIV59ݤ`n_|տ˗DǕyυ1_LSDdAݴ#{T$P i섘%(< XmHBD4rG-d3P3!y|Lxz W3⵫HJA iq_$m ʐsNeԉ3;dBLM bhO>hw?:_./?28%-209P@5fw/6c ϧӸ.]|ٗOϞ>G_pX燯?fgY}sj͛mHӉ(nc+Sۋ/><<^|y>0أdצk nfɣЧa?MϞ^I}Z+Xӟ۫B۩ɣoL~??^_y/^N;det*+1&IL؂Ƅi:ߧH=` CQ3iXGd LܺA&lsL%SZ+ 'm3qFȐiq;nE 1{c΂M Ԗ5fڍ0 x!\ ;ED #ӃqMHrJ)T5Pe_'G09 Cg'D @^4ݦ;t"PkY~WW߿qx~/W$$YZÿA7 A}>ݬu!`Hȅ0Ix%$!09Kυ3I8 p|VYn ;a'eֲ\xƑn,kDZ<-DJ`agxՂ.0 ha*Q)#dRN,0 Kf_ h Z te3zcGb_'A"D L0&6TPg@)TdAPN";cC8s""y #H=9"[t@ ȑ#$u 2lT<";ۺ& $ )ݰ7?Y "i5< s;8?9޾BI-J;˰RM2A̦(8EH \DY؁@(RAbr u9eZ1Ž92PH}*g=`dpRXO 6I+9(cvu϶OSDaH hq2 "5%Gk N7M{77{9>#Ά|uβZRrn$)ș2'jP.Q!2b? #d"([rV" L Q7^]y$4n10 G\$'pŒSx8 Yt RD7h@a;h7jczO϶O)fqa p@ \JReʐEҼ.7n_/~{xa i߾~@ve%4 ko=;~G_^|g{X&w2^7~_7L,'d G'DZ3tqmő \U7|GkOwųA߾V Ôw/|W4~0,dFH}}~۽)۔Cѝ 9֌1Zc%#L L3)by<@ЕQhW`]8.21~)J?6QΉ~XηAEC(E7& <ңt$B;838cv00 m6LĔL}@` LBx Ll)G$FjnYbF`-`::``-S`LD+bFeiӓ-~;-s6S6s eeLPJp@=(#'!D4(pz3ww7m.ZumϟaÄ( 1&" @'*iGCĉ+DZ/Dc5p4_w+&q`neDBdBu *`@!d-T͠V 5%8Ř)'&AR0ϒ79FPoh@@$b_NXeCGôߞ}柽x>楻/alh0 WafhMI<v^oǻymSo}w凵i; Oy],zfff:҅oq=O~/~d7oOt9s~/2c]k`RY3bCH.83ZNلj_X˺%py>骰b} ׇֻ'<_Q{du>}ͯOvuJ)Y}1x~V] n\F." i0˴KB"$ͽs+ð%gINnI "!1'"AR3\ Y' ٭5$;Y+4i4e,iwF I EXDqupL` Tvyz57PO~i~Hiܞrs5fKL;QD&K*+[*#fY#$Njsjֳ91xs=9y3ӥա4?L/}zx<>>ކPI|՟~j7߿,R F_1YG t}Ų?/+_зoeJ6lhxO3%䜂ϻAٓϙv:IS3Hѧ[9 9ӆ EkA%֙Upw_ngQ-OJs-v:2n*s\2baD3ԥ^׺&%k&!g%ҤJCi((jC@}430!9}LyL^'IDטm@ r#$pN P R4pBA iO#8S 3(f ?>^lDJӔk`/J9yJIՌt> dTbʯNM2}kY 䳘 S9sȁ$|PJC Bb%usp$$)2-Jq&r9 1rvq @Fbj`HKfM:fbsJ}t90><}vNJ9i3wJsDхj[v4>:*wII>8"<½}',%M0Da6gb'kSY)&N#JcXhq[ώ(By3VEt:Mpw8]IGIkدAٕev۷n}q4_Ogo ܧgw,ͣm\c9ݕ$mh7 R.4l[,3 !$V[fL`AxݒO$iݓɤV·0tD2fώ"ɾ/OG[tёukO]o>BX1~QviJlY } )' @#J(Z`rKGa )QE^<+ M!΢dU: r<)(fTCgpnљXa 'ApEdD "d(I'WG%vRtGbBYpJLJd~=xu5ڶw2&d uyjwOUg(÷mH:@:LDa;0D)ܑ\b~ZdQBj lPDC)!AȾ{fX>d9Ν!A&6Q%ą!{89.9ݳճRؘŃĠ(\2"brøcmomoW# wY9i5xYh}XĪ)<ٻ)q@,ѷb$ZҔQsʋ,>ZH0TJB(H:Zpi UF5wMq>)IPylAAwGW3[]6~=/lmmLQ|v nOq_ҴlNN^t iђ$՗_Xߎ~۶m[1ɢ)B&At8vV0 49O %E$NuzcC~?;~1c~|||3z~\"w-cHIS,hV. 4t9`PH)Bԡ($Edf |X{hQ?{γ_$|`RN:H(.tLlvtx8ZJ{*FLN5xwšQ0W֨05F" 65sJ%!`3%Ge!5l;%I"ՐDGA( GgHg83 lLeEx84*EٹS3 !2!.9b8(@؂48g|.޾6nnHh4WIyiJ%K`|x#!MR= +'9gB3".Ó=H(܌Y:{Ђւܐy xEA67JIY^f.H&DI#6B%^屼%1'&=:LL I-Fa>:ڟnOۻ{eqw)1, JW wRy4'ɔNw&wN#hmO |8}th4s_S#ZrpY5`gf8YHHe/&&͈c)_[lO{'ʰrw^%`*$GdI2UX#Eⱚ;{X"2$acdJ>9FS_>7߾E\_ɫ=}kV4um^#0Ei EK~ M1rǜvS !/Q+I*m4xm9mOwrĪS䔞|K"][=LRT<磶֧UG2^ro4mmOӑ4%zdL/1-S:4-4/HoÎgwՑ2}Zö d=GPh'?+ stKL "lBw0#)24*%Mɷ[xxvn;,PK.Y 6h׉{˜y9gwGV;2nclCD$Tי0?{.iwA% @9` K$jiPnĚy0 Sr{*54(`g!DvRg[x~6)r8My0%9H.G!_}?>ضPQJ^y: Σp29T s3k8"̂CQKe| N37!w6fJn^& Ƣou7P%YZ>{>=9vT'eF4|ǽ2n 81B,Rgg&CL%WLSl39ELlH$GW U"1S Աk$1TDrEGLZ̑@ FAL2a05 tuĉ0ݓH,{0<\1J00ؾWul6 OYer}o(`l-vt_>|ǟ#75$hL{T=D8T5&s(Ƀ-ԓ9+(,eW91 3'nМ"(vD&b"IԀ`Sf)9)fD'9|qX^aB F b8z {^"6VWw﯏dz||7Ν||("KyRBsFQb wH)>SN3k#u#UbВer"ǔ|Ηz Æ#R.єr8xBY WaD6NĠ%P8&b&1X$]ŐxhB$) !e"D$b8q&~p'Bo/aMu*T5 G6l9b#=՛)õ:sw91^cvu4p_+)U֟F8IyAИ^Rz췏zaSW+EͶw^Ni* nW #M;w=;Sy˛]ʽ淿WϾO{Hjh{vr,1!QNumTO Y'"I'kVyÜ4F\61 B0`(h&m-᧣9gKEoVې| W".-Qݹ٨G^wӁ%5c)LFpXB3HYd>0b!H9$7Y58䂴и֘;Q0!d1:qD~pEF`s8t4DF$i o 1Q 28I <փ0P",^`D 0-R5Yk4jIl=ǭu{mAq sJJ^1ݑQ,([[7n  SDtކPKYr`sDՃ a )]x'&hj"3S$1OIwO 4%{e9p=A4Nst|ХH=!D"h A(90ޓ}>l[u~n\LVt/yI#T\Q9T]LEGD)HikPݍښSV'^tx.`]]?}ګy9l28`r\(i)iCP1XbZZ5N{#z݆‰&2lddKFi"")&cɅi']>MiT_<89\ uF[(h iə[muJA}Two]s^a$ݑCNeszJD-MgFtn6yωSojٳxbEgŦ|W߭MX@yaJJ|8w@?K7@k{}___Ͼ(r >9,m WLOjsJ&fˍFTxvټ$z3F07>MS[o9H +Iӽ<XFwzJuHT`/iXn,l4VD Ӏ B~2{h1βDP#r А:lѩِ -J#FBGtA'iaF @U1\fld } r0D1\9m,"R v2s SJQBXXd~}?_?Ϧ 1N4YXPHȆW `rܶNrQg¬> 8A}sIΤPjI)gV%!C!!dN-(0'+9f@SէquYrꧻ<ufx8}\pQgY3G*,XFSDdJăIUGf&1ޮ۵ul mw0bk-H^a[Zŀ0%{$w/ٻ@Y5)rT6Q/ l^{͸:QaگìLJ4-:kDƣQf}X?qBa};_װ|2$(<:".@j u7c2Ѻ}+&$ j\J!"ZD'"uym2!@ `fCEƀ 4Ϥ{}wj`")U)lAԺIDct |`n-FmdxEɿYEܝcos02Mry`iϣM5ƅMݽØw RŔcYDHĬd !PD&RnfH.*{u9%;9W# cQg<,OӰp^Fla$  ' g "zN7}Ѭ^ue:TY/P sdQȬD%(c`b;˜dBF0~(P(rD1}u?_mz{C33Ae 2VoyHzH!ci :'aLIDjL BO0j#^͏4g|G(>RjC%&f,A1#<>"\&O:o脚 ;'e-d.r[#2ӉHu4V juLoOënQ.j~~ ]Z|7,~Pꗭdh'P} QD8s7ck뛛Y}-KYH崼~~bOw {s?LǏc]_~ hh LsNzRRR :u:ϒuJICXeqKb6I[4>"9,/Vv鍊^w%[\@4T,Ϫ=']0'9,iP=1w" 0t<G+q6[#DGj7⮙º)D=;GDM7 \na͈yь:Eo $x±e&I%!!' z(!'Gp!a T#FC3X!0h"y~?ϟ.p=2rB3DYI`G3:5b-{b4}koח^݄i1$`ྷ4G:S<=O^?tSf"^$kI.aAGÓV3ӬA$ŬQ<5kztyh[ԏ@} 'U׭ƠZE)>{&a؀;꾵n^]*ILl!rbl{V^zdTm0m#^tdՃ]kE4pu=Rឃ)AuB`Fse]y\:VBwY;y 6"'UJY$Gb[ i4dpp dO +Ȝ|=n\s#<nSJh"TLS sHI礞R3][:|_{q0bJeacY}7VELLyNua6D9`7"DI;#saNZ{Qv`Y ~שqW"r[DlcOya4%V=Iܪ0G4Q:W?eoW-B3D4 e)K!JUf&ܽ>%YBt~^<\vONɅIoo?oOn싻]nfͦ:ʼr:Tf\EVI:J2u) g߆YmoWn7/_/'(/?B#`mĎ:*yp<˖"ɄH!ᔲ> CF4=^i}4F'ue1HaYAɣWd!2߮!;0cd)G.nbΈpY4FF`P&t-̭Tgr X \* grr4 Lj*QP ʫ?ϦnϷ2b^<,5Wvy9pXGL2"M&C0d ׋b&{l.i[$B;W jV2lQPdܲSt]LrIFb4} HQ>jg#=Q8Q=7v'@%Ddb Sӵ~ۭmmgWI {_T&cvnMFM[B$6:>bl1)e0#0ζ Ôf{]f[ĕ81*IX%c$ά{I[ QU6 1 o ɬU[s`8ud",DsW6klsytq}^oH}tI1.m'^~z09Lś]޾! ]R..ABrߛu݉:U00N;^(6I4R3!=$%_7$g_OxӇw)G]r#LFu2<JǸ~l>'-sF "G\g/d}V9 eII8"#'wyNyʾ]ФEAJ:Df2bNyJ}ֻgaf^2@X*ZH4&#]0zuYt2Jo~xs2tp-NL*)d!JqDHYk[[o-6BTOA-\lT%G<):+ؙ̘Cr眃6ݿoG6+R%1L4v-=Y#B̼>8!K㴜{JJ{TkLʽ[Egxȼ@(4\zy|}@_O?yu?nON^ϗia_/Jsgg/?uo]7+YlN)"cA=Q+ϋsxON;b#jv{.g_ )hF_>$'-O-(r&%w¼UD$Md(qԪBЫ;;!u64RS}a:lԃe2K䖤" Dk^^d.Du֕84dqp}:e7FcdgipGP Z&ƘTex)fhZofvprHH`Ii>hA'Ԁ)|'JA0'GA$r-$<\@JgIJvь  DoHAQ} LZ㴰]tASfgeB:"@^e۬mYmP]9j&݃vkD[0{]S5 =[s1q!L4t.u$fpVɝG2p4uzq<$, 3G0s sĠeJh3vۮ}Q1YG;sۅI&*KJIf'h  $sf 459B jPOzD}_×fVnR,=$I{)Z<Wiփs\OÇ3Fw?heT.v1ƕ(rmǸerDn \vP~ie8oqOaWQ92 &]cxٷwnOoH,%q۩NzmC,r 4X4?*eycCVJJ[}߼WJ~˗^nOoa=NFѣm{'%1G.HCg髯"ҧwG W,R}>yַ gO߾ߵ}ϟ\<&WO_ cA^>/xs˜wY[ew3/Y5J8;Mp|$B? 9s:MYL2^O>2ݩw(Ww04R3rGpNaj}uՇ1$m]\:g%)$SaC#Ih4`{ocO2R o܌: V.Q(}$us`Ǹ]n{ڢǶ_6a.G1"6@}873Copۻb%qquhf> (1v]dL2B0g"f0:Ǔ*%ϯ{M)L& 6~i%d276 k"$UDoXB $V`[߼'B>nLJ0Ozww%ev{/O?>&S}=_w˲.~PNS6>S4jÇ8^n,/ów?1ѥ] oOo׵^Bu˂p.ۛO^h -Yv;si[ BA{hy62mF>M|Ȭ I>ѝHǶY j}%ِ][ڠɧ{>K>ޕ)+E ̩ޔ6 d9,O(E>0ة'alTi\-;Xs3dETw"dpsC١O=g{"}#l ND$X4,NbPr )Ǟ,D;btc 0Nōdp 8C8"R-<ӰHtuG\âsΧm7&l;R7cM#bl= YMɉv@xEI`;1 &#sQ. .p=#zTb !PM< &!IJJK3eJ,ݜ\Ҭ:d!QyG0nLa.X9M^n{]}}} 1bI k,L@QbP)*:I FCCǥtG]D\\`.ĩ#u,Ŗg='ehuO.ȇgB&Ç wpJ2.`Ub Ny&r-<<7wlL)mN!9S yFd0&ҷwG*w׽ITcs.A{/~~RRvy\/4#H&ef:!rǤE=OuCkaqS:4}ۄ1܃CS#]~/Ͽ'ϧm1NBp?؍bq,Ityz%|dLԉ 4 "GK"4h`|V{s=i$}#4dE'i@p-1s`QFZ#Z#szpGa@"މ5喳Y!.ʪ<噈UP}r g⃊PɡfZ@H }#cLirF~4'H Ht lXMC# AD2 jwhONg D}8{j׿/~~|]+l1%i^5Dr3t)6n}U^0I9өԤ.1z=jv(2+ QάGgMw:?˷_}g=/:AY`yzvag:h_ 2rO%N Lpy>(ΛϾp_ɧwO__}V~nFs.S׳/{^!Q Q*@i"B ;Q"TޮOjb;4xJSB~w':c'zb~QCZ'FIdtPHsMBQɑL3X\. eAJ! '>d .ɍ[@LWmPQGa{ N̑7sX4LrHL6X܃9Iu@` i#z R21IC{?_|fDԜf=)_Zo9D\]7F+ó906XpZ4HaM0DӔ"emJ!T`&ٯ$ݷeI c9P $L SԮ=2͙2KOiiIt&tSO)09v ÁA$`0(;:ufGhe*Rb*r Q}o2:Ҡrbe SJ, WɝK4SR=tP'iԻu;+/mTE.{#Ҩ͇6p%&Iq$y1#咖IFyi>0D[PR?ExXX=B<%+ucbܺ`"ZM}m }b!A3#|ֶ%7^wIZ`}mhIg?=TJ s79g?GXO<՛S40U3||zq“Z?~7o~]?l?|c4GCv>?ՏÃOAG.t0Cҍy:D81?i;O'?YC%ǾFev}jӬbL!ҭm$Y,/N oW^ױı9ƛk="9,*`drhͷ{$Lz:<:4`͛˒L%_ϭfk]{[2&V6T M -)|9R P'bZWb4" YE kX=hlt=K*3ez;JJk[w{==$T'u Ā"dayܻ%!H(D<TAHFh.n1V#z BrXA`2?9v0zYF5>Lֈ|`lS'&)bН" v$NDe  VPԅrInѤm ߌXnmF ˑL0ffǜ썣u>M!(9?hNʏMfI#%[Bj5F^b-IZFdӤS.yeFCIZoVm8Y Eۆ·9˨pf ܯH2lCgHLjRNԱ̀aĞ Õ "Dm :JDROATXM $ig!Uؕr54{yuQ _x)D77gy~B^FV,r*/#uk.D3a`.2^q}4UES`B/dۣo6yvO/I#v촜RBgkܶuwixs3ͅ3q^.O9!i u_H\u)4(DLiX txODbr߰{w|ywŭ1xUpzIJ99g0g1sd(VgᐧoD" [*ۮpo~̃e7L39ݚnm-qfq#چД4)1_WZ&,8B"li JDFrpv6LĔ5dH S8dbԻ:x)Szer,‎p9:HOwLBucZPa{R,;KGcj;Xe!#l1yDb B J @%T8si q^g3ּy"#>(GdܶdM)bqMYA3 )ڛT$2AG ^R̔gJP9"[24%auum(L,s޶Wg!I2?t_ó ݝ$ăUňTHOYg3JpH$ࠬ~LA[5klcY 2YӌEu߈nDP-4O`ҝRAD4@2gkSCb۱}2,4Z۫&6nXTIE|r<XrΥZ3=IV*όT&qVڞw"Dqh5#lvme!=BCf3督3<܇rcޯi0C4DA05Lmp . )LP{OQ ~qQHFr2I4qװl 1(:Y%r8C r y8ÃҒ_sأ!:*̒cӒb|(e<ǰmTW)h]󱆅oIRÌ#+iT@2'h3oԯ+ꨩ7F Ө.w]UAcvI:htMϒNB82m4ƕYCcw5AdN!LRlc۷rݟL HwB䶳œB4y-bɉNh4OBE$I3`bXA{ i9moERt`FnFkss#uv]n΂X[fmlm DmN:P\RhHŘ;'i{C_-'b &*dļ&f~b J)|'_$Gs|u gKy7C*Ϝz^JŶx]ꀃFCwe9S*|GhͶ+,chO`\<"u:߇6Ay]~r}.XoK9y]Q2}`}o^}ݟ~9襻s澍oB__~Mۣmtf{߻eo[Qw#¨G illޯuY ]$mNJW\ϔr 6m7ik2yTeHU0 Ԛ3M5 X|^M'yrw)q2ifN)^&VOf Swv HEĠAJADD/#,'wPB8)θߢH22zeM%YJ07xHT2(`N d1hg#$ԂRC<}m B !É +SgGH#D"ap8gLXVm@p2a1ꭒ Œg vc)oIRtj3J$H¯&۶L{?3Ƙs2s}qQ(l;M %2xЕtP(:(1nA6L P:n\k1>byxSLo;֥F{(qQ61Gpdfw&-5GRB '>{F\ t2LpPd^$jM:h>l{w),)odIC'~;za@DH"K)w- 2HRkh43D=K. 5EJʲ=7͝W-Bkm9tOsLmI>N÷s|E\;~y>?(=\yLMLO>~8~}:ɧߟz v}/_e>.2_wB,K1A#F8#$by'Y;!ٍ˩"Qsbʼn@VB}Efji%]Zg9Rs7TcIm=QP-6ONGJS <ò*<:(CJeRFAABpgN%pG$m+KA_%9*bcڜ:s':\jDsVA9bPДDIT#y-{O$Kg0x Dp%FQ2žKpF$MfyrJ@"S"= (Ióŏ^O?"繝7̤lKKUrAlz$,fR ˒@?C"-F$1Vhaߤ=mv!K3D)$7'vg&`FIpRQE2Y:LdDZp3jbTi\H`se_FOQǤѳq v+C a)GF"UU4!iJ1$+D81 3 *k] ^EW>rHS4!azX*U#'-Ƞ9 d|dҶJTEJ/mܮ!z?0׻ȲL%{~aEAv3+\lrkXm%%_2+TeSzYt__a{5'" x|f}|7ϣ{M߂j݃Fa8F[[u)mքj8Hb\>_~GgД-'<^y]_>?_w/ROî7=z̍Ow80#:A70O,Gu{G]wΩJԚU"bڴv1:[@ҀI#ZY,w Y=$S@dF(AFT"R#8sH#O]滻E[J d|NM|jscd$z^8Yƒ}'a:O|Z(MtART8@u%1v;GX[.PGvLANZ#%R[FJ- I\OD5o9D<7Dc2Sl-B3DKm;9'\3RhooIP֏S)ԦÎ0jq>>AqI'RǑ1֑&ʅ?R*2Bz~Qg-.!LSifj#BCOevۨ-YCnp~Njy==}77x{e໏Od\>yCmo՟?'rt믾?wgQ9gyf?hR9";scz)툜^ũ0Ӣ4r)*MȝK qфg=s@Ѵb|.9klIAI31FO˼@DJ]);J5 jÈGs܂PV8XRE&0:4 A~%e5 <)a=YG-4XPFD4D R!D(1t= .@l!,I$ƾ5C@rP((!SR` HdLBy|=ߎqGu\WU bp'>͚qJm㙃}< XLcKFcp40<Un`*m6|xboJnL%'JHe[/˹LL.|5e J:[J` HHH?zG7sODc&8"*BKacuJV!&4)eJv]q%ޑ} XsV(e 'KKEѳwU g20JZRn֦ĵf)DG%̷üMGYVQ$K48H>0 RUziɍw1 $IF ꝰ|}ůsĵU*RJQ 1I(4+”D˹ƺcjRal?OW,ؼFwfn+?gjwRBͯWK&j<تN5C" ^JGڻnj o>> ^r/vh}N_~o~vٟ??~\hۧ?}<7~{]nmy,i"4ōK@d.b=\†Gvcp3>Ė~ _Z}\4-UM4$H.аe"/"tQtۻFijE!eLL\PX 9o &1pH؞l~%Hgwُi3 yYfJ~H$ G` fKR?3$@/>RU"HhNzpKf,郥553~-HdfP$IɞI)&HRH 6Hɔ922s*A)^?B6Wlf-4A{ QH govR:XV)LԷ7:ͤ:b͜)UL~h$"5.VJ i )SQ܋1DF(˂FTAl$ a*IHrReb,܉* дnqd\(*OE#zZ-]%FXh6,c0.! j|d2L,`œE '-ݦ9?臗r[Է}qދ/mibNYykԹlP mlcøfT6J:nnqݲޮo~[cu{e>-uR(+rin,'7*T>O>/nF?y ~Ouw9Xn.Oc mr,ijiJ"/ [mU8< -XdhEΗiupZF =5{hc!@k&'gǟ-pYRð݇8ywTHi8΂crҪD%6Jjj70C%q@BQ#$Y0V=AՆ3LzZ4qkP&j>Y| /' ;‘ȱgw#>|v~޺m$UCF$EQ;L|о+eG>, %`׾>RN!H,a>̷-}q[m%|HLԈZ) ܬ#v6$#2椃Î.,15dFTA9v;## >3NB81]$T&!Ѓ|1!N G8t9@!گiq,SM=)w4뭵cRH2Y!JvcctE_Z~?E/_fݟ7߾{-ѳz8mm];V?nWWiÌG*ƾ[y1rcGZ+̴WO5_|0AK[e/^2/oubrUSO~<˕_ßwo\n)\bՎIB!pHAL#\-;7RO/_=,*ry"9A خHGK|C¢T e' Lە,A! s`.|d ;23 KdE@wqBTQ\)"9YH$wLp}@ CF=W pO30;"&T@"IS%2'qa!`Ifx;8d”@p<؎LA$gjl N(RL$7䴧K;̓#)R 2FQ AC_n3iQsQJL)-ݺu{fUn0avj7—E 1晋%)d"A頪`% 5@Kd@@Ů۾xZy"4¢x HYNp1$ה:}=9h $L Z[h>-!^ WG”w{U `@-5QjF9 LY)"դp!-Sѵe%hRprN#J1JdnzƜ$4nrºB!{tI?Өw 8),Y%W>ݺs󮍜yNh ZϔyZ}_/y_}ғA(P3K%{>M*F,:C6@ hQ ]}>mt>?>MU˫Or7/\tS!xDKiRֆ/߾߾{^O_:ܭo_u)}zQ߿7੔%L΍2SE8iGpޞcx"縜z93=6VX-X߼iSa<٘,l2sP6ƍ6 Ii| 2YUlI' /B2VBK2 m% *XyR\tyQ QQ'eY< IbW$ځHXgXeqɒ:!VB ,d'Țx v7Hs#D+8$g0sfv*-}#aOHJ!Hh'Wp/N](: Z[t3e7ND2O;t Ld*kHm]d;@,vt ‹Fz,9Vc("nm?2+'jHPfSٷ$*QSm ExXwDi@=%%E*ɓIQ2Zs%ÆRoS\#HYg`hye.ٟdz Ђm'Pc "TÅXMBӃKH⬚OG_mՏZ@C0,¼ m%N!\5BI"@gʥ̅61!;6^LE(JnϩFD{%M"TPfIٹL,'N~ K,zQ+Umͽ?}(@ M$IEzyr{}<Ӯ "&~܏뛿ۯx6]?|Qv[ڼg$6a閣-弯mD"v{mS9mˢ}.K'>_rv|v5'~=}rӷYTg)9@Ex o>+/~(t_A~6?}o<Οşo޽SM{_>Y>hy*=rXЄc/U ׽ޝцpa:"{i`T\!YOpz!*AK.4JYA0Sd@j9 1Ly8^8ݵD / YPHXs)xV*X;BQ%3Cj3f-E*LfF+dqbJ{N{N!w%I*u B($, #: lD2#IA&0@)3H"3eGR:AH2 ِI$糼꘣?Zk>ߝT)J) =2!%Bi9)P2vEy aWa&hR$q2r7wf8qi.(~H.k4穉H3pBn)0Sq JKBbNTD01.\3p~9JGWn29fkI\&==Gnd7՗w$'6}E~Ǘ?G=q\o E[lt[81%-q)nC¥޸k8RD |P&5!q]EДS9}#7P""(<2(2@%)@"D>81 1OD)iJ'L(eF)%!|l@lB]"pwLDS4hĩC"ZDB$iGg:HF7 lCv]d) ,):-rhs'7,ҤLJB~P"MGԆUK](L8TB4XIicHDpb:jzܶx,?)Op,ݷƪi/󧟷s!% DJ$e?`ukՇ4zg(UtTNZ{,CKʠDR3{et<"V$Ky >bߎg{y8LP*i[߆[CxA,Tv5I ϧH=гdiڊdկ߾{ܑROO>}r&wƱ#pOtwGm#9Jjq h"Ǥ2b{^>2Ͳ7o.m}x 6\p:tz3GW:nׯZueG^{q}yLq;zD?}^.}DGͮ~RDi, ux8k1D2q%xI5)KS9r.gV%`Z3@[y>c(<>.ļ@I [R `Ƥp*Ƿ/KHc`ɭ;e)'w;l,Ȓt_Kr)ðcݱ8뻝f&-E9!/||rֆsuEO?ݯ߽ϴ>>ݧ|L*/>gw|ջ_=×ƗQ,ր[q6F<{r:unql;ڀXV1Cu^NͻT>JI婹KHcm:+NҊKͯG"Z6we~5]<-b@MǠx fB }gt~Kc( {OYAKg+9Is.eĥbtOrsvNJ1j R5b&Dx9`%ҕ R$Ejar9 Zr"( 2)E)` & JbD$Ns)NR2IJ%3>//"@'y`n~PiCI(/@H/s/^vd,zcӚx>҉p#mތIOAEȡeXWs7I Z20G 7&3^皁 PbuJ!0ND3#+`fu~v%[9) WQbAL{9)\IX<nX)霼 a\g)BJ џo#$ǚӢF*?g$9eTiRL:"džnو~Ry{z>ܬLmnEYgM]YԒ`[Dp2F8ZĔPٖ>"0"&۾1\l ^on?<[z"SD@P2&ZO~hA?{G"~QZ5.zܽ_ͺ*UǾhR |ͣ\N÷g܅w}Z㉈yt;"/<6;lgYͺfzŘ\j~u)nfoߢAM\XǶ?R?LNq/E>Go4gKpܮv$BTυa>ݗah^~:8d+`A*c$ԊҤJ9K6 B.th5a7s^mnh扚D\",p\SC^^Setblmr|xoO46uF(C`' ۺв}iejK %3m)G8RR%ӁB .յ:R3H/=I)!z2~,?B7'h{%>޽xDG"j<~pPz&܈ 0 dZ^6d|TA,#\hunp=XI}7a\rގJzTO{n`aXT|YLĕYbp>]_}6\G+'LMTŽ zvy4~|3\xY~jgCs^PR.'8eyV G H;ooys"HjHsAFZLS1/c8Byv$|_oo\f祵HH[,54+N919"8+!ylb%"9Ĝ#Jq( h!";։(#&$Ƞ4*}0UE4 6%Tc5jOk2GM:.=tRWVᜈF6P (sI$ &'b$ CYH,DL: ,H"KL B0\J9~'wFЬ%FͰ4(g>̬dzOtyq8&ALLRنZ8^D,r5)H3ggB4/B$Iҝob ,{Ox<S}z~[7EdׁlSNۛ3.aﺉro'7U…ӹ*z>ʈۄ~)Gí~Owt}zV"F^<۶)Jݛѣs}y}SWFyۯx/U c{\e=~;`~~uw??os_5ۗ_7lWJ*}uZ~pjmxvԩ-8ryr|g=~w_)2>{FIm*#;u-D2穔Qt!YJ8gEzpexx LeՔA1U5IQ.Sr bDREfM2r\}ƇHqv]Bl`e>$N T) JkNhl{<%SrD.B9뢹!qHRY٣p8+$I$1J2 Af$'5{/lH!0QB`Db7PfN\8-ٜPg>>ۯ{p,**lG1 r0I㠭j&Kc!2WwəMip%>c1ө>Mj9fIvS]! =(&̒.4LY  D'J A$<Ϡ f: +Y9Ry۰>VֻڏBPJ3ENFncҩRr~U@0G`VQa2t(̶_D){Q v)+䮅q7t['mDuAbT9Xʌ Di;υnVv 뜎wL4Qr否HP`f zzc G$}3S#l=,l/{Tt}~2{%dJv?4~%H%"q:kS "e}{'MnRn5=nlƶ_WCNw}^^e\%:"n*ҫ+z[JwsMw|9}]ן{+V~xZeަܟ]^}o<9o~۾L=q{~_|˯Eخo>zַ7_}Wo?/ww?&\-/NAx7|wﾛ.NN 5lE[me8Gh;UqqH>"$&F(NɕvFel_娢"T(r'p&Gr|(5 z 4[v`ǣ鬙#**)eH :*ѳc(H/Gj BHDT"n@ȚaI@gdҚVpdd; SpM=bݤN¹r㪉)uI,-,e$Dʙ0Dda\@2ǿY'}zxedm* +J&%xF霙er_.юJbˉ9A ~ MW83bCTO\fGqô)SgpnIH@PM2)F/ H\ffAJNi16PG Hq]:rp:)OҷNcv(au:GEFtlc|O=NAB>x};|5L]o|Mj)"9tYr9M#TiDޓD}ۻ֏=Ҧ>S Ί 3˙RrR]*#!(V%֑C[<o߮w>moAI sJ܆QtBtV>-[xs#\PUyqJ$Zie#[i|>,ԡc~|gv]. 9=c>{S^\Y:-r9ݿ?v׿XU&<|@R^L⋿ˋy|iw%#^AC>>F!Rigo=کAw?oovC_o/ק/_^˥n_jZh@~ˏJCGZڤY̕8H;8Ӭ.F45QvQZ9ij۴F) Pr/9;wT$aTR&!)Pc>:lGID@8# Q0tiЌ!O* ĠdqBiNʞI*D d^,ډr%2R J9H"*&&)F:B(ZB$ A=uBM" X4 )nD 0q$"d 5WK?t^NzD.a!rd)ǾQFNՙget/Ɣj{G6)ك5ft}ΎkԻJVuA/<".l>np\\"3G', 2i %>w|<qc sc'kX" v[AIK-*6CG%>܆adejT2RhlmJښER/`?qҸh,-=lt[><DZpJfqOAwc\ v*d]bPDȑ@Z1EpT.s$Q4\ D"nTJ% ^Vح?~e‡\ΧA6Q>,&j9AX75m ?Wv<}x\}߷mafvk~@iWnV&yڟqufP;_Fr1U2"mFnc?|x~۾{jy1."MOS6yc~==wO^1O"*:-EyG>8|x6 mzo_=7__˿z._?|;DnS{y9FJts&wM'!l{2N)E///P,~Eى͛S9?мu{?}'?^;zI~xO$} Y7pD1r__s:b$WSe<ߞW:>sdJEb: iDEea eM='58@o@fJTߎ\sis}qGS,efy, hB+ NtX 1" Cȧ3bJtz!$xrVQ$#%`%Qw!w%%@dyɠp, "T5b7jBSp%9{:` 2:he)bO#q \(#M2IL(! JDH"ɑN$d=DTO~o.Jj&K +q좚dmTLقe#ѡB@bB{:!4R HB1#2LJQLiEwf1FQJUN:hrlşILo1:s *83DH#ႄ xf.H EZKJmLT43U%x}R)AAȂ5֝ThlxdL1 |>Ke7ʦ-8C psJG؍k7uzj!"I{dmi3qT>-#) $F>Tp |הd} b8F>#Lq1{SSlȅPmIyNFuWoWSOOI(E_=Go?mߖ'׫>~gO>cA ӸOB-զ\KBw--&*EV~87wrZ=K!]{F*Ey;(1,Ug(1)Rki]!Уv2Tƨ܀bTdr%IOIGF:NӝpY *3q(,%N:ՌZ8U&JdehMRTYt6An{;"ɠtLbc$Cjz7 'ݻQ8`cg1#I4ꖖ19#Nd]Ӑ TeCʤ2&;vx$]H?h>nYQc*qj}l4"UܤV-%1B%VqpF $q 6X:"|Y.1;L`$zE[}w/~fxfoo=,WJx~oNڮ7x:-O韴=~{ Iʘ&]na{[qw=m@E1k' NϿ.ӛD=MGNZ@uܜs-xc7VqI$3ٓCZ˱s&iRd8~qԪ wpQ2 bDS0z($AZ.TiS䔏]/<R8;@0H87<2bIw" ɀB#6,,8"NZjzͤh{'z(l"K6$- `䚙q!P&%0sFb`c8aq[FaÓ=ҏDj8= sfLأH74||r$ftbI7ZD2rpUʾF^ltBJurJ& cn#`W03L8,R3B6٭Ί43mlsM R@ LQߒ#mG t.wlAdqT;V$23ļ$!")6X6Fi2hCj1TIũGZkŴh؏L4db6f1>⎧WGçwW[_؇/{oowk旨͗뱃?ۉӟonIgy]'瘖&s2xܶ ADZ1X_q|!x>/]s)HE暜jkgdа:z$gL(O춡0n]G\U1ŬK;/bR uR"3X7m1H$ 8YŒKSe*goAT&(5u[fNL ~$1bT.50\D%LbdHQW#%9ݱߴ*M'WQ=h2!|gSS$KJJ#ʜDjg7JRD L&UH$,)`(L&:XXQR(ITGP\LA QaXT"9)'p֩#gSY=}퓯D߽oԟEl1e"{FVGKs}#Dn扠˜ !&ruJ~d0߾ZwyZE9H$)؏JB\mASnFNȰQ1B˝צz7dkݘdt:noG3Z2R ybTr8HR: )(%(daBaĻGь#p]NrZ ٳ-[hF3t9."##PdT* 'xhD"*5Yklq6f9}s=yQ/e\ʶ[%IZTEW /l3: :Y\" X.%,3nQJ{Zoom3xR۟_u\e?ܽ>|[7og>|q:~sfA="$ɀd !2QP0 (H@PEc0f P0'B@U_hZ1I m:iS݄FSɟWL:GPƒj&1U Dѝ&pIHMK*щ&bscrS5b5RZEXz-@) #ۥ#{##7ȉЉaq5F^T綛6${l6j{w pI¬7==|o1-YCi"MJ(01^B[N~:HP'Rk2{ EאA4(IX_R(C7s9<.Xah׵Š!-)۫9^/%49%$ bfA$p4q}L 4ԃ^E}۱mPۃ|05l޼>qVŻʴdut@(|Z;\ׯ|u8ZEsZlXYS&GB`~ mxuzU_^χn+q㟯2Bh΋$jR~+}z-QJ{|_z.ӫoߝ[?k./΋._{;8?n-zM卵+)ͯ^2ZB]~w뻷z1E]8I,{.&o:NF7k|AfjVٱs9+0l)s,64*䐄R~7-v/t,S.t' L)EP!) s$DmF Khe )`*h ~x˘Ϲ՗߽7~=TKvtJ)̵̑RёБ_>~u::ӏ|aVwha)+t)92b4|iiX`hy: &'(GI/JKyj,mx)-|o/O> ֗_7>|}SX~?jlbĤw&ޯ~Yo~tW7zwiy~W|ëNk|5blͨp&59(2%dkazʔ LXk&#(YSPT&b )~~ѲLfYcҽrs5(ucÒW枒{Jd WwQY eޮPiۋ a98yA؜S KؠI4Q)Dg6$!s$0&x$ŔBQ$#HDNB$l1(YaByTf V"("y(2; 1DB,9#2<~J.2)"mv4ƨLpb 1EEwey$eMCba.ɍxgn}<YHG#R(TDQ24>[K Os^ ʶ!RxVYO6ZDOB }C8Lh[Y'NoN ۭκ=I;N} 17gJDa{ha4Z!KgnwLF)k>ysʉp0i"sGcG#維f1K¯r)G*@$^"5H< pF' pVMߐB\ag͔R}?cC9ȊBaܧo;?OO>wOF].dC$i);w`Z׺z_[Iŧy &Nsn\e~~|<…J^o_Owr??~ȣ: 6l] mz8c]u˵wuۿ׿n!Oso[ y[Wlϧ_Zjtwq9ʴ" ЭWvOԩ=*F:.7H0ݛ3Z3-Y91dva1:S.DfFB-X(LںO7txSIl|2ZB,%ڍzHpf.F{4sX̌saŔL;҂ּ(bIC s.4۴pWNKX )feCL1XFc,N S8DP@9 9*` y9$;W)1{T3D Hf3199ȉ(| O|8 /@ۺI‡axRj^U G+,v8Wxv;͋aLΆ(U|s ivMD%S=ǩۧϕx۶wjxܘ'm^^K]\ 2Zu`6  3mEuօc<|p4/z{p $=O_?$z k`ٞ?l?߲<>]R9?ܷv󧗽Dm_忰Ob/o2)g} {]&Eۀaj]95"\:e8'͓ J&^ҁ1eg1iqO/Q'9H M2B(փq bhe$2# V fÈD, HwV+s(R! 1up%t[؛oҷJ$pYIw%IZʴfI5{ٟ^ֺMOz$]}2n-pyV??==L649:#89Q j)#`TNNf29"d8OV.  u wJ `'0xHd0$0#XzP&f&DCZ;#F\ADbaLӠHkp.dJ, B @+FB S'LPpPxÈcbPs)aPj(_~~+on6O2kу4$ ]͚HZ/ `7caR@R @AB9y.2ϋYwueֱ) 9Xm>uDH6tb|~)ι8q9A @u=Y0C"R2qldR*Q$mUj!֫9##ifVm#»Ėֻ1>#r2A ƅ\ lmG0HA}رVn~1N@CÛz%dY50EVB'O#iAaŬCAG…ⷮiMB1)1I=h{) .Eo ?l.gֺ]>|>}Lbb=M*(Mb4ޞ&FraJҨU].{>ͪpXNs)Y-ﯫE/ÒPX?7o!ƾJRN__i^o/e}O?_/)5.VMu~8r:j>voKY% hp^Ý!A18;"w #CzQ)Iᑘt.g?wb%mk}G]ǭյƥmծušy={niY4&Γ;!*}LhtVBvX+eH0rvsN͔ť oغe H<̃s_]mKTT0[|rPzq$L.! n#ܯ>_Jݛ%Ь6\1?[ί w~ëǯ/~ޜݷnX_x}~WoBï~?/֖iŗ@8˳%lȵA:6cx8K1[ ȴ5-f=2` Y0Oity^9AE) 2l/??T _d>hIRp`p aMiətd%fDˠS,͍y39{r"C%F.4˶Zaژ! Q={zvWA⁸$_Cp'<`!%j)T AXx&ȆTXLA*(GLd&ܕaA*k+q+֌곬Ff'-c>:mґV{/7 tjUBĈ>U*wGfEr,rwj/2V B8?u=Wa64rv7J0/w/O1ƜtH-r.|~_ )OBns*m-qX-Y8pQ~ݧ|>>m90sPF2F ʒfY{%B(m377 @˙˸|'\k&$];QJf[_`UN3>_)yΈibT;M\ GI6]70s03Ʋ]P1b Iƪё2LI aEe"N -B7vwp@RDAb#@lBd&& 4mWaƒCz Xk;b4r"Ddl4ܩM0 <`##ExphL" 1 @'ĈX\oLnrWkf[ckNnϟmۧu~ȶm:%Fv1#ukm9zMU{ݢ=,Gъ`at(ie<8M2L +O"%M&cLybGH {&A3͌zcZxo{4UEEZN0Gb1ۆ #t$EQTR<8jțu{[6o1 TM5s._Gvz먗WȉO%?\\j0+9%=M"nzxV؏ϧrb:e΅$ :daS+h6phRQRPtz GkMbͽ7G|{i^^^0Mzy6d:J>#ut.}YajFm;ݝv{XT;)ʜF[߭s>j[)&l>bVk3@D̪iNi: 񫷅߿?~~뺎|!>Z9Vvsg)ozoտk֤,q ! zdG.)3DS|eIDt1%ә<34Q+Q&H bxR LJ@(N7cRH|!^m͑(rKYeߜxg4 \;[8]GG{^ԣ!Gü:۸,a0HIBP q`Y'qJR=1z=hĉ\; pxa[kB /(,I 0Sr /RxR??(,j>i.SEA&Ch^Vom>-cYK}r~>x"PVʇSD$ 1j!dčL0g ~abE0'?{Zn,Q͉v[Gc)kyc(q{Y|bna*mPNHRake:7^mb\>"tZ.n2G#v7Sp\ǵ,t/XX d)jcPa?O~d]O|iFoD(,E鶿^~Z~ޟb)rMsݟo`ǿ/k?&0SϷ0{*1:#iE>֢I4-\'sY|$v ^wFͽeokSPA\JхR,K)ǩ,S*y:hH(;5ƭm1Ǘι6<,iZyx•ZȠA\Y1*msz\"ܼ[{RoctX)3oaa4"%Ĝ<",&y9"X$Eoݙ]ʜv4cJcFF(k0/WBt/+% oyݓە\xDfwI+BʢTN߿<nlͶ?4Gm.LS>}?(ݼ|>Cyo{|2rn?Y41pGP"w%,T0@T[e͐F>9-l,1(ǬByƜj@?)-(kTy;܎L; ˣ.K"ࡉaVR4aeP8+L,]y0kprH<=rwPIzmC7}mm)j3K Ĉ+c %_oN uNޝ' o/ã^h4eKĩA9GR!As$PV均CU$,{V/MۧuB#ry]i.tԩ,_{7VhAzwbLEss4MA6貈 &K<((Fsonn Q!r%R:3,ݼ4ԶT~㶚/9[vׇٖy>P8tnEۿ[1[ :ݳ]O?\ }?=!/R 5k[uw/EG&3X+AsƜiRul4qF[gUjBa(!FTrtPjC"ΈQ?߾dǬb xLevBH"3yDڠG_[}~!h'`s bb=<;#`(9KDD(qfa`7*'}4h]@5=T72"B\'beσ3IbggY( a p&Gvra0i1E @@˻<=,ޥ 龏UnL.Ѹu‰-f1Q6,}P죶[S_;L{U\ ,D)5 ԙ xT݆ A=qyz:%-"@£3|7:}7_bm=z; k5>YOEIw=*I(Pg]MzF W Rush`I ^![7gVw,``'E -%Hz͘gzxE)R+J= i n)&zdFjLf$ԣo&&C79;٘Og a # Ļ{&^)r4Y)NAC.sLkTҨT0$jl>G5٧:qت ERNn7 GIhe$% 񽛲ɠ4̴ܬ.O#2t>!qQP&3*{G^݌w+ ˑ$8Lp"!wnɚGBm]['b!o"SH"(:Xxmw (5haK?H¼i&<: pAlNl b^ 42r$f&iG"hޝa`Dw#BԃQseGۀC  v#@!Ltzc]<-x=C!m{}6xA֭QQ[s~{^/u߷}/^^.nz{]woNUѽۘ$ƆCRJA>b‡2ϳd&]'H)* JaZzK<֫Y{}Tov5yޕ;YXq$Dd2ku2IYRHKJ,O;[%J)"F8ňGʣdZ[uqohp9B~P-X8&bYXשrޕ(XI)äz5/7c,e.ui>8N_mΒIBI M># 3E`HX6ب}~4Y's/GPg.ϏO)`]_D_lbF@T0]Ơh’ǏO-e6S9؅$j9&6@mCIGt~ʃ9S 4SαeDq7??<7CiktL]zmZKstyYw˧o~,^ޏO%^#|*]c,9X7je&lY=qJN};p!uhmS&P 8ߗlX% TwR|I_>=񩿿!Wp tF&qgR# /O c#HB K%Feb YŸIg̭ FaMdRG{^mL%Ċh$Ktp4ڈ,N"<`\a(6A : neB 315''_#3"#L9yADPeLB*Pb¹ qȄ`Db `y8Qu2tkgÁfeNy9PJ1֍ʣ1B*qG'uc[@acoV]&Yb[wA{IRil6 Af:{:|XEr|8: c^mxo5]r=4H- '4O)W1`V[g09璦E%\fv7:gBxqc"gýLE,$}wYGkcuk9ն먡TD-WI&8$'zwcODQ3ׁntc$.ģ-  X~Iw2 iQ(p/b43#! 5zBbDpm31ϷKϿ_GN'I&$JZD0= d9PT mTYxԚYt>pblݢ2ζŐ&ԟP h4k?Wmv 'BJfaJM;&[Y$Q4CSr@Y|I&=|Q`.F'" N$qTLe8&TxJ<'op`x­4s |)؀_r!{z@ݐ("c5)Sy䉰 <( 9v0U$qT{27OJ2Y |!Ǎ쭀]-Lv|B$蠙!dˠ> @x %fqԂ3/AA\/fPQ(A؃ A`2YNH!0 AR7I} S. qNRaHH@`gnzuֽS1kfn勷 $\n~m)hBiPC|q,~3x/{\G =6ҟ^m^o=uAVksE!#GAeizyC8ؽC4TY*cy\&O'qEP %幎=B iZU2@nn˿Y~)$j ZhJ.WSliE3{Gp]c#h vz|g }-f Ym[3dyZEDON}伜S\{_o~o-!2h7hߟ٫_~?o?{ mhjҷ#0eZTf4`c^l]4FkRi]FϒKEairrPLA+;qDŜx53{w[OnQoK.~z]r8R f)x0y[kt'LNDyxY}y3_ k =hpJX ^=)58#){BD}`L|{#dm! YHX2C,=#Hd- DѰLds=zHM PG0@,A, @&AJ$ <@ a`.$NAδ(?im9=1L$hHý)$[em{[D+타}u}ml~>{D ( $ey^9hDF r<^%ߑfY8 n5lm\7[ov˭?lkclqyj{T#44`QhC\ |,)C<²]k'n4R^̃iԍE;jM% }v[CdAm/#'ޞO"7D 4sYrN_})YD4LElTd\뚙}:qa=jhōJt8A|(V)04 #:CLj0ު=˫r5DLA'i:/hz>BjÅٙoY8,mJՆ.yRWo^e{yކE D@A )Qddbf,43y' năra*d(PER;5hD (%JCUA,Dd\2#>X p8"|8 D0b2 ui?b4R$HU\^3);j$YStƼqU#$j^ݡ6zdN޼W7K4Goc\6F2}p_DTNibIdɌӡs.I, ;`܆ՏcK\K}٠t)"3ue, 0Mf*"jV] a͙5{@[T3 qsI"X.$-8[۶nA &g*&H}gJ$ĚGYC9O:hF<|v_wVGg98$=*MI(HCAIzK@žB=H !haC7y@ec^xYm؞ro-{18rw1c5b|ث7o9v^kHZsco/~:1.?Ue@:߸% IP<4(lO:g[k>df%2"L!^TOOR)4Kq"E) 35CGֿ?}?z,C>f)β^I6Ib#R CZ:EBXc=3#ڀ2!&"Σz^h{q # "LIܡAs VwJ.Pr .n1Ebxą#)eh&&X0# `%!0ҫB2!"MAT2 RhBP *A f"؀0 KSS|H^X2K=Awr#\;3R{uM)jvStVYrXM{_p+T7SO[5aRTwb dJ,[E\ԭey 4̕ѫs1" )%ʤK˳ %]&mSubb9NlH0[|zcW#>2~y?Js{-twr4HtpLC{' ,L^IJРv O6eb7#7PPfhT܃ HxErGxp$: N¶Bا5hE2s`abwX BH`'p S:"2fx1G Eb,v梔$I2*! ԉX)" kE?繃' 3J2 9!},: ,̦y&Ĉ!m#m:S^[O1a0kmnl {<nYOz_R8< Bd `Ș<Ľ !-P}&[K1CϗwOuf/O{[LMa֛}kQ@8MP\+ou{0"/S :cx{WNGs򐗣X*z wC6ݭ$ !k[ZDƁh۶ jt}$e.537؟Yt嗗?W?wWáUg~͇RƓhJ֌!IZmFS"bIYcf#&R jΨ(LDETaJ uA jw/ԜfͧYOg4;gB H6`%D f)hN 4Q]&KIN7aDa) ' PX*=9Ѯ)#!6̉p R0zNҀk )S 2["ՈI# cĆ8uHA30 #Dւ=131‰`< , !(SP4x5Ӳ{ 48P6& #X۱B ʐH!$=`+72 zqm uG?KΌQKYJ.Y{=1-ݛ|}<|{X|w ο~ӿz|LJnd-Ѵ?wOp/DӨiQf؊V{!"w%i:|g˽+)kͼG p6rc<0yZSɚY@r/#)|(4t hJ޶?_>b#2t8K~swϯٯ5ٙ'a{8|3IYCwWU˲F׆ Pnu"o>;"zSϣQd,C˂+ 8A<)!R=k*> D )Gx 2sc8{feNcPDl# 2 Iw˜3U'5( qXZERTe>rDMsf}ܖr\Ru_<^^Q m\/lҖѯ%<:5AyKO_r[5k;_7ү/ׯu"n0DU)n5_.o~YmthĢ%F&0OK-ExhwʑZR2ґ*`C54P:)S\HHx;w'HW?-L<0HfQ!Jut29K}s^#dHz<$@r AHi"~g3 A (r !3%`FŒx4y Uxg4kRV ԢTy p&fRF =dO!zp' .Kp 9yHX`lB.A0aKR8dBAFlH#)3>/{W%Uc* Q& L+Rf*4aD1(42JAVwcܽ ء)ڮ#0ItZǐ,o^u[=ɴ0U{{48e&QZEidu-/˗\mc9W}*#r3Y0r|L4+1Pt>]@fl) ~w/D քN3ڂ>!N@+ݺp{bo|>L^L֖:qKRHm(c"$vA*鴔R:FRiKב0* LKZ)ԁTpA"ADkc:H䌌XFg)S…~I<Zk;߿y9_oۘj';)`U9'8e*PsT oTT\]vq8MS n#f ÈSZCh?hL㗟.{ڽn?m?wu놕ۻhY_UOwo^y1ɒ=?>! @wQ62'EnR@n,453Q$ rUHД81* su/65탿w2Ps*ι~;4鰈 &`*HRα!ՆSJ L\Q|vH0hzR 9M)xM)ILP+["ѥ84E^FT$ғ5(G$)Q(D%S" 9XvٟpִI"99 IFbȒ2dI S:odp,*Y\1#=j#(F,d&F !;A(d| d @$ $ ՝$v fZ1 $Ar2UNɇB-dYXUX&FZYEb]^IbdVQ`[\ˋp[vRIDOE͟e5Ӏzz%Pᠴ@l\k~yhn5THjµtc_7bJsB{Kߑuַ}]-ԊYYЄ{ad5DzL2Lh3[Y$a%+gCAU,yVÙKSWӫijE 45*y_2'sc)?kf[) HLSr}0dά21H!#5P٘S#K!5}x{8OvEW^*E*= ׍OP_Ιw޽ūR}}7뷗"bdpQJQ>Mt:i؞5Mq=e騕B;GZaK҈2:Lg"[$5_<~}Pm>˼GyHT~|}i9%=Oͷ]u~???w{W Z4%vv^g"KFd))ϼl-FIP*&qN%X[,ڨK\ Le[YBɶ"8Wϸ2yjLOɿC @Rg`HpI-')up),4؆AQ(`; V,p(+|:3z)NKQ$i̮xݙrc\ī3H+by \6)&f5Y#z9<"BJ) =R*SkZ@; FIYD|-ӤTJnY,sx%:R mn[hR&x#/#KJNL1ûK+P"iM,r/tb>}{ڷ:Kn>q:Lma-_gN7XT k|ݜif/+|`:UΪ92 wsJMY9瓧wLKM$UQzvÑ<}/qG$4O,JweuOߟ˻MqjOg:w~wlPF}u f! |D.DYj|m@QqNStτnB#E'rx`ΛW$|r?/lgOcSoNb皒 ;l%-$3ơd$Z2$+F0`Ą}%)2F=g ;IfFG@4DaLcH%sBJ>Q`dԭ8!I$PRӓw&C73$Ն(:ȑ`gN3H8#  eOzhbV`Ox4 )SQJI+.Ȉ @(ԍB "-NXWA)Q{s_؅ͼ -&Ow;ڂF.z"0NJBv&ů/r_dtG:W":W҃)[7Dyj=*Mrepү/v{\e^x>mX:0O:-fz[އE $sSa{;.f[\na*U.e'jԒB `ZpE'Bp:u{.zeck #{=p)ouۈGq|Zr_Z/5GP;Fɞᙔ>29S*v/HnZ27qP qG&?O2NGf]郼*d?=)^Do|7\e\ٕè^B+ !2K##JjM9 B]|5!<2I{!^&f b4 #Q_4.D(bHeN;D`.ľ-}4şɔePXcn) T=أ"x(KD]U#c7xnbfRJf2u(BL,1"AIIOo9߿rE+Re ti&F %jnCXˆf.J)QS V{3knMe^o#xi$_]8Tph>! R et.Z,ҔN&+qǺ5R`nI$?:Vi[h>O~=h{ 1'5S7I'tj=yPMIIQhJ˄e$Ejv 2X [.nK xjB=>3~9&c#Y2SZfn}u!Yh>܋굠UV~J mm*5[zOFиO;6_v˥e9rw>~9c۪F&'콣r<}u1(K$Ԉ.ZE PTTot^=j%6O4 hJ"x\i%ڗħ)}{_c] ׹e&4](FDQHW בR&ѤiLÈ7ϙa; Ox)#* P׉bH2B%ɍ46(KQ  V6:*ȂD3"vQ XD'ϙṅ;gB59\DlEhX)e5JTE+dlYDFfH.p!&"3d!N0G:DB;R$3$hI,*D&xlח5AX0sjjG"{\wn;vqTAJS yCK>AhU.kANDt8Lz>_<f'%\֧ODLpbUEKY"̄ B!%K=z64ac@rڱ6/=\T۞nW&tZzZhWyb "=ݻo$Tl7%oNr@A˴zros<xy٧_%|O{3j^*LEzÔ}pR>2* I)XBT)ZVh;OrZjPt٦4ӨSQJ 2a;1m.xIs;oZu̘YPab2'm%E"&(I@0P|&*sbnU3YRA,LLTp9@$2%/)U!QfQ"9 IJ\m il, PI-0 mFGQ3"1K`UfIVfߙҋH/RHI.s$,씉RJ Q$ Ιz^M;P G3 0* [ ERf0q*B'*kg{!j2ԙdҐʹfˎPI d}̈́LSf6 jm}8[e\ oe_Њ ʬB#ˇLׇ?|xv(vz 3rl&Bdz3P~)5D6Ķ>ŚaoS} .JE2Sm'd'Q.Nxn{fʣ3'-5HñI((g9nPzgNԉKD\pMԙd 4 4NJ2q|y&%΀+vPe\ARC"=Lhd6<@#|ZXj#bt\%zSry~NPϷ H Ӂ3ɧƞM3)mdrLuֲhYJsd#ϟNiDžymL88Y[ C5o_<\0|^7~7O_:7w^W<~zz_s/Ǹ],KeU;پwcpv4*7+2/u9QQ&%kH+2-V "|SߝzǗ\{ݩMT%~q95tE+#ݚ/Y@hiOPƺWjBW2g8RJ9 `r.4e˒@!=ʄ{l\$D d N+4qD"dҁ0D#!#% 9png!dp\2W# (iy8S2} l`cJ5 v-#b0CLSIهS7\ UeRd^2\jCvckkYj!r<ߝxe[*C,G߽ATMغo~yq{?=3}G/۪\"н5:йbP:}\ wBuKFo#Q!- Np%嶪S3$@Ҏ`ŶcRNq{jQ `2A !LGp7%}Ԩ =OX bIV(n^??}^ӇG`ٛ)vxy]*J-J%<\,#:eM B p& PDDpe%މ`JA ew03!UWabYʸI<$ NigPf33%![d=tATbTy:<ÈJ8d b%_As SHN$Lt j`EJ%hK#s mp0ɰD&`CX$'%9O̖.Ă$ Q2qprKi'!D"%(J#D ڞ_?Y\VTSHL?3jMwO% |[Y%)hufdi,VȄ@F4KaI,zWwrJUd"Mvmo<>}>M?_cswFHgLLMH2@8Bc)S[X$cl4ц]ci` $M(g=,˱q 91<"GB;u7Jl]QPE.:?+h Δz'-r$\A)3$!J; fJJ 8<)*`c>˶=M*0ͺ y@E =[CK_Ao[- B[(͒<ו_v<}uq[se_t>yX' #Tbw&mKnIpZj"ڦ8&.x>ޔ7juc̅[5I'pc\|HMKRi_f{4r>mD@mЩ_jf7{3t^Nj=O_un_~Y/{;>̯/ˍ&!(B"g\b{JH ۽֚O/Ш|_R-mV,T["(3O__,7,>,k]fxKrDǠyVBJ a$٨\ƴXl~Ԍ# {)jd Ų ! JF*G FE ,U2 FxIFV3K"~t`lj\Ӂ91R#a 瘨NZ H$y Μdj.>r*i"4z͙Fݓ"uTWI3(j;2*Bg`&1IHJf\DqqLDN>S@Zvۅ;R"2GNgl;"RUua3WfXN\u%GɥòM4sk3IXZIǸmا"DZ>_ҏ[k(|FVLQ{/%,m)Ȁ3ĬZשҪ.smceMH,CJApCeLP.L2,6-4.:|7jRh`ڮ뇟RSsϓKޞÝ}8Na[Wn4إ Bᶍdl7GXoͯNN|a0`֤G_{Oߤǔid\g/zmoF{xyx_?~\mOˇ,S_/woի",_v}EWy}l[<HofÓ%TJG.W 2:vTqb_$T|voR_o_orFv(^Y(4V-\5Y)A$億7Jv6sFPCʝP; H(Г'N& !HLq%<8S9S;ʼE9V "cMܡ-EXӘ9$Vx;I!R;f(5,G*'Rr} p- K \H;@C`7V*ÜhrL PIx$5 E2((yL LD#)Kk0qK$I桗9Fנ(+/DHI4k{AuXҷJG-Ȣ TJD5MFk{8\ 5mʼnscl|ݟ|O?_qryn#G:/*Q&~֙ uW"b&䨇R 3Ul2&c)b$L0cKUKMHOR# H Iڰ ReiyufnBJ:ZșU0`ݜ2}&"ωҝGvZ/vY5n<#M{Tr =hlUs-eX.ɹ %"0 m[>Paݶ,.LXG_ن[b%  .Sm7In}rRzAy<_͋*T-Eyo˜&2ݶ1_1|t:rϟPB(sO_qOO۾Mo:`3$D-TS'ݵ㴜h-1ڱӍ~M?ݫ/__;|{c.ԦLUKML!dDcyГ g{m<)@pD;KQ̠̔I|V5H#$ nԉ#B_؇8K9)J8@S!LIF$ !)@2O5mړ JCƎ"Cpq tdd! `ء#XFV(3-[g enw>:huWe+#(9(S##*[޽; y2σUewJv;FK( sL'D/{T k6!-M"TMRile¡RVГ "dA y 7|}0^ cFALdDfc尘m=wfs:rRXZc6̨,b 2nM+xv&dv.l^M X׍rYma^+O,GYꄠ`HTJh!bDomͰv[hZx @b1E(8} 3 NNYA22:93B]k)a)3핤 gg?≊# u+%MC1ԌpV Vf-FF51Qs"NQij^՟~LuS>ؼJLGN6߽>}{|Rv<͇"z^.C<]?DrH)I7(cfM$rN!\91 yQQHth{]ک>R׍?|~/?U~d2]rf{;=GKt"LAE=IRb"˔mC)zY`zx".N7 nn%: Q$3LaKee5)lFX.KdIR'FD(]֗3i= a|,QZհ R TD#(PNHD2YNA^;3`4HD:CA؃W:qK'*AB0J7Hşd TH0+@i8,&KMԪ~pwϻ%p~{qAb1O#FYg~ۊv2 (Rd *$wl i7^M+N( 9 a̹EKig_sڟ&j4Fs)K=-Xјv $"Pj<Beb=8{o%&=rۮ볋8Ķt3w0N; 2T4I<ɯ/([Ŷ;BU|Pm;1ʤ<=u?ߌIJYr$'n#<{B$ZCNJBAnzEw1oEGRUe!H-BD҉ Fnh'cǴ}~RRtmlQv(:ӻwgde.[1ij{:꣋6J̵^.Kݶ,)Lݟsyf|ǯ7sZTi:Iyi>oڨ/mup$r{x#OC?_nϗ2wҸ;u^%Wr{%Ŷ/!^|wz] #cDzxUgqa|n`R,Zo8VUfF)Y//矟{?<Ɨ mo>Ö豤ZۣU'z#4kE<:+k&ʓ["TY S )=Ob"pPG4 gJˁ$0Ѷ9񐶦0'[֣NKa7/.Dȩ|'yMY/{xnk7_׬3 ",yn 0|(54Y5PYb8v$(ujWsokW"7=9vߗoң ɬLH$bۖ1%EUKm͓.ZK-R 3sއgxĘ&Y&x:p `$>'cJGn4HKB>unGXw6?|N\DنosiK%,k{r+|5xx[DyT40ȷ2͟>|Y TĭMZi|vr~pлemr{zY}n =$nԖӃ0(rwhs}5o+pϯ?͇o|v]i96,m_=ד>}:ua#ח?+}IT-n/DǾ# -w#Zc w-[|KZ>uybK\#r^Hgz7{5+fsEJh**UT JљgTA4N ai cdm5@^l%4O-WH D6=$s+,uO {vjF1_9gBFnK2'nI<$;﵈mBa!"ig3 חۗ(A\[YQ橺R["Hx_M' $)"*8y7/.^u)5K/tw}enQpz`Nǻo 4iM#CD!rW||MQ,W//}xYwwNٸX;,,Dw_0KiK߬,`:~soWb>.{n7Cg۴4T`o'^ט>Y^be52Y0skoNO˻ͯޝ_uYPRIgR&ڬ&&͉L%dr&iEGN 5y`Aw8k왃KuB52JMi *<_@#=X48LlءQ,23J&D.$UzklL0c{H=upzlHɒA`컧{[x7➑\4)CؘO{$D8@*})ˆ`6AsVg&j܍ Ap01RFhVP"89$DB6RѲ?>?xu\xUaJQ0OLB n#SIEzR\"7H K~[iI}m+tl"zIJD9leHm5*NXy my~FM5#ġZ"cyݫ/?n&3m9b[ ~|rw}{}9PlvuuV=5|ֽ1nߞ?_//֖;d{˿>nqU\Xm:L:g9\_#{cUIܷ숩hZ!¾g$ ^6޺'p^NayofWoxx>RتbRmeIQKi$LJPQ "&I&4P5 (#_"KՆ؁^8h83TxvL87c5;ÁZu7~Nv#<Hy>7FUn͒B%CdtCm9rc,L1W3Ti>kKirdV*SpÉcCGJsn7 %ڑ(H`(I8k, 8HJTJp+!AJ^H=(uJ_YTZ%;iH'QA)@ㅊ4r#cJNδwÉ7R&:sL`)9 waA Q&G"ev"g *`Q"!$A, I|,=@DҥL!^D4U7\1q0lU ѪRmm~Pgg*eߗ,}nگe5*8&ZqF(x8J3py|lױi>?<_XmnG잕 ,noX*^9rvnd,)uE/W3vS߮y_roOcqo_p~ρx8|<<}}~_߾^n3?pXR-L<Z){wJcH.O:Tn2|jɡ:K_)9Tf.Npu*\kmJ^"L T6 12@JvYZr oT.K` $䞍8 II^C@!0yF #cG &#=fP+DU)cR vL%#7#DG.3zg&o3EwA bDaBѶ%3BNs"i\jQ0fS R3NΕI(a\%F JElp"΢H%m4j"$HB)LDɬD JN= 2"H.v_oaUJ$|DRfĀ\*yHkCصEf;' QHwZ"'Aٖeu&fYާ1ss4$PRE#n4"!w37sޫs9 J@XiܣM^.;}[vY_-ZTdąY=idm}0.Ck`0NȎkZ!% &X& c)b+EmǴ2fC0UΒ` #߭߄GY*nI4^8X[:R,KY8xi۶7~˓͙%FՔr0&@م'Qc0 kQ$IA}K}{>}ؿvszH?^-3kLć3_*3 ѽxE %l$CEsԆ6U 뱖\|y~1cʎ+$Uߍ#ݿyo>̓݇mk)e>~Xpy}%n4n=:xy)/_..sZc-t>vOeǽO>\Re}wc9iXYt\)Ӫo8oK~{NL%&G,e=Դ,$:^xQ"R-:CIf:7Y X߃>rdTፈ3q8* 3rv`,-G CSVӈ:3H1G t#ҀDə `dUNL8@`iv$ s1k_??_FdjfI1̝$t+y8@6ԔU4%-qc|KEykHmtPN6#d4 nc$E ǒT.,BVĥƤ TrbQdb?e,Z{L{ A8z.ѐ|˹&]rHuc 5GNe[ې[ <]-}6dlJ cLv"2H$mͲ§jt}NUE|\!EH NB]7U5>JBXJ"YRČDE tZ`x NRxMvۘ12ջslmߐ&ߛ#Ͼ3{ZRL{SrYܛdMhhZXmhy롮I1r4UAy[<Hq-}_S>Swe*ˈN;>i j}9Y]>>7}7_jO?ߝN}N4Gs㵣y\~0/1r qu]J.c EJR/Uz8-fy=+2dLD !nl,,50$%"$6\UE|3*ktIJ#Q=XT,gY$`>s )))/-lSH}/YN 7".gqnJ؍)0 ;8/2HI=D.~Ș݄k&"'i*aB>EHh5$*JdY' 5EK<# mnԒ`Lʂq#5>S:ׇf!*so\ѐy=>}lْMμpȜDʹoO'9d|uK{?t\55ח&!c^-@tOfW勜z\>&]t~2G⫵|=v|wk=yz3c79Wb R58v(9chL[zln䴊J(T,H*p+D83riʮIb!bp} 11$fx;3{gȅ#AI撒50Jt8{ϔ>}"M@]v{.d̍s@pr"Q`R0JL `%pf# V pN -R!{БH, F`b%TS (Yg qY5a:977 %p;41q&8Q( Ԉ݌@5%۔>_eZy)dS1e,kn»QIeZ H10%@/j0tf&tV1i2ݥ͌Hk )j6!A˩70oN€)gZ4׷Ln}cvi>?7)!>1I˾_j)$TJ<))eDţ19}i;+R}}҈&* ѷٻq%lCH?o|tv뒎HDdI)@iΞ9RpKͮJ9yI• UJqj%&OTפ! ה0@scHdsR&1`l+ч{,}&"ùdIύ0ۥCٯ2SH`iQյ1Cgz3.J>q,l xA.w!o?}ڷ- UYʱ׷wo)/EΟ?q]O_|Qi/{,qwZ۟^ǧf6gAac__>/?Pt񸏩z{zv]>~>]H.s'!3f3+Yھ}b`Qlw% (+XVK]ճ FH(PN=PU\H;Drpb1=$a;Gtp&f1!KPb(C %AD*AJIkzLt'ǠI !sA%'sox< d2:Ky1Ul  9gAL0'ja%o]IRbIyu hcTY+ G!t))ʄA'b{H#Qe ) OO-,)kB),..>A@h% D8lY>nDO?z"εL$щ $Re"bȒf0Gd"MS&D3c:JPaʔ#HUڜn3[38 Ke 'j(פJ)M") mpLcltX%.ae>eP "muXC}Scd'M=%JiUlJ00}AS3r.ICI_'1|vEœgco,sOYi}o;ƒ5XK]7tε"19$J1:v/xeIsUIkh-4@5Y T> ;m?~~U/Ϸ|Uw]*%-1KYcptp/f5WjޅaSȉkGEm?khYkB魻Ԭ_/O6@B٬e9;z]ݻwtmd x˔fww_Q\i/kzlc#\גm>u/}k/)mK)BE?nf~~ǻ<)R~}J˝9N5-59]ei6&âkkRPWM$C1kZ) ,8 8QPO3bI`rMidNQN4^'3Yx85F pێ`>b׋wviLwpaAƅ3^_e,C$b `cAs(qa;bXDPI4މ zLQ=FqPeNT*-r* !r@=y @H A2uX HB+q4DJb$ I,&  )@`'4̌f0"c8?맗n@N4ܩ$] qP  z")8rY#0FT\w>fcn#{{'UhT~)0hSrYp8RT!T!MaAd9%I.項KK v^ն&It6g9}̰{ۉ)">nA;60?Aa*G E͇ ̣,Z氞|ɊF(, iV&{Wmv"z( $R!e DY|9G${5 Y#0SY_I9A I-6t>l`@鴞᛿c~Z^6K܇^7{>^|- aL> e9/:}WV/^nXUP_qt7O_ak}5oW.yWϟ秧/%er5a-#|R9W$NHPN|ZyZ0G>,YSMBоpxx U"&BpPD 7 Bأm9d$6)p$EwMhiz>*Mc^Aꄐvp-`ôuv|)cv0(XgeX631- (Sۃ5x n\2M$umMFy0+c2EptC`4y fwcI1 L#(#5vsIL! DӃ%gN`B^|:8A N-$L=DLnNL I݁׿|量椵"sb*K7К$Kx,O q"cqv}IwEI0bHa &3sD4f"$ah SNTEI.gP#&)KqJ ꀌmXZ/ʭ{}Έm*4iBk<ܤd)5O[*Z9T?o >zm>FDsB`D!fOj "ߑ3j-e0AMiYnx8 KBMhBB9{܀jxz1_u)&g!HLHbkx+fJ֜}.Tv*m&a-n~AS wNfsjBY ^ysE8IXB:Duo?~ip]C|x}Hr1$e׿!wkGֶ.}FE,'l?..o_|vݝnTa||J>63Qv_kyݜ(%TִPP%3ΙX c[OojXR+iǒ͓!'ySVbqP*wy`7&9(H'9 p tRqfAf= 1j>T0y،f44JIi6(8LN"ǘLwDPL )\b"/m*,L 3ZآD}@QoAI2` oHE!Dv=!%ӵ0ME BEWHA 猲<}-$,Y #Y?ӈ tDDTS#ÕevI͢'Iߞ~cTr-ģO!9BKRΞ)皗wr^Z~sP_/HLݷ{{[?/뛘rOR'x\^NovFKy:uk_h}I81Em Ķ޺C|,!P*isZv$DS]mf`]H;lXs"}fǪKf4[krkxn{ץZ~t{Ô\=Y*^s.&׻o!:Op_~bK<뇷 _ϱG8(_yǻ7!:evC:h/ϟ~m%H3޽ og[ HS|ouϟ~ ߟOO??{/?b׻/7Bs]ﺔT.aaLD"pvXr*D'tbщu-%d;Lt2,kFHFk\xD18 4$-Τa '$;c@Y=ķ>',jy0* J̰q`@ fLei ɢanNwDt# uGa aa 83a5)^#2R r`%D`<79{O \IϩN>35Wt#gV ]B< RN UFB#err$&8}p W J&OJs #@E fratDŽ0HɃ$ (HXm{}ӏ)DZ!w̞񨋤,"l$J䔲Qlgaʃ`h8 RN~n QGD؆% jVh `9e2 ͡( J\K0"2 d{pDm!hLT6y5%H^u=?ԻHҤ$#Y#y= !oc߮3eǰN*I}v; +&)@cՋ39!u#މ k,C54$EpeE 3)3yt 1$83㕈\NB34/ӫ!& 3|pk-H1gqblsnZF}xg3,ߩ֜^)fRueM2/~e~cJe]6h7aq'e*,9жFӟS>.V cnr{y~{oͯ/o߽ŗo#t|n6Oz/W'<_KIOoo|ugP]QUϬ[]ߥfpaЍAAiGP@IW-ȝI%ȕDf:h1=h: 3zLF7pqRB)r'rp5! q2prB샼1 @ J̔Cz:/ ꒸$CHf}cvIOnU^>}X#u'p_^Z:H6jMQ;*xjs$oq:]ȳo~/ejIs], \ߤ޿bOHz8Ni{~o~;)Qq\_~gz~x N%֦s8{jUϟ}yWWv|:c.m(8exy8ZݡTf(ej YM{#<照 dÃPIra,90̮"Dpav9EP!c;ϔr ʜvTJ21uNB’-4>#<4 >-"%:A9o06R.D3cAJAmu]fC6ոONAs&&8 G`62i(:-JDHpNN)B+ɍp N_a;'"I@@ a&8Rxw]/i>-cx|Uw+BDRo1v]ra\=D,KD8 \sab·sm8qVS"eR"Ϛ m䔴Rʤ$L(EWfIoCc$ch '/alHvMz8uAKҶ]ch(<=R9'͕e"Z)G`>F. mo=li.tn4͛5$7W}!}iS^kc\? ug6MdђqRr|>n-zH9}gKsZL^[{YE|5g% L<Q`)k"\IiTanS WO1H$11*H;WV[ BpH rW3b.AJ]Ƥ;ÁR#H}NvfJI4-!b ZDgXA+EXS^M82BLf/"̰@B#"F8itĄD$$"'ZUep;#<FPQGkߝ,DJcRO)/p̘>”–Ȋp2,YIS1 -]Y.HFۻMvݳCH 0MjQvK=U\W/_6Tr6IeI=,۰ifk6zÝT<ezw̽Zʚ\wՇT??)(n6ŜX%=?/ qG8q^=ltH?~}P-uIȖ‘&=UC @9[:|]̹H\D]r!>zМR:hylJjՃTn3N$>=fret?{ww_?_.%xURJ_REM_ݴc+岸b}5G-z/ (nۥ͒ڵ^e]e>$pժOWx9a9{{MVRʹ.z!fZy&N9-gڻPd2T<,Kn|mr!gZ-b-G<N ԈH&s e%Q7G&NsR,S=(ś!/Ѯ[&w 's-w0 [Iwz%.t5T/u2 @JMƑP$d܍56:Kvp$.D6a4]h SDK2}& шA`F7F 3A4;_B!&o "ۙaS1SW!*Sfۀ9zÅ(4C&Qrse`f7RTʜ3*E`D0E٨&* !w1b#֣u6=͐ulۥEXr)Sš` 43ddmj$-|T&@FaP#fog7خmgz,_nRט=w#h=dRXZDN%.\|@/Oϛ_KR5S2)( ~6 N\mG:Tՠ$R0IRƺHHmґ fª3$Z#V Hx! XPMңٙb5t5+8aCp>HV6 e c54;߇LnlJhjsNlvM(A+JФz`v"bpdЕB)V*g DIg%RC9"Eu 6/G X i@́HA Σq܅OFt#ڈ k !IĚhO Ad㻻72-qL#B"JKMn-e[K T"D$t?<eU\\)J.#aD} k-h1zg]^nL1Dm݂hϑ4IUX݈9SajIQ! r`7z1Zo/$-I܂&ĎWw_&iӣ3|7OBqcOwSnTB~P:H m:TE.(9.孴<{8ͧ*h[#unm|7)i&91mN\8lw9-\Dp^q~!6n΅l49p}yym7N+|?~x߽dyׄjqX\ڋ>wXn ̲dU wݿq߶kyؐRi!Kzmv,&ip<1g'f,3DL݃",GrD&RnAzFg9-"4jPCL!1)IgN , ؓ#ܡδ9b3&{  s.www_;Z@q,-u=2t;#]9zaAL MǘjĉkeMs^ *Q4!ZqDa.mf|nM֭>B~t볻o)-XDV$vIBT%R$ʚ(aHd/>͹ \N', MATRIX, {a,b}, function(self, ...) local a = self.args[1]:eval(...) local b = self.args[2]:eval(...) return a:clone():gt(b) end, function(self, seed, result) return result end, function(self, dest) local a,b = self.args[1],self.args[2] local str_tbl = { a.var_name, ':clone():gt(', b.var_name, ')' } dest:write_expr_assign(self.var_name, table.concat(str_tbl, "")) end) if a.dims or b.dims then assert( check_dims(a.dims, b.dims), "Incorrect dimensions" ) s:set_dims(a.dims or b.dims) end return s end, fill = function(a,b) local a,b = coercion(a),coercion(b) local s if b.dtype == SCALAR or b.dtype == CONSTANT then s = gen_op('fill', MATRIX, {a,b}, function(self, ...) local a = self.args[1]:eval(...) local b = self.args[2]:eval(...) assert(type(a) == "matrix") assert(type(b) == "number") return matrix.as(a):fill(b) end, function(self, seed, result) return result end, function(self, dest) local a,b = self.args[1],self.args[2] local str_tbl = { 'matrix.as(', a.var_name, '):fill(', b.var_name, ')' } dest:write_expr_assign(self.var_name, table.concat(str_tbl, "")) end) elseif b.dtype == MATRIX then s = gen_op('fill', MATRIX, {a,b}, function(self, ...) local a = self.args[1]:eval(...) local b = self.args[2]:eval(...) assert(type(a) == "matrix") assert(type(b) == "matrix") local result = matrix.as(a) local sw = result:sliding_window{ size=b:dim(), step=b:dim() } local slice while not sw:is_end() do slice = sw:get_matrix(slice) slice:copy(b) sw:next() end return result end, function(self, seed, result) return result end, function(self, dest) local a,b = self.args[1],self.args[2] dest:write_expr_assign(self.var_name, string.format("matrix.as( %s )", a.var_name)) local sw = gen_var_name() dest:write_expr_assign(sw, string.format("%s:sliding_window{ size=%s:dim(), step=%s:dim() }", self.var_name, b.var_name, b.var_name)) local slice = gen_var_name() dest:write_var(slice) dest:write_expr_block(string.format([[ while not %s:is_end() do %s = %s:get_matrix( %s ) %s:copy( %s ) %s:next() end ]], sw, slice, sw, slice, slice, b.var_name, sw)) end) else error("Not recognized dtype: " .. tostring(b.dtype)) end if a.dims then s:set_dims(a.dims) end return s end, sum = function(a,dim) local a,dim = coercion(a),dim and coercion(dim) local s if not dim then s = gen_op('sum', SCALAR, {a}, function(self, ...) local a = self.args[1]:eval(...) assert(type(a) == "matrix") return a:sum() end, function(self, seed, result) local a = self.args[1] a:diff(autodiff.op.fill(a, seed), result) return result end, function(self, dest) local a = self.args[1] local str_tbl = { a.var_name, ':sum()' } dest:write_expr_assign(self.var_name, table.concat(str_tbl, "")) end) else s = gen_op('sum', MATRIX, {a,dim}, function(self, ...) local a = self.args[1]:eval(...) local dim = self.args[2]:eval(...) assert(type(a) == "matrix") assert(type(dim) == "number") return a:sum(dim) end, function(self, seed, result) local a,dim = self.args[1],self.args[2] a:diff(autodiff.op.fill(a, seed), result) return result end, function(self, dest) local a,dim = self.args[1],self.args[2] local str_tbl = { a.var_name, ':sum(', dim.var_name, ')' } dest:write_expr_assign(self.var_name, table.concat(str_tbl, "")) end) end return s end, select = function(a,dim,value) local a,dim,value = coercion(a),coercion(dim),coercion(value) local s = gen_op('select', MATRIX, {a,dim,value}, function(self, ...) local a = self.args[1]:eval(...) local dim = self.args[2]:eval(...) local value = self.args[3]:eval(...) assert(type(a) == "matrix") return a:select(dim,value) end, function(self, seed, result) error("NOT IMPLEMENTED") end, function(self, dest) local a = self.args[1] local dim = self.args[2] local value = self.args[3] local str_tbl = { a.var_name, ':select(', dim.var_name, ',', value.var_name, ')' } dest:write_expr_assign(self.var_name, table.concat(str_tbl, "")) end) -- TODO: modify dims return s end, slice = function(...) local arg = iterator(ipairs(table.pack(...))):select(2):map(coercion):table() local s = gen_op('slice', MATRIX, arg, function(self, ...) local arg = iterator(ipairs(self.args)): select(2):call('eval',...):table() local a = table.remove(arg,1) assert(type(a) == "matrix") return a(table.unpack(arg)) end, function(self, seed, result) local a = self.args[1] local arg = iterator(range(2,#self.args)): map(function(i) return self.args[i] end):table() -- local dest = autodiff.op.fill(self,0) dest = autodiff.op.copy(dest, seed, table.unpack(arg)) a:diff(dest, result) return result end, function(self, dest) local a = self.args[1] local str_tbl = { a.var_name, '(' } table.insert(str_tbl, self.args[2].var_name) for i=3,#self.args do table.insert(str_tbl, ',') table.insert(str_tbl, self.args[i].var_name) end table.insert(str_tbl, ')') dest:write_expr_assign(self.var_name, table.concat(str_tbl, "")) end) -- TODO: modify dims return s end, copy = function(...) local arg = iterator(ipairs(table.pack(...))):select(2):map(coercion):table() local s = gen_op('copy', MATRIX, arg, function(self, ...) local arg = iterator(ipairs(self.args)): select(2):call('eval',...):table() local a = table.remove(arg,1) local b = table.remove(arg,2) assert(type(a) == "matrix") assert(type(b) == "matrix") a = a:clone() if #arg > 0 then a(table.unpack(arg)):copy(b) else a:copy(b) end return a end, function(self, seed, result) return result end, function(self, dest) local a = self.args[1] local b = self.args[2] local str_tbl = { a.var_name, ':clone()' } if #self.args > 2 then table.insert(str_tbl, '(') table.insert(str_tbl, self.args[3].var_name) for i=4,#self.args do table.insert(str_tbl, ',') table.insert(str_tbl, self.args[i].var_name) end table.insert(str_tbl, ')') end table.insert(str_tbl, ':copy(') table.insert(str_tbl, b.var_name) table.insert(str_tbl, ')') dest:write_expr_assign(self.var_name, table.concat(str_tbl, "")) end) -- TODO: modify dims return s end, get = function(...) local arg = iterator(ipairs(table.pack(...))):select(2):map(coercion):table() local s = gen_op('get', SCALAR, arg, function(self, ...) local arg = iterator(ipairs(self.args)): select(2):call('eval', ...):table() local a = table.remove(arg,1) assert(type(a) == "matrix") return a:get(table.unpack(arg)) end, function(self, seed, result) local a = self.args[1] local arg = iterator(range(2,#self.args)): map(function(i) return self.args[i] end):table() local aux = autodiff.op.fill(a, 0) aux = autodiff.op.copy(aux,seed,table.unpack(arg)) a:diff(aux, result) return result end, function(self, dest) local a = self.args[1] local str_tbl = { a.var_name, ':get(' } table.insert(str_tbl, self.args[2].var_name) for i=3,#self.args do table.insert(str_tbl, ',') table.insert(str_tbl, self.args[i].var_name) end table.insert(str_tbl, ')') dest:write_expr_assign(self.var_name, table.concat(str_tbl, "")) end) return s end, sign = function(a) local a = coercion(a) local s = gen_op('sign', MATRIX, {a}, function(self, ...) local a = self.args[1]:eval(...) assert(type(a) == "matrix") return a:clone():sign() end, function(self, seed, result) return result end, function(self, dest) local a = self.args[1] local str_tbl = { a.var_name, ':clone():sign()' } dest:write_expr_assign(self.var_name, table.concat(str_tbl, "")) end) if a.dims then s:set_dims(a.dims) end return s end, abs = function(a) local a = coercion(a) local s = gen_op('abs', MATRIX, {a}, function(self, ...) local a = self.args[1]:eval(...) assert(type(a) == "matrix") return a:clone():abs() end, function(self, seed, result) local a = self.args[1] local sign = autodiff.op.sign(self) a:diff(autodiff.op.cmul(sign,seed), result) return result end, function(self, dest) local a = self.args[1] local str_tbl = { a.var_name, ':clone():abs()' } dest:write_expr_assign(self.var_name, table.concat(str_tbl, "")) end) if a.dims then s:set_dims(a.dims) end return s end, size = function(a) local a = coercion(a) local s = gen_op('size', SCALAR, {a}, function(self, ...) local a = self.args[1]:eval(...) assert(type(a) == "matrix") return a:size() end, function(self, seed, result) return result end, function(self, dest) local a = self.args[1] local str_tbl = { a.var_name, ':size()' } dest:write_expr_assign(self.var_name, table.concat(str_tbl, "")) end) if a.dims then s:set_dims(a.dims) end return s end, mean = function(a) return autodiff.op.sum(a) / autodiff.op.size(a) end, max = function(a) local a = coercion(a) local s = gen_op('max', SCALAR, {a}, function(self, ...) local a = self.args[1]:eval(...) assert(type(a) == "matrix") return a:clone():max() end, function(self, seed, result) local a = self.args[1] local argmax = autodiff.op.argmax(a) local out = autodiff.op.fill(a,0) local out = autodiff.op.copy(out, seed, argmax) a:diff(out, result) return result end, function(self, dest) local a = self.args[1] local str_tbl = { a.var_name, ':clone():max()' } dest:write_expr_assign(self.var_name, table.concat(str_tbl, "")) end) if a.dims then s:set_dims(a.dims) end return s end, argmax = function(a) local a = coercion(a) local s = gen_op('argmax', SCALAR, {a}, function(self, ...) local a = self.args[1]:eval(...) assert(type(a) == "matrix") return select(2,a:clone():max()) end, function(self, seed, result) return result end, function(self, dest) local a = self.args[1] local str_tbl = { 'select(2,', a.var_name, ':clone():max())' } dest:write_expr_assign(self.var_name, table.concat(str_tbl, "")) end) if a.dims then s:set_dims(a.dims) end return s end, } ------------------------------------------------------------------------------ ------------------------------------------------------------------------------ ------------------------------------------------------------------------------ local function cmul_general_optimization(...) for node in autodiff.graph_iterators.post_order_traversal(...) do if node.isop == '.*' then -- modify the current symbol with all the stored additions at flat_mul local constant = autodiff[CONSTANT](1) local scalar = autodiff[CONSTANT](1) local exp = autodiff[CONSTANT](0) local vd = {} local function count(a,b) local b = b or autodiff[CONSTANT](1) if a.dtype == CONSTANT then constant = constant * a^b elseif a.dtype == SCALAR then scalar = scalar * a^b else vd[a] = (vd[a] or autodiff[CONSTANT](0)) + b end end local function child_traverse(child) if child.isop == '.*' then for i,v in child:arg_ipairs() do child_traverse(v) end elseif child.isop == '.^' then count(child.args[1], child.args[2]) elseif child.isop == 'exp' then exp = exp + child.args[1] else count(child) end end child_traverse(node) -- modify the current symbol with all the stored multiplications local vars = iterator(pairs(vd)):select(1):table() -- canonical form (sorted) table.sort(vars) -- new symbol local new_node = constant * scalar if exp ~= autodiff[CONSTANT](0) then new_node = autodiff.op.cmul(new_node, autodiff.op.exp(exp)) end for i,v in ipairs(vars) do new_node = autodiff.op.cmul(new_node, (v^vd[v])) end -- substitution if new_node ~= node then node:replace(new_node) end end -- if node.isop == '.*' end -- if node in post_order_traversal end local function pow_matrix_optimization(...) for node in autodiff.graph_iterators.post_order_traversal(...) do if node.isop == '.^' and node.dtype == MATRIX then local a,b = node.args[1],node.args[2] if a.isop == '.^' and a.dtype == MATRIX then local new_node = a.args[1]^(b*a.args[2]) -- substitution if new_node ~= node then node:replace(new_node) end end end -- if node.isop == '^' end -- for node in post_order_traversal end local function exp_matrix_optimization(...) for node in autodiff.graph_iterators.post_order_traversal(...) do if node.isop == '.^' and node.dtype == MATRIX then local a,b = node.args[1],node.args[2] if a.isop == 'exp' and a.dtype == MATRIX then local new_node = autodiff.op.exp(a.args[1]*b) -- substitution if new_node ~= node then node:replace(new_node) end end end -- if node.isop == '^' end -- for node in post_order_traversal end -- register optimizations autodiff.optdb.register_global(cmul_general_optimization) autodiff.optdb.register_global(pow_matrix_optimization) autodiff.optdb.register_global(exp_matrix_optimization) april-ann-0.3.1/packages/autodiff/autodiff/lua_src/scalar.lua000066400000000000000000000255151234204160600241620ustar00rootroot00000000000000local CONSTANT = autodiff.dtypes.CONSTANT local SCALAR = autodiff.dtypes.SCALAR local MATRIX = autodiff.dtypes.MATRIX local TABLE = autodiff.dtypes.TABLE local STRING = autodiff.dtypes.STRING -- local gen_var_name = autodiff.gen_var_name local coercion = autodiff.coercion local gen_op = autodiff.gen_op -- SCALAR autodiff[SCALAR] = function(names) return autodiff.symbol(names, SCALAR) end -- SCALAR OPERATIONS autodiff.op[SCALAR] = { -- basic math operations add = function(a,b) local a,b = coercion(a),coercion(b) -- simplifications if bgetRawDataAccess()->getPPALForRead(); if (mat->getNumDim() != 2 || mat->getDimSize(0) != 3 || mat->getDimSize(1) != 3) { LUABIND_ERROR("2D affine transform matrix must be 3x3"); } if (data[6] != 0 || data[7] != 0 || data[8] != 1) { LUABIND_FERROR3("Bottom row of the 2D affine transform matrix must be [0 0 1] " "([%f %f %f] found)", data[6], data[7], data[8]); } obj = new AffineTransform2D(mat); } LUABIND_RETURN(AffineTransform2D, obj); } //BIND_END //BIND_DESTRUCTOR AffineTransform2D { } //BIND_END //BIND_METHOD AffineTransform2D accumulate { LUABIND_CHECK_ARGN(==, 1); AffineTransform2D *other; LUABIND_GET_PARAMETER(1, AffineTransform2D, other); obj->accumulate(other); LUABIND_RETURN(AffineTransform2D, obj); } //BIND_END //BIND_METHOD AffineTransform2D rotate { int argn = lua_gettop(L); if (argn == 1) { float angle; LUABIND_GET_PARAMETER(1, float, angle); obj->rotate(angle); } else if (argn == 3) { float angle, center_x, center_y; LUABIND_GET_PARAMETER(1, float, angle); LUABIND_GET_PARAMETER(2, float, center_x); LUABIND_GET_PARAMETER(3, float, center_y); obj->rotate(angle, center_x, center_y); } else { LUABIND_ERROR("rotate accepts only 1 or 3 arguments"); } LUABIND_RETURN(AffineTransform2D, obj); } //BIND_END //BIND_METHOD AffineTransform2D scale { LUABIND_CHECK_ARGN(==, 2); float x, y; LUABIND_GET_PARAMETER(1, float, x); LUABIND_GET_PARAMETER(2, float, y); obj->scale(x, y); LUABIND_RETURN(AffineTransform2D, obj); } //BIND_END //BIND_METHOD AffineTransform2D translate { LUABIND_CHECK_ARGN(==, 2); float x, y; LUABIND_GET_PARAMETER(1, float, x); LUABIND_GET_PARAMETER(2, float, y); obj->translate(x, y); LUABIND_RETURN(AffineTransform2D, obj); } //BIND_END //BIND_METHOD AffineTransform2D shear { LUABIND_CHECK_ARGN(==, 2); float angle_x, angle_y; LUABIND_GET_PARAMETER(1, float, angle_x); LUABIND_GET_PARAMETER(2, float, angle_y); obj->shear(angle_x, angle_y); LUABIND_RETURN(AffineTransform2D, obj); } //BIND_END //BIND_METHOD AffineTransform2D transform { LUABIND_CHECK_ARGN(==, 2); float x, y, dstx, dsty; LUABIND_GET_PARAMETER(1, float, x); LUABIND_GET_PARAMETER(2, float, y); obj->transform(x,y, &dstx, &dsty); LUABIND_RETURN(float, dstx); LUABIND_RETURN(float, dsty); } //BIND_END april-ann-0.3.1/packages/basics/AffineTransform2D/c_src/000077500000000000000000000000001234204160600227575ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/AffineTransform2D/c_src/affine_transform.cc000066400000000000000000000060131234204160600266110ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Jorge Gorbe Moya, Salvador España-Boquera * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "affine_transform.h" #include const int AffineTransform2D::dimensions[2] = {3,3}; /// Identity transform AffineTransform2D::AffineTransform2D(): MatrixFloat(2, dimensions) { zeros(); MatrixFloat::random_access_iterator data(this); data(0,0) = 1.0f; data(1,1) = 1.0f; data(2,2) = 1.0f; } AffineTransform2D::AffineTransform2D(MatrixFloat *mat): MatrixFloat(mat) { april_assert("AffineTransform2D: Matrix must be 3x3" && numDim == 2 && matrixSize[0] == 3 && matrixSize[1] == 3); april_assert("AffineTransform2D: Last row must be [0 0 1]" && (*this)(2,0) == 0 && (*this)(2,1) == 0 && (*this)(2,2) == 1); } AffineTransform2D *AffineTransform2D::accumulate(AffineTransform2D *other) { MatrixFloat *this_clone = this->clone(); IncRef(this_clone); this->gemm(CblasNoTrans, CblasNoTrans, 1.0f, other, this_clone, 0.0f); DecRef(this_clone); return this; } AffineTransform2D *AffineTransform2D::rotate(float angle) { AffineTransform2D trans; // 3x3 identity trans(0,0) = cosf(angle); trans(0,1) = -sinf(angle); trans(1,0) = sinf(angle); trans(1,1) = cosf(angle); accumulate(&trans); return this; } AffineTransform2D *AffineTransform2D::rotate(float angle, float center_x, float center_y) { translate(-center_x, -center_y); rotate(angle); translate(center_x, center_y); return this; } AffineTransform2D *AffineTransform2D::translate(float x, float y) { AffineTransform2D trans; // 3x3 identity trans(0,2) = x; trans(1,2) = y; accumulate(&trans); return this; } AffineTransform2D *AffineTransform2D::scale(float x, float y) { AffineTransform2D trans; // 3x3 identity trans(0,0) = x; trans(1,1) = y; accumulate(&trans); return this; } AffineTransform2D *AffineTransform2D::shear(float x, float y) { AffineTransform2D trans; // 3x3 identity trans(0,1) = tanf(x); trans(1,0) = tanf(y); accumulate(&trans); return this; } void AffineTransform2D::transform(float x, float y, float *dst_x, float *dst_y) const { MatrixFloat::const_random_access_iterator data(this); float res_x = data(0,0)*x+data(0,1)*y+data(0,2); float res_y = data(1,0)*x+data(1,1)*y+data(1,2); *dst_x=res_x; *dst_y=res_y; } april-ann-0.3.1/packages/basics/AffineTransform2D/c_src/affine_transform.h000066400000000000000000000027621234204160600264620ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Jorge Gorbe Moya, Salvador España-Boquera * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef AFFINE_TRANSFORM_H #define AFFINE_TRANSFORM_H #include "matrixFloat.h" class AffineTransform2D: public MatrixFloat { public: AffineTransform2D(); AffineTransform2D(MatrixFloat *mat); ~AffineTransform2D() {} AffineTransform2D *accumulate(AffineTransform2D *other); AffineTransform2D *rotate(float angle); AffineTransform2D *rotate(float angle, float center_x, float center_y); AffineTransform2D *translate(float x, float y); AffineTransform2D *scale(float x, float y); AffineTransform2D *shear(float angle_x, float angle_y); void transform(float x, float y, float *dstx, float *dsty) const; private: static const int dimensions[2]; }; #endif april-ann-0.3.1/packages/basics/AffineTransform2D/lua_src/000077500000000000000000000000001234204160600233165ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/AffineTransform2D/lua_src/affine_transform.lua000066400000000000000000000016711234204160600273510ustar00rootroot00000000000000AffineTransform2D.meta_instance.__tostring = function(self) local dims = self:dim() local major = self:get_major_order() local coords = {} local out = {} local row = {} for i=1,#dims do coords[i]=1 end for i=1,self:size() do if #dims > 2 and coords[#dims] == 1 and coords[#dims-1] == 1 then table.insert(out, string.format("\n# pos [%s]", table.concat(coords, ","))) end table.insert(row, string.format("% -11.6g", self:get(table.unpack(coords)))) local j=#dims+1 repeat j=j-1 coords[j] = coords[j] + 1 if coords[j] > dims[j] then coords[j] = 1 end until j==1 or coords[j] ~= 1 if coords[#coords] == 1 then table.insert(out, table.concat(row, " ")) row={} end end table.insert(out, string.format("# AffineTransform2D of size [%s] in %s [%s]", table.concat(dims, ","), major, self:get_reference_string())) return table.concat(out, "\n") end april-ann-0.3.1/packages/basics/AffineTransform2D/package.lua000066400000000000000000000020721234204160600237650ustar00rootroot00000000000000 package{ name = "AffineTransform2D", version = "1.0", depends = { "util", "matrix" }, keywords = { "AffineTransform2D" }, description = "An affine transform class", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_affine_transform.lua.cc", dest_dir = "include" } }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_affine_transform.lua.cc", dest_dir = "build", } }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/basics/cmdOpt/000077500000000000000000000000001234204160600176425ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/cmdOpt/lua_src/000077500000000000000000000000001234204160600212725ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/cmdOpt/lua_src/cmdOpt.lua000066400000000000000000000313301234204160600232230ustar00rootroot00000000000000-- See the test file for details -- A cmdOpt object is created and two main methods can be used: -- - Generate help message -- - parse arguments, which returns string (error) or a table -- There are short (1 letter) and long options -- The following formats are accepted: -- -c if c does not require arguments -- -cdef if c,d,e and f does not require arguments -- -cdefblah if c,d,e does not require arguments and f can accept arguments -- --longoption --longoption=value -- long options can use a prefix is there is non ambiguity -- the void long option "--" can be used to stop option list -- a lua class: local cmdopt_methods, cmdopt_class_metatable = class("cmdOpt") function cmdopt_methods:add_option(option) -- option is a table with the following parameters: -- index_name -> name of option in result table -- description -> useful to generate help description -- filter -> nil or a function to filter the value -- action -> to execute with the option value -- short -> a single letter, without "-", several options are allowed -- long -> name of long option -- mode -> 'usergiven' 'always', default 'usergiven' -- argument -> 'yes','no','optional' -- default_value -> default value when argument ~= 'no' local opt = get_table_fields( { filter = { type_match="function", default=nil }, action = { type_match="function", default=nil }, index_name = { type_match="string" }, description = { mandatory=true, type_match="string" }, argument = { mandatory=true, type_match="string" }, argument_name = { type_match="string", default="VALUE" }, mode = { type_match="string", default="usergiven" }, default_value = { default=nil }, short = { default=nil }, long = { default=nil }, }, option) assert(opt.argument=="yes" or opt.argument=="no" or opt.argument=="optional" or opt.argument==nil, "Expected 'yes', 'no', 'optional' or nil in argument field") assert(opt.short or opt.long, "It is mandatory to give a long or a short field") opt.short,opt.long=nil,nil table.insert(self.options,opt) -- insert options in list -- assert(opt.mode=="always" or opt.mode=="usergiven", "Given incorrect mode '"..tostring(opt.mode).."'. Use 'usegiven' or 'always'") -- if opt.default_value and not opt.mode=="always" then error("default_value only allowed if mode='always', otherwise is forbidden") end -- local shorts = option.short if shorts then if type(shorts) == "string" then shorts = { shorts } end if type(shorts) ~= "table" then error("cmdOpt constructor") end for i,letter in ipairs(shorts) do if #letter ~= 1 or letter == '-' then error("cmdOpt: bad short option '"..letter.."'") end if self.short_options[letter] ~= nil then error("cmdOpt: short option '"..letter.."'already defined") end self.short_options[letter] = opt end opt.short_options = shorts end -- local longs = option.long if longs then if type(longs) == "string" then longs = { longs } end if type(longs) ~= "table" then error("cmdOpt constructor") end for i,str in ipairs(longs) do if #str == 0 then error("cmdOpt: long option must have size >0") end if self.long_options[str] ~= nil then error("cmdOpt: long option '"..str.."'already defined") end self.long_options[str] = opt end end opt.long_options = longs end -- constructor -- tbl is a table with the following arguments: -- posix_mode -> true in order to stop -- program_name -> a string -- argument_description -> string, description of positional arguments -- the "vector part" of tbl are just options to add with add_option function cmdopt_class_metatable:__call(tbl) local obj = { options = {}, -- lista de opciones short_options = {}, -- diccionario opciones cortas long_options = {}, -- diccionario opciones largas posix_mode = tbl.posix_mode or false, program_name = tbl.program_name or arg[0], argument_description = tbl.argument_description or "positional_arguments", main_description = tbl.main_description or "", author = tbl.author or "", copyright = tbl.copyright or "", see_also = tbl.see_also or "", } obj = class_instance(obj, self, true) for i,option in ipairs(tbl) do obj:add_option(option) end return obj end -- cool function to generate the help text function cmdopt_methods:generate_help() local message = {} table.insert(message,"USAGE:\n\t"..self.program_name) for i,opt in ipairs(self.options) do local total = 0 if opt.short_options then total = #opt.short_options end if opt.long_options then total = total+#opt.long_options end local remains=total if (total>0) then local mandatory = (opt.mode == "always" and not opt.default_value) table.insert(message, ((not mandatory and " [") or " ")..(total>1 and "(" or "")) for j,short in ipairs(opt.short_options or {}) do local str="-"..short if opt.argument == "yes" then str=str..opt.argument_name elseif opt.argument ~= "no" then str=str.."["..opt.argument_name.."]" end remains=remains-1 if remains>0 then str=str.."|" end table.insert(message,str) end if opt.long_options then for j,long in ipairs(opt.long_options or {}) do local str="--"..long if opt.argument == "yes" then str=str.."="..opt.argument_name elseif opt.argument ~= "no" then str=str.."[="..opt.argument_name.."]" end remains=remains-1 if remains>0 then str=str.."|" end table.insert(message,str) end end table.insert(message,(total>1 and ")" or "").. ((not mandatory and "]") or " ")) end end table.insert(message," ") table.insert(message,self.argument_description) table.insert(message,"\n\nDESCRIPTION:\n") if self.main_description ~= "" then table.insert(message,"\t"..self.main_description.."\n\n") end -- usage line is finished, now we proceed to describe every argument: for i,opt in ipairs(self.options) do local total = 0 if opt.short_options then total = #opt.short_options end if opt.long_options then total = total+#opt.long_options end local remains=total if (total>0) then local mandatory = (opt.mode == "always" and not opt.default_value) table.insert(message,"\t") for j,short in ipairs(opt.short_options or {}) do local str="-"..short if opt.argument == "yes" then str=str..opt.argument_name elseif opt.argument ~= "no" then str=str.."["..opt.argument_name.."]" end remains=remains-1 if remains>0 then str=str..", " end table.insert(message,str) end if opt.long_options then for j,long in ipairs(opt.long_options or {}) do local str="--"..long if opt.argument == "yes" then str=str.."="..opt.argument_name elseif opt.argument ~= "no" then str=str.."[="..opt.argument_name.."]" end remains=remains-1 if remains>0 then str=str..", " end table.insert(message,str) end end if opt.default_value == nil then table.insert(message,"\t "..(opt.description or "").. ((not mandatory and " "..ansi.fg["green"].."(optional)") or "")..ansi.fg["default"].."\n") else table.insert(message,"\t "..(opt.description or "").. ((not mandatory and " "..ansi.fg["green"].."(optional)") or "").." [DEFAULT: ".. tostring(opt.default_value) .. "]".. ansi.fg["default"].."\n") end end end if self.author ~= "" then table.insert(message,"AUTHOR\n\t"..self.author.."\n\n") end if self.copyright ~= "" then table.insert(message,"COPYRIGHT\n\t"..self.copyright.."\n\n") end if self.see_also ~= "" then table.insert(message,"SEE ALSO\n\t"..self.see_also.."\n\n") end return table.concat(message) end -- auxiliary method function cmdopt_methods:search_long_option(str) -- prefer exact match if self.long_options[str] then return self.long_options[str] end -- search for prefixes local strlen = #str local found for optname,opt in pairs(self.long_options) do if string.sub(optname,1,strlen) == str then if found ~= nil then -- hay conflicto, el prefijo es ambiguo return nil else found = opt end end end return found end -- main method, returns a table with positinal and rest of arguments -- actions are simply executed before return, or throws an error function cmdopt_methods:parse_without_check(arguments) local arguments = arguments or arg -- arg is the global variable local opt_list = {} -- list of options to process local result = {} -- result table local consider_options = true local pos=1 local nargs=#arguments local i=1 while i<=nargs do local key,value,opt local str = arguments[i] if consider_options and string.sub(str, 1, 2) == "--" then -- long option local pos = string.find(str, "=", 1, true) if pos then key = string.sub(str, 3, pos-1) value = string.sub(str, pos+1) else key = string.sub(str, 3) end --printf("jarl key %s value %s",key,value or "nil") if key == "" then -- "--" is used to stop considering options consider_options = false else -- search long option (prefix) in table: opt = self:search_long_option(key) assert(opt,"ambiguous or non-existent long option: "..str) if opt.argument == "no" then april_assert(value == nil, "long option '%s' has no arguments but received argument %s", key,value) value = true end assert(opt.argument ~= "yes" or value ~= nil, "long option '"..key.."' has obligatory argument") -- guardamos opt y value para procesar table.insert(opt_list,{opt,value}) end elseif consider_options and string.sub( str, 1, 1 ) == "-" then -- short option -- vamos a procesar las opciones de izquierda a derecha -- mientras encontremos opciones sin argumentos -- si encontramos una opcion con argumento opcional u -- obligatorio procesamos el resto de la cadena como su valor, a -- menos que sea el ultimo caracter, en cuyo caso tomamos el -- argumento siguiente como su valor solamente en caso de tener -- argumento obligatorio local j=2 local strlen = #str local go_on = true while j<=strlen and go_on do key = string.sub(str, j, j) opt = self.short_options[key] assert(opt, "short option '"..key.."' not found") if opt.argument == 'no' then -- store opt and value to process later value = true else -- argument is obligatory or optional go_on = false -- stop -- let's see the rest of the string value = string.sub( str, j+1 ) if value == "" and opt.argument == 'yes' then i=i+1 assert(i<=nargs,"short option '"..key.."' expects obligatory argument") value = arguments[i] end end table.insert(opt_list,{opt,value}) j=j+1 end -- while that traverses string else -- if else that check "-" and "--" table.insert(result,str) -- positional argument if self.posix_mode then consider_options = false end end i = i+1 end -- while inumber; } else if (lua_isstring(L, n)) { const char *str; LUABIND_GET_PARAMETER(n, string, str); LuaComplexFNumber aux(str); return aux.number; } else if (lua_isnumber(L, n)) { float aux; LUABIND_GET_PARAMETER(n, float, aux); return ComplexF(aux, 0.0f); } else LUABIND_ERROR("Incorrect Lua complex representation, use string " "or complex object"); return ComplexF(); } #undef FUNCTION_NAME void lua_pushComplexF(lua_State *L, const ComplexF &number) { LuaComplexFNumber *obj = new LuaComplexFNumber(number); lua_pushLuaComplexFNumber(L, obj); } //BIND_END //BIND_HEADER_H #include "referenced.h" #include "complex_number.h" #include "error_print.h" #include "constString.h" struct LuaComplexFNumber : public Referenced { private: // Automaton which interprets a string like this regexp: N?[+-]N?i enum STATES { INITIAL, NUMBER, SIGN, NUMBER_SIGN, NUMBER_NUMBER, FINAL, ERROR }; enum TOKENS { TOKEN_FLOAT, TOKEN_SIGN, TOKEN_I, TOKEN_UNKOWN, TOKEN_END }; TOKENS getToken(constString &cs, float &num, char &sign) { if (cs.empty()) return TOKEN_END; char ch; if (cs.extract_float(&num)) return TOKEN_FLOAT; if (cs.extract_char(&ch)) { if (ch == '+' || ch == '-') { sign=ch; return TOKEN_SIGN; } else if (ch == 'i') return TOKEN_I; } return TOKEN_UNKOWN; } public: ComplexF number; LuaComplexFNumber(const ComplexF &number) : Referenced(), number(number) { } LuaComplexFNumber(const char *str) : Referenced() { float num; char sign='+'; // initialized to avoid compilation warning constString cs(str); STATES state = INITIAL; TOKENS token; while(state != FINAL && state != ERROR) { token = getToken(cs,num,sign); switch(state) { case INITIAL: switch(token) { case TOKEN_FLOAT: number.real()=num; state=NUMBER; break; case TOKEN_I: number.real()=0.0f; number.img()=1.0f; state=FINAL; break; case TOKEN_SIGN: number.real()=0.0f; state=SIGN; break; default: state=ERROR; } break; case NUMBER: switch(token) { case TOKEN_FLOAT: number.img()=num; state=NUMBER_NUMBER; break; case TOKEN_I: number.img()=number.real(); number.real()=0.0f; state=FINAL; break; case TOKEN_SIGN: state=NUMBER_SIGN; break; case TOKEN_END: number.img()=0.0f; state=FINAL; break; default: state=ERROR; } break; case SIGN: switch(token) { case TOKEN_I: number.img()=(sign=='+')?1.0f:-1.0f; state=FINAL; break; default: state=ERROR; } break; case NUMBER_NUMBER: switch(token) { case TOKEN_I: state=FINAL; break; default: state=ERROR; } break; case NUMBER_SIGN: switch(token) { case TOKEN_I: number.img()=(sign=='+')?1.0f:-1.0f; state=FINAL; break; default: state=ERROR; } break; default: state=ERROR; } } if (state == ERROR || !cs.empty()) ERROR_EXIT1(256, "Incorrect complex string format '%s'\n",str); } }; // This function is to be used with LUABIND_GET_.... macros ComplexF lua_toComplexF(lua_State *L, int n); // This function is to be used with LUABIND_GET_.... macros bool lua_isComplexF(lua_State *L, int n); void lua_pushComplexF(lua_State *L, const ComplexF &number); //BIND_END //BIND_LUACLASSNAME LuaComplexFNumber complex //BIND_CPP_CLASS LuaComplexFNumber //BIND_CONSTRUCTOR LuaComplexFNumber { int argn = lua_gettop(L); // number of arguments if (argn == 2) { ComplexF number; LUABIND_GET_PARAMETER(1, float, number.real()); LUABIND_GET_PARAMETER(2, float, number.img()); obj = new LuaComplexFNumber(number); } else if (argn == 1) { const char *str; LUABIND_GET_PARAMETER(1, string, str); obj = new LuaComplexFNumber(str); } else { LUABIND_FERROR1("Incorrect number of arguments, expected 1 or 2, found %d", argn); } LUABIND_RETURN(LuaComplexFNumber, obj); } //BIND_END //BIND_METHOD LuaComplexFNumber clone { LuaComplexFNumber *other = new LuaComplexFNumber(obj->number); LUABIND_RETURN(LuaComplexFNumber, other); } //BIND_END //BIND_METHOD LuaComplexFNumber eq { LuaComplexFNumber *other; LUABIND_GET_PARAMETER(1, LuaComplexFNumber, other); LUABIND_RETURN(bool, obj->number == other->number); } //BIND_END //BIND_METHOD LuaComplexFNumber mul { LuaComplexFNumber *other, *result; LUABIND_GET_PARAMETER(1, LuaComplexFNumber, other); result = new LuaComplexFNumber( obj->number * other->number ); LUABIND_RETURN(LuaComplexFNumber, result); } //BIND_END //BIND_METHOD LuaComplexFNumber add { LuaComplexFNumber *other, *result; LUABIND_GET_PARAMETER(1, LuaComplexFNumber, other); result = new LuaComplexFNumber( obj->number + other->number ); LUABIND_RETURN(LuaComplexFNumber, result); } //BIND_END //BIND_METHOD LuaComplexFNumber sub { LuaComplexFNumber *other, *result; LUABIND_GET_PARAMETER(1, LuaComplexFNumber, other); result = new LuaComplexFNumber( obj->number - other->number ); LUABIND_RETURN(LuaComplexFNumber, result); } //BIND_END //BIND_METHOD LuaComplexFNumber div { LuaComplexFNumber *other, *result; LUABIND_GET_PARAMETER(1, LuaComplexFNumber, other); result = new LuaComplexFNumber( obj->number / other->number ); LUABIND_RETURN(LuaComplexFNumber, result); } //BIND_END //BIND_METHOD LuaComplexFNumber neg { LuaComplexFNumber *result; result = new LuaComplexFNumber( -obj->number ); LUABIND_RETURN(LuaComplexFNumber, result); } //BIND_END //BIND_METHOD LuaComplexFNumber conj { obj->number.conj(); LUABIND_RETURN(LuaComplexFNumber, obj); } //BIND_END //BIND_METHOD LuaComplexFNumber exp { LuaComplexFNumber *result = new LuaComplexFNumber( obj->number.expc() ); LUABIND_RETURN(LuaComplexFNumber, result); } //BIND_END //BIND_METHOD LuaComplexFNumber real { LUABIND_RETURN(float, obj->number.real()); } //BIND_END //BIND_METHOD LuaComplexFNumber img { LUABIND_RETURN(float, obj->number.img()); } //BIND_END //BIND_METHOD LuaComplexFNumber plane { LUABIND_RETURN(float, obj->number.real()); LUABIND_RETURN(float, obj->number.img()); } //BIND_END //BIND_METHOD LuaComplexFNumber polar { float r, phi; obj->number.polar(r, phi); LUABIND_RETURN(float, r); LUABIND_RETURN(float, phi); } //BIND_END //BIND_METHOD LuaComplexFNumber abs { LUABIND_RETURN(float, obj->number.abs()); } //BIND_END //BIND_METHOD LuaComplexFNumber angle { LUABIND_RETURN(float, obj->number.angle()); } //BIND_END //BIND_METHOD LuaComplexFNumber sqrt { LUABIND_RETURN(float, obj->number.sqrtc()); } //BIND_END april-ann-0.3.1/packages/basics/complex/c_src/000077500000000000000000000000001234204160600211545ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/complex/c_src/complex_number.cu000066400000000000000000000016251234204160600245300ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "complex_number.h" template struct Complex; template struct Complex; april-ann-0.3.1/packages/basics/complex/c_src/complex_number.h000066400000000000000000000140741234204160600243520ustar00rootroot00000000000000/* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef COMPLEX_NUMBER_H #define COMPLEX_NUMBER_H #ifndef _USE_MATH_DEFINES #define _USE_MATH_DEFINES #define UNDEF_MATH_DEFINES #endif #include #ifdef UNDEF_MATH_DEFINES #undef _USE_MATH_DEFINES #undef UNDEF_MATH_DEFINES #endif #ifndef NAN #define NAN sqrtf(-1.0f) #endif #define REAL_IDX 0 #define IMG_IDX 1 #ifndef __host__ #define __host__ #define UNDEF_HOST #endif #ifndef __device__ #define __device__ #define UNDEF_DEVICE #endif template struct Complex { T data[2]; __host__ __device__ static Complex one_one() { return Complex(1.0, 1.0); } __host__ __device__ static Complex zero_zero() { return Complex(0.0, 0.0); } __host__ __device__ static Complex one_zero() { return Complex(1.0, 0.0); } __host__ __device__ static Complex zero_one() { return Complex(0.0, 1.0); } __host__ __device__ Complex() { data[REAL_IDX] = T(); data[IMG_IDX] = T(); } __host__ __device__ Complex(T r, T i) { data[REAL_IDX] = r; data[IMG_IDX] = i; } __host__ __device__ ~Complex() { } __host__ __device__ Complex(const Complex &other) { *this = other; } __host__ __device__ Complex &operator=(const Complex &other) { this->data[REAL_IDX] = other.data[REAL_IDX]; this->data[IMG_IDX] = other.data[IMG_IDX]; return *this; } __host__ __device__ bool operator==(const Complex &other) const { Complex r(other - *this); return (r.abs() < 0.0001); } __host__ __device__ bool operator!=(const Complex &other) const { return !(*this == other); } __host__ __device__ Complex operator*(const Complex &other) const { Complex result; result.data[REAL_IDX] = (this->data[REAL_IDX]*other.data[REAL_IDX] - this->data[IMG_IDX]*other.data[IMG_IDX]); result.data[IMG_IDX] = (this->data[REAL_IDX]*other.data[IMG_IDX] + this->data[IMG_IDX]*other.data[REAL_IDX]); return result; } __host__ __device__ Complex operator/(const Complex &other) const { T c2_d2 = ( other.data[REAL_IDX]* other.data[REAL_IDX] + other.data[IMG_IDX] * other.data[IMG_IDX] ); Complex result; result.data[REAL_IDX] = (this->data[REAL_IDX]*other.data[REAL_IDX] + this->data[IMG_IDX]*other.data[IMG_IDX]) / c2_d2; result.data[IMG_IDX] = (this->data[IMG_IDX]*other.data[REAL_IDX] - this->data[REAL_IDX]*other.data[IMG_IDX]) / c2_d2; return result; } __host__ __device__ Complex &operator+=(const Complex &other) { this->data[REAL_IDX] += other.data[REAL_IDX]; this->data[IMG_IDX] += other.data[IMG_IDX]; return *this; } __host__ __device__ Complex &operator*=(const Complex &other) { *this = (*this) * other; return *this; } __host__ __device__ Complex &operator/=(const Complex &other) { *this = (*this) / other; return *this; } __host__ __device__ Complex operator+(const Complex &other) const { Complex result; result.data[REAL_IDX] = this->data[REAL_IDX]+other.data[REAL_IDX]; result.data[IMG_IDX] = this->data[IMG_IDX]+other.data[IMG_IDX]; return result; } __host__ __device__ Complex operator-(const Complex &other) const { Complex result; result.data[REAL_IDX] = this->data[REAL_IDX]-other.data[REAL_IDX]; result.data[IMG_IDX] = this->data[IMG_IDX]-other.data[IMG_IDX]; return result; } __host__ __device__ Complex operator-() const { Complex result; result.data[REAL_IDX] = -this->data[REAL_IDX]; result.data[IMG_IDX] = -this->data[IMG_IDX]; return result; } __host__ __device__ bool operator<(const Complex &other) const { // FIXME: are you sure? return abs() < other.abs(); } __host__ __device__ bool operator>(const Complex &other) const { // FIXME: are you sure? return abs() > other.abs(); } __host__ __device__ Complex expc() const { T expa = exp(data[REAL_IDX]); return Complex(expa*cos(data[REAL_IDX]), expa*sin(data[IMG_IDX])); } __host__ __device__ void conj() { data[IMG_IDX] = -data[IMG_IDX]; } __host__ __device__ T real() const { return data[REAL_IDX]; } __host__ __device__ T &real() { return data[REAL_IDX]; } __host__ __device__ T img() const { return data[IMG_IDX]; } __host__ __device__ T &img() { return data[IMG_IDX]; } __host__ __device__ T abs() const { return sqrt( data[REAL_IDX]*data[REAL_IDX] + data[IMG_IDX]*data[IMG_IDX] ); } __host__ __device__ T sqrtc() const { return sqrt( (data[REAL_IDX] + abs()) / 2.0 ); } __host__ __device__ T angle() const { T phi; if (real() > 0) phi = atan(img()/real()); else if (real() < 0 && img() >= 0) phi = atan(img()/real()) + M_PI; else if (real() < 0 && img() < 0) phi = atan(img()/real()) - M_PI; else if (real() == 0 && img() > 0) phi = M_PI/2; else if (real() == 0 && img() < 0) phi = -M_PI/2; else phi = NAN; return phi; } __host__ __device__ void polar(T &r, T &phi) const { r = abs(); phi = angle(); } // POINTER ACCESS __host__ __device__ T *ptr() { return data; } __host__ __device__ const T *ptr() const { return data; } }; typedef Complex ComplexF; typedef Complex ComplexD; #ifdef UNDEF_HOST #undef __host__ #undef UNDEF_HOST #endif #ifdef UNDEF_DEVICE #undef __device__ #undef UNDEF_DEVICE #endif #endif // COMPLEX_NUMBER_H april-ann-0.3.1/packages/basics/complex/lua_src/000077500000000000000000000000001234204160600215135ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/complex/lua_src/complex.lua000066400000000000000000000017671234204160600237000ustar00rootroot00000000000000-- OVERWRITTING TOSTRING FUNCTION local function get_operands(op1,op2) if not isa(op1,complex) then op1,op2=op2,op1 end local t2 = type(op2) if t2 == "number" then op2 = complex(op2, 0.0) elseif t2 == "string" then op2 = complex(op2) end return op1,op2 end complex.meta_instance.__tostring = function(self) return string.format("% g%+gi", self:plane()) end complex.meta_instance.__eq = function(op1, op2) local op1,op2 = get_operands(op1,op2) return op1:eq(op2) end complex.meta_instance.__add = function(op1, op2) local op1,op2 = get_operands(op1,op2) return op1:add(op2) end complex.meta_instance.__sub = function(op1, op2) local op1,op2 = get_operands(op1,op2) return op1:sub(op2) end complex.meta_instance.__mul = function(op1, op2) local op1,op2 = get_operands(op1,op2) return op1:mul(op2) end complex.meta_instance.__div = function(op1, op2) local op1,op2 = get_operands(op1,op2) return op1:div(op2) end complex.meta_instance.__unm = function(op) return op:neg() end april-ann-0.3.1/packages/basics/complex/package.lua000066400000000000000000000020361234204160600221620ustar00rootroot00000000000000package{ name = "complex", version = "1.0", depends = { "util" }, keywords = { }, description = "Complex numbers library", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_complex.lua.cc" , dest_dir = "include" }, }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", dest_dir = "build", }, object{ file = "c_src/*.cu", dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_complex.lua.cc", dest_dir = "build" }, }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/basics/dataset/000077500000000000000000000000001234204160600200415ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/dataset/binding/000077500000000000000000000000001234204160600214535ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/dataset/binding/bind_dataset.lua.cc000066400000000000000000001214461234204160600251730ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Francisco Zamora-Martinez, Jorge * Gorbe-Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C #include #include "fmeasure.h" #include "bind_mtrand.h" #include "MersenneTwister.h" #include "bind_referenced_vector.h" #include "bind_tokens.h" #include "bind_function_interface.h" int dataset_iterator_function(lua_State *L) { // se llama con: local var_1, ... , var_n = _f(_s, _var) donde _s es // el estado invariante (en este caso el dataset) y _var es var_1 de // iteracion anterior (en este caso el indice) DataSetFloat *obj = lua_toDataSetFloat(L,1); int index = (int)lua_tonumber(L,2) + 1; // le sumamos uno if (index > obj->numPatterns()) { lua_pushnil(L); return 1; } lua_pushnumber(L,index); int ps = obj->patternSize(); float *buff = new float[ps]; obj->getPattern(index-1,buff); // ojito que le RESTAMOS uno lua_newtable(L); for (int i=0; i < ps; i++) { lua_pushnumber(L,buff[i]); lua_rawseti(L,-2,i+1); } delete[] buff; return 2; } int datasetToken_iterator_function(lua_State *L) { // se llama con: local var_1, ... , var_n = _f(_s, _var) donde _s es // el estado invariante (en este caso el dataset) y _var es var_1 de // iteracion anterior (en este caso el indice) DataSetToken *obj = lua_toDataSetToken(L,1); int index = (int)lua_tonumber(L,2) + 1; // le sumamos uno if (index > obj->numPatterns()) { lua_pushnil(L); return 1; } lua_pushnumber(L,index); int ps = obj->patternSize(); Token *tk = obj->getPattern(index-1); // ojito que le RESTAMOS uno lua_pushToken(L,tk); return 2; } bool lua_isAuxDataSetToken(lua_State *L, int n) { return lua_isDataSetFloat(L,n) || lua_isDataSetToken(L,n); } DataSetToken *lua_toAuxDataSetToken(lua_State *L, int n) { if (lua_isDataSetFloat(L, n)) { DataSetFloat *ds = lua_toDataSetFloat(L,n); return new DataSetFloat2TokenWrapper(ds); } return lua_toDataSetToken(L,n); } //BIND_END //BIND_HEADER_H #include "datasetFloat.h" //#include "utilMatrixFloat.h" #include "matrixFloat.h" #include "utilLua.h" #include "bind_matrix.h" #include // para sqrt en mean_deviation #include "bind_mtrand.h" #include "MersenneTwister.h" #include "datasetToken.h" //BIND_END //BIND_LUACLASSNAME LinearCombConfFloat dataset.linear_comb_conf //BIND_CPP_CLASS LinearCombConfFloat //BIND_CONSTRUCTOR LinearCombConfFloat { // la tabla (L,1) contiene un vector de tablas // cada una de ellas contiene tuplas (indice,valor) LUABIND_CHECK_PARAMETER(1, table); int patternsize; LUABIND_TABLE_GETN(1, patternsize); // vamos a calcular el total de pares (peso,valor) int i,j,total = 0,contador; for (i=1; i <= patternsize; i++) { lua_rawgeti(L,1,i); // tabla i-esima int aux; LUABIND_TABLE_GETN(2, aux); total += aux; lua_pop(L,1); // la quitamos de la pila } // creamos el objeto obj = new LinearCombConfFloat(patternsize,total); // rellenamos vectores de indices y de pesos for (i=1; i <= patternsize; i++) { lua_rawgeti(L,1,i); // tabla i-esima LUABIND_TABLE_GETN(2, obj->numTuplas[i-1]); lua_pop(L,1); // la quitamos de la pila } contador = 0; for (i=1; i <= patternsize; i++) { lua_rawgeti(L,1,i); // tabla i-esima for (j=1;j <= obj->numTuplas[i-1]; j++) { // recorremos la tabla i-esima lua_rawgeti(L,-1,j); // tupla j-esima de tabla i-esima lua_rawgeti(L,-1,1); // extraemos el indice obj->indices[contador] = (int)lua_tonumber(L,-1); lua_pop(L,1); // la quitamos de la pila lua_rawgeti(L,-1,2); // extraemos el peso obj->pesos[contador] = lua_tonumber(L,-1); contador++; lua_pop(L,2); // la quitamos de la pila el peso y la tupla j-esima } lua_pop(L,1); // la quitamos de la pila la tabla i-esima } // ponemos en obj->numTuplas los valores "acumulados" for (i=1; i < patternsize; i++) { obj->numTuplas[i] += obj->numTuplas[i-1]; } LUABIND_RETURN(LinearCombConfFloat, obj); } //BIND_END //BIND_LUACLASSNAME DataSetFloat dataset //BIND_CPP_CLASS DataSetFloat //BIND_CONSTRUCTOR DataSetFloat LUABIND_ERROR("use constructor methods: matrix, etc."); //BIND_END //BIND_DESTRUCTOR DataSetFloat { } //BIND_END //BIND_CLASS_METHOD DataSetFloat matrix /* Permite crear un dataset a partir de una matriz. Requiere 2 argumentos. El primer argumento debe ser la propia matriz. El segundo argumento es una tabla con los siguientes campos: - offset -> posicion inicial en la matriz - patternSize -> el producto de estos valores da patternSize() - stepSize -> cuanto se avanza en cada dimension - numSteps -> el producto de estos valores da numPatterns() - orderStep - circular - defaultValue */ { int argn = lua_gettop(L); // number of arguments if (argn < 1 || argn > 2) LUABIND_ERROR("incorrect number of arguments"); LUABIND_CHECK_PARAMETER(1, MatrixFloat); if (argn == 2) { LUABIND_CHECK_PARAMETER(2, table); check_table_fields(L, 2, "offset", "patternSize", "stepSize", "numSteps", "orderStep", "circular", "defaultValue", (const char *)0); } MatrixFloat *mat; LUABIND_GET_PARAMETER(1, MatrixFloat, mat); MatrixDataSet *obj = new MatrixDataSet(mat); //parseamos la tabla con las opciones int ndim = mat->getNumDim(); int *int_params = new int[ndim]; bool *bool_params = new bool[ndim]; if (argn > 1) { if (leer_int_params(L, "offset", int_params, ndim)) obj->setOffset(int_params); if (leer_int_params(L, "patternSize", int_params, ndim)) obj->setSubMatrixSize(int_params); if (leer_int_params(L, "stepSize", int_params, ndim)) obj->setStep(int_params); if (leer_int_params(L, "numSteps", int_params, ndim)) obj->setNumSteps(int_params); if (leer_int_params(L, "orderStep", int_params, ndim)) obj->setOrderStep(int_params); if (leer_bool_params(L, "circular", bool_params, ndim)) obj->setCircular(bool_params); lua_pushstring(L, "defaultValue"); lua_gettable(L,2); if (!lua_isnil(L,-1)) obj->setDefaultValue((float)luaL_checknumber(L, -1)); } delete[] int_params; delete[] bool_params; LUABIND_RETURN(DataSetFloat,obj); } //BIND_END //BIND_CLASS_METHOD DataSetFloat identity // Crea un dataset que recorre una matriz identidad // Es decir, patrones con valor cero excepto un uno en la posición // determinada por el índice. { LUABIND_CHECK_ARGN(>=, 1); LUABIND_CHECK_ARGN(<=, 3); int patsize; float zerovalue, onevalue; LUABIND_GET_PARAMETER(1, int, patsize); LUABIND_GET_OPTIONAL_PARAMETER(2, float, zerovalue, 0.0f); LUABIND_GET_OPTIONAL_PARAMETER(3, float, onevalue, 1.0f); DataSetFloat *obj = new IdentityDataSet(patsize, zerovalue, onevalue); LUABIND_RETURN(DataSetFloat,obj); } //BIND_END //BIND_CLASS_METHOD DataSetFloat union // permite que varios datasets que tienen el mismo patternSize se vean // como uno solo con un numPatterns igual al sumatorio de los // numPatterns de los DataSets que lo componen. Requiere un unico // argumento que es una tabla con los datasets necesarios. { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); int num; LUABIND_TABLE_GETN(1, num); if (num == 0) LUABIND_ERROR("at least one dataset is needed"); DataSetFloat **vds = new DataSetFloat*[num]; LUABIND_TABLE_TO_VECTOR(1, DataSetFloat, vds, num); DataSetFloat *obj = new UnionDataSet(num,vds); delete[] vds; LUABIND_RETURN(DataSetFloat,obj); } //BIND_END //BIND_CLASS_METHOD DataSetFloat join // Permite juntar las salidas de varios DataSets que tienen el mismo // numero de patrones (numPatterns). El patternSize del DataSet // resultante es igual al sumatorio de los patternSize de los DataSets // que lo componen. Requiere un unico argumento que es una tabla con // los datasets necesarios. { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); int num; LUABIND_TABLE_GETN(1, num); if (num == 0) LUABIND_ERROR("at least one dataset is needed"); DataSetFloat **vds = new DataSetFloat*[num]; LUABIND_TABLE_TO_VECTOR(1, DataSetFloat, vds, num); DataSetFloat *obj = new JoinDataSet(num,vds); delete[] vds; LUABIND_RETURN(DataSetFloat,obj); } //BIND_END //BIND_CLASS_METHOD DataSetFloat indexed // el formato indexado permite crear un mapping de indices a // patterns. Puede ser útil para especificar la salida de una // clasificación, en tal caso el DataSet sobre el que se basa el // IndexDataSet representa la salida asociada a cada una de las // clases. // Requiere 2 argumentos, y un 3 argumento opcional. El primero es el dataset // base. El segundo es una tabla con tantos datasets como patternSize tenga el // dataset base, cada uno de ellos actuará como diccionario. El patternSize del // dataset index resultante es igual a la suma de los patternSize de cada // diccionario. El tercer argumento es el primer valor del indice (normalmente 0 // o 1) { LUABIND_CHECK_ARGN(>=, 2); LUABIND_CHECK_ARGN(<=, 3); LUABIND_CHECK_PARAMETER(1, DataSetFloat); LUABIND_CHECK_PARAMETER(2, table); int numdics, firstindex; LUABIND_GET_OPTIONAL_PARAMETER(3, int, firstindex, 1); DataSetFloat *ds = lua_toDataSetFloat(L,1); LUABIND_TABLE_GETN(2, numdics); if (numdics != ds->patternSize()) LUABIND_FERROR2("bad number of dictionary datasets in table (%d instead of %d)", numdics,ds->patternSize()); DataSetFloat **vds = new DataSetFloat*[numdics+1]; vds[0] = ds; DataSetFloat **vds_aux = vds+1; LUABIND_TABLE_TO_VECTOR(2, DataSetFloat, vds_aux, numdics); DataSetFloat *obj = new IndexDataSet(vds, firstindex); delete[] vds; LUABIND_RETURN(DataSetFloat,obj); } //BIND_END //BIND_CLASS_METHOD DataSetFloat slice // permite seleccionar un subconjunto de patterns de un DataSet, // este subconjunto debe ser un intervalo (para subconjuntos más // generales se puede utilizar la clase IndexDataSet) // Requiere 3 argumentos. El primero es el dataset y luego necesita 2 // argumentos que son los indices inicial y final de los patrones que // se eligen como subconjunto. { LUABIND_CHECK_ARGN(==, 3); LUABIND_CHECK_PARAMETER(1, DataSetFloat); LUABIND_CHECK_PARAMETER(2, int); LUABIND_CHECK_PARAMETER(3, int); DataSetFloat *ds = lua_toDataSetFloat(L,1); int ini,fin; ini = (int)lua_tonumber(L,2) - 1; // ojito que le RESTAMOS uno fin = (int)lua_tonumber(L,3) - 1; // ojito que le RESTAMOS uno DataSetFloat *obj = new SubDataSet(ini,fin,ds); LUABIND_RETURN(DataSetFloat,obj); } //BIND_END //BIND_CLASS_METHOD DataSetFloat split // permite seleccionar un subconjunto de los elementos de salida de // un DataSet. Es decir, el DatSet resultante tiene el mismo numero // de patrones (numPatterns) pero un patternSize menor. El // subconjunto de salida es un intervalo del original { DataSetFloat *ds; int ini,fin; LUABIND_CHECK_ARGN(==, 3); LUABIND_CHECK_PARAMETER(1, DataSetFloat); LUABIND_CHECK_PARAMETER(2, int); LUABIND_CHECK_PARAMETER(3, int); LUABIND_GET_PARAMETER(1,DataSetFloat,ds); LUABIND_GET_PARAMETER(2,int,ini); LUABIND_GET_PARAMETER(3,int,fin); if (fin < ini) LUABIND_ERROR("Impossible interval, initial position is after end position"); if (fin < 1 || ini < 1) LUABIND_ERROR("Initial end end positions start counting from 1"); if (ini > ds->patternSize() || fin > ds->patternSize()) LUABIND_ERROR("The interval values are greater than the patternSize()"); DataSetFloat *obj = new SplitDataSet(ini-1,fin-1,ds); LUABIND_RETURN(DataSetFloat,obj); } //BIND_END //BIND_CLASS_METHOD DataSetFloat linearcomb // El LinearCombDataSet toma un dataset y realiza una combinación // lineal de sus patrones para generar el suyo. Si toma un dataset con // patternSize X y genera sus patrones de patternSize Y necesitaría // una matriz de XxY, PERO vamos a suponer que casi siempre será una // matriz muy dispersa y lo que haremos es una lista de pares // (indice,peso) de modo que cada uno de los Y elementos de salida // tendrá una lista de esas tuplas. { LUABIND_CHECK_ARGN(==, 2); LUABIND_CHECK_PARAMETER(1, DataSetFloat); LUABIND_CHECK_PARAMETER(2, LinearCombConfFloat); DataSetFloat *ds = lua_toDataSetFloat(L,1); LinearCombConfFloat *conf = lua_toLinearCombConfFloat(L,2); // creamos el dataset DataSetFloat *obj = new LinearCombDataSet(ds,conf); LUABIND_RETURN(DataSetFloat,obj); } //BIND_END //BIND_CLASS_METHOD DataSetFloat contextualizer // permite que un dataset añada contexto de los patrones situados en // posiciones adyacentes, cosa que más o menos se puede hacer con // otros datasets, exceptuando lo que ocurre en los bordes. En este // dataset el patrón se repite en caso necesario para rellenar los // bordes. { DataSetFloat *ds; int izq,der; LUABIND_CHECK_ARGN(>=, 3); LUABIND_CHECK_ARGN(<=, 4); LUABIND_CHECK_PARAMETER(1, DataSetFloat); LUABIND_CHECK_PARAMETER(2, int); LUABIND_CHECK_PARAMETER(3, int); LUABIND_GET_PARAMETER(1,DataSetFloat,ds); LUABIND_GET_PARAMETER(2,int,izq); LUABIND_GET_PARAMETER(3,int,der); bool reverse=false; LUABIND_GET_OPTIONAL_PARAMETER(4,bool,reverse,false); DataSetFloat *obj = new ContextualizerDataSet(ds,izq,der,reverse); LUABIND_RETURN(DataSetFloat,obj); } //BIND_END //BIND_CLASS_METHOD DataSetFloat accumulate { // sirve para acumular una serie de valores mediante putpattern se // obtiene la suma acumulada mediante getpattern no hay forma de // ponerlo a cero excepto al crearlo o haciendo un getpattern y un // putpattern del valor negado, salvo errores int patsz, numpat; LUABIND_CHECK_ARGN(==, 2); LUABIND_CHECK_PARAMETER(1, int); LUABIND_CHECK_PARAMETER(2, int); LUABIND_GET_PARAMETER(1,int,patsz); LUABIND_GET_PARAMETER(2,int,numpat); DataSetFloat *obj = new AccumulateDataSet(patsz,numpat); LUABIND_RETURN(DataSetFloat,obj); } //BIND_END //BIND_CLASS_METHOD DataSetFloat byte { // sirve para representar un conjunto de patrones con una precisión // de 8 bits cada valor, puede recibir 2 tipos de parametros: // caso 1) recibe un dataset del que hacer una copia, puede recibir // los valores min y max o bien calcularlos al vuelo en funcion de los // valores maximo y minimo del dataset, en cuyo caso resulta mas // costoso al necesitar iterar 2 veces sobre el dataset // caso 2) recibe el numero de patrones, el tamanyo de cada patron y // los valores min y max, satura si se sale de ese rango. Una vez // creado se rellena con putpattern int patsz, numpat; double min,max,a,b; DataSetFloat *obj; int argn = lua_gettop(L); // number of arguments if (argn >= 1 && lua_isDataSetFloat(L,1)) { DataSetFloat *ds = lua_toDataSetFloat(L,1); LUABIND_GET_OPTIONAL_PARAMETER(2, double, min, 0.0); LUABIND_GET_OPTIONAL_PARAMETER(3, double, max, 1.0); numpat = ds->numPatterns(); patsz = ds->patternSize(); float *patt = new float[patsz]; if (argn == 1) { ds->getPattern(0,patt); min = max = patt[0]; for (int i=0; igetPattern(i,patt); for (int j=0;j max) max = patt[j]; } } if (max - min < 1e-6) max = min + 1e-6; } b = min; a = (max-min)/255; obj = new ByteDataSet(patsz,numpat,a,b); for (int i=0; igetPattern(i,patt); obj->putPattern(i,patt); } delete[] patt; } else { LUABIND_CHECK_ARGN(>=, 2); LUABIND_CHECK_ARGN(<=, 4); LUABIND_CHECK_PARAMETER(1, int); LUABIND_CHECK_PARAMETER(2, int); LUABIND_GET_PARAMETER(1,int,patsz); LUABIND_GET_PARAMETER(2,int,numpat); LUABIND_GET_OPTIONAL_PARAMETER(3, double, min, 0.0); LUABIND_GET_OPTIONAL_PARAMETER(4, double, max, 1.0); b = min; a = (max-min)/255; obj = new ByteDataSet(patsz,numpat,a,b); } LUABIND_RETURN(DataSetFloat,obj); } //BIND_END //BIND_METHOD DataSetFloat getPattern // { int index; LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, int); LUABIND_GET_PARAMETER(1,int,index); if (index < 1 || index > obj->numPatterns()) LUABIND_ERROR("index out of range"); int ps = obj->patternSize(); float *buff = new float[ps]; obj->getPattern(index-1,buff); // ojito que le RESTAMOS uno LUABIND_VECTOR_TO_NEW_TABLE(float, buff, ps); delete[] buff; LUABIND_RETURN_FROM_STACK(-1); } //BIND_END //BIND_METHOD DataSetFloat putPattern { int index; LUABIND_CHECK_ARGN(==, 2); LUABIND_CHECK_PARAMETER(1, int); LUABIND_GET_PARAMETER(1,int,index); if (index < 1 || index > obj->numPatterns()) LUABIND_ERROR("index out of range"); int ps = obj->patternSize(); float *buff = new float[ps]; LUABIND_TABLE_TO_VECTOR(2, float, buff, ps); obj->putPattern(index-1,buff); // ojito que le RESTAMOS uno delete[] buff; } //BIND_END //BIND_METHOD DataSetFloat numPatterns { LUABIND_CHECK_ARGN(==, 0); LUABIND_RETURN(int,obj->numPatterns()); } //BIND_END //BIND_METHOD DataSetFloat patternSize { LUABIND_CHECK_ARGN(==, 0); LUABIND_RETURN(int,obj->patternSize()); } //BIND_END //BIND_METHOD DataSetFloat toMatrix // Genera una matriz de dimension 2 { LUABIND_CHECK_ARGN(==, 0); int dim[2]; dim[0] = obj->numPatterns(); dim[1] = obj->patternSize(); MatrixFloat* mat = new MatrixFloat(2,dim); float *d = mat->getRawDataAccess()->getPPALForWrite(); for (int i=0; i < dim[0]; i++) obj->getPattern(i,d+i*dim[1]); LUABIND_RETURN(MatrixFloat,mat); } //BIND_END //BIND_METHOD DataSetFloat saveFileAscii // imprime cada patron en una fila de un fichero // recibe un filename y opcionalmente la precision // que es una cadena estilo "%.7f", por defecto "%g" // ojo que podria petar si es incorrecta!!!! { LUABIND_CHECK_ARGN(>=, 1); LUABIND_CHECK_ARGN(<=, 2); constString cs_formato,cs_filename; LUABIND_GET_PARAMETER(1,constString,cs_filename); LUABIND_GET_OPTIONAL_PARAMETER(2,constString,cs_formato,constString("%g")); int np = obj->numPatterns(); int ps = obj->patternSize(); const char *formato = cs_formato; const char *filename = cs_filename; FILE *fich = fopen(filename,"w"); if (fich == 0) { LUABIND_FERROR1("Unable to open file \"%s\"",filename); } else { float *buff = new float[ps]; if (ps > 0) { for (int i=0; igetPattern(i,buff); for (int j=0; jnumPatterns(); int ps = obj->patternSize(); const char *filename = cs_filename; FILE *fich = fopen(filename,"w"); if (fich == 0) { LUABIND_FERROR1("Unable to open file \"%s\"",filename); } else { float *buff = new float[ps]; if (ps > 0) { for (int i=0; igetPattern(i,buff); fwrite(buff,sizeof(float),ps,fich); } } delete[] buff; fclose(fich); } } //BIND_END //BIND_METHOD DataSetFloat patterns // para iterar con un for index,pattern in obj:patterns() do ... end { LUABIND_CHECK_ARGN(==, 0); LUABIND_RETURN(cfunction,dataset_iterator_function); LUABIND_RETURN(DataSetFloat,obj); LUABIND_RETURN(int,0); } //BIND_END //BIND_METHOD DataSetFloat mean_deviation // devuelve 2 tablas, la primera con medias, la segunda con las // desviaciones típicas { LUABIND_CHECK_ARGN(==, 0); int npatt = obj->numPatterns(); int psize = obj->patternSize(); float *patt = new float[psize]; double *sum = new double[psize]; double *sum2 = new double[psize]; for (int j=0;jgetPattern(i,patt); for (int j=0;jpatternSize(); int npatt = obj->numPatterns(); LUABIND_CHECK_ARGN(==, 2); if (!lua_istable(L,1) || psize != luaL_len(L,1) || !lua_istable(L,2) || psize != luaL_len(L,2)) LUABIND_ERROR("dataset normalize_mean_deviation: wrong arguments"); float *patt = new float[psize]; float *mean = new float[psize]; float *invdev = new float[psize]; // cargar media y desviacion tipica de las tablas: // LUABIND_TABLE_TO_VECTOR(table, tipo, vector, longitud) LUABIND_TABLE_TO_VECTOR(1, float, mean, psize); LUABIND_TABLE_TO_VECTOR(2, float, invdev, psize); for (int i=0; i < psize; i++) { if (invdev[i] <= 0) LUABIND_FERROR2("dataset normalize_mean_deviation method dev[%d] == %f", i,invdev[i]); else invdev[i] = 1/invdev[i]; } // normalizar: for (int i=0; i < npatt; i++) { obj->getPattern(i,patt); for (int j=0;jputPattern(i,patt); } delete[] patt; delete[] mean; delete[] invdev; } //BIND_END //BIND_METHOD DataSetFloat mean // devuelve 1 tabla { LUABIND_CHECK_ARGN(==, 0); int npatt = obj->numPatterns(); int psize = obj->patternSize(); float *patt = new float[psize]; double *sum = new double[psize]; for (int j=0;jgetPattern(i,patt); for (int j=0;jnumPatterns(); int psize = obj->patternSize(); float *patt = new float[psize]; double *vmin = new double[psize]; double *vmax = new double[psize]; obj->getPattern(0,patt); for (int j=0;jgetPattern(i,patt); for (int j=0;j patt[j]) vmin[j] = patt[j]; if (vmax[j] < patt[j]) vmax[j] = patt[j]; } } // vector de minimos: LUABIND_VECTOR_TO_NEW_TABLE(double, vmin, psize); // vector de maximos: LUABIND_VECTOR_TO_NEW_TABLE(double, vmax, psize); delete[] patt; delete[] vmin; delete[] vmax; LUABIND_RETURN_FROM_STACK(1); LUABIND_RETURN_FROM_STACK(2); } //BIND_END //BIND_METHOD DataSetFloat cct // coordinate-cluster transformation (Kurmyshev et al 1996). // Recibe un threshold, devuelve una matriz de tamaño // 2**pattersize { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, float); float threshold; LUABIND_GET_PARAMETER(1,float,threshold); int npatt = obj->numPatterns(); int psize = obj->patternSize(); if (psize > 12) // fixme: revisar este valor LUABIND_ERROR("too big patternsize"); float *patt = new float[psize]; int histogramlength = 1 << psize; MatrixFloat* mat = new MatrixFloat(1,&histogramlength); mat->zeros(); for (int i=1; i < npatt; i++) { obj->getPattern(i,patt); int index = 0; for (int j=0;j threshold) ? 1 : 0); } (*mat)(index) += 1; } delete[] patt; LUABIND_RETURN(MatrixFloat,mat); } //BIND_END //////////////////////////////////////////////////////////////////////// //BIND_CLASS_METHOD DataSetFloat fmeasure { LUABIND_CHECK_ARGN(==,1); DataSetFloat *ds, *GT; LUABIND_GET_TABLE_PARAMETER(1, result_dataset, DataSetFloat, ds); LUABIND_GET_TABLE_PARAMETER(1, target_dataset, DataSetFloat, GT); float PR, RC, f; f = Fmeasure(ds, GT, PR, RC); LUABIND_RETURN(float, f); LUABIND_RETURN(float, PR); LUABIND_RETURN(float, RC); } //BIND_END //////////////////////////////////////////////////////////////////////// //BIND_CLASS_METHOD DataSetFloat bit { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "numPatterns", "patternSize", "dataset", (const char *)0); DataSetFloat *ds; int nump, patsize; LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, numPatterns, int, nump, -1); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, patternSize, int, patsize, -1); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, dataset, DataSetFloat, ds, 0); if (ds != 0 && (nump != -1 || patsize != -1)) LUABIND_ERROR("dataset.bit: dataset forbide numPatterns " "and patternSize in arguments table!!!\n"); if ((nump == -1 || patsize == -1) && ds == 0) LUABIND_ERROR("dataset.bit: needed numPatterns" "and patternSize in arguments table!!!\n"); if (ds) { nump = ds->numPatterns(); patsize = ds->patternSize(); } DataSetFloat *obj = new BitDataSet(nump, patsize); if (ds) { float *pat = new float[patsize]; for (int i=0; igetPattern(i, pat); obj->putPattern(i, pat); } } LUABIND_RETURN(DataSetFloat, obj); } //BIND_END ///////////////////////////////////////////////////////////////////////// //BIND_CLASS_METHOD DataSetFloat sparse /* Permite crear un dataset a partir de una matriz sparse. Requiere 2 argumentos. MatrixFloat y tabla con numpatterns y patternsize. La matriz sparse es una secuencia de numeros, donde cada patron se representa por: N x1 v1 x2 v2 ... xN vN donde N es el numero de posiciones distintas de ZERO que contiene el patron y (xi vi) son parejas que indican que la posicion xi tiene valor vi. IMPORTANTE: xi empieza en 0 y llega hasta patternSize-1 */ { int argn = lua_gettop(L); // number of arguments if (argn < 1 || argn > 2) LUABIND_ERROR("incorrect number of arguments"); LUABIND_CHECK_PARAMETER(1, MatrixFloat); if (argn == 2) { LUABIND_CHECK_PARAMETER(2, table); check_table_fields(L, 2, "patternSize", "numPatterns", (const char *)0); } MatrixFloat *mat; LUABIND_GET_PARAMETER(1, MatrixFloat, mat); int patsize, numpat; LUABIND_GET_TABLE_PARAMETER(2, patternSize, int, patsize); LUABIND_GET_TABLE_PARAMETER(2, numPatterns, int, numpat); SparseDatasetFloat *obj = new SparseDatasetFloat(mat,numpat, patsize); LUABIND_RETURN(DataSetFloat,obj); } //BIND_END ///////////////////////////////////////////////////////////////////////// //BIND_CLASS_METHOD DataSetFloat short_list { DataSetFloat *ds; check_table_fields(L, 1, "ds", "unk_word", "short_list_size", (const char *)0); LUABIND_GET_TABLE_PARAMETER(1, ds, DataSetFloat, ds); int unk_word, short_list_size; LUABIND_GET_TABLE_PARAMETER(1, unk_word, int, unk_word); LUABIND_GET_TABLE_PARAMETER(1, short_list_size, int, short_list_size); DataSetFloat *obj = new ShortListDataSetFloat(ds, short_list_size, unk_word); LUABIND_RETURN(DataSetFloat,obj); } //BIND_END ////////////////////////////////////////// //BIND_LUACLASSNAME IndexFilterDataSetFloat dataset.index_filter //BIND_CPP_CLASS IndexFilterDataSetFloat //BIND_SUBCLASS_OF IndexFilterDataSetFloat DataSetFloat //BIND_CONSTRUCTOR IndexFilterDataSetFloat { DataSetFloat *ds; ReferencedVectorUint *vec; LUABIND_GET_PARAMETER(1, DataSetFloat, ds); LUABIND_GET_PARAMETER(2, ReferencedVectorUint, vec); DataSetFloat *obj = new IndexFilterDataSetFloat(ds, vec); LUABIND_RETURN(DataSetFloat,obj); } //BIND_END ////////////////////////////////////////// //BIND_LUACLASSNAME PerturbationDataSetFloat dataset.perturbation //BIND_CPP_CLASS PerturbationDataSetFloat //BIND_SUBCLASS_OF PerturbationDataSetFloat DataSetFloat //BIND_CONSTRUCTOR PerturbationDataSetFloat { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "dataset", "mean", "variance", "random", (const char *)0); DataSetFloat *ds; MTRand *random; double mean, variance; LUABIND_GET_TABLE_PARAMETER(1, dataset, DataSetFloat, ds ); LUABIND_GET_TABLE_PARAMETER(1, random, MTRand, random); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, mean, double, mean, 0.0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, variance, double, variance, 1.0); DataSetFloat *obj = new PerturbationDataSetFloat(ds, random, mean, variance); LUABIND_RETURN(DataSetFloat,obj); } //BIND_END ////////////////////////////////////////// //BIND_LUACLASSNAME SaltNoiseDataSetFloat dataset.salt_noise //BIND_CPP_CLASS SaltNoiseDataSetFloat //BIND_SUBCLASS_OF SaltNoiseDataSetFloat DataSetFloat //BIND_CONSTRUCTOR SaltNoiseDataSetFloat { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "dataset", "vd", "zero", "random", (const char *)0); DataSetFloat *ds; MTRand *random; double vd; float zero; LUABIND_GET_TABLE_PARAMETER(1, dataset, DataSetFloat, ds ); LUABIND_GET_TABLE_PARAMETER(1, random, MTRand, random); LUABIND_GET_TABLE_PARAMETER(1, vd, double, vd); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, zero, float, zero, 0.0f); DataSetFloat *obj = new SaltNoiseDataSetFloat(ds, random, vd, zero); LUABIND_RETURN(DataSetFloat,obj); } //BIND_END ////////////////////////////////////////// //BIND_LUACLASSNAME SaltPepperNoiseDataSetFloat dataset.salt_pepper_noise //BIND_CPP_CLASS SaltPepperNoiseDataSetFloat //BIND_SUBCLASS_OF SaltPepperNoiseDataSetFloat DataSetFloat //BIND_CONSTRUCTOR SaltPepperNoiseDataSetFloat { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "dataset", "vd", "zero", "one", "random", 0); DataSetFloat *ds; MTRand *random; double vd; float zero, one; LUABIND_GET_TABLE_PARAMETER(1, dataset, DataSetFloat, ds ); LUABIND_GET_TABLE_PARAMETER(1, random, MTRand, random); LUABIND_GET_TABLE_PARAMETER(1, vd, double, vd); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, zero, float, zero, 0.0f); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, one, float, one, 1.0f); DataSetFloat *obj = new SaltPepperNoiseDataSetFloat(ds, random, vd, zero, one); LUABIND_RETURN(DataSetFloat,obj); } //BIND_END ////////////////////////////////////////// //BIND_LUACLASSNAME StepDataSetFloat dataset.step //BIND_CPP_CLASS StepDataSetFloat //BIND_SUBCLASS_OF StepDataSetFloat DataSetFloat //BIND_CONSTRUCTOR StepDataSetFloat { LUABIND_CHECK_ARGN(==, 2); LUABIND_CHECK_PARAMETER(1, DataSetFloat); LUABIND_CHECK_PARAMETER(2, int); DataSetFloat *ds; int step; LUABIND_GET_PARAMETER(1, DataSetFloat, ds); LUABIND_GET_PARAMETER(2, int, step); DataSetFloat *obj = new StepDataSetFloat(ds, step); LUABIND_RETURN(DataSetFloat,obj); } //BIND_END ////////////////////////////////////////// //BIND_LUACLASSNAME DerivDataSetFloat dataset.deriv //BIND_CPP_CLASS DerivDataSetFloat //BIND_SUBCLASS_OF DerivDataSetFloat DataSetFloat //BIND_CONSTRUCTOR DerivDataSetFloat { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "dataset", "deriv0", "deriv1", "deriv2", (const char *)0); DataSetFloat *ds; bool deriv0, deriv1, deriv2; LUABIND_GET_TABLE_PARAMETER(1, dataset, DataSetFloat, ds); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, deriv0, bool, deriv0, true); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, deriv1, bool, deriv1, true); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, deriv2, bool, deriv2, true); DataSetFloat *obj = new DerivDataSetFloat(ds, deriv0, deriv1, deriv2); LUABIND_RETURN(DataSetFloat,obj); } //BIND_END ////////////////////////////////////////// //BIND_LUACLASSNAME CacheDataSetFloat dataset.cache //BIND_CPP_CLASS CacheDataSetFloat //BIND_SUBCLASS_OF CacheDataSetFloat DataSetFloat //BIND_CONSTRUCTOR CacheDataSetFloat { DataSetFloat *ds; LUABIND_GET_PARAMETER(1, DataSetFloat, ds); int cache_size; LUABIND_GET_PARAMETER(4, int, cache_size); int voc_size; LUABIND_TABLE_GETN(2, voc_size); int **word2index = new int*[voc_size+1]; int *word2index_sizes = new int[voc_size+1]; float *decays = new float[cache_size+1]; LUABIND_TABLE_TO_VECTOR(3, float, (decays+1), cache_size); float near_zero; LUABIND_GET_PARAMETER(5, float, near_zero); int begin_token_id, end_token_id, null_token_id, cache_stop_token_id; LUABIND_GET_PARAMETER(6, int, begin_token_id); LUABIND_GET_PARAMETER(7, int, end_token_id); LUABIND_GET_PARAMETER(8, int, null_token_id); LUABIND_GET_PARAMETER(9, int, cache_stop_token_id); // el 0 esta reservado para la palabra vacia word2index[0] = 0; word2index_sizes[0] = 0; decays[0] = 0.0f; for (int i=1; i<=voc_size; ++i) { int sz; lua_rawgeti(L, 2, i); LUABIND_TABLE_GETN(-1, sz); word2index_sizes[i] = sz; if (sz == 0) word2index[i] = 0; else { word2index[i] = new int[sz]; LUABIND_TABLE_TO_VECTOR(-1, int, word2index[i], sz); } lua_pop(L, 1); } obj = new CacheDataSetFloat(ds, word2index, word2index_sizes, decays, voc_size, cache_size, near_zero, begin_token_id, end_token_id, null_token_id, cache_stop_token_id); LUABIND_RETURN(DataSetFloat, obj); } //BIND_END ////////////////////////////////////////// //BIND_LUACLASSNAME SubAndDivNormalizationDataSetFloat dataset.sub_and_div_normalization //BIND_CPP_CLASS SubAndDivNormalizationDataSetFloat //BIND_SUBCLASS_OF SubAndDivNormalizationDataSetFloat DataSetFloat //BIND_CONSTRUCTOR SubAndDivNormalizationDataSetFloat { LUABIND_CHECK_ARGN(==, 3); LUABIND_CHECK_PARAMETER(1, DataSetFloat); LUABIND_CHECK_PARAMETER(2, table); LUABIND_CHECK_PARAMETER(3, table); DataSetFloat *ds; LUABIND_GET_PARAMETER(1, DataSetFloat, ds); int n,m; LUABIND_TABLE_GETN(2,n); LUABIND_TABLE_GETN(3,m); if (n != ds->patternSize() || m != ds->patternSize()) LUABIND_ERROR("Incorrect size in table arguments\n"); float *sub = new float[n]; float *div = new float[n]; LUABIND_TABLE_TO_VECTOR(2, float, sub, n); LUABIND_TABLE_TO_VECTOR(3, float, div, n); obj = new SubAndDivNormalizationDataSet(ds,sub,div); delete[] sub; delete[] div; LUABIND_RETURN(SubAndDivNormalizationDataSetFloat,obj); } //BIND_END ////////////////////////////////////////// //BIND_LUACLASSNAME ClampDataSetFloat dataset.clamp //BIND_CPP_CLASS ClampDataSetFloat //BIND_SUBCLASS_OF ClampDataSetFloat DataSetFloat //BIND_CONSTRUCTOR ClampDataSetFloat { LUABIND_CHECK_ARGN(==, 3); LUABIND_CHECK_PARAMETER(1, DataSetFloat); LUABIND_CHECK_PARAMETER(2, float); LUABIND_CHECK_PARAMETER(3, float); DataSetFloat *ds; float lower, upper; LUABIND_GET_PARAMETER(1, DataSetFloat, ds); LUABIND_GET_PARAMETER(2, float, lower); LUABIND_GET_PARAMETER(3, float, upper); obj = new ClampDataSetFloat(ds,lower,upper); LUABIND_RETURN(ClampDataSetFloat,obj); } //BIND_END ////////////////////////////////////////// //BIND_LUACLASSNAME DataSetToken dataset.token //BIND_CPP_CLASS DataSetToken //BIND_CONSTRUCTOR DataSetToken { LUABIND_ERROR("Abstract class!!!"); } //BIND_END //BIND_METHOD DataSetToken numPatterns { LUABIND_RETURN(int, obj->numPatterns()); } //BIND_END //BIND_METHOD DataSetToken patternSize { LUABIND_RETURN(int, obj->patternSize()); } //BIND_END //BIND_METHOD DataSetToken getPattern { int index; LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, int); LUABIND_GET_PARAMETER(1,int,index); if (index < 1 || index > obj->numPatterns()) LUABIND_ERROR("index out of range"); Token *token = obj->getPattern(index-1); // ojito que le RESTAMOS uno LUABIND_RETURN(Token, token); } //BIND_END //BIND_METHOD DataSetToken getPatternBunch { unsigned int bunch_size; int *indexes; LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, table); LUABIND_TABLE_GETN(1,bunch_size); indexes = new int[bunch_size]; LUABIND_TABLE_TO_VECTOR_SUB1(1,uint,indexes,bunch_size); Token *token = obj->getPatternBunch(indexes,bunch_size); delete[] indexes; LUABIND_RETURN(Token, token); } //BIND_END //BIND_METHOD DataSetToken putPattern { int index; Token *pattern; LUABIND_CHECK_ARGN(==,2); LUABIND_CHECK_PARAMETER(1, int); LUABIND_CHECK_PARAMETER(2, Token); LUABIND_GET_PARAMETER(1,int,index); LUABIND_GET_PARAMETER(2,Token,pattern); if (index < 1 || index > obj->numPatterns()) LUABIND_ERROR("index out of range"); obj->putPattern(index-1, pattern); // ojito que le RESTAMOS uno } //BIND_END //BIND_METHOD DataSetToken putPatternBunch { unsigned int bunch_size; int *indexes; Token *pattern; LUABIND_CHECK_ARGN(==,2); LUABIND_CHECK_PARAMETER(1, table); LUABIND_CHECK_PARAMETER(2, Token); LUABIND_GET_PARAMETER(2,Token,pattern); LUABIND_TABLE_GETN(1,bunch_size); indexes = new int[bunch_size]; LUABIND_TABLE_TO_VECTOR_SUB1(1,uint,indexes,bunch_size); obj->putPatternBunch(indexes,bunch_size,pattern); delete[] indexes; } //BIND_END //BIND_METHOD DataSetToken patterns // para iterar con un for index,pattern in obj:patterns() do ... end { LUABIND_CHECK_ARGN(==, 0); LUABIND_RETURN(cfunction,datasetToken_iterator_function); LUABIND_RETURN(DataSetToken,obj); LUABIND_RETURN(int,0); } //BIND_END ////////////////////////////////////////// //BIND_LUACLASSNAME UnionDataSetToken dataset.token.union //BIND_CPP_CLASS UnionDataSetToken //BIND_SUBCLASS_OF UnionDataSetToken DataSetToken //BIND_CONSTRUCTOR UnionDataSetToken { LUABIND_CHECK_ARGN(<=,1); int argn = lua_gettop(L); if (argn == 1) { unsigned int size; LUABIND_CHECK_PARAMETER(1, table); LUABIND_TABLE_GETN(1, size); if (size < 2) LUABIND_ERROR("UnionDataSetToken needs a Lua table with two or " "more DataSetToken\n"); DataSetToken **ds_array = new DataSetToken*[size]; LUABIND_TABLE_TO_VECTOR(1, AuxDataSetToken, ds_array, size); obj = new UnionDataSetToken(ds_array, size); delete[] ds_array; } else obj = new UnionDataSetToken(); LUABIND_RETURN(UnionDataSetToken, obj); } //BIND_END //BIND_METHOD UnionDataSetToken push_back { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, AuxDataSetToken); DataSetToken *ds; LUABIND_GET_PARAMETER(1, AuxDataSetToken, ds); obj->push_back(ds); } //BIND_END ////////////////////////////////////////// //BIND_LUACLASSNAME DataSetTokenVector dataset.token.vector //BIND_CPP_CLASS DataSetTokenVector //BIND_SUBCLASS_OF DataSetTokenVector DataSetToken //BIND_CONSTRUCTOR DataSetTokenVector { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, int); int pattern_size; LUABIND_GET_PARAMETER(1, int, pattern_size); obj = new DataSetTokenVector(pattern_size); LUABIND_RETURN(DataSetTokenVector, obj); } //BIND_END //BIND_METHOD DataSetTokenVector push_back { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, Token); Token *token; LUABIND_GET_PARAMETER(1, Token, token); obj->push_back(token); } //BIND_END ////////////////////////////////////////// //BIND_LUACLASSNAME DataSetFloat2TokenWrapper dataset.token.wrapper //BIND_CPP_CLASS DataSetFloat2TokenWrapper //BIND_SUBCLASS_OF DataSetFloat2TokenWrapper DataSetToken //BIND_CONSTRUCTOR DataSetFloat2TokenWrapper { LUABIND_CHECK_ARGN(>=,1); LUABIND_CHECK_ARGN(<=,2); int argn = lua_gettop(L); // number of arguments LUABIND_CHECK_PARAMETER(1, DataSetFloat); DataSetFloat *ds; const char *major_str; LUABIND_GET_PARAMETER(1, DataSetFloat, ds); obj = new DataSetFloat2TokenWrapper(ds); LUABIND_RETURN(DataSetFloat2TokenWrapper, obj); } //BIND_END ////////////////////////////////////////// //BIND_LUACLASSNAME DataSetTokenFilter dataset.token.filter //BIND_CPP_CLASS DataSetTokenFilter //BIND_SUBCLASS_OF DataSetTokenFilter DataSetToken //BIND_CONSTRUCTOR DataSetTokenFilter { LUABIND_CHECK_ARGN(==,2); LUABIND_CHECK_PARAMETER(1, AuxDataSetToken); LUABIND_CHECK_PARAMETER(2, FunctionInterface); DataSetToken *ds; FunctionInterface *filter; LUABIND_GET_PARAMETER(1, AuxDataSetToken, ds); LUABIND_GET_PARAMETER(2, FunctionInterface, filter); obj = new DataSetTokenFilter(ds,filter); LUABIND_RETURN(DataSetTokenFilter, obj); } //BIND_END april-ann-0.3.1/packages/basics/dataset/c_src/000077500000000000000000000000001234204160600211325ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/dataset/c_src/dataset.cc000066400000000000000000001000771234204160600230730ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Francisco Zamora-Martinez, Jorge * Gorbe-Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef DATASET_CC_H #define DATASET_CC_H #include #include #include #include "dataset.h" #include "mod.h" #include "clamp.h" #include "error_print.h" #include "maxmin.h" #include "april_assert.h" using april_utils::mod; using april_utils::clamp; // --------------------------------------------------------------------- template MatrixDataSet::MatrixDataSet(Matrix *m){ if (!m->isSimple()) ERROR_EXIT(128, "Matrix need to be simple (contiguous " "and in row-major)\n"); // numdim debe ser siempre >0 int d = m->getNumDim(); matrix = m; IncRef(matrix); // garbage collection offset = new int[d]; subMatrixSize= new int[d]; circular = new bool[d]; step = new int[d]; numSteps = new int[d]; orderStep = new int[d]; coordinate = new int[d]; // valores por defecto defaultValue = 0; for (int i=0; igetDimSize(i); // ocupa todo el ancho orderStep[i] = d-(i+1); step[i] = 1; numSteps[i] = 1 ; // m->getDimSize(i); circular[i] = false; } if (d > 0) { subMatrixSize[0] = 1; numSteps[0] = m->getDimSize(0); } // calcular estos otros valores: numPatternsv = patternSizev = 1; for(int i=0;i void MatrixDataSet::setValue(int *dest, int *orig){ for(int i=0;igetNumDim();i++){ dest[i]=orig[i]; } } template void MatrixDataSet::setValue(bool *dest, bool *orig){ for(int i=0;igetNumDim();i++){ dest[i]=orig[i]; } } template void MatrixDataSet::setNumSteps(int *v) { setValue(numSteps,v); numPatternsv=1; for(int i=0;igetNumDim();i++) { if (numSteps[i] == 0) ERROR_EXIT1(1, "Error: numsteps[%d] == 0\n",i); numPatternsv=numPatternsv*numSteps[i]; } } template void MatrixDataSet::setSubMatrixSize(int *v) { setValue(subMatrixSize,v); patternSizev=1; for(int i=0;igetNumDim();i++) patternSizev=patternSizev*subMatrixSize[i]; } template void MatrixDataSet::index2coordinate(int index) { for (int i=0; i < matrix->getNumDim();i++) { int j = orderStep[i]; coordinate[j] = offset[j] + (index % numSteps[j])*step[j]; index=index/numSteps[j]; } } template void MatrixDataSet::auxGetPattern(int offsetmatrix, int d) { int i,c,t; t = matrix->getDimSize(d); // recursiva if (d == matrix->getNumDim()-1) { // ultima dimension, caso base const T *data = matrix->getRawDataAccess()->getPPALForRead() + offsetmatrix*t; if (circular[d]) { for(i = subMatrixSize[d], c = coordinate[d]; i; c++,i--) { pattern[offsetpat++] = data[mod(c,t)]; } } else { for(i = subMatrixSize[d], c = coordinate[d]; i; c++,i--) { pattern[offsetpat++] = ((c < 0 || c >= t) ? defaultValue : data[c]); } } } else { // no es ultima dimension if (circular[d]) { // caso no base, es circular for(i = subMatrixSize[d], c = coordinate[d]; i; c++,i--) { auxGetPattern(offsetmatrix*matrix->getDimSize(d+1)+mod(c,t),d+1); } // cierra for caso base no circular } else { // caso no base, no circular for(i = subMatrixSize[d], c = coordinate[d]; i; c++,i--) { if (c < 0 || c >= t) { // rellenar el resto de dimensiones con defaultValue int veces = 1; for (int j = d+1; j < matrix->getNumDim(); j++) veces *= subMatrixSize[j]; for (;veces;veces--) pattern[offsetpat++] = defaultValue; } else { auxGetPattern(offsetmatrix*matrix->getDimSize(d)+c,d+1); } } // cierra for : caso base no circular } // cierra else : caso no base, no circular } // cierra else : no es ultima dimension } //se asume que T *pat ya es un vector suficientemente grande template int MatrixDataSet::getPattern(int index, T *pat){ index2coordinate(index); // actualiza vector coordinate pattern = pat; offsetpat = 0; auxGetPattern(0, 0); // recibe offsetmatrix y dimension a tratar return patternSize(); } template void MatrixDataSet::auxPutPattern(int offsetmatrix, int d) { int i,c,t; t = matrix->getDimSize(d); // recursiva if (d == matrix->getNumDim()-1) { // ultima dimension, caso base T *data = matrix->getRawDataAccess()->getPPALForWrite() + offsetmatrix*t; if (circular[d]) { for(i = subMatrixSize[d], c = coordinate[d]; i; c++,i--) { data[mod(c,t)] = const_pattern[offsetpat++]; } } else { for(i = subMatrixSize[d], c = coordinate[d]; i; c++,i--) { if ((0 <= c) && (c < t)) { data[c] = const_pattern[offsetpat]; } offsetpat++; } } } else { // no es ultima dimension if (circular[d]) { // caso no base, es circular for(i = subMatrixSize[d], c = coordinate[d]; i; c++,i--) { auxPutPattern(offsetmatrix*matrix->getDimSize(d+1)+(mod(c,t)),d+1); } // cierra for caso base no circular } else { // caso no base, no circular for(i = subMatrixSize[d], c = coordinate[d]; i; c++,i--) { if (c < 0 || c >= t) { // te sales de la matriz // saltarse el resto de dimensiones int veces = 1; for (int j = d+1; j < matrix->getNumDim(); j++) veces *= subMatrixSize[j]; offsetpat += veces; } else { auxPutPattern(offsetmatrix*matrix->getDimSize(d)+c,d+1); } } // cierra for : caso base no circular } // cierra else : caso no base, no circular } // cierra else : no es ultima dimension } //se asume que T *pat ya es un vector suficientemente grande template int MatrixDataSet::putPattern(int index, const T *pat) { index2coordinate(index); // actualiza vector coordinate const_pattern = pat; // pattern es atributo que se va modificando offsetpat = 0; // idem auxPutPattern(0, 0); // llamada recursiva inicial return patternSize(); } template MatrixDataSet::~MatrixDataSet(){ delete[] offset; delete[] subMatrixSize; delete[] circular; delete[] step; delete[] numSteps; delete[] coordinate; delete[] orderStep; DecRef(matrix); // garbage collection } // --------------------------------------------------------------------- template IdentityDataSet::IdentityDataSet(int patternSize, T zerovalue, T onevalue) : zerovalue(zerovalue), onevalue(onevalue) { patternsz = patternSize; } template IdentityDataSet::~IdentityDataSet() { // Nothing to do } template int IdentityDataSet::getPattern(int index, T *pat) { april_assert("Incorrect index" && index >= 0 && index < numPatterns()); for (int i=0; i int IdentityDataSet::putPattern(int index, const T *pat) { UNUSED_VARIABLE(index); UNUSED_VARIABLE(pat); return 0; } // --------------------------------------------------------------------- template UnionDataSet::UnionDataSet(int n, DataSet **v) { num = n; vds = new DataSet*[num]; d = new int[num+1]; d[0] = 0; patternsz = v[0]->patternSize(); int i; for (i=0; i < num; i++) { vds[i] = v[i]; IncRef(v[i]); // garbage collection if (patternsz != v[i]->patternSize()) { // ERROR!!!! // todo: comprobar esto en el binding ERROR_EXIT(1,"ERROR dataset.union: one of datasets has wrong patternsize\n"); } d[i+1] = d[i] + v[i]->numPatterns(); } } template UnionDataSet::~UnionDataSet() { for (int i=0; i < num; i++) { DecRef(vds[i]); // garbage collection } delete[] vds; // necesitamos borrar tambien los datasets apuntados? delete[] d; } template int UnionDataSet::getPattern(int index, T *pat) { // buscamos el dataset asociado y su indice correspondiente if (index < 0 || index >= numPatterns()) return 0; int izq,der,m; izq = 0; der = num; do { m = (izq+der)/2; if (d[m] <= index) izq = m; else der = m; } while (izq < der-1); return vds[izq]->getPattern(index-d[izq],pat); }; template int UnionDataSet::putPattern(int index, const T *pat) { // buscamos el dataset asociado y su índice correspondiente if (index < 0 || index >= numPatterns()) return 0; int izq,der,m; izq = 0; der = num; do { m = (izq+der)/2; if (d[m] <= index) izq = m; else der = m; } while (izq < der-1); return vds[izq]->putPattern(index-d[izq],pat); }; // --------------------------------------------------------------------- template SubDataSet::SubDataSet(int ini, int fin, DataSet *ds) { this->ds = ds; IncRef(ds); // garbage collection this->ini = ini; this->fin = fin; this->size = fin - ini + 1; } template SubDataSet::~SubDataSet() { DecRef(ds); // garbage collection } template int SubDataSet::getPattern(int index, T *pat) { // TODO: falta comprobar que el indice esta en el rango correcto return ds->getPattern(ini + index,pat); } template int SubDataSet::putPattern(int index, const T *pat) { // TODO: falta comprobar que el indice esta en el rango correcto return ds->putPattern(ini + index,pat); } // --------------------------------------------------------------------- template SplitDataSet::SplitDataSet(int ini, int fin, DataSet *ds) { this->ini = ini; this->fin = fin; this->ds = ds; IncRef(ds); // garbage collection size = fin-ini+1; aux = new T[ds->patternSize()]; } template SplitDataSet::~SplitDataSet() { DecRef(ds); // garbage collection delete[] aux; } template int SplitDataSet::getPattern(int index, T *pat) { ds->getPattern(index,aux); T *r = aux+ini; for (int i = 0; i < size; i++) pat[i] = r[i]; return size; } // --------------------------------------------------------------------- template JoinDataSet::JoinDataSet(int n, DataSet **v) { num = n; vds = new DataSet*[num]; d = new int[num+1]; d[0]= 0; int ps = v[0]->numPatterns(); int i; for (i=0; i < num; i++) { vds[i] = v[i]; IncRef(v[i]); // garbage collection if (ps != v[i]->numPatterns()) { // ERROR!!!! ERROR_EXIT(1,"Error in JoinDataSet constructor\n"); } d[i+1] = d[i] + v[i]->patternSize(); } } template JoinDataSet::~JoinDataSet() { for (int i=0; i < num; i++) { DecRef(vds[i]); // garbage collection } delete[] vds; delete[] d; } template int JoinDataSet::getPattern(int index, T *pat) { for (int i=0; i < num; i++) vds[i]->getPattern(index, pat+d[i]); return patternSize(); } template int JoinDataSet::putPattern(int index, const T *pat) { for (int i=0; i < num; i++) vds[i]->putPattern(index, pat+d[i]); return patternSize(); } // --------------------------------------------------------------------- template IndexDataSet::IndexDataSet(DataSet **datasets, int firstindex) { this->firstindex = firstindex; indices = datasets[0]; IncRef(indices); // garbage collection numdiccionarios = indices->patternSize(); diccionarios = new DataSet*[numdiccionarios]; patternindices = new T[numdiccionarios]; if (numdiccionarios == 0) { ERROR_EXIT(1,"error: indexDataSet needs at least 1 dictionary\n"); } patternsize = 0; for (int i=0; i < numdiccionarios; i++) { diccionarios[i] = datasets[i+1]; IncRef(diccionarios[i]); // garbage collection patternsize += diccionarios[i]->patternSize(); } } template IndexDataSet::~IndexDataSet() { delete[] patternindices; DecRef(indices); // garbage collection for (int i=0; i < numdiccionarios; i++) { DecRef(diccionarios[i]); // garbage collection } delete[] diccionarios; } template int IndexDataSet::getPattern(int index, T *pat) { int pos = 0; indices->getPattern(index,patternindices); for (int i=0; i < numdiccionarios; i++) { int idx = static_cast(patternindices[i])-firstindex; april_assert("Incorrect index at IndexDataSet" && idx >= 0); pos += diccionarios[i]->getPattern((int)idx,pat+pos); } return patternSize(); } template int IndexDataSet::putPattern(int index, const T *pat) { int pos = 0; index += firstindex; indices->getPattern(index,patternindices); for (int i=0; i < numdiccionarios; i++) { pos += diccionarios[i]->putPattern((int)patternindices[i]-firstindex,pat+pos); } return patternSize(); } // --------------------------------------------------------------------- template LinearCombDataSet::LinearCombDataSet(DataSet *ds, LinearCombConf *conf) { this->ds = ds; aux = new T[ds->patternSize()+1]; aux[0] = 1; IncRef(ds); // garbage collection this->conf = conf; IncRef(conf); // garbage collection } template LinearCombDataSet::~LinearCombDataSet() { delete[] aux; DecRef(conf); // garbage collection DecRef(ds); // garbage collection } template int LinearCombDataSet::getPattern(int index, T *pat) { int i,j,desde,hasta; desde = 0; ds->getPattern(index,aux+1); for (i=0; ipatternsize; i++) { // recorremos indices de salida pat[i] = 0; hasta = conf->numTuplas[i]; for (j=desde;jindices[j]]*conf->pesos[j]; desde = hasta; } return conf->patternsize; } // --------------------------------------------------------------------- template ContextualizerDataSet::ContextualizerDataSet(DataSet *ds, int izq, int der, bool reverse) : ctxtizq(izq), ctxtder(der), ds(ds), reverse(reverse) { IncRef(ds); // garbage collection numpatterns = ds->numPatterns(); patternsize = ds->patternSize()*(ctxtizq+1+ctxtder); } template ContextualizerDataSet::~ContextualizerDataSet() { DecRef(ds); // garbage collection } template int ContextualizerDataSet::getPattern(int index, T *pat) { T *vec = pat; int ps = ds->patternSize(), i,j = index-ctxtizq; if (reverse) { vec += (ctxtizq+ctxtder)*ps; ps = -ps; } for (i=0; igetPattern(((j >= 0) ? j : 0), vec); ds->getPattern(j, vec); vec += ps; j++; for (i=0; igetPattern(((j < numpatterns) ? j : numpatterns-1), vec); return patternsize; } template int ContextualizerDataSet::putPattern(int index, const T *pat) { const T *vec = pat; int ps = ds->patternSize(), i,j = index-ctxtizq; for (i=0; i= 0) ds->putPattern(j, vec); ds->putPattern(j, vec); vec += ps; j++; for (i=0; iputPattern(j, vec); return patternsize; } // --------------------------------------------------------------------- template AccumulateDataSet::AccumulateDataSet(int patsz, int numpat) { patternsize = patsz; numpatterns = numpat; data = new double[patsz]; for (int i=0;i AccumulateDataSet::~AccumulateDataSet() { delete[] data; } template int AccumulateDataSet::getPattern(int index, T *pat) { UNUSED_VARIABLE(index); // if (index < 0 || index >= numpatterns) // return 0; for (int i=0; i int AccumulateDataSet::putPattern(int index, const T *pat) { UNUSED_VARIABLE(index); // if (index < 0 || index >= numpatterns) // return 0; for (int i=0; i ByteDataSet::ByteDataSet(int patsz, int numpat, double a, double b) { patternsize = patsz; numpatterns = numpat; this->a = a; this->b = b; data = new unsigned char[patsz*numpat]; for (int i=0;i ByteDataSet::~ByteDataSet() { delete[] data; } template int ByteDataSet::getPattern(int index, T *pat) { // if (index < 0 || index >= numpatterns) // return 0; int offset = index*patternsize; for (int i=0; i int ByteDataSet::putPattern(int index, const T *pat) { // if (index < 0 || index >= numpatterns) // return 0; int offset = index*patternsize; for (int i=0; i BitDataSet::BitDataSet(int nump, int patsize) { numpatterns = nump; patternsize = patsize; int p = ((numpatterns*patternsize)>>3) + 1; data = new unsigned char[p]; for (int i=0; i BitDataSet::~BitDataSet() { delete[] data; } template int BitDataSet::getPattern(int index, T *pat) { index = index * patternsize; int bytePos = index >> 3; int bitPos = index & (0x07); for (int i=0; i> bitPos) & (0x01); if (v) pat[i] = T(1); else pat[i] = T(0); ++bitPos; if (bitPos > 7) { bitPos = 0; bytePos++; } } return patternsize; } template int BitDataSet::putPattern(int index, const T *pat) { index = index * patternsize; int bytePos = index >> 3; int bitPos = index & (0x07); for (int i=0; i 7) { bitPos = 0; bytePos++; } } return patternsize; } // --------------------------------------------------------------------- template SparseDataset::SparseDataset(Matrix *m, int nump, int patsize) : matrix(m), numpatterns(nump), patternsize(patsize) { if (!m->isSimple()) ERROR_EXIT(128, "Matrix need to be simple (contiguous " "and in row-major)\n"); IncRef(m); matrix_indexes = new int[nump]; int j = 0; const float *d = m->getRawDataAccess()->getPPALForRead(); for (int i=0; i= patternsize) ERROR_EXIT2(128, "Incorrect position value %.0f at matrix," " expected in range [0,%d]\n", d[k], patternsize-1); j += (count<<1) + 1; } if (j > m->size()) { ERROR_EXIT2(128, "Tamanyo de matriz incorrecto para SparseDataset!!!\n" "\tSe esperaba m->size= %d, y fue %d\n", j, m->size()); } } template SparseDataset::~SparseDataset() { DecRef(matrix); delete[] matrix_indexes; } template int SparseDataset::getPattern(int index, T *pat) { // WARNING: inly works with float memset(pat, 0, sizeof(T)*patternsize); const float *d = matrix->getRawDataAccess()->getPPALForRead(); int pos = matrix_indexes[index]; int count = d[pos++]; for (int i=0; i int SparseDataset::putPattern(int index, const T *pat) { UNUSED_VARIABLE(index); UNUSED_VARIABLE(pat); ERROR_EXIT(1,"Method putPattern forbidden for SparseDataset!!!\n"); return 0; } // --------------------------------------------------------------------- template ShortListDataSet::ShortListDataSet(DataSet *ds, int short_list_size, int unk_word) : ds(ds), short_list_size(short_list_size), unk_word(unk_word) { IncRef(ds); patsize = ds->patternSize(); } template ShortListDataSet::~ShortListDataSet() { DecRef(ds); } template int ShortListDataSet::getPattern(int index, T *pat) { UNUSED_VARIABLE(index); //int aux = ds->getPattern(index, pat); for (int i=0; i short_list_size) pat[i] = unk_word; return patsize; } template int ShortListDataSet::putPattern(int index, const T *pat) { return ds->putPattern(index, pat); } //---------------------------------------------------------- template IndexFilterDataSet::IndexFilterDataSet(DataSet *ds, ReferencedVectorUint *indexes) : ds(ds), indexes(indexes) { IncRef(ds); IncRef(indexes); } template IndexFilterDataSet::~IndexFilterDataSet() { DecRef(ds); DecRef(indexes); } template int IndexFilterDataSet::getPattern(int index, T *pat) { // OJO: -1 porque la tabla viene de LUA y comienza en 1 return ds->getPattern((*indexes)[index]-1, pat); } template int IndexFilterDataSet::putPattern(int index, const T *pat) { UNUSED_VARIABLE(index); UNUSED_VARIABLE(pat); ERROR_EXIT(1,"Method putPattern forbidden for IndexFilterDataSet!!!\n"); return 0; } //---------------------------------------------------------- template PerturbationDataSet::PerturbationDataSet(DataSet *ds, MTRand *random, double mean, double variance) : ds(ds), random(random), mean(mean), variance(variance) { IncRef(ds); IncRef(random); } template PerturbationDataSet::~PerturbationDataSet() { DecRef(ds); DecRef(random); } template int PerturbationDataSet::getPattern(int index, T *pat) { int ret = ds->getPattern(index, pat); int sz = ds->patternSize(); for (int i=0; irandNorm(mean,variance); return ret; } template int PerturbationDataSet::putPattern(int index, const T *pat) { UNUSED_VARIABLE(index); UNUSED_VARIABLE(pat); ERROR_EXIT(1,"Method putPattern forbidden for PerturbationDataSet!!!\n"); return 0; } //------------------------------------------------------------- template SaltNoiseDataSet::SaltNoiseDataSet(DataSet *ds, MTRand *random, double vd, T zero) : ds(ds), random(random), vd(vd), zero(zero), number_of_zeroes(static_cast(vd*ds->patternSize())) { IncRef(ds); IncRef(random); zero_positions = new int[ds->patternSize()]; } template SaltNoiseDataSet::~SaltNoiseDataSet() { DecRef(ds); DecRef(random); delete[] zero_positions; } template int SaltNoiseDataSet::getPattern(int index, T *pat) { int ret = ds->getPattern(index, pat); int sz = ds->patternSize(); random->shuffle(sz, zero_positions); for (int i=0; i int SaltNoiseDataSet::putPattern(int index, const T *pat) { UNUSED_VARIABLE(index); UNUSED_VARIABLE(pat); ERROR_EXIT(1,"Method putPattern forbidden for SaltNoiseDataSet!!!\n"); return 0; } //------------------------------------------------------------- template SaltPepperNoiseDataSet::SaltPepperNoiseDataSet(DataSet *ds, MTRand *random, double vd, T zero, T one) : ds(ds), random(random), vd(vd), zero(zero), one(one), number_of_perturbations(static_cast(vd*ds->patternSize())) { IncRef(ds); IncRef(random); perturbed_positions = new int[ds->patternSize()]; } template SaltPepperNoiseDataSet::~SaltPepperNoiseDataSet() { DecRef(ds); DecRef(random); delete[] perturbed_positions; } template int SaltPepperNoiseDataSet::getPattern(int index, T *pat) { int ret = ds->getPattern(index, pat); int sz = ds->patternSize(); random->shuffle(sz, perturbed_positions); for (int i=0; irand() < 0.5) ? zero : one; return ret; } template int SaltPepperNoiseDataSet::putPattern(int index, const T *pat) { UNUSED_VARIABLE(index); UNUSED_VARIABLE(pat); ERROR_EXIT(1,"Method putPattern forbidden for SaltPepperNoiseDataSet!!!\n"); return 0; } //------------------------------------------------------------- template StepDataSet::StepDataSet(DataSet *ds, int step):ds(ds), step(step){ IncRef(ds); } template StepDataSet::~StepDataSet() { DecRef(ds); } template int StepDataSet::getPattern(int index, T *pat) { // The original position in the dataset int dst_index = (index * this->step); int ret = this->ds->getPattern(dst_index,pat); return ret; } template int StepDataSet::putPattern(int index, const T *pat) { UNUSED_VARIABLE(index); UNUSED_VARIABLE(pat); ERROR_EXIT(1, "Method putPattern forbidden for StepDataset!!\n"); return 0; } //------------------------------------------------------------- template DerivDataSet::DerivDataSet(DataSet *ds, bool deriv0, bool deriv1, bool deriv2) : ds(ds), deriv0(deriv0), deriv1(deriv1), deriv2(deriv2) { IncRef(ds); origpatternsz = ds->patternSize(); patternsz = 0; if (deriv0) patternsz++; if (deriv1) patternsz++; if (deriv2) patternsz++; patternsz *= origpatternsz; numpatterns = ds->numPatterns(); left1 = new T[origpatternsz]; left2 = new T[origpatternsz]; right1 = new T[origpatternsz]; right2 = new T[origpatternsz]; orig = (!deriv0 && deriv2) ? (new T[origpatternsz]) : 0; } template DerivDataSet::~DerivDataSet() { DecRef(ds); delete[] left1; delete[] left2; delete[] right1; delete[] right2; if (!deriv0 && deriv2) delete[] orig; } template int DerivDataSet::getPattern(int index, T *pat) { ds->getPattern(clamp(index-2,0,numpatterns-1),left2); ds->getPattern(clamp(index-1,0,numpatterns-1),left1); ds->getPattern(clamp(index+1,0,numpatterns-1),right1); ds->getPattern(clamp(index+2,0,numpatterns-1),right2); T *aux_pat = pat; if (deriv0) { ds->getPattern(index, aux_pat); aux_pat += origpatternsz; } if (deriv1) { for (int i=0; igetPattern(index, orig); } for (int i=0; i int DerivDataSet::putPattern(int index, const T *pat) { UNUSED_VARIABLE(index); UNUSED_VARIABLE(pat); ERROR_EXIT(1,"Method putPattern forbidden for DerivDataSet!!!\n"); return 0; } //------------------------------------------------------------- template CacheDataSet::CacheDataSet(DataSet *ds, int **word2cache, int *word2cache_sizes, T *decays, int voc_size, int cache_size, T near_zero, int begin_token_id, int end_token_id, int null_token_id, int cache_stop_token_id) : ds(ds),word2cache(word2cache), word2cache_sizes(word2cache_sizes), decays(decays), voc_size(voc_size), cache_size(cache_size), near_zero(near_zero), begin_token_id(begin_token_id), end_token_id(end_token_id), null_token_id(null_token_id), cache_stop_token_id(cache_stop_token_id) { IncRef(ds); float max_decay = 0.0f; for (int i=1; i<=cache_size; ++i) if (max_decay < decays[i]) max_decay = decays[i]; max_history = log(near_zero)/log(max_decay); if (ds->patternSize() > 1) { ERROR_EXIT(1,"Incorrect dataset size!!!\n"); } } template CacheDataSet::~CacheDataSet() { DecRef(ds); for (int i=0; i int CacheDataSet::getPattern(int index, T *pat) { T output; // ponemos la cache a cero for (int i=0; i= 0; --j) { ds->getPattern(j, &output); int wid = int(output); if (wid == end_token_id) break; } int k=0; // para toda la historia de la cache... for (j=j-1; j >= 0 && k < max_history; --j) { ds->getPattern(j, &output); int wid = int(output); // en caso de ser un stop, paramos if (wid == cache_stop_token_id) break; // solo se tiene en cuenta si la palabra es diferente a: bos, eos, null if (wid != begin_token_id && wid != end_token_id && wid != null_token_id) { // vector de indices int *idx_v = word2cache[wid]; if (idx_v != 0) { // para cada indice... for (int i=0; i near_zero) pat[idx-1] = exp_decay; // si es < near_zero le ponemos un 0.0 exacto else pat[idx-1] = 0.0f; } } } // procesamos una palabra mas ++k; } } return cache_size; } template int CacheDataSet::putPattern(int index, const T *pat) { UNUSED_VARIABLE(index); UNUSED_VARIABLE(pat); ERROR_EXIT(1,"Method putPattern forbidden for CacheDataSet!!!\n"); return 0; } //------------------------------------------------------------- template SubAndDivNormalizationDataSet:: SubAndDivNormalizationDataSet(DataSet *ds, T *sub, T *div) : ds(ds) { IncRef(ds); const int psize=ds->patternSize(); this->sub = new T[psize]; memcpy(this->sub, sub, sizeof(T)*psize); this->div = new T[psize]; for (int i=0; idiv[i] = 1.0/div[i]; } template SubAndDivNormalizationDataSet::~SubAndDivNormalizationDataSet() { DecRef(ds); delete[] sub; delete[] div; } template int SubAndDivNormalizationDataSet::getPattern(int index, T *pat) { const int ret = ds->getPattern(index, pat); const int sz = ds->patternSize(); april_assert(ret==sz); for (int i=0; i int SubAndDivNormalizationDataSet::putPattern(int index, const T *pat) { UNUSED_VARIABLE(index); UNUSED_VARIABLE(pat); ERROR_EXIT(1,"Method putPattern forbidden for SubAndDivNormalizationDataSet!!!\n"); return 0; } //------------------------------------------------------------- template ClampDataSet:: ClampDataSet(DataSet *ds, float lower, float upper) : ds(ds), lower(lower), upper(upper) { IncRef(ds); } template ClampDataSet::~ClampDataSet() { DecRef(ds); } template int ClampDataSet::getPattern(int index, T *pat) { const int ret = ds->getPattern(index, pat); const int sz = ds->patternSize(); april_assert(ret==sz); for (int i=0; i int ClampDataSet::putPattern(int index, const T *pat) { UNUSED_VARIABLE(index); UNUSED_VARIABLE(pat); ERROR_EXIT(1,"Method putPattern forbidden for ClampDataSet!!!\n"); return 0; } //---------------------------------------------------------- #endif // DATASET_CC_H april-ann-0.3.1/packages/basics/dataset/c_src/dataset.h000066400000000000000000000510111234204160600227260ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Francisco Zamora-Martinez, Jorge * Gorbe-Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef DATASET_H #define DATASET_H #include #include "unused_variable.h" #include "referenced.h" #include "matrix.h" #include "referenced_vector.h" #include using april_utils::ReferencedVectorUint; /// A pure abstract templatized class that serves as interface. /** A DataSet is a class interface which define the concept of set of pattern vectors. The template argument is the type of the data stored. Methods for get the size of the set, or size of each pattern vector, are defined. Also methods to put a new pattern or to get a pattern. Patterns are indexed from 0 to N-1, being N the numPatterns of the DataSet. */ template class DataSet : public Referenced { public: virtual ~DataSet() { } /// Number of patterns in the set virtual int numPatterns()=0; /// Size of each pattern. virtual int patternSize()=0; /// Get the pattern index to the vector pat. The function call returns the /// patternSize(). virtual int getPattern(int index, T *pat)=0; /// Put the given vector pat at pattern index. The function returns the /// patternSize(). virtual int putPattern(int index, const T *pat)=0; }; /// DataSet specialization to put or get patterns from a Matrix object. template class MatrixDataSet : public DataSet { private: /// A pointer referenced to the underlying Matrix object, shared pointer. Matrix *matrix; /// Initial position of each dimension int *offset; /// subPattern size. int *subMatrixSize; /// Circular boolean indicator for each dimension. bool *circular; /// Default value of positions out of Matrix limits. T defaultValue; /// Step of each dimension for the sliding window. int *step; /// Number of movements on each dimension (number of steps). int *numSteps; /// Order of movement for each dimension. int *orderStep; void setValue(int *dest, int* orig); void setValue(bool *dest, bool* orig); int numPatternsv; int patternSizev; /// Auxiliar, for getPattern. int *coordinate; /// Auxiliar, for getPattern. T *pattern; /// Auxiliar, for putPattern. const T *const_pattern; /// Auxiliar, for getPattern. int offsetpat; void index2coordinate(int index); void auxGetPattern(int offsetmatrix, int d); void auxPutPattern(int offsetmatrix, int d); public: MatrixDataSet(Matrix *m); virtual ~MatrixDataSet(); /// Setter for offset attribute. void setOffset(int* v) {setValue(offset,v);} /// Setter for step attribute. void setStep(int* v) {setValue(step,v);} /// Setter for submatrixsize attribute. void setSubMatrixSize(int* v); /// Setter for numSteps attribute. void setNumSteps(int* v); /// Setter for circular attribute. void setCircular(bool* v) {setValue(circular,v);} /// Setter for orderStep attribute. void setOrderStep(int* v) {setValue(orderStep,v);} /// Setter for default value attribute. void setDefaultValue(T f){defaultValue=f;} int numPatterns() { return numPatternsv; } int patternSize() { return patternSizev; } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; /// DataSet specialization to put or get patterns from a union of DataSets. /** This object allows several number of DataSets (which has exactly the same patternSize) to be treated as an unique DataSet. The numPatterns is the addition of the numPatterns of each individual DataSet. */ template class UnionDataSet : public DataSet { private: /// Number of DataSets. int num; /// Vector of referenced pointers to the DataSets. DataSet **vds; /// Vector of num+1 indices. int *d; /// Pattern size. int patternsz; public: UnionDataSet(int n, DataSet**v); virtual ~UnionDataSet(); int numPatterns() { return d[num]; } int patternSize() { return patternsz; } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; /// DataSet specialization which serves to getPatterns from an IdentityMatrix. template class IdentityDataSet : public DataSet { private: /// Value of zero. const T zerovalue, /// Value of one. onevalue; /// Patterm size. int patternsz; public: IdentityDataSet(int patternSize, T zerovalue, T onevalue); virtual ~IdentityDataSet(); int numPatterns() { return patternsz; } int patternSize() { return patternsz; } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; /// A DataSet specialization which takes an interval of patterns from other. /** This object is specialized to take an interval of patterns from other DataSet. For more general subsets representation, see IndexDataSet documentation. */ template class SubDataSet : public DataSet { private: /// Initial position of the interval int ini, /// Final position of the interval fin, /// Resulting numPatterns size; /// The underlying DataSet DataSet *ds; public: SubDataSet(int ini, int fin, DataSet*ds); virtual ~SubDataSet(); int numPatterns() { return size; } int patternSize() { return ds->patternSize(); } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; /// A specialization of DataSet which takes an split of other DataSet. /** This object allows to take a subset of the output elements from a given DataSet. That is, the resulting DataSet has the same numPatterns, but lower patternSize. The output subset is an interval. */ template class SplitDataSet : public DataSet { private: /// Initial position of the split interval. int ini, /// Final position of the split interval. fin, /// Resulting patternSize. size; /// An auxiliary vector. T *aux; /// The underlying DataSet DataSet *ds; public: SplitDataSet(int ini, int fin, DataSet *ds); virtual ~SplitDataSet(); int numPatterns() { return ds->numPatterns(); } int patternSize() { return size; } int getPattern(int index, T *pat); int putPattern(int index, const T *pat) { UNUSED_VARIABLE(index); UNUSED_VARIABLE(pat); return 0; } // NO DEFINIDO }; /// A specialization of DataSet which join outputs from several DataSets. /** This object joins the output a several number of given DataSets. All DataSets must have exactly the same numPatterns. The resulting patternSize is the addition of each patternSize of individuals DataSets. */ template class JoinDataSet : public DataSet { private: /// Number of DataSets. int num; /// A vector of referenced pointers to the underlying DataSets. DataSet **vds; /// num+1 size vector which keep patternSize accumulated result. int *d; public: JoinDataSet(int n, DataSet **v); virtual ~JoinDataSet(); int numPatterns() { return vds[0]->numPatterns(); } int patternSize() { return d[num]; } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; /// A specialization of DataSet which takes a general sub set from other. /** This object allows to take any subset of patterns from other DataSet. It builds a mapping between indexes and patterns. It is also useful for classification output specification. */ template class IndexDataSet : public DataSet { // A float could represent the int value 16777216 private: /// DataSet from which take indexes. DataSet *indices; /// Number of dictionaries, we need indices->patternSize() dictionaries. int numdiccionarios; /// Dictionary DataSets from which take patterns. DataSet **diccionarios; /// Auxiliar vector. T *patternindices; /// Output pattern size. int patternsize; /// First index, to solve Lua/C problems because of Lua 1 first index. int firstindex; public: IndexDataSet(DataSet **datasets,int firstindex=0); virtual ~IndexDataSet(); int numPatterns() { return indices->numPatterns(); } int patternSize() { return patternsize; } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; /// An auxiliar object for LinearCombDataSet. template class LinearCombConf : public Referenced { public: /// Pattern size of the linear combination int patternsize; /// Number of pairs (index,weight) of each patternSize. int *numTuplas; /// Indices of the combinations. int *indices; /// Weights of the combinations. T *pesos; LinearCombConf(int pattsz, int numpairs) { patternsize = pattsz; numTuplas = (new int[pattsz+1])+1; numTuplas[-1] = 0; indices = new int[numpairs]; pesos = new T[numpairs]; } virtual ~LinearCombConf() { delete[] (numTuplas-1); delete[] indices; delete[] pesos; } }; /// A specialization of DataSet, takes a DataSet and outputs a linear combination of its patterns. /** This object takes a DataSet and produces a linear combination of its patterns. For instance, taking a DataSet with X patternSize and generates Y patternSize patterns, the object will need a matrix of XxY. However, this matrix will be normally very disperse, so, the object LinearCombConf stores pairs of (index,weight), and has a list of pairs for each Y output element. */ template class LinearCombDataSet : public DataSet { private: /// Linear combination configuration. LinearCombConf *conf; /// The underlying DataSet. DataSet *ds; /// Auxiliar vector. T *aux; public: LinearCombDataSet(DataSet *ds, LinearCombConf *conf); virtual ~LinearCombDataSet(); int numPatterns() { return ds->numPatterns(); } int patternSize() { return conf->patternsize; } int getPattern(int index, T *pat); int putPattern(int index, const T *pat) { UNUSED_VARIABLE(index); UNUSED_VARIABLE(pat); return 0; } }; /// A specialization of DataSet which takes a DataSet and adds context to its patterns. /** This object adds context to the patterns of a given DataSet. The context are adjacents patterns, at left or/and at right positions from the interesting pattern index. In the case of a border limit, the interesting pattern will be repeated. */ template class ContextualizerDataSet : public DataSet { private: /// Left context. int ctxtizq, /// Right context. ctxtder; /// The underlying DataSet. DataSet *ds; /// Number of patterns. int numpatterns, /// Size of each pattern. patternsize; /// Indicates if the context will be reversed. bool reverse; public: ContextualizerDataSet(DataSet *ds,int izq, int der, bool reverse=false); virtual ~ContextualizerDataSet(); int numPatterns() { return numpatterns; } int patternSize() { return patternsize; } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; /// A specialization of DataSet for data accumulation using putPattern template class AccumulateDataSet : public DataSet { private: /// Number of patterns int numpatterns, /// Pattern size patternsize; /// Data accumulation vector. double *data; // IMPORTANT: it is not T type, T will be casted from/to double public: AccumulateDataSet(int patsz, int numpat); virtual ~AccumulateDataSet(); int numPatterns() { return numpatterns; } int patternSize() { return patternsize; } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; template class ByteDataSet : public DataSet { // sirve para acumular una serie de valores mediante putpattern private: int numpatterns,patternsize; double a,b; // y = a*x+b con x entre 0 y 255 unsigned char *data; public: ByteDataSet(int patsz, int numpat, double a, double b); virtual ~ByteDataSet(); int numPatterns() { return numpatterns; } int patternSize() { return patternsize; } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; template class BitDataSet : public DataSet { private: int numpatterns, patternsize; unsigned char *data; public: BitDataSet(int nump, int patsize); virtual ~BitDataSet(); int numPatterns() { return numpatterns; } int patternSize() { return patternsize; } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; /// A specialization of DataSet for use sparse data representation. /** This object takes a matrix like this: \verbatim 5 2 1 13 2 14 3 15 4 16 5 3 20 1 13 2 21 3 2 10 1 33 2 ... \endverbatim where first N number indicates how many elements, and following N*2 numbers are pairs of (index,value). */ template class SparseDataset : public DataSet { /// The underlying matrix with sparse data representation. Matrix *matrix; /// Number of patterns. int numpatterns, /// Pattern size. patternsize; /// Index position at the given matrix for each pattern. int *matrix_indexes; public: SparseDataset(Matrix *m, int nump, int patsize); virtual ~SparseDataset(); int numPatterns() { return numpatterns; } int patternSize() { return patternsize; } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; /// A specialization DataSet for shortlist approach in NNLMs. /** This object takes a DataSet as a dictionary of word features, and each getPattern return features of given word index. If the index is greater than short_list_size, it will take unk_word index. */ template class ShortListDataSet : public DataSet { /// The underlying DataSet DataSet *ds; /// Size of the shortlist approach. int short_list_size, /// Index of the unknown word (out-of-shortlist word) unk_word, /// Pattern size, number of features for each word patsize; public: ShortListDataSet(DataSet *ds, int short_list_size, int unk_word); virtual ~ShortListDataSet(); int numPatterns() { return ds->numPatterns(); } int patternSize() { return patsize; } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; /// Similar to IndexedDataSet but using a vector of unsigned int as indexes. template class IndexFilterDataSet : public DataSet { /// The indexed DataSet. DataSet *ds; /// The vector of indexes. ReferencedVectorUint *indexes; public: IndexFilterDataSet(DataSet *ds, ReferencedVectorUint *indexes); virtual ~IndexFilterDataSet(); int numPatterns() { return (int)indexes->size(); } int patternSize() { return ds->patternSize(); } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; #include "MersenneTwister.h" /// A specialization of DataSet which add gaussian noise to patterns. template class PerturbationDataSet : public DataSet { /// The underlying DataSet. DataSet *ds; /// A MTRand for random gaussian noise generation MTRand *random; /// Mean of the gaussian noise double mean, /// Variance of the gaussian noise variance; public: PerturbationDataSet(DataSet *ds, MTRand *random, double mean, double variance); virtual ~PerturbationDataSet(); int numPatterns() { return ds->numPatterns(); } int patternSize() { return ds->patternSize(); } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; /// A specialization of DataSet which add a fixed size salt noise to patterns. template class SaltNoiseDataSet : public DataSet { /// The underlying DataSet. DataSet *ds; /// A MTRand for random selection of pattern components MTRand *random; /// Percentage of values to be modified double vd; /// Value of the zero const T zero; /// Number of zeroes: vd * patternSize int number_of_zeroes; /// Vector of ints for the selected zero positions int *zero_positions; public: SaltNoiseDataSet(DataSet *ds, MTRand *random, double vd, T zero); virtual ~SaltNoiseDataSet(); int numPatterns() { return ds->numPatterns(); } int patternSize() { return ds->patternSize(); } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; /// A specialization of DataSet which add a fixed size salt and pepper noise to patterns. template class SaltPepperNoiseDataSet : public DataSet { /// The underlying DataSet. DataSet *ds; /// A MTRand for random selection of pattern components MTRand *random; /// Percentage of values to be modified double vd; /// Value of the zero const T zero; /// Value of the one const T one; /// Number of zeroes: vd * patternSize int number_of_perturbations; /// Vector of ints for the selected zero positions int *perturbed_positions; public: SaltPepperNoiseDataSet(DataSet *ds, MTRand *random, double vd, T zero, T one); virtual ~SaltPepperNoiseDataSet(); int numPatterns() { return ds->numPatterns(); } int patternSize() { return ds->patternSize(); } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; /// A specialization of DataSet which takes samples on a defined step size. template class StepDataSet : public DataSet { /// The underlying DataSet. DataSet *ds; /// A MTRand for random selection of pattern components int step; public: StepDataSet(DataSet *ds, int step); virtual ~StepDataSet(); int numPatterns() { return (int)ceil((float)ds->numPatterns()/step); } int patternSize() { return ds->patternSize(); } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; /// A specialization of DataSet for cacheNNLMs training. template class CacheDataSet : public DataSet { DataSet *ds; int **word2cache; int *word2cache_sizes; T *decays; int voc_size; int cache_size; T near_zero; int max_history; int begin_token_id; int end_token_id; int null_token_id; int cache_stop_token_id; public: CacheDataSet(DataSet *ds, int **word2cache, int *word2cache_sizes, T *decays, int voc_size, int cache_size, T near_zero, int begin_token_id, int end_token_id, int null_token_id, int cache_stop_token_id); virtual ~CacheDataSet(); int numPatterns() { return ds->numPatterns(); } int patternSize() { return cache_size; } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; template class DerivDataSet : public DataSet { DataSet *ds; bool deriv0,deriv1,deriv2; int numpatterns,origpatternsz,patternsz; T *orig,*left1,*left2,*right1,*right2; public: DerivDataSet(DataSet *ds, bool deriv0, bool deriv1, bool deriv2); virtual ~DerivDataSet(); int numPatterns() { return numpatterns; } int patternSize() { return patternsz; } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; /// A specialization of DataSet which performs sub, and div normalization template class SubAndDivNormalizationDataSet : public DataSet { /// The underlying DataSet. DataSet *ds; /// The vector with sub values T *sub; /// The vector with div values T *div; public: SubAndDivNormalizationDataSet(DataSet *ds, T *sub, T *div); virtual ~SubAndDivNormalizationDataSet(); int numPatterns() { return ds->numPatterns(); } int patternSize() { return ds->patternSize(); } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; /// A specialization of DataSet which performs a clamp template class ClampDataSet : public DataSet { /// The underlying DataSet. DataSet *ds; float lower, upper; public: ClampDataSet(DataSet *ds, float lower, float upper); virtual ~ClampDataSet(); int numPatterns() { return ds->numPatterns(); } int patternSize() { return ds->patternSize(); } int getPattern(int index, T *pat); int putPattern(int index, const T *pat); }; /*** Implementacion ***/ #include "dataset.cc" #endif // DATASET_H april-ann-0.3.1/packages/basics/dataset/c_src/datasetFloat.h000066400000000000000000000032761234204160600237260ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Francisco Zamora-Martinez, Jorge * Gorbe-Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef UTILDATASETFLOAT_H #define UTILDATASETFLOAT_H #include "dataset.h" typedef DataSet DataSetFloat; typedef MatrixDataSet MatrixDataSetFloat; typedef LinearCombConf LinearCombConfFloat; typedef SparseDataset SparseDatasetFloat; typedef ShortListDataSet ShortListDataSetFloat; typedef IndexFilterDataSet IndexFilterDataSetFloat; typedef PerturbationDataSet PerturbationDataSetFloat; typedef SaltNoiseDataSet SaltNoiseDataSetFloat; typedef SaltPepperNoiseDataSet SaltPepperNoiseDataSetFloat; typedef StepDataSet StepDataSetFloat; typedef DerivDataSet DerivDataSetFloat; typedef CacheDataSet CacheDataSetFloat; typedef SubAndDivNormalizationDataSet SubAndDivNormalizationDataSetFloat; typedef ClampDataSet ClampDataSetFloat; #endif // UTILDATASETFLOAT_H april-ann-0.3.1/packages/basics/dataset/c_src/datasetToken.h000066400000000000000000000262041234204160600237350ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Francisco Zamora-Martinez, Jorge * Gorbe-Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef UTILDATASETTOKEN_H #define UTILDATASETTOKEN_H #include "function_interface.h" #include "unused_variable.h" #include "token_base.h" #include "token_matrix.h" #include "token_vector.h" #include "table_of_token_codes.h" #include "dataset.h" #include "datasetFloat.h" #include "wrapper.h" #include "vector.h" class DataSetToken : public Referenced { public: virtual ~DataSetToken() { } /// Number of patterns in the set virtual int numPatterns()=0; /// Size of each pattern. virtual int patternSize()=0; /// Get the pattern index to the vector pat virtual Token *getPattern(int index)=0; /// Get the pattern index to the vector pat virtual Token *getPatternBunch(const int *indexes,unsigned int bunch_size) { Token *output; Token *aux_token = getPattern(indexes[0]); TokenCode token_code = aux_token->getTokenCode(); switch(token_code) { case table_of_token_codes::token_matrix: { int dims[2] = { static_cast(bunch_size), patternSize() }; MatrixFloat *output_mat = new MatrixFloat(2, dims, CblasColMajor); IncRef(output_mat); TokenMatrixFloat *output_mat_token = new TokenMatrixFloat(output_mat); output = output_mat_token; // the dims vector will be used to rewrap the matrices to has the same // structure dims[0] = patternSize(); MatrixFloat *submat = 0; for (int i=0; i(bunch_size); ++i) { if (i>0) aux_token = getPattern(indexes[i]); IncRef(aux_token); TokenMatrixFloat *aux_mat_token; aux_mat_token = aux_token->convertTo(); MatrixFloat *aux_mat = aux_mat_token->getMatrix(); MatrixFloat *aux_mat_rewrapped = aux_mat->rewrap(dims, 1); IncRef(aux_mat); IncRef(aux_mat_rewrapped); submat = output_mat->select(0, i, submat); submat->copy(aux_mat_rewrapped); DecRef(aux_mat_rewrapped); DecRef(aux_mat); DecRef(aux_token); } delete submat; DecRef(output_mat); break; } default: { TokenBunchVector *output_token_vector = new TokenBunchVector(bunch_size); output = output_token_vector; unsigned int i = 0; do { (*output_token_vector)[i] = aux_token; IncRef(aux_token); if ( (++i) < bunch_size) aux_token = getPattern(indexes[i]); else break; } while(true); break; } } return output; } /// Put the given vector pat at pattern index virtual void putPattern(int index, Token *pat)=0; /// Put the pattern bunch virtual void putPatternBunch(const int *indexes,unsigned int bunch_size, Token *pat)=0; }; class DataSetTokenVector : public DataSetToken { april_utils::vector data; int pattern_size; public: DataSetTokenVector(int pattern_size) : pattern_size(pattern_size) { } virtual ~DataSetTokenVector() { for (unsigned int i=0; i(data.size()); } /// Size of each pattern. virtual int patternSize() { return pattern_size; } /// Get the pattern index to the vector pat virtual Token *getPattern(int index) { if (index < 0 || index >= numPatterns()) return 0; return data[index]->clone(); } /// Put the given vector pat at pattern index virtual void putPattern(int index, Token *pat) { if (index < 0 || index >= numPatterns()) return; AssignRef(data[index], pat); } /// Put the pattern bunch virtual void putPatternBunch(const int *indexes,unsigned int bunch_size, Token *pat) { UNUSED_VARIABLE(indexes); UNUSED_VARIABLE(bunch_size); UNUSED_VARIABLE(pat); ERROR_EXIT(128, "Not implemented!!!\n"); } }; class UnionDataSetToken : public DataSetToken { april_utils::vector ds_array; april_utils::vector sum_patterns; int pattern_size; public: UnionDataSetToken(DataSetToken **ds_array, unsigned int size) : pattern_size(0) { sum_patterns.push_back(0); for (unsigned int i=0; ipatternSize(); else if (pattern_size != ds->patternSize()) ERROR_EXIT2(128, "Incorrect pattern size, expected %d, found %d\n", pattern_size, ds->patternSize()); sum_patterns.push_back(sum_patterns.back() + ds->numPatterns()); } /// Number of patterns in the set virtual int numPatterns() { return sum_patterns.back(); } /// Size of each pattern. virtual int patternSize() { return pattern_size; } /// Get the pattern index to the vector pat virtual Token *getPattern(int index) { if (index < 0 || index >= numPatterns()) return 0; int izq,der,m; izq = 0; der = static_cast(sum_patterns.size()); do { m = (izq+der)/2; if (sum_patterns[m] <= index) izq = m; else der = m; } while (izq < der-1); return ds_array[izq]->getPattern(index-sum_patterns[izq]); } /// Put the given vector pat at pattern index virtual void putPattern(int index, Token *pat) { UNUSED_VARIABLE(index); UNUSED_VARIABLE(pat); ERROR_EXIT(128, "Not implemented!!!\n"); } /// Put the pattern bunch virtual void putPatternBunch(const int *indexes,unsigned int bunch_size, Token *pat) { UNUSED_VARIABLE(indexes); UNUSED_VARIABLE(bunch_size); UNUSED_VARIABLE(pat); ERROR_EXIT(128, "Not implemented!!!\n"); } }; class DataSetFloat2TokenWrapper : public DataSetToken { MatrixFloat *aux_mat; DataSetFloat *ds; public: DataSetFloat2TokenWrapper(DataSetFloat *ds) : ds(ds) { IncRef(ds); int dims[2] = { 1, ds->patternSize() }; aux_mat = new MatrixFloat(2, dims, CblasColMajor); } virtual ~DataSetFloat2TokenWrapper() { DecRef(ds); delete aux_mat; } int numPatterns() { return ds->numPatterns(); } int patternSize() { return ds->patternSize(); } Token *getPattern(int index) { int dims[2] = { 1, patternSize() }; MatrixFloat *mat = new MatrixFloat(2, dims, CblasColMajor); TokenMatrixFloat *token = new TokenMatrixFloat(mat); FloatGPUMirroredMemoryBlock *mem_block = mat->getRawDataAccess(); float *mem_ptr = mem_block->getPPALForWrite(); ds->getPattern(index, mem_ptr); return token; } Token *getPatternBunch(const int *indexes, unsigned int bunch_size) { int dims[2], major_dim=0; dims[0] = static_cast(bunch_size); dims[1] = patternSize(); MatrixFloat *mat = new MatrixFloat(2, dims, CblasColMajor); TokenMatrixFloat *token = new TokenMatrixFloat(mat); FloatGPUMirroredMemoryBlock *aux_mem_block = aux_mat->getRawDataAccess(); float *aux_mem = aux_mem_block->getPPALForWrite(); int pattern_size = patternSize(); int num_patterns = numPatterns(); dims[major_dim] = 1; MatrixFloat::sliding_window window(mat, dims, 0, dims, 0, 0); for (unsigned int i=0; igetPattern(indexes[i], aux_mem); MatrixFloat *submat = window.getMatrix(); submat->copy(aux_mat); delete submat; window.next(); } return token; } void putPattern(int index, Token *pat) { if (pat->getTokenCode() != table_of_token_codes::token_matrix) ERROR_EXIT(128, "Incorrect token type, expected token matrix\n"); TokenMatrixFloat *token_matrix = pat->convertTo(); MatrixFloat *mat = token_matrix->getMatrix(); FloatGPUMirroredMemoryBlock *mem_block = mat->getRawDataAccess(); const float *v = mem_block->getPPALForRead(); ds->putPattern(index, v); } void putPatternBunch(const int *indexes,unsigned int bunch_size, Token *pat) { if (pat->getTokenCode() != table_of_token_codes::token_matrix) ERROR_EXIT(128, "Incorrect token type, expected token matrix\n"); TokenMatrixFloat *token_matrix = pat->convertTo(); MatrixFloat *mat = token_matrix->getMatrix(); if (mat->getNumDim() != 2) ERROR_EXIT(128, "Only allowed for 2-dim matrices\n"); FloatGPUMirroredMemoryBlock *aux_mem_block = aux_mat->getRawDataAccess(); float *aux_mem = aux_mem_block->getPPALForWrite(); int pattern_size = patternSize(); int coords[2], major_dim; int sizes[2]; major_dim = 0; coords[1] = 0; sizes[0] = 1; sizes[1] = pattern_size; for (unsigned int i=0; i(i); MatrixFloat *submat = new MatrixFloat(mat, coords, sizes, false); aux_mat->copy(submat); delete submat; ds->putPattern(indexes[i], aux_mem); } } }; class DataSetTokenFilter : public DataSetToken { // the underlying dataset DataSetToken *ds; Functions::FunctionInterface *filter; public: DataSetTokenFilter(DataSetToken *ds, Functions::FunctionInterface *filter) : ds(ds), filter(filter) { IncRef(ds); IncRef(filter); } virtual ~DataSetTokenFilter() { DecRef(ds); DecRef(filter); } /// Number of patterns in the set virtual int numPatterns() { return ds->numPatterns(); } /// Size of each pattern. virtual int patternSize() { return ( (filter->getOutputSize() > 0) ? filter->getOutputSize() : ds->patternSize() ); } /// Get the pattern index to the vector pat virtual Token *getPattern(int index) { return filter->calculate(ds->getPattern(index)); } /// Get the pattern index to the vector pat virtual Token *getPatternBunch(const int *indexes,unsigned int bunch_size) { return filter->calculate(ds->getPatternBunch(indexes,bunch_size)); } /// Put the given vector pat at pattern index virtual void putPattern(int index, Token *pat) { UNUSED_VARIABLE(index); UNUSED_VARIABLE(pat); ERROR_EXIT(128, "Not implemented\n"); } /// Put the pattern bunch virtual void putPatternBunch(const int *indexes,unsigned int bunch_size, Token *pat) { UNUSED_VARIABLE(indexes); UNUSED_VARIABLE(bunch_size); UNUSED_VARIABLE(pat); ERROR_EXIT(128, "Not implemented\n"); } }; #endif // UTILDATASETFLOAT_H april-ann-0.3.1/packages/basics/dataset/c_src/fmeasure.cc000066400000000000000000000046061234204160600232560ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Francisco Zamora-Martinez, Jorge * Gorbe-Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "error_print.h" #include "fmeasure.h" float Fmeasure(DataSetFloat *ds, DataSetFloat *GT, float &PR, float &RC) { // Error control if (ds->numPatterns() != GT->numPatterns()) { ERROR_PRINT2("F measure: diferent numPatterns(): %d != %d\n", ds->numPatterns(), GT->numPatterns()); exit(128); } if (ds->patternSize() != GT->patternSize()) { ERROR_PRINT2("F measure: diferent patternSize(): %d != %d\n", ds->patternSize(), GT->patternSize()); exit(128); } if (ds->patternSize() != 1) { ERROR_PRINT1("F measure: patternSize must be 1, and is %d\n", ds->patternSize()); exit(128); } /////////////////////////////////////////////////////////////// const int patSize = ds->patternSize(); const int numPats = ds->numPatterns(); if (patSize != 1) { ERROR_PRINT("F measure: patternSize different of 1\n"); exit(128); } // int Ctp=0; // number of true positives int Cfp=0; // number of false positives int Cfn=0; // number of false negatives // float *pat_ds = new float[patSize], *pat_GT = new float[patSize]; for (int i=0; igetPattern(i, pat_ds); GT->getPattern(i, pat_GT); if (positive(pat_ds[0])) { // true positive if (positive(pat_GT[0])) ++Ctp; // false positive else ++Cfp; } // false negative else if (positive(pat_GT[0])) ++Cfn; } // RC = float(Ctp)/(Cfn + Ctp); PR = float(Ctp)/(Cfp + Ctp); float FM = (2*RC*PR / (RC+PR)) * 100; delete[] pat_ds; delete[] pat_GT; return FM; } april-ann-0.3.1/packages/basics/dataset/c_src/fmeasure.h000066400000000000000000000021441234204160600231130ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Francisco Zamora-Martinez, Jorge * Gorbe-Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef FMEASURE_H #define FMEASURE_H #include "datasetFloat.h" #define positive(v) (v)<=0.1f /// This function computes Fmeasure given two DataSetFloat. float Fmeasure(DataSetFloat *ds, DataSetFloat *GT, float &PR, float &RC); #endif april-ann-0.3.1/packages/basics/dataset/doc/000077500000000000000000000000001234204160600206065ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/dataset/doc/dataset_user.dox000066400000000000000000000255461234204160600240210ustar00rootroot00000000000000 /** \page dataset Dataset Las matrices por sí mismas no son directamente utilizables desde los algoritmos de aprendizaje automático, ya que estos utilizan una abstracción de un conjunto de datos denominada \c dataset Un \c dataset responde a los métodos siguientes: - \b numPatterns, devuelve el número de patrones. - \b patternSize, devuelve el tamaño máximo de los patrones. - \b getPattern, recibe un índice numérico (un valor entre 1 y numPatterns) y devuelve un vector (tabla \nom{Lua}) con el índice-ésimo patrón. - \b putPattern, recibe un índice numérico (un valor entre 1 y \nom{numPatterns}) y un vector de tamaño \nom{patternSize} y modifica el \nom{dataset} para dar cuenta de esta información. No todas las clases \nom{dataset} permiten modificarse, y en tal caso avisan devolviendo 0 en lugar de \nom{patternSize}. \end{itemize} . \section dataset_matrix dataset.matrix La forma más convencional de crear un \c dataset es a partir de una matriz: \verbatim --> recordemos que xor_in es una matriz de 4x2 ds_xor_in = dataset.matrix(xor_in) --> 4 patrones de tamaño 2 --> recordemos que xor_out es una matriz de 4x1 ds_xor_out = dataset.matrix(xor_out) --> 4 patrones de tamaño 1 \endverbatim Cuando creamos un dataset a partir de una matriz de dimensiones \f$n_1 \times n_2 \times \cdots \times n_k\f$ se crea un dataset con \f$n_1\f$ patrones de tamaño \f$n_2 \cdots \times n_{k}\f$. Para una matriz de dimensión 2 corresponde con lo esperado de manera intuitiva, mientras que para una matriz tiene una sola dimensión (un vector) se corresponde con el recorrido de todos sus valores, como se aprecia en el siguiente ejemplo, donde además vemos que el método \c patterns() devuelve un iterador que se puede utlizar en un bucle \c for: \verbatim a = matrix(2, 2, {1,2,3,4}) b = dataset.matrix(a) for i,j in b:patterns() do print(table.concat(j,",")) end --> 1,2 --> 3,4 a = matrix(2,2,2,{1,2,3,4,5,6,7,8}) b = dataset.matrix(a) for i,j in b:patterns() do print(table.concat(j,",")) end --> 1,2,3,4 --> 5,6,7,8 a = matrix(4,{1,2,3,4}) b = dataset.matrix(a) for i,j in b:patterns() do print(table.concat(j,",")) end --> 1 --> 2 --> 3 --> 4 \endverbatim Hasta aquí no se aprecia ninguna ventaja del uso de \c dataset respecto de las matrices. Vamos a ver que sobre una misma matriz podemos generar varios datasets variando algunos parámetros que, hasta el momento, se han tomado por defecto. Si creamos un dataset con \c dataset.matrix y el primer argumento es una matriz de tamaño \f$n_1 \times n_2 \times \cdots \times n_k\f$, podemos pasar un segundo argumento que es una tabla con los siguientes campos: - \b patternSize, Es una tabla de \f$k\f$ enteros estrictamente positivos. Indica el tamaño del sub-patrón. Su valor por defecto es \f$\{ 1, n_2, n_3, \ldots{}, n_k\}\f$. - \b offset, Es una tabla de \f$k\f$ enteros. Indica la posición inicial del primer subpatrón que se va a extraer. Esta es una mejora respecto al \nom{SNNS}, por ejemplo. Además, los valores pueden ser negativos o pueden salirse de las coordenadas límite de la matriz. Atención porque la posición inicial en una coordenada es 0 (como en C) y no 1 (como en \nom{Lua}). El valor por defecto de este campo es \f$\{0,\ldots{},0\}\f$. - \b numSteps, Es una tabla de \f$k\f$ enteros estrictamente positivos. Indica el número de pasos que se utilizan en cada dimensión para generar todos los subpatrones. Su valor por defecto es \f$\{n_1, 1, \ldots{}, 1\}\f$. El número total de patrones del dataset será siempre igual al productorio de los valores de este campo. - \b stepSize, Es una tabla de \f$k\f$ valores enteros, pueden ser negativos o incluso cero. Indica el número de coordenadas que avanzamos en cada dimensión cuando generamos los subpatrones. Su valor por defecto es \f$\{1,\ldots{},1\}\f$. Evidentemente, en aquellas coordenadas donde \c numSteps sea 1, no se utiliza el valor correspondiente de \c stepSize, así que da igual el valor que le demos en esas coordenadas. Existen muchas formas de recorrer una matriz, pero hay dos muy habituales denominadas modo \emph{particionamiento} (denominado también teselación o ``tiling'') y el modo \emph{desplazamiento} (o ``shifting''). Para crear un dataset que recorra la matriz en modo particionamiento basta con poner el valor \nom{stepSize} igual a \nom{patternSize} en aquellas coordenadas donde \nom{patternSize} sea inferior al número de elementos en esa dimensión, y poner 1 en las restantes. - \b orderStep, Indica el orden en que se utilizan las \f$k\f$ coordenadas de la matriz para recorrer todos los subpatrones que se van a generar. Su valor por defecto es \f$k-1,k-2,\ldots{},2,1,0\f$ que corresponde a recorrer una matriz bidimensional por filas. Variando este campo se puede lograr un recorrido por columnas, por ejemplo. - \b defaultValue, Es un valor numérico (no necesariamente entero) que se utiliza para rellenar un patrón en aquellas zonas que se salen de los límites de la matriz por cualquiera de sus extremos. Su valor por defecto es 0. - \b circular, Es una tabla de \f$k\f$ valores \emph{booleanos} (en \nom{Lua} existen los literales \lstinline{true} y \lstinline{false}) que indican, para cada coordenada de la matriz, si ésta es circular o no. Su valor por defecto es todo a \lstinline{false} (es decir, no circular). Cuando una coordenada no es circular, al salirnos fuera de la matriz nos encontraremos con el valor por defecto \nom{defaultValue}, mientras que si la coordenada sí es circular, en lugar de salirnos volveremos a la coordenada inicial. Por ejemplo, si creamos una matriz de dimensión 2 y hacemos circular una de las coordenadas, tendríamos algo similar a un cilindro sin tapas. Si hacemos las 2 coordenadas circulares tendríamos un toro (un donut). Veamos un ejemplo sencillo del uso de estos valores. Queremos generar los datasets para aprender la or exclusiva utilizando una sola matriz: \verbatim m_xor = matrix.fromString[[ 4 3 ascii 0 0 0 0 1 1 1 0 1 1 1 0 ]] ds_input = dataset.matrix(m_xor,{patternSize={1,2}}) ds_output = dataset.matrix(m_xor,{offset={0,2},patternSize={1,1}}) for i = 1,ds_input:numPatterns() do printf("Index %d -> Input: %s Output: %s\n",i, table.concat(ds_input:getPattern(i),","), table.concat(ds_output:getPattern(i),",")) end --[[ Salida: Index 1 -> Input: 0,0 Output: 0 Index 2 -> Input: 0,1 Output: 1 Index 3 -> Input: 1,0 Output: 1 Index 4 -> Input: 1,1 Output: 0 ]]-- \endverbatim Como esta forma de utilizar una matriz es tan general, podemos definir la siguiente funcion: \verbatim function dataset_pair(m,sizein,sizeout) local d_in = dataset.matrix(m,{patternSize = {1,sizein}}) local d_out = dataset.matrix(m,{offset={0,sizein},patternSize = {1,sizeout}}) return d_in,d_out end -- se puede utilizar así: ds_input,ds_output = dataset_pair(m_xor,2,1) \endverbatim \section dataset_union dataset.union Permite que varios datasets que tienen el mismo \c patternSize se vean como uno solo con un \c numPatterns igual al sumatorio de los \c numPatterns de los \c datasets que lo componen. Requiere un único argumento que es una tabla con los \c datasets necesarios. \section dataset_indexed dataset.indexed El formato indexado permite crear un mapping de indices a patterns. Puede ser útil para especificar la salida de una clasificación, en tal caso el \c dataset sobre el que se basa el \c dataset.indexed representa la salida asociada a cada una de las clases. Requiere 2 argumentos. El primero es el dataset base. El segundo es una tabla con tantos \c datasets como \c patternSize tenga el dataset base, cada uno de ellos actuará como diccionario. El \c patternSize del \c dataset.indexed resultante es igual a la suma de los \c patternSize de cada diccionario. \section dataset_slice dataset.slice Permite seleccionar un subconjunto de patterns de un dataset, este subconjunto debe ser un intervalo (para subconjuntos más generales se puede utilizar la clase \c dataset.index) Requiere 3 argumentos. El primero es el dataset y luego necesita 2 argumentos que son los indices inicial y final de los patrones que se eligen como subconjunto. \section dataset_split dataset.split Permite seleccionar un subconjunto de los elementos de salida de un dataset. Es decir, el dataset resultante tiene el mismo numero de patrones (\c numPatterns) pero un \c patternSize menor. El subconjunto de salida es un intervalo del original. \section dataset_linearcomb dataset.linearcomb Permite realizar una combinación lineal de los elementos de un \c dataset. Se trata de una forma mucho más general que el \c dataset.split anteriormente descrito puesto que, aunque de manera algo complicada, es posible simular un \c dataset.split mediante un \c dataset.linearcomb. Un \c dataset.linearcomb requiere dos argumentos: un \c dataset y una tabla. La tabla es un vector con tantas componentes como queramos que sea el \c patternSize del \c dataset.linearcomb resultante. Obsérvese que el \c numPatterns del dataset resultante será el mismo. Cada componente correspondiente a cada posición de los patrones generados por el \c dataset.linearcomb es una combinación lineal expresada como una lista de pares (índice,valor). El índice \f$0\f$ está reservado a la constante numérica \f$1\f$. Veamos mediante un ejemplo cómo se utiliza. Tenemos un dataset de \f$4\f$ patrones de tamaño \f$4\f$. Queremos generar otro dataset con \f$4\f$ patrones de tamaño \f$3\f$, donde cada uno de los 3 elementos del patrón es una combinación lineal del dataset de partida. La primera componente es el \f$1^{er}\f$ elemento del patrón original más dos veces el segundo elemento. La segunda componente es la constante numérica \f$5\f$ más dos veces el tercer elemento del patrón original. Por último, la tercera componente es la segunda componente del patrón original: \verbatim -- creamos una matriz m = matrix.fromString[[ 4 4 ascii 1 2 3 4 4 5 6 8 9 10 11 12 13 14 15 16 ]] d = dataset.matrix(m) - 4 patrones: cada fila de la matriz linearc = { -- 3 combinaciones lineales: { {1,1.0}, {2, 2.0} }, { {0,5.0} , {3, 2.0} }, -- 5.0 + 2*posicion_3 del patrón { {2,1.0} }, } dlc = dataset.linearcomb(d,linearc) print("dataset d:") for index,pattern in d:patterns() do print(index,string.join(pattern,",")) end print("dataset dlc:") for index,pattern in dlc:patterns() do print(index,string.join(pattern,",")) end --[[ La salida sería: dataset d: 1 1,2,3,4 2 4,5,6,8 3 9,10,11,12 4 13,14,15,16 dataset dlc: 1 5,11,2 2 14,17,5 3 29,27,10 4 41,35,14 ]] \endverbatim \section dataset_join dataset.join Permite juntar las salidas de varios dataset que tienen el mismo numero de patrones (\c numPatterns). El \c patternSize del dataset resultante es igual al sumatorio de los \c patternSize de los datasets que lo componen. Requiere un único argumento que es una tabla con los datasets necesarios. */ april-ann-0.3.1/packages/basics/dataset/doc/saveFileBinary.txt000066400000000000000000000033241234204160600242540ustar00rootroot00000000000000$ april-mlp Lua 5.1.4 Copyright (C) 1994-2008 Lua.org, PUC-Rio > a = dataset.identity(10) > a:saveFileBinary("pepito") > a:saveFileAscii("pepitoascii") I després en python: python Python 2.7.1+ (r271:86832, Apr 11 2011, 18:13:53) [GCC 4.5.2] on linux2 Type "help", "copyright", "credits" or "license" for more information. > > > import numpy > > > a = numpy.fromfile("pepito",dtype=numpy.float32,count=-1,sep="") > > > a array([ 1., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 1., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 1., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 1., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 1., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 1., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 1., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 1., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 1., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 1.], dtype=float32) > > > len(a) 100 numpy.reshape(a,(len(a)/col,col)) array([[ 1., 0., 0., 0., 0.], [ 0., 0., 0., 0., 0.], [ 0., 1., 0., 0., 0.], [ 0., 0., 0., 0., 0.], [ 0., 0., 1., 0., 0.], [ 0., 0., 0., 0., 0.], [ 0., 0., 0., 1., 0.], [ 0., 0., 0., 0., 0.], [ 0., 0., 0., 0., 1.], [ 0., 0., 0., 0., 0.], [ 0., 0., 0., 0., 0.], [ 1., 0., 0., 0., 0.], [ 0., 0., 0., 0., 0.], [ 0., 1., 0., 0., 0.], [ 0., 0., 0., 0., 0.], [ 0., 0., 1., 0., 0.], [ 0., 0., 0., 0., 0.], [ 0., 0., 0., 1., 0.], [ 0., 0., 0., 0., 0.], [ 0., 0., 0., 0., 1.]], dtype=float32) april-ann-0.3.1/packages/basics/dataset/lua_src/000077500000000000000000000000001234204160600214715ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/dataset/lua_src/dataset.lua000066400000000000000000000035711234204160600236270ustar00rootroot00000000000000function dataset.to_fann_file_format(input_dataset, output_dataset) local numpat = input_dataset:numPatterns() if (output_dataset:numPatterns() ~= numpat) then error("dataset.to_fann_file_format input and output dataset has different number of patterns") end local resul = {} table.insert(resul,string.format("%d %d %d",numpat, input_dataset:patternSize(), output_dataset:patternSize())) for i=1,numpat do table.insert(resul,table.concat(input_dataset:getPattern(i)," ")) table.insert(resul,table.concat(output_dataset:getPattern(i)," ")) end return table.concat(resul,"\n") end function dataset.create_fann_file(filename, input_dataset, output_dataset) local str = dataset.to_fann_file_format(input_dataset,output_dataset) local fich = io.open(filename,"w") fich:write(str) fich:close() end ----------------------------------------------------------------------------- class("dataset.token.lua_filter") function dataset.token.lua_filter:__call(t) local params = get_table_fields({ dataset = { mandatory=true }, filter = { mandatory=true, type_match="function" }, }, t) local obj = { ds=params.dataset, filter=params.filter } if isa(ds,dataset) then obj.ds = dataset.token_wrapper(obj.ds) end return class_instance(obj, self) end function dataset.token.lua_filter:numPatterns() return self.ds:numPatterns() end function dataset.token.lua_filter:patternSize() return self.ds:patternSize() end function dataset.token.lua_filter:getPattern(idx) local output = self.filter( self.ds:getPattern(idx) ) assert( isa(output,token.base), "The output of the filter must be a token") return output end function dataset.token.lua_filter:getPatternBunch(idxs) local output = self.filter( self.ds:getPatternBunch(idx) ) assert( isa(output,token.base), "The output of the filter must be a token") return output end april-ann-0.3.1/packages/basics/dataset/package.lua000066400000000000000000000021561234204160600221430ustar00rootroot00000000000000 package{ name = "dataset", version = "1.0", depends = { "util", "matrix", "random", "tokens", "functions" }, keywords = { "dataset" }, description = "no description available", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, copy{ file= "c_src/dataset.cc", dest_dir = "include" }, provide_bind{ file = "binding/bind_dataset.lua.cc", dest_dir = "include" } }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_dataset.lua.cc", dest_dir = "build", } }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/basics/dataset/test/000077500000000000000000000000001234204160600210205ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/dataset/test/ground_truth.png000066400000000000000000000003261234204160600242530ustar00rootroot00000000000000PNG  IHDR PXsRGB pHYs  tIME ֒tEXtCommentCreated with GIMPWCIDATӅOA L1]0$$qL"Rsׅ2)ܕf[Y3%mJ)*EIIENDB`april-ann-0.3.1/packages/basics/dataset/test/ground_truth.txt000066400000000000000000000000211234204160600242760ustar00rootroot00000000000000ground_truth.png april-ann-0.3.1/packages/basics/dataset/test/result.png000066400000000000000000000003311234204160600230410ustar00rootroot00000000000000PNG  IHDR PXsRGB pHYs  tIME %tEXtCommentCreated with GIMPWFIDATeI@ŚXIVe$Ջ(GCs gvsvc1$fTçh-;\IENDB`april-ann-0.3.1/packages/basics/dataset/test/result.txt000066400000000000000000000000131234204160600230710ustar00rootroot00000000000000result.png april-ann-0.3.1/packages/basics/dataset/test/test_bitdataset.lua000066400000000000000000000016371234204160600247150ustar00rootroot00000000000000numPatterns = 100 patternSize = 100 m = matrix(numPatterns, patternSize) ds = dataset.matrix(m) dsbit = dataset.bit{ patternSize = patternSize, numPatterns = numPatterns } rnd = random(1234) for i=1,numPatterns do t = {} for j=1,patternSize do v = rnd:randInt(0,1) t[j] = v end ds:putPattern(i, t) dsbit:putPattern(i, t) -- print(table.concat(t, " ")) end for i=1,numPatterns do local t1 = ds:getPattern(i) local t2 = dsbit:getPattern(i) for j=1,#t1 do if t1[j] ~= t2[j] then print(i, j, t1[j], t2[j]) error("ERROR") end end end print("Test1 OK!") --------------------------------------------------- dsbit = dataset.bit{ dataset = ds } for i=1,numPatterns do local t1 = ds:getPattern(i) local t2 = dsbit:getPattern(i) for j=1,#t1 do if t1[j] ~= t2[j] then print(i, j, t1[j], t2[j]) error("ERROR") end end end print("Test2 OK!") april-ann-0.3.1/packages/basics/dataset/test/test_dataset.lua000066400000000000000000000005161234204160600242110ustar00rootroot00000000000000print("Empieza el programa") m = matrix(10,{1,0,0,0,0,0,0,0,0,0}) print(m) ds = dataset.matrix(m,{patternSize={10}, offset={0}, numSteps={20}, stepSize={-1}, circular = {true}}) print(ds) -- for index,pattern in ds:patterns() do -- print(index,"{"..table.concat(pattern,",").."}") -- end print("Termina el programa") april-ann-0.3.1/packages/basics/dataset/test/test_dataset4.lua000066400000000000000000000023511234204160600242740ustar00rootroot00000000000000-- vamos a probar matrices 3 dimensionales -- matrix de talla 4x3x2 viene a ser 2 capas de: -- -- col1 col2 col3 -- fila1 -- fila2 -- fila3 -- fila4 mat = matrix(4,3,2) -- un dataset que recorre la matriz por capas de profundidad: ds = dataset.matrix(mat,{ patternSize={4,3,1}, offset={0,0,0}, stepSize={0,0,1}, numSteps={1,1,2}, }) ds:putPattern(1,{1,2,3,4,5,6,7,8,9,10,11,12}) -- primera capa: -- 1 2 3 -- 4 5 6 -- 7 8 9 -- 10 11 12 ds:putPattern(2,{13,14,15,16,17,18,19,20,21,22,23,24}) -- segunda capa: -- 13 14 15 -- 16 17 18 -- 19 20 21 -- 22 23 24 -- recorremos la matriz pero por filas dsfilas = dataset.matrix(mat,{ patternSize={1,3,2}, offset={0,0,0}, stepSize={1,0,0}, numSteps={4,1,1}, }) -- vamos a imprimir cada fila: for i,pat in dsfilas:patterns() do printf("Patron %d -> %s\n",i,table.concat(pat,",")) end -- salida que pensamos que deberia de dar: -- Patron 1 -> 1,13,2,14,3,15 -- Patron 2 -> 4,16,5,17,6,18 -- Patron 3 -> 7,19,8,20,9,21 -- Patron 4 -> 10,22,11,23,12,24 -- salida del programa -- Patron 1 -> 1,13,2,14,4,16 -- Patron 2 -> 4,16,5,17,7,19 -- Patron 3 -> 7,19,8,20,10,22 -- Patron 4 -> 10,22,11,23,12,24 <- curiosamente esta bien april-ann-0.3.1/packages/basics/dataset/test/test_dataset_2.lua000066400000000000000000000006421234204160600244320ustar00rootroot00000000000000print("empezamos") a = matrix(2,2,{1,2,3,4}) b = dataset.matrix(a) print("UNO",a,b) for i,j in b:patterns() do print(table.concat(j,",")) end a = matrix(2,2,2,{1,2,3,4,5,6,7,8}) b = dataset.matrix(a) print("DOS",a,b) for i,j in b:patterns() do print(table.concat(j,",")) end a = matrix(4,{1,2,3,4}) b = dataset.matrix(a) print("TRES",a,b) for i,j in b:patterns() do print(table.concat(j,",")) end print("finalizamos") april-ann-0.3.1/packages/basics/dataset/test/test_dataset_3.lua000066400000000000000000000015021234204160600244270ustar00rootroot00000000000000print("empezamos") m_xor = matrix.fromString[[ 4 3 ascii 0 0 0 0 1 1 1 0 1 1 1 0 ]] ds_input = dataset.matrix(m_xor,{patternSize={1,2}}) ds_output = dataset.matrix(m_xor,{offset={0,2},patternSize={1,1}}) for i = 1,ds_input:numPatterns() do printf("Index %d -> Input: %s Output: %s\n",i, table.concat(ds_input:getPattern(i),","), table.concat(ds_output:getPattern(i),",")) end function dataset_pair(m,sizein,sizeout) local d_in = dataset.matrix(m,{patternSize = {1,sizein}}) local d_out = dataset.matrix(m,{offset={0,sizein},patternSize = {1,sizeout}}) return d_in,d_out end ds_input,ds_output = dataset_pair(m_xor,2,1) for i = 1,ds_input:numPatterns() do printf("Index %d -> Input: %s Output: %s\n",i, table.concat(ds_input:getPattern(i),","), table.concat(ds_output:getPattern(i),",")) end print("finalizamos") april-ann-0.3.1/packages/basics/dataset/test/test_deriv.lua000066400000000000000000000005151234204160600236740ustar00rootroot00000000000000d = dataset.identity(10) print("Dataset original:") for i,j in d:patterns() do print(table.concat(j,",")) end p = dataset.deriv{ dataset = d, deriv0 = false; deriv1 = true; -- default value deriv2 = false; } print("Dataset con derivadas y aceleraciones:") for i,j in p:patterns() do print(table.concat(j,",")) end april-ann-0.3.1/packages/basics/dataset/test/test_fmeasure.lua000066400000000000000000000014751234204160600244000ustar00rootroot00000000000000result_images_filename=arg[1] target_images_filename=arg[2] result_images_ds = {} for line in io.lines(result_images_filename) do local m = ImageIO.read(line):to_grayscale():info() table.insert(result_images_ds, dataset.matrix(m,{ stepSize = {1, 1}, patternSize = {1, 1}, numSteps = {m:dim()[1], m:dim()[2]} })) end target_images_ds = {} for line in io.lines(target_images_filename) do local m = ImageIO.read(line):to_grayscale():info() table.insert(target_images_ds, dataset.matrix(m,{ stepSize = {1, 1}, patternSize = {1, 1}, numSteps = {m:dim()[1], m:dim()[2]} })) end fm, pr, rc = dataset.fmeasure{ result_dataset = dataset.union(result_images_ds), target_dataset = dataset.union(target_images_ds), } print(fm, pr, rc) april-ann-0.3.1/packages/basics/dataset/test/test_indexed.lua000066400000000000000000000016071234204160600242060ustar00rootroot00000000000000 id5 = dataset.identity(5) id10 = dataset.identity(10) dsBase = dataset.matrix(matrix(3,2,{1,4, 2,2, 5,10})) print("Base dataset") for ipat,pat in dsBase:patterns() do print(ipat,table.concat(pat,",")) end -- patternSize of dsBase is 2, so there are 2 datasets used as -- dictionaries in the second argument: dsIndexed = dataset.indexed(dsBase, {id5,id10}) print("Indexed dataset") for ipat,pat in dsIndexed:patterns() do print(ipat,table.concat(pat,",")) end -- The output is: -- Base dataset -- 1 1,4 -- 2 2,2 -- 3 5,10 -- Indexed dataset -- 1 1,0,0,0,0,0,0,0,1,0,0,0,0,0,0 -- 2 0,1,0,0,0,0,1,0,0,0,0,0,0,0,0 -- 3 0,0,0,0,1,0,0,0,0,0,0,0,0,0,1 -- Observe the indexed dataset if we artificially separate its -- patterns in two blocks of sizes 5 and 10: -- Indexed dataset -- 1 1,0,0,0,0, 0,0,0,1,0,0,0,0,0,0 -- 2 0,1,0,0,0, 0,1,0,0,0,0,0,0,0,0 -- 3 0,0,0,0,1, 0,0,0,0,0,0,0,0,0,1 april-ann-0.3.1/packages/basics/dataset/test/test_linear_comb.lua000066400000000000000000000024261234204160600250400ustar00rootroot00000000000000 -- This test illustrates how to use a dataset.linearcomb -- first, we have to create a dataset.linear_comb_conf -- which receives a vector of tables -- (one table per output of the final dataset). -- Each table contains a list of tuples (index,weight). -- Let us create a dataset with 2 patterns of size 3: ds = dataset.matrix(matrix(2,3, {1,2,3, 4,5,6})) -- now, we create a dataset.linear_comb_conf to linearly combine -- patterns of size 3 into patterns of size 2 so that: -- the first one is 0.5 + 8*pattern(1) + 10*pattern(3) -- the second one is -1 + pattern(2) + 5*pattern(3) dlc = dataset.linear_comb_conf{ -- first output pattern: { {0,0.5},{1,8},{3,10} }, -- second output pattern: { {0,-1},{2,1},{3,5} }, } -- finally, we apply "dlc" to obtain a dataset.linearcomb from ds: resul = dataset.linearcomb(ds,dlc) print("Original dataset") for ipat,pat in ds:patterns() do print(ipat,table.concat(pat,",")) end print("Linear combination dataset") for ipat,pat in resul:patterns() do print(ipat,table.concat(pat,",")) end -- The output is as follows: -- Original dataset -- 1 1,2,3 -- 2 4,5,6 -- Linear combination dataset -- 1 38.5,16 -- 2 92.5,34 -- Observe that -- 38.5 = 0.5+8*1+10*3 -- 16 = -1 + 2 + 5*3 -- 92.5 = 0.5+8*4+10*6 -- 34 = -1 + 5 + 5*6 april-ann-0.3.1/packages/basics/dataset/test/test_perturbation.lua000066400000000000000000000006061234204160600253020ustar00rootroot00000000000000d = dataset.identity(5) print("Dataset sin perturbar:") for i,j in d:patterns() do print(table.concat(j,",")) end p = dataset.perturbation{ dataset = d, random = random(123), mean = 0, -- de la gaussiana variance = 0.1, -- de la gaussiana } for veces = 1,4 do print("Dataset perturbado:") for i,j in p:patterns() do print(table.concat(j,",")) end end april-ann-0.3.1/packages/basics/field_manager/000077500000000000000000000000001234204160600211715ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/field_manager/lua_src/000077500000000000000000000000001234204160600226215ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/field_manager/lua_src/field_manager.lua000066400000000000000000000047351234204160600261120ustar00rootroot00000000000000-- wrapper para field_manager local field_manager_methods, field_manager_class_metatable = class("field_manager") -- constructor function field_manager_class_metatable:__call() local obj = { fields = {} } obj = class_instance(obj, self, true) return obj end -- devuelve un campo del field_manager function field_manager_methods:get_field(name) return self.fields[name] end -- function field_manager_methods:load_lines(s) if type(s) ~= 'table' or type(s.filename) ~= 'string' or type(s.field) ~= 'string' then error("Error in field_manager load_lines method incorrect arguments\n") end local aux = {} for line in io.lines(s.filename) do table.insert(aux, line) end self.fields[s.field] = aux end -- function field_manager_methods:apply(s) -- comprobar argumentos if type(s) ~= 'table' or type(s.output_fields)~= 'table' or type(s.input_fields) ~= 'table' or type(s.the_function) ~= 'function' then error("Error in field_manager apply method incorrect arguments\n") end -- comprobar que el campo input_fields tiene al menos un campo local num_fields = table.getn(s.input_fields) if num_fields == 0 then error("Error in field_manager apply method at least one input field is needed\n") end -- comprobar que todos los campos de input_fields son adecuados for i,fieldname in ipairs(s.input_fields) do if type(self.fields[fieldname]) ~= 'table' then error(string.format("Error in field_manager apply method ".. "data_field %s not found incorrect arguments\n",fieldname)) end end local num_results = table.getn(s.output_fields) -- crear las tablas de resultados si hace falta: for j=1,num_results do if self.fields[s.output_fields[j]] == nil then self.fields[s.output_fields[j]] = {} end end -- iterar sobre los datos local size_data = table.getn(self.fields[s.input_fields[1]]) for i = 1,size_data do -- aplicar funcion al dato i-esimo local argumentos = {} for j=1,num_fields do table.insert(argumentos,self.fields[s.input_fields[j]][i]) end table.insert(argumentos,i) local resul = {s.the_function(table.unpack(argumentos))} if table.getn(resul) ~= num_results then error(string.format("Error in field_manager apply method at index %d",i)) end -- meter los datos for j=1,num_results do self.fields[s.output_fields[j]][i] = resul[j] end end end function field_manager_methods:delete_field(fieldname) self.fields[fieldname] = nil end april-ann-0.3.1/packages/basics/field_manager/package.lua000066400000000000000000000017271234204160600232760ustar00rootroot00000000000000package{ name = "field_manager", version = "1.0", depends = { }, keywords = { }, description = "", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, -- provide_bind{ file = "binding/bind_util.lua.cc" , dest_dir = "include" }, }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", dest_dir = "build", -- flags = "-std=c99", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, -- build_bind{ file = "binding/bind_util.lua.cc", dest_dir = "build" }, }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/basics/lexClass/000077500000000000000000000000001234204160600201725ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/lexClass/binding/000077500000000000000000000000001234204160600216045ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/lexClass/binding/bind_lexclass.lua.cc000066400000000000000000000055621234204160600255150ustar00rootroot00000000000000//BIND_HEADER_C //BIND_END //BIND_HEADER_H #include #include "lexclass.h" using namespace april_utils; //BIND_END //BIND_LUACLASSNAME LexClass _internal_lexclass_ //BIND_CPP_CLASS LexClass //BIND_CONSTRUCTOR LexClass { LexClass *obj = new LexClass(); LUABIND_RETURN(LexClass, obj); } //BIND_END //BIND_DESTRUCTOR LexClass { } //BIND_END //BIND_METHOD LexClass addPair { const char *lua_word, *lua_outsym; char *word, *outsym; log_float lprob; float prob; check_table_fields(L, 1, "word", "outsym", "prob", 0); LUABIND_GET_TABLE_PARAMETER(1, word, string, lua_word); LUABIND_GET_TABLE_PARAMETER(1, outsym, string, lua_outsym); LUABIND_GET_TABLE_PARAMETER(1, prob, float, prob); lprob = log_float(prob); word = new char[strlen(lua_word)+1]; strcpy(word, lua_word); outsym = new char[strlen(lua_outsym)+1]; strcpy(outsym, lua_outsym); uint32_t ret = obj->addPair(word, outsym, prob); LUABIND_RETURN(uint, ret); } //BIND_END //BIND_METHOD LexClass size { LUABIND_RETURN(uint, obj->size()); } //BIND_END //BIND_METHOD LexClass getWordFromWordId { uint32_t wid; LUABIND_GET_PARAMETER(1, uint, wid); const char *w = obj->getWordFromWordId(wid); LUABIND_RETURN(string, w); } //BIND_END //BIND_METHOD LexClass getWordFromPairId { uint32_t pid; LUABIND_GET_PARAMETER(1, uint, pid); const char *w = obj->getWordFromPairId(pid); LUABIND_RETURN(string, w); } //BIND_END //BIND_METHOD LexClass getOutSymFromOutSymId { uint32_t oid; LUABIND_GET_PARAMETER(1, uint, oid); const char *o = obj->getOutSymFromOutSymId(oid); LUABIND_RETURN(string, o); } //BIND_END //BIND_METHOD LexClass getOutSymFromPairId { uint32_t pid; LUABIND_GET_PARAMETER(1, uint, pid); const char *o = obj->getOutSymFromPairId(pid); LUABIND_RETURN(string, o); } //BIND_END //BIND_METHOD LexClass getWordId { uint32_t wid; const char *w; LUABIND_GET_PARAMETER(1, string, w); if (obj->getWordId(w, wid)) LUABIND_RETURN(uint, wid); else LUABIND_RETURN_NIL(); } //BIND_END //BIND_METHOD LexClass getOutSymId { uint32_t oid; const char *o; LUABIND_GET_PARAMETER(1, string, o); if (obj->getOutSymId(o, oid)) LUABIND_RETURN(uint, oid); else LUABIND_RETURN_NIL(); } //BIND_END //BIND_METHOD LexClass getPairData { uint32_t pair_id; LUABIND_GET_PARAMETER(1, uint, pair_id); LexClass::data_t d = obj->getPairData(pair_id); lua_newtable(L); LUABIND_RETURN_FROM_STACK(-1); lua_pushstring(L, "word"); lua_pushnumber(L, d.word); lua_settable(L, -3); lua_pushstring(L, "outsym"); lua_pushnumber(L, d.outsym); lua_settable(L, -3); lua_pushstring(L, "prob"); lua_pushnumber(L, d.prob.log()); lua_settable(L, -3); } //BIND_END //BIND_METHOD LexClass wordTblSize { LUABIND_RETURN(uint, obj->wordTblSize()); } //BIND_END //BIND_METHOD LexClass outsymTblSize { LUABIND_RETURN(uint, obj->outsymTblSize()); } //BIND_END april-ann-0.3.1/packages/basics/lexClass/c_src/000077500000000000000000000000001234204160600212635ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/lexClass/c_src/lexclass.h000066400000000000000000000103631234204160600232550ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Francisco Zamora-Martinez, Salvador España-Boquera * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef LEXCLASS_H #define LEXCLASS_H #include #include "vector.h" #include "referenced.h" #include "hash_table.h" #include "aux_hash_table.h" namespace april_utils { // OJO! esta tabla empieza en 1. el 0 esta reservado struct LexClass : public Referenced { struct data_t { uint32_t word, outsym; log_float prob; }; vector data; vector strings; vector string2wid_oid; vector wid2string; vector oid2string; hash string2id; LexClass() { char *aux1 = new char[2]; aux1[0] = '_'; aux1[1] = '\0'; char *aux2 = new char[2]; aux2[0] = '_'; aux2[1] = '\0'; // el 0 esta reservado para palabra vacia addPair(aux1, aux2, log_float::one()); } ~LexClass() { for (unsigned int i=0; i 0) { uint32_t &string_id = string2id[word]; if (string_id == 0) { // no estaba en la tabla string_id = strings.size(); strings.push_back(word); string2wid_oid.push_back(int_pair(0,0)); } else delete[] word; if ((wid=string2wid_oid[string_id].first) == 0) { string2wid_oid[string_id].first = wid2string.size(); wid = wid2string.size(); wid2string.push_back(string_id); } } else wid = 0; if (outsym != 0 && strlen(outsym) > 0) { uint32_t &string_id = string2id[outsym]; if (string_id == 0) { // no estaba en la tabla string_id = strings.size(); strings.push_back(outsym); string2wid_oid.push_back(int_pair(0,0)); } else delete[] outsym; if ((oid=string2wid_oid[string_id].second) == 0) { string2wid_oid[string_id].second = oid2string.size(); oid = oid2string.size(); oid2string.push_back(string_id); } } else oid = 0; data_t d; d.word = wid; d.outsym = oid; d.prob = prob; data.push_back(d); //printf("%u: %s %s (%u %u)\n", //data.size()-1, strings[wid2string[wid]], strings[oid2string[oid]], //wid, oid); return data.size()-1; } unsigned int size() { return data.size() - 1; } const char *getWordFromWordId(uint32_t wid) { return strings[ wid2string[wid]]; } const char *getWordFromPairId(uint32_t pairid) { return getWordFromWordId(data[pairid].word); } const char *getOutSymFromOutSymId(uint32_t oid) { return strings[ oid2string[oid]]; } const char *getOutSymFromPairId(uint32_t pairid) { return getOutSymFromOutSymId(data[pairid].outsym); } bool getWordId(const char *word, uint32_t &wid) { uint32_t *string_id; string_id = string2id.find((char*)word); if (string_id == 0) return false; wid = string2wid_oid[*string_id].first; return true; } bool getOutSymId(const char *outsym, uint32_t &oid) { uint32_t *string_id; string_id = string2id.find((char*)outsym); if (string_id == 0) return false; oid = string2wid_oid[*string_id].second; return true; } data_t getPairData(uint32_t pair_id) { return data[pair_id]; } unsigned int wordTblSize() { return wid2string.size()-1; } unsigned int outsymTblSize() { return oid2string.size()-1; } }; } #endif april-ann-0.3.1/packages/basics/lexClass/lua_src/000077500000000000000000000000001234204160600216225ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/lexClass/lua_src/lexClass.lua000066400000000000000000000126321234204160600241070ustar00rootroot00000000000000local lexClass_methods, lexClass_class_table = class("lexClass") function lexClass_class_table:__call(voc_id2word) local obj = { cobj = _internal_lexclass_(), units = {} } obj = class_instance(obj, self, true) if voc_id2word then for _,word in ipairs(voc_id2word) do obj:addPair{ word = word, } end end return obj end function lexClass_methods:addPair(t) local word = t.word or error ("Falta definir word") local outsym = t.outsym or word local prob = t.prob or 1.0 local units = t.units or {} local rid = self.cobj:addPair{ word=word, outsym=outsym, prob=math.log(prob) } if #units > 0 then self.units[rid] = units end return rid end function lexClass_methods:getWordFromPairId(pairid) return self.cobj:getWordFromPairId(pairid) end function lexClass_methods:getWordFromWordId(wid) return self.cobj:getWordFromWordId(wid) end function lexClass_methods:getOutSymFromPairId(pairid) return self.cobj:getOutSymFromPairId(pairid) end function lexClass_methods:getOutSymFromOutSymId(oid) return self.cobj:getOutSymFromOutSymId(oid) end function lexClass_methods:getWordId(word) return self.cobj:getWordId(word) end function lexClass_methods:getOutSymId(outsym) return self.cobj:getOutSymId(outsym) end -- Outsym [Word] prob t1 t2 t3 ... function lexClass.load(dict_file) local lex = lexClass() for line in dict_file:lines() do local l = string.tokenize(line) local outsym = l[1] local begin_units = 2 local prob = 1 local w = outsym if #l>1 and string.sub(l[2],1,1)=="[" and string.sub(l[2],#l[2],#l[2])=="]" then w = string.sub(l[2], 2, #l[2]-1) begin_units = begin_units + 1 end local units = {} if tonumber(l[begin_units]) ~= nil then prob = tonumber(l[begin_units]) begin_units = begin_units + 1 end for i=begin_units,#l do table.insert(units, l[i]) end -- anyadimos la palabra y toda su informacion local rid = lex:addPair{ word = w, outsym = outsym, prob = prob, units = units, } end return lex end -- para guardar en disco function lexClass_methods:save(f) -- for pairid=1,self.cobj:size() do -- local info = self.cobj:getInfo(pairid) -- -- -- f:write(self.oid2outsym[info.oid] .. " ") -- f:write("[".. self.wid2word[info.wid] .."] ") -- f:write(math.exp(info.prob) .." ") -- f:write(table.concat(info.units, " ")) -- f:write("\n") -- f:flush() -- end -- collectgarbage("collect") error("Deprecated!!! :'( hay que actualizar esta funcion") end function lexClass_methods:getWordVocabulary() local t = {} for i=1,self.cobj:wordTblSize() do table.insert(t, self.cobj:getWordFromWordId(i)) end return t end function lexClass_methods:getOutSymVocabulary() local t = {} for i=1,self.cobj:outsymTblSize() do table.insert(t, self.cobj:getOutSymFromOutSymId(i)) end return t end function lexClass_methods:searchWordsSequenceFromWIDs(wordid_seq) local words={} for i,id in ipairs(wordid_seq) do if id ~= 0 then table.insert(words, self.cobj:getWordFromWordId(id)) end end return words end function lexClass_methods:searchWordsSequence(pairid_seq) local words={} for i,id in ipairs(pairid_seq) do local word = self.cobj:getWordFromPairId(id) if word then if #word ~= 0 then table.insert(words, word) end else table.insert(words,"") end end return words end function lexClass_methods:searchOutSymsSequenceFromOIDs(outsym_seq) error ("Deprecated!!!!") -- local outsyms={} -- for i,id in ipairs(outsym_seq) do -- if id ~= 0 then table.insert(outsyms, self.oid2outsym[id]) end -- end -- return outsyms end function lexClass_methods:searchOutSymsSequence(pairid_seq) local outsyms={} for i,id in ipairs(pairid_seq) do local word = self.cobj:getOutSymFromPairId(id) if word then if #word ~= 0 then table.insert(outsyms,word) end else table.insert(outsyms, "") end end return outsyms end function lexClass_methods:searchWordIdSequence(words, unk_id) local ids={} for i,w in ipairs(words) do local wid = self.cobj:getWordId(w) or unk_id if wid ~= 0 then table.insert(ids, wid) end end return ids end function lexClass_methods:searchWordIdSequenceFromPairID(pairid_seq) local ids={} for i,pid in ipairs(pairid_seq) do local wid = self.cobj:getPairData(pid).word if wid ~= 0 then table.insert(ids, wid) end end return ids end function lexClass_methods:searchOutSymIdSequenceFromPairID(pairid_seq) local ids={} for i,pid in ipairs(pairid_seq) do local oid = self.cobj:getPairData(pid).outsym if oid ~= 0 then table.insert(ids, oid) end end return ids end function lexClass_methods:wordTblSize() return self.cobj:wordTblSize() end function lexClass_methods:outsymTblSize() return self.cobj:outsymTblSize() end function lexClass_methods:pairsTblSize() return self.cobj:size() end function lexClass_methods:size() error("OBSOLOTE: lexClass:size()") end function lexClass_methods:getCObject() return self.cobj end function lexClass_methods:getData(pair_id) local t = self.cobj:getPairData(pair_id) t.units = self.units[pair_id] or {} return t end function lexClass_methods:getPair(pair_id) local wid,oid local t = self.cobj:getPairData(pair_id) wid,oid = t.word,t.outsym return wid,oid end april-ann-0.3.1/packages/basics/lexClass/package.lua000066400000000000000000000020771234204160600222760ustar00rootroot00000000000000 package{ name = "lexClass", version = "1.0", depends = { "util" }, keywords = { "lexClass" }, description = "no description available", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_lexclass.lua.cc", dest_dir = "include" } }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", --flags = "-std=c99", not valid for c++!!! dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_lexclass.lua.cc", dest_dir = "build", } }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/basics/mathcore/000077500000000000000000000000001234204160600202165ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/mathcore/binding/000077500000000000000000000000001234204160600216305ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/mathcore/binding/bind_mathcore.lua.cc000066400000000000000000000117511234204160600255220ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C #include "luabindutil.h" #include "luabindmacros.h" #include "error_print.h" #define FUNCTION_NAME "Constructor" template void GPUMirroredMemoryBlockConstructor(lua_State *L, GPUMirroredMemoryBlock *&obj) { unsigned int N; if (lua_istable(L,1)) N = lua_rawlen(L,1); else LUABIND_GET_PARAMETER(1,uint,N); obj = new GPUMirroredMemoryBlock(N); if (lua_istable(L,1)) { T *ptr = obj->getPPALForWrite(); for (unsigned int i=0; i void GPUMirroredMemoryBlockSet(lua_State *L, GPUMirroredMemoryBlock *obj) { T value; unsigned int i; LUABIND_GET_PARAMETER(1,uint,i); LUABIND_GET_PARAMETER(2,number,value); if (i<=0 || i> obj->getSize()) ERROR_EXIT(128, "Index out of bounds\n"); T *ptr = obj->getPPALForWrite(); ptr[i-1] = value; } #undef FUNCTION_NAME #define FUNCTION_NAME "get" template T GPUMirroredMemoryBlockGet(lua_State *L, GPUMirroredMemoryBlock *obj) { unsigned int i; LUABIND_GET_PARAMETER(1,uint,i); if (i<=0 || i> obj->getSize()) ERROR_EXIT(128, "Index out of bounds\n"); const T *ptr = obj->getPPALForRead(); return ptr[i-1]; } #undef FUNCTION_NAME //BIND_END //BIND_HEADER_H #include "gpu_mirrored_memory_block.h" //BIND_END //BIND_FUNCTION mathcore.set_mmap_allocation { bool v; LUABIND_CHECK_ARGN(==,1); LUABIND_GET_PARAMETER(1, bool, v); GPUMirroredMemoryBlockBase::setUseMMapAllocation(v); } //BIND_END //BIND_FUNCTION mathcore.set_max_pool_size { int max_pool_size; LUABIND_CHECK_ARGN(==,1); LUABIND_GET_PARAMETER(1, int, max_pool_size); #ifndef NO_POOL GPUMirroredMemoryBlockBase:: changeMaxPoolSize(static_cast(max_pool_size)); #endif } //BIND_END //////////////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME FloatGPUMirroredMemoryBlock mathcore.block.float //BIND_CPP_CLASS FloatGPUMirroredMemoryBlock //BIND_CONSTRUCTOR FloatGPUMirroredMemoryBlock { LUABIND_CHECK_ARGN(==,1); GPUMirroredMemoryBlockConstructor(L,obj); LUABIND_RETURN(FloatGPUMirroredMemoryBlock,obj); } //BIND_END //BIND_METHOD FloatGPUMirroredMemoryBlock size { LUABIND_RETURN(uint,obj->getSize()); } //BIND_END //BIND_METHOD FloatGPUMirroredMemoryBlock set { LUABIND_CHECK_ARGN(==,2); GPUMirroredMemoryBlockSet(L,obj); LUABIND_RETURN(FloatGPUMirroredMemoryBlock,obj); } //BIND_END //BIND_METHOD FloatGPUMirroredMemoryBlock get { LUABIND_RETURN(float,GPUMirroredMemoryBlockGet(L,obj)); } //BIND_END //////////////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME DoubleGPUMirroredMemoryBlock mathcore.block.double //BIND_CPP_CLASS DoubleGPUMirroredMemoryBlock //BIND_CONSTRUCTOR DoubleGPUMirroredMemoryBlock { LUABIND_CHECK_ARGN(==,1); GPUMirroredMemoryBlockConstructor(L,obj); LUABIND_RETURN(DoubleGPUMirroredMemoryBlock,obj); } //BIND_END //BIND_METHOD DoubleGPUMirroredMemoryBlock size { LUABIND_RETURN(uint,obj->getSize()); } //BIND_END //BIND_METHOD DoubleGPUMirroredMemoryBlock set { LUABIND_CHECK_ARGN(==,2); GPUMirroredMemoryBlockSet(L,obj); LUABIND_RETURN(DoubleGPUMirroredMemoryBlock,obj); } //BIND_END //BIND_METHOD DoubleGPUMirroredMemoryBlock get { LUABIND_RETURN(double,GPUMirroredMemoryBlockGet(L,obj)); } //BIND_END //////////////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME Int32GPUMirroredMemoryBlock mathcore.block.int32 //BIND_CPP_CLASS Int32GPUMirroredMemoryBlock //BIND_CONSTRUCTOR Int32GPUMirroredMemoryBlock { LUABIND_CHECK_ARGN(==,1); GPUMirroredMemoryBlockConstructor(L,obj); LUABIND_RETURN(Int32GPUMirroredMemoryBlock,obj); } //BIND_END //BIND_METHOD Int32GPUMirroredMemoryBlock size { LUABIND_RETURN(uint,obj->getSize()); } //BIND_END //BIND_METHOD Int32GPUMirroredMemoryBlock set { LUABIND_CHECK_ARGN(==,2); GPUMirroredMemoryBlockSet(L,obj); LUABIND_RETURN(Int32GPUMirroredMemoryBlock,obj); } //BIND_END //BIND_METHOD Int32GPUMirroredMemoryBlock get { LUABIND_RETURN(int,GPUMirroredMemoryBlockGet(L,obj)); } //BIND_END april-ann-0.3.1/packages/basics/mathcore/c_src/000077500000000000000000000000001234204160600213075ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/mathcore/c_src/activation_functions_wrapper.cu000066400000000000000000001366031234204160600276420ustar00rootroot00000000000000/* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef NO_OMP #include #endif #include #include "unused_variable.h" #include "clamp.h" #include "wrapper.h" #include "ceiling_power_of_two.h" using april_utils::clamp; using april_utils::ceilingPowerOfTwo; /////////////////////////////////////////////////////////// /////////////////// Kernels /////////////////////////////// /////////////////////////////////////////////////////////// #define clip(v,min,max) ((v)max?max:v)) #ifdef USE_CUDA #include "cuda_utils.h" __global__ void applyMaskKernel(float *units, const float *mask, float mask_value, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); if (mask[index] < 0.5f) units[index] = mask_value; } } __global__ void logisticActKernel(const float *input_units, float *output_units, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); output_units[index] = sigmoid(1.0f, input_units[index]); } } __global__ void logisticDerKernel(const float *output_units, const float *input_errors, float *output_errors, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); float value = clip(output_units[index], NEAR_ZERO, 1.0f - NEAR_ZERO); output_errors[index] = input_errors[index] * value * (1.0f - value); } } __global__ void logLogisticActKernel(const float *input_units, float *output_units, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); output_units[index] = logsigmoid(input_units[index]); } } __global__ void tanhActKernel(const float *input_units, float *output_units, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); output_units[index] = sigmoid(2.0f, input_units[index]) - 1.0f; } } __global__ void tanhDerKernel(const float *output_units, const float *input_errors, float *output_errors, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); float value = clip(output_units[index], -1.0f + NEAR_ZERO, 1.0f - NEAR_ZERO); output_errors[index] = input_errors[index] * 0.5f * (1.0f - (value * value)); } } __global__ void softsignActKernel(const float *input_units, float *output_units, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); output_units[index] = input_units[index] / (1.0f + fabsf(input_units[index])); } } __global__ void softsignDerKernel(const float *output_units, const float *input_errors, float *output_errors, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); float value = clip(output_units[index], -1.0f + NEAR_ZERO, 1.0f - NEAR_ZERO); float aux = 1.0f + fabsf(value); output_errors[index] = input_errors[index] * 1.0f/(aux * aux); } } __global__ void softplusActKernel(const float *input_units, float *output_units, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); output_units[index] = log1pf(expf(input_units[index])); } } __global__ void softplusDerKernel(const float *input_units, const float *input_errors, float *output_errors, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); float value = input_units[index]; output_errors[index] = input_errors[index] * sigmoid(1.0f, value); } } __global__ void reLUActKernel(const float *input_units, float *output_units, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); output_units[index] = (input_units[index]>0.0f) ? input_units[index] : 0.0f; } } __global__ void reLUDerKernel(const float *input_units, const float *input_errors, float *output_errors, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); output_errors[index] = (input_units[index]>0.0f)?input_errors[index]:0.0f; } } __global__ void hardtanhActKernel(const float *input_units, float *output_units, unsigned int max_x, unsigned int lda_x, unsigned int max_y, float inf, float sup) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); output_units[index] = clip(input_units[index], inf, sup); } } __global__ void hardtanhDerKernel(const float *input_units, const float *input_errors, float *output_errors, unsigned int max_x, unsigned int lda_x, unsigned int max_y, float inf, float sup) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); float value = 0.0f; if (inf < input_units[index] && input_units[index] < sup) value = input_units[index]; output_errors[index] = input_errors[index] * value; } } __global__ void sinActKernel(const float *input_units, float *output_units, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); output_units[index] = sinf(input_units[index]); } } __global__ void sinDerKernel(const float *input_units, const float *input_errors, float *output_errors, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); output_errors[index] = input_errors[index] * cosf(input_units[index]); } } __global__ void minMaxFirstReduction(const float *input_units, float *minimums, float *maximums, unsigned int reduction_top, unsigned int max_x, unsigned int max_y, unsigned int lda_x) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); unsigned int active_reduction = reduction_top >> 1; if (matrix_y_pos < max_y) { if (matrix_x_pos < active_reduction) { unsigned int index = getMatrixIndex(matrix_x_pos, lda_x, matrix_y_pos); unsigned int passive_index = getMatrixIndex((matrix_x_pos + active_reduction), lda_x, matrix_y_pos); if (matrix_x_pos + active_reduction < max_x) { if (input_units[index] > input_units[passive_index]) { minimums[index] = input_units[passive_index]; maximums[index] = input_units[index]; } else { minimums[index] = input_units[index]; maximums[index] = input_units[passive_index]; } } else { minimums[index] = input_units[index]; maximums[index] = input_units[index]; } } } } __global__ void minMaxNextReduction(float *minimums, float *maximums, unsigned int reduction_top, unsigned int max_y, unsigned int lda_x) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); unsigned int active_reduction = reduction_top >> 1; if (matrix_y_pos < max_y) { if (matrix_x_pos < active_reduction) { unsigned int index = getMatrixIndex(matrix_x_pos, lda_x, matrix_y_pos); unsigned int passive_index = getMatrixIndex((matrix_x_pos + active_reduction), lda_x, matrix_y_pos); if (minimums[index] > minimums[passive_index]) minimums[index] = minimums[passive_index]; // else we do not modify anything if (maximums[index] < maximums[passive_index]) maximums[index] = maximums[passive_index]; } } } __global__ void sumFirstReduction(const float *output_units, float *sums, unsigned int reduction_top, unsigned int max_x, unsigned int max_y, unsigned int lda_x) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); unsigned int active_reduction = reduction_top >> 1; if (matrix_y_pos < max_y) { if (matrix_x_pos < active_reduction) { unsigned int index = getMatrixIndex(matrix_x_pos, lda_x, matrix_y_pos); unsigned int passive_index = getMatrixIndex((matrix_x_pos + active_reduction), lda_x, matrix_y_pos); if (matrix_x_pos + active_reduction < max_x) sums[index] = output_units[index] + output_units[passive_index]; else sums[index] = output_units[index]; } } } __global__ void sumNextReduction(float *sums, unsigned int reduction_top, unsigned int max_y, unsigned int lda_x) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); unsigned int active_reduction = reduction_top >> 1; if (matrix_y_pos < max_y) { if (matrix_x_pos < active_reduction) { unsigned int index = getMatrixIndex(matrix_x_pos, lda_x, matrix_y_pos); unsigned int passive_index = getMatrixIndex((matrix_x_pos + active_reduction), lda_x, matrix_y_pos); sums[index] = sums[index] + sums[passive_index]; } } } __global__ void applyMinimumNorm(float *minimums, float *maximums, unsigned int max_x) { unsigned int matrix_x_pos = blockIdx.x * blockDim.x + threadIdx.x; if (matrix_x_pos < max_x) if ((maximums[matrix_x_pos] - minimums[matrix_x_pos]) > 30.0f) minimums[matrix_x_pos] = maximums[matrix_x_pos] - 30.0f; } __global__ void applyExpMinus(const float *input_units, float *output_units, float *data, unsigned int max_x, unsigned int max_y, unsigned int lda_x) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixIndex(matrix_x_pos, lda_x, matrix_y_pos); output_units[index] = expf(input_units[index] - data[matrix_y_pos]); } } __global__ void applyMinusLog(const float *input_units, float *output_units, float *sums, float *maximums, unsigned int max_x, unsigned int max_y, unsigned int lda_x) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixIndex(matrix_x_pos, lda_x, matrix_y_pos); output_units[index] = (input_units[index] - maximums[matrix_y_pos] - log(sums[matrix_y_pos])); } } __global__ void applyInverse(float *sums, unsigned int max_x) { unsigned int matrix_x_pos = blockIdx.x * blockDim.x + threadIdx.x; if (matrix_x_pos < max_x) sums[matrix_x_pos] = 1.0f/sums[matrix_x_pos]; } __global__ void applyRatio(float *output_units, float *ratios, unsigned int max_x, unsigned int max_y, unsigned int lda_x) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixIndex(matrix_x_pos, lda_x, matrix_y_pos); output_units[index] = ratios[matrix_y_pos] * output_units[index]; } } #endif /////////////////////////////////////////////////////////// ///////// Activations and derivatives wrappers //////////// /////////////////////////////////////////////////////////// void applyMask(FloatGPUMirroredMemoryBlock *units, FloatGPUMirroredMemoryBlock *mask, float mask_value, unsigned int size, unsigned int bunch_size, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { float *units_ptr = units->getGPUForWrite(); const float *mask_ptr = mask->getGPUForRead(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); applyMaskKernel<<>> (units_ptr, mask_ptr, mask_value, bunch_size, bunch_size, size); } else { #endif float *units_ptr = units->getPPALForWrite(); const float *mask_ptr = mask->getPPALForRead(); const unsigned int sz = size*bunch_size; #ifndef NO_OMP #ifndef USE_CUDA #pragma omp parallel for #endif #endif for (unsigned int i=0; igetGPUForRead(); float *output_units_ptr = output_units->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); logisticActKernel<<>> (input_units_ptr, output_units_ptr, bunch_size, bunch_size, size); } else { #endif const float *input_units_ptr = input_units->getPPALForRead(); float *output_units_ptr = output_units->getPPALForWrite(); const unsigned int sz = size*bunch_size; #ifndef NO_OMP #ifndef USE_CUDA #pragma omp parallel for #endif #endif for (unsigned int i=0; igetGPUForRead(); const float *input_errors_ptr = input_errors->getGPUForRead(); float *output_errors_ptr = output_errors->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); logisticDerKernel<<>> (output_units_ptr, input_errors_ptr, output_errors_ptr, bunch_size, bunch_size, size); } else { #endif const float *output_units_ptr = output_units->getPPALForRead(); const float *input_errors_ptr = input_errors->getPPALForRead(); float *output_errors_ptr = output_errors->getPPALForWrite(); const unsigned int sz = size*bunch_size; #ifndef NO_OMP #ifndef USE_CUDA #pragma omp parallel for #endif #endif for (unsigned int i=0; igetGPUForRead(); float *output_units_ptr = output_units->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); logLogisticActKernel<<>> (input_units_ptr, output_units_ptr, bunch_size, bunch_size, size); } else { #endif const float *input_units_ptr = input_units->getPPALForRead(); float *output_units_ptr = output_units->getPPALForWrite(); const unsigned int sz = size*bunch_size; #ifndef NO_OMP #ifndef USE_CUDA #pragma omp parallel for #endif #endif for (unsigned int i=0; igetGPUForRead(); float *output_units_ptr = output_units->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); tanhActKernel<<>> (input_units_ptr, output_units_ptr, bunch_size, bunch_size, size); } else { #endif const float *input_units_ptr = input_units->getPPALForRead(); float *output_units_ptr = output_units->getPPALForWrite(); const unsigned int sz = size*bunch_size; #ifndef NO_OMP #ifndef USE_CUDA #pragma omp parallel for #endif #endif for (unsigned int i=0; igetGPUForWrite(); const float *input_errors_ptr = input_errors->getGPUForRead(); float *output_errors_ptr = output_errors->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); tanhDerKernel<<>> (output_units_ptr, input_errors_ptr, output_errors_ptr, bunch_size, bunch_size, size); } else { #endif const float *output_units_ptr = output_units->getPPALForRead(); const float *input_errors_ptr = input_errors->getPPALForRead(); float *output_errors_ptr = output_errors->getPPALForWrite(); const unsigned int sz = size*bunch_size; #ifndef NO_OMP #ifndef USE_CUDA #pragma omp parallel for #endif #endif for (unsigned int i=0; igetGPUForRead(); float *output_units_ptr = output_units->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); softsignActKernel<<>> (input_units_ptr, output_units_ptr, bunch_size, bunch_size, size); } else { #endif const float *input_units_ptr = input_units->getPPALForRead(); float *output_units_ptr = output_units->getPPALForWrite(); const unsigned int sz = size*bunch_size; #ifndef NO_OMP #ifndef USE_CUDA #pragma omp parallel for #endif #endif for (unsigned int i=0; igetGPUForWrite(); const float *input_errors_ptr = input_errors->getGPUForRead(); float *output_errors_ptr = output_errors->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); softsignDerKernel<<>> (output_units_ptr, input_errors_ptr, output_errors_ptr, bunch_size, bunch_size, size); } else { #endif const float *output_units_ptr = output_units->getPPALForRead(); const float *input_errors_ptr = input_errors->getPPALForRead(); float *output_errors_ptr = output_errors->getPPALForWrite(); const unsigned int sz = size*bunch_size; #ifndef NO_OMP #ifndef USE_CUDA #pragma omp parallel for #endif #endif for (unsigned int i=0; igetGPUForRead(); float *output_units_ptr = output_units->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); softplusActKernel<<>> (input_units_ptr, output_units_ptr, bunch_size, bunch_size, size); } else { #endif const float *input_units_ptr = input_units->getPPALForRead(); float *output_units_ptr = output_units->getPPALForWrite(); const unsigned int sz = size*bunch_size; #ifndef NO_OMP #ifndef USE_CUDA #pragma omp parallel for #endif #endif for (unsigned int i=0; igetGPUForWrite(); const float *input_errors_ptr = input_errors->getGPUForRead(); float *output_errors_ptr = output_errors->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); softplusDerKernel<<>> (input_units_ptr, input_errors_ptr, output_errors_ptr, bunch_size, bunch_size, size); } else { #endif const float *input_units_ptr = input_units->getPPALForRead(); const float *input_errors_ptr = input_errors->getPPALForRead(); float *output_errors_ptr = output_errors->getPPALForWrite(); const unsigned int sz = size*bunch_size; #ifndef NO_OMP #ifndef USE_CUDA #pragma omp parallel for #endif #endif for (unsigned int i=0; igetGPUForRead(); float *output_units_ptr = output_units->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); reLUActKernel<<>> (input_units_ptr, output_units_ptr, bunch_size, bunch_size, size); } else { #endif const float *input_units_ptr = input_units->getPPALForRead(); float *output_units_ptr = output_units->getPPALForWrite(); const unsigned int sz = size*bunch_size; #ifndef NO_OMP #ifndef USE_CUDA #pragma omp parallel for #endif #endif for (unsigned int i=0; i0.0f)?input_units_ptr[i]:0.0f; #ifdef USE_CUDA } #endif } void doMultiplyReLUDerivatives(FloatGPUMirroredMemoryBlock *input_units, FloatGPUMirroredMemoryBlock *input_errors, FloatGPUMirroredMemoryBlock *output_errors, unsigned int size, unsigned int bunch_size, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { float *input_units_ptr = input_units->getGPUForWrite(); const float *input_errors_ptr = input_errors->getGPUForRead(); float *output_errors_ptr = output_errors->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); reLUDerKernel<<>> (input_units_ptr, input_errors_ptr, output_errors_ptr, bunch_size, bunch_size, size); } else { #endif const float *input_units_ptr = input_units->getPPALForRead(); const float *input_errors_ptr = input_errors->getPPALForRead(); float *output_errors_ptr = output_errors->getPPALForWrite(); const unsigned int sz = size*bunch_size; #ifndef NO_OMP #ifndef USE_CUDA #pragma omp parallel for #endif #endif for (unsigned int i=0; i0.0f)?input_errors_ptr[i]:0.0f; } #ifdef USE_CUDA } #endif } void doApplyHardtanhActivation(FloatGPUMirroredMemoryBlock *input_units, FloatGPUMirroredMemoryBlock *output_units, unsigned int size, unsigned int bunch_size, float inf, float sup, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { const float *input_units_ptr = input_units->getGPUForRead(); float *output_units_ptr = output_units->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); hardtanhActKernel<<>> (input_units_ptr, output_units_ptr, bunch_size, bunch_size, size, inf, sup); } else { #endif const float *input_units_ptr = input_units->getPPALForRead(); float *output_units_ptr = output_units->getPPALForWrite(); const unsigned int sz = size*bunch_size; #ifndef NO_OMP #ifndef USE_CUDA #pragma omp parallel for #endif #endif for (unsigned int i=0; igetGPUForWrite(); const float *input_errors_ptr = input_errors->getGPUForRead(); float *output_errors_ptr = output_errors->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); hardtanhDerKernel<<>> (input_units_ptr, input_errors_ptr, output_errors_ptr, bunch_size, bunch_size, size, inf, sup); } else { #endif const float *input_units_ptr = input_units->getPPALForRead(); const float *input_errors_ptr = input_errors->getPPALForRead(); float *output_errors_ptr = output_errors->getPPALForWrite(); const unsigned int sz = size*bunch_size; #ifndef NO_OMP #ifndef USE_CUDA #pragma omp parallel for #endif #endif for (unsigned int i=0; i sup) output_errors_ptr[i] = 0.0f; else output_errors_ptr[i] = input_errors_ptr[i]; } #ifdef USE_CUDA } #endif } void doApplySinActivation(FloatGPUMirroredMemoryBlock *input_units, FloatGPUMirroredMemoryBlock *output_units, unsigned int size, unsigned int bunch_size, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { const float *input_units_ptr = input_units->getGPUForRead(); float *output_units_ptr = output_units->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); sinActKernel<<>> (input_units_ptr, output_units_ptr, bunch_size, bunch_size, size); } else { #endif const float *input_units_ptr = input_units->getPPALForRead(); float *output_units_ptr = output_units->getPPALForWrite(); const unsigned int sz = size*bunch_size; #ifndef NO_OMP #ifndef USE_CUDA #pragma omp parallel for #endif #endif for (unsigned int i=0; igetGPUForWrite(); const float *input_errors_ptr = input_errors->getGPUForRead(); float *output_errors_ptr = output_errors->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); sinDerKernel<<>> (input_units_ptr, input_errors_ptr, output_errors_ptr, bunch_size, bunch_size, size); } else { #endif const float *input_units_ptr = input_units->getPPALForRead(); const float *input_errors_ptr = input_errors->getPPALForRead(); float *output_errors_ptr = output_errors->getPPALForWrite(); const unsigned int sz = size*bunch_size; #ifndef NO_OMP #ifndef USE_CUDA #pragma omp parallel for #endif #endif for (unsigned int i=0; igetGPUForRead(); float *output_units_ptr = output_units->getGPUForWrite(); float *minimums_ptr = minimums->getGPUForWrite(); float *maximums_ptr = maximums->getGPUForWrite(); float *sums_ptr = sums->getGPUForWrite(); unsigned int units_top = ceilingPowerOfTwo(size); unsigned int top_reduction = units_top; dim3 block, grid; computeBlockAndGridSizesForARowMajorBunch(bunch_size, size, block, grid); minMaxFirstReduction<<>> (input_units_ptr, minimums_ptr, maximums_ptr, top_reduction, size, bunch_size, bunch_size); for (top_reduction >>= 1; top_reduction != 1; top_reduction >>= 1) { computeBlockAndGridSizesForARowMajorBunch(bunch_size, top_reduction, block, grid); minMaxNextReduction<<>> (minimums_ptr, maximums_ptr, top_reduction, bunch_size, bunch_size); } computeBlockAndGridSizesForAnArray(bunch_size, block, grid); applyMinimumNorm<<>> (minimums_ptr, maximums_ptr, bunch_size); computeBlockAndGridSizesForARowMajorBunch(bunch_size, size, block, grid); applyExpMinus<<>> (input_units_ptr, output_units_ptr, minimums_ptr, size, bunch_size, bunch_size); // We reset the top top_reduction = units_top; sumFirstReduction<<>> (output_units_ptr, sums_ptr, top_reduction, size, bunch_size, bunch_size); for (top_reduction >>= 1; top_reduction != 1; top_reduction >>= 1) { computeBlockAndGridSizesForARowMajorBunch(bunch_size, top_reduction, block, grid); sumNextReduction<<>> (sums_ptr, top_reduction, bunch_size, bunch_size); } computeBlockAndGridSizesForAnArray(bunch_size, block, grid); applyInverse<<>> (sums_ptr, bunch_size); computeBlockAndGridSizesForARowMajorBunch(bunch_size, size, block, grid); applyRatio<<>> (output_units_ptr, sums_ptr, size, bunch_size, bunch_size); } else { #endif const float *input_units_ptr = input_units->getPPALForRead(); float *output_units_ptr = output_units->getPPALForWrite(); for (unsigned int b = 0; b < bunch_size; ++b) { float minimum = input_units_ptr[0]; float maximum = input_units_ptr[0]; unsigned int cur_pos = bunch_size; for (unsigned int i = 2; i < size; i += 2) { float prev_unit = input_units_ptr[cur_pos]; cur_pos += bunch_size; float cur_unit = input_units_ptr[cur_pos]; cur_pos += bunch_size; if (prev_unit < cur_unit) { if (prev_unit < minimum) minimum = prev_unit; if (cur_unit > maximum) maximum = cur_unit; } else { if (cur_unit < minimum) minimum = cur_unit; if (prev_unit > maximum) maximum = prev_unit; } } if ((size & 1) == 0) { // si es impar unsigned int last_pos = (size - 1) * bunch_size; if (input_units_ptr[last_pos] < minimum) minimum = input_units_ptr[last_pos]; if (input_units_ptr[last_pos] > maximum) maximum = input_units_ptr[last_pos]; } if ((maximum - minimum) > 30.0f) minimum = maximum - 30.0f; double addition = 0; cur_pos = 0; for (unsigned int i = 0; i < size; i++) { double e = exp(input_units_ptr[cur_pos] - minimum); output_units_ptr[cur_pos] = e; addition += e; cur_pos += bunch_size; } float ratio = 1.0f/addition; cblas_sscal(size, ratio, output_units_ptr, bunch_size); output_units_ptr++; input_units_ptr++; } #ifdef USE_CUDA } #endif } void doMultiplySoftmaxDerivatives(FloatGPUMirroredMemoryBlock *output_units, FloatGPUMirroredMemoryBlock *input_errors, FloatGPUMirroredMemoryBlock *output_errors, unsigned int size, unsigned int bunch_size, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { ERROR_PRINT("NOT IMPLEMENTED FOR CUDA!!!\n"); } // else { #endif const float *output_units_ptr = output_units->getPPALForRead(); const float *input_errors_ptr = input_errors->getPPALForRead(); float *output_errors_ptr = output_errors->getPPALForWrite(); for (unsigned int b = 0; b < bunch_size; ++b) { float sum = 0.0f; unsigned int cur_pos = 0; for (unsigned int i = 0; i < size; i++) { sum += output_units_ptr[cur_pos] * input_errors_ptr[cur_pos]; cur_pos += bunch_size; } cur_pos = 0; for (unsigned int i = 0; i < size; i++) { output_errors_ptr[cur_pos] = ( output_units_ptr[cur_pos] * ( input_errors_ptr[cur_pos] - sum ) ); cur_pos += bunch_size; } output_units_ptr++; input_errors_ptr++; output_errors_ptr++; } #ifdef USE_CUDA // } #endif } void doApplyLogSoftmaxActivation(FloatGPUMirroredMemoryBlock *input_units, FloatGPUMirroredMemoryBlock *output_units, FloatGPUMirroredMemoryBlock *minimums, FloatGPUMirroredMemoryBlock *maximums, FloatGPUMirroredMemoryBlock *sums, unsigned int size, unsigned int bunch_size, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(minimums); UNUSED_VARIABLE(maximums); UNUSED_VARIABLE(sums); UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { const float *input_units_ptr = input_units->getGPUForRead(); float *output_units_ptr = output_units->getGPUForWrite(); float *minimums_ptr = minimums->getGPUForWrite(); float *maximums_ptr = maximums->getGPUForWrite(); float *sums_ptr = sums->getGPUForWrite(); unsigned int units_top = ceilingPowerOfTwo(size); unsigned int top_reduction = units_top; dim3 block, grid; computeBlockAndGridSizesForARowMajorBunch(bunch_size, size, block, grid); minMaxFirstReduction<<>> (input_units_ptr, minimums_ptr, maximums_ptr, top_reduction, size, bunch_size, bunch_size); for (top_reduction >>= 1; top_reduction != 1; top_reduction >>= 1) { computeBlockAndGridSizesForARowMajorBunch(bunch_size, top_reduction, block, grid); minMaxNextReduction<<>> (minimums_ptr, maximums_ptr, top_reduction, bunch_size, bunch_size); } computeBlockAndGridSizesForAnArray(bunch_size, block, grid); applyMinimumNorm<<>> (minimums_ptr, maximums_ptr, bunch_size); computeBlockAndGridSizesForARowMajorBunch(bunch_size, size, block, grid); applyExpMinus<<>> (input_units_ptr, output_units_ptr, maximums_ptr, size, bunch_size, bunch_size); // We reset the top top_reduction = units_top; sumFirstReduction<<>> (output_units_ptr, sums_ptr, top_reduction, size, bunch_size, bunch_size); for (top_reduction >>= 1; top_reduction != 1; top_reduction >>= 1) { computeBlockAndGridSizesForARowMajorBunch(bunch_size, top_reduction, block, grid); sumNextReduction<<>> (sums_ptr, top_reduction, bunch_size, bunch_size); } computeBlockAndGridSizesForARowMajorBunch(bunch_size, size, block, grid); applyMinusLog<<>> (input_units_ptr, output_units_ptr, sums_ptr, maximums_ptr, size, bunch_size, bunch_size); } else { #endif const float *input_units_ptr = input_units->getPPALForRead(); float *output_units_ptr = output_units->getPPALForWrite(); for (unsigned int b = 0; b < bunch_size; ++b) { float maximum = input_units_ptr[0]; unsigned int cur_pos = bunch_size; for (unsigned int i = 2; i < size; i += 2) { float prev_unit = input_units_ptr[cur_pos]; cur_pos += bunch_size; float cur_unit = input_units_ptr[cur_pos]; if (prev_unit < cur_unit) { if (cur_unit > maximum) maximum = cur_unit; } else { if (prev_unit > maximum) maximum = prev_unit; } cur_pos += bunch_size; } if ((size & 1) == 0) { // si es par unsigned int last_pos = (size - 1) * bunch_size; if (input_units_ptr[last_pos] > maximum) maximum = input_units_ptr[last_pos]; } double addition = 0.0f; cur_pos = 0; for (unsigned int i = 0; i < size; i++) { output_units_ptr[cur_pos] = input_units_ptr[cur_pos] - maximum; double exp_output = exp(static_cast(output_units_ptr[cur_pos])); addition += exp_output; cur_pos += bunch_size; } float ratio = static_cast(log(addition)); cur_pos = 0; for (unsigned int i = 0; i < size; i++) { output_units_ptr[cur_pos] -= ratio; assert(!(output_units_ptr[cur_pos] > 0.0f) && "Numerical inestability at log-softmax activation function"); cur_pos += bunch_size; } output_units_ptr++; input_units_ptr++; } #ifdef USE_CUDA } #endif } #undef clip april-ann-0.3.1/packages/basics/mathcore/c_src/axpy.cu000066400000000000000000000306021234204160600226220ustar00rootroot00000000000000/* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-MLP toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "unused_variable.h" #include "wrapper.h" #include "cuda_utils.h" #ifdef USE_CUDA /*************************************** ************** CUDA SECTION *********** ***************************************/ cublasStatus_t wrapperCublasAxpy(cublasHandle_t &handle, int N, float *alpha, const float *x_mem, unsigned int x_inc, float *y_mem, unsigned int y_inc) { return cublasSaxpy(handle, N, alpha, x_mem, x_inc, y_mem, y_inc); } cublasStatus_t wrapperCublasAxpy(cublasHandle_t &handle, int N, double *alpha, const double *x_mem, unsigned int x_inc, double *y_mem, unsigned int y_inc) { return cublasDaxpy(handle, N, alpha, x_mem, x_inc, y_mem, y_inc); } cublasStatus_t wrapperCublasAxpy(cublasHandle_t &handle, int N, ComplexF *alpha, const ComplexF *x_mem, unsigned int x_inc, ComplexF *y_mem, unsigned int y_inc) { return cublasCaxpy(handle, N, reinterpret_cast(alpha), reinterpret_cast(x_mem), x_inc, reinterpret_cast(y_mem), y_inc); } // Cusparse wrappers cusparseStatus_t wrapperCusparseAxpy(cusparseHandle_t &handle, int NNZ, float *alpha, const float *x_values_mem, const int *x_indices_mem, float *y_mem) { return cusparseSaxpyi(handle, NNZ, alpha, x_values_mem, x_indices_mem, y_mem, CUSPARSE_INDEX_BASE_ZERO); } cusparseStatus_t wrapperCusparseAxpy(cusparseHandle_t &handle, int NNZ, double *alpha, const double *x_values_mem, const int *x_indices_mem, double *y_mem) { return cusparseDaxpyi(handle, NNZ, alpha, x_values_mem, x_indices_mem, y_mem, CUSPARSE_INDEX_BASE_ZERO); } cusparseStatus_t wrapperCusparseAxpy(cusparseHandle_t &handle, int NNZ, ComplexF *alpha, const ComplexF *x_values_mem, const int *x_indices_mem, ComplexF *y_mem) { return cusparseCaxpyi(handle, NNZ, reinterpret_cast(alpha), reinterpret_cast(x_values_mem), x_indices_mem, reinterpret_cast(y_mem), CUSPARSE_INDEX_BASE_ZERO); } //////////////////////////////////////////////////////////////////////////// template __global__ void axpyLoopKernel(unsigned int N, T alpha, const T *x_mem, unsigned int x_inc, T *y_mem, unsigned int y_inc, unsigned int times, unsigned int x_ld, unsigned int y_ld) { unsigned int matrix_x_pos, matrix_y_pos; matrix_x_pos = blockIdx.x*blockDim.x + threadIdx.x; matrix_y_pos = blockIdx.y*blockDim.y + threadIdx.y; if (matrix_x_pos < times && matrix_y_pos < N) { unsigned int index_x = matrix_x_pos*x_ld + matrix_y_pos*x_inc; unsigned int index_y = matrix_x_pos*y_ld + matrix_y_pos*y_inc; T val = alpha * x_mem[index_x]; // This loop is used to synchronize the threads for accessing // the global memory where they write the results. The loop // gets all the values from the threads at the index X in // the current block, synchronizing the access to Y. for (unsigned int i=0; i void doAxpy(int N, T alpha, const GPUMirroredMemoryBlock* x, unsigned int x_shift, unsigned int x_inc, GPUMirroredMemoryBlock* y, unsigned int y_shift, unsigned int y_inc, bool use_gpu) { const T *x_mem; T *y_mem; #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { cublasStatus_t status; cublasHandle_t handle = GPUHelper::getHandler(); //printf("Doing a saxpy with comp=1 & cuda=1\n"); x_mem = x->getGPUForRead() + x_shift; y_mem = y->getGPUForReadAndWrite() + y_shift; status = cublasSetStream(handle, GPUHelper::getCurrentStream()); checkCublasError(status); status = wrapperCublasAxpy(handle, N, &alpha, x_mem, x_inc, y_mem, y_inc); checkCublasError(status); } else { //printf("Doing a saxpy with comp=1 & cuda=0\n"); #endif #ifndef USE_CUDA //printf("Doing a saxpy with comp=0 & cuda=0\n"); #endif x_mem = x->getPPALForRead() + x_shift; y_mem = y->getPPALForReadAndWrite() + y_shift; wrapperCblasAxpy(N, alpha, x_mem, x_inc, y_mem, y_inc); #ifdef USE_CUDA } #endif } template void doAxpyLoop(int N, T alpha, GPUMirroredMemoryBlock* x, unsigned int x_inc, unsigned int x_shift, GPUMirroredMemoryBlock* y, unsigned int y_inc, unsigned int y_shift, unsigned int times, const unsigned int x_stride, const unsigned int y_stride, bool use_gpu) { const T *x_mem; T *y_mem; #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { x_mem = x->getGPUForRead() + x_shift; y_mem = y->getGPUForReadAndWrite() + y_shift; const unsigned int MAX_THREADS = GPUHelper::getMaxThreadsPerBlock(); dim3 block, grid; // Number of threads on each block dimension block.x = min(MAX_THREADS, times); block.y = min(MAX_THREADS/block.x, N); block.z = 1; grid.x = (times/block.x + (times % block.x ? 1 : 0)); grid.y = (N/block.y + (N % block.y ? 1 : 0)); grid.z = 1; axpyLoopKernel<<>> (N, alpha, x_mem, x_inc, y_mem, y_inc, times, x_stride, y_stride); } else { //printf("Doing a saxpy loop with comp=1 & cuda=0\n"); #endif #ifndef USE_CUDA //printf("Doing a saxpy loop with comp=0 & cuda=0\n"); #endif x_mem = x->getPPALForRead() + x_shift; y_mem = y->getPPALForReadAndWrite() + y_shift; for (unsigned int i = 0; i < times; i++) wrapperCblasAxpy(N, alpha, x_mem + i * x_stride, x_inc, y_mem + i * y_stride, y_inc); #ifdef USE_CUDA } #endif } template void doSparseAxpy(int NNZ, T alpha, const GPUMirroredMemoryBlock *x_values, const Int32GPUMirroredMemoryBlock *x_indices, GPUMirroredMemoryBlock* y, unsigned int y_shift, unsigned int y_inc, bool use_gpu) { if (y_inc != 1) ERROR_EXIT(128, "sparse AXPY not implemented for stride != 1\n"); const T *x_values_mem; const int *x_indices_mem; T *y_mem; #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { if (y_inc != 1) ERROR_EXIT(128, "Error, executing sparse AXPY in CUDA with inc != 1\n"); cusparseStatus_t status; cusparseHandle_t handle = GPUHelper::getSparseHandler(); //printf("Doing a saxpy with comp=1 & cuda=1\n"); x_values_mem = x_values->getGPUForRead(); x_indices_mem = x_indices->getGPUForRead(); y_mem = y->getGPUForReadAndWrite() + y_shift; status = cusparseSetStream(handle, GPUHelper::getCurrentStream()); checkCusparseError(status); status = wrapperCusparseAxpy(handle, NNZ, &alpha, x_values_mem, x_indices_mem, y_mem); checkCusparseError(status); } else { #endif x_values_mem = x_values->getPPALForRead(); x_indices_mem = x_indices->getPPALForRead(); y_mem = y->getPPALForReadAndWrite() + y_shift; wrapperCblasAxpyi(NNZ, alpha, x_values_mem, x_indices_mem, y_mem); #ifdef USE_CUDA } #endif } template void doAxpy(int N, float alpha, const GPUMirroredMemoryBlock* x, unsigned int x_shift, unsigned int x_inc, GPUMirroredMemoryBlock* y, unsigned int y_shift, unsigned int y_inc, bool use_gpu); template void doAxpy(int N, double alpha, const GPUMirroredMemoryBlock* x, unsigned int x_shift, unsigned int x_inc, GPUMirroredMemoryBlock* y, unsigned int y_shift, unsigned int y_inc, bool use_gpu); template void doAxpy(int N, ComplexF alpha, const GPUMirroredMemoryBlock* x, unsigned int x_shift, unsigned int x_inc, GPUMirroredMemoryBlock* y, unsigned int y_shift, unsigned int y_inc, bool use_gpu); template void doSparseAxpy(int NNZ, float alpha, const GPUMirroredMemoryBlock *x_values, const Int32GPUMirroredMemoryBlock *x_indices, GPUMirroredMemoryBlock* y, unsigned int y_shift, unsigned int y_inc, bool use_gpu); template void doSparseAxpy(int NNZ, double alpha, const GPUMirroredMemoryBlock *x_values, const Int32GPUMirroredMemoryBlock *x_indices, GPUMirroredMemoryBlock* y, unsigned int y_shift, unsigned int y_inc, bool use_gpu); template void doSparseAxpy(int NNZ, ComplexF alpha, const GPUMirroredMemoryBlock *x_values, const Int32GPUMirroredMemoryBlock *x_indices, GPUMirroredMemoryBlock* y, unsigned int y_shift, unsigned int y_inc, bool use_gpu); template void doAxpyLoop(int N, float alpha, GPUMirroredMemoryBlock* x, unsigned int x_inc, unsigned int x_shift, GPUMirroredMemoryBlock* y, unsigned int y_inc, unsigned int y_shift, unsigned int times, const unsigned int x_stride, const unsigned int y_stride, bool use_gpu); template void doAxpyLoop(int N, double alpha, GPUMirroredMemoryBlock* x, unsigned int x_inc, unsigned int x_shift, GPUMirroredMemoryBlock* y, unsigned int y_inc, unsigned int y_shift, unsigned int times, const unsigned int x_stride, const unsigned int y_stride, bool use_gpu); template void doAxpyLoop(int N, ComplexF alpha, GPUMirroredMemoryBlock* x, unsigned int x_inc, unsigned int x_shift, GPUMirroredMemoryBlock* y, unsigned int y_inc, unsigned int y_shift, unsigned int times, const unsigned int x_stride, const unsigned int y_stride, bool use_gpu); april-ann-0.3.1/packages/basics/mathcore/c_src/cblas_headers.cc000066400000000000000000000615141234204160600244040ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "swap.h" #include "april_assert.h" #include "unused_variable.h" #include "cblas_headers.h" #include "error_print.h" using april_utils::swap; #ifdef ADHOC_BLAS void cblas_sgemv(CBLAS_ORDER order, CBLAS_TRANSPOSE a_transpose, int m, int n, float alpha, const float *a, unsigned int a_inc, const float *x, unsigned int x_inc, float beta, float *y, unsigned int y_inc) { if (m == 0 || n == 0) return; if (alpha == 0.0f && beta == 1.0f) return; int cols, rows; if (a_transpose == CblasNoTrans) { cols = n; rows = m; } else { cols = m; rows = n; } // y = beta * y if (beta == 0.0f) { unsigned int y_pos = 0; for (int i=0; i void generic_cblas_axpyi(int NNZ, T alpha, const T *x_values_mem, const int *x_indices_mem, T *y_mem) { for (int i=0; i void generic_cblas_sparse_mm(CBLAS_ORDER major_order, SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, CBLAS_TRANSPOSE b_transpose, CBLAS_TRANSPOSE c_transpose, int m, int n, int k, T alpha, const T *a_values_mem, const int *a_indices_mem, const int *a_first_index_mem, const T *b_mem, int b_inc, T beta, T *c_mem, int c_inc) { UNUSED_VARIABLE(k); if (a_transpose == CblasTrans) { if (sparse_format == CSR_FORMAT) sparse_format = CSC_FORMAT; else sparse_format = CSR_FORMAT; } int b_stride[2] = { b_inc, 1 }; int c_stride[2] = { c_inc, 1 }; if ( (b_transpose == CblasTrans && major_order == CblasRowMajor) || (b_transpose == CblasNoTrans && major_order == CblasColMajor) ) swap(b_stride[0], b_stride[1]); if ( (c_transpose == CblasTrans && major_order == CblasRowMajor) || (c_transpose == CblasNoTrans && major_order == CblasColMajor) ) swap(c_stride[0], c_stride[1]); if (sparse_format == CSR_FORMAT) { // C = beta C + alpha A*B for (int dest_row=0; dest_row void generic_cblas_sparse_mv(SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, int m, int n, T alpha, const T *a_values_mem, const int *a_indices_mem, const int *a_first_index_mem, const T *x_mem, int x_inc, T beta, T *y_mem, int y_inc) { if (a_transpose == CblasTrans) { if (sparse_format == CSR_FORMAT) sparse_format = CSC_FORMAT; else sparse_format = CSR_FORMAT; } int y_size = (a_transpose==CblasNoTrans)?(m):(n); int x_size = (a_transpose==CblasNoTrans)?(n):(m); if (sparse_format == CSR_FORMAT) { for (int dest=0; dest #error "MKL spblas mm operation is not implemented" // FIXME: finish it using a more general multiplication function void cblas_sparse_mm(SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, int m, int n, int k, float alpha, const float *a_values_mem, const int *a_indices_mem, const int *a_first_index_mem, const float *b_mem, int b_inc, float beta, float *c_mem, int c_inc) { char descrA[6]; descrA[0] = 'g'; descrA[3]='c'; char trans = (a_transpose == CblasTrans) ? 't' : 'n'; switch(sparse_format) { case CSR_FORMAT: mkl_scsrmm(&trans, &m, &n, &k, &alpha, descrA, const_cast(a_values_mem), const_cast(a_indices_mem), const_cast(a_first_index_mem), const_cast(a_first_index_mem+1), const_cast(b_mem), &b_inc, &beta, const_cast(c_mem), &c_inc); break; case CSC_FORMAT: mkl_scscmm(&trans, &m, &n, &k, &alpha, descrA, const_cast(a_values_mem), const_cast(a_indices_mem), const_cast(a_first_index_mem), const_cast(a_first_index_mem+1), const_cast(b_mem), &b_inc, &beta, const_cast(c_mem), &c_inc); break; default: ERROR_EXIT(128, "Incorrect sparse format\n"); } } void cblas_sparse_mm(SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, int m, int n, int k, double alpha, const double *a_values_mem, const int *a_indices_mem, const int *a_first_index_mem, const double *b_mem, int b_inc, double beta, double *c_mem, int c_inc) { char descrA[6]; descrA[0] = 'g'; descrA[3]='c'; char trans = (a_transpose == CblasTrans) ? 't' : 'n'; switch(sparse_format) { case CSR_FORMAT: mkl_dcsrmm(&trans, &m, &n, &k, &alpha, descrA, const_cast(a_values_mem), const_cast(a_indices_mem), const_cast(a_first_index_mem), const_cast(a_first_index_mem+1), const_cast(b_mem), &b_inc, &beta, const_cast(c_mem), &c_inc); break; case CSC_FORMAT: mkl_dcscmm(&trans, &m, &n, &k, &alpha, descrA, const_cast(a_values_mem), const_cast(a_indices_mem), const_cast(a_first_index_mem), const_cast(a_first_index_mem+1), const_cast(b_mem), &b_inc, &beta, const_cast(c_mem), &c_inc); break; default: ERROR_EXIT(128, "Incorrect sparse format\n"); } } void cblas_sparse_mm(SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, int m, int n, int k, ComplexF alpha, const ComplexF *a_values_mem, const int *a_indices_mem, const int *a_first_index_mem, const ComplexF *b_mem, int b_inc, ComplexF beta, ComplexF *c_mem, int c_inc) { char descrA[6]; descrA[0] = 'g'; descrA[3]='c'; char trans = (a_transpose == CblasTrans) ? 't' : 'n'; switch(sparse_format) { case CSR_FORMAT: mkl_ccsrmm(&trans, &m, &n, &k, reinterpret_cast(&alpha), descrA, reinterpret_cast(const_cast(a_values_mem)), const_cast(a_indices_mem), const_cast(a_first_index_mem), const_cast(a_first_index_mem+1), reinterpret_cast(const_cast(b_mem)), &b_inc, reinterpret_cast(&beta), reinterpret_cast(const_cast(c_mem)), &c_inc); break; case CSC_FORMAT: mkl_ccscmm(&trans, &m, &n, &k, reinterpret_cast(&alpha), descrA, reinterpret_cast(const_cast(a_values_mem)), const_cast(a_indices_mem), const_cast(a_first_index_mem), const_cast(a_first_index_mem+1), reinterpret_cast(const_cast(b_mem)), &b_inc, reinterpret_cast(&beta), reinterpret_cast(const_cast(c_mem)), &c_inc); break; default: ERROR_EXIT(128, "Incorrect sparse format\n"); } } void cblas_sparse_mv(SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, int m, int n, float alpha, const float *a_values_mem, const int *a_indices_mem, const int *a_first_index_mem, const float *x_mem, int x_inc, float beta, float *y_mem, int y_inc) { if ((x_inc!=1) || (y_inc!=1)) ERROR_EXIT(128, "Impossible to execute sparse gemv with MKL and " "non-contiguous vectors\n"); char descrA[6]; descrA[0] = 'g'; descrA[3]='c'; char trans = (a_transpose == CblasTrans) ? 't' : 'n'; switch(sparse_format) { case CSR_FORMAT: mkl_scsrmv(&trans, &m, &n, &alpha, descrA, const_cast(a_values_mem), const_cast(a_indices_mem), const_cast(a_first_index_mem), const_cast(a_first_index_mem+1), const_cast(x_mem), &beta, const_cast(y_mem)); break; case CSC_FORMAT: mkl_scscmv(&trans, &m, &n, &alpha, descrA, const_cast(a_values_mem), const_cast(a_indices_mem), const_cast(a_first_index_mem), const_cast(a_first_index_mem+1), const_cast(x_mem), &beta, const_cast(y_mem)); break; default: ERROR_EXIT(128, "Incorrect sparse format\n"); } } void cblas_sparse_mv(SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, int m, int n, double alpha, const double *a_values_mem, const int *a_indices_mem, const int *a_first_index_mem, const double *x_mem, int x_inc, double beta, double *y_mem, int y_inc) { if ((x_inc!=1) || (y_inc!=1)) ERROR_EXIT(128, "Impossible to execute sparse gemv with MKL and " "non-contiguous vectors\n"); char descrA[6]; descrA[0] = 'g'; descrA[3]='c'; char trans = (a_transpose == CblasTrans) ? 't' : 'n'; switch(sparse_format) { case CSR_FORMAT: mkl_dcsrmv(&trans, &m, &n, &alpha, descrA, const_cast(a_values_mem), const_cast(a_indices_mem), const_cast(a_first_index_mem), const_cast(a_first_index_mem+1), const_cast(x_mem), &beta, const_cast(y_mem)); break; case CSC_FORMAT: mkl_dcscmv(&trans, &m, &n, &alpha, descrA, const_cast(a_values_mem), const_cast(a_indices_mem), const_cast(a_first_index_mem), const_cast(a_first_index_mem+1), const_cast(x_mem), &beta, const_cast(y_mem)); break; default: ERROR_EXIT(128, "Incorrect sparse format\n"); } } void cblas_sparse_mv(SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, int m, int n, ComplexF alpha, const ComplexF *a_values_mem, const int *a_indices_mem, const int *a_first_index_mem, const ComplexF *x_mem, int x_inc, ComplexF beta, ComplexF *y_mem, int y_inc) { if ((x_inc!=1) || (y_inc!=1)) ERROR_EXIT(128, "Impossible to execute sparse gemv with MKL and " "non-contiguous vectors\n"); char descrA[6]; descrA[0] = 'g'; descrA[3]='c'; char trans = (a_transpose == CblasTrans) ? 't' : 'n'; switch(sparse_format) { case CSR_FORMAT: mkl_ccsrmv(&trans, &m, &n, reinterpret_cast(&alpha), descrA, reinterpret_cast(const_cast(a_values_mem)), const_cast(a_indices_mem), const_cast(a_first_index_mem), const_cast(a_first_index_mem+1), reinterpret_cast(const_cast(x_mem)), reinterpret_cast(&beta), reinterpret_cast(const_cast(y_mem))); break; case CSC_FORMAT: mkl_ccscmv(&trans, &m, &n, reinterpret_cast(&alpha), descrA, reinterpret_cast(const_cast(a_values_mem)), const_cast(a_indices_mem), const_cast(a_first_index_mem), const_cast(a_first_index_mem+1), reinterpret_cast(const_cast(x_mem)), reinterpret_cast(&beta), reinterpret_cast(const_cast(y_mem))); break; default: ERROR_EXIT(128, "Incorrect sparse format\n"); } } template float cblas_sparse_dot(int NNZ, const float *x_values_mem, const int *x_indices_mem, const float *y_mem, int y_inc); template double cblas_sparse_dot(int NNZ, const double *x_values_mem, const int *x_indices_mem, const double *y_mem, int y_inc); template ComplexF cblas_sparse_dot(int NNZ, const ComplexF *x_values_mem, const int *x_indices_mem, const ComplexF *y_mem, int y_inc); #endif april-ann-0.3.1/packages/basics/mathcore/c_src/cblas_headers.h000066400000000000000000000174451234204160600242520ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef CBLAS_HEADERS_H #define CBLAS_HEADERS_H #include "complex_number.h" #include "aligned_memory.h" enum SPARSE_FORMAT { CSR_FORMAT=0, CSC_FORMAT=1, NONE_FORMAT=255 }; #ifdef USE_MKL #ifdef USE_XCODE #error "USE ONLY ONE OF: USE_MKL, USE_XCODE, NO_BLAS, or none of this" #endif #ifdef NO_BLAS #error "USE ONLY ONE OF: USE_MKL, USE_XCODE, NO_BLAS, or none of this" #endif /////////////////////////////////// MKL /////////////////////////////////////// extern "C" { #include #include #include #include } // if you compile with MKL you do not need atlas #define VECTOR_SSET(n, value, vec, step) for(unsigned int _i_=0,_j_=0;_j_<(n);++_j_,_i_+=(step))(vec)[_i_]=(value) #define VECTOR_DSET(n, value, vec, step) for(unsigned int _i_=0,_j_=0;_j_<(n);++_j_,_i_+=(step))(vec)[_i_]=(value) /*****************************************************************************/ #elif USE_XCODE #ifdef NO_BLAS #error "USE ONLY ONE OF: USE_MKL, USE_XCODE, NO_BLAS, or none of this" #endif ////////////////////////////////// XCODE ////////////////////////////////////// #include #define VECTOR_SSET(n, value, vec, step) for(unsigned int _i_=0,_j_=0;_j_<(n);++_j_,_i_+=(step))(vec)[_i_]=(value) #define VECTOR_DSET(n, value, vec, step) for(unsigned int _i_=0,_j_=0;_j_<(n);++_j_,_i_+=(step))(vec)[_i_]=(value) /*****************************************************************************/ #else #ifndef NO_BLAS ////////////////////////////////// ATLAS ////////////////////////////////////// extern "C" { #include } #define VECTOR_SSET(n, value, vec, step) catlas_sset((n), (value), (vec), (step)) #define VECTOR_DSET(n, value, vec, step) catlas_dset((n), (value), (vec), (step)) /*****************************************************************************/ #else ///////////////////////////////// AD-HOC ////////////////////////////////////// #define ADHOC_BLAS #define VECTOR_SSET(n, value, vec, step) for(unsigned int _i_=0,_j_=0;_j_<(n);++_j_,_i_+=(step))(vec)[_i_]=(value) #define VECTOR_DSET(n, value, vec, step) for(unsigned int _i_=0,_j_=0;_j_<(n);++_j_,_i_+=(step))(vec)[_i_]=(value) enum CBLAS_ORDER { CblasRowMajor = 0, CblasColMajor = 1 }; enum CBLAS_TRANSPOSE { CblasNoTrans = 0, CblasTrans = 1 }; enum CBLAS_UPLO { CblasLower = 0, CblasUpper = 1 }; void cblas_sgemv(CBLAS_ORDER order, CBLAS_TRANSPOSE a_transpose, int m, int n, float alpha, const float *a, unsigned int a_inc, const float *x, unsigned int x_inc, float beta, float *y, unsigned int y_inc); void cblas_scopy(int N, const float *x, unsigned int x_inc, float *y, unsigned int y_inc); void cblas_axpy(int N, float alpha, const float *x, unsigned int x_inc, float *y, unsigned int y_inc); void cblas_sgemm(CBLAS_ORDER order, CBLAS_TRANSPOSE a_transpose, CBLAS_TRANSPOSE b_transpose, int m, int n, int k, float alpha, const float *a, unsigned int a_inc, const float *b, unsigned int b_inc, float beta, float *c, unsigned int c_inc); void cblas_sscal(unsigned int N, float alpha, float *x, unsigned int inc); void cblas_sger(CBLAS_ORDER order, int m, int n, float alpha, const float *x, unsigned int x_inc, const float *y, unsigned int y_inc, float *a, unsigned int a_inc); float cblas_sdot(unsigned int N, const float *x, unsigned int x_inc, const float *y, unsigned int y_inc); float cblas_snrm2(unsigned int N, const float *x, unsigned int inc); void cblas_ssbmv(CBLAS_ORDER order, CBLAS_UPLO uplo, int n, int k, float alpha, const float *a, unsigned int a_lda, const float *x, unsigned int x_inc, float beta, float *y, unsigned int y_inc); /*****************************************************************************/ #endif #endif #define NEGATE_CBLAS_TRANSPOSE(trans) ((trans) == CblasNoTrans)?CblasTrans:CblasNoTrans // FIXME: MKL version is not working properly //#ifndef USE_MKL #if 1 // sparse BLAS is only available with CUDA or MKL void cblas_saxpyi(int NNZ, float alpha, const float *x_values_mem, const int *x_indices_mem, float *y_mem); void cblas_daxpyi(int NNZ, double alpha, const double *x_values_mem, const int *x_indices_mem, double *y_mem); void cblas_caxpyi(int NNZ, const ComplexF *alpha, const ComplexF *x_values_mem, const int *x_indices_mem, ComplexF *y_mem); #endif void cblas_sparse_mm(CBLAS_ORDER major_order, SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, CBLAS_TRANSPOSE b_transpose, CBLAS_TRANSPOSE c_transpose, int m, int n, int k, float alpha, const float *a_values_mem, const int *a_indices_mem, const int *a_first_index_mem, const float *b_mem, int b_inc, float beta, float *c_mem, int c_inc); void cblas_sparse_mm(CBLAS_ORDER major_order, SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, CBLAS_TRANSPOSE b_transpose, CBLAS_TRANSPOSE c_transpose, int m, int n, int k, double alpha, const double *a_values_mem, const int *a_indices_mem, const int *a_first_index_mem, const double *b_mem, int b_inc, double beta, double *c_mem, int c_inc); void cblas_sparse_mm(CBLAS_ORDER major_order, SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, CBLAS_TRANSPOSE b_transpose, CBLAS_TRANSPOSE c_transpose, int m, int n, int k, ComplexF alpha, const ComplexF *a_values_mem, const int *a_indices_mem, const int *a_first_index_mem, const ComplexF *b_mem, int b_inc, ComplexF beta, ComplexF *c_mem, int c_inc); void cblas_sparse_mv(SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, int m, int n, float alpha, const float *a_values_mem, const int *a_indices_mem, const int *a_first_index_mem, const float *x_mem, int x_inc, float beta, float *y_mem, int y_inc); void cblas_sparse_mv(SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, int m, int n, double alpha, const double *a_values_mem, const int *a_indices_mem, const int *a_first_index_mem, const double *x_mem, int x_inc, double beta, double *y_mem, int y_inc); void cblas_sparse_mv(SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, int m, int n, ComplexF alpha, const ComplexF *a_values_mem, const int *a_indices_mem, const int *a_first_index_mem, const ComplexF *x_mem, int x_inc, ComplexF beta, ComplexF *y_mem, int y_inc); template T cblas_sparse_dot(int NNZ, const T *x_values_mem, const int *x_indices_mem, const T *y_mem, int y_inc) { T result = T(); for (int i=0; i #include "unused_variable.h" #include "wrapper.h" #include "cuda_utils.h" #define fsignf(x) ((x)<0.0f) ? (-1.0f) : ( ((x)>0.0f) ? (1.0f) : (0.0f) ) /////////////////////////////////////////////////////////// /////////////////// Kernels /////////////////////////////// /////////////////////////////////////////////////////////// #ifdef USE_CUDA #define CWISE_FUNC_KERNEL(func) template \ __global__ void \ func##FuncKernel(T *v, unsigned int N, unsigned int stride) { \ unsigned int x_idx = blockIdx.x * blockDim.x + threadIdx.x; \ if (x_idx < N) { \ T *aux = v + x_idx*stride; \ *aux = func(*aux); \ } \ } CWISE_FUNC_KERNEL(logf); CWISE_FUNC_KERNEL(log1pf); CWISE_FUNC_KERNEL(expf); CWISE_FUNC_KERNEL(sqrtf); CWISE_FUNC_KERNEL(tanf); CWISE_FUNC_KERNEL(tanhf); CWISE_FUNC_KERNEL(atanf); CWISE_FUNC_KERNEL(atanhf); CWISE_FUNC_KERNEL(sinf); CWISE_FUNC_KERNEL(sinhf); CWISE_FUNC_KERNEL(asinf); CWISE_FUNC_KERNEL(asinhf); CWISE_FUNC_KERNEL(cosf); CWISE_FUNC_KERNEL(coshf); CWISE_FUNC_KERNEL(acosf); CWISE_FUNC_KERNEL(acoshf); CWISE_FUNC_KERNEL(fabsf); CWISE_FUNC_KERNEL(fsignf); #undef CWISE_FUNC_KERNEL template __global__ void complementFuncKernel(T *v, unsigned int N, unsigned int stride) { unsigned int x_idx = blockIdx.x * blockDim.x + threadIdx.x; if (x_idx < N) { T *aux = v + x_idx*stride; *aux = (1.0f - *aux); } } #define CWISE_FUNC_KERNEL(func) template \ __global__ void \ func##FuncKernel(T *v, unsigned int N, unsigned int stride, \ T value) { \ unsigned int x_idx = blockIdx.x * blockDim.x + threadIdx.x; \ if (x_idx < N) { \ T *aux = v + x_idx*stride; \ *aux = func(*aux, value); \ } \ } CWISE_FUNC_KERNEL(powf); #undef CWISE_FUNC_KERNEL #endif /////////////////////////////////////////////////////////// //////////////////// BLAS wrappers //////////////////////// /////////////////////////////////////////////////////////// void doPLogP(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { ERROR_PRINT("CUDA VERSION NOT IMPLEMENTED\n"); } // else { #endif float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; i 0.0f || *v_mem < 0.0f) *v_mem = (*v_mem) * logf(*v_mem); #ifdef USE_CUDA // } #endif } void doLog(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { float *v_ptr = v->getGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); logfFuncKernel<<>> (v_ptr, N, stride); } else { #endif float log_NZ = logf(NEAR_ZERO); float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; i NEAR_ZERO || *v_mem < -NEAR_ZERO) *v_mem = logf(*v_mem); else *v_mem = log_NZ; } #ifdef USE_CUDA } #endif } void doLog1p(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { float *v_ptr = v->getGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); log1pfFuncKernel<<>> (v_ptr, N, stride); } else { #endif float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; igetGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); expfFuncKernel<<>> (v_ptr, N, stride); } else { #endif float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; igetGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); sqrtfFuncKernel<<>> (v_ptr, N, stride); } else { #endif float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; igetGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); tanfFuncKernel<<>> (v_ptr, N, stride); } else { #endif float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; igetGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); tanhfFuncKernel<<>> (v_ptr, N, stride); } else { #endif float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; igetGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); atanfFuncKernel<<>> (v_ptr, N, stride); } else { #endif float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; igetGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); atanhfFuncKernel<<>> (v_ptr, N, stride); } else { #endif float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; igetGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); sinfFuncKernel<<>> (v_ptr, N, stride); } else { #endif float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; igetGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); sinhfFuncKernel<<>> (v_ptr, N, stride); } else { #endif float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; igetGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); asinfFuncKernel<<>> (v_ptr, N, stride); } else { #endif float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; igetGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); asinhfFuncKernel<<>> (v_ptr, N, stride); } else { #endif float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; igetGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); cosfFuncKernel<<>> (v_ptr, N, stride); } else { #endif float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; igetGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); coshfFuncKernel<<>> (v_ptr, N, stride); } else { #endif float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; igetGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); acosfFuncKernel<<>> (v_ptr, N, stride); } else { #endif float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; igetGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); acoshfFuncKernel<<>> (v_ptr, N, stride); } else { #endif float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; igetGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); fabsfFuncKernel<<>> (v_ptr, N, stride); } else { #endif float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; igetGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); complementFuncKernel<<>> (v_ptr, N, stride); } else { #endif float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; igetGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); fsignfFuncKernel<<>> (v_ptr, N, stride); } else { #endif float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; igetGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); powfFuncKernel<<>> (v_ptr, N, stride, value); } else { #endif float *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; i __global__ void clampKernel(T *v, unsigned int N, unsigned int stride, T lower, T upper) { unsigned int x_idx = blockIdx.x * blockDim.x + threadIdx.x; if (x_idx < N) { unsigned int x_pos = x_idx*stride; if (v[x_pos] < lower) v[x_pos] = lower; else if (v[x_pos] > upper) v[x_pos] = upper; } } #endif /*************************************** *********** TEMPLATE SECTION ********** ***************************************/ template void doClamp(unsigned int N, GPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, T lower, T upper, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { T *v_ptr = v->getGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); clampKernel<<>> (v_ptr, N, stride, lower, upper); } else { #endif T *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; i(unsigned int N, GPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, float lower, float upper, bool use_gpu); april-ann-0.3.1/packages/basics/mathcore/c_src/cmul.cu000066400000000000000000000043511234204160600226030ustar00rootroot00000000000000 /* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-MLP toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "unused_variable.h" #include "wrapper.h" #include "cuda_utils.h" /*************************************** *********** TEMPLATE SECTION ********** ***************************************/ template void doCmul(int N, const GPUMirroredMemoryBlock* x, unsigned int x_shift, unsigned int x_inc, GPUMirroredMemoryBlock* y, unsigned int y_shift, unsigned int y_inc, bool use_gpu) { const T *x_mem; T *y_mem; #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { ERROR_PRINT("CUDA VERSION NOT IMPLEMENTED\n"); } // else { #endif x_mem = x->getPPALForRead() + x_shift; y_mem = y->getPPALForReadAndWrite() + y_shift; for (int i=0; i(int N, const GPUMirroredMemoryBlock* x, unsigned int x_shift, unsigned int x_inc, GPUMirroredMemoryBlock* y, unsigned int y_shift, unsigned int y_inc, bool use_gpu); template void doCmul(int N, const GPUMirroredMemoryBlock* x, unsigned int x_shift, unsigned int x_inc, GPUMirroredMemoryBlock* y, unsigned int y_shift, unsigned int y_inc, bool use_gpu); april-ann-0.3.1/packages/basics/mathcore/c_src/copy.cu000066400000000000000000000142361234204160600226200ustar00rootroot00000000000000/* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-MLP toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "wrapper.h" #include "cuda_utils.h" #include "unused_variable.h" #ifdef USE_CUDA /*************************************** ************** CUDA SECTION *********** ***************************************/ cublasStatus_t wrapperCublasCopy(cublasHandle_t &handle, int N, const float *x_mem, unsigned int x_inc, float *y_mem, unsigned int y_inc) { return cublasScopy(handle, N, x_mem, x_inc, y_mem, y_inc); } cublasStatus_t wrapperCublasCopy(cublasHandle_t &handle, int N, const ComplexF *x_mem, unsigned int x_inc, ComplexF *y_mem, unsigned int y_inc) { return cublasCcopy(handle, N, reinterpret_cast(x_mem), x_inc, reinterpret_cast(y_mem), y_inc); } template __global__ void copyLoopKernel(unsigned int N, const T *x_mem, unsigned int x_inc, T *y_mem, unsigned int y_inc, unsigned int times, unsigned int y_ld) { unsigned int matrix_x_pos, matrix_y_pos; matrix_x_pos = blockIdx.x*blockDim.x + threadIdx.x; matrix_y_pos = blockIdx.y*blockDim.y + threadIdx.y; if (matrix_x_pos < times && matrix_y_pos < N) { unsigned int index_x = matrix_y_pos*x_inc; unsigned int index_y = matrix_x_pos*y_ld + matrix_y_pos*y_inc; y_mem[index_y] = x_mem[index_x]; } } #endif /*************************************** ************* CBLAS SECTION *********** ***************************************/ void wrapperCblasCopy(int N, const float *x_mem, unsigned int x_inc, float *y_mem, unsigned int y_inc) { cblas_scopy(N, x_mem, x_inc, y_mem, y_inc); } void wrapperCblasCopy(int N, const ComplexF *x_mem, unsigned int x_inc, ComplexF *y_mem, unsigned int y_inc) { cblas_ccopy(N, x_mem, x_inc, y_mem, y_inc); } /*************************************** *********** TEMPLATE SECTION ********** ***************************************/ template void doCopy(int N, const GPUMirroredMemoryBlock* x, unsigned int x_shift, unsigned int x_inc, GPUMirroredMemoryBlock* y, unsigned int y_shift, unsigned int y_inc, bool use_gpu) { const T *x_mem; T *y_mem; #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { cublasStatus_t status; cublasHandle_t handle = GPUHelper::getHandler(); //printf("Doing a scopy with comp=1 & cuda=1\n"); x_mem = x->getGPUForRead() + x_shift; y_mem = y->getGPUForWrite() + y_shift; status = cublasSetStream(handle, GPUHelper::getCurrentStream()); checkCublasError(status); status = wrapperCublasCopy(handle, N, x_mem, x_inc, y_mem, y_inc); checkCublasError(status); } else { //printf("Doing a scopy with comp=1 & cuda=0\n"); #endif #ifndef USE_CUDA //printf("Doing a scopy with comp=0 & cuda=0\n"); #endif x_mem = x->getPPALForRead() + x_shift; y_mem = y->getPPALForWrite() + y_shift; wrapperCblasCopy(N, x_mem, x_inc, y_mem, y_inc); #ifdef USE_CUDA } #endif } template void doCopyLoop(int N, GPUMirroredMemoryBlock* x, unsigned int x_inc, GPUMirroredMemoryBlock* y, unsigned int y_inc, unsigned int times, const unsigned int stride, bool use_gpu) { const T *x_mem; T *y_mem; #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { //printf("Doing a scopy with comp=1 & cuda=1\n"); x_mem = x->getGPUForRead(); y_mem = y->getGPUForWrite(); const unsigned int MAX_THREADS = GPUHelper::getMaxThreadsPerBlock(); dim3 block, grid; // Number of threads on each block dimension block.x = min(MAX_THREADS, times); block.y = min(MAX_THREADS/block.x, N); block.z = 1; grid.x = (times/block.x + (times % block.x ? 1 : 0)); grid.y = (N/block.y + (N % block.y ? 1 : 0)); grid.z = 1; copyLoopKernel<<>> (N, x_mem, x_inc, y_mem, y_inc, times, stride); } else { //printf("Doing a scopy with comp=1 & cuda=0\n"); #endif #ifndef USE_CUDA //printf("Doing a scopy with comp=0 & cuda=0\n"); #endif x_mem = x->getPPALForRead(); y_mem = y->getPPALForWrite(); for (unsigned int i = 0; i < times; i++) wrapperCblasCopy(N, x_mem, x_inc, y_mem + i * stride , y_inc); #ifdef USE_CUDA } #endif } template void doCopy(int N, const GPUMirroredMemoryBlock* x, unsigned int x_shift, unsigned int x_inc, GPUMirroredMemoryBlock* y, unsigned int y_shift, unsigned int y_inc, bool use_gpu); template void doCopy(int N, const GPUMirroredMemoryBlock* x, unsigned int x_shift, unsigned int x_inc, GPUMirroredMemoryBlock* y, unsigned int y_shift, unsigned int y_inc, bool use_gpu); template void doCopyLoop(int N, GPUMirroredMemoryBlock* x, unsigned int x_inc, GPUMirroredMemoryBlock* y, unsigned int y_inc, unsigned int times, const unsigned int stride, bool use_gpu); template void doCopyLoop(int N, GPUMirroredMemoryBlock* x, unsigned int x_inc, GPUMirroredMemoryBlock* y, unsigned int y_inc, unsigned int times, const unsigned int stride, bool use_gpu); april-ann-0.3.1/packages/basics/mathcore/c_src/cublas_error.cc000066400000000000000000000034611234204160600243040ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "cublas_error.h" #ifdef USE_CUDA void checkCublasError(cublasStatus_t status) { if (status == CUBLAS_STATUS_SUCCESS) return; else if (status == CUBLAS_STATUS_NOT_INITIALIZED) ERROR_EXIT(152, "Cublas is not initialized!\n"); else if (status == CUBLAS_STATUS_ALLOC_FAILED) ERROR_EXIT(153, "Cublas resource allocation failed!\n"); else if (status == CUBLAS_STATUS_INVALID_VALUE) ERROR_EXIT(154, "Cublas detected an unsupported parameter.\n"); else if (status == CUBLAS_STATUS_ARCH_MISMATCH) ERROR_EXIT(155, "Cublas and architecture not compatible.\n"); else if (status == CUBLAS_STATUS_MAPPING_ERROR) ERROR_EXIT(156, "Cublas accessed to a wrong GPU memory space!\n"); else if (status == CUBLAS_STATUS_EXECUTION_FAILED) ERROR_EXIT(157, "Cublas failed to execute the operation\n"); else if (status == CUBLAS_STATUS_INTERNAL_ERROR) ERROR_EXIT(158, "Cublas failed to execute an internal operation!\n"); } #endif april-ann-0.3.1/packages/basics/mathcore/c_src/cublas_error.h000066400000000000000000000021161234204160600241420ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef _CUBLAS_ERROR_H_ #define _CUBLAS_ERROR_H_ #include "error_print.h" #include "cblas_headers.h" #ifdef USE_CUDA #include void checkCublasError(cublasStatus_t status); #endif #endif // _CUBLAS_ERROR_H_ april-ann-0.3.1/packages/basics/mathcore/c_src/cuda_utils.h000066400000000000000000000067011234204160600236200ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ // AUXILIAR INLINE FUNCTIONS // #ifdef USE_CUDA static __device__ void getColumnMajorBunchMatrixPositions(const dim3 &blockIdx, const dim3 &blockDim, const dim3 &threadIdx, unsigned int &matrix_x_pos, unsigned int &matrix_y_pos) { matrix_x_pos = blockIdx.x*blockDim.x + threadIdx.x; matrix_y_pos = (blockIdx.y*blockDim.y + threadIdx.y); } static void computeBlockAndGridSizesForAColumnMajorBunch(unsigned int bunch_size, unsigned int size, dim3 &block, dim3 &grid) { const unsigned int MAX_THREADS = GPUHelper::getMaxThreadsPerBlock(); // Number of threads on each block dimension block.x = min(MAX_THREADS, bunch_size); block.y = min(MAX_THREADS/block.x, size); block.z = 1; grid.x = (bunch_size/block.x + (bunch_size % block.x ? 1 : 0)); grid.y = (size/block.y + (size % block.y ? 1 : 0)); grid.z = 1; // TODO: FIXME: Check that the grid size does not exceed the limits of the GPU } static void computeBlockAndGridSizesForARowMajorBunch(unsigned int bunch_size, unsigned int size, dim3 &block, dim3 &grid) { const unsigned int MAX_THREADS = GPUHelper::getMaxThreadsPerBlock(); // Number of threads on each block dimension block.x = min(MAX_THREADS, size); block.y = min(MAX_THREADS/block.x, bunch_size); block.z = 1; grid.x = (size/block.x + (size % block.x ? 1 : 0)); grid.y = (bunch_size/block.y + (bunch_size % block.y ? 1 : 0)); grid.z = 1; // TODO: FIXME: Check that the grid size does not exceed the limits of the GPU } static void computeBlockAndGridSizesForAnArray(unsigned int bunch_size, dim3 &block, dim3 &grid) { const unsigned int MAX_THREADS = GPUHelper::getMaxThreadsPerBlock(); // Number of threads on each block dimension block.x = min(MAX_THREADS, bunch_size); block.y = 1; block.z = 1; grid.x = (bunch_size/block.x + (bunch_size % block.x ? 1 : 0)); grid.y = 1; grid.z = 1; // TODO: FIXME: Check that the grid size does not exceed the limits of the GPU } static cublasOperation_t getCublasOperation(CBLAS_TRANSPOSE operation) { if (operation == CblasNoTrans) return CUBLAS_OP_N; else if (operation == CblasTrans) return CUBLAS_OP_T; else // operation == CblasConjTrans return CUBLAS_OP_C; } static cusparseOperation_t getCusparseOperation(CBLAS_TRANSPOSE operation) { if (operation == CblasNoTrans) return CUSPARSE_OPERATION_NON_TRANSPOSE; else if (operation == CblasTrans) return CUSPARSE_OPERATION_TRANSPOSE; else // operation == CblasConjTrans return CUSPARSE_OPERATION_CONJUGATE_TRANSPOSE; } #endif april-ann-0.3.1/packages/basics/mathcore/c_src/cusparse_error.cc000066400000000000000000000034371234204160600246630ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2014, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "cusparse_error.h" #ifdef USE_CUDA void checkCusparseError(cusparseStatus_t status) { if (status == CUSPARSE_STATUS_SUCCESS) return; else if (status == CUSPARSE_STATUS_NOT_INITIALIZED) ERROR_EXIT(152, "Cusparse is not initialized!\n"); else if (status == CUSPARSE_STATUS_ALLOC_FAILED) ERROR_EXIT(153, "Cusparse resource allocation failed!\n"); else if (status == CUSPARSE_STATUS_INVALID_VALUE) ERROR_EXIT(154, "Cusparse detected an unsupported parameter.\n"); else if (status == CUSPARSE_STATUS_ARCH_MISMATCH) ERROR_EXIT(155, "Cusparse and architecture not compatible.\n"); else if (status == CUSPARSE_STATUS_MAPPING_ERROR) ERROR_EXIT(156, "Cusparse accessed to a wrong GPU memory space!\n"); else if (status == CUSPARSE_STATUS_EXECUTION_FAILED) ERROR_EXIT(157, "Cusparse failed to execute the operation\n"); else if (status == CUSPARSE_STATUS_INTERNAL_ERROR) ERROR_EXIT(158, "Cusparse failed to execute an internal operation!\n"); } #endif april-ann-0.3.1/packages/basics/mathcore/c_src/cusparse_error.h000066400000000000000000000020421234204160600245140ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2014, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef _CUSPARSE_ERROR_H_ #define _CUSPARSE_ERROR_H_ #include "error_print.h" #include "cblas_headers.h" #ifdef USE_CUDA #include void checkCusparseError(cusparseStatus_t status); #endif #endif // _CUBLAS_ERROR_H_ april-ann-0.3.1/packages/basics/mathcore/c_src/div.cu000066400000000000000000000043241234204160600224250ustar00rootroot00000000000000/* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-MLP toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "wrapper.h" #include "cuda_utils.h" #include "unused_variable.h" #ifdef USE_CUDA /*************************************** ************** CUDA SECTION *********** ***************************************/ template __global__ void divKernel(T *v, unsigned int N, unsigned int stride, T value) { unsigned int x_idx = blockIdx.x * blockDim.x + threadIdx.x; if (x_idx < N) { unsigned int x_pos = x_idx*stride; v[x_pos] = value/v[x_pos]; } } #endif /*************************************** *********** TEMPLATE SECTION ********** ***************************************/ template void doDiv(unsigned int N, GPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, T value, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { T *v_ptr = v->getGPUForWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); divKernel<<>> (v_ptr, N, stride, value); } else { #endif T *v_mem = v->getPPALForWrite() + shift; for (unsigned int i=0; i(unsigned int N, GPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, float value, bool use_gpu); april-ann-0.3.1/packages/basics/mathcore/c_src/dot.cu000066400000000000000000000153611234204160600224340ustar00rootroot00000000000000/* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-MLP toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "wrapper.h" #include "cuda_utils.h" #include "unused_variable.h" #ifdef USE_CUDA /*************************************** ************** CUDA SECTION *********** ***************************************/ cublasStatus_t wrapperCublasDot(cublasHandle_t &handle, unsigned int size, const float *x_mem, unsigned int x_inc, const float *y_mem, unsigned int y_inc, float *ret) { return cublasSdot(handle, size, x_mem, x_inc, y_mem, y_inc, ret); } cublasStatus_t wrapperCublasDot(cublasHandle_t &handle, unsigned int size, const double *x_mem, unsigned int x_inc, const double *y_mem, unsigned int y_inc, double *ret) { return cublasDdot(handle, size, x_mem, x_inc, y_mem, y_inc, ret); } cublasStatus_t wrapperCublasDot(cublasHandle_t &handle, unsigned int size, const ComplexF *x_mem, unsigned int x_inc, const ComplexF *y_mem, unsigned int y_inc, ComplexF *ret) { ERROR_EXIT(256, "Dot product for complex numbers not implemented with CUDA\n"); return CUBLAS_STATUS_INTERNAL_ERROR; } #endif /*************************************** ************* CBLAS SECTION *********** ***************************************/ float wrapperCblasDot(unsigned int size, const float *x_mem, unsigned int x_inc, const float *y_mem, unsigned int y_inc) { return cblas_sdot(size, x_mem, x_inc, y_mem, y_inc); } double wrapperCblasDot(unsigned int size, const double *x_mem, unsigned int x_inc, const double *y_mem, unsigned int y_inc) { return cblas_ddot(size, x_mem, x_inc, y_mem, y_inc); } ComplexF wrapperCblasDot(unsigned int size, const ComplexF *x_mem, unsigned int x_inc, const ComplexF *y_mem, unsigned int y_inc) { ComplexF ret; cblas_zdotu_sub(size, x_mem, x_inc, y_mem, y_inc, &ret); return ret; } /*************************************** *********** TEMPLATE SECTION ********** ***************************************/ template T doDot(unsigned int size, const GPUMirroredMemoryBlock *x, unsigned int x_shift, unsigned int x_inc, const GPUMirroredMemoryBlock *y, unsigned int y_shift, unsigned int y_inc, bool use_gpu) { const T *x_mem; const T *y_mem; T ret; #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { cublasStatus_t status; cublasHandle_t handle = GPUHelper::getHandler(); x_mem = x->getGPUForRead() + x_shift; y_mem = y->getGPUForRead() + y_shift; status = cublasSetStream(handle, GPUHelper::getCurrentStream()); checkCublasError(status); status = wrapperCublasDot(handle, size, x_mem, x_inc, y_mem, y_inc, &ret); checkCublasError(status); } else { #endif x_mem = x->getPPALForRead() + x_shift; y_mem = y->getPPALForRead() + y_shift; ret = wrapperCblasDot(size, x_mem, x_inc, y_mem, y_inc); #ifdef USE_CUDA } #endif return ret; } template T doSparseDot(int NNZ, const GPUMirroredMemoryBlock *x_values, const Int32GPUMirroredMemoryBlock *x_indices, const GPUMirroredMemoryBlock *y, int y_shift, int y_inc, bool use_gpu) { const T *x_values_mem; const int *x_indices_mem; const T *y_mem; T ret; #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) ERROR_PRINT("CUDA sparse DOT not implemented\n"); #endif x_values_mem = x_values->getPPALForRead(); x_indices_mem = x_indices->getPPALForRead(); y_mem = y->getPPALForRead() + y_shift; ret = cblas_sparse_dot(NNZ, x_values_mem, x_indices_mem, y_mem, y_inc); return ret; } template float doDot(unsigned int size, const GPUMirroredMemoryBlock *x, unsigned int x_shift, unsigned int x_inc, const GPUMirroredMemoryBlock *y, unsigned int y_shift, unsigned int y_inc, bool use_gpu); template double doDot(unsigned int size, const GPUMirroredMemoryBlock *x, unsigned int x_shift, unsigned int x_inc, const GPUMirroredMemoryBlock *y, unsigned int y_shift, unsigned int y_inc, bool use_gpu); template ComplexF doDot(unsigned int size, const GPUMirroredMemoryBlock *x, unsigned int x_shift, unsigned int x_inc, const GPUMirroredMemoryBlock *y, unsigned int y_shift, unsigned int y_inc, bool use_gpu); template float doSparseDot(int NNZ, const GPUMirroredMemoryBlock *x_values, const Int32GPUMirroredMemoryBlock *x_indices, const GPUMirroredMemoryBlock *y, int y_shift, int y_inc, bool use_gpu); template double doSparseDot(int NNZ, const GPUMirroredMemoryBlock *x_values, const Int32GPUMirroredMemoryBlock *x_indices, const GPUMirroredMemoryBlock *y, int y_shift, int y_inc, bool use_gpu); template ComplexF doSparseDot(int NNZ, const GPUMirroredMemoryBlock *x_values, const Int32GPUMirroredMemoryBlock *x_indices, const GPUMirroredMemoryBlock *y, int y_shift, int y_inc, bool use_gpu); april-ann-0.3.1/packages/basics/mathcore/c_src/equals.cu000066400000000000000000000050721234204160600231360ustar00rootroot00000000000000/* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-MLP toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "wrapper.h" #include "cuda_utils.h" #include "unused_variable.h" /*************************************** ************* CBLAS SECTION *********** ***************************************/ float absolute_value(const float &v) { return fabsf(v); } float absolute_value(const ComplexF &v) { return v.abs(); } template bool doEquals(unsigned int N, const GPUMirroredMemoryBlock *v1, const GPUMirroredMemoryBlock *v2, unsigned int stride1, unsigned int stride2, unsigned int shift1, unsigned int shift2, float epsilon, bool use_gpu) { bool eq = true; #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { ERROR_PRINT("CUDA VERSION NOT IMPLEMENTED\n"); } // else { #endif const T *v1_mem = v1->getPPALForRead() + shift1; const T *v2_mem = v2->getPPALForRead() + shift2; for (unsigned int i=0; i(unsigned int N, const GPUMirroredMemoryBlock *v1, const GPUMirroredMemoryBlock *v2, unsigned int stride1, unsigned int stride2, unsigned int shift1, unsigned int shift2, float epsilon, bool use_gpu); template bool doEquals(unsigned int N, const GPUMirroredMemoryBlock *v1, const GPUMirroredMemoryBlock *v2, unsigned int stride1, unsigned int stride2, unsigned int shift1, unsigned int shift2, float epsilon, bool use_gpu); april-ann-0.3.1/packages/basics/mathcore/c_src/fill.cu000066400000000000000000000055111234204160600225700ustar00rootroot00000000000000/* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-MLP toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "wrapper.h" #include "cuda_utils.h" #include "unused_variable.h" #ifdef USE_CUDA /*************************************** ************** CUDA SECTION *********** ***************************************/ template __global__ void fillKernel(T *v, unsigned int N, unsigned int stride, T value) { unsigned int x_idx = blockIdx.x * blockDim.x + threadIdx.x; if (x_idx < N) { unsigned int x_pos = x_idx*stride; v[x_pos] = value; } } #endif /*************************************** ************** C SECTION ************** ***************************************/ void wrapperFill(unsigned int N, float value, float *v_mem, unsigned int stride) { VECTOR_SSET(N, value, v_mem, stride); } void wrapperFill(unsigned int N, ComplexF value, ComplexF *v_mem, unsigned int stride) { for (unsigned int i=0; i void doFill(unsigned int N, GPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, T value, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { T *v_ptr = v->getGPUForWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); fillKernel<<>> (v_ptr, N, stride, value); } else { #endif T *v_mem = v->getPPALForWrite() + shift; wrapperFill(N, value, v_mem, stride); #ifdef USE_CUDA } #endif } template void doFill(unsigned int N, GPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, float value, bool use_gpu); template void doFill(unsigned int N, GPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, ComplexF value, bool use_gpu); april-ann-0.3.1/packages/basics/mathcore/c_src/gemm.cu000066400000000000000000000460541234204160600225760ustar00rootroot00000000000000/* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-MLP toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "wrapper.h" #include "cuda_utils.h" #include "unused_variable.h" #ifdef USE_CUDA /*************************************** ************** CUDA SECTION *********** ***************************************/ cublasStatus_t wrapperCublasGemm(cublasHandle_t &handle, cublasOperation_t &cublas_a_transpose, cublasOperation_t &cublas_b_transpose, int m, int n, int k, float *alpha, const float *a_mem, unsigned int a_inc, const float *b_mem, unsigned int b_inc, float *beta, float *c_mem, unsigned int c_inc) { return cublasSgemm(handle, cublas_a_transpose, cublas_b_transpose, m, n, k, alpha, a_mem, a_inc, b_mem, b_inc, beta, c_mem, c_inc); } cublasStatus_t wrapperCublasGemm(cublasHandle_t &handle, cublasOperation_t &cublas_a_transpose, cublasOperation_t &cublas_b_transpose, int m, int n, int k, double *alpha, const double *a_mem, unsigned int a_inc, const double *b_mem, unsigned int b_inc, double *beta, double *c_mem, unsigned int c_inc) { return cublasDgemm(handle, cublas_a_transpose, cublas_b_transpose, m, n, k, alpha, a_mem, a_inc, b_mem, b_inc, beta, c_mem, c_inc); } cublasStatus_t wrapperCublasGemm(cublasHandle_t &handle, cublasOperation_t &cublas_a_transpose, cublasOperation_t &cublas_b_transpose, int m, int n, int k, ComplexF *alpha, const ComplexF *a_mem, unsigned int a_inc, const ComplexF *b_mem, unsigned int b_inc, ComplexF *beta, ComplexF *c_mem, unsigned int c_inc) { return cublasCgemm(handle, cublas_a_transpose, cublas_b_transpose, m, n, k, reinterpret_cast(alpha), reinterpret_cast(a_mem), a_inc, reinterpret_cast(b_mem), b_inc, reinterpret_cast(beta), reinterpret_cast(c_mem), c_inc); } cusparseStatus_t wrapperCusparseCSRMM(cusparseHandle_t &handle, cusparseOperation_t &cusparse_a_transpose, int m, int n, int k, int NNZ, float *alpha, const cusparseMatDescr_t descrA, const float *a_values_mem, const int *a_first_index_mem, const int *a_indices_mem, const float *b_mem, unsigned int b_inc, float *beta, float *c_mem, unsigned int c_inc) { return cusparseScsrmm(handle, cusparse_a_transpose, m, n, k, NNZ, alpha, descrA, a_values_mem, a_first_index_mem, a_indices_mem, b_mem, b_inc, beta, c_mem, c_inc); } cusparseStatus_t wrapperCusparseCSRMM(cusparseHandle_t &handle, cusparseOperation_t &cusparse_a_transpose, int m, int n, int k, int NNZ, double *alpha, const cusparseMatDescr_t descrA, const double *a_values_mem, const int *a_first_index_mem, const int *a_indices_mem, const double *b_mem, unsigned int b_inc, double *beta, double *c_mem, unsigned int c_inc) { return cusparseDcsrmm(handle, cusparse_a_transpose, m, n, k, NNZ, alpha, descrA, a_values_mem, a_first_index_mem, a_indices_mem, b_mem, b_inc, beta, c_mem, c_inc); } cusparseStatus_t wrapperCusparseCSRMM(cusparseHandle_t &handle, cusparseOperation_t &cusparse_a_transpose, int m, int n, int k, int NNZ, ComplexF *alpha, const cusparseMatDescr_t descrA, const ComplexF *a_values_mem, const int *a_first_index_mem, const int *a_indices_mem, const ComplexF *b_mem, unsigned int b_inc, ComplexF *beta, ComplexF *c_mem, unsigned int c_inc) { return cusparseCcsrmm(handle, cusparse_a_transpose, m, n, k, NNZ, reinterpret_cast(alpha), descrA, reinterpret_cast(a_values_mem), a_first_index_mem, a_indices_mem, reinterpret_cast(b_mem), b_inc, reinterpret_cast(beta), reinterpret_cast(c_mem), c_inc); } #endif /*************************************** ************* CBLAS SECTION *********** ***************************************/ void wrapperCblasGemm(CBLAS_ORDER &major_type, CBLAS_TRANSPOSE a_transpose, CBLAS_TRANSPOSE b_transpose, int m, int n, int k, float alpha, const float *a_mem, unsigned int a_inc, const float *b_mem, unsigned int b_inc, float beta, float *c_mem, unsigned int c_inc) { cblas_sgemm(major_type, a_transpose, b_transpose, m, n, k, alpha, a_mem, a_inc, b_mem, b_inc, beta, c_mem, c_inc); } void wrapperCblasGemm(CBLAS_ORDER &major_type, CBLAS_TRANSPOSE a_transpose, CBLAS_TRANSPOSE b_transpose, int m, int n, int k, double alpha, const double *a_mem, unsigned int a_inc, const double *b_mem, unsigned int b_inc, double beta, double *c_mem, unsigned int c_inc) { cblas_dgemm(major_type, a_transpose, b_transpose, m, n, k, alpha, a_mem, a_inc, b_mem, b_inc, beta, c_mem, c_inc); } void wrapperCblasGemm(CBLAS_ORDER &major_type, CBLAS_TRANSPOSE a_transpose, CBLAS_TRANSPOSE b_transpose, int m, int n, int k, ComplexF alpha, const ComplexF *a_mem, unsigned int a_inc, const ComplexF *b_mem, unsigned int b_inc, ComplexF beta, ComplexF *c_mem, unsigned int c_inc) { cblas_cgemm(major_type, a_transpose, b_transpose, m, n, k, &alpha, a_mem, a_inc, b_mem, b_inc, &beta, c_mem, c_inc); } template void wrapperCblasSparseMM(CBLAS_ORDER major_order, SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, CBLAS_TRANSPOSE b_transpose, CBLAS_TRANSPOSE c_transpose, int m, int n, int k, T alpha, const T *a_values_mem, const int *a_indices_mem, const int *a_first_index_mem, const T *b_mem, unsigned int b_inc, T beta, T *c_mem, unsigned int c_inc) { cblas_sparse_mm(major_order, sparse_format, a_transpose, b_transpose, c_transpose, m, n, k, alpha, a_values_mem, a_indices_mem, a_first_index_mem, b_mem, static_cast(b_inc), beta, c_mem, static_cast(c_inc)); } /*************************************** *********** TEMPLATE SECTION ********** ***************************************/ template void doGemm(CBLAS_ORDER major_type, CBLAS_TRANSPOSE a_transpose, CBLAS_TRANSPOSE b_transpose, int m, int n, int k, T alpha, const GPUMirroredMemoryBlock* a, unsigned int a_inc, const GPUMirroredMemoryBlock* b, unsigned int b_inc, T beta, GPUMirroredMemoryBlock* c, unsigned int c_inc, unsigned int a_shift, unsigned int b_shift, unsigned int c_shift, bool use_gpu) { const T *a_mem, *b_mem; T *c_mem; #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { cublasStatus_t status; cublasHandle_t handle = GPUHelper::getHandler(); assert(major_type == CblasColMajor); //printf("Doing a sgemm with comp=1 & cuda=1\n"); a_mem = a->getGPUForRead() + a_shift; b_mem = b->getGPUForRead() + b_shift; c_mem = c->getGPUForReadAndWrite() + c_shift; cublasOperation_t cublas_a_transpose = getCublasOperation(a_transpose); cublasOperation_t cublas_b_transpose = getCublasOperation(b_transpose); status = cublasSetStream(handle, GPUHelper::getCurrentStream()); checkCublasError(status); status = wrapperCublasGemm(handle, cublas_a_transpose, cublas_b_transpose, m, n, k, &alpha, a_mem, a_inc, b_mem, b_inc, &beta, c_mem, c_inc); checkCublasError(status); } else { //printf("Doing a sgemm with comp=1 & cuda=0\n"); #endif //printf("Doing a sgemm with comp=0 & cuda=0\n"); a_mem = a->getPPALForRead() + a_shift; b_mem = b->getPPALForRead() + b_shift; c_mem = c->getPPALForReadAndWrite() + c_shift; // matrix matrix product: C = \alpha op(A) op(B) + \beta C wrapperCblasGemm(major_type, // Row or Col Major a_transpose, // Transpose or not A b_transpose, // Transpose or not B m, // num rows of A (before transpose) n, // num rows at B (before transpose) k, // Common dimension between A and B alpha, // Alpha value a_mem, // A matrix a_inc, // A matrix stride b_mem, // B matrix b_inc, // B matrix stride beta, // Beta value c_mem, // C matrix c_inc); // C matrix stride #ifdef USE_CUDA } #endif } template void doSparseMM(CBLAS_ORDER major_order, SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, CBLAS_TRANSPOSE b_transpose, CBLAS_TRANSPOSE c_transpose, int m, int n, int k, T alpha, const GPUMirroredMemoryBlock* a_values, const Int32GPUMirroredMemoryBlock* a_indices, const Int32GPUMirroredMemoryBlock* a_first_index, const GPUMirroredMemoryBlock* b, int b_inc, T beta, GPUMirroredMemoryBlock* c, int c_inc, int b_shift, int c_shift, bool use_gpu) { const T *a_values_mem, *b_mem; const int *a_indices_mem, *a_first_index_mem; T *c_mem; const int NNZ = static_cast(a_values->getSize()); #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { cusparseStatus_t status; cusparseHandle_t handle = GPUHelper::getSparseHandler(); if (major_order != CblasColMajor) ERROR_EXIT(128, "Column major matrices are expected\n"); if (b_transpose == CblasTrans || c_transpose == CblasTrans) ERROR_EXIT(128, "Impossible to transpose B or C matrices " "when using CUDA\n"); if (sparse_format != CSR_FORMAT) a_transpose = NEGATE_CBLAS_TRANSPOSE(a_transpose); //printf("Doing a sgemm with comp=1 & cuda=1\n"); a_values_mem = a_values->getGPUForRead(); a_indices_mem = a_indices->getGPUForRead(); a_first_index_mem = a_first_index->getGPUForRead(); b_mem = b->getGPUForRead() + b_shift; c_mem = c->getGPUForReadAndWrite() + c_shift; cusparseOperation_t cusparse_a_transpose = getCusparseOperation(a_transpose); status = cusparseSetStream(handle, GPUHelper::getCurrentStream()); checkCusparseError(status); cusparseMatDescr_t descrA; status = cusparseCreateMatDescr(&descrA); checkCusparseError(status); /* by default, it is initialized like this: descrA->MatrixType = CUSPARSE_MATRIX_TYPE_GENERAL; descrA->FillMode = 0; descrA->DiagType = 0; descrA->IndexBase = CUSPARSE_INDEX_BASE_ZERO; */ // status = wrapperCusparseCSRMM(handle, cusparse_a_transpose, m, n, k, NNZ, &alpha, descrA, a_values_mem, a_first_index_mem, a_indices_mem, b_mem, b_inc, &beta, c_mem, c_inc); checkCusparseError(status); status = cusparseDestroyMatDescr(descrA); checkCusparseError(status); } else { //printf("Doing a sgemm with comp=1 & cuda=0\n"); #endif //printf("Doing a sgemm with comp=0 & cuda=0\n"); a_values_mem = a_values->getPPALForRead(); a_indices_mem = a_indices->getPPALForRead(); a_first_index_mem = a_first_index->getPPALForRead(); b_mem = b->getPPALForRead() + b_shift; c_mem = c->getPPALForReadAndWrite() + c_shift; // matrix matrix product: C = \alpha op(A) op(B) + \beta C wrapperCblasSparseMM(major_order, sparse_format, a_transpose, b_transpose, c_transpose, m, // num rows of A (before transpose) n, // num rows at B (before transpose) k, // Common dimension between A and B alpha, // Alpha value a_values_mem, a_indices_mem, a_first_index_mem, b_mem, // B matrix b_inc, // B matrix stride beta, // Beta value c_mem, // C matrix c_inc); // C matrix stride #ifdef USE_CUDA } #endif } template void doGemm(CBLAS_ORDER major_type, CBLAS_TRANSPOSE a_transpose, CBLAS_TRANSPOSE b_transpose, int m, int n, int k, float alpha, const GPUMirroredMemoryBlock* a, unsigned int a_inc, const GPUMirroredMemoryBlock* b, unsigned int b_inc, float beta, GPUMirroredMemoryBlock* c, unsigned int c_inc, unsigned int a_shift, unsigned int b_shift, unsigned int c_shift, bool use_gpu); template void doGemm(CBLAS_ORDER major_type, CBLAS_TRANSPOSE a_transpose, CBLAS_TRANSPOSE b_transpose, int m, int n, int k, double alpha, const GPUMirroredMemoryBlock* a, unsigned int a_inc, const GPUMirroredMemoryBlock* b, unsigned int b_inc, double beta, GPUMirroredMemoryBlock* c, unsigned int c_inc, unsigned int a_shift, unsigned int b_shift, unsigned int c_shift, bool use_gpu); template void doGemm(CBLAS_ORDER major_type, CBLAS_TRANSPOSE a_transpose, CBLAS_TRANSPOSE b_transpose, int m, int n, int k, ComplexF alpha, const GPUMirroredMemoryBlock* a, unsigned int a_inc, const GPUMirroredMemoryBlock* b, unsigned int b_inc, ComplexF beta, GPUMirroredMemoryBlock* c, unsigned int c_inc, unsigned int a_shift, unsigned int b_shift, unsigned int c_shift, bool use_gpu); template void doSparseMM(CBLAS_ORDER major_order, SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, CBLAS_TRANSPOSE b_transpose, CBLAS_TRANSPOSE c_transpose, int m, int n, int k, float alpha, const GPUMirroredMemoryBlock* a_values, const Int32GPUMirroredMemoryBlock* a_indices, const Int32GPUMirroredMemoryBlock* a_first_index, const GPUMirroredMemoryBlock* b, int b_inc, float beta, GPUMirroredMemoryBlock* c, int c_inc, int b_shift, int c_shift, bool use_gpu); template void doSparseMM(CBLAS_ORDER major_order, SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, CBLAS_TRANSPOSE b_transpose, CBLAS_TRANSPOSE c_transpose, int m, int n, int k, double alpha, const GPUMirroredMemoryBlock* a_values, const Int32GPUMirroredMemoryBlock* a_indices, const Int32GPUMirroredMemoryBlock* a_first_index, const GPUMirroredMemoryBlock* b, int b_inc, double beta, GPUMirroredMemoryBlock* c, int c_inc, int b_shift, int c_shift, bool use_gpu); template void doSparseMM(CBLAS_ORDER major_order, SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, CBLAS_TRANSPOSE b_transpose, CBLAS_TRANSPOSE c_transpose, int m, int n, int k, ComplexF alpha, const GPUMirroredMemoryBlock* a_values, const Int32GPUMirroredMemoryBlock* a_indices, const Int32GPUMirroredMemoryBlock* a_first_index, const GPUMirroredMemoryBlock* b, int b_inc, ComplexF beta, GPUMirroredMemoryBlock* c, int c_inc, int b_shift, int c_shift, bool use_gpu); april-ann-0.3.1/packages/basics/mathcore/c_src/gemv.cu000066400000000000000000000426251234204160600226070ustar00rootroot00000000000000/* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-MLP toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "wrapper.h" #include "cuda_utils.h" #include "unused_variable.h" #ifdef USE_CUDA /*************************************** ************** CUDA SECTION *********** ***************************************/ cublasStatus_t wrapperCublasGemv(cublasHandle_t &handle, cublasOperation_t &cublas_a_transpose, int m, int n, const float *alpha, const float *a_mem, unsigned int a_inc, const float *x_mem, unsigned int x_inc, const float *beta, float *y_mem, unsigned int y_inc) { return cublasSgemv(handle, cublas_a_transpose, m, n, alpha, a_mem, a_inc, x_mem, x_inc, beta, y_mem, y_inc); } cublasStatus_t wrapperCublasGemv(cublasHandle_t &handle, cublasOperation_t &cublas_a_transpose, int m, int n, const double *alpha, const double *a_mem, unsigned int a_inc, const double *x_mem, unsigned int x_inc, const double *beta, double *y_mem, unsigned int y_inc) { return cublasDgemv(handle, cublas_a_transpose, m, n, alpha, a_mem, a_inc, x_mem, x_inc, beta, y_mem, y_inc); } cublasStatus_t wrapperCublasGemv(cublasHandle_t &handle, cublasOperation_t &cublas_a_transpose, int m, int n, const ComplexF *alpha, const ComplexF *a_mem, unsigned int a_inc, const ComplexF *x_mem, unsigned int x_inc, const ComplexF *beta, ComplexF *y_mem, unsigned int y_inc) { return cublasCgemv(handle, cublas_a_transpose, m, n, reinterpret_cast(alpha), reinterpret_cast(a_mem), a_inc, reinterpret_cast(x_mem), x_inc, reinterpret_cast(beta), reinterpret_cast(y_mem), y_inc); } cusparseStatus_t wrapperCusparseCSRGemv(cusparseHandle_t &handle, cusparseOperation_t &cusparse_a_transpose, int m, int n, int NNZ, const float *alpha, cusparseMatDescr_t descrA, const float *a_values_mem, const int *a_indices_mem, const int *a_first_index_mem, const float *x_mem, unsigned int x_inc, const float *beta, float *y_mem, unsigned int y_inc) { if (x_inc != 1 || y_inc != 1) ERROR_EXIT(128, "Not implemented for non contiguous vectors\n"); return cusparseScsrmv(handle, cusparse_a_transpose, m, n, NNZ, alpha, descrA, a_values_mem, a_first_index_mem, a_indices_mem, x_mem, beta, y_mem); } cusparseStatus_t wrapperCusparseCSRGemv(cusparseHandle_t &handle, cusparseOperation_t &cusparse_a_transpose, int m, int n, int NNZ, const double *alpha, cusparseMatDescr_t descrA, const double *a_values_mem, const int *a_indices_mem, const int *a_first_index_mem, const double *x_mem, unsigned int x_inc, const double *beta, double *y_mem, unsigned int y_inc) { if (x_inc != 1 || y_inc != 1) ERROR_EXIT(128, "Not implemented for non contiguous vectors\n"); return cusparseDcsrmv(handle, cusparse_a_transpose, m, n, NNZ, alpha, descrA, a_values_mem, a_first_index_mem, a_indices_mem, x_mem, beta, y_mem); } cusparseStatus_t wrapperCusparseCSRGemv(cusparseHandle_t &handle, cusparseOperation_t &cusparse_a_transpose, int m, int n, int NNZ, const ComplexF *alpha, cusparseMatDescr_t descrA, const ComplexF *a_values_mem, const int *a_indices_mem, const int *a_first_index_mem, const ComplexF *x_mem, unsigned int x_inc, const ComplexF *beta, ComplexF *y_mem, unsigned int y_inc) { if (x_inc != 1 || y_inc != 1) ERROR_EXIT(128, "Not implemented for non contiguous vectors\n"); return cusparseCcsrmv(handle, cusparse_a_transpose, m, n, NNZ, reinterpret_cast(alpha), descrA, reinterpret_cast(a_values_mem), a_first_index_mem, a_indices_mem, reinterpret_cast(x_mem), reinterpret_cast(beta), reinterpret_cast(y_mem)); } #endif /*************************************** ************* CBLAS SECTION *********** ***************************************/ void wrapperCblasGemv(CBLAS_ORDER &major_order, CBLAS_TRANSPOSE a_transpose, int m, int n, float alpha, const float *a_mem, unsigned int a_inc, const float *x_mem, unsigned int x_inc, float beta, float *y_mem, unsigned int y_inc) { cblas_sgemv(major_order, a_transpose, m, n, alpha, a_mem, a_inc, x_mem, x_inc, beta, y_mem, y_inc); } void wrapperCblasGemv(CBLAS_ORDER &major_order, CBLAS_TRANSPOSE a_transpose, int m, int n, double alpha, const double *a_mem, unsigned int a_inc, const double *x_mem, unsigned int x_inc, double beta, double *y_mem, unsigned int y_inc) { cblas_dgemv(major_order, a_transpose, m, n, alpha, a_mem, a_inc, x_mem, x_inc, beta, y_mem, y_inc); } void wrapperCblasGemv(CBLAS_ORDER &major_order, CBLAS_TRANSPOSE a_transpose, int m, int n, ComplexF alpha, const ComplexF *a_mem, unsigned int a_inc, const ComplexF *x_mem, unsigned int x_inc, ComplexF beta, ComplexF *y_mem, unsigned int y_inc) { cblas_cgemv(major_order, a_transpose, m, n, &alpha, a_mem, a_inc, x_mem, x_inc, &beta, y_mem, y_inc); } template void wrapperCblasSparseGemv(SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, int m, int n, T alpha, const T *a_values_mem, const int *a_indices_mem, const int *a_first_index_mem, const T *x_mem, unsigned int x_inc, T beta, T *y_mem, unsigned int y_inc) { cblas_sparse_mv(sparse_format, a_transpose, m, n, alpha, a_values_mem, a_indices_mem, a_first_index_mem, x_mem, static_cast(x_inc), beta, y_mem, static_cast(y_inc)); } /*************************************** *********** TEMPLATE SECTION ********** ***************************************/ template void doGemv(CBLAS_ORDER major_order, CBLAS_TRANSPOSE a_transpose, int m, int n, T alpha, const GPUMirroredMemoryBlock *a, unsigned int a_inc, const GPUMirroredMemoryBlock *x, unsigned int x_inc, T beta, GPUMirroredMemoryBlock *y, unsigned int y_inc, unsigned int a_shift, unsigned int x_shift, unsigned int y_shift, bool use_gpu) { const T *a_mem, *x_mem; T *y_mem; #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { cublasStatus_t status; cublasHandle_t handle = GPUHelper::getHandler(); assert(major_order == CblasColMajor); cublasOperation_t cublas_a_transpose = getCublasOperation(a_transpose); a_mem = a->getGPUForRead() + a_shift; x_mem = x->getGPUForRead() + x_shift; y_mem = y->getGPUForReadAndWrite() + y_shift; status = cublasSetStream(handle, GPUHelper::getCurrentStream()); checkCublasError(status); status = wrapperCublasGemv(handle, cublas_a_transpose, m, n, &alpha, a_mem, a_inc, x_mem, x_inc, &beta, y_mem, y_inc); checkCublasError(status); } else { #endif a_mem = a->getPPALForRead() + a_shift; x_mem = x->getPPALForRead() + x_shift; y_mem = y->getPPALForReadAndWrite() + y_shift; wrapperCblasGemv(major_order, a_transpose, m, n, alpha, a_mem, a_inc, x_mem, x_inc, beta, y_mem, y_inc); #ifdef USE_CUDA } #endif } template void doSparseGemv(CBLAS_ORDER major_order, SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, int m, int n, T alpha, const GPUMirroredMemoryBlock *a_values, const Int32GPUMirroredMemoryBlock *a_indices, const Int32GPUMirroredMemoryBlock *a_first_index, const GPUMirroredMemoryBlock *x, unsigned int x_inc, T beta, GPUMirroredMemoryBlock *y, unsigned int y_inc, unsigned int x_shift, unsigned int y_shift, bool use_gpu) { const T *a_values_mem, *x_mem; const int *a_indices_mem, *a_first_index_mem; T *y_mem; const int NNZ = static_cast(a_values->getSize()); #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { cusparseStatus_t status; cusparseHandle_t handle = GPUHelper::getSparseHandler(); if (major_order != CblasColMajor) ERROR_EXIT(128, "Column major matrices are expected\n"); if (sparse_format != CSR_FORMAT) a_transpose = NEGATE_CBLAS_TRANSPOSE(a_transpose); a_values_mem = a_values->getGPUForRead(); a_indices_mem = a_indices->getGPUForRead(); a_first_index_mem = a_first_index->getGPUForRead(); x_mem = x->getGPUForRead() + x_shift; y_mem = y->getGPUForReadAndWrite() + y_shift; cusparseOperation_t cusparse_a_transpose = getCusparseOperation(a_transpose); status = cusparseSetStream(handle, GPUHelper::getCurrentStream()); checkCusparseError(status); cusparseMatDescr_t descrA; status = cusparseCreateMatDescr(&descrA); checkCusparseError(status); /* by default, it is initialized like this: descrA->MatrixType = CUSPARSE_MATRIX_TYPE_GENERAL; descrA->FillMode = 0; descrA->DiagType = 0; descrA->IndexBase = CUSPARSE_INDEX_BASE_ZERO; */ status = wrapperCusparseCSRGemv(handle, cusparse_a_transpose, m, n, NNZ, &alpha, descrA, a_values_mem, a_first_index_mem, a_indices_mem, x_mem, x_inc, &beta, y_mem, y_inc); checkCusparseError(status); status = cusparseDestroyMatDescr(descrA); checkCusparseError(status); } else { #endif if (major_order != CblasRowMajor) ERROR_EXIT(128, "Row major matrices are expected\n"); a_values_mem = a_values->getPPALForRead(); a_indices_mem = a_indices->getPPALForRead(); a_first_index_mem = a_first_index->getPPALForRead(); x_mem = x->getPPALForRead() + x_shift; y_mem = y->getPPALForReadAndWrite() + y_shift; wrapperCblasSparseGemv(sparse_format, a_transpose, m, n, alpha, a_values_mem, a_indices_mem, a_first_index_mem, x_mem, x_inc, beta, y_mem, y_inc); #ifdef USE_CUDA } #endif } template void doGemv(CBLAS_ORDER major_order, CBLAS_TRANSPOSE a_transpose, int m, int n, float alpha, const GPUMirroredMemoryBlock *a, unsigned int a_inc, const GPUMirroredMemoryBlock *x, unsigned int x_inc, float beta, GPUMirroredMemoryBlock *y, unsigned int y_inc, unsigned int a_shift, unsigned int x_shift, unsigned int y_shift, bool use_gpu); template void doGemv(CBLAS_ORDER major_order, CBLAS_TRANSPOSE a_transpose, int m, int n, double alpha, const GPUMirroredMemoryBlock *a, unsigned int a_inc, const GPUMirroredMemoryBlock *x, unsigned int x_inc, double beta, GPUMirroredMemoryBlock *y, unsigned int y_inc, unsigned int a_shift, unsigned int x_shift, unsigned int y_shift, bool use_gpu); template void doGemv(CBLAS_ORDER major_order, CBLAS_TRANSPOSE a_transpose, int m, int n, ComplexF alpha, const GPUMirroredMemoryBlock *a, unsigned int a_inc, const GPUMirroredMemoryBlock *x, unsigned int x_inc, ComplexF beta, GPUMirroredMemoryBlock *y, unsigned int y_inc, unsigned int a_shift, unsigned int x_shift, unsigned int y_shift, bool use_gpu); template void doSparseGemv(CBLAS_ORDER major_order, SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, int m, int n, float alpha, const GPUMirroredMemoryBlock *a_values, const Int32GPUMirroredMemoryBlock *a_indices, const Int32GPUMirroredMemoryBlock *a_first_index, const GPUMirroredMemoryBlock *x, unsigned int x_inc, float beta, GPUMirroredMemoryBlock *y, unsigned int y_inc, unsigned int x_shift, unsigned int y_shift, bool use_gpu); template void doSparseGemv(CBLAS_ORDER major_order, SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, int m, int n, double alpha, const GPUMirroredMemoryBlock *a_values, const Int32GPUMirroredMemoryBlock *a_indices, const Int32GPUMirroredMemoryBlock *a_first_index, const GPUMirroredMemoryBlock *x, unsigned int x_inc, double beta, GPUMirroredMemoryBlock *y, unsigned int y_inc, unsigned int x_shift, unsigned int y_shift, bool use_gpu); template void doSparseGemv(CBLAS_ORDER major_order, SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, int m, int n, ComplexF alpha, const GPUMirroredMemoryBlock *a_values, const Int32GPUMirroredMemoryBlock *a_indices, const Int32GPUMirroredMemoryBlock *a_first_index, const GPUMirroredMemoryBlock *x, unsigned int x_inc, ComplexF beta, GPUMirroredMemoryBlock *y, unsigned int y_inc, unsigned int x_shift, unsigned int y_shift, bool use_gpu); april-ann-0.3.1/packages/basics/mathcore/c_src/ger.cu000066400000000000000000000143511234204160600224210ustar00rootroot00000000000000/* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-MLP toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "wrapper.h" #include "cuda_utils.h" #include "unused_variable.h" #ifdef USE_CUDA /*************************************** ************** CUDA SECTION *********** ***************************************/ cublasStatus_t wrapperCublasGer(cublasHandle_t &handle, unsigned int m, unsigned int n, float *alpha, const float *x_mem, unsigned int x_inc, const float *y_mem, unsigned int y_inc, float *a_mem, unsigned int a_inc) { return cublasSger(handle, m, n, alpha, x_mem, x_inc, y_mem, y_inc, a_mem, a_inc); } cublasStatus_t wrapperCublasGer(cublasHandle_t &handle, unsigned int m, unsigned int n, double *alpha, const double *x_mem, unsigned int x_inc, const double *y_mem, unsigned int y_inc, double *a_mem, unsigned int a_inc) { return cublasDger(handle, m, n, alpha, x_mem, x_inc, y_mem, y_inc, a_mem, a_inc); } cublasStatus_t wrapperCublasGer(cublasHandle_t &handle, unsigned int m, unsigned int n, ComplexF *alpha, const ComplexF *x_mem, unsigned int x_inc, const ComplexF *y_mem, unsigned int y_inc, ComplexF *a_mem, unsigned int a_inc) { ERROR_EXIT(256, "Ger operation not implemented in CUDA\n"); return CUBLAS_STATUS_INTERNAL_ERROR; } #endif /*************************************** ************* CBLAS SECTION *********** ***************************************/ void wrapperCblasGer(CBLAS_ORDER major_type, int m, int n, float alpha, const float *x_mem, unsigned int x_inc, const float *y_mem, unsigned int y_inc, float *a_mem, unsigned int a_inc) { cblas_sger(major_type, m, n, alpha, x_mem, x_inc, y_mem, y_inc, a_mem, a_inc); } void wrapperCblasGer(CBLAS_ORDER major_type, int m, int n, double alpha, const double *x_mem, unsigned int x_inc, const double *y_mem, unsigned int y_inc, double *a_mem, unsigned int a_inc) { cblas_dger(major_type, m, n, alpha, x_mem, x_inc, y_mem, y_inc, a_mem, a_inc); } void wrapperCblasGer(CBLAS_ORDER major_type, int m, int n, ComplexF alpha, const ComplexF *x_mem, unsigned int x_inc, const ComplexF *y_mem, unsigned int y_inc, ComplexF *a_mem, unsigned int a_inc) { cblas_cgeru(major_type, m, n, &alpha, x_mem, x_inc, y_mem, y_inc, a_mem, a_inc); } /*************************************** *********** TEMPLATE SECTION ********** ***************************************/ template void doGer(CBLAS_ORDER major_type, unsigned int m, unsigned int n, T alpha, GPUMirroredMemoryBlock *x, unsigned int x_shift, unsigned int x_inc, GPUMirroredMemoryBlock *y, unsigned int y_shift, unsigned int y_inc, GPUMirroredMemoryBlock *a, unsigned int a_shift, unsigned int a_inc, bool use_gpu) { const T *x_mem; const T *y_mem; T *a_mem; #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { cublasStatus_t status; cublasHandle_t handle = GPUHelper::getHandler(); assert(major_type == CblasColMajor); x_mem = x->getGPUForRead() + x_shift; y_mem = y->getGPUForRead() + y_shift; a_mem = a->getGPUForReadAndWrite() + a_shift; status = cublasSetStream(handle, GPUHelper::getCurrentStream()); checkCublasError(status); status = wrapperCublasGer(handle, m, n, &alpha, x_mem, x_inc, y_mem, y_inc, a_mem, a_inc); checkCublasError(status); } else { #endif x_mem = x->getPPALForRead() + x_shift; y_mem = y->getPPALForRead() + y_shift; a_mem = a->getPPALForReadAndWrite() + a_shift; wrapperCblasGer(major_type, m, n, alpha, x_mem, x_inc, y_mem, y_inc, a_mem, a_inc); #ifdef USE_CUDA } #endif } template void doGer(CBLAS_ORDER major_type, unsigned int m, unsigned int n, float alpha, GPUMirroredMemoryBlock *x, unsigned int x_shift, unsigned int x_inc, GPUMirroredMemoryBlock *y, unsigned int y_shift, unsigned int y_inc, GPUMirroredMemoryBlock *a, unsigned int a_shift, unsigned int a_inc, bool use_gpu); template void doGer(CBLAS_ORDER major_type, unsigned int m, unsigned int n, double alpha, GPUMirroredMemoryBlock *x, unsigned int x_shift, unsigned int x_inc, GPUMirroredMemoryBlock *y, unsigned int y_shift, unsigned int y_inc, GPUMirroredMemoryBlock *a, unsigned int a_shift, unsigned int a_inc, bool use_gpu); template void doGer(CBLAS_ORDER major_type, unsigned int m, unsigned int n, ComplexF alpha, GPUMirroredMemoryBlock *x, unsigned int x_shift, unsigned int x_inc, GPUMirroredMemoryBlock *y, unsigned int y_shift, unsigned int y_inc, GPUMirroredMemoryBlock *a, unsigned int a_shift, unsigned int a_inc, bool use_gpu); april-ann-0.3.1/packages/basics/mathcore/c_src/gpu_helper.cu000066400000000000000000000023141234204160600237720ustar00rootroot00000000000000/* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-MLP toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "gpu_helper.h" #ifdef USE_CUDA bool GPUHelper::initialized = false; cublasHandle_t GPUHelper::handler; cusparseHandle_t GPUHelper::sparse_handler; cudaDeviceProp GPUHelper::properties; CUdevice GPUHelper::device; CUcontext GPUHelper::context; april_utils::vector GPUHelper::streams; unsigned int GPUHelper::current_stream = 0; #endif april-ann-0.3.1/packages/basics/mathcore/c_src/gpu_helper.h000066400000000000000000000073071234204160600236210ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef _CUBLAS_HANDLER_H_ #define _CUBLAS_HANDLER_H_ #ifdef USE_CUDA #include "error_print.h" #include "cblas_headers.h" #include "vector.h" #include "april_assert.h" #include #include #include #include class GPUHelper { static cublasHandle_t handler; static cusparseHandle_t sparse_handler; static bool initialized; static cudaDeviceProp properties; static CUdevice device; static CUcontext context; static april_utils::vector streams; static unsigned int current_stream; public: static void initHelper() { if (!initialized) { cublasStatus_t state; state = cublasCreate(&handler); if (state != CUBLAS_STATUS_SUCCESS) ERROR_EXIT(150, "Cublas couldn't be initialized\n"); cusparseStatus_t sparse_state = cusparseCreate(&sparse_handler); if (sparse_state != CUSPARSE_STATUS_SUCCESS) ERROR_EXIT(150, "Cusparse couldn't be initialized\n"); // initialized = true; if (cuDeviceGet (&device, 0) != CUDA_SUCCESS) ERROR_EXIT(152, "Failed to get device\n"); if (cudaGetDeviceProperties(&properties, 0) != cudaSuccess) ERROR_EXIT(153, "Failed to get properties\n"); streams.push_back(0); current_stream = 0; fprintf(stderr, "# Initialized CUDA, CUBLAS and CUSPARSE for GPU capabilitites " "of version %d.%d\n", properties.major, properties.minor); } } static void destroyHandler() { destroyStreams(); if (initialized != true) ERROR_EXIT(151, "Destroying CUBLAS handler, that it's not initialized\n"); // Need to free all the allocated memory in GPU cublasDestroy(handler); cusparseDestroy(sparse_handler); initialized = false; } static cublasHandle_t &getHandler() { initHelper(); return handler; } static cusparseHandle_t &getSparseHandler() { initHelper(); return sparse_handler; } static CUdevice &getCUdevice() { initHelper(); return device; } static unsigned int getMaxThreadsPerBlock() { initHelper(); return properties.maxThreadsPerBlock; } static void createNStreams(unsigned int n) { initHelper(); cuStreamSynchronize(0); for (unsigned int i=0; i1; --i) { cuStreamSynchronize(streams[i-1]); cuStreamDestroy(streams[i-1]); streams.pop_back(); } current_stream = 0; april_assert(streams.size() == 1); } static void setCurrentStream(unsigned int i) { april_assert(i < streams.size()); current_stream = i; } static CUstream getCurrentStream() { initHelper(); return streams[current_stream]; } }; #endif #endif // _CUBLAS_HANDLER_H_ april-ann-0.3.1/packages/basics/mathcore/c_src/gpu_mirrored_memory_block.cu000066400000000000000000000031411234204160600270770ustar00rootroot00000000000000/* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-MLP toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "gpu_mirrored_memory_block.h" bool GPUMirroredMemoryBlockBase::use_mmap_allocation = false; #ifndef NO_POOL size_t GPUMirroredMemoryBlockBase::MAX_POOL_LIST_SIZE = 200*1024*1024; // 200 Megabytes size_t GPUMirroredMemoryBlockBase::MIN_MEMORY_TH_IN_POOL = 20; // 20 bytes GPUMirroredMemoryBlockBase::PoolFreeBeforeExit GPUMirroredMemoryBlockBase::pool_free_before_exit; size_t GPUMirroredMemoryBlockBase::pool_size = 0; GPUMirroredMemoryBlockBase::PoolType *GPUMirroredMemoryBlockBase::pool_lists = new GPUMirroredMemoryBlockBase::PoolType(1024); #endif template class GPUMirroredMemoryBlock; template class GPUMirroredMemoryBlock; template class GPUMirroredMemoryBlock; template class GPUMirroredMemoryBlock; april-ann-0.3.1/packages/basics/mathcore/c_src/gpu_mirrored_memory_block.h000066400000000000000000000373061234204160600267310ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef GPU_MIRRORED_MEMORY_BLOCK_H #define GPU_MIRRORED_MEMORY_BLOCK_H // Define NO_POOL to avoid the use of a pool of pointers // #define NO_POOL // Define POOL_DEBUG for verbose debug printf's // #define POOL_DEBUG #include #include extern "C" { #include } #include "april_assert.h" #include "referenced.h" #include "complex_number.h" #include "unused_variable.h" #include #ifdef USE_CUDA #include #include #endif #include "gpu_helper.h" #include "error_print.h" #include "aligned_memory.h" #include "mmapped_data.h" #ifndef NO_POOL #include "hash_table.h" #include "aux_hash_table.h" #include "list.h" #endif #define PPAL_MASK 0x01 // bit 0 = 1 #define GPU_MASK 0x02 // bit 1 = 2 #define CONST_MASK 0x04 // bit 2 = 4 #define ALLOC_MASK 0x08 // bit 3 = 8 #define MMAP_MASK 0x10 // bit 4 = 16 /// Class base for memory blocks mirrored between host (mem ppal) and device /// (GPU) class GPUMirroredMemoryBlockBase : public Referenced { #ifndef NO_POOL public: typedef april_utils::list PoolListType; typedef april_utils::hash PoolType; #endif private: static bool use_mmap_allocation; protected: #ifndef NO_POOL static size_t MAX_POOL_LIST_SIZE; static size_t MIN_MEMORY_TH_IN_POOL; static size_t pool_size; static PoolType *pool_lists; /// Auxiliary class for free of memory pool class PoolFreeBeforeExit { public: PoolFreeBeforeExit() { } ~PoolFreeBeforeExit() { for (PoolType::iterator it = pool_lists->begin(); it != pool_lists->end(); ++it) { for (PoolListType::iterator lit = it->second.begin(); lit != it->second.end(); ++lit) { aligned_free(*lit); } } delete pool_lists; } }; static PoolFreeBeforeExit pool_free_before_exit; #endif size_t size; union { char *char_mem; void *mem_ppal; const void *const_mem_ppal; }; #ifdef USE_CUDA CUdeviceptr mem_gpu; bool pinned; #endif unsigned char status; // bit 0 CPU, bit 1 GPU, bit 2 CONST, bit 3 ALLOCATED april_utils::MMappedDataReader *mmapped_data; void setConst() { status = status | CONST_MASK; } bool isConst() const { return status & CONST_MASK; } void setAllocated() { status = status | ALLOC_MASK; } bool isAllocated() const { return status & ALLOC_MASK; } void setMMapped() { status = status | MMAP_MASK; } bool isMMapped() const { return status & MMAP_MASK; } #ifdef USE_CUDA bool getUpdatedPPAL() const { return status & PPAL_MASK; } bool getUpdatedGPU() const { return status & GPU_MASK; } void unsetUpdatedPPAL() { status = status & (~PPAL_MASK); } void unsetUpdatedGPU() { status = status & (~GPU_MASK); } void setUpdatedPPAL() { status = status | PPAL_MASK; } void setUpdatedGPU() { status = status | GPU_MASK; } void updateMemPPAL() const { if (!getUpdatedPPAL()) ERROR_EXIT(128, "You need first to update the " "memory in a non const pointer\n"); } void updateMemPPAL() { if (!getUpdatedPPAL()) { CUresult result; setUpdatedPPAL(); april_assert(mem_gpu != 0); if (!pinned) { result = cuMemcpyDtoH(mem_ppal, mem_gpu, size); if (result != CUDA_SUCCESS) ERROR_EXIT1(160, "Could not copy memory from device to host: %s\n", cudaGetErrorString(cudaGetLastError())); } else { if (cudaMemcpyAsync(mem_ppal, reinterpret_cast(mem_gpu), size, cudaMemcpyDeviceToHost, 0) != cudaSuccess) ERROR_EXIT1(162, "Could not copy memory from device to host: %s\n", cudaGetErrorString(cudaGetLastError())); cudaThreadSynchronize(); } } } void copyPPALtoGPU() const { ERROR_EXIT(128, "You need first to update the " "memory in a non const pointer\n"); } void copyPPALtoGPU() { CUresult result; if (!pinned) { result = cuMemcpyHtoD(mem_gpu, mem_ppal, size); if (result != CUDA_SUCCESS) ERROR_EXIT1(162, "Could not copy memory from host to device: %s\n", cudaGetErrorString(cudaGetLastError())); } else { cudaThreadSynchronize(); if (cudaMemcpyAsync(reinterpret_cast(mem_gpu), mem_ppal, size, cudaMemcpyHostToDevice, 0) != cudaSuccess) ERROR_EXIT1(162, "Could not copy memory from host to device: %s\n", cudaGetErrorString(cudaGetLastError())); } } bool allocMemGPU() const { ERROR_EXIT(128, "You need first to update the " "memory in a non const pointer\n"); return false; } bool allocMemGPU() { if (mem_gpu == 0) { GPUHelper::initHelper(); CUresult result; result = cuMemAlloc(&mem_gpu, size); if (result != CUDA_SUCCESS) ERROR_EXIT1(161, "Could not allocate memory in device, error %d\n", result); return true; } return false; } #endif public: #ifdef USE_CUDA void updateMemGPU() const { if (!getUpdatedGPU()) { ERROR_EXIT(128, "You need first to update the " "memory in a non const pointer\n"); } } void updateMemGPU() { if (!getUpdatedGPU()) { allocMemGPU(); setUpdatedGPU(); copyPPALtoGPU(); } } #endif void toMMappedDataWriter(april_utils::MMappedDataWriter *mmapped_data) const { #ifdef USE_CUDA if (!getUpdatedPPAL()) ERROR_EXIT(128, "Impossible to update memory from a const pointer\n"); #endif mmapped_data->put(&size); mmapped_data->put(char_mem, size); } void toMMappedDataWriter(april_utils::MMappedDataWriter *mmapped_data) { #ifdef USE_CUDA updateMemPPAL(); #endif mmapped_data->put(&size); mmapped_data->put(char_mem, size); } GPUMirroredMemoryBlockBase(april_utils::MMappedDataReader *mmapped_data) : Referenced() { this->size = *(mmapped_data->get()); this->char_mem = mmapped_data->get(this->size); this->mmapped_data = mmapped_data; IncRef(mmapped_data); this->status = 0; this->setMMapped(); #ifdef USE_CUDA this->unsetUpdatedGPU(); this->setUpdatedPPAL(); this->mem_gpu = 0; this->pinned = false; #endif } GPUMirroredMemoryBlockBase(size_t sz, void *mem) : Referenced(), size(sz), mem_ppal(mem) { status = 0; mmapped_data = 0; #ifdef USE_CUDA unsetUpdatedGPU(); setUpdatedPPAL(); mem_gpu = 0; pinned = false; #endif } GPUMirroredMemoryBlockBase(size_t sz, const void *mem) : Referenced(), size(sz), const_mem_ppal(mem) { status = 0; mmapped_data = 0; setConst(); #ifdef USE_CUDA unsetUpdatedGPU(); setUpdatedPPAL(); mem_gpu = 0; pinned = false; #endif } // WARNING!!! the memory zone is not initialized by default GPUMirroredMemoryBlockBase(size_t sz) : Referenced(), size(sz) { status = 0; mmapped_data = 0; setAllocated(); #ifdef USE_CUDA unsetUpdatedGPU(); setUpdatedPPAL(); mem_gpu = 0; pinned = false; #endif #ifndef NO_POOL bool alloc_block = false; PoolListType &l = (*pool_lists)[size]; if (l.empty()) { if (!use_mmap_allocation) { char_mem = aligned_malloc(size); #ifdef POOL_DEBUG printf("ALLOC %lu :: %p\n", size, char_mem); #endif } else { setMMapped(); mem_ppal = (void*)mmap(NULL, sz, PROT_READ | PROT_WRITE, MAP_ANON | MAP_SHARED, -1, 0); if (mem_ppal == MAP_FAILED) ERROR_EXIT1(128, "Impossible to open required mmap memory: %s\n", strerror(errno)); } } else { mem_ppal = *(l.begin()); l.pop_front(); pool_size -= size; #ifdef POOL_DEBUG printf("POP %lu :: %p\n", size, mem_ppal); #endif } #else if (!use_mmap_allocation) { char_mem = aligned_malloc(size); } else { setMMapped(); mem_ppal = (void*)mmap(NULL, sz, PROT_READ | PROT_WRITE, MAP_ANON | MAP_SHARED, -1, 0); if (mem_ppal == MAP_FAILED) ERROR_EXIT1(128, "Impossible to open required mmap memory: %s\n", strerror(errno)); } #endif } virtual ~GPUMirroredMemoryBlockBase() { // for (unsigned int i=0; i= MIN_MEMORY_TH_IN_POOL) { pool_size += size; l.push_front(char_mem); #ifdef POOL_DEBUG printf("PUSH %lu :: %p\n", size, char_mem); #endif } else { #ifdef POOL_DEBUG printf("FREE %lu :: %p\n", size, char_mem); #endif aligned_free(char_mem); } #else aligned_free(char_mem); #endif } else munmap(mem_ppal, size); } } if (mem_gpu != 0) { CUresult result; result = cuMemFree(mem_gpu); if (result != CUDA_SUCCESS) ERROR_EXIT(163, "Could not free memory from device.\n"); } #else if (isAllocated()) { if (!isMMapped()) { #ifndef NO_POOL PoolListType &l = (*pool_lists)[size]; if (pool_size+size <= MAX_POOL_LIST_SIZE && size >= MIN_MEMORY_TH_IN_POOL) { pool_size += size; l.push_front(char_mem); #ifdef POOL_DEBUG printf("PUSH %lu :: %p\n", size, char_mem); #endif } else { #ifdef POOL_DEBUG printf("FREE %lu :: %p\n", size, char_mem); #endif aligned_free(char_mem); } #else aligned_free(char_mem); #endif } else munmap(mem_ppal, size); } #endif if (isMMapped() && mmapped_data != 0) DecRef(mmapped_data); } #ifdef USE_CUDA void pinnedMemoryPageLock() const { ERROR_EXIT(128, "Execute it from a non const pointer\n"); } void pinnedMemoryPageLock() { if (isConst() || isMMapped()) { ERROR_EXIT(128, "Impossible to set as pinned a const or mmapped memory block\n"); } if (mem_ppal) aligned_free(char_mem); void *ptr; if (cudaHostAlloc(&ptr, size, 0) != cudaSuccess) ERROR_EXIT1(162, "Could not copy memory from host to device: %s\n", cudaGetErrorString(cudaGetLastError())); mem_ppal = ptr; pinned = true; } #endif bool getCudaFlag() const { #ifdef USE_CUDA return getUpdatedGPU(); #else return false; #endif } static void setUseMMapAllocation(bool v) { use_mmap_allocation = v; } void forceUpdate(bool use_cuda) { #ifdef USE_CUDA if (isConst()) ERROR_EXIT(128, "Impossible to write in a const memory block\n"); if (use_cuda) updateMemGPU(); else updateMemPPAL(); #else UNUSED_VARIABLE(use_cuda); #endif } #ifndef NO_POOL static void changeMaxPoolSize(size_t max_pool_size) { MAX_POOL_LIST_SIZE = max_pool_size; // TODO: free pool memory if necessary } #endif }; //////////////////////////////////////////////////////////////////////////// /// Class template for instantiation of GPUMirroredMemoryBlockBase for different /// data types. template class GPUMirroredMemoryBlock : public GPUMirroredMemoryBlockBase { protected: GPUMirroredMemoryBlock(april_utils::MMappedDataReader *mmapped_data) : GPUMirroredMemoryBlockBase(mmapped_data) { } T *getPointer() { union { void *void_ptr; T *T_ptr; }; void_ptr = mem_ppal; return T_ptr; } const T *getPointer() const { union { const void *void_ptr; const T *T_ptr; }; void_ptr = const_mem_ppal; return T_ptr; } public: static GPUMirroredMemoryBlock * fromMMappedDataReader(april_utils::MMappedDataReader *mmapped_data) { return new GPUMirroredMemoryBlock(mmapped_data); } GPUMirroredMemoryBlock(unsigned int sz, T *mem) : GPUMirroredMemoryBlockBase(sz*sizeof(T), mem) { } GPUMirroredMemoryBlock(unsigned int sz, const T *mem) : GPUMirroredMemoryBlockBase(sz*sizeof(T), mem) { } GPUMirroredMemoryBlock(unsigned int sz) : GPUMirroredMemoryBlockBase(sz*sizeof(T)) { } virtual ~GPUMirroredMemoryBlock() { } GPUMirroredMemoryBlock *clone() const { GPUMirroredMemoryBlock *result = new GPUMirroredMemoryBlock(getSize()); result->copyFromBlock(this, 0, 0, getSize()); return result; } void copyFromBlock(const GPUMirroredMemoryBlock *other, size_t from, size_t where, size_t sz) { const T *other_ptr = other->getPPALForRead() + from; T *this_ptr = this->getPPALForWrite() + where; memcpy(this_ptr, other_ptr, sz * sizeof(T)); } unsigned int getSize() const { return size/sizeof(T); } const T *getPPALForRead() const { #ifdef USE_CUDA if (!getUpdatedPPAL()) ERROR_EXIT(128, "Update the memory from a non const pointer\n"); #endif return getPointer(); } const T *getPPALForRead() { #ifdef USE_CUDA updateMemPPAL(); #endif return getPointer(); } #ifdef USE_CUDA const T *getGPUForRead() const { if (!getUpdatedGPU()) ERROR_EXIT(128, "Update the memory from a non const pointer\n"); return reinterpret_cast(mem_gpu); } const T *getGPUForRead() { updateMemGPU(); return reinterpret_cast(mem_gpu); } #endif T *getPPALForWrite() { if (isConst()) ERROR_EXIT(128, "Impossible to write in a const memory block\n"); #ifdef USE_CUDA setUpdatedPPAL(); unsetUpdatedGPU(); #endif return getPointer(); } #ifdef USE_CUDA T *getGPUForWrite() { if (isConst()) ERROR_EXIT(128, "Impossible to write in a const memory block\n"); if (allocMemGPU()) copyPPALtoGPU(); setUpdatedGPU(); unsetUpdatedPPAL(); return reinterpret_cast(mem_gpu); } #endif T *getPPALForReadAndWrite() { if (isConst()) ERROR_EXIT(128, "Impossible to write in a const memory block\n"); #ifdef USE_CUDA updateMemPPAL(); unsetUpdatedGPU(); #endif return getPointer(); } #ifdef USE_CUDA T *getGPUForReadAndWrite() { if (isConst()) ERROR_EXIT(128, "Impossible to write in a const memory block\n"); updateMemGPU(); unsetUpdatedPPAL(); return reinterpret_cast(mem_gpu); } #endif T &get(unsigned int pos) { #ifdef USE_CUDA updateMemPPAL(); unsetUpdatedGPU(); #endif return getPointer()[pos]; } T &operator[](unsigned int pos) { return get(pos); } const T &get(unsigned int pos) const { #ifdef USE_CUDA updateMemPPAL(); #endif return getPointer()[pos]; } const T &operator[](unsigned int pos) const { return get(pos); } template GPUMirroredMemoryBlock *reinterpretAs() { union { GPUMirroredMemoryBlock *other; GPUMirroredMemoryBlock *ptr; }; ptr = this; return other; } }; // typedef for referring to float memory blocks typedef GPUMirroredMemoryBlock FloatGPUMirroredMemoryBlock; typedef GPUMirroredMemoryBlock DoubleGPUMirroredMemoryBlock; typedef GPUMirroredMemoryBlock Int32GPUMirroredMemoryBlock; typedef GPUMirroredMemoryBlock ComplexFGPUMirroredMemoryBlock; #endif // GPU_MIRRORED_MEMORY_BLOCK_H april-ann-0.3.1/packages/basics/mathcore/c_src/lapack_headers.cc000066400000000000000000000103261234204160600245460ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "unused_variable.h" #include "lapack_headers.h" #include "error_print.h" #if defined(USE_MKL) #include "cblas_headers.h" int clapack_sgetrf(const int Order, const int M, const int N, float *A, const int lda, int *ipiv) { if (Order != CblasColMajor) ERROR_EXIT(256, "Only col_major order is allowed\n"); int INFO; sgetrf_(&M,&N,A,&lda,ipiv,&INFO); return INFO; } int clapack_sgetri(const int Order, const int N, float *A, const int lda, int *ipiv) { if (Order != CblasColMajor) ERROR_EXIT(256, "Only col_major order is allowed\n"); int INFO; int LWORK = N*N; float *WORK = new float[LWORK]; sgetri_(&N,A,&lda,ipiv,WORK,&LWORK,&INFO); delete[] WORK; return INFO; } int clapack_sgesdd(const int Order, const int M, const int N, const int LDA, float *A, float *U, float *S, float *VT) { if (Order != CblasColMajor) ERROR_EXIT(256, "Only col_major order is allowed\n"); const int numSV = (M 0) ERROR_EXIT(128, "The matrix is singular and inverse can't be computed\n"); } april-ann-0.3.1/packages/basics/mathcore/c_src/lapack_headers.h000066400000000000000000000045251234204160600244140ustar00rootroot00000000000000 /* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef LAPACK_HEADERS_H #define LAPACK_HEADERS_H #ifdef USE_MKL /////////////////////////////////// MKL /////////////////////////////////////// extern "C" { #include } /*****************************************************************************/ #elif USE_XCODE ////////////////////////////////// XCODE ////////////////////////////////////// #include /*****************************************************************************/ #else ////////////////////////////////// ATLAS ////////////////////////////////////// extern "C" { #include } /*****************************************************************************/ #endif #if defined(USE_MKL) int clapack_sgetrf(const int Order, const int M, const int N, float *A, const int lda, int *ipiv); int clapack_sgetri(const int Order, const int N, float *A, const int lda, int *ipiv); int clapack_sgesdd(const int Order, const int M, const int N, const int LDA, float *A, float *U, float *S, float *VT); #elif defined(USE_XCODE) int clapack_sgetrf(int Order, int M, int N, float *A, int lda, int *ipiv); int clapack_sgetri(int Order, int N, float *A, int lda, int *ipiv); int clapack_sgesdd(int Order, int M, int N, int LDA, float *A, float *U, float *S, float *VT); #else int clapack_sgesdd(const int Order, const int M, const int N, const int LDA, float *A, float *U, float *S, float *VT); #endif void checkLapackInfo(int info); #endif // LAPACK_HEADERS_H april-ann-0.3.1/packages/basics/mathcore/c_src/loss_functions_wrapper.cu000066400000000000000000000626661234204160600264700ustar00rootroot00000000000000/* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include #include "clamp.h" #include "error_print.h" #include "wrapper.h" #include "unused_variable.h" #include "april_assert.h" using april_utils::clamp; #define clip(value, min, max) (((value) < (min)) ? (min) : (((value) > (max)) ? (max) : (value))) /////////////////////////////////////////////////////////// /////////////////// Kernels /////////////////////////////// /////////////////////////////////////////////////////////// #ifdef USE_CUDA #include "cuda_utils.h" __global__ void computeMSELossFunctionKernel(const float *output, const float *target_output, float *pattern_errors, float zero_epsilon_distance, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); float d = output[index] - target_output[index]; if (fabsf(d) < zero_epsilon_distance) d = 0.0f; pattern_errors[index] = d*d; } } __global__ void computeMSEGradientKernel(const float *output, const float *target_output, float *error_output, float zero_epsilon_distance, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); float d = output[index] - target_output[index]; if (fabsf(d) < zero_epsilon_distance) d = 0.0f; error_output[index] = d; } } __global__ void computeMAELossFunctionKernel(const float *output, const float *target_output, float *pattern_errors, float zero_epsilon_distance, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); float absd = fabsf(output[index] - target_output[index]); if (absd < zero_epsilon_distance) absd = 0.0f; pattern_errors[index] = absd; } } __global__ void computeMAEGradientKernel(const float *output, const float *target_output, float *error_output, float zero_epsilon_distance, unsigned int max_x, unsigned int lda_x, unsigned int max_y, float invN) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); float d = output[index] - target_output[index]; if (fabsf(d) < zero_epsilon_distance) error_output[index] = 0.0f; else { if (d < 0.0f) error_output[index] = -invN; else error_output[index] = invN; } } } __global__ void computeMultiClassCrossEntropyLossFunctionKernel(const float *output, const float *target_output, float *pattern_errors, float epsilon, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); // compute derivative // float o = clip(output[index], inf, epsilon, 1.0f - epsilon); float log_o = output[index]; float t = clip(target_output[index], epsilon, 1.0f - epsilon); if (t > epsilon) pattern_errors[index] = t * log_o; else pattern_errors[index] = 0.0f; } } __global__ void computeCrossEntropyLossFunctionKernel(const float *output, const float *target_output, float *pattern_errors, float epsilon, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); // compute derivative float log_o = clip(output[index], logf(epsilon), logf(1.0 - epsilon)); double o = exp(log_o); float log_inv_o = log(1.0 - o); float t = clip(target_output[index], epsilon, 1.0f - epsilon); float inv_t = clip(1.0f - target_output[index], epsilon, 1.0f - epsilon); if (t > epsilon) pattern_errors[index] = t * log_o; else pattern_errors[index] = 0.0f; if (inv_t > epsilon) pattern_errors[index] += inv_t * log_inv_o; } } __global__ void computeCrossEntropyGradientKernel(const float *output, const float *target_output, float *error_output, float zero, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); // compute derivative float v = clip(output[index], logf(zero), logf(1.0 - zero)); error_output[index] = expf(v) - target_output[index]; } } __global__ void applyTanhErrorFunctionKernel(const float *output, const float *target_output, float *output_error, float *pattern_errors, unsigned int max_x, unsigned int lda_x, unsigned int max_y) { unsigned int matrix_x_pos, matrix_y_pos; getColumnMajorBunchMatrixPositions(blockIdx, blockDim, threadIdx, matrix_x_pos, matrix_y_pos); if (matrix_x_pos < max_x && matrix_y_pos < max_y) { unsigned int index = getMatrixFlatIndex(matrix_x_pos, lda_x, matrix_y_pos); float d = output_error[index] = output[index] - target_output[index]; if (d < -0.9999999f) output_error[index] = -DERIVATIVE_SATURATION; else if (d > 0.9999999f) output_error[index] = DERIVATIVE_SATURATION; else output_error[index] = log((1.0f+output_error[index])/(1.0f-output_error[index])); pattern_errors[index] = d*d; } } void sumBunchPatternErrors(float *loss_output_ptr, const float *pattern_errors_ptr, unsigned int bunch_size, unsigned int size) { cublasHandle_t handle = GPUHelper::getHandler(); int aux_size = static_cast(size); for (unsigned int i=0; i void COMPUTE_LOSS(FloatGPUMirroredMemoryBlock *input, FloatGPUMirroredMemoryBlock *target, FloatGPUMirroredMemoryBlock *loss_output, unsigned int size, unsigned int bunch_size, F func, T zero) { const float *input_ptr = (input)->getPPALForRead(); const float *target_ptr = (target)->getPPALForRead(); float *loss_output_ptr = (loss_output)->getPPALForWrite(); for (unsigned int b=0; b<(bunch_size); ++b) { float var = func(input_ptr[b], target_ptr[b], zero); loss_output_ptr[b] = var; } input_ptr += bunch_size; target_ptr += bunch_size; for (unsigned int i = 1; i < (size); i++) { for (unsigned int b=0; b<(bunch_size); ++b) { float var = func(input_ptr[b], target_ptr[b], zero); loss_output_ptr[b] += var; } input_ptr += bunch_size; target_ptr += bunch_size; } } float MSE(float input, float target, float zero) { float d = input - target; if (fabs(d) < zero) d = 0.0f; else d = d*d; return d; } void doMSELossFunction(FloatGPUMirroredMemoryBlock *input, FloatGPUMirroredMemoryBlock *target, FloatGPUMirroredMemoryBlock *loss_output, float zero_epsilon_distance, unsigned int size, unsigned int bunch_size, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { const float *input_ptr = input->getGPUForRead(); const float *target_ptr = target->getGPUForRead(); FloatGPUMirroredMemoryBlock *pattern_errors = new FloatGPUMirroredMemoryBlock(target->getSize()); float *pattern_errors_ptr = pattern_errors->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); computeMSELossFunctionKernel<<>> (input_ptr, target_ptr, pattern_errors_ptr, zero_epsilon_distance, bunch_size, bunch_size, size); sumBunchPatternErrors(loss_output->getGPUForWrite(), pattern_errors_ptr, bunch_size, size); delete pattern_errors; } else { #endif COMPUTE_LOSS(input,target,loss_output,size,bunch_size,MSE, zero_epsilon_distance); #ifdef USE_CUDA } #endif } void doComputeMSEGradient(FloatGPUMirroredMemoryBlock *input, FloatGPUMirroredMemoryBlock *target, FloatGPUMirroredMemoryBlock *error_output, float zero_epsilon_distance, unsigned int size, unsigned int bunch_size, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { const float *input_ptr = input->getGPUForRead(); const float *target_ptr = target->getGPUForRead(); float *error_output_ptr = error_output->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); computeMSEGradientKernel<<>> (input_ptr, target_ptr, error_output_ptr, zero_epsilon_distance, bunch_size, bunch_size, size); } else { #endif float d = 0.0f; const float *input_ptr = input->getPPALForRead(); const float *target_ptr = target->getPPALForRead(); float *error_output_ptr = error_output->getPPALForWrite(); for (unsigned int i = 0; i < size; i++) { for (unsigned int b=0; bgetGPUForRead(); const float *target_ptr = target->getGPUForRead(); FloatGPUMirroredMemoryBlock *pattern_errors = new FloatGPUMirroredMemoryBlock(target->getSize()); float *pattern_errors_ptr = pattern_errors->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); computeMAELossFunctionKernel<<>> (input_ptr, target_ptr, pattern_errors_ptr, zero_epsilon_distance, bunch_size, bunch_size, size); sumBunchPatternErrors(loss_output->getGPUForWrite(), pattern_errors_ptr, bunch_size, size); delete pattern_errors; } else { #endif COMPUTE_LOSS(input,target,loss_output,size,bunch_size, MAE, zero_epsilon_distance); #ifdef USE_CUDA } #endif } void doComputeMAEGradient(FloatGPUMirroredMemoryBlock *input, FloatGPUMirroredMemoryBlock *target, FloatGPUMirroredMemoryBlock *error_output, float zero_epsilon_distance, unsigned int size, unsigned int bunch_size, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { const float *input_ptr = input->getGPUForRead(); const float *target_ptr = target->getGPUForRead(); float *error_output_ptr = error_output->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); computeMAEGradientKernel<<>> (input_ptr, target_ptr, error_output_ptr, zero_epsilon_distance, bunch_size, bunch_size, size, 1.0f/size); } else { #endif float d = 0.0f; const float *input_ptr = input->getPPALForRead(); const float *target_ptr = target->getPPALForRead(); float *error_output_ptr = error_output->getPPALForWrite(); float invN = 1.0f/size; for (unsigned int i = 0; i < size; i++) { for (unsigned int b=0; b 0.0f) && "Only log-based activation functions are allowed"); april_assert(!(target < 0.0f) && !(target > 1.0f) && "Only [0,1] target patterns are allowed"); // compute derivative float log_o = clamp(input, log_epsilon, log_1_epsilon); double o = exp(log_o); float log_inv_o = log(1.0 - o); // CLAMP of reference (target) float t = clamp(target, EPSILON, 1.0f - EPSILON); // CLAMP of 1.0 - reference (target). We do clamp again to avoid // numerical approximation problems, and to ensure correct working of // inv_t > EPSILON comparison float inv_t = clamp(1.0f - target, EPSILON, 1.0f - EPSILON); // printf("%g * %g + %g * %g :: %g\n", t, log_o, inv_t, log_inv_o, o); float sum; if (t > EPSILON) sum = -t * log_o; else sum = 0.0f; if (inv_t > EPSILON) sum -= inv_t * log_inv_o; return sum; } void doCrossEntropyLossFunction(FloatGPUMirroredMemoryBlock *input, FloatGPUMirroredMemoryBlock *target, FloatGPUMirroredMemoryBlock *loss_output, float EPSILON, unsigned int size, unsigned int bunch_size, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { const float *input_ptr = input->getGPUForRead(); const float *target_ptr = target->getGPUForRead(); FloatGPUMirroredMemoryBlock *pattern_errors = new FloatGPUMirroredMemoryBlock(target->getSize()); float *pattern_errors_ptr = pattern_errors->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); computeCrossEntropyLossFunctionKernel<<>> (input_ptr, target_ptr, pattern_errors_ptr, EPSILON, bunch_size, bunch_size, size); sumBunchPatternErrors(loss_output->getGPUForWrite(), pattern_errors_ptr, bunch_size, size); delete pattern_errors; } else { #endif CEData ce_data = { logf(EPSILON), logf(1.0f - EPSILON), EPSILON }; COMPUTE_LOSS(input,target,loss_output,size,bunch_size, CE, ce_data); #ifdef USE_CUDA } #endif } float MultiClassCE(float input, float target, float EPSILON) { april_assert(!(input > 0.0f) && "Only log-based activation functions are allowed"); april_assert(!(target < 0.0f) && !(target > 1.0f) && "Only [0,1] target patterns are allowed"); // compute derivative float log_o = input; float t = clamp(target, EPSILON, 1.0f - EPSILON); float sum; if (t > EPSILON) sum = -t * log_o; else sum = 0.0f; return sum; } void doMultiClassCrossEntropyLossFunction(FloatGPUMirroredMemoryBlock *input, FloatGPUMirroredMemoryBlock *target, FloatGPUMirroredMemoryBlock *loss_output, float EPSILON, unsigned int size, unsigned int bunch_size, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { const float *input_ptr = input->getGPUForRead(); const float *target_ptr = target->getGPUForRead(); FloatGPUMirroredMemoryBlock *pattern_errors = new FloatGPUMirroredMemoryBlock(target->getSize()); float *pattern_errors_ptr = pattern_errors->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); computeMultiClassCrossEntropyLossFunctionKernel<<>> (input_ptr, target_ptr, pattern_errors_ptr, EPSILON, bunch_size, bunch_size, size); sumBunchPatternErrors(loss_output->getGPUForWrite(), pattern_errors_ptr, bunch_size, size); delete pattern_errors; } else { #endif COMPUTE_LOSS(input,target,loss_output,size,bunch_size, MultiClassCE, EPSILON); #ifdef USE_CUDA } #endif } void doComputeCrossEntropyGradient(FloatGPUMirroredMemoryBlock *input, FloatGPUMirroredMemoryBlock *target, FloatGPUMirroredMemoryBlock *error_output, float EPSILON, unsigned int size, unsigned int bunch_size, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { const float *input_ptr = input->getGPUForRead(); const float *target_ptr = target->getGPUForRead(); float *error_output_ptr = error_output->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(bunch_size, size, block, grid); computeCrossEntropyGradientKernel<<>> (input_ptr, target_ptr, error_output_ptr, EPSILON, bunch_size, bunch_size, size); } else { #endif float log_epsilon = logf(EPSILON); float log_1_epsilon = logf(1.0f - EPSILON); const float *input_ptr = input->getPPALForRead(); const float *target_ptr = target->getPPALForRead(); float *error_output_ptr = error_output->getPPALForWrite(); for (unsigned int i = 0; i < size; i++) { for (unsigned int b=0; bgetGPUForRead(); const float *target_output_ptr = target_output->getGPUForRead(); float *output_error_ptr = output_error->getGPUForWrite(); float *pattern_errors_ptr = pattern_errors->getGPUForWrite(); dim3 block, grid; computeBlockAndGridSizesForAColumnMajorBunch(conf, output_size, block, grid); applyTanhErrorFunctionKernel<<>> (output_ptr, target_output_ptr, output_error_ptr, pattern_errors_ptr, conf.cur_bunch_size, conf.max_bunch_size, output_size); } else { #endif float d = 0; const float *output_ptr = output->getPPALForRead(); const float *target_output_ptr = target_output->getPPALForRead(); float *output_error_ptr = output_error->getPPALForWrite(); float *pattern_errors_ptr = pattern_errors->getPPALForWrite(); for (unsigned int i = 0; i < output_size; i++) { for (unsigned int b=0; b 0.9999999f) output_error_ptr[b] = DERIVATIVE_SATURATION; else output_error_ptr[b] = log((1.0f+output_error_ptr[b])/(1.0f-output_error_ptr[b])); pattern_errors_ptr[b] += d*d; } output_ptr += conf.max_bunch_size; target_output_ptr += conf.max_bunch_size; output_error_ptr += conf.max_bunch_size; pattern_errors_ptr += conf.max_bunch_size; } #ifdef USE_CUDA } #endif } */ /* void doCalculateMixtureCrossEntropy(FloatGPUMirroredMemoryBlock *output, FloatGPUMirroredMemoryBlock *target_output, FloatGPUMirroredMemoryBlock *output_error, FloatGPUMirroredMemoryBlock *pattern_errors, float EPSILON, float INF, unsigned int output_size, const ANNConfiguration &conf, bool use_gpu) { const float *output_ptr = output->getPPALForRead(); const float *target_output_ptr = target_output->getPPALForRead(); float *output_error_ptr = output_error->getPPALForWrite(); float *pattern_errors_ptr = pattern_errors->getGPUForWrite(); for (unsigned int b=0; b EPSILON) ? logf(prob) : INF); } return s; } */ /* void doCalculateGA(FloatGPUMirroredMemoryBlock *output, FloatGPUMirroredMemoryBlock *target_output, FloatGPUMirroredMemoryBlock *output_error, FloatGPUMirroredMemoryBlock *pattern_errors, unsigned int output_size, const ANNConfiguration &conf, bool use_gpu) { const float *output_ptr = output->getPPALForRead(); const float *target_output_ptr = target_output->getPPALForRead(); float *output_error_ptr = output_error->getPPALForWrite(); for (unsigned int b=0; b float doNrm2(unsigned int n, const GPUMirroredMemoryBlock *x, unsigned int inc, unsigned int shift, bool use_gpu) { float result; const T *x_mem; #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { cublasStatus_t status; cublasHandle_t handle = GPUHelper::getHandler(); x_mem = x->getGPUForRead() + shift; status = cublasSetStream(handle, GPUHelper::getCurrentStream()); checkCublasError(status); status = wrapperCublasNrm2(handle, n, x_mem, inc, &result); checkCublasError(status); } else { #endif x_mem = x->getPPALForRead() + shift; result = wrapperCblasNrm2(n, x_mem, inc); #ifdef USE_CUDA } #endif return result; } template float doNrm2(unsigned int n, const GPUMirroredMemoryBlock *x, unsigned int inc, unsigned int shift, bool use_gpu); template float doNrm2(unsigned int n, const GPUMirroredMemoryBlock *x, unsigned int inc, unsigned int shift, bool use_gpu); april-ann-0.3.1/packages/basics/mathcore/c_src/sbmv.cu000066400000000000000000000076761234204160600226270ustar00rootroot00000000000000/* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-MLP toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "wrapper.h" #include "cuda_utils.h" #include "unused_variable.h" #ifdef USE_CUDA /*************************************** ************** CUDA SECTION *********** ***************************************/ cublasStatus_t wrapperCublasSbmv(cublasHandle_t &handle, cublasFillMode_t uplo_cublas, int n, int k, float *alpha, const float *a_mem, unsigned int a_lda, const float *x_mem, unsigned int x_inc, float *beta, float *y_mem, unsigned int y_inc) { return cublasSsbmv(handle, uplo_cublas, n, k, alpha, a_mem, a_lda, x_mem, x_inc, beta, y_mem, y_inc); } #endif /*************************************** ************* CBLAS SECTION *********** ***************************************/ void wrapperCblasSbmv(CBLAS_ORDER major_type, CBLAS_UPLO uplo, int n, int k, float alpha, const float *a_mem, unsigned int a_lda, const float *x_mem, unsigned int x_inc, float beta, float *y_mem, unsigned int y_inc) { cblas_ssbmv(major_type, uplo, n, k, alpha, a_mem, a_lda, x_mem, x_inc, beta, y_mem, y_inc); } /*************************************** *********** TEMPLATE SECTION ********** ***************************************/ template void doSbmv(CBLAS_ORDER major_type, CBLAS_UPLO uplo, int n, int k, T alpha, GPUMirroredMemoryBlock *a, unsigned int a_lda, GPUMirroredMemoryBlock *x, unsigned int x_inc, T beta, GPUMirroredMemoryBlock *y, unsigned int y_inc, unsigned int a_shift, unsigned int x_shift, unsigned int y_shift, bool use_gpu) { const T *a_mem, *x_mem; T *y_mem; #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { cublasStatus_t status; cublasHandle_t handle = GPUHelper::getHandler(); assert(major_type == CblasColMajor); a_mem = a->getGPUForRead() + a_shift; x_mem = x->getGPUForRead() + x_shift; y_mem = y->getGPUForReadAndWrite() + y_shift; status = cublasSetStream(handle, GPUHelper::getCurrentStream()); checkCublasError(status); cublasFillMode_t uplo_cublas = CUBLAS_FILL_MODE_UPPER; if (uplo == CblasLower) uplo_cublas = CUBLAS_FILL_MODE_LOWER; status = wrapperCublasSbmv(handle, uplo_cublas, n, k, &alpha, a_mem, a_lda, x_mem, x_inc, &beta, y_mem, y_inc); checkCublasError(status); } else { #endif a_mem = a->getPPALForRead() + a_shift; x_mem = x->getPPALForRead() + x_shift; y_mem = y->getPPALForReadAndWrite() + y_shift; wrapperCblasSbmv(major_type, uplo, n, k, alpha, a_mem, a_lda, x_mem, x_inc, beta, y_mem, y_inc); #ifdef USE_CUDA } #endif } template void doSbmv(CBLAS_ORDER major_type, CBLAS_UPLO uplo, int n, int k, float alpha, GPUMirroredMemoryBlock *a, unsigned int a_lda, GPUMirroredMemoryBlock *x, unsigned int x_inc, float beta, GPUMirroredMemoryBlock *y, unsigned int y_inc, unsigned int a_shift, unsigned int x_shift, unsigned int y_shift, bool use_gpu); april-ann-0.3.1/packages/basics/mathcore/c_src/scal.cu000066400000000000000000000062001234204160600225600ustar00rootroot00000000000000/* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-MLP toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "wrapper.h" #include "cuda_utils.h" #include "unused_variable.h" #ifdef USE_CUDA /*************************************** ************** CUDA SECTION *********** ***************************************/ cublasStatus_t wrapperCublasScal(cublasHandle_t &handle, int N, float *alpha, float *x_mem, unsigned int x_inc) { return cublasSscal(handle, N, alpha, x_mem, x_inc); } cublasStatus_t wrapperCublasScal(cublasHandle_t &handle, int N, ComplexF *alpha, ComplexF *x_mem, unsigned int x_inc) { return cublasCscal(handle, N, reinterpret_cast(alpha), reinterpret_cast(x_mem), x_inc); } #endif /*************************************** ************* CBLAS SECTION *********** ***************************************/ void wrapperCblasScal(int N, float alpha, float *x_mem, unsigned int x_inc) { cblas_sscal(N, alpha, x_mem, x_inc); } void wrapperCblasScal(int N, ComplexF alpha, ComplexF *x_mem, unsigned int x_inc) { cblas_cscal(N, &alpha, x_mem, x_inc); } /*************************************** *********** TEMPLATE SECTION ********** ***************************************/ template void doScal(unsigned int size, GPUMirroredMemoryBlock *x, unsigned int inc, unsigned int shift, T alpha, bool use_gpu) { T *x_mem; #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { cublasStatus_t status; cublasHandle_t handle = GPUHelper::getHandler(); x_mem = x->getGPUForReadAndWrite() + shift; status = cublasSetStream(handle, GPUHelper::getCurrentStream()); checkCublasError(status); status = wrapperCublasScal(handle, size, &alpha, x_mem, inc); checkCublasError(status); } else { #endif x_mem = x->getPPALForReadAndWrite() + shift; wrapperCblasScal(size, alpha, x_mem, inc); #ifdef USE_CUDA } #endif } template void doScal(unsigned int size, GPUMirroredMemoryBlock *x, unsigned int inc, unsigned int shift, float alpha, bool use_gpu); template void doScal(unsigned int size, GPUMirroredMemoryBlock *x, unsigned int inc, unsigned int shift, ComplexF alpha, bool use_gpu); april-ann-0.3.1/packages/basics/mathcore/c_src/scalar_add.cu000066400000000000000000000047211234204160600237210ustar00rootroot00000000000000/* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-MLP toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "wrapper.h" #include "cuda_utils.h" #include "unused_variable.h" #ifdef USE_CUDA /*************************************** ************** CUDA SECTION *********** ***************************************/ template __global__ void scalarAddKernel(T *v, unsigned int N, unsigned int stride, T value) { unsigned int x_idx = blockIdx.x * blockDim.x + threadIdx.x; if (x_idx < N) { T *aux = v + x_idx*stride; *aux += value; } } #endif /*************************************** *********** TEMPLATE SECTION ********** ***************************************/ template void doScalarAdd(unsigned int N, GPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, T value, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { T *v_ptr = v->getGPUForReadAndWrite() + shift; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); scalarAddKernel<<>> (v_ptr, N, stride, value); } else { #endif T *v_mem = v->getPPALForReadAndWrite() + shift; for (unsigned int i=0; i(unsigned int N, GPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, float value, bool use_gpu); template void doScalarAdd(unsigned int N, GPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, ComplexF value, bool use_gpu); april-ann-0.3.1/packages/basics/mathcore/c_src/search_index_of.cu000066400000000000000000000104141234204160600247600ustar00rootroot00000000000000/* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-MLP toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "unused_variable.h" #include "wrapper.h" #include "binary_search.h" #include "cuda_utils.h" using namespace april_utils; /// searchs the index where the given coordinate (c1,c2) will is stored, or -1 /// in case it isn't there int doSearchCSCSparseIndexOf(const Int32GPUMirroredMemoryBlock *indices, const Int32GPUMirroredMemoryBlock *first_index, const int c1, const int c2, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { ERROR_PRINT("CUDA VERSION NOT IMPLEMENTED\n"); } // else { #endif const int *indices_ptr = indices->getPPALForRead(); const int *first_index_ptr = first_index->getPPALForRead(); if (c1 == 0) return first_index_ptr[c2]; else { return binary_search(indices_ptr + first_index_ptr[c2], first_index_ptr[c2+1] - first_index_ptr[c2], c1); } #ifdef USE_CUDA // } #endif } /// searchs the index where the given coordinate (c1,c2) will is stored, or -1 /// in case it isn't there int doSearchCSRSparseIndexOf(const Int32GPUMirroredMemoryBlock *indices, const Int32GPUMirroredMemoryBlock *first_index, const int c1, const int c2, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { ERROR_PRINT("CUDA VERSION NOT IMPLEMENTED\n"); } // else { #endif const int *indices_ptr = indices->getPPALForRead(); const int *first_index_ptr = first_index->getPPALForRead(); if (c2 == 0) return first_index_ptr[c1]; else { return binary_search(indices_ptr + first_index_ptr[c1], first_index_ptr[c1+1] - first_index_ptr[c1], c2); } #ifdef USE_CUDA // } #endif } ///////////////////////////////////////////////////////////////////// /// searchs the index where the given coordinate (c1,c2) will is stored, or -1 /// in case it isn't there int doSearchCSCSparseIndexOfFirst(const Int32GPUMirroredMemoryBlock *indices, const Int32GPUMirroredMemoryBlock *first_index, const int c1, const int c2, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { ERROR_PRINT("CUDA VERSION NOT IMPLEMENTED\n"); } // else { #endif const int *indices_ptr = indices->getPPALForRead(); const int *first_index_ptr = first_index->getPPALForRead(); if (c1 == 0) return first_index_ptr[c2]; else { const int *aux = binary_search_first(indices_ptr + first_index_ptr[c2], first_index_ptr[c2+1] - first_index_ptr[c2], c1); if (aux == 0) ERROR_EXIT(128, "Incorrect given coordinates\n"); return *aux; } #ifdef USE_CUDA // } #endif } /// searchs the index where the given coordinate (c1,c2) will is stored, or -1 /// in case it isn't there int doSearchCSRSparseIndexOfFirst(const Int32GPUMirroredMemoryBlock *indices, const Int32GPUMirroredMemoryBlock *first_index, const int c1, const int c2, bool use_gpu) { #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { ERROR_PRINT("CUDA VERSION NOT IMPLEMENTED\n"); } // else { #endif const int *indices_ptr = indices->getPPALForRead(); const int *first_index_ptr = first_index->getPPALForRead(); if (c2 == 0) return first_index_ptr[c1]; else { const int *aux = binary_search_first(indices_ptr + first_index_ptr[c1], first_index_ptr[c1+1] - first_index_ptr[c1], c2); if (aux == 0) ERROR_EXIT(128, "Incorrect given coordinates\n"); return *aux; } #ifdef USE_CUDA // } #endif } april-ann-0.3.1/packages/basics/mathcore/c_src/sum.cu000066400000000000000000000101071234204160600224430ustar00rootroot00000000000000/* * This file is part of the Neural Network modules of the APRIL toolkit (A * Pattern Recognizer In Lua). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-MLP toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "wrapper.h" #include "cuda_utils.h" #include "ceiling_power_of_two.h" #include "unused_variable.h" using april_utils::ceilingPowerOfTwo; #ifdef USE_CUDA /*************************************** ************** CUDA SECTION *********** ***************************************/ template __global__ void sumVectorFirstReduction(const T *v, T *sums, unsigned int reduction_top, unsigned int size, unsigned int stride) { unsigned int x_idx = blockIdx.x * blockDim.x + threadIdx.x; unsigned int active_reduction = reduction_top >> 1; if (x_idx < size && x_idx < active_reduction) { unsigned int x_pos = x_idx * stride; unsigned int passive_index = (x_idx + active_reduction) * stride; if (x_idx + active_reduction < size) sums[x_pos] = v[x_pos] + v[passive_index]; else sums[x_pos] = v[x_pos]; } } template __global__ void sumVectorNextReduction(T *sums, unsigned int reduction_top, unsigned int size, unsigned int stride) { unsigned int x_idx = blockIdx.x * blockDim.x + threadIdx.x; unsigned int active_reduction = reduction_top >> 1; if (x_idx < size && x_idx < active_reduction) { unsigned int index = x_idx*stride; unsigned int passive_index = (x_idx+active_reduction)*stride; sums[index] = sums[index] + sums[passive_index]; } } #endif /*************************************** *********** TEMPLATE SECTION ********** ***************************************/ template T doSum(unsigned int N, const GPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu, T zero) { T sum(zero); #ifndef USE_CUDA UNUSED_VARIABLE(use_gpu); #endif #ifdef USE_CUDA if (use_gpu) { GPUMirroredMemoryBlock sums(N); const T *v_ptr = v->getGPUForRead() + shift; T *sums_ptr = sums.getGPUForWrite(); unsigned int units_top = ceilingPowerOfTwo(N); unsigned int top_reduction = units_top; dim3 block, grid; computeBlockAndGridSizesForAnArray(N, block, grid); sumVectorFirstReduction<<>> (v_ptr, sums_ptr, top_reduction, N, stride); for (top_reduction >>= 1; top_reduction != 1; top_reduction >>= 1) { computeBlockAndGridSizesForAnArray(top_reduction, block, grid); sumVectorNextReduction<<>> (sums_ptr, top_reduction, N, stride); } // TODO: Improve the efficiency of this assignment, now it needs // to copy the whole sums array even when only the first one // component is needed sum = sums.getPPALForRead()[0]; } else { #endif const T *v_mem = v->getPPALForRead() + shift; for (unsigned int i=0; i(unsigned int N, const GPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu, float zero); template ComplexF doSum(unsigned int N, const GPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu, ComplexF zero); april-ann-0.3.1/packages/basics/mathcore/c_src/wrapper.h000066400000000000000000000446201234204160600231460ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef WRAPPER_H #define WRAPPER_H #include #include "lapack_headers.h" #include "cblas_headers.h" #include "error_print.h" #ifdef USE_CUDA #include #include #include #include "cublas_error.h" #include "cusparse_error.h" #endif #include "gpu_mirrored_memory_block.h" #include "gpu_helper.h" #include "complex_number.h" #define NEAR_ZERO 1e-6f #define DERIVATIVE_SATURATION 17.0f // ATTENTION: In 64-bit machines is better to use exp than expf #define sigmoid(numerator,value) (numerator) / (expf(-(value))+1.0f) // The value of -log1p(exp(x)) when X is negative and large, is approximately X #define logsigmoid(value) ( (value)<-10.0f) ? (value) : (-log1pf(expf(-(value)))) #define getMatrixFlatIndex(x,lda,y) ((x)+(y)*(lda)) #define getMatrixIndex(x,lda,y) ((x)*(lda)+(y)) // ACTIVATION FUNCTIONS void applyMask(FloatGPUMirroredMemoryBlock *units, FloatGPUMirroredMemoryBlock *mask, float mask_value, unsigned int size, unsigned int bunch_size, bool use_gpu); void doApplyLogisticActivation(FloatGPUMirroredMemoryBlock *input_units, FloatGPUMirroredMemoryBlock *output_units, unsigned int size, unsigned int bunch_size, bool use_gpu); void doMultiplyLogisticDerivatives(FloatGPUMirroredMemoryBlock *output_units, FloatGPUMirroredMemoryBlock *input_errors, FloatGPUMirroredMemoryBlock *output_errors, unsigned int size, unsigned int bunch_size, bool use_gpu); void doApplyLogLogisticActivation(FloatGPUMirroredMemoryBlock *input_units, FloatGPUMirroredMemoryBlock *output_units, unsigned int size, unsigned int bunch_size, bool use_gpu); void doMultiplyLogLogisticDerivatives(FloatGPUMirroredMemoryBlock *output_units, FloatGPUMirroredMemoryBlock *input_errors, FloatGPUMirroredMemoryBlock *output_errors, unsigned int size, unsigned int bunch_size, bool use_gpu); void doApplyTanhActivation(FloatGPUMirroredMemoryBlock *input_units, FloatGPUMirroredMemoryBlock *output_units, unsigned int size, unsigned int bunch_size, bool use_gpu); void doMultiplyTanhDerivatives(FloatGPUMirroredMemoryBlock *output_units, FloatGPUMirroredMemoryBlock *input_errors, FloatGPUMirroredMemoryBlock *output_errors, unsigned int size, unsigned int bunch_size, bool use_gpu); void doApplySoftsignActivation(FloatGPUMirroredMemoryBlock *input_units, FloatGPUMirroredMemoryBlock *output_units, unsigned int size, unsigned int bunch_size, bool use_gpu); void doMultiplySoftsignDerivatives(FloatGPUMirroredMemoryBlock *output_units, FloatGPUMirroredMemoryBlock *input_errors, FloatGPUMirroredMemoryBlock *output_errors, unsigned int size, unsigned int bunch_size, bool use_gpu); void doApplySoftplusActivation(FloatGPUMirroredMemoryBlock *input_units, FloatGPUMirroredMemoryBlock *output_units, unsigned int size, unsigned int bunch_size, bool use_gpu); void doMultiplySoftplusDerivatives(FloatGPUMirroredMemoryBlock *input_units, FloatGPUMirroredMemoryBlock *input_errors, FloatGPUMirroredMemoryBlock *output_errors, unsigned int size, unsigned int bunch_size, bool use_gpu); void doApplyReLUActivation(FloatGPUMirroredMemoryBlock *input_units, FloatGPUMirroredMemoryBlock *output_units, unsigned int size, unsigned int bunch_size, bool use_gpu); void doMultiplyReLUDerivatives(FloatGPUMirroredMemoryBlock *input_units, FloatGPUMirroredMemoryBlock *input_errors, FloatGPUMirroredMemoryBlock *output_errors, unsigned int size, unsigned int bunch_size, bool use_gpu); void doApplyHardtanhActivation(FloatGPUMirroredMemoryBlock *input_units, FloatGPUMirroredMemoryBlock *output_units, unsigned int size, unsigned int bunch_size, float inf, float sup, bool use_gpu); void doMultiplyHardtanhDerivatives(FloatGPUMirroredMemoryBlock *input_units, FloatGPUMirroredMemoryBlock *input_errors, FloatGPUMirroredMemoryBlock *output_errors, unsigned int size, unsigned int bunch_size, float inf, float sup, bool use_gpu); void doApplySinActivation(FloatGPUMirroredMemoryBlock *input_units, FloatGPUMirroredMemoryBlock *output_units, unsigned int size, unsigned int bunch_size, bool use_gpu); void doMultiplySinDerivatives(FloatGPUMirroredMemoryBlock *input_units, FloatGPUMirroredMemoryBlock *input_errors, FloatGPUMirroredMemoryBlock *output_errors, unsigned int size, unsigned int bunch_size, bool use_gpu); void doApplySoftmaxActivation(FloatGPUMirroredMemoryBlock *input_units, FloatGPUMirroredMemoryBlock *output_units, FloatGPUMirroredMemoryBlock *minimums, FloatGPUMirroredMemoryBlock *maximums, FloatGPUMirroredMemoryBlock *sums, unsigned int size, unsigned int bunch_size, bool use_gpu); void doMultiplySoftmaxDerivatives(FloatGPUMirroredMemoryBlock *output_units, FloatGPUMirroredMemoryBlock *input_errors, FloatGPUMirroredMemoryBlock *output_errors, unsigned int size, unsigned int bunch_size, bool use_gpu); void doApplyLogSoftmaxActivation(FloatGPUMirroredMemoryBlock *input_units, FloatGPUMirroredMemoryBlock *output_units, FloatGPUMirroredMemoryBlock *minimums, FloatGPUMirroredMemoryBlock *maximums, FloatGPUMirroredMemoryBlock *sums, unsigned int size, unsigned int bunch_size, bool use_gpu); // LOSS FUNCTIONS void doMSELossFunction(FloatGPUMirroredMemoryBlock *input, FloatGPUMirroredMemoryBlock *target, FloatGPUMirroredMemoryBlock *loss_output, float zero_epsilon_distance, unsigned int size, unsigned int bunch_size, bool use_gpu); void doComputeMSEGradient(FloatGPUMirroredMemoryBlock *input, FloatGPUMirroredMemoryBlock *target, FloatGPUMirroredMemoryBlock *error_output, float zero_epsilon_distance, unsigned int size, unsigned int bunch_size, bool use_gpu); void doMAELossFunction(FloatGPUMirroredMemoryBlock *input, FloatGPUMirroredMemoryBlock *target, FloatGPUMirroredMemoryBlock *loss_output, float zero_epsilon_distance, unsigned int size, unsigned int bunch_size, bool use_gpu); void doComputeMAEGradient(FloatGPUMirroredMemoryBlock *input, FloatGPUMirroredMemoryBlock *target, FloatGPUMirroredMemoryBlock *error_output, float zero_epsilon_distance, unsigned int size, unsigned int bunch_size, bool use_gpu); void doCrossEntropyLossFunction(FloatGPUMirroredMemoryBlock *input, FloatGPUMirroredMemoryBlock *target, FloatGPUMirroredMemoryBlock *loss_output, float epsilon, unsigned int size, unsigned int bunch_size, bool use_gpu); void doMultiClassCrossEntropyLossFunction(FloatGPUMirroredMemoryBlock *input, FloatGPUMirroredMemoryBlock *target, FloatGPUMirroredMemoryBlock *loss_output, float epsilon, unsigned int size, unsigned int bunch_size, bool use_gpu); void doComputeCrossEntropyGradient(FloatGPUMirroredMemoryBlock *input, FloatGPUMirroredMemoryBlock *target, FloatGPUMirroredMemoryBlock *error_output, float epsilon, unsigned int size, unsigned int bunch_size, bool use_gpu); /* void doCalculateTanhErrorFunction(FloatGPUMirroredMemoryBlock *output, FloatGPUMirroredMemoryBlock *target_output, FloatGPUMirroredMemoryBlock *output_error, FloatGPUMirroredMemoryBlock *pattern_errors, unsigned int output_size, const ANNConfiguration &conf, bool use_gpu); */ // BLAS FUNCTIONS template void doGemv(CBLAS_ORDER major_type, CBLAS_TRANSPOSE a_transpose, int m, int n, T alpha, const GPUMirroredMemoryBlock *a, unsigned int a_inc, const GPUMirroredMemoryBlock *x, unsigned int x_inc, T beta, GPUMirroredMemoryBlock *y, unsigned int y_inc, unsigned int a_shift, unsigned int x_shift, unsigned int y_shift, bool use_gpu); template void doSparseGemv(CBLAS_ORDER major_type, SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, int m, int n, T alpha, const GPUMirroredMemoryBlock *a_values, const Int32GPUMirroredMemoryBlock *a_indices, const Int32GPUMirroredMemoryBlock *a_first_index, const GPUMirroredMemoryBlock *x, unsigned int x_inc, T beta, GPUMirroredMemoryBlock *y, unsigned int y_inc, unsigned int x_shift, unsigned int y_shift, bool use_gpu); template void doCopy(int N, const GPUMirroredMemoryBlock* x, unsigned int x_shift, unsigned int x_inc, GPUMirroredMemoryBlock* y, unsigned int y_shift, unsigned int y_inc, bool use_gpu); template void doCopyLoop(int N, GPUMirroredMemoryBlock* x, unsigned int x_inc, GPUMirroredMemoryBlock* y, unsigned int y_inc, unsigned int times, const unsigned int stride, bool use_gpu); template void doAxpy(int N, T alpha, const GPUMirroredMemoryBlock* x, unsigned int x_shift, unsigned int x_inc, GPUMirroredMemoryBlock* y, unsigned int y_shift, unsigned int y_inc, bool use_gpu); template void doAxpyLoop(int N, T alpha, GPUMirroredMemoryBlock* x, unsigned int x_inc, unsigned int x_shift, GPUMirroredMemoryBlock* y, unsigned int y_inc, unsigned int y_shift, unsigned int times, const unsigned int stride_x, const unsigned int stride_y, bool use_gpu); template void doSparseAxpy(int NNZ, T alpha, const GPUMirroredMemoryBlock *x_values, const Int32GPUMirroredMemoryBlock *x_indices, GPUMirroredMemoryBlock* y, unsigned int y_shift, unsigned int y_inc, bool use_gpu); template void doGemm(CBLAS_ORDER major_type, CBLAS_TRANSPOSE a_transpose, CBLAS_TRANSPOSE b_transpose, int m, int n, int k, T alpha, const GPUMirroredMemoryBlock* a, unsigned int a_inc, const GPUMirroredMemoryBlock* b, unsigned int b_inc, T beta, GPUMirroredMemoryBlock* c, unsigned int c_inc, unsigned int a_shift, unsigned int b_shift, unsigned int c_shift, bool use_gpu); template void doSparseMM(CBLAS_ORDER major_order, SPARSE_FORMAT sparse_format, CBLAS_TRANSPOSE a_transpose, CBLAS_TRANSPOSE b_transpose, CBLAS_TRANSPOSE c_transpose, int m, int n, int k, T alpha, const GPUMirroredMemoryBlock* a_values, const Int32GPUMirroredMemoryBlock* a_indices, const Int32GPUMirroredMemoryBlock* a_first_index, const GPUMirroredMemoryBlock* b, int b_inc, T beta, GPUMirroredMemoryBlock* c, int c_inc, int b_shift, int c_shift, bool use_gpu); template void doScal(unsigned int size, GPUMirroredMemoryBlock *x, unsigned int inc, unsigned int shift, T alpha, bool use_gpu); template void doDiv(unsigned int N, GPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, T value, bool use_gpu); template void doGer(CBLAS_ORDER major_type, unsigned int m, unsigned int n, T alpha, GPUMirroredMemoryBlock *x, unsigned int x_shift, unsigned int x_inc, GPUMirroredMemoryBlock *y, unsigned int y_shift, unsigned int y_inc, GPUMirroredMemoryBlock *a, unsigned int a_shift, unsigned int a_inc, bool use_gpu); template T doDot(unsigned int size, const GPUMirroredMemoryBlock *x, unsigned int x_shift, unsigned int x_inc, const GPUMirroredMemoryBlock *y, unsigned int y_shift, unsigned int y_inc, bool use_gpu); template T doSparseDot(int NNZ, const GPUMirroredMemoryBlock *x_values, const Int32GPUMirroredMemoryBlock *x_indices, const GPUMirroredMemoryBlock *y, int y_shift, int y_inc, bool use_gpu); template float doNrm2(unsigned int n, const GPUMirroredMemoryBlock *x, unsigned int inc, unsigned int shift, bool use_gpu); template void doSbmv(CBLAS_ORDER major_type, CBLAS_UPLO uplo, int n, int k, T alpha, GPUMirroredMemoryBlock *a, unsigned int a_lda, GPUMirroredMemoryBlock *x, unsigned int x_inc, T beta, GPUMirroredMemoryBlock *y, unsigned int y_inc, unsigned int a_shift, unsigned int x_shift, unsigned int y_shift, bool use_gpu); template void doClamp(unsigned int N, GPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, T lower, T upper, bool use_gpu); template void doFill(unsigned int N, GPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, T value, bool use_gpu); template T doSum(unsigned int N, const GPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu, T zero); template void doScalarAdd(unsigned int N, GPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, T value, bool use_gpu); template bool doEquals(unsigned int N, const GPUMirroredMemoryBlock *v1, const GPUMirroredMemoryBlock *v2, unsigned int stride1, unsigned int stride2, unsigned int shift1, unsigned int shift2, float epsilon, bool use_gpu); template void doCmul(int N, const GPUMirroredMemoryBlock* x, unsigned int x_shift, unsigned int x_inc, GPUMirroredMemoryBlock* y, unsigned int y_shift, unsigned int y_inc, bool use_gpu); void doPLogP(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu); void doLog(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu); void doLog1p(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu); void doExp(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu); void doSqrt(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu); void doTan(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu); void doTanh(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu); void doAtan(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu); void doAtanh(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu); void doAbs(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu); void doComplement(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu); void doSign(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu); void doSin(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu); void doSinh(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu); void doAsin(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu); void doAsinh(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu); void doCos(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu); void doCosh(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu); void doAcos(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu); void doAcosh(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, bool use_gpu); void doPow(unsigned int N, FloatGPUMirroredMemoryBlock *v, unsigned int stride, unsigned int shift, float value, bool use_gpu); ////////////////////////////////////////////////////////////////////// int doSearchCSCSparseIndexOf(const Int32GPUMirroredMemoryBlock *indices, const Int32GPUMirroredMemoryBlock *first_index, const int c1, const int c2, bool use_gpu); int doSearchCSRSparseIndexOf(const Int32GPUMirroredMemoryBlock *indices, const Int32GPUMirroredMemoryBlock *first_index, const int c1, const int c2, bool use_gpu); int doSearchCSCSparseIndexOfFirst(const Int32GPUMirroredMemoryBlock *indices, const Int32GPUMirroredMemoryBlock *first_index, const int c1, const int c2, bool use_gpu); int doSearchCSRSparseIndexOfFirst(const Int32GPUMirroredMemoryBlock *indices, const Int32GPUMirroredMemoryBlock *first_index, const int c1, const int c2, bool use_gpu); #endif // WRAPPER_H april-ann-0.3.1/packages/basics/mathcore/package.lua000066400000000000000000000020551234204160600223160ustar00rootroot00000000000000package{ name = "mathcore", version = "1.0", depends = { "util", "complex" }, keywords = { }, description = "Math library", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_mathcore.lua.cc" , dest_dir = "include" }, }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", dest_dir = "build", }, object{ file = "c_src/*.cu", dest_dir = "build", }, -- luac{ -- orig_dir = "lua_src", -- dest_dir = "build", -- }, build_bind{ file = "binding/bind_mathcore.lua.cc", dest_dir = "build" }, }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/basics/matrix/000077500000000000000000000000001234204160600177205ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/matrix/binding/000077500000000000000000000000001234204160600213325ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/matrix/binding/bind_matrix.lua.cc000066400000000000000000001556671234204160600247450ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador Espaa-Boquera * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C #include "utilMatrixIO.h" #include "utilMatrixFloat.h" #include "bind_mtrand.h" #include // para isfinite #include "luabindutil.h" #include "luabindmacros.h" #include "bind_matrix_int32.h" #include "bind_sparse_matrix.h" #include "bind_gzio.h" #define FUNCTION_NAME "read_vector" static int *read_vector(lua_State *L, const char *key, int num_dim, int add) { int *v=0; lua_getfield(L, 1, key); if (!lua_isnil(L, -1)) { LUABIND_CHECK_PARAMETER(-1, table); int table_len; LUABIND_TABLE_GETN(-1, table_len); if (table_len != num_dim) LUABIND_FERROR3("Table '%s' with incorrect size, expected %d, found %d", key, num_dim, table_len); v = new int[num_dim]; for(int i=0; i < num_dim; i++) { lua_rawgeti(L, -1, i+1); v[i] = static_cast(lua_tonumber(L, -1)) + add; lua_pop(L,1); } } lua_pop(L, 1); return v; } #undef FUNCTION_NAME int sliding_window_iterator_function(lua_State *L) { SlidingWindow *obj = lua_toSlidingWindow(L,1); if (obj->isEnd()) { lua_pushnil(L); return 1; } // lua_pushSlidingWindow(L, obj); MatrixFloat *mat = obj->getMatrix(); lua_pushMatrixFloat(L, mat); obj->next(); return 1; } int matrixfloatset_iterator_function(lua_State *L) { MatrixFloatSetIteratorWrapper *obj = lua_toMatrixFloatSetIteratorWrapper(L,1); if (obj->it == obj->m->end()) { lua_pushnil(L); return 1; } lua_pushstring(L, obj->it->first.c_str()); lua_pushMatrixFloat(L, obj->it->second); ++obj->it; return 2; } //BIND_END //BIND_HEADER_H #include "matrixFloat.h" #include "matrixFloatSet.h" #include "utilLua.h" #include // para isfinite typedef MatrixFloat::sliding_window SlidingWindow; class MatrixFloatSetIteratorWrapper : public Referenced { public: MatrixFloatSet *m; MatrixFloatSet::iterator it; MatrixFloatSetIteratorWrapper(MatrixFloatSet *m) : Referenced(), m(m), it(m->begin()) { IncRef(m); } virtual ~MatrixFloatSetIteratorWrapper() { DecRef(m); } }; //BIND_END //BIND_LUACLASSNAME MatrixFloat matrix //BIND_CPP_CLASS MatrixFloat //BIND_LUACLASSNAME SlidingWindow matrix.__sliding_window__ //BIND_CPP_CLASS SlidingWindow //BIND_CONSTRUCTOR SlidingWindow { LUABIND_ERROR("Use matrix.sliding_window"); } //BIND_END //BIND_METHOD SlidingWindow get_matrix { MatrixFloat *dest; LUABIND_GET_OPTIONAL_PARAMETER(1, MatrixFloat, dest, 0); LUABIND_RETURN(MatrixFloat, obj->getMatrix(dest)); } //BIND_END //BIND_METHOD SlidingWindow next { LUABIND_RETURN(SlidingWindow, obj->next()); } //BIND_END //BIND_METHOD SlidingWindow set_at_window { int windex; LUABIND_CHECK_ARGN(==,1); LUABIND_GET_PARAMETER(1, int, windex); if (windex < 1) LUABIND_ERROR("Index must be >= 1\n"); obj->setAtWindow(windex-1); LUABIND_RETURN(SlidingWindow, obj); } //BIND_END //BIND_METHOD SlidingWindow num_windows { LUABIND_RETURN(int, obj->numWindows()); } //BIND_END //BIND_METHOD SlidingWindow coords { LUABIND_VECTOR_TO_NEW_TABLE(int, obj->getCoords(), obj->getNumDim()); LUABIND_RETURN_FROM_STACK(-1); } //BIND_END //BIND_METHOD SlidingWindow is_end { LUABIND_RETURN(bool, obj->isEnd()); } //BIND_END //BIND_METHOD SlidingWindow iterate { LUABIND_CHECK_ARGN(==, 0); LUABIND_RETURN(cfunction,sliding_window_iterator_function); LUABIND_RETURN(SlidingWindow,obj); } //BIND_END ////////////////////////////////////////////////////////////////////// //BIND_CONSTRUCTOR MatrixFloat //DOC_BEGIN // matrix(int dim1, int dim2, ..., table mat=nil) /// Constructor con una secuencia de valores que son las dimensiones de /// la matriz el ultimo argumento puede ser una tabla, en cuyo caso /// contiene los valores adecuadamente serializados, si solamente /// aparece la matriz, se trata de un vector cuya longitud viene dada /// implicitamente. //DOC_END { int i,argn; argn = lua_gettop(L); // number of arguments LUABIND_CHECK_ARGN(>=, 1); int ndims = (!lua_isnumber(L,argn)) ? argn-1 : argn; int *dim; if (ndims == 0) { // caso matrix{valores} ndims = 1; dim = new int[ndims]; LUABIND_TABLE_GETN(1, dim[0]); } else { dim = new int[ndims]; for (i=1; i <= ndims; i++) { if (!lua_isnumber(L,i)) // TODO: Este mensaje de error parece que no es correcto... y no se todavia por que!!! LUABIND_FERROR2("incorrect argument to matrix dimension (arg %d must" " be a number and is a %s)", i, lua_typename(L,i)); dim[i-1] = (int)lua_tonumber(L,i); if (dim[i-1] <= 0) LUABIND_FERROR1("incorrect argument to matrix dimension (arg %d must be >0)",i); } } MatrixFloat* obj; obj = new MatrixFloat(ndims,dim); if (lua_istable(L,argn)) { int i=1; int len; LUABIND_TABLE_GETN(argn, len); if (len != obj->size()) LUABIND_FERROR2("Incorrect number of elements at the given table, " "found %d, expected %d", len, obj->size()); for (MatrixFloat::iterator it(obj->begin()); it != obj->end(); ++it, ++i) { lua_rawgeti(L,argn,i); if (!lua_isnumber(L, -1)) LUABIND_FERROR1("The given table has a no number value at position %d, " "the table could be smaller than matrix size", i); *it = (float)luaL_checknumber(L, -1); lua_remove(L,-1); } } delete[] dim; LUABIND_RETURN(MatrixFloat,obj); } //BIND_END //BIND_CLASS_METHOD MatrixFloat col_major //DOC_BEGIN // col_major_matrix(int dim1, int dim2, ..., table mat=nil) /// Constructor con una secuencia de valores que son las dimensiones de /// la matriz el ultimo argumento puede ser una tabla, en cuyo caso /// contiene los valores adecuadamente serializados, si solamente /// aparece la matriz, se trata de un vector cuya longitud viene dada /// implicitamente. //DOC_END { int i,argn; argn = lua_gettop(L); // number of arguments LUABIND_CHECK_ARGN(>=, 1); int ndims = (!lua_isnumber(L,argn)) ? argn-1 : argn; int *dim; if (ndims == 0) { // caso matrix{valores} ndims = 1; dim = new int[ndims]; LUABIND_TABLE_GETN(1, dim[0]); } else { dim = new int[ndims]; for (i=1; i <= ndims; i++) { if (!lua_isnumber(L,i)) // TODO: Este mensaje de error parece que no es correcto... y no se todavia por que!!! LUABIND_FERROR2("incorrect argument to matrix dimension (arg %d must" " be a number and is a %s)", i, lua_typename(L,i)); dim[i-1] = (int)lua_tonumber(L,i); if (dim[i-1] <= 0) LUABIND_FERROR1("incorrect argument to matrix dimension (arg %d must be >0)",i); } } MatrixFloat* obj; obj = new MatrixFloat(ndims,dim,CblasColMajor); if (lua_istable(L,argn)) { int i=1; int len; LUABIND_TABLE_GETN(argn, len); if (len != obj->size()) LUABIND_FERROR2("Incorrect number of elements at the given table, " "found %d, expected %d", len, obj->size()); for (MatrixFloat::iterator it(obj->begin()); it != obj->end(); ++it, ++i) { lua_rawgeti(L,argn,i); if (!lua_isnumber(L, -1)) LUABIND_FERROR1("The given table has a no number value at position %d, " "the table could be smaller than matrix size", i); *it = (float)luaL_checknumber(L, -1); lua_remove(L,-1); } } delete[] dim; LUABIND_RETURN(MatrixFloat,obj); } //BIND_END //BIND_METHOD MatrixFloat size { LUABIND_RETURN(int, obj->size()); } //BIND_END //BIND_METHOD MatrixFloat rewrap { LUABIND_CHECK_ARGN(>=, 1); int ndims; ndims = lua_gettop(L); // number of dimensions int *dims = new int[ndims]; for (int i=1; i <= ndims; i++) { LUABIND_GET_PARAMETER(i, int, dims[i-1]); if (dims[i-1] <= 0) LUABIND_FERROR1("incorrect argument to matrix dimension (arg %d must be >0)",i); } MatrixFloat *new_obj = obj->rewrap(dims, ndims); delete[] dims; LUABIND_RETURN(MatrixFloat,new_obj); } //BIND_END //BIND_METHOD MatrixFloat get_reference_string { char buff[128]; sprintf(buff,"%p data= %p", (void*)obj, (void*)obj->getRawDataAccess()); LUABIND_RETURN(string, buff); } //BIND_END //BIND_CLASS_METHOD MatrixFloat fromFilename //DOC_BEGIN // matrix *fromFilename(string filename) /// Constructor con un argumento que es un fichero que contiene la matriz. Pueden haber /// comentarios que son lineas que empiezan con un simbolo '#'. La /// primera linea contiene tantos valores numericos como dimensiones /// tenga la matriz y que corresponde al numero de componentes en cada /// dimension. La siguiente linea contiene la palabra "ascii" o /// "binary". El resto de lineas contienen los datos propiamente /// dichos. ///@param filename Es un string que indica el nombre del fichero. //DOC_END { LUABIND_CHECK_ARGN(>=, 1); LUABIND_CHECK_ARGN(<=, 2); LUABIND_CHECK_PARAMETER(1, string); const char *filename; const char *order; LUABIND_GET_PARAMETER(1,string,filename); LUABIND_GET_OPTIONAL_PARAMETER(2, string, order, 0); MatrixFloat *obj; if ((obj = readMatrixFloatFromFile(filename, order)) == 0) LUABIND_FERROR1("Error happens reading from %s", filename); else LUABIND_RETURN(MatrixFloat,obj); } //BIND_END //BIND_CLASS_METHOD MatrixFloat fromTabFilename { LUABIND_CHECK_ARGN(>=, 1); LUABIND_CHECK_ARGN(<=, 2); LUABIND_CHECK_PARAMETER(1, string); const char *filename; const char *order; LUABIND_GET_PARAMETER(1,string,filename); LUABIND_GET_OPTIONAL_PARAMETER(2, string, order, "row_major"); MatrixFloat *obj; if ((obj = readMatrixFloatFromTabFile(filename, order)) == 0) LUABIND_FERROR1("Error happens reading from %s", filename); else LUABIND_RETURN(MatrixFloat,obj); } //BIND_END //BIND_CLASS_METHOD MatrixFloat fromString //DOC_BEGIN // matrix *fromString(string description) /// Constructor con un argumento que es una cadena. Pueden haber /// comentarios que son lineas que empiezan con un simbolo '#'. La /// primera linea contiene tantos valores numericos como dimensiones /// tenga la matriz y que corresponde al numero de componentes en cada /// dimension. La siguiente linea contiene la palabra "ascii" o /// "binary". El resto de lineas contienen los datos propiamente /// dichos. ///@param description Es un string que describe a la matriz. //DOC_END { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, string); constString cs; LUABIND_GET_PARAMETER(1,constString,cs); MatrixFloat *obj; if ((obj = readMatrixFloatFromString(cs)) == 0) LUABIND_ERROR("bad format"); else LUABIND_RETURN(MatrixFloat,obj); } //BIND_END //BIND_CLASS_METHOD MatrixFloat fromMMap //DOC_END { LUABIND_CHECK_ARGN(>=, 1); LUABIND_CHECK_ARGN(<=, 3); LUABIND_CHECK_PARAMETER(1, string); const char *filename; bool write, shared; LUABIND_GET_PARAMETER(1,string,filename); LUABIND_GET_OPTIONAL_PARAMETER(2,bool,write,true); LUABIND_GET_OPTIONAL_PARAMETER(3,bool,shared,true); april_utils::MMappedDataReader *mmapped_data; mmapped_data = new april_utils::MMappedDataReader(filename,write,shared); IncRef(mmapped_data); MatrixFloat *obj = MatrixFloat::fromMMappedDataReader(mmapped_data); DecRef(mmapped_data); LUABIND_RETURN(MatrixFloat,obj); } //BIND_END //BIND_METHOD MatrixFloat toFilename //DOC_BEGIN // void toFilename(string filename, string type='binary') /// Permite salvar una matriz con un formato tal y como se carga con el /// metodo fromString. El unico argumento opcional indica el tipo 'ascii' /// o 'binary'. ///@param filename Indica el nombre del fichero. ///@param type Parametro opcional. Puede ser 'ascii' o 'binary', y por defecto es 'binary'. //DOC_END { LUABIND_CHECK_ARGN(>=, 1); LUABIND_CHECK_ARGN(<=, 2); const char *filename; constString cs; LUABIND_GET_PARAMETER(1, string, filename); LUABIND_GET_OPTIONAL_PARAMETER(2,constString,cs,constString("binary")); bool is_ascii = (cs == "ascii"); writeMatrixFloatToFile(obj, filename, is_ascii); } //BIND_END //BIND_METHOD MatrixFloat toTabFilename { LUABIND_CHECK_ARGN(==, 1); const char *filename; LUABIND_GET_PARAMETER(1, string, filename); writeMatrixFloatToTabFile(obj, filename); } //BIND_END //BIND_METHOD MatrixFloat toTabStream { LUABIND_CHECK_ARGN(==, 1); if (lua_isBufferedGZFile(L,1)) { BufferedGZFile *stream; LUABIND_GET_PARAMETER(1, BufferedGZFile, stream); writeMatrixFloatToTabGZStream(obj, stream); } else { luaL_Stream *p = ((luaL_Stream *)luaL_checkudata(L, 1, LUA_FILEHANDLE)); if (p == 0) LUABIND_ERROR("First argument must be a file"); FILE *stream = p->f; writeMatrixFloatToTabStream(obj, stream); } } //BIND_END //BIND_METHOD MatrixFloat toString //DOC_BEGIN // string toString(string type='binary') /// Permite salvar una matriz con un formato tal y como se carga con el /// metodo fromString. El unico argumento opcional indica el tipo 'ascii' /// o 'binary'. ///@param type Parámetro opcional. Puede ser 'ascii' o 'binary', y por defecto es 'binary'. //DOC_END { LUABIND_CHECK_ARGN(<=, 1); constString cs; LUABIND_GET_OPTIONAL_PARAMETER(1,constString,cs,constString("binary")); bool is_ascii = (cs == "ascii"); writeMatrixFloatToLuaString(obj, L, is_ascii); LUABIND_INCREASE_NUM_RETURNS(1); } //BIND_END //BIND_METHOD MatrixFloat toMMap { LUABIND_CHECK_ARGN(==, 1); const char *filename; LUABIND_GET_PARAMETER(1, string, filename); april_utils::MMappedDataWriter *mmapped_data; mmapped_data = new april_utils::MMappedDataWriter(filename); IncRef(mmapped_data); obj->toMMappedDataWriter(mmapped_data); DecRef(mmapped_data); } //BIND_END //BIND_CLASS_METHOD MatrixFloat fromPNM //DOC_BEGIN // matrix *fromPNM(string pnm_image) /// constructor con un argumento que es una cadena con una imagen en /// formato de netpbm P5 o P6 (binario PGM o PNM) ///@param pnm_image String que contiene la imagen. //DOC_END // TODO: poder forzar niveles de gris o color, poder leer PBM { LUABIND_CHECK_ARGN(>=, 1); LUABIND_CHECK_ARGN(<=, 2); LUABIND_CHECK_PARAMETER(1, string); bool forcecolor=false,forcegray=false; constString cs,csopt; LUABIND_GET_PARAMETER(1,constString,cs); LUABIND_GET_OPTIONAL_PARAMETER(2,constString,csopt,constString()); if (csopt == "color") forcecolor = true; if (csopt == "gray") forcegray = true; MatrixFloat *obj; if ((obj = readMatrixFloatPNM(cs,forcecolor,forcegray))== 0) LUABIND_ERROR("bad format"); else LUABIND_RETURN(MatrixFloat,obj); } //BIND_END //BIND_CLASS_METHOD MatrixFloat fromHEX //DOC_BEGIN // matrix *fromHEX(width, height, string hex_image) /// constructor con 3 argumentos que es una cadena con una imagen en /// escala de grises, 2 caracteres hexadecimales por pixel ///@param width ///@param height ///@param hex_image //DOC_END { LUABIND_CHECK_ARGN(==, 3); LUABIND_CHECK_PARAMETER(1, int); LUABIND_CHECK_PARAMETER(1, int); LUABIND_CHECK_PARAMETER(1, string); int width,height; constString cs; LUABIND_GET_PARAMETER(1,int,width); LUABIND_GET_PARAMETER(2,int,height); LUABIND_GET_PARAMETER(3,constString,cs); MatrixFloat *obj; obj = readMatrixFloatHEX(width,height,cs); LUABIND_RETURN(MatrixFloat,obj); } //BIND_END //BIND_METHOD MatrixFloat toHEX //DOC_BEGIN // string toHEX() //DOC_END { char *buffer; int width, height; int longitud = saveMatrixFloatHEX(obj,&buffer, &width, &height); if (!buffer) LUABIND_ERROR("bad format"); LUABIND_RETURN(int, width); LUABIND_RETURN(int, height); lua_pushlstring(L,buffer,longitud); delete[] buffer; LUABIND_RETURN_FROM_STACK(-1); } //BIND_END //BIND_METHOD MatrixFloat toPNM //DOC_BEGIN // string toPNM() /// Devuelve una cadena correspondiente a un fichero PNM (P5 o P6). La /// matriz debe ser de dimension 2 o, si es de dimension 3, la tercera /// dimension debe tener 3 componentes correspondientes respectivamente /// a los colores RGB. El 0 se interpreta como negro, el 1 como blanco /// y saturan (es decir, un -1 es como 0 y un 5 es como 1). //DOC_END { LUABIND_CHECK_ARGN(==, 0); char *buffer; int longitud = saveMatrixFloatPNM(obj,&buffer); if (!buffer) LUABIND_ERROR("bad format"); lua_pushlstring(L,buffer,longitud); delete[] buffer; LUABIND_RETURN_FROM_STACK(-1); } //BIND_END //BIND_METHOD MatrixFloat copy_from_table //DOC_BEGIN // void copy_from_table(table matrix_values) /// Permite dar valores a una matriz. Require una tabla con un numero /// de argumentos igual al numero de elementos de la matriz. ///@param matrix_values Tabla con los elementos de la matriz. //DOC_END { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); int veclen; LUABIND_TABLE_GETN(1, veclen); if (veclen != obj->size()) LUABIND_FERROR2("wrong size %d instead of %d",veclen,obj->size()); int i=1; for (MatrixFloat::iterator it(obj->begin()); it != obj->end(); ++it, ++i) { lua_rawgeti(L,1,i); if (!lua_isnumber(L, -1)) LUABIND_FERROR1("The given table has a no number value at position %d, " "the table could be smaller than matrix size", i); *it = (float)luaL_checknumber(L, -1); lua_remove(L,-1); } LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat get //DOC_BEGIN // float get(coordinates) /// Permite ver valores de una matriz. Requiere tantos indices como dimensiones tenga la matriz. ///@param coordinates Tabla con la posicin exacta del punto de la matriz que queremos obtener. //DOC_END { int argn = lua_gettop(L); // number of arguments if (argn != obj->getNumDim()) LUABIND_FERROR2("wrong size %d instead of %d",argn,obj->getNumDim()); float ret; if (obj->getNumDim() == 1) { int v1; LUABIND_GET_PARAMETER(1,int,v1); if (v1<1 || v1 > obj->getDimSize(0)) { LUABIND_FERROR2("wrong index parameter 1, %d is not <= %d", v1, obj->getDimSize(0)); } ret = (*obj)(v1-1); } else if (obj->getNumDim() == 2) { int v1, v2; LUABIND_GET_PARAMETER(1,int,v1); LUABIND_GET_PARAMETER(2,int,v2); if (v1<1 || v1 > obj->getDimSize(0)) { LUABIND_FERROR2("wrong index parameter 1, %d is not <= %d or is not >= 1", v1, obj->getDimSize(0)); } if (v2<1 || v2 > obj->getDimSize(1)) { LUABIND_FERROR2("wrong index parameter 2, %d is not <= %d or is not >= 1", v2, obj->getDimSize(1)); } ret = (*obj)(v1-1, v2-1); } else { int *coords = new int[obj->getNumDim()]; for (int i=0; igetNumDim(); ++i) { LUABIND_GET_PARAMETER(i+1,int,coords[i]); if (coords[i]<1 || coords[i] > obj->getDimSize(i)) { LUABIND_FERROR2("wrong index parameter %d, %d is not <= %d or is not >= 1", coords[i], obj->getDimSize(i)); } coords[i]--; } ret = (*obj)(coords, obj->getNumDim()); delete[] coords; } LUABIND_RETURN(float, ret); } //BIND_END //BIND_METHOD MatrixFloat set //DOC_BEGIN // float set(coordinates,value) /// Permite cambiar el valor de un elemento en la matriz. Requiere /// tantos indices como dimensiones tenga la matriz y adicionalmente /// el valor a cambiar ///@param coordinates Tabla con la posicin exacta del punto de la matriz que queremos obtener. //DOC_END { int argn = lua_gettop(L); // number of arguments if (argn != obj->getNumDim()+1) LUABIND_FERROR2("wrong size %d instead of %d",argn,obj->getNumDim()+1); float f; if (obj->getNumDim() == 1) { int v1; LUABIND_GET_PARAMETER(1,int,v1); if (v1<1 || v1 > obj->getDimSize(0)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", v1, obj->getDimSize(0)); } LUABIND_GET_PARAMETER(obj->getNumDim()+1,float,f); (*obj)(v1-1) = f; } else if (obj->getNumDim() == 2) { int v1, v2; LUABIND_GET_PARAMETER(1,int,v1); LUABIND_GET_PARAMETER(2,int,v2); if (v1<1 || v1 > obj->getDimSize(0)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", v1, obj->getDimSize(0)); } if (v2<1 || v2 > obj->getDimSize(1)) { LUABIND_FERROR2("wrong index parameter: 2 <= %d <= %d is incorrect", v2, obj->getDimSize(1)); } LUABIND_GET_PARAMETER(obj->getNumDim()+1,float,f); (*obj)(v1-1, v2-1) = f; } else { int *coords = new int[obj->getNumDim()]; for (int i=0; igetNumDim(); ++i) { LUABIND_GET_PARAMETER(i+1,int,coords[i]); if (coords[i]<1 || coords[i] > obj->getDimSize(i)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", coords[i], obj->getDimSize(i)); } coords[i]--; } LUABIND_GET_PARAMETER(obj->getNumDim()+1,float,f); (*obj)(coords, obj->getNumDim()) = f; delete[] coords; } LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat offset { LUABIND_RETURN(int, obj->getOffset()); } //BIND_END //BIND_METHOD MatrixFloat raw_get { int raw_pos; LUABIND_GET_PARAMETER(1, int, raw_pos); LUABIND_RETURN(float, (*obj)[raw_pos]); } //BIND_END //BIND_METHOD MatrixFloat raw_set { int raw_pos; float value; LUABIND_GET_PARAMETER(1, int, raw_pos); LUABIND_GET_PARAMETER(2, float, value); (*obj)[raw_pos] = value; LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat fill //DOC_BEGIN // void fill(value) /// Permite poner todos los valores de la matriz a un mismo valor. //DOC_END { LUABIND_CHECK_ARGN(==, 1); float value; if (lua_isMatrixFloat(L, 1)) { MatrixFloat *aux; LUABIND_GET_PARAMETER(1,MatrixFloat,aux); for (int i=0; igetNumDim(); ++i) if (aux->getDimSize(i) != 1) LUABIND_ERROR("Needs a float or a matrix with only one element\n"); value = *(aux->begin()); } else { LUABIND_CHECK_PARAMETER(1, float); LUABIND_GET_PARAMETER(1,float,value); } obj->fill(value); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat zeros //DOC_BEGIN // void zeros(float value) /// Permite poner todos los valores de la matriz a un mismo valor. //DOC_END { obj->zeros(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat ones //DOC_BEGIN // void onex(float value) /// Permite poner todos los valores de la matriz a un mismo valor. //DOC_END { obj->ones(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat get_use_cuda { LUABIND_RETURN(bool, obj->getCudaFlag()); } //BIND_END //BIND_METHOD MatrixFloat set_use_cuda { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, bool); bool v; LUABIND_GET_PARAMETER(1,bool, v); obj->setUseCuda(v); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat get_major_order { if (obj->getMajorOrder() == CblasRowMajor) LUABIND_RETURN(string, "row_major"); else LUABIND_RETURN(string, "col_major"); } //BIND_END //BIND_METHOD MatrixFloat dim { LUABIND_CHECK_ARGN(>=, 0); LUABIND_CHECK_ARGN(<=, 1); int pos; const int *d=obj->getDimPtr(); LUABIND_GET_OPTIONAL_PARAMETER(1, int, pos, -1); if (pos < 1) { LUABIND_VECTOR_TO_NEW_TABLE(int, d, obj->getNumDim()); LUABIND_RETURN_FROM_STACK(-1); } else LUABIND_RETURN(int, d[pos-1]); } //BIND_END //BIND_METHOD MatrixFloat stride { LUABIND_CHECK_ARGN(>=, 0); LUABIND_CHECK_ARGN(<=, 1); int pos; const int *s=obj->getStridePtr(); LUABIND_GET_OPTIONAL_PARAMETER(1, int, pos, -1); if (pos < 1) { LUABIND_VECTOR_TO_NEW_TABLE(int, s, obj->getNumDim()); LUABIND_RETURN_FROM_STACK(-1); } else LUABIND_RETURN(int, s[pos-1]); } //BIND_END //BIND_METHOD MatrixFloat slice { LUABIND_CHECK_ARGN(>=,2); LUABIND_CHECK_ARGN(<=,3); LUABIND_CHECK_PARAMETER(1, table); LUABIND_CHECK_PARAMETER(2, table); int *coords, *sizes, coords_len, sizes_len; bool clone; LUABIND_TABLE_GETN(1, coords_len); LUABIND_TABLE_GETN(2, sizes_len); if (coords_len != sizes_len || coords_len != obj->getNumDim()) LUABIND_FERROR3("Incorrect number of dimensions, expected %d, " "found %d and %d\n", obj->getNumDim(), coords_len, sizes_len); coords = new int[coords_len]; sizes = new int[sizes_len]; LUABIND_TABLE_TO_VECTOR_SUB1(1, int, coords, coords_len); LUABIND_TABLE_TO_VECTOR(2, int, sizes, sizes_len); LUABIND_GET_OPTIONAL_PARAMETER(3, bool, clone, false); for (int i=0; i obj->getDimSize(i)) LUABIND_FERROR1("Incorrect size or coord at position %d\n", i+1); MatrixFloat *obj2 = new MatrixFloat(obj, coords, sizes, clone); LUABIND_RETURN(MatrixFloat, obj2); delete[] coords; delete[] sizes; } //BIND_END //BIND_METHOD MatrixFloat select { LUABIND_CHECK_ARGN(>=,2); LUABIND_CHECK_ARGN(<=,3); LUABIND_CHECK_PARAMETER(1, int); LUABIND_CHECK_PARAMETER(2, int); int dim, index; MatrixFloat *dest; LUABIND_GET_PARAMETER(1, int, dim); LUABIND_GET_PARAMETER(2, int, index); LUABIND_GET_OPTIONAL_PARAMETER(3, MatrixFloat, dest, 0); MatrixFloat *obj2 = obj->select(dim-1, index-1, dest); LUABIND_RETURN(MatrixFloat, obj2); } //BIND_END //BIND_METHOD MatrixFloat clone //DOC_BEGIN // matrix *clone() /// Devuelve un clon de la matriz. //DOC_END { LUABIND_CHECK_ARGN(>=, 0); LUABIND_CHECK_ARGN(<=, 1); int argn; argn = lua_gettop(L); // number of arguments MatrixFloat *obj2; if (argn == 0) obj2 = obj->clone(); else { const char *major; LUABIND_GET_OPTIONAL_PARAMETER(1, string, major, "row_major"); CBLAS_ORDER order=CblasRowMajor; if (strcmp(major, "col_major") == 0) order = CblasColMajor; else if (strcmp(major, "row_major") != 0) LUABIND_FERROR1("Incorrect major order string %s", major); obj2 = obj->clone(order); } LUABIND_RETURN(MatrixFloat,obj2); } //BIND_END // returns a matrix with size as the given matrix, but without data copy //BIND_CLASS_METHOD MatrixFloat as { LUABIND_CHECK_ARGN(==, 1); MatrixFloat *m; LUABIND_GET_PARAMETER(1, MatrixFloat, m); LUABIND_RETURN(MatrixFloat,m->cloneOnlyDims()); } //BIND_END //BIND_METHOD MatrixFloat transpose { LUABIND_RETURN(MatrixFloat, obj->transpose()); } //BIND_END //BIND_METHOD MatrixFloat in_major_order { const char *major; LUABIND_GET_PARAMETER(1, string, major); CBLAS_ORDER order; if (strcmp(major, "col_major") == 0) order = CblasColMajor; else if (strcmp(major, "row_major") == 0) order = CblasRowMajor; else { order = CblasRowMajor; // avoids compiler warning LUABIND_FERROR1("Incorrect major order string %s", major); } LUABIND_RETURN(MatrixFloat, obj->inMajorOrder(order)); } //BIND_END //BIND_METHOD MatrixFloat isfinite //DOC_BEGIN // bool isfinite /// Devuelve false si algun valor es nan o infinito. //DOC_END { LUABIND_CHECK_ARGN(==, 0); bool resul=true; for (MatrixFloat::iterator it(obj->begin()); resul && it!=obj->end(); ++it) //if (!isfinite(obj->data[i])) resul = 0; if ((*it) - (*it) != 0.0f) resul = false; LUABIND_RETURN(boolean,resul); } //BIND_END //BIND_METHOD MatrixFloat adjust_range //DOC_BEGIN // void adjust_range(float min, float max) /// Ajusta el rango de valores de la matriz para que esté en [min, /// max]. //DOC_END { float rmin,rmax; LUABIND_CHECK_ARGN(==, 2); LUABIND_CHECK_PARAMETER(1, float); LUABIND_CHECK_PARAMETER(2, float); LUABIND_GET_PARAMETER(1,float,rmin); LUABIND_GET_PARAMETER(2,float,rmax); obj->adjustRange(rmin, rmax); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat diag { LUABIND_CHECK_ARGN(==,1); float v; LUABIND_GET_PARAMETER(1, float, v); obj->diag(v); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat toTable // Permite salvar una matriz en una tabla lua // TODO: Tener en cuenta las dimensiones de la matriz { LUABIND_CHECK_ARGN(==, 0); LUABIND_FORWARD_CONTAINER_TO_NEW_TABLE(MatrixFloat, float, *obj); LUABIND_RETURN_FROM_STACK(-1); } //BIND_END //BIND_METHOD MatrixFloat min { #ifdef USE_CUDA obj->update(); #endif LUABIND_CHECK_ARGN(>=,0); LUABIND_CHECK_ARGN(<=,3); int argn = lua_gettop(L); if (argn > 0) { int dim; MatrixFloat *dest; MatrixInt32 *argmin; LUABIND_GET_PARAMETER(1, int, dim); LUABIND_GET_OPTIONAL_PARAMETER(2, MatrixFloat, dest, 0); LUABIND_GET_OPTIONAL_PARAMETER(3, MatrixInt32, argmin, 0); int *aux = 0; if (argmin == 0) { aux = new int[obj->getNumDim()]; for (int i=0; igetNumDim(); ++i) aux[i] = obj->getDimSize(i); aux[dim-1] = 1; argmin = new MatrixInt32(obj->getNumDim(), aux); } IncRef(argmin); if (dim < 1 || dim > obj->getNumDim()) LUABIND_FERROR2("Incorrect dimension, found %d, expect in [1,%d]", dim, obj->getNumDim()); LUABIND_RETURN(MatrixFloat, obj->min(dim-1, dest, argmin)); LUABIND_RETURN(MatrixInt32, argmin); DecRef(argmin); delete[] aux; } else { int arg_min, raw_pos; LUABIND_RETURN(float, obj->min(arg_min, raw_pos)); LUABIND_RETURN(int, arg_min+1); } } //BIND_END //BIND_METHOD MatrixFloat max { #ifdef USE_CUDA obj->update(); #endif LUABIND_CHECK_ARGN(>=,0); LUABIND_CHECK_ARGN(<=,3); int argn = lua_gettop(L); if (argn > 0) { int dim; MatrixFloat *dest; MatrixInt32 *argmax; LUABIND_GET_PARAMETER(1, int, dim); LUABIND_GET_OPTIONAL_PARAMETER(2, MatrixFloat, dest, 0); LUABIND_GET_OPTIONAL_PARAMETER(3, MatrixInt32, argmax, 0); int *aux = 0; if (argmax == 0) { aux = new int[obj->getNumDim()]; for (int i=0; igetNumDim(); ++i) aux[i] = obj->getDimSize(i); aux[dim-1] = 1; argmax = new MatrixInt32(obj->getNumDim(), aux); } IncRef(argmax); if (dim < 1 || dim > obj->getNumDim()) LUABIND_FERROR2("Incorrect dimension, found %d, expect in [1,%d]", dim, obj->getNumDim()); LUABIND_RETURN(MatrixFloat, obj->max(dim-1, dest, argmax)); LUABIND_RETURN(MatrixInt32, argmax); DecRef(argmax); delete[] aux; } else { int arg_max, raw_pos; LUABIND_RETURN(float, obj->max(arg_max, raw_pos)); LUABIND_RETURN(int, arg_max+1); } } //BIND_END //BIND_METHOD MatrixFloat equals { MatrixFloat *other; float epsilon; LUABIND_GET_PARAMETER(1, MatrixFloat, other); LUABIND_GET_OPTIONAL_PARAMETER(2, float, epsilon, 1e-04f); #ifdef USE_CUDA obj->update(); other->update(); #endif LUABIND_RETURN(boolean, obj->equals(other, epsilon)); } //BIND_END //BIND_METHOD MatrixFloat clamp { LUABIND_CHECK_ARGN(==, 2); float lower,upper; LUABIND_GET_PARAMETER(1, float, lower); LUABIND_GET_PARAMETER(2, float, upper); obj->clamp(lower,upper); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat add { int argn; argn = lua_gettop(L); // number of arguments LUABIND_CHECK_ARGN(==, 1); MatrixFloat *mat,*resul; LUABIND_GET_PARAMETER(1, MatrixFloat, mat); if (!obj->sameDim(mat)) LUABIND_ERROR("matrix add wrong dimensions"); #ifdef USE_CUDA mat->update(); #endif resul = obj->addition(mat); LUABIND_RETURN(MatrixFloat, resul); } //BIND_END //BIND_METHOD MatrixFloat scalar_add { int argn; argn = lua_gettop(L); // number of arguments LUABIND_CHECK_ARGN(==, 1); float scalar; LUABIND_GET_PARAMETER(1, float, scalar); obj->scalarAdd(scalar); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat sub { LUABIND_CHECK_ARGN(==, 1); MatrixFloat *mat,*resul; LUABIND_GET_PARAMETER(1, MatrixFloat, mat); if (!obj->sameDim(mat)) LUABIND_ERROR("matrix sub wrong dimensions"); #ifdef USE_CUDA mat->update(); #endif resul = obj->substraction(mat); LUABIND_RETURN(MatrixFloat, resul); } //BIND_END //BIND_METHOD MatrixFloat mul { LUABIND_CHECK_ARGN(==, 1); MatrixFloat *mat,*resul; LUABIND_GET_PARAMETER(1, MatrixFloat, mat); #ifdef USE_CUDA mat->update(); #endif resul = obj->multiply(mat); if (resul == 0) LUABIND_ERROR("matrix mul wrong dimensions"); LUABIND_RETURN(MatrixFloat, resul); } //BIND_END //BIND_METHOD MatrixFloat cmul { LUABIND_CHECK_ARGN(==, 1); MatrixFloat *mat; LUABIND_GET_PARAMETER(1, MatrixFloat, mat); #ifdef USE_CUDA mat->update(); #endif obj->cmul(mat); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat plogp { obj->plogp(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat log { obj->log(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat log1p { obj->log1p(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat exp { obj->exp(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat sqrt { obj->sqrt(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat pow { float value; LUABIND_CHECK_ARGN(==,1); LUABIND_GET_PARAMETER(1, float, value); obj->pow(value); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat tan { obj->tan(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat tanh { obj->tanh(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat atan { obj->atan(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat atanh { obj->atanh(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat sin { obj->sin(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat sinh { obj->sinh(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat asin { obj->asin(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat asinh { obj->asinh(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat cos { obj->cos(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat cosh { obj->cosh(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat acos { obj->acos(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat acosh { obj->acosh(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat abs { obj->abs(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat complement { obj->complement(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat sign { obj->sign(); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat sum { #ifdef USE_CUDA obj->update(); #endif LUABIND_CHECK_ARGN(>=, 0); LUABIND_CHECK_ARGN(<=, 2); int argn = lua_gettop(L); // number of arguments if (argn >= 1) { int dim; MatrixFloat *dest; LUABIND_GET_PARAMETER(1, int, dim); LUABIND_GET_OPTIONAL_PARAMETER(2, MatrixFloat, dest, 0); if (dim < 1 || dim > obj->getNumDim()) LUABIND_FERROR2("Incorrect dimension, found %d, expect in [1,%d]", dim, obj->getNumDim()); MatrixFloat *result = obj->sum(dim-1, dest); LUABIND_RETURN(MatrixFloat, result); } else LUABIND_RETURN(float, obj->sum()); } //BIND_END //BIND_METHOD MatrixFloat copy { int argn; LUABIND_CHECK_ARGN(==, 1); MatrixFloat *mat; LUABIND_GET_PARAMETER(1, MatrixFloat, mat); #ifdef USE_CUDA mat->update(); #endif obj->copy(mat); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat axpy { int argn; LUABIND_CHECK_ARGN(==, 2); float alpha; LUABIND_GET_PARAMETER(1, float, alpha); if (lua_isMatrixFloat(L,2)) { MatrixFloat *mat; LUABIND_GET_PARAMETER(2, MatrixFloat, mat); #ifdef USE_CUDA mat->update(); #endif obj->axpy(alpha, mat); } else if (lua_isSparseMatrixFloat(L,2)) { SparseMatrixFloat *mat; LUABIND_GET_PARAMETER(2, SparseMatrixFloat, mat); obj->axpy(alpha, mat); } else { LUABIND_ERROR("Expected matrix or matrix.sparse as 2nd argument"); } LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat gemm { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L,1, "trans_A", "trans_B", "alpha", "A", "B", "beta", (const char *)0); bool trans_A, trans_B; float alpha; float beta; MatrixFloat *matA,*matB; LUABIND_GET_TABLE_PARAMETER(1, A, MatrixFloat, matA); LUABIND_GET_TABLE_PARAMETER(1, B, MatrixFloat, matB); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, trans_A, bool, trans_A, false); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, trans_B, bool, trans_B, false); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, alpha, float, alpha, 1.0f); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, beta, float, beta, 1.0f); #ifdef USE_CUDA matA->update(); matB->update(); #endif obj->gemm(trans_A ? CblasTrans : CblasNoTrans, trans_B ? CblasTrans : CblasNoTrans, alpha, matA, matB, beta); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat sparse_mm { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L,1, "trans_A", "trans_B", "trans_C", "alpha", "A", "B", "beta", (const char *)0); bool trans_A, trans_B, trans_C; float alpha; float beta; SparseMatrixFloat *matA; MatrixFloat *matB; LUABIND_GET_TABLE_PARAMETER(1, A, SparseMatrixFloat, matA); LUABIND_GET_TABLE_PARAMETER(1, B, MatrixFloat, matB); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, trans_A, bool, trans_A, false); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, trans_B, bool, trans_B, false); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, trans_C, bool, trans_C, false); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, alpha, float, alpha, 1.0f); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, beta, float, beta, 1.0f); obj->sparseMM(trans_A ? CblasTrans : CblasNoTrans, trans_B ? CblasTrans : CblasNoTrans, trans_C ? CblasTrans : CblasNoTrans, alpha, matA, matB, beta); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat gemv { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L,1, "trans_A", "alpha", "A", "X", "beta", (const char *)0); bool trans_A; float alpha; float beta; MatrixFloat *matX; LUABIND_GET_TABLE_PARAMETER(1, X, MatrixFloat, matX); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, trans_A, bool, trans_A, false); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, alpha, float, alpha, 1.0f); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, beta, float, beta, 1.0f); lua_getfield(L, 1, "A"); if (lua_isMatrixFloat(L,-1)) { lua_pop(L,1); MatrixFloat *matA; LUABIND_GET_TABLE_PARAMETER(1, A, MatrixFloat, matA); #ifdef USE_CUDA matA->update(); matX->update(); #endif obj->gemv(trans_A ? CblasTrans : CblasNoTrans, alpha, matA, matX, beta); } else { lua_pop(L,1); SparseMatrixFloat *matA; LUABIND_GET_TABLE_PARAMETER(1, A, SparseMatrixFloat, matA); obj->gemv(trans_A ? CblasTrans : CblasNoTrans, alpha, matA, matX, beta); } LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat ger { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L,1, "alpha", "X", "Y", (const char *)0); float alpha; MatrixFloat *matX,*matY; LUABIND_GET_TABLE_PARAMETER(1, X, MatrixFloat, matX); LUABIND_GET_TABLE_PARAMETER(1, Y, MatrixFloat, matY); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, alpha, float, alpha, 1.0f); #ifdef USE_CUDA matX->update(); matY->update(); #endif obj->ger(alpha, matX, matY); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat dot { LUABIND_CHECK_ARGN(==, 1); if (lua_isMatrixFloat(L,1)) { LUABIND_CHECK_PARAMETER(1, MatrixFloat); MatrixFloat *matX; LUABIND_GET_PARAMETER(1, MatrixFloat, matX); #ifdef USE_CUDA obj->update(); matX->update(); #endif LUABIND_RETURN(float, obj->dot(matX)); } else if (lua_isSparseMatrixFloat(L,1)) { LUABIND_CHECK_PARAMETER(1, SparseMatrixFloat); SparseMatrixFloat *matX; LUABIND_GET_PARAMETER(1, SparseMatrixFloat, matX); #ifdef USE_CUDA obj->update(); matX->update(); #endif LUABIND_RETURN(float, obj->dot(matX)); } } //BIND_END //BIND_METHOD MatrixFloat scal { LUABIND_CHECK_ARGN(==, 1); float value; LUABIND_GET_PARAMETER(1, float, value); obj->scal(value); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat div { LUABIND_CHECK_ARGN(==, 1); float value; LUABIND_GET_PARAMETER(1, float, value); obj->div(value); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat norm2 { #ifdef USE_CUDA obj->update(); #endif LUABIND_RETURN(float, obj->norm2()); } //BIND_END //BIND_METHOD MatrixFloat uniform { int lower, upper; MTRand *random; LUABIND_GET_PARAMETER(1, int, lower); LUABIND_GET_PARAMETER(2, int, upper); LUABIND_GET_OPTIONAL_PARAMETER(3, MTRand, random, 0); if (lower > upper) LUABIND_ERROR("First argument must be <= second argument"); if (random == 0) random = new MTRand(); IncRef(random); if (obj->getIsDataRowOrdered()) for (MatrixFloat::iterator it(obj->begin()); it != obj->end(); ++it) { *it = static_cast(random->randInt(upper - lower)) + lower; } else for (MatrixFloat::col_major_iterator it(obj->begin());it!=obj->end();++it) { *it = static_cast(random->randInt(upper - lower)) + lower; } DecRef(random); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat uniformf { float lower, upper; MTRand *random; LUABIND_GET_OPTIONAL_PARAMETER(1, float, lower, 0.0f); LUABIND_GET_OPTIONAL_PARAMETER(2, float, upper, 1.0f); LUABIND_GET_OPTIONAL_PARAMETER(3, MTRand, random, 0); if (lower > upper) LUABIND_ERROR("First argument must be <= second argument"); if (random == 0) random = new MTRand(); IncRef(random); if (obj->getMajorOrder() == CblasRowMajor) for (MatrixFloat::iterator it(obj->begin()); it != obj->end(); ++it) *it = random->rand(upper - lower) + lower; else for (MatrixFloat::col_major_iterator it(obj->begin());it!=obj->end();++it) *it = random->rand(upper - lower) + lower; DecRef(random); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat linspace { int size = obj->size()-1; float inf,sup; LUABIND_GET_OPTIONAL_PARAMETER(1, float, inf, 1.0f); LUABIND_GET_OPTIONAL_PARAMETER(2, float, sup, static_cast(size+1)); int i = 0; float diff = sup-inf; for (MatrixFloat::iterator it(obj->begin()); it!=obj->end(); ++it, ++i) *it = (diff*i)/size + inf; LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat logspace { int size = obj->size()-1; float inf,sup,base; LUABIND_GET_OPTIONAL_PARAMETER(3, float, base, 10.0f); LUABIND_GET_OPTIONAL_PARAMETER(1, float, inf, 1.0f); LUABIND_GET_OPTIONAL_PARAMETER(2, float, sup, size+1); int i=0; inf = logf(inf)/logf(base); sup = logf(sup)/logf(base); float diff = sup-inf; for (MatrixFloat::iterator it(obj->begin()); it!=obj->end(); ++it, ++i) *it = powf(base, (diff*i)/size + inf); LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat linear { int lower, step; MTRand *random; LUABIND_GET_OPTIONAL_PARAMETER(1, int, lower, 0); LUABIND_GET_OPTIONAL_PARAMETER(2, int, step, 1); int k=lower; for (MatrixFloat::iterator it(obj->begin()); it != obj->end(); ++it, k+=step) { *it = static_cast(k); } LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat sliding_window { int *sub_matrix_size=0, *offset=0, *step=0, *num_steps=0, *order_step=0; int argn = lua_gettop(L); // number of arguments const int num_dim = obj->getNumDim(); if (argn > 1) LUABIND_ERROR("incorrect number of arguments"); if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "offset", "size", "step", "numSteps", "orderStep", (const char*)0); offset = read_vector(L, "offset", num_dim, 0); sub_matrix_size = read_vector(L, "size", num_dim, 0); step = read_vector(L, "step", num_dim, 0); num_steps = read_vector(L, "numSteps", num_dim, 0); order_step = read_vector(L, "orderStep", num_dim, -1); } SlidingWindow *window = new SlidingWindow(obj, sub_matrix_size, offset, step, num_steps, order_step); LUABIND_RETURN(SlidingWindow, window); delete[] sub_matrix_size; delete[] offset; delete[] step; delete[] num_steps; delete[] order_step; } //BIND_END //BIND_METHOD MatrixFloat is_contiguous { LUABIND_RETURN(bool, obj->getIsContiguous()); } //BIND_END //BIND_METHOD MatrixFloat is_transposed { LUABIND_RETURN(bool, obj->getTransposedFlag()); } //BIND_END //BIND_METHOD MatrixFloat inv { LUABIND_RETURN(MatrixFloat, obj->inv()); } //BIND_END //BIND_METHOD MatrixFloat svd { MatrixFloat *U,*V; SparseMatrixFloat *S; obj->svd(&U, &S, &V); LUABIND_RETURN(MatrixFloat, U); LUABIND_RETURN(SparseMatrixFloat, S); LUABIND_RETURN(MatrixFloat, V); } //BIND_END //BIND_METHOD MatrixFloat contiguous { if (obj->getIsContiguous()) LUABIND_RETURN(MatrixFloat, obj); else LUABIND_RETURN(MatrixFloat, obj->clone()); } //BIND_END //BIND_METHOD MatrixFloat map { int argn; int N; argn = lua_gettop(L); // number of arguments N = argn-1; MatrixFloat **v = 0; MatrixFloat::const_iterator *list_it = 0; if (N > 0) { v = new MatrixFloat*[N]; list_it = new MatrixFloat::const_iterator[N]; } for (int i=0; isameDim(obj)) LUABIND_ERROR("The given matrices must have the same dimension sizes\n"); list_it[i] = v[i]->begin(); } LUABIND_CHECK_PARAMETER(argn, function); for (MatrixFloat::iterator it(obj->begin()); it!=obj->end(); ++it) { // copy the Lua function, lua_call will pop this copy lua_pushvalue(L, argn); // push the self matrix value lua_pushfloat(L, *it); // push the value of the rest of given matrices for (int j=0; jupdate(); #endif MatrixFloat *resul = obj->diagonalize(); LUABIND_RETURN(MatrixFloat, resul); } //BIND_END //BIND_METHOD MatrixFloat get_shared_count { LUABIND_RETURN(uint, obj->getSharedCount()); } //BIND_END //BIND_METHOD MatrixFloat reset_shared_count { obj->resetSharedCount(); } //BIND_END //BIND_METHOD MatrixFloat add_to_shared_count { unsigned int count; LUABIND_GET_PARAMETER(1,uint,count); obj->addToSharedCount(count); } //BIND_END //BIND_METHOD MatrixFloat prune_subnormal_and_check_normal { obj->pruneSubnormalAndCheckNormal(); } //BIND_END //BIND_METHOD MatrixFloat lt { if (lua_isMatrixFloat(L, 1)) { MatrixFloat *value; LUABIND_GET_PARAMETER(1, MatrixFloat, value); obj->LTCondition(value); } else { float value; LUABIND_GET_PARAMETER(1, float, value); obj->LTCondition(value); } LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat gt { if (lua_isMatrixFloat(L, 1)) { MatrixFloat *value; LUABIND_GET_PARAMETER(1, MatrixFloat, value); obj->GTCondition(value); } else { float value; LUABIND_GET_PARAMETER(1, float, value); obj->GTCondition(value); } LUABIND_RETURN(MatrixFloat, obj); } //BIND_END //BIND_METHOD MatrixFloat update { obj->update(); } //BIND_END ////////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME MatrixFloatSet matrix.dict //BIND_CPP_CLASS MatrixFloatSet //BIND_CONSTRUCTOR MatrixFloatSet { int argn = lua_gettop(L); // number of arguments obj = new MatrixFloatSet(); if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); lua_pushvalue(L, 1); // stack now contains: -1 => table lua_pushnil(L); // stack now contains: -1 => nil; -2 => table while (lua_next(L, -2)) { // copy the key so that lua_tostring does not modify the original lua_pushvalue(L, -2); // stack now contains: -1 => value; -2 => key; -3 => table const char *key = lua_tostring(L, -1); // stack now contains: -1 => key; -2 => value; -3 => key; -4 => table MatrixFloat *value = lua_toMatrixFloat(L, -2); obj->insert(key, value); // pop value + copy of key, leaving original key lua_pop(L, 2); // stack now contains: -1 => key; -2 => table } // stack now contains: -1 => table (when lua_next returns 0 it pops the key // but does not push anything.) } LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet size { LUABIND_RETURN(int, obj->size()); } //BIND_END //BIND_METHOD MatrixFloatSet insert { const char *key; MatrixFloat *m; LUABIND_CHECK_ARGN(==, 2); LUABIND_GET_PARAMETER(1, string, key); LUABIND_GET_PARAMETER(2, MatrixFloat, m); obj->insert(key, m); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet find { const char *key; LUABIND_CHECK_ARGN(==, 1); LUABIND_GET_PARAMETER(1, string, key); MatrixFloat *m = obj->find(key); if (m != 0) LUABIND_RETURN(MatrixFloat, m); } //BIND_END //BIND_METHOD MatrixFloatSet fill { float value; LUABIND_GET_PARAMETER(1, float, value); obj->fill(value); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet scalar_add { float value; LUABIND_GET_PARAMETER(1, float, value); obj->scalarAdd(value); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet pow { float value; LUABIND_GET_PARAMETER(1, float, value); obj->pow(value); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet scal { float value; LUABIND_GET_PARAMETER(1, float, value); obj->scal(value); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet clamp { float v1,v2; LUABIND_GET_PARAMETER(1, float, v1); LUABIND_GET_PARAMETER(2, float, v2); obj->clamp(v1,v2); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet zeros { obj->zeros(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet ones { obj->ones(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet plogp { obj->plogp(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet log { obj->log(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet log1p { obj->log1p(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet exp { obj->exp(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet sqrt { obj->sqrt(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet tan { obj->tan(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet tanh { obj->tanh(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet atan { obj->atan(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet atanh { obj->atanh(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet cos { obj->cos(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet cosh { obj->cosh(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet acos { obj->acos(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet acosh { obj->acosh(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet sin { obj->sin(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet sinh { obj->sinh(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet asin { obj->asin(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet asinh { obj->asinh(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet abs { obj->abs(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet complement { obj->complement(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet sign { obj->sign(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet inv { obj->inv(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet norm2 { LUABIND_RETURN(float, obj->norm2()); } //BIND_END //BIND_METHOD MatrixFloatSet prune_subnormal_and_check_normal { obj->pruneSubnormalAndCheckNormal(); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet keys { lua_createtable(L, 0, 0); int i=1; for (MatrixFloatSet::const_iterator it=obj->begin(); it != obj->end(); ++it, ++i) { lua_pushnumber(L, i); lua_pushstring(L, it->first.c_str()); lua_settable(L, -3); } LUABIND_INCREASE_NUM_RETURNS(1); } //BIND_END //BIND_METHOD MatrixFloatSet axpy { float alpha; MatrixFloatSet *other; LUABIND_CHECK_ARGN(==,2); LUABIND_CHECK_PARAMETER(1,float); LUABIND_CHECK_PARAMETER(2,MatrixFloatSet); LUABIND_GET_PARAMETER(1, float, alpha); LUABIND_GET_PARAMETER(2, MatrixFloatSet, other); obj->axpy(alpha, other); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet copy { MatrixFloatSet *other; LUABIND_GET_PARAMETER(1, MatrixFloatSet, other); obj->copy(other); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet cmul { MatrixFloatSet *other; LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1,MatrixFloatSet); LUABIND_GET_PARAMETER(1, MatrixFloatSet, other); obj->cmul(other); LUABIND_RETURN(MatrixFloatSet, obj); } //BIND_END //BIND_METHOD MatrixFloatSet dot { MatrixFloatSet *other; LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1,MatrixFloatSet); LUABIND_GET_PARAMETER(1, MatrixFloatSet, other); float dot_result = obj->dot(other); LUABIND_RETURN(float, dot_result); } //BIND_END //BIND_METHOD MatrixFloatSet clone { MatrixFloatSet *cloned = obj->clone(); LUABIND_RETURN(MatrixFloatSet, cloned); } //BIND_END //BIND_METHOD MatrixFloatSet clone_only_dims { MatrixFloatSet *cloned = obj->cloneOnlyDims(); LUABIND_RETURN(MatrixFloatSet, cloned); } //BIND_END //BIND_METHOD MatrixFloatSet iterate { LUABIND_CHECK_ARGN(==, 0); LUABIND_RETURN(cfunction,matrixfloatset_iterator_function); LUABIND_RETURN(MatrixFloatSetIteratorWrapper, new MatrixFloatSetIteratorWrapper(obj)); } //BIND_END //BIND_LUACLASSNAME MatrixFloatSetIteratorWrapper matrix.dict.__iterator__ //BIND_CPP_CLASS MatrixFloatSetIteratorWrapper //BIND_CONSTRUCTOR MatrixFloatSetIteratorWrapper { LUABIND_ERROR("Use matrix.dict.iterate method"); } //BIND_END april-ann-0.3.1/packages/basics/matrix/binding/bind_matrix_char.lua.cc000066400000000000000000000414741234204160600257300ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C #include "utilMatrixChar.h" #include "luabindutil.h" #include "luabindmacros.h" #define FUNCTION_NAME "read_vector" static int *read_vector(lua_State *L, const char *key, int num_dim, int add) { int *v=0; lua_getfield(L, 1, key); if (!lua_isnil(L, -1)) { LUABIND_CHECK_PARAMETER(-1, table); int table_len; LUABIND_TABLE_GETN(-1, table_len); if (table_len != num_dim) LUABIND_FERROR3("Table '%s' with incorrect size, expected %d, found %d", key, num_dim, table_len); v = new int[num_dim]; for(int i=0; i < num_dim; i++) { lua_rawgeti(L, -1, i+1); v[i] = static_cast(lua_tonumber(L, -1)) + add; lua_pop(L,1); } } lua_pop(L, 1); return v; } #undef FUNCTION_NAME int sliding_window_matrixChar_iterator_function(lua_State *L) { SlidingWindowMatrixChar *obj = lua_toSlidingWindowMatrixChar(L,1); if (obj->isEnd()) { lua_pushnil(L); return 1; } MatrixChar *mat = obj->getMatrix(); lua_pushMatrixChar(L, mat); obj->next(); return 1; } //BIND_END //BIND_HEADER_H #include "matrixChar.h" typedef MatrixChar::sliding_window SlidingWindowMatrixChar; //BIND_END //BIND_LUACLASSNAME MatrixChar matrixChar //BIND_CPP_CLASS MatrixChar //BIND_LUACLASSNAME SlidingWindowMatrixChar matrixChar.__sliding_window__ //BIND_CPP_CLASS SlidingWindowMatrixChar //BIND_CONSTRUCTOR SlidingWindowMatrixChar { LUABIND_ERROR("Use matrixChar.sliding_window"); } //BIND_END //BIND_METHOD SlidingWindowMatrixChar get_matrix { MatrixChar *dest; LUABIND_GET_OPTIONAL_PARAMETER(1, MatrixChar, dest, 0); LUABIND_RETURN(MatrixChar, obj->getMatrix(dest)); } //BIND_END //BIND_METHOD SlidingWindowMatrixChar next { LUABIND_RETURN(SlidingWindowMatrixChar, obj->next()); } //BIND_END //BIND_METHOD SlidingWindowMatrixChar set_at_window { int windex; LUABIND_CHECK_ARGN(==,1); LUABIND_GET_PARAMETER(1, int, windex); if (windex < 1) LUABIND_ERROR("Index must be >= 1\n"); obj->setAtWindow(windex-1); LUABIND_RETURN(SlidingWindowMatrixChar, obj); } //BIND_END //BIND_METHOD SlidingWindowMatrixChar num_windows { LUABIND_RETURN(int, obj->numWindows()); } //BIND_END //BIND_METHOD SlidingWindowMatrixChar coords { LUABIND_VECTOR_TO_NEW_TABLE(int, obj->getCoords(), obj->getNumDim()); LUABIND_RETURN_FROM_STACK(-1); } //BIND_END //BIND_METHOD SlidingWindowMatrixChar is_end { LUABIND_RETURN(bool, obj->isEnd()); } //BIND_END //BIND_METHOD SlidingWindowMatrixChar iterate { LUABIND_CHECK_ARGN(==, 0); LUABIND_RETURN(cfunction,sliding_window_matrixChar_iterator_function); LUABIND_RETURN(SlidingWindowMatrixChar,obj); } //BIND_END ////////////////////////////////////////////////////////////////////// //BIND_CONSTRUCTOR MatrixChar { int i,argn; argn = lua_gettop(L); // number of arguments LUABIND_CHECK_ARGN(>=, 1); int ndims = (!lua_isnumber(L,argn)) ? argn-1 : argn; int *dim; if (ndims == 0) { // caso matrix{valores} ndims = 1; dim = new int[ndims]; LUABIND_TABLE_GETN(1, dim[0]); } else { dim = new int[ndims]; for (i=1; i <= ndims; i++) { if (!lua_isnumber(L,i)) // TODO: Este mensaje de error parece que no es correcto... y no se todavia por que!!! LUABIND_FERROR2("incorrect argument to matrix dimension (arg %d must" " be a number and is a %s)", i, lua_typename(L,i)); dim[i-1] = (int)lua_tonumber(L,i); if (dim[i-1] <= 0) LUABIND_FERROR1("incorrect argument to matrix dimension (arg %d must be >0)",i); } } MatrixChar* obj; obj = new MatrixChar(ndims,dim); if (lua_istable(L,argn)) { int i=1; for (MatrixChar::iterator it(obj->begin()); it != obj->end(); ++i) { lua_rawgeti(L,argn,i); const char *data = luaL_checkstring(L,-1); while(it != obj->end() && data != '\0') { *it = *data; ++it; ++data; } lua_remove(L,-1); } } delete[] dim; LUABIND_RETURN(MatrixChar,obj); } //BIND_END //BIND_METHOD MatrixChar size { LUABIND_RETURN(int, obj->size()); } //BIND_END //BIND_METHOD MatrixChar rewrap { LUABIND_CHECK_ARGN(>=, 1); int ndims; ndims = lua_gettop(L); // number of dimensions int *dims = new int[ndims]; for (int i=1; i <= ndims; i++) { LUABIND_GET_PARAMETER(i, int, dims[i-1]); if (dims[i-1] <= 0) LUABIND_FERROR1("incorrect argument to matrix dimension (arg %d must be >0)",i); } MatrixChar *new_obj = obj->rewrap(dims, ndims); delete[] dims; LUABIND_RETURN(MatrixChar,new_obj); } //BIND_END //BIND_METHOD MatrixChar get_reference_string { char buff[128]; sprintf(buff,"%p data= %p", (void*)obj, (void*)obj->getRawDataAccess()); LUABIND_RETURN(string, buff); } //BIND_END //BIND_CLASS_METHOD MatrixChar fromFilename { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, string); const char *filename; LUABIND_GET_PARAMETER(1,string,filename); MatrixChar *obj; if ((obj = readMatrixCharFromFile(filename)) == 0) LUABIND_ERROR("bad format"); else LUABIND_RETURN(MatrixChar,obj); } //BIND_END //BIND_CLASS_METHOD MatrixChar fromString { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, string); constString cs; LUABIND_GET_PARAMETER(1,constString,cs); MatrixChar *obj; if ((obj = readMatrixCharFromString(cs)) == 0) LUABIND_ERROR("bad format"); else LUABIND_RETURN(MatrixChar,obj); } //BIND_END //BIND_METHOD MatrixChar toFilename { LUABIND_CHECK_ARGN(==, 1); const char *filename; LUABIND_GET_PARAMETER(1, string, filename); writeMatrixCharToFile(obj, filename); } //BIND_END //BIND_METHOD MatrixChar toString { LUABIND_CHECK_ARGN(==, 0); writeMatrixCharToLuaString(obj, L, true); LUABIND_INCREASE_NUM_RETURNS(1); } //BIND_END //BIND_METHOD MatrixChar copy_from_table { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); int veclen; LUABIND_TABLE_GETN(1, veclen); if (veclen != obj->size()) LUABIND_FERROR2("wrong size %d instead of %d",veclen,obj->size()); int i=1; for (MatrixChar::iterator it(obj->begin()); it != obj->end(); ++i) { lua_rawgeti(L,1,i); const char *data = luaL_checkstring(L,-1); while(it != obj->end() && data != '\0') { *it = *data; ++it; ++data; } lua_remove(L,-1); } LUABIND_RETURN(MatrixChar, obj); } //BIND_END //BIND_METHOD MatrixChar get //DOC_BEGIN // char get(coordinates) /// Permite ver valores de una matriz. Requiere tantos indices como dimensiones tenga la matriz. ///@param coordinates Tabla con la posición exacta del punto de la matriz que queremos obtener. //DOC_END { int argn = lua_gettop(L); // number of arguments if (argn != obj->getNumDim()) LUABIND_FERROR2("wrong size %d instead of %d",argn,obj->getNumDim()); char ret; if (obj->getNumDim() == 1) { int v1; LUABIND_GET_PARAMETER(1,int,v1); if (v1<1 || v1 > obj->getDimSize(0)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", v1, obj->getDimSize(0)); } ret = (*obj)(v1-1); } else if (obj->getNumDim() == 2) { int v1, v2; LUABIND_GET_PARAMETER(1,int,v1); LUABIND_GET_PARAMETER(2,int,v2); if (v1<1 || v1 > obj->getDimSize(0)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", v1, obj->getDimSize(0)); } if (v2<1 || v2 > obj->getDimSize(1)) { LUABIND_FERROR2("wrong index parameter: 2 <= %d <= %d is incorrect", v2, obj->getDimSize(1)); } ret = (*obj)(v1-1, v2-1); } else { int *coords = new int[obj->getNumDim()]; for (int i=0; igetNumDim(); ++i) { LUABIND_GET_PARAMETER(i+1,int,coords[i]); if (coords[i]<1 || coords[i] > obj->getDimSize(i)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", coords[i], obj->getDimSize(i)); } coords[i]--; } ret = (*obj)(coords, obj->getNumDim()); delete[] coords; } LUABIND_RETURN(char, ret); } //BIND_END //BIND_METHOD MatrixChar set //DOC_BEGIN // char set(coordinates,value) /// Permite cambiar el valor de un elemento en la matriz. Requiere /// tantos indices como dimensiones tenga la matriz y adicionalmente /// el valor a cambiar ///@param coordinates Tabla con la posición exacta del punto de la matriz que queremos obtener. //DOC_END { int argn = lua_gettop(L); // number of arguments if (argn != obj->getNumDim()+1) LUABIND_FERROR2("wrong size %d instead of %d",argn,obj->getNumDim()+1); const char *str; if (obj->getNumDim() == 1) { int v1; LUABIND_GET_PARAMETER(1,int,v1); if (v1<1 || v1 > obj->getDimSize(0)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", v1, obj->getDimSize(0)); } LUABIND_GET_PARAMETER(obj->getNumDim()+1,string,str); (*obj)(v1-1) = *str; } else if (obj->getNumDim() == 2) { int v1, v2; LUABIND_GET_PARAMETER(1,int,v1); LUABIND_GET_PARAMETER(2,int,v2); if (v1<1 || v1 > obj->getDimSize(0)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", v1, obj->getDimSize(0)); } if (v2<1 || v2 > obj->getDimSize(1)) { LUABIND_FERROR2("wrong index parameter: 2 <= %d <= %d is incorrect", v2, obj->getDimSize(1)); } LUABIND_GET_PARAMETER(obj->getNumDim()+1,string,str); (*obj)(v1-1, v2-1) = *str; } else { int *coords = new int[obj->getNumDim()]; for (int i=0; igetNumDim(); ++i) { LUABIND_GET_PARAMETER(i+1,int,coords[i]); if (coords[i]<1 || coords[i] > obj->getDimSize(i)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", coords[i], obj->getDimSize(i)); } coords[i]--; } LUABIND_GET_PARAMETER(obj->getNumDim()+1,string,str); (*obj)(coords, obj->getNumDim()) = *str; delete[] coords; } LUABIND_RETURN(MatrixChar, obj); } //BIND_END //BIND_METHOD MatrixChar offset { LUABIND_RETURN(int, obj->getOffset()); } //BIND_END //BIND_METHOD MatrixChar raw_get { int raw_pos; LUABIND_GET_PARAMETER(1, int, raw_pos); LUABIND_RETURN(char, (*obj)[raw_pos]); } //BIND_END //BIND_METHOD MatrixChar raw_set { int raw_pos; const char *value; LUABIND_GET_PARAMETER(1, int, raw_pos); LUABIND_GET_PARAMETER(2, string, value); (*obj)[raw_pos] = *value; LUABIND_RETURN(MatrixChar, obj); } //BIND_END //BIND_METHOD MatrixChar fill //DOC_BEGIN // void fill(char value) /// Permite poner todos los valores de la matriz a un mismo valor. //DOC_END { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, string); const char *value; LUABIND_GET_PARAMETER(1,string,value); obj->fill(*value); LUABIND_RETURN(MatrixChar, obj); } //BIND_END //BIND_METHOD MatrixChar dim { LUABIND_CHECK_ARGN(>=, 0); LUABIND_CHECK_ARGN(<=, 1); int pos; const int *d=obj->getDimPtr(); LUABIND_GET_OPTIONAL_PARAMETER(1, int, pos, -1); if (pos < 1) { LUABIND_VECTOR_TO_NEW_TABLE(int, d, obj->getNumDim()); LUABIND_RETURN_FROM_STACK(-1); } else LUABIND_RETURN(int, d[pos-1]); } //BIND_END //BIND_METHOD MatrixChar stride { LUABIND_CHECK_ARGN(>=, 0); LUABIND_CHECK_ARGN(<=, 1); int pos; const int *s=obj->getStridePtr(); LUABIND_GET_OPTIONAL_PARAMETER(1, int, pos, -1); if (pos < 1) { LUABIND_VECTOR_TO_NEW_TABLE(int, s, obj->getNumDim()); LUABIND_RETURN_FROM_STACK(-1); } else LUABIND_RETURN(int, s[pos-1]); } //BIND_END //BIND_METHOD MatrixChar slice { LUABIND_CHECK_ARGN(>=,2); LUABIND_CHECK_ARGN(<=,3); LUABIND_CHECK_PARAMETER(1, table); LUABIND_CHECK_PARAMETER(2, table); int *coords, *sizes, coords_len, sizes_len; bool clone; LUABIND_TABLE_GETN(1, coords_len); LUABIND_TABLE_GETN(2, sizes_len); if (coords_len != sizes_len || coords_len != obj->getNumDim()) LUABIND_FERROR3("Incorrect number of dimensions, expected %d, " "found %d and %d\n", obj->getNumDim(), coords_len, sizes_len); coords = new int[coords_len]; sizes = new int[sizes_len]; LUABIND_TABLE_TO_VECTOR_SUB1(1, int, coords, coords_len); LUABIND_TABLE_TO_VECTOR(2, int, sizes, sizes_len); for (int i=0; i obj->getDimSize(i)) LUABIND_FERROR1("Incorrect size or coord at position %d\n", i+1); LUABIND_GET_OPTIONAL_PARAMETER(3, bool, clone, false); MatrixChar *obj2 = new MatrixChar(obj, coords, sizes, clone); LUABIND_RETURN(MatrixChar, obj2); delete[] coords; delete[] sizes; } //BIND_END //BIND_METHOD MatrixChar select { LUABIND_CHECK_ARGN(>=,2); LUABIND_CHECK_ARGN(<=,3); LUABIND_CHECK_PARAMETER(1, int); LUABIND_CHECK_PARAMETER(2, int); int dim, index; MatrixChar *dest; LUABIND_GET_PARAMETER(1, int, dim); LUABIND_GET_PARAMETER(2, int, index); LUABIND_GET_OPTIONAL_PARAMETER(3, MatrixChar, dest, 0); MatrixChar *obj2 = obj->select(dim-1, index-1, dest); LUABIND_RETURN(MatrixChar, obj2); } //BIND_END //BIND_METHOD MatrixChar clone //DOC_BEGIN // matrix *clone() /// Devuelve un clon de la matriz. //DOC_END { LUABIND_CHECK_ARGN(>=, 0); LUABIND_CHECK_ARGN(<=, 1); int argn; argn = lua_gettop(L); // number of arguments MatrixChar *obj2; if (argn == 0) obj2 = obj->clone(); else { const char *major; LUABIND_GET_OPTIONAL_PARAMETER(1, string, major, "row_major"); CBLAS_ORDER order=CblasRowMajor; if (strcmp(major, "col_major") == 0) order = CblasColMajor; else if (strcmp(major, "row_major") != 0) LUABIND_FERROR1("Incorrect major order char %s", major); obj2 = obj->clone(order); } LUABIND_RETURN(MatrixChar,obj2); } //BIND_END //BIND_METHOD MatrixChar transpose { LUABIND_RETURN(MatrixChar, obj->transpose()); } //BIND_END //BIND_METHOD MatrixChar diag { LUABIND_CHECK_ARGN(==,1); const char *v; LUABIND_GET_PARAMETER(1, string, v); obj->diag(*v); LUABIND_RETURN(MatrixChar, obj); } //BIND_END //BIND_METHOD MatrixChar toTable // Permite salvar una matriz en una tabla lua // TODO: Tener en cuenta las dimensiones de la matriz { LUABIND_CHECK_ARGN(==, 0); lua_createtable(L, obj->size(), 0); int index = 1; for (MatrixChar::iterator it(obj->begin()); it != obj->end(); ++it) { char aux[2] = { *it, '\0' }; lua_pushstring(L, aux); lua_rawseti(L, -2, index++); } LUABIND_RETURN_FROM_STACK(-1); } //BIND_END //BIND_METHOD MatrixChar sliding_window { int *sub_matrix_size=0, *offset=0, *step=0, *num_steps=0, *order_step=0; int argn = lua_gettop(L); // number of arguments const int num_dim = obj->getNumDim(); if (argn > 1) LUABIND_ERROR("incorrect number of arguments"); if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "offset", "size", "step", "numSteps", "orderStep", (const char*)0); offset = read_vector(L, "offset", num_dim, 0); sub_matrix_size = read_vector(L, "size", num_dim, 0); step = read_vector(L, "step", num_dim, 0); num_steps = read_vector(L, "numSteps", num_dim, 0); order_step = read_vector(L, "orderStep", num_dim, -1); } SlidingWindowMatrixChar *window = new SlidingWindowMatrixChar(obj, sub_matrix_size, offset, step, num_steps, order_step); LUABIND_RETURN(SlidingWindowMatrixChar, window); delete[] sub_matrix_size; delete[] offset; delete[] step; delete[] num_steps; delete[] order_step; } //BIND_END //BIND_METHOD MatrixChar is_contiguous { LUABIND_RETURN(bool, obj->getIsContiguous()); } //BIND_END //BIND_METHOD MatrixChar to_string_table { SlidingWindowMatrixChar *window = new SlidingWindowMatrixChar(obj); IncRef(window); MatrixChar *m = window->getMatrix(); IncRef(m); char *str = new char[m->size()+1]; lua_createtable(L, window->numWindows(), 0); int index = 1; do { window->getMatrix(m); int i=0; for (MatrixChar::const_iterator it(m->begin()); it!=m->end(); ++it) str[i++] = *it; str[i] = '\0'; lua_pushstring(L, str); lua_rawseti(L, -2, index++); window->next(); } while(!window->isEnd()); DecRef(window); DecRef(m); delete[] str; LUABIND_RETURN_FROM_STACK(-1); } //BIND_END //BIND_METHOD MatrixChar copy { int argn; LUABIND_CHECK_ARGN(==, 1); MatrixChar *mat; LUABIND_GET_PARAMETER(1, MatrixChar, mat); obj->copy(mat); LUABIND_RETURN(MatrixChar, obj); } //BIND_END ////////////////////////////////////////////////////////////////////// april-ann-0.3.1/packages/basics/matrix/binding/bind_matrix_complex_float.lua.cc000066400000000000000000000730111234204160600276370ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C #include "bind_matrix.h" #include "utilMatrixIO.h" #include "utilMatrixComplexF.h" #include "bind_mtrand.h" #include // para isfinite #include "luabindutil.h" #include "luabindmacros.h" #include "bind_complex.h" #define FUNCTION_NAME "read_vector" static int *read_vector(lua_State *L, const char *key, int num_dim, int add) { int *v=0; lua_getfield(L, 1, key); if (!lua_isnil(L, -1)) { LUABIND_CHECK_PARAMETER(-1, table); int table_len; LUABIND_TABLE_GETN(-1, table_len); if (table_len != num_dim) LUABIND_FERROR3("Table '%s' with incorrect size, expected %d, found %d", key, num_dim, table_len); v = new int[num_dim]; for(int i=0; i < num_dim; i++) { lua_rawgeti(L, -1, i+1); v[i] = static_cast(lua_tonumber(L, -1)) + add; lua_pop(L,1); } } lua_pop(L, 1); return v; } #undef FUNCTION_NAME int sliding_window_matrix_complex_iterator_function(lua_State *L) { SlidingWindowComplexF *obj = lua_toSlidingWindowComplexF(L,1); if (obj->isEnd()) { lua_pushnil(L); return 1; } // lua_pushSlidingWindow(L, obj); MatrixComplexF *mat = obj->getMatrix(); lua_pushMatrixComplexF(L, mat); obj->next(); return 1; } //BIND_END //BIND_HEADER_H #include "matrixComplexF.h" #include "utilLua.h" #include // para isfinite typedef MatrixComplexF::sliding_window SlidingWindowComplexF; //BIND_END //BIND_LUACLASSNAME MatrixComplexF matrixComplex //BIND_CPP_CLASS MatrixComplexF //BIND_LUACLASSNAME SlidingWindowComplexF matrixComplex.__sliding_window__ //BIND_CPP_CLASS SlidingWindowComplexF //BIND_CONSTRUCTOR SlidingWindowComplexF { LUABIND_ERROR("Use matrixComplex.sliding_window"); } //BIND_END //BIND_METHOD SlidingWindowComplexF get_matrix { MatrixComplexF *dest; LUABIND_GET_OPTIONAL_PARAMETER(1, MatrixComplexF, dest, 0); LUABIND_RETURN(MatrixComplexF, obj->getMatrix(dest)); } //BIND_END //BIND_METHOD SlidingWindowComplexF next { LUABIND_RETURN(SlidingWindowComplexF, obj->next()); } //BIND_END //BIND_METHOD SlidingWindowComplexF set_at_window { int windex; LUABIND_CHECK_ARGN(==,1); LUABIND_GET_PARAMETER(1, int, windex); if (windex < 1) LUABIND_ERROR("Index must be >= 1\n"); obj->setAtWindow(windex-1); LUABIND_RETURN(SlidingWindowComplexF, obj); } //BIND_END //BIND_METHOD SlidingWindowComplexF num_windows { LUABIND_RETURN(int, obj->numWindows()); } //BIND_END //BIND_METHOD SlidingWindowComplexF coords { LUABIND_VECTOR_TO_NEW_TABLE(int, obj->getCoords(), obj->getNumDim()); LUABIND_RETURN_FROM_STACK(-1); } //BIND_END //BIND_METHOD SlidingWindowComplexF is_end { LUABIND_RETURN(bool, obj->isEnd()); } //BIND_END //BIND_METHOD SlidingWindowComplexF iterate { LUABIND_CHECK_ARGN(==, 0); LUABIND_RETURN(cfunction,sliding_window_matrix_complex_iterator_function); LUABIND_RETURN(SlidingWindowComplexF,obj); } //BIND_END ////////////////////////////////////////////////////////////////////// //BIND_CONSTRUCTOR MatrixComplexF //DOC_BEGIN // matrixComplex(int dim1, int dim2, ..., table mat=nil) /// Constructor con una secuencia de valores que son las dimensiones de /// la matriz el ultimo argumento puede ser una tabla, en cuyo caso /// contiene los valores adecuadamente serializados, si solamente /// aparece la matriz, se trata de un vector cuya longitud viene dada /// implicitamente. //DOC_END { int i,argn; argn = lua_gettop(L); // number of arguments LUABIND_CHECK_ARGN(>=, 1); int ndims = (!lua_isnumber(L,argn)) ? argn-1 : argn; int *dim; if (ndims == 0) { // caso matrix{valores} ndims = 1; dim = new int[ndims]; LUABIND_TABLE_GETN(1, dim[0]); } else { dim = new int[ndims]; for (i=1; i <= ndims; i++) { if (!lua_isnumber(L,i)) // TODO: Este mensaje de error parece que no es correcto... y no se todavia por que!!! LUABIND_FERROR2("incorrect argument to matrix dimension (arg %d must" " be a number and is a %s)", i, lua_typename(L,i)); dim[i-1] = (int)lua_tonumber(L,i); if (dim[i-1] <= 0) LUABIND_FERROR1("incorrect argument to matrix dimension (arg %d must be >0)",i); } } MatrixComplexF* obj; obj = new MatrixComplexF(ndims,dim); if (lua_istable(L,argn)) { int len; LUABIND_TABLE_GETN(argn, len); if (len != obj->size()) LUABIND_FERROR2("Incorrect number of elements at the given table, " "found %d, expected %d", len, obj->size()); int i=1; for (MatrixComplexF::iterator it(obj->begin()); it != obj->end(); ++it,++i) { lua_rawgeti(L,argn,i); *it = lua_toComplexF(L, -1); } } delete[] dim; LUABIND_RETURN(MatrixComplexF,obj); } //BIND_END //BIND_CLASS_METHOD MatrixComplexF col_major //DOC_BEGIN // col_major_matrix(int dim1, int dim2, ..., table mat=nil) /// Constructor con una secuencia de valores que son las dimensiones de /// la matriz el ultimo argumento puede ser una tabla, en cuyo caso /// contiene los valores adecuadamente serializados, si solamente /// aparece la matriz, se trata de un vector cuya longitud viene dada /// implicitamente. //DOC_END { int i,argn; argn = lua_gettop(L); // number of arguments LUABIND_CHECK_ARGN(>=, 1); int ndims = (!lua_isnumber(L,argn)) ? argn-1 : argn; int *dim; if (ndims == 0) { // caso matrix{valores} ndims = 1; dim = new int[ndims]; LUABIND_TABLE_GETN(1, dim[0]); } else { dim = new int[ndims]; for (i=1; i <= ndims; i++) { if (!lua_isnumber(L,i)) // TODO: Este mensaje de error parece que no es correcto... y no se todavia por que!!! LUABIND_FERROR2("incorrect argument to matrix dimension (arg %d must" " be a number and is a %s)", i, lua_typename(L,i)); dim[i-1] = (int)lua_tonumber(L,i); if (dim[i-1] <= 0) LUABIND_FERROR1("incorrect argument to matrix dimension (arg %d must be >0)",i); } } MatrixComplexF* obj; obj = new MatrixComplexF(ndims,dim,CblasColMajor); if (lua_istable(L,argn)) { int len; LUABIND_TABLE_GETN(argn, len); if (len != obj->size()) LUABIND_FERROR2("Incorrect number of elements at the given table, " "found %d, expected %d", len, obj->size()); int i=1; for (MatrixComplexF::iterator it(obj->begin()); it != obj->end(); ++it,++i) { lua_rawgeti(L,argn,i); *it = lua_toComplexF(L, -1); } } delete[] dim; LUABIND_RETURN(MatrixComplexF,obj); } //BIND_END //BIND_METHOD MatrixComplexF size { LUABIND_RETURN(int, obj->size()); } //BIND_END //BIND_METHOD MatrixComplexF rewrap { LUABIND_CHECK_ARGN(>=, 1); int ndims; ndims = lua_gettop(L); // number of dimensions int *dims = new int[ndims]; for (int i=1; i <= ndims; i++) { LUABIND_GET_PARAMETER(i, int, dims[i-1]); if (dims[i-1] <= 0) LUABIND_FERROR1("incorrect argument to matrix dimension (arg %d must be >0)",i); } MatrixComplexF *new_obj = obj->rewrap(dims, ndims); delete[] dims; LUABIND_RETURN(MatrixComplexF,new_obj); } //BIND_END //BIND_METHOD MatrixComplexF get_reference_string { char buff[128]; sprintf(buff,"%p data= %p", (void*)obj, (void*)obj->getRawDataAccess()); LUABIND_RETURN(string, buff); } //BIND_END //BIND_CLASS_METHOD MatrixComplexF fromFilename //DOC_BEGIN // matrix *fromFilename(string filename) /// Constructor con un argumento que es un fichero que contiene la matriz. Pueden haber /// comentarios que son lineas que empiezan con un simbolo '#'. La /// primera linea contiene tantos valores numericos como dimensiones /// tenga la matriz y que corresponde al numero de componentes en cada /// dimension. La siguiente linea contiene la palabra "ascii" o /// "binary". El resto de lineas contienen los datos propiamente /// dichos. ///@param filename Es un string que indica el nombre del fichero. //DOC_END { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, string); const char *filename; LUABIND_GET_PARAMETER(1,string,filename); MatrixComplexF *obj; if ((obj = readMatrixComplexFFromFile(filename)) == 0) LUABIND_ERROR("bad format"); else LUABIND_RETURN(MatrixComplexF,obj); } //BIND_END //BIND_CLASS_METHOD MatrixComplexF fromString //DOC_BEGIN // matrix *fromString(string description) /// Constructor con un argumento que es una cadena. Pueden haber /// comentarios que son lineas que empiezan con un simbolo '#'. La /// primera linea contiene tantos valores numericos como dimensiones /// tenga la matriz y que corresponde al numero de componentes en cada /// dimension. La siguiente linea contiene la palabra "ascii" o /// "binary". El resto de lineas contienen los datos propiamente /// dichos. ///@param description Es un string que describe a la matriz. //DOC_END { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, string); constString cs; LUABIND_GET_PARAMETER(1,constString,cs); MatrixComplexF *obj; if ((obj = readMatrixComplexFFromString(cs)) == 0) LUABIND_ERROR("bad format"); else LUABIND_RETURN(MatrixComplexF,obj); } //BIND_END //BIND_METHOD MatrixComplexF toFilename //DOC_BEGIN // void toFilename(string filename, string type='binary') /// Permite salvar una matriz con un formato tal y como se carga con el /// metodo fromString. El unico argumento opcional indica el tipo 'ascii' /// o 'binary'. ///@param filename Indica el nombre del fichero. ///@param type Parametro opcional. Puede ser 'ascii' o 'binary', y por defecto es 'binary'. //DOC_END { LUABIND_CHECK_ARGN(>=, 1); LUABIND_CHECK_ARGN(<=, 2); const char *filename; constString cs; LUABIND_GET_PARAMETER(1, string, filename); LUABIND_GET_OPTIONAL_PARAMETER(2,constString,cs,constString("binary")); bool is_ascii = (cs == "ascii"); writeMatrixComplexFToFile(obj, filename, is_ascii); } //BIND_END //BIND_METHOD MatrixComplexF toString //DOC_BEGIN // string toString(string type='binary') /// Permite salvar una matriz con un formato tal y como se carga con el /// metodo fromString. El unico argumento opcional indica el tipo 'ascii' /// o 'binary'. ///@param type Parámetro opcional. Puede ser 'ascii' o 'binary', y por defecto es 'binary'. //DOC_END { LUABIND_CHECK_ARGN(<=, 1); constString cs; LUABIND_GET_OPTIONAL_PARAMETER(1,constString,cs,constString("binary")); bool is_ascii = (cs == "ascii"); writeMatrixComplexFToLuaString(obj, L, is_ascii); LUABIND_INCREASE_NUM_RETURNS(1); } //BIND_END //BIND_METHOD MatrixComplexF copy_from_table //DOC_BEGIN // void copy_from_table(table matrix_values) /// Permite dar valores a una matriz. Require una tabla con un numero /// de argumentos igual al numero de elementos de la matriz. ///@param matrix_values Tabla con los elementos de la matriz. //DOC_END { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); int veclen; LUABIND_TABLE_GETN(1, veclen); if (veclen != obj->size()) LUABIND_FERROR2("wrong size %d instead of %d",veclen,obj->size()); int i=1; for (MatrixComplexF::iterator it(obj->begin()); it != obj->end(); ++it,++i) { lua_rawgeti(L,1,i); *it = lua_toComplexF(L, -1); } LUABIND_RETURN(MatrixComplexF, obj); } //BIND_END //BIND_METHOD MatrixComplexF get //DOC_BEGIN // ComplexF get(coordinates) /// Permite ver valores de una matriz. Requiere tantos indices como dimensiones tenga la matriz. ///@param coordinates Tabla con la posición exacta del punto de la matriz que queremos obtener. //DOC_END { int argn = lua_gettop(L); // number of arguments if (argn != obj->getNumDim()) LUABIND_FERROR2("wrong size %d instead of %d",argn,obj->getNumDim()); ComplexF ret; if (obj->getNumDim() == 1) { int v1; LUABIND_GET_PARAMETER(1,int,v1); if (v1<1 || v1 > obj->getDimSize(0)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", v1, obj->getDimSize(0)); } ret = (*obj)(v1-1); } else if (obj->getNumDim() == 2) { int v1, v2; LUABIND_GET_PARAMETER(1,int,v1); LUABIND_GET_PARAMETER(2,int,v2); if (v1<1 || v1 > obj->getDimSize(0)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", v1, obj->getDimSize(0)); } if (v2<1 || v2 > obj->getDimSize(1)) { LUABIND_FERROR2("wrong index parameter: 2 <= %d <= %d is incorrect", v2, obj->getDimSize(1)); } ret = (*obj)(v1-1, v2-1); } else { int *coords = new int[obj->getNumDim()]; for (int i=0; igetNumDim(); ++i) { LUABIND_GET_PARAMETER(i+1,int,coords[i]); if (coords[i]<1 || coords[i] > obj->getDimSize(i)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", coords[i], obj->getDimSize(i)); } coords[i]--; } ret = (*obj)(coords, obj->getNumDim()); delete[] coords; } LUABIND_RETURN(ComplexF, ret); } //BIND_END //BIND_METHOD MatrixComplexF set //DOC_BEGIN // ComplexF set(coordinates,realvalue,imgvalue) /// Permite cambiar el valor de un elemento en la matriz. Requiere /// tantos indices como dimensiones tenga la matriz y adicionalmente /// el valor a cambiar ///@param coordinates Tabla con la posición exacta del punto de la matriz que queremos obtener. //DOC_END { int argn = lua_gettop(L); // number of arguments if (argn != obj->getNumDim()+1) LUABIND_FERROR2("wrong size %d instead of %d",argn,obj->getNumDim()+2); ComplexF f; if (obj->getNumDim() == 1) { int v1; LUABIND_GET_PARAMETER(1,int,v1); if (v1<1 || v1 > obj->getDimSize(0)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", v1, obj->getDimSize(0)); } LUABIND_GET_PARAMETER(obj->getNumDim()+1,ComplexF,f); (*obj)(v1-1) = f; } else if (obj->getNumDim() == 2) { int v1, v2; LUABIND_GET_PARAMETER(1,int,v1); LUABIND_GET_PARAMETER(2,int,v2); if (v1<1 || v1 > obj->getDimSize(0)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", v1, obj->getDimSize(0)); } if (v2<1 || v2 > obj->getDimSize(1)) { LUABIND_FERROR2("wrong index parameter: 2 <= %d <= %d is incorrect", v2, obj->getDimSize(1)); } LUABIND_GET_PARAMETER(obj->getNumDim()+1,ComplexF,f); (*obj)(v1-1, v2-1) = f; } else { int *coords = new int[obj->getNumDim()]; for (int i=0; igetNumDim(); ++i) { LUABIND_GET_PARAMETER(i+1,int,coords[i]); if (coords[i]<1 || coords[i] > obj->getDimSize(i)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", coords[i], obj->getDimSize(i)); } coords[i]--; } LUABIND_GET_PARAMETER(obj->getNumDim()+1,ComplexF,f); (*obj)(coords, obj->getNumDim()) = f; delete[] coords; } LUABIND_RETURN(MatrixComplexF, obj); } //BIND_END //BIND_METHOD MatrixComplexF offset { LUABIND_RETURN(int, obj->getOffset()); } //BIND_END //BIND_METHOD MatrixComplexF raw_get { int raw_pos; LUABIND_GET_PARAMETER(1, int, raw_pos); const ComplexF &aux = (*obj)[raw_pos]; LUABIND_RETURN(ComplexF, aux); } //BIND_END //BIND_METHOD MatrixComplexF raw_set { int raw_pos; ComplexF value; LUABIND_GET_PARAMETER(1, int, raw_pos); LUABIND_GET_PARAMETER(2, ComplexF, value); (*obj)[raw_pos] = value; LUABIND_RETURN(MatrixComplexF, obj); } //BIND_END //BIND_METHOD MatrixComplexF fill //DOC_BEGIN // void fill(realvalue, imgvalue) /// Permite poner todos los valores de la matriz a un mismo valor. //DOC_END { LUABIND_CHECK_ARGN(==, 1); ComplexF value; LUABIND_GET_PARAMETER(1,ComplexF,value); obj->fill(value); LUABIND_RETURN(MatrixComplexF, obj); } //BIND_END //BIND_METHOD MatrixComplexF zeros //DOC_BEGIN // void zeros(ComplexF value) /// Permite poner todos los valores de la matriz a un mismo valor. //DOC_END { obj->zeros(); LUABIND_RETURN(MatrixComplexF, obj); } //BIND_END //BIND_METHOD MatrixComplexF ones //DOC_BEGIN // void ones(ComplexF value) /// Permite poner todos los valores de la matriz a un mismo valor. //DOC_END { obj->ones(); LUABIND_RETURN(MatrixComplexF, obj); } //BIND_END //BIND_METHOD MatrixComplexF get_use_cuda { LUABIND_RETURN(bool, obj->getCudaFlag()); } //BIND_END //BIND_METHOD MatrixComplexF set_use_cuda { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, bool); bool v; LUABIND_GET_PARAMETER(1,bool, v); obj->setUseCuda(v); LUABIND_RETURN(MatrixComplexF, obj); } //BIND_END //BIND_METHOD MatrixComplexF get_major_order { if (obj->getMajorOrder() == CblasRowMajor) LUABIND_RETURN(string, "row_major"); else LUABIND_RETURN(string, "col_major"); } //BIND_END //BIND_METHOD MatrixComplexF dim { LUABIND_CHECK_ARGN(>=, 0); LUABIND_CHECK_ARGN(<=, 1); int pos; const int *d=obj->getDimPtr(); LUABIND_GET_OPTIONAL_PARAMETER(1, int, pos, -1); if (pos < 1) { LUABIND_VECTOR_TO_NEW_TABLE(int, d, obj->getNumDim()); LUABIND_RETURN_FROM_STACK(-1); } else LUABIND_RETURN(int, d[pos-1]); } //BIND_END //BIND_METHOD MatrixComplexF stride { LUABIND_CHECK_ARGN(>=, 0); LUABIND_CHECK_ARGN(<=, 1); int pos; const int *s=obj->getStridePtr(); LUABIND_GET_OPTIONAL_PARAMETER(1, int, pos, -1); if (pos < 1) { LUABIND_VECTOR_TO_NEW_TABLE(int, s, obj->getNumDim()); LUABIND_RETURN_FROM_STACK(-1); } else LUABIND_RETURN(int, s[pos-1]); } //BIND_END //BIND_METHOD MatrixComplexF slice { LUABIND_CHECK_ARGN(>=,2); LUABIND_CHECK_ARGN(<=,3); LUABIND_CHECK_PARAMETER(1, table); LUABIND_CHECK_PARAMETER(2, table); int *coords, *sizes, coords_len, sizes_len; bool clone; LUABIND_TABLE_GETN(1, coords_len); LUABIND_TABLE_GETN(2, sizes_len); if (coords_len != sizes_len || coords_len != obj->getNumDim()) LUABIND_FERROR3("Incorrect number of dimensions, expected %d, " "found %d and %d\n", obj->getNumDim(), coords_len, sizes_len); coords = new int[coords_len]; sizes = new int[sizes_len]; LUABIND_TABLE_TO_VECTOR_SUB1(1, int, coords, coords_len); LUABIND_TABLE_TO_VECTOR(2, int, sizes, sizes_len); for (int i=0; i obj->getDimSize(i)) LUABIND_FERROR1("Incorrect size or coord at position %d\n", i+1); LUABIND_GET_OPTIONAL_PARAMETER(3, bool, clone, false); MatrixComplexF *obj2 = new MatrixComplexF(obj, coords, sizes, clone); LUABIND_RETURN(MatrixComplexF, obj2); delete[] coords; delete[] sizes; } //BIND_END //BIND_METHOD MatrixComplexF select { LUABIND_CHECK_ARGN(>=,2); LUABIND_CHECK_ARGN(<=,3); LUABIND_CHECK_PARAMETER(1, int); LUABIND_CHECK_PARAMETER(2, int); int dim, index; MatrixComplexF *dest; LUABIND_GET_PARAMETER(1, int, dim); LUABIND_GET_PARAMETER(2, int, index); LUABIND_GET_OPTIONAL_PARAMETER(3, MatrixComplexF, dest, 0); MatrixComplexF *obj2 = obj->select(dim-1, index-1, dest); LUABIND_RETURN(MatrixComplexF, obj2); } //BIND_END //BIND_METHOD MatrixComplexF clone //DOC_BEGIN // matrix *clone() /// Devuelve un clon de la matriz. //DOC_END { LUABIND_CHECK_ARGN(>=, 0); LUABIND_CHECK_ARGN(<=, 1); int argn; argn = lua_gettop(L); // number of arguments MatrixComplexF *obj2; if (argn == 0) obj2 = obj->clone(); else { const char *major; LUABIND_GET_OPTIONAL_PARAMETER(1, string, major, "row_major"); CBLAS_ORDER order=CblasRowMajor; if (strcmp(major, "col_major") == 0) order = CblasColMajor; else if (strcmp(major, "row_major") != 0) LUABIND_FERROR1("Incorrect major order string %s", major); obj2 = obj->clone(order); } LUABIND_RETURN(MatrixComplexF,obj2); } //BIND_END //BIND_METHOD MatrixComplexF transpose { LUABIND_RETURN(MatrixComplexF, obj->transpose()); } //BIND_END //BIND_METHOD MatrixComplexF isfinite //DOC_BEGIN // bool isfinite /// Devuelve false si algun valor es nan o infinito. //DOC_END { LUABIND_CHECK_ARGN(==, 0); bool resul=true; for (MatrixComplexF::iterator it(obj->begin()); resul && it!=obj->end(); ++it) //if (!isfinite(obj->data[i])) resul = 0; if (((*it) - (*it)) != ComplexF::zero_zero()) resul = false; LUABIND_RETURN(boolean,resul); } //BIND_END //BIND_METHOD MatrixComplexF diag { LUABIND_CHECK_ARGN(==,1); ComplexF v; LUABIND_GET_PARAMETER(1, ComplexF, v); obj->diag(v); LUABIND_RETURN(MatrixComplexF, obj); } //BIND_END //BIND_METHOD MatrixComplexF toTable // Permite salvar una matriz en una tabla lua // TODO: Tener en cuenta las dimensiones de la matriz { LUABIND_CHECK_ARGN(==, 0); lua_createtable (L, obj->size()<<1, 0); int index = 1; for (MatrixComplexF::const_iterator it(obj->begin()); it != obj->end(); ++it) { lua_pushComplexF(L, *it); lua_rawseti(L, -2, index++); } LUABIND_RETURN_FROM_STACK(-1); } //BIND_END //BIND_METHOD MatrixComplexF equals { MatrixComplexF *other; float epsilon; LUABIND_GET_PARAMETER(1, MatrixComplexF, other); LUABIND_GET_OPTIONAL_PARAMETER(2, float, epsilon, 1e-04f); LUABIND_RETURN(boolean, obj->equals(other, epsilon)); } //BIND_END //BIND_METHOD MatrixComplexF add { int argn; argn = lua_gettop(L); // number of arguments LUABIND_CHECK_ARGN(==, 1); MatrixComplexF *mat,*resul; LUABIND_GET_PARAMETER(1, MatrixComplexF, mat); if (!obj->sameDim(mat)) LUABIND_ERROR("matrix add wrong dimensions"); resul = obj->addition(mat); LUABIND_RETURN(MatrixComplexF, resul); } //BIND_END //BIND_METHOD MatrixComplexF scalar_add { int argn; LUABIND_CHECK_ARGN(==, 1); ComplexF scalar; LUABIND_GET_PARAMETER(1, ComplexF, scalar); obj->scalarAdd(scalar); LUABIND_RETURN(MatrixComplexF, obj); } //BIND_END //BIND_METHOD MatrixComplexF sub { LUABIND_CHECK_ARGN(==, 1); MatrixComplexF *mat,*resul; LUABIND_GET_PARAMETER(1, MatrixComplexF, mat); if (!obj->sameDim(mat)) LUABIND_ERROR("matrix sub wrong dimensions"); resul = obj->substraction(mat); LUABIND_RETURN(MatrixComplexF, resul); } //BIND_END //BIND_METHOD MatrixComplexF mul { LUABIND_CHECK_ARGN(==, 1); MatrixComplexF *mat,*resul; LUABIND_GET_PARAMETER(1, MatrixComplexF, mat); resul = obj->multiply(mat); if (resul == 0) LUABIND_ERROR("matrix mul wrong dimensions"); LUABIND_RETURN(MatrixComplexF, resul); } //BIND_END //BIND_METHOD MatrixComplexF cmul { LUABIND_CHECK_ARGN(==, 1); MatrixComplexF *mat; LUABIND_GET_PARAMETER(1, MatrixComplexF, mat); obj->cmul(mat); LUABIND_RETURN(MatrixComplexF, obj); } //BIND_END //BIND_METHOD MatrixComplexF sum { int argn = lua_gettop(L); // number of arguments if (argn == 1) { int dim; LUABIND_GET_PARAMETER(1, int, dim); MatrixComplexF *result = obj->sum(dim-1); LUABIND_RETURN(MatrixComplexF, result); } else if (argn == 0) LUABIND_RETURN(ComplexF, obj->sum()); else LUABIND_ERROR("Incorrect number of arguments"); } //BIND_END //BIND_METHOD MatrixComplexF copy { LUABIND_CHECK_ARGN(==, 1); MatrixComplexF *mat; LUABIND_GET_PARAMETER(1, MatrixComplexF, mat); obj->copy(mat); LUABIND_RETURN(MatrixComplexF, obj); } //BIND_END //BIND_METHOD MatrixComplexF axpy { LUABIND_CHECK_ARGN(==, 2); ComplexF alpha; MatrixComplexF *mat; LUABIND_GET_PARAMETER(1, ComplexF, alpha); LUABIND_GET_PARAMETER(2, MatrixComplexF, mat); obj->axpy(alpha, mat); LUABIND_RETURN(MatrixComplexF, obj); } //BIND_END //BIND_METHOD MatrixComplexF gemm { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L,1, "trans_A", "trans_B", "alpha", "A", "B", "beta", (const char *)0); bool trans_A, trans_B; ComplexF alpha; ComplexF beta; MatrixComplexF *matA,*matB; LUABIND_GET_TABLE_PARAMETER(1, A, MatrixComplexF, matA); LUABIND_GET_TABLE_PARAMETER(1, B, MatrixComplexF, matB); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, trans_A, bool, trans_A, false); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, trans_B, bool, trans_B, false); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, alpha, ComplexF, alpha, ComplexF::one_zero()); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, beta, ComplexF, beta, ComplexF::one_zero()); obj->gemm(trans_A ? CblasTrans : CblasNoTrans, trans_B ? CblasTrans : CblasNoTrans, alpha, matA, matB, beta); LUABIND_RETURN(MatrixComplexF, obj); } //BIND_END //BIND_METHOD MatrixComplexF gemv { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L,1, "trans_A", "alpha", "A", "X", "beta", (const char *)0); bool trans_A; ComplexF alpha; ComplexF beta; MatrixComplexF *matA,*matX; LUABIND_GET_TABLE_PARAMETER(1, A, MatrixComplexF, matA); LUABIND_GET_TABLE_PARAMETER(1, X, MatrixComplexF, matX); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, trans_A, bool, trans_A, false); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, alpha, ComplexF, alpha, ComplexF::one_zero()); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, beta, ComplexF, beta, ComplexF::one_zero()); obj->gemv(trans_A ? CblasTrans : CblasNoTrans, alpha, matA, matX, beta); LUABIND_RETURN(MatrixComplexF, obj); } //BIND_END //BIND_METHOD MatrixComplexF ger { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L,1, "alpha", "X", "Y", (const char *)0); ComplexF alpha; MatrixComplexF *matX,*matY; LUABIND_GET_TABLE_PARAMETER(1, X, MatrixComplexF, matX); LUABIND_GET_TABLE_PARAMETER(1, Y, MatrixComplexF, matY); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, alpha, ComplexF, alpha, ComplexF::one_zero()); obj->ger(alpha, matX, matY); LUABIND_RETURN(MatrixComplexF, obj); } //BIND_END //BIND_METHOD MatrixComplexF dot { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, MatrixComplexF); MatrixComplexF *matX; LUABIND_GET_PARAMETER(1, MatrixComplexF, matX); LUABIND_RETURN(ComplexF, obj->dot(matX)); } //BIND_END //BIND_METHOD MatrixComplexF scal { LUABIND_CHECK_ARGN(==, 1); ComplexF value; LUABIND_GET_PARAMETER(1, ComplexF, value); obj->scal(value); LUABIND_RETURN(MatrixComplexF, obj); } //BIND_END //BIND_METHOD MatrixComplexF norm2 { LUABIND_RETURN(float, obj->norm2()); } //BIND_END //BIND_METHOD MatrixComplexF uniform { int lower, upper; MTRand *random; LUABIND_GET_PARAMETER(1, int, lower); LUABIND_GET_PARAMETER(2, int, upper); LUABIND_GET_OPTIONAL_PARAMETER(3, MTRand, random, 0); if (lower < 0) LUABIND_ERROR("Allowed only for positive integers"); if (lower > upper) LUABIND_ERROR("First argument must be <= second argument"); if (random == 0) random = new MTRand(); IncRef(random); if (obj->getMajorOrder() == CblasRowMajor) for (MatrixComplexF::iterator it(obj->begin()); it != obj->end(); ++it) { *it = ComplexF(static_cast(random->randInt(upper - lower) + lower), 0.0f); } else for (MatrixComplexF::col_major_iterator it(obj->begin());it!=obj->end();++it) { *it = ComplexF(static_cast(random->randInt(upper - lower) + lower), 0.0f); } DecRef(random); LUABIND_RETURN(MatrixComplexF, obj); } //BIND_END //BIND_METHOD MatrixComplexF linear { int lower, step; MTRand *random; LUABIND_GET_OPTIONAL_PARAMETER(1, int, lower, 0); LUABIND_GET_OPTIONAL_PARAMETER(2, int, step, 1); int k=lower; for (MatrixComplexF::iterator it(obj->begin()); it != obj->end(); ++it, k+=step) { *it = ComplexF(static_cast(k), 0.0f); } LUABIND_RETURN(MatrixComplexF, obj); } //BIND_END //BIND_METHOD MatrixComplexF sliding_window { int *sub_matrix_size=0, *offset=0, *step=0, *num_steps=0, *order_step=0; int argn = lua_gettop(L); // number of arguments const int num_dim = obj->getNumDim(); if (argn > 1) LUABIND_ERROR("incorrect number of arguments"); if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "offset", "size", "step", "numSteps", "orderStep", (const char*)0); offset = read_vector(L, "offset", num_dim, 0); sub_matrix_size = read_vector(L, "size", num_dim, 0); step = read_vector(L, "step", num_dim, 0); num_steps = read_vector(L, "numSteps", num_dim, 0); order_step = read_vector(L, "orderStep", num_dim, -1); } SlidingWindowComplexF *window = new SlidingWindowComplexF(obj, sub_matrix_size, offset, step, num_steps, order_step); LUABIND_RETURN(SlidingWindowComplexF, window); delete[] sub_matrix_size; delete[] offset; delete[] step; delete[] num_steps; delete[] order_step; } //BIND_END //BIND_METHOD MatrixComplexF is_contiguous { LUABIND_RETURN(bool, obj->getIsContiguous()); } //BIND_END //BIND_METHOD MatrixComplexF to_float { LUABIND_RETURN(MatrixFloat, convertFromMatrixComplexFToMatrixFloat(obj)); } //BIND_END //BIND_METHOD MatrixComplexF conj { applyConjugateInPlace(obj); LUABIND_RETURN(MatrixComplexF, obj); } //BIND_END //BIND_METHOD MatrixComplexF real { LUABIND_RETURN(MatrixFloat, realPartFromMatrixComplexFToMatrixFloat(obj)); } //BIND_END //BIND_METHOD MatrixComplexF img { LUABIND_RETURN(MatrixFloat, imgPartFromMatrixComplexFToMatrixFloat(obj)); } //BIND_END //BIND_METHOD MatrixComplexF abs { LUABIND_RETURN(MatrixFloat, absFromMatrixComplexFToMatrixFloat(obj)); } //BIND_END //BIND_METHOD MatrixComplexF angle { LUABIND_RETURN(MatrixFloat, angleFromMatrixComplexFToMatrixFloat(obj)); } //BIND_END ////////////////////////////////////////////////////////////////////// april-ann-0.3.1/packages/basics/matrix/binding/bind_matrix_double.lua.cc000066400000000000000000000423561234204160600262650ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C #include "bind_matrix.h" #include "utilMatrixDouble.h" #include "luabindutil.h" #include "luabindmacros.h" #define FUNCTION_NAME "read_vector" static int *read_vector(lua_State *L, const char *key, int num_dim, int add) { int *v=0; lua_getfield(L, 1, key); if (!lua_isnil(L, -1)) { LUABIND_CHECK_PARAMETER(-1, table); int table_len; LUABIND_TABLE_GETN(-1, table_len); if (table_len != num_dim) LUABIND_FERROR3("Table '%s' with incorrect size, expected %d, found %d", key, num_dim, table_len); v = new int[num_dim]; for(int i=0; i < num_dim; i++) { lua_rawgeti(L, -1, i+1); v[i] = static_cast(lua_tonumber(L, -1)) + add; lua_pop(L,1); } } lua_pop(L, 1); return v; } #undef FUNCTION_NAME int sliding_window_matrixDouble_iterator_function(lua_State *L) { SlidingWindowMatrixDouble *obj = lua_toSlidingWindowMatrixDouble(L,1); if (obj->isEnd()) { lua_pushnil(L); return 1; } MatrixDouble *mat = obj->getMatrix(); lua_pushMatrixDouble(L, mat); obj->next(); return 1; } //BIND_END //BIND_HEADER_H #include "matrixDouble.h" typedef MatrixDouble::sliding_window SlidingWindowMatrixDouble; //BIND_END //BIND_LUACLASSNAME MatrixDouble matrixDouble //BIND_CPP_CLASS MatrixDouble //BIND_LUACLASSNAME SlidingWindowMatrixDouble matrixDouble.__sliding_window__ //BIND_CPP_CLASS SlidingWindowMatrixDouble //BIND_CONSTRUCTOR SlidingWindowMatrixDouble { LUABIND_ERROR("Use matrixDouble.sliding_window"); } //BIND_END //BIND_METHOD SlidingWindowMatrixDouble get_matrix { MatrixDouble *dest; LUABIND_GET_OPTIONAL_PARAMETER(1, MatrixDouble, dest, 0); LUABIND_RETURN(MatrixDouble, obj->getMatrix(dest)); } //BIND_END //BIND_METHOD SlidingWindowMatrixDouble next { LUABIND_RETURN(SlidingWindowMatrixDouble, obj->next()); } //BIND_END //BIND_METHOD SlidingWindowMatrixDouble set_at_window { int windex; LUABIND_CHECK_ARGN(==,1); LUABIND_GET_PARAMETER(1, int, windex); if (windex < 1) LUABIND_ERROR("Index must be >= 1\n"); obj->setAtWindow(windex-1); LUABIND_RETURN(SlidingWindowMatrixDouble, obj); } //BIND_END //BIND_METHOD SlidingWindowMatrixDouble num_windows { LUABIND_RETURN(int, obj->numWindows()); } //BIND_END //BIND_METHOD SlidingWindowMatrixDouble coords { LUABIND_VECTOR_TO_NEW_TABLE(int, obj->getCoords(), obj->getNumDim()); LUABIND_RETURN_FROM_STACK(-1); } //BIND_END //BIND_METHOD SlidingWindowMatrixDouble is_end { LUABIND_RETURN(bool, obj->isEnd()); } //BIND_END //BIND_METHOD SlidingWindowMatrixDouble iterate { LUABIND_CHECK_ARGN(==, 0); LUABIND_RETURN(cfunction,sliding_window_matrixDouble_iterator_function); LUABIND_RETURN(SlidingWindowMatrixDouble,obj); } //BIND_END ////////////////////////////////////////////////////////////////////// //BIND_CONSTRUCTOR MatrixDouble { int i,argn; argn = lua_gettop(L); // number of arguments LUABIND_CHECK_ARGN(>=, 1); int ndims = (!lua_isnumber(L,argn)) ? argn-1 : argn; int *dim; if (ndims == 0) { // caso matrix{valores} ndims = 1; dim = new int[ndims]; LUABIND_TABLE_GETN(1, dim[0]); } else { dim = new int[ndims]; for (i=1; i <= ndims; i++) { if (!lua_isnumber(L,i)) // TODO: Este mensaje de error parece que no es correcto... y no se todavia por que!!! LUABIND_FERROR2("incorrect argument to matrix dimension (arg %d must" " be a number and is a %s)", i, lua_typename(L,i)); dim[i-1] = (int)lua_tonumber(L,i); if (dim[i-1] <= 0) LUABIND_FERROR1("incorrect argument to matrix dimension (arg %d must be >0)",i); } } MatrixDouble* obj; obj = new MatrixDouble(ndims,dim); if (lua_istable(L,argn)) { int i=1; for (MatrixDouble::iterator it(obj->begin()); it != obj->end(); ++i, ++it) { lua_rawgeti(L,argn,i); double v = luaL_checknumber(L,-1); *it = v; lua_remove(L,-1); } } delete[] dim; LUABIND_RETURN(MatrixDouble,obj); } //BIND_END //BIND_METHOD MatrixDouble size { LUABIND_RETURN(int, obj->size()); } //BIND_END //BIND_METHOD MatrixDouble rewrap { LUABIND_CHECK_ARGN(>=, 1); int ndims; ndims = lua_gettop(L); // number of dimensions int *dims = new int[ndims]; for (int i=1; i <= ndims; i++) { LUABIND_GET_PARAMETER(i, int, dims[i-1]); if (dims[i-1] <= 0) LUABIND_FERROR1("incorrect argument to matrix dimension (arg %d must be >0)",i); } MatrixDouble *new_obj = obj->rewrap(dims, ndims); delete[] dims; LUABIND_RETURN(MatrixDouble,new_obj); } //BIND_END //BIND_METHOD MatrixDouble get_reference_string { char buff[128]; sprintf(buff,"%p data= %p", (void*)obj, (void*)obj->getRawDataAccess()); LUABIND_RETURN(string, buff); } //BIND_END //BIND_CLASS_METHOD MatrixDouble fromFilename { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, string); const char *filename; LUABIND_GET_PARAMETER(1,string,filename); MatrixDouble *obj; if ((obj = readMatrixDoubleFromFile(filename)) == 0) LUABIND_ERROR("bad format"); else LUABIND_RETURN(MatrixDouble,obj); } //BIND_END //BIND_CLASS_METHOD MatrixDouble fromString { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, string); constString cs; LUABIND_GET_PARAMETER(1,constString,cs); MatrixDouble *obj; if ((obj = readMatrixDoubleFromString(cs)) == 0) LUABIND_ERROR("bad format"); else LUABIND_RETURN(MatrixDouble,obj); } //BIND_END //BIND_METHOD MatrixDouble toFilename { LUABIND_CHECK_ARGN(>=, 1); LUABIND_CHECK_ARGN(<=, 2); const char *filename; constString cs; LUABIND_GET_PARAMETER(1, string, filename); LUABIND_GET_OPTIONAL_PARAMETER(2,constString,cs,constString("binary")); bool is_ascii = (cs == "ascii"); writeMatrixDoubleToFile(obj, filename, is_ascii); } //BIND_END //BIND_METHOD MatrixDouble toString { LUABIND_CHECK_ARGN(<=, 1); constString cs; LUABIND_GET_OPTIONAL_PARAMETER(1,constString,cs,constString("binary")); bool is_ascii = (cs == "ascii"); writeMatrixDoubleToLuaString(obj, L, is_ascii); LUABIND_INCREASE_NUM_RETURNS(1); } //BIND_END //BIND_METHOD MatrixDouble copy_from_table //DOC_BEGIN // void copy_from_table(table matrix_values) /// Permite dar valores a una matriz. Require una tabla con un numero /// de argumentos igual al numero de elementos de la matriz. ///@param matrix_values Tabla con los elementos de la matriz. //DOC_END { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); int veclen; LUABIND_TABLE_GETN(1, veclen); if (veclen != obj->size()) LUABIND_FERROR2("wrong size %d instead of %d",veclen,obj->size()); int i=1; for (MatrixDouble::iterator it(obj->begin()); it != obj->end(); ++i, ++it) { lua_rawgeti(L,1,i); double v = luaL_checknumber(L,-1); *it = v; lua_remove(L,-1); } LUABIND_RETURN(MatrixDouble, obj); } //BIND_END //BIND_METHOD MatrixDouble get //DOC_BEGIN // double get(coordinates) /// Permite ver valores de una matriz. Requiere tantos indices como dimensiones tenga la matriz. ///@param coordinates Tabla con la posición exacta del punto de la matriz que queremos obtener. //DOC_END { int argn = lua_gettop(L); // number of arguments if (argn != obj->getNumDim()) LUABIND_FERROR2("wrong size %d instead of %d",argn,obj->getNumDim()); double ret; if (obj->getNumDim() == 1) { int v1; LUABIND_GET_PARAMETER(1,int,v1); if (v1<1 || v1 > obj->getDimSize(0)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", v1, obj->getDimSize(0)); } ret = (*obj)(v1-1); } else if (obj->getNumDim() == 2) { int v1, v2; LUABIND_GET_PARAMETER(1,int,v1); LUABIND_GET_PARAMETER(2,int,v2); if (v1<1 || v1 > obj->getDimSize(0)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", v1, obj->getDimSize(0)); } if (v2<1 || v2 > obj->getDimSize(1)) { LUABIND_FERROR2("wrong index parameter: 2 <= %d <= %d is incorrect", v2, obj->getDimSize(1)); } ret = (*obj)(v1-1, v2-1); } else { int *coords = new int[obj->getNumDim()]; for (int i=0; igetNumDim(); ++i) { LUABIND_GET_PARAMETER(i+1,int,coords[i]); if (coords[i]<1 || coords[i] > obj->getDimSize(i)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", coords[i], obj->getDimSize(i)); } coords[i]--; } ret = (*obj)(coords, obj->getNumDim()); delete[] coords; } LUABIND_RETURN(double, ret); } //BIND_END //BIND_METHOD MatrixDouble set //DOC_BEGIN // double set(coordinates,value) /// Permite cambiar el valor de un elemento en la matriz. Requiere /// tantos indices como dimensiones tenga la matriz y adicionalmente /// el valor a cambiar ///@param coordinates Tabla con la posición exacta del punto de la matriz que queremos obtener. //DOC_END { int argn = lua_gettop(L); // number of arguments if (argn != obj->getNumDim()+1) LUABIND_FERROR2("wrong size %d instead of %d",argn,obj->getNumDim()+1); double value; if (obj->getNumDim() == 1) { int v1; LUABIND_GET_PARAMETER(1,int,v1); if (v1<1 || v1 > obj->getDimSize(0)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", v1, obj->getDimSize(0)); } LUABIND_GET_PARAMETER(obj->getNumDim()+1,double,value); (*obj)(v1-1) = value; } else if (obj->getNumDim() == 2) { int v1, v2; LUABIND_GET_PARAMETER(1,int,v1); LUABIND_GET_PARAMETER(2,int,v2); if (v1<1 || v1 > obj->getDimSize(0)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", v1, obj->getDimSize(0)); } if (v2<1 || v2 > obj->getDimSize(1)) { LUABIND_FERROR2("wrong index parameter: 2 <= %d <= %d is incorrect", v2, obj->getDimSize(1)); } LUABIND_GET_PARAMETER(obj->getNumDim()+1,double,value); (*obj)(v1-1, v2-1) = value; } else { int *coords = new int[obj->getNumDim()]; for (int i=0; igetNumDim(); ++i) { LUABIND_GET_PARAMETER(i+1,int,coords[i]); if (coords[i]<1 || coords[i] > obj->getDimSize(i)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", coords[i], obj->getDimSize(i)); } coords[i]--; } LUABIND_GET_PARAMETER(obj->getNumDim()+1,double,value); (*obj)(coords, obj->getNumDim()) = value; delete[] coords; } LUABIND_RETURN(MatrixDouble, obj); } //BIND_END //BIND_METHOD MatrixDouble offset { LUABIND_RETURN(int, obj->getOffset()); } //BIND_END //BIND_METHOD MatrixDouble raw_get { int raw_pos; LUABIND_GET_PARAMETER(1, int, raw_pos); LUABIND_RETURN(double, (*obj)[raw_pos]); } //BIND_END //BIND_METHOD MatrixDouble raw_set { int raw_pos; int value; LUABIND_GET_PARAMETER(1, int, raw_pos); LUABIND_GET_PARAMETER(2, int, value); (*obj)[raw_pos] = static_cast(value); LUABIND_RETURN(MatrixDouble, obj); } //BIND_END //BIND_METHOD MatrixDouble fill //DOC_BEGIN // void fill(double value) /// Permite poner todos los valores de la matriz a un mismo valor. //DOC_END { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, string); double value; LUABIND_GET_PARAMETER(1,double,value); obj->fill(static_cast(value)); LUABIND_RETURN(MatrixDouble, obj); } //BIND_END //BIND_METHOD MatrixDouble zeros { obj->zeros(); LUABIND_RETURN(MatrixDouble, obj); } //BIND_END //BIND_METHOD MatrixDouble ones { obj->ones(); LUABIND_RETURN(MatrixDouble, obj); } //BIND_END //BIND_METHOD MatrixDouble dim { LUABIND_CHECK_ARGN(>=, 0); LUABIND_CHECK_ARGN(<=, 1); int pos; const int *d=obj->getDimPtr(); LUABIND_GET_OPTIONAL_PARAMETER(1, int, pos, -1); if (pos < 1) { LUABIND_VECTOR_TO_NEW_TABLE(int, d, obj->getNumDim()); LUABIND_RETURN_FROM_STACK(-1); } else LUABIND_RETURN(int, d[pos-1]); } //BIND_END //BIND_METHOD MatrixDouble stride { LUABIND_CHECK_ARGN(>=, 0); LUABIND_CHECK_ARGN(<=, 1); int pos; const int *s=obj->getStridePtr(); LUABIND_GET_OPTIONAL_PARAMETER(1, int, pos, -1); if (pos < 1) { LUABIND_VECTOR_TO_NEW_TABLE(int, s, obj->getNumDim()); LUABIND_RETURN_FROM_STACK(-1); } else LUABIND_RETURN(int, s[pos-1]); } //BIND_END //BIND_METHOD MatrixDouble slice { LUABIND_CHECK_ARGN(>=,2); LUABIND_CHECK_ARGN(<=,3); LUABIND_CHECK_PARAMETER(1, table); LUABIND_CHECK_PARAMETER(2, table); int *coords, *sizes, coords_len, sizes_len; bool clone; LUABIND_TABLE_GETN(1, coords_len); LUABIND_TABLE_GETN(2, sizes_len); if (coords_len != sizes_len || coords_len != obj->getNumDim()) LUABIND_FERROR3("Incorrect number of dimensions, expected %d, " "found %d and %d\n", obj->getNumDim(), coords_len, sizes_len); coords = new int[coords_len]; sizes = new int[sizes_len]; LUABIND_TABLE_TO_VECTOR_SUB1(1, int, coords, coords_len); LUABIND_TABLE_TO_VECTOR(2, int, sizes, sizes_len); for (int i=0; i obj->getDimSize(i)) LUABIND_FERROR1("Incorrect size or coord at position %d\n", i+1); LUABIND_GET_OPTIONAL_PARAMETER(3, bool, clone, false); MatrixDouble *obj2 = new MatrixDouble(obj, coords, sizes, clone); LUABIND_RETURN(MatrixDouble, obj2); delete[] coords; delete[] sizes; } //BIND_END //BIND_METHOD MatrixDouble select { LUABIND_CHECK_ARGN(>=,2); LUABIND_CHECK_ARGN(<=,3); LUABIND_CHECK_PARAMETER(1, int); LUABIND_CHECK_PARAMETER(2, int); int dim, index; MatrixDouble *dest; LUABIND_GET_PARAMETER(1, int, dim); LUABIND_GET_PARAMETER(2, int, index); LUABIND_GET_OPTIONAL_PARAMETER(3, MatrixDouble, dest, 0); MatrixDouble *obj2 = obj->select(dim-1, index-1, dest); LUABIND_RETURN(MatrixDouble, obj2); } //BIND_END //BIND_METHOD MatrixDouble clone //DOC_BEGIN // matrix *clone() /// Devuelve un clon de la matriz. //DOC_END { LUABIND_CHECK_ARGN(>=, 0); LUABIND_CHECK_ARGN(<=, 1); int argn; argn = lua_gettop(L); // number of arguments MatrixDouble *obj2; if (argn == 0) obj2 = obj->clone(); else { const char *major; LUABIND_GET_OPTIONAL_PARAMETER(1, string, major, "row_major"); CBLAS_ORDER order=CblasRowMajor; if (strcmp(major, "col_major") == 0) order = CblasColMajor; else if (strcmp(major, "row_major") != 0) LUABIND_FERROR1("Incorrect major order char %s", major); obj2 = obj->clone(order); } LUABIND_RETURN(MatrixDouble,obj2); } //BIND_END //BIND_METHOD MatrixDouble transpose { LUABIND_RETURN(MatrixDouble, obj->transpose()); } //BIND_END //BIND_METHOD MatrixDouble diag { LUABIND_CHECK_ARGN(==,1); double v; LUABIND_GET_PARAMETER(1, double, v); obj->diag(static_cast(v)); LUABIND_RETURN(MatrixDouble, obj); } //BIND_END //BIND_METHOD MatrixDouble toTable // Permite salvar una matriz en una tabla lua // TODO: Tener en cuenta las dimensiones de la matriz { LUABIND_CHECK_ARGN(==, 0); lua_createtable(L, obj->size(), 0); int index = 1; for (MatrixDouble::iterator it(obj->begin()); it != obj->end(); ++it) { lua_pushint(L, *it); lua_rawseti(L, -2, index++); } LUABIND_RETURN_FROM_STACK(-1); } //BIND_END //BIND_METHOD MatrixDouble sliding_window { int *sub_matrix_size=0, *offset=0, *step=0, *num_steps=0, *order_step=0; int argn = lua_gettop(L); // number of arguments const int num_dim = obj->getNumDim(); if (argn > 1) LUABIND_ERROR("incorrect number of arguments"); if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "offset", "size", "step", "numSteps", "orderStep", (const char*)0); offset = read_vector(L, "offset", num_dim, 0); sub_matrix_size = read_vector(L, "size", num_dim, 0); step = read_vector(L, "step", num_dim, 0); num_steps = read_vector(L, "numSteps", num_dim, 0); order_step = read_vector(L, "orderStep", num_dim, -1); } SlidingWindowMatrixDouble *window = new SlidingWindowMatrixDouble(obj, sub_matrix_size, offset, step, num_steps, order_step); LUABIND_RETURN(SlidingWindowMatrixDouble, window); delete[] sub_matrix_size; delete[] offset; delete[] step; delete[] num_steps; delete[] order_step; } //BIND_END //BIND_METHOD MatrixDouble is_contiguous { LUABIND_RETURN(bool, obj->getIsContiguous()); } //BIND_END //BIND_METHOD MatrixDouble to_float { bool col_major; LUABIND_GET_OPTIONAL_PARAMETER(1, bool, col_major, false); LUABIND_RETURN(MatrixFloat, convertFromMatrixDoubleToMatrixFloat(obj, col_major)); } //BIND_END //BIND_METHOD MatrixDouble copy { int argn; LUABIND_CHECK_ARGN(==, 1); MatrixDouble *mat; LUABIND_GET_PARAMETER(1, MatrixDouble, mat); obj->copy(mat); LUABIND_RETURN(MatrixDouble, obj); } //BIND_END ////////////////////////////////////////////////////////////////////// april-ann-0.3.1/packages/basics/matrix/binding/bind_matrix_int32.lua.cc000066400000000000000000000421431234204160600257440ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C #include "bind_matrix.h" #include "utilMatrixInt32.h" #include "luabindutil.h" #include "luabindmacros.h" #define FUNCTION_NAME "read_vector" static int *read_vector(lua_State *L, const char *key, int num_dim, int add) { int *v=0; lua_getfield(L, 1, key); if (!lua_isnil(L, -1)) { LUABIND_CHECK_PARAMETER(-1, table); int table_len; LUABIND_TABLE_GETN(-1, table_len); if (table_len != num_dim) LUABIND_FERROR3("Table '%s' with incorrect size, expected %d, found %d", key, num_dim, table_len); v = new int[num_dim]; for(int i=0; i < num_dim; i++) { lua_rawgeti(L, -1, i+1); v[i] = static_cast(lua_tonumber(L, -1)) + add; lua_pop(L,1); } } lua_pop(L, 1); return v; } #undef FUNCTION_NAME int sliding_window_matrixInt32_iterator_function(lua_State *L) { SlidingWindowMatrixInt32 *obj = lua_toSlidingWindowMatrixInt32(L,1); if (obj->isEnd()) { lua_pushnil(L); return 1; } MatrixInt32 *mat = obj->getMatrix(); lua_pushMatrixInt32(L, mat); obj->next(); return 1; } //BIND_END //BIND_HEADER_H #include "matrixInt32.h" typedef MatrixInt32::sliding_window SlidingWindowMatrixInt32; //BIND_END //BIND_LUACLASSNAME MatrixInt32 matrixInt32 //BIND_CPP_CLASS MatrixInt32 //BIND_LUACLASSNAME SlidingWindowMatrixInt32 matrixInt32.__sliding_window__ //BIND_CPP_CLASS SlidingWindowMatrixInt32 //BIND_CONSTRUCTOR SlidingWindowMatrixInt32 { LUABIND_ERROR("Use matrixInt32.sliding_window"); } //BIND_END //BIND_METHOD SlidingWindowMatrixInt32 get_matrix { MatrixInt32 *dest; LUABIND_GET_OPTIONAL_PARAMETER(1, MatrixInt32, dest, 0); LUABIND_RETURN(MatrixInt32, obj->getMatrix(dest)); } //BIND_END //BIND_METHOD SlidingWindowMatrixInt32 next { LUABIND_RETURN(SlidingWindowMatrixInt32, obj->next()); } //BIND_END //BIND_METHOD SlidingWindowMatrixInt32 set_at_window { int windex; LUABIND_CHECK_ARGN(==,1); LUABIND_GET_PARAMETER(1, int, windex); if (windex < 1) LUABIND_ERROR("Index must be >= 1\n"); obj->setAtWindow(windex-1); LUABIND_RETURN(SlidingWindowMatrixInt32, obj); } //BIND_END //BIND_METHOD SlidingWindowMatrixInt32 num_windows { LUABIND_RETURN(int, obj->numWindows()); } //BIND_END //BIND_METHOD SlidingWindowMatrixInt32 coords { LUABIND_VECTOR_TO_NEW_TABLE(int, obj->getCoords(), obj->getNumDim()); LUABIND_RETURN_FROM_STACK(-1); } //BIND_END //BIND_METHOD SlidingWindowMatrixInt32 is_end { LUABIND_RETURN(bool, obj->isEnd()); } //BIND_END //BIND_METHOD SlidingWindowMatrixInt32 iterate { LUABIND_CHECK_ARGN(==, 0); LUABIND_RETURN(cfunction,sliding_window_matrixInt32_iterator_function); LUABIND_RETURN(SlidingWindowMatrixInt32,obj); } //BIND_END ////////////////////////////////////////////////////////////////////// //BIND_CONSTRUCTOR MatrixInt32 { int i,argn; argn = lua_gettop(L); // number of arguments LUABIND_CHECK_ARGN(>=, 1); int ndims = (!lua_isnumber(L,argn)) ? argn-1 : argn; int *dim; if (ndims == 0) { // caso matrix{valores} ndims = 1; dim = new int[ndims]; LUABIND_TABLE_GETN(1, dim[0]); } else { dim = new int[ndims]; for (i=1; i <= ndims; i++) { if (!lua_isnumber(L,i)) // TODO: Este mensaje de error parece que no es correcto... y no se todavia por que!!! LUABIND_FERROR2("incorrect argument to matrix dimension (arg %d must" " be a number and is a %s)", i, lua_typename(L,i)); dim[i-1] = (int)lua_tonumber(L,i); if (dim[i-1] <= 0) LUABIND_FERROR1("incorrect argument to matrix dimension (arg %d must be >0)",i); } } MatrixInt32* obj; obj = new MatrixInt32(ndims,dim); if (lua_istable(L,argn)) { int i=1; for (MatrixInt32::iterator it(obj->begin()); it != obj->end(); ++i, ++it) { lua_rawgeti(L,argn,i); int32_t v = luaL_checkint(L,-1); *it = v; lua_remove(L,-1); } } delete[] dim; LUABIND_RETURN(MatrixInt32,obj); } //BIND_END //BIND_METHOD MatrixInt32 size { LUABIND_RETURN(int, obj->size()); } //BIND_END //BIND_METHOD MatrixInt32 rewrap { LUABIND_CHECK_ARGN(>=, 1); int ndims; ndims = lua_gettop(L); // number of dimensions int *dims = new int[ndims]; for (int i=1; i <= ndims; i++) { LUABIND_GET_PARAMETER(i, int, dims[i-1]); if (dims[i-1] <= 0) LUABIND_FERROR1("incorrect argument to matrix dimension (arg %d must be >0)",i); } MatrixInt32 *new_obj = obj->rewrap(dims, ndims); delete[] dims; LUABIND_RETURN(MatrixInt32,new_obj); } //BIND_END //BIND_METHOD MatrixInt32 get_reference_string { char buff[128]; sprintf(buff,"%p data= %p", (void*)obj, (void*)obj->getRawDataAccess()); LUABIND_RETURN(string, buff); } //BIND_END //BIND_CLASS_METHOD MatrixInt32 fromFilename { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, string); const char *filename; LUABIND_GET_PARAMETER(1,string,filename); MatrixInt32 *obj; if ((obj = readMatrixInt32FromFile(filename)) == 0) LUABIND_ERROR("bad format"); else LUABIND_RETURN(MatrixInt32,obj); } //BIND_END //BIND_CLASS_METHOD MatrixInt32 fromString { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, string); constString cs; LUABIND_GET_PARAMETER(1,constString,cs); MatrixInt32 *obj; if ((obj = readMatrixInt32FromString(cs)) == 0) LUABIND_ERROR("bad format"); else LUABIND_RETURN(MatrixInt32,obj); } //BIND_END //BIND_METHOD MatrixInt32 toFilename { LUABIND_CHECK_ARGN(>=, 1); LUABIND_CHECK_ARGN(<=, 2); const char *filename; constString cs; LUABIND_GET_PARAMETER(1, string, filename); LUABIND_GET_OPTIONAL_PARAMETER(2,constString,cs,constString("binary")); bool is_ascii = (cs == "ascii"); writeMatrixInt32ToFile(obj, filename, is_ascii); } //BIND_END //BIND_METHOD MatrixInt32 toString { LUABIND_CHECK_ARGN(<=, 1); constString cs; LUABIND_GET_OPTIONAL_PARAMETER(1,constString,cs,constString("binary")); bool is_ascii = (cs == "ascii"); writeMatrixInt32ToLuaString(obj, L, is_ascii); LUABIND_INCREASE_NUM_RETURNS(1); } //BIND_END //BIND_METHOD MatrixInt32 copy_from_table //DOC_BEGIN // void copy_from_table(table matrix_values) /// Permite dar valores a una matriz. Require una tabla con un numero /// de argumentos igual al numero de elementos de la matriz. ///@param matrix_values Tabla con los elementos de la matriz. //DOC_END { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); int veclen; LUABIND_TABLE_GETN(1, veclen); if (veclen != obj->size()) LUABIND_FERROR2("wrong size %d instead of %d",veclen,obj->size()); int i=1; for (MatrixInt32::iterator it(obj->begin()); it != obj->end(); ++i, ++it) { lua_rawgeti(L,1,i); int32_t v = luaL_checkint(L,-1); *it = v; lua_remove(L,-1); } LUABIND_RETURN(MatrixInt32, obj); } //BIND_END //BIND_METHOD MatrixInt32 get //DOC_BEGIN // float get(coordinates) /// Permite ver valores de una matriz. Requiere tantos indices como dimensiones tenga la matriz. ///@param coordinates Tabla con la posición exacta del punto de la matriz que queremos obtener. //DOC_END { int argn = lua_gettop(L); // number of arguments if (argn != obj->getNumDim()) LUABIND_FERROR2("wrong size %d instead of %d",argn,obj->getNumDim()); int32_t ret; if (obj->getNumDim() == 1) { int v1; LUABIND_GET_PARAMETER(1,int,v1); if (v1<1 || v1 > obj->getDimSize(0)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", v1, obj->getDimSize(0)); } ret = (*obj)(v1-1); } else if (obj->getNumDim() == 2) { int v1, v2; LUABIND_GET_PARAMETER(1,int,v1); LUABIND_GET_PARAMETER(2,int,v2); if (v1<1 || v1 > obj->getDimSize(0)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", v1, obj->getDimSize(0)); } if (v2<1 || v2 > obj->getDimSize(1)) { LUABIND_FERROR2("wrong index parameter: 2 <= %d <= %d is incorrect", v2, obj->getDimSize(1)); } ret = (*obj)(v1-1, v2-1); } else { int *coords = new int[obj->getNumDim()]; for (int i=0; igetNumDim(); ++i) { LUABIND_GET_PARAMETER(i+1,int,coords[i]); if (coords[i]<1 || coords[i] > obj->getDimSize(i)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", coords[i], obj->getDimSize(i)); } coords[i]--; } ret = (*obj)(coords, obj->getNumDim()); delete[] coords; } LUABIND_RETURN(int, ret); } //BIND_END //BIND_METHOD MatrixInt32 set //DOC_BEGIN // float set(coordinates,value) /// Permite cambiar el valor de un elemento en la matriz. Requiere /// tantos indices como dimensiones tenga la matriz y adicionalmente /// el valor a cambiar ///@param coordinates Tabla con la posición exacta del punto de la matriz que queremos obtener. //DOC_END { int argn = lua_gettop(L); // number of arguments if (argn != obj->getNumDim()+1) LUABIND_FERROR2("wrong size %d instead of %d",argn,obj->getNumDim()+1); int32_t value; if (obj->getNumDim() == 1) { int v1; LUABIND_GET_PARAMETER(1,int,v1); if (v1<1 || v1 > obj->getDimSize(0)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", v1, obj->getDimSize(0)); } LUABIND_GET_PARAMETER(obj->getNumDim()+1,int,value); (*obj)(v1-1) = value; } else if (obj->getNumDim() == 2) { int v1, v2; LUABIND_GET_PARAMETER(1,int,v1); LUABIND_GET_PARAMETER(2,int,v2); if (v1<1 || v1 > obj->getDimSize(0)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", v1, obj->getDimSize(0)); } if (v2<1 || v2 > obj->getDimSize(1)) { LUABIND_FERROR2("wrong index parameter: 2 <= %d <= %d is incorrect", v2, obj->getDimSize(1)); } LUABIND_GET_PARAMETER(obj->getNumDim()+1,int,value); (*obj)(v1-1, v2-1) = value; } else { int *coords = new int[obj->getNumDim()]; for (int i=0; igetNumDim(); ++i) { LUABIND_GET_PARAMETER(i+1,int,coords[i]); if (coords[i]<1 || coords[i] > obj->getDimSize(i)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", coords[i], obj->getDimSize(i)); } coords[i]--; } LUABIND_GET_PARAMETER(obj->getNumDim()+1,int,value); (*obj)(coords, obj->getNumDim()) = value; delete[] coords; } LUABIND_RETURN(MatrixInt32, obj); } //BIND_END //BIND_METHOD MatrixInt32 offset { LUABIND_RETURN(int, obj->getOffset()); } //BIND_END //BIND_METHOD MatrixInt32 raw_get { int raw_pos; LUABIND_GET_PARAMETER(1, int, raw_pos); LUABIND_RETURN(int, (*obj)[raw_pos]); } //BIND_END //BIND_METHOD MatrixInt32 raw_set { int raw_pos; int value; LUABIND_GET_PARAMETER(1, int, raw_pos); LUABIND_GET_PARAMETER(2, int, value); (*obj)[raw_pos] = static_cast(value); LUABIND_RETURN(MatrixInt32, obj); } //BIND_END //BIND_METHOD MatrixInt32 fill //DOC_BEGIN // void fill(float value) /// Permite poner todos los valores de la matriz a un mismo valor. //DOC_END { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, string); int value; LUABIND_GET_PARAMETER(1,int,value); obj->fill(static_cast(value)); LUABIND_RETURN(MatrixInt32, obj); } //BIND_END //BIND_METHOD MatrixInt32 zeros { obj->zeros(); LUABIND_RETURN(MatrixInt32, obj); } //BIND_END //BIND_METHOD MatrixInt32 ones { obj->ones(); LUABIND_RETURN(MatrixInt32, obj); } //BIND_END //BIND_METHOD MatrixInt32 dim { LUABIND_CHECK_ARGN(>=, 0); LUABIND_CHECK_ARGN(<=, 1); int pos; const int *d=obj->getDimPtr(); LUABIND_GET_OPTIONAL_PARAMETER(1, int, pos, -1); if (pos < 1) { LUABIND_VECTOR_TO_NEW_TABLE(int, d, obj->getNumDim()); LUABIND_RETURN_FROM_STACK(-1); } else LUABIND_RETURN(int, d[pos-1]); } //BIND_END //BIND_METHOD MatrixInt32 stride { LUABIND_CHECK_ARGN(>=, 0); LUABIND_CHECK_ARGN(<=, 1); int pos; const int *s=obj->getStridePtr(); LUABIND_GET_OPTIONAL_PARAMETER(1, int, pos, -1); if (pos < 1) { LUABIND_VECTOR_TO_NEW_TABLE(int, s, obj->getNumDim()); LUABIND_RETURN_FROM_STACK(-1); } else LUABIND_RETURN(int, s[pos-1]); } //BIND_END //BIND_METHOD MatrixInt32 slice { LUABIND_CHECK_ARGN(>=,2); LUABIND_CHECK_ARGN(<=,3); LUABIND_CHECK_PARAMETER(1, table); LUABIND_CHECK_PARAMETER(2, table); int *coords, *sizes, coords_len, sizes_len; bool clone; LUABIND_TABLE_GETN(1, coords_len); LUABIND_TABLE_GETN(2, sizes_len); if (coords_len != sizes_len || coords_len != obj->getNumDim()) LUABIND_FERROR3("Incorrect number of dimensions, expected %d, " "found %d and %d\n", obj->getNumDim(), coords_len, sizes_len); coords = new int[coords_len]; sizes = new int[sizes_len]; LUABIND_TABLE_TO_VECTOR_SUB1(1, int, coords, coords_len); LUABIND_TABLE_TO_VECTOR(2, int, sizes, sizes_len); for (int i=0; i obj->getDimSize(i)) LUABIND_FERROR1("Incorrect size or coord at position %d\n", i+1); LUABIND_GET_OPTIONAL_PARAMETER(3, bool, clone, false); MatrixInt32 *obj2 = new MatrixInt32(obj, coords, sizes, clone); LUABIND_RETURN(MatrixInt32, obj2); delete[] coords; delete[] sizes; } //BIND_END //BIND_METHOD MatrixInt32 select { LUABIND_CHECK_ARGN(>=,2); LUABIND_CHECK_ARGN(<=,3); LUABIND_CHECK_PARAMETER(1, int); LUABIND_CHECK_PARAMETER(2, int); int dim, index; MatrixInt32 *dest; LUABIND_GET_PARAMETER(1, int, dim); LUABIND_GET_PARAMETER(2, int, index); LUABIND_GET_OPTIONAL_PARAMETER(3, MatrixInt32, dest, 0); MatrixInt32 *obj2 = obj->select(dim-1, index-1, dest); LUABIND_RETURN(MatrixInt32, obj2); } //BIND_END //BIND_METHOD MatrixInt32 clone //DOC_BEGIN // matrix *clone() /// Devuelve un clon de la matriz. //DOC_END { LUABIND_CHECK_ARGN(>=, 0); LUABIND_CHECK_ARGN(<=, 1); int argn; argn = lua_gettop(L); // number of arguments MatrixInt32 *obj2; if (argn == 0) obj2 = obj->clone(); else { const char *major; LUABIND_GET_OPTIONAL_PARAMETER(1, string, major, "row_major"); CBLAS_ORDER order=CblasRowMajor; if (strcmp(major, "col_major") == 0) order = CblasColMajor; else if (strcmp(major, "row_major") != 0) LUABIND_FERROR1("Incorrect major order char %s", major); obj2 = obj->clone(order); } LUABIND_RETURN(MatrixInt32,obj2); } //BIND_END //BIND_METHOD MatrixInt32 transpose { LUABIND_RETURN(MatrixInt32, obj->transpose()); } //BIND_END //BIND_METHOD MatrixInt32 diag { LUABIND_CHECK_ARGN(==,1); int v; LUABIND_GET_PARAMETER(1, int, v); obj->diag(static_cast(v)); LUABIND_RETURN(MatrixInt32, obj); } //BIND_END //BIND_METHOD MatrixInt32 toTable // Permite salvar una matriz en una tabla lua // TODO: Tener en cuenta las dimensiones de la matriz { LUABIND_CHECK_ARGN(==, 0); lua_createtable(L, obj->size(), 0); int index = 1; for (MatrixInt32::iterator it(obj->begin()); it != obj->end(); ++it) { lua_pushint(L, *it); lua_rawseti(L, -2, index++); } LUABIND_RETURN_FROM_STACK(-1); } //BIND_END //BIND_METHOD MatrixInt32 sliding_window { int *sub_matrix_size=0, *offset=0, *step=0, *num_steps=0, *order_step=0; int argn = lua_gettop(L); // number of arguments const int num_dim = obj->getNumDim(); if (argn > 1) LUABIND_ERROR("incorrect number of arguments"); if (argn == 1) { LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "offset", "size", "step", "numSteps", "orderStep", (const char*)0); offset = read_vector(L, "offset", num_dim, 0); sub_matrix_size = read_vector(L, "size", num_dim, 0); step = read_vector(L, "step", num_dim, 0); num_steps = read_vector(L, "numSteps", num_dim, 0); order_step = read_vector(L, "orderStep", num_dim, -1); } SlidingWindowMatrixInt32 *window = new SlidingWindowMatrixInt32(obj, sub_matrix_size, offset, step, num_steps, order_step); LUABIND_RETURN(SlidingWindowMatrixInt32, window); delete[] sub_matrix_size; delete[] offset; delete[] step; delete[] num_steps; delete[] order_step; } //BIND_END //BIND_METHOD MatrixInt32 is_contiguous { LUABIND_RETURN(bool, obj->getIsContiguous()); } //BIND_END //BIND_METHOD MatrixInt32 to_float { bool col_major; LUABIND_GET_OPTIONAL_PARAMETER(1, bool, col_major, false); LUABIND_RETURN(MatrixFloat, convertFromMatrixInt32ToMatrixFloat(obj, col_major)); } //BIND_END //BIND_METHOD MatrixInt32 copy { int argn; LUABIND_CHECK_ARGN(==, 1); MatrixInt32 *mat; LUABIND_GET_PARAMETER(1, MatrixInt32, mat); obj->copy(mat); LUABIND_RETURN(MatrixInt32, obj); } //BIND_END ////////////////////////////////////////////////////////////////////// april-ann-0.3.1/packages/basics/matrix/binding/bind_referenced_vector.lua.cc000066400000000000000000000114121234204160600271000ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_H #include "referenced_vector.h" #include "matrixFloat.h" #include "utilLua.h" #include "bind_matrix.h" using april_utils::ReferencedVectorFloat; using april_utils::ReferencedVectorUint; //BIND_END //BIND_LUACLASSNAME ReferencedVectorFloat util.vector_float //BIND_CPP_CLASS ReferencedVectorFloat //BIND_CONSTRUCTOR ReferencedVectorFloat { int initial_size; LUABIND_CHECK_ARGN(<=, 1); LUABIND_GET_OPTIONAL_PARAMETER(1,int,initial_size,1024); ReferencedVectorFloat *obj = new ReferencedVectorFloat(); obj->reserve(initial_size); LUABIND_RETURN(ReferencedVectorFloat, obj); } //BIND_END //BIND_METHOD ReferencedVectorFloat size { LUABIND_CHECK_ARGN(==, 0); LUABIND_RETURN(int, (int)obj->size()); } //BIND_END //BIND_METHOD ReferencedVectorFloat get { LUABIND_CHECK_ARGN(==, 1); uint idx; LUABIND_GET_PARAMETER(1, uint, idx); if (idx > obj->size()) LUABIND_FERROR2("Incorrect index, found %d, maximum size %d\n", idx, obj->size()); LUABIND_RETURN(float, (*obj)[idx-1]); } //BIND_END //BIND_METHOD ReferencedVectorFloat set { LUABIND_CHECK_ARGN(==, 2); uint idx; float value; LUABIND_GET_PARAMETER(1, uint, idx); LUABIND_GET_PARAMETER(2, float, value); if (idx > obj->size()) LUABIND_FERROR2("Incorrect index, found %d, maximum size %d\n", idx, obj->size()); (*obj)[idx-1] = value; } //BIND_END //BIND_METHOD ReferencedVectorFloat push_back { LUABIND_CHECK_ARGN(==, 1); float value; LUABIND_GET_PARAMETER(1, float, value); obj->push_back(value); } //BIND_END //BIND_METHOD ReferencedVectorFloat toMatrix { // LUABIND_CHECK_ARGN(<=, 1); // bool reuse_vector; // LUABIND_GET_OPTIONAL_PARAMETER(1,bool,reuse_vector,true); int dim = (int)obj->size(); MatrixFloat *mat; // if (reuse_vector) { // float *internal_data = obj->release_internal_vector(); // mat = new MatrixFloat(1,&dim,internal_data); // } else { mat = new MatrixFloat(1,&dim); MatrixFloat::iterator it(mat->begin()); for (int i=0; ireserve(initial_size); LUABIND_RETURN(ReferencedVectorUint, obj); } //BIND_END //BIND_METHOD ReferencedVectorUint size { LUABIND_CHECK_ARGN(==, 0); LUABIND_RETURN(int, (int)obj->size()); } //BIND_END //BIND_METHOD ReferencedVectorUint get { LUABIND_CHECK_ARGN(==, 1); uint idx; LUABIND_GET_PARAMETER(1, uint, idx); if (idx > obj->size()) LUABIND_FERROR2("Incorrect index, found %d, maximum size %d\n", idx, obj->size()); LUABIND_RETURN(uint, (*obj)[idx-1]); } //BIND_END //BIND_METHOD ReferencedVectorUint set { LUABIND_CHECK_ARGN(==, 2); uint idx, value; LUABIND_GET_PARAMETER(1, uint, idx); LUABIND_GET_PARAMETER(2, uint, value); if (idx > obj->size()) LUABIND_FERROR2("Incorrect index, found %d, maximum size %d\n", idx, obj->size()); (*obj)[idx-1] = value; } //BIND_END //BIND_METHOD ReferencedVectorUint push_back { LUABIND_CHECK_ARGN(==, 1); double value; LUABIND_GET_PARAMETER(1, double, value); obj->push_back(value); } //BIND_END //BIND_METHOD ReferencedVectorUint toMatrix { // este metodo no hace falta, lo pongo para testear LUABIND_CHECK_ARGN(==, 0); int dim = (int)obj->size(); MatrixFloat *mat = new MatrixFloat(1,&dim); MatrixFloat::iterator it(mat->begin()); for (int i=0; i // para isfinite #include "utilMatrixFloat.h" #include "luabindutil.h" #include "luabindmacros.h" #include "bind_matrix.h" #include "bind_matrix_int32.h" #include "bind_gzio.h" #include "bind_mathcore.h" #include "april_assert.h" int sparseMatrixFloatIteratorFunction(lua_State *L) { SparseMatrixFloatIterator *obj = lua_toSparseMatrixFloatIterator(L,1); if (obj->it == obj->m->end()) { lua_pushnil(L); return 1; } int c0=0,c1=0; obj->it.getCoords(c0,c1); lua_pushfloat(L,*(obj->it)); lua_pushint(L,c0+1); lua_pushint(L,c1+1); ++(obj->it); return 3; } //BIND_END //BIND_HEADER_H #include "referenced.h" #include "sparse_matrixFloat.h" #include "utilLua.h" #include // para isfinite class SparseMatrixFloatIterator : public Referenced { public: SparseMatrixFloat *m; SparseMatrixFloat::iterator it; // SparseMatrixFloatIterator(SparseMatrixFloat *m) : m(m), it(m->begin()) { IncRef(m); } virtual ~SparseMatrixFloatIterator() { DecRef(m); } }; //BIND_END //BIND_LUACLASSNAME SparseMatrixFloatIterator matrix.sparse.iterator //BIND_CPP_CLASS SparseMatrixFloatIterator //BIND_CONSTRUCTOR SparseMatrixFloatIterator { LUABIND_ERROR("Use iterate() method in matrix.sparse object"); } //BIND_END //////////////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME SparseMatrixFloat matrix.sparse //BIND_CPP_CLASS SparseMatrixFloat //BIND_CONSTRUCTOR SparseMatrixFloat { if (lua_isMatrixFloat(L,1)) { float near_zero; MatrixFloat *m; LUABIND_GET_PARAMETER(1, MatrixFloat, m); LUABIND_GET_OPTIONAL_PARAMETER(2, float, near_zero, NEAR_ZERO); obj = new SparseMatrixFloat(m, CSR_FORMAT, near_zero); } else { int rows,cols; FloatGPUMirroredMemoryBlock *values; Int32GPUMirroredMemoryBlock *indices; Int32GPUMirroredMemoryBlock *first_index; bool sort; LUABIND_GET_PARAMETER(1, int, rows); if (lua_isFloatGPUMirroredMemoryBlock(L,2)) { cols = rows; rows = 1; LUABIND_GET_PARAMETER(2, FloatGPUMirroredMemoryBlock, values); LUABIND_GET_PARAMETER(3, Int32GPUMirroredMemoryBlock, indices); LUABIND_GET_OPTIONAL_PARAMETER(4, Int32GPUMirroredMemoryBlock, first_index, 0); LUABIND_GET_OPTIONAL_PARAMETER(5, boolean, sort, false); } else { LUABIND_GET_PARAMETER(2, int, cols); LUABIND_GET_PARAMETER(3, FloatGPUMirroredMemoryBlock, values); LUABIND_GET_PARAMETER(4, Int32GPUMirroredMemoryBlock, indices); LUABIND_GET_OPTIONAL_PARAMETER(5, Int32GPUMirroredMemoryBlock, first_index, 0); LUABIND_GET_OPTIONAL_PARAMETER(6, boolean, sort, false); } obj = new SparseMatrixFloat(rows, cols, values, indices, first_index, CSR_FORMAT, sort); } LUABIND_RETURN(SparseMatrixFloat,obj); } //BIND_END //BIND_CLASS_METHOD SparseMatrixFloat csc { SparseMatrixFloat *obj; if (lua_isMatrixFloat(L,1)) { MatrixFloat *m; float near_zero; LUABIND_GET_PARAMETER(1, MatrixFloat, m); LUABIND_GET_OPTIONAL_PARAMETER(2, float, near_zero, NEAR_ZERO); obj = new SparseMatrixFloat(m, CSC_FORMAT, near_zero); } else { int rows,cols; FloatGPUMirroredMemoryBlock *values; Int32GPUMirroredMemoryBlock *indices; Int32GPUMirroredMemoryBlock *first_index; bool sort; LUABIND_GET_PARAMETER(1, int, rows); if (lua_isFloatGPUMirroredMemoryBlock(L,2)) { cols = 1; LUABIND_GET_PARAMETER(2, FloatGPUMirroredMemoryBlock, values); LUABIND_GET_PARAMETER(3, Int32GPUMirroredMemoryBlock, indices); LUABIND_GET_OPTIONAL_PARAMETER(4, Int32GPUMirroredMemoryBlock, first_index, 0); LUABIND_GET_OPTIONAL_PARAMETER(5, boolean, sort, false); } else { LUABIND_GET_PARAMETER(2, int, cols); LUABIND_GET_PARAMETER(3, FloatGPUMirroredMemoryBlock, values); LUABIND_GET_PARAMETER(4, Int32GPUMirroredMemoryBlock, indices); LUABIND_GET_OPTIONAL_PARAMETER(5, Int32GPUMirroredMemoryBlock, first_index, 0); LUABIND_GET_OPTIONAL_PARAMETER(6, boolean, sort, false); } obj = new SparseMatrixFloat(rows, cols, values, indices, first_index, CSC_FORMAT, sort); } LUABIND_RETURN(SparseMatrixFloat,obj); } //BIND_END //BIND_METHOD SparseMatrixFloat size { LUABIND_RETURN(int, obj->size()); } //BIND_END //BIND_METHOD SparseMatrixFloat non_zero_size { LUABIND_RETURN(int, obj->nonZeroSize()); } //BIND_END //BIND_METHOD SparseMatrixFloat get_reference_string { char buff[128]; sprintf(buff,"%p data= %p %p %p", (void*)obj, (void*)obj->getRawValuesAccess(), (void*)obj->getRawIndicesAccess(), (void*)obj->getRawFirstIndexAccess()); LUABIND_RETURN(string, buff); } //BIND_END //BIND_CLASS_METHOD SparseMatrixFloat fromMMap { LUABIND_CHECK_ARGN(>=, 1); LUABIND_CHECK_ARGN(<=, 3); LUABIND_CHECK_PARAMETER(1, string); const char *filename; bool write, shared; LUABIND_GET_PARAMETER(1,string,filename); LUABIND_GET_OPTIONAL_PARAMETER(2,bool,write,true); LUABIND_GET_OPTIONAL_PARAMETER(3,bool,shared,true); april_utils::MMappedDataReader *mmapped_data; mmapped_data = new april_utils::MMappedDataReader(filename,write,shared); IncRef(mmapped_data); SparseMatrixFloat *obj = SparseMatrixFloat::fromMMappedDataReader(mmapped_data); DecRef(mmapped_data); LUABIND_RETURN(SparseMatrixFloat,obj); } //BIND_END //BIND_METHOD SparseMatrixFloat toMMap { LUABIND_CHECK_ARGN(==, 1); const char *filename; LUABIND_GET_PARAMETER(1, string, filename); april_utils::MMappedDataWriter *mmapped_data; mmapped_data = new april_utils::MMappedDataWriter(filename); IncRef(mmapped_data); obj->toMMappedDataWriter(mmapped_data); DecRef(mmapped_data); } //BIND_END //BIND_METHOD SparseMatrixFloat get { int row,col; LUABIND_GET_PARAMETER(1, int, row); LUABIND_GET_PARAMETER(2, int, col); float v = (*obj)(row-1,col-1); LUABIND_RETURN(float, v); } //BIND_END //BIND_METHOD SparseMatrixFloat raw_get { int idx; LUABIND_GET_PARAMETER(1, int, idx); if (idx < 1 || idx > obj->nonZeroSize()) LUABIND_FERROR2("Index out-of-bounds [%d,%d]", 1, obj->nonZeroSize()); SparseMatrixFloat::const_iterator it(obj->iteratorAtRawIndex(idx-1)); LUABIND_RETURN(float, *it); int c0=0,c1=0; it.getCoords(c0,c1); LUABIND_RETURN(float, *it); LUABIND_RETURN(int, c0+1); LUABIND_RETURN(int, c1+1); } //BIND_END //BIND_METHOD SparseMatrixFloat iterate { LUABIND_CHECK_ARGN(==, 0); LUABIND_RETURN(cfunction,sparseMatrixFloatIteratorFunction); LUABIND_RETURN(SparseMatrixFloatIterator,new SparseMatrixFloatIterator(obj)); } //BIND_END //BIND_METHOD SparseMatrixFloat fill { LUABIND_CHECK_ARGN(==, 1); float value; if (lua_isSparseMatrixFloat(L, 1)) { SparseMatrixFloat *aux; LUABIND_GET_PARAMETER(1,SparseMatrixFloat,aux); for (int i=0; igetNumDim(); ++i) if (aux->getDimSize(i) != 1) LUABIND_ERROR("Needs a float or a matrix with only one element\n"); value = *(aux->begin()); } else { LUABIND_CHECK_PARAMETER(1, float); LUABIND_GET_PARAMETER(1,float,value); } obj->fill(value); LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat zeros //DOC_BEGIN // void zeros(float value) /// Permite poner todos los valores de la matriz a un mismo valor. //DOC_END { obj->zeros(); LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat ones //DOC_BEGIN // void onex(float value) /// Permite poner todos los valores de la matriz a un mismo valor. //DOC_END { obj->ones(); LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat get_use_cuda { LUABIND_RETURN(bool, obj->getCudaFlag()); } //BIND_END //BIND_METHOD SparseMatrixFloat to_dense { const char *major; LUABIND_GET_OPTIONAL_PARAMETER(1, string, major, "row_major"); CBLAS_ORDER order=CblasRowMajor; if (strcmp(major, "col_major") == 0) order = CblasColMajor; else if (strcmp(major, "row_major") != 0) LUABIND_FERROR1("Incorrect major order string %s", major); LUABIND_RETURN(MatrixFloat, obj->toDense(order)); } //BIND_END //BIND_METHOD SparseMatrixFloat set_use_cuda { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, bool); bool v; LUABIND_GET_PARAMETER(1,bool, v); obj->setUseCuda(v); LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat get_sparse_format { if (obj->getSparseFormat() == CSR_FORMAT) LUABIND_RETURN(string, "csr"); else LUABIND_RETURN(string, "csc"); } //BIND_END //BIND_METHOD SparseMatrixFloat dim { LUABIND_CHECK_ARGN(>=, 0); LUABIND_CHECK_ARGN(<=, 1); int pos; const int *d=obj->getDimPtr(); LUABIND_GET_OPTIONAL_PARAMETER(1, int, pos, -1); if (pos < 1) { LUABIND_VECTOR_TO_NEW_TABLE(int, d, obj->getNumDim()); LUABIND_RETURN_FROM_STACK(-1); } else LUABIND_RETURN(int, d[pos-1]); } //BIND_END //BIND_METHOD SparseMatrixFloat slice { LUABIND_CHECK_ARGN(>=,2); LUABIND_CHECK_ARGN(<=,3); LUABIND_CHECK_PARAMETER(1, table); LUABIND_CHECK_PARAMETER(2, table); int *coords, *sizes, coords_len, sizes_len; bool clone; LUABIND_TABLE_GETN(1, coords_len); LUABIND_TABLE_GETN(2, sizes_len); if (coords_len != sizes_len || coords_len != obj->getNumDim()) LUABIND_FERROR3("Incorrect number of dimensions, expected %d, " "found %d and %d\n", obj->getNumDim(), coords_len, sizes_len); coords = new int[coords_len]; sizes = new int[sizes_len]; LUABIND_TABLE_TO_VECTOR_SUB1(1, int, coords, coords_len); LUABIND_TABLE_TO_VECTOR(2, int, sizes, sizes_len); LUABIND_GET_OPTIONAL_PARAMETER(3, bool, clone, false); for (int i=0; i obj->getDimSize(i)) LUABIND_FERROR1("Incorrect size or coord at position %d\n", i+1); SparseMatrixFloat *obj2 = new SparseMatrixFloat(obj, coords, sizes, clone); LUABIND_RETURN(SparseMatrixFloat, obj2); delete[] coords; delete[] sizes; } //BIND_END //BIND_METHOD SparseMatrixFloat clone { LUABIND_CHECK_ARGN(>=, 0); LUABIND_CHECK_ARGN(<=, 1); int argn; argn = lua_gettop(L); // number of arguments SparseMatrixFloat *obj2; if (argn == 0) obj2 = obj->clone(); else { const char *sparse; LUABIND_GET_PARAMETER(1, string, sparse); SPARSE_FORMAT format = CSC_FORMAT; if (strcmp(sparse, "csr") == 0) format = CSR_FORMAT; else if (strcmp(sparse, "csc") != 0) LUABIND_FERROR1("Incorrect sparse format string %s", sparse); obj2 = obj->clone(format); } LUABIND_RETURN(SparseMatrixFloat,obj2); } //BIND_END //BIND_METHOD SparseMatrixFloat transpose { LUABIND_RETURN(SparseMatrixFloat, obj->transpose()); } //BIND_END //BIND_METHOD SparseMatrixFloat isfinite { LUABIND_CHECK_ARGN(==, 0); bool resul=true; for (SparseMatrixFloat::iterator it(obj->begin()); resul && it!=obj->end(); ++it) //if (!isfinite(obj->data[i])) resul = 0; if ((*it) - (*it) != 0.0f) resul = false; LUABIND_RETURN(boolean,resul); } //BIND_END //BIND_CLASS_METHOD SparseMatrixFloat diag { SparseMatrixFloat *obj; int argn = lua_gettop(L); // number of arguments if (lua_isMatrixFloat(L,1)) { MatrixFloat *m; LUABIND_GET_PARAMETER(1, MatrixFloat, m); const char *sparse; LUABIND_GET_OPTIONAL_PARAMETER(2, string, sparse, "csr"); SPARSE_FORMAT format = CSR_FORMAT; if (strcmp(sparse, "csc") == 0) format = CSC_FORMAT; else if (strcmp(sparse, "csr") != 0) LUABIND_FERROR1("Incorrect sparse format string %s", sparse); obj = SparseMatrixFloat::diag(m,format); } else if (lua_isFloatGPUMirroredMemoryBlock(L,1)) { FloatGPUMirroredMemoryBlock *block; LUABIND_GET_PARAMETER(1, FloatGPUMirroredMemoryBlock, block); const char *sparse; LUABIND_GET_OPTIONAL_PARAMETER(2, string, sparse, "csr"); SPARSE_FORMAT format = CSR_FORMAT; if (strcmp(sparse, "csc") == 0) format = CSC_FORMAT; else if (strcmp(sparse, "csr") != 0) LUABIND_FERROR1("Incorrect sparse format string %s", sparse); obj = SparseMatrixFloat::diag(block,format); } else { int N; float v; LUABIND_GET_PARAMETER(1, int, N); LUABIND_GET_PARAMETER(2, float, v); const char *sparse; LUABIND_GET_OPTIONAL_PARAMETER(3, string, sparse, "csr"); SPARSE_FORMAT format = CSR_FORMAT; if (strcmp(sparse, "csc") == 0) format = CSC_FORMAT; else if (strcmp(sparse, "csr") != 0) LUABIND_FERROR1("Incorrect sparse format string %s", sparse); obj = SparseMatrixFloat::diag(N,v,format); } LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat min { LUABIND_CHECK_ARGN(>=,0); LUABIND_CHECK_ARGN(<=,3); int argn = lua_gettop(L); if (argn > 0) { int dim; MatrixFloat *dest; MatrixInt32 *argmin; LUABIND_GET_PARAMETER(1, int, dim); LUABIND_GET_OPTIONAL_PARAMETER(2, MatrixFloat, dest, 0); LUABIND_GET_OPTIONAL_PARAMETER(3, MatrixInt32, argmin, 0); int *aux = 0; if (argmin == 0) { aux = new int[obj->getNumDim()]; for (int i=0; igetNumDim(); ++i) aux[i] = obj->getDimSize(i); aux[dim-1] = 1; argmin = new MatrixInt32(obj->getNumDim(), aux); } IncRef(argmin); if (dim < 1 || dim > obj->getNumDim()) LUABIND_FERROR2("Incorrect dimension, found %d, expect in [1,%d]", dim, obj->getNumDim()); LUABIND_RETURN(MatrixFloat, obj->min(dim-1, dest, argmin)); LUABIND_RETURN(MatrixInt32, argmin); DecRef(argmin); delete[] aux; } else { int c0, c1; LUABIND_RETURN(float, obj->min(c0, c1)); LUABIND_RETURN(int, c0+1); LUABIND_RETURN(int, c1+1); } } //BIND_END //BIND_METHOD SparseMatrixFloat max { LUABIND_CHECK_ARGN(>=,0); LUABIND_CHECK_ARGN(<=,3); int argn = lua_gettop(L); if (argn > 0) { int dim; MatrixFloat *dest; MatrixInt32 *argmax; LUABIND_GET_PARAMETER(1, int, dim); LUABIND_GET_OPTIONAL_PARAMETER(2, MatrixFloat, dest, 0); LUABIND_GET_OPTIONAL_PARAMETER(3, MatrixInt32, argmax, 0); int *aux = 0; if (argmax == 0) { aux = new int[obj->getNumDim()]; for (int i=0; igetNumDim(); ++i) aux[i] = obj->getDimSize(i); aux[dim-1] = 1; argmax = new MatrixInt32(obj->getNumDim(), aux); } IncRef(argmax); if (dim < 1 || dim > obj->getNumDim()) LUABIND_FERROR2("Incorrect dimension, found %d, expect in [1,%d]", dim, obj->getNumDim()); LUABIND_RETURN(MatrixFloat, obj->max(dim-1, dest, argmax)); LUABIND_RETURN(MatrixInt32, argmax); DecRef(argmax); delete[] aux; } else { int c0, c1; LUABIND_RETURN(float, obj->max(c0, c1)); LUABIND_RETURN(int, c0+1); LUABIND_RETURN(int, c1+1); } } //BIND_END //BIND_METHOD SparseMatrixFloat equals { SparseMatrixFloat *other; float epsilon; LUABIND_GET_PARAMETER(1, SparseMatrixFloat, other); LUABIND_GET_OPTIONAL_PARAMETER(2, float, epsilon, 1e-04f); LUABIND_RETURN(boolean, obj->equals(other, epsilon)); } //BIND_END //BIND_METHOD SparseMatrixFloat sqrt { obj->sqrt(); LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat pow { float value; LUABIND_CHECK_ARGN(==,1); LUABIND_GET_PARAMETER(1, float, value); obj->pow(value); LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat tan { obj->tan(); LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat tanh { obj->tanh(); LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat atan { obj->atan(); LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat atanh { obj->atanh(); LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat sin { obj->sin(); LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat sinh { obj->sinh(); LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat asin { obj->asin(); LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat asinh { obj->asinh(); LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat abs { obj->abs(); LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat sign { obj->sign(); LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat sum { LUABIND_CHECK_ARGN(>=, 0); LUABIND_CHECK_ARGN(<=, 2); int argn = lua_gettop(L); // number of arguments if (argn >= 1) { int dim; MatrixFloat *dest; LUABIND_GET_PARAMETER(1, int, dim); LUABIND_GET_OPTIONAL_PARAMETER(2, MatrixFloat, dest, 0); if (dim < 1 || dim > obj->getNumDim()) LUABIND_FERROR2("Incorrect dimension, found %d, expect in [1,%d]", dim, obj->getNumDim()); MatrixFloat *result = obj->sum(dim-1, dest); LUABIND_RETURN(MatrixFloat, result); } else LUABIND_RETURN(float, obj->sum()); } //BIND_END //BIND_METHOD SparseMatrixFloat copy { int argn; LUABIND_CHECK_ARGN(==, 1); SparseMatrixFloat *mat; LUABIND_GET_PARAMETER(1, SparseMatrixFloat, mat); obj->copy(mat); LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat scal { LUABIND_CHECK_ARGN(==, 1); float value; LUABIND_GET_PARAMETER(1, float, value); obj->scal(value); LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat div { LUABIND_CHECK_ARGN(==, 1); float value; LUABIND_GET_PARAMETER(1, float, value); obj->div(value); LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat norm2 { LUABIND_RETURN(float, obj->norm2()); } //BIND_END //BIND_METHOD SparseMatrixFloat get_shared_count { LUABIND_RETURN(uint, obj->getSharedCount()); } //BIND_END //BIND_METHOD SparseMatrixFloat reset_shared_count { obj->resetSharedCount(); LUABIND_RETURN(SparseMatrixFloat, obj); } //BIND_END //BIND_METHOD SparseMatrixFloat add_to_shared_count { unsigned int count; LUABIND_GET_PARAMETER(1,uint,count); obj->addToSharedCount(count); } //BIND_END //BIND_METHOD SparseMatrixFloat prune_subnormal_and_check_normal { obj->pruneSubnormalAndCheckNormal(); } //BIND_END //BIND_METHOD SparseMatrixFloat as_vector { LUABIND_RETURN(SparseMatrixFloat, obj->asVector()); } //BIND_END //BIND_METHOD SparseMatrixFloat is_diagonal { LUABIND_RETURN(bool, obj->isDiagonal()); } //BIND_END //BIND_METHOD SparseMatrixFloat toString { LUABIND_CHECK_ARGN(<=, 1); constString cs; LUABIND_GET_OPTIONAL_PARAMETER(1,constString,cs,constString("binary")); bool is_ascii = (cs == "ascii"); writeSparseMatrixFloatToLuaString(obj, L, is_ascii); LUABIND_INCREASE_NUM_RETURNS(1); } //BIND_END //BIND_CLASS_METHOD SparseMatrixFloat fromString { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, string); constString cs; LUABIND_GET_PARAMETER(1,constString,cs); SparseMatrixFloat *obj; if ((obj = readSparseMatrixFloatFromString(cs)) == 0) LUABIND_ERROR("bad format"); else LUABIND_RETURN(SparseMatrixFloat,obj); } //BIND_END april-ann-0.3.1/packages/basics/matrix/c_src/000077500000000000000000000000001234204160600210115ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/matrix/c_src/matrix-iterators.impl.h000066400000000000000000000740351234204160600254510ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco Zamora-Martinez * Copyright 2012, Salvador España-Boquera * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "unused_variable.h" /***** ITERATORS *****/ template Matrix::iterator::iterator(Matrix *m) : m(m), idx(0), raw_pos(0) { if (!m->getIsContiguous() || !m->getIsDataRowOrdered()) { coords = new int[m->getNumDim()]; for (int i=0; igetNumDim(); ++i) coords[i] = 0; } else coords = 0; raw_pos = m->getOffset(); // IncRef(m); data = m->getData(); } template Matrix::iterator::iterator(Matrix *m, int raw_pos) : m(m), idx(0), raw_pos(raw_pos) { if (!m->getIsContiguous() || !m->getIsDataRowOrdered()) { coords = new int[m->getNumDim()]; m->computeCoords(raw_pos, coords); } else coords = 0; // IncRef(m); data = m->getData(); } template Matrix::iterator::iterator(Matrix *m, int raw_pos, int *coords) : m(m), idx(0), raw_pos(raw_pos) { if (!m->getIsContiguous() || !m->getIsDataRowOrdered()) { this->coords = new int[m->getNumDim()]; for (int i=0; igetNumDim(); ++i) this->coords[i] = coords[i]; } else coords = 0; // IncRef(m); data = m->getData(); } template Matrix::iterator::iterator() : m(0), idx(0), raw_pos(0), coords(0) { } template Matrix::iterator::iterator(const iterator &other) : m(other.m), idx(other.idx), raw_pos(other.raw_pos) { if (other.coords != 0) { coords = new int[m->getNumDim()]; for (int i=0; igetNumDim(); ++i) coords[i] = other.coords[i]; } else coords = 0; // IncRef(m); data = m->getData(); } template Matrix::iterator:: ~iterator() { delete[] coords; // if (m) DecRef(m); } template typename Matrix::iterator &Matrix::iterator:: operator=(const Matrix::iterator &other) { // if (m) DecRef(m); m = other.m; // IncRef(m); idx = other.idx; raw_pos = other.raw_pos; data = m->getData(); if (other.coords != 0) { if (coords==0 || m->numDim != other.m->numDim) { delete[] coords; coords = new int[other.m->getNumDim()]; } for (int i=0; igetNumDim(); ++i) coords[i] = other.coords[i]; } else { delete[] coords; coords = 0; } return *this; } template bool Matrix::iterator::operator==(const Matrix::iterator &other) const { return m==other.m && raw_pos == other.raw_pos; } template bool Matrix::iterator::operator!=(const Matrix::iterator &other) const { return !( (*this) == other ); } template typename Matrix::iterator &Matrix::iterator::operator++() { ++idx; if (coords != 0) m->nextCoordVectorRowOrder(coords, raw_pos); else ++raw_pos; return *this; } template T &Matrix::iterator::operator*() { return data[raw_pos]; } template T *Matrix::iterator::operator->() { return &data[raw_pos]; } template int Matrix::iterator::getRawPos() const { return raw_pos; } /*******************************************************************/ template Matrix::col_major_iterator::col_major_iterator(Matrix *m) : m(m), idx(0), raw_pos(0) { if (!m->getIsContiguous() || m->getIsDataRowOrdered()) { coords = new int[m->getNumDim()]; for (int i=0; igetNumDim(); ++i) coords[i] = 0; } else coords = 0; raw_pos = m->getOffset(); // IncRef(m); data = m->getData(); } template Matrix::col_major_iterator::col_major_iterator(Matrix *m, int raw_pos) : m(m), idx(0), raw_pos(raw_pos) { if (!m->getIsContiguous() || m->getIsDataRowOrdered()) { coords = new int[m->getNumDim()]; m->computeCoords(raw_pos, coords); } else coords = 0; // IncRef(m); data = m->getData(); } template Matrix::col_major_iterator::col_major_iterator(Matrix *m, int raw_pos, int *coords) : m(m), idx(0), raw_pos(raw_pos) { if (!m->getIsContiguous() || m->getIsDataRowOrdered()) { coords = new int[m->getNumDim()]; for (int i=0; igetNumDim(); ++i) this->coords[i] = coords[i]; } else coords = 0; // IncRef(m); data = m->getData(); } template Matrix::col_major_iterator::col_major_iterator() : m(0), idx(0), raw_pos(0), coords(0) { } template Matrix::col_major_iterator::col_major_iterator(const col_major_iterator &other) : m(other.m), idx(other.idx), raw_pos(other.raw_pos) { if (other.coords != 0) { coords = new int[m->getNumDim()]; for (int i=0; igetNumDim(); ++i) coords[i] = other.coords[i]; } else coords = 0; // IncRef(m); data = m->getData(); } template Matrix::col_major_iterator::col_major_iterator(const iterator &other) : m(other.m), idx(other.idx), raw_pos(other.raw_pos) { if (!m->getIsContiguous() || m->getIsDataRowOrdered()) { coords = new int[m->getNumDim()]; if (other.coords != 0) for (int i=0; igetNumDim(); ++i) coords[i] = other.coords[i]; else m->computeCoords(raw_pos, coords); } else coords = 0; // IncRef(m); data = m->getData(); } template Matrix::col_major_iterator::~col_major_iterator() { delete[] coords; // if (m) DecRef(m); } template typename Matrix::col_major_iterator &Matrix::col_major_iterator::operator=(const Matrix::col_major_iterator &other) { // if (m) DecRef(m); m = other.m; // IncRef(m); idx = other.idx; raw_pos = other.raw_pos; data = m->getData(); if (other.coords != 0) { if (coords==0 || m->numDim != other.m->numDim) { delete[] coords; coords = new int[other.m->getNumDim()]; } for (int i=0; igetNumDim(); ++i) coords[i] = other.coords[i]; } else { delete[] coords; coords = 0; } return *this; } template typename Matrix::col_major_iterator &Matrix::col_major_iterator::operator=(const Matrix::iterator &other) { // if (m) DecRef(m); m = other.m; idx = other.idx; // IncRef(m); idx = other.idx; raw_pos = other.raw_pos; data = m->getData(); if (!m->getIsContiguous() || m->getIsDataRowOrdered()) { coords = new int[other.m->getNumDim()]; if (other.coords != 0) for (int i=0; igetNumDim(); ++i) coords[i] = other.coords[i]; else m->computeCoords(raw_pos, coords); } return *this; } template bool Matrix::col_major_iterator::operator==(const Matrix::col_major_iterator &other) const { return m==other.m && raw_pos == other.raw_pos; } template bool Matrix::col_major_iterator::operator==(const Matrix::iterator &other) const { return m==other.m && raw_pos == other.raw_pos; } template bool Matrix::col_major_iterator::operator!=(const Matrix::col_major_iterator &other) const { return !( (*this) == other ); } template bool Matrix::col_major_iterator::operator!=(const Matrix::iterator &other) const { return !( (*this) == other ); } template typename Matrix::col_major_iterator &Matrix::col_major_iterator::operator++() { ++idx; if (coords != 0) m->nextCoordVectorColOrder(coords, raw_pos); else ++raw_pos; return *this; } template T &Matrix::col_major_iterator::operator*() { return data[raw_pos]; } template T *Matrix::col_major_iterator::operator->() { return &data[raw_pos]; } template int Matrix::col_major_iterator::getRawPos() const { return raw_pos; } /*******************************************************************/ template Matrix::const_iterator::const_iterator(const Matrix *m) : m(m), idx(0), raw_pos(0) { if (!m->getIsContiguous() || !m->getIsDataRowOrdered()) { coords = new int[m->getNumDim()]; for (int i=0; igetNumDim(); ++i) coords[i] = 0; } else coords = 0; raw_pos = m->getOffset(); data = m->getData(); } template Matrix::const_iterator::const_iterator(const Matrix *m, int raw_pos) : m(m), idx(0), raw_pos(raw_pos) { if (!m->getIsContiguous() || !m->getIsDataRowOrdered()) { coords = new int[m->getNumDim()]; m->computeCoords(raw_pos, coords); } else coords = 0; data = m->getData(); } template Matrix::const_iterator::const_iterator(const Matrix *m, int raw_pos, int *coords) : m(m), idx(0), raw_pos(raw_pos) { if (!m->getIsContiguous() || !m->getIsDataRowOrdered()) { coords = new int[m->getNumDim()]; for (int i=0; igetNumDim(); ++i) this->coords[i] = coords[i]; } else coords = 0; data = m->getData(); } template Matrix::const_iterator::const_iterator() : m(0), idx(0), raw_pos(0), coords(0) { } template Matrix::const_iterator::const_iterator(const Matrix::const_iterator &other) : m(other.m), idx(other.idx), raw_pos(other.raw_pos) { if (other.coords != 0) { coords = new int[m->getNumDim()]; for (int i=0; igetNumDim(); ++i) coords[i] = other.coords[i]; } else coords = 0; data = m->getData(); } template Matrix::const_iterator::const_iterator(const Matrix::iterator &other) : m(other.m), idx(other.idx), raw_pos(other.raw_pos) { if (other.coords != 0) { coords = new int[m->getNumDim()]; for (int i=0; igetNumDim(); ++i) coords[i] = other.coords[i]; } else coords = 0; data = m->getData(); } template Matrix::const_iterator::~const_iterator() { delete[] coords; } template typename Matrix::const_iterator &Matrix::const_iterator::operator=(const typename Matrix::const_iterator &other) { m = other.m; idx = other.idx; raw_pos = other.raw_pos; data = m->getData(); if (other.coords != 0) { if (coords==0 || m->numDim != other.m->numDim) { delete[] coords; coords = new int[other.m->getNumDim()]; } for (int i=0; igetNumDim(); ++i) coords[i] = other.coords[i]; } else { delete[] coords; coords = 0; } return *this; } template typename Matrix::const_iterator &Matrix::const_iterator::operator=(const typename Matrix::iterator &other) { m = other.m; idx = other.idx; raw_pos = other.raw_pos; data = m->getData(); if (other.coords != 0) { if (coords==0 || m->numDim != other.m->numDim) { delete[] coords; coords = new int[other.m->getNumDim()]; } for (int i=0; igetNumDim(); ++i) coords[i] = other.coords[i]; } else { delete[] coords; coords = 0; } return *this; } template bool Matrix::const_iterator::operator==(const Matrix::const_iterator &other) const { return m==other.m && raw_pos == other.raw_pos; } template bool Matrix::const_iterator::operator==(const Matrix::iterator &other) const { return m==other.m && raw_pos == other.raw_pos; } template bool Matrix::const_iterator::operator!=(const Matrix::const_iterator &other) const { return !( (*this) == other ); } template bool Matrix::const_iterator::operator!=(const Matrix::iterator &other) const { return !( (*this) == other ); } template typename Matrix::const_iterator &Matrix::const_iterator::operator++() { ++idx; if (coords != 0) m->nextCoordVectorRowOrder(coords, raw_pos); else ++raw_pos; return *this; } template const T &Matrix::const_iterator::operator*() const { return data[raw_pos]; } template const T *Matrix::const_iterator::operator->() const { return &data[raw_pos]; } template int Matrix::const_iterator::getRawPos() const { return raw_pos; } /*******************************************************************/ template Matrix::const_col_major_iterator::const_col_major_iterator(const Matrix *m) : m(m), idx(0), raw_pos(0) { if (!m->getIsContiguous() || m->getIsDataRowOrdered()) { coords = new int[m->getNumDim()]; for (int i=0; igetNumDim(); ++i) coords[i] = 0; } else coords = 0; raw_pos = m->getOffset(); data = m->getData(); } template Matrix::const_col_major_iterator::const_col_major_iterator(const Matrix *m, int raw_pos) : m(m), idx(0), raw_pos(raw_pos) { if (!m->getIsContiguous() || m->getIsDataRowOrdered()) { coords = new int[m->getNumDim()]; m->computeCoords(raw_pos, coords); } else coords = 0; data = m->getData(); } template Matrix::const_col_major_iterator::const_col_major_iterator(const Matrix *m, int raw_pos, int *coords) : m(m), idx(0), raw_pos(raw_pos) { if (!m->getIsContiguous() || m->getIsDataRowOrdered()) { coords = new int[m->getNumDim()]; for (int i=0; igetNumDim(); ++i) this->coords[i] = coords[i]; } else coords = 0; data = m->getData(); } template Matrix::const_col_major_iterator::const_col_major_iterator() : m(0), idx(0), raw_pos(0), coords(0) { } template Matrix::const_col_major_iterator:: const_col_major_iterator(const Matrix::const_col_major_iterator &other) : m(other.m), idx(other.idx), raw_pos(other.raw_pos) { if (other.coords != 0) { coords = new int[m->getNumDim()]; for (int i=0; igetNumDim(); ++i) coords[i] = other.coords[i]; } else coords = 0; data = m->getData(); } template Matrix::const_col_major_iterator:: const_col_major_iterator(const Matrix::iterator &other) : m(other.m), idx(other.idx), raw_pos(other.raw_pos) { if (!m->getIsContiguous() || m->getIsDataRowOrdered()) { coords = new int[m->getNumDim()]; if (other.coords != 0) for (int i=0; igetNumDim(); ++i) coords[i] = other.coords[i]; else m->computeCoords(raw_pos, coords); } else coords = 0; data = m->getData(); } template Matrix::const_col_major_iterator:: const_col_major_iterator(const Matrix::const_iterator &other) : m(other.m), idx(other.idx), raw_pos(other.raw_pos) { if (!m->getIsContiguous() || m->getIsDataRowOrdered()) { coords = new int[m->getNumDim()]; if (other.coords != 0) for (int i=0; igetNumDim(); ++i) coords[i] = other.coords[i]; else m->computeCoords(raw_pos, coords); } else coords = 0; data = m->getData(); } template Matrix::const_col_major_iterator::~const_col_major_iterator() { delete[] coords; } template typename Matrix::const_col_major_iterator &Matrix:: const_col_major_iterator:: operator=(const typename Matrix::const_col_major_iterator &other) { m = other.m; idx = other.idx; raw_pos = other.raw_pos; data = m->getData(); if (other.coords != 0) { if (coords==0 || m->numDim != other.m->numDim) { delete[] coords; coords = new int[other.m->getNumDim()]; } for (int i=0; igetNumDim(); ++i) coords[i] = other.coords[i]; } else { delete[] coords; coords = 0; } return *this; } template typename Matrix::const_col_major_iterator &Matrix:: const_col_major_iterator::operator=(const typename Matrix::iterator &other) { m = other.m; idx = other.idx; raw_pos = other.raw_pos; data = m->getData(); if (!m->getIsContiguous() || m->getIsDataRowOrdered()) { coords = new int[other.m->getNumDim()]; if (other.coords != 0) for (int i=0; igetNumDim(); ++i) coords[i] = other.coords[i]; else m->computeCoords(raw_pos, coords); } return *this; } template typename Matrix::const_col_major_iterator &Matrix:: const_col_major_iterator:: operator=(const typename Matrix::const_iterator &other) { m = other.m; idx = other.idx; raw_pos = other.raw_pos; data = m->getData(); if (!m->getIsContiguous() || m->getIsDataRowOrdered()) { coords = new int[other.m->getNumDim()]; if (other.coords != 0) for (int i=0; igetNumDim(); ++i) coords[i] = other.coords[i]; else m->computeCoords(raw_pos, coords); } return *this; } template bool Matrix::const_col_major_iterator:: operator==(const Matrix::const_col_major_iterator &other) const { return m==other.m && raw_pos == other.raw_pos; } template bool Matrix::const_col_major_iterator:: operator==(const Matrix::iterator &other) const { return m==other.m && raw_pos == other.raw_pos; } template bool Matrix::const_col_major_iterator:: operator==(const Matrix::const_iterator &other) const { return m==other.m && raw_pos == other.raw_pos; } template bool Matrix::const_col_major_iterator:: operator!=(const Matrix::const_col_major_iterator &other) const { return !( (*this) == other ); } template bool Matrix::const_col_major_iterator:: operator!=(const Matrix::iterator &other) const { return !( (*this) == other ); } template bool Matrix::const_col_major_iterator:: operator!=(const Matrix::const_iterator &other) const { return !( (*this) == other ); } template typename Matrix::const_col_major_iterator &Matrix::const_col_major_iterator::operator++() { ++idx; if (coords != 0) m->nextCoordVectorColOrder(coords, raw_pos); else ++raw_pos; return *this; } template const T &Matrix::const_col_major_iterator::operator*() const { return data[raw_pos]; } template const T *Matrix::const_col_major_iterator::operator->() const { return &data[raw_pos]; } template int Matrix::const_col_major_iterator::getRawPos() const { return raw_pos; } /*******************************************************************/ template void Matrix::best_span_iterator::initialize(const Matrix *m, int raw_pos) { this->m = m; this->raw_pos = raw_pos; coords = new int[m->numDim]; order = new int[m->numDim]; switch(m->numDim) { case 1: order[0] = 0; coords[0] = 0; num_iterations = 1; break; case 2: coords[0] = 0; coords[1] = 0; if (m->matrixSize[0] > m->matrixSize[1]) { order[0] = 0; order[1] = 1; } else if (m->matrixSize[1] > m->matrixSize[0]) { order[0] = 1; order[1] = 0; } else { // CUATION: this conditions is critical to work with transposed matrices, // in order to ensure the iterator to traverse equally two matrices with // different transposition. if (m->getMajorOrder() == CblasRowMajor) { order[0] = 1; order[1] = 0; } else { order[0] = 0; order[1] = 1; } } num_iterations = m->matrixSize[order[1]]; break; default: for (int i=0; inumDim; ++i) { coords[i] = 0; order[i] = i; } april_utils::Sort(order, 0, m->numDim-1, inverse_sort_compare(m)); num_iterations = 1; for (int i=1; inumDim; ++i) num_iterations *= m->matrixSize[order[i]]; } } template Matrix::best_span_iterator:: best_span_iterator(const Matrix *m,int raw_pos) { initialize(m, raw_pos); m->computeCoords(raw_pos, coords); } template Matrix::best_span_iterator::best_span_iterator(const Matrix *m) { initialize(m, m->offset); } template Matrix::best_span_iterator:: best_span_iterator(const best_span_iterator &other) : m(other.m), raw_pos(other.raw_pos), num_iterations(other.num_iterations) { coords = new int[m->getNumDim()]; order = new int[m->getNumDim()]; for (int i=0; igetNumDim(); ++i) { coords[i] = other.coords[i]; order[i] = other.order[i]; } } template Matrix::best_span_iterator::best_span_iterator(): m(0),coords(0),order(0) { } template Matrix::best_span_iterator::~best_span_iterator() { delete[] order; delete[] coords; } template int Matrix::best_span_iterator::getOffset() const { return raw_pos; } template int Matrix::best_span_iterator::getStride() const { return m->stride[order[0]]; } template int Matrix::best_span_iterator::getSize() const { return m->matrixSize[order[0]]; } template typename Matrix::best_span_iterator &Matrix::best_span_iterator:: operator=(const Matrix::best_span_iterator &other) { if (m==0 || m->numDim != other.m->numDim) { delete[] coords; delete[] order; coords = new int[other.m->getNumDim()]; order = new int[other.m->getNumDim()]; } m = other.m; raw_pos = other.raw_pos; for (int i=0; igetNumDim(); ++i) { coords[i] = other.coords[i]; order[i] = other.order[i]; } num_iterations = other.num_iterations; return *this; } template bool Matrix::best_span_iterator:: operator==(const Matrix::best_span_iterator &other) const { return m==other.m && raw_pos==other.raw_pos; } template bool Matrix::best_span_iterator:: operator!=(const Matrix::best_span_iterator &other) const { return !((*this)==other); } template typename Matrix::best_span_iterator &Matrix::best_span_iterator:: operator++() { switch(m->numDim) { case 1: raw_pos = m->last_raw_pos+1; break; case 2: { int j = order[1]; coords[j] = (coords[j]+1) % m->matrixSize[j]; if (coords[j] > 0) raw_pos += m->stride[j]; else raw_pos = m->last_raw_pos+1; break; } default: { int j = 1, pos; do { pos = order[j++]; coords[pos] = (coords[pos]+1) % m->matrixSize[pos]; } while(jnumDim && coords[pos] == 0); if (j == m->numDim && coords[pos] == 0) raw_pos = m->last_raw_pos+1; else raw_pos = m->computeRawPos(coords); } } return *this; } template int Matrix::best_span_iterator::numberOfIterations() const { return num_iterations; } template void Matrix::best_span_iterator::setAtIteration(int idx) { if (idx < num_iterations) { raw_pos = m->offset; coords[order[0]] = 0; for (int i=1; i < m->getNumDim(); i++) { int j = order[i]; coords[j] = idx % m->matrixSize[j]; idx = idx / m->matrixSize[j];; raw_pos += m->stride[j]*coords[j]; } } else raw_pos = m->last_raw_pos+1; } ///////////////////////////////////////////////////////////////////////////// template Matrix::sliding_window::sliding_window() : Referenced(), m(0), offset(0), sub_matrix_size(0), step(0), num_steps(0), order_step(0), coords(0), raw_pos(0), num_windows(0) { } template Matrix::sliding_window::sliding_window(Matrix *m, const int *sub_matrix_size, const int *offset, const int *step, const int *num_steps, const int *order_step) : Referenced(), m(m), offset(new int[m->numDim]), sub_matrix_size(new int[m->numDim]), step(new int[m->numDim]), num_steps(new int[m->numDim]), order_step(new int[m->numDim]), coords(new int[m->numDim]), raw_pos(m->offset), finished(false), offset_plus_num_step_by_step(new int[m->numDim]), num_windows(1) { IncRef(m); if (offset != 0) for (int i=0; inumDim; ++i) { this->raw_pos += offset[i]*m->stride[i]; this->coords[i] = this->offset[i] = offset[i]; } else for (int i=0; inumDim; ++i) this->coords[i] = this->offset[i] = 0; // default values for arrays if necessary if (sub_matrix_size == 0) { for (int i=0; inumDim; ++i) this->sub_matrix_size[i] = m->matrixSize[i]; this->sub_matrix_size[0] = 1; } else for (int i=0; inumDim; ++i) this->sub_matrix_size[i] = sub_matrix_size[i]; // if (step == 0) for (int i=0; inumDim; ++i) this->step[i] = 1; else for (int i=0; inumDim; ++i) this->step[i] = step[i]; // if (num_steps == 0) { for (int i=0; inumDim; ++i) this->num_steps[i] = (m->matrixSize[i] - this->sub_matrix_size[i])/this->step[i] + 1; } else for (int i=0; inumDim; ++i) this->num_steps[i] = num_steps[i]; // if (order_step == 0) for (int i=0; inumDim; ++i) this->order_step[i] = (m->numDim - (i + 1)); else for (int i=0; inumDim; ++i) this->order_step[i] = order_step[i]; // last_raw_pos is 0 instead of m->offset because at getMatrix method the // resulting matrix last_raw_pos is the addition between current window // raw_pos (with m->offset) plus the following last_raw_pos computation last_raw_pos = 0; total_size = 1; for (int i=0; inumDim; ++i) { total_size = this->sub_matrix_size[i]*total_size; last_raw_pos += (this->sub_matrix_size[i]-1)*m->stride[i]; } // Final sanity check and initialization of auxiliary data structures for (int i=0; inumDim; ++i) { if (this->step[i] < 1) ERROR_EXIT2(128, "Unexpected step value of %d at coordinate %d," " it must be > 0\n", this->step[i], i); if (this->num_steps[i] < 1) ERROR_EXIT2(128, "Unexpected num_steps value of %d at coordinate %d," " it must be > 0\n", this->num_steps[i], i); if (this->offset[i] < 0) ERROR_EXIT1(128, "Unexpected offset value at coordinate %d\n", i); if (this->sub_matrix_size[i] < 0) ERROR_EXIT1(128, "Unexpected sub_matrix_size value at coordinate %d\n", i); int last = ( this->offset[i] + this->step[i]*(this->num_steps[i]-1) + this->sub_matrix_size[i]); if (last > m->matrixSize[i]) ERROR_EXIT1(128, "Overflow at sliding window dimension %d!!!\n", i); offset_plus_num_step_by_step[i] = this->offset[i] + this->num_steps[i] * this->step[i]; num_windows *= this->num_steps[i]; } } template Matrix::sliding_window::sliding_window(const sliding_window &other) : Referenced(), m(other.m), offset(new int[m->numDim]), sub_matrix_size(new int[m->numDim]), step(new int[m->numDim]), num_steps(new int[m->numDim]), order_step(new int[m->numDim]), coords(new int[m->numDim]), raw_pos(other.raw_pos), total_size(other.total_size), last_raw_pos(other.last_raw_pos), finished(other.finished), offset_plus_num_step_by_step(new int[m->numDim]), num_windows(other.num_windows) { IncRef(m); for (int i=0; inumDim; ++i) { sub_matrix_size[i] = other.sub_matrix_size[i]; step[i] = other.step[i]; num_steps[i] = other.num_steps[i]; order_step[i] = other.order_step[i]; coords[i] = other.coords[i]; offset[i] = other.offset[i]; offset_plus_num_step_by_step[i] = other.offset_plus_num_step_by_step[i]; } } template Matrix::sliding_window::~sliding_window() { DecRef(m); delete[] sub_matrix_size; delete[] step; delete[] num_steps; delete[] order_step; delete[] coords; delete[] offset; delete[] offset_plus_num_step_by_step; } template typename Matrix::sliding_window::sliding_window &Matrix::sliding_window:: operator=(const sliding_window &other) { if (m==0 || m->numDim != other.m->numDim) { delete[] sub_matrix_size; delete[] step; delete[] num_steps; delete[] order_step; delete[] coords; delete[] offset; delete[] offset_plus_num_step_by_step; sub_matrix_size = new int[other.m->numDim]; step = new int[other.m->numDim]; num_steps = new int[other.m->numDim]; order_step = new int[other.m->numDim]; coords = new int[other.m->numDim]; offset = new int[other.m->numDim]; offset_plus_num_step_by_step = new int[other.m->numDim]; } if (m) DecRef(m); m = other.m; IncRef(m); offset = other.offset; raw_pos = other.raw_pos; total_size = other.total_size; last_raw_pos = other.last_raw_pos; finished = other.finished; num_windows = other.num_windows; for (int i=0; inumDim; ++i) { sub_matrix_size[i] = other.sub_matrix_size[i]; step[i] = other.step[i]; num_steps[i] = other.num_steps[i]; order_step[i] = other.order_step[i]; coords[i] = other.coords[i]; offset[i] = other.offset[i]; offset_plus_num_step_by_step[i] = other.offset_plus_num_step_by_step[i]; } return *this; } template typename Matrix::sliding_window::sliding_window *Matrix::sliding_window:: next() { int j = 0; bool overflow; do { int pos = order_step[j]; int prev = coords[pos]; coords[pos] += step[pos]; if (coords[pos] >= offset_plus_num_step_by_step[pos]) { coords[pos] = offset[pos]; raw_pos -= m->stride[pos]*(prev + offset[pos]); overflow = true; } else { raw_pos += m->stride[pos]*step[pos]; overflow = false; } } while(overflow && ++jnumDim); if (j == m->numDim && overflow) finished = true; return this; } template Matrix *Matrix::sliding_window::getMatrix(Matrix *dest) { if (finished) return dest; if (dest == 0) return new Matrix(m->numDim, m->stride, raw_pos, sub_matrix_size, total_size, last_raw_pos + raw_pos, m->data, m->major_order, m->use_cuda, m->transposed); else { april_assert(dest->getRawDataAccess() == m->getRawDataAccess()); dest->changeSubMatrixData(raw_pos, last_raw_pos + raw_pos); return dest; } return 0; // this never happens } template int Matrix::sliding_window::numWindows() const { return num_windows; } template void Matrix::sliding_window::setAtWindow(int windex) { if (windex < num_windows) { raw_pos = m->offset; for (int i=0; i < m->getNumDim();i++) { int j = order_step[i]; coords[j] = offset[j] + (windex % num_steps[j])*step[j]; windex = windex / num_steps[j]; raw_pos += m->stride[j]*coords[j]; } } else finished = true; } template const int *Matrix::sliding_window::getCoords() const { return coords; } template int Matrix::sliding_window::getNumDim() const { return m->getNumDim(); } april-ann-0.3.1/packages/basics/matrix/c_src/matrix-math.impl.h000066400000000000000000000577721234204160600243770ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco Zamora-Martinez * Copyright 2012, Salvador España-Boquera * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "maxmin.h" #include "clamp.h" #include "matrix_generic_math_templates.h" template void Matrix::fill(T value) { if (getIsDataRowOrdered()) for (iterator it(begin()); it!=end(); ++it) { *it = value; } else for (col_major_iterator it(begin()); it!=end(); ++it) { *it = value; } } template void Matrix::clamp(T lower, T upper) { for (iterator it(begin()); it!=end(); ++it) *it = april_utils::clamp(*it, lower, upper); } template void Matrix::zeros() { fill(T()); } template void Matrix::ones() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::diag(T value) { if (use_cuda) ERROR_PRINT("WARNING! DIAG OPERATION NOT IMPLENTED FOR CUDA\n"); for (int i=1; igetPPALForWrite(); int *aux_coords = new int[numDim]; for (int i=0; i Matrix* Matrix::addition(const Matrix *other) { if (!sameDim(other)) ERROR_EXIT(128, "Not equal matrix dimensions or format\n"); Matrix *result = new Matrix(getNumDim(), matrixSize, major_order); const_iterator this_it(this->begin()); const_iterator other_it(this->begin()); for (iterator result_it(result->begin()); result_it != result->end(); ++result_it, ++this_it, ++other_it) { april_assert(this_it != this->end()); april_assert(other_it != other->end()); *result_it = (*this_it) + (*other_it); } return result; } template Matrix* Matrix::substraction(const Matrix *other) { if (!sameDim(other)) ERROR_EXIT(128, "Not equal matrix dimensions or format\n"); Matrix *result = new Matrix(getNumDim(), matrixSize, major_order); const_iterator this_it(this->begin()); const_iterator other_it(this->begin()); for (iterator result_it(result->begin()); result_it != result->end(); ++result_it, ++this_it, ++other_it) { april_assert(this_it != this->end()); april_assert(other_it != other->end()); *result_it = (*this_it) - (*other_it); } return result; } template Matrix* Matrix::multiply(const Matrix *other) const { if (this->getNumDim() != 2 || other->getNumDim() != 2) ERROR_EXIT(128, "Bi-dimensional matrices expected\n"); if (this->matrixSize[1] != other->matrixSize[0]) ERROR_EXIT(128, "Incorrect matrix sizes\n"); int result_dims[2] = { this->matrixSize[0], other->matrixSize[1] }; Matrix *result = new Matrix(2, result_dims, major_order); iterator result_it(result->begin()); const_iterator this_it(this->begin()); for (int i=0; ibegin()); for (int j=0; j T Matrix::sum() const { T result = T(); for (const_iterator it(begin()); it!=end(); ++it) result += (*it); return result; } // the argument indicates over which dimension the sum must be performed template struct sum_dim_functor { T operator()(const Matrix *slice) { return slice->sum(); } }; template Matrix* Matrix::sum(int dim, Matrix *dest) { return applyFunctorOverDimension(sum_dim_functor(), this, dim, dest); } /**** COMPONENT WISE OPERATIONS ****/ template void Matrix::scalarAdd(T s) { for (iterator it(begin()); it!=end(); ++it) (*it) += s; } template void Matrix::copy(const Matrix *other) { if (!sameDim(other)) ERROR_EXIT(128, "Not equal matrix dimensions\n"); const_iterator it_orig(other->begin()); iterator it_dest(this->begin()); while(it_orig != other->end()) { *it_dest = *it_orig; ++it_orig; ++it_dest; } } template bool Matrix::equals(const Matrix *other, float epsilon) const { UNUSED_VARIABLE(other); UNUSED_VARIABLE(epsilon); ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); return false; } template void Matrix::plogp() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::log() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::log1p() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::exp() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::sqrt() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::pow(T value) { UNUSED_VARIABLE(value); ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::tan() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::tanh() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::atan() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::atanh() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::cos() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::cosh() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::acos() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::acosh() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::sin() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::sinh() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::asin() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::asinh() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::abs() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::complement() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::sign() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::cmul(const Matrix *other) { UNUSED_VARIABLE(other); ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template struct axpy_functor { T alpha; axpy_functor(T alpha) : alpha(alpha) { } void operator()(Matrix *one, const Matrix *other, unsigned int size, unsigned int stride_one, unsigned int stride_other, unsigned int offset_one, unsigned int offset_other) const { doAxpy(size, alpha, other->getRawDataAccess(), offset_other, stride_other, one->getRawDataAccess(), offset_one, stride_one, one->getCudaFlag()); } }; template void Matrix::axpy(T alpha, const Matrix *other) { if (size() != other->size()) ERROR_EXIT2(128, "Incorrect matrices sizes: %d != %d\n", size(), other->size()); if (major_order != other->major_order) ERROR_EXIT(128, "Matrices with different major orders\n"); axpy_functor functor(alpha); #ifdef USE_MKL applyBinaryFunctionWithSpanIteratorNOPARALLEL(this, other, functor); #else applyBinaryFunctionWithSpanIterator(this, other, functor); #endif } template void Matrix::axpy(T alpha, const SparseMatrix *other) { if (size() != other->size()) ERROR_EXIT2(128, "Incorrect matrices sizes: %d != %d\n", size(), other->size()); if (!isVector()) ERROR_EXIT(128, "sparse AXPY only works with vectors\n"); if ( (other->getSparseFormat() == CSR_FORMAT && other->getDimSize(0) != 1) || (other->getSparseFormat() == CSC_FORMAT && other->getDimSize(1) != 1) ) ERROR_EXIT(128, "sparse AXPY needs a CSR row-vector or a CSC col-vector\n"); doSparseAxpy(other->nonZeroSize(), alpha, other->getRawValuesAccess(), other->getRawIndicesAccess(), getRawDataAccess(), static_cast(getOffset()), static_cast(getVectorStride()), getCudaFlag()); } template void Matrix::gemm(CBLAS_TRANSPOSE trans_A, CBLAS_TRANSPOSE trans_B, T alpha, const Matrix *otherA, const Matrix *otherB, T beta) { if (this->getTransposedFlag()) ERROR_EXIT(128, "GEMM method don't work with transposed C matrix (this)\n"); if (this == otherA || this == otherB) ERROR_EXIT(128, "GEMM method couldn't receive as A or B argument " "the caller object\n"); if (numDim != 2 || otherA->numDim != 2 || otherB->numDim != 2) ERROR_EXIT(128,"Incorrect number of dimensions, only allowed for numDim=2\n"); int row_idx_A = 0, col_idx_A = 1, row_idx_B = 0, col_idx_B = 1; if (trans_A == CblasTrans) april_utils::swap(row_idx_A, col_idx_A); if (trans_B == CblasTrans) april_utils::swap(row_idx_B, col_idx_B); if (matrixSize[0] != otherA->matrixSize[row_idx_A] || matrixSize[1] != otherB->matrixSize[col_idx_B] || otherA->matrixSize[col_idx_A] != otherB->matrixSize[row_idx_B]) ERROR_EXIT6(128, "Incorrect matrixes dimensions: %dx%d + %dx%d * %dx%d\n", matrixSize[0], matrixSize[1], otherA->matrixSize[row_idx_A], otherA->matrixSize[col_idx_A], otherB->matrixSize[row_idx_B], otherB->matrixSize[col_idx_B]); if (major_order != otherA->major_order || otherA->major_order != otherB->major_order) ERROR_EXIT(128, "Matrices with different major orders\n"); int M=matrixSize[0], N=matrixSize[1], K=otherA->matrixSize[col_idx_A]; int lda, ldb, ldc; if (major_order == CblasRowMajor) { lda = (!otherA->getTransposedFlag())?(otherA->stride[0]):(otherA->stride[1]); ldb = (!otherB->getTransposedFlag())?(otherB->stride[0]):(otherB->stride[1]); ldc = (!this->getTransposedFlag() )?(this->stride[0] ):(this->stride[1]); } else { lda = (!otherA->getTransposedFlag())?(otherA->stride[1]):(otherA->stride[0]); ldb = (!otherB->getTransposedFlag())?(otherB->stride[1]):(otherB->stride[0]); ldc = (!this->getTransposedFlag() )?(this->stride[1] ):(this->stride[0]); } if (otherA->stride[0]+otherA->stride[1] != lda+1 || otherB->stride[0]+otherB->stride[1] != ldb+1 || this->stride[0] +this->stride[1] != ldc+1) ERROR_EXIT(128, "Contiguous matrices are needed\n"); if (otherA->getTransposedFlag()) trans_A=NEGATE_CBLAS_TRANSPOSE(trans_A); if (otherB->getTransposedFlag()) trans_B=NEGATE_CBLAS_TRANSPOSE(trans_B); doGemm(major_order, trans_A, trans_B, M, N, K, alpha, otherA->data, lda, otherB->data, ldb, beta, data, ldc, otherA->offset, otherB->offset, offset, use_cuda); } template void Matrix::sparseMM(CBLAS_TRANSPOSE trans_A, CBLAS_TRANSPOSE trans_B, CBLAS_TRANSPOSE trans_C, T alpha, const SparseMatrix *otherA, const Matrix *otherB, T beta) { if (this == otherB) ERROR_EXIT(128, "Sparse GEMM method couldn't receive as A or B argument " "the caller object\n"); if (numDim != 2 || otherA->getNumDim() != 2 || otherB->numDim != 2) ERROR_EXIT(128,"Incorrect number of dimensions, only allowed for numDim=2\n"); int row_idx_A = 0, col_idx_A = 1, row_idx_B = 0, col_idx_B = 1; int row_idx_C = 0, col_idx_C = 1; if (trans_A == CblasTrans) april_utils::swap(row_idx_A, col_idx_A); if (trans_B == CblasTrans) april_utils::swap(row_idx_B, col_idx_B); if (trans_C == CblasTrans) april_utils::swap(row_idx_C, col_idx_C); if (matrixSize[row_idx_C] != otherA->getDimSize(row_idx_A) || matrixSize[col_idx_C] != otherB->matrixSize[col_idx_B] || otherA->getDimSize(col_idx_A) != otherB->matrixSize[row_idx_B]) ERROR_EXIT6(128, "Incorrect matrixes dimensions: %dx%d + %dx%d * %dx%d\n", matrixSize[row_idx_C], matrixSize[col_idx_C], otherA->getDimSize(row_idx_A), otherA->getDimSize(col_idx_A), otherB->matrixSize[row_idx_B], otherB->matrixSize[col_idx_B]); if (major_order != otherB->major_order) ERROR_EXIT(128, "Matrices with different major orders\n"); int M=matrixSize[row_idx_C], N=matrixSize[col_idx_C], K=otherB->getDimSize(row_idx_B); int ldb, ldc; if (major_order == CblasRowMajor) { ldb = (!otherB->getTransposedFlag())?(otherB->stride[0]):(otherB->stride[1]); ldc = (!this->getTransposedFlag() )?(this->stride[0] ):(this->stride[1]); } else { ldb = (!otherB->getTransposedFlag())?(otherB->stride[1]):(otherB->stride[0]); ldc = (!this->getTransposedFlag() )?(this->stride[1] ):(this->stride[0]); } if (otherB->stride[0]+otherB->stride[1] != ldb+1 || this->stride[0] +this->stride[1] != ldc+1) ERROR_EXIT(128, "Contiguous matrices are needed\n"); if (otherB->getTransposedFlag()) trans_B=NEGATE_CBLAS_TRANSPOSE(trans_B); if (this->getTransposedFlag()) trans_C=NEGATE_CBLAS_TRANSPOSE(trans_C); doSparseMM(major_order, otherA->getSparseFormat(), trans_A, trans_B, trans_C, M, N, K, alpha, otherA->getRawValuesAccess(), otherA->getRawIndicesAccess(), otherA->getRawFirstIndexAccess(), otherB->data, ldb, beta, data, ldc, otherB->offset, offset, use_cuda); } template void Matrix::gemv(CBLAS_TRANSPOSE trans_A, T alpha, const Matrix *otherA, const Matrix *otherX, T beta) { if (!isVector() || !otherX->isVector() || otherA->numDim != 2) ERROR_EXIT(128,"Incorrect number of dimensions\n"); int M,N; if (otherA->getTransposedFlag()) { trans_A=NEGATE_CBLAS_TRANSPOSE(trans_A); M=otherA->matrixSize[1]; N=otherA->matrixSize[0]; }else { M=otherA->matrixSize[0]; N=otherA->matrixSize[1]; } // SANITY CHECK if (trans_A == CblasNoTrans) { if (M != size() || N != otherX->size()) ERROR_EXIT4(128, "Incorrect matrixes dimensions: %dx1 + %dx%d * %dx1\n", size(), M, N, otherX->size()); } else { if (N != size() || M != otherX->size()) ERROR_EXIT4(128, "Incorrect matrixes dimensions: %dx1 + %dx%d * %dx1\n", size(), N, M, otherX->size()); } if (major_order != otherA->major_order || otherA->major_order != otherX->major_order) ERROR_EXIT(128, "Matrices with different major orders\n"); // int lda=(otherA->getIsDataRowOrdered())?otherA->stride[0]:otherA->stride[1]; int ldx=otherX->getVectorStride(); int ldy=getVectorStride(); if (otherA->stride[0] + otherA->stride[1] != lda+1) ERROR_EXIT(128, "Only allowed with contiguous matrices\n"); doGemv(major_order, trans_A, M, N, alpha, otherA->data, lda, otherX->data, ldx, beta, data, ldy, otherA->offset, otherX->offset, offset, use_cuda); } template void Matrix::gemv(CBLAS_TRANSPOSE trans_A, T alpha, const SparseMatrix *otherA, const Matrix *otherX, T beta) { if (!isVector() || !otherX->isVector()) ERROR_EXIT(128,"Incorrect number of dimensions\n"); int M,N; M=otherA->getDimSize(0); N=otherA->getDimSize(1); // SANITY CHECK if (trans_A == CblasNoTrans) { if (M != size() || N != otherX->size()) ERROR_EXIT4(128, "Incorrect matrixes dimensions: %dx1 + %dx%d * %dx1\n", size(), M, N, otherX->size()); } else { if (N != size() || M != otherX->size()) ERROR_EXIT4(128, "Incorrect matrixes dimensions: %dx1 + %dx%d * %dx1\n", size(), N, M, otherX->size()); } if (major_order != otherX->major_order) ERROR_EXIT(128, "Matrices with different major orders\n"); // int ldx=otherX->getVectorStride(); int ldy=getVectorStride(); doSparseGemv(major_order, otherA->getSparseFormat(), trans_A, M, N, alpha, otherA->getRawValuesAccess(), otherA->getRawIndicesAccess(), otherA->getRawFirstIndexAccess(), otherX->data, ldx, beta, data, ldy, otherX->offset, offset, use_cuda); } template void Matrix::ger(T alpha, const Matrix *otherX, const Matrix *otherY) { if (this->getTransposedFlag()) ERROR_EXIT(128, "GER method don't work with transposed A matrix (this)\n"); if (!otherX->isVector() || !otherY->isVector() || numDim!=2) ERROR_EXIT(128,"Incorrect number of dimensions\n"); int M=otherX->size(), N=otherY->size(); if (matrixSize[0] != M || matrixSize[1] != N) ERROR_EXIT4(128, "Incorrect matrixes dimensions: %dx%d + %dx1 * 1x%d\n", matrixSize[0], matrixSize[1], M, N); if (major_order != otherX->major_order || otherX->major_order != otherY->major_order) ERROR_EXIT(128, "Matrices with different major orders\n"); int lda=(getIsDataRowOrdered())?stride[0]:stride[1]; int ldx=otherX->getVectorStride(); int ldy=otherY->getVectorStride(); doGer(major_order, M, N, alpha, otherX->data, otherX->offset, ldx, otherY->data, otherY->offset, ldy, data, offset, lda, use_cuda); } template T Matrix::dot(const Matrix *other) const { if (!this->isVector() || !other->isVector()) ERROR_EXIT(128,"Incorrect number of dimensions\n"); if (this->size() != other->size()) ERROR_EXIT2(128, "Incorrect dimensions: %d dot %d\n", this->size(), other->size()); if (major_order != other->major_order) ERROR_EXIT(128, "Matrices with different major orders\n"); T ret = doDot(size(), data, offset, getVectorStride(), other->data, other->offset, other->getVectorStride(), use_cuda); return ret; } template T Matrix::dot(const SparseMatrix *other) const { if (!this->isVector() || !other->isVector()) ERROR_EXIT(128,"Incorrect number of dimensions\n"); if (this->size() != other->size()) ERROR_EXIT2(128, "Incorrect dimensions: %d dot %d\n", this->size(), other->size()); if (other->getDenseCoordinateSize() != 1) ERROR_EXIT(128, "DOT operation only allowed with sparse matrices with " "dense coordinate size of 1, please, change the sparse " "format\n"); T ret = doSparseDot(other->nonZeroSize(), other->getRawValuesAccess(), other->getRawIndicesAccess(), data, offset, getVectorStride(), use_cuda); return ret; } template void Matrix::scal(T value) { for (iterator it(begin()); it != end(); ++it) *it *= value; } template void Matrix::div(T value) { for (iterator it(begin()); it != end(); ++it) *it /= value; } template float Matrix::norm2() const { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); return 0.0f; } template T Matrix::min(int &arg_min, int &arg_min_raw_pos) const { const_iterator it = april_utils::argmin(begin(),end()); arg_min = it.idx; arg_min_raw_pos = it.raw_pos; return *it; } template T Matrix::max(int &arg_max, int &arg_max_raw_pos) const { const_iterator it = april_utils::argmax(begin(),end()); arg_max = it.idx; arg_max_raw_pos = it.raw_pos; return *it; } template void Matrix::minAndMax(T &min, T &max) const { const_iterator it(begin()); min = max = *it; ++it; for (; it != end(); ++it) { if ( max < (*it) ) max = *it; else if ( (*it) < min ) min = *it; } } // the argument indicates over which dimension the sum must be performed template struct max_dim_functor { T operator()(const Matrix *slice) { int a,b; return slice->max(a,b); } }; template struct max_and_argmax_dim_functor { T operator()(const Matrix *slice, int32_t &argmax_pos) { int a,b; T max = slice->max(a,b); argmax_pos = a+1; return max; } }; template Matrix* Matrix::max(int dim, Matrix *dest, Matrix *argmax) { if (argmax == 0) return applyFunctorOverDimension(max_dim_functor(), this, dim, dest); else return applyFunctorOverDimension2(max_and_argmax_dim_functor(), this, dim, dest, argmax); } // the argument indicates over which dimension the sum must be performed template struct min_dim_functor { T operator()(const Matrix *slice) { int a,b; return slice->min(a,b); } }; template struct min_and_argmin_dim_functor { T operator()(const Matrix *slice, int32_t &argmin_pos) { int a,b; T min = slice->min(a,b); argmin_pos = a+1; return min; } }; template Matrix* Matrix::min(int dim, Matrix *dest, Matrix *argmin) { if (argmin == 0) return applyFunctorOverDimension(min_dim_functor(), this, dim, dest); else return applyFunctorOverDimension2(min_and_argmin_dim_functor(), this, dim, dest, argmin); } template Matrix *Matrix::maxSelDim(const int dim, Int32GPUMirroredMemoryBlock *raw_positions, int shift) const { UNUSED_VARIABLE(dim); UNUSED_VARIABLE(raw_positions); UNUSED_VARIABLE(shift); ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); return 0; } template void Matrix::adjustRange(T rmin, T rmax) { UNUSED_VARIABLE(rmin); UNUSED_VARIABLE(rmax); ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template Matrix *Matrix::inv() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); return 0; } template void Matrix::svd(Matrix **U, SparseMatrix **S, Matrix **V) { UNUSED_VARIABLE(U); UNUSED_VARIABLE(S); UNUSED_VARIABLE(V); ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } // FIXME: IMPLEMENT THE BOOLEAN CONDITIONS USING CUDA WRAPPERS /* BOOLEAN CONDITIONS: this methods transforms the given matrix in a ZERO/ONE matrix, depending in the truth of the given condition */ // less than template void Matrix::LTCondition(T value) { UNUSED_VARIABLE(value); ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::LTCondition(Matrix *value) { UNUSED_VARIABLE(value); ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } // greater than template void Matrix::GTCondition(T value) { UNUSED_VARIABLE(value); ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void Matrix::GTCondition(Matrix *value) { UNUSED_VARIABLE(value); ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } // april-ann-0.3.1/packages/basics/matrix/c_src/matrix.h000066400000000000000000000676061234204160600225050ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco Zamora-Martinez * Copyright 2012, Salvador España-Boquera * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MATRIX_H #define MATRIX_H #include #include "april_assert.h" #include #include // surprisingly, placement new doesn't work without this #include "cblas_headers.h" #include "wrapper.h" #include "gpu_mirrored_memory_block.h" #include "referenced.h" #include "clamp.h" #include "aligned_memory.h" #include "swap.h" #include "maxmin.h" #include "qsort.h" #include "mmapped_data.h" #include "unused_variable.h" // forward declaration template class SparseMatrix; /// Multidimensional matrix class. It implements basic linear algebra routines /// and other math operations. By default, the zero value must be T() template class Matrix : public Referenced { friend class SparseMatrix; const static unsigned int MATRIX_BINARY_VERSION; enum matrix_contiguous_enum_t { NONE=0, CONTIGUOUS=1, NONCONTIGUOUS=2 }; // Auxiliary count variable where the user could store the number of times // this object is shared in a computation (like in ANN components sharing // weight matrices) unsigned int shared_count; protected: /// Indicator of transposition bool transposed; /// Number of dimensions int numDim; /// Size of each dimension int *stride; /// Offset for sub-matrix int offset; /// Sub-matrix size of each dimension int *matrixSize; /// Total size of the matrix (number of elements) int total_size; int last_raw_pos; /// Pointer to data GPUMirroredMemoryBlock *data; april_utils::MMappedDataReader *mmapped_data; /// Major type (only when numDim=2) CBLAS_ORDER major_order; /// For CUDA purposes bool use_cuda; /// To know if it is contiguous mutable matrix_contiguous_enum_t is_contiguous; /// Constructor... -> Integer array with the size of each dimension /* Matrix(int numDim, const int* dim, T* data_vector, CBLAS_ORDER major_order = CblasRowMajor); */ /// Returns the data pointer for read and write T *getData() { return data->getPPALForReadAndWrite(); } /// Returns the data pointer for read const T *getData() const { return data->getPPALForRead(); } int getLastRawPos() const { return last_raw_pos; } /// Returns if the matrix is a vector bool isVector() const { return (numDim==1 || (numDim==2 && ( (matrixSize[0]==1) || (matrixSize[1]==1) ))); } bool isColVector() const { return (numDim==2 && matrixSize[1]==1); } /// Returns the stride of the vector, the stride whom coordinate is different /// of 1. It only works if the matrix is a vector (precondition). int getVectorStride() const { return (numDim == 1) ? stride[0] : ( (matrixSize[0]!=1) ? (stride[0]) : (stride[1]) ); } public: class sliding_window; friend class sliding_window; /// Computes the position at data array given it coordinates int computeRawPos(const int *coords) const; /// Computes the coordinates given the raw data position void computeCoords(const int raw_pos, int *coords) const; /// Updates with the following coordinates vector bool nextCoordVectorRowOrder(int *coords, int &raw_pos) const; bool nextCoordVectorColOrder(int *coords, int &raw_pos) const; bool nextCoordVectorRowOrder(int *coords) const; bool nextCoordVectorColOrder(int *coords) const; static bool nextCoordVectorRowOrder(int *coords, const int *sizes, const int numDim); static bool nextCoordVectorColOrder(int *coords, const int *sizes, const int numDim); static bool nextCoordVectorRowOrder(int *coords, int &raw_pos, const int *sizes, const int *strides, const int numDim, const int last_raw_pos); static bool nextCoordVectorColOrder(int *coords, int &raw_pos, const int *sizes, const int *strides, const int numDim, const int last_raw_pos); /********* Iterators for Matrix traversal *********/ // forward declaration class const_iterator; class col_major_iterator; class const_col_major_iterator; class iterator { friend class const_iterator; friend class col_major_iterator; friend class const_col_major_iterator; friend class Matrix; Matrix *m; int idx; int raw_pos; /// The coords array is only used when the matrix is not congiuous /// or it is in col_major order, otherwise it is NULL int *coords; T *data; iterator(Matrix *m); iterator(Matrix *m, int raw_pos); iterator(Matrix *m, int raw_pos, int *coords); public: iterator(); iterator(const iterator &other); ~iterator(); iterator &operator=(const iterator &other); bool operator==(const iterator &other) const; bool operator!=(const iterator &other) const; iterator &operator++(); T &operator*(); T *operator->(); int getRawPos() const; int getIdx() const { return idx; } }; /*******************************************************/ class col_major_iterator { friend class Matrix; Matrix *m; int idx; int raw_pos; /// The coords array is only used when the matrix is not congiuous /// or it is in row_major order, otherwise it is NULL int *coords; T *data; col_major_iterator(Matrix *m); col_major_iterator(Matrix *m, int raw_pos); col_major_iterator(Matrix *m, int raw_pos, int *coords); public: col_major_iterator(); col_major_iterator(const col_major_iterator &other); col_major_iterator(const iterator &other); ~col_major_iterator(); col_major_iterator &operator=(const col_major_iterator &other); col_major_iterator &operator=(const iterator &other); bool operator==(const col_major_iterator &other) const; bool operator==(const iterator &other) const; bool operator!=(const col_major_iterator &other) const; bool operator!=(const iterator &other) const; col_major_iterator &operator++(); T &operator*(); T *operator->(); int getRawPos() const; int getIdx() const { return idx; } }; /*******************************************************/ class const_iterator { friend class const_col_major_iterator; friend class Matrix; const Matrix *m; int idx; int raw_pos; /// The coords array is only used when the matrix is not congiuous /// or it is in col_major order, otherwise it is NULL int *coords; const T *data; const_iterator(const Matrix *m); const_iterator(const Matrix *m, int raw_pos); const_iterator(const Matrix *m, int raw_pos, int *coords); public: const_iterator(); const_iterator(const const_iterator &other); const_iterator(const iterator &other); /*const_iterator(const iterator &other);*/ ~const_iterator(); const_iterator &operator=(const const_iterator &other); const_iterator &operator=(const iterator &other); bool operator==(const const_iterator &other) const; bool operator==(const iterator &other) const; bool operator!=(const const_iterator &other) const; bool operator!=(const iterator &other) const; const_iterator &operator++(); const T &operator*() const; const T *operator->() const; int getRawPos() const; int getIdx() const { return idx; } }; /*******************************************************/ class const_col_major_iterator { friend class Matrix; const Matrix *m; int idx; int raw_pos; /// The coords array is only used when the matrix is not congiuous /// or it is in row_major order, otherwise it is NULL int *coords; const T *data; const_col_major_iterator(const Matrix *m); const_col_major_iterator(const Matrix *m, int raw_pos); const_col_major_iterator(const Matrix *m, int raw_pos, int *coords); public: const_col_major_iterator(); const_col_major_iterator(const const_col_major_iterator &other); const_col_major_iterator(const iterator &other); const_col_major_iterator(const const_iterator &other); /*const_col_major_iterator(const iterator &other);*/ ~const_col_major_iterator(); const_col_major_iterator &operator=(const const_col_major_iterator &other); const_col_major_iterator &operator=(const iterator &other); const_col_major_iterator &operator=(const const_iterator &other); bool operator==(const const_col_major_iterator &other) const; bool operator==(const iterator &other) const; bool operator==(const const_iterator &other) const; bool operator!=(const const_col_major_iterator &other) const; bool operator!=(const iterator &other) const; bool operator!=(const const_iterator &other) const; const_col_major_iterator &operator++(); const T &operator*() const; const T *operator->() const; int getRawPos() const; int getIdx() const { return idx; } }; /********************************************************/ /** * The sliding is a kind of iterator which traverses the matrix producing * sub-matrices following a sliding window similar to dataset.matrix. This * iterator couldn't account for CIRCULAR and OUTSIDE values. */ class sliding_window : public Referenced { /// A reference to the matrix Matrix *m; /// Offset coordinates int *offset; /// subPattern size. int *sub_matrix_size; /// Step of each dimension for the sliding window. int *step; /// Number of movements on each dimension (number of steps). int *num_steps; /// Order of movement for each dimension. int *order_step; /// Coordinate position of the first component int *coords; /// Current position at the matrix of the first component int raw_pos; /// int total_size, last_raw_pos; bool finished; /// auxiliary computation int *offset_plus_num_step_by_step; /// Number of windows generated by the iterator int num_windows; public: sliding_window(); sliding_window(Matrix *m, const int *sub_matrix_size=0, const int *offset=0, const int *step=0, const int *num_steps=0, const int *order_step=0); sliding_window(const sliding_window &other); ~sliding_window(); sliding_window &operator=(const sliding_window &other); sliding_window *next(); /// This method returns the matrix at the current window position. If a /// matrix is given, it must be created before using previous execution of /// getMatrix method. WARNING, the matrix is not check to be correct, so be /// careful. Matrix *getMatrix(Matrix *dest=0); bool isEnd() const { return finished; } int numWindows() const; void setAtWindow(int windex); const int *getCoords() const; int getNumDim() const; }; /********************************************************/ /** * The span iterator traverses the matrix allowing to do a linear * traversal of the largest dimension. */ class best_span_iterator { friend class Matrix; const Matrix *m; int raw_pos; int *coords, *order; int num_iterations; struct inverse_sort_compare { const Matrix *m; inverse_sort_compare(const Matrix *m) : m(m) { } bool operator()(const int &a, const int &b) { const int a_sz = m->matrixSize[a]; const int b_sz = m->matrixSize[b]; if (a_sz == b_sz) { if (m->major_order == CblasRowMajor) return b < a; else return a < b; } // Don't use a trade-off between size and stride, it will be unsafe with // transposed matrices else return a_sz > b_sz; } }; // void initialize(const Matrix *m, int raw_pos); // best_span_iterator(const Matrix *m, int raw_pos); public: best_span_iterator(const Matrix *m); best_span_iterator(); best_span_iterator(const best_span_iterator &other); ~best_span_iterator(); int getOffset() const; int getStride() const; int getSize() const; best_span_iterator &operator=(const best_span_iterator &other); bool operator==(const best_span_iterator &other) const; bool operator!=(const best_span_iterator &other) const; best_span_iterator &operator++(); int numberOfIterations() const; void setAtIteration(int idx); }; /********************************************************/ /** * The random access iterator allows to retain the memory pointer, forcing an * update between host and device (GPU) memory, and allows to access any * position of the matrix given its coordinates. */ class random_access_iterator { Matrix *m; T *memory; int *coords; public: random_access_iterator(Matrix *m) : m(m), memory(m->getRawDataAccess()->getPPALForReadAndWrite()), coords(new int[m->numDim]) { } ~random_access_iterator() { delete[] coords; } /// Raw access operation, CAUTION it is dangerous T& operator[] (int raw_pos) { return memory[raw_pos]; } /// Acces for uni-dimensional matrices T& operator() (int i) { april_assert(m->numDim == 1); int raw_pos = m->computeRawPos(&i); return memory[raw_pos]; } /// Acces for bi-dimensional matrices T& operator() (int row, int col) { april_assert(m->numDim == 2); coords[0] = row; coords[1] = col; int raw_pos = m->computeRawPos(coords); return memory[raw_pos]; } /// Acces for N-dimensional matrices T& operator() (int coord0, int coord1, int coord2, ...) { april_assert(m->numDim >= 3); coords[0] = coord0; coords[1] = coord1; coords[2] = coord2; va_list ap; va_start(ap, coord2); for(int i=3; inumDim; i++) { int coordn = va_arg(ap, int); coords[i] = coordn; } va_end(ap); int raw_pos = m->computeRawPos(coords); return memory[raw_pos]; } /// Acces for N-dimensional by using a vector of coordinates T& operator() (int *coords, int sz) { UNUSED_VARIABLE(sz); april_assert(m->numDim == sz); int raw_pos = m->computeRawPos(coords); return memory[raw_pos]; } }; /** * The const random access iterator allows to retain the memory pointer, * forcing an update between host and device (GPU) memory, and allows to * access any position of the matrix given its coordinates. It is a read-only * iterator. */ class const_random_access_iterator { const Matrix *m; const T *memory; int *coords; public: const_random_access_iterator(const Matrix *m) : m(m), memory(m->getRawDataAccess()->getPPALForRead()), coords(new int[m->numDim]) { } ~const_random_access_iterator() { delete[] coords; } /// Raw access operation, CAUTION it is dangerous const T& operator[] (int raw_pos) const { return memory[raw_pos]; } const T& operator() (int i) const { april_assert(m->numDim == 1); int raw_pos = m->computeRawPos(&i); return memory[raw_pos]; } const T& operator() (int row, int col) const { april_assert(m->numDim == 2); coords[0] = row; coords[1] = col; int raw_pos = m->computeRawPos(coords); return memory[raw_pos]; } const T& operator() (int coord0, int coord1, int coord2, ...) const { april_assert(m->numDim >= 3); coords[0] = coord0; coords[1] = coord1; coords[2] = coord2; va_list ap; va_start(ap, coord2); for(int i=3; inumDim; i++) { int coordn = va_arg(ap, int); coords[i] = coordn; } va_end(ap); int raw_pos = m->computeRawPos(coords); return memory[raw_pos]; } const T& operator() (int *coords, int sz) const { UNUSED_VARIABLE(sz); april_assert(m->numDim == sz); int raw_pos = m->computeRawPos(coords); return memory[raw_pos]; } }; private: // const version of iterators, for fast end() iterator calls. They are // allocated on-demand, so if end() methods are never executed, they // don't waste memory space mutable iterator end_iterator; mutable const_iterator end_const_iterator; mutable best_span_iterator end_best_span_iterator; // NULL constructor Matrix() : is_contiguous(NONE), end_iterator(), end_const_iterator(), end_best_span_iterator() { } // Matrix(int numDim, const int *stride, const int offset, const int *matrixSize, const int total_size, const int last_raw_pos, GPUMirroredMemoryBlock *data, const CBLAS_ORDER major_order, const bool use_cuda, const bool transposed, april_utils::MMappedDataReader *mmapped_data = 0); /// Modifies the offset of the matrix. WARNING, this method doesn't check the /// new data position, so be sure that it fits in the data pointer size void changeSubMatrixData(const int new_offset, const int new_last_raw_pos) { offset = new_offset; last_raw_pos = new_last_raw_pos; end_iterator.m = 0; end_const_iterator.m = 0; end_best_span_iterator.m = 0; } public: /********** Constructors ***********/ /// Full constructor given numDim, dim, and major_order Matrix(int numDim, const int* dim, CBLAS_ORDER major_order = CblasRowMajor, GPUMirroredMemoryBlock *data = 0, int offset = 0, bool transposed = false); /// Constructor with T() values and CblasRowMajor order Matrix(int numDim, int d1, ...); /// Constructor given other matrix, it does a shallow or deep copy (clone). By /// default is a deep copy, some code pieces expect this behavior, don't /// change it. Matrix(Matrix *other, bool clone=true); /// Sub-matrix constructor Matrix(Matrix *other, const int* coords, const int *sizes, bool clone=true); /// Destructor virtual ~Matrix(); /// Constructor from a MMAP file static Matrix *fromMMappedDataReader(april_utils::MMappedDataReader *mmapped_data); /// Writes to a file void toMMappedDataWriter(april_utils::MMappedDataWriter *mmapped_data) const; /// Modify sizes of matrix Matrix *rewrap(const int *new_dims, int len); /* Getters and setters */ int getNumDim() const { return numDim; } const int *getDimPtr() const { return matrixSize; } const int *getStridePtr() const { return stride; } int getDimSize(int i) const { return matrixSize[i]; } int getStrideSize(int i) const { return stride[i]; } int size() const { return total_size; } CBLAS_ORDER getMajorOrder() const { return major_order; } bool getTransposedFlag() const { return transposed; } bool getIsDataRowOrdered() const { return ( (getMajorOrder()==CblasRowMajor && !getTransposedFlag()) || (getMajorOrder()==CblasColMajor && getTransposedFlag()) ); } void setUseCuda(bool v) { use_cuda = v; #ifdef USE_CUDA if (use_cuda) data->updateMemGPU(); #endif } bool getCudaFlag() const { return use_cuda; } bool isSimple() const { return (getIsContiguous())&&(getIsDataRowOrdered()); } /// Indicates if it is a contiguous matrix bool getIsContiguous() const; /// Returns the offset of first data value (sub-matrix) int getOffset() const { return offset; } /**********************/ iterator begin() { return iterator(this); } iterator iteratorAt(int c0) { april_assert(numDim==1); return iterator(this, computeRawPos(&c0), &c0); } iterator iteratorAt(int c0, int c1) { april_assert(numDim==2); int aux[2]={c0,c1}; return iterator(this, computeRawPos(aux), aux); } iterator iteratorAt(int *coords, int len) { UNUSED_VARIABLE(len); april_assert(numDim==len); return iterator(this, computeRawPos(coords), coords); } const iterator &end() { if (end_iterator.m == 0) end_iterator = iterator(this, last_raw_pos+1); return end_iterator; } const best_span_iterator &end_span_iterator() const { if (end_best_span_iterator.m == 0) end_best_span_iterator = best_span_iterator(this, last_raw_pos+1); return end_best_span_iterator; } /************************/ const_iterator begin() const { return const_iterator(this); } const_iterator iteratorAt(int c0) const { april_assert(numDim==1); return const_iterator(this, computeRawPos(&c0), &c0); } const_iterator iteratorAt(int c0, int c1) const { april_assert(numDim==2); int aux[2]={c0,c1}; return const_iterator(this, computeRawPos(aux), aux); } const_iterator iteratorAt(int *coords, int len) const { UNUSED_VARIABLE(len); april_assert(numDim==len); return const_iterator(this, computeRawPos(coords), coords); } const const_iterator &end() const { if (end_const_iterator.m == 0) end_const_iterator = const_iterator(this, last_raw_pos+1); return end_const_iterator; } /// Symbolic transposition, changes the flag and preserves the major order /// flag Matrix* transpose(); /// Changing major order is a different way to perform a transposition, but /// taking into account a change in the major_order flag Matrix* inMajorOrder(CBLAS_ORDER new_major_order); /// Copy only sizes, but not data Matrix* cloneOnlyDims() const; /// Deep copy Matrix* clone(); /// Deep copy with different major_order Matrix *clone(CBLAS_ORDER major_order); /// Shallow copy Matrix* shallow_copy(); /// Number values check void pruneSubnormalAndCheckNormal(); /// This method sets to zero the shared counter void resetSharedCount() { shared_count = 0; } /// This method adds counts to the shared counter void addToSharedCount(unsigned int count=1) { shared_count += count; } /// Getter of the shared count value unsigned int getSharedCount() const { return shared_count; } /// Raw access operator [] T& operator[] (int i); const T& operator[] (int i) const; // Access to independent elements, one and two dimensions are special cases T& operator() (int i); T& operator() (int row, int col); T& operator() (int coord0, int coord1, int coord2, ...); T& operator() (int *coords, int sz); const T& operator() (int i) const; const T& operator() (int row, int col) const; const T& operator() (int coord0, int coord1, int coord2, ...) const; const T& operator() (int *coords, int sz) const; /// Function to obtain RAW access to data pointer. Be careful with it, because /// you are losing sub-matrix abstraction, and the major order. GPUMirroredMemoryBlock *getRawDataAccess() { return data; } const GPUMirroredMemoryBlock *getRawDataAccess() const { return data; } bool getCol(int col, T* vec, int vecsize); bool putCol(int col, T *vec, int vecsize); bool putSubCol(int col, int first_row, T *vec, int vecsize); /// Returns true if they have the same dimension template bool sameDim(const Matrix *other) const; bool sameDim(const int *dims, const int len) const; /// Returns a matrix of one less dimension, with the elements selected for the /// given dimension at the given index. If a matrix is given, it must be /// created before using previous execution of select method over the same /// dimension. WARNING, the matrix is not check to be correct, so be careful. Matrix *select(int dim, int index, Matrix *dest=0); //////////////////////////////////////////////////////////////////////////// void clamp(T lower, T upper); void fill(T value); void zeros(); void ones(); // Set the diagonal to current value void diag(T value); // Returns a new matrix with the sum, assuming they have the same dimension // Crashes otherwise Matrix* addition(const Matrix *other); // The same as addition but substracting Matrix* substraction(const Matrix *other); // Matrices must be NxK and KxM, the result is NxM Matrix* multiply(const Matrix *other) const; T sum() const; // the argument indicates over which dimension the sum must be performed Matrix* sum(int dim, Matrix *dest=0); /**** COMPONENT WISE OPERATIONS ****/ bool equals(const Matrix *other, float epsilon) const; void plogp(); void log(); void log1p(); void exp(); void sqrt(); void pow(T value); void tan(); void tanh(); void atan(); void atanh(); void sin(); void sinh(); void asin(); void asinh(); void cos(); void cosh(); void acos(); void acosh(); void abs(); void complement(); void sign(); void cmul(const Matrix *other); void adjustRange(T rmin, T rmax); /* BOOLEAN CONDITIONS: this methods transforms the given matrix in a ZERO/ONE matrix, depending in the truth of the given condition */ // less than void LTCondition(T value); void LTCondition(Matrix *value); // greater than void GTCondition(T value); void GTCondition(Matrix *value); // /**** BLAS OPERATIONS ****/ void scalarAdd(T s); // SCOPY BLAS operation this = other void copy(const Matrix *other); // AXPY BLAS operation this = this + alpha * other void axpy(T alpha, const Matrix *other); // AXPY Sparse BLAS operation this = this + alpha * other void axpy(T alpha, const SparseMatrix *other); // GEMM BLAS operation this = alpha * op(A)*op(B) + beta*this void gemm(CBLAS_TRANSPOSE trans_A, CBLAS_TRANSPOSE trans_B, T alpha, const Matrix *otherA, const Matrix *otherB, T beta); // MM Sparse BLAS operation this = alpha * op(A)*B + beta*this void sparseMM(CBLAS_TRANSPOSE trans_A, CBLAS_TRANSPOSE trans_B, CBLAS_TRANSPOSE trans_C, T alpha, const SparseMatrix *otherA, const Matrix *otherB, T beta); // GEMV BLAS operation this = alpha * op(A)*X + beta*this void gemv(CBLAS_TRANSPOSE trans_A, T alpha, const Matrix *otherA, const Matrix *otherX, T beta); // GEMV Sparse BLAS operation this = alpha * op(A)*X + beta*this void gemv(CBLAS_TRANSPOSE trans_A, T alpha, const SparseMatrix *otherA, const Matrix *otherX, T beta); // GER BLAS operation this = alpha * X*Y' + this void ger(T alpha, const Matrix *otherX, const Matrix *otherY); // DOT BLAS operation value = dot(this, other) T dot(const Matrix *other) const; // DOT Sparse BLAS operation value = dot(this, other) T dot(const SparseMatrix *other) const; void scal(T value); void div(T value); float norm2() const; T min(int &arg_min, int &arg_min_raw_pos) const; T max(int &arg_max, int &arg_max_raw_pos) const; void minAndMax(T &min, T &max) const; // Min and max over given dimension, be careful, argmin and argmax matrices // contains the min/max index at the given dimension, but starting in 1 (not // in 0) Matrix *min(int dim, Matrix *dest=0, Matrix *argmin=0); Matrix *max(int dim, Matrix *dest=0, Matrix *argmax=0); Matrix *maxSelDim(const int dim, Int32GPUMirroredMemoryBlock *raw_positions=0, int shift = 0) const; // Expands current matrix to a diagonal matrix Matrix *diagonalize() const; /**** LAPACK OPERATIONS ****/ Matrix *inv(); void svd(Matrix **U, SparseMatrix **S, Matrix **V); // UPDATE GPU OR PPAL IF NEEDED void update() { #ifdef USE_CUDA data->forceUpdate(use_cuda); #endif } private: void allocate_memory(int size); void release_memory(); void initialize(const int *dim); }; #include "sparse_matrix.h" #include "matrix.impl.h" #include "matrix-iterators.impl.h" #include "matrix-math.impl.h" #endif // MATRIX_H april-ann-0.3.1/packages/basics/matrix/c_src/matrix.impl.h000066400000000000000000000577331234204160600234450ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco Zamora-Martinez * Copyright 2012, Salvador España-Boquera * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include #include #include #include #include "error_print.h" #include "ignore_result.h" template const unsigned int Matrix::MATRIX_BINARY_VERSION = 0x00000001; template void Matrix::initialize(const int *dim) { total_size=1; switch(major_order) { case CblasRowMajor: for(int i=numDim-1; i>=0; --i) { stride[i] = total_size; total_size *= dim[i]; matrixSize[i] = dim[i]; april_assert(matrixSize[i] > 0); } break; case CblasColMajor: for(int i=0; i 0); } break; default: ERROR_EXIT(128, "Incorrect major order!!!\n"); } last_raw_pos = total_size-1; } /// Allocation of memory for data pointer. It is Referenced for sharing. template void Matrix::allocate_memory(int size) { data = new GPUMirroredMemoryBlock(static_cast(size)); IncRef(data); } /// Release of the memory allocated for data pointer. template void Matrix::release_memory() { DecRef(data); } /// Null constructor template Matrix::Matrix(int numDim, const int *stride, const int offset, const int *matrixSize, const int total_size, const int last_raw_pos, GPUMirroredMemoryBlock *data, const CBLAS_ORDER major_order, const bool use_cuda, const bool transposed, april_utils::MMappedDataReader *mmapped_data) : Referenced(), shared_count(0), transposed(transposed), numDim(numDim), stride(new int[numDim]), offset(offset), matrixSize(new int[numDim]), total_size(total_size), last_raw_pos(last_raw_pos), data(data), mmapped_data(mmapped_data), major_order(major_order), use_cuda(use_cuda), is_contiguous(NONE), end_iterator(), end_const_iterator(), end_best_span_iterator() { IncRef(data); if (mmapped_data) IncRef(mmapped_data); for (int i=0; istride[i] = stride[i]; this->matrixSize[i] = matrixSize[i]; } } /// Default constructor template Matrix::Matrix(int numDim, const int* dim, CBLAS_ORDER major_order, GPUMirroredMemoryBlock *data, int offset, bool transposed) : Referenced(), shared_count(0), transposed(transposed), numDim(numDim), offset(offset), mmapped_data(0), major_order(major_order), use_cuda(false), is_contiguous(CONTIGUOUS), end_iterator(), end_const_iterator(), end_best_span_iterator() { stride = new int[numDim]; matrixSize = new int[numDim]; initialize(dim); last_raw_pos += offset; if (data == 0) allocate_memory(total_size); else { if (static_cast(data->getSize()) < offset + size()) ERROR_EXIT2(128, "Data pointer size doesn't fit, expected %d, found %d\n", size(), data->getSize()); this->data = data; IncRef(data); } } /// Constructor for sub-matrix building template Matrix::Matrix(Matrix *other, const int* coords, const int *sizes, bool clone) : Referenced(), shared_count(0), transposed(other->transposed), numDim(other->numDim), offset(0), mmapped_data(0), major_order(other->major_order), use_cuda(other->use_cuda), is_contiguous(NONE), end_iterator(), end_const_iterator(), end_best_span_iterator() { for (int i=0; i other->matrixSize[i]) ERROR_EXIT3(128, "Size+coordinates are out of dimension size: %d+%d>%d\n", sizes[i], coords[i], other->matrixSize[i]); } stride = new int[numDim]; matrixSize = new int[numDim]; if (clone) { transposed = false; is_contiguous = CONTIGUOUS; initialize(sizes); allocate_memory(total_size); int other_raw_pos = other->computeRawPos(coords); const T *other_data = other->data->getPPALForRead(); int *aux_coords = new int[numDim]; for (int i=0; istride, numDim, other->last_raw_pos); } } else { for (col_major_iterator it(begin()); it!=end(); ++it) { *it = other_data[other_raw_pos]; nextCoordVectorColOrder(aux_coords, other_raw_pos, sizes, other->stride, numDim, other->last_raw_pos); } } delete[] aux_coords; } else { int *aux_coords = new int[numDim]; total_size = 1; for (int i=0; istride[i]; matrixSize[i] = sizes[i]; total_size = total_size * sizes[i]; aux_coords[i] = sizes[i]-1; } offset = other->computeRawPos(coords); data = other->data; IncRef(data); last_raw_pos = computeRawPos(aux_coords); delete[] aux_coords; } } /// Constructor with variable arguments template Matrix::Matrix(int numDim, int d1, ...) : Referenced(), shared_count(0), transposed(false), numDim(numDim), offset(0), mmapped_data(0), major_order(CblasRowMajor), is_contiguous(CONTIGUOUS), end_iterator(), end_const_iterator(), end_best_span_iterator() { int *dim = new int[numDim]; stride = new int[numDim]; matrixSize = new int[numDim]; va_list ap; va_start(ap, d1); dim[0]=d1; for (int i=1; i Matrix::Matrix(Matrix *other, bool clone) : Referenced(), shared_count(0), transposed(other->transposed), numDim(other->numDim), offset(0), mmapped_data(0), major_order(other->major_order), use_cuda(other->use_cuda), is_contiguous(other->is_contiguous), end_iterator(), end_const_iterator(), end_best_span_iterator() { stride = new int[numDim]; matrixSize = new int[numDim]; total_size = other->total_size; last_raw_pos = other->last_raw_pos; if (clone) { transposed = false; initialize(other->matrixSize); allocate_memory(total_size); copy(other); is_contiguous = CONTIGUOUS; } else { offset = other->offset; data = other->data; IncRef(data); for (int i=0; istride[i]; matrixSize[i] = other->matrixSize[i]; } } } template Matrix *Matrix::fromMMappedDataReader(april_utils::MMappedDataReader *mmapped_data) { Matrix *obj = new Matrix(); // obj->data = GPUMirroredMemoryBlock::fromMMappedDataReader(mmapped_data); IncRef(obj->data); // unsigned int binary_version = *(mmapped_data->get()); if (binary_version != MATRIX_BINARY_VERSION) ERROR_EXIT1(128, "Incorrect binary matrix version from commit number %d\n", mmapped_data->getCommitNumber()); int N = *(mmapped_data->get()); obj->numDim = N; obj->stride = mmapped_data->get(N); obj->offset = *(mmapped_data->get()); obj->matrixSize = mmapped_data->get(N); obj->total_size = *(mmapped_data->get()); obj->last_raw_pos = *(mmapped_data->get()); obj->major_order = *(mmapped_data->get()); obj->transposed = *(mmapped_data->get()); // NON MAPPED DATA obj->use_cuda = false; obj->shared_count = 0; obj->is_contiguous = NONE; // THE MMAP POINTER obj->mmapped_data = mmapped_data; IncRef(obj->mmapped_data); // return obj; } template void Matrix::toMMappedDataWriter(april_utils::MMappedDataWriter *mmapped_data) const { data->toMMappedDataWriter(mmapped_data); mmapped_data->put(&MATRIX_BINARY_VERSION); mmapped_data->put(&numDim); mmapped_data->put(stride, numDim); mmapped_data->put(&offset); mmapped_data->put(matrixSize, numDim); mmapped_data->put(&total_size); mmapped_data->put(&last_raw_pos); mmapped_data->put(&major_order); mmapped_data->put(&transposed); } template Matrix::~Matrix() { release_memory(); if (mmapped_data == 0) { delete[] stride; delete[] matrixSize; } else DecRef(mmapped_data); } template Matrix *Matrix::rewrap(const int *new_dims, int len) { if (!getIsContiguous()) ERROR_EXIT(128, "Impossible to re-wrap non contiguous matrix, " "clone it first\n"); bool equal = true; int new_size = 1; for (int i=0; i=numDim || new_dims[i] != matrixSize[i]) equal=false; new_size *= new_dims[i]; } if (len==numDim && equal) return this; if (new_size != size()) ERROR_EXIT2(128, "Incorrect size, expected %d, and found %d\n", size(), new_size); Matrix *obj = new Matrix(len, new_dims, major_order, data, offset); #ifdef USE_CUDA obj->setUseCuda(use_cuda); #endif return obj; } template Matrix *Matrix::transpose() { Matrix *result; if (this->numDim > 1) { result = this->shallow_copy(); result->transposed = !result->transposed; for (int i=0,j=numDim-1; istride[j] = this->stride[i]; result->matrixSize[j] = this->matrixSize[i]; } } else result = this; return result; } template Matrix *Matrix::inMajorOrder(CBLAS_ORDER new_major_order) { Matrix *result; if (new_major_order == major_order) result = this; else { result = this->transpose(); result->transposed = !result->transposed; result->major_order = new_major_order; } return result; } template Matrix* Matrix::cloneOnlyDims() const { Matrix *obj = new Matrix(numDim, matrixSize, major_order); #ifdef USE_CUDA obj->setUseCuda(use_cuda); #endif return obj; } template Matrix *Matrix::clone(CBLAS_ORDER major_order) { Matrix *resul; if (this->major_order != major_order) { resul = new Matrix(numDim, matrixSize, major_order); #ifdef USE_CUDA resul->setUseCuda(use_cuda); #endif iterator resul_it(resul->begin()); const_iterator this_it(begin()); while(resul_it != resul->end()) { *resul_it = *this_it; ++resul_it; ++this_it; } } else resul = this->clone(); return resul; } template Matrix* Matrix::clone() { return new Matrix(this,true); } template Matrix* Matrix::shallow_copy() { return new Matrix(this,false); } template T& Matrix::operator[] (int i) { return data->get(static_cast(i)); } template const T& Matrix::operator[] (int i) const { return data->get(static_cast(i)); } template T& Matrix::operator() (int i) { april_assert(numDim == 1); int raw_pos = computeRawPos(&i); return data->get(static_cast(raw_pos)); } template T& Matrix::operator() (int row, int col) { april_assert(numDim == 2); int pos[2]={row,col}; int raw_pos = computeRawPos(pos); return data->get(static_cast(raw_pos)); } template T& Matrix::operator() (int coord0, int coord1, int coord2, ...) { april_assert(numDim >= 3); int *aux_coords = new int[numDim]; aux_coords[0] = coord0; aux_coords[1] = coord1; aux_coords[2] = coord2; va_list ap; va_start(ap, coord2); for(int i=3; iget(static_cast(raw_pos)); } template T& Matrix::operator() (int *coords, int sz) { UNUSED_VARIABLE(sz); april_assert(numDim == sz); int raw_pos = computeRawPos(coords); return data->get(static_cast(raw_pos)); } template const T& Matrix::operator() (int i) const { april_assert(numDim == 1); int raw_pos = computeRawPos(&i); return data->get(static_cast(raw_pos)); } template const T& Matrix::operator() (int row, int col) const { april_assert(numDim == 2); int pos[2]={row,col}; int raw_pos = computeRawPos(pos); return data->get(static_cast(raw_pos)); } template const T& Matrix::operator() (int coord0, int coord1, int coord2, ...) const { april_assert(numDim >= 3); int *aux_coords = new int[numDim]; aux_coords[0] = coord0; aux_coords[1] = coord1; aux_coords[2] = coord2; va_list ap; va_start(ap, coord2); for(int i=3; iget(static_cast(raw_pos)); } template const T& Matrix::operator() (int *coords, int sz) const { UNUSED_VARIABLE(sz); april_assert(numDim == sz); int raw_pos = computeRawPos(coords); return data->get(static_cast(raw_pos)); } template bool Matrix::getCol(int col, T* vec, int vecsize) { // If it is not a 2D matrix, error if (numDim != 2) return false; // If the column is out of range, error if ((col < 0) || (col >= matrixSize[1])) return false; // If the array length is different to the size of the matrix columns, error if (vecsize != matrixSize[0]) return false; const T *d = data->getPPALForRead(); for (int row = 0; row < matrixSize[0]; row++) { int coords[2] = { row, col }; vec[row] = d[computeRawPos(coords)]; } return true; } template bool Matrix::putCol(int col, T* vec, int vecsize) { // If it is not a 2D matrix, error if (numDim != 2) return false; // If the column is out of range, error if ((col < 0) || (col >= matrixSize[1])) return false; // If the array length is different to the size of the matrix columns, error if (vecsize != matrixSize[0]) return false; T *d = data->getPPALForWrite(); for (int row = 0; row < matrixSize[0]; row++) { int coords[2] = { row, col }; d[computeRawPos(coords)] = vec[row]; } return true; } template bool Matrix::putSubCol(int col, int first_row, T* vec, int vecsize) { // If it is not a 2D matrix, error if (numDim != 2) return false; // If the column is out of range, error if ((col < 0) || (col >= matrixSize[1])) return false; // If the first row is out of range, error if ((first_row < 0) || (first_row >= matrixSize[0])) return false; // If the array is out of range, error if ((first_row < 0) || (first_row+vecsize > matrixSize[0])) return false; T *d = data->getPPALForWrite(); for (int row = first_row; row < first_row+vecsize; row++) { int coords[2] = { row, col }; d[computeRawPos(coords)] = vec[row]; } return true; } template template bool Matrix::sameDim(const Matrix *other) const { return sameDim(other->getDimPtr(), other->getNumDim()); } template bool Matrix::sameDim(const int *dims, const int len) const { if (numDim != len) return false; switch(numDim) { default: for (int i=0; i Matrix *Matrix::select(int dim, int index, Matrix *dest) { if (numDim == 1) ERROR_EXIT(128, "Not possible to execute select for numDim=1\n"); if (dim >= numDim) ERROR_EXIT(128, "Select for a dimension which doesn't exists\n"); if (index >= matrixSize[dim]) ERROR_EXIT(128, "Select for an index out of the matrix\n"); Matrix *result; if (dest == 0) { result = new Matrix(); int d = numDim - 1; // Data initialization result->transposed = this->transposed; result->use_cuda = use_cuda; result->numDim = d; result->matrixSize = new int[d]; result->stride = new int[d]; result->major_order = major_order; result->offset = offset + index*stride[dim]; // the select implies an offset result->last_raw_pos = result->offset; result->data = data; result->mmapped_data = 0; IncRef(data); for(int i=0; istride[i] = stride[i]; result->matrixSize[i] = matrixSize[i]; result->last_raw_pos += (matrixSize[i]-1)*stride[i]; } for(int i=dim+1; istride[i-1] = stride[i]; result->matrixSize[i-1] = matrixSize[i]; result->last_raw_pos += (matrixSize[i]-1)*stride[i]; } result->total_size = total_size/matrixSize[dim]; } else { // april_assert(dest->total_size == total_size/matrixSize[dim]); april_assert(dest->numDim == numDim-1); // int dest_offset = offset + index*stride[dim]; int dest_last_raw_pos = dest_offset; for(int i=0; ichangeSubMatrixData(dest_offset, dest_last_raw_pos); // result = dest; } return result; } /***** COORDINATES METHODS *****/ template bool Matrix::nextCoordVectorRowOrder(int *coords, int &raw_pos) const { return nextCoordVectorRowOrder(coords, raw_pos, matrixSize, stride, numDim, last_raw_pos); } template bool Matrix::nextCoordVectorColOrder(int *coords, int &raw_pos) const { return nextCoordVectorColOrder(coords, raw_pos, matrixSize, stride, numDim, last_raw_pos); } template bool Matrix::nextCoordVectorRowOrder(int *coords, int &raw_pos, const int *sizes, const int *strides, const int numDim, const int last_raw_pos) { bool ret = true; switch(numDim) { case 1: coords[0] = (coords[0]+1) % sizes[0]; if (coords[0] == 0) { raw_pos = last_raw_pos + 1; ret = false; } else raw_pos += strides[0]; break; case 2: coords[1] = (coords[1]+1) % sizes[1]; if (coords[1] == 0) { coords[0] = (coords[0]+1) % sizes[0]; if (coords[0] == 0) { raw_pos = last_raw_pos + 1; ret = false; } else raw_pos += strides[0] - (sizes[1]-1)*strides[1]; } else raw_pos += strides[1]; break; default: int j = numDim; do { --j; coords[j] = (coords[j]+1) % sizes[j]; if (coords[j] == 0) raw_pos -= (sizes[j]-1) * strides[j]; else raw_pos += strides[j]; } while(j>0 && coords[j] == 0); if (j == 0 && coords[0] == 0) { raw_pos = last_raw_pos + 1; ret = false; } } return ret; } template bool Matrix::nextCoordVectorColOrder(int *coords, int &raw_pos, const int *sizes, const int *strides, const int numDim, const int last_raw_pos) { bool ret = true; switch(numDim) { case 1: coords[0] = (coords[0]+1) % sizes[0]; if (coords[0] == 0) { raw_pos = last_raw_pos + 1; ret = false; } else raw_pos += strides[0]; break; case 2: coords[0] = (coords[0]+1) % sizes[0]; if (coords[0] == 0) { coords[1] = (coords[1]+1) % sizes[1]; if (coords[1] == 0) { raw_pos = last_raw_pos + 1; ret = false; } else raw_pos += strides[1] - (sizes[0]-1)*strides[0]; } else raw_pos += strides[0]; break; default: int j = 0; do { coords[j] = (coords[j]+1) % sizes[j]; if (coords[j] == 0) { if (sizes[j] > 1) raw_pos -= (sizes[j]-1) * strides[j]; } else raw_pos += strides[j]; } while(coords[j++] == 0 && j bool Matrix::nextCoordVectorRowOrder(int *coords) const { return nextCoordVectorRowOrder(coords, matrixSize, numDim); } template bool Matrix::nextCoordVectorColOrder(int *coords) const { return nextCoordVectorColOrder(coords, matrixSize, numDim); } template bool Matrix::nextCoordVectorRowOrder(int *coords, const int *sizes, int numDim) { int j = numDim; do { --j; coords[j] = (coords[j]+1) % sizes[j]; } while(j>0 && coords[j] == 0); if (j == 0 && coords[0] == 0) return false; return true; } template bool Matrix::nextCoordVectorColOrder(int *coords, const int *sizes, int numDim) { int j = 0; do { coords[j] = (coords[j]+1) % sizes[j]; } while(coords[j++] == 0 && j int Matrix::computeRawPos(const int *coords) const { int raw_pos; switch(numDim) { case 1: april_assert(coords[0] < matrixSize[0]); raw_pos = coords[0]*stride[0]; break; case 2: april_assert(coords[0] < matrixSize[0]); april_assert(coords[1] < matrixSize[1]); raw_pos = coords[0]*stride[0]+coords[1]*stride[1]; break; default: raw_pos=0; for(int i=0; i void Matrix::computeCoords(const int raw_pos, int *coords) const { int R = raw_pos - offset; switch(numDim) { case 1: coords[0] = R / stride[0]; break; case 2: switch(major_order) { case CblasRowMajor: coords[0] = R / stride[0]; coords[1] = (R % stride[0]) / stride[1]; break; case CblasColMajor: coords[1] = R / stride[1]; coords[0] = (R % stride[1]) / stride[0]; break; } break; default: switch(major_order) { case CblasRowMajor: for (int i=0; i=0; --i) { coords[i] = R / stride[i]; R = R % stride[i]; } break; } } } template bool Matrix::getIsContiguous() const { if (is_contiguous != NONE) return (is_contiguous==CONTIGUOUS); if (major_order == CblasRowMajor) { int aux = 1; for (int i=numDim-1; i>=0; --i) { if(stride[i] != aux) { is_contiguous = NONCONTIGUOUS; return false; } else aux *= matrixSize[i]; } } else { int aux = 1; for (int i=0; i Matrix *Matrix::diagonalize() const { if (numDim != 1) ERROR_EXIT(128, "Only one-dimensional matrix is allowed\n"); const int dims[2] = { matrixSize[0], matrixSize[0] }; Matrix *resul = new Matrix(2, dims, major_order); // resul_diag is a submatrix of resul, build to do a diagonal traverse const int stride = matrixSize[0] + 1; Matrix *resul_diag = new Matrix(1, &stride, 0, dims, dims[0], resul->last_raw_pos, resul->data, resul->major_order, resul->use_cuda, resul->transposed); resul->zeros(); resul_diag->copy(this); delete resul_diag; return resul; } template void Matrix::pruneSubnormalAndCheckNormal() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } april-ann-0.3.1/packages/basics/matrix/c_src/matrixChar.cc000066400000000000000000000021341234204160600234220ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "matrixChar.h" #include "matrix_not_implemented.h" NOT_IMPLEMENT_AXPY(char) NOT_IMPLEMENT_GEMM(char) NOT_IMPLEMENT_GEMV(char) NOT_IMPLEMENT_GER(char) NOT_IMPLEMENT_DOT(char) /////////////////////////////////////////////////////////////////////////////// template class Matrix; april-ann-0.3.1/packages/basics/matrix/c_src/matrixChar.h000066400000000000000000000023051234204160600232640ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MATRIX_CHAR_H #define MATRIX_CHAR_H #include "matrix.h" #include "matrix_not_implemented.h" NOT_IMPLEMENT_AXPY_HEADER(char) NOT_IMPLEMENT_GEMM_HEADER(char) NOT_IMPLEMENT_GEMV_HEEADER(char) NOT_IMPLEMENT_GER_HEADER(char) NOT_IMPLEMENT_DOT_HEADER(char) /////////////////////////////////////////////////////////////////////////////// typedef Matrix MatrixChar; #endif // MATRIX_CHAR_H april-ann-0.3.1/packages/basics/matrix/c_src/matrixComplexF.cc000066400000000000000000000203121234204160600242600ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "swap.h" #include "matrix.h" #include "matrixComplexF.h" #include "matrix_generic_math_templates.h" // functions which apply functors #include "matrix_generic_math_functors.h" // standard functors #include "wrapper.h" // wrappers of mathematical function (for CPU/GPU) // WARNING: ALL THE METHODS IMPLEMENTED HERE ARE SPECIALIZED TO COMPLEXF VERSION /************* FILL FUNCTION **************/ DEF_CWISE_FUNCTOR_1(doFill,ComplexF); template<> void Matrix::fill(ComplexF value) { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_1(doFill,ComplexF, value)); } /************* ZEROS FUNCTION **************/ template<> void Matrix::zeros() { fill(ComplexF::zero_zero()); } /************* ONES FUNCTION **************/ template<> void Matrix::ones() { fill(ComplexF::one_zero()); } template <> Matrix* Matrix::addition(const Matrix *other) { Matrix *resul = this->clone(); resul->axpy(ComplexF::one_zero(), other); return resul; } template <> Matrix* Matrix::substraction(const Matrix *other) { Matrix *resul = this->clone(); resul->axpy(-ComplexF::one_zero(), other); return resul; } template <> Matrix* Matrix::multiply(const Matrix *other) const { Matrix *resul = 0; if (other->isVector()) { if (this->isColVector()) { // OUTER product int dim[2] = {size(),other->size()}; resul = new Matrix(2, dim, major_order); #ifdef USE_CUDA resul->setUseCuda(use_cuda); #endif resul->zeros(); resul->ger(ComplexF::one_zero(), this, other); } else if (!this->isVector()) { // Matrix-Vector product int dim[2] = {matrixSize[0],1}; resul = new Matrix(other->numDim, dim, major_order); #ifdef USE_CUDA resul->setUseCuda(use_cuda); #endif resul->zeros(); resul->gemv(CblasNoTrans, ComplexF::one_zero(), this, other, ComplexF::zero_zero()); } else { // DOT product int dim[1] = {1}; resul = new Matrix(1, dim, major_order); #ifdef USE_CUDA resul->setUseCuda(use_cuda); #endif (*resul)(0) = this->dot(other); } } else if (numDim == 2 && other->numDim == 2 && matrixSize[1] == other->matrixSize[0]) { // Matrix-Matrix product int dim[2] = {matrixSize[0], other->matrixSize[1]}; resul = new Matrix(2,dim,major_order); #ifdef USE_CUDA resul->setUseCuda(use_cuda); #endif resul->zeros(); resul->gemm(CblasNoTrans, CblasNoTrans, ComplexF::one_zero(), this, other, ComplexF::zero_zero()); } return resul; } // COMPONENT-WISE MULTIPLICATION struct cmul_functor { cmul_functor() { } void operator()(MatrixComplexF *one, const MatrixComplexF *other, unsigned int size, unsigned int stride_one, unsigned int stride_other, unsigned int offset_one, unsigned int offset_other) const { doCmul(size, other->getRawDataAccess(), offset_other, stride_other, one->getRawDataAccess(), offset_one, stride_one, one->getCudaFlag()); } }; template<> void Matrix::cmul(const Matrix *other) { if (size() != other->size()) ERROR_EXIT2(128, "Incorrect matrices sizes: %d != %d\n", size(), other->size()); if (major_order != other->major_order) ERROR_EXIT(128, "Matrices with different major orders\n"); cmul_functor functor; applyBinaryFunctionWithSpanIterator(this, other, functor); } /************* SUM FUNCTION **************/ struct sum_functor { ComplexF operator()(const MatrixComplexF *m, unsigned int size, unsigned int stride, unsigned int offset) const { return doSum(size, m->getRawDataAccess(), stride, offset, m->getCudaFlag(), ComplexF::zero_zero()); } }; template<> ComplexF Matrix::sum() const { sum_functor functor; return applySumReductionWithSpanIteratorNOPARALLEL(this, functor); } /**** COMPONENT WISE OPERATIONS ****/ /************* scalarAdd FUNCTION **************/ DEF_CWISE_FUNCTOR_1(doScalarAdd,ComplexF); template<> void Matrix::scalarAdd(ComplexF s) { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_1(doScalarAdd, ComplexF,s)); } /************* equals FUNCTION **************/ struct equals_functor { float epsilon; equals_functor(float epsilon) : epsilon(epsilon) { } bool operator()(const MatrixComplexF *m1, const MatrixComplexF *m2, unsigned int size, unsigned int stride1, unsigned int stride2, unsigned int offset1, unsigned int offset2) const { return doEquals(size, m1->getRawDataAccess(), m2->getRawDataAccess(), stride1, stride2, offset1, offset2, epsilon, m1->getCudaFlag() && m2->getCudaFlag()); } }; template<> bool Matrix::equals(const Matrix *other, float epsilon) const { if (!sameDim(other)) return false; equals_functor functor(epsilon); return applyBinaryAndReductionWithSpanIterator(this,other,functor); } /**** BLAS OPERATIONS ****/ struct copy_functor { void operator()(MatrixComplexF *dest, const MatrixComplexF *orig, unsigned int size, unsigned int stride_dest, unsigned int stride_orig, unsigned int offset_dest, unsigned int offset_orig) const { doCopy(size, orig->getRawDataAccess(), offset_orig, stride_orig, dest->getRawDataAccess(), offset_dest, stride_dest, orig->getCudaFlag()); } }; template<> void Matrix::copy(const Matrix *other) { if (size() != other->size()) ERROR_EXIT2(128, "Incorrect matrices sizes: %d != %d\n", size(), other->size()); if (major_order != other->major_order) ERROR_EXIT(128, "Matrices with different major orders\n"); if (! sameDim(other) ) ERROR_EXIT(128, "Matrices with different dimension sizes\n"); use_cuda = other->use_cuda; copy_functor functor; applyBinaryFunctionWithSpanIterator(this, other, functor); } /********** SCAL FUNCTION ***************/ DEF_CWISE_FUNCTOR_1(doScal,ComplexF); template<> void Matrix::scal(ComplexF value) { #ifdef USE_MKL applyFunctionWithSpanIteratorNOPARALLEL(this, MAKE_CWISE_FUNCTOR_1(doScal, ComplexF, value)); #else applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_1(doScal,ComplexF, value)); #endif } /********** NORM2 FUNCTION ***************/ struct norm2_functor { float operator()(const MatrixComplexF *m, unsigned int size, unsigned int stride, unsigned int offset) const { return doNrm2(size, m->getRawDataAccess(), stride, offset, m->getCudaFlag()); } }; struct norm2_reductor { float operator()(float accum, float other) const { return accum + other*other; } }; // In this method we do ad-hoc specialization of BASIC cases because // we avoid the SQUARE and SQRT functions template<> float Matrix::norm2() const { float v; // Contiguous memory block if (getIsContiguous()) v=doNrm2(total_size, data, 1, offset, use_cuda); // One dimension else if (numDim == 1) v=doNrm2(total_size, data, stride[0], offset, use_cuda); // General case else { norm2_functor functor; norm2_reductor reductor; v = applyReductionWithSpanIteratorNOPARALLEL(this, functor, reductor, 0.0f); v = sqrtf(v); } return v; } template class Matrix; april-ann-0.3.1/packages/basics/matrix/c_src/matrixComplexF.h000066400000000000000000000037041234204160600241300ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MATRIXCOMPLEXF_H #define MATRIXCOMPLEXF_H #include "complex_number.h" #include "matrix.h" template<> void Matrix::fill(ComplexF value); template<> void Matrix::zeros(); template<> void Matrix::ones(); template<> Matrix *Matrix::addition(const Matrix *other); template<> Matrix *Matrix::substraction(const Matrix *other); template <> Matrix* Matrix::multiply(const Matrix *other) const; template<> ComplexF Matrix::sum() const; template<> void Matrix::scalarAdd(ComplexF s); template<> bool Matrix::equals(const Matrix *other, float epsilon) const; template<> void Matrix::cmul(const Matrix *other); /**** BLAS OPERATIONS ****/ template<> void Matrix::copy(const Matrix *other); template<> void Matrix::scal(ComplexF value); template<> float Matrix::norm2() const; ////////////////////////////////////////////////////////////////////////////// typedef Matrix MatrixComplexF; #endif // MATRIXCOMPLEXF_H april-ann-0.3.1/packages/basics/matrix/c_src/matrixDouble.cc000066400000000000000000000020761234204160600237640ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "matrixDouble.h" template class Matrix; /************* ZEROS FUNCTION **************/ template<> void Matrix::zeros() { fill(0.0); } /************* ONES FUNCTION **************/ template<> void Matrix::ones() { fill(1.0); } april-ann-0.3.1/packages/basics/matrix/c_src/matrixDouble.h000066400000000000000000000020161234204160600236200ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MATRIX_DOUBLE_H #define MATRIX_DOUBLE_H #include "matrix.h" typedef Matrix MatrixDouble; template<> void Matrix::zeros(); template<> void Matrix::ones(); #endif // MATRIX_DOUBLE_H april-ann-0.3.1/packages/basics/matrix/c_src/matrixFloat.cc000066400000000000000000000530001234204160600236100ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "cblas_headers.h" #include "check_floats.h" #include "swap.h" #include "matrix.h" #include "matrixFloat.h" #include "sparse_matrixFloat.h" #include "matrix_generic_math_templates.h" // functions which apply functors #include "matrix_generic_math_functors.h" // standard functors #include "wrapper.h" // wrappers of mathematical function (for CPU/GPU) // WARNING: ALL THE METHODS IMPLEMENTED HERE ARE SPECIALIZED TO FLOAT VERSION /************* FILL FUNCTION **************/ DEF_CWISE_FUNCTOR_1(doFill,float); template<> void Matrix::fill(float value) { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_1(doFill,float, value)); } /************* CLAMP FUNCTION **************/ struct clamp_functor { float lower, upper; clamp_functor(float lower, float upper) : lower(lower), upper(upper) { } void operator()(MatrixFloat *m, unsigned int size, unsigned int stride, unsigned int offset) const { doClamp(size, m->getRawDataAccess(), stride, offset, lower, upper, m->getCudaFlag()); } }; template<> void Matrix::clamp(float lower, float upper) { clamp_functor functor(lower, upper); applyFunctionWithSpanIterator(this, functor); } /************* ZEROS FUNCTION **************/ template<> void Matrix::zeros() { fill(0.0f); } /************* ONES FUNCTION **************/ template<> void Matrix::ones() { fill(1.0f); } template <> Matrix* Matrix::addition(const Matrix *other) { Matrix *resul = this->clone(); resul->axpy(1.0f, other); return resul; } template <> Matrix* Matrix::substraction(const Matrix *other) { Matrix *resul = this->clone(); resul->axpy(-1.0f, other); return resul; } template <> Matrix* Matrix::multiply(const Matrix *other) const { Matrix *resul = 0; if (other->isVector()) { if (this->isColVector()) { // OUTER product int dim[2] = {size(),other->size()}; resul = new Matrix(2, dim, major_order); #ifdef USE_CUDA resul->setUseCuda(use_cuda); #endif resul->zeros(); resul->ger(1.0f, this, other); } else if (!this->isVector()) { // Matrix-Vector product int dim[2] = {matrixSize[0],1}; resul = new Matrix(other->numDim, dim, major_order); #ifdef USE_CUDA resul->setUseCuda(use_cuda); #endif resul->zeros(); resul->gemv(CblasNoTrans, 1.0f, this, other, 0.0f); } else { // DOT product int dim[2] = {1,1}; resul = new Matrix(numDim, dim, major_order); #ifdef USE_CUDA resul->setUseCuda(use_cuda); #endif (*resul)[0] = this->dot(other); } } else if (numDim == 2 && other->numDim == 2 && matrixSize[1] == other->matrixSize[0]) { // Matrix-Matrix product int dim[2] = {matrixSize[0], other->matrixSize[1]}; resul = new Matrix(2,dim,major_order); #ifdef USE_CUDA resul->setUseCuda(use_cuda); #endif resul->zeros(); resul->gemm(CblasNoTrans, CblasNoTrans, 1.0f, this, other, 0.0f); } return resul; } /************* SUM FUNCTION **************/ struct sum_functor { float operator()(const MatrixFloat *m, unsigned int size, unsigned int stride, unsigned int offset) const { return doSum(size, m->getRawDataAccess(), stride, offset, m->getCudaFlag(), 0.0f); } }; template<> float Matrix::sum() const { sum_functor functor; return applySumReductionWithSpanIterator(this, functor); } /**** COMPONENT WISE OPERATIONS ****/ /************* scalarAdd FUNCTION **************/ DEF_CWISE_FUNCTOR_1(doScalarAdd,float); template<> void Matrix::scalarAdd(float s) { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_1(doScalarAdd, float,s)); } /************* equals FUNCTION **************/ struct equals_functor { float epsilon; equals_functor(float epsilon) : epsilon(epsilon) { } bool operator()(const MatrixFloat *m1, const MatrixFloat *m2, unsigned int size, unsigned int stride1, unsigned int stride2, unsigned int offset1, unsigned int offset2) const { return doEquals(size, m1->getRawDataAccess(), m2->getRawDataAccess(), stride1, stride2, offset1, offset2, epsilon, m1->getCudaFlag() && m2->getCudaFlag()); } }; template<> bool Matrix::equals(const Matrix *other, float epsilon) const { if (!sameDim(other)) return false; equals_functor functor(epsilon); return applyBinaryAndReductionWithSpanIterator(this, other, functor); } /************* LOG FUNCTION **************/ DEF_CWISE_FUNCTOR_0(doPLogP,float); template<> void Matrix::plogp() { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_0(doPLogP,float)); } /************* LOG FUNCTION **************/ DEF_CWISE_FUNCTOR_0(doLog,float); template<> void Matrix::log() { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_0(doLog,float)); } /************* LOG1P FUNCTION **************/ DEF_CWISE_FUNCTOR_0(doLog1p,float); template<> void Matrix::log1p() { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_0(doLog1p,float)); } /************* EXP FUNCTION **************/ DEF_CWISE_FUNCTOR_0(doExp,float); template<> void Matrix::exp() { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_0(doExp,float)); } /************* SQRT FUNCTION **************/ DEF_CWISE_FUNCTOR_0(doSqrt,float); template<> void Matrix::sqrt() { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_0(doSqrt,float)); } /************* POW FUNCTION **************/ DEF_CWISE_FUNCTOR_1(doPow,float); template<> void Matrix::pow(float value) { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_1(doPow,float,value)); } /************* TAN FUNCTION **************/ DEF_CWISE_FUNCTOR_0(doTan,float); template<> void Matrix::tan() { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_0(doTan,float)); } /************* TANH FUNCTION **************/ DEF_CWISE_FUNCTOR_0(doTanh,float); template<> void Matrix::tanh() { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_0(doTanh,float)); } /************* ATAN FUNCTION **************/ DEF_CWISE_FUNCTOR_0(doAtan,float); template<> void Matrix::atan() { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_0(doAtan,float)); } /************* ATANH FUNCTION **************/ DEF_CWISE_FUNCTOR_0(doAtanh,float); template<> void Matrix::atanh() { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_0(doAtanh,float)); } /************* SIN FUNCTION **************/ DEF_CWISE_FUNCTOR_0(doSin,float); template<> void Matrix::sin() { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_0(doSin,float)); } /************* SINH FUNCTION **************/ DEF_CWISE_FUNCTOR_0(doSinh,float); template<> void Matrix::sinh() { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_0(doSinh,float)); } /************* ASIN FUNCTION **************/ DEF_CWISE_FUNCTOR_0(doAsin,float); template<> void Matrix::asin() { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_0(doAsin,float)); } /************* ASINH FUNCTION **************/ DEF_CWISE_FUNCTOR_0(doAsinh,float); template<> void Matrix::asinh() { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_0(doAsinh,float)); } /************* COS FUNCTION **************/ DEF_CWISE_FUNCTOR_0(doCos,float); template<> void Matrix::cos() { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_0(doCos,float)); } /************* COSH FUNCTION **************/ DEF_CWISE_FUNCTOR_0(doCosh,float); template<> void Matrix::cosh() { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_0(doCosh,float)); } /************* ACOS FUNCTION **************/ DEF_CWISE_FUNCTOR_0(doAcos,float); template<> void Matrix::acos() { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_0(doAcos,float)); } /************* ACOSH FUNCTION **************/ DEF_CWISE_FUNCTOR_0(doAcosh,float); template<> void Matrix::acosh() { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_0(doAcosh,float)); } /************* ABS FUNCTION **************/ DEF_CWISE_FUNCTOR_0(doAbs,float); template<> void Matrix::abs() { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_0(doAbs,float)); } /************* ABS FUNCTION **************/ DEF_CWISE_FUNCTOR_0(doComplement,float); template<> void Matrix::complement() { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_0(doComplement, float)); } /************* SIGN FUNCTION **************/ DEF_CWISE_FUNCTOR_0(doSign,float); template<> void Matrix::sign() { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_0(doSign,float));; } /****************************************************************************/ // COMPONENT-WISE MULTIPLICATION struct cmul_functor { cmul_functor() { } void operator()(MatrixFloat *one, const MatrixFloat *other, unsigned int size, unsigned int stride_one, unsigned int stride_other, unsigned int offset_one, unsigned int offset_other) const { doCmul(size, other->getRawDataAccess(), offset_other, stride_other, one->getRawDataAccess(), offset_one, stride_one, one->getCudaFlag()); } }; template<> void Matrix::cmul(const Matrix *other) { if (size() != other->size()) ERROR_EXIT2(128, "Incorrect matrices sizes: %d != %d\n", size(), other->size()); if (major_order != other->major_order) ERROR_EXIT(128, "Matrices with different major orders\n"); cmul_functor functor; applyBinaryFunctionWithSpanIterator(this, other, functor); } /**** BLAS OPERATIONS ****/ struct copy_functor { void operator()(MatrixFloat *dest, const MatrixFloat *orig, unsigned int size, unsigned int stride_dest, unsigned int stride_orig, unsigned int offset_dest, unsigned int offset_orig) const { doCopy(size, orig->getRawDataAccess(), offset_orig, stride_orig, dest->getRawDataAccess(), offset_dest, stride_dest, orig->getCudaFlag()); } }; template<> void Matrix::copy(const Matrix *other) { if (size() != other->size()) ERROR_EXIT2(128, "Incorrect matrices sizes: %d != %d\n", size(), other->size()); if (major_order != other->major_order) ERROR_EXIT(128, "Matrices with different major orders\n"); if (! sameDim(other) ) ERROR_EXIT(128, "Matrices with different dimension sizes\n"); use_cuda = other->use_cuda; copy_functor functor; applyBinaryFunctionWithSpanIterator(this, other, functor); } /********** SCAL FUNCTION ***************/ DEF_CWISE_FUNCTOR_1(doScal,float); template<> void Matrix::scal(float value) { #ifdef USE_MKL applyFunctionWithSpanIteratorNOPARALLEL(this, MAKE_CWISE_FUNCTOR_1(doScal, float, value)); #else applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_1(doScal,float, value)); #endif } /********** DIV FUNCTION ***************/ DEF_CWISE_FUNCTOR_1(doDiv,float); template<> void Matrix::div(float value) { applyFunctionWithSpanIterator(this, MAKE_CWISE_FUNCTOR_1(doDiv,float, value)); } /********** NORM2 FUNCTION ***************/ struct norm2_functor { float operator()(const MatrixFloat *m, unsigned int size, unsigned int stride, unsigned int offset) const { return doNrm2(size, m->getRawDataAccess(), stride, offset, m->getCudaFlag()); } }; struct norm2_reductor { float operator()(float accum, float other) const { return accum + other*other; } }; // In this method we do ad-hoc specialization of BASIC cases because // we avoid the SQUARE and SQRT functions template<> float Matrix::norm2() const { float v; // Contiguous memory block if (getIsContiguous()) v=doNrm2(total_size, data, 1, offset, use_cuda); // One dimension else if (numDim == 1) v=doNrm2(total_size, data, stride[0], offset, use_cuda); // General case else { norm2_functor functor; norm2_reductor reductor; v = applyReductionWithSpanIteratorNOPARALLEL(this, functor, reductor, 0.0f); v = sqrtf(v); } return v; } // FIXME: using WRAPPER template<> float Matrix::min(int &arg_min, int &arg_min_raw_pos) const { const_iterator it(begin()); const_iterator result = april_utils::argmin(it, const_iterator(end())); arg_min = result.getIdx(); arg_min_raw_pos = result.getRawPos(); return *result; } // FIXME: using WRAPPER template<> float Matrix::max(int &arg_max, int &arg_max_raw_pos) const { const_iterator it(begin()); const_iterator result = april_utils::argmax(it, const_iterator(end())); arg_max = result.getIdx(); arg_max_raw_pos = result.getRawPos(); return *result; } // FIXME: using WRAPPER template<> void Matrix::minAndMax(float &min, float &max) const { if (major_order == CblasRowMajor) { const_iterator it(begin()); min = *it; max = *it; for (; it!=end(); ++it) { if (*it < min) min = *it; if (*it > max) max = *it; } } else { const_col_major_iterator it(begin()); min = *it; max = *it; for (; it!=end(); ++it) { if (*it < min) min = *it; if (*it > max) max = *it; } } } template <> Matrix *Matrix::maxSelDim(const int dim, Int32GPUMirroredMemoryBlock *raw_positions, int shift) const { if (dim < 0 || dim > numDim) ERROR_EXIT2(128, "Incorrect dimension %d, numDim=%d\n", dim, numDim); MatrixFloat *result = new MatrixFloat(1, &matrixSize[dim], major_order); #ifdef USE_CUDA result->setUseCuda(use_cuda); #endif int *argmax = 0; if (raw_positions != 0) { argmax = raw_positions->getPPALForWrite() + shift; } switch(numDim) { case 1: ERROR_EXIT(128, "Impossible to compute maxSelDim when numDim=1\n"); break; case 2: { const int other_dim = 1 - dim; float *res_ptr = result->getRawDataAccess()->getPPALForWrite(); const float *src_ptr = data->getPPALForRead(); for (int i=0; i *res_ptr) { *res_ptr = src_ptr[current_raw_pos]; raw_pos_max = current_raw_pos; } } if (argmax) argmax[i] = raw_pos_max; } break; } case 3: { int other_dim1 = (dim+1)%3; int other_dim2 = (dim+2)%3; if (other_dim2 < other_dim1) april_utils::swap(other_dim1, other_dim2); #ifdef USE_CUDA result->setUseCuda(use_cuda); #endif float *res_ptr = result->getRawDataAccess()->getPPALForWrite(); const float *src_ptr = data->getPPALForRead(); for (int i=0; i *res_ptr) { *res_ptr = src_ptr[current_raw_pos]; raw_pos_max = current_raw_pos; } } } if (argmax) argmax[i] = raw_pos_max; } break; } case 4: { int other_dim1 = (dim+1)%4; int other_dim2 = (dim+2)%4; int other_dim3 = (dim+3)%4; if (other_dim1 > other_dim2) april_utils::swap(other_dim1, other_dim2); if (other_dim2 > other_dim3) { april_utils::swap(other_dim2, other_dim3); if (other_dim1 > other_dim2) april_utils::swap(other_dim1, other_dim2); } #ifdef USE_CUDA result->setUseCuda(use_cuda); #endif float *res_ptr = result->getRawDataAccess()->getPPALForWrite(); const float *src_ptr = data->getPPALForRead(); for (int i=0; i *res_ptr) { *res_ptr = src_ptr[current_raw_pos]; raw_pos_max = current_raw_pos; } } } } if (argmax) argmax[i] = raw_pos_max; } break; } default: { float *res_ptr = result->getRawDataAccess()->getPPALForWrite(); for (int i=0; i(this)->select(dim, i); current->max(aux, argmax_raw_pos); if (argmax) argmax[i] = argmax_raw_pos; delete current; } } } return result; } // FIXME: using WRAPPER template<> void Matrix::adjustRange(float rmin, float rmax) { float mmin, mmax; minAndMax(mmin, mmax); // especial case, set all values to rmin if (mmax - mmin == 0) fill(rmin); else { float ratio = (rmax-rmin)/(mmax-mmin); if (mmin > 0.0f || mmin < 0.0f) scalarAdd(-mmin); scal(ratio); if (rmin > 0.0f || rmin < 0.0f) scalarAdd(rmin); } } // FIXME: using WRAPPER for generalized CULA, LAPACK, float and complex numbers template<> Matrix *Matrix::inv() { if (numDim != 2) ERROR_EXIT(128, "Only bi-dimensional matrices are allowed\n"); if (matrixSize[0] != matrixSize[1]) ERROR_EXIT(128, "Only square matrices are allowed\n"); MatrixFloat *A = this->clone(CblasColMajor); int *IPIV = new int[numDim+1]; int INFO; INFO = clapack_sgetrf(CblasColMajor, A->numDim,A->numDim,A->getData(),A->stride[1],IPIV); checkLapackInfo(INFO); INFO = clapack_sgetri(CblasColMajor, A->numDim,A->getData(),A->stride[1],IPIV); checkLapackInfo(INFO); delete[] IPIV; return A; } // FIXME: using WRAPPER for generalized CULA, LAPACK, float and complex numbers // WARNING: the V matrix is returned transposed template <> void Matrix::svd(Matrix **U, SparseMatrix **S, Matrix **VT) { if (numDim != 2) ERROR_EXIT(128, "Only bi-dimensional matrices are allowed\n"); Matrix *A = this->clone(CblasColMajor); IncRef(A); int INFO; const int m = A->matrixSize[0]; // cols const int n = A->matrixSize[1]; // rows const int lda = A->stride[1]; const int numSV = m(2, dimsU, CblasColMajor); *S = SparseMatrix::diag(numSV, 0.0f, CSR_FORMAT); *VT = new Matrix(2, dimsVT, CblasColMajor); INFO = clapack_sgesdd(CblasColMajor, m, n, lda, A->getData(), (*U)->getData(), (*S)->getRawValuesAccess()->getPPALForWrite(), (*VT)->getData()); checkLapackInfo(INFO); DecRef(A); } template <> void Matrix::pruneSubnormalAndCheckNormal() { float *data = getRawDataAccess()->getPPALForReadAndWrite(); if (!april_utils::check_floats(data, size())) ERROR_EXIT(128, "No finite numbers at weights matrix!!!\n"); } // FIXME: IMPLEMENT THE BOOLEAN CONDITIONS USING CUDA WRAPPERS /* BOOLEAN CONDITIONS: this methods transforms the given matrix in a ZERO/ONE matrix, depending in the truth of the given condition */ // less than template <> void Matrix::LTCondition(float value) { iterator it(begin()); while(it != end()) { if ( (*it) < value ) *it = 1.0f; else *it = 0.0f; ++it; } } template <> void Matrix::LTCondition(Matrix *value) { if (!sameDim(value)) ERROR_EXIT(128, "Incompatible matrix sizes\n"); const_iterator it_value(value->begin()); iterator it(begin()); while(it != end()) { if ( (*it) < (*it_value) ) *it = 1.0f; else *it = 0.0f; ++it; ++it_value; } } // greater than template <> void Matrix::GTCondition(float value) { iterator it(begin()); while(it != end()) { if ( (*it) > value ) *it = 1.0f; else *it = 0.0f; ++it; } } template <> void Matrix::GTCondition(Matrix *value) { if (!sameDim(value)) ERROR_EXIT(128, "Incompatible matrix sizes\n"); const_iterator it_value(value->begin()); iterator it(begin()); while(it != end()) { if ( (*it) > (*it_value) ) *it = 1.0f; else *it = 0.0f; ++it; ++it_value; } } // /////////////////////////////////////////////////////////////////////////////// template class Matrix; april-ann-0.3.1/packages/basics/matrix/c_src/matrixFloat.h000066400000000000000000000075161234204160600234650ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MATRIXFLOAT_H #define MATRIXFLOAT_H #include "matrix.h" template<> void Matrix::fill(float value); template<> void Matrix::clamp(float lower, float upper); template<> void Matrix::zeros(); template<> void Matrix::ones(); template<> Matrix *Matrix::addition(const Matrix *other); template<> Matrix *Matrix::substraction(const Matrix *other); template <> Matrix* Matrix::multiply(const Matrix *other) const; template<> float Matrix::sum() const; template<> void Matrix::scalarAdd(float s); template<> bool Matrix::equals(const Matrix *other, float epsilon) const; template<> void Matrix::plogp(); template<> void Matrix::log(); template<> void Matrix::log1p(); template<> void Matrix::exp(); template<> void Matrix::sqrt(); template<> void Matrix::pow(float value); template<> void Matrix::tan(); template<> void Matrix::tanh(); template<> void Matrix::atan(); template<> void Matrix::atanh(); template <> void Matrix::cos(); template <> void Matrix::cosh(); template <> void Matrix::acos(); template <> void Matrix::acosh(); template <> void Matrix::sin(); template <> void Matrix::sinh(); template <> void Matrix::asin(); template <> void Matrix::asinh(); template <> void Matrix::abs(); template <> void Matrix::complement(); template <> void Matrix::sign(); template<> void Matrix::cmul(const Matrix *other); /**** BLAS OPERATIONS ****/ template<> void Matrix::copy(const Matrix *other); template<> void Matrix::scal(float value); template<> void Matrix::div(float value); template<> float Matrix::norm2() const; template<> float Matrix::min(int &arg_min, int &arg_min_raw_pos) const; template<> float Matrix::max(int &arg_max, int &arg_max_raw_pos) const; template<> void Matrix::minAndMax(float &min, float &max) const; template <> Matrix *Matrix::maxSelDim(const int dim, Int32GPUMirroredMemoryBlock *raw_positions, int shift) const; template<> void Matrix::adjustRange(float rmin, float rmax); template<> Matrix *Matrix::inv(); template <> void Matrix::svd(Matrix **U, SparseMatrix **S, Matrix **V); template <> void Matrix::pruneSubnormalAndCheckNormal(); /* BOOLEAN CONDITIONS: this methods transforms the given matrix in a ZERO/ONE matrix, depending in the truth of the given condition */ // less than template <> void Matrix::LTCondition(float value); template <> void Matrix::LTCondition(Matrix *value); // greater than template <> void Matrix::GTCondition(float value); template <> void Matrix::GTCondition(Matrix *value); // //////////////////////////////////////////////////////////////////////////// typedef Matrix MatrixFloat; #endif // MATRIXFLOAT_H april-ann-0.3.1/packages/basics/matrix/c_src/matrixFloatSet.cc000066400000000000000000000015601234204160600242700ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "matrixSet.h" template class MatrixSet; april-ann-0.3.1/packages/basics/matrix/c_src/matrixFloatSet.h000066400000000000000000000017401234204160600241320ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2014, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MATRIXFLOATSET_H #define MATRIXFLOATSET_H #include "matrixFloat.h" #include "matrixSet.h" typedef MatrixSet MatrixFloatSet; #endif // MATRIXFLOATSET_H april-ann-0.3.1/packages/basics/matrix/c_src/matrixInt32.cc000066400000000000000000000025201234204160600234430ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include #include "matrixInt32.h" #include "matrix_not_implemented.h" NOT_IMPLEMENT_AXPY(int32_t) NOT_IMPLEMENT_GEMM(int32_t) NOT_IMPLEMENT_GEMV(int32_t) NOT_IMPLEMENT_GER(int32_t) NOT_IMPLEMENT_DOT(int32_t) /************* ZEROS FUNCTION **************/ template<> void Matrix::zeros() { fill(0); } /************* ONES FUNCTION **************/ template<> void Matrix::ones() { fill(1); } /////////////////////////////////////////////////////////////////////////////// template class Matrix; april-ann-0.3.1/packages/basics/matrix/c_src/matrixInt32.h000066400000000000000000000026121234204160600233070ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MATRIX_INT32_H #define MATRIX_INT32_H #include "matrix.h" #include "matrix_not_implemented.h" NOT_IMPLEMENT_AXPY_HEADER(int32_t) NOT_IMPLEMENT_GEMM_HEADER(int32_t) NOT_IMPLEMENT_GEMV_HEEADER(int32_t) NOT_IMPLEMENT_GER_HEADER(int32_t) NOT_IMPLEMENT_DOT_HEADER(int32_t) /************* ZEROS FUNCTION **************/ template<> void Matrix::zeros(); /************* ONES FUNCTION **************/ template<> void Matrix::ones(); /////////////////////////////////////////////////////////////////////////////// typedef Matrix MatrixInt32; #endif // MATRIX_INT_H april-ann-0.3.1/packages/basics/matrix/c_src/matrixSet.h000066400000000000000000000160021234204160600231410ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2014, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MATRIXSET_H #define MATRIXSET_H #include #include "referenced.h" #include "matrix.h" #include "matrixFloat.h" #include "aux_hash_table.h" #include "hash_table.h" #include "mystring.h" #include "maxmin.h" /** * The class MatrixSet is a hash map of string=>Matrix, allowing to compute * math operations to all the underlying matrices, or between two MatrixSet. */ template class MatrixSet : public Referenced { typedef april_utils::hash *> DictType; DictType matrix_dict; public: typedef typename DictType::iterator iterator; typedef typename DictType::const_iterator const_iterator; // MatrixSet() : matrix_dict(32, 2.0f) { } virtual ~MatrixSet() { for (iterator it = matrix_dict.begin(); it!=matrix_dict.end(); ++it) { DecRef(it->second); } } iterator begin() { return matrix_dict.begin(); } iterator end() { return matrix_dict.end(); } MatrixSet *clone() { MatrixSet *cloned = new MatrixSet(); for (iterator it = matrix_dict.begin(); it!=matrix_dict.end(); ++it) { cloned->insert(it->first, it->second->clone()); } return cloned; } MatrixSet *cloneOnlyDims() { MatrixSet *cloned = new MatrixSet(); for (iterator it = matrix_dict.begin(); it!=matrix_dict.end(); ++it) { cloned->insert(it->first, it->second->cloneOnlyDims()); } return cloned; } // operator[] Matrix *&operator[](const char *k) { return matrix_dict[april_utils::string(k)]; } Matrix *&operator[](const april_utils::string &k) { return matrix_dict[k]; } // insert operation void insert(const char *k, Matrix *v) { return insert(april_utils::string(k), v); } void insert(const april_utils::string &k, Matrix *v) { Matrix *&old = matrix_dict[k]; AssignRef(old, v); } // find operation Matrix *find(const char *k) const { return find(april_utils::string(k)); } Matrix *find(const april_utils::string &k) const { Matrix **ptr = matrix_dict.find(k); return (ptr!=0) ? (*ptr) : 0; } // matrix component-wise operators macros #define MAKE_N0_OPERATOR(NAME) \ void NAME() { \ for (iterator it = matrix_dict.begin(); \ it!=matrix_dict.end(); ++it) { \ it->second->NAME(); \ } \ } #define MAKE_N1_OPERATOR(NAME,TYPE1) \ void NAME(const TYPE1 &v1) { \ for (iterator it = matrix_dict.begin(); \ it!=matrix_dict.end(); ++it) { \ it->second->NAME(v1); \ } \ } #define MAKE_N2_OPERATOR(NAME,TYPE1,TYPE2) \ void NAME(const TYPE1 &v1, const TYPE2 &v2) { \ for (iterator it = matrix_dict.begin(); \ it!=matrix_dict.end(); ++it) { \ it->second->NAME(v1,v2); \ } \ } // matrix component-wise operators declaration MAKE_N1_OPERATOR(fill,T); MAKE_N2_OPERATOR(clamp,T,T); MAKE_N0_OPERATOR(zeros); MAKE_N0_OPERATOR(ones); MAKE_N1_OPERATOR(scalarAdd,T); MAKE_N0_OPERATOR(plogp); MAKE_N0_OPERATOR(log); MAKE_N0_OPERATOR(log1p); MAKE_N0_OPERATOR(exp); MAKE_N0_OPERATOR(sqrt); MAKE_N1_OPERATOR(pow,T); MAKE_N0_OPERATOR(tan); MAKE_N0_OPERATOR(tanh); MAKE_N0_OPERATOR(atan); MAKE_N0_OPERATOR(atanh); MAKE_N0_OPERATOR(cos); MAKE_N0_OPERATOR(cosh); MAKE_N0_OPERATOR(acos); MAKE_N0_OPERATOR(acosh); MAKE_N0_OPERATOR(sin); MAKE_N0_OPERATOR(sinh); MAKE_N0_OPERATOR(asin); MAKE_N0_OPERATOR(asinh); MAKE_N0_OPERATOR(abs); MAKE_N0_OPERATOR(complement); MAKE_N0_OPERATOR(sign); MAKE_N1_OPERATOR(scal,T); MAKE_N2_OPERATOR(adjustRange,T,T); MAKE_N0_OPERATOR(inv); MAKE_N0_OPERATOR(pruneSubnormalAndCheckNormal); #undef MAKE_N1_OPERATOR #undef MAKE_N2_OPERATOR // two matrix basic math operator macros #define MAKE_OPERATOR(NAME) \ void NAME(const MatrixSet *other) { \ for (iterator it = matrix_dict.begin(); \ it!=matrix_dict.end(); ++it) { \ Matrix *a = it->second; \ const Matrix *b = other->find(it->first); \ if (b == 0) \ ERROR_EXIT1(128, "Matrix with name %s not found\n", \ it->first.c_str()); \ a->NAME(b); \ } \ } // two matrix basic math operator declarations MAKE_OPERATOR(cmul); MAKE_OPERATOR(copy); #undef MAKE_OPERATOR // AXPY void axpy(T alpha, const MatrixSet *other) { for (iterator it = matrix_dict.begin(); it!=matrix_dict.end(); ++it) { Matrix *a = it->second; const Matrix *b = other->find(it->first); if (b == 0) ERROR_EXIT1(128, "Matrix with name %s not found\n", it->first.c_str()); a->axpy(alpha, b); } } // EQUALS void equals(const MatrixSet *other, T epsilon) { for (iterator it = matrix_dict.begin(); it!=matrix_dict.end(); ++it) { const Matrix *a = it->second; const Matrix *b = other->find(it->first); if (b == 0) ERROR_EXIT1(128, "Matrix with name %s not found\n", it->first.c_str()); a->equals(b, epsilon); } } // matrix math reductions T norm2() { T result_norm2 = T(); for (iterator it = matrix_dict.begin(); it!=matrix_dict.end(); ++it) { T current_norm2 = it->second->norm2(); result_norm2 = result_norm2 + current_norm2*current_norm2; } // FIXME: this call only work with float return sqrtf(result_norm2); } // matrix math reductions int size() { int total_size = 0; for (iterator it = matrix_dict.begin(); it!=matrix_dict.end(); ++it) total_size += it->second->size(); return total_size; } // dot reduction T dot(MatrixSet *other) { T result = T(); for (iterator it = matrix_dict.begin(); it!=matrix_dict.end(); ++it) { Matrix *a = it->second; Matrix *b = other->find(it->first); if (b == 0) ERROR_EXIT1(128, "Matrix with name %s not found\n", it->first.c_str()); IncRef(a); IncRef(b); if (!a->getIsContiguous()) AssignRef(a, a->clone()); if (!b->getIsContiguous()) AssignRef(b, b->clone()); int a_size = a->size(); int b_size = b->size(); AssignRef(a, a->rewrap(&a_size, 1)); AssignRef(b, b->rewrap(&b_size, 1)); result = result + a->dot(b); DecRef(a); DecRef(b); } return result; } }; #endif // MATRIXSET_H april-ann-0.3.1/packages/basics/matrix/c_src/matrix_generic_math_functors.h000066400000000000000000000045761234204160600271320ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MATRIX_GENERIC_MATH_FUNCTORS_H #define MATRIX_GENERIC_MATH_FUNCTORS_H #include "matrix.h" ///// COMPONENT WISE GENERIC FUNCTOR (NO ARGUMENTS) ///// /// This macro defines structs to be used as FUNCTOR for the templates located /// at matrix_generic_math_templates.h #define DEF_CWISE_FUNCTOR_0(FUNC,TYPE) \ struct FUNC##TYPE##CWiseFunctor0 { \ FUNC##TYPE##CWiseFunctor0() { } \ ~FUNC##TYPE##CWiseFunctor0() { } \ void operator()(Matrix *m, \ unsigned int size, unsigned int stride, \ unsigned int offset) const { \ FUNC(size, m->getRawDataAccess(), stride, offset, \ m->getCudaFlag()); \ } \ } /// This instantiates a variable of the previous struct #define MAKE_CWISE_FUNCTOR_0(FUNC,TYPE) FUNC##TYPE##CWiseFunctor0() ///// COMPONENT WISE GENERIC FUNCTOR (ONE ARGUMENT) ///// /// This macro defines structs to be used as FUNCTOR for the templates located /// at matrix_generic_math_templates.h #define DEF_CWISE_FUNCTOR_1(FUNC,TYPE) \ struct FUNC##TYPE##CWiseFunctor1 { \ TYPE value; \ FUNC##TYPE##CWiseFunctor1(TYPE v) : value(v) { } \ ~FUNC##TYPE##CWiseFunctor1() { } \ void operator()(Matrix *m, \ unsigned int size, unsigned int stride, \ unsigned int offset) const { \ FUNC(size, m->getRawDataAccess(), stride, offset, \ value, m->getCudaFlag()); \ } \ } /// This instantiates a variable of the previous struct #define MAKE_CWISE_FUNCTOR_1(FUNC,TYPE,VALUE) FUNC##TYPE##CWiseFunctor1(VALUE) #endif // MATRIX_GENERIC_MATH_FUNCTORS_H april-ann-0.3.1/packages/basics/matrix/c_src/matrix_generic_math_templates.h000066400000000000000000000577221234204160600272660ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MATRIX_GENERIC_MATH_TEMPLATES_H #define MATRIX_GENERIC_MATH_TEMPLATES_H #include "unused_variable.h" #include "omp_utils.h" #include "matrix.h" #define DEFAULT_N_TH 100 #define DEFAULT_SIZE_TH 100 // Auxiliary function template which applies a FUNCTOR REDUCTION over a given // matrix, so the functor is called as FUNC(a matrix), and returns a type O, // the type of the destination matrix template Matrix *applyFunctorOverDimension(FUNC func, Matrix *orig, int dim, Matrix *dest=0) { const int numDim = orig->getNumDim(); const int *matrixSize = orig->getDimPtr(); int *result_dims = new int[numDim]; /**** ORIG sliding window ****/ int *orig_w_size = new int[numDim]; int *orig_w_num_steps = new int[numDim]; int result_size=1; for (int i=0; i::sliding_window orig_w(orig,orig_w_size,0,0,orig_w_num_steps,0); Matrix *slice = orig_w.getMatrix(); IncRef(slice); /******************************/ Matrix *result = dest; if (result == 0) result = new Matrix(numDim, result_dims, orig->getMajorOrder()); else if (result->size() != result_size) // else if (!result->sameDim(result_dims, numDim)) ERROR_EXIT2(256, "Incorrect size at the given dest matrtix, " "expected %d, found %d\n", result_size, result->size()); // traverse in row major order for (typename Matrix::iterator it(result->begin()); it!=result->end(); ++it) { orig_w.getMatrix(slice); *it = func(slice); orig_w.next(); } DecRef(slice); delete[] orig_w_size; delete[] orig_w_num_steps; delete[] result_dims; return result; } // Auxiliary function template which applies a FUNCTOR REDUCTION over a given // matrix, so the functor is called as FUNC(a matrix, a matrix component), and // returns a type O, the type of the destination matrix template Matrix *applyFunctorOverDimension2(FUNC func, Matrix *orig, int dim, Matrix *dest, Matrix *other) { if (other == 0) ERROR_EXIT(256, "Other dest matrix not given, use a different template\n"); const int numDim = orig->getNumDim(); const int *matrixSize = orig->getDimPtr(); int *result_dims = new int[numDim]; /**** ORIG sliding window ****/ int *orig_w_size = new int[numDim]; int *orig_w_num_steps = new int[numDim]; int result_size=1; for (int i=0; i::sliding_window orig_w(orig,orig_w_size,0,0,orig_w_num_steps,0); Matrix *slice = orig_w.getMatrix(); IncRef(slice); /******************************/ Matrix *result = dest; if (result == 0) result = new Matrix(numDim, result_dims, orig->getMajorOrder()); else if (result->size() != result_size) // else if (!result->sameDim(result_dims, numDim)) ERROR_EXIT2(256, "Incorrect size at the given dest matrtix, " "expected %d, found %d\n", result_size, result->size()); if (result->size() != other->size()) ERROR_EXIT(256, "Incorrect size at the given other dest matrtix\n"); // traverse in row major order typename Matrix::iterator other_it(other->begin()); for (typename Matrix::iterator it(result->begin()); it!=result->end(); ++it, ++other_it) { orig_w.getMatrix(slice); *it = func(slice, *other_it); orig_w.next(); } DecRef(slice); delete[] orig_w_size; delete[] orig_w_num_steps; delete[] result_dims; return result; } // Auxiliary function template which applies a given FUNC object ( implements // operator() ) to all the elements of a Matrix, using the best_span_iterator, // and OMP if needed. template void applyFunctionWithSpanIterator(Matrix *m, const FUNC &functor, const int N_th = DEFAULT_N_TH, const unsigned int SIZE_th = DEFAULT_SIZE_TH) { #ifdef NO_OMP UNUSED_VARIABLE(N_th); UNUSED_VARIABLE(SIZE_th); #endif // Contiguous memory block if (m->getIsContiguous()) functor(m, static_cast(m->size()), 1, static_cast(m->getOffset())); // One dimension else if (m->getNumDim() == 1) functor(m, static_cast(m->size()), static_cast(m->getStrideSize(0)), static_cast(m->getOffset())); // General case else { typename Matrix::best_span_iterator span_it(m); const int N = span_it.numberOfIterations(); unsigned int size = static_cast(span_it.getSize()); unsigned int stride = static_cast(span_it.getStride()); // forward application of functor, to force execution of memory copy from GPU // to PPAL or viceversa (if needed), avoiding race conditions on the following functor(m, size, stride, static_cast(span_it.getOffset())); if (N > 1) { #ifndef NO_OMP // this if controls the execution using OMP only when the number of threads // is more than 1 and the iterator size is big enough if (omp_utils::get_num_threads() > 1 && N > N_th && size > SIZE_th) { #pragma omp parallel for firstprivate(span_it) for (int i=1; i(span_it.getOffset())); } } else { #endif // sequential code, with less overhead when updating iterator ++span_it; do { functor(m, size, stride, static_cast(span_it.getOffset())); ++span_it; } while(span_it != m->end_span_iterator()); #ifndef NO_OMP } #endif } } } // Idem but for binary functions (needs two matrices, and two // best_span_iterators) template void applyBinaryFunctionWithSpanIterator(Matrix *m1, Matrix *m2, const FUNC &functor, const int N_th = DEFAULT_N_TH, const unsigned int SIZE_th = DEFAULT_SIZE_TH) { #ifdef NO_OMP UNUSED_VARIABLE(N_th); UNUSED_VARIABLE(SIZE_th); #endif if (m1->getIsContiguous() && m2->getIsContiguous() && m1->getIsDataRowOrdered() == m2->getIsDataRowOrdered()) functor(m1, m2, static_cast(m1->size()), 1, 1, static_cast(m1->getOffset()), static_cast(m2->getOffset())); else if (m1->getNumDim() == 1) functor(m1, m2, static_cast(m1->size()), static_cast(m1->getStrideSize(0)), static_cast(m2->getStrideSize(0)), static_cast(m1->getOffset()), static_cast(m2->getOffset())); else { typename Matrix::best_span_iterator span_it1(m1), span_it2(m2); const int N = span_it1.numberOfIterations(); unsigned int size = static_cast(span_it1.getSize()); unsigned int stride1 = static_cast(span_it1.getStride()); unsigned int stride2 = static_cast(span_it2.getStride()); april_assert(N == span_it2.numberOfIterations()); april_assert(size == static_cast(span_it2.getSize())); // forward application of functor, to force execution of memory copy from GPU // to PPAL or viceversa (if needed), avoiding race conditions on the following functor(m1, m2, size, stride1, stride2, static_cast(span_it1.getOffset()), static_cast(span_it2.getOffset())); if (N > 1) { #ifndef NO_OMP // this if controls the execution using OMP only when the number of threads // is more than 1 and the iterator size is big enough if (omp_utils::get_num_threads() > 1 && N > N_th && size > SIZE_th) { #pragma omp parallel for firstprivate(span_it1) firstprivate(span_it2) for (int i=1; i(span_it1.getOffset()), static_cast(span_it2.getOffset())); } } else { #endif // sequential code, with less overhead when updating iterator ++span_it1; ++span_it2; do { functor(m1, m2, size, stride1, stride2, static_cast(span_it1.getOffset()), static_cast(span_it2.getOffset())); ++span_it1; ++span_it2; } while(span_it1 != m1->end_span_iterator()); #ifndef NO_OMP } #endif } } } // Idem but for binary functions (needs two matrices, and two // best_span_iterators) template void applyBinaryFunctionWithSpanIterator(Matrix *m1, const Matrix *m2, const FUNC &functor, const int N_th = DEFAULT_N_TH, const unsigned int SIZE_th = DEFAULT_SIZE_TH) { #ifdef NO_OMP UNUSED_VARIABLE(N_th); UNUSED_VARIABLE(SIZE_th); #endif if (m1->getIsContiguous() && m2->getIsContiguous() && m1->getIsDataRowOrdered() == m2->getIsDataRowOrdered()) functor(m1, m2, static_cast(m1->size()), 1, 1, static_cast(m1->getOffset()), static_cast(m2->getOffset())); else if (m1->getNumDim() == 1) functor(m1, m2, static_cast(m1->size()), static_cast(m1->getStrideSize(0)), static_cast(m2->getStrideSize(0)), static_cast(m1->getOffset()), static_cast(m2->getOffset())); else { typename Matrix::best_span_iterator span_it1(m1), span_it2(m2); const int N = span_it1.numberOfIterations(); unsigned int size = static_cast(span_it1.getSize()); unsigned int stride1 = static_cast(span_it1.getStride()); unsigned int stride2 = static_cast(span_it2.getStride()); april_assert(N == span_it2.numberOfIterations()); april_assert(size == static_cast(span_it2.getSize())); // forward application of functor, to force execution of memory copy from GPU // to PPAL or viceversa (if needed), avoiding race conditions on the following functor(m1, m2, size, stride1, stride2, static_cast(span_it1.getOffset()), static_cast(span_it2.getOffset())); if (N > 1) { #ifndef NO_OMP // this if controls the execution using OMP only when the number of threads // is more than 1 and the iterator size is big enough if (omp_utils::get_num_threads() > 1 && N > N_th && size > SIZE_th) { #pragma omp parallel for firstprivate(span_it1) firstprivate(span_it2) for (int i=1; i(span_it1.getOffset()), static_cast(span_it2.getOffset())); } } else { #endif // sequential code, with less overhead when updating iterator ++span_it1; ++span_it2; do { functor(m1, m2, size, stride1, stride2, static_cast(span_it1.getOffset()), static_cast(span_it2.getOffset())); ++span_it1; ++span_it2; } while(span_it1 != m1->end_span_iterator()); #ifndef NO_OMP } #endif } } } // Similar to previous functions, but for sum-reduction operations template T applySumReductionWithSpanIterator(const Matrix *m, const FUNC &functor, const int N_th = DEFAULT_N_TH, const unsigned int SIZE_th = DEFAULT_SIZE_TH) { #ifdef NO_OMP UNUSED_VARIABLE(N_th); UNUSED_VARIABLE(SIZE_th); #endif // Contiguous memory block if (m->getIsContiguous()) { T aux = functor(m, static_cast(m->size()), 1, static_cast(m->getOffset())); return aux; } // One dimension else if (m->getNumDim() == 1) return functor(m, static_cast(m->size()), static_cast(m->getStrideSize(0)), static_cast(m->getOffset())); // General case else { typename Matrix::best_span_iterator span_it(m); const int N = span_it.numberOfIterations(); unsigned int size = static_cast(span_it.getSize()); unsigned int stride = static_cast(span_it.getStride()); T sum; // forward application of functor, to force execution of memory copy from GPU // to PPAL or viceversa (if needed), avoiding race conditions on the following sum = functor(m, size, stride, static_cast(span_it.getOffset())); if (N > 1) { #ifndef NO_OMP // this if controls the execution using OMP only when the number of threads // is more than 1 and the iterator size is big enough if (omp_utils::get_num_threads() > 1 && N > N_th && size > SIZE_th) { #pragma omp parallel for reduction(+:sum) firstprivate(span_it) for (int i=1; i(span_it.getOffset())); } } else { #endif // sequential code, with less overhead when updating iterator ++span_it; do { sum += functor(m, size, stride, static_cast(span_it.getOffset())); ++span_it; } while(span_it != m->end_span_iterator()); #ifndef NO_OMP } #endif } return sum; } } // Similar to previous functions, but for sum-reduction operations template T applySumReductionWithSpanIteratorNOPARALLEL(const Matrix *m, const FUNC &functor) { // Contiguous memory block if (m->getIsContiguous()) return functor(m, static_cast(m->size()), 1, static_cast(m->getOffset())); // One dimension else if (m->getNumDim() == 1) return functor(m, static_cast(m->size()), static_cast(m->getStrideSize(0)), static_cast(m->getOffset())); // General case else { typename Matrix::best_span_iterator span_it(m); const int N = span_it.numberOfIterations(); unsigned int size = static_cast(span_it.getSize()); unsigned int stride = static_cast(span_it.getStride()); T sum; // forward application of functor, to force execution of memory copy from GPU // to PPAL or viceversa (if needed), avoiding race conditions on the following sum = functor(m, size, stride, static_cast(span_it.getOffset())); // sequential code, with less overhead when updating iterator ++span_it; do { sum += functor(m, size, stride, static_cast(span_it.getOffset())); ++span_it; } while(span_it != m->end_span_iterator()); return sum; } } // Similar to previous functions, but for AND-reduction operations (binary) template bool applyBinaryAndReductionWithSpanIterator(const Matrix *m1, const Matrix *m2, const FUNC &functor, const int N_th = DEFAULT_N_TH, const unsigned int SIZE_th = DEFAULT_SIZE_TH) { #ifdef NO_OMP UNUSED_VARIABLE(N_th); UNUSED_VARIABLE(SIZE_th); #endif if (m1->getIsContiguous() && m2->getIsContiguous() && m1->getIsDataRowOrdered() == m2->getIsDataRowOrdered()) return functor(m1, m2, static_cast(m1->size()), 1, 1, static_cast(m1->getOffset()), static_cast(m2->getOffset())); else if (m1->getNumDim() == 1) return functor(m1, m2, static_cast(m1->size()), static_cast(m1->getStrideSize(0)), static_cast(m2->getStrideSize(0)), static_cast(m1->getOffset()), static_cast(m2->getOffset())); else { typename Matrix::best_span_iterator span_it1(m1), span_it2(m2); const int N = span_it1.numberOfIterations(); unsigned int size = static_cast(span_it1.getSize()); unsigned int stride1 = static_cast(span_it1.getStride()); unsigned int stride2 = static_cast(span_it2.getStride()); april_assert(N == span_it2.numberOfIterations()); april_assert(size == static_cast(span_it2.getSize())); // forward application of functor, to force execution of memory copy from GPU // to PPAL or viceversa (if needed), avoiding race conditions on the following bool ret = functor(m1, m2, size, stride1, stride2, static_cast(span_it1.getOffset()), static_cast(span_it2.getOffset())); if (ret && N > 1) { #ifndef NO_OMP // this if controls the execution using OMP only when the number of threads // is more than 1 and the iterator size is big enough if (omp_utils::get_num_threads() > 1 && N > N_th && size > SIZE_th) { #pragma omp parallel for reduction(&&:ret) firstprivate(span_it1) firstprivate(span_it2) for (int i=1; i(span_it1.getOffset()), static_cast(span_it2.getOffset())); } } else { #endif // sequential code, with less overhead when updating iterator ++span_it1; ++span_it2; do { ret = ret && functor(m1, m2, size, stride1, stride2, static_cast(span_it1.getOffset()), static_cast(span_it2.getOffset())); ++span_it1; ++span_it2; } while(ret && span_it1 != m1->end_span_iterator()); #ifndef NO_OMP } #endif } return ret; } } // Similar to previous functions, but for general reduction operations (without // OMP) template R applyReductionWithSpanIteratorNOPARALLEL(const Matrix *m, FUNC1 &functor, FUNC2 &reductor, const R initial_value) { // Contiguous memory block if (m->getIsContiguous()) return reductor(initial_value, functor(m, static_cast(m->size()), 1, static_cast(m->getOffset()))); // One dimension else if (m->getNumDim() == 1) return reductor(initial_value, functor(m, static_cast(m->size()), static_cast(m->getStrideSize(0)), static_cast(m->getOffset()))); // General case else { typename Matrix::best_span_iterator span_it(m); const int N = span_it.numberOfIterations(); unsigned int size = static_cast(span_it.getSize()); unsigned int stride = static_cast(span_it.getStride()); R red(initial_value); // sequential code while(span_it != m->end_span_iterator()) { R result = functor(m, size, stride, static_cast(span_it.getOffset())); red = reductor(red, result); ++span_it; } return red; } } // Auxiliary function template which applies a given FUNC object ( implements // operator() ) to all the elements of a Matrix, using the best_span_iterator, // WITHOUT OMP template void applyFunctionWithSpanIteratorNOPARALLEL(Matrix *m, const FUNC &functor) { // Contiguous memory block if (m->getIsContiguous()) functor(m, static_cast(m->size()), 1, static_cast(m->getOffset())); // One dimension else if (m->getNumDim() == 1) functor(m, static_cast(m->size()), static_cast(m->getStrideSize(0)), static_cast(m->getOffset())); // General case else { typename Matrix::best_span_iterator span_it(m); unsigned int size = static_cast(span_it.getSize()); unsigned int stride = static_cast(span_it.getStride()); while(span_it != m->end_span_iterator()) { functor(m, size, stride, static_cast(span_it.getOffset())); ++span_it; } } } // Idem but for binary functions (needs two matrices, and two // best_span_iterators), NO OMP template void applyBinaryFunctionWithSpanIteratorNOPARALLEL(Matrix *m1, Matrix *m2, const FUNC &functor) { if (m1->getIsContiguous() && m2->getIsContiguous() && m1->getIsDataRowOrdered() == m2->getIsDataRowOrdered()) functor(m1, m2, static_cast(m1->size()), 1, 1, static_cast(m1->getOffset()), static_cast(m2->getOffset())); else if (m1->getNumDim() == 1) functor(m1, m2, static_cast(m1->size()), static_cast(m1->getStrideSize(0)), static_cast(m2->getStrideSize(0)), static_cast(m1->getOffset()), static_cast(m2->getOffset())); else { typename Matrix::best_span_iterator span_it1(m1), span_it2(m2); const int N = span_it1.numberOfIterations(); unsigned int size = static_cast(span_it1.getSize()); unsigned int stride1 = static_cast(span_it1.getStride()); unsigned int stride2 = static_cast(span_it2.getStride()); april_assert(N == span_it2.numberOfIterations()); april_assert(size == static_cast(span_it2.getSize())); while(span_it1 != m1->end_span_iterator()) { functor(m1, m2, size, stride1, stride2, static_cast(span_it1.getOffset()), static_cast(span_it2.getOffset())); ++span_it1; ++span_it2; } } } // Idem but for binary functions (needs two matrices, and two // best_span_iterators), NO OMP template void applyBinaryFunctionWithSpanIteratorNOPARALLEL(Matrix *m1, const Matrix *m2, const FUNC &functor) { if (m1->getIsContiguous() && m2->getIsContiguous() && m1->getIsDataRowOrdered() == m2->getIsDataRowOrdered()) functor(m1, m2, static_cast(m1->size()), 1, 1, static_cast(m1->getOffset()), static_cast(m2->getOffset())); else if (m1->getNumDim() == 1) functor(m1, m2, static_cast(m1->size()), static_cast(m1->getStrideSize(0)), static_cast(m2->getStrideSize(0)), static_cast(m1->getOffset()), static_cast(m2->getOffset())); else { typename Matrix::best_span_iterator span_it1(m1), span_it2(m2); const int N = span_it1.numberOfIterations(); unsigned int size = static_cast(span_it1.getSize()); unsigned int stride1 = static_cast(span_it1.getStride()); unsigned int stride2 = static_cast(span_it2.getStride()); april_assert(N == span_it2.numberOfIterations()); april_assert(size == static_cast(span_it2.getSize())); while(span_it1 != m1->end_span_iterator()) { functor(m1, m2, size, stride1, stride2, static_cast(span_it1.getOffset()), static_cast(span_it2.getOffset())); ++span_it1; ++span_it2; } } } #endif // MATRIX_GENERIC_MATH_TEMPLATES_H april-ann-0.3.1/packages/basics/matrix/c_src/matrix_not_implemented.h000066400000000000000000000161301234204160600257320ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2014, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MATRIX_NOT_IMPLEMENTED_H #define MATRIX_NOT_IMPLEMENTED_H #include "unused_variable.h" #include "error_print.h" #define NOT_IMPLEMENT_AXPY(TYPE) \ template <> \ void Matrix::axpy(TYPE alpha, const Matrix *other) { \ UNUSED_VARIABLE(alpha); \ UNUSED_VARIABLE(other); \ ERROR_EXIT(128, "NOT IMPLEMENTED\n"); \ } \ template <> \ void Matrix::axpy(TYPE alpha, const SparseMatrix *other) { \ UNUSED_VARIABLE(alpha); \ UNUSED_VARIABLE(other); \ ERROR_EXIT(128, "NOT IMPLEMENTED\n"); \ } #define NOT_IMPLEMENT_AXPY_HEADER(TYPE) \ template <> \ void Matrix::axpy(TYPE alpha, const Matrix *other); \ template <> \ void Matrix::axpy(TYPE alpha, const SparseMatrix *other); ////////////////////////////////////////////////////////////////////////////// #define NOT_IMPLEMENT_GEMM(TYPE) \ template <> \ void Matrix::gemm(CBLAS_TRANSPOSE trans_A, \ CBLAS_TRANSPOSE trans_B, \ TYPE alpha, \ const Matrix *otherA, \ const Matrix *otherB, \ TYPE beta) { \ UNUSED_VARIABLE(trans_A); \ UNUSED_VARIABLE(trans_B); \ UNUSED_VARIABLE(alpha); \ UNUSED_VARIABLE(otherA); \ UNUSED_VARIABLE(otherB); \ UNUSED_VARIABLE(beta); \ ERROR_EXIT(128, "NOT IMPLEMENTED\n"); \ } \ template <> \ void Matrix::sparseMM(CBLAS_TRANSPOSE trans_A, \ CBLAS_TRANSPOSE trans_B, \ CBLAS_TRANSPOSE trans_C, \ TYPE alpha, \ const SparseMatrix *otherA, \ const Matrix *otherB, \ TYPE beta) { \ UNUSED_VARIABLE(trans_A); \ UNUSED_VARIABLE(trans_B); \ UNUSED_VARIABLE(trans_C); \ UNUSED_VARIABLE(alpha); \ UNUSED_VARIABLE(otherA); \ UNUSED_VARIABLE(otherB); \ UNUSED_VARIABLE(beta); \ ERROR_EXIT(128, "NOT IMPLEMENTED\n"); \ } #define NOT_IMPLEMENT_GEMM_HEADER(TYPE) \ template <> \ void Matrix::gemm(CBLAS_TRANSPOSE trans_A, \ CBLAS_TRANSPOSE trans_B, \ TYPE alpha, \ const Matrix *otherA, \ const Matrix *otherB, \ TYPE beta); \ template <> \ void Matrix::sparseMM(CBLAS_TRANSPOSE trans_A, \ CBLAS_TRANSPOSE trans_B, \ CBLAS_TRANSPOSE trans_C, \ TYPE alpha, \ const SparseMatrix *otherA, \ const Matrix *otherB, \ TYPE beta); ///////////////////////////////////////////////////////////////////////////// #define NOT_IMPLEMENT_GEMV(TYPE) \ template <> \ void Matrix::gemv(CBLAS_TRANSPOSE trans_A, \ TYPE alpha, \ const Matrix *otherA, \ const Matrix *otherX, \ TYPE beta) { \ UNUSED_VARIABLE(trans_A); \ UNUSED_VARIABLE(alpha); \ UNUSED_VARIABLE(otherA); \ UNUSED_VARIABLE(otherX); \ UNUSED_VARIABLE(beta); \ ERROR_EXIT(128, "NOT IMPLEMENTED\n"); \ } \ template <> \ void Matrix::gemv(CBLAS_TRANSPOSE trans_A, \ TYPE alpha, \ const SparseMatrix *otherA, \ const Matrix *otherX, \ TYPE beta) { \ UNUSED_VARIABLE(trans_A); \ UNUSED_VARIABLE(alpha); \ UNUSED_VARIABLE(otherA); \ UNUSED_VARIABLE(otherX); \ UNUSED_VARIABLE(beta); \ ERROR_EXIT(128, "NOT IMPLEMENTED\n"); \ } #define NOT_IMPLEMENT_GEMV_HEEADER(TYPE) \ template <> \ void Matrix::gemv(CBLAS_TRANSPOSE trans_A, \ TYPE alpha, \ const Matrix *otherA, \ const Matrix *otherX, \ TYPE beta); \ template <> \ void Matrix::gemv(CBLAS_TRANSPOSE trans_A, \ TYPE alpha, \ const SparseMatrix *otherA, \ const Matrix *otherX, \ TYPE beta); ///////////////////////////////////////////////////////////////////////////// #define NOT_IMPLEMENT_GER(TYPE) \ template <> \ void Matrix::ger(TYPE alpha, \ const Matrix *otherX, \ const Matrix *otherY) { \ UNUSED_VARIABLE(alpha); \ UNUSED_VARIABLE(otherX); \ UNUSED_VARIABLE(otherY); \ ERROR_EXIT(128, "NOT IMPLEMENTED\n"); \ } #define NOT_IMPLEMENT_GER_HEADER(TYPE) \ template <> \ void Matrix::ger(TYPE alpha, \ const Matrix *otherX, \ const Matrix *otherY); #define NOT_IMPLEMENT_DOT(TYPE) \ template <> \ TYPE Matrix::dot(const Matrix *other) const { \ UNUSED_VARIABLE(other); \ ERROR_EXIT(128, "NOT IMPLEMENTED\n"); \ return TYPE(); \ } \ template <> \ TYPE Matrix::dot(const SparseMatrix *other) const { \ UNUSED_VARIABLE(other); \ ERROR_EXIT(128, "NOT IMPLEMENTED\n"); \ return TYPE(); \ } #define NOT_IMPLEMENT_DOT_HEADER(TYPE) \ template <> \ TYPE Matrix::dot(const Matrix *other) const; \ template<> \ TYPE Matrix::dot(const SparseMatrix *other) const; #endif // MATRIX_NOT_IMPLEMENTED_H april-ann-0.3.1/packages/basics/matrix/c_src/referenced_vector.h000066400000000000000000000031601234204160600246460ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef REFERENCED_VECTOR_H #define REFERENCED_VECTOR_H #include #include "referenced.h" #include "vector.h" namespace april_utils { template class ReferencedVector : public Referenced, public vector { public: ReferencedVector(size_t n=0) : Referenced(), vector(n) { } // Destructor... virtual ~ReferencedVector() { } T* release_internal_vector() { // :'( he perdido una hora para averiguar que peta si no se pone el this-> // http://www.cplusplus.com/forum/general/6798 T *returned = this->vec; this->used_size = this->vector_size = 0; this->vec = 0; return returned; } }; typedef ReferencedVector ReferencedVectorFloat; typedef ReferencedVector ReferencedVectorUint; } // namespace #endif april-ann-0.3.1/packages/basics/matrix/c_src/sparse_matrix-iterators.impl.h000066400000000000000000000152771234204160600270310ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2014, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "unused_variable.h" /***** ITERATORS *****/ template SparseMatrix::iterator::iterator(SparseMatrix *m, int idx) : m(m), idx(idx), first_index_pos(0) { // IncRef(m); values = m->values->getPPALForReadAndWrite(); indices = m->indices->getPPALForReadAndWrite(); first_index = m->first_index->getPPALForReadAndWrite(); } template SparseMatrix::iterator::iterator() : m(0), idx(0), values(0), indices(0), first_index(0), first_index_pos(0) { } template SparseMatrix::iterator::iterator(const iterator &other) : m(other.m), idx(other.idx), first_index_pos(other.first_index_pos) { // IncRef(m); values = m->values->getPPALForReadAndWrite(); indices = m->indices->getPPALForReadAndWrite(); first_index = other.first_index; } template SparseMatrix::iterator::~iterator() { // if (m) DecRef(m); } template typename SparseMatrix::iterator &SparseMatrix::iterator:: operator=(const SparseMatrix::iterator &other) { // if (m) DecRef(m); m = other.m; // IncRef(m); idx = other.idx; values = m->values->getPPALForReadAndWrite(); indices = m->indices->getPPALForReadAndWrite(); first_index = other.first_index; first_index_pos = other.first_index_pos; return *this; } template bool SparseMatrix::iterator::operator==(const SparseMatrix::iterator &other) const { return m==other.m && idx == other.idx; } template bool SparseMatrix::iterator::operator!=(const SparseMatrix::iterator &other) const { return !( (*this) == other ); } template typename SparseMatrix::iterator &SparseMatrix::iterator::operator++() { ++idx; if (idx < m->nonZeroSize()) while(first_index[first_index_pos+1] <= idx) ++first_index_pos; return *this; } template T &SparseMatrix::iterator::operator*() { return values[idx]; } template T *SparseMatrix::iterator::operator->() { return &values[idx]; } template void SparseMatrix::iterator::getCoords(int &x0, int &x1) const { switch(m->sparse_format) { case CSC_FORMAT: x0 = indices[idx]; x1 = first_index_pos; break; case CSR_FORMAT: x0 = first_index_pos; x1 = indices[idx]; break; default: x0=-1; x1=-1; } } /*******************************************************************/ template SparseMatrix::const_iterator::const_iterator(const SparseMatrix *m, int idx) : m(m), idx(idx), first_index_pos(0) { // IncRef(m); values = m->values->getPPALForRead(); indices = m->indices->getPPALForRead(); first_index = m->first_index->getPPALForRead(); } template SparseMatrix::const_iterator::const_iterator() : m(0), idx(0), values(0), indices(0), first_index(0), first_index_pos(0) { } template SparseMatrix::const_iterator::const_iterator(const const_iterator &other) : m(other.m), idx(other.idx), first_index_pos(other.first_index_pos) { // IncRef(m); values = m->values->getPPALForReadAndWrite(); indices = m->indices->getPPALForReadAndWrite(); first_index = other.first_index; } template SparseMatrix::const_iterator::const_iterator(const iterator &other) : m(other.m), idx(other.idx), first_index_pos(other.first_index_pos) { // IncRef(m); values = m->values->getPPALForRead(); indices = m->indices->getPPALForRead(); first_index = other.first_index; } template SparseMatrix::const_iterator::~const_iterator() { // if (m) DecRef(m); } template typename SparseMatrix::const_iterator &SparseMatrix::const_iterator:: operator=(const SparseMatrix::const_iterator &other) { // if (m) DecRef(m); m = other.m; // IncRef(m); idx = other.idx; values = m->values->getPPALForRead(); indices = m->indices->getPPALForRead(); first_index = other.first_index; first_index_pos = other.first_index_pos; return *this; } template typename SparseMatrix::const_iterator &SparseMatrix::const_iterator:: operator=(const SparseMatrix::iterator &other) { // if (m) DecRef(m); m = other.m; // IncRef(m); idx = other.idx; values = m->values->getPPALForRead(); indices = m->indices->getPPALForRead(); first_index = other.first_index; first_index_pos = other.first_index_pos; return *this; } template bool SparseMatrix::const_iterator::operator==(const SparseMatrix::const_iterator &other) const { return m==other.m && idx == other.idx; } template bool SparseMatrix::const_iterator::operator==(const SparseMatrix::iterator &other) const { return m==other.m && idx == other.idx; } template bool SparseMatrix::const_iterator::operator!=(const SparseMatrix::const_iterator &other) const { return !( (*this) == other ); } template bool SparseMatrix::const_iterator::operator!=(const SparseMatrix::iterator &other) const { return !( (*this) == other ); } template typename SparseMatrix::const_iterator &SparseMatrix::const_iterator::operator++() { ++idx; if (idx < m->nonZeroSize()) while(first_index[first_index_pos+1] <= idx) ++first_index_pos; return *this; } template const T &SparseMatrix::const_iterator::operator*() const { return values[idx]; } template const T *SparseMatrix::const_iterator::operator->() const { return &values[idx]; } template void SparseMatrix::const_iterator::getCoords(int &x0, int &x1) const { switch(m->sparse_format) { case CSC_FORMAT: x0 = indices[idx]; x1 = first_index_pos; break; case CSR_FORMAT: x0 = first_index_pos; x1 = indices[idx]; break; default: x0=-1; x1=-1; } } april-ann-0.3.1/packages/basics/matrix/c_src/sparse_matrix-math.impl.h000066400000000000000000000201071234204160600257320ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco Zamora-Martinez * Copyright 2012, Salvador España-Boquera * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "maxmin.h" #include "matrix_generic_math_templates.h" template void SparseMatrix::fill(T value) { for (iterator it(begin()); it!=end(); ++it) *it = value; } template void SparseMatrix::zeros() { fill(T()); } template void SparseMatrix::ones() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template T SparseMatrix::sum() const { T result = T(); for (const_iterator it(begin()); it!=end(); ++it) result += (*it); return result; } // the argument indicates over which dimension the sum must be performed template Matrix* SparseMatrix::sum(int dim, Matrix *dest) { if (dim != 0 && dim != 1) ERROR_EXIT1(128, "Incorrect given dimension %d\n", dim); int ndim = (dim==0)?(1):(0); if (dest) { if (dest->getDimSize(dim) != 1 || dest->getDimSize(ndim) != matrixSize[ndim]) ERROR_EXIT(128, "Incorrect matrix sizes\n"); } else { int result_dims[2] = { matrixSize[0], matrixSize[1] }; result_dims[dim] = 1; dest = new Matrix(1, result_dims); } dest->zeros(); typename Matrix::random_access_iterator dest_it(dest); int aux_dims[2] = { 0, 0 }; for (const_iterator it(begin()); it!=end(); ++it) { int coords[2]; it.getCoords(coords[0],coords[1]); aux_dims[ndim] = coords[ndim]; dest_it(aux_dims[0],aux_dims[1]) += (*it); } return dest; } /**** COMPONENT WISE OPERATIONS ****/ template void SparseMatrix::copy(const SparseMatrix *other) { if (!sameDim(other)) ERROR_EXIT(128, "Not equal matrix dimensions or format\n"); const_iterator it_orig(other->begin()); iterator it_dest(this->begin()); while(it_orig != other->end()) { *it_dest = *it_orig; ++it_orig; ++it_dest; } } template bool SparseMatrix::equals(const SparseMatrix *other, float epsilon) const { UNUSED_VARIABLE(other); UNUSED_VARIABLE(epsilon); ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); return false; } template void SparseMatrix::sqrt() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void SparseMatrix::pow(T value) { UNUSED_VARIABLE(value); ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void SparseMatrix::tan() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void SparseMatrix::tanh() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void SparseMatrix::atan() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void SparseMatrix::atanh() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void SparseMatrix::sin() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void SparseMatrix::sinh() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void SparseMatrix::asin() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void SparseMatrix::asinh() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void SparseMatrix::abs() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void SparseMatrix::sign() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template void SparseMatrix::scal(T value) { for (iterator it(begin()); it != end(); ++it) *it *= value; } template void SparseMatrix::div(T value) { for (iterator it(begin()); it != end(); ++it) *it /= value; } template float SparseMatrix::norm2() const { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); return 0.0f; } template T SparseMatrix::min(int &c0, int &c1) const { const_iterator it = april_utils::argmin(begin(),end()); it.getCoords(c0,c1); return *it; } template T SparseMatrix::max(int &c0, int &c1) const { const_iterator it = april_utils::argmax(begin(),end()); it.getCoords(c0,c1); return *it; } template void SparseMatrix::minAndMax(T &min, T &max) const { const_iterator it(begin()); min = max = *it; ++it; for (; it != end(); ++it) { if ( max < (*it) ) max = *it; else if ( (*it) < min ) min = *it; } } // the argument indicates over which dimension the max must be performed template Matrix* SparseMatrix::max(int dim, Matrix *dest, Matrix *argmax) { if (dim != 0 && dim != 1) ERROR_EXIT1(128, "Incorrect given dimension %d\n", dim); int ndim = (dim==0)?(1):(0); if (dest) { if (dest->getDimSize(dim) != 1 || dest->getDimSize(ndim) != matrixSize[ndim]) ERROR_EXIT(128, "Incorrect matrix sizes\n"); } else { int result_dims[2] = { matrixSize[0], matrixSize[1] }; result_dims[dim] = 1; dest = new Matrix(1, result_dims); } if (argmax) { if (argmax->getDimSize(dim) != 1 || argmax->getDimSize(ndim) != matrixSize[ndim]) ERROR_EXIT(128, "Incorrect matrix sizes\n"); argmax->zeros(); } dest->zeros(); typename Matrix::random_access_iterator dest_it(dest); int aux_dims[2] = { 0, 0 }; if (argmax == 0) { for (const_iterator it(begin()); it!=end(); ++it) { int coords[2]; it.getCoords(coords[0],coords[1]); aux_dims[ndim] = coords[ndim]; dest_it(aux_dims[0],aux_dims[1]) = april_utils::max(dest_it(aux_dims[0],aux_dims[1]),(*it)); } } else { typename Matrix::random_access_iterator argmax_it(argmax); for (const_iterator it(begin()); it!=end(); ++it) { int coords[2]; it.getCoords(coords[0],coords[1]); aux_dims[ndim] = coords[ndim]; if (dest_it(aux_dims[0],aux_dims[1]) < *it) { dest_it(aux_dims[0],aux_dims[1]) = *it; argmax_it(aux_dims[0],aux_dims[1]) = aux_dims[ndim]; } } } return dest; } // the argument indicates over which dimension the sum must be performed template Matrix* SparseMatrix::min(int dim, Matrix *dest, Matrix *argmin) { if (dim != 0 && dim != 1) ERROR_EXIT1(128, "Incorrect given dimension %d\n", dim); int ndim = (dim==0)?(1):(0); if (dest) { if (dest->getDimSize(dim) != 1 || dest->getDimSize(ndim) != matrixSize[ndim]) ERROR_EXIT(128, "Incorrect matrix sizes\n"); } else { int result_dims[2] = { matrixSize[0], matrixSize[1] }; result_dims[dim] = 1; dest = new Matrix(1, result_dims); } if (argmin) { if (argmin->getDimSize(dim) != 1 || argmin->getDimSize(ndim) != matrixSize[ndim]) ERROR_EXIT(128, "Incorrect matrix sizes\n"); argmin->zeros(); } dest->zeros(); typename Matrix::random_access_iterator dest_it(dest); int aux_dims[2] = { 0, 0 }; if (argmin == 0) { for (const_iterator it(begin()); it!=end(); ++it) { int coords[2]; it.getCoords(coords[0],coords[1]); aux_dims[ndim] = coords[ndim]; dest_it(aux_dims[0],aux_dims[1]) = april_utils::min(dest_it(aux_dims[0],aux_dims[1]),(*it)); } } else { typename Matrix::random_access_iterator argmin_it(argmin); for (const_iterator it(begin()); it!=end(); ++it) { int coords[2]; it.getCoords(coords[0],coords[1]); aux_dims[ndim] = coords[ndim]; if (*it < dest_it(aux_dims[0],aux_dims[1])) { dest_it(aux_dims[0],aux_dims[1]) = *it; argmin_it(aux_dims[0],aux_dims[1]) = aux_dims[ndim]; } } } return dest; } april-ann-0.3.1/packages/basics/matrix/c_src/sparse_matrix.h000066400000000000000000000366301234204160600240530ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2014, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef SPARSE_MATRIX_H #define SPARSE_MATRIX_H #include #include "april_assert.h" #include #include // surprisingly, placement new doesn't work without this #include "cblas_headers.h" #include "wrapper.h" #include "gpu_mirrored_memory_block.h" #include "referenced.h" #include "aligned_memory.h" #include "swap.h" #include "maxmin.h" #include "qsort.h" #include "mmapped_data.h" #include "unused_variable.h" // CSC or CSR format explained at MKL "Sparse Matrix Storage Formats": // http://software.intel.com/sites/products/documentation/hpc/mkl/mklman/GUID-9FCEB1C4-670D-4738-81D2-F378013412B0.htm /// The SparseMatrix class represents bi-dimensional sparse matrices, stored as /// CSC or CSR format, using zero-based indexing (as in Lua). The structure of /// the matrices is resized dynamically. It is not possible to share internal /// memory pointers between different matrices, unless transposition operator /// which shared the data pointers. template class SparseMatrix : public Referenced { friend class Matrix; const static unsigned int MATRIX_BINARY_VERSION; // Auxiliary count variable where the user could store the number of times // this object is shared in a computation (like in ANN components sharing // weight matrices) unsigned int shared_count; protected: /// Number of dimensions (always 2) static const int numDim = 2; /// size of each dimension int matrixSize[2]; /// Total size of the matrix (number of elements) int total_size; // Pointers to data: values,indices,first_index GPUMirroredMemoryBlock *values; ///< non-zero values Int32GPUMirroredMemoryBlock *indices; ///< indices for rows (CSC) or columns (CSR) Int32GPUMirroredMemoryBlock *first_index; ///< size(values) + 1 /// For mmapped matrices april_utils::MMappedDataReader *mmapped_data; /// Format type (CSC or CSR) SPARSE_FORMAT sparse_format; /// For CUDA purposes bool use_cuda; /// Constructor... -> Integer array with the size of each dimension /* Matrix(int numDim, const int* dim, T* data_vector, CBLAS_ORDER major_order = CblasRowMajor); */ /// Returns if the matrix is a vector bool isVector() const { return ( (matrixSize[0]==1) || (matrixSize[1]==1) ); } bool isColVector() const { return matrixSize[1]==1; } int searchIndexOf(const int c0, const int c1) const; int searchIndexOfFirst(const int c0, const int c1) const; public: /********* Iterators for Matrix traversal *********/ // forward declaration class const_iterator; class iterator { friend class const_iterator; friend class SparseMatrix; SparseMatrix *m; int idx; // T *values; int *indices; int *first_index; int first_index_pos; iterator(SparseMatrix *m, int idx=0); public: iterator(); iterator(const iterator &other); ~iterator(); iterator &operator=(const iterator &other); bool operator==(const iterator &other) const; bool operator!=(const iterator &other) const; iterator &operator++(); T &operator*(); T *operator->(); int getIdx() const { return idx; } void getCoords(int &x0, int &x1) const; }; /*******************************************************/ class const_iterator { friend class SparseMatrix; const SparseMatrix *m; int idx; // const T *values; const int *indices; const int *first_index; int first_index_pos; const_iterator(const SparseMatrix *m, int idx=0); public: const_iterator(); const_iterator(const const_iterator &other); const_iterator(const iterator &other); /*const_iterator(const iterator &other);*/ ~const_iterator(); const_iterator &operator=(const const_iterator &other); const_iterator &operator=(const iterator &other); bool operator==(const const_iterator &other) const; bool operator==(const iterator &other) const; bool operator!=(const const_iterator &other) const; bool operator!=(const iterator &other) const; const_iterator &operator++(); const T &operator*() const; const T *operator->() const; int getIdx() const { return idx; } void getCoords(int &x0, int &x1) const; }; /*******************************************************/ private: // const version of iterators, for fast end() iterator calls. They are // allocated on-demand, so if end() methods are never executed, they // nerver will be initialized. mutable iterator end_iterator; mutable const_iterator end_const_iterator; SparseMatrix() : end_iterator(), end_const_iterator() { } void checkSortedIndices(bool sort=false); public: /********** Constructors ***********/ /// Constructor SparseMatrix(const int d0, const int d1, GPUMirroredMemoryBlock *values, Int32GPUMirroredMemoryBlock *indices, Int32GPUMirroredMemoryBlock *first_index, const SPARSE_FORMAT sparse_format = CSR_FORMAT, bool sort=false); /// Constructor given a dense matrix, it does constructs a sparse matrix /// (cloned). SparseMatrix(const Matrix *other, const SPARSE_FORMAT sparse_format = CSR_FORMAT, const T zero = T()); /// Constructor given other matrix, it does a deep copy (clone). SparseMatrix(const SparseMatrix *other, SPARSE_FORMAT sparse_format = NONE_FORMAT); /// Sub-matrix constructor, makes a deep copy of the given matrix slice SparseMatrix(const SparseMatrix *other, const int *coords, const int *sizes, bool clone=true); /// Destructor virtual ~SparseMatrix(); /// Constructor from a MMAP file static SparseMatrix *fromMMappedDataReader(april_utils::MMappedDataReader *mmapped_data); /// Writes to a file void toMMappedDataWriter(april_utils::MMappedDataWriter *mmapped_data) const; /* Getters and setters */ int getNumDim() const { return numDim; } const int *getDimPtr() const { return matrixSize; } int getDimSize(int i) const { return matrixSize[i]; } int size() const { return total_size; } // FIXME: use an attribute to improve the efficiency of this call int nonZeroSize() const { return static_cast(values->getSize()); } int getDenseCoordinateSize() const { if (sparse_format == CSR_FORMAT) return matrixSize[0]; else return matrixSize[1]; } int getCompressedCoordinateSize() const { if (sparse_format == CSR_FORMAT) return matrixSize[1]; else return matrixSize[0]; } SPARSE_FORMAT getSparseFormat() const { return sparse_format; } bool getIsDataRowOrdered() const { return sparse_format == CSR_FORMAT; } // UPDATE GPU OR PPAL IF NEEDED void update() { #ifdef USE_CUDA values->forceUpdate(); indices->forceUpdate(); first_index->forceUpdate(); #endif } void setUseCuda(bool v) { use_cuda = v; #ifdef USE_CUDA if (use_cuda) { values->updateMemGPU(); indices->updateMemGPU(); first_index->updateMemGPU(); } #endif } bool getCudaFlag() const { return use_cuda; } /**********************/ iterator begin() { return iterator(this); } iterator iteratorAt(int c0, int c1) { int idx = searchIndexOf(c0, c1); if (idx == -1) ERROR_EXIT2(128,"Incorrect given position (%d,%d)\n",c0,c1); return iterator(this, idx); } iterator iteratorAtFirst(int c0, int c1) { int idx = searchIndexOfFirst(c0, c1); return iterator(this, idx); } iterator iteratorAtRawIndex(int i) { return iterator(this,i); } const iterator &end() { if (end_iterator.m == 0) end_iterator = iterator(this, nonZeroSize()); return end_iterator; } /************************/ const_iterator begin() const { return const_iterator(this); } const_iterator iteratorAt(int c0, int c1) const { int idx = searchIndexOf(c0, c1); if (idx == -1) ERROR_EXIT2(128,"Incorrect given position (%d,%d)\n",c0,c1); return const_iterator(this, idx); } const_iterator iteratorAtFirst(int c0, int c1) const { int idx = searchIndexOfFirst(c0, c1); return const_iterator(this, idx); } const_iterator iteratorAtRawIndex(int i) const { return const_iterator(this,i); } const const_iterator &end() const { if (end_const_iterator.m == 0) end_const_iterator = const_iterator(this, nonZeroSize()); return end_const_iterator; } /// Symbolic transposition, changes the sparse format SparseMatrix* transpose(); /// Deep copy with different sparse format SparseMatrix *clone(SPARSE_FORMAT sparse_format = NONE_FORMAT) const; /// Returns an equivalent dense matrix Matrix *toDense(CBLAS_ORDER order=CblasRowMajor) const; /// Number values check void pruneSubnormalAndCheckNormal(); /// This method sets to zero the shared counter void resetSharedCount() { shared_count = 0; } /// This method adds counts to the shared counter void addToSharedCount(unsigned int count=1) { shared_count += count; } /// Getter of the shared count value unsigned int getSharedCount() const { return shared_count; } /// Raw access operator [], access by index position T& operator[] (int i); const T& operator[] (int i) const; /// Access to independent elements // T& operator() (int row, int col); const T operator() (int row, int col) const; /// Function to obtain RAW access to data pointer. Be careful with it, because /// you are losing sub-matrix abstraction, and the major order. GPUMirroredMemoryBlock *getRawValuesAccess() { return values; } Int32GPUMirroredMemoryBlock *getRawIndicesAccess() { return indices; } Int32GPUMirroredMemoryBlock *getRawFirstIndexAccess() { return first_index; } const GPUMirroredMemoryBlock *getRawValuesAccess() const { return values; } const Int32GPUMirroredMemoryBlock *getRawIndicesAccess() const { return indices; } const Int32GPUMirroredMemoryBlock *getRawFirstIndexAccess() const { return first_index; } /// Returns true if they have the same dimension template bool sameDim(const SparseMatrix *other) const; template bool sameDim(const Matrix *other) const; bool sameDim(const int d0, const int d1) const; //////////////////////////////////////////////////////////////////////////// bool isDiagonal() const { if (matrixSize[0] != matrixSize[1] || matrixSize[0] != nonZeroSize()) return false; for(const_iterator it(begin()); it!=end(); ++it) { int c0,c1; it.getCoords(c0,c1); if (c0 != c1) return false; } return true; } void fill(T value); void zeros(); void ones(); static SparseMatrix *diag(int N, T value=T(), SPARSE_FORMAT sparse_format = CSR_FORMAT) { unsigned int uN = static_cast(N); SparseMatrix *result; GPUMirroredMemoryBlock *values = new GPUMirroredMemoryBlock(uN); Int32GPUMirroredMemoryBlock *indices = new Int32GPUMirroredMemoryBlock(uN); Int32GPUMirroredMemoryBlock *first_index = new Int32GPUMirroredMemoryBlock(uN+1); T *values_ptr = values->getPPALForWrite(); int *indices_ptr = indices->getPPALForWrite(); int *first_index_ptr = first_index->getPPALForWrite(); first_index_ptr[0] = 0; for (unsigned int i=0; i(N, N, values, indices, first_index, sparse_format); return result; } static SparseMatrix *diag(Matrix *m, SPARSE_FORMAT sparse_format = CSR_FORMAT) { if (m->getNumDim() != 1) ERROR_EXIT(128, "Expected uni-dimensional matrix\n"); int N = m->getDimSize(0); unsigned int uN = static_cast(N); SparseMatrix *result; GPUMirroredMemoryBlock *values = new GPUMirroredMemoryBlock(uN); Int32GPUMirroredMemoryBlock *indices = new Int32GPUMirroredMemoryBlock(uN); Int32GPUMirroredMemoryBlock *first_index = new Int32GPUMirroredMemoryBlock(uN+1); T *values_ptr = values->getPPALForWrite(); int *indices_ptr = indices->getPPALForWrite(); int *first_index_ptr = first_index->getPPALForWrite(); first_index_ptr[0] = 0; typename Matrix::const_iterator it(m->begin()); for (unsigned int i=0; iend()); values_ptr[i] = *it; indices_ptr[i] = i; first_index_ptr[i+1] = i+1; } result = new SparseMatrix(N, N, values, indices, first_index, sparse_format); return result; } static SparseMatrix *diag(GPUMirroredMemoryBlock *values, SPARSE_FORMAT sparse_format = CSR_FORMAT) { unsigned int uN = values->getSize(); int N = static_cast(uN); SparseMatrix *result; Int32GPUMirroredMemoryBlock *indices = new Int32GPUMirroredMemoryBlock(uN); Int32GPUMirroredMemoryBlock *first_index = new Int32GPUMirroredMemoryBlock(uN+1); int *indices_ptr = indices->getPPALForWrite(); int *first_index_ptr = first_index->getPPALForWrite(); first_index_ptr[0] = 0; for (unsigned int i=0; i(N, N, values, indices, first_index, sparse_format); return result; } T sum() const; // the argument indicates over which dimension the sum must be performed Matrix* sum(int dim, Matrix *dest=0); /**** COMPONENT WISE OPERATIONS ****/ bool equals(const SparseMatrix *other, float epsilon) const; void sqrt(); void pow(T value); void tan(); void tanh(); void atan(); void atanh(); void sin(); void sinh(); void asin(); void asinh(); void abs(); void sign(); /**** BLAS OPERATIONS ****/ // SCOPY BLAS operation this = other void copy(const SparseMatrix *other); void scal(T value); void div(T value); float norm2() const; T min(int &c0, int &c1) const; T max(int &c0, int &c1) const; void minAndMax(T &min, T &max) const; // Min and max over given dimension, be careful, argmin and argmax matrices // contains the min/max index at the given dimension, but starting in 1 (not // in 0) Matrix *min(int dim, Matrix *dest=0, Matrix *argmin=0); Matrix *max(int dim, Matrix *dest=0, Matrix *argmax=0); /// This method converts the caller SparseMatrix in a vector, unrolling the /// dimensions in row-major order. If the SparseMatrix is in CSR format, the /// resulting vector is a row vector, otherwise, it is a column vector. SparseMatrix *asVector() const; private: void allocate_memory(int size); void release_memory(); void initialize(int d0, int d1); }; #include "sparse_matrix.impl.h" #include "sparse_matrix-iterators.impl.h" #include "sparse_matrix-math.impl.h" #endif // SPARSE_MATRIX_H april-ann-0.3.1/packages/basics/matrix/c_src/sparse_matrix.impl.h000066400000000000000000000420771234204160600250150ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco Zamora-Martinez * Copyright 2012, Salvador España-Boquera * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include #include #include #include #include "error_print.h" #include "ignore_result.h" #include "qsort.h" #include "swap.h" #include "pair.h" #include "vector.h" template const unsigned int SparseMatrix::MATRIX_BINARY_VERSION = 0x00000001; template int SparseMatrix::searchIndexOf(const int c0, const int c1) const { int idx; switch(sparse_format) { case CSC_FORMAT: if (c1 >= matrixSize[1]) idx = nonZeroSize()+1; else idx = doSearchCSCSparseIndexOf(indices, first_index, c0, c1, use_cuda); break; case CSR_FORMAT: if (c0 >= matrixSize[0]) idx = nonZeroSize()+1; else idx = doSearchCSRSparseIndexOf(indices, first_index, c0, c1, use_cuda); break; default: ERROR_EXIT1(128, "Unrecognized format %d\n", sparse_format); idx=-1; } return idx; } template int SparseMatrix::searchIndexOfFirst(const int c0, const int c1) const { int idx; switch(sparse_format) { case CSC_FORMAT: if (c1 >= matrixSize[1]) idx = nonZeroSize()+1; else idx = doSearchCSCSparseIndexOfFirst(indices, first_index, c0, c1, use_cuda); break; case CSR_FORMAT: if (c0 >= matrixSize[0]) idx = nonZeroSize()+1; else idx = doSearchCSRSparseIndexOfFirst(indices, first_index, c0, c1, use_cuda); break; default: ERROR_EXIT1(128, "Unrecognized format %d\n", sparse_format); idx=-1; } return idx; } template struct SparseMatrixIndicesCmp { bool operator()(const april_utils::pair &a, const april_utils::pair &b) { return a.first < b.first; } }; template void SparseMatrix::checkSortedIndices(bool sort) { const int dense_size = getDenseCoordinateSize(); const int compressed_size = getCompressedCoordinateSize(); // for index sort algorithm if (indices->getSize() != values->getSize()) ERROR_EXIT(256, "Different block sizes found in indices and values\n"); if (static_cast(first_index->getSize()) != dense_size+1) ERROR_EXIT1(256, "First index block size must be %d\n", dense_size+1); const int *indices_ptr = indices->getPPALForRead(); const int *first_index_ptr = first_index->getPPALForRead(); if (first_index_ptr[dense_size] != static_cast(values->getSize())) ERROR_EXIT2(256, "Incorrect last value of first_index block, " "found %d, expected %u\n", first_index_ptr[dense_size], values->getSize()); april_utils::vector< april_utils::pair > aux_index_sorted; for (int i=0; i= compressed_size)) ERROR_EXIT2(256, "Index out-of-bounds [%d] = %d\n", first_index_ptr[i], indices_ptr[first_index_ptr[i]]); for (int j=first_index_ptr[i]+1; j= indices_ptr[j]) need_sort = true; if (indices_ptr[j] < 0 || indices_ptr[j] >= compressed_size) ERROR_EXIT2(256, "Index out-of-bounds [%d] = %d\n", j, indices_ptr[j]); } if (need_sort) { if (!sort) ERROR_EXIT(256, "Found incorrect index order\n"); aux_index_sorted.clear(); T *values_ptr = values->getPPALForReadAndWrite(); int *indices_ptr = indices->getPPALForReadAndWrite(); for (int j=first_index_ptr[i]; j 0); april_utils::Sort(aux_index_sorted.begin(), 0, static_cast(aux_index_sorted.size())-1, SparseMatrixIndicesCmp()); int k=0; for (int j=first_index_ptr[i]; j void SparseMatrix::initialize(int d0, int d1) { if (d1 == 1 && sparse_format == CSR_FORMAT) ERROR_EXIT(128, "Column vector unable with CSR format\n"); else if (d0 == 1 && sparse_format == CSC_FORMAT) ERROR_EXIT(128, "Row vector unable with CSC format\n"); total_size = d0*d1; matrixSize[0] = d0; matrixSize[1] = d1; } /// Allocation of memory for data pointer. template void SparseMatrix::allocate_memory(int size) { unsigned int sz = static_cast(size); values = new GPUMirroredMemoryBlock(sz); indices = new Int32GPUMirroredMemoryBlock(sz); first_index = new Int32GPUMirroredMemoryBlock(static_cast(getDenseCoordinateSize())+1); IncRef(values); IncRef(indices); IncRef(first_index); } /// Release of the memory allocated for data pointer. template void SparseMatrix::release_memory() { DecRef(values); DecRef(indices); DecRef(first_index); } /// Default constructor template SparseMatrix::SparseMatrix(const int d0, const int d1, GPUMirroredMemoryBlock *values, Int32GPUMirroredMemoryBlock *indices, Int32GPUMirroredMemoryBlock *first_index, const SPARSE_FORMAT sparse_format, bool sort) : Referenced(), shared_count(0), values(values), indices(indices), first_index(first_index), mmapped_data(0), sparse_format(sparse_format), use_cuda(false), end_iterator(), end_const_iterator() { initialize(d0, d1); if (this->first_index == 0) { if ( (d1 == 1 && sparse_format == CSC_FORMAT) || (d0 == 1 && sparse_format == CSR_FORMAT) ) { this->first_index = new Int32GPUMirroredMemoryBlock(2); int *first_index_ptr = this->first_index->getPPALForWrite(); first_index_ptr[0] = 0; first_index_ptr[1] = static_cast(values->getSize()); } else ERROR_EXIT(128, "NULL first_index block only allowed for " "column or row vectors, not matrices\n"); } IncRef(values); IncRef(indices); IncRef(this->first_index); checkSortedIndices(sort); } template SparseMatrix::SparseMatrix(const Matrix *other, const SPARSE_FORMAT sparse_format, const T zero) : Referenced(), shared_count(0), mmapped_data(0), sparse_format(sparse_format), use_cuda(other->getCudaFlag()), end_iterator(), end_const_iterator() { if (other->getNumDim() != 2) ERROR_EXIT(128, "Only allowed for bi-dimensional matrices\n"); initialize(other->getDimSize(0), other->getDimSize(1)); // int non_zero_size = 0; typename Matrix::const_iterator it(other->begin()); for (int c1=0; c1getDimSize(1); ++c1) { for (int c0=0; c0getDimSize(0); ++c0, ++it) { if (it == other->end()) ERROR_EXIT(128, "Unexpected matrix iterator end\n"); if (zero < *it || *it < -zero) non_zero_size++; } } allocate_memory(non_zero_size); int current = 0; float *values_ptr = values->getPPALForWrite(); int *indices_ptr = indices->getPPALForWrite(); int *first_index_ptr = first_index->getPPALForWrite(); first_index_ptr[0] = 0; switch(sparse_format) { case CSC_FORMAT: { typename Matrix::const_col_major_iterator it(other->begin()); for (int c1=0; c1getDimSize(1); ++c1) { for (int c0=0; c0getDimSize(0); ++c0, ++it) { if (zero < *it || *it < -zero) { values_ptr[current] = *it; indices_ptr[current] = c0; ++current; } } first_index_ptr[c1+1] = current; } } break; // case CSC_FORMAT case CSR_FORMAT: { typename Matrix::const_iterator it(other->begin()); for (int c0=0; c0getDimSize(0); ++c0) { for (int c1=0; c1getDimSize(1); ++c1, ++it) { if (zero < *it || *it < -zero) { values_ptr[current] = *it; indices_ptr[current] = c1; ++current; } } first_index_ptr[c0+1] = current; } } break; // case CSR_FORMAT default: ERROR_EXIT1(128, "Unrecognized format %d\n", sparse_format); } } /// Constructor given other matrix, it does a deep copy (clone). template SparseMatrix::SparseMatrix(const SparseMatrix *other, SPARSE_FORMAT sparse_format) : Referenced(), shared_count(other->shared_count), mmapped_data(0), use_cuda(other->use_cuda), end_iterator(), end_const_iterator() { if (sparse_format == NONE_FORMAT) this->sparse_format = other->sparse_format; else this->sparse_format = sparse_format; initialize(other->matrixSize[0], other->matrixSize[1]); allocate_memory(static_cast(other->values->getSize())); if (this->sparse_format == other->sparse_format) { values->copyFromBlock(other->values, 0, 0, other->values->getSize()); indices->copyFromBlock(other->indices, 0, 0, other->indices->getSize()); first_index->copyFromBlock(other->first_index, 0, 0, other->first_index->getSize()); } else { // Transformation between compressed sparse formats ERROR_EXIT(256, "Not implemented!!!\n"); } } /// Constructor for sub-matrix building template SparseMatrix::SparseMatrix(const SparseMatrix *other, const int *coords, const int *sizes, bool clone) : Referenced(), shared_count(0), mmapped_data(0), sparse_format(other->sparse_format), use_cuda(other->use_cuda), end_iterator(), end_const_iterator() { UNUSED_VARIABLE(clone); if (sizes[0] + coords[0] > other->matrixSize[0]) ERROR_EXIT3(128, "Size+coordinates are out of dimension size: %d+%d>%d\n", sizes[0], coords[0], other->matrixSize[0]); if (sizes[1] + coords[1] > other->matrixSize[1]) ERROR_EXIT3(128, "Size+coordinates are out of dimension size: %d+%d>%d\n", sizes[1], coords[1], other->matrixSize[1]); initialize(sizes[0], sizes[1]); int non_zero_size = 0; int x0=0, x1=0; for (const_iterator it(other->begin()); it != other->end(); ++it) { it.getCoords(x0,x1); if (x0 >= coords[0] && x0 < coords[0]+sizes[0] && x1 >= coords[1] && x1 < coords[1]+sizes[1]) ++non_zero_size; } allocate_memory(non_zero_size); float *values_ptr = values->getPPALForWrite(); int *indices_ptr = indices->getPPALForWrite(); int *first_index_ptr = first_index->getPPALForWrite(); int current=0; first_index_ptr[0] = 0; switch(sparse_format) { case CSC_FORMAT: { int x0=0, x1=0; for (const_iterator it(other->begin()); it != other->end(); ++it) { it.getCoords(x0,x1); if (coords[0] <= x0 && x0 < coords[0]+sizes[0] && coords[1] <= x1 && x1 < coords[1]+sizes[1]) { values_ptr[current] = *it; indices_ptr[current] = x0-coords[0]; ++current; first_index_ptr[x1-coords[1]+1] = current; } } } break; case CSR_FORMAT: { int x0=0, x1=0; for (const_iterator it(other->begin()); it != other->end(); ++it) { it.getCoords(x0,x1); if (coords[0] <= x0 && x0 < coords[0]+sizes[0] && coords[1] <= x1 && x1 < coords[1]+sizes[1]) { values_ptr[current] = *it; indices_ptr[current] = x1-coords[1]; ++current; first_index_ptr[x0-coords[0]+1] = current; } } } break; default: ERROR_EXIT1(128, "Unrecognized format %d\n", sparse_format); } } template SparseMatrix *SparseMatrix:: fromMMappedDataReader(april_utils::MMappedDataReader *mmapped_data) { SparseMatrix *obj = new SparseMatrix(); // obj->values = GPUMirroredMemoryBlock::fromMMappedDataReader(mmapped_data); obj->indices = Int32GPUMirroredMemoryBlock::fromMMappedDataReader(mmapped_data); obj->first_index = Int32GPUMirroredMemoryBlock::fromMMappedDataReader(mmapped_data); IncRef(obj->values); IncRef(obj->indices); IncRef(obj->first_index); // unsigned int binary_version = *(mmapped_data->get()); if (binary_version != MATRIX_BINARY_VERSION) ERROR_EXIT1(128, "Incorrect binary matrix version from commit number %d\n", mmapped_data->getCommitNumber()); int *aux_size = mmapped_data->get(2); obj->matrixSize[0] = aux_size[0]; obj->matrixSize[1] = aux_size[1]; obj->total_size = *(mmapped_data->get()); obj->sparse_format = *(mmapped_data->get()); // NON MAPPED DATA obj->use_cuda = false; obj->shared_count = 0; // THE MMAP POINTER obj->mmapped_data = mmapped_data; IncRef(obj->mmapped_data); // return obj; } template void SparseMatrix::toMMappedDataWriter(april_utils::MMappedDataWriter *mmapped_data) const { values->toMMappedDataWriter(mmapped_data); indices->toMMappedDataWriter(mmapped_data); first_index->toMMappedDataWriter(mmapped_data); mmapped_data->put(&MATRIX_BINARY_VERSION); mmapped_data->put(matrixSize, 2); mmapped_data->put(&total_size); mmapped_data->put(&sparse_format); } template SparseMatrix::~SparseMatrix() { release_memory(); if (mmapped_data != 0) DecRef(mmapped_data); } template SparseMatrix *SparseMatrix::transpose() { SparseMatrix *result = new SparseMatrix(matrixSize[1], matrixSize[0], values, indices, first_index, (sparse_format == CSR_FORMAT) ? CSC_FORMAT : CSR_FORMAT, false); return result; } template SparseMatrix *SparseMatrix::clone(SPARSE_FORMAT sparse_format) const { return new SparseMatrix(this, sparse_format); } template T& SparseMatrix::operator[] (int i) { return values->get(static_cast(i)); } template const T& SparseMatrix::operator[] (int i) const { return values->get(static_cast(i)); } template const T SparseMatrix::operator() (int row, int col) const { int idx = searchIndexOf(row,col); if (idx < 0) return T(); return (*values)[idx]; } template template bool SparseMatrix::sameDim(const SparseMatrix *other) const { return ( sparse_format == other->sparse_format && sameDim(other->getDimSize(0), other->getDimSize(1)) ); } template template bool SparseMatrix::sameDim(const Matrix *other) const { return ( other->getNumDim() == 2 && sameDim(other->getDimSize(0), other->getDimSize(1)) ); } template bool SparseMatrix::sameDim(const int row, const int col) const { return (row == matrixSize[0]) && (col == matrixSize[1]); } template void SparseMatrix::pruneSubnormalAndCheckNormal() { ERROR_EXIT(128, "NOT IMPLEMENTED!!!\n"); } template Matrix *SparseMatrix::toDense(CBLAS_ORDER order) const { Matrix *result = new Matrix(2, matrixSize, order); typename Matrix::random_access_iterator result_it(result); result->zeros(); int x0=0,x1=0; for (const_iterator it(begin()); it != end(); ++it) { it.getCoords(x0,x1); result_it(x0,x1) = *it; } return result; } template SparseMatrix *SparseMatrix::asVector() const { int sz = matrixSize[0]*matrixSize[1]; const int *this_indices_ptr = indices->getPPALForRead(); const int *this_first_index_ptr = first_index->getPPALForRead(); // bool sort=false; GPUMirroredMemoryBlock *result_values = values->clone(); Int32GPUMirroredMemoryBlock *result_indices = new Int32GPUMirroredMemoryBlock(nonZeroSize()); Int32GPUMirroredMemoryBlock *result_first_index = new Int32GPUMirroredMemoryBlock(2); // int *result_indices_ptr = result_indices->getPPALForWrite(); int *result_first_index_ptr = result_first_index->getPPALForWrite(); result_first_index_ptr[0] = 0; result_first_index_ptr[1] = nonZeroSize(); // int d0,d1; switch(sparse_format) { case CSR_FORMAT: d0=1; d1=sz; for (int row=0; row *result = new SparseMatrix(d0, d1, result_values, result_indices, result_first_index, sparse_format, sort); return result; } april-ann-0.3.1/packages/basics/matrix/c_src/sparse_matrixFloat.cc000066400000000000000000000017151234204160600251730ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2014, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "sparse_matrixFloat.h" /////////////////////////////////////////////////////////////////////////////// template class SparseMatrix; april-ann-0.3.1/packages/basics/matrix/c_src/sparse_matrixFloat.h000066400000000000000000000020511234204160600250270ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2014, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef SPARSEMATRIXFLOAT_H #define SPARSEMATRIXFLOAT_H #include "matrixFloat.h" /////////////////////////////////////////////////////////////////////////////// typedef SparseMatrix SparseMatrixFloat; #endif // SPARSEMATRIXFLOAT_H april-ann-0.3.1/packages/basics/matrix/c_src/utilMatrixChar.cc000066400000000000000000000054501234204160600242640ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "utilMatrixChar.h" #include "binarizer.h" #include "clamp.h" #include "matrixFloat.h" #include "buffered_gzfile.h" #include "buffered_file.h" #include "ignore_result.h" #include #include void writeMatrixCharToFile(MatrixChar *mat, const char *filename) { if (GZFileWrapper::isGZ(filename)) { BufferedGZFile f(filename, "w"); writeMatrixToStream(mat, f, CharAsciiSizer(), CharBinarySizer(), CharAsciiCoder(), CharBinaryCoder(), true); } else { BufferedFile f(filename, "w"); writeMatrixToStream(mat, f, CharAsciiSizer(), CharBinarySizer(), CharAsciiCoder(), CharBinaryCoder(), true); } } char *writeMatrixCharToString(MatrixChar *mat, int &len) { WriteBufferWrapper wrapper; len = writeMatrixToStream(mat, wrapper, CharAsciiSizer(), CharBinarySizer(), CharAsciiCoder(), CharBinaryCoder(), true); return wrapper.getBufferProperty(); } void writeMatrixCharToLuaString(MatrixChar *mat, lua_State *L, bool is_ascii) { WriteLuaBufferWrapper wrapper(L); IGNORE_RESULT(writeMatrixToStream(mat, wrapper, CharAsciiSizer(), CharBinarySizer(), CharAsciiCoder(), CharBinaryCoder(), is_ascii)); wrapper.finish(); } MatrixChar *readMatrixCharFromFile(const char *filename) { if (GZFileWrapper::isGZ(filename)) { BufferedGZFile f(filename, "r"); return readMatrixFromStream(f, CharAsciiExtractor(), CharBinaryExtractor()); } else { BufferedFile f(filename, "r"); return readMatrixFromStream(f, CharAsciiExtractor(), CharBinaryExtractor()); } } MatrixChar *readMatrixCharFromString(constString &cs) { return readMatrixFromStream(cs, CharAsciiExtractor(), CharBinaryExtractor()); } april-ann-0.3.1/packages/basics/matrix/c_src/utilMatrixChar.h000066400000000000000000000067211234204160600241300ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef UTILMATRIXCHAR_H #define UTILMATRIXCHAR_H #include "constString.h" #include "matrixChar.h" #include "utilMatrixIO.h" #include "utilMatrixFloat.h" /// A functor which reads from a constString (in ascii format) and extracts a /// Char struct CharAsciiExtractor { // returns true if success, false otherwise bool operator()(constString &line, char &destination) { if (!line.extract_char(&destination)) return false; return true; } }; /// A functor which reads from a constString (in binary format) and extracts a /// Char struct CharBinaryExtractor { // returns true if success, false otherwise bool operator()(constString &line, char &destination) { UNUSED_VARIABLE(line); UNUSED_VARIABLE(destination); ERROR_EXIT(128, "Char type has not binary option\n"); return false; } }; /// A functor which receives a MatrixChar and computes the number of bytes /// needed to store it using ascii format struct CharAsciiSizer { // returns the number of bytes needed for all matrix data (plus spaces) int operator()(const Matrix *mat) { return mat->size()*2; } }; /// A functor which receives a MatrixChar and computes the number of bytes /// needed to store it using binary format struct CharBinarySizer { // returns the number of bytes needed for all matrix data (plus spaces) int operator()(const Matrix *mat) { UNUSED_VARIABLE(mat); ERROR_EXIT(128, "Char type has not binary option\n"); return 0; } }; /// A functor which receives a Char and a STREAM and stores the complex /// number in the given stream (in ascii format) template struct CharAsciiCoder { // puts to the stream the given value void operator()(const char &value, StreamType &stream) { stream.printf("%c", value); } }; /// A functor which receives a Char and a STREAM and stores the complex /// number in the given stream (in binary format) template struct CharBinaryCoder { // puts to the stream the given value void operator()(const char &value, StreamType &stream) { UNUSED_VARIABLE(value); UNUSED_VARIABLE(stream); ERROR_EXIT(128, "Char type has not binary option\n"); } }; // Auxiliary functions to read and write from strings and files. They // instantiate the templates (readMatrixFromStream, writeMatrixToStream) using // the correct functors. void writeMatrixCharToFile(MatrixChar *mat, const char *filename); char *writeMatrixCharToString(MatrixChar *mat, int &len); void writeMatrixCharToLuaString(MatrixChar *mat, lua_State *L, bool is_ascii); MatrixChar *readMatrixCharFromFile(const char *filename); MatrixChar *readMatrixCharFromString(constString &cs); #endif // UTILMATRIXCHAR_H april-ann-0.3.1/packages/basics/matrix/c_src/utilMatrixComplexF.cc000066400000000000000000000135611234204160600251260ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "utilMatrixComplexF.h" #include "binarizer.h" #include "clamp.h" #include "matrixFloat.h" #include "buffered_gzfile.h" #include "buffered_file.h" #include "ignore_result.h" #include #include void writeMatrixComplexFToFile(MatrixComplexF *mat, const char *filename, bool is_ascii) { if (GZFileWrapper::isGZ(filename)) { BufferedGZFile f(filename, "w"); writeMatrixToStream(mat, f, ComplexFAsciiSizer(), ComplexFBinarySizer(), ComplexFAsciiCoder(), ComplexFBinaryCoder(), is_ascii); } else { BufferedFile f(filename, "w"); writeMatrixToStream(mat, f, ComplexFAsciiSizer(), ComplexFBinarySizer(), ComplexFAsciiCoder(), ComplexFBinaryCoder(), is_ascii); } } char *writeMatrixComplexFToString(MatrixComplexF *mat, bool is_ascii, int &len) { WriteBufferWrapper wrapper; len = writeMatrixToStream(mat, wrapper, ComplexFAsciiSizer(), ComplexFBinarySizer(), ComplexFAsciiCoder(), ComplexFBinaryCoder(), is_ascii); return wrapper.getBufferProperty(); } void writeMatrixComplexFToLuaString(MatrixComplexF *mat, lua_State *L, bool is_ascii) { WriteLuaBufferWrapper wrapper(L); IGNORE_RESULT(writeMatrixToStream(mat, wrapper, ComplexFAsciiSizer(), ComplexFBinarySizer(), ComplexFAsciiCoder(), ComplexFBinaryCoder(), is_ascii)); wrapper.finish(); } MatrixComplexF *readMatrixComplexFFromFile(const char *filename) { if (GZFileWrapper::isGZ(filename)) { BufferedGZFile f(filename, "r"); return readMatrixFromStream(f, ComplexFAsciiExtractor(), ComplexFBinaryExtractor()); } else { BufferedFile f(filename, "r"); return readMatrixFromStream(f, ComplexFAsciiExtractor(), ComplexFBinaryExtractor()); } } MatrixComplexF *readMatrixComplexFFromString(constString &cs) { return readMatrixFromStream(cs, ComplexFAsciiExtractor(), ComplexFBinaryExtractor()); } MatrixFloat *convertFromMatrixComplexFToMatrixFloat(MatrixComplexF *mat) { MatrixFloat *new_mat; int N = mat->getNumDim(); int *dims = new int[N+1]; if (mat->getMajorOrder() == CblasRowMajor) { // the real and imaginary part are the last dimension (they are stored // together in row major) for (int i=0; igetDimPtr()[i]; dims[N] = 2; } else { // the real and imaginary part are the first dimension (they are stored // together in col major) dims[0] = 2; for (int i=0; igetDimPtr()[i]; } FloatGPUMirroredMemoryBlock *new_mat_memory; new_mat_memory = mat->getRawDataAccess()->reinterpretAs(); new_mat=new MatrixFloat(N+1, dims, mat->getMajorOrder(), new_mat_memory); #ifdef USE_CUDA new_mat->setUseCuda(mat->getCudaFlag()); #endif delete[] dims; return new_mat; } void applyConjugateInPlace(MatrixComplexF *mat) { for (MatrixComplexF::iterator it(mat->begin()); it != mat->end(); ++it) { it->conj(); } } MatrixFloat *realPartFromMatrixComplexFToMatrixFloat(MatrixComplexF *mat) { MatrixFloat *new_mat = new MatrixFloat(mat->getNumDim(), mat->getDimPtr(), mat->getMajorOrder()); #ifdef USE_CUDA new_mat->setUseCuda(mat->getCudaFlag()); #endif MatrixComplexF::const_iterator orig_it(mat->begin()); MatrixFloat::iterator dest_it(new_mat->begin()); while(orig_it != mat->end()) { *dest_it = orig_it->real(); ++orig_it; ++dest_it; } return new_mat; } MatrixFloat *imgPartFromMatrixComplexFToMatrixFloat(MatrixComplexF *mat) { MatrixFloat *new_mat = new MatrixFloat(mat->getNumDim(), mat->getDimPtr(), mat->getMajorOrder()); #ifdef USE_CUDA new_mat->setUseCuda(mat->getCudaFlag()); #endif MatrixComplexF::const_iterator orig_it(mat->begin()); MatrixFloat::iterator dest_it(new_mat->begin()); while(orig_it != mat->end()) { *dest_it = orig_it->img(); ++orig_it; ++dest_it; } return new_mat; } MatrixFloat *absFromMatrixComplexFToMatrixFloat(MatrixComplexF *mat) { MatrixFloat *new_mat = new MatrixFloat(mat->getNumDim(), mat->getDimPtr(), mat->getMajorOrder()); #ifdef USE_CUDA new_mat->setUseCuda(mat->getCudaFlag()); #endif MatrixComplexF::const_iterator orig_it(mat->begin()); MatrixFloat::iterator dest_it(new_mat->begin()); while(orig_it != mat->end()) { *dest_it = orig_it->abs(); ++orig_it; ++dest_it; } return new_mat; } MatrixFloat *angleFromMatrixComplexFToMatrixFloat(MatrixComplexF *mat) { MatrixFloat *new_mat = new MatrixFloat(mat->getNumDim(), mat->getDimPtr(), mat->getMajorOrder()); #ifdef USE_CUDA new_mat->setUseCuda(mat->getCudaFlag()); #endif MatrixComplexF::const_iterator orig_it(mat->begin()); MatrixFloat::iterator dest_it(new_mat->begin()); while(orig_it != mat->end()) { *dest_it = orig_it->angle(); ++orig_it; ++dest_it; } return new_mat; } april-ann-0.3.1/packages/basics/matrix/c_src/utilMatrixComplexF.h000066400000000000000000000103741234204160600247670ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef UTILMATRIXCOMPLEXF_H #define UTILMATRIXCOMPLEXF_H #include "constString.h" #include "matrixComplexF.h" #include "utilMatrixIO.h" #include "utilMatrixFloat.h" /// A functor which reads from a constString (in ascii format) and extracts a /// ComplexF struct ComplexFAsciiExtractor { // returns true if success, false otherwise bool operator()(constString &line, ComplexF &destination) { if (!line.extract_float(&destination.real())) return false; if (!line.extract_float(&destination.img())) return false; char ch; if (!line.extract_char(&ch)) return false; if (ch != 'i') return false; return true; } }; /// A functor which reads from a constString (in binary format) and extracts a /// ComplexF struct ComplexFBinaryExtractor { // returns true if success, false otherwise bool operator()(constString &line, ComplexF &destination) { if (!line.extract_float_binary(&destination.real())) return false; if (!line.extract_float_binary(&destination.img())) return false; return true; } }; /// A functor which receives a MatrixComplexF and computes the number of bytes /// needed to store it using ascii format struct ComplexFAsciiSizer { // returns the number of bytes needed for all matrix data (plus spaces) int operator()(const Matrix *mat) { return mat->size()*26; // 12*2+2 } }; /// A functor which receives a MatrixComplexF and computes the number of bytes /// needed to store it using binary format struct ComplexFBinarySizer { // returns the number of bytes needed for all matrix data (plus spaces) int operator()(const Matrix *mat) { return binarizer::buffer_size_32(mat->size()<<1); // mat->size() * 2 } }; /// A functor which receives a ComplexF and a STREAM and stores the complex /// number in the given stream (in ascii format) template struct ComplexFAsciiCoder { // puts to the stream the given value void operator()(const ComplexF &value, StreamType &stream) { stream.printf("%.5g%+.5gi", value.real(), value.img()); } }; /// A functor which receives a ComplexF and a STREAM and stores the complex /// number in the given stream (in binary format) template struct ComplexFBinaryCoder { // puts to the stream the given value void operator()(const ComplexF &value, StreamType &stream) { char b[10]; binarizer::code_float(value.real(), b); binarizer::code_float(value.img(), b+5); stream.write(b, sizeof(char)*10); } }; // Auxiliary functions to read and write from strings and files. They // instantiate the templates (readMatrixFromStream, writeMatrixToStream) using // the correct functors. void writeMatrixComplexFToFile(MatrixComplexF *mat, const char *filename, bool is_ascii); char *writeMatrixComplexFToString(MatrixComplexF *mat, bool is_ascii, int &len); void writeMatrixComplexFToLuaString(MatrixComplexF *mat, lua_State *L, bool is_ascii); MatrixComplexF *readMatrixComplexFFromFile(const char *filename); MatrixComplexF *readMatrixComplexFFromString(constString &cs); MatrixFloat *convertFromMatrixComplexFToMatrixFloat(MatrixComplexF *mat); void applyConjugateInPlace(MatrixComplexF *mat); MatrixFloat *realPartFromMatrixComplexFToMatrixFloat(MatrixComplexF *mat); MatrixFloat *imgPartFromMatrixComplexFToMatrixFloat(MatrixComplexF *mat); MatrixFloat *absFromMatrixComplexFToMatrixFloat(MatrixComplexF *mat); MatrixFloat *angleFromMatrixComplexFToMatrixFloat(MatrixComplexF *mat); #endif // UTILMATRIXCOMPLEXF_H april-ann-0.3.1/packages/basics/matrix/c_src/utilMatrixDouble.cc000066400000000000000000000070741234204160600246250ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "utilMatrixDouble.h" #include "binarizer.h" #include "clamp.h" #include "matrixFloat.h" #include "buffered_gzfile.h" #include "buffered_file.h" #include "ignore_result.h" #include #include void writeMatrixDoubleToFile(MatrixDouble *mat, const char *filename, bool is_ascii) { if (GZFileWrapper::isGZ(filename)) { BufferedGZFile f(filename, "w"); writeMatrixToStream(mat, f, DoubleAsciiSizer(), DoubleBinarySizer(), DoubleAsciiCoder(), DoubleBinaryCoder(), is_ascii); } else { BufferedFile f(filename, "w"); writeMatrixToStream(mat, f, DoubleAsciiSizer(), DoubleBinarySizer(), DoubleAsciiCoder(), DoubleBinaryCoder(), is_ascii); } } char *writeMatrixDoubleToString(MatrixDouble *mat, bool is_ascii, int &len) { WriteBufferWrapper wrapper; len = writeMatrixToStream(mat, wrapper, DoubleAsciiSizer(), DoubleBinarySizer(), DoubleAsciiCoder(), DoubleBinaryCoder(), is_ascii); return wrapper.getBufferProperty(); } void writeMatrixDoubleToLuaString(MatrixDouble *mat, lua_State *L, bool is_ascii) { WriteLuaBufferWrapper wrapper(L); IGNORE_RESULT(writeMatrixToStream(mat, wrapper, DoubleAsciiSizer(), DoubleBinarySizer(), DoubleAsciiCoder(), DoubleBinaryCoder(), is_ascii)); wrapper.finish(); } MatrixDouble *readMatrixDoubleFromFile(const char *filename) { if (GZFileWrapper::isGZ(filename)) { BufferedGZFile f(filename, "r"); return readMatrixFromStream(f, DoubleAsciiExtractor(), DoubleBinaryExtractor()); } else { BufferedFile f(filename, "r"); return readMatrixFromStream(f, DoubleAsciiExtractor(), DoubleBinaryExtractor()); } } MatrixDouble *readMatrixDoubleFromString(constString &cs) { return readMatrixFromStream(cs, DoubleAsciiExtractor(), DoubleBinaryExtractor()); } MatrixFloat *convertFromMatrixDoubleToMatrixFloat(MatrixDouble *mat, bool col_major) { MatrixFloat *new_mat=new MatrixFloat(mat->getNumDim(), mat->getDimPtr(), (col_major)?CblasColMajor:CblasRowMajor); #ifdef USE_CUDA new_mat->setUseCuda(mat->getCudaFlag()); #endif MatrixDouble::const_iterator orig_it(mat->begin()); MatrixFloat::iterator dest_it(new_mat->begin()); while(orig_it != mat->end()) { if (fabs(*orig_it) >= 16777216.0) ERROR_PRINT("The integer part can't be represented " "using float precision\n"); *dest_it = static_cast(*orig_it); ++orig_it; ++dest_it; } return new_mat; } april-ann-0.3.1/packages/basics/matrix/c_src/utilMatrixDouble.h000066400000000000000000000070361234204160600244650ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef UTILMATRIXDOUBLE_H #define UTILMATRIXDOUBLE_H #include "constString.h" #include "matrixDouble.h" #include "utilMatrixIO.h" #include "utilMatrixFloat.h" /// A functor which reads from a constString (in ascii format) and extracts a /// Double struct DoubleAsciiExtractor { // returns true if success, false otherwise bool operator()(constString &line, double &destination) { if (!line.extract_double(&destination)) return false; return true; } }; /// A functor which reads from a constString (in binary format) and extracts a /// Double struct DoubleBinaryExtractor { // returns true if success, false otherwise bool operator()(constString &line, double &destination) { if (!line.extract_double_binary(&destination)) return false; return true; } }; /// A functor which receives a MatrixDouble and computes the number of bytes /// needed to store it using ascii format struct DoubleAsciiSizer { // returns the number of bytes needed for all matrix data (plus spaces) int operator()(const Matrix *mat) { return mat->size()*12; } }; /// A functor which receives a MatrixDouble and computes the number of bytes /// needed to store it using binary format struct DoubleBinarySizer { // returns the number of bytes needed for all matrix data (plus spaces) int operator()(const Matrix *mat) { return binarizer::buffer_size_64(mat->size()); } }; /// A functor which receives a Double and a STREAM and stores the complex /// number in the given stream (in ascii format) template struct DoubleAsciiCoder { // puts to the stream the given value void operator()(const double &value, StreamType &stream) { stream.printf("%.5g", value); } }; /// A functor which receives a Double and a STREAM and stores the complex /// number in the given stream (in binary format) template struct DoubleBinaryCoder { // puts to the stream the given value void operator()(const double &value, StreamType &stream) { char b[10]; binarizer::code_double(value, b); stream.write(b, sizeof(char)*10); } }; // Auxiliary functions to read and write from strings and files. They // instantiate the templates (readMatrixFromStream, writeMatrixToStream) using // the correct functors. void writeMatrixDoubleToFile(MatrixDouble *mat, const char *filename, bool is_ascii); char *writeMatrixDoubleToString(MatrixDouble *mat, bool is_ascii, int &len); void writeMatrixDoubleToLuaString(MatrixDouble *mat, lua_State *L, bool is_ascii); MatrixDouble *readMatrixDoubleFromFile(const char *filename); MatrixDouble *readMatrixDoubleFromString(constString &cs); MatrixFloat *convertFromMatrixDoubleToMatrixFloat(MatrixDouble *mat, bool col_major); #endif // UTILMATRIXDOUBLE_H april-ann-0.3.1/packages/basics/matrix/c_src/utilMatrixFloat.cc000066400000000000000000000277051234204160600244630ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco Zamora-Martinez * Copyright 2012, Salvador España-Boquera * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "utilMatrixFloat.h" #include "binarizer.h" #include "buffered_gzfile.h" #include "buffered_file.h" #include "clamp.h" #include "ignore_result.h" #include #include using april_utils::clamp; inline int hexdigit(char c) { if ('0'<=c && c<='9') return c-'0'; if ('A'<=c && c<='F') return c-'A'+10; else return c-'a'+10; } MatrixFloat* readMatrixFloatHEX(int width, int height, constString cs) { float normaliza = 1.0/255; int dims[2]; // dims[0] is height, dims[1] is width dims[1] = width; dims[0] = height; MatrixFloat *mat = new MatrixFloat(2,dims); MatrixFloat::iterator it(mat->begin()); int size2 = 2*width*height; for (int i=0; i> 3)) return 0; mat = new MatrixFloat(2,dims); MatrixFloat::iterator it(mat->begin()); const char *b = cs; int k=0; int vector_pos = 0; for (int row=0; row> (7-vector_offset)) & 0x01); *it = clamp(CTENEGRO + (CTEBLANCO-CTENEGRO)*brillo,CTEBLANCO,CTENEGRO); if (vector_offset == 7) { if (col+1 != dims[0]) vector_pos = vector_pos + 1; } vector_offset = (vector_offset + 1) % 8; } vector_pos = vector_pos + 1; } } else if (formato == "P5") { // PGM BINARY if (!linea.extract_int(&maxval)) return 0; float normaliza = 1.0/maxval; if (cs.len() < npixels) return 0; if (forcecolor) { // We make the 3 values to be equal mat = new MatrixFloat(3,dims); MatrixFloat::iterator it(mat->begin()); const char *b = cs; for (unsigned int i=0;ibegin()); const char *b = cs; for (unsigned int i=0;ibegin()); const char *b = cs; // gray = .3 * red + .59 * green + .11 * blue normaliza *= 0.01; for (unsigned int i=0;ibegin()); const char *b = cs; // This loop does not work because in both cases we have 3-tuples // with values of the same pixel npixels *= 3; for (unsigned int i=0;igetNumDim() < 2) || (mat->getNumDim() > 3)) { *buffer = 0; return 0; } int i,ancho,alto,prof,sizedata,sizeheader = 100; ancho = mat->getDimSize(1); alto = mat->getDimSize(0); prof = (mat->getNumDim() == 3) ? mat->getDimSize(2) : 1; if (prof != 1 && prof != 3) { *buffer = 0; return 0; } sizedata = ancho*alto*prof; char *r,*b; r = b = new char[sizedata+sizeheader]; r += sprintf(r,"%s\n%d %d\n255\n", ((prof == 1) ? "P5" : "P6"),ancho,alto); float f; MatrixFloat::const_iterator it(mat->begin()); for (i=0;igetNumDim() != 2) { *buffer = 0; return 0; } int i,ancho,alto,sizedata,sizedata2; ancho = mat->getDimSize(1); alto = mat->getDimSize(0); sizedata = ancho*alto; sizedata2 = 2*ancho*alto; char *r,*b; r = b = new char[sizedata2+1]; float f; MatrixFloat::const_iterator it(mat->begin()); for (i=0;i(), FloatBinaryCoder(), is_ascii); } else { BufferedFile f(filename, "w"); writeMatrixToStream(mat, f, FloatAsciiSizer(), FloatBinarySizer(), FloatAsciiCoder(), FloatBinaryCoder(), is_ascii); } } char *writeMatrixFloatToString(MatrixFloat *mat, bool is_ascii, int &len) { WriteBufferWrapper wrapper; len = writeMatrixToStream(mat, wrapper, FloatAsciiSizer(), FloatBinarySizer(), FloatAsciiCoder(), FloatBinaryCoder(), is_ascii); return wrapper.getBufferProperty(); } void writeMatrixFloatToLuaString(MatrixFloat *mat, lua_State *L, bool is_ascii) { WriteLuaBufferWrapper wrapper(L); IGNORE_RESULT(writeMatrixToStream(mat, wrapper, FloatAsciiSizer(), FloatBinarySizer(), FloatAsciiCoder(), FloatBinaryCoder(), is_ascii)); wrapper.finish(); } MatrixFloat *readMatrixFloatFromFile(const char *filename, const char *order) { if (GZFileWrapper::isGZ(filename)) { BufferedGZFile f(filename, "r"); return readMatrixFromStream(f, FloatAsciiExtractor(), FloatBinaryExtractor(), order); } else { BufferedFile f(filename, "r"); return readMatrixFromStream(f, FloatAsciiExtractor(), FloatBinaryExtractor(), order); } } MatrixFloat *readMatrixFloatFromString(constString &cs) { return readMatrixFromStream(cs, FloatAsciiExtractor(), FloatBinaryExtractor()); } ////////////////////////////////////////////////////////////////////////////// void writeMatrixFloatToTabFile(MatrixFloat *mat, const char *filename) { if (GZFileWrapper::isGZ(filename)) { BufferedGZFile f(filename, "w"); writeMatrixToTabStream(mat, f, FloatAsciiSizer(), FloatAsciiCoder()); } else { BufferedFile f(filename, "w"); writeMatrixToTabStream(mat, f, FloatAsciiSizer(), FloatAsciiCoder()); } } MatrixFloat *readMatrixFloatFromTabFile(const char *filename, const char *order) { if (GZFileWrapper::isGZ(filename)) { int ncols=0, nrows=0; do { BufferedGZFile f(filename, "r"); FloatAsciiExtractor extractor; constString line(""); float value; while (f.good()) { line = f.extract_u_line(); if (line.len() > 0) { if (ncols == 0) while(extractor(line,value)) ++ncols; ++nrows; } } } while(false); if (nrows <= 0 || ncols <= 0) ERROR_EXIT(256, "Found 0 rows or 0 cols\n"); BufferedGZFile f(filename, "r"); return readMatrixFromTabStream(nrows, ncols, f, FloatAsciiExtractor(), order); } else { int ncols=0, nrows=0; do { BufferedFile f(filename, "r"); FloatAsciiExtractor extractor; constString line(""); float value; while (f.good()) { line = f.extract_u_line(); if (line.len() > 0) { if (ncols == 0) while(extractor(line,value)) ++ncols; ++nrows; } } } while(false); if (nrows <= 0 || ncols <= 0) ERROR_EXIT(256, "Found 0 rows or 0 cols\n"); BufferedFile f(filename, "r"); return readMatrixFromTabStream(nrows, ncols, f, FloatAsciiExtractor(), order); } return 0; } void writeMatrixFloatToTabGZStream(MatrixFloat *mat, BufferedGZFile *stream) { writeMatrixToTabStream(mat, *stream, FloatAsciiSizer(), FloatAsciiCoder()); } void writeMatrixFloatToTabStream(MatrixFloat *mat, FILE *f) { FileWrapper file_wrapper(f); BufferedFile stream(file_wrapper); writeMatrixToTabStream(mat, stream, FloatAsciiSizer(), FloatAsciiCoder()); } //////////////////////////////////////////////////////////////////////////// char *writeSparseMatrixFloatToString(SparseMatrixFloat *mat, bool is_ascii, int &len) { WriteBufferWrapper wrapper; len = writeSparseMatrixToStream(mat, wrapper, SparseFloatAsciiSizer(), SparseFloatBinarySizer(), FloatAsciiCoder(), FloatBinaryCoder(), is_ascii); return wrapper.getBufferProperty(); } void writeSparseMatrixFloatToLuaString(SparseMatrixFloat *mat, lua_State *L, bool is_ascii) { WriteLuaBufferWrapper wrapper(L); IGNORE_RESULT(writeSparseMatrixToStream(mat, wrapper, SparseFloatAsciiSizer(), SparseFloatBinarySizer(), FloatAsciiCoder(), FloatBinaryCoder(), is_ascii)); wrapper.finish(); } SparseMatrixFloat *readSparseMatrixFloatFromString(constString &cs) { return readSparseMatrixFromStream(cs, FloatAsciiExtractor(), FloatBinaryExtractor()); } april-ann-0.3.1/packages/basics/matrix/c_src/utilMatrixFloat.h000066400000000000000000000100731234204160600243130ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef UTILMATRIXFLOAT_H #define UTILMATRIXFLOAT_H #include "buffered_gzfile.h" #include "constString.h" #include "matrixFloat.h" #include "sparse_matrixFloat.h" #include "utilMatrixIO.h" struct FloatAsciiExtractor { // returns true if success, false otherwise bool operator()(constString &line, float &destination) { if (!line.extract_float(&destination)) return false; return true; } }; struct FloatBinaryExtractor { // returns true if success, false otherwise bool operator()(constString &line, float &destination) { if (!line.extract_float_binary(&destination)) return false; return true; } }; struct FloatAsciiSizer { // returns the number of bytes needed for all matrix data (plus spaces) int operator()(const Matrix *mat) { return mat->size()*12; } }; struct FloatBinarySizer { // returns the number of bytes needed for all matrix data (plus spaces) int operator()(const Matrix *mat) { return binarizer::buffer_size_32(mat->size()); } }; struct SparseFloatAsciiSizer { // returns the number of bytes needed for all matrix data (plus spaces) int operator()(const SparseMatrix *mat) { return mat->nonZeroSize()*12; } }; struct SparseFloatBinarySizer { // returns the number of bytes needed for all matrix data (plus spaces) int operator()(const SparseMatrix *mat) { return binarizer::buffer_size_32(mat->nonZeroSize()); } }; template struct FloatAsciiCoder { // puts to the stream the given value void operator()(const float &value, StreamType &stream) { stream.printf("%.5g", value); } }; template struct FloatBinaryCoder { // puts to the stream the given value void operator()(const float &value, StreamType &stream) { char b[5]; binarizer::code_float(value, b); stream.printf("%c%c%c%c%c", b[0],b[1],b[2],b[3],b[4]); } }; MatrixFloat* readMatrixFloatHEX(int width, int height, constString cs); const float CTENEGRO = 1.0f; const float CTEBLANCO = 0.0f; MatrixFloat* readMatrixFloatPNM(constString cs, bool forcecolor=false, bool forcegray=false); int saveMatrixFloatPNM(MatrixFloat *mat, char **buffer); int saveMatrixFloatHEX(MatrixFloat *mat, char **buffer, int *width, int *height); void writeMatrixFloatToFile(MatrixFloat *mat, const char *filename, bool is_ascii); char *writeMatrixFloatToString(MatrixFloat *mat, bool is_ascii, int &len); void writeMatrixFloatToLuaString(MatrixFloat *mat, lua_State *L, bool is_ascii); MatrixFloat *readMatrixFloatFromFile(const char *filename, const char *order); MatrixFloat *readMatrixFloatFromString(constString &cs); void writeMatrixFloatToTabFile(MatrixFloat *mat, const char *filename); MatrixFloat *readMatrixFloatFromTabFile(const char *filename, const char *order = "row_major"); void writeMatrixFloatToTabGZStream(MatrixFloat *mat, BufferedGZFile *stream); void writeMatrixFloatToTabStream(MatrixFloat *mat, FILE *f); // SPARSE MATRIX FLOAT char *writeSparseMatrixFloatToString(SparseMatrixFloat *mat, bool is_ascii, int &len); void writeSparseMatrixFloatToLuaString(SparseMatrixFloat *mat, lua_State *L, bool is_ascii); SparseMatrixFloat *readSparseMatrixFloatFromString(constString &cs); #endif // UTILMATRIXFLOAT_H april-ann-0.3.1/packages/basics/matrix/c_src/utilMatrixIO.h000066400000000000000000000527231234204160600235650ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco Zamora-Martinez * Copyright 2012, Salvador España-Boquera * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef UTILMATRIXIO_H #define UTILMATRIXIO_H #include "constString.h" #include "binarizer.h" #include "error_print.h" #include "matrix.h" extern "C" { #include "lauxlib.h" #include "lualib.h" #include "lua.h" } #include #include #include class WriteBufferWrapper { char *buffer; char *pos; public: WriteBufferWrapper() : buffer(0) { } ~WriteBufferWrapper() { delete[] buffer; } void printf(const char *format, ...) { va_list args; va_start(args, format); pos += vsprintf(pos, format, args); va_end(args); } void write(const char *ptr, size_t len) { memcpy(pos, ptr, len); pos += len; } void setExpectedSize(int sz) { buffer = new char[sz]; pos = buffer; } int getTotalBytes() const { return pos - buffer; } char *getBufferProperty() { char *aux = buffer; buffer = 0; return aux; } bool good() const { return buffer != 0; } }; class WriteLuaBufferWrapper { lua_State *L; luaL_Buffer lua_buffer; char *buffer_ptr; int total_bytes; public: WriteLuaBufferWrapper(lua_State *L) : L(L), buffer_ptr(0), total_bytes(0) { luaL_buffinit(L, &lua_buffer); } ~WriteLuaBufferWrapper() { } void printf(const char *format, ...) { april_assert(buffer_ptr != 0); va_list args; va_start(args, format); int len = vsprintf(buffer_ptr, format, args); if (len < 0) ERROR_EXIT(256, "Problem creating auxiliary buffer\n"); va_end(args); total_bytes += len; buffer_ptr += len; } void write(const char *ptr, size_t len) { memcpy(buffer_ptr, ptr, len); total_bytes += len; buffer_ptr += len; } void setExpectedSize(int sz) { buffer_ptr = luaL_prepbuffsize(&lua_buffer, sz); if (buffer_ptr == 0) ERROR_EXIT(256, "Impossible to get the buffer\n"); } int getTotalBytes() const { return total_bytes; } void finish() { luaL_addsize(&lua_buffer, total_bytes); luaL_pushresult(&lua_buffer); } bool good() const { return buffer_ptr!=0; } }; /*** The ASCII or BINARY extractor are like this functor struct: struct DummyAsciiExtractor { // returns true if success, false otherwise bool operator()(constString &line, MatrixType &destination) { READ FROM LINE OR RETURN FALSE; WRITE AT DESTINATION OR RETURN FALSE; RETURN TRUE; } }; struct DummyBinaryExtractor { // returns true if success, false otherwise bool operator()(constString &line, MatrixType &destination) { READ FROM LINE OR RETURN FALSE; WRITE AT DESTINATION OR RETURN FALSE; RETURN TRUE; } }; ****************************************************************/ template Matrix* readMatrixFromStream(StreamType &stream, AsciiExtractFunctor ascii_extractor, BinaryExtractorFunctor bin_extractor, const char *given_order=0) { if (!stream.good()) { ERROR_PRINT("The stream is not prepared, it is empty, or EOF\n"); return 0; } constString line,format,order,token; // First we read the matrix dimensions line = stream.extract_u_line(); if (!line) { ERROR_PRINT("empty file!!!\n"); return 0; } static const int maxdim=100; int dims[maxdim]; int n=0, pos_comodin=-1; while (n *mat = 0; // Now we read the type of the format line = stream.extract_u_line(); format = line.extract_token(); if (!format) { ERROR_PRINT("impossible to read format token\n"); return 0; } order = line.extract_token(); if (given_order != 0) order = given_order; if (pos_comodin == -1) { // Normal version if (!order || order=="row_major") mat = new Matrix(n,dims); else if (order == "col_major") mat = new Matrix(n,dims,CblasColMajor); else { ERROR_PRINT("Impossible to determine the order\n"); return 0; } int i=0; typename Matrix::iterator data_it(mat->begin()); if (format == "ascii") { while (data_it!=mat->end() && (line=stream.extract_u_line())) while (data_it!=mat->end() && ascii_extractor(line, *data_it)) { ++data_it; } } else { // binary while (data_it!=mat->end() && (line=stream.extract_u_line())) while (data_it!=mat->end() && bin_extractor(line, *data_it)) { ++data_it; } } if (data_it!=mat->end()) { ERROR_PRINT("Impossible to fill all the matrix components\n"); delete mat; mat = 0; } } else { // version with comodin int size=0,maxsize=4096; MatrixType *data = new MatrixType[maxsize]; if (format == "ascii") { while ( (line=stream.extract_u_line()) ) while (ascii_extractor(line, data[size])) { size++; if (size == maxsize) { // resize data vector MatrixType *aux = new MatrixType[2*maxsize]; for (int a=0;a(n,dims); else if (order == "col_major") mat = new Matrix(n,dims,CblasColMajor); int i=0; for (typename Matrix::iterator it(mat->begin()); it!=mat->end(); ++it,++i) *it = data[i]; delete[] data; } return mat; } /*** Functor examples struct DummyAsciiSizer { // returns the number of bytes needed for all matrix data (plus spaces) int operator()(const Matrix *mat) { RETURN 12 * mat->size(); } }; struct DummyBinarySizer { // returns the number of bytes needed for all matrix data (plus spaces) int operator()(const Matrix *mat) { RETURN binarizer::buffer_size_32(mat->size()); } }; template struct DummyAsciiCoder { // puts to the stream the given value void operator()(const MatrixType &value, StreamType &stream) { stream.printf("%.5g", value); } }; template struct DummyBinaryCoder { // puts to the stream the given value void operator()(const MatrixType &value, StreamType &stream) { char b[5]; binarizer::code_BLAH(value, b); stream.printf("%s", b); } }; ****************************************************************/ // Returns the number of chars written (there is a '\0' that is not counted) template int writeMatrixToStream(Matrix *mat, StreamType &stream, AsciiSizeFunctor ascii_sizer, BinarySizeFunctor bin_sizer, AsciiCodeFunctor ascii_coder, BinaryCodeFunctor bin_coder, bool is_ascii) { int sizedata,sizeheader; sizeheader = mat->getNumDim()*10+10+10; // FIXME: To put adequate values // sizedata contains the memory used by MatrixType in ascii including spaces, // new lines, etc... if (is_ascii) sizedata = ascii_sizer(mat); else sizedata = bin_sizer(mat); stream.setExpectedSize(sizedata+sizeheader+1); if (!stream.good()) { ERROR_EXIT(256, "The stream is not prepared, it is empty, or EOF\n"); } for (int i=0;igetNumDim()-1;i++) stream.printf("%d ",mat->getDimSize(i)); stream.printf("%d\n",mat->getDimSize(mat->getNumDim()-1)); if (is_ascii) { const int columns = 9; stream.printf("ascii"); if (mat->getMajorOrder() == CblasColMajor) stream.printf(" col_major"); else stream.printf(" row_major"); stream.printf("\n"); int i=0; for(typename Matrix::const_iterator it(mat->begin()); it!=mat->end();++it,++i) { ascii_coder(*it, stream); stream.printf("%c", ((((i+1) % columns) == 0) ? '\n' : ' ')); } if ((i % columns) != 0) { stream.printf("\n"); } } else { // binary const int columns = 16; stream.printf("binary"); if (mat->getMajorOrder() == CblasColMajor) stream.printf(" col_major"); else stream.printf(" row_major"); stream.printf("\n"); // We substract 1 so the final '\0' is not considered int i=0; for(typename Matrix::const_iterator it(mat->begin()); it!=mat->end(); ++it,++i) { bin_coder(*it, stream); /* char b[5]; binarizer::code_float(*it, b); fprintf(f, "%c%c%c%c%c", b[0], b[1], b[2], b[3], b[4]); */ if ((i+1) % columns == 0) stream.printf("\n"); } if ((i % columns) != 0) stream.printf("\n"); } return stream.getTotalBytes(); } /*** The ASCII extractor are like this functor struct: struct DummyAsciiExtractor { // returns true if success, false otherwise bool operator()(constString &line, MatrixType &destination) { READ FROM LINE OR RETURN FALSE; WRITE AT DESTINATION OR RETURN FALSE; RETURN TRUE; } }; ****************************************************************/ template Matrix* readMatrixFromTabStream(const int rows, const int cols, StreamType &stream, AsciiExtractFunctor ascii_extractor, const char *given_order) { if (!stream.good()) { ERROR_PRINT("The stream is not prepared, it is empty, or EOF\n"); return 0; } constString line,order(given_order),token; int dims[2] = { rows, cols }; Matrix *mat = 0; if (order=="row_major") mat = new Matrix(2,dims); else if (order == "col_major") mat = new Matrix(2,dims,CblasColMajor); else { ERROR_PRINT("Impossible to determine the order\n"); return 0; } int i=0; typename Matrix::iterator data_it(mat->begin()); while (data_it!=mat->end() && (line=stream.extract_u_line())) { int num_cols_size_count = 0; while (data_it!=mat->end() && ascii_extractor(line, *data_it)) { ++data_it; ++num_cols_size_count; } if (num_cols_size_count != cols) ERROR_EXIT3(128, "Incorrect number of elements at line %d, " "expected %d, found %d\n", i, cols, num_cols_size_count); ++i; } if (data_it!=mat->end()) { ERROR_PRINT("Impossible to fill all the matrix components\n"); delete mat; mat = 0; } return mat; } /*** Functor examples struct DummyAsciiSizer { // returns the number of bytes needed for all matrix data (plus spaces) int operator()(const Matrix *mat) { RETURN 12 * mat->size(); } }; template struct DummyAsciiCoder { // puts to the stream the given value void operator()(const MatrixType &value, StreamType &stream) { stream.printf("%.5g", value); } }; ****************************************************************/ // Returns the number of chars written (there is a '\0' that is not counted) template int writeMatrixToTabStream(Matrix *mat, StreamType &stream, AsciiSizeFunctor ascii_sizer, AsciiCodeFunctor ascii_coder) { if (mat->getNumDim() != 2) ERROR_EXIT(128, "Needs a matrix with 2 dimensions"); int sizedata; sizedata = ascii_sizer(mat); stream.setExpectedSize(sizedata+1); if (!stream.good()) { ERROR_EXIT(256, "The stream is not prepared, it is empty, or EOF\n"); } const int columns = mat->getDimSize(1); int i=0; for(typename Matrix::const_iterator it(mat->begin()); it!=mat->end();++it,++i) { ascii_coder(*it, stream); stream.printf("%c", ((((i+1) % columns) == 0) ? '\n' : ' ')); } if ((i % columns) != 0) { stream.printf("\n"); } return stream.getTotalBytes(); } ///////////////////////////////////////////////////////////////////////////// // SPARSE template SparseMatrix* readSparseMatrixFromStream(StreamType &stream, AsciiExtractFunctor ascii_extractor, BinaryExtractorFunctor bin_extractor) { if (!stream.good()) { ERROR_PRINT("The stream is not prepared, it is empty, or EOF\n"); return 0; } constString line,format,sparse,token; // First we read the matrix dimensions line = stream.extract_u_line(); if (!line) { ERROR_PRINT("empty file!!!\n"); return 0; } int dims[2], n=0, NZ; for (int i=0; i<2; ++i, ++n) { if (!line.extract_int(&dims[i])) { ERROR_PRINT1("incorrect dimension %d type, expected a integer\n", n); return 0; } n++; } if (!line.extract_int(&NZ)) { ERROR_PRINT("impossible to read the number of non-zero elements\n"); return 0; } SparseMatrix *mat = 0; // Now we read the type of the format line = stream.extract_u_line(); format = line.extract_token(); if (!format) { ERROR_PRINT("impossible to read format token\n"); return 0; } sparse = line.extract_token(); GPUMirroredMemoryBlock *values = new GPUMirroredMemoryBlock(NZ); Int32GPUMirroredMemoryBlock *indices = new Int32GPUMirroredMemoryBlock(NZ); Int32GPUMirroredMemoryBlock *first_index = 0; if (!sparse || sparse=="csr") { first_index = new Int32GPUMirroredMemoryBlock(dims[0]+1); } else if (sparse=="csc") { first_index = new Int32GPUMirroredMemoryBlock(dims[1]+1); } else { ERROR_PRINT("Impossible to determine the sparse format\n"); return 0; } float *values_ptr = values->getPPALForWrite(); int32_t *indices_ptr = indices->getPPALForWrite(); int32_t *first_index_ptr = first_index->getPPALForWrite(); if (format == "ascii") { int i=0; while(i(first_index->getSize())) { if (! (line=stream.extract_u_line()) ) ERROR_EXIT(128, "Incorrect sparse matrix format\n"); while(i(first_index->getSize()) && line.extract_int(&first_index_ptr[i])) { ++i; } } } else { // binary int i=0; while(i(first_index->getSize())) { if (! (line=stream.extract_u_line()) ) ERROR_EXIT(128, "Incorrect sparse matrix format\n"); while(i(first_index->getSize()) && line.extract_int32_binary(&first_index_ptr[i])) { ++i; } } } if (sparse=="csr") { mat = new SparseMatrix(dims[0],dims[1], values,indices,first_index, CSR_FORMAT); } else { // This was checked before: else if (sparse=="csc") { mat = new SparseMatrix(dims[0],dims[1], values,indices,first_index, CSC_FORMAT); } return mat; } /*** Functor examples struct DummyAsciiSizer { // returns the number of bytes needed for all matrix data (plus spaces) int operator()(const Matrix *mat) { RETURN 12 * mat->size(); } }; struct DummyBinarySizer { // returns the number of bytes needed for all matrix data (plus spaces) int operator()(const Matrix *mat) { RETURN binarizer::buffer_size_32(mat->size()); } }; template struct DummyAsciiCoder { // puts to the stream the given value void operator()(const MatrixType &value, StreamType &stream) { stream.printf("%.5g", value); } }; template struct DummyBinaryCoder { // puts to the stream the given value void operator()(const MatrixType &value, StreamType &stream) { char b[5]; binarizer::code_BLAH(value, b); stream.printf("%s", b); } }; ****************************************************************/ // Returns the number of chars written (there is a '\0' that is not counted) template int writeSparseMatrixToStream(SparseMatrix *mat, StreamType &stream, AsciiSizeFunctor ascii_sizer, BinarySizeFunctor bin_sizer, AsciiCodeFunctor ascii_coder, BinaryCodeFunctor bin_coder, bool is_ascii) { int sizedata,sizeheader; sizeheader = (mat->getNumDim()+1)*10+10+10; // FIXME: To put adequate values // sizedata contains the memory used by MatrixType in ascii including spaces, // new lines, etc... if (is_ascii) sizedata = ascii_sizer(mat) + mat->nonZeroSize()*12 + mat->getDenseCoordinateSize()*12 + 3; else sizedata = bin_sizer(mat) + binarizer::buffer_size_32(mat->nonZeroSize()) + binarizer::buffer_size_32(mat->getDenseCoordinateSize()) + 3; stream.setExpectedSize(sizedata+sizeheader+1); if (!stream.good()) { ERROR_EXIT(256, "The stream is not prepared, it is empty, or EOF\n"); } stream.printf("%d ",mat->getDimSize(0)); stream.printf("%d ",mat->getDimSize(1)); stream.printf("%d\n",mat->nonZeroSize()); const float *values_ptr = mat->getRawValuesAccess()->getPPALForRead(); const int32_t *indices_ptr = mat->getRawIndicesAccess()->getPPALForRead(); const int32_t *first_index_ptr = mat->getRawFirstIndexAccess()->getPPALForRead(); if (is_ascii) { const int columns = 9; stream.printf("ascii"); if (mat->getSparseFormat() == CSR_FORMAT) stream.printf(" csr"); else stream.printf(" csc"); stream.printf("\n"); int i; for (i=0; inonZeroSize(); ++i) { ascii_coder(values_ptr[i], stream); stream.printf("%c", ((((i+1) % columns) == 0) ? '\n' : ' ')); } if ((i % columns) != 0) { stream.printf("\n"); } for (i=0; inonZeroSize(); ++i) { stream.printf("%d", indices_ptr[i]); stream.printf("%c", ((((i+1) % columns) == 0) ? '\n' : ' ')); } if ((i % columns) != 0) { stream.printf("\n"); } for (i=0; i<=mat->getDenseCoordinateSize(); ++i) { stream.printf("%d", first_index_ptr[i]); stream.printf("%c", ((((i+1) % columns) == 0) ? '\n' : ' ')); } if ((i % columns) != 0) { stream.printf("\n"); } } else { // binary const int columns = 16; stream.printf("binary"); if (mat->getSparseFormat() == CSR_FORMAT) stream.printf(" csr"); else stream.printf(" csc"); stream.printf("\n"); int i=0; char b[5]; for (i=0; inonZeroSize(); ++i) { bin_coder(values_ptr[i], stream); if ((i+1) % columns == 0) stream.printf("\n"); } if ((i % columns) != 0) stream.printf("\n"); for (i=0; inonZeroSize(); ++i) { binarizer::code_int32(indices_ptr[i], b); stream.printf("%c%c%c%c%c", b[0],b[1],b[2],b[3],b[4]); if ((i+1) % columns == 0) stream.printf("\n"); } if ((i % columns) != 0) stream.printf("\n"); for (i=0; i<=mat->getDenseCoordinateSize(); ++i) { binarizer::code_int32(first_index_ptr[i], b); stream.printf("%c%c%c%c%c", b[0],b[1],b[2],b[3],b[4]); if ((i+1) % columns == 0) stream.printf("\n"); } if ((i % columns) != 0) stream.printf("\n"); } return stream.getTotalBytes(); } #endif // UTILMATRIXIO_H april-ann-0.3.1/packages/basics/matrix/c_src/utilMatrixInt32.cc000066400000000000000000000070661234204160600243130ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "utilMatrixInt32.h" #include "binarizer.h" #include "clamp.h" #include "matrixFloat.h" #include "buffered_gzfile.h" #include "buffered_file.h" #include "ignore_result.h" #include #include #include void writeMatrixInt32ToFile(MatrixInt32 *mat, const char *filename, bool is_ascii) { if (GZFileWrapper::isGZ(filename)) { BufferedGZFile f(filename, "w"); writeMatrixToStream(mat, f, Int32AsciiSizer(), Int32BinarySizer(), Int32AsciiCoder(), Int32BinaryCoder(), is_ascii); } else { BufferedFile f(filename, "w"); writeMatrixToStream(mat, f, Int32AsciiSizer(), Int32BinarySizer(), Int32AsciiCoder(), Int32BinaryCoder(), is_ascii); } } char *writeMatrixInt32ToString(MatrixInt32 *mat, bool is_ascii, int &len) { WriteBufferWrapper wrapper; len = writeMatrixToStream(mat, wrapper, Int32AsciiSizer(), Int32BinarySizer(), Int32AsciiCoder(), Int32BinaryCoder(), is_ascii); return wrapper.getBufferProperty(); } void writeMatrixInt32ToLuaString(MatrixInt32 *mat, lua_State *L, bool is_ascii) { WriteLuaBufferWrapper wrapper(L); IGNORE_RESULT(writeMatrixToStream(mat, wrapper, Int32AsciiSizer(), Int32BinarySizer(), Int32AsciiCoder(), Int32BinaryCoder(), is_ascii)); wrapper.finish(); } MatrixInt32 *readMatrixInt32FromFile(const char *filename) { if (GZFileWrapper::isGZ(filename)) { BufferedGZFile f(filename, "r"); return readMatrixFromStream(f, Int32AsciiExtractor(), Int32BinaryExtractor()); } else { BufferedFile f(filename, "r"); return readMatrixFromStream(f, Int32AsciiExtractor(), Int32BinaryExtractor()); } } MatrixInt32 *readMatrixInt32FromString(constString &cs) { return readMatrixFromStream(cs, Int32AsciiExtractor(), Int32BinaryExtractor()); } MatrixFloat *convertFromMatrixInt32ToMatrixFloat(MatrixInt32 *mat, bool col_major) { MatrixFloat *new_mat=new MatrixFloat(mat->getNumDim(), mat->getDimPtr(), (col_major)?CblasColMajor:CblasRowMajor); #ifdef USE_CUDA new_mat->setUseCuda(mat->getCudaFlag()); #endif MatrixInt32::const_iterator orig_it(mat->begin()); MatrixFloat::iterator dest_it(new_mat->begin()); while(orig_it != mat->end()) { if (abs(*orig_it) >= 16777216) ERROR_PRINT("The integer part can't be represented " "using float precision\n"); *dest_it = static_cast(*orig_it); ++orig_it; ++dest_it; } return new_mat; } april-ann-0.3.1/packages/basics/matrix/c_src/utilMatrixInt32.h000066400000000000000000000070231234204160600241460ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef UTILMATRIXINT32_H #define UTILMATRIXINT32_H #include "constString.h" #include "matrixInt32.h" #include "utilMatrixIO.h" #include "utilMatrixFloat.h" /// A functor which reads from a constString (in ascii format) and extracts a /// Int32 struct Int32AsciiExtractor { // returns true if success, false otherwise bool operator()(constString &line, int32_t &destination) { if (!line.extract_int(&destination)) return false; return true; } }; /// A functor which reads from a constString (in binary format) and extracts a /// Int32 struct Int32BinaryExtractor { // returns true if success, false otherwise bool operator()(constString &line, int32_t &destination) { if (!line.extract_int32_binary(&destination)) return false; return true; } }; /// A functor which receives a MatrixInt32 and computes the number of bytes /// needed to store it using ascii format struct Int32AsciiSizer { // returns the number of bytes needed for all matrix data (plus spaces) int operator()(const Matrix *mat) { return mat->size()*12; } }; /// A functor which receives a MatrixInt32 and computes the number of bytes /// needed to store it using binary format struct Int32BinarySizer { // returns the number of bytes needed for all matrix data (plus spaces) int operator()(const Matrix *mat) { return binarizer::buffer_size_32(mat->size()); } }; /// A functor which receives a Int32 and a STREAM and stores the complex /// number in the given stream (in ascii format) template struct Int32AsciiCoder { // puts to the stream the given value void operator()(const int32_t &value, StreamType &stream) { stream.printf("%d", value); } }; /// A functor which receives a Int32 and a STREAM and stores the complex /// number in the given stream (in binary format) template struct Int32BinaryCoder { // puts to the stream the given value void operator()(const int32_t &value, StreamType &stream) { char b[5]; binarizer::code_int32(value, b); stream.printf("%c%c%c%c%c", b[0],b[1],b[2],b[3],b[4]); } }; // Auxiliary functions to read and write from strings and files. They // instantiate the templates (readMatrixFromStream, writeMatrixToStream) using // the correct functors. void writeMatrixInt32ToFile(MatrixInt32 *mat, const char *filename, bool is_ascii); char *writeMatrixInt32ToString(MatrixInt32 *mat, bool is_ascii, int &len); void writeMatrixInt32ToLuaString(MatrixInt32 *mat, lua_State *L, bool is_ascii); MatrixInt32 *readMatrixInt32FromFile(const char *filename); MatrixInt32 *readMatrixInt32FromString(constString &cs); MatrixFloat *convertFromMatrixInt32ToMatrixFloat(MatrixInt32 *mat, bool col_major); #endif // UTILMATRIXINT32_H april-ann-0.3.1/packages/basics/matrix/doc/000077500000000000000000000000001234204160600204655ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/matrix/doc/matrix_user.dox000066400000000000000000000043161234204160600235470ustar00rootroot00000000000000/** \page matrix Matrix Muchos algoritmos que requieren trabajar con conjuntos de datos requieren muestras con el mismo número de elementos. Así, parece muy natural utilizar una matriz donde cada fila es una muestra. El número de filas coincide con el número de muestras a presentar al algoritmo. El número de columnas correspondería con el tamaño de cada patrón. april permite definir matrices de varias maneras utilizando la clase matrix, la forma más sencilla es mediante matrix.fromString, por ejemplo: \verbatim xor_in = matrix.fromString[[ # podemos añadir lineas de comentarios cuando queramos # basta con situar un '#' al principio de la linea # la primera linea contiene el numero de componentes en cada dimension 4 2 # el numero de dimensiones se obtiene implicitamente # la siguiente linea contiene el tipo de representacion, ascii o binary ascii # luego vienen los valores propiamente dichos separados por espacio, # tabulador, enter, coma, punto y coma 0 0 0 1 1 0 1 1 ]] xor_out = matrix.fromString"4 1\nascii\n0 1 1 0" -- o incluso asi \endverbatim De manera que están definidas las siguientes funciones para cargar y salvar matrices: \verbatim function matrix.loadfile(filename) local f = io.open(filename,"r") local b = f:read("*a") f:close() return matrix.fromString(b) end \endverbatim \verbatim function matrix.savefile(matrix,filename,format) local f = io.open(filename,"w") f:write(matrix:toString(format)) f:close() end \endverbatim Podemos consultar las dimensiones de una matrix utilizando el método dim que devuelve una tabla con el tamaño de cada dimensión de la manera siguiente: \verbatim print("La matriz xor_in tiene dimensiones {".. table.concat(m_in:dim(),",").."}") --> La matriz xor_in tiene dimensiones {4,2} \endverbatim \verbatim m1 = matrix(2,3) --> matrix de 2x3 m2 = matrix(2,2,{1,2,3,4}) --> el último argumento puede ser --> una tabla con los valores m3 = matrix(unpack(m1:dim())) --> matriz del mismo tamaño que m1 m3:fill(2) --> rellenar la matriz con un valor m4 = matrix(3) m4:set{1,2,3} --> dar valores a una matriz ya creada \endverbatim */ april-ann-0.3.1/packages/basics/matrix/lua_src/000077500000000000000000000000001234204160600213505ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/matrix/lua_src/generic_call.lua000066400000000000000000000021221234204160600244570ustar00rootroot00000000000000-- GENERIC __CALL METAMETHOD matrix.__make_generic_call__ = function() return function(self,...) local arg = table.pack(...) local dims = self:dim() local pos,size = {},{} for i=1,#arg do local t = arg[i] local tt = luatype(t) local a,b if tt == "table" then a,b = table.unpack(t) april_assert(tonumber(a) and tonumber(b), "The table for component %d must contain two numbers",i) elseif tt == "string" then a = t:match("^(%d+)%:.*$") or 1 b = t:match("^.*%:(%d+)$") or dims[i] elseif tt == "number" then a = t b = a else error("The argument %d is not a table neither a string" % {i}) end a,b = tonumber(a),tonumber(b) april_assert(1 <= a and a <= dims[i], "Range %d out of bounds for dim %d", a, i) april_assert(1 <= b and b <= dims[i], "Range %d out of bounds for dim %d", b, i) table.insert(pos, a) table.insert(size, b - a + 1) end for i=#arg+1,#dims do table.insert(pos, 1) table.insert(size, dims[i]) end return self:slice(pos,size) end end april-ann-0.3.1/packages/basics/matrix/lua_src/generic_join.lua000066400000000000000000000022721234204160600245110ustar00rootroot00000000000000-- GENERIC JOIN FUNCTION matrix.__make_generic_join__ = function(constructor) return function(dim, ...) local arg = table.pack(...) local size = arg[1]:dim() -- ERROR CHECK assert(dim >= 1 and dim <= #size, "Incorrect given dimension number, or incorrect first matrix size") size[dim] = 0 for i=1,#arg do local m = arg[i] local d = m:dim() assert(#d == #size, "All the matrices must have the same number of dimensions") size[dim] = size[dim] + d[dim] for j=1,dim-1 do assert(size[j] == d[j], "Incorrect dimension size") end for j=dim+1,#size do assert(size[j] == d[j], "Incorrect dimension size") end end -- JOIN local outm if arg[1].get_major_order and arg[1]:get_major_order() == "col_major" then outm = constructor.col_major(table.unpack(size)) else outm = constructor(table.unpack(size)) end local first = matrix(#size):ones():toTable() for i=1,#arg do local m = arg[i] local d = m:dim() size[dim] = d[dim] local outm_slice = outm:slice(first, size) outm_slice:copy(m) first[dim] = first[dim] + size[dim] end return outm end end april-ann-0.3.1/packages/basics/matrix/lua_src/generic_print.lua000066400000000000000000000023271234204160600247070ustar00rootroot00000000000000-- GENERIC PRINT FUNCTION matrix.__make_generic_print__ = function(name,getter) assert(name and getter) return function(self) local dims = self:dim() local major = (self.get_major_order and self:get_major_order()) or "row_major" local coords = {} local out = {} local row = {} local so_large = false for i=1,#dims do coords[i]=1 if dims[i] > 20 then so_large = true end end if not so_large then for i=1,self:size() do if #dims > 2 and coords[#dims] == 1 and coords[#dims-1] == 1 then table.insert(out, string.format("\n# pos [%s]", table.concat(coords, ","))) end table.insert(row, getter(self:get(table.unpack(coords)))) local j=#dims+1 repeat j=j-1 coords[j] = coords[j] + 1 if coords[j] > dims[j] then coords[j] = 1 end until j==1 or coords[j] ~= 1 if coords[#coords] == 1 then table.insert(out, table.concat(row, " ")) row={} end end else table.insert(out, "Large matrix, not printed to display") end table.insert(out, string.format("# %s of size [%s] in %s [%s]", name, table.concat(dims, ","), major, self:get_reference_string())) return table.concat(out, "\n") end end april-ann-0.3.1/packages/basics/matrix/lua_src/matrix.lua000066400000000000000000001033531234204160600233640ustar00rootroot00000000000000-- OVERWRITTING TOSTRING FUNCTION class_extension(matrix, "to_lua_string", function(self, format) return string.format("matrix.fromString[[%s]]", self:toString(format or "binary")) end) -- ADDING PSEUDO-INVERSE METHOD class_extension(matrix, "pinv", function(self) local u,s,vt = self:svd() for aux,i in s:iterate() do u:select(2,i):scal(((math.abs(aux)>1e-07) and 1/aux) or 0.0) end return matrix.as(self): gemm{ A = vt, B = u, trans_A = true, trans_B = true, alpha = 1.0, beta = 0.0, } end) -- the constructor matrix.row_major = function(...) return matrix(...) end matrix.meta_instance.__call = matrix.__make_generic_call__() matrix.meta_instance.__tostring = matrix.__make_generic_print__("Matrix", function(value) return string.format("% -11.6g", value) end) matrix.join = matrix.__make_generic_join__(matrix) matrix.meta_instance.__eq = function(op1, op2) if type(op1) == "number" or type(op2) == "number" then return false end return op1:equals(op2) end matrix.meta_instance.__add = function(op1, op2) if not isa(op1,matrix) then op1,op2=op2,op1 end if type(op2) == "number" then return op1:clone():scalar_add(op2) else return op1:add(op2) end end matrix.meta_instance.__sub = function(op1, op2) if isa(op1,matrix) and isa(op2,matrix) then return op1:sub(op2) elseif isa(op1,matrix) then return op1:clone():scalar_add(-op2) elseif isa(op2,matrix) then return op2:clone():scal(-1):scalar_add(op1) end end matrix.meta_instance.__mul = function(op1, op2) if isa(op1,matrix.sparse) or isa(op2,matrix.sparse) then if isa(op2,matrix.sparse) then local op1,op2 = op2:transpose(),op1:transpose() local res = matrix[op2:get_major_order()](op1:dim(1),op2:dim(2)) res:sparse_mm{ alpha=1.0, beta=0.0, A=op1, B=op2 } return res:transpose() else end else if not isa(op1,matrix) then op1,op2=op2,op1 end if type(op2) == "number" then return op1:clone():scal(op2) else return op1:mul(op2) end end end matrix.meta_instance.__pow = function(op1, op2) local new_mat = op1:clone() return new_mat:pow(op2) end matrix.meta_instance.__div = function(op1, op2) if type(op2) == "number" then local new_mat = op1:clone() return new_mat:scal(1/op2) elseif type(op1) == "number" then local new_mat = op2:clone() return new_mat:div(op1) else assert(isa(op1,matrix) and isa(op2,matrix), "Expected a matrix and a number or two matrices") local new_mat1 = op1:clone() local new_mat2 = op2:clone():div(1) return new_mat1:axpy(1.0, new_mat2) end end matrix.meta_instance.__unm = function(op) local new_mat = op:clone() return new_mat:scal(-1) end -- IMAGE function matrix.loadImage(filename,format) fprintf(io.stderr, "WARNING: matrix.loadImage is deprecated\n") local f -- si la imagen esta en formato netpbm no hace falta convert: if string.match(filename,".*%.p[gnp]m$") then f = io.open(filename,"r") else local dest_format = "pnm" if format == "gray" then dest_format = "pgm" end f = io.popen(string.format("convert %s %s:-",filename,dest_format)) end if not f then error(string.format("Error loading image %s'", filename)) end local b = f:read("*a") f:close() return matrix.fromPNM(b,format) end function matrix.saveImage(matrix,filename) local f = io.open(filename,"w") or error("Unable to open " .. filename) f:write(matrix:toPNM()) f:close() end function matrix.loadfile() error("Deprecated, use fromFilename method") end function matrix.savefile() error("Deprecated, use toFilename method") end -- RAW (ASCII) -- TODO: MEter esta funcion como parametro format de matrix:toString function matrix.saveRAW(matrix,filename) local f = io.open(filename,"w") or error("Unable to open " .. filename) local t = matrix:toTable() for i=1,table.getn(t) do f:write(t[i] .. "\n") end f:close() end ----------------------------------------------------------------------------- ----------------------------------------------------------------------------- ----------------------------------------------------------------------------- function matrix.dict.wrap_matrices(m) local tt = type(m) if tt == "table" then m = matrix.dict(m) elseif tt == "matrix" then m = matrix.dict():insert("1",m) end assert(isa(m, matrix.dict), "Needs a matrix.dict, a matrix, or a table") return m end function matrix.dict.meta_instance.__index:to_lua_string(format) local str_tbl = { "matrix.dict{\n" } for name,w in pairs(self) do table.insert(str_tbl, string.format("[%q] = %s,\n", name, w:to_lua_string(format))) end table.insert(str_tbl, "}") return table.concat(str_tbl, " ") end function matrix.dict.meta_instance:__call(key) return self:find(key) end function matrix.dict.meta_instance:__newindex(key,value) return self:insert(key, value) end function matrix.dict.meta_instance:__pairs() return self:iterate() end ----------------------------------------------------------------------------- ----------------------------------------------------------------------------- ----------------------------------------------------------------------------- util.vector_uint.meta_instance.__tostring = function(self) local out = {} local sz = self:size() local NCOLS = 9 for i=1,sz do if i%NCOLS == 0 then table.insert(out, "\n") end table.insert(out, string.format("%8d ",self:get(i))) end table.insert(out, string.format("\n# vector_uint of size %d", self:size())) return table.concat(out, "") end util.vector_float.meta_instance.__tostring = function(self) local out = {} local sz = self:size() local NCOLS = 9 for i=1,sz do if i%NCOLS == 0 then table.insert(out, "\n") end table.insert(out, string.format("% -13.8g ",self:get(i))) end table.insert(out, string.format("\n# vector_float of size %d", self:size())) return table.concat(out, " ") end --------------------------- -- BINDING DOCUMENTATION -- --------------------------- april_set_doc("matrix", { class = "class", summary = "Multidimensional matrix objects", description ={ "This class represent multidimensional matrices.", "They are used for build datasets and train machine", "learning models.", "Mathematical operations are allowed (*, -, +).", "Specific BLAS methods are binding to Lua to ensure", "efficiency." }, }) april_set_doc("matrix.__call", { class = "method", summary = "Constructor", description ={ "Constructor of a multidimensional matrix.", "The data is stored at row_major order", }, params = { "First dimension size", "Second dimension size", "...", "ith dimension size", "...", "nth dimension size", { "A table with values [optional]. The values must be", "in row major order", }, }, outputs = { "A matrix instantiated object" }, }) april_set_doc("matrix.col_major", { class = "function", summary = "constructor", description ={ "Constructor of a multidimensional matrix.", "The data is stored at col_major order, but from", "outside is viewed as row_major (for compatibility", "purposes).", }, params = { "First dimension size", "Second dimension size", "...", "ith dimension size", "...", "nth dimension size", { "A table with values [optional]. The values must be", "in row major order", } }, outputs = { "A matrix instantiated object" }, }) april_set_doc("matrix.fromFilename", { class = "function", summary = "constructor", description ={ "Loads a matrix from a filename.", }, params = { "A filename path.", { "A string with 'row_major', 'col_major' or 'no_order'", "[optional]. It modifies the order specified by content", "in the file. By default is nil, so the result", "matrix will has the order specified by the file.", }, }, outputs = { "A matrix instantiated object" }, }) april_set_doc("matrix.fromTabFilename", { class = "function", summary = "constructor", description ={ "Loads a matrix from a filename tabuled by lines and spaces.", }, params = { "A filename path.", { "A string with 'row_major', 'col_major' or 'no_order'", "[optional]. It modifies the order specified by content", "in the file. By default is nil, so the result", "matrix will has the order specified by the file.", }, }, outputs = { "A matrix instantiated object" }, }) april_set_doc("matrix.fromMMap", { class = "function", summary = "constructor", description ={ "Loads a matrix from a mmaped filename.", }, params = { "A filename path.", { "A boolean indicating if writing is allowed [optional].", "By default it is true", }, { "A boolean indicating if memory map is shared [optional].", "By default it is true", }, }, outputs = { "A matrix instantiated object" }, }) april_set_doc("matrix.toFilename", { class = "method", summary = "It allows to store a matrix in a file.", description ={ "It allows to store a matrix in a file.", "It uses the format expected by fromFilename function.", }, params = { "A filename path.", { "An string with the format: ascii or binary [optional].", "By default is ascii." }, }, }) april_set_doc("matrix.toTabFilename", { class = "method", summary = "It allows to store a matrix in a file tabuled by lines and spaces.", description ={ "It allows to store a matrix in a file tabuled by lines and spaces.", "It uses the format expected by fromTabFilename function.", }, params = { "A filename path.", }, }) april_set_doc("matrix.toMMap", { class = "method", summary = "It allows to store a matrix in a mmapped file.", description ={ "It allows to store a matrix in a mmapped file.", "It uses the format expected by fromMMap function.", }, params = { "A filename path.", }, }) april_set_doc("matrix.loadImage", { class = "function", summary = "constructor", description ={ "Loads a matrix from a image filename.", }, params = { "A filename path.", }, outputs = { "A matrix instantiated object" }, }) april_set_doc("matrix.saveImage", { class = "function", summary = "It allows to store a matrix in a image file.", description ={ "It allows to store a matrix in a file.", }, params = { "A matrix object.", "A filename path.", }, }) april_set_doc("matrix.fromString", { class = "function", summary = "constructor", description ={ "Loads a matrix from a Lua string.", }, params = { "A Lua string.", }, outputs = { "A matrix instantiated object" }, }) april_set_doc("matrix.toString", { class = "method", summary = "It returns a Lua string which stores the matrix.", description ={ "It returns a Lua string which stores the matrix.", "It uses the format expected by fromString function.", }, outputs = { "A Lua string" }, }) april_set_doc("matrix.to_lua_string", { class = "method", summary = "It returns a Lua chunk string which is loadable.", params = { "The format [optional]. By default is binary." }, outputs = { "A Lua string" }, }) april_set_doc("matrix.fromPNM", { class = "function", summary = "constructor", description ={ "Loads a matrix from a PNM image stored at a Lua string.", }, params = { "A Lua string.", }, outputs = { "A matrix instantiated object" }, }) april_set_doc("matrix.toPNM", { class = "method", summary = "It stores the matrix as a PNM image Lua string.", description ={ "It stores the matrix as a PNM image Lua string.", }, outputs = { "A Lua string" }, }) april_set_doc("matrix.copy_from_table", { class = "method", summary = "Copies the table values to the matrix.", params = { "A lua table with data numbers in row_major order", }, }) april_set_doc("matrix.get", { class = "method", summary = "Returns the value stored at a given position.", params = { "First dimension position", "Second dimension position", "...", "ith dimension position", "...", "nth dimension position", }, outputs = { "A number", }, }) april_set_doc("matrix.sum", { class="method", summary="Computes the sum of all the elements.", outputs={"A number"}, }) april_set_doc("matrix.sum", { class="method", summary="Computes the sum of all the elements over the given dimension.", params={ "A number, the dimension", "A matrix where to store the result [optional]", }, outputs={"A matrix with the result"}, }) april_set_doc("matrix.set", { class = "method", summary = "Sets the value of a given position.", params = { "First dimension position", "Second dimension position", "...", "ith dimension position", "...", "nth dimension position", "A number with the value to be set", }, outputs = { "The caller matrix" }, }) april_set_doc("matrix.raw_get", { class = "method", summary = "Returns the value stored at a given RAW position.", params = { "RAW position", }, outputs = { "A number", }, }) april_set_doc("matrix.raw_set", { class = "method", summary = "Sets the value of a given RAW position.", params = { "RAW position", }, outputs = { "The caller matrix" }, }) april_set_doc("matrix.offset", { class = "method", summary = "Returns the RAW offset position of matrix data.", outputs = { "A number with the RAW offset position", }, }) april_set_doc("matrix.fill", { class = "method", summary = "Sets all values to a given number.", description = { "Sets all values to a given number.", "This method modifies the object IN-PLACE.", }, params = { "A number", }, outputs = { "The caller object (itself)", }, }) april_set_doc("matrix.set_use_cuda", { class = "method", summary = "Indicates if use or not CUDA for math operations.", params = { "A boolean", }, outputs = { "The caller object (itself)", }, }) april_set_doc("matrix.get_major_order", { class = "method", summary = "Returns the major order of internal data.", outputs = { "A string with the major order", }, }) april_set_doc("matrix.dim", { class = "method", summary = "Returns a table with the size of each dimension.", outputs = { "A table", }, }) april_set_doc("matrix.dim", { class = "method", summary = "Returns the size of a given dimension number.", params = { "A number indicating the dimension, between 1 and num_dims", }, outputs = { "A number", }, }) april_set_doc("matrix.stride", { class = "method", summary = "Returns a table with the stride size of each dimension.", outputs = { "A table", }, }) april_set_doc("matrix.stride", { class = "method", summary = "Returns the stride size of a given dimension number.", params = { "A number indicating the dimension, between 1 and num_dims", }, outputs = { "A number", }, }) april_set_doc("matrix.slice", { class = "method", summary = "Returns a sub-matrix that is a slice of caller matrix.", description = { "Returns a sub-matrix that is a slice of caller matrix.", "This method returns a sub-matrix which references the", "parent matrix (not copy the data). Optionally it is possible", "to do a deep copy (clone) of the data.", }, params = { "A table with the first position of the sub-matrix", "A table with the sizes of each dimension for the sub-matrix", { "A boolean indicating if do or not a clone [optional]. By", "default it is set to false", }, }, outputs = { "A matrix object (sub-matrix)", }, }) april_set_doc("matrix.rewrap", { class = "method", summary = "Reinterprets the data as with other dimensions.", description = { "Returns a matrix which references to the caller, but", "reinterpreting the internal data with the given array of", "dimension sizes.", "The caller matrix must be a contiguous chunk of data.", }, params = { { "A table with the size of each dimension.", "The number of dimensions could be different of ", "caller matrix.", }, }, outputs = { "A matrix object (referencing the caller matrix)", }, }) april_set_doc("matrix.select", { class = "method", summary = "Returns an slice result of select given dimension at given index.", description = { "Returns an slice result of select given dimension at given index.", "The matrix has one less dimension because the selected dimension", "is removed.", }, params = { { "A number with the selected dimension" }, { "A number with the selected index" }, }, outputs = { "A matrix object (referencing the caller matrix)", }, }) april_set_doc("matrix.join", { class = "method", summary = "Produce a matrix which is the join of a given set of matrices.", description = { "Joins a given set of matrices, given the dimension where they differ.", "Be careful, this method duplicates the memory needed, because all the", "matrices will be copied to the destination.", }, params = { { "A number with the dimension where matrices differ." }, { "The 1st matrix" }, { "The 2nd matrix" }, { "..." }, { "The Nth matrix" }, }, outputs = { "A new matrix object", }, }) april_set_doc("matrix.clone", { class = "method", summary = "Returns a deep copy (clone) of the caller matrix.", description = { "Returns a deep copy (clone) of the caller matrix.", "It has the possibility of indicate the major order,", "and the data will be reordered if necessary.", }, params = { { "A string: col_major or row_major [optional]. By", "default it is the same major order as the caller matrix" }, }, outputs = { "A matrix object (cloned)", }, }) april_set_doc("matrix.transpose", { class = "method", summary = "Returns transposition of the caller matrix.", description = { "Returns transposition of the caller matrix.", "The returned matrix is a reference to the original.", }, outputs = { "A matrix object (transposed)", }, }) april_set_doc("matrix.adjust_range", { class = "method", summary = "Modifies the matrix values IN-PLACE to be at given range", params = { "The min value of the range", "The max value of the range" }, outputs = { "The caller matrix object (itself)", }, }) april_set_doc("matrix.diag", { class = "method", summary = "Sets diagonal positions to a given number.", description = { "Sets diagonal positions to a tiven number value.", "This method modifies the object IN-PLACE.", }, params = { "A number", }, outputs = { "The caller object (itself)", }, }) april_set_doc("matrix.toTable", { class = "method", summary = "Returns a Lua table with the data of the matrix.", description = { "Returns a Lua table with the data of the matrix.", "The table is a copy of the data in row_major order.", }, outputs = { "A Lua table", }, }) april_set_doc("matrix.min", { class = "method", summary = "Returns the minimum value contained at the matrix.", outputs = { "A number", }, }) april_set_doc("matrix.min", { class = "method", summary = "Returns a matrix with minimum values over given dimension.", params = { "A number with the dimension", "A matrix where to store the result [optional]", }, outputs = { "A matrix with the result", }, }) april_set_doc("matrix.max", { class = "method", summary = "Returns the maximum value contained at the matrix.", outputs = { "A number", }, }) april_set_doc("matrix.max", { class = "method", summary = "Returns a matrix with maximum values over given dimension.", params = { "A number with the dimension", "A matrix where to store the result [optional]", }, outputs = { "A matrix with the result", }, }) april_set_doc("matrix.clamp", { class = "method", summary = "Clamp matrix values IN-PLACE to be in the given range.", params = { "The min value of the range", "The max value of the range", }, outputs = { "The caller matrix (itself)", }, }) april_set_doc("matrix.add", { class = "method", summary = "Returns the addition of caller and other matrix.", description = { "Returns a new matrix which is addition of caller and other matrix.", "It uses BLAS operations.", }, params = { "Another matrix", }, outputs = { "A new matrix result of addition", }, }) april_set_doc("matrix.sub", { class = "method", summary = "Returns the subtraction of caller and other matrix.", description = { "Returns a new matrix which is the subtraction of caller and other matrix.", "It uses BLAS operations.", }, params = { "Another matrix", }, outputs = { "A new matrix result of subtraction", }, }) april_set_doc("matrix.mul", { class = "method", summary = "Returns the multiplication of caller and other matrix.", description = { "Returns a new matrix which is the multiplication of caller and other matrix.", "This method works with vector-vector, dot product,", "vector-matrix, and matrix-matrix multiplication, depending", "on the matrices dimensions.", "It uses BLAS operations.", }, params = { "Another matrix (2D matrix or a vector)", }, outputs = { "A new matrix result of multiplication", }, }) april_set_doc("matrix.cmul", { class = "method", summary = "Computes IN-PLACE the component-wise multiplication of caller and other matrix.", params = { "Another matrix", }, outputs = { "The caller matrix", }, }) april_set_doc("matrix.plogp", { class = "method", summary = "Component wise p*log(p) operation IN-PLACE: Y = Y*log(Y)", params = { }, outputs = { "The caller matrix, Y (itself)", }, }) april_set_doc("matrix.log", { class = "method", summary = "Component wise log operation IN-PLACE: Y = log(Y)", params = { }, outputs = { "The caller matrix, Y (itself)", }, }) april_set_doc("matrix.log1p", { class = "method", summary = "Component wise log1p operation IN-PLACE: Y = log1p(Y)", params = { }, outputs = { "The caller matrix, Y (itself)", }, }) april_set_doc("matrix.exp", { class = "method", summary = "Component wise exp operation IN-PLACE: Y = exp(Y)", params = { }, outputs = { "The caller matrix, Y (itself)", }, }) april_set_doc("matrix.tan", { class = "method", summary = "Component wise tanh operation IN-PLACE: Y = tan(Y)", params = { }, outputs = { "The caller matrix, Y (itself)", }, }) april_set_doc("matrix.tanh", { class = "method", summary = "Component wise tanh operation IN-PLACE: Y = tanh(Y)", params = { }, outputs = { "The caller matrix, Y (itself)", }, }) april_set_doc("matrix.atan", { class = "method", summary = "Component wise atanh operation IN-PLACE: Y = atan(Y)", params = { }, outputs = { "The caller matrix, Y (itself)", }, }) april_set_doc("matrix.atanh", { class = "method", summary = "Component wise atanh operation IN-PLACE: Y = atanh(Y)", params = { }, outputs = { "The caller matrix, Y (itself)", }, }) april_set_doc("matrix.sin", { class = "method", summary = "Component wise sin operation IN-PLACE: Y = sin(Y)", params = { }, outputs = { "The caller matrix, Y (itself)", }, }) april_set_doc("matrix.sinh", { class = "method", summary = "Component wise sinh operation IN-PLACE: Y = sinh(Y)", params = { }, outputs = { "The caller matrix, Y (itself)", }, }) april_set_doc("matrix.asin", { class = "method", summary = "Component wise asin operation IN-PLACE: Y = asin(Y)", params = { }, outputs = { "The caller matrix, Y (itself)", }, }) april_set_doc("matrix.asinh", { class = "method", summary = "Component wise asinh operation IN-PLACE: Y = asinh(Y)", params = { }, outputs = { "The caller matrix, Y (itself)", }, }) april_set_doc("matrix.cos", { class = "method", summary = "Component wise cos operation IN-PLACE: Y = cos(Y)", params = { }, outputs = { "The caller matrix, Y (itself)", }, }) april_set_doc("matrix.cosh", { class = "method", summary = "Component wise cosh operation IN-PLACE: Y = cosh(Y)", params = { }, outputs = { "The caller matrix, Y (itself)", }, }) april_set_doc("matrix.acos", { class = "method", summary = "Component wise acos operation IN-PLACE: Y = acos(Y)", params = { }, outputs = { "The caller matrix, Y (itself)", }, }) april_set_doc("matrix.acosh", { class = "method", summary = "Component wise acosh operation IN-PLACE: Y = acosh(Y)", params = { }, outputs = { "The caller matrix, Y (itself)", }, }) april_set_doc("matrix.abs", { class = "method", summary = "Component wise abs operation IN-PLACE: Y = abs(Y)", params = { }, outputs = { "The caller matrix, Y (itself)", }, }) april_set_doc("matrix.complement", { class = "method", summary = "Component wise complement operation IN-PLACE: Y = 1 - Y", params = { }, outputs = { "The caller matrix, Y (itself)", }, }) april_set_doc("matrix.sqrt", { class = "method", summary = "Component wise sqrt operation IN-PLACE: Y = sqrt(Y)", params = { }, outputs = { "The caller matrix, Y (itself)", }, }) april_set_doc("matrix.pow", { class = "method", summary = "Component wise pow operation IN-PLACE: Y = pow(Y,x)", params = { "A number (x)" }, outputs = { "The caller matrix, Y (itself)", }, }) april_set_doc("matrix.axpy", { class = "method", summary = "BLAS AXPY operation IN-PLACE: Y = Y + alpha * X.", params = { "Alpha constant", "Another matrix, X", }, outputs = { "The caller matrix (a vector), Y (itself)", }, }) april_set_doc("matrix.gemv", { class = "method", summary = "BLAS GEMV operation IN-PLACE: Y = beta * Y + alpha * A * X.", params = { ["alpha"] = "Alpha constant", ["beta"] = "Beta constant", ["trans_A"] = { "A boolean indicating if transpose or not matrix A.", "It is [optional], by default is false", }, ["A"] = "Another matrix, A (a 2D matrix)", ["X"] = "Another matrix, X (a vector)", }, outputs = { "The caller matrix (a vector), Y (itself)", }, }) april_set_doc("matrix.gemm", { class = "method", summary = "BLAS GEMM operation IN-PLACE: C = beta * C + alpha * A * B.", params = { ["alpha"] = "Alpha constant", ["beta"] = "Beta constant", ["trans_A"] = { "A boolean indicating if transpose or not matrix A.", "It is [optional], by default is false", }, ["trans_B"] = { "A boolean indicating if transpose or not matrix B.", "It is [optional], by default is false", }, ["A"] = "Another matrix, A (a 2D matrix)", ["B"] = "Another matrix, B (a 2D matrix)", }, outputs = { "The caller matrix, C (itself)", }, }) april_set_doc("matrix.ger", { class = "method", summary = "BLAS GER operation IN-PLACE: Z = Z + alpha * X * Y'.", params = { ["alpha"] = "Alpha constant", ["X"] = "Another matrix, X (a vector)", ["Y"] = "Another matrix, Y (a vector)", }, outputs = { "The caller matrix, Z (itself)", }, }) april_set_doc("matrix.dot", { class = "method", summary = "BLAS DOT operation IN-PLACE: v = X dot Y", params = { "Another matrix, Y (a vector)", }, outputs = { "A number with the dot product", }, }) april_set_doc("matrix.scal", { class = "method", summary = "BLAS SCAL operation IN-PLACE.", params = { "The scale factor", }, outputs = { "The caller matrix (itself)." }, }) april_set_doc("matrix.div", { class = "method", summary = "Inverse to scal operation IN-PLACE, produces A = value/A.", params = { "The div factor", }, outputs = { "The caller matrix (itself)." }, }) april_set_doc("matrix.norm2", { class = "method", summary = "BLAS NRM2 operation.", outputs = { "A number with the norm-2 of caller matrix." }, }) april_set_doc("matrix.copy", { class = "method", summary = "Copy the values from another matrix using BLAS", params = { "A source matrix" }, outputs = { "The caller matrix instance" }, }) april_set_doc("matrix.linear", { class = "method", summary = "Initializes with linear integers", params = { "First integer value [optional], by default 0", "Step value [optional], by default 1", }, outputs = { "The caller matrix instance" }, }) april_set_doc("matrix.uniform", { class = "method", summary = "Initializes with random positive integers from range [a,b]", params = { "Lower range value", "Upper range value", "A random object instance [optional]" }, outputs = { "The caller matrix instance" }, }) april_set_doc("matrix.uniformf", { class = "method", summary = "Initializes with random floats in range [a,b]", params = { "Lower range value", "Upper range value", "A random object instance [optional]" }, outputs = { "The caller matrix instance" }, }) april_set_doc("matrix.is_contiguous", { class = "method", summary = "Returns true if the matrix data is contiguous at memory", outputs = { "A boolean" }, }) april_set_doc("matrix.scalar_add", { class = "method", summary = "Adds a scalar IN-PLACE", params = { "A number" }, outputs = { "The caller matrix instance" }, }) april_set_doc("matrix.inv", { class = "method", summary = "Computes the inverse of a matrix", description = { "This method computes the inverse of matrix.", "Check that your matrix is not singular, otherwise", "the returned matrix won't be correct.", "It is adapted to work with row_major matrices, but", "internally they are transformed to col_major, so", "it is more efficient to compute the inverse over", "col_major matrices.", }, outputs = { "The matrix inverse" }, }) april_set_doc("matrix.svd", { class = "method", summary = "Computes the SVD of a matrix", description = { "This method computes the SVD of matrix.", "It is adapted to work with row_major matrices, but", "internally they are transformed to col_major, so", "it is more efficient to compute the SVD over", "col_major matrices. The computation returns three matrices", "in col_major, so A=U * S * V'.", }, outputs = { "The matrix U", "The sparse row vector S with the eigenvalues", "The matrix V', the transposed of V", }, }) april_set_doc("matrix.diagonalize", { class = "method", summary = "Converts the given uni-dimensional matrix in a bi-dimensional diagonal dense matrix", outputs = { "A matrix which is the diagonalized version of the caller matrix", }, }) april_set_doc("matrix.contiguous", { class = "method", summary = "Returns a contiguous version of the caller matrix", description = { "Returns a contiguous version of the caller matrix.", "If the matrix is contiguous, returns itself.", "Otherwise, returns a copy of the caller.", }, outputs = { "A matrix instance" }, }) april_set_doc("matrix.map", { class = "method", summary = "Maps the matrix values by a given list of matrices and a Lua map function", description = { "Maps the matrix values by a given list of matrices", "and a Lua map function.", "The Lua function will be called for every possible", "matrix position. The Lua function receives the caller matrix", "value at the given position, the value of the second matrix,", "the value of the third matrix, and so on.", "The Lua function returns NIL or ONLY one value, which will be", "assigned to the caller matrix IN-PLACE.", "All the matrices must have the same dimension sizes.", "The number of given matrices could be >= 0", }, params = { "A second matrix", "A third matrix", "...", "A Nth matrix", "A Lua function which applies the map computation.", }, outputs = { "The caller matrix" }, }) april_set_doc("matrix.lt", { class = "method", summary = "Returns a 0/1 matrix where values are less than given param. IN-PLACE operation", params = { "A matrix or a number", }, outputs = { "The caller matrix" }, }) april_set_doc("matrix.gt", { class = "method", summary = "Returns a 0/1 matrix where values are greater than given param. IN-PLACE operation", params = { "A matrix or a number", }, outputs = { "The caller matrix" }, }) ------------------------------------------------------------------------- april_set_doc("matrix.sliding_window", { class = "method", summary = "Returns a sliding window object", params = { offset = "Lua table [optional]", size = "Lua table [optional]", step = "Lua table [optional]", numSteps = "Lua table [optional]", orderStep = "Lua table [optional]", }, outputs = { "An instance of matrix.__sliding_window__" }, }) april_set_doc("matrix.__sliding_window__", { class = "class", summary = "Sliding window for matrix objects", }) april_set_doc("matrix.__sliding_window__.get_matrix", { class = "method", summary = "Returns the matrix generated by the window", params = { {"A matrix [optional], to be used instead", "of alloc a new one"} }, outputs = { "A matrix instance" }, }) april_set_doc("matrix.__sliding_window__.next", { class = "method", summary = "Moves the window to the next position", outputs = { "The caller sliding_window object" }, }) april_set_doc("matrix.__sliding_window__.is_end", { class = "method", summary = "Returns true when it finishes", outputs = { "A boolean" }, }) april_set_doc("matrix.__sliding_window__.iterate", { class = "method", summary = "Returns an iterator function: for mat in s:iterate() do ... end", outputs = { "An iterator function" }, }) april-ann-0.3.1/packages/basics/matrix/lua_src/matrixChar.lua000066400000000000000000000023141234204160600241550ustar00rootroot00000000000000-- OVERWRITTING TOSTRING FUNCTION class_extension(matrixChar, "to_lua_string", function(self) return string.format("matrixChar.fromString[[%s]]", self:toString()) end) matrixChar.meta_instance.__tostring = function(self) local dims = self:dim() local coords = {} local out = {} local row = {} local so_large = false for i=1,#dims do coords[i]=1 if coords[i] > 20 then so_large = true end end if not so_large then for i=1,self:size() do table.insert(out, string.format("[%s] = %s", table.concat(coords, ","), self:get(table.unpack(coords)))) local j=#dims+1 repeat j=j-1 coords[j] = (coords[j] % dims[j]) + 1 until j==1 or coords[j] ~= 1 end else table.insert(out, "Large matrix, not printed to display") end table.insert(out, string.format("# MatrixChar of size [%s] [%s]", table.concat(dims, ","), self:get_reference_string())) return table.concat(out, "\n") end function matrixChar.loadfile() error("Deprecated, use fromFilename method") end function matrixChar.savefile() error("Deprecated, use toFilename method") end april-ann-0.3.1/packages/basics/matrix/lua_src/matrixComplex.lua000066400000000000000000000471251234204160600247200ustar00rootroot00000000000000-- OVERWRITTING TOSTRING FUNCTION class_extension(matrixComplex, "to_lua_string", function(self,format) return string.format("matrixComplex.fromString[[%s]]", self:toString(format or "binary")) end) matrixComplex.meta_instance.__call = matrix.__make_generic_call__() matrixComplex.meta_instance.__tostring = matrix.__make_generic_print__("MatrixComplex", function(value) return string.format("%12s",tostring(value)) end) matrixComplex.join = matrix.__make_generic_join__(matrixComplex) matrixComplex.meta_instance.__eq = function(op1, op2) return op1:equals(op2) end matrixComplex.meta_instance.__add = function(op1, op2) if not isa(op1,matrixComplex) then op1,op2=op2,op1 end if type(op2) == "number" then return op1:clone():scalar_add(op2) else return op1:add(op2) end end matrixComplex.meta_instance.__sub = function(op1, op2) if not isa(op1,matrixComplex) then op1,op2=op2,op1 end return op1:sub(op2) end matrixComplex.meta_instance.__mul = function(op1, op2) if not isa(op1,matrixComplex) then op1,op2=op2,op1 end if type(op2) == "number" then return op1:clone():scal(complex(op2,0)) elseif type(op2) == "string" then return op1:clone():scal(complex(op2)) elseif isa(op2,complex) then return op1:clone():scal(op2) else return op1:mul(op2) end end matrixComplex.meta_instance.__div = function(op1, op2) assert(type(op2) == "number", "Expected a number as second argument") local new_mat = op1:clone() return new_mat:scal(1/op2) end matrixComplex.meta_instance.__unm = function(op) local new_mat = op:clone() return new_mat:scal(-1) end ----------------------------------------------------------------------------- --------------------------- -- BINDING DOCUMENTATION -- --------------------------- april_set_doc("matrixComplex", { class = "class", summary = "Multidimensional matrixComplex objects", description ={ "This class represent multidimensional matrices as matrix.", "But this is not available for build datasets and train machine", "learning models. In the last instance, you need always to", "transform this to a vanilla matrix.", "Mathematical operations are allowed (*, -, +).", "Specific BLAS methods are binding to Lua to ensure", "efficiency." }, }) april_set_doc("matrixComplex.__call", { class = "method", summary = "Constructor", description ={ "Constructor of a multidimensional matrixComplex.", "The data is stored at row_major order", }, params = { "First dimension size", "Second dimension size", "...", "ith dimension size", "...", "nth dimension size", { "A table with values [optional]. The values must be", "in row major order. A valid value is a number, which is", "taken as real part only, a complex object instance, or a", "string with the complex number.", }, }, outputs = { "A matrixComplex instantiated object" }, }) april_set_doc("matrixComplex.col_major", { class = "function", summary = "constructor", description ={ "Constructor of a multidimensional matrixComplex.", "The data is stored at col_major order, but from", "outside is viewed as row_major (for compatibility", "purposes).", }, params = { "First dimension size", "Second dimension size", "...", "ith dimension size", "...", "nth dimension size", { "A table with values [optional]. The values must be", "in row major order. A valid value is a number, which is", "taken as real part only, a complex object instance, or a", "string with the complex number.", }, }, outputs = { "A matrixComplex instantiated object" }, }) april_set_doc("matrixComplex.fromFilename", { class = "function", summary = "constructor", description ={ "Loads a matrixComplex from a filename.", }, params = { "A filename path.", }, outputs = { "A matrixComplex instantiated object" }, }) april_set_doc("matrixComplex.toFilename", { class = "method", summary = "It allows to store a matrixComplex in a file.", description ={ "It allows to store a matrixComplex in a file.", "It uses the format expected by fromMatrixComplex function.", }, params = { "A filename path.", { "An string with the format: ascii or binary [optional].", "By default is ascii." }, }, }) april_set_doc("matrixComplex.fromString", { class = "function", summary = "constructor", description ={ "Loads a matrixComplex from a Lua string.", }, params = { "A Lua string.", }, outputs = { "A matrixComplex instantiated object" }, }) april_set_doc("matrixComplex.toString", { class = "method", summary = "It returns a Lua string which stores the matrixComplex.", description ={ "It returns a Lua string which stores the matrixComplex.", "It uses the format expected by fromString function.", }, outputs = { "A Lua string" }, }) april_set_doc("matrixComplex.to_lua_string", { class = "method", summary = "It returns a Lua chunk string which is loadable.", params = { "The format [optional]. By default is binary." }, outputs = { "A Lua string" }, }) april_set_doc("matrixComplex.copy_from_table", { class = "method", summary = "Copies the table values to the matrixComplex.", params = { "A lua table with data numbers in row_major order", }, }) april_set_doc("matrixComplex.sum", { class="method", summary="Computes the sum of all the elements.", outputs={"A number"}, }) april_set_doc("matrixComplex.sum", { class="method", summary="Computes the sum of all the elements over the given dimension.", params={"A number, the dimension"}, outputs={"A matrix"}, }) april_set_doc("matrixComplex.get", { class = "method", summary = "Returns the value stored at a given position.", params = { "First dimension position", "Second dimension position", "...", "ith dimension position", "...", "nth dimension position", }, outputs = { "A number", }, }) april_set_doc("matrixComplex.set", { class = "method", summary = "Sets the value of a given position.", params = { "First dimension position", "Second dimension position", "...", "ith dimension position", "...", "nth dimension position", "A number with the value to be set", }, outputs = { "The caller matrixComplex" }, }) april_set_doc("matrixComplex.raw_get", { class = "method", summary = "Returns the value stored at a given RAW position.", params = { "RAW position", }, outputs = { "A number", }, }) april_set_doc("matrixComplex.raw_set", { class = "method", summary = "Sets the value of a given RAW position.", params = { "RAW position", }, outputs = { "The caller matrixComplex" }, }) april_set_doc("matrixComplex.offset", { class = "method", summary = "Returns the RAW offset position of matrixComplex data.", outputs = { "A number with the RAW offset position", }, }) april_set_doc("matrixComplex.fill", { class = "method", summary = "Sets all values to a given number.", description = { "Sets all values to a given number.", "This method modifies the object IN-PLACE.", }, params = { "A number", }, outputs = { "The caller object (itself)", }, }) april_set_doc("matrixComplex.set_use_cuda", { class = "method", summary = "Indicates if use or not CUDA for math operations.", params = { "A boolean", }, outputs = { "The caller object (itself)", }, }) april_set_doc("matrixComplex.get_major_order", { class = "method", summary = "Returns the major order of internal data.", outputs = { "A string with the major order", }, }) april_set_doc("matrixComplex.dim", { class = "method", summary = "Returns a table with the size of each dimension.", outputs = { "A table", }, }) april_set_doc("matrixComplex.dim", { class = "method", summary = "Returns the size of a given dimension number.", params = { "A number indicating the dimension, between 1 and num_dims", }, outputs = { "A number", }, }) april_set_doc("matrixComplex.stride", { class = "method", summary = "Returns a table with the stride size of each dimension.", outputs = { "A table", }, }) april_set_doc("matrixComplex.stride", { class = "method", summary = "Returns the stride size of a given dimension number.", params = { "A number indicating the dimension, between 1 and num_dims", }, outputs = { "A number", }, }) april_set_doc("matrixComplex.slice", { class = "method", summary = "Returns a sub-matrixComplex that is a slice of caller matrixComplex.", description = { "Returns a sub-matrixComplex that is a slice of caller matrixComplex.", "This method returns a sub-matrixComplex which references the", "parent matrixComplex (not copy the data). Optionally it is possible", "to do a deep copy (clone) of the data.", }, params = { "A table with the first position of the sub-matrixComplex", "A table with the sizes of each dimension for the sub-matrixComplex", { "A boolean indicating if do or not a clone [optional]. By", "default it is set to false", }, }, outputs = { "A matrixComplex object (sub-matrixComplex)", }, }) april_set_doc("matrixComplex.rewrap", { class = "method", summary = "Reinterprets the data as with other dimensions.", description = { "Returns a matrixComplex which references to the caller, but", "reinterpreting the internal data with the given array of", "dimension sizes.", "The caller matrixComplex must be a contiguous chunk of data.", }, params = { { "A table with the size of each dimension.", "The number of dimensions could be different of ", "caller matrixComplex.", }, }, outputs = { "A matrixComplex object (referencing the caller matrixComplex)", }, }) april_set_doc("matrixComplex.select", { class = "method", summary = "Returns an slice result of select given dimension at given index.", description = { "Returns an slice result of select given dimension at given index.", "The matrixComplex has one less dimension because the selected dimension", "is removed.", }, params = { { "A number with the selected dimension" }, { "A number with the selected index" }, }, outputs = { "A matrixComplex object (referencing the caller matrixComplex)", }, }) april_set_doc("matrixComplex.clone", { class = "method", summary = "Returns a deep copy (clone) of the caller matrixComplex.", description = { "Returns a deep copy (clone) of the caller matrixComplex.", "It has the possibility of indicate the major order,", "and the data will be reordered if necessary.", }, params = { { "A string: col_major or row_major [optional]. By", "default it is the same major order as the caller matrixComplex" }, }, outputs = { "A matrixComplex object (cloned)", }, }) april_set_doc("matrixComplex.transpose", { class = "method", summary = "Returns transposition of the caller matrixComplex.", description = { "Returns transposition of the caller matrixComplex.", "The returned matrixComplex references the original.", }, outputs = { "A matrixComplex object (transposed)", }, }) april_set_doc("matrixComplex.diag", { class = "method", summary = "Sets diagonal positions to a given number.", description = { "Sets diagonal positions to a tiven number value.", "This method modifies the object IN-PLACE.", }, params = { "A number", }, outputs = { "The caller object (itself)", }, }) april_set_doc("matrixComplex.toTable", { class = "method", summary = "Returns a Lua table with the data of the matrixComplex.", description = { "Returns a Lua table with the data of the matrixComplex.", "The table is a copy of the data in row_major order.", }, outputs = { "A Lua table", }, }) april_set_doc("matrixComplex.add", { class = "method", summary = "Returns the addition of caller and other matrixComplex.", description = { "Returns a new matrixComplex which is addition of caller and other matrixComplex.", "It uses BLAS operations.", }, params = { "Another matrixComplex", }, outputs = { "A new matrixComplex result of addition", }, }) april_set_doc("matrixComplex.sub", { class = "method", summary = "Returns the subtraction of caller and other matrixComplex.", description = { "Returns a new matrixComplex which is the subtraction of caller and other matrixComplex.", "It uses BLAS operations.", }, params = { "Another matrixComplex", }, outputs = { "A new matrixComplex result of subtraction", }, }) april_set_doc("matrixComplex.mul", { class = "method", summary = "Returns the multiplication of caller and other matrixComplex.", description = { "Returns a new matrixComplex which is the multiplication of caller and other matrixComplex.", "This method works with vector-vector, dot product,", "vector-matrixComplex, and matrixComplex-matrixComplex multiplication, depending", "on the matrices dimensions.", "It uses BLAS operations.", }, params = { "Another matrixComplex (2D matrixComplex or a vector)", }, outputs = { "A new matrixComplex result of multiplication", }, }) april_set_doc("matrixComplex.cmul", { class = "method", summary = "Computes IN-PLACE the component-wise multiplication of caller and other matrix.", params = { "Another matrix", }, outputs = { "The caller matrix", }, }) april_set_doc("matrixComplex.axpy", { class = "method", summary = "BLAS AXPY operation IN-PLACE: Y = Y + alpha * X.", params = { "Alpha constant", "Another matrixComplex, X", }, outputs = { "The caller matrixComplex (a vector), Y (itself)", }, }) april_set_doc("matrixComplex.gemv", { class = "method", summary = "BLAS GEMV operation IN-PLACE: Y = beta * Y + alpha * A * X.", params = { ["alpha"] = "Alpha constant", ["beta"] = "Beta constant", ["trans_A"] = { "A boolean indicating if transpose or not matrixComplex A.", "It is [optional], by default is false", }, ["A"] = "Another matrixComplex, A (a 2D matrixComplex)", ["X"] = "Another matrixComplex, X (a vector)", }, outputs = { "The caller matrixComplex (a vector), Y (itself)", }, }) april_set_doc("matrixComplex.gemm", { class = "method", summary = "BLAS GEMM operation IN-PLACE: C = beta * C + alpha * A * B.", params = { ["alpha"] = "Alpha constant", ["beta"] = "Beta constant", ["trans_A"] = { "A boolean indicating if transpose or not matrixComplex A.", "It is [optional], by default is false", }, ["trans_B"] = { "A boolean indicating if transpose or not matrixComplex B.", "It is [optional], by default is false", }, ["A"] = "Another matrixComplex, A (a 2D matrixComplex)", ["B"] = "Another matrixComplex, B (a 2D matrixComplex)", }, outputs = { "The caller matrixComplex, C (itself)", }, }) april_set_doc("matrixComplex.dot", { class = "method", summary = "BLAS DOT operation IN-PLACE: v = X dot Y", params = { "Another matrixComplex, Y (a vector)", }, outputs = { "A number with the dot product", }, }) april_set_doc("matrixComplex.scal", { class = "method", summary = "BLAS SCAL operation IN-PLACE.", params = { "The scale factor", }, outputs = { "The caller matrixComplex (itself)." }, }) april_set_doc("matrixComplex.norm2", { class = "method", summary = "BLAS NRM2 operation.", outputs = { "A number with the norm-2 of caller matrixComplex." }, }) april_set_doc("matrixComplex.copy", { class = "method", summary = "Copy the values from another matrixComplex using BLAS", params = { "A source matrixComplex" }, outputs = { "The caller matrixComplex instance" }, }) april_set_doc("matrixComplex.linear", { class = "method", summary = "Initializes with linear integers", params = { "First integer value [optional], by default 0", "Step value [optional], by default 1", }, outputs = { "The caller matrixComplex instance" }, }) april_set_doc("matrixComplex.uniform", { class = "method", summary = "Initializes with random positive integers from range [a,b]", params = { "Lower range value", "Upper range value", "A random object instance [optional]" }, outputs = { "The caller matrixComplex instance" }, }) april_set_doc("matrixComplex.is_contiguous", { class = "method", summary = "Returns true if the matrixComplex data is contiguous at memory", outputs = { "A boolean" }, }) april_set_doc("matrixComplex.scalar_add", { class = "method", summary = "Adds a scalar IN-PLACE", params = { "A number" }, outputs = { "The caller matrixComplex instance" }, }) april_set_doc("matrixComplex.to_float", { class = "method", summary = "Returns a matrix (with float resolution)", description = { "Converts the given matrixComplex to a matrix (with float)", "with the one additional dimension of size two, where the", "real and imaginary part will be stored together.", "The extra dimension will be the last if the original", "matrix is in row_major, or the first if its in col_major.", }, outputs = { "A matrix instance" }, }) april_set_doc("matrixComplex.conj", { class = "method", summary = "Applies the conjugate of all the elements IN-PLACE", outputs = { "The caller matrixComplex instance" }, }) april_set_doc("matrixComplex.real", { class = "method", summary = "Returns the real part of the caller matrix", outputs = { "A matrix instance" }, }) april_set_doc("matrixComplex.img", { class = "method", summary = "Returns the imaginary part of the caller matrix", outputs = { "A matrix instance" }, }) april_set_doc("matrixComplex.abs", { class = "method", summary = "Returns the abs of the polar representation", outputs = { "A matrix instance" }, }) april_set_doc("matrixComplex.angle", { class = "method", summary = "Returns the angle of the polar representation", outputs = { "A matrix instance" }, }) april_set_doc("matrixComplex.sliding_window", { class = "method", summary = "Returns a sliding window object", params = { offset = "Lua table [optional]", size = "Lua table [optional]", step = "Lua table [optional]", numSteps = "Lua table [optional]", orderStep = "Lua table [optional]", }, outputs = { "An instance of matrixComplex.__sliding_window__" }, }) april_set_doc("matrixComplex.__sliding_window__", { class = "class", summary = "Sliding window for matrixComplex objects", }) april_set_doc("matrixComplex.__sliding_window__.get_matrixComplex", { class = "method", summary = "Returns the matrixComplex generated by the window", params = { {"A matrixComplex [optional], to be used instead", "of alloc a new one"} }, outputs = { "A matrixComplex instance" }, }) april_set_doc("matrixComplex.__sliding_window__.next", { class = "method", summary = "Moves the window to the next position", outputs = { "The caller sliding_window object" }, }) april_set_doc("matrixComplex.__sliding_window__.is_end", { class = "method", summary = "Returns true when it finishes", outputs = { "A boolean" }, }) april_set_doc("matrixComplex.__sliding_window__.iterate", { class = "method", summary = "Returns an iterator function: for mat in s:iterate() do ... end", outputs = { "An iterator function" }, }) april-ann-0.3.1/packages/basics/matrix/lua_src/matrixDouble.lua000066400000000000000000000011131234204160600245060ustar00rootroot00000000000000-- OVERWRITTING TOSTRING FUNCTION class_extension(matrixDouble, "to_lua_string", function(self, format) return string.format("matrixDouble.fromString[[%s]]", self:toString(format or "string")) end) matrixDouble.meta_instance.__call = matrix.__make_generic_call__() matrixDouble.meta_instance.__tostring = matrix.__make_generic_print__("MatrixDouble", function(value) return string.format("% -11.6g", value) end) matrixDouble.join = matrix.__make_generic_join__(matrixDouble) april-ann-0.3.1/packages/basics/matrix/lua_src/matrixInt32.lua000066400000000000000000000010471234204160600242010ustar00rootroot00000000000000-- OVERWRITTING TOSTRING FUNCTION class_extension(matrixInt32, "to_lua_string", function(self) return string.format("matrixInt32.fromString[[%s]]", self:toString()) end) matrixInt32.meta_instance.__call = matrix.__make_generic_call__() matrixInt32.meta_instance.__tostring = matrix.__make_generic_print__("MatrixInt32", function(value) return string.format("% 11d", value) end) matrixInt32.join = matrix.__make_generic_join__(matrixInt32) april-ann-0.3.1/packages/basics/matrix/lua_src/sparse_matrix.lua000066400000000000000000000047131234204160600247410ustar00rootroot00000000000000class_extension(matrix.sparse, "to_lua_string", function(self, format) return string.format("matrix.sparse.fromString[[%s]]", self:toString(format or "binary")) end) -- the constructor matrix.sparse.csr = function(...) return matrix.sparse(...) end matrix.sparse.meta_instance.__call = matrix.__make_generic_call__() matrix.sparse.meta_instance.__tostring = function(self) local out = {} local sparse = (self.get_sparse_format and self:get_sparse_format()) or "csr" local dims = self:dim() local so_large = false local getter = function(value) return string.format("% -11.6g", value) end -- for i=1,#dims do if dims[i] > 20 then so_large = true end end if not so_large then local aux = self:to_dense() local coords = {1,1} local row = {} for i=1,aux:size() do table.insert(row, getter(aux:get(table.unpack(coords)))) local j=#dims+1 repeat j=j-1 coords[j] = coords[j] + 1 if coords[j] > dims[j] then coords[j] = 1 end until j==1 or coords[j] ~= 1 if coords[#coords] == 1 then table.insert(out, table.concat(row, " ")) row={} end end else table.insert(out, "Large matrix, not printed to display") end table.insert(out, string.format("# SparseMatrix of size [%s] in %s [%s], %d non-zeros", table.concat(dims, ","), sparse, self:get_reference_string(), self:non_zero_size())) return table.concat(out, "\n") end matrix.sparse.meta_instance.__eq = function(op1, op2) if type(op1) == "number" or type(op2) == "number" then return false end return op1:equals(op2) end matrix.sparse.meta_instance.__mul = function(op1, op2) if type(op2) == "number" then return op1:clone():scal(op2) elseif type(op1) == "number" then return op2:clone():scal(op1) else error("matrix.sparse only could be multiplied by scalars") end end matrix.sparse.meta_instance.__pow = function(op1, op2) local new_mat = op1:clone() return new_mat:pow(op2) end matrix.sparse.meta_instance.__div = function(op1, op2) if type(op2) == "number" then local new_mat = op1:clone() return new_mat:scal(1/op2) elseif type(op1) == "number" then local new_mat = op2:clone() return new_mat:div(op1) else error("matrix.sparse only could be divided by scalars") end end matrix.sparse.meta_instance.__unm = function(op) local new_mat = op:clone() return new_mat:scal(-1) end april-ann-0.3.1/packages/basics/matrix/package.lua000066400000000000000000000045171234204160600220250ustar00rootroot00000000000000 package{ name = "matrix", version = "1.0", depends = { "util", "mathcore", "random", "gzio" }, keywords = { "matrix" }, description = "no description available", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "test", execute_script{ file={ "test/test_matrix_inv_solve.lua", "test/test_matrix_math.lua", "test/test_sparse_matrix.lua", }, }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_matrix.lua.cc", dest_dir = "include" }, provide_bind{ file = "binding/bind_sparse_matrix.lua.cc", dest_dir = "include" }, provide_bind{ file = "binding/bind_matrix_complex_float.lua.cc", dest_dir = "include" }, provide_bind{ file = "binding/bind_matrix_double.lua.cc", dest_dir = "include" }, provide_bind{ file = "binding/bind_matrix_int32.lua.cc", dest_dir = "include" }, provide_bind{ file = "binding/bind_matrix_char.lua.cc", dest_dir = "include" }, provide_bind{ file = "binding/bind_referenced_vector.lua.cc", dest_dir = "include" } }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", --flags = "-std=c99", not valid for c++!!! dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_matrix.lua.cc", dest_dir = "build", }, build_bind{ file = "binding/bind_sparse_matrix.lua.cc", dest_dir = "build", }, build_bind{ file = "binding/bind_matrix_complex_float.lua.cc", dest_dir = "build", }, build_bind{ file = "binding/bind_matrix_double.lua.cc", dest_dir = "build", }, build_bind{ file = "binding/bind_matrix_int32.lua.cc", dest_dir = "build", }, build_bind{ file = "binding/bind_matrix_char.lua.cc", dest_dir = "build", }, build_bind{ file = "binding/bind_referenced_vector.lua.cc", dest_dir = "build", } }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/basics/matrix/test/000077500000000000000000000000001234204160600206775ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/matrix/test/test_matrix.lua000066400000000000000000000013771234204160600237550ustar00rootroot00000000000000 a = matrix.fromString[[ # primero vienen las dimensiones de la matriz 4 3 # y luego el tipo ascii # y los datos: 1 2 3,,,,, 4 5 6 7 8 9 10 11 12 ]] dims = a:dim() print(string.format("{%s}",table.concat(dims,','))) printf('En ascii: "%s"\n',a:toString()) printf('En binario: "%s"\n',a:toString("binary")) txt = a:toString("binary") c = matrix.fromString(txt) print('Leemos binario y lo volvemos a mostrar en ascii:\n"'..c:toString()..'"') x = matrix.fromString[[ 2 5 ascii 0 2 3 4 5 6 7 8 9 10 ]] print(x:toString()) print("ahora normalizamos entre 0 y 1") x:adjust_range(0,1) print(x:toString()) x = matrix.fromString[[ 2 5 ascii 1 1 1 1 1 1 1 1 1 1 ]] print(x:toString()) print("ahora normalizamos entre 0 y 1") x:adjust_range(0,1) print(x:toString()) april-ann-0.3.1/packages/basics/matrix/test/test_matrix_get.lua000066400000000000000000000003041234204160600246010ustar00rootroot00000000000000m = matrix(3,4,5) local aux = {} for i=1,3*4*5 do table.insert(aux,i) end m:copy_from_table(aux) for i=1,3 do for j=1,4 do for k=1,5 do print(i,j,k,m:get(i,j,k)) end end end april-ann-0.3.1/packages/basics/matrix/test/test_matrix_inv_solve.lua000066400000000000000000000004131234204160600260270ustar00rootroot00000000000000local check = utest.check -- inverse local M = matrix.col_major local m = M(2,2, { -2, 1, -1, 1, }) local b = M(2,1, { 4, 1 }) local c = m:inv()*b check.eq(c, M(2,1,{-3,-2})) -- pseudo-inverse local c = m:pinv()*b check.eq(c, M(2,1,{-3,-2})) april-ann-0.3.1/packages/basics/matrix/test/test_matrix_math.lua000066400000000000000000000105541234204160600247630ustar00rootroot00000000000000local check = utest.check -- a = matrix.fromString[[ 1 3 ascii col_major 1 2 3 ]] b = matrix.fromString[[ 3 1 ascii col_major 1 4 7 ]] c = a*b check.eq(c:get(1,1), 1*1+2*4+3*7) check.eq(b*a, matrix.col_major(3,3,{ 1, 2, 3, 4, 8, 12, 7, 14, 21, })) d = matrix.fromString[[ 3 3 ascii 1 2 3 4 5 6 7 8 9 ]] check.eq(d:clone("col_major"), matrix.col_major(3,3,{ 1, 2, 3, 4, 5, 6, 7, 8, 9, })) check(d:transpose(), matrix(3,3,{ 1, 4, 7, 2, 5, 8, 3, 6, 9, })) e = d * d check(e, matrix(3,3,{ 30, 36, 42, 66, 81, 96, 102, 126, 150, })) d = d:clone("col_major") e = d * d check(e, matrix.col_major(3,3,{ 30, 36, 42, 66, 81, 96, 102, 126, 150, })) h = d:slice({2,2},{2,2}) check(h, matrix.col_major(2,2,{ 5, 6, 8, 9, })) e = h * h check(e, matrix.col_major(2,2,{ 73, 84, 112, 129, })) l = matrix.col_major(2,2):fill(4) + h check(l, matrix.col_major(2,2,{ 9, 10, 12, 13, })) g = matrix(3,2,{1,2, 3,4, 5,6}) check(g:transpose():clone("col_major"), matrix.col_major(2,3,{ 1, 3, 5, 2, 4, 6, })) check(g:transpose():clone("col_major"):clone("row_major"), matrix(2,3,{ 1, 3, 5, 2, 4, 6, })) check(g:transpose(), matrix(2,3,{ 1, 3, 5, 2, 4, 6, })) j = g:transpose() * g check(j, matrix(2,2,{ 35, 44, 44, 56, })) j = matrix(2,2):gemm{ trans_A=true, trans_B=false, alpha=1.0, A=g, B=g, beta=0.0 } check(j, matrix(2,2,{ 35, 44, 44, 56, })) j = matrix.col_major(2,2):gemm{ trans_A=true, trans_B=false, alpha=1.0, A=g:clone("col_major"), B=g:clone("col_major"), beta=0.0 } check(j, matrix.col_major(2,2,{ 35, 44, 44, 56, })) --------------------------------------------------------------- --------------------------------------------------------------- --------------------------------------------------------------- local m = matrix.col_major(4,5,{1,0,0,0,2, 0,0,3,0,0, 0,0,0,0,0, 0,4,0,0,0}) local U,S,V = m:svd() check(U, matrix.col_major(4,4, { 0,0,1, 0, 0,1,0, 0, 0,0,0,-1, 1,0,0, 0, })) check(S:to_dense(), matrix.col_major(4,{4,3,2.23607,0}):diagonalize()) check(V, matrix.col_major(5,5, { 0,1,0,0,0, 0,0,1,0,0, 0.447214,0,0,0,0.894427, 0,0,0,1,0, -0.894427,0,0,0,0.447214, })) --------------------------------------------------------------- --------------------------------------------------------------- --------------------------------------------------------------- local m = matrix(20,20):uniformf() local subm = m:slice({5,4},{6,9}) check.eq(subm, m("5:10","4:12")) check.eq(subm, m({5,10},{4,12})) local subm = m:slice({1,4},{6,m:dim(2)-3}) check.eq(subm, m(":6","4:")) april-ann-0.3.1/packages/basics/matrix/test/test_matrix_math_CUDA.lua000066400000000000000000000041671234204160600255620ustar00rootroot00000000000000a = matrix.fromString[[ 1 3 ascii col_major 1 2 3 ]] b = matrix.fromString[[ 3 1 ascii col_major 1 4 7 ]] if util.is_cuda_available() then a:set_use_cuda(true) b:set_use_cuda(true) end c = a*b assert(c:get(1) == 1*1+2*4+3*7) assert((b*a):equals(matrix.col_major(3,3,{ 1, 2, 3, 4, 8, 12, 7, 14, 21, }))) d = matrix.fromString[[ 3 3 ascii col_major 1 2 3 4 5 6 7 8 9 ]] if util.is_cuda_available() then d:set_use_cuda(true) end assert(d:clone():equals(matrix.col_major(3,3,{ 1, 2, 3, 4, 5, 6, 7, 8, 9, }))) assert(d:transpose():equals(matrix.col_major(3,3,{ 1, 4, 7, 2, 5, 8, 3, 6, 9, }))) e = d * d assert(e:equals(matrix.col_major(3,3,{ 30, 36, 42, 66, 81, 96, 102, 126, 150, }))) d = d:clone() e = d * d assert(e:equals(matrix.col_major(3,3,{ 30, 36, 42, 66, 81, 96, 102, 126, 150, }))) h = d:slice({2,2},{2,2}) assert(h:equals(matrix.col_major(2,2,{ 5, 6, 8, 9, }))) e = h * h assert(e:equals(matrix.col_major(2,2,{ 73, 84, 112, 129, }))) l = matrix.col_major(2,2):fill(4) + h assert(l:equals(matrix.col_major(2,2,{ 9, 10, 12, 13, }))) g = matrix.col_major(3,2,{1,2, 3,4, 5,6}) if util.is_cuda_available() then g:set_use_cuda(true) end assert(g:transpose():equals(matrix.col_major(2,3,{ 1, 3, 5, 2, 4, 6, }))) j = g:transpose() * g assert(j:equals(matrix.col_major(2,2,{ 35, 44, 44, 56, }))) j = matrix.col_major(2,2):gemm{ trans_A=true, trans_B=false, alpha=1.0, A=g, B=g, beta=0.0 } assert(j:equals(matrix.col_major(2,2,{ 35, 44, 44, 56, }))) j = matrix.col_major(2,2):gemm{ trans_A=true, trans_B=false, alpha=1.0, A=g:clone(), B=g:clone(), beta=0.0 } assert(j:equals(matrix.col_major(2,2,{ 35, 44, 44, 56, }))) -- LAPACK m = matrix.col_major(2,2, { -2, 1, -1, 1, }) b = matrix.col_major(2,1, { 4, 1 }) c = m:inv()*b assert(c:get(1,1) == -3) assert(c:get(2,1) == -2) april-ann-0.3.1/packages/basics/matrix/test/test_referenced_vector.lua000066400000000000000000000005761234204160600261350ustar00rootroot00000000000000a = util.vector_float() for i = 1,50 do a:push_back(i) end m = a:toMatrix(false) -- do not reuse vector print(m) print("La longitud del vector es",a:size()) print("Tomamos el vector para la matriz") m = a:toMatrix() -- reuse vector print(m) print("La longitud del vector es",a:size()) a = util.vector_uint() for i = 1,10 do a:push_back(i) end print(a) print(a:toMatrix()) april-ann-0.3.1/packages/basics/matrix/test/test_sparse_matrix.lua000066400000000000000000000156241234204160600253320ustar00rootroot00000000000000local blockf = mathcore.block.float local blocki = mathcore.block.int32 -- local function dense(m) return (isa(m,matrix.sparse) and m:to_dense()) or m end local make_eq = function(m1,m2) return function() local m1,m2=dense(m1),dense(m2) return m1:equals(m2) end end -- local check = utest.check -- local a_dense = matrix(4,5,{ 1, 0, 0, -1, 2, 0, 0, 2, 1, 0, 0, 0, 0, 1, -2, -4, 0, 2, 0, 0, }) local a_sparse_csr = matrix.sparse.csr(4,5, blockf{1,-1,2,2,1,1,-2,-4,2}, blocki{0, 3,4,2,3,3, 4, 0,2}, blocki{0,3,5,7,9}) local a_sparse_csc = matrix.sparse.csc(4,5, blockf{1,-4,2,2,-1,1,1,2,-2}, blocki{0, 3,1,3, 0,1,2,0, 2}, blocki{0,2,2,4,7,9}) check(make_eq(a_sparse_csr, a_dense)) check(make_eq(a_sparse_csc, a_dense)) local a_sparse_csr = matrix.sparse.csr(a_dense) local a_sparse_csc = matrix.sparse.csc(a_dense) check(make_eq(a_sparse_csr, a_dense)) check(make_eq(a_sparse_csc, a_dense)) local aux2 = matrix.sparse.diag(matrix(5,{1,2,3,4,5}),"csc") local aux3 = matrix.sparse.diag(blockf({1,2,3,4,5}),"csc") check(make_eq(aux2, aux3)) local aux2 = matrix.sparse.diag(matrix(5,{1,2,3,4,5}),"csr") local aux3 = matrix.sparse.diag(blockf({1,2,3,4,5}),"csr") check(make_eq(aux2, aux3)) check(function() return a_sparse_csr:max() == 2 end) check(function() return a_sparse_csc:max() == 2 end) local m = matrix(9,1):linspace() local m2 = matrix.sparse.csc(3,3, blockf{10,-4}, blocki{1,0}, blocki{0,1,2,2}) local aux = m2:as_vector() check(function() return make_eq(m:clone():axpy(1.0,aux:to_dense()), m:clone():axpy(1.0,aux))() end) local b = matrix.sparse.csr(3,blockf{3},blocki{2}) local str = aux3:toString("ascii") check.eq(str, [[5 5 5 ascii csr 1 2 3 4 5 0 1 2 3 4 0 1 2 3 4 5 ]]) local str = aux3:transpose():toString("ascii") check.eq(str, [[5 5 5 ascii csc 1 2 3 4 5 0 1 2 3 4 0 1 2 3 4 5 ]]) local a_csc = matrix.sparse.csc(matrix(3,4,{ 1, 2, 3, 0, 0, 0, 2, 0, 0, -1, 0, 1, })) local a_csr = matrix.sparse.csr(matrix(3,4,{ 1, 2, 3, 0, 0, 0, 2, 0, 0, -1, 0, 1, })) local b = matrix(4,2,{ 2, 1, 1, 0, -1, -2, 1, 2, }) check(function() local c = matrix(3,2):zeros():sparse_mm({ trans_A=false, alpha=1.0, A=a_csc, B=b, beta=0.0, }) return make_eq(matrix(3,4,{ 1, 2, 3, 0, 0, 0, 2, 0, 0, -1, 0, 1, }) * b, c)() end) check(function() local c = matrix(3,2):zeros():sparse_mm({ trans_A=false, alpha=1.0, A=a_csr, B=b, beta=0.0, }) return make_eq(matrix(3,4,{ 1, 2, 3, 0, 0, 0, 2, 0, 0, -1, 0, 1, }) * b, c)() end) check(function() local c = matrix(3,2):zeros():sparse_mm({ trans_A=true, alpha=1.0, A=a_csc:transpose(), B=b, beta=0.0, }) return make_eq(matrix(3,4,{ 1, 2, 3, 0, 0, 0, 2, 0, 0, -1, 0, 1, }) * b, c)() end) check(function() local c = matrix(3,2):zeros():sparse_mm({ trans_A=true, alpha=1.0, A=a_csr:transpose(), B=b, beta=0.0, }) return make_eq(matrix(3,4,{ 1, 2, 3, 0, 0, 0, 2, 0, 0, -1, 0, 1, }) * b, c)() end) local x = matrix(4):linear() local y = matrix(3):zeros() check(function() y:gemv({ trans_A=false, alpha=1.0, A=a_csc, X=x, beta=0.0 }) return make_eq(a_csc:to_dense()*x, y)() end) check(function() y:gemv({ trans_A=true, alpha=1.0, A=a_csc:transpose(), X=x, beta=0.0 }) return make_eq(a_csc:to_dense()*x, y)() end) check(function() y:gemv({ trans_A=false, alpha=1.0, A=a_csr, X=x, beta=0.0 }) return make_eq(a_csc:to_dense()*x, y)() end) check(function() y:gemv({ trans_A=true, alpha=1.0, A=a_csr:transpose(), X=x, beta=0.0 }) return make_eq(a_csc:to_dense()*x, y)() end) ---------------------------------------------------------------------------- local x = matrix(10,1):uniformf(-10,10,random(1234)) local y = matrix(1,10,{1,-1,4,0,0,2,0,0,0,-3}) local z = x:dot(y) local y_csr = matrix.sparse.csr(y) local y_csc = y:transpose() -- FIXME: this test is failing in travis :S -- check.eq(x:dot(y_csr),z) check.eq(x:dot(y_csc),z) april-ann-0.3.1/packages/basics/producer_fifo_wrapper/000077500000000000000000000000001234204160600230025ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/producer_fifo_wrapper/binding/000077500000000000000000000000001234204160600244145ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/producer_fifo_wrapper/binding/bind_producer_fifo_wrapper.lua.cc000066400000000000000000000033521234204160600330700ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C #include "bind_function_interface.h" //BIND_END //BIND_HEADER_H #include "producer_fifo_wrapper.h" //BIND_END //BIND_LUACLASSNAME ProducerFifoWrapper utils.producer_fifo_wrapper //BIND_CPP_CLASS ProducerFifoWrapper //BIND_LUACLASSNAME DoubleDataProducer __double_data_producer__ //BIND_SUBCLASS_OF ProducerFifoWrapper DoubleDataProducer //BIND_CONSTRUCTOR ProducerFifoWrapper { LUABIND_CHECK_ARGN(==, 0); LUABIND_RETURN(ProducerFifoWrapper, new ProducerFifoWrapper()); } //BIND_END //BIND_METHOD ProducerFifoWrapper put { LUABIND_CHECK_ARGN(==, 1); int vec_size = luaL_len(L, 1); double *vec = new double[vec_size]; LUABIND_TABLE_TO_VECTOR(1, double, vec, vec_size); obj->put(vec); } //BIND_END //BIND_METHOD ProducerFifoWrapper lock { LUABIND_CHECK_ARGN(==, 0); obj->lock(); } //BIND_END //BIND_METHOD ProducerFifoWrapper unlock { LUABIND_CHECK_ARGN(==, 0); obj->unlock(); } //BIND_END april-ann-0.3.1/packages/basics/producer_fifo_wrapper/c_src/000077500000000000000000000000001234204160600240735ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/producer_fifo_wrapper/c_src/producer_fifo_wrapper.cc000066400000000000000000000024361234204160600307750ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "producer_fifo_wrapper.h" ProducerFifoWrapper::ProducerFifoWrapper() { } ProducerFifoWrapper::~ProducerFifoWrapper() { } double* ProducerFifoWrapper::get() { return queue.get(); } void ProducerFifoWrapper::reset() { while (!queue.empty()) { double *aux = queue.get(); delete[] aux; } } void ProducerFifoWrapper::put(double *v) { queue.put(v); } void ProducerFifoWrapper::unlock() { queue.unlock(); } void ProducerFifoWrapper::lock() { queue.lock(); } april-ann-0.3.1/packages/basics/producer_fifo_wrapper/c_src/producer_fifo_wrapper.h000066400000000000000000000025711234204160600306370ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef PRODUCER_FIFO_WRAPPER_H #define PRODUCER_FIFO_WRAPPER_H #include "function_interface.h" #include "mutexed_fifo.h" using april_thread_utils::MutexedFIFO; using namespace Functions; class ProducerFifoWrapper : public DataProducer { MutexedFIFO queue; public: ProducerFifoWrapper(); ~ProducerFifoWrapper(); // metodos para dar cuenta de dataproducer double *get(); void reset(); // metodos wrapper de mutexedfifo void unlock(); void lock(); // metodo para bindear a lua: void put(double*); }; #endif // PRODUCER_FIFO_WRAPPER_H april-ann-0.3.1/packages/basics/producer_fifo_wrapper/package.lua000066400000000000000000000020471234204160600251030ustar00rootroot00000000000000package{ name = "producer_fifo_wrapper", version = "1.0", depends = { "util", "thread_utils", "function_interface" }, keywords = { }, description = "", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_producer_fifo_wrapper.lua.cc" , dest_dir = "include" }, }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", dest_dir = "build", -- flags = "-std=c99", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_producer_fifo_wrapper.lua.cc", dest_dir = "build" }, }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/basics/profiler/000077500000000000000000000000001234204160600202365ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/profiler/lua_src/000077500000000000000000000000001234204160600216665ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/profiler/lua_src/profiler.lua000066400000000000000000000041611234204160600242150ustar00rootroot00000000000000profiler={} profiler.stopwatch = util.stopwatch() profiler.last_t = 0 profiler.total_time = 0 profiler.profile = {} function profiler.hook(event) profiler.stopwatch:stop() local t = profiler.stopwatch:read() local funcname = debug.getinfo(2, "n").name local last_func = debug.getinfo(3, "n").func local elapsed_time = t - profiler.last_t local info = debug.getinfo(2, "fnSlu") if event == "call" then --[[ if info.what == "Lua" then print ("call ->", info.name, info.what, info.namewhat, info.source, info.short_src, info.lastlinedefined) end --]] if funcname then if not profiler.profile[info.func] then profiler.profile[info.func] = info profiler.profile[info.func].call_count = 0 profiler.profile[info.func].time = 0 end profiler.profile[info.func].call_count = profiler.profile[info.func].call_count + 1 end if last_funcname then profiler.profile[last_func].time = profiler.profile[last_func].time + elapsed_time profiler.total_time = profiler.total_time + elapsed_time end elseif event == "return" or event == "tail return" then --print ("return ->", debug.getinfo(2,"n").name) if funcname and profiler.profile[info.func] then profiler.profile[info.func].time = profiler.profile[info.func].time + elapsed_time profiler.total_time = profiler.total_time + elapsed_time end end profiler.last_t = t profiler.stopwatch:go() end function profiler.start() profiler.stopwatch:go() debug.sethook(profiler.hook, "cr") end function profiler.stop() debug.sethook() profiler.stopwatch:stop() end function profiler.save(outfile) profile_list = {} for func, info in pairs(profiler.profile) do table.insert(profile_list, info) end table.sort(profile_list, function(a,b) return a.time > b.time end) fprintf(outfile, "Total time: %f\n", profiler.total_time) fprintf(outfile, "%58s\t%8s\t%s\n", "NAME", "TIME", "CALL_COUNT") for i, info in ipairs(profile_list) do fprintf(outfile,"[%6s]%50s\t%8.2f\t%d\n", info.what, string.format("%s@%s",info.name, info.source), info.time, info.call_count) end end april-ann-0.3.1/packages/basics/profiler/package.lua000066400000000000000000000012311234204160600223310ustar00rootroot00000000000000 package{ name = "profiler", version = "1.0", depends = { "util" }, keywords = { "profiler" }, description = "", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", }, target{ name = "build", depends = "provide", use_timestamp = true, luac{ orig_dir = "lua_src", dest_dir = "build", }, }, target{ name = "document", document_src{}, document_bind{}, }, } april-ann-0.3.1/packages/basics/profiler/test/000077500000000000000000000000001234204160600212155ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/profiler/test/profile.lua000066400000000000000000000002411234204160600233550ustar00rootroot00000000000000__profiled_program_name = arg[1] table.remove(arg,1) profiler.start() dofile(__profiled_program_name) profiler.stop() profiler.save(io.open("profile.out", "w")) april-ann-0.3.1/packages/basics/random/000077500000000000000000000000001234204160600176745ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/random/binding/000077500000000000000000000000001234204160600213065ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/random/binding/bind_mtrand.lua.cc000066400000000000000000000222561234204160600246650ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C //BIND_END //BIND_HEADER_H #include "MersenneTwister.h" #include "dice.h" #include "utilLua.h" //BIND_END //BIND_LUACLASSNAME MTRand random //BIND_CPP_CLASS MTRand //BIND_CONSTRUCTOR MTRand //DOC_BEGIN // random() //DOC_END //DOC_BEGIN // random(uint32_t n) /// @param n Valor de la semilla //DOC_END //DOC_BEGIN // random(uint32_t n[]) /// @param n[] Vector con semillas para inicializar //DOC_END { int argn = lua_gettop(L); /* number of arguments */ if (argn == 0) obj = new MTRand(); // auto-initialize with /dev/urandom or time() // and clock() else if (argn == 1) // initialize with a simple uint32 obj = new MTRand((uint32_t)luaL_checknumber(L, 1)); else { uint32_t *v = new uint32_t[argn]; int i; for (i=1; i <= argn; i++) { if (!lua_isnumber(L,i)) { delete[] v; lua_pushstring(L,"incorrect argument for mtrand initialization"); lua_error(L); } v[i-1] = (uint32_t)lua_tonumber(L,i); } obj = new MTRand(v, argn); delete[] v; } LUABIND_RETURN(MTRand, obj); } //BIND_END //BIND_DESTRUCTOR MTRand { } //BIND_END //BIND_METHOD MTRand rand //DOC_BEGIN // double rand() /** Genera un valor aleatorio del intervalo [0,n], donde * n es el argumento recibido. Si no se le da ningún valor se * considera n=1. */ //DOC_END //DOC_BEGIN // double rand(double n) /// Genera un valor aleatorio del intervalo [0,n], donde /// n es el argumento recibido. Si no se le da ningún valor se /// considera n=1. /// @param n Valor del intervalo [0,n] para generar el número aleatorio //DOC_END { LUABIND_CHECK_ARGN(<=, 1); double n; LUABIND_GET_OPTIONAL_PARAMETER(1,double,n,1); LUABIND_RETURN(number,obj->rand(n)); } //BIND_END //BIND_METHOD MTRand randExc //DOC_BEGIN // double randExc(double n = 1.0) /// Genera un valor aleatorio del intervalo [0,n), donde /// n es el argumento recibido. Si no se le da ningún valor se /// considera n=1. /// @param n Valor del intervalo [0,n) para generar el número aleatorio //DOC_END { LUABIND_CHECK_ARGN(<=, 1); double n; LUABIND_GET_OPTIONAL_PARAMETER(1,double,n,1); LUABIND_RETURN(number,obj->randExc(n)); } //BIND_END //BIND_METHOD MTRand randDblExc //DOC_BEGIN // double randDblExc(double n = 1.0) /// Genera un valor aleatorio del intervalo (0,n), donde /// n es el argumento recibido. Si no se le da ningún valor se /// considera n=1. /// @param n Valor del intervalo (0,n) para generar el número aleatorio //DOC_END { LUABIND_CHECK_ARGN(<=, 1); double n; LUABIND_GET_OPTIONAL_PARAMETER(1,double,n,1); LUABIND_RETURN(number,obj->randDblExc(n)); } //BIND_END //BIND_METHOD MTRand randInt // integer in [0,2^32-1] // integer in [0,x] if integer x is given // integer in [x,y] if integers x and y are given //DOC_BEGIN // uint32_t randInt(uint32_t ini = 0, uint32_t fin = 2^32 - 1) /// Genera un valor aleatorio del intervalo [ini, fin], donde /// x e y son los argumentos recibidos. Por defecto ini=0 y fin = 2^32 - 1. /// @param ini Punto inicial del intervalo /// @param fin Punto final del intervalo //DOC_END { LUABIND_CHECK_ARGN(<=, 2); int x,y,resul; // FIXME las hacemos uint32 ??? int argn = lua_gettop(L); /* number of arguments */ if (argn == 2) { LUABIND_GET_PARAMETER(1,int,x); // casting int a uint32 LUABIND_GET_PARAMETER(2,int,y); // casting int a uint32 if (y < x) LUABIND_ERROR("first argument must be <= second argument"); resul = x+obj->randInt(y-x); } else if (argn == 1) { LUABIND_GET_PARAMETER(1,int,x); // casting int a uint32 resul = obj->randInt(x); } else resul = obj->randInt(); LUABIND_RETURN(number,resul); } //BIND_END //BIND_METHOD MTRand shuffle //DOC_BEGIN // int[] shuffle(int size) /// @param size Tamaño de la secuencia que queremos desordenar //DOC_END //DOC_BEGIN // vector shuffle(vector) /// @param vector Vector a desordenar, devuelve OTRO vector desordenado //DOC_END { LUABIND_CHECK_ARGN(==, 1); int size = 0; // inicializamos para evitar warning int *vector = 0; bool is_number = true; if (lua_isnumber(L,1)) { // caso en que recibimos la talla de la tabla a generar LUABIND_GET_PARAMETER(1, int, size); if (size <= 0) LUABIND_ERROR("random shuffle: size must be >= 0"); } else if (lua_istable(L,1)) { // recibimos una tabla tipo vector y devolvemos otra con los // mismos elementos pero permutados size = luaL_len(L,1); is_number = false; } else LUABIND_ERROR("random shuffle: an int or a table expected"); vector = new int[size]; obj->shuffle(size,vector); // lua_createtable(L,narr,nrec) where narr array, nrec non-array lua_createtable(L, size, 0); // if (is_number) { // FIXME: USAR MACRO PARA CARGAR VECTOR??? for (int i=0; i < size; i++) { lua_pushnumber(L,vector[i]+1); lua_rawseti(L,2,i+1); } } else { for (int i=0; i < size; i++) { lua_rawgeti(L,1,vector[i]+1); lua_rawseti(L,2,i+1); } } delete[] vector; return 1; } //BIND_END //BIND_METHOD MTRand choose //DOC_BEGIN // element choose(vector) /// @param vector /// elige un elemento al azar del vector //DOC_END { LUABIND_CHECK_ARGN(==, 1); if (!lua_istable(L,1)) { LUABIND_ERROR("random choose: a table expected"); } int len = luaL_len(L,-1); if (len > 0) { int which = 1+obj->randInt(len-1); lua_rawgeti(L,-1,which); LUABIND_RETURN_FROM_STACK(-1); } } //BIND_END //BIND_METHOD MTRand randNorm //DOC_BEGIN // double randNorm(double mean, double variance) /// @param mean Media de la función gaussiana /// @param variance Varianza de la función gaussiana //DOC_END { double mean, variance; LUABIND_CHECK_ARGN(==, 2); LUABIND_GET_PARAMETER(1, double, mean); LUABIND_GET_PARAMETER(2, double, variance); LUABIND_RETURN(number,obj->randNorm(mean,variance)); } //BIND_END //BIND_METHOD MTRand seed //DOC_BEGIN // void seed() //DOC_END //DOC_BEGIN // void seed(uint32_t n) /// @param n Valor de la semilla inicial //DOC_END //DOC_BEGIN // void seed(uint32_t v[]) /// @param v[] Vector de semillas para inicializar el objeto //DOC_END { int argn = lua_gettop(L); /* number of arguments */ if (argn == 0) { obj->seed(); } else if (argn == 1) { obj->seed((uint32_t)luaL_checknumber(L, 1)); } else if (argn > 1) { uint32_t *v = new uint32_t[argn]; int i; for (i=1; i <= argn; i++) { v[i-1] = (uint32_t)luaL_checknumber(L, i); } obj->seed(v,argn); delete[] v; } } //BIND_END //BIND_METHOD MTRand clone //DOC_BEGIN // random *clone() //DOC_END { LUABIND_CHECK_ARGN(==, 0); MTRand *theclone = new MTRand(*obj); LUABIND_RETURN(MTRand,theclone); } //BIND_END //BIND_METHOD MTRand toTable //DOC_BEGIN // table toTable() //DOC_END { LUABIND_CHECK_ARGN(==, 0); uint32_t randState[ MTRand::SAVE ]; obj->save( randState ); lua_newtable(L); for (unsigned int i=0; i < MTRand::SAVE; i++) { lua_pushnumber(L,randState[i]); lua_rawseti(L,-2,i+1); } return 1; } //BIND_END //BIND_METHOD MTRand fromTable //DOC_BEGIN // void fromTable(table t) /// @param //DOC_END { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); uint32_t randState[ MTRand::SAVE ]; for (int i=1; i <= (int)MTRand::SAVE; i++) { lua_rawgeti(L,1,i); randState[i-1] = (uint32_t)luaL_checknumber(L, -1); lua_remove(L,-1); } obj->load( randState ); LUABIND_RETURN(MTRand,obj); } //BIND_END //BIND_METHOD MTRand to_lua_string { LUABIND_RETURN(string, obj->toLuaString()); } //BIND_END //BIND_LUACLASSNAME dice random.dice //BIND_CPP_CLASS dice //BIND_CONSTRUCTOR dice { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); // leer vector de doubles: double *v; int length = table_to_double_vector(L, &v); for (int i=0; iget_outcomes()); } //BIND_END //BIND_METHOD dice thrown //DOC_BEGIN // int thrown(random *generator) //DOC_END { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, MTRand); MTRand *generator = lua_toMTRand(L,1); LUABIND_RETURN(number,obj->thrown(generator)+1); } //BIND_END april-ann-0.3.1/packages/basics/random/c_src/000077500000000000000000000000001234204160600207655ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/000077500000000000000000000000001234204160600230365ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Makefile000066400000000000000000000020561234204160600245010ustar00rootroot00000000000000# Makefile for Wagner's Mersenne Twister class (MersenneTwister.h) # Define compiler and compilation options CC = g++ CFLAGS = -ansi -Wall COPTIM = -O3 # Compile example program .PHONY: all run test compare clean package all: example @ echo "Run the example program with './example'" @ echo "Or use 'make test' to test the output and speed of MersenneTwister.h" example: example.cpp MersenneTwister.h $(CC) $(CFLAGS) -o example example.cpp run: example ./example # Compile test suite test: @ $(MAKE) -C Test/ CC=$(CC) CFLAGS=$(CFLAGS) COPTIM=$(COPTIM) # Clean away executable and output files clean: @ rm -f example state.dat core @ $(MAKE) -C Test/ clean # Package files for distribution DIR = Mersenne-1.1 package: clean rm -rf $(DIR)/ mkdir $(DIR) cp README $(DIR)/ cp MersenneTwister.h $(DIR)/ cp example.cpp $(DIR)/ cp Makefile $(DIR)/ cp -R Test $(DIR)/ cat MersenneTwister.html | sed '/cutforpkg/,/cutforpkg/ s/.*//' > $(DIR)/MersenneTwister.html cp Random.jpg $(DIR)/ tar -zcvf $(DIR).tar.gz $(DIR)/ zip -r $(DIR).zip $(DIR)/ april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/MersenneTwister.h000066400000000000000000000361501234204160600263520ustar00rootroot00000000000000// MersenneTwister.h // Mersenne Twister random number generator -- a C++ class MTRand // Based on code by Makoto Matsumoto, Takuji Nishimura, and Shawn Cokus // Richard J. Wagner v1.1 28 September 2009 wagnerr@umich.edu // The Mersenne Twister is an algorithm for generating random numbers. It // was designed with consideration of the flaws in various other generators. // The period, 2^19937-1, and the order of equidistribution, 623 dimensions, // are far greater. The generator is also fast; it avoids multiplication and // division, and it benefits from caches and pipelines. For more information // see the inventors' web page at // http://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/emt.html // Reference // M. Matsumoto and T. Nishimura, "Mersenne Twister: A 623-Dimensionally // Equidistributed Uniform Pseudo-Random Number Generator", ACM Transactions on // Modeling and Computer Simulation, Vol. 8, No. 1, January 1998, pp 3-30. // Copyright (C) 1997 - 2002, Makoto Matsumoto and Takuji Nishimura, // Copyright (C) 2000 - 2009, Richard J. Wagner // All rights reserved. // // Redistribution and use in source and binary forms, with or without // modification, are permitted provided that the following conditions // are met: // // 1. Redistributions of source code must retain the above copyright // notice, this list of conditions and the following disclaimer. // // 2. Redistributions in binary form must reproduce the above copyright // notice, this list of conditions and the following disclaimer in the // documentation and/or other materials provided with the distribution. // // 3. The names of its contributors may not be used to endorse or promote // products derived from this software without specific prior written // permission. // // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" // AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE // ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE // LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR // CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF // SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS // INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN // CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) // ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE // POSSIBILITY OF SUCH DAMAGE. // The original code included the following notice: // // When you use this, send an email to: m-mat@math.sci.hiroshima-u.ac.jp // with an appropriate reference to your work. // // It would be nice to CC: wagnerr@umich.edu and Cokus@math.washington.edu // when you write. #ifndef MERSENNETWISTER_H #define MERSENNETWISTER_H // Not thread safe (unless auto-initialization is avoided and each thread has // its own MTRand object) #include #include #include #include #include class MTRand { // Data public: typedef unsigned long uint32; // unsigned integer type, at least 32 bits enum { N = 624 }; // length of state vector enum { SAVE = N + 1 }; // length of array for save() protected: enum { M = 397 }; // period parameter uint32 state[N]; // internal state uint32 *pNext; // next value to get from state int left; // number of values left before reload needed // Methods public: MTRand( const uint32 oneSeed ); // initialize with a simple uint32 MTRand( uint32 *const bigSeed, uint32 const seedLength = N ); // or array MTRand(); // auto-initialize with /dev/urandom or time() and clock() MTRand( const MTRand& o ); // copy // Do NOT use for CRYPTOGRAPHY without securely hashing several returned // values together, otherwise the generator state can be learned after // reading 624 consecutive values. // Access to 32-bit random numbers uint32 randInt(); // integer in [0,2^32-1] uint32 randInt( const uint32 n ); // integer in [0,n] for n < 2^32 double rand(); // real number in [0,1] double rand( const double n ); // real number in [0,n] double randExc(); // real number in [0,1) double randExc( const double n ); // real number in [0,n) double randDblExc(); // real number in (0,1) double randDblExc( const double n ); // real number in (0,n) double operator()(); // same as rand() // Access to 53-bit random numbers (capacity of IEEE double precision) double rand53(); // real number in [0,1) // Access to nonuniform random number distributions double randNorm( const double mean = 0.0, const double stddev = 1.0 ); // Re-seeding functions with same behavior as initializers void seed( const uint32 oneSeed ); void seed( uint32 *const bigSeed, const uint32 seedLength = N ); void seed(); // Saving and loading generator state void save( uint32* saveArray ) const; // to array of size SAVE void load( uint32 *const loadArray ); // from such array friend std::ostream& operator<<( std::ostream& os, const MTRand& mtrand ); friend std::istream& operator>>( std::istream& is, MTRand& mtrand ); MTRand& operator=( const MTRand& o ); protected: void initialize( const uint32 oneSeed ); void reload(); uint32 hiBit( const uint32 u ) const { return u & 0x80000000UL; } uint32 loBit( const uint32 u ) const { return u & 0x00000001UL; } uint32 loBits( const uint32 u ) const { return u & 0x7fffffffUL; } uint32 mixBits( const uint32 u, const uint32 v ) const { return hiBit(u) | loBits(v); } uint32 magic( const uint32 u ) const { return loBit(u) ? 0x9908b0dfUL : 0x0UL; } uint32 twist( const uint32 m, const uint32 s0, const uint32 s1 ) const { return m ^ (mixBits(s0,s1)>>1) ^ magic(s1); } static uint32 hash( time_t t, clock_t c ); }; // Functions are defined in order of usage to assist inlining inline MTRand::uint32 MTRand::hash( time_t t, clock_t c ) { // Get a uint32 from t and c // Better than uint32(x) in case x is floating point in [0,1] // Based on code by Lawrence Kirby (fred@genesis.demon.co.uk) static uint32 differ = 0; // guarantee time-based seeds will change uint32 h1 = 0; unsigned char *p = (unsigned char *) &t; for( size_t i = 0; i < sizeof(t); ++i ) { h1 *= UCHAR_MAX + 2U; h1 += p[i]; } uint32 h2 = 0; p = (unsigned char *) &c; for( size_t j = 0; j < sizeof(c); ++j ) { h2 *= UCHAR_MAX + 2U; h2 += p[j]; } return ( h1 + differ++ ) ^ h2; } inline void MTRand::initialize( const uint32 seed ) { // Initialize generator state with seed // See Knuth TAOCP Vol 2, 3rd Ed, p.106 for multiplier. // In previous versions, most significant bits (MSBs) of the seed affect // only MSBs of the state array. Modified 9 Jan 2002 by Makoto Matsumoto. register uint32 *s = state; register uint32 *r = state; register int i = 1; *s++ = seed & 0xffffffffUL; for( ; i < N; ++i ) { *s++ = ( 1812433253UL * ( *r ^ (*r >> 30) ) + i ) & 0xffffffffUL; r++; } } inline void MTRand::reload() { // Generate N new values in state // Made clearer and faster by Matthew Bellew (matthew.bellew@home.com) static const int MmN = int(M) - int(N); // in case enums are unsigned register uint32 *p = state; register int i; for( i = N - M; i--; ++p ) *p = twist( p[M], p[0], p[1] ); for( i = M; --i; ++p ) *p = twist( p[MmN], p[0], p[1] ); *p = twist( p[MmN], p[0], state[0] ); left = N, pNext = state; } inline void MTRand::seed( const uint32 oneSeed ) { // Seed the generator with a simple uint32 initialize(oneSeed); reload(); } inline void MTRand::seed( uint32 *const bigSeed, const uint32 seedLength ) { // Seed the generator with an array of uint32's // There are 2^19937-1 possible initial states. This function allows // all of those to be accessed by providing at least 19937 bits (with a // default seed length of N = 624 uint32's). Any bits above the lower 32 // in each element are discarded. // Just call seed() if you want to get array from /dev/urandom initialize(19650218UL); register int i = 1; register uint32 j = 0; register int k = ( N > seedLength ? N : seedLength ); for( ; k; --k ) { state[i] = state[i] ^ ( (state[i-1] ^ (state[i-1] >> 30)) * 1664525UL ); state[i] += ( bigSeed[j] & 0xffffffffUL ) + j; state[i] &= 0xffffffffUL; ++i; ++j; if( i >= N ) { state[0] = state[N-1]; i = 1; } if( j >= seedLength ) j = 0; } for( k = N - 1; k; --k ) { state[i] = state[i] ^ ( (state[i-1] ^ (state[i-1] >> 30)) * 1566083941UL ); state[i] -= i; state[i] &= 0xffffffffUL; ++i; if( i >= N ) { state[0] = state[N-1]; i = 1; } } state[0] = 0x80000000UL; // MSB is 1, assuring non-zero initial array reload(); } inline void MTRand::seed() { // Seed the generator with an array from /dev/urandom if available // Otherwise use a hash of time() and clock() values // First try getting an array from /dev/urandom FILE* urandom = fopen( "/dev/urandom", "rb" ); if( urandom ) { uint32 bigSeed[N]; register uint32 *s = bigSeed; register int i = N; register bool success = true; while( success && i-- ) success = fread( s++, sizeof(uint32), 1, urandom ); fclose(urandom); if( success ) { seed( bigSeed, N ); return; } } // Was not successful, so use time() and clock() instead seed( hash( time(NULL), clock() ) ); } inline MTRand::MTRand( const uint32 oneSeed ) { seed(oneSeed); } inline MTRand::MTRand( uint32 *const bigSeed, const uint32 seedLength ) { seed(bigSeed,seedLength); } inline MTRand::MTRand() { seed(); } inline MTRand::MTRand( const MTRand& o ) { register const uint32 *t = o.state; register uint32 *s = state; register int i = N; for( ; i--; *s++ = *t++ ) {} left = o.left; pNext = &state[N-left]; } inline MTRand::uint32 MTRand::randInt() { // Pull a 32-bit integer from the generator state // Every other access function simply transforms the numbers extracted here if( left == 0 ) reload(); --left; register uint32 s1; s1 = *pNext++; s1 ^= (s1 >> 11); s1 ^= (s1 << 7) & 0x9d2c5680UL; s1 ^= (s1 << 15) & 0xefc60000UL; return ( s1 ^ (s1 >> 18) ); } inline MTRand::uint32 MTRand::randInt( const uint32 n ) { // Find which bits are used in n // Optimized by Magnus Jonsson (magnus@smartelectronix.com) uint32 used = n; used |= used >> 1; used |= used >> 2; used |= used >> 4; used |= used >> 8; used |= used >> 16; // Draw numbers until one is found in [0,n] uint32 i; do i = randInt() & used; // toss unused bits to shorten search while( i > n ); return i; } inline double MTRand::rand() { return double(randInt()) * (1.0/4294967295.0); } inline double MTRand::rand( const double n ) { return rand() * n; } inline double MTRand::randExc() { return double(randInt()) * (1.0/4294967296.0); } inline double MTRand::randExc( const double n ) { return randExc() * n; } inline double MTRand::randDblExc() { return ( double(randInt()) + 0.5 ) * (1.0/4294967296.0); } inline double MTRand::randDblExc( const double n ) { return randDblExc() * n; } inline double MTRand::rand53() { uint32 a = randInt() >> 5, b = randInt() >> 6; return ( a * 67108864.0 + b ) * (1.0/9007199254740992.0); // by Isaku Wada } inline double MTRand::randNorm( const double mean, const double stddev ) { // Return a real number from a normal (Gaussian) distribution with given // mean and standard deviation by polar form of Box-Muller transformation double x, y, r; do { x = 2.0 * rand() - 1.0; y = 2.0 * rand() - 1.0; r = x * x + y * y; } while ( r >= 1.0 || r == 0.0 ); double s = sqrt( -2.0 * log(r) / r ); return mean + x * s * stddev; } inline double MTRand::operator()() { return rand(); } inline void MTRand::save( uint32* saveArray ) const { register const uint32 *s = state; register uint32 *sa = saveArray; register int i = N; for( ; i--; *sa++ = *s++ ) {} *sa = left; } inline void MTRand::load( uint32 *const loadArray ) { register uint32 *s = state; register uint32 *la = loadArray; register int i = N; for( ; i--; *s++ = *la++ ) {} left = *la; pNext = &state[N-left]; } inline std::ostream& operator<<( std::ostream& os, const MTRand& mtrand ) { register const MTRand::uint32 *s = mtrand.state; register int i = mtrand.N; for( ; i--; os << *s++ << "\t" ) {} return os << mtrand.left; } inline std::istream& operator>>( std::istream& is, MTRand& mtrand ) { register MTRand::uint32 *s = mtrand.state; register int i = mtrand.N; for( ; i--; is >> *s++ ) {} is >> mtrand.left; mtrand.pNext = &mtrand.state[mtrand.N-mtrand.left]; return is; } inline MTRand& MTRand::operator=( const MTRand& o ) { if( this == &o ) return (*this); register const uint32 *t = o.state; register uint32 *s = state; register int i = N; for( ; i--; *s++ = *t++ ) {} left = o.left; pNext = &state[N-left]; return (*this); } #endif // MERSENNETWISTER_H // Change log: // // v0.1 - First release on 15 May 2000 // - Based on code by Makoto Matsumoto, Takuji Nishimura, and Shawn Cokus // - Translated from C to C++ // - Made completely ANSI compliant // - Designed convenient interface for initialization, seeding, and // obtaining numbers in default or user-defined ranges // - Added automatic seeding from /dev/urandom or time() and clock() // - Provided functions for saving and loading generator state // // v0.2 - Fixed bug which reloaded generator one step too late // // v0.3 - Switched to clearer, faster reload() code from Matthew Bellew // // v0.4 - Removed trailing newline in saved generator format to be consistent // with output format of built-in types // // v0.5 - Improved portability by replacing static const int's with enum's and // clarifying return values in seed(); suggested by Eric Heimburg // - Removed MAXINT constant; use 0xffffffffUL instead // // v0.6 - Eliminated seed overflow when uint32 is larger than 32 bits // - Changed integer [0,n] generator to give better uniformity // // v0.7 - Fixed operator precedence ambiguity in reload() // - Added access for real numbers in (0,1) and (0,n) // // v0.8 - Included time.h header to properly support time_t and clock_t // // v1.0 - Revised seeding to match 26 Jan 2002 update of Nishimura and Matsumoto // - Allowed for seeding with arrays of any length // - Added access for real numbers in [0,1) with 53-bit resolution // - Added access for real numbers from normal (Gaussian) distributions // - Increased overall speed by optimizing twist() // - Doubled speed of integer [0,n] generation // - Fixed out-of-range number generation on 64-bit machines // - Improved portability by substituting literal constants for long enum's // - Changed license from GNU LGPL to BSD // // v1.1 - Corrected parameter label in randNorm from "variance" to "stddev" // - Changed randNorm algorithm from basic to polar form for efficiency // - Updated includes from deprecated to standard forms // - Cleaned declarations and definitions to please Intel compiler // - Revised twist() operator to work on ones'-complement machines // - Fixed reload() function to work when N and M are unsigned // - Added copy constructor and copy operator from Salvador Espana april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/MersenneTwister.html000066400000000000000000000157241234204160600270730ustar00rootroot00000000000000 Mersenne Twister Random Number Generator

Mersenne Twister Random Number Generator

The Mersenne Twister is an algorithm for generating random numbers. It was designed with consideration of the flaws in various other generators. It has an incredibly long period, 219937-1 (more than 106001), before its sequence of numbers will repeat. And it has 623 dimensions of equidistribution, meaning that all sequences up to 623 numbers long are equally probable. The generator is also fast; it avoids multiplication and division, and it benefits from caches and pipelines. See the inventors' page or Wikipedia article for more details.

I have implemented the Mersenne Twister in a C++ class that is fast, convenient, portable, and free. Take a look at the class and example program. Or download the complete package in zip or tarball format.

Features:

  • Simple creation of generator with MTRand r;
  • Convenient access with double a = r();
  • Generation of integers or floating-point numbers
  • Easy seeding options
    • Automatically from /dev/urandom or time() and clock()
    • Single integer
    • Arrays of any length (to access full 19937-bit range)
  • Ability to save and restore state
  • Thorough example program
  • Validation and performance tests
  • Open source code under BSD license

The included performance tests verify the speed and correctness of this generator compared to known sequences and alternative implementations. It has been tested in a variety of hardware and software environments including: Intel Core 2 Quad, AMD Opteron 848; Red Hat Linux, Mac OS X 10.5 Leopard, Windows XP; GNU Compiler Collection 4.2 (g++), Intel Compiler 10.1 (icpc), Portland Group International Compiler 9.0 (pgCC), Pathscale Compiler 3.1 (pathCC), and Microsoft Visual C++ 2008.

Version 1.0 incorporated several changes released by the Mersenne Twister inventors on 26 January 2002. The seeding algorithm was revised to correct a minor problem in which the highest bit of the seed was not well represented in the generator state. The ability to start with large seeds was extended to seed arrays of arbitrary length. Access was added for 53-bit real numbers in [0,1), matching the accuracy of IEEE doubles. Also, the software license was changed from the GNU Lesser General Public License to a BSD license, making commercial use of this software more convenient.

The v1.0 release included some other improvements as well. By popular demand, access was added for real numbers from normal (Gaussian) distributions. Safeguards were added to prevent out-of-range number generation on 64-bit machines. Finally, new optimizations yielded 25% faster generation overall and 100% faster generation for integers in [0,n].

Version 1.1 focuses on portability and reliability. Instances of deprecated C++ features were modernized. Operations were rewritten to work on ones'-complement machines and environments with unsigned enumerations. The test program was toughened and expanded. A slight correction was made in terminology; the parameter for setting the standard deviation of a Gaussian distribution is now properly labeled as "stddev" rather than "variance". A copy constructor and copy operator were also added. The seed correlations, generator functions, output sequences, and save formats are identical to Version 1.0.

Downloads:
Version 1.1Mersenne-1.1.zipMersenne-1.1.tar.gz
Version 1.0Mersenne-1.0.zipMersenne-1.0.tar.gz
Version 0.8Mersenne-0.8.zipMersenne-0.8.tar.gz
Version 0.7Mersenne-0.7.zipMersenne-0.7.tar.gz
Version 0.6Mersenne-0.6.zipMersenne-0.6.tar.gz
Version 0.5Mersenne-0.5.zipMersenne-0.5.tar.gz
Version 0.4Mersenne-0.4.zipMersenne-0.4.tar.gz
Version 0.3Mersenne-0.3.zipMersenne-0.3.tar.gz
Version 0.2Mersenne-0.2.zipMersenne-0.2.tar.gz
Version 0.1Mersenne-0.1.zipMersenne-0.1.tar.gz

Comments, questions, and improvements are always welcome.

If you like this software, you might also want to try my ConfigFile (C++) configuration file reader and Anneal.py (Python) module for optimization by simulated annealing.

Creations of Rick Wagner (wagnerr@umich.edu) 30 September 2009 april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/README000066400000000000000000000040561234204160600237230ustar00rootroot00000000000000README for MersenneTwister.h package Richard J. Wagner v1.1 29 September 2009 Instructions ------------ The only necessary file for using this Mersenne Twister random number generator is "MersenneTwister.h". The class name is MTRand. Usage examples are in "example.cpp". Linux, Unix, and Max OS X users can type "make" to compile and then type "./example" to run the example program. To test the output and compare to other random number generators type "make test". When you are done with testing, type "make clean" to get rid of temporary files. For Windows users with a compiler such as Microsoft Visual C++, simply add "example.cpp" and "MersenneTwister.h" to an empty C++ console application. Compile and run to see the generator in action. The "make" command will not work, so the test program "Test/Wagner/Wagner.cpp" must be run manually if desired. The output should contain no error messages and the lists of random numbers should exactly match those in "Test/Reference.out". If you encounter any problems, please e-mail a copy of the output and a description of the test system to me at "wagnerr@umich.edu". Any other feedback is welcome too. Installation ------------ Just copy the file "MersenneTwister.h" to your working directory or some other place where your compiler can find it. Put the following line at the top of your program to access the MTRand class: #include "MersenneTwister.h" Contents -------- README - this file MersenneTwister.h - declaration and implementation of MTRand class example.cpp - examples of using MTRand Makefile - instructions used by "make" command MersenneTwister.html - Web page about MersenneTwister.h Random.jpg - background for MersenneTwister.html Test/Makefile - instructions used by "make" command for test programs Test/Results.sh - script to examine the output from test programs Test/Reference.out - expected output from MT random number generators Test/Wagner/ - test program for MersenneTwister.h Test/*/ - test programs for other MT implementations april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Random.jpg000066400000000000000000000146051234204160600247660ustar00rootroot00000000000000JFIFKKLEAD Technologies Inc. V1.01   %,&.-+&*)06E;03B4)*ȫzʹ riIkv{'*}9dN("66{mv-b⥦wִp\rJ@= T=mGQPi=赘,T@ (.s簨` zUM/|r`ItUaڝxQ*o`wt:q@ CIHgo݀1S I$ ғ\(H`\.X:ӌ*v5p1֐ u vOO&OZ6{C-ȪZ#*yu `bnVܶB<~tPQ' тɬa 6/q\cǭ@c@՛`9vZ5 d+`!n]xsKp(JG=+D"D-;[@q9y "Qc+ RC%`qURE pj J5$MR;ԶM ufppx 6m.!ԭF'bH}l 6SoPޫpsz!-+AH`{GR@"\R{cl {֊辝RYMF(@ R)Xg+ v%a^G4\O\`PJ c# B2i}*4qҕ1qC@  =*sPsU yj*`.2=)^4 l`@FV։py8T F4lba 'y9JXϭ (nTm$g=tgҖ*i4[M.\m4-0; L=M0"pM1h;h=)\ԌnAn[!ϡ&LtB8 ' wAS@5Oka5 j$dMqׁR0|ϔ14PTڛdn@*&d($S]@nW8&X~:z6*,0)0*bN+AQ8@E1 zR@06>Zl؀sj7iލ\q.G&$[,21ASv#ҘV96u!yB3P݀PEN<+`(WT=Ͻ N9@3 jQGMÑR`T BqЕ l=@"ↀ y  8<$*FE'"#<֞:6!Ni5qSk0"k`sޝR^qR ]^6zـv `FIݴg\qME$N:PjF;UR3ҝ0 )41R ;"H=iQԌF u❄F㎕I  i=PNM V!o/*6`& OSC遏cMIJCҗ7@!(zbƚP;W 3&~1ҡZB8=7n 7 .mp/E\zR֘ )ךvN*vgڅ@ QlԱۊawѪRx(q4@IrG~N^pG=@vќȧxQab҅ >a4tgڥE V(CJW0 SҼS'44k*OzLE:Ұ lҩ^4h{ 9⯚/`Py*Z9N8Qp$tC@5b*H0Oo4!G4E2)u`zS>AT &B gv3 )7po͞}cRhA)DqM1,tMnP1=(Ө P:@=]GN8 x9U)~_CJۀxpJjH)HB I =xN(JziݏMXq6`*oaW={sU1.#april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/000077500000000000000000000000001234204160600237555ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Bedaux/000077500000000000000000000000001234204160600251655ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Bedaux/Bedaux.cpp000066400000000000000000000032251234204160600271030ustar00rootroot00000000000000// Bedaux.cpp // Test output and speed of Bedaux's Mersenne Twister class // Richard J. Wagner 28 Sep 2009 // This is free, unrestricted software void of any warranty. #include #include #include "mtrand.h" int main ( int argc, char * const argv[] ) { printf( "Testing output and speed of Bedaux's Mersenne Twister class\n" ); printf( "\nTest of random integer generation:\n" ); unsigned long oneSeed = 4357UL; unsigned long bigSeed[4] = { 0x123UL, 0x234UL, 0x345UL, 0x456UL }; printf( "\nTest of random integer generation:\n" ); MTRand_int32 mtrand1( bigSeed, 4 ); unsigned long i; for( i = 0; i < 1000UL; ++i ) { printf( "%10lu ", mtrand1() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of random real number [0,1) generation:\n" ); MTRand mtrand2( bigSeed, 4 ); for( i = 0; i < 1000UL; ++i ) mtrand2(); // advance to the proper position in the series for( i = 0; i < 1000UL; ++i ) { printf( "%10.8f ", mtrand2() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of random real number [0,1] generation:\n" ); MTRand_closed mtrand3( oneSeed ); for( i = 0; i < 2000UL; ++i ) { printf( "%10.8f ", mtrand3() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of time to generate one billion random integers:\n" ); MTRand_int32 mtrand4( oneSeed ); unsigned long junk = 0; clock_t start = clock(); for( i = 0; i < 1000000000UL; ++i ) { junk ^= mtrand4(); } clock_t stop = clock(); if( junk == 0 ) printf( "jinx\n" ); printf( "Time elapsed = " ); printf( "%8.3f", double( stop - start ) / CLOCKS_PER_SEC ); printf( " s\n" ); return 0; } april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Bedaux/mtrand.cpp000066400000000000000000000040231234204160600271550ustar00rootroot00000000000000// mtrand.cpp, see include file mtrand.h for information #include "mtrand.h" // non-inline function definitions and static member definitions cannot // reside in header file because of the risk of multiple declarations // initialization of static private members unsigned long MTRand_int32::state[n] = {0x0UL}; int MTRand_int32::p = 0; bool MTRand_int32::init = false; void MTRand_int32::gen_state() { // generate new state vector for (int i = 0; i < (n - m); ++i) state[i] = state[i + m] ^ twiddle(state[i], state[i + 1]); for (int i = n - m; i < (n - 1); ++i) state[i] = state[i + m - n] ^ twiddle(state[i], state[i + 1]); state[n - 1] = state[m - 1] ^ twiddle(state[n - 1], state[0]); p = 0; // reset position } void MTRand_int32::seed(unsigned long s) { // init by 32 bit seed state[0] = s & 0xFFFFFFFFUL; // for > 32 bit machines for (int i = 1; i < n; ++i) { state[i] = 1812433253UL * (state[i - 1] ^ (state[i - 1] >> 30)) + i; // see Knuth TAOCP Vol2. 3rd Ed. P.106 for multiplier // in the previous versions, MSBs of the seed affect only MSBs of the array state // 2002/01/09 modified by Makoto Matsumoto state[i] &= 0xFFFFFFFFUL; // for > 32 bit machines } p = n; // force gen_state() to be called for next random number } void MTRand_int32::seed(const unsigned long* array, int size) { // init by array seed(19650218UL); int i = 1, j = 0; for (int k = ((n > size) ? n : size); k; --k) { state[i] = (state[i] ^ ((state[i - 1] ^ (state[i - 1] >> 30)) * 1664525UL)) + array[j] + j; // non linear state[i] &= 0xFFFFFFFFUL; // for > 32 bit machines ++j; j %= size; if ((++i) == n) { state[0] = state[n - 1]; i = 1; } } for (int k = n - 1; k; --k) { state[i] = (state[i] ^ ((state[i - 1] ^ (state[i - 1] >> 30)) * 1566083941UL)) - i; state[i] &= 0xFFFFFFFFUL; // for > 32 bit machines if ((++i) == n) { state[0] = state[n - 1]; i = 1; } } state[0] = 0x80000000UL; // MSB is 1; assuring non-zero initial array p = n; // force gen_state() to be called for next random number } april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Bedaux/mtrand.h000066400000000000000000000153741234204160600266350ustar00rootroot00000000000000// mtrand.h // C++ include file for MT19937, with initialization improved 2002/1/26. // Coded by Takuji Nishimura and Makoto Matsumoto. // Ported to C++ by Jasper Bedaux 2003/1/1 (see http://www.bedaux.net/mtrand/). // The generators returning floating point numbers are based on // a version by Isaku Wada, 2002/01/09 // // Copyright (C) 1997 - 2002, Makoto Matsumoto and Takuji Nishimura, // All rights reserved. // // Redistribution and use in source and binary forms, with or without // modification, are permitted provided that the following conditions // are met: // // 1. Redistributions of source code must retain the above copyright // notice, this list of conditions and the following disclaimer. // // 2. Redistributions in binary form must reproduce the above copyright // notice, this list of conditions and the following disclaimer in the // documentation and/or other materials provided with the distribution. // // 3. The names of its contributors may not be used to endorse or promote // products derived from this software without specific prior written // permission. // // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS // "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT // LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR // A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR // CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, // EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, // PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR // PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF // LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING // NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS // SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. // // Any feedback is very welcome. // http://www.math.keio.ac.jp/matumoto/emt.html // email: matumoto@math.keio.ac.jp // // Feedback about the C++ port should be sent to Jasper Bedaux, // see http://www.bedaux.net/mtrand/ for e-mail address and info. #ifndef MTRAND_H #define MTRAND_H class MTRand_int32 { // Mersenne Twister random number generator public: // default constructor: uses default seed only if this is the first instance MTRand_int32() { if (!init) seed(5489UL); init = true; } // constructor with 32 bit int as seed MTRand_int32(unsigned long s) { seed(s); init = true; } // constructor with array of size 32 bit ints as seed MTRand_int32(const unsigned long* array, int size) { seed(array, size); init = true; } // the two seed functions void seed(unsigned long); // seed with 32 bit integer void seed(const unsigned long*, int size); // seed with array // overload operator() to make this a generator (functor) unsigned long operator()() { return rand_int32(); } // 2007-02-11: made the destructor virtual; thanks "double more" for pointing this out virtual ~MTRand_int32() {} // destructor protected: // used by derived classes, otherwise not accessible; use the ()-operator unsigned long rand_int32(); // generate 32 bit random integer private: static const int n = 624, m = 397; // compile time constants // the variables below are static (no duplicates can exist) static unsigned long state[n]; // state vector array static int p; // position in state array static bool init; // true if init function is called // private functions used to generate the pseudo random numbers unsigned long twiddle(unsigned long, unsigned long); // used by gen_state() void gen_state(); // generate new state // make copy constructor and assignment operator unavailable, they don't make sense MTRand_int32(const MTRand_int32&); // copy constructor not defined void operator=(const MTRand_int32&); // assignment operator not defined }; // inline for speed, must therefore reside in header file inline unsigned long MTRand_int32::twiddle(unsigned long u, unsigned long v) { return (((u & 0x80000000UL) | (v & 0x7FFFFFFFUL)) >> 1) ^ ((v & 1UL) ? 0x9908B0DFUL : 0x0UL); } inline unsigned long MTRand_int32::rand_int32() { // generate 32 bit random int if (p == n) gen_state(); // new state vector needed // gen_state() is split off to be non-inline, because it is only called once // in every 624 calls and otherwise irand() would become too big to get inlined unsigned long x = state[p++]; x ^= (x >> 11); x ^= (x << 7) & 0x9D2C5680UL; x ^= (x << 15) & 0xEFC60000UL; return x ^ (x >> 18); } // generates double floating point numbers in the half-open interval [0, 1) class MTRand : public MTRand_int32 { public: MTRand() : MTRand_int32() {} MTRand(unsigned long seed) : MTRand_int32(seed) {} MTRand(const unsigned long* seed, int size) : MTRand_int32(seed, size) {} ~MTRand() {} double operator()() { return static_cast(rand_int32()) * (1. / 4294967296.); } // divided by 2^32 private: MTRand(const MTRand&); // copy constructor not defined void operator=(const MTRand&); // assignment operator not defined }; // generates double floating point numbers in the closed interval [0, 1] class MTRand_closed : public MTRand_int32 { public: MTRand_closed() : MTRand_int32() {} MTRand_closed(unsigned long seed) : MTRand_int32(seed) {} MTRand_closed(const unsigned long* seed, int size) : MTRand_int32(seed, size) {} ~MTRand_closed() {} double operator()() { return static_cast(rand_int32()) * (1. / 4294967295.); } // divided by 2^32 - 1 private: MTRand_closed(const MTRand_closed&); // copy constructor not defined void operator=(const MTRand_closed&); // assignment operator not defined }; // generates double floating point numbers in the open interval (0, 1) class MTRand_open : public MTRand_int32 { public: MTRand_open() : MTRand_int32() {} MTRand_open(unsigned long seed) : MTRand_int32(seed) {} MTRand_open(const unsigned long* seed, int size) : MTRand_int32(seed, size) {} ~MTRand_open() {} double operator()() { return (static_cast(rand_int32()) + .5) * (1. / 4294967296.); } // divided by 2^32 private: MTRand_open(const MTRand_open&); // copy constructor not defined void operator=(const MTRand_open&); // assignment operator not defined }; // generates 53 bit resolution doubles in the half-open interval [0, 1) class MTRand53 : public MTRand_int32 { public: MTRand53() : MTRand_int32() {} MTRand53(unsigned long seed) : MTRand_int32(seed) {} MTRand53(const unsigned long* seed, int size) : MTRand_int32(seed, size) {} ~MTRand53() {} double operator()() { return (static_cast(rand_int32() >> 5) * 67108864. + static_cast(rand_int32() >> 6)) * (1. / 9007199254740992.); } private: MTRand53(const MTRand53&); // copy constructor not defined void operator=(const MTRand53&); // assignment operator not defined }; #endif // MTRAND_H april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Blevins/000077500000000000000000000000001234204160600253575ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Blevins/Blevins.cpp000066400000000000000000000032031234204160600274630ustar00rootroot00000000000000// Blevins.cpp // Test output and speed of Blevins's Mersenne Twister class // Richard J. Wagner 28 Sep 2009 // This is free, unrestricted software void of any warranty. #include #include #include "mt.h" int main ( int argc, char * const argv[] ) { printf( "Testing output and speed of Blevins's Mersenne Twister class\n" ); printf( "\nTest of random integer generation:\n" ); unsigned long oneSeed = 4357UL; unsigned long bigSeed[4] = { 0x123UL, 0x234UL, 0x345UL, 0x456UL }; printf( "\nTest of random integer generation:\n" ); MersenneTwister mtrand1; mtrand1.init_by_array( bigSeed, 4 ); unsigned long i; for( i = 0; i < 1000UL; ++i ) { printf( "%10lu ", mtrand1.genrand_int32() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of random real number [0,1) generation:\n" ); for( i = 0; i < 1000UL; ++i ) { printf( "%10.8f ", mtrand1.genrand_real2() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of random real number [0,1] generation:\n" ); mtrand1.init_genrand( oneSeed ); for( i = 0; i < 2000UL; ++i ) { printf( "%10.8f ", mtrand1.genrand_real1() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of time to generate one billion random integers:\n" ); MersenneTwister mtrand2; mtrand2.init_genrand( oneSeed ); unsigned long junk = 0; clock_t start = clock(); for( i = 0; i < 1000000000UL; ++i ) { junk ^= mtrand2.genrand_int32(); } clock_t stop = clock(); if( junk == 0 ) printf( "jinx\n" ); printf( "Time elapsed = " ); printf( "%8.3f", double( stop - start ) / CLOCKS_PER_SEC ); printf( " s\n" ); return 0; } april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Blevins/mt.cc000066400000000000000000000167621234204160600263220ustar00rootroot00000000000000/** * C++ Mersenne Twister wrapper class written by * Jason R. Blevins on July 24, 2006. * Based on the original MT19937 C code by * Takuji Nishimura and Makoto Matsumoto. */ /* A C-program for MT19937, with initialization improved 2002/1/26. Coded by Takuji Nishimura and Makoto Matsumoto. Before using, initialize the state by using init_genrand(seed) or init_by_array(init_key, key_length). Copyright (C) 1997 - 2002, Makoto Matsumoto and Takuji Nishimura, All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. 3. The names of its contributors may not be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. Any feedback is very welcome. http://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/emt.html email: m-mat @ math.sci.hiroshima-u.ac.jp (remove space) */ #include #include "april_assert.h" #include "mt.h" /** * Constructor */ MersenneTwister::MersenneTwister(void): mt_(new unsigned long[N]), mti_(N+1), init_key_(NULL), key_length_(0), s_(0), seeded_by_array_(false), seeded_by_int_(false) { unsigned long init[4] = { 0x123, 0x234, 0x345, 0x456 }; unsigned long length = 4; init_by_array(init, length); } /** * Destructor */ MersenneTwister::~MersenneTwister(void) { april_assert(mt_ != NULL); delete[] mt_; mt_ = NULL; april_assert(init_key_ != NULL); delete[] init_key_; init_key_ = NULL; } /** * Initializes the Mersenne Twister with a seed. * * \param s seed */ void MersenneTwister::init_genrand(unsigned long s) { mt_[0]= s & 0xffffffffUL; for (mti_=1; mti_> 30)) + mti_); /* See Knuth TAOCP Vol2. 3rd Ed. P.106 for multiplier. */ /* In the previous versions, MSBs of the seed affect */ /* only MSBs of the array mt_[]. */ /* 2002/01/09 modified by Makoto Matsumoto */ mt_[mti_] &= 0xffffffffUL; /* for >32 bit machines */ } // Store the seed s_ = s; seeded_by_array_ = false; seeded_by_int_ = true; } /** * Seed the Mersenne Twister using an array. * * \param init_key an array for initializing keys * \param key_length the length of \a init_key */ void MersenneTwister::init_by_array(unsigned long* init_key, int key_length) { // Store the key array int i, j, k; init_genrand(19650218UL); i=1; j=0; k = (N>key_length ? N : key_length); for (; k; k--) { mt_[i] = (mt_[i] ^ ((mt_[i-1] ^ (mt_[i-1] >> 30)) * 1664525UL)) + init_key[j] + j; /* non linear */ mt_[i] &= 0xffffffffUL; /* for WORDSIZE > 32 machines */ i++; j++; if (i>=N) { mt_[0] = mt_[N-1]; i=1; } if (j>=key_length) j=0; } for (k=N-1; k; k--) { mt_[i] = (mt_[i] ^ ((mt_[i-1] ^ (mt_[i-1] >> 30)) * 1566083941UL)) - i; /* non linear */ mt_[i] &= 0xffffffffUL; /* for WORDSIZE > 32 machines */ i++; if (i>=N) { mt_[0] = mt_[N-1]; i=1; } } mt_[0] = 0x80000000UL; /* MSB is 1; assuring non-zero initial array */ // Store the seed if (init_key_ != NULL) { delete[] init_key_; } init_key_ = new unsigned long[key_length]; for (int k = 0; k < key_length; k++) { init_key_[k] = init_key[k]; } key_length_ = key_length; seeded_by_int_ = false; seeded_by_array_ = true; } /** * Generates a random number on [0,0xffffffff]-interval * * \return random number on [0, 0xffffffff] */ unsigned long MersenneTwister::genrand_int32(void) { unsigned long y; static unsigned long mag01[2]={0x0UL, MATRIX_A}; /* mag01[x] = x * MATRIX_A for x=0,1 */ if (mti_ >= N) { /* generate N words at one time */ int kk; if (mti_ == N+1) /* if init_genrand() has not been called, */ init_genrand(5489UL); /* a default initial seed is used */ for (kk=0;kk> 1) ^ mag01[y & 0x1UL]; } for (;kk> 1) ^ mag01[y & 0x1UL]; } y = (mt_[N-1]&UPPER_MASK)|(mt_[0]&LOWER_MASK); mt_[N-1] = mt_[M-1] ^ (y >> 1) ^ mag01[y & 0x1UL]; mti_ = 0; } y = mt_[mti_++]; /* Tempering */ y ^= (y >> 11); y ^= (y << 7) & 0x9d2c5680UL; y ^= (y << 15) & 0xefc60000UL; y ^= (y >> 18); return y; } /** * Generates a random integer on [0,0x7fffffff]. * * \return a random integer on [0,0x7fffffff] */ long MersenneTwister::genrand_int31(void) { return (long)(genrand_int32()>>1); } /** * Generates a random real number on [0,1]. * * \return a random real number on [0,1] */ double MersenneTwister::genrand_real1(void) { return genrand_int32()*(1.0/4294967295.0); /* divided by 2^32-1 */ } /** * Generates a random real number on [0,1). * * \return a random real number on [0,1) */ double MersenneTwister::genrand_real2(void) { return genrand_int32()*(1.0/4294967296.0); /* divided by 2^32 */ } /** * Generates a random real number on (0,1). * * \return a random real number on (0,1) */ double MersenneTwister::genrand_real3(void) { return (((double)genrand_int32()) + 0.5)*(1.0/4294967296.0); /* divided by 2^32 */ } /** * Generates a random real number on [0,1) with 53-bit precision. * * \return a random 53-bit real number on [0,1) */ double MersenneTwister::genrand_res53(void) { unsigned long a=genrand_int32()>>5, b=genrand_int32()>>6; return(a*67108864.0+b)*(1.0/9007199254740992.0); } /* These real versions are due to Isaku Wada, 2002/01/09 added */ /** * Print interesting information about the Mersenne Twister. * */ void MersenneTwister::print(void) { std::cout << "MersenneTwister (M. Matsumoto and T. Nishimura), seed = "; if (seeded_by_int_) { std::cout << s_ << std::endl; } else { std::cout << "[ "; for (int k = 0; k < key_length_; k++) { std::cout << init_key_[k] << " "; } std::cout << "]" << std::endl; } } april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Blevins/mt.h000066400000000000000000000034271234204160600261560ustar00rootroot00000000000000/** * mt.h: Mersenne Twister header file * * Jason R. Blevins * Durham, March 7, 2007 */ #ifndef METRICS_MT_H #define METRICS_MT_H /** * Mersenne Twister. * * M. Matsumoto and T. Nishimura, "Mersenne Twister: A * 623-dimensionally equidistributed uniform pseudorandom number * generator", ACM Trans. on Modeling and Computer Simulation Vol. 8, * No. 1, January pp.3-30 (1998). * * http://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/emt.html. */ class MersenneTwister { public: MersenneTwister(void); ~MersenneTwister(void); double random(void) { return genrand_real1(); } void print(void); void init_genrand(unsigned long s); void init_by_array(unsigned long* init_key, int key_length); unsigned long genrand_int32(void); long genrand_int31(void); double genrand_real1(void); double genrand_real2(void); double genrand_real3(void); double genrand_res53(void); private: static const int N = 624; static const int M = 397; // constant vector a static const unsigned long MATRIX_A = 0x9908b0dfUL; // most significant w-r bits static const unsigned long UPPER_MASK = 0x80000000UL; // least significant r bits static const unsigned long LOWER_MASK = 0x7fffffffUL; unsigned long* mt_; // the state vector int mti_; // mti == N+1 means mt not initialized unsigned long* init_key_; // Storage for the seed vector int key_length_; // Seed vector length unsigned long s_; // Seed integer bool seeded_by_array_; // Seeded by an array bool seeded_by_int_; // Seeded by an integer }; #endif // METRICS_MT_H april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Cokus/000077500000000000000000000000001234204160600250415ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Cokus/Cokus.cpp000066400000000000000000000030361234204160600266330ustar00rootroot00000000000000// Cokus.cpp // Test output and speed of Cokus's Mersenne Twister program // Richard J. Wagner 28 Sep 2009 // This is free, unrestricted software void of any warranty. #include #include #include "mt19937ar-cok.c" int main ( int argc, char * const argv[] ) { printf( "Testing output and speed of Cokus's Mersenne Twister program\n" ); printf( "\nTest of random integer generation:\n" ); unsigned long oneSeed = 4357UL; unsigned long bigSeed[4] = { 0x123UL, 0x234UL, 0x345UL, 0x456UL }; printf( "\nTest of random integer generation:\n" ); init_by_array( bigSeed, 4 ); unsigned long i; for( i = 0; i < 1000UL; ++i ) { printf( "%10lu ", genrand_int32() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of random real number [0,1) generation:\n" ); for( i = 0; i < 1000UL; ++i ) { printf( "%10.8f ", genrand_real2() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of random real number [0,1] generation:\n" ); init_genrand( oneSeed ); for( i = 0; i < 2000UL; ++i ) { printf( "%10.8f ", genrand_real1() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of time to generate one billion random integers:\n" ); init_genrand( oneSeed ); unsigned long junk = 0; clock_t start = clock(); for( i = 0; i < 1000000000UL; ++i ) { junk ^= genrand_int32(); } clock_t stop = clock(); if( junk == 0 ) printf( "jinx\n" ); printf( "Time elapsed = " ); printf( "%8.3f", double( stop - start ) / CLOCKS_PER_SEC ); printf( " s\n" ); return 0; } april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Cokus/mt19937ar-cok.c000066400000000000000000000163101234204160600273400ustar00rootroot00000000000000/* A C-program for MT19937, with initialization improved 2002/2/10. Coded by Takuji Nishimura and Makoto Matsumoto. This is a faster version by taking Shawn Cokus's optimization, Matthe Bellew's simplification, Isaku Wada's real version. Before using, initialize the state by using init_genrand(seed) or init_by_array(init_key, key_length). Copyright (C) 1997 - 2002, Makoto Matsumoto and Takuji Nishimura, All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. 3. The names of its contributors may not be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. Any feedback is very welcome. http://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/emt.html email: m-mat @ math.sci.hiroshima-u.ac.jp (remove space) */ #include /* Period parameters */ #define N 624 #define M 397 #define MATRIX_A 0x9908b0dfUL /* constant vector a */ #define UMASK 0x80000000UL /* most significant w-r bits */ #define LMASK 0x7fffffffUL /* least significant r bits */ #define MIXBITS(u,v) ( ((u) & UMASK) | ((v) & LMASK) ) #define TWIST(u,v) ((MIXBITS(u,v) >> 1) ^ ((v)&1UL ? MATRIX_A : 0UL)) static unsigned long state[N]; /* the array for the state vector */ static int left = 1; static int initf = 0; static unsigned long *next; /* initializes state[N] with a seed */ void init_genrand(unsigned long s) { int j; state[0]= s & 0xffffffffUL; for (j=1; j> 30)) + j); /* See Knuth TAOCP Vol2. 3rd Ed. P.106 for multiplier. */ /* In the previous versions, MSBs of the seed affect */ /* only MSBs of the array state[]. */ /* 2002/01/09 modified by Makoto Matsumoto */ state[j] &= 0xffffffffUL; /* for >32 bit machines */ } left = 1; initf = 1; } /* initialize by an array with array-length */ /* init_key is the array for initializing keys */ /* key_length is its length */ /* slight change for C++, 2004/2/26 */ void init_by_array(unsigned long init_key[], int key_length) { int i, j, k; init_genrand(19650218UL); i=1; j=0; k = (N>key_length ? N : key_length); for (; k; k--) { state[i] = (state[i] ^ ((state[i-1] ^ (state[i-1] >> 30)) * 1664525UL)) + init_key[j] + j; /* non linear */ state[i] &= 0xffffffffUL; /* for WORDSIZE > 32 machines */ i++; j++; if (i>=N) { state[0] = state[N-1]; i=1; } if (j>=key_length) j=0; } for (k=N-1; k; k--) { state[i] = (state[i] ^ ((state[i-1] ^ (state[i-1] >> 30)) * 1566083941UL)) - i; /* non linear */ state[i] &= 0xffffffffUL; /* for WORDSIZE > 32 machines */ i++; if (i>=N) { state[0] = state[N-1]; i=1; } } state[0] = 0x80000000UL; /* MSB is 1; assuring non-zero initial array */ left = 1; initf = 1; } static void next_state(void) { unsigned long *p=state; int j; /* if init_genrand() has not been called, */ /* a default initial seed is used */ if (initf==0) init_genrand(5489UL); left = N; next = state; for (j=N-M+1; --j; p++) *p = p[M] ^ TWIST(p[0], p[1]); for (j=M; --j; p++) *p = p[M-N] ^ TWIST(p[0], p[1]); *p = p[M-N] ^ TWIST(p[0], state[0]); } /* generates a random number on [0,0xffffffff]-interval */ unsigned long genrand_int32(void) { unsigned long y; if (--left == 0) next_state(); y = *next++; /* Tempering */ y ^= (y >> 11); y ^= (y << 7) & 0x9d2c5680UL; y ^= (y << 15) & 0xefc60000UL; y ^= (y >> 18); return y; } /* generates a random number on [0,0x7fffffff]-interval */ long genrand_int31(void) { unsigned long y; if (--left == 0) next_state(); y = *next++; /* Tempering */ y ^= (y >> 11); y ^= (y << 7) & 0x9d2c5680UL; y ^= (y << 15) & 0xefc60000UL; y ^= (y >> 18); return (long)(y>>1); } /* generates a random number on [0,1]-real-interval */ double genrand_real1(void) { unsigned long y; if (--left == 0) next_state(); y = *next++; /* Tempering */ y ^= (y >> 11); y ^= (y << 7) & 0x9d2c5680UL; y ^= (y << 15) & 0xefc60000UL; y ^= (y >> 18); return (double)y * (1.0/4294967295.0); /* divided by 2^32-1 */ } /* generates a random number on [0,1)-real-interval */ double genrand_real2(void) { unsigned long y; if (--left == 0) next_state(); y = *next++; /* Tempering */ y ^= (y >> 11); y ^= (y << 7) & 0x9d2c5680UL; y ^= (y << 15) & 0xefc60000UL; y ^= (y >> 18); return (double)y * (1.0/4294967296.0); /* divided by 2^32 */ } /* generates a random number on (0,1)-real-interval */ double genrand_real3(void) { unsigned long y; if (--left == 0) next_state(); y = *next++; /* Tempering */ y ^= (y >> 11); y ^= (y << 7) & 0x9d2c5680UL; y ^= (y << 15) & 0xefc60000UL; y ^= (y >> 18); return ((double)y + 0.5) * (1.0/4294967296.0); /* divided by 2^32 */ } /* generates a random number on [0,1) with 53-bit resolution*/ double genrand_res53(void) { unsigned long a=genrand_int32()>>5, b=genrand_int32()>>6; return(a*67108864.0+b)*(1.0/9007199254740992.0); } /* These real versions are due to Isaku Wada, 2002/01/09 added */ /* int main(void) { int i; unsigned long init[4]={0x123, 0x234, 0x345, 0x456}, length=4; init_by_array(init, length); */ /* This is an example of initializing by an array. */ /* You may use init_genrand(seed) with any 32bit integer */ /* as a seed for a simpler initialization */ /* printf("1000 outputs of genrand_int32()\n"); for (i=0; i<1000; i++) { printf("%10lu ", genrand_int32()); if (i%5==4) printf("\n"); } printf("\n1000 outputs of genrand_real2()\n"); for (i=0; i<1000; i++) { printf("%10.8f ", genrand_real2()); if (i%5==4) printf("\n"); } return 0; } */ april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Kuenning/000077500000000000000000000000001234204160600255335ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Kuenning/Kuenning.cpp000066400000000000000000000031631234204160600300200ustar00rootroot00000000000000// Kuenning.cpp // Test output and speed of Kuenning's Mersenne Twister class // Richard J. Wagner 28 Sep 2009 // This is free, unrestricted software void of any warranty. #include #include #include "mtwist.h" int main ( int argc, char * const argv[] ) { printf( "Testing output and speed of Kuenning's Mersenne Twister class\n" ); printf( "\nTest of random integer generation:\n" ); unsigned long oneSeed = 4357UL; mt_u32bit_t bigSeed[MT_STATE_SIZE] = { 0x123, 0x234, 0x345, 0x456 }; // NOTE: Kuenning's class lacks the usual seeding and generation functions printf( "\nTest of random integer generation:\n" ); mt_prng mtrand1( bigSeed ); unsigned long i; for( i = 0; i < 1000UL; ++i ) { printf( "%10lu ", mtrand1.lrand() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of random real number [0,1) generation:\n" ); for( i = 0; i < 1000UL; ++i ) { printf( "%10.8f ", mtrand1.drand() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of random real number [0,1] generation:\n" ); mt_prng mtrand2( oneSeed ); for( i = 0; i < 2000UL; ++i ) { printf( "%10.8f ", mtrand2.drand() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of time to generate one billion random integers:\n" ); mt_prng mtrand3( oneSeed ); unsigned long junk = 0; clock_t start = clock(); for( i = 0; i < 1000000000UL; ++i ) { junk ^= mtrand3.lrand(); } clock_t stop = clock(); if( junk == 0 ) printf( "jinx\n" ); printf( "Time elapsed = " ); printf( "%8.3f", double( stop - start ) / CLOCKS_PER_SEC ); printf( " s\n" ); return 0; } april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Kuenning/mtwist.c000066400000000000000000001011751234204160600272330ustar00rootroot00000000000000#ifndef lint static char Rcs_Id[] = "$Id: mtwist.c,v 1.20 2007/10/26 07:21:06 geoff Exp $"; #endif /* * C library functions for generating pseudorandom numbers using the * Mersenne Twist algorithm. See M. Matsumoto and T. Nishimura, * "Mersenne Twister: A 623-Dimensionally Equidistributed Uniform * Pseudo-Random Number Generator", ACM Transactions on Modeling and * Computer Simulation, Vol. 8, No. 1, January 1998, pp 3--30. * * The Web page on the Mersenne Twist algorithm is at: * * http://www.math.keio.ac.jp/~matumoto/emt.html * * These functions were written by Geoffrey H. Kuenning, Claremont, CA. * * IMPORTANT NOTE: the Makefile must define two machine-specific * variables to get optimum features and performance: * * MT_NO_INLINE should be defined if the compiler doesn't support * the "inline" keyword. * MT_NO_LONGLONG should be defined if the compiler doesn't support a * "long long" type for 64-bit integers * MT_MACHINE_BITS must be either 32 or 64, reflecting the natural * size of the processor registers. If undefined, it * will default to 32. * * The first two variables above are defined in an inverted sense * because I expect that most compilers will support inline and * long-long. By inverting the sense, this common case will require * no special compiler flags. * * IMPORTANT NOTE: this software assumes that the inherent width of a * "long" is 32 bits. If you are running on a machine that uses * 64-bit longs, some of the declarations and code will have to be * modified. * * This software is based on LGPL-ed code by Takuji Nishimura. It has * also been heavily influenced by code written by Shawn Cokus, and * somewhat influenced by code written by Richard J. Wagner. It is * therefore also distributed under the LGPL: * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Library General Public License * as published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, but * WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Library General Public License for more details. You should have * received a copy of the GNU Library General Public License along * with this library; if not, write to the Free Foundation, Inc., 59 * Temple Place, Suite 330, Boston, MA 02111-1307 USA * * $Log: mtwist.c,v $ * Revision 1.20 2007/10/26 07:21:06 geoff * Use the new mt_u32bit_t type. * * Revision 1.19 2003/09/11 05:55:19 geoff * Get rid of some minor compiler warnings. * * Revision 1.18 2003/09/11 05:50:53 geoff * Don't #define inline to nothing, since that breaks standard include * files. Instead, use MT_INLINE as a synonym. * * Revision 1.17 2002/10/31 22:07:10 geoff * Make WIN32 detection work with GCC as well as MS C * * Revision 1.16 2002/10/31 22:04:59 geoff * Fix a typo in the WIN32 option * * Revision 1.15 2002/10/31 06:01:43 geoff * Incorporate Joseph Brill's Windows-portability changes * * Revision 1.14 2002/10/30 07:39:53 geoff * Reintroduce the old seeding functions (so that old code will still * produce the same results), and give the new versions new names. * * Revision 1.13 2002/10/30 01:08:26 geoff * Switch to M&T's new initialization method * * Revision 1.12 2001/06/18 05:40:12 geoff * Prefix the compile options with MT_. * * Revision 1.11 2001/06/14 10:26:59 geoff * Invert the sense of the #define flags so that the default is the * normal case (if gcc is normal!). Also default MT_MACHINE_BITS to 32. * * Revision 1.10 2001/06/14 10:10:38 geoff * Move the RNG functions into the header file so they can be inlined. * Add saving/loading of state. Add a function that marks the PRNG as * initialized while also calculating critical constants. Run the * refresh routine whenever seed32 is called. Add functions to seed * based on /dev/random or the time. * * Revision 1.9 2001/06/11 10:00:04 geoff * Major changes to improve flexibility and performance, and to prepare * for inlining. This code is about as fast as it can get without * inlining the various PRNG functions. Add seed/goodseed/bestseed for * seeding from random start values. Add the refresh routine a la Cokus, * but optimize it by unrolling loops. Change getstate to return a * complete state pointer, since knowing the position in the state vector * is critical to restoring state. Add more macros to improve * readability. Rename certain macros in preparation for inlining. Get * rid of leftover optimizer-bug stuff. Stop using mtwist_guts.h; * instead use direct code (via macros) and the refresh function. * * Revision 1.8 2001/04/23 08:36:03 geoff * Move the #defined code into a header file to ease stepping with a debugger. * * Revision 1.7 2001/04/23 08:00:13 geoff * Add code to work around optimizer bug * * Revision 1.6 2001/04/14 01:33:32 geoff * Clarify the license * * Revision 1.5 2001/04/09 08:45:00 geoff * Rename default_state to mt_default_state, and make it global so that * the random-distribution code can use it. * * Revision 1.4 2001/04/07 23:24:11 geoff * My guess in the commentary for the last delta was right: it's faster * on a x86 to convert the two halves of the PRN to double, multiplying * them by the appropriate value to scale them, and then add them as * doubles. I suspect the reason is that there is no instruction to * convert a 64-bit value directly to a double, so the work of building * the long long (which isn't easy anyway, without assembly access) is * worse than wasted. So add support for MT_MACHINE_BITS, and only go * the via-long-long route on a true 64-bit machine. * * Revision 1.3 2001/04/07 23:09:38 geoff * Get rid of MT_INLINE. Convert all of the code to use preprocessor * macros for the guts of the PRNG code. Take advantage of the * conversion to get rid of unnecessary calls initialization tests. Also * clean up the generation of long-double pseudorandom numbers on * machines that have the long long type (by converting first to a long * long, then to a double, saving one floating-point operation). The * latter change might be a mistake on 32-bit machines. The code is now * much faster as a result of macro-izing. * * Revision 1.2 2001/04/07 22:21:41 geoff * Make the long-double code a hair faster by always having a 64-bit * conversion constant. Add commentary to the PRNG loop. * * Revision 1.1 2001/04/07 09:43:41 geoff * Initial revision * */ #ifdef _WIN32 #undef WIN32 #define WIN32 #endif /* _WIN32 */ #include #include #ifdef WIN32 #include #else /* WIN32 */ #include #endif /* WIN32 */ /* * Before we include the Mersenne Twist header file, we must do a bit * of magic setup. The code for actual random-number generation * resides in that file rather than here. We need to arrange for the * code to be compiled into this .o file, either because inlines * aren't supported or because somebody might want to take a pointer * to a function. We do so with a couple of careful #defines. */ #undef MT_NO_INLINE /* Ask for code to be compiled */ #define MT_INLINE /* Disable the inline keyword */ #define MT_EXTERN /* Generate real code for functions */ #include "mtwist.h" /* * Table of contents: */ void mts_mark_initialized(mt_state* state); /* Mark a PRNG state as initialized */ void mts_seed32(mt_state* state, unsigned long seed); /* Set random seed for any generator */ void mts_seed32new(mt_state* state, unsigned long seed); /* Set random seed for any generator */ void mts_seedfull(mt_state* state, mt_u32bit_t seeds[MT_STATE_SIZE]); /* Set complicated seed for any gen. */ void mts_seed(mt_state* state); /* Choose seed from random input */ void mts_goodseed(mt_state* state); /* Choose seed from more random */ /* ..input than mts_seed */ static void mts_devseed(mt_state* state, char* seed_dev); /* Choose seed from a device */ void mts_bestseed(mt_state* state); /* Choose seed from extremely random */ /* ..input (can be *very* slow) */ void mts_refresh(mt_state* state); /* Generate 624 more random values */ int mts_savestate(FILE* statefile, mt_state* state); /* Save state to a file (ASCII) */ int mts_loadstate(FILE* statefile, mt_state* state); /* Load state from a file (ASCII) */ void mt_seed32(unsigned long seed); /* Set random seed for default gen. */ void mt_seed32new(unsigned long seed); /* Set random seed for default gen. */ void mt_seedfull(mt_u32bit_t seeds[MT_STATE_SIZE]); /* Set complicated seed for default */ void mt_seed(void); /* Choose seed from random input */ void mt_goodseed(void); /* Choose seed from more random */ /* ..input than mts_seed */ void mt_bestseed(void); /* Choose seed from extremely random */ /* ..input (can be *very* slow) */ extern mt_state* mt_getstate(void); /* Get current state of default */ /* ..generator */ int mt_savestate(FILE* statefile); /* Save state to a file (ASCII) */ int mt_loadstate(FILE* statefile); /* Load state from a file (ASCII) */ /* * The following values are fundamental parameters of the algorithm. * With the exception of the two masks, all of them were found * experimentally using methods described in Matsumoto and Nishimura's * paper. They are exceedingly magic; don't change them. */ /* MT_STATE_SIZE is defined in the header file. */ #define RECURRENCE_OFFSET 397 /* Offset into state space for the */ /* ..recurrence relation. The */ /* ..recurrence mashes together two */ /* ..values that are separated by */ /* ..this offset in the state */ /* ..space. */ #define MATRIX_A 0x9908b0df /* Constant vector A for the */ /* ..recurrence relation. The */ /* ..mashed-together value is */ /* ..multiplied by this vector to */ /* ..get a new value that will be */ /* ..stored into the state space. */ /* * Width of a long. Don't change this even if your longs are 64 bits. */ #define BIT_WIDTH 32 /* Work with 32-bit words */ /* * Masks for extracting the bits to be mashed together. The widths of these * masks are also fundamental parameters of the algorithm, determined * experimentally -- but of course the masks themselves are simply bit * selectors. */ #define UPPER_MASK 0x80000000 /* Most significant w-r bits */ #define LOWER_MASK 0x7fffffff /* Least significant r bits */ /* * Macro to simplify code in the generation loop. This function * combines the top bit of x with the bottom 31 bits of y. */ #define COMBINE_BITS(x, y) \ (((x) & UPPER_MASK) | ((y) & LOWER_MASK)) /* * Another generation-simplification macro. This one does the magic * scrambling function. */ #define MATRIX_MULTIPLY(original, new) \ ((original) ^ ((new) >> 1) \ ^ matrix_decider[(new) & 0x1]) /* * Parameters of Knuth's PRNG (Line 25, Table 1, p. 102 of "The Art of * Computer Programming, Vol. 2, 2nd ed, 1981). */ #define KNUTH_MULTIPLIER_OLD \ 69069 /* * Parameters of Knuth's PRNG (p. 106 of "The Art of Computer * Programming, Vol. 2, 3rd ed). */ #define KNUTH_MULTIPLIER_NEW \ 1812433253ul #define KNUTH_SHIFT 30 // Even on a 64-bit machine! /* * Default 32-bit random seed if mts_seed32 wasn't called */ #define DEFAULT_SEED32_OLD \ 4357 #define DEFAULT_SEED32_NEW \ 5489ul /* * Where to get random numbers */ #define DEVRANDOM "/dev/random" #define DEVURANDOM "/dev/urandom" /* * Many applications need only a single PRNG, so it's a nuisance to have to * specify a state. For those applications, we will provide a default * state, and functions to use it. */ mt_state mt_default_state; /* * To generate double-precision random numbers, we need to divide the result * of mts_lrand or mts_llrand by 2^32 or 2^64, respectively. The quickest * way to do that on most machines is to multiply by the inverses of those * numbers. However, I don't trust the compiler to correctly convert the * corresponding decimal constant. So we will compute the correct number at * run time as part of initialization, which will produce a nice exact * result. */ double mt_32_to_double; /* Multiplier to convert long to dbl */ double mt_64_to_double; /* Mult'r to cvt long long to dbl */ /* * In the recurrence relation, the new value is XORed with MATRIX_A only if * the lower bit is nonzero. Since most modern machines don't like to * branch, it's vastly faster to handle this decision by indexing into an * array. The chosen bit is used as an index into the following vector, * which produces either zero or MATRIX_A and thus the desired effect. */ static mt_u32bit_t matrix_decider[2] = {0x0, MATRIX_A}; /* * Mark a PRNG's state as having been initialized. This is the only * way to set that field nonzero; that way we can be sure that the * constants are set properly before the PRNG is used. * * As a side effect, set up some constants that the PRNG assumes are * valid. These are calculated at initialization time rather than * being written as decimal constants because I frankly don't trust * the compiler's ASCII conversion routines. */ void mts_mark_initialized( mt_state* state) /* State vector to mark initialized */ { int i; /* Power of 2 being calculated */ /* * Figure out the proper multiplier for long-to-double conversion. We * don't worry too much about efficiency, since the assumption is that * initialization is vastly rarer than generation of random numbers. */ mt_32_to_double = 1.0; for (i = 0; i < BIT_WIDTH; i++) mt_32_to_double /= 2.0; mt_64_to_double = mt_32_to_double; for (i = 0; i < BIT_WIDTH; i++) mt_64_to_double /= 2.0; state->initialized = 1; } /* * Initialize a Mersenne Twist PRNG from a 32-bit seed. * * According to Matsumoto and Nishimura's paper, the seed array needs to be * filled with nonzero values. (My own interpretation is that there needs * to be at least one nonzero value). They suggest using Knuth's PRNG from * Line 25, Table 1, p.102, "The Art of Computer Programming," Vol. 2 (2nd * ed.), 1981. I find that rather odd, since that particular PRNG is * sensitive to having an initial seed of zero (there are many other PRNGs * out there that have an additive component, so that a seed of zero does * not generate a repeating-zero sequence). However, one thing I learned * from reading Knuth is that you shouldn't second-guess mathematicians * about PRNGs. Also, by following M & N's approach, we will be compatible * with other implementations. So I'm going to stick with their version, * with the single addition that a zero seed will be changed to their * default seed. */ void mts_seed32( mt_state* state, /* State vector to initialize */ unsigned long seed) /* 32-bit seed to start from */ { int i; /* Loop index */ if (seed == 0) seed = DEFAULT_SEED32_OLD; /* * Fill the state vector using Knuth's PRNG. Be sure to mask down * to 32 bits in case we're running on a machine with 64-bit * longs. */ state->statevec[MT_STATE_SIZE - 1] = seed & 0xffffffff; for (i = MT_STATE_SIZE - 2; i >= 0; i--) state->statevec[i] = (KNUTH_MULTIPLIER_OLD * state->statevec[i + 1]) & 0xffffffff; state->stateptr = MT_STATE_SIZE; mts_mark_initialized(state); /* * Matsumoto and Nishimura's implementation refreshes the PRNG * immediately after running the Knuth algorithm. This is * probably a good thing, since Knuth's PRNG doesn't generate very * good numbers. */ mts_refresh(state); } /* * Initialize a Mersenne Twist PRNG from a 32-bit seed, using * Matsumoto and Nishimura's newer reference implementation (Jan. 9, * 2002). */ void mts_seed32new( mt_state* state, /* State vector to initialize */ unsigned long seed) /* 32-bit seed to start from */ { int i; /* Loop index */ mt_u32bit_t nextval; /* Next value being calculated */ /* * Fill the state vector using Knuth's PRNG. Be sure to mask down * to 32 bits in case we're running on a machine with 64-bit * longs. */ state->statevec[MT_STATE_SIZE - 1] = seed & 0xffffffffUL; for (i = MT_STATE_SIZE - 2; i >= 0; i--) { nextval = state->statevec[i + 1] >> KNUTH_SHIFT; nextval ^= state->statevec[i + 1]; nextval *= KNUTH_MULTIPLIER_NEW; nextval += (MT_STATE_SIZE - 1) - i; state->statevec[i] = nextval & 0xffffffffUL; } state->stateptr = MT_STATE_SIZE; mts_mark_initialized(state); /* * Matsumoto and Nishimura's implementation refreshes the PRNG * immediately after running the Knuth algorithm. This is * probably a good thing, since Knuth's PRNG doesn't generate very * good numbers. */ mts_refresh(state); } /* * Initialize a Mersenne Twist RNG from a 624-long seed. * * The 32-bit seeding routine given by Matsumoto and Nishimura has the * drawback that there are only 2^32 different PRNG sequences that can be * generated by calling that function. This function solves that problem by * allowing a full 624*32-bit state to be given. (Note that 31 bits of the * given state are ignored; see the paper for details.) * * Since an all-zero state would cause the PRNG to cycle, we detect * that case and abort the program (silently, since there is no * portable way to produce a message in both C and C++ environments). * An alternative would be to artificially force the state to some * known nonzero value. However, I feel that if the user is providing * a full state, it's a bug to provide all zeros and we we shouldn't * conceal the bug by generating apparently correct output. */ void mts_seedfull( mt_state* state, /* State vector to initialize */ mt_u32bit_t seeds[MT_STATE_SIZE]) /* Seed array to start from */ { int had_nz = 0; /* NZ if at least one NZ seen */ int i; /* Loop index */ for (i = 0; i < MT_STATE_SIZE; i++) { if (seeds[i] != 0) had_nz = 1; state->statevec[MT_STATE_SIZE - i - 1] = seeds[i]; } if (!had_nz) { /* * It would be nice to abort with a message. Unfortunately, fprintf * isn't compatible with all implementations of C++. In the * interest of C++ compatibility, therefore, we will simply abort * silently. It will unfortunately be up to a programmer to run * under a debugger (or examine the core dump) to discover the cause * of the abort. */ abort(); } state->stateptr = MT_STATE_SIZE; mts_mark_initialized(state); } /* * Choose a seed based on some moderately random input. Prefers * /dev/urandom as a source of random numbers, but uses the lower bits * of the current time if /dev/urandom is not available. In any case, * only provides 32 bits of entropy. */ void mts_seed( mt_state* state) /* State vector to seed */ { mts_devseed(state, DEVURANDOM); } /* * Choose a seed based on some fairly random input. Prefers * /dev/random as a source of random numbers, but uses the lower bits * of the current time if /dev/random is not available. In any case, * only provides 32 bits of entropy. */ void mts_goodseed( mt_state* state) /* State vector to seed */ { mts_devseed(state, DEVRANDOM); } /* * Choose a seed based on a random-number device given by the caller. * If that device can't be opened, use the lower 32 bits from the * current time. */ static void mts_devseed( mt_state* state, /* State vector to seed */ char* seed_dev) /* Device to seed from */ { int bytesread; /* Byte count read from device */ int nextbyte; /* Index of next byte to read */ FILE* ranfile; /* Access to device */ union { char ranbuffer[sizeof (unsigned long)]; /* Space for reading random int */ unsigned long randomvalue; /* Random value for initialization */ } randomunion; /* Union for reading random int */ #ifdef WIN32 struct _timeb tb; /* Time of day (Windows mode) */ #else /* WIN32 */ struct timeval tv; /* Time of day */ struct timezone tz; /* Dummy for gettimeofday */ #endif /* WIN32 */ ranfile = fopen(seed_dev, "rb"); if (ranfile != NULL) { for (nextbyte = 0; nextbyte < (int)sizeof randomunion.ranbuffer; nextbyte += bytesread) { bytesread = fread(&randomunion.ranbuffer[nextbyte], 1, sizeof randomunion.ranbuffer - nextbyte, ranfile); if (bytesread == 0) break; } fclose(ranfile); if (nextbyte == sizeof randomunion.ranbuffer) { mts_seed32new(state, randomunion.randomvalue); return; } } /* * The device isn't available. Use the time. We will * assume that the time of day is accurate to microsecond * resolution, which is true on most modern machines. */ #ifdef WIN32 (void) _ftime (&tb); #else /* WIN32 */ (void) gettimeofday (&tv, &tz); #endif /* WIN32 */ /* * We just let the excess part of the seconds field overflow */ #ifdef WIN32 randomunion.randomvalue = tb.time * 1000 + tb.millitm; #else /* WIN32 */ randomunion.randomvalue = tv.tv_sec * 1000000 + tv.tv_usec; #endif /* WIN32 */ mts_seed32new(state, randomunion.randomvalue); } /* * Choose a seed based on the best random input available. Prefers * /dev/random as a source of random numbers, and reads the entire * 624-long state from that device. Because of this approach, the * function can take a long time (in real time) to complete, since * /dev/random may have to wait quite a while before it can provide * that much randomness. If /dev/random is unavailable, falls back to * calling mts_goodseed. */ void mts_bestseed( mt_state* state) /* State vector to seed */ { int bytesread; /* Byte count read from device */ int nextbyte; /* Index of next byte to read */ FILE* ranfile; /* Access to device */ ranfile = fopen("/dev/random", "rb"); if (ranfile == NULL) { mts_goodseed(state); return; } for (nextbyte = 0; nextbyte < (int)sizeof state->statevec; nextbyte += bytesread) { bytesread = fread((char *)&state->statevec + nextbyte, 1, sizeof state->statevec - nextbyte, ranfile); if (bytesread == 0) { /* * Something went wrong. Fall back to time-based seeding. */ fclose(ranfile); mts_goodseed(state); return; } } } /* * Generate 624 more random values. This function is called when the * state vector has been exhausted. It generates another batch of * pseudo-random values. The performance of this function is critical * to the performance of the Mersenne Twist PRNG, so it has been * highly optimized. */ void mts_refresh( register mt_state* state) /* State for the PRNG */ { register int i; /* Index into the state */ register mt_u32bit_t* state_ptr; /* Next place to get from state */ register mt_u32bit_t value1; /* Scratch val picked up from state */ register mt_u32bit_t value2; /* Scratch val picked up from state */ /* * Start by making sure a random seed has been set. If not, set * one. */ if (!state->initialized) { mts_seed32(state, DEFAULT_SEED32_OLD); return; /* Seed32 calls us recursively */ } /* * Now generate the new pseudorandom values by applying the * recurrence relation. We use two loops and a final * 2-statement sequence so that we can handle the wraparound * explicitly, rather than having to use the relatively slow * modulus operator. * * In essence, the recurrence relation concatenates bits * chosen from the current random value (last time around) * with the immediately preceding one. Then it * matrix-multiplies the concatenated bits with a value * RECURRENCE_OFFSET away and a constant matrix. The matrix * multiplication reduces to a shift and two XORs. * * Some comments on the optimizations are in order: * * Strictly speaking, none of the optimizations should be * necessary. All could conceivably be done by a really good * compiler. However, the compilers available to me aren't quite * smart enough, so hand optimization needs to be done. * * Shawn Cokus was the first to achieve a major speedup. In the * original code, the first value given to COMBINE_BITS (in my * characterization) was re-fetched from the state array, rather * than being carried in a scratch variable. Cokus noticed that * the first argument to COMBINE_BITS could be saved in a register * in the previous loop iteration, getting rid of the need for an * expensive memory reference. * * Cokus also switched to using pointers to access the state * array and broke the original loop into two so that he could * avoid using the expensive modulus operator. Cokus used three * pointers; Richard J. Wagner noticed that the offsets between * the three were constant, so that they could be collapsed into a * single pointer and constant-offset accesses. This is clearly * faster on x86 architectures, and is the same cost on RISC * machines. A secondary benefit is that Cokus' version was * register-starved on the x86, while Wagner's version was not. * * I made several smaller improvements to these observations. * First, I reversed the contents of the state vector. In the * current version of the code, this change doesn't directly * affect the performance of the refresh loop, but it has the nice * side benefit that an all-zero state structure represents an * uninitialized generator. It also slightly speeds up the * random-number routines, since they can compare the state * pointer against zero instead of against a constant (this makes * the biggest difference on RISC machines). * * Second, I returned to Matsumoto and Nishimura's original * technique of using a lookup table to decide whether to xor the * constant vector A (MATRIX_A in this code) with the newly * computed value. Cokus and Wagner had used the ?: operator, * which requires a test and branch. Modern machines don't like * branches, so the table lookup is faster. * * Third, in the Cokus and Wagner versions the loop ends with a * statement similar to "value1 = value2", which is necessary to * carry the fetched value into the next loop iteration. I * recognized that if the loop were unrolled so that it generates * two values per iteration, a bit of variable renaming would get * rid of that assignment. A nice side effect is that the * overhead of loop control becomes only half as large. * * It is possible to improve the code's performance somewhat * further. In particular, since the second loop's loop count * factors into 2*2*3*3*11, it could be unrolled yet further. * That's easy to do, too: just change the "/ 2" into a division * by whatever factor you choose, and then use cut-and-paste to * duplicate the code in the body. To remove a few more cycles, * fix the code to decrement state_ptr by the unrolling factor, and * adjust the various offsets appropriately. However, the payoff * will be small. At the moment, the x86 version of the loop is * 25 instructions, of which 3 are involved in loop control * (including the decrementing of state_ptr). Further unrolling by * a factor of 2 would thus produce only about a 6% speedup. * * The logical extension of the unrolling * approach would be to remove the loops and create 624 * appropriate copies of the body. However, I think that doing * the latter is a bit excessive! * * I suspect that a superior optimization would be to simplify the * mathematical operations involved in the recurrence relation. * However, I have no idea whether such a simplification is * feasible. */ state_ptr = &state->statevec[MT_STATE_SIZE - 1]; value1 = *state_ptr; for (i = (MT_STATE_SIZE - RECURRENCE_OFFSET) / 2; --i >= 0; ) { state_ptr -= 2; value2 = state_ptr[1]; value1 = COMBINE_BITS(value1, value2); state_ptr[2] = MATRIX_MULTIPLY(state_ptr[-RECURRENCE_OFFSET + 2], value1); value1 = state_ptr[0]; value2 = COMBINE_BITS(value2, value1); state_ptr[1] = MATRIX_MULTIPLY(state_ptr[-RECURRENCE_OFFSET + 1], value2); } value2 = *--state_ptr; value1 = COMBINE_BITS(value1, value2); state_ptr[1] = MATRIX_MULTIPLY(state_ptr[-RECURRENCE_OFFSET + 1], value1); for (i = (RECURRENCE_OFFSET - 1) / 2; --i >= 0; ) { state_ptr -= 2; value1 = state_ptr[1]; value2 = COMBINE_BITS(value2, value1); state_ptr[2] = MATRIX_MULTIPLY(state_ptr[MT_STATE_SIZE - RECURRENCE_OFFSET + 2], value2); value2 = state_ptr[0]; value1 = COMBINE_BITS(value1, value2); state_ptr[1] = MATRIX_MULTIPLY(state_ptr[MT_STATE_SIZE - RECURRENCE_OFFSET + 1], value1); } /* * The final entry in the table requires the "previous" value * to be gotten from the other end of the state vector, so it * must be handled specially. */ value1 = COMBINE_BITS(value2, state->statevec[MT_STATE_SIZE - 1]); *state_ptr = MATRIX_MULTIPLY(state_ptr[MT_STATE_SIZE - RECURRENCE_OFFSET], value1); /* * Now that refresh is complete, reset the state pointer to allow more * pseudorandom values to be fetched from the state array. */ state->stateptr = MT_STATE_SIZE; } /* * Save state to a file. The save format is compatible with Richard * J. Wagner's format, although the details are different. Returns NZ * if the save succeeded. Produces one very long line containing 625 * numbers. */ int mts_savestate( FILE* statefile, /* File to save to */ mt_state* state) /* State to be saved */ { int i; /* Next word to save */ if (!state->initialized) mts_seed32(state, DEFAULT_SEED32_OLD); for (i = MT_STATE_SIZE; --i >= 0; ) { if (fprintf(statefile, "%lu ", state->statevec[i]) < 0) return 0; } if (fprintf(statefile, "%d\n", state->stateptr) < 0) return 0; return 1; } /* * Load state from a file. Returns NZ if the load succeeded. */ int mts_loadstate( FILE* statefile, /* File to load from */ mt_state* state) /* State to be loaded */ { int i; /* Next word to load */ /* * Set the state to "uninitialized" in case the load fails. */ state->initialized = state->stateptr = 0; for (i = MT_STATE_SIZE; --i >= 0; ) { if (fscanf(statefile, "%lu", &state->statevec[i]) != 1) return 0; } if (fscanf(statefile, "%d", &state->stateptr) != 1) return 0; /* * The only validity checking we can do is to insist that the * state pointer be valid. */ if (state->stateptr < 0 || state->stateptr > MT_STATE_SIZE) { state->stateptr = 0; return 0; } mts_mark_initialized(state); return 1; } /* * Initialize the default Mersenne Twist PRNG from a 32-bit seed. * * See mts_seed32 for full commentary. */ void mt_seed32( unsigned long seed) /* 32-bit seed to start from */ { mts_seed32(&mt_default_state, seed); } /* * Initialize the default Mersenne Twist PRNG from a 32-bit seed. * * See mts_seed32new for full commentary. */ void mt_seed32new( unsigned long seed) /* 32-bit seed to start from */ { mts_seed32new(&mt_default_state, seed); } /* * Initialize a Mersenne Twist RNG from a 624-long seed. * * See mts_seedfull for full commentary. */ void mt_seedfull( mt_u32bit_t seeds[MT_STATE_SIZE]) { mts_seedfull(&mt_default_state, seeds); } /* * Initialize the PRNG from random input. See mts_seed. */ void mt_seed() { mts_seed(&mt_default_state); } /* * Initialize the PRNG from random input. See mts_goodseed. */ void mt_goodseed() { mts_goodseed(&mt_default_state); } /* * Initialize the PRNG from random input. See mts_bestseed. */ void mt_bestseed() { mts_bestseed(&mt_default_state); } /* * Return a pointer to the current state of the PRNG. The purpose of * this function is to allow the state to be saved for later * restoration. The state should not be modified; instead, it should * be reused later as a parameter to one of the mts_xxx functions. */ extern mt_state* mt_getstate() { return &mt_default_state; } /* * Save state to a file. The save format is compatible with Richard * J. Wagner's format, although the details are different. */ int mt_savestate( FILE* statefile) /* File to save to */ { return mts_savestate(statefile, &mt_default_state); } /* * Load state from a file. */ int mt_loadstate( FILE* statefile) /* File to load from */ { return mts_loadstate(statefile, &mt_default_state); } april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Kuenning/mtwist.h000066400000000000000000000655271234204160600272520ustar00rootroot00000000000000#ifndef MTWIST_H #define MTWIST_H /* * $Id: mtwist.h,v 1.17 2007/10/26 07:21:06 geoff Exp $ * * Header file for C/C++ use of the Mersenne-Twist pseudo-RNG. See * http://www.math.keio.ac.jp/~matumoto/emt.html for full information. * * Author of this header file: Geoffrey H. Kuenning, March 18, 2001. * http://www.cs.hmc.edu/~geoff/mtwist.html * IMPORTANT NOTE: the Makefile must define two machine-specific * variables to get optimum features and performance: * * MT_NO_INLINE should be defined if the compiler doesn't support * the "inline" keyword. * MT_NO_LONGLONG should be defined if the compiler doesn't support a * "long long" type for 64-bit integers * MT_MACHINE_BITS must be either 32 or 64, reflecting the natural * size of the processor registers. If undefined, it * will default to a value calculated from limits.h. * * The first two variables above are defined in an inverted sense * because I expect that most compilers will support inline and * long-long. By inverting the sense, this common case will require * no special compiler flags. * * IMPORTANT NOTE: this software requires access to a 32-bit type. Be * sure that "mt_u32bit_t" is set to an unsigned 32-bit integer type. * The Mersenne Twist algorithms are not guaranteed to produce correct * results with a 64-bit type. * * The executable part of this software is based on LGPL-ed code by * Takuji Nishimura. The header file is therefore also distributed * under the LGPL: * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Library General Public License * as published by the Free Software Foundation; either version 2 of * the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, but * WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Library General Public License for more details. You should have * received a copy of the GNU Library General Public License along * with this library; if not, write to the Free Foundation, Inc., 59 * Temple Place, Suite 330, Boston, MA 02111-1307 USA * * $Log: mtwist.h,v $ * Revision 1.17 2007/10/26 07:21:06 geoff * Introduce, document, and use the new mt_u32bit_t type so that the code * will compile and run on 64-bit platforms (although it does not * currently use the 64-bit Mersenne Twist algorithm). * * Revision 1.16 2005/11/11 08:21:39 geoff * If possible, try to infer MT_MACHINE_BITS from limits.h. * * Revision 1.15 2003/09/11 23:56:20 geoff * Allow stdio references in C++ files; it turns out that ANSI has * blessed it. Declare the various functions as external even if they're * inlined or being compiled directly (in mtwist.c). Get rid of a #ifdef * that can't ever be true. * * Revision 1.14 2003/09/11 05:50:53 geoff * Don't allow stdio references from C++, since they're not guaranteed to * work on all compilers. Disable inlining using the MT_INLINE keyword * rather than #defining inline, since doing the latter can affect other * files and functions than our own. * * Revision 1.13 2003/07/01 23:29:29 geoff * Refer to streams from the standard library using the correct namespace. * * Revision 1.12 2002/10/30 07:39:54 geoff * Declare the new seeding functions. * * Revision 1.11 2001/06/19 00:41:16 geoff * For consistency with other C++ types, don't put out a newline after * the saved data. * * Revision 1.10 2001/06/18 10:09:24 geoff * Fix some places where I forgot to set one of the result values. Make * the C++ state vector protected so the random-distributions package can * pass it to the C functions. * * Revision 1.9 2001/06/18 05:40:12 geoff * Prefix the compile options with MT_. * * Revision 1.8 2001/06/14 10:26:59 geoff * Invert the sense of the #define flags so that the default is the * normal case (if gcc is normal!). Also default MT_MACHINE_BITS to 32. * * Revision 1.7 2001/06/14 10:10:38 geoff * Move the critical-path PRNG code into the header file so that it can * be inlined. Add saving/loading of state. Add functions to seed based * on /dev/random or the time. Add the function-call operator in the C++ * code. * * Revision 1.6 2001/06/11 10:00:04 geoff * Add declarations of the refresh and /dev/random seeding functions. * Change getstate to return a complete state pointer, since knowing the * position in the state vector is critical to restoring the state. * * Revision 1.5 2001/04/23 08:36:03 geoff * Remember to zero the state pointer when constructing, since otherwise * proper initialization won't happen. * * Revision 1.4 2001/04/14 01:33:32 geoff * Clarify the license * * Revision 1.3 2001/04/14 01:04:54 geoff * Add a C++ class, mt_prng, that makes usage more convenient for C++ * programmers. * * Revision 1.2 2001/04/09 08:45:00 geoff * Fix the name in the #ifndef wrapper, and clean up some outdated comments. * * Revision 1.1 2001/04/07 09:43:41 geoff * Initial revision * */ #include #ifdef __cplusplus #include #endif /* __cplusplus */ #ifndef MT_MACHINE_BITS #include #if INT_MAX == 2147483647 #define MT_MACHINE_BITS 32 #else /* INT_MAX */ #define MT_MACHINE_BITS 64 #endif /* INT_MAX */ #endif /* MT_MACHINE_BITS */ /* * Define an unsigned type that is guaranteed to be 32 bits wide. */ #if MT_MACHINE_BITS == 32 typedef unsigned long mt_u32bit_t; #else /* MT_MACHINE_BITS */ typedef unsigned int mt_u32bit_t; #endif /* MT_MACHINE_BITS */ /* * The following value is a fundamental parameter of the algorithm. * It was found experimentally using methods described in Matsumoto * and Nishimura's paper. It is exceedingly magic; don't change it. */ #define MT_STATE_SIZE 624 /* Size of the MT state vector */ /* * Internal state for an MT RNG. The user can keep multiple mt_state * structures around as a way of generating multiple streams of random * numbers. * * In Matsumoto and Nishimura's original paper, the state vector was * processed in a forward direction. I have reversed the state vector * in this implementation. The reason for the reversal is that it * allows the critical path to use a test against zero instead of a * test against 624 to detect the need to refresh the state. on most * machines, testing against zero is slightly faster. It also means * that a state that has been set to all zeros will be correctly * detected as needing initialization; this means that setting a state * vector to zero (either with memset or by statically allocating it) * will cause the RNG to operate properly. */ typedef struct { mt_u32bit_t statevec[MT_STATE_SIZE]; /* Vector holding current state */ int stateptr; /* Next state entry to be used */ int initialized; /* NZ if state was initialized */ } mt_state; #ifdef __cplusplus extern "C" { #endif /* * Functions for manipulating any generator (given a state pointer). */ extern void mts_mark_initialized(mt_state* state); /* Mark a PRNG state as initialized */ extern void mts_seed32(mt_state* state, unsigned long seed); /* Set random seed for any generator */ extern void mts_seed32new(mt_state* state, unsigned long seed); /* Set random seed for any generator */ extern void mts_seedfull(mt_state* state, mt_u32bit_t seeds[MT_STATE_SIZE]); /* Set complicated seed for any gen. */ extern void mts_seed(mt_state* state); /* Choose seed from random input. */ /* ..Prefers /dev/urandom; uses time */ /* ..if /dev/urandom unavailable. */ /* ..Only gives 32 bits of entropy. */ extern void mts_goodseed(mt_state* state); /* Choose seed from more random */ /* ..input than mts_seed. Prefers */ /* ../dev/random; uses time if that */ /* ..is unavailable. Only gives 32 */ /* ..bits of entropy. */ extern void mts_bestseed(mt_state* state); /* Choose seed from extremely random */ /* ..input (can be *very* slow). */ /* ..Prefers /dev/random and reads */ /* ..the entire state from there. */ /* ..If /dev/random is unavailable, */ /* ..falls back to mt_goodseed(). */ /* ..Not usually worth the cost. */ extern void mts_refresh(mt_state* state); /* Generate 624 more random values */ extern int mts_savestate(FILE* statefile, mt_state* state); /* Save state to a file (ASCII). */ /* ..Returns NZ if succeeded. */ extern int mts_loadstate(FILE* statefile, mt_state* state); /* Load state from a file (ASCII). */ /* ..Returns NZ if succeeded. */ /* * Functions for manipulating the default generator. */ extern void mt_seed32(unsigned long seed); /* Set random seed for default gen. */ extern void mt_seed32new(unsigned long seed); /* Set random seed for default gen. */ extern void mt_seedfull(mt_u32bit_t seeds[MT_STATE_SIZE]); /* Set complicated seed for default */ extern void mt_seed(void); /* Choose seed from random input. */ /* ..Prefers /dev/urandom; uses time */ /* ..if /dev/urandom unavailable. */ /* ..Only gives 32 bits of entropy. */ extern void mt_goodseed(void); /* Choose seed from more random */ /* ..input than mts_seed. Prefers */ /* ../dev/random; uses time if that */ /* ..is unavailable. Only gives 32 */ /* ..bits of entropy. */ extern void mt_bestseed(void); /* Choose seed from extremely random */ /* ..input (can be *very* slow). */ /* ..Prefers /dev/random and reads */ /* ..the entire state from there. */ /* ..If /dev/random is unavailable, */ /* ..falls back to mt_goodseed(). */ /* ..Not usually worth the cost. */ extern mt_state* mt_getstate(void); /* Get current state of default */ /* ..generator */ extern int mt_savestate(FILE* statefile); /* Save state to a file (ASCII) */ /* ..Returns NZ if succeeded. */ extern int mt_loadstate(FILE* statefile); /* Load state from a file (ASCII) */ /* ..Returns NZ if succeeded. */ #ifdef __cplusplus } #endif /* * Functions for generating random numbers. The actual code of the * functions is given in this file so that it can be declared inline. * For compilers that don't have the inline feature, mtwist.c will * incorporate this file with some clever #defining so that the code * actually gets compiled. In that case, however, "extern" * definitions will be needed here, so we give them. */ #ifdef __cplusplus #undef MT_NO_INLINE /* C++ definitely has inlining */ #endif /* __cplusplus */ extern unsigned long mts_lrand(mt_state* state); /* Generate 32-bit value, any gen. */ #ifndef MT_NO_LONGLONG extern unsigned long long mts_llrand(mt_state* state); /* Generate 64-bit value, any gen. */ #endif /* MT_NO_LONGLONG */ extern double mts_drand(mt_state* state); /* Generate floating value, any gen. */ /* Fast, with only 32-bit precision */ extern double mts_ldrand(mt_state* state); /* Generate floating value, any gen. */ /* Slower, with 64-bit precision */ extern unsigned long mt_lrand(void); /* Generate 32-bit random value */ #ifndef MT_NO_LONGLONG extern unsigned long long mt_llrand(void); /* Generate 64-bit random value */ #endif /* MT_NO_LONGLONG */ extern double mt_drand(void); /* Generate floating value */ /* Fast, with only 32-bit precision */ extern double mt_ldrand(void); /* Generate floating value */ /* Slower, with 64-bit precision */ #ifndef MT_NO_INLINE /* * Tempering parameters. These are perhaps the most magic of all the magic * values in the algorithm. The values are again experimentally determined. * The values generated by the recurrence relation (constants above) are not * equidistributed in 623-space. For some reason, the tempering process * produces that effect. Don't ask me why. Read the paper if you can * understand the math. Or just trust these magic numbers. */ #define MT_TEMPERING_MASK_B 0x9d2c5680 #define MT_TEMPERING_MASK_C 0xefc60000 #define MT_TEMPERING_SHIFT_U(y) \ (y >> 11) #define MT_TEMPERING_SHIFT_S(y) \ (y << 7) #define MT_TEMPERING_SHIFT_T(y) \ (y << 15) #define MT_TEMPERING_SHIFT_L(y) \ (y >> 18) /* * Macros to do the tempering. MT_PRE_TEMPER does all but the last step; * it's useful for situations where the final step can be incorporated * into a return statement. MT_FINAL_TEMPER does that final step (not as * an assignment). MT_TEMPER does the entire process. Note that * MT_PRE_TEMPER and MT_TEMPER both modify their arguments. */ #define MT_PRE_TEMPER(value) \ do \ { \ value ^= MT_TEMPERING_SHIFT_U(value); \ value ^= MT_TEMPERING_SHIFT_S(value) & MT_TEMPERING_MASK_B; \ value ^= MT_TEMPERING_SHIFT_T(value) & MT_TEMPERING_MASK_C; \ } \ while (0) #define MT_FINAL_TEMPER(value) \ ((value) ^ MT_TEMPERING_SHIFT_L(value)) #define MT_TEMPER(value) \ do \ { \ value ^= MT_TEMPERING_SHIFT_U(value); \ value ^= MT_TEMPERING_SHIFT_S(value) & MT_TEMPERING_MASK_B; \ value ^= MT_TEMPERING_SHIFT_T(value) & MT_TEMPERING_MASK_C; \ value ^= MT_TEMPERING_SHIFT_L(value); \ } \ while (0) extern mt_state mt_default_state; /* State of the default generator */ extern double mt_32_to_double; /* Multiplier to convert long to dbl */ extern double mt_64_to_double; /* Mult'r to cvt long long to dbl */ /* * In gcc, inline functions must be declared extern or they'll produce * assembly code (and thus linking errors). We have to work around * that difficulty with the MT_EXTERN define. */ #ifndef MT_EXTERN #ifdef __cplusplus #define MT_EXTERN /* C++ doesn't need static */ #else /* __cplusplus */ #define MT_EXTERN extern /* C (at least gcc) needs extern */ #endif /* __cplusplus */ #endif /* MT_EXTERN */ /* * Make it possible for mtwist.c to disable the inline keyword. We * use our own keyword so that we don't interfere with inlining in * C/C++ header files, above. */ #ifndef MT_INLINE #define MT_INLINE inline /* Compiler has inlining */ #endif /* MT_INLINE */ /* * Generate a random number in the range 0 to 2^32-1, inclusive, working * from a given state vector. * * The generator is optimized for speed. The primary optimization is that * the pseudorandom numbers are generated in batches of MT_STATE_SIZE. This * saves the cost of a modulus operation in the critical path. */ MT_EXTERN MT_INLINE unsigned long mts_lrand( register mt_state* state) /* State for the PRNG */ { register unsigned long random_value; /* Pseudorandom value generated */ if (state->stateptr <= 0) mts_refresh(state); random_value = state->statevec[--state->stateptr]; MT_PRE_TEMPER(random_value); return MT_FINAL_TEMPER(random_value); } #ifndef MT_NO_LONGLONG /* * Generate a random number in the range 0 to 2^64-1, inclusive, working * from a given state vector. * * According to Matsumoto and Nishimura, such a number can be generated by * simply concatenating two 32-bit pseudorandom numbers. Who am I to argue? * * Note that there is a slight inefficiency here: if the 624-entry state is * recycled on the second call to mts_lrand, there will be an unnecessary * check to see if the state has been initialized. The cost of that check * seems small (since it happens only once every 624 random numbers, and * never if only 64-bit numbers are being generated), so I didn't bother to * optimize it out. Doing so would be messy, since it would require two * nearly-identical internal implementations of mts_lrand. */ MT_EXTERN MT_INLINE unsigned long long mts_llrand( register mt_state* state) /* State for the PRNG */ { register unsigned long random_value_1; /* 1st pseudorandom value generated */ register unsigned long random_value_2; /* 2nd pseudorandom value generated */ /* * For maximum speed, we'll handle the two overflow cases * together. That will save us one test in the common case, at * the expense of an extra one in the overflow case. */ if (--state->stateptr <= 0) { if (state->stateptr < 0) { mts_refresh(state); random_value_1 = state->statevec[--state->stateptr]; } else { random_value_1 = state->statevec[state->stateptr]; mts_refresh(state); } } else random_value_1 = state->statevec[--state->stateptr]; MT_TEMPER(random_value_1); random_value_2 = state->statevec[--state->stateptr]; MT_PRE_TEMPER(random_value_2); return ((unsigned long long) random_value_1 << 32) | (unsigned long long) MT_FINAL_TEMPER(random_value_2); } #endif /* MT_NO_LONGLONG */ /* * Generate a double-precision random number between 0 (inclusive) and 1.0 * (exclusive). This function is optimized for speed, but it only generates * 32 bits of precision. Use mts_ldrand to get 64 bits of precision. */ MT_EXTERN MT_INLINE double mts_drand( register mt_state* state) /* State for the PRNG */ { register unsigned long random_value; /* Pseudorandom value generated */ if (state->stateptr <= 0) mts_refresh(state); random_value = state->statevec[--state->stateptr]; MT_TEMPER(random_value); return random_value * mt_32_to_double; } /* * Generate a double-precision random number between 0 (inclusive) and 1.0 * (exclusive). This function generates 64 bits of precision. Use * mts_drand for more speed but less precision. */ MT_EXTERN MT_INLINE double mts_ldrand( register mt_state* state) /* State for the PRNG */ { #if MT_MACHINE_BITS == 64 unsigned long long final_value; /* Final (integer) value */ #endif /* MT_MACHINE_BITS */ register unsigned long random_value_1; /* 1st pseudorandom value generated */ register unsigned long random_value_2; /* 2nd pseudorandom value generated */ /* * For maximum speed, we'll handle the two overflow cases * together. That will save us one test in the common case, at * the expense of an extra one in the overflow case. */ if (--state->stateptr <= 0) { if (state->stateptr < 0) { mts_refresh(state); random_value_1 = state->statevec[--state->stateptr]; } else { random_value_1 = state->statevec[state->stateptr]; mts_refresh(state); } } else random_value_1 = state->statevec[--state->stateptr]; MT_TEMPER(random_value_1); random_value_2 = state->statevec[--state->stateptr]; MT_TEMPER(random_value_2); #if MT_MACHINE_BITS == 64 final_value = ((unsigned long long) random_value_1 << 32) | (unsigned long long) random_value_2; return final_value * mt_64_to_double; #else /* MT_MACHINE_BITS */ return random_value_1 * mt_32_to_double + random_value_2 * mt_64_to_double; #endif /* MT_MACHINE_BITS */ } /* * Generate a random number in the range 0 to 2^32-1, inclusive, working * from the default state vector. * * See mts_lrand for full commentary. */ MT_EXTERN MT_INLINE unsigned long mt_lrand() { register unsigned long random_value; /* Pseudorandom value generated */ if (mt_default_state.stateptr <= 0) mts_refresh(&mt_default_state); random_value = mt_default_state.statevec[--mt_default_state.stateptr]; MT_PRE_TEMPER(random_value); return MT_FINAL_TEMPER(random_value); } #ifndef MT_NO_LONGLONG /* * Generate a random number in the range 0 to 2^64-1, inclusive, working * from the default state vector. * * See mts_llrand for full commentary. */ MT_EXTERN MT_INLINE unsigned long long mt_llrand() { register unsigned long random_value_1; /* 1st pseudorandom value generated */ register unsigned long random_value_2; /* 2nd pseudorandom value generated */ /* * For maximum speed, we'll handle the two overflow cases * together. That will save us one test in the common case, at * the expense of an extra one in the overflow case. */ if (--mt_default_state.stateptr <= 0) { if (mt_default_state.stateptr < 0) { mts_refresh(&mt_default_state); random_value_1 = mt_default_state.statevec[--mt_default_state.stateptr]; } else { random_value_1 = mt_default_state.statevec[mt_default_state.stateptr]; mts_refresh(&mt_default_state); } } else random_value_1 = mt_default_state.statevec[--mt_default_state.stateptr]; MT_TEMPER(random_value_1); random_value_2 = mt_default_state.statevec[--mt_default_state.stateptr]; MT_PRE_TEMPER(random_value_2); return ((unsigned long long) random_value_1 << 32) | (unsigned long long) MT_FINAL_TEMPER(random_value_2); } #endif /* MT_NO_LONGLONG */ /* * Generate a double-precision random number between 0 (inclusive) and 1.0 * (exclusive). This function is optimized for speed, but it only generates * 32 bits of precision. Use mt_ldrand to get 64 bits of precision. */ MT_EXTERN MT_INLINE double mt_drand() { register unsigned long random_value; /* Pseudorandom value generated */ if (mt_default_state.stateptr <= 0) mts_refresh(&mt_default_state); random_value = mt_default_state.statevec[--mt_default_state.stateptr]; MT_TEMPER(random_value); return random_value * mt_32_to_double; } /* * Generate a double-precision random number between 0 (inclusive) and 1.0 * (exclusive). This function generates 64 bits of precision. Use * mts_drand for more speed but less precision. */ MT_EXTERN MT_INLINE double mt_ldrand(void) { #if MT_MACHINE_BITS == 64 unsigned long long final_value; /* Final (integer) value */ #endif /* MT_MACHINE_BITS */ register unsigned long random_value_1; /* 1st pseudorandom value generated */ register unsigned long random_value_2; /* 2nd pseudorandom value generated */ /* * For maximum speed, we'll handle the two overflow cases * together. That will save us one test in the common case, at * the expense of an extra one in the overflow case. */ if (--mt_default_state.stateptr <= 0) { if (mt_default_state.stateptr < 0) { mts_refresh(&mt_default_state); random_value_1 = mt_default_state.statevec[--mt_default_state.stateptr]; } else { random_value_1 = mt_default_state.statevec[mt_default_state.stateptr]; mts_refresh(&mt_default_state); } } else random_value_1 = mt_default_state.statevec[--mt_default_state.stateptr]; MT_TEMPER(random_value_1); random_value_2 = mt_default_state.statevec[--mt_default_state.stateptr]; MT_TEMPER(random_value_2); #if MT_MACHINE_BITS == 64 final_value = ((unsigned long long) random_value_1 << 32) | (unsigned long long) random_value_2; return final_value * mt_64_to_double; #else /* MT_MACHINE_BITS */ return random_value_1 * mt_32_to_double + random_value_2 * mt_64_to_double; #endif /* MT_MACHINE_BITS */ } #endif /* MT_NO_INLINE */ #ifdef __cplusplus /* * C++ interface to the Mersenne Twist PRNG. This class simply * provides a more C++-ish way to access the PRNG. Only state-based * functions are provided. All functions are inlined, both for speed * and so that the same implementation code can be used in C and C++. */ class mt_prng { public: /* * Constructors and destructors. The default constructor * leaves initialization (seeding) for later unless pickSeed * is true, in which case the seed is chosen based on either * /dev/urandom (if available) or the system time. The other * constructors accept either a 32-bit seed, or a full * 624-long seed. */ mt_prng( // Default constructor bool pickSeed = false) // True to get seed from /dev/urandom // ..or time { state.stateptr = 0; state.initialized = 0; if (pickSeed) mts_seed(&state); } mt_prng(unsigned long seed) // Construct with 32-bit seeding { state.stateptr = 0; state.initialized = 0; mts_seed32(&state, seed); } mt_prng(mt_u32bit_t seeds[MT_STATE_SIZE]) // Construct with full seeding { state.stateptr = 0; state.initialized = 0; mts_seedfull(&state, seeds); } ~mt_prng() { } /* * Copy and assignment are best left defaulted. */ /* * PRNG seeding functions. */ void seed32(unsigned long seed) // Set 32-bit random seed { mts_seed32(&state, seed); } void seed32new(unsigned long seed) // Set 32-bit random seed { mts_seed32new(&state, seed); } void seedfull(mt_u32bit_t seeds[MT_STATE_SIZE]) // Set complicated random seed { mts_seedfull(&state, seeds); } void seed() // Choose seed from random input { mts_seed(&state); } void goodseed() // Choose better seed from random input { mts_goodseed(&state); } void bestseed() // Choose best seed from random input { mts_bestseed(&state); } friend std::ostream& operator<<(std::ostream& stream, const mt_prng& rng); friend std::istream& operator>>(std::istream& stream, mt_prng& rng); /* * PRNG generation functions */ unsigned long lrand() // Generate 32-bit pseudo-random value { return mts_lrand(&state); } #ifndef MT_NO_LONGLONG unsigned long long llrand() // Generate 64-bit pseudo-random value { return mts_llrand(&state); } #endif /* MT_NO_LONGLONG */ double drand() // Generate fast 32-bit floating value { return mts_drand(&state); } double ldrand() // Generate slow 64-bit floating value { return mts_ldrand(&state); } /* * Following Richard J. Wagner's example, we overload the * function-call operator to return a 64-bit floating value. * That allows the common use of the PRNG to be simplified as * in the following example: * * mt_prng ranno(true); * // ... * coinFlip = ranno() >= 0.5 ? heads : tails; */ double operator()() { return mts_drand(&state); } protected: /* * Protected data */ mt_state state; // Current state of the PRNG }; /* * Save state to a stream. See mts_savestate. */ MT_INLINE std::ostream& operator<<( std::ostream& stream, // Stream to save to const mt_prng& rng) // PRNG to save { for (int i = MT_STATE_SIZE; --i >= 0; ) { if (!(stream << rng.state.statevec[i] << ' ')) return stream; } return stream << rng.state.stateptr; } /* * Restore state from a stream. See mts_loadstate. */ MT_INLINE std::istream& operator>>( std::istream& stream, // Stream to laod from mt_prng& rng) // PRNG to load { rng.state.initialized = rng.state.stateptr = 0; for (int i = MT_STATE_SIZE; --i >= 0; ) { if (!(stream >> rng.state.statevec[i])) return stream; } if (!(stream >> rng.state.stateptr)) { rng.state.stateptr = 0; return stream; } /* * If the state is invalid, all we can do is to make it uninitialized. */ if (rng.state.stateptr < 0 || rng.state.stateptr > MT_STATE_SIZE) { rng.state.stateptr = 0; return stream; } mts_mark_initialized(&rng.state); return stream; } #endif #endif /* MTWIST_H */ april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Ladd/000077500000000000000000000000001234204160600246215ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Ladd/Ladd.cpp000066400000000000000000000033461234204160600261770ustar00rootroot00000000000000// Ladd.cpp // Test output and speed of Ladd's Mersenne Twister class // Richard J. Wagner 28 Sep 2009 // This is free, unrestricted software void of any warranty. #include #include #include #include "mtprng.h" using namespace libcoyote; using namespace std; int main ( int argc, char * const argv[] ) { printf( "Testing output and speed of Ladd's Mersenne Twister class\n" ); printf( "\nTest of random integer generation:\n" ); unsigned long oneSeed = 4357UL; vector bigSeed; bigSeed.push_back( 0x123UL ); bigSeed.push_back( 0x234UL ); bigSeed.push_back( 0x345UL ); bigSeed.push_back( 0x456UL ); printf( "\nTest of random integer generation:\n" ); mtprng mtrand1; mtrand1.init_by_array( bigSeed ); unsigned long i; for( i = 0; i < 1000UL; ++i ) { printf( "%10lu ", mtrand1.get_rand() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of random real number [0,1) generation:\n" ); for( i = 0; i < 1000UL; ++i ) { printf( "%10.8f ", mtrand1.get_rand_real2() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of random real number [0,1] generation:\n" ); mtprng mtrand2( oneSeed ); for( i = 0; i < 2000UL; ++i ) { printf( "%10.8f ", mtrand2.get_rand_real1() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of time to generate one billion random integers:\n" ); mtprng mtrand3( oneSeed ); unsigned long junk = 0; clock_t start = clock(); for( i = 0; i < 1000000000UL; ++i ) { junk ^= mtrand3.get_rand(); } clock_t stop = clock(); if( junk == 0 ) printf( "jinx\n" ); printf( "Time elapsed = " ); printf( "%8.3f", double( stop - start ) / CLOCKS_PER_SEC ); printf( " s\n" ); return 0; } april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Ladd/mtprng.cpp000066400000000000000000000144321234204160600266400ustar00rootroot00000000000000//--------------------------------------------------------------------- // Algorithmic Conjurings @ http://www.coyotegulch.com // // mtprng.cpp (libcoyote) // // Mersenne Twister -- A pseudorandom Number Generator // // ORIGINAL ALGORITHM COPYRIGHT // ============================ // Copyright (C) 1997, 2002 Makoto Matsumoto and Takuji Nishimura. // Any feedback is very welcome. For any question, comments, see // http://www.math.keio.ac.jp/matumoto/emt.html or email // matumoto@math.keio.ac.jp //--------------------------------------------------------------------- // // COPYRIGHT NOTICE, DISCLAIMER, and LICENSE: // // This notice applies *only* to this specific expression of this // algorithm, and does not imply ownership or invention of the // implemented algorithm. // // If you modify this file, you may insert additional notices // immediately following this sentence. // // Copyright 2001, 2002, 2003 Scott Robert Ladd. // All rights reserved, except as noted herein. // // This computer program source file is supplied "AS IS". Scott Robert // Ladd (hereinafter referred to as "Author") disclaims all warranties, // expressed or implied, including, without limitation, the warranties // of merchantability and of fitness for any purpose. The Author // assumes no liability for direct, indirect, incidental, special, // exemplary, or consequential damages, which may result from the use // of this software, even if advised of the possibility of such damage. // // The Author hereby grants anyone permission to use, copy, modify, and // distribute this source code, or portions hereof, for any purpose, // without fee, subject to the following restrictions: // // 1. The origin of this source code must not be misrepresented. // // 2. Altered versions must be plainly marked as such and must not // be misrepresented as being the original source. // // 3. This Copyright notice may not be removed or altered from any // source or altered source distribution. // // The Author specifically permits (without fee) and encourages the use // of this source code for entertainment, education, or decoration. If // you use this source code in a product, acknowledgment is not required // but would be appreciated. // // Acknowledgement: // This license is based on the wonderful simple license that // accompanies libpng. // //----------------------------------------------------------------------- // // For more information on this software package, please visit // Scott's web site, Coyote Gulch Productions, at: // // http://www.coyotegulch.com // //----------------------------------------------------------------------- #include "mtprng.h" using namespace libcoyote; #if _MSC_VER < 1300 const mtprng::int_type mtprng::MATRIX_A = 0x9908b0dfUL; const mtprng::int_type mtprng::UPPER_MASK = 0x80000000UL; const mtprng::int_type mtprng::LOWER_MASK = 0x7fffffffUL; #endif //-------------------------------------------------------------------------- // Constructor mtprng::mtprng(int_type seed) { init(seed); } //-------------------------------------------------------------------------- // Initializes the generator with "seed" void mtprng::init(int_type seed) { // Save seed for historical purpose m_seed = seed; m_mt[0] = seed & 0xffffffffUL; // Set the seed using values suggested by Matsumoto & Nishimura, using // a generator by Knuth. See original source for details. for (m_mti = 1; m_mti < N; ++m_mti) m_mt[m_mti] = 0xffffffffUL & (1812433253UL * (m_mt[m_mti - 1] ^ (m_mt[m_mti - 1] >> 30)) + m_mti); } //-------------------------------------------------------------------------- // Initialize the generator from an array of seeds void mtprng::init_by_array(const std::vector & init_key) { // Note: variable names match those in original example size_t i = 1; size_t j = 0; size_t k = static_cast((N > init_key.size()) ? N : init_key.size()); init(19650218UL); for (; k; --k) { m_mt[i] = (m_mt[i] ^ ((m_mt[i - 1] ^ (m_mt[i - 1] >> 30)) * 1664525UL)) + init_key[j] + j; m_mt[i] &= 0xffffffffUL; ++i; ++j; if (i >= N) { m_mt[0] = m_mt[N - 1]; i = 1; } if (j >= static_cast(init_key.size())) j = 0; } for (k = N - 1; k; --k) { m_mt[i] = (m_mt[i] ^ ((m_mt[i - 1] ^ (m_mt[i - 1] >> 30)) * 1566083941UL)) - i; m_mt[i] &= 0xffffffffUL; ++i; if (i >= N) { m_mt[0] = m_mt[N - 1]; i = 1; } } m_mt[0] = 0x80000000UL; } //-------------------------------------------------------------------------- // Obtain the next 32-bit integer in the psuedo-random sequence mtprng::int_type mtprng::get_rand() { // Note: variable names match those in original example const int_type mag01[2] = { 0, MATRIX_A }; int_type y; size_t kk; // Generate N words at a time if (m_mti >= N) { // Fill the m_mt array for (kk=0; kk < N-M; kk++) { y = (m_mt[kk] & UPPER_MASK) | (m_mt[kk+1] & LOWER_MASK); m_mt[kk] = m_mt[kk + M] ^ (y >> 1) ^ mag01[y & 0x1]; } for ( ; kk < N-1; kk++) { y = (m_mt[kk] & UPPER_MASK) | (m_mt[kk+1] & LOWER_MASK); m_mt[kk] = m_mt[kk+(M-N)] ^ (y >> 1) ^ mag01[y & 0x1]; } y = (m_mt[N-1] & UPPER_MASK) | (m_mt[0]&LOWER_MASK); m_mt[N-1] = m_mt[M-1] ^ (y >> 1) ^ mag01[y & 0x1]; m_mti = 0; } // Here is where we actually calculate the number with a series of transformations y = m_mt[m_mti++]; y ^= (y >> 11); y ^= (y << 7) & 0x9d2c5680UL; y ^= (y << 15) & 0xefc60000UL; y ^= (y >> 18); return y; } //-------------------------------------------------------------------------- // Obtain a psuedorandom real number in the range [0,1), i.e., a number // greater than or equal to 0 and less than 1, with 53-bit precision. mtprng::real_type mtprng::get_rand_real53() { // privides a granularity of approx. 1.1E-16 int_type a = get_rand() >> 5; int_type b = get_rand() >> 6; return real_type(a * 67108864.0 + b) * (1.0 / 9007199254740992.0); } april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Ladd/mtprng.h000066400000000000000000000267271234204160600263170ustar00rootroot00000000000000//--------------------------------------------------------------------- // Algorithmic Conjurings @ http://www.coyotegulch.com // // mtprng.h (libcoyote) // // Mersenne Twister -- A pseudorandom Number Generator // // ORIGINAL ALGORITHM COPYRIGHT // ============================ // Copyright (C) 1997, 2002 Makoto Matsumoto and Takuji Nishimura. // Any feedback is very welcome. For any question, comments, see // http://www.math.keio.ac.jp/matumoto/emt.html or email // matumoto@math.keio.ac.jp //--------------------------------------------------------------------- // // COPYRIGHT NOTICE, DISCLAIMER, and LICENSE: // // This notice applies *only* to this specific expression of this // algorithm, and does not imply ownership or invention of the // implemented algorithm. // // If you modify this file, you may insert additional notices // immediately following this sentence. // // Copyright 2001, 2002, 2003 Scott Robert Ladd. // All rights reserved, except as noted herein. // // This computer program source file is supplied "AS IS". Scott Robert // Ladd (hereinafter referred to as "Author") disclaims all warranties, // expressed or implied, including, without limitation, the warranties // of merchantability and of fitness for any purpose. The Author // assumes no liability for direct, indirect, incidental, special, // exemplary, or consequential damages, which may result from the use // of this software, even if advised of the possibility of such damage. // // The Author hereby grants anyone permission to use, copy, modify, and // distribute this source code, or portions hereof, for any purpose, // without fee, subject to the following restrictions: // // 1. The origin of this source code must not be misrepresented. // // 2. Altered versions must be plainly marked as such and must not // be misrepresented as being the original source. // // 3. This Copyright notice may not be removed or altered from any // source or altered source distribution. // // The Author specifically permits (without fee) and encourages the use // of this source code for entertainment, education, or decoration. If // you use this source code in a product, acknowledgment is not required // but would be appreciated. // // Acknowledgement: // This license is based on the wonderful simple license that // accompanies libpng. // //----------------------------------------------------------------------- // For more information on this software package, please visit // Scott's web site, Coyote Gulch Productions, at: // // http://www.coyotegulch.com //----------------------------------------------------------------------- #if !defined(LIBCOYOTE_MTPRNG_H) #define LIBCOYOTE_MTPRNG_H // Standard C++ Library #include #include #include namespace libcoyote { //! Implements the Mersenne Twister, a peudorandom number generator /*! The mtprng class encapsulates the Mersenne Twister algorithm invented by Makoto Matsumoto and Takuji Nishimura. One of the appealing aspects of the Mersenne Twister is its use of binary operations (as opposed to time-consuming multiplication) for generating numbers. The algorithm's period is 219937-1 (~106001), as compared to a period of ~108 for the best variants of the linear congruential methods. For practical purposes, the Mersenne Twister doesn't repeat itself. And the basic algorithm generates 32-bit integers, while the standard rand() function produces 16-bit values.

Version history - 1.0.0 (9 December 2001) - Original release . - 1.1.0 (26 Jan 2002) - Fixed problems with Microsoft C++ 6 (v12.00) and static constant initializations. - Added protection from multiple inclusions. - Added Doxygen comments. - Changed get_rand_range to use int_value parameters instead of int. - Added function to return an encoded version number. . 1.2.0 (5 February 2002) - Implemented enhancements announced on 26 Jan by Matsumoto and Nishimura - Added new functions to reflect M&N's latest work. . 1.2.1 7 February 2002 - Added function to return a random zero-based, size_t index - Inlined the simplest "get" functions . 1.3.0 19 April 2002 - Updated for improve Microsoft Visual C++ 13.0 in Visual Studio.NET. - Move these classes back into the libcoyote namespace. . 1.3.1 15 June 2002 - Updated and expanded doxygen comments . 1.3.2 15 June 2002 - Added ability to retrieve seed used in initialization . 1.3.2 15 January 2003 - Modified init_by_array to eliminate warnings. - improved consistency with my other code. . \version 1.3.2 \date 15 January 2003 */ class mtprng { public: //! Defines the 32-bit integer type. typedef unsigned long int_type; // needs to be a 32-bit type //! Defines the 64-bit IEEE-754 type. typedef double real_type; // needs to be a 64-bit or larger type private: #if _MSC_VER < 1300 // Period parameters #define N size_t(624) #define M size_t(397) static const int_type MATRIX_A; static const int_type UPPER_MASK; static const int_type LOWER_MASK; #else // Period parameters static const size_t N = 624; static const size_t M = 397; static const int_type MATRIX_A = 0x9908b0dfUL; static const int_type UPPER_MASK = 0x80000000UL; static const int_type LOWER_MASK = 0x7fffffffUL; #endif // Working storage int_type m_seed; int_type m_mt[N]; size_t m_mti; int_type m_multiplier; public: //! Default constructor, with optional seed. /*! The constructor uses a default value for the seed. In practice, you'll want to use a better seed, perhaps based on the time or some stochastic source such as /dev/random or /dev/urandom. \param seed - Seed value used to "start" or seed the generator */ mtprng(int_type seed = 19650218UL); //! Initializes the generator with "seed" /*! Resets the generator using the provided seed value. \param seed - Seed value used to "start" or seed the generator \sa int_type */ void init(int_type seed); //! Returns the original seed value /*! Returns the seed value used to initialize this generator. \return The seed value used to initialize this generator */ int_type get_seed() { return m_seed; } //! Initialize the generator from an array of seeds /*! Uses an array of integer seeds to initialize the generator. \param init_key - A vector of int_type seeds \sa int_type */ void init_by_array(const std::vector & init_key); //! Get the next integer /*! Returns the next int_type in sequence. \return A pseudorandom int_type value \sa int_type */ int_type get_rand(); //! Get the next integer in the range [lo,hi] /*! Returns the next int_value between lo and hi, inclusive. \param lo - Minimum value of result \param hi - Maximum value of result \return A pseudorandom int_type value \sa int_type */ int_type get_rand_range(int_type lo, int_type hi); //! Get the next random value as a size_t index /*! Returns the next value as a size_t "index" in the range [0,length). \param length - Maximum value of result \return A pseudorandom size_t value */ size_t get_rand_index(size_t length); //! Get the next number in the range [0,1] /*! Returns the next real number in the range [0,1], i.e., a number greater than or equal to 0 and less than or equal to 1. Provides 32-bit precision. \return A pseudorandom real_type value \sa real_type */ real_type get_rand_real1(); //! Get the next number in the range [0,1) /*! Returns the next real number in the range [0,1), i.e., a number greater than or equal to 0 and less than 1. Provides 32-bit precision. \return A pseudorandom real_type value \sa real_type */ real_type get_rand_real2(); //! Get the next number in the range (0,1) /*! Returns the next real number in the range (0,1), i.e., a number greater than 0 and less than 1. Provides 32-bit precision. \return A pseudorandom real_type value \sa real_type */ real_type get_rand_real3(); //! Get the next number in the range [0,1) /*! Returns the next real number in the range [0,1), i.e., a number greater than or equal to 0 and less than 1. Provides 53-bit precision. \return A pseudorandom real_type value \sa real_type */ real_type get_rand_real53(); }; //--------------------------------------------------------------------------- // Obtain a psuedorandom integer in the range [lo,hi] inline mtprng::int_type mtprng::get_rand_range(mtprng::int_type lo, mtprng::int_type hi) { // Local working storage real_type range = hi - lo + 1.0; // Use real value to caluclate range return lo + int_type(floor(range * get_rand_real2())); } //-------------------------------------------------------------------------- // Returns the next value as a size_t "index" in the range [0,length). inline size_t mtprng::get_rand_index(size_t length) { return size_t(real_type(length) * get_rand_real2()); } //-------------------------------------------------------------------------- // Obtain a psuedorandom real number in the range [0,1], i.e., a number // greater than or equal to 0 and less than or equal to 1. inline mtprng::real_type mtprng::get_rand_real1() { // privides a granularity of approx. 2.3E-10 return real_type(get_rand()) * (1.0 / 4294967295.0); } //-------------------------------------------------------------------------- // Obtain a psuedorandom real number in the range [0,1), i.e., a number // greater than or equal to 0 and less than 1. inline mtprng::real_type mtprng::get_rand_real2() { // privides a granularity of approx. 2.3E-10 return real_type(get_rand()) * (1.0 / 4294967296.0); } //-------------------------------------------------------------------------- // Obtain a psuedorandom real number in the range (0,1), i.e., a number // greater than 0 and less than 1. inline mtprng::real_type mtprng::get_rand_real3() { // privides a granularity of approx. 2.3E-10 return real_type((double(get_rand()) + 0.5) * (1.0 / 4294967296.0)); } } // end namespace CoyoteGulch #endif april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Makefile000066400000000000000000000037601234204160600254230ustar00rootroot00000000000000# Makefile for testing various Mersenne Twister implementations # Define compiler and compilation options CC = g++ CFLAGS = -ansi -Wall COPTIM = -O3 # Compile and run test programs .PHONY: all run test clean all: test run: test WagnerTest: Wagner/Wagner.cpp ../MersenneTwister.h $(CC) $(CFLAGS) $(COPTIM) -o WagnerTest -I../ Wagner/Wagner.cpp BedauxTest: Bedaux/Bedaux.cpp Bedaux/mtrand.h Bedaux/mtrand.cpp -$(CC) $(COPTIM) -o BedauxTest Bedaux/Bedaux.cpp Bedaux/mtrand.cpp BlevinsTest: Blevins/Blevins.cpp Blevins/mt.h Blevins/mt.cc -$(CC) $(COPTIM) -o BlevinsTest Blevins/Blevins.cpp Blevins/mt.cc CokusTest: Cokus/Cokus.cpp Cokus/mt19937ar-cok.c -$(CC) $(COPTIM) -o CokusTest Cokus/Cokus.cpp KuenningTest: Kuenning/Kuenning.cpp Kuenning/mtwist.h Kuenning/mtwist.c -$(CC) $(COPTIM) -o KuenningTest Kuenning/Kuenning.cpp Kuenning/mtwist.c LaddTest: Ladd/Ladd.cpp Ladd/mtprng.h Ladd/mtprng.cpp -$(CC) $(COPTIM) -o LaddTest Ladd/Ladd.cpp Ladd/mtprng.cpp OriginalTest: Original/Original.cpp Original/mt19937ar.c -$(CC) $(COPTIM) -o OriginalTest Original/Original.cpp StandardTest: Standard/Standard.cpp -$(CC) $(COPTIM) -o StandardTest Standard/Standard.cpp YangTest: Yang/Yang.cpp Yang/mtrnd.h -$(CC) $(COPTIM) -o YangTest Yang/Yang.cpp test: WagnerTest BedauxTest BlevinsTest CokusTest KuenningTest LaddTest OriginalTest StandardTest YangTest @ echo @ echo "Testing output and speed of random number generators, please be patient..." ./WagnerTest > Wagner.out -./BedauxTest > Bedaux.out -./BlevinsTest > Blevins.out -./CokusTest > Cokus.out -./KuenningTest > Kuenning.out -./LaddTest > Ladd.out -./OriginalTest > Original.out -./StandardTest > Standard.out -./YangTest > Yang.out ./Results.sh # Clean away executable and output files clean: @ rm -f Wagner.out Bedaux.out Blevins.out Cokus.out Kuenning.out Ladd.out Original.out Standard.out Yang.out @ rm -f WagnerTest BedauxTest BlevinsTest CokusTest KuenningTest LaddTest OriginalTest StandardTest YangTest @ rm -f state.dat *.tmp core april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Original/000077500000000000000000000000001234204160600255215ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Original/Original.cpp000066400000000000000000000030441234204160600277720ustar00rootroot00000000000000// Original.cpp // Test output and speed of inventors' Mersenne Twister program // Richard J. Wagner 29 Sep 2009 // This is free, unrestricted software void of any warranty. #include #include #include "mt19937ar.c" int main ( int argc, char * const argv[] ) { printf( "Testing output and speed of inventors' Mersenne Twister program\n" ); printf( "\nTest of random integer generation:\n" ); unsigned long oneSeed = 4357UL; unsigned long bigSeed[4] = { 0x123UL, 0x234UL, 0x345UL, 0x456UL }; printf( "\nTest of random integer generation:\n" ); init_by_array( bigSeed, 4 ); unsigned long i; for( i = 0; i < 1000UL; ++i ) { printf( "%10lu ", genrand_int32() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of random real number [0,1) generation:\n" ); for( i = 0; i < 1000UL; ++i ) { printf( "%10.8f ", genrand_real2() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of random real number [0,1] generation:\n" ); init_genrand( oneSeed ); for( i = 0; i < 2000UL; ++i ) { printf( "%10.8f ", genrand_real1() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of time to generate one billion random integers:\n" ); init_genrand( oneSeed ); unsigned long junk = 0; clock_t start = clock(); for( i = 0; i < 1000000000UL; ++i ) { junk ^= genrand_int32(); } clock_t stop = clock(); if( junk == 0 ) printf( "jinx\n" ); printf( "Time elapsed = " ); printf( "%8.3f", double( stop - start ) / CLOCKS_PER_SEC ); printf( " s\n" ); return 0; } april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Original/mt19937ar.c000066400000000000000000000143031234204160600272460ustar00rootroot00000000000000/* A C-program for MT19937, with initialization improved 2002/1/26. Coded by Takuji Nishimura and Makoto Matsumoto. Before using, initialize the state by using init_genrand(seed) or init_by_array(init_key, key_length). Copyright (C) 1997 - 2002, Makoto Matsumoto and Takuji Nishimura, All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. 3. The names of its contributors may not be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. Any feedback is very welcome. http://www.math.keio.ac.jp/matumoto/emt.html email: matumoto@math.keio.ac.jp */ #include /* Period parameters */ #define N 624 #define M 397 #define MATRIX_A 0x9908b0dfUL /* constant vector a */ #define UPPER_MASK 0x80000000UL /* most significant w-r bits */ #define LOWER_MASK 0x7fffffffUL /* least significant r bits */ static unsigned long mt[N]; /* the array for the state vector */ static int mti=N+1; /* mti==N+1 means mt[N] is not initialized */ /* initializes mt[N] with a seed */ void init_genrand(unsigned long s) { mt[0]= s & 0xffffffffUL; for (mti=1; mti> 30)) + mti); /* See Knuth TAOCP Vol2. 3rd Ed. P.106 for multiplier. */ /* In the previous versions, MSBs of the seed affect */ /* only MSBs of the array mt[]. */ /* 2002/01/09 modified by Makoto Matsumoto */ mt[mti] &= 0xffffffffUL; /* for >32 bit machines */ } } /* initialize by an array with array-length */ /* init_key is the array for initializing keys */ /* key_length is its length */ void init_by_array(unsigned long init_key[], int key_length) { int i, j, k; init_genrand(19650218UL); i=1; j=0; k = (N>key_length ? N : key_length); for (; k; k--) { mt[i] = (mt[i] ^ ((mt[i-1] ^ (mt[i-1] >> 30)) * 1664525UL)) + init_key[j] + j; /* non linear */ mt[i] &= 0xffffffffUL; /* for WORDSIZE > 32 machines */ i++; j++; if (i>=N) { mt[0] = mt[N-1]; i=1; } if (j>=key_length) j=0; } for (k=N-1; k; k--) { mt[i] = (mt[i] ^ ((mt[i-1] ^ (mt[i-1] >> 30)) * 1566083941UL)) - i; /* non linear */ mt[i] &= 0xffffffffUL; /* for WORDSIZE > 32 machines */ i++; if (i>=N) { mt[0] = mt[N-1]; i=1; } } mt[0] = 0x80000000UL; /* MSB is 1; assuring non-zero initial array */ } /* generates a random number on [0,0xffffffff]-interval */ unsigned long genrand_int32(void) { unsigned long y; static unsigned long mag01[2]={0x0UL, MATRIX_A}; /* mag01[x] = x * MATRIX_A for x=0,1 */ if (mti >= N) { /* generate N words at one time */ int kk; if (mti == N+1) /* if init_genrand() has not been called, */ init_genrand(5489UL); /* a default initial seed is used */ for (kk=0;kk> 1) ^ mag01[y & 0x1UL]; } for (;kk> 1) ^ mag01[y & 0x1UL]; } y = (mt[N-1]&UPPER_MASK)|(mt[0]&LOWER_MASK); mt[N-1] = mt[M-1] ^ (y >> 1) ^ mag01[y & 0x1UL]; mti = 0; } y = mt[mti++]; /* Tempering */ y ^= (y >> 11); y ^= (y << 7) & 0x9d2c5680UL; y ^= (y << 15) & 0xefc60000UL; y ^= (y >> 18); return y; } /* generates a random number on [0,0x7fffffff]-interval */ long genrand_int31(void) { return (long)(genrand_int32()>>1); } /* generates a random number on [0,1]-real-interval */ double genrand_real1(void) { return genrand_int32()*(1.0/4294967295.0); /* divided by 2^32-1 */ } /* generates a random number on [0,1)-real-interval */ double genrand_real2(void) { return genrand_int32()*(1.0/4294967296.0); /* divided by 2^32 */ } /* generates a random number on (0,1)-real-interval */ double genrand_real3(void) { return (((double)genrand_int32()) + 0.5)*(1.0/4294967296.0); /* divided by 2^32 */ } /* generates a random number on [0,1) with 53-bit resolution*/ double genrand_res53(void) { unsigned long a=genrand_int32()>>5, b=genrand_int32()>>6; return(a*67108864.0+b)*(1.0/9007199254740992.0); } /* These real versions are due to Isaku Wada, 2002/01/09 added */ /* This main() outputs 2000 generated integers and reals. */ /* int main(void) { int i; unsigned long init[4]={0x123, 0x234, 0x345, 0x456}, length=4; init_by_array(init, length); printf("1000 outputs of genrand_int32()\n"); for (i=0; i<1000; i++) { printf("%10lu ", genrand_int32()); if (i%5==4) printf("\n"); } printf("\n1000 outputs of genrand_real2()\n"); for (i=0; i<1000; i++) { printf("%10.8f ", genrand_real2()); if (i%5==4) printf("\n"); } return 0; } */ april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Reference.out000066400000000000000000001300651234204160600264110ustar00rootroot00000000000000Testing output and speed of inventors' Mersenne Twister program Test of random integer generation: Test of random integer generation: 1067595299 955945823 477289528 4107218783 4228976476 3344332714 3355579695 227628506 810200273 2591290167 2560260675 3242736208 646746669 1479517882 4245472273 1143372638 3863670494 3221021970 1773610557 1138697238 1421897700 1269916527 2859934041 1764463362 3874892047 3965319921 72549643 2383988930 2600218693 3237492380 2792901476 725331109 605841842 271258942 715137098 3297999536 1322965544 4229579109 1395091102 3735697720 2101727825 3730287744 2950434330 1661921839 2895579582 2370511479 1004092106 2247096681 2111242379 3237345263 4082424759 219785033 2454039889 3709582971 835606218 2411949883 2735205030 756421180 2175209704 1873865952 2762534237 4161807854 3351099340 181129879 3269891896 776029799 2218161979 3001745796 1866825872 2133627728 34862734 1191934573 3102311354 2916517763 1012402762 2184831317 4257399449 2899497138 3818095062 3030756734 1282161629 420003642 2326421477 2741455717 1278020671 3744179621 271777016 2626330018 2560563991 3055977700 4233527566 1228397661 3595579322 1077915006 2395931898 1851927286 3013683506 1999971931 3006888962 1049781534 1488758959 3491776230 104418065 2448267297 3075614115 3872332600 891912190 3936547759 2269180963 2633455084 1047636807 2604612377 2709305729 1952216715 207593580 2849898034 670771757 2210471108 467711165 263046873 3569667915 1042291111 3863517079 1464270005 2758321352 3790799816 2301278724 3106281430 7974801 2792461636 555991332 621766759 1322453093 853629228 686962251 1455120532 957753161 1802033300 1021534190 3486047311 1902128914 3701138056 4176424663 1795608698 560858864 3737752754 3141170998 1553553385 3367807274 711546358 2475125503 262969859 251416325 2980076994 1806565895 969527843 3529327173 2736343040 2987196734 1649016367 2206175811 3048174801 3662503553 3138851612 2660143804 1663017612 1816683231 411916003 3887461314 2347044079 1015311755 1203592432 2170947766 2569420716 813872093 1105387678 1431142475 220570551 4243632715 4179591855 2607469131 3090613241 282341803 1734241730 1391822177 1001254810 827927915 1886687171 3935097347 2631788714 3905163266 110554195 2447955646 3717202975 3304793075 3739614479 3059127468 953919171 2590123714 1132511021 3795593679 2788030429 982155079 3472349556 859942552 2681007391 2299624053 647443547 233600422 608168955 3689327453 1849778220 1608438222 3968158357 2692977776 2851872572 246750393 3582818628 3329652309 4036366910 1012970930 950780808 3959768744 2538550045 191422718 2658142375 3276369011 2927737484 1234200027 1920815603 3536074689 1535612501 2184142071 3276955054 428488088 2378411984 4059769550 3913744741 2732139246 64369859 3755670074 842839565 2819894466 2414718973 1010060670 1839715346 2410311136 152774329 3485009480 4102101512 2852724304 879944024 1785007662 2748284463 1354768064 3267784736 2269127717 3001240761 3179796763 895723219 865924942 4291570937 89355264 1471026971 4114180745 3201939751 2867476999 2460866060 3603874571 2238880432 3308416168 2072246611 2755653839 3773737248 1709066580 4282731467 2746170170 2832568330 433439009 3175778732 26248366 2551382801 183214346 3893339516 1928168445 1337157619 3429096554 3275170900 1782047316 4264403756 1876594403 4289659572 3223834894 1728705513 4068244734 2867840287 1147798696 302879820 1730407747 1923824407 1180597908 1569786639 198796327 560793173 2107345620 2705990316 3448772106 3678374155 758635715 884524671 486356516 1774865603 3881226226 2635213607 1181121587 1508809820 3178988241 1594193633 1235154121 326117244 2304031425 937054774 2687415945 3192389340 2003740439 1823766188 2759543402 10067710 1533252662 4132494984 82378136 420615890 3467563163 541562091 3535949864 2277319197 3330822853 3215654174 4113831979 4204996991 2162248333 3255093522 2219088909 2978279037 255818579 2859348628 3097280311 2569721123 1861951120 2907080079 2719467166 998319094 2521935127 2404125338 259456032 2086860995 1839848496 1893547357 2527997525 1489393124 2860855349 76448234 2264934035 744914583 2586791259 1385380501 66529922 1819103258 1899300332 2098173828 1793831094 276463159 360132945 4178212058 595015228 177071838 2800080290 1573557746 1548998935 378454223 1460534296 1116274283 3112385063 3709761796 827999348 3580042847 1913901014 614021289 4278528023 1905177404 45407939 3298183234 1184848810 3644926330 3923635459 1627046213 3677876759 969772772 1160524753 1522441192 452369933 1527502551 832490847 1003299676 1071381111 2891255476 973747308 4086897108 1847554542 3895651598 2227820339 1621250941 2881344691 3583565821 3510404498 849362119 862871471 797858058 2867774932 2821282612 3272403146 3997979905 209178708 1805135652 6783381 2823361423 792580494 4263749770 776439581 3798193823 2853444094 2729507474 1071873341 1329010206 1289336450 3327680758 2011491779 80157208 922428856 1158943220 1667230961 2461022820 2608845159 387516115 3345351910 1495629111 4098154157 3156649613 3525698599 4134908037 446713264 2137537399 3617403512 813966752 1157943946 3734692965 1680301658 3180398473 3509854711 2228114612 1008102291 486805123 863791847 3189125290 1050308116 3777341526 4291726501 844061465 1347461791 2826481581 745465012 2055805750 4260209475 2386693097 2980646741 447229436 2077782664 1232942813 4023002732 1399011509 3140569849 2579909222 3794857471 900758066 2887199683 1720257997 3367494931 2668921229 955539029 3818726432 1105704962 3889207255 2277369307 2746484505 1761846513 2413916784 2685127085 4240257943 1166726899 4215215715 3082092067 3960461946 1663304043 2087473241 4162589986 2507310778 1579665506 767234210 970676017 492207530 1441679602 1314785090 3262202570 3417091742 1561989210 3011406780 1146609202 3262321040 1374872171 1634688712 1280458888 2230023982 419323804 3262899800 39783310 1641619040 1700368658 2207946628 2571300939 2424079766 780290914 2715195096 3390957695 163151474 2309534542 1860018424 555755123 280320104 1604831083 2713022383 1728987441 3639955502 623065489 3828630947 4275479050 3516347383 2343951195 2430677756 635534992 3868699749 808442435 3070644069 4282166003 2093181383 2023555632 1568662086 3422372620 4134522350 3016979543 3259320234 2888030729 3185253876 4258779643 1267304371 1022517473 815943045 929020012 2995251018 3371283296 3608029049 2018485115 122123397 2810669150 1411365618 1238391329 1186786476 3155969091 2242941310 1765554882 279121160 4279838515 1641578514 3796324015 13351065 103516986 1609694427 551411743 2493771609 1316337047 3932650856 4189700203 463397996 2937735066 1855616529 2626847990 55091862 3823351211 753448970 4045045500 1274127772 1124182256 92039808 2126345552 425973257 386287896 2589870191 1987762798 4084826973 2172456685 3366583455 3602966653 2378803535 2901764433 3716929006 3710159000 2653449155 3469742630 3096444476 3932564653 2595257433 318974657 3146202484 853571438 144400272 3768408841 782634401 2161109003 570039522 1886241521 14249488 2230804228 1604941699 3928713335 3921942509 2155806892 134366254 430507376 1924011722 276713377 196481886 3614810992 1610021185 1785757066 851346168 3761148643 2918835642 3364422385 3012284466 3735958851 2643153892 3778608231 1164289832 205853021 2876112231 3503398282 3078397001 3472037921 1748894853 2740861475 316056182 1660426908 168885906 956005527 3984354789 566521563 1001109523 1216710575 2952284757 3834433081 3842608301 2467352408 3974441264 3256601745 1409353924 1329904859 2307560293 3125217879 3622920184 3832785684 3882365951 2308537115 2659155028 1450441945 3532257603 3186324194 1225603425 1124246549 175808705 3009142319 2796710159 3651990107 160762750 1902254979 1698648476 1134980669 497144426 3302689335 4057485630 3603530763 4087252587 427812652 286876201 823134128 1627554964 3745564327 2589226092 4202024494 62878473 3275585894 3987124064 2791777159 1916869511 2585861905 1375038919 1403421920 60249114 3811870450 3021498009 2612993202 528933105 2757361321 3341402964 2621861700 273128190 4015252178 3094781002 1621621288 2337611177 1796718448 1258965619 4241913140 2138560392 3022190223 4174180924 450094611 3274724580 617150026 2704660665 1469700689 1341616587 356715071 1188789960 2278869135 1766569160 2795896635 57824704 2893496380 1235723989 1630694347 3927960522 428891364 1814070806 2287999787 4125941184 3968103889 3548724050 1025597707 1404281500 2002212197 92429143 2313943944 2403086080 3006180634 3561981764 1671860914 1768520622 1803542985 844848113 3006139921 1410888995 1157749833 2125704913 1789979528 1799263423 741157179 2405862309 767040434 2655241390 3663420179 2172009096 2511931187 1680542666 231857466 1154981000 157168255 1454112128 3505872099 1929775046 2309422350 2143329496 2960716902 407610648 2938108129 2581749599 538837155 2342628867 430543915 740188568 1937713272 3315215132 2085587024 4030765687 766054429 3517641839 689721775 1294158986 1753287754 4202601348 1974852792 33459103 3568087535 3144677435 1686130825 4134943013 3005738435 3599293386 426570142 754104406 3660892564 1964545167 829466833 821587464 1746693036 1006492428 1595312919 1256599985 1024482560 1897312280 2902903201 691790057 1037515867 3176831208 1968401055 2173506824 1089055278 1748401123 2941380082 968412354 1818753861 2973200866 3875951774 1119354008 3988604139 1647155589 2232450826 3486058011 3655784043 3759258462 847163678 1082052057 989516446 2871541755 3196311070 3929963078 658187585 3664944641 2175149170 2203709147 2756014689 2456473919 3890267390 1293787864 2830347984 3059280931 4158802520 1561677400 2586570938 783570352 1355506163 31495586 3789437343 3340549429 2092501630 896419368 671715824 3530450081 3603554138 1055991716 3442308219 1499434728 3130288473 3639507000 17769680 2259741420 487032199 4227143402 3693771256 1880482820 3924810796 381462353 4017855991 2452034943 2736680833 2209866385 2128986379 437874044 595759426 641721026 1636065708 3899136933 629879088 3591174506 351984326 2638783544 2348444281 2341604660 2123933692 143443325 1525942256 364660499 599149312 939093251 1523003209 106601097 376589484 1346282236 1297387043 764598052 3741218111 933457002 1886424424 3219631016 525405256 3014235619 323149677 2038881721 4100129043 2851715101 2984028078 1888574695 2014194741 3515193880 4180573530 3461824363 2641995497 3179230245 2902294983 2217320456 4040852155 1784656905 3311906931 87498458 2752971818 2635474297 2831215366 3682231106 2920043893 3772929704 2816374944 309949752 2383758854 154870719 385111597 1191604312 1840700563 872191186 2925548701 1310412747 2102066999 1504727249 3574298750 1191230036 3330575266 3180292097 3539347721 681369118 3305125752 3648233597 950049240 4173257693 1760124957 512151405 681175196 580563018 1169662867 4015033554 2687781101 699691603 2673494188 1137221356 123599888 472658308 1053598179 1012713758 3481064843 3759461013 3981457956 3830587662 1877191791 3650996736 988064871 3515461600 4089077232 2225147448 1249609188 2643151863 3896204135 2416995901 1397735321 3460025646 Test of random real number [0,1) generation: 0.76275443 0.99000644 0.98670464 0.10143112 0.27933125 0.69867227 0.94218740 0.03427201 0.78842173 0.28180608 0.92179002 0.20785655 0.54534773 0.69644020 0.38107718 0.23978165 0.65286910 0.07514568 0.22765211 0.94872929 0.74557914 0.62664415 0.54708246 0.90959343 0.42043116 0.86334511 0.19189126 0.14718544 0.70259889 0.63426346 0.77408121 0.04531601 0.04605807 0.88595519 0.69398270 0.05377184 0.61711170 0.05565708 0.10133577 0.41500776 0.91810699 0.22320679 0.23353705 0.92871862 0.98897234 0.19786706 0.80558809 0.06961067 0.55840445 0.90479405 0.63288060 0.95009721 0.54948447 0.20645042 0.45000959 0.87050869 0.70806991 0.19406895 0.79286390 0.49332866 0.78483914 0.75145146 0.12341941 0.42030252 0.16728160 0.59906494 0.37575460 0.97815160 0.39815952 0.43595080 0.04952478 0.33917805 0.76509902 0.61034321 0.90654701 0.92915732 0.85365931 0.18812377 0.65913428 0.28814566 0.59476081 0.27835931 0.60722542 0.68310435 0.69387186 0.03699800 0.65897714 0.17527003 0.02889304 0.86777366 0.12352068 0.91439461 0.32022990 0.44445731 0.34903686 0.74639273 0.65918367 0.92492794 0.31872642 0.77749724 0.85413832 0.76385624 0.32744211 0.91326300 0.27458185 0.22190155 0.19865383 0.31227402 0.85321225 0.84243342 0.78544200 0.71854080 0.92503892 0.82703064 0.88306297 0.47284073 0.70059042 0.48003761 0.38671694 0.60465770 0.41747204 0.47163243 0.72750808 0.65830223 0.10955369 0.64215401 0.23456345 0.95944940 0.72822249 0.40888451 0.69980355 0.26677428 0.57333635 0.39791582 0.85377858 0.76962816 0.72004885 0.90903087 0.51376506 0.37732665 0.12691640 0.71249738 0.81217908 0.37037313 0.32772374 0.14238259 0.05614811 0.74363008 0.39773267 0.94859135 0.31452454 0.11730313 0.62962618 0.33334237 0.45547255 0.10089665 0.56550662 0.60539371 0.16027624 0.13245301 0.60959939 0.04671662 0.99356286 0.57660859 0.40269560 0.45274629 0.06699735 0.85064246 0.87742744 0.54508392 0.87242982 0.29321385 0.67660627 0.68230715 0.79052073 0.48592054 0.25186266 0.93769755 0.28565487 0.47219067 0.99054882 0.13155240 0.47110470 0.98556600 0.84397623 0.12875246 0.90953202 0.49129015 0.23792727 0.79481194 0.44337770 0.96564297 0.67749118 0.55684872 0.27286897 0.79538393 0.61965356 0.22487929 0.02226018 0.49248200 0.42247006 0.91797788 0.99250134 0.23449967 0.52531508 0.10246337 0.78685622 0.34310922 0.89892996 0.40454552 0.68608407 0.30752487 0.83601319 0.54956031 0.63777550 0.82199797 0.24890696 0.48801123 0.48661910 0.51223987 0.32969635 0.31075073 0.21393155 0.73453207 0.15565705 0.58584522 0.28976728 0.97621478 0.61498701 0.23891470 0.28518540 0.46809591 0.18371914 0.37597910 0.13492176 0.66849449 0.82811466 0.56240330 0.37548956 0.27562998 0.27521910 0.74096121 0.77176757 0.13748143 0.99747138 0.92504502 0.09175241 0.21389176 0.21766512 0.31183245 0.23271221 0.21207367 0.57903312 0.77523344 0.13242613 0.31037988 0.01204835 0.71652949 0.84487594 0.14982178 0.57423142 0.45677888 0.48420169 0.53465428 0.52667473 0.46880526 0.49849733 0.05670710 0.79022476 0.03872047 0.21697212 0.20443086 0.28949326 0.81678186 0.87629474 0.92297064 0.27373097 0.84625273 0.51505586 0.00582792 0.33295971 0.91848412 0.92537226 0.91760033 0.07541125 0.71745848 0.61158698 0.00941650 0.03135554 0.71527471 0.24821915 0.63636652 0.86159918 0.26450229 0.60160194 0.35557725 0.24477500 0.07186456 0.51757096 0.62120362 0.97981062 0.69954667 0.21065616 0.13382753 0.27693186 0.59644095 0.71500764 0.04110751 0.95730081 0.91600724 0.47704678 0.26183479 0.34706971 0.07545431 0.29398385 0.93236070 0.60486023 0.48015011 0.08870451 0.45548581 0.91872718 0.38142712 0.10668643 0.01397541 0.04520355 0.93822273 0.18011940 0.57577277 0.91427606 0.30911399 0.95853475 0.23611214 0.69619891 0.69601980 0.76765372 0.58515930 0.49479057 0.11288752 0.97187699 0.32095365 0.57563608 0.40760618 0.78703383 0.43261152 0.90877651 0.84686346 0.10599030 0.72872803 0.19315490 0.66152912 0.10210518 0.06257876 0.47950688 0.47062066 0.72701157 0.48915116 0.66110261 0.60170685 0.24516994 0.12726050 0.03451185 0.90864994 0.83494878 0.94800035 0.91035206 0.14480751 0.88458997 0.53498312 0.15963215 0.55378627 0.35171349 0.28719791 0.09097957 0.00667896 0.32309622 0.87561479 0.42534520 0.91748977 0.73908457 0.41793223 0.99279792 0.87908370 0.28458072 0.59132853 0.98672190 0.28547393 0.09452165 0.89910674 0.53681109 0.37931425 0.62683489 0.56609740 0.24801549 0.52948179 0.98328855 0.66403523 0.55523786 0.75886666 0.84784685 0.86829981 0.71448906 0.84670080 0.43922919 0.20771016 0.64157936 0.25664246 0.73055695 0.86395782 0.65852932 0.99061803 0.40280575 0.39146298 0.07291005 0.97200603 0.20555729 0.59616495 0.08138254 0.45796388 0.33681125 0.33989127 0.18717090 0.53545811 0.60550838 0.86520709 0.34290701 0.72743276 0.73023855 0.34195926 0.65019733 0.02765254 0.72575740 0.32709576 0.03420866 0.26061893 0.56997511 0.28439072 0.84422744 0.77637570 0.55982168 0.06720327 0.58449067 0.71657369 0.15819609 0.58042821 0.07947911 0.40193792 0.11376012 0.88762938 0.67532159 0.71223735 0.27829114 0.04806073 0.21144026 0.58830274 0.04140071 0.43215628 0.12952729 0.94668759 0.87391019 0.98382450 0.27750768 0.90849647 0.90962737 0.59269720 0.96102026 0.49544979 0.32007095 0.62585546 0.03119821 0.85953001 0.22017528 0.05834068 0.80731217 0.53799961 0.74166948 0.77426600 0.43938444 0.54862081 0.58575513 0.15886492 0.73214332 0.11649057 0.77463977 0.85788827 0.17061997 0.66838056 0.96076133 0.07949296 0.68521946 0.89986254 0.05667410 0.12741385 0.83470977 0.63969104 0.46612929 0.10200126 0.01194925 0.10476340 0.90285217 0.31221221 0.32980614 0.46041971 0.52024973 0.05425470 0.28330912 0.60426543 0.00598243 0.97244013 0.21135841 0.78561597 0.78428734 0.63422849 0.32909934 0.44771136 0.27380750 0.14966697 0.18156268 0.65686758 0.28726350 0.97074787 0.63676171 0.96649494 0.24526295 0.08297372 0.54257548 0.03166785 0.33735355 0.15946671 0.02102971 0.46228045 0.11892296 0.33408336 0.29875681 0.29847692 0.73767569 0.02080745 0.62980060 0.08082293 0.22993106 0.25031439 0.87787525 0.45150053 0.13673441 0.63407612 0.97907688 0.52241942 0.50580158 0.06273902 0.05270283 0.77031811 0.05113352 0.24393329 0.75036441 0.37436336 0.22877652 0.59975358 0.85707591 0.88691457 0.85547165 0.36641027 0.58720133 0.45462835 0.09243817 0.32981586 0.07820411 0.25421519 0.36004706 0.60092307 0.46192412 0.36758683 0.98424170 0.08019934 0.68594024 0.45826386 0.29962317 0.79365413 0.89231296 0.49478547 0.87645944 0.23590734 0.28106737 0.75026285 0.08136314 0.79582424 0.76010628 0.82792971 0.27947652 0.72482861 0.82191216 0.46171689 0.79189752 0.96043686 0.51609668 0.88995725 0.28998963 0.55191845 0.03934737 0.83033700 0.49553013 0.98009549 0.19017594 0.98347750 0.33452066 0.87144372 0.72106301 0.71272114 0.71465963 0.88361677 0.85571283 0.73782329 0.20920458 0.34855153 0.46766817 0.02780062 0.74898344 0.03680650 0.44866557 0.77426312 0.91025891 0.25195236 0.87319953 0.63265037 0.25552148 0.27422476 0.95217406 0.39281839 0.66441573 0.09158900 0.94515992 0.07800798 0.02507888 0.39901462 0.17382573 0.12141278 0.85502334 0.19902911 0.02160210 0.44460522 0.14688742 0.68020336 0.71323733 0.60922473 0.95400380 0.99611159 0.90897777 0.41073520 0.66206647 0.32064685 0.62805003 0.50677209 0.52690101 0.87473387 0.73918362 0.39826974 0.43683919 0.80459118 0.32422684 0.01958019 0.95319576 0.98326137 0.83931735 0.69060863 0.33671416 0.68062550 0.65152380 0.33392969 0.03451730 0.95227244 0.68200635 0.85074171 0.64721009 0.51234433 0.73402047 0.00969637 0.93835057 0.80803854 0.31485260 0.20089527 0.01323282 0.59933780 0.31584602 0.20209563 0.33754800 0.68604181 0.24443049 0.19952227 0.78162632 0.10336988 0.11360736 0.23536740 0.23262256 0.67803776 0.48749791 0.74658435 0.92156640 0.56706407 0.36683221 0.99157136 0.23421374 0.45183767 0.91609720 0.85573315 0.37706276 0.77042618 0.30891908 0.40709595 0.06944866 0.61342849 0.88817388 0.58734506 0.98711323 0.14744128 0.63242656 0.87704136 0.68347125 0.84446569 0.43265239 0.25146321 0.04130111 0.34259839 0.92697368 0.40878778 0.56990338 0.76204273 0.19820348 0.66314909 0.02482844 0.06669207 0.50205581 0.26084093 0.65139159 0.41650223 0.09733904 0.56344203 0.62651696 0.67332139 0.58037374 0.47258086 0.21010758 0.05713135 0.89390629 0.10781246 0.32037450 0.07628388 0.34227964 0.42190597 0.58201860 0.77363549 0.49595133 0.86031236 0.83906769 0.81098161 0.26694195 0.14215941 0.88210306 0.53634237 0.12090720 0.82480459 0.75930318 0.31847147 0.92768077 0.01037616 0.56201727 0.88107122 0.35925856 0.85860762 0.61109408 0.70408301 0.58434977 0.92192494 0.62667915 0.75988365 0.06858761 0.36156496 0.58057195 0.13636150 0.57719713 0.59340255 0.63530602 0.22976282 0.71915530 0.41162531 0.63979565 0.09931342 0.79344045 0.10893790 0.84450224 0.23122236 0.99485593 0.73637397 0.17276368 0.13357764 0.74965804 0.64991737 0.61990341 0.41523170 0.05878239 0.05687301 0.05497131 0.42868366 0.42571090 0.25810502 0.89642955 0.30439758 0.39310223 0.11357431 0.04288255 0.23397550 0.11200634 0.85621396 0.89733974 0.37508865 0.42077265 0.68597384 0.72781399 0.19296476 0.61699087 0.31667128 0.67756410 0.00177323 0.05725176 0.79474693 0.18885238 0.06724856 0.68193156 0.42202167 0.22082041 0.28554673 0.64995708 0.87851940 0.29124547 0.61009521 0.87374537 0.05743712 0.69902994 0.81925115 0.45653873 0.37236821 0.31118709 0.52734307 0.39672836 0.38185294 0.30163915 0.17374510 0.04913278 0.90404879 0.25742801 0.58266467 0.97663209 0.79823377 0.36437958 0.15206043 0.26529938 0.22690047 0.05839021 0.84721160 0.18622435 0.37809403 0.55706977 0.49828704 0.47659049 0.24289680 0.88477595 0.07807463 0.56245739 0.73490635 0.21099431 0.13164942 0.75840044 0.66877037 0.28988183 0.44046090 0.24967434 0.80048356 0.26029740 0.30416821 0.64151867 0.52067892 0.12880774 0.85465381 0.02690525 0.19149288 0.49630295 0.79682619 0.43566145 0.00288078 0.81484193 0.03763639 0.68529083 0.01339574 0.38405386 0.30537067 0.22994703 0.44000045 0.27217985 0.53831243 0.02870435 0.86282045 0.61831306 0.09164956 0.25609707 0.07445781 0.72185784 0.90058883 0.30070608 0.94476583 0.56822213 0.21933909 0.96772793 0.80063440 0.26307906 0.31183306 0.16501252 0.55436179 0.68562285 0.23829083 0.86511559 0.57868991 0.81888344 0.20126869 0.93172350 0.66028129 0.21786948 0.78515828 0.10262106 0.35390326 0.79303876 0.63427924 0.90479631 0.31024934 0.60635447 0.56198079 0.63573813 0.91854197 0.99701497 0.83085849 0.31692291 0.01925964 0.97446405 0.98751283 0.60944293 0.13751018 0.69519957 0.68956636 0.56969015 0.46440193 0.88341765 0.36754434 0.89223647 0.39786427 0.85055280 0.12749961 0.79452122 0.89449784 0.14567830 0.45716830 0.74822309 0.28200437 0.42546044 0.17464886 0.68308746 0.65496587 0.52935411 0.12736159 0.61523955 0.81590528 0.63107864 0.39786553 0.20102294 0.53292914 0.75485590 0.59847044 0.32861691 0.12125866 0.58917183 0.07638293 0.86845380 0.29192617 0.03989733 0.52180460 0.32503407 0.64071852 0.69516575 0.74254998 0.54587026 0.48713246 0.32920155 0.08719954 0.63497059 0.54328459 0.64178757 0.45583809 0.70694291 0.85212760 0.86074305 0.33163422 0.85739792 0.59908488 0.74566046 0.72157152 Test of random real number [0,1] generation: 0.99974175 0.16290988 0.28261781 0.94720108 0.23165654 0.48497361 0.95747696 0.74430534 0.54004366 0.73995298 0.75994380 0.65863661 0.31563762 0.80440301 0.51967212 0.16857242 0.47552973 0.39231399 0.22166769 0.21319046 0.03033520 0.33353925 0.19414885 0.94371678 0.57993168 0.89830486 0.66556393 0.49861031 0.56062826 0.18228465 0.29652553 0.11740893 0.06291767 0.64812557 0.72541853 0.63713116 0.71388506 0.09957624 0.69926720 0.10781247 0.12924275 0.50240304 0.20777991 0.28891031 0.08317479 0.12812422 0.54737141 0.08231960 0.29214143 0.89162374 0.22711784 0.43184546 0.14073300 0.40039213 0.68694690 0.17067091 0.44082087 0.04533657 0.31129641 0.50618105 0.18241084 0.51103202 0.74078821 0.36598863 0.16080884 0.46010679 0.62783647 0.67760369 0.69819652 0.47853687 0.09010759 0.33872852 0.09521380 0.43654196 0.47467335 0.41924593 0.77753685 0.62461056 0.98043655 0.37043020 0.83081264 0.14080645 0.74408531 0.82973968 0.39110432 0.62195639 0.34669948 0.04616952 0.61306632 0.56737405 0.49889403 0.72380208 0.14455052 0.04230316 0.31078702 0.12164115 0.24206967 0.38105886 0.44012854 0.59979590 0.64457465 0.43262622 0.55596826 0.71684117 0.64236251 0.68577673 0.09615815 0.12293346 0.05699742 0.82007204 0.12553929 0.31574507 0.18056692 0.14222722 0.66442961 0.68518922 0.19100193 0.43634302 0.96445922 0.86816359 0.13087997 0.48444228 0.37465445 0.90047512 0.17865679 0.67963513 0.62287431 0.98365595 0.44071478 0.80473728 0.99484506 0.54155096 0.25590546 0.63894564 0.57591027 0.25872142 0.19159300 0.44566305 0.14926651 0.99672369 0.12176222 0.65153928 0.02779510 0.38997760 0.82791304 0.28381391 0.61020364 0.23641275 0.41082105 0.67771462 0.84712659 0.64925623 0.08138265 0.12083048 0.47919926 0.77787836 0.47197770 0.94333751 0.98080099 0.33455473 0.20266792 0.34284123 0.65354424 0.68275880 0.60993614 0.09992710 0.76625498 0.73558153 0.24113914 0.26317871 0.96086990 0.42339574 0.33605815 0.00024950 0.86884102 0.00375315 0.16584631 0.01182084 0.60645507 0.72997202 0.61382456 0.96576818 0.49709826 0.52988540 0.46160753 0.71303370 0.57995977 0.68280256 0.95392151 0.02365520 0.28011015 0.86952635 0.29933327 0.31955360 0.30095171 0.94111149 0.84812706 0.75334613 0.53824409 0.40848138 0.21237132 0.07614040 0.28993491 0.01978183 0.24124790 0.38461916 0.45490689 0.37398252 0.44018880 0.11789681 0.80542984 0.16489264 0.28252994 0.17268540 0.93584233 0.68095306 0.13369674 0.25476122 0.39944488 0.36923537 0.72636189 0.27783746 0.69356910 0.50035469 0.11840554 0.15130334 0.68144694 0.72066592 0.97964694 0.69677911 0.55721007 0.68082148 0.95535205 0.59820896 0.77045390 0.91359749 0.65895865 0.67097461 0.57818518 0.95303929 0.16292346 0.33505699 0.95182470 0.10966164 0.61930230 0.95681674 0.98524309 0.07073775 0.50233039 0.68072123 0.55332007 0.58700558 0.69162056 0.46264791 0.57425429 0.07289009 0.63826652 0.38775729 0.22096022 0.00223180 0.49565678 0.19131652 0.02226501 0.90358902 0.73862818 0.44453089 0.41770224 0.76086112 0.43775322 0.19098286 0.57711296 0.13268834 0.31782435 0.48691649 0.93909107 0.93394628 0.07366014 0.61243630 0.51474872 0.62466358 0.13064526 0.64521044 0.13414855 0.65292597 0.26521001 0.38180527 0.59021506 0.66970408 0.55433248 0.01950476 0.18434696 0.99118046 0.57367776 0.63776209 0.59485760 0.51524469 0.33069351 0.39674245 0.88396548 0.77148527 0.59907538 0.02472663 0.01225879 0.69845232 0.26599101 0.73670072 0.99997262 0.74979232 0.48495559 0.82370053 0.62277709 0.90251209 0.05650513 0.73907739 0.37617622 0.03680076 0.77619822 0.83735419 0.34508193 0.08184265 0.22262154 0.15247632 0.40117720 0.53161261 0.81170660 0.04077757 0.11788901 0.57518997 0.83236221 0.20464185 0.23872177 0.99692870 0.25859060 0.89205597 0.84685979 0.30658371 0.03336249 0.70642050 0.19361561 0.50897814 0.02154515 0.67273279 0.81356244 0.80728405 0.48152684 0.53751910 0.78084861 0.33584891 0.69925937 0.42585530 0.82524066 0.94561369 0.55484125 0.71049519 0.37836037 0.64833873 0.04567272 0.15547732 0.88535397 0.72156572 0.96166720 0.43030089 0.13203135 0.43933121 0.46718774 0.41008322 0.27719671 0.27850956 0.95462081 0.80435749 0.96851047 0.99972279 0.94716028 0.24855114 0.00670499 0.44472732 0.67404878 0.49648036 0.02100925 0.83176322 0.10854585 0.09315164 0.89020564 0.44594521 0.90690677 0.55403982 0.75943435 0.81555138 0.53296850 0.05513515 0.05398565 0.89918819 0.14690737 0.48264731 0.06730298 0.28116186 0.93284917 0.50731793 0.56450301 0.80071320 0.64588750 0.30921950 0.04780661 0.25196583 0.71388114 0.67099402 0.60528576 0.14827190 0.79525035 0.66527735 0.85430204 0.81053368 0.07114398 0.06879357 0.89046657 0.75804596 0.07031059 0.85209448 0.77535690 0.68489520 0.23455279 0.46157569 0.93643546 0.66494642 0.45967959 0.88782351 0.57462226 0.03016862 0.76735472 0.34547856 0.60912314 0.21754287 0.64376056 0.57139265 0.80231105 0.96233555 0.40176986 0.99655342 0.74594581 0.44841118 0.39578428 0.12338993 0.53261491 0.83337960 0.91767313 0.82560757 0.44591540 0.26713620 0.66439890 0.76686069 0.66596828 0.50395511 0.83515370 0.62240538 0.45753892 0.55498328 0.36581371 0.65630223 0.91703867 0.27605459 0.12121444 0.96617825 0.69743901 0.44354779 0.63019582 0.36834667 0.23819196 0.30027382 0.71033217 0.04747484 0.49252544 0.08125398 0.12201678 0.99310218 0.35509103 0.76486373 0.90409954 0.39610961 0.81713486 0.34897422 0.26619363 0.36750196 0.75231621 0.58780002 0.48942109 0.67347406 0.32829614 0.85394584 0.83238074 0.15958869 0.32241102 0.95017371 0.09537671 0.23101986 0.86060775 0.35962719 0.98484370 0.03197567 0.82864991 0.51680949 0.48940792 0.96397730 0.96013174 0.68181679 0.86078817 0.45582928 0.33239066 0.05914980 0.45224598 0.21735422 0.34560744 0.54997199 0.31762225 0.89297644 0.49004545 0.25647901 0.96899864 0.91063647 0.22671760 0.32782857 0.28670209 0.14251505 0.09928174 0.19233241 0.30837687 0.87141596 0.39114879 0.78866088 0.20081604 0.98647596 0.88286213 0.10986245 0.35428326 0.55574268 0.69069846 0.64381575 0.36310429 0.07886271 0.20082041 0.71697353 0.74435375 0.76763643 0.24544245 0.66800912 0.88698938 0.36684993 0.53155663 0.50284398 0.31454367 0.62254136 0.01990386 0.67635513 0.42981862 0.23283521 0.98761946 0.30657214 0.49463704 0.74861489 0.89184356 0.04528550 0.42756107 0.22697844 0.48407299 0.16464563 0.08980749 0.38426374 0.02383547 0.32973455 0.53123074 0.47668336 0.87748247 0.45550163 0.49730250 0.39618430 0.88612473 0.73607009 0.10891760 0.39792190 0.84257502 0.82620032 0.93665517 0.24558961 0.63968862 0.49333503 0.07344951 0.78013810 0.04211212 0.70111648 0.94052327 0.70054817 0.77676027 0.19274258 0.00692527 0.84298363 0.91932418 0.24208327 0.19010067 0.73508464 0.16452232 0.99030645 0.98284794 0.65716954 0.01877364 0.75959648 0.35756761 0.50901634 0.73889968 0.56792316 0.28905663 0.41501714 0.98105456 0.36588448 0.51787826 0.84420902 0.96812265 0.25889453 0.47831044 0.43734099 0.37939800 0.20308188 0.55082075 0.25554272 0.55009803 0.87047794 0.24123021 0.15710824 0.21826083 0.11627774 0.74901828 0.15829066 0.47635391 0.54532732 0.87897812 0.01714422 0.54298199 0.31801808 0.78880534 0.87172137 0.73849041 0.09233301 0.30139864 0.63710329 0.57156427 0.71281034 0.64428924 0.23047601 0.97169559 0.96615943 0.29188391 0.17528582 0.31288255 0.98465128 0.56839135 0.84446856 0.14443391 0.45994061 0.60789791 0.18412271 0.34280549 0.60643300 0.83819659 0.18618852 0.03027447 0.30739186 0.12528603 0.27039496 0.87416148 0.37050956 0.89423337 0.40799567 0.88187847 0.64795124 0.23698673 0.52880734 0.29373154 0.09432043 0.93453863 0.12167933 0.34968176 0.06702686 0.64219677 0.69244714 0.33492673 0.37424419 0.31388505 0.53873829 0.09859252 0.49051423 0.32873567 0.70972579 0.88169803 0.39300048 0.85424327 0.46377659 0.52705639 0.49330989 0.26778434 0.58307748 0.05735142 0.95933637 0.77141717 0.04271846 0.49843337 0.05229427 0.56155145 0.96036191 0.61981731 0.52862837 0.69823518 0.18616204 0.55399817 0.66612029 0.15273105 0.94875016 0.18682579 0.58051266 0.85102444 0.10686584 0.67586174 0.79604524 0.65764610 0.00934952 0.20626759 0.63642037 0.03825646 0.67771025 0.67791793 0.67168427 0.39631772 0.66159705 0.63336038 0.96212424 0.99271142 0.09934483 0.06789327 0.42601315 0.94704550 0.70832601 0.46681785 0.04483629 0.74858092 0.67837069 0.21092134 0.39849031 0.95367558 0.02890228 0.93576657 0.84693047 0.66276018 0.86791090 0.65235932 0.45280494 0.30522898 0.35203499 0.27964340 0.23604559 0.02700346 0.65206239 0.71200023 0.61993087 0.12543908 0.45278996 0.92233151 0.12084436 0.40380897 0.26029045 0.77884364 0.66784120 0.02678944 0.49133230 0.91506089 0.70402535 0.62820085 0.57833847 0.62915642 0.73041065 0.64131833 0.46370933 0.61429124 0.25447066 0.80868269 0.22898373 0.45047800 0.87423514 0.20277391 0.52371119 0.12651827 0.57940290 0.26188467 0.20776906 0.55283816 0.85139536 0.51359444 0.55825984 0.66614854 0.99897466 0.17827407 0.11673964 0.06842554 0.62271338 0.31448295 0.88982793 0.80647766 0.42991695 0.52469546 0.45267553 0.63074312 0.56659449 0.95886066 0.90805229 0.70089826 0.37702538 0.68379623 0.19808846 0.61740070 0.41372616 0.82358842 0.75557795 0.70309732 0.36429428 0.81978699 0.75158176 0.04876951 0.52856900 0.61674819 0.27094283 0.80084175 0.23517422 0.90378655 0.25880157 0.19133641 0.01241034 0.85341400 0.62100871 0.85586193 0.14010620 0.87268796 0.70883974 0.09264099 0.02075042 0.78263652 0.03008252 0.50461063 0.08162218 0.77349375 0.87257728 0.88003125 0.88352430 0.87242733 0.45872223 0.90229884 0.54790495 0.05598844 0.59117989 0.56394171 0.77613008 0.29556978 0.04085365 0.39856718 0.28227462 0.80671632 0.50715936 0.68815096 0.49466404 0.45454604 0.42148009 0.03925173 0.09119620 0.39381531 0.13537319 0.96865058 0.81167611 0.32596541 0.96199918 0.10028120 0.10292461 0.30725909 0.33368206 0.85796613 0.52292174 0.61550004 0.98155868 0.79748474 0.19880967 0.45670419 0.57097080 0.21490870 0.68643331 0.27860212 0.17973985 0.39749795 0.16285894 0.80262176 0.08364591 0.63827075 0.23085652 0.58009438 0.86429251 0.93273829 0.82139312 0.48059047 0.63637302 0.18150866 0.46920050 0.30927644 0.66881043 0.72234116 0.57485667 0.52785451 0.80923156 0.98688266 0.32386050 0.60639646 0.75955897 0.79096818 0.06992981 0.55046541 0.00929828 0.78462948 0.68904411 0.96358809 0.51644160 0.35717830 0.48233689 0.42995960 0.99630615 0.60117601 0.78500421 0.97054212 0.48785455 0.09492675 0.97933177 0.12087774 0.63026034 0.19424754 0.21308170 0.01459878 0.36667112 0.34010078 0.72178635 0.36753311 0.02103354 0.13168799 0.58675968 0.73360464 0.86363515 0.13699465 0.05242698 0.40622341 0.24165695 0.47245070 0.87221598 0.45471923 0.07157907 0.31406124 0.49282311 0.74172113 0.69478366 0.98286787 0.31974814 0.80420370 0.05346782 0.74615535 0.30347493 0.09308151 0.93453166 0.74686819 0.10004847 0.72029651 0.21075374 0.96309675 0.74918941 0.73962193 0.51007233 0.08729299 0.65002047 0.08236485 0.72692075 0.53261827 0.74930587 0.86126694 0.03469945 0.09312246 0.65525710 0.95951785 0.48705723 0.85989575 0.08479442 0.71854172 0.85091833 0.81888478 0.71627446 0.40822393 0.63658567 0.52383870 0.37203887 0.35342610 0.59804905 0.09748687 0.27635304 0.46249328 0.62679520 0.16735534 0.29105841 0.37902551 0.89725452 0.92018046 0.88948500 0.45488573 0.44267745 0.50958911 0.37432772 0.40695476 0.97650358 0.36800316 0.11249840 0.24206472 0.69537830 0.96438770 0.91734899 0.05689786 0.65183612 0.91849217 0.06429130 0.95630841 0.46250993 0.46027806 0.25840852 0.43050347 0.29243294 0.74456400 0.07128114 0.17557919 0.43304426 0.28971250 0.54252216 0.65136994 0.97384792 0.18674972 0.42044311 0.93804625 0.72129356 0.31747715 0.73144622 0.97734543 0.02304122 0.25751111 0.76485814 0.45246407 0.79161878 0.23062322 0.33255548 0.38463149 0.69782529 0.03913658 0.41040371 0.93600181 0.44097263 0.51610418 0.10958358 0.18347718 0.48742201 0.29238579 0.61061153 0.94559573 0.26314358 0.99061572 0.21250485 0.89721615 0.21404979 0.26948987 0.45919460 0.81484508 0.08600816 0.85263778 0.78815212 0.82828977 0.20557045 0.10719847 0.85181249 0.14065521 0.68507960 0.64962273 0.49912890 0.36593842 0.92036375 0.20749966 0.62605210 0.35093936 0.81442674 0.53821678 0.97315263 0.66935241 0.96723114 0.11358916 0.44158966 0.02479640 0.29690360 0.32150035 0.67347448 0.46204118 0.98979777 0.48736192 0.11302875 0.02292857 0.68325535 0.37852404 0.49162356 0.74022269 0.07569384 0.80243880 0.30799855 0.00405781 0.11625931 0.69371346 0.17928194 0.09165273 0.35186219 0.73856375 0.51278689 0.71948082 0.82445063 0.00109667 0.80895488 0.33990554 0.59961583 0.44190693 0.44728645 0.26262404 0.41768393 0.27527363 0.42366847 0.90357941 0.62924864 0.56271578 0.90503263 0.77559845 0.21444352 0.54363274 0.68626897 0.00297602 0.18779326 0.66573594 0.74778574 0.53463212 0.72994014 0.59488998 0.46206025 0.84830971 0.06257460 0.74039936 0.55547288 0.10915408 0.44299368 0.78044512 0.99762820 0.25970964 0.27190048 0.43330299 0.75000007 0.94874757 0.92423643 0.36408412 0.44658803 0.48395359 0.60164320 0.35104197 0.22196158 0.89093397 0.85213753 0.02613714 0.17920246 0.77656505 0.77477701 0.47888598 0.11236843 0.57539895 0.33626404 0.51855719 0.06150124 0.19945519 0.18901322 0.35091639 0.21266716 0.12097324 0.14082743 0.53498359 0.57009249 0.44825861 0.07625562 0.48338675 0.87812897 0.92779163 0.16484649 0.30837901 0.53583996 0.34568556 0.79072169 0.23275695 0.77972473 0.96327223 0.69156891 0.17933842 0.31236052 0.60554383 0.33782581 0.35007524 0.17010294 0.75913042 0.76634243 0.97659223 0.13196118 0.13700643 0.88539669 0.32858954 0.32332471 0.79776557 0.77683905 0.05156944 0.82369356 0.58479079 0.01822297 0.06769188 0.56494328 0.00699099 0.66331498 0.47989495 0.89726858 0.15747825 0.10008720 0.01672149 0.42361903 0.77922210 0.16464581 0.51752479 0.02739695 0.05908112 0.65092022 0.21838759 0.40098605 0.15340441 0.06701079 0.92152195 0.20483403 0.41581201 0.08128819 0.57687698 0.07482144 0.60695357 0.12932764 0.43747291 0.52845065 0.97415121 0.29679724 0.63546098 0.18610085 0.96907701 0.24360399 0.82216364 0.09844640 0.99817895 0.39582247 0.66397677 0.54607742 0.13846181 0.79793847 0.04494742 0.82023869 0.37206952 0.59607428 0.75033941 0.51943293 0.35440496 0.57089925 0.29601236 0.93332957 0.09497664 0.49184085 0.31728012 0.96906454 0.11994357 0.54646329 0.82201922 0.39506882 0.23921519 0.76761357 0.53438962 0.17372273 0.10845020 0.51441305 0.47582057 0.57394731 0.93893074 0.74507000 0.84557306 0.84601724 0.34219783 0.16700945 0.84865780 0.98281781 0.04559591 0.77027891 0.23391721 0.73462936 0.68273577 0.46521082 0.20792175 0.09788683 0.97407848 0.69850472 0.40243543 0.51358020 0.71820352 0.59055835 0.51875620 0.09561953 0.11653307 0.71852568 0.71565614 0.35970069 0.06412426 0.44239073 0.51685400 0.02117252 0.67321467 0.30337641 0.82956102 0.98342401 0.47196363 0.49361417 0.48614516 0.94457526 0.70679310 0.85760126 0.12905023 0.94117342 0.24792689 0.94725203 0.51218288 0.09056657 0.46833358 0.10979922 0.07586210 0.43050988 0.79400288 0.19192952 0.24283336 0.79642671 0.49992237 0.89088633 0.87158820 0.62157074 0.65639540 0.36166772 0.44117628 0.56420281 0.50234087 0.96586657 0.33507722 0.78226078 0.65654878 0.26984078 0.05621305 0.20469972 0.77986053 0.06941860 0.28565795 0.26974159 0.16876242 0.78292382 0.97394654 0.77677559 0.14167399 0.84362889 0.68978603 0.00288717 0.33916868 0.81897835 0.02017002 0.17175519 0.48881465 0.71588786 0.89637578 0.91697390 0.68403606 0.21078990 0.37616303 0.61709134 0.13066887 0.69577898 0.09914706 0.56359536 0.27381705 0.23281078 0.39596226 0.67794006 0.55568591 0.67673614 0.58089200 0.62247975 0.03884813 0.41912617 0.79095591 0.58441103 0.88567086 0.11048388 0.16966985 0.94662061 0.91810296 0.09001792 0.26985923 0.01510641 0.95336794 0.85086015 0.31710043 0.20909725 0.98432528 0.21978646 0.55625060 0.06498747 0.91291129 0.40187305 0.45716197 0.62014754 0.23762185 0.39997257 0.54622487 0.10869984 0.62961689 0.02892121 0.31306371 0.99515747 0.17721997 0.03186299 0.36573100 0.06374009 0.54707288 0.04449993 0.94254507 0.66033090 0.65616469 0.55057999 0.60668476 0.60545141 0.52023992 0.14135697 0.32226895 0.82398157 0.07495707 0.83997915 0.90181498 0.58491798 0.35256736 0.60023698 0.95887399 0.24858133 0.53645781 0.10181970 0.93449414 0.60042382 0.83962475 0.86508542 0.08896039 0.85018824 0.34663872 0.18870137 0.19992134 0.48134656 0.39674476 0.95292375 0.16581137 0.20153549 0.72123724 0.61640560 0.00666605 0.34236576 0.85955834 0.64423377 0.00987893 0.40542604 0.73545449 0.45499307 0.39793434 0.49970708 0.88640398 0.63873808 0.33337514 0.14897130 0.80156776 0.22920840 0.91582662 0.54288005 0.78172063 0.44089673 0.76228167 0.36601455 0.28791751 0.91712120 0.06929319 0.21563027 0.53315086 0.63284348 0.55744714 0.06194977 0.14905108 0.05261670 0.95868066 0.28521090 0.89694903 0.67256376 0.47413675 0.57452465 0.53888457 0.96994712 0.97666961 0.35327910 0.57423840 0.09273174 0.26851068 0.23718037 0.45540775 0.08780602 0.68689723 0.33713300 0.90692279 0.24795501 0.26922945 0.15723106 0.83022847 0.36908327 0.40598061 0.87579746 0.63549411 0.23743737 0.88632097 0.23750813 0.36865412 0.16678871 0.01402327 0.78005151 0.66943555 0.12186093 0.07784487 0.11117589 0.64941618 0.85158619 0.71584148 0.87468671 0.06095110 0.92342539 0.14882158 0.05498229 0.61442548 0.59409427 0.18069136 0.23650096 0.80330641 0.98857297 0.40130559 0.21919590 0.55051493 0.40440970 0.49117204 0.35250559 0.16994637 0.30448621 0.23753873 0.63543698 0.29923451 0.02041009 0.84012602 0.26808494 0.23912497 0.74111077 0.97424699 0.29353851 0.87472212 0.89498610 0.11211383 0.42523402 0.71502109 0.73726975 0.08769677 0.92381680 0.99559212 0.32472997 0.54254198 0.07673390 0.81645266 0.56869834 0.02129601 0.93007787 0.78727322 0.71483708 0.21526971 0.05899992 0.38357423 0.66207541 0.30897686 0.04492549 0.02465214 0.58873464 0.70932041 0.94171276 0.26583244 0.51345118 0.81282813 0.51805377 0.80531601 0.50023343 0.02492062 0.21145418 0.53635568 0.29373473 0.59383037 0.39908556 0.59220037 0.84294989 0.21653309 0.59652016 0.00637021 0.91514029 0.66050284 0.76877530 0.86184133 0.52037907 0.55842370 0.25085216 0.72025386 0.23825689 0.37685265 0.69564384 0.44400888 0.81940621 0.03686972 0.41294341 0.60136433 0.55645188 0.53772416 0.28128659 0.95121158 0.42289674 0.56677112 0.41727980 0.35245425 0.96839813 0.80836074 0.99559973 0.88527478 0.42388321 0.86824081 0.16048460 0.21827934 0.74167428 0.98892417 0.67245941 0.16228775 0.77610761 0.58785450 0.92404099 0.78101832 0.51592103 0.18073078 0.26971111 0.17543616 0.93652782 0.86947788 0.77956203 0.98613123 0.51945309 0.76112297 0.67705868 0.47933131 0.99475630 0.34528709 0.38394699 0.07025305 0.00573427 0.86044753 0.11975500 0.92854724 0.83272646 0.71044605 0.60851951 0.82361458 0.68116306 0.24342647 0.69858178 0.26309842 0.43015149 0.58283530 0.70608120 0.14284203 0.46741283 0.62884886 0.19732262 0.80905760 0.17236722 0.84548908 0.12512492 0.45794801 0.43014769 0.52079268 0.42995478 0.98690099 0.92426876 0.48105819 0.70702091 0.12772345 0.44929222 0.26948541 0.70621619 0.68545705 0.15442103 0.65096869 0.16947351 0.93334458 0.74529585 0.11107633 0.24800350 0.12932850 0.58592100 0.01702782 0.16408463 0.61205788 0.72908582 0.62861950 0.21679924 0.37220002 0.00143082 0.36929477 0.26522050 0.49576252 0.71643839 0.86512150 0.42316449 0.64121531 0.02177983 0.64557469 0.36590948 0.29502106 0.55301687 0.82193643 0.51250061 0.56384409 0.13038157 0.27747515 0.79906040 0.44327644 0.03573633 0.26647402 0.46007386 0.57273575 0.05955294 0.02738484 0.27755662 0.38169572 0.83568626 0.57810167 0.35188065 0.75052650 0.93784373 0.06873385 0.15550009 0.75770542 0.39399266 0.76738973 0.82258832 0.54570517 0.26109914 0.41387064 0.98988503 0.73862661 0.89405087 0.46517263 0.76892131 0.63834069 0.22694307 0.17413545 0.45388516 0.13778819 0.87718817 0.19358900 0.39669745 0.69410826 0.38942591 0.74846699 0.60166847 0.10070349 0.79814943 0.38520069 0.06113565 0.63849960 0.87445695 0.28151821 0.66647061 0.69045021 0.27026380 0.38000198 0.54785494 0.21392325 0.03768333 0.97564645 0.62088589 0.43109009 0.35529123 0.65398020 0.40164284 0.68442648 0.60018319 0.82954864 0.20588517 0.26434500 0.40327609 0.67231594 0.00001071 0.12568464 0.94184068 0.84787368 0.28238956 0.75353663 0.64248200 0.40284897 0.38774205 0.09660828 0.69231332 0.43263685 0.21746137 0.63643088 0.17036714 0.41380928 0.62440287 0.01524991 0.71660294 0.35039726 0.12890050 0.93603942 0.37728988 0.53986125 0.19086737 0.79948718 0.21336918 0.86500133 0.01730441 0.52699327 0.93460360 0.78688085 0.48753694 0.47270218 0.16718951 0.62584322 0.07784314 0.25880550 0.31614274 0.82720485 0.03930877 0.48836467 0.75672626 0.51982789 0.52661187 0.58994948 0.26021491 0.85740866 0.00270608 0.84953742 0.54582054 0.49245070 0.81082741 0.03650983 0.70423463 0.28868105 0.36034209 0.62670183 0.55153555 0.70261313 0.52340994 0.94126331 0.92782611 0.83976392 0.68451381 0.45417252 0.42818433 0.90718905 0.92167762 0.83592956 0.77223501 0.21000816 0.36844489 0.42105175 0.93254882 0.55116609 0.71012751 0.64443141 0.95030443 0.54010041 0.47428573 0.21414311 0.40365527 0.97398575 0.80842660 0.33926944 0.45469210 0.80718342 0.43932528 0.33541083 0.17845952 0.81576049 0.53261815 0.88017310 0.26603507 0.77185675 0.99748308 0.62138555 0.45572542 0.98952409 0.29449151 0.13132836 0.99309783 0.93285650 0.75109686 0.64941883 0.76049034 0.56793616 0.82309452 0.98914869 0.34820035 0.94189845 0.44831773 0.13945743 0.10096745 0.11156922 0.27555091 0.34565316 0.70353568 0.32496337 0.13686084 0.77024512 0.34054553 0.01573949 0.83543082 0.88943741 0.44316549 0.70468817 0.39202185 0.75558344 0.72904960 0.00293116 0.14430837 0.17406997 0.61716542 0.97152630 0.53263715 0.53342867 0.62738670 0.70928541 0.17240765 0.87766521 0.34364405 0.91037934 0.64626307 0.47972638 0.19022095 0.92093843 0.94606042 0.09841273 0.05376057 0.37769904 0.99337472 0.17411575 0.14251156 0.77208802 0.57248955 0.24789910 0.42049708 0.05905334 0.27052679 0.88617116 0.05486600 0.17222135 0.34808022 0.82182394 0.70571761 0.29748556 0.61295951 0.68171897 0.87923813 0.41185968 0.76925120 0.11329592 0.97930007 0.39963163 0.98513040 0.16385038 0.98107033 0.78849187 0.53094677 0.21334692 0.18792823 0.35384094 0.63650769 Test of time to generate one billion random integers: Time elapsed = 6.736 s april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Results.sh000077500000000000000000000107101234204160600257540ustar00rootroot00000000000000#!/bin/sh # Results.sh # Examine the output from tests of Mersenne Twister random number generators # Explain the meaning in plain English rm -f Bug.txt echo echo "Examining performance of Wagner's MersenneTwister.h C++ class..." # Extract the various distribution series from each generator's output for NAME in *.out; do BASE=`basename $NAME .out` grep -A 200 "integer generation:" $NAME | tail -200 > $BASE.integer.tmp grep -A 200 -F "[0,1) generation:" $NAME | tail -200 > $BASE.exclusive.tmp grep -A 400 -F "[0,1] generation:" $NAME | tail -400 > $BASE.inclusive.tmp done # Compare the output to the inventors' reference output rm -f *.reference.tmp for NAME in *.out; do BASE=`basename $NAME .out` diff --brief $BASE.integer.tmp Reference.integer.tmp >> $BASE.reference.tmp diff --brief $BASE.exclusive.tmp Reference.exclusive.tmp >> $BASE.reference.tmp diff --brief $BASE.inclusive.tmp Reference.inclusive.tmp >> $BASE.reference.tmp done # Look for an available awk command if which awk &> /dev/null then AWK=awk elif which gawk &> /dev/null then AWK=gawk elif which nawk &> /dev/null then AWK=nawk fi # Report comparison test results if [ $AWK ]; then echo echo "Comparison of integer generation rate with other versions:" printf " This version " if [ -s Wagner.out ]; then $AWK '/Time elapsed/{ printf( "%6.1f million per second", 1000 / $4 ) }' Wagner.out if [ -s Wagner.reference.tmp ]; then printf " (non-conforming)\n" else printf "\n" fi else printf " Failed to run\n" fi printf " Inventors' version " if [ -s Original.out ]; then $AWK '/Time elapsed/{ printf( "%6.1f million per second", 1000 / $4 ) }' Original.out if [ -s Original.reference.tmp ]; then printf " (non-conforming)\n" else printf "\n" fi else printf " Failed to run\n" fi printf " Bedaux's version " if [ -s Bedaux.out ]; then $AWK '/Time elapsed/{ printf( "%6.1f million per second", 1000 / $4 ) }' Bedaux.out if [ -s Bedaux.reference.tmp ]; then printf " (non-conforming)\n" else printf "\n" fi else printf " Failed to run\n" fi printf " Blevins's version " if [ -s Blevins.out ]; then $AWK '/Time elapsed/{ printf( "%6.1f million per second", 1000 / $4 ) }' Blevins.out if [ -s Blevins.reference.tmp ]; then printf " (non-conforming)\n" else printf "\n" fi else printf " Failed to run\n" fi printf " Cokus's version " if [ -s Cokus.out ]; then $AWK '/Time elapsed/{ printf( "%6.1f million per second", 1000 / $4 ) }' Cokus.out if [ -s Cokus.reference.tmp ]; then printf " (non-conforming)\n" else printf "\n" fi else printf " Failed to run\n" fi printf " Kuenning's version " if [ -s Kuenning.out ]; then $AWK '/Time elapsed/{ printf( "%6.1f million per second", 1000 / $4 ) }' Kuenning.out if [ -s Kuenning.reference.tmp ]; then printf " (non-conforming)\n" else printf "\n" fi else printf " Failed to run\n" fi printf " Ladd's version " if [ -s Ladd.out ]; then $AWK '/Time elapsed/{ printf( "%6.1f million per second", 1000 / $4 ) }' Ladd.out if [ -s Ladd.reference.tmp ]; then printf " (non-conforming)\n" else printf "\n" fi else printf " Failed to run\n" fi printf " Yang's version " if [ -s Yang.out ]; then $AWK '/Time elapsed/{ printf( "%6.1f million per second", 1000 / $4 ) }' Yang.out if [ -s Yang.reference.tmp ]; then printf " (non-conforming)\n" else printf "\n" fi else printf " Failed to run\n" fi printf " Built-in rand() " if [ -s Standard.out ]; then $AWK '/Time elapsed/{ printf( "%6.1f million per second", 1000 / $4 ) }' Standard.out if [ -s Standard.reference.tmp ]; then printf " (non-conforming)\n" else printf "\n" fi else printf " Failed to run\n" fi fi # Report own performance test results echo grep -A 100 "Test of generation rates in various distributions:" Wagner.out # Summarize results echo grep "Error" Wagner.out >> Wagner.error.tmp if [ -s Wagner.reference.tmp ] && ![ -s Wagner.error.tmp ]; then cat Wagner.out Original.out Cokus.out > Bug.txt echo "Failed tests - MersenneTwister.h generated incorrect output" echo "Results have been written to a file called 'Bug.txt'" echo "Please send a copy of 'Bug.txt' and system info to wagnerr@umich.edu" else echo "MersenneTwister.h passed all tests" fi rm -f *.tmp exit 0 april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Standard/000077500000000000000000000000001234204160600255155ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Standard/Standard.cpp000066400000000000000000000034051234204160600277630ustar00rootroot00000000000000// Standard.cpp // Test output and speed of standard random number generator // Richard J. Wagner 29 Sep 2009 // This is free, unrestricted software void of any warranty. #include #include #include int main ( int argc, char * const argv[] ) { printf( "Testing output and speed of standard random number generator\n" ); printf( "\nTest of random integer generation:\n" ); unsigned long oneSeed = 4357UL; unsigned long bigSeed[4] = { 0x123UL, 0x234UL, 0x345UL, 0x456UL }; // NOTE: The standard random number generator provided with a C++ compiler // is unlikely to be the Mersenne Twister. Therefore it probably lacks the // ability to accept a big seed and will probably not match any of the // expected output. printf( "\nTest of random integer generation:\n" ); srand( bigSeed[0] ); unsigned long i; for( i = 0; i < 1000UL; ++i ) { printf( "%10i ", rand() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of random real number [0,1) generation:\n" ); for( i = 0; i < 1000UL; ++i ) { printf( "%10.8f ", rand() / ( RAND_MAX + 1.0 ) ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of random real number [0,1] generation:\n" ); srand( oneSeed ); for( i = 0; i < 2000UL; ++i ) { printf( "%10.8f ", rand() / ( RAND_MAX + 0.0 ) ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of time to generate one billion random integers:\n" ); srand( oneSeed ); unsigned long junk = 0; clock_t start = clock(); for( i = 0; i < 1000000000UL; ++i ) { junk ^= rand(); } clock_t stop = clock(); if( junk == 0 ) printf( "jinx\n" ); printf( "Time elapsed = " ); printf( "%8.3f", double( stop - start ) / CLOCKS_PER_SEC ); printf( " s\n" ); return 0; } april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Wagner/000077500000000000000000000000001234204160600252005ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Wagner/Wagner.cpp000066400000000000000000000226661234204160600271430ustar00rootroot00000000000000// Wagner.cpp // Test output and speed of MersenneTwister.h // Richard J. Wagner 30 Sep 2009 // This is free, unrestricted software void of any warranty. #include #include #include #include "MersenneTwister.h" void showrate( clock_t start, clock_t stop, int reps ); int main( int argc, char * const argv[] ) { printf( "Testing output and speed of MersenneTwister.h\n" ); MTRand::uint32 oneSeed = 4357UL; MTRand::uint32 bigSeed[4] = { 0x123UL, 0x234UL, 0x345UL, 0x456UL }; printf( "\nTest of random integer generation:\n" ); MTRand mtrand1( bigSeed, 4 ); unsigned long i; for( i = 0; i < 1000UL; ++i ) { printf( "%10lu ", mtrand1.randInt() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of random real number [0,1) generation:\n" ); for( i = 0; i < 1000UL; ++i ) { printf( "%10.8f ", mtrand1.randExc() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of random real number [0,1] generation:\n" ); MTRand mtrand2( oneSeed ); for( i = 0; i < 2000UL; ++i ) { printf( "%10.8f ", mtrand2.rand() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of time to generate one billion random integers:\n" ); MTRand mtrand3( oneSeed ); unsigned long junk = 0; clock_t start = clock(); for( i = 0; i < 1000000000UL; ++i ) { junk ^= mtrand3.randInt(); } clock_t stop = clock(); if( junk == 0 ) printf( "jinx\n" ); printf( "Time elapsed = " ); printf( "%8.3f", double( stop - start ) / CLOCKS_PER_SEC ); printf( " s\n" ); printf( "\nTest of generation rates in various distributions:\n" ); { unsigned long junki = 0; double junkf = 0; printf( " Integers in [0,2^32-1] " ); start = clock(); for( i = 0; i < 1000000000UL; ++i ) junki ^= mtrand3.randInt(); stop = clock(); showrate(start,stop,1000); printf( " Integers in [0,100] " ); start = clock(); for( i = 0; i < 500000000UL; ++i ) junki ^= mtrand3.randInt(100); stop = clock(); showrate(start,stop,500); printf( " Reals in [0,1] " ); start = clock(); for( i = 0; i < 500000000UL; ++i ) junkf += mtrand3.rand(); stop = clock(); showrate(start,stop,500); printf( " Reals in [0,7] " ); start = clock(); for( i = 0; i < 500000000UL; ++i ) junkf += mtrand3.rand(7.0); stop = clock(); showrate(start,stop,500); printf( " Reals in normal distribution" ); start = clock(); for( i = 0; i < 100000000UL; ++i ) junkf += mtrand3.randNorm(7.0,2.0); stop = clock(); showrate(start,stop,100); if( junki == 0 ) printf("jinx\n"); if( junkf == 0.0 ) printf("jinx\n"); } printf( "\nTests of functionality:\n" ); // Array save/load test bool saveArrayFailure = false; MTRand mtrand4a, mtrand4b; MTRand::uint32 saveArray[ MTRand::SAVE ]; mtrand4a.save( saveArray ); mtrand4b.load( saveArray ); for( i = 0; i < 2000UL; ++i ) if( mtrand4b.randInt() != mtrand4a.randInt() ) saveArrayFailure = true; if( saveArrayFailure ) printf( "Error - Failed array save/load test\n" ); else printf( "Passed array save/load test\n" ); // Stream save/load test bool saveStreamFailure = false; std::ofstream dataOut( "state.dat" ); if( dataOut ) { dataOut << mtrand4a; // comment out if compiler does not support dataOut.close(); } std::ifstream dataIn( "state.dat" ); if( dataIn ) { dataIn >> mtrand4b; // comment out if compiler does not support dataIn.close(); } for( i = 0; i < 2000UL; ++i ) if( mtrand4b.randInt() != mtrand4a.randInt() ) saveStreamFailure = true; if( saveStreamFailure ) printf( "Error - Failed stream save/load test\n" ); else printf( "Passed stream save/load test\n" ); // Copy constructor test bool copyConstructorFailure = false; MTRand mtrand4c( mtrand4a ); for( i = 0; i < 2000UL; ++i ) if( mtrand4c.randInt() != mtrand4a.randInt() ) copyConstructorFailure = true; if( copyConstructorFailure ) printf( "Error - Failed copy constuctor test\n" ); else printf( "Passed copy constructor test\n" ); // Copy operator test bool copyOperatorFailure = false; MTRand mtrand4d; mtrand4d = mtrand4a; for( i = 0; i < 2000UL; ++i ) if( mtrand4d.randInt() != mtrand4a.randInt() ) copyOperatorFailure = true; if( copyOperatorFailure ) printf( "Error - Failed copy operator test\n" ); else printf( "Passed copy operator test\n" ); // Integer range test MTRand mtrand5; bool integerRangeFailure = false; unsigned long integerRangeCount[18]; for( i = 0; i < 18UL; ++i ) integerRangeCount[i] = 0; for( i = 0; i < 180000UL; ++i ) { int r = mtrand5.randInt(17); if( r < 0 || r > 17 ) integerRangeFailure = true; else ++integerRangeCount[ mtrand5.randInt(17) ]; } for( i = 0; i < 18UL; ++i ) if( integerRangeCount[i] < 5000 || integerRangeCount[i] > 15000 ) integerRangeFailure = true; if( integerRangeFailure ) printf( "Error - Failed integer range test\n" ); else printf( "Passed integer range test\n" ); // Float range test MTRand mtrand6; bool floatRangeFailure = false; unsigned long floatRangeLo = 0; unsigned long floatRangeHi = 0; for( i = 0; i < 100000UL; ++i ) { double r = mtrand6(); if( r < 0.0 || r > 1.0 ) floatRangeFailure = true; if( r < 0.1 ) ++floatRangeLo; if( r > 0.9 ) ++floatRangeHi; } if( floatRangeLo < 5000 || floatRangeLo > 15000 ) floatRangeFailure = true; if( floatRangeHi < 5000 || floatRangeHi > 15000 ) floatRangeFailure = true; floatRangeLo = 0; floatRangeHi = 0; for( i = 0; i < 100000UL; ++i ) { double r = mtrand6.rand(); if( r < 0.0 || r > 1.0 ) floatRangeFailure = true; if( r < 0.1 ) ++floatRangeLo; if( r > 0.9 ) ++floatRangeHi; } if( floatRangeLo < 5000 || floatRangeLo > 15000 ) floatRangeFailure = true; if( floatRangeHi < 5000 || floatRangeHi > 15000 ) floatRangeFailure = true; floatRangeLo = 0; floatRangeHi = 0; for( i = 0; i < 100000UL; ++i ) { double r = mtrand6.rand(0.3183); if( r < 0.0 || r > 0.3183 ) floatRangeFailure = true; if( r < 0.03183 ) ++floatRangeLo; if( r > 0.28647 ) ++floatRangeHi; } floatRangeFailure |= !floatRangeLo; floatRangeFailure |= !floatRangeHi; floatRangeLo = false; floatRangeHi = false; for( i = 0; i < 100000UL; ++i ) { double r = mtrand6.randExc(); if( r < 0.0 || r >= 1.0 ) floatRangeFailure = true; if( r < 0.1 ) ++floatRangeLo; if( r > 0.9 ) ++floatRangeHi; } if( floatRangeLo < 5000 || floatRangeLo > 15000 ) floatRangeFailure = true; if( floatRangeHi < 5000 || floatRangeHi > 15000 ) floatRangeFailure = true; floatRangeLo = 0; floatRangeHi = 0; for( i = 0; i < 100000UL; ++i ) { double r = mtrand6.randExc(0.3183); if( r < 0.0 || r >= 0.3183 ) floatRangeFailure = true; if( r < 0.03183 ) ++floatRangeLo; if( r > 0.28647 ) ++floatRangeHi; } if( floatRangeLo < 5000 || floatRangeLo > 15000 ) floatRangeFailure = true; if( floatRangeHi < 5000 || floatRangeHi > 15000 ) floatRangeFailure = true; floatRangeLo = 0; floatRangeHi = 0; for( i = 0; i < 100000UL; ++i ) { double r = mtrand6.randDblExc(); if( r <= 0.0 || r >= 1.0 ) floatRangeFailure = true; if( r < 0.1 ) ++floatRangeLo; if( r > 0.9 ) ++floatRangeHi; } if( floatRangeLo < 5000 || floatRangeLo > 15000 ) floatRangeFailure = true; if( floatRangeHi < 5000 || floatRangeHi > 15000 ) floatRangeFailure = true; floatRangeLo = 0; floatRangeHi = 0; for( i = 0; i < 100000UL; ++i ) { double r = mtrand6.randDblExc(0.3183); if( r <= 0.0 || r >= 0.3183 ) floatRangeFailure = true; if( r < 0.03183 ) ++floatRangeLo; if( r > 0.28647 ) ++floatRangeHi; } if( floatRangeLo < 5000 || floatRangeLo > 15000 ) floatRangeFailure = true; if( floatRangeHi < 5000 || floatRangeHi > 15000 ) floatRangeFailure = true; if( floatRangeFailure ) printf( "Error - Failed float range test\n" ); else printf( "Passed float range test\n" ); // Gaussian distribution test MTRand mtrand7; bool gaussianFailure = false; const double mean = 100.0; const double stddev = 50.0; long gaussianExpect[] = { 0, 0, 0, 0, 0, 0, 0, 31, 1318, 21400, 135905, 341344, 341344, 135905, 21400, 1318, 31, 0, 0, 0, 0, 0, 0, 0 }; long gaussian[24]; for( i = 0; i < 24; ++i ) gaussian[i] = 0; for( i = 0; i < 1000000UL; ++i ) { double r = mtrand7.randNorm( mean, stddev ); long bin = 12 + long( floor( ( r - mean ) / stddev ) ); if( bin < 0 || bin > 23 ) gaussianFailure = true; else ++gaussian[bin]; } for( i = 0; i < 24UL; ++i ) { if( gaussian[i] - 2 * gaussianExpect[i] > 5 ) gaussianFailure = true; if( gaussianExpect[i] / 2 - gaussian[i] > 5 ) gaussianFailure = true; } if( gaussianFailure ) printf( "Error - Failed Gaussian distribution test\n" ); else printf( "Passed Gaussian distribution test\n" ); // Auto-seed uniqueness test MTRand mtrand8a, mtrand8b, mtrand8c; unsigned long r8a = mtrand8a.randInt(); unsigned long r8b = mtrand8b.randInt(); unsigned long r8c = mtrand8c.randInt(); if( r8a == r8b || r8a == r8c || r8b == r8c ) printf( "Error - Failed auto-seed uniqueness test\n" ); else printf( "Passed auto-seed uniqueness test\n" ); return 0; } void showrate( clock_t start, clock_t stop, int reps ) { double time = double( stop - start ) / CLOCKS_PER_SEC; double rate = reps / time; printf( " %6.1f million per second\n", rate ); } april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Yang/000077500000000000000000000000001234204160600246535ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Yang/Yang.cpp000066400000000000000000000032201234204160600262520ustar00rootroot00000000000000// Yang.cpp // Test output and speed of Yang's Mersenne Twister class // Richard J. Wagner 28 Sep 2009 // This is free, unrestricted software void of any warranty. #include #include #include "mtrnd.h" using namespace MT; int main ( int argc, char * const argv[] ) { printf( "Testing output and speed of Yang's Mersenne Twister class\n" ); printf( "\nTest of random integer generation:\n" ); unsigned long oneSeed = 4357UL; unsigned long bigSeed[4] = { 0x123UL, 0x234UL, 0x345UL, 0x456UL }; printf( "\nTest of random integer generation:\n" ); MersenneTwist mtrand1; mtrand1.init_by_array( bigSeed, 4 ); unsigned long i; for( i = 0; i < 1000UL; ++i ) { printf( "%10lu ", mtrand1.genrand_int32() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of random real number [0,1) generation:\n" ); for( i = 0; i < 1000UL; ++i ) { printf( "%10.8f ", mtrand1.genrand_real2() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of random real number [0,1] generation:\n" ); mtrand1.init_genrand( oneSeed ); for( i = 0; i < 2000UL; ++i ) { printf( "%10.8f ", mtrand1.genrand_real1() ); if( i % 5 == 4 ) printf("\n"); } printf( "\nTest of time to generate one billion random integers:\n" ); MersenneTwist mtrand2; mtrand2.init_genrand( oneSeed ); unsigned long junk = 0; clock_t start = clock(); for( i = 0; i < 1000000000UL; ++i ) { junk ^= mtrand2.genrand_int32(); } clock_t stop = clock(); if( junk == 0 ) printf( "jinx\n" ); printf( "Time elapsed = " ); printf( "%8.3f", double( stop - start ) / CLOCKS_PER_SEC ); printf( " s\n" ); return 0; } april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/Test/Yang/mtrnd.h000066400000000000000000000153541234204160600261600ustar00rootroot00000000000000/* A C-program for MT19937, with initialization improved 2002/1/26. Coded by Takuji Nishimura and Makoto Matsumoto. Before using, initialize the state by using init_genrand(seed) or init_by_array(init_key, key_length). Copyright (C) 1997 - 2002, Makoto Matsumoto and Takuji Nishimura, All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. 3. The names of its contributors may not be used to endorse or promote products derived from this software without specific prior written permission. THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. Any feedback is very welcome. http://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/emt.html email: m-mat @ math.sci.hiroshima-u.ac.jp (remove space) Reference: M. Matsumoto and T. Nishimura, "Mersenne Twister: A 623-Dimensionally Equidistributed Uniform Pseudo-Random Number Generator", ACM Transactions on Modeling and Computer Simulation, Vol. 8, No. 1, January 1998, pp 3--30. */ // C++ wrapped up by Changjiang Yang, more important: make it thread-safe. #ifndef _MT_RND_H_ #define _MT_RND_H_ namespace MT { /* Period parameters */ const int N = 624; const int M = 397; const unsigned long MATRIX_A = 0x9908b0dfUL; /* constant vector a */ const unsigned long UPPER_MASK = 0x80000000UL; /* most significant w-r bits */ const unsigned long LOWER_MASK = 0x7fffffffUL; /* least significant r bits */ class MersenneTwist { unsigned long mt[N]; /* the array for the state vector */ int mti; /* mti==N+1 means mt[N] is not initialized */ public: MersenneTwist() : mti(N+1) {} /* initializes mt[N] with a seed */ // Note: Initializing TWISTER to the scalar integer state 0 actually // corresponds to the C call init_genrand(5489). void init_genrand(unsigned long s) { mt[0]= s & 0xffffffffUL; for (mti=1; mti> 30)) + mti); /* See Knuth TAOCP Vol2. 3rd Ed. P.106 for multiplier. */ /* In the previous versions, MSBs of the seed affect */ /* only MSBs of the array mt[]. */ /* 2002/01/09 modified by Makoto Matsumoto */ mt[mti] &= 0xffffffffUL; /* for >32 bit machines */ } } /* initialize by an array with array-length */ /* init_key is the array for initializing keys */ /* key_length is its length */ /* slight change for C++, 2004/2/26 */ void init_by_array(unsigned long init_key[], int key_length) { int i, j, k; init_genrand(19650218UL); i=1; j=0; k = (N>key_length ? N : key_length); for (; k; k--) { mt[i] = (mt[i] ^ ((mt[i-1] ^ (mt[i-1] >> 30)) * 1664525UL)) + init_key[j] + j; /* non linear */ mt[i] &= 0xffffffffUL; /* for WORDSIZE > 32 machines */ i++; j++; if (i>=N) { mt[0] = mt[N-1]; i=1; } if (j>=key_length) j=0; } for (k=N-1; k; k--) { mt[i] = (mt[i] ^ ((mt[i-1] ^ (mt[i-1] >> 30)) * 1566083941UL)) - i; /* non linear */ mt[i] &= 0xffffffffUL; /* for WORDSIZE > 32 machines */ i++; if (i>=N) { mt[0] = mt[N-1]; i=1; } } mt[0] = 0x80000000UL; /* MSB is 1; assuring non-zero initial array */ } /* generates a random number on [0,0xffffffff]-interval */ unsigned long genrand_int32(void) { unsigned long y; static unsigned long mag01[2]={0x0UL, MATRIX_A}; /* mag01[x] = x * MATRIX_A for x=0,1 */ if (mti >= N) { /* generate N words at one time */ int kk; if (mti == N+1) /* if init_genrand() has not been called, */ init_genrand(5489UL); /* a default initial seed is used */ for (kk=0;kk> 1) ^ mag01[y & 0x1UL]; } for (;kk> 1) ^ mag01[y & 0x1UL]; } y = (mt[N-1]&UPPER_MASK)|(mt[0]&LOWER_MASK); mt[N-1] = mt[M-1] ^ (y >> 1) ^ mag01[y & 0x1UL]; mti = 0; } y = mt[mti++]; /* Tempering */ y ^= (y >> 11); y ^= (y << 7) & 0x9d2c5680UL; y ^= (y << 15) & 0xefc60000UL; y ^= (y >> 18); return y; } /* generates a random number on [0,0x7fffffff]-interval */ long genrand_int31(void) { return (long)(genrand_int32()>>1); } /* generates a random number on [0,1]-real-interval */ double genrand_real1(void) { return genrand_int32()*(1.0/4294967295.0); /* divided by 2^32-1 */ } /* generates a random number on [0,1)-real-interval */ double genrand_real2(void) { return genrand_int32()*(1.0/4294967296.0); /* divided by 2^32 */ } /* generates a random number on (0,1)-real-interval */ double genrand_real3(void) { return (((double)genrand_int32()) + 0.5)*(1.0/4294967296.0); /* divided by 2^32 */ } /* generates a random number on [0,1) with 53-bit resolution*/ double genrand_res53(void) { unsigned long a=genrand_int32()>>5, b=genrand_int32()>>6; return(a*67108864.0+b)*(1.0/9007199254740992.0); } }; } #endif april-ann-0.3.1/packages/basics/random/c_src/Mersenne-1.1/example.cpp000066400000000000000000000153311234204160600252000ustar00rootroot00000000000000// example.cpp // Examples of random number generation with MersenneTwister.h // Richard J. Wagner 27 September 2009 #include #include #include "MersenneTwister.h" using namespace std; int main( int argc, char * const argv[] ) { // A Mersenne Twister random number generator // can be declared with a simple MTRand mtrand1; // and used with double a = mtrand1(); // or double b = mtrand1.rand(); cout << "Two real numbers in the range [0,1]: "; cout << a << ", " << b << endl; // Those calls produced the default of floating-point numbers // in the range 0 to 1, inclusive. We can also get integers // in the range 0 to 2^32 - 1 (4294967295) with unsigned long c = mtrand1.randInt(); cout << "An integer in the range [0," << 0xffffffffUL; cout << "]: " << c << endl; // Or get an integer in the range 0 to n (for n < 2^32) with int d = mtrand1.randInt( 42 ); cout << "An integer in the range [0,42]: " << d << endl; // We can get a real number in the range 0 to 1, excluding // 1, with double e = mtrand1.randExc(); cout << "A real number in the range [0,1): " << e << endl; // We can get a real number in the range 0 to 1, excluding // both 0 and 1, with double f = mtrand1.randDblExc(); cout << "A real number in the range (0,1): " << f << endl; // The functions rand(), randExc(), and randDblExc() can // also have ranges defined just like randInt() double g = mtrand1.rand( 2.5 ); double h = mtrand1.randExc( 10.0 ); double i = 12.0 + mtrand1.randDblExc( 8.0 ); cout << "A real number in the range [0,2.5]: " << g << endl; cout << "One in the range [0,10.0): " << h << endl; cout << "And one in the range (12.0,20.0): " << i << endl; // The distribution of numbers over each range is uniform, // but it can be transformed to other useful distributions. // One common transformation is included for drawing numbers // in a normal (Gaussian) distribution cout << "A few grades from a class with a 52 pt average "; cout << "and a 9 pt standard deviation:" << endl; for( int student = 0; student < 20; ++student ) { double j = mtrand1.randNorm( 52.0, 9.0 ); cout << ' ' << int(j); } cout << endl; // Random number generators need a seed value to start // producing a sequence of random numbers. We gave no seed // in our declaration of mtrand1, so one was automatically // generated from the system clock (or the operating system's // random number pool if available). Alternatively we could // provide our own seed. Each seed uniquely determines the // sequence of numbers that will be produced. We can // replicate a sequence by starting another generator with // the same seed. MTRand mtrand2a( 1973 ); // makes new MTRand with given seed double k1 = mtrand2a(); // gets the first number generated MTRand mtrand2b( 1973 ); // makes an identical MTRand double k2 = mtrand2b(); // and gets the same number cout << "These two numbers are the same: "; cout << k1 << ", " << k2 << endl; // We can also restart an existing MTRand with a new seed mtrand2a.seed( 1776 ); mtrand2b.seed( 1941 ); double l1 = mtrand2a(); double l2 = mtrand2b(); cout << "Re-seeding gives different numbers: "; cout << l1 << ", " << l2 << endl; // But there are only 2^32 possible seeds when we pass a // single 32-bit integer. Since the seed dictates the // sequence, only 2^32 different random number sequences will // result. For applications like Monte Carlo simulation we // might want many more. We can seed with an array of values // rather than a single integer to access the full 2^19937-1 // possible sequences. MTRand::uint32 seed[ MTRand::N ]; for( int n = 0; n < MTRand::N; ++n ) seed[n] = 23 * n; // fill with anything MTRand mtrand3( seed ); double m1 = mtrand3(); double m2 = mtrand3(); double m3 = mtrand3(); cout << "We seeded this sequence with 19968 bits: "; cout << m1 << ", " << m2 << ", " << m3 << endl; // Again we will have the same sequence every time we run the // program. Make the array with something that will change // to get unique sequences. On a Linux system, the default // auto-initialization routine takes a unique sequence from // /dev/urandom. // For cryptography, also remember to hash the generated // random numbers. Otherwise the internal state of the // generator can be learned after reading 624 values. // We might want to save the state of the generator at an // arbitrary point after seeding so a sequence could be // replicated. An MTRand object can be saved into an array // or to a stream. MTRand mtrand4; // The array must be of type uint32 and length SAVE. MTRand::uint32 randState[ MTRand::SAVE ]; mtrand4.save( randState ); // A stream is convenient for saving to a file. ofstream stateOut( "state.dat" ); if( stateOut ) { stateOut << mtrand4; stateOut.close(); } unsigned long n1 = mtrand4.randInt(); unsigned long n2 = mtrand4.randInt(); unsigned long n3 = mtrand4.randInt(); cout << "A random sequence: " << n1 << ", " << n2 << ", " << n3 << endl; // And loading the saved state is as simple as mtrand4.load( randState ); unsigned long o4 = mtrand4.randInt(); unsigned long o5 = mtrand4.randInt(); unsigned long o6 = mtrand4.randInt(); cout << "Restored from an array: " << o4 << ", " << o5 << ", " << o6 << endl; ifstream stateIn( "state.dat" ); if( stateIn ) { stateIn >> mtrand4; stateIn.close(); } unsigned long p7 = mtrand4.randInt(); unsigned long p8 = mtrand4.randInt(); unsigned long p9 = mtrand4.randInt(); cout << "Restored from a stream: " << p7 << ", " << p8 << ", " << p9 << endl; // We can also duplicate a generator by copying MTRand mtrand5( mtrand3 ); // copy upon construction double q1 = mtrand3(); double q2 = mtrand5(); cout << "These two numbers are the same: "; cout << q1 << ", " << q2 << endl; mtrand5 = mtrand4; // copy by assignment double r1 = mtrand4(); double r2 = mtrand5(); cout << "These two numbers are the same: "; cout << r1 << ", " << r2 << endl; // In summary, the recommended common usage is MTRand mtrand6; // automatically generate seed double s = mtrand6(); // real number in [0,1] double t = mtrand6.randExc(0.5); // real number in [0,0.5) unsigned long u = mtrand6.randInt(10); // integer in [0,10] // with the << and >> operators used for saving to and // loading from streams if needed. cout << "Your lucky number for today is " << s + t * u << endl; return 0; } april-ann-0.3.1/packages/basics/random/c_src/MersenneTwister.cc000066400000000000000000000157101234204160600244360ustar00rootroot00000000000000#include "buffer_list.h" #include "MersenneTwister.h" const unsigned int MTRand::N; const unsigned int MTRand::SAVE; MTRand::MTRand(const uint32_t& oneSeed) { seed(oneSeed); } MTRand::MTRand(uint32_t *const bigSeed, const uint32_t seedLength) { seed(bigSeed,seedLength); } MTRand::MTRand() { seed(); } MTRand::MTRand(const MTRand& r) : Referenced() { register uint32_t *s = state; const register uint32_t *t = r.state; register int i = N; for( ; i--; *s++ = *t++ ) {} left = r.left; pNext = &state[N-left]; } MTRand& MTRand::operator=(const MTRand& r) { if (this != &r) { register uint32_t *s = state; const register uint32_t *t = r.state; register int i = N; for( ; i--; *s++ = *t++ ) {} left = r.left; pNext = &state[N-left]; } return (*this); } double MTRand::rand() { return double(randInt()) * (1.0/4294967295.0); } double MTRand::rand( const double& n) { return rand() * n; } double MTRand::randExc() { return double(randInt()) * (1.0/4294967296.0); } double MTRand::randExc(const double& n) { return randExc() * n; } double MTRand::randDblExc() { return ( double(randInt()) + 0.5 ) * (1.0/4294967296.0); } double MTRand::randDblExc(const double& n) { return randDblExc() * n; } double MTRand::rand53() { uint32_t a = randInt() >> 5, b = randInt() >> 6; return ( a * 67108864.0 + b ) * (1.0/9007199254740992.0); // by Isaku Wada } double MTRand::randNorm(const double& mean, const double& variance) { // Return a real number from a normal (Gaussian) distribution with given // mean and variance by Box-Muller method double r = sqrt( -2.0 * log( 1.0-randDblExc()) ) * variance; double phi = 2.0 * 3.14159265358979323846264338328 * randExc(); return mean + r * cos(phi); } uint32_t MTRand::randInt() { // Pull a 32-bit integer from the generator state // Every other access function simply transforms the numbers extracted here if( left == 0 ) reload(); --left; register uint32_t s1; s1 = *pNext++; s1 ^= (s1 >> 11); s1 ^= (s1 << 7) & 0x9d2c5680UL; s1 ^= (s1 << 15) & 0xefc60000UL; return ( s1 ^ (s1 >> 18) ); } uint32_t MTRand::randInt(const uint32_t& n) { // Find which bits are used in n uint32_t used = n; used |= used >> 1; used |= used >> 2; used |= used >> 4; used |= used >> 8; used |= used >> 16; // Draw numbers until one is found in [0,n] uint32_t i; do i = randInt() & used; // toss unused bits to shorten search while( i > n ); return i; } void MTRand::seed( const uint32_t oneSeed ) { // Seed the generator with a simple uint32 initialize(oneSeed); reload(); } void MTRand::seed( uint32_t *const bigSeed, const uint32_t seedLength ) { // Seed the generator with an array of uint32's // There are 2^19937-1 possible initial states. This function allows // all of those to be accessed by providing at least 19937 bits (with a // default seed length of N = 624 uint32's). Any bits above the lower 32 // in each element are discarded. // Just call seed() if you want to get array from /dev/urandom initialize(19650218UL); register unsigned int i = 1; register uint32_t j = 0; register int k = ( N > seedLength ? N : seedLength ); for( ; k; --k ) { state[i] = state[i] ^ ( (state[i-1] ^ (state[i-1] >> 30)) * 1664525UL ); state[i] += ( bigSeed[j] & 0xffffffffUL ) + j; state[i] &= 0xffffffffUL; ++i; ++j; if( i >= N ) { state[0] = state[N-1]; i = 1; } if( j >= seedLength ) j = 0; } for( k = N - 1; k; --k ) { state[i] = state[i] ^ ( (state[i-1] ^ (state[i-1] >> 30)) * 1566083941UL ); state[i] -= i; state[i] &= 0xffffffffUL; ++i; if( i >= N ) { state[0] = state[N-1]; i = 1; } } state[0] = 0x80000000UL; // MSB is 1, assuring non-zero initial array reload(); } void MTRand::seed() { // Seed the generator with an array from /dev/urandom if available // Otherwise use a hash of time() and clock() values // First try getting an array from /dev/urandom FILE* urandom = fopen( "/dev/urandom", "rb" ); if( urandom ) { uint32_t bigSeed[N]; register uint32_t *s = bigSeed; register int i = N; register bool success = true; while( success && i-- ) success = fread( s++, sizeof(uint32_t), 1, urandom ); fclose(urandom); if( success ) { seed( bigSeed, N ); return; } } // Was not successful, so use time() and clock() instead seed( hash( time(NULL), clock() ) ); } void MTRand::initialize( const uint32_t seed ) { // Initialize generator state with seed // See Knuth TAOCP Vol 2, 3rd Ed, p.106 for multiplier. // In previous versions, most significant bits (MSBs) of the seed affect // only MSBs of the state array. Modified 9 Jan 2002 by Makoto Matsumoto. register uint32_t *s = state; register uint32_t *r = state; register unsigned int i = 1; *s++ = seed & 0xffffffffUL; for( ; i < N; ++i ) { *s++ = ( 1812433253UL * ( *r ^ (*r >> 30) ) + i ) & 0xffffffffUL; r++; } } void MTRand::reload() { // Generate N new values in state // Made clearer and faster by Matthew Bellew (matthew.bellew@home.com) static const int MmN = int(M) - int(N); // in case enums are unsigned register uint32_t *p = state; register int i; for( i = N - M; i--; ++p ) *p = twist( p[M], p[0], p[1] ); for( i = M; --i; ++p ) *p = twist( p[MmN], p[0], p[1] ); *p = twist( p[MmN], p[0], state[0] ); left = N, pNext = state; } uint32_t MTRand::hash( time_t t, clock_t c ) { // Get a uint32 from t and c // Better than uint32(x) in case x is floating point in [0,1] // Based on code by Lawrence Kirby (fred@genesis.demon.co.uk) static uint32_t differ = 0; // guarantee time-based seeds will change uint32_t h1 = 0; unsigned char *p = (unsigned char *) &t; for( size_t i = 0; i < sizeof(t); ++i ) { h1 *= UCHAR_MAX + 2U; h1 += p[i]; } uint32_t h2 = 0; p = (unsigned char *) &c; for( size_t j = 0; j < sizeof(c); ++j ) { h2 *= UCHAR_MAX + 2U; h2 += p[j]; } return ( h1 + differ++ ) ^ h2; } void MTRand::shuffle(int size, int *vector) { for (int i=0; i < size; i++) vector[i] = i; for (int i = size-1; i > 0; i--) { int j = randInt(i); int swap = vector[i]; vector[i] = vector[j]; vector[j] = swap; } } void MTRand::save( uint32_t* saveArray ) const { register uint32_t *sa = saveArray; register const uint32_t *s = state; register int i = N; for( ; i--; *sa++ = *s++ ) {} *sa = left; } void MTRand::load( uint32_t *const loadArray ) { register uint32_t *s = state; register uint32_t *la = loadArray; register int i = N; for( ; i--; *s++ = *la++ ) {} left = *la; pNext = &state[N-left]; } char *MTRand::toLuaString() const { uint32_t randState[ SAVE ]; save( randState ); // buffer_list buffer; buffer.printf("random():fromTable{"); for (unsigned int i=0; i #include #include #include #include #include "referenced.h" class MTRand : public Referenced { // Data public: static const unsigned int N = 624; // length of state vector static const unsigned int SAVE = N+1; // length of array for save() protected: enum { M = 397 }; // period parameter uint32_t state[N]; // internal state uint32_t *pNext; // next value to get from state int left; // number of values left before reload needed //Methods public: MTRand( const uint32_t& oneSeed ); // initialize with a simple uint32 MTRand( uint32_t *const bigSeed, uint32_t const seedLength = N ); // or an array MTRand(); // auto-initialize with /dev/urandom or time() and clock() // two new methods MTRand& operator=(const MTRand&); MTRand(const MTRand& r); // Do NOT use for CRYPTOGRAPHY without securely hashing several returned // values together, otherwise the generator state can be learned after // reading 624 consecutive values. // Access to 32-bit random numbers double rand(); // real number in [0,1] double rand( const double& n ); // real number in [0,n] double randExc(); // real number in [0,1) double randExc( const double& n ); // real number in [0,n) double randDblExc(); // real number in (0,1) double randDblExc( const double& n ); // real number in (0,n) uint32_t randInt(); // integer in [0,2^32-1] uint32_t randInt( const uint32_t& n ); // integer in [0,n] for n < 2^32 double operator()() { return rand(); } // same as rand() // Access to 53-bit random numbers (capacity of IEEE double precision) double rand53(); // real number in [0,1) // Access to nonuniform random number distributions double randNorm( const double& mean = 0.0, const double& variance = 0.0 ); // Re-seeding functions with same behavior as initializers void seed( const uint32_t oneSeed ); void seed( uint32_t *const bigSeed, const uint32_t seedLength = N ); void seed(); // Saving and loading generator state void save( uint32_t* saveArray ) const; // to array of size SAVE void load( uint32_t *const loadArray ); // from such array char *toLuaString() const; // friend std::ostream& operator<<( std::ostream& os, const MTRand& mtrand ); // friend std::istream& operator>>( std::istream& is, MTRand& mtrand ); // void shuffle(int size, int *vector); protected: void initialize( const uint32_t oneSeed ); void reload(); uint32_t hiBit( const uint32_t& u ) const { return u & 0x80000000UL; } uint32_t loBit( const uint32_t& u ) const { return u & 0x00000001UL; } uint32_t loBits( const uint32_t& u ) const { return u & 0x7fffffffUL; } uint32_t mixBits( const uint32_t& u, const uint32_t& v ) const { return hiBit(u) | loBits(v); } uint32_t twist( const uint32_t& m, const uint32_t& s0, const uint32_t& s1 ) const { return m ^ (mixBits(s0,s1)>>1) ^ (-loBit(s1) & 0x9908b0dfUL); } static uint32_t hash( time_t t, clock_t c ); }; #endif // MERSENNETWISTER_H // Change log: // // v0.1 - First release on 15 May 2000 // - Based on code by Makoto Matsumoto, Takuji Nishimura, and Shawn Cokus // - Translated from C to C++ // - Made completely ANSI compliant // - Designed convenient interface for initialization, seeding, and // obtaining numbers in default or user-defined ranges // - Added automatic seeding from /dev/urandom or time() and clock() // - Provided functions for saving and loading generator state // // v0.2 - Fixed bug which reloaded generator one step too late // // v0.3 - Switched to clearer, faster reload() code from Matthew Bellew // // v0.4 - Removed trailing newline in saved generator format to be consistent // with output format of built-in types // // v0.5 - Improved portability by replacing static const int's with enum's and // clarifying return values in seed(); suggested by Eric Heimburg // - Removed MAXINT constant; use 0xffffffffUL instead // // v0.6 - Eliminated seed overflow when uint32 is larger than 32 bits // - Changed integer [0,n] generator to give better uniformity // // v0.7 - Fixed operator precedence ambiguity in reload() // - Added access for real numbers in (0,1) and (0,n) // // v0.8 - Included time.h header to properly support time_t and clock_t // // v1.0 - Revised seeding to match 26 Jan 2002 update of Nishimura and Matsumoto // - Allowed for seeding with arrays of any length // - Added access for real numbers in [0,1) with 53-bit resolution // - Added access for real numbers from normal (Gaussian) distributions // - Increased overall speed by optimizing twist() // - Doubled speed of integer [0,n] generation // - Fixed out-of-range number generation on 64-bit machines // - Improved portability by substituting literal constants for long enum's // - Changed license from GNU LGPL to BSD april-ann-0.3.1/packages/basics/random/c_src/dice.cc000066400000000000000000000026541234204160600222070ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "dice.h" dice::dice(int outcom, double *prob) { outcomes = outcom; threshold = new double[outcomes]; double sum=0.0; for (int i=0; irand(); //real number in [0,1] int left=0,right=outcomes-1; while (left < right) { int middle = (left+right)/2; if (threshold[middle] <= key) left = middle+1; else right = middle; } return left; }; april-ann-0.3.1/packages/basics/random/c_src/dice.h000066400000000000000000000021531234204160600220430ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef DICE_H #define DICE_H #include "referenced.h" #include "MersenneTwister.h" class dice : public Referenced { int outcomes; double *threshold; public: dice(int outcom, double *prob); ~dice(); int get_outcomes() const { return outcomes; } int thrown(MTRand *generator); }; #endif // DICE_H april-ann-0.3.1/packages/basics/random/lua_src/000077500000000000000000000000001234204160600213245ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/random/lua_src/random.lua000066400000000000000000000114261234204160600233130ustar00rootroot00000000000000--------------------------- -- BINDING DOCUMENTATION -- --------------------------- april_set_doc("random", { class = "class", summary = "Pseudo-random numbers generator", }) april_set_doc("random.__call", { class = "method", summary = "Constructor", description ={ "Constructor of random objects", }, params = { "A number with the initial seed", }, outputs = { "A random instantiated object" }, }) april_set_doc("random.__call", { class = "method", summary = "Constructor", description ={ "Constructor of random objects", }, params = { "A table with numbers for initial seeds", }, outputs = { "A random instantiated object" }, }) april_set_doc("random.__call", { class = "method", summary = "Constructor", description ={ "Constructor of random objects, the initial seed", "is taken from current time.", }, outputs = { "A random instantiated object" }, }) april_set_doc("random.rand", { class = "method", summary = "Returns a double precision random number, interval [0,n]", params = { "The n number for the interval [optional]. By default is n=1.", }, outputs = { "A double precision random number" }, }) april_set_doc("random.randExc", { class = "method", summary = "Returns a double precision random number, interval [0,n)", params = { "The n number for the interval [optional]. By default is n=1.", }, outputs = { "A double precision random number" }, }) april_set_doc("random.randDblExc", { class = "method", summary = "Returns a double precision random number, interval (0,n)", params = { "The n number for the interval [optional]. By default is n=1.", }, outputs = { "A double precision random number" }, }) april_set_doc("random.randInt", { class = "method", summary = "Returns an integer random number, interval [0,2^32-1]", outputs = { "An integer random number" }, }) april_set_doc("random.randInt", { class = "method", summary = "Returns an integer random number, interval [0,x]", params = { "The x number for the interval.", }, outputs = { "An integer random number" }, }) april_set_doc("random.randInt", { class = "method", summary = "Returns an integer random number, interval [x,y]", params = { "The x number for the interval.", "The y number for the interval.", }, outputs = { "An integer random number" }, }) april_set_doc("random.shuffle", { class = "method", summary = "Returns a permutation of an array", params = { "A number with the size of the sequence", }, outputs = { "A table with the permutation" }, }) april_set_doc("random.shuffle", { class = "method", summary = "Returns a random sort of an array", params = { "A table with the array for reordering", }, outputs = { "A table with the given array randomly reordered" }, }) april_set_doc("random.choose", { class = "method", summary = "Returns a random position of a given array", params = { "A table with the array", }, outputs = { "A number which is a random position in the given array" }, }) april_set_doc("random.randNorm", { class = "method", summary = "Returns a Gaussian random number", params = { "Mean of the Gaussian", "Variance of the Gaussian", }, outputs = { "A Gaussian random number" }, }) april_set_doc("random.seed", { class = "method", summary = "Sets the current seed.", params = { "A number [optional]. By default is taken from current time.", }, }) april_set_doc("random.seed", { class = "method", summary = "Sets the current seed.", params = { "A table with an array of seeds.", }, }) april_set_doc("random.clone", { class = "method", summary = "Returns a deep-copy of the caller object", outputs = { "An instance of random." }, }) april_set_doc("random.toTable", { class = "method", summary = "Serializes the random state to a table.", outputs = { "A table with the random state." }, }) april_set_doc("random.fromTable", { class = "method", summary = "Loads the random state from a table.", params = { "A table with the random state" }, }) ------------------------------------------------------------------------------- april_set_doc("random.dice", { class = "class", summary = "A class for random dice parametrization", }) april_set_doc("random.dice.__call", { class = "method", summary = "Constructor", params = { "A table with the positive score of each side of the dice", }, }) april_set_doc("random.dice.outcomes", { class = "method", summary = "Returns the number of sides of the dice", outputs = { "The number of sides" }, }) april_set_doc("random.dice.thorwn", { class = "method", summary = "Throws the dice and returns the outcome", params = { "A random instance", }, outputs = { "The side of the dice (the outcome)" }, }) april-ann-0.3.1/packages/basics/random/package.lua000066400000000000000000000020421234204160600217700ustar00rootroot00000000000000 package{ name = "random", version = "1.0", depends = { "util" }, keywords = { "random" }, description = "Mersenne Twister random number generator", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_mtrand.lua.cc", dest_dir = "include" } }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", dest_dir = "build", --debug = "yes", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_mtrand.lua.cc", dest_dir = "build", }, }, target{ name = "document", document_src{}, document_bind{}, }, } april-ann-0.3.1/packages/basics/random/test/000077500000000000000000000000001234204160600206535ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/random/test/test_dice.lua000066400000000000000000000007051234204160600233230ustar00rootroot00000000000000tabladice = {0.4,0.2,0.1,0.1,0.1,0.1} dado = random.dice(tabladice) aleat = random() histogram = {} for i=1,dado:outcomes() do table.insert(histogram,0) end veces = 10000 for i=1,veces do resul = dado:thrown(aleat) --printf("%d,",resul) histogram[resul] = histogram[resul]+1 end print"---------------------------------------" for i=1,dado:outcomes() do printf("Histograma[%d] = %.3f should be %.3f\n", i,histogram[i]/veces,tabladice[i]) end april-ann-0.3.1/packages/basics/random/test/test_random.lua000066400000000000000000000014711234204160600237000ustar00rootroot00000000000000print("Empieza el programa") a = random() b = a:clone() for i=1,10 do print("randInt 1 a 10",a:randInt(1,10)) end print("-----------------------------") print("Debe salir la misma secuencia:") for i=1,10 do print("randInt 1 a 10",b:randInt(1,10)) end numpermutaciones = 10 tallapermutacion = 10 printf("Vamos a ver %d permutaciones de %d elementos\n", numpermutaciones, tallapermutacion) for i=1,numpermutaciones do print(string.join(a:shuffle(tallapermutacion),",")) end print("-----------------------------") print("VAMOS A PERMUTAR UNA TABLA") tabla = {"uno", "dos", "tres", "cuatro", "cinco", "seis", "siete", "ocho" } print("Tabla original : "..table.concat(tabla,",")) for i=1,numpermutaciones do print("Tabla permutada: "..table.concat(a:shuffle(tabla),",")) end print("Termina el programa") april-ann-0.3.1/packages/basics/stats/000077500000000000000000000000001234204160600175525ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/stats/lua_src/000077500000000000000000000000001234204160600212025ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/stats/lua_src/pca.lua000066400000000000000000000131141234204160600224500ustar00rootroot00000000000000stats = get_table_from_dotted_string("stats", true) local function normalize(m,norm) local norm = norm or m:norm2() m:scal(1/norm) end local function re_orhtonormalize(submatrix,colmatrix,aux) aux:gemv{ alpha=1.0, A=submatrix, X=colmatrix, beta=0.0, trans_A=true } colmatrix:gemv{ alpha=-1.0, A=submatrix, X=aux, beta=1.0, trans_A=false } end ------------------------------------------------------------------------------- -- WARNING IN PLACE OPERATION function stats.mean_centered_by_pattern(X) local dim = X:dim() assert(#dim == 2, "Expected a bi-dimensional matrix") local M,N = table.unpack(dim) -- U is the mean over all rows local U,auxX = X:sum(2):rewrap(M):scal(1/N) -- X is centered subtracting by -U for i=1,X:dim(2) do auxX=X:select(2,i,auxX):axpy(-1, U) end return X,U end ------------------------------------------------------------------------------- -- NOT IN-PLACE function stats.pca_whitening(X,U,S,epsilon) local epsilon = epsilon or 0.0 local result = matrix[X:get_major_order()](X:dim(1), S:dim(1)) result:gemm{ A=X, B=U, trans_B=false, beta=0, alpha=1} for v,i in S:iterate() do result:select(2,i):scal( 1/math.sqrt(v + epsilon) ) end return result end -- WARNING IN PLACE OPERATION function stats.zca_whitening(X,U,S,epsilon) local aux = stats.pca_whitening(X,U,S,epsilon) X:gemm{ A=aux, B=U, trans_B=true, beta=0, alpha=1 } return X end -- show PCA threshold function stats.pca_threshold(S,mass) local mass = mass or 0.99 local acc = 0 local sum = S:sum() local acc_th,th,vth = 0,1 for v,i in S:iterate() do acc=acc + v if acc/sum < mass then vth,acc_th,th=v,acc,i end end assert(acc_th > 0, "The probability mass needs to be larger") return th,vth,acc_th/sum end ------------------------------------------------------------------------------- -- PCA algorithm based on covariance matrix and SVD decomposition the matrix Xc -- must be zero mean centerd for each pattern. Patterns are ordered by rows. function stats.pca(Xc) local dim = Xc:dim() assert(#dim == 2, "Expected a bi-dimensional matrix") local aux = Xc:sum(2):scal(1/Xc:dim(2)):rewrap(Xc:dim(1)) local M,N = table.unpack(dim) local sigma = matrix.col_major(N,N) sigma:gemm{ A=Xc, B=Xc, trans_A=true, trans_B=false, alpha=1/M, beta=0, } local U,S,VT = sigma:svd() return U,S,VT end ------------------------------------------------------------------------------- april_set_doc("stats.iterative_pca", { class = "function", summary = "Computes PCA using GS-PCA (iterative PCA algorithm)", params = { X = "A matrix of MxN, M are numPatterns and N patternSize", K = "The number of components that you want, K <= N", max_iter = "Maximum number of iterations [optional], 10000 by default", epsilon = "A number with the convergence criterion [optional], by default 1e-07", }, outputs = { "The T=V*S=X*U scores matrix, size MxK", "The P loads matrix, or U right eigenvectors matrix, size NxK", "The R residuals matrix, size MxN", "The V left eigenvectors matrix, size MxN", "The S singular values vector, size K", }, }) -- EXTRACTED FROM: -- Parallel GPU Implementation of Iterative PCA Algorithms, M. Andrecut -- -- http://arxiv.org/pdf/0811.1081.pdf -- -- GS-PCA algorithm -- -- input: X is a MxN matrix, M number of patterns, N pattern size -- input: K is the number of components, K <= N -- input: max_iter is the maximum number of iterations -- input: epsilon is the convergence criterion -- output: T is a MxK scores matrix -- output: P is a NxK loads matrix -- output: R is a MxN residuals matrix -- -- PCA model: X = TLP’ + R function stats.iterative_pca(params) local params = get_table_fields( { X = { isa_match=matrix, mandatory=true }, K = { type_match="number", mandatory=true }, max_iter = { type_match="number", mandatory=true, default=10000 }, epsilon = { type_match="number", mandatory=true, default=1e-07 }, }, params) local X,K,max_iter,epsilon = params.X,params.K,params.max_iter,params.epsilon local M,N = table.unpack(X:dim()) assert(K<=N, "K <= N failed") assert(#X:dim() == 2, "Needs a bi-dimensional matrix") if M < N then print("# Warning, M < N, probably matrix need to be transposed") end local major_order = X:get_major_order() local T = matrix[major_order](M,K):zeros() -- left eigenvectors local P = matrix[major_order](N,K):zeros() -- right eigenvectors local L = matrix[major_order](K):zeros() -- eigenvalues local R = X:clone() local U = R:sum(2):scal(1/R:dim(2)):rewrap(R:dim(1)) assert( math.abs(U:sum() / U:size()) < 1e-03, "A zero mean (at each pattern) data matrix is needed") -- GS-PCA local Tcol, Rcol, Pcol, Uslice, Pslice, Tslice, Lk for k=1,K do Tcol = T:select(2,k,Tcol) Rcol = R:select(2,k,Rcol) Pcol = P:select(2,k,Pcol) -- if k > 1 then Uslice = U:slice({1},{k-1}) Pslice = P:slice({1,1},{N,k-1}) Tslice = T:slice({1,1},{M,k-1}) end -- Tcol:copy(Rcol) local a = 0.0 for it=1,max_iter do Pcol:gemv{ alpha=1.0, A=R, X=Tcol, beta=0.0, trans_A=true } if k>1 then re_orhtonormalize(Pslice, Pcol, Uslice) end normalize(Pcol) Tcol:gemv{ alpha=1.0, A=R, X=Pcol, beta=0.0, trans_A=false } if k>1 then re_orhtonormalize(Tslice, Tcol, Uslice) end Lk = Tcol:norm2() normalize(Tcol, Lk) if math.abs(a - Lk) < epsilon*Lk then break end a = Lk end L:set(k, Lk) R:ger{ alpha=-Lk, X=Tcol, Y=Pcol } end local V = T:clone() for k=1,K do T:select(2,k):scal( L:get(k) ) end return T,P,R,V,L end april-ann-0.3.1/packages/basics/stats/lua_src/statistics.lua000066400000000000000000000557101234204160600241070ustar00rootroot00000000000000local mean_var_methods, mean_var_class_metatable = class("stats.mean_var") april_set_doc("stats.mean_var", { class = "class", summary = "Class to compute mean and variance", description ={ "This class is designed to compute mean and variance", "by adding a sequence of data values (or tables)", }, }) ----------------------------------------------------------------------------- april_set_doc("stats.mean_var.__call", { class = "method", summary = "Constructor", description ={ "Constructor of a mean_var object", }, params = { "A number [optional]. If given, the assumed_mean approach", "will be followed.", }, outputs = { "A mean_var object" }, }) function mean_var_class_metatable:__call() local obj = { old_m = 0, old_s = 0, new_m = 0, new_s = 0, N = 0, } return class_instance(obj, self, true) end ----------------------------------------------------------------------------- april_set_doc("stats.mean_var.clear", { class = "method", summary = "Re-initializes the object" }) function mean_var_methods:clear() self.old_m = 0 self.old_s = 0 self.new_m = 0 self.new_s = 0 self.N = 0 return self end ----------------------------------------------------------------------------- april_set_doc("stats.mean_var.add", { class = "method", summary = "Adds one value", params = { "A number", }, outputs = { "The caller mean_var object (itself)" }, }) april_set_doc("stats.mean_var.add", { class = "method", summary = "Adds a sequence of values", params = { "A Lua table (as array of numbers)", }, outputs = { "The caller mean_var object (itself)" }, }) april_set_doc("stats.mean_var.add", { class = "method", summary = "Adds a sequence of values from an iterator function", params = { "An iterator function", }, outputs = { "The caller mean_var object (itself)" }, }) function mean_var_methods:add(...) local arg = { ... } local v = arg[1] if type(v) == "table" then return self:add(ipairs(v)) elseif type(v) == "function" then local f,s,v = table.unpack(arg) local tmp = table.pack(f(s,v)) while tmp[1] ~= nil do v = tmp[1] if #tmp > 1 then table.remove(tmp,1) end for _,aux in ipairs(tmp) do self:add(aux) end tmp = table.pack(f(s,v)) end elseif type(v) == "number" then self.N = self.N + 1 -- see Knuth TAOCP vol 2, 3rd edition, page 232 if self.N == 1 then self.old_m,self.new_m = v,v self.old_s = 0.0 else local old_diff = (v - self.old_m) self.new_m = self.old_m + old_diff/self.N self.new_s = self.old_s + old_diff*(v - self.new_m) -- setup for next iteration self.old_m = self.new_m self.old_s = self.new_s end else error("Incorrect type="..type(v)..". Expected number, table or function") end return self end ----------------------------------------------------------------------------- april_set_doc("stats.mean_var.size", { class = "method", summary = "Return the number of elements added", outputs = { "The number of elements added" }, }) function mean_var_methods:size() return self.N end ----------------------------------------------------------------------------- april_set_doc("stats.mean_var.compute", { class = "method", summary = "Computes mean and variance of given values", outputs = { "A number, the mean of the data", "A number, the variance of the data", }, }) function mean_var_methods:compute() return self.new_m,self.new_s/(self.N-1) end -------------------- -- Confusion Matrix -- ----------------- local confus_matrix_methods, confus_matrix_class_metatable = class("stats.confusion_matrix") april_set_doc("stats.confusion_matrix", { class = "class", summary = "class for computing confusion matrix and classification metrics", description ={ "This class is designed to store a confusion matrix and compute main metrics for classification stats", }, }) april_set_doc("stats.confusion_matrix.__call", { class ="method", summary = "Constructor of confusion matrix.", description ={ "This class is designed to store a confusion matrix and compute main metrics for classification stats", }, params = { "A number of classes [mandatory].", "A table of size num_classes, with the elements on the set.", outputs = {"A confusion_matrix object"} } }) function confus_matrix_class_metatable:__call(num_classes, class_dict) local confusion = {} for i = 1, num_classes do local t = {} for j = 1, num_classes do table.insert(t, 0) end table.insert(confusion, t) end if (class_dict) then --assert(#class_dict == num_classes, "The map table doesn't have the exact size") map_dict = class_dict --for i, v in ipairs(map_table) do -- map_dict[v] = i --end end local obj = { num_classes = num_classes, confusion = confusion, hits = 0, misses = 0, samples = 0, -- FIXME: IS NOT POSSIBLE USE MAP DICT AS NIL map_dict = map_dict or false } return class_instance(obj, self, true) end april_set_doc("stats.confusion_matrix.clone", { class ="method", summary = "Clone onstructor of confusion matrix.", description ={ "This class is designed to store a confusion matrix and compute main metrics for classification stats", }, params = { } }) function confus_matrix_methods:clone() local obj = table.deep_copy(self) return class_instance(obj, stats.confusion_matrix, true) end april_set_doc("stats.confusion_matrix.reset", { class = "method", summary = "Reset to 0 all the counters", }) function confus_matrix_methods:reset() for i = 1, self.num_classes do local t = {} for j = 1, self.num_classes do self.confusion[i][j] = 0 end end self.hits = 0 self.misses = 0 self.samples = 0 end function confus_matrix_methods:checkType(clase) return type(clase) == "number" and clase >= 1 and clase <= self.num_classes or false end --------------------------------------------- function confus_matrix_methods:addSample(pred, gt) if self.map_dict then pred = map_dict[pred] gt = map_dict[gt] end if not self:checkType(pred) or not self:checkType(gt) then printf("Error %f %f, %d\n", pred, gt, self.samples) return --error("The class is not correct") end if gt == pred then self.hits = self.hits + 1 else self.misses = self.misses + 1 end self.samples = self.samples + 1 self.confusion[gt][pred] = self.confusion[gt][pred] + 1 end ------------------------------------------------ april_set_doc("stats.confusion_matrix.printConfusionRaw", { class = "method", summary = "Print the counters for each class", }) function confus_matrix_methods:printConfusionRaw() for i,v in ipairs(self.confusion) do print(table.concat(v, "\t")) end end april_set_doc("stats.confusion_matrix.printConfusion", { class = "method", summary = "Print the counters for each class and PR and RC", params = { "A num_classes string table [optional] with the tags of each class",} }) function confus_matrix_methods:printConfusion(tags) local total_pred = {} printf("\t|\t Predicted ") for i = 1, self.num_classes do printf("\t\t") end printf("|\n") printf("______\t|") for i = 1, self.num_classes do printf("\t___\t") end printf("\t___\t\t|\n") for i,v in ipairs(self.confusion) do local tag = i if tags then tag = tags[i] end printf("%s\t|\t", tag) local recall, hits, total = self:getRecall(i) printf("%s\t|\t %d/%d %0.4f\t|\n", table.concat(v, "\t|\t"), hits, total, recall) end printf("______\t|") for i = 1, self.num_classes do printf("\t___\t") end printf("\t___\t|\n") printf("\t\t|") for i = 1, self.num_classes do printf("\t%0.4f\t|", self:getPrecision(i)) end local acc, hits, total = self:getAccuracy() printf("\t%d/%d %0.4f\t|\n", hits, total, acc) end function confus_matrix_methods:printInf() printf("Samples %d, hits = %d, misses = %d (%0.4f)\n", self.samples, self.hits, self.misses, self.misses/self.total) for i = 1, self.num_classes do print("Predicted %d", i) local total = 0 for j = 1, self.num_classes do total = total + self.confusion[i][j] end for j = 1, self.num_classes do printf(" - class %d %d/%d (%0.4f)", j, self.confusion[i][j], total, self.confusion[i][j]/total) end print() end end -------------------------------------------- -- Datasets and Tables Iterators -------------------------------------------- function stats.confusion_matrix.twoTablesIterator(table_pred, table_gt) local i = 0 local n = #table_pred return function() i = i+1 if i <= n then return table_pred[i],table_gt[i] end end end ---------------------------------------------------------------- function stats.confusion_matrix.oneTableIterator(typeTable) local i = 0 local n = #typeTable return function() i = i+1 if i <= n then return typeTable[i][1], typeTable[i][2] end end end -------------------------------------------------------------- function stats.confusion_matrix.oneDatasetIterator(typeDataset) local i = 0 local n = typeDataset:numPatterns() return function() i = i+1 if i <= n then return typeDataset:getPattern(i)[1], typeDataset:getPattern(i)[2] end end end function stats.confusion_matrix.twoDatasetsIterator(predDs, gtDs) local i = 0 assert(predDs:numPatterns() == gtDs:numPatterns(), "Datasets doesn't have the same size") local n = predDs:numPatterns() return function() i = i+1 if i <= n then return predDs:getPattern(i)[1], gtDs:getPattern(i)[1] end end end --------------------------------------------------------------------------------------------------------- april_set_doc("stats.confusion_matrix.addData", { class = "method", summary = "Add the info of Predicted and Ground Truth set", description = { "This class recieves two tables with the predicted class and the", "ground truth of that class.", "Also it can recieve a iterator function that returns two elements:", "predicted sample and groundtruth sample" }, params = { "This parameter can be a table of the predicted tags or an iterator function", "This parameter is used if the first parameter is the Predicted table, otherwise it should be nil"}, }) function confus_matrix_methods:addData(param1, param2) local iterator if( type(param1) == 'function') then iterator = param1 assert(param2 == nil) elseif (type(param1) == 'dataset') then iterator = stats.confusion_matrix.twoDatasetsIterator(param1, param2) else iterator = stats.confusion_matrix.twoTablesIterator(param1, param2) assert(type(param1) == "table" and type(param2) == "table", "The type of the params is not correct") assert(#param1, #param2, "The tables does not have the same dimension") end for pred, gt in iterator do self:addSample(pred, gt) end end --------------------------------------------------------------- april_set_doc("stats.confusion_matrix.getError", { class = "method", summary = "Return the global classification error (misses/total)", outputs = { "The global classification error." }, }) function confus_matrix_methods:getError() return self.misses/self.samples, self.misses, self.samples end april_set_doc("stats.confusion_matrix.getWeightedError", { class = "method", summary = "Return the classification error weighted by given values", params = {"A table of size weight"}, outputs = { "The global classification error." }, }) function confus_matrix_methods:getWeightedError(weights) local totalError = 0.0 for i,w in ipairs(weights) do totalError = totalError+(1-w*self:getRecall(i)) end return totalError end april_set_doc("stats.confusion_matrix.getAvgError", { class = "method", summary = "Return the average error.", outputs = { "The average classification error." }, }) function confus_matrix_methods:getAvgError(weights) local totalError = 0.0 local w = 1.0/self.num_classes local i for i = 1, self.num_classes do totalError = totalError+(1-self:getRecall(i)) end return totalError*w end april_set_doc("stats.confusion_matrix.getAccuracy", { class = "method", summary = "Return the accuracy (hits/total)", outputs = { "The global accuracy." }, }) function confus_matrix_methods:getAccuracy() return self.hits/self.samples, self.hits, self.samples end -------------------------------------------------------------- function confus_matrix_methods:getConfusionTables() return self.confusion end ------------------------------------------------------------ -- april_set_doc("stats.confusion_matrix.getPrecision", { class = "method", summary = "Return the accuracy (hits/total)", params = {"The index of the class for computing the Precision"}, outputs = { "The selected class Precision." }, }) function confus_matrix_methods:getPrecision(tipo) local tp = 0 local den = 0 -- Moving by columns for i=1, self.num_classes do v = self.confusion[i][tipo] if i == tipo then tp = v end den = den + v end if den == 0 then return 0, tp, den end return tp/den, tp, den end april_set_doc("stats.confusion_matrix.getRecall", { class = "method", summary = "Return the accuracy (hits/total)", params = {"The index of the class for computing the Recall"}, outputs = { "The selected class Recall." }, }) function confus_matrix_methods:getRecall(tipo) local tp = 0 local den = 0 -- Moving by columns for j=1, self.num_classes do v = self.confusion[tipo][j] if j == tipo then tp = v end den = den + v end if den == 0 then return 0, tp, den end return tp/den, tp, den end april_set_doc("stats.confusion_matrix.getFMeasure", { class = "method", summary = "Return the accuracy (hits/total)", params = {"The index of the class for computing the Precision"}, outputs = { "The selected class Precision." }, }) function confus_matrix_methods:getFMeasure(tipo, beta) local nBeta = beta or 1 nBeta = nBeta*nBeta local PR = self:getRecall(tipo) local RC = self:getPrecision(tipo) return (1+nBeta)*(PR*RC)/(nBeta*PR+RC) end ------------------------------------------------------- april_set_doc("stats.confusion_matrix.clearGTClass", { class = "method", summary = "Clear the counters of one class", description= "This function is useful when you don't want to count determinated class.", params = {"The index of the class to be clear"}, }) function confus_matrix_methods:clearGTClass(tipo) local n_samples = 0 local hits = 0 local misses = 0 -- Moving by columns for i=1, self.num_classes do n_samples = n_samples + self.confusion[tipo][i] if i == tipo then hits = self.confusion[tipo][i] else misses = misses + self.confusion[tipo][i] end self.confusion[tipo][i] = 0 end self.samples = self.samples - n_samples self.hits = self.hits - hits self.misses = self.misses - misses end april_set_doc("stats.confusion_matrix.clearClass", { class = "method", summary = "Clear the counters of one pair classes", description= "This function is useful when you don't want to count determinated pair class.", params = {"The index of the Ground Truth class.","The index of the predicted class"}, }) function confus_matrix_methods:clearClass(gt, pred) local samples = self.confusion[gt][pred] local n_samples = 0 if gt == pred then self.hits = self.hits - samples else self.misses = self.misses - samples end self.confusion[gt][pred] = 0 self.samples = self.samples - samples end april_set_doc("stats.confusion_matrix.clearPredClass", { class = "method", summary = "Clear the counters of one class", description= "This function is useful when you don't want to count determinated class.", params = {"The index of the class to be clear"}, }) function confus_matrix_methods:clearPredClass(tipo) local n_samples = 0 -- Moving by Rows for i=1, self.num_classes do n_samples = n_samples + self.confusion[i][tipo] self.confusion[i][tipo] = 0 end self.samples = self.samples - n_samples end ----------------------------------------------------------------------------- ----------------------------------------------------------------------------- ----------------------------------------------------------------------------- april_set_doc("stats.boot", { class = "function", summary = "Produces a bootstrap resampling table", description= { "This function is useful to compute confidence intervals", "by using bootstrapping technique. The function receives", "a data table or matrix, a function which returns statistics", "of a sample given an iterator.", "A table with the computation of the post-process function", "for every repetition will be returned.", }, params = { data = "A table with the data", R = "Number of repetitions, recommended minimum of 1000", statistic = { "A function witch receives an iterator and computes", "statistics (k>=1 statistics) over all the iterator results.", "The iterator produces a key which is a row in data", "and a value which is the corresponding row.", }, verbose = "True or false", ncores = "Number of cores [optional], by default it is 1", seed = "A random seed [optional], by default it is os.time()", }, outputs = { "A table with the k statistics for every repetition." }, }) stats.boot = {} -- self is needed because of __call metamethod, but it will be ignored local function boot(self,params) local params = get_table_fields( { data = { mandatory = true }, R = { type_match = "number", mandatory = true }, statistic = { type_match = "function", mandatory = true }, verbose = { mandatory = false }, ncores = { mandatory = false, type_match = "number", default = 1 }, seed = { mandatory = false, type_match = "number", default = os.time() }, }, params) local data = params.data local repetitions = params.R local statistic = params.statistic local ncores = params.ncores local seed = params.seed local get_row,N -- prepare N and get_row function depending in the type of data parameter if type(data) == "table" then N = #data get_row = function(i) return data[i] end elseif isa(data, "matrix") or isa(data, "matrixInt32") or isa(data, "matrixComplex") then N = data:dim(1) local row get_row = function(i) row=data:select(1,i,row) return row end else errro("Incorrect type, needs a table, a matrix, matrixInt32 or matrixComplex") end -- returns an iterator of random samples using rnd random object local make_iterator = function(rnd) local p=0 return function() if p 0 and confidence < 1, "Incorrect confidence value, it must be in range (0,1)") local N = #data assert(index > 0 and index <= N) local med_conf_size = N*(1.0 - confidence)*0.5 local a_pos = math.max(1, math.round(med_conf_size)) local b_pos = math.min(N, math.round(N - med_conf_size)) local aux = iterator(ipairs(data)):select(2):field(index):table() table.sort(aux) return aux[a_pos],aux[b_pos] end ----------------------------------------------------------------------------- ----------------------------------------------------------------------------- ----------------------------------------------------------------------------- local pearson_methods, pearson_class_metatable = class("stats.correlation.pearson") function pearson_class_metatable:__call() local obj = { mean_var_x = stats.mean_var(), mean_var_y = stats.mean_var(), xy_sum = 0 } return class_instance(obj, self) end function pearson_methods:clear() self.mean_var_x:clear() self.mean_var_y:clear() self.xy_sum = 0 return self end function pearson_methods:add(x,y) local x,y = x,y if not y then if type(x) == "table" then x,y = table.unpack(x) end end assert(x and y, "Needs two values or an array table with two components") self.mean_var_x:add(x) self.mean_var_y:add(y) self.xy_sum = self.xy_sum + x*y return self end function pearson_methods:compute() local N = self.mean_var_x:size() local mu_x,s_x = self.mean_var_x:compute() local mu_y,s_y = self.mean_var_y:compute() local rxy = ( self.xy_sum - N*mu_x*mu_y ) / ( (N-1)*math.sqrt(s_x*s_y) ) return rxy end april-ann-0.3.1/packages/basics/stats/misc/000077500000000000000000000000001234204160600205055ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/stats/misc/gs-pca.cc000066400000000000000000000144321234204160600221720ustar00rootroot00000000000000// g++ -g -o gs-pca gs-pca.cc `pkg-config --libs gsl` -fpermissive `pkg-config --cflags gsl` // // C/C++ example for the CBLAS (GNU Scientific Library) // implementation of PCA-GS algorithm // // M. Andrecut (c) 2008 // includes, system #include #include // includes, GSL & CBLAS #include #include #include #include // declarations int gs_pca_gsl(int, int, int, gsl_matrix *, gsl_matrix *, gsl_matrix *); int print_results(int, int, int, gsl_matrix *, gsl_matrix *, gsl_matrix *, gsl_matrix *); // main int main(int argc, char** argv) { // PCA model: X = TP’ + R // input: X, MxN matrix (data) // input: M = number of rows in X // input: N = number of columns in X // input: K = number of components (K<=N) // output: T, MxK scores matrix // output: P, NxK loads matrix // output: R, MxN residual matrix int M = 1000, m; int N = M/2, n; int K = 10; printf("\nProblem dimensions: MxN=%dx%d, K=%d", M, N, K); // initialize srand and clock srand(time(NULL)); clock_t start=clock(); double htime; // initiallize some random test data X gsl_matrix *X = gsl_matrix_alloc (M, N); for(m=0; m0) { gsl_blas_dgemv(CblasTrans, 1.0, &gsl_matrix_submatrix (P, 0, 0, N, k).matrix, &gsl_matrix_column(P, k).vector, 0.0, &gsl_vector_subvector (U, 0, k).vector); gsl_vector *aux = &gsl_vector_subvector(U,0,k).vector; gsl_blas_dgemv(CblasNoTrans, -1.0, &gsl_matrix_submatrix (P, 0, 0, N, k).matrix, &gsl_vector_subvector (U, 0, k).vector, 1.0, &gsl_matrix_column(P, k).vector); } gsl_blas_dscal(1.0/gsl_blas_dnrm2(&gsl_matrix_column(P, k).vector), &gsl_matrix_column(P, k).vector); gsl_blas_dgemv(CblasNoTrans, 1.0, R, &gsl_matrix_column(P, k).vector, 0.0, &gsl_matrix_column(T, k).vector); if(k>0) { gsl_blas_dgemv(CblasTrans, 1.0, &gsl_matrix_submatrix (T, 0, 0, M, k).matrix, &gsl_matrix_column(T, k).vector, 0.0, &gsl_vector_subvector (U, 0, k).vector); gsl_blas_dgemv(CblasNoTrans, -1.0, &gsl_matrix_submatrix (T, 0, 0, M, k).matrix, &gsl_vector_subvector (U, 0, k).vector, 1.0, &gsl_matrix_column(T, k).vector); } gsl_vector_set(L, k, gsl_blas_dnrm2(&gsl_matrix_column(T, k).vector)); gsl_blas_dscal(1.0/gsl_vector_get(L, k), &gsl_matrix_column(T, k).vector); if(fabs(a - gsl_vector_get(L, k)) < er*gsl_vector_get(L, k)) break; a = gsl_vector_get(L, k); } gsl_blas_dger (-gsl_vector_get(L, k), &gsl_matrix_column(T, k).vector, &gsl_matrix_column(P, k).vector, R); } for(k=0; k 12) return EXIT_SUCCESS; printf("\nX\n"); for(m=0; mp3X-уjh1KJ,'_~PgO T+ja4k˅5z:EhRD NdA8wW l6n,yc1N7+\ujmm`_A_V|wySJ|}`gZYz$ Iso-6f)UuqJ)b34I hSOPOfZ5pL֯vEQe)c,1f) Q*C3dsHދ177\Wr 9pLԚ֤1{.FT!2QT? VFs}09cRk62`N_bŽ9J&~Љ!fl;/ɘY {A#+L)=0Z~"3WWMM>,6 w/z&%6-(KUwfVֈ#_ط 9?3 z^%:L)dFQĸFl{Rfdq%@\3/s@Oӏo1&dUXSW0a2RgȈO7veHxC[CȈ_a&p=;{n_3CF８K@[a3Q}ثrFxA1~:^o/j?=taS9X p april-ann-0.3.1/packages/basics/stats/test/data/U.gz000066400000000000000000005547601234204160600222310ustar00rootroot00000000000000]fRUl-_SݺyΜa| @K M{F\ ]MJ޵9#ۿO__ok?/_?u/?7_~]?_}yǵcq^q_}دm}mϽ_;~q={yygglۻ8mǾ=u<=ƕʿs}o9w?cl]~>ێg~=f1?O?gn1>>?˧=89m7ۚwR_d3#6~gy+_·;>}}s{:ןmν~̇Ͽ5 6瓝ܮ{==yu#{yK̯8oݮ$=?nﱏkzYe7Oy,6߆;?ǗU5|}{_8qeXpcnGi.[{>t~k0?65Oyzz=s̯=t>7_q{gaQ>sS=͓wX}~[{~~~߼|c~կrn<ˮkp>>:lsݵ泱V|{j>{Qg??fmv/{^Vfs]w;Jtre֯k<{\ 5 2ϚcYǺͯ,ҹUg=_}m7<-)9?J3?1` )2wC綼z_3Vׯy1Og=<~d9cչ~|i]{n"7{Kt\}1ʩG363{xq7>X}w{l>'zn|~ʣ8b~O6㐞[tsI^v3~\sx7=_>93\L\RW ?phښ陧R=ym<:o-|13zn'7v~/;ﷹG;O:x-n[w~"WTylls'>_u[V'oW{8|ӹgɹ]m^Z瘗yQ4*7WJ!}axJyf;p_A=/:6Wǧq擜 h>H{9쬓ux8lﬓNg>S\\H<w?f.ѹ|!978揸4󬘫wi4OCՂW+u _E9<)\qG8kuY SOw~k~;}{kaFNfm{g἗e9ׯ}-|gWsd^s!}{(*:oi{HsϽ}Uu7kk~>;HΚ|2]zj3a?s>Σo~c곦|^*ez}W?J2NЗ_Uu>˧ fͪmPTz6?;kj o?PA>/wUs]s>>o RcؼyN<o8 }Ƹ۴~e\̪e*e,66+J|N\sGͧ\{(+Uk][||ts^)`.^w-ki8wcVgK'j6gy/qZU?Oojyl.,dѬ泘ae/\Vvu:0bf6o0 nS-=Y}Ͽ3O:oV^l[g ̞Q3q䵹)3ڟϥ1we)T{sf.lgq|kgqW=5ddf1vUn/jZ>թ9m5M6ǦIn.W1?vvaUk{p ?o ,4Y/Xľye}0̻mAmMȜw,[\:O<ߒ%ps_|y'u *j]Wris/(`Hc5>wTλ^>Gy϶jnܮ=3ogGW沟ˇ2BY:٬gnูH|4w쳪Y-qax*l^EuYi$r}u~Fu拺4 Dt1< RVvN,9\rls߽>C沛I2 M;0'Ul\X\*=ШJhReOUٯ46]SnU}rBFۏՊ /Ǒ{]g|*sFcQḛwd>[z/N,.,¼Y͟ߝ/ 竞O}rٙ{\.@,18Wr`h%,ԎsUGAv6>ju^bk~e<@f1OKUY55=4XLN=eYKqBo&^&#`l=!!o6< 8;O4gamI_ynµfW鼟pÿ0Juf& rv]C~84x}toyc/:^|8œie86ywuI?yUS;N+.mrQ<SA@r0?3tV_oEhokL4N/y8_k{^\nsiYoo`O? :Y;u[9 MCYؚQȞX Q#wӈ~ybl)β~-E}wx^>tlTU=<3{t9/> 4s󪶀-0l?]-YsRѥ\A.S CϷPdKUǙ\ T{ji^yx,52Gp5ۿxN#Bi*oOM{}>g[enS0U))6.iJO1ܰ^&mh|6^#ͽjf ?r*ܝ8UWojs̳6WyRv-CŢ띅<[F`z<띱jg6ydyWL[͏>Ϡw Z7,.,YL^4mQy 6s|xlY rnof_`(y.1$=I|J|FY<.&^hgeזl0o>QMVrնu"YA:Pݢd.tEܾph5]]3P% T[)%`&́C\Wzc㽖< > TPd>ƹZIu0so.'plַz|\pe~@& >~@i @Lس{V]jKJN ݻv3yW^6VPa̵L KUe=i-a.$d>:` W61<б~zy?AkWf88f4;)zR~f3?𹐥͞Ys1]05ypcں=Dy8ͻ&_uF&F*i'CzEʋ'zWz!&/yIp4.d2~(tno51l۴ N`w{Z7, oǧ>|oCsSdS^zxwq"M6>j#Z%Ќ̠_=; uh FM,}._[|ޫ]&5;sVr¢߰b<ESqmðƚ|@#ϗe8v_ ^?Mcx^'Ǐ պ׏5?vozeEЗzVzU[j4Dtj3A`.;zX~HEt ;ss.Tz~|׵zWyٟ=|s#IPdKם̖gEtm>/ةaS̻fp» Sjax[},N죙aH~s<Ȋfd~(Դ֤T4/"R1,app?xRH>a>^ d|6{7YxťQ\{Ow0^[ͣg1 t,˹e&|zc4AwWyNɫ)R0s7ף!P, ^ ?kx@ѷy|r:"?3viO̱܏5?\W,8rM sQ]̺A~B΃-loM}ecܙ"P4 fŧ1yl*sk֗ j^Jy0oD`m@W)>hWӛgvS8@hA"w|v2j3G94^Yj xhߚò^(NKxz>c862vS\?Ե9;a6ۄcHs9t%=}=$/ b>8͓ɡ3otxna9<̞ܰk;T5pԅrj0`5n~qd"6R{1Bu2cѰ^V8ԼZ^t Pc !=kU>:y<,8+CǢG/BxٛwB%m %3_־+bw䉈fpyd濩:=~UwCa=k |Ֆ[v^S6XO,óy1WӃ̶J9gQ@kgyAA +DnF租e&'jj*4H ڿ #j J0>( OW"**Tn7/ũgIs^x'zMu #ܚ)}FHҫ@O2}н?T*7-Üh,|`FFWF(]8[n IPEmh׬uS ܎f1a"}Üd: HGdFA12;T pLjFt4~P{둖l pF>'m.ko;Akkr9|K;~ZkBѠH#;~q@Aє-UmU0| C,4w\vFuۃNlO{ֿU~of2y.,=o.Y$\MB .-K,:<NWo\k>#Qz;Kk zijr}Er1:\n5 z!QϘ9kFWNy:oP_30ʹYo>yl:l@*Qd=H/ dP3@*N-`0&E38d>>ӳy;u@X!f g">3s fxbA \x]oc!(f,`u4MBaVip gҎVsWD7QB>dCO>Ք8z$JХ¢ 7Q/37Boa>8 g^!:tx,!Dg8! K_ڣiټ\s4 h+->sjC#G%6Ot\1Y(|}앹˞, AÕ:('E7ve$U 1"v,@?Pcp羦ELX.U#|,IU- =M׎K\V\9-XpJ ,:Q.Vz4?0Ĺ goQ*3ͥgS= 2! "u<}ySL'C>O(_&OPa^Ej;^ VN8Ob{h񕖶u lJȓ#z QIymN?=Wc刔 p}W+5~w"6l{cJmGp ۙ<.2?ȅj(@l\VwO5vvWw]3^.-ƉaEm%TEޙvc[n-ڄކ*^ \qY^y.$*ȋԝjS-\ޢ£b/R!S>^pE ȩd}Pκy 48d+8yQ{)ÞA)C(kJ^}bk`EѲ=4g;{s#R¬%t(?e\wn>#u~jSw @Y ̧_g@Jۿ=تfLJPp?:p/D|$ebf~mi(4#ܫ5:rFrp'o ;wQn4-p <HYS+-,t?V3"E6N,U8TCۢP,Uyњ$2`kI R=bq5O F./:h?#s9ȸxPhHhkQ?]ž .B7o?bs-c7KY:j KbDG\(7.x&ei/isD~̆Ij"ݦ>)3??rhE@&eW U)?_AIi¨AQ6 Z7c|? ]퇺x}! a#v2kc1/=0L8[Ivh+#s_h^Hz/ cCČ)KڵqΫm1򆊘M׀4\l^'}@\pTCk'*$ANuI!8 RxQ#5 ?<tC%xäػe/ sYC\Of>odqmdW_= 8RW4uWgWh! v(A/2וAftXua9_9!^~t#)n&(J)+rKGqf\͉π\\`uZ{_~\ C3>?FP7Oqdݐ8lsu+zbWϻX-鎣}84g $bH%&a!x_5ote"!2׏w90@A*5&n(a{`fd'S|xsy5hh)Ф~zZsxk`UUC:5:RPX,eHUnz#1hfUT Q"?gĭ. _.WwSi_Bwi^uR?܈AΟ6Y"*=F~26yUP}t@{5򷈆 d\o&UӐP d\o gfYEϼӑh"ʉk>6y~5[4I9!xeM͑rM8*RZ\1F)5"(joB" S$H8בе#z# TOf5\$ I"%*=S%kьJ6ҩe{ ~9 IzuG1G (Q,z&t;%o܄W 0&,id}]7ld㖶vϧ٪lx-GMf6j%t;M@/tuU{'qv>E6C|(UXbh/V ג3ݾq/~]qE\)&A֟p\p8WEa}@pjTՏfx yə]e.OFTX'Rm_m e6I$-Tyn~8dIOH([]^80&eZdw\U5smvs=.4ſ(>Sb5qՌ5 Q 3\k ꈿ/̔c|rgu%lym1c~t%?m[&7 X (cL|_%GW|DBSҒZ:286*]ކ/D?2{ӋZ;{-fwϼl{|f{\(##rݗqwrĤ7ŒUal>~]t/(r#%fU}"g y‚2S\4x(S(gBr,Lh;Q|Qu#9 hG` $~K_&#FL%ct $x)$keibwfr]ݮ}ñ$}XI 7x <$l&E+yĦF@&svD9QvPxk{P]a['cd+jU%G~ݵh:OE\3N%W~~]!Zsѯ+O%l`Ż̈Ʋ0 !3pL%ӟޟ"o5_f{{=YClEz{W uAsˁ*:M\|,#88ok7Ğb!q+vfkbg^t˿R>q0=3F?7t•$tQN3H#l^(O5uG̈޻R4p.[`60i;=6%`w9Qkf)|@В'5"=L74YwCjuj>Y/pC3f0ZR=~bo1hp#tQޯ]ϒ GsrRTjEYmzq` oT/DRdܙ0WzkqR-Y"$cL/ .3`w_m7`& v}+I>X޻_,lT%l;ĬK1?%@/I:'Y]{uUTWKj<\g P@K+UuRL:'xOQ|K ʦ#ZLF!$[yem1h 5RUFLj]}3}*zD"#n[BxMJoPnzlc%Ut}y&B F'k66ФWs>6glA|񃮸84YT5HS ȡ뚙^9%U!U-tq$S2k+ v~4x@o Dro%E R25.|F\|9=~1M7?Pf -N3zǻϜyۄtb*h\Omk퇕_ُio6@vRbQi]5<=v$c /|km{!BfQ΂G;ڰad>V< 4 mM~ na@3)kb_f sN "Հ0#~E˵Vɬ]<>yrh@+ )p5"4}lBbbnWBT Soo󣛡ll* 0zsxYA_k^&r\1;c[;)7mX`o#UaHXD?{u`^Dy|մQd#;m80e!,&2Y ӵƣr #\iAt`eݱ6(2Z#[~$8Dw9)G1,}[=ywBq-d-Tӧ3kՂ.X7ăBʷZC-,n{?f,xqn"XhuT5@*w,Vv"Z:YƲT>XBW}`1l{;Kw,֥zɣmVyyA>H|p9B>/-g%O\D*[%HX>]1ƕbX1=+D͐.=c[BUq]+{啢;~0@ҳU*h^K:*dagt,g<238RA W|1܇w[ތ;S |` nsƻMkc,@0 Ԟ83YzDcv~wl^.Al/ݑnP(IHʁVJT+"-D0_S? Ӂh]==O~̘ %[;б|i.6$ǯ7"<[S]=8;GgIPYݫHR2:GbB"2s˶dPr =1;n2ըh >UA{|O[J' (gRhQY D"A>rձ}/0sԺ?$emntƧ(i}c$t|yΟ܏/f<]؋e8Ɏ#ƳX Za,<:B#;5 o1(M wpp>"˚a!ެHa7ue;h@*kW"5<ѰCQ{w "uNxe']ˋPc螀&fa(Wu*', N~jNjvja5ָ°S,G u\J$̑ukOܺ =SMg2rOs'tuH绷<5Uk'gVt [sg܄Af\'"YˌiUoCq^V)C/W\}9]97?ն1:KvD[7rY1_M-Θc)W U©nNqGlT{uڗSe&.JzvW@ 4 YxQPw#Jq j="FH(#j `-Ñ$yD \Ah.e38AOjodTq˚M7pZݺvh\$Kr];1-F5O)+0ȤfYδMJTQ)!Wm yCT 3̨xڭUf$U-R!Kd0słw)JADX&j &,S2ghiѮ>^30Cm]\CK:S%%wNӉUjrf[]Fvs,PtkphR)I+ZPz_# tґ#/)5K&Hr)8˵>yFpG,ְV#Ѫ-^X9rfuQܢPnH(F=ms$ BgEkPstYxt.ϮH> +]ƙc5GZ9AF]ǖ I ` sy2Jdbu5*3f_aBB]IDK|\[̈́N {Z\[I\0v]\%c%VW:~.Coi?ė72>:`A"j{Q_b V^El}}B:sΝGR7sVʞ1_IE&@yV\~!!Krkִa=%{+{:tBIKݹ7LW?(A^k7hݏb)dL;^N P|1vHQ6B!DŽ(R=DW3=;;Z'kO 8c2GKHXNhΥm`'T-Է2xhO yJAr 3m CV9i%%]u/æ8cXw,DNYxw) ˬ" 9%MJ"Z{E'l0:{88Be$iL=F&Tg1+r&"se./Ҹ*K}۰ ɍ.y;?]67r>Frh|z$=bBu< [ X$dElH|1d5]Y%CøĞ\ L [F rj![%xkx5½~tgy&8cNxrކ*'Zv ib撣;$Ѷ4[<X|0{P0`u`-IzWvR ڛ2Ddؑ(,xrR{N8$.̤s2AȚɓxVL&1";Bpx"qΈ<툚H4֊epWM[\._,"%f(m @R ",ٚ+E$Ѳ'jY#x`3*n= _= 25-2O_ҦIbb lv6K e+;eTWLUGTx bR;*ڨ-M}K3o+@[_H-mi/I?pn#z^[\MN B#9+2iE=Lkjlo{&5Ș2iz"`"G.ۇͽ|jQFM9M4`.sjQ}$K!qm oQYzgZ4raghDoC _R2xdq˓+6dSt 7UQE8;[ ‰0EY08p4 W':g_X۲2Z3D"3;u9ܚOWՉy0ef ẀB|I";wB>L'Fj!B2KL7`P{c(2c V_o{ˆx+9%Ő.ԺjxaJݐ(J[X9>~N`=.+H9Nyi) {At׺P5$l>^UwG97b0ف0ۻU7mi56QUaS/T?(m53jb+r^f4:."p2' F]D#R\wHTH.59-%"3#^=ТW(ͼk5&2^I&_`m`Zj숳5oH>Dx]‰;Uu0N"D?"%i5>dGE(HF:kG~{$Nd(T[MFGDNU7~ྍ+gfWE&~4|s񌶊ǻ)9=Z. J?8̪-NXU\iq$B0\ S+z Huʸ"x)HIo7qP°g~au ˙ra$:o͏HcQ,Q[K&3P7}v/cc$Ҵu8mV,xv,k+eXAY qx$]C]h ЏB&$;1;O2-,*|E(cj-b?5i?8.mH;,rHG0s%M\fvwHr8z!ĖF~phFfTw!Ra+My0v`Y>j_6v^r]y0N)O/9-uę:,m#ǯx w&Qӑٯ7-/3`z/Y6G{bM ) $Ϋ0=f;?W*fU@a@ֵ;=HNB!횂H/AnG9X\(|/j/Cƥ/1ʷn{!c )f8w!v]X"&E5‰.txL4iՎqEluOw+3$zl->[ 'Ԝ$t~)A={<} h R׭* f7Fx+~$gNu/} f̯b4).) X:bL {ڵ`2>V[I e0-peb㈩)Z ^_׆;QדE0(!w5\2a IY5@}Hj*w'zloy U|7`O-&,vs}Ct@uqwcݞ߆o-U͒Z1>)Yb%4 `^%? 7Ew g5 *'ݓhZq}i,jҙ'KH,vn='u6hCmB4JQ$`TilSRFh>%FFZSj Z{︢Y\{;߹%kʜťAM1{Muwa!knxyՌ4XÚųr9n[gxQ{-6&9}1m˄$~ :/d MDv湅y/sIc&oaq/8o9uE^$4S\ V17Uܩ$_WѧPsk%Lkl7wNck4H-)-p$g»( 爾U7K\3Lms>/n\ggk%dw"aDL]՛e_qY.w7aٜH}? yqUϏxqY!^ 變yygCL ]`#Fwdaއtۘ<%-ὫbFԸQYgdn8~_5#bfS3;8DlKV7'8Ӱ 4F+aez}xmY?!]4TQъϐŞ}VO}<}8غSnwMP&@#y}"&μt$ g z2]Q l[R nnwZ!Smdug@L+LT@R*j0 Hfx+6`",R3{ OȺ>tueݝ*ǴO' ;kXQz \-򘛭[dtX߬N =3|]{gau!tAoCv4;$a⦩9 z#e+' έFbtչ4.Uf~Z݆]j^SWD%l`AZIYaߨ3gH:ȱbTj\YNGbVdڟ1㴲P/[ū;|W}QⲃǺzlN;ܙ:׻l~liڻm>D/\pNRN g|%;+X +hI\ U|Ϻtk ʜo'Ju  91 *#.m|c?18h+` &j _Plּ[Τ#ֲ-?Tt$WFYeR^Hlf* ڶ`8sn39'l۩:qо$"]p@`/V eԩt=zE}" :oxlfD~t[=7&#sla7()&GyX1ھ^pOL팏%?tA'dw5jxʵ)U6IU=l n<*wt)!|z3!:?os&T72H:+OD}>G-*$qsPlRd佒 B6\ҧܤrq-oXbXA$|;RocDQy}#8}(z T}E򶰂{໹y.jeF`'D$:&d_'g9G3NSJ>7|9X̒3>3+=},;$^,݁+\gks ]_3;\ۈXIxJ,rljz뢝GjikScd5+ `n@EWfaw)e_լ}1Zqi,>b..Ŀ/ߚO䎇V^}RozY8fF1Gٌ$K%(TA/ ng'%ɶܙm-wy'@SUDDr,,Bo AzCP v F,q8xbW%=H5؉q?X]sz롏Wl(xPj5%XD ]&;i$-KHFlSY4 ;>+S  #jEC=xoR8E^" r %8Zx'Z,Gə3M /Z @IzrUb4fn%R=0ba0cP̘fUEHdU-vN5SV|˵;Vev5Sb!nC"之-(}_ !|AmB9^`.n @LPLV||SҲ,#:[!r@Ebj "o#9nzt7=0\=-$VP+AV{:5W vvV+YygWx!jZ[jnx>11foG[bћbl# qjsOrE`aC>ʑ.)(y~#2N) @W4~rx=(J_}V9 S)f=l$w;}DW3|2BfP`#X 컁軠+&2G`nyUSKl [ԅ[ CgŔYU-Ϣ+(Lc>hhf 0,5 t~MZX0(1Ut]H8zGɼ\*$ےx,>-kj?ܴxvdjZYz\q2us(KCr& Qxȟ^q]bd_u9-d~KV"x*6gm"?;'(Zm ıG/5`|#l]RfYe U[]ا-.dۚ 0S!=WVb %WuW ϧJ^tmY!*JjiR.[mF|zY󊋕/q˛zN ŒRF  hQQ9U]YI2jʹ4nGF!heb X"b _$r ѣQrZ P-^ S1zpސGwo z|Ǻ]c㯆5Y#DCA+i騶~X❽\8ĂVWnbQ EmAS5?[heѶcݢC1,aB@gfw" ݥqĔJ07g濊(#P8U(1Te&w֨cO&Ea|U!܊"<@$qcCz&FAѨ[vuhZ&n 2.m75BQ  >txh7.HI1([,EN+{cyQZ_1=C8nwE4:J-@C&څgġ\:״p-Cvg> ^*x}ehn9fgm,L+B;foƎu=o֐t2wK} :M\¼ZaOɝ'cf1ZX L%AȜHy鶬O}Ẑ8{4ta1(.M MAq񀸗A:ѥ)PK?'wn({L(5m_]F3kaW~|7w) mr㄃r1-}X=jtJn{5"0E[5-uJ/ І(wMz,&{ +n"FBG|%?„o,KpETJ3c $bP+A ?[C5 ٛDSWw,8}ѵ!ìp\ $ W:\?93{| p}7mV] 0LFƆeԚ׽F";n;H()dt㉜*e,;ؑE*]LᠮSDl wlo[o30s1P,1vB\*=lsxUӃzc纐`xJGsy16CU7 c"$" o[נ ̆NwGWSHcҚ.ۢTΙԴWRoqe'nZ|Rrb_+,rSTWTzTho(!|`mv B犤1R$Hw&Ո<<߯#'.:ȣc| wlDS-V-]D1,[Y6e\8Yb̻L)֋0r49zt4 H<[87b.lT4OWPXSz=ÅO!7td2iHEy{ c1>D4s(B))5?6Su~U"M[|= 2J_5r2/!cH9B>,c10K_ O&~HN#JQAK\&tT&^KDz4Hz2&L_gFV 2:Ԃ˨Ouy@lUͶ"GPuH:MAm)uޯή`}Q U?w r{PB/9rN%BbֳP`)v) }%?2C?1,~@i\,l][lKBV b1o  cWLԟtKJy`¼ trBVw XќK [9H,DFc+jM;'3zyGKXm5Hv,=LB"ʰ?rϒ3-@fXpVu='%Uеyy͇+׫MwVKek'ס#/^ GU| 5UqpNUD8\4hNM&taeˤ)(1'#mؕ;3h-zjr{Yk'&I q湵`L'Ƣ~".g#kO(Ǖ+lxdԻIӍ8WByӫKOtIq".QX#D :tY{ϷBD>֒q@/7yUv8,1sЍ-6VL,gmg2WN](`DP_mvD:uj۱x_W֮LIFkdM7e>]wU~R8s V`]2ȟoڬ}D%F&Z'¥wAig%&r.gE'v8!JP(L-TGFIJ߷/!WM+réVn^|(g! 6I,⦘kk2Px[I,2Zۏ,=Cy[a[i`~sɻ.!GL0533'h8h;AºR:^fgJ9\}E"K؇>F?釢̔$Z|ֆYό%3y>Z T1Dq_k}3t_kv,.s5G!b蹋(;ٰ|98|qMC؃i?0GeʌuQ$TF̭r~qk{='3@xoG9jU5~J,ӄ$n-p$v%P+G&+ɓ9(EQ:(UgLJUʅ.Rn)+сq]H8:J~k?`^ߊ0Ng N[i3drFw%$tj9(䳄# ziQ_-7(< hC /ph>m@2d˖;^ϻ NGp'֥`z zQu¼WU6PjG3k]O `1T>UQ:dͫMH6W@akpd+n$WO>cy&2 Qݦ(Sd*+]cȁދn6}^ƳeX{$T~qӺg>EXI|v6+̷j@QL('NܭY1J[hW9_קyNgTˈ9{D<%i0G\;ztѲb'ȩw䰈fs3JbU2lMZ Zh5RA$5 |1t>[k(ݴ . L4"Y" |Ai|6rwb6݅PG[B‘@m)[j3Ա6nE Y|VX'fpCRfIVhZD]1xާ!_գ *eRA>k. #ik.NK@mI0X-kI"3;ǂW5?}Z[$M+v|raut3$rN<9$$x'Qo%*tM8[~<<ă:u;nOEfd#]Glr*>URfqv-YPWrݮV$uW(o?^|Q9uZ9wSՃqQweESXxThaE<o죮7 L0ll֏N0N Ϧk3P3TY@_n6|yq(L0**,-n I 7ʧX %p#WYVWs-[Pu4WAr c u$j !~ x J:1qO]#ʡwA߳&āwO<)oqylWtZTaRlmݓ#,{mTýd+\؜OUGIcGro\sIi'Ib-|c867U¶֋0tuzu&ƶ'K/OۗI{ .n}ҹMöp&ZGņYa&T$E:fK uw62cD8%@&yNJ`_dd Pc>B.4Yw%/K8}.,O|R79UH$un!Ȥ{{dgaKf1oγY,R5IHs;}t,蝣lrVCw$bLe71XJNg3J }|>ozNLu(ΎcQmNvOjuGl!;[MxW'=nM$ӱ4vwCֹw' qbiMΘwђ(@zL.s5ϓEz2L.Æ3ycJfeFXi_f6*Yf׎!P)J&H'SOʺE=rWM"q%N<>Jʆ .xk]6O Ҝu̮[pvҳ tvCPMm]@0A6O(Pb!q{yWoM\D2J .GpcϾs뭽MOs*n]r+- xW%.Yۧ$fU UF|W(ǚQ ,3Vxݓ?5-Ǯ5!/F9F)Jo{v@!e*QXnKCGJ13&D}ofp^ >J+֥}PrCnA&}Rp>44k,&sCj,=d5u夠$eYy\=5Q~1$\McfEGBQ…p}}ˈ&a35]|9A>*@&ըƀ1cʹjM 0fJU:2klrk4䫄΄^u;ɦϩA6*DŽZ9{:8``&oBkۮ6#2~K_>ritM}k3{[= zJH@$=vʖ+ʚv84׎4,c#Ύ;2$.$i7B]~*j;>!֍F >\ŜgZ&&r0 QW2AIu"% Z0 8g- Lct@!^*;ƒHS{[ybZKMbq-cڎ[2*o5ޢ#nXgϸ{FeRߍCZBO⭐4Zbt I֩GZ1H=z|hdͱiyo&͛2mVH_3R0C[GvMkw =ӛm}{#X==r,ܸhKl9J3 rX! ~Kc Q[\Ω'L 3`*볢-c~ lH+ѬZ)49!+f SF:$H{!M!R]~[b0 &Bdx,9 ֋84`+=ʤ8IGľ1H ys_OQjXCht]b`FZcQ벝*ϱV.W:ltzza%r¯)“ZV|v:-I. f DT%\喣f;dГ׍?p /sɠoOʿmE^%ǘ;8δ$7o h'޻( '{ł#Q#@p_Hy}*;:02XF^t>msXne_2PFVɃye7ry;$Gdi}w鸯#RC%s_5phg5 יڭA'2; }hG çlW^!;|΅^̓>vha>I&Nta) ,2qoiAczNd㡺rpoىFpe[smb_~R_(<K`e om?Sqk@5-&kSACAJJy Y1>b0)Bt$o c4sO2#uבk}n˕ȣa JvV[uEڒ{Ptv3@fL"x'@A\6F]5&j<^t/߶[xbc`~K0yn*h]%R;yst136nJti2 dp1VXwAa2]X@$]۰TV iDCFܚ@7ɂPpdcsV& nr8ӌjH<*r::Ԩ-:e`-9[(" 7> -NӀ!0.BNJH"lS#82.: d$TA.W'C`r D1VAb428sUCb EY;*'X07mǢ`7$ T s^ =P,fms5,g˅a8^/,UA᱗fe[zoSr!= 1C=}S 2GJD5$W[IlUT`7ϓtֈJHt3){/Schcn֋wܐV}l46#;ւ{'e{,>B<祩6fq5>v=B0LX*jwl\`8ߞ^yQEdP|~Q-؀YJf~N*!3FGEH]ڒ7H``F_pjE^p'Li )=|wYBDnwXD sRnHUz| kuLNޢL OX%V"@r zE 9#Fhv҈I[N(59ݮ\Χ hN &NJ8{'R`(b=jl3BcDPR/VGFZ_= mjyܤT(\3oDA+i23?(Ҭ ZSqoAfnit)b&TOGϛΗxud,} 1wk?Z2TOgЍT]kZd\PGaW v4ə =IdL;MjTu$\=Œɸ[쿵NsR2t"գu9#FOa(²qtgpvdtnp,飜r(W/hD,.uUf"; e|}Cwzhr šAt6}VsOHil:)S-XPN楣MJxuˍE+J\h#jֆ+* _:2)9ꪥC~ܨTm 5]Ts{Q|TbUqQчLUF7?8窯!]Lm>j}F]WoM*xi; {!G:AoB<ҊqLurY dɘY}z qO5f|8 +]'c՛'|ZO_w$ NJq^Ruфέ\R=ŗZ!%Q#Jl6,,9D8QU;/w{(" ^d SpJeL@e\.vgE+ձ.dkQv_zn^snEX*i1ڷ6'`1'DWqLc~N4!I,O-( s&{[ks7|mFl}$$9~ƒ51ђ h&=O7YǹY.ղVmuֱ 68j~^Rfg4+36}sf;#FvU<+aq北 *r %r%s;Pb粸<2lRq,D \DcO6k7_+_h-9wQm_\A6E"*B-–mK՝4|8M{&c:F@΁s?H܉{VZND41D݉gBaW@M8XN.$3:;j4Ȟ9^oɅyLNG1rQ.|F~/_P8U<Ŝ:i^Q#ԅպv-2vfXˌjAlK¼x=M,b*wmȕx%{'@;8*~g_6J`Ԃ[}Z #͒8iow}Sen#4QC$j\sNy-ݠH!M54cgI;/")}Jry{e64̼gpO_q},Ѳ7Vxnl>h]PWr$ո'b䗒Mzaq3{+8-&嬹RA?UI djM|(TF70] B;&T:CJYrfߨQcZ:xZ>o Ѭ;$ؼDj 8Fd`W$!\AU[j(U`QJm54(eU쪍#1̍&H__0ȹKD}7wB3"="B?cq$$k ^w=bghJw&ߍz>xHWRO&o&&vŶB&R8q\!}$LUo%"ت,طߨկWqEȈ$iWuZC> sg,Vm.y'wyA p6pTua\s2RuCc^xC5x6 0/jIIKH:y~K:!Vruzb!w_ EpIԗ7A a04ۘT;Uun`NzBP.KP.gsbrk~a{F#^vw~_U(!kLwgiJp|(ÜN-|}X)`ueQd}g͏x~ XּdΨKj2AêcDy1VN| ChL <8;ի7=ӋWlTPeغ kXa'I0s`COo8<JE^j# ج?jsQ.s`ްWUWtk [kcyWiLtW6EuG;6I,'%N:n׈ITn\CQi{7D #h%@m 4alG$3A}#A.T]Oy"0m9*Vw0A!OظB@wߊ{*y;d[ |5Lm0=˔ɝcG 0Q[h-j(._VF0}K* 1=E2?-~Q]ݥw7?QVrj_Gq6XʂhhHX,': 8;Wg .L0 ;]GؕP߿Ec98=avD0˦@tz`D8ه8W{%.ȸ/+jJ"}B@Ƚ0~z5~W]t>>:Z?Q JH5N@wZ.|]u5+,c^'+W$UB&iC%k[\IO}$@ҳ@E1 ~I9bHk9G}Z̥u\I4$ WO\[F|±+*s-_W̗3wWjs ӳ"p8ubQfH.Bv|ͶeJD%9y>>z'9a'=Oł;Ͻdp#\`5+) goqwUSPOD{ÛR ?봣k+Q_ J)5~ߗw>g\SKWrԮ$zNۻ4/E4gA8v [N@2@_@7/ o͝ O-e(lgtM?5* hDkp;?hP񼅵k>I™I7yNflpS-&;QogI\d:m'[PVk yyuЏ.:zDɦ!+AJ? AEC}m-39:I%I sӞb{V6>Buް>G%wxUv1Y{ht1nlShA}ˬ3/'LjR2 =wuӐPLɺ&)W1l\+0.Zw[[oDcݠs:уWv -^_'NtĸL}nؖ ip}Kd8Tݜ<6]̩zLS}<)\k >unx-/).Uϑ(L6/mL=2)Hc@tʼn8=<z{UGF٤ם],lBo ΄8ϗ=(2م`p7z}&Ȩo kZ?>Āq(8X)*Ť+S=cI]f:ԏ4E j0w:`]'3)#[?f/rIgw^-F V>5u+w|1-Z]UM}1DϏÈ:FIݭA1Ը_Tu[x[NY'ciۢg*g$ώ5Ȥh[Bl^wےۛǒ|ۺK]|p. Je0d54mo딑 {^/1b 2 W|q-H/4NH$6B3s=XY3WE%Z\c_R ^ڊ+NQ^8De2+KK_4FǚL`;yZRyKf=D7A}O'pv`%{/azPwUȀ_FY$9K| wif~d&00v(v>O[t'0K ZB/p JS`GdlP" |_V|ҷLh0j HX0Fl1&MP@lI\dHDPZ.S:7*:cLneRě}:(:x<]kz}n藲2 D}l _5\|?1b:\q~%4HȐ# o*^k~llC2~L8WH[(R‹"\'FK/wL+\lb5ۤK6壴i q$vTω*H/n0FQ8\1>_R IY5!0#-'>6?I?"W/Oc9 De;~A-FRjHgezu:nƓ`l V@ J6泺/vx#گ7|KlG؎oywbsᎫP-RLZ|pT~rh7KY#T`*Ɏz|x uÿǚ9:" mQ.TVg.LJE3'nP8_ Xe\GQrh>M9 pG|{KY^ 4;S.}0:sg3е}5'ޮQAJ%N [I?.{+j3e4h/UHfG *8 cJ]TskMf rvRT]oJdK{6{jS @и[pE";"GH޷.dF(kf+ +Xf𳇙Z'OŭP㎈1C$0~ 1p g}ި9ֆUޟHK,cL $jʓ*.Gwcn2>}K8]M^Ec؀@ яaa]z 'b1P鲈 ,3vuh$57ar ȇWot`,cow1/pY/ݬYOhlgݒ,Jݻ=Nz;KvܿAo,HY8-z4%Z@o<굹 @/sq uk#>F4FQ#u$vq."ݺn׳nk֟yFXQ~)G"j,˫/?﷦U!c&㹿P̈́_K @h!GCj:UxY꠺EL{ h =#J(Ȅ<:a|({"g`_L2~ek"b"bϐǤ9ʵ.'.٥ȍbkz8@p_uϴ*WHAb=SgJ,ֶ9VoZ_.?>9Au'#9B!j.*i#Qa(mmA?G`X"Q#3r81f r*V0Zdmz{ø]5kU|D<!|ǾJ5G] =#[nD-j WY̔eC}o2OFgRPtWt0ovaD7OՇ0 p[4B3p]a@ C芁?űW6jC¡s`\xH٦t[_Lrd>x4@!9}2g֞2B8MػgG R|*̵/ UgOQBy59XD4bZug{ X(ْI{Hwg*0<_4. nqclx{vP-ׄh火UM^mQ Sc ,7<|[7yUkdF.3@~4t p/nQgBX ]0 G~-`g/ƼSK(GԵc!0 q2٭۝}P$D<o[*325NKcsW^cHMz#,qenynB3븏2t>Uhȱi~5'?SThlɸZNb+;kmbBM[Qb"C\EbH4IDɡDz·Cv2!MOٜGB TgˊI 7&fr'ū8nOC81 K&qɷY X+TLJ?lx^ ".rq!WWWֆ}pP:Qc.z :_i.JU*B__3f˃E)u60s Ǽ m[:wSP# ŅdqӁ8 _ \)=PI,.9$XWT%JU;_n*K 0ar:K[Q܊|D/}݈GKk>ّlRLlQ_1r]MTþʡ}y,tpM36Hp5ڼDiWTmcjm/R;[j1G_yR(rB" $[UtaD{̎ܔezmZlSz`JomaANjniNT [WnܣXO jA$XdEp!K~f$<{U]JzŠ/ǚQEHS?7~XPV Ðh7=9xv<1GCF{⢠F(5SͶl)$^h3_)ף,\^ W>^kq.?\p%Zya]oؘHQN+}T^;,$gN,D%7O1\׍>=Pġ{&;S5QEԝt15h*%|K;& BY=Hln?Dp)8S-73k2;E)VGAA8CF<moLXS֛"BllyjGc%Oj7 2R%=d s>ӑq-4Gƹ/M䡟;wS"33_Z> tP QKN+c_9[s#MG\Z$ܙ7͓ Rq}|* :59P"m _*m o9qO^Xhcko:|B¢j*4#:CFxe)%9qeF}?rt,*&j|]؎nqǶo$fZ8PZYZĂ3(w-yK5>dU^V߲NbmWbB~I ֹOXNn$*xoM .VԊ :m'ng(fŽ0] @Z{·u<{Ei{|Q85Xx{XD qkC̺ e8?l C=\}ț@ Sƻgcc oRD뼔sA%Aj`ڀ!u'I!@QNL|WxX0Iep{FŽokh``9YRrxs.?%,KUx2ql:ivcW mvC:NO6e`M4P9}v`h\^;vO~YI8}ge'i9>lX1N 9KDXߢG-+ ";S%#^HHWgбu'Fyߛ޺# "!j* `w мcEM1"-sQm3OVIo8K|z<'k~5D75*(q|mgn)EZR$ގݤ.81a/́9!aW%(b+d, 7rxKX\ͳ .ZŐн>l [Vs0yx@kv仍Dg3 5u1"={igk^͊jE:['#\{7Bi~|A{2ns6VY*V Yh2NƶBWŇҼ`gL }>1HnsFQ*>ty;X]Z2.ԚETPQ(1uinrm—ߞ'LyNU(m4C2 A{:awQ> jd[ײ91}!@ؕ՗8_x< ;{JӡյVዩMuo£,e MA5?TV-;#@0so),BЏ/Q,k0#gCy}{HN+0#0y 'Y ?sȞo}Oή|_;~ bcDjV[VI²CYm}[Uל)%Ci?k5(D{SJw{e˖TfQUc^K|ۙ ܻS1LO$qc]4ck8PܜEq|]gzRdb vQeݨXb}şE/[Eip `Cgư@0s%vd&OYscG ;K[[2 v_B$8g7έ,WO(G;&>"hgt >Tsl~^DW_zV9h洈"Ial'D3Z=m7 wx󰏥X8nΘ\8 R'~l2G nkU;>Ί;`mn-_=d"4.\[{_pI6Mz4~"&w'J61(һV7>%[c L߲Kƛ1d3E*@Z<L+*eK|>Arpe}#K_xb-DP pwn ӸWpwBWq$|{M[k fƔY &dj9ؒvJ-;so,pl)?U+c1Q|k?.4ǁZ:Aqܯ ,-~uJ* GfCv# N wl|8b #(e!!@]1MЭBZyF`kT͉(#VREwH,ѩ` َi"!OќB@9zxU:P+,#?1` f#gnZG!2ںf jE9BXM{ՋOWEgST&/-(>ur)jNgIaD}6V*':6E'Ux]i:CѠ.xQ)Jxc1z!Rg˩kN:jLjMH{PV%e""4; 5۝qU6ы RX QԆ©>Mܟ$ !=$,˹+haHneA!&ِfVr1m+f_Nh9G0mO>E5Z(g\W9YZcQ70rGyeܦz1PR+b&2:~[u@1JOcgzq钧L~^$'%XZ/Rg[5\wej`OhuD*s\r/W=)A5Xm׭:!^ G׽<홢UfI4ihd[1S'[+E[#xۑ{% B2=fzڥ)X-|l&cĨ6Ճ);:Ѓn\4K{(Hݢ͑! H8eS6~jDΒp!BzYX;LN೪5X=lAJ"ٹefsLHzʻGW1w|J12Ml*f_]8Yǃr}qo ]FWnᖺOn;* ^u>sOH)dR/- A:;hѿ+nU.BFTzc60~ ~.v|'t)o1փZ .1Fz-q ˁ:}YK;F Wj~AŮZ-q/~eAl8V|p=E4RO7 u.X~ V±#$ʱ@qh-C#VXb eJvǙ&`"TX'oF} Eto~!ZܻcoguIthf ~##<G"/aA | C2j=Db.)0# 7_i$|Eh87z]2aSNI88iOY$DoW;_j_twF~AI犅\A,K[#䱊e3(qrB3Kh UAOib yd>88ܱi68`OȲgO-Y#?p@IjP.Z񴻷Ht#u6BM;D`"u긌?ߘ΃k`n4N.3c|f]T4I\,EZ d~C:.1V8i~,V7tͳ'_­Bmɞ<l%#Uv:E}Mqmp;ahyIJ%vk᜷񀠅 b:,|ٜ&+q-BYn;ق'F~swzAo7$lldeO Bp7&7R3ʓc 5&7 &!#%h+/3k>? 31|OcY\peh\ALnjyr)CaoczH"cjgTFQs%46WsCYHx]%lvn]Q#E)H!{76=nѳ܋fF6U'Wɢ9yQ`}ɝ'賌фQ :z8XUd ä'anS9N2㶞CoZq| XԾ+C8BY =,F?Ɋ?NJ܁=n>j(HNoS h NĘ[Ύ-J\<:\L*tܮKwÈ%+k6i[Kk)xc`|$icө&VBݘ7!I}ڃ^Q'xPc?-B;ƺVa|&xNVV`T{QꛬgQ,Џ>T'qABBgwjHjj5 qzxDvf+R)eDj2:sxG+2ƶ€)E=˲,Xǿܨ7UhyU1L'Oqx$ Hq֠3IޓnL_rgLq՟ H~u5D6TVݳp2^R.6?b`+"H^OjþUR{ںuwM*eP55f©sĶ(A:1fi%Fc(3_W|[FjS[͎BjiOp=Kd 0+m<2>u C w~cc#:r#WANѵhֈ¼Zth~*J]{E_w3^Մ[ZswT$R# !Tt;Bl{Pn:e3@U`w1a? PxYX6&|9e "Φ<->N MۗL:nRGw0̌|ąr|=pi_aF5ؿGMϺd3^yqF+6}S z%7@mx1O^$}@jV_8y#lD]Zp JN?Z=ޟW J._"w5mE=N;Q~*Xt!xfcT .<B:"ύ1{ &.A{ ,AO5P7xJELs'E$lsG(뮡C 꺚^ivIޗm+WDd1#gMI $ѧ?~.7i#44'7yQ.*&nphw- S t[5ņ2f-"0qg*}GWHSs{!Ep !΀ `}qSsD/ާ|o1vXųK$ϪtD QF#[b\zWI_y' zclm.dfh,(#>s LRB!cT1XC9~a;=cۿl0xUڰG#϶2Bظ'{{Z8ЪB?md(tu$5 B yu$ʌVέԵ='=pL`;.X\Dm+Ā@ɱ@qߜ \A"_PƦO<̮@ߙm=rռr2It|f@Z(W[xvKv;ՋF3!Fo,®`X*"Ҥ~Vɰ4?Mw|*;d+ qB{4"$Stj7,ly-U흜ɧx˫ ;3v9Ĵ%Ib gi7DSeTû->c:.Ci}dž JOŽ~muْdǒc1e}3  OTYU,ˌmDdUﭏzK?8I8g@^?pSni \swuuN3p9 &]_,T[{DHwCm=){hf:Σ}+pzT#K7!ߦ+Zf702 >I]pz  2a98.]0V \l䔩)Ixxå T(oYuŃ{Эmpf3C#Kp{f n_GrXfy/ +2s"$Ul 6&-[]l'%o!0qyӧTuҺeA-݇v-P ۢ[2(ԅ$|՚%{X0C)A,a"ߴߴMWD!Ġer};}}5 1˩$l8k}u^X݊%|xL&Аu%=O"@ !/wye "<c;8K A8];0x'P|G:`,_|[ $L ˋDCyAzfuU$EkK[(#gD@‚V=0=B~wtޢLȀn% Z,Å,j fP=1GqLLZ$`H*-9rjOCX* V.%}k=kӞz,T^ҁi^O322`]|ev|Ej\߇% T#H L52s,Bpٚ7d %ygLgD?UI 42f"/,a!ɞU%aBՙ1یn}Ca;*xw˰r];nQlJd >N[98kYÒ7o#isHe}V5.7(L.3DtӞ\li'_$d}>!`T 2 ⮋>]5juoRK ~XtkE.1,eC*i_|0poR$ ԖKDxV8@Vp/ n#{ Xsc5uĀU2Y-:i⊹#8`AOܑY >29_'' بJuG^A5[0'VllٝUB*ٱ+,V~eX jpeoR^ݥTkjYՍ58]jw"F8 h+ߙ}#aolbf8lMlrk -FʻlѯcmoC=hHL%# T QJ0\yz26oy'hԃۂ$n;;NcfZｋ:]AחMITzG:%A{&>ڷ(=kۂ%epwT¶#.u~=,Eվt2VZS XWԷzwMq~ܲ.K}Gh$v=XQ>jʤeFOJLGfrCn3 φ/L-3 Q 1X3LB/9^5/͞W7|8vh"m? 슠YA%:GaFr_ퟱۛW(Ș q"Hec?WڋA9ʵvy@\*FaԲXiZ'o<<ĸ{Bir[>՗]{k<)+8F#.?4?gW̏( SNJdKqmz(dJLk +0 xZIߚ= !w:j`(f<,ʺ$#\"x#@Ws~7Jezv&bOtvK,LbPmA['cv,ZФVB?FoDRo3g SmO>TנB}Yێm]JwΞ9gx_{8R[[*F6B,)2yLڥ$J ۥ7T 'z,.,,Ϭkc[eD`gkp6H\Uib5~EH#tL-35Ez([Z]< &xO#X]*j6ј"ERiA&C,^ݻpjtٍTiQtT"UgmQ9Ϟ9-Û4^Xqo< }&ЀWbV.R^(k43B?ShVi%2 GÐ7&f+vV-=6R=)ËL"? ݭ+y:O5qyg<79י)q'p0 ncUѢ ~]*y#6߅K WBMx]S5Xz'Qm5fP3TVH fNKpe~\NC{X ]3FC9,S4LK{i!7ݜ,˺?}Ҝtmȶ= @"<75MtzGxČosQkd} klZ5יMnپp(P`l/]h$Cwpg.Hg&3f= Vs>խ&0L&t#<3Ŵ8eݻĊmc[ SkrHńG0Z7t_Pb I 狑5ߚsWBvػYzt(5%0%~jqW{rj;am=q~~Tת6*@Y?njhwe7D,QŐƫ.a\Yd6vX\Xg?J@=g6Ә!}:h3#.`=_}d YC\LJw~gyH "$iC}lc߽FΛ|޲7 a_$$-0+nKv]Etcr{Z_xe{jnח%'pO.l|S^ߺT #uIMn˗,dLLGQx6Cm,NdOc^8T\ N-g-e?,itZ<%T4DbӢ%gO䙬(纴ekDފ;!גgCt X^ۋ>wOЧ=27^q4w= _ ΢gB^Y=Tf$7&C2/ѷ'R_٣O:x`} č\2+8˽#0>#1;1LI1wvKCFGVQ\!gtHh: P- Ee*/sFgfkEe=*E&Խ}E9nU }52p처:(ϓ'V8[tpš$65RC[\="AXW݊<1[7=}HyI5d/IF~75%Ӕ|BYDu>O&2 ̂sڛ f`qGT5#5㦑VO~ yzj 2+Tc[GL@5Yq6"08j,Ȓ@\w`w29.5`Qώ0Zm#)Ba[q5pF%I5 S8O$f㵐{}7gdEY΃8*NXK 6IT r &X~pMM UqeB aMEka] $ܯO8^~ec_ $Lr+IFXO0a]' rh8I:"Y3ȬlԖs"=.[F\fLטA)s٭}q%"|@mp?:'4cY $5-JbΠ},, ml>UMDdYӗ n*Si!TP=SF_$W-쟪Վrp  8q;kcoN/|q$=iYOM1C.Y}#V4q ňj fQDg?F6@y`ZCs mOl.- { oiXE09 aegloCCgTZ=&<!=*TRfS||ɰyD;|Uk 73_ z㶔{Ȝ> ~[KGHz,E({ve sdjuI/ϐӋSߴ>L>9 Π-ΏtThp婅|Ux(SCU7a|;{@8тMg^:7t*k _ݍ @5HT2eeJ|B[}[M^:r9``-Mok\P(,-Y y6dIÆ= EZ\SYPvޤj`l鰴?eIQ|Ǟe =0~O˺.WZ}<SpI26PD~SO+j0%X8%],0=091u׻J4B2NkwRo-X!72ru6(}4sp=Rk[yM6jCx9BoM[EL#7L4-11#M1ЏXP3=a!@X{C3'k6i$-=@`sUB뚳jK H 5x -HmAw PMӊوdwI,{Lyy ) xtq\kXT3RV޷֕Po1 {O XCc^bl6dg+i%LD}5!x$W/mM71,GӪ*G[j2k [9?e3q[x޸&q*=ϡ3IXϣ1;.1t;hgR I6#_ 5|q8D:>1Qjxd% Jc]3t]eS*-C ><7&؟ICK Zub\xN5e@t'5/ YF'maWߓR{bZMjryW/dk8MщLoٷ')q4/<,iAgʚ[{EV=`Jު\bX}Ɣߏg`ܵC7϶  AB+}6-hL-Ut+l$>QLVK<yiV[k?}d'4M&tHiT8ո]]J7U(0pdnbUwe-DͣbDe j`D9e݁Pywf+x6.ʍ|CU ukۂ2)>~F/sɓs9!c'*{ f?׈ltVZ+f52TSGf[e_ĩg649ˑgjQWibw%&F;Mp k( 'ú%|h9޽ n& G~MȸqerxeH/Dy͵ ./je2 N)_LP ίV**cncȳڡ\)40YB=0η}>tЙG YʓGCGtYKgGTc$i zcjA7.!SD@=#= .TLM{`w<{7q M|^0ֈ+n^QxY&&=XKۂ뎠( $"%fߞ6d)] iރ[@4( BXS$QPpUo͡4'e K(N7h*G%ƒA%4ܳZ;~8w$'[qv HIqHe9gf4͹ɀ3sWADAnDAUd&t+ַ)FTjheDJNwË*jH38]"B!Ib}b6[h)[4@|'oruewwo%kgbkŃȯA: ݚ7;y%>`f'p&mS=ښ8|` u烳 pDŽT7 \I.ydb3CIx:'`QLi^*yg%k TYv!Ԕf0"\͢^6d/$뙚 ĩ.믳ڄՙ a<W+YL;.IJ1$լ_ERd_,ڥHȂxd$8*sq+d L4wD(խe:k9XػoߟxVv۵^5䬵] @NO6fw::+гqnOnļo#ThJb^?mrElӮud3R)M2q b)l㟇tSH#y&zu"1 ܻXiF˶Dm~PoIV2ՠ&.X[D~K>x*ţ]C=<>GSܓ:'6fʼș2f$QN#WK"T /{3|,댃|;`k~ CkUf$y*cUTa-9 =2=[RRmeQ{  -&I(q^FUq!')N 7~$쁓~Iu$LBT9 ;ϧf=M h΄{ˋDST3( /[2=wu,@Uh/jdoY>xoN^RX#:0tp2)?C`}l֡yF}J5KOP!w Ue i k.rj/5lg9P$YGqǩp8[uڮ~&g};es`}{xcc!Cu|s_ ӺC_{$^ OOt`^3:yYOOD%aXlկG6!{*9͊w&sH+e!qU/f=ΡV` Cu M.'뮜#,3!|mIj H&7JD| Ù0LbljE%!EbE&L@)EbAxg֡Jb4/.}y_&6&'x0Mkݣsń, 51k@K^ugbQۑ/]P6Ə4'IK3B Ah$M5Җu(K65= 6L,WeXl [g Z1^ IxBnT<"wf`]<4[%0tsY_T9p-UeX\KyoeרZU dA(. j>?5)>-Wmb^\0@tY$]{yU>K9.4=ҚCh| *UvE.qg'tGF0}-3ӧjK"9w+ڠ qB/|+۲*^OxH絫&'R@t0M Yu5۷NYS8JY`mYSp2If5'kM5 Fcx w^# AXq"&:FCwY >ƕm|8 Au l+(bX+ON=t{r5eaeRfU!w8?1s:oZբNym†-4i l_ٹ XZq,!5Q7?5`.idYVkNXQPLn2{L“\ F˚7|\ "=0y/_qF eWSU*χrv8O|\C&扱k]&NiA{FnI"jHR&?ݯBJJpuwPKKĢ’>[%^OÈ0,flFv 7ۈZ\>7K(y,5fG7ߔ1(R mU;ZWBB h"rI:Vn'^ J>@74bKۊ5oꁏ hԈi?Zh`? "Ƣ/hS/\4Fc0Cewnk<!rk8JxK) Q~"n >BBq;߆5GH@D=uW]/S~:ƶnmbA@m,ڏLD>\mV,Q{[eйKrhרb_^_? 51Yaؑ!ϾxV[_%t!L:|%Wt_7e^͏x3b\صu՛N+WN{ d ZpҧzGeX_ t+4~ރd蘅 \槶Jyފg6i f ,Cnh [/5:NGttFVQ׶İFk#y=ȧseצFM& s޼%ܖQem-0mDed#&ByzE`KNzQ\ߝ[Е쨫W8ETnM~%>}j h#W=25J ylV{%y옥ivA&ei5^хw>D)6k+(VdhA~2)NZ%hyj-!)JH+Pqb+& -oe= A9OAneY2D6t!5m22sz"sk+iXStıl<Γm ͉CsVe|Udu4piKa:O4jv.<vM9 xb2>B4f)!mEyٍ-qWYpO\,:jI ̩~ՈLyI=ѣ00kaZ%mVY{_ZG@kC;ovS7Dx.ITsev[IfLJ}++h.[PjL+U5Wy(>?E?SBzRj-:&QH1JqWd\wo@dGr/C}ˈc=*'(&=)%07=?[,)h龈E5MEG!H㎭lȺv_Vݛ8=8|hTv5iB9?hֽF۬,SN{C49O>,/mt A9uV p"G'& xޔ1 D}{,-kpV&e]I}`Ha;RdtL/iπk~PWM80Q8T65I^A;aoc*蚛xt_rP3Y@cT#ΨjR :a';C_:bȪWqop'}xFzvpQ uU;r=85!PU'0W 7nU/S;C of'e6ɩ51R4q!Kv7Ema+5iu{lGo$b!^36C֊.GEWAfj</}$,+w+{u X`kKXcu5*'FgƑUCEz9%"l荨y((.˝XSKIyM M# LE={&ʵ f)7T ]%@QD_Q& bBh-+sjv!%gTW4LշEᎿBׄ&5sAӒr\ !Gl_ɠ^4Q v"R]}:>mnߑٝ uQa7{VO,q޸e|aR66F߄C|w}o(\wn_k4om` I _McM;QXɉ t>S>-)K%B}ZxP÷杶g+, 䅆5\ lvηg$$++}r _B0cWbaC Po<,k$u?BJz/#ts=_ ňvϚXAIoy ekUސWuz9R݇}wxzf]SDPS Zb˄q6 Ykt-ѿ& .%.RgC\'JI:]y@YmM{Mx- 9fj8 0j*2vHE{"$c 0?ޚջwܐ/VjyW(JMԏKOi=u{b=9Z]v ĦmtFe\G2!X?謇)^c_\NP_1Rnˉ4t$63c g0Flz!NW[+_~rNd 7N U_W6Q`HLK,wY;>1>/17W()uAPGAUDVL<2R*ƚtW}m#%άˇ$D({ zN p&Q /_%\HVox"\Mݣ#/k%a!]4mH|*:eS_ɐe1aBnP %eЖ`~WK!$Gi  庻D%ȟ{3S<e>{dZ7pR6qFmlLX.9FΊߺnz y3O%D7B*1#V9 ь!1T\gE$jYGDhh%*7{:-ǎw<7( y.D & U< jHݺqS vu^T"v(3NKji"nY%1뮜Y$%'GHhX.ŗE`1ic&n(dhY'%fua½eRI2vx(iEmZg8\V鞤r<3"N{4>O-&Ia;/[ڱOՒtaޏ%«_3;{u6Cxaoh-8YB~OK6 *_ {>*s7r+M쳍T,*+87ZmN/+bh̴~4+)뒛RXr]J6[/NVQq{v'fSE)dDe;tL/kIud% uUXBE0!!gupTՍ2KiTQS/Xlv}; 3?z{+CURwrwcqnK:$c"b/ؠ K5-,I~.ܪ"=ߐ?'v<3(e>-{IIiXN,Y?ZDfsfNvGB}- !%F nTCC״8J% QOx dKL^T]+^k;0Xffr%I!1v*t//9[ %I'P3!9bBْ0 ?t!ZVkMQ~Q Qݎi6wqQ}7)cޮk(Wya_f?P[^wUDZMg#6֔">Zt7q.jt%P[]gn}E3.sYS܅a7jqh+]qK@YйHJMxmBX_]Ϫj e [ :>j6io@U]8wY~<Ϊ)Dׅ'ҋ+ EoYG.[#;gWz =g03/1.>M' z!_JL+^ Yv=i#;u\髹!xR*az[Da U>5Ϋa{ CmIܑdzR may]tGwT5[fnAF@ |wizXR]?8oFDJaqN3Gaʊg[";M+4A pMWz-/kpנٕ[-@!\]1e\}}|o\ɐ8 mʹ!.\Mծ 2AK˜J r vUdHhk3?3GT:PKH Fɢu nYрvW洷\U)sTL9O}h*H<|0r1>W&-BIZ$+-˖0ۙ1\A/hIQ ֿ9g~vGLӿߥ_'5O+J~3XaKaY'rwB~Ð!ގllb7-f~g37{eW9Yb[=Ӯ&GL3QӢZ@㨽>بaVy+Ӛ+)싚VՑuQcPŎF,A<1eXٳB$t<.} \yoЍ0¯nKܟZKCek`UNgaClmx,m؃*PsI*&~qgσ% WcO !g<{v / +/ڴI0f/Ns~bM\j#^Kdm7}ϋXIsK^h9"R1%&wj52&Gg>B猦> Dᎇ\{,V}alZs-۽OcC9 H}z2EkRɓ@7E!Xd2OfaOWL"!Ŀ}- ~"9hTw3\bQ6-3Ҫ6ؾvc p={E%"K=rAaFH+(SnA>g}AN1ᎩmP4͑r'&@+YqBD"$tFRX BC@NeOvJmx +J%mgV81ZVQ2~z伃vHuSJKi4oĆL$z:il2^2 fg+lrf}ӡ3s$'Owe ,7n62¦QEިwˤ "%!T&o]o28a0Gev2GݘK*pMW[Ym=ؙAFbǓIl3t,7ON:Ӷfkw/u81q;!=AN݇hZk8jVG όyYTu빒XMit=:>rhjd򧙂JԪJRS37L  (6 J&7{G6&Ńuy>Yҭq*Ը-orҪfJtg[#D7׫,rDB+Xmk d%/*κ4;Z. xĆ`fG@(Bf6hIH#qsK큒R&<@gѽ,% 6~^;qM5< cr~vM3Ȁf$[]Q~P#2ř8—MthqR%P(3ϤEMg˲FQ-W3k\u,+r3Dfn[]'ŘeUݲl۵?`eH`!\wӪuI<턈\8f`NYfژآ>jbI J92ߚLٲbxVuq#*dGnT`P*Q[# Y͙*,z7RK]f71u < /ohG:@6퉷z>nB!j`04n\J-=NhrmTq)C@L.֟A姪 C)?&uĴn "8/X#Ñ};Q{:_Rÿ $>iOm~(&dKrΝ*YC#:6lno_ 2S_QLqW_MÐarVlH@|ĤPFdunzst\ak繣lh5WV6  b1 U̫)pKԢ.8.k<.`k<i,W&smLTr՛ICMow`>[߃upmBIm -${S+TP!Z69Ie>R'HMM`neqM쎦h{U{ۄxA ҭ]N(VV$6nXdp#tC܍ HuVoͬl2jpuA7pO(ZQ4=l%w )=X51j |u Cn{Ïz `Νo2tħ@F8TWD &E%(+f{V16m-|M |zbz5*~_t7t|υ "-J*~;ΰz2aJpujIW%{Ŷv(5M JI0ϓXJͬ!AKasoF wDژQ!\}M81əWF"M_{l:>GFp®YťLSٜa͜5kdR%aLm\(UEt9}G Oiq;1ڛp i5X춿0ɢi6'v[*r*5~lc2K{8plj}nj z y_v%^84AEe\U =Rd͔zm-{5^38~rq"("ۻXkuw}5D ;9ea$ί󕴦SRuѥS.x"3wH^a[laF#^ xVD FSݔ™t3$o*%Ʒu[Lw-T:Gc' r%H}KrJdyǽ5d5<yn~6f@N o @ ou<ū*,`χsؓpEyfyzu&h!hp$/=M.vSD[<:BzXKuN}ߘ:z:M^{[OT^p'usBfw%QM]):.Cb\ҳ^:. Dɦ\[KŖ׏p!$M%TF-/O !Cؙ䶢;@z@.3Wp[& T:1ǀw2<bH&{I <rHᣌz ;~^l-H d <*1\o:ۏ=>cYZb6Fw{J/-`j't?>/[h_{,#+1l(x>j왍*3BoX$ ~љ}wx1Х*9[8i}ī+njm! [z:y e{d֓W)[J{K1etr 5t9{7͉e0j?S@09K,E<%[VM,& P V{F<òe4mZ-Kw(CSȮɭy@K+Fk!1.-P[Wy+k}IVDGf^1jC &x¡bdhFx8 q};| 2Ҵ~OS[t&#kZEK63$O.0EiU3c˫h\{ʜLpnpvQْHڍ xXcoa&@?8lj%$l}7yAI#"s5Htxkskhc=N;8"Q0ǸT^Zr`-_Z1 gח):><b -kV5;IҟRY|[֗b@<=|R'8Xboωӱ/I %(:)yh 隼$3>F[z|zYG[t9)& 5(kIԬH]k]T<_ڸζ v!Kކ^] xu*puF#Z;Wk e隸%ˀIGOBy 7vM (3" U:_cUy{nb0b1Zΰ}?ސa4X!~5>&Kq'v:?t"a_qV?q{JxDQxu=F/^A?*VefRmEz-Mƀ`o&ܸ'?nSLrXM nHh5Ͱ:"d-r |W "zTӑՠ5DƢ=z]drO*@oH(;+ /S3s\gNLw'xhOSVv01E6H8,Vd3o'X2&N|Ʋ|YCz,vYm?oếS%LJ4Հ-GP5s r&jg\ТKO(fcO}Ϧ?jL8ϻ?$a(MBGoMʞ ^J3\7KY#‡8g!|0*YC]_pUͨdJ&۴mgqϾ/>L+sMTG ~~7n*>.NBo}+I#=K| 3FɝYq}XۮYx"Q?˿ D\vr"O|xף H4o-C P>+'3&Km?N,O}$@9;bRވ&JÁky)6Wp$ NVͤǛ)tBP)HJ&im7PҦ|zZTA`e=m[jie@tf\kՖ3[K9蕖)y9VIo*@/p> yUMzAԴyF%T~O({u3* ̌yup$OՈg@8CZAnD#W$5ڌpq*+܂yhꮜjǝެ?52 c]FSkUkϻV̀t>J%b]>f .4Q Rk%|D;StK[ S 4lL+M+*l"*Z]@s&*> k0ÿ/SxZ ,z%eԙ, اsd<{tO5 1O1e/׽Aވ-2%^QQFGgZbף~M?-(Yěx3րóasR<; 1b@ &ák|&x_WGu)pLC!&)k6S ToR?#a6i.l5GP!մ`̀ʧ5k aWC%% 0A{ԅ'cyhi>c+6ZF mnӚM4׼@Pu=&Hؐٚ?fI@1W]&j>1zق0=AkWnz'b:PXȓG=7殲硋pKN`5Ow|#[vH*(Q)Hpai7U%ߐ3.Fٽy.ze"p)oMmW8No^q϶Fr;Ƥ;_MOQ+u{ 56ʮ/-1[@V&a ܌܄k栄8:tUYŵ䒋lݭ`sSIj>÷+=P^K]$+<]qHzAA^ׇk ò`dQ[W)b{?Oa#B.]1U蔖O'XzZ%v&xX\kog DRRhrK"?KK TߐT[GywM#OHߗWWcO - MT5q\niPe~&lBɳ^%Og+y4( =[w_Ohڏ7NcB˴ZAE1iFtb+:?%l2o c ƒZ@HMQPH0ZkQ't pqaϔq;,". # "銡n,/v:x2ڦD2{a7m$.{TShrL6vRr6i():$DisPk'T.tY@,$/dptQR\e Zg>αe)ϺV<r. !6߲Z~$#C?zZ:CnjXY8X*Λ&Hd촚XFKlOMb e򎙌&侒$[}NG(uTG9PB%{B:.Xb Bll^Ť{" ŕ: F &l"gzVig,kh-Ve*g@6)8I~4R1|*϶`*HfA?"0-2VaZF%p$X2[FD+=yu*Ǝ`0B,j9}9x ,%.j|"PԔc .aAcG֪Kg{.F}TqAXoU{Wԁ$1H^ώ6b-J5h vuNDcv'ƭ[/jt71cu MęzN k}񣲄5Ōb+oe{z46\g#a}T!$>sEoTj9ր;z9<ɒgw!ȇZP|8!`R T%JĶ4hgΰ5k*3 c]N1 }डڦAmY{r:BOؚZ676'KN,Ԕ6l 3!ߊK㔙~n9Jl= }?hrHGƀIU/U.D ݔN #}; @ߞ;=@"#I=3?tUgVizhxq8]qh`Z ^HWj21G9ϞսQȡh"}O;|K;!I[mJ!az̚0N%W4Q-Y /.{/B&/.Y~õ{ݓD$ڹ˯ ?'p[5gҺջ4Oz`j\|Zc0Kx=g$Ծa FֲqI< &5Y&|-Rψ6g{2}c!QW!#s9fdǝ'qŊnP,''vȚT4/ 0yy=kҿe>i1_q!& dĘnR oIײl-yaw (_hٖ\yJ\].mPQK'X`^N@=?5#;xԮSԧV-;3|N UvL&4Ím=3wVp3Nq` Q])-;֯&~B{x{tp"\IWz}6Jktbq{h\i`&9|Wۈ=([g˂^y'u jVkڴg)[ՅRK^ Z-#;җҨ[lL{OOϓ`j͚1VdƷQ5lk+[vG6OkPdɫM„2}-P38iԙ#H%_rE:miz.36(X AN|-qy߯RcLJ*&\U%.mP25v' Vq&DW Ɓ?m*n]86*W“eP5hQnT x CwݿD@3q0P Tk! [Mj4b>|u[,eُ-跼=p'*|Ұr5"o&} y5n79O,#&oqie׈j\9ԗ~R]MmX&195S4w؎ lGX`.'c>g&ddWX$Ȟ=t~6OGJHl:'wek[ĭD\M^}9645 I!Mt7&9v|Љ_ >W l*qcEO9Ѝ\gMXZ[ hl{TEسQsp4.¬FUk⻂ohb!5{U>rԩj4j=K]Dɳd'͜AzT.(c`xk\ۍd^ʛhEC8/%30zguL`Ytd5;K%g qtIVjEce(wJ7k~^>%jqýQG' UW dNc& !.OTG$$MXw8[{Ngzc c d{_͸:hv>~Voo&%^1u5)FfMbv0 ȿ:KV/([1pj*jh Qi}Mëxo§V+d蕿&)7RDzכùUOp0xcc2&nԄ8ur%S>I7M#oj+7v}9h!Z5Kv@ |[Bzfh5:)`Lͳ{(?MT#K3@2#YʥK~$jY+\oM /hƳ5K|v@X̺gvwwHzfpaԽB>|ᔯI Jש _]A[U$(ThHH>{mmkQپF q x2ܕ3IJ`4!~G.54R*rrL*Ncxo_fF+"(f4V9KaeUdS6C(tԏϪgJߧ7ж4nm iٽ cuYؼ#.;uOW.6 ř<ӟspN 4üi(YXc\H EU3VEĈlq Jg,YG 1zs3 G [23*oc-f܄!'&ƦUQ]vm-Hd mn|qۉBNt]Dq[> *uo n Rpm:oX^`>O)gWV+z9g}hRMmS'KIN-M&W[mDϏ_+-c9 '׵W!F|;*<ےOѩ'ռt[H JӦ}utO~V${WqusNQ Ԑǐ}p~[50W`K\ 3y9:'i3e*{_5 t%HM ì HOV=V~8 >~1&E;*cKQT-w`}(LYg+kbGΚ,xuШC_s'rK^U_ag檯Fb oVnϣ=)K/N l'Ij>ɼm)Zڿ^2:}G;dCdS/ʲp/R 떀j _ӜzcᾯIEݣ-/.9 .`0[WŸu$Ez䑭Dt< xb=&fZ69k EDluGr +Q4| ©'R=f{qRK3CM;33NCxcyz ]#3jϥ}*LFCkbqtw(z"ӣxCy!&?kt&zԏ\kude^4l1~E_ .?UHﰔSIDmUj5Rg #j]E(KgƊo\ޣ=_zWE mdž9м~.O[շ_E}Kqؗϓ_qL7ow=xI ޡ%:Ώ%!|GXX Q&\ƭ0.{k n+@OAl5߭/[/ u b}rF/oVwv=o罀\*W1xK.[p\~3d)KȮ Ӈ5 Ad3j/*Γ8=5?%omMͨ{>}N/*db#|qeЭz&9+jڎghQk R:oV+|M2,\IH9T\9#sd[>#˞ӟ0vkH-J_;!%SU]WP#'{okQw }&)m$)v_}bQo2wz:7"eO,YQB?0 LZ" qNs0NRN"D&y>l+ 1`z]>[kDKTb[g/AL+BgWHaJ(QWzSu8:gZ;-[u?x[="GueVMYk< S}h9\M+}Z:Ys0%5C3Bg83BЇ0>+a[wdzlܾl-^e}~da__s )w,fXSZy}ArLjlZPZ2[Kk0ƚ$i*(~>Mf zO)&2QX}-k˭c ^"K-rfmuB!շ;W'IUЉ3;Rhj[̘66yl2+h>@sۿ:>9FAcS}oj{[ %װ,v$zRfg*cHib]L5B>G`7TՎ 'f!2n;^[2LN%Nz@fۓ< `.nb*cu^>B{pg4O Ғp$>O { bCcD O浰kskֆ^)poЖ 7\1zHIPÔq;ArY0]۷~;ͼ#l ݮ-H'#Ioh&KW=[O٦ѶĤ7~{W#G␯0DluurԪ!,(83?ˤ ~'iMT8Y-JidC1ƪ*G-XV@& ( =Ao _b19OQY&jvGY~hfS wI; >H0'߈y2$ ɢ 2v;֊^Bin oӅߢs nDv "G^X502\g9UxI`z#ϼ3G|dgMfaQo0u?JxP]*l)낳'uf紼^mẐCk(>z[CAN }` DޟY}YM$P"%BaPhVd m*%= MaΣ 64dG"{.Qˇu׾-UVj  Ñ4EtZ?k(:0أWM(2?7˷X[Ȣ?!lҔ2bMn?o|=>c4o[@mKʨ U$mkv{~ As2zz:vto}6dKZ I^0//67σu}[rttüXy>HeuHHz;smk4O^Z?z~SG_PDl3;O`(Ǵy囅8h}"9 ^oMbuju[k 6mO|q3[=^8c4Mɯnq tЭ&>F[DEF*~/QW47F BsJо{ q<sD*'71=N0.saeW_1=ȱمTT;-?^u6w/:|'q C 9Ld N4x9cDDۂ~%T"1K I93hOra*e+=Y%8wbd8b1x&kExmPϒ8{!9yz~ bญOD{a"\Z>FumS+4HxG_t.M.eNNS%9 #`ģ#ԾuF^׳aI z51QO}N3bz| Zѡ ҙ~%e:2^3eYi0W>ԕX7i%Dmq_IvR7Xu ڢ0OUB5ֽ&$Bv|6Q I9, hmxrw?i| Vʉ#)kL *G$c]g/ G^CgC:Q\{ueX.Ḧ́z>_ÃI+i&=g>F&.F Y/E)KƧl,{ &hZx*LW`nd3lDEK4/ar5_ ='빖ޖ.)WQhC&]T ͎rpꞇڝ9e3$'JIBЛhi234|+-&[yNGpZ\1q~.,/LOtxv,m%n )دLB2\~wmR٫= HO$di`{DKȣ,3p%F;Pj ./ETN$,T~":jg3ԂӄݓT$F gŏP-!h7>aK VkuĄs΄q'ٷ%swR-zwF~)1kk:R/QQZ@tR3FkAgnETQIi2' T(FC8|zZ+ wJ-Wdb۾f1"A=w|϶>hZK~|{fhɽodX31q:5ElyEU,:8YHl≩@D?iO# e%XbsՊb[A]}HG &s~);[sM$op\YYzuo$6I"^`Q^Й9:^nGĺJjtnsy 3x3x;Beu&q1̪A } Qu1ﷁIrg?!kXŴ[aBmsw*67;qt /Gl&@~}f].h׶8,4P.(zFObjHur<â}CW%-^Z|/q{E\m/\[%ŚATFE$q lm 1@K}[|?֞k\@~9Z]a¯mXL3V$|2'zg\+|}$ƽ!fm'B->IИ mV@N*lJs>X\Փq 5A[}a1_ a"zSan aVtMl5#E_毤q ]AͯO#p?Vc9>h`dmФ06!}Ԯ>Osi΃7;c3YCWy~߾*VXn8%Y 7pD>SSW]&17 evrʹ5~;&}*[Ӆ c"m5U1aާen4k2Vr ;7}vVc6K]GI.x#Qw/7Y>5MR& fBwi]g =*7uPٴu#F;9G_c]2^ps4 L)}@i6`,BZL~jLBj7 R`u"7uG'M."qG"M M!%#Xx} 1ԀN~$B  ޮ2 rٖ$RI3 iG!*zێ+<Cu"B"` BLAn-Iy6Sֳ%gj|jژbl_eJՇ覮(=Uq_:^jAD4ըpbt[ ,FA]yr[CfDh <9x)lTop+LJ %?ܱҀ݃ztj{ӷH#Dk7Xt 9 %nRʨ佬x!:+Jt&J eI1:~EzGH [rALvBLnf>~ϙeS%Vk#ۊ=4: W] y\J(p H?Z>4ܯ+Z@3uzE<;ܔZ4u;vuuFe}Cej[Eȁ-o9;왃$-lO,o>i>2U-'"/ыpUHV=]lx{ϙjBjITLt^3HB5IKZg*.!xu9|ȭQM-~c[Ni/s 'lNmQ;0{d]qP 9=5N_\I\|ӱuanTBBo^#PtWIͿi^utͮeFmOvϣ"N`oV#}ZT0uG)mOy9Y@q.LWo9lt*/4?q[6z8 Eoq\&,=|;#`Anŭeo!49x¬M%E1*vo)yӱ[q%G;9s8$W89}H{IL<[M #z4&Ig'mF,#/i( &%K]t*guOo33sOV|>UF՚MDMJ<>Kd"N# z_M91x3gD;Qڊ3}#Z!0t=v\3-j"ɿ ODA6p0Tz&\sV_%[PSw$1W%+wmU/}k8N d1~ApH'iR( nGK;G#+Mdp/fI [dfL:[o8&䷆qQbZgsf5ا~ece0A5j1zY8y:j\;@8L'=fS:xF!jѠ!mղ \O8wwiu)ubՎ$[7ʌ_xKR9`#t{nATJ-ז$F.dH$K}==n 0>Պ:&f3׭fm>`]8dzi|}em0!++Z 6k7OKpWicAtP ur t]8#ꬂ  Oٹjd(~tsxs'UsfPJ}*\MF-g6 Rӑ\٢5LZ*0ڐY_! Sx~#l[[6\=a#=̼d4-5?].n># .ھvr­Y#H4+Dzń`FxˌZuZҎ{ ]22SCjJ& o*ȈTjHͻ$hڔCaxe"tRv~ P5B5K̿,"M> bj5,2/[f|+դf ":怜P"1nڜh> rSqm#g1E-7ѰLe>;/iSOAlK-bcwUv?brv+%8r(p̖0#tB-"X|'R $ݗ]S %;GH1q%+UHF5smMHN~8yC [\)'d'c.9xܼ4MsʴLY<"+0\%o2 >YwވR@Жly @^iA? ]eMkFsۙЯָagEC~Q`"F]S6kC(-E+ s+28Ow&θPǴMEWu֤ri<U+Y첇ƍA$AV oŧ$K[RjӧY9+1] =u_C27zOxJ{jbw)/|25ws9yӣ;bSnPQG%9Bj*:0m(~kCJsT7#;qGb'o|7Lhh8e8 ^"ʪWJ㡽*Ozҧ9dpT{c8Hr_4f~kBNos{$!h"b՚"ojSa*6$PuFW)vڎSa$w;$'˴5Qp)w!0լ6Buߙ) )cpft;eC'@%aN,3'$GӊDKmciV갫>+TB zbBn˿)`}O\qF5 ͯi'!VBMo W| V>mHob [6 Aד^gv}-iڨTۘ( & }=$~4@(Rw krcy2PL^/BdB]agxt9yX by6Q]~1l϶$V-_mZFJOq9-؜M<-39Xף+;@'&̚YrMD,*&!@y0~h}Y>VDT'k58 Qgae"4jܕ\cy{lJ 2)> =<.  f;g~ {G,c^0(>ѯrtk4]|˥n p:mQ͇:O#&csgoKC3~&_vlo;Gx"0 w\]|,V˦Ł н=.oj+.wQ΢aX_UA;OK_ߨ}9KkpHm_8rJ;֞lRQ<:0Z|ۖ|u֩ocXz1uԪѻnY|hܻV$L|H)3&ܵu7 ;(k[l;|R΂/bi:I3d.+AnjG= |4:+G;>xx!KS!I _6u@B0GTp~lvX>q*'ӓ^K ߯Z\Q+bc|m%t-:gjXfզ };z@+߳m'T-PE33^A}-A&q]֐Z#.z _`F;d Dd  X+s+ GʆT[%Wwfcd[ @!+Z_um"UD&Cf3n3PQ}wH0-4&*=ӯq&aLd^HSo vAmZÜy챲axlػR'mEMp9)SW< Eb:tS&-w]r?&nMnbƒ${n*om5@P4gJ5kYݷUy=G-]b7A[.tқl!&Q{8@81]"?4/5qw*-6㜪8){C\f=ւ($Ժ pJόT`jGk`[m#zj\/,g߿D=Es#WmOLa}=q21?=A@\b{u 4k%lߺb:GVNn=kStkŲ>{ӛ]H]c_4kl&;)>gܪ\+~F[_R.~Bxe| =n7Y3ž[皀b_cG w /QBfk#ަ0]y&l~"z9R{< XM6cxױvG7y -f(볖ѡ{Ypz:.ԛ1+uk+yf gZmr}V_5=8)BsGxd:16qR 꿓vt)Z̭%/( jbGyY[m=_zd~7렐э j|Vaq}4=,R;Ds'e)R|ʢext  ޢNyĺei0 Wѐ)@m<фQ&zAO.D4I9| S ? X,2x%%6v *_+Cza|8FJ]_ 8+90*c : Ev/ 6MXo5dgZ\ h eN]x7Nh";DF캻_Ao/]4Qw'ҽe$PVsDlmvÞ8Ue‹#O6? pɣ0o^:0AA_EE i5f_4lw,{*5@!Tg5u^֤ӚMSOC lB4kn[#c@ g7}# 3ϿPazԃh_@eX_߲zuAܽLq'hԪaFQzD-m iAy ~ x_9:V`H[cs`7ZLJՐxw[ Ծ&-+{jjz/-Kbe-yoHvb)U )!.iH&]ppXz8~<itnR 5"]u`V&o " م{m RrJ)1,:q~nqv4 lmb|T{s㰨O>%4GX=Ƽ:Z~ j@*5,ڭܬ$${Je%Uvr~n7b8YIî.eCM*XWCDLp(n,sD-wĕw $ V]e6g}%X.wwblN}c O_ga/\O]1VWcfϼb,U 453nۓU?j2C97;)GDk|OfߝgITR oR=FVGFG<~*r4'ױ՞,R{J=yb+-Wz}%$rj|rrj~XqߌPLm~U$ mtD;b|ӱU>ݲò:l{E`+d[n(;Y oM1aD9)[~x4 'Xr fk5m]:U5ZkFM[@+{wd6 ڭUhdy[hQiDN;~-5zf5kpfȭ$ɟax~h.gֹ}1rRVDžoRߟi\ ۏYdJq_`d&=lm1ty֬HG4a]jݧm3o)99fcs$?#k@)zyA]SYZ@#c1/X|O28($. Z-BG ۋ5R nV^:%Ъx(A'v2)NRV_Y|BcUif; 93}D4ӿ3dK@JAt`+w3lHbkѝzMk e-\Q2#t'8Sĥ jKeﴲDjԩLJuF_9 6-V?c(g8bjQw P,\Hn{=KWx-F6q5 3;E˨5S`>`gTxC7'"e?k1#V-؆pu}[[->o)\qLvFNiΜcr{E$g=<9*5ܒQ|Iw 5df'wN ^KޑD13l$bm89& P=!S~_Kzz#2/+I5$eMSlqQwR3Yح{܏yx{g0Wv~rv Qc.ș@RL &Xp-HSO!bk +,*\Þg3L\<tl}WYjHTgYkRGݵSwO2MX9SG8>LDS|D^L|>mܘ=oIxV'١O)Sf S0wl; r'+jlaE>]`:EC/\W L:6. jJ{Z^m>ZkIv\qѯ(M [2Ͷ}-qڛ%5Y`3rP_kGDI< ~J,qI֢%0:FzOX=[3J ?gApȯ|%NNmɩӭWQUMK Dxs͖QfMW$Eķt]Fh=A-ǵ/T㝸olz6P#ջN&e}髜whqI=^^<5Dև(..;IH +ZH4 ~[WN mvV3vveo-A\#Ǧ״~e†Ιn1a^r&)ӕsW1J$0m_KYǚ pfY]iN󌹻~鉰efÜM[уVX8ײؠVj ْ@U$^W A!v^?g˭Hߎ3[c!B%,m9?*޿߱Ekliո0{sm0!㷎Dmkr% ,O̖8h e nz6sj Cx PqLjd5G2G-{ʦ2UHwIvdDUm4a MڥU'i{(WWd"xCIz5:8n8D=nzEqWJTr~7@i&>Ѓu5gR 5)),{w6e\<˧IJQ'h-!57D L6[=vO\/ ˯ 6#|Z3v= |-їYKM$ MÆ5?Cv6[_~yd $^ٰ[M"%~"Zuw|F%״9SІt[pVRI oLW7r4VDlhTA=oFx"M*8)ZRHZΉ@5]&%y&u mZ6 fUɥGUa"址$bkpq3lvvG%m"It!F&G0 ~{4;Bn)()j5!#}V -J<-$^,;w-D$թ!mGM:3Lb%ZTa2d:.Aƪ}zE`XkȏH'NYmyy1Hk|FHݲWpc#E͟'ܟ]w)}Z;Dy)k4e4$HA>]ʌaF$GF7%dAS>V2n!  }iWZ;Z֪Mr`mk`)|~c*cS_u&ƈv0OVFc\CPütIncVA)^+QfBx!FKR5X"Y^u 1 O($s?4=A=#Q m_c_3Q:fzz ;iL/q5O8C-+[}Ӂy\uv;1B=ĦmdV9Mހ-5y}.\ߴDD֞3&y&?/M=x 0)~Y;pX.TڂJ/ ˷a`W]\En6zcOuoD\Xv䊪R`P~W $8VVs@֌*%\5]/LQȉ%D@,¢ }ntb^>R7 @ Sąź/ /7zsU#V4;^rLaB]rsQ֏D#Mw~nly?򲼓3)Ͱ*&"q!WRm ~m_Mt%'$5;DJ OϽuVdŐV mȕEo W59Z<a g]/پC jR&??MqI7;j~cKX{˖ u|;,i JhqNmΨtHsOҙka?IB7cp ;V{)DmPs wWl{ lN©̘ͭu/4noVs7{"s5Ը+2ھK~-aA!wz>'-0h+ntfW`|ʉƥ8CsάGEec7ġpͩƷPMS:#+! 3xp B}nE!s8K['i` wAR\WIgD*!ن,<3pu-ʙ8N~:H ~2z^ȏ]}YC=Y^~7"%Q|v.wYap-- vfJogJ^[c۝}2Џ$H8a:Ta$Kw̎hP$gEvVHҺyObp*s[p=0%s|> 4' үa(jsѳ ] {!QeRud J}a`VО'F^[`>VaK:ag.M }CeD| 5|b-܆g6߈jAfW'2Q@5La5πrB}& x=rQexڸLD.c L8LđNcB(u3 BЎT#VT!@м\&JmI=0#'ۈ,Jf*MBD;YM)c.0zZ}9"(a6~=cu۝L6h}R_dL7AlP͕^eo36'Y\`ER.o}oń$)Ai=PKJ;åF(c( ?_n=A * ,/^aDMu|z|n57>B |f6PE6oJgEar KW)7k%1mpt+#gxX,Ldpt^c6`bP;l{5+s z{29ĵ\zF4ILZ!vWM"Ic)ba՛s{:"b[~W2^3fݹ|~"5=9٩OOHE7ߑIPw ?`N EYm B6mG!zzl(SO[yn*9~=cP.XV@%e=ܹĂN4DbD|k X%Lx..3 D36&&S]xPaԚAZ׫{o!2~K6; xy!cD)̵%K0ISQ5YS'}]{fM-[w ~kvwd*O8@'H\J⚽m;,\Lxğ̰JRv*KΈklgXg~jMJ.pM'1I|O_U>Rܼ[,K=I !lدv'ǯȵn@HeMvK1j@hcmg>3?OM~!L,;| e0:^tZZPs\'ˍiivoA:p#_q[e?-EvMCcd|1G͸u3ӰmVTIQAٛ aƎ٫)ۦo KvE2cIwN 7D8q繆H=:~r,^ʹWٵEEfoTtHZ2@պk,{`Y8\sńT#z4u1i%m?jߡPNmڂo#$R+=Q5 |#4OK; ۈ(h[0֩wtɓJdSC"of]P:liɮ*Qb`uA$k.BɋuIHPT N#ӷV넒mmI38֏)|"?[`563n EڑPMV&N"YiO- @aʡek(;J(:Y$r [h>P=W2lZ eXϾ49D(_w/ĺK#|3ѮFsUqLg'ś<5[Òg*$ q0往9ϞS|FzmD.ɏ.߿^m1ՍgfK置_?uՀB8Zl&>wlTK'U{m=g }XG1L]E$sWYomXɳo[OtM盈mJ`qco*H2jH0"}b.رv.v5a"@Kr<"vw[.ykX-^#2x4o6S[B,%7ǩկ䛌;wCRo22d9]? tue#!2_v*'%4/]&8: +I2m!l.Q7>i|nz>l.qz:8Su-peB0pvs{L\)"gqKӻzv}|5{8#P#"4AN2k|ɨˤ5wct{ %G}b+ ܷWOho?VM)X`*Ԧgo{2&Hܓ@<,l}o?XZ5\f_El/F?0#3s03IMq$C^wd- of#L%Up5M40S VV~L1@h X<]lpՉ,G>zVvc/X" nHi1")DXILFBIl.r| U'3ߡ:;GvE@J(z~3s%wb*z)kUC86 _L iծ!e𲒝#gĐ᜵xw#H4lD߯5`Omo|[3q}CBIdUõF(ňN1-AC\iy8굠b#.*~ǿ/+*̟ʘ_HY5la}gdXcԽCҴqNݑߎ)r,ȴbw:G\x5g&Y~l{ⶻ $м*?5iV=qaۆ.j$`3DkYdwei+3$'ݩnL5} jG4:D{( hKQ?HB  ߄1&Ni{˲xUwi)Pk|K 3n1KǪn; fŶAyS47.F*+89D~ۙMV1\r?HDLggzE7h*ޒ ^mn"oݰQyƱ''֍{Hv kHd-WlTDg ,%{nQ~o%%qz! lU['#H6ۻv] uDdϘgQڲ2$m['3zp!38!!f2 `V߱Cp 1fw;eLD*HBTVk tDz^IȨQ#yڜrD­C.8苌&ݼFkh0kJ')S_vjGN5LX%|g/1 žLWy.r1X ^QL}5 qA{0O A@TF gR}z`6*/;IG_f'XOPDa ÷L%r.d SbbA0Ьw55GYK\h_wU3L$@I] giّpaj{wX y7%?|$xA vʉYW=%*»R6gKBԉKv,+ףS;궿" u=i Z|ݺKw>+\(E}qB~g1# d_s9b3+\\g BH;(D7[yGiIǽ4^1|[aNc4!f6vBjNKhݐ,~3:D#lĆX+`hKijj0[>K(ͩ5 _#05MV{nxs{\KGזNT=yýo\JeV[Lƕ:mTג%c-ric:#,iofPjgŎaV\߁֣6m 6Bώ`wu=SO;WXE4=#\2{<y  0+UwHbp0c L'`qT@D;7Fk*}QpJe[\]|] J7]gMw'^?MdfkbsTZ1{A"BITYCӶE\S?uJ0V.񞸚z~oI:92ofe?ŭAH=-Q_*]1An3e4T%gYgDY y[UAu^YAk H栵:q;j^5YC)T11Hqc Yړnyn#B³!Io\&P=J* [22i#S)û ܾI]>%J_ AWS2`Lha+w}Kd[9lH%&. (CG E;[Lz>KD,8dM'EƆ*bc\1?Y{?)>Dm>~#x($A /i, J ]Gqml,Refv8v7"|us‘9&H4<봪^FP$I|_twOD-ͨ#[4D_QG]%ha-+\Gt =Z`J% S*m4"-[DP .riPiM7¾J鷬LuG cr+Vh>tƮ4 at&M<ჽ,<)YSd67%;]Iǻ`o"ТYxJ^͙G#2e0'gb{9N΄uoҼR`ħW325UO-[xP%󍠽}M̩0'#ߙW1>tj4@l*KYXv|J/?}:RQ[2~Wdy("$̥ިʷmmYt6: 4s }[- C$uddvp๎n@'4?xIfJ&x(f_wJYq'jW7>4 }~/|| WA0w0Xȶ6jFs+һ~rzKUCv|Vg\W/ʏF o_o)ZB8cwha|P3Q <aŧ( ê?dO\ ֥=ќIiqeKP5;Z@$ ٫|4$&E;XLz(&0hr}䂱(me%?0bƿ A"x -GϨGV[PP7#t d @3/" FG\[}e4)Ej#_cGtZ£7|IU> w1'x <&Y@E1ptǘ=_9H40O[(L2щSbRS>K/D}x}bdrQ ^u+&<`w$,X6wb?#n362s(1gK!$U-CyK6Wkz 53=r; e,si/?'qDY ] 7?(]},w/ 5I Lw&<`4pT_'4fGkTy{Qd0KY0#(*Tn͑A]%gkzG p{'6գ#LqJQX3j*", UƚIv>{tͣ9/M)p@_<:f[3`͟Z%!Yx2T-HP5&@ 8opؖlIu3'լ&hEzOO6A+9 b{*=gOU"zd. 1l|`gOaXo5Wm xJ*F-Q 76EdgwYOӋ?3 LXSWufU¯x%w8uG LSbq|X~7PAܼR#:Cm64OxӓJ%&DmgTue%K{weCM hS-Gڝ t'<]x:\ҝ*ƆZݳ7qQB|!6ˊ+u;'1pRx(ݒZ 5V`zP.~uE6I*,{HhRGűg%ges\P]m{/DU+a83zȯB]yN)\VoxeCT[5 '/s=ƿmCuM{HhGanl͹5<#RRnDNʓn!j aHZ0,5̜4bpUy_d͒wMvwLm5u,%YG{Ҵ3ix3'K>e&;3ݻXYfU˿fjE!}#C?G5`z.(%!gal@ NNQxkҿU< Ҡ~;AG5yٷQlrBo9{?:to6#ďZ|OVϚFJ^`lg$A`#27PIdfa%?pWr" FRQܵȯ 9飁Gɳ)hbE{Ek_磸j1y>RQι߅YD;>&"KBqJONqV$۶/u2J-E߼ѷ3>8пO0~DNj9m25D,&Z>~=rW5F,=ߢΛnfݕ/K)6^,_}ksN߆Sukxj kfiۢ?O $M=5:. ~F50|("C cjA_(ĔhQ\کT Î-3{+? {lO#216M6n(8[ 1mSh[OZGBIr􋆰*yyZ2f/ïߕl4 $yݵD-sIf\Oݝn^{R;T[ަ7h2>Y_U*Ql_oɴcHp4NBed/kDk џ}˜45Y-] #\"As(D&onE`/9˕<,Do14Gry#]9Ym]' F`" Ĭ`ݑla~G3}' ΀&` 4b_fGT|}08bNI`(31RU[DZ<͆k4C}u}1BSSP6¶oT}%x-,U^B'Ś-6_ou,Mt )ByтCRT6n(0֩*  ql`|f\1OL^V a1ƹH+A|f>u--Aē6ڷ5GxOS|%3w 6fx)~gRNKrHkj| KZȏ|Q֝eKr%z~(0e}3  OT#q,qڈl_`$@,`?7-A~feP~ʁt #)!m|;-5_oCya |'r+1DG!B|C,=+B4[zT$P`uw|oI?9=+?0"=ézHhyI"fQv(qX(ɚU ,xZS} j9)Y fp*+z!,A!̮A4]uE}0biʅut/DayOjL2r0dƐ?ӓ0-&Tb$FGt?# {*x%Hx^@M4ߑ(!FpN~v piVmuE|^T"ak`ūHwΐfOh6f\_71ϗ$w!/t`B#%yvL]c9fN珫bద޻hޏi~i."$|p N=[}_KPmJ;N|>r NmlF5o(b0}GJƍlѩaHuLߪK4~,!lm;Ŧ&ʵsYvh)Wm|Aޱ`m~󎼤NaoFju C^e2*qܵ}~_CҚ Xjv oMEsBȑ;,!7̊]qk?% ?^> ݙ^W -+ttwLquM_}(ϸIlSN^%Ui?\|w=Os**]p^>K[-ӞE=uDi 6د3_K魨B7,r$wY[<jDP/N-) V y2,]Ώ lt182뇧GL9t`W!&Y*&59i)iY]o$3c]e 4/ͱ"zNߕj}Aۜ/XO~rǖmu2+57.ՙICqwp|c߳t'yi BҸ?M5jrp1NBu3##ědDBz5GBLcaH6'e_SoT"+#3הW8ֲ3|IhYGz&qx]0*H[¸D:gK,_l;$ [5@ͭMA4FG(FW%I7:dqd<v[S{?!.+q5J,W{uezrDcݳ-#YYjgY_+Оs==1s\%X.agsؕ)I;bΩ:^ 70=nH'xK!xyU3މ8_D.%Tm46 ұyqeYUlJ(*oMT+n8""و=Έ:nDTK>!$KBZNei JA9{H#DBֱeYtep7ʕGSH@|9t ݣ&H:,&;}ֱ@hYi.&^Љ Kt.+|"ih=l`ץgG6ZbOӴvA#YYߋ":s1D)qTlyt`%ʭRa0Ϗ:!ïp&'dMާʒUMjqڨ"At]b Ũ7nz|z#DH'c qdl0uMdzI;p Y'T4UcyH9ս&u8'C$,ERZзء v^) p{8 4dY${ ūlD1;Oxk@諅8$1j-T'%i dt]T,}Ը&-|?GυB1tq3 Tʲm$L~>$P} G̚'} 4}={'h]4(25d_R?ïkJ̠naA^+vٓ|tGT}{x;ɣ~ b!]6҅VWG&nN4]W d3]iDB6xmZ-zAH/72)ӼR=-Th'k}Z)3tO'd[Gzͱ4p2Ī'{R}ހt3Vl8@mJAgׅH}ǟxfZԣy߭v@e.[[Z{֏L)ICNQےхwtrt^aYs;$8aҜqN?,m!4rđW\V3/i'MmФ[uע.>jg9Kdy.·sΰ]Zo`0gIevv:X1 P5:9țÜ0(RΖf__ vʔܨ[f!IePpӆIW5!OĞF\F6;B W@]d sh|"Vr${^GС=ٽUh ƒjԁxb;[69?a3ٕ)E4OݫzwW'"[E@+RH5mRunϑL Gݩ1U8[M됐rG~\im 䭯E& 9ڢzbcm{ |9NA|e"* ?56vc{5s'B,Q3x7,*xu&sNlFΝXwlФoY1ϳ$;?er=~Feg{J[#UZN];Yʡ6I:T MEd0!Lҭ5 *F-Wt{lv}UY+;3LgwbEOMqUt:Mf<&3>,MyƂ*{?:Rz#ެ4s:ξ+uSUH5WzWĥV|buuYdR' O=:vnwW{d3߳wz䘚,am+k<.袲OP_Jm^|#+' xB,Ɇ!EZ)⅝Ir3ַz e&7-K(0 `t<8|WolNqvrH|heS&oG B(g`5B=]*ИT˯ fn?CV:ݤ ?,v UҮ,Nu&t「}[%XB19H!=N!vN&dwC.k}<߷ 7:)s( HȠ5JeĘѶmΪo u;!','!hx׾v$u;d7JV 9^m$$^޳ڀƢaL.Ar<.˾G8GBZ)cN1DŽ"p]>lV;j̡yeT-h^'>g`ҵWkFdyipZ3)޲-3ǠrmXM9%604ލ.|uYBA)M3"DZXfU]g,qj+}IvY5;'x2ĵɁ-~)jٗO>#JhBz)yEH v )NtH;C^x*!q(C>R坎}k?1~V ]W}uttG%h?F0cq->eraX!i ^/B̒>UwP9wp7]+Z&s03Ld׽puwuӾd\pka՝4QʽWfmLwm@ʫ+PZN7뺫Ln aP7WLs D[IR+ͨg,f#I9S| 3M9C쀬z{O~&@sXɄy&K"ceZ(?* R1*6T*a[l }n&.`9; %ċqMϣ3鰿8wq5a"ߑgqY 3T6)ZB 5yNI![FxK{,Dm ̮Qt>3nH:ҨNECC{_aXUx޸k+|zcR؂e;+gH{Ī4B_8CE쀺z %@ _͕a2Q g͛)YjLl~vysコhY#[9K{,G<_f!?;~dC^J_-gr7^ϔL*\8I*ݞDNj!Lq^oҚ{F8~ʣ}77U4 UgnȔی0uxw\eLm󖠩=FY"ig6ٖ|c`t8J܆~s~lk&U&؟1֛IӠ9v+rsJ૭A.116byX¿d$C2[Fr^]vGXz7y,q߿#28yY(lKQj`rc n!O"6NB 1Ќl\M>rcnbEflg7,sJ,6'G%^yاD`yKjӦ5{~MC̍G7$@)b׊7ٗ8+ԯl p Ȱpu:b2PLGZ%!n6Lt";Locu[SdwC8 HyҭQ11N43dıuL&^>꓈36=0+\);lO[0mO^u(;?֏eʓ_nzB QQZڗz->C"Pm'L^-m] uS ,Գ kҽy:2 SzǶV ;dM۹V׎ylf$^Ӑd]XL_MR`d8xm->,8wZS6QMG (eh¡hII]=S*9eD<7l(/>`3 /Ռ,/;wSYQP>dթ͌ ,1Flq$w7?6Eo_?{}AEqw lj6]!}_$_Wb=܋uڠ'g5ZHi 4oLr\`]dP' 1 _3XfYb!i4䁣w0΀`f:dCASWKݧS_/Ķ(,Q+h۷to:g ѫ_UU!X ͯ ӲkM`hm~bx cS5B+j"z(5-M7 !h/Mi#FKw]g r/=H x8b,ޗ:ic@zn#0Va϶u<UJq5k[nP\&ws*ibܮkۋ : Q4Bν'::qWlQH(jVRDK$|abiFI>L6UW BXᎫ6O%#͖LXm[nq¥.G.v u_#ġ\9kOOMm^.jHp轖gD:k`?tdbx-I۷wis4opI1#%D81%QApֹ_kN=9V=f@Rϫc/l ! OXd7b,YlQV#C}gJb^I P_.qLG]fX}6ÜFkh>&ʖ8hpaX7S)(wK|59uF}' w16L}!`l=' 䑁S夙}5l*yDkUc{Uk7ݜS\Ώ@%. [^Y*Xl}.ɀ㻻;֔:s+U .`oL h5.Y@ |7f'͈ -WHa/81Q'j WnfRR fNNO$gXyf‚R`lwlE|t}DDkg3ЋD-adwޭC M~tK E_O{!DHfx7$˾hIbϟS_T;V2}x׉ } L-gFn6%x3Iajg1Xn\: w\,}(iW{;OOɨ pZ3hY+U'ڪ!YGĔK7dMpF9lySoVfK8y5e 2|fT#dz_IJNR-N PnjV>*5IxH90;e1}[H"7|:s2zPx:m߭IjBDjx /1!;T:F&򆋢&|W SkWwheM,4TwĹ&RȤP.2{[Th>]&ROӏsٻXsO]' Yb]lùd]Hdҫ=Y޼Pk%Y W^!&Y'r;T/5؈S)޸q3 O'?\8SBgl.|vðvPh ÆBOBcL6*3䓭c35bT44+w$i }ȓ3?P}; %58Z'w`m EX.N;BtYX_(*џG[h=xuG%). ^| i#;2酲^{[ <#flR֜k"3KUt4 [TnǢN.K2li엵z⑖3|pBo;Ȼ EɰB){,`W5zE dwVD?Y '9;3z(Aczر9IMuKkыm holTnc3$#@J=M!QqC 8śZD,=LeO'&}OnW aC*GmVF+ &M B69) 3֝6q3%o]薮.9˴MeT2A_ih7&XB ׄ?3$rCw~zjj#d+կIvS߿m' I6|wmgYmHB2{㘉rXhX댟AOn>opT`]WF!MDUݖ0I4y˲jɤl-4+K?BG3}%-qU Z^ !7YBjS'f}r*onN׀[B>_iy% c?FՒxɮK!0_/rAh9ZyX2/Crޜfu6r*lyKO -& ׎w4Q4, =]Q#ьQГqWt^JwXAZGS2.amXjo,JHث),n\|s][N \8AsDӼT`dTĊx-"=MORrbs=R4XK.3$9ѵv";m.sih^Cؒg-cS )>(u*I>Zky%٫w9mUTB``^u̕ nQQPyx,w (9@pM7/aLEy8D{,Em&a6m)1ãşZL4ehKGyG=]:67yqD'A곻6ƯBJ"^v%2%ѴO-AxJNՄbE<΄5|ֺg?H?2q;y#7ysSi<\8-ՃG '8toˈ~yk~:uoKcٞ8&h-9.ʅ}l޽ u8d]F] Lob5гs '3eQ\W"㙧̮~ڶ,˓t'/t0[ʐAg&Rc7SXʹ,ʧw&X]RH\PWuK6}S]'kg2:0: @Nvҁ{Yg3V_6[ހ:b63|~'ZwھY}WkkI\ƓW̙7 #|oW/S=XnoNǭu)dFJ>Yռ7taN4< )ݵHRo%\Z*f4D5;owrtNٍX(M"ij*cZ~dFu72 ha\:xFfX d],30ttכ(5e (D{\z3q1n{8گqYu%Wٙ}`~"¦dm%t O20嫎Vr] 'zsrb` 2*X9)536x\Cњ*9t+O75D<ƙ${!"ܾq΃Z('L䢯+ h5BtaD޸94 iO))+ /Н;?Tz->Ϩt';~f4$ ~<QĴ5%U 8޹Cp'xߣIw>㟈PtN0WVι۳qpeg-'$ԑ+#w'tSc*X!P֮! rʺ43 q蔎d?Y=Bg6/[a/!*J.a7:֢K  8]S9z%QĊL8hD?Mo,~ ˂wY]*xsUJyFKuߘ@OkD ?ʂxHU&I~p:H3rm,r1̞١yξC`X=GwxP/˸v#=H#&8_18_k''t阞F&IxHQ"LF(PpUā91PH"d 3R1jy{Oi%tb0i4=޳A.kfIy2Rtbk8T?SBTljo,qsgڶ429Rotzî!s& rK2D^_(mXP|L'$Ub9 ~ؙ<&fz~ /:iy%y!(ƾHxol~ IDe/Zfj΃jz݇]Ǒ&š{< GD-{X8,Xb5X'߀&ۤ _<5v]x>73=`mp){I k€`ox<ԗɓ}̭5vH  X܅)ᩜSE,xMϒj}X8U9Ӷ܌zF_-l9PWog6Jz%=nJ |@dHMU?wn8iqҁ[;,oĪ6H>גx-3L*}pJH«n*)4q+g%I|UH{2͐s1@ $S'%*޶HֻF`2gemerR1~4<5kxu;LJTK.C|[/~} (wH&B L.>\ඖC *%g"v8kKTNs5:OrdKk5^gk%_9I*!V?:I^]:6o$f]aK`+%B<:|ݨNGuɴ!K~3T_ Ʀpd!45*R,F+^>"zc4a A 9L=F-cŢ|s&Pj!q#HT^7HIVSvD6h2Uas65@+T8"]6EmZ(DQcjnO/#z V'!dȳĕW9"10;1 s^4l@b{Vs4d!H.i9duq4j zF)71N9$6N\-W(|=-ݳ "w4.\G$W£/ 9 9ZLpNc;ɤlx2w4&mEWyoؒӼd:c :uyDցY97.o6P؃kh gSvg߿ޑ1}vL( DsSل$Cwȕ`l=]VIY[C= D> g5"][WHj%֠NK:_d8Z4&s4le!Y>gGc. *bOZ;=i0kAjF@ydqg8=s{Kʴvbb&~ OXy _G#Vxq;<0o/FXĝ$wuNNVqvKei;whM} gb s:7]:0i(d.XNus}~q@T-bz(o -SRbRdu[BpVz$hь{!7:4Bj8p1k.Tʂ#~8I mcu0y֜*Yd-|نW*~ONLw7(VϿȠ̼0gn!Oԓ;A;Z]Xt̜]x5T gO~<]e?ay[002!z{=5t`Kp)Ty7R$h[2(ʁpu{YSh1g2Eu Tk]SbwkZ] #u!-M-y17Qbbc>EI+9;z1^ϓCYT 6[dЅʿnl퐓ͤY"I9q.i#)ݷ q ?8%yY=5Ƈutb.E8,ኢ>=#8a*`9߬10#Kwm0HxjeV LHU!%a9(\ꓲ,9 !q)Bnk8PΣwh Igә_y3378r t;NiZSX+ #T.g[rSuȃpi w j8XFL|<(,}J7@cLF<:=D^xxÊINy.~\&n4 HߖBz^BRn R\GJ6^&x;fckpyV嫞=$BNX N2t>a&:Ng]ǡAAbۓ?\0胕a.EF9sC?]C)L#BE-<v$y" 2HkytWtuKrLla( c >~$zGUF Q|M~;?ojOoBt'ؾFIkjAGe$FO Fd?Sk028EZP]%ls-U #ڷIgG4Ԅ|jM"%m3^-nUC+v^ ÉtDQ̟4cOlBܴuMx"sJlG۪헭! $/ĝP}%"r`Yf,eFw4 . F 2X'~5/E|;+l3q8:@iPLcQ1kWCJӻT<}WW`ֲړ,j]#~9]?.8c i e% ĥL<9-%(o[ne y?H=qt5`ynO/\Geab;#L;EDjWeؤ Gwy_?CMeovdnF4 ,N# jF:VD'#py}}2%:LIÒ@v̜MJreBXm]6G锳d'ѧ17SRi#x 8<GvDJWm\d$E.!KrHy$x֡u3\L\u(`:pJ 5 +~tOh$I#钭9H(20"WNκ%Ix}pY8hx&uꊴZk_{s ^-xt(Aoɋ)ŮB-K#eWIB&S!ˠy%ua;RAԓ@td"&Ԗ=wʢ}C+de!y|7 u&F 5JROD/}6JR%&ň#LqZtp]P :b-]΋4؆6FJnxmj"K߉CBP;"P~^?:Y^ QHQMNt/5L s-b}PH+}6@[5D rZA`_5ݩ_2W KvK4kyYY2^ְ閙c酆ZKVe#h\w`EY#04s7y3xn"!ٱ IK(4yqyFEܘJuGSV19;|hMEJi`{*B+z/ϓKf5F?ON}s{!') wyR[?!SR̀Y"sw"C/ C2qni)hyA+ٶ Ow滤C^gsi=sD%̐WVɦY0.nRK[dOEV BRH;o:عuk>]lS)^? y`dw2.XxaL=P vEz1Rj;~ڸ!'=Cl!Fx\=w \ 8ˇ}/]qT mGt[i{s`bJ0')pl [8K1 W~Kl.34&8B n GĆw4 ܠK~0zzÒ|h+#aCh ƇVQ0:寬+ajޒ$䷋BG'w+B dqͲ[=rϨS;qcZzTxUD",?5"6>u"әבc[>D9EWYlʠK($R-ii(w1%cAvvG}q cv"i/.ϼ{:!=N<>g%W>ԟ2Kޝ [wS:8ćP>ﾆe館oL:{2Øk}D6Lou)PkYLy5:\ I/4߲D =YӚUx 'dp xͥ{;NgfMj4LCV`獌G-2pzr PvmV8TV>'ꁵ$KQ*< $:\#DSr80<8B K n)߬d,~iNlBSZ3` ǽo 7ն$g>]61%*5IEaƻ['G^LXpRoK3??ſV"YOX]dRQw]ds6qA^ej%%ݨ_ _ 6 0σMGA}nL᳕ޡkf/8,3և}PgeEs󬦼U!4Fw.zCzbd xuEti$]J5PԭA>$K}m8_Uc dWܻSyLhu@UCf$H=I^$N"ThW 1[(axUY)'%¶I ~1Qa.g 'v63rDŽﰀQ1̋l9 OF8krX*yL&HO$M:ix^;x՝]Y{9qnLo4*+wEpD'w"ɫ0htck,0[Fg,~e"\Bsc1zi@Sc,0DЙ!!TGJ͗g{кW %gVb,({Y-jO؛}hTj7x5UptVߓ[Y32qk'?a>#Cq@ ɭ`Z78M٘QB_rڦQ:I '&\,1|_QeQ8u^AE35vlONŤu!se`zLR+V~zr Vt Ѷ9ID[A$n݌ wbZ%;jmYkg UOx _tRw͎>xj-HO\zDO7'N@Q&JUE9?[I`:/!ei[Q 'vڎSZYw9H{wa.V֍XcD?tcوɺ67,(wmokJQ"Tm|;'>2uwVА?-.&\T8KE&Ks:pk a'l35Z#k|dٻRKͳRAr t6q'fm@9n#0~` UשHgdK6pkG,uAˈQ ] alZa%N[+ʋh2H' Qמi^ybpFp=U_^ ഝ2U4cp_BuXXW~utxHrv!WM!տ{b NB7yOfRrO& @as/BQIWҤ.G|Ճ3[2^"x$]h3gy fZ uL[ 0M*ӑco06 -)%[x"#L ۈwtƋYDvv_ZmC7YEƸ`/Bz!^=fS'yW>NfnBڦ"D??5D|&ڣ"{0#&O{G<$?ѢWk|9^1ڿO{ɪ-GO_ih xxy'b(/r*gقeSOq{F2俗%u1`i x޽!GR?]hӮ9ُs{KzE" -$¿5{$-Ũc$={beK:7ӣ\}ksD""m2lHfi4nyKd&lguøQn:)-4kkLp|qC OnY5k?~Vf`uءd݅tC942 Jpp´.j;yۿs/vjϬHշ7$:5{LQߖUGpUt@n6:y{AӧWu/ŭzV0 _d_VwFۢr] ^Cץ2 5iRqxy}!E j1`9f_ꪼ2XE]sO_}yG ɾw/˒pU@->MU15Wbd:(j.Lic.fG e C_\|>py5-*]Did_H"2q8$,pGOff^t#2dH0]h+69wbw+'/n#R54h`.k# [L7Mտ\m'i2s'tBAGoZWuhCdc?07~q*2PP(xJ|-L[&W - e*`_=2{%ЄOR"X [GD=a w)dґ-A$f鼣 m*7mҩn0l;1~mc QŵUIRƪD,fmx]Tԓ:=|x2gCTN{3܄%5>_Ą3WOf0눰`oyd9Dqކ;,P%;sl/Nl$ar{,5n5c%DXWdZv8Eb;7+tJMe 7*_~[gqgWn_wܵX 'i l~S^^] N꼝dRZ+-U/B-;w!Haոd GT^.8֙-hˬgwwh6O<}'*tv^8yMԌw?ZUVRg*ܹC+P`o(h$ <׌N%6eBr-{wp;Utv)Ja`I[Oq_hdgβN;bdji1a_:rMi ?ʠqD O וj9ϦtxT/ ":tS)!t,-ã4PHw͎1{8%o _z5+<4Еi[ƾR?_&慣ޭ˃RܽLjyiXhuB)TJZVz'6ִMl(F1j޼tG~6jGͲ}zc2QtkfVbZ{ zIKÐ5˯8V (7;=[ݭA ?S*}TZ C%(Kj@CG{.٪y#ۧkm$H c DCr쮵L7`}g]t*6'Rs驍$3ujXo):)̬䋠8oe_%wUFXqq*}t˵ zbQdF0<>Tl=㰙󚆮8=7ݨ^n6rjQ[5^@h"ؼV+$rs pc`/segL!T QNs4~#N Fu0!R|:uYQ|gYILjo7B7(qә@-{%DG\{T{.59mYGsZ3 }'{$/ Pk&YB0,Yc!$DF &(Ιy[;v]Ê_Ṻ#ᑛ*{֯:FeO&U@0Px٣հ[q#$}39PQ IٳYH1 e<$R;GЕovP&{yXz:QsxemT ^@j_$ȌQTg jgGMZzëC…<#ԑr͵Uv4} uUjny9d{Cׁy80똢|JIl$l4#Ѓ{1Z"~HV a_w~ʶ;LRϼZBXY}W[E}W2aeBis%%nLD}ṗowOU$OlY&%ƨ){;'5L4]=1O Hʮʅ|>d@ c &}޳438گt&u[iyz㪨[}؏= x_eq6G%uenJ&n}M{i,Rm?m8-A2;|cT}@іJ`MnUfg&&I'lJvLFl^@y#N\(|(㌭SɌAR,v`#oC˪VSscׅ]x^Otl9NϞ)<Pé3O:!^@{N=iFWf y}{o# |GG8pi/MܝIonY=3 ݟ񚽂}az7hđ`͌`a)/l9GXz xZа7 gA~O;,i$uo= LF7EaQThk&5ز*Z0K/Axyo ̸Sf7~lkOp%Jovv&lkl1\-­kT555OVBr\)s"ݚt=9 OC%YZA#T䍷y \k;Ϙ jpBT: 7Kl= Nzwo6:);UEz tR)Xҿy?|I h[l'u- B[ b :="Ȝ(ߩuG -Yng bkLwHkx~#E׭',EO]ƻ{d@ %m:w+Nfƻ/ZO쒅\=9<ߘdٙO%c;2AFQ:[Hdش}B 3AScێ- ^t!Xge|ۚdcfHn'+am~ NTALg>mܵd!%X=YwٸkCH$NUPk*"KIָO{ 80VDݸUt.*GoJ1GuT[錸!Iń2{3@H@};᯾P\?;L.° b=Us>E`q@T U3LqFGHBlhoR hf%႖N>@ZY @5e3 4BWQ#I{0=t'I&[_8w$>QFk[YRy/TrW8}/C3ך3^7V@48whxQ'Q7Q,;O+>Pz:0bZ_ +2uWd`8:킞GbDOW'&?{S~5_&~]g6/rU&Pny϶b2B!lO.Kc "xitTUr~! F-eʇ b\\ Gj<(9kxn6.y S% !ߤWCȬ',"D0 Rlg]Sosjm~݃ mHtBunv@&n|g/ vxL,;F'z>Ik56Sj orgw(&hhƒ96Im=m/8%W O!]+r ~meNOB?֐M4B!ƻL+gcή(,2Ibw} FLJO!/Qe2l_H&UE_rb4$'Q=0YuT "+_TM򓼵ѽ'GrJE^wMYR]k\fgvc@,N_ s}sᩂ lm{_E ]BC]Joңv|pKj^N4cݱd3h=4ܨ(߽ɩLN ҙizY0{$\T{;GbhpljN$Et/zǂ`GLBO9IMωgF-?j^Q-v#8ʣ:X~S[z Zg q d,AYa MilwJ|hȣ#/mZ}x7[ ݾ'"JH Buz,,o"gc4[u}џ0T{ ({2G5UK!x=kq$3 I i( sL@3@ىu܍,zslK8U`kHj4KzBetn ש5:#Zeoc*'`J{ ɣے*'&E aYE]'#}}+cFH<7O2qH34?eZG+ L,JHeѮ-3rMؓçi믮 ntBq16M$L P7‘'cRFUk2U:u-pK)+LmU!t[kr~Lav$D 2.X6G|6W"T K%s}=3`|kA,j1'CΈ%YBԹqX 3CI=}V9-5PSr7K]W9ޗQTWb=Ζqhv{GRYd=e:@GZ1嶺R$Y;j@U7MIlu5^ZD:)(qfߗe (O]kae\{\=aZYXVtm_U/fP]Y\5OBi:)Di74!ΜK-:}u*םRgh 4.d˰cF.)MkvAFR>2F{N4*gytm3+5YT-nHK= 0˜ vL(G3"1>p@惡tDb]eОX'syʥm<:xu)C`m5yNeqO"lkP%j"3E{1%hȧ6|V\QFb'8 k>*ٛ aW;i/Fa(}Q4LTr+‡U/bEqXN3 QMmwN3^Lϛ轗坂FG%`\#3CzsHfi*yȋEZ+9,/bXaIK:d; HRѣ͚W 6vd5I{R?l5$BП\AD;kMRɻ ni*) Ւ-ydܞh:M nJ(7–&)8TV\Uw[Xй'ɋ)/()˅5Z7Qk=s9Z.CBkQ ۋS1Wn9,f2&pfq-bvI&sսjӞ0AeTmG)Ek[pCu:ewxLĿOiܓ~I>[Gf"ȥl/ W1:iybDzI<[4h;>WQXV;v-JB&qP2rIٲM%w8؄W:i]y%[TnGөz&˅k>[4{6*Q23G!(_Wl,8 4/كJd+5DV|,Le(wӕ۽?D#a`]ΒeX~$m@(TN|[\>Wc!' Iث)uU(wܓǕp,2˘Z  e$GRM&bkuui8# 9@I]Kntm(z+62N+BqPDp/(e"'H=qjdsh.#Dpg -4N֧$oTGIh̯KUq⇵oE7ե!DqH=x16Ą%R#BѡX34V"cH N@x'][ҟ${HG~LH Ԃ@K"tjz|_{p'ȹkX74>Z.Zh4az`2&q#IuI$;b Su ੄&ނNV_p 'P^Xa4h,%Z>}k^euXWjB;ڑly+re 1~2Tc@}7]5bHu:C\U[G Oм~T1u2!'B&45g72;]ɈݓpNt j$&O0=n030$=a azt+5_ohmN{VA22M]G>MP-`i%yz B򫿗)6*(<^݈N#`U<6gnoN"PW:}Puoj_UM4T$dTz~uʓ'):)Unj?h~bݗ t ƯG_`o#5z JL'7a =5DYaW9ٺ&uXH>M;6dSGvq]YUUܮBuS5uvMPe2שԼ>#I1LI{Fo_bOD 3==Z+T2EJѷ|_=ijg>_%Hh"nXȰ`XUCE!aw`%mii˜а߿u * زIZ+ϞN1"tdT&Ʌz4f}S 1L؜L{9^cS`]A^̕`]UqH0yyH|0i2ǬX[4Wps_Yݙs{Ѥë?ScF0 ~9WY<ءoȃq)v9@9Ap0x˾[TюS #@֧!,05vf5[ZSY_~| xt-S3ޣYƢʃ^~XHmTVsLBb l3#j+׾4af[TUN*Y9a=@ux7UXςmt3IUsy]j=9H 3 OUs|& ӯCKXҾwG2 =Ԑ H\2o\a=o P8oqܶkmFа~z}kf}'^g2xjr0*N|4W!Po'VJCF=J&N@I4Q# o{5'TK= oz^ 80\P*ո2Р=!hM7oPVOPcӆi #egol9+JtnxQ&Fo2;EQ6 C~,Rqkal(H:NNW,9 HHh{Tɿ֝<R G\X2B8]v`%.umLy^.CL3&Ӈ\vIfEQ_hŜ{sw\~B] E{ɣיWj=i2jN1_~ڇI#7JvBv࣡?EJD X`kG9vYĹ]Y3<:Lj.SKze2MC~+)u x:8tδ|ʀudkHn:& s +IĽ][xjq-/Yٓ]0(⤄&ΩodF.v++!:\[tVi;_OhOzwv6YcdK\H7PȤjGIqJJ'O2'ST7jY3=${8gyl/ˎ;c_c%9X*9™wҋzk9\bUcJ S54Ң pǪ})BH %S>_fy( 5t@6wmߖįY;g2#zPYv$shhdÚ~;*Iy>3${YȫWtco -e,q3h{#_^m_bZ#4Ή壇4>̌xsO/hiήnÁD尴[f ͨ{b^ƕg U`YBl2FFDrF8 QKtfVvwBu~A= %L)iL<%=PO^#4)锩x7c0¢̿HC)iC1if?B'-2Օt)U3|Y}}Dz,/ ^]GV> > T׽۠.$d:"Πµ5Ђu=z ]OfJ;AyMYL؇ʎơ#q~|ȨD;XO{m?;`^W--3ڷ6(^)ٳ:>1WBAF[\a "ݮa(=CyA71&cf^c9zRCT0~{G87"M;wI.+݊>3|-#l-)`R+ wؾ 0ȬξBVa"ӯ,{ţ`?yA=³]bXjSb= P far?ql[ I tBž2ϱ.7ա$΢`i*ߎ+Foz! Sy.*7 jZPHm2P)\ೃgY;]eCW gG/ wsRj/f:/csNX>_M|5k|);ڰItxDx 7Y]@|sY74A5I-| %&Vk/7p9NIXNbM4{吓c i^Gw N qh$C/q#g}%p&V}3[s#fFR: 睫*]]F8 %8xwФmyȎfX$SNʂ.bC 7-#iQeӪ}E {L"b~/ J#b3B!I]˘r`xRTZU-Y 9S$F> [*Ǻρ d0~H!'nT $`R6(dY-?v/J://rM3u4<Ì^wRhg'hyHr'L=M`Έv.\[*H@bA#@U3QiYųƝ^L^YjU n]w4:X7j}LtyEZn¼-3`Mt b@U#j@.Y†}ZC3pJJֹ Е߸xdďWVtJ/ǯ:;apJGdTc5N{Tq =KqOGd;:ıR6 ME~#LgW{ q4Hdݳ5azϾnvY퐴D߼asQwh$in ^Ho /zmp,4"\&AYcคVZdTg&NpxScIlwIM$!\=anQUeHgj/>:Vr풃m C +3%7C!NVP݃y!mj7u^`m]Q2 U]E]TP1FogF, U*)Y-ҚvYT He HXTeK0;a!:^8J`㸊PG 3X2.mţC1F0rnM#=}F&1<ࣽy j,my ?fKG%:5|%Ȫ,,Ma1˝Ty "9OnBCOܦo Kǝ oepq<Ѷ0R3Cϑ*Pgz 1'9<0 t?sG6kltO'H °\ =]A؆P7Ib:K([(bfz#n]~.Dށ; n:Փ&5V~8oHW#41K@TD'DY_yo~IIbNtb|1rQ[y\:-@ƢBog3e-#EYZk%Q&;++[QT_7r}"ҝTp-0rx#$J/Gos!d57Qݟ {e=۳<''~#P]>cuM+^+59CسekrpH^={b9, yO>x^0볗zK:gcz"OYνs m[C`w,JH3ͨZweYQY[ O Ew~kai*:m^lAs$͎1Pw1P`'WvؔѲG,Ga:L7IVs9bb_F~m/ UĩWRG# };0f}8|=c<,λwD+7fٸ,|MxPkt&,TqWABv)!s &zܔ5\B^ֵ)tINӛ(RpR՟ 5o[GMA;Z$'#SgH,u7s\nV=d4`5Wd3ՙ\AWӟ s ̳ճ) '?}2ǖ-i.{=K=~k0AB)oaWtrw:aZQ4dLS_S$W$5 Äz?EXqImƙ^@l7iӐMA̷-B7*eкmJxx|+T)aHIC* $q2Bׇ>{~6rj\vC?"lhST"-s_-. AE"[qdlo my]1]".1R%l+2L8&hNٮNP 6$b&DZ )2ѠЌF6~v1;ޚǑg}: s͐Ao2o7^zy, ⥟Zc xPSt3䒈 bj?.ZNS(x#;f*#n2 K_Vpbχim}JH%b$0ݲM!t=)(h/qtu5-CpJօMg1.h55ay*BIH2T̵-VcxE4D:J"^ d)ϕP;{Mߥ n̬nUH5G dK8GD s?>>*$ YkG"%0a(pPmCgRŪ'"+ 'w"BܹC}jgS,iC]gN1NZZ\g{}`Z wyɶK-f-mU$]H=7bZs 3R{4ΡSD-hi~MϺB=u7BRw胛\0Y$m, &*{G}ĢPT;sy -;Wc4mi:,ob_#WϲA/׶.8 ޠr X,KQBOeˇdyAhȇPt0}?giBDLOI̩H a:gC Nޭqi<k'~&{iS2<5&1-#V] HׄU> ,5WbuFL?ݏ͞V.ݝܜX.dM1,3NpZg%~OlbY"թqFM>zߦ{b{(6U-?Bg͸BJ}=2]28ʬI7Hfw~GH3̶ ;JZ~Q%}i7|*jVG9 ;8D`v\5~'^q=LcE;xtĻ%,=y#R5tA{q44˶{_֩˲3蓱4> {W.ݢl%jcqFIХ;Or#]3ΛE-걭Hq4{8AMx>Ib i.tvփ4OoJ!Z2/fqMKF#҃ c7֮Rڕn ,{c?1FiE? T2x<`_&7D>ۈ9Mֲ "I>ӓ@ΞIYF!_ΣBωXޛ~L(.wGL˶ *W>s~緙A,#\% Rm'㼨)B%s5NZi``]: pM5Y0eo٭ v{ uɻOFK-\_w~WIk(p|O5y*;snmB7>2)ѓxB-%p쮡c_^D.b 3гzƈ1x?mBw! \8͎}WQv_BD3֨M߯MdD2.#C>]:@i3?f5H4ؙ`q@(R<ԫVr(qpz`GedԔ+&sƤ:;X>;O ÕcEQ~Kv{Yܤ` I s>RH*ґ׸FQ& S "Z==̔V_D VD+)NxgKk*'xξ|D{vlb.6c_-)K y?$Zk(j>wჿߖVۣ |2_Y] >Kb+qmić [dSr*{[u8$6C@~#cJE;woα.CF {$@Rz K83c 096MTOpxDtyJe%Ή;4j$;. INg$:+&һm UhCDaLykK()9"#o@@>]&iTʍ-]ٔ\r+Q;~'n0;z6+~2 y{'kDTo@Xӆ.0Eԡj(RM'x#P%7 0Zo0mX$C}bޅjn(#)쓠wu2=$3ݗ0ʶJ=KeQT;ʔlw`ܣ_WS6xLL6*D`DمʢBu z8^ "}y1iJ׫` 1(/Kd( qd%r֬MB{נDF CwX%UD%4 +ݸ@kg$+ ˜'y%^M2pG5=Ci=?s|0-Msς@i왱ILD8MmSsnz4H w 1-E)yayN6_Y9 I϶zY/A%ɕm:m{^:jg;z?4,YMEhpz%Me[$bg$[U|ib׍ި%s7I{WNzX ~uGиw=z%J1_n/[|wE!(?7gZ%)}AS>-}wLQc_HsoR##*oEYtvօu{`D'X .8 %WK R&ZpފO)lL~ wq+R cwSڝz]#wGIԅ`dV2I#6S%Jf$o-(JZտ&y.3rX%5&RQAo URZD㥣X{f{BkYkr_mj!&QInnqȴ ۽8\246X Dˎ6Q6Z2Wx~;Bo,`;}u e2[L&p"9>W~ɐx ̷jLɖ2-atCq_׻!=M>ZڵɅ |DH',I:d^:ޘAykls6r*HJxeJ?ڟ+٭3 '8p.S$bS,CHC~Y JvߣDO_W}64PW8tݾnA\UQwvk,,5u&w¹(f+|.I)c:+bFRr]t1I={/kU\0M"cK$Ji- _ޭ_ FH$vGu?M&u屌(..lH5o,Gj}#B߶ֺ ĜnUO:7^9$PnEf1/ԗE0wS叜+!j{`U>-dA,DZ k:ے:6"LzCq ǪO5t2>& xR j'FyOkGcb ԣX*c޴BO"I֧LʍnNFү<``'d,4P>:Ex$F(! z.Dƚ-z%gA8UM'& Z[vXIb'ِ%! ͩ_Rcc?G/<  |˓e_o[8ޭuhlx$d=A$: 7fύә;_x^SOރYC3l;hYmC1y r y+kmM$ 3G Ш uؐ$ؼBO\ʠ+*֖J$bM/{$7JUvxaYۮ3ud7. #>?z=mBDL`]q3,` K4lFuH]\{Ζa=D-p425=-==Z_YJ WkOrϦ7}gGgn,RMj{I.YHolxHқʰO~hAR!m%uPw΂c8ˣv`!"gN%k\OO,mSˍχEv$3&ŗZC-)jAh#CѕW׻>J=L%izjp@j梋kg_vw/ I cuYXV3j &3F!<]eW]Čޚ]CKgSud`|-n*e*Ar:6zBsYzGyōѻ&ґzgN¶ z?ބ E?[dN1AME/R|z1wώyK۱kvvc ~͒zι&·qwh5KbCVnd. ɜ q3agԛ9d)G(B$9X38AF!#E̱'2 -5als}U @:Bp<QO 4*Cnߓn}FavTKwW z]~g or5((cxMyߖ*4p!}Gd=с1H.6_:J3,$ YF/'dܨAAn D˺(`ǓoNeBXv[9M"[dGRi2&UדVM=Wο@|4[2! 5D}Q"wɚ^jY^Ĺ*0o:x "xBƨT-/aO{BDѪQ060gGǢgkxN3x2/TG4l&k›V)iO&'bܲ`UOp#؄Y Xi' lvxQl-|yb%kTM| tD1ޭ.cnV{NzyNwpEBtvQ_t 7ÈĎY/ Ǣ= vqb/TI3zk{cV{tQWؿw3>'8Dϭf \65;iiIiҍ3ǸJqӺd{92Zd5l~P8ތ Gs2ޯ+}D81`, Cp9ʒƨX44[ ȶI#cC, hFB*UQ8YVt^kvQɍ(m\PlTq_ڳNCj}78r OaYF{eM%l]SPnu `9>;xY 6 :B6$QKOSF0.<Iވfb2/4hɚ*q&@5$07T'KXNw("T Hmyze'kn>/վHRp% U y6gzo Jqlk=C}Z,_D&O(epBwTkiH>qք}Ms[JS!)1pGc ^7 @j1Ruo;wEm&sLLd@ ~|Ğ_lKƹ:Z3N##mM:vF}+IYOdY'=[oV(pC3Lec%!ɨs!Gi;3JTρ!K4A)@;P4'D0&q]_>_*+/]>J!v#t#Ś( "OQ.Vo{4Bۉj Gyu9"i"#ҏ(q mcnm*5&Я2_4u|v&WoBLY2}Gw5ұ}UВ J3ܼk1._\{)Y/4Mi~ ϶7..GJ%GK3$LJBzszN&gҸM'^ܩD QxmB5YI}0%u>ߞc>|/]ЧMUg9MkY']tMLܒ66@h,WA}X.޳_S \-0c+>(ɥ+.Ğ, mޝ\:ʙn}xXV˱>e08F%(ax;KKfwW&oS csNỤz ː L[NzջMx?!}-v khI% JMk:t_\ճYRm1#p{ch}Es@Ο12Iìt3,{PhÏp V{O圸^6>Oө_MФ3Q \jDcœ@юQL[0tfg4?5vx"ARút(D{۝-yCSfDx-?D[8F==e0 pG,t7ء MP=[s\da.pwvԸת n9 :-#Iv_PdSMr]uo{6zy=z{o)V6e7Gw)á9y揻>~;  >:Ym>Q-m(KYB7G-d;Y6 dH 'ɓ#y"}J>v͠|LD{=oHRk̒F#12Rjɾ<ܣk),*h^ A.ԻJ]JbSGl;T,_RGJKZm߁ lTF?EKtXh&i5p)$pwG]e_ bI~VG c!r"ֿR;,ɯH\GGs9ɘP~P #A9@ `a0qARs`ܫTb>bg}>{y @]k{-\.؉xjMi֋o*(Tԟ:iu$>'~hYlwh-L˜%ͽ\IKwU ]6Û%:I}25#: NTD:aDq%![ {KEEX5'C[8#>".z̚3 7H,5OV _Pt ;_փCy΁S*dP1zC{G5X6.-c n }!n.Roǚt h$YNk2a "r`F?.S,kN'ab~q"_fG r0βz][a8 RY҈=X|b5oaXյ #!>} V*x<ʆb,ϊtY{~Bu/ XrG[R~+0fKZ5 uJ;%.R;}Խ₩k5u׿8f'%Д:4BmPz2 oDzdԣ_yOx3. 7Eooռ_R*mL$X$Q@ٶ=`~:kɵ3N-_ʤ&L߽[uNYT .EF6 jLa *L:. NSB X1 ?&c' ɝ/;Q /VQ.R F,O41W%Gs~7J4N|"q_zF+3 ,1g[ju8Y%dD'ٹoHW7}`Z:F f]αkP Fl%5/{|:ZWѦh$dOJ;̐~Di $J+ߣW٠s/=| >xsRJuG.D vi5= z6H-7R5 ka Z+Bt{EKHEX6J@0Ҧ9B 1'~NPMȘ @j 2GwFp0ު D|"dq[ ƕyK@V%xxDT{%d%6LWp>>|b %ݬ)(- Ba[wYfWʋ" s<'p5Nc ^e2+y=fy9RDnh#F`oJlݱL띍P +*eS0 m+|=zBms~6gA&Pd'Hi:)LT&F"VՌ]vhҺ^Iz#L~f^;{%N͠9nӿk G~:M ?0)Sfޝ΂` }gܓj^MVkV TsIϭ(5ۈ ,fBX M(3|n|P `N#4?k6mDǬR"3bwdR&Z~Uc B%+QML$ mŪOz"~gSb:dC.gà5Z'!EO-}w<ѳmc0Geƺ䟙mYqiWAI;/,E~P:BA Gt}v|ke<``~/+,7;Ŀ6!JcFȣ5z1D;(o{sBZVT%ậ^c xMtGuY&XCXwyp(Fk!M~u {IgT\gk3ykUȋ3̸RKFvԮ,ύSæ\F4AD Đ,.=M Q~֥_"â)ny#MR>݅Հ톹ffYA)sV]kLs`%"Z86\#i~(#`]sXj,xq l~d'i) nA:voaX裀W Pss`n+# T\{ԍV[p]y& zh}Y{aL+6=* t~ ɞ58Fڙ'{%K]ź 6E/y< w;Oaׁ\=N4zd/U߳b9yF'}Y߫RO^'{|3gyÍ0W{W"\Flk'\-Y‹mo-cQQzM5Nf\6k~]tFbX珆@*mn])i+0𻭸cyDOGlHet[#uT`0dq ::Mo)@MkU[Z7iTOH{\)A/ަp68&mUše８㌥~x p-{.cJyyNP;,e<8b5x,*YF`Ղo8xk ;bgX/IhZپ,mMPzY-QXFV\O{? esKO<oVxd#>,.f|(}-qe],≟7օvƠNŰ>a3vc[\EMPEu6(B{^kP:$Z0 [w9y9_rF#I]39jS&̳OzsariB'yK%kQhXdbatyYE3D\ MZ󆢌||F`HiT"d妀޶I4`#bip_py}KA>3v#[~ Z!TWjqNr!/?6 }a5I lXUОaPVƌ@58>dY[l=63eH+tYmzMܕ>VI US.Cj0# 4"cT3P0Uelc\T[X8ݶ `~g["RP,H۲G,^窶B쵈Pq͎7r& cv !X(G`lTJ:M8<{ p4G)WU:aި5"yeb@Vp(:9Y}Y""2@NrOXZ!158&˄(2N| [[]qR)U?|c"k VGxu􎼏UH*]XgI 1mVsݗMV'uPӸ"PGɮ4 WHkp,+L#zd%|%Z ghz`w#,e#ڈv]]Չ *-*~T.TCykӳ`&k(_e'0zZ܌2x#emUtLIf7"!R۴6<6:4r}ٖɛt协 ~sO_GR5Cf8`P@[޵kyQƫL-wR ;7gnn?/Y[ޘ\z陓Ɯ,#Yg^((Dq@aq_Ж+!;-lƁbjF[c5Imajh~vQ,s D4;#__@Fh*妥 |̢*:0Q;w^ƳՏZz'6t#2["T7~cC9U+J@|mULYWM+xLd;s@M`YaqE:0NW NO%0P^<[ۚ#P`lYX.R@).CqɡG*ū- Qؕciac&` טzp})IL*p59ow$fǦ3`#$[0HaI91T|5m(_D9O".YLիxr;cZI+p.w1-7swd/ٰ6h Bȿx&CqI+dOyBY_7d}8r!tߤH/RTq0{.x˼ثcK 61$pc% "Z5TΞwP૙t縉/).IO3cw]C1$7 # 1,w*Ox$i$WrrEccΥ8!BrQ*NvՆ6dC[Uc$wayԻ;2-8(ַ]U|oP,e -lCm#H335@F 3ɣj,eD8`gyd[Mb3|z褬Y3ߎaO-1*.TT??G c#|rה(5B|sp8nr̈́>+$#/W2/sN*r':T'=tUI_qLL˵yx-:7dhT0{"I))~#G{GM r-AF :̝@7)l<&]lQBpϸr;ǫWc'޶D@Vt\;dgj6= v?pp4k@In?e"°נny`t@Ւ~4&uU/$\IDp4[H@ʨD YZ:`PqZv]Pa$" abܖuoddޥp錑BٸgI 2o%%wAbNT27/QQ,hHwV@++aWNZl_/v &9'3(2ߣ:(^1BiW`B3m[<3m yN*;ϿG/0g|HP(M7 H=VԾՠDQhDflGI&Wd>녗_e,wgWeӪjvrTx3IڥZ@A'Q#S6[r}͆vAGp=Oby,p0LD&~g+OZz62&hO6)j:MZ)S0& g4AÓnB=ߠ$3Ze?pU_Ky?"/edqUw'O4ANn`5zGs{v[0ƆƝ@.2E[~A6^{kN, 9>zGbM0wGKzfuge>q! Z 뀧n`3Bv3ldTc<$yn>QǙX7ʞsnGW | 6G'kNKphu#\əXsIMv6~i%P'8pʓӯk6)|IjY;PA 4>;ޛ( @|vb Ai?Q8V#sl>{eߑu:DERZZZq B&rST4>UgIpT*p8.ch8,YC.49h>23r:;YYFԕ,u|{>nӺ-/ By4QyB'wNu)/SZ &#SgtOpH;Ke^suZtv˃GLY0ꏳ*&!)l޻)o:!5٫ZPd뚮į1#I^(_Dyx5oVB=N`}ikrP!5Pr{%fw+fzV'Y[27BG8VįR҈Tm=~}ʈSR{VTFҬ߮a=$a:T x"EՅFktmʜ'Tg^}M 0>DGBޕP?kbbI9?xNx, Z[ƩF30782-CZ֑lꅙOؼDd^ j5`0ޜ>2{u9`eÐJ)~3/h>yړssRieƓ[q^OֳvRye\#ԻD Fpdkʞy+k^+R'c>MpDqAk n Os-S{ 5>fO83dW'{i;9jn%oRf1Y新/41qV8weLV˾t}џ5Ʃf: O<=RY&ӽT؋֢tpvH@%F|O 똳^0%q`nOg}+Mos_l4og.{ֶNykT. Ēsk 2]P':& :qyوɇ-.7b ővvC]" ݧ6<,֛ j=ka̵9)9 |Fu<=jS۞2֤]x46:VhSS~oUkj K%V=bv"+럩=`>|AJ 4 8S{ `ƳSbtf ]âb!$e <-6|~w]cT^lFquf[,2!x]q者+#>:s˵P͞mU%y]f=۶-$dcDgu&IHWׇ,@+##;c%><3eEX'2X>@EX{7ׯ7-Ј)w+WXRNC{S ngwyw/6[xP0@vC{0dL+`)11cd$~X|8tSWطζ+Se|Kzz9 nuXCh O'+u} %]ilX]H(GV@%qlʌ`~ֺ;tq0!@Sn/&gz4n0=NF\~Ƿm* msBԾ~qRiƁ%\aQ86ڄfu>.OWYoy(ĉxb {d?{{Oy/~՞D9pٲ_3xvjBCx^rDkفKPŸM{$~$mD8Pczw0%Œ,b]3L^RlV]pV >:#w K ß.8]gK'Q|WKGSo"o/'=B>%' P{@RXvOwԑܷpaZk).ګJ"Cx˻^B hgJؕga~mN,g_S0]@~rOmwT3@lܥV^g6w$S^k#`5 –_iFUɴN2i4*$-4[I-58h")ǩ" ũB诎|!{5B}az%uֿ5֦5מ6F}|eWG}:]gGH yWRcء%N4y-Wre :L3fH`uTfuqT{^,p[ޡ6 E>'[(d6l3ՈKdQ% A Ոn5`wL(&&q$K>cOn{޵ ~s2NxDcTA1&%Tp\f}NB=_Xѿ hO{%xN9\T&_)W*z dDh`0k{=^ws\&*FȤ9܂zɘ@5Y>qZԥuƇzT<Փ6BWiKB6/ːZ"+qEݹpqJW,*6M;v54B(_AcLd#'| UZfmE2^£vߡT].H5&So*w[}Kx"@.dKZbEZ&!DDk5\}'wOy M7шf0JZ3M (1R. 'nl&1Y\A"{ٿ{YJjM.'GH|>M簬Sp QɈG +z7@nj>_&ǽ9YoX^YFT$k1w)w&:=iH!꧗ęn^5<[6*ڳn(P#=ΧDŽf\GӞLվ;u> cd==aN*s2%\!ȫ(0M<HW}-~~:^ckmHVFno؆(Hm(0Ӵ്F'a^ɨBe!$܇ʱ?I7`# oAہ*Ixg$З%-Zʗ~D68ҢM5\6 ߏpC'yF^=R#Iaex;P:V&G,1m#,}]'ǯ zK-HVZe!Nc0yY\229K'o-qUpCOŵ:*!ր@zB;< .md臼@dM{cڌ#FO<| `D_LѷIwf$G;JFw$S_n?/e3c'S4 aP.p~Iy@!w hWg: vKARzZ>iJ'bq\dSe7? b&Ŗ&eE=l\V.&@{/h/+Qau'mvSDS«4ufmy)Yw/Y9N5dɞ먪%n {69> 3:P3 {)|GzWrQs,_qje&`Dv3Ic(Fq8]TO|+0:55xB8/Φ?D$Y7y";q rhsyv@{gbQG]ehiE𑴅'C%ݱ9"{IЃB81}!+;3ju٢Ơ $`x1ĪU(b@qH蟣 yW2wлh PCپM*eVm٫ѿkɍ0~EXs7%Non\I.Qqe#^/;K1?ݿ۳'IGhٷl ӕB)D4P 6C+lO>i_J 'LP2|S }iWKLb֭N졷2O堀&>~ hY+;X4b2w?{ . -3ܓ BuQX'Id#?yXb~zv 7qfl$U (M ξ7lN @Ps/=WZ9:hBC*B&31BOE3d:IDd;YHui1%o sgObuVPv.Fh_T6_XBaZ2.@ VŁ +xMob'E߰/0W$E\|^1` TxcOLlo`O_mM[542WOYմݏUx Pw :y9P;1e_Wf&c1͋qUl;6=v,:OdZtȳ!* d #%d[;x XP+iW7=w201r9ۥFa{O߮;|O_y ʛgN_d'IXu uޱ^o4;Y"P>C=d<>ΩGZM}~\&F,# i+l2o6zG z]#KXL"d=y9{ÂZY_3ipD%pz`&&x`W'`"VtN蓜1k -hn7d<SHlЁOw}k7O5vYxd ('x oJ۵+16A2Oxw9Oy SrnuYRvsqmvw\Fuĩl;#!SId FIԖxfBū9CE!K.eGud\,|FvH/o*xn=ysgtJgL e|9}t@ڒ7k0@~ wt7¨T\oOFA\N:ZWa IJP#BTΜ$"+""6!ntGpuL8`_i[^+ $2ufu)Lľq F\ < JV /ӕM Iad> '<˙r`EI g:6l5(oHe {댟 Ÿ9QrBo>6q& X>g բmW%,+ !XӦCz]YN;y}`Yyce]S? HjO_"{ɵ[أwSd$ D\gkTPZ@$4X(%TP d_/ZAen qGe7cLOn)W! e>b@aڑ|k|Pb!7{ .ƴ9Ɓ,b"bc Q&\Iu4c41wk}cUY{RHX;u2l+$ WZ3"!"_Ri{hapril-ann-0.3.1/packages/basics/stats/test/data/V.gz000066400000000000000000005553171234204160600222310ustar00rootroot00000000000000]fRVlK-[_qu]L0 na}Z*hʶ3":jwy1.__˿_??|'_?~/_???oÿ/Ok?_6vqmsqwozok?qo7׎oq\~~wٶwgc~󺎱_ssoχ:woΗuoWb~|o|1?~O9?+_s{9>Ϳ_i~çh>s~=>~~1V5_͟9bc>{\#we:ɹ=ysm7;vdcD˟em.cڲb=~̿67܏xn\3˪`>iYk ~C=߆< }4\g>q?>w;_W|55f?_{}1)>y05sa?o4 ;fn6_=WalOk:wn;kqsͧ9wۨǼ2lէ=}pv}cO﵌?ٻä~`|Wd{chK`d;+YRl}won暮gO]׷9"+ 1v沞kά9?J^a|<'7cnNG=_U6O1xͿy>ꚟym=d̏9 ~k뻏>[O/ً=w. ɝvG7=[K/nC}.={̭7{~u}.|y"<_h2T9VKg8 3ϴ|-?1׹U\!70_HNl.}>{j }5y͛'Qo˗'N!rG8<ԝG`~|XVsDs|.Iz;dMoz8|UCNg.cl[_3]4b%9$upzsUgwV\c$on9:|mKu~ɹsyosX~9y=φR'47>Komyq>hl^02yW;_MzW V+g(W%>/o/_ֹ4lY)sh!9eU?eQ+?_5sy~BjۯW='|]yÅs> {Қ|G}]秛enQ\k.,O-7y#y3~[^nyd\w>oQ1>'l.gx>h]iV䀜s~kϚrs)8%ޗU:}z}WAPW/G@S ;zRvmrN=?r[BaS/yͯ{!g5V-;o/mC}y]ͣrNmQ熝RxV)=Z$@e^ ӚmzG(z~Χ7Wꖓzy>k f: e8~69>NEuUj\0Ϲỹrۅ:|٩U۹e]5178槙(-Cb#𞍞=7ʧE}_n s:q+|v]=Pv5U=n*|YgQxU(R'0ׯ\?Ϗ9|}s{siu¼y.͂Y#T/f6prjۮ!mҳ[=E(QX}~'U{ykqә{]>Oϋ=`Ȭ~]SQ;?ʦ| xcU6YCJi?Ϩ:,n5⾪n%=CëC~Ky:wNrc-qnӫFl"} [f!ŷA?*f>|ZtU\wǻkyﬦU7oU;l~ K|?W*su˟G|+ZiѦyBT3K6_YIi9mmD%W!0.uVIU0 ]>W4W|ro4wg0ozKvW~]p-:"U2wWZNcG;/8sjT'f\Tг j'\OO;܅nJ%yqKl,G>{r޹cwO#)ҘחUͥ䙟ocn`MdOZ˟'5yU1u ,~ܔgnP9Jc-σ/̒snke7݇᩼Ǖk@ŷ̧ pVEn?PU'dZ<*KmŧxIgV'ѬӠ2Y:t@OZ+T5dx1kl,yߜ7Vql}0y@r#< T<}vm慗;Ϭ']֡rn7lB1n& oq>| hG?wO}asyT ?S@w{H`vygv8fq^A UrULUYqv!wͻ̉>MY͆g׹(-F@0m<%em0o+zn֮2וGs/&hOOcYa:yhJV#Ѹ!+lH5qOӑͥma?M~r逸k0ntwE6\ij KγO{{} 7~޳gjc[ TS E[UPڞkY6΅p? ߘ{^$La6w.$~0%8qm ?CQMQ5smUUņ ̭ssG=ϰ}|Vy^0*.Y|$sչߧ׮Ssk2[5-?yx鴾`{=_ҳRúlpÕw~y_͂]Y 0i. zdy vy|lZ= j{ 'v)qKo8 L׬W^pΧwzRSf5f 7t ',IZ=3HF1 Q卦<Z̽>"c5Z(UyVpWŏf, 4櫳uFi]ǩ滙ȥ4wCv=7*Qf}~!npV97WN๥u|[}՚kv37A#;t^d_|ERϿ:﮲vϼ| }W};Hbs_?0']s;{£gnTO4ov7@F}iPmIZҳ?EU4Wɬ_9-̊VA1o~Y7/(Qiη__53jZg4o1fڵw0<{S`}[MA-ZI9>/Em uTuΟ3WL]c̰kVqV?o*]T뷱&jˉǎc Y2( vњelf u^L̽><WBx+}|Zs_PA|Za9S@3Y6wV!]jbZgΑGYΆ-2Єo (ק1K3-PnlƒܡRjyy~&UBh@%;wM!BfźȎynӢ =(m(Bs čESwt?kM<0O7e8]]9Bmpo ,qQȜM}~p921z𚪂7QPοژM!*nm-%sy"aqB[ s΅7s\s5 6]/ vkҘy6n_(ZF!xL}~uḾ0Ϫ9hwEK9un[oW!La|[:&om"-~a~i#(ε4AD+.+y~Wtl{n³>}̝=־AJ\ ?iY?~k k55W &'6|[РZxZڅs]XBŷQg%]@oWw{gkd:wvM;ѯUU97,Ƒ D9Ǽ.5ϴ[c̛ZrnX_~//Po $G_\{v>+z͹}U**.uMk=y2_}7V&jC?~V?,{ ҇*m/ÌB9^]1ۮàl,Y yp9MEUk˗p^tcij)sy2 @*#HoXݼbizdH~dGy>nWw &,[eSsЗvh/PG/0\G0^17N!Tt3?go˫n:Ɓh&<ϦWUOQD2}&lޘRgn!-̟uo8=h.dl6nK/\hO;?+%eRsC< C =Ei6m--k< W*9ⳏ;j~ ʖLon@5 7n2'1Xӯi6f?i}&VZJ@~~MQC4.G{L8z=95Xϣǎԇf}H:Fz "r` 7)XRLZuxؐʮK܀) չBLuŽ8-@d˷Q B|3yh_0=U oUe$fi]sVcŒv]#F̊;} W*]p`#K hm=W W(g\MimӸ%kf>,Kn mݥP$ipi Q V2~;w7~@kwBF ú#MX/ c/&̸&_yKYռԹn N+E\?l1iπ３n^#ZtPpZWW zc?tta5y4OǽИEl`t:^؟O_wWk"خsOu>\`wҞFD (%%ݍ9uUSǦon7Eq:|ւ簠뀲|?5D+R'DҘWN/rAn]NQuu|ZvCEq!FwÎ%S%=! 涇lFhS/a}5UדmΏ\/I\ icS Rv᭏:_D-|PHc4P\4@*SO}R3/ ݗpF}MKx7t$L0.5,[KY7"=Zway{?|yZW<|ݤ ybPnۃ6t= %TB@VXi&qSOQ2h+ߖpZ7/r\=#Z.3BA\2AZx )jK ECYR=5|ExbOH}m poe@Z 2 f\ua; @=|jcz4驟g.NaG75ҷ`aLg€o^ -$7siU9ͱ s|fV8D]ˆ~<𘑼M*āy`_vo,'J!n$f.890a.0ad$%z \cj[sFʏG7po-щk4R+x5n" eA teKWU蔄o 4E_}?=WtQtw'gKѼ#v&Y˜G'l9(PyN5P:ϗy+*tPYMTh.*p)P7Msv5a?i'5=1'"^܍o[m=&0$OR-wMODY2JbpEK^H$PjR^ϵA֏NC3DL@ Ng>%>Þq ~R4נm;띱b_ߍOAagM&>? 鷚3]>s+s|iC?o,۹%GdNݓG$2qkÜƄ4 j xbffmWzn,.,"2#w-:LK5£}0 ˢM_1:8rea=l.۔,!M]}X4!96?f$ugkwטfˊ;K'^_xS77X:ծ!x /D_ߌl}-ҝ $ 6Vi7@#?3r&,BZv,l])9HvVe@i9?b[>@WBeӨs Me2%BNbN|-kϲ {@;O=t*e: 1paQw c3$E$>J7MIAS.mB̀d_C`ZWY~s^+¤/3Q,#ݎTUE.]ʥv]2܅ D%璻m 7'(~c#WTzq,M`BKEVXe>5F$WΘ=, W;9*o2Rx}(q`ʊx׋"vKa^cr&VJѾY20j\̔XU?\g:&n8Y267Yp8#Ge2D];wC+)s@݋1u9c.w\ن:Gwݹa*vD~J=A>+2]4KZ\~gS}#bPҴ4S0&`VĜoհaܗM&O\!ZZsO:p %QJW3a:!_kv"9ZN<8 as;r*bkͷK!0wG3_U:GPUdUskymIKr4Tx;"ݬ0i.^7f6[}. x8F$KN=JrW: $<_xAꍛ69_Zo Ty4ij[4Dp9H1IߦFq{__YDzHGp,iٺI7m;x]C6uuߕc$7cw5۽a#Of^80c/tOtfXo*9+{4@zo ۳=2EV5lRέ-P߁@ʭ=X\gB(&8 w|btsG7gr.I3k Y|g+$O.X?rdg&³nhT >l;)sgVG#@9{{)/L#*Ly? q #tQYN$t3a1U̕x/ Gؐ\4Gϯf6>',}37>ƤF = fn\}hThc:ug(zE\oW oh_G1l|P@I7Ew#9MH>]+uTU!15Hc7'0rF)؏%T=X蜵kNFR؁ϯ׋yn.ru$TvƣZ;m;1WabU"Eq:9RS_o e3. +tE Qw(ǎ|W4.(81kjs2;*4^Q㭞 Y|oKbTܰʿs,^U<[yEϳ˟($_(Kq͖Z7K:nIGt-j̢_/]-zC uyG:Qr)w]e< %@Bybt&?c=Ak<'NX銙Ṋt`OܭB@x |Z:ٱm}wW/ƁM6?qhލ)] BVK~NYy@ ><$T%!ɮ%\HK]'Cd<Peec`o:#;ZކpCyfU*jfPм)aI3th$o<;MXSuoa`;w9®jǚr_ok:|/]`o=),ǏTUsrkr-!Z81O8S_iDVGygDe!>m%2{:~: h&ш=,y!|h4p3kop$KrP47B|lcd‰jKXxx\U-SF?zv&^ |C9wqǾ謣z@uܢVM@4'pnc‘unwPwKM+LEǯ|0asYښƏr&CU{#;/ w@'[-~Ne7í#@p%T0!iK\D7⠳fZ;W֬W+oxeh{Y 2 lY7VDϮ+F]˪c/\>b2-f#iit y3\θp"\ (;ٌW%)옎+v{|%upq*,.S/u6fwRcE-gNNA;' 0Do 4y+8xxpkLr{&徺X3VW@ψGA1 Tu/ FQm8&Uqϥ Exֺh#fx,-0g4oȩuahxf+bjF` Pɨ= G/=.O$R#JLVo#!.[r򝕰Ra#rh7P1?9XZjԷg ԤK"IB%xbO0Kwn {~b lїX=) WFU^_2h1$Vw?2rsYl?f#OL`; zQ$^x Qc]zgiG2 +J[KTxOc.F lX?[`5KV&XTgTzNMgs{q?ָ oϞƸyI!pAAz<'P6}s1'5D!WNš8'"fD'3kA%Li&Δ=;!6ߓߒ0,x!صwTk=3~a OM^Z"> Gjho. b6=KĚNL{ZD1rzV}I_` ѳ/ӌk[ M'GZ^8jn"–ڍ^G [KfQw>۲'J^ݟB)z2Ի,t׳᷅j-/zbg`C `- O*8 &!b*p L(c,$a󶬢]HV.-W"jGpZLO%/ _ ؗ)}NG6i% {OU[K)XiɬB؎Vr:~s? @| p~~xw\T?$}L~t)oSu2 O3\k bQa}տCԥU}{>xujCβ|oEڟG">J=_AK@g=+9j#J7ͺ1A"_srƛC_˦Zݕ[+:7zhQfWCIN2)Tt<Ü v2a&(}54Fm S&f&aa)}oJVkgO[{-urkۤB`Ih^'މdyo2IbKT;ߵ8&h ֞ }\]5kNг^#*Z@fqϋ!IQ,+PpHу۝aJf[d/z˼OmrtE?uwONr;d:dޖ#}eU6QHdn^WBAH@ xgͳb&rCD(!bT>Ϸ u~rE-q8캱 )\c%5sk3sRȻЎb\ya&ߏs7Vٮ[zB*^{~zΟO)W4MS?.NJ j{'-X=˄IШ,̚8MLNNM-~cmO1yUfdUs$ó_yImaJUқ*%+ uCuQ]^Tm9{^&Al[ AQ$1V2:{<`4lu M/9<[fUn+aU$G3Wk0|BZ Dp2in4c#:(>!=OG 0N\TFv/^bOzT!Y% /mqޕ5,cј_xîY/&)&܀Z#rB_H4αe~vv' 5#*nEzja@JGq{zhvę$mH"fo6FI*vșyY}Kә}k@[j9fd`^ol.6Eq[ Fxff~3q9 Hݽn½| w:u޿DZ% rasg:ԥ;xS+5 ŏ3휌IK|-UVPTɻ)}D)xI0:Zݔc, C`}}E48] t:t$в˷}ěяQ *SrՓ~1rIA4-l=۾ʵt6 &ftR=V㗼DyDOߛF{ks.u #\yS|\7+ǧQž<3{'vFX*#cML$X%0+FcPR O[ x="K8No(&Y:`1HXi;W+Hߑ2aOo}' P t=(B(OcE TDL7e!6rŸX ߈MźITYix>eX0\UN2l BZz A%6sh0ݖ}+ dYo:7V0HN 2վtps+ W22@0(lRMw@ JQf7B܉|'o$X칯+S&pԁq$a?k2Y[\n0WÙ!J$΢#db2D:ި(.Cyzy/ nb$sOeUsjЕ;e U2h?>(q)0EKk؎Fu qjKw {Y|焽?AuρԻ 0L==&O\ RhkҐ'V7j}5{~m wY9O8XsS~DJ7<<fvrZj|8WrK~%+Z*CC8ҋI6j<-mh+8?5%^E\Ļ5pGvFH.'x##G@&+.6Pl_DҞᐳ7dBS.AAM_'2]PIlG(CR1g< լp7Y"#GJ~҉O}"1GxwZJc:|'9I )bp#"Vc)ej)X_I2nDo(pt?HL>qlUMBрa` )œb̸R54wGPt;ˑF:YTFƩnb7E\4Qa.p%JYzh ebgM1(.$#'(w#6Sdmk%,~$jXXgx\P[~:1.BOWNej6  (ΰEds817_ (^6= gN<đYÕvF˶ >82cPyl~I;+U)@(`㵚kfXx._~lcQVط4h2e92>%q-Γ APSGDj*o}8_ ĨV;!o@?֜0?(ce QNKڃnF]IuVx2c;s[\9VŠ6y/E{&P3:VQ[QFZ Ƒk_'CM}\sdpjoM̞m->qXϒ7^thw$6{,}(gD]XScMfz:D毯7U)dW(mn6'MGٵ:. a x]kq] w.1_kIһj)!\Ok OUج^am9ԃx+9c}zEVF׫&a*G4}SCwD..˨o$-bp[#H+s Xv/vߖtf]W ,-X7B?/V]r_j!o=Q&t_꒸W⁗?uH-#;%Vݽw]cVr*.s]iH0>}mI,i :2Z=Ƴb\mYH%{HondHþ/1mЗ{aӱ ܊։"qko`"^b;OM~h|KO ln,q6UJlR"ٶqs+="j{=V t a mb8'D}ǹI(y1aO -ROlJ*1֨ NkIл&oZ['0ޣ@XS>x(Er ɧp;)c/Sȣ4oѶ'*`۽(Y7fbЯj;U{4M[S]Ș"pCPk9.+<zr 2EEY"8AAFS=63qhfޕǣ~QTh"؍gA0bIt;W0[`x Qe99n\[}TgexiĚvG.gY#W;hV[gѭ`4pIߵdT뿟Ig+r~rpr8þ)9nz*dԈ1p8$DXW}R""aԅ!1=DJy7a pw*FaiT$d 3^꫓-6n#,mu0KVcK{╄eGkŁ6MJW"Y1 &`9C/-H0t\upekͿz YHL9c\؜Ut DT^+9_xԜdXg_;'й WŽ`9Qo{TRؐ:I": [eigA~Oߦ,oehxD!Àt2r޷[GmRN!!4 Fbq4$9ObF~,72F3S$}cB#bKF;JA~ً#p/wI1D o:uԌ,q"ZmTseɹ7}'< iLr>:efx&%//$ͅ ܓ=fS?fU[D#=&r,±-Gwx絏V#"saggI1iΥC1Lޒ̖tCC(3hV]+7SųBa6ړ~=6};Uc3Lq~T+}M|\PZ8Qey`1Zn~#$&~Uʄ B@V];i2},yt$k(cٝ2?FګSFËd+"jCe*8UJ/>1 [Q={TQiE ǜqY_ܩ@[['W>To)j&2>Мwj( zϤv_/N| OBTAճ˚aiW$F-;w$;_Rb d`PXZd6lvLZB!9ҳi~z:tdSh`xY4DJ|zDvx;[Í5P2y=' U~rdK*HLv0v裣 Mc0r1t,Md}\TCW6U7rB#3VûG4j=_1Z%)]Er1:`5FPxZ."*%ƳޚmVFT.=BZZf>. 3bNj.ٌ'n&k0g/@(_a&mZ`j! ?Z`QoXo*k!5Ggq۶02Hj$Lɽ3&3m#E|HXv>4Kt;!wa .s}<">{@ d 7QrRGO 2˗(3X]NRO,ǩ3[ܗJ]u GcW%J:3subĵR4>w.=5zBǣ Bt&cl{mlzetBrm;\< |V$l%T&|qMh+&&SUULu#/NvB,X0b\ ߬lCc77*['WՌw͖麨⧫3PvyܺB<%E!:+KW'RQ-_pVUR,hbN`jnt0óFrW+}:v։'),fΙ(PTI+ m ;[ڨXH|Mbp+3V.QS5 -_q1XvinxiJ;X~JSʊb53i/“n52_DpS15^o nɷDp/7%\udAwcafb-7$T[XD3ɨ~ñi1ԵwݞKofq96r'"Hz3܀M΃q#le*hTkdo[ΛB$ fTW\+t.L3߰[C}`⑜q۹l+ \ޡ ؠH)75*])EUme|J,.uko /15k h lz*5WA|m,?ŮؑsByt2d<+_(%My A;dЏ*9ʧ"o(]?Wf'lZ{[я6/|òxi0 FUbvW!f'϶'I6(hO)!zqZĕOn?E+Ig)LFA?so;^A'O`n5yPe&Zvb3u]ť< Ȉؓ[k**Q7Q\1T<riO+%)oܑD[ #>2 `vדa$FZQ^8JۻBsx;s o\ç#OP&P׎WO7$@խdv& |B`xhDG%FXsŗo^<9TLU$_6IxԘkrgImKZ ,K݉^WW|@0ۯ[1_gjiG{[=-ie! GRpR6W0G(cƝk_9&1|yġ3PG5g5~{r*J6PBEW(WjUBbkY9F&VjڐR\' MZDezP]j<İ'$gV>KH̴gE 7K@c>rE[]z&L ;|N;^҈وsOf1'JMy4(BN\b0@[ɫ9^IUX?R<m(Ոv;;j% 7ܽ򮨶I!X' 嶢8Wj}h*95Σ}3߲ƷUB@ nՆ?KTx3=2Ðb#L,=y֐|ΈDPd]`R:3غ xօw(.f$KǓbTTdU*Տщ22lD i> G5~!F< ʷn'֞h85Ń[d-V~ =%.36($Mod~0pԳݑB&~M[)"."!LB3G7CG+cA ;0hNsG"$:1_%{<%f`;{W>{Ń@U[!Aqh1Jb /qiΨyM.NXЂH#٨2׏5[:2¢T ,+AT9-&Q)AL)CYaG@VfNN}[ Rh+*RtiLt:0d^i*Lu52APś&;FИ'}}rᵾN 7)SX{`5+HF]64?v ~iej R49pbbf$#EYlyV'zz_w~Qo9jxBMD+1c >ClFOBL{oDߎ=.SH`&E#!rʼV3(A SL %Z W"D.Vyy؎Oy]E#ļ8{U~n/%EBS8Q/#D@eٗu"a{ ͨ값@eNd;OsQG@jk;M`FH>I|":`@H7G+4ka TS0;D*"FӬT9"|woG|TP z|9 U%6S$5'/J,=(mV|msdJ MV\<+ #-Fˣ8ReKsL el3xrm_9Y\JoyW(}!6 i\p^c}LrCI(`A0" 8=svq{MZl.^{X-+|m>IGܻ}^&_nbQT@.ь I>[nGL{lrrJwU|sVb?s4M7v{i [S N7^yk "'[ /{ S,02p\ 2ς'> 9WOv->V+&<̔L:Ǵ ){+GJU_c Pܫo=J  {ɒh etk, v ѬĻ-y2gڟ q_5%#¸;睾)6d49=пaǬ92gZ1!.K؃gR>9ՙU;4> +͗^߈+yblt.W̒}lke}1Qhi"H3kv16r,Rbծݽ5h&.9, (I;Ɠ_j;.Ig/7q:] X90">8|\y66C>GaK4#r6e@T$XF06G ]⅂[=08W1# Z:WvH`G$arCxG2zLi@xiwh/|⟿ƃqKd(/ --x þnNZ0qQY''"4ڳW)ɩQm۴e`3M$2;86 0ټ|B4ǥ s6nٶ85JVF/~gK3yZPbf\2szÕP.z?r~jIHlz?=X;Lon~GI-(C 6R8G^+LYj^^='`f(ɋF7lAM.OR?i6H@슟;H,2Pf)t`))ryKhetI(J\#b}C :R:NV[_X edH5S-A›!B}OvݹE`=.S uX1x'n R|17 pQ;Z|ej`\Bsj%1[= W:˰G7,/z&b7~n-ҧ[Wƒ b'"=lDb?=1VvvN/'ģg jI$_c|& s5XƳIvtq[ f稥æd&;Y!̧ /bJV/C;>7+݈R[w`͜+%ѯ(G;#4zUbGks)lCАhFT'QS0?HI#KI'e5UZX_:d.e#~?P<ڧl!☷bph3jdq캞N* ٜ+ $eB2i=hʸUD*TǤ!ՇCD̖<uc1ӾW|^z/wXgc_8Y/-60r-n*gq#rI G|m[>~/*(89&|7.w_$OXa_Qyy8MeAA@6:Qŕǂ^6jy6wӴn`L0Uϊc +"hzռ^qpi㊰c\ r#ɚS8ҝyMF/+i`D1K\ ۳m@ɛa;e;Qt%'oEo/EHvQؼj HEUI z)*d8RE⤔448ڲJmgıV+ 7'!e:_uc@ 2%{3ol4JV'ӽܭE[,վU#WDry"nkab02wXMDUiJp3St}鄽3hLme % Y>vIDGްbּ穲CcV.H6'69Z$O1ùD,*N}ŕ1=O#Y2e>\mPŵh>x2p771 3.Xw3z N-Dvۡkc0Ye)"z|PoqWeԳ57zLDbd~ MOTRגZ~| f Č#ޅ,naԐ #B"_V ?݂Y(6십]I#`s!skH%# Z$O! ^1]GXpx?wo*OH`{Cc^{ ټø흂IZ NV =2ߑq0(̞YS%bGf Ua I卫 錄uKf5Gqva#uk%gl @o-[^wbzFjR6qϠL,&@A&oBAC奝qF Ŵ) `u猞챏z;6;/0xgo:LxR ?Ȁ~J^ $8kĜpy=Q, ozy{{q #xՅP4 o={﹏;/iņ`"S0dWX;i0g,X#$l݈ؕCnɾ=0х֡gڕ7*o䮐‘E$<(fsitTf k'`%F4s1FL!`L3mapZX.mS>KwN`6.-4#LZA4G4gL6jd?{2 bbӴG4T-AqG1Ls^c}쩏\6ļRc6%$Ϩ9b ɔFU$ܜ¤<:#1(~ ̮  1x&a38c%Q}A.:3cc:.߰\t=/ikKຫ wZW!~^gǑI?7ل>+$ ߿drpih̓\CkZ2˕:>YTGonKtvJ<foF*í=p5Z ",0/4)V/NNVSCuYA֘UZ#5(Fa'1reƳFq4`۲[]9wq)2 -qΞO҉ZJ/u>`HKy)',gq}ɯ'S;r{5b?auG ؿnHi,HEM~#൙Zxvp'K̶&QeegSUؓN,zC”G%1SB/oZd>+W&Yē %G|U&hWvo/H653a`_M+{cq5wC3Qpvlw>ZuwG\\ EB1o#𒣛1%w5GbU$oi}fɪDJدCCZt+1BL qe$Y *Cp^0cgX\W_|QEFC4鴟5R@v&zuZyc1װ -YU'~i]td,Dpe!fKƳTQKUl^x_t_ y&jns+e'* F'fOK]oš-|#p+.G-f5Ж vL K '_p:l[”Ŋ#;޳8 dh *;π 'jT{ )FWZ:$r"6(bp&Źlj*֊EX̙Ds;Do]\q(Ǵ=׵x\ D=AEAML;/MvtkA=kF?ekBP,}"\DpD~n1=mm=x_S״ &E @yg.vo7ճtm ߳y*Od$~f*y&M24ƽ<<djSڍ.m3nM)/yjw`78)d`VHl;Cx$T:kݵ⒊I!}_%I;?T_oPxD^ AATKAJ}bFGq:7ݖxTz?q,]A:Ĭx3㻭̸ (:fT=dg0U`;"ȢPm@hsαbE \h| ,=XVv<:圝ټ JOk6^ad] ̏3s,~:])9͙,">yD_~~[ 'h(cʀ`jP%58]s5V kXtʃ3Zgҧļ .T>jAg` d03Xr ބA~_DžDȡ!R/ nC0Y}*+ԥAńmQRJZPHAAat':C:Z~ r'҆G6=}GA3rw8M?(&`{e?s|)16Ej[,Ȭ;=O,ke0B@Ғ]2O* 8Y)&}Ͻ3x&/b`*6"K9@(~p-ے_-lқ`(\my @?ok7~l+'YqxV1.)]XD!so ɌƲ3<3Ͼ Fr/d4iG,0Wm=Kیx0ڗf*\ %ur)ۿJ:_(,؁ 9QuO:.xWMD&ݽW"g_Zw?;q;n"p|ߏGf{sxR(^B0`)⫑I\IM{UI_}@őg&\Tta|շݖ^!tw -1PILu10+T(eEKm3 xؐߌ""t-D/Р> V{zR]Y[XeєigႿ+c3- 9B@U&Ĝs%,Ϡ?nb2~$3(=lJ9.'M._?y EN:JGwD3\1=*UJfkLuh8g 0>Eŧe䇪BJ).WV귱l"bcZ62\r r &/ͪ#g$3238z.`.AkVq5YdNaH,g.L} _ l]3 %G{^z^Ӟz?C._4"7I%)_3Tlϒmy^U]q'5rL!λIBSV.KK)}I=lAb\-; ɴE s\,dJ Bŕt#ڡ+=r4bYcDzW!y4WC, (7Җ<«aKSG1\1fdw!؍= NM<茇hDWd&Qn1"^Zǫyg W%fI Zes5:a 8W2\`A6k'%ڵN>E̮ycƵ*sRQ">vecoMVX0>,םBAR/(7$/Ƕ/_Y2xa}S1솝P|0v-@oݭ1Yn@h'"+(ՔtEcI1%'̶'' q~qss1TË9$b`"qǗIBDHyr# V390fK`Ƒ_?!1=JnnCCA jvN[!?"/Hou>ws7d>Hc| gS5A$]H6,mB% )td4 do"ϰZ֯5#{AHQdI*r_r.y~h8_J5_(Wja߁X Hb9jVhֵir฽|ge?ySwEdԗeg[*ϙ_$ci=4g>[2%^Q:@5DyfU߱395`NIh^>cj&nv"t2rѼeabcYՃ3޼b}J=w6LL)4߭xkۅ؃lLȐtﱘ=p7x䅵CjN痡{뱊K^cn,GҎa]f[4O| v>K@\9llZGƇx֊=6L{G`50IqBkIp` ȯXLiߏG_V"K Y3i+@>"Zܔ_e* ot%j~~mJJFAawUK6tأEW4 >caCMS_P2y6n?#yЂ?nRﳗh 9sme#9xI1XC c2n1j6Qݩ!WL AS0לj<1 JPACD}Msk{m, @=XW/>3c;:e7)hs9 ՍǤCW?>FO}JAMz޿s`&[j].N;+Ul4e[Fyߵ6;q~Nƀ/;' m!|<,74&~V.D"e^>S.X":r> mݬ*z}*xbcRz~.|[x8 Ϩ}° y)uN<{Hݬĕc 4j)"r6>nsz_5^]nByzxoH41=)#Y;HaוHҀWgU,&RIt`B 6yOduŖ`q 9o]r<1b&ԖCyϸY4rڒ21W2DA_lD,ĥt $m%_:uȹ5ARgTe׈mG{BK>OћMrd𞪥{0<.Ū;O?^Ag 38tR\YH6L1KkM(DH4_X`x7'P iZWno>/C|H045> oZA͔`.ԱŷvUxo=l|sd[rPhj:\<2J:K"aJp3v tAHLPY=popWQ4t/ij ܢʣK&m˨Dpvʋ9HL ܝFpTfE3y qӖ}"ͬ1)XaMHJஹ0)|2EXɴ'4XY9ϫ|5@Ԡn2O{^n]#>nt^f jrFB &kfW-%pW=n_2B>X9.t:wu&sk(ΡYS}% ' ]؉=` oGG vumcpp]ݎiWv\X =L:I!u 3u`Tګtf?ҼN aE^$B@~o>T{loJխ0jq,HX ;sr5jXe#'؞N3#&[s!^3?kMzw 9/w©oKdw#55Y##%8dRenEmYs5)`ylr29܌=M鯙F(,@O̻VB{IMgdQlq$6U(.ʎ_ÊɔQDcxxRcy#Kq 0u1^ICx|6m7ۨT ##Ixz {J/Wjg.3Tr}4i3ѿ0< %bER : keq6z gywsme^t1_KmP9 jwFj?{9QGʾq?z#ѹGcXR:|!C̚a68ZIoůhU`}QtP67rqcMBuVcF}nh`yi"vYZJ{TOx: Cu(/aU2''_ơ3GV2@NNj!8ʌm5V !Iti{ҷ܍q9cR wγk~,Wly0fx-{4`~`(y_ #qxlh`B1kw ?KszdXs3:AԯH-AASpw]błWqG`V/kyL#Ɗs[Fh:'^@D_a%dPqIɤ2z%vWw[`$aj/a4jF,^)2X$! m'Ī:o%Ed! n?kIl^W;pK͓7IXd=xt!uWs~9sʎCian 6D`p&0N٪:`l ;œ3_@48*m`+$Žr듳^ {) Ҍl})K;_31!kᣙޓ)獠NxkF5ȋV4E,ؾUK;, K}Cgi6^.2<՘ʊ"W<1`h e]*iⷅy${Xx|!k}~36IKlj==H ܡ Ұ%2Yy)+ree'wNCVC]p7X"hK|yӢ,W}pޮj/⣜Z~|[Jk ==w?[R iuxA PHސtϙYpmכJvQ95䊯̛gArOY7b޲"r0f,TmCI .#%k? A Cv$xU+~rk^PKn@Z{U*Zަ*\!wvRG(.uls}yvɟ60n#$IVq h+CFu3L8z+D5`3@^9VfVgx @jJEآj[~[p,z!{v §;۔AxvErv"<k'[!4n*FOmSp_z-ݕge/D5U{)z5 ]Zt9\#ދHZNn)--pT((*\+9嘏nVkoԺv/Sf<1I# N@q?vizKwT@\߱c}Tݙ_ۮ/jfjrdULt"s#tdo`$@iŞ6E'ԷeRO$+bTit7jL5$MjTb/8ѡ[Do9WAK\;KQHa'3ky8~M Y:} >gcE߁/z$^DJOYSoƮE'WO$!K޹heDשvtFy>> '?. 2ACV]C n0XĻէV.$w<{%niZ5{ӡ XechC3INDM{4 P;E)ETk€NQPwэxfcA{z@Nl(~:hP }uGDoL;CxfN³1y44ht"9jy'\ =s]|btVpŸaBQ$]s9\j,%[n[,%eG3L{I5Amce qqCs 0K1T$"L߼~1Bh.8& ؓۤmA@%u:@> Ԥ_{;v@^6 L)c+b1p<5͈44b"y49sO}˚ߪQW>WkO􎅞{ҶY9a5O8(FM("C/zdO-\3j6p>3#oh 9|aljԂ1б%=/G?DRu3*|4*]6g,3e!vcB&«Db_ U4?+ϯA*YڭGY%5fA𢣜 /2[4!i@i{#y. ~[WDAB3EYĥG0!kvrGU~@s<{Tsї)i4y L,:3Rկ>}`5}5:Q|~p/?͐ Q|C#oX^[mMiGj5eFАE ?UKڿ, QYIkۉv66LWvZS;Gk{Xݓj#@N<njm.^7d%y`X|,J )CҨ2sȻWjC8kbOo'{U TmZU'FѝlEU9r+;8V$ٙ[`u,h s/!(W<&W;@^a}yo]lGHGNoD/OϧE ,-V+yxnb̬jqey;;/tH,"+Cg ՙle5bU][e"tE Nw5a`9[? b\v[=T%IT +'փ de_!RWQ!h>Ƣ@DT_#CKj^R?"^| ;MmL9J{6p^u_"@# o/9Uʆ}>YϳL jV,SޓuvQ+P{{}Ww%%`/n".alw٥)X|11~ _s]~l[GoˊgXey~1n7p|$̈f+u+Q b#"tYV}l{+ $;ޔa"9Q`S,}Ȑ$c4JuxWSDrx9I+z6h{6-lEtEd V/Q=sxm $zf5PuQuQ}UӊLYsX(6*1O&7G4cd` 3C5abb*Չ~WR\H.fN(CQW`2ec1198 o{O BKf!4Ϸ =F;R)%H#k X0HpNrIqV z.c(2tN{HSX%(1f}%TQt[b~NGa@]E*y߯x"6rS>cQNjl梱rIry{nj)K5ۖ ~=5.bҮBya^FƾRIqϦ pnxۏ!9~fvY=V:qmٍڀm&V|6 bzBvyv إcb﨩#-ET՞e?| D`RO#*g،Q& *-Ru*7,s;_{~ߗ[)ZWu b<⺻I_d,ݓ 2gUWSk~ 1cj9|Ǻ$~E.̼FP5n#oPv͏Db +t&|J;SסO5Y֓ Gi`+>[!%*#$;צE2m^o β(1Ղyf^ nOS/F ů|0۔#gFП{D)]]k1Ī4Yf)o<54K\,|Fڙt6l$ p⡤jIc<(E M-6٭N:+o׀1*[sSASW y6d K72*QRhWR4dKeԽGɖUVKqPv [l[a"OZH4XC+<.l.nwu9^Iʄp݉w{ -o9.sc\TOv6?N ,aĕNڻ]b9q A ?*lUGۥMT GfRoAq[uwJ>nRI%#q)TFbo*2DXis/l4$93+unԺ|wazI| 7q暟H}<'ݹ\4s=0װ7*_ë K9JÓh r>=f>QYLg:k`_Q. qY!!^gO_iɏ VTN JRC$N$O֐]Gjv}D/=& ʕ:VHY:i}slt&gG5&z'|c̴* ib ^OIM#O][2;Ø2¼0{jF~^p؈Zׇro o]6B??e52+OjvLޤ!4D>j7r v,W*}.]A:b:.$o(50(n@mҏ`7Kmd 2! l*X̙S.Bȼw|nBB7W<ػڏ cegFtOF_,e#^`Zj0AӷQs ۆ YG sq~/lL[O05y4"䶶ĖT*B`W MO+Ih람QLO.07`fI/:722[ ;Shޕ) fi+ UcydJ=y8bRg^6π'Vˡb_BշSI$ic:&>4Ŵ#2{luBϚRPgl +\DN&D[N.le`ik;qL#x#1eEr(B#q4ˏÑdXjmwpG\( 3,eϰŵ$HphR)E0?")m fŞ!֦ 2G'XY{69Y\ǴG@c`wsz uvRcSj*^W1sP1Kjf79hړ]gRu1h0Y<!70L$5v.kKQcf >|%D/:/TH[Tؽ9|TR&&#x } W P眉^ D+I7{h+{<[Y%Yl':YojVU%h91Q%R =q" 0 Uc H1ڳ{dOU_|Y- "oX*5 B_4T<ߖ0AlE^;U/ h8̴8aǵN.SvփDoE .Y0 G'i7 y+#,>S0&Zw˜'Cw f43#? ~aWp3Cݒ J j'$\{Tlbt1>a4JY7`=bb5UkrjA8U9?42dR:@-W&%T\ֿIV)A`hw 6V]!|"Ƴ"I3wh/AOywCyU/̶ވ}"򪅿 eC?"|[%?QFIeR1b]";T7世9_>% ^n+W9)j$OδfWB"+'ApnVoDK ٛ~"䮿'ɚƧomTƤbG(uxYci]br̼{,gwG/(I^Dxb|'VmOi,#'M/&̸DϕN$|2-R kЭasaeHx!KKFh~]#k}g{" yyuDq OK7FIrXAYJ4ed_Ee8gQpĪ?D%۫&h\KjR>wu8$籸rCᱻAHUQ7c%?v}Pj75fA6;9pN.m ""㻝Hiq>J_1&^r&<ōѾ;q `uR]a( P\1 UT">V3> eʈ@lDUh_f__ݫٗl%q e,shݫnm,E*ej#=C;ycNo]"Xw܉+NT/9xK2(A~}N|MʥHNxNWBl3,Џ1Eãc2sDrDUA0 n"a{x^r[Jax}[Fk'fǔj{褤"-YF^2ތ -N<]:A#x`^ѿ D ?)#^>ӣ9ϟۛ:=,Ult11ǚZf H ҂sDWty$dA\ɲaЕc^W%#>Q> M>5FCU^*P|{ǩ{ږۨa *~SJO= Lp?5W'_B͍QHpT#ߵd3qR 'κnC\za8J64Y:y$|-h""C&$ZߑӀ씭r ER r)+`{o)ܯ}/L57SVnD#^ ^IZº \ZN.Xf,z2J "~sg4KgNV(~l2Cc 9%B]`Tƫdm_x d[ w"xbm}vsCˤɁj9'>o0 _:T]RywB>{$1 c>eOo$ׂ@7)\nbAB0qtQqk? ywwo7v1;ZJh  CaùNb7pLo_&HT]7{&tY"WZԑ慿ږ.'FkWn:1"첶s&rṦ[^ޡ ~*~m\GVxvPBOz"\! ܷ?38`qSz $u$M𽜁Cߛ L"pD7#hT&l%d( 1H yANX^O|1!ml`DXNW;fa?]Y CMj{@=p&_>^Mnw! ߵݦA#1v;KS4O;W{ѹ*0dri{@ ǢaS|0/^;bz.;RMӛbn+C.3Qt[1<)wb}|v+1J%Np\2ӢV (@#pdp]c򗉷:6Ygb\YL{>^%{!v{d N&_iqk`K ?,L"v?cXϞek+U4^|!EI2y3ÍBeԆv3}j %:ؠJCJ\M\Q!4c41Zkm*|#Rh6( uf^2ĎQr|c1}ko3#lp4R[r@@j!nW , ~󽪜A@p6䋥:k3CcXX.XmkD:%#7:;qHgHZEw̵X~'϶kZuz5{[r|2Jܻ-"M i$ouNҊsޤ8pP,4~?{yFBXa.ۗ>đ-[b>` zVg|3<{Q=oUT\ꢚ.oqtrG~-kHRei[/-,ؽ-Q", o)Y H\vs ݟ@ǁD7oJڪv R\UA)}6CM(jikԿe;D=6eYI] E_*qxumHQ#rxrE'olO'T?#EJsםtNk\b>¥lƔwB${9x5^rPK$7}'`e1 S@yۈסd,C7ΣAծy8V{ Y>ڞ; SK;[:yXM*|>ct͹H%/:Rw9|-"N$'-CӴ\0^} Hc"bK'%?[INj(22y ޻b0q&M3of0L(Cx cJؕ`vztiju+9.o9)_ƛJoqȮfZiy2륺 \Qxf`zUӊKc٤k9~7]9P{%P wF%~σ .!yʬ_Tby[7rfy׭+=c&}U:Luc ֕6c\Z飩+U;` 'P'o@%#9Iu%0P9o`DôcȱB⦸r8Kճ mf܂TX)4%5q#/f8Lfck^ ĠNUtP7W%9zDk)*W rICȨJ1b]Q;<]ůܮV&t+ n(u!*M)u_&`ohqՠ3oH ٟWtQٺ>d)V%[ވwS`p?Xu Ws E?ca]Ka]fBa*QoaQfoX f!ZhqMYnl~c"vq1C^1^TLq ^E3l.z$%0]  xCt6\[xtm}5F,ƽHbO9_#x61"9*oފ~bNWl ) [r%XUԹAxbY5|&@~+px`$g%{>JIDXoZNn ݡ=^lǢpb-dfL\6Mta靎M^lv'NJ~jWN3zG ]p91!V~?+ ? tOx:&g˛)Ӽ"bzjHuP=ѭ|MŌZuQ4k//Vxij΅Y\J$c>ņT`E e`>k\t^d"P.~ǐSv %nܹ3A ;zQ,5 ֓)]7tGpq :D0m\^*uTtEhG2wth2a!Ks'Ab17whjӞ 򼋪)ٙΦ stPq{Y֑l!qpt|.D`4s&EWmU %1*p3kfY1wĮ+0L*L:v/H7տēȢݺbH< xԊ{UzN* AɸU!ÐLZ&vt 7+y0oSIF{Kzos)vNZ떐x*n ,U\$<)`}y{U_1)mNk筨#cmw^,lیƸgĬ+k9 g)i3s%Dtz3L_}}q2Ž\#֖鴛-ff\߯rK:E<.KH0GKJ+GjzQͧ9dyCAǽ sgл7κ4qDs1*aQj+cCT2T=yWJ3IU$/g/3 yiקvIŷ]LC=VѫDz>+ssg.9{vr̍4מ̺ImPeGQ$oF|82?AtELEXUlpFMc(~&0a"EROQN~`ihLY}@3=Că '?*9E% 4[4 G8ʬMu4pNqa&8-_`@7!7l!8empj| U0nKbQ}xs-Fba W!iXǻ=\[+N wRRytʟ]nw/yv''!Fh&g ChkG7"xl0L5۪}8+{g?C^8^#Ӻu8$)7wq:%Q0G<<򍓏Ǯp._Bh߈bVYl^'c{.:av!9*O=Ϲ^5<:ׁ[HwcZP'ɨoxl?n0wLfN; w$]~፱2ܚi s_9gaaTu8^K'ʧJS\V{iG6;\ U ERfq"ZBavρqR xlT9T b泏;8'9}k5˟;Y.Fg 팫" Les@=\\JW,b;b>r; P]([rʵ&K? bKő_IRy4#ڀ:AK^xíb n \1Gg,~-s([’$y~5҈ԺXVǾ 7[z1MKn[m6k>Er2/NmR rksȳg0k]jD#N݈}%sk!'Ǖ^3]2Dm!;NH_q&D~i W8Xpj=cO Ȩ=hjV`C7fÒ j(SX褯ߎx֯T/mJ$m븿 7jO3m-1\ZFD, .ޞպ iqM~Gh&@hzlAx~) sԪ|$coިX!$uAYt͵R=sXo9stDx-+$[h{{ =c*ذRd+[롱2ٿ?,1%[Dh2!E;vI+oobaNၼ. _j5v=4x!?T3.?D!GUb_礪Sy[2E% WbyD 'ioMPnF5_&+}4mF*kjW+/uMӒ=wӂٗ?\oN8ZW$Rm.BNPދOp5e6@傹0w|FV #w9{倉)+|X ғٔ!c:\/T-}dgD|b FR?J|b쀑ytuW)#Xg_d dPʱY@ݶZ#,c凨b$T %BILw/'äa˕P'G<+ܱ@i<ACqиd[ 1ޝŽgɸ:,JG OE1#W{<NJear:*8Pڼ)#?ָpK"~s}ˮ)9g,'$Pt}jLZTe$#ƒ d,F#t 0剡՞H5tœ1}禣3[P%=_GZYd[/~Y1(kL$iag hQV$ү H M0O,-VѺ1_FmfUeӞP! *្_L+*l0?0?>{۰v$%L;w_K}ٙ9EDyhn!OFݝrH.IۙS i+VHwJAҤN\3solu v&z{z_( dW˻K@Ku#d(u3Ī39qГ\7[EF.cGR.p|o+F>5 &xEomx%]OyYoƦ辩2.h95VX 8k,%&%NtDCt{9x2(_K)K+q 9`Z|K`ě=0\`')4O {~tZy8 ;,:XJm K. >OMd)$Cnf+wfxp&RcqCKo ߰S'͎Ac\Fn13+2?y/ܡ~GuKGĀ+w2Rbu8$]q=ꊨ, $B3H%!Z[4@;'X1ͥ]%_+yjL1Hv DTFIxaDd rFW5QGPm_RRZYTۿᯬ&`dR^O/޾(X0T՗j=,^?%yVm"vQdiG sҰFMmέ5V6{3(-'߶.@`I+@G8|n ~ZKǰ#]}F5 z* ݦx"&Jr2i9 Owu7)cydNg`Kl^+UFp; :EJA|f䇬nj5OR{w/3+lO^˸كL4}G3,^.a \ᶅ[65tjYw {+5~MpCd=y^q|!h&;/DY60"IEj nc/Y: u{- 0|@Z%75{a"\!FgI!g*`:"4}R&!]/"nKi7}7dm7=EIhJaBBmx}R,ePfC8_Fw̵r@mi#WȚzWxN;(qN>Msv&1"P-Gq#gQbNl ֙GULY+˺=Sx'1sZj[=# =6Kx蹎8#wl䥛w } عh!7j$Cևkm~wFqS+K'}R~x݂\rvʋ\wb>t,|b0n/WRJӜO8=8nŞBČ.w2G|M[F(OT:mkg{Lўcq/\\=34\=X @UC3"l6wU4b2|unWjp|_ex(|DNď+/NBpһvWdtrA]HjJ Ko7"./K^^[P/=rq0 ՚<-<BiCiik [,"̄[AWqT#"=b6uUXXN.a7? ʱ^ֳ̉5Ipj{h"ڛ G=^0DŽ+!]ufe;]4x;VT>{@:v |OaJ NF=ŴV-$[{ @;V1b%y^˥9r5O3Nic%n}/avM Sj{֋6wYzv,%_+>~Q,hըJ-or/&&(f)] {LQ]+-_S5/qFPɥa Pjz 1IGG0E4Xig!DCѫOO$TBպzMf{iS.3QYkMjÅsiO[,I5V]J0~_͌V!:^db̓O> l`uu&\LGbUhKh_86*Hˊ{L!T:񬭨_3+n S%IXD&}gc-1 :T@Wc/pcŹ@[3%`./.P֮KfDuPOҎmr>1**tۊ>e/yR͝BASqz!LxqrL|/wA{rPJvh1Εh{5++蘓x.FU]ңlnϨ#$>Z|.#Ic \U١#Sm|lYc&܍)5';\&yzHuV{!oCR#1~+ 3M׿=nJ QdΥx\Z&p(]ja''RNVl [Li*iUoi -+NWZy&/[y:!m%Bʟg.tɬJYv_DTG%;o k+U攜z󯵩dӏPF:e /c%|aR6f&HGzܯ5C'Q0 8=cۺ@(·2]&R ,vLt ȅ2j\.5GWQ%ӞxK9´|UD#vcB1k5DžNi+}h vr tph7/NK-ljb͝ufgv/ `&/[o,W7ۮRHwmsfXef!i]+hX+b.ѕYu4S]-j& 䎔JV#.TŦK$  :E?DHrP W8/{3. n6"]y%ݽ溜/D9#:+}ڡN Y1*V˝ϓ|wGz\BL7fGRR1Ԍιw51CR8eɕ<Sb@jHO#bE~᠜,d}m׊1j`³}pp=tv*$;)q)Vȶo J|G !y?S'( Z6x{3Pߧ[,7-e7Z00Jt8C"ul&;ڛT3kQFP1&Jbgw iSw~"QFzNwFxZUi@+5ɮ´t5JY AR^Šaų6v,XIi&Ɛ vYqwOX_ ܳƼ^]W_œ5TUNdF)3po0\r1_B$V] HBT5U{.MHfT̺ů{4u#N.}cў8OM(eu1ۅohyڼuui;YPX6"Td\Q6+߱*0{wqCIZLr/DQL[.@Ҿo;bÆ".69GƸ jDem%{YF}eQnnKe~%d.I}Ռ$P=~J LzBO*j֭bku7 DG򶞳QՌg)|y#Ab4Y.I-(0 ҾЛJ!TTI/=# 5_`%0N4Dq: G)]^= H "Ns,:WLM ꟷn;O /j!7Ȥcdq3 HBWz]xth|NL1 9d [`s =f*DZhLPW>RAfξ>Be",M6Ϋi6Wibkatl؟""8&MN.}oH%jd mvtuجϟKrLLL"zT%D`14_W/b5;mr"S}k}uʳf_.7})|_ASXGǺs'Lv(b!(kąQ`Q]*O5yCr!6GSk0?/_듳BB%5ݞ`ё7x5Jl ^Q'J}8ձd%v2Ec70wɱ?iTGX-'F4"^*x3I:[HoWߩ.fApVؖН W>7K^nֿh ;G+]Yt'0H; 쏵&4"@[&'J{LJ$;3< -홙;;5c%ptEd[ƚy@ XJfw=P;R8JۙVP H WFe3 Y,(#ϧ;v?m(]4_%h ⻥Ivw+* y6ן cm9{VaxlxKao>Qdy]G6YEvgQHO!PoΩYVx/bжlQ虻)J^-m*Zkw\pw0S16T%o@ľ[g@uAAmzNp8(EsShV< 4oHag]06.XIJV/CB/_-ooi0"ØOyu5l~qKmVWmM='fFMBg}H}<4tAmK1zxn vڥ0m(`Z`;ܸ~r 2<(+$y1Avu=,9p!٠w-L(g"pfexo0S^WR/aK 8 Sh(R NF'A]ӬTE}Ի(XE֔Qw=HyhjT1Y02pߞY?>sq^ƈnd6z.w%CjJ$hiFRɬ!oYu NxAJsAk6{`kRiE"IWm:5GؤJ~솁A]*q޽Prae&9PU,72}5,iuYmEk¾m{b6rZ=XCXJOٔnh7Π3gKB"ɱ)N~/1)`FVp[1-xmYq ҁ͈4Gw@e rքu{˘jHHDіyۥ&Qs11'YI9J(g+X"O,Vǰq]-E%^^{%㗴%JpM[''nb_N.a݉kغgMGC oϳK`? :5)%m^[JulӉ@4wp-ճ.u[H6Ci}ALX4 }c~ v%R 2l{ f }3 4M4dabi̿K'OA {,IjAft#qJ~q;ҧ5}p89@?W}O]TOKRn0ug33{M([F, }z]F}ǜR֏g ,.]4rb4:d2sr9ƾ b(,HbTX~Ԏ%)Ab!>##f 4嚌4S/lY7KDd)|Gy—Qr `~vgҨ~c&6",? \nZgTrTlݓ SH?PR~C0VR."䫾>:Rڇ, cwRJ'Tw>uMcnsZO> EX, _~11$=rLlL4- .vsGv$?zZB"D4d۷'֞㍾|":!o)1^ƅVfK͛y͡k 01%,'{e֌F] +㙳WJOkB #(LW~lsqЦ)4ɀ|)y' A|#eZ0m&vG}U$Bc:gYt`QA-N,~~jjǽ?$,}mW,a,&G޸. δ+njU/`kOf}P_4uS5fyRX)L%ʼn(;zIHP0ZV%RriN2ږ:2.`['F"Q{ڃY2͊ \$NzˍxVw;&H _BhT%~Vo\{KG zJlРJMhkyD;s <JN HEik ¾FF!P2M3yhqzO<[*49f!ZWBx uB:,2 ybq`FtMƑC*P)G?5|W KvI xWlⰉLP;Tf:W@1ܗtM_8_U3X2<&}'P_Ts)Kk|!ܐҏxWbጴ|x×Qww٥Dֱ ݩfnUq@;aQD歖Ng޳D/oM͠ta㡅1 ep`w dBBӰs[_^ kmi(aWKkFZQz Yz.G~e_P_4J;1쁃X#! WԪ^\)'cϸBQiG^X|j$3-M3_g¯Gze)q1{ͬ :/͹΂b ?l1! $MG(Q3~>늨 G4Q)hRu$qɫ[AAjo*Uވx-:w-p/|{lʔeE?xC|&ͬEb#:JR;ƥw>{6=PgzϔW/W7{&uI$8Y2iy%Q߆UlpEF|mf УYxO{<*1U;*^w&f7BrgPuA-<(~Ù{ו}ewh=6ۘ*mhzzdN,|zE?bEm%xc&8,1U?+ae(=>1axTRY^. I ފvT!XEBd{@{Ԇ = N-K;eJC_CLsqLȁ=ro+ޔX'Y;kbGtA,[9Ս:QfqU1LGIŞ4=0CӰWLRcpWKNwH#Ce$zbxd s?կŻֵE"յ$õ\]Gvn~m{ٳ0ѧUjOY8;o%j`̟̌˄a JY֘Iڄ7H_h'^=Y$~6{"x]?O6 n\~+= M/+3ƒyF5˖kkcl19.kx}-#ZqlJue"z&aE U܎*cSӭTT]!!)wk,[{uLpٮm`2Ԣݫ$=܂a1yo llOTõK7e=tpˡ f)j>h;?i3lnw-G#9KMt@xMU~tåʬDyGrZM9s `^ѾP˥6n'դqi"/|IX{]qgC=,K @zz '.*V\%Ofo_E&uțfpo?qK*Kt{ubhjn*v[3}Bv_:}"E0ejt:b ?A@>>4pqj'G+ l9Q@v'^︐ Sg_}$t rbdfuG b>Cf9yy8Pu9k""&pQt\}638G7!7Z ld97KoCvd(.QMu,c83Ŷܝ:,nLB1;Q~ާ.( {gAP4Ж{2Hbi;!.HgzW ˷A|p j DSl{}O|B;cSyM5c̹G Ld2b'Tt0.ΊN^^+~3Xz VP?bү3/)̠GpBB&۵&3b7\[@P 4!!ɟiߘ2BX˞hw]ٞǥwW%`袅/{s+&O%>%9R|JP+"֝)Y%ȯZd_({Ha|" t;s2_#r]9P1'FG%F̒ZZE.F_=ov\fØ$Su^0xC1DjhIW-A=MMӕ@m zsK/>WR-07gԕSbŲKL8D2%;gv FX -G&_2#7agKO4OU89N)2Pw$89e="[wUDzr@`۵;łP8B.=T)wά{9$ h/L3?J9yu[o_sf =M̝֠#+EGnQ zCCa=fƓX\k'R&x $o`[^y/NЏuN&{ ]Ðu53.?b=%]+x,)^sBﬦ"dyr.FXԺ/r8҄ڍM7#dOԭ֘Hd(դ5;'6j7Œ|RHO,캱hV0zyv컞?n,o[ 0$@9-s$Q!ˁ[L "9";dwFqMy=R~=%>m CRs5rhT^ӑ3׽ 4aQǝ4wĭE}aSA&2xJf&.f,4hbc}j~$kJQqv"+kyzμYֆT9I:8tL23 Ua|KizO95 loNd^oj -2쓎m&L#J;9Lg@|ϓ-[+}HڿV2:N=5TtM`Y}&JC d5y_/kel=ǝ/.K t`KK QΈ>Q:H+T=IP9tkHeٵqu^b6Gzı?OOUj9F,(57lyv|JSIXlw>''tS9P0L ݹ#m,^;rDo)/~ܓISzqblb2öY0)8&[34t%1wY 2ufךU]+c{$ך4Hp;*2!R>QwEI #R#tGD1>g(L?c؈ Rp @AX}[_󦽍HzBPcuyؑ94&Bmj#gDNM-!Kk`٩zw2swBSIv5 8ˈbbiUCXI&ٹ5Jč]E;Yy/x@-+3J?2D+Jؖ"kJ|6+%zMGU]G$ _1ܳMs|FQz~]_fx̓usl/rD$Q]Nu Z8#)T>ggםy@AW !d[ q?' Ui@xsB-Cfrfpy)Lk nT1T;KdDoxKue;ϵ( ]5H3{N1Wr4Zon`|]li~B NQyp <{u=ZkIޗFSNB:l1Y7rɌzl5(ĚTU1]pLH9.5(ov7 2*]OԈ6tو|ê3?GV ə'H|x@MyjOvjYLǒEP5aRWZM D4*Er0$gi3JZLz4 )܄fM|NK\ oJ 1vm>koVrZIr1ƻ Vӝce}oyD4)F }Pn}qFx:8W~'Z(=6 j+?"y F](޾"Siw-~?Z<0Lw =GU?]chJݺuihǗnek!mOr'(S1>&-uX->O%B+H{i^yWr|m܈ap$#;{X} Z@M{eu Ѩl}T+7%#ov~Kl0T<7e 1AòNe>{S`_x/;lݳTduQ=]IKE0>뽴]87U}8&-f_(dҖgNmj6W%2ґ\Rc?3ΐi/ x y_8wHθ力̀jkT5|! ~//gK:o-] y=1`]UZYV\51~!"毪q:RI'nIz+iM֡TŜ?0wGozg#zgs  3IfXk=gF=l=":$-##R!;nhȝh̘zOƩo2lCbc'~0tY?ƞMg=&Io_鵌$JfFo.ۦ)-6zkx‡UA%INk!hxX5&M;F`ƍcPCʕ#ztSe,dtBcOccB!;6JғRA1m}Nko#':X 2Ζ&t'R hM]uSeg.v&gA'vQ 3,fE0|Tɢl[pUh%gFmso|߇ /㫌@]QcB?^8Gٜ8e8x<0*{lR٠̄9g>> CT=ΆCݢt+ZlLDmT,W߽]J)+_s]O@G7V;2@;ߎFa}Gݙs3[;5tn`K;}d_` h*q P~Q DG%x`&HLWՐH *}#%C[Ct}:j c+~w[΍1*eIa<$y2jh-n{"5gBIK^l ۢUꊥk9n0621BU{S#AqB\qrlw )֐l7~xE }kDG*d9ow~d8jUMSryӾb:ێ ,i'i?*,Ʃ0OTX1OԻ ?9vHu}f s)0{qqҕ]M)NUUl*kžUzP3iIN6# w] يUȥLZjˣR%ybiގŊ?}?"v1Kq嬕\7;nXgb_߇'IXoK[3\L>!G=dr::$3sϓ`QV mYc% P[3;ܳH#+0G2U]O,γu('w+lL5 $ 4(;U7x}ZxmY':݀&u Gsݽ4۳<eVAgK;v=S7UZ߁'"-ks7nV5>NQ Ot'1~+uigzm%2;t]QS*F'OtrXv@7MZV/]F,_hRއ XdqObgDH5 mcW@oÃ0gdW>hc^ÓUϰ}ߺEQpDꂺ$p)jYxZfF[>r{p;/1eY[iKFXO$$J\M]u_uc6 _T$Q( XFtcb=/bW0,qȑEf Lg/+F`9$;sx| L @aVBWᥒכz_S{Ķߐq}t%8Ȥ.݄=<#7:󞾒fF*Cdr%upcG&ۃO(Q0 `Pkd6#|F'.T>q Iτv[)D%vrkx{me>1 0T`YMڲMgv[ho)*&V Evb7Α;9Ao>I3/@?RwwjJ!E82O>Ӭ, }>u=~B@=[bYx)ͱ,R%k]!B3d=BU}: pH= )q *8.τ'un̔&/7ccĴbYjhBRUiլoIph0mۼ&#Gl"#$}Û IhZ/فg͝G%|g{GM6S+ڗ8#Hx= Y, U7Qiɽ&1S]чT\MgO֒d~5p,I$…k`N ۷J!v9FԢpDM0 k,&r&#iW$ Dm鼞op䕴ѦP}XIqwɞ$:6D~OdtHDۏmnCBe]% '/jpG=HDgJ%U#Pۢ 5ʱ$Nà5Nb=9eY 6<zrxL;Mb bt@R6b@5E!| #}ޱS v7qFd;#fM}uV믎‚\Bwrǻ}` Q5Pg9YXבHDCebL0؃Gr Dumu_gL4,I=p_!˨A3iOH~<M,ݔ7C`odЛ)arU-K4g|ƚP܅ E;h7z;~j(tjqIrJlͣjTAJL۫$`]DWTᯡpI=w F9_}CNeia4 yc硠\k.΀'xǿxw ~>^B1 3}kprUU%lS/HM8 BeL`vΩ@ȴ9<|.쪼iB;ZBm- 7"OfL C {, f4ڎJaZ%[.Ҁ6uM&]̈G<;|v%XJm6]&b=KFD$jgI6EqU9A\(~t%<,[^=:4Hl}^uZFOUww[1[Rڍ"ԫ"he-q9J=.m90.T$YY`Kږ|MJ7|̚f쥃mEA ҒS9#[=b386,INvg8Ώ#@*hܶQ~kčUh7VLODa?i2{/0msֳ߱/;'[eNi5 3$>dL`|Ԅzf W8V{5X92M-2/)\gJz^ۏbtuSde# 3nUE.8Kn2. r(඄%whN2mgp:(ت̽Hf☢ke8ܽ{s$ _2Dc:IJP&?Apf_<ή2:&ahhT65:c3-J!r ]%-I j./(ﱭvhb'Mv@Qk@Ucyq4 *wL2⼛_8GG}m r6Crkgrc_[{rѓI tq oSS--e ͺ_늩ұL@[s @Tt6wA)*HO@0( } Q_G`0s_~L}Z8iOIv?SIPd8f{]6m[5[^-Z3XVx{އ WAL$ܭ]L{:kS{JjiF=S׸fݕyӉn5fCj!M']'$+8IMr[u#yٯcJt5_LH2f8cS} C8'KZSjh,X_S'd糅+VW73fЮ0|\yEVw|\zn (rz;J&B _sRb .9Fj<Ҭqϛ'o4?,m򴧲4e 6\#H<[e'ƤAZ (\g՝|+Akb۾ؗHњp ΉgCϘ"ccT٫۷[0ȅ-Zz ӛPذvF)v_j~f${;5!Jz_ t=>h0Dv߄|C CWrm^"ߞ^-$d-i+e㭾 o`vʗa[L_N3&nnf4(aW.$/ 5'hNTL"Ruy&G|ͣ:o7/e뱄6hda{M^hlTѾK@'INu\Ԓ=-K[~3 m. & uZ7@AW6A"SK:\x|(T#ZP73c F %o!RΈ>]s~ߛ:/iv0e;Hp~?j<~/ɮpMꎵi:Ψ e0ܢԫ-~ΥFYC!+bVr.G(Wa- ?jҁtuOjs2w{"0MFНp*מ<(?r`5rDq#K%u L״sM`D\{Bt[9{j<1p<ϬO2.y־Y`؛s=,3!1Xe2CgzCLt *MB5"p~Z8Vq0O6kK)j+c6/0S^QTK}I,gGUМ+yuNݗh}R!-JŠK1BVWNTq*p{_D|5^ͲdlMn_ٮxwfB/ ߿ɖ0JqvagBADVqlG#&w>߃"&ɳ5t u ]SkuB}8ձ53@ *P:⪬hېi"< J^ r̩FR]ɽu]7M]}/ٹ_kpO=F 7$!Fý]{rgo(J6e=~,0*+~>16]2Qp4XQ}bHxrW+a yԬ +曱 );3|V`BOhX?,#ޒc cTIc?Wa3(A7n>."NZ4[?X.C߮n!$LdrEPdsW'5AA=u}Rd` V03M5z$WA7 :Z;. hP7ōs#;=5;z4ER##}ƨ|LH,[nՅtNUKp3$묰Vh97<i_q Ep KП–iqy~m'kCh'ze@.yGW޽ctQ[3cF[NGhԞGs qkTIř_Xu(qNԐ!jW{5pTVYi0!; Os47>w6>rjζ:\dup^*¥7&Mg"nvHzo zo?ຳ5=76D}K@$Nqd+Q™2K#eʯǃ"ݲq4y`sffl~dp7̙,.w+p[G Q<[C(zW:oφQ'njSi4[&vŒ>F72e78ubfٔVڜH`n2mZrO%ߩhG ՛Ca{~ApC%qQʹY^ Duߓp&U-5D::D4H6ֺԢ/3}λ_=*+[ڭoL`ꕔ NueVT=~aܳ<'%ӈz!PcB #6-v_1_3!Xi~3LĚND;m#'F}!n,Gޅ^!؊kxd $& R-TKTco4w!L8ۅ})OYг?Ar5z6ӷ4ӞX}r8>xݖ:!J׵w2865`MЦ7G:0|D E@v[Dٕ䯤n⺛3q݌s~Ǎׄ\:V{qeB<,ytG r2I)YUl||mDswTNP\VMri M:jHgM"2rHZ[љGW_ip'AGV*c?\y)C9V B[gsw@MC"/ gĹpZ=|iۡ*T}(9p%s%ْdcPTaaҼ3c\΀lo,6W"@iޱǜH"@4p5ْ.걅fTj_lG/^f5X{̟j1<>Sk\%4s~hGZ/ 'c(_.\sAWW\k`JWs&4)E$_D+& 4ꮼmB Ր(Slx"Źėzz$͸t&s-[w{ٛu3"a`?xY\ݥ=aa׵aXa]V_t0{moej Qj,GaͯL~ƚE wo3nbY Ԩ},rتOmz7vİgp{KR^9#1*;2 FIxԪWEѫQ-ߚqzb\a-.XrNe9XHJZEv3w-[ᷩ؞B00rlc=A?b1jϳ3afߢ*hZH>̃ęP`~.UliY [Ɓ'2děh `-"6nd/>@' z EGVF Ɍ2%J J&љa _տ,TLQsoߕebEfejn()gZMJJzM̦IKm3)'S&Ieu>e楱IhuO؁18?%h(5TRInJH*nÁ#OՈg[rp"3ʭ\yoSc?& `=y8=RsۥJR R+غmUU ٹq6V/g]Ml#[3$Im '0zH w8qe=LS0C7 >*(! 86># 1bvdm&mflEH*,IMAW9gnwTvFPRd}2HUE2 nk)Ήu_DUͫK;֚.gVRnMqvJ| 8BvHsv#uBbnٓŽi⽧"L=.2t5[%H<f-Q,&v=ge}2{j ddHj3ɬb c`=Ŷo 跂v#a$#d*' SE:2ᓦ,67=׹#oy~i/L#bI2])A8n]BWa!E)ӎs0w E7pp{MjIya:K# R NO"Ei+ϱ~3U~ץ*P鼹|g_x[F^-3 "fS{J߬vҮÄ~F+N XH%?]~\xzk4B.~gdj%^=}2%ͱh6+ n~7+-6ydo}?}+yxz[Bȗ#L/xgte zEC#s 9b_ZrGY/&S`@9:좺X-=cR9UYڥ[֣qPFua\,yEu5YW^%s ֆ|6Y4G$ε`s >K6c|#Ѕtޙp=ҕ\Y0Ѓ..%?sͅ :lW`}"GVg||.B~0k9-wr4/T>>m1z{gw9Xq0ui(%cguZMÚL]qb[vܰG&?7y׼OZ[KB)&MZ&\ KrN]%&23P+ Ě:lf :AEH 졜fVώBiMeXQ) d"TK x\+WNNK亍2F3BXGQSzau0tlVS.8&Bj&wqF;mZ($p&ͬXtH_ W.`;ѮtbȘͩs1n9ξzmY ԪUY5J,WTOq^-K`c*=wܡӽvywA mLL1kƜE8X~*ˆ rk}6kbV4ȌZfGE=`;%孬la[VcWb2]e RzktuzH&fm~#;%%q W4'$at{SnmC0#Kxt;㰏K z;ËΧhtp[K\r|4ˉס릇WoI9 oMZ]B&H/Y?cxNFp`r=9LL|]4K?KeZ݁xIұ9v۾/PV6c$޾"Ֆ1!+T|fzcbM# >ݎ p "4˵W_C6b Cypb RaR=}{P\J{0zd^ }ĺ9bۼY 0c׎"hkP : "V7MC|ҏ-O]K|Ogׄ ;`lhB&Xc١끺陫Rwy3V+.DLǬ5)](?%;1pŖTz9sV+c%Ji7 fF]*ݡ>yU+L@THʄ-DOjv͕-=b}K}sMؽgo$muu%/zF,)= 2[eJ 8UAݜ sÚm]$kcuU*b mTը+_=27a**(qE e'ǮJy9ß-5ђe2~ P1T$tp&ZNcё[Vd?͎r^#b]=YZtd\&oc$QXPj0RUnϒuIvbmقn&7EK g;u_MD܂Al*;"[}&$ڧ(9$q/n򁞧4R%̮$h۾8R"0ځ54D|m7A_Qj*3IZrs߾ bvkH Pꎷd_G` iRgolRoy j2XΨy;#%{$]D[;W5%B_XHӖjS ;<_CNZ+) q,G׾!yے|]%`jh#Vm?w3rBOC0umǃaU@gv_S&s ~rRȖ2hQsk%Z '0e>buoԧo55{$X,IEN0YN= JND$T{Ι ׀uw@)&WώD"$̧֓Ks%ϪCЅnrl;ٔG:nq Q35\G*r:]#3xX~WS" OH%֩FY{ܵcCk~+ ԟ<=_:y(JA%xH~61ΕڿWQqXg6~~Ր51Ag^-RagONQrğ>{UCDR[C!'.0]x_qhB_֞ZP4E].n ZN.⒥F3D,HTaY1+X%5Om@=`λsP:/&␮5%v*: /{! 4:?hxIof1QLZ`h[Pe%5l@8 ~ˎNֽ.ʌs6[ljS C֊-|1cI$m5sPwL&!NLf@wrTJԹbB2E,osBU[ƚ!TEu? >~k47YbC:@ ?=і%#GNru3K qRkj֚$d^y8"OOyѵ0lvu< ZL=є?\^"BvX߫dAbg[|͒@8êAOYY ,I| )J;_.+ ʦZcQƼɵal-;eI_O>hI>!kY2-7?a{Ho15.U?o!tPS}#H ھSNVwyRQ[=kPCj00l59d^u&y H`(;%BP$u1U.hMj`_r7̏uǁt&8,EZi}u@*jďJ2ñpQf^Qa=Yh8)̫( 8K e\ElжFn_\&O UDݤ%_ϟ,D9yPR(jI*=˸G+ 4tOV;߸ l$my!Yse}F]Џ8;T׵wDKg9hwPm٬FMTAƫ>-ut/ @;fSr bT5\fdԎ6?J6`sn2Y"O%hYj RhXͨד:8&hM>5ЛpqMA= q3y{2+ eK\ɳ `dz^G"{bBjͨEc5$ 6m U8%>:WHM8eXpa^;ZU|Z_)ap4M4+lmՃ/BNenFa"C[ISa\g$M+bŕB"> gkM{l)w3Da=1y㫥3ّyJlIX>D`c^~=b^&?!XϾP]1 @߬(ƹ&^ kPM~/DO^jyBRɜ v]mW$7ﱼqdT׫,]ݶc0پͮ%4` v9jm2[r&:8kjn#34qG1鍷 X өBo^ E<֤6f#*d5.*S;Vs] E_mɸ?ψ 9Lג(Hm ݓ(1TBvvܚΈ8]Rty_7A2'n? Hl9{MoM7Ls+\=w^q1wϝ-(yKcXŘ\soU:t/=8;a{HfV1]<=X ƌbȱ5kK1{6[晑i|jn>||7*|MV:UَC?ZuA< + :c,qvƄ$mƍLbkQ]dIpÝ),Oj|tN췮'_|?)Pc"2 ?Mں3$[k{g0pTg=S519ejF6#o /L3gQbӶ}FUx' L<ѽ{#LO|1JEN/Ld[ *G6@Gm=}<njۘ ?Y*#m!y9kmaVBNje&PgZ,et-khCգ$ 6(zOSCJ槶?utIWGܙ|YH*,Չ~>n&A*jI'2d[{}2 qL7&;UƿJN(9CHB:$P,Ŝi?JRGST;=Z%S->iϥY*KL]hJ.zWG UĭQ`|kkT;s"to6:<\rꂒ4R}b{dȞ &ru6`f杚]' μɕBL:hnkTmF`פm1Md*a?s3}|F~ֽ`.^XX~ u^~EcI RL NͿȆ>/nsOG=س|@ܣF\o%/朼Q ҁF=駙f;+=PA-%!>mʦK{:SDDKXZu|Mǽ e TW }=Np4g M-4c_}í~ar&m1uH[h; ୉||ny^]:o,:I<ѳdS'u9с,A܆T5/j񰬇_=JhEW%(^rgDUm3 Iwл?(IJг4,(s5FoOHC1@R(uCJ}H2>Ud!\aw9 $v5+wޫkME4=[eYvߙuR1%nsNn+oyDF.|NWtD71*&"i6 w) ;EUΧu=98Կrf:38WUY×+S܍%ܞd~^ɽOߒB>9̋(}9gIm}*7@ۊfiiXg 6Ȍy9eBJL@}^:>J'+E?!U6I/9PLIH܂&|{ #)Y>($}0?Ć-s(w>iItL2g?#[]~Mk}G{<{V!fev}p1DJK4O }p |5Y5 ,Lyk! ӝAdIbS4Xg[N!]E,+(`nP̄߬aj+^po3?G[l'Cjgѓ̀edR皪ȫm]ۻ$I~'V+;ҰCi(@jmEY]U1 NBc|1X b̞.nq!#s|,~8oIiϭa&Vr,J" 'l: {NdRT:r޷3{~=⋯u3O^j+MyP#ʗ=ýu^ -?6yT~ӭ[!}ȻKP*ʡ=˴~2}{)h  }j‼8GYvwyeXs8\w7M:cCd QE+̈́Vr;OI=yWNۺTzo(o,FR.n٥nI)u{$:5ʄ:cupi4&.gk[!S=Eoc mMmɎMS㑀UtZXO}8UJ>e(fմCmU v$ְ=#>zW17szO}VGYu{ubcQR8'rK=Y#k=%I5]nzHFꜿΞ[ V(y^ӧuhJZ0Z tK1Ywe$gIL hCb>$:k=o4Cm!AIm (3gl j%Sڽ56ՅsGowQzݨ3 3A6.in3ݧo &wȓGԄ Jp:}r|ߨ t j;K2WYY~ǝbs"0]PՠIѦ,/dhO, $l8aT}E!j6!:@m3Dk|-v"!_ivBc_)&+DARgn&uVEBT6 14%Ԝ{N乁ʟ2ݙ<~Zui"2g)Gn* ' IŠ$G}o1J4N!^ oV^%@}lgc0jm%̦D߲i",W 5em%{q{IO+ɸ>#YW=1zl=.byN1πzձwN=ّҫ{qq{֯Yիuaz#+okM5YY%Q7C-v fk$m#*ڧ:$Kp6 []AO. &EYr؀D920+k;oaLU5S7=E@_! slug`I`6 o'Q5SӤl :$L^ qN n%uqyk,;rW+Z΁E\3=Abv)[9+?LzD0'"LDn2P'5a{O'hmX^Ufdw2nb>eh>h@ 8g DJttnfcY )NRRzeՔ<܅)ZMx ;ʭs鐯;11FfD!<ÒHi" OG?֨e4g%X{#jy4VAv1{My5BIh\b-, ,7+˼':>X>j^aٝя 9 DN&}7Cٚ3עF笭ZPgnI{Gȴ< .la$zO[TK]YB$yTNY~s;hXk3KeÞ /OFsB0A.Z5E قun 2F,X:2%~[;0"af((a~oRỳ5 oeÃnM)36[&~%o2zl)1z]AvR2q$fwDtcIX 1z̒byˠ ¶ NS lwK)^'ij3#l角2$xkD~m} ݊^ﳽ79ihB=uLwg\ aΫ84l1_?˶>c}.+dt4 T[2D+35P:  T7")e{B jO"5]n٬?҅[Ɉ`|XD+<}=g զ/S Q{M2vؓ`mn&5&3̍kDzv8ંȠrf֦1y:,ߙT>hlRy"B~|= c"V,oj,z9=ߑ5{E5a%O S4tlArc6FjRNbx8TpZޤ0hrg^"VqK Nfe5W49LT UrH5؉ (z+VKM _:.잳y\YڲWuC}ױDSPnn'+#®S1 heI,UHP>^'.ac*^n1d\&/1r GbӠ 5(\{nH+\wey֚UE+׀1PlUo[oN*sF'gj#4o`^6]rk*\~w5~D@5(%,nj^BDJ-܉ _ۏY1c6U$-VK#ߋQc賻LgLٜ3767x;nЍL(G Մ4X`fO*DFxhofy[Td%~+fd 7te.Ҡgjp 娰=MρR1`:r\Rא\mi& I [_}+S8Vy/GcDu 0.*U[#w-ZB,X$'mE0dt.B,FF0QEH?P],e'&FN$s [ swF 7v=yOP"28+y@Q*wz{ ۛվ嚉otF8vvqkwXR+kn\jԊ3xymMc9GH,L|ӳ-'~ȯ7>t#[֟<=4Ki7>7.>\*0Zu6'QG3%U+OD!"&GGW$TzAw {mP`Xĕ; XY>dXfG8?1`Զ\N?#I"̏p-oĢHsXooh0咇qx57j)='5'7d4ީqQ\j feC&3xmqmM]d~/2:lv ހ>t^ }42MZ,)i-yaI̝mUG-c'֮ITJz-<7COg 8=xm^&FXrd, אcVۥ^W RKz׈B<T_33sX坜&U{>ig4x7CX}]^E08h ET^'׼dҋkd9Uǟ[2L:BGPD\>5*`_eҞ=7~ę54^_aQW$8G/ rva 1ُxM[@ Y%l;W_SmU !YCYF,1Z) :eOUWWGA4Jpj( X !#'B"fҫ gC@3 [A4\ً`*~n5t刋qm|S hP䑍$4<:2YHjerR^ -aᎭ1U0_T]miaNQ2[]OD0E-X!xMGCtRhM ̩V0y$7o"ڤ'\ sb ,G,hRkw4Qf@GHS$¹6c@xz:۫koυHaIo?{gwnXxL%۞!Oh?B`z̟0SjgJ;-Lg4 |R yE݃)w<[ L,ٰ;׷Yg2?u'Vua6BunmibXzL)ǟKSe.~ҽs N:JUF~'h\sFNN Pp&k0cyuiM)hH c.EO@Oa0!PcR5Sn1pZ.dzE=z@.Y- y.ho^H]dײ43%սl7e x{&4ƿ)! ]Qm7T4Mf&̇KB-R}׭TK42*):$zǘ^P_MjOXoS&O\I'q[bnfI#̫?B@~6BkbSt:P@b=(XWs6W8!A ± 4-6a7lԞ8$ ŎѨŒ5UD( ץSrJA[b#kcK#TSMOA4k׵]]3ȡdSG8=]qĪ$"a.sW*ZT[1r̗8:[ W{b]C7#0{kб2lA]ɲEx (筇әrm;d49aD۪V;i07qƒh{(cŔY('$/3( Dxb<7EfF?G>܀7~u8@{t ,=HYd!_93pv*d1>\#"}p[ձl}Z.>W?-і{3V\ݔ({ljfCْr:ŒQ6 KJgsUg9K"ID 8=vxbS{ jHXnSF9|JooHqdQAUM{W1R DžblPr8.muuIof(DC}Ei$-B)xYu-B!R.P +giqvWep]|lوlm1tԳ#"uKSu[-[_sUR8'*5e_EQo_P3|$v, VkZ. I|bƘցkJ>9Y Ʀ)N/"4uӄRX^5vx ;׶ | G{%S>V@3r %!rߪK5q9~% # voQuzykstɀ}5.E=5>L~ZxѦ{iIQP<~ K히14J|"BѿR=H10+AWvˋɨ&JEX(fu9i*>zk@%G; {d+]Bq3!C6GP.I)ɨr=; f3KNz˿Tڻ^{0z7z[Œ<,]Q^ALTJ7ﱣ\un9urXdF"N fVsN Τ! 7a:{;N'Ֆ>1~3ҕ.G <)n #j|Ѿ2Y1i&'p_o6T;$kݹ5Sg%W!Jj2^alzxݜjOjqRѳzb @ /qf'(kS] TӚa^\K g=W璈l9J8zsGT$X ͰrPV &?3sсV؋wm',Ch3OHxhW *wd>)%OV$W薒>3t/vNU2f65u7ͱ(;^m}5O҆l6vkDBʥ#ұY=m ℣Gud{sFی{Ql@E"23=O7cwkfFTC8'[aqjt,ɸ٩܉Ld)|r Y MjΥ"%&)GI=zhί#=i %2Fȟhc5y5~2!-GmsS*5AOBߡi+d36_aٳ+}!B{uC+@b۪L1X;Uy:8cs+bFT]գr#0;/ }5V,ґHfG8O1ONaJ"y`PeAR6%4Pq/\~o Կzcvf>g֣2 +C b։n'"$3iΎx"9mmRBN>hH`F"`OPh˕"gUo%[L<Sʛظ֧WaX;]$fTJ6v(df8|[7oM߮tgtG{'?ͦ/X6L׍Mnt2hc֊ /4\+S@r'IA<,k>݌F}A>9Z` t`=B-H<3-\w=\k\/ de 82([[+L4]a+}hxq\5{Wgx;[lf| Dd؋_u^ނ}WlU5l#ľTjX, 31JzIOS.ah͋/2PPK8:.`!#z35i[£3}ȧHv.ɪpft|uNP2 PL{SAB*H )Kg/x6En6ѩX$֍ t#aǴkq[]u% YY#|;E>6Kl.>8n;6emY4x4B^29&/Ĥh.tU vf5nU u1bdV1< *!W; =`F" >5/N/陿+*ք rU(tY$v)z82ꭿ2;JO O7gAk $>}`VVV,{I%4Ťk'\&!1o Β֣Է\ڥ<$@ח$کBJTA6t.KIlqm=dYZ,^)sFk%0g?v:Ed%%~d7BzU#@bГYXr[/w&ij z>I}fZ.;MDiF1[ikO}0= `ZGqxܚZa>4J6?9Ik;7kwSc7LTg6sl+Pkr w2A yS $ۗs3Wr}r9G)yNpepBgu3 f4 ;&)_lQE_K3èqN<=F;ՎK<8GWe\hjP; ɨ7߱hNeq6zNu`/&Xsݕf3VtEbl4P9bmf^J^?_S؜k?n]ZgwjB+:GId#dF{5)Z>MSqy[{;iFs%IMEźzᴲy& bE$58 UwH]*˶Qq=ܚ:i/P7#òv5 FktP?uG֝>7 JNBՉ6J KN3qe;H-,# zZ밑V9M5Q<ޙ#Q&o3ZpDUY3U#;и<TŞ ê5ֵt (}9 ӑ Z@t;?r-9owSEHpsg3o&Fp"^>6t9BTi}Jz4y#丛`Y!X!w"4+d!e x´n//_Y#Wmߣ[UuVsvHw®fŞo^N Hlk2L˄Ƽu~jqǹQdx`fE+Mǖqh띿<4fy>LD7{ɦn`5]906 D_h z婝/ &[!A9Luz'Ҭf?Dhj8KbfHbۣ%컐Ĕ>ogS!=A,.\0ʿMrFcbsv$aشM4+{ۮMrTGGgQc}ɠO@׍Pd>2S SA]dbZ?Jlah==A Nj({g\~~Ww8疰;=0-qDXew/2m*z]Zʼn@ c4 LݬW>IZ{گyN;\&G!1 pxlfdsrqSԑb|Hsm4CO[!-53 8BSF8~BP v 0FG] o^8mmw7{\2@~ #7>`}`dzV7?AՏcFL*pɵO$,:F{ x,:S sXa$g55ZUDMr#,HEWX$5zEg W"3ԩpWiBl]{J) UM%Zd5qU9)Uo|1uCEC-czg{Բ k X@ 4rbP)B32·_ )LDKziѬtfl247< ket2s .~eP@mKĬQ{Df%[[VAх-'s-W^^H[^]EA"ZF ߯$3CRIz }:΁xȫ ꘙ걛mǙǸҨO5lܠn+?s2$.92bzUD& $iL(f.qOwke,5k%{m @>bu ߺet=#%@gnJ CФ0?^!R*LSU8[3l6F}CpӉfkIg>;8ՐY)k{uN\4+c\ma;`oQ9a2rE49V޽I> &3^>gL)&Ȏ;aK$+[mH QZh faPRV1_Rg_[rPXL<=#TW`8ޘO6}3Y283%'Dk\OfKT,oYe`LOC]qGZS}:= wpVIfȆok$/;ΖuAȘ1߮o?چFzI/CW"bX 3 fӅ;n|,2 wmu-qT}W K M8]h, 0ɮ˒8gx$_& 3z5@Aݫv&Z#n$H7ٹf6d6ոx 2rMM6 zDuzY:;?<&^ﵭ2Ji3~C6̆K[ ~J[lࡿ'e8<|K ˉD h8fMWZJ6u;Lf;S%w)o;A򾶾Xs& gQVXφ4/6(vmxEL4Rh:̶hҫ;*Qxie-gUY3>\531=$c~M& {HՆY mqYJr<{]sjf7APcL-js(Aވh a*.PC3{hNxS-q?ptdWF$J즫F%&1Pnۉp:Rp^ |=~VY+YkH7Nȳoh>=meԓ8LLa2ws} PbTi7#qG/JS= ,o:繳K$m@SiۥU7E ַGodG\ `eWHYۺdrcaߏMa:Q ʭBqO$a R&{JP|xx")[)?2?Fkx;wG~<@(CL7'2LeךMGt{zy'U(;6y-=WĖĚס"]#Lj_MJ aAXpV7A<*y9j\>сT3%(OJQGh>mvTZ!L;R$ mL2!Qی.1EdAw{)[sxG,ӡ+7Ao!#OTT{S,c; ݯqT>~ 1 0qzy73 O= >OYD} -^:~5QaAS}xt}[`y_{cAsX&)!w l[+c;7.?Wې 'p f}Et\ uިu|.Wxß$\-閛%SYJD~̶\T1=}#,Z8WI[q<{+9-y{2R~peY&WwG}}f:gݸ c箠+S߼8Cehi"lݏ pcl)_?I[K4CND#ZiEkm4R>>}\lϕTz֤ꘆ9CfA6asJ 8o5IRPWd:>MA;i]WcPCyz(J7GMN7YĸNZ%'  L=ɠZi_df< ;j$XoRK5C-evܖ$nn;|CNAY3(CqaMNb\#y\Jw\ 7ߤ[ѝ74[;Q']'Ur +wWVk w.%8!X,p\F\,ܳX,bbh@O<rnSIMvsW7L&%pJ桳|j$Ԑ1EV3AM6bD]tɀ0)pU<2-XFyJ6ӆ h_[o?s t}fl-ɋy;s.h,d\)SzxXY(:G6&1Q-Y&t35[P!yX#aWʵC͆t=&I1 dC30{m@ǏBR^#^q ]q/IKh%njڙ x#rwޛnkIU:ʢGF,ay޼M8P@oT>ډ >++qSfZ~ׇٟ;tkbu+&qBv O6z]Pi뢾ߧCAb Z͍D`Zn\z}1`A_E.ҭ% 87^fJ_sEBmJ+bGon|-D) Zޣk4Rb} UVlt<׋}4,9D @>" # ma3ݠfI eP,WH߯34{dTFT+>XQlK/oP%AI?Mi:A)Rv"%IO6]"RFIo?Ze{E1TkO2pL50۴c+C]c@~uJB,as*f/H*>3I$5҇gQ:u5mC!",К; 0[<%}mXȪqdjIYm1P&8·qD#*^_뮟|i6*96Pu_M1`H3(d1vu<+֙#E٣:G0HYϪsfW=|,#Tz3 `Q-sI%&ս~ 8ZyxOvIV;zBtou?Xp^9k"='H@Ư*9v֜o꿤R/6,w$C{--=11՛z+)CCS_b` ,50%L` A{r0yO$z' '$3tk"7>94̩;z~+lʳ&JFsmoǭlym1+r< p8}EreE$;)49'}!].xt vNLYan,Ood-]ƱŚiPhDv30(2_ yBӁR.̳-+L5kLXB<oLvzlZ@μ9e:bNn}C5VAX'ѥifhMwiYoyN.3]-˦ӒX1d.Fk)AKH,/_ֲY}eC5OD%_-4yݲx l5kp,q5ͳK* лdmP杨&Zɒ 8X>t=-=6;:bi\[ h|)QkY U;K_:WwΞ͘hzz!e;{̆hj7LlD>o)ҭD:Gol6x rj,ד@!:+>;1$[IRMa)L y14 aMQggqqu~wMR/1%N9tU%V(@"PB{kƛm4uplgrq +Y5E8U}UCľ:z̡H2/БgIu}jܽ L>a}F~~|3lЋQ|GMg7W˒ C( l4F=LͨlxjP:|z$QH{F`.?Ct!$O"{R3FtpNEʮH2ZO[l :D>2Ǒ @*ιFJt'&@<]Ƴ65T"kzE}Ľ<;[e }#5}$xm`j8GCF;GQ=+.z=3O6jT 0_yʭ_ O*ȑ5)׊N"߽֤9nQw6V<T|WqiS#mDykaVXވd7CtǸixHc& V.5ޛĄ:z^ "coWdn^np HX]hX-[яX08 K6ueQw~iпT'Ѵ*l[j}% KfOoȹ| 8Mw赞&Q]%bAOPvJYHE{=A-N.ޓuK8g ެbEzS}@,#?#/Ǧ6 'a{kz=e@K]/έŨsACZŮ][J *wn̺- B_C՝wF5oSxXvT[7ӓ ?Gd)m8efWE'^/[DOtP\?>AnA06X>w`a3 Q$Vr5a p.FjWi ʝ;$ F~_R,!rZ{ W&Iw0ፆf >F5%.b j~w|4X睃i ~4%Z-j^ACzF׳шt\g$_$2|wtGfYGRx_@\Nd F{9%33LSzg:E őH Œa|(^M[b뛶 :hGBeOb9lNZm( /MKaA1_~^,oRr&ƅ#sx3@O_7و`j| )J4WD>f2*w ] 9{ck prqU*WN#^PyP S(2u^/ݠg<^Ō7318ULM 6IrO`S#F &dU_x{'/ꇹ qw1g%NdwņRtG`XoN%h;wy!lA׹nN_ߵdVMcz؃)d|:>Ms 22{DV~;\*{ڔ`9?ÚD(Es&Y_~$͎m˖eй}6 OU{]?żnj`qעm^3!v8cix{F3ӥ/v^lYusYuupPg>V`h]w+~&$(1/%&Gz]ϕXu$v{0뚴=lp{FB4/%Z휱dYH'`DB-;9qWBE';䉩wvKZU^sMR֚B:#09KfʲI \&벷?{4G% Zw %@be aӤnJCwF+U%RFJᜥC\Nf=$:쩘ÿʟ$%ـdMRIѹm u b۫|"gw^LwQ9ѯ-%=~"Cov\c?wcX=#f(EP7e+aUk J7d>DoǺu^7cS!dFeA:(1qhR){L.ab$RDmO'&9ٌQ?YFK]r oAf"teyݑ15,K̽*;k_?u UM3Ǡ^6Qf|Nn|-j<4L& n1uuBOS--#HTB+x'YEH*+xk@ TAށf]F1\)(071X?AAMG|hMRaj NWn֭PU s"5KΙ=i&9;~X&Nk!HXՊޣ5wi׏ :OnI|مw$ȎY,^_='$Q| f)޻co=[o^3Fb!dGO[k@7ԑ@~ G3tdu]w'!wniUG:QNt[&WؐrօUU#d+3om_EcA&395x9/>(0k4NzqP|m%EerdدZ{2:b(cm!t^*~%'xcɲ/󃑞k)dj+zGa5JuyK9.ԏkKHap槑aJ1 -7ѮN/zqU;firЗR\:'-o%̞">!Ƙ:I|Dk *[-& Eܚҁ6{C2hH%jm<þ6n{ovfYÜV¯a"m-K{bmIypdq ;RcH#E̻M;R,W<4sě}C+2X*oJ\XxrZ9@#ɺ@KQ/))L=#쒨Hq5oqz&{W# 偸{8nG^{j$kF7ܷQc뺯Ȁ!c!dVV!֡[xAj}oWy%.*-%<3f_nEcTط{Xڢ#Z9cN[yN4>~nC[ @tɃt aI"?5wkG*{i*l\j`{R_ϧW=WTȎWsM̖M/( J;ʫAQg]*fWsҚ#:OBk2.ȼ'xDj*XxƲ\$&?mѲ5WPEzDȹdvlgz!m!20ȃJm r|]aݑvJ{Noq{%a\6ߖ"৚G=8?3Qxnܡ_0J\^A,H0kԅGaJ؊މmi?Z{*fR~ɮ=:4RrSaU++Aü}UIygoD$t}2@15.?5-?JA'k2Ig3_ˏP|U#/+^ITb|3T-fdSeExt d%Lf!D~_[ǑĐDYf#~%`r"X$mN,$ n*3Do!`$h3+Q<֧T\qA8^[Lи^>}% ӉĿf+G!%E#B=5WX^)k{^ƄOPYyq*?Y!OH 1KRw 9#uo;[9㼰^ewtDls= ~AVEOdVQ!( HF6="蹳$), eO#j 3J[曩䆍vC5m+;9~aCǜ)V|j  Cg!4~mCRDfD9cuH*{jI :bF;faNvig˷d~~l`27rT:ayܾ'wF5bGTw0W~=^+{\j>#XjPt(u {Ao>mPBN3+`$N><9WSx5I^3XȰ>ZF@fC1}bK`>y5+ꯉE➸n a nh㸯pܴX_ 7: p?78ޒd`{Mh{[@s%ϿҚ h7MNꖻZMJ$ˠ[@$=I TU3a/ڂ|0Z>|-G9&]G6ur5z돼i|9z5t5u,nK:rPH-Y{3؎<#XڏDR??턉 -$ &-%aoR(-SϓyuGQ.h~)F+ ?-Et-#9;#'2'o`,}_˝h# N (lKws.6xk(jQ[ ?iJBH{,0 gf(&s@_#Sʷ- FLQSյgI1k ,ح"\Xk^,t7JY@8s0{寓Zcʑ9H:KPtLp%y,] $0X:"[o0*9l'ٜ@<_*6 Sjs9&e A\2 9+8h_ E==A O&2ҷ_KPwǡҧ=m/=񱌸)tX!?yo }.=O}aHٲ܎P$U9[Ҫ0zr;ٹD!U URmjhM="nAYRi ߸|ADח'ĺ P?Μr4 2#m9(|~J{|XDTc exUZyJcʚ\Y \Zue"۱-]~2|%85s;ށ%* (HQDU#q|гf>;Nx,Lڂ= $ך;suO2|3'a!?8FA7&jX)-m=0=5ycskukS+.Gؿ#ǰH x{Zx-X5Au6|'w[;|drFRrĦ yVHR 5Ct& [s Q1,cD5ql΀;47ԥGN~mꩆR؍0Ae;ciXdTrn=SHE5'cL ݒY*{k]; ObDp2q[\"QO۳A'4NolB‰bi%<`7F*!(Y[ľsaA1jD:a}s9EWydZo[l8h[}&akȂ XG1K,I3>ڐ-S͓)nYdŢ7R̡.Ewa]f g2/',yʧz _x;=᪾ .VHH~5B}QysIr'SE7ۤu1BjTˉO?r׹L(7ߛux\HKFa2BRwJ'(A/<zBj[܎BÞǘZ6uV~A.yΚ\5#KA͔}>I" Nߙ~S JKD;\2/B52FqSOMICÊ2[j$yq0 рЊiYSR +y c#aYNr+: * dXf4a JY66HBo ~$\߿%$qqA쓀* m{MY[X0=X?h幃ft>JY@iuҗZYw>mrm *2>_pF5?z5H!Tki0Àu~./v !"j;`wTZj!lTuw(a'5fOX,ͪHYʈIvhHII r<(=k] WثY `=xd^*%hC03^Gī"mkd>[4X|^: 4KL4Kӹf%ۣ\h l 9TD>[ȓ!=+5yv'~HlO[Ew_B\)@Q~#$oh@CjwK-kYa^5, kh]8M̘/葛/S/N'n{5u{!wu=Q&lK7d_63Pyz!v( [QKg5%4P%hc"w GL;yAW(KmiD=иtqu?Cp`{)% W98îOkMu[ G>?b.4QqGg2OVBQ.fɆlB=O@ 7u(vI,E r{/Ե{Ax2Xcw3!O 2Հ? PnLuu 7֝]K%ɹ~/*e@gzTu.pq:oj ~ﲏ7ɶb2+ *3Oφ`wiuƤ߻CKRw38S~cXj6gF]mN+胟$Un=̠*$Xo^=7ay}PWao+5JJvJ."qzB uؗ)v꟭C#zzA3m.MwTUfa`kёp!gdOY8"+A F5]؃CBG=q&{H]iL=h=5,!9LF+XmdEɨ6xgQ6?4;0*^;@hk݈8Ms9Ibi߭SP$`;[9.vDc?պ֗eۢo)aEaM{CmR{d8/`HQ_=sBR1z/C5v<# f^JtBK6h^wf8́ "4S ae"i6kCP~Ԡ.Uo+$Dz-0SEvLiK}kql3ۙ[hiSޱ덮x%f|F (h _nF F[ڔhOae|]mj{c WtF{J*=K6IMK; lQ"2eo1+/3An"FcWFW4c6K,L7=aBw+hr/ٻ Ckל0Qח.$`D-Yi{f>2ǣ#.s6[YOFf`dߎ s0z&nK@6¨lݖLZ}k(;4 Q`j8 \"ժEvd\e8/r̜]Ȧpww:w.Elհ?(rPMëtآgR6 n'nB-RL }ܗwyB2/ciL/KuL;YE@rh6}TI3D#6ޖXE&OfmY:B87 ~op+62D^/Aߦn{vMrn1Վi5ij'5s[dp~9>} ;/GޣG].Tp PVSbD$Fs[s ccíl54Iʧ%Lg!M9ND}wW10^+mNtGDURo]ԟge‚ӾǓlM[yu [-覊,˓jP|!`1δW=f`ga2NDzKBP;DLE۱c73RGk:r[NY9VdO`I] 8đ$H. LCCxՉo7)Pp"@7֡Onөq5哐M``r ^.no;A^S˦e60-\udzB]Q;hD4Y=M#}yCG$HOϮ-߰!z VAd~b{sOHXki "JI#y iz=}8,nnA˘r粻Mݞ|Z)ɓ-"ip]s-=1"8uzvY @s}iL}k^4>z]l$ sYiaT%T猴xJrKn3?͞QDpqc,+0t3rjfѵ%yd#]-_pWEތu帍h-RܥICUM㎼YaW\Vrgfɾ3ÏQF.a]ldh]حq,ZtLGg@~MN SGbUJZX% Fc&cڜ1'uCC$5X]¶%bK+rdY}5J )I}~=&IuC068b*V78 PIr#C9 ]fFjBJ}s}ËyODI:~ HÅI;NEg65Ϳ~F :+j|N͌|Ԯ^&xßYI=_H=1[/)udItnRbR+7\c$5=+ԋ;27 S|,"Қ(Gb =r;B0݃gcml?#RDXڰ?pĨgPN2 <}ɲ^vuJ)9I|t;p5{!xBϛ~v*?߂ɘeюqZrQuj-_t[bE$Ґ4ⵊl67ϑH=ƪZM0`JS&,+4|QV$fKKmz"EJQfZ'9JN~TX*`s83\[NVdٕzKӾ{jrCA:q"g,XY/);<jpb,9n|qhM$t[載'/#@T٨Z= q_4b'4"~aWgωo/&;f2,\CB!]9֌BHK^AP6`b'ylPfHlHj3gK,wR[N$t{Lzi:Lry )sH)k"ُhLy1஭7df2*.:<mZdjo#'&`P<{n~GxMp@5Н]W0(Zw֖y(V_{lýXHfSMCFӕDyeX:I2k Wn^ KlK CZWƲ]OmG[v?KCVakCv㞿}X >uLK@C ZMOy7,wdD4]=KXĀВ`xBV@x^&yT>DgrcF9z:Tc) 5egcg{N _vhe\PM]>#' Z>BDOC院JswvO8ZBU]Ug8 =*Z ZJFq-)&)\C>7/V1aF_՞o8"}&Wn񫵂3zdk{J *dD чF,v"J!F($;ZY.p"}Gg&Ċ|N @Yv都~]Ft-u.Nr P[V(Ò;2Ee*D/ )G+iBĽY + Q~SLPy9 WBHSrC$ URPvWeT10 zJ#,;,+*ﵱJQKI{+[ rk#V?rP܉gvKSjCF| \M Rk S cRcx tkۄ%Fx2qO^j8Ѷ}M5`ZqZnq:@!]Le#kpb2[&g9O|:`P.=U"ຎ%Q0d$i%ȡ@83iryp|Hݢ Y28؀ R?_Um>FlABrxԡ-Gt0]EH9=MZپvXD ¾K wH5[23F+x옐ahӗfu&۔9ׁ.}4ࢸGwC=AG̕Ll"F1:R%҄{Lwn1i ʋG43N5{W i<=DĤ].ycNm:7p L6]7uWd ٜt#h&Ie9g2}@iD;x!19if40C6ӝ 8wVf ߺa׺y^-oPk#IcMv~uU/xڞGF ??v<\TU5Iqfx30(l[^161*] ބ V6vm8j'E1I6Q>xF}5Δ'\6g<)Lbs\YW5CMSs$jYW+?Q6f48kOr}A]*j[3SkhPN֌F6ѿWght\w[L2=?6[ur ?eZ\:=wiuqgm7|~]~۞']`0׉FB%*y*&x:Onu`#n{:_kU :L;"$2zګdmYjF{zϕ!&k:OFng"2擠׌mE8ظh*xþ[p \IZuB|dWWozl;@rߒʕ"'&={ yܿuLcƒ H/,xM fr 29Kd O`ȕ]cJvp)QU>MR[M Jy*j$©gDP3F_^Y1CՋ|k ,M%]JԳ|R.7 Qy%* xk Gf~ OF{oZ*yޟ#bU *ís>?IdyM iO:6Y[CEs9X ^XKRrJ 2f]βI5sk9Tzh,ߥjR@=۽m/pI{u;&5H vy|ｩϹ򃷱vY(psOzwFRVyEY$4(hw̛Z R{Alj…23q!UN3ɒ^KսbI{jѓ(ߠa{dlun3~M%s p m(Bpg$1k~k+m*O$aFYu̽w^~O͖*5<{t='f^en˙h߆޼!Gw"-5({vDzZ}vS'G&vjNZEU-{=mPt)sDP|nzܫk8fߟ[? {&[r-S(1`nSaQWۿcQvC85$[T1߁Ui;A&i`/V9ee͡\n! ugtJnM\sk28~*ZSe 8jHC=9#I&3[6M/D3A4m]ԓ~ csHOڅ7 Ok fB6ALp2Ζ?FaևFP+=[K7Oa37[-!)U'/0LKiv+~x% Z氌*_?S^Q嚟OLaETQNώ[0AGg>0pi^|yl֣V/@2q?g 8"}hVHm e(s'sM%';`| kBILf]m=q8%zTcxEt5a- ]:ol :UsĹtV\$sRѻ.Du_o~PGu(ӄ*{W;)Evְ[Ygn׻E yiܭk_(> z3!džoK,YTu'9Rm` `T=&i{EY\9&}9ta[1zi5NJO2||4Y>#KHoLXtWM(R/S٘zućclȳpΪ>Ddj Y3j9Sk-%(mwl, dg?Jey5 MY_u*D$up.AgHy!_4t 뻯9$o=[ zOEWVΆn=A 0ϓ㮾*2B0OKF|,cq 7W|!H 8jޢ`^ADy/<ݧ:hը`+$.BQPbf(30<=وYns'z̶&E>'LhOq?\6/ 7O"5]ct.=?SȦM׿btɆȾݦoLnI`s<Գ\ژ^ZUhkL87؍_M5Er~3g{v$V:Ư%~{uWRi0cF!(Bˌ9'p]PĀ8t& >ojVaX(༯A=SP3}*F~&T1DڦK`GEx.]اf|J&+1*:TOﴆ#M^ꓒ̓;2cS/P/}j͇:%XkБ/|ɸQZOMSR 1utsQu\S|VR1[7f鄷ow)EyԎ)-?=ו$5N7g`ugva V$6mz5^$Ώ=)+xjh!o&ڒ2qm'#|uX ۤi91+KTQ| C{\]Ah>;&ڠm<<~τV Bu G ۺ,39ofMu;$RvعL;SH#DqbǑ&8ǥI B>yӵ0 6fGkЙ ?s<,5ʟ3{54 \>{}Eh[K-QpmHXű6WogMg5K"II|sHb | q$i-v}qz~¦wm\AX8&_ϤGV¶sR$OYsܝܥ1yM0G̥Ѹ-gnPZ։~ 1,_&0't~BB}8f[<+ǣ 1,BBLvz Dj׾mO\CT2o=* Ua]>PAlgҦP9mfPaqYdWa?"ߑ#9U Pkc z Jⅱ'A0QUeokjv`=9 AZƖgԘ7?kWsc9vl7ij{ȔobpƔ9fMZي'@QlRA媌Tñ_AcLĵ-3e%CN7,hTE}bҢtZ"?2D6k62K 2p'O"*)hΉ!]#($ ljjДl+WĽZTN1LCQuRTY~\Mj.70 ?TqKߩ%pB巘1;@,R?gWaּ`C@ȉQBOiM5Y z-󠕺 E]uX{ah)9n(]6)ѯju',>xVESCa;|}OVtwN}@;~&gK>RI'yOtwq <{6ĨĪ/̒ R0j`y 2v9\6{-7I&a vA38ym.I% )?Ǿiyw;ܳ<F<EEpNR[X({ԩ rg 5JZBv*1Hfeg&8Zz\ԤWȵbcM"c7u2VfrrhEj5Ζ k=|.KvPmy/|D2/+r̐~ܛy4×t<0߼) cl>G2́uWi6T~D F}sJb pcqh)+JlBAwet$VݖAP58P\\Kcf̢ie6\>7tr!5EHZg;GR-C_90"9Y3{Mz%R@SL`tHg6ۇ*C 퇑Rę7ӽm`bq'uwHjeڇAI^Ȭ[fPWKh | {a,-$MAˑC(2g[c7ȭw/<\ />֕2neUL2O= brGRtlshxѯrI>ȭ%iY^u/3#<yMZC|UN M1R%uƲm k|xGqkQx4 ኴ5*{*N5>DBEԇu'ً"HD#k -gvxZD^F@FHazԬYY26#ksGhK@o W;q{Tk,}PnV/:-ƍ[=yx'{pPё1G >+& '=S C%y_/$pP,> D@Z_ юfd2Ck(y׭)(^=Ir3 |hsppGk|#bЋ 'O#Qkz,H;p[Wt~"uJ%O@By1\MY[erFWPF+#N;dZ#4 #(O(gWU.R;/m=1 +zGq\=ǵ abu藖TG}ڢJ#렁 n+{*B4u撺u>+5;Z0Q۬ǯ,];=b։k S(Fo(Ou E$;͝(MxR_ ;#`繉x4^.ŕpΦɻ'H/U=`9Rkk ư{W4wj5 9Q랲)*[IpAAvC|[FqZՒ13xnHy߭D+ 1}O(t4t gv֭A7cwDR/LŞ)rCuP+I"AOe$fIC4x4p Z5lž0h/Oꢱ+hI$^ȓ̠=凱9=S 4##}rUɒwB$mͽ*7zF,~k@+e}Ĩ~T"jAщԾpU7*#m*t-zJ!P'gWhb" {](ixkwXUc ֡j,vNf`_j*ȹ"(\ҫS< ^Rf~-pƨTZ@1;(wX6\4>5dĽgyٴ9:|J!T, [`̑z{ }WB?`wώ{I nSrW+Hn/r4HD TfI&o զȸ;]&TiwU9$^?G&D>,l鷬m6hux'uA?C|;on Ă c1`΄їlKRli=v"ȘKkϧi!3*)SA [͌ b Y';wCl("w|ѝ6Kx^$"q@|#ӿtAnvoYL"KzGUݖ>θ2=[ 7򯸵gR-L.ªv,s [QYּ[z]zyLۆNZwl8I|* h ,Q/ս.Q7Pnf"C߅Ʒy l#5bcH/>/+i>sQTaP ;msV\6ֿ3ƕpai*YGӏP۶ʔ!x;XPzh0Leq+[ f?E]tG êp5pR[&@* zP}C571 +#!/0ϲ;Ɵ}_$cU0KCW;!e;= r%;'vGk-.'UIk"ͥwn,ШK0nbg )l ;l`Y6j"l SQ$ve i)j\@6RL:php,(CцH4h!xQ=v$Zyrջ_Ҷ\>u<:H\MaYTv'Igi 2 X/@%(7"2^p!cdiז<صwe|50#k@2z~(RZ i3%T,GGBw+1{9j/YBP4C2D_`K5RmrᾢzRdN͎a6:: p}H2uPTe9*8+,~|iTWð"$Άhxy]s~^kyI&HϏF T/rjȀ60ف&j,Ww:36w\]߁\"mL>;y+_%Cg2 .D2{~N588GMM?RhzHOh7H[t! Ծb53֠Σ!7{kv0}(HBMd1eY,u4ｸO5 |Lɒ)=:`Vh8Now莿?=dB_'<v>_a72z4C=ewzjay`1raXx0_z+P򍗩U/ƋVXğU 7 ĜրniIYτH6A&fk6[©nJOBx`#jDfq*<@aX1 $(V^ZY5 (%~?FOMq L2"Or}7*6nO[; ʈ+9_-|#ag%2'g ` .+k #LU,~lnUt I&g9[fۼPzJBMFMୈ@Cw22VCL}QNbf|,O~+Ƅ] *-VB:lG!rpzdW Pr n&c۴0Ua;I6&t=O{3I)~Gm(agB9. zGu/b e0)'*kK6 s P͎L6{3Z2j} 'w٩ / E;Dx*YNTy0!-זbJ$m9_hAmonâGUW~X|:AcS_'<<'6m٤e.}{5#9nwi5x|0copyu !p= I*$g8[&aUٗ[$]Q% ״>Ѩ9y䗱rt>j! MGY\S7 I;AZ$(8_Ɋ*Wp=qR!ՍiBE5FMѿn 1ԨB @a.oaPɺEN/PvqAFE$S:{ SK&ZHc +mcf>I{(m /TqsO<\n~'qL7]O )7n}ƪH9IBWq1f)<"SZ=K - ur>&$&N~X^=)/?3=K^W璂s8B}>DBkYŴVjWhJmᾅ)7Uc ; eW{OcLY%1~P B45Ӆ, q;S~Jv*<7kb0Ѵwjs](~kEP',bj5z&7ZqE EMih/h7V$\KJ[Oij55[cAeH9Li .ۃvsdF} ܢڹ9C̄}m9D285w}af=+ۃqF!Ql3{A')]o66f(Gy@g Իgӛ|i$πXna G[P۬-LU;XkoV338 }XOccW{g|obv˗XO 8ψj T~r>ޟWns5BL+?+<_y':dBa$#+(QR]@7wVd)PRE1'/ gdu/\3]0|^&[QQu|3~^) ḘئHtQw%{׸qnfmaM۽M#Ȫq#51Ms1EcDad@W2ŮhϭJVsw#wѢ|n&부vTE2+Nl W`qB6ױ*dCgM~-~}6_ n25qtT99p_="6vy ,LT~(و=Yght~o.l@v"ggo2)>I|PE4:$x;JHy:udJP xtZ=TxkXNкgg 'vA\o?&zstn4f[GAkG{KEQݝגO%V]&H Y8s;=47b['n\GvXأP/]bfX#UXuBs$;1P! ߤ2ݍ!"|%P3Ypv w[Y85_iw)ؘ=uP90E}ӏw~]&o9#e0,m~mE;EF|sεcz9eeo}ii :߉~s.i0\Y C%\c*; fvՆ#l.U/x[9枦r %H>(E^X]i>kIԭs s_V r\_&Gԝ)VoHakBd\{ CeO$kM]`C`hR?Ƙuuڬɶ'6R?V B%YK|٬l1ocTT^B^z^zUR=)4W`_M/gM[I!EBOJ0ma{U==4>xxXu+Ӈ.3StIq+XEC{yo_8D3jtqw|EB‰9*o9#br߱ Ywfy!.㞯;R~+ØXZun{: km`REG3/o*MFQ5ВO!zV1T3:4&EiؙYpa <a{ l9W7֛8EO >#MH!w|(=(uZM::*lۍ=н3΍TDq<737Eqf0o%vwV -.(fd3`_MjDSn"1 $rXY?GП+t6r2dr Rc絛;إyzxtȭ3[IK;L8If V%I{?K1@xqBtY^a@d~ QTASȌ2$soy>,Ig#Bf#96Q..5A]B]lW&Y\V{T.0$vP)I;w;K_ C3_Vl e3ל_l|帵]h19]yCHv]?mN7f}ؾs鿩$K݄di?>J{vbl,Kg}FI{dns?Z!Oy0̨.L \ۻV L-ejJ֯>(mgQFVS3M*o)ץ>%Nks aTA[{^IžN]V{(){z>\/y+6ϛ3*k@WcRF|ҍ:,S<$[/6튺Ş)?IHS {t&&>\`{sI9_* z2`jpFCѓ"Lj-5_HV♢$3g,\,}Qsg?QaKރ\͊m3jBț(w4-tNlͯǣ\̽B-g(UcC#AzFWE1X?W)}!啯d#+ZmEҊ,!@^!`ytOP&QA8n4B VzvL*:QXx%KNk9=!p;&"h_971W 6(OO~5*wD8 ?W31]GGXC2a"9FQ?QsBdC#MH !ÀK ܪ_BڳY #0G ǵzWDkxXU- .<^-|8K W=d纞XoM8ON|l'Qo-|VN;xt띌oI.cu`1f=#2=?l|H^Ϛ.bW~;j(,sM;'<^][%BW,m`GE wjfzbOZ?^KAZT?۾>=A€.&J7i:H0Rxt=ONdLJKčqp e͑*/НR^&$*=tϸE%v}P߁x[Xсlbj[,/&=mcwE06Y /,&~ֿk -ztse>9"gtsXX42Q%L'wS!(|u{>5JԠ:(}_  .|9ؙKY #B6o& dVg1zHst.*2#>k"gMgVpwokԟ9/㕁5:V {g 0æ)PFVG]: ^X%'qS\L].f v7p`?!Ŵ'Vg+Z4 QRJFi-xͶ5o$ huW[ɘ(LF[ '2YמD6WdB" e#cћ52@1Eϒ{߻i1K:啝Y D⊃r^c\L(M)VkD:bE9kԄ(!K4 `׊POB4l֫k IVW0\vuՃLM!=B^ laId SgMdr jtfTF[I@C÷LiOk`띪2Ąmn/3վתZ^@=YB=ڀԥYT{hս _MPrR$5C7vI  my- ȮIfhބ^F!: =3EE!5€IpI rJՅ$\6ϷD6f~u_ر{B:z;j&=g8\&z \|ګ fVR:r ՚\A6Lu%˕QCrv@[Հ~d8E׌Ūxbܱ>u&4}{A5U{-3xVgtޚ<#gtVg<цX{dO6VK2k@$4px۫.G$]f9kQ#rCh͆AH /GFb'^S!Mw}23kjNj ɚCq邳KrBVtw|" )3ȍoˆCiH,uLy9":.C>u=(Equ[vЖ:SsʾEۢ-i}]ωXvQ;[ם˥F_(aإ?8JcoՅyeR)qtc.,BH:328@7{ '^Oi.9 ua~*n46y^_%$z:yhJ X$9nkCL+.΁&fqfAȄ&S+5Р@ZZ"lvM-6C=V1܋*e 2W:Иtj|ܣwC1 ދ?xVOO E#m3daT+H?p-)FR Y'rKZ?UT{W\/&, AQ)P|fH40OL&:c] A138̀}\J2ydU7gqgn=UB{_)C0SҺl ca #>ץͳB@,;t59/vhfϲ$Իb$ Ӹc:Y]&տRm')\zs]HqAgKQݥ'bU(-Pq:T|{:{0ֽ&:)<+uK9E7> G?s-tk FxiXO&Rߡ 2.\$D'x9 XZc.WP:b :#zWW_[jOW%O=߁m=(!OC(}:g2pɖ Uk)8—S? #Lfо<2؜^uw]XΘ)^W<%+~~I1"~Mĵ,yZQM ߽s/Ē΋fqpOԯw Z$̤+M"&R!}i;2\߿ I3BmJ:ڋtp]޺}u٪@k8qf{9%eLwWqv=!e!}SB0_YEx]zelnݲ6Զ6Y5K~Q V%$s=^ف$p|/^\y}  cL@7 Dp`_#X'y~và͑}`d׵C R Hݹgգ \ @OM/ .7m&Ef) 껄_q }8pK{4%#5LD[חgpb tV|yhC|&\h k|ndB ?w+|1`hE +.v ba=~J{ď.c-7p&Ļtv%ɥhkrMkQm"M9lV<xToz590J9-8qqy'rW2oC%[<8hn4cZyxxp\龦b{qP3NH'7d-׳]9Qٓk`E&OJFT LyN.D︺wB6v]w@]t[LKnG>D[(ߨ7Ln69P]yg33閘(pBҷQײ9'3S0;MOIwO(HVә1@Fʌba֥L` V Kr笹0,oD %Ŝ(+01^o|[Vw'<#Ipfq  |3qVqGwԔHr d76 tv:E+V3(MN "^Q2LTDa׼`J`5p$7iBrrgn}H4bZeJPM2=3̚}lNp`wi]}y]7rtvP^+;1y,FJD6db$w&eW#7  6{$f7~޲LޛE}b oRS ?tߢ`IP"Vr(vh׳IX5/h b+8xB@/CX^c*3&=Q=e‡0rIkU6>oWX 3zd:)UtbTݬ_J) ^bBpC3B;z#9S6 N+$hd?;@E%+ duں̱1IIC ̻(woCXlM!{2wTldψ dԕ fR,[þm;笞ЎXs^{QHyDlFM֥ 7Qǵ"]SOX Y4zQǺL(,«=/P73i1GQS۟P`ҺBXI2/Yq QZG!oȨdj'eD0֟?]aB[u4hx:bqqLp &7K=ahZGտ z !O{&?IٛsM>"o7B µ}KL4i{M\[o;4eW࿭H 91nY|5 p-'5U΄Š읎omS) 6=mV/EP%I!V ̕怿'rjwb8nXtyT?. XK'Tx]s=}MnjC7Cc ]qXv@.8wi6qxO'Q,0HR?Ĭ 뽀a:-M֮5"CJPnw 9~]koTGk|0C y jR vaq\(HRLD0Ouu^[u#UA@llM[ ب=-DY f'p9= >.Ќ!#ĿS1 mXtImT:Mu߸8ג{PzA0^&'LBS~DY߿6si"hm~K->ړ]-R.ZU:;}B-%Dm/g/Cz,Sa7dLV>}Ƙ?GUyNܡ[WRV_FN (T7~nv׿18$hܯǧ;Q4%ky]kYeѿplfF]gW빬7(.w4bWzO62aH{d̽HwϣZo[C,Iex[B17!E؅`i ۧq}Nz3zEIfW\uI~N|AY\uZ3G6_5h6*HAd_'jQ:b$  yr$D2f bڶ:4+v*2‹lRr~~lo"ffMzRӕM=Ȇ:Ԭm`o>/x~o@>\=JB1\N(͠jjۼ x]lQ 9W >6F:|'4k9҃illO3ZX *7 $:l\7;:*{ @{YY\K~$A$p \w˵HZn""VKz|DTjx dy db#QIquTPg2?1"Ԗ\l7a%ͬ龋1ՙWKLD(."aD6KiVckX2zCpl]D39{=C?y}*Gۏ0=k6faf$@o[״;'LD|O[iђ8cdK-+0LՏT3C%[W'Ӧ ̡Q}oi_,_drH` veqG:dJ^~}(kݦ>p >{ZyY;2Z$iMۍFcIEL3FƆeۭCN'IpE>#=`$aJDnͯE A.[-TW053`Qy9 tՍ2 -:oq`}eΝW ")'3 tt+ɰ|CbGJd^eMEȮ>=*Ns@?;%Ls`jL§} GMj+"JhSȔɎOK5A4Iv={?~͌酂Epe*E(9I(>2MkOĩJх O8?ទ|؈ dF@t Jw9e@\!5B,zٗAqS>gX1?|4U\93ĝEڹ 4TOmr&߯ Uwr]Op 0D8Y\OuF7<{P;a Z^j&嘟&1|40H>)삻m\VJOאƷ6VZL3kٌ<j2bui1(F#2Ҝ<WwqC%o䶞߹i}݇j0k,{̋z[*;˗Q_ES wv6 k =բM=fbӪ}&5%LoIď ̑|G s[Ho?GbCD <0 ju<|n8cxjDWMJ"> 0f??s/w"6 UQi?ss+*_~F|JTO d; =iH/b/xMr[ɼ)K5[ 5%4xS$^L:Lya8F++[1aNny?3ǰsAJtF(y2=)T\ĭx y=j8{#h3ɝWm/|&aK O$ F5 uccd?|&mN>_œ⹑ު1:KChf2svo2hAqtʜ* {PzClZ@w`ZL4a}Xp.Bu]ٝE[LEvtةCS& 3ڽ-OK]3t֝Yƞ""?jolUe(GG\YN6z#[qf<' S?=Zosڋ˾@78e{.S>ܶ} @=gw%;LEēT} nf GET%]@OTPoNo o[:QW g Sq)wCW >~ܥLۭoآ_%+ªK%*$<.nKλZW$H*H+FyK|2;$A ąT4v׭MM_0QbDϲMIBhDO/EWW]_srX_8J\!:9h9% ]:OwQN=RWlYB&uwezOРKЖ^Im!Ӧ&W5GsЕ@ D}'܋ mg an3-fw3Q&,v\|X_IF3>^13dAvgw*1o>G]7v9Wf+`]' TuRz>^ Ecgh*̱~oFl-ϐ/lzIj_1}#j ǁWxШ=6-gxqS;һg}w0GyJ-jAf9l 2#Ϋ-Gj̻žM^g48/EdZyMaYŇ޲XpZz{!\E˪F 4kCCsGsxpfhHo?`TDP V~$$[Ǟl>w"ul%!igaa?8W= PDHuRi1 ͯh晪кM=Оmdik7T\]&;M3F'z`I iK~;xlhB-#J 'QM1WXpՓqڢ8jJU;J4g6D_i#<}%ph.Km!<ȿRSXmC UՁk P?|T ڰy72sFɁ}7{n6V8(ZOҗQ%u*lSmw]OBmbuq;淍 [u&PFx!=9~7A1@J4+ɦd_(ޘSAз 4iW-qm @5x}΄ۯbZkǏB3f+KK{{6CSf%g~4NI45=EDi4X7-;4%Quqޘ"B.1+:=({~'V~-{7R1 u8^cWk/Rh2Q#gw\f0O\~ hi3kј%_ʚ V& >dU'V˺ >#!hɑr-dhZ0CkXĉ A_kr >W>˹0% haЈH9P=\z8MYb鈧wkMge W͵}o(w>yh=K=|S:6 uS"qpvH>­'.p Kd l C۷G&S}0U|m2v}[5gc _{8Y נ`K}ò̿HA%I(aV@%UIǹ5ׂxC߰=twf6( =sG/9ē$'83ژ*j-e{k@0F%6^4^)?=_#d dMڻ74"ț$XʼnĒo؉Et1"%x%V3i$W0!Ruս-xNܲ K;\U%-GsYf\l %7+G0J{o`l[W$K* (=gV' cEOT^AiJ[~D<>Xg?M"dK\*.ZYlK^(FDp=sR~xbYJ`ڤ GX7 &BEވ~@hZ,c ais{urB$o:$w@ u72VBQS܄sO9YG9C$qk_Q%5˗$w'.SV3TGB2ڂ(}r^bc7| ̹ccbylՄ=nUT[Wzү`!|C)~u{Z/El9a{՗`Qw9UӰ^[tV$%dyOݾS9ZP4ٲncgGH`ЭQj/Nޒ)-t=(5mtM), 8Y~slu Ev/n{"*Okru_ ٤+ٕW^{A|,Lu[^1: ]QJpwk@]cm0ֱa6,m׬A:vd.sbwpw,jk(=wj>K[G-jfd@$ f/a8e;M/]\W[flbwSOk:'aU4nPTT.Ge3-6+w8oߝ=7Z`y3;́SW;]T. -.Q 1" }7myFU&ڢiU&%ɚ0a]u;JB,Z3kgQ I$arTU!ф;e'SUlDWd]r1\՘ډm̔0Z?/$BvBYldiq!pa- `W i?q|0sUxbj%EMvlO0;ΝO6nkjP仏%77537~p&Ak:+fezsȖwiO)|*\bmo, FHcS Npʶgߔz +ٞf<v2(m,՜]]riXu9on ~WN)Vek3nO2,ے ] Gpv[͂$3ك~k!Ukj:jLaCwԑ="'~-/ ,u=H^RѸ=Op9h̥'dKbH]LQQHVPVN'$EM1"Rwdi|d/ v:–zS):-wvT40Ig~7,& =_C>R&x;=r`wu#ZQ[$j'yYſOܕ_}O!=iJ]ࢺl'f IXIV F V+`#$y SVI]Ąɼgٿyg*0!VC Iu m+-0 Sy]NxɵܭGJrް+|D?pp͘t;1}E8mOu/B'zķξ'c 4q2it_5%fH}Bd n.oSm#%T[Dz~OPDc\kH". ܩQn}4`Ȩh/Bkyscw9gu淋z ʛ)eeXjW㓺_`8_ ^}{}ThM\Ba/igk٤WpgI0 =#/)bz"ӘGҠ})5EjsPS6{Æ/8'>a~x8" {׶F/jY%Dm|-97ߣT+ Jw7 XZn#Bbe]ZS)wR{{ cspVSY|RյZ]>9a$syKXW&NY?/–cΖ3M l:WQҟ.u|T5kWblv/-Pp#*ۄ5hߘ P CJx?5{pY 8یL08nYK]Sop'k0TL)(vTFoG8LCI5M{5_SHu;ToS/ϙ]SqUkǮeU-h 7uAg _sXf]\hF:f-KX}w KdM3ϑ`Td_)immt"YKAϴ߲Iu_Jֈ6!'6u=*(o[iUuǘ3 Jfm,!3^z|xF&CkEYvL!XjPZ"u7<_sأ&sRrOG[(Fhhn#=\mn G"o@¸fx,JS|ӡPV~iQFI-!tx\Q=iKw(q KQ([ gLF.%ļ[rI|C޷ɩdEƴ̒X1Au]O PSؚA? 3e/֞іJwJPUW^D?ޒ2 T{Q83e=(ŜW䥼f8ٽM_ =?mf*@\~2٠d\0_jk$,޻56d=ND?ѲYn ƌ5\9t0M+A)wdnȤ^<{K5iE !$5H'bJ%I4nǬ ~"1)鲁bi$-cϬemi g {a]/xM]]mM 㚈Pԗ 'v d',zħL6Wc98;x,m`{WĤ4xZd5W SNى'}:0sYf=c{F]zh?sNfݞh--E!H*"~77㴘T6x;=8g58};nw-rk;y'IPk %AÒ)Bgv1y('uk Z{.>{ٲž ȡN-S/dmq}/og@ €d,!%73s4!y-3t.áϓ=yӅ$|KiJ,}|7ݎd @Z:UEa^P9 9'Gt¢jӇ83[Ϩnk\ϑl&1~&RNdUېwqmFƹ@uM{MLN鶺v3a΃ıîWX r#s! 0kȗ UaORc5yT \9h(-I[Z?bK˘˹0lױ "} Kߞc̈́U w Wuf>85X Fz33]g#kRqq?F@||@KJdxq+תK0FTZt&pW ꒎= I1['Z$Jj@U^8ʀҊ[!aA@Rd%5)ː:IiaU x;Yo(޳S:>,##B6uNn]AQr-1KLqh_|' )$ X{P\`i%G "YȽ!p;wJL,e[~ʖHlo: &e`&$3Afg>MKOD=QUəi\2f="D?{g9n|D $3e=@w.ے 6&F UtѶpigg}Rl*Xp0]1_S)v:l &!:©= ifL]JM[/Mr&5t4;A+x4%ظ0;)=DVV_JUC\yTp/\,(=AޣskjG^MLDWT*juldkYdep[]أ=KFuҙٻ`DoH-?і a τ=Y As`]xs mkqPnro"dos=w YžQ[W>E IehL^UXFZLG)+y:}4*Œ L^fJ.Z*Kȁ7jfUE̸boX )q}``¿X/ ,{y{QCX>ȟtѡI{_3`^85J}W}$ 6bNsGQ1ӋPnF{&YJ+j2Oz4l2&ÁH*(b Evæ i[^CEE7~c|ጷ\RZBy!|kۣr d̯ O| M{×Ck~}ƨV E^NmaU g6pSqqɲ?~@ |5s:ݣ[pG`&+]>YEEp (#yɰWmAt,~ :p*O?vT t$&&$Fŝ$,h-{oҺχ(Hf]\dڭ a3Qc vk3y­*y5} \ Gu(tGLQ#ĩ5 &s ;lkҚ O#e2:l0>T'Xɢ*h)- :ތcfOm-A<[|/َlɒ!gkBo tgQ7Y2/`WO]Hu)Gd,;RbB}y# 4LƖ|{grm/$<%, >̥A@+̨k7g})`Yuhf?z-Ɩ$q* [r h[~MĀoQBzƆYk"w^*o>k0E ti)滢ȮYZT2Zt2OzWgn#F$>L\F y%̬X+iݐrGFdWo8?cVGڃ=,1ђ|7].P D$H4}H= d@FhllǙL"4`r2Q cbB(WlG1zDpї((ȏ_jtipjw&q$eѐH"eU aj\FUS3 Ğp a!>e\g92wG*4#_SJ 7vhvXD H%RLtwӿmNJIn@yowV=~y6ƶӌk+Km}v,;G.I3mLpFI(_Lyd@Oکn`L?2/ol#ȇx" H^|!kpH6|`Qkz g$]vk8Qt };*R߶YPxbjݓ % tbItSfl׼C%NxP`]8 Y MO]0=[ SwH6E㊻S}_D4Tp4C((qgx2Jxc<]0 ŞQa2\NyY$d˝B4c|z_ͤTWהpd|`{hS@!<\nD\sψlm""\"mα)pltPzV⊾9k L5tU|Ǟ+85t(Д(yygZJNk<6ʗ`,rOƖ\G:FlkG+VNfV@$]GM aCk¾#.}I)6RXL21MwtVyQ)a{eJ5|q|@iGٿb=<ՂOC8kNg†ՔJi#m=t Ы0Oce.(y{_3ӈUѾpmHts ԛhuhS 2mo ,'m$ՏbP.ջN;#ބXAp3B|aj&8*u fO,Tu3@Rx%s&rB1HϿV\9A;HzVDbx9{!&@væT^ъ)ϛ;L$=%nKr$O@kh5&a`,3=PT1NljzJaLJv Ut"* g X+H`(sE"M37Le2?F/Xz"Z/vqP!q3D4qFtxMKh{է"jnM*h T%u7doO3zD5Ä%6Bh,3-du*[JٞtՑ+p?ٱQbTDo{WJ[?.L:c8b?dF~(bŽ.mHcY$KޭꊩꞑW oCbB5 u,#/WEG)Wݶn\AAn W[ h? ?vo#Il5`B|ZPiFԲD=ox)uh SN(˧-~e 1l,e"LJ3i olU_e)Ъt=41˵obף=WLb!L[)F|T{Ôʀ4U5N]A'}͵Gk{cxtg lS.Qqq]{i Vz}pI>ֺ$7s\z6/Cw FOC1c\=}zUKpcUfa|`Ҭ1N>ftr#nW9 Ƣ[M"~\J^ Igla*G%$%ZD7?Eg›T|qXn{j'\/> XȐwN72c%GHaZc.ޏ6!}f.ƿݍ@I:I(X 1z-Vǚ~7j'y"|,غDw+1C=C f9cx=NDte(L_3eM M2!ZƬTZ:YQv; ඌczF9]<" {%U'bzAe! K{|Nm :`&1B;U`%7߻Ӕ/\hĖ<.= 4O:QMi#K} Ahמn:]tTblM-[q{+r ڑ2%q{k8|M[Q#}OBAmұր Y3q-D+=@ZŢ`440:m92.a0S+qt&[3/qc֣aه) Pdmo!r/d0{z]cj "VWj/ϸE|*фwS xR"칶[rOH镌-L&k fsHMĒc%2D1 [~%)Dmd̾، 6LiM!@a2y%'Bl\2\֞DC+dO<A"KQk&v~K˧9vZ!|b>M$CMDE/Z%>xމ#fq~^ &wY2 ;W)̡utj+U97KMNzE3O(K#N!` Au3WXmlRmRhzA{qؽLW%r8fp#7}~̝z37=tΫPb]H;Iy53$j 8vĨAӦĹ.]&FZgw$ AKn?neXhyÚׯLS<#8;/ ?0=W6{ )Y:KR]^V@g2ø$댿mb#d%Ȇ:KD_s?tg1W&xbcOd`!Dn{Y 6bIu^5$$M6]=%k h6핤"ƭpَY!G,'J,C?#ihI+ɏ a|gɊBmtԱI26jKՃ`bTוi־w!.)@z 'Ӈ[ׯdޖ- {֟'R$" = fÌNe &ap1WwPno.r!sh9x梅.GC9X8֫!,`uG&96yW>=t, c _~cC _RAR7BꀈL SU.a%/O]B ɑdl!3i2&pmexח\o50Ofd7zaw`VxIty) {+GTZI@OУIJm\7 d& ZxJ)4{K8rXQ~g>P3\]>UH_ޚ6^qZHAF e0HY o}^IM-k-[?)uzk!?9j.T)6fᶤ AH0v sN$X ^CK;# j޴\DƩجT%ggoRi9OIΝT#͎sS[<&".ߡK!lVSΉ,I@{mL8,۠%HVg &:S;oB$;!8trc(p,#3;(`jX<È|Z5 1܌t=d{,g|O*&L @'3a{.=H:g5k+yJ8؊f9HZTPtzTHk (dֳYD-o| !>{QRC</}G,G K> ׫jS:$6g WiQM 0s?!Guf"!HkZ y[ Hʣ02|x4ih7߂BPSS vI+ ]kx6!홋j͸]SgeԹڵ)-V^mbCZ!n]_XqC2#/M nn?~9w e;5νe0|5t`lKT+nD2[T+UQj:A=D hYϙH?It 8n#I4RfB)(}>}~[nPgx@i%{L9q%n 9vvx3dqw^J ʑg9!s;)@vs9RټI#j(Jȯ涧Gļ >Gc=ε_\R QIlo>}ʮi),4ʩֲ~ h4LYyNj {*QU(p Ӗay* } F_ W :[״@L[WRT~ UeE7#{<Ոn3 oTiWcH[iv3Q<8~VD#GBɰa*1T&hO~fR(︋~%p sWfnҹY{w49z%X'!$(G3cW%S+  gycSj.QL^oѩhEצCyİ=5gwfcMTl* w=P2@q^|G:h %btUK%DMAj5D4꿿 7Og?|yi&E:-sp=7X3=ȮŃp0vW35lMa>N1.%R|5󝍝]#Q}ɞ9w/&$"cwD P-Y:aWe}`d.$ =7&x>hL%N*P|͎F)-v+[ں۱ocg &)2E'h{w )0Y"aћ= !C :,`[S?UKJ'l*X{hvYg_G~R?Jج5]*:(kG2~ުDQĜw{ڻN fAU5?ѐ7N{n~YD1AnDf$Ҏ%B}q)9*'ab$A:N YcQcnܙr .$z ;D<͌Vsw".2.{H}vz<du312عJ 7IK~j4JjO I-oc8uSDiMJ{>dۺP?K'%(5&=>>T&NzW&$%8}ӥԈN;%':,A_·u+y&CSK:F 4n2}R8UO?^%iaz1T 1)пםaG&1ϲg~w9 .==gAZ>ʁu;_˭5vZ^ i[Vp`,{&DR~Hj) z&`8̺s2< 8;@P0EBnB$ +|+C3'iMe\Ӫ;Q D /;m3{7<#T;\x+@ !4[_6aR'dX 5}=ijPHY *IuNyA m "#m .j2\JR`PU'U~c3Mj.']Y )ivleeC fW6Z>nSS>-fK;ݦ$JbilH[~z\rV&]2᧯*j"juǘMxhyYdx,΃y7Lc&Vz=lASƵJxҭ3ITE:)vW6L>l?A )ا2VQ-Q:O4"Y3nԔU\ɪͤu*r#g]ukͧS=BLVME6VLamhi[4ՇJp)i PPZM ̻tIknVe%oU7yYM\͢Gh46Oj:a d&k Jiӥ_hAD~;C[w֑Y/IZkLS) U먶k&1s$"eXE~b1ut&HJpUU FsmSn@!}Uϯ4x }׃bzcܭ+\Eۨ<)6_ nqo!&2|Iq=ɿ݃]uR8ћg3#A`? {>5lUٓC%dQ#;o`*P +ZGc]r*ٱY%#HdxLdk0MW\<&ϥ3 M#tY޶$:qphX~#^)y17Ks$RR ri$U".þ}fXeLvsȼQ<'6KRWDt6P_EoԈ0`D*R_ĵJZ3O W%&u$Kb۴?$Fa0-CqT/j7aN3&U;?Nfe=|~|uڨq0svpݽARUU5<#_͓-d䶵~ Ԩ5rnVx[̍kJBmn'<*ؖOv9NN7A9տqW7-.T2裯a`]=w *.1=qG dZENœs=m*K'vo?Tu ,dĬqR mJ[B~yߦ/Z>Q&CKK3 =L7:s* ^~-)-.٤JV+5`Z.,)u)5ց^@!0[!"ya5%%ܨ{9ẙ`߸ƨ$:}:=~s^A ?oPIf5' L7? y#LV]KYGt`-UN+Y{qq oopEѪ}6/zƍW bGM!2δ%2 bOt*I~nh0|D4ԝϳtnRV.j t_qJ1u1_[[2<<8Hiҗim{= lK[יMY*_:kg5G9#}֤ϝ:]OC[3&l0`Ovq ]`Bu o̮@(Y V@UthuV8^btRتLBcN&3řy{ѷ,CQF ]TTh@Dutqґfa?|ۺ4c uT@qx4)%K;K!acNճYrJWiJ4$,9' #K0!JTRCfQE $.TEqeI=u>9L!sq %~g27eyWȈ,O-T G&|8>7%!D%Sq 8" mHIcݺzeγ:b!(MIevZ9 6)LL+@V-w'.diӾmw.?aĒtؑI{S7mS_'$kLiwz086Ӛ1BԄL#P}F$} +}]=5f( KYe5HP`jsߙhHaL %{eZa'nia;|n5I<>8mL/S]~ٚM;02 3Եzq!mw@k@N;ꩦى}~(ܦcKnnKu&#ms5;v_t^*Qwl]Qx0 7wfQ}A'x)*VaKzf8 ߶cfeX{N(B&p&]i%8[d5f&~5zʖ.V<5%w;[k`ESN?Q_yGuOɤӨ84\ &!;YÀJϽu-p3~ 8t 5$Է]'RX (* 4uV:-x8 }8Z0 >̛m2p.9?='{Kp%0}I+j~” ~د.cJ%X>{Ϛ Py:SoWgiQIJ\Gǔ3v~œ3Iʦ}vʰL'8~hX}@% x3᠓ /QPqQq8J)ıU PW֚ą%'&n%L?@@$ &BjVTtx?wu||F<{;#%aW^Cm/VLNpDvQ=:.Ҧ٭⏑%i035iǢ)hP LK'M636(y`M|eDo цnZM/Ǣwg:3B ujyOsvU5E7"oXx%15"  tzz)pGDg.ݣCmAv3{Jp2,СT Y2-*5Y!Cm0 P_"v(9>zJ|{BC lOgއ>̽HvR>`R3W^\nUmeLә[O 8&)vv?tKP}_2/KS5.3ΝIf6X2ӻZ|?_4W5_J*V_aBYZ_n~dNӯ-;ǟb„MtOO Gs]ښT{t}9׃Ѯgsl"py܊g{\*O 7ϠIfW%VeEuFf lWԥ0X_1OPKW1fB;~rG@7gH|07ʴĬVўpcN'8Z[mS==\:sP=][T#o(9_@cJdKC ^c@-`pz~=t֋] ee,<KZo-ufjY.QAbկDlQሜ$@|rQBv=}0?7&=J s + 3O4 98hS_-;ڌF~d'c&ޥ+JXUq"-G=M\OWQ9&Y=]A`qm#Ac{U5wkd%bjCk)k^I}{JX֓K{bSzk}^9lFa&>DSƣ NzGӐjGc t} 1׈KxKӭ@ypL#+g%&$񼢆IWOL1--5xEz;~$coIzB^r) 24tPáE&~v$&y> fXytOݤ?,2^,ܬnD(#’t&:uvl뽎3,-!zΓ1N.#'#Iu-t7;~~77XFS^*{seO PC:#1#=A_mޜ7K!-PoW ߩ $+2l ~Vdpw3'5q':צ7tD4.|-~D;z:'f7`xHaףt -b1&aRDk"yGvLz}MN#FRžhk';FJ>&^!r:wsV`0tSX^֫CI7o2c̰}#NoSmV"S#<&7z]^m˻-=Z@~ 3Pu޲ڼ"]Gp,eg2C2|f] H@C5Yt3kխym<wMKƿ:=5 _yh~`"XYp5YZ-DS]w!XX2gG 6sŁLk^^Q_H.,Ӫ'lLi%i^p grAB`uDpWW(ףJk9_&i25Q@0ʉ,"E_@@^-tHw}2"?ыk^!قzHL݇gLt,ȠK8RRv ؎i}hiX(&Ⱥ3w&$ hdQcɔwļK"b"omt6y+\7껔&;-}@DPFkF%>Iyu7UKMJ}--5dp`<A"3`Hbg<fZa^NE2]soMK?~0 >=4<]￢ޯR+ Fg@BeFeE7 ?q]p7w@_=i.,d̖ے:evC,25k'H s#ZX>q4Ƅ|}e‡$I)l=qVHU^Ɇc%}3[n=OYMnBU:InޗXXGywyb1׍|KzXjM>mo(Ц̌q36; θoo߁79LP^J@Qi2 Rl?g!mߚIm.+ }_1 "g( mr,@&BuhG'Pk\"\݂nϿgJq U4]l44(|[0rx4^֥F[ K6SQA]U3ULZ-Rb\;⿃9Ts)khU1A}&Q/?ak^jϦyҪqv)_[|EW)bKtݏ^+%{]H"0jQZSڋ~δQڦ3?LV^۵Ky$jEf&OaIpO%RZ*( Jv\VGfL49 E)׸kz|&1)f^W֌X6p3n3]\6PSj2c)zw vF`6gBBuHgۼ퀔ūA)J5q߈d ֢S."7>ZHC${J<`s5Nok\'Ugs]J7`i܆[TN%,FwfV;- mZ[R]<9h`o`6JZ4 א{g-."ƿ4 LM3$ڿw27jΦ%׽tuG^6lF$tgǗ㧹PسCq*Ip|]>A^,&rnzYWAsi UOW]nS'֖07Fڞ &٨!L Ν>15q-Q zq\6cow1-[9gm A-6w@s0,Fm&;CSݓ6pk.ykoiL98_% o_|:&qQm>PUpХELdgumQk͢p>(nT _1d6HwVQz@v|pmWт8SF#NN%KkhP4|vĞq>>uZKr7,*)Y3+ߓV%dmD9_e@aOA9P+Myaܟ/QG$XFvB=a!;l$&.dբ |Q<^Y|Wʘ溪j< (v3a\;(~djg&3qKpw,@ G3\$kfrzg L2Sq׹n4Ł=?)ó:7{7xLˇ|Xe,{~ Be2vn'pu@T}g1#N3,4skٵwz`2Zq5HhU@<.~5O\'X2[p MeǛd$/K"nq㽁ڒVG=)n⤾)Qϳ}\r:Kp_Ol̥`kVӒ(_^Q(K=j|0cu?VQ Blԫ 5 *Olأ_M#%&PZ8}#ɷ#tmlFw?jUe\֊%i(3Yt2Q]!L,hz¼\{rf;&?n3j*4&IVu3PvuT V҈ ;5»?sog+<&K9^3c{=re"BvU)\q|9jPst$Y:/;]0^{⦤ajPnH`wXTzI]_A:HGFP(j5c*b"ƞ_`QO1yR{K tzLV8HufE}&]UKʹ@ lfdkcsy‡ONg>5 H.]_@3'̕rEQtWGvYc~VWCN2;̩3Uc???:VAR. 3u$v j%G6K7Q_"NP>(d 6>GW^# v:4 3CޝD񛘞HO^ 9AM0CM49:%/m9DZ zInFH̨ѝC^.UmmW zoM檜r\[]س͌x#~՚@]-J(Q$u%P)G!ȩ)銬1Ɲm2;]ZJS Qb|Tdi[RPE%]gRکX ,؋tnDSQ1?:y?S42B$sU?ׇqcP'PIsk)C)?b1:n6yxB sE;bNڞ҅)o7RϷ8Œ}x& ‹h:4Xu4~yHRd&|^WXKLc-o?k8{CiVoU,LTAUAyVzhؙYE&*isvxɠ !77M2/tkiY)${vM# njf _c+Ωf.K*/5N{D8NհNGuGg̭1&H1Oiu^z4Ɵf&=.i*Np:<."> '.4_*5/.S!y߇mzG #Ϙ*5l2XO" 6S~6@p_A+LJ&1![d.qvzf^+$i(AR_ w΅j2v %jfwG-x@ٖ $%$;Mad4F>kp#3_)S=u?Y48q!'} uXR=)Fq]V)m$/iӬ?Zn>ޕA av_ 15@KcbLB6o$:EH/4WDLQxH'͠cZ̉{p,ͥTxSO\6G ͉)ϲOLl&5YJ}nUKŘ.RB0%DŔX$o |p JB&/\H,f{ՅR'8Lݼ4kYL4bSk>]pӲ^s8VYR"6B)Jhp*MPoP܄,>ѐ$_QT(>k^ 3a|U Z­H|) m?r{>SU.j^f'n5{[L9^~3<\C@PtJUQ1{7V`ƭ <"/eƺʹ(3O&~2$|(ԫI:$n6&fD{SkMI-lZ9~CL5TLW_t48uoYZ|:rsٚz:zIȅmLfEj:P'XcveYJ2}yUuRB.4[H^q%NY[h|hr2](L:S}d'+SC1R,ebe6H4n3eJ!|WQ(yUL̰& AB PQoMi+qa4Q^o48-!$nd~q?" bם>LP.dAi8ma}$Qr}2d 0;fà[ ԝnHhȼxiUc8o`u/b\&}# y2ICH9FUǘȷFXÍH\9Cq9jjzfQ U4|#]1l:կwnt3Q7I^+UPE`vv<;Np%U$Oj+fHų OWi]-N ~GׇKZ|Pi)xi7V C0iةY'.,GXP# /tmp/sample.txt.gz") if not ok then print("WARNING: impossible to run test\n") os.exit(0) end if not io.open("/tmp/sample.txt.gz") then print("Ignoring test, impossible to connect with cafre.dsic.upv.es") os.exit(0) end m = matrix.fromTabFilename("/tmp/sample.txt.gz"):transpose() else m = m:transpose() end -------------------------------------------------------------------------- local aR = stats.mean_centered_by_pattern(m:clone("col_major")) local aU,aS,aVT = stats.pca(aR) -- check regeneration of original covariance matrix local cov = compute_cov(aR, 2) check(function() return cov:equals(aU * aS:to_dense("col_major") * aVT, 1e-04 ) end) -- ROTATION local amRot = aR * aU -- check covariance of rotated data local cov = compute_cov(amRot, 2) -- adjusting the data to be between 0 and 1 for sw in cov:sliding_window():iterate() do sw:adjust_range(0,1) end -- the adjusted covariance must be an identity matrix -- assert(cov:equals( cov:clone():zeros():diag(1), 0.1 )) -- U matrix orthogonality check local aUmul = aU:clone():gemm{ A=aU, B=aU, trans_B=true, alpha=1.0, beta=0.0, } check(function() return aUmul:equals( aUmul:clone():zeros():diag(1), 0.001 ) end) -- V matrix orthogonality check local aVTmul = aVT:clone():gemm{ A=aVT, B=aVT, trans_B=true, alpha=1.0, beta=0.0, } check(function() return aVTmul:equals( aVTmul:clone():zeros():diag(1), 0.001 ) end) -- check U matrix with octave computation local refU = matrix.fromTabFilename(base_dir.."data/U.gz", "col_major"):abs() check(function() return refU:equals(aU:clone():abs(), 0.001) end) -- check V matrix with octave computation local refV = matrix.fromTabFilename(base_dir.."data/V.gz", "col_major"):transpose():abs() check(function() return refV:equals(aVT:clone():abs(), 0.001) end) -- check S matrix with octave computation local refS = matrix.fromFilename(base_dir.."data/S.gz", "col_major") check(function() return refS:diagonalize():equals(aS:to_dense("col_major"), 0.001) end) -------------------------------------------------------------------------- -------------------------------------------------------------------------- -------------------------------------------------------------------------- local aR = stats.mean_centered_by_pattern(m:clone("col_major")) local bT,bP,bR,bV,bS = stats.iterative_pca{ X = aR, K = 144, } -- check regeneration of original matrix check(function() return aR:equals( bT * bP:transpose() + bR, 1e-04 ) end) -- check covariance of rotated data local cov = compute_cov(bT, 2) -- adjusting the data to be between 0 and 1 for sw in cov:sliding_window():iterate() do sw:adjust_range(0,1) end -- the adjusted covariance must be an identity matrix -- assert(cov:equals( cov:clone():zeros():diag(1), 1e-02 )) -- U matrix orthogonality check local bPmul = bP:clone():gemm{ A=bP, B=bP, trans_B=true, alpha=1.0, beta=0.0, } check(function() return bPmul:equals( bPmul:clone():zeros():diag(1), 1e-03 ) end) april-ann-0.3.1/packages/basics/stats/test/test-zca-whitening.lua000066400000000000000000000030301234204160600247540ustar00rootroot00000000000000local check = utest.check -- local path = string.get_path(arg[0]).."../../../../TEST" local m = ImageIO.read(path.."/digitos/digits.png"):invert_colors():to_grayscale():matrix() local ds = dataset.matrix(m, { patternSize = {16,16}, offset = {0,0}, numSteps = {100,10}, stepSize = {16,16}, orderStep = {1,0} }) local m = ds:toMatrix() local aux = stats.mean_centered_by_pattern(m:clone("col_major")) local aU,aS,aVT = stats.pca(aux) -- PCA THRESHOLD STATISTICS local takeN,eigen_value,prob_mass=stats.pca_threshold(aS, 0.99) -- print(takeN, eigen_value, prob_mass) check.eq(takeN, 192) check.lt(math.abs(eigen_value-0.01752162), 1e-03) check.lt(math.abs(prob_mass-0.9897367), 1e-03) local zca_whitening,new if ann.components.zca_whitening then zca_whitening = ann.components.zca_whitening{ U=aU, S=aS, epsilon=0.017, takeN=192, } new = zca_whitening:forward(aux):get_matrix() end local new2 = stats.zca_whitening(aux:clone(), aU(':','1:192'), aS('1:192','1:192'), 0.017) if new then for i=1,new:dim(1) do local d = new(i,':'):clone("row_major"):rewrap(16,16):adjust_range(0,1) local d2 = new2(i,':'):clone("row_major"):rewrap(16,16):adjust_range(0,1) check.eq(d, d2) -- ImageIO.write(Image(d), "wop-" .. string.format("%03d",i) .. ".png") end end -- PCA FILTERS -- for i=1,aU:dim(1) do -- local d = aU:select(2,i):clone("row_major"):rewrap(16,16):adjust_range(0,1) -- ImageIO.write(Image(d), "filter-" .. string.format("%03d",i) .. ".png") -- end april-ann-0.3.1/packages/basics/stats/test/test_bootstrap-output.log000066400000000000000000001036001234204160600256460ustar00rootroot00000000000000-0.099173416414325 1.0451668220883 -0.098400892352358 1.0020156339997 -0.094721095314375 0.95595890804428 -0.087549116258934 1.0115291159222 -0.072949525135802 1.0274507115672 -0.071902029003092 1.0550019486267 -0.071820996517336 0.96207857415103 -0.071725057213935 1.0895223149051 -0.07083359428959 1.0161686036111 -0.070581008649784 0.93918019040868 -0.069920523121135 1.0395533192777 -0.068424635280829 1.0087692575631 -0.067912352426936 1.0090987641921 -0.067496047438062 1.0817760545907 -0.066675529604163 0.97548611997191 -0.066202931865909 1.0590405785124 -0.065885022564883 1.049583193891 -0.065338163275298 1.1091665702362 -0.065004411948577 0.94800815273036 -0.062792658611307 1.0745901618824 -0.060140193829468 1.0053096107444 -0.060022315855092 1.0956475930874 -0.060013438211171 1.0213133702282 -0.059433163380361 1.0946353262324 -0.058701825133759 1.1109662343316 -0.058496427339014 1.0017718199106 -0.058429386471135 0.97454726474096 -0.057912199252041 1.1226515078125 -0.057847528414633 1.0343638179275 -0.057811344908386 1.0262921830711 -0.057799304624309 1.0069081947421 -0.057629068076313 0.9540217326488 -0.05742070273804 0.97105523441595 -0.05702517096443 1.0328976068751 -0.056032341445253 1.0682415531142 -0.055426845187651 1.0550104714073 -0.055236734207057 1.0784094645485 -0.055021721221176 1.0651627684423 -0.054727789374251 0.96388328213133 -0.053934645802181 0.92618405115789 -0.05335472007767 1.0699865384177 -0.052965794493128 1.1159929185845 -0.052877086421755 1.0036373667192 -0.051038331936151 0.98488735939327 -0.05091728319512 1.0811414324082 -0.050888941393849 1.09370599774 -0.050274045433878 1.011584533611 -0.050232149059929 1.0815298053371 -0.049747978789077 1.0116388190055 -0.049550850263437 1.0584831025978 -0.048854539571585 1.0111606873976 -0.048667639608802 0.9908919651846 -0.048442528499904 1.0216292300037 -0.047752703556472 1.0397878163822 -0.047581528090405 1.0539130630526 -0.047461110725154 1.0413758630365 -0.047336934927256 0.96362224971514 -0.047266494192134 1.102647621608 -0.04695467880296 1.1316936048364 -0.046918857316533 1.0282003239372 -0.046903523567744 0.98325505924141 -0.046418980182329 1.0205594401815 -0.046174988198647 0.96426197189158 -0.045589099821764 1.0119222472817 -0.045329794479582 1.060007824876 -0.045112543058728 0.98096639671971 -0.044766645757664 1.0428175895874 -0.044680680726508 1.0491798620698 -0.044558734474343 1.0776907227687 -0.044225606963246 0.98213070631689 -0.043749182823206 1.0420604189759 -0.043206584380241 1.0979794849084 -0.042700242304669 1.0437515153385 -0.042598651238702 1.0595253714892 -0.041672827389055 1.0843322585385 -0.041565534785066 0.95262107988295 -0.041512735217451 1.0159762568097 -0.041192449079926 1.0450793644125 -0.041037512996184 0.98417909428056 -0.040962512568302 1.0648538364464 -0.040897282350289 0.98779215037456 -0.040336170066034 0.90172559183862 -0.040203775184254 1.0888328695872 -0.040176817520013 1.0432507353696 -0.039886406435057 1.0385793659365 -0.039497566749671 1.1103266940618 -0.039246473721234 1.0381799918076 -0.039181565166029 1.0128175365233 -0.038800497941906 1.1152049159257 -0.038729227583168 1.0634245348443 -0.038722367251186 1.06327527843 -0.038017176763059 1.0937155837905 -0.037945722945123 1.0641643677386 -0.037939484742719 1.0417558577224 -0.037905669864737 1.0087298097196 -0.037840262659511 1.0089502083319 -0.037788800876517 1.0116984455204 -0.037602384389705 1.0063961059686 -0.037205894747324 0.94792733701659 -0.037170046207544 0.98932107172102 -0.036872555243307 1.0264804268485 -0.036493546935366 1.1488496840726 -0.036455366850645 0.97744334163377 -0.036273443987352 1.1235531600368 -0.036026611778408 1.0109440014991 -0.035955226456947 1.0822336816232 -0.035851955477506 0.99975541724307 -0.035409788785194 1.0372605190165 -0.03521793235626 1.0671306348151 -0.035128032672626 1.09859501106 -0.035079310468376 1.076055231523 -0.034796545810128 0.97437939825448 -0.034539295579803 0.96007417335012 -0.034529669112847 1.014134536046 -0.034518960212032 1.038304525369 -0.034342706762213 1.0215469348606 -0.034256985866139 1.0110487599173 -0.034159829535566 1.0737404038002 -0.034140507892735 1.0506219505938 -0.034111896716092 1.0987641171471 -0.033957485255869 1.1036411711232 -0.033431479935806 1.0145128676337 -0.0332296878777 0.9886111213292 -0.03316272978426 1.1433545765443 -0.033127878683758 1.0728586644865 -0.033110705969025 1.0791336144292 -0.033107781788906 1.1327202654014 -0.032706886934527 1.0802150715606 -0.032542989673351 1.0995148068099 -0.032514522428026 1.0323623043179 -0.032366537229729 1.0132316133633 -0.032030599878251 1.0714898406705 -0.032019161141088 1.0663941174213 -0.032002833017972 0.95787702358901 -0.031757429187212 1.0553726624 -0.031671065945501 1.0364983754372 -0.031438836051327 1.1008748311312 -0.031395819809367 1.0093867534562 -0.031212431773307 1.0053160450314 -0.030958331257078 1.0854814459277 -0.030696506245976 1.0137077870375 -0.030623763124814 1.1153240948284 -0.030619726899827 1.0466965089746 -0.030457719712835 1.1083998883033 -0.030342890637863 1.136088783799 -0.030234585304634 1.0470541448667 -0.030059981527035 1.051298327338 -0.029978458787333 1.0265713336827 -0.029875115047209 1.0345202570936 -0.029749802290585 1.0075653975858 -0.029689197425863 1.027031823859 -0.029662276165533 1.0478146803109 -0.029480754009733 1.0363395094324 -0.029313713899101 0.97951886053766 -0.029261830690581 1.0382607913082 -0.029228128289794 1.0489950122189 -0.029164691979952 0.97925419643517 -0.028917219585834 0.99612789044887 -0.028799758686443 0.96346935932012 -0.028767497655924 1.0238824903483 -0.028529296144076 0.96593310766018 -0.028501972847052 1.0639506715629 -0.028368481754517 1.0154668790927 -0.028335713417467 1.0086527664073 -0.028322208560352 0.96118913586083 -0.028309306579457 1.0261729169365 -0.02830657641114 1.0471352640043 -0.028278274162873 0.96641407615153 -0.028129903984087 1.0805087940045 -0.027889082869516 1.033351373609 -0.027783627107087 1.1011184674845 -0.027671394692265 0.97271458252103 -0.027630475344186 0.99339305911987 -0.027626348986606 1.002370478023 -0.027548815708123 1.0968817083115 -0.027489694431737 1.0356636474211 -0.027392968011863 1.1202416244956 -0.027302006375863 1.1061806358216 -0.027261145808483 0.98490410108279 -0.027195798556694 0.99670855499079 -0.027010036259205 0.97223775115803 -0.026918360573223 1.0594793241318 -0.026746680700148 1.0195312086802 -0.026632417015284 1.0666633391711 -0.02631541796827 1.0726254736035 -0.026205158418802 1.0147084491794 -0.026120968110117 1.018953930258 -0.026077191978254 1.0928269391664 -0.026003421029984 1.0734225852221 -0.025964799164134 1.1086378079442 -0.025901026188324 1.0465996782042 -0.025642064581621 1.0746530899337 -0.025460912807135 1.1341625097036 -0.025417314789781 0.96012344213433 -0.025385851449285 0.97036274509377 -0.025373337850076 1.1153135736352 -0.025227274690419 1.0686618610592 -0.02518968052475 1.1525654741067 -0.025033837068104 1.0042163473205 -0.024741395405238 0.97970665213074 -0.024727169977757 1.0051141092366 -0.024586414967621 1.0213424365303 -0.024583344735447 1.097370304149 -0.024241477784194 0.9928172044431 -0.024148320817005 1.0116731658116 -0.024104546548785 1.0243810778315 -0.024004297927769 1.0087108415143 -0.023987889233434 1.04035465575 -0.023977040281248 1.0569975285089 -0.023952471874957 0.97843654183675 -0.023925509609146 1.1161758644592 -0.023923669061226 0.96276744139484 -0.023850320778456 1.0195966299038 -0.023837703021271 1.0085384577617 -0.023666719108985 1.0737708476822 -0.023644112913458 1.0431488869046 -0.02360175937968 1.1317895719891 -0.023523139365529 1.1251477707354 -0.023484377839099 1.0662915064024 -0.023387771269313 1.0399772711271 -0.023366849999069 1.0836799191733 -0.023356938321676 1.0839465137211 -0.023278329805965 0.98558936927927 -0.022966835523502 0.97970072904608 -0.022920676500055 1.0402206723479 -0.022874507299817 1.1074938671326 -0.022861361903135 1.0099613620545 -0.022791486704606 1.0282022645714 -0.022753220067866 1.1087568257005 -0.02272604953378 1.0484674019523 -0.02233747815915 1.0593766088595 -0.022300543490376 1.0243902945992 -0.022238439357473 1.0737390723921 -0.022116173470942 1.0457237299813 -0.021922569712483 1.0267872223916 -0.021793630448082 1.1072135016748 -0.021721583309532 1.0642473167195 -0.021684405528814 1.0803751194154 -0.021671525076541 1.0290592238086 -0.021586681844542 1.126802963703 -0.021506857458496 1.0561680866624 -0.021454336848886 1.0431799961609 -0.021241572632923 1.0564386453772 -0.021132204372112 1.0115961505885 -0.021108478046342 1.0352757369071 -0.021065021268355 1.1291863726498 -0.021061352772553 1.1698508411985 -0.021013867217918 1.0553358275073 -0.020981559512326 1.0656363825657 -0.020975938721426 1.0578160872803 -0.020948724425542 1.025491893567 -0.020923011892439 1.0588338170696 -0.020554913889665 1.0658136208779 -0.020553775626095 0.94458880953027 -0.019878712121643 1.0102544757398 -0.019620191196759 1.0444735933711 -0.019600663132017 1.0133727790985 -0.019576769188327 1.0463272488428 -0.019503774224635 1.0617807580049 -0.019490420097907 1.0360908684296 -0.019211829561011 1.0732856308215 -0.019053738219415 1.0122291857294 -0.01895252156926 1.1022629383182 -0.018802878403832 1.0724157031208 -0.018659388690687 0.99623275876205 -0.018591321454111 1.0290731577003 -0.018397982661665 1.0206616708216 -0.018338360836468 1.0268422661817 -0.01821410785648 1.0405018581217 -0.018102501561065 1.0242307779596 -0.018032293248348 1.0104262773341 -0.017952599503915 0.96314710346777 -0.017946861006665 1.0223558836446 -0.017818561383994 0.92728887071214 -0.017632768067937 0.94177706140275 -0.017532879437489 1.0424364122013 -0.017509741139533 1.061162554674 -0.017496818042168 1.1103127826414 -0.017482641506697 1.0586064363797 -0.017288325953277 0.98584640863792 -0.017264488963033 1.1163106298001 -0.017158979359959 0.9991322747989 -0.017109403701535 0.98790964998951 -0.016969288166019 1.0215734233514 -0.016866753970901 1.1012682828257 -0.016859453402222 1.0154272542031 -0.016564615849643 0.90697862980486 -0.016468967121913 1.098899464817 -0.016439062144788 0.94734017147917 -0.01643851844041 1.0278482688027 -0.016436009548338 1.1502126495187 -0.016217068400705 1.0571611106201 -0.016205375894529 1.0461069924615 -0.016152781114062 1.0523622103539 -0.016125309524624 1.0235149624668 -0.016080766641985 1.1024442465856 -0.015970330623914 0.94830547566499 -0.015951695417696 1.0567200306286 -0.015895922325248 1.0426913429534 -0.015816990547031 1.0995781098562 -0.015770988241631 1.061854702012 -0.01568858113965 1.0234048407342 -0.015634395946019 1.1340569901186 -0.015614518616477 1.0231230378291 -0.015606389559026 1.0494385412266 -0.015598664589645 1.0120759714538 -0.015547113786001 1.0636068576329 -0.015437310407125 0.98445658551047 -0.015300685713257 1.0405453816615 -0.015298658307972 1.0568404170176 -0.015096217812292 1.0414876290128 -0.014888932241435 1.0352246675473 -0.014828886137877 1.0051131113681 -0.014752182239065 0.97678443473487 -0.014537306369185 1.0478653656242 -0.014499096781853 1.0961418196834 -0.014421007068514 1.021009884438 -0.014292335554194 1.0585505321497 -0.014146184141543 1.1068309958342 -0.013909709334611 0.94226395918407 -0.013885321672337 0.98890689305121 -0.01376761230051 0.97444389859079 -0.013749595048122 0.97888947098034 -0.013522818895109 1.0880718840894 -0.013497960799851 1.072386212548 -0.013197207500496 1.0817648140139 -0.01273968493556 1.0789693945215 -0.012666129206095 1.0112542686625 -0.012520247430466 1.0417804239374 -0.012397962808629 1.0925161500678 -0.012321026518864 1.0914604693111 -0.01231720099839 1.0271388700915 -0.012091928256369 1.0269356848329 -0.012052137670075 1.0813897304521 -0.011815232872817 1.0057680853301 -0.011646897812088 1.0386578568151 -0.011583562161 1.0533195152853 -0.011339938697498 0.99154904571415 -0.011217169898654 0.98515408956877 -0.011021471030869 1.1631260604534 -0.010943366544862 0.97644097403703 -0.010920496610902 1.0904437093687 -0.010877972716658 1.0184574653598 -0.01084645496366 0.97916642866446 -0.010745650317134 1.1676580854452 -0.010727110432016 0.98834605009 -0.010661638723137 1.0221410455646 -0.010627374695363 1.0780266170996 -0.010392874720284 0.96499144410573 -0.010258676632142 1.0094515636468 -0.010201246055201 1.085289596484 -0.010173864973889 1.0207724973337 -0.010086677109084 1.0479743403702 -0.009980648939559 1.0183625026041 -0.0098961388672496 1.08753504998 -0.0098354700603622 1.0641724717393 -0.0097992348601492 1.0441577688416 -0.0097879183042595 1.0021594100438 -0.009753931333296 1.0283727947023 -0.0096188647647124 1.0713851480434 -0.0095038354515468 1.0466357705162 -0.0095029356514408 1.0512896788771 -0.0094972005059355 1.0589175906757 -0.009485672577202 1.0952930984052 -0.0094254568480638 1.0169586606043 -0.0093633535725954 1.1010343082872 -0.0093236027131996 1.0329849330027 -0.0093002421260962 1.0861560435138 -0.0092372958907962 0.957276110138 -0.0092043564698223 1.0675694083875 -0.0091328442258259 1.0868635006644 -0.0091062875245978 1.044506945826 -0.009102853141116 1.1625247227752 -0.0090958006142473 1.0554290801778 -0.0090749345131316 0.9907955206153 -0.0087573917958014 1.1037788874241 -0.0086260860019406 1.181905368031 -0.0085969665018086 1.0560552945472 -0.0084258925658109 0.92318595176531 -0.0083765658645895 1.071668738677 -0.0081556794909978 0.97623351287368 -0.0079858112948992 1.0224721204004 -0.0078309487207852 1.0374510794319 -0.0076187038777562 1.0440436128564 -0.0074441308235832 1.0651089754325 -0.0073757852860804 1.1200126045182 -0.0073036713867316 1.0873408792086 -0.0072518112382617 1.0799424675719 -0.0072074061969208 1.0443646885659 -0.0070378559360103 1.0780703829929 -0.0069950794731492 1.0893160360917 -0.0069921730039544 1.0061773205483 -0.006947473126379 0.9974835322922 -0.0069125157536629 1.0194222881502 -0.0068788559391388 1.0495992211388 -0.0067022475387748 1.0374998545202 -0.0066255553585386 1.1177500718113 -0.0064519019481178 1.0222285693066 -0.0064089880032541 1.1029944702809 -0.006305157847216 1.0443469719952 -0.0062153137738811 1.0315252890146 -0.0061190413703085 1.0163768665398 -0.0060829282371001 1.1283174162812 -0.0058901703226169 0.99766311291538 -0.0058874151082406 1.1338684053646 -0.0057941768635546 1.0261836228198 -0.0057735141147161 0.9167541889492 -0.0057606772665386 1.0097201579765 -0.0054709879943039 0.96913943051023 -0.0053578440694546 1.0297623204078 -0.0053115515810525 1.0685275426251 -0.0053030121699763 1.1004971934519 -0.0052430775311409 1.0176095526293 -0.0051914997741413 0.96000934534059 -0.0049580534251201 1.0653630408226 -0.0048204454412891 1.0474196875273 -0.0045045512146381 1.015903702009 -0.0043696514803841 0.94607285831142 -0.0042374997909196 0.99689576632995 -0.0039521634729388 1.1448545543839 -0.0038632395007752 1.0635428589435 -0.0038627971374791 0.96098651416422 -0.0038257173970624 0.97976057334045 -0.0037920659680177 1.1299977348134 -0.0037831661699115 1.094784455276 -0.0037589214810001 1.0297980815504 -0.0037167252227012 1.1039668052981 -0.0036786723085907 1.0863370910464 -0.0035569143164507 0.98655349564903 -0.0034553562881108 1.1048499261477 -0.003437475312429 1.0069492534737 -0.0034153781276191 1.0121896984987 -0.003264319642635 1.0567940491392 -0.0032409654249518 1.0528372688643 -0.0032244199095692 1.0447829963098 -0.003195491350131 1.088946304694 -0.0030374251195593 1.1361433105136 -0.0030322407225109 1.1416534857233 -0.0029301360865695 1.0550809743414 -0.0028972531922454 0.92964087852651 -0.0028154957239143 1.0319599178366 -0.002761151148771 1.0138916833198 -0.0027019250829514 0.97828647096001 -0.0024742594584755 1.0161546216572 -0.0023166026476833 0.96570283303937 -0.0022573353380595 1.042753287233 -0.0019965180996106 1.1031989729782 -0.0017243563626029 1.0322973517933 -0.0016299599834297 1.0821228927324 -0.001555808073308 1.1021619418271 -0.0013857769312249 0.99801974939897 -0.0013289671813985 0.9879824401236 -0.0010712997843154 1.0275897953634 -0.00085562234451449 1.0945567071888 -0.00064203712770765 1.0370335836075 -0.00036572138577897 0.98795517262379 -0.00020404541392297 1.0768619674576 -0.00014461435459039 1.0450424166484 -0.00012785779094644 1.044958000631 3.0451636468439e-05 0.97634139571987 0.00010034235653916 1.0458056996227 0.0001365050946843 0.95032687375956 0.00031463861122248 1.0662083774143 0.00037340091172062 1.0624769950539 0.00048891580034857 1.1318728920646 0.00054625416171238 1.0676996724128 0.00055641367409564 0.97265706855278 0.00085780183283054 1.006198389057 0.0010101613235592 1.1308167271765 0.0011474504673446 1.1591524947083 0.0012496406642243 1.0340766144818 0.0013466305350471 1.0726856614754 0.0013687219827648 0.99532024856222 0.0014014328618075 1.0784316307611 0.0015518297323897 1.0271693691368 0.0015748726731165 0.97884563879504 0.0016717436220699 1.1046463467277 0.0016811596236973 1.0326368376635 0.0016855226312212 1.0078313941699 0.001739907645676 1.1504122190039 0.0017494525784893 0.97526620749798 0.0017631416502778 1.0038218430129 0.0017727186694121 1.0292399180274 0.0018151646390339 0.94042370726906 0.0018647161881519 1.0147436065762 0.0018770762291975 1.0606955614611 0.0020190999574167 1.0397719890554 0.0021666878486792 1.0199624079767 0.0022056765965103 1.0942782352917 0.0022145278829564 1.090251139374 0.0023263990011021 1.0323424607895 0.0023469855896837 1.0510068272444 0.0025389170680218 1.0047034338363 0.0026219302066843 0.96778990466941 0.0026933187107378 1.0585521634338 0.0027407608643399 1.0418609243863 0.0030054336803422 1.0278130417992 0.0032648442697112 1.0948578343346 0.003378714735529 1.0569512948082 0.0036366917659211 1.0753808018891 0.0036611030091583 1.047989039266 0.0037246637346128 1.0330781415317 0.0037407588610184 1.0139207306403 0.0038096471943166 1.0336151075037 0.0038111283005024 1.0153781254059 0.0038784704259733 1.0803087351048 0.0039361444930823 1.0991654927863 0.0039679935267842 1.0704388184719 0.0041113192319249 1.0279412555237 0.0041495058789189 1.0532828835596 0.0041703455421212 1.0523408876431 0.0041877025883431 0.99384635504204 0.0042025863924496 0.97977022317388 0.0042476141868871 1.0554688891129 0.0042514625698632 1.0820826533491 0.0042828210763498 0.9715438993378 0.004338637334195 1.0337735975646 0.0044405949682982 1.0779009223863 0.0044576990496795 1.0259187179036 0.0046318006155755 1.0510432267172 0.0047586969336313 1.0538903751046 0.0048268118623613 1.0075497949356 0.0049257006251251 1.0114023797745 0.0049513497593843 1.0122320342048 0.0049619935360498 1.0362216448881 0.0050054978605388 1.1055421361197 0.005020404762432 1.0350070206785 0.0050396985454473 1.0158656303293 0.0050418898364327 1.050055523948 0.0051332787341775 1.0826573445653 0.0053294740939407 1.043517551387 0.0053826542610931 1.0246390431656 0.0053924976626879 1.0528496423718 0.0055384700681846 1.0624445411507 0.005601506023047 0.99840258029771 0.0056785060544104 1.0173411679499 0.0056800593267945 1.0263704255931 0.005703616351883 1.0287186770257 0.0059939483163781 1.0557058758089 0.0060922294309123 1.0714714941002 0.0060927433289082 0.99044951696252 0.0062154119207317 1.0209922466966 0.006295166889835 0.96019947710075 0.0064559953135295 1.017901049857 0.0065065656975912 1.0063170125843 0.0065328556949555 1.0127278369764 0.0066003046542705 1.0193977953034 0.0067134256017322 1.1031091584507 0.0067418331589086 1.0658669926392 0.0067928758044076 1.042213958146 0.0068688344665313 1.0782970067197 0.0071244413889128 1.0666043799901 0.0071789648746449 1.1449453433914 0.0073806854471135 1.0533941885832 0.0073994549126046 1.1711266362701 0.0074513058257942 1.0872649944347 0.0075207261905099 1.0411645263893 0.0077202453935618 1.0347044730349 0.0077333738833805 1.1180019105314 0.0077363120444507 0.99969617513142 0.0078950274043774 0.97023852655436 0.0079411886062912 1.015149385803 0.007990322146646 1.0872240043301 0.0081711320665125 0.94090537431428 0.0082204987669678 1.1292409284438 0.008275117893945 1.0814592255439 0.0083524940441323 1.0434689237926 0.0084069709057476 1.0854108975338 0.0084573924770809 1.0744520229922 0.0086244691001316 1.079269453753 0.0087183826126773 1.0673411230576 0.0087887450671453 0.96661288773705 0.0087983001664665 0.93697765583316 0.0089174202550519 0.95015498275197 0.0090321513641956 1.1060305616075 0.0090414921805091 1.0854884217944 0.0091037177521533 1.0199358549997 0.0093487977870841 0.98893146436792 0.0094714996254597 0.96235102751438 0.0096363867244496 1.0001753915163 0.0098315485905978 1.0398399974397 0.0098592983395631 0.98452569920322 0.010017606211281 0.94827105392727 0.01004336217895 1.0024030726156 0.010226382813888 0.99374916418919 0.010255005622313 1.0636044969465 0.010302037400572 1.0930652455947 0.010330150123576 1.1166010669909 0.01036270383405 1.0422864944635 0.01059440188966 1.016320809349 0.010751398141769 0.93363482536589 0.010774932073694 1.0039861945745 0.010783393922936 1.0262307178783 0.010838122774172 1.1211117227477 0.010852413429825 1.0145631249612 0.010976820554971 1.0030267934633 0.011022971752684 1.0463625523209 0.011093045695756 1.1858921898452 0.011316683420128 1.0201676794416 0.011341360429169 1.0294874980036 0.011387876262849 1.0675837433211 0.011441759806075 1.0500628786825 0.011454866674432 1.0686022723077 0.01147334734453 1.0189231237557 0.011794233569737 1.0088860438585 0.011869811905734 1.024759444136 0.011957432396859 1.0339146227354 0.011980071319944 1.1037406052714 0.012022039020959 1.0995553398304 0.012220423778485 1.075181657183 0.012534879468834 1.0118716759739 0.012842690656585 1.0231138647337 0.01295580520452 0.93560868522767 0.012984767706844 1.1050141430714 0.013008056086399 0.96631589739239 0.013044079149104 1.0127934085754 0.013072741085263 1.0856646654202 0.013099832830648 1.0152744636183 0.013112680667496 1.0292752175857 0.013193110139412 1.0296664787982 0.013375306419283 1.0086267943053 0.013454143584836 1.0579064200536 0.013596215238227 1.0243378248513 0.013655267231762 1.0743843805979 0.013661401212067 1.0673695558737 0.013667529284363 1.0243697027189 0.013753540273315 1.0644425934443 0.013754588155765 1.0962425179631 0.013755529303192 1.0124587803058 0.013763666905121 1.0600501023188 0.01381311555932 0.99455807284379 0.013928896223212 1.0075482629011 0.014297381427072 0.97716096023975 0.014324159811855 0.95952723229952 0.014399006453229 1.001974073042 0.014425711078208 0.97968510249942 0.014439730069494 1.0805570668592 0.014990350801211 1.0006525243073 0.014990582118471 1.149583321857 0.015065711022937 1.0388267521965 0.015297326586431 0.97362844946423 0.015334650879322 1.0747775986163 0.015523255083142 1.0265554008317 0.015660879316913 1.0783360886319 0.015777226873099 1.0046138344266 0.015860810102479 1.0322821892431 0.015920439242882 1.0739639089438 0.015942654689341 1.0779914751202 0.015950109875394 1.0616388073888 0.01603175360998 1.0961725466159 0.016069843087206 0.99371488436407 0.016070942628637 1.0062540957824 0.016319844800388 1.0712019410676 0.016380728103938 1.0558157521136 0.016612209484602 1.1001878555141 0.016775672870391 1.0169048314526 0.016776295099463 1.1565449522799 0.017027275889956 0.93659936236398 0.017031438589734 1.0960454545701 0.017287672219752 1.1173123817117 0.017343673965741 0.98395638833198 0.017464031554054 1.0505264919603 0.017479321396528 1.0574455372893 0.017501961118148 0.98318587202303 0.017536955894641 1.0250672896501 0.017557054768225 0.96765893646759 0.017679871789278 1.0706444679515 0.017863466829156 1.0479865042553 0.017955400529813 1.0886200453946 0.018048468852553 1.0668082861191 0.018082379203388 1.093332459386 0.018153033206676 1.0277909607653 0.018205612634809 1.0613851310784 0.01836032111025 1.0408039600566 0.018510440946717 0.963421284415 0.018637175671142 1.0723148093524 0.018993407058199 1.0059068573321 0.019043996290968 1.053018825199 0.019097273931851 0.99915946011714 0.01932988288984 1.1951156641726 0.019427523843415 1.1079775890225 0.019657109903763 1.0671787882594 0.019714209243048 1.0525623180667 0.019774853164027 1.0708785306866 0.019886819912479 1.093818615152 0.019964049255872 1.1176563719514 0.020107508577507 0.98575503516188 0.020274603545903 1.0529254979754 0.020526896087428 1.0670755914564 0.020567789823691 1.0290160143453 0.020751962745919 1.0360239153067 0.020918835466069 1.0511512125447 0.021094007477743 1.023660646869 0.021103374455069 1.0289621048294 0.021132241311318 1.0773131845723 0.021363766158654 1.0743587504426 0.021571461896306 0.9656684047319 0.021624602067503 1.0390680743007 0.021657167715424 0.99078825499689 0.021679828185353 1.101574840235 0.021707898394668 0.93933361420726 0.021876012922893 1.0638529330419 0.021900366321131 1.0785503414352 0.021944989426037 1.0830114799852 0.021964327160545 1.0955567662283 0.021969159730837 0.99620039375001 0.022176776601586 1.0665055509213 0.022215952708065 1.0462117515789 0.022398248096982 1.0410533624065 0.02269256602995 1.0265243112698 0.022693623750998 1.0604200748549 0.022740704410908 1.080173673714 0.022828677356958 1.0066824671494 0.022831725120409 1.038690915692 0.022840276325398 0.970482497019 0.023025100776751 1.0282284281422 0.023067338142596 1.0222608291284 0.023195681414743 1.1285573609816 0.023331693583614 1.0221153834759 0.023382704750576 1.105443698301 0.023389427832524 1.0520875307269 0.023537555510167 1.0133442199994 0.023541149691425 1.0604037551075 0.023632428851655 1.0808052729169 0.023729099442437 1.0350088519443 0.023769935160175 1.0438163015124 0.023932244921849 1.0942718091859 0.023997141529155 1.0710805954332 0.024009591311037 0.96872810844793 0.024012869126144 0.99440249144642 0.024045665550765 1.080557608052 0.024059241973725 1.0247740472972 0.024099217685729 0.97348336782522 0.024127572186049 1.0039081028264 0.024145954559015 1.0061650535412 0.0241616988709 0.94192269360134 0.02424528212821 1.0100663775354 0.02427990704912 1.0346679697076 0.024345455740108 1.0360634416321 0.024387585968642 1.0926437778717 0.024389969141504 1.0161740486296 0.024546095122874 1.0169518850444 0.024563295982392 1.0279559132865 0.024751657544007 0.96837209316963 0.024761023406684 1.0514173982463 0.024841449071882 1.0524679132439 0.025161925370811 0.95456759218417 0.025253816413861 1.1050922994861 0.025340634442991 1.1319064107677 0.025493961199519 1.0627508991212 0.025513813938471 1.0972989776012 0.025527405137699 0.99368693979506 0.025671865063531 1.0308676067389 0.025710907226113 1.0224286809624 0.025753788938306 1.0307170588271 0.025753815871206 1.0225398712066 0.025961888021143 1.0381055000709 0.025978605051632 1.0853152654366 0.02606279695605 0.99997967311024 0.026100476692282 0.99651520959199 0.026140147130115 0.98101470904722 0.026330861668927 1.0518626531631 0.02639764601549 1.0717650954535 0.026408851464372 1.0006100227901 0.026538897981398 1.028797894506 0.026591039966113 1.0230616881649 0.026614257365637 1.0075577659408 0.026639824900268 1.0919042205457 0.026754100445468 1.0829549651368 0.026887891471394 1.1189215521332 0.02708215391282 1.0678913540864 0.027091650836627 1.0582840369003 0.027216911437652 0.97831748873686 0.027649817970084 1.0860079102208 0.027652099933186 1.0485506923236 0.027712871004056 1.0583075762017 0.027782523158018 1.0248196240829 0.027785688917067 1.1282145274262 0.027927008628149 1.0249833346445 0.027952404641264 1.0613228093088 0.027965944065008 1.0779275872631 0.028036943529055 1.0750951237193 0.028141010967157 1.0356108739166 0.028258958919937 1.1272153194367 0.028364114761924 1.0499504430947 0.028463486676016 1.0425922463732 0.028525834404042 1.0627994290237 0.028761357192293 1.0500745311632 0.028979171219341 0.99706329266878 0.028993393231664 1.0169153145543 0.029408392199627 1.0114919507966 0.029409282947163 1.1075090137401 0.029495698034404 1.0420359301845 0.02955199977579 0.98720758143854 0.029709726471075 0.99447884671534 0.029756695440159 0.95321075501576 0.029872091214958 1.0165928632888 0.029931936071492 1.1215540506631 0.029991741995135 1.0959740744974 0.030076801584586 1.0028911461513 0.030208070749177 1.0936426214359 0.030249583765852 1.0346304982574 0.030329647941561 0.94148169443134 0.030505567894078 1.119565260247 0.030527935981961 0.97961001514877 0.03053465116449 0.99689830927643 0.030545570930285 1.0480990318956 0.030774128009726 1.0467268798234 0.030904749229324 1.0894378654144 0.031147704799171 1.060107464179 0.031273129602914 1.0656013740992 0.031286935201579 1.0105269992374 0.031294123187912 1.0489663905147 0.031487850583375 0.97366496450837 0.031584230307376 0.98544862718314 0.031837332964879 1.0370091672262 0.0320377193184 1.0671101167267 0.032288184379672 0.979502653366 0.032311803866986 1.0329165770243 0.032456313006016 1.0307955471439 0.032467228757409 1.1057619538923 0.032615703026347 0.97537688909435 0.032962626893869 0.98119230461184 0.033059618328508 1.0243593627334 0.033098163716758 0.99081274230406 0.033423719097416 1.1905553035081 0.03344393179216 1.0261125259439 0.033537514328376 0.96338566512284 0.033704265472923 1.020754350797 0.033745345147579 1.0235899422349 0.033825005860061 1.0117708707683 0.033835525689264 1.0431514649376 0.034032639428565 1.1119886724853 0.034051774591484 1.1154902755237 0.034091097806847 1.0765813925359 0.03441936436462 1.0203311806186 0.034598609689185 1.0055297490034 0.034609898993041 1.0155396481067 0.034831634672744 1.0068159279995 0.03483655003493 1.1509646325537 0.034910360961448 1.102458799365 0.03494205121865 1.0483857436496 0.035010331756542 1.1023987423586 0.035186469467152 0.96540123544521 0.035308046592774 1.1482414186103 0.035340043714924 0.96744240881184 0.0354401017781 0.98745579223973 0.035528980066015 1.0658683413068 0.035530699844607 1.022345203508 0.035534929347216 1.0062316968405 0.035751554140686 1.0641260241591 0.03615464869644 1.1012930042451 0.036220965032123 0.99245027521674 0.036255884355359 1.0310400826529 0.036259863784234 1.055889075147 0.03629813707692 1.0364084807861 0.036312570005177 1.0602920688421 0.036416364440704 1.0430323098521 0.036459679021477 1.0410468567835 0.036508618007838 1.0269982984701 0.03662656069514 1.0098939475175 0.036996836524584 1.0443374032984 0.037297593855353 1.0741834867665 0.037374515853487 0.96821899814057 0.037389225705184 1.0137209263798 0.037392048021854 1.0263190054203 0.037552551430835 1.0258679378837 0.037594460415065 1.0821531041231 0.037717258575685 1.0403598499208 0.037935418201943 1.0676657137743 0.037970281489394 1.046400344462 0.038085471365546 1.1630774813468 0.038152564958837 1.0807554030115 0.038305805922763 1.0582419839047 0.038477426828936 1.0924713655635 0.038505954273475 1.0287248732099 0.038678058859252 1.0294806105466 0.038803481502152 1.0442654193041 0.038939075039149 0.94114888489678 0.038987897929502 1.0772714049433 0.039174127083481 0.96546417420143 0.03949853215609 1.0044860829975 0.03956943199333 1.0401109688515 0.039804083629606 1.0725555848744 0.040112354632656 1.0439326541563 0.04028121264635 1.085499760065 0.040544477112506 1.0879611067442 0.040859858911371 1.0056605543696 0.040919835523674 1.0575031417829 0.041028081748606 0.99689528272964 0.041611687948391 1.0783813974758 0.041806501607356 1.0443698479478 0.042029541377977 1.0325720297871 0.042031458365487 1.0761351678211 0.042068452024837 1.0502347328691 0.042071117479906 1.0843742291616 0.042088427059775 1.0437225517247 0.042126969432741 1.0872956704043 0.042269698587575 1.0380517347201 0.042328204119307 1.1048061323968 0.042534702569118 1.0844051033406 0.042608997894787 0.98216124035345 0.042643339998804 1.0349023074604 0.043636405774263 1.0243893178205 0.043942808041947 1.0558646544488 0.044197840506814 1.0536434836221 0.044300450721935 1.0455447222152 0.04455427651688 1.0027852911473 0.045096283293461 1.1239075670322 0.045178824676883 1.0303803616832 0.045222075664767 1.1273190405966 0.045277002507163 1.0525109241987 0.045348700342496 1.03261116836 0.045513247210923 0.93456118373981 0.045552181567436 1.0646184203907 0.04564276620418 1.0456408708008 0.045695308238338 1.0059232747479 0.046291341484943 1.0453153135945 0.046917821272261 1.0438194200538 0.047163972275964 1.0213231494014 0.047238649947519 1.0091430271634 0.047787963540262 0.97478302408347 0.048186500456359 1.0972077859002 0.048205130687965 0.94309596402991 0.04857520695041 1.0621253696246 0.049861836226309 1.0565609041579 0.04992880160437 1.0609841630796 0.050477065141517 1.0516616077274 0.050568057809856 1.0634061937724 0.051062886659889 1.021175789179 0.051089357295406 0.99927185393007 0.051163261174614 1.0625981363385 0.051260289179963 1.1124291863953 0.051574900012381 1.0198926006218 0.051813323256537 1.018156642247 0.051917292479213 1.0522454187568 0.051986572944286 1.0930986412041 0.052512014520906 0.99422727361335 0.052734468237537 1.0338765174929 0.052791003093597 0.99709694878288 0.05283179718349 1.0800491308174 0.052867595789631 1.0362425577711 0.0533973097802 1.0722758961144 0.053598708621061 1.0389491493418 0.053872548134341 1.0254834803533 0.053884575159546 1.089025669963 0.054007384959782 0.9976606501746 0.054120031418466 1.0241296517159 0.054803335273104 1.0925853594967 0.054972644694337 1.128142403997 0.054981185271706 1.115990330475 0.055581046322645 1.0177394154902 0.055809122669018 1.1189799517722 0.056270609777831 1.0728221089378 0.056314513787795 1.0702880731265 0.056918591859989 1.0314631620425 0.057054721917153 1.030381183978 0.059215751667604 1.0526592281133 0.059243655864089 0.96616271972476 0.060149692151068 1.1410075624902 0.060443872474845 1.0030402655554 0.060613522785631 1.0323462812733 0.061485516430101 1.0230443278616 0.061644500776623 1.0430966321384 0.062800108683081 0.96831604912625 0.063313462276424 1.0471838328317 0.063349958052368 1.0052798460146 0.063618584045097 1.0444920064492 0.064324828686573 1.1737747122642 0.064481456820764 1.1201404550867 0.065413040770848 1.0420338965249 0.06567187182579 1.0173546973385 0.066355550975036 1.0807742825318 0.06665510867807 1.0157272929725 0.067282439665865 1.0971232480732 0.067469333924031 1.0141328358045 0.067928494595022 1.0158655606695 0.068358969295044 1.0667701422861 0.06892339276401 1.0211621551726 0.068963346069058 1.0448300910919 0.069215290357532 1.0944997026357 0.069229468342028 1.1086254817589 0.070280824426845 1.0829895079412 0.071638120894839 1.1123318965685 0.071985105840588 0.99646067253113 0.072679252688938 1.1536242254462 0.077374661911026 1.0796010102122 0.07781751145817 1.0355769051255 0.079844900565023 1.0145191923501 0.079946225159076 1.0391076879142 0.080196476802703 1.0772787821381 0.080354931253449 1.0049139811011 0.081729153765545 0.99322214679801 0.083056711566111 1.0414723550234 0.088499028574951 0.99791100031666 0.090256213591909 1.0630167585133 0.094759071221866 0.98297688227792 0.097573533047283 1.0013399168592 0.1072015593282 0.95183876643946 0.11226721874715 1.1478700225589 april-ann-0.3.1/packages/basics/stats/test/test_bootstrap.lua000066400000000000000000000013031234204160600243050ustar00rootroot00000000000000local check = utest.check local base_dir = string.get_path(arg[0]) local rnd = random(567) local errors = iterator(range(1,1000)):map(function()return rnd:randNorm(0.0,1.0)end):table() local boot_result = stats.boot{ data=errors, R=1000, seed=1234, statistic = function(it) local mv = stats.mean_var() for k,v in it do mv:add(v) end return { mv:compute() } end } table.sort(boot_result, function(a,b) return a[1]isRunning()); } //BIND_END //BIND_METHOD Threadable is_joined { LUABIND_RETURN(bool, obj->isJoined()); } //BIND_END //BIND_METHOD Threadable start_thread { obj->startThread(); } //BIND_END //BIND_METHOD Threadable stop_thread { obj->stopThread(); } //BIND_END //BIND_METHOD Threadable wait_thread { obj->waitThread(); } //BIND_END //BIND_METHOD Threadable get_name { LUABIND_RETURN(string, obj->getName()); } //BIND_END april-ann-0.3.1/packages/basics/thread_utils/c_src/000077500000000000000000000000001234204160600221745ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/thread_utils/c_src/mutexed_fifo.h000066400000000000000000000062031234204160600250240ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MUTEX_FIFO_H #define MUTEX_FIFO_h #include #include #include "fifo.h" using april_utils::fifo; namespace april_thread_utils { template class MutexedFIFO { // cola fifo queue; // semaforo pthread_mutex_t fifo_mutex; // variable condicional para que se esperen los procesos lectores a // que haya datos en el canal. pthread_cond_t fifo_readers_cond; bool locked; public: MutexedFIFO() { locked = true; pthread_mutex_init(&fifo_mutex, NULL); pthread_cond_init (&fifo_readers_cond, NULL); } ~MutexedFIFO() { pthread_mutex_destroy(&fifo_mutex); pthread_cond_destroy(&fifo_readers_cond); } // indica si esta vacia la cola bool empty() { bool ret; pthread_mutex_lock(&fifo_mutex); ret = queue.empty(); pthread_mutex_unlock(&fifo_mutex); return ret; } // ESTE METODO SI ES BLOQUEANTE EN FUNCION DEL VALOR DE // "locked". Si es true, entonces es bloqueante, en otro caso no T get() { pthread_mutex_lock(&fifo_mutex); // metemos la espera en un bucle para comprobar cada vez que se // despierte si realmente esta vacia la cola while(queue.empty()) { if (!locked) { // salimos sin bloquear pthread_mutex_unlock(&fifo_mutex); return T(); } // bloqueamos pthread_cond_wait(&fifo_readers_cond, &fifo_mutex); } T data = T(); queue.get(data); pthread_mutex_unlock(&fifo_mutex); return data; } // hace un put en el fifo, usando el mutex y despertando a quien // toque si hubiera alguien esperando. Este nunca es bloqueante. void put(T data) { pthread_mutex_lock(&fifo_mutex); queue.put(data); if (queue.size() == 1) { // SUPERFIXME se puede poner el pthread_cond_signal a pelo // enviamos la senyal de que se puede leer del canal pthread_cond_signal(&fifo_readers_cond); } pthread_mutex_unlock(&fifo_mutex); } // desbloquea el fifo despertando los procesos dormidos, // impidiendo que vuelva a ser bloqueante void unlock() { locked = false; pthread_cond_signal(&fifo_readers_cond); } // bloquea el fifo. vuelve a ser bloqueante void lock() { locked = true; } }; }; #endif // MUTEX_FIFO_H april-ann-0.3.1/packages/basics/thread_utils/c_src/sig_int_handler.cc000066400000000000000000000031431234204160600256350ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "threadable.h" #include "sig_int_handler.h" namespace april_thread_utils { bool SigIntHandler::installed = false; list SigIntHandler::objects; void SigIntHandler::sig_int_handler(int sgn) { fprintf (stderr, "\tReceived ctrl+c, stopping %u threads\n", (unsigned int)objects.size()); for (list::iterator it = objects.begin(); it != objects.end(); ++it) { fprintf (stderr, "\t\t%s\n", (*it)->getName()); (*it)->stopThread(); } } void SigIntHandler::add_thread(Threadable *obj) { objects.push_back(obj); } void SigIntHandler::remove_thread(Threadable *obj) { objects.remove(obj); } void SigIntHandler::install_handler() { if (!installed) { installed = true; signal(SIGINT, sig_int_handler); } } } april-ann-0.3.1/packages/basics/thread_utils/c_src/sig_int_handler.h000066400000000000000000000024731234204160600255040ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef SIG_INT_HANDLER_H #define SIG_INT_HANDLER_H #include #include #include "list.h" using april_utils::list; // forward declaration class Threadable; namespace april_thread_utils { class SigIntHandler { static bool installed; static list objects; public: static void sig_int_handler(int sgn); static void add_thread(Threadable *obj); static void remove_thread(Threadable *obj); static void install_handler(); }; } #endif // SIG_INT_HANDLER april-ann-0.3.1/packages/basics/thread_utils/c_src/threadable.h000066400000000000000000000056241234204160600244470ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef THREADBLE_H #define THREADBLE_H #include #include #include "sig_int_handler.h" #include "referenced.h" using april_thread_utils::SigIntHandler; class Threadable : public Referenced { // controla la ejecucion del bucle bool running; // controla si se ha ejecutado el join bool joined; // el ID del thread pthread_t thread_id; // nombre char *name; static void *execute(void *ptr) { Threadable *obj = reinterpret_cast(ptr); while (obj->running && obj->threadProcedure()); obj->running = false; pthread_exit(0); } protected: // permite ejecutar cosas ANTES de hacer el running virtual void executeBeforeStart() { } // permite ejecutar cosas ANTES de hacer el stop virtual void executeBeforeStop() { } // permite ejecutar cosas DESPUES de hacer el wait virtual void executeAfterWait() { } // el codigo principal del thread, que va dentro del bucle. Si // devuelve false, seria equivalente a hacer un stop del thread virtual bool threadProcedure() = 0; public: Threadable(const char *name=0) : running(false), joined(true) { if (name) { this->name = new char[strlen(name)+1]; strcpy(this->name, name); } else this->name = 0; } virtual ~Threadable() { stopThread(); waitThread(); delete[] name; } const char *getName() { return name; } bool isRunning() { return running; } bool isJoined() { return joined; } void startThread() { if (!running) { if (!joined) waitThread(); joined = false; running = true; executeBeforeStart(); pthread_create(&thread_id, 0, execute, this); SigIntHandler::add_thread(this); } } void stopThread() { if (running) { running = false; executeBeforeStop(); SigIntHandler::remove_thread(this); fprintf(stderr, "\t\t\t%s stopped\n", getName()); } } void waitThread() { if (!running && !joined) { pthread_join(thread_id, 0); joined = true; executeAfterWait(); fprintf(stderr, "\t\t\t%s joined\n", getName()); } } }; #endif // THREADBLE_H april-ann-0.3.1/packages/basics/thread_utils/package.lua000066400000000000000000000020051234204160600231760ustar00rootroot00000000000000package{ name = "thread_utils", version = "1.0", depends = { "util" }, keywords = { }, link_libraries = { "pthread" }, description = "", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_threadable.lua.cc" , dest_dir = "include" }, }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", dest_dir = "build", -- flags = "-std=c99", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_threadable.lua.cc", dest_dir = "build" }, }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/basics/tokens/000077500000000000000000000000001234204160600177175ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/tokens/binding/000077500000000000000000000000001234204160600213315ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/tokens/binding/bind_tokens.lua.cc000066400000000000000000000202211234204160600247140ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C #include "bind_matrix.h" #include "bind_sparse_matrix.h" #include "matrixFloat.h" #include "sparse_matrixFloat.h" int token_bunch_vector_iterator_function(lua_State *L) { // se llama con: local var_1, ... , var_n = _f(_s, _var) donde _s es // el estado invariante (en este caso el dataset) y _var es var_1 de // iteracion anterior (en este caso el indice) TokenBunchVector *obj = lua_toTokenBunchVector(L, 1); unsigned int index = static_cast(lua_tonumber(L, 2)) + 1; // le sumamos uno if (index > obj->size()) { lua_pushnil(L); return 1; } lua_pushnumber(L, index); Token *token = (*obj)[index-1]; lua_pushToken(L, token); return 2; } bool lua_isAuxToken(lua_State *L, int n) { return lua_isSparseMatrixFloat(L,n) || lua_isMatrixFloat(L,n) || lua_isToken(L,n); } // Be careful, this function returns an object which needs to call IncRef and // DecRef ALWAYS, even if the receives is not getting the property. Otherwise, a // memory leak will exists. Token *lua_toAuxToken(lua_State *L, int n) { if (lua_isMatrixFloat(L, n)) { MatrixFloat *mat = lua_toMatrixFloat(L,n); return new TokenMatrixFloat(mat); } else if (lua_isSparseMatrixFloat(L, n)) { SparseMatrixFloat *mat = lua_toSparseMatrixFloat(L,n); return new TokenSparseMatrixFloat(mat); } return lua_toToken(L,n); } //BIND_END //BIND_HEADER_H #include "token_base.h" #include "token_memory_block.h" #include "token_matrix.h" #include "token_sparse_matrix.h" #include "token_vector.h" bool lua_isAuxToken(lua_State *L, int n); Token *lua_toAuxToken(lua_State *L, int n); //BIND_END //BIND_LUACLASSNAME Token tokens.base //BIND_CPP_CLASS Token //BIND_CONSTRUCTOR Token { LUABIND_ERROR("Abstract class!!!"); } //BIND_END //BIND_METHOD Token clone { LUABIND_RETURN(Token, obj->clone()); } //BIND_END //BIND_METHOD Token get_matrix { switch(obj->getTokenCode()) { case table_of_token_codes::token_matrix: { TokenMatrixFloat *token_matrix = obj->convertTo(); LUABIND_RETURN(MatrixFloat, token_matrix->getMatrix()); break; } case table_of_token_codes::token_sparse_matrix: { TokenSparseMatrixFloat *token_sparse_matrix; token_sparse_matrix = obj->convertTo(); LUABIND_RETURN(SparseMatrixFloat, token_sparse_matrix->getMatrix()); break; } default: ; } } //BIND_END //BIND_METHOD Token convert_to_memblock { if (obj->getTokenCode() == table_of_token_codes::token_mem_block) { TokenMemoryBlock *token_memblock = obj->convertTo(); LUABIND_RETURN(TokenMemoryBlock, token_memblock); } } //BIND_END //BIND_METHOD Token convert_to_bunch_vector { if (obj->getTokenCode() == table_of_token_codes::vector_Tokens) { TokenBunchVector *token_bunch_vector = obj->convertTo(); LUABIND_RETURN(TokenBunchVector, token_bunch_vector); } } //BIND_END //////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME TokenMemoryBlock tokens.memblock //BIND_CPP_CLASS TokenMemoryBlock //BIND_SUBCLASS_OF TokenMemoryBlock Token //BIND_CONSTRUCTOR TokenMemoryBlock { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, table); unsigned int sz; LUABIND_TABLE_GETN(1, sz); float *vector = new float[sz]; LUABIND_TABLE_TO_VECTOR(1, float, vector, sz); obj = new TokenMemoryBlock(sz); obj->setData(vector, sz); delete[] vector; LUABIND_RETURN(TokenMemoryBlock, obj); } //BIND_END //BIND_METHOD TokenMemoryBlock to_table { int sz = static_cast(obj->getUsedSize()); const float *vector = obj->getMemBlock()->getPPALForRead(); LUABIND_VECTOR_TO_NEW_TABLE(float, vector, sz); LUABIND_RETURN_FROM_STACK(-1); } //BIND_END //////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME TokenMatrixFloat tokens.matrix //BIND_CPP_CLASS TokenMatrixFloat //BIND_SUBCLASS_OF TokenMatrixFloat Token //BIND_CONSTRUCTOR TokenMatrixFloat { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, MatrixFloat); MatrixFloat *mat; LUABIND_GET_PARAMETER(1, MatrixFloat, mat); obj = new TokenMatrixFloat(mat); LUABIND_RETURN(TokenMatrixFloat, obj); } //BIND_END //BIND_METHOD TokenMatrixFloat get_matrix { LUABIND_RETURN(MatrixFloat, obj->getMatrix()); } //BIND_END //////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME TokenSparseMatrixFloat tokens.sparse_matrix //BIND_CPP_CLASS TokenSparseMatrixFloat //BIND_SUBCLASS_OF TokenSparseMatrixFloat Token //BIND_CONSTRUCTOR TokenSparseMatrixFloat { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, SparseMatrixFloat); SparseMatrixFloat *mat; LUABIND_GET_PARAMETER(1, SparseMatrixFloat, mat); obj = new TokenSparseMatrixFloat(mat); LUABIND_RETURN(TokenSparseMatrixFloat, obj); } //BIND_END //BIND_METHOD TokenSparseMatrixFloat get_matrix { LUABIND_RETURN(SparseMatrixFloat, obj->getMatrix()); } //BIND_END //////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME TokenVectorGeneric tokens.vector //BIND_CPP_CLASS TokenVectorGeneric //BIND_SUBCLASS_OF TokenVectorGeneric Token //BIND_CONSTRUCTOR TokenVectorGeneric { LUABIND_ERROR("Abstract class!!!"); } //BIND_END //BIND_METHOD TokenVectorGeneric size { LUABIND_RETURN(uint, obj->size()); } //BIND_END //BIND_METHOD TokenVectorGeneric clear { obj->clear(); } //BIND_END //////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME TokenBunchVector tokens.vector.bunch //BIND_CPP_CLASS TokenBunchVector //BIND_SUBCLASS_OF TokenBunchVector TokenVectorGeneric //BIND_CONSTRUCTOR TokenBunchVector { LUABIND_CHECK_ARGN(<=, 1); int argn = lua_gettop(L); if (argn == 1) { if (lua_isnumber(L, 1)) { unsigned int size; LUABIND_CHECK_PARAMETER(1, uint); LUABIND_GET_PARAMETER(1, uint, size); obj = new TokenBunchVector(size); } else { int sz; Token **v; LUABIND_TABLE_GETN(1, sz); v = new Token*[sz]; LUABIND_TABLE_TO_VECTOR(1, Token, v, sz); obj = new TokenBunchVector(sz); for (unsigned int i=0; i(sz); ++i) { (*obj)[i] = v[i]; IncRef(v[i]); } delete[] v; } } else obj = new TokenBunchVector(); LUABIND_RETURN(TokenBunchVector, obj); } //BIND_END //BIND_METHOD TokenBunchVector at { LUABIND_CHECK_ARGN(==, 1); unsigned int pos; LUABIND_CHECK_PARAMETER(1, uint); LUABIND_GET_PARAMETER(1, uint, pos); Token *token = (*obj)[pos-1]; LUABIND_RETURN(Token, token); } //BIND_END //BIND_METHOD TokenBunchVector set { LUABIND_CHECK_ARGN(==, 2); unsigned int pos; Token *token; LUABIND_CHECK_PARAMETER(1, uint); LUABIND_CHECK_PARAMETER(2, Token); LUABIND_GET_PARAMETER(1, uint, pos); LUABIND_GET_PARAMETER(2, Token, token); (*obj)[pos-1] = token; IncRef(token); LUABIND_RETURN(TokenBunchVector, obj); } //BIND_END //BIND_METHOD TokenBunchVector push_back { LUABIND_CHECK_ARGN(==, 1); Token *token; LUABIND_CHECK_PARAMETER(1, Token); LUABIND_GET_PARAMETER(1, Token, token); obj->TokenBunchVector::push_back(token); LUABIND_RETURN(TokenBunchVector, obj); } //BIND_END //BIND_METHOD TokenBunchVector iterate // para iterar con un for index,value in obj:iterate() do ... end { LUABIND_CHECK_ARGN(==, 0); LUABIND_RETURN(cfunction,token_bunch_vector_iterator_function); LUABIND_RETURN(TokenBunchVector,obj); LUABIND_RETURN(int,0); } //BIND_END april-ann-0.3.1/packages/basics/tokens/c_src/000077500000000000000000000000001234204160600210105ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/tokens/c_src/table_of_token_codes.h000066400000000000000000000050411234204160600253110ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef TABLE_OF_TOKEN_CODES_H #define TABLE_OF_TOKEN_CODES_H #include /* TOKEN TYPE GROUPS PREPARED FOR FUTURE AMPLIATIONS Basic group with 4096 elements (0x1000) Block Number Class 0 0x0000 error types 1 0x1000 signals 2 0x2000 basic types 3 0x3000 vectors 4 0x4000 graphs */ /// Definition of TokenCode type typedef uint32_t TokenCode; /// Static class which contains TokenCodes for each corresponding Token type class table_of_token_codes { public: // especial codes 1024 (0x400) static const TokenCode error = 0x0000; // notifications 1024 // 1024-20 static const TokenCode signal_end = 0x1000; // basic types 1024 static const TokenCode boolean = 0x2000; static const TokenCode token_char = 0x2001; static const TokenCode token_int32 = 0x2002; static const TokenCode token_uint32 = 0x2003; static const TokenCode token_mem_block = 0x2004; static const TokenCode token_matrix = 0x2005; static const TokenCode token_sparse_matrix = 0x2006; // vectors: static const TokenCode vector_float = 0x3000; static const TokenCode vector_double = 0x3001; static const TokenCode vector_log_float = 0x3002; static const TokenCode vector_log_double = 0x3003; static const TokenCode vector_char = 0x3004; static const TokenCode vector_int32 = 0x3005; static const TokenCode vector_uint32 = 0x3006; static const TokenCode vector_SymbolScores = 0x3007; static const TokenCode vector_Tokens = 0x3008; // graph protocol: static const TokenCode token_idag = 0x4000; }; #endif // TABLE_OF_TOKEN_CODES_H april-ann-0.3.1/packages/basics/tokens/c_src/token_base.cc000066400000000000000000000016641234204160600234400ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include #include "token_base.h" Token::Token() : Referenced() { } Token::~Token() { } april-ann-0.3.1/packages/basics/tokens/c_src/token_base.h000066400000000000000000000047601234204160600233020ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef TOKEN_BASE_H #define TOKEN_BASE_H #include "april_assert.h" #include #include #include "table_of_token_codes.h" #include "buffer_list.h" #include "constString.h" #include "referenced.h" /// A pure abstract class with interface of Token. A Token represents the /// concept of a datatype throught Dataflow architectures (even Artificial /// Neural Network components). class Token : public Referenced { public: Token(); virtual ~Token(); /// This method implements a deep copy virtual Token *clone() const = 0; /// FOR DEBUG PURPOSES virtual buffer_list* debugString(const char *prefix, int debugLevel)=0; /// Abstract method which indicates the TokenCode of child Token classes virtual TokenCode getTokenCode() const = 0; /// Abstract method for serialization purposes virtual buffer_list* toString()=0; // ALL TOKENS MUST IMPLEMENT THIS STATIC METHOD FOR SERIALIZATION PURPOSES // Token *fromString(constString &cs); /// Templatized method which returns true if a Token pointer could be /// transformed to a given Token child class template bool isA() const { return typeid(T) == typeid(*this); } /// Templatized method which converts the given Token pointer to a Token child /// class template T convertTo() { T result = dynamic_cast(this); april_assert(result != 0); return result; } /// Templatized method which converts the given const Token pointer to a const /// Token child class template const T convertTo() const { T result = dynamic_cast(this); april_assert(result != 0); return result; } }; #endif // TOKEN_BASE_H april-ann-0.3.1/packages/basics/tokens/c_src/token_matrix.cc000066400000000000000000000015641234204160600240310ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "token_matrix.h" template class TokenMatrix; april-ann-0.3.1/packages/basics/tokens/c_src/token_matrix.h000066400000000000000000000050421234204160600236660ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef TOKEN_MATRIX_H #define TOKEN_MATRIX_H #include "unused_variable.h" #include "matrix.h" #include "token_base.h" template class TokenMatrix : public Token { Matrix *mat; public: TokenMatrix(Matrix *mat); ~TokenMatrix(); Matrix *getMatrix() { return mat; } const Matrix *getMatrix() const { return mat; } unsigned int size() const { return mat->size(); } Token *clone() const; buffer_list* toString(); buffer_list* debugString(const char *prefix, int debugLevel); TokenCode getTokenCode() const; static Token *fromString(constString &cs) { // NOT IMPLEMENTED UNUSED_VARIABLE(cs); return 0; } bool getCudaFlag() { return mat->getCudaFlag(); } void printDebug() { /* const float *data = mem_block->getPPALForRead(); for (unsigned int i=0; i TokenMatrix::TokenMatrix(Matrix *mat) : mat(mat) { IncRef(mat); } template TokenMatrix::~TokenMatrix() { DecRef(mat); } template Token *TokenMatrix::clone() const { TokenMatrix *token = new TokenMatrix( mat->clone() ); return token; } template buffer_list* TokenMatrix::toString() { // NOT IMPLEMENTED return 0; } template buffer_list* TokenMatrix::debugString(const char *prefix, int debugLevel) { // NOT IMPLEMENTED UNUSED_VARIABLE(prefix); UNUSED_VARIABLE(debugLevel); return 0; } template TokenCode TokenMatrix::getTokenCode() const { return table_of_token_codes::token_matrix; } /////////////////////////////////////////////////////////////////////////// typedef TokenMatrix TokenMatrixFloat; #endif // TOKEN_MATRIX_H april-ann-0.3.1/packages/basics/tokens/c_src/token_memory_block.cc000066400000000000000000000045101234204160600252010ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "wrapper.h" #include "gpu_mirrored_memory_block.h" #include "token_memory_block.h" TokenMemoryBlock::TokenMemoryBlock() : mem_block(0), used_size(0) { } TokenMemoryBlock::TokenMemoryBlock(unsigned int size) : mem_block(0), used_size(0) { resize(size); } TokenMemoryBlock::~TokenMemoryBlock() { delete mem_block; } void TokenMemoryBlock::setData(float *data, unsigned int size) { resize(size); float *mem_ptr = mem_block->getPPALForWrite(); for (unsigned int i=0; i mem_block->getSize()) { delete mem_block; mem_block = new FloatGPUMirroredMemoryBlock(size); } used_size = size; } Token *TokenMemoryBlock::clone() const { TokenMemoryBlock *token = new TokenMemoryBlock(mem_block->getSize()); token->used_size = used_size; doCopy(mem_block->getSize(), mem_block, 0, 1, token->mem_block, 0, 1, false); return token; } buffer_list* TokenMemoryBlock::toString() { // NOT IMPLEMENTED return 0; } buffer_list* TokenMemoryBlock::debugString(const char *prefix, int debugLevel) { // NOT IMPLEMENTED UNUSED_VARIABLE(prefix); UNUSED_VARIABLE(debugLevel); return 0; } TokenCode TokenMemoryBlock::getTokenCode() const { return table_of_token_codes::token_mem_block; } void TokenMemoryBlock::setToZero(bool use_cuda) { doFill(mem_block->getSize(), mem_block, 1, 0, 0.0f, use_cuda); } april-ann-0.3.1/packages/basics/tokens/c_src/token_memory_block.h000066400000000000000000000040371234204160600250470ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef TOKEN_MEMORY_BLOCK_H #define TOKEN_MEMORY_BLOCK_H #include "unused_variable.h" #include "gpu_mirrored_memory_block.h" #include "token_base.h" class TokenMemoryBlock : public Token { FloatGPUMirroredMemoryBlock *mem_block; unsigned int used_size; public: TokenMemoryBlock(); TokenMemoryBlock(unsigned int size); ~TokenMemoryBlock(); void setData(float *data, unsigned int size); FloatGPUMirroredMemoryBlock *getMemBlock() { return mem_block; } unsigned int getUsedSize() const { return used_size; } unsigned int getMaxSize() const { return mem_block?mem_block->getSize():0; } void resize(unsigned int size); Token *clone() const; buffer_list* toString(); buffer_list* debugString(const char *prefix, int debugLevel); TokenCode getTokenCode() const; static Token *fromString(constString &cs) { // NOT IMPLEMENTED UNUSED_VARIABLE(cs); return 0; } void clear() { used_size = 0; } bool getCudaFlag() { return mem_block->getCudaFlag(); } void printDebug() { const float *data = mem_block->getPPALForRead(); for (unsigned int i=0; i; april-ann-0.3.1/packages/basics/tokens/c_src/token_sparse_matrix.h000066400000000000000000000052661234204160600252530ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2014, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef TOKEN_SPARSE_MATRIX_H #define TOKEN_SPARSE_MATRIX_H #include "unused_variable.h" #include "matrix.h" #include "token_base.h" template class TokenSparseMatrix : public Token { SparseMatrix *mat; public: TokenSparseMatrix(SparseMatrix *mat); ~TokenSparseMatrix(); SparseMatrix *getMatrix() { return mat; } const SparseMatrix *getMatrix() const { return mat; } unsigned int size() const { return mat->size(); } Token *clone() const; buffer_list* toString(); buffer_list* debugString(const char *prefix, int debugLevel); TokenCode getTokenCode() const; static Token *fromString(constString &cs) { // NOT IMPLEMENTED UNUSED_VARIABLE(cs); return 0; } bool getCudaFlag() { return mat->getCudaFlag(); } void printDebug() { /* const float *data = mem_block->getPPALForRead(); for (unsigned int i=0; i TokenSparseMatrix::TokenSparseMatrix(SparseMatrix *mat) : mat(mat) { IncRef(mat); } template TokenSparseMatrix::~TokenSparseMatrix() { DecRef(mat); } template Token *TokenSparseMatrix::clone() const { TokenSparseMatrix *token = new TokenSparseMatrix( mat->clone() ); return token; } template buffer_list* TokenSparseMatrix::toString() { // NOT IMPLEMENTED return 0; } template buffer_list* TokenSparseMatrix::debugString(const char *prefix, int debugLevel) { // NOT IMPLEMENTED UNUSED_VARIABLE(prefix); UNUSED_VARIABLE(debugLevel); return 0; } template TokenCode TokenSparseMatrix::getTokenCode() const { return table_of_token_codes::token_sparse_matrix; } /////////////////////////////////////////////////////////////////////////// typedef TokenSparseMatrix TokenSparseMatrixFloat; #endif // TOKEN_SPARSE_MATRIX_H april-ann-0.3.1/packages/basics/tokens/c_src/token_vector.cc000066400000000000000000000234121234204160600240230ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include #include "unused_variable.h" #include "token_vector.h" #include "binarizer.h" #include "table_of_token_codes.h" using april_utils::vector; using april_utils::pair; template TokenVector::TokenVector() { } template TokenVector::TokenVector(unsigned int vlength) : vec(vlength) { } template TokenVector::TokenVector(const T *vec, unsigned int vlength) : vec(vec, vec+vlength) { } template TokenVector::TokenVector(const vector &vec) : vec(vec) { } template TokenVector::~TokenVector() { } template Token *TokenVector::clone() const { return new TokenVector(vec); } template buffer_list* TokenVector::toString() { // ERROR, no se puede serializar de forma general return 0; // para indicar error } template buffer_list* TokenVector::debugString(const char *prefix, int debugLevel) { UNUSED_VARIABLE(debugLevel); buffer_list *resul = new buffer_list; resul->add_formatted_string_right("%s TokenVector of generic type\n",prefix); return resul; } template TokenCode TokenVector::getTokenCode() const { return table_of_token_codes::error; } template Token *TokenVector::fromString(constString &cs) { UNUSED_VARIABLE(cs); return 0; // no hay un fromString generico } // ------------------------- vector float ------------------------- template<> buffer_list* TokenVector::toString() { buffer_list *resul = new buffer_list; resul->add_binarized_float_left(vec.begin(),vec.size()); return resul; } template<> buffer_list* TokenVector::debugString(const char *prefix, int debugLevel) { // TODO: de momento ignoramos debugLevel UNUSED_VARIABLE(debugLevel); buffer_list *resul = new buffer_list; resul->add_formatted_string_right("%s TokenVector_float with %d values\n", prefix,vec.size()); return resul; } template <> TokenCode TokenVector::getTokenCode() const { return table_of_token_codes::vector_float; } template <> Token *TokenVector::fromString(constString &cs) { if (cs.len() % 5 != 0) return 0; // talla incorrecta int vec_len = cs.len() / 5; TokenVector *resul = new TokenVector(vec_len); bool all_is_ok = true; for (int i=0; all_is_ok && ivec[i])); } if (!all_is_ok) { delete resul; resul = 0; } return resul; } // ------------------------- vector double ------------------------- template <> buffer_list* TokenVector::toString() { buffer_list *resul = new buffer_list; resul->add_binarized_double_left(vec.begin(),vec.size()); return resul; } template <> buffer_list* TokenVector::debugString(const char *prefix, int debugLevel) { // TODO: de momento ignoramos debugLevel UNUSED_VARIABLE(debugLevel); buffer_list *resul = new buffer_list; resul->add_formatted_string_right("%s TokenVector_double with %u values\n", prefix,vec.size()); return resul; } template <> TokenCode TokenVector::getTokenCode() const { return table_of_token_codes::vector_double; } template <> Token *TokenVector::fromString(constString &cs) { if (cs.len() % 10 != 0) return 0; // talla incorrecta int vec_len = cs.len() / 10; TokenVector *resul = new TokenVector(vec_len); bool all_is_ok = true; for (int i=0; all_is_ok && ivec[i])); } if (!all_is_ok) { delete resul; resul = 0; } return resul; } // ------------------------- vector int32 ------------------------- template <> buffer_list* TokenVector::toString() { buffer_list *resul = new buffer_list; resul->add_binarized_int32_left(vec.begin(),vec.size()); return resul; } template <> buffer_list* TokenVector::debugString(const char *prefix, int debugLevel) { // TODO: de momento ignoramos debugLevel UNUSED_VARIABLE(debugLevel); buffer_list *resul = new buffer_list; resul->add_formatted_string_right("%s TokenVector_int32 with %d values\n", prefix,vec.size()); return resul; } template <> TokenCode TokenVector::getTokenCode() const { return table_of_token_codes::vector_int32; } template <> Token *TokenVector::fromString(constString &cs) { if (cs.len() % 5 != 0) return 0; // talla incorrecta int vec_len = cs.len() / 5; TokenVector *resul = new TokenVector(vec_len); bool all_is_ok = true; for (int i=0; all_is_ok && ivec[i])); } if (!all_is_ok) { delete resul; resul = 0; } return resul; } // ------------------------- vector uint32_t ------------------------- template <> buffer_list* TokenVector::toString() { buffer_list *resul = new buffer_list; resul->add_binarized_uint32_left(vec.begin(),vec.size()); return resul; } template <> buffer_list* TokenVector::debugString(const char *prefix, int debugLevel) { // TODO: de momento ignoramos debugLevel UNUSED_VARIABLE(debugLevel); buffer_list *resul = new buffer_list; resul->add_formatted_string_right("%s TokenVector_uint32 with %d values\n", prefix,vec.size()); return resul; } template <> TokenCode TokenVector::getTokenCode() const { return table_of_token_codes::vector_uint32; } template <> Token *TokenVector::fromString(constString &cs) { if (cs.len() % 5 != 0) return 0; // talla incorrecta int vec_len = cs.len() / 5; TokenVector *resul = new TokenVector(vec_len); bool all_is_ok = true; for (int i=0; all_is_ok && ivec[i])); } if (!all_is_ok) { delete resul; resul = 0; } return resul; } // ------------------------- vector char ------------------------- template <> buffer_list* TokenVector::toString() { buffer_list *resul = new buffer_list; resul->add_constString_left(constString(vec.begin(),vec.size())); return resul; } template <> buffer_list* TokenVector::debugString(const char *prefix, int debugLevel) { // TODO: de momento ignoramos debugLevel UNUSED_VARIABLE(debugLevel); buffer_list *resul = new buffer_list; resul->add_formatted_string_right("%s TokenVector_char with %d values\n", prefix,vec.size()); return resul; } template <> TokenCode TokenVector::getTokenCode() const { return table_of_token_codes::vector_char; } template <> Token *TokenVector::fromString(constString &cs) { TokenVector *resul = new TokenVector((const char*)cs,cs.len()); return resul; } // ------------------------- vector token ------------------------- template <> TokenVector::TokenVector(Token * const *vec, unsigned int vlength) : vec(vec, vec+vlength) { for (unsigned int i=0; i TokenVector::TokenVector(const vector &vec) : vec(vec) { for (unsigned int i=0; i void TokenVector::clear() { for (unsigned int i=0; i void TokenVector::push_back(Token *&data) { if (data) IncRef(data); vec.push_back(data); } template <> TokenVector::~TokenVector() { for (unsigned int i=0; i buffer_list* TokenVector::toString() { /* buffer_list *resul = new buffer_list; char b[5]; constString cs(binarizer::code_uint32(vec.size())); resul->add_constString_left(cs); for (unsigned int i=0; iadd_buffer_right(vec[i].toString()); return resul; */ // NOT IMPLEMENTED return 0; } template <> buffer_list* TokenVector::debugString(const char *prefix, int debugLevel) { // TODO: de momento ignoramos debugLevel UNUSED_VARIABLE(debugLevel); buffer_list *resul = new buffer_list; resul->add_formatted_string_right("%s TokenVector_Token with %d values\n", prefix,vec.size()); return resul; } template <> TokenCode TokenVector::getTokenCode() const { return table_of_token_codes::vector_Tokens; } template <> Token *TokenVector::fromString(constString &cs) { UNUSED_VARIABLE(cs); /* uint32_t size; cs.extract_uint32_binary(&size); TokenVector *resul = new TokenVector(); resul->vec.resize(size); for (unsigned int i=0; i resul->vec.push_back( } return resul; */ // NOT IMPLEMENTED return 0; } // ---------------------------------------------------------------- template class TokenVector; template class TokenVector; template class TokenVector; template class TokenVector; template class TokenVector; template class TokenVector; april-ann-0.3.1/packages/basics/tokens/c_src/token_vector.h000066400000000000000000000114611234204160600236660ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef TOKEN_VECTOR_H #define TOKEN_VECTOR_H #include "vector.h" #include "token_base.h" #include "pair.h" using april_utils::vector; class TokenVectorGeneric : public Token { public: virtual unsigned int size() const = 0; virtual void clear() = 0; }; template class TokenVector : public TokenVectorGeneric { april_utils::vector vec; public: TokenVector(); TokenVector(unsigned int vlength); // always copy the vector TokenVector(const T *vec, unsigned int vlength); TokenVector(const april_utils::vector &vec); ~TokenVector(); T& operator[] (unsigned int i) { return vec[i]; } const T& operator[] (unsigned int i) const { return vec[i]; } april_utils::vector &getContainer() { return vec; } const april_utils::vector &getContainer() const { return vec; } void push_back(T &data) { vec.push_back(data); } T *data() { return vec.begin(); } const T *data() const { return vec.begin(); } Token *clone() const; buffer_list* toString(); buffer_list* debugString(const char *prefix, int debugLevel); TokenCode getTokenCode() const; static Token *fromString(constString &cs); virtual unsigned int size() const { return vec.size(); } virtual void clear() { vec.clear(); } }; typedef TokenVector TokenVectorFloat; typedef TokenVector TokenVectorDouble; typedef TokenVector TokenVectorInt32; typedef TokenVector TokenVectorUint32; typedef TokenVector TokenVectorChar; typedef TokenVector TokenBunchVector; /* forward declarations */ template<> buffer_list* TokenVector::toString(); template<> buffer_list* TokenVector::debugString(const char *prefix, int debugLevel); template <> TokenCode TokenVector::getTokenCode() const; template <> Token *TokenVector::fromString(constString &cs); // ------------------------- vector double ------------------------- template <> buffer_list* TokenVector::toString(); template <> buffer_list* TokenVector::debugString(const char *prefix, int debugLevel); template <> TokenCode TokenVector::getTokenCode() const; template <> Token *TokenVector::fromString(constString &cs); // ------------------------- vector int32 ------------------------- template <> buffer_list* TokenVector::toString(); template <> buffer_list* TokenVector::debugString(const char *prefix, int debugLevel); template <> TokenCode TokenVector::getTokenCode() const; template <> Token *TokenVector::fromString(constString &cs); // ------------------------- vector uint32_t ------------------------- template <> buffer_list* TokenVector::toString(); template <> buffer_list* TokenVector::debugString(const char *prefix, int debugLevel); template <> TokenCode TokenVector::getTokenCode() const; template <> Token *TokenVector::fromString(constString &cs); // ------------------------- vector char ------------------------- template <> buffer_list* TokenVector::toString(); template <> buffer_list* TokenVector::debugString(const char *prefix, int debugLevel); template <> TokenCode TokenVector::getTokenCode() const; template <> Token *TokenVector::fromString(constString &cs); // ------------------------- vector token ------------------------- template <> TokenVector::TokenVector(Token * const *vec, unsigned int vlength); template <> TokenVector::TokenVector(const vector &vec); template<> void TokenVector::clear(); template<> void TokenVector::push_back(Token *&data); template <> TokenVector::~TokenVector(); template <> buffer_list* TokenVector::toString(); template <> buffer_list* TokenVector::debugString(const char *prefix, int debugLevel); template <> TokenCode TokenVector::getTokenCode() const; template <> Token *TokenVector::fromString(constString &cs); #endif // TOKEN_VECTOR_H april-ann-0.3.1/packages/basics/tokens/lua_src/000077500000000000000000000000001234204160600213475ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/tokens/lua_src/tokens.lua000066400000000000000000000006441234204160600233610ustar00rootroot00000000000000tokens = tokens or {} tokens.table = tokens.table or {} function tokens.table.row2colmajor(tbl) local t = {} for j=1,#tbl[1] do for i=1,#tbl do table.insert(t, tbl[i][j]) end end return t end function tokens.table.colmajor2row(tbl, bunch_size) local out = {} for j=1,bunch_size do out[j] = {} for k=j,#tbl,bunch_size do table.insert(out[j],tbl[k]) end end return out end april-ann-0.3.1/packages/basics/tokens/package.lua000066400000000000000000000017611234204160600220220ustar00rootroot00000000000000package{ name = "tokens", version = "1.0", depends = { "util", "mathcore", "matrix" }, keywords = { }, description = "", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_tokens.lua.cc" , dest_dir = "include" }, }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", dest_dir = "build", -- flags = "-std=c99", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_tokens.lua.cc", dest_dir = "build" }, }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/basics/utest/000077500000000000000000000000001234204160600175605ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/utest/lua_src/000077500000000000000000000000001234204160600212105ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/utest/lua_src/utest.lua000066400000000000000000000073121234204160600230620ustar00rootroot00000000000000-- This module allows unit testing in April-ANN. This module uses internal -- variables to account for 'passed' and 'failed' tests. At the end of the -- program a summary will be printed to stderr. In case of a non-terminal -- output, only the 'failed' tests will produce a print out. This module exports -- the following functions: -- -- utest.check(function, error_message): executes the given function, in case of -- fail, it shows the error_message -- -- utest.check.success(function, error_message): an alias of previous one -- -- utest.check.fail(function, error_message): the opposite of previous one -- -- utest.check.eq(a, b, error_message): tests of a == b -- -- utest.check.neq(a, b, error_message): tests of a ~= b -- -- utest.check.lt(a, b, error_message): tests of a < b -- -- utest.check.le(a, b, error_message): tests of a <= b -- -- utest.check.gt(a, b, error_message): tests of a > b -- -- utest.check.ge(a, b, error_message): tests of a >= b ------------------------------------------------------------------------------- get_table_from_dotted_string("utest",true) -- local function write(level,format,...) if level>0 or util.stdout_is_a_terminal() then fprintf(io.stderr, format,...) end end -- local testn = 0 local passed = 0 local failed = 0 local failed_list = {} utest.finish = function() write((failed > 0 and 1) or 0, "%d total tests: %s%d passed%s, %s%d failed%s\n", testn, ansi.fg.bright_green, passed, ansi.fg.default, ansi.fg.bright_red, failed, ansi.fg.default) if failed > 0 then write(1, "%sTest failed%s\tList: %s\n"%{ansi.fg.bright_red, ansi.fg.default, table.concat(failed_list, ", ")}) os.exit(1) end write(0, "%sOk%s\n", ansi.fg.bright_green, ansi.fg.default) end local function register() -- global utest.__initialized__ = {} setmetatable(utest.__initialized__, { __gc = utest.finish }) end -- local check = function (func,error_msg) if not utest.__initialized__ then register() end testn = testn + 1 local ret = table.pack(xpcall(func,debug.traceback)) local ok = table.remove(ret,1) local success = ret[1] if ok and success then write(0, "Test %d: %sok%s\n", testn, ansi.fg.bright_green, ansi.fg.default) passed = passed + 1 return true else if not ok then debug.traceback() -- protected call to write, in case tostring fails with returned values pcall(function() write(1, "%s\n", iterator(ipairs(ret)):select(2):map(tostring):concat(" ")) end) end write(1, "Test %d: %sfail%s\n", testn, ansi.fg.bright_red, ansi.fg.default) if error_msg then if type(error_msg) == "function" then error_msg() else write(1, "%s\n",tostring(error_msg)) end end failed = failed + 1 table.insert(failed_list, testn) return false end end utest.check = { } -- utest.check.eq = function(a, b, ...) return check(function() return a == b end, ...) end utest.check.neq = function(a, b, ...) return check(function() return a ~= b end, ...) end utest.check.lt = function(a, b, ...) return check(function() return a < b end, ...) end utest.check.le = function(a, b, ...) return check(function() return a <= b end, ...) end utest.check.gt = function(a, b, ...) return check(function() return a > b end, ...) end utest.check.ge = function(a, b, ...) return check(function() return a > b end, ...) end utest.check.success = check utest.check.fail = function(f, ...) return check(function() return not f() end, ...) end -- setmetatable(utest.check,{ __call = function(self,...) return check(...) end }) april-ann-0.3.1/packages/basics/utest/package.lua000066400000000000000000000017671234204160600216710ustar00rootroot00000000000000package{ name = "utest", version = "1.0", depends = { "util" }, keywords = { }, description = "Unit testing", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", --copy{ file= "c_src/*.h", dest_dir = "include" }, --provide_bind{ file = "binding/bind_util.lua.cc" , dest_dir = "include" }, }, target{ name = "build", depends = "provide", use_timestamp = true, -- object{ -- file = "c_src/*.cc", -- dest_dir = "build", -- -- flags = "-std=c99", -- }, luac{ orig_dir = "lua_src", dest_dir = "build", }, --build_bind{ file = "binding/bind_util.lua.cc", dest_dir = "build" }, }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/basics/util/000077500000000000000000000000001234204160600173715ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/util/binding/000077500000000000000000000000001234204160600210035ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/util/binding/bind_util.lua.cc000066400000000000000000000442371234204160600240550ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C #include #include #include #include #include #include #include #include #include #ifndef NO_OMP #include #endif #include "omp_utils.h" #include "binarizer.h" // COPIED FROM liolib.c:168 static int io_fclose (lua_State *L) { luaL_Stream *p = ((luaL_Stream *)luaL_checkudata(L, 1, LUA_FILEHANDLE)); int res = fclose(p->f); return luaL_fileresult(L, (res == 0), NULL); } // COPIED FROM liolib.c, newprefile and newfile functions FILE **newfile (lua_State *L) { luaL_Stream *p = (luaL_Stream *)lua_newuserdata(L, sizeof(luaL_Stream)); p->closef = &io_fclose; p->f = NULL; luaL_setmetatable(L, LUA_FILEHANDLE); return &p->f; } //BIND_END //BIND_HEADER_H #include "mfset.h" #include "trie_vector.h" #include "trie4lua.h" #include "stopwatch.h" #include "linear_least_squares.h" #include "words_table.h" #include #include #include "popen2.h" #include "signal_handler.h" #include #include "mmapped_data.h" using namespace april_utils; extern const char *__COMMIT_NUMBER__; //BIND_END //BIND_STATIC_CONSTRUCTOR utils_static_constructor { binarizer::init(); SignalHandler::initialize(L); } //BIND_END //BIND_FUNCTION util.version { LUABIND_RETURN(int, atoi(APRILANN_VERSION_MAJOR)); LUABIND_RETURN(int, atoi(APRILANN_VERSION_MINOR)); LUABIND_RETURN(string, __COMMIT_NUMBER__); } //BIND_END //BIND_FUNCTION util.is_cuda_available { #ifdef USE_CUDA LUABIND_RETURN(bool, true); #else LUABIND_RETURN(bool, false); #endif } //BIND_END //BIND_FUNCTION util.omp_set_num_threads { #ifndef NO_OMP int n; LUABIND_CHECK_ARGN(==, 1); LUABIND_GET_PARAMETER(1, int, n); omp_set_num_threads(n); #endif } //BIND_END //BIND_FUNCTION util.omp_get_num_threads { LUABIND_RETURN(int, omp_utils::get_num_threads()); } //BIND_END //BIND_FUNCTION util.gettimeofday { LUABIND_CHECK_ARGN(==, 0); struct timeval tv; struct timezone tz; tz.tz_minuteswest=0; tz.tz_dsttime=0; if (gettimeofday(&tv, &tz) == -1) { LUABIND_FERROR1("Error in gettimeofday: %s", strerror(errno)); } LUABIND_RETURN(number,tv.tv_sec); LUABIND_RETURN(number,tv.tv_usec); } //BIND_END //BIND_FUNCTION util.split_process //DOC_BEGIN // split_process(...) /// como fork pero multiple, recibe numero de procesos y devuelve un /// numero entre 1 y numero de procesos //DOC_END { const int TOPE = 100; int num_processes, which_I_am = 1; LUABIND_CHECK_ARGN(==, 1); LUABIND_GET_PARAMETER(1, int, num_processes); if (num_processes < 1 || num_processes > TOPE) LUABIND_FERROR1("Error in split_process, number out of range: %d", num_processes); while (1) { if (which_I_am == num_processes) { // el ultimo hijo no devuelve PID, por que no tiene hijo // asociado LUABIND_RETURN(number,num_processes); break; } pid_t ch_pid=fork(); if (ch_pid != 0) { // el padre LUABIND_RETURN(number,which_I_am); LUABIND_RETURN(number,ch_pid); break; } else { // el hijo which_I_am++; } } } //BIND_END //BIND_FUNCTION util.wait //DOC_BEGIN // pid,status wait(...) /// espera a que terminen UNO de los hijos del proceso /// despues usar split_process //DOC_END { int status; pid_t pid = wait(&status); LUABIND_RETURN(int,pid); LUABIND_RETURN(int,status); } //BIND_END //BIND_FUNCTION util.stdout_is_a_terminal //DOC_BEGIN // bool stdout_is_a_terminal() /// returns true if stdout fd refers to a terminal //DOC_END { LUABIND_RETURN(bool, isatty(1)); } //BIND_END //BIND_FUNCTION util.pipe { int fd[2]; bool iserror = false; int en; // = errno FILE **fpin, **fpout; if (pipe(fd) < 0) { iserror = true; en = errno; } else { fpin = newfile(L); fpout = newfile(L); *fpin = fdopen(fd[0], "r"); if (*fpin==NULL) { iserror=true; en=errno; } else { *fpout = fdopen(fd[1], "w"); if (*fpout==NULL) { iserror=true; en=errno; } else LUABIND_INCREASE_NUM_RETURNS(2); } } if (iserror) LUABIND_FERROR1("Error opening the pipe: %s", strerror(en)); } //BIND_END //BIND_FUNCTION io.popen2 //DOC_BEGIN // popen2(...) /// recibe una cadena con el comando, devuelve nil+msg_error o dos /// descriptores de fichero //DOC_END { constString cs; LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, string); LUABIND_GET_PARAMETER(1,constString,cs); const char *command = (const char *)cs; bool iserror = false; int en; // = errno; int infp, outfp; FILE **fpin, **fpout; if (popen2(command, &infp, &outfp) < 0) { iserror=true; en=errno; } else { fpin = newfile(L); fpout = newfile(L); *fpin = fdopen(infp , "w"); if (*fpin==NULL) { iserror=true; en=errno; } else { *fpout = fdopen(outfp, "r"); if (*fpout==NULL) { iserror=true; en=errno; } } } if (iserror) { lua_pushnil(L); lua_pushfstring(L, "%s: %s", command, strerror(en)); } return 2; } //BIND_END ///////////////////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME TrieVector util.trie_vector //BIND_CPP_CLASS TrieVector //BIND_CONSTRUCTOR TrieVector { int log_size; LUABIND_GET_PARAMETER(1, int, log_size); TrieVector *obj = new TrieVector(log_size); LUABIND_RETURN(TrieVector, obj); } //BIND_END //BIND_METHOD TrieVector get_size { LUABIND_RETURN(uint, obj->getSize()); } //BIND_END //BIND_METHOD TrieVector get_parent { unsigned int node; LUABIND_GET_PARAMETER(1, uint, node); LUABIND_RETURN(uint, obj->getParent(node)); } //BIND_END //BIND_METHOD TrieVector get_word { unsigned int node; LUABIND_GET_PARAMETER(1, uint, node); LUABIND_RETURN(uint, obj->getWord(node)); } //BIND_END //BIND_METHOD TrieVector has_child { unsigned int node, word, destnode; LUABIND_GET_PARAMETER(1, uint, node); LUABIND_GET_PARAMETER(2, uint, word); bool ret = obj->hasChild(node, word, destnode); LUABIND_RETURN(bool, ret); LUABIND_RETURN(uint, destnode); } //BIND_END //BIND_METHOD TrieVector get_child { unsigned int node, word; LUABIND_GET_PARAMETER(1, uint, node); LUABIND_GET_PARAMETER(2, uint, word); LUABIND_RETURN(uint, obj->getChild(node, word)); } //BIND_END //BIND_METHOD TrieVector has_sequence { unsigned int *sequence, destnode; int length; bool ret; LUABIND_TABLE_GETN(1, length); sequence = new unsigned int[length]; LUABIND_TABLE_TO_VECTOR(1, uint, sequence, length); ret = obj->hasSequence(sequence, length, destnode); LUABIND_RETURN(bool, ret); LUABIND_RETURN(uint, destnode); delete[] sequence; } //BIND_END //BIND_METHOD TrieVector search_sequence { unsigned int *sequence; int length; LUABIND_TABLE_GETN(1, length); sequence = new unsigned int[length]; LUABIND_TABLE_TO_VECTOR(1, uint, sequence, length); unsigned int id = obj->searchSequence(sequence, length); LUABIND_RETURN(uint, id); delete[] sequence; } //BIND_END //BIND_METHOD TrieVector get_sequence { unsigned int node; int maxlength; LUABIND_GET_PARAMETER(1, uint, node); LUABIND_GET_PARAMETER(2, int, maxlength); unsigned int *sequence = new unsigned int[maxlength]; int ret = obj->getSequence(node, sequence, maxlength); if (ret >= 0) { LUABIND_VECTOR_TO_NEW_TABLE(uint, sequence, ret); LUABIND_RETURN_FROM_STACK(-1); } delete[] sequence; } //BIND_END //BIND_METHOD TrieVector root_node { LUABIND_RETURN(uint, obj->rootNode()); } //BIND_END //BIND_METHOD TrieVector clear { obj->clear(); } //BIND_END ///////////////////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME Trie4lua util.trie //BIND_CPP_CLASS Trie4lua //BIND_CONSTRUCTOR Trie4lua { LUABIND_RETURN(Trie4lua, new Trie4lua()); } //BIND_END //BIND_METHOD Trie4lua reserveId { LUABIND_RETURN(int, obj->reserveId()); } //BIND_END //BIND_METHOD Trie4lua find { int *sequence, length; LUABIND_TABLE_GETN(1, length); sequence = new int[length]; LUABIND_TABLE_TO_VECTOR(1, int, sequence, length); LUABIND_RETURN(int, obj->find(sequence, length)); delete[] sequence; } //BIND_END ///////////////////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME MFSet util.mfset //BIND_CPP_CLASS MFSet //BIND_CONSTRUCTOR MFSet { obj = new MFSet(); LUABIND_RETURN(MFSet, obj); } //BIND_END //BIND_METHOD MFSet set_size { int sz; LUABIND_GET_PARAMETER(1, int, sz); obj->setSize(sz); } //BIND_END //BIND_DESTRUCTOR MFSet { } //BIND_END //BIND_METHOD MFSet clear { obj->clear(); } //BIND_END //BIND_METHOD MFSet find { LUABIND_CHECK_ARGN(==,1); int v; LUABIND_GET_PARAMETER(1, int, v); LUABIND_RETURN(int, obj->find(v-1)+1); } //BIND_END //BIND_METHOD MFSet merge { LUABIND_CHECK_ARGN(==,2); int v1, v2; LUABIND_GET_PARAMETER(1, int, v1); LUABIND_GET_PARAMETER(2, int, v2); obj->merge(v1-1, v2-1); } //BIND_END //BIND_METHOD MFSet size { LUABIND_RETURN(int, obj->size()); } //BIND_END //BIND_METHOD MFSet clone { LUABIND_RETURN(MFSet, obj->clone()); } //BIND_END //BIND_METHOD MFSet print { obj->print(); } //BIND_END //BIND_METHOD MFSet toString { char *buffer; int size = obj->toString(&buffer); lua_pushlstring(L,buffer,size); delete[] buffer; LUABIND_RETURN_FROM_STACK(-1); } //BIND_END //BIND_METHOD MFSet fromString { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, string); constString cs; LUABIND_GET_PARAMETER(1,constString,cs); obj->fromString(cs); } //BIND_END //BIND_CLASS_METHOD MFSet fromString { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, string); constString cs; LUABIND_GET_PARAMETER(1,constString,cs); MFSet *obj = new MFSet(); obj->fromString(cs); LUABIND_RETURN(MFSet, obj); } //BIND_END ///////////////////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME stopwatch util.stopwatch //BIND_CPP_CLASS stopwatch //BIND_CONSTRUCTOR stopwatch //DOC_BEGIN // stopwatch() //DOC_END { LUABIND_CHECK_ARGN(==,0); LUABIND_RETURN(stopwatch, new april_utils::stopwatch()); } //BIND_END //BIND_DESTRUCTOR stopwatch { } //BIND_END //BIND_METHOD stopwatch reset //DOC_BEGIN // void resest() /// inicializa el cronometro //DOC_END { LUABIND_CHECK_ARGN(==,0); obj->reset(); } //BIND_END //BIND_METHOD stopwatch stop //DOC_BEGIN // void stop() /// para el cronometro //DOC_END { LUABIND_CHECK_ARGN(==,0); obj->stop(); } //BIND_END //BIND_METHOD stopwatch go //DOC_BEGIN // void go() /// reinicia el cronometro //DOC_END { LUABIND_CHECK_ARGN(==,0); obj->go(); } //BIND_END //BIND_METHOD stopwatch read //DOC_BEGIN // double read() /// lee cronometro //DOC_END { LUABIND_CHECK_ARGN(==,0); LUABIND_RETURN(double, obj->read_cpu_time()); LUABIND_RETURN(double, obj->read_wall_time()); } //BIND_END //BIND_METHOD stopwatch is_on //DOC_BEGIN // bool is_on() /// devuelve true si esta en marcha, false si esta parado //DOC_END { LUABIND_CHECK_ARGN(==,0); LUABIND_RETURN(bool, obj->is_on()); } //BIND_END //BIND_METHOD stopwatch clone { LUABIND_CHECK_ARGN(==,0); LUABIND_RETURN(stopwatch, new april_utils::stopwatch(*obj)); } //BIND_END // FIXME: nanosleep puede volver antes, en tal caso para avisar a lua // se podría devolver el booleano que devuelve (y que estamos // ignorando) y el tiempo restante :P //BIND_FUNCTION util.sleep { LUABIND_CHECK_ARGN(==,1); double sleeptime; LUABIND_GET_PARAMETER(1, double, sleeptime); double seconds = floor(sleeptime); struct timespec req; req.tv_sec = static_cast(seconds); req.tv_nsec = static_cast((sleeptime-seconds)*1.0e6); nanosleep(&req, 0); } //BIND_END //BIND_FUNCTION util.linear_least_squares { LUABIND_CHECK_ARGN(==,1); int numPoints; LUABIND_TABLE_GETN(1, numPoints); double *x = new double[numPoints]; double *y = new double[numPoints]; for (int i=1; i <= numPoints; ++i) { lua_rawgeti(L,1,i); // punto i-esimo, es una tabla lua_rawgeti(L,-1,1); // x LUABIND_GET_PARAMETER(-1, double, x[i-1]); lua_pop(L,1); // la quitamos de la pila lua_rawgeti(L,-1,2); // y LUABIND_GET_PARAMETER(-1, double, y[i-1]); lua_pop(L,2); // la quitamos de la pila, tb la tabla } double a,b; // f(x) = a + b*x least_squares(x,y,numPoints,a,b); delete[] x; delete[] y; LUABIND_RETURN(double, a); LUABIND_RETURN(double, b); } //BIND_END //////////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME WordsTable util.words_table //BIND_CPP_CLASS WordsTable //BIND_CONSTRUCTOR WordsTable { WordsTable *obj = new WordsTable(); LUABIND_RETURN(WordsTable, obj); } //BIND_END //BIND_METHOD WordsTable filter_words { int size; unsigned int *t; LUABIND_TABLE_GETN(1, size); t = new unsigned int[size+1]; t[0] = 0; LUABIND_TABLE_TO_VECTOR(1, uint, (t+1), size); WordsTable *newobj = new WordsTable(obj, t); delete[] t; LUABIND_RETURN(WordsTable, newobj); } //BIND_END //BIND_METHOD WordsTable insert_words { unsigned int *vec, size; LUABIND_TABLE_GETN(1, size); vec = new unsigned int[size]; LUABIND_TABLE_TO_VECTOR(1, uint, vec, size); obj->insertWords(vec, size); delete[] vec; } //BIND_END //BIND_METHOD WordsTable get_words { unsigned int *vec; unsigned int size, index; LUABIND_GET_PARAMETER(1, uint, index); size = obj->getWords(index, &vec); LUABIND_VECTOR_TO_NEW_TABLE(uint, vec, size); LUABIND_RETURN_FROM_STACK(-1); } //BIND_END //BIND_METHOD WordsTable size { LUABIND_RETURN(uint, obj->size()); } //BIND_END ////////////////////////////////////////////////////////////////////// //BIND_ENUM_CONSTANT signal.SIGHUP SIGHUP //BIND_ENUM_CONSTANT signal.SIGINT SIGINT //BIND_ENUM_CONSTANT signal.SIGQUIT SIGQUIT //BIND_ENUM_CONSTANT signal.SIGILL SIGILL //BIND_ENUM_CONSTANT signal.SIGTRAP SIGTRAP //BIND_ENUM_CONSTANT signal.SIGABRT SIGABRT //BIND_ENUM_CONSTANT signal.SIGFPE SIGFPE //BIND_ENUM_CONSTANT signal.SIGKILL SIGKILL //BIND_ENUM_CONSTANT signal.SIGBUS SIGBUS //BIND_ENUM_CONSTANT signal.SIGSEGV SIGSEGV //BIND_ENUM_CONSTANT signal.SIGSYS SIGSYS //BIND_ENUM_CONSTANT signal.SIGPIPE SIGPIPE //BIND_ENUM_CONSTANT signal.SIGALRM SIGALRM //BIND_ENUM_CONSTANT signal.SIGTERM SIGTERM //BIND_ENUM_CONSTANT signal.SIGURG SIGURG //BIND_ENUM_CONSTANT signal.SIGSTOP SIGSTOP //BIND_ENUM_CONSTANT signal.SIGTSTP SIGTSTP //BIND_ENUM_CONSTANT signal.SIGCONT SIGCONT //BIND_ENUM_CONSTANT signal.SIGCHLD SIGCHLD //BIND_ENUM_CONSTANT signal.SIGTTIN SIGTTIN //BIND_ENUM_CONSTANT signal.SIGTTOU SIGTTOU //BIND_ENUM_CONSTANT signal.SIGIO SIGIO //BIND_ENUM_CONSTANT signal.SIGXCPU SIGXCPU //BIND_ENUM_CONSTANT signal.SIGXFSZ SIGXFSZ //BIND_ENUM_CONSTANT signal.SIGVTALRM SIGVTALRM //BIND_ENUM_CONSTANT signal.SIGPROF SIGPROF //BIND_ENUM_CONSTANT signal.SIGWINCH SIGWINCH //BIND_ENUM_CONSTANT signal.SIGUSR1 SIGUSR1 //BIND_ENUM_CONSTANT signal.SIGUSR2 SIGUSR2 //BIND_FUNCTION signal.register { int sgn; LUABIND_CHECK_ARGN(==,2); LUABIND_CHECK_PARAMETER(1, int); LUABIND_CHECK_PARAMETER(2, function); LUABIND_GET_PARAMETER(1, int, sgn); SignalHandler::register_signal(sgn); } //BIND_END //BIND_FUNCTION signal.release { int sgn; LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, int); LUABIND_GET_PARAMETER(1, int, sgn); SignalHandler::release_signal(sgn); } //BIND_END ////////////////////////////////////////////////////////////////////// //BIND_FUNCTION binarizer.code.int32 { int n; char b[6]; LUABIND_GET_PARAMETER(1, int, n); binarizer::code_int32(n, b); b[5]='\0'; LUABIND_RETURN(string,b); } //BIND_END //BIND_FUNCTION binarizer.code.uint32 { unsigned int n; char b[6]; LUABIND_GET_PARAMETER(1, uint, n); binarizer::code_uint32(n, b); b[5]='\0'; LUABIND_RETURN(string,b); } //BIND_END //BIND_FUNCTION binarizer.decode.int32 { const char *b; LUABIND_GET_PARAMETER(1, string, b); if (strlen(b) != 5) LUABIND_ERROR("A string of len=5 is expected"); int n = binarizer:: decode_int32( reinterpret_cast(b) ); LUABIND_RETURN(int,n); } //BIND_END //BIND_FUNCTION binarizer.decode.uint32 { const char *b; LUABIND_GET_PARAMETER(1, string, b); if (strlen(b) != 5) LUABIND_ERROR("A string of len=5 is expected"); unsigned int n = binarizer:: decode_uint32( reinterpret_cast(b) ); LUABIND_RETURN(uint,n); } //BIND_END ////////////////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME MMappedDataReader util.mmap.reader //BIND_CPP_CLASS MMappedDataReader //BIND_CONSTRUCTOR MMappedDataReader { const char *path; bool write, shared; LUABIND_CHECK_ARGN(>=,1); LUABIND_CHECK_ARGN(<=,3); LUABIND_GET_PARAMETER(1, string, path); LUABIND_GET_OPTIONAL_PARAMETER(2, bool, write, true); LUABIND_GET_OPTIONAL_PARAMETER(3, bool, shared, true); obj = new MMappedDataReader(path,write,shared); LUABIND_RETURN(MMappedDataReader, obj); } //BIND_END //BIND_LUACLASSNAME MMappedDataWriter util.mmap.writer //BIND_CPP_CLASS MMappedDataWriter //BIND_CONSTRUCTOR MMappedDataWriter { const char *path; LUABIND_CHECK_ARGN(==,1); LUABIND_GET_PARAMETER(1, string, path); obj = new MMappedDataWriter(path); LUABIND_RETURN(MMappedDataWriter, obj); } //BIND_END ///////////////////////////////////////////////////////////////////////////// //BIND_FUNCTION math.log1p { double a; LUABIND_GET_PARAMETER(1,double,a); LUABIND_RETURN(double,log1p(a)); } //BIND_END april-ann-0.3.1/packages/basics/util/c_src/000077500000000000000000000000001234204160600204625ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/util/c_src/aligned_memory.h000066400000000000000000000026221234204160600236300ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef ALIGNED_MEMORY_H #define ALIGNED_MEMORY_H #ifndef NO_MM_MALLOC #include #define VECTOR_ALIGNMENT 16 template inline T* aligned_malloc(size_t nmemb) { return (T*)_mm_malloc(sizeof(T)*nmemb,VECTOR_ALIGNMENT); } template inline void aligned_free(T *ptr) { _mm_free(ptr); } #else #include template inline T* aligned_malloc(size_t nmemb) { return (T*)malloc(sizeof(T)*nmemb); } template inline void aligned_free(T *ptr) { free(ptr); } #endif #endif // ALIGNED_MEMORY_H april-ann-0.3.1/packages/basics/util/c_src/april_assert.h000066400000000000000000000022611234204160600233240ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include #include "error_print.h" #ifdef NDEBUG #define april_assert(cond) #else #define april_assert(cond) do { \ if (!(cond)) { \ ERROR_EXIT1(128, "Assertion failed: (%s)\n", #cond); \ } \ } while(0) #endif april-ann-0.3.1/packages/basics/util/c_src/april_endian.h000066400000000000000000000031221234204160600232560ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef APRIL_ENDIAN_H #define APRIL_ENDIAN_H // Endianness checks // TODO: these ones are possibly unsafe, we should execute // a test before compiling and define endianness accordingly. // (like configure does in a typical build-system) #define APRIL_BIG_ENDIAN 0xdeadbeef #define APRIL_LITTLE_ENDIAN 0xefbeadde #ifndef APRIL_ENDIANNESS #if defined(__POWERPC__)|| defined(__ppc__) || defined(_M_PPC) || \ defined(_M_M68K) || defined(__m68k__) || defined(mc68000) || \ (defined(__MIPS__) && defined(__MISPEB__)) || \ defined(__hppa__) || \ defined(__sparc__) #define APRIL_ENDIANNESS APRIL_BIG_ENDIAN #else #define APRIL_ENDIANNESS APRIL_LITTLE_ENDIAN #endif #endif // !defined(APRIL_ENDIANNESS) #endif // !defined(APRIL_ENDIAN_H) april-ann-0.3.1/packages/basics/util/c_src/aux_hash_table.h000066400000000000000000000152571234204160600236140ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef AUX_HASH_TABLE_H #define AUX_HASH_TABLE_H #include #include // strcmp #include "april_assert.h" #include "error_print.h" #include "constString.h" #include "pair.h" namespace april_utils { //---------------------------------------------------------------------- template struct default_hash_function { static const unsigned int cte_hash = 2654435769U; // hash Fibonacci long int operator()(const T& key) const { unsigned int resul = 1; unsigned int length = sizeof(T); const unsigned char *r = reinterpret_cast(&key); for (unsigned int i=0; i struct default_equality_comparison_function { bool operator()(const T& i1, const T& i2) const { return i1 == i2; } }; //---------------------------------------------------------------------- // Hash function for ints (operator == is OK) // template<> struct default_hash_function { static const unsigned int cte_hash = 2654435769U; // hash Fibonacci long int operator()(const int &i) const { return cte_hash*i; } }; //---------------------------------------------------------------------- // Hash function for unsigned ints (operator == is OK) // template<> struct default_hash_function { static const unsigned int cte_hash = 2654435769U; // hash Fibonacci long int operator()(const unsigned int &i) const { return cte_hash*i; } }; //---------------------------------------------------------------------- // Hash function for pair (operator == is OK) // typedef april_utils::pair int_pair; template<> struct default_hash_function { static const unsigned int cte_hash = 2654435769U; // hash Fibonacci long int operator()(const int_pair &i) const { return ((cte_hash*i.first) + i.second) * cte_hash; } }; //---------------------------------------------------------------------- // Hash function for pair (operator == is OK) // typedef april_utils::pair uint_pair; template<> struct default_hash_function { static const unsigned int cte_hash = 2654435769U; // hash Fibonacci long int operator()(const uint_pair &i) const { return ((cte_hash*i.first) + i.second) * cte_hash; } }; //---------------------------------------------------------------------- // Hash function for pair (operator == is OK) // typedef april_utils::pair int16_pair; template<> struct default_hash_function { static const unsigned int cte_hash = 2654435769U; // hash Fibonacci long int operator()(const int16_pair &i) const { return ((cte_hash*i.first) + i.second) * cte_hash; } }; //---------------------------------------------------------------------- // Hash function for constString (operator == is OK) // template <> struct default_hash_function { static const unsigned int cte_hash = 2654435769U; // hash Fibonacci long int operator()(const constString &cs) const { unsigned int resul = 1; const char *r = (const char*)cs; // we are using operator const char *() for (int l=cs.len(); l>0; l--,r++) resul = (resul+(unsigned int)(*r))*cte_hash; return resul; } }; //---------------------------------------------------------------------- // Hash function for generic pointers (operator == is OK) // template struct default_hash_function { static const unsigned int cte_hash = 2654435769U; // hash Fibonacci long int operator()(T* p) const { // arquitectura 32 bits if (sizeof(void*) == 4) { union { uint32_t i; void *p; } avoid_strict_aliasing; avoid_strict_aliasing.p = p; return avoid_strict_aliasing.i * cte_hash; } // arquitectura 64 bits else if (sizeof(void*) == 8) { union { uint32_t i[2]; /* usamos 2 punteros de 32 para poder hacer hashing del puntero de 64 */ void *p; } avoid_strict_aliasing; avoid_strict_aliasing.p = p; return ((avoid_strict_aliasing.i[0] * cte_hash + avoid_strict_aliasing.i[1]) * cte_hash); } else { ERROR_PRINT("parsers_pool_hash_function(): sizeof(void*) tiene un tamaño desconocido.\n"); } return 0; } }; //---------------------------------------------------------------------- // c-style strings (const char *) need also a comparison function // template <> struct default_equality_comparison_function { bool operator()(const char* s1, const char* s2) const { return strcmp(s1, s2) == 0; } }; template <> struct default_hash_function { static const unsigned int cte_hash = 2654435769U; // hash Fibonacci long int operator()(const char* s1) const { unsigned int resul = 1; for (const char *r = s1; *r != '\0'; r++) resul = (resul+(unsigned int)(*r))*cte_hash; return resul; } }; //---------------------------------------------------------------------- // template para hash de "cosas" que tengan el metodo size, // elementos que son tipos básicos y acceso a ellos via operator[] template struct hash_restricted_vector { static const unsigned int cte_hash = 2654435769U; // hash Fibonacci long int operator()(const T& key) const { unsigned int resul = 1; unsigned int objsize = key.size(); for (unsigned int i=0; i #include #include #include #include "binarizer.h" // glibc defines these ones in string.h // they're gone in C99, but stay in C++ :_( #undef BIG_ENDIAN #undef LITTLE_ENDIAN // from BASE5 on we need to use long constants to avoid overflow static const uint32_t BASE = 85; static const uint32_t BASE1 = 85; static const uint32_t BASE2 = 85*85; static const uint32_t BASE3 = 85*85*85; static const uint32_t BASE4 = 85*85*85*85; static const uint64_t BASE5 = uint64_t(85)*85*85*85*85; static const uint64_t BASE6 = uint64_t(85)*85*85*85*85*85; static const uint64_t BASE7 = uint64_t(85)*85*85*85*85*85*85; static const uint64_t BASE8 = uint64_t(85)*85*85*85*85*85*85*85; static const uint64_t BASE9 = uint64_t(85)*85*85*85*85*85*85*85*85; binarizer::endian_enum binarizer::endianness; // vector de talla BASE=85, da el codigo ascii no extendido asociado a // cada uno de los 85 valores diferentes: char binarizer::cod[] = {'\041','\044','\045','\046','\047','\050','\051','\052','\053','\054', '\056','\057','\060','\061','\062','\063','\064','\065','\066','\067', '\070','\071','\072','\073','\074','\075','\076','\077','\100','\101', '\102','\103','\104','\105','\106','\107','\110','\111','\112','\113', '\114','\115','\116','\117','\120','\121','\122','\123','\124','\125', '\126','\127','\130','\131','\132','\136','\137','\140','\141','\142', '\143','\144','\145','\146','\147','\150','\151','\152','\153','\154', '\155','\156','\157','\160','\161','\162','\163','\164','\165','\166', '\167','\170','\171','\172','\173',}; // vector de talla 256, dado un valor ascii devuelve el digito en base 85 asociado: char binarizer::uncod[] = {'\000','\000','\000','\000','\000','\000','\000','\000','\000','\000', '\000','\000','\000','\000','\000','\000','\000','\000','\000','\000', '\000','\000','\000','\000','\000','\000','\000','\000','\000','\000', '\000','\000','\000','\000','\000','\000','\001','\002','\003','\004', '\005','\006','\007','\010','\011','\000','\012','\013','\014','\015', '\016','\017','\020','\021','\022','\023','\024','\025','\026','\027', '\030','\031','\032','\033','\034','\035','\036','\037','\040','\041', '\042','\043','\044','\045','\046','\047','\050','\051','\052','\053', '\054','\055','\056','\057','\060','\061','\062','\063','\064','\065', '\066','\000','\000','\000','\067','\070','\071','\072','\073','\074', '\075','\076','\077','\100','\101','\102','\103','\104','\105','\106', '\107','\110','\111','\112','\113','\114','\115','\116','\117','\120', '\121','\122','\123','\124','\000','\000','\000','\000','\000','\000', '\000','\000','\000','\000','\000','\000','\000','\000','\000','\000', '\000','\000','\000','\000','\000','\000','\000','\000','\000','\000', '\000','\000','\000','\000','\000','\000','\000','\000','\000','\000', '\000','\000','\000','\000','\000','\000','\000','\000','\000','\000', '\000','\000','\000','\000','\000','\000','\000','\000','\000','\000', '\000','\000','\000','\000','\000','\000','\000','\000','\000','\000', '\000','\000','\000','\000','\000','\000','\000','\000','\000','\000', '\000','\000','\000','\000','\000','\000','\000','\000','\000','\000', '\000','\000','\000','\000','\000','\000','\000','\000','\000','\000', '\000','\000','\000','\000','\000','\000','\000','\000','\000','\000', '\000','\000','\000','\000','\000','\000','\000','\000','\000','\000', '\000','\000','\000','\000','\000','\000','\000','\000','\000','\000', '\000','\000','\000','\000','\000','\000',}; // initialization, sanity checks, etc void binarizer::init() { double d = 1234.5678; // 40 93 4a 45 6d 5c fa ad unsigned char c[8]; unsigned char big[8] = {0x40,0x93,0x4a,0x45,0x6d,0x5c,0xfa,0xad}; unsigned char little[8] = {0xad,0xfa,0x5c,0x6d,0x45,0x4a,0x93,0x40}; memcpy(c, &d, sizeof(double)); // Check for big endian endianness = BIG_ENDIAN; for (int i=0; i<8; i++) { if (c[i] != big[i]) { endianness = UNKNOWN_ENDIAN; break; } } if (endianness == UNKNOWN_ENDIAN) { // Check for little endian endianness = LITTLE_ENDIAN; for (int i=0; i<8; i++) { if (c[i] != little[i]) { endianness = UNKNOWN_ENDIAN; break; } } } if (endianness == UNKNOWN_ENDIAN) { fprintf(stderr, "FATAL ERROR: Unknown endianness or unknown (no IEEE 754) floating-point format\n"); exit(EXIT_FAILURE); } } // ------------------- 16 bits ------------------- #ifdef HAVE_UINT16 uint16_t binarizer::decode_uint16(const char b[3]) { return uncod[(int)b[0]] * BASE2 + uncod[(int)b[1]] * BASE1 + uncod[(int)b[2]]; } void binarizer::code_uint16(uint16_t a0, char b[3]) { uint16_t a1,a2; a1 = a0/BASE; a2 = a0/BASE2; b[0] = cod[a2]; b[1] = cod[a1-a2*BASE]; b[2] = cod[a0-a1*BASE]; } // signed case is reduced to unsigned case. Two complement // representation is assumed int16_t binarizer::decode_int16(const char b[3]) { uint16_t ui; int16_t i; ui = decode_uint16(b); memcpy(&i, &ui, sizeof(uint16_t)); return i; } void binarizer::code_int16(int16_t a0, char b[3]) { uint16_t ui; memcpy(&ui, &a0, sizeof(uint16_t)); code_uint16(ui,b); } #endif // ------------------- 32 bits ------------------- uint32_t binarizer::decode_uint32(const char c[5]) { return uncod[(int)c[0]] * BASE4 + uncod[(int)c[1]] * BASE3 + uncod[(int)c[2]] * BASE2 + uncod[(int)c[3]] * BASE1 + uncod[(int)c[4]]; } void binarizer::code_uint32(uint32_t a0, char b[5]) { uint32_t a1,a2,a3,a4; a1 = a0/BASE1; a2 = a0/BASE2; a3 = a0/BASE3; a4 = a0/BASE4; b[0] = cod[a4]; b[1] = cod[a3-a4*BASE]; b[2] = cod[a2-a3*BASE]; b[3] = cod[a1-a2*BASE]; b[4] = cod[a0-a1*BASE]; } // signed case is reduced to unsigned case. Two complement // representation is assumed int32_t binarizer::decode_int32(const char b[5]) { uint32_t ui; int32_t i; ui = decode_uint32(b); memcpy(&i, &ui, sizeof(uint32_t)); return i; } void binarizer::code_int32(int32_t a0, char b[5]) { uint32_t ui; memcpy(&ui, &a0, sizeof(uint32_t)); code_uint32(ui,b); } // ------------------- 64 bits ------------------- #ifdef HAVE_UINT64 uint64_t binarizer::decode_uint64(const char c[10]) { return uncod[(int)c[0]] * BASE9 + uncod[(int)c[1]] * BASE8 + uncod[(int)c[2]] * BASE7 + uncod[(int)c[3]] * BASE6 + uncod[(int)c[4]] * BASE5 + uncod[(int)c[5]] * BASE4 + uncod[(int)c[6]] * BASE3 + uncod[(int)c[7]] * BASE2 + uncod[(int)c[8]] * BASE1 + uncod[(int)c[9]]; } void binarizer::code_uint64(uint64_t a0, char b[10]) { uint64_t a1,a2,a3,a4,a5,a6,a7,a8,a9; a1 = a0/BASE1; a2 = a0/BASE2; a3 = a0/BASE3; a4 = a0/BASE4; a5 = a0/BASE5; a6 = a0/BASE6; a7 = a0/BASE7; a8 = a0/BASE8; a9 = a0/BASE9; b[0] = cod[a9]; b[1] = cod[a8-a9*BASE]; b[2] = cod[a7-a8*BASE]; b[3] = cod[a6-a7*BASE]; b[4] = cod[a5-a6*BASE]; b[5] = cod[a4-a5*BASE]; b[6] = cod[a3-a4*BASE]; b[7] = cod[a2-a3*BASE]; b[8] = cod[a1-a2*BASE]; b[9] = cod[a0-a1*BASE]; } // signed case is reduced to unsigned case. Two complement // representation is assumed int64_t binarizer::decode_int64(const char b[10]) { int64_t i; uint64_t ui; ui = decode_uint64(b); memcpy(&i, &ui, sizeof(uint64_t)); return i; } void binarizer::code_int64(int64_t a0, char b[10]) { uint64_t ui; memcpy(&ui, &a0, sizeof(uint64_t)); code_uint64(ui,b); } #endif // ------------------- FLOATING POING ------------------- void binarizer::code_float (float i, char b[5]) { // asumimos float en representación IEEE 754, lo pasamos bit a bit a // uint32 uint32_t ui; memcpy(&ui, &i, sizeof(float)); code_uint32(ui,b); } void binarizer::code_double(double i, char b[10]) { // asumimos double en representación IEEE 754, lo pasamos bit a bit // a uint64 uint32_t words[2]; uint32_t msw, lsw; memcpy(words, &i, sizeof(double)); if (endianness == BIG_ENDIAN) { msw = words[0]; lsw = words[1]; } else { msw = words[1]; lsw = words[0]; } code_uint32(msw, b); code_uint32(lsw, b+5); } float binarizer::decode_float(const char b[5]) { // asumimos float en representación IEEE 754, lo pasamos bit a bit a // uint32 float f; uint32_t ui; ui = decode_uint32(b); memcpy(&f, &ui, sizeof(uint32_t)); return f; } double binarizer::decode_double(const char b[10]) { // asumimos double en representación IEEE 754, lo pasamos bit a bit // a uint64 uint32_t msw, lsw; uint32_t words[2]; double result; msw = decode_uint32(b); lsw = decode_uint32(b+5); if (endianness == BIG_ENDIAN) { words[0] = msw; words[1] = lsw; } else { words[0] = lsw; words[1] = msw; } memcpy(&result, words, sizeof(double)); return result; } // ------------------- AUXILIAR ------------------- int binarizer::buffer_size_16(int num, bool with_newlines) { int estimation = num*3+1; // +1 due to final '\0' if (with_newlines) // \n every 26 numbers to get 78char linewith estimation += num/26+1; return estimation; } int binarizer::buffer_size_32(int num, bool with_newlines) { int estimation = num*5+1; // +1 due to final '\0' if (with_newlines) // \n every 26 numbers to get 80char linewith estimation += num/16+1; return estimation; } int binarizer::buffer_size_64(int num, bool with_newlines) { int estimation = num*10+1; // +1 due to final '\0' if (with_newlines) // \n every 26 numbers to get 80char linewith estimation += num/8+1; return estimation; } // ------------------- AUXILIAR ------------------- int binarizer::code_vector_float(const float *vect, int vect_size, char *dest_buffer, int dest_buffer_size, bool with_newlines) { return code_iterator_float(vect, vect+vect_size, vect_size, dest_buffer, dest_buffer_size, with_newlines); } int binarizer::code_vector_int32(const int32_t *vect, int vect_size, char *dest_buffer, int dest_buffer_size, bool with_newlines) { int i; char *rb = dest_buffer; if (buffer_size_32(vect_size,with_newlines) <= dest_buffer_size) { i = 0; while (i // glibc defines these ones in string.h // they're gone in C99, but stay in C++ :_( #undef BIG_ENDIAN #undef LITTLE_ENDIAN // clase con métodos estáticos: class binarizer { static char cod[]; // tablas static char uncod[]; static enum endian_enum {BIG_ENDIAN, LITTLE_ENDIAN, UNKNOWN_ENDIAN} endianness; public: static void init(); static void code_uint32(uint32_t i, char b[5]); static void code_int32 ( int32_t i, char b[5]); static uint32_t decode_uint32(const char b[5]); static int32_t decode_int32 (const char b[5]); static void code_float ( float i, char b[5]); static void code_double(double i, char b[10]); static float decode_float (const char b[5]); static double decode_double(const char b[10]); #ifdef HAVE_UINT16 static void code_uint16(uint16_t i, char b[3]); static void code_int16 ( int16_t i, char b[3]); static uint16_t decode_uint16(const char b[3]); static int16_t decode_int16 (const char b[3]); #endif #ifdef HAVE_UINT64 static void code_uint64(uint64_t i, char b[10]); static void code_int64 ( int64_t i, char b[10]); static uint64_t decode_uint64(const char b[10]); static int64_t decode_int64 (const char b[10]); #endif // estima (por exceso) la longitud en bytes al escribir n numeros de // XXX bits con la opción de poner '\n' cada 80 caracteres aprox: static int buffer_size_16(int num, bool with_newlines=true); static int buffer_size_32(int num, bool with_newlines=true); static int buffer_size_64(int num, bool with_newlines=true); // El objetivo es codificar el vector y dejar el resultado en el // buffer. Devuelve el numero de caracteres utilizados en el // buffer. Si el buffer no es lo bastante grande para guardar todo // el contenido, no hace nada y devuelve 0 caracteres utilizados. static int code_vector_float(const float *vect, int vect_size, char *dest_buffer, int dest_buffer_size, bool with_newlines=true); template static int code_iterator_float(ITERATOR it, ITERATOR end, int vect_size, char *dest_buffer, int dest_buffer_size, bool with_newlines=true) { int i; char *rb = dest_buffer; if (buffer_size_32(vect_size,with_newlines) <= dest_buffer_size) { i = 0; while (it != end) { code_float(*it,rb); rb+=5; i++; ++it; if (with_newlines && !(i%16)) { *rb = '\n'; rb++; } } if (with_newlines && (i % 16)) { *rb = '\n'; rb++; } *rb = '\0'; rb++; } return rb-dest_buffer; } static int code_vector_int32(const int32_t *vect, int vect_size, char *dest_buffer, int dest_buffer_size, bool with_newlines=true); }; #endif // BINARIZER_H april-ann-0.3.1/packages/basics/util/c_src/binary_search.h000066400000000000000000000036011234204160600234440ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef BINARY_SEARCH_H #define BINARY_SEARCH_H /* Template del algoritmo de busqueda dicotomica REQUIERE QUE EL TIPO T TENGA DEFINIDA LAS OPERACIONES "<" y "==" con el tipo K */ namespace april_utils { template inline int binary_search(const T *vec, int sz, const K&value) { int izq = 0, der = sz-1; while (izq <= der) { int m = (izq+der)>>1; if (vec[m]==value) return m; if (vec[m] < value) izq = m+1; else der = m-1; } return -1; } // REQUIERE QUE EL TIPO T TENGA DEFINIDA LAS OPERACIONES "<" con el tipo K template inline const T * binary_search_first(const T *vec, int sz, const K&value) { int izq = 0, der = sz-2; // OJO: -2, necesita que el vector tenga // un centinela en la posicion sz-1 while (izq <= der) { int m = (izq+der)>>1; if (!(vec[m] #include "april_assert.h" #include #include #include "binarizer.h" buffer_list_node::buffer_list_node(int sz, buffer_list_node *nxt) { size = sz; buffer = new char[size+1]; next = nxt; } buffer_list_node::~buffer_list_node() { if (buffer) delete[] buffer; } buffer_list::~buffer_list() { while (first) { buffer_list_node *aux = first; first = first->next; delete aux; } } void buffer_list::append(buffer_list *other) { size += other->size; if (last) { last->next = other->first; } else { // lista izquierda está vacía first = other->first; } last = other->last; // Los nodos de other pasan a ser de this. // Por tanto, other esta vacio other->first = 0; other->last = 0; other->size = 0; } void buffer_list::add_buffer_left(buffer_list_node *nd) { size += nd->size; nd->next = first; first = nd; if (!last) last=first; } void buffer_list::add_buffer_right(buffer_list_node *nd) { size += nd->size; nd->next = 0; if (last) { last->next = nd; } else { first = nd; } last = nd; } #define FORMAT_BUFFER_SIZE 200 void buffer_list::add_formatted_string_left(const char *fmt, ...) { int n; char buf[FORMAT_BUFFER_SIZE]; buffer_list_node *node; va_list ap; va_start(ap, fmt); n = vsnprintf (buf, FORMAT_BUFFER_SIZE, fmt, ap); va_end(ap); april_assert(n>=0); // n doesn't include the terminating '\0' node = new buffer_list_node(n+1,0); if (n < FORMAT_BUFFER_SIZE) { strcpy(node->buffer, buf); } else { va_start(ap, fmt); n = vsnprintf (node->buffer, n+1, fmt, ap); va_end(ap); } add_buffer_left(node); } void buffer_list::add_formatted_string_right(const char *fmt, ...) { int n; char buf[FORMAT_BUFFER_SIZE]; buffer_list_node *node; va_list ap; va_start(ap, fmt); n = vsnprintf (buf, FORMAT_BUFFER_SIZE, fmt, ap); va_end(ap); april_assert(n>=0); // n doesn't include the terminating '\0' // but we don't want a null-terminated string anyway node = new buffer_list_node(n,0); if (n < FORMAT_BUFFER_SIZE) { memcpy(node->buffer, buf, n); } else { va_start(ap, fmt); n = vsnprintf (node->buffer, n+1, fmt, ap); va_end(ap); } add_buffer_right(node); } void buffer_list::printf(const char *fmt, ...) { int n; char buf[FORMAT_BUFFER_SIZE]; buffer_list_node *node; va_list ap; va_start(ap, fmt); n = vsnprintf (buf, FORMAT_BUFFER_SIZE, fmt, ap); va_end(ap); april_assert(n>=0); // n doesn't include the terminating '\0' // but we don't want a null-terminated string anyway node = new buffer_list_node(n,0); if (n < FORMAT_BUFFER_SIZE) { memcpy(node->buffer, buf, n); } else { va_start(ap, fmt); n = vsnprintf (node->buffer, n+1, fmt, ap); va_end(ap); } add_buffer_right(node); } void buffer_list::add_constString_left (const constString &cs) { buffer_list_node *node = new buffer_list_node(cs.len()); memcpy(node->buffer, (const char *)cs, cs.len()); add_buffer_left(node); } void buffer_list::add_constString_right (const constString &cs) { buffer_list_node *node = new buffer_list_node(cs.len()); memcpy(node->buffer, (const char *)cs, cs.len()); add_buffer_right(node); } char *buffer_list::to_string(string_termination t) { int s = size; if (t == NULL_TERMINATED) { s++; } char *res = new char[s]; char *pos = res; buffer_list_node *cur; for (cur = first; cur != NULL; cur = cur->next) { memcpy(pos, cur->buffer, cur->size); pos += cur->size; } if (t==NULL_TERMINATED) { *pos = '\0'; } return res; } #ifdef HAVE_UINT16 void buffer_list::add_binarized_int16_left (const int16_t *v, int v_sz) { buffer_list_node *node = new buffer_list_node(v_sz*3); char *r = node->buffer; for (int i=0; ibuffer; for (int i=0; ibuffer; for (int i=0; ibuffer; for (int i=0; ibuffer; for (int i=0; ibuffer; for (int i=0; ibuffer; for (int i=0; ibuffer; for (int i=0; ibuffer; for (int i=0; ibuffer; for (int i=0; ibuffer; for (int i=0; ibuffer; for (int i=0; ibuffer; for (int i=0; ibuffer; for (int i=0; ibuffer; for (int i=0; ibuffer; for (int i=0; ibuffer; for (int i=0; ibuffer; for (int i=0; ibuffer; for (int i=0; ibuffer; for (int i=0; i #include "logbase.h" #include "constString.h" struct buffer_list_node { char *buffer; int size; buffer_list_node *next; buffer_list_node() : buffer(0), size(0), next(0) {} buffer_list_node(int sz, buffer_list_node *nxt=0); ~buffer_list_node(); }; struct buffer_list { enum string_termination { NON_NULL_TERMINATED, NULL_TERMINATED }; buffer_list_node *first; buffer_list_node *last; int size; // buffer_list() : first(0), last(0), size(0) {}; ~buffer_list(); void append(buffer_list *other); int get_size() const { return size; } void add_buffer_left(buffer_list_node *nd); void add_buffer_right(buffer_list_node *nd); void add_constString_left (const constString &cs); void add_constString_right(const constString &cs); void add_formatted_string_left (const char *fmt, ...); void add_formatted_string_right(const char *fmt, ...); /// es una copia de add_formatted_string_right TODO: se puede hacer /// que sea un alias en lugar de una copia? void printf(const char *fmt, ...); #ifdef HAVE_UINT16 void add_binarized_int16_left (const int16_t *v, int v_sz); void add_binarized_int16_right(const int16_t *v, int v_sz); void add_binarized_uint16_left (const uint16_t *v, int v_sz); void add_binarized_uint16_right(const uint16_t *v, int v_sz); #endif void add_binarized_int32_left (const int32_t *v, int v_sz); void add_binarized_int32_right(const int32_t *v, int v_sz); void add_binarized_uint32_left (const uint32_t *v, int v_sz); void add_binarized_uint32_right(const uint32_t *v, int v_sz); #ifdef HAVE_UINT64 void add_binarized_int64_left (const int64_t *v, int v_sz); void add_binarized_int64_right(const int64_t *v, int v_sz); void add_binarized_uint64_left (const uint64_t *v, int v_sz); void add_binarized_uint64_right(const uint64_t *v, int v_sz); #endif void add_binarized_float_left (const float *v, int v_sz); void add_binarized_float_right(const float *v, int v_sz); void add_binarized_log_float_left (const log_float *v, int v_sz); void add_binarized_log_float_right(const log_float *v, int v_sz); void add_binarized_double_left (const double *v, int v_sz); void add_binarized_double_right(const double *v, int v_sz); void add_binarized_log_double_left (const log_double *v, int v_sz); void add_binarized_log_double_right(const log_double *v, int v_sz); char* to_string(string_termination t = NON_NULL_TERMINATED); }; #endif // BUFFER_LIST_H april-ann-0.3.1/packages/basics/util/c_src/buffered_file.cc000066400000000000000000000015761234204160600235630ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "buffered_file.h" template class BufferedMemory; april-ann-0.3.1/packages/basics/util/c_src/buffered_file.h000066400000000000000000000037411234204160600234210ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef BUFFERED_FILE_H #define BUFFERED_FILE_H #include #include "error_print.h" #include "buffered_memory.h" #include "referenced.h" class FileWrapper { FILE *f; bool need_close; public: FileWrapper(FileWrapper &other) : f(other.f), need_close(false) { } FileWrapper(FILE *f) : f(f), need_close(false) { } FileWrapper() : f(0), need_close(true) { } ~FileWrapper() { closeS(); } bool isOpened() const { return f != 0; } bool openS(const char *path, const char *mode) { f = fopen(path, mode); need_close = true; return f != 0; } void closeS() { if (need_close && f != 0) fclose(f); f = 0; } size_t readS(void *ptr, size_t size, size_t nmemb) { return fread(ptr, size, nmemb, f); } size_t writeS(const void *ptr, size_t size, size_t nmemb) { return fwrite(ptr, size, nmemb, f); } int seekS(long offset, int whence) { return fseek(f, offset, whence); } void flushS() { fflush(f); } int printfS(const char *format, va_list &arg) { return vfprintf(f, format, arg); } bool eofS() const { return feof(f) != 0; } }; typedef BufferedMemory BufferedFile; #endif // BUFFERED_FILE_H april-ann-0.3.1/packages/basics/util/c_src/buffered_memory.h000066400000000000000000000146421234204160600240140ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef BUFFERED_MEMORY_H #define BUFFERED_MEMORY_H #include "unused_variable.h" #include "referenced.h" #include "constString.h" extern "C" { #include "lauxlib.h" #include "lualib.h" #include "lua.h" } /** The MEMORY_TYPE must complain with this interface MEMORY_TYPE() default constructor bool openS(const char *path, const char *mode); void closeS(); size_t readS(void *ptr, size_t size, size_t nmemb) = 0; size_t writeS(const void *ptr, size_t size, size_t nmemb) = 0; int seekS(long offset, int whence) = 0; void flushS() = 0; int printfS(const char *format, va_list &arg) = 0; bool eofS() const = 0; **/ /// This class is useful to define classes for input/output routines, as for /// FILE or gzFile formats. The MEMORY_TYPE must be a class or struct which /// complains the interface defined in the file buffered_memory.h template class BufferedMemory : public Referenced { bool is_opened; /// It measures the number of bytes written or read int total_bytes; /// Reading buffer, writings are done directly char *buffer; /// Reserved size of the buffer int max_buffer_len; /// Current position of first valid char int buffer_pos; /// Number of chars chars read int buffer_len; /// The memory which has implemented methods: openS, closeS, readS, writeS, seekS, flushS, printfS, eofS MEMORY_TYPE memory; /// Moves the buffer to the left and reads new data to fill the right part bool moveAndFillBuffer(); /// Increases the size of the buffer and reads new data to fill it bool resizeAndFillBuffer(); /// Moves buffer_pos until the first valid char is not in delim string bool trim(const char *delim); /// Forces to read from the file in the next getToken void setBufferAsFull() { buffer_pos = max_buffer_len; buffer_len = max_buffer_len; } public: /// Constructor with a opned reference BufferedMemory(MEMORY_TYPE &other); /// Constructor for memory read/write, it receives the string path and the mode BufferedMemory(const char *path, const char *mode); ~BufferedMemory(); /// Returns if the file was opened correctly, and not is EOF bool good() const { return is_opened && (buffer_len>buffer_pos || !memory.eofS()); } /// Closes the memory void close(); /// Forces to write pending data void flush(); /// Moves the file cursor to the given offset from given whence position int seek(int whence, int offset); /** Lua methods: is more efficient to directly put strings at the Lua stack, instead of build a C string and return it. Pushing to the stack approximately doubles the memory because needs the original object and the Lua string. Returning a C string needs a peak of three times more memory, because it needs the original object, the C string, and finally the Lua string, even if the C string is removed after written to Lua. **/ /// Reads a number from the memory and pushes it to the Lua stack int readAndPushNumberToLua(lua_State *L); // int readAndPushCharToLua(lua_State *L); /// Reads a string of maximum given size from the memory and pushes it to the Lua stack int readAndPushStringToLua(lua_State *L, int size); /// Reads a line from the memory and pushes it to the Lua stack int readAndPushLineToLua(lua_State *L); /// Reads the whole memory and pushes it to the Lua stack int readAndPushAllToLua(lua_State *L); /*****************/ /** For matrix Read/Write C++ interface **/ // char getChar(); // be careful, this method returns a pointer to internal buffer /// Returns a string of the given maximum size. Be careful, the string is /// pointing to the internal buffer, so if you need to perform a copy if you /// need it. Otherwise, the string may be destroyed with the next read. constString getToken(int size); // be careful, this method returns a pointer to internal buffer /// Returns a string delimited by any char of the given string. Be careful, /// the string is pointing to the internal buffer, so if you need to perform a /// copy if you need it. Otherwise, the string may be destroyed with the next /// read. constString getToken(const char *delim); // be careful, this method returns a pointer to internal buffer /// Returns a whole line of the file (a string delimited by \n). Be careful, /// the string is pointing to the internal buffer, so if you need to perform a /// copy if you need it. Otherwise, the string may be destroyed with the next /// read. constString extract_line(); // be careful, this method returns a pointer to internal buffer /// Returns a whole line of the file (a string delimited by \n), but avoiding /// lines which begins with #. Lines beginning with # are taken as commented /// lines. Be careful, the string is pointing to the internal buffer, so if /// you need to perform a copy if you need it. Otherwise, the string may be /// destroyed with the next read. constString extract_u_line(); /// Writes a set of values following the given format. Equals to C printf. void printf(const char *format, ...); /// Writes a buffer of chars, given its length, similar to fwrite void write(const void *buffer, size_t len); /// Some objects needs to know the expected size before begin to write things, /// so this method is where this size is given. void setExpectedSize(int sz) const { UNUSED_VARIABLE(sz); } /// Returns the value of the counter of read/written bytes. int getTotalBytes() const { return total_bytes; } /**************************************/ }; // Includes the implementation #include "buffered_memory.impl.h" #endif // BUFFERED_MEMORY_H april-ann-0.3.1/packages/basics/util/c_src/buffered_memory.impl.h000066400000000000000000000225051234204160600247510ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include #include #include #include "error_print.h" #include "buffered_memory.h" #define DEFAULT_BUFFER_LEN 4096 template bool BufferedMemory::moveAndFillBuffer() { // move to the left the remaining data int diff = buffer_len - buffer_pos; for (int i=0; i bool BufferedMemory::resizeAndFillBuffer() { // returns false if EOF if (memory.eofS()) return false; unsigned int old_max_len = max_buffer_len; max_buffer_len <<= 1; char *new_buffer = new char[max_buffer_len + 1]; // copies the data to the new buffer memcpy(new_buffer, buffer, old_max_len); // fills the right part with read data buffer_len += memory.readS(new_buffer + buffer_len, sizeof(char), (max_buffer_len - buffer_len)); delete[] buffer; buffer = new_buffer; // returns true if not EOF return true; } template bool BufferedMemory::trim(const char *delim) { while(strchr(delim, buffer[buffer_pos])) { ++buffer_pos; // returns false if EOF if (buffer_pos >= buffer_len && !moveAndFillBuffer()) return false; } // returns true if not EOF return true; } template BufferedMemory::BufferedMemory(MEMORY_TYPE &other) : Referenced(), memory(other) { total_bytes = 0; buffer = new char[DEFAULT_BUFFER_LEN]; max_buffer_len = DEFAULT_BUFFER_LEN; setBufferAsFull(); is_opened = memory.isOpened(); } template BufferedMemory::BufferedMemory(const char *path, const char *mode) : Referenced(), memory() { total_bytes = 0; buffer = new char[DEFAULT_BUFFER_LEN]; max_buffer_len = DEFAULT_BUFFER_LEN; setBufferAsFull(); if (!memory.openS(path, mode)) { // ERROR_PRINT2("Unable to open path %s with mode %s\n", path, mode); is_opened = false; } else is_opened = true; } template BufferedMemory::~BufferedMemory() { close(); } template void BufferedMemory::close() { if (buffer != 0) { delete[] buffer; buffer = 0; memory.closeS(); } } template void BufferedMemory::flush() { memory.flushS(); } template int BufferedMemory::seek(int whence, int offset) { switch(whence) { case SEEK_SET: // In this case, a position in the memory is indicated, so it is easy to // throw away the buffer and move the memory cursor setBufferAsFull(); return memory.seekS(offset, whence); break; case SEEK_CUR: if (offset > buffer_len - buffer_pos) { offset -= buffer_len - buffer_pos; return memory.seekS(offset, whence); } else { buffer_pos += offset; return memory.seekS(0, SEEK_CUR) - buffer_len + buffer_pos; } break; case SEEK_END: setBufferAsFull(); return memory.seekS(offset, whence); break; default: ERROR_EXIT1(256, "Incorrect whence value %d to seek method\n", whence); } return 0; } template int BufferedMemory::readAndPushNumberToLua(lua_State *L) { constString token = getToken(" ,;\t\n\r"); if (token.empty()) return 0; double number; if (!token.extract_double(&number)) ERROR_EXIT(256, "Impossible to extract a number from current file pos\n"); lua_pushnumber(L, number); return 1; } template int BufferedMemory::readAndPushStringToLua(lua_State *L, int size) { constString token = getToken(size); if (token.empty()) return 0; lua_pushlstring(L, (const char *)(token), token.len()); return 1; } /* int BufferedMemory::readAndPushCharToLua(lua_State *L) { char ch = getChar(); lua_pushlstring(L, &ch, 1); return 1; } */ template int BufferedMemory::readAndPushLineToLua(lua_State *L) { constString line = extract_line(); if (line.empty()) return 0; lua_pushlstring(L, (const char *)(line), line.len()); return 1; } template int BufferedMemory::readAndPushAllToLua(lua_State *L) { constString line = getToken(1024); if (line.empty()) return 0; luaL_Buffer lua_buffer; luaL_buffinit(L, &lua_buffer); luaL_addlstring(&lua_buffer, (const char*)(line), line.len()); while((line = getToken(1024)) && !line.empty()) luaL_addlstring(&lua_buffer, (const char*)(line), line.len()); luaL_pushresult(&lua_buffer); return 1; } /* char BufferedMemory::getChar() { if (buffer_len == 0) return EOF; // comprobamos que haya datos en el buffer if (buffer_pos >= buffer_len && !moveAndFillBuffer()) return EOF; char ch = buffer[buffer_pos]; ++buffer_pos; ++total_bytes; return ch; } */ template constString BufferedMemory::getToken(int size) { if (buffer_len == 0) return constString(); // comprobamos que haya datos en el buffer if (buffer_pos >= buffer_len && !moveAndFillBuffer()) return constString(); // last_pos apuntara al fina de la ejecucion al primer caracter // delimitador encontrado int last_pos = buffer_pos; while(last_pos - buffer_pos + 1 < size) { ++last_pos; // si llegamos al final del buffer if (last_pos >= buffer_len) { // podemos hacer dos cosas, si se puede primero mover a la // izquierda y rellenar lo que queda, si no se puede entonces // aumentar el tamanyo del buffer y rellenar if (buffer_pos > 0) { last_pos -= buffer_pos; if (!moveAndFillBuffer()) break; } else if (!resizeAndFillBuffer()) break; } // printf ("buffer[%d] = %c -- buffer[%d] = %c\n", buffer_pos, buffer[buffer_pos], // last_pos, buffer[last_pos]); } // en este momento last_pos apunta al primer caracter delimitador, // o al ultimo caracter del buffer // printf ("%d %d %d\n", buffer_pos, last_pos, buffer_len); const char *returned_buffer = buffer + buffer_pos; size_t len = last_pos - buffer_pos + 1; total_bytes += len; buffer_pos = last_pos + 1; ++last_pos; return constString(returned_buffer, len); } template constString BufferedMemory::getToken(const char *delim) { if (buffer_len == 0) return constString(); // comprobamos que haya datos en el buffer if (buffer_pos >= buffer_len && !moveAndFillBuffer()) return constString(); // hacemos un trim de los delimitadores if (!trim(delim)) return constString(); // last_pos apuntara al fina de la ejecucion al primer caracter // delimitador encontrado int last_pos = buffer_pos; do { ++last_pos; // si llegamos al final del buffer if (last_pos >= buffer_len) { // podemos hacer dos cosas, si se puede primero mover a la // izquierda y rellenar lo que queda, si no se puede entonces // aumentar el tamanyo del buffer y rellenar if (buffer_pos > 0) { last_pos -= buffer_pos; if (!moveAndFillBuffer()) break; } else if (!resizeAndFillBuffer()) break; } // printf ("buffer[%d] = %c -- buffer[%d] = %c\n", buffer_pos, buffer[buffer_pos], // last_pos, buffer[last_pos]); } while(strchr(delim, buffer[last_pos]) == 0); // en este momento last_pos apunta al primer caracter delimitador, // o al ultimo caracter del buffer // printf ("%d %d %d\n", buffer_pos, last_pos, buffer_len); if (strchr(delim, buffer[last_pos]) == 0) ++last_pos; buffer[last_pos] = '\0'; const char *returned_buffer = buffer + buffer_pos; total_bytes += buffer_pos - last_pos + 1; buffer_pos = last_pos + 1; return constString(returned_buffer); } template constString BufferedMemory::extract_line() { return getToken("\n\r"); } template constString BufferedMemory::extract_u_line() { constString aux; do { aux = getToken("\r\n"); } while ((aux.len() > 0) && (aux[0] == '#')); return aux; } template void BufferedMemory::printf(const char *format, ...) { va_list ap; va_start(ap, format); total_bytes += memory.printfS(format, ap); va_end(ap); } template void BufferedMemory::write(const void *buffer_, size_t len) { total_bytes += memory.writeS(buffer_, sizeof(char), len); } april-ann-0.3.1/packages/basics/util/c_src/cache_open_addressing_hash.h000066400000000000000000000277431234204160600261420ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef CACHE_OPEN_ADDR_HASH_H #define CACHE_OPEN_ADDR_HASH_H /* Cache con tabla hash de direccionamiento abierto (CON TIMESTAMP) Se utiliza un vector para guardar directamente los valores. Cuando se busca un valor, se utiliza la función de dispersión para obtener el indice en el vector. Cuando una posicion es ocupada, la clave y el valor viejos se sobreescriben con los nuevos. Los tipos de datos para los campos clave y valor asumen que el operador de copia funciona suficientemente bien como para que al "machacar" una posición del vector con un valor nuevo, el valor anterior se libere convenientemente. También se asume que ambos tipos de datos tienen constructores por defecto. Un valor estará siempre en la misma posición ya que no hay rehashing. */ #include "aux_hash_table.h" #include // ceilf #include // ptrdiff_t, size_t... #include "pair.h" namespace april_utils { // HashFcn es del tipo: // struct hash_fcn { // unsigned int operator()(const char* s1) const { // return blah...; // } // }; // EqualKey es del tipo: // struct eqstr { // bool operator()(const char* s1, const char* s2) const { // return strcmp(s1, s2) == 0; // } // }; template , typename EqualKey = default_equality_comparison_function > class cache_open_addr_hash { public: struct node { pair value; unsigned int stamp; node() {} node(KeyType& k, DataType& d): value(k,d) {} }; typedef KeyType key_type; typedef DataType data_type; typedef pair value_type; typedef value_type& reference; typedef const reference const_reference; typedef value_type* pointer; typedef ptrdiff_t difference_type; typedef size_t size_type; private: static const unsigned int maxstamp = 1<<30; unsigned int timestamp; node *buckets; // vector of nodes int used_size; int num_buckets;// a power of 2 int hash_mask; // useful to do "& hash_mask" instead of "% // num_buckets" int first_power_of_2(int value);// auxiliary function HashFcn hash_function; EqualKey equal_key; public: cache_open_addr_hash(int nbckts=18); // constructor cache_open_addr_hash(const cache_open_addr_hash&); // copy constructor ~cache_open_addr_hash(); // destructor // assignment operator cache_open_addr_hash& operator=(const cache_open_addr_hash&); void clear(); // Erases all of the elements. data_type* find(const key_type& k); const value_type* find_pair(const key_type& k) const; bool search(const key_type& k) const { return find_pair(k) != 0; } data_type& operator[] (const key_type& k); void insert(const key_type& k, data_type& d) { (*this)[k] = d; } int bucket_count() const { // Returns the number of buckets used by the hash return used_size; } bool get(const key_type& k, data_type** d); class const_iterator; class iterator { friend class const_iterator; friend class cache_open_addr_hash; cache_open_addr_hash *h; int index; iterator(cache_open_addr_hash *h, int index): h(h), index(index) {} public: typedef KeyType key_type; typedef DataType data_type; typedef pair value_type; typedef value_type& reference; typedef const reference const_reference; typedef value_type* pointer; typedef ptrdiff_t difference_type; typedef size_t size_type; iterator(): h(0), index(0) {} iterator(const iterator &other): h(other.h), index(other.index) {} iterator& operator=(const iterator &other) { if (&other != this) { h = other.h; index = other.index; } return (*this); } iterator& operator++() { // preincrement // asumimos que no se incrementa un iterador con // index>=num_buckets do { index++; } while (indexnum_buckets && h->buckets[index].stamp != h->timestamp); return *this; } iterator operator++(int) { // postincrement iterator tmp(*this); ++(*this); return tmp; } value_type& operator *() { //dereference return h->buckets[index].value; } value_type* operator ->() { return &(h->buckets[index].value); } bool operator == (const iterator &other) { return ((index == other.index) && (h == other.h)); } bool operator != (const iterator &other) { return ((index != other.index) || (h != other.h)); } }; class const_iterator { friend class cache_open_addr_hash; const cache_open_addr_hash *h; int index; const_iterator(cache_open_addr_hash *h, int index): h(h), index(index) {} public: typedef KeyType key_type; typedef DataType data_type; typedef pair value_type; typedef value_type& reference; typedef const reference const_reference; typedef value_type* pointer; typedef ptrdiff_t difference_type; typedef size_t size_type; const_iterator(): h(0), index(0) {} // Copy constructor (from iterator and const_iterator) const_iterator(const iterator &other): h(other.h), index(other.index) {} const_iterator(const const_iterator &other): h(other.h), index(other.index) {} // Assignment operators const_iterator& operator=(const iterator &other) { h = other.h; index = other.index; } const_iterator& operator=(const const_iterator &other) { h = other.h; index = other.index; } const_iterator& operator++() { // preincrement // asumimos que no se incrementa un iterador con // index>=num_buckets do { index++; } while (indexnum_buckets && h->buckets[index].stamp != h->timestamp); return *this; } const_iterator operator++(int) { // postincrement const_iterator tmp(*this); ++(*this); return tmp; } const value_type& operator *() { //dereference return h->buckets[index].value; } const value_type* operator ->() { return &(h->buckets[index].value); } // Eq comparisons bool operator == (const iterator &other) { return ((index == other.index) && (h == other.h)); } bool operator == (const const_iterator &other) { return ((index == other.index) && (h == other.h)); } bool operator != (const iterator &other) { return ((index != other.index) || (h != other.h)); } bool operator != (const const_iterator &other) { return ((index != other.index) || (h != other.h)); } }; iterator begin() { int i=0; while (i int cache_open_addr_hash::first_power_of_2(int value) { int result = 4; // ojito, minimo 4. TODO: se queda este valor? while (result < value) result += result; return result; } template cache_open_addr_hash::cache_open_addr_hash(int nbckts) { num_buckets = first_power_of_2(nbckts); hash_mask = num_buckets-1; // num_buckets is a power of 2 end_iterator = iterator(this, num_buckets); buckets = new node[num_buckets]; timestamp = maxstamp - 1; // se encarga de inicializar el stamp clear(); } template cache_open_addr_hash::cache_open_addr_hash(const cache_open_addr_hash& other) { // copy constructor used_size = other.used_size; num_buckets = other.num_buckets; hash_mask = other.hash_mask; buckets = new node[num_buckets]; for (int i=0; i void cache_open_addr_hash::clear() { used_size = 0; ++timestamp; if (timestamp == maxstamp) { for (int i=0; i cache_open_addr_hash& cache_open_addr_hash::operator=(const cache_open_addr_hash& other) { // The assignment operator if (this != &other) { used_size = other.used_size; if (num_buckets != other.num_buckets) { delete[] buckets; num_buckets = other.num_buckets; buckets = new node[num_buckets]; } hash_mask = other.hash_mask; for (int i=0; i cache_open_addr_hash::~cache_open_addr_hash() { // destructor delete[] buckets; } template dt* cache_open_addr_hash::find(const ky& k) { value_type* p = const_cast(find_pair(k)); return p ? &(p->second) : 0; } template const pair * cache_open_addr_hash::find_pair(const ky& k) const { unsigned int index = hash_function(k) & hash_mask; if (equal_key(buckets[index].value.first,k) && buckets[index].stamp == timestamp) return &(buckets[index].value); return 0; } template dt& cache_open_addr_hash::operator[] (const ky& k) { unsigned int index = hash_function(k) & hash_mask; if (equal_key(buckets[index].value.first,k) && buckets[index].stamp == timestamp) return buckets[index].value.second; else { if (buckets[index].stamp != timestamp) ++used_size; buckets[index].value.second = dt(); } buckets[index].stamp = timestamp; buckets[index].value.first = k; return buckets[index].value.second; } template bool cache_open_addr_hash::get(const ky& k, dt** d) { unsigned int index = hash_function(k) & hash_mask; // devolvemos el puntero al valor que hay en index *d = &buckets[index].value.second; if (equal_key(buckets[index].value.first,k) && buckets[index].stamp == timestamp) return true; // copiamos la nueva key buckets[index].value.first = k; buckets[index].stamp = timestamp; ++used_size; return false; } } // namespace april_utils #endif // CACHE_OPEN_ADDR_HASH_H april-ann-0.3.1/packages/basics/util/c_src/ceiling_power_of_two.cc000066400000000000000000000022601234204160600251740ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "ceiling_power_of_two.h" namespace april_utils { // Returns the highest and closest power of two of a value unsigned int ceilingPowerOfTwo(unsigned int value) { unsigned int power_of_two = 1; while (power_of_two < value) { power_of_two = power_of_two << 1; } return power_of_two; } } april-ann-0.3.1/packages/basics/util/c_src/ceiling_power_of_two.h000066400000000000000000000021341234204160600250360ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef CEILING_POWER_OF_TWO_H #define CEILING_POWER_OF_TWO_H namespace april_utils { // Returns the highest and closest power of two of a value unsigned int ceilingPowerOfTwo(unsigned int value); } #endif // CEILING_POWER_OF_TWO_H april-ann-0.3.1/packages/basics/util/c_src/check_floats.cc000066400000000000000000000023261234204160600234210ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "error_print.h" #include "check_floats.h" namespace april_utils { bool check_floats(float *v, unsigned int sz) { for (unsigned int i=0; i // convierte todos los numeros denormales en 0, // aunque para en cuanto detecta un NaN o inf, en cuyo caso // devolveria false. Si todo esta bien devuelve true. namespace april_utils { bool check_floats(float *v, unsigned int sz); } april-ann-0.3.1/packages/basics/util/c_src/clamp.h000066400000000000000000000021221234204160600217240ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef CLAMP_H #define CLAMP_H namespace april_utils { template T clamp(T val, T lower, T upper) { if (val > upper) return upper; if (val < lower) return lower; return val; } } #endif // defined(CLAMP_H) april-ann-0.3.1/packages/basics/util/c_src/comparable_ptr.h000066400000000000000000000031001234204160600236170ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef COMPARABLE_PTR_H #define COMPARABLE_PTR_H namespace april_utils { template class ComparablePtr { T *ptr; public: ComparablePtr(T *p=0) : ptr(p) {} ~ComparablePtr() {} bool operator<(const ComparablePtr &b) const { return *(ptr) < *(b.ptr); } bool operator>(const ComparablePtr &b) const { return *(ptr) > *(b.ptr); } bool operator==(const ComparablePtr &b) const { return *(ptr) == *(b.ptr); } bool operator!=(const ComparablePtr &b) const { return *(ptr) != *(b.ptr); } T& operator *() const { // dereference return *ptr; } T* operator ->() const { return ptr; } }; } #endif // COMPARABLE_PTR_H april-ann-0.3.1/packages/basics/util/c_src/constString.cc000066400000000000000000000247301234204160600233140ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include #include #include "constString.h" #include "binarizer.h" constString::constString(const char *s, size_t n) { buffer = s; length = n; } constString::constString(const char *s) { buffer = s; length = strlen(s); } char* constString::newString() const { int addzero = (length == 0 || buffer[length-1] != '\0') ? 1 : 0; char *resul = new char[length + addzero]; strncpy(resul, buffer, length); if (addzero) resul[length] = '\0'; return resul; } bool constString::operator == (const constString &otro) const { if (length != otro.length) return false; return strncmp(buffer,otro.buffer,length) == 0; } bool constString::operator != (const constString &otro) const { if (length != otro.length) return true; return strncmp(buffer,otro.buffer,length) != 0; } bool constString::operator < (const constString &otro) const { size_t min = (length < otro.length) ? length : otro.length; int cmp = strncmp(buffer,otro.buffer,min); // Si difieren en los primeros min caracteres, ya esta if (cmp==-1) return true; else if (cmp==1) return false; // si no, miramos la longitud else return (length < otro.length); } bool constString::operator <= (const constString &otro) const { size_t min = (length < otro.length) ? length : otro.length; int cmp = strncmp(buffer,otro.buffer,min); // Si difieren en los primeros min caracteres, ya esta if (cmp==-1) return true; else if (cmp==1) return false; // si no, miramos la longitud else return(length <= otro.length); } bool constString::operator > (const constString &otro) const { size_t min = (length < otro.length) ? length : otro.length; int cmp = strncmp(buffer,otro.buffer,min); // Si difieren en los primeros min caracteres, ya esta if (cmp==-1) return false; else if (cmp==1) return true; // si no, miramos la longitud else return (length > otro.length); } bool constString::operator >= (const constString &otro) const { size_t min = (length < otro.length) ? length : otro.length; int cmp = strncmp(buffer,otro.buffer,min); // Si difieren en los primeros min caracteres, ya esta if (cmp==-1) return false; else if (cmp==1) return true; // si no, miramos la longitud else return (length >= otro.length); } void constString::skip(size_t n) { if (buffer) { if (n>length) n = length; length -= n; buffer += n; } } void constString::ltrim(const char *acepta) { // todo: puede fallar si la cadena no es terminada en '\0' if (buffer) { size_t n = strspn(buffer,acepta); if (n>length) n=length; length -= n; buffer += n; } } bool constString::is_prefix(const constString &theprefix) { if (length < theprefix.length) return false; return strncmp(buffer,theprefix.buffer,theprefix.length) == 0; } bool constString::is_prefix(const char *theprefix) { return is_prefix(constString(theprefix)); } bool constString::skip(const constString &theprefix) { if (!is_prefix(theprefix)) return false; skip(theprefix.length); return true; } bool constString::skip(const char *theprefix) { return skip(constString(theprefix)); } constString constString::extract_prefix(size_t prefix_len) { if (empty()) return constString(); // prefix_len no puede ser mayor que length: if (prefix_len > length) prefix_len = length; constString resul = constString(buffer,prefix_len); length -= prefix_len; buffer += prefix_len; return resul; } constString constString::extract_token(const char *separadores) { ltrim(separadores); if (empty()) return constString(); const char *newbuffer = buffer; size_t newlength = strcspn(newbuffer,separadores); if (newlength>length) newlength=length; skip(newlength); return constString(newbuffer,newlength); } constString constString::extract_line() { return extract_token("\r\n"); } constString constString::extract_u_line() { constString aux; do { aux = extract_token("\r\n"); } while ((aux.length > 0) && (aux.buffer[0] == '#')); return aux; } bool constString::extract_char(char *resul) { if (empty()) return false; *resul = buffer[0]; skip(1); return true; } bool constString::extract_float(float *resul,const char *separadores) { ltrim(separadores); if (empty()) return false; char *aux; // fixme: strtof no controla si nos salimos del constString, luego // lo comprobamos viendo si length < 0 pero podría dar violación de // segmento float value = strtof(buffer,&aux); if (aux == buffer) return false; if (aux > buffer+length) return false; length -= aux-buffer; buffer = aux; *resul = value; return true; } bool constString::extract_float_binary(float *resul) { if (empty()) return false; if (buffer[0] == '\n') skip(1); if (length<5 || buffer[0] == 0 || buffer[1] == 0 || buffer[2] == 0 || buffer[3] == 0 || buffer[4] == 0) return false; *resul = binarizer::decode_float(buffer); skip(5); return true; } bool constString::extract_double(double *resul,const char *separadores) { ltrim(separadores); char *aux; // fixme: strtod no controla si nos salimos del constString, luego // lo comprobamos viendo si length < 0 pero podría dar violación de // segmento double value = strtod(buffer,&aux); if (aux == buffer) return false; if (aux > buffer+length) return false; length -= aux-buffer; buffer = aux; *resul = value; return true; } bool constString::extract_log_float_binary(log_float *resul) { float aux; if (extract_float_binary(&aux)) { *resul = log_float(aux); return true; } return false; } bool constString::extract_log_double_binary(log_double *resul) { double aux; if (extract_double_binary(&aux)) { *resul = log_double::from_double(aux); return true; } return false; } bool constString::extract_double_binary(double *resul) { if (empty()) return false; if (buffer[0] == '\n') skip(1); if (length<5 || buffer[0] == 0 || buffer[1] == 0 || buffer[2] == 0 || buffer[3] == 0 || buffer[4] == 0 || buffer[5] == 0 || buffer[6] == 0 || buffer[7] == 0 || buffer[8] == 0 || buffer[9] == 0) return false; *resul = binarizer::decode_double(buffer); skip(10); return true; } bool constString::extract_int(int *resul, int base,const char *separadores) { long int x; if (extract_long(&x,base,separadores)) { *resul = (int)x; return true; } return false; } bool constString::extract_unsigned_int(unsigned int *resul, int base,const char *separadores) { long int x; if (extract_long(&x,base,separadores)) { *resul = (unsigned int)x; return true; } return false; } bool constString::extract_long(long int *resul, int base, const char *separadores) { ltrim(separadores); if (empty()) return false; char *aux; // fixme: strtol no controla si nos salimos del constString, luego // lo comprobamos viendo si length < 0 pero podría dar violación de // segmento long int value = strtol(buffer,&aux, base); if (aux == buffer) return false; if (aux > buffer+length) return false; length -= aux-buffer; buffer = aux; *resul = value; return true; } bool constString::extract_long_long(long long int *resul, int base, const char *separadores) { ltrim(separadores); if (empty()) return false; char *aux; long long int value = strtoll(buffer,&aux, base); if (aux == buffer) return false; if (aux > buffer+length) return false; length -= aux-buffer; buffer = aux; *resul = value; return true; } #ifdef HAVE_UINT16 bool constString::extract_uint16_binary(uint16_t *resul) { if (empty()) return false; if (buffer[0] == '\n') skip(1); if (length<3 || buffer[0] == 0 || buffer[1] == 0 || buffer[2] == 0) return false; *resul = binarizer::decode_uint16(buffer); skip(3); return true; } bool constString::extract_int16_binary(int16_t *resul) { if (empty()) return false; if (buffer[0] == '\n') skip(1); if (length<3 || buffer[0] == 0 || buffer[1] == 0 || buffer[2] == 0) return false; *resul = binarizer::decode_int16(buffer); skip(3); return true; } #endif bool constString::extract_uint32_binary(uint32_t *resul) { if (empty()) return false; if (buffer[0] == '\n') skip(1); if (length<5 || buffer[0] == 0 || buffer[1] == 0 || buffer[2] == 0 || buffer[3] == 0 || buffer[4] == 0) return false; *resul = binarizer::decode_uint32(buffer); skip(5); return true; } bool constString::extract_int32_binary(int32_t *resul) { if (empty()) return false; if (buffer[0] == '\n') skip(1); if (length<5 || buffer[0] == 0 || buffer[1] == 0 || buffer[2] == 0 || buffer[3] == 0 || buffer[4] == 0) return false; *resul = binarizer::decode_int32(buffer); skip(5); return true; } #ifdef HAVE_UINT64 bool constString::extract_uint64_binary(uint64_t *resul) { if (empty()) return false; if (buffer[0] == '\n') skip(1); if (length<10 || buffer[0] == 0 || buffer[1] == 0 || buffer[2] == 0 || buffer[3] == 0 || buffer[4] == 0 || buffer[5] == 0 || buffer[6] == 0 || buffer[7] == 0 || buffer[8] == 0 || buffer[9] == 0) return false; *resul = binarizer::decode_uint64(buffer); skip(10); return true; } bool constString::extract_int64_binary(int64_t *resul) { if (empty()) return false; if (buffer[0] == '\n') skip(1); if (length<10 || buffer[0] == 0 || buffer[1] == 0 || buffer[2] == 0 || buffer[3] == 0 || buffer[4] == 0 || buffer[5] == 0 || buffer[6] == 0 || buffer[7] == 0 || buffer[8] == 0 || buffer[9] == 0) return false; *resul = binarizer::decode_int64(buffer); skip(10); return true; } #endif void constString::print(FILE *F) { for (size_t i=0;i #include #include "logbase.h" class constString { const char *buffer; size_t length; public: constString() { buffer = 0; length = 0; } constString(const char *s); constString(const char *s, size_t n); operator bool() { return length>0 && buffer; } bool empty() const{ return length<=0 || !buffer; } bool operator !() { return length<=0 || !buffer; } size_t len() const { return length; } // ojito, este método NO añade el \0 al final operator const char *() const { return buffer; } char operator [] (int i) const { return buffer[i]; } char operator [] (unsigned int i) const { return buffer[i]; } // char operator [] (size_t i) const { return buffer[i]; } char *newString() const; // el método siguiente crea una cadena nueva que se debe // liberar posteriormente con delete[] // por implementar: // char* operator char*() { return buffer; } // conversor bool operator == (const constString &otro) const; bool operator != (const constString &otro) const; bool operator < (const constString &otro) const; bool operator <= (const constString &otro) const; bool operator > (const constString &otro) const; bool operator >= (const constString &otro) const; bool operator == (const char *otro) const { return operator==(constString(otro)); } bool operator != (const char *otro) const { return operator!=(constString(otro)); } bool operator < (const char *otro) const { return operator<(constString(otro)); } bool operator <= (const char *otro) const { return operator<=(constString(otro)); } bool operator > (const char *otro) const { return operator>(constString(otro)); } bool operator >= (const char *otro) const { return operator>=(constString(otro)); } void skip(size_t n); void ltrim(const char *acepta = " \t"); // void rtrim(); // void trim(); bool is_prefix(const constString &theprefix); bool is_prefix(const char *theprefix); bool skip(const char *theprefix); bool skip(const constString &theprefix); constString extract_prefix(size_t prefix_len); constString extract_token(const char *separadores=" \t,;\r\n"); constString extract_line(); constString extract_u_line(); bool extract_char(char *resul); bool extract_int(int *resul, int base = 10, const char *separadores=" \t,;\r\n"); bool extract_unsigned_int(unsigned int *resul, int base = 10, const char *separadores=" \t,;\r\n"); bool extract_long(long int *resul, int base = 10, const char *separadores=" \t,;\r\n"); bool extract_long_long(long long int *resul, int base = 10, const char *separadores=" \t,;\r\n"); bool extract_float(float *resul, const char *separadores=" \t,;\r\n"); bool extract_double(double *resul, const char *separadores=" \t,;\r\n"); bool extract_float_binary(float *resul); bool extract_double_binary(double *resul); bool extract_log_float_binary(log_float *resul); bool extract_log_double_binary(log_double *resul); #ifdef HAVE_UINT16 bool extract_uint16_binary(uint16_t *resul); bool extract_int16_binary(int16_t *resul); #endif bool extract_uint32_binary(uint32_t *resul); bool extract_int32_binary(int32_t *resul); #ifdef HAVE_UINT64 bool extract_uint64_binary(uint64_t *resul); bool extract_int64_binary(int64_t *resul); #endif void print(FILE *F=stdout); bool good() const { return !empty(); } }; char *copystr(const char *c); #endif // CONSTSTRING_H april-ann-0.3.1/packages/basics/util/c_src/context.h000066400000000000000000000233371234204160600223270ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef CONTEXT_H #define CONTEXT_H #include "april_assert.h" #include /* april_utils::context * * Una cola con acceso aleatorio a los elementos. Sirve para guardar el * contexto de los objetos de una secuencia que vamos recorriendo. * * Metodos publicos: * * - context(int before, int after): Constructor, crea un objeto de tipo * context reservando espacio para (before) objetos de tipo T anteriores al * elemento actual y (after) objetos de tipo T posteriores al actual. * * +-----+-----+-----+-----+-----+-----+-----+-----+-----+ * | -4 | -3 | -2 | -1 | 0 | +1 | +2 | +3 | +4 | * +-----+-----+-----+-----+-----+-----+-----+-----+-----+ * * <--------before-------->| cur |<---------after--------> * * - bool insert(T *elem): Toma un puntero a un objeto de tipo T y lo inserta * en la posicion (after) del vector, dado que es el mas reciente, * desplazando el resto y destruyendo, si procede, el mas antiguo. * Devuelve true si el elemento se ha insertado, false si se intenta * insertar despues de llamar a end_input() * * - bool insert(const T& elem): Igual que el anterior pero realizando una * copia del objeto pasado como parámetro. * * - bool ready(): devuelve true cuando todos los elementos del contexto son * validos. Al crear el context es necesario insertar (after+1) elementos * para que ready() devuelva true. Al final del proceso ready() devolvera * false cuando el elemento actual se encuentre despues del ultimo * introducido. * * Ejemplo: entrada=ABCDE, before=1, after=2 * * /--- Elemento actual * | * v * t=1 insert(A) A|A|-- ready=false * t=2 insert(B) A|A|B- ready=false * t=3 insert(C) A|A|BC ready=true * t=4 insert(D) A|B|CD ready=true * t=5 insert(E) B|C|DE ready=true * --- end_input() * t=6 shift() C|D|EE ready=true * t=7 shift() D|E|EE ready=true * t=8 shift() E|E|EE ready=false * * - void end_input(): Se utiliza para marcar el final de los datos de entrada * * - bool shift(): Una vez marcado el final de la entrada con end_input(), cada * llamada a shift() desplaza el vector. Conceptualmente es equivalente a * insertar una copia del ultimo elemento de la entrada utilizando insert() * * - void reset(): Reinicializa el objeto. Borra todos los objetos del contexto * y lo deja como si estuviera recien creado por el constructor. * * - const T& operator[]: Permite el acceso al contexto utilizando los indices indicados * en el diagrama anterior. 0 representa el elemento actual. -1,-2... los * elementos anteriores y 1,2,... los posteriores. */ namespace april_utils { template class context { int before; int after; int num_inserts; int num_shifts; // Numero de desplazamientos tras el fin de la entrada bool end; bool fill_after; int vec_size; T** vec; void init(){ num_inserts=0; num_shifts=0; end=false; fill_after=false; } void delete_contents() { // comprobamos que haya habido alguna insercion if (num_inserts != 0) { int before=0; int after=vec_size-1; while ((before < vec_size-1) && (vec[before] == vec[before+1])) before++; // Si hay elementos nulos al final, no hay repetidos // posteriores y el bucle parara en el ultimo 0 empezando // desde el final del vector. No obstante, hacer un delete de un // puntero nulo es correcto (no hace nada) :) while ((after > before) && (vec[after] == vec[after-1])) after--; for(int i=before; i<=after; i++) delete vec[i]; } // ponemos los punteros del vector a 0 for (int i = 0; i < vec_size; i++) vec[i] = 0; } public: context(int before, int after): before(before), after(after), vec_size(before+after+1) { // cuando comparamos un elemento y el siguiente del array // necesitamos al menos un array de tam = 2 april_assert(before+after > 0); vec = new T* [vec_size]; init(); for (int i = 0; i < vec_size; i++) vec[i] = 0; } ~context() { delete_contents(); delete[] vec; } int get_before() const { return before; } int get_after() const { return after; } // Toma un puntero y se adueña de el, liberandolo // cuando ya no sea necesario. bool insert(T* elem) { if (end) return false; if (before+num_inserts < vec_size) { // Aun no hemos llenado el vector por primera vez vec[before+num_inserts] = elem; } else { // El vector ya esta lleno, desplazamos e insertamos al final if (vec[0] != vec[1]) delete vec[0]; for (int i=0; i after); else return (num_shifts <= after) && (num_shifts <= num_inserts); } void end_input() { end = true; fill_after = (num_inserts > 0 && num_inserts < vec_size); } bool shift() { if (!end) return false; // Si no se ha llenado el vector, se replica el // ultimo elemento tantas veces como sea necesario // para llenar los elementos posteriores del contexto // y no se desplaza la primera vez (el elemento central // nunca ha estado ready y no ha sido accedido aun) if (fill_after) { for (int i=before+num_inserts; i after || t <= num_inserts); // Comprobaciones de rango april_assert(t<=after); april_assert(t>=-before); return *vec[before+t]; } }; // wrapper para un caso tipico de uso de context template struct vec_wrapper { T *vec; int input_vec_size; vec_wrapper(T *v, int sz) : input_vec_size(sz) { vec = new T[sz]; for (int i=0; i class context_of_vectors { context > ctxt; int input_vec_size; public: context_of_vectors(int before, int after, int input_vec_size): ctxt(before,after), input_vec_size(input_vec_size) { } ~context_of_vectors() { } bool insert(T* vec) { return ctxt.insert(new vec_wrapper(vec,input_vec_size)); } bool ready() const { return ctxt.ready(); } void end_input() { ctxt.end_input(); } bool is_ended() const { return ctxt.is_ended(); } bool shift() { return ctxt.shift(); } void reset() { ctxt.reset(); } T* getOutputVector() const { T *output = 0; if (ctxt.ready()) { int before = ctxt.get_before(); int after = ctxt.get_after(); output = new T[(before+1+after)*input_vec_size]; int o_idx = 0; for (int i=-before; i<=after; i++) for(int j = 0; j < input_vec_size; j++, o_idx++) output[o_idx] = ctxt[i][j]; } return output; } }; } #endif april-ann-0.3.1/packages/basics/util/c_src/derivative.cc000066400000000000000000000033021234204160600231310ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "derivative.h" #include "clamp.h" namespace april_utils { // Explicacion de las formulas en: // http://legacy.ncsu.edu/classes-a/mat310_info/DiffInt/NumDeriv.html void derivative1(float *v, float *v_dest, int n) { int izq1, izq2, der1, der2; for (int i=0; i void swap_bytes_in_place(T &data) { size_t sz = sizeof(T); char *ptr = reinterpret_cast(&data); size_t last = sz-1; const size_t half = sz/2; for (size_t i=0; i T swap_bytes(T data) { T copy_data = data; size_t sz = sizeof(T); char *ptr = reinterpret_cast(©_data); size_t last = sz-1; const size_t half = sz/2; for (size_t i=0; i #include #include #include /** Print a demangled stack backtrace of the caller function to FILE* out. */ void print_CPP_stacktrace(FILE *out) { fprintf(out, "C/C++ stack trace:\n"); // storage array for stack trace address data void* addrlist[MAX_FRAMES+1]; // retrieve current stack addresses int addrlen = backtrace(addrlist, sizeof(addrlist) / sizeof(void*)); if (addrlen == 0) { fprintf(out, " \n"); return; } // resolve addresses into strings containing "filename(function+address)", // this array must be free()-ed char** symbollist = backtrace_symbols(addrlist, addrlen); // allocate string which will be filled with the demangled function name size_t funcnamesize = FUNC_NAME_SIZE; char* funcname = (char*)malloc(funcnamesize); // iterate over the returned symbol lines. skip the first, it is the // address of this function. for (int i = 1; i < addrlen; i++) { char *begin_name = 0, *begin_offset = 0, *end_offset = 0; // find parentheses and +address offset surrounding the mangled name: // ./module(function+0x15c) [0x8048a6d] for (char *p = symbollist[i]; *p; ++p) { if (*p == '(') begin_name = p; else if (*p == '+') begin_offset = p; else if (*p == ')' && begin_offset) { end_offset = p; break; } } if (begin_name && begin_offset && end_offset && begin_name < begin_offset) { *begin_name++ = '\0'; *begin_offset++ = '\0'; *end_offset = '\0'; // mangled name is now in [begin_name, begin_offset) and caller // offset in [begin_offset, end_offset). now apply // __cxa_demangle(): int status; char* ret = abi::__cxa_demangle(begin_name, funcname, &funcnamesize, &status); if (status == 0) { funcname = ret; // use possibly realloc()-ed string fprintf(out, " %s : %s+%s\n", symbollist[i], funcname, begin_offset); } else { // demangling failed. Output function name as a C function with // no arguments. fprintf(out, " %s : %s()+%s\n", symbollist[i], begin_name, begin_offset); } } else { // couldn't parse the line? print the whole line. fprintf(out, " %s\n", symbollist[i]); } } free(funcname); free(symbollist); } ////////////////////////////////////////////////////////////////////////////// void print_CPP_LUA_stacktrace_and_exit() { print_CPP_stacktrace(); lua_pushstring(globalL, ""); lua_error(globalL); } april-ann-0.3.1/packages/basics/util/c_src/error_print.h000066400000000000000000000075501234204160600232070ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef ERROR_PRINT_H #define ERROR_PRINT_H #include #include void print_CPP_LUA_stacktrace_and_exit(); void print_CPP_stacktrace(FILE *out = stderr); #define ERROR_PRINT(strformat) \ fprintf(stderr, "Error in file %s in line %d, function %s: " strformat, __FILE__, __LINE__, __FUNCTION__) #define ERROR_PRINT1(strformat, v1) \ fprintf(stderr, "Error in file %s in line %d, function %s: " strformat, __FILE__, __LINE__, __FUNCTION__,(v1)) #define ERROR_PRINT2(strformat, v1, v2) \ fprintf(stderr, "Error in file %s in line %d, function %s: " strformat, __FILE__, __LINE__, __FUNCTION__, (v1), (v2)) #define ERROR_PRINT3(strformat, v1, v2, v3) \ fprintf(stderr, "Error in file %s in line %d, function %s: " strformat, __FILE__, __LINE__, __FUNCTION__, (v1), (v2), (v3)) #define ERROR_PRINT4(strformat, v1, v2, v3, v4) \ fprintf(stderr, "Error in file %s in line %d, function %s: " strformat, __FILE__, __LINE__, __FUNCTION__, (v1), (v2), (v3), (v4)) #define ERROR_PRINT5(strformat, v1, v2, v3, v4, v5) \ fprintf(stderr, "Error in file %s in line %d, function %s: " strformat, __FILE__, __LINE__, __FUNCTION__, (v1), (v2), (v3), (v4), (v5)) #define ERROR_PRINT6(strformat, v1, v2, v3, v4, v5, v6) \ fprintf(stderr, "Error in file %s in line %d, function %s: " strformat, __FILE__, __LINE__, __FUNCTION__, (v1), (v2), (v3), (v4), (v5), (v6)) #define ERROR_PRINT7(strformat, v1, v2, v3, v4, v5, v6, v7) \ fprintf(stderr, "Error in file %s in line %d, function %s: " strformat, __FILE__, __LINE__, __FUNCTION__, (v1), (v2), (v3), (v4), (v5), (v6), (v7)) #define ERROR_EXIT(errorcode, strformat) \ do { ERROR_PRINT(strformat); print_CPP_LUA_stacktrace_and_exit(); /*exit(errorcode);*/ } while(0) #define ERROR_EXIT1(errorcode, strformat, v1) \ do { ERROR_PRINT1(strformat,(v1)); print_CPP_LUA_stacktrace_and_exit(); /*exit(errorcode);*/ } while(0) #define ERROR_EXIT2(errorcode, strformat, v1, v2) \ do { ERROR_PRINT2(strformat,(v1),(v2)); print_CPP_LUA_stacktrace_and_exit(); /*exit(errorcode);*/ } while(0) #define ERROR_EXIT3(errorcode, strformat, v1, v2, v3) \ do { ERROR_PRINT3(strformat,(v1),(v2),(v3)); print_CPP_LUA_stacktrace_and_exit(); /*exit(errorcode);*/ } while(0) #define ERROR_EXIT4(errorcode, strformat, v1, v2, v3, v4) \ do { ERROR_PRINT4(strformat,(v1),(v2),(v3),(v4)); print_CPP_LUA_stacktrace_and_exit(); /*exit(errorcode);*/ } while(0) #define ERROR_EXIT5(errorcode, strformat, v1, v2, v3, v4, v5) \ do { ERROR_PRINT5(strformat,(v1),(v2),(v3),(v4),(v5)); print_CPP_LUA_stacktrace_and_exit(); /*exit(errorcode);*/ } while(0) #define ERROR_EXIT6(errorcode, strformat, v1, v2, v3, v4, v5, v6) \ do { ERROR_PRINT6(strformat,(v1),(v2),(v3),(v4),(v5),(v6)); print_CPP_LUA_stacktrace_and_exit(); /*exit(errorcode);*/ } while(0) #define ERROR_EXIT7(errorcode, strformat, v1, v2, v3, v4, v5, v6, v7) \ do { ERROR_PRINT7(strformat,(v1),(v2),(v3),(v4),(v5),(v6),(v7)); print_CPP_LUA_stacktrace_and_exit(); /*exit(errorcode);*/ } while(0) #endif // ERROR_EXIT_H april-ann-0.3.1/packages/basics/util/c_src/fifo.h000066400000000000000000000057701234204160600215670ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef FIFO_H #define FIFO_H namespace april_utils { template struct fifo_node { S value; fifo_node *next; fifo_node(S val) : value(val), next(0) { } }; template class fifo { fifo_node *first, *last; int the_size; public: fifo(); ~fifo(); const fifo_node *begin() const { return first; } //const fifo_node *end() const { return last; } int size() const; bool empty() const; void put(T value); bool get(T &value); bool consult(T &value); bool drop_by_value(T value); }; template fifo::fifo() : first(0), last(0), the_size(0) { } template fifo::~fifo() { while (first) { fifo_node *aux = first; first = first->next; // TODO ¿delete value? si: // delete aux->value; delete aux; } } template int fifo::size() const { return the_size; } template bool fifo::empty() const { return the_size == 0; } template void fifo::put(T value) { fifo_node *aux = new fifo_node(value); if (first) last->next = aux; else first = aux; last = aux; the_size++; } template bool fifo::get(T &value) { if (!first) return false; the_size--; value = first->value; if (first == last) last = 0; fifo_node *aux = first; first = first->next; delete aux; return true; } template bool fifo::consult(T &value) { if (!first) return false; value = first->value; return true; } template bool fifo::drop_by_value(T value) { fifo_node *prev = 0; fifo_node *reco = first; while (reco && reco->value != value) { prev = reco; reco = reco->next; } if (reco == 0) return false; // eliminar valor apuntado por reco the_size--; if (last == reco) last = prev; if (prev == 0) { first = reco->next; } else { prev->next = reco->next; } delete reco; // return true; } } #endif // FIFO_H april-ann-0.3.1/packages/basics/util/c_src/fifo_block.h000066400000000000000000000214671234204160600227420ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef FIFO_BLOCK_H #define FIFO_BLOCK_H #include "swap.h" namespace april_utils { /** * representa una cola fifo pero es una implementación hibrida entre * vector y listas enlazadas. Se trata de una lista de vectores de * talla fija (talla fifo_block_size) y requiere dos índices de * vector para indicar en qué posiciones del primer vector de la * lista, y en qué posición del último vector de la lista, se * encuentran los elementos a extraer y a insertar, respectivamente. */ template class fifo_block { struct fifo_block_node { T value[fifo_block_size]; fifo_block_node *next; fifo_block_node() : next(0) { } }; // atributos fifo_block_node *first, *last; int index_read; // pos siguiente lectura int index_write; // pos siguiente escritura // metodo auxiliar void internal_copy(const fifo_block& other) { // asumimos que nuestro objeto está ya vacio int other_read = other.index_read; // ahora recorremos los elementos de other const fifo_block_node *other_pointer = other.first; while (other_pointer != other.last || other_read < other.index_write) { put(other_pointer->value[other_read]); other_read++; if (other_read >= fifo_block_size) { other_read = 0; other_pointer = other_pointer->next; } } } public: typedef T value_type; typedef T* pointer; typedef T& reference; typedef const T& const_reference; typedef size_t size_type; typedef ptrdiff_t difference_type; struct block_iterator { friend class fifo_block; private: fifo_block_node *ptr; public: typedef T value_type; typedef T* pointer; typedef T& reference; typedef const T& const_reference; typedef ptrdiff_t difference_type; block_iterator(fifo_block_node *p=0): ptr(p) {} block_iterator& operator++() { // preincrement ptr = ptr->next; return *this; } T* operator *() { // dereference return ptr->value; } bool operator == (const block_iterator &i) { return ptr == i.ptr; } bool operator != (const block_iterator &i) { return ptr != i.ptr; } }; struct const_iterator; struct iterator { friend struct const_iterator; friend class fifo_block; private: int index; fifo_block_node *ptr; public: typedef T value_type; typedef T* pointer; typedef T& reference; typedef const T& const_reference; typedef ptrdiff_t difference_type; iterator(): index(0),ptr(0) {} iterator(int i, fifo_block_node *p): index(i),ptr(p) {} iterator& operator++() { // preincrement index++; if (index >= fifo_block_size) { index = 0; ptr = ptr->next; } return *this; } iterator operator++(int) { // postincrement int itmp = index; fifo_block_node *ptmp = ptr; index++; if (index >= fifo_block_size) { index = 0; ptr = ptr->next; } return iterator(itmp,ptmp); } T& operator *() { // dereference return ptr->value[index]; } T* operator ->() { return &(ptr->value[index]); } bool operator == (const iterator &i) { return index == i.index && ptr == i.ptr; } bool operator != (const iterator &i) { return index != i.index || ptr != i.ptr; } }; // closes struct iterator struct const_iterator { private: int index; const fifo_block_node *ptr; public: typedef T value_type; typedef T* pointer; typedef T& reference; typedef const T& const_reference; typedef ptrdiff_t difference_type; const_iterator(): index(0), ptr(0) {} const_iterator(int i, const fifo_block_node *p): index(i), ptr(p) {} const_iterator(const iterator &i): index(i.index), ptr(i.ptr) {} const_iterator& operator++() { // preincrement index++; if (index >= fifo_block_size) { index = 0; ptr = ptr->next; } } const_iterator operator++(int) { // postincrement int itmp = index; fifo_block_node *ptmp = ptr; index++; if (index >= fifo_block_size) { index = 0; ptr = ptr->next; } return const_iterator(itmp,ptmp); } const T& operator *() { // dereference return ptr->value[index]; } const T* operator ->() { return &(ptr->value[index]); } bool operator == (const const_iterator &i) { return index == i.index && ptr == i.ptr; } bool operator != (const const_iterator &i) { return index != i.index || ptr != i.ptr; } }; // closes struct const_iterator iterator begin() { return iterator(index_read,first); } iterator end() { return iterator(index_write,last); } const_iterator begin() const { return const_iterator(index_read,first); } const_iterator end() const { return const_iterator(index_write,last); } block_iterator block_begin() { return block_iterator(first); } block_iterator block_end() { return block_iterator(0); } size_type size() const { return count(); } size_type block_size() const { return fifo_block_size; } size_type max_size() const { return size_type(-1); } bool empty() const { return (first == last && index_read >= index_write); } void clear() { while (first) { fifo_block_node *aux = first; first = first->next; delete aux; } index_read = index_write = 0; last = 0; } bool is_end(const iterator &iter) const { return (iter.ptr == 0) || ((iter.ptr == last) && (iter.index == index_write)); } fifo_block(): first(0), last(0), index_read(0), index_write(0) {} fifo_block(const fifo_block& other) : first(0), last(0), index_read(0), index_write(0) { internal_copy(other); } ~fifo_block() { clear(); } fifo_block& operator=(const fifo_block& other) { // asignment operator if (&other != this) { clear(); internal_copy(other); } return *this; } T* put(const T& value) { if (last == 0 || index_write >= fifo_block_size) { fifo_block_node *aux = new fifo_block_node; ((last) ? last->next : first) = aux; last = aux; index_write = 0; } T *address = &(last->value[index_write]); last->value[index_write] = value; index_write++; return address; } void drop() { // CUIDADO! REQUIERE QUE NO ESTE VACIA index_read++; if (index_read >= fifo_block_size) { fifo_block_node *aux = first; if (last == first) last = 0; first = first->next; index_read = 0; delete aux; } } bool get(T &value) { if (empty()) return false; value = first->value[index_read]; drop(); return true; } bool consult(T &value) { if (empty()) return false; value = first->value[index_read]; return true; } int count() const { int i = index_read, c = 0; const fifo_block_node *p = first; while (p != last || i < index_write) { c++; i++; if (i >= fifo_block_size) { i = 0; p = p->next; } } return c; } void take_content_from(fifo_block& other) { if (&other != this) { clear(); first = other.first; last = other.last; index_read = other.index_read; index_write = other.index_write; other.first = other.last = 0; other.index_read = other.index_write= 0; } } void swap(fifo_block &other) { april_utils::swap(index_read, other.index_read); april_utils::swap(index_write, other.index_write); april_utils::swap(first, other.first); april_utils::swap(last, other.last); } bool contains_node(T *ptr) const { for (fifo_block_node *r = first; r!=0; r=r->next) if (r->value <= ptr && ptr < r->value+fifo_block_size) return true; return false; } }; // closes class fifo_block } // closes namespace april_utils #endif // FIFO_BLOCK_H april-ann-0.3.1/packages/basics/util/c_src/geometry.cc000066400000000000000000000037701234204160600226330ustar00rootroot00000000000000#include #include #include #include #include "geometry.h" namespace april_utils { const float infinity = std::numeric_limits::infinity(); template line::line(const Point &x, const Point &y) { float x1 = (float) x.x; float y1 = (float) x.y; float x2 = (float) y.x; float y2 = (float) y.y; if (x2 == x1) { fprintf(stderr, "Warning the slope is infinite"); m = infinity; } else { m = (y2 - y1)/(x2-x1); } b = y1 -m*x1; } // static line fromPolar(float phi, float r); /* void line::getPolars(float &phi, float &r) { //TODO return; }; */ Point2D line::intersection(const line &out, bool &intersect) { // Parallel form if (m == out.m){ intersect = false; return (Point2D(infinity, infinity)); } //FIXME: Infinite slope float m1 = m; float m2 = out.m; float b1 = b; float b2 = out.b; float x = (b2 - b1)/(m1-m2); float y = m1*x+b1; return Point2D(x,y); } template <> float line::distance(const Point &p) { float x = p.x; float y = p.y; return fabs(m*x+b-y)/sqrt(m*m+1);; } template <> float line::distance(const Point &p) { Point pf = Point(p); return this->distance(pf); } template Point2D line::closestPoint(const Point &p, float &dist) { int x1 = p.x; int y1 = p.y; // Extracted from: http://math.ucsd.edu/~wgarner/math4c/derivations/distance/distptline.htm float x = (m*y1+x1-m*b)/(m*m+1); float y = (m*m*y1+m*x1+b)/(m*m+1); dist = distance(p); return Point2D(x, y); } template <> Point2D line::closestPoint(const Point &p, float &dist) { Point pf = Point(p); return this->closestPoint(pf,dist); } } april-ann-0.3.1/packages/basics/util/c_src/geometry.h000066400000000000000000000042361234204160600224730ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez, Salvador España-Boquera, Joan Pastor-Pellicer * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef GEOMETRY_H #define GEOMETRY_H #include "pair.h" namespace april_utils { template struct Point { T x; T y; Point(T x, T y):x(x),y(y){}; Point(){}; Point(const Point &p){ x = static_cast(p.x); y = static_cast(p.y); }; }; typedef Point Point2D; // TODO: Define Point2D class line { protected: // Slope, y-intercept float m, b; public: line(float m, float b): m(m),b(b){}; template line(const Point &, const Point &); // static line fromPolar(float phi, float r); float getSlope() { return m; }; float getYintercept() { return b; }; //void getPolars(float &phi, float &r); Point2D intersection(const line &, bool &intersect); template Point2D closestPoint(const Point &, float &); template float distance(const Point &); //static void polarToRect(float , float , float &, float &); //static void rectToPolar(float, float , float &, float &); }; // TODO: Point/Angle Functions // Derivate interest_point Point2D } #endif april-ann-0.3.1/packages/basics/util/c_src/hash_table.h000066400000000000000000000373261234204160600227400ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef HASH_TABLE_H #define HASH_TABLE_H #include "aux_hash_table.h" #include // ceilf #include // ptrdiff_t, size_t... #include "pair.h" //#include #include "vector.h" /** \namespace april_utils esto es una prueba */ namespace april_utils { // HashFcn es del tipo: // struct hash_fcn { // unsigned int operator()(const char* s1) const { // return blah...; // } // }; // EqualKey es del tipo: // struct eqstr { // bool operator()(const char* s1, const char* s2) const { // return strcmp(s1, s2) == 0; // } // }; template , typename EqualKey = default_equality_comparison_function > class hash { public: // Para ser un "Pair associative container" el value_type deberia ser // un std::pair. typedef KeyType key_type; typedef DataType data_type; typedef pair value_type; typedef value_type& reference; typedef const reference const_reference; typedef value_type* pointer; typedef ptrdiff_t difference_type; typedef size_t size_type; struct node { value_type value; node *next; node(const KeyType& k, const DataType& d, node *n): value(k,d), next(n) {} node(const node& other): value(other.value.first, other.value.second), next(other.next){} }; private: node **buckets; // vector of pointers to node int num_buckets;// a power of 2 int hash_mask; // useful to do "& hash_mask" instead of "% num_buckets" int the_size; int rehash_threshold; float max_load_factor; // for rehashing purposes int first_power_of_2(int value);// auxiliary function void copy_buckets(const hash&); // auxiliary function HashFcn hash_function; EqualKey equal_key; public: hash(int nbckts=8, float mxloadf=4.0); // constructor hash(const hash&); // copy constructor ~hash(); // destructor hash& operator=(const hash&); // assignment operator void clear(); // Erases all of the elements. data_type* find(const key_type& k) const; value_type* find_pair(const key_type& k) const; bool search(const key_type& k) const { return find_pair(k) != 0; } void erase(const key_type& k); template void delete_if(predicate &p); // bool operator==(const hash&) const; // tests two hash for equality. value_type* find_and_add_pair(const key_type& k, bool &isNew); data_type& operator[] (const key_type& k) { bool dummy; return find_and_add_pair(k,dummy)->second; } // devuelve true si se acaba de crear bool insert(const key_type& k, const data_type& d) { bool resul; find_and_add_pair(k,resul)->second = d; return resul; } void resize(int n); // rehash, num_buckets at least n after resize int bucket_count() const { // Returns the number of buckets used by the hash return num_buckets; } int size() const { // Returns the size of the hash return the_size; } bool empty() const { return the_size == 0; } float get_max_load_factor() const { return max_load_factor; } int get_num_buckets() const { return num_buckets; } void get_hash_nodes(vector &output_vector) const; class const_iterator; class iterator { friend class const_iterator; friend class hash; hash *h; int index; node *ptr; iterator(hash *h, int index, node *ptr): h(h), index(index), ptr(ptr) {} public: // Para ser un "Pair associative container" el value_type deberia ser // un std::pair. Bueno, que le vamos a hacer :_( typedef KeyType key_type; typedef DataType data_type; typedef pair value_type; typedef value_type& reference; typedef const reference const_reference; typedef value_type* pointer; typedef ptrdiff_t difference_type; typedef size_t size_type; //typedef std::forward_iterator_tag iterator_category; iterator(): h(0), index(0), ptr(0) {} iterator(const iterator &other): h(other.h), index(other.index), ptr(other.ptr) {} iterator& operator=(const iterator &other) { if (&other != this) { h = other.h; index = other.index; ptr = other.ptr; } return *this; } iterator& operator++(){ // preincrement ptr = ptr->next; while (ptr == 0) { index++; if (index < h->num_buckets) ptr = h->buckets[index]; else break; } return *this; } iterator operator++(int){ // postincrement iterator tmp(*this); ++(*this); return tmp; } value_type& operator *() { //dereference return ptr->value; } value_type* operator ->() { return &(ptr->value); } bool operator == (const iterator &other) { return ((ptr == other.ptr) && (h == other.h) && (index == other.index)); } bool operator != (const iterator &other) { return ((ptr != other.ptr) || (h != other.h) || (index != other.index)); } }; class const_iterator { friend class hash; const hash *h; int index; const node *ptr; const_iterator(hash *h, int index, node *ptr): h(h), index(index), ptr(ptr) {} public: // Para ser un "Pair associative container" el value_type deberia ser // un std::pair. Bueno, que le vamos a hacer :_( typedef KeyType key_type; typedef DataType data_type; typedef pair value_type; typedef value_type& reference; typedef const reference const_reference; typedef value_type* pointer; typedef ptrdiff_t difference_type; typedef size_t size_type; //typedef std::forward_iterator_tag iterator_category; const_iterator(): h(0), index(0), ptr(0) {} // Copy constructor (from iterator and const_iterator) const_iterator(const iterator &other): h(other.h), index(other.index), ptr(other.ptr) {} const_iterator(const const_iterator &other): h(other.h), index(other.index), ptr(other.ptr) {} // Assignment operators const_iterator& operator=(const iterator &other) { h = other.h; index = other.index; ptr = other.ptr; return *this; } const_iterator& operator=(const const_iterator &other) { h = other.h; index = other.index; ptr = other.ptr; return *this; } const_iterator& operator++(){ // preincrement ptr = ptr->next; while (ptr == 0) { index++; if (index < h->num_buckets) ptr = h->buckets[index]; else break; } return *this; } const_iterator operator++(int){ // postincrement const_iterator tmp(*this); ++(*this); return tmp; } const value_type& operator *() { //dereference return ptr->value; } const value_type* operator ->() { return &(ptr->value); } // Eq comparisons bool operator == (const iterator &other) const { return ((ptr == other.ptr) && (h == other.h) && (index == other.index)); } bool operator == (const const_iterator &other) const { return ((ptr == other.ptr) && (h == other.h) && (index == other.index)); } bool operator != (const iterator &other) const { return ((ptr != other.ptr) || (h != other.h) || (index != other.index)); } bool operator != (const const_iterator &other) const { return ((ptr != other.ptr) || (h != other.h) || (index != other.index)); } }; iterator begin() { int i=0; node *ptr = buckets[0]; while (ptr == 0) { i++; if (i < num_buckets) ptr = buckets[i]; else break; } return iterator(this, i, ptr); } private: iterator end_iterator; public: iterator end() { return end_iterator; } }; template int hash::first_power_of_2(int value) { int result = 1; while (result < value) result += result; return result; } template hash::hash(int nbckts, float mxloadf) { num_buckets = first_power_of_2(nbckts); hash_mask = num_buckets-1; // num_buckets is a power of 2 the_size = 0; max_load_factor = mxloadf; rehash_threshold= (int)ceilf(max_load_factor*num_buckets); buckets = new node*[num_buckets]; end_iterator = iterator(this, num_buckets, 0); for (int i=0; i inline void hash::copy_buckets(const hash& other) { // auxiliary function // num_buckets == other.num_buckets is assumed for (int i=0; inext) { *totail = new node(*reco); // **totail = *reco; // shallow copy totail = &((*totail)->next); } *totail = 0; } } template hash::hash(const hash& other) { // copy constructor num_buckets = other.num_buckets; hash_mask = other.hash_mask; the_size = other.the_size; max_load_factor = other.max_load_factor; rehash_threshold= other.rehash_threshold; buckets = new node* [num_buckets]; end_iterator = iterator(this, num_buckets, 0); copy_buckets(other); } template void hash::clear() { // Erases all of the elements. if (!empty()) { for (int i=0; inext; delete aux; } the_size = 0; } } // recibe un vector y deposita en el las direcciones de todos los // nodos de la tabla, alternativa a usar un iterador para recorrer // toda la tabla, que quizas seria lo mas elegante y adecuado template void hash::get_hash_nodes(vector &output_vector) const { output_vector.clear(); if (!empty()) { for (int i=0; inext) output_vector.push_back(&r->value); } } template hash& hash::operator=(const hash& other) { // The assignment operator if (this != &other) { clear(); if (num_buckets != other.num_buckets) { delete[] buckets; num_buckets = other.num_buckets; buckets = new node* [num_buckets]; } end_iterator = iterator(this, num_buckets, 0); hash_mask = other.hash_mask; the_size = other.the_size; max_load_factor = other.max_load_factor; rehash_threshold= other.rehash_threshold; copy_buckets(other); } return *this; } template hash::~hash() { // destructor clear(); delete[] buckets; } // template // bool hash::operator==(const hash&) const { // Tests two hash for equality. // if (size() != other.size()) return false; // // equal size, look for inclusion // for (int i=0; inext) { // const node *p = other.find(reco->value.first); // if (!p || reco->value.first != p->value.first) // falta comparar campo data!!!! // return false; // } // return true; // } template dt* hash::find(const ky& k) const { value_type* p = find_pair(k); return p ? &(p->second) : 0; } template pair* hash::find_pair(const ky& k) const { unsigned int index = hash_function(k) & hash_mask; for (node* reco = buckets[index]; reco != 0; reco = reco->next) if (equal_key(k,reco->value.first)) return &(reco->value); return 0; } template void hash::erase(const ky& k) { unsigned int index = hash_function(k) & hash_mask; for (node** reco = &buckets[index]; *reco != 0; reco = &((*reco)->next)) if (equal_key(k,(*reco)->value.first)) { node* aux = *reco; *reco = (*reco)->next; delete aux; the_size--; return; } return; } template pair* hash::find_and_add_pair(const ky& k, bool &isNew) { unsigned int index = hash_function(k) & hash_mask; for (node* reco = buckets[index]; reco != 0; reco = reco->next) if (equal_key(k,reco->value.first)) { isNew = false; return &(reco->value); } node* newnode = new node(k, dt(), buckets[index]); buckets[index]= newnode; the_size++; if (the_size >= rehash_threshold) // rehashing? resize(2*num_buckets); isNew = true; return &(newnode->value); } template void hash::resize(int n) { n = first_power_of_2(n); if (n != num_buckets) { node **old_buckets = buckets; int old_num_buckets= num_buckets; num_buckets = n; end_iterator= iterator(this, num_buckets, 0); hash_mask = n-1; rehash_threshold= (int)ceilf(max_load_factor*num_buckets); buckets = new node* [num_buckets]; for (int i=0; inext; unsigned int index = hash_function(aux->value.first) & hash_mask; aux->next = buckets[index]; buckets[index] = aux; } delete[] old_buckets; } } template template void hash::delete_if(predicate &p) { for (int i=0; ivalue)) { if (prev == 0) buckets[i] = cur->next; else prev->next = cur->next; node *tmp = cur; cur = cur->next; // prev sigue siendo el mismo al borrar cur delete tmp; } else { prev = cur; cur = cur->next; } } } } } // namespace april_utils #endif // HASH_TABLE_H april-ann-0.3.1/packages/basics/util/c_src/ignore_result.h000066400000000000000000000020621234204160600235140ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef IGNORE_RESULT_H #define IGNORE_RESULT_H inline void ignore_result_helper(int __attribute__((unused)) dummy, ...) { } #define IGNORE_RESULT(X) ignore_result_helper(0, (X)) #endif // IGNORE_RESULT_H april-ann-0.3.1/packages/basics/util/c_src/linear_least_squares.cc000066400000000000000000000027151234204160600252030ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ // f(x) = a + b*x // // n*sum(xi*yi) - (sum(xi)*sum(yi)) // b = -------------------------------- // n*sum(xi^2) - (sum(xi))^2 // // a = sum(yi)/n - b*(sum(xi)/n) #include "linear_least_squares.h" void least_squares(double x[], double y[], int numPoints, double &a, double &b) { double sum_xi=0, sum_yi=0, sum_xi_2=0, sum_xi_yi=0; for (int i=0; i #include "swap.h" #ifdef USE_ITERATOR_TAGS #include #endif namespace april_utils { namespace list_aux_templates{ class _true_type {}; class _false_type {}; template struct is_integer{ typedef _false_type type; }; template<> struct is_integer { typedef _true_type type; }; template<> struct is_integer { typedef _true_type type; }; template<> struct is_integer { typedef _true_type type; }; template<> struct is_integer { typedef _true_type type; }; template<> struct is_integer { typedef _true_type type; }; template<> struct is_integer { typedef _true_type type; }; template<> struct is_integer { typedef _true_type type; }; template<> struct is_integer { typedef _true_type type; }; template<> struct is_integer { typedef _true_type type; }; template<> struct is_integer{ typedef _true_type type; }; } // Be careful! It's not std::list :) // Implements Reversible Container, Front Insertion Sequence and Back Insertion Sequence template class list { // Linked-list nodes struct node { T data; node *prev; node *next; // Constructor node(): data(T()), prev(this), next(this) {} node(T t, node* p, node *n):data(t), prev(p), next(n) {} }; // Circular list implementation node sentinel; size_t list_size; void init_list() { sentinel.prev = &sentinel; sentinel.next = &sentinel; list_size = 0; } // Some template magic in order to distinguish list(iterator, iterator) from list(int, int) // in template list(InputIterator, InputIterator) public: typedef T value_type; //< The type of object, T, stored in the list. typedef T* pointer; //< Pointer to T. typedef T& reference; //< Reference to T. typedef const T& const_reference; //< Const reference to T typedef size_t size_type; //< An unsigned integral type. typedef ptrdiff_t difference_type; //< A signed integral type. // Bidirectional containers must define iterator, const_iterator AND // reverse_iterator, const_reverse_iterator. // FIXME: Equality comparison between iterator and const_iterator is broken /// Iterator used to iterate through a list. struct iterator { friend class list; //private: node *ptr; public: typedef T value_type; typedef T* pointer; typedef T& reference; typedef const T& const_reference; typedef ptrdiff_t difference_type; #ifdef USE_ITERATOR_TAGS typedef std::bidirectional_iterator_tag iterator_category; #endif iterator(): ptr(0) {} iterator(void *p): ptr(static_cast(p)) {} iterator& operator++() { // preincrement ptr = ptr->next; return *this; } iterator operator++(int) { // postincrement node *tmp = ptr; ptr = ptr->next; return iterator(tmp); } iterator& operator--() { // predecrement ptr = ptr->prev; return *this; } iterator operator--(int) { // postdecrement node *tmp = ptr; ptr = ptr->prev; return iterator(tmp); } T& operator *() const { // dereference return ptr->data; } T* operator ->() const { return &(ptr->data); } bool operator == (const iterator &i) const { return ptr == i.ptr; } bool operator != (const iterator &i) const { return ptr != i.ptr; } }; /// Const iterator used to iterate through a list. struct const_iterator { friend class list; //private: const node *ptr; const_iterator(const node *p): ptr(p) {} public: typedef T value_type; typedef const T* pointer; typedef const T& reference; typedef const T& const_reference; typedef ptrdiff_t difference_type; #ifdef USE_ITERATOR_TAGS typedef std::bidirectional_iterator_tag iterator_category; #endif const_iterator(const iterator &i): ptr(i.ptr) {} const_iterator(iterator &i): ptr(i.ptr) {} const_iterator& operator++() { // preincrement ptr = ptr->next; return *this; } const_iterator operator++(int) { // postincrement const node *tmp = ptr; ptr = ptr->next; return const_iterator(tmp); } const_iterator& operator--() { // predecrement ptr = ptr->prev; return *this; } const_iterator operator--(int) { // postdecrement node *tmp = ptr; ptr = ptr->prev; return const_iterator(tmp); } reference operator *() const { // dereference return ptr->data; } pointer operator ->() const { return &(ptr->data); } bool operator == (const const_iterator &i) const { return ptr == i.ptr; } bool operator != (const const_iterator &i) const { return ptr != i.ptr; } }; /// Iterator used to iterate backwards through a list. struct reverse_iterator { // deberia heredar de std::bidirectional_iterator friend class list; //private: iterator current; /// private constructor. we don't want reverse iterators created from iterators :) reverse_iterator(const iterator &i): current(i) {} public: typedef T value_type; typedef T* pointer; typedef T& reference; typedef const T& const_reference; typedef ptrdiff_t difference_type; #ifdef USE_ITERATOR_TAGS typedef std::bidirectional_iterator_tag iterator_category; #endif reverse_iterator(const reverse_iterator &other): current(other.current) {} reverse_iterator& operator++() { // preincrement --current; return *this; } reverse_iterator operator++(int) { // postincrement iterator tmp(current); --current; return reverse_iterator(tmp); } reverse_iterator& operator--() { // predecrement ++current; return *this; } reverse_iterator operator--(int) { // postdecrement iterator tmp(current); ++current; return reverse_iterator(tmp); } reference operator *() const { // dereference iterator tmp(current); return *(--tmp); } pointer operator ->() const { return &(operator*()); } iterator base() { return current; } bool operator == (const reverse_iterator &other) const { return current == other.current; } bool operator != (const reverse_iterator &other) const { return current != other.current; } }; /// Iterator used to iterate backwards through a list. struct const_reverse_iterator { // deberia heredar de std::bidirectional_iterator friend class list; //private: const_iterator current; /// private constructor. we don't want reverse iterators created from iterators :) const_reverse_iterator(const const_iterator &ci): current(ci) {} public: typedef T value_type; typedef const T* pointer; typedef const T& reference; typedef const T& const_reference; typedef ptrdiff_t difference_type; #ifdef USE_ITERATOR_TAGS typedef std::bidirectional_iterator_tag iterator_category; #endif const_reverse_iterator(const const_reverse_iterator &other): current(other.current) {} const_reverse_iterator& operator++() { // preincrement --current; return *this; } const_reverse_iterator operator++(int) { // postincrement const_iterator tmp(current); --current; return const_reverse_iterator(tmp); } const_reverse_iterator& operator--() { // predecrement ++current; return *this; } const_reverse_iterator operator--(int) { // postdecrement const_iterator tmp(current); ++current; return const_reverse_iterator(tmp); } reference operator *() const { // dereference iterator tmp(current); return *(--tmp); } pointer operator ->() const { return &(operator*()); } iterator base() { return current; } bool operator == (const reverse_iterator &other) const { return current == other.current; } bool operator != (const reverse_iterator &other) const { return current != other.current; } }; /// Returns an iterator pointing to the beginning of the list. iterator begin() { return iterator(sentinel.next); } /// Returns an iterator pointing to the end of the list. iterator end() { return iterator(&sentinel); } /// Returns a const iterator pointing to the beginning of the list. const_iterator begin() const { return const_iterator(sentinel.next); } /// Returns a const iterator pointing to the end of the list. const_iterator end() const { return const_iterator(&sentinel); } /// Returns a reverse iterator pointing to the beginning of the reversed list. reverse_iterator rbegin() { return reverse_iterator(end()); } /// Returns a reverse iterator pointing to the end of the reversed list. reverse_iterator rend() { return reverse_iterator(begin()); } /// Returns a const reverse iterator pointing to the beginning of the reversed list. const_reverse_iterator rbegin() const { return const_reverse_iterator(end()); } /// Returns a const reverse iterator pointing to the end of the reversed list. const_reverse_iterator rend() const { return const_reverse_iterator(begin()); } /// Returns the size of the list. This is not required to be constant time /// by the standard. However, this is NOT std::list, and we have decided to /// keep size() constant time at the expense of having linear time splices. size_type size() const { return list_size; } /// Returns the largest possible size of the list. size_type max_size() const { return size_type(-1); } /// true if the list's size is 0. bool empty() const { return (list_size==0); } /// Creates an empty list. list() { init_list(); } /// Creates a list with n elements, each of which is a copy of T(). list(size_type n) { init_list(); for (size_type i=0; i void init_dispatch(I n, I x, list_aux_templates::_true_type) { init_fill(static_cast(n), static_cast(x)); } template void init_dispatch(InputIterator f, InputIterator l, list_aux_templates::_false_type) { init_range(f,l); } void init_fill(size_type n, const_reference t) { init_list(); for (size_type i=0; i void init_range(InputIterator f, InputIterator l) { init_list(); for (; f != l; f++) { push_back(*f); } } public: template list(InputIterator f, InputIterator l) { // Check if it's an integer type. If it's integer, it's not an iterator typedef typename list_aux_templates::is_integer::type IsInteger; init_dispatch(f,l, IsInteger()); } /// The destructor. ~list() { clear(); } /// The assignment operator list &operator=(const list &l){ if (l != *this) { clear(); for (iterator i = l.begin(); i != l.end(); i++) push_back(*i); } return *this; } /// Returns the first element. /// Precondition: !empty() reference front() { return sentinel.next->data; } /// Returns the first element. /// Precondition: !empty() const_reference front() const { return sentinel.next->data; } /// Returns the last element. /// Precondition: !empty() reference back() { return sentinel.prev->data; } /// Returns the last element. /// Precondition: !empty() const_reference back() const { return sentinel.prev->data; } /// Inserts a new element at the beginning. void push_front(const_reference t) { insert(begin(), t); } /// Inserts a new element at the end. void push_back(const_reference t) { insert(end(), t); } /// Removes the first element. /// Precondition: !empty() void pop_front() { erase(begin()); } /// Removes the last element. /// Precondition: !empty() void pop_back() { erase(iterator(sentinel.prev)); } /// Swaps the contents of two lists. void swap(list &l){ node *first, *first_l; node *last, *last_l; first = sentinel.next; first_l = l.sentinel.next; last = sentinel.prev; last_l = l.sentinel.prev; april_utils::swap(first->prev, first_l->prev); april_utils::swap(last->next, last_l->next); april_utils::swap(sentinel.prev, l.sentinel.prev); april_utils::swap(sentinel.next, l.sentinel.next); april_utils::swap(list_size, l.list_size); } /// Inserts x before pos. /// Returns an iterator pointing to the inserted element iterator insert(iterator pos, const T& x) { node *ptr = pos.ptr; node *tmp = new node(x, ptr->prev, ptr); ptr->prev->next = tmp; ptr->prev = tmp; list_size++; return iterator(tmp); } private: template void insert_dispatch(iterator pos, I n, I x, list_aux_templates::_true_type) { insert_copies(pos, static_cast(n), static_cast(x)); } template void insert_dispatch(iterator pos, InputIterator f, InputIterator l, list_aux_templates::_false_type) { insert_range(pos, f,l); } /// Inserts n copies of x before pos void insert_copies(iterator pos, size_type n, const_reference x) { for (size_type i = 0; i < n; i++) insert(pos, x); } /// Inserts the range [f, l) before pos template void insert_range(iterator pos, InputIterator f, InputIterator l) { for (InputIterator i = f; i != l; i++) insert(pos, *i); } public: /// Inserts the range [f, l) before pos. template void insert(iterator pos, InputIterator f, InputIterator l) { typedef typename list_aux_templates::is_integer::type IsInteger; insert_dispatch(pos, f, l, IsInteger()); } /// Inserts n copies of x before pos. void insert(iterator pos, size_type n, const T& x) { insert_copies(pos, n, x); } /// Erases the element at position pos. /// Returns an iterator to the element immediately following the one that /// was erased. /// Precondition: pos must be a dereferenceable iterator iterator erase(iterator pos) { node *ptr = pos.ptr; node *next = ptr->next; ptr->prev->next = ptr->next; ptr->next->prev = ptr->prev; delete ptr; list_size--; return iterator(next); } /// Erases the elements in range [first, last) /// Returns last iterator erase(iterator first, iterator last) { while(first != last) first = erase(first); return last; } /// Erases all of the elements. void clear() { erase(begin(), end()); } /// Inserts or erases elements at the end such that the size becomes n. void resize(int n, T x=T()) { if (list_size < n) { while (list_size < n) { push_back(x); } } else if (list_size > n) { while (list_size > n) { pop_back(); } } list_size = n; } /// position must be a valid iterator in *this, and x must be a list that /// is distinct from *this. (That is, it is required that &x != this.) All of /// the elements of x are inserted before position and removed from x. All /// iterators remain valid, including iterators that point to elements of x. /// NOTE: This function is linear time in order to keep size() constant time void splice(iterator position, list& x) { splice(position, x, x.begin(), x.end()); } /// position must be a valid iterator in *this, and i must be a /// dereferenceable iterator in x. Splice moves the element pointed to by i /// from x to *this, inserting it before position. All iterators remain /// valid, including iterators that point to elements of x. If position /// == i or position == ++i, this function is a null operation. This function /// is linear time in order to keep size() constant time. void splice(iterator position, list& x, iterator i) { iterator first,last; first = i; last = ++i; splice(position, x, first, last); } /// position must be a valid iterator in *this, and [first, last) must be /// a valid range in x. position may not be an iterator in the range [first, /// last). Splice moves the elements in [first, last) from x to *this, /// inserting them before position. All iterators remain valid, including /// iterators that point to elements of x. [3] This function is linear /// time in order to keep size() constant time. void splice(iterator position, list& x, iterator f, iterator l) { node *pos = position.ptr; node *first = f.ptr; node *last = l.ptr->prev; // we're supposed to check if *this and x use the same allocators, // but this is not the STL and we don't have allocators, so x is not used // (iterators are sufficient) int count=0; for (iterator i = f; i != l; i++) ++count; x.list_size -= count; this->list_size += count; first->prev->next = last->next; last->next->prev = first->prev; first->prev = pos->prev; last->next = pos; pos->prev->next = first; pos->prev = last; } /// Removes all elements that compare equal to val. The relative order of /// elements that are not removed is unchanged, and iterators to elements /// that are not removed remain valid. This function is linear time: it /// performs exactly size() comparisons for equality. void remove(const T& val) { iterator i = begin(); while(i != end()) { if (*i == val) i = erase(i); else i++; } } /// Removes all elements *i such that p(*i) is true. The relative order of /// elements that are not removed is unchanged, and iterators to elements /// that are not removed remain valid. This function is linear time: it /// performs exactly size() applications of p. template void remove_if(Predicate p) { iterator i = begin(); while(i != end()) { if (p(*i)) i = erase(i); else i++; } } /// Removes all but the first element in every consecutive group of equal /// elements. The relative order of elements that are not removed is /// unchanged, and iterators to elements that are not removed remain valid. /// This function is linear time: it performs exactly size() - 1 comparisons /// for equality. void unique(); /// Removes all but the first element in every consecutive group of /// equivalent elements, where two elements *i and *j are considered /// equivalent if p(*i, *j) is true. The relative order of elements that are /// not removed is unchanged, and iterators to elements that are not removed /// remain valid. This function is linear time: it performs exactly size() - /// 1 comparisons for equality. template void unique(BinaryPredicate p); /// Both *this and x must be sorted according to operator<, and they must /// be distinct. (That is, it is required that &x != this.) This function /// removes all of x's elements and inserts them in order into *this. The /// merge is stable; that is, if an element from *this is equivalent to one /// from x, then the element from *this will precede the one from x. All /// iterators to elements in *this and x remain valid. This function is /// linear time: it performs at most size() + x.size() - 1 comparisons. void merge(list& x); /// Comp must be a comparison function that induces a strict weak ordering /// (as defined in the LessThan Comparable requirements) on objects of type /// T, and both *this and x must be sorted according to that ordering. The /// lists x and *this must be distinct. (That is, it is required that &x != /// this.) This function removes all of x's elements and inserts them in /// order into *this. The merge is stable; that is, if an element from *this /// is equivalent to one from x, then the element from *this will precede the /// one from x. All iterators to elements in *this and x remain valid. This /// function is linear time: it performs at most size() + x.size() - 1 /// applications of Comp. template void merge(list& x, BinaryPredicate Comp); /// Reverses the order of elements in the list. All iterators remain valid /// and continue to point to the same elements. This function is linear /// time. void reverse(); /// Sorts *this according to operator<. The sort is stable, that is, the /// relative order of equivalent elements is preserved. All iterators remain /// valid and continue to point to the same elements. [6] The number of /// comparisons is approximately N log N, where N is the list's size. void sort(); /// Comp must be a comparison function that induces a strict weak ordering /// (as defined in the LessThan Comparable requirements on objects of type T. /// This function sorts the list *this according to Comp. The sort is stable, /// that is, the relative order of equivalent elements is preserved. All /// iterators remain valid and continue to point to the same elements. [6] /// The number of comparisons is approximately N log N, where N is the list's /// size. template void sort(BinaryPredicate comp); }; } // namespace april_utils #endif april-ann-0.3.1/packages/basics/util/c_src/logbase.h000066400000000000000000000021061234204160600222460ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef LOGBASE_H #define LOGBASE_H #ifdef ASSERT_LOGBASE_ZERO #include "logbase_assert.h" #else #ifdef ABSOLUTE_ZERO_LOGBASE #include "logbase_zero.h" #else #include "logbase_standard.h" #endif #endif #endif // LOGBASE_H april-ann-0.3.1/packages/basics/util/c_src/logbase_assert.h000066400000000000000000000317741234204160600236440ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef LOGBASE_ASSERT_H #define LOGBASE_ASSERT_H #include "april_assert.h" #include #include // Esta clase representa valores numéricos en base logarítmica. // Por tanto, sólo tiene sentido para representar números >0 // aunque el 0 se aproxima por un valor muy cercano. class log_double; // forward declaration class log_float { float raw_value; // nota: el minimo numero float no denormal es 1.2e-38 static const float floatnearzero = 1e-37; static const float rawscorenearzero = -99; static const float rawscorezero = -1e12; static const float rawscoreone = 0; public: log_float(float x) : raw_value(x) {} log_float() : raw_value(rawscorezero) {} static log_float zero() { return log_float(rawscorezero); } static log_float one() { return log_float(rawscoreone); } static log_float from_float(float value) { return log_float((value < floatnearzero) ? rawscorezero : ::log(value)); } float to_float() const { return expf(raw_value); } double to_double() const { return exp((double)raw_value); } float log() const { return raw_value; } log_float raise_to(float exponent) { float aux = raw_value*exponent; april_assert(aux >= rawscorezero); return log_float(aux); } // arithmetic operations friend log_float operator + (const log_float &x, const log_float &y); friend log_float operator * (const log_float &x, const log_float &y); friend log_float operator / (const log_float &x, const log_float &y); friend log_float operator - (const log_float &x, const log_float &y); log_float operator += (const log_float &y) { *this = *this + y; april_assert(raw_value >= rawscorezero); return *this; } log_float operator += (const log_double &y); log_float operator *= (const log_float &y) { *this = *this * y; april_assert(raw_value >= rawscorezero); return *this; } log_float operator *= (const log_double &y); log_float operator /= (const log_float &y) { *this = *this / y; april_assert(raw_value >= rawscorezero); return *this; } log_float operator /= (const log_double &y); log_float operator -= (const log_float &y) { *this = *this - y; april_assert(raw_value >= rawscorezero); return *this; } log_float operator -= (const log_double &y); // comparison operations friend bool operator == (const log_float &x, const log_float &y); friend bool operator != (const log_float &x, const log_float &y); friend bool operator >= (const log_float &x, const log_float &y); friend bool operator <= (const log_float &x, const log_float &y); friend bool operator > (const log_float &x, const log_float &y); friend bool operator < (const log_float &x, const log_float &y); // conversion operator float() const { return raw_value; } operator double() const { return (double)raw_value; } operator unsigned int() const { return (unsigned int)(raw_value); } // assignment log_float &operator = (float &value) { raw_value = value; april_assert(raw_value >= rawscorezero); return *this; } log_float &operator = (double &value) { raw_value = value; april_assert(raw_value >= rawscorezero); return *this; } log_float &operator = (const log_double &value); }; class log_double { friend class log_float; double raw_value; // nota: el minimo numero float no denormal es 1.2e-38 static const double doublenearzero = 1e-37; static const double rawscorenearzero = -85; static const double rawscorezero = -1e8; static const double rawscoreone = 0; public: log_double(double x) : raw_value(x) {} log_double(const log_float& f): raw_value(double(f)) {} log_double() : raw_value(rawscorezero) {} static log_double from_double(double value) { return log_double((value < doublenearzero) ? rawscorezero : ::log(value)); } static log_double zero() { return log_double(rawscorezero); } static log_double one() { return log_double(rawscoreone); } double to_double() const { return exp(raw_value); } float to_float() const { return expf((float)raw_value); } double log() const { return raw_value; } // arithmetic operations log_double raise_to(double exponent) { double aux = raw_value*exponent; april_assert(aux >= rawscorezero); return log_double(aux); } friend log_double operator + (const log_double &x, const log_double &y); friend log_double operator * (const log_double &x, const log_double &y); friend log_double operator / (const log_double &x, const log_double &y); friend log_double operator - (const log_double &x, const log_double &y); log_double operator += (const log_double &y) { *this = *this * y; april_assert(raw_value >= rawscorezero); return *this; } log_double operator *= (const log_double &y) { *this = *this * y; april_assert(raw_value >= rawscorezero); return *this; } log_double operator /= (const log_double &y) { *this = *this / y; april_assert(raw_value >= rawscorezero); return *this; } log_double operator -= (const log_double &y) { *this = *this - y; april_assert(raw_value >= rawscorezero); return *this; } // comparison operations friend bool operator == (const log_double &x, const log_double &y); friend bool operator != (const log_double &x, const log_double &y); friend bool operator >= (const log_double &x, const log_double &y); friend bool operator <= (const log_double &x, const log_double &y); friend bool operator > (const log_double &x, const log_double &y); friend bool operator < (const log_double &x, const log_double &y); /* // conversion operator double() const { return raw_value; } operator float() const { return (float)raw_value; } operator log_float() const { return log_float((float)raw_value); } */ // assignment log_double &operator = (double &value) { raw_value = value; april_assert(raw_value >= rawscorezero); return *this; } log_double &operator = (float &value) { raw_value = (double)value; april_assert(raw_value >= rawscorezero); return *this; } log_double &operator = (log_float &value) { raw_value = (float)value; april_assert(raw_value >= rawscorezero); return *this; } }; //--------- // arithmetic operations log_float operator + (const log_float &x, const log_float &y); log_float operator - (const log_float &x, const log_float &y); log_float operator * (const log_float &x, const log_float &y); log_float operator / (const log_float &x, const log_float &y); // comparison operations bool operator == (const log_float &x, const log_float &y); bool operator != (const log_float &x, const log_float &y); bool operator >= (const log_float &x, const log_float &y); bool operator <= (const log_float &x, const log_float &y); bool operator > (const log_float &x, const log_float &y); bool operator < (const log_float &x, const log_float &y); // arithmetic operations log_double operator + (const log_double &x, const log_double &y); log_double operator - (const log_double &x, const log_double &y); log_double operator * (const log_double &x, const log_double &y); log_double operator / (const log_double &x, const log_double &y); // comparison operations bool operator == (const log_double &x, const log_double &y); bool operator != (const log_double &x, const log_double &y); bool operator >= (const log_double &x, const log_double &y); bool operator <= (const log_double &x, const log_double &y); bool operator > (const log_double &x, const log_double &y); bool operator < (const log_double &x, const log_double &y); //--------------------------------------------------------------- inline log_float& log_float::operator = (const log_double &value) { raw_value = (float)value.raw_value; april_assert(raw_value >= rawscorezero); return *this; } // arithmetic operations inline float logadd1(float x) { // invocamos esta función siempre para x<=0 return log1p(exp(x)); } inline float log1sub(float x) { return log1p(-exp(x)); } inline log_float operator + (const log_float &x, const log_float &y) { log_float result = (x.raw_value > y.raw_value) ? log_float(x.raw_value + logadd1(y.raw_value - x.raw_value)) : log_float(y.raw_value + logadd1(x.raw_value - y.raw_value)); assert (result >= log_float::zero()); return result; } inline log_float operator - (const log_float &x, const log_float &y) { assert (x.raw_value >= y.raw_value); log_float result = log_float(x.raw_value + log1sub(y.raw_value - x.raw_value)); assert (result >= log_float::zero()); return result; } inline log_float operator * (const log_float &x, const log_float &y) { log_float result = log_float(x.raw_value + y.raw_value); assert (result >= log_float::zero()); return result; } inline log_float operator / (const log_float &x, const log_float &y) { log_float result = log_float(x.raw_value - y.raw_value); assert (result >= log_float::zero()); return result; } // comparison operations inline bool operator == (const log_float &x, const log_float &y) { return (x.raw_value == y.raw_value); } inline bool operator != (const log_float &x, const log_float &y) { return (x.raw_value != y.raw_value); } inline bool operator <= (const log_float &x, const log_float &y) { return (x.raw_value <= y.raw_value); } inline bool operator >= (const log_float &x, const log_float &y) { return (x.raw_value >= y.raw_value); } inline bool operator < (const log_float &x, const log_float &y) { return (x.raw_value < y.raw_value); } inline bool operator > (const log_float &x, const log_float &y) { return (x.raw_value > y.raw_value); } inline double logadd1(double x) { return log1p(exp(x)); } inline double log1sub(double x) { return log1p(-exp(x)); } inline log_double operator + (const log_double &x, const log_double &y) { log_double result = (x.raw_value > y.raw_value) ? log_double(x.raw_value + logadd1(y.raw_value - x.raw_value)) : log_double(y.raw_value + logadd1(x.raw_value - y.raw_value)); april_assert(result >= log_float::zero()); return result; } inline log_double operator - (const log_double &x, const log_double &y) { if (x.raw_value < y.raw_value) { // TODO: report error } log_double result = log_double(x.raw_value + log1sub(y.raw_value - x.raw_value)); april_assert(result >= log_float::zero()); return result; } inline log_double operator * (const log_double &x, const log_double &y) { log_double result = log_double(x.raw_value + y.raw_value); april_assert(result >= log_float::zero()); return result; } inline log_double operator / (const log_double &x, const log_double &y) { log_double result = log_double(x.raw_value - y.raw_value); april_assert(result >= log_float::zero()); return result; } // comparison operations inline bool operator == (const log_double &x, const log_double &y) { return (x.raw_value == y.raw_value); } inline bool operator != (const log_double &x, const log_double &y) { return (x.raw_value != y.raw_value); } inline bool operator <= (const log_double &x, const log_double &y) { return (x.raw_value <= y.raw_value); } inline bool operator >= (const log_double &x, const log_double &y) { return (x.raw_value >= y.raw_value); } inline bool operator < (const log_double &x, const log_double &y) { return (x.raw_value < y.raw_value); } inline bool operator > (const log_double &x, const log_double &y) { return (x.raw_value > y.raw_value); } // special cases: inline log_float log_float::operator += (const log_double &y) { *this = log_double(*this) + y; april_assert(raw_value >= rawscorezero); return *this; } inline log_float log_float::operator *= (const log_double &y) { *this = log_double(*this) * y; april_assert(raw_value >= rawscorezero); return *this; } inline log_float log_float::operator /= (const log_double &y) { *this = log_double(*this) / y; april_assert(raw_value >= rawscorezero); return *this; } inline log_float log_float::operator -= (const log_double &y) { *this = log_double(*this) - y; april_assert(raw_value >= rawscorezero); return *this; } #endif // LOGBASE_ASSERT_H april-ann-0.3.1/packages/basics/util/c_src/logbase_standard.cc000066400000000000000000000024051234204160600242660ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "logbase_standard.h" const float log_float::floatnearzero = 1e-37; const float log_float::rawscorenearzero = -99; const float log_float::rawscorezero = -1e12; const float log_float::rawscoreone = 0; const double log_double::doublenearzero = 1e-37; const double log_double::rawscorenearzero = -85; const double log_double::rawscorezero = -1e8; const double log_double::rawscoreone = 0; april-ann-0.3.1/packages/basics/util/c_src/logbase_standard.h000066400000000000000000000267531234204160600241440ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef LOGBASE_STANDARD_H #define LOGBASE_STANDARD_H #include #include // Esta clase representa valores numéricos en base logarítmica. // Por tanto, sólo tiene sentido para representar números >0 // aunque el 0 se aproxima por un valor muy cercano. class log_double; // forward declaration class log_float { float raw_value; // nota: el minimo numero float no denormal es 1.2e-38 static const float floatnearzero; static const float rawscorenearzero; static const float rawscorezero; static const float rawscoreone; public: log_float(float x) : raw_value(x) {} log_float() : raw_value(rawscorezero) {} static log_float zero() { return log_float(rawscorezero); } static log_float one() { return log_float(rawscoreone); } static log_float from_float(float value) { return log_float((value < floatnearzero) ? rawscorezero : ::log(value)); } static log_float from_double(double value) { return log_float((value < floatnearzero) ? rawscorezero : ::log(value)); } float to_float() const { return expf(raw_value); } double to_double() const { return exp((double)raw_value); } float log() const { return raw_value; } log_float raise_to(float exponent) const { return log_float(raw_value*exponent); } // arithmetic operations friend log_float operator + (const log_float &x, const log_float &y); friend log_float operator * (const log_float &x, const log_float &y); friend log_float operator / (const log_float &x, const log_float &y); friend log_float operator - (const log_float &x, const log_float &y); log_float operator += (const log_float &y) { return *this = *this + y; } log_float operator += (const log_double &y); log_float operator *= (const log_float &y) { return *this = *this * y; } log_float operator *= (const log_double &y); log_float operator /= (const log_float &y) { return *this = *this / y; } log_float operator /= (const log_double &y); log_float operator -= (const log_float &y) { return *this = *this - y; } log_float operator -= (const log_double &y); // comparison operations friend bool operator == (const log_float &x, const log_float &y); friend bool operator != (const log_float &x, const log_float &y); friend bool operator >= (const log_float &x, const log_float &y); friend bool operator <= (const log_float &x, const log_float &y); friend bool operator > (const log_float &x, const log_float &y); friend bool operator < (const log_float &x, const log_float &y); // conversion operator float() const { return raw_value; } operator double() const { return (double)raw_value; } operator unsigned int() const { return (unsigned int)(raw_value); } // assignment log_float &operator = (float &value) { raw_value = value; return *this; } log_float &operator = (double &value) { raw_value = value; return *this; } log_float &operator = (const log_double &value); }; class log_double { friend class log_float; double raw_value; // nota: el minimo numero float no denormal es 1.2e-38 static const double doublenearzero; static const double rawscorenearzero; static const double rawscorezero; static const double rawscoreone; public: log_double(double x) : raw_value(x) {} log_double(const log_float& f): raw_value(double(f)) {} log_double() : raw_value(rawscorezero) {} static log_double from_double(double value) { return log_double((value < doublenearzero) ? rawscorezero : ::log(value)); } static log_double zero() { return log_double(rawscorezero); } static log_double one() { return log_double(rawscoreone); } double to_double() const { return exp(raw_value); } float to_float() const { return expf((float)raw_value); } double log() const { return raw_value; } log_double raise_to(double exponent) { return log_double(raw_value*exponent); } // arithmetic operations friend log_double operator + (const log_double &x, const log_double &y); friend log_double operator * (const log_double &x, const log_double &y); friend log_double operator / (const log_double &x, const log_double &y); friend log_double operator - (const log_double &x, const log_double &y); log_double operator += (const log_double &y) { return *this = *this + y; } log_double operator *= (const log_double &y) { return *this = *this * y; } log_double operator /= (const log_double &y) { return *this = *this / y; } log_double operator -= (const log_double &y) { return *this = *this - y; } // comparison operations friend bool operator == (const log_double &x, const log_double &y); friend bool operator != (const log_double &x, const log_double &y); friend bool operator >= (const log_double &x, const log_double &y); friend bool operator <= (const log_double &x, const log_double &y); friend bool operator > (const log_double &x, const log_double &y); friend bool operator < (const log_double &x, const log_double &y); /* // conversion operator double() const { return raw_value; } operator float() const { return (float)raw_value; } operator log_float() const { return log_float((float)raw_value); } */ // assignment log_double &operator = (double &value) { raw_value = value; return *this; } log_double &operator = (float &value) { raw_value = (double)value; return *this; } log_double &operator = (log_float &value) { raw_value = (float)value; return *this; } }; //--------- // arithmetic operations log_float operator + (const log_float &x, const log_float &y); log_float operator - (const log_float &x, const log_float &y); log_float operator * (const log_float &x, const log_float &y); log_float operator / (const log_float &x, const log_float &y); // comparison operations bool operator == (const log_float &x, const log_float &y); bool operator != (const log_float &x, const log_float &y); bool operator >= (const log_float &x, const log_float &y); bool operator <= (const log_float &x, const log_float &y); bool operator > (const log_float &x, const log_float &y); bool operator < (const log_float &x, const log_float &y); // arithmetic operations log_double operator + (const log_double &x, const log_double &y); log_double operator - (const log_double &x, const log_double &y); log_double operator * (const log_double &x, const log_double &y); log_double operator / (const log_double &x, const log_double &y); // comparison operations bool operator == (const log_double &x, const log_double &y); bool operator != (const log_double &x, const log_double &y); bool operator >= (const log_double &x, const log_double &y); bool operator <= (const log_double &x, const log_double &y); bool operator > (const log_double &x, const log_double &y); bool operator < (const log_double &x, const log_double &y); //--------------------------------------------------------------- inline log_float& log_float::operator = (const log_double &value) { raw_value = (float)value.raw_value; return *this; } // arithmetic operations inline float logadd1(float x) { // invocamos esta función siempre para x<=0 return log1p(exp(x)); } inline float log1sub(float x) { return log1p(-exp(x)); } inline log_float operator + (const log_float &x, const log_float &y) { return (x.raw_value > y.raw_value) ? log_float(x.raw_value + logadd1(y.raw_value - x.raw_value)) : log_float(y.raw_value + logadd1(x.raw_value - y.raw_value)); } inline log_float operator - (const log_float &x, const log_float &y) { if (x.raw_value < y.raw_value) { // TODO: report error } return log_float(x.raw_value + log1sub(y.raw_value - x.raw_value)); } inline log_float operator * (const log_float &x, const log_float &y) { return log_float(x.raw_value + y.raw_value); } inline log_float operator / (const log_float &x, const log_float &y) { return log_float(x.raw_value - y.raw_value); } // comparison operations inline bool operator == (const log_float &x, const log_float &y) { return (x.raw_value == y.raw_value); } inline bool operator != (const log_float &x, const log_float &y) { return (x.raw_value != y.raw_value); } inline bool operator <= (const log_float &x, const log_float &y) { return (x.raw_value <= y.raw_value); } inline bool operator >= (const log_float &x, const log_float &y) { return (x.raw_value >= y.raw_value); } inline bool operator < (const log_float &x, const log_float &y) { return (x.raw_value < y.raw_value); } inline bool operator > (const log_float &x, const log_float &y) { return (x.raw_value > y.raw_value); } inline double logadd1(double x) { return log1p(exp(x)); } inline double log1sub(double x) { return log1p(-exp(x)); } inline log_double operator + (const log_double &x, const log_double &y) { return (x.raw_value > y.raw_value) ? log_double(x.raw_value + logadd1(y.raw_value - x.raw_value)) : log_double(y.raw_value + logadd1(x.raw_value - y.raw_value)); } inline log_double operator - (const log_double &x, const log_double &y) { if (x.raw_value < y.raw_value) { // TODO: report error } return log_double(x.raw_value + log1sub(y.raw_value - x.raw_value)); } inline log_double operator * (const log_double &x, const log_double &y) { return log_double(x.raw_value + y.raw_value); } inline log_double operator / (const log_double &x, const log_double &y) { return log_double(x.raw_value - y.raw_value); } // comparison operations inline bool operator == (const log_double &x, const log_double &y) { return (x.raw_value == y.raw_value); } inline bool operator != (const log_double &x, const log_double &y) { return (x.raw_value != y.raw_value); } inline bool operator <= (const log_double &x, const log_double &y) { return (x.raw_value <= y.raw_value); } inline bool operator >= (const log_double &x, const log_double &y) { return (x.raw_value >= y.raw_value); } inline bool operator < (const log_double &x, const log_double &y) { return (x.raw_value < y.raw_value); } inline bool operator > (const log_double &x, const log_double &y) { return (x.raw_value > y.raw_value); } // special cases: inline log_float log_float::operator += (const log_double &y) { return *this = log_double(*this) + y; } inline log_float log_float::operator *= (const log_double &y) { return *this = log_double(*this) * y; } inline log_float log_float::operator /= (const log_double &y) { return *this = log_double(*this) / y; } inline log_float log_float::operator -= (const log_double &y) { return *this = log_double(*this) - y; } #endif // LOGBASE_STANDARD_H april-ann-0.3.1/packages/basics/util/c_src/logbase_zero.h000066400000000000000000000327351234204160600233200ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef LOGBASE_ZERO_H #define LOGBASE_ZERO_H #include #include // Esta clase representa valores numéricos en base logarítmica. // Por tanto, sólo tiene sentido para representar números >0 // aunque el 0 se aproxima por un valor muy cercano. class log_double; // forward declaration class log_float { float raw_value; // nota: el minimo numero float no denormal es 1.2e-38 static const float floatnearzero = 1e-37; static const float rawscorenearzero = -99; static const float rawscorezero = -1e12; static const float rawscoreone = 0; public: log_float(float x) : raw_value(x) {} log_float() : raw_value(rawscorezero) {} static log_float zero() { return log_float(rawscorezero); } static log_float one() { return log_float(rawscoreone); } static log_float from_float(float value) { return log_float((value < floatnearzero) ? rawscorezero : ::log(value)); } float to_float() const { return expf(raw_value); } double to_double() const { return exp((double)raw_value); } float log() const { return raw_value; } log_float raise_to(float exponent) { float aux = raw_value*exponent; if (aux <= rawscorezero) aux = rawscorezero; return log_float(aux); } // arithmetic operations friend log_float operator + (const log_float &x, const log_float &y); friend log_float operator * (const log_float &x, const log_float &y); friend log_float operator / (const log_float &x, const log_float &y); friend log_float operator - (const log_float &x, const log_float &y); log_float operator += (const log_float &y) { *this = *this + y; if (raw_value <= rawscorezero) raw_value = rawscorezero; return *this; } log_float operator += (const log_double &y); log_float operator *= (const log_float &y) { *this = *this * y; if (raw_value <= rawscorezero) raw_value = rawscorezero; return *this; } log_float operator *= (const log_double &y); log_float operator /= (const log_float &y) { *this = *this / y; if (raw_value <= rawscorezero) raw_value = rawscorezero; return *this; } log_float operator /= (const log_double &y); log_float operator -= (const log_float &y) { *this = *this - y; if (raw_value <= rawscorezero) raw_value = rawscorezero; return *this; } log_float operator -= (const log_double &y); // comparison operations friend bool operator == (const log_float &x, const log_float &y); friend bool operator != (const log_float &x, const log_float &y); friend bool operator >= (const log_float &x, const log_float &y); friend bool operator <= (const log_float &x, const log_float &y); friend bool operator > (const log_float &x, const log_float &y); friend bool operator < (const log_float &x, const log_float &y); // conversion operator float() const { return raw_value; } operator double() const { return (double)raw_value; } operator unsigned int() const { return (unsigned int)(raw_value); } // assignment log_float &operator = (float &value) { raw_value = value; if (raw_value <= rawscorezero) raw_value = rawscorezero; return *this; } log_float &operator = (double &value) { raw_value = value; if (raw_value <= rawscorezero) raw_value = rawscorezero; return *this; } log_float &operator = (const log_double &value); }; class log_double { friend class log_float; double raw_value; // nota: el minimo numero float no denormal es 1.2e-38 static const double doublenearzero = 1e-37; static const double rawscorenearzero = -85; static const double rawscorezero = -1e8; static const double rawscoreone = 0; public: log_double(double x) : raw_value(x) {} log_double(const log_float& f): raw_value(double(f)) {} log_double() : raw_value(rawscorezero) {} static log_double from_double(double value) { return log_double((value < doublenearzero) ? rawscorezero : ::log(value)); } static log_double zero() { return log_double(rawscorezero); } static log_double one() { return log_double(rawscoreone); } double to_double() const { return exp(raw_value); } float to_float() const { return expf((float)raw_value); } double log() const { return raw_value; } log_double raise_to(double exponent) { double aux = raw_value*exponent; if (aux <= rawscorezero) aux = rawscorezero; return log_double(aux); } // arithmetic operations friend log_double operator + (const log_double &x, const log_double &y); friend log_double operator * (const log_double &x, const log_double &y); friend log_double operator / (const log_double &x, const log_double &y); friend log_double operator - (const log_double &x, const log_double &y); log_double operator += (const log_double &y) { *this = *this * y; if (raw_value <= rawscorezero) raw_value = rawscorezero; return *this; } log_double operator *= (const log_double &y) { *this = *this * y; if (raw_value <= rawscorezero) raw_value = rawscorezero; return *this; } log_double operator /= (const log_double &y) { *this = *this / y; if (raw_value <= rawscorezero) raw_value = rawscorezero; return *this; } log_double operator -= (const log_double &y) { *this = *this - y; if (raw_value <= rawscorezero) raw_value = rawscorezero; return *this; } // comparison operations friend bool operator == (const log_double &x, const log_double &y); friend bool operator != (const log_double &x, const log_double &y); friend bool operator >= (const log_double &x, const log_double &y); friend bool operator <= (const log_double &x, const log_double &y); friend bool operator > (const log_double &x, const log_double &y); friend bool operator < (const log_double &x, const log_double &y); /* // conversion operator double() const { return raw_value; } operator float() const { return (float)raw_value; } operator log_float() const { return log_float((float)raw_value); } */ // assignment log_double &operator = (double &value) { raw_value = value; if (raw_value <= rawscorezero) raw_value = rawscorezero; return *this; } log_double &operator = (float &value) { raw_value = (double)value; if (raw_value <= rawscorezero) raw_value = rawscorezero; return *this; } log_double &operator = (log_float &value) { raw_value = (float)value; if (raw_value <= rawscorezero) raw_value = rawscorezero; return *this; } }; //--------- // arithmetic operations log_float operator + (const log_float &x, const log_float &y); log_float operator - (const log_float &x, const log_float &y); log_float operator * (const log_float &x, const log_float &y); log_float operator / (const log_float &x, const log_float &y); // comparison operations bool operator == (const log_float &x, const log_float &y); bool operator != (const log_float &x, const log_float &y); bool operator >= (const log_float &x, const log_float &y); bool operator <= (const log_float &x, const log_float &y); bool operator > (const log_float &x, const log_float &y); bool operator < (const log_float &x, const log_float &y); // arithmetic operations log_double operator + (const log_double &x, const log_double &y); log_double operator - (const log_double &x, const log_double &y); log_double operator * (const log_double &x, const log_double &y); log_double operator / (const log_double &x, const log_double &y); // comparison operations bool operator == (const log_double &x, const log_double &y); bool operator != (const log_double &x, const log_double &y); bool operator >= (const log_double &x, const log_double &y); bool operator <= (const log_double &x, const log_double &y); bool operator > (const log_double &x, const log_double &y); bool operator < (const log_double &x, const log_double &y); //--------------------------------------------------------------- inline log_float& log_float::operator = (const log_double &value) { raw_value = (float)value.raw_value; if (raw_value <= rawscorezero) raw_value = rawscorezero; return *this; } // arithmetic operations inline float logadd1(float x) { // invocamos esta función siempre para x<=0 return log1p(exp(x)); } inline float log1sub(float x) { return log1p(-exp(x)); } inline log_float operator + (const log_float &x, const log_float &y) { log_float result = (x.raw_value > y.raw_value) ? log_float(x.raw_value + logadd1(y.raw_value - x.raw_value)) : log_float(y.raw_value + logadd1(x.raw_value - y.raw_value)); return (result <= log_float::zero()) ? log_float::zero() : result; } inline log_float operator - (const log_float &x, const log_float &y) { if (x.raw_value < y.raw_value) { // TODO: report error } log_float result = log_float(x.raw_value + log1sub(y.raw_value - x.raw_value)); return (result <= log_float::zero()) ? log_float::zero() : result; } inline log_float operator * (const log_float &x, const log_float &y) { log_float result = log_float(x.raw_value + y.raw_value); return (result <= log_float::zero()) ? log_float::zero() : result; } inline log_float operator / (const log_float &x, const log_float &y) { log_float result = log_float(x.raw_value - y.raw_value); return (result <= log_float::zero()) ? log_float::zero() : result; } // comparison operations inline bool operator == (const log_float &x, const log_float &y) { return (x.raw_value == y.raw_value); } inline bool operator != (const log_float &x, const log_float &y) { return (x.raw_value != y.raw_value); } inline bool operator <= (const log_float &x, const log_float &y) { return (x.raw_value <= y.raw_value); } inline bool operator >= (const log_float &x, const log_float &y) { return (x.raw_value >= y.raw_value); } inline bool operator < (const log_float &x, const log_float &y) { return (x.raw_value < y.raw_value); } inline bool operator > (const log_float &x, const log_float &y) { return (x.raw_value > y.raw_value); } inline double logadd1(double x) { return log1p(exp(x)); } inline double log1sub(double x) { return log1p(-exp(x)); } inline log_double operator + (const log_double &x, const log_double &y) { log_double result = (x.raw_value > y.raw_value) ? log_double(x.raw_value + logadd1(y.raw_value - x.raw_value)) : log_double(y.raw_value + logadd1(x.raw_value - y.raw_value)); return (result <= log_float::zero()) ? log_float::zero() : result; } inline log_double operator - (const log_double &x, const log_double &y) { if (x.raw_value < y.raw_value) { // TODO: report error } log_double result = log_double(x.raw_value + log1sub(y.raw_value - x.raw_value)); return (result <= log_float::zero()) ? log_float::zero() : result; } inline log_double operator * (const log_double &x, const log_double &y) { log_double result = log_double(x.raw_value + y.raw_value); return (result <= log_float::zero()) ? log_float::zero() : result; } inline log_double operator / (const log_double &x, const log_double &y) { log_double result = log_double(x.raw_value - y.raw_value); return (result <= log_float::zero()) ? log_float::zero() : result; } // comparison operations inline bool operator == (const log_double &x, const log_double &y) { return (x.raw_value == y.raw_value); } inline bool operator != (const log_double &x, const log_double &y) { return (x.raw_value != y.raw_value); } inline bool operator <= (const log_double &x, const log_double &y) { return (x.raw_value <= y.raw_value); } inline bool operator >= (const log_double &x, const log_double &y) { return (x.raw_value >= y.raw_value); } inline bool operator < (const log_double &x, const log_double &y) { return (x.raw_value < y.raw_value); } inline bool operator > (const log_double &x, const log_double &y) { return (x.raw_value > y.raw_value); } // special cases: inline log_float log_float::operator += (const log_double &y) { *this = log_double(*this) + y; if (raw_value <= rawscorezero) raw_value = rawscorezero; return *this; } inline log_float log_float::operator *= (const log_double &y) { *this = log_double(*this) * y; if (raw_value <= rawscorezero) raw_value = rawscorezero; return *this; } inline log_float log_float::operator /= (const log_double &y) { *this = log_double(*this) / y; if (raw_value <= rawscorezero) raw_value = rawscorezero; return *this; } inline log_float log_float::operator -= (const log_double &y) { *this = log_double(*this) - y; if (raw_value <= rawscorezero) raw_value = rawscorezero; return *this; } #endif // LOGBASE_ZERO_H april-ann-0.3.1/packages/basics/util/c_src/max_min_finder.h000066400000000000000000000204541234204160600236170ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MAX_MIN_FINDER_H #define MAX_MIN_FINDER_H #include "vector.h" namespace april_utils { // encuentra los maximos/minimos locales de una secuencia, usa contexto // izquierdo y derecho, asume que T soporta == y < template class max_min_finder { int ci,cd,maxsz,sz,first; T *vec, maxval,minval; bool findmax; vector *max_output; // puntero a un vector que "nos pasan" bool findmin; vector *min_output; // puntero a un vector que "nos pasan" void process_max_value(T value) { if (max_output) max_output->push_back(value); } void process_min_value(T value) { if (min_output) min_output->push_back(value); } T& value_at(int pos) { return vec[(first+pos)%maxsz]; } public: max_min_finder(int ci=0, int cd=0, bool findmax=true,vector*outvec=0, bool findmin=false,vector*invec=0) : ci(ci), cd(cd), findmax(findmax), max_output(outvec), findmin(findmin), min_output(invec) { maxsz = ci+1+cd; vec = new T[maxsz]; sz = first = 0; } ~max_min_finder() { delete[] vec; } void put(T entra) { if (sz= cd && vec[sz-cd] == maxval) process_max_value(vec[sz-cd]); } if (findmin) { if (sz == 0 || entra= cd && vec[sz-cd] == minval) process_min_value(vec[sz-cd]); } sz++; } else { // vamos a meter uno nuevo T sale = vec[first]; vec[first] = entra; first = (first+1)%maxsz; if (findmax) { if (maxval < entra) // el nuevo mantiene o mejora el maximo maxval = entra; else if (sale == maxval) { // buscar el nuevo maximo maxval = vec[first]; // value_at(0) for (int i=1;i= 0) ? sz-cd+1 : 0; if (findmax) for (int i=desde;i0) { T aux = value_at(maxsz-1) ; for (int i=0; i*out_maxvec=0, bool findmin=false,vector*out_minvec=0) { if (maxsz != ci + 1 + cd) { delete[] vec; maxsz = ci + 1 + cd; vec = new T[maxsz]; } this->ci=ci; this->cd=cd; this->findmax =findmax; this->max_output=out_maxvec; this->findmin =findmin; this->min_output=out_minvec; sz = first = 0; } }; // encuentra los maximos locales de una secuencia, usa contexto // izquierdo y derecho, asume que T soporta == y < template class max_finder { int ci,cd,maxsz,sz,first; T *vec, maxval; vector *max_output; // puntero a un vector que "nos pasan" void process_max_value(T value) { if (max_output) max_output->push_back(value); } T& value_at(int pos) { return vec[(first+pos)%maxsz]; } public: max_finder(int ci=0, int cd=0, vector*out_max_vec=0) : ci(ci), cd(cd), max_output(out_max_vec) { maxsz = ci+1+cd; vec = new T[maxsz]; sz = first = 0; } ~max_finder() { delete[] vec; } void put(T entra) { if (sz= cd && vec[sz-cd] == maxval) process_max_value(vec[sz-cd]); sz++; } else { // vamos a meter uno nuevo T sale = vec[first]; vec[first] = entra; first = (first+1)%maxsz; if (maxval < entra) // el nuevo mantiene o mejora el maximo maxval = entra; else if (sale == maxval) { // buscar el nuevo maximo maxval = vec[first]; // value_at(0) for (int i=1;i= 0) ? sz-cd+1 : 0; for (int i=desde;i0) { T aux = value_at(maxsz-1) ; for (int i=0; i*out_max_vec=0) { if (maxsz != ci + 1 + cd) { delete[] vec; maxsz = ci + 1 + cd; vec = new T[maxsz]; } this->ci=ci; this->cd=cd; this->max_output=out_max_vec; sz = first = 0; } }; // encuentra los minimos locales de una secuencia, usa contexto // izquierdo y derecho, asume que T soporta == y < template class min_finder { int ci,cd,maxsz,sz,first; T *vec, minval; vector *min_output; // puntero a un vector que "nos pasan" void process_min_value(T value) { if (min_output) min_output->push_back(value); } T& value_at(int pos) { return vec[(first+pos)%maxsz]; } public: min_finder(int ci=0, int cd=0, vector*out_min_vec=0) : ci(ci), cd(cd), min_output(out_min_vec) { maxsz = ci+1+cd; vec = new T[maxsz]; sz = first = 0; } ~min_finder() { delete[] vec; } void put(T entra) { if (sz= cd && vec[sz-cd] == minval) process_min_value(vec[sz-cd]); sz++; } else { // vamos a meter uno nuevo T sale = vec[first]; vec[first] = entra; first = (first+1)%maxsz; if (entra < minval) // el nuevo mantiene o mejora el minimo minval = entra; else if (sale == minval) { // buscar el nuevo minimo minval = vec[first]; // value_at(0) for (int i=1;i= 0) ? sz-cd+1 : 0; for (int i=desde;i0) { T aux = value_at(maxsz-1) ; for (int i=0; i*out_min_vec=0) { if (maxsz != ci + 1 + cd) { delete[] vec; maxsz = ci + 1 + cd; vec = new T[maxsz]; } this->ci=ci; this->cd=cd; this->min_output=out_min_vec; sz = first = 0; } }; } // closes namespace april_utils #endif // MAX_MIN_FINDER_H april-ann-0.3.1/packages/basics/util/c_src/maxiphobic_minheap.h000066400000000000000000000140261234204160600244620ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MAXIPHOBIC_MINHEAP_H #define MAXIPHOBIC_MINHEAP_H // #include reemplazado por "swap.h" #include "swap.h" #include "vector.h" #include using std::size_t; namespace april_utils{ template class maxiphobic_minheap { struct node { int size; node *left; node *right; T data; node(const T& d): size(1), left(0), right(0), data(d) { } node(const T& d, node * const l, node * const r): size(1), left(l), right(r), data(d) { if (l) size += l->size; if (r) size += r->size; } #ifndef NO_POOL inline static void * operator new(size_t size){ if (size != sizeof(node)) return ::operator new(size); node *n = freelist; if (n != 0) { freelist = n->left; poolsize--; return n; } else { return ::operator new(size); } } inline static void operator delete(void *object, size_t size) { if (object == 0) return; if (size != sizeof(node)) { ::operator delete(object); return; } if (poolsize < MAXPOOLSIZE) { node *deleted_node = static_cast(object); deleted_node->left = freelist; freelist = deleted_node; poolsize++; } else { ::operator delete(object); } } private: static node *freelist; static int poolsize; static const int MAXPOOLSIZE=2000000; #endif // NO_POOL }; node *root; static node* merge(node *node1, node *node2) { if (node1 == 0) return node2; if (node2 == 0) return node1; node *cur=0; node *A, *B, *C; if (node1->data < node2->data){ // merge(node1, node2) sobre node1 cur = node1; node1->size += node2->size; C = node2; } else { // merge(node1, node2) sobre node2 cur = node2; node2->size += node1->size; C = node1; } node *min = cur; A = cur->left; B = cur->right; while ((A != 0) && (B != 0) && (C != 0)){ // Tenemos 3 arboles: A, B y C a partir de los cuales // hay que crear 2 hijos para cur. // Hacemos que A sea el de mayor tamaño if (B->size > A->size) swap(A, B); if (C->size > A->size) swap(A, C); cur->left = A; if (B->data < C->data) { // merge(B, C) sobre B cur->right = B; cur = B; B->size += C->size; A = B->left; B = B->right; } else { // merge(B, C) sobre C cur->right = C; cur = C; C->size += B->size; A = C->left; C = C->right; } } // Al salir del bucle al menos uno de A, B, C esta vacio. if (A==0) { cur->left = B; cur->right = C; } else if (B==0) { cur->left = A; cur->right = C; } else { // C==0 cur->left = A; cur->right = B; } return min; } void delete_tree(node *n) { if (n->left != 0) delete_tree(n->left); if (n->right != 0) delete_tree(n->right); delete n; } // Copia recursiva del arbol node *copy(node *other) { return (other == 0 ? 0 : new node(other->data, copy(other->left), copy(other->right))); } public: maxiphobic_minheap(): root(0) { } // Constructor de copia y operador de asignacion // para evitar que los generados por defecto nos produzcan un universo de dolor. // Si hacen falta se implementan :) maxiphobic_minheap(const maxiphobic_minheap &other) { root = copy(other.root); } maxiphobic_minheap& operator= (const maxiphobic_minheap& other) { // Primero borramos los elementos que ya tuvieramos if (root != 0) delete_tree(root); root = copy(other.root); } ~maxiphobic_minheap() { if (root != 0) delete_tree(root); } void clear() { delete_tree(root); } void insert(const T &data) { node *p = new node(data); root = merge(root, p); } void delete_min() { node *old_root = root; root = merge(root->left, root->right); delete old_root; } T read_min() { return root->data; } T extract_min() { T res = read_min(); delete_min(); return res; } void foreach(void (*func)(T)) { if (root) { // Usamos 2*ln(size) como estimacion de profundidad del arbol vector stack; node *cur; stack.reserve(2*int(log(root->size))); stack.push_back(root); while (!stack.empty()) { cur = stack.back(); stack.pop_back(); func(cur->data); if (cur->right) stack.push_back(cur->right); if (cur->left) stack.push_back(cur->left); } } } bool empty() const { return root == 0; } int size() const { return (empty()? 0 : root->size); } }; #ifndef NO_POOL template int maxiphobic_minheap::node::poolsize=0; template typename maxiphobic_minheap::node *maxiphobic_minheap::node::freelist=0; #endif // NO_POOL } #endif april-ann-0.3.1/packages/basics/util/c_src/maxmin.h000066400000000000000000000054421234204160600221310ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MAX_MIN_H #define MAX_MIN_H #include "april_assert.h" namespace april_utils { template T max(T a, T b) { return (a T min(T a, T b) { return (a int argmax(const T *v, int size) { april_assert(size > 0); int p = 0; for (int i=1; i int argmin(const T *v, int size) { april_assert(size > 0); int p = 0; for (int i=1; i T max(const T *v, int size) { return v[argmax(v, size)]; } template T min(const T *v, int size) { return v[argmin(v, size)]; } // argmax, argmin, max, min for containers template Iterator argmax(Iterator begin, Iterator end) { Iterator max_iter = begin; for (Iterator i=begin; i!=end; ++i) { if (*max_iter < *i) { max_iter = i; } } return max_iter; } template Iterator argmin(Iterator begin, Iterator end) { Iterator min_iter = begin; for (Iterator i=begin; i!=end; ++i) { if (*i < *min_iter) { min_iter = i; } } return min_iter; } template typename T::iterator argmax(T& container) { return argmax(container.begin(), container.end()); } template typename T::iterator argmin(T& container) { return argmin(container.begin(), container.end()); } template typename T::value_type max(T& container) { return *april_utils::argmax(container.begin(), container.end()); } template typename T::value_type min(T& container) { return *april_utils::argmin(container.begin(), container.end()); } } #endif //MAX_MIN_H april-ann-0.3.1/packages/basics/util/c_src/mean_deviation.h000066400000000000000000000051421234204160600236170ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MEAN_DEVIATION_H #define MEAN_DEVIATION_H #include namespace april_utils { template void mean_deviation(T v[], int sz, double *mean, double *dev) { double sum = 0, sum2 = 0; for (int i=0;i 0) ? m_newM : 0.0; } double Variance() const { return ( (m_n > 1) ? m_newS/(m_n - 1) : 0.0 ); } double StandardDeviation() const { return sqrt( Variance() ); } }; } #endif //MEAN_DEVIATION_H april-ann-0.3.1/packages/basics/util/c_src/mfset.h000066400000000000000000000106501234204160600217530ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MFSET_H #define MFSET_H /* Implementacion de un mfset, permite find(), merge(), toString() y fromString() */ #include "april_assert.h" #include #include "constString.h" #include "binarizer.h" #include "referenced.h" #include "maxmin.h" #include "vector.h" #define DEFAULT_MFSET_SIZE 524288 // 512*1024 namespace april_utils { class MFSet : public Referenced { private: // vector que contiene el mfset vector data; int32_t max_vector_size, vector_size; public: // constructor de copia MFSet(MFSet *obj) { this->max_vector_size = obj->max_vector_size; this->vector_size = obj->vector_size; this->data.reserve(max_vector_size); for (int32_t i=0; idata[i] = obj->data[i]; } // construye un mefset por defecto donde cada componente de data // es un conjunto MFSet(int size = DEFAULT_MFSET_SIZE) : data(size) { max_vector_size = size; data.reserve(max_vector_size); vector_size = 0; for (int32_t i=0; i= max_vector_size) { int32_t old_max_vector_size = max_vector_size; max_vector_size = sz << 1; data.resize(max_vector_size); for (int32_t i=old_max_vector_size; i= max_vector_size || value2 >= max_vector_size) { int32_t old_max_vector_size = max_vector_size; max_vector_size = april_utils::max(value1,value2) << 1; data.resize(max_vector_size); for (int32_t i=old_max_vector_size; i struct CmpLessDefault { bool operator()(const T &a, const T &b) { return a < b; } }; template > class min_heap { // minheap binario de valores de tipo T comparables CmpLess cmpless; T *vec; // vector que empieza con indice 1 int vector_size; int the_size; int parent(int pos) { return pos>>1; } int left_child(int pos) { return pos<<1; } void heapify(int pos); void incr_size(); public: min_heap(int initial_max_size, CmpLess cmpless = CmpLess()) : cmpless(cmpless) { vector_size = (initial_max_size > 0) ? initial_max_size : 2; the_size = 0; T *rv = new T[vector_size]; vec = rv - 1; // vec[1] is rv[0],... } ~min_heap() { delete[] (vec+1); } void clear() { the_size = 0; } bool empty() const { return the_size == 0; } int size() const { return the_size; } const T& top() const { return vec[1]; } void pop() { if (the_size > 0) { vec[1] = vec[the_size]; the_size--; heapify(1); } } void push(const T &elemento) { incr_size(); int position = the_size; while ((position > 1) && (cmpless(elemento, vec[parent(position)]))) { vec[position] = vec[parent(position)]; position = parent(position); } vec[position] = elemento; } void push_back(const T &elemento) { incr_size(); vec[the_size] = elemento; } void buildheap() { // se usa para imponer propiedad de orden for (int i = the_size/2; i >= 1; i--) { heapify(i); } } // ITERADOR class iterator { friend class min_heap; // puntero al Heap min_heap *h; // indice del vector del heap (para iterar) int idx; public: // constructor... iterator(min_heap *p, int i) : h(p), idx(i) { } // desreferencia del iterador, devuelve el tipo T const T& operator *() const { return h->vec[idx]; } // operador flecha para acceder directamente al objeto T const T* operator ->() const { return &(h->vec[idx]); } // incremento void operator++() { ++idx; } // suma void operator+(int s) { idx += s; } // suma void operator+=(int s) { idx += s; } // operador de igualdad bool operator==(const iterator &b) const { return (h == b.h && idx == b.idx); } // operador de diferente bool operator!=(const iterator &b) const { return (h != b.h || idx != b.idx); } }; // primer iterador iterator begin() { return iterator(this, 1); } // ultimo iterador iterator end() { return iterator(this, the_size+1); } // borra una posicion del heap a partir de un iterador situado en la // misma void del(const min_heap::iterator &idx) { // cambiamos el elemento por el ultimo del heap vec[idx.idx] = vec[the_size]; the_size--; // hundimos idx heapify(idx.idx); } }; template void min_heap::incr_size() { if (the_size >= vector_size) { T *old_vec = vec; vec = new T[2*vector_size] - 1; for (int i=1; i<=vector_size; i++) vec[i] = old_vec[i]; vector_size *= 2; delete[] (old_vec+1); } the_size++; } template void min_heap::heapify(int pos) { // version iterativa int child; T tmp = vec[pos]; while (left_child(pos) <= the_size) { child = left_child(pos); if(child < the_size && cmpless(vec[child+1], vec[child])) child++; // el child derecho if(cmpless(vec[child], tmp)) vec[pos] = vec[child]; else break; pos = child; } vec[ pos ] = tmp; } }; #endif // MIN_HEAP_H april-ann-0.3.1/packages/basics/util/c_src/mmapped_data.cc000066400000000000000000000052761234204160600234170ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include #include #include #include #include // mmap() is defined in this header #include #include "mmapped_data.h" #include "error_print.h" extern const char *__COMMIT_NUMBER__; namespace april_utils { MMappedDataReader::MMappedDataReader(const char *path, bool write, bool shared) { if ((fd = open(path, O_RDWR)) < 0) ERROR_EXIT1(128,"Unable to open file %s\n", path); // find size of input file struct stat statbuf; if (fstat(fd, &statbuf) < 0) { ERROR_EXIT(128, "Error guessing filesize\n"); } // mmap the input file mmapped_data_size = statbuf.st_size; int prot = PROT_READ; if (write) prot = prot | PROT_WRITE; int flags; if (shared) flags = MAP_SHARED; else flags = MAP_PRIVATE; if ((mmapped_data = static_cast(mmap(0, mmapped_data_size, prot, flags, fd, 0))) == (caddr_t)-1) ERROR_EXIT(128, "mmap error\n"); int magic = *(reinterpret_cast(mmapped_data)); if (magic != MAGIC_NUMBER) ERROR_EXIT(128, "Incorrect endianism\n"); pos = sizeof(int); commit_number = *(this->get()); } MMappedDataReader::~MMappedDataReader() { if (fd != -1) close(fd); munmap(mmapped_data, mmapped_data_size); } size_t MMappedDataReader::size() const { return mmapped_data_size - pos; } //////////////////////////////////////////////////////////////// MMappedDataWriter::MMappedDataWriter(const char *path) { if ((fd = open(path, O_CREAT | O_WRONLY | O_TRUNC, S_IRUSR | S_IWUSR | S_IRGRP | S_IWGRP | S_IROTH)) < 0) ERROR_EXIT1(128,"Unable to open file %s\n", path); int magic = MAGIC_NUMBER; this->put(&magic); int commit_number = atoi(__COMMIT_NUMBER__); this->put(&commit_number); } MMappedDataWriter::~MMappedDataWriter() { close(fd); } } april-ann-0.3.1/packages/basics/util/c_src/mmapped_data.h000066400000000000000000000042041234204160600232470ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MMAPPED_DATA_H #define MMAPPED_DATA_H #include #include #include #include #include // mmap() is defined in this header #include "referenced.h" #include "april_assert.h" #include "error_print.h" #include "ignore_result.h" namespace april_utils { const int MAGIC_NUMBER = 0x3333; class MMappedDataReader : public Referenced { int commit_number; char *mmapped_data; size_t mmapped_data_size; size_t pos; int fd; public: MMappedDataReader(const char *path, bool write=true, bool shared=true); ~MMappedDataReader(); size_t size() const; template T *get(size_t n=1) { size_t sz = sizeof(T)*n; if (sz + pos > mmapped_data_size) ERROR_EXIT(128, "Overflow reading from mmap\n"); T *ptr = reinterpret_cast(mmapped_data+pos); pos += sizeof(T)*n; if (pos == mmapped_data_size) { close(fd); fd=-1; } return ptr; } int getCommitNumber() const { return commit_number; } }; class MMappedDataWriter : public Referenced { int fd; public: MMappedDataWriter(const char *path); ~MMappedDataWriter(); template void put(const T *data, size_t n=1) { IGNORE_RESULT(write(fd, data, sizeof(T)*n)); } }; } #endif // MMAPPED_DATA_H april-ann-0.3.1/packages/basics/util/c_src/mod.h000066400000000000000000000020001234204160600214020ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MOD_H #define MOD_H namespace april_utils { inline int mod(int x, int y) { int z = x % y; return (z>=0) ? z : y+z; } } #endif // MOD_H april-ann-0.3.1/packages/basics/util/c_src/ms_sleep.cc000066400000000000000000000021401234204160600225750ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "ms_sleep.h" void msleep(unsigned long milisec) { struct timespec req={0,0}; time_t sec=(int)(milisec/1000); milisec=milisec-(sec*1000); req.tv_sec=sec; req.tv_nsec=milisec*1000000L; while(nanosleep(&req,&req)==-1) continue; } april-ann-0.3.1/packages/basics/util/c_src/ms_sleep.h000066400000000000000000000020001234204160600224320ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MILISECOND_SLEEP_H #define MILISECOND_SLEEP_H #include #include void msleep(unsigned long milisec); #endif // MILISECOND_SLEEP_H april-ann-0.3.1/packages/basics/util/c_src/mystring.cc000066400000000000000000000056451234204160600226570ustar00rootroot00000000000000#include #include "mystring.h" namespace april_utils { const char *string::NULL_STRING = "\0"; string::string() { } string::string(const char *ptr) : vec(ptr, ptr+strlen(ptr)+1) { } string::string(const char *ptr, size_t len) : vec(ptr, ptr+len) { } string::string(const string& other) : vec(other.vec) { } string::~string() { } string &string::operator=(const string &other) { vec = other.vec; return *this; } string &string::operator+=(const string &other) { append(other); return *this; } void string::append(const string &other) { for (size_type i=0; i other.size()) return false; for (size_type i=0; i other.vec[i]) return false; if (vec[i] < other.vec[i]) return true; } return false; } bool string::operator<=(const string &other) const { if (size() < other.size()) return true; if (size() > other.size()) return false; for (size_type i=0; i other.vec[i]) return false; if (vec[i] < other.vec[i]) return true; } return true; } char &string::operator[](unsigned int i) { return vec[i]; } char string::operator[](unsigned int i) const { return vec[i]; } void string::push_back(char c) { vec.push_back(c); } void string::pop_back() { vec.pop_back(); } const char *string::c_str() const { if (vec.empty()) return NULL_STRING; else return vec.begin(); } const char *string::data() const { return vec.begin(); } char *string::begin() { return vec.begin(); } char *string::end() { return vec.end(); } const char *string::begin() const { return vec.begin(); } const char *string::end() const { return vec.end(); } string::size_type string::size() const { return vec.size(); } string::size_type string::max_size() const { return vec.max_size(); } void string::resize(string::size_type size) { vec.resize(size); } string::size_type string::capacity() { return vec.capacity(); } void string::reserve(string::size_type size) { vec.reserve(size); } void string::clear() { vec.clear(); } bool string::empty() const { return vec.size() == 0; } void string::swap(string &other) { vec.swap(other.vec); } char string::at(unsigned int i) const { return vec[i]; } char &string::at(unsigned int i) { return vec[i]; } char string::front() const { return vec[0]; } char &string::front() { return vec[0]; } char string::back() const { return vec.back(); } char &string::back() { return vec.back(); } } april-ann-0.3.1/packages/basics/util/c_src/mystring.h000066400000000000000000000040751234204160600225150ustar00rootroot00000000000000#ifndef STRING_H #define STRING_H #include #include "vector.h" #include "aux_hash_table.h" namespace april_utils { class string { static const char *NULL_STRING; public: typedef char value_type; typedef vector container; typedef char& reference; typedef const char& const_reference; typedef container::iterator iterator; typedef container::const_iterator const_iterator; typedef container::difference_type difference_type; typedef container::size_type size_type; private: vector vec; public: string(); string(const char *ptr); string(const char *ptr, size_t len); string(const string& other); ~string(); string &operator=(const string &other); string &operator+=(const string &other); void append(const string &other); operator const char *() const { return c_str(); } bool operator==(const string &other) const; bool operator<(const string &other) const; bool operator<=(const string &other) const; char &operator[](unsigned int i); char operator[](unsigned int i) const; void push_back(char c); void pop_back(); const char *c_str() const; const char *data() const; char *begin(); char *end(); const char *begin() const; const char *end() const; size_type size() const; size_type max_size() const; void resize(size_type size); size_type capacity(); void reserve(size_type size); void clear(); bool empty() const; void swap(string &other); char at(unsigned int i) const; char &at(unsigned int i); char front() const; char &front(); char back() const; char &back(); }; // For hash tables template <> struct default_hash_function { static const unsigned int cte_hash = 2654435769U; // hash Fibonacci long int operator()(const string &s1) const { unsigned int resul = 1; for (const char *r = s1.begin(); r != s1.end(); r++) resul = (resul+(unsigned int)(*r))*cte_hash; return resul; } }; } #endif // STRING_H april-ann-0.3.1/packages/basics/util/c_src/null_types.h000066400000000000000000000017701234204160600230360ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef NULL_TYPE_H #define NULL_TYPE_H namespace april_utils { class NullType {}; template class NullContainer {}; } #endif april-ann-0.3.1/packages/basics/util/c_src/omp_utils.cc000066400000000000000000000020111234204160600227760ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "omp_utils.h" namespace omp_utils { int get_num_threads() { #ifndef NO_OMP int n; #pragma omp parallel { n = omp_get_num_threads(); } return n; #else return 1; #endif } } april-ann-0.3.1/packages/basics/util/c_src/omp_utils.h000066400000000000000000000016161234204160600226520ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef NO_OMP #include #endif namespace omp_utils { int get_num_threads(); } april-ann-0.3.1/packages/basics/util/c_src/open_addressing_hash.h000066400000000000000000000336141234204160600250110ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef OPEN_ADDR_HASH_H #define OPEN_ADDR_HASH_H /* Tabla hash con direccionamiento abierto SIN timestamps ni otras flotituras. Se utiliza un vector para guardar directamente los valores. Cuando se busca un valor, se utiliza la función de dispersión para obtener 2 valores: el indice en el vector y un offset para ir avanzando (modulo talla del vector) mientras las posiciones consultadas esten ocupadas por valores distintos del elemento buscado. La busqueda finaliza cuando se encuentra una posición libre o bien el elemento buscado. Es una plantilla y se especializa pasandole el tipo de clave y valor, asi como mecanismos para dispersar una clave, compararla con otra y ver si esta vacia. Los tipos de datos para los campos clave y valor asumen que el operador de copia funciona suficientemente bien como para que al "machacar" una posición del vector con un valor nuevo, el valor anterior se libere convenientemente. Tambien se asume que ambos tipos de datos tienen constructores por defecto. No se puede asumir que un valor estara siempre en la misma posicion, al menos tras realizar inserciones, puesto que vamos a implementar rehashing. No existe la operacion "erase" para borrar individualmente una entrada. */ #include // ceilf #include // ptrdiff_t, size_t... #include "aux_hash_table.h" #include "pair.h" namespace april_utils { // HashFcn es del tipo: // struct hash_fcn { // unsigned int operator()(const KeyType &value) const { // ... // } // }; // EqualKey es del tipo: // struct eqstr { // bool operator()(const KeyType &valueA, const KeyType &valueB) const { // ... // } // }; template , typename EqualKey = default_equality_comparison_function > class open_addr_hash { public: typedef pair node; typedef KeyType key_type; typedef DataType data_type; typedef pair value_type; typedef value_type& reference; typedef const reference const_reference; typedef value_type* pointer; typedef ptrdiff_t difference_type; typedef size_t size_type; private: int first_power_of_2(int value); // auxiliary function node *buckets; // vector of nodes int num_buckets;// a power of 2 int hash_mask; // useful to do "& hash_mask" instead of "% num_buckets" int the_size; // number of inserted elements int rehash_threshold; float max_load_factor; // for rehashing purposes, MUST BE <1.0 HashFcn hash_function; EqualKey equal_key; KeyType empty_key; public: open_addr_hash(KeyType empty_key, int nbckts=8, float mxloadf=0.75); // constructor open_addr_hash(const open_addr_hash&); // copy constructor ~open_addr_hash(); // destructor open_addr_hash& operator=(const open_addr_hash&); // assignment operator void clear(); // Erases all of the elements. data_type* find(const key_type& k); const value_type* find_pair(const key_type& k) const; bool search(const key_type& k) const { return const_cast(find_pair(k)) != 0; } data_type& operator[] (const key_type& k); void insert(const key_type& k, const data_type& d) { (*this)[k] = d; } void resize(int n); // rehash, num_buckets at least n after resize int bucket_count() const { // Returns the number of buckets used by the hash return num_buckets; } int size() const { // Returns the size of the hash return the_size; } bool empty() const { return the_size == 0; } class const_iterator; class iterator { friend class const_iterator; friend class open_addr_hash; open_addr_hash *h; int index; iterator(open_addr_hash *h, int index): h(h), index(index) {} public: typedef KeyType key_type; typedef DataType data_type; typedef pair value_type; typedef value_type& reference; typedef const reference const_reference; typedef value_type* pointer; typedef ptrdiff_t difference_type; typedef size_t size_type; iterator(): h(0), index(0) {} iterator(const iterator &other): h(other.h), index(other.index) {} iterator& operator=(const iterator &other) { if (&other != this) { h = other.h; index = other.index; } return *this; } iterator& operator++() { // preincrement // asumimos que no se incrementa un iterador con // index>=num_buckets do { index++; } while (indexnum_buckets && h->equal_key(h->buckets[index].first,h->empty_key)); return *this; } iterator operator++(int) { // postincrement iterator tmp(*this); ++(*this); return tmp; } value_type& operator *() { //dereference return h->buckets[index]; } value_type* operator ->() { return &(h->buckets[index]); } bool operator == (const iterator &other) { return ((index == other.index) && (h == other.h)); } bool operator != (const iterator &other) { return ((index != other.index) || (h != other.h)); } }; class const_iterator { friend class open_addr_hash; const open_addr_hash *h; int index; const_iterator(open_addr_hash *h, int index): h(h), index(index) {} public: typedef KeyType key_type; typedef DataType data_type; typedef pair value_type; typedef value_type& reference; typedef const reference const_reference; typedef value_type* pointer; typedef ptrdiff_t difference_type; typedef size_t size_type; const_iterator(): h(0), index(0) {} // Copy constructor (from iterator and const_iterator) const_iterator(const iterator &other): h(other.h), index(other.index) {} const_iterator(const const_iterator &other): h(other.h), index(other.index) {} // Assignment operators const_iterator& operator=(const iterator &other) { h = other.h; index = other.index; } const_iterator& operator=(const const_iterator &other) { h = other.h; index = other.index; } const_iterator& operator++() { // preincrement // asumimos que no se incrementa un iterador con // index>=num_buckets do { index++; } while (indexnum_buckets && h->equal_key(h->buckets[index].first,h->empty_key)); return *this; } const_iterator operator++(int) { // postincrement const_iterator tmp(*this); ++(*this); return tmp; } const value_type& operator *() { //dereference return h->buckets[index]; } const value_type* operator ->() { return &(h->buckets[index]); } // Eq comparisons bool operator == (const iterator &other) { return ((index == other.index) && (h == other.h)); } bool operator == (const const_iterator &other) { return ((index == other.index) && (h == other.h)); } bool operator != (const iterator &other) { return ((index != other.index) || (h != other.h)); } bool operator != (const const_iterator &other) { return ((index != other.index) || (h != other.h)); } }; iterator begin() { int i=0; while (i int open_addr_hash::first_power_of_2(int value) { int result = 4; // ojito, minimo 4. TODO: se queda este valor? while (result < value) result += result; return result; } template open_addr_hash::open_addr_hash(ky empty_key, int nbckts, float mxloadf) { this->empty_key = empty_key; num_buckets = first_power_of_2(nbckts); hash_mask = num_buckets-1; // num_buckets is a power of 2 the_size = 0; max_load_factor = (mxloadf <= 0.9) ? mxloadf : 0.9; // must be <1 rehash_threshold= (int)ceilf(max_load_factor*num_buckets); end_iterator = iterator(this, num_buckets); buckets = reinterpret_cast(new pair[num_buckets]); for (int i=0; i(&buckets[i].first) = empty_key; } template open_addr_hash::open_addr_hash(const open_addr_hash& other) { // copy constructor num_buckets = other.num_buckets; hash_mask = other.hash_mask; the_size = other.the_size; max_load_factor = other.max_load_factor; rehash_threshold= other.rehash_threshold; buckets = new node[num_buckets]; for (int i=0; i void open_addr_hash::clear() { for (int i=0; i(&buckets[i].first) = empty_key; the_size = 0; } template open_addr_hash& open_addr_hash::operator=(const open_addr_hash& other) { // The assignment operator if (this != &other) { if (num_buckets != other.num_buckets) { delete[] buckets; num_buckets = other.num_buckets; buckets = new node[num_buckets]; } hash_mask = other.hash_mask; the_size = other.the_size; max_load_factor = other.max_load_factor; rehash_threshold= other.rehash_threshold; for (int i=0; i open_addr_hash::~open_addr_hash() { // destructor delete[] buckets; } template dt* open_addr_hash::find(const ky& k) { value_type* p = const_cast(find_pair(k)); return p ? &(p->second) : 0; } template const pair* open_addr_hash::find_pair(const ky& k) const { unsigned int hfval = hash_function(k); unsigned int index = hfval & hash_mask; unsigned int step = (hfval >> 15) | 1; // debe ser impar while (!equal_key(buckets[index].first,empty_key)) { if (equal_key(buckets[index].first,k)) return &(buckets[index]); index = (index + step) & hash_mask; } return 0; } template dt& open_addr_hash::operator[] (const ky& k) { unsigned int hfval = hash_function(k); unsigned int index = hfval & hash_mask; unsigned int step = (hfval >> 15) | 1; // debe ser impar while (!equal_key(buckets[index].first,empty_key)) { if (equal_key(buckets[index].first,k)) return buckets[index].second; index = (index + step) & hash_mask; } the_size++; if (the_size >= rehash_threshold) { resize(2*num_buckets); // recalcular index sabiendo que no esta, hfval ya lo tenemos index = hfval & hash_mask; step = (hfval >> 15) | 1; while (!equal_key(buckets[index].first,empty_key)) index = (index + step) & hash_mask; } *const_cast(&buckets[index].first) = k; return buckets[index].second; } template void open_addr_hash::resize(int n) { n = first_power_of_2(n); if (n != num_buckets) { node *old_buckets = buckets; int old_num_buckets = num_buckets; num_buckets = n; end_iterator= iterator(this, num_buckets); hash_mask = n-1; rehash_threshold= (int)ceilf(max_load_factor*num_buckets); buckets = reinterpret_cast(new pair[num_buckets]); for (int i=0; i(&buckets[i].first) = empty_key; for (int i=0; i> 15) | 1; // debe ser impar while (!equal_key(buckets[index].first,empty_key)) { index = (index + step) & hash_mask; } *const_cast(&buckets[index].first) = old_buckets[i].first; buckets[index].second = old_buckets[i].second; } delete[] old_buckets; } } } // namespace april_utils #endif // OPEN_ADDR_HASH_H april-ann-0.3.1/packages/basics/util/c_src/open_addressing_hash_timestamp.h000066400000000000000000000354071234204160600270760ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef OPEN_ADDR_HASH_TIMESTAMP_H #define OPEN_ADDR_HASH_TIMESTAMP_H /* Tabla hash con direccionamiento abierto y timestamps Se utiliza un vector para guardar directamente los valores. Cuando se busca un valor, se utiliza la función de dispersión para obtener 2 valores: el indice en el vector y un offset para ir avanzando (modulo talla del vector) mientras las posiciones consultadas esten ocupadas por valores distintos del elemento buscado. La busqueda finaliza cuando se encuentra una posición libre o bien el elemento buscado. La forma de saber si una posición esta ocupada es comprobar el campo stamp. De esta forma se pueden borrar TODOS los elementos del vector en O(1). Nótese que NO se borran efectivamente esos elementos, no se llama a su destructor. Los tipos de datos para los campos clave y valor asumen que el operador de copia funciona suficientemente bien como para que al "machacar" una posición del vector con un valor nuevo, el valor anterior se libere convenientemente. También se asume que ambos tipos de datos tienen constructores por defecto. No se puede asumir que un valor estará siempre en la misma posición, al menos tras realizar inserciones, puesto que vamos a implementar rehashing. No existe la operacion erase para borrar individualmente una entrada. */ #include // ceilf #include // ptrdiff_t, size_t... #include "pair.h" #include "aux_hash_table.h" namespace april_utils { // HashFcn es del tipo: // struct hash_fcn { // unsigned int operator()(const char* s1) const { // return blah...; // } // }; // EqualKey es del tipo: // struct eqstr { // bool operator()(const char* s1, const char* s2) const { // return strcmp(s1, s2) == 0; // } // }; template , typename EqualKey = default_equality_comparison_function > class open_addr_hash_timestamp { public: struct node { pair value; int stamp; node(): value(KeyType(), DataType()) {} node(KeyType& k, DataType& d, int stmp): value(k,d), stamp(stmp) {} }; typedef KeyType key_type; typedef DataType data_type; typedef pair value_type; typedef value_type& reference; typedef const reference const_reference; typedef value_type* pointer; typedef ptrdiff_t difference_type; typedef size_t size_type; private: node *buckets; // vector of nodes int num_buckets;// a power of 2 int hash_mask; // useful to do "& hash_mask" instead of "% num_buckets" int the_size; int rehash_threshold; float max_load_factor; // for rehashing purposes, MUST BE <1.0 int current_stamp; static const int max_stamp = 1<<30; int first_power_of_2(int value);// auxiliary function HashFcn hash_function; EqualKey equal_key; public: open_addr_hash_timestamp(int nbckts=8, float mxloadf=0.75); // constructor open_addr_hash_timestamp(const open_addr_hash_timestamp&); // copy constructor ~open_addr_hash_timestamp(); // destructor open_addr_hash_timestamp& operator=(const open_addr_hash_timestamp&); // assignment operator void clear(); // Erases all of the elements. data_type* find(const key_type& k); const value_type* find_pair(const key_type& k) const; bool search(const key_type& k) const { return find_pair(k) != 0; } data_type& operator[] (const key_type& k); void insert(const key_type& k, const data_type& d) { (*this)[k] = d; } void resize(int n); // rehash, num_buckets at least n after resize int bucket_count() const { // Returns the number of buckets used by the hash return num_buckets; } int size() const { // Returns the size of the hash return the_size; } bool empty() const { return the_size == 0; } class const_iterator; class iterator { friend class const_iterator; friend class open_addr_hash_timestamp; open_addr_hash_timestamp *h; int index; iterator(open_addr_hash_timestamp *h, int index): h(h), index(index) {} public: typedef KeyType key_type; typedef DataType data_type; typedef pair value_type; typedef value_type& reference; typedef const reference const_reference; typedef value_type* pointer; typedef ptrdiff_t difference_type; typedef size_t size_type; iterator(): h(0), index(0) {} iterator(const iterator &other): h(other.h), index(other.index) {} iterator& operator=(const iterator &other) { if (&other != this) { h = other.h; index = other.index; } return *this; } iterator& operator++() { // preincrement // asumimos que no se incrementa un iterador con // index>=num_buckets do { index++; } while (indexnum_buckets && h->buckets[index].stamp != h->current_stamp); return *this; } iterator operator++(int) { // postincrement iterator tmp(*this); ++(*this); return tmp; } value_type& operator *() { //dereference return h->buckets[index].value; } value_type* operator ->() { return &(h->buckets[index].value); } bool operator == (const iterator &other) { return ((index == other.index) && (h == other.h)); } bool operator != (const iterator &other) { return ((index != other.index) || (h != other.h)); } }; class const_iterator { friend class open_addr_hash_timestamp; const open_addr_hash_timestamp *h; int index; const_iterator(open_addr_hash_timestamp *h, int index): h(h), index(index) {} public: typedef KeyType key_type; typedef DataType data_type; typedef pair value_type; typedef value_type& reference; typedef const reference const_reference; typedef value_type* pointer; typedef ptrdiff_t difference_type; typedef size_t size_type; const_iterator(): h(0), index(0) {} // Copy constructor (from iterator and const_iterator) const_iterator(const iterator &other): h(other.h), index(other.index) {} const_iterator(const const_iterator &other): h(other.h), index(other.index) {} // Assignment operators const_iterator& operator=(const iterator &other) { h = other.h; index = other.index; } const_iterator& operator=(const const_iterator &other) { h = other.h; index = other.index; } const_iterator& operator++() { // preincrement // asumimos que no se incrementa un iterador con // index>=num_buckets do { index++; } while (indexnum_buckets && h->buckets[index].stamp != h->current_stamp); return *this; } const_iterator operator++(int) { // postincrement const_iterator tmp(*this); ++(*this); return tmp; } const value_type& operator *() { //dereference return h->buckets[index].value; } const value_type* operator ->() { return &(h->buckets[index].value); } // Eq comparisons bool operator == (const iterator &other) { return ((index == other.index) && (h == other.h)); } bool operator == (const const_iterator &other) { return ((index == other.index) && (h == other.h)); } bool operator != (const iterator &other) { return ((index != other.index) || (h != other.h)); } bool operator != (const const_iterator &other) { return ((index != other.index) || (h != other.h)); } }; iterator begin() { int i=0; while (i int open_addr_hash_timestamp::first_power_of_2(int value) { int result = 4; // ojito, minimo 4. TODO: se queda este valor? while (result < value) result += result; return result; } template open_addr_hash_timestamp::open_addr_hash_timestamp(int nbckts, float mxloadf) { num_buckets = first_power_of_2(nbckts); hash_mask = num_buckets-1; // num_buckets is a power of 2 the_size = 0; max_load_factor = (mxloadf <= 0.9) ? mxloadf : 0.9; // must be <1 rehash_threshold= (int)ceilf(max_load_factor*num_buckets); end_iterator = iterator(this, num_buckets); current_stamp = 1; // buckets = reinterpret_cast(new pair[num_buckets]); buckets = reinterpret_cast(new node[num_buckets]); for (int i=0; i open_addr_hash_timestamp::open_addr_hash_timestamp(const open_addr_hash_timestamp& other) { // copy constructor num_buckets = other.num_buckets; hash_mask = other.hash_mask; the_size = other.the_size; max_load_factor = other.max_load_factor; rehash_threshold= other.rehash_threshold; current_stamp = other.current_stamp; buckets = new node[num_buckets]; for (int i=0; i void open_addr_hash_timestamp::clear() { // Erases all of the elements. if (current_stamp >= max_stamp) { for (int i=0; i open_addr_hash_timestamp& open_addr_hash_timestamp::operator=(const open_addr_hash_timestamp& other) { // The assignment operator if (this != &other) { if (num_buckets != other.num_buckets) { delete[] buckets; num_buckets = other.num_buckets; buckets = new node[num_buckets]; } hash_mask = other.hash_mask; the_size = other.the_size; max_load_factor = other.max_load_factor; rehash_threshold= other.rehash_threshold; current_stamp = other.current_stamp; for (int i=0; i open_addr_hash_timestamp::~open_addr_hash_timestamp() { // destructor delete[] buckets; } template dt* open_addr_hash_timestamp::find(const ky& k) { value_type* p = const_cast(find_pair(k)); return p ? &(p->second) : 0; } template const pair* open_addr_hash_timestamp::find_pair(const ky& k) const { unsigned int hfval = hash_function(k); unsigned int index = hfval & hash_mask; unsigned int step = (hfval >> 15) | 1; // debe ser impar while (buckets[index].stamp == current_stamp) { if (equal_key(buckets[index].value.first,k)) return &(buckets[index].value); index = (index + step) & hash_mask; } return 0; } template dt& open_addr_hash_timestamp::operator[] (const ky& k) { unsigned int hfval = hash_function(k); unsigned int index = hfval & hash_mask; unsigned int step = (hfval >> 15) | 1; // debe ser impar while (buckets[index].stamp == current_stamp) { if (equal_key(buckets[index].value.first,k)) return buckets[index].value.second; index = (index + step) & hash_mask; } the_size++; if (the_size >= rehash_threshold) { resize(2*num_buckets); // recalcular index sabiendo que no esta, hfval ya lo tenemos index = hfval & hash_mask; step = (hfval >> 15) | 1; while (buckets[index].stamp == current_stamp) index = (index + step) & hash_mask; } buckets[index].stamp = current_stamp; *((ky *)(&buckets[index].value.first)) = k; buckets[index].value.second = dt(); return buckets[index].value.second; } template void open_addr_hash_timestamp::resize(int n) { n = first_power_of_2(n); if (n != num_buckets) { node *old_buckets = buckets; int old_num_buckets= num_buckets; int old_stamp = current_stamp; num_buckets = n; end_iterator= iterator(this, num_buckets); hash_mask = n-1; rehash_threshold= (int)ceilf(max_load_factor*num_buckets); buckets = new node[num_buckets]; for (int i=0; i> 15) | 1; // debe ser impar while (buckets[index].stamp == current_stamp) { index = (index + step) & hash_mask; } buckets[index].stamp = current_stamp; *const_cast(&buckets[index].value.first) = old_buckets[i].value.first; buckets[index].value.second = old_buckets[i].value.second; //buckets[index].value = old_buckets[i].value; } delete[] old_buckets; } } } // namespace april_utils #endif // OPEN_ADDR_HASH_TIMESTAMP_H april-ann-0.3.1/packages/basics/util/c_src/open_addressing_hash_with_fast_iterator.h000066400000000000000000000362461234204160600307760ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef OPEN_ADDR_HASH_FAST_IT_H #define OPEN_ADDR_HASH_FAST_IT_H /* Tabla hash con direccionamiento abierto y timestamps Se utiliza un vector para guardar directamente los valores. Cuando se busca un valor, se utiliza la función de dispersión para obtener 2 valores: el indice en el vector y un offset para ir avanzando (modulo talla del vector) mientras las posiciones consultadas esten ocupadas por valores distintos del elemento buscado. La busqueda finaliza cuando se encuentra una posición libre o bien el elemento buscado. La forma de saber si una posición esta ocupada es comprobar el campo stamp. De esta forma se pueden borrar TODOS los elementos del vector en O(1). Nótese que NO se borran efectivamente esos elementos, no se llama a su destructor. Los tipos de datos para los campos clave y valor asumen que el operador de copia funciona suficientemente bien como para que al "machacar" una posición del vector con un valor nuevo, el valor anterior se libere convenientemente. También se asume que ambos tipos de datos tienen constructores por defecto. No se puede asumir que un valor estará siempre en la misma posición, al menos tras realizar inserciones, puesto que vamos a implementar rehashing. No existe la operacion erase para borrar individualmente una entrada. */ #include "aux_hash_table.h" #include // ceilf #include // ptrdiff_t, size_t... #include "pair.h" namespace april_utils { // HashFcn es del tipo: // struct hash_fcn { // unsigned int operator()(const char* s1) const { // return blah...; // } // }; // EqualKey es del tipo: // struct eqstr { // bool operator()(const char* s1, const char* s2) const { // return strcmp(s1, s2) == 0; // } // }; template , typename EqualKey = default_equality_comparison_function > class open_addr_hash_fast_it { public: struct node { pair value; int stamp; node() : value(KeyType(), DataType()) {} node(KeyType& k, DataType& d, int stmp): value(k,d), stamp(stmp) {} }; typedef KeyType key_type; typedef DataType data_type; typedef pair value_type; typedef value_type& reference; typedef const reference const_reference; typedef value_type* pointer; typedef ptrdiff_t difference_type; typedef size_t size_type; private: node *buckets; // vector of nodes // // FIXME: ESTO DEBE SER PRIVADO!!! public: int *iterator_vector; // vector para poder iterar de forma // eficiente sobre los elementos de la tabla private: // int num_buckets;// a power of 2 int hash_mask; // useful to do "& hash_mask" instead of "% num_buckets" int rehash_threshold; float max_load_factor; // for rehashing purposes, MUST BE <1.0 int current_stamp; static const int max_stamp = 1<<30; int first_power_of_2(int value);// auxiliary function HashFcn hash_function; EqualKey equal_key; public: open_addr_hash_fast_it(int nbckts=8, float mxloadf=0.75); // constructor open_addr_hash_fast_it(const open_addr_hash_fast_it&); // copy constructor ~open_addr_hash_fast_it(); // destructor open_addr_hash_fast_it& operator=(const open_addr_hash_fast_it&); // assignment operator void clear(); // Erases all of the elements. data_type* find(const key_type& k); const value_type* find_pair(const key_type& k) const; bool search(const key_type& k) const { return find_pair(k) != 0; } data_type& operator[] (const key_type& k); void insert(const key_type& k, const data_type& d) { (*this)[k] = d; } void resize(int n); // rehash, num_buckets at least n after resize int bucket_count() const { // Returns the number of buckets used by the hash return num_buckets; } int size() const { // Returns the size of the hash return the_size; } bool empty() const { return the_size == 0; } class const_iterator; class iterator { friend class const_iterator; friend class open_addr_hash_fast_it; open_addr_hash_fast_it *h; int index; iterator(open_addr_hash_fast_it *h, int index): h(h), index(index) {} public: typedef KeyType key_type; typedef DataType data_type; typedef pair value_type; typedef value_type& reference; typedef const reference const_reference; typedef value_type* pointer; typedef ptrdiff_t difference_type; typedef size_t size_type; iterator(): h(0), index(0) {} iterator(const iterator &other): h(other.h), index(other.index) {} iterator& operator=(const iterator &other) { if (&other != this) { h = other.h; index = other.index; } return *this; } iterator& operator++() { // preincrement index++; return *this; } iterator operator++(int) { // postincrement iterator tmp(*this); ++(*this); return tmp; } value_type& operator *() { //dereference // return h->buckets[h->iterator_vector[index]].value; // } value_type* operator ->() { // return &(h->buckets[h->iterator_vector[index]].value); // } bool operator == (const iterator &other) { return ((index == other.index) && (h == other.h)); } bool operator != (const iterator &other) { return ((index != other.index) || (h != other.h)); } }; class const_iterator { friend class open_addr_hash_fast_it; const open_addr_hash_fast_it *h; int index; const_iterator(open_addr_hash_fast_it *h, int index): h(h), index(index) {} public: typedef KeyType key_type; typedef DataType data_type; typedef pair value_type; typedef value_type& reference; typedef const reference const_reference; typedef value_type* pointer; typedef ptrdiff_t difference_type; typedef size_t size_type; const_iterator(): h(0), index(0) {} // Copy constructor (from iterator and const_iterator) const_iterator(const iterator &other): h(other.h), index(other.index) {} const_iterator(const const_iterator &other): h(other.h), index(other.index) {} // Assignment operators const_iterator& operator=(const iterator &other) { h = other.h; index = other.index; } const_iterator& operator=(const const_iterator &other) { h = other.h; index = other.index; } const_iterator& operator++() { // preincrement index++; return *this; } const_iterator operator++(int) { // postincrement const_iterator tmp(*this); ++(*this); return tmp; } const value_type& operator *() { //dereference // return h->buckets[h->iterator_vector[index]].value; // } const value_type* operator ->() { // return &(h->buckets[h->iterator_vector[index]].value); // } // Eq comparisons bool operator == (const iterator &other) { return ((index == other.index) && (h == other.h)); } bool operator == (const const_iterator &other) { return ((index == other.index) && (h == other.h)); } bool operator != (const iterator &other) { return ((index != other.index) || (h != other.h)); } bool operator != (const const_iterator &other) { return ((index != other.index) || (h != other.h)); } }; iterator begin() { return iterator(this, 0); } private: iterator end_iterator; int &the_size; public: iterator& end() { //end_iterator = iterator(this, the_size); return end_iterator; } }; template int open_addr_hash_fast_it::first_power_of_2(int value) { int result = 4; // ojito, minimo 4. TODO: se queda este valor? while (result < value) result += result; return result; } template open_addr_hash_fast_it::open_addr_hash_fast_it(int nbckts, float mxloadf) : end_iterator(this, 0), the_size(end_iterator.index) { num_buckets = first_power_of_2(nbckts); hash_mask = num_buckets-1; // num_buckets is a power of 2 the_size = 0; max_load_factor = (mxloadf <= 0.9) ? mxloadf : 0.9; // must be <1 rehash_threshold= (int)ceilf(max_load_factor*num_buckets); // end_iterator = iterator(this, 0); current_stamp = 1; buckets = new node[num_buckets]; for (int i=0; i open_addr_hash_fast_it::open_addr_hash_fast_it(const open_addr_hash_fast_it& other) : end_iterator(this, other.the_size), the_size(end_iterator.index) { // copy constructor num_buckets = other.num_buckets; hash_mask = other.hash_mask; the_size = other.the_size; max_load_factor = other.max_load_factor; rehash_threshold= other.rehash_threshold; current_stamp = other.current_stamp; buckets = new node[num_buckets]; for (int i=0; i void open_addr_hash_fast_it::clear() { // Erases all of the elements. if (current_stamp >= max_stamp) { for (int i=0; i open_addr_hash_fast_it& open_addr_hash_fast_it::operator=(const open_addr_hash_fast_it& other) { // The assignment operator if (this != &other) { hash_mask = other.hash_mask; // the_size = other.the_size; max_load_factor = other.max_load_factor; rehash_threshold= other.rehash_threshold; current_stamp = other.current_stamp; if (num_buckets != other.num_buckets) { delete[] buckets; num_buckets = other.num_buckets; buckets = new node[num_buckets]; // delete[] iterator_vector; iterator_vector = new int[rehash_threshold+1]; // } for (int i=0; i open_addr_hash_fast_it::~open_addr_hash_fast_it() { // destructor delete[] buckets; // delete[] iterator_vector; // } template dt* open_addr_hash_fast_it::find(const ky& k) { value_type* p = const_cast(find_pair(k)); return p ? &(p->second) : 0; } template const pair * open_addr_hash_fast_it::find_pair(const ky& k) const { unsigned int hfval = hash_function(k); unsigned int index = hfval & hash_mask; unsigned int step = (hfval >> 15) | 1; // debe ser impar while (buckets[index].stamp == current_stamp) { if (equal_key(buckets[index].value.first,k)) return &(buckets[index].value); index = (index + step) & hash_mask; } return 0; } template dt& open_addr_hash_fast_it::operator[] (const ky& k) { unsigned int hfval = hash_function(k); unsigned int index = hfval & hash_mask; unsigned int step = (hfval >> 15) | 1; // debe ser impar while (buckets[index].stamp == current_stamp) { if (equal_key(buckets[index].value.first,k)) return buckets[index].value.second; index = (index + step) & hash_mask; } ++the_size; if (the_size >= rehash_threshold) { resize(num_buckets<<1); // recalcular index sabiendo que no esta, hfval ya lo tenemos index = hfval & hash_mask; step = (hfval >> 15) | 1; while (buckets[index].stamp == current_stamp) index = (index + step) & hash_mask; } // iterator_vector[the_size-1] = index; // buckets[index].stamp = current_stamp; *const_cast(&buckets[index].value.first) = k; return buckets[index].value.second; } template void open_addr_hash_fast_it::resize(int n) { n = first_power_of_2(n); if (n != num_buckets) { node *old_buckets = buckets; int old_num_buckets= num_buckets; int old_stamp = current_stamp; num_buckets = n; hash_mask = n-1; rehash_threshold= (int)ceilf(max_load_factor*num_buckets); // delete[] iterator_vector; iterator_vector = new int[rehash_threshold+1]; // buckets = new node[num_buckets]; for (int i=0; i> 15) | 1; // debe ser impar while (buckets[index].stamp == current_stamp) { index = (index + step) & hash_mask; } buckets[index].stamp = current_stamp; *const_cast(&buckets[index].value.first) = old_buckets[i].value.first; buckets[index].value.second = old_buckets[i].value.second; // iterator_vector[it_vector_pos] = index; it_vector_pos++; // } delete[] old_buckets; } } } // namespace april_utils #endif // OPEN_ADDR_HASH_FAST_IT_H april-ann-0.3.1/packages/basics/util/c_src/pair.h000066400000000000000000000057071234204160600215770ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef PAIR_H #define PAIR_H #include "null_types.h" namespace april_utils { template struct pair { T1 first; T2 second; typedef T1 first_type; typedef T2 second_type; // Constructors pair() : first(T1()), second(T2()) {} pair(const T1& first, const T2& second): first(first), second(second) {} pair(const pair &other): first(other.first), second(other.second) {} pair& operator=(const pair& other) { if (&other != this) { first = other.first; second = other.second; } return (*this); } }; template bool operator== (const pair& x, const pair& y) { return ((x.first == y.first) && (x.second == y.second)); } template bool operator< (const pair& x, const pair& y) { return (( x.first < y.first) || ((x.first == y.first) && (x.second < y.second))); } //---------------------------------------------------------------------- // especializacion para NullType //---------------------------------------------------------------------- template struct pair { T1 first; static NullType second; typedef T1 first_type; typedef NullType second_type; // Constructors pair() {} pair(const T1& first, const NullType&): first(first) {} pair(const pair &other): first(other.first) {} pair& operator=(const pair& other) { if (&other != this) { first = other.first; } return (*this); } }; template bool operator== (const pair& x, const pair& y) { return (x.first == y.first); } template bool operator< (const pair& x, const pair& y) { return (x.first < y.first); } template NullType pair::second; template inline pair make_pair(const first& _X, const second& _Y) { return pair(_X,_Y); } } #endif // PAIR_H april-ann-0.3.1/packages/basics/util/c_src/popen2.cc000066400000000000000000000027461234204160600222050ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "popen2.h" #define READ 0 #define WRITE 1 pid_t popen2(const char *command, int *infp, int *outfp) { int p_stdin[2], p_stdout[2]; pid_t pid; if (pipe(p_stdin) != 0 || pipe(p_stdout) != 0) return -1; pid = fork(); if (pid < 0) return pid; else if (pid == 0) { // el hijo close(p_stdin[WRITE]); dup2(p_stdin[READ], READ); close(p_stdout[READ]); dup2(p_stdout[WRITE], WRITE); execl("/bin/sh", "sh", "-c", command, NULL); perror("execl"); exit(1); } close(p_stdin[READ]); close(p_stdout[WRITE]); *infp = p_stdin[WRITE]; *outfp = p_stdout[READ]; return pid; } april-ann-0.3.1/packages/basics/util/c_src/popen2.h000066400000000000000000000020721234204160600220370ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef POPEN2_H #define POPEN2_H #include #include #include #include #include pid_t popen2(const char *command, int *infp, int *outfp); #endif // POPEN2_H april-ann-0.3.1/packages/basics/util/c_src/qsort.h000066400000000000000000000166661234204160600220220ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef QSORT_H #define QSORT_H #include "swap.h" namespace april_utils { // use T::operator<() template inline void InsertionSort(T v[], int low, int high) { int i,j; T aux; for (i = low+1; i <= high; i++) { aux=v[i]; for (j = i-1; j>=low && aux inline void InsertionSort(T v[], int low, int high, Compare compare) { int i,j; T aux; for (i = low+1; i <= high; i++) { aux=v[i]; for (j = i-1; j>=low && compare(aux,v[j]); j--) v[j+1]=v[j]; v[j+1]=aux; } } // use T::operator<() template inline T med3(T v[], int low, int high) { int cnt = (low+high)/2; if (v[cnt] inline T med3(T v[], int low, int high, Compare compare) { int cnt = (low+high)/2; if (compare(v[cnt] ,v[low])) swap(v[low],v[cnt]); if (compare(v[high],v[low])) swap(v[low],v[high]); if (compare(v[high],v[cnt])) swap(v[cnt],v[high]); swap(v[cnt],v[high-1]); return(v[high-1]); } // use T::operator<() template inline int partition(T v[], int low, int high) { // precondition: low+1 < high int izq,der; T piv = med3(v,low,high); izq=low;der=high-1; do { do { izq++; } while(v[izq] inline int partition(T v[], int low, int high, Compare compare) { // precondition: low+1 < high int izq,der; T piv = med3(v,low,high, compare); izq=low;der=high-1; do { do { izq++; } while(compare(v[izq],piv)); do { der--; } while(compare(piv,v[der])); swap(v[izq],v[der]); } while (izq void Sort(T v[], int low, int high) { const int MIN_SIZE = 8; // Stack space optimization: the smaller partition is dealt with recursively, // and then the bigger one is sorted by tail recursion/iteration, this way // the space complexity is theta(log n), even for the worst case // Also, halt recursion and iteration when the section of the // array to be sorted is less than MIN_SIZE long, and use InsertionSort instead while (high - low >= MIN_SIZE) { int p = partition(v, low, high); if (p - low < high - p) { Sort(v, low, p); low = p + 1; } else { Sort(v, p + 1, high); high = p; } } InsertionSort(v, low, high); } // use specified comparison function template void Sort(T v[], int low, int high, Compare compare) { const int MIN_SIZE = 8; // Stack space optimization: the smaller partition is dealt with recursively, // and then the bigger one is sorted by tail recursion/iteration, this way // the space complexity is theta(log n), even for the worst case // Also, halt recursion and iteration when the section of the // array to be sorted is less than MIN_SIZE long, and use InsertionSort instead while (high - low >= MIN_SIZE) { int p = partition(v, low, high, compare); if (p - low < high - p) { Sort(v, low, p, compare); low = p + 1; } else { Sort(v, p + 1, high, compare); high = p; } } InsertionSort(v, low, high, compare); } /** Template del algoritmo quicksort en la version que realiza una sola llamada recursiva (para evitar que en el caso peor la pila crezca de forma lineal con la talla del vector. En un caso base inferior a MINSIZE (ahora es constante, TODO: se puede meter como un valor en el template y dar valor por defecto) se utiliza InsertionSort. REQUIERE QUE EL TIPO T TENGA DEFINIDA LA OPERACION DE COPIA Y LA COMPARACION MENOR ESTRICTO "<". Se utiliza basicamente asi: \code T v[n]; Sort(v,n); // ordenamos el vector \endcode */ template void Sort(T v[], int sze) { Sort(v,0,sze-1); } template void Sort(T v[], int sze, Compare compare) { Sort(v,0,sze-1, compare); } template T Selection(T v[], int sze, int k) { const int MIN_SIZE = 8; int low=0,high=sze-1,q; while (high - low >= MIN_SIZE) { q = partition(v, low, high); if (k <= q) high = q; else low = q+1; } InsertionSort(v, low, high); return v[k]; } template T Selection(T v[], int sze, int k, Compare cmp) { const int MIN_SIZE = 8; int low=0,high=sze-1,q; while (high - low >= MIN_SIZE) { q = partition(v, low, high, cmp); if (k <= q) high = q; else low = q+1; } InsertionSort(v, low, high, cmp); return v[k]; } template class PartQ { // QuickSortQueue static const int threshold = 15; static const int sizestack = 200; T* v; int size; int first; int stack[sizestack]; int topStack; int lastSorted; void push(int x) { topStack++; stack[topStack] = x; } int top() { return stack[topStack]; } void pop() { topStack--; } void increase_lastSorted() { while (top() < lastSorted) pop(); int ini = lastSorted+1; while (top()-ini >= threshold) { push(partition(v, ini, top()-1)); } InsertionSort(v,ini,top()-1); lastSorted = top(); pop(); } public: PartQ() {} ~PartQ() {} void configure(T* vector, int size) { v = vector; this->size = size; first = 0; lastSorted = -1; topStack = -1; push(size); } bool extractMin(T& value) { if (first >= size) return false; if (first > lastSorted) { increase_lastSorted(); } value = v[first]; first++; return true; } void sort_up_to(int index) { if (index >= size) index = size-1; while (lastSorted < index) increase_lastSorted(); } int getSize() { return size - first; } }; } // namespace #endif //QSORT_H april-ann-0.3.1/packages/basics/util/c_src/referenced.cc000066400000000000000000000037251234204160600231020ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ // #define __PRINT_STACK__ // #define __DEBUG__ // #define _debugrefsno0_ #include "referenced.h" #ifdef __DEBUG__ #include #include "error_print.h" #endif #ifdef _debugrefsno0_ #include #endif Referenced::Referenced() { #ifdef __DEBUG__ fprintf(stderr," DEBUG Creating %p\n",this); #ifdef __PRINT_STACK__ print_CPP_stacktrace(); #endif #endif refs = 0; } Referenced::~Referenced() { #ifdef __DEBUG__ fprintf(stderr," DEBUG Destroying %p with reference %d\n",this,refs); #ifdef __PRINT_STACK__ print_CPP_stacktrace(); #endif #endif #ifdef _debugrefsno0_ if (refs != 0) fprintf(stderr,"Warning: destroying %p with reference %d!=0\n",this,refs); #endif } void Referenced::incRef() { refs++; #ifdef __DEBUG__ fprintf(stderr," DEBUG IncRef %p to reference %d\n",this,refs); #ifdef __PRINT_STACK__ print_CPP_stacktrace(); #endif #endif } bool Referenced::decRef() { refs--; #ifdef __DEBUG__ fprintf(stderr," DEBUG DecRef %p to reference %d\n",this,refs); #ifdef __PRINT_STACK__ print_CPP_stacktrace(); #endif #endif return (refs <= 0); } int Referenced::getRef() const { return refs; } april-ann-0.3.1/packages/basics/util/c_src/referenced.h000066400000000000000000000034061234204160600227400ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef REFERENCED_H #define REFERENCED_H #define IncRef(x) (x)->incRef() #define DecRef(x) if ((x)->decRef()) delete (x) /** * The class Referenced is used as base class for binded to Lua classes. It * implements reference counting interface. */ class Referenced { protected: int refs; public: Referenced(); virtual ~Referenced(); virtual void incRef(); virtual bool decRef(); virtual int getRef() const; }; /** * The functions template AssignRef allows to change the reference of a pointer * taking into account the corresponding IncRef and DecRef. * * @param[out] dest It is the variable where to assign the value, its content * will be DecRef'ed. * * @param ref It is the variable with the value which you want to assign. */ template void AssignRef(T *&dest, T *ref) { if (dest != ref) { if (dest != 0) DecRef(dest); dest = ref; IncRef(dest); } } #endif // REFERENCED_H april-ann-0.3.1/packages/basics/util/c_src/reservoir.h000066400000000000000000000074721234204160600226650ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef RESERVOIR_H #define RESERVOIR_H #include "slist.h" #ifdef _OPENMP #include #endif /* esta clase sirve para crear un pool de objetos de modo que los objetos se sacan del pool con el constructor de copia y se devuelven al pool con el destructor entre otras cosas, sirve para tener variables caras de construir y destruir que se utilicen en un paralel for de openmp usando el cualificador firstprivate que llama al constructor de copia y crea una instancia por thread en lugar de crear una instancia por iteracion */ using april_utils::slist; template struct ReservoirPool { #ifdef _OPENMP omp_lock_t lock; #endif slist pool; ReservoirPool() { #ifdef _OPENMP omp_init_lock(&lock); #endif } ~ReservoirPool() { #ifdef _OPENMP omp_destroy_lock(&lock); #endif while (!pool.empty()) { T *aux = pool.front(); pool.pop_front(); delete aux; } } T* get() { T *resul; #ifdef _OPENMP omp_set_lock(&lock); #endif if (pool.empty()) { resul = new T; } else { resul = pool.front(); pool.pop_front(); } #ifdef _OPENMP omp_unset_lock(&lock); #endif return resul; } void release(T *released) { #ifdef _OPENMP omp_set_lock(&lock); #endif pool.push_back(released); #ifdef _OPENMP omp_unset_lock(&lock); #endif } }; template class ReservoirContainer { ReservoirPool *pool; T *val; public: T* value() const { return val; } ReservoirContainer(ReservoirPool *pool) { this->pool = pool; val = pool->get(); } ReservoirContainer(const ReservoirContainer &other) { pool = other.pool; val = pool->get(); } ~ReservoirContainer() { pool->release(val); } }; template struct VectorReservoirPool { #ifdef _OPENMP omp_lock_t lock; #endif slist pool; int vector_size; VectorReservoirPool(int vector_size) : vector_size(vector_size) { #ifdef _OPENMP omp_init_lock(&lock); #endif } ~VectorReservoirPool() { #ifdef _OPENMP omp_destroy_lock(&lock); #endif while (!pool.empty()) { T *aux = pool.front(); pool.pop_front(); delete [] aux; } } T* get() { T *resul; #ifdef _OPENMP omp_set_lock(&lock); #endif if (pool.empty()) { resul = new T[vector_size]; } else { resul = pool.front(); pool.pop_front(); } #ifdef _OPENMP omp_unset_lock(&lock); #endif return resul; } void release(T *released) { #ifdef _OPENMP omp_set_lock(&lock); #endif pool.push_back(released); #ifdef _OPENMP omp_unset_lock(&lock); #endif } }; template class VectorReservoirContainer { VectorReservoirPool *pool; T *val; public: T* value() const { return val; } VectorReservoirContainer(VectorReservoirPool *pool) { this->pool = pool; val = pool->get(); } VectorReservoirContainer(const VectorReservoirContainer &other) { pool = other.pool; val = pool->get(); } ~VectorReservoirContainer() { pool->release(val); } }; #endif // RESERVOIR_H april-ann-0.3.1/packages/basics/util/c_src/signal_handler.cc000066400000000000000000000101361234204160600237440ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include #include #include #include #include "signal_handler.h" #include "error_print.h" /// Table which contains the Lua function references #define TABLE_NAME "__signal__" namespace april_utils { /// The mapping between signals and Lua function references int SignalHandler::signal_handlers[MAX_SIGNALS]; lua_State *SignalHandler::globalL = 0; /// The handler in C++, a static function which calls the Lua function related /// with the given signal number void SignalHandler::sig_handler(int sgn) { if (signal_handlers[sgn] == LUA_REFNIL) ERROR_EXIT(128, "It couldn't be happening... :S\n"); lua_getfield(globalL, LUA_REGISTRYINDEX, TABLE_NAME); lua_rawgeti(globalL, -1, signal_handlers[sgn]); lua_call(globalL, 0, 0); lua_pop(globalL, 1); } /// Initialization of all the mappings to LUA_REFNIL, captures the lua_State, /// and register of TABLE_NAME in the registry of Lua void SignalHandler::initialize(lua_State *L) { if (globalL != 0) ERROR_EXIT(256, "Trying to initialize twice\n"); globalL = L; for (int i=0; i= MAX_SIGNALS) ERROR_EXIT2(256,"Unknown signal number, found %d, expected to be in " "range [0,%d]\n", sgn, MAX_SIGNALS-1); if (signal_handlers[sgn] != LUA_REFNIL) { ERROR_PRINT("Trying to register previously registered signal (it will be overwritten)\n"); release_signal(sgn); } sig_t handler_func; int ref; if (lua_isnil(globalL,-1)) { ref = LUA_REFNIL; handler_func = SIG_IGN; } else { lua_getfield(globalL, LUA_REGISTRYINDEX, TABLE_NAME); lua_pushvalue(globalL, -2); ref = luaL_ref(globalL, -2); lua_pop(globalL, -1); handler_func = SignalHandler::sig_handler; } signal_handlers[sgn] = ref; sig_t ret = signal(sgn, handler_func); if (ret == SIG_ERR) ERROR_EXIT1(128, "%s\n", strerror(errno)); else if (ret != SIG_IGN && ret != SIG_DFL) ERROR_PRINT("Registering a signal which was previously " "registered by a third (it will be overwritten)\n"); } /// Releases the function associated with the given signal void SignalHandler::release_signal(int sgn) { if (sgn < 0 || sgn >= MAX_SIGNALS) ERROR_EXIT2(256,"Unknown signal number, found %d, expected to be in " "range [0,%d]\n", sgn, MAX_SIGNALS-1); sig_t ret = signal(sgn, SIG_DFL); if (ret == SIG_ERR) ERROR_EXIT1(128, "%s\n", strerror(errno)); else if (signal_handlers[sgn] == LUA_REFNIL && ret != SIG_IGN) ERROR_EXIT(256, "Releasing a signal registered by a third\n"); lua_getfield(globalL, LUA_REGISTRYINDEX, TABLE_NAME); lua_pushvalue(globalL, -2); luaL_unref(globalL, -2, signal_handlers[sgn]); lua_pop(globalL, -1); signal_handlers[sgn] = LUA_REFNIL; } /// Masks the given set of signals void SignalHandler::mask_signals(int how, sigset_t *set) { if (sigprocmask(how, set, 0) != 0) ERROR_EXIT1(128, "%s\n", strerror(errno)); } } april-ann-0.3.1/packages/basics/util/c_src/signal_handler.h000066400000000000000000000026721234204160600236140ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef SIGNAL_HANDLER_H #define SIGNAL_HANDLER_H #include extern "C" { #include "lauxlib.h" #include "lualib.h" #include "lua.h" } #define MAX_SIGNALS 32 namespace april_utils { /// This class is not thread-safe, so don't use it with threads. class SignalHandler { static lua_State *globalL; // hash ( signal -> lua reference ) static int signal_handlers[MAX_SIGNALS]; static void sig_handler(int sgn); public: static void initialize(lua_State *L); static void register_signal(int sgn); static void release_signal(int sgn); static void mask_signals(int how, sigset_t *set); }; } #endif april-ann-0.3.1/packages/basics/util/c_src/slist.h000066400000000000000000000161471234204160600220020ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef SLIST_H #define SLIST_H #include #include "swap.h" //#include namespace april_utils { // Be careful! It's not std::slist :) // Implements Container and Front Insertion Sequence template class slist { // Linked-list nodes struct node { T data; node *next; // Constructor node(T t, node* n):data(t), next(n) {} }; node *first; node *last; size_t list_size; void init_list() { first = 0; last = 0; list_size = 0; } void delete_list() { while (!empty()) pop_front(); list_size = 0; first = 0; last = 0; } public: typedef T value_type; typedef T* pointer; typedef T& reference; typedef const T& const_reference; typedef size_t size_type; typedef ptrdiff_t difference_type; struct const_iterator; struct iterator { friend struct const_iterator; private: node *ptr; public: typedef T value_type; typedef T* pointer; typedef T& reference; typedef const T& const_reference; typedef ptrdiff_t difference_type; //typedef std::forward_iterator_tag iterator_category; iterator(): ptr(0) {} iterator(node *p): ptr(p) {} iterator& operator++() { // preincrement ptr = ptr->next; return *this; } iterator operator++(int) { // postincrement node *tmp = ptr; ptr = ptr->next; return iterator(tmp); } T& operator *() { // dereference return ptr->data; } T* operator ->() { return &(ptr->data); } bool operator == (const iterator &i) { return ptr == i.ptr; } bool operator != (const iterator &i) { return ptr != i.ptr; } }; struct const_iterator { private: const node *ptr; public: typedef T value_type; typedef T* pointer; typedef T& reference; typedef const T& const_reference; typedef ptrdiff_t difference_type; //typedef std::forward_iterator_tag iterator_category; const_iterator(): ptr(0) {} const_iterator(const node *p): ptr(p) {} const_iterator(const iterator &i): ptr(i.ptr) {} const_iterator& operator++() { // preincrement ptr = ptr->next; return *this; } const_iterator operator++(int) { // postincrement const node *tmp = ptr; ptr = ptr->next; return const_iterator(tmp); } const T& operator *() { // dereference return ptr->data; } const T* operator ->() { return &(ptr->data); } bool operator == (const const_iterator &i) { return ptr == i.ptr; } bool operator != (const const_iterator &i) { return ptr != i.ptr; } }; iterator begin() { return iterator(first); } iterator end() { return iterator(0); } const_iterator begin() const { return const_iterator(first); } const_iterator end() const { return const_iterator(0); } size_type size() const { return list_size; } size_type max_size() const { return size_type(-1); } bool empty() const { return (list_size==0); } slist() { init_list(); } slist(size_type n) { init_list(); for (size_type i=0; i slist(InputIterator f, InputIterator l) { init_list(); for (InputIterator i = f; i != l; i++) { push_back(*i); } } ~slist() { delete_list(); } slist &operator=(slist &l){ if (&l != this) { delete_list(); for (iterator i = l.begin(); i != l.end(); i++) push_back(*i); } return *this; } void swap(slist &l){ april_utils::swap(first, l.first); april_utils::swap(last, l.last); april_utils::swap(list_size, l.list_size); } // These 2 functions have precondition = !empty() reference front() { return first->data; } const_reference front() const { return first->data; } void push_front(const_reference t) { first = new node(t, first); if (list_size == 0) last = first; list_size++; } // Precondition: !empty() void pop_front() { node *tmp = first; first = first->next; delete tmp; list_size--; } void push_back(const_reference t) { if (list_size == 0) { first = new node(t,0); last = first; } else { last->next = new node(t, 0); last = last->next; } list_size++; } // TODO: Reflexionar sobre la conveniencia de meter un metodo // que no se parece en nada a lo que hay en la slist de la STL. // // transfer_front_to_front toma el primer elemento de la lista l y lo inserta // en la cabeza de this, sin hacer un push_front y un pop_front que // supondrian un new y un delete adicionales. void transfer_front_to_front(slist &l) { if (l.first) { node *aux = l.first; // No usamos pop_front porque no queremos hacer un delete del nodo l.first = l.first->next; l.list_size--; aux->next = first; first = aux; if (list_size == 0) { last = aux; } list_size++; } } // transfer_front_to_back toma el primer elemento de la lista l y lo inserta // en la cola de this, sin hacer un push_back y un pop_front que // supondrian un new y un delete adicionales. void transfer_front_to_back(slist &l) { if (l.first) { node *aux = l.first; // No usamos pop_front porque no queremos hacer un delete del nodo l.first = l.first->next; l.list_size--; aux->next = 0; if (list_size == 0) { last = first = aux; } else { last->next = aux; last = last->next; } list_size++; } } }; } #endif april-ann-0.3.1/packages/basics/util/c_src/stopwatch.cc000066400000000000000000000045311234204160600230100ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "stopwatch.h" #include #include namespace april_utils { double stopwatch::get_cpu_clock() const { struct rusage wop; getrusage(RUSAGE_SELF, &wop); return static_cast(wop.ru_utime.tv_sec) + static_cast(wop.ru_utime.tv_usec)*1e-6; } double stopwatch::get_wall_clock() const { struct timeval wop; gettimeofday(&wop, 0); return static_cast(wop.tv_sec) + static_cast(wop.tv_usec)*1e-6; } stopwatch::stopwatch() { reset(); _is_on = false; } void stopwatch::reset() { cpu_elapsed = 0.0; wall_elapsed = 0.0; cpu_t_ini = get_cpu_clock(); wall_t_ini = get_wall_clock(); } void stopwatch::stop() { double cpu_increment = get_cpu_clock() - cpu_t_ini; if (cpu_increment>0) cpu_elapsed += cpu_increment; double wall_increment = get_wall_clock() - wall_t_ini; if (wall_increment>0) wall_elapsed += wall_increment; _is_on = false; } void stopwatch::go() { _is_on = true; cpu_t_ini = get_cpu_clock(); wall_t_ini = get_wall_clock(); } double stopwatch::read_cpu_time() const { double increment = (_is_on) ? get_cpu_clock() - cpu_t_ini : 0; if (increment<0) increment = 0; return cpu_elapsed+increment; } double stopwatch::read_wall_time() const { double increment = (_is_on) ? get_wall_clock() - wall_t_ini : 0; if (increment<0) increment = 0; return wall_elapsed+increment; } } april-ann-0.3.1/packages/basics/util/c_src/stopwatch.h000066400000000000000000000031341234204160600226500ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef STOPWATCH_H #define STOPWATCH_H #include "referenced.h" namespace april_utils { class stopwatch : public Referenced { double cpu_elapsed; ///< tiempo acumulado de cpu double wall_elapsed; ///< tiempo acumulado double cpu_t_ini; ///< auxiliar double wall_t_ini; ///< auxiliar bool _is_on; ///< significado obvio /// devuelve tiempo en segundos inline double get_cpu_clock() const; inline double get_wall_clock() const; public: stopwatch(); void reset(); void stop(); void go(); double read_cpu_time() const; double read_wall_time() const; double read() const { return read_cpu_time(); } // compatible hacia abajo bool is_on() const { return _is_on; } }; } #endif // STOPWATCH_H april-ann-0.3.1/packages/basics/util/c_src/stringQueue.cc000066400000000000000000000134121234204160600233050ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "stringQueue.h" #include // vsnprintf #include // memcpy(dest,src,sz) #include #include #include "maxmin.h" using april_utils::min; StringQueue::StringQueue() { firstNode = lastNode = 0; theSize = 0; } void StringQueue::clear() { while (firstNode) { Node *aux = firstNode; firstNode = firstNode->next; delete aux; } lastNode = 0; theSize = 0; } inline void StringQueue::checkNonEmpty() { if (!lastNode) { firstNode = lastNode = new Node; } } inline void StringQueue::checkLast() { if (lastNode->last == Node::bufferSize) { lastNode->next = new Node; lastNode = lastNode->next; } } void StringQueue::putchar(char c) { checkNonEmpty(); checkLast(); lastNode->putCharNoCheck(c); theSize++; } void StringQueue::putchars(char c, int times) { checkNonEmpty(); for (int i=0;iputCharNoCheck(c); } theSize += times; } void StringQueue::print(const char *str) { checkNonEmpty(); for (char c = *str++; c != '\0'; c = *str++) { checkLast(); lastNode->putCharNoCheck(c); theSize++; } } void StringQueue::printEsc(const char *str) { checkNonEmpty(); for (char c = *str++; c != '\0'; c = *str++) { bool esc=true; switch (c) { case '\\': if (*str=='u') esc=false; break; // copy \uHHHH verbatim case '"': break; case '\b': c = 'b'; break; case '\f': c = 'f'; break; case '\n': c = 'n'; break; case '\r': c = 'r'; break; case '\t': c = 't'; break; default: esc = false; break; } if (esc) { checkLast(); lastNode->putCharNoCheck('\\'); theSize++; } checkLast(); lastNode->putCharNoCheck(c); theSize++; } } void StringQueue::putBuffer(const char* buffer,int buffersz) { if (buffersz <= 0) return; checkNonEmpty(); theSize += buffersz; while (buffersz > 0) { checkLast(); int toCopy = min(buffersz,lastNode->freeSpace()); memcpy(lastNode->buffer+lastNode->last, buffer, toCopy); lastNode->last += toCopy; buffer += toCopy; buffersz -= toCopy; } } void StringQueue::putStringQueue(const StringQueue &other) { for (const Node *r = other.firstNode; r!=0; r=r->next) putBuffer(r->buffer,r->occuped()); // theSize is incremented there } void StringQueue::printf(const char *fmt, ...) { const int FIRSTSIZE = 256; int bufsize = FIRSTSIZE; char *buf = 0; for (;;) { delete[] buf; buf = new char[bufsize]; va_list args; va_start(args, fmt); int outsize = vsnprintf(buf, bufsize, fmt, args); va_end(args); if (outsize == -1) { // Clear indication that output was truncated, but no clear // indication of how big buffer needs to be, so simply double // existing buffer size for next time. bufsize *= 2; } else if (outsize == bufsize) { // Output was truncated (since at least the \0 could not fit), // but no indication of how big the buffer needs to be, so just // double existing buffer size for next time. bufsize *= 2; } else if (outsize > bufsize) { // Output was truncated, but we were told exactly how big the // buffer needs to be next time. Add two chars to the returned // size. One for the \0, and one to prevent ambiguity in the // next case below. bufsize += 2; } else if (outsize == bufsize - 1) { // This is ambiguous. May mean that the output string exactly // fits, but on some systems the output string may have been // trucated. We can't tell. Just double the buffer size for // next time. bufsize *= 2; } else { // Output was not truncated putBuffer(buf,outsize); // theSize is incremented there delete[] buf; return; } } } // returns a buffer pointer and a buffer size int StringQueue::getBufferChunk(char **buffer) { if (!firstNode) { *buffer=0; return 0; } *buffer = firstNode->buffer + firstNode->first; return (firstNode->last - firstNode->first); } char* StringQueue::exportBuffer(int &sz) const { sz = size(); char *resul, *dest; resul = dest = new char[sz+1]; for (const Node *r = firstNode; r!=0; r=r->next) { int t = r->occuped(); memcpy(dest, r->buffer, t); dest += t; } *dest = '\0'; return resul; } // drops first bufferAdvance bytes from StringQueue // a bufferAdvance value <= previous getBufferChunk result is assumed void StringQueue::advanceBuffer(int bufferAdvance) { firstNode->first += bufferAdvance; theSize -= bufferAdvance; if (firstNode->first >= firstNode->last) { if (firstNode == lastNode) { // only one node firstNode->first = firstNode->last = 0; // reset node } else { // firstNode->first == Node::bufferSize and >1 Node Node *aux = firstNode; firstNode = firstNode->next; delete aux; } } } april-ann-0.3.1/packages/basics/util/c_src/stringQueue.h000066400000000000000000000045341234204160600231540ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef STRINGQUEUE_H #define STRINGQUEUE_H class StringQueue { struct Node { static const int bufferSize = 2048 - 2*sizeof(int) - sizeof(Node*); int first,last; Node *next; char buffer[bufferSize]; Node() : first(0), last(0), next(0) {} int occuped() const { return last-first; } int freeSpace() const { return bufferSize-last; } void putCharNoCheck(char c) { buffer[last] = c; last++; } }; Node *firstNode, *lastNode; int theSize; void checkNonEmpty(); void checkLast(); public: StringQueue(); ~StringQueue() { clear(); } void clear(); int size() const { return theSize; } bool empty() const { return size() == 0; } void putchar(char); void putchars(char c,int times); void putBuffer(const char* buffer,int buffersz); void putStringQueue(const StringQueue &other); void print(const char *str); void printEsc(const char *str); void printf(const char *fmt, ...); // returns a buffer pointer and a buffer size int getBufferChunk(char **buffer); // drops first bufferAdvance bytes from StringQueue void advanceBuffer(int bufferAdvance); // returns a new buffer char *exportBuffer(int &sz) const; // syntactic sugar :) StringQueue& operator<< (const char *str) { print(str); return *this; } StringQueue& operator<< (int i) { printf("%d",i); return *this; } StringQueue& operator<< (float f) { printf("%g",f); return *this; } StringQueue& operator<< (double f) { printf("%g",f); return *this; } }; #endif // STRINGQUEUE_H april-ann-0.3.1/packages/basics/util/c_src/swap.h000066400000000000000000000020201234204160600215770ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef SWAP_H #define SWAP_H namespace april_utils { template inline void swap(T & a, T & b) { T tmp(a); a = b; b = tmp; } } #endif //SWAP_H april-ann-0.3.1/packages/basics/util/c_src/trie.h000066400000000000000000000203621234204160600216010ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef TRIE_H #define TRIE_H #include "aux_hash_table.h" #include "error_print.h" #include #include #include "hash_table.h" namespace april_utils { /// Plantilla para implementar un Trie generico, que guarda /// transiciones entre estados con el tipo int, y da como salida el tipo /// O. template class Trie { public: // una transicion va de (estado, int) => (dest) typedef april_utils::hash transitions_t; private: // tabla de finales april_utils::hash outputs_tbl; // nodos y transiciones transitions_t transitions_tbl; int *levels_tbl; int num_nodes; int next_node; public: ///////////////////////////////////////////////////////////////////////////// typedef typename april_utils::hash::iterator outputs_iterator; // iterador sencillo class iterator { friend class Trie; Trie *trie; typename transitions_t::iterator hash_it; iterator(Trie *trie, typename transitions_t::iterator it) { this->trie = trie; this->hash_it = it; } public: iterator(): trie(0) {} iterator& operator++(){ // preincrement hash_it++; return *this; } iterator operator++(int){ // postincrement iterator tmp(*this); ++(*this); return tmp; } int get_node() { // typedef april_utils::hash<(estado,word), int, return hash_it->first.first; } int get_tr_value() { // typedef april_utils::hash<(estado,word), int, return hash_it->first.second; } int get_dest() { // typedef april_utils::hash<(estado,word), int, return hash_it->second; } int get_level() { // typedef april_utils::hash<(estado,word), int, return trie->levels_tbl[hash_it->first.first]; } pair & get_transition() { return *hash_it; } const O *get_outputs() { // typedef april_utils::hash<(estado,word), int, return trie->outputs_tbl.find(hash_it->first.first); } bool operator == (const iterator &other) { return ((hash_it == other.hash_it) && (trie == other.trie)); } bool operator != (const iterator &other) { return ((hash_it != other.hash_it) || (trie != other.trie)); } }; ///////////////////////////////////////////////////////////////////////////// /// Reserva memoria, el tamanyo del Trie debe ser conocido a priori. Trie(int num_nodes = 8) : outputs_tbl(8, 2.0), transitions_tbl(8, 2.0) { if (num_nodes <= 0) num_nodes = 8; this->num_nodes = num_nodes; next_node = 1; levels_tbl = new int[num_nodes]; levels_tbl[0] = 0; } /// Libera los recursos ~Trie() { delete[] levels_tbl; } void clear() { next_node = 1; transitions_tbl.clear(); outputs_tbl.clear(); } int get_state_level(int st) { return levels_tbl[st]; } int get_size() { return next_node; } /// Crea una transicion entre estados void insert(int orig, int dest, int key, int level) { if (orig > next_node) next_node = orig+1; if (dest > next_node) next_node = dest+1; if (orig > num_nodes) resize(orig<<1); if (dest > num_nodes) resize(dest<<1); transitions_tbl[int_pair(orig, key)] = dest; levels_tbl[orig] = level; levels_tbl[dest] = level+1; } /// Guarda los outputs void set_state_output(int st, O value) { outputs_tbl[st] = value; } /// Devuelve los outputs const O *get_state_output(int st) { return outputs_tbl.find(st); } /// Inserta una secuencia en trie, y le asocia value como salida void insert(const int *key, O value, int key_size) { int current_node = 0; int next_level = 1; for (int i=0; i= num_nodes) resize(num_nodes<<1); } next_level++; } // guarda el valor de salida en la tabla de outputs outputs_tbl[current_node] = value; } void resize(int n) { // para hacer un resize del Trie... int *old_levels = levels_tbl; int old_num_nodes = num_nodes; num_nodes = n; levels_tbl = new int[n]; for (int i=0; i= num_nodes) resize(num_nodes<<1); } next_level++; } // buscamos el nodo en la lista de outputs del Trie return outputs_tbl[current_node]; } iterator begin() { return iterator(this, transitions_tbl.begin()); } iterator end() { return iterator(this, transitions_tbl.end()); } outputs_iterator begin_outputs() { return outputs_tbl.begin(); } outputs_iterator end_outputs() { return outputs_tbl.end(); } }; }; #endif // TRIE_H april-ann-0.3.1/packages/basics/util/c_src/trie4lua.cc000066400000000000000000000025661234204160600225330ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "trie4lua.h" namespace april_utils { Trie4lua::Trie4lua() { lastId = rootNode; } int Trie4lua::reserveId() { lastId++; return lastId; } int Trie4lua::find(int *wordsequence, int lenght) { int index = rootNode; for (int i=0; isecond = reserveId(); index = r->second; } return index; } } // namespace april-ann-0.3.1/packages/basics/util/c_src/trie4lua.h000066400000000000000000000027421234204160600223710ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef TRIE4LUA_H #define TRIE4LUA_H #include "referenced.h" #include "aux_hash_table.h" #include "hash_table.h" namespace april_utils { // This c++ class replaces a previous one implemented in lua, I have // decided not to reuse a previous trie class since this one is even // simpler class Trie4lua : public Referenced { static const int rootNode = 0; int lastId; // estado x palabra -> estado typedef hash hash_type; hash_type transition_t; public: Trie4lua(); int reserveId(); int find(int *wordsequence, int lenght); }; } // namespace april_utils #endif // TRIE4LUA_H april-ann-0.3.1/packages/basics/util/c_src/trie_open_addressing.h000066400000000000000000000246401234204160600250300ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef TRIE_OPEN_ADDR_H #define TRIE_OPEN_ADDR_H #include "aux_hash_table.h" #include "error_print.h" #include #include #include "open_addressing_hash_timestamp.h" #include "trie.h" namespace april_utils { /// Plantilla para implementar un Trie generico, que guarda /// transiciones entre estados con el tipo int, y da como salida el tipo /// O. template class TrieOpenAddr { public: // una transicion va de (estado, int) => (dest) typedef april_utils::open_addr_hash_timestamp transitions_t; private: // tabla de finales april_utils::open_addr_hash_timestamp outputs_tbl; // nodos y transiciones transitions_t transitions_tbl; int *levels_tbl; int num_nodes; int next_node; public: //////////////////////////////////////////////////////////////////////////// typedef typename april_utils::hash::iterator outputs_iterator; // iterador sencillo class iterator { friend class TrieOpenAddr; TrieOpenAddr *trie; typename transitions_t::iterator hash_it; iterator(TrieOpenAddr *trie, typename transitions_t::iterator it) { this->trie = trie; this->hash_it = it; } public: iterator(): trie(0) {} iterator& operator++(){ // preincrement hash_it++; return *this; } iterator operator++(int){ // postincrement iterator tmp(*this); ++(*this); return tmp; } int get_node() { // typedef april_utils::hash<(estado,word), int, return hash_it->first.first; } int get_tr_value() { // typedef april_utils::hash<(estado,word), int, return hash_it->first.second; } int get_dest() { // typedef april_utils::hash<(estado,word), int, return hash_it->second; } int get_level() { // typedef april_utils::hash<(estado,word), int, return trie->levels_tbl[hash_it->first.first]; } pair & get_transition() { return *hash_it; } const O *get_outputs() { // typedef april_utils::hash<(estado,word), int, return trie->outputs_tbl.find(hash_it->first.first); } bool operator == (const iterator &other) { return ((hash_it == other.hash_it) && (trie == other.trie)); } bool operator != (const iterator &other) { return ((hash_it != other.hash_it) || (trie != other.trie)); } }; /////////////////////////////////////////////////////////////////////////// /// Reserva memoria, el tamanyo del Trie debe ser conocido a priori. TrieOpenAddr(int num_nodes = 8) : outputs_tbl(8, 0.6), transitions_tbl(8, 0.6) { if (num_nodes <= 0) num_nodes = 8; this->num_nodes = num_nodes; next_node = 1; levels_tbl = new int[num_nodes]; levels_tbl[0] = 0; } /// Libera los recursos ~TrieOpenAddr() { delete[] levels_tbl; } void clear() { next_node = 1; transitions_tbl.clear(); outputs_tbl.clear(); } int get_state_level(int st) { return levels_tbl[st]; } int get_size() { return next_node; } /// Crea una transicion entre estados void insert(int orig, int dest, int key, int level) { if (orig > next_node) next_node = orig+1; if (dest > next_node) next_node = dest+1; if (orig > num_nodes) resize(orig<<1); if (dest > num_nodes) resize(dest<<1); transitions_tbl[int_pair(orig, key)] = dest; levels_tbl[orig] = level; levels_tbl[dest] = level+1; } /// Guarda los outputs void set_state_output(int st, O value) { outputs_tbl[st] = value; } /// Devuelve los outputs const O *get_state_output(int st) { return outputs_tbl.find(st); } /// Inserta una secuencia en trie, y le asocia value como salida void insert(const int *key, O value, int key_size) { int current_node = 0; int next_level = 1; for (int i=0; i= num_nodes) resize(num_nodes<<1); } next_level++; } // guarda el valor de salida en la tabla de outputs outputs_tbl[current_node] = value; } /// Inserta una secuencia en trie, y le asocia value como salida void insert(const int *key, int last_key, O value, int key_size) { int current_node = 0; int next_level = 1; for (int i=0; i= num_nodes) resize(num_nodes<<1); } next_level++; } { int_pair tr_key(current_node, last_key); // busca la componente actual de la secuencia en el estado current_node const int *aux = transitions_tbl.find(tr_key); if (aux != 0) current_node = *aux; else { // si no lo encuentra, crea un nuevo acceso en la tabla y un // nuevo nodo destino transitions_tbl[tr_key] = next_node; levels_tbl[next_node] = next_level; current_node = next_node++; if (next_node >= num_nodes) resize(num_nodes<<1); } next_level++; } // guarda el valor de salida en la tabla de outputs outputs_tbl[current_node] = value; } void resize(int n) { // para hacer un resize del Trie... int *old_levels = levels_tbl; int old_num_nodes = num_nodes; num_nodes = n; levels_tbl = new int[n]; for (int i=0; i= num_nodes) resize(num_nodes<<1); } next_level++; } // buscamos el nodo en la lista de outputs del Trie return outputs_tbl[current_node]; } iterator begin() { return iterator(this, transitions_tbl.begin()); } iterator end() { return iterator(this, transitions_tbl.end()); } outputs_iterator begin_outputs() { return outputs_tbl.begin(); } outputs_iterator end_outputs() { return outputs_tbl.end(); } }; }; #endif // TRIE_OPEN_ADDR_H april-ann-0.3.1/packages/basics/util/c_src/trie_vector.cc000066400000000000000000000126531234204160600233250ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include // memset #include "trie_vector.h" #include "error_print.h" #include "swap.h" namespace april_utils { TrieVector::TrieVector(int logSize) { vectorSize = 1< max_allowed_size) ERROR_EXIT1(-1,"trie vector grew too much (maxAllowedSize = %d)\n", max_allowed_size); return index; } index = (index+increment) & mask; } return 0; // esto no deberia ocurrir, para que no se queje el compilador } uint32_t TrieVector::getPersistentChild (uint32_t node, uint32_t word) { static const unsigned int cte_hash = 2654435769U; // hash Fibonacci TrieNode searched(node,word<<8); unsigned int index = (node*cte_hash ^ word) & mask; unsigned int increment = word | 1; // considera que los nodos efimeros estan todos libres while ((data[index].wordStamp & 255) == 0 && data[index] != searched) index = (index+increment) & mask; if (data[index] != searched) { data[index] = searched; // size++; --max_allowed_size; if (size > max_allowed_size) { ERROR_EXIT1(-1,"trie vector grew too much (maxAllowedSize = %d)\n", max_allowed_size); } } return index; } bool TrieVector::hasChild (uint32_t node, uint32_t word, uint32_t &destnode) { static const unsigned int cte_hash = 2654435769U; // hash Fibonacci TrieNode searchedP(node,word<<8); TrieNode searchedE(node,(word<<8)|stamp); unsigned int index = (node*cte_hash ^ word) & mask; unsigned int increment = word | 1; for (;;) { unsigned int stmp = data[index].wordStamp & 255; if (stmp == 0) { // es un nodo persistente if (data[index] == searchedP) { destnode=index; return true; } } else if (stmp == stamp) { if (data[index] == searchedE) { destnode=index; return true; } } else { return false; } index = (index+increment) & mask; } return false; // esto no deberia ocurrir, para que no se queje el compilador } bool TrieVector::hasSequence(const uint32_t *sequence, int length, uint32_t &destnode) { uint32_t index = rootNode(); for (int i=0; i> 8; node = data[node].parent; len++; } if (node != 0) return -1; // reverse sequence: int first=0,last=len-1; while (first #include "referenced.h" /* Estructura de datos para representar tries de palabras. Las palabras son uint32 con valores entre 0 y 2**24-2 (la 2**24-1 se reserva) NO SOPORTA REHASHING, pues cada nodo se identifica con su indice en el vector de open addressing. Cada nodo contiene el indice de su padre y la ultima palabra introducida. Para acceder a un nodo hijo se hace hashing con el propio nodo padre y la palabra introducida. Utiliza timestamp de talla 1 byte, lo que supone recorrer la tabla cada 255 llamadas a "clear()" El valor de timestamp 0 se reserva para nodos "persistentes" que no se borran con la operacion "clear". Se presupone que todas las inserciones persistentes se realizan al principio, con lo que no hace falta comprobar que todos los antecesores de un nodo persistente tambien lo son. */ namespace april_utils { class TrieVector : public Referenced { unsigned int max_allowed_size; static const uint32_t NoWord = (1<<24)-1; struct TrieNode { union { struct { uint32_t parent; // indice en vector uint32_t wordStamp; // word<<8|stamp }; uint64_t rawValue; }; TrieNode(uint32_t parent=0, uint32_t wordStamp=0) : parent(parent), wordStamp(wordStamp) {} bool operator!= (const TrieNode &other) const { return rawValue != other.rawValue; } bool operator== (const TrieNode &other) const { return rawValue == other.rawValue; } }; unsigned int vectorSize; // talla del vector, potencia de 2 unsigned int mask; // vectorSize-1 unsigned int size; // elementos insertados unsigned int stamp; // actual TrieNode *data; // el vector public: TrieVector(int logSize=20); ~TrieVector(); unsigned int getSize() const { return size; } uint32_t getParent(uint32_t node) const { return data[node].parent; } uint32_t getWord(uint32_t node) const { return data[node].wordStamp>>8; } // busqueda sin insertar bool hasChild (uint32_t node, uint32_t word, uint32_t &destnode); // busqueda insertando uint32_t getChild (uint32_t node, uint32_t word); uint32_t getPersistentChild (uint32_t node, uint32_t word); // busqueda sin insertar bool hasSequence(const uint32_t *sequence, int length, uint32_t &destnode); // busqueda insertando uint32_t searchSequence(const uint32_t *sequence, int length); uint32_t searchPersistentSequence(const uint32_t *sequence, int length); /// devuelve la longitud, -2 si no existe, -1 si no cabe int getSequence(uint32_t node, uint32_t *sequence, int maxLength); uint32_t rootNode() const { return 0; } void clear(); }; // class TrieVector } // namespace #endif // TRIE_VECTOR_H april-ann-0.3.1/packages/basics/util/c_src/tuple.h000066400000000000000000000047341234204160600217740ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef TUPLE_H #define TUPLE_H #include "april_assert.h" #include namespace april_utils { template class tuple { T *vec; size_t tuple_size; public: typedef T value_type; typedef T* pointer; typedef T& reference; typedef const T& const_reference; typedef size_t size_type; typedef ptrdiff_t difference_type; size_type size() const { return tuple_size; } tuple() { tuple_size = 0; vec = 0; } tuple(int tuple_size) { april_assert(tuple_size >= 0); this->tuple_size = tuple_size; vec = new T[tuple_size]; } tuple(const tuple &l) { tuple_size = l.tuple_size; vec = new T[tuple_size]; for (unsigned int i=0; i // responde al perfil de fgets inline char* get_uncommented_line(char *s, int size, FILE *stream) { char *aux; do { aux = fgets(s,size,stream); } while(aux && aux[0] == '#'); return aux; } inline char* get_line(char *s, int size, FILE *stream) { char *aux = fgets(s,size,stream); return aux; } april-ann-0.3.1/packages/basics/util/c_src/unused_variable.h000066400000000000000000000016531234204160600240100ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef UNUSED_VARIABLE_H #define UNUSED_VARIABLE_H #define UNUSED_VARIABLE(x) (void)(x) #endif // IGNORE_RESULT_H april-ann-0.3.1/packages/basics/util/c_src/vector.h000066400000000000000000000113471234204160600221430ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef VECTOR_H #define VECTOR_H #include #include "swap.h" namespace april_utils { // Be careful! It's not std::vector :) template class vector { protected: T *vec; size_t used_size,vector_size; public: typedef T value_type; typedef T* pointer; typedef T& reference; typedef const T& const_reference; typedef size_t size_type; typedef ptrdiff_t difference_type; typedef T* iterator; typedef const T* const_iterator; size_type size() const { return used_size; } size_type capacity() const { return vector_size; } size_type max_size() const { return size_type(-1); } bool empty() const { return (used_size==0); } vector(size_type n=0) { // Creates a vector with n elements. used_size = n; vector_size = n; vec = 0; if (used_size > 0) { vec = new T[vector_size]; } } vector(size_type n, const_reference t) { // Creates a vector with n copies of t. used_size = n; vector_size = n; vec = 0; if (used_size > 0) { vec = new T[vector_size]; for (unsigned int i=0; i vector_size -> reservar vector mas grande. // used_size no cambia. if (n > vector_size) { vector_size = n; T *old_vec = vec; vec = new T[vector_size]; for (unsigned int i=0; i= vector_size) { size_type old_vector_size = vector_size; vector_size = (vector_size == 0) ? 1 : 2*vector_size; T *old_vec = vec; vec = new T[vector_size]; for (unsigned int i=0; i 0) used_size--; } reference back() { return vec[used_size-1]; } const_reference back() const { return vec[used_size-1]; } void resize(size_type n) { reserve(n); used_size = n; } void clear() { used_size = 0; } void swap(vector &other) { april_utils::swap(vec, other.vec); april_utils::swap(vector_size, other.vector_size); april_utils::swap(used_size, other.used_size); } iterator begin() { return vec; } const_iterator begin() const { return vec; } iterator end() { return vec+used_size; } const_iterator end() const { return vec+used_size; } }; } // namespace april_utils #endif april-ann-0.3.1/packages/basics/util/c_src/words_table.h000066400000000000000000000042721234204160600231450ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Jorge Gorbe Moya, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef WORDS_TABLE_H #define WORDS_TABLE_H #include // para debug #include "referenced.h" #include "vector.h" using april_utils::vector; namespace april_utils { class WordsTable : public Referenced { vector table_first_index; vector words; public: WordsTable() { /** la palabra 0 esta reservada **/ table_first_index.push_back(0); /** centinela **/ table_first_index.push_back(0); } WordsTable(WordsTable *other, unsigned int *filter) { for (unsigned int i=0; itable_first_index.size(); ++i) table_first_index.push_back(other->table_first_index[i]); words.reserve(other->words.size()); for (unsigned int i=0; iwords.size(); ++i) words[i] = filter[other->words[i]]; } ~WordsTable() { } void insertWords(unsigned int *vec, unsigned int size) { for (unsigned int i=0; i 1 then print("No documentation found. Check that you are asking for a BASE ".. "class method, not a child class inherited method.") end table.insert(current_table, {}) end local t = string.tokenize(table_name, ".") if #t == 0 then table.insert(t, "") end for idx,current in ipairs(current_table) do if idx > 1 and verbosity > 1 then print("\t--------------------------------------------------------------\n") end local name = table_name local out = { } if verbosity > 1 then table.insert(out,{prefix, ansi.fg["bright_red"].. (string.format("%9s",current.class or "")), ansi.fg["green"]..table_name..ansi.fg["default"]}) else name = t[#t] table.insert(out, {prefix, ansi.fg["bright_red"].. (string.format("%9s",current.class or "")), ansi.fg["green"]..t[#t]..ansi.fg["default"]}) end if verbosity > 0 then if current.summary then if #name<24 then table.insert(out[1], ansi.fg["cyan"].."=>"..ansi.fg["default"]) local aux = " " local str = string.truncate(current.summary, COLWIDTH, aux..aux..aux) str = string.gsub(str, "%[(.*)%]", "["..ansi.fg["bright_yellow"].."%1".. ansi.fg["default"].."]") table.insert(out[1], str) else local aux = " " local str = string.truncate(current.summary, COLWIDTH, aux) str = string.gsub(str, "%[(.*)%]", "["..ansi.fg["bright_yellow"].."%1".. ansi.fg["default"].."]") table.insert(out, { aux, str }) end end end if verbosity > 1 then if current.description then local str = string.truncate(current.description, COLWIDTH, " ") str = string.gsub(str, "%[(.*)%]", "["..ansi.fg["bright_yellow"].."%1".. ansi.fg["default"].."]") table.insert(out, { "\n"..ansi.fg["cyan"].."description:"..ansi.fg["default"], str }) end if current.params then table.insert(out, { "\n"..ansi.fg["cyan"].."parameters:"..ansi.fg["default"] }) local names_table = {} for name,_ in pairs(current.params) do table.insert(names_table,name) end table.sort(names_table, function(a,b) return tostring(a) 1 then print("") end end end function get_object_id(obj) local id = nil if getmetatable(obj) then id = getmetatable(obj).id end return id end -- verbosity => 0 only names, 1 only summary, 2 all function april_help(table_name, verbosity) if not table_name then table_name="" end if (luatype(table_name) ~= "string" and get_object_id(table_name)) then table_name = get_object_id(table_name):gsub(" class","") end assert(luatype(table_name) == "string", "Expected string as first argument") local t if #table_name == 0 then t = _G else t = get_table_from_dotted_string(table_name) if not t then local aux = string.tokenize(table_name, ".") local last = aux[#aux] t = get_table_from_dotted_string(table.concat(aux, ".", 1, #aux-1)) if not t or not getmetatable(t) then error(table_name .. " not found") end local auxt = getmetatable(t)[last] if not auxt then if not t.meta_instance then error(table_name .. " not found") end t = t.meta_instance.__index[last] or error(table_name .. " not found") else t = auxt end end end local verbosity = verbosity or 2 local obj = false if luatype(t) == "function" then april_print_doc(table_name, verbosity) -- printf("No more recursive help for %s\n", table_name) return elseif is_class(t) then local id = get_object_id(t):gsub(" class","") t = get_table_from_dotted_string(id) april_print_doc(id, verbosity) else april_print_doc(table_name, verbosity) end -- local print_data = function(d) print("\t * " .. d) end local classes = {} local funcs = {} local names = {} local vars = {} for i,v in pairs(t) do if is_class(v) then local id = get_object_id(v):gsub(" class","") table.insert(classes, i) elseif iscallable(v) then table.insert(funcs, {i, string.format("%8s",luatype(v))}) elseif luatype(v) == "table" then table.insert(names, i) else table.insert(vars, {i, string.format("%8s",luatype(v))}) end end if #vars > 0 then print(ansi.fg["cyan"].." -- basic variables (string, number)".. ansi.fg["default"]) table.sort(vars, function(a,b) return tostring(a[1]) < tostring(b[1]) end) for i,v in pairs(vars) do april_print_doc(table_name .. "." .. v[1], math.min(1, verbosity), ansi.fg["cyan"].." * ".. v[2]..ansi.fg["default"]) -- print_data(v) end print("") end if #names > 0 then print(ansi.fg["cyan"].." -- names in the namespace"..ansi.fg["default"]) table.sort(names) for i,v in pairs(names) do april_print_doc(table_name .. "." .. v, math.min(1, verbosity), ansi.fg["cyan"].." *"..ansi.fg["default"]) -- print_data(v) end print("") end if #classes > 0 then print(ansi.fg["cyan"].." -- classes in the namespace"..ansi.fg["default"]) table.sort(classes) for i,v in pairs(classes) do april_print_doc(table_name .. "." .. v, math.min(1, verbosity), ansi.fg["cyan"].." *"..ansi.fg["default"]) -- print_data(v) end print("") end if #funcs > 0 then print(ansi.fg["cyan"].." -- static functions or tables"..ansi.fg["default"]) table.sort(funcs, function(a,b) return a[1] < b[1] end) for i,v in ipairs(funcs) do april_print_doc(table_name .. "." .. v[1], math.min(1, verbosity), ansi.fg["cyan"].." * ".. v[2]..ansi.fg["default"]) -- print_data(v) end print("") end if t.meta_instance and t.meta_instance.__index then print(ansi.fg["cyan"].." -- methods"..ansi.fg["default"]) local aux = {} for i,v in pairs(t.meta_instance.__index) do if luatype(v) == "function" then table.insert(aux, i) end end if getmetatable(t) then for i,v in pairs(getmetatable(t)) do if luatype(v) == "function" then table.insert(aux, i) end end end local prev = nil table.sort(aux) for i,v in ipairs(aux) do if v ~= prev then april_print_doc(table_name .. "." .. v, math.min(1, verbosity), ansi.fg["cyan"].." *"..ansi.fg["default"]) end prev = v -- print_data(v) end print("") t = t.meta_instance.__index while (getmetatable(t) and getmetatable(t).__index and getmetatable(t).__index ~= t) do local superclass_name = getmetatable(t).id:gsub(" class","") t = getmetatable(t).__index print(ansi.fg["cyan"].. " -- inherited methods from " .. superclass_name..ansi.fg["default"]) local aux = {} for i,v in pairs(t) do if luatype(v) == "function" then table.insert(aux, i) end end table.sort(aux) for i,v in ipairs(aux) do april_print_doc(superclass_name .. "." .. v, math.min(1, verbosity), ansi.fg["cyan"].." *"..ansi.fg["default"]) -- print_data(v) end print("") end end print() end function april_dir(t, verbosity) april_help(t, 0) end function april_print_script_header(arg,file) local file = file or io.stdout fprintf(file,"# HOST: %s\n", (io.popen("hostname", "r"):read("*l"))) fprintf(file,"# DATE: %s\n", os.date()) fprintf(file,"# VERSION: %d.%d COMMIT %s\n", util.version()) if arg and arg[0] then fprintf(file,"# CMD: %s %s\n", arg[0], table.concat(arg, " ")) end end -- http://lua-users.org/wiki/IteratorsTutorial function multiple_ipairs(...) local t = {...} local tmp = {...} -- if nothing to iterate over just return a dummy iterator if #tmp==0 then return function() end, nil, nil end local function mult_ipairs_it(t, i) i = i+1 local all_nil = true for j=1,#t do local val = t[j][i] if val ~= nil then all_nil = false end tmp[j] = val end if all_nil then return nil end return i, unpack(tmp) end return mult_ipairs_it, t, 0 end function iterable_filter(func, f, s, v) return function(s,v) local tmp = table.pack(f(s,v)) while tmp[1] ~= nil and not func(table.unpack(tmp)) do v = tmp[1] tmp = table.pack(f(s,v)) end return table.unpack(tmp) end, s, v end -- FROM: http://www.corsix.org/content/mapping-and-lua-iterators function iterable_map(func, f, s, v) local done local function maybeyield(...) if ... ~= nil then coroutine.yield(...) end end local function domap(...) v = ... if v ~= nil then return maybeyield(func(...)) else done = true end end return coroutine.wrap(function() repeat domap(f(s,v)) until done end) end function filter(func, ...) assert(func, "filter: needs a function as first argument") local t,key,value = {} for key,value in ... do local v = value or key if func(v) then table.insert(t,v) end end return t end function map(func, ...) if not func then func = function(v) return v end end local t,key,value = {} for key,value in ... do if not value then key,value = #t+1,key end local r = func(value) if r then t[key] = r end end return t end function map2(func, ...) if not func then func = function(k,v) return v end end local t,key,value = {} for key,value in ... do if not value then key,value = #t+1,key end local r = func(key,value) if r then t[key] = r end end return t end function mapn(func, f, s, v) if not func then func = function(k,...) return ... end end local t = {} local tmp = table.pack(f(s,v)) while tmp[1] ~= nil do t[v] = func(table.unpack(tmp)) tmp = table.pack(f(s,tmp[1])) end return t end function reduce(func, initial_value, ...) assert(initial_value ~= nil, "reduce: needs an initial_value as second argument") local accum,key,value = initial_value for key,value in ... do accum = func(accum, value or key) end return accum end function apply(func, f, s, v) if not func then func = function() end end local tmp = table.pack(f(s,v)) while tmp[1] ~= nil do func(table.unpack(tmp)) tmp = table.pack(f(s,tmp[1])) end end function glob(...) local r = {} for i,expr in ipairs(table.pack(...)) do local f = io.popen("ls -d "..expr) for i in f:lines() do table.insert(r,i) end f:close() end return r end function parallel_foreach(num_processes, list_or_number, func, output_serialization_function) assert(type(list_or_number) == "number" or type(list_or_number) == "table", "Needs a table or a number as 2nd argument") local outputs if output_serialization_function then outputs = iterator(range(1,num_processes)): map(function(idx) return os.tmpname() end): table() end local id = util.split_process(num_processes)-1 if outputs then local f = io.open(outputs[id+1], "w") fprintf(f, "return {\n") if type(list_or_number) == "table" then for index, value in ipairs(list_or_number) do if (index%num_processes) == id then local ret = func(value,id) fprintf(f,"[%d] = %s,\n",index, output_serialization_function(ret) or "nil") end end else for index in range(1,list_or_number) do if (index%num_processes) == id then local ret = func(index,id) fprintf(f,"[%d] = %s,\n",index, output_serialization_function(ret) or "nil") end end end fprintf(f, "}\n") f:close() -- waits for all childrens if id ~= 0 then util.wait() os.exit(0) end util.wait() -- maps all the outputs to a table return iterator(ipairs(outputs)): map(function(index,filename) local t = util.deserialize(filename) os.remove(filename) -- multiple outputs from this filename for k,v in pairs(t) do coroutine.yield(k,v) end end): table() else if type(list_or_number) == "table" then for index, value in ipairs(list_or_number) do if (index%num_processes) == id then local ret = func(value,id) end end else for index in range(1,list_or_number) do if (index%num_processes) == id then local ret = func(index,id) end end end if id ~= 0 then os.exit(0) end util.wait() end end function clrscr() io.write("\027[2J") -- ANSI clear screen io.write("\027[H") -- ANSI home cursor end function printf(...) io.write(string.format(...)) end function fprintf(file,...) file:write(string.format(...)) end function range(...) local arg = table.pack(...) local inf,sup,step = arg[1],arg[2],arg[3] or 1 local i = inf - step return function() i = i + step if i <= sup then return i end end end function check_mandatory_table_fields(fields, t) for _,name in ipairs(fields) do table.insert(ret, t[name] or error("The "..name.." field is mandatory")) end end -- -- local params = get_table_fields{ -- begin_token = { type_match = "string", mandatory = false, default = "" }, -- end_token = { type_match = "string", mandatory = false, default = "" }, -- unknown_word = { type_match = "string", mandatory = false, default = "" }, -- factors = { type_match = "table", mandatory = true, -- getter = get_table_fields_ipairs{ -- vocabulary = { isa_match(lexClass), mandatory = true }, -- layers = { type_match = "table", mandatory = true, -- getter = get_table_fields_ipairs{ -- actf = { type_match = "string", mandatory = true }, -- size = { type_match = "number", mandatory = true }, -- }, -- }, -- }, -- }, -- } local valid_get_table_fields_params_attributes = { type_match = true, isa_match = true, mandatory = true, getter = true, default = true } function get_table_fields(params, t, ignore_other_fields) local isa = isa local type = type local pairs = pairs local ipairs = ipairs local luatype = luatype -- local params = params or {} local t = t or {} local ret = {} for key,value in pairs(t) do if not params[key] then if ignore_other_fields then ret[key] = value else error("Unknown field: " .. key) end end end for key,data in pairs(params) do if params[key] then local data = data or {} for k,_ in pairs(data) do if not valid_get_table_fields_params_attributes[k] then error("Incorrect parameter to function get_table_fields: " .. k) end end -- each param has type_match, mandatory, default, and getter local v = t[key] if v == nil then v = data.default end if v == nil and data.mandatory then error("Mandatory field not found: " .. key) end if v ~= nil and data.type_match and (luatype(v) ~= data.type_match or type(v) ~= data.type_match) then if data.type_match ~= "function" or not iscallable(v) then error("Incorrect type '" .. type(v) .. "' for field '" .. key .. "'") end end if v ~= nil and data.isa_match and not isa(v, data.isa_match) then error("Incorrect field isa_match predicate: " .. key) end if data.getter then v=(t[key]~=nil and data.getter(t[key])) or nil end ret[key] = v end -- if params[key] then ... end -- for key,data in pairs(params) ... return ret end function get_table_fields_ipairs(...) local arg = table.pack(...) return function(t) local table = table local t = t or {} local ret = {} for i,v in ipairs(t) do table.insert(ret, get_table_fields(table.unpack(arg), v)) end return ret end end function get_table_fields_recursive(...) local arg = table.pack(...) return function(t) local t = t or {} return get_table_fields(table.unpack(arg), t) end end --------------------------------------------------------------- ------------------------ MATH UTILS --------------------------- --------------------------------------------------------------- -- log addition function math.logadd(a,b) if a > b then return a + math.log1p(math.exp(b-a)) else return b + math.log1p(math.exp(a-b)) end end -- auxiliary function for fast development of reductions function math.lnot(a) if a then return not a else return function(a) return not a end end end -- auxiliary function for fast development of reductions function math.lor(a,b) if a and b then return a or b end if not a and not b then return function(a,b) return a or b end end if b == nil then return function(b) return a or b end end error("Incorrect arguments") end -- auxiliary function for fast development of reductions function math.land(a,b) if a and b then return a and b end if not a and not b then return function(a,b) return a and b end end if b == nil then return function(b) return a and b end end error("Incorrect arguments") end -- auxiliary function for fast development of reductions function math.ge(a,b) if a and b then return a>=b end if not a and not b then return function(a,b) return a>=b end end if b == nil then return function(b) return a>=b end elseif a == nil then return function(a) return a>=b end end end -- auxiliary function for fast development of reductions function math.gt(a,b) if a and b then return a>b end if not a and not b then return function(a,b) return a>b end end if b == nil then return function(b) return a>b end elseif a == nil then return function(a) return a>b end end end -- auxiliary function for fast development of reductions function math.le(a,b) if a and b then return a<=b end if not a and not b then return function(a,b) return a<=b end end if b == nil then return function(b) return a<=b end elseif a == nil then return function(a) return a<=b end end end -- auxiliary function for fast development of reductions function math.lt(a,b) if a and b then return a 0 then return math.floor(val + 0.5) end return -math.floor(-val + 0.5) end function math.clamp(value,lower,upper) assert(lower<=upper) -- sanity check return math.max(lower,math.min(value,upper)) end function math.median(t, ini, fin) local ini,fin = ini or 1, fin or #t local len = fin-ini+1 local mpos = math.floor((ini+fin)/2) local median = t[mpos] if len % 2 == 0 then median = (median + t[mpos+1])/2 end return median end -- calcula la media de una tabla, o subtabla function math.mean(t, ini, fin) local ini,fin = ini or 1, fin or #t local total=0 local suma=0 total = fin - ini + 1 for i=ini,fin do suma = suma + t[i] end return suma/total,total end -- calcula la desviacion tipica de una tabla o subtabla function math.std(t, ini, fin) local ini,fin = ini or 1, fin or #t local mean,total = math.mean(t, ini, fin) local suma_sqr=0 for i=ini,fin do local value = mean - t[i] suma_sqr = suma_sqr + value*value end return math.sqrt(suma_sqr/(total-1)),total end -- computes the sign of a number function math.sign(v) return (v>0 and 1) or (v<0 and -1) or 0 end --------------------------------------------------------------- ------------------------ STRING UTILS ------------------------- --------------------------------------------------------------- getmetatable("").__mod = function(self,t) assert(type(t) == "table", "Needs a table as parameter") return self:gsub("$(%a[%a%d]*)",t):format(table.unpack(t)) end function string.truncate(str, columns, prefix) local columns = columns - #prefix - 1 local lines = string.tokenize(str, "\n") local out = { { } } for _,line in ipairs(lines) do local words = string.tokenize(line, " ") local size = 0 for i,w in ipairs(words) do if #w + size > columns then size = 0 table.insert(out, { prefix }) end table.insert(out[#out], w) size = size + #w end end for i=1,#out do out[i] = table.concat(out[i], " ") end return table.concat(out, "\n") end function string.basename(path) local name = string.match(path, "([^/]+)$") return name end function string.remove_extension(path) local name,ext = string.match(path, "(.*)[.]([^.]*)$") return name,ext end function string.get_extension(path) local ext = string.match(path, ".*[.]([^.]*)$") return ext end function string.get_path(path_with_filename, sep) local sep=sep or'/' return path_with_filename:match("(.*"..sep..")") or "" end function string.lines_of(t) return string.gmatch(t,"[^\n]+") end function string.chars_of_iterator(s,v) if v < string.len(s) then v = v+1 return v,string.sub(s,v,v) end end function string.chars_of(s) return string.chars_of_iterator,s,0 end function string.tokenize(str,sep) local sep = sep or ' \t\n\r' local list = {} for token in string.gmatch(str, '[^'..sep..']+') do table.insert(list,token) end return list end function string.tokenize_width(str,width) local width = width or 1 local list = {} for i = 1,string.len(str)-width+1,width do table.insert(list, string.sub(str,i,i+width-1)) end return list end -- function string.split (text, ...) -- local delimiter = ((arg.n > 0) and arg[1]) or ' ' -- local list = {} -- local first,last -- local pos = 1 -- if string.find("", delimiter, 1, true) then -- -- this would result in endless loops -- error("delimiter matches empty string!") -- end -- while 1 do -- first, last = string.find(text, delimiter, pos,true) -- if first then -- found? -- table.insert(list, string.sub(text, pos, first-1)) -- pos = last+1 -- else -- table.insert(list, string.sub(text, pos)) -- return list -- end -- end -- end -- function string.join (list,...) -- local delimiter = ((arg.n > 0) and arg[1]) or ' ' -- return table.concat(list,delimiter) -- end string.join = table.concat --------------------------------------------------------------- ------------------------ TABLE UTILS -------------------------- --------------------------------------------------------------- function table.clear(t) for k,v in pairs(t) do t[k] = nil end end function table.unpack_on(t, dest) for i,j in pairs(t) do dest[i] = j end end function table.invert(t) local n = {} for i,j in pairs(t) do n[j] = i end if n[0] ~= nil then -- FIXME: estoy hay que quitarlo error ("ATENCION: table.invert(t) => devuelve un codigo 0") end return n end function table.slice(t, ini, fin) local aux = {} for i=ini,fin do table.insert(aux, t[i]) end return aux end function table.search_key_from_value(t,value) for i,j in pairs(t) do if j == value then return i end end end function table.imap(t,f) return map(f, ipairs(t)) end function table.map(t,f) return map(f, pairs(t)) end function table.imap2(t,f) return map2(f, ipairs(t)) end function table.map2(t,f) return map2(f, pairs(t)) end function table.reduce(t,f,initial_value) return reduce(f, initial_value, ipairs(t)) end function table.ifilter(t,f) local n = {} for i,j in ipairs(t) do if f(i,j) then table.insert(n, j) end end return n end function table.filter(t,f) local n = {} for i,j in pairs(t) do if f(i,j) then n[i]=j end end return n end function table.join(t1,t2) local result={} local k=1 if t1 and #t1 > 0 then for _,j in ipairs(t1) do table.insert(result, j) end end if t2 and #t2 > 0 then for _,j in ipairs(t2) do table.insert(result, j) end end return result end -- Warning: this function makes a DEEP copy of LUA tables, but userdata objects -- are copied as references function table.deep_copy(t, lookup_table) local copy = {} for i,v in pairs(t) do if luatype(v) ~= "table" then copy[i] = v else lookup_table = lookup_table or {} lookup_table[t] = copy if lookup_table[v] then copy[i] = lookup_table[v] -- we already copied this table. reuse the copy. else copy[i] = table.deep_copy(v,lookup_table) -- not yet copied. copy it. end end end return copy end ----- -- to string ----- function table.tostring(t,format) if t.to_lua_string then return t:to_lua_string(format) end local out = {} local keys = iterator(pairs(t)):select(1):table() table.sort(keys, function(a,b) return tostring(a) < tostring(b) end) for _,i in ipairs(keys) do local v = t[i] local key local value if luatype(i) == "string" then key = string.format("[%q]=",i) elseif tonumber(i) then key = "["..i.."]".."=" else key = string.format("[%q]=",tostring(i)) end local tt = luatype(v) if tt == "table" then value = table.tostring(v,format) elseif tt == "string" then value = string.format("%q",v) elseif tt == "userdata" then assert(v.to_lua_string, "Needs to_lua_string method") value = v:to_lua_string(format) elseif tt == "function" then value = util.function_to_lua_string(v,format) else value = tostring(v) end table.insert(out, key .. value) end return "{"..table.concat(out,",").."}" end -- devuelve el valor maximo de una tabla function table.max(t) local max,index for i,j in pairs(t) do if max==nil or j>max then index = i max = j end end return max,index end -- devuelve el valor minimo de una tabla function table.min(t) local min,index for i,j in pairs(t) do if min==nil or jstring, associates to", "each parameter name a description.", "The description string could be a table,", "which will be contatenated with ' '.", }, ["outputs"] = { "A dictionary string=>string, associates to", "each output name a description.", "The description string could be a table,", "which will be contatenated with ' '.", }, }, }) april_set_doc("map", { class = "function", summary = "An implementation of python map function", description = { "This function returns a table which is the result of", "apply a given function to all the elements of a set.", "The set of elements is traversed using iterator functions.", "The table contains as many elements as the set, and only", "keeps the first returned value of the function (or a table", "if the function returns a table).", }, params = { { "A function to be applied to all elements values [optional].", "If not given, the identity function will be used. " }, "An iterator function which returns the whole set of elements", "First argument to the iterator (normally the caller object) [optional]", "Second argument [optional]", "..." }, outputs = { { "A table with the key,value pairs. Keys are", "the same as iterator function returns, but values", "are after application of given function", }, }, }) april_set_doc("map2", { class = "function", summary = "An implementation of python map function", description = { "This function returns a table which is the result of", "apply a given function to all the elements of a set.", "The set of elements is traversed using iterator functions.", "The table contains as many elements as the set, and only", "keeps the first returned value of the function (or a table", "if the function returns a table).", }, params = { { "A function to be applied to all element key,value pairs [optional].", "If not given, the identity function will be used. " }, "An iterator function which returns the whole set of elements", "First argument to the iterator (normally the caller object) [optional]", "Second argument [optional]", "..." }, outputs = { { "A table with the key,value pairs. Keys are", "the same as iterator function returns, but values", "are after application of given function", }, } }) april_set_doc("signal.register", { class="function", summary="Registers execution of Lua function with a given signal", description = { "This function fails if the given signal was registered before", "by other function different than this.", "If a nil value is given for the function, the signal will", "be ignored.", }, params = { "A signal number, use the helpers signal.SIG...", "A lua function", }, }) april_set_doc("signal.release", { class="function", summary="Releases the Lua function associated with the given signal", description = { "This function fails if the given signal was registered before", "by other function different than signal.register(...).", }, params = { "A signal number, use the helpers signal.SIG_...", }, }) april-ann-0.3.1/packages/basics/util/package.lua000066400000000000000000000021221234204160600214640ustar00rootroot00000000000000package{ name = "util", version = "1.0", depends = { }, keywords = { }, description = "", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_util.lua.cc" , dest_dir = "include" }, }, target{ name = "test", execute_script{ file={ "test/test-functional-programming.lua", }, }, }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", dest_dir = "build", -- flags = "-std=c99", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_util.lua.cc", dest_dir = "build" }, }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/basics/util/tests/000077500000000000000000000000001234204160600205335ustar00rootroot00000000000000april-ann-0.3.1/packages/basics/util/tests/compile_test_hash_table.sh000066400000000000000000000000431234204160600257250ustar00rootroot00000000000000g++ -I ../c_src test_hash_table.cc april-ann-0.3.1/packages/basics/util/tests/compile_test_open_adressing_hash.sh000077500000000000000000000000541234204160600276430ustar00rootroot00000000000000g++ -I ../c_src test_open_adressing_hash.cc april-ann-0.3.1/packages/basics/util/tests/file.txt000066400000000000000000000001101234204160600222030ustar00rootroot00000000000000Esta | es | una | linea. Otra mas. Otra linea; |||||||| y una en blanco april-ann-0.3.1/packages/basics/util/tests/test-functional-programming.lua000066400000000000000000000051271234204160600267020ustar00rootroot00000000000000value = reduce(math.min, math.huge, ipairs({4, 2, 1, 10})) assert(value==1) assert( iterator(ipairs({4,2,1,10})):reduce(math.min, math.huge) == 1 ) value = reduce(function(acc,v) return acc*2+v end, 0, string.gmatch("01101", "." )) assert(value==13) assert( iterator(string.gmatch("01101",".")):reduce(function(acc,v)return acc*2+v end, 0) == 13 ) t = { "a", "c", 3, 2 } expected = { {1, "a", "a"}, {2, "c", "c"}, {3, 3, 3}, {4, 2, 2} } apply(function(i,v1,v2) assert(i==expected[i][1] and v1==expected[i][2] and v2==expected[i][3]) end, multiple_ipairs(t,t)) iterator(multiple_ipairs(t,t)):apply(function(i,v1,v2) assert(i==expected[i][1] and v1==expected[i][2] and v2==expected[i][3]) end) tmapped = map(function(v) return v*2 end, ipairs({1, 2, 3, 4})) assert(table.concat(tmapped, " ") == "2 4 6 8") assert(iterator(ipairs({1,2,3,4})):map(function(i,v) return v*2 end):concat(" ") == "2 4 6 8") tmapped = map2(function(k,v) return k+v*2 end, ipairs({1, 2, 3, 4})) assert(table.concat(tmapped, " ") == "3 6 9 12") tmapped = mapn(function(idx, ...) return table.pack(...) end, multiple_ipairs({1, 2, 3, 4},{5, 6, 7, 8})) expected = { {1,5},{2,6},{3,7},{4,8} } for i,v in ipairs(tmapped) do assert(v[1]==expected[i][1] and v[2]==expected[i][2]) end t = filter(function(v) return v%2 == 0 end, ipairs{1,2,3,4,5,6,7}) assert(table.concat(t, " ") == "2 4 6") assert( iterator(ipairs{1,2,3,4,5,6,7}):filter(function(i,v) return v%2==0 end):map(function(i,v)return v end):concat(" ") == "2 4 6") t = { Lemon = "sour", Cake = "nice", } expected = { ["lemon is slightly SOUR"]=0, ["cake is slightly NICE"]=0, } for ingredient, modifier, taste in iterable_map(function(a, b) return a:lower(),"slightly",b:upper() end, pairs(t)) do local str = ingredient .." is ".. modifier .. " " .. taste assert(expected[str] == 0) expected[str] = expected[str] + 1 end t = { Lemon = "sour", Cake = "nice", } expected = { ["cake is very NICE"]=0, ["Cake is slightly nice"]=0, ["lemon is very SOUR"]=0, ["Lemon is slightly sour"]=0, } for ingredient, modifier, taste in iterable_map(function(a, b) coroutine.yield(a:lower(),"very",b:upper()) return a, "slightly", b end, pairs(t)) do local str = ingredient .." is ".. modifier .. " " .. taste assert(expected[str]==0) expected[str] = expected[str] + 1 end idx=1 expected={2,4,6} for v in iterable_filter(function(key,value) return value%2==0 end, ipairs{1,2,3,4,5,6,7}) do assert(v == expected[idx]) idx=idx+1 end april-ann-0.3.1/packages/basics/util/tests/test-signal.lua000066400000000000000000000002071234204160600234670ustar00rootroot00000000000000signal.register(signal.SIGQUIT, function() print("HOLA") end) print(io.read("*l")) signal.release(signal.SIGQUIT) print(io.read("*l")) april-ann-0.3.1/packages/basics/util/tests/test_buffer_list.cc000066400000000000000000000012001234204160600243760ustar00rootroot00000000000000#include "../c_src/buffer_list.cc" #include "../c_src/binarizer.cc" #include using std::cout; using std::endl; int main() { buffer_list bl; for (int i=0;i<3;i++) bl.add_formatted_string_right("hola mundo! %d+%d=%d,",i,2,i+2); float v[10]; for (int i=0;i<10;i++) v[i] = 0.81+i*0.1; bl.add_binarized_float_left (v, 10); uint32 blsize = bl.get_size(); cout << "El bufferlist tiene talla: " << blsize << endl; // anyadimos el tamaño al inicio bl.add_binarized_uint32_left(&blsize,1); char *resul = bl.to_string(buffer_list::NULL_TERMINATED); cout << '"' << resul << '"' << endl; delete[] resul; } april-ann-0.3.1/packages/basics/util/tests/test_constString.cc000066400000000000000000000034631234204160600244240ustar00rootroot00000000000000#include #include "constString.h" using namespace std; int main() { constString s1("aaa"); constString s2("aaaa"); constString s3("aab"); constString s4("aa"); constString s5("aaa"); cout << (const char *)(s1) << "==" << (const char *)(s2) << (s1 == s2) << endl; cout << (const char *)(s1) << "<" << (const char *)(s2) << (s1 < s2) << endl; cout << (const char *)(s1) << ">" << (const char *)(s2) << (s1 > s2) << endl; cout << (const char *)(s1) << "<=" << (const char *)(s2) << (s1 <= s2) << endl; cout << (const char *)(s1) << ">=" << (const char *)(s2) << (s1 >= s2) << endl; cout << (const char *)(s1) << "==" << (const char *)(s3) << (s1 == s3) << endl; cout << (const char *)(s1) << "<" << (const char *)(s3) << (s1 < s3) << endl; cout << (const char *)(s1) << ">" << (const char *)(s3) << (s1 > s3) << endl; cout << (const char *)(s1) << "<=" << (const char *)(s3) << (s1 <= s3) << endl; cout << (const char *)(s1) << ">=" << (const char *)(s3) << (s1 >= s3) << endl; cout << (const char *)(s1) << "==" << (const char *)(s4) << (s1 == s4) << endl; cout << (const char *)(s1) << "<" << (const char *)(s4) << (s1 < s4) << endl; cout << (const char *)(s1) << ">" << (const char *)(s4) << (s1 > s4) << endl; cout << (const char *)(s1) << "<=" << (const char *)(s4) << (s1 <= s4) << endl; cout << (const char *)(s1) << ">=" << (const char *)(s4) << (s1 >= s4) << endl; cout << (const char *)(s1) << "==" << (const char *)(s5) << (s1 == s5) << endl; cout << (const char *)(s1) << "<" << (const char *)(s5) << (s1 < s5) << endl; cout << (const char *)(s1) << ">" << (const char *)(s5) << (s1 > s5) << endl; cout << (const char *)(s1) << "<=" << (const char *)(s5) << (s1 <= s5) << endl; cout << (const char *)(s1) << ">=" << (const char *)(s5) << (s1 >= s5) << endl; } april-ann-0.3.1/packages/basics/util/tests/test_context.cc000066400000000000000000000015071234204160600235700ustar00rootroot00000000000000#include "context.h" #include using april_utils::context; using namespace std; int main() { context c(3,3); c.insert(10); int *p = new int(20); c.insert(p); printf("p==%p\n", p); c.insert(30); if (!c.ready()) printf("Not ready yet ;)\n"); c.insert(40); printf("%d %d %d %d %d %d %d\n", c[-3],c[-2], c[-1], c[0], c[1], c[2], c[3]); c.insert(50); printf("%d %d %d %d %d %d %d\n", c[-3],c[-2], c[-1], c[0], c[1], c[2], c[3]); c.insert(60); printf("%d %d %d %d %d %d %d\n", c[-3],c[-2], c[-1], c[0], c[1], c[2], c[3]); c.insert(70); printf("%d %d %d %d %d %d %d\n", c[-3],c[-2], c[-1], c[0], c[1], c[2], c[3]); printf("END INPUT\n"); c.end_input(); c.shift(); while (c.ready()) { printf("%d %d %d %d %d %d %d\n", c[-3],c[-2], c[-1], c[0], c[1], c[2], c[3]); c.shift(); } } april-ann-0.3.1/packages/basics/util/tests/test_cronometro.lua000066400000000000000000000005701234204160600244660ustar00rootroot00000000000000 wop = util.stopwatch() wop:reset() wop:go() local a = 0 for i=0,10000 do a = a+1 end wop:stop() print("ha tardado:",wop:read()) if wop:is_on() then print("el cronometro esta en marcha") else print("el cronometro esta parado") end wop2 = wop:clone() wop2:go() local a = 0 for i=0,500000000 do a = a+1 end wop2:stop() print("ha tardado:",wop2:read()) april-ann-0.3.1/packages/basics/util/tests/test_fifo.cc000066400000000000000000000012521234204160600230240ustar00rootroot00000000000000#include using namespace std; #include "../c_src/fifo.h" using namespace april_utils; int main() { fifo f; int i; char comando[10]; while (cin >> comando) { if (strcmp(comando,"p") == 0) { // put cin >> i; f.put(i); } else if (strcmp(comando,"d") == 0) { // drop cin >> i; f.drop_by_value(i); } else if (strcmp(comando,"w") == 0) { // print while (f.get(i)) cout << i << " "; cout << endl; } else if (strcmp(comando,"g") == 0) { // get if (f.get(i)) { cout << "get devuelve valor " << i << endl; } else { cout << "get dice fifo vacía" << endl; } } } return 0; } april-ann-0.3.1/packages/basics/util/tests/test_fifo_block.cc000066400000000000000000000031501234204160600241750ustar00rootroot00000000000000#include #include "../c_src/fifo_block.h" using namespace std; using namespace april_utils; int main() { typedef fifo_block fifo_block_type; fifo_block_type fifobint; int i,v; char comando[100]; cout << "a ver si peta\n"; fifo_block_type::iterator r = fifobint.begin(); cout << fifobint.is_end(r) << endl; for (fifo_block_type::iterator r = fifobint.begin(); !fifobint.is_end(r); ++r) { cout << *r << " "; } cout << "--a ver si peta\n"; for (i=0; i<20; i++) fifobint.put(i); fifo_block_type una_copia(fifobint); cout << "La copia tiene " << una_copia.count() << " elementos\n"; cout << "Aquí está la copia recorriendola con un iterador "; for (fifo_block_type::iterator r = una_copia.begin(); r != una_copia.end(); ++r) { cout << *r << " "; } cout << "\nAquí está la copia recorriendola con otro iterador "; for (fifo_block_type::iterator r = una_copia.begin(); !una_copia.is_end(r); ++r) { cout << *r << " "; } cout << "\nsacamos 5 valores de la cola original\n"; for (i=0; i<5 && fifobint.get(v); i++) { cout << v << " "; } cout << "La original tiene " << fifobint.count() << " elementos\n"; cout << "insertamos otros 5 valores del 1 al 5 en ambas colas\n"; for (i=0; i<5 ; i++) { fifobint.put(i); una_copia.put(i); } cout << "asignamos una variable a otra\n"; una_copia = fifobint; cout << "Aquí está la cola:\n"; while (fifobint.get(v)) { cout << v << " "; } cout << "\nY la copia:\n"; while (una_copia.get(v)) { cout << v << " "; } cout << endl; return 0; } april-ann-0.3.1/packages/basics/util/tests/test_file_stream.cc000066400000000000000000000012371234204160600243760ustar00rootroot00000000000000#include #include #include "../c_src/file_stream.cc" int main() { file_stream fs1("file.txt", O_RDONLY); char *line, *all; fs1.read_all(&all); printf ("ALL:\n%s\n\n", all); delete all; fs1.closefd(); file_stream fs2("file.txt", O_RDONLY); int n; int i=0; printf ("LINES:\n"); while ((n=fs2.read_line(&line)) > 0) { printf ("%d: len=%d '%s'\n", i,n,line); ++i; delete line; } fs2.closefd(); file_stream fs3("file.txt", O_RDONLY); i=0; printf ("\nTOKENS:\n"); while ((n=fs3.read_token(&line," |\n")) > 0) { printf ("%d: len=%d '%s'\n", i,n,line); ++i; delete line; } fs3.closefd(); } april-ann-0.3.1/packages/basics/util/tests/test_geometry.cc000066400000000000000000000023201234204160600237310ustar00rootroot00000000000000//#include #include #include "geometry.h" using namespace std; using namespace april_utils; //using namespace april_utils; int main() { // Given two points (2,2) -> (6,3) april_utils::Point2D p1 = april_utils::Point2D(3,2); april_utils::Point2D p2 = april_utils::Point2D(6,3); //Define the line april_utils::line morgan = april_utils::line(p1,p2); printf("Line created, Slope: %f, Y-intercept: %f\n", morgan.getSlope(), morgan.getYintercept()); // Create a new line april_utils::Point2D p3 = april_utils::Point2D(4, 1); april_utils::Point2D p4 = april_utils::Point2D(6, 0.5); april_utils::line rect2 = april_utils::line(p3,p4); printf("Line created, Slope: %f, Y-intercept: %f\n", rect2.getSlope(), rect2.getYintercept()); // Check the intersection bool flag; Point2D pInt = morgan.intersection(rect2, flag); printf("Line intersection %f, %f\n", pInt.first, pInt.second); //Check the point distance Point2D p5 = Point2D(4,4); float dist = 0.0f; Point2D cp = morgan.closestPoint(p5,dist); printf("The closest point to (%f,%f) is (%f,%f) at %f units\n", p5.first, p5.second, cp.first, cp.second, dist); return 0; } april-ann-0.3.1/packages/basics/util/tests/test_hash_table.cc000066400000000000000000000040051234204160600241720ustar00rootroot00000000000000#include "hash_table.h" #include "aux_hash_table.h" using namespace april_utils; #include #include using std::cout; using std::endl; typedef hash hash_test; int print_pair(hash_test::value_type p) { cout << p.first << "->" << p.second << endl; } bool predicado(hash_test::value_type p) { return (!strcmp(p.second, "adios")); } struct X { int data; bool operator == (const X& other) const { return data == other.data; } }; int main() { hash_test a_table; cout << "La tabla tiene " << a_table.size() << " entradas" << endl; a_table["hola"] = "hello"; a_table["adios"] = "bye"; a_table.insert("adios","ciao!"); a_table["x"] = "adios"; a_table["y"] = "adios"; a_table["z"] = "adios"; cout << "a_table[adios] = " << a_table["adios"] << endl; a_table.erase("adios"); cout << "a_table[adios] " << (a_table.search("adios") ? "esta" : "no es encuentra") << endl; cout << "La tabla tiene " << a_table.size() << " entradas" << endl; cout << "Insertamos 5 elementos nuevos." << endl; a_table["uno"] = "1"; a_table["dos"] = "2"; a_table["tres"] = "3"; a_table["cuatro"] = "4"; a_table["cinco"] = "5"; cout << "La tabla tiene " << a_table.size() << " entradas" << endl; cout << "Recorrido con un iterador:" << endl; for (hash_test::const_iterator i=a_table.begin(); i != a_table.end(); ++i) { cout << (*i).first << "->" << i->second << endl; } cout << "Borramos todas las entradas con valor 'adios'" << endl; a_table.delete_if(predicado); cout << "Redimensionamos la tabla" << endl; a_table.resize(128); cout << "Y ahora con for_each" << endl; std::for_each(a_table.begin(), a_table.end(), print_pair); X a,b; a.data=3; b.data=3; cout << "Test con tabla con HashFcn y EqualKey genericas" << endl; april_utils::hash t; t[a] = 4; t[b] = 99; for (april_utils::hash::iterator i=t.begin(); i!=t.end(); i++) cout << i->first.data << "->" << i->second << endl;; return 0; } april-ann-0.3.1/packages/basics/util/tests/test_hash_table_empty_value.cc000066400000000000000000000025531234204160600266120ustar00rootroot00000000000000#include "null_types.h" #include "hash_table.h" #include "aux_hash_table.h" using namespace april_utils; #include #include using std::cout; using std::endl; typedef hash hash_test; int print_pair(hash_test::value_type p) { cout << sizeof(p) << " " << sizeof(p.first) << " " << sizeof(p.second) << " " << p.first << "->" << endl; } int main() { hash_test a_table; cout << "La tabla tiene " << a_table.size() << " entradas" << endl; a_table["hola"] = NullType(); a_table["adios"] = NullType(); a_table.insert("adios",NullType()); a_table.erase("adios"); cout << "a_table[adios] " << (a_table.search("adios") ? "esta" : "no es encuentra") << endl; cout << "La tabla tiene " << a_table.size() << " entradas" << endl; cout << "Insertamos 5 elementos nuevos." << endl; a_table["uno"] = NullType(); a_table["dos"] = NullType(); a_table["tres"] = NullType(); a_table["cuatro"] = NullType(); a_table["cinco"] = NullType(); cout << "La tabla tiene " << a_table.size() << " entradas" << endl; cout << "Recorrido con un iterador:" << endl; for (hash_test::const_iterator i=a_table.begin(); i != a_table.end(); ++i) { cout << (*i).first << "->" << endl; } cout << "Y ahora con for_each" << endl; std::for_each(a_table.begin(), a_table.end(), print_pair); return 0; } april-ann-0.3.1/packages/basics/util/tests/test_list.cc000066400000000000000000000117561234204160600230660ustar00rootroot00000000000000#define USE_ITERATOR_TAGS #include "../c_src/list.h" #include #include using april_utils::list; using std::cout; using std::endl; bool predicado(int x) { return x>90; } void print_int(int i) { cout << i << ", "; } template void print(list l) { for (typename list::iterator i = l.begin(); i != l.end(); i++) cout << *i << ", "; } template void print_const(const list l) { // Si reemplazamos el const_iterator con un iterator aqui, falla // al compilar, porque l es const :D for (typename list::const_iterator i = l.begin(); i != l.end(); i++) cout << *i << ", "; } int main() { cout << "creando lista vacia" << endl; list l; cout << "l.max_size() == " << l.max_size() << endl; cout << "l.size() == " << l.size() << endl; cout << "l.empty() == " << l.empty() << endl; cout << "empujando elementos" << endl; l.push_back(4); l.push_back(5); l.push_back(6); l.push_back(7); l.push_front(3); l.push_front(2); l.push_front(1); l.push_back(8); l.push_back(9); l.push_front(0); cout << "l.size() == " << l.size() << endl; cout << "l.empty() == " << l.empty() << endl; cout << "l.front() == " << l.front() << endl; cout << "l.back() == " << l.back() << endl; cout << "Recorrido con std::for_each: "; std::for_each(l.begin(), l.end(), print_int); cout << endl; cout << "Recorrido inverso con std::for_each: "; std::for_each(l.rbegin(), l.rend(), print_int); cout << endl; cout << "Recorrido con iterator: "; print(l); cout << endl; cout << "Recorrido con const_iterator: "; print_const(l); cout << endl; cout << "creando lista l2 con 10 elementos por defecto" << endl; list l2(10); cout << "l2: "; std::for_each(l2.begin(), l2.end(), print_int); cout << endl; cout << "creando lista l3 con 10 elementos con valor -1234" << endl; list l3(10, -1234); cout << "l3: "; std::for_each(l3.begin(), l3.end(), print_int); cout << endl; cout << "creando lista l4 con elementos [4,8) de l" << endl; list::iterator first=l.begin(); list::iterator last =l.end(); for (int i=0; i<4; i++) first++; for (int i=0; i<2; i++) last--; list l4(first,last); std::for_each(l4.begin(), l4.end(), print_int); cout << endl; cout << "l.pop_front(): "; l.pop_front(); std::for_each(l.begin(), l.end(), print_int); cout << endl; cout << "l.pop_back(): "; l.pop_back(); std::for_each(l.begin(), l.end(), print_int); cout << endl; cout << "l.swap(l4)" << endl; l.swap(l4); cout << "l: "; std::for_each(l.begin(), l.end(), print_int); cout << endl; cout << "l4: "; std::for_each(l4.begin(), l4.end(), print_int); cout << endl; cout << "l4.insert(++l4.begin(), l.begin(), l.end())" << endl; l4.insert(++l4.begin(), l.begin(), l.end()); cout << "l4: "; std::for_each(l4.begin(), l4.end(), print_int); cout << endl; cout << "l4.insert(--l4.end(), 5, 999)" << endl; l4.insert(--l4.end(), 5, 999); cout << "l4: "; std::for_each(l4.begin(), l4.end(), print_int); cout << endl; cout << "l4.insert(l4.end(), -6789)" << endl; l4.insert(l4.end(), -6789); cout << "l4: "; std::for_each(l4.begin(), l4.end(), print_int); cout << endl; cout << "Erasing the second and third elements of l4" << endl; last = ++l4.begin(); first = last++; ++last; l4.erase(first, last); cout << "l4: "; std::for_each(l4.begin(), l4.end(), print_int); cout << endl; cout << "l3.clear()" << endl; l3.clear(); cout << "l3: "; std::for_each(l3.begin(), l3.end(), print_int); cout << endl; cout << "l4.resize(10)" << endl; l4.resize(10); cout << "l4: "; std::for_each(l4.begin(), l4.end(), print_int); cout << endl; cout << "l4.resize(12, -1)" << endl; l4.resize(12, -1); cout << "l4: "; std::for_each(l4.begin(), l4.end(), print_int); cout << endl; cout << "l4.splice(++l4.begin(), l)" << endl; l4.splice(++l4.begin(), l); cout << "l: "; std::for_each(l.begin(), l.end(), print_int); cout << endl; cout << "l4: "; std::for_each(l4.begin(), l4.end(), print_int); cout << endl; cout << "l4.remove(6)" << endl; l4.remove(6); cout << "l4: "; std::for_each(l4.begin(), l4.end(), print_int); cout << endl; cout << "l4.remove_if(x>90)" << endl; l4.remove_if(predicado); cout << "l4: "; std::for_each(l4.begin(), l4.end(), print_int); cout << endl; cout << endl << "and now, some STL algorithms ;)" << endl << endl; cout << "l4.erase(std::find(l4.begin(), l4.end(), 7))" << endl; l4.erase(std::find(l4.begin(), l4.end(), 7)); cout << "l4: "; std::for_each(l4.begin(), l4.end(), print_int); cout << endl; list::iterator i = std::find(l4.begin(), l4.end(), 5); l4.splice(l4.begin(), l4, i); cout << "l4: "; std::for_each(l4.begin(), l4.end(), print_int); cout << endl; cout << "*l4.begin=99;" << endl; *l4.begin()=99; cout << "l4: "; std::for_each(l4.begin(), l4.end(), print_int); cout << endl; } april-ann-0.3.1/packages/basics/util/tests/test_logbase.cc000066400000000000000000000014371234204160600235220ustar00rootroot00000000000000#include #include "../c_src/logbase.h" int main() { log_double a,b; int i=0; a = log_double::from_double(0); b = log_double::from_double(0.0001); printf("%4d rawvalue(%f) %f\n",i,a.log(),a.to_double()); for (i=1; i<=10; i++) { a += b; printf("%4d rawvalue(%f) %f\n",i,a.log(),a.to_double()); } log_float x = log_float::from_float(3.0f); log_double y= log_double::from_double(5.0); log_double z=x+y; printf("x=%f, y=%f, x+y=%f\n", x.to_float(), y.to_double(), z.to_double()); //z=x-y; //printf("x=%f, y=%f, x-y=%f\n", x.to_float(), y.to_double(), z.to_double()); z=x*y; printf("x=%f, y=%f, x*y=%f\n", x.to_float(), y.to_double(), z.to_double()); z=x/y; printf("x=%f, y=%f, x/y=%f\n", x.to_float(), y.to_double(), z.to_double()); return 0; } april-ann-0.3.1/packages/basics/util/tests/test_max_min_finder.cc000066400000000000000000000010771234204160600250650ustar00rootroot00000000000000#include #include #include "../c_src/vector.h" #include "../c_src/max_min_finder.h" using namespace april_utils; int main(int argc, char **argv) { vector resultado; const int ci = 6; const int cd = 6; bool findmax = true; bool findmin = false; max_min_finder finder(ci,cd,findmax,&resultado,findmin,0); int i; while (scanf("%d",&i) == 1) finder.put(i); finder.end_sequence(); printf("Resultado:\n"); for (vector::iterator r = resultado.begin(); r != resultado.end(); ++r) printf("%d\n",*r); return 0; } april-ann-0.3.1/packages/basics/util/tests/test_maxiphobic_minheap.cc000066400000000000000000000010511234204160600257220ustar00rootroot00000000000000#include "maxiphobic_minheap.h" #include #include #include using std::rand; using std::srand; using namespace april_utils; #define NUM_QUEUES 100000 #define NUM_ELEMENTS 10000000 int main() { maxiphobic_minheap h[NUM_QUEUES]; srand(time(NULL)); for (int i=0; i #include using std::cout; using std::endl; #include "open_addressing_hash.h" #include "aux_hash_table.h" using namespace april_utils; typedef open_addr_hash hash_test; int print_pair(hash_test::value_type p) { cout << p.first << "->" << p.second << endl; } bool predicado(hash_test::value_type p) { return (!strcmp(p.second, "adios")); } int main() { hash_test a_table; cout << "La tabla tiene " << a_table.size() << " entradas" << endl; a_table["hola"] = "hello"; a_table["adios"] = "bye"; a_table.insert("adios","ciao!"); a_table["x"] = "adios"; a_table["y"] = "adios"; a_table["z"] = "adios"; cout << "a_table[adios] = " << a_table["adios"] << endl; cout << "La tabla tiene " << a_table.size() << " entradas" << endl; cout << "Ahora borramos todas las entradas" << endl; a_table.clear(); cout << "La tabla tiene " << a_table.size() << " entradas" << endl; a_table["hola"] = "hi"; a_table["adios"] = "ciao"; cout << "a_table[adios] " << (a_table.search("adios") ? "esta" : "no es encuentra") << endl; cout << "La tabla tiene " << a_table.size() << " entradas" << " y " << a_table.bucket_count() << " buckets" << endl; cout << "Insertamos elementos nuevos." << endl; a_table["uno"] = "1"; a_table["dos"] = "2"; a_table["tres"] = "3"; a_table["cuatro"] = "4"; a_table["cinco"] = "5"; a_table["seis"] = "6"; a_table["siete"] = "7"; a_table["ocho"] = "8"; a_table["nueve"] = "9"; a_table["diez"] = "10"; a_table["once"] = "11"; a_table["doce"] = "12"; cout << "La tabla tiene " << a_table.size() << " entradas" << " y " << a_table.bucket_count() << " buckets" << endl; cout << "Recorrido con un iterador:" << endl; for (hash_test::const_iterator i=a_table.begin(); i != a_table.end(); ++i) { cout << (*i).first << "->" << i->second << endl; } cout << "Y ahora con for_each" << endl; std::for_each(a_table.begin(), a_table.end(), print_pair); return 0; } april-ann-0.3.1/packages/basics/util/tests/test_open_adressing_hash_timestamp.cc000066400000000000000000000040411234204160600301660ustar00rootroot00000000000000 #include #include using std::cout; using std::endl; #include "open_addressing_hash_timestamp.h" #include "aux_hash_table.h" using namespace april_utils; using namespace hash_aux; typedef open_addr_hash_timestamp hash_test; int print_pair(hash_test::value_type p) { cout << p.first << "->" << p.second << endl; } bool predicado(hash_test::value_type p) { return (!strcmp(p.second, "adios")); } int main() { hash_test a_table; cout << "La tabla tiene " << a_table.size() << " entradas" << endl; a_table["hola"] = "hello"; a_table["adios"] = "bye"; a_table.insert("adios","ciao!"); a_table["x"] = "adios"; a_table["y"] = "adios"; a_table["z"] = "adios"; cout << "a_table[adios] = " << a_table["adios"] << endl; cout << "La tabla tiene " << a_table.size() << " entradas" << endl; cout << "Ahora borramos todas las entradas" << endl; a_table.clear(); cout << "La tabla tiene " << a_table.size() << " entradas" << endl; a_table["hola"] = "hi"; a_table["adios"] = "ciao"; cout << "a_table[adios] " << (a_table.search("adios") ? "esta" : "no es encuentra") << endl; cout << "La tabla tiene " << a_table.size() << " entradas" << " y " << a_table.bucket_count() << " buckets" << endl; cout << "Insertamos elementos nuevos." << endl; a_table["uno"] = "1"; a_table["dos"] = "2"; a_table["tres"] = "3"; a_table["cuatro"] = "4"; a_table["cinco"] = "5"; a_table["seis"] = "6"; a_table["siete"] = "7"; a_table["ocho"] = "8"; a_table["nueve"] = "9"; a_table["diez"] = "10"; a_table["once"] = "11"; a_table["doce"] = "12"; cout << "La tabla tiene " << a_table.size() << " entradas" << " y " << a_table.bucket_count() << " buckets" << endl; cout << "Recorrido con un iterador:" << endl; for (hash_test::const_iterator i=a_table.begin(); i != a_table.end(); ++i) { cout << (*i).first << "->" << i->second << endl; } cout << "Y ahora con for_each" << endl; std::for_each(a_table.begin(), a_table.end(), print_pair); return 0; } april-ann-0.3.1/packages/basics/util/tests/test_qsort.cc000066400000000000000000000011131234204160600232450ustar00rootroot00000000000000#include using namespace std; #include "qsort.h" int main() { // Lectura de datos e invocación de la función de sort int i,leido,indDat; const int maxVec = 1024; int v[maxVec]; cout << "Prueba de la función QuickSort\n" << "Introduce valores a ordenar (fin con ^D):\n"; indDat=0; while (indDat < maxVec && cin >> leido) { v[indDat] = leido; indDat++; } april_utils::Sort(v,indDat); // ordenamos el vector cout << "El vector ordenado:\n"; for(i=0; i < indDat; i++) cout << v[i] << (((i % 10 == 9) || (i == indDat-1)) ? '\n' : ' '); } april-ann-0.3.1/packages/basics/util/tests/test_qsort_partq.cc000066400000000000000000000007741234204160600244700ustar00rootroot00000000000000#include using namespace std; #include "../c_src/qsort.h" int main() { // Lectura de datos e invocación de la función de sort int i,leido,indDat; const int maxVec = 1024; int v[maxVec]; cout << "Prueba de partq\n" << "Introduce valores (fin con ^D):\n"; indDat=0; while (indDat < maxVec && cin >> leido) { v[indDat] = leido; indDat++; } april_utils::PartQ queue; queue.configure(v,indDat); while (queue.extractMin(leido)) { cout << leido << endl; } } april-ann-0.3.1/packages/basics/util/tests/test_qsort_selection.cc000066400000000000000000000012411234204160600253140ustar00rootroot00000000000000#include using namespace std; #include "../c_src/qsort.h" int main() { // Lectura de datos e invocación de la función de sort int i,leido,indDat; const int maxVec = 1024; int v[maxVec]; cout << "Prueba de la función Selection\n" << "Introduce el valor k y luego los valores (fin con ^D):\n"; int k; cin >> k; indDat=0; while (indDat < maxVec && cin >> leido) { v[indDat] = leido; indDat++; } int valor = april_utils::Selection(v,indDat,k-1); cout << "El " << k << "-esimo menor es " << valor << endl; cout << "Los " << k << " menores elementos (desordenados) son:\n"; for (int i=0; i #include #include using april_utils::slist; using std::cout; using std::endl; bool predicado(int x) { return x>90; } void print_int(int i) { cout << i << endl; } template void print(slist l) { for (typename slist::iterator i = l.begin(); i != l.end(); i++) cout << *i << ", "; cout << endl; } template void print_const(const slist l) { // Si reemplazamos el const_iterator con un iterator aqui, falla // al compilar, porque l es const :D for (typename slist::const_iterator i = l.begin(); i != l.end(); i++) cout << *i << ", "; cout << endl; } int main() { slist l; l.push_back(1); l.push_back(2); l.push_back(3); l.push_back(4); l.push_back(99); slist::iterator it; slist::const_iterator c_it = l.begin(); cout << (l.begin() != l.end()) << endl; cout << (it != l.end()) << endl; cout << (c_it != l.end()) << endl; cout << "Recorremos con un iterator: "; for (slist::iterator i = l.begin(); i != l.end(); i++) cout << *i << ", "; cout << endl; cout << "Recorremos con un const_iterator: "; for (slist::const_iterator i = l.begin(); i != l.end(); i++) cout << *i << ", "; cout << endl; cout << "Recorrido con std::for_each: " << endl; std::for_each(l.begin(), l.end(), print_int); cout << "Reemplazamos el 3 por un 99: "; std::replace(l.begin(), l.end(), 3, 99); print(l); /* cout << "Rotate con middle = 2: "<< endl; std::rotate(l.begin(), ++l.begin(), l.end()); print(l); cout << "La suma de los elementos de la lista es: "<< std::accumulate(l.begin(), l.end(), 0) << endl; cout << "std::remove_if( x > 90 )" << endl; std::remove_if(l.begin(), l.end(), predicado); print(l); */ // TODO: Un test para slist::transfer_front_to_front() // TODO: Un test para slist::transfer_front_to_back() } april-ann-0.3.1/packages/basics/util/tests/test_stringQueue.cc000066400000000000000000000003721234204160600244160ustar00rootroot00000000000000#include #include "../c_src/stringQueue.cc" int main() { StringQueue s; for (int i=0; i<10; ++i) s.printf("hola mundo %d\n",i); int t; std::cout << s.exportBuffer(t) << std::endl; std::cout << "ocupa: " << t << std::endl; } april-ann-0.3.1/packages/basics/util/tests/test_vector.cc000066400000000000000000000006261234204160600234070ustar00rootroot00000000000000#include "vector.h" #include using namespace april_utils; using std::cout; using std::endl; int main() { vector v1; v1.push_back(1); v1.push_back(2); v1.push_back(3); v1.push_back(4); vector v2; v2.push_back(30); v2.push_back(20); v2.push_back(10); v1.swap(v2); for (int i=0; i 0 then local rcount = 1/count local csum_i,c_i = Csum(i,':'),C(i,':') csum_i:scal(rcount) Csq(i,':'):scal(rcount) local diff = (csum_i - c_i):abs():sum() discrepancy = discrepancy + diff c_i:copy(csum_i) end end -- iter = iter + 1 if params.verbose then printf("# Iteration %d. Centroids Discrepancy: %g\n", iter,discrepancy) end io.stdout:flush() until iter == params.max_iter or discrepancy < params.threshold -- STEP 6: compute distortion if params.verbose then for i=1,K do printf("# Cluster %d: %d/%d samples ( %.3f%% )\n", i,Ccont:get(i),N,Ccont:get(i)*100.0/N) end end local norm2 = X:norm2() score = (score + norm2*norm2) / N return score,C end ----------------------------- -- __call REFINE ALGORITHM -- ----------------------------- --[[ refine initialization for kmeans, see paper @inproceedings{bradley1998refining, title={Refining initial points for k-means clustering}, author={Bradley, P.S. and Fayyad, U.M.}, booktitle={Proceedings of the Fifteenth International Conference on Machine Learning}, volume={66}, year={1998}, organization={San Francisco, CA, USA} } matrix C does NOT contain centroids, it is used to return the resulting centroids returns best distortion --]] function funcs.refine(X,C,params) local params = get_table_fields( { subsamples = { mandatory=false, type_match="number", default=10 }, percentage = { mandatory=false, type_match="number", default=0.01 }, random = { mandatory=true, isa_match=random }, threshold = { mandatory=false, type_match="number", default=1e-5 }, max_iter = { mandatory=false, type_match="number", default=100 }, verbose = { mandatory=false }, }, params) assert(X and isa(X,matrix), "A matrix needed as 1st argument") assert(C and isa(C,matrix), "A matrix needed as 2nd argument") local Xdim = X:dim() local Cdim = C:dim() assert(#Xdim == 2, "Data matrix must be bi-dimensional") assert(#Cdim == 2, "Centroids matrix must be bi-dimensional") assert(X:get_major_order() == C:get_major_order(), "Given matrices with different major order") local N = Xdim[1] -- number of samples local D = Xdim[2] -- number of features (dimensions) local K = Cdim[1] -- number of clusters local J = params.subsamples local rnd = params.random april_assert(Cdim[2] == D, "Different columns found between data and centroids: %d ~= %d\n", D, Cdim[2]) local num_samples = math.max(K, math.round(N * params.percentage)) local Mnew = matrix[X:get_major_order()] local S = Mnew(num_samples, D) local CM = Mnew(J, K, D) local FM = matrix.as(CM) local function get_row_idx() return rnd:randInt(1,N) end -- auxiliary variables which store temporal matrices local Xrow,Crow,Srow,CMiter,FMiter -- cluster initialization for c=1,K do local row = get_row_idx() Xrow = X:select(1,row,Xrow) Crow = C:select(1,c,Crow) Crow:copy(Xrow) end -- compute J kmeans subsamples for j=1,J do -- subsampling for s=1,num_samples do local row = get_row_idx() -- copy random row to matrix S Xrow = X:select(1,row,Xrow) Srow = S:select(1,s,Srow) Srow:copy(Xrow) end -- copy centroids from C to CM CMiter = CM:select(1,j,CMiter) CMiter:copy(C) if params.verbose then printf("# REFINE: %d J %d\n", num_samples, j) end io.stdout:flush() funcs.basic(S,CMiter,{ max_iter=params.max_iter, threshold = params.threshold, verbose = params.verbose }) end -- here we have J different sets of K centroids in matrix CM FM:copy(CM) -- look for the best set FMiter = FM:select(1,1,FMiter) local best_score = funcs.basic(X,FMiter,{verbose = params.verbose}) local best_J = 1 for j=2,J do FMiter = FM:select(1,j,FMiter) local score = funcs.basic(X,FMiter,{verbose = params.verbose}) if score < best_score then best_score,best_J = score,j end end -- copy the best centroids to C C:copy(FM:select(1,best_J,FMiter)) return best_score,C end ----------------------- -- __call METAMETHOD -- ----------------------- local function metatable_call(self,params) local params = get_table_fields( { data = { mandatory=true, isa_match=matrix, default=nil }, K = { mandatory=false, type_match="number", default=nil }, distance = { mandatory=false, type_match="string", default="euclidean" }, subsamples = { mandatory=false, type_match="number" }, percentage = { mandatory=false, type_match="number" }, random = { mandatory=false, isa_match=random, default=nil }, centroids = { mandatory=false, isa_match=matrix, default=nil }, threshold = { mandatory=false, type_match="number" }, max_iter = { mandatory=false, type_match="number" }, verbose = { mandatory=false }, }, params) -- sanity checks april_assert(params.distance == "euclidean", "Distance %s not supported\n", params.distance) assert(params.K or params.centroids, "Parameter K or centroids must be defined") if params.K and params.centroids then assert(params.centroids:dim(1) == params.K, "Centroids matrix dim(1) is different of given K parameter") end -- local centroids = params.centroids local data = params.data local distortion if not centroids then assert(random, "Field random is mandatory when not given centroids") centroids = matrix[data:get_major_order()](params.K,data:dim(2)) distortion = funcs.refine(data, centroids, { max_iter = params.max_iter, random = params.random, threshold = params.threshold, percentage = params.percentage, subsamples = params.subsamples, verbose = params.verbose }) end distortion = funcs.basic(data, centroids, { max_iter = params.max_iter, threshold = params.threshold, verbose = params.verbose }) return distortion,centroids end setmetatable(funcs, { __call = metatable_call }) return funcs april-ann-0.3.1/packages/clustering/kmeans/matrix/package.lua000066400000000000000000000022201234204160600242030ustar00rootroot00000000000000 package{ name = "clustering.kmeans.matrix", version = "1.0", depends = { "util", "dataset", "matrix", "random", "mathcore" }, keywords = { "clustering", "K-means" }, description = "K-means clustering algorithm", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", --copy{ file= "c_src/*.h", dest_dir = "include" }, --provide_bind{ file = "binding/bind_kmeans_matrix.lua.cc", dest_dir = "include" } }, target{ name = "build", depends = "provide", use_timestamp = true, -- object{ -- file = "c_src/*.cc", -- include_dirs = "${include_dirs}", -- dest_dir = "build", -- }, luac{ orig_dir = "lua_src", dest_dir = "build", }, -- build_bind{ -- file = "binding/bind_kmeans_matrix.lua.cc", -- dest_dir = "build", -- } }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/clustering/kmeans/matrix/test/000077500000000000000000000000001234204160600230705ustar00rootroot00000000000000april-ann-0.3.1/packages/clustering/kmeans/matrix/test/data.txt000066400000000000000000000352341234204160600245510ustar00rootroot00000000000000100 16 ascii -1.49383 -1.11884 0.412841 -0.386154 -1.31948 -0.166529 -1.49352 -0.0358276 0.234186 -0.44173 1.79381 -0.836024 -0.0698595 0.286595 -0.653472 -1.05435 -1.23726 -0.792613 0.437342 -0.31071 -1.09998 -0.187008 -1.39263 -0.0617716 0.137347 -0.372681 1.42874 -0.749145 0.0120808 0.199252 -0.559779 -0.974969 -1.0382 -0.516389 0.403518 -0.303574 -0.906858 -0.137893 -1.30932 -0.0144967 0.0130425 -0.291268 1.12405 -0.723203 0.0767787 0.132942 -0.502462 -0.865637 -1.02197 -0.484943 0.353408 -0.302592 -0.83545 -0.0317492 -1.31948 0.0716837 -0.0665123 -0.29106 1.074 -0.790763 0.0956816 0.108151 -0.494869 -0.822345 -1.1812 -0.677459 0.288464 -0.326077 -0.918746 0.0795079 -1.42566 0.150193 -0.0896325 -0.39496 1.27045 -0.930838 0.0625293 0.134236 -0.538647 -0.864483 -1.23019 -0.711809 0.270557 -0.374249 -0.865628 0.122465 -1.50714 0.194167 -0.139901 -0.474654 1.27084 -1.03051 0.0435289 0.100061 -0.575053 -0.802156 -1.26484 -0.755489 0.26804 -0.380474 -0.890199 0.127514 -1.52558 0.199732 -0.131589 -0.491497 1.31968 -1.04697 0.0298312 0.109652 -0.588107 -0.813905 -1.30444 -0.808531 0.264938 -0.38502 -0.925842 0.132223 -1.54497 0.205121 -0.116823 -0.506521 1.38281 -1.0623 0.0150069 0.12372 -0.60347 -0.834306 -1.33225 -0.847322 0.26107 -0.38745 -0.953408 0.13639 -1.55673 0.207806 -0.104009 -0.519182 1.42952 -1.07265 0.00358094 0.134524 -0.614455 -0.851032 -1.3487 -0.870041 0.259145 -0.389066 -0.9682 0.139057 -1.56376 0.209362 -0.0977513 -0.526712 1.4555 -1.07863 -0.0025752 0.140875 -0.619689 -0.859846 -1.35702 -0.883368 0.260202 -0.388766 -0.977686 0.141414 -1.5697 0.210484 -0.0949109 -0.530214 1.47127 -1.0818 -0.00422938 0.145487 -0.620893 -0.866328 -1.36156 -0.892389 0.262764 -0.38535 -0.98383 0.144228 -1.57383 0.21136 -0.0941277 -0.53132 1.48182 -1.08311 -0.00372829 0.149385 -0.618808 -0.871057 -1.36347 -0.89847 0.265417 -0.381001 -0.989143 0.145103 -1.57623 0.210833 -0.0929723 -0.529332 1.48927 -1.0825 -0.00189503 0.152936 -0.616607 -0.875687 -1.36222 -0.900043 0.267039 -0.377782 -0.990431 0.145114 -1.57676 0.209772 -0.0923473 -0.528404 1.4906 -1.08099 -0.00122939 0.15368 -0.615927 -0.878991 -1.36262 -0.898921 0.266474 -0.377704 -0.987473 0.145219 -1.57523 0.209896 -0.0938034 -0.528054 1.48761 -1.08102 -0.000912562 0.152086 -0.615128 -0.876963 -1.36247 -0.89581 0.266242 -0.378909 -0.984743 0.142912 -1.57255 0.209213 -0.0939107 -0.526451 1.48388 -1.08055 0.000205591 0.150117 -0.614577 -0.873904 -1.3592 -0.891626 0.266824 -0.37905 -0.983393 0.138833 -1.56986 0.20568 -0.0919172 -0.524099 1.47954 -1.0774 0.00140162 0.14895 -0.615013 -0.872159 -1.34978 -0.881948 0.267976 -0.377952 -0.983249 0.131159 -1.56185 0.198415 -0.0863102 -0.515978 1.46958 -1.06821 0.00386889 0.148321 -0.614652 -0.872218 -1.33071 -0.863123 0.269133 -0.37482 -0.979685 0.121946 -1.54848 0.186528 -0.0803496 -0.502888 1.44833 -1.05277 0.00938298 0.146477 -0.611709 -0.871434 -1.30706 -0.836097 0.271589 -0.370754 -0.968006 0.113785 -1.534 0.177139 -0.0798427 -0.487231 1.41794 -1.03627 0.0184066 0.142111 -0.604775 -0.865741 -1.28454 -0.808793 0.275323 -0.365899 -0.952114 0.110452 -1.52232 0.174305 -0.0861434 -0.474302 1.38723 -1.02395 0.0287067 0.136986 -0.59424 -0.858484 -1.26293 -0.781753 0.279588 -0.356579 -0.929844 0.114126 -1.51358 0.17708 -0.100331 -0.467562 1.35592 -1.01832 0.0398776 0.131138 -0.578833 -0.849231 -1.24909 -0.762684 0.282409 -0.34778 -0.909932 0.121878 -1.51134 0.184909 -0.117612 -0.465644 1.33291 -1.02059 0.050159 0.125919 -0.564476 -0.840843 -1.23949 -0.747557 0.281805 -0.344213 -0.894359 0.128544 -1.51123 0.193456 -0.130647 -0.467615 1.31572 -1.02726 0.0568603 0.118563 -0.557744 -0.83386 -1.2385 -0.737401 0.277237 -0.350051 -0.880587 0.132429 -1.51118 0.200553 -0.139483 -0.474354 1.30368 -1.03634 0.0563232 0.108877 -0.559838 -0.82271 -1.25124 -0.741142 0.271104 -0.36539 -0.874928 0.131857 -1.51757 0.204016 -0.14233 -0.484962 1.30448 -1.04776 0.0480365 0.101819 -0.571453 -0.810496 -1.27826 -0.765488 0.264773 -0.382354 -0.88552 0.131319 -1.53254 0.205626 -0.137032 -0.501597 1.32916 -1.06149 0.0333711 0.102762 -0.588387 -0.807812 -1.32256 -0.820093 0.260338 -0.39247 -0.916467 0.136127 -1.55534 0.208853 -0.124517 -0.524091 1.38859 -1.0794 0.0135916 0.114685 -0.606357 -0.82105 -1.37357 -0.891713 0.259637 -0.391548 -0.960632 0.146292 -1.58253 0.215369 -0.109491 -0.545334 1.46971 -1.09947 -0.00284989 0.134572 -0.61938 -0.849226 -1.40972 -0.948743 0.262271 -0.383552 -0.996852 0.158122 -1.60386 0.223242 -0.0997362 -0.560195 1.53619 -1.11549 -0.0102672 0.152163 -0.622991 -0.877176 -1.42513 -0.975416 0.265212 -0.374607 -1.01272 0.166644 -1.61196 0.2304 -0.0972511 -0.567482 1.56824 -1.12438 -0.0107085 0.160823 -0.619561 -0.892837 -1.42526 -0.977082 0.266934 -0.367363 -1.01356 0.169345 -1.61078 0.233368 -0.0985454 -0.568342 1.57187 -1.12622 -0.00634438 0.160974 -0.61393 -0.897593 -1.42037 -0.969589 0.268212 -0.365939 -1.00958 0.166583 -1.60802 0.232502 -0.099632 -0.565926 1.5642 -1.12542 -0.000930369 0.156696 -0.611189 -0.895663 -1.42033 -0.968711 0.269332 -0.368267 -1.0092 0.163224 -1.60829 0.229075 -0.0981685 -0.565411 1.56172 -1.12419 -4.29899e-05 0.154741 -0.611745 -0.89352 -1.43263 -0.984485 0.269607 -0.370318 -1.02058 0.160465 -1.61199 0.224888 -0.0915213 -0.567598 1.57801 -1.12344 -0.00564194 0.159915 -0.615499 -0.898312 -1.44733 -1.00451 0.270065 -0.369579 -1.03586 0.159853 -1.61773 0.222558 -0.0841648 -0.570762 1.60052 -1.12367 -0.0120205 0.167877 -0.619143 -0.907555 -1.45986 -1.02273 0.270933 -0.366297 -1.04989 0.162553 -1.6235 0.224137 -0.0792864 -0.574652 1.62284 -1.12691 -0.0158413 0.175495 -0.620116 -0.918028 -1.46978 -1.03716 0.271444 -0.363741 -1.05793 0.166892 -1.62945 0.227782 -0.0785882 -0.579372 1.63962 -1.1326 -0.0175911 0.179779 -0.620258 -0.924959 -1.47913 -1.04942 0.271262 -0.363566 -1.06288 0.169275 -1.63416 0.230081 -0.0781887 -0.583408 1.65185 -1.13725 -0.0196431 0.181109 -0.622186 -0.928691 -1.48595 -1.05554 0.270426 -0.365571 -1.06615 0.167695 -1.63348 0.23074 -0.0756376 -0.584851 1.65838 -1.13921 -0.021367 0.180634 -0.624519 -0.929712 -1.48326 -1.051 0.270933 -0.364509 -1.06331 0.163817 -1.62926 0.228705 -0.0737867 -0.584573 1.65406 -1.13864 -0.0187198 0.177252 -0.623613 -0.928625 -1.47301 -1.03946 0.274188 -0.359948 -1.05567 0.161494 -1.62631 0.225938 -0.0766705 -0.580278 1.64123 -1.13522 -0.0109501 0.173729 -0.617555 -0.926132 -1.46146 -1.02856 0.279326 -0.352804 -1.04959 0.159629 -1.62183 0.221891 -0.079263 -0.572244 1.62732 -1.12755 -0.00300471 0.173018 -0.608844 -0.925725 -1.45048 -1.01898 0.283808 -0.344707 -1.04546 0.157703 -1.61408 0.218185 -0.0801481 -0.564686 1.61549 -1.11887 0.00313629 0.173167 -0.599997 -0.926825 -1.43772 -1.00362 0.285995 -0.33832 -1.03707 0.156884 -1.606 0.218025 -0.0837383 -0.558777 1.59942 -1.11416 0.010751 0.169553 -0.591397 -0.92461 -1.4263 -0.988015 0.286083 -0.335024 -1.02652 0.156782 -1.59966 0.218301 -0.0893474 -0.553209 1.58159 -1.11054 0.0177847 0.164577 -0.585047 -0.919455 -1.42215 -0.98019 0.28588 -0.334703 -1.01863 0.155194 -1.59397 0.217135 -0.0921123 -0.549269 1.57062 -1.10698 0.0199594 0.161415 -0.582403 -0.913552 -1.42036 -0.975813 0.285602 -0.337385 -1.01511 0.152348 -1.5922 0.215582 -0.0928346 -0.549236 1.56426 -1.10577 0.0185408 0.159054 -0.583504 -0.910002 -1.41655 -0.970206 0.284103 -0.340647 -1.0131 0.150666 -1.59177 0.215354 -0.0925123 -0.550451 1.55813 -1.10645 0.0173604 0.156682 -0.586095 -0.907826 -1.41916 -0.973569 0.283123 -0.342716 -1.01602 0.151121 -1.59494 0.215655 -0.0912779 -0.552431 1.56326 -1.10875 0.015281 0.158033 -0.589037 -0.908163 -1.43008 -0.988134 0.282562 -0.343709 -1.0253 0.153564 -1.60148 0.216471 -0.0881197 -0.556286 1.58016 -1.11173 0.010356 0.163331 -0.593035 -0.913489 -1.44589 -1.00703 0.279994 -0.347473 -1.03798 0.156533 -1.6086 0.219488 -0.0839689 -0.562797 1.60219 -1.11702 0.00280999 0.169515 -0.59916 -0.919863 -1.45813 -1.02111 0.27694 -0.352028 -1.0455 0.160761 -1.61441 0.223678 -0.0820471 -0.571875 1.61847 -1.12475 -0.00402544 0.171844 -0.604365 -0.922724 -1.46923 -1.03455 0.275006 -0.354632 -1.05138 0.165869 -1.62177 0.227941 -0.0820594 -0.57846 1.63401 -1.13247 -0.00881879 0.173728 -0.608646 -0.924922 -1.47747 -1.04487 0.273942 -0.355312 -1.05625 0.169127 -1.62716 0.231311 -0.0815217 -0.581226 1.64681 -1.13747 -0.0113896 0.176329 -0.611644 -0.927401 -1.48097 -1.04935 0.271669 -0.356021 -1.05732 0.172064 -1.63002 0.233108 -0.0816629 -0.586727 1.65147 -1.1415 -0.0134436 0.176617 -0.61386 -0.927858 -1.48636 -1.05391 0.270004 -0.357953 -1.05784 0.173939 -1.6339 0.235026 -0.0823341 -0.591843 1.65523 -1.14649 -0.0154161 0.175634 -0.6165 -0.927377 -1.50199 -1.07401 0.270068 -0.361397 -1.07102 0.17305 -1.64306 0.234542 -0.0766922 -0.595635 1.67724 -1.15196 -0.019124 0.179549 -0.623101 -0.933321 -1.51702 -1.09582 0.270827 -0.364022 -1.08677 0.170747 -1.64998 0.231693 -0.0680126 -0.599254 1.70206 -1.15453 -0.0243755 0.185292 -0.629625 -0.940844 -1.52411 -1.10558 0.271726 -0.363592 -1.09662 0.167846 -1.64938 0.229355 -0.0613228 -0.597992 1.71501 -1.15226 -0.0273087 0.18991 -0.631344 -0.946765 -1.51684 -1.1003 0.273601 -0.361602 -1.0998 0.162576 -1.64364 0.224484 -0.0567272 -0.590848 1.71114 -1.14461 -0.0249233 0.192405 -0.629505 -0.950802 -1.49785 -1.08226 0.275972 -0.358817 -1.09502 0.157671 -1.63449 0.217944 -0.0543698 -0.58113 1.69307 -1.13269 -0.0198427 0.192351 -0.625735 -0.949682 -1.47586 -1.05563 0.277501 -0.355733 -1.08482 0.152654 -1.62248 0.21247 -0.0550514 -0.569083 1.66605 -1.11946 -0.014033 0.189793 -0.620069 -0.944679 -1.45428 -1.0276 0.277052 -0.353212 -1.07024 0.149686 -1.6124 0.208406 -0.0597763 -0.558379 1.63536 -1.10923 -0.00658624 0.184371 -0.61413 -0.937025 -1.44276 -1.01148 0.275979 -0.353666 -1.05671 0.151946 -1.60827 0.210196 -0.0674692 -0.554759 1.61602 -1.10666 -0.0027668 0.179875 -0.610089 -0.927956 -1.44171 -1.00456 0.274202 -0.355073 -1.04577 0.159344 -1.60842 0.218276 -0.0775374 -0.557812 1.60665 -1.11105 -0.00272803 0.176423 -0.606394 -0.919952 -1.44177 -0.999395 0.27168 -0.354377 -1.03384 0.167501 -1.61091 0.226722 -0.0889218 -0.563938 1.59842 -1.11962 -0.00190921 0.170785 -0.603645 -0.912462 -1.43924 -0.99294 0.269663 -0.354664 -1.01793 0.174781 -1.61498 0.235333 -0.101082 -0.572119 1.5879 -1.13141 0.00051783 0.162204 -0.602407 -0.902801 -1.4409 -0.991833 0.266933 -0.355017 -1.00583 0.181647 -1.61877 0.241712 -0.11016 -0.581892 1.5823 -1.1427 0.00142236 0.154855 -0.60207 -0.894858 -1.45122 -0.998087 0.263588 -0.357537 -1.00136 0.185232 -1.62399 0.244465 -0.114603 -0.592395 1.58458 -1.15247 -0.00131254 0.150133 -0.604029 -0.890273 -1.47473 -1.02371 0.261767 -0.361861 -1.01211 0.185284 -1.63465 0.245396 -0.109953 -0.607045 1.60958 -1.16499 -0.00892363 0.150645 -0.611548 -0.894142 -1.51924 -1.0806 0.261062 -0.365319 -1.04747 0.186925 -1.65433 0.248482 -0.0953091 -0.62631 1.67387 -1.18281 -0.022002 0.162227 -0.623985 -0.913853 -1.57427 -1.15443 0.261589 -0.365514 -1.09744 0.189893 -1.67763 0.2508 -0.0742757 -0.644522 1.7592 -1.19977 -0.037123 0.18209 -0.637283 -0.944711 -1.6222 -1.22269 0.263555 -0.362114 -1.14537 0.19144 -1.69722 0.249279 -0.0527571 -0.658174 1.83753 -1.21116 -0.0490439 0.202224 -0.646834 -0.97613 -1.64801 -1.26343 0.267311 -0.355753 -1.17665 0.191883 -1.70912 0.246206 -0.0384398 -0.664112 1.88561 -1.2142 -0.0536071 0.216902 -0.649154 -0.999381 -1.65461 -1.27737 0.272952 -0.348147 -1.19232 0.189874 -1.71099 0.242929 -0.0307913 -0.661531 1.90354 -1.2092 -0.0528926 0.225544 -0.645344 -1.01427 -1.64614 -1.27196 0.27917 -0.339754 -1.19378 0.186926 -1.70517 0.23876 -0.0291746 -0.652705 1.89845 -1.20019 -0.0468917 0.228344 -0.637035 -1.01915 -1.62863 -1.25425 0.283853 -0.333136 -1.18482 0.184976 -1.69708 0.237019 -0.032913 -0.643978 1.87988 -1.19268 -0.0381508 0.22562 -0.627992 -1.01729 -1.60973 -1.22913 0.285738 -0.328848 -1.16778 0.183854 -1.68683 0.237579 -0.0408347 -0.634124 1.85169 -1.18516 -0.0296907 0.219234 -0.619718 -1.00893 -1.59553 -1.20955 0.285321 -0.325339 -1.14947 0.183958 -1.67743 0.236083 -0.049525 -0.627561 1.82455 -1.17946 -0.0231531 0.211932 -0.612739 -0.998306 -1.58468 -1.19448 0.284974 -0.324035 -1.13437 0.184554 -1.67067 0.235107 -0.0565091 -0.625755 1.80293 -1.17763 -0.018577 0.20462 -0.607417 -0.988923 -1.57607 -1.18131 0.284887 -0.323294 -1.12483 0.183202 -1.66632 0.234051 -0.0602566 -0.624133 1.78706 -1.17662 -0.0153189 0.199443 -0.604167 -0.982703 -1.57161 -1.17532 0.285282 -0.321558 -1.12165 0.179559 -1.66504 0.231956 -0.0600791 -0.621641 1.78149 -1.17564 -0.011715 0.196707 -0.603822 -0.981257 -1.57065 -1.17514 0.285343 -0.322173 -1.12228 0.177922 -1.66375 0.231778 -0.0582184 -0.620638 1.78246 -1.17466 -0.010593 0.196341 -0.604777 -0.982156 -1.57591 -1.1805 0.283915 -0.325324 -1.12833 0.177707 -1.66399 0.231124 -0.05465 -0.621356 1.7893 -1.17397 -0.0135673 0.199191 -0.606909 -0.984317 -1.58242 -1.1879 0.282861 -0.32922 -1.1373 0.176005 -1.66743 0.229298 -0.0498121 -0.621471 1.79969 -1.17379 -0.0175085 0.203377 -0.610961 -0.98682 -1.5888 -1.19667 0.281945 -0.332472 -1.14728 0.175114 -1.6718 0.229018 -0.0446384 -0.621737 1.81351 -1.17464 -0.0220181 0.208535 -0.6164 -0.989955 -1.59303 -1.20279 0.279454 -0.336451 -1.15542 0.17564 -1.67439 0.229016 -0.0406056 -0.62191 1.82253 -1.17395 -0.0277524 0.213261 -0.622312 -0.993283 -1.59695 -1.20873 0.275809 -0.34368 -1.16229 0.175872 -1.67713 0.228943 -0.0363773 -0.623852 1.82988 -1.17435 -0.0345395 0.216457 -0.630366 -0.995271 -1.60186 -1.21437 0.273633 -0.351357 -1.16593 0.176417 -1.6816 0.231072 -0.0344756 -0.627727 1.83771 -1.17747 -0.0407077 0.218003 -0.637949 -0.994239 -1.6017 -1.21142 0.272223 -0.354628 -1.16261 0.178225 -1.68508 0.233089 -0.0374788 -0.628977 1.83477 -1.17911 -0.0432108 0.217467 -0.640826 -0.99028 -1.59315 -1.20136 0.272474 -0.353547 -1.15239 0.181291 -1.684 0.235314 -0.044234 -0.627469 1.82169 -1.17896 -0.0406552 0.21457 -0.638046 -0.984534 -1.58017 -1.18942 0.273817 -0.351065 -1.13942 0.186542 -1.6808 0.238967 -0.0530806 -0.625908 1.80614 -1.17954 -0.035587 0.210219 -0.63237 -0.978187 -1.56692 -1.1715 0.273199 -0.349672 -1.12541 0.19128 -1.67672 0.243616 -0.0621001 -0.623994 1.78646 -1.17989 -0.030933 0.204891 -0.627011 -0.97096 -1.55947 -1.15802 0.270858 -0.348237 -1.11257 0.193756 -1.67384 0.245902 -0.0693673 -0.624216 1.77007 -1.18179 -0.0270049 0.198746 -0.623691 -0.963103 -1.56488 -1.15952 0.267412 -0.350495 -1.10854 0.196149 -1.67622 0.24875 -0.072317 -0.630668 1.7698 -1.18807 -0.0284003 0.195538 -0.625178 -0.959527 -1.58616 -1.18223 0.263415 -0.357148 -1.12024 0.198169 -1.68621 0.251601 -0.0682088 -0.642956 1.79323 -1.1983 -0.0373498 0.197494 -0.634365 -0.963392 -1.62162 -1.22542 0.261504 -0.364264 -1.14765 0.198877 -1.70235 0.254015 -0.0571156 -0.655369 1.84228 -1.2113 -0.0497596 0.206088 -0.647771 -0.975569 -1.65505 -1.27018 0.261101 -0.369721 -1.17999 0.198726 -1.7189 0.255125 -0.0423893 -0.666324 1.89669 -1.22298 -0.0620274 0.21847 -0.661243 -0.992572 -1.67633 -1.30138 0.260489 -0.370958 -1.20474 0.199421 -1.72942 0.253713 -0.0301797 -0.67393 1.93499 -1.22787 -0.0715798 0.2306 -0.669616 -1.00784 april-ann-0.3.1/packages/clustering/kmeans/matrix/test/pruebasimple1.lua000066400000000000000000000006431234204160600263470ustar00rootroot00000000000000x = {} for i=1,5 do table.insert(x,i) table.insert(x,i) end data = matrix(5,2,x) clusters = matrix(2,2,{ 0,0, 1,1, }) K = 2 res, C = clustering.kmeans.matrix({ data = data, K = K, centroids = clusters }) print(clusters) print("Distorsion:",res) points = matrix(2,2,{ 0,0, 10,10, }) score,tags=clustering.kmeans.matrix.find_clusters(points,clusters) print(tags) april-ann-0.3.1/packages/clustering/kmeans/matrix/test/test.lua000066400000000000000000000014371234204160600245570ustar00rootroot00000000000000local filename = arg[1] or 'data.txt' local K = arg[2] or 2 local data = matrix.fromFilename(filename) local clusters = data({1,K},':'):clone() print(clusters) local clock = util.stopwatch() clock:go() local res = clustering.kmeans.matrix{ data=data, centroids=clusters } clock:stop() local cpu, wall = clock:read() print(clusters) print(res) print(cpu, wall) --[[ res = 0.053190536499023 CLUSTERS = -1.51381 -1.09521 0.276019 -0.352453 -1.08768 0.167996 -1.64307 0.227699 -0.0660796 -0.596381 1.70157 -1.14844 -0.0181014 0.187125 -0.618449 -0.946881 -1.28483 -0.798679 0.282941 -0.365985 -0.942726 0.103687 -1.52005 0.176974 -0.0922824 -0.481356 1.38082 -1.02229 0.0243497 0.133867 -0.588762 -0.853817 --]] april-ann-0.3.1/packages/clustering/kmeans/matrix/test/test_refine.lua000066400000000000000000000003011234204160600260740ustar00rootroot00000000000000filename = arg[1] or 'data.txt' data = matrix.fromFilename(filename) K = 2 res,C = clustering.kmeans.matrix({ data = data, K = K, random = random(1234) }) print(C) print(res) april-ann-0.3.1/packages/evaluation/000077500000000000000000000000001234204160600173175ustar00rootroot00000000000000april-ann-0.3.1/packages/evaluation/rates/000077500000000000000000000000001234204160600204355ustar00rootroot00000000000000april-ann-0.3.1/packages/evaluation/rates/binding/000077500000000000000000000000001234204160600220475ustar00rootroot00000000000000april-ann-0.3.1/packages/evaluation/rates/binding/bind_rates.lua.cc000066400000000000000000000156101234204160600252530ustar00rootroot00000000000000//BIND_HEADER_C // FIXME MACROS ELIMINAR ESTA FUNCION DE AQUI int_sequence read_int_sequence(lua_State *L) { // recibe una tabla en el tope de la pila y la consume // stack: vector-table] // meter los elementos en un vector de enteros int i,j,k; int maxlength = 1024; int *aux_seq = new int[maxlength]; // stack: j-component table k = 0; for (j=1; lua_rawgeti(L, -1, j), !lua_isnil(L,-1); j++) { // stack: j-component table if (j == maxlength) { // resize int *aux = new int[2*maxlength]; for (i=0;inext = 0; // primera entrada lua_rawgeti(L,-1,1); // stack: 1st-component i-pair-table data-table] nextpair->correct = read_int_sequence(L); // stack: i-pair-table data-table] // segunda entrada lua_rawgeti(L,-1,2); // stack: 2nd-component i-pair-table data-table] nextpair->test = read_int_sequence(L); // stack: i-pair-table data-table] // añadir nextpair en la lista "data", al final *tail_data = nextpair; tail_data = &(nextpair->next); // nos cargamos la ref. al par de tablas que acabamos de read lua_pop(L,1); // stack: data-table] } lua_pop(L,2); // delete nil value and data-table // stack: ] return data; } // FIXME posiblemente estaria mejor en otra parte: void delete_pairs_int_sequences (pairs_int_sequences *data) { pairs_int_sequences *aux; while (data != 0) { aux = data; data = data->next; delete[] aux->correct.symbol; delete[] aux->test.symbol; delete aux; } } //BIND_END //BIND_HEADER_H #include "rates.h" //BIND_END //BIND_FUNCTION rates.ints { // recibe como argumentos: // la tabla con los ints, // el tipo de tasa // el valor de p, <- opcional // un valor booleano "with_matrix" <- opcional // devuelve: // el valor de la tasa // la tabla con la matriz, en caso de pedirse LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); // FIXME MACROS lua_pushstring(L, "int_data"); lua_gettable(L,1); if (lua_isnil(L,-1)) { lua_pushstring(L,"rates: int_data field not found"); lua_error(L); } pairs_int_sequences *data = read_pairs_int_sequences(L); bool with_p = false,with_matrix=false; // FIXME MACROS double p=1.0; lua_pushstring(L, "p"); lua_gettable(L,1); if (!lua_isnil(L,-1)) { with_p = true; p = luaL_checknumber(L, -1); lua_pop(L,1); } lua_pushstring(L, "confusion_matrix"); lua_gettable(L,1); if (lua_isboolean(L,-1)) { with_matrix = (bool)lua_toboolean(L,-1); lua_pop(L,1); } lua_pushstring(L, "rate"); lua_gettable(L,1); if (lua_isnil(L,-1)) { lua_pushstring(L,"rates: rate field not found"); lua_error(L); } const char *typerate = lua_tostring(L,-1); // stack: typerate table] counter_edition counted; conf_matrix *m; double rrate = rates::rate(data, typerate, counted, p, with_p, (with_matrix) ? (&m) : (0)); delete_pairs_int_sequences(data); // valores devueltos lua_newtable(L); lua_pushstring(L,"rate"); lua_pushnumber(L, rrate); lua_settable(L,-3); lua_pushstring(L,"p"); lua_pushnumber(L, p); lua_settable(L,-3); lua_pushstring(L,"sust"); lua_pushnumber(L, counted.ns); lua_settable(L,-3); lua_pushstring(L,"ins"); lua_pushnumber(L, counted.ni); lua_settable(L,-3); lua_pushstring(L,"borr"); lua_pushnumber(L, counted.nb); lua_settable(L,-3); lua_pushstring(L,"ac"); lua_pushnumber(L, counted.na); lua_settable(L,-3); if (with_matrix) { lua_pushstring(L,"confusion_matrix"); lua_newtable(L); // rellenar matriz lua_pushstring(L, "confusion_matrix_dictionary"); lua_gettable(L,1); // stack: dictionary confusion_matrix] int dsize = m->columns; bool con_diccionario = !lua_isnil(L,-1); for (int i=0;inext) { counter_edition counted = rates::gp(p, r->correct, r->test); lua_newtable(L); lua_pushnumber(L,counted.na); lua_setfield(L,-2,"na"); lua_pushnumber(L,counted.ns); lua_setfield(L,-2,"ns"); lua_pushnumber(L,counted.ni); lua_setfield(L,-2,"ni"); lua_pushnumber(L,counted.nb); lua_setfield(L,-2,"nb"); // lua_rawseti(L,-2,index); index++; } delete_pairs_int_sequences(data); return 1; } //BIND_END april-ann-0.3.1/packages/evaluation/rates/c_src/000077500000000000000000000000001234204160600215265ustar00rootroot00000000000000april-ann-0.3.1/packages/evaluation/rates/c_src/rates.cc000066400000000000000000000322531234204160600231600ustar00rootroot00000000000000#include "rates.h" #include "constString.h" #include #include // debug typedef simple_matrix matrix_path; class generic_rate { double alphas, alphai, alphab, alphaa; double betas, betai, betab, betaa; public: generic_rate(double as, double ai, double ab, double aa, double bs, double bi, double bb, double ba); double operator() (counter_edition); }; generic_rate::generic_rate(double as, double ai, double ab, double aa, double bs, double bi, double bb, double ba) : alphas(as), alphai(ai), alphab(ab), alphaa(aa), betas(bs), betai(bi), betab(bb), betaa(ba) { } double generic_rate::operator() (counter_edition c) { return 100.0 * (alphas * c.ns + alphai * c.ni + alphab * c.nb + alphaa * c.na) / (betas * c.ns + betai * c.ni + betab * c.nb + betaa * c.na); } generic_rate rate_pra(0.0, 0.0, 0.0, 1.0, 1.0, 1.0, 1.0, 1.0); generic_rate rate_pre(1.0, 1.0, 1.0, 0.0, 1.0, 1.0, 1.0, 1.0); generic_rate rate_pa (0.0, 0.0, 0.0, 1.0, 1.0, 0.0, 1.0, 1.0); generic_rate rate_ip (0.0, -1.0, 0.0, 1.0, 1.0, 0.0, 1.0, 1.0); generic_rate rate_ie (1.0, 1.0, 1.0, 0.0, 1.0, 0.0, 1.0, 1.0); generic_rate rate_psb(1.0, 0.0, 1.0, 0.0, 1.0, 0.0, 1.0, 1.0); generic_rate rate_iep(1.0, 0.5, 0.5, 0.0, 1.0, 0.0, 1.0, 1.0); generic_rate rate_iap(0.0, -0.5, 0.5, 1.0, 1.0, 0.0, 1.0, 1.0); // funcion auxiliar para calcular la talla del diccionario int rates::dict_size(const pairs_int_sequences *data) { int resul = 0; for (const pairs_int_sequences *r = data; r != 0; r = r->next) { for (int i=0; i < r->correct.size; i++) if (resul < r->correct.symbol[i]) resul = r->correct.symbol[i]; for (int i=0; i < r->test.size; i++) if (resul < r->test.symbol[i]) resul = r->test.symbol[i]; } return resul; } struct dp_state { double score; counter_edition counter; }; counter_edition rates::gp(double p, int_sequence correct, int_sequence test) { const double gs = 1.0; const double gi = p; const double gb = p; const double ga = 0.0; dp_state *previous = new dp_state[test.size+1]; dp_state *current = new dp_state[test.size+1]; int itest, icorrect; current[0].score = 0.0; current[0].counter = counter_edition(0,0,0,0); for (itest = 1; itest <= test.size; itest++) { // insertion current[itest] = current[itest-1]; current[itest].score += gi; current[itest].counter.ni++; } for (icorrect = 0; icorrect < correct.size; icorrect++) { dp_state *swap = previous; previous = current; current = swap; current[0] = previous[0]; current[0].score += gb; current[0].counter.nb++; for (itest = 1; itest <= test.size; itest++) { // deletion double score_b = previous[itest].score + gb; // insertion double score_i = current[itest-1].score + gi; double score_min_ib = (score_i < score_b) ? score_i : score_b; // substitution double score_s = previous[itest-1].score + ((correct.symbol[icorrect] == test.symbol[itest-1]) ? ga : gs); // if (score_s <= score_min_ib) { current[itest].score = score_s; current[itest].counter = previous[itest-1].counter; if (correct.symbol[icorrect] == test.symbol[itest-1]) current[itest].counter.na++; else current[itest].counter.ns++; } else { if (score_i < score_b) { current[itest].score = score_i; current[itest].counter = current[itest-1].counter; current[itest].counter.ni++; } else { current[itest].score = score_b; current[itest].counter = previous[itest].counter; current[itest].counter.nb++; } } } } counter_edition result = current[test.size].counter; delete[] previous; delete[] current; return result; } counter_edition rates::Gp(double p, const pairs_int_sequences *data) { counter_edition ce(0,0,0,0); for (const pairs_int_sequences *r = data; r != 0; r = r->next) { ce += gp(p, r->correct, r->test); } return ce; } struct dpn_state { double score; int len; counter_edition counter; }; counter_edition rates::gp_normalized(int_sequence correct, int_sequence test) { const double gs = 1.0; const double gi = 1.0; const double gb = 1.0; const double ga = 0.0; dpn_state *previous = new dpn_state[test.size+1]; dpn_state *current = new dpn_state[test.size+1]; int itest, icorrect; current[0].score = 0.0; current[0].counter = counter_edition(0,0,0,0); current[0].len = 1; for (itest = 1; itest <= test.size; itest++) { // insertion current[itest].score = (current[itest-1].score+gi)/current[itest-1].len; current[itest].counter = current[itest-1].counter; current[itest].counter.ni++; current[itest].len = current[itest-1].len+1; } for (icorrect = 0; icorrect < correct.size; icorrect++) { dpn_state *swap = previous; previous = current; current = swap; current[0].score = (previous[0].score+gb)/previous[0].len; current[0].counter = previous[0].counter; current[0].counter.nb++; current[0].len = previous[0].len+1; for (itest = 1; itest <= test.size; itest++) { // deletion double score_b = (previous[itest].score + gb)/previous[itest].len; // insertion double score_i = (current[itest-1].score + gi)/current[itest-1].len; double score_min_ib = (score_i < score_b) ? score_i : score_b; // substitution double score_s = previous[itest-1].score + ((correct.symbol[icorrect] == test.symbol[itest-1]) ? ga : gs); score_s /= previous[itest-1].len; // if (score_s <= score_min_ib) { current[itest].score = score_s; current[itest].counter = previous[itest-1].counter; current[itest].len = previous[itest-1].len+1; if (correct.symbol[icorrect] == test.symbol[itest-1]) current[itest].counter.na++; else current[itest].counter.ns++; } else { if (score_i < score_b) { current[itest].score = score_i; current[itest].counter = current[itest-1].counter; current[itest].counter.ni++; current[itest].len = current[itest-1].len+1; } else { current[itest].score = score_b; current[itest].counter = previous[itest].counter; current[itest].counter.nb++; current[itest].len = previous[itest].len+1; } } } } counter_edition result = current[test.size].counter; delete[] previous; delete[] current; return result; } double rates::initialize_lambda(const pairs_int_sequences *data) { counter_edition ce(0,0,0,0); for (const pairs_int_sequences *r = data; r != 0; r = r->next) { ce += gp_normalized(r->correct, r->test); } return (ce.ns + ce.ni + ce.nb) / (double) (ce.ns + ce.ni + ce.nb + ce.na); } double rates::Fp(const pairs_int_sequences *data, counter_edition &counted) { double lambda, lambdacero; double p; counter_edition ce; // programacion fraccional lambda = initialize_lambda(data); do { lambdacero = lambda; p = 1.0 - lambdacero / 2.0; ce = Gp (p,data); lambda = (ce.ns + ce.ni + ce.nb) / (double) (ce.ni + ce.nb + ce.ns + ce.na); } while (fabs (lambda - lambdacero) > 0.000001); counted = ce; return p; } // con recuperacion del camino counter_edition rates::gp_path(double p, int_sequence correct, int_sequence test, conf_matrix &confmat) { const double gs = 1.0; const double gi = p; const double gb = p; const double ga = 0.0; matrix_path mat(correct.size+1,test.size+1); char *m = mat.m; double *previous = new double[test.size+1]; double *current = new double[test.size+1]; int itest, icorrect; current[0] = 0.0; *m = 's'; m++; for (itest = 1; itest <= test.size; itest++) { // insertion current[itest] = current[itest-1] + gi; //mat[0][itest] = 'i'; *m = 'i'; m++; } for (icorrect = 1; icorrect <= correct.size; icorrect++) { double *swap = previous; previous = current; current = swap; current[0] = previous[0] +gb; *m = 'b'; m++; for (itest = 1; itest <= test.size; itest++) { // deletion double score_b = previous[itest] + gb; // insertion double score_i = current[itest-1] + gi; double score_min_ib = (score_i < score_b) ? score_i : score_b; // substitution double score_s = previous[itest-1] + ((correct.symbol[icorrect-1] == test.symbol[itest-1]) ? ga : gs); // if (score_s <= score_min_ib) { current[itest] = score_s; if (correct.symbol[icorrect-1] == test.symbol[itest-1]) { //mat[icorrect][itest] = 'a'; *m = 'a'; m++; } else { //mat[icorrect][itest] = 's'; *m = 's'; m++; } } else { if (score_i < score_b) { current[itest] = score_i; //mat[icorrect][itest] = 'i'; *m = 'i'; m++; } else { current[itest] = score_b; //mat[icorrect][itest] = 'b'; *m = 'b'; m++; } } } } // fprintf(stderr,"----------------------------------------\n"); // printf(" correct: "); // for (int i=0;i 0 || itest > 0) { // fprintf(stderr,"icorrect=%d itest=%d %c %d %d\n", // icorrect,itest,mat[icorrect][itest], // correct.symbol[icorrect-1],test.symbol[itest-1]); switch (mat[icorrect][itest]) { case 'i': result.ni++; confmat[0][test.symbol[itest-1]]++; itest--; break; case 'b': result.nb++; confmat[correct.symbol[icorrect-1]][0]++; icorrect--; break; case 's': result.ns++; confmat[correct.symbol[icorrect-1]][test.symbol[itest-1]]++; icorrect--; itest--; break; case 'a': result.na++; confmat[correct.symbol[icorrect-1]][test.symbol[itest-1]]++; icorrect--; itest--; break; } } return result; } counter_edition rates::Gp_path(double p, const pairs_int_sequences *data, conf_matrix &confmat) { counter_edition ce(0,0,0,0); for (const pairs_int_sequences *r = data; r != 0; r = r->next) { ce += gp_path(p, r->correct, r->test,confmat); } return ce; } double rates::Fp_path (const pairs_int_sequences *data, counter_edition &counted, conf_matrix &confmat) { double lambda, lambdacero; double p; counter_edition ce; // programacion fraccional lambda = initialize_lambda(data); do { lambdacero = lambda; p = 1.0 - lambdacero / 2.0; confmat.fill(0); ce = Gp_path(p,data,confmat); lambda = (ce.ns + ce.ni + ce.nb) / (double) (ce.ni + ce.nb + ce.ns + ce.na); } while (fabs (lambda - lambdacero) > 0.000001); counted = ce; return p; } // rate devuelve un vector con los tipos de rate double rates::rate(const pairs_int_sequences *data, const char *rate_type, counter_edition &counted, double &p, bool with_p, conf_matrix **m) { constString cstipo = constString(rate_type); bool normalized = false; if (!with_p) { if (cstipo == "pra" || cstipo == "pre") { normalized = true; } else { if (cstipo == "pa" || cstipo == "psb" || cstipo == "iep" || cstipo == "iap") p = 0.5; else // ip, ie p = 1.0; } } if (m != 0) { int dsize = dict_size(data); conf_matrix *confmat = new conf_matrix(dsize+1,dsize+1); confmat->fill(0); if (normalized) { p = Fp_path(data,counted,*confmat); } else { counted = Gp_path(p,data,*confmat); } // tratar o guardar la matriz de confusion *m = confmat; } else { if (normalized) { p = Fp(data,counted); } else { counted = Gp(p,data); } } double rrate; if (cstipo == "pra") { // pra -> porcentaje real de aciertos rrate = rate_pra(counted); } else if (cstipo == "pre") { // pre -> porcentaje real de errores rrate = rate_pre(counted); } else if (cstipo == "pa") { // pa -> porcentaje de aciertos rrate = rate_pa(counted); } else if (cstipo == "ip") { // ip -> indice de precision rrate = rate_ip(counted); } else if (cstipo == "ie") { // ie -> indice de error rrate = rate_ie(counted); } else if (cstipo == "psb") { // psb -> porcentaje de sustituciones y borrados rrate = rate_psb(counted); } else if (cstipo == "iep") { // iep -> indice de error ponderado rrate = rate_iep(counted); } else if (cstipo == "iap") { // iap -> indice de acierto ponderado rrate = rate_iap(counted); } else { // TODO REPORT ERROR??? rrate = -1; } return rrate; } // void rates::debug(const pairs_int_sequences *data) { // int ipair = 1; // for (const pairs_int_sequences *r = data; r != 0; r = r->next) { // printf("Pair %d\n",ipair); ipair++; // printf(" correct: "); // for (int i=0;icorrect.size;i++) // printf("%d ",r->correct.symbol[i]); // printf("\n test : "); // for (int i=0;itest.size;i++) // printf("%d ",r->test.symbol[i]); // printf("\n"); // } // } april-ann-0.3.1/packages/evaluation/rates/c_src/rates.h000066400000000000000000000042411234204160600230160ustar00rootroot00000000000000#ifndef RATES_H #define RATES_H struct int_sequence { int size; int *symbol; }; struct pairs_int_sequences { int_sequence correct; int_sequence test; pairs_int_sequences *next; }; struct counter_edition { int na,ns,ni,nb; counter_edition(int a=0, int s=0, int i=0, int b=0) : na(a),ns(s),ni(i),nb(b) {} counter_edition& operator += (const counter_edition &otro) { na += otro.na; ns += otro.ns; ni += otro.ni; nb += otro.nb; return *this; } }; template class simple_matrix { public: T *m; int columns,rows; simple_matrix(int rows, int columns); ~simple_matrix(); T *operator[](int row); void fill(T v); }; template simple_matrix::simple_matrix(int rows, int columns) { this->columns = columns; this->rows = rows; m = new T[rows*columns]; } template simple_matrix::~simple_matrix() { delete[] m; } template T* simple_matrix::operator[](int row) { return m+(row*columns); } template void simple_matrix::fill(T v) { int s=columns*rows; for (int i=0;i conf_matrix; class rates { static int dict_size(const pairs_int_sequences *data); static counter_edition gp_path(double p, int_sequence correct, int_sequence test, conf_matrix &confmat); static counter_edition Gp(double p, const pairs_int_sequences *data); static counter_edition Gp_path(double p, const pairs_int_sequences *data, conf_matrix &confmat); static counter_edition gp_normalized(int_sequence correct, int_sequence test); static double initialize_lambda(const pairs_int_sequences *data); static double Fp(const pairs_int_sequences *data, counter_edition &resul); static double Fp_path(const pairs_int_sequences *data, counter_edition &resul, conf_matrix &confmat); public: static counter_edition gp(double p, int_sequence correct, int_sequence test); static double rate(const pairs_int_sequences *data, const char *rate_type, counter_edition &counted, double &p, bool with_p=false, conf_matrix **m = 0); }; #endif // RATES_H april-ann-0.3.1/packages/evaluation/rates/doc/000077500000000000000000000000001234204160600212025ustar00rootroot00000000000000april-ann-0.3.1/packages/evaluation/rates/doc/R9407.tasas.prat.ps000066400000000000000000010142471234204160600243630ustar00rootroot00000000000000%!PS-Adobe-2.0 %%Creator: dvips 5.523 Copyright 1986, 1994 Radical Eye Software %%Title: report.dvi %%CreationDate: Wed Jul 27 20:22:21 1994 %%Pages: 27 %%PageOrder: Ascend %%BoundingBox: 0 0 596 842 %%EndComments %DVIPSCommandLine: dvips report %DVIPSParameters: dpi=300, comments removed %DVIPSSource: TeX output 1994.07.27:2021 %%BeginProcSet: tex.pro /TeXDict 250 dict def TeXDict begin /N{def}def /B{bind def}N /S{exch}N /X{S N}B /TR{translate}N /isls false N /vsize 11 72 mul N /hsize 8.5 72 mul N /landplus90{false}def /@rigin{isls{[0 landplus90{1 -1}{-1 1} ifelse 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale isls{landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div hsize mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul TR matrix currentmatrix dup dup 4 get round 4 exch put dup dup 5 get round 5 exch put setmatrix}N /@landscape{/isls true N}B /@manualfeed{ statusdict /manualfeed true put}B /@copies{/#copies X}B /FMat[1 0 0 -1 0 0]N /FBB[0 0 0 0]N /nn 0 N /IE 0 N /ctr 0 N /df-tail{/nn 8 dict N nn begin /FontType 3 N /FontMatrix fntrx N /FontBBox FBB N string /base X array /BitMaps X /BuildChar{CharBuilder}N /Encoding IE N end dup{/foo setfont}2 array copy cvx N load 0 nn put /ctr 0 N[}B /df{/sf 1 N /fntrx FMat N df-tail}B /dfs{div /sf X /fntrx[sf 0 0 sf neg 0 0]N df-tail}B /E{ pop nn dup definefont setfont}B /ch-width{ch-data dup length 5 sub get} B /ch-height{ch-data dup length 4 sub get}B /ch-xoff{128 ch-data dup length 3 sub get sub}B /ch-yoff{ch-data dup length 2 sub get 127 sub}B /ch-dx{ch-data dup length 1 sub get}B /ch-image{ch-data dup type /stringtype ne{ctr get /ctr ctr 1 add N}if}B /id 0 N /rw 0 N /rc 0 N /gp 0 N /cp 0 N /G 0 N /sf 0 N /CharBuilder{save 3 1 roll S dup /base get 2 index get S /BitMaps get S get /ch-data X pop /ctr 0 N ch-dx 0 ch-xoff ch-yoff ch-height sub ch-xoff ch-width add ch-yoff setcachedevice ch-width ch-height true[1 0 0 -1 -.1 ch-xoff sub ch-yoff .1 add]{ ch-image}imagemask restore}B /D{/cc X dup type /stringtype ne{]}if nn /base get cc ctr put nn /BitMaps get S ctr S sf 1 ne{dup dup length 1 sub dup 2 index S get sf div put}if put /ctr ctr 1 add N}B /I{cc 1 add D }B /bop{userdict /bop-hook known{bop-hook}if /SI save N @rigin 0 0 moveto /V matrix currentmatrix dup 1 get dup mul exch 0 get dup mul add .99 lt{/QV}{/RV}ifelse load def pop pop}N /eop{SI restore showpage userdict /eop-hook known{eop-hook}if}N /@start{userdict /start-hook known{start-hook}if pop /VResolution X /Resolution X 1000 div /DVImag X /IE 256 array N 0 1 255{IE S 1 string dup 0 3 index put cvn put}for 65781.76 div /vsize X 65781.76 div /hsize X}N /p{show}N /RMat[1 0 0 -1 0 0]N /BDot 260 string N /rulex 0 N /ruley 0 N /v{/ruley X /rulex X V}B /V {}B /RV statusdict begin /product where{pop product dup length 7 ge{0 7 getinterval dup(Display)eq exch 0 4 getinterval(NeXT)eq or}{pop false} ifelse}{false}ifelse end{{gsave TR -.1 -.1 TR 1 1 scale rulex ruley false RMat{BDot}imagemask grestore}}{{gsave TR -.1 -.1 TR rulex ruley scale 1 1 false RMat{BDot}imagemask grestore}}ifelse B /QV{gsave transform round exch round exch itransform moveto rulex 0 rlineto 0 ruley neg rlineto rulex neg 0 rlineto fill grestore}B /a{moveto}B /delta 0 N /tail{dup /delta X 0 rmoveto}B /M{S p delta add tail}B /b{S p tail} B /c{-4 M}B /d{-3 M}B /e{-2 M}B /f{-1 M}B /g{0 M}B /h{1 M}B /i{2 M}B /j{ 3 M}B /k{4 M}B /w{0 rmoveto}B /l{p -4 w}B /m{p -3 w}B /n{p -2 w}B /o{p -1 w}B /q{p 1 w}B /r{p 2 w}B /s{p 3 w}B /t{p 4 w}B /x{0 S rmoveto}B /y{ 3 2 roll p a}B /bos{/SS save N}B /eos{SS restore}B end %%EndProcSet TeXDict begin 39158280 55380996 1000 300 300 (/discos/rfia/amarzal/omo/report.dvi) @start /Fa 68 126 df<60F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0600000000060F0F0600419779816>33 D<0387000387000387000387000387000387007FFFC0FFFFE0FFFFE0070E00070E00070E 000E1C000E1C000E1C000E1C00FFFFE0FFFFE07FFFC01C38001C38001C38001C38001C38 001C380013197F9816>35 D<3801807C03807C0380EE0700EE0700EE0E00EE0E00EE0E00 EE1C007C1C007C380038380000700000700000700000E00000E00001C00001C00001C000 0380000383800707C00707C00E0EE00E0EE00E0EE01C0EE01C0EE03807C03807C0180380 13207F9C16>37 D<30787C3C1C1C1C1C3878F0E040060D789816>39 D<00E001E0038007000E001C001C0038003800700070007000E000E000E000E000E000E0 00E000E000E000700070007000380038001C001C000E000700038001E000E00B217A9C16 >II<01C00001C00001C00001C00071C700F9CF807FFF001FFC0007F00007F0001FFC00 7FFF00F9CF8071C70001C00001C00001C00001C00011127E9516>I<01C00001C00001C0 0001C00001C00001C00001C00001C000FFFF80FFFF80FFFF8001C00001C00001C00001C0 0001C00001C00001C00001C00011137E9516>I<387C7E7E3E0E1E1C78F060070B798416> II<70F8F8F8700505788416>I<0001800003800003 80000700000700000E00000E00001C00001C0000380000380000700000700000E00000E0 0001C00001C0000380000380000700000700000E00000E00001C00001C00003800003800 00700000700000E00000E00000C0000011207E9C16>I<03E0000FF8001FFC001E3C0038 0E00780F00700700700700E00380E00380E00380E00380E00380E00380E00380E00380F0 0780700700700700780F003C1E001E3C001FFC000FF80003E00011197E9816>I<018003 80038007800F807F80FF8073800380038003800380038003800380038003800380038003 80038003807FF87FFC7FF80E197C9816>I<07E0001FF8003FFC00783E00E00700F00780 F00380600380000380000380000700000700000E00001C0000380000700000E00001C000 0380000F00001E03803803807FFF80FFFF807FFF8011197E9816>I<07E0001FF8003FFC 00781E00780700300700000700000700000E00003E0007FC0007F00007FC00001E000007 00000300000380000380600380F00380E00700781E003FFC001FF80007E00011197E9816 >I<70F8F8F870000000000000000070F8F8F8700512789116>58 D<387C7C7C38000000000000000038787C7C3C1C1C3870E0400618799116>I<00018000 0780001F80003E0000F80001F00007C0000F80003E0000FC0000F00000FC00003E00000F 800007C00001F00000F800003E00001F8000078000018011157E9616>I<7FFF00FFFF80 FFFF80000000000000000000000000000000FFFF80FFFF807FFF00110B7E9116>II<0FE03FF8 7FFCF01EF00EF00E601E003C007800F001C0038003800380038003800300000000000000 000003000780078003000F197D9816>I<00E00001F00001F00001B00001B00003B80003 B80003B800031800071C00071C00071C00071C00071C000E0E000E0E000FFE000FFE001F FF001C07001C07001C07007F1FC0FF1FE07F1FC013197F9816>65 D<7FF800FFFE007FFF001C0F001C07801C03801C03801C03801C07801C07001FFF001FFE 001FFE001C1F001C03801C03C01C01C01C01C01C01C01C01C01C03C01C07807FFF80FFFF 007FFC0012197F9816>I<01F18007FB800FFF801F0F803C0780380380700380700380F0 0000E00000E00000E00000E00000E00000E00000E00000F000007003807003803803803C 07001F0F000FFE0007FC0001F00011197E9816>I<7FF800FFFE007FFF001C0F001C0780 1C03C01C01C01C01C01C01E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E0 1C01C01C01C01C03C01C07801C0F807FFF00FFFE007FF8001319809816>I<7FFFC0FFFF C07FFFC01C01C01C01C01C01C01C01C01C00001C00001C1C001C1C001FFC001FFC001FFC 001C1C001C1C001C00001C00E01C00E01C00E01C00E01C00E07FFFE0FFFFE07FFFE01319 7F9816>II<03E30007FF000FFF001E1F003C0F00380700700700 700700F00000E00000E00000E00000E00000E03F80E07FC0E03F80F00700700700700700 380F003C0F001E1F000FFF0007F70003E70012197E9816>I73 D77 D<7E1FC0FF3FE07F1FC01D07001D87 001D87001D87001DC7001DC7001CC7001CC7001CE7001CE7001CE7001C67001C67001C77 001C77001C37001C37001C37001C17007F1F00FF9F007F0F0013197F9816>I<1FFC003F FE007FFF00780F00F00780E00380E00380E00380E00380E00380E00380E00380E00380E0 0380E00380E00380E00380E00380E00380F00780F00780780F007FFF003FFE001FFC0011 197E9816>I<7FF800FFFE007FFF001C0F801C03801C03C01C01C01C01C01C01C01C03C0 1C03801C0F801FFF001FFE001FF8001C00001C00001C00001C00001C00001C00001C0000 7F0000FF80007F000012197F9816>I<07E3001FFF003FFF00781F00F00700E00700E007 00E00000F000007800003F80001FF00007FC0000FE00000F000007000003800003806003 80E00380E00700F80F00FFFE00FFFC00C7F00011197E9816>83 D91 DII 95 D<081C3C7870E0E0E0E0F0F87830060D789B16>I<1FE0003FF0007FF800783C00300E 00000E00000E0003FE001FFE003E0E00700E00E00E00E00E00E00E00783E007FFFE03FE7 E00F83E013127E9116>I<7E0000FE00007E00000E00000E00000E00000E00000E3E000E FF000FFF800F83C00F00E00E00E00E00700E00700E00700E00700E00700E00700E00E00F 01E00F83C00FFF800EFF00063C001419809816>I<03F80FFC1FFE3C1E780C7000E000E0 00E000E000E000F000700778073E0E1FFC0FF803F010127D9116>I<003F00007F00003F 0000070000070000070000070003C7000FF7001FFF003C1F00780F00700700E00700E007 00E00700E00700E00700E00700700F00700F003C1F001FFFE00FE7F007C7E014197F9816 >I<03E00FF81FFC3C1E780E7007E007FFFFFFFFFFFFE000E000700778073C0F1FFE0FFC 03F010127D9116>I<001F00007F8000FF8001E78001C30001C00001C0007FFF00FFFF00 FFFF0001C00001C00001C00001C00001C00001C00001C00001C00001C00001C00001C000 01C0003FFE007FFF003FFE0011197F9816>I<03E3C007F7E00FFFE01C1CC0380E00380E 00380E00380E00380E001C1C000FF8001FF0001BE0003800001800001FFC001FFF003FFF 807803C0E000E0E000E0E000E0E000E07001C07C07C03FFF800FFE0003F800131C7F9116 >I<7E0000FE00007E00000E00000E00000E00000E00000E3C000EFE000FFF000F87800F 03800E03800E03800E03800E03800E03800E03800E03800E03800E03800E03807FC7F0FF E7F87FC7F01519809816>I<018003C003C0018000000000000000007FC07FC07FC001C0 01C001C001C001C001C001C001C001C001C001C001C07FFFFFFF7FFF101A7D9916>I<00 3000780078003000000000000000001FF81FF81FF8003800380038003800380038003800 38003800380038003800380038003800380038003800386070F0F0FFE07FC03F800D237E 9916>I<7E0000FE00007E00000E00000E00000E00000E00000E7FE00E7FE00E7FE00E0F 000E1E000E3C000E78000EF0000FF0000FF8000FBC000F1E000E0E000E07000E07807F87 F0FFCFF07F87F01419809816>III<7E3C00FEFE007FFF000F87800F03800E03800E03800E03 800E03800E03800E03800E03800E03800E03800E03807FC7F0FFE7F87FC7F01512809116 >I<03E0000FF8001FFC003C1E00780F00700700E00380E00380E00380E00380E00380F0 0780700700780F003C1E001FFC000FF80003E00011127E9116>I<7E3E00FEFF007FFF80 0F83C00F00E00E00E00E00700E00700E00700E00700E00700E00700E00E00F01E00F83C0 0FFF800EFF000E3C000E00000E00000E00000E00000E00000E00007FC000FFE0007FC000 141B809116>I<07C7000FE7001FF7003C1F00700F00700F00E00700E00700E00700E007 00E00700E00700700F00700F003C3F003FF7001FE70007C7000007000007000007000007 00000700000700003FE0007FF0003FE0141B7E9116>II<0FEC3FFC7FFCF03CE01CE01C70007F801FF007F8003C600E E00EF00EF81EFFFCFFF8C7E00F127D9116>I<0300000700000700000700000700007FFF 00FFFF00FFFF000700000700000700000700000700000700000700000701000703800703 8007038007870003FE0001FC0000F80011177F9616>I<7E1F80FE3F807E1F800E03800E 03800E03800E03800E03800E03800E03800E03800E03800E03800E03800E0F800FFFF007 FBF803E3F01512809116>I<7F1FC0FF1FE07F1FC01C07001E0F000E0E000E0E000E0E00 071C00071C00071C00071C0003B80003B80003B80001F00001F00000E00013127F9116> II<7F1FC07F3FC07F1FC00F 1C00073C0003B80003F00001F00000E00001E00001F00003B800073C00071C000E0E007F 1FC0FF3FE07F1FC013127F9116>I<7F1FC0FF9FE07F1FC01C07000E07000E0E000E0E00 070E00071C00071C00039C00039C0003980001B80001B80000F00000F00000F00000E000 00E00000E00001C00079C0007BC0007F80003F00003C0000131B7F9116>I<3FFFC07FFF C07FFFC0700780700F00701E00003C0000780001F00003E0000780000F00001E01C03C01 C07801C0FFFFC0FFFFC0FFFFC012127F9116>I<001F80007F8000FF8001E00001C00001 C00001C00001C00001C00001C00001C00001C00001C00003C0007F8000FF0000FF00007F 800003C00001C00001C00001C00001C00001C00001C00001C00001C00001C00001E00000 FF80007F80001F8011207E9C16>I<7C0000FF0000FF800003C00001C00001C00001C000 01C00001C00001C00001C00001C00001C00001E00000FF00007F80007F8000FF0001E000 01C00001C00001C00001C00001C00001C00001C00001C00001C00003C000FF8000FF0000 7C000011207E9C16>125 D E /Fb 6 54 df<01020408103020606040C0C0C0C0C0C0C0 C0C0C040606020301008040201081E7E950D>40 D<80402010080C040606020303030303 0303030303020606040C0810204080081E7E950D>I<0F0030C0606060604020C030C030 C030C030C030C030C030C030C03040206060606030C00F000C137E9211>48 D<0C001C00EC000C000C000C000C000C000C000C000C000C000C000C000C000C000C000C 00FFC00A137D9211>I<1F0060C06060F070F030603000700070006000C001C001800200 04000810101020207FE0FFE00C137E9211>I<60607FC07F8044004000400040004F0070 C040E0006000700070E070E070E06040E021C01F000C137E9211>53 D E /Fc 5 116 df<40E04003037D820A>58 D<07B00C7010703060606060606060C0C0 C0C8C0C841C862D03C700D0D7E8C12>97 D<7C000C001800180018001800300037003880 30C060C060C060C060C0C180C180C1004300660038000A147E930F>I<06070600000000 384C4C8C98181830326262643808147F930C>105 D<0700188019C0318038001E000F00 03804180E180C10082007C000A0D7E8C10>115 D E /Fd 7 84 df<0003000003000007 00000B00000B0000130000330000230000418000418000818001018001FF800201800601 800401800801C00800C01800C0FC07F014147E9319>65 D<07FFC000C030018018018018 0180180180180300300300600300C003FF800600C00600600600600600300C00600C0060 0C00C00C01C0180300FFFC0015147E9318>I<07FFF800C0380180180180180180180180 1003021003020003020003FE000604000604000604100600200C00200C00200C00400C00 C01801C0FFFF8015147E9317>69 D<07F800C00180018001800180030003000300030006 000600060006000C000C000C000C001800FF000D147E930D>73 D<07FFC000C070018030 0180180180180180180300300300300300600301C007FE000600000600000600000C0000 0C00000C00000C0000180000FF000015147E9317>80 D<07FF8000C06001803001801801 80180180180300300300600301C003FE000603800601800600C00600C00C01800C01800C 01800C0184180188FF00F016147E9319>82 D<00F1030F0406080208020802080008000F 0007F000F80018000C000C4008400840006010F0608F8010147D9313>I E /Fe 3 85 df<0001F808000E061800380138006000F001C0007003800070070000300F 0000200E0000201C0000203C0000203C000000780000007800000078000000F0000000F0 000000F0007FF0F0000780F0000700F0000700F00007007000070070000E0030000E0038 000E001C001E000E0064000701840000FE00001D1E7E9C21>71 D<01FC00FF80001C001C 00002E001800002E001000002E0010000027001000004700200000430020000043802000 00438020000081C040000081C040000081C040000080E040000100E08000010070800001 00708000010070800002003900000200390000020039000002001D000004001E00000400 0E000004000E00000C000E00001C00040000FF80040000211C7E9B21>78 D<1FFFFFF01C03807030070030200700206007002040070020400E0020800E0020800E00 20000E0000001C0000001C0000001C0000001C0000003800000038000000380000003800 000070000000700000007000000070000000E0000000E0000000E0000000E0000001E000 007FFF00001C1C7F9B18>84 D E /Ff 7 84 df<00018000018000038000038000078000 0780000B800013800013800023C00021C00041C000C1C00081C00101C001FFC00201C002 01C00401C00801C00801C01801C0FE0FF815177E961A>65 D<03FFF000E03800E01C00E0 0C00E00C01C00C01C01C01C01C01C03803807003FFC003FFE00380700700300700380700 380700380E00700E00700E00E00E01C01C0380FFFE0016177E9619>I<03FFFE00E00E00 E00400E00400E00401C00401C00401C10001C10003820003820003FE0003860007040007 04080704080700100E00100E00300E00200E00601C01C0FFFFC017177E9618>69 D<07FE00E000E000E000E001C001C001C001C0038003800380038007000700070007000E 000E000E000E001C00FF800F177E960E>73 D<03FFE000E03800E01C00E00C00E00C01C0 1C01C01C01C01C01C0380380700380E003FF800380000700000700000700000700000E00 000E00000E00000E00001C0000FF800016177E9618>80 D<03FFE000E03800E01C00E01C 00E01C01C01C01C01C01C01C01C0380380700381C003FF000381800700C00700E00700E0 0700E00E01C00E01C00E01C20E01C21C00C4FF807817177E961A>82 D<007C400182800301800601800601800C01000C01000C00000E00000FC00007F80003FC 00007C00000E00000E00000600200600400C00400C00600800601000D8600087C0001217 7D9614>I E /Fg 8 119 df<001800001800001800003C00003C00004E00004E00004E00 0087000087000187800103800103800201C00201C003FFC00400E00400E0080070080070 1800703C0078FE01FF18177F961C>97 D<007E080381980700780C00381C001838001878 0008700008F00000F00000F00000F00000F00000F00000F000007000087800083800081C 00100C0010070060038180007E0015177E961B>99 D101 D105 D 108 D110 D<0F84306C601C400CC004C004C004E00070007F003FE01FF801FC00 1C000E0006800680068006C004E008D81087E00F177E9615>115 D118 D E /Fh 5 116 df<072018E0306060606060C0C0C0C0C0C841C862D03C70 0D0B7E8A11>97 D<780018001800300030003000370078C0604060606060C0C0C0C0C0C0 418063003C000B117E900E>I<040C0000000000705898983030606464683006127E910B> 105 D<71F1F09A1A189C1C18981818181818303030303030303032303062606064606038 170B7E8A1B>109 D<0F001080218020003E001F0001808080C00083007C00090B7D8A0F> 115 D E /Fi 1 28 329 300 dfs[<00FFFF0003FFFF8007FFFF800FFFFF001F07C0003E 03C0007C03C0007C03C000F807C000F807C000F807C000F8078000F00F8000F00F0000F0 1E0000781C0000387800000FE00000>25 18 126 145 31 27 D E /Fj 3 123 df<7E3F007E3F001E38000E780007700007E00003E00001C00003C00003 E0000770000E78000E38001C1C00FE3F80FE3F8011107F8F14>120 DI<3FFF7FFF700E701C7038007000E001C0038007000E001C0738077007 FFFFFFFF10107F8F14>I E /Fk 4 55 df<00000000001800000000003C00000000007C 0000000000F80000000001F00000000003E00000000007C0000000000F80000000001F00 000000003E00000000007C0000000000F80000000001F00000000003E00000000007C000 0000000F80000000001F00000000003E00000000007C0000000000F80000000001F00000 000003E00000000007C0000000000F80000000001F00000000003E00000000007C000000 0000F80000000001F00000000003E00000000007C0000000000F80000000001F00000000 003E00000000007C0000000000F80000000001F00000000003E00000000007C000000000 0F80000000001F00000000003E00000000007C0000000000F80000000000F00000000000 6000000000002E2E82AB2A>0 D<00000100000200000C00003C0000F80003F8000FF000 3FF001FFE007FFE03FFFC0FFFFC07FFF803FFF801FFF000FFF0007FF0003FE0001FE0000 FC00007C00003C0000180000080018186EA92A>18 D<800000E00000F80000FF0000FFC0 00FFF800FFFF00FFFFE0FFFFFEFFFFFEFFFFE0FFFF00FFF800FFC000FF0000F80000E000 0080000017126F882A>45 D<00C00000C00000C00000C00001E00001E00001E00003F000 03F00003F00007F80007F80007F8000FFC000FFC001FFE001FFE001FFE003FFF003FFF00 7FFF807FFF80FFFFC0121789A72A>54 D E /Fl 2 93 df<000000002000000000600000 0000C000000001800000000300000000060000000006000000000C000000001800000000 300000000030000000006000000000C00000000180000000030000000003000000000600 0000000C000000001800000000300000000030000000006000000000C000000001800000 000180000000030000000006000000000C00000000180000000018000000003000000000 6000000000C000000001800000000180000000030000000006000000000C000000000C00 000000180000000030000000006000000000C0000000004000000000232C81AA21>28 D<4000000000C0000000006000000000300000000018000000000C000000000C00000000 060000000003000000000180000000018000000000C00000000060000000003000000000 180000000018000000000C00000000060000000003000000000180000000018000000000 C00000000060000000003000000000300000000018000000000C00000000060000000003 000000000300000000018000000000C00000000060000000003000000000300000000018 000000000C00000000060000000006000000000300000000018000000000C00000000060 0000000020232C81AA21>92 D E /Fm 17 127 df70 D<1FE0003FF8007FFC00781E00300E0000070000070000FF0007FF001FFF007F 0700780700E00700E00700E00700F00F00781F003FFFF01FFBF007E1F014147D9318>97 D<7E0000FE00007E00000E00000E00000E00000E00000E00000E3E000EFF800FFFC00FC1 E00F80E00F00700E00700E00380E00380E00380E00380E00380E00380F00700F00700F80 E00FC1E00FFFC00EFF80063E00151C809B18>I<01FE0007FF001FFF803E078038030070 0000700000E00000E00000E00000E00000E00000E000007000007001C03801C03E03C01F FF8007FF0001FC0012147D9318>I<001F80003F80001F80000380000380000380000380 00038003E3800FFB801FFF803C1F80380F80700780700380E00380E00380E00380E00380 E00380E00380700780700780380F803C1F801FFFF00FFBF803E3F0151C7E9B18>I<01F0 0007FC001FFE003E0F00380780700380700380E001C0E001C0FFFFC0FFFFC0FFFFC0E000 007000007001C03801C03E03C01FFF8007FF0001FC0012147D9318>I<03800007C00007 C00007C0000380000000000000000000000000007FC000FFC0007FC00001C00001C00001 C00001C00001C00001C00001C00001C00001C00001C00001C00001C00001C00001C000FF FF00FFFF80FFFF00111D7C9C18>105 D<7FE000FFE0007FE00000E00000E00000E00000 E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000 E00000E00000E00000E00000E00000E00000E0007FFFC0FFFFE07FFFC0131C7E9B18> 108 D<7CE0E000FFFBF8007FFFF8001F1F1C001E1E1C001E1E1C001C1C1C001C1C1C001C 1C1C001C1C1C001C1C1C001C1C1C001C1C1C001C1C1C001C1C1C001C1C1C001C1C1C007F 1F1F00FFBFBF807F1F1F001914819318>I<7E3E00FEFF807FFFC00FC1C00F80E00F00E0 0E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E00E07FC3FC FFE7FE7FC3FC1714809318>I<7E3E00FEFF807FFFC00FC1E00F80E00F00700E00700E00 380E00380E00380E00380E00380E00380F00700F00700F80E00FC1E00FFFC00EFF800E3E 000E00000E00000E00000E00000E00000E00000E00007FC000FFE0007FC000151E809318 >112 D<7F87E0FF9FF07FBFF803F87803F03003E00003C00003C0000380000380000380 000380000380000380000380000380000380007FFE00FFFF007FFE0015147F9318>114 D<0180000380000380000380000380007FFFC0FFFFC0FFFFC00380000380000380000380 000380000380000380000380000380000380400380E00380E00380E001C1C001FFC000FF 80003E0013197F9818>116 D<7F8FF07F9FF07F8FF0070700078E00039E0001DC0001F8 0000F80000700000F00000F80001DC00039E00038E000707000F07807F8FF0FF8FF87F8F F015147F9318>120 D<7F8FF0FF8FF87F8FF00E01C00E03800E03800703800707000707 00038700038600038E0001CE0001CE0000CC0000CC0000DC000078000078000078000070 0000700000700000F00000E00079E0007BC0007F80003F00001E0000151E7F9318>I<3F FFF07FFFF07FFFF07001E07003C0700780000F00001E00003C0000F80001F00003C00007 80000F00701E00703C0070780070FFFFF0FFFFF0FFFFF014147F9318>I<060C1F1E3FBE FBF8F1F060C00F067C9B18>126 D E /Fn 11 89 df<0020004000800100030006000600 0C000C00180018003800300030007000700070006000E000E000E000E000E000E000E000 E000E000E000E000E000E0006000700070007000300030003800180018000C000C000600 0600030001000080004000200B317A8113>0 D<800040002000100018000C000C000600 06000300030003800180018001C001C001C000C000E000E000E000E000E000E000E000E0 00E000E000E000E000E000C001C001C001C001800180038003000300060006000C000C00 180010002000400080000B317F8113>I<0018006001C003800700070007000700070007 00070007000700070007000700070007000700070007000E001C003000C00030001C000E 000700070007000700070007000700070007000700070007000700070007000700070003 8001C0006000180D317B8118>8 DI<0000300000600000C0000180000300000700000E00000C00 00180000380000300000700000E00000C00001C000018000038000038000030000070000 0600000E00000E00000C00001C00001C00001C0000180000380000380000380000380000 700000700000700000700000700000700000700000E00000E00000E00000E00000E00000 E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000E00000 E00000E00000E00000E00000700000700000700000700000700000700000700000380000 3800003800003800001800001C00001C00001C00000C00000E00000E0000060000070000 03000003800003800001800001C00000C00000E000007000003000003800001800000C00 000E000007000003000001800000C0000060000030146377811F>18 DI<0000180000300000600000E00000C000018000 0380000700000600000E00000C00001C0000380000380000700000700000E00000E00001 E00001C00001C0000380000380000380000780000700000700000F00000E00000E00001E 00001E00001E00001C00001C00003C00003C00003C00003C000038000078000078000078 0000780000780000780000780000780000700000F00000F00000F00000F00000F00000F0 0000F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F00000F0 0000F00000F00000F00000F00000F00000F00000F00000F0000070000078000078000078 00007800007800007800007800007800003800003C00003C00003C00003C00001C00001C 00001E00001E00001E00000E00000E00000F000007000007000007800003800003800003 800001C00001C00001E00000E00000E000007000007000003800003800001C00000C0000 0E000006000007000003800001800000C00000E0000060000030000018157C768121>32 DI<00001C00003C0000F80001E00003C000 0780000F00000E00001E00003C00003C00003C0000780000780000780000780000780000 780000780000780000780000780000780000780000780000780000780000780000780000 780000780000780000780000780000780000780000780000780000780000780000780000 780000780000780000780000780000780000780000780000780000F00000F00000F00001 E00001E00003C0000380000700000E00001C0000780000E00000E000007800001C00000E 000007000003800003C00001E00001E00000F00000F00000F00000780000780000780000 780000780000780000780000780000780000780000780000780000780000780000780000 780000780000780000780000780000780000780000780000780000780000780000780000 7800007800007800007800007800007800007800007800007800007800007800003C0000 3C00003C00001E00000E00000F000007800003C00001E00000F800003C00001C167C7B81 21>40 DI88 D E /Fo 8 70 df0 D<020002000200C218F278 3AE00F800F803AE0F278C2180200020002000D0E7E8E12>3 D<0000300000F00001C000 0700001E0000780001E0000380000E00003C0000F00000F000003800000E000007800001 E000007800001C000007000003C00000F000003000000000000000000000000000000000 00007FFFE0FFFFF0141E7D951B>20 D<0000010000000080000000800000004000000020 FFFFFFFCFFFFFFFC00000020000000400000008000000080000001001E0C7E8D23>33 D<060F0F0E1E1E1C3C383830707060E0C04008117F910A>48 D<01FF8007FF800E000018 0000300000600000600000600000C00000C00000FFFF80FFFF80C00000C0000060000060 00006000003000001800000E000007FF8001FF8011167D9218>50 D<01FFE00FFFF818E0FC20E03E60E01EC0E00F00E00F00E00700C00700C00701C00701C0 0601800601800C03800C0300180300100700200600C00601000C0E000FF8001FC0001817 7F961B>68 D<001F80007FC00183C00301C00601800600000E00000F00000FC00007F800 01F000070000080000100000300000600000600000E00100E00200F00400FC18007FE000 1F800012177F9613>I E /Fp 1 51 df<7FFFFF80FFFFFF80C0000180C0000180C00001 80C0000180C0000180C0000180C0000180C0000180C0000180C0000180C0000180C00001 80C0000180C0000180C0000180C0000180C0000180C0000180C0000180C0000180C00001 80FFFFFF807FFFFF8019197C9B22>50 D E /Fq 31 119 360 300 dfs[<1F803F003E007C007800F000E000>9 7 119 156 28 19 D[5 5 124 132 16 46 D[<007000F007F07FF0FFF07BF003F003F003F003F003F003F003F0 03F003F003F003F003F003F003F003F003F003F003F003F003F003F07FFE7FFF7FFE>16 30 125 157 28 49 D[<07F0001FFC003FFE007FFF007C3F80F01F80F01F80700FC0600F C0200FC0000FC0000FC0000F80001F80001F00003F00007E00007C0000F80001F00003E0 000780000F00001F00001E00003C00007FFFC0FFFFC0FFFFC07FFFC0>18 30 126 157 28 I[<03F0000FFC001FFE003FFF007C3F00381F80101F80001F80001F80 001F80001F00003F00007E0003FC0003F80003FE00003F00001F80000F80000FC0000FC0 000FC0000FC0000FC0400FC0601F80F81F80FFFF007FFE001FFC0007F000>18 31 126 157 28 I[<007F00007F0000FF0000FF0001DF0001DF0003DF00039F00079F00 079F000F1F000F1F001E1F001E1F003E1F003C1F007C1F00781F00F81F00FFFFF0FFFFF0 FFFFF0FFFFF0001F00001F00001F00001F00001F00001F00>20 29 127 156 28 I[<007F000000FF800000FF800001FFC00001FFC00001F7C00003F7E00003 F7E00003E7E00007E3F00007E3F00007E3F00007C3F0000FC1F8000FC1F8000F81F8001F 80FC001F80FC001F80FC003FFFFE003FFFFE003FFFFE007FFFFF007E003F007E003F00FC 003F80FC001F80FC001F80F8000F80>25 29 126 156 36 65 D[<003FE001FFFC07FFFC 0FFFFC1FE0783F80183F00087F00007E00007E0000FC0000FC0000FC0000FC0000FC0000 FC0000FC0000FC0000FC0000FC0000FC00007E00007E00007F00003F00023F800E1FE03E 0FFFFE07FFFE01FFF8003FE0>23 31 125 157 35 67 D[<7FFFE0FFFFE0FFFFE0FFFFE0 FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FFFFC0FFFFC0FFFFC0FFFFC0 FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FFFFF0FFFFF0FFFFF0 7FFFF0>20 29 124 156 32 69 D[<7FFFC0FFFFC0FFFFC0FFFFC0FC0000FC0000FC0000 FC0000FC0000FC0000FC0000FC0000FFFF00FFFF00FFFF00FFFF00FC0000FC0000FC0000 FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC00007C0000>18 29 124 156 30 I[<7E00007FFF0000FFFF0000FFFF8001FFFF8001FFFBC003DFFBC003 DFFBC003DFF9E0079FF9E0079FF9F00F9FF9F00F9FF8F00F1FF8F81F1FF8F81F1FF8781E 1FF87C3E1FF87C3E1FF83C3C1FF83E7C1FF81E781FF81E781FF81E781FF80FF01FF80FF0 1FF807E01FF807E01FF803C01F7800001F>32 29 124 156 49 77 D[<7FFE00FFFFC0FFFFE0FFFFF0FC03F0FC01F8FC01F8FC01F8FC01F8FC01F8FC01F8FC 01F0FC07F0FFFFE0FFFFC0FFFE00FC3F00FC1F80FC1F80FC0FC0FC0FC0FC07E0FC07E0FC 03F0FC01F0FC01F8FC00FCFC00FC7C007C>22 29 124 156 35 82 D[<7FFFFF80FFFFFF80FFFFFF80FFFFFF80003F0000003F0000003F0000003F0000003F 0000003F0000003F0000003F0000003F0000003F0000003F0000003F0000003F0000003F 0000003F0000003F0000003F0000003F0000003F0000003F0000003F0000003F0000003F 0000003F0000001F0000>25 29 126 156 36 84 D[<03FC001FFF003FFF803C0F80300F C0200FC0000FC0007FC00FFFC03F8FC07E0FC0FC0FC0FC0FC0FC0FC0FC0FC07E3FC07FEF C03FCFC01F8FC0>18 19 127 146 26 97 D[<07F01FFC3FFE7E0E7E067C04FC00FC00FC 00FC00FC00FC00FC007C007E017E0F3FFF1FFF07FC>16 19 126 146 24 99 D[<000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000F C007CFC01FFFC03FFFC07E1FC07E0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0F C0FC0FC0FC0FC07C0FC07E1FC03FFFC01FEFC00FCFC0>18 29 126 156 28 I[<03F8000FFE001FFF003E0F807E07807C07C0FC07C0FC07C0FFFFC0FFFFC0FC 0000FC0000FC00007C00007E00803F03801FFF800FFF8003FE00>18 19 127 146 25 I[<01FE07FE0FFE0F861F801F801F801F801F801F807FF0FFF0FFF01F 801F801F801F801F801F801F801F801F801F801F801F801F801F801F800F80>15 29 128 156 17 I[<7C0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000 FC0000FC3E00FCFF80FDFF80FF0FC0FE0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0 FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC07C0FC0>18 29 126 156 28 104 D[6 30 126 157 13 I[<03F003F003F003F003F003F00000000000000000000003 F003F003F003F003F003F003F003F003F003F003F003F003F003F003F003F003F003F003 F003F003F003F003F07FE0FFE0FFC03F80>12 38 131 157 14 I[<7CFCFCFCFCFCFCFC FCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFC7C>6 29 126 156 13 108 D[<7C3E00FCFF80FDFF80FF0FC0FE0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC 0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC07C0FC0>18 19 126 146 28 110 D[<03FC000FFF003FFFC03F0FC07E07E07C03E0FC03F0FC03F0FC 03F0FC03F0FC03F0FC03F0FC03F07C03E07E07E07F0FE03FFFC00FFF0003FC00>20 19 127 146 28 I[<7C7C00FDFE00FFFF00FE1F80FC1F80FC0FC0FC0FC0FC0FC0FC0FC0 FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC1F80FE3F80FFFF00FDFE00FCF800FC0000FC0000 FC0000FC0000FC0000FC0000FC00007C0000>18 27 126 146 28 I[<07CFC01FEFC03FFFC07F1FC07E0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC 0FC0FC0FC0FC0FC07E0FC07E1FC03FFFC01FEFC007CFC0000FC0000FC0000FC0000FC000 0FC0000FC0000FC0000FC0>18 27 126 146 28 I[<7C60FDE0FDE0FFE0FF00FE00FE00 FC00FC00FC00FC00FC00FC00FC00FC00FC00FC00FC007C00>11 19 126 146 18 I[<0FF81FFE3FFE781E780478007E007FE03FF81FFC0FFC03FE403E401EE0 1EF81EFFFC7FF80FE0>15 19 127 146 22 I[<1F003F003F003F003F007FF8FFF8FFF8 3F003F003F003F003F003F003F003F003F003F003F003F003F103FF81FF80FC0>13 24 127 151 20 I[<7C0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0 FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC1FC0FC3FC07FEFC07FCFC01F8FC0>18 19 126 146 28 I[18 19 127 146 25 I E /Fr 9 57 df<1F00318060C04040C060C060C060C060C060C060C0 60C060404060C031801F000B107F8F0F>48 D<0C003C00CC000C000C000C000C000C000C 000C000C000C000C000C000C00FF8009107E8F0F>I<1F00618040C08060C06000600060 00C00180030006000C00102020207FC0FFC00B107F8F0F>I<1F00218060C060C000C000 8001800F00008000400060C060C060804060801F000B107F8F0F>I<0300030007000F00 0B001300330023004300C300FFE003000300030003001FE00B107F8F0F>I<20803F002C 002000200020002F0030802040006000600060C06080C061801F000B107F8F0F>I<0780 184030C060C06000C000CF00F080E040C060C060C060406060C030801F000B107F8F0F> I<40007FE07FC08080808001000200040004000C0008000800180018001800180018000B 117E900F>I<1F00318060C060C060C071803F000F00338061C0C060C060C06040406080 1F000B107F8F0F>I E /Fs 18 116 df<0780401FC0403CE080603080C0108080110000 0900000A00000A00000A00000C00000C00000C0000080000080000080000100000100000 10000010001214808D12>13 D<07C01C00300060006000FF00C000C000C000C000C00040 0030C01F000A0E7E8D0E>15 D<0E00030003800180018001C000C000C000600060007000 300030007800980118020C040C080C180630066007C00310177E9615>21 D<60F0F06004047D830A>58 D<60F0F070101020204040040A7D830A>I<000800180030 0030003000600060006000C000C000C0018001800180030003000600060006000C000C00 0C00180018001800300030003000600060006000C000C0000D217E9812>61 D<07FFFF8000E0038000E0010000E0010000E0010001C0010001C0010001C0400001C040 00038080000381800003FF800003818000070100000701020007010200070004000E0004 000E000C000E0008000E0018001C007000FFFFF00019177F961A>69 D<07F0000FE000F0001E0000B8001E0000B8002E0000B8004E000138005C000138009C00 0138011C00011C011C00021C023800021C043800021C043800021C083800041C10700004 0E107000040E207000040E407000080E40E000080E80E000080F00E000080700E0001806 01C000FE040FF80023177F9622>77 D<071018F0307060706060C060C060C06080C080C4 80C4C1C446C838700E0E7E8D13>97 D<7C00180018001800180030003000300030006780 68C070406060C060C060C060C06080C080C08180C10046003C000B177E960F>I<07C00C 20107020706000C000C000C00080008000C010C02060C03F000C0E7E8D0F>I<003E000C 000C000C000C0018001800180018073018F0307060706060C060C060C06080C080C480C4 C1C446C838700F177E9612>I<0300038003000000000000000000000000001C00240046 0046008C000C0018001800180031003100320032001C0009177F960C>105 D<00180038001000000000000000000000000001C0022004300430086000600060006000 C000C000C000C001800180018001806300E300C60078000D1D80960E>I<383C1E0044C6 630047028100460301008E0703000C0603000C0603000C060600180C0600180C0620180C 0C20180C0C4030180440301807801B0E7F8D1F>109 D<383C0044C6004702004602008E 06000C06000C06000C0C00180C00180C40181840181880300880300F00120E7F8D15>I< 1C3C22462382230346030603060306030C060C060C0C0C081A3019E01800180030003000 3000FC001014808D12>112 D<07C00C201870187038001E000FC003E000606060E060C0 C0C1803F000C0E7E8D10>115 D E /Ft 19 107 df0 D<70F8F8F87005057C8D0D>I<400004C0000C6000183000301800600C00C00601800303 0001860000CC0000780000300000300000780000CC000186000303000601800C00C01800 60300030600018C0000C40000416187A9623>I<03C00FF01FF83FFC7FFE7FFEFFFFFFFF FFFFFFFFFFFFFFFF7FFE7FFE3FFC1FF80FF003C010127D9317>15 D17 D<000000C0000003C000000F0000003C000000F0 000003C00000070000001C00000078000001E00000078000001E00000078000000E00000 00780000001E0000000780000001E0000000780000001C0000000700000003C0000000F0 0000003C0000000F00000003C0000000C000000000000000000000000000000000000000 0000000000000000007FFFFF80FFFFFFC01A247C9C23>20 D<07C000101FE000103FF000 1078380010601E0030C00F0030C00780608001C1E08000FFC080007F8080003E001C0B7D 9023>24 D<00000004000000000200000000020000000001000000000080000000004000 00000020FFFFFFFFFCFFFFFFFFFC00000000200000000040000000008000000001000000 0002000000000200000000040026107D922D>33 D<000002000000000300000000030000 0000018000000000C000000000C00000000060007FFFFFF000FFFFFFFC000000000E0000 0000038000000001F0000000007C00000000F000000003C000000007000000000C00FFFF FFF8007FFFFFF0000000006000000000C000000001800000000180000000030000000003 00000000020000261A7D972D>41 D<003FF800FFF803C0000700000C0000180000300000 300000600000600000C00000C00000C00000FFFFF8FFFFF8C00000C00000C00000600000 6000003000003000001800000C000007000003C00000FFF8003FF8151C7C981E>50 D<00000C00000C0000180000180000300000300000600000600000C00000C00001800001 80000180000300000300000600000600000C00000C000018000018000030000030000060 0000600000C00000C0000180000180000300000300000600000600000600000C00000C00 00180000180000300000300000600000600000C00000400000162C7AA000>54 D<400001C0000360000660000660000630000C30000C30000C1800181800181800180FFF F00FFFF00C00300600600600600600600300C00300C001818001818001818000C30000C3 0000C300006600006600006600003C00003C00003C000018000018001821809F19>56 DI<003FFF00 01FFFFE0071E0FF8081E01FC181E007C701E003E701E003EC01E001F001C001F001C000F 003C000F003C000F003C000F0038000F0038000E0078000E0078001E0070001C0070001C 00F0003800E0003000E0007001E000E001C0008001C0010003C006000380080003803000 0703C0000FFF00001FF00000201F7F9E23>68 D<0001F8000FFE00187E00601E00C01C01 C01C03803003800007800007800007800007C00007E00003F80001FE00007C0000C00001 00000600000C00001C0000380000380000700000700000F00060F000E0F001C0F80180FC 02007E0C003FF0001FC00017217E9F18>I<400002C00006C00006C00006C00006C00006 C00006C00006C00006C00006C00006C00006C00006C00006C00006C00006C00006C00006 C00006C00006C0000660000C60000C3000181C00700F01E003FF8000FE00171C7D9A1E> 91 D<000F0038006000E001C001C001C001C001C001C001C001C001C001C001C001C001 C001C001C0038007001E00F8001E000700038001C001C001C001C001C001C001C001C001 C001C001C001C001C001C001C000E000600038000F102D7DA117>102 DI106 D E /Fu 8 62 df<0102040C1818303070606060E0E0E0E0E0E0E0E0E0 E060606070303018180C04020108227D980E>40 D<8040203018180C0C0E060606070707 070707070707070606060E0C0C18183020408008227E980E>I<00300000300000300000 3000003000003000003000003000003000003000003000FFFFFCFFFFFC00300000300000 300000300000300000300000300000300000300000300000300016187E931B>43 D<07C018303018701C600C600CE00EE00EE00EE00EE00EE00EE00EE00EE00E600C600C70 1C30181C7007C00F157F9412>48 D<03000700FF00070007000700070007000700070007 000700070007000700070007000700070007007FF00C157E9412>I<0F8030E040708030 C038E0384038003800700070006000C00180030006000C08080810183FF07FF0FFF00D15 7E9412>I<20303FE03FC0240020002000200020002F8030E020700030003800384038E0 38E0388030406020C01F000D157E9412>53 D61 D E /Fv 53 123 df<0E003300230043804300470087000E000E000E001C001C001C003840388030807080 310033001C000A147C930E>16 D<060F0E1C386040800808709F17>19 D<0E1F3F3F1D0102020404081020C0080E779F0E>39 D<1C3C3C3C3C0404080810202040 80060E7D840E>44 D<70F8F8F0E005057B840E>46 D<00000040000000C0000001800000 01800000030000000300000006000000060000000C000000180000001800000030000000 3000000060000000C0000000C0000001800000018000000300000003000000060000000C 0000000C0000001800000018000000300000003000000060000000C0000000C000000180 0000018000000300000003000000060000000C0000000C00000018000000180000003000 00003000000060000000C0000000C0000000800000001A2D7FA117>I<000F800030E000 E07001C0700380300380380700380F00780F00780E00781E00781E00703C00F03C00F03C 00F03C00F07801E07801E07801E07801C07003C0F003C0F00380F00780F0070070070070 0E00701C003038001870000FC000151F7C9D17>I<000200020006000E003C00DC031C00 1C0038003800380038007000700070007000E000E000E000E001C001C001C001C0038003 80038003800780FFF80F1E7B9D17>I<001F800060E00080700100300200380420380420 380410380420700460700380600000E00001C000030000FE00001C000006000007000007 80000780000780300780780780780780F00F00800F00401E00401C0040380020E0001F80 00151F7C9D17>51 D<001F000061800080C00100600300600600600600600600600E00C0 0F00800F818007C30007E40003F80001F80003FC00047E00183F00300F00200700600700 C00300C00300C00300800600800600C00C00C008004030003060001F8000131F7B9D17> 56 D<001F0000718000C0C00180C00380E00700E00F00E00F01E01E01E01E01E01E01E0 1E01C01C03C01C03C01C03C01C07C01C0F800C0F8006378003C700000F00000E00000E00 001C00601C00F03800F07000E0600080C0004380003E0000131F7B9D17>I<070F1F1F0E 0000000000000000000070F8F8F0E008147B930E>I<0000020000000600000006000000 0E0000001E0000001E0000003F0000002F0000004F0000004F0000008F0000010F000001 0F0000020F0000020F0000040F00000C0F0000080F0000100F0000100F0000200F80003F FF800040078000C007800080078001000780010007800200078002000780060007801E00 0F80FF807FF81D207E9F22>65 D<0000FE0200078186001C004C0038003C0060003C00C0 001C01C0001803800018070000180F0000181E0000101E0000103C0000003C0000007800 0000780000007800000078000000F0000000F0000000F0000000F0000000F00000807000 008070000080700001003800010038000200180004000C001800060020000381C00000FE 00001F217A9F21>67 D<01FFFF80001E00E0001E0070001E0038001E001C003C001C003C 000E003C000E003C000E0078000E0078000E0078000E0078000E00F0001E00F0001E00F0 001E00F0001E01E0003C01E0003C01E0003C01E0007803C0007003C0007003C000E003C0 01C0078001C00780038007800E0007801C000F007000FFFFC0001F1F7D9E22>I<01FFFF FE001E001C001E000C001E0004001E0004003C0004003C0004003C0004003C0004007808 0800780800007808000078180000F0300000FFF00000F0300000F0300001E0200001E020 0001E0200001E0001003C0002003C0002003C0004003C000400780008007800180078001 00078007000F001F00FFFFFE001F1F7D9E1F>I<01FFF3FFE0001F003E00001E003C0000 1E003C00001E003C00003C007800003C007800003C007800003C007800007800F0000078 00F000007800F000007800F00000F001E00000FFFFE00000F001E00000F001E00001E003 C00001E003C00001E003C00001E003C00003C007800003C007800003C007800003C00780 0007800F000007800F000007800F000007800F00000F801F0000FFF1FFE000231F7D9E22 >72 D<01FFF0001F00001E00001E00001E00003C00003C00003C00003C00007800007800 00780000780000F00000F00000F00000F00001E00001E00001E00001E00003C00003C000 03C00003C0000780000780000780000780000F8000FFF800141F7D9E12>I<001FFF0000 F80000F00000F00000F00001E00001E00001E00001E00003C00003C00003C00003C00007 80000780000780000780000F00000F00000F00000F00001E00001E00301E00781E00F83C 00F83C00F0780080700040E00021C0001F000018207D9E18>I<01FFF800001F0000001E 0000001E0000001E0000003C0000003C0000003C0000003C000000780000007800000078 00000078000000F0000000F0000000F0000000F0000001E0000001E0000001E0000001E0 008003C0010003C0010003C0030003C00200078006000780060007800C0007801C000F00 7800FFFFF800191F7D9E1D>76 D<01FE00007FC0001E0000FC00001E0000F80000170001 780000170001780000270002F00000270004F00000270004F00000270008F00000470009 E00000470011E00000470021E00000470021E00000870043C00000838043C00000838083 C00000838083C0000103810780000103820780000103820780000103840780000203840F 00000203880F00000203900F00000203900F00000401E01E00000401E01E00000401C01E 00000C01801E00001C01803E0000FF8103FFC0002A1F7D9E29>I<0001FC000007070000 1C01C0003000E000E0006001C000700380007007800038070000380E0000381E0000381C 0000383C0000383C00003878000078780000787800007878000078F00000F0F00000F0F0 0000E0F00001E0F00001C0F00003C0700003807000070078000F0038001E0038003C001C 0070000E00E0000783800001FC00001D217A9F23>79 D<01FFFF80001E00E0001E007000 1E0038001E003C003C003C003C003C003C003C003C003C0078007800780078007800F000 7800E000F003C000F00F0000FFFC0000F0000001E0000001E0000001E0000001E0000003 C0000003C0000003C0000003C00000078000000780000007800000078000000F800000FF F000001E1F7D9E1F>I<01FFFF00001E03C0001E00E0001E0070001E0078003C0078003C 0078003C0078003C0078007800F0007800F0007801E0007801C000F0070000F01E0000FF F00000F0380001E01C0001E01E0001E00E0001E00F0003C01E0003C01E0003C01E0003C0 1E0007803C0007803C0807803C0807803C100F801C10FFF00C20000007C01D207D9E21> 82 D<0007E040001C18C0003005800060038000C0038001C00180018001000380010003 800100038001000380000003C0000003C0000003F8000001FF800001FFE000007FF00000 1FF0000001F8000000780000007800000038000000380020003800200038002000300060 007000600060006000E0007000C000E8038000C606000081F800001A217D9F1A>I<0FFF FFF01E0780E0180780201007802020078020200F0020600F0020400F0020400F0020801E 0040001E0000001E0000001E0000003C0000003C0000003C0000003C0000007800000078 0000007800000078000000F0000000F0000000F0000000F0000001E0000001E0000001E0 000001E0000003E00000FFFF00001C1F789E21>I<7FFC1FF807C003C007800100078001 00078001000F0002000F0002000F0002000F0002001E0004001E0004001E0004001E0004 003C0008003C0008003C0008003C00080078001000780010007800100078001000F00020 00F0002000F0002000F0004000F0004000700080007001000030020000380400000C1800 0007E000001D20779E22>I87 D<00F1800389C00707800E03801C03803C0380380700780700780700780700F00E00F00E 00F00E00F00E20F01C40F01C40703C40705C40308C800F070013147C9317>97 D<07803F8007000700070007000E000E000E000E001C001C001CF01D0C3A0E3C0E380F38 0F700F700F700F700FE01EE01EE01EE01CE03CE038607060E031C01F0010207B9F15>I< 007E0001C1000300800E07801E07801C07003C0200780000780000780000F00000F00000 F00000F00000F0000070010070020030040018380007C00011147C9315>I<0000780003 F80000700000700000700000700000E00000E00000E00000E00001C00001C000F1C00389 C00707800E03801C03803C0380380700780700780700780700F00E00F00E00F00E00F00E 20F01C40F01C40703C40705C40308C800F070015207C9F17>I<007C01C207010E011C01 3C013802780C7BF07C00F000F000F000F0007000700170023804183807C010147C9315> I<00007800019C00033C00033C000718000700000700000E00000E00000E00000E00000E 0001FFE0001C00001C00001C00001C000038000038000038000038000038000070000070 0000700000700000700000700000E00000E00000E00000E00000C00001C00001C0000180 003180007B0000F300006600003C00001629829F0E>I<003C6000E27001C1E00380E007 00E00F00E00E01C01E01C01E01C01E01C03C03803C03803C03803C03803C07003C07001C 0F001C17000C2E0003CE00000E00000E00001C00001C00301C00783800F0700060E0003F 8000141D7E9315>I<01E0000FE00001C00001C00001C00001C000038000038000038000 038000070000070000071E000763000E81800F01C00E01C00E01C01C03801C03801C0380 1C0380380700380700380700380E10700E20700C20701C20700C40E00CC060070014207D 9F17>I<00C001E001E001C000000000000000000000000000000E003300230043804300 470087000E000E000E001C001C001C003840388030807080310033001C000B1F7C9E0E> I<0001800003C00003C0000380000000000000000000000000000000000000000000003C 00004600008700008700010700010700020E00000E00000E00000E00001C00001C00001C 00001C0000380000380000380000380000700000700000700000700000E00000E00030E0 0079C000F180006300003C00001228829E0E>I<01E0000FE00001C00001C00001C00001 C0000380000380000380000380000700000700000703C00704200E08E00E11E00E21E00E 40C01C80001D00001E00001FC00038E00038700038700038384070708070708070708070 3100E03100601E0013207D9F15>I<03C01FC0038003800380038007000700070007000E 000E000E000E001C001C001C001C0038003800380038007000700070007100E200E200E2 00E200640038000A207C9F0C>I<1C0F80F0002630C318004740640C004780680E004700 700E004700700E008E00E01C000E00E01C000E00E01C000E00E01C001C01C038001C01C0 38001C01C038001C01C0708038038071003803806100380380E100380380620070070066 00300300380021147C9325>I<1C0F802630C04740604780604700704700708E00E00E00 E00E00E00E00E01C01C01C01C01C01C01C03843803883803083807083803107003303001 C016147C931A>I<007C0001C3000301800E01C01E01C01C01E03C01E07801E07801E078 01E0F003C0F003C0F003C0F00780F00700700F00700E0030180018700007C00013147C93 17>I<01C1E002621804741C04781C04701E04701E08E01E00E01E00E01E00E01E01C03C 01C03C01C03C01C0380380780380700380E003C1C0072380071E000700000700000E0000 0E00000E00000E00001C00001C0000FFC000171D809317>I<00F0400388C00705800E03 801C03803C0380380700780700780700780700F00E00F00E00F00E00F00E00F01C00F01C 00703C00705C0030B8000F380000380000380000700000700000700000700000E00000E0 000FFE00121D7C9315>I<1C1E002661004783804787804707804703008E00000E00000E 00000E00001C00001C00001C00001C000038000038000038000038000070000030000011 147C9313>I<00FC030206010C030C070C060C000F800FF007F803FC003E000E700EF00C F00CE008401020601F8010147D9313>I<018001C0038003800380038007000700FFF007 000E000E000E000E001C001C001C001C003800380038003820704070407080708031001E 000C1C7C9B0F>I<0E00C03300E02301C04381C04301C04701C08703800E03800E03800E 03801C07001C07001C07001C07101C0E20180E20180E201C1E200C264007C38014147C93 18>I<0E03803307802307C04383C04301C04700C08700800E00800E00800E00801C0100 1C01001C01001C02001C02001C04001C04001C08000E300003C00012147C9315>I<0E00 C1C03300E3C02301C3E04381C1E04301C0E04701C060870380400E0380400E0380400E03 80401C0700801C0700801C0700801C0701001C0701001C0602001C0F02000C0F04000E13 080003E1F0001B147C931E>I<0E00C03300E02301C04381C04301C04701C08703800E03 800E03800E03801C07001C07001C07001C07001C0E00180E00180E001C1E000C3C0007DC 00001C00001C00003800F03800F07000E06000C0C0004380003E0000131D7C9316>121 D<01C04003E08007F1800C1F000802000004000008000010000020000040000080000100 000200000401000802001002003E0C0063FC0041F80080E00012147D9313>I E /Fw 19 122 df<060E1C383060800707739914>19 D<000F8200706200C01603801E07 000C0E000C1C000C18000C380008300008700000700000E00000E00000E00000E00000E0 0020E00020E00020E000406000406000803001001006000C180003E000171A7A991B>67 D<03FFFF00700700700300700100E00100E00100E00100E00101C08001C08001C08001C1 8003FF000381000381000381000702000700040700040700080E00080E00180E00100E00 301C00E0FFFFE0181A7D991A>69 D<01FF80003800003800003800007000007000007000 00700000E00000E00000E00000E00001C00001C00001C00001C000038000038000038000 0380000700000700000700000700000E0000FFE000111A7E990F>73 D<03F8001FC00078003C000078003C000078005C0000B800B80000B800B800009C013800 009C013800011C027000011C027000011C047000011C087000021C08E000021C10E00002 1C10E000021C20E000041C41C000041C41C000041C81C000041C81C000080F038000080F 038000080E038000180C038000380C070000FF083FF000221A7D9922>77 D<3FFFFC381C0C201C04401C044038048038048038048038040070000070000070000070 0000E00000E00000E00000E00001C00001C00001C00001C0000380000380000380000380 00078000FFF800161A79991B>84 D89 D<03CC0E2E181C381C301C701CE038E038E0 38E038C072C072C07260F261341E180F107C8F14>97 D<01F006080C1818383010700060 00E000E000E000E000E008E010602030C01F000D107C8F12>99 D<001F80000380000380 000380000700000700000700000700000E00000E0003CE000E2E00181C00381C00301C00 701C00E03800E03800E03800E03800C07200C07200C0720060F2006134001E1800111A7C 9914>I<01E006181C08380870087010FFE0E000E000E000E000E0086010602030C01F00 0D107C8F12>I<030706000000000000384C4E8E9C9C1C3838707272E2E4643808197C98 0C>105 D<307C005986009E07009E07009C07009C0700380E00380E00380E00381C0070 1C80701C80703880703900E01900600E0011107C8F16>110 D<01F006180C0C180E300E 700E600EE00EE00EE00CE01CE018E030606030C01F000F107C8F14>I<30F059189E389C 189C009C0038003800380038007000700070007000E00060000D107C8F10>114 D<03E004300830187018601C001F801FC00FE000E00060E060E06080C041803E000C107D 8F10>I<06000E000E000E000E001C001C00FFC01C003800380038003800700070007000 7000E100E100E100E200640038000A177C960D>I<38064C074E0E8E0E9C0E9C0E1C1C38 1C381C381C7039703970393079389A0F0C10107C8F15>I<38064C074E0E8E0E9C0E9C0E 1C1C381C381C381C703870387038307838F00F700070006060E0E1C0C18047003C001017 7C8F13>121 D E /Fx 46 122 df<00FC000182000703000607000E02000E00000E0000 0E00000E00000E0000FFFF000E07000E07000E07000E07000E07000E07000E07000E0700 0E07000E07000E07000E07000E07000E07007F0FE0131A809915>12 D<1C1C3C7060C0800607789913>19 D<60C0F1E0F9F068D0081008100810102010202040 C1800C0B7F9913>34 D<00800100020004000C0008001800300030003000600060006000 6000E000E000E000E000E000E000E000E000E000E0006000600060006000300030003000 180008000C00040002000100008009267D9B0F>40 D<8000400020001000180008000C00 060006000600030003000300030003800380038003800380038003800380038003800300 0300030003000600060006000C0008001800100020004000800009267E9B0F>I<60F0F0 7010101020204080040B7D830B>44 DI<60F0F06004047D830B> I<0004000C00180018001800300030003000600060006000C000C000C001800180018003 00030003000600060006000C000C000C00180018001800300030003000600060006000C0 00C0000E257E9B13>I<078018603030303060186018E01CE01CE01CE01CE01CE01CE01C E01CE01CE01CE01CE01C6018601870383030186007800E187E9713>I<03000700FF0007 000700070007000700070007000700070007000700070007000700070007000700070007 000700FFF00C187D9713>I<0F80106020304038803CC01CE01C401C003C003800380070 006000C001800100020004040804100430083FF87FF8FFF80E187E9713>I<01E006100C 1818383038300070006000E000E7C0E860F030F018E018E01CE01CE01C601C601C701830 183030186007C00E187E9713>54 D<07801860303070306018E018E018E01CE01CE01C60 1C603C303C185C0F9C001C00180018003870307060604021801F000E187E9713>57 D<003F0201C0C603002E0E001E1C000E1C0006380006780002700002700002F00000F000 00F00000F00000F00000F000007000027000027800023800041C00041C00080E00080300 3001C0C0003F00171A7E991C>67 D69 D73 D76 D80 D<0FC21836200E6006C006C002C002C002E00070 007E003FE01FF807FC003E000E00070003800380038003C002C006E004D81887E0101A7E 9915>83 D<7FFFFF00701C0700401C0100401C0100C01C0180801C0080801C0080801C00 80001C0000001C0000001C0000001C0000001C0000001C0000001C0000001C0000001C00 00001C0000001C0000001C0000001C0000001C0000001C0000001C0000001C000003FFE0 00191A7F991C>I91 D<1830204040804080810081008100B160F9F078 F030600C0B7B9913>II<3F8070C070E020700070007007F01C703070 7070E070E071E071E0F171FB1E3C10107E8F13>97 DI<07 F80C1C381C30087000E000E000E000E000E000E0007000300438080C1807E00E107F8F11 >I<007E00000E00000E00000E00000E00000E00000E00000E00000E00000E0003CE000C 3E00380E00300E00700E00E00E00E00E00E00E00E00E00E00E00E00E00600E00700E0038 1E001C2E0007CFC0121A7F9915>I<07C01C3030187018600CE00CFFFCE000E000E000E0 006000300438080C1807E00E107F8F11>I<01F0031807380E100E000E000E000E000E00 0E00FFC00E000E000E000E000E000E000E000E000E000E000E000E000E000E007FE00D1A 80990C>I<0FCE187330307038703870387038303018602FC02000600070003FF03FFC1F FE600FC003C003C003C0036006381C07E010187F8F13>I I<18003C003C001800000000000000000000000000FC001C001C001C001C001C001C001C 001C001C001C001C001C001C001C00FF80091A80990A>I<018003C003C0018000000000 00000000000000000FC001C001C001C001C001C001C001C001C001C001C001C001C001C0 01C001C001C001C001C041C0E180E3007E000A2182990C>I108 DII<07E01C38 300C700E6006E007E007E007E007E007E0076006700E381C1C3807E010107F8F13>II<03C2000C2600381E00300E00700E00E00E00E00E00E00E00E00E00E00E00E00E00 700E00700E00381E001C2E0007CE00000E00000E00000E00000E00000E00000E00007FC0 12177F8F14>II<1F2060E04020C020C020F0007F003FC01FE000F080708030C030 C020F0408F800C107F8F0F>I<0400040004000C000C001C003C00FFC01C001C001C001C 001C001C001C001C001C201C201C201C201C200E4003800B177F960F>III 121 D E /Fy 2 122 df<0C000C008C40EDC07F800C007F80EDC08C400C000C000A0B7D 8B10>3 D<1818181818FFFF18181818181818181818181818181808167D900E>121 D E /Fz 38 121 df<007C0001C3000701810E01C11E00C11C00E23C00E27800E27800E4 7800E4F000E8F000F0F000F0F000E0F000E07000E07003E030046118383207C01C18147E 931D>11 D<0000F800030600040600080300100300200300400700400700800700800601 000E01000C0107F80104700207D802001C02001C02001E04001E04001E04001E04001E08 003C08003C08003C0800781800701400F01400E01201C0218700207C0020000020000040 000040000040000040000080000080000080000018297F9F1A>I<03E0040FF0081FF808 3FF810301C10400C10C00420800420000240000240000280000280000280000300000300 000300000200000200000200000600000600000600000C00000C00000C00000C00001800 001800001800001000161E7F9318>I<001E0000610000C0800180800180000380000300 0003800003800003C00001F00000F800007C0001FC00070E000E0E001E06001C06003C06 00780600780600780600F00400F00400F00C00F00800F008007018007010003020001840 000F800011207E9F14>I<007E01C007000E001C003C003800780078007FF0F000F000F0 00700070007000300018000C1807E00F147E9312>I<001E0000630000C38001C1800381 800301C00701C00F01C00E01C01E03C01C03C03C03C03C03C03C03C07807807FFF807FFF 80780780F00F00F00F00F00F00F00E00F01E00E01C00E03C00E03800E0300060700060E0 0070C0003180001E000012207E9F15>18 D<07000001C00000E00000E00000F000007000 007000007800003800003800003C00001C00001C00001E00000E00000E00000F00000700 000F0000378000638000C38001C3C00381C00701C00E01E01C00E03800E07000F0F00070 E00070C0003815207D9F1B>21 D<007FFE01FFFE07FFFE0F07801E03801C01C03801C070 01C07001C07001C0E00380E00380E00380E00700E00700E00E00600C003018001860000F 800017147E931A>27 D<70F8F8F87005057C840D>58 D<70F8FCFC740404040808101020 40060E7C840D>I<000001C00000078000001E00000078000001E00000078000000E0000 0038000000F0000003C000000F0000003C000000F0000000F00000003C0000000F000000 03C0000000F0000000380000000E0000000780000001E0000000780000001E0000000780 000001C01A1A7C9723>I<000100030003000600060006000C000C000C00180018001800 300030003000600060006000C000C000C00180018001800300030003000600060006000C 000C000C00180018001800300030003000600060006000C000C000C000102D7DA117>I< E0000000780000001E0000000780000001E0000000780000001C0000000700000003C000 0000F00000003C0000000F00000003C0000003C000000F0000003C000000F0000003C000 00070000001C00000078000001E00000078000001E00000078000000E00000001A1A7C97 23>I<0000FE0200078186001C004C0038003C0060003C00C0001C01C000180380001807 0000180F0000181E0000101E0000103C0000003C00000078000000780000007800000078 000000F0000000F0000000F0000000F0000000F000008070000080700000807000010038 00010038000200180004000C001800060020000381C00000FE00001F217E9F21>67 D<00FFFFFF000F000E000F0006000F0002000F0002001E0002001E0002001E0002001E00 02003C0404003C0400003C0400003C0C0000781800007FF800007818000078180000F010 0000F0100000F0100000F0000401E0000801E0000801E0001001E0001003C0002003C000 6003C0004003C001C0078007C0FFFFFF80201F7E9E22>69 D<00007E0100038183000E00 460038002E0070001E00E0000E01C0000C0380000C0700000C0F00000C1E0000081E0000 083C0000003C00000078000000780000007800000078000000F0000000F0007FFCF00001 E0F00001E0F00003C0700003C0700003C0700003C038000780380007801C000F800C000B 80060033000380C100007F000020217E9F24>71 D<00FFF80FF8000F8003E0000F000380 000F000200000F000400001E000800001E002000001E004000001E008000003C01000000 3C040000003C080000003C180000007838000000787C000000793C0000007A3C000000F4 1E000000F81E000000F01E000000F00F000001E00F000001E00F000001E007800001E007 800003C007800003C003C00003C003C00003C003C00007C003E000FFFC3FFC00251F7E9E 27>75 D<00FFFC00000F8000000F0000000F0000000F0000001E0000001E0000001E0000 001E0000003C0000003C0000003C0000003C000000780000007800000078000000780000 00F0000000F0000000F0000000F0004001E0008001E0008001E0018001E0010003C00300 03C0030003C0060003C00E0007803C00FFFFFC001A1F7E9E1F>I<00FF00001FF0000F00 003F00000B80003E00000B80005E00000B80005E0000138000BC00001380013C00001380 013C00001380023C000023800278000023800478000023800878000021C00878000041C0 10F0000041C020F0000041C020F0000041C040F0000081C041E0000081C081E0000081C1 01E0000081C101E0000100E203C0000100E203C0000100E403C0000100E803C0000200E8 0780000200F00780000200F00780000600E00780000F00C00F8000FFE0C1FFF8002C1F7E 9E2C>I<00FF803FF0000F800780000F800200000BC00200000BC002000013C004000011 E004000011E004000011E004000020F008000020F008000020F808000020780800004078 100000403C100000403C100000403C100000801E200000801E200000801E200000800F20 0001000F400001000F4000010007C000010007C000020007800002000380000200038000 06000380000F00010000FFE0010000241F7E9E25>I<00FFFF80000F01E0000F0070000F 0038000F003C001E003C001E003C001E003C001E003C003C0078003C0078003C00F0003C 01E00078038000780F00007FF80000781C0000F00E0000F00F0000F0070000F0078001E0 0F0001E00F0001E00F0001E00F0003C01E0003C01E0203C01E0203C01E0407C00E04FFFC 0718000003E01F207E9E23>82 D<0007E0800018118000300B000060070000C0070001C0 030001800200038002000380020003800200038000000380000003C0000003F8000003FF 800001FFC00000FFE000003FF0000003F0000000F0000000700000007000000070002000 700020007000200060006000E0006000C0006001C00070018000E8030000C60E000081F8 000019217D9F1C>I<0FFFFFFC1E03C0381803C0181003C0082003C00820078008600780 084007800840078008800F0010000F0000000F0000000F0000001E0000001E0000001E00 00001E0000003C0000003C0000003C0000003C0000007800000078000000780000007800 0000F0000000F0000000F0000000F0000001F000007FFFC0001E1F7F9E1B>I<00F18003 89C00707800E03801C03803C0380380700780700780700780700F00E00F00E00F00E00F0 0E10F01C20F01C20703C20705C40308C400F078014147E9318>97 D<07803F8007000700070007000E000E000E000E001C001C001CF01D0C3A0E3C0E380F38 0F700F700F700F700FE01EE01EE01EE01CE03CE038607060E031C01F0010207E9F14>I< 007C01C207010E0F1E0F1C0E3C04780078007800F000F000F000F000F000700170023004 18380FC010147E9314>I<00007C0000CE00019E00039E00030C00070000070000070000 0700000E00000E00000E0000FFF0000E00000E00001C00001C00001C00001C00001C0000 380000380000380000380000380000700000700000700000700000700000E00000E00000 E00000E00000C00001C000318000798000F300006200003C000017297E9F16>102 D<001E3000713800E0F001C0700380700780700700E00F00E00F00E00F00E01E01C01E01 C01E01C01E01C01E03801E03800E07800E0B8006170001E700000700000700000E00000E 00300E00781C00F038006070003FC000151D809316>I<01E0000FE00001C00001C00001 C00001C000038000038000038000038000070000070000071F000761800E80C00F00C00E 00E00E00E01C01C01C01C01C01C01C01C0380380380380380380380704700708700E0870 0E10700610E006206003C016207E9F1A>I<00E001E001E000C000000000000000000000 000000000E00130023804380438043808700070007000E000E001C001C001C2038403840 3840388019000E000B1F7E9E10>I<0000C00001E00001E00001C0000000000000000000 000000000000000000000000001E00006300004380008380010380010380020700000700 000700000700000E00000E00000E00000E00001C00001C00001C00001C00003800003800 00380000380000700000700030700078E000F1C0006380003E00001328819E13>I<01E0 000FE00001C00001C00001C00001C0000380000380000380000380000700000700000701 E00706100E08700E10F00E20F00E40601C80001D00001E00001FC0003870003838003838 00381C20703840703840703840701880E01880600F0014207E9F18>I<03C01FC0038003 800380038007000700070007000E000E000E000E001C001C001C001C0038003800380038 007000700070007100E200E200E200E200640038000A207E9F0E>I<1E07C07C00231861 860023A032030043C0340300438038038043803803808700700700070070070007007007 0007007007000E00E00E000E00E00E000E00E00E000E00E01C101C01C01C201C01C03820 1C01C038401C01C0184038038018801801800F0024147E9328>I<1E07802318C023A060 43C0704380704380708700E00700E00700E00700E00E01C00E01C00E01C00E03821C0384 1C07041C07081C03083803101801E017147E931B>I<03C1E004621804741C08781C0870 1E08701E10E01E00E01E00E01E00E01E01C03C01C03C01C03C01C0380380780380700380 E003C1C0072380071E000700000700000E00000E00000E00000E00001C00001C0000FFC0 00171D819317>112 D<007C018203010603060706060E00078007F803FC01FE001F0007 7007F006F006E004400820301FC010147E9315>115 D<03C1C00C62201034701038F020 38F020386040700000700000700000700000E00000E00000E00000E02061C040F1C040F1 C080E2C080446300383C0014147E931A>120 D E /FA 37 123 329 300 dfs[<1F803F003E007C007800F000E000>9 7 119 156 25 19 D[5 5 124 132 14 46 D[<007000F007F07FF0FFF07BF003F003F003 F003F003F003F003F003F003F003F003F003F003F003F003F003F003F003F003F003F003 F07FFE7FFF7FFE>16 30 125 157 25 49 D[<07F0001FFC003FFE007FFF007C3F80F01F 80F01F80700FC0600FC0200FC0000FC0000FC0000F80001F80001F00003F00007E00007C 0000F80001F00003E0000780000F00001F00001E00003C00007FFFC0FFFFC0FFFFC07FFF C0>18 30 126 157 25 I[<03F0000FFC001FFE003FFF007C3F00381F80101F80001F80 001F80001F80001F00003F00007E0003FC0003F80003FE00003F00001F80000F80000FC0 000FC0000FC0000FC0000FC0400FC0601F80F81F80FFFF007FFE001FFC0007F000>18 31 126 157 25 I[<007F00007F0000FF0000FF0001DF0001DF0003DF00039F00079F00 079F000F1F000F1F001E1F001E1F003E1F003C1F007C1F00781F00F81F00FFFFF0FFFFF0 FFFFF0FFFFF0001F00001F00001F00001F00001F00001F00>20 29 127 156 25 I[<3FFF007FFF007FFF007FFF007E00007E00007E00007E00007E00007E00 007FF8007FFE007FFF007F1F807E0F807C0F80380FC0000FC0000FC0000FC0000FC0000F C0200FC0600FC0701F80FC3F807FFF003FFE001FFC0007F000>18 30 126 156 25 I[<00F80003FC000FFC001FFC001F84003F00007E00007E00007C0000 7C0000FCF800FDFE00FFFF00FF1F80FE0F80FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0 FC0FC0FC0FC07C0FC07C0FC07E0F803E1F803FFF001FFE000FFC0003F800>18 31 126 157 25 I[18 29 126 156 25 I[<03F0000FFC001FFE003FFF003F3F007E1F807E1F807E1F807E1F807E1F 807E1F803E1F003F3F001FFE000FFC001FFE003E1F007C0F80FC0FC0FC0FC0FC0FC0FC0F C0FC0FC0FC0FC0FC0FC07C0F807E1F807FFF803FFF001FFE0007F800>18 31 126 157 25 I[5 19 124 146 14 58 D[<007F000000FF800000FF800001FFC00001FFC00001F7C00003F7 E00003F7E00003E7E00007E3F00007E3F00007E3F00007C3F0000FC1F8000FC1F8000F81 F8001F80FC001F80FC001F80FC003FFFFE003FFFFE003FFFFE007FFFFF007E003F007E00 3F00FC003F80FC001F80FC001F80F8000F80>25 29 126 156 33 65 D[<003FE001FFFC07FFFC0FFFFC1FE0783F80183F00087F00007E00007E0000FC0000 FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC0000FC00007E00007E0000 7F00003F00023F800E1FE03E0FFFFE07FFFE01FFF8003FE0>23 31 125 157 32 67 D[<7FFFE0FFFFE0FFFFE0FFFFE0FC0000FC0000FC0000FC0000FC0000 FC0000FC0000FC0000FFFFC0FFFFC0FFFFC0FFFFC0FC0000FC0000FC0000FC0000FC0000 FC0000FC0000FC0000FC0000FFFFF0FFFFF0FFFFF07FFFF0>20 29 124 156 30 69 D[<7FFFC0FFFFC0FFFFC0FFFFC0FC0000FC0000FC0000FC0000FC0000 FC0000FC0000FC0000FFFF00FFFF00FFFF00FFFF00FC0000FC0000FC0000FC0000FC0000 FC0000FC0000FC0000FC0000FC0000FC0000FC00007C0000>18 29 124 156 27 I[<7CFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFC7C >6 29 124 156 15 73 D[<7E00007FFF0000FFFF0000FFFF8001FFFF8001FFFBC003DF FBC003DFFBC003DFF9E0079FF9E0079FF9F00F9FF9F00F9FF8F00F1FF8F81F1FF8F81F1F F8781E1FF87C3E1FF87C3E1FF83C3C1FF83E7C1FF81E781FF81E781FF81E781FF80FF01F F80FF01FF807E01FF807E01FF803C01F7800001F>32 29 124 156 45 77 D[<7FFE00FFFFC0FFFFE0FFFFF0FC07F0FC01F8FC01F8FC01F8FC01F8FC01F8FC 01F8FC01F8FC01F0FC07F0FFFFE0FFFFC0FFFF80FC0000FC0000FC0000FC0000FC0000FC 0000FC0000FC0000FC0000FC0000FC00007C0000>21 29 124 156 32 80 D[<03FC001FFF003FFF803C0F80300FC0200FC0000FC0007FC00FFFC03F8FC07E 0FC0FC0FC0FC0FC0FC0FC0FC0FC07E3FC07FEFC03FCFC01F8FC0>18 19 127 146 24 97 D[<07F01FFC3FFE7E0E7E067C04FC00FC00FC00FC00FC00FC00FC00 7C007E017E0F3FFF1FFF07FC>16 19 126 146 22 99 D[<000FC0000FC0000FC0000FC0 000FC0000FC0000FC0000FC0000FC0000FC007CFC01FFFC03FFFC07E1FC07E0FC0FC0FC0 FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC07C0FC07E1FC03FFFC01FEFC0 0FCFC0>18 29 126 156 25 I[<03F8000FFE001FFF003E0F807E07807C07C0FC07C0FC 07C0FFFFC0FFFFC0FC0000FC0000FC00007C00007E00803F03801FFF800FFF8003FE00> 18 19 127 146 23 I[<0FF8F03FFFF07FFF707C1F00FC1F80FC1F80FC1F80FC1F80FC1F 807C1F007FFF003FFC002FF8006000007000007FFE007FFFC03FFFE03FFFE07FFFF0F001 F0F000F0F000F0F000F07C03E03FFFC01FFF8007FE00>20 28 127 146 25 103 D[6 30 126 157 12 105 D[<03F003F003F003F003F003F00000000000000000000003 F003F003F003F003F003F003F003F003F003F003F003F003F003F003F003F003F003F003 F003F003F003F003F07FE0FFE0FFC03F80>12 38 131 157 13 I[<7CFCFCFCFCFCFCFC FCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFC7C>6 29 126 156 12 108 D[<7C3F01F8FCFFC7FEFDFFCFFEFF07F83FFE07F03FFC07E03FFC07E03FFC07E0 3FFC07E03FFC07E03FFC07E03FFC07E03FFC07E03FFC07E03FFC07E03FFC07E03FFC07E0 3FFC07E03F7C03E01F>32 19 126 146 41 I[<7C3E00FCFF80FDFF80FF0FC0FE0FC0FC 0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC 0FC07C0FC0>18 19 126 146 25 I[<03FC000FFF003FFFC03F0FC07E07E07C03E0FC03 F0FC03F0FC03F0FC03F0FC03F0FC03F0FC03F07C03E07E07E07F0FE03FFFC00FFF0003FC 00>20 19 127 146 25 I[<7C7C00FDFE00FFFF00FE1F80FC1F80FC0FC0FC0FC0FC0FC0 FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC1F80FE3F80FFFF00FDFE00FCF800FC0000 FC0000FC0000FC0000FC0000FC0000FC00007C0000>18 27 126 146 25 I[<7C60FDE0FDE0FFE0FF00FE00FE00FC00FC00FC00FC00FC00FC00FC00FC00FC 00FC00FC007C00>11 19 126 146 16 114 D[<0FF81FFE3FFE781E780478007E007FE0 3FF81FFC0FFC03FE403E401EE01EF81EFFFC7FF80FE0>15 19 127 146 20 I[<1F003F003F003F003F007FF8FFF8FFF83F003F003F003F003F003F003F003F 003F003F003F003F003F103FF81FF80FC0>13 24 127 151 19 I[<7C0FC0FC0FC0FC0F C0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC0FC1F C0FC3FC07FEFC07FCFC01F8FC0>18 19 126 146 25 I[18 19 127 146 23 I[18 19 127 146 23 120 D[<3FFF807FFF807FFF80003F00007E00007E00 00FC0001F80003F00003E00007E0000FC0001F80003F00003F00007E0000FFFF80FFFF80 FFFF80>17 19 127 146 22 122 D E /FB 32 121 df<03FC07F807F00FE01FC01F803E 007C007800F0000E0A73A921>19 D46 D<001C00003E0000FE0003FE007FFE00FFFE00FFFE00FFFE0001FE0001FE0001FE0001FE 0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE 0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE0001FE 0001FE0001FE0001FE007FFFF8FFFFFCFFFFFC7FFFF8162B7BAA21>49 D<00FF000003FFE0000FFFF0001FFFFC003FFFFE003FFFFE007F83FF00FE01FF80FE00FF 807C007F803C007FC038007FC018003FC008003FC000003FC000007FC000007FC000007F 8000007F800000FF000000FF000001FE000003FC000003F8000007F000000FE000001FC0 00003F8000007F000000FE000000F8000001F0000003E0000007C000000F8000001F0000 003E0000007FFFFF80FFFFFFC0FFFFFFC0FFFFFFC0FFFFFFC07FFFFF801A2B7DAA21>I< 00FF800003FFE0000FFFF8001FFFFC003FFFFE007F83FE003E01FE001C01FF001800FF00 0800FF000000FF000000FF000001FF000001FE000001FE000003FC000003FC00000FF800 00FFF00000FFC00000FFF00000FFFC000003FE000000FF000000FF8000007F8000007FC0 00007FC000007FC000007FC000007FC000007FC000007FC040007FC060007FC07000FF80 FC00FF80FF03FF00FFFFFF007FFFFE003FFFFC001FFFF80007FFE00000FF80001A2C7DAA 21>I<0003FC000007FE000007FE00000FFE00000FFE00001FFE00001EFE00003EFE0000 3EFE00007CFE00007CFE0000F8FE0000F8FE0001F8FE0001F0FE0003F0FE0007E0FE0007 E0FE000FC0FE000FC0FE001F80FE001F80FE003F00FE003F00FE007E00FE007E00FE00FC 00FE00FFFFFFE0FFFFFFF0FFFFFFF0FFFFFFF0FFFFFFF07FFFFFE00000FE000000FE0000 00FE000000FE000000FE000000FE000000FE000000FE0000007C001C2A7EA921>I<0FFF FF001FFFFF801FFFFF801FFFFF801FFFFF801FFFFF001FE000001FE000001FE000001FE0 00001FE000001FE000001FE000001FE000001FE000001FFFE0001FFFF8001FFFFE001FFF FF001FF0FF801FC07F801FC03FC01F803FC00F003FC000003FE000003FE000003FE00000 3FE000003FE000003FE000003FE010003FE030003FE038003FC07C007FC07E007FC0FF81 FF807FFFFF803FFFFF001FFFFE000FFFFC0003FFF00000FF80001B2B7EA921>I<000FE0 00007FF80000FFF80003FFF80007FFF8000FFC18000FF000001FE000003FC000003F8000 003F8000007F8000007F8000007F0000007F000000FF0FF000FF3FFC00FF3FFE00FF7FFE 00FFC07F00FFC07F80FF803F80FF803F80FF803FC0FF003FC0FF003FC0FF003FC0FF003F C0FF003FC0FF003FC0FF003FC07F003FC07F003FC07F803FC07F803FC03F807F803FC07F 801FE0FF001FFFFF000FFFFE0007FFFC0003FFF80001FFF000003F80001A2C7DAA21>I< 0001FF00000003FF80000007FFC0000007FFC0000007FFC000000FFFE000000FFFE00000 0FDFE000001FDFF000001FCFF000003FCFF800003FCFF800003F8FF800007F87FC00007F 87FC00007F07FC0000FF07FE0000FF03FE0000FE03FE0001FE03FF0001FE01FF0001FE01 FF0003FC01FF8003FC00FF8003FC00FF8007F800FFC007F8007FC007F8007FC00FFFFFFF E00FFFFFFFE00FFFFFFFE01FFFFFFFF01FFFFFFFF01FE0001FF03FC0001FF83FC0000FF8 3FC0000FF87F80000FFC7F800007FC7F800007FCFF000007FE7E000003FC272A7EA92C> 65 D<0001FFE000000FFFFE00007FFFFF8000FFFFFF8001FFFFFF8003FFFFFF0007FF80 7F000FFE000F001FF80007001FF00003003FF00000003FE00000007FC00000007FC00000 007FC00000007FC0000000FF80000000FF80000000FF80000000FF80000000FF80000000 FF80000000FF80000000FF80000000FF80000000FF80000000FF80000000FF800000007F C00000007FC00000007FC00000007FC00000003FE00000003FF00000001FF00000801FF8 0003800FFE00078007FF803F8003FFFFFFC001FFFFFFC000FFFFFFC0007FFFFF80000FFF FC000001FFE000222C7CAA2A>67 D<7FFFFFE0FFFFFFF0FFFFFFF0FFFFFFF0FFFFFFF0FF FFFFE0FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF 800000FF800000FF800000FFFFFFC0FFFFFFE0FFFFFFE0FFFFFFE0FFFFFFE0FFFFFFC0FF 800000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF 800000FF800000FF800000FFBFFFF0FFFFFFF8FFFFFFF8FFFFFFF8FFFFFFF8FFFFFFF87F FFFFF01D2A7BA926>69 D<7FFFFFE0FFFFFFF0FFFFFFF0FFFFFFF0FFFFFFF0FFFFFFE0FF 800000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF 800000FF800000FF800000FFFFFF80FFFFFFC0FFFFFFC0FFFFFFC0FFFFFFC0FFFFFF80FF 800000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF 800000FF800000FF800000FF800000FF800000FF800000FF800000FF8000007F0000001C 2A7BA925>I<7F00FF80FF80FF80FF80FF80FF80FF80FF80FF80FF80FF80FF80FF80FF80 FF80FF80FF80FF80FF80FF80FF80FF80FF80FF80FF80FF80FF80FF80FF80FF80FF80FF80 FF80FF80FF80FF80FF80FF80FF80FF807F00092A7BA914>73 D<7FC000000FFCFFE00000 1FFEFFE000001FFEFFF000003FFEFFF000003FFEFFF800007FFEFFF800007FFEFEF80000 7DFEFEFC0000FDFEFEFC0000FDFEFE7E0001F9FEFE7E0001F9FEFE7E0001F9FEFE7F0003 F9FEFE3F0003F1FEFE3F0003F1FEFE3F8007F1FEFE1F8007E1FEFE1FC00FE1FEFE1FC00F E1FEFE0FC00FC1FEFE0FE01FC1FEFE0FE01FC1FEFE07E01F81FEFE07F03F81FEFE03F03F 01FEFE03F87F01FEFE03F87F01FEFE01F87E01FEFE01FCFE01FEFE01FCFE01FEFE00FCFC 01FEFE00FCFC01FEFE007CF801FEFE007FF801FEFE007FF801FEFE003FF001FEFE003FF0 01FEFE001FE001FEFE001FE001FEFE000FC001FE7C00000000FC2F2A7BA93A>77 D<7FFFFC0000FFFFFFC000FFFFFFE000FFFFFFF800FFFFFFFC00FF800FFC00FF8003FE00 FF8001FE00FF8001FF00FF8001FF00FF8001FF00FF8001FF00FF8001FF00FF8001FF00FF 8001FF00FF8001FE00FF8001FE00FF8003FE00FF800FFC00FFFFFFF800FFFFFFF000FFFF FFC000FFFFFE0000FF81FF0000FF80FF0000FF80FF8000FF807FC000FF807FC000FF803F E000FF803FE000FF801FF000FF801FF000FF800FF800FF800FF800FF8007FC00FF8003FC 00FF8003FE00FF8001FF00FF8001FF00FF8000FF80FF8000FF807F00007F80212A7BA92A >82 D<00FFC007FFF01FFFFC1FFFFE1F01FE1C00FF1800FF1000FF0000FF0000FF0000FF 00FFFF07FFFF1FF0FF3FC0FF7F80FF7F00FFFF00FFFF00FFFF00FFFF00FFFF81FF7F87FF 7FFEFF3FFCFF1FF8FF07C07E181B7E9A1F>97 D<007FE003FFFC07FFFF0FFFFF1FE03F3F C00E7F80067F80007F0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF 00007F00007F80017F80033FC00F1FE03F0FFFFF07FFFF03FFFC007FE0181B7E9A1D>99 D<00000FC000001FE000001FE000001FE000001FE000001FE000001FE000001FE000001F E000001FE000001FE000001FE000001FE000001FE000001FE000FE1FE007FF9FE00FFFDF E01FFFFFE03FF07FE03FC01FE07F801FE07F801FE0FF001FE0FF001FE0FF001FE0FF001F E0FF001FE0FF001FE0FF001FE0FF001FE0FF001FE0FF001FE0FF001FE07F801FE07F801F E03FC03FE03FE07FE01FFFFFE00FFFDFE007FF1FE000FC0FC01B2A7EA922>I<007FE000 03FFF80007FFFC000FFFFE001FE0FF003FC03F807F801F807F001FC07F001FC0FF001FC0 FF001FC0FFFFFFC0FFFFFFC0FFFFFF80FF000000FF000000FF000000FF0000007F000000 7F8000003F8000403FC001C01FF01FC00FFFFFC007FFFFC001FFFF00007FF0001A1B7E9A 1F>I<001FF800FFF801FFF803FFF807F83807F0080FF0000FF0000FF0000FF0000FF000 0FF0000FF0000FF0000FF0007FFF00FFFF80FFFF807FFF000FF0000FF0000FF0000FF000 0FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF000 0FF0000FF0000FF0000FF0000FF0000FF00007E000152A7FA914>I<7F00FF80FF80FF80 FF80FF80FF80FF807F0000000000000000000000000000003F007F807F807F807F807F80 7F807F807F807F807F807F807F807F807F807F807F807F807F807F807F807F807F807F80 7F807F803F00092B7EAA0F>105 D<7EFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7E082A7DA90F>108 D<7E03FC00FF00FF0FFE03FF80FF1FFF07FFC0FF3FFF8FFFE0FF707FDC1FF0FFC03FF00F F0FF803FE00FF0FF803FE00FF0FF003FC00FF0FF003FC00FF0FF003FC00FF0FF003FC00F F0FF003FC00FF0FF003FC00FF0FF003FC00FF0FF003FC00FF0FF003FC00FF0FF003FC00F F0FF003FC00FF0FF003FC00FF0FF003FC00FF0FF003FC00FF0FF003FC00FF0FF003FC00F F0FF003FC00FF0FF003FC00FF07E001F8007E02C1B7C9A35>I<7E03F800FF0FFE00FF1F FF00FF3FFF00FF60FF80FFC07F80FF807F80FF807F80FF007F80FF007F80FF007F80FF00 7F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF00 7F80FF007F80FF007F80FF007F80FF007F80FF007F807E003F00191B7C9A22>I<007FE0 0003FFFC0007FFFE001FFFFF801FE07F803FC03FC07F801FE07F801FE07F000FE0FF000F F0FF000FF0FF000FF0FF000FF0FF000FF0FF000FF0FF000FF0FF000FF0FF000FF07F000F E07F801FE07F801FE03FC03FC03FE07FC01FFFFF800FFFFF0003FFFC00007FE0001C1B7E 9A21>I<7E07F000FF1FFC00FF7FFE00FFFFFF00FFC0FF80FF007FC0FF003FC0FF003FC0 FF003FE0FF001FE0FF001FE0FF001FE0FF001FE0FF001FE0FF001FE0FF001FE0FF001FE0 FF001FE0FF003FC0FF003FC0FF003FC0FF007F80FFC1FF80FFFFFF00FF7FFE00FF3FF800 FF0FE000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000 FF000000FF000000FF0000007E0000001B277C9A22>I<7E07FF1FFF3FFF7FFF7FFFFFFF F8FFE0FF80FF80FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF 00FF007E00101B7C9A16>114 D<03FE001FFFC03FFFF07FFFF07E03F0FC00E0FC0060FC 0000FE0000FFC000FFFC007FFF803FFFC01FFFE00FFFF007FFF0007FF84007F84001F860 01F87001F8F801F8FE03F0FFFFF07FFFE01FFF8003FE00151B7E9A19>I<07E0000FF000 0FF0000FF0000FF0000FF0000FF0000FF0007FFFC0FFFFE0FFFFE07FFFC00FF0000FF000 0FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF000 0FF0000FF0000FF0000FF0200FF8E007FFF007FFF003FFC001FE0014237FA218>I<7E00 3F00FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF00 7F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF00 7F80FF007F80FF00FF80FF00FF80FF01FF807F837F803FFE7F801FFC7F8007F03F00191B 7C9A22>I<7E0007C0FF000FE07F001FC07F001FC07F801FC03F803F803F803F803F803F 801FC07F001FC07F001FC07F000FE0FE000FE0FE000FE0FE0007F1FC0007F1FC0007F1FC 0007F9FC0003FBF80003FBF80003FFF80001FFF00001FFF00001FFF00000FFE00000FFE0 00007FC0001B1B7F9A1E>I<7F001F807F803FC07F807F803FC0FF001FE0FE000FF1FC00 07F3FC0003FFF80003FFF00001FFE00000FFC000007FC000003F8000003F8000007FC000 00FFE00001FFE00001FFF00003F3F80007F1FC000FE0FE001FE0FE001FC07F003F803F80 7F803FC0FF001FE07E000FC01B1B7F9A1E>120 D E /FC 2 122 df0 D<02000700070007000700070007000200020002 007270FFF872700200020007000700070007000700070007000700070007000700070007 0007000700070007000200020002000200020002000D267E9C12>121 D E /FD 25 123 df<01C003C007C007800F001E001C00380070006000C0000A0B74A91E >19 D<78FCFCFEFE7A02020202040404081010204007127B8511>44 D<00001800000000180000000018000000003C000000003C000000003C000000007E0000 00007E00000000FF000000009F000000009F000000011F800000010F800000010F800000 0207C000000207C000000207C000000403E000000403E000000403E000000801F0000008 01F000001801F800001000F800001000F800002000FC000020007C00003FFFFC00007FFF FE000040003E000040003E000080001F000080001F000080001F000100000F800100000F 800100000F8002000007C007000007C01F80000FE0FFF000FFFFFFF000FFFF282A7EA92D >65 D69 DI77 D80 D82 D86 D<01FC00000E0780001001C0003C00E0003E00F0 003E0078001C00780008007800000078000000780000007800007FF80003E078000F8078 001F0078003E0078007C00780078007820F8007820F8007820F8007820F800F8207C00F8 203C013C401F063FC007F80F001B1A7E991E>97 D<07800000FF800000FF8000000F8000 000780000007800000078000000780000007800000078000000780000007800000078000 000780000007800000078000000783F000078C1C0007B0070007A0038007C003C0078001 E0078001E0078000F0078000F0078000F8078000F8078000F8078000F8078000F8078000 F8078000F8078000F0078000F0078001F0078001E0078001C007C003C00740078007200E 0006181C000407E0001D2A7FA921>I<007F8001C0700780080F003C1E007C3C007C3C00 387C0010780000F80000F80000F80000F80000F80000F80000F80000F800007800007C00 003C00043C00041E00080F001007802001C0C0007F00161A7E991B>I<00000F000001FF 000001FF0000001F0000000F0000000F0000000F0000000F0000000F0000000F0000000F 0000000F0000000F0000000F0000000F0000000F00003F0F0001C0CF0003802F000F001F 001E001F001C000F003C000F007C000F0078000F0078000F00F8000F00F8000F00F8000F 00F8000F00F8000F00F8000F00F8000F0078000F0078000F003C000F003C000F001E001F 000E002F0007004F8001C18FF8007E0FF81D2A7EA921>I<007E0003C3800700E00E00F0 1C00703C00783C003878003C78003CF8003CF8003CFFFFFCF80000F80000F80000F80000 F800007800007C00003C00043C00041E00080E001007002001C0C0007F00161A7E991B> I<07000F801F801F800F80070000000000000000000000000000000000000007807F807F 800F80078007800780078007800780078007800780078007800780078007800780078007 80078007800780FFF8FFF80D297FA811>105 D<0780FF80FF800F800780078007800780 078007800780078007800780078007800780078007800780078007800780078007800780 07800780078007800780078007800780078007800780078007800780FFFCFFFC0E2A7FA9 11>108 D<0783F800FF8C1C00FF900E000FA0070007A0078007C0078007C00780078007 800780078007800780078007800780078007800780078007800780078007800780078007 8007800780078007800780078007800780078007800780078007800780FFFCFFFCFFFCFF FC1E1A7F9921>110 D<007F000001C1C000070070000E0038001C001C003C001E003C00 1E0078000F0078000F00F8000F80F8000F80F8000F80F8000F80F8000F80F8000F80F800 0F80F8000F8078000F0078000F003C001E003C001E001E003C000E0038000700700001C1 C000007F0000191A7E991E>I<003F008001E0C180038021800F0013801E000B801E000F 803C0007807C0007807C00078078000780F8000780F8000780F8000780F8000780F80007 80F8000780F80007807C0007807C0007803C0007803E000F801E000F800F001780078027 8001E0C780007F0780000007800000078000000780000007800000078000000780000007 800000078000000780000007800000FFFC0000FFFC1E267E9920>113 D<0787C0FF98E0FF91F00FA1F007C1F007C0E007C0000780000780000780000780000780 0007800007800007800007800007800007800007800007800007800007800007800007C0 00FFFE00FFFE00141A7F9917>I<07F8401C06C03001C06000C06000C0E00040E00040F0 0040F800007E00007FF0003FFE000FFF0003FF80003FC00007C08001E08001E0C000E0C0 00E0C000E0E000C0F001C0F80180C4070083F800131A7E9918>I<008000008000008000 0080000180000180000180000380000380000780000F80001FFF80FFFF80078000078000 078000078000078000078000078000078000078000078000078000078000078000078040 07804007804007804007804007804007804003C08001C08000E100003E0012257FA417> I<07800780FF80FF80FF80FF800F800F8007800780078007800780078007800780078007 800780078007800780078007800780078007800780078007800780078007800780078007 80078007800780078007800F8007800F800380178001C027C000E047FC003F87FC1E1A7F 9921>I121 D<7FFFF87800F06001F04001E04003C0 C007C0800780800F00801F00001E00003C00007C0000780000F00001F00001E00403C004 07C0040780040F000C1F00081E00083C00187C00387800F8FFFFF8161A7E991B>I E /FE 1 4 df<00380000380000380000380000380000380060380CF8103E7C107C1F11 F00793C001D700007C00007C0001D7000793C01F11F07C107CF8103E60380C0038000038 00003800003800003800003800171A7D9B1E>3 D E /FF 19 119 622 432 dfs[<03FC07F807F00FE01FC01F803E007C007800F000>14 10 115 169 48 19 D[<7FFFFFE0FFFFFFF0FFFFFFF0FFFFFFF0FFFFFFF0FFFFFFE0FF80 0000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF80 0000FF800000FFFFFFC0FFFFFFE0FFFFFFE0FFFFFFE0FFFFFFE0FFFFFFC0FF800000FF80 0000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF80 0000FF800000FFBFFFF0FFFFFFF8FFFFFFF8FFFFFFF8FFFFFFF8FFFFFFF87FFFFFF0>29 42 123 169 55 69 D[<00FFC007FFF01FFFFC1FFFFE1F01FE1C00FF1800FF1000FF0000 FF0000FF0000FF00FFFF07FFFF1FF0FF3FC0FF7F80FF7F00FFFF00FFFF00FFFF00FFFF00 FFFF81FF7F87FF7FFEFF3FFCFF1FF8FF07C07E>24 27 126 154 45 97 D[<7E000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF07F000FF1FFC 00FF7FFE00FFFFFF00FFC0FF80FF007FC0FF003FC0FF003FC0FF001FE0FF001FE0FF001F E0FF001FE0FF001FE0FF001FE0FF001FE0FF001FE0FF001FE0FF001FE0FF001FC0FF003F C0FF003FC0FF007F80FFC1FF80FFFFFF00FF7FFE00FF3FF8007E0FE000>27 42 124 169 49 I[<007FE003FFFC07FFFF0FFFFF1FE03F3FC00E7F80067F80007F0000 FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF00007F00007F80017F8003 3FC00F1FE03F0FFFFF07FFFF03FFFC007FE0>24 27 126 154 42 I[<00000FC000001FE000001FE000001FE000001FE000001FE000001FE000001FE00000 1FE000001FE000001FE000001FE000001FE000001FE000001FE000FE1FE007FF9FE00FFF DFE01FFFFFE03FF07FE03FC01FE07F801FE07F801FE0FF001FE0FF001FE0FF001FE0FF00 1FE0FF001FE0FF001FE0FF001FE0FF001FE0FF001FE0FF001FE0FF001FE07F801FE07F80 1FE03FC03FE03FE07FE01FFFFFE00FFFDFE007FF1FE000FC0FC0>27 42 126 169 49 I[<007FE00003FFF80007FFFC000FFFFE001FE0FF003FC03F807F801F 807F001FC07F001FC0FF001FC0FF001FC0FFFFFFC0FFFFFFC0FFFFFF80FF000000FF0000 00FF000000FF0000007F0000007F8000003F8000403FC001C01FF01FC00FFFFFC007FFFF C001FFFF00007FF000>26 27 126 154 45 I[<7E000000FF000000FF000000FF000000 FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000 FF000000FF000000FF03F800FF0FFE00FF1FFF00FF3FFF00FF60FF80FFC07F80FF807F80 FF807F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80 FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80 FF007F807E003F00>25 42 124 169 49 104 D[<7F00FF80FF80FF80FF80FF80FF80FF 807F0000000000000000000000000000003F007F807F807F807F807F807F807F807F807F 807F807F807F807F807F807F807F807F807F807F807F807F807F807F807F807F803F00> 9 43 126 170 22 I[<7EFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7E>8 42 125 169 22 108 D[<7E03FC00FF00FF0FFE03FF80FF1FFF07FFC0FF3FFF8FFFE0FF707FDC1FF0FFC03FF0 0FF0FF803FE00FF0FF803FE00FF0FF003FC00FF0FF003FC00FF0FF003FC00FF0FF003FC0 0FF0FF003FC00FF0FF003FC00FF0FF003FC00FF0FF003FC00FF0FF003FC00FF0FF003FC0 0FF0FF003FC00FF0FF003FC00FF0FF003FC00FF0FF003FC00FF0FF003FC00FF0FF003FC0 0FF0FF003FC00FF0FF003FC00FF07E001F8007E0>44 27 124 154 76 I[<7E03F800FF0FFE00FF1FFF00FF3FFF00FF60FF80FFC07F80FF807F80FF807F80FF 007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF 007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F807E 003F00>25 27 124 154 49 I[<007FE00003FFFC0007FFFE001FFFFF801FE07F803FC0 3FC07F801FE07F801FE07F000FE0FF000FF0FF000FF0FF000FF0FF000FF0FF000FF0FF00 0FF0FF000FF0FF000FF0FF000FF07F000FE07F801FE07F801FE03FC03FC03FE07FC01FFF FF800FFFFF0003FFFC00007FE000>28 27 126 154 48 I[<7E07F000FF1FFC00FF7FFE 00FFFFFF00FFC0FF80FF007FC0FF003FC0FF003FC0FF003FE0FF001FE0FF001FE0FF001F E0FF001FE0FF001FE0FF001FE0FF001FE0FF001FE0FF001FE0FF003FC0FF003FC0FF003F C0FF007F80FFC1FF80FFFFFF00FF7FFE00FF3FF800FF0FE000FF000000FF000000FF0000 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000007E0000 00>27 39 124 154 49 I[<7E07FF1FFF3FFF7FFF7FFFFFFFF8FFE0FF80FF80FF00FF00 FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF007E00>16 27 124 154 32 114 D[<03FE001FFFC03FFFF07FFFF07E03F0FC00E0FC0060FC0000FE 0000FFC000FFFC007FFF803FFFC01FFFE00FFFF007FFF0007FF84007F84001F86001F870 01F8F801F8FE03F0FFFFF07FFFE01FFF8003FE00>21 27 126 154 36 I[<07E0000FF0000FF0000FF0000FF0000FF0000FF0000FF0007FFFC0FFFFE0FFFFE0 7FFFC00FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF000 0FF0000FF0000FF0000FF0000FF0000FF0000FF0200FF8E007FFF007FFF003FFC001FE00 >20 35 127 162 35 I[<7E003F00FF007F80FF007F80FF007F80FF007F80FF007F80FF 007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF007F80FF 007F80FF007F80FF007F80FF007F80FF007F80FF00FF80FF00FF80FF01FF807F837F803F FE7F801FFC7F8007F03F00>25 27 124 154 49 I[<7E0007C0FF000FE07F001FC07F00 1FC07F801FC03F803F803F803F803F803F801FC07F001FC07F001FC07F000FE0FE000FE0 FE000FE0FE0007F1FC0007F1FC0007F1FC0007F9FC0003FBF80003FBF80003FFF80001FF F00001FFF00001FFF00000FFE00000FFE000007FC000>27 27 127 154 43 I E /FG 85 128 df0 D<00008000000001C000000001C000000003E000000003E000000005F00000 0004F000000008F80000000878000000107C000000103C000000203E000000201E000000 401F000000400F000000800F80000080078000010007C000010003C000020003E0000200 01E000040001F000040000F000080000F80008000078001000007C001000003C00200000 3E002000001E007FFFFFFF007FFFFFFF00FFFFFFFF8021207E9F26>I6 D<001F83E000F06E3001C078780380F8780300F0 3007007000070070000700700007007000070070000700700007007000FFFFFF80070070 000700700007007000070070000700700007007000070070000700700007007000070070 0007007000070070000700700007007000070070000700700007007000070070007FE3FF 001D20809F1B>11 D<003F0000E0C001C0C00381E00701E00701E0070000070000070000 070000070000070000FFFFE00700E00700E00700E00700E00700E00700E00700E00700E0 0700E00700E00700E00700E00700E00700E00700E00700E00700E00700E07FC3FE172080 9F19>I<003FE000E0E001C1E00381E00700E00700E00700E00700E00700E00700E00700 E00700E0FFFFE00700E00700E00700E00700E00700E00700E00700E00700E00700E00700 E00700E00700E00700E00700E00700E00700E00700E00700E07FE7FE1720809F19>I<0E 007E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E 00FFC00A1480930C>16 D<07070F1C383060C00808779F17>19 D<7038F87CFC7EFC7E74 3A0402040204020804080410081008201040200F0E7E9F17>34 D<0F0000301880003030 600060703001C0602C06C06013F980E0100300E0100300E0100600E0100C00E0100C00E0 1018006010300060203000702060003040C0001880C0000F018000000300E00003031000 06060800060604000C0C0400180C0400181C0200301C0200601C0200601C0200C01C0201 801C0201801C0203000C0406000C04060006040C00060818000310080000E01F257DA126 >37 D<007800000084000001840000030200000702000007020000070200000702000007 0400000704000007080000070800000310000003A00FFC03C003E0038001C001C0008001 C0010003E0010004E0020008F00200187004003078080070380800701C1000F01E1000F0 0E2000F0074000F003C0087003C0087801C010380670301C18386007E00F801E227EA023 >I<0020004000800100020006000C000C00180018003000300030007000600060006000 E000E000E000E000E000E000E000E000E000E000E000E000600060006000700030003000 3000180018000C000C000600020001000080004000200B2E7DA112>40 D<800040002000100008000C00060006000300030001800180018001C000C000C000C000 E000E000E000E000E000E000E000E000E000E000E000E000C000C000C001C00180018001 8003000300060006000C00080010002000400080000B2E7DA112>I<0006000000060000 000600000006000000060000000600000006000000060000000600000006000000060000 00060000000600000006000000060000FFFFFFF0FFFFFFF0000600000006000000060000 000600000006000000060000000600000006000000060000000600000006000000060000 0006000000060000000600001C207D9A23>43 D<70F8FCFC74040404080810102040060E 7C840D>II<70F8F8F87005057C840D>I<000100030003000600 060006000C000C000C00180018001800300030003000600060006000C000C000C0018001 8001800300030003000600060006000C000C000C00180018001800300030003000600060 006000C000C000C000102D7DA117>I<03F0000E1C001C0E001806003807007003807003 80700380700380F003C0F003C0F003C0F003C0F003C0F003C0F003C0F003C0F003C0F003 C0F003C0F003C0F003C07003807003807003807807803807001806001C0E000E1C0003F0 00121F7E9D17>I<018003800F80F3800380038003800380038003800380038003800380 0380038003800380038003800380038003800380038003800380038007C0FFFE0F1E7C9D 17>I<03F0000C1C00100E00200700400780800780F007C0F803C0F803C0F803C02007C0 0007C0000780000780000F00000E00001C0000380000700000600000C000018000030000 0600400C00401800401000803FFF807FFF80FFFF80121E7E9D17>I<03F0000C1C00100E 00200F00780F80780780780780380F80000F80000F00000F00000E00001C0000380003F0 00003C00000E00000F000007800007800007C02007C0F807C0F807C0F807C0F007804007 80400F00200E001C3C0003F000121F7E9D17>I<000600000600000E00000E00001E0000 2E00002E00004E00008E00008E00010E00020E00020E00040E00080E00080E00100E0020 0E00200E00400E00C00E00FFFFF0000E00000E00000E00000E00000E00000E00000E0000 FFE0141E7F9D17>I<1803001FFE001FFC001FF8001FE000100000100000100000100000 10000010000011F000161C00180E001007001007800003800003800003C00003C00003C0 7003C0F003C0F003C0E00380400380400700200600100E000C380003E000121F7E9D17> I<007C000182000701000E03800C07801C0780380300380000780000700000700000F1F0 00F21C00F40600F80700F80380F80380F003C0F003C0F003C0F003C0F003C07003C07003 C07003803803803807001807000C0E00061C0001F000121F7E9D17>I<4000007FFFC07F FF807FFF8040010080020080020080040000080000080000100000200000200000400000 400000C00000C00001C00001800003800003800003800003800007800007800007800007 8000078000078000078000030000121F7D9D17>I<03F0000C0C00100600300300200180 6001806001806001807001807803003E03003F06001FC8000FF00003F80007FC000C7E00 103F00300F806003804001C0C001C0C000C0C000C0C000C0C00080600180200100100200 0C0C0003F000121F7E9D17>I<03F0000E18001C0C00380600380700700700700380F003 80F00380F003C0F003C0F003C0F003C0F003C07007C07007C03807C0180BC00E13C003E3 C0000380000380000380000700300700780600780E00700C002018001070000FC000121F 7E9D17>I<70F8F8F8700000000000000000000070F8F8F87005147C930D>I<70F8F8F870 0000000000000000000070F0F8F878080808101010202040051D7C930D>I<7FFFFFE0FF FFFFF00000000000000000000000000000000000000000000000000000000000000000FF FFFFF07FFFFFE01C0C7D9023>61 D<000100000003800000038000000380000007C00000 07C0000007C0000009E0000009E0000009E0000010F0000010F0000010F0000020780000 2078000020780000403C0000403C0000403C0000801E0000801E0000FFFE0001000F0001 000F0001000F00020007800200078002000780040003C00E0003C01F0007E0FFC03FFE1F 207F9F22>65 DI<000FC0400070 30C001C009C0038005C0070003C00E0001C01E0000C01C0000C03C0000C07C0000407C00 004078000040F8000000F8000000F8000000F8000000F8000000F8000000F8000000F800 0000F8000000780000007C0000407C0000403C0000401C0000401E0000800E0000800700 01000380020001C0040000703800000FC0001A217D9F21>IIII<000FE0200078186000E004E00380 02E0070001E00F0000E01E0000601E0000603C0000603C0000207C00002078000020F800 0000F8000000F8000000F8000000F8000000F8000000F8000000F8007FFCF80003E07800 01E07C0001E03C0001E03C0001E01E0001E01E0001E00F0001E0070001E0038002E000E0 046000781820000FE0001E217D9F24>II I<0FFFC0007C00003C00003C00003C00003C00003C00003C00003C00003C00003C00003C 00003C00003C00003C00003C00003C00003C00003C00003C00003C00003C00003C00203C 00F83C00F83C00F83C00F0380040780040700030E0000F800012207E9E17>IIIII<001F800000F0F00001C0380007801E000F000F00 0E0007001E0007803C0003C03C0003C07C0003E0780001E0780001E0F80001F0F80001F0 F80001F0F80001F0F80001F0F80001F0F80001F0F80001F0F80001F0780001E07C0003E0 7C0003E03C0003C03C0003C01E0007800E0007000F000F0007801E0001C0380000F0F000 001F80001C217D9F23>II82 D<07E0800C198010078030 0380600180600180E00180E00080E00080E00080F00000F000007800007F00003FF0001F FC000FFE0003FF00001F800007800003C00003C00001C08001C08001C08001C08001C0C0 0180C00380E00300F00600CE0C0081F80012217D9F19>I<7FFFFFE0780F01E0600F0060 400F0020400F0020C00F0030800F0010800F0010800F0010800F0010000F0000000F0000 000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000 000F0000000F0000000F0000000F0000000F0000000F0000000F0000000F0000001F8000 07FFFE001C1F7E9E21>IIII<7FF83FF80FE00FC007C0070003C0020001E0040001F00C00 00F0080000781000007C1000003C2000003E4000001E4000000F8000000F800000078000 0003C0000007E0000005E0000009F0000018F8000010780000207C0000603C0000401E00 00801F0001800F0001000780020007C0070003C01F8007E0FFE01FFE1F1F7F9E22>I91 D<080410082010201040204020804080408040B85C FC7EFC7E7C3E381C0F0E7B9F17>II<1FE0003030 00781800781C00300E00000E00000E00000E0000FE00078E001E0E00380E00780E00F00E 10F00E10F00E10F01E10781E103867200F83C014147E9317>97 D<0E0000FE00000E0000 0E00000E00000E00000E00000E00000E00000E00000E00000E00000E3E000EC3800F01C0 0F00E00E00E00E00700E00700E00780E00780E00780E00780E00780E00780E00700E0070 0E00E00F00E00D01C00CC300083E0015207F9F19>I<03F80E0C1C1E381E380C70007000 F000F000F000F000F000F00070007000380138011C020E0C03F010147E9314>I<000380 003F8000038000038000038000038000038000038000038000038000038000038003E380 061B801C0780380380380380700380700380F00380F00380F00380F00380F00380F00380 7003807003803803803807801C07800E1B8003E3F815207E9F19>I<03F0000E1C001C0E 00380700380700700700700380F00380F00380FFFF80F00000F00000F000007000007000 003800801800800C010007060001F80011147F9314>I<007C00C6018F038F0706070007 0007000700070007000700FFF00700070007000700070007000700070007000700070007 000700070007000700070007007FF01020809F0E>I<0000E003E3300E3C301C1C30380E 00780F00780F00780F00780F00780F00380E001C1C001E380033E0002000002000003000 003000003FFE001FFF800FFFC03001E0600070C00030C00030C00030C000306000603000 C01C038003FC00141F7F9417>I<0E0000FE00000E00000E00000E00000E00000E00000E 00000E00000E00000E00000E00000E3E000E43000E81800F01C00F01C00E01C00E01C00E 01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C0FF E7FC16207F9F19>I<1C001E003E001E001C000000000000000000000000000E007E000E 000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E00FFC00A 1F809E0C>I<00E001F001F001F000E0000000000000000000000000007007F000F00070 007000700070007000700070007000700070007000700070007000700070007000700070 007000706070F060F0C061803F000C28829E0E>I<0E0000FE00000E00000E00000E0000 0E00000E00000E00000E00000E00000E00000E00000E0FF00E03C00E03000E02000E0400 0E08000E10000E30000E70000EF8000F38000E1C000E1E000E0E000E07000E07800E0380 0E03C00E03E0FFCFF815207F9F18>I<0E00FE000E000E000E000E000E000E000E000E00 0E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E000E00 0E000E000E00FFE00B20809F0C>I<0E1F01F000FE618618000E81C81C000F00F00E000F 00F00E000E00E00E000E00E00E000E00E00E000E00E00E000E00E00E000E00E00E000E00 E00E000E00E00E000E00E00E000E00E00E000E00E00E000E00E00E000E00E00E000E00E0 0E00FFE7FE7FE023147F9326>I<0E3E00FE43000E81800F01C00F01C00E01C00E01C00E 01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C0FF E7FC16147F9319>I<01F800070E001C03803801C03801C07000E07000E0F000F0F000F0 F000F0F000F0F000F0F000F07000E07000E03801C03801C01C0380070E0001F80014147F 9317>I<0E3E00FEC3800F01C00F00E00E00E00E00F00E00700E00780E00780E00780E00 780E00780E00780E00700E00F00E00E00F01E00F01C00EC3000E3E000E00000E00000E00 000E00000E00000E00000E00000E0000FFE000151D7F9319>I<03E0800619801C05803C 0780380380780380700380F00380F00380F00380F00380F00380F0038070038078038038 03803807801C0B800E138003E38000038000038000038000038000038000038000038000 0380003FF8151D7E9318>I<0E78FE8C0F1E0F1E0F0C0E000E000E000E000E000E000E00 0E000E000E000E000E000E000E00FFE00F147F9312>I<1F9030704030C010C010C010E0 0078007F803FE00FF00070803880188018C018C018E030D0608F800D147E9312>I<0200 02000200060006000E000E003E00FFF80E000E000E000E000E000E000E000E000E000E00 0E000E080E080E080E080E080610031001E00D1C7F9B12>I<0E01C0FE1FC00E01C00E01 C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01C00E01 C00E03C00603C0030DC001F1FC16147F9319>III<7FC3FC0F01E0 0701C007018003810001C20000E40000EC00007800003800003C00007C00004E00008700 0107000303800201C00601E01E01E0FF07FE1714809318>II<3FFF380E200E201C40384078407000E001E001C00380078007 010E011E011C0338027006700EFFFE10147F9314>II<30307878F8 7C787830300E057C9E17>127 D E /FH 24 118 df<0F001F003F803F007E00F800F000 C0000908769C18>19 D45 D<00018000038000038000 0700000700000700000E00000E00001C00001C00001C0000380000380000380000700000 700000E00000E00000E00001C00001C00001C0000380000380000380000700000700000E 00000E00000E00001C00001C00001C0000380000380000700000700000700000E00000E0 0000C0000011297D9E18>47 D<00600001E0000FE000FFE000F3E00003E00003E00003E0 0003E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E0 0003E00003E00003E00003E00003E0007FFF807FFF80111B7D9A18>49 D<000180000380000780000F80001F80003F80006F8000CF80008F80018F80030F80060F 800C0F80180F80300F80600F80C00F80FFFFF8FFFFF8000F80000F80000F80000F80000F 80000F8001FFF801FFF8151B7F9A18>52 D<1801801FFF001FFE001FFC001FF8001FC000 18000018000018000018000019F8001E0E00180F801007800007C00007E00007E00007E0 7807E0F807E0F807E0F807C0F007C0600F80381F001FFE0007F000131B7E9A18>I<03F8 000FFE001E0F003C07807807807803C0F803C0F803C0F803E0F803E0F803E0F803E07807 E03807E03C0BE00E1BE003E3E00003E00003C00003C03807C07C07807C0700780F00383C 001FF8000FE000131B7E9A18>57 D<001FE02000FFF8E003F80FE007C003E00F8001E01F 0000E03E0000E03E0000607E0000607C000060FC000000FC000000FC000000FC000000FC 000000FC000000FC000000FC0000007C0000607E0000603E0000603E0000C01F0000C00F 80018007C0030003F80E0000FFFC00001FE0001B1C7D9B22>67 DI70 D73 D<07F8201FFEE03C07E07801E07000E0F000E0F00060F00060F80000FE0000 FFE0007FFE003FFF003FFF800FFFC007FFE0007FE00003F00001F00000F0C000F0C000F0 C000E0E000E0F001C0FC03C0EFFF0083FC00141C7D9B1B>83 D<0FF8001C1E003E0F803E 07803E07C01C07C00007C0007FC007E7C01F07C03C07C07C07C0F807C0F807C0F807C078 0BC03E13F80FE1F815127F9117>97 D<03FC000E0E001C1F003C1F00781F00780E00F800 00F80000F80000F80000F80000F800007800007801803C01801C03000E0E0003F8001112 7E9115>99 D<000FF0000FF00001F00001F00001F00001F00001F00001F00001F00001F0 0001F001F9F00F07F01C03F03C01F07801F07801F0F801F0F801F0F801F0F801F0F801F0 F801F07801F07801F03C01F01C03F00F0FFE03F9FE171D7E9C1B>I<01FC000F07001C03 803C01C07801C07801E0F801E0F801E0FFFFE0F80000F80000F800007800007C00603C00 601E00C00F038001FC0013127F9116>I104 D<1E003F003F003F003F001E00000000000000000000000000FF00FF001F001F 001F001F001F001F001F001F001F001F001F001F001F001F00FFE0FFE00B1E7F9D0E>I< FF0FC0FF31E01F40F01F80F81F80F81F00F81F00F81F00F81F00F81F00F81F00F81F00F8 1F00F81F00F81F00F81F00F8FFE7FFFFE7FF18127F911B>110 D<01FC000F07801C01C0 3C01E07800F07800F0F800F8F800F8F800F8F800F8F800F8F800F87800F07800F03C01E0 1E03C00F078001FC0015127F9118>I114 D<1FD830786018E018E018F000FF807FE07FF01FF807FC007CC01CC01CE0 1CE018F830CFC00E127E9113>I<0300030003000300070007000F000F003FFCFFFC1F00 1F001F001F001F001F001F001F001F001F0C1F0C1F0C1F0C0F08079803F00E1A7F9913> II E /FI 36 125 df<1C1C3C3870C0800607779C15>19 D<0006000000060000000600000006 000000060000000600000006000000060000000600000006000000060000000600000006 0000FFFFFFE0FFFFFFE00006000000060000000600000006000000060000000600000006 00000006000000060000000600000006000000060000000600001B1C7E9720>43 D<60F0F0701010101020204080040C7C830C>I<60F0F06004047C830C>46 D<03C00C301818300C300C700E60066006E007E007E007E007E007E007E007E007E007E0 07E007E007E00760066006700E300C300C18180C3007E0101D7E9B15>48 D<030007003F00C700070007000700070007000700070007000700070007000700070007 00070007000700070007000700070007000F80FFF80D1C7C9B15>I<7FFFFFC0FFFFFFE0 0000000000000000000000000000000000000000000000000000000000000000FFFFFFE0 7FFFFFC01B0C7E8F20>61 D<000600000006000000060000000F0000000F0000000F0000 0017800000178000001780000023C0000023C0000023C0000041E0000041E0000041E000 0080F0000080F0000180F8000100780001FFF80003007C0002003C0002003C0006003E00 04001E0004001E000C001F001E001F00FF80FFF01C1D7F9C1F>65 D69 DI73 D77 D<003F800000E0E0000380380007001C000E000E001C0007003C000780380003 80780003C0780003C0700001C0F00001E0F00001E0F00001E0F00001E0F00001E0F00001 E0F00001E0F00001E0700001C0780003C0780003C0380003803C0007801C0007000E000E 0007001C000380380000E0E000003F80001B1E7E9C20>79 DI82 D86 D<1FC000307000783800781C00301C00001C00001C0001FC000F1C00381C00701C 00601C00E01C40E01C40E01C40603C40304E801F870012127E9115>97 DI<07E00C301878307870306000E0 00E000E000E000E000E00060007004300418080C3007C00E127E9112>I<003F00000700 00070000070000070000070000070000070000070000070000070003E7000C1700180F00 300700700700600700E00700E00700E00700E00700E00700E00700600700700700300700 180F000C370007C7E0131D7E9C17>I<03E00C301818300C700E6006E006FFFEE000E000 E000E00060007002300218040C1803E00F127F9112>I<18003C003C0018000000000000 000000000000000000FC001C001C001C001C001C001C001C001C001C001C001C001C001C 001C001C001C00FF80091D7F9C0C>105 D107 DI110 D<03F0000E1C0018060030 0300700380600180E001C0E001C0E001C0E001C0E001C0E001C060018070038030030018 06000E1C0003F00012127F9115>II<03C1000C3300180B 00300F00700700700700E00700E00700E00700E00700E00700E00700600700700700300F 00180F000C370007C700000700000700000700000700000700000700000700003FE0131A 7E9116>II<1F9030704030C010C010E010F8007F803FE00FF000F88038 8018C018C018E010D0608FC00D127F9110>I<04000400040004000C000C001C003C00FF E01C001C001C001C001C001C001C001C001C001C101C101C101C101C100C100E2003C00C 1A7F9910>III121 D<7FFC70386038407040F040E041C003C0038007000F040E041C043C0C380870087038FF F80E127F9112>I124 D E /FJ 50 123 df<000FE000007FF80000F81C0001E07C0003E07C0007C07C0007C07C0007C03800 07C0000007C0000007C0000007C1FE00FFFFFE00FFFFFE0007C03E0007C03E0007C03E00 07C03E0007C03E0007C03E0007C03E0007C03E0007C03E0007C03E0007C03E0007C03E00 07C03E0007C03E0007C03E0007C03E003FF9FFC03FF9FFC01A20809F1D>12 D<0F1F1F3F7E78F0E00808759F1A>19 D<07C00001801FE00003803C78000780781E001F 00701FC0FE00F00DFFFC00F00C1F3800F00C007800F00C00F000F00C00E000F00C01C000 F00C03C000F00C078000701807000078180E00003C701E00001FE03C000007C078000000 00700F800000E03FC00001E078E00003C07030000380E030000700E038000F01E018001E 01E018001C01E018003801E018007801E01800F001E01800E001E01801C000E03803C000 E030078000703007000078E00E00003FC00600000F8025257DA12C>37 D<0018007000E001C00380038007000E000E001E001C003C003C007800780078007800F8 00F000F000F000F000F000F000F000F000F000F80078007800780078003C003C001C001E 000E000E0007000380038001C000E0007000180D2D7DA114>40 DI<387CFEFEFE7C3807077C860F>46 D<01FC0007FF001F07C01E03C03E03E07C01F07C01F07C01F0FC01F8FC01F8FC01F8FC01 F8FC01F8FC01F8FC01F8FC01F8FC01F8FC01F8FC01F8FC01F8FC01F87C01F07C01F07C01 F03E03E01E03C01F8FC007FF0001FC00151D7E9C1A>48 D<00E00001E0000FE000FFE000 F3E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E000 03E00003E00003E00003E00003E00003E00003E00003E00003E00003E00003E000FFFF80 FFFF80111D7C9C1A>I<07F0001FFE00383F007C1F80FE0FC0FE0FC0FE0FE0FE07E07C07 E03807E0000FE0000FC0000FC0001F80001F00003E0000780000F00000E00001C0000380 600700600E00601C00E01FFFC03FFFC07FFFC0FFFFC0FFFFC0131D7D9C1A>I<01FC0007 FF000E0F801E0FC03F07E03F07E03F07E03F07E01E0FC0000FC0000F80001F0001FC0001 FC00000F800007C00003E00003F00003F83803F87C03F8FE03F8FE03F8FE03F0FC03F078 07E03C0FC01FFF8003FC00151D7E9C1A>I<0001C00003C00007C00007C0000FC0001FC0 003BC00073C00063C000C3C00183C00383C00703C00E03C00C03C01803C03803C07003C0 E003C0FFFFFEFFFFFE0007C00007C00007C00007C00007C00007C000FFFE00FFFE171D7F 9C1A>I<3803803FFF803FFF003FFE003FFC003FF0003F80003000003000003000003000 0033F80037FE003C1F00380F801007C00007C00007E00007E07807E0FC07E0FC07E0FC07 E0FC07C0780FC0600F80381F001FFC0007F000131D7D9C1A>I<003F0001FFC007E0E00F 81E01F03F01E03F03E03F07C03F07C01E07C0000FC1000FCFF00FDFFC0FD03E0FE01F0FE 01F0FC01F8FC01F8FC01F8FC01F87C01F87C01F87C01F83C01F03E01F01E03E00F07C007 FF8001FE00151D7E9C1A>I<6000007FFFF87FFFF87FFFF07FFFE07FFFC0E00180C00300 C00300C00600000C0000180000380000380000780000700000F00000F00001F00001F000 01F00001F00003F00003F00003F00003F00003F00003F00001E00000C000151E7D9D1A> I<01FC0007FF000F07801E03C01C01E03C01E03C01E03E01E03F01E03FC3C01FE3801FFF 000FFE0007FF8007FFC01FFFE03C3FF0780FF07803F8F001F8F000F8F00078F00078F000 707800707C00E03E03C00FFF8003FC00151D7E9C1A>I<01FC000FFF001F07803E03C07C 03E07C01E0FC01F0FC01F0FC01F0FC01F8FC01F8FC01F8FC01F87C03F87C03F83E05F81F FDF807F9F80041F80001F03C01F07E01F07E03E07E03E07E07C03C0780381F001FFC0007 F000151D7E9C1A>I<0000E000000000E000000001F000000001F000000001F000000003 F800000003F800000006FC00000006FC0000000EFE0000000C7E0000000C7E000000183F 000000183F000000303F800000301F800000701FC00000600FC00000600FC00000C007E0 0000FFFFE00001FFFFF000018003F000018003F000030001F800030001F800060001FC00 060000FC000E0000FE00FFE00FFFE0FFE00FFFE0231F7E9E28>65 D<0007FC02003FFF0E00FE03DE03F000FE07E0003E0FC0001E1F80001E3F00000E3F0000 0E7F0000067E0000067E000006FE000000FE000000FE000000FE000000FE000000FE0000 00FE0000007E0000007E0000067F0000063F0000063F00000C1F80000C0FC0001807E000 3803F0007000FE01C0003FFF800007FC001F1F7D9E26>67 DIII73 D78 D<001FF80000FFFF0001F81F8007E007E00FC003F01F8001F81F0000F83F0000FC7F0000 FE7E00007E7E00007EFE00007FFE00007FFE00007FFE00007FFE00007FFE00007FFE0000 7FFE00007FFE00007F7E00007E7F0000FE7F0000FE3F0000FC3F8001FC1F8001F80FC003 F007E007E001F81F8000FFFF00001FF800201F7D9E27>II<03FC080FFF381E03F83800F8700078700038F00038F00018F0 0018F80000FC00007FC0007FFE003FFF801FFFE00FFFF007FFF000FFF80007F80000FC00 007C00003CC0003CC0003CC0003CE00038E00078F80070FE01E0E7FFC081FF00161F7D9E 1D>83 D<7FFFFFFC7FFFFFFC7C07E07C7007E01C6007E00C6007E00CE007E00EC007E006 C007E006C007E006C007E0060007E0000007E0000007E0000007E0000007E0000007E000 0007E0000007E0000007E0000007E0000007E0000007E0000007E0000007E0000007E000 0007E0000007E00003FFFFC003FFFFC01F1E7E9D24>I<07FC001FFF003F0F803F07C03F 03E03F03E00C03E00003E0007FE007FBE01F03E03C03E07C03E0F803E0F803E0F803E0FC 05E07E0DE03FF8FE0FE07E17147F9319>97 DI<01FE0007FF801F0FC03E0FC03E0FC07C0FC07C0300FC 0000FC0000FC0000FC0000FC0000FC00007C00007E00003E00603F00C01F81C007FF0001 FC0013147E9317>I<0007F80007F80000F80000F80000F80000F80000F80000F80000F8 0000F80000F80000F801F8F80FFEF81F83F83E01F87E00F87C00F87C00F8FC00F8FC00F8 FC00F8FC00F8FC00F8FC00F87C00F87C00F87E00F83E01F81F07F80FFEFF03F8FF18207E 9F1D>I<01FE0007FF800F83C01E01E03E00F07C00F07C00F8FC00F8FFFFF8FFFFF8FC00 00FC0000FC00007C00007C00003E00181E00180F807007FFE000FF8015147F9318>I<00 1F8000FFC001F3E003E7E003C7E007C7E007C3C007C00007C00007C00007C00007C000FF FC00FFFC0007C00007C00007C00007C00007C00007C00007C00007C00007C00007C00007 C00007C00007C00007C00007C00007C0003FFC003FFC0013207F9F10>I<01FC3C07FFFE 0F079E1E03DE3E03E03E03E03E03E03E03E03E03E01E03C00F07800FFF0009FC00180000 1800001C00001FFF800FFFF007FFF81FFFFC3C007C70003EF0001EF0001EF0001E78003C 78003C3F01F80FFFE001FF00171E7F931A>II<1C003E007F007F007F003E001C000000000000000000 00000000FF00FF001F001F001F001F001F001F001F001F001F001F001F001F001F001F00 1F001F00FFE0FFE00B217EA00E>I<0038007C00FE00FE00FE007C003800000000000000 000000000001FE01FE003E003E003E003E003E003E003E003E003E003E003E003E003E00 3E003E003E003E003E003E003E303E783EFC3CFC7C78783FF01FC00F2A83A010>I108 DI< FE0FC0FE3FE01E61F01EC0F81E80F81F00F81F00F81F00F81F00F81F00F81F00F81F00F8 1F00F81F00F81F00F81F00F81F00F81F00F8FFE3FFFFE3FF18147D931D>I<01FF0007FF C01F83F03E00F83E00F87C007C7C007CFC007EFC007EFC007EFC007EFC007EFC007E7C00 7C7C007C3E00F83E00F81F83F007FFC001FF0017147F931A>II<01F81807FE381F87783F01F83E01F87E00F87C00F8FC00F8 FC00F8FC00F8FC00F8FC00F8FC00F87C00F87E00F87E00F83F01F81F87F80FFEF803F8F8 0000F80000F80000F80000F80000F80000F80000F80007FF0007FF181D7E931C>II<0FE63FFE701E60 0EE006E006F800FFC07FF83FFC1FFE03FE001FC007C007E007F006F81EFFFCC7F010147E 9315>I<01800180018003800380038007800F803F80FFFCFFFC0F800F800F800F800F80 0F800F800F800F800F800F860F860F860F860F8607CC03F801F00F1D7F9C14>III121 D<3FFFE03FFFE03C07C0380F80 701F80603F00603E00607C0000F80001F80003F00003E06007C0600F80601F80E03F00C0 3E01C07C03C0FFFFC0FFFFC013147F9317>I E end %%EndProlog %%BeginSetup %%Feature: *Resolution 300dpi TeXDict begin %%PaperSize: A4 %%EndSetup %%Page: 1 1 1 0 bop 418 1771 a FJ(El)19 b(problema)e(de)h(la)g(ev)m(aluaci\023)-26 b(on)19 b(de)f(un)f(sistema)458 1813 y(de)h(recono)q(cimien)o(to)g (autom\023)-26 b(atico)20 b(del)e(habla)518 1854 y(median)o(te)f(un)i (\023)-28 b(unico)19 b(v)m(alor)f(n)o(um)o(\023)-25 b(erico.)535 1946 y FI(F)m(ederico)15 b(Prat)f(Villar)o(,)f(P)o(ablo)g(Aibar)h (Ausina,)525 1996 y(Andr)o(\023)-20 b(es)15 b(Marzal)f(V)m(ar\023)-21 b(o)13 b(y)h(Enrique)g(Vidal)f(Ruiz)o(.)759 2095 y FH(DSIC-I)q(I/15/94) p eop %%Page: 2 2 2 1 bop eop %%Page: 3 3 3 2 bop 815 806 a FJ(Abstract)223 970 y FG(The)19 b(problem)g(of)e (assessing)i(with)f(a)g(single)i(n)o(um)o(b)q(er)f(an)f(automatic)g(sp) q(eec)o(h)223 1027 y(recognition)c(system)e(b)o(y)h(means)f(of)h (comparing)f(\\correct")g(in)o(terpretations)h(of)223 1083 y(utterances)i(with)h(those)f(pro)o(vided)h(b)o(y)f(the)g(system)g (is)g(here)h(considered.)269 1140 y(This)f(rep)q(ort)f(is)i(aimed)f(at) g(critically)h(reviewing)g(di\013eren)o(t)g(solutions)f(giv)o(en)223 1196 y(in)22 b(the)f(literature)g(to)f(the)h(problem)h(p)q(osed)f(ab)q (o)o(v)o(e)f(and)h(presen)o(ting)h(a)e(new)223 1253 y(prop)q(osal.)p eop %%Page: 4 4 4 3 bop eop %%Page: 1 5 1 4 bop 0 464 a FF(El)31 b(p)m(roblem)o(a)e(de)h(la)i(evaluaci\023)-47 b(on)28 b(de)i(un)g(sistema)g(de)-11 568 y(recono)s(cim)o(ie)o(n)o(to)e (autom)o(\023)-47 b(atico)28 b(del)i(habla)g(mediante)442 672 y(un)h(\023)-48 b(unico)29 b(valo)m(r)j(num)n(\023)-46 b(e)o(rico)1390 641 y FE(\003)368 815 y FD(F)-5 b(ederico)19 b(Prat)h(Villar)891 793 y FC(y)891 815 y FD(,)f(P)n(ablo)g(Aibar)h (Ausina,)361 890 y(Andr)n(\023)-28 b(es)20 b(Marzal)f(V)-5 b(ar\023)-30 b(o)20 b(y)g(Enrique)f(Vidal)g(Ruiz)-20 1294 y FB(\023)-13 1308 y(Indice)-13 1410 y FA(1.)29 b(Intro)q(ducci\023)-25 b(on)1506 b(1)-13 1512 y(2.)29 b(Medidas)16 b(de)h(disimilit)o(ud)e(de)i(cadenas)1051 b(1)55 1568 y FG(2.1)46 b(Revisi\023)-23 b(on)17 b(de)e(edici\023)-23 b(on)17 b(de)f(cadenas)38 b Fz(:)23 b(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)h (:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)h(:) 76 b FG(2)55 1624 y(2.2)46 b(Equiv)m(alencia)17 b(en)o(tre)e(criterios) h(de)f(edici\023)-23 b(on)17 b(p)q(or)e(con)o(teo)g(p)q(onderado)g(de)h (op)q(eraciones)f(de)160 1681 y(edici\023)-23 b(on)19 b Fz(:)k(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:) g(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g (:)h(:)f(:)g(:)h(:)f(:)h(:)76 b FG(5)55 1737 y(2.3)46 b(Edici\023)-23 b(on)16 b(de)g(un)g(conjun)o(to)e(de)i(pares)f(de)h (cadenas)27 b Fz(:)22 b(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g (:)h(:)f(:)g(:)h(:)f(:)h(:)76 b FG(6)-13 1839 y FA(3.)29 b(F)o(unciones)18 b(de)f(evaluaci\023)-25 b(on)1262 b(7)55 1896 y FG(3.1)46 b(F)l(unciones)16 b(de)g(tasa)f Fz(:)23 b(:)f(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)h(:)f (:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)h(:)76 b FG(8)55 1952 y(3.2)46 b(Criterios)15 b(de)h(edici\023)-23 b(on)19 b Fz(:)j(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:) f(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f (:)h(:)53 b FG(10)55 2009 y(3.3)46 b(Coherencia)16 b(de)f(la)h (funci\023)-23 b(on)16 b(de)g(ev)m(aluaci\023)-23 b(on)22 b Fz(:)g(:)g(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:) h(:)f(:)g(:)h(:)f(:)h(:)53 b FG(11)-13 2111 y FA(4.)29 b(M)o(\023)-24 b(eto)q(do)17 b(de)g(evaluaci\023)-25 b(on)17 b(p)o(ropuesto)1059 b(11)55 2167 y FG(4.1)46 b(F)l(unci\023)-23 b(on)16 b(de)g(ev)m(aluaci\023)-23 b(on)38 b Fz(:)22 b(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)h (:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)h(:) 53 b FG(12)55 2223 y(4.2)46 b(M)o(\023)-21 b(eto)q(do)13 b(de)j(c\023)-23 b(alculo)42 b Fz(:)22 b(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:) f(:)g(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f (:)g(:)h(:)f(:)g(:)h(:)f(:)h(:)53 b FG(13)160 2280 y(4.2.1)d (Programaci\023)-23 b(on)14 b(F)l(raccional)f Fz(:)23 b(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h (:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)h(:)53 b FG(13)160 2336 y(4.2.2)d(Cuestiones)16 b(pr\023)-23 b(acticas:)15 b(la)g(iniciali)q (zaci\023)-23 b(on)19 b Fz(:)j(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h (:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)h(:)53 b FG(15)-13 2438 y FA(5.)29 b(Exp)q(erimentos)1455 b(15)-13 2540 y(6.)29 b(Conclusiones)1472 b(17)-13 2642 y(A.)21 b(Implementaci\023)-25 b(on)1406 b(18)55 2699 y FG(A.1)35 b(T)l(asas.h)43 b Fz(:)22 b(:)g(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g (:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:) h(:)f(:)g(:)h(:)f(:)h(:)53 b FG(18)55 2755 y(A.2)35 b(T)l(asas.c)12 b Fz(:)23 b(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f (:)g(:)h(:)f(:)g(:)h(:)f(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:)g(:)h(:)f(:) g(:)h(:)f(:)g(:)h(:)f(:)h(:)53 b FG(19)p -13 2784 743 2 v 7 2813 a Fy(\003)25 2829 y Fx(T)m(raba)r(jo)13 b(parcialmen)o(te)j (sub)o(v)o(encionado)g(p)q(or)d(el)h(pro)o(y)o(ecto)g(TIC-1026/92-C02)f (de)g(la)h Fw(CICYT)p Fx(.)9 2861 y Fy(y)25 2876 y Fx(Este)f(autor)h (disfruta)g(de)f(una)h(b)q(eca)f(del)h Fw(Ministerio)e(de)h(Educ)n (aci\023)-20 b(on)11 b(y)i(Ciencia)p Fx(.)1830 3074 y FG(i)p eop %%Page: 2 6 2 5 bop eop %%Page: 1 7 1 6 bop -13 -33 a Fv(El)16 b(pr)n(oblema)g(de)g(la)g(evaluaci\023)-23 b(on)17 b(de)f(un)g(sistema)g(de)g(r)n(e)n(c)n(ono)n(cimiento)p Fz(:)8 b(:)g(:)p -13 -16 1857 2 v -13 110 a FB(1.)46 b(Intro)r(ducci\023)-33 b(on)-13 217 y FG(Un)17 b(problema)g(que)g(se)g (presen)o(ta)f(frecuen)o(temen)o(te)h(en)g(la)g(ev)m(aluaci\023)-23 b(on)18 b(de)f(sistemas)g(de)g(recono)q(cimien)o(to)-13 273 y(autom\023)-23 b(atico)12 b(del)h(habla)h(es)f(el)g(siguien)o(te:) h(se)e(disp)q(one)j(de)e(un)g(conjun)o(to)f(de)h(pron)o(unciaciones)i (cuy)o(as)d(in)o(ter-)-13 330 y(pretaciones)k(correctas)f(son)h(cono)q (cidas)g(\(pron)o(unciaciones)h(sup)q(ervisadas\),)f(se)g(pide)h(al)f (sistema)g(ob)s(jeto)-13 386 y(de)f(ev)m(aluaci\023)-23 b(on)16 b(que)f(prop)q(orcione)g(sus)g(propias)f(in)o(terpretaciones)i (de)e(esas)h(mismas)f(pron)o(unciaciones,)i(y)-13 442 y(se)f(desea)g(obtener,)f(a)g(partir)h(de)g(la)g(comparaci\023)-23 b(on)15 b(de)g(in)o(terpretaciones,)g(un)i(\023)-24 b(unico)15 b(v)m(alor)g(n)o(um)o(\023)-21 b(erico)14 b(que)-13 499 y(mida)h(la)h(\\b)q(ondad")f(del)i(sistema.)32 558 y(El)e(ob)s(jeto)d (de)i(este)g(informe)g(es,)f(p)q(or)h(una)g(parte,)f(revisar)h(de)g (forma)e(cr)-5 b(\023)-18 b(\020tica)15 b(las)f(diferen)o(tes)g (soluciones)-13 614 y(que)20 b(suelen)h(darse)f(al)g(problema)g(an)o (teriormen)o(te)f(expuesto)h(y)l(,)f(p)q(or)h(otra,)e(presen)o(tar)h (razonadamen)o(te)-13 671 y(una)c(propuesta)g(alternativ)m(a.)32 730 y(Una)c(forma)e(ob)o(via)i(de)g(ev)m(aluar)g(un)g(sistema)f(es)h (la)g(utilizaci\023)-23 b(on)13 b(de)e(la)g(funci\023)-23 b(on)11 b(denominada)h(\\p)q(orcen)o(ta)s(je)-13 786 y(de)19 b(in)o(terpretaciones)g(correctas")f(\(\\p)q(ercen)o(tage)g(of) g(w)o(ords)f(correct")h([PS91])1368 770 y Fu(1)1387 786 y FG(\),)g(que)h(p)q(o)q(demos)f(de\014nir)-13 843 y(como)g(el)h(tan)o (to)e(p)q(or)h(cien)i(de)f(v)o(eces)f(que)h(el)g(sistema)f(prop)q (orciona)h(una)g(in)o(terpretaci\023)-23 b(on)19 b Fv(id)o(\023)-22 b(entic)n(a)17 b FG(a)i(la)-13 899 y(correcta.)d(Esta)h(funci\023)-23 b(on)19 b(presen)o(ta)f(el)g(incon)o(v)o(enien)o(te)i(de)e(ser)f (demasiado)h(\\sev)o(era")f(y)o(a)g(que)h(cualquier)-13 956 y(in)o(terpretaci\023)-23 b(on)17 b(diferen)o(te)g(de)f(la)h (correcta)e(es)i(considerada)g(\\totalmen)o(te)e(err\023)-23 b(onea".)15 b(P)o(arece)h(preferible)-13 1012 y(utilizar)i(funciones)f (que,)f(an)o(te)g(una)g(in)o(terpretaci\023)-23 b(on)17 b(no)g(id)o(\023)-21 b(en)o(tica)16 b(a)g(la)g(correcta,)g(tengan)g(en) g(cuen)o(ta)g(de)-13 1069 y(alg)q(\023)-24 b(un)16 b(mo)q(do)f(su)g (grado)f(de)i(semejanza)f(con)f(\023)-21 b(esta.)32 1128 y(La)15 b(consideraci\023)-23 b(on)16 b(an)o(terior)d(nos)i(llev)m(a)h (a)e(revisar,)g(en)g(el)h(apartado)f(2,)f(medidas)i(cl\023)-23 b(asicas)16 b(de)e(\(di\)simi-)-13 1184 y(litud)k(en)o(tre)g(cadenas.)f (Estas)f(medidas)i(\(que)f(p)q(o)q(dr\023)-23 b(an)18 b(v)o(erse)f(como)g(el)h(resultado)f(de)h(optimizar)g(lo)f(que)-13 1240 y(denominaremos)h(\\criterios)g(de)g(edici\023)-23 b(on"\))19 b(se)f(expresan)g(como)f(magnitudes)h(absolutas)g(en)g(el)g (sen)o(tido)-13 1297 y(de)j(exhibir)h(una)f(correlaci\023)-23 b(on)22 b(p)q(ositiv)m(a)g(con)f(las)g(longitudes)h(de)f(las)g(cadenas) g(comparadas.)f(Sin)i(em-)-13 1353 y(bargo,)15 b(en)h(el)h(marco)e(de)i (n)o(uestro)e(problema)i(suele)g(considerarse)g(preferible)g(expresar)f (las)h(medidas)f(de)-13 1410 y(\(di\)similitud)h(como)c(magnitudes)i(p) q(orcen)o(tuales.)f(Con)g(este)g(\014n,)g(suele)h(pro)q(cederse)g(en)g (dos)e(etapas:)h(una)-13 1466 y(primera)j(que)g(iden)o(ti\014ca)h(una)f (manera)f(\\\023)-23 b(optima")16 b(\(seg)q(\023)-24 b(un)17 b(un)g(\\criterio)g(de)g(edici\023)-23 b(on"\))18 b(de)f(transformar)-13 1523 y(las)g(in)o(terpretaciones)h(correctas)e (en)h(aquellas)h(que)g(prop)q(orciona)f(el)h(sistema;)e(y)h(una)g (segunda)g(que)h(ob-)-13 1579 y(tiene)13 b(cierta)g(medida)h (\\normalizada")e(de)h(los)g(errores)f(\(o)g(aciertos\))g(aso)q(ciados) g(a)h(dic)o(ha)g(transformaci\023)-23 b(on.)-13 1636 y(El)15 b(apartado)f(3)h(revisa)g(cr)-5 b(\023)-18 b(\020ticamen)o(te) 16 b(algunos)f(de)g(los)g(criterios)h(de)f(normalizaci\023)-23 b(on)17 b(considerados)e(en)h(la)-13 1692 y(literatura)g(\(que)g(p)q(o) q(dr\023)-23 b(an)17 b(v)o(erse)f(como)g(casos)f(particulares)i(de)g (lo)f(que)h(denominaremos)f(\\funciones)h(de)-13 1749 y(tasa"\).)e(Existen)i(ciertas)g(\\incoherencias")h(en)g(la)f (aplicaci\023)-23 b(on)19 b(de)e(determinadas)g(funciones)h(de)g(tasa)e (al)-13 1805 y(resultado)h(de)g(optimizar)g(ciertos)g(criterios)g(de)g (edici\023)-23 b(on.)18 b(El)f(apartado)f(3.3)f(de\014ne)j(la)f (coherencia)h(en)o(tre)-13 1861 y(una)e(funci\023)-23 b(on)17 b(de)f(tasa)f(y)h(un)g(criterio)h(de)f(edici\023)-23 b(on)18 b(e)e(indica)i(qu)o(\023)-21 b(e)15 b(criterios)h(son)g (coheren)o(tes)g(con)g(las)g(fun-)-13 1918 y(ciones)i(de)g(tasa)f (previamen)o(te)h(presen)o(tadas.)e(La)i(funci\023)-23 b(on)19 b(de)e(tasa)g(que)h(denominaremos)g(\\p)q(orcen)o(ta)s(je)-13 1974 y(real)f(de)f(errores",)f(en)i(n)o(uestra)f(la)h(opini\023)-23 b(on)18 b(la)e(m\023)-23 b(as)16 b(con)o(v)o(enien)o(te)h(de)g(cuan)o (tas)f(v)o(eremos,)f(resulta)i(no)f(ser)-13 2031 y(coheren)o(te)h(con)f (los)h(criterios)h(de)f(edici\023)-23 b(on)18 b(usualmen)o(te)g (empleados)f(en)g(la)g(pr\023)-23 b(actica.)16 b(En)h(el)h(apartado)d (4)-13 2087 y(se)h(prop)q(one)g(un)g(m)o(\023)-21 b(eto)q(do)14 b(de)j(ev)m(aluaci\023)-23 b(on)17 b(computacionalmen)o(te)g(e\014cien) o(te)g(y)e(que)i(aplica)f(la)g(funci\023)-23 b(on)17 b(de)-13 2144 y(tasa)c(\\p)q(orcen)o(ta)s(je)g(real)h(de)g(errores")f (al)i(resultado)f(de)g(optimizar)h(un)f(criterio)g(de)h(edici\023)-23 b(on)16 b(coheren)o(te.)d(El)-13 2200 y(apartado)g(5)g(se)i(dedica)g(a) f(la)g(presen)o(taci\023)-23 b(on)15 b(de)f(unos)g(exp)q(erimen)o(tos)h (preliminares)h(cuy)o(o)e(ob)s(jeto)f(es)h(com-)-13 2257 y(parar)g(diferen)o(tes)i(com)o(binaciones)g(de)f(un)g(criterio)h(de)f (edici\023)-23 b(on)17 b(con)e(una)g(funci\023)-23 b(on)16 b(de)f(tasa.)e(Finalmen)o(te,)-13 2313 y(en)i(el)h(apartado)e(6)h(se)h (apun)o(tan)f(algunas)g(conclusiones.)-13 2471 y FB(2.)46 b(Medidas)22 b(de)f(disimilitud)g(de)g(cadenas)-13 2577 y FG(Sea)15 b(\006)g(un)h(alfab)q(eto)g(tal)f(que)h(es)f(p)q(osible)i (expresar)e(las)h(in)o(terpretaciones)g(de)g(una)f(pron)o(unciaci\023) -23 b(on)17 b(como)-13 2634 y(cadenas)k(de)g(\006)261 2617 y Fu(+)311 2634 y FG(\(p)q(or)g(ejemplo,)g(\006)g(puede)h(ser)e (un)i(conjun)o(to)e(de)h(fonemas)g(o)f(palabras\).)g(Dada)h(una)-13 2690 y(cadena)c Fz(x)d Ft(2)h FG(\006)258 2674 y Fu(+)287 2690 y FG(,)h(notamos)f(su)i(talla)g(con)f Ft(j)p Fz(x)p Ft(j)g FG(y)g(nos)g(referimos)g(a)h(su)f Fz(i)p FG(-)o(\023)-21 b(esimo)15 b(s)-5 b(\023)-18 b(\020m)o(b)q(olo)18 b(p)q(or)e Fz(x)1670 2697 y Fs(i)1684 2690 y FG(.)g(Con)g(el)p -13 2743 743 2 v 8 2772 a Fr(1)36 2788 y Fx(Lo)10 b(que)h(se)g(pretende)g (ev)n(aluar)h(en)f([PS91])f(no)h(es)f(un)h(sistema)h(de)f(recono)q (cimien)o(to)i(autom\023)-19 b(atico)12 b(del)f(habla,)h(sino)f(un)g (trans-)44 2834 y(criptor)17 b(ortogr\023)-19 b(a\014co-fon)o(\023)h (etico)18 b(\(y)e(fon)o(\023)-18 b(etico-ortogr\023)f(a\014co\))17 b(de)f(palabras)i(aisladas.)g(Sin)e(em)o(bargo,)h(el)f(problema)h (formal)44 2879 y(sub)o(y)o(acen)o(te)e(es)e(el)g(mismo.)1820 3074 y FG(1)p eop %%Page: 2 8 2 7 bop 600 -33 a Fv(El)15 b(pr)n(oblema)i(de)f(la)g(evaluaci\023)-23 b(on)17 b(de)f(un)g(sistema)g(de)g(r)n(e)n(c)n(ono)n(cimiento)p Fz(:)8 b(:)g(:)p 37 -16 1857 2 v 37 110 a FG(s)-5 b(\023)-18 b(\020m)o(b)q(olo)16 b Fz(\017)g FG(represen)o(tamos)e(la)i(cadena)f(v) m(ac)-5 b(\023)-18 b(\020a.)83 167 y(Si)16 b(bien)h(se)f(ha)g(de)g(ev)m (aluar)g(el)h(sistema)e(de)h(recono)q(cimien)o(to)h(a)e(tra)o(v)o(\023) -21 b(es)14 b(de)i(un)g Fv(c)n(onjunto)f FG(de)h(pares)g(for-)37 224 y(mados)d(p)q(or)h(la)g(in)o(terpretaci\023)-23 b(on)14 b(correcta)f(y)g(la)h(prop)q(orcionada)g(p)q(or)g(el)g(sistema)f (corresp)q(ondien)o(tes)i(a)e(una)37 280 y(determinada)19 b(pron)o(unciaci\023)-23 b(on,)19 b(in)o(tro)q(ducimos)g(ahora)e (algunos)h(conceptos)f(elemen)o(tales)j(considerando)37 337 y(que)d(disp)q(onemos)g(de)f(un)i(\023)-24 b(unico)17 b(par)f(\()p Fz(c;)8 b(s)p FG(\))14 b(de)j(cadenas)f(de)h(\006)1139 320 y Fu(+)1168 337 y FG(.)f(La)g(ev)m(aluaci\023)-23 b(on)18 b(se)e(realizar\023)-23 b(a)16 b(en)o(tonces)37 393 y(a)f(partir)g(de)h(ciertas)f(op)q(eraciones)h(elemen)o(tales)h (necesarias)f(para)e(transformar)g Fz(c)g FG(en)i Fz(s)p FG(.)37 521 y Fq(2.1)53 b(Revisi\023)-27 b(on)16 b(de)i(edici\023)-27 b(on)17 b(de)i(cadenas)37 635 y FJ(De\014nici\023)-26 b(on)24 b(1)d(\(Op)q(eraci\023)-26 b(on)24 b(de)e(edici\023)-26 b(on\))20 b FG(Una)f(op)q(eraci\023)-23 b(on)19 b(de)h(edici\023)-23 b(on)20 b(es)f(un)h(par)e(\()p Fz(a;)8 b(b)p FG(\))17 b Ft(6)p FG(=)i(\()p Fz(\017;)8 b(\017)p FG(\))37 691 y(donde)16 b(tan)o(to)e Fz(a)h FG(como)g Fz(b)g FG(son)g(cadenas)g (sobre)g(\006)g(de)h(longitud)g(0)f(\023)-23 b(o)15 b(1.)37 749 y Fp(2)83 832 y FG(La)g(op)q(eraci\023)-23 b(on)15 b(de)g(edici\023)-23 b(on)17 b(\()p Fz(a;)8 b(b)p FG(\))13 b(se)i(suele)h(escribir)g(como)e Fz(a)f Ft(!)g Fz(b)h FG(y)h(p)q(ermite)g(transformar)e(la)i(cadena)37 889 y Fz(\013a\014)21 b FG(en)d Fz(\013b\014)i FG(para)d(cualesquiera)j Fz(\013)e FG(y)g Fz(\014)i FG(de)e(\006)892 872 y Fo(\003)912 889 y FG(.)f(Existen)i(cuatro)e(tip)q(os)h(de)h(op)q(eraciones)g(de)f (edici\023)-23 b(on:)37 945 y Fv(sustituciones)p FG(,)17 b Fv(inser)n(ciones)p FG(,)d Fv(b)n(orr)n(ados)k FG(y)f Fv(aciertos)p FG(,)g(que)h(toman)e(las)i(formas)e Fz(a)h Ft(!)f Fz(b)p FG(,)h Fz(\017)f Ft(!)h Fz(a)p FG(,)g Fz(a)f Ft(!)h Fz(\017)g FG(y)37 1002 y Fz(a)e Ft(!)f Fz(a)p FG(,)i(resp)q(ectiv)m(amen)o(te,)h(con)g Fz(a)p FG(,)e Fz(b)f Ft(2)h FG(\006,)g Fz(a)g Ft(6)p FG(=)f Fz(b)p FG(.)i(Los)g(tres)g(primeros)g(tip)q(os)g(de)h(op)q(eraci\023)-23 b(on)17 b(de)g(edici\023)-23 b(on)37 1058 y(recib)q(en)17 b(el)f(nom)o(bre)f(gen)o(\023)-21 b(erico)15 b(de)h Fv(err)n(or)n(es)i FG(de)e(edici\023)-23 b(on.)37 1142 y FJ(De\014nici\023)d(on)22 b(2)e(\(Secuencia)h(de)f(edici\023)-26 b(on\))18 b FG(Una)g Fv(se)n(cuencia)f(de)h(e)n(dici\023)-23 b(on)16 b FG(\(\\edit)i (sequence")g([WF74)n(],)37 1198 y(\\listing")e([SK83]\))e(de)h Fz(c)f FG(a)g Fz(s)h FG(es)g(una)g(secuencia)h(de)f(op)q(eraciones)h (de)f(edici\023)-23 b(on)17 b(que)e(p)q(ermite)g(transformar)37 1255 y Fz(c)g FG(en)h Fz(s)p FG(.)37 1312 y Fp(2)83 1395 y FG(Un)k(caso)e(particular)i(de)g(transformaci\023)-23 b(on)19 b(de)g(edici\023)-23 b(on)21 b(que)f(restringe)g(con)o(v)o (enien)o(temen)o(te)g(el)g(mo)q(do)37 1452 y(en)15 b(que)g(las)g(op)q (eraciones)h(de)f(edici\023)-23 b(on)16 b(pueden)g(aplicarse)f(es)g(la) g(denominada)g Fv(tr)n(aza)h(de)g(e)n(dici\023)-23 b(on)14 b FG(\(\\trace")37 1508 y([WF74)o(,)e(SK83]\))f(de)i Fz(c)e FG(a)h Fz(s)p FG(.)g(Una)g(notaci\023)-23 b(on)13 b(equiv)m(alen)o(te)h(es)e(el)h(llamado)f Fv(c)n(amino)i(de)f(e)n (dici\023)-23 b(on)12 b FG(\(\\edit)g(path")37 1565 y([SK83]\).)37 1648 y FJ(De\014nici\023)-26 b(on)21 b(3)e(\(T)l(raza)g(de)g(edici\023) -26 b(on\))18 b FG(Una)e(traza)g(de)g(edici\023)-23 b(on)18 b(de)f Fz(c)f FG(a)g Fz(s)p FG(,)g Fz(E)1419 1655 y Fs(c;s)1478 1648 y FG(\(o)g(simplemen)o(te)i Fz(E)s FG(,)d(si)37 1705 y(se)h(sobreen)o(tienden)g Fz(c)f FG(y)g Fz(s)p FG(\),)g(es)g(un)h(sub)q(conjun)o(to)g(de)f Ft(f)p FG(1)p Fz(;)8 b FG(2)p Fz(;)g(:)g(:)f(:)t(;)h Ft(j)p Fz(c)p Ft(jg)g(\002)j(f)p FG(1)p Fz(;)d FG(2)p Fz(;)g(:)g(:)f(:)t(;)h Ft(j)p Fz(s)p Ft(jg)14 b FG(que)h(satisface)555 1842 y Ft(8)p FG(\()p Fz(i;)8 b(j)s FG(\))p Fz(;)g FG(\()p Fz(i)729 1823 y Fo(0)738 1842 y Fz(;)g(j)781 1823 y Fo(0)791 1842 y FG(\))k Ft(2)h Fz(E)898 1849 y Fs(c;s)994 1770 y Fn(\()1049 1814 y Fz(i)f FG(=)h Fz(i)1141 1797 y Fo(0)1165 1814 y Ft(\))g Fz(j)i FG(=)e Fz(j)1327 1797 y Fo(0)1338 1814 y Fz(;)1049 1870 y(i)f(<)h(i)1141 1854 y Fo(0)1165 1870 y Ft(\))g Fz(j)i(<)e(j)1327 1854 y Fo(0)1338 1870 y Fz(:)37 1966 y Fp(2)83 2050 y FG(P)o(o)q(demos)j(aso)q(ciar)h(a)g (cada)f(traza)g(de)i(edici\023)-23 b(on)18 b Fz(E)h FG(de)f Fz(c)e FG(a)h Fz(s)g FG(una)g(secuencia)h(de)g(edici\023)-23 b(on)18 b(que)g(p)q(ermite)37 2106 y(transformar)c Fz(c)h FG(en)g Fz(s)h FG(median)o(te)f(las)h(siguien)o(tes)g(op)q(eraciones)g (de)g(edici\023)-23 b(on:)106 2201 y Ft(\017)22 b FG(una)15 b(sustituci\023)-23 b(on)17 b(\()p Fz(c)508 2208 y Fs(i)534 2201 y Ft(!)c Fz(s)613 2208 y Fs(j)631 2201 y FG(\))i(p)q(or)h(cada)f (\()p Fz(i;)8 b(j)s FG(\))i Ft(2)j Fz(E)k FG(tal)e(que)h Fz(c)1225 2208 y Fs(i)1251 2201 y Ft(6)p FG(=)d Fz(s)1320 2208 y Fs(j)1339 2201 y FG(;)106 2297 y Ft(\017)22 b FG(una)15 b(inserci\023)-23 b(on)17 b(\()p Fz(\017)c Ft(!)g Fz(s)557 2304 y Fs(j)576 2297 y FG(\))h(p)q(or)i(cada)f Fz(j)g Ft(2)e(f)p FG(1)p Fz(;)8 b FG(2)p Fz(;)g(:)f(:)h(:)t(;)g Ft(j)p Fz(s)p Ft(jg)13 b FG(tal)j(que)f(no)g(existe)h(\()p Fz(i;)8 b(j)s FG(\))i Ft(2)j Fz(E)s FG(;)106 2393 y Ft(\017)22 b FG(un)16 b(b)q(orrado)e(\()p Fz(c)425 2400 y Fs(i)452 2393 y Ft(!)f Fz(\017)p FG(\))i(p)q(or)g(cada)g Fz(i)d Ft(2)h(f)p FG(1)p Fz(;)8 b FG(2)p Fz(;)g(:)g(:)f(:)e(;)j Ft(j)p Fz(c)p Ft(jg)13 b FG(tal)i(que)g(no)g(existe)h(\()p Fz(i;)8 b(j)s FG(\))i Ft(2)j Fz(E)s FG(;)106 2489 y Ft(\017)22 b FG(un)16 b(acierto)f(\()p Fz(c)404 2496 y Fs(i)430 2489 y Ft(!)e Fz(s)509 2496 y Fs(j)528 2489 y FG(\))h(p)q(or)i(cada)f (\()p Fz(i;)8 b(j)s FG(\))i Ft(2)j Fz(E)k FG(tal)e(que)h Fz(c)1121 2496 y Fs(i)1147 2489 y FG(=)d Fz(s)1216 2496 y Fs(j)1235 2489 y FG(.)37 2598 y FA(Ejemplo:)21 b FG(Sea)e(el)h(alfab) q(eto)g(\006)f(=)h Ft(f)p Fm(x)p Fz(;)8 b Fm(y)p Fz(;)g Fm(z)p Ft(g)16 b FG(y)k(sean)f Fz(c)g FG(=)h Fm(xxyxzzx)o FG(,)f Fz(s)g FG(=)h Fm(xxxzzyxx)e FG(dos)i(cadenas)f(de)151 2654 y(\006)184 2638 y Fu(+)213 2654 y FG(.)14 b(En)g(la)g(Figura)g(1)g (se)g(m)o(uestra)f(una)h(represen)o(taci\023)-23 b(on)15 b(gr\023)-23 b(a\014ca)13 b(de)i(una)f Fv(tr)n(aza)h(de)g(e)n(dici\023) -23 b(on)p FG(,)13 b Fz(E)s FG(,)g(un)151 2711 y Fv(c)n(amino)j(de)g(e) n(dici\023)-23 b(on)15 b FG(y)g(una)h Fv(se)n(cuencia)f(de)h(e)n (dici\023)-23 b(on)15 b FG(equiv)m(alen)o(tes.)83 2820 y(Dados)i(un)h(par)f(\()p Fz(c;)8 b(s)p FG(\))16 b(y)h(una)h(traza)f (de)h(edici\023)-23 b(on)19 b Fz(E)h FG(de)e Fz(c)f FG(a)g Fz(s)p FG(,)g(p)q(o)q(demos)h(determinar)g(el)g(n)q(\023)-24 b(umero)18 b(de)37 2876 y(op)q(eraciones)f(de)e(edici\023)-23 b(on)17 b(de)f(cada)f(tip)q(o.)37 3074 y(2)p eop %%Page: 3 9 3 8 bop -13 -33 a Fv(El)16 b(pr)n(oblema)g(de)g(la)g(evaluaci\023)-23 b(on)17 b(de)f(un)g(sistema)g(de)g(r)n(e)n(c)n(ono)n(cimiento)p Fz(:)8 b(:)g(:)p -13 -16 1857 2 v 645 304 a(s)13 b FG(=)732 272 y Fr(1)728 304 y Fm(x)795 272 y Fr(2)790 304 y Fm(x)857 272 y Fr(3)853 304 y Fm(x)919 272 y Fr(4)915 304 y Fm(z)981 272 y Fr(5)977 304 y Fm(z)1044 272 y Fr(6)1039 304 y Fm(y)1106 272 y Fr(7)1102 304 y Fm(x)1168 272 y Fr(8)1164 304 y Fm(x)645 138 y Fz(c)f FG(=)k Fm(x)38 b(x)h(y)f(x)g(z)g(z)h(x)732 167 y Fr(1)47 b(2)h(3)f(4)g(5)h(6)f(7)p 740 250 2 79 v 802 250 V 865 250 a Fl(\034)894 214 y(\034)p 989 250 V 1051 250 V 1143 250 a(\\)1114 214 y(\\)458 367 y Fz(E)15 b FG(=)e Ft(f)p FG(\(1)p Fz(;)8 b FG(1\))p Fz(;)g FG(\(2)o Fz(;)g FG(2)o(\))p Fz(;)f FG(\(4)p Fz(;)g FG(3)o(\))p Fz(;)g FG(\(5)p Fz(;)g FG(5\))o Fz(;)h FG(\()o(6)p Fz(;)f FG(6\))p Fz(;)g FG(\()o(7)p Fz(;)g FG(8\))p Ft(g)894 450 y FJ(\(a\))p 582 1242 2 665 v 665 1242 V 748 1242 V 831 1242 V 914 1242 V 997 1242 V 1080 1242 V 1163 1242 V 583 1243 582 2 v 583 1160 V 583 1077 V 583 994 V 583 911 V 583 828 V 583 745 V 583 662 V 583 579 V 579 1263 a Fr(0)612 1284 y Fm(x)662 1263 y Fr(1)695 1284 y Fm(x)745 1263 y Fr(2)778 1284 y Fm(y)828 1263 y Fr(3)861 1284 y Fm(x)911 1263 y Fr(4)944 1284 y Fm(z)994 1263 y Fr(5)1027 1284 y Fm(z)1077 1263 y Fr(6)1110 1284 y Fm(x)1160 1263 y Fr(7)562 1251 y(0)537 1213 y Fm(x)562 1168 y Fr(1)537 1130 y Fm(x)562 1085 y Fr(2)537 1047 y Fm(x)562 1002 y Fr(3)537 964 y Fm(z)562 919 y Fr(4)537 881 y Fm(z)562 836 y Fr(5)537 798 y Fm(y)562 753 y Fr(6)537 715 y Fm(x)562 670 y Fr(7)537 632 y Fm(x)562 587 y Fr(8)583 1242 y Fk(\000)624 1201 y(\000)-42 b(\022)666 1159 y(\000)707 1118 y(\000)g(\022)p 749 1078 84 4 v 790 1076 a(-\000)873 1035 y(\000)g(\022)p 913 993 4 84 v -83 x(6)915 910 y(\000)956 869 y(\000)g(\022)998 827 y(\000)1039 786 y(\000)g(\022)p 1079 744 V -83 x(6)1081 661 y(\000)1122 620 y(\000)g(\022)857 1367 y FJ(\(b\))304 1526 y Fz(c)13 b FG(=)g Fm(xxyxzzx)559 1501 y Fj(x)p Fo(!)p Fj(x)574 1526 y Ft(\))22 b Fm(xxyxzzx)816 1501 y Fj(x)p Fo(!)p Fj(x)830 1526 y Ft(\))h Fm(xxyxzzx)1073 1496 y Fj(y)p Fo(!)p Fs(\017)1084 1526 y Ft(\))d Fm(xxxzzx)1300 1501 y Fj(x)p Fo(!)p Fj(x)1315 1526 y Ft(\))i Fm(xxxzzx)217 1610 y Fs(\017)p Fo(!)p Fj(z)229 1635 y Ft(\))e Fm(xxxzzzx)469 1610 y Fj(z)p Fo(!)p Fj(z)483 1635 y Ft(\))j Fm(xxxzzzx)725 1606 y Fj(z)p Fo(!)p Fj(y)740 1635 y Ft(\))g Fm(xxxzzyx)982 1610 y Fs(\017)p Fo(!)p Fj(x)994 1635 y Ft(\))d Fm(xxxzzyxx)1257 1610 y Fj(x)p Fo(!)p Fj(x)1272 1635 y Ft(\))i Fm(xxxzzyxx)12 b FG(=)h Fz(s)863 1719 y FG(\()p FJ(c)p FG(\))-13 1866 y(Figura)i(1:)f FJ(\(a\))f FG(T)l(raza)d(de)i(edici\023)-23 b(on)13 b(de)f Fz(c)f FG(a)g Fz(s)p FG(.)g FJ(\(b\))h FG(Camino)g(de)f(edici\023)-23 b(on.)13 b(En)f(la)f(represen)o (taci\023)-23 b(on)12 b(gr\023)-23 b(a\014ca,)11 b(las)183 1922 y(\015ec)o(has)16 b(diagonales)g(corresp)q(onden)g(a)f (sustituciones)i(y)e(aciertos,)g(mien)o(tras)g(las)g(horizon)o(tales) 183 1978 y(y)g(v)o(erticales)h(son)f(b)q(orrados)g(e)g(inserciones,)i (resp)q(ectiv)m(amen)o(te.)f FJ(\(c\))g FG(Secuencia)h(de)f(edici\023) -23 b(on.)-13 2122 y FJ(De\014nici\023)d(on)24 b(4)f(\(N)q(\023)-28 b(umero)23 b(de)g(errores)e(y)i(aciertos)g(de)g(edici\023)-26 b(on\))21 b FG(Dada)f(una)g(traza)f(de)h(edici\023)-23 b(on)-13 2178 y Fz(E)21 b FG(de)e(un)g(par)f(de)h(in)o(terpretaciones)h (\()p Fz(c;)8 b(s)p FG(\))17 b(denotaremos)h(su)g(n)q(\023)-24 b(umero)19 b(de)g(errores)f(de)h(sustituci\023)-23 b(on,)19 b(de)-13 2235 y(errores)12 b(de)h(inserci\023)-23 b(on,)14 b(de)f(errores)f(de)i(b)q(orrado)e(y)g(de)i(aciertos,)e(resp)q(ectiv)m (amen)o(te,)h(median)o(te)h Fz(n)1659 2242 y Fs(s)1677 2235 y FG(\()p Fz(E)s(;)8 b(c;)g(s)p FG(\),)-13 2291 y Fz(n)14 2298 y Fs(i)28 2291 y FG(\()p Fz(E)s(;)g(c;)g(s)p FG(\),)k Fz(n)236 2298 y Fs(b)253 2291 y FG(\()p Fz(E)s(;)c(c;)g(s)p FG(\))k(y)k Fz(n)488 2298 y Fs(a)509 2291 y FG(\()p Fz(E)s(;)8 b(c;)g(s)p FG(\):)208 2404 y Fz(n)235 2411 y Fs(s)254 2404 y FG(\()p Fz(E)s(;)g(c;)g(s)p FG(\))h(=)k(card)8 b(\()o Ft(f)p FG(\()p Fz(i;)g(j)s FG(\))i Ft(2)j Fz(E)i Ft(j)d Fz(c)843 2411 y Fs(i)870 2404 y Ft(6)p FG(=)h Fz(s)939 2411 y Fs(j)957 2404 y Ft(g)p FG(\))7 b Fz(;)744 b FG(\(1a\))212 2473 y Fz(n)239 2480 y Fs(i)254 2473 y FG(\()p Fz(E)s(;)8 b(c;)g(s)p FG(\))h(=)k(card)561 2438 y Fn(\000\010)604 2473 y Fz(j)i Ft(2)e(f)p FG(1)p Fz(;)8 b FG(2)p Fz(;)g(:)g(:)f(:)t(;)h Ft(j)p Fz(s)p Ft(jg)j(j)977 2469 y Fz(=)977 2473 y Ft(9)p Fz(i)i Ft(2)g(f)p FG(1)p Fz(;)8 b FG(2)p Fz(;)g(:)g(:)f(:)t(;)h Ft(j)p Fz(c)p Ft(jg)j FG(:)h(\()p Fz(i;)c(j)s FG(\))i Ft(2)j Fz(E)1554 2438 y Fn(\011)o(\001)1604 2473 y Fz(;)143 b FG(\(1b\))209 2542 y Fz(n)236 2549 y Fs(b)254 2542 y FG(\()p Fz(E)s(;)8 b(c;)g(s)p FG(\))h(=)k(card)561 2507 y Fn(\000\010)604 2542 y Fz(i)f Ft(2)h(f)p FG(1)p Fz(;)8 b FG(2)p Fz(;)g(:)g(:)f(:)t(;)h Ft(j)p Fz(c)p Ft(jg)j(j)970 2538 y Fz(=)970 2542 y Ft(9)p Fz(j)k Ft(2)e(f)p FG(1)p Fz(;)8 b FG(2)p Fz(;)g(:)g(:)f(:)t(;)h Ft(j)p Fz(s)p Ft(jg)k FG(:)g(\()p Fz(i;)c(j)s FG(\))i Ft(2)j Fz(E)1554 2507 y Fn(\011)o(\001)1604 2542 y Fz(;)148 b FG(\(1c\))206 2611 y Fz(n)233 2618 y Fs(a)254 2611 y FG(\()p Fz(E)s(;)8 b(c;)g(s)p FG(\))h(=)k(card)8 b(\()o Ft(f)p FG(\()p Fz(i;)g(j)s FG(\))i Ft(2)j Fz(E)i Ft(j)d Fz(c)843 2618 y Fs(i)870 2611 y FG(=)h Fz(s)939 2618 y Fs(j)957 2611 y Ft(g)p FG(\))7 b Fz(:)742 b FG(\(1d\))-13 2728 y Fp(2)32 2820 y FG(En)14 b(lo)g(sucesiv)o(o,)g(sobreen)o (tenderemos)f(el)i(par)e(\()p Fz(c;)8 b(s)p FG(\))k(en)i(las)g (funciones)h Fz(n)1309 2827 y Fs(s)1328 2820 y FG(,)e Fz(n)1381 2827 y Fs(i)1395 2820 y FG(,)g Fz(n)1448 2827 y Fs(b)1479 2820 y FG(y)h Fz(n)1544 2827 y Fs(a)1565 2820 y FG(,)f(de)h(mo)q(do)f(que)-13 2876 y(s\023)-23 b(olo)15 b(haremos)g(expl)-5 b(\023)-18 b(\020cita)17 b(su)e(dep)q(endencia)j(resp)q(ecto)d(a)g(la)h(traza)e(de)i(edici\023) -23 b(on)17 b Fz(E)s FG(.)1820 3074 y(3)p eop %%Page: 4 10 4 9 bop 600 -33 a Fv(El)15 b(pr)n(oblema)i(de)f(la)g(evaluaci\023)-23 b(on)17 b(de)f(un)g(sistema)g(de)g(r)n(e)n(c)n(ono)n(cimiento)p Fz(:)8 b(:)g(:)p 37 -16 1857 2 v 83 110 a FG(De)16 b(acuerdo)g(con)h (estas)f(de\014niciones)i(p)q(o)q(demos)f(observ)m(ar)f(que,)g(para)g (to)q(da)g(traza)f(de)i(edici\023)-23 b(on)18 b(de)f(un)37 167 y(par)e(\()p Fz(c;)8 b(s)p FG(\),)670 269 y Fz(n)697 276 y Fs(s)715 269 y FG(\()p Fz(E)s FG(\))h(+)i Fz(n)870 276 y Fs(b)887 269 y FG(\()p Fz(E)s FG(\))e(+)h Fz(n)1041 276 y Fs(a)1062 269 y FG(\()p Fz(E)s FG(\))h(=)i Ft(j)p Fz(c)p Ft(j)p Fz(;)560 b FG(\(2a\))673 338 y Fz(n)700 345 y Fs(s)719 338 y FG(\()p Fz(E)s FG(\))8 b(+)j Fz(n)873 345 y Fs(i)887 338 y FG(\()p Fz(E)s FG(\))e(+)h Fz(n)1041 345 y Fs(a)1062 338 y FG(\()p Fz(E)s FG(\))h(=)i Ft(j)p Fz(s)p Ft(j)p Fz(;)556 b FG(\(2b\))37 441 y(pues)17 b(cada)f(s)-5 b(\023)-18 b(\020m)o(b)q(olo)17 b(de)g(la)g(cadena)f Fz(c)g FG(participa)h(en)g(una)f(y)g(s\023)-23 b(olo)17 b(una)f(op)q(eraci\023)-23 b(on,)17 b(bien)g(de)g(sustituci\023)-23 b(on,)37 498 y(bien)23 b(de)e(acierto)g(o)g(bien)h(de)f(b)q(orrado.)f (Un)h(razonamien)o(to)g(an\023)-23 b(alogo)20 b(se)h(puede)h(aplicar)g (a)f(la)g(cadena)37 554 y Fz(s)p FG(,)g(cuy)o(os)f(s)-5 b(\023)-18 b(\020m)o(b)q(olos)21 b(participan)h(en)f(op)q(eraciones)g (de)g(sustituci\023)-23 b(on,)22 b(acierto)e(e)h(inserci\023)-23 b(on.)22 b(As)-5 b(\023)-18 b(\020)21 b(mismo,)37 611 y(resultar\023)-23 b(a)17 b(\023)-24 b(util)16 b(m\023)-23 b(as)14 b(adelan)o(te)i(la)f(diferencia)i(en)o(tre)e(las)h(tallas)f(de) h Fz(c)f FG(y)g Fz(s)p FG(:)401 713 y(\001)p Fz(l)e FG(=)g Ft(j)p Fz(s)p Ft(j)d(\000)g(j)p Fz(c)p Ft(j)1173 b FG(\(3\))466 782 y(=)13 b Fz(n)541 789 y Fs(s)560 782 y FG(\()p Fz(E)s FG(\))8 b(+)j Fz(n)714 789 y Fs(i)728 782 y FG(\()p Fz(E)s FG(\))e(+)h Fz(n)882 789 y Fs(a)903 782 y FG(\()p Fz(E)s FG(\))f Ft(\000)h FG(\()p Fz(n)1075 789 y Fs(s)1094 782 y FG(\()p Fz(E)s FG(\))e(+)j Fz(n)1248 789 y Fs(b)1265 782 y FG(\()p Fz(E)s FG(\))e(+)h Fz(n)1419 789 y Fs(a)1441 782 y FG(\()p Fz(E)s FG(\)\))466 851 y(=)j Fz(n)541 858 y Fs(i)555 851 y FG(\()p Fz(E)s FG(\))c Ft(\000)i Fz(n)710 858 y Fs(b)727 851 y FG(\()p Fz(E)s FG(\))p Fz(:)37 958 y FA(Ejemplo:)21 b FG(En)15 b(el)h(ejemplo)f(an)o(terior)g(se)g(tiene)h (que)f Ft(j)p Fz(c)p Ft(j)d FG(=)h(7,)h Ft(j)p Fz(s)p Ft(j)e FG(=)h(8,)h Fz(n)1286 965 y Fs(s)1317 958 y FG(=)f(1,)i Fz(n)1443 965 y Fs(i)1470 958 y FG(=)e(2,)h Fz(n)1595 965 y Fs(b)1625 958 y FG(=)f(1,)h Fz(n)1750 965 y Fs(a)1784 958 y FG(=)f(5)h(y)151 1014 y(\001)p Fz(l)f FG(=)g(1.)83 1121 y(P)o(o)q(demos)k(asumir)g(la)g(existencia)i(de)e(una)g(funci\023) -23 b(on)19 b Fz(\015)g FG(que)e(asigna)g(un)h(p)q(eso)f Fz(\015)s FG(\()p Fz(\033)r FG(\))e(a)i(cada)g(op)q(eraci\023)-23 b(on)37 1177 y(de)16 b(edici\023)-23 b(on)18 b Fz(\033)d FG(=)f Fz(a)f Ft(!)h Fz(b)p FG(.)g(Esta)h(funci\023)-23 b(on)17 b(puede)g(extenderse)f(a)f(secuencias)i(de)f(edici\023)-23 b(on)18 b Fi(\033)d FG(=)f Fz(\033)1701 1184 y Fu(1)1720 1177 y Fz(\033)1746 1184 y Fu(2)1774 1177 y Fz(:)8 b(:)g(:)d(\033)1860 1184 y Fs(m)37 1234 y FG(como)797 1310 y Fz(\015)s FG(\()p Fi(\033)q FG(\))12 b(=)966 1257 y Fs(m)952 1270 y Fn(X)954 1361 y Fs(i)p Fu(=1)1020 1310 y Fz(\015)s FG(\()p Fz(\033)1091 1317 y Fs(i)1103 1310 y FG(\))p Fz(:)83 1429 y FG(Esta)i(p)q (onderaci\023)-23 b(on)17 b(p)q(ermite)f(establecer)g(una)f(medida)h (de)g(disimilitud)i(en)o(tre)d(cadenas:)37 1511 y FJ(De\014nici\023)-26 b(on)16 b(5)d(\(Distancia)j(\(p)q(onderada\))g(de)d(edici\023)-26 b(on\))14 b FG(La)e(distancia)h(de)f(edici\023)-23 b(on)14 b(\(\\edit)e(distance")37 1567 y([WF74)o(]\),)i(p)q(onderada)i(p)q(or)f (la)g(funci\023)-23 b(on)17 b Fz(\015)s FG(,)d(en)o(tre)h(dos)g (cadenas)g Fz(c)g FG(y)g Fz(s)g FG(se)h(de\014ne)g(como:)353 1670 y Fz(\016)373 1677 y Fs(\015)396 1670 y FG(\()p Fz(c;)8 b(s)p FG(\))j(=)i(min)q Ft(f)p Fz(\015)s FG(\()p Fi(\033)p FG(\))f Ft(j)h Fi(\033)k FG(es)e(una)g(secuencia)i(de)f (edici\023)-23 b(on)17 b(de)e Fz(c)g FG(a)g Fz(s)p Ft(g)p Fz(:)257 b FG(\(4\))37 1773 y Fp(2)83 1855 y FG(W)l(agner)15 b(y)h(Fisc)o(her)g(demostraron)f(que)h(\(ba)s(jo)e(la)i(asunci\023)-23 b(on)17 b(de)f(que)g Fz(\015)s FG(\()p Fz(a)d Ft(!)h Fz(b)p FG(\))f(=)g Fz(\016)1562 1862 y Fs(\015)1585 1855 y FG(\()p Fz(a;)8 b(b)p FG(\))14 b(para)h(to)q(do)37 1912 y Fz(a)p FG(,)20 b Fz(b)f Ft(2)i FG(\006)13 b Ft([)g(f)p Fz(\017)p Ft(g)p FG(\),)19 b Fz(\016)407 1919 y Fs(\015)429 1912 y FG(\()p Fz(c;)8 b(s)p FG(\))19 b(puede)h(obtenerse)g (considerando)h(s\023)-23 b(olo)20 b(secuencias)h(de)f(edici\023)-23 b(on)21 b(aso)q(ciadas)37 1968 y(a)e(trazas)e(o)h(caminos)h(de)g (edici\023)-23 b(on)20 b([WF74)o(].)d(La)i(siguien)o(te)h(relaci\023) -23 b(on)19 b(de)g(recurrencia,)g(tam)o(bi)o(\023)-21 b(en)18 b(debida)37 2025 y(a)e(W)l(agner)g(y)g(Fisc)o(her,)g(conduce)h (directamen)o(te,)f(median)o(te)g(la)h(t)o(\023)-21 b(ecnica)16 b(algor)-5 b(\023)-18 b(\020tmica)16 b(de)g(Programaci\023)-23 b(on)37 2081 y(Din\023)g(amica,)16 b(a)f(pro)q(cedimien)o(tos)h (iterativ)o(os)f(para)g(el)h(c\023)-23 b(omputo)15 b(de)g Fz(\016)1224 2088 y Fs(\015)1247 2081 y FG(\()p Fz(c;)8 b(s)p FG(\))13 b([WF74)o(]:)305 2184 y Fz(\016)325 2191 y Fs(\015)347 2184 y FG(\()p Fz(c)385 2191 y Fu(1)412 2184 y Fz(:)8 b(:)g(:)d(c)492 2191 y Fs(i)506 2184 y Fz(;)j(s)548 2191 y Fu(1)575 2184 y Fz(:)g(:)g(:)d(s)656 2191 y Fs(j)675 2184 y FG(\))12 b(=)h(min)q Ft(f)p Fz(\016)872 2191 y Fs(\015)894 2184 y FG(\()p Fz(c)932 2191 y Fu(1)959 2184 y Fz(:)8 b(:)g(:)d(c)1039 2191 y Fs(i)p Fo(\000)p Fu(1)1098 2184 y Fz(;)j(s)1140 2191 y Fu(1)1167 2184 y Fz(:)g(:)g(:)e(s)1249 2191 y Fs(j)1267 2184 y FG(\))k(+)g Fz(\015)s FG(\()p Fz(c)1405 2191 y Fs(i)1431 2184 y Ft(!)j Fz(\017)p FG(\))p Fz(;)297 b FG(\(5\))852 2253 y Fz(\016)872 2260 y Fs(\015)894 2253 y FG(\()p Fz(c)932 2260 y Fu(1)959 2253 y Fz(:)8 b(:)g(:)d(c)1039 2260 y Fs(i)1053 2253 y Fz(;)j(s)1095 2260 y Fu(1)1122 2253 y Fz(:)g(:)g(:)e(s)1204 2260 y Fs(j)r Fo(\000)p Fu(1)1267 2253 y FG(\))k(+)g Fz(\015)s FG(\()p Fz(\017)i Ft(!)h Fz(s)1494 2260 y Fs(j)1513 2253 y FG(\))p Fz(;)852 2322 y(\016)872 2329 y Fs(\015)894 2322 y FG(\()p Fz(c)932 2329 y Fu(1)959 2322 y Fz(:)8 b(:)g(:)d(c)1039 2329 y Fs(i)p Fo(\000)p Fu(1)1098 2322 y Fz(;)j(s)1140 2329 y Fu(1)1167 2322 y Fz(:)g(:)g(:)e(s)1249 2329 y Fs(j)r Fo(\000)p Fu(1)1312 2322 y FG(\))k(+)h Fz(\015)s FG(\()p Fz(c)1451 2329 y Fs(i)1476 2322 y Ft(!)i Fz(s)1555 2329 y Fs(j)1573 2322 y FG(\))p Ft(g)p Fz(:)37 2425 y FG(El)i(algoritmo)f(en)h(cuesti\023)-23 b(on)15 b(op)q(era)f(en)h(tiemp)q(o)f(prop)q(orcional)i(al)e(pro)q(ducto)h(de)f (las)h(tallas)f(de)h(los)g(ob)s(jetos)37 2481 y(comparados,)c Fz(\022)q FG(\()p Ft(j)p Fz(c)p Ft(j)l(\001)l(j)p Fz(s)p Ft(j)p FG(\),)e(y)j(espacio)g(prop)q(orcional)h(a)e(la)i(talla)f(de)g (uno)g(de)g(ellos,)h Fz(\022)q FG(\(min)q(\()p Ft(j)p Fz(c)p Ft(j)p Fz(;)8 b Ft(j)p Fz(s)p Ft(j)p FG(\)\))o(.)h(T)l(am)o(bi)o (\023)-21 b(en)37 2538 y(existen)16 b(t)o(\023)-21 b(ecnicas)15 b(para)g(el)h(c\023)-23 b(omputo)15 b(de)g(v)o(ersiones)h(normalizadas) f(de)h(la)f(distancia)h(de)g(edici\023)-23 b(on)17 b([MV93)o(,)37 2594 y(VMA94].)83 2651 y(De)h(in)o(ter)o(\023)-21 b(es)17 b(para)g(los)h(ob)s(jetiv)o(os)f(de)i(este)f(traba)s(jo)e(es)i(la)g(v)m (arian)o(te)g(simpli\014cada)i(de)e(la)g(distancia)h(de)37 2707 y(edici\023)-23 b(on)22 b(an)o(teriormen)o(te)d(de\014nida)i(en)f (la)f(que)h(la)g(funci\023)-23 b(on)21 b Fz(\015)g FG(prop)q(orciona)f (p)q(esos)g Fz(\015)1545 2714 y Fs(s)1563 2707 y FG(,)f Fz(\015)1619 2714 y Fs(i)1632 2707 y FG(,)g Fz(\015)1688 2714 y Fs(b)1705 2707 y FG(,)g Fz(\015)1761 2714 y Fs(a)1801 2707 y Ft(2)h FG(I)-8 b(R)37 2764 y(id)o(\023)-21 b(en)o(ticos)16 b(para)f(las)g(op)q(eraciones)i(de)e(edici\023)-23 b(on)17 b(de)f(un)g(mismo)f(tip)q(o.)h(T)l(eniendo)h(en)e(cuen)o(ta)h(la)f (restricci\023)-23 b(on)37 2820 y(de)18 b(\(4\))e(a)g(secuencias)i(de)g (edici\023)-23 b(on)18 b(aso)q(ciadas)f(a)g(trazas,)e(esta)h(v)m(arian) o(te)h(simpli\014cada)i(corresp)q(onde)f(a)e(la)37 2876 y(siguien)o(te)h(de\014nici\023)-23 b(on:)37 3074 y(4)p eop %%Page: 5 11 5 10 bop -13 -33 a Fv(El)16 b(pr)n(oblema)g(de)g(la)g(evaluaci\023)-23 b(on)17 b(de)f(un)g(sistema)g(de)g(r)n(e)n(c)n(ono)n(cimiento)p Fz(:)8 b(:)g(:)p -13 -16 1857 2 v -13 110 a FJ(De\014nici\023)-26 b(on)14 b(6)e(\(Distancia)j(de)d(edici\023)-26 b(on)14 b(p)q(or)e(con)o(teo)h(p)q(onderado)g(de)f(op)q(eraciones)i(de)e (edici\023)-26 b(on\))259 213 y Fz(\016)279 220 y Fs(\015)297 224 y Fh(s)314 220 y Fs(;\015)342 225 y Fh(i)356 220 y Fs(;\015)384 226 y Fh(b)399 220 y Fs(;\015)427 224 y Fh(a)448 213 y FG(\()p Fz(c;)8 b(s)p FG(\))j(=)49 b(min)605 245 y Fs(E)r Fo(2)p Fs(E)r Fu(\()p Fs(c;s)p Fu(\))761 213 y Fz(\015)785 220 y Fs(s)803 213 y Fz(n)830 220 y Fs(s)848 213 y FG(\()p Fz(E)s FG(\))9 b(+)h Fz(\015)999 220 y Fs(i)1013 213 y Fz(n)1040 220 y Fs(i)1054 213 y FG(\()p Fz(E)s FG(\))f(+)h Fz(\015)1205 220 y Fs(b)1222 213 y Fz(n)1249 220 y Fs(b)1267 213 y FG(\()p Fz(E)s FG(\))e(+)j Fz(\015)1418 220 y Fs(a)1438 213 y Fz(n)1465 220 y Fs(a)1486 213 y FG(\()p Fz(E)s FG(\))p Fz(;)213 b FG(\(6\))-13 342 y(donde)16 b Fz(E)s FG(\()p Fz(c;)8 b(s)p FG(\))13 b(es)i(el)h(conjun)o(to)f(de)g(trazas)f(de)i(edici\023) -23 b(on)17 b(de)f Fz(c)f FG(a)f Fz(s)p FG(.)-13 399 y Fp(2)32 481 y FG(Un)k(caso)f(particular)i(de)f(esta)f(distancia)h(es) g(la)g Fv(Distancia)g(de)h(L)n(evenshtein)p FG(,)c Fz(\016)1437 489 y Fg(lev)1516 481 y FG(,)i(en)h(la)g(que)g Fz(\015)1773 488 y Fs(s)1808 481 y FG(=)-13 538 y Fz(\015)11 545 y Fs(i)37 538 y FG(=)13 b Fz(\015)109 545 y Fs(b)138 538 y FG(=)g(1)i(y)g Fz(\015)287 545 y Fs(a)320 538 y FG(=)e(0:)474 641 y Fz(\016)494 649 y Fg(lev)573 641 y FG(\()p Fz(c;)8 b(s)p FG(\))j(=)49 b(min)730 673 y Fs(E)r Fo(2)p Fs(E)r Fu(\()p Fs(c;s)p Fu(\))886 641 y Fz(n)913 648 y Fs(s)931 641 y FG(\()p Fz(E)s FG(\))9 b(+)h Fz(n)1085 648 y Fs(i)1100 641 y FG(\()p Fz(E)s FG(\))e(+)j Fz(n)1254 648 y Fs(b)1271 641 y FG(\()p Fz(E)s FG(\))p Fz(:)428 b FG(\(7\))32 768 y(F)l(ren)o(te)15 b(a)g(medir)h(la)g(disimilitud)j(en)o(tre)c(dos)g (cadenas)h(como)f(el)h(n)q(\023)-24 b(umero)15 b(de)h(errores)f(de)h (edici\023)-23 b(on)17 b(nece-)-13 824 y(sario)f(para)h(transformar)e (una)h(en)i(otra,)d(p)q(o)q(demos)i(considerar)g(la)g(b)q(\023)-24 b(usqueda)18 b(de)f(la)g(denominada)h(Sub-)-13 881 y(secuencia)d(Com)q (\023)-24 b(un)14 b(M\023)-23 b(as)14 b(Larga)f(\023)-23 b(o)14 b(LCS)g(\()p Fv(L)n(ongest)f(Common)i(Subse)n(quenc)n(e)p FG(\))d([WF74)o(].)h(En)h(este)g(caso,)f(en)-13 937 y(lugar)k(de)g (tratar)f(de)h(minimizar)h(los)g(errores)e(se)h(pretende)h(maximizar)f (los)g(aciertos.)g(P)o(o)q(demos)f(de\014nir)-13 994 y(la)f(talla)h(de)f(la)h(LCS)g(de)f(dos)g(cadenas)h Fz(c)f FG(y)g Fz(s)g FG(como:)646 1097 y Fz(\016)666 1105 y Fg(lcs)739 1097 y FG(\()p Fz(c;)8 b(s)p FG(\))j(=)45 b(max)896 1129 y Fs(E)r Fo(2)p Fs(E)r Fu(\()p Fs(c;s)p Fu(\))1052 1097 y Fz(n)1079 1104 y Fs(a)1100 1097 y FG(\()p Fz(E)s FG(\))p Fz(:)599 b FG(\(8\))-13 1226 y(Esta)18 b(maximizaci\023)-23 b(on)21 b(tam)o(bi)o(\023)-21 b(en)18 b(puede)j(calcularse)f(p)q(or)f(Programaci\023)-23 b(on)19 b(Din\023)-23 b(amica)19 b(\(utilizando)i(la)f(re-)-13 1282 y(currencia)c(\(5\)\))e(si)i(reparamos)e(en)h(el)h(hec)o(ho)g(de)g (que)f Fz(\016)942 1290 y Fg(lcs)1015 1282 y FG(\()p Fz(c;)8 b(s)p FG(\))k(=)h Ft(\000)p Fz(\016)1228 1289 y Fu(0)p Fs(;)p Fu(0)p Fs(;)p Fu(0)p Fs(;)p Fo(\000)p Fu(1)1358 1282 y FG(\()p Fz(c;)8 b(s)p FG(\).)13 b(W)l(agner)i(y)g (Fisc)o(her,)-13 1339 y(p)q(or)h(su)h(parte,)e(sugieren)j(otro)d(m)o (\023)-21 b(eto)q(do)15 b(para)h(calcular)h Fz(\016)997 1347 y Fg(lcs)1087 1339 y FG(a)f(partir)g(del)i(c\023)-23 b(alculo)17 b(p)q(or)g(Programaci\023)-23 b(on)-13 1395 y(Din\023)g(amica)14 b(de)f(una)h(distancia)g(de)g(edici\023)-23 b(on)15 b(p)q(or)e(con)o(teo)g(p)q(onderado)g(de)h(op)q(eraciones)g(de) g(edici\023)-23 b(on:)14 b(utilizar)-13 1452 y(que)h Fz(\016)91 1459 y Fg(lcs)165 1452 y FG(\()p Fz(c;)8 b(s)p FG(\))j(=)i(\()p Ft(j)p Fz(c)p Ft(j)c FG(+)h Ft(j)p Fz(s)p Ft(j)g(\000)g Fz(\016)562 1459 y Fu(2)p Fs(;)p Fu(1)p Fs(;)p Fu(1)p Fs(;)p Fu(0)664 1452 y FG(\()p Fz(c;)e(s)p FG(\)\))p Fz(=)p FG(2)13 b([WF74)o(].)-13 1577 y Fq(2.2)53 b(Equivalencia)17 b(entre)i(criterios)e(de)h(edici\023)-27 b(on)16 b(p)r(o)n(r)h(conteo)g(p)r(onderado)f(de)i(op)r(eraciones)112 1638 y(de)g(edici\023)-27 b(on)-13 1724 y FG(La)19 b(relaci\023)-23 b(on)21 b(en)o(tre)e(las)g(distancias)i Fz(\016)657 1731 y Fu(0)p Fs(;)p Fu(0)p Fs(;)p Fu(0)p Fs(;)p Fo(\000)p Fu(1)806 1724 y FG(y)e Fz(\016)869 1731 y Fu(2)p Fs(;)p Fu(1)p Fs(;)p Fu(1)p Fs(;)p Fu(0)990 1724 y FG(puesta)h(an)o(teriormen) o(te)f(de)g(mani\014esto)h(es)f(tan)-13 1780 y(s\023)-23 b(olo)20 b(un)g(ejemplo)g(de)h(cierta)f(\\redundancia")g(sub)o(y)o (acen)o(te)g(en)g(una)g(form)o(ulaci\023)-23 b(on)21 b(como)e(\(6\).)f(En)i(esta)-13 1837 y(secci\023)-23 b(on)16 b(v)o(eremos)f(c\023)-23 b(omo)15 b(formalizar)h(esta)f (\\redundancia")h(como)f(una)h(relaci\023)-23 b(on)17 b(de)f(equiv)m(alencia)i(en)o(tre)-13 1893 y(las)d(funciones)i(que)e (son)g(minimizadas)i(en)f(el)g(c\023)-23 b(alculo)16 b(de)g(distancias)g(del)g(tip)q(o)g Fz(\016)1401 1900 y Fs(\015)1419 1904 y Fh(s)1436 1900 y Fs(;\015)1464 1905 y Fh(i)1477 1900 y Fs(;\015)1505 1906 y Fh(b)1521 1900 y Fs(;\015)1549 1904 y Fh(a)1570 1893 y FG(.)-13 1976 y FJ(De\014nici\023)-26 b(on)24 b(7)f(\(Criterio)g(de)g(edici\023) -26 b(on\))22 b FG(Denominamos)d(criterio)i(de)f(edici\023)-23 b(on)22 b(a)d(una)h(funci\023)-23 b(on)21 b(que)-13 2032 y(asigna)15 b(un)h(v)m(alor)f(real)h(a)f(cada)g(traza)f(de)h(edici\023) -23 b(on)18 b Fz(E)f FG(de)e(un)h(par)f(de)h(cadenas)f Fz(c)g FG(y)g Fz(s)p FG(.)-13 2089 y Fp(2)32 2171 y FG(De)g(este)h(mo)q (do,)e(si)i(reescribimos)g(\(6\))e(como)493 2274 y Fz(\016)513 2281 y Fs(\015)531 2285 y Fh(s)548 2281 y Fs(;\015)576 2286 y Fh(i)589 2281 y Fs(;\015)617 2287 y Fh(b)632 2281 y Fs(;\015)660 2285 y Fh(a)681 2274 y FG(\()p Fz(c;)8 b(s)p FG(\))k(=)49 b(min)839 2306 y Fs(E)r Fo(2)p Fs(E)r Fu(\()p Fs(c;s)p Fu(\))994 2274 y Fz(g)1016 2281 y Fs(\015)1034 2285 y Fh(s)1050 2281 y Fs(;\015)1078 2286 y Fh(i)1092 2281 y Fs(;\015)1120 2287 y Fh(b)1135 2281 y Fs(;\015)1163 2285 y Fh(a)1184 2274 y FG(\()p Fz(E)s(;)8 b(c;)g(s)p FG(\))-13 2389 y(con)304 2446 y Fz(g)326 2453 y Fs(\015)344 2457 y Fh(s)361 2453 y Fs(;\015)389 2458 y Fh(i)402 2453 y Fs(;\015)430 2459 y Fh(b)446 2453 y Fs(;\015)474 2457 y Fh(a)495 2446 y FG(\()p Fz(E)s(;)g(c;)g(s)p FG(\))h(=)k Fz(\015)732 2453 y Fs(s)750 2446 y Fz(n)777 2453 y Fs(s)796 2446 y FG(\()p Fz(E)s FG(\))8 b(+)j Fz(\015)947 2453 y Fs(i)960 2446 y Fz(n)987 2453 y Fs(i)1002 2446 y FG(\()p Fz(E)s FG(\))d(+)j Fz(\015)1153 2453 y Fs(b)1170 2446 y Fz(n)1197 2453 y Fs(b)1214 2446 y FG(\()p Fz(E)s FG(\))e(+)h Fz(\015)1365 2453 y Fs(a)1385 2446 y Fz(n)1412 2453 y Fs(a)1434 2446 y FG(\()p Fz(E)s FG(\))p Fz(;)265 b FG(\(9\))-13 2531 y(p)q(o)q(demos)13 b(v)o(er)f(cualquier)i(distancia)g Fz(\016)650 2538 y Fs(\015)668 2542 y Fh(s)685 2538 y Fs(;\015)713 2543 y Fh(i)726 2538 y Fs(;\015)754 2544 y Fh(b)769 2538 y Fs(;\015)797 2542 y Fh(a)831 2531 y FG(como)e(el)h(resultado)g(de)g(optimizar)g(el)g(criterio)g(de)g (edici\023)-23 b(on)-13 2587 y(\(p)q(or)15 b(con)o(teo)f(p)q(onderado)i (de)g(op)q(eraciones)g(de)f(edici\023)-23 b(on\))17 b Fz(g)1012 2594 y Fs(\015)1030 2598 y Fh(s)1046 2594 y Fs(;\015)1074 2599 y Fh(i)1088 2594 y Fs(;\015)1116 2600 y Fh(b)1131 2594 y Fs(;\015)1159 2598 y Fh(a)1180 2587 y FG(.)-13 2670 y FJ(De\014nici\023)-26 b(on)17 b(8)f(\(Equiv)m (alencia)i(en)o(tre)d(criterios)h(de)g(edici\023)-26 b(on\))16 b FG(Decimos)e(que)g(dos)f(criterios)i(de)f(edi-)-13 2726 y(ci\023)-23 b(on)16 b Fz(g)h FG(y)f Fz(g)186 2710 y Fo(0)212 2726 y FG(son)g(equiv)m(alen)o(tes,)h(y)e(lo)h(notamos)f (con)g Fz(g)g Ft(\021)f Fz(g)1027 2710 y Fo(0)1038 2726 y FG(,)h(si)h(y)f(s\023)-23 b(olo)16 b(si,)g(para)f(to)q(do)g(par)g(de) h(cadenas)g Fz(c)-13 2783 y FG(y)f Fz(s)p FG(,)541 2840 y(arg)8 b(min)541 2881 y Fs(E)r Fo(2)p Fs(E)r Fu(\()p Fs(c;s)p Fu(\))696 2840 y Fz(g)r FG(\()p Fz(E)s(;)g(c;)f(s)p FG(\))j(=)j(arg)8 b(min)933 2881 y Fs(E)r Fo(2)p Fs(E)r Fu(\()p Fs(c;s)p Fu(\))1088 2840 y Fz(g)1112 2821 y Fo(0)1123 2840 y FG(\()p Fz(E)s(;)g(c;)g(s)p FG(\))p Fz(:)1820 3074 y FG(5)p eop %%Page: 6 12 6 11 bop 600 -33 a Fv(El)15 b(pr)n(oblema)i(de)f(la)g(evaluaci\023)-23 b(on)17 b(de)f(un)g(sistema)g(de)g(r)n(e)n(c)n(ono)n(cimiento)p Fz(:)8 b(:)g(:)p 37 -16 1857 2 v 37 110 a Fp(2)83 191 y FG(Estudiamos)14 b(ahora)g(la)h(equiv)m(alencia)i(en)o(tre)d(diferen) o(tes)i(criterios)f(de)g(edici\023)-23 b(on)16 b(de)f(la)g(forma)e Fz(g)1725 198 y Fs(\015)1743 202 y Fh(s)1760 198 y Fs(;\015)1788 203 y Fh(i)1801 198 y Fs(;\015)1829 204 y Fh(b)1845 198 y Fs(;\015)1873 202 y Fh(a)37 247 y FG(comenzando)j(p)q(or)f (caracterizar)f(cada)h(uno)g(de)h(ellos)g(median)o(te)f(un)i(\023)-24 b(unico)16 b(par\023)-23 b(ametro.)13 b(P)o(ara)h(ello,)i(en)f(lo)37 304 y(sucesiv)o(o,)e(asumiremos)g(que)g Fz(\015)574 311 y Fs(s)598 304 y Ft(\000)5 b Fz(\015)662 311 y Fs(a)695 304 y Fz(>)13 b FG(0;)f(es)h(decir,)h(que)f(el)h(coste)e(de)h(un)h (error)e(de)h(sustituci\023)-23 b(on)14 b(es)f(ma)o(y)o(or)37 360 y(que)j(el)g(coste)f(de)h(un)f(acierto.)83 417 y(Dado)f(que)g Ft(j)p Fz(c)p Ft(j)g FG(es)g(indep)q(endie)q(n)o(te)j(de)e(la)f (edici\023)-23 b(on)17 b Fz(E)s FG(,)c(p)q(o)q(demos)i(restar)e Fz(\015)1355 424 y Fs(a)1384 417 y Ft(\001)8 b(j)p Fz(c)p Ft(j)13 b FG(a)h Fz(g)1523 424 y Fs(\015)1541 428 y Fh(s)1558 424 y Fs(;\015)1586 429 y Fh(i)1599 424 y Fs(;\015)1627 430 y Fh(b)1643 424 y Fs(;\015)1671 428 y Fh(a)1706 417 y FG(y)g(obtener)37 473 y(un)i(criterio)g(equiv)m(alen)o(te.)h(As)-5 b(\023)-18 b(\020,)15 b(utilizando)i(\(2a\),)468 574 y Fz(g)490 581 y Fs(\015)508 585 y Fh(s)524 581 y Fs(;\015)552 586 y Fh(i)565 581 y Fs(;\015)593 587 y Fh(b)609 581 y Fs(;\015)637 585 y Fh(a)671 574 y Ft(\021)c FG(\()p Fz(\015)761 581 y Fs(s)788 574 y Ft(\000)e Fz(\015)858 581 y Fs(a)878 574 y FG(\))f Ft(\001)g Fz(n)956 581 y Fs(s)984 574 y FG(+)h Fz(\015)1054 581 y Fs(i)1078 574 y Ft(\001)e Fz(n)1127 581 y Fs(i)1152 574 y FG(+)h(\()p Fz(\015)1239 581 y Fs(b)1266 574 y Ft(\000)g Fz(\015)1335 581 y Fs(a)1356 574 y FG(\))f Ft(\001)h Fz(n)1433 581 y Fs(b)1451 574 y Fz(:)37 674 y FG(As)-5 b(\023)-18 b(\020)18 b(mismo,)f(como)g(\001)p Fz(l)f FG(=)g Ft(j)p Fz(s)p Ft(j)11 b(\000)h(j)p Fz(c)p Ft(j)k FG(es)h(tam)o(bi)o(\023)-21 b(en)16 b(indep)q(endie)q(n)o(te)k(de)d Fz(E)s FG(,)f(p)q(o)q(demos)i (sumar)e(\(\()p Fz(\015)1728 681 y Fs(b)1756 674 y Ft(\000)11 b Fz(\015)1826 681 y Fs(a)1858 674 y Ft(\000)37 731 y Fz(\015)61 738 y Fs(i)75 731 y FG(\))p Fz(=)p FG(2\)\001)p Fz(l)j FG(al)i(resultado)f(an)o(terior)g(de)h(mo)q(do)f(que)g (utilizando)i(\(3\))d(obtenemos)370 847 y Fz(g)392 854 y Fs(\015)410 858 y Fh(s)426 854 y Fs(;\015)454 859 y Fh(i)468 854 y Fs(;\015)496 860 y Fh(b)511 854 y Fs(;\015)539 858 y Fh(a)573 847 y Ft(\021)f FG(\()p Fz(\015)663 854 y Fs(s)691 847 y Ft(\000)d Fz(\015)760 854 y Fs(a)780 847 y FG(\))g Ft(\001)g Fz(n)858 854 y Fs(s)887 847 y FG(+)937 817 y Fz(\015)961 824 y Fs(i)985 817 y FG(+)g Fz(\015)1054 824 y Fs(b)1081 817 y Ft(\000)h Fz(\015)1151 824 y Fs(a)p 937 837 234 2 v 1043 878 a FG(2)1176 847 y Fz(n)1203 854 y Fs(i)1227 847 y FG(+)1278 817 y Fz(\015)1302 824 y Fs(i)1325 817 y FG(+)g Fz(\015)1395 824 y Fs(b)1422 817 y Ft(\000)f Fz(\015)1491 824 y Fs(a)p 1278 837 V 1383 878 a FG(2)1517 847 y Fz(n)1544 854 y Fs(b)37 958 y FG(y)l(,)15 b(como)g(hemos)g(supuesto)h(que)f Fz(\015)639 965 y Fs(s)667 958 y Ft(\000)c Fz(\015)737 965 y Fs(a)770 958 y Fz(>)i FG(0,)h(p)q(o)q(demos)i(dividir)h(p)q(or)e(esta)g(can)o (tidad)h(y)f(obtener)469 1072 y Fz(g)491 1079 y Fs(\015)509 1083 y Fh(s)525 1079 y Fs(;\015)553 1084 y Fh(i)566 1079 y Fs(;\015)594 1085 y Fh(b)610 1079 y Fs(;\015)638 1083 y Fh(a)672 1072 y Ft(\021)e Fz(n)747 1079 y Fs(s)775 1072 y FG(+)826 1042 y Fz(\015)850 1049 y Fs(i)873 1042 y FG(+)e Fz(\015)943 1049 y Fs(b)970 1042 y Ft(\000)f Fz(\015)1039 1049 y Fs(a)p 826 1062 V 843 1104 a FG(2\()p Fz(\015)908 1111 y Fs(s)935 1104 y Ft(\000)h Fz(\015)1005 1111 y Fs(a)1025 1104 y FG(\))1065 1072 y Fz(n)1092 1079 y Fs(i)1116 1072 y FG(+)1166 1042 y Fz(\015)1190 1049 y Fs(i)1214 1042 y FG(+)g Fz(\015)1284 1049 y Fs(b)1310 1042 y Ft(\000)g Fz(\015)1380 1049 y Fs(a)p 1166 1062 V 1183 1104 a FG(2\()p Fz(\015)1248 1111 y Fs(s)1276 1104 y Ft(\000)f Fz(\015)1345 1111 y Fs(a)1366 1104 y FG(\))1405 1072 y Fz(n)1432 1079 y Fs(b)1450 1072 y Fz(:)37 1195 y FG(En)16 b(resumen,)f(denotando)g(el)h(criterio)g(de)g (edici\023)-23 b(on)17 b Fz(g)965 1202 y Fu(1)p Fs(;p;p;)p Fu(0)1082 1195 y FG(como)e Fz(g)1223 1204 y Fu(\()p Fs(p)p Fu(\))1270 1195 y FG(,)f(p)q(o)q(demos)i(a\014rmar)e(que)565 1295 y Fz(\015)589 1302 y Fs(s)617 1295 y Ft(\000)d Fz(\015)687 1302 y Fs(a)720 1295 y Fz(>)i FG(0)f Ft(\))h Fz(g)883 1302 y Fs(\015)901 1306 y Fh(s)918 1302 y Fs(;\015)946 1307 y Fh(i)959 1302 y Fs(;\015)987 1308 y Fh(b)1003 1302 y Fs(;\015)1031 1306 y Fh(a)1064 1295 y Ft(\021)g Fz(g)1134 1302 y Fu(1)p Fs(;p;p;)p Fu(0)1249 1295 y FG(=)g Fz(g)1319 1304 y Fu(\()p Fs(p)p Fu(\))37 1395 y FG(con)796 1457 y Fz(p)f FG(=)884 1426 y Fz(\015)908 1433 y Fs(i)932 1426 y FG(+)e Fz(\015)1001 1433 y Fs(b)1028 1426 y Ft(\000)g Fz(\015)1097 1433 y Fs(a)p 884 1446 V 901 1488 a FG(2\()p Fz(\015)966 1495 y Fs(s)993 1488 y Ft(\000)h Fz(\015)1063 1495 y Fs(a)1083 1488 y FG(\))1123 1457 y Fz(:)677 b FG(\(10\))83 1564 y(Seg)q(\023)-24 b(un)15 b(esta)f(equiv)m(alencia)k (p)q(o)q(demos)d(v)o(er)f(que)h(el)g(criterio)h(aso)q(ciado)e(a)h (minimizar)h(errores)e(\(distancia)37 1620 y(de)h(Lev)o(ensh)o(tein\),) g(que)g(corresp)q(onde)g(a)f Fz(g)770 1629 y Fu(\(1\))829 1620 y FG(=)f Fz(g)899 1627 y Fu(1)p Fs(;)p Fu(1)p Fs(;)p Fu(1)p Fs(;)p Fu(0)1001 1620 y FG(,)h(es)g(equiv)m(alen)o(te)i(a)e (cualquier)i(criterio)f Fz(g)1725 1627 y Fs(\015)1743 1631 y Fh(s)1760 1627 y Fs(;\015)1788 1632 y Fh(i)1801 1627 y Fs(;\015)1829 1633 y Fh(b)1845 1627 y Fs(;\015)1873 1631 y Fh(a)37 1677 y FG(con)f Fz(\015)143 1684 y Fs(s)174 1677 y Fz(>)f(\015)246 1684 y Fs(a)280 1677 y FG(en)h(el)h(que)f(los)g (v)m(alores)g Fz(\015)709 1684 y Fs(s)727 1677 y FG(,)g Fz(\015)778 1684 y Fs(i)791 1677 y FG(,)g Fz(\015)842 1684 y Fs(b)858 1677 y FG(,)g Fz(\015)909 1684 y Fs(a)943 1677 y FG(sean)g(tales)g(que)g Fz(p)e FG(=)h(1;)g(p)q(or)h(ejemplo:)g (\(0)p Fz(:)p FG(5)p Fz(;)8 b FG(2)p Fz(;)g Ft(\000)p FG(1)p Fz(;)f FG(0\),)37 1733 y(\(3)p Fz(;)h FG(2)p Fz(;)g FG(2)p Fz(;)g FG(2\))o(,)k(o)j(bien)h(\(3)p Fz(;)8 b FG(1)p Fz(;)g FG(4)p Fz(;)g FG(1\))o(.)83 1790 y(Similarmen)o(te,)24 b(el)f(criterio)h Fz(g)622 1797 y Fu(0)p Fs(;)p Fu(0)p Fs(;)p Fu(0)p Fs(;)p Fo(\000)p Fu(1)773 1790 y FG(aso)q(ciado)f(a)g(la) g(distancia)h Fz(\016)1288 1797 y Fu(0)p Fs(;)p Fu(0)p Fs(;)p Fu(0)p Fs(;)p Fo(\000)p Fu(1)1440 1790 y FG(que)f(utiliz\023)-23 b(abamos)24 b(para)37 1846 y(maximizar)c(aciertos,)f(es)h(equiv)m(alen) o(te)h(a)e Fz(g)811 1855 y Fu(\(0)p Fs(:)p Fu(5\))885 1846 y FG(,)g(pues)h(para)f Fz(\015)1157 1853 y Fs(s)1195 1846 y FG(=)h Fz(\015)1274 1853 y Fs(i)1307 1846 y FG(=)g Fz(\015)1386 1853 y Fs(b)1422 1846 y FG(=)g(0)f(y)h Fz(\015)1587 1853 y Fs(a)1627 1846 y FG(=)g Ft(\000)p FG(1)f(resulta)37 1902 y Fz(p)13 b FG(=)g(0)p Fz(:)p FG(5.)f(Obs)o(\023)-21 b(erv)o(ese)13 b(que)h(cuando)f(W)l(agner)g(y)h(Fisc)o(her)f(sugieren)i (utilizar)g Fz(\015)1366 1909 y Fs(s)1396 1902 y FG(=)e(2,)g Fz(\015)1517 1909 y Fs(i)1543 1902 y FG(=)g Fz(\015)1615 1909 y Fs(b)1644 1902 y FG(=)g(1)g(y)h Fz(\015)1790 1909 y Fs(a)1823 1902 y FG(=)f(0)37 1959 y(para)i(este)g(mismo)g(\014n,)h (no)f(hacen)h(sino)f(recurrir)h(a)f(otro)f(de)i(los)f(in\014nitos)i (criterios)e(equiv)m(alen)o(tes.)37 2082 y Fq(2.3)53 b(Edici\023)-27 b(on)17 b(de)h(un)g(conjunto)g(de)h(pa)n(res)g(de)f (cadenas)37 2168 y FG(P)o(asamos)c(ahora)h(a)g(considerar)h(el)g(caso)f (general)h(en)g(que)f(tratamos)f(de)i(ev)m(aluar)g(el)g(sistema)f(no)h (a)f(partir)37 2225 y(de)h(un)g(simple)g(par,)f(sino)h(de)f(un)h (conjun)o(to)f Ft(D)h FG(de)g Fz(M)k FG(pares)15 b(de)h(in)o (terpretaciones.)f(Sea)618 2325 y Ft(D)f FG(=)f Ft(f)p FG(\()p Fz(c)776 2306 y Fs(m)808 2325 y Fz(;)8 b(s)850 2306 y Fs(m)883 2325 y FG(\))p Ft(g)924 2306 y Fs(M)924 2336 y(m)p Fu(=1)1015 2325 y Ft(2)13 b FG(\(\006)1109 2306 y Fu(+)1148 2325 y Ft(\002)d FG(\006)1226 2306 y Fu(+)1256 2325 y FG(\))1274 2306 y Fs(M)37 2425 y FG(donde)16 b Fz(c)191 2409 y Fs(m)239 2425 y FG(y)f Fz(s)299 2409 y Fs(m)348 2425 y FG(recib)q(en,)h(resp)q(ectiv)m(amen)o(te,)g(el)g (nom)o(bre)f(de)g(in)o(terpretaciones)h Fv(c)n(orr)n(e)n(cta)f FG(y)g Fv(del)h(sistema)37 2482 y FG(para)f(la)h Fz(m)p FG(-)o(\023)-21 b(esima)14 b(pron)o(unciaci\023)-23 b(on.)37 2563 y FJ(De\014nici\023)d(on)19 b(9)f(\(Edici\023)-26 b(on)20 b(de)d Ft(D)q FJ(\))f FG(Una)f(edici\023)-23 b(on)17 b Ft(E)954 2570 y Fo(D)1000 2563 y FG(\(o)d(simplemen)o(te)j Ft(E)t FG(\))e(de)g Ft(D)i FG(es)e(un)h(conjun)o(to)811 2663 y Ft(E)835 2670 y Fo(D)878 2663 y FG(=)d Ft(f)p Fz(E)986 2644 y Fs(m)1018 2663 y Ft(g)1041 2642 y Fs(M)1041 2677 y(m)p Fu(=1)37 2764 y FG(tal)k(que,)g(para)f(to)q(do)g Fz(m)e Ft(2)i(f)p FG(1)p Fz(;)8 b FG(2)p Fz(;)g(:)f(:)h(:)t(;)g(M)d Ft(g)p FG(,)15 b Fz(E)844 2747 y Fs(m)891 2764 y Ft(2)g Fz(E)s FG(\()p Fz(c)1011 2747 y Fs(m)1043 2764 y Fz(;)8 b(s)1085 2747 y Fs(m)1118 2764 y FG(\);)16 b(es)g(decir,)i Fz(E)1382 2747 y Fs(m)1431 2764 y FG(es)e(una)h(traza)f(de)h(edici\023) -23 b(on)37 2820 y(del)17 b(par)e(\()p Fz(c)230 2804 y Fs(m)262 2820 y Fz(;)8 b(s)304 2804 y Fs(m)337 2820 y FG(\))k Ft(2)h(D)q FG(.)37 2876 y Fp(2)37 3074 y FG(6)p eop %%Page: 7 13 7 12 bop -13 -33 a Fv(El)16 b(pr)n(oblema)g(de)g(la)g(evaluaci\023)-23 b(on)17 b(de)f(un)g(sistema)g(de)g(r)n(e)n(c)n(ono)n(cimiento)p Fz(:)8 b(:)g(:)p -13 -16 1857 2 v 32 110 a FG(En)13 b(adelan)o(te,)f(y) h(mien)o(tras)f(no)g(ha)o(y)o(a)g(am)o(big)q(\177)-24 b(uedad,)12 b(nos)h(referiremos)f(con)h(el)g(t)o(\023)-21 b(ermino)11 b(\\edici\023)-23 b(on")14 b(tan)o(to)-13 167 y(a)h(una)g(\\edici\023)-23 b(on)17 b(de)e Ft(D)q FG(")h(como)e(a)h(la)h(traza)e(de)i(edici\023)-23 b(on)17 b(de)e(un)h(solo)f(par)g(de)h(in)o(terpretaciones.)32 223 y(Extendemos)g(las)g(funciones)h(de)f(c\023)-23 b(omputo)16 b(del)h(n)q(\023)-24 b(umero)16 b(de)g(sustituciones,)g(inserciones,)i (b)q(orrados)d(y)-13 280 y(aciertos)g(al)g(caso)g(de)h(ediciones)h(de)f Ft(D)q FG(.)-13 358 y FJ(De\014nici\023)-26 b(on)18 b(10)f(\(N)q(\023) -28 b(umero)17 b(de)f(errores)f(y)h(aciertos)h(de)f(una)h(edici\023)-26 b(on)18 b(de)f Ft(D)q FJ(\))e FG(Sea)f Ft(E)k FG(una)d(edici\023)-23 b(on)-13 414 y(de)16 b Ft(D)q FG(.)g(Denotaremos)f(el)i(n)q(\023)-24 b(umero)17 b(de)f(sustituciones,)h(inserciones,)h(b)q(orrados)d(y)h (aciertos)g(en)h Ft(E)t FG(,)f(resp)q(ec-)-13 470 y(tiv)m(amen)o(te,)f (median)o(te)h(las)f(funciones)i Fz(N)706 477 y Fs(s)724 470 y FG(\()p Ft(E)t Fz(;)8 b Ft(D)q FG(\),)14 b Fz(N)906 477 y Fs(i)920 470 y FG(\()p Ft(E)t Fz(;)8 b Ft(D)q FG(\),)13 b Fz(N)1101 477 y Fs(b)1118 470 y FG(\()p Ft(E)t Fz(;)8 b Ft(D)q FG(\))15 b(y)g Fz(N)1327 477 y Fs(a)1347 470 y FG(\()p Ft(E)t Fz(;)8 b Ft(D)q FG(\):)598 601 y Fz(N)632 608 y Fs(s)651 601 y FG(\()p Ft(E)t Fz(;)g Ft(D)q FG(\))j(=)851 548 y Fs(M)839 561 y Fn(X)831 652 y Fs(m)p Fu(=1)915 601 y Fz(n)942 608 y Fs(s)961 601 y FG(\()p Fz(E)1016 583 y Fs(m)1048 601 y Fz(;)d(c)1089 583 y Fs(m)1121 601 y Fz(;)g(s)1163 583 y Fs(m)1196 601 y FG(\))p Fz(;)512 b FG(\(11a\))603 752 y Fz(N)637 759 y Fs(i)651 752 y FG(\()p Ft(E)t Fz(;)8 b Ft(D)q FG(\))j(=)851 699 y Fs(M)839 712 y Fn(X)831 802 y Fs(m)p Fu(=1)915 752 y Fz(n)942 759 y Fs(i)956 752 y FG(\()p Fz(E)1011 733 y Fs(m)1044 752 y Fz(;)d(c)1085 733 y Fs(m)1117 752 y Fz(;)g(s)1159 733 y Fs(m)1192 752 y FG(\))p Fz(;)514 b FG(\(11b\))600 903 y Fz(N)634 910 y Fs(b)651 903 y FG(\()p Ft(E)t Fz(;)8 b Ft(D)q FG(\))j(=)851 850 y Fs(M)839 862 y Fn(X)831 953 y Fs(m)p Fu(=1)915 903 y Fz(n)942 910 y Fs(b)960 903 y FG(\()p Fz(E)1015 884 y Fs(m)1047 903 y Fz(;)d(c)1088 884 y Fs(m)1120 903 y Fz(;)g(s)1162 884 y Fs(m)1195 903 y FG(\))p Fz(;)516 b FG(\(11c\))596 1053 y Fz(N)630 1060 y Fs(a)651 1053 y FG(\()p Ft(E)t Fz(;)8 b Ft(D)q FG(\))j(=)851 1000 y Fs(M)839 1013 y Fn(X)831 1103 y Fs(m)p Fu(=1)915 1053 y Fz(n)942 1060 y Fs(a)963 1053 y FG(\()p Fz(E)1018 1035 y Fs(m)1050 1053 y Fz(;)d(c)1091 1035 y Fs(m)1123 1053 y Fz(;)g(s)1165 1035 y Fs(m)1198 1053 y FG(\))p Fz(:)508 b FG(\(11d\))-13 1168 y Fp(2)32 1246 y FG(De)16 b(n)o(uev)o(o,)f(simpli\014caremos)j(la)e(notaci\023)-23 b(on)16 b(sobreen)o(tendiendo)h(el)g(conjun)o(to)e Ft(D)i FG(en)g(las)f(funciones)h Fz(N)1812 1253 y Fs(s)1830 1246 y FG(,)-13 1302 y Fz(N)21 1309 y Fs(i)35 1302 y FG(,)e Fz(N)97 1309 y Fs(b)129 1302 y FG(y)g Fz(N)202 1309 y Fs(a)223 1302 y FG(.)32 1359 y(Como)g(consecuencia)i(de)e (\(2a\))f(y)h(\(2b\))g(tenemos)g(que,)g(para)g(to)q(da)f(edici\023)-23 b(on)17 b Ft(E)j FG(de)15 b Ft(D)q FG(,)517 1489 y Fz(N)551 1496 y Fs(s)569 1489 y FG(\()p Ft(E)t FG(\))10 b(+)g Fz(N)722 1496 y Fs(b)739 1489 y FG(\()p Ft(E)t FG(\))g(+)g Fz(N)892 1496 y Fs(a)913 1489 y FG(\()p Ft(E)t FG(\))i(=)1056 1437 y Fs(M)1045 1449 y Fn(X)1037 1540 y Fs(m)p Fu(=1)1121 1489 y Ft(j)p Fz(c)1154 1471 y Fs(m)1186 1489 y Ft(j)h FG(=)f Fz(C)q(;)433 b FG(\(12a\))520 1640 y Fz(N)554 1647 y Fs(s)572 1640 y FG(\()p Ft(E)t FG(\))10 b(+)g Fz(N)725 1647 y Fs(i)739 1640 y FG(\()p Ft(E)t FG(\))g(+)g Fz(N)892 1647 y Fs(a)913 1640 y FG(\()p Ft(E)t FG(\))k(=)1058 1587 y Fs(M)1047 1600 y Fn(X)1039 1690 y Fs(m)p Fu(=1)1122 1640 y Ft(j)p Fz(s)1156 1621 y Fs(m)1190 1640 y Ft(j)e FG(=)h Fz(S;)433 b FG(\(12b\))-13 1766 y(donde)18 b Fz(C)i FG(y)d Fz(S)j FG(son)d(constan)o(tes)g(indep)q(endien)o(tes)j(de)e(la)f (edici\023)-23 b(on)19 b Fz(E)h FG(a)d(las)g(que)h(denominamos)g(talla) f(de)-13 1822 y(las)e(in)o(terpretaciones)h(correctas)f(y)g(del)h (sistema,)f(resp)q(ectiv)m(amen)o(te.)-13 1964 y FB(3.)46 b(F)n(unciones)20 b(de)h(evaluaci\023)-33 b(on)-13 2065 y FG(Ev)m(aluar)12 b(un)f(sistema)g(de)h(recono)q(cimien)o(to)g (autom\023)-23 b(atico)11 b(del)h(habla)g(a)f(partir)g(de)g(un)h (conjun)o(to)f(de)g(datos)g Ft(D)q FG(,)-13 2122 y(consiste)k(en)g (obtener)g(el)h(v)m(alor)f(de)g(una)g(cierta)g(\\)p FJ(funci\023)-26 b(on)18 b(de)f(ev)m(aluaci\023)-26 b(on)p FG(",)16 b Fz(f)5 b FG(\()p Ft(D)q FG(\).)14 b(P)o(ara)g(ello)i(se)f(suele)-13 2178 y(pro)q(ceder)h(del)g(siguien)o(te)g(mo)q(do:)42 2264 y(1.)22 b(Se)c(elige)h(una)e(edici\023)-23 b(on)19 b Ft(E)543 2247 y Fo(\003)580 2264 y FG(\023)-23 b(optima)18 b(para)e Ft(D)j FG(seg)q(\023)-24 b(un)18 b(alg)q(\023)-24 b(un)17 b(criterio)h(que)g(expresamos)f(p)q(or)g(medio)100 2320 y(de)f(una)f(funci\023)-23 b(on)17 b Fz(G)p FG(:)756 2377 y Ft(E)784 2358 y Fo(\003)816 2377 y FG(=)c(arg)8 b(min)877 2417 y Fo(E)s(2E)s Fu(\()p Fo(D)q Fu(\))1019 2377 y Fz(G)p FG(\()p Ft(E)t Fz(;)g Ft(D)q FG(\))p Fz(;)100 2490 y FG(donde)16 b Ft(E)t FG(\()p Ft(D)q FG(\))f(es)g(el)h(conjun)o (to)f(de)h(ediciones)h(p)q(osibles)g(para)e Ft(D)q FG(.)42 2579 y(2.)22 b(Se)17 b(devuelv)o(e)g(como)e(ev)m(aluaci\023)-23 b(on)17 b(del)g(sistema)f(el)g(v)m(alor)g(de)g(una)g(cierta)g (funci\023)-23 b(on,)16 b Fz(T)6 b FG(,)15 b(del)i(conjun)o(to)100 2636 y Ft(D)g FG(y)e(la)g(edici\023)-23 b(on)17 b Ft(E)423 2619 y Fo(\003)458 2636 y FG(elegida.)f(Generalmen)o(te,)f(esta)f (funci\023)-23 b(on)16 b(dep)q(ende)h(de)e(sus)g(par\023)-23 b(ametros)14 b(s\023)-23 b(olo)15 b(a)100 2692 y(tra)o(v)o(\023)-21 b(es)14 b(de)h(las)h(funciones)g Fz(N)596 2699 y Fs(s)615 2692 y FG(,)e Fz(N)676 2699 y Fs(i)690 2692 y FG(,)h Fz(N)752 2699 y Fs(b)784 2692 y FG(y)g Fz(N)857 2699 y Fs(a)878 2692 y FG(:)434 2784 y Fz(f)5 b FG(\()p Ft(D)q FG(\))13 b(=)g Fz(T)6 b FG(\()p Ft(E)673 2766 y Fo(\003)692 2784 y Fz(;)i Ft(D)q FG(\))k(=)h Fz(R)p FG(\()p Fz(N)914 2791 y Fs(s)932 2784 y FG(\()p Ft(E)978 2766 y Fo(\003)997 2784 y FG(\))p Fz(;)8 b(N)1070 2791 y Fs(i)1083 2784 y FG(\()p Ft(E)1129 2766 y Fo(\003)1149 2784 y FG(\))p Fz(;)g(N)1222 2791 y Fs(b)1237 2784 y FG(\()p Ft(E)1283 2766 y Fo(\003)1303 2784 y FG(\))p Fz(;)g(N)1376 2791 y Fs(a)1396 2784 y FG(\()p Ft(E)1442 2766 y Fo(\003)1461 2784 y FG(\)\))p Fz(;)100 2876 y FG(donde)16 b Fz(R)f FG(es)h(una)f(funci\023)-23 b(on)16 b(real)g(con)f(cuatro)g(par\023)-23 b(ametros)14 b(naturales.)1820 3074 y(7)p eop %%Page: 8 14 8 13 bop 600 -33 a Fv(El)15 b(pr)n(oblema)i(de)f(la)g(evaluaci\023)-23 b(on)17 b(de)f(un)g(sistema)g(de)g(r)n(e)n(c)n(ono)n(cimiento)p Fz(:)8 b(:)g(:)p 37 -16 1857 2 v 83 110 a FG(En)j(adelan)o(te,)h (denominaremos)f(\\)p FJ(criterio)j(de)f(edici\023)-26 b(on)p FG(")12 b(a)f(la)g(funci\023)-23 b(on)13 b Fz(G)e FG(\(generalizando)h(impl)-5 b(\023)-18 b(\020cita-)37 167 y(men)o(te)16 b(a)e(conjun)o(tos)h(de)h(pares)f(de)h(cadenas)f(la)g (De\014nici\023)-23 b(on)17 b(7\))e(y)g(\\)p FJ(funci\023)-26 b(on)18 b(de)g(tasa)p FG(")d(a)g Fz(T)6 b FG(.)83 224 y(En)12 b(lo)g(que)g(resta)g(de)g(apartado,)e(recopilamos)j(las)f (funciones)h(de)f(ev)m(aluaci\023)-23 b(on)14 b(que)e(se)g(vienen)i (utilizando)37 281 y(en)i(la)f(pr\023)-23 b(actica)15 b(e)g(in)o(tro)q(ducimos)h(el)f(concepto)g(de)h(funci\023)-23 b(on)16 b(de)f(ev)m(aluaci\023)-23 b(on)17 b(coheren)o(te.)d(Presen)o (tamos)g(en)37 337 y(primer)i(lugar)f(las)h(funciones)g(de)g(tasa)e (que)i(diferen)o(tes)g(autores)e(han)i(propuesto)f(en)g(la)h (literatura.)37 466 y Fq(3.1)53 b(F)n(unciones)18 b(de)h(tasa)37 554 y FG(Una)14 b(de)g(las)g(funciones)h(de)g(tasa)d(m\023)-23 b(as)14 b(utilizadas)h(es)f(el)g(\\p)q(orcen)o(ta)s(je)f(de)h (aciertos")g(sobre)f(la)i(suma)e(de)h(las)37 611 y(longitudes)j(de)e (las)h(in)o(terpretaciones)g(correctas)e(\(\\p)q(ercen)o(t)i(correct")e ([Lee88,)h(Hun)o(t89)o(]\):)37 695 y FJ(De\014nici\023)-26 b(on)19 b(11)f(\(P)o(orcen)o(ta)s(je)f(de)h(aciertos\))717 821 y Fz(T)744 828 y Ff(P)m(A)806 821 y FG(=)13 b(100)1034 790 y Fz(N)1068 797 y Fs(a)p 928 810 270 2 v 928 852 a Fz(N)962 859 y Fs(s)990 852 y FG(+)d Fz(N)1069 859 y Fs(b)1096 852 y FG(+)h Fz(N)1176 859 y Fs(a)1201 821 y Fz(:)37 934 y Fp(2)83 1018 y FG(La)17 b(funci\023)-23 b(on)18 b Fz(T)340 1025 y Ff(P)m(A)407 1018 y FG(ignora)f(p)q(or)g (completo)g(los)g(errores)g(de)g(inserci\023)-23 b(on,)18 b(lo)g(que)f(p)q(ermite)h(maximizar)f(su)37 1074 y(v)m(alor,)22 b(p)q(or)f(ejemplo,)h(como)f(se)h(describ)q(e)h(a)e(con)o(tin)o (uaci\023)-23 b(on.)22 b(Sup)q(oniendo)i(que)e(cono)q(cemos)f(una)h (cota)37 1131 y(sup)q(erior)f Fz(L)e FG(de)h(la)g(longitud)h(de)f(las)g (in)o(terpretaciones)g(correctas)f(\(luego)h Ft(j)p Fz(c)1415 1114 y Fs(m)1448 1131 y Ft(j)f(\024)h Fz(L)g FG(para)f(to)q(do)g Fz(m)h Ft(2)37 1187 y(f)p FG(1)p Fz(;)8 b FG(2)p Fz(;)g(:)g(:)f(:)e(;)j (M)d Ft(g)p FG(\),)k(hacemos)i(que)g(n)o(uestro)g(sistema)g(in)o (terprete)g(cualquier)i(pron)o(unciaci\023)-23 b(on)12 b(como)f(la)g(cadena)37 1244 y Fz(s)j FG(\(de)g(longitud)g Fz(L)6 b Ft(\001)g FG(card\(\006\)\))13 b(resultado)g(de)h(concatenar)f Fz(L)g FG(cadenas)h(formadas)e(p)q(or)h(to)q(dos)g(los)h(s)-5 b(\023)-18 b(\020m)o(b)q(olos)37 1300 y(del)15 b(alfab)q(eto)e(\006.)g (Cualquier)h(criterio)g(de)g(edici\023)-23 b(on)15 b(razonable)e(pro)q (ducir)-5 b(\023)-18 b(\020a)15 b(ediciones)g(de)f(los)g(pares)f(\()p Fz(c)1802 1284 y Fs(m)1834 1300 y Fz(;)8 b(s)p FG(\))37 1357 y(con)16 b Ft(j)p Fz(c)154 1340 y Fs(m)186 1357 y Ft(j)f FG(aciertos)g(y)g Ft(j)p Fz(s)p Ft(j)10 b(\000)g(j)p Fz(c)555 1340 y Fs(m)588 1357 y Ft(j)k FG(inserciones,)j(sin)f (sustituciones)g(ni)g(b)q(orrados.)e(De)h(este)g(mo)q(do,)g(n)o(uestro) 37 1413 y(sistema)20 b(conseguir)-5 b(\023)-18 b(\020a)21 b(la)g(tasa)e(\023)-23 b(optima)20 b(\(100\045\))e(sin)j(otro)e(cono)q (cimien)o(to)i(que)f(la)h(cota)e Fz(L)p FG(,)g(lo)i(cual)f(no)37 1470 y(parece)c(m)o(uy)f(razonable.)83 1527 y(El)i(argumen)o(to)e(que)i (se)g(esgrime)f(en)h([Lee88])f(a)g(fa)o(v)o(or)f(de)i(ignorar)f(las)h (inserciones)h(es)f(que,)f(en)h(situa-)37 1583 y(ciones)h(como)f Fz(c)e FG(=)p Fm(calamar)h FG(y)h Fz(s)e FG(=)p Fm(ca~)-24 b(na)p Ft(\001)p Fm(y)p Ft(\001)p Fm(mar)p FG(,)15 b(si)j(consideramos) f(que)g(los)g(s)-5 b(\023)-18 b(\020m)o(b)q(olos)18 b(del)g(alfab)q (eto)f(son)37 1640 y(palabras)g(\()p Fm(calamar)p FG(,)d Fm(ca~)-24 b(na)p FG(,)16 b Fm(mar)p FG(,)f Fm(y)h Ft(2)f FG(\006\),)h(cualquier)i(edici\023)-23 b(on)18 b(del)f(par)f(\()p Fz(c;)8 b(s)p FG(\))15 b(sup)q(one)i(1)f(sustituci\023)-23 b(on)17 b(y)37 1696 y(2)e(inserciones,)g(o)f(bien)i(1)e(b)q(orrado)g(y) h(3)f(inserciones)i(\(es)e(decir,)h(3)f(\023)-23 b(o)14 b(4)g(errores\))g(mien)o(tras)g(que,)h(in)o(tuitiv)m(a-)37 1753 y(men)o(te,)g(parece)f(que)h(el)h(n)q(\023)-24 b(umero)14 b(de)h(errores)f(es)h(1)f(\(sustituir)h Fm(calamar)f FG(p)q(or)g Fm(ca~)-24 b(na)p Ft(\001)p Fm(y)p Ft(\001)p Fm(mar)p FG(\).)12 b(F)l(ren)o(te)i(a)g(este)37 1809 y(argumen)o(to)h(cab)q(e)g(con)o(trap)q(oner)g(los)h(dos)f(siguien)o (tes:)106 1905 y Ft(\017)22 b FG(si)15 b(consideramos)f(las)g(in)o (terpretaciones)h(como)f(secuencias)h(de)g(palabras,)f(lo)g(correcto)g (es)g(detectar)151 1962 y(3)h(\023)-23 b(o)15 b(4)g(errores)f(\(y)h (ning)q(\023)-24 b(un)17 b(acierto\))d(en)i(la)g(situaci\023)-23 b(on)16 b(an)o(terior;)106 2058 y Ft(\017)22 b FG(si)h(queremos)g (tener)g(en)g(cuen)o(ta)f(las)h(similitudes)i(fon)o(\023)-21 b(eticas)22 b(en)o(tre)h Fz(c)f FG(y)g Fz(s)p FG(,)h(en)o(tonces)g(deb) q(emos)151 2115 y(considerar)11 b(las)f(in)o(terpretaciones)h(como)f (secuencias)i(de)f(fonemas,)e(es)h(decir,)h(realizar)g(la)g(ev)m (aluaci\023)-23 b(on)151 2171 y(utilizando)17 b(un)f(alfab)q(eto)f(de)h (fonemas,)e(no)h(de)h(palabras.)83 2267 y(Una)c(funci\023)-23 b(on)14 b(de)f(tasa)e(m)o(uy)h(utilizada)i(que)f(s)-5 b(\023)-18 b(\020)13 b(tiene)g(en)g(cuen)o(ta)g(los)f(errores)g(de)h (inserci\023)-23 b(on)14 b(es)e(el)i(\\)-5 b(\023)-18 b(\020ndice)37 2324 y(de)16 b(precisi\023)-23 b(on")17 b(\(\\w)o(ord)c(accuracy")i([Lee88]\):)37 2408 y FJ(De\014nici\023)-26 b(on)19 b(12)f(\()371 2397 y(\023)374 2408 y(Indice)h(de)e(precisi\023) -26 b(on\))720 2534 y Fz(T)747 2541 y Ff(IP)803 2534 y FG(=)13 b(100)979 2503 y Fz(N)1013 2510 y Fs(a)1044 2503 y Ft(\000)e Fz(N)1124 2510 y Fs(i)p 925 2524 V 925 2565 a Fz(N)959 2572 y Fs(s)986 2565 y FG(+)g Fz(N)1066 2572 y Fs(b)1093 2565 y FG(+)f Fz(N)1172 2572 y Fs(a)1198 2534 y Fz(:)37 2647 y Fp(2)83 2731 y FG(La)18 b(funci\023)-23 b(on)20 b Fz(T)343 2738 y Ff(IP)404 2731 y FG(tiene)f(su)g(v)m(alor)g (m\023)-23 b(aximo)18 b(en)g(100,)g(p)q(ero)g(no)g(est\023)-23 b(a)18 b(acotada)g(inferiormen)o(te,)g(siendo)37 2787 y(negativ)m(a)e(cuando)g(el)g(n)q(\023)-24 b(umero)15 b(de)g(inserciones)i(sup)q(era)f(al)f(de)h(aciertos)1284 2771 y Fu(2)1304 2787 y FG(.)p 37 2832 743 2 v 59 2861 a Fr(2)76 2876 y Fx(En)10 b(este)g(caso,)g(algunos)h(autores)g(optan)f (p)q(or)g(considerar)i(que)e(la)h(tasa)f(es)g(0)f(\(\\p)q(ercen)o(tage) i(of)f(c)o(haracters)h(correct")f([PS91]\).)37 3074 y FG(8)p eop %%Page: 9 15 9 14 bop -13 -33 a Fv(El)16 b(pr)n(oblema)g(de)g(la)g(evaluaci\023)-23 b(on)17 b(de)f(un)g(sistema)g(de)g(r)n(e)n(c)n(ono)n(cimiento)p Fz(:)8 b(:)g(:)p -13 -16 1857 2 v 32 110 a FG(T)l(an)o(to)15 b(el)i(\\p)q(orcen)o(ta)s(je)e(de)h(aciertos")f(como)h(el)g(\\)-5 b(\023)-18 b(\020ndice)18 b(de)e(precisi\023)-23 b(on")17 b(sirv)o(en)f(para)g(medir)g(\(mejor)f(o)-13 167 y(p)q(eor\))j(el)g (\\grado)f(de)h(acierto")g(de)g(un)g(sistema.)g(Alternativ)m(amen)o (te,)g(se)g(utilizan)i(tasas)c(que)j(miden)g(su)-13 223 y(\\grado)14 b(de)i(error",)d(como)i(el)h(\\)-5 b(\023)-18 b(\020ndice)17 b(de)f(error")e(\(\\error)g(rate")g([Lee88],)g(\\total)h (error")f([Hun)o(t89)o(]\):)-13 305 y FJ(De\014nici\023)-26 b(on)19 b(13)f(\()321 294 y(\023)324 305 y(Indice)g(de)f(error\))669 428 y Fz(T)696 435 y Ff(IE)752 428 y FG(=)c(100)877 397 y Fz(N)911 404 y Fs(s)939 397 y FG(+)e Fz(N)1019 404 y Fs(i)1043 397 y FG(+)f Fz(N)1122 404 y Fs(b)p 874 418 270 2 v 874 459 a Fz(N)908 466 y Fs(s)936 459 y FG(+)g Fz(N)1015 466 y Fs(b)1043 459 y FG(+)g Fz(N)1122 466 y Fs(a)1148 428 y Fz(:)-13 537 y Fp(2)32 619 y FG(P)o(o)q(demos)i (considerar)h(este)7 b(\023)-18 b(\020ndice)15 b(es)d(como)g(la)g(v)o (ersi\023)-23 b(on)13 b(\\grado)e(de)i(error")e(del)i(\\)-5 b(\023)-18 b(\020ndice)14 b(de)f(precisi\023)-23 b(on",)-13 676 y(y)o(a)14 b(que)i Fz(T)159 683 y Ff(IE)215 676 y FG(=)d(100)c Ft(\000)i Fz(T)414 683 y Ff(IP)457 676 y FG(.)32 732 y(T)l(am)o(bi)o(\023)-21 b(en)19 b(se)g(utiliza)i(el)f(\\p) q(orcen)o(ta)s(je)f(de)g(sustituciones)i(y)e(b)q(orrados")f(\(\\error)g (rate)h(computed)g(for)-13 789 y(w)o(ord)14 b(deletions)j(and)e (substitutions")h([BBB)780 772 y Fu(+)810 789 y FG(89)o(]\),)e (ignorando)i(los)f(errores)g(de)g(inserci\023)-23 b(on:)-13 870 y FJ(De\014nici\023)d(on)19 b(14)f(\(P)o(orcen)o(ta)s(je)f(de)g (sustituciones)h(y)f(b)q(orrados\))654 994 y Fz(T)681 1001 y Ff(PSB)768 994 y FG(=)c(100)944 963 y Fz(N)978 970 y Fs(s)1006 963 y FG(+)e Fz(N)1086 970 y Fs(b)p 890 983 V 890 1025 a Fz(N)924 1032 y Fs(s)951 1025 y FG(+)g Fz(N)1031 1032 y Fs(b)1058 1025 y FG(+)f Fz(N)1137 1032 y Fs(a)1163 994 y Fz(:)-13 1103 y Fp(2)32 1185 y FG(Esta)15 b(es)g(la)h(v)o(ersi\023)-23 b(on)15 b(\\grado)f(de)i(error")e(del)i (\\p)q(orcen)o(ta)s(je)e(de)i(aciertos",)e(y)o(a)h(que)h Fz(T)1494 1192 y Ff(PSB)1581 1185 y FG(=)c(100)e Ft(\000)g Fz(T)1779 1192 y Ff(P)m(A)1829 1185 y FG(.)32 1241 y(N\023)-23 b(otese)19 b(que)g(al)g(no)g(ser)g Fz(T)495 1248 y Ff(IE)557 1241 y FG(y)g Fz(T)627 1248 y Ff(PSB)720 1241 y FG(m\023)-23 b(as)18 b(que)h Fz(T)932 1248 y Ff(IP)994 1241 y FG(y)g Fz(T)1064 1248 y Ff(P)m(A)1132 1241 y FG(en)g(v)o(ersi\023)-23 b(on)19 b(\\grado)f(de)h(error",)f(tienen)-13 1298 y(conceptualmen)o (te)12 b(caracter)-5 b(\023)-18 b(\020sticas)10 b(an\023)-23 b(alogas)10 b(a)f(\023)-21 b(estas:)9 b(la)i(funci\023)-23 b(on)12 b Fz(T)1183 1305 y Ff(IE)1237 1298 y FG(no)f(est\023)-23 b(a)10 b(acotada)f(sup)q(eriormen)o(te,)-13 1354 y(mien)o(tras)i(que)g (un)h(mal)f(sistema)g(que)h(pro)q(duzca)f(m)o(uc)o(hos)g(errores)g(de)g (inserci\023)-23 b(on)13 b(puede)f(conseguir)g Fz(T)1721 1361 y Ff(PSB)1808 1354 y FG(=)-13 1410 y(0.)32 1467 y(El)17 b(\\)-5 b(\023)-18 b(\020ndice)18 b(de)f(error)f(p)q(onderado") g(\(\\w)o(eigh)o(ted)g(total)f(error")h([Hun)o(t89)o(]\))f(presen)o(ta) h(la)h(propiedad)g(de)-13 1524 y(considerar)d(de)g(igual)h(mo)q(do)f (una)g(sustituci\023)-23 b(on)15 b(que)f(un)h(par)e(formado)g(p)q(or)h (una)g(inserci\023)-23 b(on)16 b(y)d(un)i(b)q(orrado:)-13 1605 y FJ(De\014nici\023)-26 b(on)19 b(15)f(\()321 1594 y(\023)324 1605 y(Indice)g(de)f(error)f(p)q(onderado\))633 1739 y Fz(T)660 1746 y Ff(IEP)740 1739 y FG(=)d(100)862 1706 y Fz(N)896 1713 y Fs(s)923 1706 y FG(+)974 1688 y Fu(1)p 974 1695 18 2 v 974 1722 a(2)997 1706 y Fz(N)1031 1713 y Fs(i)1055 1706 y FG(+)1105 1688 y Fu(1)p 1105 1695 V 1105 1722 a(2)1128 1706 y Fz(N)1162 1713 y Fs(b)p 862 1728 318 2 v 885 1770 a Fz(N)919 1777 y Fs(s)948 1770 y FG(+)d Fz(N)1027 1777 y Fs(b)1054 1770 y FG(+)h Fz(N)1134 1777 y Fs(a)1184 1739 y Fz(:)-13 1848 y Fp(2)32 1930 y FG(Al)16 b(igual)g(que)g(suced)-5 b(\023)-18 b(\020a)16 b(con)g Fz(T)560 1937 y Ff(IE)603 1930 y FG(,)f(la)g(funci\023)-23 b(on)17 b Fz(T)869 1937 y Ff(IEP)951 1930 y FG(no)e(est\023)-23 b(a)14 b(acotada)h(sup)q(eriormen)o(te.)32 1986 y(T)l(am)o(bi)o(\023) -21 b(en)14 b(aparece)h(en)g(la)g(literatura)f(su)h(v)o(ersi\023)-23 b(on)15 b(\\grado)e(de)i(acierto",)f(que)h(denominaremos)g(\\)-5 b(\023)-18 b(\020ndice)-13 2043 y(de)15 b(acierto)h(p)q(onderado")f (\(\\w)o(eigh)o(ted)g(w)o(ord)f(accuracy")h([WPN91)o(]\):)-13 2125 y FJ(De\014nici\023)-26 b(on)19 b(16)f(\()321 2114 y(\023)324 2125 y(Indice)g(de)f(acierto)i(p)q(onderado\))613 2258 y Fz(T)640 2265 y Ff(IAP)722 2258 y FG(=)13 b(100)844 2225 y Ft(\000)884 2208 y Fu(1)p 884 2215 18 2 v 884 2241 a(2)906 2225 y Fz(N)940 2232 y Fs(i)964 2225 y FG(+)1015 2208 y Fu(1)p 1015 2215 V 1015 2241 a(2)1037 2225 y Fz(N)1071 2232 y Fs(b)1099 2225 y FG(+)d Fz(N)1178 2232 y Fs(a)p 844 2248 356 2 v 886 2290 a Fz(N)920 2297 y Fs(s)949 2290 y FG(+)g Fz(N)1028 2297 y Fs(b)1055 2290 y FG(+)h Fz(N)1135 2297 y Fs(a)1204 2258 y Fz(:)-13 2367 y Fp(2)32 2449 y FG(Con)k(esta)g(de\014nici\023)-23 b(on)17 b(se)f(v)o(eri\014ca) f(que)h Fz(T)748 2456 y Ff(IAP)830 2449 y FG(=)d(100)c Ft(\000)i Fz(T)1029 2456 y Ff(IEP)1096 2449 y FG(.)32 2506 y(La)i(funci\023)-23 b(on)13 b(de)g(tasa)e(que)i(prop)q(ondremos)f (en)h(este)f(traba)s(jo,)e(y)i(que)h(y)o(a)f(ha)g(sido)h(empleada)g(en) g(traba)s(jos)-13 2562 y(an)o(teriores)i(\(\\global)g(error)f(rate")h ([Meri88)o(]\),)f(es)h(el)h(llamado)g(\\p)q(orcen)o(ta)s(je)e(real)i (de)g(errores":)-13 2644 y FJ(De\014nici\023)-26 b(on)19 b(17)f(\(P)o(orcen)o(ta)s(je)f(real)g(de)h(errores\))599 2767 y Fz(T)626 2774 y Ff(PRE)719 2767 y FG(=)13 b(100)895 2737 y Fz(N)929 2744 y Fs(s)957 2737 y FG(+)e Fz(N)1037 2744 y Fs(i)1061 2737 y FG(+)f Fz(N)1140 2744 y Fs(b)p 841 2757 373 2 v 841 2799 a Fz(N)875 2806 y Fs(s)902 2799 y FG(+)h Fz(N)982 2806 y Fs(i)1006 2799 y FG(+)f Fz(N)1085 2806 y Fs(b)1113 2799 y FG(+)g Fz(N)1192 2806 y Fs(a)1218 2767 y Fz(:)531 b FG(\(13\))-13 2876 y Fp(2)1820 3074 y FG(9)p eop %%Page: 10 16 10 15 bop 600 -33 a Fv(El)15 b(pr)n(oblema)i(de)f(la)g(evaluaci\023)-23 b(on)17 b(de)f(un)g(sistema)g(de)g(r)n(e)n(c)n(ono)n(cimiento)p Fz(:)8 b(:)g(:)p 37 -16 1857 2 v 83 110 a FG(Ob)o(viamen)o(te,)16 b(p)q(o)q(demos)h(considerar)g(tam)o(bi)o(\023)-21 b(en)15 b(el)i(\\p)q(orcen)o(ta)s(je)e(real)i(de)f(aciertos")g(\(\\p)q(ercen)o (t)g(total")37 167 y([CA)o(CV90)o(]\))f(como)f(la)i(funci\023)-23 b(on)16 b(de)g(tasa)e(an)o(terior)h(en)g(v)o(ersi\023)-23 b(on)16 b(\\grado)e(de)h(acierto":)37 245 y FJ(De\014nici\023)-26 b(on)19 b(18)f(\(P)o(orcen)o(ta)s(je)f(real)h(de)f(aciertos\))651 360 y Fz(T)678 367 y Ff(PRA)769 360 y FG(=)c(100)1049 329 y Fz(N)1083 336 y Fs(a)p 891 349 373 2 v 891 391 a Fz(N)925 398 y Fs(s)952 391 y FG(+)e Fz(N)1032 398 y Fs(i)1056 391 y FG(+)f Fz(N)1135 398 y Fs(b)1162 391 y FG(+)h Fz(N)1242 398 y Fs(a)1268 360 y Fz(:)37 460 y Fp(2)83 538 y FG(Eviden)o(temen)o(te,)16 b Fz(T)433 545 y Ff(PRA)523 538 y FG(=)d(100)d Ft(\000)g Fz(T)722 545 y Ff(PRE)802 538 y FG(.)83 595 y(N\023)-23 b(otese)18 b(que)h(tan)o(to)e Fz(T)472 602 y Ff(PRE)570 595 y FG(como)h Fz(T)719 602 y Ff(PRA)816 595 y FG(tratan)f(sim)o(\023)-21 b(etricamen)o(te)18 b(a)g(las)h(dos)f(cadenas)h(comparadas,)37 651 y(pues)i(la)g(normalizaci\023)-23 b(on)22 b(se)e(realiza)h(con)g (resp)q(ecto)f(a)g(am)o(bas.)f(P)o(or)h(con)o(tra,)f(las)h(dem\023)-23 b(as)20 b(funciones)i(de)37 707 y(tasa)13 b(consideradas)h(efect)q (\023)-24 b(uan)14 b(la)g(normalizaci\023)-23 b(on)14 b(considerando)i(\023)-24 b(unicamen)o(te)14 b(la)g(longitud)g(de)g(la) g(cadena)37 764 y(correcta.)83 820 y(Adem\023)-23 b(as,)15 b(tan)o(to)f Fz(T)416 827 y Ff(PRE)511 820 y FG(como)g Fz(T)656 827 y Ff(PRA)750 820 y FG(presen)o(tan)h(las)g(siguien)o(tes)i (caracter)-5 b(\023)-18 b(\020sticas)15 b(deseables:)106 907 y Ft(\017)22 b FG(se)17 b(trata)d(realmen)o(te)j(de)g(p)q(orcen)o (ta)s(jes,)e(p)q(or)h(lo)h(cual)g(su)f(v)m(alor)h(puede)h(v)m(ariar)e (\()q(\023)-24 b(unicamen)o(te\))17 b(en)o(tre)151 963 y(el)f(0\045)f(y)g(el)h(100\045;)106 1053 y Ft(\017)22 b FG(no)g(ignoran)g(las)g(inserciones,)h(de)f(mo)q(do)g(que)g(el)g(v)m (alor)h(\023)-23 b(optimo)21 b(de)h(am)o(bas)f(tasas)g(\(0\045)g(de)h (er-)151 1110 y(rores/100\045)13 b(de)j(aciertos\))f(s\023)-23 b(olo)15 b(se)g(alcanza)h(en)f(ausencia)i(de)e(errores.)37 1232 y Fq(3.2)53 b(Criterios)18 b(de)h(edici\023)-27 b(on)37 1318 y FG(Como)19 b(y)o(a)g(vimos,)h(una)g(funci\023)-23 b(on)20 b(de)h(ev)m(aluaci\023)-23 b(on)21 b(resulta)f(de)g(la)g (aplicaci\023)-23 b(on)22 b(de)e(una)f(funci\023)-23 b(on)21 b(de)f(tasa)37 1374 y(determinada)14 b(a)e(una)h(edici\023)-23 b(on)15 b Ft(E)599 1358 y Fo(\003)631 1374 y FG(\023)-23 b(optima)13 b(para)f(un)h(criterio)g(de)h(edici\023)-23 b(on)14 b(determinado,)f Fz(G)p FG(.)f(P)o(or)g(lo)h(tan)o(to,)37 1431 y(diferen)o(tes)20 b(criterios)g(de)f(edici\023)-23 b(on,)21 b(aun)e(con)g(la)g(misma)g(funci\023)-23 b(on)21 b(de)e(tasa,)f(prop)q(orcionar\023)-23 b(an)19 b(diferen)o(tes)37 1487 y(v)m(alores)d(de)g(la)f(funci\023)-23 b(on)17 b(de)e(ev)m (aluaci\023)-23 b(on.)83 1544 y(Los)18 b(criterios)h(de)f(edici\023)-23 b(on,)19 b Fz(G)p FG(,)f(utilizados)h(habitualmen)o(te)g(en)g(la)f (pr\023)-23 b(actica)18 b(corresp)q(onden)h(a)f(exten-)37 1600 y(siones)e(de)g(criterios)g(de)f(edici\023)-23 b(on,)17 b Fz(g)r FG(,)d(de)i(la)f(forma)f(de\014nida)j(en)f(\(9\):)37 1679 y FJ(De\014nici\023)-26 b(on)15 b(19)e(\(Criterio)h(de)f (edici\023)-26 b(on)14 b(p)q(or)f(con)o(teo)g(p)q(onderado)h(de)f(op)q (eraciones)h(de)f(edici\023)-26 b(on\))371 1772 y Fz(G)407 1779 y Fs(\015)425 1783 y Fh(s)442 1779 y Fs(;\015)470 1784 y Fh(i)483 1779 y Fs(;\015)511 1785 y Fh(b)527 1779 y Fs(;\015)555 1783 y Fh(a)576 1772 y FG(\()p Ft(E)t Fz(;)8 b Ft(D)q FG(\))j(=)i Fz(\015)780 1779 y Fs(s)798 1772 y Fz(N)832 1779 y Fs(s)850 1772 y FG(\()p Ft(E)t FG(\))d(+)g Fz(\015)993 1779 y Fs(i)1007 1772 y Fz(N)1041 1779 y Fs(i)1055 1772 y FG(\()p Ft(E)t FG(\))f(+)i Fz(\015)1198 1779 y Fs(b)1215 1772 y Fz(N)1249 1779 y Fs(b)1266 1772 y FG(\()p Ft(E)t FG(\))e(+)i Fz(\015)1409 1779 y Fs(a)1429 1772 y Fz(N)1463 1779 y Fs(a)1484 1772 y FG(\()p Ft(E)t FG(\))p Fz(:)252 b FG(\(14\))37 1866 y Fp(2)83 1944 y FG(Ob)o(viamen)o(te,)15 b(para)g(to)q(do)g Ft(D)h FG(y)f Ft(E)20 b FG(se)15 b(observ)m(a)503 2074 y Fz(G)539 2081 y Fs(\015)557 2085 y Fh(s)574 2081 y Fs(;\015)602 2086 y Fh(i)615 2081 y Fs(;\015)643 2087 y Fh(b)659 2081 y Fs(;\015)687 2085 y Fh(a)708 2074 y FG(\()p Ft(E)t Fz(;)8 b Ft(D)q FG(\))j(=)908 2021 y Fs(M)896 2034 y Fn(X)888 2124 y Fs(m)p Fu(=1)972 2074 y Fz(g)994 2081 y Fs(\015)1012 2085 y Fh(s)1028 2081 y Fs(;\015)1056 2086 y Fh(i)1070 2081 y Fs(;\015)1098 2087 y Fh(b)1113 2081 y Fs(;\015)1141 2085 y Fh(a)1162 2074 y FG(\()p Fz(E)1217 2055 y Fs(m)1249 2074 y Fz(;)d(c)1290 2055 y Fs(m)1323 2074 y Fz(;)g(s)1365 2055 y Fs(m)1397 2074 y FG(\))p Fz(:)385 b FG(\(15\))83 2201 y(T)l(al)23 b(como)f(se)g(comen)o(t\023)-23 b(o)22 b(en)h(el)g(apartado)e(2.1,)g(en)i(una)f(form)o(ulaci\023)-23 b(on)23 b(m\023)-23 b(as)22 b(general)h(ser)-5 b(\023)-18 b(\020a)23 b(p)q(osible)37 2258 y(p)q(onderar)e(de)g(mo)q(do)f(diferen) o(te)h(cada)f(una)g(de)h(las)g(op)q(eraciones)g(de)f(edici\023)-23 b(on)23 b(concretas)c([WF74)o(]:)g(p)q(or)37 2314 y(ejemplo,)d(si)g (consideramos)f(un)h(alfab)q(eto)f(\006)h(de)f(palabras,)g(el)h(coste)f (de)h(un)g(error)e(de)i(sustituci\023)-23 b(on)16 b(puede)37 2371 y(hacerse)d(dep)q(ender)h(de)e(la)h(similitud)i(fon)o(\023)-21 b(etica)11 b(en)o(tre)h(las)h(palabras)f(implicadas)i([PFF90)n(])e(\(v) o(\023)-21 b(ease)11 b(tam)o(bi)o(\023)-21 b(en)37 2427 y([PGDF86)o(]\).)14 b(No)h(obstan)o(te,)f(lo)h(habitual)h(es)g(encon)o (trarse)e(con)i(criterios)f(de)h(la)f(forma)g Fz(G)1613 2436 y Fu(\()p Fs(p)p Fu(\))1672 2427 y FG(=)e Fz(G)1756 2434 y Fu(1)p Fs(;p;p;)p Fu(0)1858 2427 y FG(.)83 2484 y(La)18 b(minimizaci\023)-23 b(on)21 b(de)e(un)g(criterio)g(de)g(esta)f (forma)g(admite)g(soluci\023)-23 b(on)20 b(e\014cien)o(te)g(p)q(or)e (Programaci\023)-23 b(on)37 2540 y(Din\023)g(amica.)16 b(Obs)o(\023)-21 b(erv)o(ese)15 b(que)g(se)h(v)o(eri\014ca)f(la)h (siguien)o(te)g(propiedad:)37 2627 y FJ(Propiedad)i(1)23 b FG(P)o(ara)14 b(to)q(do)h Fz(\015)575 2634 y Fs(s)593 2627 y FG(,)g Fz(\015)645 2634 y Fs(i)658 2627 y FG(,)g Fz(\015)710 2634 y Fs(b)727 2627 y FG(,)g Fz(\015)779 2634 y Fs(a)812 2627 y Ft(2)e FG(I)-8 b(R)q(:)270 2760 y(arg)7 b(min)282 2801 y Fo(E)s(2E)s Fu(\()p Fo(D)q Fu(\))425 2760 y Fz(G)461 2767 y Fs(\015)479 2771 y Fh(s)495 2767 y Fs(;\015)523 2772 y Fh(i)536 2767 y Fs(;\015)564 2773 y Fh(b)580 2767 y Fs(;\015)608 2771 y Fh(a)629 2760 y FG(\()p Ft(E)t Fz(;)h Ft(D)q FG(\))j(=)809 2688 y Fn(\()887 2760 y FG(arg)d(min)843 2801 y Fs(E)871 2791 y Fh(m)900 2801 y Fo(2)p Fs(E)r Fu(\()p Fs(c)981 2791 y Fh(m)1009 2801 y Fs(;s)1035 2791 y Fh(m)1065 2801 y Fu(\))1086 2760 y Fz(g)1108 2767 y Fs(\015)1126 2771 y Fh(s)1143 2767 y Fs(;\015)1171 2772 y Fh(i)1184 2767 y Fs(;\015)1212 2773 y Fh(b)1227 2767 y Fs(;\015)1255 2771 y Fh(a)1276 2760 y FG(\()p Fz(E)1331 2741 y Fs(m)1364 2760 y Fz(;)g(c)1405 2741 y Fs(m)1437 2760 y Fz(;)g(s)1479 2741 y Fs(m)1512 2760 y FG(\))1530 2688 y Fn(\))1563 2699 y Fs(M)1563 2815 y(m)p Fu(=1)1649 2760 y Fz(:)37 2876 y Fp(2)37 3074 y FG(10)p eop %%Page: 11 17 11 16 bop -13 -33 a Fv(El)16 b(pr)n(oblema)g(de)g(la)g(evaluaci\023)-23 b(on)17 b(de)f(un)g(sistema)g(de)g(r)n(e)n(c)n(ono)n(cimiento)p Fz(:)8 b(:)g(:)p -13 -16 1857 2 v 32 110 a FG(Esta)15 b(propiedad)i(hace)g(p)q(osible)g(pro)q(ceder)g(a)f(la)g (minimizaci\023)-23 b(on)18 b(del)f(criterio)g(de)f(edici\023)-23 b(on)18 b(median)o(te)f(la)-13 167 y(minimizaci\023)-23 b(on)14 b Fv(individual)j FG(de)12 b Fz(g)551 174 y Fs(\015)569 178 y Fh(s)585 174 y Fs(;\015)613 179 y Fh(i)627 174 y Fs(;\015)655 180 y Fh(b)670 174 y Fs(;\015)698 178 y Fh(a)731 167 y FG(sobre)g(cada)f(par)h(de)g(in)o(terpretaciones)h(de) f Ft(D)h FG(\(utilizando)h(la)e(re-)-13 223 y(currencia)i(\(5\)\))d(y)i (com)o(binar,)f(\014nalmen)o(te,)h(los)g(resultados)g(obtenidos.)g(La)g (complejidad)h(computacional)-13 280 y(de)h(esta)g(forma)f(de)i(pro)q (ceder)g(se)f(m)o(uestra)f(en)i(la)g(T)l(abla)f(1.)173 418 y(T)l(abla)h(1:)e(Complejidad)j(computacional)f(de)g(los)f (criterios)h(de)f(edici\023)-23 b(on)17 b Fz(G)1475 425 y Fs(\015)1493 429 y Fh(s)1510 425 y Fs(;\015)1538 430 y Fh(i)1551 425 y Fs(;\015)1579 431 y Fh(b)1595 425 y Fs(;\015)1623 429 y Fh(a)1644 418 y FG(.)p 350 486 1131 2 v 349 631 2 146 v 358 631 V 383 569 a(Complejidad)f(temp)q(oral)p 851 631 V 142 w Fz(\022)999 497 y Fn( )1052 516 y Fs(M)1040 528 y Fn(X)1032 619 y Fs(m)p Fu(=1)1116 569 y Ft(j)p Fz(c)1149 550 y Fs(m)1182 569 y Ft(j)s(\001)s(j)p Fz(s)1248 550 y Fs(m)1279 569 y Ft(j)1292 497 y Fn(!)p 1471 631 V 1480 631 V 350 633 1131 2 v 349 778 2 146 v 358 778 V 383 716 a FG(Complejidad)g(espacial)p 851 778 V 75 w Fz(\022)907 656 y Fn(\022)966 716 y FG(max)938 745 y Fu(1)p Fo(\024)p Fs(m)p Fo(\024)p Fs(M)1079 716 y FG(\(min\()p Ft(j)p Fz(c)1223 697 y Fs(m)1256 716 y Ft(j)p Fz(;)8 b Ft(j)p Fz(s)1324 697 y Fs(m)1356 716 y Ft(j)p FG(\))1387 656 y Fn(\023)p 1471 778 V 1480 778 V 350 780 1131 2 v -13 1000 a Fq(3.3)53 b(Coherencia)19 b(de)g(la)f(funci\023)-27 b(on)16 b(de)j(evaluaci\023)-27 b(on)-13 1085 y FG(Como)17 b(hemos)i(dic)o(ho)g(an)o(tes,)e(una)i(funci\023)-23 b(on)19 b(de)g(ev)m(aluaci\023)-23 b(on)20 b(resulta)e(de)h(la)g (elecci\023)-23 b(on)20 b(de)f(un)f(criterio)h(de)-13 1142 y(edici\023)-23 b(on)16 b(y)f(una)g(funci\023)-23 b(on)15 b(de)g(tasa.)e(In)o(tro)q(ducimos)j(en)f(este)f(pun)o(to)h(un)g (cierto)f(concepto)h(de)g(\\coherencia")-13 1198 y(en)g(dic)o(ha)h (elecci\023)-23 b(on,)17 b(cuy)o(a)e(imp)q(ortancia)h(se)f (justi\014car\023)-23 b(a)16 b(en)f(el)h(siguien)o(te)h(apartado:)-13 1279 y FJ(De\014nici\023)-26 b(on)17 b(20)f(\(Coherencia)g(en)o(tre)f (criterio)i(de)e(edici\023)-26 b(on)17 b(y)e(funci\023)-26 b(on)17 b(de)f(tasa\))e FG(Un)g(criterio)g(de)-13 1336 y(edici\023)-23 b(on)17 b Fz(G)e FG(es)g Fv(c)n(oher)n(ente)f FG(con)i(una)f(funci\023)-23 b(on)17 b(de)e(tasa)f Fz(T)21 b FG(si,)16 b(para)e(to)q(do)h Ft(D)q FG(,)574 1438 y(arg)8 b(opt)582 1478 y Fo(E)s(2E)s Fu(\()p Fo(D)q Fu(\))719 1438 y Fz(T)e FG(\()p Ft(E)t Fz(;)i Ft(D)q FG(\))j(=)i(arg)8 b(min)945 1478 y Fo(E)s(2E)s Fu(\()p Fo(D)q Fu(\))1087 1438 y Fz(G)p FG(\()p Ft(E)t Fz(;)g Ft(D)q FG(\))p Fz(:)-13 1560 y Fp(2)-13 1666 y FJ(De\014nici\023)-26 b(on)18 b(21)e(\(F)l(unci\023)-26 b(on)17 b(de)g(ev)m(aluaci\023)-26 b(on)18 b(coheren)o(te\))c FG(Una)g(funci\023)-23 b(on)15 b(de)g(ev)m(aluaci\023)-23 b(on)16 b Fz(f)j FG(es)c(coher-)-13 1723 y(en)o(te)g(si)h(emplea)g(un)f(criterio)h(de)g(edici\023)-23 b(on)17 b Fz(G)e FG(coheren)o(te)g(con)h(su)f(funci\023)-23 b(on)16 b(de)g(tasa)e Fz(T)6 b FG(.)-13 1779 y Fp(2)32 1860 y FG(En)15 b(la)g(familia)h(de)f(los)g(criterios)g(de)g(edici\023) -23 b(on)16 b(de)f(la)g(forma)f Fz(G)1094 1870 y Fu(\()p Fs(p)p Fu(\))1155 1860 y FG(p)q(o)q(demos)h(encon)o(trar)f(criterios)i (coher-)-13 1917 y(en)o(tes)g(para)g(algunas)g(de)h(las)f(funciones)h (de)g(tasa)e(que)i(aparecen)f(en)h(el)g(apartado)e(3.1.)g(Una)h(p)q (osibilidad)-13 1973 y(ob)o(via)j(de)h(obtener)f(coherencia)h(en)o(tre) f Fz(G)g FG(y)g Fz(T)25 b FG(es)19 b(de\014nir)i Fz(G)e FG(=)g Fz(T)25 b FG(\(si)20 b Fz(T)25 b FG(est\023)-23 b(a)18 b(en)i(v)o(ersi\023)-23 b(on)19 b(\\grado)f(de)-13 2030 y(acierto";)e(si)h(no,)f Fz(G)f FG(=)h Ft(\000)p Fz(T)23 b FG(es)16 b(la)h(elecci\023)-23 b(on)19 b(ob)o(via\).)d (Alternativ)m(amen)o(te,)h(n\023)-23 b(otese)17 b(que,)g(para)f(la)h (ma)o(y)o(or)-5 b(\023)-18 b(\020a)-13 2086 y(de)20 b(las)g(funciones)i (de)e(tasa)f Fz(T)26 b FG(que)20 b(aparecen)g(en)g(el)h(apartado)e (3.1,)f(el)j(denominador)g(de)f Fz(T)6 b FG(\()p Ft(E)t Fz(;)i Ft(D)q FG(\))19 b(es)-13 2143 y Fz(C)25 b FG(\(12a\),)20 b(p)q(ositiv)o(o)i(e)h(indep)q(endien)o(te)i(de)d Ft(E)t FG(,)g(de)g(mo)q(do)g(que)h(no)f(in)o(terviene)h(en)g(la)f(b)q(\023)-24 b(usqueda)23 b(de)g(la)-13 2199 y(edici\023)-23 b(on)19 b(\023)-23 b(optima.)17 b(As)-5 b(\023)-18 b(\020,)18 b(un)g(criterio)h(de)f(edici\023)-23 b(on)19 b(coheren)o(te)f(con)g(el) g(\\)-5 b(\023)-18 b(\020ndice)20 b(de)e(error",)e Fz(T)1592 2206 y Ff(IE)1653 2199 y FG(\(y)l(,)h(conse-)-13 2255 y(cuen)o(temen)o(te,)c(con)h(el)g(\\)-5 b(\023)-18 b(\020ndice)15 b(de)f(precisi\023)-23 b(on",)14 b Fz(T)849 2262 y Ff(IP)892 2255 y FG(\))f(ser)-5 b(\023)-18 b(\020a)13 b(equiv)m(alen)o(te)j(a)d (la)g(minimizaci\023)-23 b(on)16 b(del)f(n)q(\023)-24 b(umero)-13 2312 y(de)20 b(errores,)f(expresable)i(como)e Fz(G)604 2321 y Fu(\(1\))651 2312 y FG(.)g(P)o(or)g(otra)g(parte,)g Fz(G)1046 2321 y Fu(\(0)p Fs(:)p Fu(5\))1140 2312 y FG(es)h(coheren)o (te)g(con)g(el)g(\\p)q(orcen)o(ta)s(je)f(de)-13 2368 y(sustituciones)g(y)e(b)q(orrados",)f Fz(T)552 2375 y Ff(PSB)644 2368 y FG(\(y)l(,)h(consecuen)o(temen)o(te,)h(con)g(el)g (\\p)q(orcen)o(ta)s(je)f(de)h(aciertos",)f Fz(T)1776 2375 y Ff(P)m(A)1825 2368 y FG(\))-13 2425 y(y)o(a)f(que)h Fz(G)171 2432 y Fu(1)p Fs(;)p Fu(0)p Fs(;)p Fu(1)p Fs(;)p Fu(0)288 2425 y Ft(\021)f Fz(G)375 2434 y Fu(\(0)p Fs(:)p Fu(5\))449 2425 y FG(,)g(y)h(tam)o(bi)o(\023)-21 b(en)16 b(con)h(el)h(\\)-5 b(\023)-18 b(\020ndice)18 b(de)f(error)f(p)q (onderado")h(\(y)l(,)f(consecuen)o(temen)o(te,)-13 2481 y(con)f(el)h(\\)-5 b(\023)-18 b(\020ndice)17 b(de)f(acierto)f(p)q (onderado"\))g(y)o(a)g(que)g Fz(G)927 2488 y Fu(1)p Fs(;)p Fu(0)p Fs(:)p Fu(5)p Fs(;)p Fu(0)p Fs(:)p Fu(5)p Fs(;)p Fu(0)1096 2481 y Ft(\021)e Fz(G)1180 2491 y Fu(\(0)p Fs(:)p Fu(5\))1255 2481 y FG(.)32 2538 y(Finalmen)o(te,)20 b(el)g(\\p)q(orcen)o(ta)s(je)e(real)h(de)h(errores",)e(que)h(como)g (vimos)g(presen)o(ta)g(propiedades)h(que)g(lo)-13 2594 y(hacen)13 b(m\023)-23 b(as)12 b(atractiv)o(o)f(que)i(las)g(dem\023)-23 b(as)13 b(funciones)h(de)f(tasa,)e(presen)o(ta)h(un)h(denominador)g (que)g Fv(s)-5 b(\023)-19 b(\020)17 b FG(dep)q(ende)-13 2651 y(de)g(la)f(edici\023)-23 b(on)19 b Ft(E)t FG(.)d(P)o(arece)g(in)o (tuitiv)o(o)h(que)g Fz(T)757 2658 y Ff(PRE)853 2651 y Fv(no)h(pue)n(de)f(ser,)g(en)g(gener)n(al,)g(c)n(oher)n(ente)f(c)n(on)g Fz(G)1695 2660 y Fu(\()p Fs(p)p Fu(\))1759 2651 y Fv(p)n(ar)n(a)-13 2707 y(ning)q(\023)-24 b(un)17 b Fz(p)c Ft(2)g FG(I)-8 b(R)16 b Fv(pr)n(e)n(determinado)p FG(.)f(Un)h(resumen)g(de)f(esta)g (discusi\023)-23 b(on)17 b(aparece)e(en)h(la)f(T)l(abla)h(2.)32 2764 y(N\023)-23 b(otese)16 b(que)g(no)f(siempre)i(en)f(la)g (literatura)f(se)h(hace)g(uso)f(de)h(criterios)h(de)f(edici\023)-23 b(on)17 b(coheren)o(tes)f(con)g(la)-13 2820 y(funci\023)-23 b(on)17 b(de)g(tasa)f(corresp)q(ondien)o(te.)h(Generalmen)o(te)g(se)f (usa)g Fz(G)1111 2829 y Fu(\(1\))1158 2820 y FG(,)g(aunque)h(tam)o(bi)o (\023)-21 b(en)16 b(es)h(frecuen)o(te)f(que)-13 2876 y(el)g(criterio)g(de)f(edici\023)-23 b(on)17 b(usado)e(no)g(aparezca)g (totalmen)o(te)g(esp)q(eci\014cado.)1797 3074 y(11)p eop %%Page: 12 18 12 17 bop 600 -33 a Fv(El)15 b(pr)n(oblema)i(de)f(la)g(evaluaci\023)-23 b(on)17 b(de)f(un)g(sistema)g(de)g(r)n(e)n(c)n(ono)n(cimiento)p Fz(:)8 b(:)g(:)p 37 -16 1857 2 v 37 142 a FG(T)l(abla)16 b(2:)e(F)l(unciones)h(de)f(ev)m(aluaci\023)-23 b(on)15 b(aparecidas)f(en)g(la)f(literatura)h(con)f(su)h(corresp)q(ondien)o(te) g(criterio)g(de)215 198 y(edici\023)-23 b(on)18 b(coheren)o(te)d(den)o (tro)g(de)g(la)h(familia)g Fz(G)1013 207 y Fu(\()p Fs(p)p Fu(\))1060 198 y FG(.)p 312 270 1308 2 v 311 320 2 50 v 473 305 a FH(F)l(unci\023)-24 b(on)13 b(de)j(tasa)p 961 320 V 185 w(Criterio)e(de)h(edici\023)-24 b(on)14 b(coheren)o(te)p 1618 320 V 312 322 1308 2 v 311 467 2 146 v 426 405 a Fe(T)450 411 y Fd(P)m(A)510 405 y FI(=)e(100)720 377 y Fe(N)751 383 y Fc(a)p 621 395 249 2 v 621 433 a Fe(N)652 439 y Fc(s)679 433 y FI(+)d Fe(N)751 439 y Fc(b)777 433 y FI(+)h Fe(N)850 439 y Fc(a)p 961 467 2 146 v 1239 405 a Fe(G)1272 412 y Fb(\(0)p Fc(:)p Fb(5\))p 1618 467 V 312 469 1308 2 v 311 614 2 146 v 429 552 a Fe(T)453 558 y Fd(IP)506 552 y FI(=)i(100)669 524 y Fe(N)700 530 y Fc(a)729 524 y FC(\000)d Fe(N)801 530 y Fc(i)p 618 542 249 2 v 618 580 a Fe(N)649 586 y Fc(s)675 580 y FI(+)h Fe(N)748 586 y Fc(b)774 580 y FI(+)f Fe(N)846 586 y Fc(a)p 961 614 2 146 v 1252 552 a Fe(G)1285 559 y Fb(\(1\))p 1618 614 V 312 616 1308 2 v 311 761 2 146 v 429 699 a Fe(T)453 705 y Fd(IE)507 699 y FI(=)i(100)621 671 y Fe(N)652 677 y Fc(i)675 671 y FI(+)e Fe(N)747 677 y Fc(s)774 671 y FI(+)h Fe(N)847 677 y Fc(b)p 618 689 249 2 v 618 727 a Fe(N)649 733 y Fc(s)676 727 y FI(+)f Fe(N)748 733 y Fc(b)774 727 y FI(+)h Fe(N)847 733 y Fc(a)p 961 761 2 146 v 1252 699 a Fe(G)1285 706 y Fb(\(1\))p 1618 761 V 312 763 1308 2 v 311 908 2 146 v 415 846 a Fe(T)439 852 y Fd(PSB)521 846 y FI(=)i(100)683 818 y Fe(N)714 824 y Fc(s)741 818 y FI(+)e Fe(N)814 824 y Fc(b)p 632 836 249 2 v 632 874 a Fe(N)663 880 y Fc(s)690 874 y FI(+)g Fe(N)763 880 y Fc(b)789 874 y FI(+)f Fe(N)861 880 y Fc(a)p 961 908 2 146 v 1239 846 a Fe(G)1272 853 y Fb(\(0)p Fc(:)p Fb(5\))p 1618 908 V 312 910 1308 2 v 311 1055 2 146 v 395 993 a Fe(T)419 999 y Fd(IEP)495 993 y FI(=)i(100)606 962 y Fe(N)637 968 y Fc(s)664 962 y FI(+)710 946 y Fb(1)p 710 953 17 2 v 710 976 a(2)732 962 y Fe(N)763 968 y Fc(i)786 962 y FI(+)832 946 y Fb(1)p 832 953 V 832 976 a(2)854 962 y Fe(N)885 968 y Fc(b)p 606 983 296 2 v 629 1021 a Fe(N)660 1027 y Fc(s)687 1021 y FI(+)e Fe(N)759 1027 y Fc(b)785 1021 y FI(+)h Fe(N)858 1027 y Fc(a)p 961 1055 2 146 v 1239 993 a Fe(G)1272 1000 y Fb(\(0)p Fc(:)p Fb(5\))p 1618 1055 V 312 1057 1308 2 v 311 1202 2 146 v 376 1140 a Fe(T)400 1146 y Fd(IAP)478 1140 y FI(=)i(100)590 1109 y FC(\000)627 1093 y Fb(1)p 627 1100 17 2 v 627 1123 a(2)648 1109 y Fe(N)679 1115 y Fc(i)702 1109 y FI(+)749 1093 y Fb(1)p 749 1100 V 749 1123 a(2)770 1109 y Fe(N)801 1115 y Fc(b)827 1109 y FI(+)e Fe(N)900 1115 y Fc(a)p 589 1130 331 2 v 630 1168 a Fe(N)661 1174 y Fc(s)688 1168 y FI(+)g Fe(N)761 1174 y Fc(b)786 1168 y FI(+)g Fe(N)859 1174 y Fc(a)p 961 1202 2 146 v 1239 1140 a Fe(G)1272 1147 y Fb(\(0)p Fc(:)p Fb(5\))p 1618 1202 V 312 1204 1308 2 v 311 1349 2 146 v 364 1287 a Fe(T)388 1293 y Fd(PRE)476 1287 y FI(=)i(100)638 1258 y Fe(N)669 1264 y Fc(s)696 1258 y FI(+)e Fe(N)769 1264 y Fc(i)792 1258 y FI(+)f Fe(N)864 1264 y Fc(b)p 587 1277 345 2 v 587 1315 a Fe(N)618 1321 y Fc(s)645 1315 y FI(+)h Fe(N)718 1321 y Fc(i)741 1315 y FI(+)f Fe(N)813 1321 y Fc(b)839 1315 y FI(+)h Fe(N)912 1321 y Fc(a)p 961 1349 2 146 v 1270 1287 a FI(|)p 1618 1349 V 312 1351 1308 2 v 311 1496 2 146 v 365 1434 a Fe(T)389 1440 y Fd(PRA)476 1434 y FI(=)h(100)733 1405 y Fe(N)764 1411 y Fc(a)p 587 1424 345 2 v 587 1462 a Fe(N)618 1468 y Fc(s)645 1462 y FI(+)e Fe(N)717 1468 y Fc(i)740 1462 y FI(+)h Fe(N)813 1468 y Fc(b)839 1462 y FI(+)f Fe(N)911 1468 y Fc(a)p 961 1496 2 146 v 1270 1434 a FI(|)p 1618 1496 V 312 1497 1308 2 v 37 1687 a FB(4.)47 b(M)o(\023)-32 b(eto)r(do)21 b(de)g (evaluaci\023)-33 b(on)22 b(p)n(ropuesto)37 1807 y Fq(4.1)53 b(F)n(unci\023)-27 b(on)18 b(de)g(evaluaci\023)-27 b(on)37 1909 y FG(Un)18 b(asp)q(ecto)e(de)h(esp)q(ecial)i(imp)q(ortancia)f(en)f (esta)f(propuesta)h(consiste)g(en)g(p)q(ostular)g(que)g(la)g(funci\023) -23 b(on)18 b(de)37 1965 y(ev)m(aluaci\023)-23 b(on)19 b(utilizada)g(ha)e(de)h(ser)f(coheren)o(te)h(\(en)f(el)h(sen)o(tido)f (de\014nido)i(en)f(el)g(apartado)e(3.3\),)f(es)j(decir,)37 2022 y(si)i(hemos)f(elegido)h(una)f(funci\023)-23 b(on)20 b(de)g(tasa)e(que)h(mide)h(satisfactoriamen)o(te)e(el)i(grado)e(de)h (semejanza)g(\(o)37 2078 y(de)h(disimilitud\))i(en)o(tre)d(las)h(in)o (terpretaciones)g(correctas)e(y)h(del)i(sistema)e(en)g(el)h(conjun)o (to)f(de)h(datos)e Ft(D)37 2135 y FG(seg)q(\023)-24 b(un)14 b(una)f(cierta)h(edici\023)-23 b(on,)14 b(esa)f(misma)h(funci\023)-23 b(on)14 b(prop)q(orcionar\023)-23 b(a)13 b(el)h(criterio)g(para,)e (\014jado)h Ft(D)q FG(,)g(ev)m(aluar)h(la)37 2191 y(\\plausibili)q (dad")h(de)e(cada)f(una)h(de)g(sus)f(p)q(osibles)j(ediciones.)f(Esto,)d (que)i(puede)g(v)o(erse)g(como)f(la)h(aplicaci\023)-23 b(on)37 2247 y(de)18 b(un)g(cierto)f(principio)i(de)f(econom)-5 b(\023)-18 b(\020a)17 b(\(a)g(menos)g(que)g(se)g(justi\014que,)h(no)f (parece)h(hab)q(er)f(necesidad)i(de)37 2304 y(de\014nir)e(dos)e (funciones)i(diferen)o(tes)f(para)f(medir)h(el)h(grado)d(de)i (compatibilidad)i(en)o(tre)d(pares)g(de)h(cadenas)37 2360 y(y)h(ediciones)i(de)e(las)g(mismas\))g(trae)f(consigo)h(otra)f (propiedad)i(deseable:)g Fv(las)f(funciones)g(de)h(evaluaci\023)-23 b(on)37 2417 y(c)n(oher)n(entes)14 b(son)g(monovaluadas)p FG(,)g(es)g(decir,)g(una)g(funci\023)-23 b(on)15 b(de)f(ev)m (aluaci\023)-23 b(on)15 b(coheren)o(te)f(prop)q(orciona,)g(para)37 2473 y(cada)f(conjun)o(to)g Ft(D)q FG(,)f(un)j(\023)-24 b(unico)13 b(v)m(alor)g(\(el)h(resultado)f(de)g(optimizar)g(su)g (funci\023)-23 b(on)14 b(de)f(tasa\).)e(Esta)h(propiedad)37 2530 y(no)17 b(siempre)g(se)f(cumple)h(para)f(funciones)i(de)e(ev)m (aluaci\023)-23 b(on)18 b(no)e(coheren)o(tes,)g(pues)h(en)o(tonces)f (puede)i(darse)37 2586 y(el)g(caso)f(de)h(que)g(exista)f(m\023)-23 b(as)17 b(de)g(una)h(edici\023)-23 b(on)19 b(\023)-23 b(optima)17 b(para)g(el)h(criterio)f(de)h(edici\023)-23 b(on)19 b(elegido,)f(y)f(que)h(la)37 2643 y(funci\023)-23 b(on)17 b(de)e(tasa)g(devuelv)m(a)h(v)m(alores)g(diferen)o(tes)g(para)f (cada)g(una)g(de)h(estas)e(ediciones.)83 2707 y(En)k(el)g(apartado)f (3.1)g(vimos)h(que)g(la)g(funci\023)-23 b(on)19 b(de)f(tasa)f (denominada)h(\\p)q(orcen)o(ta)s(je)f(real)h(de)g(errores")37 2764 y(\()p Fz(T)82 2771 y Ff(PRE)162 2764 y FG(\))f(presen)o(ta)g (ciertas)h(caracter)-5 b(\023)-18 b(\020sticas)18 b(deseables)g(que)g (nos)g(conducen)g(a)g(prop)q(onerla)g(como)f(parte)37 2820 y(del)i(m)o(\023)-21 b(eto)q(do)17 b(de)h(ev)m(aluaci\023)-23 b(on)20 b(que)e(estamos)f(presen)o(tando.)h(F)l(ormalmen)o(te,)f(n)o (uestra)g(elecci\023)-23 b(on)20 b(de)f Fz(T)1814 2827 y Ff(PRE)37 2876 y FG(y)g(n)o(uestro)e(p)q(ostulado)i(de)f(coherencia)i (nos)e(llev)m(an)i(a)e(utilizar)h(una)g(funci\023)-23 b(on)19 b(de)g(ev)m(aluaci\023)-23 b(on)19 b Fz(f)1725 2883 y Ff(PRE)1824 2876 y FG(que)37 3074 y(12)p eop %%Page: 13 19 13 18 bop -13 -33 a Fv(El)16 b(pr)n(oblema)g(de)g(la)g(evaluaci\023)-23 b(on)17 b(de)f(un)g(sistema)g(de)g(r)n(e)n(c)n(ono)n(cimiento)p Fz(:)8 b(:)g(:)p -13 -16 1857 2 v -13 110 a FG(p)q(o)q(demos)15 b(expresar)h(como:)558 219 y Fz(f)580 226 y Ff(PRE)660 219 y FG(\()p Ft(D)q FG(\))d(=)36 b(min)793 251 y Fo(E)s(2E)s Fu(\()p Fo(D)q Fu(\))922 219 y Fz(T)949 226 y Ff(PRE)1029 219 y FG(\()p Ft(E)t Fz(;)8 b Ft(D)q FG(\))612 b(\(16\))745 314 y(=)13 b(100)c Ft(\001)33 b FG(min)894 346 y Fo(E)s(2E)s Fu(\()p Fo(D)q Fu(\))1023 314 y Fz(G)1059 321 y Ff(PRE)1139 314 y FG(\()p Ft(E)t Fz(;)8 b Ft(D)q FG(\))p Fz(;)-13 446 y FG(donde)442 522 y Fz(G)478 529 y Ff(PRE)558 522 y FG(\()p Ft(E)t Fz(;)g Ft(D)q FG(\))k(=)830 491 y Fz(N)864 498 y Fs(s)883 491 y FG(\()p Ft(E)t FG(\))d(+)i Fz(N)1036 498 y Fs(i)1050 491 y FG(\()p Ft(E)t FG(\))e(+)i Fz(N)1203 498 y Fs(b)1220 491 y FG(\()p Ft(E)t FG(\))p 744 511 627 2 v 744 553 a Fz(N)778 560 y Fs(s)796 553 y FG(\()p Ft(E)t FG(\))e(+)i Fz(N)949 560 y Fs(i)963 553 y FG(\()p Ft(E)t FG(\))e(+)i Fz(N)1116 560 y Fs(b)1133 553 y FG(\()p Ft(E)t FG(\))e(+)i Fz(N)1286 560 y Fs(a)1307 553 y FG(\()p Ft(E)t FG(\))1375 522 y Fz(:)374 b FG(\(17\))32 637 y(Esta)14 b(funci\023)-23 b(on)16 b(de)f(ev)m(aluaci\023)-23 b(on)16 b(puede)f(v)o(erse)g(como)f(una)h(generalizaci\023)-23 b(on)16 b(de)f(la)g(\\)p Fv(distancia)g(de)g(e)n(dici\023)-23 b(on)-13 693 y(normalizada)s FG(")14 b(de\014nida)h(para)e(pares)h(de)g (cadenas)g([MV93)o(])f(a)h(secuencias)h(de)f(pares)f(de)i(cadenas)f (\(expre-)-13 749 y(sada)h(en)g(tan)o(to)f(p)q(or)h(cien)i(y)e(con)g(p) q(eso)h(1)f(para)f(los)i(errores)e(y)i(0)e(para)h(los)h(aciertos\).)-13 886 y Fq(4.2)53 b(M)o(\023)-26 b(eto)r(do)15 b(de)k(c)o(\023)-27 b(alculo)-13 976 y FG(P)o(ara)14 b(completar)g(n)o(uestra)h(propuesta)f (s\023)-23 b(olo)15 b(resta)f(presen)o(tar)h(un)g(m)o(\023)-21 b(eto)q(do)14 b(e\014cien)o(te)i(que)f(p)q(ermita,)g(dado)-13 1032 y Ft(D)q FG(,)10 b(calcular)h(el)g(v)m(alor)g(de)f Fz(f)438 1039 y Ff(PRE)519 1032 y FG(\()p Ft(D)q FG(\).)f(Obs)o(\023) -21 b(erv)o(ese)10 b(que)g(tan)o(to)f(el)i(n)o(umerador)f(como)g(el)h (denominador)f(de)h(\(17\))-13 1089 y(son)16 b(dep)q(endien)o(tes)i(de) f(la)f(edici\023)-23 b(on)18 b Ft(E)t FG(.)e(Una)g(apro)o(ximaci\023) -23 b(on)16 b(con)o(v)o(encional)h(conduce)h(a)d(un)i(algoritmo)e(de) -13 1145 y(Programaci\023)-23 b(on)15 b(Din\023)-23 b(amica)17 b(similar)h(al)f(propuesto)f(en)h([MV93)o(])f(cuy)o(o)g(coste)g(temp)q (oral)g(es)h(prop)q(orcional)-13 1202 y(al)e Fv(cuadr)n(ado)h FG(del)g(menor)f(de)g Fz(C)i FG(y)e Fz(S)i FG(p)q(or)e(el)h(ma)o(y)o (or)d(de)i(am)o(b)q(os,)f(y)h(con)g(unos)g(requerimien)o(tos)g (espaciales)-13 1258 y(prop)q(orcionales)k(al)g Fv(cuadr)n(ado)g FG(del)g(menor)f(de)h Fz(C)i FG(y)d Fz(S)i FG(\(T)l(abla)f(3\).)e(Si)i (sup)q(onemos)f(que)h(la)f(talla)h(de)g(las)-13 1314 y(in)o(terpretaciones)c(correctas)f(y)g(del)h(sistema)g(para)f(el)h (conjun)o(to)f(de)h(pron)o(unciaciones)h(son)e(comparables,)-13 1371 y(el)i(coste)f(temp)q(oral)g(del)h(algoritmo)f(es)g Fv(c)q(\023)-24 b(ubic)n(o)p FG(.)32 1430 y(Esta)21 b(situaci\023)-23 b(on)22 b(se)f(v)o(e)g(agra)o(v)m(ada)f(p)q(orque)h(en)g(el)h(caso)f (de)g Fz(G)1146 1437 y Ff(PRE)1247 1430 y FG(no)g(es)g(p)q(osible)i (pro)q(ceder)f(a)f(una)-13 1486 y(minimizaci\023)-23 b(on)23 b(individual)g(sobre)d(cada)g(uno)h(de)g(los)f(pares)g(de)h(in) o(terpretaciones)g(y)l(,)f(p)q(osteriormen)o(te,)-13 1542 y(com)o(binar)15 b(los)g(resultados)g(parciales,)g(pues)h(no)e(se) h(observ)m(a)g(una)g(propiedad)h(an\023)-23 b(aloga)14 b(a)h(la)g(Propiedad)g(1)-13 1599 y(\(apartado)c(3.2\).)g(Si)i(tenemos) g(en)g(cuen)o(ta)g(que)g(al)g(ev)m(aluar)g(un)g(sistema)g(de)g(recono)q (cimien)o(to)g(cab)q(e)h(esp)q(erar)-13 1655 y(que)22 b(se)g(presen)o(ten)g(n)o(umerosos)f(pares)g(de)h(in)o(terpretaciones,) g(p)q(o)q(demos)g(concluir)i(que)e(el)g(empleo)g(de)-13 1712 y(la)f(t)o(\023)-21 b(ecnica)22 b(de)f(Programaci\023)-23 b(on)21 b(Din\023)-23 b(amica)22 b(en)g(la)f(minimizaci\023)-23 b(on)24 b(de)e Fz(G)1288 1719 y Ff(PRE)1389 1712 y FG(conduce)h(a)e (unos)g(costes)-13 1768 y(prohibitiv)o(os.)-13 1911 y(T)l(abla)15 b(3:)g(Complejidad)25 b(resultan)o(te)e(de)h(ab)q(ordar)f(p)q(or)h (Programaci\023)-23 b(on)22 b(Din\023)-23 b(amica)24 b(la)g(ev)m(aluaci\023)-23 b(on)25 b(de)165 1967 y Fz(f)187 1974 y Ff(PRE)267 1967 y FG(.)15 b(Notaci\023)-23 b(on:)15 b Fz(\013)e FG(=)g(min)q(\()p Fz(C)q(;)8 b(S)s FG(\),)k Fz(\014)i FG(=)f(max\()p Fz(C)q(;)8 b(S)s FG(\).)p 535 2033 759 2 v 534 2179 2 146 v 543 2179 V 569 2116 a(Complejidad)16 b(temp)q(oral)p 1037 2179 V 50 w Fz(\022)q FG(\()p Fz(\014)c Ft(\001)e Fz(\013)1193 2100 y Fu(2)1213 2116 y FG(\))p 1285 2179 V 1294 2179 V 535 2180 759 2 v 534 2326 2 146 v 543 2326 V 569 2263 a(Complejidad)16 b(espacial)p 1037 2326 V 105 w Fz(\022)q FG(\()p Fz(\013)1162 2247 y Fu(2)1183 2263 y FG(\))p 1285 2326 V 1294 2326 V 535 2327 759 2 v -13 2561 a FA(4.2.1)50 b(Programaci\023)-25 b(on)17 b(F)o(raccional)-13 2651 y FG(Basta)9 b(con)h(recurrir)h(a)f(la)g(t)o (\023)-21 b(ecnica)10 b(de)h(Programaci\023)-23 b(on)9 b(F)l(raccional)i(\(\\F)l(ractional)f(Programming")f([Snie92]\))-13 2707 y(para)k(p)q(o)q(der)h(form)o(ular)e(un)i(algoritmo)f(que,)g(en)h (la)g(pr\023)-23 b(actica,)13 b(presen)o(ta)g(una)h(complejidad)g(temp) q(oral)g(pro-)-13 2764 y(p)q(orcional)i(a)f(la)h(suma)f(de)h(los)f(pro) q(ductos)g(de)h(las)g(tallas)f(de)h(los)f(ob)s(jetos)g(comparados)f(y)h (con)h(o)q(cupaci\023)-23 b(on)-13 2820 y(de)17 b(memoria)f(prop)q (orcional)h(a)g(la)f(talla)h(de)g(uno)g(de)g(ellos,)g(es)f(decir,)i (complejidades)g(similares)g(a)e(las)g(de)-13 2876 y(las)f(t)o(\023)-21 b(ecnicas)15 b(con)o(v)o(encionales)i(\(T)l(abla)e(1\).)1797 3074 y(13)p eop %%Page: 14 20 14 19 bop 600 -33 a Fv(El)15 b(pr)n(oblema)i(de)f(la)g(evaluaci\023)-23 b(on)17 b(de)f(un)g(sistema)g(de)g(r)n(e)n(c)n(ono)n(cimiento)p Fz(:)8 b(:)g(:)p 37 -16 1857 2 v 83 110 a FG(Los)19 b(algoritmos)f(de)i (Programaci\023)-23 b(on)18 b(F)l(raccional)h(p)q(ermiten)h(resolv)o (er)f(algunos)g(problemas)h(de)f(opti-)37 167 y(mizaci\023)-23 b(on)17 b(con)e(funciones)i(ob)s(jetiv)o(o)d(racionales.)i(Si)g (deseamos)f(cono)q(cer)615 270 y(min)591 301 y Fo(E)s(2E)s Fu(\()p Fo(D)q Fu(\))721 270 y Fz(G)757 277 y Ff(PRE)837 270 y FG(\()p Ft(E)t Fz(;)8 b Ft(D)q FG(\))k(=)36 b(min)1018 301 y Fo(E)s(2E)s Fu(\()p Fo(D)q Fu(\))1152 239 y Fz(h)1178 246 y Fs(n)1202 239 y FG(\()p Ft(E)t Fz(;)8 b Ft(D)q FG(\))p 1152 259 170 2 v 1154 301 a Fz(h)1180 308 y Fs(d)1200 301 y FG(\()p Ft(E)t Fz(;)g Ft(D)q FG(\))1327 270 y Fz(;)37 375 y FG(donde)531 456 y Fz(h)557 463 y Fs(n)581 456 y FG(\()p Ft(E)t Fz(;)g Ft(D)q FG(\))j(=)i Fz(N)795 463 y Fs(s)813 456 y FG(\()p Ft(E)t FG(\))d(+)g Fz(N)966 463 y Fs(i)980 456 y FG(\()p Ft(E)t FG(\))g(+)g Fz(N)1133 463 y Fs(b)1150 456 y FG(\()p Ft(E)t FG(\))p Fz(;)534 525 y(h)560 532 y Fs(d)581 525 y FG(\()p Ft(E)t Fz(;)e Ft(D)q FG(\))j(=)i Fz(N)795 532 y Fs(s)813 525 y FG(\()p Ft(E)t FG(\))d(+)g Fz(N)966 532 y Fs(i)980 525 y FG(\()p Ft(E)t FG(\))g(+)g Fz(N)1133 532 y Fs(b)1150 525 y FG(\()p Ft(E)t FG(\))g(+)g Fz(N)1303 532 y Fs(a)1324 525 y FG(\()p Ft(E)t FG(\))p Fz(;)37 606 y FG(se)16 b(de\014ne)g(un)g(n)o(uev)o(o)f (problema)g(param)o(\023)-21 b(etrico)14 b(de)i(la)f(forma)600 688 y(\000\()p Fz(\025)p FG(\))d(=)36 b(min)751 720 y Fo(E)s(2E)s Fu(\()p Fo(D)q Fu(\))880 688 y Fz(h)906 695 y Fs(n)930 688 y FG(\()p Ft(E)t Fz(;)8 b Ft(D)q FG(\))h Ft(\000)i Fz(\025)e Ft(\001)h Fz(h)1191 695 y Fs(d)1211 688 y FG(\()p Ft(E)t Fz(;)e Ft(D)q FG(\))37 793 y(cuy)o(a)18 b(soluci\023)-23 b(on)19 b(para)e(un)h Fz(\025)f FG(particular)h (coincide)i(con)e(la)f(soluci\023)-23 b(on)19 b(al)f(problema)g (original.)g(Dic)o(ho)g Fz(\025)f FG(se)37 849 y(obtiene)d(p)q(or)e(un) h(pro)q(cedimien)o(to)h(de)f(sucesiv)m(as)h(apro)o(ximaciones)f(cuy)o (a)f(con)o(v)o(ergencia)h(est\023)-23 b(a)12 b(garan)o(tizada.)37 906 y(El)20 b(pro)q(cedimien)o(to)g(en)g(cuesti\023)-23 b(on)20 b(toma)e(como)g(primera)h(estimaci\023)-23 b(on)20 b(de)g Fz(\025)e FG(un)i(v)m(alor)f(arbitrario)g(de)g(la)37 962 y(funci\023)-23 b(on)18 b(ob)s(jetiv)o(o;)e(a)g(con)o(tin)o (uaci\023)-23 b(on)17 b(encuen)o(tra)g(una)g(edici\023)-23 b(on)18 b Ft(E)1177 946 y Fo(0)1206 962 y FG(tal)e(que)h Fz(h)1387 969 y Fs(n)1411 962 y FG(\()p Ft(E)1457 946 y Fo(0)1468 962 y Fz(;)8 b Ft(D)q FG(\))i Ft(\000)i Fz(\025)e Ft(\001)h Fz(h)1687 969 y Fs(d)1707 962 y FG(\()p Ft(E)1753 946 y Fo(0)1765 962 y Fz(;)d Ft(D)q FG(\))15 b(es)37 1019 y(m)-5 b(\023)-18 b(\020nimo)19 b(y)f(hace)g(que)h(el)f(n)o(uev)o (o)g(v)m(alor)g(de)g Fz(\025)g FG(sea)f Fz(G)960 1026 y Ff(PRE)1040 1019 y FG(\()p Ft(E)1086 1002 y Fo(0)1098 1019 y Fz(;)8 b Ft(D)q FG(\).)16 b(El)j(algoritmo)e(se)h(detiene)h (cuando)f(no)37 1075 y(se)h(exp)q(erimen)o(ta)g(cam)o(bio)f(en)h(la)g (estimaci\023)-23 b(on)19 b(de)g Fz(\025)p FG(,)e(resultando)i(el)g (propio)g(v)m(alor)f(de)h Fz(\025)f FG(la)g(soluci\023)-23 b(on)20 b(al)37 1132 y(problema)c(original.)83 1188 y(M\023)-23 b(as)14 b(concretamen)o(te,)h(ha)o(y)g(que)g(notar)g(que)213 1270 y(\000\()p Fz(\025)p FG(\))d(=)36 b(min)364 1301 y Fo(E)s(2E)s Fu(\()p Fo(D)q Fu(\))486 1270 y FG(\()p Fz(N)538 1277 y Fs(s)556 1270 y FG(\()p Ft(E)t FG(\))10 b(+)g Fz(N)709 1277 y Fs(i)723 1270 y FG(\()p Ft(E)t FG(\))g(+)g Fz(N)876 1277 y Fs(b)893 1270 y FG(\()p Ft(E)t FG(\)\))f Ft(\000)i Fz(\025)p FG(\()p Fz(N)1109 1277 y Fs(s)1126 1270 y FG(\()p Ft(E)t FG(\))f(+)g Fz(N)1279 1277 y Fs(i)1293 1270 y FG(\()p Ft(E)t FG(\))g(+)g Fz(N)1446 1277 y Fs(b)1463 1270 y FG(\()p Ft(E)t FG(\))g(+)g Fz(N)1616 1277 y Fs(a)1637 1270 y FG(\()p Ft(E)t FG(\)\))316 1365 y(=)36 b(min)364 1396 y Fo(E)s(2E)s Fu(\()p Fo(D)q Fu(\))486 1365 y FG(\(1)10 b Ft(\000)g Fz(\025)p FG(\))p Fz(N)661 1372 y Fs(s)679 1365 y FG(\()p Ft(E)t FG(\))f(+)i(\(1)e Ft(\000)h Fz(\025)p FG(\))p Fz(N)972 1372 y Fs(i)986 1365 y FG(\()p Ft(E)t FG(\))f(+)i(\(1)e Ft(\000)i Fz(\025)p FG(\))p Fz(N)1280 1372 y Fs(b)1296 1365 y FG(\()p Ft(E)t FG(\))e Ft(\000)i Fz(\025N)1476 1372 y Fs(a)1496 1365 y FG(\()p Ft(E)t FG(\))316 1460 y(=)36 b(min)364 1491 y Fo(E)s(2E)s Fu(\()p Fo(D)q Fu(\))494 1460 y Fz(G)530 1467 y Fu(1)p Fo(\000)p Fs(\025;)p Fu(1)p Fo(\000)p Fs(\025;)p Fu(1)p Fo(\000)p Fs(\025;)p Fo(\000)p Fs(\025)806 1460 y FG(\()p Ft(E)t Fz(;)8 b Ft(D)q FG(\))37 1564 y(y)16 b(que)f Fz(G)197 1571 y Fu(1)p Fo(\000)p Fs(\025;)p Fu(1)p Fo(\000)p Fs(\025;)p Fu(1)p Fo(\000)p Fs(\025;)p Fo(\000)p Fs(\025)486 1564 y Ft(\021)e Fz(G)570 1573 y Fu(\(1)p Fo(\000)p Fs(\025=)p Fu(2\))700 1564 y FG(.)83 1621 y(As)-5 b(\023)-18 b(\020)15 b(pues,)f(en)g(cada)g(iteraci\023)-23 b(on)15 b(del)g(algoritmo)f(que)g(calcula)h Fz(f)1158 1628 y Ff(PRE)1239 1621 y FG(\()p Ft(D)q FG(\),)e(se)h(busca)h(una)f (edici\023)-23 b(on)16 b(\023)-23 b(optima)37 1677 y(seg)q(\023)f(un)19 b(un)f(criterio)g Fz(G)430 1686 y Fu(\()p Fs(p)p Fu(\))495 1677 y FG(con)g Fz(p)e FG(=)i(1)11 b Ft(\000)h FG(\()p Fz(\025=)p FG(2\).)k(El)i(algoritmo)f(resultan)o(te)h(se)g(m)o(uestra)f (en)h(la)g(Figura)g(2)37 1734 y(y)e(su)g(coste)f(en)h(la)f(T)l(abla)h (4.)f(En)h(ella,)g Fz(K)i FG(es)e(el)g(n)q(\023)-24 b(umero)16 b(de)f(iteraciones)i(del)f(bucle)h(\\)p FJ(rep)q(etir)p Fz(:)8 b(:)g(:)e FJ(hasta)p FG(")37 1790 y(que)16 b(efectuamos)f(hasta) f(la)i(con)o(v)o(ergencia)f(del)i(algoritmo.)37 1921 y(T)l(abla)f(4:)e(Complejidad)24 b(resultan)o(te)e(de)g(ab)q(ordar)f(p) q(or)h(Programaci\023)-23 b(on)21 b(F)l(raccional)i(la)f(ev)m (aluaci\023)-23 b(on)24 b(de)215 1978 y Fz(f)237 1985 y Ff(PRE)318 1978 y FG(.)14 b(El)h(n)q(\023)-24 b(umero)14 b(de)h(iteraciones)h(efectuadas)e(hasta)g(alcanzar)g(la)h(con)o(v)o (ergencia)g(viene)h(indi-)215 2034 y(cado)g(p)q(or)f Fz(K)s FG(.)p 400 2098 1131 2 v 399 2243 2 146 v 408 2243 V 433 2181 a(Complejidad)i(temp)q(oral)p 902 2243 V 104 w Fz(\022)1013 2109 y Fn( )1045 2181 y Fz(K)c Ft(\001)1140 2128 y Fs(M)1128 2140 y Fn(X)1120 2231 y Fs(m)p Fu(=1)1204 2181 y Ft(j)p Fz(c)1237 2162 y Fs(m)1270 2181 y Ft(j)s(\001)s(j)p Fz(s)1336 2162 y Fs(m)1367 2181 y Ft(j)1380 2109 y Fn(!)p 1522 2243 V 1531 2243 V 400 2245 1131 2 v 399 2390 2 146 v 408 2390 V 433 2328 a FG(Complejidad)k(espacial)p 902 2390 V 75 w Fz(\022)958 2268 y Fn(\022)1017 2328 y FG(max)988 2357 y Fu(1)p Fo(\024)p Fs(m)p Fo(\024)p Fs(M)1130 2328 y FG(\(min\()p Ft(j)p Fz(c)1274 2309 y Fs(m)1306 2328 y Ft(j)p Fz(;)8 b Ft(j)p Fz(s)1374 2309 y Fs(m)1406 2328 y Ft(j)p FG(\))1437 2268 y Fn(\023)p 1522 2390 V 1531 2390 V 400 2392 1131 2 v 83 2538 a FG(Obs)o(\023)-21 b(erv)o(ese)10 b(que)i(en)f(la)i(\023)-24 b(ultima)11 b(iteraci\023)-23 b(on)12 b(del)g(algoritmo,)e(cuando)h(se)g(obtiene)h (la)f(edici\023)-23 b(on)13 b(que)f(minimiza)37 2594 y(el)20 b(\\p)q(orcen)o(ta)s(je)e(real)g(de)h(errores",)f(el)h (criterio)g(utilizado)i(es)d Fz(G)1177 2603 y Fu(\()p Fs(p)p Fu(\))1243 2594 y FG(con)g Fz(p)h FG(=)f(1)12 b Ft(\000)h FG(\()p Fz(f)1547 2601 y Ff(PRE)1627 2594 y FG(\()p Ft(D)q FG(\))p Fz(=)p FG(200\).)k(De)37 2651 y(otro)c(mo)q(do:)g(el)i(criterio)g Fz(G)507 2660 y Fu(\()p Fs(p)p Fu(\))567 2651 y FG(prop)q(orciona)g(la)f(edici\023)-23 b(on)15 b(que)g(minimiza)g(el)g(\\p)q(orcen)o(ta)s(je)e(real)h(de)g (errores")37 2707 y(cuando)i Fz(f)216 2714 y Ff(PRE)297 2707 y FG(\()p Ft(D)q FG(\))d(=)h(200\(1)9 b Ft(\000)h Fz(p)p FG(\).)15 b(En)h(particular,)g Fz(G)995 2716 y Fu(\(1\))1057 2707 y FG(\(aso)q(ciado)g(a)f(la)h(distancia)h(de)f(Lev)o (ensh)o(tein\))g(y)37 2764 y Fz(G)73 2773 y Fu(\(0)p Fs(:)p Fu(5\))162 2764 y FG(\(aso)q(ciado)e(a)f(la)i(talla)f(de)h(la)f (LCS\))g(corresp)q(onden,)h(resp)q(ectiv)m(amen)o(te,)g(a)f(las)g (situaciones)h Fz(f)1765 2771 y Ff(PRE)1858 2764 y FG(=)37 2820 y(0\045)g(y)g Fz(f)174 2827 y Ff(PRE)267 2820 y FG(=)e(100\045.)83 2876 y(En)i(el)h(Ap)o(\023)-21 b(endice)16 b(A)g(se)f(m)o(uestra)f(una)i(\\implemen)o(taci\023)-23 b(on")16 b(de)g Fz(f)1220 2883 y Ff(PRE)1315 2876 y FG(en)g Fg(ansi)h(c)e FG(\(funci\023)-23 b(on)16 b Fm(Fpre)p FG(\).)37 3074 y(14)p eop %%Page: 15 21 15 20 bop -13 -33 a Fv(El)16 b(pr)n(oblema)g(de)g(la)g(evaluaci\023)-23 b(on)17 b(de)f(un)g(sistema)g(de)g(r)n(e)n(c)n(ono)n(cimiento)p Fz(:)8 b(:)g(:)p -13 -16 1857 2 v 179 161 a FJ(Algoritmo)15 b FG(C\023)-23 b(alculo)16 b(de)g Fz(f)673 168 y Ff(PRE)270 218 y FJ(en)o(trada)8 b Ft(D)14 b FG(=)f Ft(f)p FG(\()p Fz(c)609 201 y Fs(m)642 218 y Fz(;)8 b(s)684 201 y Fs(m)717 218 y FG(\))p Ft(g)758 201 y Fs(M)758 229 y(m)p Fu(=1)270 274 y FJ(salida)53 b Fz(\025)p FG(:)15 b(I)-8 b(R)179 331 y FJ(inicio)270 387 y Ft(E)298 370 y Fo(0)322 387 y FG(:=)13 b(arbitrario)o(\()p Ft(E)t FG(\()p Ft(D)q FG(\)\))270 470 y Fz(\025)f FG(:=)467 439 y Fz(N)501 446 y Fs(s)519 439 y FG(\()p Ft(E)565 422 y Fo(0)577 439 y FG(\))d(+)i Fz(N)684 446 y Fs(i)698 439 y FG(\()p Ft(E)744 422 y Fo(0)755 439 y FG(\))f(+)h Fz(N)863 446 y Fs(b)880 439 y FG(\()p Ft(E)926 422 y Fo(0)937 439 y FG(\))p 374 459 673 2 v 374 501 a Fz(N)408 508 y Fs(s)427 501 y FG(\()p Ft(E)473 484 y Fo(0)484 501 y FG(\))f(+)g Fz(N)591 508 y Fs(i)605 501 y FG(\()p Ft(E)651 484 y Fo(0)663 501 y FG(\))f(+)i Fz(N)770 508 y Fs(b)787 501 y FG(\()p Ft(E)833 484 y Fo(0)844 501 y FG(\))f(+)h Fz(N)952 508 y Fs(a)972 501 y FG(\()p Ft(E)1018 484 y Fo(0)1030 501 y FG(\))1158 470 y Fv(//)17 b(Inicializaci\023)-23 b(on)14 b(de)j Fz(\025)e FG(//)270 552 y FJ(rep)q(etir)361 608 y Fz(\025)388 592 y Fo(0)411 608 y FG(:=)e Fz(\025)361 665 y(p)f FG(:=)h(1)c Ft(\000)i FG(\()p Fz(\025)580 648 y Fo(0)591 665 y Fz(=)p FG(2\))361 721 y Ft(E)389 702 y Fo(0)413 721 y FG(:=)h(arg)c(min)486 762 y Fo(E)s(2E)s Fu(\()p Fo(D)q Fu(\))628 721 y Fz(G)664 730 y Fu(\()p Fs(p)p Fu(\))711 721 y FG(\()p Ft(E)t Fz(;)g Ft(D)q FG(\))361 834 y Fz(\025)k FG(:=)558 809 y Fz(N)592 816 y Fs(s)610 809 y FG(\()p Ft(E)656 793 y Fo(0)668 809 y FG(\))d(+)i Fz(N)775 816 y Fs(i)789 809 y FG(\()p Ft(E)835 793 y Fo(0)846 809 y FG(\))f(+)g Fz(N)953 816 y Fs(b)971 809 y FG(\()p Ft(E)1017 793 y Fo(0)1028 809 y FG(\))p 465 824 V 465 860 a Fz(N)499 867 y Fs(s)518 860 y FG(\()p Ft(E)564 844 y Fo(0)575 860 y FG(\))g(+)g Fz(N)682 867 y Fs(i)696 860 y FG(\()p Ft(E)742 844 y Fo(0)754 860 y FG(\))f(+)i Fz(N)861 867 y Fs(b)878 860 y FG(\()p Ft(E)924 844 y Fo(0)935 860 y FG(\))f(+)g Fz(N)1042 867 y Fs(a)1063 860 y FG(\()p Ft(E)1109 844 y Fo(0)1121 860 y FG(\))270 911 y FJ(hasta)16 b Fz(\025)c FG(=)h Fz(\025)520 895 y Fo(0)270 968 y Fz(\025)f FG(:=)g(100)e Ft(\001)f Fz(\025)179 1024 y FJ(\014n)137 1215 y FG(Figura)15 b(2:)g(Algoritmo)g(para)g(la)g (ev)m(aluaci\023)-23 b(on)17 b(de)f Fz(f)1008 1222 y Ff(PRE)1103 1215 y FG(p)q(or)g(Programaci\023)-23 b(on)14 b(F)l(raccional.)-13 1350 y FA(4.2.2)50 b(Cuestiones)15 b(p)o(r)o(\023)-24 b(acticas:)16 b(la)g(inicializaci\023)-25 b(on)-13 1437 y FG(En)17 b(situaciones)i(an\023)-23 b(alogas)17 b(a)g(la)h(aqu)-5 b(\023)-18 b(\020)18 b(considerada,)g(se)f(observ)m (a)h(que)g(el)g(n)q(\023)-24 b(umero)18 b(de)g(iteraciones)g(efec-)-13 1494 y(tuadas)h(hasta)h(alcanzar)g(la)g(con)o(v)o(ergencia,)g Fz(K)s FG(,)f(dep)q(ende)j(de)f(lo)f(acertado)f(de)i(la)f(inicializaci) q(\023)-23 b(on)23 b(de)d Fz(\025)-13 1550 y FG([VMA94)o(].)9 b(Resulta)i(con)o(v)o(enien)o(te,)g(pues,)g(realizar)g(una)f(inicializ) q(aci\023)-23 b(on)13 b(tan)d(cercana)h(a)f(la)g(soluci\023)-23 b(on)12 b(\023)-23 b(optima)-13 1607 y(como)14 b(sea)g(p)q(osible)j (\(con)d(un)h(coste)f(computacional)i(razonable,)e(claro)h(est\023)-23 b(a\).)13 b(En)i([VMA94)o(])f(se)g(prop)q(one)-13 1663 y(usar)i(un)h(m)o(\023)-21 b(eto)q(do)15 b(heur)-5 b(\023)-18 b(\020stico)18 b(que,)f(en)f(un)h(elev)m(ado)h(p)q(orcen)o(ta)s(je)e (de)h(casos,)f(prop)q(orciona)g(directamen)o(te)-13 1720 y(el)e(v)m(alor)g(\014nal)h(de)f Fz(\025)p FG(,)f(con)h(lo)g(que)g(el)g (pro)q(cedimien)o(to)h(de)g(c\023)-23 b(omputo)13 b(de)h Fz(f)1236 1727 y Ff(PRE)1330 1720 y FG(s\023)-23 b(olo)14 b(necesita)g(efectuar)g(algo)-13 1776 y(m\023)-23 b(as)15 b(de)g(dos)g(iteraciones)h(en)g(promedio)g(\()p Fz(K)768 1768 y(>)768 1784 y Ft(\030)802 1776 y FG(2\).)32 1833 y(En)h(el)h(Ap)o(\023)-21 b(endice)18 b(A)e(se)h(m)o(uestra)f(una)h (\\implemen)o(taci\023)-23 b(on")18 b(de)g(este)e(heur)-5 b(\023)-18 b(\020stico)18 b(de)g(inicializaci)q(\023)-23 b(on)19 b(en)-13 1890 y(lengua)s(je)c Fg(ansi)i(c)e FG(\(funci\023)-23 b(on)16 b Fm(lambda)p 642 1890 15 2 v 16 w(init)p FG(\).)-13 2038 y FB(5.)46 b(Exp)r(erimentos)-13 2141 y FG(Con)18 b(el)h(ob)s(jeto)e(de)h(comparar)f(diferen)o(tes)i(funciones)h(de)e(ev) m(aluaci\023)-23 b(on,)20 b(hemos)e(llev)m(ado)h(a)f(cab)q(o)g(exp)q (eri-)-13 2197 y(men)o(tos)d(de)h(ev)m(aluaci\023)-23 b(on)17 b(de)f(dos)g(deco)q(di\014cadores)h(ac)q(\023)-24 b(ustico-fon)o(\023)j(eticos)16 b(para)f(el)h(castellano.)g(Se)g(trata) e(de)-13 2254 y(dos)19 b(deco)q(di\014cadores)i(basados)e(en)g(meto)q (dolog)-5 b(\023)-18 b(\020as)20 b(diferen)o(tes:)f(uno)h(de)f(ellos)i (com)o(bina)e(el)h Fv(Per)n(c)n(eptr\023)-23 b(on)-13 2310 y(Multic)n(ap)n(a)20 b FG(\(PM\))f(con)h(los)h Fv(Mo)n(delos)f(de) h(Markov)g(Ocultos)f FG(\(MMOs\))g([Cast94)n(],)f(mien)o(tras)h(el)i (otro)d(se)-13 2367 y(ap)q(o)o(y)o(a)14 b(en)i(la)f(Apro)o(ximaci\023) -23 b(on)16 b(Basada)f(en)g(Distancias)h(y)f(sus)g(mo)q(delos)h(son)f (las)h Fv(plantil)r(las)e FG([A)o(C93)o(].)32 2424 y(Disp)q(onemos)i (de)g(un)g(corpus)g(compuesto)f(p)q(or)g(50)g(frases)g(cuy)o(a)g (transcrip)q(ci\023)-23 b(on)17 b(fon)o(\023)-21 b(etica)15 b(es)g(cono)q(cida,)-13 2480 y(pron)o(unciada)c(cada)g(una)g(de)g (ellas)h(p)q(or)f(8)f(lo)q(cutores)h(\(4)f(femeninos)i(y)f(4)f (masculinos\).)h(Cada)g(frase)f(con)o(tiene)-13 2537 y(una)i(media)h(de)g(30)f(fonemas.)f(El)i(n)q(\023)-24 b(umero)13 b(de)f(unidades)i(fon)o(\023)-21 b(eticas)12 b(diferen)o(tes)h(es)f(29.)f(Como)h(resultado)g(de)-13 2593 y(la)18 b(adquisici\023)-23 b(on)20 b(y)e(parametrizaci\023)-23 b(on)18 b(del)h(corpus,)f(cada)g(pron)o(unciaci\023)-23 b(on)19 b(est\023)-23 b(a)18 b(represen)o(tada)f(median)o(te)-13 2650 y(una)e(secuencia)i(de)f(v)o(ectores)e(de)i(11)e(caracter)-5 b(\023)-18 b(\020sticas)16 b(\(energ)-5 b(\023)-18 b(\020a)15 b(y)g(10)g(co)q(e\014cien)o(tes)h(cepstrales\).)32 2707 y(Del)i(corpus)f(disp)q(onible,)j(y)o(a)c(hab)-5 b(\023)-18 b(\020an)18 b(sido)g(utilizadas)g(para)f(el)h(aprendiza)s(je)f(de)h (los)f(deco)q(di\014cadores)-13 2764 y(las)22 b(pron)o(unciaciones)i (de)e(30)f(de)i(las)f(frases)f(p)q(or)h(4)g(de)g(los)g(lo)q(cutores.)g (Empleando)i(\023)-24 b(unicamen)o(te)23 b(las)-13 2820 y(pron)o(unciaciones)17 b(de)g(las)f(20)f(frases)g(restan)o(tes,)g(se)h (han)g(de\014nido)h(dos)f(tip)q(os)h(de)f(exp)q(erimen)o(tos)g(de)h(ev) m(al-)-13 2876 y(uaci\023)-23 b(on)16 b(diferen)o(tes.)g(En)g(el)h (primer)f(tip)q(o,)g Fv(multilo)n(cutor)p FG(,)g(las)g(pron)o (unciaciones)h(utilizadas)h(para)d(ev)m(aluar)1797 3074 y(15)p eop %%Page: 16 22 16 21 bop 600 -33 a Fv(El)15 b(pr)n(oblema)i(de)f(la)g(evaluaci\023)-23 b(on)17 b(de)f(un)g(sistema)g(de)g(r)n(e)n(c)n(ono)n(cimiento)p Fz(:)8 b(:)g(:)p 37 -16 1857 2 v 37 110 a FG(un)17 b(deco)q (di\014cador)h(son)e(las)g(80)g(corresp)q(ondien)o(tes)h(a)f(los)g(4)g (lo)q(cutores)g(de)h(aprendiza)s(je.)f(En)h(el)g(segundo,)37 167 y Fv(indep)n(endiente)e(del)h(lo)n(cutor)p FG(,)f(se)h(utilizan)h (las)e(80)g(corresp)q(ondien)o(tes)h(a)f(los)g(4)g(lo)q(cutores)h (restan)o(tes.)83 229 y(En)g(de\014nitiv)m(a,)i(se)e(han)g(realizado)h (4)f(exp)q(erimen)o(tos)h(de)f(ev)m(aluaci\023)-23 b(on)18 b(\(dos)e(diferen)o(tes)h(para)e(cada)h(uno)37 285 y(de)g(los)f(dos)h (deco)q(di\014cadores\).)g(En)f(cada)g(uno)g(de)h(ellos,)g(la)f(ev)m (aluaci\023)-23 b(on)17 b(se)e(realiza)i(a)d(partir)h(de)h(80)f(pares) 37 342 y(de)h(in)o(terpretaciones,)g(cada)f(par)h(formado)e(p)q(or)h (la)h(transcrip)q(ci\023)-23 b(on)17 b(fon)o(\023)-21 b(etica)14 b(correcta)h(de)h(la)g(frase)f(corre-)37 398 y(sp)q(ondien)o(te)20 b(\(in)o(terpretaci\023)-23 b(on)18 b(correcta\))f(y)g(la)h(transcrip)q(ci\023)-23 b(on)20 b(que)e(el)g(deco)q(di\014cador)i(ac)q(\023)-24 b(ustico-fon)o(\023)j (etico)37 455 y(prop)q(orciona)12 b(como)e(respuesta)h(a)g(la)g (corresp)q(ondien)o(te)i(pron)o(unciaci\023)-23 b(on)12 b(\(in)o(terpretaci\023)-23 b(on)12 b(del)g(sistema\).)e(Se)37 511 y(han)16 b(utilizado)i(12)d(funciones)h(de)g(ev)m(aluaci\023)-23 b(on)18 b(diferen)o(tes,)e(como)f(consecuencia)i(de)f(aplicar)h(4)e (funciones)37 568 y(de)g(tasa)f(distin)o(tas)h(\(las)f(v)o(ersiones)h (\\grado)f(de)h(error")e(de)i(to)q(das)f(las)h(que)g(se)g(vieron)g(en)g (el)g(apartado)f(3.1\))37 624 y(a)k(los)g(resultados)g(de)h(optimizar)f (3)g(criterios)h(de)f(edici\023)-23 b(on)20 b(diferen)o(tes)f (\(minimizar)g(errores,)e(maximizar)37 681 y(aciertos)f(y)f Fz(G)280 688 y Ff(PRE)360 681 y FG(\).)37 833 y(T)l(abla)h(5:)e (Resultados)i(exp)q(erimen)o(tales.)g(En)f(negrita)g(se)g(m)o(uestran)f (los)h(resultados)g(corresp)q(ondien)o(tes)h(a)215 889 y(funciones)c(de)f(ev)m(aluaci\023)-23 b(on)13 b(coheren)o(tes.)d(La)h (columna)g(\\Ops")f(m)o(uestra)g(el)h(coste)g(computacional)215 946 y(del)17 b(c\023)-23 b(alculo)16 b(median)o(te)g(el)g(n)q(\023)-24 b(umero)15 b(de)h(op)q(eraciones)g(de)f(minimizaci\023)-23 b(on)18 b(realizadas.)238 1045 y FI(P)o(erceptr\023)-21 b(on)16 b(Multicapa)d(y)h(Mo)q(delos)g(de)g(Mark)o(o)o(v)g(Ocultos.)f (Indep)q(endien)o(te)j(del)e(lo)q(cutor.)p 146 1107 1639 2 v 145 1164 2 57 v 171 1147 a FG(Criterio)p 349 1164 V 58 w Fz(N)417 1154 y Fs(s)503 1147 y Fz(N)537 1154 y Fs(i)620 1147 y Fz(N)654 1154 y Fs(b)747 1147 y Fz(N)781 1154 y Fs(a)p 844 1164 V 903 1147 a Fz(T)930 1154 y Ff(IE)1074 1147 y Fz(T)1101 1154 y Ff(PSB)1264 1147 y Fz(T)1291 1154 y Ff(IEP)1444 1147 y Fz(T)1471 1154 y Ff(PRE)p 1589 1164 V 1598 1164 V 1669 1147 a FG(Ops.)p 1784 1164 V 146 1165 1639 2 v 145 1222 2 58 v 207 1205 a Fz(G)243 1214 y Fu(\(1\))p 349 1222 V 375 1205 a FG(594)49 b(261)g(167)g(1194)p 844 1222 V 49 w FJ(52.3\045)58 b FG(38.9\045)66 b(41.3\045)h(46.1\045)p 1589 1222 V 1598 1222 V 88 w(56303)p 1784 1222 V 145 1279 V 193 1262 a Fz(G)229 1271 y Fu(\(0)p Fs(:)p Fu(5\))p 349 1279 V 375 1262 a FG(465)49 b(333)g(239)g(1251)p 844 1279 V 58 w(53.0\045)57 b FJ(36.0\045)50 b(38.4\045)58 b FG(45.3\045)p 1589 1279 V 1598 1279 V 88 w(56303)p 1784 1279 V 145 1336 2 57 v 190 1319 a Fz(G)226 1326 y Ff(PRE)p 349 1336 V 375 1319 a FG(496)49 b(310)g(216)g(1243)p 844 1336 V 58 w(52.3\045)66 b(36.4\045)g(38.8\045)58 b FJ(45.1\045)p 1589 1336 V 1598 1336 V 57 w FG(168909)p 1784 1336 V 146 1338 1639 2 v 356 1419 a FI(P)o(erceptr\023)-21 b(on)16 b(Multicapa)d(y)h(Mo)q(delos)g(de)g(Mark)o(o)o(v)f(Ocultos.)h (Multilo)q(cutor.)p 146 1482 V 145 1539 2 57 v 171 1522 a FG(Criterio)p 349 1539 V 58 w Fz(N)417 1529 y Fs(s)503 1522 y Fz(N)537 1529 y Fs(i)620 1522 y Fz(N)654 1529 y Fs(b)747 1522 y Fz(N)781 1529 y Fs(a)p 844 1539 V 903 1522 a Fz(T)930 1529 y Ff(IE)1074 1522 y Fz(T)1101 1529 y Ff(PSB)1264 1522 y Fz(T)1291 1529 y Ff(IEP)1444 1522 y Fz(T)1471 1529 y Ff(PRE)p 1589 1539 V 1598 1539 V 1669 1522 a FG(Ops.)p 1784 1539 V 146 1540 1639 2 v 145 1597 2 58 v 207 1580 a Fz(G)243 1589 y Fu(\(1\))p 349 1597 V 375 1580 a FG(514)49 b(235)g(154)g(1285)p 844 1597 V 49 w FJ(46.2\045)58 b FG(34.2\045)66 b(36.3\045)h(41.3\045)p 1589 1597 V 1598 1597 V 88 w(55687)p 1784 1597 V 145 1654 V 193 1637 a Fz(G)229 1646 y Fu(\(0)p Fs(:)p Fu(5\))p 349 1654 V 375 1637 a FG(407)49 b(293)g(212)g(1334)p 844 1654 V 58 w(46.7\045)57 b FJ(31.7\045)50 b(33.8\045)58 b FG(40.6\045)p 1589 1654 V 1598 1654 V 88 w(55687)p 1784 1654 V 145 1711 2 57 v 190 1694 a Fz(G)226 1701 y Ff(PRE)p 349 1711 V 375 1694 a FG(424)49 b(280)g(199)g(1330)p 844 1711 V 58 w(46.2\045)66 b(31.9\045)g(34.0\045)58 b FJ(40.4\045)p 1589 1711 V 1598 1711 V 57 w FG(167061)p 1784 1711 V 146 1712 1639 2 v 630 1794 a FI(Plan)o(tillas.)12 b(Indep)q(endien)o(te)j(del)f(lo)q(cutor.)p 146 1857 V 145 1913 2 57 v 171 1896 a FG(Criterio)p 349 1913 V 58 w Fz(N)417 1903 y Fs(s)503 1896 y Fz(N)537 1903 y Fs(i)620 1896 y Fz(N)654 1903 y Fs(b)747 1896 y Fz(N)781 1903 y Fs(a)p 844 1913 V 903 1896 a Fz(T)930 1903 y Ff(IE)1074 1896 y Fz(T)1101 1903 y Ff(PSB)1264 1896 y Fz(T)1291 1903 y Ff(IEP)1444 1896 y Fz(T)1471 1903 y Ff(PRE)p 1589 1913 V 1598 1913 V 1669 1896 a FG(Ops.)p 1784 1913 V 146 1915 1639 2 v 145 1972 2 58 v 207 1955 a Fz(G)243 1964 y Fu(\(1\))p 349 1972 V 375 1955 a FG(549)49 b(204)g(158)g(1248)p 844 1972 V 49 w FJ(46.6\045)58 b FG(36.2\045)66 b(37.3\045)h(42.2\045)p 1589 1972 V 1598 1972 V 88 w(54921)p 1784 1972 V 145 2029 V 193 2012 a Fz(G)229 2021 y Fu(\(0)p Fs(:)p Fu(5\))p 349 2029 V 375 2012 a FG(455)49 b(262)g(216)g(1284)p 844 2029 V 58 w(47.7\045)57 b FJ(34.3\045)50 b(35.5\045)58 b FG(42.1\045)p 1589 2029 V 1598 2029 V 88 w(54921)p 1784 2029 V 145 2086 2 57 v 190 2069 a Fz(G)226 2076 y Ff(PRE)p 349 2086 V 375 2069 a FG(481)49 b(238)g(192)g(1282)p 844 2086 V 58 w(46.6\045)66 b(34.4\045)g(35.6\045)58 b FJ(41.5\045)p 1589 2086 V 1598 2086 V 57 w FG(109842)p 1784 2086 V 146 2087 1639 2 v 748 2169 a FI(Plan)o(tillas.)11 b(Multilo)q(cutor.)p 146 2224 V 145 2280 2 57 v 171 2263 a FG(Criterio)p 349 2280 V 58 w Fz(N)417 2270 y Fs(s)503 2263 y Fz(N)537 2270 y Fs(i)620 2263 y Fz(N)654 2270 y Fs(b)747 2263 y Fz(N)781 2270 y Fs(a)p 844 2280 V 903 2263 a Fz(T)930 2270 y Ff(IE)1074 2263 y Fz(T)1101 2270 y Ff(PSB)1264 2263 y Fz(T)1291 2270 y Ff(IEP)1444 2263 y Fz(T)1471 2270 y Ff(PRE)p 1589 2280 V 1598 2280 V 1669 2263 a FG(Ops.)p 1784 2280 V 146 2282 1639 2 v 145 2339 2 58 v 207 2321 a Fz(G)243 2331 y Fu(\(1\))p 349 2339 V 375 2321 a FG(385)49 b(137)g(169)g(1399)p 844 2339 V 49 w FJ(35.4\045)58 b FG(28.4\045)66 b(27.5\045)h(33.1\045)p 1589 2339 V 1598 2339 V 88 w(52835)p 1784 2339 V 145 2396 V 193 2378 a Fz(G)229 2388 y Fu(\(0)p Fs(:)p Fu(5\))p 349 2396 V 375 2378 a FG(325)49 b(173)g(205)g(1423)p 844 2396 V 58 w(36.0\045)57 b FJ(27.1\045)50 b(26.3\045)58 b FG(33.1\045)p 1589 2396 V 1598 2396 V 88 w(52835)p 1784 2396 V 145 2452 2 57 v 190 2436 a Fz(G)226 2443 y Ff(PRE)p 349 2452 V 375 2436 a FG(347)49 b(156)g(188)g(1418)p 844 2452 V 58 w(35.4\045)66 b(27.4\045)g(26.6\045)58 b FJ(32.8\045)p 1589 2452 V 1598 2452 V 57 w FG(158505)p 1784 2452 V 146 2454 1639 2 v 83 2594 a(Los)22 b(resultados)g(de)g(to)q (dos)f(estos)h(exp)q(erimen)o(tos)g(se)g(m)o(uestran)f(en)i(la)f(T)l (abla)g(5.)f(En)h(dic)o(ha)h(tabla,)37 2651 y(para)c(cada)h(deco)q (di\014cador)g(\(PM)f(con)g(MMOs)g(o)g(plan)o(tillas\),)i(tip)q(o)f(de) g(exp)q(erimen)o(to)g(\(m)o(ultilo)q(cutor)g(o)37 2707 y(indep)q(endi)q(en)o(te)g(del)f(lo)q(cutor\))e(y)h(criterio)g(de)g (edici\023)-23 b(on)20 b(\()p Fz(G)1056 2716 y Fu(\(1\))1102 2707 y FG(,)d Fz(G)1168 2716 y Fu(\(0)p Fs(:)p Fu(5\))1260 2707 y FG(o)g Fz(G)1336 2714 y Ff(PRE)1416 2707 y FG(\),)g(se)h (indican:)h(el)f(n)q(\023)-24 b(umero)37 2764 y(de)15 b(sustituciones)g(\()p Fz(N)416 2771 y Fs(s)434 2764 y FG(\),)f(inserciones)i(\()p Fz(N)758 2771 y Fs(i)771 2764 y FG(\),)e(b)q(orrados)g(\()p Fz(N)1056 2771 y Fs(b)1072 2764 y FG(\))g(y)g(aciertos)g(\()p Fz(N)1360 2771 y Fs(a)1381 2764 y FG(\))f(en)i(la)g(edici\023)-23 b(on)16 b(\023)-23 b(optima;)13 b(los)37 2820 y(resultados)j(de)g(aplicar)g(a)f(dic)o(ha)h (edici\023)-23 b(on)18 b(cada)d(una)g(de)h(las)g(4)f(funciones)i(de)f (tasa)e(elegidas)j(\()p Fz(T)1709 2827 y Ff(IE)1752 2820 y FG(,)e Fz(T)1807 2827 y Ff(PSB)1881 2820 y FG(,)37 2876 y Fz(T)64 2883 y Ff(IEP)154 2876 y FG(y)23 b Fz(T)228 2883 y Ff(PRE)308 2876 y FG(\),)f(resaltados)g(en)h(negrita)g(aquellos) g(que)h(corresp)q(onden)f(a)g(funciones)h(de)f(ev)m(aluaci\023)-23 b(on)37 3074 y(16)p eop %%Page: 17 23 17 22 bop -13 -33 a Fv(El)16 b(pr)n(oblema)g(de)g(la)g(evaluaci\023)-23 b(on)17 b(de)f(un)g(sistema)g(de)g(r)n(e)n(c)n(ono)n(cimiento)p Fz(:)8 b(:)g(:)p -13 -16 1857 2 v -13 110 a FG(coheren)o(tes;)14 b(y)g(el)h(n)q(\023)-24 b(umero)15 b(de)g(op)q(eraciones)g(b\023)-23 b(asicas)15 b(realizadas)g(duran)o(te)f(la)h(minimizaci\023)-23 b(on)17 b(del)e(criterio)-13 167 y(de)k(edici\023)-23 b(on)21 b(\(Ops.\).)e(Cab)q(e)g(realizar)h(algunas)f(observ)m(aciones)h (a)f(partir)g(de)h(los)f(resultados)h(obtenidos.)-13 223 y(P)o(or)15 b(ejemplo,)i(p)q(o)q(demos)g(comprobar)f(que)h(ning)q (\023)-24 b(un)18 b(criterio)f(de)g(edici\023)-23 b(on)18 b(da)e(lugar)h(a)f(m\023)-23 b(as)16 b(aciertos)g(que)-13 280 y Fz(G)23 289 y Fu(\(0)p Fs(:)p Fu(5\))112 280 y FG(\(y)o(a)d(que)i(este)f(criterio)h(equiv)m(ale)h(a)e(maximizar)h (aciertos\))f(o)g(que)h(aplicar)g(una)g(funci\023)-23 b(on)15 b(de)g(tasa)f(al)-13 336 y(resultado)g(de)h(minimizar)h(un)f (criterio)g(de)g(edici\023)-23 b(on)17 b(no)d(coheren)o(te)h(n)o(unca)f (da)h(lugar)f(a)h(una)f(tasa)g(de)h(error)-13 392 y(menor)h(que)h(la)f (que)h(se)g(obtiene)g(utilizando)h(un)f(criterio)g(de)g(edici\023)-23 b(on)18 b(coheren)o(te)f(\(y)o(a)e(que)i(las)g(funciones)-13 449 y(de)i(ev)m(aluaci\023)-23 b(on)21 b(coheren)o(tes)d(sup)q(onen)i (optimizar)f(su)g(funci\023)-23 b(on)20 b(de)f(tasa\).)e(Es)i(m\023)-23 b(as,)18 b(se)h(observ)m(a)g(que,)f(si)-13 505 y(queremos)c(utilizar)i (como)e(funci\023)-23 b(on)16 b(de)f(tasa)e(el)j(\\p)q(orcen)o(ta)s(je) d(real)i(de)g(errores",)e(la)i(ev)m(aluaci\023)-23 b(on)16 b(obtenida)-13 562 y(no)g(es)g(insensible)j(al)d(criterio)h(de)f (edici\023)-23 b(on)18 b(elegido)f(y)f(que)g(la)h(utilizaci\023)-23 b(on)18 b(de)e(un)h(criterio)f(coheren)o(te)h(con)-13 618 y(dic)o(ha)f(funci\023)-23 b(on)16 b(de)f(tasa)f(sup)q(one,)i(a)e (lo)i(sumo,)e(m)o(ultiplicar)j(p)q(or)e(3)g(el)h(coste)f(temp)q(oral)g (de)g(la)g(ev)m(aluaci\023)-23 b(on.)-13 773 y FB(6.)46 b(Conclusiones)-13 879 y FG(Nos)15 b(hemos)g(plan)o(teado)h(el)g (problema)g(de)g(la)f(ev)m(aluaci\023)-23 b(on)17 b(de)f(sistemas)f(de) h(recono)q(cimien)o(to)h(autom\023)-23 b(atico)-13 935 y(del)13 b(habla)f(median)o(te)g(un)h(\023)-24 b(unico)13 b(v)m(alor)f(n)o(um)o(\023)-21 b(erico,)11 b(distinguiendo)j(en)e(su)g (resoluci\023)-23 b(on)13 b(dos)e(etapas:)g(elecci\023)-23 b(on)-13 992 y(de)15 b(una)g(edici\023)-23 b(on)17 b(que)e(p)q(ermite)h (transformar)d(un)j(conjun)o(to)e(de)i(in)o(terpretaciones)f(correctas) f(en)i(aquellas)-13 1048 y(que)j(da)f(el)h(sistema;)f(y)g(c\023)-23 b(alculo)20 b(de)f(una)g(tasa)e(de)i(semejanza)f(\(o)g(de)h (disimilitud\))i(en)o(tre)d(dic)o(has)h(in)o(ter-)-13 1105 y(pretaciones)14 b(seg)q(\023)-24 b(un)15 b(la)f(edici\023)-23 b(on)16 b(elegida.)f(Hemos)e(hec)o(ho)i(una)f(revisi\023)-23 b(on)15 b(cr)-5 b(\023)-18 b(\020tica)15 b(de)f(las)g(funciones)h(de)g (tasa)-13 1161 y(habitualmen)o(te)h(utilizadas)g(y)e(hemos)h (descubierto)h(que,)e(o)h(no)f(se)h(m)o(uev)o(en)g(en)g(un)g(rango)f (acotado)f(\(p)q(ese)-13 1217 y(a)i(su)g(apariencia)h(de)g(p)q(orcen)o (ta)s(jes\),)e(o)h(\(m)o(uc)o(ho)f(m\023)-23 b(as)15 b(gra)o(v)o(e\))f(ignoran)h(los)g(errores)g(de)h(inserci\023)-23 b(on.)32 1276 y(La)13 b(soluci\023)-23 b(on)14 b(propuesta)f(en)g(este) g(traba)s(jo)e(no)i(presen)o(ta)f(estos)h(problemas)g(y)f(man)o(tiene)i (una)f(cierta)g(co-)-13 1332 y(herencia)h(en)o(tre)f(sus)g(dos)g (etapas,)f(con)h(una)g(complejidad)i(computacional)e(comparable)h(\(en) f(la)g(pr\023)-23 b(actica\))-13 1389 y(a)15 b(la)g(propia)h(de)f(las)h (funciones)g(de)g(ev)m(aluaci\023)-23 b(on)17 b(habitualmen)o(te)f (utilizadas.)-13 1544 y FB(Referencias)-13 1649 y FG([A)o(C93])81 b(P)l(.)23 b(Aibar)g(&)g(F.)f(Casacub)q(erta:)g(\\An)g(impro)o(v)o (emen)o(t)h(of)f(the)h(Tw)o(o-Lev)o(el)g(DP)f(Matc)o(hing)206 1706 y(algorithm)d(using)h Fz(k)q FG(-NN)f(tec)o(hniques)i(for)d (acoustic-phonetic)j(deco)q(ding",)e Fv(Pr)n(o)n(c)n(e)n(e)n(dings)f (of)206 1762 y(the)f(EUR)o(OSPEECH'93)p FG(,)c(pp.)i(1735{1738,)e (1993.)-13 1863 y([BBB)96 1847 y Fu(+)126 1863 y FG(89])21 b(L.)14 b(R.)g(Bahl,)g(R.)g(Bakis,)g(J.)g(Bellegarda,)h(P)l(.)e(F.)g (Bro)o(wn,)g(D.)h(Bursh)o(tein,)g(S.)g(K.)f(Das,)g(P)l(.)h(V.)f(de)206 1920 y(Souza,)i(P)l(.)g(S.)g(Gopalakrishnan,)g(F.)f(Jelinek,)j(D.)e (Kanevsky)l(,)g(R.)g(L.)g(Mercer,)f(A.)h(N\023)-23 b(adas,)15 b(D.)206 1976 y(Nahamo)q(o)f(&)h(M.A.)f(Pic)o(hen)o(y:)h(\\Large)f(v)o (o)q(cabulary)h(natural)f(language)h(con)o(tin)o(uous)g(sp)q(eec)o(h) 206 2033 y(recognition",)h Fv(Pr)n(o)n(c)n(e)n(e)n(dings)e(of)i(the)g (ICASSP'89)p FG(,)d(pp.)j(465{467,)d(1989.)-13 2134 y([Cast94])55 b(M.)15 b(J.)g(Castro.)e(Com)o(unicaci\023)-23 b(on)17 b(priv)m(ada.)-13 2235 y([CA)o(CV90])k(M.)16 b(J.)h(Castro,)e(P)l(.)i (Aibar,)g(F.)f(Casacub)q(erta)g(&)i(E.)e(Vidal:)i(\\Automatic)e (selection)j(of)d(sub-)206 2291 y(lexic)24 b(templates)f(b)o(y)f(using) h(dynamic)g(time)f(w)o(arping)h(tec)o(hniques",)f Fv(Pr)n(o)n(c)n(e)n (e)n(dings)f(of)i(the)206 2348 y(EUSIPCO'90)p FG(,)13 b(pp.)j(1351{1353,)c(1990.)-13 2449 y([Hun)o(t89])46 b(M.J.)11 b(Hun)o(t:)g(\\Figures)h(of)f(merit)h(for)f(assessing)h (connected-w)o(ord)g(recognisers",)f Fv(Pr)n(o)n(c)n(e)n(e)n(dings)206 2505 y(of)17 b(the)f(ESCA)f(Workshop)p FG(,)h(pp.)f(4.3.1{4.3.4,)d (1989.)-13 2606 y([Lee88])79 b(K.F.)19 b(Lee:)h(\\Large-v)o(o)q (cabulary)g(sp)q(eak)o(er-indep)q(enden)o(t)j(con)o(tin)o(uous)d(sp)q (eec)o(h)g(recognition:)206 2663 y(The)h(SPHINX)g(system",)e(T)l(esis)i (Do)q(ctoral,)e(Computer)h(Science)i(Departmen)o(t,)c(Carnegie)206 2719 y(Mellon)f(Univ)o(ersit)o(y)l(,)e(Abril)i(1988.)-13 2820 y([Meri88])55 b(F.)21 b(Merialdo:)h(\\Phonetic)g(recognition)g (using)g(hidden)h(Mark)o(o)o(v)d(mo)q(dels)i(and)g(maxim)o(um)206 2876 y(m)o(utual)16 b(information)f(training",)g Fv(Pr)n(o)n(c)n(e)n(e) n(dings)f(of)i(the)h(ICASSP'88)p FG(,)c(pp.)i(111{114,)e(1988.)1797 3074 y(17)p eop %%Page: 18 24 18 23 bop 600 -33 a Fv(El)15 b(pr)n(oblema)i(de)f(la)g(evaluaci\023)-23 b(on)17 b(de)f(un)g(sistema)g(de)g(r)n(e)n(c)n(ono)n(cimiento)p Fz(:)8 b(:)g(:)p 37 -16 1857 2 v 37 110 a FG([MV93])72 b(A.)12 b(Marzal)f(&)h(E.)g(Vidal:)g(\\Computation)g(of)f(normalized)i (edit)g(distance)f(and)g(applications",)257 167 y Fv(IEEE)18 b(T)m(r)n(ansactions)f(on)h(Pattern)h(A)o(nalysis)e(and)i(Machine)g (Intel)r(ligenc)n(e)p FG(,)c(v)o(ol.)i(15,)g(no.)h(9,)257 223 y(pp.)d(926{932,)e(1993.)37 316 y([P)o(all89])71 b(D.S.)15 b(P)o(allet:)i(\\Benc)o(hmark)f(tests)g(for)f(D)o(ARP)l(A)i (resource)f(managemen)o(t)g(database)f(p)q(erfor-)257 372 y(mance)g(ev)m(aluations",)h Fv(Pr)n(o)n(c)n(e)n(e)n(dings)e(of)i (the)h(ESCA)e(Workshop)p FG(,)h(pp.)f(4.1.1{4.1.4,)c(1989.)37 465 y([PFF90])57 b(D.S.)20 b(P)o(allett,)i(W.M.)d(Fisher)j(&)g(J.G.)e (Fiscus:)i(\\T)l(o)q(ols)f(for)g(the)g(analysis)h(of)f(b)q(enc)o(hmark) 257 521 y(sp)q(eec)o(h)16 b(recognition)g(tests",)e Fv(Pr)n(o)n(c)n(e)n (e)n(dings)g(of)i(the)h(ICASSP'90)p FG(,)c(pp.)i(97{100,)e(1990.)37 614 y([PS91])92 b(S.H.)17 b(P)o(ar\014tt)e(&)j(R.A.)f(Sharman:)f(\\A)h (bi-directional)j(mo)q(del)e(of)f(English)h(pron)o(unciation",)257 670 y Fv(Pr)n(o)n(c)n(e)n(e)n(dings)c(of)i(the)h(EUR)o(OSPEECH'91)p FG(,)c(pp.)i(801{804,)e(1991.)37 763 y([PGDF86])21 b(J.)13 b(Picone,)h(K.M.)e(Goudie-Marshall,)i(G.R.)f(Do)q(ddington)h(&)f(W.)g (Fisher:)g(\\Automatic)g(text)257 820 y(alignmen)o(t)i(for)e(sp)q(eec)o (h)i(system)e(ev)m(aluation",)i Fv(IEEE)f(T)m(r)n(ansactions)f(on)i(A)n (c)n(oustics,)f(Sp)n(e)n(e)n(ch,)257 876 y(and)i(Signal)f(Pr)n(o)n(c)n (essing)p FG(,)e(v)o(ol.)i(34,)f(no.)h(4,)f(pp.)h(780{784,)e(1986.)37 969 y([SK83])88 b(D.)16 b(Sank)o(o\013)f(&)i(J.B.)f(Krusk)m(al)h (\(eds.\):)e(\\)p Fv(Time)i(warps,)h(string)e(e)n(dits,)h(and)g(macr)n (omole)n(cules:)257 1025 y(The)f(the)n(ory)h(and)f(pr)n(actic)n(e)g(of) g(se)n(quenc)n(e)f(c)n(omp)n(arison)p FG(",)f(Addison-W)l(esley)l(,)j (1983.)37 1118 y([Snie92])66 b(M.)14 b(Sniedo)o(vic)o(h:)j(\\)p Fv(Dynamic)f(Pr)n(o)n(gr)n(amming)p FG(",)e(Marcel)h(Dekk)o(er,)g (1992.)37 1211 y([VMA94])38 b(E.)15 b(Vidal,)i(A.)e(Marzal)g(&)h(P)l(.) f(Aibar:)h(\\F)l(ast)e(computation)i(of)f(normalized)i(edit)f (distances",)257 1267 y Fv(p)n(endiente)f(de)i(public)n(aci\023)-23 b(on.)37 1360 y FG([WF74])71 b(R.A.)18 b(W)l(agner)g(&)h(M.J.)f(Fisc)o (her:)g(\\The)h(string-to-string)f(correction)h(problem",)f Fv(Journal)257 1416 y(of)e(the)h(A)o(CM)p FG(,)d(v)o(ol.)g(21,)h(no.)f (1,)h(pp.)g(168{173,)e(1974.)37 1509 y([WPN91])36 b(L.C.)17 b(W)l(o)q(o)q(d,)g(D.J.B.)g(P)o(earce)g(&)h(F.)f(No)o(v)o(ello:)g (\\Impro)o(v)o(ed)h(v)o(o)q(cabulary-indep)q(enden)o(t)i(sub-)257 1565 y(w)o(ord)15 b(HMM)f(mo)q(deling",)i Fv(Pr)n(o)n(c)n(e)n(e)n (dings)e(of)i(the)h(ICASSP'91)p FG(,)c(pp.)i(181{184,)e(1991.)37 1757 y FB(Ap)o(\023)-32 b(endices)37 1945 y(A.)47 b(Implem)o(en)o (taci\023)-33 b(on)37 2050 y Fq(A.1)54 b(T)-5 b(asas.h)37 2129 y Fa(/*)22 b(Gp:)f(devuelve)f(la)i(``distancia)d(de)i (edici\\'on'')f(correspondiente)f(al)i(criterio)59 2179 y(*)109 b(de)21 b(edici\\'on)f(de)i(conteo)e(ponderado)g(de)i(errores)e (de)h(edici\\'on.)59 2229 y(*)h(Entrada:)59 2279 y(*)44 b(p:)21 b(par\\'ametro)f(de)h(equivalencia)e(de)j(criterios)e(de)h (edici\\'on)f(con)h(errores)59 2329 y(*)109 b(ponderados)20 b(como)h(sigue:)f(sustituci\\'on)f(1,)j(inserci\\'on)d(p,)j(borrado)e (p,)59 2378 y(*)109 b(acierto)20 b(0.)59 2428 y(*)44 b(c,)21 b(s:)g(vectores)g(de)g(cadenas)f(de)i(caracteres.)59 2478 y(*)44 b(M:)21 b(n\\'umero)f(de)i(pares)e(\(c,s\))h(de)g(entrada)g (\(talla)f(de)i(los)f(vectores)f(c)i(y)f(s\).)59 2528 y(*)h(Salida:)59 2578 y(*)44 b(NS,)21 b(NI,)g(NB,)g(NA:)g(n\\'umero)f (de)i(sustituciones,)d(inserciones,)g(borrados)h(y)59 2627 y(*)109 b(aciertos,)20 b(respectivamente.)59 2677 y(*/)37 2727 y(extern)37 2777 y(double)h(Gp\(double)f(p,)h(char)g(**c,) g(char)g(**s,)g(int)g(M,)h(int)f(*NS,)g(int)g(*NI,)g(int)g(*NB,)g(int)g (*NA\);)37 2876 y(/*)h(Fpre:)f(devuelve)f(el)h(valor)g(de)g(la)h (funci\\'on)e(de)h(evaluaci\\'on)e(``porcentaje)h(real)37 3074 y FG(18)p eop %%Page: 19 25 19 24 bop -13 -33 a Fv(El)16 b(pr)n(oblema)g(de)g(la)g(evaluaci\023)-23 b(on)17 b(de)f(un)g(sistema)g(de)g(r)n(e)n(c)n(ono)n(cimiento)p Fz(:)8 b(:)g(:)p -13 -16 1857 2 v 9 110 a Fa(*)108 b(de)22 b(errores''.)9 160 y(*)f(Entrada:)9 210 y(*)43 b(c,)21 b(s:)h(vectores)e(de)h(cadenas)g(de)g(caracteres.)9 260 y(*)43 b(M:)21 b(n\\'umero)g(de)g(pares)g(\(c,s\))f(de)i(entrada)e (\(talla)h(de)g(los)g(vectores)f(c)i(y)g(s\).)9 309 y(*)f(Salida:)9 359 y(*)43 b(NS,)21 b(NI,)g(NB,)h(NA:)f(n\\'umero)f(de)h (sustituciones,)e(inserciones,)g(borrados)i(y)9 409 y(*)108 b(aciertos,)20 b(respectivamente.)9 459 y(*/)-13 509 y(extern)-13 559 y(double)g(Fpre\(char)g(**c,)h(char)g(**s,)g(int)g(M,) h(int)f(*NS,)g(int)g(*NI,)g(int)g(*NB,)g(int)g(*NA\);)-13 699 y Fq(A.2)54 b(T)-5 b(asas.c)-13 784 y Fa(#include)20 b()-13 884 y(#define)g(OPS)43 b(0)-13 934 y(#define)20 b(OPI)43 b(1)-13 984 y(#define)20 b(OPB)43 b(2)-13 1033 y(#define)20 b(OPA)43 b(3)-13 1133 y(/*)g(Criterio)20 b(de)i(edici\\'on)d(por)j(conteo)e(ponderado)g(de)h(operaciones)f(de)h (edici\\'on.)f(*/)-13 1233 y(double)g(Gp\(double)g(p,)i(char)f(**c,)g (char)g(**s,)g(int)g(M,)g(int)g(*NS,)g(int)g(*NI,)g(int)h(*NB,)f(int)g (*NA\))-13 1282 y({)g(double)g(*g[2],)g(G,)g(cs,)g(ci,)g(cb,)g(va;)30 1332 y(int)87 b(*na[2],)20 b(*ns[2],)h(*ni[2],)f(*nb[2],)g(i,)i(j,)f (k,)g(op,)h(ImaxI=0,)e(*IcI,)h(int)g(*IsI,)f(I,)i(I_1;)30 1432 y(IcI=calloc\(M,)e(sizeof\(int\)\);)f(IsI=calloc\(M,)g (sizeof\(int\)\);)30 1482 y(for\(k=0;)i(k data would be a vector of lines where each", "line contains reference_sequence..separator_char..test_sequence.\n", "- 'pairs_lines' => is a vector of pairs { ref_seq, test_seq }\n", "- 'pairs_lwords' => is a vector of pairs of word lists:\n", "{ { 'he', 'is' }, { 'she', 'is' } }\n", "- 'pairs_int => is a vector of pairs of integer lists.", "NOTE that 0 integer is reserved for internal purposes.\n", }, ["words_width"] = { "When datatype is 'lines' or 'pairs_lines' this parameter", "indicates that lines would be converted in words", "taking groups of words_width characters", "(non extended ascii)." }, ["words_sep"] = { "When datatype is 'lines' or 'pairs_lines', this parameter", "indicates that lines has words separated by the given", "character. NOTE that this parameter is a Lua string used", "as pattern for string.find function, so the % character", "would be needed in some cases (see Lua reference).", }, ["rate"] = { "The type of error rate which you want to compute. It", "could be:\n", "- 'pra' => correct / total_words\n", "- 'pre' => errors / total_words\n", "- 'pa' => ACCURACY\n", "- 'ie' => WER\n", "- 'wer' => WER\n", "- 'psb' => (substitutions + deletes) / total_words\n", "- 'iep' => weighted WER\n", "- 'iap' => weighted ACCURACY\n", }, ["p"] = { "A number which indicates the insertion and delete cost", "(substitution is 1, and success is 0) [optional]. By", "default is 1", }, ["confusion_matrix"] = { "A boolean value [optional], by default", "is false. It forces to compute a confusion matrix" }, }, outputs = { ["ac"] = "Number of success", ["borr"] = "Number of deletions", ["sust"] = "Number of substitution", ["ins"] = "Number of insertions", ["rate"] = "Value of the indicated error rate", ["confusion_matrix"]="The confusion matrix, only when needed", }, }) rates.types = {'pra','pre','pa','ip','ie','psb','iep','iap'} function rates.lines2pairs_lines(lines,setsep) -- transforma una lista de cadenas en una lista de pares de cadenas local pair_lines = {} setsep = setsep or '%*' local pattern = "^(.*)["..setsep.."](.*)$" for i,line in ipairs(lines) do _,_, correct,test = string.find(line, pattern) table.insert(pair_lines,{correct,test}) end return pair_lines end function rates.pairs_lines2pairs_lwords(pairs_lines,setsep) -- transforma una lista de pares de cadenas en una lista de pares de -- secuencias de palabras local pairs_lwords = {} for i,pair_lines in ipairs(pairs_lines) do table.insert(pairs_lwords,{ string.tokenize(pair_lines[1],setsep), string.tokenize(pair_lines[2],setsep) }) end return pairs_lwords end function rates.pairs_lines2string_width(pairs_lines,width) -- transforma una lista de pares de cadenas en una lista de pares de -- secuencias de palabras local pairs_lwords = {} for i,pair_lines in ipairs(pairs_lines) do table.insert(pairs_lwords,{ string.tokenize_width(pair_lines[1],width), string.tokenize_width(pair_lines[2],width), }) end return pairs_lwords end function rates.lwords2int(lwords,dictionary) local aux = {} for _,word in ipairs(lwords) do local iword = dictionary.dir[word] if (iword == nil) then dictionary.num = dictionary.num+1 dictionary.dir[word] = dictionary.num iword = dictionary.num dictionary.inv[dictionary.num] = word end table.insert(aux,iword) end return aux end function rates.pairs_lwords2pairs_int(pairs_lwords) local dictionary = {dir={},inv={},num=0} dictionary.inv[0] = "" local pairs_int = {} for i,pair in ipairs(pairs_lwords) do table.insert(pairs_int,{ rates.lwords2int(pair[1],dictionary), rates.lwords2int(pair[2],dictionary) }) end return pairs_int,dictionary end function rates.rates(tbl) local datatype = tbl.datatype or 'lines' local data = tbl.data local dictionary if datatype == "lines" then data = rates.lines2pairs_lines(data,tbl.line_sep) datatype = "pairs_lines" end if datatype == "pairs_lines" then if tbl.words_width then data = rates.pairs_lines2string_width(data,tbl.words_width) else data = rates.pairs_lines2pairs_lwords(data,tbl.words_sep) end datatype = "pairs_lwords" end if datatype == "pairs_lwords" then data,dictionary = rates.pairs_lwords2pairs_int(data) datatype = "pairs_int" end if datatype ~= "pairs_int" then fprintf(io.stderr,"rates Error: %s is not a valid datatype", datatype) os.exit(256) end local the_rate = tbl.rate if the_rate == "wer" then the_rate = "ie" end if the_rate == "raw" then return rates.raw{ int_data = data, p = tbl.p, } else local confusion_matrix_dictionary = nil if dictionary then confusion_matrix_dictionary = dictionary.inv end return rates.ints{ int_data = data, rate = the_rate, p = tbl.p, confusion_matrix = tbl.confusion_matrix, confusion_matrix_dictionary = confusion_matrix_dictionary } end end -- hacer que la funcion rates.rates se llame rates local m = getmetatable(rates) function m.__call(x,tbl) if (tbl == nil) then april_help("rates") else return rates.rates(tbl) end end april-ann-0.3.1/packages/evaluation/rates/package.lua000066400000000000000000000021011234204160600225250ustar00rootroot00000000000000 package{ name = "rates", version = "1.0", depends = { "util", }, keywords = { "rates" }, description = "alignment", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_rates.lua.cc", dest_dir = "include" } }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_rates.lua.cc", dest_dir = "build" } }, target{ name = "document", document_src{ file= {"c_src/*.h", "c_src/*.c", "c_src/*.cc"}, }, document_bind{ file= {"binding/*.lua.cc"} }, }, } april-ann-0.3.1/packages/evaluation/rates/test/000077500000000000000000000000001234204160600214145ustar00rootroot00000000000000april-ann-0.3.1/packages/evaluation/rates/test/tasas_emulator.lua000066400000000000000000000055261234204160600251520ustar00rootroot00000000000000--[[ TODO: usar cmdOpt y tasas para emular el tasas original: Uso: ./tasas fich [-f "c"] [-s #|-s "c"] [-p #] [TASA] [-c mat|-C mat] [-w dicc] [-v] donde: fich es el fichero de datos -f "c" : hace que c separe frases en una linea -s # : hace que cada # caracteres se consideren un simbolo -s "cad" : caracts. en "cad" separan simbolos -p # : fija el parametro p a # TASA : proporciona una tasa concreta [-pra|-pre|-pa|-ip|-ie|-psb|-iep|-iap] -C mat : guarda en fichero mat la matriz de confusion -c mat : guarda en mat elementos no nulos de matriz de confusion -w dicc : toma del fichero dicc el orden de los simbolos -v : muestra el numero de ops. de cada tipo y valor de p usado Si el nombre de un fichero es "-" se toma la entrada/salida estandar POR DEFECTO: ./tasas -f "*" -s 1 -pra --]] cmdOptTest = cmdOpt{ program_name = "tasas", argument_description = "emulador del programa tasas", main_description = "", author = "", copyright = "", see_also = "", -- options can be added in the constructor: { index_name="words_sep", description = "hace que c separe frases en una linea", long = "words_sep", short = "f", argument = "yes", argument_name = '"c"', }, { index_name="words_width", description = "hace que cada # caracteres se consideren un simbolo", long = "words_width", short = "s", argument = "yes", argument_name = "#", }, { index_name="p", description = "fija el parametro p a #", short = "p", argument = "yes", }, { index_name="pra", description = "list directory entries instead of contents, and do not dereference symbolic links", short = "d", long = "directory", argument = "no", }, } -- options can also be declared outside constructor: cmdOptTest:add_option{ description = "shows this help message", short = "h", long = "help", argument = "no", action = function (argument) print(cmdOptTest:generate_help()) os.exit(1) end } cmdOptTest:add_option{ index_name = "ignore-backups", description = "do not list implied entries ending with ~", short = "B", long = "ignore-backups", argument = "no", action = function(value) print("this is a test "..tostring(value)) end, } cmdOptTest:add_option{ index_name = "ignore", description = "do not list implied entries matching shell PATTERN", short = "I", long = "ignore", argument = "yes", argument_name = "PATTERN", } ---------------------------------------------------------------------- ---------------------------- MAIN PROGRAM ---------------------------- ---------------------------------------------------------------------- result = cmdOptTest:parse_args() if type(result) == 'string' then error(result) end print("\nThis is a test, let's see the contents of result table:") for i,j in pairs(result) do print(i,j) end april-ann-0.3.1/packages/evaluation/rates/test/test_rates.lua000066400000000000000000000034701234204160600243000ustar00rootroot00000000000000 lineas = [[ a * b b b b a a a * b a b c * b b * a b c a b c * a a b b esto es una prueba*esto es prueba de un fichero de palabras*de un fichero de muchas palabras para probar tasas*para probar el programa tasas ]] lineas = string.tokenize(lineas,"\n") for _,line in ipairs(lineas) do print("->"..line) end resul = rates{ datatype = "lines", -- no hace falta, es valor por defecto line_sep = "%*", -- no hace falta, es valor por defecto words_width = 1, -- words_sep = " ", -- no hace falta, por defecto es ' \t' data = lineas, -- los datos rate = "pra", -- campo obligatorio, no hay valor por defecto confusion_matrix=true, -- por defecto es false } for i,j in pairs(resul) do print(i,j) end print"\n------ matriz de confusion -------" for i,j in pairs(resul.confusion_matrix) do for k,l in pairs(j) do printf("%-8s x %-8s -> %2d ('%s' '%s')\n",i,k,l,i,k) end end print"----------------------------------\n" print"SIN MATRIZ DE CONFUSION" resul = rates{ rate = "pra", data = lineas, } for i,j in pairs(resul) do print(i,j) end ------------------------------------------------ print"CON ENTEROS" enteros = { {{1,1,2,3},{1,3,2,2,4}}, {{1,1,2,3},{1,1,2,3,4}} } resul = rates{ rate = "pra", data = enteros, datatype = "pairs_int", confusion_matrix=true, } for i,j in pairs(resul) do print(i,j) end print"matriz de confusion:" for i,j in pairs(resul.confusion_matrix) do for k,l in pairs(j) do printf("%d x %d -> %d\n",i,k,l) end end ------------------------------------------------ print"\n-----------------------------------------" print"MODO RAW" enteros = { {{1,1,2,3},{1,3,2,2,4}}, {{1,1,2,3},{1,1,2,3,4}} } resul = rates{ rate = "raw", data = enteros, datatype = "pairs_int", } for i,j in ipairs(resul) do for k,l in pairs(j) do print(i,k,l) end end april-ann-0.3.1/packages/functions/000077500000000000000000000000001234204160600171605ustar00rootroot00000000000000april-ann-0.3.1/packages/functions/binding/000077500000000000000000000000001234204160600205725ustar00rootroot00000000000000april-ann-0.3.1/packages/functions/binding/bind_function_interface.lua.cc000066400000000000000000000031731234204160600265260ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C #include "bind_tokens.h" //BIND_END //BIND_HEADER_H #include "function_interface.h" using namespace Functions; //BIND_END //BIND_LUACLASSNAME FunctionInterface functions //BIND_CPP_CLASS FunctionInterface //BIND_CONSTRUCTOR FunctionInterface { LUABIND_ERROR("Abstract class!!!"); } //BIND_END //BIND_METHOD FunctionInterface get_input_size { LUABIND_CHECK_ARGN(==,0); LUABIND_RETURN(uint, obj->getInputSize()); } //BIND_END //BIND_METHOD FunctionInterface get_output_size { LUABIND_CHECK_ARGN(==,0); LUABIND_RETURN(uint, obj->getOutputSize()); } //BIND_END //BIND_METHOD FunctionInterface calculate { LUABIND_CHECK_ARGN(==,1); Token *input; LUABIND_GET_PARAMETER(1, Token, input); LUABIND_RETURN(Token, obj->calculate(input)); } //BIND_END april-ann-0.3.1/packages/functions/binding/bind_function_interface.lua.cc.bak000066400000000000000000000144401234204160600272610ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C #include "bind_dataset.h" //BIND_END //BIND_HEADER_H #include "function_interface.h" #include "datasettoken_producer.h" #include "datasettoken_consumer.h" using namespace Functions; //BIND_END //BIND_LUACLASSNAME FunctionBase __function_base__ //BIND_CPP_CLASS FunctionBase //BIND_CONSTRUCTOR FunctionBase { LUABIND_ERROR("Abstract class!!!"); } //BIND_END //BIND_METHOD FunctionBase get_input_size { LUABIND_CHECK_ARGN(==,0); LUABIND_RETURN(uint, obj->getInputSize()); } //BIND_END //BIND_METHOD FunctionBase get_output_size { LUABIND_CHECK_ARGN(==,0); LUABIND_RETURN(uint, obj->getOutputSize()); } //BIND_END /////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME TokenTokenFunctionInterface __function_interface_token_token__ //BIND_CPP_CLASS TokenTokenFunctionInterface //BIND_SUBCLASS_OF TokenTokenFunctionInterface FunctionBase //BIND_CONSTRUCTOR TokenTokenFunctionInterface { LUABIND_ERROR("Abstract class!!!"); } //BIND_END //BIND_METHOD TokenTokenFunctionInterface calculate //DOC_BEGIN // calculate(input) : table /// Execute the calculate method of a function, and returns a Lua table with the function output /// @param input A Lua table with the functions input //DOC_END { unsigned int input_size, output_size = obj->getOutputSize(); Token *input, *output = new float[output_size]; LUABIND_CHECK_ARGN(==,1); LUABIND_TABLE_GETN(1, input_size); if (input_size != obj->getInputSize()) LUABIND_ERROR("Incorrect input size!!!\n"); input = new float[input_size]; LUABIND_TABLE_TO_VECTOR(1, float, input, input_size); if (!obj->calculate(input, input_size, output, output_size)) LUABIND_ERROR("Impossible to execute calculate method!!!\n"); LUABIND_VECTOR_TO_NEW_TABLE(float, output, output_size); LUABIND_RETURN_FROM_STACK(-1); delete[] input; delete[] output; } //BIND_END //BIND_METHOD FloatFloatFunctionInterface calculate_in_pipeline //DOC_BEGIN // calculate_in_pipeline{ consumer, producer } /// Execute the calculate in pipeline method of a function /// @param input A Lua table with the functions input //DOC_END { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "producer", "consumer", "input_size", "output_size", (const char *)0); // de tipo float => float FloatDataProducer *producer; unsigned int input_size; FloatDataConsumer *consumer; unsigned int output_size; LUABIND_GET_TABLE_PARAMETER(1, producer, FloatDataProducer, producer); LUABIND_GET_TABLE_PARAMETER(1, consumer, FloatDataConsumer, consumer); LUABIND_GET_TABLE_PARAMETER(1, input_size, uint, input_size); LUABIND_GET_TABLE_PARAMETER(1, output_size, uint, output_size); obj->calculateInPipeline(producer, input_size, consumer, output_size); } //BIND_END //////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME FloatDataProducer __float_data_producer__ //BIND_CPP_CLASS FloatDataProducer //BIND_CONSTRUCTOR FloatDataProducer { LUABIND_ERROR("this is an abstract class"); return 0; } //BIND_END //BIND_DESTRUCTOR FloatDataProducer { } //BIND_END //BIND_METHOD FloatDataProducer reset { obj->reset(); } //BIND_END //BIND_LUACLASSNAME FloatDataConsumer __float_data_consumer__ //BIND_CPP_CLASS FloatDataConsumer //BIND_CONSTRUCTOR FloatDataConsumer { LUABIND_ERROR("this is an abstract class"); return 0; } //BIND_END //BIND_DESTRUCTOR FloatDataConsumer { } //BIND_END //BIND_METHOD FloatDataConsumer reset { obj->reset(); } //BIND_END //BIND_LUACLASSNAME LogFloatDataProducer __logfloat_data_producer__ //BIND_CPP_CLASS LogFloatDataProducer //BIND_CONSTRUCTOR LogFloatDataProducer { LUABIND_ERROR("this is an abstract class"); return 0; } //BIND_END //BIND_DESTRUCTOR LogFloatDataProducer { } //BIND_END //BIND_METHOD LogFloatDataProducer reset { obj->reset(); } //BIND_END //BIND_LUACLASSNAME DoubleDataProducer __double_data_producer__ //BIND_CPP_CLASS DoubleDataProducer //BIND_CONSTRUCTOR DoubleDataProducer { LUABIND_ERROR("this is an abstract class"); return 0; } //BIND_END //BIND_DESTRUCTOR DoubleDataProducer { } //BIND_END //BIND_METHOD DoubleDataProducer reset { obj->reset(); } //BIND_END //BIND_LUACLASSNAME LogFloatDataConsumer __logfloat_data_consumer__ //BIND_CPP_CLASS LogFloatDataConsumer //BIND_CONSTRUCTOR LogFloatDataConsumer { LUABIND_ERROR("this is an abstract class"); return 0; } //BIND_END //BIND_DESTRUCTOR LogFloatDataConsumer { } //BIND_END //BIND_METHOD LogFloatDataConsumer reset { obj->reset(); } //BIND_END //////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME DataSetFloatProducer functions.producer.dataset //BIND_CPP_CLASS DataSetFloatProducer //BIND_SUBCLASS_OF DataSetFloatProducer FloatDataProducer //BIND_CONSTRUCTOR DataSetFloatProducer { DataSetFloat *ds; LUABIND_GET_PARAMETER(1, DataSetFloat, ds); obj = new DataSetFloatProducer(ds); LUABIND_RETURN(DataSetFloatProducer, obj); } //BIND_END //////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME DataSetFloatConsumer functions.consumer.dataset //BIND_CPP_CLASS DataSetFloatConsumer //BIND_SUBCLASS_OF DataSetFloatConsumer FloatDataConsumer //BIND_CONSTRUCTOR DataSetFloatConsumer { DataSetFloat *ds; LUABIND_GET_PARAMETER(1, DataSetFloat, ds); obj = new DataSetFloatConsumer(ds); LUABIND_RETURN(DataSetFloatConsumer, obj); } //BIND_END april-ann-0.3.1/packages/functions/c_src/000077500000000000000000000000001234204160600202515ustar00rootroot00000000000000april-ann-0.3.1/packages/functions/c_src/function_interface.h000066400000000000000000000040711234204160600242710ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef FUNCTION_INTERFACE_H #define FUNCTION_INTERFACE_H #include "error_print.h" #include "referenced.h" #include "token_base.h" namespace Functions { /// A virtual class that serves as high level interface. /** A FunctionInterface is an abstraction of an object which represents a mathematical function. It adds to the interface abstract methods which calculates output vector given input vector, and a basic implementation of a method that consumes input vectors (from a DataProducer) and produces output vectros (to a DataConsumer). Every function is feeded with an input Token and produces an output Token. */ class FunctionInterface : public Referenced { public: FunctionInterface() : Referenced() { } virtual ~FunctionInterface() { } /// It returns the input (or domain) size of the function. virtual unsigned int getInputSize() const = 0; /// It returns the output (or range) size of the function. virtual unsigned int getOutputSize() const = 0; /// A new abstract method that computes output vector given input vector. // FIXME: const Token *input virtual Token *calculate(Token *input) = 0; }; } #endif //FUNCTION_INTERFACE_H april-ann-0.3.1/packages/functions/c_src/old/000077500000000000000000000000001234204160600210275ustar00rootroot00000000000000april-ann-0.3.1/packages/functions/c_src/old/contextualizer_producer.cc000066400000000000000000000054301234204160600263230ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "contextualizer_producer.h" namespace Functions { FloatContextualizerProducerFromDouble:: FloatContextualizerProducerFromDouble(DataProducer *orig_producer, int input_size, int left_context, int right_context, float *means=0, float *devs =0) : orig_producer(orig_producer), input_size(input_size), left_context(left_context), right_context(right_context), means(means), devs(devs), ctxt(left_context,right_context,input_size) { output_size = input_size*(left_context+1+right_context); IncRef(orig_producer); } FloatContextualizerProducerFromDouble::~FloatContextualizerProducerFromDouble() { DecRef(orig_producer); delete[] means; delete[] devs; } float* FloatContextualizerProducerFromDouble::get() { float *resul = 0; // if contextualizer mode is end, shift sliding window if (ctxt.is_ended()) { ctxt.shift(); } else { // we are not at the end, a new data vector will be pushed into // contextualizer object do { double *double_vec = orig_producer->get(); float *vec = 0; if (double_vec != 0) { vec = new float[input_size]; // normalize substracting mean and dividing by standard deviation if (means!=0 && devs!=0) for (int i=0; ireset(); } } april-ann-0.3.1/packages/functions/c_src/old/contextualizer_producer.h000066400000000000000000000047761234204160600262010ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef CONTEXTUALIZER_PRODUCER_H #define CONTEXTUALIZER_PRODUCER_H #include "function_interface.h" #include "context.h" namespace Functions { /// A specialization of FloatDataProducer which gets data from another producer. /** A specialization of FloatDataProducer class which works as a source of data vectors. Data vectors are stored at the internal DoubleDataProducer attribute. A context is added to data vectors, in order to being used as inputs of classifiers, as for example a neural network. Also, this object could normalize the data vectors substracting the mean and dividing by the standard deviation. */ class FloatContextualizerProducerFromDouble : public DataProducer { /// Internal DoubleDataProducer source DataProducer *orig_producer; /// Size of vectors at orig_producer int input_size; /// Size of vectros after context addition int output_size; /// Left context added to data vectors int left_context; /// Right context added to data vectors int right_context; /// Means vector, for mean normalization of data. float *means; /// Standard deviations vector, for variance normalization of data float *devs; /// Context object, it implements the contextualizer logic april_utils::context_of_vectors ctxt; public: FloatContextualizerProducerFromDouble(DataProducer *orig_producer, int input_size, int left_context, int right_context, float *means, float *devs); ~FloatContextualizerProducerFromDouble(); float *get(); void reset(); }; } #endif // CONTEXTUALIZER_PRODUCER_H april-ann-0.3.1/packages/functions/c_src/old/datasettoken_consumer.cc000066400000000000000000000032261234204160600257420ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "datasettoken_consumer.h" namespace Functions { DataSetTokenConsumer::DataSetTokenConsumer(DataSetToken *ds) : ds(ds) { IncRef(ds); ipat = 0; } DataSetTokenConsumer::~DataSetTokenConsumer() { DecRef(ds); } void DataSetTokenConsumer::put(Token *pattern) { // check for a NULL pointer and check the number of patterns with the // counter value if (pattern != 0 && static_cast(ipat) < ds->numPatterns()) { IncRef(pattern); ds->putPattern(ipat++, pattern); DecRef(pattern); } } void DataSetTokenConsumer::reset() { // with every reset, this consumer will overwrite the entire DataSetToken ipat = 0; } void DataSetTokenConsumer::destroy() { // nothing more to do, only reset the counter ipat = 0; } } april-ann-0.3.1/packages/functions/c_src/old/datasettoken_consumer.h000066400000000000000000000032021234204160600255760ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "function_interface.h" #include "datasetToken.h" namespace Functions { /// A specialization of DataConsumer which put data into a dataset. /** A specialization of FloatDataConsumer class which works as a sink of data vectors. Data vectros will be stored in the internal DataSetToken attribute. The DataSetToken must have enough space for all consumed vectors. */ class DataSetTokenConsumer : public DataConsumer{ /// Internal DataSetToken where tokens will be stored. DataSetToken *ds; /// Auxiliar iterator counter of how many vectors were processed. unsigned int ipat; public: DataSetTokenConsumer(DataSetToken *ds); ~DataSetTokenConsumer(); void put(Token *pattern); void reset(); void destroy(); }; } april-ann-0.3.1/packages/functions/c_src/old/datasettoken_producer.cc000066400000000000000000000030711234204160600257300ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "datasetfloat_producer.h" namespace Functions { DataSetFloatProducer::DataSetFloatProducer(DataSetFloat *ds) : ds(ds) { IncRef(ds); ipat = 0; } DataSetFloatProducer::~DataSetFloatProducer() { DecRef(ds); } float *DataSetFloatProducer::get() { float *pattern = 0; // check the number of produced data vectors, if the maximum is achieved, a // NULL pointer will be returned if (static_cast(ipat) < ds->numPatterns()) { pattern = new float[ds->patternSize()]; ds->getPattern(ipat++, pattern); } return pattern; } void DataSetFloatProducer::reset() { ipat = 0; } void DataSetFloatProducer::destroy() { ipat = 0; } } april-ann-0.3.1/packages/functions/c_src/old/datasettoken_producer.h000066400000000000000000000030551234204160600255740ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "function_interface.h" #include "datasetFloat.h" namespace Functions { /// A specialization of FloatDataProducer which gets data from a dataset. /** A specialization of FloatDataProducer class which works as a source of data vectors. Data vectros are stored at the internal DataSetFloat attribute. */ class DataSetFloatProducer : public FloatDataProducer{ /// The internal DataSetFloat source. DataSetFloat *ds; /// An auxiliar counter which indicates the number of vectros produced. unsigned int ipat; public: DataSetFloatProducer(DataSetFloat *ds); ~DataSetFloatProducer(); float *get(); void reset(); void destroy(); }; } april-ann-0.3.1/packages/functions/c_src/old/function_interface.h000066400000000000000000000117671234204160600250610ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Salvador España-Boquera, Adrian Palacios Corella, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef FUNCTION_INTERFACE_H #define FUNCTION_INTERFACE_H #include "logbase.h" #include "error_print.h" #include "referenced.h" #include "token_base.h" namespace Functions { /// A pure abstract class that serves as interface. /** A DataProducer is an abstraction of an object which produces a sequence a vectors of a given type, followed by a 0 indicating sequence ending. The object could be reinitialized (if it is possible) using the reset method. Finally, it could be destroyed using destroy method. Destroy method is needed to make feasible the destruction of a DataProducer without calling its destructor, forcing the object to send a 0 in the next get() call. */ class DataProducer : public Referenced { public: /// Returns a pointer and its property. A 0 inidicates data sequence ending. virtual Token *get() = 0; /// Reinitialize the sequence iterator if it is possible. virtual void reset() = 0; /// It destroys the object content and forces to return a 0 on next get(). virtual void destroy() { } }; /// A pure abstract class that serves as interface. /** A DataConsumer is an abstraction of an object which consumes a sequence of vectors of a given type, followed by a 0 indicating sequence ending. The object could be reinitialized (if it is possible) using the reset method. Finally, it could be destroyed using destroy method. Destroy method is needed to make feasible the destruction of a DataConsumer without calling its destructor, forcing the object to send a 0 in the next get() call. */ class DataConsumer : public Referenced { public: /// Receives a pointer and its property. It receive a 0 at sequence ending. virtual void put(Token *) = 0; /// Reinitialize the sequence iterator if it is possible. virtual void reset() = 0; /// It destroys the object content. virtual void destroy() { } }; /// A virtual class that serves as high level interface. /** A FunctionInterface is an abstraction of an object which represents a mathematical function. It adds to the interface abstract methods which calculates output vector given input vector, and a basic implementation of a method that consumes input vectors (from a DataProducer) and produces output vectros (to a DataConsumer). Every function is feeded with an input Token and produces an output Token. */ class FunctionInterface : public Referenced { public: FunctionInterface() : Referenced() { } virtual ~FunctionInterface() { } /// It returns the input (or domain) size of the function. virtual unsigned int getInputSize() const = 0; /// It returns the output (or range) size of the function. virtual unsigned int getOutputSize() const = 0; /// A new abstract method that computes output vector given input vector. virtual Token *calculate(const Token *input) = 0; /// Method for flow computation of outputs in a pipeline system. /** This method process a flow of data vectors, computed by a DataProducer, and produces an output vector for each of them. Output vectors are given to a DataConsumer. The end of the flow is indicated by DataProducer using a 0 pointer. Is mandatory to produces a 0 pointer to feed the DataConsumer when the flow ends. Input vector pointer is property of this method, needs to be freed. Output vector pointer is property of the DataConsumer object. */ virtual void calculateInPipeline(DataProducer *producer, DataConsumer *consumer) { Token *input; // we read from producer input until a 0 while( (input = producer->get()) != 0) { // we get the input increasing its reference counter IncRef(input); Token *output = calculate(input); // we get the output increasing its reference counter IncRef(output); consumer->put(output); // we lose input and output decreasing reference counters DecRef(output); DecRef(input); } // is mandatory to send this 0 to the consumer when the flow of data ends consumer->put(0); } }; } #endif //FUNCTION_INTERFACE_H april-ann-0.3.1/packages/functions/doc/000077500000000000000000000000001234204160600177255ustar00rootroot00000000000000april-ann-0.3.1/packages/functions/doc/function_interface.dox000066400000000000000000000000651234204160600243070ustar00rootroot00000000000000/** \page __global__ FunctionInterface */ april-ann-0.3.1/packages/functions/package.lua000066400000000000000000000021301234204160600212520ustar00rootroot00000000000000 package{ name = "functions", version = "1.0", depends = { "util", "tokens" }, keywords = { "Functions" }, description = "Define interfaces and methods for work with functions", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_function_interface.lua.cc", dest_dir = "include" } }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_function_interface.lua.cc", dest_dir = "build", } }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/hmm_trainer/000077500000000000000000000000001234204160600174555ustar00rootroot00000000000000april-ann-0.3.1/packages/hmm_trainer/binding/000077500000000000000000000000001234204160600210675ustar00rootroot00000000000000april-ann-0.3.1/packages/hmm_trainer/binding/bind_hmm_trainer.lua.cc000066400000000000000000000247461234204160600254740ustar00rootroot00000000000000//BIND_HEADER_H #include "utilLua.h" #include "hmm_trainer.h" #include "bind_matrix.h" //BIND_END //BIND_LUACLASSNAME hmm_trainer hmm_trainer //BIND_CPP_CLASS hmm_trainer //BIND_LUACLASSNAME hmm_trainer_model hmm_trainer_model //BIND_CPP_CLASS hmm_trainer_model //BIND_CONSTRUCTOR hmm_trainer hmm_trainer { LUABIND_CHECK_ARGN(==,0); LUABIND_RETURN(hmm_trainer, new hmm_trainer()); } //BIND_END //BIND_DESTRUCTOR hmm_trainer { } //BIND_END //BIND_METHOD hmm_trainer check_cls_emission { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, number); int emis; LUABIND_GET_PARAMETER(1, int, emis); obj->check_cls_emission(emis-1); // restamos 1 } //BIND_END //BIND_METHOD hmm_trainer new_cls_state { LUABIND_CHECK_ARGN(==,0); LUABIND_RETURN(number, obj->new_cls_state()); } //BIND_END //BIND_METHOD hmm_trainer new_cls_transition { LUABIND_CHECK_ARGN(==,1); int cls_state; LUABIND_GET_PARAMETER(1, int, cls_state); LUABIND_RETURN(number, obj->new_cls_transition(cls_state)); } //BIND_END //BIND_METHOD hmm_trainer get_num_cls_emissions { LUABIND_CHECK_ARGN(==,0); LUABIND_RETURN(number, obj->get_num_cls_emissions()); } //BIND_END //BIND_METHOD hmm_trainer set_a_priori_emissions { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, table); int len; float *vec; len = table_to_float_vector(L,&vec); if (obj->get_num_cls_emissions() == 0) obj->check_cls_emission(len-1); else if (len != obj->get_num_cls_emissions()) { lua_pushfstring(L,"hmm_trainer set_a_priori_emission " "method: incorrect number of a prioris: " "%d en lugar de %d", len, obj->get_num_cls_emissions()); lua_error(L); } for (int i=0; iset_apriori_cls_emission(i,log_float::from_float(vec[i])); delete[] vec; } //BIND_END //BIND_METHOD hmm_trainer get_a_priori_emissions { LUABIND_CHECK_ARGN(==,0); lua_newtable(L); int nclsemis = obj->get_num_cls_emissions(); for (int i=0; iget_apriori_cls_emission(i).to_float()); lua_rawseti(L,-2,i+1); } return 1; } //BIND_END //BIND_METHOD hmm_trainer get_transition_probability { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, number); int index; LUABIND_GET_PARAMETER(1, int, index); LUABIND_RETURN(number, obj->get_cls_transition_prob(index).to_float()); } //BIND_END //BIND_METHOD hmm_trainer get_transition_logprobability { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, number); int index; LUABIND_GET_PARAMETER(1, int, index); LUABIND_RETURN(number, obj->get_cls_transition_prob(index).log()); } //BIND_END //BIND_METHOD hmm_trainer print { LUABIND_CHECK_ARGN(==,0); obj->print(); } //BIND_END //BIND_CONSTRUCTOR hmm_trainer_model { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, hmm_trainer); hmm_trainer *the_trainer = lua_tohmm_trainer(L,1); LUABIND_RETURN(hmm_trainer_model, new hmm_trainer_model(the_trainer)); } //BIND_END //BIND_DESTRUCTOR hmm_trainer_model { } //BIND_END //BIND_METHOD hmm_trainer_model print { LUABIND_CHECK_ARGN(==,0); obj->print(); } //BIND_END //BIND_METHOD hmm_trainer_model print_dot { LUABIND_CHECK_ARGN(==,0); obj->print_dot(); } //BIND_END //BIND_METHOD hmm_trainer begin_expectation { LUABIND_CHECK_ARGN(==,0); obj->begin_expectation(); } //BIND_END //BIND_METHOD hmm_trainer end_expectation { bool update_trans_prob=true; bool update_a_priori_emission=true; int argn = lua_gettop(L); // number of arguments if (argn == 1 && lua_istable(L,1)) { lua_pushstring(L, "update_trans_prob"); lua_gettable(L, 1); if (lua_isboolean(L, -1)) update_trans_prob = (bool)lua_toboolean(L, -1); lua_pop(L,1); // lua_pushstring(L, "update_a_priori_emission"); lua_gettable(L, 1); if (lua_isboolean(L, -1)) update_a_priori_emission = (bool)lua_toboolean(L, -1); lua_pop(L,1); } // obj->end_expectation(update_trans_prob,update_a_priori_emission); } //BIND_END //BIND_METHOD hmm_trainer_model new_state { LUABIND_CHECK_ARGN(==,0); LUABIND_RETURN(number, obj->new_state()); } //BIND_END //BIND_METHOD hmm_trainer_model set_initial_state { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, number); int st; LUABIND_GET_PARAMETER(1, int, st); obj->set_initial_state(st); } //BIND_END //BIND_METHOD hmm_trainer_model set_final_state { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, number); int st; LUABIND_GET_PARAMETER(1, int, st); obj->set_final_state(st); } //BIND_END //BIND_METHOD hmm_trainer_model new_transition { LUABIND_CHECK_ARGN(>=,5); LUABIND_CHECK_ARGN(<=,6); LUABIND_CHECK_PARAMETER(1, number); LUABIND_CHECK_PARAMETER(2, number); LUABIND_CHECK_PARAMETER(3, number); LUABIND_CHECK_PARAMETER(4, number); LUABIND_CHECK_PARAMETER(5, number); int from, to, emission, cls_trns; LUABIND_GET_PARAMETER(1, int, from); LUABIND_GET_PARAMETER(2, int, to); LUABIND_GET_PARAMETER(3, int, emission); emission -= 1; // OJO QUE RESTAMOS 1 LUABIND_GET_PARAMETER(4, int, cls_trns); log_float prb= log_float(lua_tonumber(L,5)); // Va en base logarítmica const char *output = 0; if (lua_isstring(L,6)) { output = lua_tostring(L,6); } obj->new_transition(from,to,emission,cls_trns,prb,output); } //BIND_END //BIND_METHOD hmm_trainer_model prepare_model { LUABIND_CHECK_ARGN(==,0); LUABIND_RETURN(bool, obj->prepare_model()); } //BIND_END //BIND_METHOD hmm_trainer_model get_num_states_transitions { LUABIND_CHECK_ARGN(==,0); int states,transitions; obj->get_information(states,transitions); LUABIND_RETURN(int, states); LUABIND_RETURN(int, transitions); } //BIND_END //BIND_METHOD hmm_trainer_model viterbi { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, table); check_table_fields(L, 1, "input_emission", "output_emission_seq", "output_emission", "state_probabilities", "do_expectation", "emission_in_log_base", "count_value", (const char *)0); // MatrixFloat *input_matemi, *output_matemi_seq, *output_matemi; MatrixFloat *state_probabilities; bool do_expectation, emission_in_log_base; LUABIND_GET_TABLE_PARAMETER(1, input_emission, MatrixFloat, input_matemi); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, output_emission_seq, MatrixFloat, output_matemi_seq, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, output_emission, MatrixFloat, output_matemi, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, state_probabilities, MatrixFloat, state_probabilities, 0); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, do_expectation, bool, do_expectation, false); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, emission_in_log_base, bool, emission_in_log_base, false); // Modificar el valor a sumar en cada cuenta, de esa forma se pueden // ponderar las cuentas de diferentes frases dando mas pesos a unas // que a otras float count_value; LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, count_value, float, count_value, 1.0f); // char *output; log_float resul = obj->viterbi(input_matemi, emission_in_log_base, do_expectation, output_matemi, output_matemi_seq, state_probabilities, &output, count_value); LUABIND_RETURN(float, resul.log()); // devuelve log(probabilidad) LUABIND_RETURN(string, output); delete[] output; } //BIND_END //BIND_METHOD hmm_trainer_model forward_backward { LUABIND_CHECK_ARGN(==,1); LUABIND_CHECK_PARAMETER(1, table); // lua_pushstring(L, "input_emission"); lua_gettable(L,1); if (lua_isnil(L,-1)) { lua_pushstring(L,"hmm_trainer_model: input_emission not found"); lua_error(L); } MatrixFloat* input_matemi = lua_toMatrixFloat(L,-1); // por defecto utiliza la misma matriz para dejar el resultado: MatrixFloat* output_matemi = input_matemi; lua_pop(L,1); if (input_matemi->getNumDim() != 2) { lua_pushstring(L,"hmm_trainer model forward_backward method: " "emission matrix must have dim 2"); lua_error(L); } // lua_pushstring(L, "output_emission"); lua_gettable(L,1); if (!lua_isnil(L,-1)) { output_matemi = lua_toMatrixFloat(L,-1); // TODO: comprobar matriz es ok } lua_pop(L,1); // por defecto hace do_expectation: bool do_expectation = true; lua_pushstring(L, "do_expectation"); lua_gettable(L,1); if (!lua_isnil(L,-1)) { do_expectation = lua_toboolean(L,-1); } lua_pop(L,1); // obj->forward_backward(input_matemi,output_matemi,do_expectation); } //BIND_END //BIND_CLASS_METHOD hmm_trainer to_log { LUABIND_CHECK_ARGN(>=,1); int argn = lua_gettop(L); // number of arguments if (lua_isMatrixFloat(L,1)) { MatrixFloat* mat = lua_toMatrixFloat(L,1); log_float *aux = new log_float(mat->getDimSize(1)); if (argn > 1) { for (int i=0;igetDimSize(1);i++) { lua_rawgeti(L, 2, i+1); float f = lua_tonumber(L,-1); lua_pop(L,1); aux[i] = log_float::from_float(f); // TODO: revisar este codigo // antes ponia: aux[i] = log_float::from_float(aux[i]); } } else { for (int i=0;igetDimSize(1);i++) { aux[i] = log_float::one(); } } MatrixFloat::iterator mat_it(mat->begin()); for (int i=0;igetDimSize(0);i++) { for (int j=0;jgetDimSize(1);j++,++mat_it) *mat_it = (log_float::from_float(*mat_it) / aux[j]).log(); } } if (lua_isnumber(L,1)) { float num = lua_tonumber(L,1); lua_pushnumber(L,log_float::from_float(num).log()); return 1; } } //BIND_END //BIND_CLASS_METHOD hmm_trainer from_log { LUABIND_CHECK_ARGN(==,1); if (lua_isMatrixFloat(L,1)) { MatrixFloat* mat = lua_toMatrixFloat(L,1); for (MatrixFloat::iterator mat_it(mat->begin()); mat_it!=mat->end(); ++mat_it) *mat_it = log_float(*mat_it).to_float(); } if (lua_isnumber(L,1)) { float num = lua_tonumber(L,1); lua_pushnumber(L,log_float(num).to_float()); return 1; } } //BIND_END //BIND_FUNCTION HMMTrainer.utils.initial_emission_alignment { LUABIND_CHECK_ARGN(==,2); int npat; LUABIND_GET_PARAMETER(2, int, npat); lua_pop(L,1); int *seq_emission; int nsts = table_to_int_vector(L,&seq_emission); // creamos una matriz de dim 1 con npat valores: MatrixFloat* mat = new MatrixFloat(1, &npat); // repartimos los npat valores en nsts posiciones int cociente = npat/nsts; int resto = npat%nsts; int i,r,v; float s; for (i=0,r=0; i < nsts; i++) { v = cociente; if (resto>0) { v++; resto--; } s = seq_emission[i]; for (;v>0;v--) { (*mat)(r) = s; r++; } } delete[] seq_emission; LUABIND_RETURN(MatrixFloat, mat); } //BIND_END april-ann-0.3.1/packages/hmm_trainer/c_src/000077500000000000000000000000001234204160600205465ustar00rootroot00000000000000april-ann-0.3.1/packages/hmm_trainer/c_src/hmm_trainer.cc000066400000000000000000000750271234204160600233750ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Jorge Gorbe Moya, Salvador España-Boquera * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "error_print.h" #include "hmm_trainer.h" #include #include #include // para exit #include #include "april_assert.h" hmm_trainer::hmm_trainer() { num_cls_states = 0; num_cls_transitions = 0; num_cls_emissions = 0; vsz_cls_states = 4; vsz_cls_transitions = 4; vsz_cls_emissions = 4; cls_transition = new hmm_trainer_cls_transition[vsz_cls_transitions]; cls_state = new hmm_trainer_cls_state[vsz_cls_states]; apriori_cls_emission = new log_float[vsz_cls_emissions]; acum_cls_emission = new log_double[vsz_cls_emissions]; // inicializar aprioris, como si no hubiese el calculo de aprioris: for (int i=0; i= vsz_cls_states) { while (st >= vsz_cls_states) vsz_cls_states *= 2; hmm_trainer_cls_state *old_cls_state = cls_state; cls_state = new hmm_trainer_cls_state[vsz_cls_states]; for (int i=0; i= num_cls_states) num_cls_states = st+1; } int hmm_trainer::new_cls_state() { int aux = num_cls_states; check_cls_state(aux); cls_state[aux].cls_tr_list = -1; // lista vacia return aux; } void hmm_trainer::check_cls_transition(int tr) { if (tr >= vsz_cls_transitions) { while (tr >= vsz_cls_transitions) vsz_cls_transitions *= 2; hmm_trainer_cls_transition *old_cls_transition = cls_transition; cls_transition = new hmm_trainer_cls_transition[vsz_cls_transitions]; for (int i=0; i= num_cls_transitions) num_cls_transitions = tr+1; } int hmm_trainer::new_cls_transition(int c_st) { int aux = num_cls_transitions; check_cls_transition(aux); cls_transition[aux].prob = log_float::zero(); cls_transition[aux].emission = 0; // cualquier valor >=0 if (c_st == -1) cls_transition[aux].next = -1; else { cls_transition[aux].next = cls_state[c_st].cls_tr_list; cls_state[c_st].cls_tr_list = aux; } return aux; } void hmm_trainer::check_cls_emission(int emis) { if (emis >= vsz_cls_emissions) { while (emis >= vsz_cls_emissions) vsz_cls_emissions *= 2; delete[] apriori_cls_emission; delete[] acum_cls_emission; apriori_cls_emission = new log_float[vsz_cls_emissions]; acum_cls_emission = new log_double[vsz_cls_emissions]; // inicializar aprioris, como si no hubiese el cálculo de // aprioris: for (int i=0; i= num_cls_emissions) { for (int i=num_cls_emissions; i<=emis; i++) apriori_cls_emission[i] = log_float::one(); num_cls_emissions = emis+1; } } void hmm_trainer::begin_expectation() { for (int i=0;i %f = %f/%f\n", rt, cls_transition[rt].prob.to_double(), (cls_transition[rt].acum / sumatotal).to_double(), cls_transition[rt].acum.log(), sumatotal.log()); auxprob = cls_transition[rt].acum / sumatotal; if (auxprob < minprob) minprob = auxprob; } } } if (minprob > log_float::zero()) { #endif // recalcular las probabilidades de las transiciones for (int i=0;i %f = exp(%f)/exp(%f)\n", // rt, cls_transition[rt].prob.to_float(), // (cls_transition[rt].acum / sumatotal).to_float(), // cls_transition[rt].acum.log(), sumatotal.log()); cls_transition[rt].prob = cls_transition[rt].acum / sumatotal; } } } #ifdef CHECK_HMMTRAINER_TRANS_PROB_DIFERENT_ZERO } // if minprob > 0.0 #endif } // if update... if (update_a_priori_emission) { // recalcular las probabilidades a priori de los tipos de emisión maxpracum = acum_cls_emission[0]; for (int i=1;i %f = exp(%f)/exp(%f)\n", // i, apriori_cls_emission[i].to_float(), // (acum_cls_emission[i] / sumatotal).to_float(), // acum_cls_emission[i].log(),sumatotal.log()); apriori_cls_emission[i] = acum_cls_emission[i] / sumatotal; // PARCHE FEO HEURISTICO: <- IMPORTANTE if (apriori_cls_emission[i] <= log_float::from_float(1e-20)) apriori_cls_emission[i] = log_float::from_float(1e20); } } } void hmm_trainer::print() const { } hmm_trainer_model::hmm_trainer_model(hmm_trainer *the_trainer) { created = false; num_states = 0; num_transitions = 0; initial_state =-1; final_state =-1; list_transitions= 0; transition = 0; //ranking = 0; trainer = the_trainer; IncRef(trainer); } int hmm_trainer_model::new_state() { int aux = num_states; num_states++; return aux; } void hmm_trainer_model::new_transition(int from, int to, int emission, int cls_transition, log_float prob, const char *output) { num_transitions++; hmm_aux_transition *aux = new hmm_aux_transition; aux->from = from; aux->to = to; aux->emission = emission; trainer->check_cls_emission(emission); aux->id = cls_transition; aux->prob = prob; aux->next = list_transitions; list_transitions = aux; if (output == 0) aux->output = 0; else { aux->output = new char[strlen(output)+1]; strcpy(aux->output,output); } } // clase auxiliar para calcular el orden topologico: struct list_top_order { int state; list_top_order *next; list_top_order(int st, list_top_order *nxt) : state(st), next(nxt) {} }; bool hmm_trainer_model::prepare_model() { // llamarlo una vez introducido todo if (num_transitions <= 0 || initial_state < 0 || final_state < 0) { ERROR_PRINT3("prepare_model(): num_transitions(%d) <= 0 || " "initial_state(%d) < 0 || final_state(%d) < 0\n", num_transitions, initial_state, final_state); return false; } // calcular orden de los estados que induce un orden sobre las // transiciones para que las de tipo lambda funcionen correctamente: transition = new hmm_trainer_transition[num_transitions]; // lista para guardar, para cada estado, las transiciones // que salen de ese estado: hmm_aux_transition **salen_de = new hmm_aux_transition*[num_states]; // numlambdas cuenta num tr. lambda q llegan a cada estado int *numlambdas = new int[num_states]; // ranking cuenta el camino de lambdas más largo que llega a cada // estado: // ranking = new int[num_states]; // first_transition= new int[num_states+1]; for (int i=0;inext; aux->next = salen_de[aux->from]; salen_de[aux->from] = aux; if (aux->emission < 0) { // y si es de tipo lambda numlambdas[aux->to]++; } } // generamos una lista con los estados con 0 transiciones lambda en // su entrada: list_top_order *listop = 0; for (int i=0;inext; int st = a->state; delete a; // procesar todas las transiciones que salen de st while (salen_de[st] != 0) { int emis = salen_de[st]->emission; int dest = salen_de[st]->to; transition[itr].from = salen_de[st]->from; transition[itr].to = dest; transition[itr].output= salen_de[st]->output; transition[itr].cls_transition = salen_de[st]->id; trainer->set_cls_transition_emission(salen_de[st]->id,emis); trainer->set_cls_transition_prob(salen_de[st]->id,salen_de[st]->prob); itr++; if (emis < 0) { // si es transicion lambda: // if (ranking[dest] < ranking[st]+1) // actualizar ranking // ranking[dest] = ranking[st]+1; // estado destino numlambdas[dest]--; // meterlo en lista para orden topologico if (numlambdas[dest] == 0) // si hace falta listop = new list_top_order(dest,listop); } // eliminar la transicion de la lista: hmm_aux_transition* aux = salen_de[st]; salen_de[st] = salen_de[st]->next; delete aux; } } // while (listop != 0); delete[] salen_de; delete[] numlambdas; // comprobar que el grafo no tenia ciclos de tr. lambda itr deberia // valer num_transitions if (itr != num_transitions) { delete[] transition; transition=0; // delete[] ranking; ranking=0; //delete[] first_transition; first_transition=0; ERROR_PRINT2("prepare_model(): error, itr(%d) != num_transitions(%d)\n", itr, num_transitions); return false; } created = true; return true; } hmm_trainer_model::~hmm_trainer_model() { DecRef(trainer); if (transition != 0) { for (int i=0; iget_cls_transition_prob(i); } inline int hmm_trainer_model::transition_emission(int tr) { int i = transition[tr].cls_transition; return trainer->get_cls_transition_emission(i); } void hmm_trainer_model::print() const { printf("num_states = %d\nnum_transitions = %d\n", num_states,num_transitions); printf("initial_state = %d\nfinal_state = %d\n", initial_state,final_state); if (created) { printf("hmm_trainer_model closed\n"); printf("Transition vector:\n"); for (int i=0;i cls_tr %3d, " "from %3d to %3d output \"%s\"\n", i,clst, transition[i].from, transition[i].to, ((transition[i].output==0) ? "" : transition[i].output)); printf(" cls_tr %3d emission %d prob %f\n", clst, trainer->get_cls_transition_emission(clst), trainer->get_cls_transition_prob(clst).to_float()); } } else { printf("hmm_trainer_model to be closed\n"); printf("List of transitions before closing the model:\n"); for (const hmm_aux_transition *r = list_transitions; r != 0; r = r->next) printf("from %3d to %3d with emission %3d and" " id %3d, output=\"%s\"\n", r->from,r->to,r->emission,r->id, ((r->output==0) ? "" : r->output)); } } void hmm_trainer_model::print_dot() const { if (created) { printf("digraph automata {\n"); for (int i=0;i %3d [label=\"<%d> %d/%f/%s\"];\n", transition[i].from, transition[i].to, clst, trainer->get_cls_transition_emission(clst), trainer->get_cls_transition_prob(clst).to_float(), ((transition[i].output==0) ? "" : transition[i].output)); } printf("}\n"); } } // clase auxiliar para imprimir la salida struct list_output { char *output; list_output *next; }; log_float hmm_trainer_model::viterbi(const MatrixFloat *emission, bool emission_in_log_base, bool do_expectation, MatrixFloat *reest_emission, MatrixFloat *seq_reest_emission, MatrixFloat *state_probabilities, char **output_str, float count_value) { log_float logf_count_value = log_float::from_float(count_value); log_double logd_count_value = log_double::from_double((double)count_value); // int length_sequence = emission->getDimSize(0); int sz_emission_frame= emission->getDimSize(1); int sizepath = (length_sequence+1)*num_states; int *path = new int[sizepath]; for (int i=0; iapriori_cls_emission; float *femission; // una fila matriz emission int *fpath; // recorre fila sq matriz path int sq; // recorre secuencia int tr; // recorre transiciones int st; // recorre estados // inicializar probnow a las probabilidades etapa actual, pero lo // ponemos en la siguiente pq se intercambian los vectores: for (st=0; stbegin()); // bucle ppal: for (sq=0,fpath=path+num_states; sq probnxt log_float *swap = probnow; probnow = probnxt; probnxt = swap; // inicializar vectores probnxt for (st=0; st= 0) { // transicion no lambda nscr *= vemission[emis]; if (nscr > probnxt[dest]) { // maximizar prob probnxt[dest] = nscr; fpath[dest] = tr; } } else { // transicion lambda if (nscr > probnow[dest]) { // maximizar prob probnow[dest] = nscr; // restamos num_states pq es fila anterior fpath[dest-num_states] = tr; } } } // end for tr recorre transiciones } // end for sq recorre secuencia // transiciones lambda ultima iteracion: for (tr=0; tr probnxt[dest]) { // maximizar prob probnxt[dest] = nscr; // restamos num_states pq es fila anterior fpath[dest-num_states] = tr; } } } // end for tr recorre transiciones // para recuperar la cadena de salida: int outputsz = 0; // longitud de la salida int theoutputlistsize = 0; list_output *theoutputlist = 0; // devolver las probabilidades de cada estado al finalizar if (state_probabilities) { april_assert(state_probabilities->getNumDim() == 1 && state_probabilities->getDimSize(0) == num_states); MatrixFloat::iterator st_prob_it(state_probabilities->begin()); for (int i=0;izeros(); // recuperar prob final: //printf("recuperar prob final\n"); log_float output_prob = probnxt[final_state]; // recuperar el camino desde final_state usando la matriz path sq = length_sequence-1; fpath=path+length_sequence*num_states; st = final_state; tr = fpath[st]; while (tr >= 0) { if (do_expectation) { // acumular valores para algoritmo EM int clstr = transition[tr].cls_transition; trainer->acum_tran_prob(clstr, logf_count_value); } int emis = transition_emission(tr); if (emis >= 0) { // acumular para calcular prob. a priori de las emisiones if (do_expectation) trainer->acum_cls_emission[emis] += logd_count_value; // guardar la emision: if (seq_reest_emission) (*seq_reest_emission)(sq) = emis+1; if (reest_emission) (*reest_emission)(sq,emis) = 1.0f; } // salida: if (transition[tr].output != 0) { list_output *aux = new list_output; aux->output = transition[tr].output; aux->next = theoutputlist; theoutputlist = aux; theoutputlistsize++; outputsz += strlen(transition[tr].output); } // pasar al estado anterior: if (emis >= 0) { sq--; fpath-=num_states; } st = transition[tr].from; tr = fpath[st]; } // while (tr >= 0); // generar cadena de salida: if (theoutputlistsize > 0) outputsz += theoutputlistsize-1; outputsz++; // para el '\0' char *outputstr = new char[outputsz]; char *r = outputstr; while (theoutputlist) { list_output *aux = theoutputlist; theoutputlist = theoutputlist->next; strcpy(r,aux->output); r += strlen(aux->output); if (theoutputlist) { *r = ' '; r++; } delete aux; } *r = '\0'; *output_str = outputstr; // liberar recursos delete[] path; delete[] probnow; delete[] probnxt; delete[] vemission; // devolver maxprob return output_prob; } // end viterbi method void hmm_trainer_model::forward(MatrixFloat *emission, log_float *alpha) { // alpha es una matriz de tamanyo: length_sequence+1 filas por // num_states columnas creada en el metodo forward_backward donde // guardamos probabilidades denominadas usualmente "alpha" en la // literatura, se guardan en formato log_float. Asumimos que esta // matriz ha sido inicializada a valor log_float::zero() int length_sequence = emission->getDimSize(0); int sz_emission_frame= emission->getDimSize(1); log_float *vemission = new log_float[sz_emission_frame]; const log_float *apriori = trainer->apriori_cls_emission; float *femission; // recorre fila matriz emission int sq; // recorre secuencia int tr; // recorre transiciones // probnow recorre desde la fila 0 de la matriz alpha hasta la fila // length_sequence-1 que es la penúltima. // probnxt recorre desde la fila 1 (la segunda) de la matriz alpha // hasta la ultima fila que es length_sequence log_float *probnow = alpha; log_float *probnxt = 0; // fila siguiente: probnow + num_states; // alpha esta inicializada a log_float::zero(), falta este caso // inicial: probnow[initial_state] = log_float::one(); // bucle ppal for (sq=0, femission=emission->getRawDataAccess()->getPPALForReadAndWrite(); sq= 0) // transicion no lambda probnxt[dest] += nscr*vemission[emis]; else // transicion lambda probnow[dest] += nscr; } } // end for sq recorre secuencia // caso especial: tratar las transiciones lambda de la ultima // iteracion, ultima fila de la matriz (apuntada por probnxt) for (tr=0; trgetDimSize(0); int sz_emission_frame = input_emission->getDimSize(1); const log_float *apriori= trainer->apriori_cls_emission; // femission recorre filas de la matriz emission desde la ultima // hasta la primera: float *femission= input_emission->getRawDataAccess()->getPPALForReadAndWrite()+(length_sequence-1)*sz_emission_frame; float *desired_emission = output_emission->getRawDataAccess()->getPPALForReadAndWrite()+(length_sequence-1)*sz_emission_frame; // recorre la matriz alpha desde la PENULTIMA fila, que corresponde // a haber consumido todas las tramas menos una: log_float *f_alpha = alpha+(length_sequence-1)*num_states; int sq; // recorre secuencia int tr; // recorre transiciones int st; // recorre estados // a diferencia del metodo forward, probnow y probprv son dos // vectores que vamos intercambiando, se llama probprv porque vamos // hacia atrás: log_float *probnow = new log_float[num_states]; log_float *probprv = new log_float[num_states]; // para calcular la salida deseada, que luego se copiara a emission: log_float *desired = new log_float[sz_emission_frame]; // para pasar emission a base logaritmica y dividir por a priories: log_float *vemission= new log_float[sz_emission_frame]; // inicializar probprv (que luego sera probnow por el swap) // en Jelinek paso 2 pagina 32 dice inicializar todo a uno :| for (st=0; st probnow log_float *swap = probnow; probnow = probprv; probprv = swap; // inicializar vector probprv for (st=0; st=0; tr--) { int orig = transition[tr].to; // puesto deliberadamente al reves int dest = transition[tr].from; // puesto deliberadamente al reves int emis = transition_emission(tr); log_float nscr = probnow[orig] * transition_prob(tr); if (emis >= 0) // transicion no lambda probprv[dest] += nscr*vemission[emis]; else // transicion lambda probnow[dest] += nscr; } // end for tr recorre transiciones // ahora tenemos en provprv el de la iteracion siguiente a falta // de las transiciones lambda, y de regalo tenemos el de la actual // YA con sus transiciones lambda: // inicializar vector desired: for (int i=0; i= 0) { // no es transicion lambda pstar = f_alpha[orig] * transition_prob(tr) * probnow[dest] * vemission[emis]; desired[emis] += pstar; // salida deseada para entrenar posterioris trainer->acum_tran_prob(clstr, pstar); // prob. transicion } else { // transicion lambda utiliza alpha de la fila siguiente: pstar = f_alpha[num_states+orig] * transition_prob(tr) * probnow[dest]; trainer->acum_tran_prob(clstr, pstar); // prob. transicion } } // for q recorre transiciones else // solamente el calculo de la salida deseada for (tr=0; tr= 0) { // no es transicion lambda pstar = f_alpha[orig] * transition_prob(tr) * probnow[dest] * vemission[emis]; desired[emis] += pstar; // salida deseada para entrenar posterioris } } // for q recorre transiciones // ya podemos reescribir la fila con la salida deseada: log_float acum= desired[0]; for (int i=1; iacum_apriori_cls_emission(i,aux); desired_emission[i] = aux.to_float(); } // pasamos a la fila de emision anterior: femission -= sz_emission_frame; desired_emission -= sz_emission_frame; f_alpha -= num_states; } // end for sq que cuenta la secuencia if (do_expectation) { // caso especial que se hace aparte: calculamos beta en la columna // inicial del trellis, correspondiente a no haber consumido ninguna // trama, que se utiliza para estimar las probabilidades de // transitar en las transiciones lambda en el instante inicial: // recorrer transiciones AL REVES por lo del orden topologico para // tratar bien las transiciones lambda: for (tr=num_transitions-1; tr>=0; tr--) { int orig = transition[tr].to; // puesto deliberadamente al reves int dest = transition[tr].from; // puesto deliberadamente al reves int emis = transition_emission(tr); if (emis < 0) // transicion lambda probprv[dest] += probprv[orig] * transition_prob(tr); } // end for tr recorre transiciones // utilizar f_alpha y probprv para actualizar la información en la // matriz de emision utilizando P^*{t^i=t} (capitulo 2 Jelinek 1997) f_alpha += num_states; // deshacer for (tr=0; tracum_tran_prob(clstr, pstar); // prob. transicion } } // for q recorre transiciones } delete[] probnow; delete[] probprv; delete[] vemission; delete[] desired; } // end method void hmm_trainer_model::forward_backward(MatrixFloat *input_emission, MatrixFloat *output_emission, bool do_expectation) { int length_sequence = input_emission->getDimSize(0); // todo: comprobar que output_emission tiene las mismas dim. int alpha_size = (length_sequence+1)*num_states; log_float *alpha = new log_float[alpha_size]; for (int i=0; i0 para todos los estados, necesariamente el grafo es cclico y debemos reportar el error. Iteramos: - Sacar un estado cuya cuenta sea 0, le asignamos un valor en el orden topolgico. - Recorremos las transiciones que salen de ese estado y restamos uno a la cuenta de los estados destino. Si alguno de esos estados decrementa su cuenta a 0, lo metemos en la lista. Una vez ordenados los estados, ordenamos las transiciones: Recorremos los estados en el orden establecido. Para cada estado, metemos: - Primero las transiciones no lambda que LLEGAN a ese estado. ---------------------------------------------------------------------- Algoritmo para el constructor: - Recibimos bsicamente lo que recibe el constructor lua. - Debemos repartir las transiciones de la manera siguiente: * Transiciones con origen 0 deben ser lambda y sirven para acumular la probabilidad inicial. * Transiciones con destino -1 deben ser lambda y especifican la probabilidad de ser un estado final. * Las otras transiciones se guardan en una lista asociada al estado origen. Cada estado tiene 2 listas, una para las transiciones lambda y otra para el resto. - Deberamos comprobar que las transiciones tengan un estado origen del mismo tipo que el especificado en la clase de transicin, que la suma de probabilidades que salen de cada estado vale 1. - Por otra parte, en la construccin del hmm_trainer, no tiene por qu cumplirse que la suma de probabilidades que salen de cada estado sea 1, puesto que podran estar ligadas varias transiciones que salen de un mismo estado. Pero s que tendramos que comprobar que cada estado de un tipo usa todas las transiciones y el mismo nmero de veces >=1. - Hemos eliminado las transiciones con origen == 0 y las que tienen destino ==-1. El resto las hemos metido en sendas listas por cada estado. Le toca el turno al algoritmo que obtiene el orden topolgico y reordena las transiciones. That's all folks! ---------------------------------------------------------------------- april-ann-0.3.1/packages/hmm_trainer/lua_src/000077500000000000000000000000001234204160600211055ustar00rootroot00000000000000april-ann-0.3.1/packages/hmm_trainer/lua_src/hmm_trainer.lua000066400000000000000000000757471234204160600241410ustar00rootroot00000000000000-- modelo = {name="nombre", -- transitions={ -- {from="...", to="....", prob=... , id="....", emission="...",output="..."} -- ... -- } -- initial="...", -- final="..." -- } -- Namespace HMMTrainer -- Clase HMMTrainer.trainer -- metodos: -- constructor -> crea un trainer vacio -- model -> toma una descripcion de un modelo como la de la -- tabla de arriba y devuelve un objeto Lua de tipo -- HMMTrainer.model, que ademas incorpora al diccionario -- self.models -- -- add_to_dict -> para añadir un model al diccionario, estos modelos -- se utilizan para expandir otros modelos -- -- get_cls_transition_prob -> devuelve la probabilidad de transitar -- de una clase de transicion -- -- expand -> utilizado en model:generate_C_model() para expandir -- recursivamente un modelo -- -- Clase HMMTrainer.model -- metodos: -- generate_C_model -> crea un objeto C++ de tipo hmm_trainer_model -- con los datos contenidos en el modelo Lua, realizando -- expansión recursiva de las transiciones segun sea -- necesario -- Namespace utils -- funciones: -- generate_hmm3st_desc -> crea descripcion de modelo lineal de 3 estados -- str2model_desc -> crea una descripcion de modelo a partir de una palabra local trainer_methods, trainer_class_metatable = class("HMMTrainer.trainer") function trainer_class_metatable:__call() local o = { trainer = hmm_trainer(), -- Objeto trainer en C -- tabla cadena_id --> par (cls_state, cls_transition) indices -- en el vector del hmm_trainer C++ linked_ids = {}, -- tabla nombre_modelo --> modelo lua -- TODO: Cuando se meten cosas aqui? models = {} } return class_instance(o, self, true) end local model_methods = class("HMMTrainer.model") function trainer_methods:model(m) -- Creamos una tabla lua con las transiciones de m, -- sustituyendo los nombres de los estados en .from y .to -- por numeros -- Asignamos el numero 1 al inicial y el 2 al final local state_numbers = {} state_numbers[m.initial] = 1 state_numbers[m.final] = 2 if m.initial == m.final then error("El estado inicial y el final no pueden coincidir: ".. m.name) end local num = 3 local newtrans = {} for i, t in ipairs(m.transitions) do if not(state_numbers[t.from]) then state_numbers[t.from] = num num = num+1 end if not(state_numbers[t.to]) then state_numbers[t.to] = num num = num+1 end newtrans[i] = { from = state_numbers[t.from], to = state_numbers[t.to], emission = t.emission, lprob = t.lprob or math.log(t.prob), id = t.id, output = t.output, } end -- Creamos un modelo lua con las transiciones renumeradas local res = {} res = class_instance(res, HMMTrainer.model, false) res.name = m.name res.initial = state_numbers[m.initial] res.final = state_numbers[m.final] res.transitions = newtrans res.trainer = self res.num_states = num-1 return res end function model_methods:update_probs() for i,t in ipairs(self.transitions) do t.lprob = self.trainer:get_cls_transition_logprob(t.id) end end function HMMTrainer.model.from_table(t) return class_instance(t, HMMTrainer.model) end function model_methods:to_string() local str = {} table.insert(str, "{\n") table.insert(str, "\tname = '".. string.gsub(self.name,"'","\\'") .. "',") table.insert(str, "\tinitial = " .. self.initial .. ",") table.insert(str, "\tfinal = " .. self.final .. ",") table.insert(str, "\tnum_states = " .. self.num_states .. ",") table.insert(str, "\ttransitions = {") for i,t in ipairs(self.transitions) do table.insert(str,"\t\t{") table.insert(str, "\t\t\tfrom = " .. t.from ..",") table.insert(str, "\t\t\tto = " .. t.to ..",") table.insert(str, "\t\t\temission = " .. t.emission ..",") table.insert(str, "\t\t\tlprob = " .. t.lprob ..",") if t.id then table.insert(str, "\t\t\tid = '" .. string.gsub(t.id,"'","\\'") .."',") end if t.output then table.insert(str, "\t\t\toutput = '" .. string.gsub(t.output,"'","\\'").."'") end table.insert(str,"\t\t},") end table.insert(str, "\t}") table.insert(str, "}") return table.concat(str, "\n") end -- Ejemplo de un automata en SLF: -- # Define size of network: N=num nodes and L=num arcs -- N=6 L=7 -- # List nodes: I=node-number, W=word -- I=0 W=start -- I=1 W=end -- I=2 W=bit -- I=3 W=but -- I=4 W=!NULL -- I=5 W=!NULL -- # List arcs: J=arc-number, S=start-node, E=end-node -- # l=x is used to attach log transition probability -- J=0 S=0 E=4 l=-1.1 -- J=1 S=4 E=2 -- J=2 S=4 E=3 -- J=3 S=2 E=5 -- J=4 S=3 E=5 -- J=5 S=5 E=4 -- J=6 S=5 E=1 function model_methods:to_slf() local next_state = 1 local next_transition = 1 local str = {} local id2state = {} local state2id = {} for i,t in ipairs(self.transitions) do local from local to if state2id[t.from] then from = state2id[t.from] else from = next_state state2id[t.from] = next_state next_state = next_state + 1 end if state2id[t.to] then to = state2id[t.to] else to = next_state state2id[t.to] = next_state next_state = next_state + 1 end if t.emission == 0 then -- transicion LAMBDA table.insert(str, "J=" .. next_transition .. " S=" .. from .. " E=".. to .. " l=".. t.lprob) id2state[from] = t.from id2state[to] = t.to next_transition = next_transition+1 else table.insert(str, "J=" .. next_transition .. " S=" .. from .. " E=" .. next_state .. " l=" .. t.lprob) table.insert(str, "J=" .. next_transition+1 .. " S=" .. next_state .. " E=" .. to) id2state[from] = t.from id2state[next_state] = t.emission id2state[to] = t.to next_state = next_state+1 next_transition = next_transition+2 end end local first_state = state2id[self.initial] local last_state = state2id[self.final] local str2 = {} table.insert(str2, "VERSION=1.0") table.insert(str2, "N=".. (next_state+1) .. " L=".. (next_transition+1)) table.insert(str2,"I=0 W=!NULL") -- FIRST STATE DUMMY for i=1,next_state-1 do if type(id2state[i])=='string' then table.insert(str2,"I=".. i .." W=".. id2state[i]) else table.insert(str2,"I=".. i .." W=!NULL") end end table.insert(str2,"I=".. next_state .." W=!NULL") -- LAST STATE DUMMY table.insert(str2, "J=0 S=0 E=".. first_state .." l=0") -- TRANSITION TO FIRST STATE FROM DUMMY table.insert(str, "J=".. next_transition .. " S="..last_state .. " E=".. next_state .." l=0") -- TRANSITION TO LAST STATE FROM DUMMY return table.concat(str2, "\n").."\n"..table.concat(str, "\n").."\n" end function trainer_methods:add_to_dict(m, name) if name==nil then name = m.name end self.models[name] = m end function trainer_methods:get_cls_transition_prob(tr_id) if self.linked_ids[tr_id] then local index = self.linked_ids[tr_id][2] -- cls_t return self.trainer:get_transition_probability(index) else -- FIXME: ATENCION este if puede causar que algunos bugs no se -- puedan encontrar... por eso la razon del print de abajo ;) -- print ("EOEO, esto es para debug... estamos solicitando informacion".. -- " de una transicion que no existe en el modelo") return 0.0 end end function trainer_methods:get_cls_transition_logprob(tr_id) if self.linked_ids[tr_id] then local index = self.linked_ids[tr_id][2] -- cls_t return self.trainer:get_transition_logprobability(index) else -- FIXME: ATENCION este if puede causar que algunos bugs no se -- puedan encontrar... por eso la razon del print de abajo ;) -- print ("EOEO, esto es para debug... estamos solicitando informacion".. -- " de una transicion que no existe en el modelo") return 0.0 end end -- Expande recursivamente el modelo C referenciado por c_obj -- utilizando el modelo lua m function trainer_methods:expand(m, c_obj, upper_prob, ini, fin, cls_ini, cls_fin, upper_output) local indices={ [m.initial]=ini, [m.final]=fin, } local cls_states={ [ini]=cls_ini, [fin]=cls_fin } upper_output = upper_output or "" for _, t in ipairs(m.transitions) do local prb = t.lprob if t.from == m.initial then prb = prb + upper_prob end indices[t.from] = indices[t.from] or c_obj:new_state() indices[t.to] = indices[t.to] or c_obj:new_state() local orig = indices[t.from] local dest = indices[t.to] local cls_s = cls_states[orig] if t.id == "fixed" then if (cls_s ~= nil and cls_s ~= -1) then print("warning conflicto en transicion de tipo fixed modelo ".. m.name.." transicion "..orig.."->"..dest.."cls_s = "..cls_s) end cls_states[orig] = -1 cls_s = -1 end if type(t.emission) == 'string' then -- expandible if self.models[t.emission]==nil then error("Se esta intentando expandir un modelo inexistente: "..t.emission) end local ci,cf ci,cf = self:expand(self.models[t.emission], c_obj, prb, orig, dest, cls_states[orig], cls_states[dest], (t.output or "")..upper_output) cls_states[orig] = ci cls_states[dest] = cf else -- no es expandible local cls_t if t.id then -- transicion con nombre if t.id == "fixed" then cls_t = self.trainer:new_cls_transition(-1) elseif self.linked_ids[t.id] then -- nombre ya en la tabla if cls_s ~= nil and cls_s ~= self.linked_ids[t.id][1] then error ("Automata inconsistente") end cls_t = self.linked_ids[t.id][2] else -- con nombre pero no en la tabla (todavia) if not(cls_s) then cls_s = self.trainer:new_cls_state() cls_states[orig] = cls_s end cls_t = self.trainer:new_cls_transition(cls_s) self.linked_ids[t.id] = {cls_s, cls_t} end else -- transicion anonima y no fija if (not cls_s) then cls_s = self.trainer:new_cls_state() cls_states[orig] = cls_s end cls_t = self.trainer:new_cls_transition(cls_s) end local outstr = t.output if dest == fin then outstr = (outstr or "")..upper_output if outstr == "" then outstr = nil end end c_obj:new_transition(orig, dest, t.emission, cls_t, prb, outstr) end end return cls_states[ini],cls_states[fin] end function model_methods:generate_C_model() -- genera un objeto C de tipo hmm_trainer_model a -- partir de un objeto Lua tipo HMMTrainer.model -- expandiendo las transiciones sobre la marcha directamente en C local c_obj = hmm_trainer_model(self.trainer.trainer) local ini = c_obj:new_state() local fin = c_obj:new_state() c_obj:set_initial_state(ini) c_obj:set_final_state(fin) self.trainer:expand(self, c_obj, 0, ini, fin, nil, nil) if not c_obj:prepare_model() then error("El modelo no es correcto") end return c_obj end HMMTrainer.utils= HMMTrainer.utils or {} -- otro namespace function HMMTrainer.utils.name_mangling_unit(unit) local ret = unit if #unit == 1 then ret = "-".. unit .."+" else if string.find(unit, "-") == nil then ret = "-" .. ret end if string.find(unit, "+") == nil then ret = ret .. "+" end end return ret end function HMMTrainer.utils.generate_allograph_hmm_desc(name,allographs,emissions,ploops,pskips,output) if not pskips then pskips = {} end local transitions={} local result = { name = name } local num_emissions = #emissions -- transicion estado inicial table.insert(transitions, { from = name.."ini", to = name.."1", prob = 1, emission = 0 }) -- primera transicion, siempre es necesaria table.insert(transitions, { from = name.."1", to = name.."2", prob = 1, emission = emissions[1], id = name.."1_2" }) for j=2,num_emissions do local pskip = 0.0 -- skip de j a j+2 if pskips[j - 1] and j+1 <= num_emissions then if pskips[j-1] > 0.0 then -- TODO: Esto solo permite skips del primer al tercer estado -- del modelo table.insert(transitions, { from = name .. tostring(j), to = name .. tostring(j+2), prob = pskips[j-1], emission = 0, id = name .. tostring(j) .. "_" .. tostring(j+2) }) pskip = pskips[j-1] end end -- loop sobre j table.insert(transitions, { from = name .. tostring(j), to = name .. tostring(j), prob = ploops[j-1], emission = emissions[j-1], id = name .. tostring(j) .. "_" .. tostring(j) }) -- de j a j+1 table.insert(transitions, { from = name .. tostring(j), to = name .. tostring(j+1), prob = 1-ploops[j-1]-pskip, emission = emissions[j], id = name .. tostring(j) .. "_" .. tostring(j+1) }) end -- loop sobre num_emissions + 1 table.insert(transitions, { from = name .. tostring(num_emissions+1), to = name .. tostring(num_emissions+1), prob = ploops[num_emissions], emission = emissions[num_emissions], id = name .. tostring(num_emissions+1) .. "_" .. tostring(num_emissions+1)}) table.insert(transitions, { from = name .. tostring(num_emissions+1), to = name.."fin", prob = 1-ploops[num_emissions], emission = 0, id = name .. tostring(num_emissions+1) .. "_fin", output = output }) result.transitions = transitions result.initial = name.."ini" result.final = name.."fin" return result end function HMMTrainer.utils.generate_lr_hmm_desc(name,emissions,ploops,pskips,output) if not pskips then pskips = {} end local transitions={} local result = { name = name } local num_emissions = #emissions -- transicion estado inicial table.insert(transitions, { from = name.."ini", to = name.."1", prob = 1, emission = 0 }) -- primera transicion, siempre es necesaria table.insert(transitions, { from = name.."1", to = name.."2", prob = 1, emission = emissions[1], id = name.."1_2" }) for j=2,num_emissions do local pskip = 0.0 -- skip de j a j+2 if pskips[j - 1] and j+1 <= num_emissions then if pskips[j-1] > 0.0 then -- TODO: Esto solo permite skips del primer al tercer estado -- del modelo table.insert(transitions, { from = name .. tostring(j), to = name .. tostring(j+2), prob = pskips[j-1], emission = 0, id = name .. tostring(j) .. "_" .. tostring(j+2) }) pskip = pskips[j-1] end end -- loop sobre j table.insert(transitions, { from = name .. tostring(j), to = name .. tostring(j), prob = ploops[j-1], emission = emissions[j-1], id = name .. tostring(j) .. "_" .. tostring(j) }) -- de j a j+1 table.insert(transitions, { from = name .. tostring(j), to = name .. tostring(j+1), prob = 1-ploops[j-1]-pskip, emission = emissions[j], id = name .. tostring(j) .. "_" .. tostring(j+1) }) end -- loop sobre num_emissions + 1 table.insert(transitions, { from = name .. tostring(num_emissions+1), to = name .. tostring(num_emissions+1), prob = ploops[num_emissions], emission = emissions[num_emissions], id = name .. tostring(num_emissions+1) .. "_" .. tostring(num_emissions+1)}) table.insert(transitions, { from = name .. tostring(num_emissions+1), to = name.."fin", prob = 1-ploops[num_emissions], emission = 0, id = name .. tostring(num_emissions+1) .. "_fin", output = output }) result.transitions = transitions result.initial = name.."ini" result.final = name.."fin" return result end function HMMTrainer.utils.generate_hmm3st_desc(g, e, p1, p2, p3) print("HMMTrainer.utils.generate_hmm3st_desc IS DEPRECATED") return HMMTrainer.utils.generate_lr_hmm_desc(g,{e,e+1,e+2},{p1,p2,p3}) -- -- Crea una tabla con una descripcion de un modelo -- -- lineal con 4 estados para el grafema g -- local result={} -- result.name = g -- result.transitions = { -- {from=g.."ini", to=g.."1", prob=1, emission=0, }, --id=g.."ini1" -- {from=g.."1", to=g.."2", prob=1, emission=e[1], id=g.."12"}, -- {from=g.."2", to=g.."2", prob=p1, emission=e[1], id=g.."22"}, -- {from=g.."2", to=g.."3", prob=1-p1, emission=e[2], id=g.."23"}, -- {from=g.."3", to=g.."3", prob=p2, emission=e[2], id=g.."33"}, -- {from=g.."3", to=g.."4", prob=1-p2, emission=e[3], id=g.."34"}, -- {from=g.."4", to=g.."4", prob=p3, emission=e[3], id=g.."44"}, -- {from=g.."4", to=g.."fin", prob=1-p3, emission=0, id=g.."4fin"}, -- } -- result.initial=g.."ini" -- result.final=g.."fin" -- return result end function HMMTrainer.utils.str2model_desc(str,optional_symbols,output) optional_symbols = optional_symbols or {} -- optional_symbols es un vector del tipo -- {'a'=0.5,'b'=0.7,...} local stringlen = string.len(str) local result={ name =str, transitions={}, initial="0", final =tostring(stringlen), } for i = 1,stringlen do local chr = string.sub(str,i,i) if i==stringlen and output ~= nil then -- la ultima transición emite el output table.insert(result.transitions, {from=tostring(i-1), to=tostring(i), prob=1, emission=chr, id="fixed", output = output } ) else table.insert(result.transitions, {from=tostring(i-1), to=tostring(i), prob=1, emission=chr, id="fixed"} ) end if optional_symbols[chr] then if i==stringlen and output ~= nil then table.insert(result.transitions, {from=tostring(i-1), to=tostring(i), prob=optional_symbols[chr], emission=0, id="fixed", output = output} ) else table.insert(result.transitions, {from=tostring(i-1), to=tostring(i), prob=optional_symbols[chr], emission=0, id="fixed"} ) end end end return result end function HMMTrainer.utils.tbl2model_desc(tbl,optional_symbols,output) optional_symbols = optional_symbols or {} -- optional_symbols es un vector del tipo -- {'a'=0.5,'b'=0.7,...} local tablelen = #tbl local result={ name =table.concat(tbl), transitions={}, initial="0", final =tostring(tablelen), } for i = 1,tablelen do local chr = tbl[i] if i==tablelen and output ~= nil then -- la ultima transición emite el output table.insert(result.transitions, {from=tostring(i-1), to=tostring(i), prob=1, emission=chr, id="fixed", output = output } ) else if output == nil then table.insert(result.transitions, {from=tostring(i-1), to=tostring(i), prob=1, emission=chr, id="fixed"} ) else table.insert(result.transitions, {from=tostring(i-1), to=tostring(i), prob=1, emission=chr, id="fixed" } ) end end if optional_symbols[chr] then if i==stringlen and output ~= nil then table.insert(result.transitions, {from=tostring(i-1), to=tostring(i), prob=optional_symbols[chr], emission=0, id="fixed", output = output} ) else table.insert(result.transitions, {from=tostring(i-1), to=tostring(i), prob=optional_symbols[chr], emission=0, id="fixed" } ) end end end return result end -- Esta funcion recibe un diccionario abierto como fichero (tipo HTK), -- un tiedlist y una tabla de simbolos opcionales, y genera para cada -- palabra del diccionario una descripcion tipo HMMTrainer en forma de -- mini lexico en arbol con las pronunciaciones multiples de cada -- palabra. Esta tabla de descripciones debe despues ser utilizada -- para generar modelos C de un trainer. De este modo se permite poder -- coger una secuencia de palabras de la cual no se tiene la -- transcripcion fonetica y expandar las palabras con los mini lexicos -- en arbol generados aqui. function HMMTrainer.utils.dictionary2lextree(dict_file, tied, optional_symbols, trainer) local mangling = {} optional_symbols = optional_symbols or error ("Needs a table ['a'=0.5, 'b'=0.7, ...] ".. "with optional symbols (for silences") -- tabla donde dejar asociado a cada palabra el conjunto de -- transcripciones que se han encontrado local word2units = {} -- para cad linea del diccionario for line in dict_file:lines() do -- troceamos las linea y sacamos los datos. El formato es el -- siguiente: -- OUTSYM [WORD] PROB U0 U1 U2 U3 ... local l = string.tokenize(line) local outsym = l[1] local begin_units = 2 local prob = 1 local w = outsym if #l>1 and string.sub(l[2],1,1)=="[" and string.sub(l[2],#l[2],#l[2])=="]" then -- leemos la palabra w = string.sub(l[2], 2, #l[2]-1) begin_units = begin_units + 1 end if w ~= outsym then error ("Mandatary: word == outsym!!!") end local units = {} if tonumber(l[begin_units]) ~= nil then -- leemos la probabilidad prob = tonumber(l[begin_units]) begin_units = begin_units + 1 end -- leemos las unidades for i=begin_units,#l do table.insert(units, l[i]) end word2units[w] = word2units[w] or {} if #units > 0 then -- guardamos la secuencia en la tabla table.insert(word2units[w], units) end end -- En esta tabla se guarda para cada palabra una descripcion de un -- modelo HMMTrainer en forma de arbol con todas sus posibles -- pronunciaciones local word2lextree = {} for word,units in pairs(word2units) do -- Funcion auxiliar que comprueba si ya existe una transicion en el -- modelo desde from hasta to function exists_transition(model, from, to) for _, t in pairs(model.transitions) do if t.from==from and t.to==to and t.emission ~= 0 then return true end end return false end -- Funcion auxiliar que comprueba si ya existe una transicion -- lambda en el modelo desde from hasta to function exists_lambda(model, from, to) for _, t in pairs(model.transitions) do if t.from==from and t.to==to and t.emission==0 then return true end end return false end -- rellenamos la tabla result con el arbol de prefijos local result = {} result.name=word result.initial="__initial" result.final="__final" result.transitions={} -- para cada posible pronunciacion for _,units_seq in ipairs(units) do local cur_prefix="__initial" local ant_prefix local triphone_seq = tied:search_triphone_sequence(units_seq) for i=1,#units_seq do ant_prefix=cur_prefix cur_prefix=cur_prefix .. " " .. units_seq[i] -- prefijo de longitud i if not exists_transition(result, ant_prefix, cur_prefix) then table.insert(result.transitions, {from=ant_prefix, to=cur_prefix, emission=tied:get_model(triphone_seq[i]), prob=1, id="fixed" } ) end if (optional_symbols[units_seq[i]] and not exists_lambda(result, ant_prefix, cur_prefix, units_seq[i])) then table.insert(result.transitions, {from=ant_prefix, to=cur_prefix, emission=0, prob=optional_symbols[units_seq[i]], id="fixed" } ) end end if not exists_transition(result, cur_prefix, "__final") then table.insert(result.transitions, {from=cur_prefix, to="__final", emission=0, prob=1, id="fixed"} ) end end if #units > 0 then table.insert(word2lextree, result) if trainer then local aux = trainer:model(result) mangling[word] = "__"..word.."__" trainer:add_to_dict(aux, mangling[word]) end end end return word2lextree,mangling end function HMMTrainer.utils.strtable2tree(str_tbl, voc, exclude_words) if not exclude_words then exclude_words = {} end -- Funcion auxiliar que comprueba si ya existe una transicion en el -- modelo desde from hasta to function exists_transition(model, from, to) for _, t in pairs(model.transitions) do if t.from==from and t.to==to then return true end end return false end local invert_str_tbl = table.invert(str_tbl) local result={} result.name="prefixtree" -- FIXME: Cambiar? result.initial="__initial" result.final="__final" result.transitions={} for _, word in pairs(str_tbl) do if not exclude_words[word] then -- Recorremos los prefijos de word y vamos creando -- transiciones segun sea necesario i=1 local cur_prefix="__initial" local ant_prefix local cur_chr while i<=string.len(word) do ant_prefix=cur_prefix cur_prefix=string.sub(word, 1, i) -- prefijo de longitud i cur_chr=string.sub(word, i, i) if not exists_transition(result, ant_prefix, cur_prefix) then table.insert(result.transitions, {from=ant_prefix, to=cur_prefix, emission=cur_chr, prob=1, id="fixed"} ) end i=i+1 end -- La ultima transicion lleva como output la palabra if not exists_transition(result, cur_prefix, "__final") then local out = cur_prefix if voc then out = voc[invert_str_tbl[cur_prefix]] end table.insert(result.transitions, {from=cur_prefix, to="__final", emission=0, prob=1, id="fixed", output=out} ) end end end return result end function HMMTrainer.utils.dictionary2tree(dictionary, tied, exclude_words) error ("DEPRECATED") -- if not exclude_words then exclude_words = {} end -- -- Funcion auxiliar que comprueba si ya existe una transicion en el -- -- modelo desde from hasta to -- function exists_transition(model, from, to) -- for _, t in pairs(model.transitions) do -- if t.from==from and t.to==to then -- return true -- end -- end -- return false -- end -- local result={} -- result.name="prefixtree" -- FIXME: Cambiar? -- result.initial="__initial" -- result.final="__final" -- result.transitions={} -- for word, word_info in pairs(dictionary.lex) do -- if not exclude_words[word] then -- for _,word_phones in ipairs(word_info.units) do -- local word_tied_phones = word_phones -- if tied then -- word_tied_phones = tied:search_triphone_sequence(word_phones) -- end -- -- Recorremos los prefijos de word_tied_phones y vamos creando -- -- transiciones segun sea necesario -- i=1 -- local cur_prefix="__initial" -- local ant_prefix -- local cur_chr -- while i<=#word_tied_phones do -- ant_prefix=cur_prefix -- cur_prefix=table.concat(word_tied_phones, "", 1, i-1) -- cur_chr=HMMTrainer.utils.name_mangling_unit(word_tied_phones[i]) -- if not exists_transition(result, ant_prefix, cur_prefix) then -- table.insert(result.transitions, -- {from=ant_prefix, -- to=cur_prefix, -- emission=cur_chr, -- prob=1, id="fixed"} ) -- end -- i=i+1 -- end -- -- La ultima transicion lleva como output la palabra -- if not exists_transition(result, cur_prefix, "__final") then -- local out = word_info.outsym -- table.insert(result.transitions, -- {from=cur_prefix, -- to="__final", -- emission=0, -- prob=1, id="fixed", -- output=out} ) -- end -- end -- end -- end -- return result end -- DE MOMENTO ESTA FUNCION SOLO GENERA MODELOS LR CON SKIPS -- TODO: Hacer que pueda generar cualquier tipo de descripcion -- j j+1 j+2 j+3 j+4 -- 0.000000e+00 1.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 -- 0.000000e+00 7.768173e-01 2.231827e-01 0.000000e+00 0.000000e+00 -- 0.000000e+00 0.000000e+00 6.739026e-01 3.260975e-01 0.000000e+00 -- 0.000000e+00 0.000000e+00 0.000000e+00 4.722403e-01 5.277597e-01 -- 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 function HMMTrainer.utils.generate_hmm_desc_from_transP(name, emissions, transition_matrix, output) -- numero de estados en la matriz local numstates = transition_matrix:dim()[1] -- tabla de transiciones del modelo local transitions = { {from = "ini", to = name.."1", prob=1, emission=0} } -- índice de las transiciones de la tabla transitions que llegan al -- estado final local transitions_to_last_state = {} -- indica si el estado final de la matriz tiene transiciones de -- salida local exists_last_state_transitions = false -- Recorremos la matriz generando transiciones for state=1,numstates do for deststate=1,numstates do -- probabilidad en la matriz local prob = transition_matrix:get(state,deststate) if prob > 0.0 then -- el indice de emision siempre es el estado al que llegamos -- con la transicion, menos 1 local emissid = deststate - 1 table.insert(transitions, { from = name .. tostring(state), to = name .. tostring(deststate), prob = prob, emission = emissions[emissid] or 0, id = name .. tostring(state) .. "_" .. tostring(deststate) }) -- Guardamos las transiciones que llegan al último estado -- (emitirán el output) if deststate == numstates then table.insert(transitions_to_last_state, #transitions) end -- El último estado tiene transiciones? if state == numstates then exists_last_state_transitions = true end end end end -- indicamos que estados son iniciales y finales local ini = "ini" local fin = name..tostring(numstates) if exists_last_state_transitions then -- si el último estado tenía transiciones, creamos uno nuevo que -- no las tenga, que tendrá el output y transita con lambda table.insert(transitions, { from = name .. tostring(numstates), to = name .. tostring(numstates+1), prob = 1, emission = 0, output = output, }) -- el nuevo estado será el final fin = name..tostring(numstates+1) else -- si el último estado no tiene transiciones, entonces metemos en -- todas las transiciones que van a él el output indicado para -- este modelo for i,tr in ipairs(transitions_to_last_state) do transitions[tr].output = output end end -- devolvemos la tabla: return { name = name, initial = ini, final = fin, transitions = transitions, } end function HMMTrainer.utils.apply_gsf_to_desc(desc,factor) -- iterar sobre transitions de desc for i,t in ipairs(desc.transitions) do if t.lprob == nil then t.lprob = math.log(t.prob) t.prob = nil end t.lprob = t.lprob * factor -- elevar prob al factor end end function HMMTrainer.utils.print_dot(model) print("digraph automata {"); for i,v in ipairs(model.transitions) do printf("%s -> %s [label=\"" .. v.emission .. "/" .. (v.lprob or math.log(v.prob)) .. "/" .. (v.output or "").."\"];\n", string.gsub(v.from, "[<>]", ""), string.gsub(v.to, "[<>]", "")) end print("}") end april-ann-0.3.1/packages/hmm_trainer/lua_src/read_arpa.lua000066400000000000000000000206001234204160600235240ustar00rootroot00000000000000-- modelo = {name="nombre", -- transitions={ -- {from="...", to="....", prob=... , id="....", emission="...",output="..."} -- ... -- } -- initial="...", -- final="..." -- } HMMTrainer = HMMTrainer or {} -- namespace -- Recibe una tabla con estos argumentos: -- file -- filename, solo se usa si no hay file -- vocabulary es OPCIONAL -- bccue es OPCIONAL -- bccue es OPCIONAL function HMMTrainer.read_arpa(tbl) local line,which_n,how_many_ngrams,orig,last_orig,dest,word,dest_backoff local n = 1 local nstates, ntrans local ngram_count={} local next_state=0 local next_trans=0 local states={} -- string -> number local next_word=1 local vocabulary -- string -> number if tbl.vocabulary then vocabulary = tbl.vocabulary else vocabulary = lexClass() end local log10 = math.log(10) local logZero = -1e12 -- representación de log(-infinito) local logOne = 0 local function arpa_prob(x) if x <= -99 then return logZero end return x*log10 end local file = tbl.file or io.open(tbl.filename) local bccue = tbl.bccue or '' -- begin context cue local eccue = tbl.eccue or '' -- end context cue -- saltarselo todo hasta llegar a \data\ repeat line = file:read('*l') until line == '\\data\\' -- leer lineas tipo 'ngram numero=numero' repeat line = file:read('*l') _,_, which_n,how_many_ngrams = string.find(line,"^ngram (%d+)=(%d+)$") which_n = tonumber(which_n) how_many_ngrams = tonumber(how_many_ngrams) if which_n ~= nil then ngram_count[which_n]=how_many_ngrams if which_n>n then n = which_n end end until which_n == nil -- El numero de estados esta acotado superiormente por -- el numero de i-gramas + 1 con i=1..n-1 -- El numero de transiciones no-lambda esta acotado por -- el numero de i-gramas con i=1..n (algunos indican -- transiciones al estado final, que no codificamos expresamente) nstates=0 for i=1,n-1 do nstates = nstates + ngram_count[i] end ntrans = nstates + ngram_count[n] + 1 -- uno mas para poner el centinela en la tabla nstates = nstates + 2 local model = {} model.name = tbl.filename model.final = "final" model.transitions={} -- 0-grama states["_"] = next_state next_state = next_state + 1 last_orig=0 for i=1,n-1 do -- leemos hasta n-1 gramas -- buscamos la cadena abuscar = string.format("\\%d-grams:",i) while (line ~= abuscar) do line = file:read('*l') end --print(line) line = string.gsub(file:read('*l'),"_","\\_") while line ~= "" do w = string.tokenize(line) -- example: -0.544068 b a -0.3521825 ---------------------------------------------- prob = arpa_prob(tonumber(w[1])) -- i-grama w1 w2 ... wi-1 wi -- índices 2 3 ... i i+1 word = w[i+1] orig_name = '_'..table.concat(w,"_",2,i) orig = states[orig_name] if orig < last_orig then t = table.invert(states) print (last_orig, t[last_orig], "->", orig, t[orig]) error (".arpa file is not sorted") elseif orig > last_orig then -- si cambia orig, establecemos first_transition del nuevo origen --for rft = last_orig+1,orig do --model:set_state_first_transition(rft, next_trans) --end end last_orig=orig if word == eccue then -- final -- caso w1 ... w_{i-1} es final con prob prob --model:set_state_final_prob(orig, prob) table.insert(model.transitions, {from=orig_name, to="final", lprob=prob, emission=0}) if not vocabulary:getWordId(word) then if tbl.vocabulary then error("read_arpa found unknown word when using a fixed vocabulary: " .. word) end vocabulary:addWord{ id = next_word, word = word, outsym = word, } next_word = next_word + 1 end else if w[i+2] then bow = arpa_prob(tonumber(w[i+2])) else bow = logOne end -- creamos una transición para subir: -- de w1_...w_{i-1} a w1_...w_i -- esto implica asignar un numero nuevo al -- estado destino dest_name = '_'..table.concat(w,"_",2,i+1) states[dest_name] = next_state dest = next_state --model:set_state_name(dest,'_'..table.concat(w,"_",2,i+1)) next_state = next_state + 1 if not vocabulary:getWordId(word) then if tbl.vocabulary then error("read_arpa found unknown word when using a fixed vocabulary: " .. word) end vocabulary:addWord{ id = next_word, word = word, outsym = word, } next_word = next_word + 1 end if prob > logZero then -- este if hay que validarlo table.insert(model.transitions, { from=orig_name, to=dest_name, lprob=prob, emission=word}) --model:set_trans_word(next_trans,vocabulary[word]) --model:set_trans_prob(next_trans,prob) --model:set_trans_dest(next_trans,dest) next_trans = next_trans + 1 end -- transición de bajada: -- transicion nula w1_...w_{i} a w2_...w_{i} -- orig_backoff=dest dest_backoff_name = '_'..table.concat(w,"_",3,i+1) dest_backoff = states[dest_backoff_name] -- print("dest_backoff=", '_'..table.concat(w,"_",3,i+1), dest_backoff) if prob > logZero then -- este if hay que validarlo table.insert(model.transitions, {from=dest_name, to=dest_backoff_name, lprob=bow, emission=0}) end --model:set_state_bo_prob(dest, bow) --model:set_state_bo_dest_state(dest, dest_backoff) end ---------------------------------------------- line = string.gsub(file:read('*l'),"_","\\_") end end --leemos n gramas abuscar = string.format("\\%d-grams:",n) while (line ~= abuscar) do line = file:read('*l') end --print(line) line = string.gsub(file:read('*l'),"_","\\_") while line ~= "" do w = string.tokenize(line) ---------------------------------------------- prob = arpa_prob(tonumber(w[1])) -- n-grama w1 w2 ... wn-1 wn -- índices 2 3 ... n n+1 word = w[n+1] orig_name = '_'..table.concat(w,"_",2,n) orig = states[orig_name] if orig < last_orig then t = table.invert(states) print (last_orig, t[last_orig], "->", orig, t[orig]) error (".arpa file is not sorted") elseif orig > last_orig then -- si cambia orig, establecemos first_transition del nuevo origen --for rft = last_orig+1,orig do --model:set_state_first_transition(rft, next_trans) --end end last_orig=orig if word == eccue then -- final -- caso w1 ... w_{n-1} es final con prob prob --model:set_state_final_prob(orig, prob) if prob > logZero then -- este if hay que validarlo table.insert(model.transitions, {from=orig_name, to="final", lprob=prob, emission=0}) end if not vocabulary:getWordId(word) then if tbl.vocabulary then error("read_arpa found unknown word when using a fixed vocabulary: " .. word) end vocabulary:addWord{ id = next_word, word = word, outsym = word, } next_word = next_word + 1 end else -- creamos una transición de un n-grama a otro: -- de w1_...w_{n-1} a w2_...w_n dest_name = '_'..table.concat(w,"_",3,n+1) dest = states[dest_name] if not vocabulary:getWordId(word) then if tbl.vocabulary then error("read_arpa found unknown word when using a fixed vocabulary: " .. word) end vocabulary:addWord{ id = next_word, word = word, outsym = word, } next_word = next_word + 1 end if prob > logZero then -- este if hay que validarlo table.insert(model.transitions, {from=orig_name, to=dest_name, lprob=prob, emission=word}) --model:set_trans_word(next_trans,vocabulary[word]) --model:set_trans_prob(next_trans,prob) --model:set_trans_dest(next_trans,dest) next_trans = next_trans + 1 end end ---------------------------------------------- line = string.gsub(file:read('*l'),"_","\\_") end -- crear centinela en tabla transiciones --for rft = last_orig+1,next_state do --model:set_state_first_transition(rft, next_trans) --end -- establecer estado inicial: if n>1 then --model:set_initial_state(states["_"..bccue]) model.initial = "_"..bccue else --model:set_initial_state(states["_"]) model.initial = "_" end -- cerrar el fichero, si toca if tbl.file == nil then -- lo hemos abierto nosotros con io.open file:close() end -- establecer numero de estados y de transiciones --model:set_number_states_and_trans(next_state, next_trans) return model,vocabulary,states end -- descomentar para testear: -- f = io.open(arg[1],"r") -- m = ngram.read_arpa(f) -- m:print() april-ann-0.3.1/packages/hmm_trainer/package.lua000066400000000000000000000024321234204160600215540ustar00rootroot00000000000000 package{ name = "hmm_trainer", version = "1.0", depends = { "util", "matrix", "lexClass", "tied_model_manager" }, keywords = { "hmm_trainer" }, description = "left to right hidden markov model", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, --copy{ file= "c_src/dataset.cc", dest_dir = "include" }, provide_bind{ file = "binding/bind_hmm_trainer.lua.cc", dest_dir = "include" } }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", dest_dir = "build", debug="yes", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_hmm_trainer.lua.cc", dest_dir = "build" , debug="yes", } }, target{ name = "document", document_src{ file= {"c_src/*.h", "c_src/*.c", "c_src/*.cc"}, }, document_bind{ file= {"binding/*.lua.cc"} }, }, } april-ann-0.3.1/packages/hmm_trainer/test/000077500000000000000000000000001234204160600204345ustar00rootroot00000000000000april-ann-0.3.1/packages/hmm_trainer/test/ejemplo.lua000066400000000000000000000037431234204160600226010ustar00rootroot00000000000000function print_model(m) print("name=", m.name) print("transitions={") for _,t in pairs(m.transitions) do printf("{from=%s, to=%s, prob=%s, emission=%s, output=%s, id=%s}\n", t.from, t.to, t.prob, t.emission or "nil", t.output or "", t.id or "nil") end print"}" print("initial=", m.initial) print("final=", m.final) end --[[ x=HMMTrainer:new(100,100,500) m1={ name="modelo 1", transitions={ {from="ini", to="a", prob=1, emission=3}, {from="a", to="a", prob=0.5, emission=3, id="t1"}, {from="a", to="b", prob=0.5, emission=5, id="t2"}, {from="b", to="b", prob=0.3, emission=5}, {from="b", to="fin", prob=0.7} }, initial="ini", final="fin" } m2={ name="modelo 2", transitions={ {from="ini", to="a", prob=1, emission=7}, {from="a", to="a", prob=0.7, emission=7}, {from="a", to="b", prob=0.3, emission=3}, {from="b", to="b", prob=0.5, emission=3, id="t1"}, {from="b", to="fin", prob=0.5, id="t2"} }, initial="ini", final="fin", } --]] m3={ name="modelo 3", transitions={ {from="ini", to="x", prob=1, emission=1}, {from="x", to="x", prob=0.1, emission=1}, {from="x", to="y", prob=0.9, emission=2}, {from="y", to="y", prob=0.4, emission=2, id="t1"}, {from="y", to="z", prob=0.6, emission=3, id="t2"}, {from="z", to="z", prob=0.2, emission=3}, {from="z", to="fin", prob=0.8} }, initial="ini", final="fin" } m_ex=expand_model(m3,"x","y", m1) x:model(m_ex) --]] ---[[ tbl={} tbl.c=HMMTrainer.utils.generate_hmm3st_desc("c",1,0.5,0.5,0.5) tbl.a=HMMTrainer.utils.generate_hmm3st_desc("a",4,0.5,0.5,0.5) tbl.s=HMMTrainer.utils.generate_hmm3st_desc("s",7,0.5,0.5,0.5) tbl.o=HMMTrainer.utils.generate_hmm3st_desc("o",10,0.5,0.5,0.5) t=HMMTrainer.trainer() m1=t:model(HMMTrainer.utils.strtable2tree({"casa", "caso", "saca", "saco"})) mc=t:model(tbl.c) ma=t:model(tbl.a) ms=t:model(tbl.s) mo=t:model(tbl.o) t:add_to_dict(mc) t:add_to_dict(ma) t:add_to_dict(ms) t:add_to_dict(mo) printf("\n------------\n") m1c = m1:generate_C_model() m1c:print_dot() april-ann-0.3.1/packages/hmm_trainer/test/entrena.lua000066400000000000000000000263611234204160600226030ustar00rootroot00000000000000function generate_models_from_alphabet(alphabet) local result = {} local i=1 local chr while i<= string.len(alphabet) do chr = string.sub(alphabet,i,i) result[chr]=generate_model(chr, 3*(i-1)+1, 0.5, 0.5, 0.5) i=i+1 end return result end function generate_alphabet_from_wordlist(wordlist) local alphabet={} local i local chr local result="" for _, word in pairs(wordlist) do i=1 while i <= string.len(word) do chr=string.sub(word, i,i) alphabet[chr]=true i=i+1 end end for k,v in pairs(alphabet) do result=result..k end return result end function generate_models_from_wordlist(wordlist, alphabet_models) local result = {} for _,word in pairs(wordlist) do result[word]=str2model(word, alphabet_models) end return result end function normalizar_mdt(lista_matrices) local utable = {} for i,mat in pairs(lista_matrices) do table.insert(utable,dataset.matrix(mat)) end local dts = dataset.union(utable) local lctable = {} local m,dt m,dt = dts:mean_deviation() for i=1,dts:patternSize() do table.insert(lctable,{{0,-m[i]/dt[i]},{i,1/dt[i]}}) end local daux = dataset.linearcomb(dts,lctable) -- normalizamos for i=1,dts:numPatterns() do dts:putPattern(i,daux:getPattern(i)) end end function normalizar_minmax(lista_matrices) local utable = {} for i,mat in pairs(lista_matrices) do table.insert(utable,dataset.matrix(mat)) end local dts = dataset.union(utable) local lctable = {} local m,dt mi,ma = dts:min_max() for i=1,dts:patternSize() do local r = 1/(ma[i]-mi[i]) table.insert(lctable,{{0,-mi[i]},{i,r}}) end local daux = dataset.linearcomb(dts,lctable) -- normalizamos for i=1,dts:numPatterns() do dts:putPattern(i,daux:getPattern(i)) end end function load_list_images(filename) local name = {} local image = {} local file=io.open(filename) for l in file:lines() do local t = string.tokenize(l,"\t") if (t[1]~=nil and t[2]~=nil) then table.insert(image,t[1]) table.insert(name,t[2]) end end file:close() return name,image end -- recibe una tabla con los nombres de fichero de las imagenes y la -- cadena con los parametros, -- devuelve una tabla con los parametros function load_and_param_images(IMG_DIR, imagetable, params) local params_table = {} for i, imgname in ipairs(imagetable) do printf("loading %s ...\n", IMG_DIR.."/"..imgname) local img = Image.load_pgm_gz(IMG_DIR.."/"..imgname) table.insert(params_table, param.extract(img, params)) -- = param_moises(img_s) end normalizar_mdt(params_table) --normalizar_minmax(params_table) return params_table end function param_m2d(mat,ctxtizq,ctxtder) local conf = { patternSize = {ctxtizq+1+ctxtder,mat:dim()[2]}, offset = {-ctxtizq,0}, numSteps = {mat:dim()[1],1}, stepSize = {1,1}, -- second is don't care } --print("mat es",mat,table.concat(mat:dim(),"x")) return dataset.matrix(mat,conf) end -- recibe dos tablas, la primera con el nombre y la segunda con la -- matriz de parametros de la imagen correspondiente en el mismo -- indice function images_each_word(name_t, param_t,ctxtizq,ctxtder) local iew = {} for i, name in ipairs(name_t) do if iew[name] == nil then iew[name] = {} end table.insert(iew[name], param_m2d(param_t[i],ctxtizq,ctxtder)) end return iew end -- Devuelve una tabla con la secuencia de emisiones -- de una palabra function word_emissions(word, alphabet) local result={} local chr local emission local i=1 while i <= string.len(word) do chr=string.sub(word,i,i) emission = 3*(string.find(alphabet, chr, 1, true) - 1)+1 result[3*(i-1)+1] = emission result[3*(i-1)+2] = emission+1 result[3*(i-1)+3] = emission+2 i = i+1 end return result end ---------------------------------------------------------------------- -- programa ppal ---------------------------------------------------------------------- PARAMETROS = "Tsiepdqa" filename_trn = "../entrenamiento/lista.txt" filename_val = "../validacion/lista.txt" filename_tst = "../test/lista.txt" dir_trn = "../entrenamiento" dir_val = "../validacion" dir_tst = "../test" -- Cargamos la lista de imagenes name_tbl_trn,imagename_tbl_trn = load_list_images(filename_trn) name_tbl_val,imagename_tbl_val = load_list_images(filename_val) name_tbl_tst,imagename_tbl_tst = load_list_images(filename_tst) -- Parametrizamos las imagenes params_tbl_trn = load_and_param_images(dir_trn,imagename_tbl_trn, PARAMETROS) params_tbl_val = load_and_param_images(dir_val,imagename_tbl_val, PARAMETROS) params_tbl_tst = load_and_param_images(dir_tst,imagename_tbl_tst, PARAMETROS) inv_name_tbl = {} for key,tbl in ipairs{name_tbl_trn,name_tbl_val,name_tbl_tst} do for i,j in ipairs(tbl) do inv_name_tbl[j] = true end end name_tbl = {} for nam,v in pairs(inv_name_tbl) do table.insert(name_tbl,nam) end table.sort(name_tbl) printf("lista nombres: %s\n",table.concat(name_tbl,";")) -- En caso de querer fijar un alfabeto,modificar aqui alphabet=generate_alphabet_from_wordlist(name_tbl) -- Generamos los modelos para cada letra y para cada palabra, model_tbl=generate_models_from_alphabet(alphabet) temp_mtbl=generate_models_from_wordlist(name_tbl, model_tbl) for k,v in pairs(temp_mtbl) do -- Evitamos reemplazar los modelos de las letras individuales -- porque valen igual y tienen menos estados "dummy" if not model_tbl[k] then model_tbl[k]=v end end -- Generamos el modelo en arbol tree = strtable2tree(name_tbl) tree = expand_model(tree, model_tbl) function print_model(m) print("name=", m.name) print("transitions={") for _,t in pairs(m.transitions) do printf("{from=%s, to=%s, prob=%s, emission=%s, output=%s, id=%s}\n", t.from, t.to, t.prob, t.emission or "nil", t.output or "", t.id or "nil") end print"}" print("initial=", m.initial) print("final=", m.final) end print_model(tree) model_tbl["__tree"]=tree -- ahora vamos a entrenar, para ello necesitamos una red neuronal con -- tantas entradas como: num_parametros * (ctxt_izq+1+ctxt_der) num_parametros = string.len(PARAMETROS) ctxt_izq = 4 ctxt_der = 4 iew_trn = images_each_word(name_tbl_trn,params_tbl_trn,ctxt_izq,ctxt_der) iew_val = images_each_word(name_tbl_val,params_tbl_val,ctxt_izq,ctxt_der) iew_tst = images_each_word(name_tbl_tst,params_tbl_tst,ctxt_izq,ctxt_der) -- iew es una tabla que a cada palabra del lexico le asocia una lista -- de imagenes ya parametrizadas en forma de datasets -- numero de salidas de la red neuronal: num_salidas = 3*string.len(alphabet) -- dataset auxiliar: casiuno = 0.9 casicero = (1-casiuno)/(num_salidas-1) ds_ident = dataset.identity(num_salidas,casicero,casiuno) ma_alignments = {} -- matrices ds_alignments = {} -- matrices for word,dstable in pairs(iew_trn) do -- ahora generamos una tabla similar a iew, reemplazamos cada -- dataset por una matriz de dim 1 y de talla el numPatterns, -- inicializamos la matriz, la metemos en un dataset.index ma_alignments[word] = {} ds_alignments[word] = {} for i,ds in ipairs(dstable) do local seq_emission = word_emissions(word, alphabet) local a = hmm_trainer.initial_emission_alignment(seq_emission, ds:numPatterns()) local b = dataset.indexed(dataset.matrix(a), {ds_ident}):toMatrix() table.insert(ma_alignments[word], b) table.insert(ds_alignments[word], dataset.matrix(b) ) end end -- creamos la red neuronal... semilla = 1234 num_entradas = num_parametros*(1+ctxt_izq+ctxt_der) num_ocultas1 = 100 num_ocultas2 = 100 aleat = random(semilla) lared = Mlp(string.format("%d inputs %d logistic %d logistic %d softmax", num_entradas, num_ocultas1, num_ocultas2, num_salidas)) lared:generate(aleat, -0.7, 0.7) -- creamos el HMMTrainer y los modelos trainer, models = create_hmm_trainer_from_models_list(model_tbl, num_salidas) -- recopilamos datos para entrenar: todas_entradas = {} todas_salidas = {} for word,dstable in pairs(iew_trn) do local t = ds_alignments[word] for i,ds in ipairs(dstable) do table.insert(todas_entradas,ds) table.insert(todas_salidas,t[i]) end end train_input = dataset.union(todas_entradas) train_output = dataset.union(todas_salidas) datosentrenar = { learning_rate = 0.05, momentum = 0.05, weight_decay = 1e-7, input_dataset = train_input, output_dataset = train_output, shuffle = aleat } printf([[ Entrenamos una red neuronal con %d patrones de talla %d y %d valores de salida ]], train_input:numPatterns(), train_input:patternSize(), train_output:patternSize()) veces_train = 10 veces_em = 500 trainer.trainer:set_a_priori_emissions(train_output:mean()) for iterem = 1,veces_em do printf("------------------------------\nIteracion %d de EM\n", iterem) -- entrenamos la red neuronal for epoch = 1,veces_train do errortrain = lared:train(datosentrenar) printf("em %4d epoch %4d mse_train %.7f\n", iterem,epoch,errortrain) end iews = { entrenamiento= iew_trn, validacion = iew_val, test = iew_tst, } for partitionname,iew in pairs(iews) do aciertos = 0 totales = 0 mconf = {} for word,dstable in pairs(iew) do themodel = models[word] collectgarbage() -- para evitar crecimiento excesivo de memoria for otherkey,dsparam in ipairs(dstable) do -- reentrenar la cadena mat: -- primero, generar la matriz con las emisiones: local matemission = matrix(dsparam:numPatterns(),num_salidas) -- utilizarla con la red neuronal lared:use_dataset{ input_dataset = dsparam, output_dataset = dataset.matrix(matemission) } prob, rword = models["__tree"]:viterbi{ input_emission = matemission, do_expectation = false, } mconf[word] = mconf[word] or {} mconf[word][rword] = (mconf[word][rword] or 0)+1 --printf("confmat%3d%s: %-10s -> %-10s\n",iterem,partitionname,word,rword) totales = totales+1 if (word == rword) then aciertos = aciertos+1 end end end -- recorre iew for a,b in pairs(mconf) do for c,d in pairs(b) do printf("conf: %3d %-10s %-10s (%3d)-> %-10s\n",iterem,partitionname,a,d,c) end end printf("Porcentaje de aciertos iter %d en %s: %.2f%%\n", iterem,partitionname,100*aciertos/totales) -- printf("matriz confusión:\n%14s","") -- for a,b in ipairs(name_tbl) do -- printf("%10s ",b); -- end -- printf("\n") -- local empt = {} -- for a,b in ipairs(name_tbl) do -- printf("%14s",b) -- for c,d in ipairs(name_tbl) do -- e = mconf[b] or empt -- printf("%14d ",(e[d] or 0)) -- end -- printf("\n") -- end end -- recorre iews -- EXPECTATION trainer.trainer:begin_expectation() for word,dstable in pairs(iew_trn) do themodel = models[word] for i,mat in ipairs(ma_alignments[word]) do -- reentrenar la cadena mat: -- primero, generar la matriz con las emisiones: local dsparam = dstable[i] -- utilizarla con la red neuronal lared:use_dataset{ input_dataset = dsparam, output_dataset = ds_alignments[word][i] } themodel:viterbi{ input_emission = mat, do_expectation = true, output_emission= mat } end end trainer.trainer:end_expectation() filenet = string.format("redes/hmm%d.net",iterem) print("salvando "..filenet) lared:save(filenet,"ascii") end april-ann-0.3.1/packages/hmm_trainer/test/mini.arpa000066400000000000000000000006631234204160600222420ustar00rootroot00000000000000 \data\ ngram 1=5 ngram 2=11 ngram 3=2 \1-grams: -0.6766936 -99 -0.1983676 -0.4336556 wa 0.07463366 -0.5006024 wb 7.078244 -0.9777236 wc -0.1014576 \2-grams: -0.2218488 wa -0.1760913 -0.69897 wb -0.60206 wa -0.90309 wa wa -0.30103 wa wb -0.845098 wb -0.544068 wb wa -0.3521825 -0.845098 wb wb -0.544068 wb wc -0.4771213 wc -0.4771213 wc wa \3-grams: -0.1760913 wa wb -0.1760913 wb wa \end\ april-ann-0.3.1/packages/hmm_trainer/test/segmentacion-letras.lua000066400000000000000000000025411234204160600251050ustar00rootroot00000000000000function generate_segmentation_image(imgfile, emission_sequence) -- Genera una imagen con la palabra en text_image con sus letras -- separadas segun la secuencia de emisiones para el alfabeto dado. local text_image=Image.load_pgm_gz(imgfile) local result=text_image:clone() local e = dataset.matrix(emission_sequence) local width, height = text_image:geometry() -- width no se usa local cur_emission local prev_emission local ncambios=0 local factor=1 for col, pat in e:patterns() do cur_emission = pat[1] -- si la letra actual es distinta a la anterior, pintamos una -- franja en negativo if prev_emission then if cur_emission ~= prev_emission then ncambios=ncambios+1 if ncambios==3 then if factor==1 then factor = 0.9 else factor = 1 end ncambios=0 end end end for i=0,height-1 do color = 1-result:getpixel(col-1,i) if color < 0 then color = 0 end if color > 1 then color = 1 end result:putpixel(col-1, i, 1-factor*color) end prev_emission = cur_emission end return result end ---- Programa principal IMG_DIR="../test" tabla=dofile(arg[1]) -- Toma como parametro un fichero alignment*.lua DEST_DIR=arg[2] suffix=arg[3] for _, t in ipairs(tabla) do img = generate_segmentation_image(IMG_DIR.."/"..t[2], t[3]) Image.save(img, DEST_DIR.."/"..t[2].."_"..suffix..".pgm") end april-ann-0.3.1/packages/hmm_trainer/test/slf2hmm_trainer.py000077500000000000000000000033311234204160600241050ustar00rootroot00000000000000#!/usr/bin/python import re import sys if sys.argv[2]=="p": probs=True else: probs=False f=file(sys.argv[1], 'r') lines = f.readlines() sizespec = re.compile('N=([0-9]+)\s+L=([0-9]+)') node = re.compile('I=([0-9]+)\s+W=(\S*)') if probs: arc = re.compile('J=([0-9]+)\s+S=([0-9]+)\s+E=([0-9]+)\s+l=(\S+)') else: arc = re.compile('J=([0-9]+)\s+S=([0-9]+)\s+E=([0-9]+)') # find sizespec i=0 while True: m = sizespec.match(lines[i]) i+=1 if m: break num_states = int(m.group(1)) num_transitions = int(m.group(2)) #print num_states, num_transitions state_words={} # read states for l in lines[i:i+num_states]: id, word = node.match(l).groups() state_words[id] = word #print "node:", id, word i += num_states #read transitions transitions=[] for l in lines[i:i+num_transitions]: if probs: id, start, end, lprob = arc.match(l).groups() transitions.append((id, start, end, state_words[end], lprob)) else: id, start, end = arc.match(l).groups() transitions.append((id, start, end, state_words[end])) #print "arc:", id, start, end #FIXME: Find initial and final states by looking for source and sink states #print transitions in april HMM desc format print "return {" print '\tname = "%s",'%(sys.argv[1]) print "\ttransitions = {" for t in transitions: if probs: if t[3]=='!NULL': print '\t\t{from="%s", to="%s", emission=0, lprob=%s},'%(t[1], t[2], t[4]) else: print '\t\t{from="%s", to="%s", emission="%s", lprob=%s},'%(t[1], t[2], t[3], t[4]) else: if t[3]=='!NULL': print '\t\t{from="%s", to="%s", emission=0, lprob=0},'%(t[1], t[2]) else: print '\t\t{from="%s", to="%s", emission="%s", lprob=0},'%(t[1], t[2], t[3]) print "\t}," print '\tinitial="0",' print '\tfinal="1",' print"}" april-ann-0.3.1/packages/hmm_trainer/test/test-dot.lua000066400000000000000000000007561234204160600227120ustar00rootroot00000000000000function print_model(m) print("name=", m.name) print("transitions={") for _,t in pairs(m.transitions) do printf("{from=%s, to=%s, prob=%s, emission=%s, output=%s, id=%s}\n", t.from, t.to, t.prob, t.emission or "nil", t.output or "", t.id or "nil") end print"}" print("initial=", m.initial) print("final=", m.final) end ---[[ m1=strtable2tree({"casa", "caso", "saca", "saco","sacar"}) --]] cadena=model2dot(m1) print(cadena) f=io.open("test.dot","w") f:write(cadena) f:close() april-ann-0.3.1/packages/hmm_trainer/test/test_arpa.lua000066400000000000000000000033621234204160600231250ustar00rootroot00000000000000trainer = HMMTrainer.trainer() desc_ngrama = trainer:model(HMMTrainer.read_arpa({ filename="mini.arpa", vocabulary=lexClass({"","","wa","wb","wc"}), phone_vocabulary={"","","wa", "wb", "wc"}, })) desc_a = trainer:model(HMMTrainer.utils.str2model_desc("wa", {}, "a")) desc_b = trainer:model(HMMTrainer.utils.str2model_desc("wb", {}, "b")) desc_c = trainer:model(HMMTrainer.utils.str2model_desc("wc", {}, "c")) phone_a = trainer:model(HMMTrainer.utils.generate_lr_hmm_desc("a", {1,2}, {0.5,0.5}, {0.0,0.0})) phone_b = trainer:model(HMMTrainer.utils.generate_lr_hmm_desc("b", {3,4}, {0.5,0.5}, {0.0,0.0})) phone_c = trainer:model(HMMTrainer.utils.generate_lr_hmm_desc("c", {5,6}, {0.5,0.5}, {0.0,0.0})) phone_w = trainer:model({ name = "w", transitions={{from="ini", to="fin", prob=1, emission=0}}, initial="ini", final="fin" }) phone_ini = trainer:model({ name = "", transitions={{from="ini", to="fin", prob=1, emission=0}}, initial="ini", final="fin" }) phone_fin = trainer:model({ name = "", transitions={{from="ini", to="fin", prob=1, emission=0}}, initial="ini", final="fin" }) trainer:add_to_dict(desc_ngrama) trainer:add_to_dict(desc_a) trainer:add_to_dict(desc_b) trainer:add_to_dict(desc_c) trainer:add_to_dict(phone_a) trainer:add_to_dict(phone_b) trainer:add_to_dict(phone_c) trainer:add_to_dict(phone_w) trainer:add_to_dict(phone_ini) trainer:add_to_dict(phone_fin) m = trainer.models["mini.arpa"]:generate_C_model() m:print_dot() april-ann-0.3.1/packages/hmm_trainer/test/test_hmm-output.log000066400000000000000000000022541234204160600243200ustar00rootroot000000000000001 -> 0.5,0.20000000298023,0.10000000149012,0.30000001192093 2 -> 0.40000000596046,0.30000001192093,0.89999997615814,0.60000002384186 3 -> 0.30000001192093,0.10000000149012,0.20000000298023,0.69999998807907 4 -> 0.20000000298023,0.40000000596046,0.60000002384186,0.10000000149012 5 -> 0.5,0.30000001192093,0.20000000298023,0.5 6 -> 0.20000000298023,0.10000000149012,0.10000000149012,0.40000000596046 el clon 1 -> 0.5,0.20000000298023,0.10000000149012,0.30000001192093 2 -> 0.40000000596046,0.30000001192093,0.89999997615814,0.60000002384186 3 -> 0.30000001192093,0.10000000149012,0.20000000298023,0.69999998807907 4 -> 0.20000000298023,0.40000000596046,0.60000002384186,0.10000000149012 5 -> 0.5,0.30000001192093,0.20000000298023,0.5 6 -> 0.20000000298023,0.10000000149012,0.10000000149012,0.40000000596046 ------------------------------------ begin expectation probamos fb: viterbi fin llamada viterbi mprob= -7.982993,str: 'de1a2 de2a4 de4a4 de4a2 de2a4 de4a4 de4a2 de2a3' end expectation las emisiones tras aplicar viterbi: 1 -> 1,0,0,0 (1) 2 -> 0,0,1,0 (3) 3 -> 0,0,0,1 (4) 4 -> 0,0,1,0 (3) 5 -> 0,0,0,1 (4) 6 -> 0,1,0,0 (2) 0.16666665673256,0.26506406068802,0.28042408823967,0.28784519433975 april-ann-0.3.1/packages/hmm_trainer/test/test_hmm.lua000066400000000000000000000042361234204160600227640ustar00rootroot00000000000000 -- print"alineamiento inicial" -- ---------------------------------------------------------------------- -- a = hmm_trainer.initial_emission_alignment({1,2,3,4},10) -- ---------------------------------------------------------------------- -- for i,j in dataset.matrix(a):patterns() do -- printf("%2d -> %s\n",i,string.join(j,",")) -- end -- os.exit(0) m = matrix.fromString[[ * 4 ascii 0.5 0.2 0.1 0.3 0.4 0.3 0.9 0.6 0.3 0.1 0.2 0.7 0.2 0.4 0.6 0.1 0.5 0.3 0.2 0.5 0.2 0.1 0.1 0.4 ]] m2 = m:clone() mseq = matrix(m:dim()[1]) for i,j in dataset.matrix(m):patterns() do printf("%d -> %s\n",i,string.join(j,",")) end print"el clon" for i,j in dataset.matrix(m2):patterns() do printf("%d -> %s\n",i,string.join(j,",")) end print"------------------------------------" ------------------------------------------- --hmm_trainer.to_log(m) ------------------------------------------- -- for i,j in dataset.matrix(m):patterns() do -- printf("%d -> %s\n",i,string.join(j,",")) -- end t = HMMTrainer.trainer() -- :new{num_emissions=4, num_states=4, num_transitions=6} m1 = t:model{ name="test model", transitions={ {from="1", to="2", prob=1, emission=1, output="de1a2"}, {from="2", to="2", prob=0.3, emission=2, output="de2a2"}, {from="2", to="3", prob=0.3, emission=2, output="de2a3"}, {from="2", to="4", prob=0.4, emission=3, output="de2a4"}, {from="4", to="2", prob=0.5, emission=0, output="de4a2"}, {from="4", to="4", prob=0.5, emission=4, output="de4a4"} }, initial="1", final="3" } print"begin expectation" t.trainer:begin_expectation() m1_C = m1:generate_C_model() print"probamos fb:" m1_C:forward_backward{ input_emission=m } print"viterbi" mprob, str = m1_C:viterbi{ input_emission = m, do_expectation = true, output_emission = m, output_emission_seq = mseq, } print"fin llamada viterbi" printf("mprob= %f,str: '%s'\n",mprob,str); print"end expectation" t.trainer:end_expectation() mseqds = dataset.matrix(mseq) print"las emisiones tras aplicar viterbi:" for i,j in dataset.matrix(m):patterns() do printf("%d -> %s (%d)\n",i,string.join(j,","),mseqds:getPattern(i)[1]) end kk = t.trainer:get_a_priori_emissions() print(table.concat(kk,",")) april-ann-0.3.1/packages/hmm_trainer/test/test_tree-output.log000066400000000000000000000022521234204160600244740ustar00rootroot00000000000000digraph automata { 0 [label="0"]; 1 [label="1"]; 2 [label="2"]; 3 [label="3"]; 4 [label="4"]; 5 [label="5"]; 6 [label="6"]; 7 [label="7"]; 8 [label="8"]; 9 [label="9"]; 10 [label="10"]; 11 [label="11"]; 12 [label="12"]; 13 [label="13"]; 14 [label="14"]; 15 [label="15"]; 16 [label="16"]; 16 -> 14 [label="<17> -1/1.000000/"]; 14 -> 1 [label="<18> -1/1.000000/caso"]; 13 -> 11 [label="<7> -1/1.000000/"]; 11 -> 1 [label="<13> -1/1.000000/casa"]; 10 -> 8 [label="<11> -1/1.000000/"]; 8 -> 12 [label="<12> -1/1.000000/"]; 8 -> 15 [label="<14> -1/1.000000/"]; 15 -> 16 [label="<15> 3/0.500000/"]; 15 -> 15 [label="<16> 3/0.500000/"]; 12 -> 13 [label="<5> 1/0.500000/"]; 12 -> 12 [label="<6> 1/0.500000/"]; 7 -> 5 [label="<7> -1/1.000000/"]; 5 -> 9 [label="<8> -1/1.000000/"]; 9 -> 10 [label="<9> 2/0.500000/"]; 9 -> 9 [label="<10> 2/0.500000/"]; 4 -> 2 [label="<3> -1/1.000000/"]; 2 -> 6 [label="<4> -1/1.000000/"]; 6 -> 7 [label="<5> 1/0.500000/"]; 6 -> 6 [label="<6> 1/0.500000/"]; 0 -> 3 [label="<0> -1/1.000000/"]; 3 -> 4 [label="<1> 0/0.500000/"]; 3 -> 3 [label="<2> 0/0.500000/"]; } april-ann-0.3.1/packages/hmm_trainer/test/test_tree.lua000066400000000000000000000012471234204160600231410ustar00rootroot00000000000000trainer = HMMTrainer.trainer() for i,letra in ipairs{"c","a","s","o"} do lettermodel = trainer:model{ name = letra, initial = "ini", final = "fin", transitions = { {from="ini", to="1", emission=0, prob=1}, {from="1", to="2", emission=i, id=letra.."12", prob=0.5}, {from="1", to="1", emission=i, id=letra.."11", prob=0.5}, {from="2", to="fin", emission=0, id=letra.."2f", prob=1}, } } trainer:add_to_dict(lettermodel) end vocabulario = { "casa", "caso", } arbol = HMMTrainer.utils.strtable2tree(vocabulario) modelarbol = trainer:model(arbol) modelarbol_c = modelarbol:generate_C_model() modelarbol_c:print_dot() april-ann-0.3.1/packages/hmm_trainer/test/ver_error.lua000066400000000000000000000243071234204160600231520ustar00rootroot00000000000000function generate_models_from_alphabet(alphabet) local result = {} local i=1 local chr while i<= string.len(alphabet) do chr = string.sub(alphabet,i,i) result[chr]=generate_model(chr, 3*(i-1)+1, 0.5, 0.5, 0.5) i=i+1 end return result end function generate_alphabet_from_wordlist(wordlist) local alphabet={} local i local chr local result="" for _, word in pairs(wordlist) do i=1 while i <= string.len(word) do chr=string.sub(word, i,i) alphabet[chr]=true i=i+1 end end for k,v in pairs(alphabet) do result=result..k end return result end function generate_models_from_wordlist(wordlist, alphabet_models) local result = {} for _,word in pairs(wordlist) do result[word]=str2model(word, alphabet_models) end return result end function normalizar_mdt(lista_matrices) local utable = {} for i,mat in pairs(lista_matrices) do table.insert(utable,dataset.matrix(mat)) end local dts = dataset.union(utable) local lctable = {} local m,dt m,dt = dts:mean_deviation() for i=1,dts:patternSize() do table.insert(lctable,{{0,-m[i]/dt[i]},{i,1/dt[i]}}) end local daux = dataset.linearcomb(dts,lctable) -- normalizamos for i=1,dts:numPatterns() do dts:putPattern(i,daux:getPattern(i)) end end function normalizar_minmax(lista_matrices) local utable = {} for i,mat in pairs(lista_matrices) do table.insert(utable,dataset.matrix(mat)) end local dts = dataset.union(utable) local lctable = {} local m,dt mi,ma = dts:min_max() for i=1,dts:patternSize() do local r = 1/(ma[i]-mi[i]) table.insert(lctable,{{0,-mi[i]},{i,r}}) end local daux = dataset.linearcomb(dts,lctable) -- normalizamos for i=1,dts:numPatterns() do dts:putPattern(i,daux:getPattern(i)) end end function load_list_images(filename) local name = {} local image = {} local file=io.open(filename) for l in file:lines() do local t = string.tokenize(l,"\t") if (t[1]~=nil and t[2]~=nil) then table.insert(image,t[1]) table.insert(name,t[2]) end end file:close() return name,image end -- recibe una tabla con los nombres de fichero de las imagenes y la -- cadena con los parametros, -- devuelve una tabla con los parametros function load_and_param_images(imagetable, params) local params_table = {} for i, imgname in ipairs(imagetable) do printf("loading %s ...\n", IMG_DIR.."/"..imgname) local img = Image.load_pgm_gz(IMG_DIR.."/"..imgname) table.insert(params_table, param.extract(img, params)) -- = param_moises(img_s) end normalizar_mdt(params_table) --normalizar_minmax(params_table) return params_table end function param_m2d(mat,ctxtizq,ctxtder) local conf = { patternSize = {ctxtizq+1+ctxtder,mat:dim()[2]}, offset = {-ctxtizq,0}, numSteps = {mat:dim()[1],1}, stepSize = {1,1}, -- second is don't care } --print("mat es",mat,table.concat(mat:dim(),"x")) return dataset.matrix(mat,conf) end -- recibe dos tablas, la primera con el nombre y la segunda con la -- matriz de parametros de la imagen correspondiente en el mismo -- indice function images_each_word(name_t, param_t,ctxtizq,ctxtder) local iew = {} for i, name in ipairs(name_t) do if iew[name] == nil then iew[name] = {} end table.insert(iew[name], param_m2d(param_t[i],ctxtizq,ctxtder)) end return iew end function classify_word(models,emismatrix) local minscore,bestword for w,m in pairs(models) do local scr = m:viterbi(emismatrix) if (minscore==nil or minscore>scr) then minscore=scr bestword=w end end return bestword,minscore end -- Devuelve una tabla con la secuencia de emisiones -- de una palabra function word_emissions(word, alphabet) local result={} local chr local emission local i=1 while i <= string.len(word) do chr=string.sub(word,i,i) emission = 3*(string.find(alphabet, chr, 1, true) - 1)+1 result[3*(i-1)+1] = emission result[3*(i-1)+2] = emission+1 result[3*(i-1)+3] = emission+2 i = i+1 end return result end ---------------------------------------------------------------------- -- programa ppal ---------------------------------------------------------------------- PARAMETROS = "Tqah" --"Tsiepdqa" filename = arg[1] IMG_DIR = arg[2] -- Cargamos la lista de imagenes name_tbl,imagename_tbl = load_list_images(filename) -- Parametrizamos las imagenes params_tbl = load_and_param_images(imagename_tbl, PARAMETROS) -- En caso de querer fijar un alfabeto,modificar aqui alphabet=generate_alphabet_from_wordlist(name_tbl) -- Generamos los modelos para cada letra y para cada palabra, model_tbl=generate_models_from_alphabet(alphabet) temp_mtbl=generate_models_from_wordlist(name_tbl, model_tbl) for k,v in pairs(temp_mtbl) do -- Evitamos reemplazar los modelos de las letras individuales -- porque valen igual y tienen menos estados "dummy" if not model_tbl[k] then model_tbl[k]=v end end -- Generamos el modelo en arbol tree = strtable2tree(name_tbl) tree = expand_model(tree, model_tbl) function print_model(m) print("name=", m.name) print("transitions={") for _,t in pairs(m.transitions) do printf("{from=%s, to=%s, prob=%s, emission=%s, output=%s, id=%s}\n", t.from, t.to, t.prob, t.emission or "nil", t.output or "", t.id or "nil") end print"}" print("initial=", m.initial) print("final=", m.final) end print_model(tree) model_tbl["__tree"]=tree -- ahora vamos a entrenar, para ello necesitamos una red neuronal con -- tantas entradas como: num_parametros * (ctxt_izq+1+ctxt_der) num_parametros = string.len(PARAMETROS) ctxt_izq = 5 ctxt_der = 5 iew = images_each_word(name_tbl,params_tbl,ctxt_izq,ctxt_der) -- iew es una tabla que a cada palabra del lexico le asocia una lista -- de imagenes ya parametrizadas en forma de datasets -- numero de salidas de la red neuronal: num_salidas = 3*string.len(alphabet) -- dataset auxiliar: casiuno = 1 -- 0.9 casicero = (1-casiuno)/(num_salidas-1) ds_ident = dataset.identity(num_salidas,casicero,casiuno) ma_alignments = {} -- matrices ds_alignments = {} -- matrices for word,dstable in pairs(iew) do -- ahora generamos una tabla similar a iew, reemplazamos cada -- dataset por una matriz de dim 1 y de talla el numPatterns, -- inicializamos la matriz, la metemos en un dataset.index ma_alignments[word] = {} ds_alignments[word] = {} for i,ds in ipairs(dstable) do local seq_emission = word_emissions(word, alphabet) local a = hmm_trainer.initial_emission_alignment(seq_emission, ds:numPatterns()) local b = dataset.indexed(dataset.matrix(a), {ds_ident}):toMatrix() table.insert(ma_alignments[word], b) table.insert(ds_alignments[word], dataset.matrix(b) ) -- printf("word %s seqemission = %s\nalignment:\n",word,table.concat(seq_emission,",")) -- for r,s in dataset.matrix(b):patterns() do -- printf("%3d -> %s\n",r,table.concat(s,",")) -- end end end -- creamos la red neuronal... semilla = 1234 num_entradas = num_parametros*(1+ctxt_izq+ctxt_der) num_ocultas1 = 50 num_ocultas2 = 100 aleat = random(semilla) lared = Mlp(string.format("%d inputs %d logistic %d logistic %d softmax", num_entradas, num_ocultas1, num_ocultas2, num_salidas)) lared:generate(aleat, -0.7, 0.7) -- creamos el HMMTrainer y los modelos trainer, models = create_hmm_trainer_from_models_list(model_tbl, num_salidas) -- recopilamos datos para entrenar: todas_entradas = {} todas_salidas = {} for word,dstable in pairs(iew) do local t = ds_alignments[word] for i,ds in ipairs(dstable) do table.insert(todas_entradas,ds) table.insert(todas_salidas,t[i]) end end train_input = dataset.union(todas_entradas) train_output = dataset.union(todas_salidas) datosentrenar = { learning_rate = 0.2, momentum = 0.1, weight_decay = 1e-7, input_dataset = train_input, output_dataset = train_output, shuffle = aleat } printf([[ Entrenamos una red neuronal con %d patrones de talla %d y %d valores de salida ]], train_input:numPatterns(), train_input:patternSize(), train_output:patternSize()) veces_train = 0 -- debe ser 20 veces_em = 500 printf("medias: %s\n",table.concat(train_output:mean(),",")) trainer.trainer:set_a_priori_emissions(train_output:mean()) for iterem = 1,veces_em do printf("------------------------------\nIteracion %d de EM\n", iterem) -- entrenamos la red neuronal for epoch = 1,veces_train do errortrain = lared:train(datosentrenar) printf("em %4d epoch %4d mse_train %.7f\n", iterem,epoch,errortrain) end veces_train = 10 datosentrenar.learning_rate = 0.05 datosentrenar.momentum = 0.05 aciertos = 0 totales = 0 -- la utilizamos para realizar alineamiento forzado viterbi: trainer.trainer:begin_expectation() for word,dstable in pairs(iew) do themodel = models[word] for i,mat in ipairs(ma_alignments[word]) do -- reentrenar la cadena mat: -- primero, generar la matriz con las emisiones: local dsparam = dstable[i] --print("antes de aplicar use:") --for i,j in ds_alignments[word][i]:patterns() do -- printf("%3d -> %s\n",i,table.concat(j,",")) --end -- utilizarla con la red neuronal --[[ lared:use_dataset{ input_dataset = dsparam, output_dataset = ds_alignments[word][i] } --]] --print("despues de aplicar use:") --for i,j in ds_alignments[word][i]:patterns() do -- printf("%3d -> %s\n",i,table.concat(j,",")) --end --rword,minscr = classify_word(model,matemision) printf("mat es una matrix %s\n",table.concat(mat:dim(),"x")) prob, rword = models["__tree"]:viterbi{ input_emission = mat, do_expectation = false, } fprintf(io.stderr,"%-10s -> %-10s %f\n",word,rword,prob) os.exit(0) totales = totales+1 if (word == rword) then aciertos = aciertos+1 end themodel:viterbi{ input_emission = mat, do_expectation = true, output_emission= mat } end end trainer.trainer:end_expectation() printf("Porcentaje de aciertos entrenamiento: %.2f%%\n", 100*aciertos/totales) filenet = string.format("hmm%d.net",iterem) print("salvando "..filenet) lared:save(filenet,"ascii") end april-ann-0.3.1/packages/imaging/000077500000000000000000000000001234204160600165635ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/Image/000077500000000000000000000000001234204160600176055ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/Image/binding/000077500000000000000000000000001234204160600212175ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/Image/binding/bind_image.lua.cc000066400000000000000000000246071234204160600243750ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Jorge Gorbe Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C #include "bind_image_RGB.h" //BIND_END //BIND_HEADER_H #include "utilMatrixFloat.h" #include "utilImageFloat.h" #include "bind_matrix.h" #include "bind_affine_transform.h" #include #include "datasetFloat.h" #include "dataset.h" #include "bind_dataset.h" //BIND_END //BIND_LUACLASSNAME ImageFloat Image //BIND_CPP_CLASS ImageFloat //BIND_CONSTRUCTOR ImageFloat // este constructor recibe una matrix { int argn; argn = lua_gettop(L); // number of arguments MatrixFloat *mat; LUABIND_GET_PARAMETER(1, MatrixFloat, mat); if (mat->getNumDim() != 2) { lua_pushstring(L,"image : matrix of dimension 2 is required"); lua_error(L); } int width=mat->getDimSize(1); int height=mat->getDimSize(0); int offsetx=0; int offsety=0; if (argn == 2 && lua_isstring(L,2)) { // format x{+-}{+-} constString cs = constString(lua_tostring(L,2),lua_strlen(L,2)); if (!(cs.extract_int(&width, 10, "x") && (cs.skip(1),cs.extract_int(&height, 10, "+-")) && (cs.skip(1),cs.extract_int(&offsetx, 10, "+-")) && (cs.skip(1),cs.extract_int(&offsety)))) { lua_pushstring(L,"image crop: bad format string"); lua_error(L); } } if (argn == 5) { LUABIND_GET_PARAMETER(2, int, width); LUABIND_GET_PARAMETER(3, int, height); LUABIND_GET_PARAMETER(4, int, offsetx); LUABIND_GET_PARAMETER(5, int, offsety); } obj = new ImageFloat(mat,width,height,offsetx,offsety); LUABIND_RETURN(ImageFloat, obj); } //BIND_END //BIND_DESTRUCTOR ImageFloat { } //BIND_END //BIND_METHOD ImageFloat crop { int argn = lua_gettop(L); // number of arguments int width=0,height=0,offsetx=0,offsety=0; if (argn == 1) { if (!lua_isstring(L,1)) { lua_pushstring(L,"image crop: 1 argument must be x{+-}{+-}"); lua_error(L); } constString cs = constString(lua_tostring(L,1),lua_strlen(L,1)); if (!(cs.extract_int(&width, 10, "x") && (cs.skip(1),cs.extract_int(&height, 10, "+-")) && (cs.skip(1),cs.extract_int(&offsetx, 10, "+-")) && (cs.skip(1),cs.extract_int(&offsety)))) { lua_pushstring(L,"image crop: bad format string"); lua_error(L); } } else if (argn == 4) { LUABIND_GET_PARAMETER(1, int, width); LUABIND_GET_PARAMETER(2, int, height); LUABIND_GET_PARAMETER(3, int, offsetx); LUABIND_GET_PARAMETER(4, int, offsety); } else { LUABIND_ERROR("invalid number of arguments. You must use crop(\"x{+-}{+-}\") or " "crop(width, height, x, y)."); } ImageFloat *cropimage = obj->crop(width,height,offsetx,offsety); LUABIND_RETURN(ImageFloat, cropimage); } //BIND_END //BIND_METHOD ImageFloat info { LUABIND_ERROR("ERROR: ImageFloat.info() is deprecated\n" " Use matrix() or geometry() as needed.\n"); LUABIND_CHECK_ARGN(==,0); LUABIND_RETURN(MatrixFloat, obj->matrix); LUABIND_RETURN(int, obj->width); LUABIND_RETURN(int, obj->height); LUABIND_RETURN(int, obj->offset_width()); LUABIND_RETURN(int, obj->offset_height()); } //BIND_END //BIND_METHOD ImageFloat matrix { LUABIND_CHECK_ARGN(==,0); LUABIND_RETURN(MatrixFloat, obj->matrix); } //BIND_END //BIND_METHOD ImageFloat geometry { LUABIND_CHECK_ARGN(==,0); LUABIND_RETURN(int, obj->width); LUABIND_RETURN(int, obj->height); LUABIND_RETURN(int, obj->offset_width()); LUABIND_RETURN(int, obj->offset_height()); } //BIND_END //BIND_METHOD ImageFloat getpixel { int x,y; LUABIND_CHECK_ARGN(==,2); LUABIND_GET_PARAMETER(1, int, x); LUABIND_GET_PARAMETER(2, int, y); float pixelvalue = obj->operator()(x,y); LUABIND_RETURN(float, pixelvalue); } //BIND_END //BIND_METHOD ImageFloat putpixel { int x,y; float pixelvalue; LUABIND_CHECK_ARGN(==,3); LUABIND_GET_PARAMETER(1, int, x); LUABIND_GET_PARAMETER(2, int, y); LUABIND_GET_PARAMETER(3, float, pixelvalue); // check range if ((pixelvalue < 0) || (pixelvalue > 1)) { LUABIND_ERROR("pixel value must be in range [0,1]"); } obj->operator()(x,y) = pixelvalue; return 0; } //BIND_END //BIND_METHOD ImageFloat clone { LUABIND_CHECK_ARGN(==,0); ImageFloat *theclone = obj->clone(); LUABIND_RETURN(ImageFloat, theclone); } //BIND_END //BIND_METHOD ImageFloat projection_h { LUABIND_CHECK_ARGN(==,0); MatrixFloat *mat; obj->projection_h(&mat); LUABIND_RETURN(MatrixFloat, mat); } //BIND_END //BIND_METHOD ImageFloat projection_v { LUABIND_CHECK_ARGN(==,0); MatrixFloat *mat; obj->projection_v(&mat); LUABIND_RETURN(MatrixFloat, mat); } //BIND_END //BIND_METHOD ImageFloat shear_h { float angle; float default_value; const char *units; LUABIND_CHECK_ARGN(>=,1); LUABIND_GET_PARAMETER(1, float, angle); LUABIND_GET_OPTIONAL_PARAMETER(2, string, units, "rad"); LUABIND_GET_OPTIONAL_PARAMETER(3, float, default_value, CTEBLANCO); constString csopt = constString(units); if (csopt == "deg") angle = angle/180.0f*M_PI; else if (csopt == "grad") angle = angle/200.0f*M_PI; ImageFloat *result = obj->shear_h(angle, default_value); LUABIND_RETURN(ImageFloat, result); } //BIND_END //BIND_METHOD ImageFloat shear_h_inplace { float angle; float default_value; const char *units; LUABIND_CHECK_ARGN(>=,1); LUABIND_GET_PARAMETER(1, float, angle); LUABIND_GET_OPTIONAL_PARAMETER(2, string, units, "rad"); LUABIND_GET_OPTIONAL_PARAMETER(3, float, default_value, CTEBLANCO); constString csopt = constString(units); if (csopt == "deg") angle = angle/180.0f*M_PI; else if (csopt == "grad") angle = angle/200.0f*M_PI; obj->shear_h_inplace(angle, default_value); return 0; } //BIND_END //BIND_METHOD ImageFloat min_bounding_box { float threshold; LUABIND_CHECK_ARGN(==,1); LUABIND_GET_PARAMETER(1, float, threshold); int w,h,x,y; obj->min_bounding_box(threshold, &w, &h, &x, &y); LUABIND_RETURN(int, w); LUABIND_RETURN(int, h); LUABIND_RETURN(int, x); LUABIND_RETURN(int, y); } //BIND_END //BIND_METHOD ImageFloat copy { ImageFloat *src; int dst_x, dst_y; LUABIND_CHECK_ARGN(==, 3); LUABIND_GET_PARAMETER(1, ImageFloat, src); LUABIND_GET_PARAMETER(2, int, dst_x); LUABIND_GET_PARAMETER(3, int, dst_y); obj->copy(src, dst_x, dst_y); return 0; } //BIND_END //BIND_METHOD ImageFloat substract { ImageFloat *img; LUABIND_CHECK_ARGN(==,1); LUABIND_GET_PARAMETER(1, ImageFloat, img); ImageFloat *res = obj->substract_image(img, 0.0, 1.0); LUABIND_RETURN(ImageFloat, res); } //BIND_END //BIND_METHOD ImageFloat threshold { LUABIND_CHECK_ARGN(==,2); float low, high; LUABIND_GET_PARAMETER(1, float, low); LUABIND_GET_PARAMETER(2, float, high); obj->threshold_image(low, high,0.0, 1.0); return 0; } //BIND_END //BIND_METHOD ImageFloat rotate90cw { int param; // must be +1 or -1 LUABIND_CHECK_ARGN(==,1); LUABIND_GET_PARAMETER(1, int, param); ImageFloat *res = 0; if (param == 1) res = obj->rotate90_cw(); else if (param == -1) res = obj->rotate90_ccw(); else{ LUABIND_ERROR("the argument of rotate90cw must be +1 or -1"); } LUABIND_RETURN(ImageFloat, res); } //BIND_END //BIND_METHOD ImageFloat invert_colors { LUABIND_CHECK_ARGN(==,0); ImageFloat *res = obj->invert_colors(); LUABIND_RETURN(ImageFloat, res); } //BIND_END //BIND_METHOD ImageFloat remove_blank_columns { LUABIND_CHECK_ARGN(==,0); ImageFloat *res; res=obj->remove_blank_columns(); LUABIND_RETURN(ImageFloat, res); } //BIND_END //BIND_METHOD ImageFloat add_rows { LUABIND_CHECK_ARGN(==,3); int top_rows, bottom_rows; float value = 0.0; LUABIND_GET_PARAMETER(1, int, top_rows); LUABIND_GET_PARAMETER(2, int, bottom_rows); LUABIND_GET_PARAMETER(3, float, value); ImageFloat *res; res=obj->add_rows(top_rows, bottom_rows, value); LUABIND_RETURN(ImageFloat, res); } //BIND_END //BIND_METHOD ImageFloat convolution5x5 { LUABIND_CHECK_ARGN(>,0); LUABIND_CHECK_ARGN(<,3); LUABIND_CHECK_PARAMETER(1, table); float kernel[25]; LUABIND_TABLE_TO_VECTOR(1, float, kernel, 25); ImageFloat *res; if (lua_gettop(L) == 1) res = obj->convolution5x5(kernel); else { float default_value; LUABIND_GET_PARAMETER(2, float, default_value); res = obj->convolution5x5(kernel, default_value); } LUABIND_RETURN(ImageFloat, res); } //BIND_END //BIND_METHOD ImageFloat resize { LUABIND_CHECK_ARGN(==, 2); int x, y; LUABIND_GET_PARAMETER(1, int, x); LUABIND_GET_PARAMETER(2, int, y); ImageFloat *res = obj->resize(x,y); LUABIND_RETURN(ImageFloat, res); } //BIND_END //BIND_METHOD ImageFloat affine_transform { AffineTransform2D *trans; float default_value; int offset_x, offset_y; ImageFloat *res; LUABIND_CHECK_ARGN(==, 2); LUABIND_GET_PARAMETER(1, AffineTransform2D, trans); LUABIND_GET_PARAMETER(2, float, default_value); res = obj->affine_transform(trans, default_value, &offset_x, &offset_y); LUABIND_RETURN(ImageFloat, res); LUABIND_RETURN(int, offset_x); LUABIND_RETURN(int, offset_y); } //BIND_END //BIND_METHOD ImageFloat to_RGB { LUABIND_CHECK_ARGN(==,0); ImageFloatRGB *res = grayscale_to_RGB(obj); LUABIND_RETURN(ImageFloatRGB, res); } //BIND_END //BIND_METHOD ImageFloat comb_lineal_forward { LUABIND_CHECK_ARGN(==, 7); int x, y, alto, ancho, minialto, miniancho, output_size; LinearCombConfFloat *cl; LUABIND_GET_PARAMETER(1, int, x); LUABIND_GET_PARAMETER(2, int, y); LUABIND_GET_PARAMETER(3, int, ancho); LUABIND_GET_PARAMETER(4, int, alto); LUABIND_GET_PARAMETER(5, int, miniancho); LUABIND_GET_PARAMETER(6, int, minialto); LUABIND_GET_PARAMETER(7, LinearCombConfFloat, cl); MatrixFloat *res = obj->comb_lineal_forward(x,y,ancho, alto, miniancho, minialto, cl); LUABIND_RETURN(MatrixFloat, res); } //BIND_END april-ann-0.3.1/packages/imaging/Image/binding/bind_image_RGB.lua.cc000066400000000000000000000217661234204160600250720ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Jorge Gorbe Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C #include "bind_image.h" //BIND_END //BIND_HEADER_H #include "utilMatrixFloat.h" #include "utilImageFloat.h" #include "bind_matrix.h" #include "bind_affine_transform.h" #include //BIND_END //BIND_LUACLASSNAME ImageFloatRGB ImageRGB //BIND_CPP_CLASS ImageFloatRGB //BIND_CONSTRUCTOR ImageFloatRGB // este constructor recibe una matrix { LUABIND_CHECK_ARGN(==,1); MatrixFloat *img; LUABIND_GET_PARAMETER(1, MatrixFloat, img); if (img->getNumDim() != 3) LUABIND_ERROR("Needs a matrix with 3 dimensions"); if (img->getDimSize(2) != 3) LUABIND_ERROR("Needs a matrix with 3 components (R,G,B) at the 3rd dimension"); if (!img->isSimple()) LUABIND_ERROR("ImageRGB needs a simple matrix: row_major and contiguous\n"); GPUMirroredMemoryBlock *float_rgb_mem; float_rgb_mem = img->getRawDataAccess()->reinterpretAs(); int dims[2] = { img->getDimSize(0), img->getDimSize(1) }; Matrix *img_rgb = new Matrix(2, dims, CblasRowMajor, float_rgb_mem); // obj = new ImageFloatRGB(img_rgb); LUABIND_RETURN(ImageFloatRGB, obj); } //BIND_END //BIND_FUNCTION ImageRGB.empty { int w,h; LUABIND_CHECK_ARGN(==,2); LUABIND_GET_PARAMETER(1, int, w); LUABIND_GET_PARAMETER(2, int, h); Matrix *m = new Matrix(2, w, h); ImageFloatRGB *result = new ImageFloatRGB(m); LUABIND_RETURN(ImageFloatRGB, result); } //BIND_END //BIND_DESTRUCTOR ImageFloatRGB { } //BIND_END //BIND_METHOD ImageFloatRGB crop { int argn = lua_gettop(L); // number of arguments int width=0,height=0,offsetx=0,offsety=0; if (argn == 1) { if (!lua_isstring(L,1)) { lua_pushstring(L,"image crop: 1 argument must be x{+-}{+-}"); lua_error(L); } constString cs = constString(lua_tostring(L,1),lua_strlen(L,1)); if (!(cs.extract_int(&width, 10, "x") && (cs.skip(1),cs.extract_int(&height, 10, "+-")) && (cs.skip(1),cs.extract_int(&offsetx, 10, "+-")) && (cs.skip(1),cs.extract_int(&offsety)))) { lua_pushstring(L,"image crop: bad format string"); lua_error(L); } } else if (argn == 4) { LUABIND_GET_PARAMETER(1, int, width); LUABIND_GET_PARAMETER(2, int, height); LUABIND_GET_PARAMETER(3, int, offsetx); LUABIND_GET_PARAMETER(4, int, offsety); } else { LUABIND_ERROR("invalid number of arguments. You must use crop(\"x{+-}{+-}\") or " "crop(width, height, x, y)."); } ImageFloatRGB *cropimage = obj->crop(width,height,offsetx,offsety); LUABIND_RETURN(ImageFloatRGB, cropimage); } //BIND_END //BIND_METHOD ImageFloatRGB info { fprintf(stderr, "WARNING: ImageFloatRGB.info() is deprecated\n" " Use matrix() or geometry() as needed.\n"); LUABIND_CHECK_ARGN(==,0); LUABIND_RETURN(string, ""); LUABIND_RETURN(int, obj->width); LUABIND_RETURN(int, obj->height); LUABIND_RETURN(int, obj->offset_width()); LUABIND_RETURN(int, obj->offset_height()); } //BIND_END //BIND_METHOD ImageFloatRGB matrix { LUABIND_CHECK_ARGN(==,0); Matrix *img_rgb = obj->matrix; GPUMirroredMemoryBlock *mat_mem; mat_mem = img_rgb->getRawDataAccess()->reinterpretAs(); int dims[3] = { img_rgb->getDimSize(0), img_rgb->getDimSize(1), 3 }; MatrixFloat *output = new MatrixFloat(3, dims, img_rgb->getMajorOrder(), mat_mem); LUABIND_RETURN(MatrixFloat, output); } //BIND_END //BIND_METHOD ImageFloatRGB geometry { LUABIND_CHECK_ARGN(==,0); LUABIND_RETURN(int, obj->width); LUABIND_RETURN(int, obj->height); LUABIND_RETURN(int, obj->offset_width()); LUABIND_RETURN(int, obj->offset_height()); } //BIND_END //BIND_METHOD ImageFloatRGB getpixel { int x,y; LUABIND_CHECK_ARGN(==,2); LUABIND_GET_PARAMETER(1, int, x); LUABIND_GET_PARAMETER(2, int, y); FloatRGB rgb = obj->operator()(x,y); LUABIND_RETURN(float, rgb.r); LUABIND_RETURN(float, rgb.g); LUABIND_RETURN(float, rgb.b); } //BIND_END //BIND_METHOD ImageFloatRGB putpixel { int x,y; float r, g, b; LUABIND_CHECK_ARGN(==,5); LUABIND_GET_PARAMETER(1, int, x); LUABIND_GET_PARAMETER(2, int, y); LUABIND_GET_PARAMETER(3, float, r); LUABIND_GET_PARAMETER(4, float, g); LUABIND_GET_PARAMETER(5, float, b); obj->operator()(x,y) = FloatRGB(r,g,b); return 0; } //BIND_END //BIND_METHOD ImageFloatRGB clone { LUABIND_CHECK_ARGN(==,0); ImageFloatRGB *theclone = obj->clone(); LUABIND_RETURN(ImageFloatRGB, theclone); } //BIND_END //BIND_METHOD ImageFloatRGB shear_h { float angle; float default_r, default_g, default_b; const char *units; LUABIND_CHECK_ARGN(>=,4); LUABIND_GET_PARAMETER(1, float, angle); LUABIND_GET_PARAMETER(2, float, default_r); LUABIND_GET_PARAMETER(3, float, default_g); LUABIND_GET_PARAMETER(4, float, default_b); LUABIND_GET_OPTIONAL_PARAMETER(5, string, units, "rad"); constString csopt = constString(units); if (csopt == "deg") angle = angle/180.0f*M_PI; else if (csopt == "grad") angle = angle/200.0f*M_PI; ImageFloatRGB *result = obj->shear_h(angle, FloatRGB(default_r, default_g, default_b)); LUABIND_RETURN(ImageFloatRGB, result); } //BIND_END //BIND_METHOD ImageFloatRGB shear_h_inplace { float angle; float default_r, default_g, default_b; const char *units; LUABIND_CHECK_ARGN(>=,4); LUABIND_GET_PARAMETER(1, float, angle); LUABIND_GET_PARAMETER(2, float, default_r); LUABIND_GET_PARAMETER(3, float, default_g); LUABIND_GET_PARAMETER(4, float, default_b); LUABIND_GET_OPTIONAL_PARAMETER(5, string, units, "rad"); constString csopt = constString(units); if (csopt == "deg") angle = angle/180.0f*M_PI; else if (csopt == "grad") angle = angle/200.0f*M_PI; obj->shear_h_inplace(angle, FloatRGB(default_r, default_g, default_b)); return 0; } //BIND_END //BIND_METHOD ImageFloatRGB copy { ImageFloatRGB *src; int dst_x, dst_y; LUABIND_CHECK_ARGN(==, 3); LUABIND_GET_PARAMETER(1, ImageFloatRGB, src); LUABIND_GET_PARAMETER(2, int, dst_x); LUABIND_GET_PARAMETER(3, int, dst_y); obj->copy(src, dst_x, dst_y); return 0; } //BIND_END //BIND_METHOD ImageFloatRGB rotate90cw { int param; // must be +1 or -1 LUABIND_CHECK_ARGN(==,1); LUABIND_GET_PARAMETER(1, int, param); ImageFloatRGB *res = 0; if (param == 1) res = obj->rotate90_cw(); else if (param == -1) res = obj->rotate90_ccw(); else{ LUABIND_ERROR("the argument of rotate90cw must be +1 or -1"); } LUABIND_RETURN(ImageFloatRGB, res); } //BIND_END //BIND_METHOD ImageFloatRGB invert_colors { LUABIND_CHECK_ARGN(==,0); ImageFloatRGB *res = obj->invert_colors(); LUABIND_RETURN(ImageFloatRGB, res); } //BIND_END //BIND_METHOD ImageFloatRGB convolution5x5 { LUABIND_CHECK_ARGN(>,0); LUABIND_CHECK_ARGN(<,5); LUABIND_CHECK_PARAMETER(1, table); float kernel[25]; LUABIND_TABLE_TO_VECTOR(1, float, kernel, 25); ImageFloatRGB *res; if (lua_gettop(L) == 1) res = obj->convolution5x5(kernel); else { float default_r, default_g, default_b; LUABIND_GET_PARAMETER(2, float, default_r); LUABIND_GET_PARAMETER(3, float, default_g); LUABIND_GET_PARAMETER(4, float, default_b); res = obj->convolution5x5(kernel, FloatRGB(default_r, default_g, default_b)); } LUABIND_RETURN(ImageFloatRGB, res); } //BIND_END //BIND_METHOD ImageFloatRGB resize { LUABIND_CHECK_ARGN(==, 2); int x, y; LUABIND_GET_PARAMETER(1, int, x); LUABIND_GET_PARAMETER(2, int, y); ImageFloatRGB *res = obj->resize(x,y); LUABIND_RETURN(ImageFloatRGB, res); } //BIND_END //BIND_METHOD ImageFloatRGB affine_transform { AffineTransform2D *trans; float default_r, default_g, default_b; int offset_x, offset_y; ImageFloatRGB *res; LUABIND_CHECK_ARGN(==, 4); LUABIND_GET_PARAMETER(1, AffineTransform2D, trans); LUABIND_GET_PARAMETER(2, float, default_r); LUABIND_GET_PARAMETER(3, float, default_g); LUABIND_GET_PARAMETER(4, float, default_b); res = obj->affine_transform(trans, FloatRGB(default_r, default_g, default_b), &offset_x, &offset_y); LUABIND_RETURN(ImageFloatRGB, res); LUABIND_RETURN(int, offset_x); LUABIND_RETURN(int, offset_y); } //BIND_END //BIND_METHOD ImageFloatRGB to_grayscale { LUABIND_CHECK_ARGN(==,0); ImageFloat *res = RGB_to_grayscale(obj); LUABIND_RETURN(ImageFloat, res); } //BIND_END april-ann-0.3.1/packages/imaging/Image/c_src/000077500000000000000000000000001234204160600206765ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/Image/c_src/floatrgb.cc000066400000000000000000000051621234204160600230110ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Jorge Gorbe Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "floatrgb.h" FloatRGB operator + (FloatRGB x, FloatRGB y) { return FloatRGB(x.r + y.r, x.g + y.g, x.b + y.b); } FloatRGB operator - (FloatRGB x, FloatRGB y) { return FloatRGB(x.r - y.r, x.g - y.g, x.b - y.b); } FloatRGB operator * (FloatRGB x, FloatRGB y) { return FloatRGB(x.r * y.r, x.g * y.g, x.b * y.b); } FloatRGB operator / (FloatRGB x, FloatRGB y) { return FloatRGB(x.r / y.r, x.g / y.g, x.b / y.b); } FloatRGB operator + (FloatRGB x, float y) { return x+FloatRGB(y); } FloatRGB operator - (FloatRGB x, float y) { return x-FloatRGB(y); } FloatRGB operator * (FloatRGB x, float y) { return x*FloatRGB(y); } FloatRGB operator / (FloatRGB x, float y) { return x/FloatRGB(y); } FloatRGB operator + (float x, FloatRGB y) { return FloatRGB(x)+y; } FloatRGB operator - (float x, FloatRGB y) { return FloatRGB(x)-y; } FloatRGB operator * (float x, FloatRGB y) { return FloatRGB(x)*y; } FloatRGB operator / (float x, FloatRGB y) { return FloatRGB(x)/y; } FloatRGB operator += (FloatRGB x, FloatRGB y) { return (x = x + y); } FloatRGB operator -= (FloatRGB x, FloatRGB y) { return (x = x - y); } FloatRGB operator *= (FloatRGB x, FloatRGB y) { return (x = x * y); } FloatRGB operator /= (FloatRGB x, FloatRGB y) { return (x = x / y); } FloatRGB operator += (FloatRGB x, float y) { return (x = x + y); } FloatRGB operator -= (FloatRGB x, float y) { return (x = x - y); } FloatRGB operator *= (FloatRGB x, float y) { return (x = x * y); } FloatRGB operator /= (FloatRGB x, float y) { return (x = x / y); } namespace april_utils{ template<> FloatRGB clamp(FloatRGB val, FloatRGB lower, FloatRGB upper) { float r = clamp(val.r, lower.r, upper.r); float g = clamp(val.g, lower.g, upper.g); float b = clamp(val.b, lower.b, upper.b); return FloatRGB(r,g,b); } } april-ann-0.3.1/packages/imaging/Image/c_src/floatrgb.h000066400000000000000000000041441234204160600226520ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Jorge Gorbe Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef FLOATRGB_H #define FLOATRGB_H #include "clamp.h" struct FloatRGB { float r,g,b; FloatRGB(): r(0.0f), g(0.0f), b(0.0f) {} FloatRGB(float r, float g, float b):r(r), g(g), b(b) {} explicit FloatRGB(float gray): r(gray), g(gray), b(gray) {} float to_grayscale() { return 0.3*r+0.59*g+0.11*b; } }; FloatRGB operator + (FloatRGB x, FloatRGB y); FloatRGB operator - (FloatRGB x, FloatRGB y); FloatRGB operator * (FloatRGB x, FloatRGB y); FloatRGB operator / (FloatRGB x, FloatRGB y); FloatRGB operator + (FloatRGB x, float y); FloatRGB operator - (FloatRGB x, float y); FloatRGB operator * (FloatRGB x, float y); FloatRGB operator / (FloatRGB x, float y); FloatRGB operator + (float x, FloatRGB y); FloatRGB operator - (float x, FloatRGB y); FloatRGB operator * (float x, FloatRGB y); FloatRGB operator / (float x, FloatRGB y); FloatRGB operator += (FloatRGB x, FloatRGB y); FloatRGB operator -= (FloatRGB x, FloatRGB y); FloatRGB operator *= (FloatRGB x, FloatRGB y); FloatRGB operator /= (FloatRGB x, FloatRGB y); FloatRGB operator += (FloatRGB x, float y); FloatRGB operator -= (FloatRGB x, float y); FloatRGB operator *= (FloatRGB x, float y); FloatRGB operator /= (FloatRGB x, float y); namespace april_utils{ template<> FloatRGB clamp(FloatRGB val, FloatRGB lower, FloatRGB upper); } #endif april-ann-0.3.1/packages/imaging/Image/c_src/image.cc000066400000000000000000000656221234204160600223020ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Jorge Gorbe Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ /* * Fichero de implementacion (incluido por la cabecera image.h) * */ #ifndef _IMAGE_CC_ #define _IMAGE_CC_ #include "image.h" #include #include #include #include "clamp.h" #include "maxmin.h" template Image::Image(Matrix *mat) { if (!mat->isSimple()) ERROR_EXIT(128, "Image only works with simple matrices " "(contiguous, and in row-major\n"); // if (mat->numDim != 2) { ... } // <- TODO matrix = mat; IncRef(matrix); // garbage collection offset = 0; width = matrix_width(); height = matrix_height(); } template Image::Image(Matrix *mat, int width, int height, int offset_w, int offset_h) { if (!mat->isSimple()) ERROR_EXIT(128, "Image only works with simple matrices " "(contiguous, and in row-major\n"); matrix = mat; IncRef(matrix); // garbage collection offset = offset_w + offset_h*matrix_width(); this->width = width; this->height = height; } template Image::Image(Image &other) { // copy constructor matrix = other.matrix; offset = other.offset; width = other.width; height = other.height; IncRef(matrix); } template Image::Image(int width, int height, T value) :width(width), height(height) { offset = 0; int dims[2]; dims[0] = height; dims[1] = width; matrix = new Matrix(2,dims); matrix->fill(value); IncRef(matrix); } template Image::~Image() { DecRef(matrix); // garbage collection } template Image* Image::crop(int width, int height, int offset_w, int offset_h) const { assert("Cropping region must be contained in source image" && (offset_w >= 0 && offset_h >=0 && offset_w+width <= this->width && offset_h+height <= this->height)); return new Image(matrix, width, height, offset_w + offset_width(), offset_h + offset_height()); } template Image* Image::clone_subimage(int w, int h, int offset_w, int offset_h, T default_color) const { int dims[2]; dims[0] = h; dims[1] = w; Matrix *mat = new Matrix(2,dims,default_color); Image *img = new Image(mat); // averiguar tamanyo subimage a copiar: int x_dest=0, y_dest=0; int w_crop=w, h_crop=h; int x_crop=offset_w, y_crop=offset_h; if (offset_w < 0) { // izquierda x_crop = 0; w_crop -= -offset_w; x_dest = offset_w; } if (offset_w + w > width) { // derecha w_crop -= offset_w + w - width; } if (offset_h < 0) { // arriba y_crop = 0; h_crop -= -offset_h; y_dest = offset_h; } if (offset_h + h > height) { // abajo h_crop -= offset_h + h - height; } if (w_crop > 0 && h_crop > 0) { img->copy(crop(w_crop,h_crop,x_crop,y_crop), x_dest, y_dest); } return img; } template Image* Image::crop_with_padding(int width, int height, int offset_w, int offset_h, T default_color) const { if (offset_w >= 0 && offset_h >=0 && offset_w+width <= this->width && offset_h+height <= this->height) return crop(width, height, offset_w, offset_h); else return clone_subimage(width, height, offset_w, offset_h, default_color); } template Image* Image::clone() const { int dims[2]; dims[0] = height; dims[1] = width; Matrix *mat = new Matrix(2,dims); Image *img = new Image(mat); // // --more elegant but less efficient-- // for (int y=0;ygetRawDataAccess()->getPPALForReadAndWrite(); const T *source = matrix->getRawDataAccess()->getPPALForRead() + offset; for (int y=0;y int Image::count_black_pixels(T threshold) const{ int count = 0; for (int y = 0; y < this->height; ++y) { for (int x = 0; x < this->width; x++) { if((*this)(x,y) < threshold) { ++count; } } } return count; } template void Image::projection_v(T *v) const { // v has size width for (int x=0;xgetRawDataAccess()->getPPALForRead() + offset; for (int y=0;y void Image::projection_v(Matrix **m) const { int dims[1]; dims[0] = width; *m = new Matrix(1,dims); projection_v((*m)->getRawDataAccess()->getPPALForWrite()); } template void Image::projection_h(T *v) const { // v has size height const T *source = matrix->getRawDataAccess()->getPPALForRead() + offset; for (int y=0;y void Image::projection_h(Matrix **m) const { int dims[1]; dims[0] = height; *m = new Matrix(1,dims); projection_h((*m)->getRawDataAccess()->getPPALForWrite()); } /** - angle va en radianes - default_value es el color de los pixels nuevos que aparecen en las esquinas +-------+ +-------+ | | |\ \ | OLD | | \ NEW \ | | |an\ \ +-------+ |gle+-------+ */ template Image* Image::shear_h(double angle, T default_value) const { int dims[2]; //printf("angle = %frad = %fdeg\n",angle, angle*180/M_PI); dims[0]=height; if (angle > 0) dims[1]=width+int(height*tan(angle))+1; else dims[1]=width+int(height*tan(-angle))+1; //printf("dims = %dfilas x %dcolumnas\n", dims[0], dims[1]); Matrix *mat = new Matrix(2,dims); Image *img = new Image(mat); if (angle > 0) { // Angle > 0 const T *source_line = matrix->getRawDataAccess()->getPPALForRead() + offset; T *dest_line = mat->getRawDataAccess()->getPPALForReadAndWrite(); for (int line=0; linegetRawDataAccess()->getPPALForRead() + offset + matrix_width()*(height-1); T *dest_line = mat->getRawDataAccess()->getPPALForReadAndWrite() + dims[1]*(height-1); for (int line= 0 ; line < height; line++){ float x = line*tan(angle); float izq = x-int(x); float der = 1.0-izq; int x_int = int(x); // x contiene la posicion del pixel i-esimo // por tanto, debemos poner en blanco los pixels [0,x[ // copiar la fila original en [x, x+width] y seguir // con blanco hasta el final for (int i=0; i < x_int; i++) dest_line[i]=default_value; // El primer pixel lo tratamos de forma "especial" // porque se obtiene a partir del primer pixel origen y el // color por defecto dest_line[x_int]=izq*default_value+der*source_line[0]; for (int i=1; i < width; i++) dest_line[x_int+i]=izq*source_line[i-1]+der*source_line[i]; dest_line[x_int+width]=izq*source_line[width-1]+der*default_value; for (int i=x_int+width+1; i void Image::shear_h_inplace(double angle, T default_value) { // inc_width contiene el incremento de tam. en x al hacer el shear // segun el signo de angle deberemos desplazar el resultado hacia // un lado u otro int inc_width; inc_width = int(height * tan(angle) + 1); if (angle > 0) { // Angle > 0 // Tenemos que desplazar la imagen resultante hacia la izq. int old_width = width; offset -= inc_width; width += inc_width; // Ahora la linea de origen y destino es la misma // Empezamos por el final T *source_line = matrix->getRawDataAccess()->getPPALForReadAndWrite() + offset + (height-1) * matrix_width(); T *dest_line = source_line; for (int line=0; linegetRawDataAccess()->getPPALForReadAndWrite() + offset + (height - 1) * matrix_width(); T *dest_line = source_line; for (int line = 0 ; line < height; line++){ float x = line*tan(angle); float izq = x-int(x); float der = 1.0-izq; int x_int = int(x); // x contiene la posicion del pixel i-esimo // yendo de derecha a izq debemos copiar // desde [0,old_width] hasta [x, old_width+x] // y luego rellenar [0, x[ con el color por defecto // Copiamos el ultimo pixel dest_line[old_width+x_int]=izq*source_line[old_width-1]+der*default_value; // Los de en medio for (int i=old_width-1; i >= 1; i--) dest_line[x_int+i]=izq*source_line[i-1]+der*source_line[i]; // El primero dest_line[x_int]=izq*default_value+der*source_line[0]; // y rellenamos el resto con el color por defecto for (int i=x_int-1; i>=0; i--) dest_line[i]=default_value; source_line -= matrix_width(); dest_line -= matrix_width(); } } return; } // FIXME: Mover a ocr template void Image::min_bounding_box(float threshold, int *w, int *h, int *x, int *y) const { // Buscamos el primer pixel no-blanco (inferior al umbral) de la imagen // desde arriba, abajo, izquierda y derecha y hacemos un crop. int upper = 0, lower = height - 1, left = 0, right = width - 1; int row, col; bool found; const float *d; // Desde arriba found = false; row = 0; d = matrix->getRawDataAccess()->getPPALForRead(); while (row < height && !found) { for (col = 0; col < width; ++col) { T val = d[offset + row*matrix_width() + col]; if (val < threshold) { upper = row; found = true; } } ++row; } // Desde abajo row = height - 1; found = false; while (row >= 0 && !found) { for (col = 0; col < width; ++col) { T val = d[offset + row*matrix_width() + col]; if (val < threshold) { lower = row; found = true; } } --row; } // Desde la izquierda col = 0; found = false; while (col < width && !found) { for (row = 0; row < height; ++row) { T val = d[offset + row*matrix_width() + col]; if (val < threshold) { left = col; found = true; } } ++col; } // Desde la derecha col = width - 1; found = false; while (col >= 0 && !found) { for (row = 0; row < height; ++row) { T val = d[offset + row*matrix_width() + col]; if (val < threshold) { right = col; found = true; } } --col; } //printf("upper=%d, lower=%d, left=%d, right=%d\n", upper, lower, left, right); *w = right - left + 1; *h = lower - upper + 1; *x = left; *y = upper; } // Copia la imagen src a partir de las coordenadas (dst_x, dst_y) // Recorta si es necesario template void Image::copy(const Image *src, int dst_x, int dst_y) { int x0=0, y0=0; if (dst_x < 0) x0 = -dst_x; if (dst_y < 0) y0 = -dst_y; for (int y=y0; (y < src->height) && (y+dst_y < height); ++y) for (int x=x0; (x < src->width) && (x+dst_x < width); ++x) (*this)(x+dst_x, y+dst_y)=(*src)(x, y); } template Image *Image::rotate90_cw() const { int dimensions[2]; dimensions[0] = width; dimensions[1] = height; Matrix *new_mat = new Matrix(2, dimensions); Image *result = new Image(new_mat); for (int y=0; y < height; ++y) { for (int x=0; x < width; ++x) { //printf("(%d, %d) ---> (%d, %d)\n",x,y,height-1-y,x); (*result)(height - 1 - y, x)=(*this)(x, y); } } return result; } template Image *Image::rotate90_ccw() const { int dimensions[2]; dimensions[0] = width; dimensions[1] = height; Matrix *new_mat = new Matrix(2, dimensions); Image *result = new Image(new_mat); for (int y=0; y < height; ++y) { for (int x=0; x < width; ++x) { (*result)(y, width - 1 - x)=(*this)(x, y); } } return result; } // Warning: This operation is not clearly defined for images // outside the range [0.0, 1.0] template Image *Image::invert_colors() const { const T WHITE(1.0f); int dimensions[2]; dimensions[0] = height; dimensions[1] = width; Matrix *new_mat = new Matrix(2, dimensions); Image *result = new Image(new_mat); for (int y=0; y < height; ++y) { for (int x=0; x < width; ++x) { (*result)(x, y) = WHITE - (*this)(x, y); } } return result; } // FIXME: Mover a ocr template Image *Image::remove_blank_columns() const { const float UMBRAL_BINARIZADO = 0.5f; // Contamos las columnas en blanco de la imagen original int nblanco=0; for (int x=0; x *new_mat = new Matrix(2, dimensions); Image *result = new Image(new_mat); // Ahora copiamos columna a columna int xdest=0; for (int x=0; x Image *Image::add_rows(int top_rows, int bottom_rows, T value) const { // Contamos las columnas en blanco de la imagen original int dimensions[2]; int new_height = height+top_rows+bottom_rows; dimensions[0] = new_height; dimensions[1] = width; Matrix *new_mat = new Matrix(2, dimensions); Image *result = new Image(new_mat); // Copy row by row int top_image = top_rows; int bottom_image = top_rows + height; for(int y = 0; y < top_image; ++y) { for (int x = 0; x < width; x++) { (*result)(x,y) = value; } } for(int y = bottom_image; y < new_height; ++y) { for (int x = 0; x < width; x++) { (*result)(x,y) = value; } } for (int y = 0; y < height; ++y) { for (int x = 0; x < width; ++x) { (*result)(x, top_image+y) = (*this)(x,y); } } return result; } /** * Aplica un kernel de convolucion de 5x5 a la imagen. Devuelve el resultado * en una imagen nueva. El kernel se organiza por filas: * * 0 1 2 3 4 * 5 6 7 8 9 * 10 11 12 13 14 * 15 16 17 18 19 * 20 21 22 23 24 */ template Image *Image::convolution5x5(float *k, T default_color) const { int dimensions[2]; dimensions[0] = height; dimensions[1] = width; Matrix *new_mat = new Matrix(2, dimensions); Image *result = new Image(new_mat); for (int y=0; y Image *Image::resize(int dst_width, int dst_height) const { T default_value=T(); int dimensions[2]; dimensions[0] = dst_height; dimensions[1] = dst_width; Matrix *new_mat = new Matrix(2, dimensions); Image *result = new Image(new_mat); // we go through the destination image for (int y=0; y (%f, %f)-(%f, %f) area= %f, sum=%f\n", x, y, x0, y0, x1, y1, area, sum); } } return result; } /** * Applies an affine transform given by the matrix * * | c[0] c[1] c[2] | * | c[3] c[4] c[5] | * | 0 0 1 | * * */ template Image *Image::affine_transform(AffineTransform2D *trans, T default_value, int *offset_x, int *offset_y) const { using april_utils::max; using april_utils::min; float c[6]; MatrixFloat *inverse_mat = trans->inv(); IncRef(inverse_mat); if (!inverse_mat->isSimple()) AssignRef(inverse_mat, inverse_mat->clone(CblasRowMajor)); const float *inverse = inverse_mat->getRawDataAccess()->getPPALForRead(); /* printf("--transform-------\n"); printf("%1.3f %1.3f %1.3f\n", c[0], c[1], c[2]); printf("%1.3f %1.3f %1.3f\n", c[3], c[4], c[5]); printf("0 0 1 \n"); printf("--inverse transform-------\n"); printf("%1.3f %1.3f %1.3f\n", inverse[0], inverse[1], inverse[2]); printf("%1.3f %1.3f %1.3f\n", inverse[3], inverse[4], inverse[5]); printf("0 0 1 \n"); */ // New image corners -> apply the inverse to points 0, 1, 2, 3 // // 0 +-----+ 1 // | | // 2 +-----+ 3 // int x0 = int(roundf(inverse[2])); int y0 = int(roundf(inverse[5])); int x1 = int(roundf((width-1) *inverse[0] + inverse[2])); int y1 = int(roundf((width-1) *inverse[3] + inverse[5])); int x2 = int(roundf((height-1)*inverse[1] + inverse[2])); int y2 = int(roundf((height-1)*inverse[4] + inverse[5])); int x3 = int(roundf((width-1) *inverse[0] + (height-1)*inverse[1] + inverse[2])); int y3 = int(roundf((width-1) *inverse[3] + (height-1)*inverse[4] + inverse[5])); DecRef(inverse_mat); inverse = 0; int xmax = int(roundf(max(x0, max(x1, max(x2, x3))))); int xmin = int(roundf(min(x0, min(x1, min(x2, x3))))); int ymax = int(roundf(max(y0, max(y1, max(y2, y3))))); int ymin = int(roundf(min(y0, min(y1, min(y2, y3))))); int dst_width = xmax-xmin+1; int dst_height = ymax-ymin+1; /* fprintf(stderr,"p0=(%d, %d) p1=(%d, %d) p2=(%d, %d) p3=(%d, %d) dst_width = %d, dst_height=%d x: %d-%d, y: %d-%d\n", x0, y0, x1, y1, x2, y2, x3, y3, dst_width, dst_height, xmin, xmax, ymin, ymax); */ int dimensions[2]; dimensions[0] = dst_height; dimensions[1] = dst_width; Matrix *new_mat = new Matrix(2, dimensions); Image *result = new Image(new_mat); for (int y=ymin; y<=ymax; y++) { for (int x=xmin; x<=xmax; x++) { float srcx = c[0]*x+c[1]*y+c[2]; float srcy = c[3]*x+c[4]*y+c[5]; T value = getpixel_bilinear(srcx, srcy, default_value); //printf("dst=(%d,%d) --- src = (%f, %f) value=%f\n", x, y, srcx, srcy, value); (*result)(x-xmin,y-ymin) = value; } } if (offset_x != 0) *offset_x = xmin; if (offset_y != 0) *offset_y = ymin; return result; } template Matrix * Image::comb_lineal_forward(int sx, int sy, int ancho, int alto, int miniancho, int minialto, LinearCombConf *conf) { using april_utils::max; using april_utils::min; int output_size = miniancho*minialto; // printf("Preparing Combination %d\n", conf->patternsize); Matrix *mat = new Matrix(1, output_size); mat->fill(0.0); //FIXME: This is not working correctly if ancho y alto are not multiples of 2 int miny = max(sy-alto/2,0); int maxy = min(sy+alto/2-1, this->height); int minx = max(sx-ancho/2,0); int maxx = min(sx+ancho/2-1, this->width); int dx = (sx-ancho/2); int dy = (sy-alto/2); const float th = 1e-6; int *vec_tuplas = conf->numTuplas + (miny-dy)*ancho -dx; for (int y = miny; y < maxy; ++y,vec_tuplas+=ancho){ for (int x = minx; x < maxx; x++){ float value = (*this)(x,y); if (value > th) { for (int j = vec_tuplas[x-1];jindices[j]; // FIXME sustituir por mat[dest], ahora no funciona (*mat)(dest) += value*conf->pesos[j]; } } } } return mat; } template Image* Image::substract_image(Image *img, T low, T high) const { int s_height = img->height; int s_width = img->width; // printf("%d %d %d %d\n", s_width, s_height, this->width, this->height); april_assert("The images does not have the same dimension" && s_width == this->width && s_height == this->height); int dims[2]; dims[0] = this->height; dims[1] = this->width; Matrix *mat = new Matrix(2,dims); Image *res = new Image(mat); for (int y = 0; y < this->height; y++){ for (int x = 0; x < this->width; x++){ T value = high + (*this)(x,y) -(*img)(x,y); (*res)(x, y) = april_utils::clamp(value, low, high); } } return res; } template void Image::threshold_image(T threshold_low, T threshold_high, T value_low, T value_high ){ for (int y = 0; y < this->height; y++){ for (int x = 0; x < this->width; x++){ T value = (*this)(x,y); if (value < threshold_low) (*this)(x,y) = value_low; else if (value > threshold_high) (*this)(x,y) = value_high; } } } #endif // _IMAGE_CC_ april-ann-0.3.1/packages/imaging/Image/c_src/image.h000066400000000000000000000106021234204160600221300ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Jorge Gorbe Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef IMAGE_H #define IMAGE_H #include "referenced.h" #include "matrix.h" #include "affine_transform.h" #include "dataset.h" #include template class Image : public Referenced { public: Matrix *matrix; // dimension 2 is assumed int offset; int width,height; //Constructors Image(Matrix *mat); Image(Matrix *mat, int width, int height, int offset_w, int offset_h); Image(int width, int height, T value=T()); // Image with a new Matrix, filled with value Image(Image &other); // copy constructor //Destructor... virtual ~Image(); //Methods Matrix *getMatrix() { return matrix; } T& operator () (int x, int y) { return matrix->getRawDataAccess()->getPPALForReadAndWrite()[offset+x+y*matrix_width()]; } T operator () (int x, int y) const { return matrix->getRawDataAccess()->getPPALForRead()[offset+x+y*matrix_width()]; } // Bound-checking version of operator() T getpixel(int x, int y, T default_value) const { if (x>=0 && y>=0 && x= 0.0f ? 1.0f : -1.0f); float dy = (y >= 0.0f ? 1.0f : -1.0f); T h1 = (1-fx)*getpixel(int(x), int(y), default_value) + fx*getpixel(int(x+dx), int(y), default_value); T h2 = (1-fx)*getpixel(int(x), int(y+dy), default_value) + fx*getpixel(int(x+dx), int(y+dy), default_value); return (1-fy)*h1 + fy*h2; } int matrix_width() const { return matrix->getDimSize(1); } int matrix_height() const { return matrix->getDimSize(0); } int offset_width() const { return offset % matrix_width(); } int offset_height() const { return offset / matrix_width(); } int count_black_pixels(T threshold) const; Image *clone() const; Image *crop(int width, int height, int offset_w, int offset_h) const; Image *clone_subimage(int width, int height, int offset_w, int offset_h, T default_color) const; Image *crop_with_padding(int width, int height, int offset_w, int offset_h, T default_color) const; void projection_v(T *v) const ; // v is not created here void projection_v(Matrix **m) const; // creates matrix m void projection_h(T *v) const ; // v is not created here void projection_h(Matrix **m) const; // creates matrix m Image *shear_h(double radians, T default_color) const; void shear_h_inplace(double radians, T default_color); void min_bounding_box(float threshold, int *w, int *h, int *x, int *y) const; void copy(const Image *src, int dst_x, int dst_y); Image *rotate90_cw() const; // Rotate 90 degrees clockwise, creates a new image Image *rotate90_ccw() const; // Rotate 90 degrees counter-clockwise, new image Image *resize(int dst_width, int dst_height) const; // Resize an image Image *invert_colors() const; // Invert the color of every pixel, new image Image *convolution5x5(float *k, T default_color=T()) const; Image *affine_transform(AffineTransform2D *trans, T default_value, int *offset_x=0, int *offset_y=0) const; Image *remove_blank_columns() const; Image *add_rows(int top_rows, int bottom_rows, T value) const; Image *substract_image(Image *img, T low, T high) const; Matrix *comb_lineal_forward(int x, int y, int ancho, int alto, int miniancho, int minialto, LinearCombConf *cl); void threshold_image(T low, T high, T value_low, T value_high); }; /*** Implementacion ***/ #include "image.cc" #endif // IMAGE_H april-ann-0.3.1/packages/imaging/Image/c_src/utilImageFloat.cc000066400000000000000000000030631234204160600241150ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Jorge Gorbe Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "utilImageFloat.h" ImageFloat *RGB_to_grayscale(ImageFloatRGB *src) { int dims[2]={src->height, src->width}; MatrixFloat *m = new MatrixFloat(2, dims); ImageFloat *result = new ImageFloat(m); for (int y=0; y < src->height; y++) { for (int x=0; x < src->width; x++) { FloatRGB rgb = (*src)(x,y); (*result)(x,y) = rgb.to_grayscale(); } } return result; } ImageFloatRGB *grayscale_to_RGB(ImageFloat *src) { int dims[2]={src->height, src->width}; Matrix *m = new Matrix(2, dims); ImageFloatRGB *result = new ImageFloatRGB(m); for (int y=0; y < src->height; y++) { for (int x=0; x < src->width; x++) { float val = (*src)(x,y); (*result)(x,y) = FloatRGB(val); } } return result; } april-ann-0.3.1/packages/imaging/Image/c_src/utilImageFloat.h000066400000000000000000000021761234204160600237630ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Jorge Gorbe Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef UTILIMAGEFLOAT #define UTILIMAGEFLOAT #include "utilMatrixFloat.h" #include "matrix.h" #include "image.h" #include "floatrgb.h" typedef Image ImageFloat; typedef Image ImageFloatRGB; ImageFloat *RGB_to_grayscale(ImageFloatRGB *src); ImageFloatRGB *grayscale_to_RGB(ImageFloat *src); #endif // UTILIMAGEFLOAT april-ann-0.3.1/packages/imaging/Image/doc/000077500000000000000000000000001234204160600203525ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/Image/doc/image.dox000066400000000000000000000116421234204160600221540ustar00rootroot00000000000000/** \page image Image * Image.empty(x,y) crea una imagen de tamao x,y, inicializada con ceros, y la devuelve * Image.load(filename) carga una imagen desde fichero (OJO: utiliza convert, que debe estar instalado). Es un simple wrapper de matrix.loadImage(). * Image.load_pgm_gz(filename) carga una imagen desde un fichero PGM comprimido con gzip (.pgm.gz). (OJO: requiere zcat) * Image.save(img, filename) guarda la imagen indicada a un fichero PNM ------------------------------------------------------------------------------- Todas las funciones anteriores utilizan o devuelven objetos de tipo Image. Los objetos de tipo Image representan regiones rectangulares sobre una matriz, interpretadas como pixels en escala de grises. Por ejemplo, supongamos que disponemos de una matriz m de 240 filas y 320 columnas. Podemos definir una imagen I1 que contenga a toda la matriz, pero tambien podemos definir subimagenes sobre la misma matriz. /------------320---------------\ +------------------------------+ \ I1:| +-------------+ | | |I4:| +-----+ | | | | |I2:| | | | | | | | | | | | | | +-----+ | | 240 | +-------------+ | | | +----------------+ | | | I3:| | | | | +----------------+ | / +------------------------------+ Cada uno de estos objetos tiene los siguientes mtodos: - Image(m): constructor. Toma una matriz y devuelve una imagen con las mismas dimensiones. - Image(m, cropstring): constructor. Toma una matriz m y una cadena con la forma "widthxheight+offsetx+offsety". offsetx y offsety son las coordenadas de la esquina superior izquierda desde la esquina superior izquierda (0,0) de la matriz. - Image(m, width, height, offsetx, offsety): constructor. Igual que el anterior pero especificando los parmetros por separado. - crop(cropstring): devuelve una subimagen de si misma, con el tamao y el origen indicado en la cropstring - crop(width, height, offsetx, offsety): devuelve una subimagen con los parametros indicados. - info(): Devuelve, por este orden, la matriz subyacente ylos valores width, height, offsetx y offsety de la imagen. - info_bis(): Devuelve una tabla con las siguientes claves: - "matrix" - "width" - "height" - "offset_width" (offsetx) - "offset_height" (offsety) - getpixel(x,y): Devuelve el valor del pixel en las coordenadas(x,y) - putpixel(x,y,v): Pone el valor v en el pixel (x,y) - clone(): Crea una matriz nueva consistente en una copia de la submatriz definida por la imagen y devuelve Image(matriz_nueva). - projection_h(): Devuelve una matriz unidimensional de talla height en la que el elemento i-simo contiene la suma de los valores la fila i de la imagen - projection_v(): Devuelve una matriz unidimensional de talla width en la que el elemento i-simo contiene la suma de los valores de la columna i de la imagen - shear_h(angle, unit="rad", default_value=CTEBLANCO): - angle: valor numerico, angulo para el shear, valores positivos de angle producen el efecto en la direccion indicada en el dibujo. - unit: "rad", "deg" o "grad" (radianes, grados sexagesimales o grados centesimales) - default_value: valor con el que se rellenarn las areas nuevas de la imagen resultado. Por ejemplo, en el dibujo inferior, la esquina donde esta la palabra "angle" y la esquina opuesta. +-------+ +-------+ | | |\ \ | OLD | | \ NEW \ | | |an\ \ +-------+ |gle+-------+ - shear_h_inplace: igual que la anterior, pero actuando sobre la matriz original - min_bounding_box(umbral): Devuelve una imagen de tamao minimo tal que contenga todos los pixels negros de la imagen original. El parametro umbral determina que pixels seran considerados negros. - copy(img, x, y): Hace una copia de la imagen img en un rectangulo del mismo tamao con la esquina superior izquierda en la posicion (x,y) de la imagen actual. Los siguientes metodos estan pensados para aplicarse a imagenes que contengan lineas de texto. - slant_angle(): devuelve una estimacion del slant de la imagen. Aplicable principalmente a texto. - RLSA(umbral): Aplica el algoritmo RLSA (Run Length smoothing algorithm) a la imagen. - base_lines(): Devuelve dos valores con la posicion de las lineas base inferior y superior (en este orden) del texto. - rotate90cw(amount): Rota la imagen 90 en el sentido de las agujas del reloj. amount debe ser +1 o -1 (cuando es -1 se rota en el sentido contrario). - remove_blank_columns(): Elimina las columnas de una imagen que esten compuestas enteramente por pixels con un valor UMBRAL_BINARIZADO=0.5 definido en la propia funcion en C */ april-ann-0.3.1/packages/imaging/Image/doc/image.txt000066400000000000000000000116061234204160600222010ustar00rootroot00000000000000* Image.empty(x,y) crea una imagen de tamao x,y, inicializada con ceros, y la devuelve * Image.load(filename) carga una imagen desde fichero (OJO: utiliza convert, que debe estar instalado). Es un simple wrapper de matrix.loadImage(). * Image.load_pgm_gz(filename) carga una imagen desde un fichero PGM comprimido con gzip (.pgm.gz). (OJO: requiere zcat) * Image.save(img, filename) guarda la imagen indicada a un fichero PNM ------------------------------------------------------------------------------- Todas las funciones anteriores utilizan o devuelven objetos de tipo Image. Los objetos de tipo Image representan regiones rectangulares sobre una matriz, interpretadas como pixels en escala de grises. Por ejemplo, supongamos que disponemos de una matriz m de 240 filas y 320 columnas. Podemos definir una imagen I1 que contenga a toda la matriz, pero tambien podemos definir subimagenes sobre la misma matriz. /------------320---------------\ +------------------------------+ \ I1:| +-------------+ | | |I4:| +-----+ | | | | |I2:| | | | | | | | | | | | | | +-----+ | | 240 | +-------------+ | | | +----------------+ | | | I3:| | | | | +----------------+ | / +------------------------------+ Cada uno de estos objetos tiene los siguientes mtodos: - Image(m): constructor. Toma una matriz y devuelve una imagen con las mismas dimensiones. - Image(m, cropstring): constructor. Toma una matriz m y una cadena con la forma "widthxheight+offsetx+offsety". offsetx y offsety son las coordenadas de la esquina superior izquierda desde la esquina superior izquierda (0,0) de la matriz. - Image(m, width, height, offsetx, offsety): constructor. Igual que el anterior pero especificando los parmetros por separado. - crop(cropstring): devuelve una subimagen de si misma, con el tamao y el origen indicado en la cropstring - crop(width, height, offsetx, offsety): devuelve una subimagen con los parametros indicados. - info(): Devuelve, por este orden, la matriz subyacente ylos valores width, height, offsetx y offsety de la imagen. - info_bis(): Devuelve una tabla con las siguientes claves: - "matrix" - "width" - "height" - "offset_width" (offsetx) - "offset_height" (offsety) - getpixel(x,y): Devuelve el valor del pixel en las coordenadas(x,y) - putpixel(x,y,v): Pone el valor v en el pixel (x,y) - clone(): Crea una matriz nueva consistente en una copia de la submatriz definida por la imagen y devuelve Image(matriz_nueva). - projection_h(): Devuelve una matriz unidimensional de talla height en la que el elemento i-simo contiene la suma de los valores la fila i de la imagen - projection_v(): Devuelve una matriz unidimensional de talla width en la que el elemento i-simo contiene la suma de los valores de la columna i de la imagen - shear_h(angle, unit="rad", default_value=CTEBLANCO): - angle: valor numerico, angulo para el shear, valores positivos de angle producen el efecto en la direccion indicada en el dibujo. - unit: "rad", "deg" o "grad" (radianes, grados sexagesimales o grados centesimales) - default_value: valor con el que se rellenarn las areas nuevas de la imagen resultado. Por ejemplo, en el dibujo inferior, la esquina donde esta la palabra "angle" y la esquina opuesta. +-------+ +-------+ | | |\ \ | OLD | | \ NEW \ | | |an\ \ +-------+ |gle+-------+ - shear_h_inplace: igual que la anterior, pero actuando sobre la matriz original - min_bounding_box(umbral): Devuelve una imagen de tamao minimo tal que contenga todos los pixels negros de la imagen original. El parametro umbral determina que pixels seran considerados negros. - copy(img, x, y): Hace una copia de la imagen img en un rectangulo del mismo tamao con la esquina superior izquierda en la posicion (x,y) de la imagen actual. Los siguientes metodos estan pensados para aplicarse a imagenes que contengan lineas de texto. - slant_angle(): devuelve una estimacion del slant de la imagen. Aplicable principalmente a texto. - RLSA(umbral): Aplica el algoritmo RLSA (Run Length smoothing algorithm) a la imagen. - base_lines(): Devuelve dos valores con la posicion de las lineas base inferior y superior (en este orden) del texto. - rotate90cw(amount): Rota la imagen 90 en el sentido de las agujas del reloj. amount debe ser +1 o -1 (cuando es -1 se rota en el sentido contrario). - remove_blank_columns(): Elimina las columnas de una imagen que esten compuestas enteramente por pixels con un valor UMBRAL_BINARIZADO=0.5 definido en la propia funcion en C april-ann-0.3.1/packages/imaging/Image/lua_src/000077500000000000000000000000001234204160600212355ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/Image/lua_src/Image.lua000066400000000000000000000026031234204160600227630ustar00rootroot00000000000000function Image.meta_instance:__tostring() local w,h,x,y = self:geometry() local mat = self:matrix() local str = string.format("# Image %dx%d%+d%+d [%s]", w,h,x,y, mat:get_reference_string()) return str end function ImageRGB.meta_instance:__tostring() local w,h,x,y = self:geometry() local mat = self:matrix() local str = string.format("# ImageRGB %dx%d%+d%+d [%s]", w,h,x,y, mat:get_reference_string()) return str end function Image.empty(xsize, ysize) local m=matrix(ysize, xsize) -- OJO: ysize == numfilas, etc return Image(m) end function Image.load(filename) fprintf(io.stderr, "WARNING: Image.load() is deprecated!\n".. "Use ImageIO instead.\n") local m=matrix.loadImage(filename, "gray") return Image(m) end function Image.load_pgm_gz(filename) fprintf(io.stderr, "WARNING: Image.load_pgm_gz() is deprecated!\n".. "Use ImageIO instead.\n") local f=io.popen("zcat "..filename) local s=f:read("*a") f:close() return Image(matrix.fromPNM(s)) end function Image.save(img, filename) fprintf(io.stderr, "WARNING: Image.save() is deprecated!\n".. "Use ImageIO instead.\n") -- Clonamos la imagen para salvar a fichero solo el trozo indicado -- por el crop de la propia imagen, en lugar de TODA la matriz. local i=img:clone() local m=i:info() matrix.saveImage(m, filename) end april-ann-0.3.1/packages/imaging/Image/lua_src/ImageSVG.lua000066400000000000000000000123771234204160600233540ustar00rootroot00000000000000local imageSVG_methods, imageSVG_class_metatable = class("imageSVG") local colors = { "red", "blue", "green", "orange", "purple","yellow"} function imageSVG_class_metatable:__call(params) local obj = {} obj.width = params.width or -1 obj.height = params.height or -1 -- Header, body and footer are tables of strings obj.header = {} obj.body = {} obj.footer = {} obj = class_instance(obj, self) return obj end function imageSVG_methods:setHeader() self.header = {} -- local swidth = tostring(self.width) or "100%" -- local sheight = tostring(self.height) or "100%" local swidth = (self.width ~= -1 and tostring(self.width)) or "100%" local sheight = (self.height ~= -1 and tostring(self.height)) or "100%" table.insert(self.header,string.format("\n", swidth, sheight)) end function imageSVG_methods:setFooter() self.footer = {} table.insert(self.footer, "") end -- Recieves a table with points x,y function imageSVG_methods:addPathFromTable(path, params) --params treatment local id = params.id or "" local stroke = params.stroke or "black" local stroke_width = params.stroke_width or "2" local buffer = {} table.insert(buffer, string.format("", stroke, stroke_width)) table.insert(self.body, table.concat(buffer)) end function imageSVG_methods:getHeader() return table.concat(self.header, "\n") end function imageSVG_methods:getBody() return table.concat(self.body, "\n") end function imageSVG_methods:getFooter() return table.concat(self.footer, "\n") end function imageSVG_methods:getString() return table.concat({self:getHeader(), self:getBody(), self:getFooter()}) end function imageSVG_methods:write(filename) file = io.open(filename, "w") file:write(self:getHeader()) file:write(self:getBody()) file:write(self:getFooter()) end -- Each element of the table is a path function imageSVG_methods:addPaths(paths) for i, path in ipairs(paths) do local color = "black" color = colors[i%#colors+1] -- print(i, color, #path) self:addPathFromTable(path,{stroke = color, id = tostring(i)}) end end -- Each element of the table is a path function imageSVG_methods:addInterestPointPaths(paths, ...) params = table.pack(...) local num_classes = params.num_class or 5 for i, path in ipairs(paths) do -- Process the component -- local color = "black" color = colors[i%#colors+1] self:addPathFromTable(path,{stroke = color, id = tostring(i)}) end end -- Given a table with table of points, draw function imageSVG_methods:addPointsFromTables(tables, size) for i, points in ipairs(tables) do local color = "black" if (i <= #colors) then color = colors[i] end for j, point in ipairs(points) do self:addPoint(point, {color = color, side = size}) end end end function imageSVG_methods:resize(height, width) self.height = height self.width = width end -- Point is a table with two coordinates function imageSVG_methods:addCircle(point, params) local radius = params.radius or 1 local color = params.color or "green" local cx = point[1] local cy = point[2] table.insert(self.body,string.format("", cx, cy, radius, color)) end -- Point is a table with two coordinates function imageSVG_methods:addSquare(point, params) local side = params.side or 1 local color = params.color or "green" if params.cls then color = colors[params.cls] end local x = point[1] local y = point[2] table.insert(self.body,string.format("", x, y, side,side, color)) end function imageSVG_methods:addRect(rect, params) local color = params.color or "black" if params.cls then color = colors[params.cls] end local x = rect[1] local y = rect[2] local w = rect[3] - rect[1] local h = rect[4] - rect[2] table.insert(self.body,string.format(" ", x, y, w, h, color)) end function imageSVG_methods:addPoint(point, params) self:addSquare(point, params) end -- Extra image function function imageSVG_methods:addImage(filename, width, height, offsetX, offsetY) table.insert(self.body, string.format("\n", offsetX, offsetY, width, height, filename)) end function imageSVG.fromImageFile(filename, width, height) mySVG = imageSVG({width = width, height = height}) mySVG:setHeader() mySVG:setFooter() mySVG:addImage(filename, width, height, 0, 0) return mySVG end april-ann-0.3.1/packages/imaging/Image/package.lua000066400000000000000000000030761234204160600217110ustar00rootroot00000000000000 package{ name = "Image", version = "1.0", depends = { "util", "matrix", "AffineTransform2D", "dataset"}, keywords = { "image" }, description = "Image processing module", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, copy{ file= "c_src/image.cc", dest_dir = "include" }, provide_bind{ file = "binding/bind_image.lua.cc", dest_dir = "include" }, provide_bind{ file = "binding/bind_image_RGB.lua.cc", dest_dir = "include" }, }, target{ name = "build", depends = "provide", use_timestamp=true, object{ file = "c_src/image.cc", include_dirs = "${include_dirs}", dest_dir = "build", --debug = "yes", }, object{ file = "c_src/utilImageFloat.cc", include_dirs = "${include_dirs}", dest_dir = "build", --debug = "yes", }, object{ file = "c_src/floatrgb.cc", include_dirs = "${include_dirs}", dest_dir = "build", --debug = "yes", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_image.lua.cc", dest_dir = "build" }, build_bind{ file = "binding/bind_image_RGB.lua.cc", dest_dir = "build" }, }, target{ name = "document", document_src{}, document_bind{}, }, } april-ann-0.3.1/packages/imaging/Image/test/000077500000000000000000000000001234204160600205645ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/Image/test/a01-000u-s00-02.png000066400000000000000000000665241234204160600231710ustar00rootroot00000000000000PNG  IHDRidjC pHYsHHFk>mIDATx]|7X`,mt` vW1P ,TT0Q @AAQOwn%c{׏F|sey^PI%TRI%*8c;D8NV@@8ݛe$uLLܨJ*$v4д6cv 'zs) Ay$P\KK%TRIVC"^sE h#Uk \T}F ɛęԹQI%TR  e3i{-bx "W 9 4/+6(ԕ]Ox~R {TjjBۀ<hUDdt Wc 71$uڜu-݅%`}k:-mtx9j,-N8 ~7{<8؊Kס-kmW'.jKpG~q85yHpNz-IX&.W@h4-Š@*J#=< -NAG M@wA}h[.%Ѓ8W 4enJmFxe¶'*\͙[ qw%@~ hZqg<2k{L /˶w iŵ%vL/sp1IL*WSK"{OkrP ![M܀2F=)hy*M3ZRg]MZ@s=hC Bl-dDf&Y !*5Dś I\jtEEĬˈ=А $w,(&_Աa#}M kPwmLpl B_ʂf@63Yݐ8/jZaj?]Җ+v{}r[8DQ7(t8wZ \o^:dh(ټyOڬ f%, .tK Tѕ3WpwEŪR@3V[1{U.MZᚋ7=Wv:P=nDh%4K6PYqZ$[mxi#I_ႈmc'E]h_ͼ8 Ln 4sKY">fOqlġ b@!&zϱ/$>7z,2tF;&nTq?i&5ͼP%gܕ0DPI ܕNgUo0k4Lv [FQ`!34 hyvm\Mhdn%>xV>:UDAm9v@=nRC`J\ 0)<tTj5 &O&\P-Ar=()4ΙJt\aKIFf<& (I{Ӥ)D C hvo{* G (IK7AML!ÉEҧ]yC-/9^RV .Ww ׂ A/VPB9N ߋ߶ 1 7Ϲ %4ɲ!=̄T*Ƕ o%>_ 6aAjM2rku긎:*bJ!17 m9v&Ha3Yn>sIQ8HѽMJjGB w)T‰5쑻&Mgp$S[I'nƽxRQ~Ր.w@S"цa{}mJMBFL:ÛL ‰ Q&9@6/ͼ t!׸d/|BQ2҉ݑEmR o@|gGT[iPOPD icnq xH J›\G`tj2xXpiseffQgƓP2U6 iDzX҉iZewtSZuAWJZlv;`8'3-R> +(WϣRIA<{%Vib.F Ueu` -$ *~(MQס2&Sf9і^g9!kjx+pp\盖nJCZ _ NF=\q\ͩU4OHmms5K2f:)5HnUP\IL46?ZSCwOc5Pz]nn7)HJqLml[G5w-ݚ4804SwʟrO2 ojGl )T$ڢ y$=`ԅ ECK?@<\>[aٞ7oRrB\Q=pK@8PKFWB&#}kڠ  |E>ҭiPy 6gR=ojaE}wX'5q6Ვ :{^ %plaK7͓d%^\s 2rY,7Wf$NUZ)8jeJQ8E'}@ViTg[<@Xh!<A=9vt!"T-YsQ]tw1w};r mRmejPw5pҽmv`pr[v苩 F)/r=LcU%~*`zɁy3 Y㢚z=XrD3i-\j|wP"Gi9Yn ʠ E]Vu. $VYm^B vϻ|=ctZ\bjJR^X0xvʐ-WpR]XChAIҶp6dIVkf7k- <ɆwC. z@)?7y4uwi\3j䪎ػ{wwxX3MVA!dfzJ =H $HU9jP:y0>z#v =Ec x8(V/W: gE4XB K?_;|U6Eu: { Cx?hdr6![ʞևaDG1PE]m@ao{|>i`9V[~@ 2J{A>\F#4gh!oRNEq*X \wlКL\^柑hցN™Ip4㚪Hih//z'CfNc箃m}stqg}񏛏f<]g/Qf$Iʐ}Z!k>mblͰ)1>cȮ ::dm*G}M`mf+6ɪ c{d85óǒ1*y;΀%h,Wxu{3MA39I6uߙcȡN@яW@ ˫5n[ϡ^*W ={=}r<n[XvL,;ׂ2u ϪZC‡˿0G"z6996>B㑔m'4(xfm`RIdg~ zEuCjA`/V}~INq+دZ##AITfpdğP^"A(>A @10YoAV+ԅit=ܭO lZ0 :}3B]P?.ocZ@]?vżoǵM wEKJ\z|2fu1 ÀqVxT!Y'e\8Rt[zxV M^/y.G5U~GR g[#ޠ|4{ `:mP36["[ _iA.n!d@tbHdѰp4A* R)k 5Ƅ O3nGz?x]ɽ Z ؕR!`cTD ̕el^\)*Kϊ7kIY"LZ5^'hX%40Kx:̰e5~6P$# /Րi]A:@}!k]]b5@Ĝ{"X׷IfJaЀ%k*C}$z0zϳIݢs@nM(H)yVݯ(jPgRq[WcD;7]VQ2yg##*:*5.Sz=[ّ,2x[ۚsME,7ǁ^ ٿ"]#+j 3d#/_3b zv3inGx2s<|3YM!6,>U@mhG?^Vvs'#IUSٿo.>RL49.HiN-@ F :$)u& mr\-ó͡r' Ox|up{`$3|(f">.Cuhf|30oag|`: w\[)x@s@qK*%3̒(8&q^ gG]RrJ&etSJ g/M/y '(bnV Ip-4GDFH#Wev՝S |R3=Izծt%S>4M̨_9WV埉MXfIAZ ]֎rk† X Ɇ=m* VWrt ~'x tw>0#fe̞^JE3v, g̼<[Mc!&hJ<_WPX D s{+HC+&BLw)Ty,&m;3G!wo^ @YXޑ" ƞ0 5Mi1g ]n愜8[猻\gJ U45pBnC~y:֢\>;. ;mS-[ވzK e..Ǔ|L$RRΣr`-KXfjj3YޯYMlV$S}wqn+b22ͥ5._ؤ437utOCFFغyXlI }yY0:FĦ)͆1KGC\Ἧ2X.31wy&d ·]b aPG^~?b! ?C-gHxZLQe2=ZnZMWǠhD4Ca.5p^P~SЖ_Qa4unʽzw -*8z@8 0aGƂ_]'X ?Dג^rj"qEiM}h[*p۠ n9ޱƺGV?vqf&ʕl 1:B4Ypl̪8nvSw~M yCЖ`)xԶt4;ל\EF.#4x~kӏ?Sɿ(}ټ; ,b]h^p"h=A 8ˏ:o Ti0LKa(w[FǮ6h #4*=ԝЊ4Єk[T}zze(z}lp#g(an<0t ά!рg?B8fVt}8{EP7?t󿴋G"v_΢$kE|ho+eQ6$k[g_1p{$Iu-06/]{U<ծ48;p[B'QapeUg{W] U% +ܾy6Z*A,o 𣻩~lnޱ fy')BptP sqaxjM?S P+"QN\VQoL&PH:1 =ZM)fenf6ޛjJ24c0i6^r pO-jBnZq o/US_%srmIyi$ޤgp&]IS ].Z%qv /fOc\?-<0 (r %*~?>sBZh.Dyׂxf, U732HOr !SgUdg3I?#OxR-:(ܲ +ҙ]vLEb񞕀*A#!*pB3 C*}Uͣ(̷KaZNF.Cfف)f_ АN ҖoיaZ^r23*:) Qw%|A&LGB;gWJ lN~<#=w}gKZsQ\@=M3rmF\LP5՜Pa>#_AC|]Bj `#H@f3.PX}?Nk SQޗ̧ "u+/Fo]aBŀ` $DRZF7:w{xB>̉¡Ǻ-eb*,S|C a*}ژ !ڥ 5tCXOϋJuCMcكxcФYFM]{߾,2n"lAcH78D;Vp}arG-H"*ˀN%U;U} C37ƜdmIP *2nBP9Z;;렰 ``"um`*‡b%*0SLB MeFGYy>Z+2nj&h; @ 0cᲈy/ 2 B8۾A$H`1.Ocˢ(RTzic7g)a!uA>?krMoa;_Wr2M3dwḰ+ %卧8rⰪaa}7ߚk2Wjҵ Z&/{y,ˁv0MȐD҄(Tam-w oYN7w^OywH8y"z*⺶/<֝q}- `6Y "R؁Je1// ^8 FV=/f0Dd$|$L>di{O>CQzkNsWۿo^y6}FD &?m1jS-#dT I.B Aa rʆ: (!L.ʆD@b6,:HW&tj΁ήi~BxGIEN$;bB"Q+Pּ +Jv_Eu1K^uԳX`<@IN8pP ˆ G\y\m.oKsi!,J;fƾ5gaO&RPu_7c=l*8('-A'rOж?$ )KB*z耛0^OCk-O";(ތX< Pw++"B-$urd4e$HӬyX)lz];p+ =YeF(JWQ>j8Z[#_{|h ꭄ"4{Eejgyu͐fj(BֿOA:2҆,$BB[+ V44Z8M#i0GL&kR׻6ɔU9[WE)/qHodN &a> $?7x ML;aT '{y0>dp&-YP~q4q0sP@KF*nJ{wXPw# [ һ@-\wLEGB *WG;Ϋ>O.uS?T",TqX`5$0go7`o6Y;ʊ5q:X_wvֆjW^y7ԑ38S oߋ sχw.񅡭#ZDq/36k/ŵ3rnQAQ!K2t;g̢Z7.z%r3h2`/n&t(a_7scYjqxT ; נ3u'i DP5y&M|H1k Q}kTg/jFDQ+QK*w>SlOdx'yFBtq)2_8ή42(mv( at/*) }&*u~V&*[ #Vݩӈ]+ufʠ)˥!(hnbƍCA\+:m^#Dd Y:+<=US=% f?\g ɾr8~v\HJ *kIg^}DюgFl_ol4e&q?ʻ_ `5I>mO#lt^H3ڃ?$kCHx:Hպqub@w(nl6_&P(Ho]3 p"yH0P 7g}(i2В.ab&sAeY@߀Ρ~ٺ,}c''}c2dGΡ֐lWsEI dl@CEUDqCBC/1aJ 'C[bgPËyA|&sƄ}n1k'3 qưʋp\qWˁ$I|<"cīBuDzX%Oڄ?cx7u;~9pJ7 LMf(L[Kd%Y$9ahӣ*i|/ebޯFuvN\X\y4CjsGNk3}ww1KA-)clδNѨuj< 5iz.ㅊT5+Dw\T}EZ(s*w8ΦSڇ0^w o< 4sz@IA#nifhG*P47-wAD@M,ZCxb2k2Rؚd8c.xX^?^Cd:- *jݷB8=Qd}E0[%` lPd3\]zI %}'2*';rZm!+ oAot8 DeNdx2)ʪ @-SkOgoCfD}NffkC!\CX{;T%vEITysh<;4hylMoBnEՂbҖD?g +v iBht"uOd#Ekz KΙ?c8^6s-£]/?5YP,h Γ>MFj%s64s>-GQPLQ4gy3=j@ܜN٩Fy \Ja@@Bi&'N !Mtgi72XQEE}`7"#\AYT97\u/t`.f.F.HNNw67 kM" K!8O^Dʽ7w~QJfR-5L,Bg݁*ޙ 1K֙qfy_Q|%'24mzḔB#%4u#=l:qk}\}P9[:=өIzDdt]Y2.C2Hh I%[w_BY'ڣ>'9Q.,vjqho8 WY'd`\]g+PR_%Uul͢yc$4߂׼NK 92{.]d'w~!UW")nbɝ؉|QpWW8Ѻ'ß*bFouoE'k s F3&-siU\\PLٵ\ Go, m3}h3v΁̘J] jt>&S4f`gfmK:_,EİzoD:Up} MmtXMȓ#qCTWf02!l@uך+`DF6qw'?8=a k86[9nY0صH~ZR߳H2"sx6ڄK|o+űwDZNBb1ór2欴Xl5>knEVQ~=AhTgU(<_a1pP<={n< ⾤?kh Ǜ.r^7U p,J6rs;`ݏ"t(%>xr_`"X qkfssynu3e^AYC8/sEX69x1-ɄyaiBȢ=GTpSՁ BeXPr=:@;NλVDAJi99;p, ƐM4zkeo'[ uHC%œaj@(Aᑾ*tvdJ=At@\2ISy5&t/G\"/ޒIx/w \A,Fg%,7{gjj_xPܼ&$tV2y\#( t3Ca3/behJƀ */9jaD{$HP\5~_,px4ڰy9>PB9~J5 y⤮750'wAt\ySm%7/i P]X5jm}&b#ﾬjaNazSWdٚLV=I tTh"q\gld<T+Zn|+'S3rӯMUp H-M3P~HUւpgwش C l)\+E$G*o`z f < m6楠[g #KRdʹIws 6t4Z1NNKõ(j##$Xp:b MzZE 53\Y: G?ǍߨxA镐3?hg_k@:yv/F"FZ](޲[tv7_d7`UKbY]wmHAC RшS1:佼,GL)|*(GRW2QDpAd'lhiA 5KPf,)dO#^$﹁j;قt%&֣2HbYaL7܈|Bin0SP d=fjM ޾Q` %J ³qRg^ iiS1"5X4>ɰ7ӌTȆ1O8IH3$hA81 ; 0D) 9KB1^ uhd){J)RA|F#zBxPލ@~ 㦺;AJ2vo+ Ҕ` zSN}eHƍ$q̉ZN[~b1@wpSGiLnj176onȌ6kEmG/!@徃zOv+;`->^!kǿ߰ qH)/m 4\{:pAʜ_-PpFYy |ΦFB_1B7@&x*thYȘ_a|Gʆm(K:D!c5!F%*MJ 3? c'boaz:nɏyac0r$5]{)X*n9CN8:>2z0݄!e$veҾu>!΃c-nEyDRZN2Ze3RV\4i_{|ūζ6gFV!T%@n}Wr\΄[D Is"Yv}vbh;C6yJ%Q~J()<\óB' !}b`-@ඡ'-+ h 0SMRu2i73”`[=@%:OqҾXxKi7!޾)(n:ktt41ox7-\Gp &q;LOR`U|YYY;f@tF[rzFZ>ן7طwמ{n:;?x:TJD6 ΨS|# +dKY6"tK1ƄNS_k7 !6͊N1Zl9W~mKGԤQTW{'Řl~݅3Ae\ P'wTyGs]11_ pbd&fH| VMG0H] !spoqr J3:sDwF)qܖ$i~C \kEn -hWz/ XΛq5o-[Y-🯐LY8ó[ܰjviKߝM2VƐNբNX*q $]p9kJnɩN>fa,wk]%-4QM0`[i*/~o=)xu!gmEO219a3G#̕hDq¿rz{9 Sm.c9,3(?@k,ᇐ_w}o78s7f"PC l uB",/H4Ek6= 0nĎ ]AӋ DZ4d_Y!Wva޿f"('DXSmj@]J?O|ƴ3LPT 6^} EE+|G:K߸^L!+wx&<v(i)d; .9]^ Pǣ|J!2q =PiɴΔQT]kH{ū k➭J.ʿ\W1㴙QJ>w0{BzaԢ mcdۧŧě c:H%.7'3O#I/=ghV#Z^?W^Rq.qyO*W f: N 'm6bߚW-, x[3gAL?ݎ$Ij$~aϺtcNjׇpc~W`,uo:a #VAݸ~!wx~7ozN3KK E 48#1;g<;ܙϸob}[\8f[iؗ)h Z]rWm}kt,jȑ` Aq`N0g/yxw!e='J+ll ǛJPޫmq 6U٠%"^\)-,zY-o kr cX= z|e6_i$>[4/Bi&3׆OdE_$F' @ ux, -lC.\gqgfS;mkRb_?g2 RČ2z#N@mO_E< x>=&I>^oYFC08竾/p  G!_:^qY/ぜ`u?$@LtE\0'y 8"}FEӘהJEyVG\rY@vvSv5`7E5rKWk%O(&ݙI3K/~zImBґ{_ҧC~n=]׳svJ>X웠t䑟B#`M;ݐU}1tvckc8iyXq<'lT[OvүpSU/prhAxa*Ka۲1Rıϸqr4iN<a7IDǎb>=7}PisD ,FQqQTN(Z9/-; SZ- T3Eb>X5 5-xb\qXwq\㏞w3[s&aϺ.,z- ȅq\8ΐz]!9?훚۱] }b1RWe kizӸxhR,]j3./-(/=Ӌf)87ۖ',ՄdjD] I/ʗLQ󥱌4@&(]a+׫>V5B,MD s$ /^DMX2!c%afiMJOnCl+nM2/Aly`|ӷ\ #jU. Euׄ5va,)SRz1MA# ;7oag;|]+'ڿ)6 J$},9?_d ^2g-O>e޵",Q3yIvpե73TKۤ1>͇tIW`y4[xΟz9~`9SkĤ^ Z(b״p}294z]Cedތ*?Xh\cr]@XZfJTH]޳L`~ubF>D`0L`a.Av/ Dn5cڈT+BF;`!g)hdתvɝqD8iZ=mLw4YYr /u}SI) =<>r\F 3uiN~;ڰ7Tm.GgwbJuJk:{*\N|?;DT$cxX.qU;eͻ;PH<-:*@{ 8O N@|isHZfO {J A hg-O%'(},,I&0-S:[2vN|¼/~?>:bZ6/jD{!a Iaؘ 򰉊M3z-ҝ *9[9^).ypA}q)kbTopQ1/!GN?i^WOr eЫ@n苮uWpY>uD44;V!r!%H]}Q ԌwuaeqtEƳu>d@?e+0bK-?[Ν2Ӓčg#BuAEﯿD1:yP{{[Ϡu(JZٖ:s_(+uJMMMbĞo؇2D!9E16|02XN "9W]0Acn'޼Qn%!!3"-]JԔvI]!(6ɕMßti|4_玹5|K a zj=9}ıP0MVU~x,Y~C Bj˺kh^_+>ymÚn 2}۵~WS-~mƘ̄X yXoz;;} KỶW쒢^AnJK/}qDLEv)Jkto`m4!mP&SH6ӺV?^ޭX6 ?pyZ\.B% sF] “_LE0Oۣ |SNψ hr)V+&_\vyF2h@ϵAN R |5,q pc0 x֚a OϷFp,^sF>Wf0Q 6J4"7d >'RܢFRЭ AyOkv\#wB JJ SZe/{;&3x`}zw钟.)1j420&Jkc,DrBAm1¤OP!SrvRZR#i U\sĥfu-޻W?+_vMW^7elEy^;q~ .fru7P$h"d cI7CH:5N ';I@J?}]}p/L.)@8yo/|~{\ gCKhlv8[8"Tb`PT:w1㧐EZ]+:4>8lc@gTpRhԃ(-0W 1k8헐ȧ#%p6dy8:ѯwT(Jygdݍڞ \hZ{_,X%Q3˛x\G*fî K^+39r%܎l{95eXSCؗipހ4A\E%F*OQվd3v3㗇:sS&bðJ΍\k_2Է],/•u@yV4t0M[/ay~d;!5x4j!8( 3e`32 zݻOΛx;?6~v( ? F!d"_$m/dYWw=g! ս׀~=rHN3-M,ȑ{RqI5OvY]B׬9}ʉ?ן5?{ {l=VB)f:P%ިE7m)UP֍ d[Lq):8޲w"6fjPPCE.k)@:q0uV>`ARTZ0:SBF ;Bq" lwE qPA  (M]nzЈ̨Bd:\pk"גO?rɔүBTZvc.Obh7 (~҆Ԃ{@+H]\1}՞lC-~Q> n㢳kޫLB7 ^x֚}gMvw0&ɿSh/R.4N*sUmnS2^J|-΄ue&)OJ~D5$W F΋d;x p5Jp\Ø1 v쿻Gvx_h-ѷ"&lHzw~ǟ~kXqm?V'"B\]7Qjo~*Դ )Y;_zp4QTH}+n[Vo<6Ԇ o5?_lTZԁȜХs{osQbx)^`% X0Fj- |rx !y*KbGuH(WR4 xLUIC <2-aמӳAA^Ǯ}-X]?"D1B_Iߓi'#g&mg 'zbMp}GJ4rSU|pE൨.qlj󲕡%s+8Ԅ ł 3'l곁k̀9X'憎^<%^8uhMb%4!gM~X/OwYk+N] n@*hm ̃6WXKѴН^>V6? G!T̈|M.;zv~HRNJHHLM퐙mk8hx9A+:|ڞOOѮSCN̶ӿٶsoᑒ!lgY_TMx}ԣC|JѢfX{ jÆ U}MM_%[c 2.-B^.!CG]'êQ+#ғy,CYMx|nW;TWk7)ggƴNYN79R_vQv> ֙4ƌ;Vk=_uEVXh%H"G,"엔)On6ɫn ż٨e>ÔG:dpAC oQ&\bȱm$N~dԙ `aw̚4|-lxslrl9^!F4?-4`KJcdVT0h±`7u,ꢽ~ڟ>sy/݇݀m'uiʂ~>TIDܴ|wxޭcZt:cI]Pྌj8"-!ye69= \oyį'2b$8_z# DIivBh[\i'pd}w\- b`o5J5`CĩJ|ADbR޻c;ǛdXah2h)i4 w $>x|4jPe[ %&*}%GVGrR0H0Tǫ9~tdž?j%vTw/ߞ5JޚҊڭ@YdG ջ7>@V"JO {92(bbO"\qT_)"A6hse% &E%s(ߒd }~؂ H;,a8"НJ3Ɍ'u7m $O.nG{ʪkjK>[YIéE o\[,4aKANJGyf[xW7߮j? Ogu~4),U{wu8dHr}*]wl H 3v6{MF CQ~,F8rʐx)HL`Fa/"bH }JC-7W_Tј}Բ()pg>,/vg<P@8B)td:Q^0G9RoRTYYV2BSzڂg=5NnkY-cuU*vu]4ǟpiE =ohqϕe)V "WHA)a ?smj>~Xd=qW$sGj{6OrDNQu Rߞ,2NЂ GۆQ5[G:ڟ~ '̾-Br ["AP š4yyFث 9FbxʝDgi-J(+!>ߨS#m=&J р]D%8+RJ^`z^-rSpi+Rf IȘCUvmxOaĽ r^Z@^0n;oǤt{\55c~YS@k}I.On5;]',i)[ߟ^RI4V8p1U,Uk~d@U:[qD )6'c|؄1yZ"l"+lɀR:&^o4Z߰>t Pgj_{ٞJoNnx XP!\ӅBݢR+`DsUCUj'`up*.a3͌1ܘ0\Jm3/o{ªF<8q3_tH!I:~1*tZ2NYۋ<sR @uF?JgOzx x,Bov=: Cn]m@Р *$!9˽Oެ!*$zEhBe+Z0[Z^!Q!\%TRʼn/> L/yjؒ-DSء*H.5TWI%Tjy_>IkU \-.-3JmN2*GpTRIV@Ey:mʽHP+{v\<ë!m;J*hcgi3N# >z}@ i;IpTRIVAYd5^|>5UwN*J*0aޒmJa5Rȓ_ 2S~ *J-M<{read=function, write=function} which contains -- handlers for reading and writing image files. ImageIO={} ImageIO.handlers={} -- ImageIO.read: Reads a image from a file. -- -- params: -- filename: name of the image file to be read -- img_format[optional, defaults to the file extension]: image format -- -- return value: a ImageRGB containing the read image -- function ImageIO.read(filename, img_format) img_format = img_format or string.get_extension(filename) img_format = string.lower(img_format) local format_handler = ImageIO.handlers[img_format] if format_handler ~= nil then return format_handler.read(filename) else -- TODO: call convert, read ppm error(string.format("Image format '%s' not supported", img_format)) end end -- ImageIO.write: Writes a image to a file. -- -- params: -- img: a ImageRGB to be written -- filename: name of the image file to be written -- img_format[optional, defaults to the file extension]: image format -- -- return value: none -- function ImageIO.write(img, filename, img_format) -- TODO: Add proper grayscale image support if type(img) == "Image" then img = img:to_RGB() end img_format = img_format or string.get_extension(filename) img_format = string.lower(img_format) local format_handler = ImageIO.handlers[img_format] if format_handler ~= nil then return format_handler.write(img, filename) else -- TODO: write ppm, call convert error(string.format("Image format '%s' not supported", img_format)) end end april-ann-0.3.1/packages/imaging/ImageIO/package.lua000066400000000000000000000011071234204160600221320ustar00rootroot00000000000000 package{ name = "ImageIO", version = "1.0", depends = { "Image" }, keywords = { "image reader, image" }, description = "loads and saves RGB images", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, }, target{ name = "clean", delete{ dir = "build" }, }, target{ name = "build", depends = "init", use_timestamp = true, luac{ orig_dir = "lua_src", dest_dir = "build", }, }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/imaging/binarization_filter/000077500000000000000000000000001234204160600226215ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/binarization_filter/binding/000077500000000000000000000000001234204160600242335ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/binarization_filter/binding/bind_binarization_filter.lua.cc000066400000000000000000000052201234204160600323530ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco * Zamora-Martinez, Joan Pastor-Pellicer * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C //BIND_END //BIND_HEADER_H #include "bind_image.h" #include "binarization.h" #include "utilMatrixFloat.h" //BIND_END //BIND_LUACLASSNAME ImageFloat Image //BIND_METHOD ImageFloat binarize_niblack { int radius; float k, minThreshold, maxThreshold; LUABIND_CHECK_ARGN(==, 4); LUABIND_GET_PARAMETER(1, int, radius); LUABIND_GET_PARAMETER(2, float, k); LUABIND_GET_PARAMETER(3, float, minThreshold); LUABIND_GET_PARAMETER(4, float, maxThreshold); if (radius < 1) LUABIND_ERROR("median filter, radius must be > 0"); LUABIND_RETURN(ImageFloat, binarize_niblack(obj,radius, k, minThreshold, maxThreshold)); } //BIND_END //BIND_METHOD ImageFloat binarize_niblack_simple { int radius; float k, minThreshold, maxThreshold; LUABIND_CHECK_ARGN(>=, 1); LUABIND_GET_PARAMETER(1, int, radius); LUABIND_GET_OPTIONAL_PARAMETER(2,float, k, 0.2); if (radius < 1) LUABIND_ERROR("median filter, radius must be > 0"); LUABIND_RETURN(ImageFloat, binarize_niblack_simple(obj,radius, k)); } //BIND_END //BIND_METHOD ImageFloat binarize_sauvola { int radius; int r; float k, minThreshold, maxThreshold; LUABIND_CHECK_ARGN(>=, 1); LUABIND_GET_PARAMETER(1, int, radius); LUABIND_GET_OPTIONAL_PARAMETER(2,float, k, 0.5); LUABIND_GET_OPTIONAL_PARAMETER(3,float, r, 128); if (radius < 1) LUABIND_ERROR("median filter, radius must be > 0"); LUABIND_RETURN(ImageFloat, binarize_sauvola(obj,radius, k, r)); } //BIND_END //BIND_METHOD ImageFloat binarize_otsus { LUABIND_CHECK_ARGN(==, 0); LUABIND_RETURN(ImageFloat, binarize_otsus(obj)); } //BIND_END //BIND_METHOD ImageFloat binarize_threshold { double threshold; LUABIND_CHECK_ARGN(==, 1); LUABIND_GET_PARAMETER(1, double, threshold); LUABIND_RETURN(ImageFloat, binarize_threshold(obj, threshold)); } //BIND_END april-ann-0.3.1/packages/imaging/binarization_filter/c_src/000077500000000000000000000000001234204160600237125ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/binarization_filter/c_src/binarization.cc000066400000000000000000000270251234204160600267200ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Jorge Gorbe Moya, Joan Pastor Pellicer * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include #include "binarization.h" ImageFloat *binarize_niblack(const ImageFloat *src, int windowRadius, float k, float minThreshold, float maxThreshold) { april_assert(src->width > 0 && "Zero-sized image!"); april_assert(src->height > 0 && "Zero-sized image!"); ImageFloat *result = new ImageFloat(src->width, src->height); ImageFloat *sum = new ImageFloat(src->width, src->height); ImageFloat *sumOfSquares = new ImageFloat(src->width, src->height); // each pixel in the "sum" image contains the sum of the pixels to the left // and above it, same for sumOfSquares // init to the upper-left corner pixel (*sum)(0,0) = (*src)(0,0); (*sumOfSquares)(0,0) = (*src)(0,0) * (*src)(0,0); // First row for (int x=1; x < src->width; x++) { float current_pixel = (*src)(x,0); (*sum)(x,0) = (*sum)(x-1, 0) + current_pixel; (*sumOfSquares)(x,0) = (*sumOfSquares)(x-1, 0) + current_pixel * current_pixel; } // Rest of rows for (int y=1; y < src->height; y++) for (int x=0; x < src->width; x++) { float s = (*sum)(x,y-1); float s2 = (*sumOfSquares)(x,y-1); if (x>0) { s += (*sum)(x-1,y) - (*sum)(x-1,y-1); s2 += (*sumOfSquares)(x-1, y) - (*sumOfSquares)(x-1,y-1); } float current_pixel = (*src)(x,y); (*sum)(x,y) = s + current_pixel; (*sumOfSquares)(x,y) = s + current_pixel * current_pixel; } // Apply Niblack filter using sum and sumOfSquares for fast mean/std.dev. computation int windowSize = 2*windowRadius+1; int totalWindowPixels = windowSize*windowSize; for (int y=0; y < src->height; y++) for (int x=0; x < src->width; x++) { float val = (*src)(x,y); if (val < minThreshold) { (*result)(x,y) = 0; } else if (val > maxThreshold) { (*result)(x,y) = 1; } else { int windowUpper, windowLower, windowLeft, windowRight; windowUpper = (y-windowRadius < 0 ? 0 : y-windowRadius); windowLeft = (x-windowRadius < 0 ? 0 : x-windowRadius); windowLower = (y+windowRadius > src->height - 1 ? src->height-1 : y+windowRadius); windowRight = (x+windowRadius > src->width - 1 ? src->width -1 : x+windowRadius); // assume pixels outside the image are white (value = 1) int windowPixels = (windowRight-windowLeft+1) * (windowLower-windowUpper+1); float s = totalWindowPixels - windowPixels; float s2 = s; // 1 squared is 1, too s += (*sum)(windowRight, windowLower); s2 += (*sumOfSquares)(windowRight, windowLower); if (windowLeft > 0) { s -= (*sum)(windowLeft-1, windowLower); s2 -= (*sumOfSquares)(windowLeft-1, windowLower); } if (windowUpper > 0) { s -= (*sum)(windowRight, windowUpper-1); s2 -= (*sumOfSquares)(windowRight, windowUpper-1); } if (windowLeft > 0 && windowUpper > 0) { s += (*sum)(windowLeft-1, windowUpper-1); s2 += (*sumOfSquares)(windowLeft-1, windowUpper-1); } float mean = s/totalWindowPixels; float std_dev = sqrt(s2/totalWindowPixels - mean*mean); float threshold = mean + k*std_dev; (*result)(x,y) = val < threshold ? 0 : 1; } } return result; } ImageFloat *binarize_niblack_simple(const ImageFloat *src, int windowRadius, float k) { april_assert(src->width > 0 && "Zero-sized image!"); april_assert(src->height > 0 && "Zero-sized image!"); // Image Integral Matrix ImageFloat *result = new ImageFloat(src->width, src->height); double **M = new double*[src->width]; for(int i = 0; i < src->width; ++i) M[i] = new double[src->height]; // Square Image Integral double **M2 = new double*[src->width]; for(int i = 0; i < src->width; ++i) M2[i] = new double[src->height]; int env=windowRadius; for(int y = 0; y < src->height; y++) for (int x = 0; x < src->width; x++){ M[x][y]=(*src)(x,y); M2[x][y]=(*src)(x,y)*(*src)(x,y); if(x && y){ M[x][y]+=M[x-1][y]+M[x][y-1]-M[x-1][y-1]; M2[x][y]+=M2[x-1][y]+M2[x][y-1]-M2[x-1][y-1]; } else if(x && !y){ M[x][y]+=M[x-1][y]; M2[x][y]+=M2[x-1][y]; } else if(!x && y){ M[x][y]+=M[x][y-1]; M2[x][y]+=M2[x][y-1]; } } for(int y = 0; y < src->height; y++){ for (int x = 0; x < src->width; x++){ int limInf , limSup , limRight,limLeft = 0; int area = 1; // We take the limits of the enviroment if(x-env < 0){ limLeft = 0; } else limLeft=x-env; if(x+env >= src->width){ limRight = src->width-1; } else limRight=x+env; if(y-env < 0){ limSup = 0; } else limSup=y-env; if(y+env >= src->height){ limInf = src->height-1; } else limInf=y+env; area = (limInf-limSup+1)*(limRight-limLeft+1); //Calculate the mean double mean = double(M[limLeft][limSup]+ M[limRight][limInf] - M[limLeft][limInf] -M[limRight][limSup])/area; double mean2 = double(M2[limLeft][limSup]+ M2[limRight][limInf] - M2[limLeft][limInf] -M2[limRight][limSup])/area; //Compute the Standar Deviacion square(Mean^2-mean2) double sd = sqrt(mean2-mean*mean); //Apply the Threshold T=mean-0.2sd float T = mean - k*sd; (*result)(x,y) = (*src)(x,y) < T ? 0 : 1; } } for(int i = 0; i < src->width;++i){ delete []M[i]; delete []M2[i]; } delete []M; delete []M2; return result; } ImageFloat *binarize_sauvola(const ImageFloat *src, int windowRadius, float k, float r) { april_assert(src->width > 0 && "Zero-sized image!"); april_assert(src->height > 0 && "Zero-sized image!"); // Image Integral Matrix ImageFloat *result = new ImageFloat(src->width, src->height); double **M = new double*[src->width]; for(int i = 0; i < src->width; ++i) M[i] = new double[src->height]; // Square Image Integral double **M2 = new double*[src->width]; for(int i = 0; i < src->width; ++i) M2[i] = new double[src->height]; int env=windowRadius; for(int y = 0; y < src->height; y++) for (int x = 0; x < src->width; x++){ M[x][y]=(*src)(x,y); M2[x][y]=(*src)(x,y)*(*src)(x,y); if(x && y){ M[x][y]+=M[x-1][y]+M[x][y-1]-M[x-1][y-1]; M2[x][y]+=M2[x-1][y]+M2[x][y-1]-M2[x-1][y-1]; } else if(x && !y){ M[x][y]+=M[x-1][y]; M2[x][y]+=M2[x-1][y]; } else if(!x && y){ M[x][y]+=M[x][y-1]; M2[x][y]+=M2[x][y-1]; } } for(int y = 0; y < src->height; y++){ for (int x = 0; x < src->width; x++){ int limInf , limSup , limRight,limLeft = 0; int area = 1; // We take the limits of the enviroment if(x-env < 0){ limLeft = 0; } else limLeft=x-env; if(x+env >= src->width){ limRight = src->width-1; } else limRight=x+env; if(y-env < 0){ limSup = 0; } else limSup=y-env; if(y+env >= src->height){ limInf = src->height-1; } else limInf=y+env; area = (limInf-limSup+1)*(limRight-limLeft+1); //Calculate the mean double mean = double(M[limLeft][limSup]+ M[limRight][limInf] - M[limLeft][limInf] -M[limRight][limSup])/area; double mean2 = double(M2[limLeft][limSup]+ M2[limRight][limInf] - M2[limLeft][limInf] -M2[limRight][limSup])/area; //Compute the Standar Deviacion square(Mean^2-mean2) double sd = sqrt(mean2-mean*mean); //Apply the Threshold T=mean-0.2sd float T = mean *(1+k*(sd/(r-1))); (*result)(x,y) = (*src)(x,y) < T ? 0 : 1; } } for(int i = 0; i < src->width;++i){ delete []M[i]; delete []M2[i]; } delete []M; delete []M2; return result; } ImageFloat *binarize_otsus(const ImageFloat *src) { april_assert(src->width > 0 && "Zero-sized image!"); april_assert(src->height > 0 && "Zero-sized image!"); //Image Integral Matrix ImageFloat *result = new ImageFloat(src->width, src->height); int ntotal = src->height*src->width; long double h[255]; int T = 0; long double csum = 0.0; long double sum = 0.0; long double sbmax = -1.0; double p1 = 0.0; double p2 = 0.0; // Prepare the gray histogram for (int i = 0; i< 255; i++) h[i] = 0; // Calculate the histogram for (int y = 1; y < src->height; y++){ for (int x = 1; x < src->width; x++){ // Samplear to 255 value int v = (int)((*src)(x,y)*255); h[v]++; } } // Normalize data // Calculate sum of g * h[g]; for (int i = 0; i< 255; i++){ h[i] = h[i]/ntotal; sum += h[i]*i; } // For each histogram for(int g = 0; g < 255; g++){ double m1 = 0.0; double m2 = 0.0; double sb = 0.0; p1 += h[g]; if ( !p1 ) continue; p2 = 1 - p1; if (!p2) break; csum += g*h[g]; m1 = csum/p1; m2 = (sum - csum) / p2; sb = p1*p2*(m1-m2)*(m1-m2); // Take the best T who maximize inter-class variance if(sb > sbmax){ sbmax = sb; T = g; } } // Apply the new Threshold for(int y = 1; y < src->height; y++) for (int x = 1; x < src->width; x++){ int v = (int)((*src)(x,y)*255); if( v > T) (*result)(x,y) = 1; else (*result)(x,y) = 0; } return result; } ImageFloat *binarize_threshold(const ImageFloat *src, double threshold) { april_assert(src->width > 0 && "Zero-sized image!"); april_assert(src->height > 0 && "Zero-sized image!"); //Image Integral Matrix ImageFloat *result = new ImageFloat(src->width, src->height); int ntotal = src->height*src->width; for (int y = 1; y < src->height; y++){ for (int x = 1; x < src->width; x++){ if ((*src)(x,y) < threshold) { (*result)(x,y) = 0; } else { (*result)(x,y) = 1; } } } return result; } april-ann-0.3.1/packages/imaging/binarization_filter/c_src/binarization.h000066400000000000000000000030271234204160600265560ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Jorge Gorbe Moya, Joan Pastor Pellicer * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef BINARIZATION_H #define BINARIZATION_H #include "utilImageFloat.h" //// Computes Niblack normalization ImageFloat *binarize_niblack(const ImageFloat *src, int windowRadius, float k, float minThreshold, float maxThreshold); //// Another Niblack implementation ImageFloat *binarize_niblack_simple(const ImageFloat *src, int windowRadius, float k); // Sauvolas modification ImageFloat *binarize_sauvola(const ImageFloat *src, int windowRadius, float k, float r) ; //// Otsu's Binarization ImageFloat *binarize_otsus(const ImageFloat *src); /// Simple Image Thresholding ImageFloat *binarize_threshold(const ImageFloat *src, double threshold); #endif april-ann-0.3.1/packages/imaging/binarization_filter/package.lua000066400000000000000000000021141234204160600247150ustar00rootroot00000000000000 package{ name = "binarization_filter", version = "1.0", depends = { "Image" }, keywords = { "image", "binarization filter" }, description = "Filter of images represented as matrix using datasets", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_binarization_filter.lua.cc", dest_dir = "include" }, }, target{ name = "build", depends = "provide", use_timestamp=true, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_binarization_filter.lua.cc", dest_dir = "build" }, }, target{ name = "document", document_src{}, document_bind{}, }, } april-ann-0.3.1/packages/imaging/binarization_filter/test/000077500000000000000000000000001234204160600236005ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/binarization_filter/test/.gitignore000066400000000000000000000000251234204160600255650ustar00rootroot00000000000000# PNG Images # *.png april-ann-0.3.1/packages/imaging/binarization_filter/test/test.lua000066400000000000000000000006721234204160600252670ustar00rootroot00000000000000filename = arg[1] or 'D09TRHW01-1.png' win = arg[2] or 7 gray_image = ImageIO.read(filename):to_grayscale() black_image = gray_image:binarize_niblack_simple(7) ImageIO.write(black_image:to_RGB(),filename.."-niblack.png") black_image = gray_image:binarize_otsus() ImageIO.write(black_image:to_RGB(),filename.."-otsus.png") black_image = gray_image:binarize_threshold(0.7) ImageIO.write(black_image:to_RGB(),filename.."-threshold.png") april-ann-0.3.1/packages/imaging/image_cleaning/000077500000000000000000000000001234204160600215055ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/image_cleaning/.gitignore000066400000000000000000000000301234204160600234660ustar00rootroot00000000000000# VIM SWAP FILES .*.swp april-ann-0.3.1/packages/imaging/image_cleaning/binding/000077500000000000000000000000001234204160600231175ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/image_cleaning/binding/bind_image_cleaning.lua.cc000066400000000000000000000126711234204160600301330ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco * Zamora-Martinez, Joan Pastor-Pellicer * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_H #include #include #include "image_cleaning.h" #include "bind_dataset.h" #include "bind_image.h" #include "bind_matrix.h" //BIND_END ///////////////////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME ImageHistogram image.image_histogram //BIND_CPP_CLASS ImageHistogram //BIND_LUACLASSNAME ImageFloat Image //BIND_CONSTRUCTOR ImageHistogram //DOC_BEGIN // ImageHistogram() // @param number of gray_levels // @param number to compute the radius //DOC_END { LUABIND_CHECK_ARGN(==, 2); int gray_levels; ImageFloat *img; LUABIND_GET_PARAMETER(1, ImageFloat, img); LUABIND_GET_PARAMETER(2, int, gray_levels); ImageHistogram *obj = new ImageHistogram(img, gray_levels); LUABIND_RETURN(ImageHistogram, obj); } //BIND_END //BIND_CONSTRUCTOR ImageHistogram //DOC_BEGIN // ImageHistogram() // @param ImageFloat for compute the histogram // @param number of gray_levels //DOC_END { LUABIND_CHECK_ARGN(==, 2); int gray_levels; ImageFloat *img; LUABIND_GET_PARAMETER(1, ImageFloat, img); LUABIND_GET_PARAMETER(2, int, gray_levels); ImageHistogram *obj = new ImageHistogram(img, gray_levels); LUABIND_RETURN(ImageHistogram, obj); } //BIND_END //BIND_METHOD ImageHistogram generate_window_histogram //DOC_BEGIN // Returns the a 3-D matrix with the integral threshold counter at // each pixel // //DOC_END { LUABIND_CHECK_ARGN(==,1); int radius; LUABIND_GET_PARAMETER(1, int, radius); LUABIND_RETURN(MatrixFloat, obj->generateWindowHistogram(radius)); } //BIND_END //BIND_METHOD ImageHistogram get_integral_histogram //DOC_BEGIN // Returns the 3-D integral matrix with the histogram // //DOC_END { LUABIND_CHECK_ARGN(==,0); LUABIND_RETURN(MatrixFloat, obj->getIntegralHistogram()); } //BIND_END //BIND_DESTRUCTOR ImageHistogram { } //BIND_END //BIND_METHOD ImageFloat get_window_histogram //DOC_BEGIN // Given a image return a 3-D matrix with the histogram // @param number of gray_levels // @param radius //DOC_END { int gray_levels; int radius; LUABIND_CHECK_ARGN(==,2); LUABIND_GET_PARAMETER(1, int, gray_levels); LUABIND_GET_PARAMETER(1, int, radius); ImageHistogram *hist = new ImageHistogram(obj, gray_levels); MatrixFloat *mHist = hist->generateWindowHistogram(radius); delete hist; LUABIND_RETURN(MatrixFloat, mHist); } //BIND_END //BIND_CLASS_METHOD ImageHistogram get_histogram //DOC_BEGIN // Fast for one shot! Returns the histogram of all the image //DOC_END { LUABIND_CHECK_ARGN(==, 2); int gray_levels; ImageFloat *img; LUABIND_GET_PARAMETER(1, ImageFloat, img); LUABIND_GET_PARAMETER(2, int, gray_levels); MatrixFloat *m = ImageHistogram::getHistogram(img, gray_levels); LUABIND_RETURN(MatrixFloat, m); } //BIND_END //BIND_METHOD ImageFloat get_horizontal_histogram //DOC_BEGIN // Returns horizontal for a each row the image //DOC_END { LUABIND_CHECK_ARGN(>=, 1); int radius; LUABIND_GET_OPTIONAL_PARAMETER(2, int, radius, 0); int gray_levels; LUABIND_GET_PARAMETER(1, int, gray_levels); ImageHistogram *hist = new ImageHistogram(obj, gray_levels); MatrixFloat *m = hist->getHorizontalHistogram(radius); delete hist; LUABIND_RETURN(MatrixFloat, m); } //BIND_END // //BIND_METHOD ImageFloat get_vertical_histogram //DOC_BEGIN // Returns vertical for a each row the image //DOC_END { LUABIND_CHECK_ARGN(>=, 1); int radius; LUABIND_GET_OPTIONAL_PARAMETER(2, int, radius, 0); int gray_levels; LUABIND_GET_PARAMETER(1, int, gray_levels); ImageHistogram *hist = new ImageHistogram(obj, gray_levels); MatrixFloat *m = hist->getVerticalHistogram(radius); delete hist; LUABIND_RETURN(MatrixFloat, m); } //BIND_END //BIND_METHOD ImageHistogram get_image_histogram //DOC_BEGIN // Returns the histogram of all the image //DOC_END { LUABIND_CHECK_ARGN(==, 0); MatrixFloat *m = obj->getImageHistogram(); LUABIND_RETURN(MatrixFloat, m); } //BIND_END //BIND_METHOD ImageHistogram get_horizontal_histogram //DOC_BEGIN // Returns horizontal for a each row the image //DOC_END { LUABIND_CHECK_ARGN(>=, 0); int radius; LUABIND_GET_OPTIONAL_PARAMETER(1, int, radius, 0); MatrixFloat *m = obj->getHorizontalHistogram(radius); LUABIND_RETURN(MatrixFloat, m); } //BIND_END // //BIND_METHOD ImageHistogram get_vertical_histogram //DOC_BEGIN // Returns vertical for a each row the image //DOC_END { LUABIND_CHECK_ARGN(>=, 0); int radius; LUABIND_GET_OPTIONAL_PARAMETER(1, int, radius, 0); MatrixFloat *m = obj->getVerticalHistogram(radius); LUABIND_RETURN(MatrixFloat, m); } //BIND_END ////////////////////////////////////////////////////////////////////// april-ann-0.3.1/packages/imaging/image_cleaning/c_src/000077500000000000000000000000001234204160600225765ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/image_cleaning/c_src/image_cleaning.cc000066400000000000000000000164431234204160600260370ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco * Zamora-Martinez, Joan Pastor-Pellicer * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include #include "error_print.h" #include "maxmin.h" #include "image_cleaning.h" MatrixFloat *ImageHistogram::getHistogram(const ImageFloat *img, int gray_levels) { int width = img->width; int height = img->height; int dims[1]; dims[0] = gray_levels; MatrixFloat *matrix = new MatrixFloat(1,dims); matrix->zeros(); int total = height*width; for (int i = 0; i < height; ++i) { for (int j = 0; j < width; ++j) { int h = getIndex((*img)(j,i), gray_levels); (*matrix)(h) += 1; } } //Normalize the histogram for(int h = 0; h < gray_levels; ++h) { (*matrix)(h) /= total; } return matrix; } ImageHistogram::ImageHistogram(const ImageHistogram &other) : Referenced() { width = other.width; height = other.height; gray_levels = other.gray_levels; memcpy(other.integral_histogram, integral_histogram, width*height*gray_levels*sizeof(int)); } void ImageHistogram::computeIntegralHistogram(ImageFloat *img) { for (int i = 0; i < height; ++i) { for (int j = 0; j < width; ++j) { float value = (*img)(j,i); // Copy the last histogram // First point, nothing to copy if (i == 0 && j == 0); // First row else if (i == 0) { for (int h = 0; h < gray_levels; ++h) hist(i,j,h) = hist(i, j - 1, h); } // First column else if (j == 0) { for (int h = 0; h < gray_levels; ++h) hist(i, j, h) = hist(i - 1, j, h); } // else else { for (int h = 0; h < gray_levels; ++h) hist(i, j, h) = hist(i-1,j,h) + hist(i,j-1,h) - hist(i-1,j-1,h); } int h = getIndex(value, gray_levels); hist(i,j,h) = hist(i,j,h) + 1; // First row } } } MatrixFloat * ImageHistogram::generateWindowHistogram(int radius) { int dims[3]; dims[0] = height; dims[1] = width; dims[2] = gray_levels; using april_utils::max; using april_utils::min; MatrixFloat *matrix = new MatrixFloat(3,dims); april_assert(width > (2*radius+1) && height > (2*radius+1) && "The window is bigger than the image limits"); matrix->zeros(); for (int i = 0; i < height; ++i) { for (int j = 0; j < width; ++j) { // Top-Left Corner int top = max(0, i - radius); int left = max(0, j - radius); int bottom = min(height - 1 , i + radius); int right = min(width - 1, j + radius); int window = (bottom - top)*(right - left); int top_left, top_right, bottom_left, bottom_right; // Normalize by size int size = (bottom - top + 1)*(right-left + 1); for(int h = 0; h < gray_levels; ++h) { bottom_right = hist(bottom, right, h); top_left = top_right = bottom_left = 0; if (top != 0 && left != 0) { top_left = hist(top-1, left-1, h); bottom_left = hist(bottom, left-1, h); top_right = hist(top-1, right, h); } else if (top == 0 && left == 0); else if (top == 0) { bottom_left = hist(bottom, left-1, h); } else if(left == 0) { top_right = hist(top-1, right, h); } int value = bottom_right + top_left - bottom_left - top_right; (*matrix)(i, j, h) = (float)value/size; } } } return matrix; } MatrixFloat *ImageHistogram::getWindowHistogram(int x1, int y1, int x2, int y2){ int top = x1; int bottom = x2; int left = y1; int right = y2; // The returned matrix has the gray level histogram int dims[1]; dims[0] = this->gray_levels; MatrixFloat *matrix = new MatrixFloat(1, dims); matrix->zeros(); // Normalize by size int size = (bottom - top + 1)*(right-left + 1); int top_left, top_right, bottom_left, bottom_right; for(int h = 0; h < gray_levels; ++h) { bottom_right = hist(bottom, right, h); top_left = top_right = bottom_left = 0; if (top != 0 && left != 0) { top_left = hist(top-1, left-1, h); bottom_left = hist(bottom, left-1, h); top_right = hist(top-1, right, h); } else if (top == 0 && left == 0); else if (top == 0) { bottom_left = hist(bottom, left-1, h); } else if(left == 0) { top_right = hist(top-1, right, h); } int value = bottom_right + top_left - bottom_left - top_right; (*matrix)(h) = (float)value/size; } return matrix; } MatrixFloat * ImageHistogram::getImageHistogram() { return getWindowHistogram(0,0, height - 1, width - 1); } MatrixFloat * ImageHistogram::getHorizontalHistogram(int radius) { using april_utils::max; using april_utils::min; int dims[2]; dims[0] = this->height; dims[1] = this->gray_levels; MatrixFloat *vHist = new MatrixFloat(2,dims); for (int i = 0; i < this->height; ++i) { //FIXME: Memory allocation on each line MatrixFloat *m = getWindowHistogram(max(i - radius,0) ,0, min(height-1, i + radius), width-1); //TODO: Copy on efficient way for (int h = 0; h < this->gray_levels; ++h) (*vHist)(i,h) = (*m)(h); delete m; } return vHist; } MatrixFloat * ImageHistogram::getVerticalHistogram(int radius) { using april_utils::max; using april_utils::min; int dims[2]; dims[0] = this->width; dims[1] = this->gray_levels; MatrixFloat *vHist = new MatrixFloat(2,dims); for (int i = 0; i < this->width; ++i) { //FIXME: Memory allocation on each line MatrixFloat *m = getWindowHistogram(0,max(0, i-radius), height-1, min(width-1,i+radius)); //TODO: Copy on efficient way for (int h = 0; h < this->gray_levels; ++h) (*vHist)(i,h) = (*m)(h); delete m; } return vHist; } MatrixFloat * ImageHistogram::getIntegralHistogram(){ using april_utils::max; using april_utils::min; int dims[3]; dims[0] = height; dims[1] = width; dims[2] = gray_levels; MatrixFloat *matrix = new MatrixFloat(3, dims); for (int i = 0; i < height; ++i) { for (int j = 0; j < width; ++j) { for(int h = 0; h < gray_levels; ++h) { (*matrix)(i, j, h) = (float)hist(i, j, h); } } } return matrix; } april-ann-0.3.1/packages/imaging/image_cleaning/c_src/image_cleaning.h000066400000000000000000000104471234204160600256770ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Joan Pastor- Pellicer, Salvador España-Boquera, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef IMAGE_CLEANING_H #define IMAGE_CLEANING_H #include #include "referenced.h" #include "datasetFloat.h" #include "utilImageFloat.h" #include "matrix.h" /** Class that contains the counters for calculate the histogram of a given image **/ //// Given a pixel value, returns the index of histogram inline int getIndex(float value, int gray_levels) { if (value >= 1) return gray_levels - 1; return (int) floor(value*gray_levels); } class ImageHistogram : public Referenced { public: int gray_levels; int *integral_histogram; int width, height; /// Creator recieves and image ImageHistogram(ImageFloat *img, int levels) : Referenced(), gray_levels(levels){ this->width = img->width; this->height = img->height; integral_histogram = new int[width*height*levels]; memset(integral_histogram, 0, width*height*levels); computeIntegralHistogram(img); } // Copy Constructor ImageHistogram(const ImageHistogram &other); /// Destructor ~ImageHistogram(){ delete []integral_histogram; }; //Clone ImageHistogram *clone() { return new ImageHistogram(*this); } //// Return the total gray levels int grayLevels() { return gray_levels; } /// Given a radius gets for each pixel the histogram of these window // centered pixel Matrix * generateWindowHistogram(int radius); //// Return a new copy of the integral matrix Matrix * getIntegralHistogram(); /// Compute all the image Histogram Matrix * getImageHistogram(); Matrix * getWindowHistogram(int x1, int y1, int x2, int y2); /// Returns a matrix of size Height*Levels Matrix *getVerticalHistogram(int radius = 0); /// Returns a matrix of size width*levels Matrix *getHorizontalHistogram(int radius = 0); ///Light and slow image histogram. It's used for computing the histogram of an image on a traditional way (without computing the integral interval) static Matrix * getHistogram(const ImageFloat *img, int gray_levels);/*{ int width = img->width; int height = img->height; int dims[1]; dims[0] = gray_levels; Matrix *matrix = new Matrix(1,dims, 0.0); int total = height*width; for (int i = 0; i < height; ++i) { for (int j = 0; j < width; ++j) { int h = getIndex((*img)(i,j), gray_levels); (*matrix)(h) += 1; } } //Normalize the histogram for(int h = 0; h < gray_levels; ++h) { (*matrix)(h) /= total; } return matrix; }*/ protected: /// Accessor to the integral_histogram matrix inline int hist(int x,int y, int h) const { return integral_histogram[x*width*gray_levels + y*gray_levels+h]; } inline int & hist(int x, int y, int h) { return integral_histogram[x*width*gray_levels + y*gray_levels+h]; } //// Takes an Image and Fill the integral matrix void computeIntegralHistogram(ImageFloat *img); // ImageHistogram* clone(); }; #endif april-ann-0.3.1/packages/imaging/image_cleaning/lua_src/000077500000000000000000000000001234204160600231355ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/image_cleaning/lua_src/image_cleaning.lua000066400000000000000000000245411234204160600265700ustar00rootroot00000000000000image = image or {} image.image_cleaning = image.image_cleaning or {} -- Apply neural filter to an image function image.image_cleaning.apply_filter_std(img, neighbors, clean_net) -- Generate the dataset local mImg = img:matrix() local tDim = mImg:dim() local side = neighbors*2 + 1 local dsParams = { patternSize = { side, side }, offset = { -neighbors, -neighbors }, stepSize = { 1,1 }, numSteps = tDim, defaultValue = 1, circular = { false, false } } local dsInput = dataset.matrix(mImg, dsParams) -- Generate output dataset local mClean = matrix(tDim[1], tDim[2]) local paramsClean = { patternSize = {1, 1}, stepSize = {1, 1}, numSteps = { tDim[1], tDim[2] }, defaultValue = 0, } local dsClean = dataset.matrix(mClean, paramsClean) --Apply the net to the dataset -- clean_net:use_dataset { input_dataset = dsInput, output_dataset = dsClean } local imgClean = Image(mClean) return imgClean end -- Apply neural filter to an image function image.image_cleaning.apply_filter_histogram(img, neighbors, levels, radius, clean_net) local mImg = img:matrix() local tDim = mImg:dim() -- Compute image histogram local side = neighbors*2 + 1 local mHist = img:get_window_histogram(levels, radius) -- Generate the dataset local dsParams = { patternSize = { side, side }, offset = { -neighbors, -neighbors }, stepSize = { 1,1 }, numSteps = tDim, defaultValue = 0, circular = { false, false } } local dsHist = { patternSize = {1, 1, levels}, stepSize = {1, 1, levels}, numSteps = { mHist:dim()[1], mHist:dim()[2],1 }, defaultValue = 0, circular = {false, false, false} } local dsDirty = dataset.matrix(mImg, dsParams) local dsHist = dataset.matrix(mHist, dsHist) local dsInput = dataset.join{dsDirty, dsHist} -- Generate output dataset local mClean = matrix(tDim[1], tDim[2]) local paramsClean = { patternSize = {1, 1}, stepSize = {1, 1}, numSteps = { tDim[1], tDim[2] }, defaultValue = 0, } local dsClean = dataset.matrix(mClean, paramsClean) --Apply the net to the dataset -- clean_net:use_dataset { input_dataset = dsInput, output_dataset = dsClean } local imgClean = Image(mClean) return imgClean end -- Returns a Dataset for iterate the image pixel by pixel function image.image_cleaning.getSingleDataset(img, vecinos_salida) img_matrix = img:matrix() local lado_salida = (vecinos_salida*2+1) local params_limpia = { patternSize = {lado_salida, lado_salida}, offset = {-vecinos_salida, -vecinos_salida}, stepSize = {1,1}, numSteps = img_matrix:dim(), defaultValue = 1, -- 1 es blanco circular={false,false} } return dataset.matrix(img_matrix, params_limpia) end april_set_doc("image.image_cleaning.getCleanParameters", { class="function", summary="Function to generete a sets of parameters given an image. ", description= { "This function takes an image and generates feature for each pixel", "Some parameters include raw pixels values around the desired pixels", "other have agreggated values like histogram or median filter.", "The given dataset is optimized in order to do not have copies of duplicated features." }, params= { { "A image object."}, { "A table with parameters with the features to be extracted.", "All the features are optional and only will be generated the given features in the table", "- window = ... size of the side of a sliding window set to each pixel", "- histogram_levels = ... number of the values in the histogram, each the values is computed in range 1/histogram_levels", "- histogram_radio = ... size of the side of a sliding window around the pixel where the histogram will be computed", "- median = ... size of the side of a sliding window around the pixel where the median value is computed", "- vertical = ... if defined generates features of the vertical column of each pixel.", "- horizontal = ... if defined generates features of the vertical column of each pixel.", "- random_perturbation = ... adds a gaussian perturbation of mean 0.5", "- old = ... uses default 8 values for vertical and horizontal histogram", }, }, outputs= { {"It returns a width*height length dataset with the features for each pixel." }, } }) function image.image_cleaning.getCleanParameters(img, params) local function getWindowDataset(img, x_window, y_window) local img_matrix = img:matrix() local ladox = x_window*2+1 local ladoy = y_window*2+1 local params_sucia = { patternSize = {ladoy,ladox}, offset = {-y_window,-x_window}, stepSize = {1,1}, numSteps = img_matrix:dim(), defaultValue = 0, -- 1 es blanco circular = {false,false} } return dataset.matrix(img_matrix, params_sucia) end local function getHistogramDataset(img, levels, radio) local mHist = img:get_window_histogram(levels, radio) local params_sucia_hist = { patternSize = {1,1, levels}, stepSize = {1,1, levels}, numSteps = {mHist:dim()[1], mHist:dim()[2], 1}, defaultValue = 0, circular = {false,false, false}, } return dataset.matrix(mHist, params_sucia_hist) end local function getVerticalHistogram(img, levels, radius) local mVert = img:get_vertical_histogram(levels, radius) local params_vert_hist = { patternSize = {1, levels}, stepSize = {0, 1, 0}, numSteps = { img:matrix():dim()[1], img:matrix():dim()[2], levels}, defaultValue = 0, circular = {false, false}, } return dataset.matrix(mVert, params_vert_hist) end local function getHorizontalHistogram(img, levels, radius) local mHor = img:get_horizontal_histogram(levels, radius) local params_hor_hist = { patternSize = {1, levels}, stepSize = {1,0,0}, numSteps = { img:matrix():dim()[1],img:matrix():dim()[2], levels}, defaultValue = 0, circular = {false, false}, } return dataset.matrix(mHor, params_hor_hist) end local function getMedian(img, radio_mediana, vecinos) local img_median = img:median_filter(radio_mediana) local lado_mediana = 1 + vecinos*2 params_median = { patternSize={lado_mediana,lado_mediana}, offset={-vecinos,-vecinos}, stepSize={1,1}, numSteps=img_median:matrix():dim(), defaultValue = 1, -- 1 es blanco circular={false,false} } return dataset.matrix(img_median:matrix(), params_median) end local table_datasets = {} if params.window then local ds_window = getWindowDataset(img, params.window, params.window) table.insert(table_datasets, ds_window) end if params.x_window and params.y_window then local ds_window = getWindowDataset(img, params.x_window, params.y_window) table.insert(table_datasets, ds_window) end if params.histogram_radio then local ds_hist = getHistogramDataset(img, params.histogram_levels, params.histogram_radio) table.insert(table_datasets, ds_hist) end if params.median then local ds_median = getMedian(img, params.median, 0) table.insert(table_datasets, ds_median) end local levels_hist = params.histogram_levels if params.old then levels_hist = 8 end if params.horizontal then --local ds_hor = getHorizontalHistogram(img, params.histogram_levels, params.horizontal) local ds_hor = getHorizontalHistogram(img, levels_hist, params.horizontal) table.insert(table_datasets, ds_hor) end if params.vertical then --local ds_ver = getVerticalHistogram(img, params.histogram_levels, params.vertical) local ds_ver = getVerticalHistogram(img, levels_hist, params.vertical) table.insert(table_datasets, ds_ver) end local ds_sucia = dataset.join(table_datasets) -- 5. Añadir perturbación -- anyadimos un ruido gaussiano a la imagen sucia if params.random_perturbation then ds_sucia = dataset.perturbation{ dataset = ds_sucia, random = params.random_perturbation or 123, mean = 0, -- de la gaussiana variance = params.variance_perturbation or 0.001, -- de la gaussiana } end return ds_sucia end function image.image_cleaning.getParametersFromString(param_str, old) params = {} -- window v = string.match(param_str, "v_(%d+)") if v then params.window = tonumber(v) end levels = string.match(param_str, "levels_(%d+)") -- histogram_levels if levels then params.histogram_levels = tonumber(levels) end -- histogram_radio histogram = string.match(param_str, "hist_(%d+)") if histogram then params.histogram_radio = tonumber(histogram) end -- median median = string.match(param_str, "median_(%d+)") if median then params.median = tonumber(median) end -- vertical vertical = string.match(param_str, "vertical_(%d+)") if vertical then params.vertical = tonumber(vertical) end -- horizontal horizontal = string.match(param_str, "horizontal_(%d+)") if horizontal then params.horizontal = tonumber(horizontal) end params.old = old --[[for i, v in pairs(params) do print(i,v) end ]] return params end function image.image_cleaning.clean_image(img, net, params) -- Generates the parameters local dsInput = image.image_cleaning.getCleanParameters(img, params) local img_dims = img:matrix():dim() local mClean = matrix(img_dims[1], img_dims[2]) local paramsClean = { patternSize = {1, 1}, stepSize = {1, 1}, numSteps = { img_dims[1], img_dims[2] }, defaultValue = 0, } local dsClean = dataset.matrix(mClean, paramsClean) print(dsInput:patternSize(), net:get_input_size()) -- Use the dataset net:use_dataset { input_dataset = dsInput, output_dataset = dsClean } -- Returns the image local imgClean = Image(mClean) return imgClean end april-ann-0.3.1/packages/imaging/image_cleaning/package.lua000066400000000000000000000021501234204160600236010ustar00rootroot00000000000000 package{ name = "image_cleaning", version = "1.0", depends = { "dataset", "Image" }, keywords = { "image", "cleaning", "tools" }, description = "some util classes and functions to measure image enhancement, cleaning or binarization", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_image_cleaning.lua.cc", dest_dir = "include" }, }, target{ name = "build", depends = "provide", use_timestamp=true, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_image_cleaning.lua.cc", dest_dir = "build" }, }, target{ name = "document", document_src{}, document_bind{}, }, } april-ann-0.3.1/packages/imaging/image_cleaning/test/000077500000000000000000000000001234204160600224645ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/image_cleaning/test/.gitignore000066400000000000000000000000141234204160600244470ustar00rootroot00000000000000*.png *.PNG april-ann-0.3.1/packages/imaging/image_cleaning/test/test_filter.lua000066400000000000000000000006641234204160600255210ustar00rootroot00000000000000filename = arg[1] neighbors = tonumber(arg[2]) mlpFile = arg[3] bunchsize = tonumber(arg[4]) or 32 local fileout = string.remove_extension(filename).."-clean.png" print(filename.." -> "..fileout) local mlpClean = ann.mlp.all_all.load(mlpFile, bunchsize) local imgDirty = ImageIO.read(filename):to_grayscale() local imgClean = image.image_cleaning.apply_filter_std(imgDirty, neighbors, mlpClean) ImageIO.write(imgClean, fileout) april-ann-0.3.1/packages/imaging/image_cleaning/test/test_filter_hist.lua000066400000000000000000000010071234204160600265400ustar00rootroot00000000000000filename = arg[1] neighbors = tonumber(arg[2]) levels = tonumber(arg[3]) radius = tonumber(arg[4]) mlpFile = arg[5] bunchsize = tonumber(arg[6]) or 32 local fileout = string.remove_extension(filename).."-clean_hist.png" print(filename.." -> "..fileout) local mlpClean = ann.mlp.all_all.load(mlpFile, bunchsize) local imgDirty = ImageIO.read(filename):to_grayscale() local imgClean = image.image_cleaning.apply_filter_histogram(imgDirty, neighbors, levels, radius, mlpClean) ImageIO.write(imgClean, fileout) april-ann-0.3.1/packages/imaging/image_cleaning/test/test_histograms.lua000066400000000000000000000023421234204160600264070ustar00rootroot00000000000000 m = matrix.fromString[[ 4 2 ascii 1 0 1 1 1 0 1 0 ]] myImg = Image(m) local height = m:dim()[1] local width = m:dim()[2] print("Image", height, width) print("Integral Histogram Computation") levels = 2 myHist = image.image_histogram(myImg, levels) hist = myHist:get_image_histogram() print(hist:dim()[1]) for i =1, levels do print(i,hist:get(i)) end print("Greedy Histogram Computation") levels = 2 hist = image.image_histogram.get_histogram(myImg, levels) print(hist:dim()[1]) for i =1, levels do print(i,hist:get(i)) end print("Horizontal Histogram Computation") hist = myHist:get_horizontal_histogram() for i = 1, height do for l =1, levels do print(i,l, hist:get(i,l)) end end print("Horizontal Radio Histogram Computation") hist = myHist:get_horizontal_histogram(1) for i = 1, height do for l =1, levels do print(i,l, hist:get(i,l)) end end print("Vertical Histogram Computation") hist = myHist:get_vertical_histogram() for i = 1, width do for l =1, levels do print(i,l, hist:get(i,l)) end end print("Vertical window histogram Computation") hist = myHist:get_vertical_histogram(1) for i = 1, width do for l =1, levels do print(i,l, hist:get(i,l)) end end april-ann-0.3.1/packages/imaging/image_cleaning/test/test_image.lua000066400000000000000000000003551234204160600253130ustar00rootroot00000000000000-- Create a simple Hist object -- Open the image imgFile = arg[1] or "D09TEH01.png" print("ImgFile " .. imgFile) myImg = ImageIO.read(imgFile):to_grayscale() mHistogram = myImg:get_window_histogram(4,5) print("Histogram ", mHistogram) april-ann-0.3.1/packages/imaging/image_cleaning/test/test_matrix.lua000066400000000000000000000007641234204160600255410ustar00rootroot00000000000000 m = matrix.fromString[[ 4 4 ascii 1 0 1 0 1 1 0 1 1 0 1 1 0 0 1 0 ]] myImg = Image(m) myHist = image.image_histogram(myImg,2) hist_integral = myHist:get_integral_histogram() local height = m:dim()[1] local width = m:dim()[2] -- print(hist_integral:toString()) printf("Image Histogram!\n") hist_window = myHist:generate_window_histogram(1) for i = 1, height do for j = 1, width do printf("%f ", hist_window:get(i,j,2)) end printf("\n"); end print(hist_window:toString()) april-ann-0.3.1/packages/imaging/image_cleaning/test/test_simple.lua000066400000000000000000000004211234204160600255140ustar00rootroot00000000000000-- Create a simple Hist object -- Open the image imgFile = arg[1] or "D09TEH01.png" print("ImgFile " .. imgFile) myImg = ImageIO.read(imgFile):to_grayscale() myHist = image.image_histogram(myImg, 4) printf("Histogram created with %d gray levels\n", myHist:gray_levels() ) april-ann-0.3.1/packages/imaging/image_connected_components/000077500000000000000000000000001234204160600241345ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/image_connected_components/binding/000077500000000000000000000000001234204160600255465ustar00rootroot00000000000000bind_image_connected_components.lua.cc000066400000000000000000000062441234204160600351310ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/image_connected_components/binding/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco * Zamora-Martinez, Joan Pastor-Pellicer * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_H #include #include #include "bind_dataset.h" #include "bind_image.h" #include "bind_image_RGB.h" #include "bind_matrix_int32.h" #include "image_connected_components.h" #include "utilImageFloat.h" #include "utilMatrixFloat.h" //BIND_END //BIND_FUNCTION image.test_connected_components { const ImageFloat *img; LUABIND_GET_PARAMETER(1, ImageFloat, img); ImageConnectedComponents components = ImageConnectedComponents(img); LUABIND_RETURN(int, components.size); } //BIND_END ///////////////////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME ImageConnectedComponents image.connected_components //BIND_CPP_CLASS ImageConnectedComponents //BIND_CONSTRUCTOR ImageConnectedComponents //DOC_BEGIN //DOC_END { LUABIND_CHECK_ARGN(==,1); ImageFloat *img; LUABIND_GET_PARAMETER(1, ImageFloat, img); ImageConnectedComponents *obj = new ImageConnectedComponents(img); obj->getColoredImage(); LUABIND_RETURN(ImageConnectedComponents, obj); } //BIND_END //BIND_METHOD ImageConnectedComponents get_size { LUABIND_RETURN(int,obj->size); } //BIND_END //BIND_METHOD ImageConnectedComponents get_colored_image { LUABIND_RETURN(ImageFloatRGB, obj->getColoredImage()); } //BIND_END //BIND_METHOD ImageConnectedComponents get_pixel_matrix { LUABIND_RETURN(MatrixInt32, obj->getPixelMatrix()); } //BIND_END //BIND_METHOD ImageConnectedComponents connected { LUABIND_CHECK_ARGN(==, 4); int x1, y1, x2, y2; LUABIND_GET_PARAMETER(1, int, x1); LUABIND_GET_PARAMETER(2, int, y1); LUABIND_GET_PARAMETER(3, int, x2); LUABIND_GET_PARAMETER(4, int, y2); LUABIND_RETURN(bool, obj->connected(x1, y1, x2, y2)); } //BIND_END //BIND_METHOD ImageConnectedComponents get_bounding_boxes { LUABIND_CHECK_ARGN(==, 0); int size; vector *bbs = obj->getBoundingBoxes(); size = (int) bbs->size(); lua_createtable(L, size, 0); for (size_t i = 0; i < bbs->size(); ++i) { lua_createtable(L, 4, 0); lua_pushint(L,(*bbs)[i].x1); lua_rawseti(L, -2, 1); lua_pushint(L, (*bbs)[i].y1); lua_rawseti(L, -2, 2); lua_pushint(L, (*bbs)[i].x2); lua_rawseti(L, -2, 3); lua_pushint(L, (*bbs)[i].y2); lua_rawseti(L, -2, 4); lua_rawseti(L, -2, i+1); } delete bbs; LUABIND_RETURN_FROM_STACK(-1); } //BIND_END april-ann-0.3.1/packages/imaging/image_connected_components/c_src/000077500000000000000000000000001234204160600252255ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/image_connected_components/c_src/image_connected_components.cc000066400000000000000000000144671234204160600331210ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco * Zamora-Martinez, Joan Pastor-Pellicer * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "image_connected_components.h" namespace rgb_colors { typedef enum { RED, GREEN, BLUE, YELLOW, ORANGE, PURPLE, PINK, BROWN, BLACK } COLOR; float colors[BLACK+1][3] = { { 1, 0, 0}, { 0, 1, 0}, { 0, 0, 1}, { 0, 1, 1}, { 1, 0.5, 1}, {1, 1, 0}, {1, 0, 1}, {0.4, 0.2, 0.5}, {0, 0, 0}, }; float * getIndexColor(int index) { return colors[index%BLACK]; } } inline int to_index(const ImageFloat *img, int x, int y) { return y*img->width + x; } inline void to_coords(const ImageFloat *img, int index, int &x, int &y) { y = index/img->width; x = index%img->width; } void ImageConnectedComponents::dfs_component(int x, int y, int current_component, int ¤t_pixel){ const int dir = 8; int directions[dir][2] = { {-1, -1}, {0, -1}, {1, -1}, {-1, 0}, {1, 0}, {-1, 1}, {0, 1}, {1, 1}}; int index = y*img->width + x; for (int i = 0; i < dir; ++i) { int newx = x + directions[i][0]; int newy = y + directions[i][1]; int new_index = to_index(img, newx, newy); if (newx < 0 || newx >= img->width || newy < 0 || newy >= img->height || pixelComponents[new_index]) continue; if ((*img)(newx, newy) < threshold) {// If it is black components[current_pixel++] = new_index; } if ((*img)(x, y) < threshold || (*img)(newx, newy) < threshold) { pixelComponents[new_index] = current_component; dfs_component(newx, newy, current_component, current_pixel); } } } ImageConnectedComponents::ImageConnectedComponents(const ImageFloat *img, float threshold):threshold(threshold) { // 1. Create a Integer Matrix of the same size of the original image this->img = img; pixelComponents = vector(img->width*img->height, 0); // 2. Count the number of black pixels int black_pixels = img->count_black_pixels(threshold); // 3. Create a component of the size black pixels components = vector(black_pixels); indexComponents = vector(); int current_component = 0; int current_pixel = 0; // 4. Compute the connected components. for (int y = 0; y < img->height; ++y) { for (int x = 0; x < img->width; ++x) { int index = to_index(img, x, y); float value = (*img)(x,y); if ((*img)(x,y) < threshold && !pixelComponents[index]) { pixelComponents[index] = ++current_component; components[current_pixel++] = index; //DFS over the pixel dfs_component(x, y, current_component, current_pixel); indexComponents.push_back(current_pixel); } } } size = current_component; } MatrixInt32 * ImageConnectedComponents::getPixelMatrix(){ int dims[] = {img->height, img->width}; MatrixInt32 *m = new MatrixInt32(2,dims); for (int y = 0; y < img->height; ++y) { for (int x = 0; x < img->width; ++x) { int index = to_index(img, x, y); int value = pixelComponents[index]; (*m)(y,x) = value; } } return m; } ImageFloatRGB *ImageConnectedComponents::getColoredImage() { using rgb_colors::getIndexColor; Matrix *m = new Matrix(2, img->height, img->width); m->fill(FloatRGB(1, 1, 1)); ImageFloatRGB *result = new ImageFloatRGB(m); int first = 0; for (int cc = 0; cc < size; ++cc) { // printf("Component %d %d\n", cc, indexComponents[cc]); for (int i = first; i < indexComponents[cc]; ++i) { float *color = getIndexColor(cc); int index = components[i]; int x, y; to_coords(img, index, x, y); (*m)(y,x) = FloatRGB(color[0], color[1], color[2]); } first = indexComponents[cc]; } return result; } bool ImageConnectedComponents::connected(int x1, int y1, int x2, int y2) { april_assert(x1 <= img->width && x1 > 0 && y1 <= img->height && y1 > 0 && "X1, Y1 point out of bounds"); april_assert(x2 <= img->width && x2 > 0 && y2 <= img->height && y2 > 0 && "X2, Y2 point out of bounds"); int index1 = to_index(img, x1, y1); int index2 = to_index(img, x2, y2); if (!pixelComponents[index1] && !pixelComponents[index2]) { fprintf(stderr, "Warning! One of the point is not in a component\n"); return false; } return pixelComponents[index1] == pixelComponents[index2]; } int ImageConnectedComponents::getComponent(int x, int y) { int index = to_index(img, x, y); return pixelComponents[index] -1; } bounding_box ImageConnectedComponents::getComponentBoundingBox(int component) { assert(component >= 0 && component < size && "The component is not corrected"); int from = component ? indexComponents[component-1] : 0; int to = indexComponents[component]; int x1 = img->width; int y1 = img->height; int x2 = 0; int y2 = 0; for (int i = from; i < to; ++i) { int x, y; int pointIndex = components[i]; to_coords(img, pointIndex, x, y); x1 = min(x1, x); y1 = min(y1, y); x2 = max(x2, x); y2 = max(y2, y); } return bounding_box(x1,y1, x2, y2); } vector * ImageConnectedComponents::getBoundingBoxes() { vector *bbs = new vector(); for (int i = 0; i < size; ++i) { bbs->push_back(getComponentBoundingBox(i)); } return bbs; } april-ann-0.3.1/packages/imaging/image_connected_components/c_src/image_connected_components.h000066400000000000000000000041221234204160600327460ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco * Zamora-Martinez, Joan Pastor-Pellicer * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef IMAGE_CONNECTED_COMPONENTS_H #define IMAGE_CONNECTED_COMPONENTS_H #include "matrixInt32.h" #include "utilImageFloat.h" #include "vector.h" using namespace april_utils; struct bounding_box { int x1, y1; int x2, y2; bounding_box(){}; bounding_box(int x1, int y1, int x2, int y2): x1(x1),y1(y1),x2(x2),y2(y2){} }; class ImageConnectedComponents: public Referenced{ // Matrix of the size of the image that is used to vector pixelComponents; // Vector that stores the black pixels sorted by components vector components; // index that delimites the CCs in components vector indexComponents; //black threshold float threshold; const ImageFloat *img; public: int size; ImageConnectedComponents(const ImageFloat *img, float threshold = 0.7); ~ImageConnectedComponents(){}; private: void dfs_component(int x, int y, int current_component, int ¤t_pixel); public: MatrixInt32 *getPixelMatrix(); bool connected(int x1, int y1, int x2, int y2); int getComponent(int x, int y); ImageFloatRGB *getColoredImage(); bounding_box getComponentBoundingBox(int component); vector *getBoundingBoxes(); }; #endif april-ann-0.3.1/packages/imaging/image_connected_components/package.lua000066400000000000000000000021001234204160600262230ustar00rootroot00000000000000package{ name = "image_connected_components", version = "1.0", depends = {"util", "matrix", "dataset", "Image" }, keywords = { }, description = "A new awesome april package!", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_image_connected_components.lua.cc", dest_dir = "include" }, }, target{ name = "build", depends = "provide", use_timestamp=true, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_image_connected_components.lua.cc", dest_dir = "build" }, }, target{ name = "document", document_src{}, document_bind{}, }, } april-ann-0.3.1/packages/imaging/image_connected_components/test/000077500000000000000000000000001234204160600251135ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/image_connected_components/test/testCC.lua000066400000000000000000000013051234204160600270020ustar00rootroot00000000000000-- Create a simple matrix -- m = matrix(5, 6, { 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1}) -- Create the image local myImg = Image(m) local n_comps = image.test_connected_components(myImg) print (myImg:geometry()) print(n_comps) local comps = image.connected_components(myImg) local index_matrix = comps:get_pixel_matrix() local color_matrix = comps:get_colored_image() ImageIO.write(color_matrix, "matrix.png", "png") print (m) print (index_matrix) print ("Bounding boxes") bbs = comps:get_bounding_boxes() for i,v in ipairs(bbs) do print (v[1], v[2], v[3], v[4]) end april-ann-0.3.1/packages/imaging/image_metrics/000077500000000000000000000000001234204160600213735ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/image_metrics/binding/000077500000000000000000000000001234204160600230055ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/image_metrics/binding/bind_image_metrics.lua.cc000066400000000000000000000111651234204160600277040ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco * Zamora-Martinez, Joan Pastor-Pellicer * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_H #include #include #include "image_metrics.h" #include "bind_dataset.h" //BIND_END ///////////////////////////////////////////////////////////////////////////////// //BIND_LUACLASSNAME ImageMetrics image.image_metrics //BIND_CPP_CLASS ImageMetrics //BIND_CONSTRUCTOR ImageMetrics //DOC_BEGIN // ImageMetrics() // Creates an object for counter ant recover stadistics from comparision of images. // White Pixels are representad as 1, and black as 0 //DOC_END { ImageMetrics *obj = new ImageMetrics(); LUABIND_RETURN(ImageMetrics, obj); } //BIND_END //BIND_METHOD ImageMetrics process_dataset //DOC_BEGIN //Compute the comparition two datasets (extracted from images) to the metric class // //@param predicted dataset with the predicted values //@param ground_truth dataset with the ground_truth values //@param binary (optional) if enabled perform true/false comparision given a threshold //@param threshold Necessary for binary classification //DOC_END { LUABIND_CHECK_ARGN(==,1); check_table_fields(L, 1, "predicted", "ground_truth", "binary", "threshold", (const char *)0); DataSetFloat *ds, *GT; bool binary; float threshold; LUABIND_GET_TABLE_PARAMETER(1, predicted, DataSetFloat, ds); LUABIND_GET_TABLE_PARAMETER(1, ground_truth, DataSetFloat, GT); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, binary, bool, binary, false); LUABIND_GET_TABLE_OPTIONAL_PARAMETER(1, threshold, float, threshold, 0.5); obj->processDataset(ds,GT,binary,threshold); } //BIND_END //BIND_METHOD ImageMetrics process_sample //DOC_BEGIN //compute only one sample //@param pred predicted sample (i.e pixel) //@param reference ground_truth sample //DOC_END { float pred, ref; LUABIND_CHECK_ARGN(==,2); LUABIND_GET_PARAMETER(1,float,pred); LUABIND_GET_PARAMETER(2,float,ref); obj->processSample(pred,ref); } //BIND_END //BIND_METHOD ImageMetrics get_metrics //DOC_BEGIN //@returns a table with this information F-measure, Precission, Recall, GA, True Negative Rate and Accuracy //DOC_END { LUABIND_CHECK_ARGN(==,0); double FM,PR,RC,GA,TNR,ACC,MSE, PSNR, BRP, BRR, FNR; obj->getMetrics(FM,PR,RC,GA,MSE, TNR,ACC, PSNR, BRP, BRR, FNR); /* LUABIND_RETURN(float,FM); LUABIND_RETURN(float,PR); LUABIND_RETURN(float,RC); LUABIND_RETURN(float,GA); LUABIND_RETURN(float,MSE); LUABIND_RETURN(float,TNR); LUABIND_RETURN(float,ACC); */ lua_newtable(L); lua_pushnumber(L,FM); lua_setfield(L,-2,"FM"); lua_pushnumber(L,PR); lua_setfield(L,-2,"PR"); lua_pushnumber(L,RC); lua_setfield(L,-2,"RC"); lua_pushnumber(L,GA); lua_setfield(L,-2,"GA"); lua_pushnumber(L,MSE); lua_setfield(L,-2,"MSE"); lua_pushnumber(L,TNR); lua_setfield(L,-2,"TNR"); lua_pushnumber(L,ACC); lua_setfield(L,-2,"ACC"); lua_pushnumber(L, PSNR); lua_setfield(L,-2,"PSNR"); lua_pushnumber(L,BRP); lua_setfield(L,-2,"BRP"); lua_pushnumber(L,BRR); lua_setfield(L,-2,"BRT"); lua_pushnumber(L,FNR); lua_setfield(L,-2,"FNR"); LUABIND_RETURN_FROM_STACK(-1); } //BIND_END //BIND_METHOD ImageMetrics combine //DOC_BEGIN //Add the information of the parameter Metrics to the metrics information //@param ImageMetric1 Object with image metrics information to add to the actual instance //DOC_END { LUABIND_CHECK_ARGN(==,1); ImageMetrics *im1; LUABIND_GET_PARAMETER(1, ImageMetrics, im1); obj->combine(*im1); } //BIND_END //BIND_METHOD ImageMetrics clone { LUABIND_CHECK_ARGN(==,0); LUABIND_RETURN(ImageMetrics,obj->clone()); } //BIND_END //BIND_METHOD ImageMetrics clear { LUABIND_CHECK_ARGN(==,0); obj->clear(); } //BIND_END //BIND_METHOD ImageMetrics nSamples { LUABIND_CHECK_ARGN(==,0); int nSamples = obj->nSamples(); LUABIND_RETURN(int,nSamples); } //BIND_END ////////////////////////////////////////////////////////////////////// april-ann-0.3.1/packages/imaging/image_metrics/c_src/000077500000000000000000000000001234204160600224645ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/image_metrics/c_src/image_metrics.cc000066400000000000000000000130141234204160600256020ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco * Zamora-Martinez, Joan Pastor-Pellicer * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "error_print.h" #include "image_metrics.h" #include void ImageMetrics::processSample(float pred, float ref){ double act_tp; double act_fp; double act_tn; double act_fn; //tp p(pred=black | ref = black) act_tp = (1-pred)*(1-ref); //fp p(pred=black | ref = white) act_fp = (1-pred)*(ref); //fn p(pred = white | ref = white) act_tn = (pred)*(ref); //tp p(pred = white | ref = black) act_fn = (pred)*(1-ref); true_positives += act_tp; false_positives += act_fp; true_negatives += act_tn; false_negatives += act_fn; //SSE double act_sse = (pred-ref)*(pred-ref); SSE += act_sse; ++n_samples; } // TODO: Overload the + operator void ImageMetrics::clear(){ true_positives = 0.0; false_positives = 0.0; true_negatives = 0.0; false_negatives = 0.0; SSE = 0.0; n_samples = 0; } int ImageMetrics::nSamples(){ return n_samples; } void ImageMetrics::combine(ImageMetrics &m1){ true_positives += m1.true_positives; false_positives += m1.false_positives; true_negatives += m1.true_negatives; false_negatives += m1.false_negatives; SSE += m1.SSE; n_samples += m1.n_samples; } bool ImageMetrics::getMetrics(double &FM, double &PR, double &RC, double &GA,double &MSE, double &TNR, double &ACC, double &PSNR, double &BRP, double &BRR, double &FNR){ if (n_samples == 0) { FM = PR = RC = GA = MSE = TNR = ACC = BRP = BRR = FNR = 0.0f; return false; } PR = true_positives/(true_positives+false_positives); RC = true_positives/(true_positives+false_negatives); if(PR > 1 || RC > 1) { fprintf(stderr,"TP: %f, FP: %f, TN: %f, FN: %f (%lld)\n",true_positives, false_positives, true_negatives, false_negatives,n_samples); exit(0); } if (true_positives == 0) FM = 0.0; else FM = 2*PR*RC/(PR+RC); double b = (true_positives); double B = (true_positives+false_negatives); double w = (true_negatives); double W = (false_positives+true_negatives); // GA GA = sqrt((b*w)/(B*W)); // TNR TNR = true_negatives/(true_negatives+false_positives); // FNR FNR = false_positives/(true_negatives+false_positives); // ACC ACC = (true_positives+true_negatives)/(true_positives+true_negatives+false_positives+false_negatives); // MSE MSE = SSE/n_samples; // PSNR PSNR = 10 * log10(1./MSE); // BRP Black Ratio (Image Predicted) BRP = b/n_samples; // BRP Black Ratio (Reference) BRR = B/n_samples; return true; } void ImageMetrics::processDataset(DataSetFloat *ds, DataSetFloat *GT, bool binary, float threshold) { // Error control if (ds->numPatterns() != GT->numPatterns()) { ERROR_PRINT2("F measure: diferent numPatterns(): %d != %d\n", ds->numPatterns(), GT->numPatterns()); exit(128); } if (ds->patternSize() != GT->patternSize()) { ERROR_PRINT2("F measure: diferent patternSize(): %d != %d\n", ds->patternSize(), GT->patternSize()); exit(128); } if (ds->patternSize() != 1) { ERROR_PRINT1("F measure: patternSize must be 1, and is %d\n", ds->patternSize()); exit(128); } /////////////////////////////////////////////////////////////// const long int patSize = ds->patternSize(); const long int numPats = ds->numPatterns(); if (patSize != 1) { ERROR_PRINT("F measure: patternSize different of 1\n"); exit(128); } // // float *pat_ds = new float[patSize], *pat_GT = new float[patSize]; for (long int i=0; igetPattern(i, pat_ds); GT->getPattern(i, pat_GT); /* if ( pat_GT[0] > 1 || pat_GT[0] < 0) fprintf(stderr, "Warning! Pattern Ground Truth value not in 0 ~ 1 range. Pat: %ld, value: %f\n",i, pat_GT[0]); if ( pat_ds[0] > 1 || pat_ds[0] < 0) fprintf(stderr, "Warning! Pattern predicted value not in 0 ~ 1 range. Pat: %ld, value: %f\n",i, pat_ds[0]); */ if (pat_GT[0] > 1) pat_GT[0] = 1.0; if (pat_GT[0] < 0) pat_GT[0] = 0.0; if (pat_ds[0] > 1) pat_ds[0] = 1.0; if (pat_ds[0] < 0) pat_ds[0] = 0.0; if (binary){ pat_ds[0] = (pat_ds[0] <= threshold)? 0 : 1; pat_GT[0] = (pat_GT[0] <= threshold)? 0 : 1; } processSample(pat_ds[0], pat_GT[0]); } delete[] pat_ds; delete[] pat_GT; return; } ImageMetrics* ImageMetrics::clone() { return new ImageMetrics(true_positives, false_positives, true_negatives, false_negatives, SSE, n_samples); } april-ann-0.3.1/packages/imaging/image_metrics/c_src/image_metrics.h000066400000000000000000000053451234204160600254540ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco * Zamora-Martinez, Joan Pastor-Pellicer * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef IMAGE_METRICS_H #define IMAGE_METRICS_H #include "referenced.h" #include "datasetFloat.h" #include "utilImageFloat.h" /** Class that contains the counters for calculate the metrics on two different datasets (predicted and reference) The counters are doubles, but they can be used as integer (binary classification problem) or doubles (real values classification) **/ class ImageMetrics : public Referenced { public: /// Classification Counters double true_positives; double false_positives; double true_negatives; double false_negatives; //// The SSE cannot be computed throw the counters double SSE; long long int n_samples; //// Creator ImageMetrics(double tp=0.0f, double fp=0.0f, double tn=0.0f, double fn=0.0f, double SSE=0.0, long int n_samples=0) : true_positives(tp), false_positives(fp), true_negatives(tn), false_negatives(fn), SSE(SSE), n_samples(n_samples) { } //// Add one sample to the counters void processSample(float pred, float ref); //// Takes two datasets and add the information to the counters void processDataset(DataSetFloat *ds, DataSetFloat *GT, bool binary, float threshold); /** Returns differents measures FM - Fmeasure PR - Precission RC - Recall GA - Geometrical Arithmetic TNR - True Negative Rate PSNR - Peak signal-to-noise ratio ACC - Acurracy BRP - Black Rate Predicted (ratio of black pixels in prediction) BRR - Black Rate Reference **/ bool getMetrics(double &FM, double &PR, double &RC, double &GA, double &MSE, double &TNR, double &ACC, double &PSNR, double &BRP, double &BRR, double &FNR); //// Take a classes and add the counters to this void combine(ImageMetrics &m1); //// Return the total number of samples int nSamples(); //// Reset the counters void clear(); ImageMetrics* clone(); }; #endif april-ann-0.3.1/packages/imaging/image_metrics/lua_src/000077500000000000000000000000001234204160600230235ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/image_metrics/lua_src/image_metrics.lua000066400000000000000000000027001234204160600263350ustar00rootroot00000000000000--ImageMetrics = ImageMetrics or {} image = image or {} image.image_metrics = image.image_metrics or {} function image.image_metrics.hello() print("Hola mundo") end -- Range indica el primer elemento de la columna, puede ser nil function image.image_metrics.printMetrics(metrics, range, params) results = metrics:get_metrics() if range ~= nil then printf("%s\t",range) end for i,p in ipairs(params) do printf("%0.4f\t",results[p]) end printf("\n") end local function processImages(self, clean_img, gt_img) -- Load a dataset over the image and call process_dataset local dim_clean = clean_img:matrix():dim() local clean_params = { patternSize = {1, 1}, offset = {0,0}, stepSize = {1,1}, numSteps = dim_clean, defaultValue = 1, -- 1 es blanco circular={false,false} } local dim_gt = gt_img:matrix():dim() local gt_params = { patternSize = {1, 1}, stepSize = {1,1}, numSteps = dim_gt, defaultValue = 1, -- 1 es blanco circular={false,false} } local ds_gt = dataset.matrix(clean_img:matrix(), clean_params) local ds_clean = dataset.matrix(gt_img:matrix(), gt_params) self:process_dataset( { predicted = ds_clean, ground_truth = ds_gt, } ) end class_extension(image.image_metrics, "processImages",processImages) april-ann-0.3.1/packages/imaging/image_metrics/package.lua000066400000000000000000000021201234204160600234640ustar00rootroot00000000000000 package{ name = "image_metrics", version = "1.0", depends = { "dataset", "Image" }, keywords = { "image", "f-measure", "mse" }, description = "some metrics to measure image enhancement, cleaning or binarization", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_image_metrics.lua.cc", dest_dir = "include" }, }, target{ name = "build", depends = "provide", use_timestamp=true, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_image_metrics.lua.cc", dest_dir = "build" }, }, target{ name = "document", document_src{}, document_bind{}, }, } april-ann-0.3.1/packages/imaging/image_metrics/test/000077500000000000000000000000001234204160600223525ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/image_metrics/test/.gitignore000066400000000000000000000000251234204160600243370ustar00rootroot00000000000000# PNG Images # *.png april-ann-0.3.1/packages/imaging/image_metrics/test/test.lua000066400000000000000000000007041234204160600240350ustar00rootroot00000000000000 ref = matrix.fromString[[ 10 1 ascii 1 1 1 1 1 1 1 0 0 0]] pred = matrix.fromString[[ 10 1 ascii 0 0 1 1 1 1 1 0 0 0]] ds = dataset.matrix(pred) gt = dataset.matrix(ref) myMetrics = image.image_metrics() myMetrics:process_dataset({ predicted = ds, ground_truth = gt }) res = myMetrics:get_metrics() printf("FMeasure: %f, PR: %f, RC: %f, RC, GA:%f,MSE: %f, TNR: %f, ACC: %f\n",res.FM, res.PR, res.RC, res.GA, res.MSE, res.TNR, res.ACC) april-ann-0.3.1/packages/imaging/image_metrics/test/test_images.lua000066400000000000000000000023761234204160600253710ustar00rootroot00000000000000if #arg ~= 2 then return end pred_img = ImageIO.read(arg[1]):to_grayscale() gt_img = ImageIO.read(arg[2]):to_grayscale() local params_ref = { patternSize = {1,1}, offset = {0,0}, stepSize = {1,1}, numSteps = pred_img:matrix():dim() } local params_gt = { patternSize = {1,1}, offset = {0,0}, stepSize = {1,1}, numSteps = gt_img:matrix():dim() } ds = dataset.matrix(pred_img:matrix(),params_ref) gt = dataset.matrix(gt_img:matrix(),params_gt) myMetrics = image.image_metrics() myMetrics:process_dataset({ predicted = ds, ground_truth = gt }) T = myMetrics:get_metrics() printf("FMeasure: %f, PR: %d, RC: %f, MSE: %f, GA:%f, TNR: %f, ACC: %f, MPM: %f \n", T["FM"], T["RC"], T["PR"], T["MSE"],T["GA"], T["TNR"], T["ACC"], T["MPM"]) myMetricsBin = image.image_metrics() myMetricsBin:process_dataset({ predicted = ds, ground_truth = gt, binary = true, threshold = 0.5 }) T = myMetricsBin:get_metrics() printf("FMeasure: %f, PR: %d, RC: %f, MSE: %f, GA:%f, TNR: %f, ACC: %f, MPM: %f \n", T["FM"], T["RC"], T["PR"], T["MSE"],T["GA"], T["TNR"], T["ACC"], T["MPM"]) local params = {"MSE", "MPM", "FM" } image.image_metrics.printMetrics(myMetricsBin, "image1", params) --myMetricsBin:printMetrics("image1", params) april-ann-0.3.1/packages/imaging/interest_points/000077500000000000000000000000001234204160600220145ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/interest_points/binding/000077500000000000000000000000001234204160600234265ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/interest_points/binding/bind_interest_points.lua.cc000066400000000000000000000256511234204160600307530ustar00rootroot00000000000000//BIND_HEADER_H #include "interest_points.h" #include "utilImageFloat.h" #include "bind_image.h" #include "bind_image_RGB.h" #include "vector.h" #include "pair.h" #include #include using april_utils::Point2D; using namespace InterestPoints; //BIND_END //BIND_FUNCTION interest_points.extract_points_from_image_old { using april_utils::vector; LUABIND_CHECK_ARGN(==,1); ImageFloat *img; LUABIND_GET_PARAMETER(1, ImageFloat, img); vector *result=InterestPoints::extract_points_from_image_old(img); lua_createtable(L, result->size(), 0); for (unsigned int i=1; i <= result->size(); i++) { lua_createtable(L, 2, 0); lua_pushnumber(L, (*result)[i-1].x); lua_rawseti(L, -2, 1); lua_pushnumber(L, (*result)[i-1].y); lua_rawseti(L, -2, 2); lua_rawseti(L, -2, i); } LUABIND_RETURN_FROM_STACK(-1); delete result; } //BIND_END //BIND_FUNCTION interest_points.extract_points_from_image { using april_utils::vector; LUABIND_CHECK_ARGN(==,1); ImageFloat *img; LUABIND_GET_PARAMETER(1, ImageFloat, img); vector *local_minima = new vector(); vector *local_maxima = new vector(); InterestPoints::extract_points_from_image(img, local_maxima, local_minima); lua_createtable(L, local_minima->size(), 0); for (unsigned int i=1; i <= local_minima->size(); i++) { lua_createtable(L, 2, 0); lua_pushnumber(L, (*local_minima)[i-1].x); lua_rawseti(L, -2, 1); lua_pushnumber(L, (*local_minima)[i-1].y); lua_rawseti(L, -2, 2); lua_rawseti(L, -2, i); } lua_createtable(L, local_maxima->size(), 0); for (unsigned int i=1; i <= local_maxima->size(); i++) { lua_createtable(L, 2, 0); lua_pushnumber(L, (*local_maxima)[i-1].x); lua_rawseti(L, -2, 1); lua_pushnumber(L, (*local_maxima)[i-1].y); lua_rawseti(L, -2, 2); lua_rawseti(L, -2, i); } delete local_minima; delete local_maxima; return 2; } //BIND_END //BIND_FUNCTION interest_points.classify_pixel { // Recibe una imagen y la lista de puntos de interés LUABIND_CHECK_ARGN(==,5); ImageFloat *img; int points; LUABIND_GET_PARAMETER(1, ImageFloat, img); LUABIND_CHECK_PARAMETER(2, table); LUABIND_CHECK_PARAMETER(3, table); LUABIND_CHECK_PARAMETER(4, table); LUABIND_CHECK_PARAMETER(5, table); int point_vector_length[4]; vector point_vector[4]; for (int vec=0; vec<4; vec++) { LUABIND_TABLE_GETN(vec+2, point_vector_length[vec]); point_vector[vec].resize(point_vector_length[vec]); for (int i=1; i <= point_vector_length[vec]; ++i) { lua_rawgeti(L,vec+2,i); // punto i-esimo, es una tabla, los vectores estan en pila[4-7] lua_rawgeti(L,-1,1); // x LUABIND_GET_PARAMETER(-1, float, point_vector[vec][i-1].x); lua_pop(L,1); // la quitamos de la pila lua_rawgeti(L,-1,2); // y LUABIND_GET_PARAMETER(-1, float, point_vector[vec][i-1].y); lua_pop(L,2); // la quitamos de la pila, tb la tabla } } MatrixFloat *transitions = NULL; ImageFloat *result = InterestPoints::get_pixel_area(img, point_vector[0], point_vector[1], point_vector[2], point_vector[3], &transitions); LUABIND_RETURN(ImageFloat, result); LUABIND_RETURN(MatrixFloat, transitions); } //BIND_END //BIND_FUNCTION interest_points.get_image_matrix_from_index { LUABIND_CHECK_ARGN(==,4); DataSetFloat *dsOut, *indexed; int height, width; LUABIND_GET_PARAMETER(1, DataSetFloat, dsOut); LUABIND_GET_PARAMETER(2, DataSetFloat, indexed); LUABIND_GET_PARAMETER(3, int, width); LUABIND_GET_PARAMETER(4, int, height); MatrixFloat *mat = InterestPoints::get_image_matrix_from_index(dsOut, indexed, width, height, 3); LUABIND_RETURN(MatrixFloat, mat); } //BIND_END //BIND_FUNCTION interest_points.get_image_area_from_dataset { LUABIND_CHECK_ARGN(>=,4); DataSetFloat *dsOut, *indexed; float threshold; int height, width; LUABIND_GET_PARAMETER(1, DataSetFloat, dsOut); LUABIND_GET_PARAMETER(2, DataSetFloat, indexed); LUABIND_GET_PARAMETER(3, int, width); LUABIND_GET_PARAMETER(4, int, height); LUABIND_GET_OPTIONAL_PARAMETER(5, float, threshold, 0.7); ImageFloat *img = InterestPoints::get_image_area_from_dataset(dsOut, indexed, width, height, 3, threshold); ImageFloatRGB *rgb = InterestPoints::area_to_rgb(img); LUABIND_RETURN(ImageFloatRGB, rgb); LUABIND_RETURN(ImageFloat, img); } //BIND_END //BIND_FUNCTION interest_points.area_to_rgb { LUABIND_CHECK_ARGN(==,1); ImageFloat *img; LUABIND_GET_PARAMETER(1, ImageFloat, img); ImageFloatRGB *result = InterestPoints::area_to_rgb(img); LUABIND_RETURN(ImageFloatRGB, result); } //BIND_END //BIND_FUNCTION interest_points.refine_colored { LUABIND_CHECK_ARGN(==,2); MatrixFloat *mat; ImageFloat *img; LUABIND_GET_PARAMETER(1, ImageFloat, img); LUABIND_GET_PARAMETER(2, MatrixFloat, mat); ImageFloat *result = InterestPoints::refine_colored(img, mat); LUABIND_RETURN(ImageFloat, result); } //BIND_END ////BIND_FUNCTION interest_points.get_indexes_from_colored { // Recibe una imagen y la lista de puntos de interés LUABIND_CHECK_ARGN(>=,1); LUABIND_CHECK_ARGN(<=,2); ImageFloat *img; ImageFloat *img2; int points; LUABIND_GET_PARAMETER(1, ImageFloat, img); LUABIND_GET_OPTIONAL_PARAMETER(2, ImageFloat, img2, NULL); MatrixFloat *m_pixels; MatrixFloat *result = InterestPoints::get_indexes_from_colored(img, img2); LUABIND_RETURN(MatrixFloat, result); } //BIND_END //----------------------------------------- // // CLASS INTEREST POINTS // //----------------------------------------- //BIND_LUACLASSNAME SetPoints interest_points.SetPoints //BIND_CPP_CLASS SetPoints //BIND_CONSTRUCTOR SetPoints //DOC_BEGIN //DOC_END { using InterestPoints::SetPoints; LUABIND_CHECK_ARGN(==,1); ImageFloat *img; LUABIND_GET_PARAMETER(1, ImageFloat, img); SetPoints *obj = new SetPoints(img); LUABIND_RETURN(SetPoints, obj); } //BIND_END //BIND_METHOD SetPoints getNumPoints { LUABIND_RETURN(int, obj->getNumPoints()); } //BIND_END //BIND_METHOD SetPoints addPoint { LUABIND_CHECK_ARGN(==, 2); LUABIND_CHECK_PARAMETER(1, int); LUABIND_CHECK_PARAMETER(2, table); // Recieves a table of 3-elements {x, y, c, type} // Sometimes can include a 5th element with the log-probability int elems; int comp = 1; LUABIND_GET_PARAMETER(1, int, comp); LUABIND_TABLE_GETN(1, elems); int x, y, c; bool type = true; float log_prob = 0.0; lua_rawgeti(L, -1, 1); x = (int)lua_tonumber(L,-1); lua_pop(L,1); lua_rawgeti(L, -1, 2); y = (int)lua_tonumber(L,-1); lua_pop(L,1); lua_rawgeti(L, -1, 3); c = (int)lua_tonumber(L,-1); lua_pop(L,1); lua_rawgeti(L, -1, 4); type = (int)lua_tonumber(L,-1); lua_pop(L,1); bool class_type = (type == 0); if (elems > 4) { lua_rawgeti(L, -1, 4+c); log_prob = lua_tonumber(L,-1); } obj->addPoint(comp, x, y, c, class_type, log_prob); } //BIND_END //BIND_METHOD SetPoints printComponents { obj->print_components(); } //BIND_END //BIND_METHOD SetPoints sortByConfidence { obj->sort_by_confidence(); } //BIND_END //BIND_METHOD SetPoints sortByX { obj->sort_by_x(); } //BIND_END //BIND_METHOD SetPoints getSize { LUABIND_RETURN(int, obj->getSize()); } //BIND_END //BIND_METHOD SetPoints getComponentPoints { // Devuelve una lista de listas de tuplas ;) const vector *v = obj->getComponents(); int tupla_len = 3; // Outer list lua_createtable (L, v->size(), 0); //fprintf(stderr, "GetComponent Size %d (%d) Points: %d\n", v->size(), obj->getSize(), obj->getNumPoints()); for(int i=0; i < (int)v->size(); ++i) { int component_size = (*v)[i].size(); //Inner list lua_createtable (L, component_size, 0); for (int j = 0; j < component_size; ++j) { // Tuple list lua_createtable (L, 3, 0); lua_pushint(L,(*v)[i][j].x); lua_rawseti(L,-2, 1); lua_pushint(L,(*v)[i][j].y); lua_rawseti(L,-2, 2); lua_pushint(L,(*v)[i][j].point_class); lua_rawseti(L,-2, 3); // Add the tuple to the outer list lua_rawseti(L, -2, j+1); } lua_rawseti(L,-2, i+1); } LUABIND_RETURN_FROM_STACK(-1); } //BIND_END /*** Connected Points ***/ //BIND_LUACLASSNAME ConnectedPoints interest_points.ConnectedPoints //BIND_CPP_CLASS ConnectedPoints //BIND_SUBCLASS_OF ConnectedPoints SetPoints //BIND_CONSTRUCTOR ConnectedPoints //DOC_BEGIN //DOC_END { using InterestPoints::ConnectedPoints; LUABIND_CHECK_ARGN(==,1); ImageFloat *img; LUABIND_GET_PARAMETER(1, ImageFloat, img); ConnectedPoints *obj = new ConnectedPoints(img); LUABIND_RETURN(ConnectedPoints, obj); } //BIND_END //BIND_METHOD ConnectedPoints addPoint { LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, table); // Recieves a table of 3-elements {x, y, c, type} // Sometimes can include a 5th element with the log-probability int elems; LUABIND_TABLE_GETN(1, elems); int x, y, c; bool type = true; float log_prob = 0.0; lua_rawgeti(L, -1, 1); x = (int)lua_tonumber(L,-1); lua_pop(L,1); lua_rawgeti(L, -1, 2); y = (int)lua_tonumber(L,-1); lua_pop(L,1); lua_rawgeti(L, -1, 3); c = (int)lua_tonumber(L,-1); lua_pop(L,1); lua_rawgeti(L, -1, 4); type = (int)lua_tonumber(L,-1); lua_pop(L,1); bool class_type = (type == 0); if (elems > 4) { lua_rawgeti(L, -1, 4+c); log_prob = lua_tonumber(L,-1); } obj->addPoint(x, y, c, class_type, log_prob); } //BIND_END //BIND_METHOD ConnectedPoints computeComponents { LUABIND_CHECK_ARGN(==,0); SetPoints *sp = obj->computePoints(); LUABIND_RETURN(SetPoints, sp); } //BIND_END //BIND_METHOD SetPoints getLinearRegression { //Used for drawing the line regression lua_createtable(L, obj->getSize(), 0); int comp = 1; for (int i = 0; i < obj->getSize(); ++i) { PointComponent component = obj->getComponent(i); line *myLine = component.get_regression_line(); if (!myLine){ continue; } // Compute most left and most right points component.sort_by_x(); interest_point p1 = component[0]; interest_point p2 = component[component.size()-1]; float dist = 0.0; Point2D cp1 = myLine->closestPoint(p1,dist); Point2D cp2 = myLine->closestPoint(p2,dist); //ini point and end point lua_createtable(L,2,0); lua_createtable(L,2,0); lua_pushint(L, (int)cp1.x); lua_rawseti(L, -2, 1); lua_pushint(L, (int)cp1.y); lua_rawseti(L, -2, 2); lua_rawseti(L,-2, 1); lua_createtable(L, 2,0); lua_pushint(L, (int)cp2.x); lua_rawseti(L, -2, 1); lua_pushint(L, (int)cp2.y); lua_rawseti(L, -2, 2); lua_rawseti(L, -2, 2); lua_rawseti(L, -2, comp); printf("Componente: %d, Punto A: (%d %d) (%f %f), Punto B: (%d, %d) (%f, %f)\n", i, p1.x, p1.y,cp1.x,cp1.y, p2.x, p2.y, cp2.x, cp2.y); printf("Slope: %f, intercept %f\n", myLine->getSlope(), myLine->getYintercept()); comp++; } //Returns a table of 2 points LUABIND_RETURN_FROM_STACK(-1); } //BIND_END april-ann-0.3.1/packages/imaging/interest_points/c_src/000077500000000000000000000000001234204160600231055ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/interest_points/c_src/interest_points.cc000066400000000000000000001074261234204160600266570ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco * Zamora-Martinez, Joan Pastor-Pellicer * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "interest_points.h" #include "utilImageFloat.h" #include "utilMatrixFloat.h" #include "vector.h" #include "pair.h" #include "swap.h" #include "max_min_finder.h" // para buscar_extremos_trazo #include "qsort.h" #include #include #include "linear_least_squares.h" using namespace april_utils; /*::vector; using april_utils::pair; using april_utils::min; using april_utils::max; using april_utils::max_finder; using april_utils::min_finder; using april_utils::swap; using april_utils::Point2D; */ namespace InterestPoints { struct xy { // un punto que se compara por la y int x, y; xy (int x = 0, int y = 0):x (x), y (y) { } bool operator== (const xy & other) const { return y == other.y; } bool operator< (const xy & other) const { return y < other. y; } }; inline void process_stroke_max (max_finder < xy > &finder, vector < xy > *strokep) { vector < xy > &stroke = *strokep; // mas comodo int sz = stroke.size (); if (sz > 2) { for (int i = 0; i < sz; ++i) finder.put (stroke[i]); finder.end_sequence (); } stroke.clear (); } inline void process_stroke_min (min_finder < xy > &finder, vector < xy > *strokep) { vector < xy > &stroke = *strokep; // mas comodo int sz = stroke.size (); if (sz > 2) { for (int i = 0; i < sz; ++i) finder.put (stroke[i]); finder.end_sequence (); } stroke.clear (); } inline void process_neighborns (vector < Point2D > &v, int line_ini[], int line_end[], int y) { int new_x = line_ini[y] + (line_end[y] - line_ini[y]) / 2; // printf("Adding %d %d\n",new_x, y); v.push_back (Point2D (new_x, y)); line_ini[y] = line_end[y] = -2; } // If several points have the same y, only keep the central one within // a stroke, i.e a straight_line inline void remove_neighborns (vector < Point2D > &v, int dup_int, int h) { int x_act = 0; int * line_ini = new int[h]; int * line_end = new int[h]; vector < Point2D > nV; for (int i = 0; i < h; ++i) line_ini[i] = line_end[i] = -2; int sz = v.size (); for (int p = 0; p < sz; ++p) { int x = v[p].x; int y = v[p].y; // printf("Point %d %d (%d/%d)\n", x, y, x_act, nV.size()); if (x != x_act) x_act = x; //Case 1: new line if (line_end[y] != x - 1) { // Check if is there any line if (line_end[y] != -2) { process_neighborns (nV, line_ini, line_end, y); } line_ini[y] = line_end[y] = x; } else { //Case 2: continue line line_end[y] = x; if (line_end[y] - line_ini[y] > dup_int) { // Process the line process_neighborns (nV, line_ini, line_end, y); } } } // Check if exists unprocessed_neighborns for (int i = 0; i < h; ++i) { if (line_end[i] != -2) { process_neighborns (nV, line_ini, line_end, i); } } v.swap (nV); delete[]line_ini; delete[]line_end; } // Returns true if white, false if not // It is assumed that white is 1 and 0 // otherwise use flag reverse inline bool is_white (float value, float threshold, bool reverse = false) { if (value > threshold) return true xor reverse; if (value == threshold) return true; return false xor reverse; } // Returns true if white, false if not // It is assumed that white is 1 and 0 // otherwise use flag reverse inline bool is_black (float value, float threshold, bool reverse=false) { if (value < threshold) return true xor reverse; if (value == threshold) return true; return false xor reverse; } april_utils::vector < Point2D > *extract_points_from_image_old ( ImageFloat * pimg, float threshold_white, float threshold_black, int local_context, int duplicate_interval) { ImageFloat & img = *pimg; // mas comodo int x, y, h = img.height, w = img.width; int * stamp_max = new int[h]; int * stamp_min = new int[h]; vector < xy > **stroke_vec_max = new vector < xy > *[h]; // resultado vector < xy > **stroke_vec_min = new vector < xy > *[h]; // resultado for (y = 0; y < h; ++y) { stroke_vec_max[y] = new vector < xy >; stroke_vec_min[y] = new vector < xy >; stamp_max[y] = -1; stamp_min[y] = -1; } vector < xy > result_xy; max_finder < xy > maxf (local_context, local_context, &result_xy); min_finder < xy > minf (local_context, local_context, &result_xy); // avanzamos columna a columna por toda la imagen for (x = 0; x < w; ++x) { // el borde inferior de los trazos, subiendo en la columna for (y = h - 1; y > 0; --y) { if ((y == h - 1 || is_white (img (x, y + 1), threshold_white)) && (is_black (img (x, y - 1), threshold_black))) { int index = -1; if (stamp_max[y] == x) index = y; else if (y - 1 >= 0 && stamp_max[y - 1] == x) index = y - 1; else if (y + 1 < h && stamp_max[y + 1] == x) index = y + 1; else if (y - 2 >= 0 && stamp_max[y - 2] == x) index = y - 2; else if (y + 2 < h && stamp_max[y + 2] == x) index = y + 2; else { process_stroke_max (maxf, stroke_vec_max[y]); index = y; } stroke_vec_max[index]->push_back (xy (x, y)); if (index != y) { swap (stroke_vec_max[y], stroke_vec_max[index]); } stamp_max[y] = x + 1; // --y; } } // el borde superior de los trazos, bajando en la columna for (y = 0; y < h - 1; ++y) { if (is_black (img (x, y + 1), threshold_black) && (y == 0 || is_white (img (x, y - 1), threshold_white))) { int index = -1; if (stamp_min[y] == x) index = y; else if (y - 1 >= 0 && stamp_min[y - 1] == x) index = y - 1; else if (y + 1 < h && stamp_min[y + 1] == x) index = y + 1; else if (y - 2 >= 0 && stamp_min[y - 2] == x) index = y - 2; else if (y + 2 < h && stamp_min[y + 2] == x) index = y + 2; else { process_stroke_min (minf, stroke_vec_min[y]); index = y; } stroke_vec_min[index]->push_back (xy (x, y)); if (index != y) { swap (stroke_vec_min[y], stroke_vec_min[index]); } stamp_min[y] = x + 1; ++y; } } } for (y = 0; y < h; ++y) { process_stroke_max (maxf, stroke_vec_max[y]); process_stroke_min (minf, stroke_vec_min[y]); delete stroke_vec_max[y]; delete stroke_vec_min[y]; } delete[]stroke_vec_max; delete[]stroke_vec_min; delete[]stamp_max; delete[]stamp_min; // convertir stroke_set a Point2D int sz = result_xy.size (); vector < Point2D > *result_Point2D = new vector < Point2D > (sz); vector < Point2D > &vec = *result_Point2D; for (int i = 0; i < sz; ++i) { vec[i].x = result_xy[i].x; vec[i].y = result_xy[i].y; } //Delete duplicates remove_neighborns (vec, duplicate_interval, h); return result_Point2D; } void extract_points_from_image (ImageFloat * pimg, vector < Point2D > *local_minima, vector < Point2D > *local_maxima, float threshold_white, float threshold_black, int local_context, int duplicate_interval, bool reverse) { ImageFloat & img = *pimg; // mas comodo int x, y, h = img.height, w = img.width; int * stamp_max = new int[h]; int * stamp_min = new int[h]; vector < xy > **stroke_vec_max = new vector < xy > *[h]; // resultado vector < xy > **stroke_vec_min = new vector < xy > *[h]; // resultado for (y = 0; y < h; ++y) { stroke_vec_max[y] = new vector < xy >; stroke_vec_min[y] = new vector < xy >; stamp_max[y] = -1; stamp_min[y] = -1; } vector < xy > result_max; vector < xy > result_min; max_finder < xy > maxf (local_context, local_context, &result_max); min_finder < xy > minf (local_context, local_context, &result_min); // avanzamos columna a columna por toda la imagen for (x = 0; x < w; ++x) { // el borde inferior de los trazos, subiendo en la columna for (y = h - 1; y > 0; --y) { if ((y == h - 1 || is_white (img (x, y + 1), threshold_white, reverse)) && (is_black (img (x, y - 1), threshold_black, reverse))) { // procesar el pixel int index = -1; if (stamp_max[y] == x) index = y; else if (y - 1 >= 0 && stamp_max[y - 1] == x) index = y - 1; else if (y + 1 < h && stamp_max[y + 1] == x) index = y + 1; else if (y - 2 >= 0 && stamp_max[y - 2] == x) index = y - 2; else if (y + 2 < h && stamp_max[y + 2] == x) index = y + 2; else { process_stroke_max (maxf, stroke_vec_max[y]); index = y; } stroke_vec_max[index]->push_back (xy (x, y)); if (index != y) { swap (stroke_vec_max[y], stroke_vec_max[index]); } stamp_max[y] = x + 1; // --y; } } // el borde superior de los trazos, bajando en la columna for (y = 0; y < h - 1; ++y) { if (is_black (img (x, y + 1), threshold_black,reverse) && (y == 0 || is_white (img (x, y - 1), threshold_white, reverse))) { int index = -1; if (stamp_min[y] == x) index = y; else if (y - 1 >= 0 && stamp_min[y - 1] == x) index = y - 1; else if (y + 1 < h && stamp_min[y + 1] == x) index = y + 1; else if (y - 2 >= 0 && stamp_min[y - 2] == x) index = y - 2; else if (y + 2 < h && stamp_min[y + 2] == x) index = y + 2; else { process_stroke_min (minf, stroke_vec_min[y]); index = y; } stroke_vec_min[index]->push_back (xy (x, y)); if (index != y) { swap (stroke_vec_min[y], stroke_vec_min[index]); } stamp_min[y] = x + 1; ++y; } } } for (y = 0; y < h; ++y) { process_stroke_max (maxf, stroke_vec_max[y]); process_stroke_min (minf, stroke_vec_min[y]); delete stroke_vec_max[y]; delete stroke_vec_min[y]; } delete[]stroke_vec_max; delete[]stroke_vec_min; delete[]stamp_max; delete[]stamp_min; // convertir stroke_set a Point2D int sz = result_min.size (); //printf("Local maxima %d\n", sz); vector < Point2D > &vec_max = *local_maxima; for (int i = 0; i < sz; ++i) { local_maxima->push_back (Point2D (result_min[i].x, result_min[i].y)); } //Delete duplicates remove_neighborns (vec_max, duplicate_interval, h); /// return result_Point2D; sz = result_max.size (); //printf("Local minima %d\n", sz); //vector *result_Point2D_max = new vector(sz); vector < Point2D > &vec_min = *local_minima; for (int i = 0; i < sz; ++i) { local_minima->push_back (Point2D (result_max[i].x, result_max[i].y)); // vec_max[i].x = result_max[i].x; // vec_max[i].y = result_max[i].y; } //Delete duplicates remove_neighborns (vec_min, duplicate_interval, h); /// return result_Point2D; } static Point2D get_next_point(vector v, int index, int width, float default_y) { assert(index+1 >= 0 && "Invalid index"); if (v.size() > 0) { if (index < int(v.size())-1) { return v[index+1]; } else { return Point2D(width-1.0f, v.back().y); } } else { return Point2D(width-1.0f, default_y); } } static Point2D get_first_point(vector v, float default_y, int *index) { Point2D result; if (!v.empty()) { result.x = 0; result.y = v[0].y; if (v[0].x == 0) { *index = 0; // index is the last index we have used in v } else { *index = -1; } } else { result.x = 0.0f; result.y = default_y; *index = -1; } return result; } static void classify_pixel(ImageFloat *img, ImageFloat *result, int col, int ini_row, int end_row, float value) { for(int row = ini_row; row < end_row; ++row) { if (is_black((*img)(col,row), 0.8)) { (*result)(col,row) = value; } } } enum AREAS { UNK, ASC, BODY, DESC }; const float ASC_CODE = 0.2; const float BODY_CODE = 0.4; const float DESC_CODE = 0.6; const float UNK_CODE = 0.8; static int get_tag(float value) { float eps = 0.05; int tag = 0; // Get the label if (value <= ASC_CODE+eps) { tag = 1; } else if(value <= BODY_CODE+eps) { tag = 2; } else if(value <= DESC_CODE+eps) { tag = 3; } return tag; } ImageFloatRGB * area_to_rgb(ImageFloat *img) { int width = img->width; int height = img->height; float eps = 0.05; ImageFloatRGB *rgb = new ImageFloatRGB(width, height, FloatRGB(1.0,1.0,1.0)); for (int y = 0; y < height; ++y) for(int x = 0; x < width; ++x) { float value = (*img)(x,y); if (is_black(value, UNK_CODE+eps)) { // Get the label if (value <= ASC_CODE+eps) { (*rgb)(x,y) = FloatRGB(1.0,0.0,0.0); } else if(value <= BODY_CODE+eps) { (*rgb)(x,y) = FloatRGB(0.0,1.0,0.0); } else if(value <= DESC_CODE+eps) { (*rgb)(x,y) = FloatRGB(0.0,0.0,1.0); } else { (*rgb)(x,y) = FloatRGB(0.5,0.5,0.5); } } } return rgb; } ImageFloat *refine_colored(ImageFloat *img, MatrixFloat *mat, int num_classes) { int height = img->height; int width = img->width; int dims[2] = {height, width}; MatrixFloat::random_access_iterator mat_it(mat); MatrixFloat *result_mat = new MatrixFloat(2, dims); result_mat->fill(1.0); ImageFloat *result = new ImageFloat(result_mat); //FIX_ME // Use Integral Image (image_histograms package) int dim_scores[2] = {height+1, num_classes}; MatrixFloat *scores = new MatrixFloat(2, dim_scores); // Accesor MatrixFloat::random_access_iterator scores_it(scores); // Columns for (int x = 0; x < width; ++x) { //Baseline //FROM DOWN TO UP for (int c = 0; c < num_classes; ++c) { scores_it(height,c) = 0; } for (int y = height-1; y >= 0; --y) { for (int c = 0; c <= num_classes; ++c) { scores_it(y,c) = scores_it(y+1, c) + mat_it(y,x,c); } } // Find baseline transition int max_value = -999999; int argmax_value = 0; for (int y = height-1; y >= 0; --y) { float base_score = scores_it(y,2) - 2*scores_it(y, 0) - 2*scores_it(y, 1); //printf("%d %d %f\n", x, y, base_score); if (base_score > max_value) { argmax_value = y; max_value = base_score; } } int y_base = argmax_value; // Find topline transition max_value = -99999; for (int y = y_base; y >= 0; --y) { float base_score = scores_it(y, 1) - 2*scores_it(y, 0) - 2*scores_it(y, 2); if (base_score > max_value) { argmax_value = y; max_value = base_score; } } //Topline int y_top = argmax_value; classify_pixel(img, result, x, 0, y_top, ASC_CODE); classify_pixel(img, result, x, y_top, y_base, BODY_CODE); classify_pixel(img, result, x, y_base, height, DESC_CODE); } return result; } ImageFloat *get_image_area_from_dataset(DataSetFloat *ds_out, DataSetFloat *indexed, int width, int height, int num_classes = 3, float threshold) { assert(ds_out->numPatterns() == indexed->numPatterns() && "The number of patterns does not fit"); int numPats = ds_out->numPatterns(); int dims[2] = {height, width}; MatrixFloat *result_mat = new MatrixFloat(2, dims); result_mat->fill(1.0); ImageFloat *result = new ImageFloat(result_mat); float ipat; float *ftag = new float[num_classes]; // Get the softmax index for (int i = 0; i < numPats; ++i) { indexed->getPattern(i,&ipat); int index = (int) ipat; ds_out->getPattern(i, ftag); int row = index/width; int column = index%width; int tag = april_utils::argmax(ftag, num_classes)+1; float prob = exp(april_utils::max(ftag, num_classes)); float value = 1.0; switch(tag) { case 1: value = ASC_CODE; break; case 2: value = BODY_CODE; break; case 3: value = DESC_CODE; break; default: break; } if (prob < threshold) value = UNK_CODE; (*result)(column, row) = value; } return result; } // Returns a 3D matrix. 2 first dimensions are the dimensions of the imgage. // The third dimension are the values of the softmax computed for the image MatrixFloat *get_image_matrix_from_index(DataSetFloat *ds_out, DataSetFloat *indexed, int width, int height, int num_classes) { assert(ds_out->numPatterns() == indexed->numPatterns() && "The number of patterns does not fit"); int numPats = ds_out->numPatterns(); int dims[3] = {height, width, num_classes}; MatrixFloat *result_mat = new MatrixFloat(3, dims); MatrixFloat::random_access_iterator it(result_mat); result_mat->fill(0.0); float ipat; float *ftag = new float[num_classes]; // Get the softmax index for (int i = 0; i < numPats; ++i) { indexed->getPattern(i,&ipat); int index = (int) ipat; //Result mat is a matrix in row major (y, x) int row = (index/width); int column = (index%width); ds_out->getPattern(i, ftag);; for (int c = 0; c < num_classes; ++c) { it(row, column,c) = exp(ftag[c]); } int tag = april_utils::argmax(ftag, num_classes)+1; } delete []ftag; return result_mat; } ImageFloat *get_pixel_area(ImageFloat *source, vector ascenders, vector upper_baseline, vector lower_baseline, vector descenders, MatrixFloat **transitions ){ if (upper_baseline.empty() || lower_baseline.empty()) ERROR_EXIT(128, "Upper/Lower baseline munst not be empty"); april_assert(!upper_baseline.empty() && "Upper baseline must not be empty"); april_assert(!lower_baseline.empty() && "Lower baseline must not be empty"); //FILE *ft son las transiciones int width = source->width; int height = source->height; /* Definimos 4 alturas relevantes en las imagenes * * IMAGEN DESTINO IMAGEN ORIGEN * * - 0 --------------------------- cur_asc - * | ascenders | * - dst_upper ----------------- cur_upper - * | body | * - dst_lower ----------------- cur_lower - * | descenders | * - dst_height-1 --------------- cur_desc - */ int tdims[2] = {width, 4}; (*transitions) = new MatrixFloat(2, tdims); MatrixFloat::random_access_iterator trans(*transitions); int dims[2] = {height, width}; MatrixFloat *result_mat = new MatrixFloat(2, dims); result_mat->fill(1.0); ImageFloat *result = new ImageFloat(result_mat); int asc_idx = 0; int upper_idx = 0; int lower_idx = 0; int desc_idx = 0; Point2D next_asc, next_upper, next_lower, next_desc; Point2D prev_asc, prev_upper, prev_lower, prev_desc; prev_asc = get_first_point(ascenders, 0.0f, &asc_idx); next_asc = get_next_point(ascenders, asc_idx, width, 0.0f); asc_idx++; prev_desc = get_first_point(descenders, height-1.0f, &desc_idx); next_desc = get_next_point(descenders, desc_idx, width, height-1.0f); desc_idx++; // Default value won't be used due to precondition prev_upper = get_first_point(upper_baseline, -9999.9f, &upper_idx); next_upper = get_next_point(upper_baseline, upper_idx, width, -9999.9f); upper_idx++; // Default value won't be used due to precondition prev_lower = get_first_point(lower_baseline, -9999.9f, &lower_idx); next_lower = get_next_point(lower_baseline, lower_idx, width, -9999.9f); lower_idx++; int body_columns=0; float body_size_sum=0.0f; int BASELINE_SLACK=int(0.02f*height); for (int column = 0; column < width; column++) { if (column > next_asc.x) { prev_asc = next_asc; next_asc = get_next_point(ascenders, asc_idx, width, 0.0f); asc_idx++; } if (column > next_desc.x) { prev_desc = next_desc; next_desc = get_next_point(descenders, desc_idx, width, height-1.0f); desc_idx++; } if (column > next_upper.x) { prev_upper = next_upper; next_upper = get_next_point(upper_baseline, upper_idx, width, 9999.9f); upper_idx++; } if (column > next_lower.x) { prev_lower = next_lower; next_lower = get_next_point(lower_baseline, lower_idx, width, 9999.9f); lower_idx++; } float cur_upper = max(0.0f, prev_upper.y + ((column - prev_upper.x) / (next_upper.x-prev_upper.x)) * (next_upper.y - prev_upper.y) - BASELINE_SLACK); float cur_lower = min(height - 1.0f, prev_lower.y + ((column - prev_lower.x) / (next_lower.x - prev_lower.x)) * (next_lower.y - prev_lower.y) + BASELINE_SLACK); if (cur_upper > cur_lower) { swap(cur_upper, cur_lower); } float cur_asc = min(cur_upper, prev_asc.y + ((column - prev_asc.x) / (next_asc.x - prev_asc.x) ) * (next_asc.y - prev_asc.y)); float cur_desc = max(cur_lower, prev_desc.y + ((column - prev_desc.x) / (next_desc.x - prev_desc.x)) * (next_desc.y - prev_desc.y)); // Classify the pixels int asc = round(cur_asc); int upper = round(cur_upper); int lower = round(cur_lower); int desc = round(cur_desc); trans(column, 0) = asc; trans(column, 1) = upper; trans(column, 2) = lower; trans(column, 3) = desc; // printf("%d %d %d %d %d\n", column, asc, upper, lower, desc); classify_pixel(source, result, column, asc, upper, ASC_CODE); classify_pixel(source, result, column, upper, lower, BODY_CODE); classify_pixel(source, result, column, lower, desc, DESC_CODE); } return result; } /* * Img2 is used to compute a indexed softmax value using the indexes from the first image * in this case the matrix will have 3 columns: index class_img class_img2 * useful to compute the error of an image */ MatrixFloat * get_indexes_from_colored(ImageFloat *img, ImageFloat *img2) { // Compute the number of pixels int total = 0; int width = img->width; int height = img->height; float eps = 0.05; for (int col = 0; col < width; ++col) { for(int row = 0; row < height; ++row) { if (is_black((*img)(col,row),0.8)) total++; } } int n_imgs = 1; if (img2) { n_imgs = 2; } int dims[2] = {total,n_imgs + 1}; MatrixFloat * m_pixels = new MatrixFloat(2, dims); int current = 0; for (int col= 0; col < width; ++col){ for(int row = 0; row < height; ++row) { float value = (*img)(col,row); float tag = 0; float index = (row)*width+col+1; if (is_black(value,0.8)) { tag = get_tag(value); (*m_pixels)(current,0) = index; (*m_pixels)(current,1) = tag; if (img2) { float value2 = (*img2)(col,row); int tag2 = get_tag(value2); (*m_pixels)(current,2) = tag2; } current++; } } } return m_pixels; } // Class Set Points SetPoints::SetPoints(ImageFloat *img) { // Compute connected components of the image this->img = img; ccPoints = new vector< PointComponent >(); size = 0; num_points = 0; } void SetPoints::addPoint(int component, interest_point ip){ if (component < 0 || component >= size){ fprintf(stderr, "Warning the component %d does not exist!! (Total components %d)\n", component, size); return; } (*ccPoints)[component].push_back(ip); ++num_points; } void SetPoints::addComponent() { if ((size_t) size != ccPoints->size()) fprintf(stderr, "Size sincronization error %d %lu\n", size, ccPoints->size()); april_assert("Size sincronization error" && (size_t)size == ccPoints->size()); (*ccPoints).push_back(PointComponent()); ++size; } // Class Interest Points ConnectedPoints::ConnectedPoints(ImageFloat *img): SetPoints::SetPoints(img){ // Compute connected components of the image imgCCs = new ImageConnectedComponents(img); ccPoints->resize(imgCCs->size); size = imgCCs->size; fprintf(stderr, "Hay %d componentes\n", imgCCs->size); num_points = 0; } void SetPoints::addComponent(PointComponent &component) { if ((size_t) size != ccPoints->size()) fprintf(stderr, "Size sincronization error %d %lu\n", size, ccPoints->size()); april_assert("Size sincronization error" && (size_t)size == ccPoints->size()); (*ccPoints).push_back(component); ++size; } void ConnectedPoints::addPoint(interest_point ip) { int x, y; x = ip.x; // It is local maxima, add 1 to the y for take the component if( ip.natural_type) { y = ip.y + 1; } else { y = ip.y - 1; } int component = this->imgCCs->getComponent(x,y); if (component >= 0) { SetPoints::addPoint(component,ip); ++num_points; } else { fprintf(stderr,"Warning the point of interest (%d,%d,%d, %d) is not in any component (%d, %d)\n", ip.x, ip.y, ip.point_class, ip.natural_type, x, y); } } /** * * Points comparatarors * **/ bool componentComparator(PointComponent &v1, PointComponent &v2) { if (v1.size() == 0) { return false; } if (v2.size() == 0) { return true; } return v1[0] < v2[0]; } bool interestPointXComparator(interest_point &v1, interest_point &v2) { return v1.x < v2.x; } void PointComponent::sort_by_confidence() { if (size() > 0) april_utils::Sort(&(*this)[0], (int)size()); } void PointComponent::sort_by_x() { april_utils::Sort(&(*this)[0], size(), interestPointXComparator); } void SetPoints::sort_by_confidence() { if (!size) return; for (int i = 0; i < size; ++i) { (*ccPoints)[i].sort_by_confidence(); } } void SetPoints::sort_by_x() { // Sort first by confidence and then sort by x each component sort_by_confidence(); for (int i = 0; i < size; ++i) { (*ccPoints)[i].sort_by_x(); } } void SetPoints::print_components() { for(int i = 0; i < size; ++i) { printf("Component %d\n", i); printf("\t size %ld\n", (*ccPoints)[i].size()); for (PointComponent::iterator it = (*ccPoints)[i].begin(); it != (*ccPoints)[i].end(); ++it) { printf("\t%d %d %d (%f)\n", it->x, it->y, it->point_class, it->log_prob); } } } // Takes float SetPoints::component_affinity(int component, interest_point &ip) { if (component < 0 || component >= size){ fprintf(stderr, "Warning (similarity)! The component %d does not exist!! (Total components %d\n", component, size); return 0.0; } // If the component is empty the affinity is the probability of the point (logscale) PointComponent &cc = (*ccPoints)[component]; float score_max = 0.0; if (cc.size() == 0) return ip.log_prob; for (size_t p = 0; p < cc.size(); ++p){ score_max = max(score_max, similarity(cc[p], ip)); } return score_max; } float angle_diff(interest_point &a, interest_point &b) { float alpha = a.angle(b); return min(fabs(alpha), fabs(2*M_PI-alpha)); } float SetPoints::similarity(interest_point &ip1, interest_point &ip2) { float alpha_threshold = M_PI/8; interest_point *a = &ip1; interest_point *b = &ip2; // Two cases // Are the same class if (ip1.point_class == ip2.point_class) { if (a->x > b->x){ a = &ip2; b = &ip1; } //float alpha = fmod(a->angle(*b)+2*M_PI + alpha_threshold/2, (2*M_PI)); float alpha = angle_diff(*a, *b); if (alpha < alpha_threshold) return 1.0; } else { // They're are different classes return 1.0; } return 0.0; } /* SetPoints * ConnectedPoints::computePoints() { SetPoints * mySet = new SetPoints(img); int cini = -1; int cfin = 0; int threshold = 1.0; // Process each connected component for (int cc = 0; cc < size; ++cc) { printf("Computing connected component %d/%d\n", cc, size); if (!(*ccPoints)[cc].size()) continue; //Add an empty set cini = cfin; cfin++; mySet->addComponent(); for (size_t p = 0; p < (*ccPoints)[cc].size(); ++p) { bool added = false; // for (interest_point ip : (*ccPoints)[cc]) { for (int current_set = cini; current_set < cfin; ++current_set) { float affinity = mySet->component_affinity(current_set, (*ccPoints)[cc][p]); if (affinity >= threshold){ //Add the point mySet->addPoint(current_set, (*ccPoints)[cc][p]); added = true; break; } //added } //components if (!added) { // Check if it is the first point if (p) { ++cfin; mySet->addComponent(); } mySet->addPoint(cfin-1, (*ccPoints)[cc][p]); } }//Point } return mySet; }*/ SetPoints * ConnectedPoints::computePoints() { SetPoints * mySet = new SetPoints(img); float threshold = 100.0; //Process each component for (int cc = 0; cc < size; ++cc) { PointComponent &component = (*ccPoints)[cc]; int n_points = component.size(); if (n_points == 0) continue; PointComponent *base_line = component.get_points_by_type(BASELINE); double sse = base_line->line_least_squares(); //Compute the regression over the points of the line printf("%d %d %f %f\n", cc, (int)base_line->size(),sse, sse/n_points); if (sse/n_points < threshold) { mySet->addComponent(*base_line); } } return mySet; } PointComponent *PointComponent::get_points_by_type(const int point_class, const float min_prob) { // TODO: Check if cc is on the range PointComponent *l = new PointComponent(); for(size_t i = 0; i < size(); ++i) { interest_point v = (*this)[i]; if (v.point_class == point_class and v.log_prob > min_prob) { l->push_back(v); } } return l; } line * PointComponent::get_regression_line() { //TODO: Move to geometry size_t n = this->size(); if (n <= 1) return NULL; double *vx = new double[n]; double *vy = new double[n]; for (size_t i = 0; i < n; ++i) { vx[i] = (*this)[i].x; vy[i] = (*this)[i].y; } double a, b; least_squares(vx,vy, n, a, b); delete []vx; delete []vy; return new line(b,a); } double PointComponent::line_least_squares() { size_t n = size(); if (n <= 1) return 0.0; line *myLine = this->get_regression_line(); double sse = 0.0; for (size_t i = 0; i < size(); ++i) { double dist = myLine->distance((*this)[i]); sse += dist*dist; } delete myLine; return sse; } } // namespace InterestPoints april-ann-0.3.1/packages/imaging/interest_points/c_src/interest_points.h000066400000000000000000000143331234204160600265130ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco * Zamora-Martinez, Joan Pastor-Pellicer * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef INTEREST_POINTS_H #define INTEREST_POINTS_H #include #include "image.h" #include "image_connected_components.h" #include "datasetFloat.h" #include "utilImageFloat.h" #include "pair.h" #include "vector.h" #include "geometry.h" using april_utils::vector; using april_utils::Point2D; namespace InterestPoints { enum {ASCENDER=1, TOPLINE, CENTRAL, BASELINE, DESCENDER, OTHER}; /** * @brief Given an Image returns a vector with the local maxima and local minima of the given image. * * @param[in] pimg Pointer to the image * @param[in] threshold_white More than this value is considered black * @param[in] threshold_black Less than this value is set to white * @param[in] local_context The number of pixels in stroke that is used to compute the local maxima/minima * @param[in] duplicate_interval The minimum distance of locals within the same stroke */ april_utils::vector* extract_points_from_image_old(ImageFloat *pimg, float threshold_white = 0.6, float threshold_black = 0.4, int local_context = 6, int duplicate_interval = 5); /** * @brief Given an Image returns a vector with the local maxima and local minima of the given image. * * @param[in] pimg Pointer to the image * @param[out] local_minima Return the points of the local minima contour * @param[out] local_maxima Return the points of the local a contour * @param[in] threshold_white More than this value is considered black * @param[in] threshold_black Less than this value is set to white * @param[in] local_context The number of pixels in stroke that is used to compute the local maxima/minima * @param[in] duplicate_interval The minimum distance of locals within the same stroke */ void extract_points_from_image(ImageFloat *pimg, april_utils::vector *local_minima, april_utils::vector *local_maxima, float threshold_white= 0.4, float threshold_black = 0.6, int local_context = 6, int duplicate_interval = 3, bool reverse = true); ImageFloatRGB * area_to_rgb(ImageFloat *img); /* * * * */ ImageFloat *get_pixel_area(ImageFloat *source, vector ascenders, vector upper_baseline, vector lower_baseline, vector descenders, MatrixFloat **transitions ); MatrixFloat *get_image_matrix_from_index(DataSetFloat *ds_out, DataSetFloat *indexed, int width, int height, int num_classes = 3); ImageFloat *get_image_area_from_dataset(DataSetFloat *ds_out, DataSetFloat *indexed, int width, int height, int num_classes, float threshold = 0.8); MatrixFloat * get_indexes_from_colored(ImageFloat *img, ImageFloat *img2=NULL); ImageFloat *refine_colored(ImageFloat *img, MatrixFloat *mat, int num_classes = 3); struct interest_point:Point { bool natural_type; int point_class; float log_prob; interest_point() {} interest_point(int x, int y, int point_class, bool type, float log_prob): Point(x,y), natural_type(type), point_class(point_class), log_prob(log_prob) {} bool operator< (interest_point &ip) { return this->log_prob > ip.log_prob; } float angle(interest_point &ip) { float deltaY = ip.y - this->y; float deltaX = ip.x - this->x; return atan2(deltaY, deltaX); } }; class PointComponent:public vector { public: PointComponent(int size):vector(size){}; PointComponent():vector(){}; double line_least_squares(); PointComponent *get_points_by_type(const int point_class, \ const float min_prob = -999999.00); void sort_by_confidence(); void sort_by_x(); line *get_regression_line(); }; class SetPoints: public Referenced { protected: vector< PointComponent > *ccPoints; int size; int num_points; ImageFloat *img; public: SetPoints(ImageFloat *img); void addComponent(); void addComponent(PointComponent &); int getNumPoints() { return num_points;}; int getSize() { return size;} PointComponent &getComponent(int cc) { return (*ccPoints)[cc]; } void addPoint(int component, interest_point ip); void addPoint(int component, int x, int y, int c, bool natural_type, float log_prob = 0.0) { addPoint(component, interest_point(x,y,c,natural_type,log_prob)); } void print_components(); void sort_by_confidence(); void sort_by_x(); const vector *getComponents() { return ccPoints; } ~SetPoints(){ delete ccPoints; }; float component_affinity(int component, interest_point &ip); float similarity(interest_point &ip1, interest_point &ip2); }; class ConnectedPoints: public SetPoints { private: ImageConnectedComponents *imgCCs; public: ConnectedPoints(ImageFloat *img); void addPoint(interest_point ip); void addPoint(int x, int y, int c, bool natural_type, float log_prob = 0.0) { addPoint(interest_point(x,y,c,natural_type,log_prob)); }; SetPoints *computePoints(); ~ConnectedPoints() { delete imgCCs; }; }; } #endif april-ann-0.3.1/packages/imaging/interest_points/lua_src/000077500000000000000000000000001234204160600234445ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/interest_points/lua_src/interest_points.lua000066400000000000000000000610641234204160600274070ustar00rootroot00000000000000interest_points = interest_points or {} local methods, class_metatable = class("interest_points.pointClassifier") april_set_doc("interest_points.pointClassifier", { class = "class", summary = "Util for computing EyeFish transformation", description ={ "This class prepare the linear transformation.", }, }) april_set_doc("interest_points.pointClassifier.__Call", { class = "method", summary = "Constructor", description ={ "This class prepare the linear transformation.", }, outputs = {"A Point Classifier object"}, }) function class_metatable:__call(ancho, alto, miniancho, minialto, reverse_old) -- prepara la configuracion para aplicar el ojo de pez con dataset.linear_comb -- local functions ------ convertir local function convertir(v,N) -- toma el vector y lo escala en N partes local total = 0 local M = #v for i=1,M do total=total+v[i] end local resul = {} local pedazo = total/N local indice = 1 local queda = pedazo for i=1,M do local trozo = v[i] while trozo > 0 and indice<=N do if trozo >= queda then table.insert(resul,{i,indice,queda/v[i]}) trozo = trozo-queda queda = pedazo indice = indice+1 else table.insert(resul,{i,indice,trozo/v[i]}) queda = queda-trozo trozo = 0 end end end return resul end ------ crear_vector_estrecho local function crear_vector_estrecho(lado) local v = {} for i=1,lado do v[i] = 0.1+math.pow(1-math.pow(math.abs(i-0.5-(lado/2))/lado,2.5),300) end return v end ------ crear_vector_suave local function crear_vector_suave(lado) local v = {} for i=1,lado do v[i] = 0.1+math.pow(1-math.pow(math.abs(i-0.5-(lado/2))/lado,2),10) end return v end -- Funcion para invertir_tlc (Forwar tlc) local function invertir_tlc(tlc) local threshold = 0 local inv_tlc = {} for i, lsources in pairs(tlc) do for j, v in ipairs(lsources) do local src, w = unpack(v) if inv_tlc[src] == nil then inv_tlc[src] = {} end if (w > threshold) then table.insert(inv_tlc[src], {i-1, w}) end end end return inv_tlc end -- function body local vancho = crear_vector_estrecho(ancho) local valto = crear_vector_suave(alto) local r_ancho = convertir(vancho,miniancho) local r_alto = convertir(valto,minialto) local lenr_ancho = #r_ancho local lenr_alto = #r_alto local tlc = {} -- tabla linear combination for i=1,lenr_alto do local y1,y,pesoy = unpack(r_alto[i]) for j=1,lenr_ancho do local x1,x,pesox = unpack(r_ancho[j]) local minipos = (y-1)*miniancho+x -- la posicion x,y en la matriz resultante if tlc[minipos] == nil then tlc[minipos] = {} end local pos = (y1-1)*ancho+x1 table.insert(tlc[minipos],{pos,pesox*pesoy}) end end -- normalizar cada cosa: for i,j in pairs(tlc) do local total = 0 for k,l in ipairs(j) do total = total+l[2] end for k,l in ipairs(j) do l[2] = l[2]/total end end local obj = { } obj.ancho = ancho obj.alto = alto obj.miniancho = miniancho obj.minialto = minialto obj.table_inv = invertir_tlc(tlc) obj.inv_tlc = dataset.linear_comb_conf(obj.table_inv) obj.tlc = dataset.linear_comb_conf(tlc) obj.white = (reverse_old and 1) or 1 obj.reverse_old = reverse_old obj = class_instance(obj, self, true) return obj end --------------------------------------------------- -- crop_image(img, x, y, tlc) -> table --------------------------------------------------- function methods:crop_image(img, x, y) return self:applyLinearComb(img, x, y):getPattern(1) end april_set_doc("interest_points.pointClassifier.getFishDs", { class = "method", summary = "Main function for obtaining the FishEye Dataset", description ={ "Recieves an image and a point a generates the corresponding dataset", }, params = { "An Image object", "X coordinate of the point", "Y coordinate of the point" }, outputs = {"A Point Classifier object"}, }) function methods:getFishDs(img, x, y) local mFish = img:comb_lineal_forward(x,y, self.ancho, self.alto, self.miniancho, self.minialto, self.inv_tlc):clamp(0,1) if self.reverse_old then mFish:complement() end local m = mFish:rewrap(self.minialto,self.miniancho) -- ImageIO.write(Image(m),"kk.png") -- ImageIO.write(img,"kk2.png") local dsFish = dataset.matrix(mFish, { patternSize={self.miniancho*self.minialto}, stepSize={self.miniancho*self.minialto}, numSteps={1}, }) return dsFish end function methods:applyLinearComb(img, x, y) local mat, _, _, dx, dy = img:matrix(),img:geometry() local ds = dataset.matrix(mat, { patternSize={self.alto,self.ancho}, offset={(y+dy)-self.alto/2,(x+dx)-self.ancho/2}, numSteps={1,1}, defaultValue = self.white, -- pixel blanco }) local dslc = dataset.linearcomb(ds,self.tlc) return dslc end ------------------------------------------------------------------------------- -- Given a point an mlp, return the output of the net with that point (window) ----------------------------------------------------------------------------- april_set_doc("interest_points.pointClassifier.compute_point", { class = "method", summary = "Gets the net output for one point", description ={ "Given a point and mlp, return the output of the net for that point", }, params = { "An Image object", "X coordinate of the point", "Y coordinate of the point" }, outputs = {"Table with the values of the softmax"}, }) function methods:compute_point(img, x, y, mlp) local dsPoint = self:getFishDs(img, x, y) local dsOut = mlp:use_dataset{ input_dataset = dsPoint } return dsOut:getPattern(1) end april_set_doc("methods.getPointClass", { class = "method", summary = "Gets the corresponding class for the point", description ={ "Given a point and mlp, return the max index for that point", }, params = { "An Image object", "X coordinate of the point", "Y coordinate of the point" }, outputs = {"Integer of the winning class"}, }) function methods:getPointClass(img, x, y, mlp) return self.compute_point(img, x, y, mlp):max() end --Gets a dataset and returns a table with the indexes of the major class function interest_points.getIndexSoftmax(dsOut) local tResult = {} for i, v in dsOut:patterns() do _, p = table.max(v) table.insert(tResult, p) end return tResult end april_set_doc("interest_points.pointClassifier.compute_points", { class = "method", summary = "Return a dataset with the output of the net", description ={ "Given a list of points and mlp, return the dataset corresponding to output of the mlp to that set of points", }, params = { "An Image object", "List of points Tuples(x,y)", "Trainable Object" }, outputs = {"Dataset of size Num_Classes x Num_Points"}, }) function methods:compute_points(img, points, mlp) --Compute the matrix (Forward) local fishEyes = {} for i, point in ipairs(points) do x,y = unpack(point) local dsFish = self:getFishDs(img, x, y) table.insert(fishEyes, dsFish) end local dsFishes = dataset.union(fishEyes) -- Classify the datasets local dsOut = mlp:use_dataset({input_dataset=dsFishes}) return dsOut end ---------------------------------------------------------- -- Given a image extract all the points and classify them -- ------------------------------------------------------- function methods:classify_points(img, points, mlp) local dsOut = self:compute_points(img, points, mlp) local classes = interest_points.getIndexSoftmax(dsOut) local res = {} for i, c in ipairs(classes) do x, y = unpack(points[i]) table.insert(res, {x,y,c, dsOut:getPattern(i)[c]}) -- Get the confidence end --[[ local scores = self:compute_points(img, points, mlp) local res = {} for i, score in ipairs(scores) do x = points[i][1] y = points[i][2] _, c = score:max() table.insert(res, {x, y, c}) end return res --]] return res end function methods:extract_points(img, mlpUppers, mlpLowers) local uppers, lowers local img_orig = img if (self.reverse_old) then img = img:invert_colors() end -- The extraction is done by reversing the image uppers, lowers = interest_points.extract_points_from_image(img) img = img_orig -- Compute uppers local uppers_classified = self:classify_points(img, uppers, mlpUppers) -- Compute uppers local lowers_classified = self:classify_points(img, lowers, mlpLowers) return uppers_classified, lowers_classified end ---------------------------------------------------------------------------- -- table_points a (x, y, c) table where c is the majority class of the point -- Utility function that gets a list of points and the class of the points -- ------------------------------------------------------------------------- function interest_points.sort_by_class(table_points, classes) local res = {} for c = 1, classes do table.insert(res, {}) end for _, point in ipairs(table_points) do x, y, c = unpack(point) table.insert(res[c], {x,y}) end return res end function interest_points.filter_points(points, h, w) local ASCENDER=1 local UPPER_BASELINE=2 local BODY=3 local LOWER_BASELINE=4 local DESCENDER=5 local function filtrar_repetidos(mark_index) for x,tblx in pairs(mark_index) do for _, class in pairs({ASCENDER, UPPER_BASELINE}) do if mark_index[x][class] ~= nil and #mark_index[x][class] >= 2 then local ymin = mark_index[x][class][1] for idx, y in ipairs(mark_index[x][class]) do if y < ymin then ymin = y end end local tbl_body = table.ifilter(mark_index[x][class], function(k,v) return v ~= ymin end) mark_index[x][class] = {ymin} mark_index[x][BODY] = table.join(mark_index[x][BODY], tbl_body) --print("x=",x,"class=",class,"ymin=",ymin,"tbl:", table.concat(mark_index[x][class]), -- "body: ",table.concat(tbl_body, ","))--,"body_old:", table.concat(mark_index[x][BODY], ",")) end end for _, class in pairs({DESCENDER, LOWER_BASELINE}) do if mark_index[x][class] ~= nil and #mark_index[x][class] >= 2 then --print("#mark_index[x][class]=", #mark_index[x][class]) local ymax = mark_index[x][class][1] for idx, y in ipairs(mark_index[x][class]) do if y > ymax then ymax = y end end local tbl_body = table.ifilter(mark_index[x][class], function(k,v) return v ~= ymax end) mark_index[x][class] = {ymax} mark_index[x][BODY] = table.join(mark_index[x][BODY], tbl_body) --print("x=",x,"class=",class,"ymax=",ymax,"tbl:", table.concat(mark_index[x][class]), -- "body: ",table.concat(tbl_body, ","))--,"body_old:", table.concat(mark_index[x][BODY], ",")) end end end end ------------------------------------------- -- filtrar_repetidos_array(tbl, func) -> table -- Elimina elementos con la x repetida de una tabla ordenada de puntos, dejando el que cumpla func (tipicamente min o max) ------------------------------------------- local function filtrar_repetidos_array(tbl, func) local result = {} local y for i=1,#tbl do if y == nil then y = tbl[i][2] end if tbl[i+1]~= nil and tbl[i+1][1] == tbl[i][1] then y = func(y, tbl[i+1][2]) else table.insert(result,{tbl[i][1], y}) y=nil end end return result end --------------------------- -- argmax(tbl) -> value -- Devuelve el x tal que tbl[x] = max(tbl[i] para todo i en tbl) --------------------------- local function argmax(tbl) local wmax = 1 local max = tbl[1] for i,j in ipairs(tbl) do if j > max then wmax = i max = j end end if max ~= nil then return wmax,max else return nil, nil end end ------------------------------------------------------------- -- get_first_point(tbl, width, default_y) -> point, index ------------------------------------------------------------- local function get_first_point(tbl, width, default_y) if #tbl == 0 then return {0, default_y}, 0 else local result = {0, tbl[1][2]} if tbl[1][1] == 0 then return result, 1 else return result, 0 end end end --------------------------------------------------------------- -- get_next_point(tbl, index, width, default_y) -> point --------------------------------------------------------------- local function get_next_point(tbl, index, width, default_y) if index+1 < 1 then error("invalid index") end if #tbl > 0 then if index < #tbl then return tbl[index+1] else return {width-1, tbl[#tbl][2]} end else return {width-1, default_y} end end local body = {} ------------------------------------------------------------- -- get_first_point(tbl, width, default_y) -> point, index ------------------------------------------------------------- local function get_first_point(tbl, width, default_y) if #tbl == 0 then return {0, default_y}, 0 else local result = {0, tbl[1][2]} if tbl[1][1] == 0 then return result, 1 else return result, 0 end end end --------------------------------------------------------------- -- get_next_point(tbl, index, width, default_y) -> point --------------------------------------------------------------- local function get_next_point(tbl, index, width, default_y) if index+1 < 1 then error("invalid index") end if #tbl > 0 then if index < #tbl then return tbl[index+1] else return {width-1, tbl[#tbl][2]} end else return {width-1, default_y} end end local function filter_repeated(tbl, func) print ("Filtering") local result = {} local y for i=1,#tbl do if y == nil then y = tbl[i][2] end if i+1 <= #tbl and tbl[i+1][1] == tbl[i][1] then y = func(y, tbl[i+1][2]) else table.insert(result,{tbl[i][1], y}) y=nil end end return result end -- Mark index is genereted given the classe local mark_index = {} for i, t in ipairs(points) do for _, p in ipairs(t) do x, y = unpack(p) if not mark_index[x] then mark_index[x] = {} end if not mark_index[x][i] then mark_index[x][i] = {} end table.insert(mark_index[x][i],y) end end filtrar_repetidos(mark_index) -- START local tables = {{},{},{},{},{}} for x, t in pairs(mark_index) do for class, y_tbl in pairs(t) do for _,y in ipairs(y_tbl) do table.insert(tables[class], {x,y}) end end end for class=1,5 do table.sort(tables[class], function(a,b) return a[1] next_asc[1] or i == #tables[BODY] then local x,y = unpack(highest) local asc_y = prev_asc[2] + ((x-prev_asc[1])/(next_asc[1]-prev_asc[1]))*(next_asc[2]-prev_asc[2]) --printf("---> highest=(%d,%d), asc_y=%d\n", x,y, asc_y) if y < asc_y then table.insert(new_ascenders, highest) --printf("inserted ascender: (%d, %d)\n", x, y) end while p[1] > next_asc[1] do prev_asc = next_asc next_asc = get_next_point(tables[ASCENDER], asc_idx, w, 0) asc_idx = asc_idx+1 end highest = p end if p[2] < highest[2] then highest=p end end tables[ASCENDER] = table.join(tables[ASCENDER], new_ascenders) table.sort(tables[ASCENDER], function(a,b) return a[1] next_desc[1] or i == #tables[BODY] then local x,y = unpack(lowest) local desc_y = prev_desc[2] + ((x-prev_desc[1])/(next_desc[1]-prev_desc[1]))*(next_desc[2]-prev_desc[2]) --printf("---> lowest=(%d,%d), desc_y=%d\n", x,y, desc_y) if y > desc_y then table.insert(new_descenders, lowest) --printf("inserted descender: (%d, %d)\n", x, y) end while p[1] > next_desc[1] do prev_desc = next_desc next_desc = get_next_point(tables[DESCENDER], desc_idx, w, h-1) desc_idx = desc_idx + 1 end lowest = p end if p[2] > lowest[2] then lowest=p end end tables[DESCENDER] = table.join(tables[DESCENDER], new_descenders) table.sort(tables[DESCENDER], function(a,b) return a[1] threshold and ((upper and class < 3) or (class >3)) then table.insert(result, point) end end return result end -- Given a list of points (x,y,c,confidence) -- returns 5 tables function interest_points.classified_to_tables(num_classes, ...) -- TODO add confidence threshold! local result = {} for i = 1, num_classes do table.insert(result, {}) end points = {...} for i, t in ipairs(points) do for j, v in ipairs(t) do c = v[3] table.insert(result[c],{v[1],v[2]}) end end for i, t in ipairs(result) do table.sort(t, function(a,b) return a[1] < b[1] end) end return result end ---------------------------------------------------- -- Util functions -- Recieve a table with the tag classes -- Returns a Sparse (softmax) vector of the tags -- ------------------------------------------------ function interest_points.loadTagDataset(points, numClasses) local numClasses = numClasses or 5 local mOut = matrix(#points, points) local dsOut if numClasses == 2 then dsOut = dataset.matrix(mOut) else local dsIndex = dataset.identity(numClasses) local dsOutIndex = dataset.matrix(mOut) dsOut = dataset.indexed(dsOutIndex, {dsIndex}) end return dsOut end ------------------------ -- -- Recieves an image and a interest point table, x_window and y_window parameters, -- and return a returns a dataset of size num_points*((xwindow+1+xwindow*)*(y_window+1+ỳ_window)) -- -- --------------------------- function dataset.interest_point(img, table_points, x_window, y_window, num_classes, reverse) local img_matrix = img:matrix() local white = 1 if reverse then white = 0 end -- Create the dataset over the image local params_img = { patternSize = {y_window*2+1, x_window*2+1}, offset = {-y_window, -x_window}, stepSize = {1,1}, numSteps = img_matrix:dim(), defaultValue = white, circular = {false, false} } local dsImg = dataset.matrix(img_matrix, params_img) -- Create the indexed point -- the table is composed by elems (x, y, c) -- En la imagen es x, y i en la matriz y x local tIndexes = table.imap(table_points, function (elem) local index = elem[2]*img_matrix:dim(2)+elem[1] assert(index <= img_matrix:size()) return index end) local dsIndexes = dataset.matrix(matrix(tIndexes)) local dsPoints = dataset.indexed(dsIndexes, {dsImg}) local dsOut = nil local points if #table_points[1] >= 3 then points = table.imap(table_points, function (elem) return elem[3] end) end return dsPoints, points and interest_points.loadTagDataset(points, num_classes) end april-ann-0.3.1/packages/imaging/interest_points/package.lua000066400000000000000000000021711234204160600241130ustar00rootroot00000000000000 package{ name = "interest_points", version = "1.0", depends = { "dataset", "Image", "image_connected_components" }, keywords = { "image", "interest_points", "line", "ocr" }, description = "Utils for detect and classify interest points in an images", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_interest_points.lua.cc", dest_dir = "include" }, }, target{ name = "build", depends = "provide", use_timestamp=true, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_interest_points.lua.cc", dest_dir = "build" }, }, target{ name = "document", document_src{}, document_bind{}, }, } april-ann-0.3.1/packages/imaging/interest_points/test/000077500000000000000000000000001234204160600227735ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/interest_points/test/.gitignore000066400000000000000000000000051234204160600247560ustar00rootroot00000000000000.png april-ann-0.3.1/packages/imaging/interest_points/test/sample1.png000066400000000000000000000120521234204160600250430ustar00rootroot00000000000000PNG  IHDRJ^sRGBbKGD pHYs  tIME  *9tEXtCommentCreated with GIMPWIDATx\yle͹g--BRD*D(F F ѨAbLU$^UUPMPcXAr97nw˶_M:Ʉcg}c/hii_g4M2 i4 t]tlc;4ܹK.EKK Sۍ3 %]*Yum<7oܹs^,˸袋0eʔbW~.|ob RI ! bܹa |>z裏]{sXC:V\ 6@4"TTTছnʸVO1ۆ6}|rXn,X7|3dYv^6H] hiiaUq[o$IY(ekYH|x[4+3EQhٲeG6n7y^r\t:n,$Iӆ jd霪g}FA N?wY*++'ҬYh߾}iZVaP:y$]r%$" @ D^z)9O,$"͜93;l6HEEEtk4MVÇ(q8B$B8b 744`޼y8p@y< 5k{r0EQ:$IBNNNƮ35 $Au۷K,A( e,#" 8V*kii80 ]vV\\z &M@EQرh @$?IYes#"H\֪牢˕4s{Ӊ '0uTW_}u\w^TWW#BEإZoF|LjFI{Ic)ݞFY]azNmaذa<"]ǃrR{TUD`&kOUtX}$ 녘51|/!POFEE"p6mZ¬݊[vWl=ztFR:֬YwxǤIpM7aСD4Eqq1L:ٳQ__0iZ~Vh_> 4^|Er:$"ɲLT[[2rݵk A.JKK) ea+88rss_emPBPDu*//'A$Q^^;v,+iԡ!ԩSzFBaaaJuٴikS( 6-cknnS-$5USf풪ƅ3N֙μhnnf*WTT9s$ʂ >S61_uUS"@EQĀ0tN7 aݺu,&.{Jm|'Oƍ!|>ƌ+WOXbs?Q1bĈ'c=*'OFNNNvmŊؽ{7ܔZk&pNJUpq Qq饗bر)ߌiظq#, l8p`je&$uJԙ?K.e1(?~| JUI^0ĺuYo#G::l۶ AeFdk={0p85jTR3M?>D|8|͌9Uw鋱̥g ;_D̙3?3999p8md[CBx Y\s ,YLK kkkQ^^2䠦UUUظq#jkkHaOTt)XSTCC"; EQp!TTTￇyQ. yFQ:t< ƒ:t(8]ڊo'v;ֆH$$?6PtݸΫ ǒZMX+B=jjj?b̘1صkqaB 4M566Ø1c}v,YB&^q̶ 7ofZ `bkge/_~zY-Ͱ^k3,;!"0-Z,{H @e444`ѢEEGAkk+ߒӉҸ^}pqłX6 "Lk&m6  ȑ#qFlGɂ ) ]QWW-:0r8ôi 2{rIvC<ŋ ,AXﺥz6=8#Q .R袋(//e :;CP ￟|>Ѕ^HC ~$A8@ǑfRZ~=544P8&UUH]رc4~xr\d:fzש.a' Oʬfc_InSilbaЪU_~x(??^/9Exg{ｗN:vjFP4eEQt|89N$dY&IPMMMz~ss3M< ޺yQ}}=)tXJtwӰa2)0`]TUML]3yHϹÞbUUq=ziEEEa4Qes=,>}:{ｴxDԆTUEKK i.b2Ծ/}x6:[DUN:4M_|p&M'|ҡdi;6VrU~okkÐ!C#ߍg{b |:2(z1g+$'+yo4L*:c[A{Z: H{jIrz5ۍ]_PLr^o̻+|o'<_VDU4IENDB`april-ann-0.3.1/packages/imaging/interest_points/test/sample1.txt000066400000000000000000000053641234204160600251060ustar00rootroot0000000000000066 12 1 0 -0.30533075332642 -3.0499439239502 -1.5409486293793 -9.0761632919312 -6.5246887207031 43 37 3 0 -7.9369359016418 -6.7320694923401 -0.0018954277038574 -8.5602188110352 -8.7883825302124 20 44 2 0 -4.0726628303528 -0.093015670776367 -2.6344363689423 -11.065467834473 -11.188801765442 52 46 2 0 -3.183073759079 -0.49361515045166 -1.055741071701 -9.4527912139893 -9.0852565765381 7 55 3 0 -10.26238822937 -7.1051459312439 -0.00092220306396484 -9.9851503372192 -10.835052490234 51 59 3 0 -9.4901103973389 -9.2635049819946 -0.00039482116699219 -9.1945695877075 -9.0062570571899 18 60 3 0 -10.174240112305 -7.7388157844543 -0.00052833557128906 -10.30157661438 -10.787166595459 31 66 3 0 -5.4709692001343 -9.4048547744751 -0.0064077377319336 -9.2327919006348 -6.2146105766296 5 76 4 1 -10.33917427063 -10.844712257385 -2.4547250270844 -0.10443639755249 -4.3253231048584 18 52 3 1 -11.771625518799 -8.4697427749634 -0.00028324127197266 -9.7859745025635 -11.601254463196 45 58 3 1 -9.6119422912598 -9.5232772827148 -0.0010986328125 -7.4322199821472 -7.912654876709 9 76 4 1 -8.4216547012329 -10.27502822876 -1.3068029880524 -0.42510318756104 -2.5854890346527 40 76 4 1 -8.8649978637695 -10.687564849854 -2.0467410087585 -0.21226692199707 -2.7817175388336 2 73 3 1 -10.460742950439 -9.1943769454956 -0.0032930374145508 -5.8189325332642 -8.5877285003662 69 23 3 1 -6.5499229431152 -9.5900144577026 -0.009979248046875 -6.0930771827698 -5.0876536369324 58 24 3 1 -8.0145788192749 -10.144325256348 -0.0016145706176758 -7.7071895599365 -7.1386528015137 53 29 3 1 -7.746018409729 -8.7447757720947 -0.0024247169494629 -6.9197697639465 -7.0800457000732 45 41 3 1 -8.9726333618164 -6.4686512947083 -0.0021438598632812 -7.9163041114807 -9.2229270935059 18 50 3 1 -11.595636367798 -7.5648384094238 -0.00056171417236328 -10.423593521118 -12.307116508484 10 56 3 1 -11.226642608643 -8.1647052764893 -0.00047445297241211 -8.7832021713257 -10.664607048035 51 58 3 1 -9.905445098877 -9.4214191436768 -0.00038766860961914 -8.838399887085 -9.0992555618286 40 60 3 1 -7.9228038787842 -9.5241146087646 -0.001594066619873 -8.5336503982544 -6.947774887085 8 61 3 1 -10.302583694458 -8.7739219665527 -0.00043582916259766 -8.6092491149902 -9.6412181854248 51 69 3 1 -10.329586029053 -9.4824886322021 -0.0011191368103027 -6.9791278839111 -9.44935131073 49 72 3 1 -9.9250812530518 -9.2207660675049 -0.01847505569458 -4.0375623703003 -7.5675644874573 17 73 3 1 -8.6852550506592 -10.142758369446 -0.013617038726807 -4.662079334259 -5.5546078681946 25 75 3 1 -9.557318687439 -9.1738901138306 -0.095221996307373 -2.4439685344696 -5.5625638961792 44 76 4 1 -10.084945678711 -9.7380056381226 -1.2698941230774 -0.33890581130981 -5.037718296051 21 78 4 1 -9.0881214141846 -10.18711566925 -2.0381066799164 -0.20601654052734 -2.8867976665497 april-ann-0.3.1/packages/imaging/interest_points/test/sample2.png000066400000000000000000000347761234204160600250650ustar00rootroot00000000000000PNG  IHDRz\NsRGBbKGD pHYs  tIME ;2LtEXtCommentCreated with GIMPW IDATx]wtTUMLz!P U*MpUx\aEEeʪ "*"UfA67g&LdfL{N̼r﷗ϗ$IFxu[0Lx3|3ym^׹ ir䧹_Lް~7:&PAVgZ>ZEآ3 gZ;Wx+ XZP3zX;z?@HUft?%|mDT\Sa + r!w3w0#eOCLo::TEjO=*ZZv$ ,˂e٠[80ײ~ ϳ)PB,f|6m`̘1h۶-pI}:|A$''05 \| l6 Zj)S`̙h׮p HbtI`p8x p8'$AVCevȲLrwSI$a:1 epwc͚5 kFd3gGoQ, _~'N^!, K.ŧ~  5P(P(t@QQ***w&q`Y: !!|n0Aϖe?ƎK;ĺ"·~Ν;77T]eTUUaǎXb Iy2;,w: T-5U*t:$Ilcسg222š=H.20j(^P(e. ,[n_˲ ,]~!L&uOUo I&<$IJBΝ!Ο?A,j5J%vKT*1~xl۶ J2L-A8cРAɡ~ZEEEE$ ,#??O?4vEhXVpry0yDDL8 @TT4"(˺b'|x"Y^G6mt:Q\\x;\Ÿa2K< z=L&fGRB}ҥ $aӦMxgPUUE}(0P޽;n݊;UF noߎe˖Sjj*p%fwED !!?Jg:OhBTRѣN<N6GFe="t;뮻b =(8}4OlFGGBZZ:F4s6nެ'otb֬Y㏩E$[BrDf8,K3)J-q)8AѣG1sLvg<Fш28NjEEE!33 JP8رcXx1vՊ|#Ep8f*]p_~%͕8zddd`ԩСbbbp8~zر6#S [_^=eee3gJ}bR VKqN)>>۶m*A\\z-/Fee%0 5Љ/ 'I^z%TVVRAxΝ /`Сj[r%v;>#8r34[~X*--Ő!C{n`!"QTɄR+mӦ 8C6)JL2SNwaR>҉:|S"H7oތcBߓիW[nwf;wo8F/--ŴioyIt:aXPUUES(z‘#GйsFt3 F m۶eZW^Ennnj`ٹ[t ǡgϞ޽{MfϞMwAGy W#1$I0`9rJ T*=,''QiӦa߾}hݺuIIIIxǡT*!IA@ii)yWWÖkRhT*1iҤz5L&:xJM$?Ƙ1cp%@ƛy_qFo(~/0qDC{߿gϞ S?DfzhZhZddd]QGB'R$1k0o~hʼ)T%$IÂB@p{&;U'7gYz֭[Cb$IXrARjh4!ԷgA$ړ@RN ({ƙP1pv679pΜ9CRIKHYEv矇 ּϘ1* * $['&&R /;oIPQQ<,8< 3gb,0FlXx1A-22;wDttt 9cDtt4ů+((*H r,F]=JʧPj͸x"K{A- w/D~]#CŋԏR*o,b޽{H4%t:QQQtI ݴi#""{&=0j>|x]$dee"y֡s4/NHatt4/^\[MR f4dZYYmU%A9Ro?%n]jj*$IdB~~~߽x"{U b\X ԫ;wBI?(8L7SS3dpy}fsnz=F#e֊ [N^0 A@qqqdAKjPh Fla$''駟i6܉}>|8j5}ࣇ %@hd2aǎ?~<Μ9 X (** mt:=8PiF'&Vȁj,[ qqq67ZƂ j= f vLqRwNTUUѣ5j=&""#么eJ M!\i(bڵeD'$$/K(2{%݁~6w]B'|O<-+//3BJG(b۶mń \lذv,"** ƍ՗###xb`…-bdyk׮y>66 -eYƑ#G "Zґe| 5 ٬Y "&NxCג`+h"fڶ*كݻwS~GcPP(pBHGeshp{wZG$I8wuWmkpAnQQQ{D\Zv;ϟTQ(L7xV6 6 NRfƍqE\oU*kn|x߯GW(4Q^^iӦݐX$ڽuVٓ ?>2KReY\xsAvvG}9|U+PnRݻww$TȔT*F580 nݚ.^ 2;FF`~B?pOUO̙3QRRQ8%4gmwݻi4H@74R*4RHrcǎ4!p΍sD,\~)v NVK;J% mv88s {V '"v158 R,˨5dį?[n&Ud`Ej}LuwHW~ }.CM6aHLL(2"]e>bB|.\UDhPUUE!;hDee% RRR0{l̝;FsTUUa͚5`Y!_-7eI&A$\zǎCee%f34 ql6미뮻кuk(J ><@(_FgYgѣGt:,Axq5 = QUUE#& ]jd:u ~-222ЩS'8.]#F 77aܸqӧO5}69Cll,L&$6._lpC$̞=742m݆dI&/fFo$ Ǐ}5ڵ y>СC<ڵG;w~;rss!I\.>XID]., λ\._Nj/ؤ݆r,BcNFeYtԩ^Mȃ!1)}ujՊ۷!ʺf3F|e#6r#,YOx dXZM˯N'JJJuV̛7yyy`. gΜ7mڴAvЫW/s=8xO0>ߡqe멩ܹs/0sL\ԤftIp5ɘW^i $UrPXXݻwfA@M۷ђ[I4؍Ϝ9azYHOOǗ_~Ç+Zj1ۏ%)5EEEEXv-z聓'O @ؾ}{ZA fgg{*?~W^EC\.ʐ*eYl޼?ž#-QoyL [p85nUr:!Lc۶m]iiiXlG}Y5v4id2aժUQRRBhI,8<Z QaXhάY3$I4 (,,ċ/>$i*ٹs'N9s_Ǒ,KNTrm6\%/ApQL4 #FkhTU 9QFa…0"6+@gΜaoDgTTnVbGfffЭBY$2`ݻףL~yl6l޼۷oGNNv;T*ڶmTՋ'%%y`6s/Iz-lܸ2:9C|||li$ vxc:15 ̙SU<yFYTHNNyΝ; j, )*,˴YFE:u *tFtWTXjN8 y Cl6VZ?(BVCP`߿?4 fϞcǎ^i"Z- gL>XCי3gIG[E8+_Wee%V\ݻwt v3a"IjѱcZV1e|Om )0jpB׮]i/I7gQ$% .V- Ԝ oеkW<D:NEee%}7^X(JbÆ ;w.;I(YYYLn-M. O=.]DA`0@ҙutZK,+W6wE%<z >3曈eYmC4_kQ(F1bAq5L)--K/'N@ף]v0ر#Ν={zKAE"DQQ;`~k*deeQSVjCeqM7^T}Nk """ A{N'v;EUN36l2H7ҝSOyUjj*-syFϿ,ate>RXp!nVHSwƁ1w\dddPf($˲jCUU*++r`Zizr!++ hժ_̙3i{aTaV%"8B ( Ap8h )0>YYYd&O?S?zWԩS=jdYƷ~b\eUUU=K0? 0 Zj{4hRPP[zӴڢ("??/_F޽rJL0)))HIIA\\׆aжm[#994Ef+JEUXX5k\m|ygiβG*-%%cƌ09V\.v؁s`=ap@$,"66Žω?\^^ޠԤ xa٨V&֭Ì3E| }QQZZ+Vx#`j{ｈO?Lch)"k.t:3uu{ o.]TF'&U푐@'\.۷G͛qL>zO2YDUUtիW###=zqtR+W7As ^rhh"P oA4˅HJJB||<y:Gj4`]N})Km. xg+`ԩT8+J̜9PuHy<>Վ  P@e'(8Bkfyy9f7222̫7nj55{w MIDATvF#6BHv‰'0|p9giRL|dшkRшÇ7r'րBZ^G߾}1c dɓ'o߾fW7'Nӧi5 OޣGh{Pj<ϣm۶ؾ};ZjU{Tw…h{u>j(lڴ ٴ\t޽8{*J05.~mc̘1 Ұ$￧ѹsgy]vW6([ZZ~: h`?ɓ(--˗q1kRb4&ڶm֮]"L~zJ,#77V,"55է ,oJD KoI/R^%IVlݺ 2"۵khO`tbb"&Mwy%%%p\(//Gff&ꫠvZ=z4ڷo_oSs6 Ǐu#GYf3?S,)AnǩS0m4z?&:90ѣGJp+WDqq1$ |kHֽ#н~ I~AvBHfREFL鄄sȉ6߲e \x쾲iC6m P(hcǎXjUژL͵*[+8CLL ^x̚5 {)Zꋦòe`ZP(ŋ7cp*++ڞ p}s>,6nHjDDD@z˸O%D>5|wl$ {_M2].j5͛A]gV2cll,"""}OF {ŋ}ʿKDi* :G۶me۷ @$ie^I hxн{ʕ+P(ҥK޾\?Z:u@DQ)te}֭[Gk E1d;$p=@8mڴfa'bn,#::3gZ}7ȵ}GE={mp7ݻu)SԹǁlniF'9@ͣrj",7&$IRĘ1claC[j9N ALR>JȲ Z nW0 - A]Q:|}!~۵kPtpi:؁XqiEpw$S>jő#G(Hꉟ˲ܹs~ܹ?M5Tiɓ'{``0kfmMHH@UU-Fjj*?شiGeYt +8(++DR 3f̸ZaذaHHH@qq1N'8_(**|$l4W_Q:`YC Z :#S"`HQe\zeeeAh iF/++˗i܈#qZ4O*t邛o@\VV˲8q ` jҥ T߿K9h4{vZ< ,]GRR~oF%K\Ar(*JNM?IIIٳw&kEҷ((U}vk::t@ZZ~'ϨT*!"MCHgϞEqq1FE(bΝ/h ZƤI!#eǎlƍ)#ȑ#|r޽V111A l**r\^ BAڹ,t;Ah0"@H:f ӧO"0Teeet@yy9: eH)Jc˖-P̽2)) 7nNS9ҼRi 1H%} ˖-kc MEj‹JIp8 #xΤΝوbqVŽދ{III^0:t(Q( UFj ox}ߐCHPK`Ȑ! ?W4YbGDD 22f?β,Zn,">>F fKbtHJJJ|RZ I>bDFFo222͕J%^xt Z$aX(3 !CԈOL#GRfE^^v;}'^Crrr4HFlB!H7{aOϞ=q!=֔ EQJѣGZł-[Тҡf͚zU0-,CRjR" ڊ0y\\:хUUUXWM0|x[w̙3w^?~VKI?D}'QTb„ hժz!dgg{ĬXVN 6`MӨ^GƫZG ==fïK.a;vl$ICGED馛dR)֭EQ:.Kϗ_|ESNrdd/vm'u=QǏFQV*rTTl0deeF#T*YPsnڴIV*]s(ʢ(.KldNg4իWTYPr'T*y̘1rEEEbƍYY !:T^~[u8ѣG[ӧC'NV,t:uFwgHLLD~|Dd?l8h4`ݻO#j7 eY;\T/йj(-š5kУG:F$XV?rKSk}eY$&&bȐ!ضm^zaʕӧO@GLfԩM &P0.rf,RkałgygΜ(LHH@߾}}DpG /0ܹ3֯_y'2i) ={'NDjj*$IdA}'*$W0p9Ê+hqR@pׯN:hȔaF=rrrpEtر^)"ԩS&A8Ҩ<2ׯ:D58apsN. `xQPPf"PVSJתUe 60 n:Zs@ hAĒJLLl}PerlbZ?^ $IBVV^}UBB!C 4,Jm۶g-BMB22wHMMѤmӦ VZ=`5yG}4hUs!q}}LhrF5<Ӊ0ϟڞVByy95s}QsDS-^ ,?l!//7, /CABy5Ő0{!"oȥ{Cž}TUc(zW/Ђ V1x`q$8h00d <أe0xt:Mwh"̛7/(T[ªg^MB^hl6ڵu& 96mڄK.Q*t:L</brذ,yAEK\kРAxgC2/$$3f̠ x'Э[7p2ݻ۷oFNCRRJ% ) Ttt4RSS(gݎ=z`ΝJ{(=1גIO=:`0xNkZDGG#::QQQE\\, Ν;BXV5[s8i|_-CYY|MОg2`0@Rr!''&''9@RaaҲ]6}.\"DEEARљ,jl685 *oXuSmEsz`k Ch Y `_@4Ԟ={+ ,"6VMiV;6wihF]^we98Ν NWޔ1*]gR[aLM8wj.S]㿼imA,fٳg)WLL 2331ydF5[q1҂1c[RnhKP6_$TVVG^iGk11=T636vCQxNi7g)Z!_jn塨|yƮ#h0Fo)X wU? ~M;11hNt#Kx~ 3 n(Fox`aF %=4.mV[H]iU^0 ?ZD9˵&+4oxxRKM4@nHmDKOq^ƸGsYkUޘjS(BX&f-EjoBŒ F-N[M7MGײ`L:i{ 7)ӽƏ+w4wo*BoY[099N&{SHm.s9M,3N6NZ@A>Z3dߘ+| r5IENDB`april-ann-0.3.1/packages/imaging/interest_points/test/sample2.txt000066400000000000000000000174771234204160600251170ustar00rootroot00000000000000168 15 1 0 -0.065828323364258 -3.7013928890228 -3.2613165378571 -10.587414741516 -7.3289823532104 50 13 1 0 -0.33890295028687 -2.2661032676697 -1.6986169815063 -9.8624496459961 -7.202832698822 21 51 3 0 -7.9233856201172 -7.7191023826599 -0.0015373229980469 -8.1679668426514 -7.7147841453552 218 54 2 0 -4.2209806442261 -0.098401069641113 -2.5381982326508 -11.301170349121 -11.567558288574 68 58 3 0 -3.2264819145203 -3.2425413131714 -0.08310604095459 -8.6534481048584 -7.118004322052 194 80 3 0 -8.805703163147 -7.6922087669373 -0.00069999694824219 -9.7519626617432 -10.247215270996 56 13 1 0 -0.11738967895508 -3.0935182571411 -2.7346069812775 -10.68349647522 -7.6479835510254 171 15 1 0 -0.09721851348877 -3.5782716274261 -2.7499730587006 -10.248973846436 -7.1908540725708 198 35 1 0 -0.18468379974365 -2.8325033187866 -2.2188286781311 -9.16845703125 -6.9836959838867 163 39 3 0 -3.9409520626068 -7.0200109481812 -0.025341510772705 -8.3418998718262 -5.4122948646545 96 43 1 0 -1.005035161972 -1.0439398288727 -1.2688064575195 -8.0556297302246 -7.777485370636 176 46 3 0 -6.9551362991333 -4.6515536308289 -0.010697364807129 -9.4195747375488 -9.7397842407227 108 51 2 0 -3.3167910575867 -0.45629119873047 -1.1089494228363 -9.22327709198 -9.2370681762695 183 53 3 0 -6.116334438324 -3.2187657356262 -0.043203830718994 -10.038883209229 -10.435033798218 221 54 2 0 -3.3319683074951 -0.28149557113647 -1.5627362728119 -10.345760345459 -10.446586608887 78 55 3 0 -6.588264465332 -4.1654653549194 -0.017181396484375 -9.3605804443359 -9.9084510803223 171 56 3 0 -9.1330490112305 -5.0067377090454 -0.0068864822387695 -10.089699745178 -10.785959243774 104 58 3 0 -9.5939598083496 -4.3013792037964 -0.013771057128906 -9.8711175918579 -11.859569549561 81 61 3 0 -4.4795989990234 -1.0554237365723 -0.44551992416382 -9.6976623535156 -9.6464233398438 161 65 3 0 -9.3649244308472 -6.3003759384155 -0.0020074844360352 -10.104207038879 -10.051015853882 24 67 3 0 -7.6011137962341 -7.1879553794861 -0.0016260147094727 -9.0090618133545 -8.306245803833 119 68 2 0 -4.3889131546021 -0.51460742950439 -0.94219827651978 -9.7707557678223 -10.667898178101 25 69 3 0 -8.7948455810547 -7.371928691864 -0.00097513198852539 -9.1770496368408 -9.3059129714966 72 70 3 0 -9.8894195556641 -6.0504093170166 -0.0025300979614258 -9.3008127212524 -10.484477996826 99 72 3 0 -11.369297027588 -7.7893233299255 -0.00046157836914062 -10.460285186768 -11.813672065735 217 73 3 0 -10.55145072937 -7.7110538482666 -0.00052642822265625 -10.181824684143 -11.133085250854 168 74 3 0 -11.932584762573 -8.3401803970337 -0.00029087066650391 -10.142899513245 -11.942461013794 221 79 3 0 -9.8678522109985 -9.4635982513428 -0.00022220611572266 -9.8930749893188 -10.070292472839 70 80 3 0 -11.064297676086 -7.3861374855042 -0.00075101852416992 -9.1821117401123 -11.278882980347 186 81 3 0 -11.264698028564 -8.6094188690186 -0.00032711029052734 -9.0153160095215 -11.448973655701 48 83 3 0 -10.918376922607 -7.9472923278809 -0.00076580047607422 -7.9043626785278 -10.607280731201 86 85 3 0 -10.37220954895 -8.7214527130127 -0.00030279159545898 -9.4568824768066 -10.411348342896 102 89 3 0 -8.7375936508179 -8.2493448257446 -0.00083112716674805 -8.2354297637939 -8.8456907272339 50 94 3 0 -7.9820775985718 -8.0677118301392 -0.0034213066101074 -6.1405172348022 -7.4079179763794 47 96 3 1 -9.5270051956177 -8.9266576766968 -0.0030808448791504 -5.9366002082825 -8.380690574646 21 69 3 1 -8.9843492507935 -8.4424848556519 -0.0020451545715332 -6.7496743202209 -7.5410213470459 103 80 3 1 -11.942655563354 -9.2847728729248 -0.00068044662475586 -7.4939160346985 -10.618295669556 74 74 3 1 -10.008687973022 -6.512451171875 -0.0025715827941895 -6.9711833000183 -9.2134065628052 72 31 3 1 -9.1702795028687 -8.5431356430054 -0.001185417175293 -7.3483619689941 -8.3259220123291 100 52 3 1 -9.7316665649414 -6.6184458732605 -0.0019478797912598 -7.584933757782 -10.050353050232 97 53 3 1 -10.488552093506 -7.7570476531982 -0.0016131401062012 -6.8057899475098 -9.9275770187378 186 63 3 1 -10.941772460938 -6.5182199478149 -0.0015873908996582 -9.3913707733154 -11.637691497803 161 74 3 1 -11.708436012268 -8.8418922424316 -0.00034332275390625 -8.6868143081665 -10.736821174622 110 79 3 1 -12.123320579529 -9.2573862075806 -0.0012807846069336 -6.7655572891235 -10.546887397766 116 79 3 1 -11.442663192749 -8.6780872344971 -0.025119781494141 -3.7089734077454 -9.0032157897949 93 88 3 1 -9.5150737762451 -10.245401382446 -0.0023665428161621 -6.349983215332 -7.5857391357422 69 90 3 1 -11.53491973877 -8.40283203125 -0.003758430480957 -5.6569800376892 -10.629926681519 192 89 4 1 -10.603820800781 -9.394983291626 -0.82906293869019 -0.57554483413696 -6.8730125427246 160 91 4 1 -11.547681808472 -10.886498451233 -2.4032671451569 -0.097432136535645 -6.0383362770081 185 91 4 1 -11.819645881653 -10.430807113647 -2.1511425971985 -0.12457990646362 -7.2030920982361 86 95 4 1 -10.5071144104 -10.337253570557 -1.8961427211761 -0.16772079467773 -5.4717812538147 52 106 4 1 -6.8988728523254 -10.676605224609 -1.7186996936798 -0.75998091697693 -1.0441422462463 54 22 3 1 -8.0631589889526 -10.981916427612 -0.0024266242980957 -7.9913468360901 -6.3461985588074 43 25 3 1 -7.8791441917419 -10.993843078613 -0.0018162727355957 -8.5567855834961 -6.7033157348633 163 29 3 1 -7.2350454330444 -10.191972732544 -0.0020413398742676 -8.7454261779785 -6.7928276062012 35 31 3 1 -8.3733901977539 -10.670441627502 -0.0021872520446777 -7.1181859970093 -6.793975353241 26 37 3 1 -9.6788034439087 -9.445574760437 -0.00076866149902344 -7.7292556762695 -8.5855598449707 23 43 3 1 -9.3031921386719 -8.8606901168823 -0.0012774467468262 -7.1714448928833 -8.196702003479 200 45 3 1 -8.4540739059448 -7.2246150970459 -0.019369125366211 -4.0205574035645 -8.1170291900635 94 50 3 1 -10.99254989624 -8.1353988647461 -0.00062036514282227 -8.1208763122559 -11.249000549316 170 52 3 1 -9.9733009338379 -7.8232641220093 -0.00065422058105469 -9.194525718689 -9.1564483642578 218 63 3 1 -12.402429580688 -8.9706048965454 -0.00018215179443359 -9.9857635498047 -12.17880821228 57 69 3 1 -8.3583250045776 -5.4496154785156 -0.0052127838134766 -7.4721307754517 -9.2313213348389 207 70 3 1 -12.512138366699 -8.5922031402588 -0.00047016143798828 -8.2078762054443 -11.68023109436 205 74 3 1 -12.235669136047 -8.8212146759033 -0.00031185150146484 -8.7976417541504 -11.653252601624 26 76 3 1 -9.1121520996094 -7.6825571060181 -0.081284999847412 -2.5760197639465 -6.5558171272278 119 78 3 1 -11.471732139587 -8.5109434127808 -0.0081653594970703 -4.8456573486328 -9.7519149780273 106 80 3 1 -11.207233428955 -9.3136138916016 -0.0031962394714355 -5.8096404075623 -9.3281669616699 166 86 3 1 -11.35262298584 -8.977988243103 -0.033391952514648 -3.4239201545715 -9.0433254241943 228 88 4 1 -11.415449142456 -9.286979675293 -0.75819301605225 -0.63319110870361 -7.622537612915 226 89 4 1 -11.240056991577 -9.2580165863037 -0.78328943252563 -0.61190366744995 -7.30340051651 206 90 4 1 -11.145427703857 -10.807985305786 -2.5711677074432 -0.084878921508789 -5.3194074630737 187 91 4 1 -12.093807220459 -10.84695148468 -2.5617961883545 -0.081118583679199 -7.2301640510559 158 92 4 1 -11.037724494934 -11.125883102417 -2.7628104686737 -0.070237159729004 -5.3639087677002 88 94 3 1 -10.049372673035 -9.2719039916992 -0.62685585021973 -0.77072620391846 -5.8372068405151 100 95 4 1 -10.371561050415 -9.0806922912598 -0.87448835372925 -0.54378223419189 -6.1053285598755 67 96 3 1 -9.4367942810059 -9.121488571167 -0.014119148254395 -4.3103942871094 -7.8174886703491 106 97 4 1 -10.315668106079 -9.277925491333 -1.4404673576355 -0.27432060241699 -5.81982421875 103 98 4 1 -11.371447563171 -10.758012771606 -2.9234249591827 -0.058065414428711 -5.9408397674561 51 103 3 1 -7.3356132507324 -9.6029806137085 -0.22178411483765 -1.8878886699677 -3.0618443489075 59 104 3 1 -7.085307598114 -9.8843812942505 -0.58906197547913 -1.1020393371582 -2.188619852066 55 106 4 1 -7.6995968818665 -10.85724067688 -1.8543300628662 -0.40707588195801 -1.7294833660126 april-ann-0.3.1/packages/imaging/interest_points/test/testAreaPixel.lua000066400000000000000000000023101234204160600262440ustar00rootroot00000000000000imgFile = "sample_iam.png" pointsFile = "sample_iam.txt" img = ImageIO.read(imgFile):to_grayscale() points = {{},{},{},{},{}} -- Open the interest points list for line in io.open(pointsFile, "r"):lines() do point = map(tonumber, ipairs(string.tokenize(line))) if point[3] <= 5 then table.insert(points[point[3]], point) end end for i,v in ipairs(points) do print (i, #v) end result = interest_points.classify_pixel(img, points[1], points[2],points[4], points[5]) ImageIO.write(result,"classified.png", "png") -- Load The dataset image local m_indexes = interest_points.get_indexes_from_colored(result) local num_classes = 3; w,h = result:geometry() print(w, h) local dsIndex = dataset.identity(num_classes) local dsPositions = dataset.matrix(m_indexes,{ patternSize = {1,1}, offset = {0,0}, numSteps = {m_indexes:dim(1),1}, }) local dsTags = dataset.matrix(m_indexes,{ patternSize = {1,1}, offset = {0,1}, numSteps = {m_indexes:dim(1),1}, }) local dsSoftmax = dataset.indexed(dsTags, {dsIndex}) local computed = interest_points.get_image_area_from_dataset(dsSoftmax, dsPositions, w, h) ImageIO.write(computed,"computed.png", "png") april-ann-0.3.1/packages/imaging/interest_points/test/testConnected.lua000066400000000000000000000004261234204160600263020ustar00rootroot00000000000000imgFile = arg[1] netFile = arg[2] local width = 500 local height = 250 local miniwidth = 50 local miniheight = 30 img = ImageIO.read(imgFile):to_grayscale() -- Generates the CCs of the image cps = interest_points.ConnectedPoints(img) -- compute interest_points print(cps) april-ann-0.3.1/packages/imaging/interest_points/test/testConnectedSample1.lua000066400000000000000000000021511234204160600275220ustar00rootroot00000000000000imgFile = "sample2.png" pointsFile = "sample2.txt" img = ImageIO.read(imgFile):to_grayscale() -- Generates the CCs of the image cps = interest_points.ConnectedPoints(img) -- Open the interest points list for line in io.open(pointsFile, "r"):lines() do point = map(tonumber, ipairs(string.tokenize(line))) print (point[3]) if point[3] == 4 then print("Adding ", point[1], point[2], point[3]) cps:addPoint(point) end end print("Total added: ", cps:getNumPoints()) print("Components\n") cps:printComponents() cps:sortByX() print("Sorted components\n") cps:printComponents() t = cps:getComponentPoints() print("I have ", #t, "components") for i,component in ipairs(t) do print ("Component ", i) --component, #component) for j, point in ipairs(component) do print(point[1], point[2], point[3]) end end width, height = img:geometry() mySVG = imageSVG.fromImageFile(imgFile, width, height) mySVG:addPaths(t) mySVG:write("sample2.svg") print("Computing components") sp = cps:computeComponents() print(sp:getNumPoints()) print("New component\n") sp:printComponents() april-ann-0.3.1/packages/imaging/interest_points/test/test_interest_points.lua000066400000000000000000000012121234204160600277620ustar00rootroot00000000000000imgFile = arg[1] img = ImageIO.read(imgFile):to_grayscale() --mySVG = imageSVG({width=300, height = 300}) --mySVG:setHeader({}) --mySVG:setFooter({}) w, h = img:geometry() print(w, h) mySVG = imageSVG.fromImageFile(imgFile, w, h) --img = img:invert_colors() uppers, lowers = interest_points.extract_points_from_image(img) print(#uppers) print(#lowers) print("uppers", uppers[1][1], uppers[1][2]) outFile = string.remove_extension(imgFile)..".svg" for _, p in ipairs(uppers) do mySVG:addSquare(p, {}) end for _, p in ipairs(lowers) do mySVG:addSquare(p, {color = "red"}) end mySVG:write(outFile) print(#uppers) print(#lowers) april-ann-0.3.1/packages/imaging/interest_points/test/test_interest_points2.lua000066400000000000000000000026151234204160600300540ustar00rootroot00000000000000imgFile = arg[1] mlpFile = arg[2] bunchsize = arg[3] or 64 img = ImageIO.read(imgFile):to_grayscale() -- Load the image print (img_inv, img) w, h = img:geometry() print(mlpFile) mlp = ann.mlp.all_all.load(mlpFile, bunchsize) trainer = trainable.supervised_trainer(mlp, nil, bunch_size) mySVG = imageSVG.fromImageFile(imgFile, w, h) --img = img:invert_colors() uppers, lowers = interest_points.extract_points_from_image(img) print(#uppers) print(#lowers) outFile = string.remove_extension(imgFile)..".svg" point = uppers[1] pc = interest_points.pointClassifier(500,250,50, 30, false) res = pc:compute_point(img, point, trainer) cl = pc:classify_point(img, point, trainer) -- Classify uppers local uppers_classified = pc:classify_points(img, uppers, trainer) --local uppers_res = pc:compute_points(img_inv, uppers, mlp) --- Transform in tables local tables = interest_points.sort_by_class(uppers_classified, 5) mySVG:addPointsFromTables(tables) print("Tables: ", #tables) for i=1, 5 do print(i, #tables[i]) end -- Classify lowers local lowers_classified = pc:classify_points(img, lowers, trainer) local lower_res = pc:compute_points(img, uppers, trainer) --- Transform in tables tables = interest_points.sort_by_class(lowers_classified, 5) mySVG:addPointsFromTables(tables) print("Tables: ", #tables) for i=1, 5 do print(i, #tables[i]) end --]] mySVG:write(outFile) print(#uppers) print(#lowers) april-ann-0.3.1/packages/imaging/libpng/000077500000000000000000000000001234204160600200365ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/libpng/binding/000077500000000000000000000000001234204160600214505ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/libpng/binding/bind_libpng.lua.cc000066400000000000000000000032401234204160600250050ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Jorge Gorbe Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C //BIND_END //BIND_HEADER_H #include "libpng.h" #include "constString.h" #include "bind_image_RGB.h" //BIND_END //BIND_FUNCTION libpng.read { constString cs; LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, string); LUABIND_GET_PARAMETER(1,constString,cs); const char *filename = (const char *)cs; ImageFloatRGB *res = LibPNG::readPNG(filename); if (res == NULL) LUABIND_ERROR("libpng.read failed"); LUABIND_RETURN(ImageFloatRGB, res); } //BIND_END //BIND_FUNCTION libpng.write { ImageFloatRGB *img; constString cs; LUABIND_CHECK_ARGN(==, 2); LUABIND_CHECK_PARAMETER(2, string); LUABIND_GET_PARAMETER(1,ImageFloatRGB,img); LUABIND_GET_PARAMETER(2,constString,cs); const char *filename = (const char *)cs; bool ok = LibPNG::writePNG(img, filename); if (!ok) LUABIND_ERROR("libpng.write failed"); } //BIND_END april-ann-0.3.1/packages/imaging/libpng/c_src/000077500000000000000000000000001234204160600211275ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/libpng/c_src/libpng.cc000066400000000000000000000165521234204160600227220ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Jorge Gorbe Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include #include #include "clamp.h" #include "libpng.h" namespace LibPNG { ImageFloatRGB *readPNG(const char *filename) { png_structp png_ptr; png_infop info_ptr; png_uint_32 width, height; int bit_depth, color_type; unsigned char *image_data; // Open input file FILE *fp = fopen(filename, "rb"); if (!fp) { fprintf(stderr, "LibPNG::readPNG() -> cannot open input file %s\n", filename); return NULL; } // Check signature unsigned char sig[8]; if (fread(sig, 1, 8, fp) < 8) { fprintf(stderr, "LibPNG::readPNG() -> cannot read signature from file %s\n", filename); return NULL; } if (!png_check_sig(sig, 8)) { fprintf(stderr, "LibPNG::readPNG() -> %s is not a PNG file\n", filename); return NULL; } // Create read and info structs png_ptr = png_create_read_struct(PNG_LIBPNG_VER_STRING, NULL, NULL, NULL); if (!png_ptr) { fprintf(stderr, "LibPNG::readPNG() -> cannot allocate memory for png_struct\n"); return NULL; } info_ptr = png_create_info_struct(png_ptr); if (!info_ptr) { png_destroy_read_struct(&png_ptr, &info_ptr, NULL); fprintf(stderr, "LibPNG::readPNG() -> cannot allocate memory for png_struct\n"); return NULL; } // Set error handling and init I/O if (setjmp(png_jmpbuf(png_ptr))) { png_destroy_read_struct(&png_ptr, &info_ptr, NULL); fprintf(stderr, "Error while initializing I/O\n"); return NULL; } png_init_io(png_ptr, fp); png_set_sig_bytes(png_ptr, 8); // 8 bytes already skipped // Read PNG info ; get image attributes png_read_info(png_ptr, info_ptr); png_get_IHDR(png_ptr, info_ptr, &width, &height, &bit_depth, &color_type, NULL, NULL, NULL); // ignore alpha png_set_strip_alpha(png_ptr); // Expand palette to full RGB if (color_type == PNG_COLOR_TYPE_PALETTE) png_set_palette_to_rgb(png_ptr); // Expand low-bit-depth grayscale to 8 bit if (color_type == PNG_COLOR_TYPE_GRAY && bit_depth < 8) png_set_expand_gray_1_2_4_to_8(png_ptr); // Expand grayscale to RGB if (color_type == PNG_COLOR_TYPE_GRAY) png_set_gray_to_rgb(png_ptr); // Reduce depth to 8 bits/channel if needed if (bit_depth == 16) png_set_strip_16(png_ptr); // Prepare to read pixels if (setjmp(png_jmpbuf(png_ptr))) { png_destroy_read_struct(&png_ptr, &info_ptr, NULL); fprintf(stderr, "Error while reading PNG image from %s\n", filename); return NULL; } png_uint_32 rowbytes; int channels; png_read_update_info(png_ptr, info_ptr); rowbytes = png_get_rowbytes(png_ptr, info_ptr); channels = (int)png_get_channels(png_ptr, info_ptr); image_data = new unsigned char[rowbytes*height]; // libpng needs an array with pointers to the beginning of each row png_bytep *row_pointers = new png_bytep[height]; for (unsigned int i=0; i(height), static_cast(width)}; Matrix *m = new Matrix(2, dims); m->fill(FloatRGB(0.0f,0.0f,0.0f)); ImageFloatRGB *res = new ImageFloatRGB(m); unsigned char *p = image_data; for (unsigned int y=0; ywidth; // Open file for writing FILE *fp = fopen(filename, "wb"); if (!fp) { fprintf(stderr, "LibPNG::writePNG() -> cannot open output file\n"); return false; } // Create png struct and info struct png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING, NULL, NULL, NULL); if (!png_ptr) { fprintf(stderr, "LibPNG::writePNG() -> cannot allocate memory for png_struct\n"); goto close_file; } info_ptr = png_create_info_struct(png_ptr); if (!info_ptr) { fprintf(stderr, "LibPNG::writePNG() -> cannot allocate memory for png_struct\n"); goto destroy_png_struct; } // Init I/O if (setjmp(png_jmpbuf(png_ptr))) { fprintf(stderr, "LibPNG::writePNG() -> Error while initializing I/O\n"); goto destroy_png_struct; } png_init_io(png_ptr, fp); // Write header (fixed to RGB, 24bpp) if (setjmp(png_jmpbuf(png_ptr))) { fprintf(stderr, "LibPNG::writePNG() -> Error while writing header\n"); goto destroy_png_struct; } png_set_IHDR(png_ptr, info_ptr, img->width, img->height, 8, PNG_COLOR_TYPE_RGB, PNG_INTERLACE_NONE, PNG_COMPRESSION_TYPE_BASE, PNG_FILTER_TYPE_BASE); png_write_info(png_ptr, info_ptr); // Create aux pixel buffer image_data = new unsigned char[img->width * img->height * 3]; p = image_data; for (int y=0; y < img->height; y++) { for (int x=0; x < img->width; x++) { FloatRGB c = (*img)(x,y); *p++ = (unsigned char)(april_utils::clamp(c.r, 0.0f, 1.0f)*255.0f); *p++ = (unsigned char)(april_utils::clamp(c.g, 0.0f, 1.0f)*255.0f); *p++ = (unsigned char)(april_utils::clamp(c.b, 0.0f, 1.0f)*255.0f); } } // Create row_pointers array row_pointers = new png_bytep[img->height]; for (int i=0; i < img->height; i++) row_pointers[i] = image_data + i*rowbytes; // Write pixel data if (setjmp(png_jmpbuf(png_ptr))) { fprintf(stderr, "LibPNG::writePNG() -> Error while writing pixel data\n"); goto delete_aux_buffers; } png_write_image(png_ptr, row_pointers); // End write if (setjmp(png_jmpbuf(png_ptr))) { fprintf(stderr, "LibPNG::writePNG() -> Error while ending write\n"); goto delete_aux_buffers; } png_write_end(png_ptr, NULL); success = true; // Cleanup (various stages) delete_aux_buffers: delete[] row_pointers; delete[] image_data; destroy_png_struct: png_destroy_write_struct(&png_ptr, &info_ptr); close_file: fclose(fp); return success; } } april-ann-0.3.1/packages/imaging/libpng/c_src/libpng.h000066400000000000000000000020431234204160600225520ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Jorge Gorbe Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef LIBPNG_H #define LIBPNG_H #include "utilImageFloat.h" #include namespace LibPNG { ImageFloatRGB* readPNG(const char *filename); // returns NULL if error bool writePNG(ImageFloatRGB *img, const char *filename); } #endif april-ann-0.3.1/packages/imaging/libpng/lua_src/000077500000000000000000000000001234204160600214665ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/libpng/lua_src/libpng.lua000066400000000000000000000001041234204160600234370ustar00rootroot00000000000000ImageIO.handlers["png"] = { read=libpng.read, write=libpng.write } april-ann-0.3.1/packages/imaging/libpng/package.lua000066400000000000000000000021161234204160600221340ustar00rootroot00000000000000 package{ name = "libpng", version = "1.0", depends = { "Image", "ImageIO", "util" }, pkgconfig_depends = { "libpng" }, keywords = { "libpng" }, description = "loads and saves PNG images", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_libpng.lua.cc", dest_dir = "include" } }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_libpng.lua.cc", dest_dir = "build", } }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/imaging/libtiff/000077500000000000000000000000001234204160600202025ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/libtiff/binding/000077500000000000000000000000001234204160600216145ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/libtiff/binding/bind_libtiff.lua.cc000066400000000000000000000032511234204160600253170ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Jorge Gorbe Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C //BIND_END //BIND_HEADER_H #include "libtiff.h" #include "constString.h" #include "bind_image_RGB.h" //BIND_END //BIND_FUNCTION libtiff.read { constString cs; LUABIND_CHECK_ARGN(==, 1); LUABIND_CHECK_PARAMETER(1, string); LUABIND_GET_PARAMETER(1,constString,cs); const char *filename = (const char *)cs; ImageFloatRGB *res = LibTIFF::readTIFF(filename); if (res == NULL) LUABIND_ERROR("libtiff.read failed"); LUABIND_RETURN(ImageFloatRGB, res); } //BIND_END //BIND_FUNCTION libtiff.write { ImageFloatRGB *img; constString cs; LUABIND_CHECK_ARGN(==, 2); LUABIND_CHECK_PARAMETER(2, string); LUABIND_GET_PARAMETER(1,ImageFloatRGB,img); LUABIND_GET_PARAMETER(2,constString,cs); const char *filename = (const char *)cs; bool ok = LibTIFF::writeTIFF(img, filename); if (!ok) LUABIND_ERROR("libtiff.write failed"); } //BIND_END april-ann-0.3.1/packages/imaging/libtiff/c_src/000077500000000000000000000000001234204160600212735ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/libtiff/c_src/libtiff.cc000066400000000000000000000076451234204160600232350ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Jorge Gorbe Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include #include #include "tiffio.h" #include "clamp.h" #include "libtiff.h" namespace LibTIFF { ImageFloatRGB *readTIFF(const char *filename) { TIFF* tif = TIFFOpen(filename, "r"); if (tif == NULL) { fprintf(stderr, "LibTIFF::readTIFF() -> TIFFOpen failed on %s\n", filename); return NULL; } int width, height; TIFFGetField(tif, TIFFTAG_IMAGEWIDTH, &width); TIFFGetField(tif, TIFFTAG_IMAGELENGTH, &height); int dims[2]={height, width}; int ok; Matrix *m = NULL; ImageFloatRGB *res = NULL; uint32_t *p = NULL; int npixels = width * height; uint32_t *raster = (uint32_t*) _TIFFmalloc(npixels * sizeof (uint32_t)); if (raster == NULL) { fprintf(stderr, "LibTIFF::readTIFF() -> _TIFFMalloc failed on %s\n", filename); goto close_file; } ok = TIFFReadRGBAImage(tif, width, height, raster, 0); if (!ok) { fprintf(stderr, "LibTIFF::readTIFF() -> TIFFReadRGBAImage failed on %s\n", filename); goto free_image_data; } m = new Matrix(2, dims, FloatRGB(0.0f,0.0f,0.0f)); res = new ImageFloatRGB(m); /* process raster data */ p = raster; for (int y = 0; y < height; y++) { for (int x = 0; x < width; x++) { uint32_t pixel = *p++; float r = TIFFGetR(pixel)/255.0f; float g = TIFFGetG(pixel)/255.0f; float b = TIFFGetB(pixel)/255.0f; (*res)(x,height-1-y) = FloatRGB(r,g,b); } } free_image_data: _TIFFfree(raster); close_file: TIFFClose(tif); return res; } bool writeTIFF(ImageFloatRGB *img, const char *filename) { bool result = false; TIFF* tif = TIFFOpen(filename, "w"); if (tif == NULL) { fprintf(stderr, "LibTIFF::writeTIFF() -> TIFFOpen failed on %s\n", filename); return result; } TIFFSetField(tif, TIFFTAG_IMAGEWIDTH, img->width); TIFFSetField(tif, TIFFTAG_IMAGELENGTH, img->height); TIFFSetField(tif, TIFFTAG_COMPRESSION, COMPRESSION_LZW); TIFFSetField(tif, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG); TIFFSetField(tif, TIFFTAG_PHOTOMETRIC, PHOTOMETRIC_RGB); TIFFSetField(tif, TIFFTAG_BITSPERSAMPLE, 8); TIFFSetField(tif, TIFFTAG_SAMPLESPERPIXEL, 3); TIFFSetField(tif, TIFFTAG_ARTIST, ""); int size = (img->width * img->height * 3); int i; uint8_t* buffer; buffer = (uint8_t*)_TIFFmalloc((unsigned int)size); if (buffer == NULL) { fprintf(stderr, "LibTIFF::writeTIFF() -> _TIFFMalloc failed on %s\n", filename); goto close_file; } // copy data into buffer i=0; for (int y = 0; y < img->height; y++) { for (int x = 0; x < img->width; x++) { FloatRGB color((*img)(x,y)); buffer[i] = uint8_t(color.r*255.0f); buffer[i+1] = uint8_t(color.g*255.0f); buffer[i+2] = uint8_t(color.b*255.0f); i+=3; } } // Write the information to the file TIFFWriteEncodedStrip(tif, 0, buffer, size); // If we are here, file is OK result=true; _TIFFfree(buffer); close_file: TIFFClose(tif); return result; } } april-ann-0.3.1/packages/imaging/libtiff/c_src/libtiff.h000066400000000000000000000020471234204160600230660ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2012, Jorge Gorbe Moya * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef LIBTIFF_H #define LIBTIFF_H #include "utilImageFloat.h" #include namespace LibTIFF { ImageFloatRGB* readTIFF(const char *filename); // returns NULL if error bool writeTIFF(ImageFloatRGB *img, const char *filename); } #endif april-ann-0.3.1/packages/imaging/libtiff/lua_src/000077500000000000000000000000001234204160600216325ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/libtiff/lua_src/libtiff.lua000066400000000000000000000002341234204160600237530ustar00rootroot00000000000000local libtiff_handlers = { read=libtiff.read, write=libtiff.write } ImageIO.handlers["tif"] = libtiff_handlers ImageIO.handlers["tiff"] = libtiff_handlers april-ann-0.3.1/packages/imaging/libtiff/package.lua000066400000000000000000000021161234204160600223000ustar00rootroot00000000000000 package{ name = "libtiff", version = "1.0", depends = { "Image", "util", "ImageIO" }, keywords = { "libtiff" }, description = "loads and saves TIFF images", link_libraries = { "tiff" }, -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_libtiff.lua.cc", dest_dir = "include" } }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_libtiff.lua.cc", dest_dir = "build", } }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/imaging/median_filter/000077500000000000000000000000001234204160600213655ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/median_filter/binding/000077500000000000000000000000001234204160600227775ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/median_filter/binding/bind_median_filter.lua.cc000066400000000000000000000012621234204160600276650ustar00rootroot00000000000000//BIND_HEADER_C #include "bind_median_filter.h" #include "utilMatrixFloat.h" // #include "bind_image_RGB.h" #include "bind_image.h" //BIND_END //BIND_HEADER_H #include "bind_image.h" #include "median_filter.h" #include "utilMatrixFloat.h" // #include "utilImageFloat.h" // #include "bind_matrix.h" // #include "bind_affine_transform.h" // #include //BIND_END //BIND_LUACLASSNAME ImageFloat Image //BIND_METHOD ImageFloat median_filter // recibe el radio { int radio; LUABIND_CHECK_ARGN(==, 1); LUABIND_GET_PARAMETER(1, int, radio); if (radio < 1) LUABIND_ERROR("median filter, radio must be > 0"); LUABIND_RETURN(ImageFloat, medianFilter(obj,radio)); } //BIND_END april-ann-0.3.1/packages/imaging/median_filter/c_src/000077500000000000000000000000001234204160600224565ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/median_filter/c_src/ctmf.c000066400000000000000000000363211234204160600235600ustar00rootroot00000000000000/* * ctmf.c - Constant-time median filtering * Copyright (C) 2006 Simon Perreault * * Reference: S. Perreault and P. Hébert, "Median Filtering in Constant Time", * IEEE Transactions on Image Processing, September 2007. * * This program has been obtained from http://nomis80.org/ctmf.html. No patent * covers this program, although it is subject to the following license: * * This program is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation, either version 3 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . * * Contact: * Laboratoire de vision et systèmes numériques * Pavillon Adrien-Pouliot * Université Laval * Sainte-Foy, Québec, Canada * G1K 7P4 * * perreaul@gel.ulaval.ca */ /* Standard C includes */ #include #include #include #include /* Type declarations */ #ifdef _MSC_VER #include typedef UINT8 uint8_t; typedef UINT16 uint16_t; typedef UINT32 uint32_t; #pragma warning( disable: 4799 ) #else #include #endif /* Intrinsic declarations */ #if defined(__SSE2__) || defined(__MMX__) #if defined(__SSE2__) #include #elif defined(__MMX__) #include #endif #if defined(__GNUC__) #include #elif defined(_MSC_VER) #include #endif #elif defined(__ALTIVEC__) #include #endif /* Compiler peculiarities */ #if defined(__GNUC__) #include #define inline __inline__ #define align(x) __attribute__ ((aligned (x))) #elif defined(_MSC_VER) #define inline __inline #define align(x) __declspec(align(x)) #else #define inline #define align(x) #endif #ifndef MIN #define MIN(a,b) ((a) > (b) ? (b) : (a)) #endif #ifndef MAX #define MAX(a,b) ((a) < (b) ? (b) : (a)) #endif /** * This structure represents a two-tier histogram. The first tier (known as the * "coarse" level) is 4 bit wide and the second tier (known as the "fine" level) * is 8 bit wide. Pixels inserted in the fine level also get inserted into the * coarse bucket designated by the 4 MSBs of the fine bucket value. * * The structure is aligned on 16 bytes, which is a prerequisite for SIMD * instructions. Each bucket is 16 bit wide, which means that extra care must be * taken to prevent overflow. */ typedef struct align(16) { uint16_t coarse[16]; uint16_t fine[16][16]; } Histogram; /** * HOP is short for Histogram OPeration. This macro makes an operation \a op on * histogram \a h for pixel value \a x. It takes care of handling both levels. */ #define HOP(h,x,op) \ h.coarse[x>>4] op; \ *((uint16_t*) h.fine + x) op; #define COP(c,j,x,op) \ h_coarse[ 16*(n*c+j) + (x>>4) ] op; \ h_fine[ 16 * (n*(16*c+(x>>4)) + j) + (x & 0xF) ] op; /** * Adds histograms \a x and \a y and stores the result in \a y. Makes use of * SSE2, MMX or Altivec, if available. */ #if defined(__SSE2__) static inline void histogram_add( const uint16_t x[16], uint16_t y[16] ) { *(__m128i*) &y[0] = _mm_add_epi16( *(__m128i*) &y[0], *(__m128i*) &x[0] ); *(__m128i*) &y[8] = _mm_add_epi16( *(__m128i*) &y[8], *(__m128i*) &x[8] ); } #elif defined(__MMX__) static inline void histogram_add( const uint16_t x[16], uint16_t y[16] ) { *(__m64*) &y[0] = _mm_add_pi16( *(__m64*) &y[0], *(__m64*) &x[0] ); *(__m64*) &y[4] = _mm_add_pi16( *(__m64*) &y[4], *(__m64*) &x[4] ); *(__m64*) &y[8] = _mm_add_pi16( *(__m64*) &y[8], *(__m64*) &x[8] ); *(__m64*) &y[12] = _mm_add_pi16( *(__m64*) &y[12], *(__m64*) &x[12] ); } #elif defined(__ALTIVEC__) static inline void histogram_add( const uint16_t x[16], uint16_t y[16] ) { *(vector unsigned short*) &y[0] = vec_add( *(vector unsigned short*) &y[0], *(vector unsigned short*) &x[0] ); *(vector unsigned short*) &y[8] = vec_add( *(vector unsigned short*) &y[8], *(vector unsigned short*) &x[8] ); } #else static inline void histogram_add( const uint16_t x[16], uint16_t y[16] ) { int i; for ( i = 0; i < 16; ++i ) { y[i] += x[i]; } } #endif /** * Subtracts histogram \a x from \a y and stores the result in \a y. Makes use * of SSE2, MMX or Altivec, if available. */ #if defined(__SSE2__) static inline void histogram_sub( const uint16_t x[16], uint16_t y[16] ) { *(__m128i*) &y[0] = _mm_sub_epi16( *(__m128i*) &y[0], *(__m128i*) &x[0] ); *(__m128i*) &y[8] = _mm_sub_epi16( *(__m128i*) &y[8], *(__m128i*) &x[8] ); } #elif defined(__MMX__) static inline void histogram_sub( const uint16_t x[16], uint16_t y[16] ) { *(__m64*) &y[0] = _mm_sub_pi16( *(__m64*) &y[0], *(__m64*) &x[0] ); *(__m64*) &y[4] = _mm_sub_pi16( *(__m64*) &y[4], *(__m64*) &x[4] ); *(__m64*) &y[8] = _mm_sub_pi16( *(__m64*) &y[8], *(__m64*) &x[8] ); *(__m64*) &y[12] = _mm_sub_pi16( *(__m64*) &y[12], *(__m64*) &x[12] ); } #elif defined(__ALTIVEC__) static inline void histogram_sub( const uint16_t x[16], uint16_t y[16] ) { *(vector unsigned short*) &y[0] = vec_sub( *(vector unsigned short*) &y[0], *(vector unsigned short*) &x[0] ); *(vector unsigned short*) &y[8] = vec_sub( *(vector unsigned short*) &y[8], *(vector unsigned short*) &x[8] ); } #else static inline void histogram_sub( const uint16_t x[16], uint16_t y[16] ) { int i; for ( i = 0; i < 16; ++i ) { y[i] -= x[i]; } } #endif static inline void histogram_muladd( const uint16_t a, const uint16_t x[16], uint16_t y[16] ) { int i; for ( i = 0; i < 16; ++i ) { y[i] += a * x[i]; } } static void ctmf_helper( const unsigned char* const src, unsigned char* const dst, const int width, const int height, const int src_step, const int dst_step, const int r, const int cn, const int pad_left, const int pad_right ) { const int m = height, n = width; int i, j, k, c; const unsigned char *p, *q; Histogram H[4]; uint16_t *h_coarse, *h_fine, luc[4][16]; assert( src ); assert( dst ); assert( r >= 0 ); assert( width >= 2*r+1 ); assert( height >= 2*r+1 ); assert( src_step != 0 ); assert( dst_step != 0 ); /* SSE2 and MMX need aligned memory, provided by _mm_malloc(). */ #if defined(__SSE2__) || defined(__MMX__) h_coarse = (uint16_t*) _mm_malloc( 1 * 16 * n * cn * sizeof(uint16_t), 16 ); h_fine = (uint16_t*) _mm_malloc( 16 * 16 * n * cn * sizeof(uint16_t), 16 ); memset( h_coarse, 0, 1 * 16 * n * cn * sizeof(uint16_t) ); memset( h_fine, 0, 16 * 16 * n * cn * sizeof(uint16_t) ); #else h_coarse = (uint16_t*) calloc( 1 * 16 * n * cn, sizeof(uint16_t) ); h_fine = (uint16_t*) calloc( 16 * 16 * n * cn, sizeof(uint16_t) ); #endif /* First row initialization */ for ( j = 0; j < n; ++j ) { for ( c = 0; c < cn; ++c ) { COP( c, j, src[cn*j+c], += r+1 ); } } for ( i = 0; i < r; ++i ) { for ( j = 0; j < n; ++j ) { for ( c = 0; c < cn; ++c ) { COP( c, j, src[src_step*i+cn*j+c], ++ ); } } } for ( i = 0; i < m; ++i ) { /* Update column histograms for entire row. */ p = src + src_step * MAX( 0, i-r-1 ); q = p + cn * n; for ( j = 0; p != q; ++j ) { for ( c = 0; c < cn; ++c, ++p ) { COP( c, j, *p, -- ); } } p = src + src_step * MIN( m-1, i+r ); q = p + cn * n; for ( j = 0; p != q; ++j ) { for ( c = 0; c < cn; ++c, ++p ) { COP( c, j, *p, ++ ); } } /* First column initialization */ memset( H, 0, cn*sizeof(H[0]) ); memset( luc, 0, cn*sizeof(luc[0]) ); if ( pad_left ) { for ( c = 0; c < cn; ++c ) { histogram_muladd( r, &h_coarse[16*n*c], H[c].coarse ); } } for ( j = 0; j < (pad_left ? r : 2*r); ++j ) { for ( c = 0; c < cn; ++c ) { histogram_add( &h_coarse[16*(n*c+j)], H[c].coarse ); } } for ( c = 0; c < cn; ++c ) { for ( k = 0; k < 16; ++k ) { histogram_muladd( 2*r+1, &h_fine[16*n*(16*c+k)], &H[c].fine[k][0] ); } } for ( j = pad_left ? 0 : r; j < (pad_right ? n : n-r); ++j ) { for ( c = 0; c < cn; ++c ) { const uint16_t t = 2*r*r + 2*r; uint16_t sum = 0, *segment; int b; histogram_add( &h_coarse[16*(n*c + MIN(j+r,n-1))], H[c].coarse ); /* Find median at coarse level */ for ( k = 0; k < 16 ; ++k ) { sum += H[c].coarse[k]; if ( sum > t ) { sum -= H[c].coarse[k]; break; } } assert( k < 16 ); /* Update corresponding histogram segment */ if ( luc[c][k] <= j-r ) { memset( &H[c].fine[k], 0, 16 * sizeof(uint16_t) ); for ( luc[c][k] = j-r; luc[c][k] < MIN(j+r+1,n); ++luc[c][k] ) { histogram_add( &h_fine[16*(n*(16*c+k)+luc[c][k])], H[c].fine[k] ); } if ( luc[c][k] < j+r+1 ) { histogram_muladd( j+r+1 - n, &h_fine[16*(n*(16*c+k)+(n-1))], &H[c].fine[k][0] ); luc[c][k] = j+r+1; } } else { for ( ; luc[c][k] < j+r+1; ++luc[c][k] ) { histogram_sub( &h_fine[16*(n*(16*c+k)+MAX(luc[c][k]-2*r-1,0))], H[c].fine[k] ); histogram_add( &h_fine[16*(n*(16*c+k)+MIN(luc[c][k],n-1))], H[c].fine[k] ); } } histogram_sub( &h_coarse[16*(n*c+MAX(j-r,0))], H[c].coarse ); /* Find median in segment */ segment = H[c].fine[k]; for ( b = 0; b < 16 ; ++b ) { sum += segment[b]; if ( sum > t ) { dst[dst_step*i+cn*j+c] = 16*k + b; break; } } assert( b < 16 ); } } } #if defined(__SSE2__) || defined(__MMX__) _mm_empty(); _mm_free(h_coarse); _mm_free(h_fine); #else free(h_coarse); free(h_fine); #endif } /** * \brief Constant-time median filtering * * This function does a median filtering of an 8-bit image. The source image is * processed as if it was padded with zeros. The median kernel is square with * odd dimensions. Images of arbitrary size may be processed. * * To process multi-channel images, you must call this function multiple times, * changing the source and destination adresses and steps such that each channel * is processed as an independent single-channel image. * * Processing images of arbitrary bit depth is not supported. * * The computing time is O(1) per pixel, independent of the radius of the * filter. The algorithm's initialization is O(r*width), but it is negligible. * Memory usage is simple: it will be as big as the cache size, or smaller if * the image is small. For efficiency, the histograms' bins are 16-bit wide. * This may become too small and lead to overflow as \a r increases. * * \param src Source image data. * \param dst Destination image data. Must be preallocated. * \param width Image width, in pixels. * \param height Image height, in pixels. * \param src_step Distance between adjacent pixels on the same column in * the source image, in bytes. * \param dst_step Distance between adjacent pixels on the same column in * the destination image, in bytes. * \param r Median filter radius. The kernel will be a 2*r+1 by * 2*r+1 square. * \param cn Number of channels. For example, a grayscale image would * have cn=1 while an RGB image would have cn=3. * \param memsize Maximum amount of memory to use, in bytes. Set this to * the size of the L2 cache, then vary it slightly and * measure the processing time to find the optimal value. * For example, a 512 kB L2 cache would have * memsize=512*1024 initially. */ void ctmf( const unsigned char* const src, unsigned char* const dst, const int width, const int height, const int src_step, const int dst_step, const int r, const int cn, const long unsigned int memsize ) { /* * Processing the image in vertical stripes is an optimization made * necessary by the limited size of the CPU cache. Each histogram is 544 * bytes big and therefore I can fit a limited number of them in the cache. * That number may sometimes be smaller than the image width, which would be * the number of histograms I would need without stripes. * * I need to keep histograms in the cache so that they are available * quickly when processing a new row. Each row needs access to the previous * row's histograms. If there are too many histograms to fit in the cache, * thrashing to RAM happens. * * To solve this problem, I figure out the maximum number of histograms * that can fit in cache. From this is determined the number of stripes in * an image. The formulas below make the stripes all the same size and use * as few stripes as possible. * * Note that each stripe causes an overlap on the neighboring stripes, as * when mowing the lawn. That overlap is proportional to r. When the overlap * is a significant size in comparison with the stripe size, then we are not * O(1) anymore, but O(r). In fact, we have been O(r) all along, but the * initialization term was neglected, as it has been (and rightly so) in B. * Weiss, "Fast Median and Bilateral Filtering", SIGGRAPH, 2006. Processing * by stripes only makes that initialization term bigger. * * Also, note that the leftmost and rightmost stripes don't need overlap. * A flag is passed to ctmf_helper() so that it treats these cases as if the * image was zero-padded. */ int stripes = (int) ceil( (double) (width - 2*r) / (memsize / sizeof(Histogram) - 2*r) ); int stripe_size = (int) ceil( (double) ( width + stripes*2*r - 2*r ) / stripes ); int i; for ( i = 0; i < width; i += stripe_size - 2*r ) { int stripe = stripe_size; /* Make sure that the filter kernel fits into one stripe. */ if ( i + stripe_size - 2*r >= width || width - (i + stripe_size - 2*r) < 2*r+1 ) { stripe = width - i; } ctmf_helper( src + cn*i, dst + cn*i, stripe, height, src_step, dst_step, r, cn, i == 0, stripe == width - i ); if ( stripe == width - i ) { break; } } } april-ann-0.3.1/packages/imaging/median_filter/c_src/ctmf.h000066400000000000000000000004661234204160600235660ustar00rootroot00000000000000#ifndef CTMF_H #define CTMF_H #ifdef __cplusplus extern "C" { #endif void ctmf( const unsigned char* src, unsigned char* dst, int width, int height, int src_step_row, int dst_step_row, int r, int channels, unsigned long memsize ); #ifdef __cplusplus } #endif #endif april-ann-0.3.1/packages/imaging/median_filter/c_src/median_filter.cc000066400000000000000000000017371234204160600255770ustar00rootroot00000000000000#include "median_filter.h" #include "ctmf.h" #include "clamp.h" using april_utils::clamp; ImageFloat* medianFilter(ImageFloat *img, int radio) { int numpixels = img->width * img->height; unsigned char *src = new unsigned char[numpixels]; unsigned char *dst = new unsigned char[numpixels]; unsigned char *r = src; // copiamos la imagen a data: for (int y=0;yheight;++y) for (int x=0;xwidth;++x) *r++ = (unsigned char)(clamp((*img)(x,y), 0.0f, 1.0f)*255.0f); // llamamos a la funcion ctmf(src,dst,img->width,img->height, img->width,img->width, radio,1,512*1024); // escribimos el resultado en una imagen nueva int dims[2]; dims[0] = img->height; dims[1] = img->width; MatrixFloat *mat = new MatrixFloat(2,dims); ImageFloat *resul = new ImageFloat(mat); int i=0; for (MatrixFloat::iterator it(mat->begin()); it!=mat->end(); ++it, ++i) *it = dst[i]/255.0f; delete[] src; delete[] dst; return resul; } april-ann-0.3.1/packages/imaging/median_filter/c_src/median_filter.h000066400000000000000000000002371234204160600254330ustar00rootroot00000000000000#ifndef MEDIAN_FILTER_H #define MEDIAN_FILTER_H #include "utilImageFloat.h" ImageFloat* medianFilter(ImageFloat *img, int radio); #endif // MEDIAN_FILTER_H april-ann-0.3.1/packages/imaging/median_filter/doc/000077500000000000000000000000001234204160600221325ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/median_filter/doc/ctmf.pdf000066400000000000000000037402621234204160600235740ustar00rootroot00000000000000%PDF-1.2 7 0 obj << /Type/Encoding /Differences[1/dotaccent/fi/fl/fraction/hungarumlaut/Lslash/lslash/ogonek/ring 11/breve/minus 14/Zcaron/zcaron/caron/dotlessi/dotlessj/ff/ffi/ffl/notequal/infinity/lessequal/greaterequal/partialdiff/summation/product/pi/grave/quotesingle/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright/parenleft/parenright/asterisk/plus/comma/hyphen/period/slash/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde 128/Euro/integral/quotesinglbase/florin/quotedblbase/ellipsis/dagger/daggerdbl/circumflex/perthousand/Scaron/guilsinglleft/OE/Omega/radical/approxequal 147/quotedblleft/quotedblright/bullet/endash/emdash/tilde/trademark/scaron/guilsinglright/oe/Delta/lozenge/Ydieresis 161/exclamdown/cent/sterling/currency/yen/brokenbar/section/dieresis/copyright/ordfeminine/guillemotleft/logicalnot/hyphen/registered/macron/degree/plusminus/twosuperior/threesuperior/acute/mu/paragraph/periodcentered/cedilla/onesuperior/ordmasculine/guillemotright/onequarter/onehalf/threequarters/questiondown/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex/Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis/multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute/Thorn/germandbls/agrave/aacute/acircumflex/atilde/adieresis/aring/ae/ccedilla/egrave/eacute/ecircumflex/edieresis/igrave/iacute/icircumflex/idieresis/eth/ntilde/ograve/oacute/ocircumflex/otilde/odieresis/divide/oslash/ugrave/uacute/ucircumflex/udieresis/yacute/thorn/ydieresis] >> endobj 10 0 obj << /Encoding 7 0 R /Type/Font /Subtype/Type1 /Name/F1 /FontDescriptor 9 0 R /BaseFont/NimbusRomNo9L-Regu /FirstChar 1 /LastChar 255 /Widths[333 556 556 167 333 611 278 333 333 0 333 564 0 611 444 333 278 0 0 0 0 0 0 0 0 0 0 0 0 333 180 250 333 408 500 500 833 778 333 333 333 500 564 250 333 250 278 500 500 500 500 500 500 500 500 500 500 278 278 564 564 564 444 921 722 667 667 722 611 556 722 722 333 389 722 611 889 722 722 556 722 667 556 611 722 722 944 722 722 611 333 278 333 469 500 333 444 500 444 500 444 333 500 500 278 278 500 278 778 500 500 500 500 333 389 278 500 500 722 500 500 444 480 200 480 541 0 0 0 333 500 444 1000 500 500 333 1000 556 333 889 0 0 0 0 0 0 444 444 350 500 1000 333 980 389 333 722 0 0 722 0 333 500 500 500 500 200 500 333 760 276 500 564 333 760 333 400 564 300 300 333 500 453 250 333 300 310 500 750 750 750 444 722 722 722 722 722 722 889 667 611 611 611 611 333 333 333 333 722 722 722 722 722 722 722 564 722 722 722 722 722 722 556 500 444 444 444 444 444 444 667 444 444 444 444 444 278 278 278 278 500 500 500 500 500 500 500 564 500 500 500 500 500 500 500 500] >> endobj 13 0 obj << /Encoding 7 0 R /Type/Font /Subtype/Type1 /Name/F2 /FontDescriptor 12 0 R /BaseFont/NimbusRomNo9L-ReguItal /FirstChar 1 /LastChar 255 /Widths[333 500 500 167 333 556 278 333 333 0 333 675 0 556 389 333 278 0 0 0 0 0 0 0 0 0 0 0 0 333 214 250 333 420 500 500 833 778 333 333 333 500 675 250 333 250 278 500 500 500 500 500 500 500 500 500 500 333 333 675 675 675 500 920 611 611 667 722 611 611 722 722 333 444 667 556 833 667 722 611 722 611 500 556 722 611 833 611 556 556 389 278 389 422 500 333 500 500 444 500 444 278 500 500 278 278 444 278 722 500 500 500 500 389 389 278 500 444 667 444 444 389 400 275 400 541 0 0 0 333 500 556 889 500 500 333 1000 500 333 944 0 0 0 0 0 0 556 556 350 500 889 333 980 389 333 667 0 0 556 0 389 500 500 500 500 275 500 333 760 276 500 675 333 760 333 400 675 300 300 333 500 523 250 333 300 310 500 750 750 750 500 611 611 611 611 611 611 889 667 611 611 611 611 333 333 333 333 722 667 722 722 722 722 722 675 722 722 722 722 722 556 611 500 500 500 500 500 500 500 667 444 444 444 444 444 278 278 278 278 500 500 500 500 500 500 500 675 500 500 500 500 500 444 500 444] >> endobj 16 0 obj << /Encoding 7 0 R /Type/Font /Subtype/Type1 /Name/F3 /FontDescriptor 15 0 R /BaseFont/NimbusRomNo9L-MediItal /FirstChar 1 /LastChar 255 /Widths[333 556 556 167 333 611 278 333 333 0 333 606 0 611 389 333 278 0 0 0 0 0 0 0 0 0 0 0 0 333 278 250 389 555 500 500 833 778 333 333 333 500 570 250 333 250 278 500 500 500 500 500 500 500 500 500 500 333 333 570 570 570 500 832 667 667 667 722 667 667 722 778 389 500 667 611 889 722 722 611 722 667 556 611 722 667 889 667 611 611 333 278 333 570 500 333 500 500 444 500 444 333 500 556 278 278 500 278 778 556 500 500 500 389 389 278 556 444 667 500 444 389 348 220 348 570 0 0 0 333 500 500 1000 500 500 333 1000 556 333 944 0 0 0 0 0 0 500 500 350 500 1000 333 1000 389 333 722 0 0 611 0 389 500 500 500 500 220 500 333 747 266 500 606 333 747 333 400 570 300 300 333 576 500 250 333 300 300 500 750 750 750 500 667 667 667 667 667 667 944 667 667 667 667 667 389 389 389 389 722 722 722 722 722 722 722 570 722 722 722 722 722 611 611 500 500 500 500 500 500 500 722 444 444 444 444 444 278 278 278 278 500 556 500 500 500 500 500 570 500 556 556 556 556 444 500 444] >> endobj 19 0 obj << /Encoding 7 0 R /Type/Font /Subtype/Type1 /Name/F4 /FontDescriptor 18 0 R /BaseFont/NimbusRomNo9L-Medi /FirstChar 1 /LastChar 255 /Widths[333 556 556 167 333 667 278 333 333 0 333 570 0 667 444 333 278 0 0 0 0 0 0 0 0 0 0 0 0 333 278 250 333 555 500 500 1000 833 333 333 333 500 570 250 333 250 278 500 500 500 500 500 500 500 500 500 500 333 333 570 570 570 500 930 722 667 722 722 667 611 778 778 389 500 778 667 944 722 778 611 778 722 556 667 722 722 1000 722 722 667 333 278 333 581 500 333 500 556 444 556 444 333 500 556 278 333 556 278 833 556 500 556 556 444 389 333 556 500 722 500 500 444 394 220 394 520 0 0 0 333 500 500 1000 500 500 333 1000 556 333 1000 0 0 0 0 0 0 500 500 350 500 1000 333 1000 389 333 722 0 0 722 0 333 500 500 500 500 220 500 333 747 300 500 570 333 747 333 400 570 300 300 333 556 540 250 333 300 330 500 750 750 750 500 722 722 722 722 722 722 1000 722 667 667 667 667 389 389 389 389 722 722 778 778 778 778 778 570 778 722 722 722 722 722 611 556 500 500 500 500 500 500 722 444 444 444 444 444 278 278 278 278 500 556 500 500 500 500 500 570 500 556 556 556 556 500 556 500] >> endobj 20 0 obj << /Type/Encoding /Differences[0/Gamma/Delta/Theta/Lambda/Xi/Pi/Sigma/Upsilon/Phi/Psi/Omega/alpha/beta/gamma/delta/epsilon1/zeta/eta/theta/iota/kappa/lambda/mu/nu/xi/pi/rho/sigma/tau/upsilon/phi/chi/psi/omega/epsilon/theta1/pi1/rho1/sigma1/phi1/arrowlefttophalf/arrowleftbothalf/arrowrighttophalf/arrowrightbothalf/arrowhookleft/arrowhookright/triangleright/triangleleft/zerooldstyle/oneoldstyle/twooldstyle/threeoldstyle/fouroldstyle/fiveoldstyle/sixoldstyle/sevenoldstyle/eightoldstyle/nineoldstyle/period/comma/less/slash/greater/star/partialdiff/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z/flat/natural/sharp/slurbelow/slurabove/lscript/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z/dotlessi/dotlessj/weierstrass/vector/tie/psi 160/space/Gamma/Delta/Theta/Lambda/Xi/Pi/Sigma/Upsilon/Phi/Psi 173/Omega/alpha/beta/gamma/delta/epsilon1/zeta/eta/theta/iota/kappa/lambda/mu/nu/xi/pi/rho/sigma/tau/upsilon/phi/chi/psi/tie] >> endobj 23 0 obj << /Encoding 20 0 R /Type/Font /Subtype/Type1 /Name/F5 /FontDescriptor 22 0 R /BaseFont/CMMI8 /FirstChar 33 /LastChar 196 /Widths[660.7 490.6 632.1 882.1 544.1 388.9 692.4 1062.5 1062.5 1062.5 1062.5 295.1 295.1 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 295.1 295.1 826.4 531.3 826.4 531.3 559.7 795.8 801.4 757.3 871.7 778.7 672.4 827.9 872.8 460.7 580.4 896 722.6 1020.4 843.3 806.2 673.6 835.7 800.2 646.2 618.6 718.8 618.8 1002.4 873.9 615.8 720 413.2 413.2 413.2 1062.5 1062.5 434 564.4 454.5 460.2 546.7 492.9 510.4 505.6 612.3 361.7 429.7 553.2 317.1 939.8 644.7 513.5 534.8 474.4 479.5 491.3 383.7 615.2 517.4 762.5 598.1 525.2 494.2 349.5 400.2 673.4 531.3 295.1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 642.9 885.4 806.2 736.8 783.4 872.8 823.4 619.8 708.3 654.8 0 0 816.7 682.4 596.2 547.3 470.1 429.5 467 533.2 495.7 376.2 612.3 619.8 639.2 522.3 467 610.1 544.1 607.2 471.5 576.4 631.6 659.7 694.5 295.1] >> endobj 24 0 obj << /Type/Encoding /Differences[0/Gamma/Delta/Theta/Lambda/Xi/Pi/Sigma/Upsilon/Phi/Psi/Omega/ff/fi/fl/ffi/ffl/dotlessi/dotlessj/grave/acute/caron/breve/macron/ring/cedilla/germandbls/ae/oe/oslash/AE/OE/Oslash/suppress/exclam/quotedblright/numbersign/dollar/percent/ampersand/quoteright/parenleft/parenright/asterisk/plus/comma/hyphen/period/slash/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon/exclamdown/equal/questiondown/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/quotedblleft/bracketright/circumflex/dotaccent/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z/endash/emdash/hungarumlaut/tilde/dieresis/suppress 160/space/Gamma/Delta/Theta/Lambda/Xi/Pi/Sigma/Upsilon/Phi/Psi 173/Omega/ff/fi/fl/ffi/ffl/dotlessi/dotlessj/grave/acute/caron/breve/macron/ring/cedilla/germandbls/ae/oe/oslash/AE/OE/Oslash/suppress/dieresis] >> endobj 27 0 obj << /Encoding 24 0 R /Type/Font /Subtype/Type1 /Name/F6 /FontDescriptor 26 0 R /BaseFont/CMR8 /FirstChar 33 /LastChar 196 /Widths[295.1 531.3 885.4 531.3 885.4 826.4 295.1 413.2 413.2 531.3 826.4 295.1 354.2 295.1 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 295.1 295.1 295.1 826.4 501.7 501.7 826.4 795.8 752.1 767.4 811.1 722.6 693.1 833.5 795.8 382.6 545.5 825.4 663.6 972.9 795.8 826.4 722.6 826.4 781.6 590.3 767.4 795.8 795.8 1091 795.8 795.8 649.3 295.1 531.3 295.1 531.3 295.1 295.1 531.3 590.3 472.2 590.3 472.2 324.7 531.3 590.3 295.1 324.7 560.8 295.1 885.4 590.3 531.3 590.3 560.8 414.1 419.1 413.2 590.3 560.8 767.4 560.8 560.8 472.2 531.3 1062.5 531.3 531.3 531.3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 663.6 885.4 826.4 736.8 708.3 795.8 767.4 826.4 767.4 826.4 0 0 767.4 619.8 590.3 590.3 885.4 885.4 295.1 324.7 531.3 531.3 531.3 531.3 531.3 795.8 472.2 531.3 767.4 826.4 531.3 958.7 1076.8 826.4 295.1 531.3] >> endobj 30 0 obj << /Encoding 20 0 R /Type/Font /Subtype/Type1 /Name/F7 /FontDescriptor 29 0 R /BaseFont/CMMI9 /FirstChar 33 /LastChar 196 /Widths[639.4 477.1 609.5 852.5 529.4 374.4 671.1 1027.8 1027.8 1027.8 1027.8 285.5 285.5 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 285.5 285.5 799.4 513.9 799.4 513.9 543.7 770.7 777.7 733.6 847.5 756.3 656.2 804.8 850.2 449.3 566.3 870.4 699.4 992.9 821.6 782.1 656.2 810.6 777.6 627.9 599.6 699.1 599.4 970.5 849 596.5 699.2 399.7 399.7 399.7 1027.8 1027.8 424.4 544.5 440.4 444.9 532.5 477.8 498.8 490.1 592.2 351.7 420.1 535.1 306.7 905.5 620 497.5 515.9 459.2 463.7 478.8 371.1 591.4 499.2 736.6 582.6 506.2 478 334.5 391.6 653.3 513.9 285.5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 627.7 856.5 782.1 713.6 760.6 850.2 799.2 599.5 685.2 631.1 0 0 792.1 658.7 579.2 530.8 455.9 416.4 450.6 513.2 481.1 363.8 592.2 599.5 619.2 506.9 450.6 588.2 529.4 587.7 452.4 556.3 611.7 640.8 670.5 285.5] >> endobj 33 0 obj << /Encoding 24 0 R /Type/Font /Subtype/Type1 /Name/F8 /FontDescriptor 32 0 R /BaseFont/CMR9 /FirstChar 33 /LastChar 196 /Widths[285.5 513.9 856.5 513.9 856.5 799.4 285.5 399.7 399.7 513.9 799.4 285.5 342.6 285.5 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 285.5 285.5 285.5 799.4 485.3 485.3 799.4 770.7 727.9 742.3 785 699.4 670.8 806.5 770.7 371 528.1 799.2 642.3 942 770.7 799.4 699.4 799.4 756.5 571 742.3 770.7 770.7 1056.2 770.7 770.7 628.1 285.5 513.9 285.5 513.9 285.5 285.5 513.9 571 456.8 571 457.2 314 513.9 571 285.5 314 542.4 285.5 856.5 571 513.9 571 542.4 402 405.4 399.7 571 542.4 742.3 542.4 542.4 456.8 513.9 1027.8 513.9 513.9 513.9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 642.3 856.5 799.4 713.6 685.2 770.7 742.3 799.4 742.3 799.4 0 0 742.3 599.5 571 571 856.5 856.5 285.5 314 513.9 513.9 513.9 513.9 513.9 770.7 456.8 513.9 742.3 799.4 513.9 927.8 1042 799.4 285.5 513.9] >> endobj 36 0 obj << /Encoding 24 0 R /Type/Font /Subtype/Type1 /Name/F9 /FontDescriptor 35 0 R /BaseFont/CMR6 /FirstChar 33 /LastChar 196 /Widths[351.8 611.1 1000 611.1 1000 935.2 351.8 481.5 481.5 611.1 935.2 351.8 416.7 351.8 611.1 611.1 611.1 611.1 611.1 611.1 611.1 611.1 611.1 611.1 611.1 351.8 351.8 351.8 935.2 578.7 578.7 935.2 896.3 850.9 870.4 915.7 818.5 786.1 941.7 896.3 442.6 624.1 928.7 753.7 1090.7 896.3 935.2 818.5 935.2 883.3 675.9 870.4 896.3 896.3 1220.4 896.3 896.3 740.7 351.8 611.1 351.8 611.1 351.8 351.8 611.1 675.9 546.3 675.9 546.3 384.3 611.1 675.9 351.8 384.3 643.5 351.8 1000 675.9 611.1 675.9 643.5 481.5 488 481.5 675.9 643.5 870.4 643.5 643.5 546.3 611.1 1222.2 611.1 611.1 611.1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 753.7 1000 935.2 831.5 805.5 896.3 870.4 935.2 870.4 935.2 0 0 870.4 736.1 703.7 703.7 1055.5 1055.5 351.8 384.3 611.1 611.1 611.1 611.1 611.1 896.3 546.3 611.1 870.4 935.2 611.1 1077.8 1207.4 935.2 351.8 611.1] >> endobj 37 0 obj << /Type/Encoding /Differences[0/minus/periodcentered/multiply/asteriskmath/divide/diamondmath/plusminus/minusplus/circleplus/circleminus/circlemultiply/circledivide/circledot/circlecopyrt/openbullet/bullet/equivasymptotic/equivalence/reflexsubset/reflexsuperset/lessequal/greaterequal/precedesequal/followsequal/similar/approxequal/propersubset/propersuperset/lessmuch/greatermuch/precedes/follows/arrowleft/arrowright/arrowup/arrowdown/arrowboth/arrownortheast/arrowsoutheast/similarequal/arrowdblleft/arrowdblright/arrowdblup/arrowdbldown/arrowdblboth/arrownorthwest/arrowsouthwest/proportional/prime/infinity/element/owner/triangle/triangleinv/negationslash/mapsto/universal/existential/logicalnot/emptyset/Rfractur/Ifractur/latticetop/perpendicular/aleph/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X/Y/Z/union/intersection/unionmulti/logicaland/logicalor/turnstileleft/turnstileright/floorleft/floorright/ceilingleft/ceilingright/braceleft/braceright/angbracketleft/angbracketright/bar/bardbl/arrowbothv/arrowdblbothv/backslash/wreathproduct/radical/coproduct/nabla/integral/unionsq/intersectionsq/subsetsqequal/supersetsqequal/section/dagger/daggerdbl/paragraph/club/diamond/heart/spade/arrowleft 161/minus/periodcentered/multiply/asteriskmath/divide/diamondmath/plusminus/minusplus/circleplus/circleminus 173/circlemultiply/circledivide/circledot/circlecopyrt/openbullet/bullet/equivasymptotic/equivalence/reflexsubset/reflexsuperset/lessequal/greaterequal/precedesequal/followsequal/similar/approxequal/propersubset/propersuperset/lessmuch/greatermuch/precedes/follows/arrowleft/spade] >> endobj 40 0 obj << /Encoding 37 0 R /Type/Font /Subtype/Type1 /Name/F10 /FontDescriptor 39 0 R /BaseFont/CMSY8 /FirstChar 33 /LastChar 196 /Widths[1062.5 531.3 531.3 1062.5 1062.5 1062.5 826.4 1062.5 1062.5 649.3 649.3 1062.5 1062.5 1062.5 826.4 288.2 1062.5 708.3 708.3 944.5 944.5 0 0 590.3 590.3 708.3 531.3 767.4 767.4 826.4 826.4 649.3 849.5 694.7 562.6 821.7 560.8 758.3 631 904.2 585.5 720.1 807.4 730.7 1264.5 869.1 841.6 743.3 867.7 906.9 643.4 586.3 662.8 656.2 1054.6 756.4 705.8 763.6 708.3 708.3 708.3 708.3 708.3 649.3 649.3 472.2 472.2 472.2 472.2 531.3 531.3 413.2 413.2 295.1 531.3 531.3 649.3 531.3 295.1 885.4 795.8 885.4 443.6 708.3 708.3 826.4 826.4 472.2 472.2 472.2 649.3 826.4 826.4 826.4 826.4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 826.4 295.1 826.4 531.3 826.4 531.3 826.4 826.4 826.4 826.4 0 0 826.4 826.4 826.4 1062.5 531.3 531.3 826.4 826.4 826.4 826.4 826.4 826.4 826.4 826.4 826.4 826.4 826.4 826.4 1062.5 1062.5 826.4 826.4 1062.5 826.4] >> endobj 41 0 obj << /Length 1580 /Filter/FlateDecode /Name/Im1 /Type/XObject /Subtype/Form /BBox[0 0 2384 3370] /FormType 1 /Matrix[1 0 0 1 0 0] /Resources<< /ProcSet[/PDF] >> >> stream xͮ6 y AHI|]tQt"S`flM A{=?ӢD9_RZb|e^[?/?~XĐ(gKZ1p4NH._buJUIy*e|i)RB&!4YHn!PFIP( XkK56B/QbQP(jjOQ #)LAd,,)ĈE(TCS :G H!5"HhRB"E2b)O͙OXͩ>ѬX>\ bKtX|Yj<)d 1ORg2D3E2LDb"Dg>ѹe2hj( fy[5p v"-TTj!\LIASdUJ~@!u<]5ŴY=0FRmX}+L ڔV&r4 =Әh,\r $\ڿ̼|̀u{4;)dWY#%ָb1,'SyسW+|a!S\"*W ˡSs?}[H={e)ޭQdsD(nޓ!)[T )H܋X^")[vݯD~r/bNb~bI{;r8$`A)pH*)pHTužj_˹ƹSTC 44nFm?Vo KqS1̀܎b{edRZԿf'\e#](Lv.ɭPrJ+Jٕ 5zfp[HR6DIM8{{n}>-Sۭoo7B U_ 02 endstream endobj 44 0 obj << /Encoding 37 0 R /Type/Font /Subtype/Type1 /Name/F11 /FontDescriptor 43 0 R /BaseFont/CMSY9 /FirstChar 33 /LastChar 196 /Widths[1027.8 513.9 513.9 1027.8 1027.8 1027.8 799.4 1027.8 1027.8 628.1 628.1 1027.8 1027.8 1027.8 799.4 279.3 1027.8 685.2 685.2 913.6 913.6 0 0 571 571 685.2 513.9 742.3 742.3 799.4 799.4 628.1 821.1 673.6 542.6 793.8 542.4 736.3 610.9 871 562.7 696.6 782.2 707.9 1229.2 842.1 816.3 716.8 839.3 873.9 622.4 563.2 642.3 632.1 1017.5 732.4 685 742 685.2 685.2 685.2 685.2 685.2 628.1 628.1 456.8 456.8 456.8 456.8 513.9 513.9 399.7 399.7 285.5 513.9 513.9 628.1 513.9 285.5 856.5 770.7 856.5 428.2 685.2 685.2 799.4 799.4 456.8 456.8 456.8 628.1 799.4 799.4 799.4 799.4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 799.4 285.5 799.4 513.9 799.4 513.9 799.4 799.4 799.4 799.4 0 0 799.4 799.4 799.4 1027.8 513.9 513.9 799.4 799.4 799.4 799.4 799.4 799.4 799.4 799.4 799.4 799.4 799.4 799.4 1027.8 1027.8 799.4 799.4 1027.8 799.4] >> endobj 47 0 obj << /Encoding 20 0 R /Type/Font /Subtype/Type1 /Name/F12 /FontDescriptor 46 0 R /BaseFont/CMMI6 /FirstChar 33 /LastChar 196 /Widths[779.9 586.7 750.7 1021.9 639 487.8 811.6 1222.2 1222.2 1222.2 1222.2 379.6 379.6 638.9 638.9 638.9 638.9 638.9 638.9 638.9 638.9 638.9 638.9 638.9 638.9 379.6 379.6 963 638.9 963 638.9 658.7 924.1 926.6 883.7 998.3 899.8 775 952.9 999.5 547.7 681.6 1025.7 846.3 1161.6 967.1 934.1 780 966.5 922.1 756.7 731.1 838.1 729.6 1150.9 1001.4 726.4 837.7 509.3 509.3 509.3 1222.2 1222.2 518.5 674.9 547.7 559.1 642.5 589 600.7 607.7 725.7 445.6 511.6 660.9 401.6 1093.7 769.7 612.5 642.5 570.7 579.9 584.5 476.8 737.3 625 893.2 697.9 633.1 596.1 445.6 479.2 787.2 638.9 379.6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 742.6 1027.8 934.1 859.3 907.4 999.5 951.6 736.1 833.3 781.2 0 0 946 804.5 698 652 566.2 523.3 571.8 644 590.3 466.4 725.7 736.1 750 621.5 571.8 726.7 639 716.5 582.1 689.8 742.1 767.4 819.4 379.6] >> endobj 50 0 obj << /Encoding 37 0 R /Type/Font /Subtype/Type1 /Name/F13 /FontDescriptor 49 0 R /BaseFont/CMSY6 /FirstChar 33 /LastChar 196 /Widths[1222.2 638.9 638.9 1222.2 1222.2 1222.2 963 1222.2 1222.2 768.5 768.5 1222.2 1222.2 1222.2 963 365.7 1222.2 833.3 833.3 1092.6 1092.6 0 0 703.7 703.7 833.3 638.9 898.1 898.1 963 963 768.5 989.9 813.3 678.4 961.2 671.3 879.9 746.7 1059.3 709.3 846.3 938.8 854.5 1427.2 1005.7 973 878.4 1008.3 1061.4 762 711.3 774.4 785.2 1222.7 883.7 823.9 884 833.3 833.3 833.3 833.3 833.3 768.5 768.5 574.1 574.1 574.1 574.1 638.9 638.9 509.3 509.3 379.6 638.9 638.9 768.5 638.9 379.6 1000 924.1 1027.8 541.7 833.3 833.3 963 963 574.1 574.1 574.1 768.5 963 963 963 963 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 963 379.6 963 638.9 963 638.9 963 963 963 963 0 0 963 963 963 1222.2 638.9 638.9 963 963 963 963 963 963 963 963 963 963 963 963 1222.2 1222.2 963 963 1222.2 963] >> endobj 52 0 obj << /Length 18098 >> stream 0.00 g 0.00 G BT/F1 6.97 Tf 487.41 36.85 TD[(1)]TJ/F1 19.92 Tf -396 -38.87 TD[(Median)-349(Filtering)-350(in)-350(Constant)-350(T)34(ime)]TJ/F1 9.96 Tf 38.12 -20.92 TD[(Simon)-349(Perreault)-350(and)-350(P)14(atrick)-349(H)]TJ 126.1 0.05 TD[(\264)]TJ -0.55 -0.05 TD[(ebert,)]TJ/F2 9.96 Tf 25.89 0 TD[(IEEE)-349(member)]TJ/F3 7.97 Tf -295.04 -46.23 TD[(Abstract)]TJ/F4 7.97 Tf 27.47 0 TD[(\227)-166(The)-263(median)-263(\002lter)-262(is)-263(one)-262(of)-263(the)-262(basic)-263(b)19(uilding)-261(blocks)-263(in)-262(many)]TJ -36.43 -8.96 TD[(image)-462(pr)17(ocessing)-461(situations.)-463(Ho)9(we)15(v)10(er)92(,)-461(its)-463(use)-463(has)-462(long)-463(been)-462(hamper)17(ed)]TJ 0 -8.97 TD[(by)-500(its)-501(algorithmic)-501(complexity)-501(of)]TJ/F5 7.97 Tf 119.55 0 TD[(O)]TJ/F6 7.97 Tf 6.65 0 TD[(\()]TJ/F5 7.97 Tf 3.3 0 TD[(r)]TJ/F6 7.97 Tf 4.05 0 TD[(\))]TJ/F4 7.97 Tf 7.29 0 TD[(in)-500(the)-501(k)9(er)15(nel)-500(radius.)-501(W)17(ith)-500(the)]TJ -140.84 -8.96 TD[(tr)18(end)-383(to)9(ward)-383(lar)9(ger)-383(images)-384(and)-384(pr)17(oportionally)-383(lar)9(ger)-382(\002lter)-384(k)9(er)15(nels,)-383(the)]TJ 0 -8.97 TD[(need)-304(f)24(or)-304(a)-305(mor)17(e)-304(ef\002cient)-306(median)-305(\002ltering)-305(algorithm)-305(becomes)-305(pr)17(essing)15(.)-304(In)]TJ 0 -8.96 TD[(this)-354(corr)17(espondence,)-354(a)-355(new)54(,)-355(simple)-355(y)9(et)-354(much)-355(faster)-355(algorithm)-355(exhibiting)]TJ/F5 7.97 Tf 0 -8.96 TD[(O)]TJ/F6 7.97 Tf 6.65 0 TD[(\(1\))]TJ/F4 7.97 Tf 15.36 0 TD[(runtime)-570(complexity)-570(is)-570(described)-570(and)-570(analyzed.)-571(It)-570(is)-570(compar)17(ed)]TJ -22.01 -8.97 TD[(and)-562(benchmark)9(ed)-561(against)-563(pr)17(e)15(vious)-562(algorithms.)-563(Extensions)-563(to)-562(higher)36(-)]TJ 0 -8.96 TD[(dimensional)-318(or)-318(higher)36(-pr)18(ecision)-318(data)-318(and)-319(an)-319(appr)17(oximation)-317(to)-319(a)-318(cir)17(cular)]TJ 0 -8.97 TD[(k)10(er)15(nel)-374(ar)17(e)-374(pr)17(esented)-374(as)-375(well.)]TJ/F3 7.97 Tf 8.96 -13.84 TD[(Index)-252(T)91(erms)]TJ/F4 7.97 Tf 41.12 0 TD[(\227)-166(Median)-252(\002lters,)-253(image)-252(pr)17(ocessing,)-252(algorithms,)-252(complexity)]TJ -50.08 -8.96 TD[(theory)70(.)]TJ/F1 8.96 Tf 90.51 -24.91 TD[(I)-50(.)-550(I)]TJ/F1 7.17 Tf 14.04 0 TD[(N)-61(T)-62(R)-22(O)-61(D)-62(U)-62(C)-62(T)-61(I)-62(O)-62(N)]TJ/F4 26.89 Tf -104.55 -25.89 TD[(T)]TJ/F1 8.96 Tf 19.27 12.11 TD[(HE)-314(median)-314(\002lter)-314([1])-314(is)-314(a)-314(canonical)-314(image)-315(processing)-314(operation,)]TJ 0 -11.01 TD[(best)-344(kno)24(wn)-342(for)-344(its)-343(salt)-344(and)-343(pepper)-344(noise)-343(remo)14(v)25(al)-343(aptitude.)-343(It)-344(is)]TJ -19.27 -11 TD[(also)-303(the)-304(foundation)-304(upon)-304(which)-304(more)-304(adv)24(anced)-303(image)-303(\002lters)-304(lik)9(e)-303(un-)]TJ 0 -11 TD[(sharp)-333(masking,)-334(rank-order)-335(processing,)-334(and)-334(morphological)-334(operations)]TJ 0 -11.01 TD[(are)-394(b)19(uilt)-394([2].)-396(Higher)19(-le)25(v)15(el)-394(applications)-395(include)-395(object)-395(se)14(gmentation,)]TJ 0 -11 TD[(recognition)-450(of)-451(speech)-451(and)-451(writing,)-451(and)-451(medical)-451(imaging.)-451(Figure)-451(4)]TJ 0 -11 TD[(sho)25(ws)-349(an)-350(e)14(xample)-349(of)-350(its)-350(application)-350(on)-350(a)-350(high-resolution)-350(picture.)]TJ 8.96 -10.96 TD[(Ho)25(we)25(v)15(er)40(,)-308(the)-308(usefulness)-308(of)-308(the)-308(median)-308(\002lter)-308(has)-309(long)-308(been)-308(limited)]TJ -8.96 -11.01 TD[(by)-480(the)-481(processing)-481(time)-481(it)-481(requires.)-481(Its)-481(nonlinearity)-481(and)-480(non)-481(sepa-)]TJ 0 -11 TD[(rability)-504(mak)9(e)-504(it)-505(unsuited)-505(for)-505(common)-504(optimization)-505(techniques.)-505(A)]TJ 0 -11 TD[(brute-force)-409(approach)-410(simply)-410(b)19(uilds)-408(a)-410(list)-410(of)-410(the)-410(pix)14(el)-409(v)24(alues)-409(in)-409(the)]TJ 0 -11.01 TD[(\002lter)-329(k)9(ernel)-328(and)-330(sorts)-329(them.)-330(The)-330(median)-329(is)-330(then)-330(the)-329(v)24(alue)-329(situated)-329(at)]TJ 0 -11 TD[(the)-356(middle)-357(of)-357(the)-357(list.)-357(In)-357(the)-357(general)-357(case,)-357(this)-357(algorithm')54(s)-356(per)19(-pix)15(el)]TJ 0 -11 TD[(comple)15(xity)-424(is)]TJ/F7 8.96 Tf 53.8 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\()]TJ/F7 8.96 Tf 3.58 0 TD[(r)]TJ/F9 5.98 Tf 4.41 3.8 TD[(2)]TJ/F8 8.96 Tf 5.69 -3.8 TD[(log)]TJ/F7 8.96 Tf 13.43 0 TD[(r)]TJ/F8 8.96 Tf 4.42 0 TD[(\))]TJ/F1 8.96 Tf 3.58 0 TD[(,)-425(where)]TJ/F7 8.96 Tf 31.77 0 TD[(r)]TJ/F1 8.96 Tf 8.22 0 TD[(is)-425(the)-425(k)9(ernel)-425(radius.)-425(When)-425(the)]TJ -136.17 -11.01 TD[(number)-317(of)-317(possible)-317(pix)13(el)-316(v)24(alues)-316(is)-318(a)-317(constant,)-318(as)-317(is)-318(the)-317(case)-318(for)-317(8-bit)]TJ 0 -11 TD[(images,)-279(one)-279(can)-279(use)-280(a)-279(b)19(uck)10(et)-279(sort,)-279(which)-280(brings)-279(the)-280(comple)14(xity)-278(do)24(wn)]TJ 0 -11 TD[(to)]TJ/F7 8.96 Tf 10.11 0 TD[(O)]TJ/F8 8.96 Tf 7.26 0 TD[(\()]TJ/F7 8.96 Tf 3.59 0 TD[(r)]TJ/F9 5.98 Tf 4.41 3.8 TD[(2)]TJ/F8 8.96 Tf 4.15 -3.8 TD[(\))]TJ/F1 8.96 Tf 3.58 0 TD[(.)-350(This)-350(is)-350(still)-350(unw)9(orkable)-349(for)-350(an)14(y)-349(b)19(ut)-349(the)-350(smallest)-350(k)9(ernels.)]TJ -24.14 -10.97 TD[(The)-403(classic)-403(algorithm)-404([3],)-403(used)-404(in)-403(virtually)-404(all)-403(publicly)-404(a)19(v)25(ailable)]TJ -8.96 -11 TD[(implementations,)-552(e)14(xhibits)]TJ/F7 8.96 Tf 100.17 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\()]TJ/F7 8.96 Tf 3.58 0 TD[(r)]TJ/F8 8.96 Tf 4.41 0 TD[(\))]TJ/F1 8.96 Tf 8.54 0 TD[(comple)14(xity)-552(\(see)-554(Algorithm)-553(1\).)-553(It)]TJ -123.97 -11 TD[(mak)10(es)-288(use)-289(of)-289(a)-289(histogram)-289(for)-289(accumulating)-289(pix)14(els)-287(in)-289(the)-289(k)9(ernel.)-288(Only)]TJ 0 -11.01 TD[(a)-363(part)-363(of)-364(it)-363(is)-364(modi\002ed)-363(when)-364(mo)14(ving)-362(from)-364(one)-364(pix)14(el)-362(to)-364(another)54(.)-362(As)]TJ 0 -11 TD[(illustrated)-309(in)-309(Figure)-309(1,)]TJ/F8 8.96 Tf 84.05 0 TD[(2)]TJ/F7 8.96 Tf 4.61 0 TD[(r)]TJ/F8 8.96 Tf 5.76 0 TD[(+)-151(1)]TJ/F1 8.96 Tf 15.91 0 TD[(additions)-309(and)]TJ/F8 8.96 Tf 51.36 0 TD[(2)]TJ/F7 8.96 Tf 4.6 0 TD[(r)]TJ/F8 8.96 Tf 5.77 0 TD[(+)-151(1)]TJ/F1 8.96 Tf 15.91 0 TD[(subtractions)-308(need)]TJ -187.97 -11 TD[(to)-341(be)-342(carried)-342(out)-342(for)-342(updating)-342(the)-342(histogram.)-341(Computing)-342(the)-342(median)]TJ 0 -11.01 TD[(from)-421(a)-421(histogram)-422(is)-421(done)-422(in)-421(constant)-422(time)-422(by)-421(summing)-422(the)-421(v)24(alues)]TJ 0 -11 TD[(from)-352(one)-353(end)-353(and)-353(stopping)-354(when)-353(the)-353(sum)-353(reaches)]TJ/F8 8.96 Tf 187.81 0 TD[(\(2)]TJ/F7 8.96 Tf 8.19 0 TD[(r)]TJ/F8 8.96 Tf 6.48 0 TD[(+)-230(1\))]TJ/F9 5.98 Tf 17.42 3.81 TD[(2)]TJ/F7 8.96 Tf 4.15 -3.81 TD[(=)]TJ/F8 8.96 Tf 4.61 0 TD[(2)]TJ/F1 8.96 Tf 4.6 0 TD[(.)-353(F)14(or)]TJ -233.26 -11 TD[(8-bit)-472(images,)-472(a)-473(histogram)-472(is)-473(made)-472(of)-473(256)-473(bins)-472(and)-473(therefore)-472(128)]TJ 0 -11 TD[(comparisons)-322(and)-324(127)-323(additions)-324(will)-323(be)-324(needed)-323(on)-323(a)19(v)15(erage.)-323(Note)-323(that)]TJ 0 -11.01 TD[(an)15(y)-386(other)-386(rank-order)-387(statistic)-387(can)-386(be)-387(computed)-387(in)-386(the)-387(same)-387(w)9(ay)-385(by)]TJ 0 -11 TD[(changing)-349(the)-350(stopping)-350(v)24(alue.)]TJ 8.96 -10.96 TD[(Ef)25(forts)-346(were)-346(made)-346(to)-347(impro)14(v)15(e)-345(the)-346(comple)14(xity)-346(of)-346(the)-346(median)-347(\002lter)]TJ -8.96 -11.01 TD[(be)15(yond)-346(linear)54(.)-345(A)-347(comple)14(xity)-345(of)]TJ/F7 8.96 Tf 118.08 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\(log)]TJ/F9 5.98 Tf 15.48 3.81 TD[(2)]TJ/F7 8.96 Tf 5.69 -3.81 TD[(r)]TJ/F8 8.96 Tf 4.41 0 TD[(\))]TJ/F1 8.96 Tf 6.69 0 TD[(w)9(as)-345(attained)-347(by)-346(Gil)-347(et)-346(al.)]TJ -157.62 -11 TD[([4])-392(using)-394(a)-393(tree-based)-394(algorithm.)-393(In)-393(the)-394(same)-393(paper)-394(the)14(y)-392(claimed)-393(a)]TJ/F7 8.96 Tf 0 -11 TD[(O)]TJ/F8 8.96 Tf 7.26 0 TD[(\(log)]TJ/F7 8.96 Tf 17.02 0 TD[(r)]TJ/F8 8.96 Tf 4.41 0 TD[(\))]TJ/F1 8.96 Tf 6.21 0 TD[(lo)25(wer)-292(bound)-292(for)-293(an)14(y)-291(2-D)-293(median)-292(\002lter)-293(algorithm.)-292(Our)-293(w)9(ork)]TJ -34.9 -11.01 TD[(is)-318(most)-318(similar)-319(to)-319(that)-318(of)-319([5],)-319(where)-318(sorted)-319(lists)-318(were)-319(used)-319(instead)-318(of)]TJ 0 -11 TD[(histograms,)-305(which)-306(resulted)-306(in)-306(a)]TJ/F7 8.96 Tf 116.53 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\()]TJ/F7 8.96 Tf 3.58 0 TD[(r)]TJ/F9 5.98 Tf 4.41 3.81 TD[(2)]TJ/F8 8.96 Tf 4.15 -3.81 TD[(\))]TJ/F1 8.96 Tf 6.33 0 TD[(comple)15(xity)-305(and)-306(w)9(as)-305(relati)24(v)15(ely)]TJ -142.27 -11 TD[(slo)25(w)65(.)-407(More)-407(recently)64(,)-407(W)79(eiss)-407([6])-408(de)24(v)15(eloped)-406(a)-408(method)-408(whose)-407(runtime)]TJ 0 -11.01 TD[(is)]TJ/F7 8.96 Tf 9.66 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\(log)]TJ/F7 8.96 Tf 17.02 0 TD[(r)]TJ/F8 8.96 Tf 4.41 0 TD[(\))]TJ/F1 8.96 Tf 7.27 0 TD[(using)-411(a)-412(hierarch)4(y)-410(of)-412(histograms.)-411(In)-412(his)-411(approach,)-412(e)24(v)15(en)]TJ -45.63 -11 TD[(though)]TJ/F2 8.96 Tf 29.01 0 TD[(comple)19(xity)]TJ/F1 8.96 Tf 42.77 0 TD[(has)-458(been)-459(lo)24(wered,)]TJ/F2 8.96 Tf 72.1 0 TD[(simplicity)]TJ/F1 8.96 Tf 38.97 0 TD[(has)-459(been)-459(lost.)-459(W)79(e)]TJ -182.85 -11 TD[(stri)25(v)15(e)-336(for)-338(a)-337(simple)-337(and)-337(ef)24(\002cient)-336(algorithm,)-338(with)-337(applicability)-337(to)-337(both)]TJ 0 -11.01 TD[(CPU)-349(and)-350(custom)-350(hardw)9(are.)]TJ/F1 7.97 Tf 8.46 -16.07 TD[(The)-547(authors)-548(are)-548(with)-548(the)-548(Computer)-547(V)59(ision)-547(and)-548(Systems)-548(Lab,)-547(Uni)24(v)15(er)20(-)]TJ -8.46 -8.97 TD[(sit)]TJ 7.97 0.04 TD[(\264)]TJ -0.44 -0.04 TD[(e)-643(La)19(v)25(al,)-644(Qu)]TJ 43.76 0.04 TD[(\264)]TJ -0.45 -0.04 TD[(ebec,)-644(Canada.)-645(G1K)-644(7P4.)-645(Phone:)-644(\(418\))-644(656-2131)-644(#4479.)]TJ -50.84 -8.96 TD[(F)15(ax:)-349(\(418\))-350(656-3594.)-350(E-mail:)]TJ/F10 7.97 Tf 98.89 0 TD[(f)]TJ/F1 7.97 Tf 4.24 0 TD[(perreaul,hebert)]TJ/F10 7.97 Tf 48 0 TD[(g)]TJ/F1 7.97 Tf 4.24 0 TD[(@gel.ula)20(v)25(al.ca)]TJ ET q 0.486352 0 -0 0.486352 311.42 -163.71 cm /Im1 Do Q BT/F1 8.96 Tf 239.91 -176.91 TD[(Fig.)-353(1:)-354(In)-354(Huang')54(s)]TJ/F7 8.96 Tf 71.2 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\()]TJ/F7 8.96 Tf 3.58 0 TD[(n)]TJ/F8 8.96 Tf 5.56 0 TD[(\))]TJ/F1 8.96 Tf 6.75 0 TD[(algorithm,)]TJ/F8 8.96 Tf 40.27 0 TD[(2)]TJ/F7 8.96 Tf 4.61 0 TD[(r)]TJ/F8 8.96 Tf 6.49 0 TD[(+)-230(1)]TJ/F1 8.96 Tf 17.01 0 TD[(pix)14(els)-353(must)-354(be)-353(added)-354(to)]TJ -162.74 -11 TD[(and)-391(subtracted)-392(from)-393(the)-392(k)9(ernel')55(s)-391(histogram)-392(when)-392(mo)14(ving)-391(from)-392(one)]TJ 0 -11.01 TD[(pix)15(el)-349(to)-350(the)-350(ne)14(xt.)-349(In)-350(this)-350(\002gure,)]TJ/F7 8.96 Tf 118.79 0 TD[(r)]TJ/F8 8.96 Tf 6.98 0 TD[(=)-285(2)]TJ/F1 8.96 Tf 14.33 0 TD[(.)]TJ ET 0.8 w 239.91 -213.98 m 490.9 -213.98 l S BT/F4 8.96 Tf 239.91 -223.09 TD[(Algorithm)-374(1)]TJ/F1 8.96 Tf 51.04 0 TD[(Huang')55(s)]TJ/F7 8.96 Tf 33.01 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\()]TJ/F7 8.96 Tf 3.58 0 TD[(n)]TJ/F8 8.96 Tf 5.56 0 TD[(\))]TJ/F1 8.96 Tf 6.72 0 TD[(median)-349(\002ltering)-350(algorithm.)]TJ ET 0.4 w 239.91 -227.52 m 490.9 -227.52 l S BT/F4 8.96 Tf 239.91 -235.84 TD[(Input:)]TJ/F1 8.96 Tf 28.89 0 TD[(Image)]TJ/F7 8.96 Tf 25.53 0 TD[(X)]TJ/F1 8.96 Tf 11.45 0 TD[(of)-350(size)]TJ/F7 8.96 Tf 27.68 0 TD[(m)]TJ/F11 8.96 Tf 10.17 0 TD[(\243)]TJ/F7 8.96 Tf 9.21 0 TD[(n)]TJ/F1 8.96 Tf 5.56 0 TD[(,)-349(k)9(ernel)-349(radius)]TJ/F7 8.96 Tf 55.87 0 TD[(r)]TJ/F4 8.96 Tf -174.36 -11 TD[(Output:)]TJ/F1 8.96 Tf 35.36 0 TD[(Image)]TJ/F7 8.96 Tf 25.54 0 TD[(Y)]TJ/F1 8.96 Tf 10.53 0 TD[(of)-349(the)-350(same)-350(size)-350(as)]TJ/F7 8.96 Tf 73.93 0 TD[(X)]TJ/F1 8.96 Tf -136.4 -11.01 TD[(Initialize)-350(k)9(ernel)-349(histogram)]TJ/F7 8.96 Tf 99.44 0 TD[(H)]TJ/F4 8.96 Tf -99.44 -11 TD[(f)24(or)]TJ/F7 8.96 Tf 14.36 0 TD[(i)]TJ/F8 8.96 Tf 5.71 0 TD[(=)-285(1)]TJ/F1 8.96 Tf 17.47 0 TD[(to)]TJ/F7 8.96 Tf 10.11 0 TD[(m)]TJ/F4 8.96 Tf 11.26 0 TD[(do)]TJ -49.95 -11 TD[(f)24(or)]TJ/F7 8.96 Tf 14.36 0 TD[(j)]TJ/F8 8.96 Tf 6.84 0 TD[(=)-285(1)]TJ/F1 8.96 Tf 17.47 0 TD[(to)]TJ/F7 8.96 Tf 10.11 0 TD[(n)]TJ/F4 8.96 Tf 8.7 0 TD[(do)]TJ -48.51 -11.01 TD[(f)25(or)]TJ/F7 8.96 Tf 14.36 0 TD[(k)]TJ/F8 8.96 Tf 7.62 0 TD[(=)]TJ/F11 8.96 Tf 9.72 0 TD[(\241)]TJ/F7 8.96 Tf 7.17 0 TD[(r)]TJ/F1 8.96 Tf 7.55 0 TD[(to)]TJ/F7 8.96 Tf 10.11 0 TD[(r)]TJ/F4 8.96 Tf 7.55 0 TD[(do)]TJ/F1 8.96 Tf -55.12 -11 TD[(Remo)14(v)15(e)]TJ/F7 8.96 Tf 32.75 0 TD[(X)]TJ/F12 5.98 Tf 7.61 -1.06 TD[(i)]TJ/F9 5.98 Tf 2.66 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(k)-20(;j)]TJ/F13 5.98 Tf 9.74 0 TD[(\241)]TJ/F12 5.98 Tf 5.76 0 TD[(r)]TJ/F13 5.98 Tf 3.66 0 TD[(\241)]TJ/F9 5.98 Tf 5.75 0 TD[(1)]TJ/F1 8.96 Tf 7.29 1.06 TD[(from)]TJ/F7 8.96 Tf 20.56 0 TD[(H)]TJ/F1 8.96 Tf -101.37 -11 TD[(Add)]TJ/F7 8.96 Tf 18.58 0 TD[(X)]TJ/F12 5.98 Tf 7.61 -1.07 TD[(i)]TJ/F9 5.98 Tf 2.66 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(k)-20(;j)]TJ/F9 5.98 Tf 9.74 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)]TJ/F1 8.96 Tf 7.3 1.07 TD[(to)]TJ/F7 8.96 Tf 10.11 0 TD[(H)]TJ/F4 8.96 Tf -76.14 -11.01 TD[(end)-349(f)24(or)]TJ/F7 8.96 Tf 0 -11 TD[(Y)]TJ/F12 5.98 Tf 5.35 -1 TD[(i;j)]TJ/F11 8.96 Tf 11.39 1 TD[(\303)]TJ/F8 8.96 Tf 11.77 0 TD[(median\()]TJ/F7 8.96 Tf 32.76 0 TD[(H)]TJ/F8 8.96 Tf 8.33 0 TD[(\))]TJ/F4 8.96 Tf -78.57 -11 TD[(end)-350(f)24(or)]TJ -8.96 -11.01 TD[(end)-350(f)24(or)]TJ ET 0.4 w 239.91 -360.99 m 490.9 -360.99 l S BT/F1 8.96 Tf 248.87 -391.25 TD[(In)-307(this)-308(correspondence)-308(we)-307(propose)-308(a)-308(simple)]TJ/F7 8.96 Tf 162.69 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\(1\))]TJ/F1 8.96 Tf 14.53 0 TD[(median)-307(\002ltering)]TJ -193.45 -11 TD[(algorithm)-266(similar)-267(in)-268(spirit)-267(to)-267(Huang')54(s.)-266(W)79(e)-266(sho)24(w)-266(a)-267(fe)24(w)-266(straightforw)9(ard)]TJ 0 -11.01 TD[(optimizations)-301(which)-301(enable)-301(it)-302(to)-301(become)-302(much)-301(f)9(aster)-301(than)-301(the)-301(classic)]TJ 0 -11 TD[(algorithm.)-326(W)79(e)-326(tak)9(e)-327(the)-327(opportunity)-327(to)-327(e)14(xamine)-326(wh)4(y)-326(the)-327(Gil-W)79(erman)]TJ 0 -11 TD[(lo)25(wer)-421(bound)-421(of)]TJ/F7 8.96 Tf 61.4 0 TD[(O)]TJ/F8 8.96 Tf 7.26 0 TD[(\(log)]TJ/F7 8.96 Tf 17.02 0 TD[(r)]TJ/F8 8.96 Tf 4.41 0 TD[(\))]TJ/F1 8.96 Tf 7.36 0 TD[(does)-422(not)-421(seem)-422(to)-421(hold.)-422(Then)-421(we)-422(e)14(xplore)]TJ -97.45 -11.01 TD[(e)15(xtensions)-279(to)-280(the)-280(ne)24(w)-279(\002lter)39(,)-279(namely)-280(application)-280(to)-280(higher)19(-precision)-279(or)]TJ 0 -11 TD[(higher)20(-dimensional)-389(data)-390(as)-390(well)-390(as)-390(a)-390(circular)-390(k)9(ernel)-388(approximation.)]TJ 0 -11 TD[(Finally)65(,)-472(timing)-474(results)-473(are)-473(sho)24(wn,)-472(asserting)-474(the)-473(practicality)-473(of)-473(our)]TJ 0 -11.01 TD[(approach.)]TJ/F1 8.96 Tf 52.79 -24.21 TD[(I)-49(I)-50(.)-550(F)]TJ/F1 7.17 Tf 19.47 0 TD[(R)-21(O)-62(M)]TJ/F7 8.96 Tf 19.4 0 TD[(O)]TJ/F8 8.96 Tf 7.26 0 TD[(\()]TJ/F7 8.96 Tf 3.59 0 TD[(r)]TJ/F8 8.96 Tf 4.41 0 TD[(\))]TJ/F1 7.17 Tf 6.05 0 TD[(T)-43(O)]TJ/F7 8.96 Tf 12.33 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\(1\))]TJ/F1 8.96 Tf 14.23 0 TD[(C)]TJ/F1 7.17 Tf 6.43 0 TD[(O)-61(M)-63(P)-61(L)-62(E)-61(X)-62(I)-62(T)-61(Y)]TJ/F1 8.96 Tf -144.27 -14.62 TD[(T)79(o)-453(best)-454(understand)-455(our)-454(approach,)-454(it)-455(is)-454(helpful)-455(to)-454(\002rst)-454(point)-455(out)]TJ -8.96 -11 TD[(the)-499(inef)24(\002cienc)15(y)-498(in)-500(Huang')54(s)-498(algorithm.)-500(Speci\002cally)64(,)-498(notice)-500(that)-499(no)]TJ 0 -11 TD[(information)-473(is)-474(retained)-474(between)-474(ro)24(ws.)-473(Each)-474(pix)14(el)-473(will)-474(need)-474(to)-473(be)]TJ 0 -11.01 TD[(added)-245(and)-247(remo)14(v)15(ed)-245(to)]TJ/F8 8.96 Tf 81.24 0 TD[(2)]TJ/F7 8.96 Tf 4.61 0 TD[(r)]TJ/F8 8.96 Tf 4.69 0 TD[(+)-30(1)]TJ/F1 8.96 Tf 14.25 0 TD[(histograms)-246(o)14(v)15(er)-245(the)-247(course)-246(of)-246(processing)]TJ -104.79 -11 TD[(the)-345(whole)-346(image,)-346(which)-346(causes)-346(the)]TJ/F7 8.96 Tf 131.87 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\()]TJ/F7 8.96 Tf 3.58 0 TD[(r)]TJ/F8 8.96 Tf 4.41 0 TD[(\))]TJ/F1 8.96 Tf 6.69 0 TD[(comple)15(xity)65(.)-345(Intuiti)24(v)15(ely)65(,)-345(we)]TJ -153.82 -11 TD[(can)-501(guess)-502(that)-501(we)-502(will)-502(need)-501(to)-502(accumulate)-502(each)-501(pix)14(el)-501(at)-502(most)-501(a)]TJ 0 -11.01 TD[(constant)-288(number)-289(of)-289(times)-290(to)-289(obtain)]TJ/F7 8.96 Tf 129.08 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\(1\))]TJ/F1 8.96 Tf 14.36 0 TD[(comple)14(xity)65(.)-288(As)-289(we)-289(will)-289(see,)]TJ -150.71 -11 TD[(this)-349(becomes)-350(possible)-350(when)-350(information)-350(is)-350(retained)-350(between)-350(ro)24(ws.)]TJ 8.96 -11.13 TD[(Let)-360(us)-360(introduce)-360(one)-360(property)-360(of)-360(histograms,)-361(that)-360(of)-360(distrib)19(uti)25(vity)]TJ -8.96 -11.01 TD[([6].)-349(F)14(or)-349(disjoint)-350(re)14(gions)]TJ/F7 8.96 Tf 90.71 0 TD[(A)]TJ/F1 8.96 Tf 10.05 0 TD[(and)]TJ/F7 8.96 Tf 16.08 0 TD[(B)]TJ/F1 8.96 Tf 7.42 0 TD[(,)]TJ/F7 8.96 Tf -54.51 -17.54 TD[(H)]TJ/F8 8.96 Tf 8.33 0 TD[(\()]TJ/F7 8.96 Tf 3.58 0 TD[(A)]TJ/F11 8.96 Tf 8.96 0 TD[([)]TJ/F7 8.96 Tf 8.19 0 TD[(B)]TJ/F8 8.96 Tf 7.42 0 TD[(\))-285(=)]TJ/F7 8.96 Tf 15.86 0 TD[(H)]TJ/F8 8.96 Tf 8.34 0 TD[(\()]TJ/F7 8.96 Tf 3.58 0 TD[(A)]TJ/F8 8.96 Tf 6.91 0 TD[(\))-227(+)]TJ/F7 8.96 Tf 14.84 0 TD[(H)]TJ/F8 8.96 Tf 8.33 0 TD[(\()]TJ/F7 8.96 Tf 3.59 0 TD[(B)]TJ/F8 8.96 Tf 7.41 0 TD[(\))]TJ/F7 8.96 Tf 3.59 0 TD[(:)]TJ/F1 8.96 Tf -178.68 -17.53 TD[(Notice)-455(that)-455(summing)-456(histograms)-456(is)-455(a)]TJ/F7 8.96 Tf 144.52 0 TD[(O)]TJ/F8 8.96 Tf 7.26 0 TD[(\(1\))]TJ/F1 8.96 Tf 15.86 0 TD[(operation)-455(with)-456(respect)]TJ -167.64 -11.01 TD[(to)-453(the)-454(number)-453(of)-454(accumulated)-454(pix)14(els.)-453(It)-453(depends)-454(only)-454(on)-454(the)-453(size)]TJ 0 -11 TD[(of)-416(the)-417(histogram,)-417(which)-417(is)-416(itself)-417(a)-417(function)-417(of)-417(the)-417(bit)-417(depth)-417(of)-416(the)]TJ ET endstream endobj 54 0 obj << /F1 10 0 R /F2 13 0 R /F3 16 0 R /F4 19 0 R /F5 23 0 R /F6 27 0 R /F7 30 0 R /F8 33 0 R /F9 36 0 R /F10 40 0 R /F11 44 0 R /F12 47 0 R /F13 50 0 R >> endobj 55 0 obj << /Im1 41 0 R >> endobj 6 0 obj << /ProcSet[/PDF/Text/ImageC] /Font 54 0 R /XObject 55 0 R >> endobj 58 0 obj << /Length 1552 /Filter/FlateDecode /Name/Im2 /Type/XObject /Subtype/Form /BBox[0 0 2384 3370] /FormType 1 /Matrix[1 0 0 1 0 0] /Resources<< /ProcSet[/PDF] >> >> stream xYˎ&Wx}* "(Hs7s3mFFib ᗗ-xo qߔdۏnna"A:ųT2>h";E$軨HuI(D]WXHp##d{ :?S4zAF/E//;M2Ƚ@q?$ۦ:2_1D,Q=@ct?m1AE&P58!O%&+T* ik[ҧ 3AFP0yg)JkN&OX #j`"^,AG&L\~[^R[YY5E!$P)\qaFS9E?ِ)梕9͞+˞'HNjR)Z42EJ"|f+e$iбTdF7ʽe*rϥ񱫎H\-v,2CRSlR)$gYѨB34!N=ˆ̐DBf#z<sMGS)mi6hMfhjThMiBphyآ\#y z*t*r*[JI}cJ,€@E)BMMVJj*UGqhrsƶ0ܠPnYҳU8*rAB[1ݛԈRRQa5: ֮\ӆ˸+f7d҆ "o[-['ŒH6㲗X՟O>=vIJ{{0Ϯ `$K)u{O 5tIPiңC>Db;) : [+DVpq$A!.wAZ %<`ذI87V|eϯ'nkx~@êbr!:/ 3^V_4N'H)^jq*3T^*a}'qc.?@P/ Eu?EF~w_otQ kpP sbrQ-GNg9~RgFi;|=(04IAS??W endstream endobj 59 0 obj << /Length 1914 /Filter/FlateDecode /Name/Im3 /Type/XObject /Subtype/Form /BBox[0 0 2384 3370] /FormType 1 /Matrix[1 0 0 1 0 0] /Resources<< /ProcSet[/PDF] >> >> stream xՙˎ7 E`AY;Yddws*QR4@<ݷS)knӍ?JՔ'~ksqϿ7O>g!ܼ|!JJܶR5(ׁ-cfw>}Jw~Hȱ=r%jlpzTGX|2%DX[ Sr-]X2f,%F"C1(y_P!^A<X?FX < |ZXI1T  ?M0& 6"Ԥ&8%&* 5Ò X$cMj)b7k~ь'& >5!1PVJ!k ج&8C.N+htd!` ]nO '8@g g_3WloH{| =%`x7WTR"'V(qCT NWFZf'z-Q&g5@j@2Fȟ(ׁ6uȈ1N#])T>VK9QF#N뒻-. 2eh.I.8 ٪?qar'u _q&G?,.xɱfu(ׁ|ɔf|bkB&atyv+B]8qcϊu _p՛P,.PqDj$4V[SWƆ搾OH8Q(cCs%A0y$LA&$E2ڑ}}BAߞ" !Ȗ!8=Lγ}r;0 W]l"5TN}ILƑ+ηxΩ=Qmx9'@'hA/oE=!96Tr4eK|LsWT91jSKpt.@;#7]taS$0؜.*wv%(2kFԵ166 J.mr[nǧ9qDַ{O_ꗛ}s.ũ+v0 yWq8+k;fW0:0cA.`$uت)]YDӕ5 u^cve _ށYo̞& }P,at G- Q >\\{XQ]Y(]Zl;l =ҥ 4;sI+~U.-a1. aK+~ P.=c PnD;į.x UåZamumyG=ېmo?Azh>BC݉fW(iC}U J~n%a+:e<^ YHNc+9CyjEGV (uQJc(;!&A4ryc)-/ on\2 N± +ekzhX~]ho X aξظ}2z119{e(KDQ[n,V/= :({SējaK^(R-LWEyEeVsT dD.2Hs\() d^( e`() eb(vJɰSd(@f(Ph(UCHP eCHP uNuq^8P9J dt() ev( zP R> stream 0.00 g 0.00 G BT/F1 6.97 Tf -23.03 36.85 TD[(2)]TJ ET q 0.486352 0 -0 0.486352 -12.25 -86.68 cm /Im2 Do Q BT/F1 7.97 Tf 35.75 -96.94 TD[(\(a\))]TJ ET q 0.486352 0 -0 0.486352 112.33 -86.68 cm /Im3 Do Q BT 160.11 -96.94 TD[(\(b\))]TJ/F1 8.96 Tf -183.14 -15.9 TD[(Fig.)-460(2:)-461(The)-460(tw)9(o)-460(steps)-461(of)-460(the)-461(proposed)-461(algorithm.)-461(\(a\))-461(The)-460(column)]TJ 0 -11 TD[(histogram)-368(to)-369(the)-370(right)-369(is)-369(mo)14(v)15(ed)-368(do)24(wn)-368(one)-370(ro)24(w)-368(by)-369(adding)-369(one)-369(pix)14(el)]TJ 0 -11 TD[(and)-541(subtracting)-541(another)54(.)-541(\(b\))-542(The)-542(k)9(ernel)-540(histogram)-542(is)-542(updated)-541(by)]TJ 0 -11.01 TD[(adding)-388(the)-389(modi\002ed)-389(column)-389(histogram)-389(and)-389(subtracting)-389(the)-389(leftmost)]TJ 0 -11 TD[(one.)]TJ 0 -33.13 TD[(image.)-261(Ha)19(ving)-262(made)-262(this)-262(observ)24(ation,)-261(we)-263(can)-262(mo)14(v)15(e)-261(on)-263(to)-262(a)-262(ne)24(w)]TJ/F7 8.96 Tf 231.95 0 TD[(O)]TJ/F8 8.96 Tf 7.26 0 TD[(\(1\))]TJ/F1 8.96 Tf -239.21 -11 TD[(algorithm.)]TJ 8.96 -11.05 TD[(The)-319(proposed)-320(algorithm)-320(maintains)-320(one)-320(histogram)-320(for)-320(each)-320(column)]TJ -8.96 -11.01 TD[(in)-320(the)-321(image.)-321(This)-320(s)-1(et)-320(of)-321(histograms)-321(is)-321(preserv)14(ed)-320(across)-321(ro)24(ws)-320(for)-320(the)]TJ 0 -11 TD[(entirety)-362(of)-363(the)-363(process.)-363(Each)-363(column)-363(histogram)-363(accumulates)]TJ/F8 8.96 Tf 225.92 0 TD[(2)]TJ/F7 8.96 Tf 4.61 0 TD[(r)]TJ/F8 8.96 Tf 6.55 0 TD[(+)-237(1)]TJ/F1 8.96 Tf -237.08 -11 TD[(adjacent)-301(pix)14(els)-302(and)-302(is)-302(initially)-302(centered)-303(on)-302(the)-302(\002rst)-303(ro)24(w)-301(of)-302(the)-302(image.)]TJ 0 -11.01 TD[(The)-529(k)9(ernel)-529(histogram)-530(is)-530(computed)-530(by)-530(summing)]TJ/F8 8.96 Tf 189.02 0 TD[(2)]TJ/F7 8.96 Tf 4.61 0 TD[(r)]TJ/F8 8.96 Tf 7.69 0 TD[(+)-365(1)]TJ/F1 8.96 Tf 19.8 0 TD[(adjacent)]TJ -221.12 -11 TD[(column)-562(histograms.)-564(What)-563(we)-563(ha)19(v)15(e)-563(done)-563(is)-563(break)-564(up)-563(the)-563(k)9(ernel)]TJ 0 -11 TD[(histogram)-452(into)-453(the)-453(union)-453(of)-453(its)-453(columns,)-453(each)-452(of)-453(which)-453(maintains)]TJ 0 -11.01 TD[(its)-385(o)24(wn)-385(histogram.)-386(While)-386(\002ltering)-386(the)-386(image,)-386(all)-386(histograms)-386(can)-386(be)]TJ 0 -11 TD[(k)10(ept)-349(up)-350(to)-350(date)-350(in)-350(constant)-350(time)-350(with)-350(a)-350(tw)9(o-step)-349(approach.)]TJ 8.96 -11.05 TD[(Consider)-442(the)-443(case)-442(of)-443(mo)14(ving)-441(to)-443(the)-442(right)-443(from)-442(one)-443(pix)14(el)-441(to)-443(the)]TJ -8.96 -11 TD[(ne)15(xt.)-345(The)-347(column)-346(histograms)-346(to)-346(the)-347(right)-346(of)-346(the)-346(k)9(ernel)-346(are)-346(yet)-346(to)-346(be)]TJ 0 -11 TD[(processed)-393(for)-394(the)-395(current)-394(ro)24(w)65(,)-393(so)-394(the)14(y)-393(are)-395(centered)-394(one)-394(ro)24(w)-393(abo)14(v)15(e.)]TJ 0 -11.01 TD[(The)-332(\002rst)-334(step)-333(consists)-334(of)-333(updating)-333(the)-334(column)-333(histogram)-334(to)-333(the)-333(right)]TJ 0 -11 TD[(of)-418(the)-419(k)9(ernel)-418(by)-419(subtracting)-419(its)-419(topmost)-419(pix)14(el)-418(and)-418(adding)-419(one)-419(ne)24(w)]TJ 0 -11 TD[(pix)15(el)-338(belo)24(w)-338(it)-339(\(Figure)-338(2a\).)-339(The)-339(ef)24(fect)-338(of)-339(this)-339(is)-339(lo)24(wering)-337(the)-339(column)]TJ 0 -11.01 TD[(histogram)-341(by)-343(one)-342(ro)24(w)65(.)-341(This)-342(\002rst)-343(step)-342(is)-342(clearly)]TJ/F7 8.96 Tf 175.44 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\(1\))]TJ/F1 8.96 Tf 14.84 0 TD[(since)-341(only)-343(one)]TJ -197.55 -11 TD[(addition)-413(and)-414(one)-414(subtraction,)-414(independent)-414(of)-414(the)-414(\002lter)-414(radius,)-414(need)]TJ 0 -11 TD[(to)-349(be)-350(carried)-350(out.)]TJ 8.96 -11.05 TD[(The)-334(second)-335(step)-335(mo)14(v)15(es)-333(the)-335(k)9(ernel)-334(histogram,)-335(which)-334(is)-335(the)-335(sum)-335(of)]TJ/F8 8.96 Tf -8.96 -11.01 TD[(2)]TJ/F7 8.96 Tf 4.6 0 TD[(r)]TJ/F8 8.96 Tf 4.7 0 TD[(+)-31(1)]TJ/F1 8.96 Tf 14.27 0 TD[(column)-246(histograms,)-246(one)-247(pix)14(el)-246(to)-246(the)-247(right.)-247(This)-246(is)-247(accomplished)]TJ -23.57 -11 TD[(by)-326(subtracting)-328(its)-327(leftmost)-327(column)-327(histogram)-328(and)-327(adding)-327(the)-327(column)]TJ 0 -11 TD[(histogram)-388(lo)24(wered)-388(in)-389(the)-388(\002rst)-389(step)-389(\(Figure)-389(2b\).)-389(This)-389(second)-389(step)-388(is)]TJ 0 -11.01 TD[(also)]TJ/F7 8.96 Tf 17.62 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\(1\))]TJ/F1 8.96 Tf 11.77 0 TD[(.)-355(As)-355(stated)-355(earlier)39(,)-354(adding,)-356(subtracting,)-355(and)-355(computing)-356(the)]TJ -36.66 -11 TD[(median)-437(of)-438(histograms)-438(comprise)-438(a)-438(number)-438(of)-438(operations)-438(depending)]TJ 0 -11 TD[(on)-349(the)-350(image)-350(bit)-350(depth,)-350(not)-350(on)-350(the)-350(\002lter)-350(radius.)]TJ 8.96 -11.05 TD[(The)-283(net)-284(ef)24(fect)-282(is)-284(that)-283(the)-284(k)9(ernel)-282(histogram)-284(mo)14(v)15(es)-282(to)-284(the)-283(right)-284(while)]TJ -8.96 -11 TD[(the)-290(column)-291(histograms)-291(mo)14(v)15(e)-290(do)24(wnw)10(ard.)-290(W)79(e)-290(visualize)-291(the)-291(k)9(ernel)-290(as)-291(a)]TJ 0 -11.01 TD[(zipper)-252(slider)-253(bringing)-253(do)24(wn)-252(the)-253(zipper)-253(side)-253(represented)-253(by)-253(the)-253(column)]TJ 0 -11 TD[(histograms.)-483(Each)-484(pix)14(el)-483(is)-484(visited)-483(only)-484(once)-484(and)-484(is)-484(added)-483(to)-484(only)]TJ 0 -11 TD[(a)-473(single)-474(histogram.)-474(The)-474(last)-473(step)-474(for)-474(each)-474(pix)14(el)-473(is)-474(computing)-473(the)]TJ 0 -11.01 TD[(median.)-349(As)-350(stated)-350(earlier)39(,)-349(this)-350(is)]TJ/F7 8.96 Tf 122.03 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\(1\))]TJ/F1 8.96 Tf 14.9 0 TD[(thanks)-350(to)-350(the)-350(histogram.)]TJ -135.24 -11.04 TD[(All)-516(of)-517(the)-516(per)19(-pix)15(el)-516(operations)-516(\(updating)-517(both)-517(the)-516(column)-517(and)]TJ -8.96 -11.01 TD[(k)10(ernel)-343(histograms)-345(as)-344(well)-344(as)-345(computing)-344(the)-344(median\))-345(are)]TJ/F7 8.96 Tf 209.42 0 TD[(O)]TJ/F8 8.96 Tf 7.26 0 TD[(\(1\))]TJ/F1 8.96 Tf 11.78 0 TD[(.)-343(No)24(w)]TJ -228.46 -11 TD[(we)-293(address)-293(the)-294(issue)-293(of)-294(initialization,)-294(which)-293(consists)-294(of)-293(accumulating)]TJ 0 -11 TD[(the)-362(\002rst)]TJ/F7 8.96 Tf 31.4 0 TD[(r)]TJ/F1 8.96 Tf 7.66 0 TD[(ro)24(ws)-361(in)-363(the)-363(column)-362(histograms)-363(and)-363(computing)-362(the)-363(k)9(ernel)]TJ -39.06 -11.01 TD[(histogram)-266(from)-266(the)-267(\002rst)]TJ/F7 8.96 Tf 87.74 0 TD[(r)]TJ/F1 8.96 Tf 6.8 0 TD[(column)-267(histograms.)-266(This)-267(results)-267(in)-267(an)]TJ/F7 8.96 Tf 137.6 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\()]TJ/F7 8.96 Tf 3.58 0 TD[(r)]TJ/F8 8.96 Tf 4.41 0 TD[(\))]TJ/F1 8.96 Tf -247.4 -11 TD[(initialization.)-381(In)-382(addition,)-382(there)-382(is)-382(o)14(v)15(erhead)-381(when)-381(mo)13(ving)-380(from)-382(one)]TJ 0 -11 TD[(ro)25(w)-253(to)-253(another)-253(which)-254(accounts)-253(for)-254(another)]TJ/F7 8.96 Tf 154.08 0 TD[(O)]TJ/F8 8.96 Tf 7.26 0 TD[(\()]TJ/F7 8.96 Tf 3.59 0 TD[(r)]TJ/F8 8.96 Tf 4.41 0 TD[(\))]TJ/F1 8.96 Tf 5.86 0 TD[(term.)-253(Ho)24(we)25(v)15(er)40(,)-252(since)]TJ -175.2 -11.01 TD[(the)]TJ/F7 8.96 Tf 13.63 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\()]TJ/F7 8.96 Tf 3.58 0 TD[(r)]TJ/F8 8.96 Tf 4.41 0 TD[(\))]TJ/F1 8.96 Tf 6.27 0 TD[(initialization)-298(only)-300(occurs)-299(once)-299(per)-299(ro)24(w)65(,)-298(the)-299(cost)-300(per)-299(pix)14(el)-298(is)]TJ -35.16 -11 TD[(insigni\002cant)-340(for)-341(arbitrarily)-342(lar)17(ge)-340(images.)-341(In)-341(particular)39(,)-340(the)]TJ/F2 8.96 Tf 215.13 0 TD[(amortized)]TJ/F1 8.96 Tf -215.13 -11 TD[(cost)-361(drops)-361(to)]TJ/F7 8.96 Tf 51.05 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\(1\))]TJ/F1 8.96 Tf 15.01 0 TD[(per)-361(pix)14(el)-361(when)-362(the)-361(dimensions)-362(of)-361(the)-362(image)-362(are)]TJ -73.33 -11.01 TD[(proportional)-308(to)-309(the)-309(k)9(ernel)-308(radius,)-309(or)-309(if)-309(the)-309(image)-309(is)-309(processed)-309(in)-309(tiles)]TJ 0 -11 TD[(of)-321(dimensions)]TJ/F7 8.96 Tf 54.07 0 TD[(O)]TJ/F8 8.96 Tf 7.26 0 TD[(\()]TJ/F7 8.96 Tf 3.59 0 TD[(r)]TJ/F8 8.96 Tf 4.41 0 TD[(\))]TJ/F1 8.96 Tf 3.58 0 TD[(.)-321(When)-322(the)-321(tile)-322(size)-321(is)-322(limited)-321(by)-322(the)-322(dimensions)]TJ ET 0.8 w 239.91 18.46 m 490.9 18.46 l S BT/F4 8.96 Tf 239.91 9.34 TD[(Algorithm)-374(2)]TJ/F1 8.96 Tf 51.04 0 TD[(The)-349(proposed)]TJ/F7 8.96 Tf 53.07 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\(1\))]TJ/F1 8.96 Tf 14.91 0 TD[(median)-349(\002ltering)-350(algorithm.)]TJ ET 0.4 w 239.91 4.91 m 490.9 4.91 l S BT/F4 8.96 Tf 239.91 -3.4 TD[(Input:)]TJ/F1 8.96 Tf 28.89 0 TD[(Image)]TJ/F7 8.96 Tf 25.53 0 TD[(X)]TJ/F1 8.96 Tf 11.45 0 TD[(of)-350(size)]TJ/F7 8.96 Tf 27.68 0 TD[(m)]TJ/F11 8.96 Tf 10.17 0 TD[(\243)]TJ/F7 8.96 Tf 9.21 0 TD[(n)]TJ/F1 8.96 Tf 5.56 0 TD[(,)-349(k)9(ernel)-349(radius)]TJ/F7 8.96 Tf 55.87 0 TD[(r)]TJ/F4 8.96 Tf -174.36 -11.01 TD[(Output:)]TJ/F1 8.96 Tf 35.36 0 TD[(Image)]TJ/F7 8.96 Tf 25.54 0 TD[(Y)]TJ/F1 8.96 Tf 10.53 0 TD[(of)-349(the)-350(same)-350(size)]TJ -62.47 -11 TD[(Initialize)-350(k)9(ernel)-349(histogram)]TJ/F7 8.96 Tf 99.44 0 TD[(H)]TJ/F1 8.96 Tf 11.48 0 TD[(and)-349(column)-350(histograms)]TJ/F7 8.96 Tf 88.58 0 TD[(h)]TJ/F9 5.98 Tf 5.31 -1 TD[(1)]TJ/F12 5.98 Tf 3.66 0 TD[(:::n)]TJ/F4 8.96 Tf -208.47 -10 TD[(f)24(or)]TJ/F7 8.96 Tf 14.36 0 TD[(i)]TJ/F8 8.96 Tf 5.71 0 TD[(=)-285(1)]TJ/F1 8.96 Tf 17.47 0 TD[(to)]TJ/F7 8.96 Tf 10.11 0 TD[(m)]TJ/F4 8.96 Tf 11.26 0 TD[(do)]TJ -49.95 -11.01 TD[(f)24(or)]TJ/F7 8.96 Tf 14.36 0 TD[(j)]TJ/F8 8.96 Tf 6.84 0 TD[(=)-285(1)]TJ/F1 8.96 Tf 17.47 0 TD[(to)]TJ/F7 8.96 Tf 10.11 0 TD[(n)]TJ/F4 8.96 Tf 8.7 0 TD[(do)]TJ/F1 8.96 Tf -48.51 -11 TD[(Remo)15(v)15(e)]TJ/F7 8.96 Tf 32.74 0 TD[(X)]TJ/F12 5.98 Tf 7.61 -1 TD[(i)]TJ/F13 5.98 Tf 2.67 0 TD[(\241)]TJ/F12 5.98 Tf 5.75 0 TD[(r)]TJ/F13 5.98 Tf 3.66 0 TD[(\241)]TJ/F9 5.98 Tf 5.75 0 TD[(1)]TJ/F12 5.98 Tf 3.66 0 TD[(;j)]TJ/F9 5.98 Tf 5.67 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)]TJ/F1 8.96 Tf 7.29 1 TD[(from)]TJ/F7 8.96 Tf 20.56 0 TD[(h)]TJ/F12 5.98 Tf 5.31 -1 TD[(j)]TJ/F9 5.98 Tf 3.41 0 TD[(+)]TJ/F12 5.98 Tf 5.58 0 TD[(r)]TJ/F1 8.96 Tf -115.25 -10 TD[(Add)]TJ/F7 8.96 Tf 18.57 0 TD[(X)]TJ/F12 5.98 Tf 7.61 -1 TD[(i)]TJ/F9 5.98 Tf 2.66 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)31(;j)]TJ/F9 5.98 Tf 8.95 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)]TJ/F1 8.96 Tf 7.29 1 TD[(to)]TJ/F7 8.96 Tf 10.11 0 TD[(h)]TJ/F12 5.98 Tf 5.31 -1 TD[(j)]TJ/F9 5.98 Tf 3.4 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)]TJ/F7 8.96 Tf -80.67 -10.01 TD[(H)]TJ/F11 8.96 Tf 10.89 0 TD[(\303)]TJ/F7 8.96 Tf 11.77 0 TD[(H)]TJ/F8 8.96 Tf 10.38 0 TD[(+)]TJ/F7 8.96 Tf 9.22 0 TD[(h)]TJ/F12 5.98 Tf 5.3 -0.99 TD[(j)]TJ/F9 5.98 Tf 3.41 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)]TJ/F11 8.96 Tf 6.2 0.99 TD[(\241)]TJ/F7 8.96 Tf 9.21 0 TD[(h)]TJ/F12 5.98 Tf 5.31 -0.99 TD[(j)]TJ/F13 5.98 Tf 3.41 0 TD[(\241)]TJ/F12 5.98 Tf 5.75 0 TD[(r)]TJ/F13 5.98 Tf 3.66 0 TD[(\241)]TJ/F9 5.98 Tf 5.75 0 TD[(1)]TJ/F7 8.96 Tf -95.85 -10.01 TD[(Y)]TJ/F12 5.98 Tf 5.35 -1 TD[(i;j)]TJ/F11 8.96 Tf 11.39 1 TD[(\303)]TJ/F8 8.96 Tf 11.77 0 TD[(median\()]TJ/F7 8.96 Tf 32.76 0 TD[(H)]TJ/F8 8.96 Tf 8.33 0 TD[(\))]TJ/F4 8.96 Tf -78.57 -11 TD[(end)-350(f)24(or)]TJ -8.96 -11.01 TD[(end)-350(f)24(or)]TJ ET 0.4 w 239.91 -117.55 m 490.9 -117.55 l S BT/F1 8.96 Tf 239.91 -148.82 TD[(of)-348(the)-350(image,)-349(the)-349(redundanc)14(y)-348(of)-349(information)-350(outside)-349(the)-349(image)-349(\(e.g.)]TJ 0 -11.01 TD[(solid)-420(color)39(,)-419(or)-421(repeated)-420(edge)-421(pix)14(els\))-419(correspondingly)-421(simpli\002es)-420(the)]TJ 0 -11 TD[(initialization,)-313(allo)24(wing)]TJ/F7 8.96 Tf 84.33 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\(1\))]TJ/F1 8.96 Tf 14.58 0 TD[(computation)-313(on)-314(an)14(y)-312(size)-314(image,)-313(for)-314(an)14(y)]TJ -106.18 -11 TD[(k)10(ernel)-349(radius.)]TJ 8.96 -11.51 TD[(T)79(o)-337(summarize,)-338(the)-338(operation)-338(rundo)24(wn)-337(for)-338(an)-338(8-bit)-338(grayscale)-338(pix)14(el)]TJ -8.96 -11 TD[(is)-349(as)-350(follo)24(ws:)]TJ/F13 5.98 Tf 8.96 -14.12 TD[(\262)]TJ/F1 8.96 Tf 9.2 0 TD[(1)-334(addition)-335(for)-334(adding)-335(the)-335(ne)24(w)-334(pix)14(el)-333(to)-335(the)-335(column)-335(histogram)-334(to)]TJ 0 -11 TD[(the)-349(right)-350(of)-350(the)-350(k)9(ernel.)]TJ/F13 5.98 Tf -9.2 -11 TD[(\262)]TJ/F1 8.96 Tf 9.2 0 TD[(1)-305(subtraction)-307(for)-306(remo)14(ving)-305(the)-306(old)-307(pix)14(el)-305(from)-306(that)-306(same)-306(column)]TJ 0 -11.01 TD[(histogram.)]TJ/F13 5.98 Tf -9.2 -11 TD[(\262)]TJ/F1 8.96 Tf 9.2 0 TD[(256)-256(additions)-257(for)-256(adding)-257(the)-257(ne)24(w)-256(column)-256(histogram)-257(to)-257(the)-256(k)9(ernel)]TJ 0 -11 TD[(histogram.)]TJ/F13 5.98 Tf -9.2 -11.01 TD[(\262)]TJ/F1 8.96 Tf 9.2 0 TD[(256)-323(subtractions)-323(for)-323(subtracting)-324(the)-323(old)-324(column)-323(histogram)-323(from)]TJ 0 -11 TD[(the)-349(k)9(ernel)-349(histogram.)]TJ/F13 5.98 Tf -9.2 -11 TD[(\262)]TJ/F1 8.96 Tf 9.2 0 TD[(128)-334(comparisons)-335(and)-334(127)-335(additions,)-335(on)-334(a)19(v)15(erage,)-334(for)-335(\002nding)-334(the)]TJ 0 -11.01 TD[(median)-349(of)-350(the)-350(k)9(ernel)-349(histogram.)]TJ -18.16 -14.11 TD[(This)-487(may)-487(seem)-488(e)14(xcessi)25(v)15(e.)-487(Ho)24(we)25(v)15(er)40(,)-486(most)-488(of)-487(these)-488(operations)-487(are)]TJ 0 -11.01 TD[(naturally)-372(v)14(ectorizable,)-372(which)-373(lo)24(wers)-372(the)-373(time)-373(constant)-372(considerably)64(.)]TJ 0 -11 TD[(More)-376(importantly)64(,)-375(man)14(y)-376(optimizations)-376(can)-377(be)-377(applied)-376(to)-377(reduce)-376(the)]TJ 0 -11 TD[(number)-349(of)-350(operations.)-350(The)14(y)-349(are)-350(discussed)-350(in)-350(the)-350(ne)14(xt)-349(section.)]TJ/F1 8.96 Tf 67.96 -27.37 TD[(I)-50(I)-50(I)-50(.)-550(I)]TJ/F1 7.17 Tf 20.91 0 TD[(M)-61(P)-62(L)-61(E)-62(M)-62(E)-61(N)-62(T)30(A)49(T)-60(I)-62(O)-62(N)]TJ/F1 8.96 Tf 68.27 0 TD[(N)]TJ/F1 7.17 Tf 6.92 0 TD[(O)-22(T)-61(E)-62(S)]TJ/F1 8.96 Tf -155.1 -16.84 TD[(This)-395(section)-395(describes)-396(some)-395(optimizations)-395(that)-396(can)-395(be)-396(applied)-395(to)]TJ -8.96 -11 TD[(increase)-423(the)-423(ef)24(\002cienc)15(y)-423(of)-423(the)-423(proposed)-424(algorithm.)-423(The)14(y)-423(all)-423(depend)]TJ 0 -11 TD[(on)-428(the)-428(particular)-429(CPU)-428(architecture)-429(on)-428(which)-429(the)-428(\002lter)-429(is)-428(e)14(x)15(ecuted.)]TJ 0 -11.01 TD[(As)-399(such,)-400(their)-400(ef)24(fect)-399(can)-400(v)24(ary)-399(greatly)-400(\(e)24(v)15(en)-399(reducing)-400(the)-400(ef)24(\002cienc)15(y)]TJ 0 -11 TD[(in)-317(some)-317(cases\))-318(from)-317(one)-318(kind)-317(of)-318(processor)-317(to)-318(another)54(.)-316(Note)-318(also)-317(that)]TJ 0 -11 TD[(optimizations)-349(of)-350(sections)-350(III-C)-350(and)-350(III-D)-350(are)-350(data-dependent.)]TJ/F2 8.96 Tf 0 -29.39 TD[(A.)-499(V)110(ectorization)]TJ/F1 8.96 Tf 8.96 -15.58 TD[(Modern)-233(processors)-233(pro)14(vide)-233(SIMD)-233(instructions)-234(that)-233(can)-233(be)-234(e)14(xploited)]TJ -8.96 -11 TD[(to)-368(speed)-369(up)-369(our)-370(algorithm.)-369(The)-369(operation)-369(rundo)24(wn)-368(sho)24(ws)-368(that)-369(most)]TJ 0 -11.01 TD[(of)-381(the)-381(time)-382(is)-381(spent)-382(in)-381(adding)-381(and)-382(subtracting)-381(histograms.)-382(This)-381(can)]TJ 0 -11 TD[(be)-482(sped)-483(up)-483(considerably)-483(with)-483(MMX,)-483(SSE2)-483(or)-483(Alti)24(v)15(ec)-482(instruction)]TJ 0 -11 TD[(sets)-293(by)-295(processing)-294(multiple)-294(bins)-295(in)-294(parallel.)-294(T)79(o)-294(maximize)-294(the)-294(number)]TJ 0 -11.01 TD[(of)-455(histogram)-457(bins)-456(that)-456(we)-456(can)-457(add)-456(in)-456(one)-457(instruction,)-456(each)-456(bin)-456(is)]TJ 0 -11 TD[(represented)-329(with)-330(only)-330(16)-330(bits.)-331(Thus,)-330(the)-330(k)9(ernel)-329(size)-330(is)-330(limited)-330(to)]TJ/F8 8.96 Tf 238.58 0 TD[(2)]TJ/F9 5.98 Tf 4.6 3.81 TD[(16)]TJ/F1 8.96 Tf -243.18 -14.81 TD[(pix)15(els,)-299(which)-299(is)-300(acceptable)-299(for)-300(typical)-299(uses.)-300(This)-299(limit)-300(is)-299(not)-300(intrinsic)]TJ 0 -11.01 TD[(to)-349(our)-350(algorithm:)-350(it)-350(is)-350(only)-350(a)-350(means)-350(for)-350(optimization.)]TJ 8.96 -11.5 TD[(Another)-471(area)-472(where)-471(parallelism)-472(can)-471(be)-472(e)14(xploited)-471(is)-471(the)-472(reading)]TJ -8.96 -11 TD[(of)-523(pix)14(els)-523(from)-524(the)-524(image)-524(and)-524(their)-524(accumulating)-524(in)-524(column)-524(his-)]TJ 0 -11.01 TD[(tograms.)-345(Instead)-345(of)-346(alternating)-346(between)-345(updating)-346(column)-346(and)-345(k)9(ernel)]TJ 0 -11 TD[(histograms,)-422(as)-423(described)-422(in)-423(Section)-423(II,)-423(we)-422(can)-423(process)-423(the)-422(column)]TJ 0 -11 TD[(histograms)-320(for)-321(a)-321(whole)-320(ro)24(w)-320(of)-321(pix)14(els)-320(\002rst.)-321(Using)-321(SIMD)-320(instructions,)]TJ 0 -11.01 TD[(we)-555(can)-555(update)-556(multiple)-555(column)-556(histograms)-556(in)-555(parallel.)-556(W)79(e)-554(then)]TJ 0 -11 TD[(proceed)-349(with)-350(the)-350(k)9(ernel)-349(histogram)-350(as)-350(usual.)]TJ ET endstream endobj 61 0 obj << /F1 10 0 R /F7 30 0 R /F8 33 0 R /F2 13 0 R /F4 19 0 R /F11 44 0 R /F9 36 0 R /F12 47 0 R /F13 50 0 R >> endobj 62 0 obj << /Im2 58 0 R /Im3 59 0 R >> endobj 57 0 obj << /ProcSet[/PDF/Text/ImageC] /Font 61 0 R /XObject 62 0 R >> endobj 65 0 obj << /Length 18139 >> stream 0.00 g 0.00 G BT/F1 6.97 Tf 487.41 36.85 TD[(3)]TJ/F2 8.96 Tf -510.44 -29 TD[(B.)-499(Cac)14(he)-349(F)54(riendliness)]TJ/F1 8.96 Tf 8.96 -13.73 TD[(The)-536(constant-time)-536(median)-536(\002ltering)-537(algorithm)-536(needs)-536(to)-536(k)9(eep)-536(in)]TJ -8.96 -11 TD[(memory)-379(one)-379(histogram)-380(for)-380(each)-379(column.)-380(F)14(or)-378(the)-380(whole)-380(image,)-379(this)]TJ 0 -11 TD[(may)-492(easily)-493(amount)-492(to)-493(hundreds)-493(of)-493(kilobytes,)-493(often)-492(e)14(xceeding)-492(the)]TJ 0 -11.01 TD[(cache)-438(size)-438(of)-439(today')54(s)-438(processors.)-439(This)-438(leads)-439(to)-439(inef)24(\002cient)-437(repeated)]TJ 0 -11 TD[(access)-337(to)-339(the)-338(main)-338(memory)-339(and)-338(ne)14(g)5(ates)-337(the)-338(usefulness)-339(of)-338(the)-338(cache.)]TJ 0 -11 TD[(One)-289(w)9(ay)-290(to)-290(circumv)14(ent)-290(this)-290(limitation)-291(is)-290(to)-291(split)-290(the)-291(image)-290(in)-290(v)14(ertical)]TJ 0 -11.01 TD[(stripes)-348(that)-349(are)-348(processed)-349(independently)64(.)-348(The)-348(width)-349(of)-349(each)-349(stripe)-348(is)]TJ 0 -11 TD[(chosen)-415(to)-417(be)-416(such)-416(that)-416(the)-417(histograms)-416(\002ll)-416(up)-416(the)-417(cache)-416(b)19(ut)-415(do)-416(not)]TJ 0 -11 TD[(e)15(xceed)-385(its)-386(capacity)64(.)-385(One)-385(disadv)24(antage)-385(of)-386(this)-386(modi\002cation)-386(is)-386(that)-385(it)]TJ 0 -11.01 TD[(ampli\002es)-491(the)-492(border)-492(ef)24(fects.)-491(In)-492(practice,)-492(it)-492(usually)-492(causes)-492(a)-492(huge)]TJ 0 -11 TD[(decrease)-527(in)-529(processing)-528(time.)-528(Note)-529(that)-528(simultaneously)-528(processing)]TJ 0 -11 TD[(stripes)-553(on)-554(dif)24(ferent)-553(processors)-555(is)-554(an)-554(easy)-554(w)9(ay)-553(to)-554(parallelize)-554(the)]TJ 0 -11.01 TD[(proposed)-349(algorithm.)]TJ/F2 8.96 Tf 0 -23.56 TD[(C.)-499(Multile)14(vel)-349(Histo)9(gr)15(ams)]TJ/F1 8.96 Tf 8.96 -13.73 TD[(Multile)25(v)15(el)-493(histograms)-493(ha)19(v)15(e)-492(been)-493(analyzed)-493(in)-493([7])-493(and)-493(sho)24(wn)-492(to)]TJ -8.96 -11 TD[(be)-408(a)-410(v)14(ery)-408(ef)24(fecti)25(v)15(e)-408(optimization.)-410(The)-409(idea)-409(is)-409(to)-410(maintain)-409(a)-409(parallel)]TJ 0 -11.01 TD[(set)-338(of)-340(smaller)-339(histograms)-339(accumulating)-339(only)-339(the)-340(higher)-339(order)-339(bits)-339(of)]TJ 0 -11 TD[(pix)15(els.)-360(F)14(or)-360(e)14(xample,)-361(it)-361(is)-361(common)-361(to)-361(use)-362(tw)9(o)-360(tier)-361(histograms)-361(for)-361(8-)]TJ 0 -11 TD[(bit)-397(images,)-399(where)-398(the)-398(higher)-398(tier)-399(is)-398(4-bit)-398(wide)-399(while)-398(the)-398(lo)24(wer)-397(tier)]TJ 0 -11.01 TD[(contains)-331(the)-332(full)-332(8-bit)-332(data.)-333(It)-332(is)-332(customary)-332(to)-332(name)-332(them)-332(the)]TJ/F2 8.96 Tf 227.18 0 TD[(coar)10(se)]TJ/F1 8.96 Tf -227.18 -11 TD[(and)]TJ/F2 8.96 Tf 16.06 0 TD[(\002ne)]TJ/F1 8.96 Tf 16.06 0 TD[(le)25(v)15(els,)-347(respecti)24(v)15(ely)65(.)-347(The)-348(coarse)-348(le)24(v)15(el)-347(w)9(ould)-346(contain)-348(16)-348(bins)]TJ -32.12 -11 TD[(\()]TJ/F8 8.96 Tf 2.98 0 TD[(2)]TJ/F9 5.98 Tf 4.61 3.8 TD[(4)]TJ/F1 8.96 Tf 4.15 -3.8 TD[(\))-301(and)-301(each)-302(one)-301(w)9(ould)-301(be)-301(the)-302(sum)-301(of)-302(its)-301(corresponding)-302(16-element)]TJ -11.74 -11.01 TD[(se)15(gment)-349(of)-350(the)-350(\002ne)-350(le)24(v)15(el.)]TJ 8.96 -10.9 TD[(There)-345(are)-345(tw)9(o)-344(adv)24(antages)-344(to)-345(multile)24(v)15(el)-344(histograms,)-346(the)-345(\002rst)-345(being)]TJ -8.96 -11.01 TD[(the)-265(acceleration)-266(of)-266(the)-266(computation)-266(of)-266(the)-266(median.)-266(Instead)-266(of)-266(e)14(xamin-)]TJ 0 -11 TD[(ing)-264(the)-265(entire)-264(256)-265(bins,)-265(we)-265(can)-264(no)24(w)-264(mak)9(e)-264(16-element)-265(hops)-264(by)-265(\002nding)]TJ 0 -11 TD[(the)-334(median)-334(at)-335(the)-334(coarse)-335(le)24(v)15(el.)-333(This)-335(gi)24(v)15(es)-334(us)-334(the)-335(se)14(gment)-333(of)-335(the)-334(\002ne)]TJ 0 -11.01 TD[(histogram)-467(that)-468(contains)-468(the)-468(median.)-468(Instead)-468(of)-468(an)-467(a)19(v)15(erage)-467(of)-468(128)]TJ 0 -11 TD[(additions)-402(and)-403(comparisons,)-403(we)-402(no)24(w)-402(only)-403(need)-403(16)-403(\(8)-403(at)-402(each)-403(le)24(v)15(el\))]TJ 0 -11 TD[(to)-307(reach)-309(the)-308(median.)-309(The)-308(second)-308(adv)24(antage)-308(is)-308(related)-309(to)-308(addition)-308(and)]TJ 0 -11.01 TD[(subtraction)-304(of)-304(histograms.)-305(One)-305(can)-305(skip)-304(a)-305(16-element)-305(se)14(gment)-304(of)-304(the)]TJ 0 -11 TD[(\002ne)-345(histogram)-345(when)-346(its)-345(corresponding)-346(coarse)-345(v)24(alue)-345(is)-345(zero.)-346(When)]TJ/F7 8.96 Tf 246.57 0 TD[(r)]TJ/F1 8.96 Tf -246.57 -11 TD[(is)-313(small,)-315(column)-314(histograms)-314(are)-314(sparsely)-314(populated)-315(and)-314(so)-314(the)-314(added)]TJ 0 -11.01 TD[(branching)-349(may)-350(be)-350(w)9(orthwhile.)]TJ/F2 8.96 Tf 0 -23.56 TD[(D.)-499(Conditional)-350(Updating)-350(of)-350(the)-350(K)34(ernel)]TJ/F1 8.96 Tf 8.96 -13.73 TD[(The)-410(separation)-410(of)-410(histograms)-410(in)-410(coarse)-410(and)-410(\002ne)-411(le)24(v)15(els)-409(enables)-410(a)]TJ -8.96 -11 TD[(slightly)-379(less)-381(ob)14(vious)-379(b)19(ut)-379(v)14(ery)-379(ef)24(fecti)25(v)15(e)-380(optimization.)-380(Notice)-380(that)-380(up)]TJ 0 -11.01 TD[(to)-400(this)-402(point,)-401(most)-401(of)-402(the)-401(processing)-402(time)-401(w)9(as)-400(spent)-402(in)-401(adding)-401(and)]TJ 0 -11 TD[(subtracting)-230(column)-231(histograms)-231(to)-232(and)-231(from)-231(the)-231(k)9(ernel)-230(histogram.)-231(W)39(ith)]TJ 0 -11 TD[(conditional)-298(updating,)-299(this)-298(time)-299(is)-299(lo)24(wered)-298(by)-298(k)9(eeping)-298(up)-299(to)-299(date)-298(only)]TJ 0 -11.01 TD[(the)-475(k)9(ernel)-475(histogram')54(s)-475(coarse)-476(le)24(v)15(el)-475(while)-476(its)-476(\002ne)-476(le)24(v)15(el)-475(is)-476(updated)]TJ 0 -11 TD[(on-demand.)]TJ 8.96 -10.91 TD[(Recall)-318(that)-318(computation)-319(of)-318(the)-318(median)-319(is)-318(done)-319(by)-318(\002rst)-318(scanning)-319(at)]TJ -8.96 -11 TD[(the)-347(coarse)-347(l)-1(e)24(v)15(el,)-346(which)-348(indicates)-348(the)-347(16-element)-348(se)14(gment)-347(of)-348(the)-347(\002ne)]TJ 0 -11 TD[(le)25(v)15(el)-305(that)-307(contains)-306(the)-307(median.)-306(Since)-306(a)-307(column)-306(histogram)-306(contrib)19(utes)]TJ 0 -11.01 TD[(to)-507(at)-508(most)]TJ/F8 8.96 Tf 44.53 0 TD[(2)]TJ/F7 8.96 Tf 4.61 0 TD[(r)]TJ/F8 8.96 Tf 7.53 0 TD[(+)-348(1)]TJ/F1 8.96 Tf 19.45 0 TD[(computations)-507(o)-1(f)-507(the)-508(k)9(ernel')55(s)-507(median,)-508(at)-507(most)]TJ/F8 8.96 Tf -76.12 -11 TD[(2)]TJ/F7 8.96 Tf 4.6 0 TD[(r)]TJ/F8 8.96 Tf 7.14 0 TD[(+)-303(1)]TJ/F1 8.96 Tf 18.51 0 TD[(of)-449(its)-448(\002ne)-449(le)24(v)15(el)-448(se)14(gments)-448(will)-448(e)24(v)15(er)-448(be)-449(useful.)-449(When)-449(pix)14(el)]TJ -30.25 -11 TD[(v)25(alues)-382(v)24(ary)-383(smoothly)-383(in)-384(the)-383(image,)-383(the)-384(actual)-383(\002gure)-384(is)-383(much)-383(lo)24(wer)]TJ 0 -11.01 TD[(because)-553(the)-554(same)-554(se)14(gment)-553(is)-553(accessed)-554(repetiti)24(v)15(ely)65(.)-553(Updating)-554(the)]TJ 0 -11 TD[(k)10(ernel)-393(histogram')54(s)-393(\002ne)-394(le)24(v)15(el)-394(with)-394(se)14(gments)-393(that)-394(will)-394(ne)24(v)15(er)-393(be)-394(used)]TJ 0 -11 TD[(can)-349(be)-350(skipped.)]TJ 8.96 -10.91 TD[(T)80(o)-314(do)-315(so,)-314(we)-315(need)-314(to)-315(maintain)-314(a)-315(list)-314(of)-315(the)-314(column)-315(inde)14(x)-313(at)-315(which)]TJ -8.96 -11 TD[(each)-491(se)14(gment)-491(w)9(as)-491(last)-492(updated.)-492(When)-492(mo)14(ving)-491(from)-492(one)-492(pix)14(el)-491(to)]TJ 0 -11 TD[(the)-450(ne)14(xt,)-451(we)-451(update)-451(both)-452(le)24(v)15(els)-450(of)-451(the)-451(ne)24(w)-451(column)-451(histogram)-451(b)19(ut)]TJ 0 -11.01 TD[(only)-495(the)-496(coarse)-496(le)24(v)15(el)-495(of)-496(the)-496(k)9(ernel)-494(histogram.)-496(Ne)14(xt,)-495(we)-496(compute)]TJ 0 -11 TD[(the)-405(k)9(ernel)-404(histogram')54(s)-405(median)-405(at)-406(the)-405(coarse)-406(le)24(v)15(el)-404(and)-406(determine)-405(in)]TJ 0 -11 TD[(which)-403(se)14(gment)-403(of)-404(the)-404(\002ne)-405(le)24(v)15(el)-403(the)-404(median)-404(resides.)-404(W)79(e)-403(then)-404(bring)]TJ 0 -11.01 TD[(that)-452(se)14(gment)-451(up)-452(to)-453(date)-452(by)-453(processing)-452(column)-453(histograms)-452(starting)]TJ 0 -11 TD[(from)-369(its)-371(last)-370(updated)-370(column.)-371(If)-370(that)-371(column)-370(is)-370(of)24(fset)-370(by)-370(more)-370(than)]TJ/F8 8.96 Tf 262.94 682.2 TD[(2)]TJ/F7 8.96 Tf 4.6 0 TD[(r)]TJ/F8 8.96 Tf 6.02 0 TD[(+)-179(1)]TJ/F1 8.96 Tf 16.29 0 TD[(pix)14(els)-323(from)-324(the)-324(current)-325(one,)-324(then)-324(there)-325(is)-324(no)-324(o)14(v)15(erlap)-323(between)]TJ -26.91 -11 TD[(the)-255(k)9(ernel)-255(at)-256(the)-256(old)-255(location)-256(and)-256(the)-256(current)-256(one.)-256(W)79(e)-255(therefore)-255(update)]TJ 0 -11 TD[(the)-260(histogram)-262(se)14(gment)-260(from)-261(scratch,)-261(skipping)-262(columns)-261(in)-261(the)-261(process.)]TJ 0 -11.01 TD[(It)-355(is)-356(in)-355(that)-356(case,)-356(by)-355(skipping)-356(columns,)-356(that)-356(we)-355(mak)9(e)-355(up)-356(in)-355(reduced)]TJ 0 -11 TD[(processing)-349(time)-350(for)-350(the)-350(additional)-350(branching)-350(and)-350(bookk)9(eeping.)]TJ 8.96 -11.04 TD[(It)-428(is)-429(also)-428(adv)24(antageous)-428(to)-428(interlea)19(v)15(e)-428(the)-428(layout)-429(of)-428(histograms)-429(in)]TJ -8.96 -11.01 TD[(memory)-407(so)-407(that)-408(se)14(gments)-406(of)-408(adjacent)-407(columns)-408(are)-407(also)-408(adjacent)-407(in)]TJ 0 -11 TD[(memory)65(.)-307(That)-309(is,)-308(histogram)-308(bins)-308(should)-309(be)-308(arranged)-308(\002rst)-308(by)-308(se)14(gment)]TJ 0 -11 TD[(inde)15(x,)-450(then)-450(by)-451(column)-450(inde)14(x,)-449(and)-451(\002nally)-450(by)-451(bin)-450(inde)14(x.)-450(That)-450(w)9(ay)65(,)]TJ 0 -11.01 TD[(updating)-278(a)-279(se)14(gment)-278(of)-279(the)-279(k)9(ernel')55(s)-278(\002ne)-279(le)24(v)15(el)-278(corresponds)-279(to)-279(summing)]TJ 0 -11 TD[(a)-349(contiguous)-350(block)-350(of)-350(memory)64(.)]TJ/F1 8.96 Tf 18.43 -23.45 TD[(I)-50(V)78(.)-549(R)]TJ/F1 7.17 Tf 22.8 0 TD[(E)-61(F)-61(U)-62(T)30(A)50(T)-61(I)-62(O)-62(N)-374(O)-62(F)-374(T)-61(H)-62(E)]TJ/F1 8.96 Tf 74.78 0 TD[(G)]TJ/F1 7.17 Tf 6.92 0 TD[(I)-62(L)]TJ/F1 8.96 Tf 7.66 0 TD[(-)-49(W)]TJ/F1 7.17 Tf 12.34 0 TD[(E)-61(R)-62(M)-62(A)-62(N)]TJ/F1 8.96 Tf 30.35 0 TD[(L)]TJ/F1 7.17 Tf 5.93 0 TD[(O)-27(W)-62(E)-62(R)]TJ/F1 8.96 Tf 24.88 0 TD[(B)]TJ/F1 7.17 Tf 6.43 0 TD[(O)-61(U)-62(N)-61(D)]TJ/F1 8.96 Tf -201.56 -14.06 TD[(A)-288(theoretical)-289(lo)24(wer)-288(bound)-289(of)]TJ/F8 8.96 Tf 107.32 0 TD[(\255\(log)]TJ/F7 8.96 Tf 23.67 0 TD[(r)]TJ/F8 8.96 Tf 4.42 0 TD[(\))]TJ/F1 8.96 Tf 6.17 0 TD[(for)-288(the)-289(comple)14(xity)-288(of)-289(the)-289(2-)]TJ -150.54 -11.01 TD[(D)-292(median)-293(\002lter)-293(w)9(as)-292(introduced)-293(in)-293([4].)-293(The)14(y)-292(state)-293(that)-293(\223)]TJ/F2 8.96 Tf 200.05 0 TD[(any)-293(algorithm)]TJ -200.05 -11 TD[(for)-331(computing)-332(the)]TJ/F7 8.96 Tf 68.19 0 TD[(r)]TJ/F2 8.96 Tf 4.41 0 TD[(-sized)-331(median)-332(\002lter)-332(for)-332(an)]TJ/F7 8.96 Tf 98.54 0 TD[(n)]TJ/F11 8.96 Tf 7.3 0 TD[(\243)]TJ/F7 8.96 Tf 8.9 0 TD[(n)]TJ/F2 8.96 Tf 8.54 0 TD[(input)-331(with)]TJ/F7 8.96 Tf 39.82 0 TD[(n)]TJ/F11 8.96 Tf 8.12 0 TD[(\270)]TJ/F8 8.96 Tf -243.82 -11 TD[(\(3)]TJ/F7 8.96 Tf 8.19 0 TD[(r)]TJ/F11 8.96 Tf 5.23 0 TD[(\241)]TJ/F8 8.96 Tf 7.98 0 TD[(1\))]TJ/F7 8.96 Tf 8.19 0 TD[(=)]TJ/F8 8.96 Tf 4.61 0 TD[(2)]TJ/F2 8.96 Tf 7.09 0 TD[(runs)-278(in)]TJ/F8 8.96 Tf 27.9 0 TD[(\255\(log)]TJ/F7 8.96 Tf 23.67 0 TD[(r)]TJ/F8 8.96 Tf 4.41 0 TD[(\))]TJ/F2 8.96 Tf 6.08 0 TD[(amortized)-277(time)-278(per)-278(element.)]TJ/F1 8.96 Tf 100.83 0 TD[(\224)-277(This)-278(seems)]TJ -204.18 -11.01 TD[(to)-369(be)-370(in)-370(direct)-369(contradiction)-370(with)-370(our)-370(\002ndings:)-370(we)-370(ha)19(v)15(e)-369(pro)14(v)15(en)-368(that)]TJ 0 -11 TD[(our)-349(algorithm)-350(is)-350(in)]TJ/F7 8.96 Tf 72.31 0 TD[(O)]TJ/F8 8.96 Tf 7.26 0 TD[(\(1\))]TJ/F1 8.96 Tf 14.91 0 TD[(and)]TJ/F8 8.96 Tf 16.08 0 TD[(\255\(log)]TJ/F7 8.96 Tf 23.68 0 TD[(r)]TJ/F8 8.96 Tf 4.41 0 TD[(\))]TJ/F11 8.96 Tf 5.63 0 TD[(\\)]TJ/F7 8.96 Tf 8.19 0 TD[(O)]TJ/F8 8.96 Tf 7.26 0 TD[(\(1\))-286(=)]TJ/F11 8.96 Tf 24.06 0 TD[(;)]TJ/F1 8.96 Tf 7.74 0 TD[(by)-350(de\002nition.)]TJ -182.57 -11.04 TD[(Although)-358(their)-359(reasoning)-359(is)-358(correct,)-359(it)-359(is)-359(based)-358(on)-359(reduction)-359(from)]TJ -8.96 -11.01 TD[(sorting.)-257(The)14(y)-257(sho)24(w)-257(that)-258(the)-258(2-D)-258(median)-258(\002lter)-258(has)-258(the)-258(po)24(wer)-257(of)-258(sorting)]TJ 0 -11 TD[(arbitrary)-275(input.)-277(The)14(y)-275(then)-276(ar)17(gue)-275(that)-276(since)-277(the)-276(output)-276(has)-276(been)-276(sorted,)]TJ 0 -11 TD[(the)-256(runtime)-258(must)-257(ha)19(v)15(e)-257(been)]TJ/F8 8.96 Tf 101.34 0 TD[(\255\(log)]TJ/F7 8.96 Tf 23.67 0 TD[(r)]TJ/F8 8.96 Tf 4.41 0 TD[(\))]TJ/F1 8.96 Tf 5.89 0 TD[(per)-257(element.)-258(This)-257(is)-258(true)]TJ/F2 8.96 Tf 89.46 0 TD[(as)-257(long)]TJ -224.77 -11.01 TD[(as)-298(one)-300(uses)-299(a)-299(comparison)-299(sort)-299(algorithm)]TJ/F1 8.96 Tf 148.56 0 TD[(.)-298(This)-299(is)-300(a)19(v)20(oidable)-298(when)-299(the)]TJ -148.56 -11 TD[(number)-349(of)-350(possible)-350(signal)-350(v)24(alues)-349(is)-350(a)-350(constant.)]TJ 8.96 -11.04 TD[(It)-444(is)-444(well)-445(kno)24(wn)-443(that)-444(non-comparison)-445(sort)-444(algorithms,)-444(of)-445(which)]TJ -8.96 -11.01 TD[(b)20(uck)10(et)-397(and)-399(radix)-398(sort)-398(are)-399(e)14(xamples,)-397(are)-398(not)-399(subjected)-398(to)-398(this)-398(lo)24(wer)]TJ 0 -11 TD[(bound)-393([8].)-393(The)-394(histogramming)-393(process)-394(our)-393(algorithm)-393(mak)9(es)-393(use)-393(of)]TJ 0 -11 TD[(is)-374(analogous)-376(to)-375(sorting)-375(data)-376(with)-375(a)-375(non-comparison)-376(sort.)-375(The)-375(coun-)]TJ 0 -11.01 TD[(tere)15(xample)-415(of)-416(a)-416(median)-416(\002lter)-416(e)14(xhibiting)]TJ/F7 8.96 Tf 153.05 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\(1\))]TJ/F1 8.96 Tf 15.5 0 TD[(runtime)-415(per)-416(element)]TJ -175.82 -11 TD[(dispro)15(v)15(es)-355(the)]TJ/F8 8.96 Tf 51.41 0 TD[(\255\(log)]TJ/F7 8.96 Tf 23.67 0 TD[(r)]TJ/F8 8.96 Tf 4.42 0 TD[(\))]TJ/F1 8.96 Tf 6.77 0 TD[(lo)25(wer)-354(bound.)-356(It)-355(is)-356(also)-355(readily)-356(recognized)-355(as)]TJ -86.27 -11 TD[(the)-443(true)-444(lo)24(wer)-443(bound)-444(since)-444(per)19(-element)-443(processing)-444(time)-443(cannot)-444(be)]TJ 0 -11.01 TD[(lo)25(wer)-437(than)-437(constant.)-438(It)-438(w)9(ould)-436(ne)24(v)15(ertheless)-437(be)-437(possible)-438(to)-437(diminish)]TJ 0 -11 TD[(this)-349(constant)-350(with)-350(ne)24(w)-349(optimization)-350(ideas.)]TJ/F1 8.96 Tf 94.38 -23.44 TD[(V)79(.)-549(E)]TJ/F1 7.17 Tf 18.86 0 TD[(X)-61(T)-61(E)-62(N)-62(S)-61(I)-62(O)-62(N)-62(S)]TJ/F1 8.96 Tf -104.28 -14.07 TD[(The)-461(proposed)-461(algorithm)-462(can)-461(be)-461(e)14(xtended)-461(to)-461(ne)24(w)-460(situations.)-462(W)79(e)]TJ -8.96 -11.01 TD[(e)15(xplore)-349(some)-350(of)-350(the)-350(more)-350(common)-350(ones)-350(in)-350(this)-350(section.)]TJ/F2 8.96 Tf 0 -25.46 TD[(A.)-499(Higher)-350(Pr)36(ecision)]TJ/F1 8.96 Tf 8.96 -13.97 TD[(Images)-353(ha)19(ving)-353(a)-354(bit)-354(depth)-354(other)-354(than)-354(8)-353(bits)-354(can)-354(be)-354(processed)-354(just)]TJ -8.96 -11 TD[(as)-395(easily)-397(by)-396(our)-396(algorithm.)-396(A)-396(single)-396(change)-397(needs)-396(to)-396(be)-396(made:)-396(the)]TJ 0 -11 TD[(number)-229(of)-230(histogram)-230(b)19(uck)10(ets)-229(must)-230(be)-230(scaled)-230(accordingly)64(.)-229(This)-230(implies)]TJ 0 -11.01 TD[(that)-343(histogram)-344(addition)-344(and)-344(subtraction)-343(as)-344(well)-344(as)-344(the)-344(search)-344(for)-343(the)]TJ 0 -11 TD[(median)-337(will)-338(tak)9(e)-337(accordingly)-338(more)-338(time.)-338(It)-338(w)9(ould)-337(be)-338(useful)-338(at)-338(some)]TJ 0 -11 TD[(point)-455(to)-456(mak)9(e)-455(use)-456(of)-456(three-tier)-456(\(or)-456(more\))-456(histograms)-456(as)-456(their)-455(size)]TJ 0 -11 TD[(increases.)]TJ 8.96 -11.05 TD[(Lar)17(ger)-321(histograms)-323(will)-322(also)-323(occup)9(y)-321(more)-323(space)-323(in)-322(memory)64(,)-322(which)]TJ -8.96 -11 TD[(will)-421(result)-422(in)-422(smaller)-423(stripes)-422(\(see)-422(Section)-422(III-B\).)-422(If)-422(this)-422(becomes)-423(a)]TJ 0 -11 TD[(problem,)-380(the)-380(ordinal)-381(transform)-380([6])-381(could)-380(be)-381(of)-380(some)-381(use.)-380(Ho)24(we)25(v)15(er)40(,)]TJ 0 -11.01 TD[(as)-458(the)-459(size)-459(of)-459(histograms)-459(scales)-459(in)]TJ/F7 8.96 Tf 136.34 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\(2)]TJ/F12 5.98 Tf 8.19 3.81 TD[(b)]TJ/F8 8.96 Tf 3.77 -3.81 TD[(\))]TJ/F1 8.96 Tf 3.58 0 TD[(,)-458(where)]TJ/F7 8.96 Tf 32.37 0 TD[(b)]TJ/F1 8.96 Tf 8.06 0 TD[(represents)-458(the)]TJ -199.58 -11 TD[(image)-347(bit)-348(depth,)-347(high)-348(bit)-348(depths)-348(are)-347(a)-348(fundamental)-348(weakness)-348(of)-347(an)14(y)]TJ 0 -11 TD[(histogram-based)-349(algorithm.)]TJ/F2 8.96 Tf 0 -25.47 TD[(B.)-499(Higher)-350(Dimensionality)]TJ/F1 8.96 Tf 8.96 -13.96 TD[(Median)-356(\002ltering)-357(data)-356(in)-357(more)-357(than)-356(tw)9(o)-356(dimensions)-357(is)-356(common)-357(in)]TJ -8.96 -11.01 TD[(\002elds)-339(lik)9(e)-340(medical)-340(imaging)-340([9],)-341([10])-340(and)-340(video)-341(processing)-340([11].)-340(The)]TJ 0 -11 TD[(proposed)-319(algorithm)-320(can)-320(handle)]TJ/F7 8.96 Tf 115.53 0 TD[(N)]TJ/F1 8.96 Tf 8.34 0 TD[(-dimensional)-319(data)-320(in)]TJ/F7 8.96 Tf 77.32 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\(1\))]TJ/F1 8.96 Tf 14.64 0 TD[(runtime)]TJ -223.1 -11 TD[(comple)15(xity)-380(at)-382(the)-381(cost)-381(of)-382(increased)-381(memory)-381(usage.)-382(As)-381(an)-381(e)14(xample,)]TJ 0 -11.01 TD[(Algorithm)-634(3)-635(sho)24(ws)-634(ho)24(w)-634(3-D)-635(median)-635(\002ltering)-634(is)-635(accomplished.)]TJ 0 -11 TD[(Extending)-349(this)-350(to)-350(higher)-350(dimensions)-350(is)-350(straightforw)9(ard.)]TJ ET endstream endobj 66 0 obj << /F1 10 0 R /F2 13 0 R /F8 33 0 R /F9 36 0 R /F7 30 0 R /F11 44 0 R /F12 47 0 R >> endobj 64 0 obj << /ProcSet[/PDF/Text/ImageC] /Font 66 0 R >> endobj 69 0 obj << /Length 2435 /Filter/FlateDecode /Name/Im4 /Type/XObject /Subtype/Form /BBox[0 0 2384 3370] /FormType 1 /Matrix[1 0 0 1 0 0] /Resources<< /ProcSet[/PDF] >> >> stream xͮ% )zAc $,FYcHݛyM= {}.rr__7|=ȺhۃeRd+~ÓG&d}0$I^qxNOvlP':WE I%_rވ ݨ*w}^`㲅οC=, ˟_߭i3T$l&q+/ $x3TKeDD奏QS}%_}DU%z?Mx?~)PK7ImP"U:)Yp0 vSDI`rJ(8J^%J)KGVҷ_KXy_7tn5S;&;!<ݜ%E= *l8Al*QSQxDrqk"QM~#2ȐTqsBHc 6vNUьtn\yFH`yMrs>l y)"2t.P`E| vb`cIrGjKӈ!R7чl _K ?8%8I\i~Cҍ7v01e n ' >] Z@XK&En*cCٱ}{b&uAAZXl* (;ɿYWJnԍWנq s+=G\(ޓO#u&UJ!R蒦(z6%ny| m(HHsD \|RnRvtPPD$-JBӜuOdLkk}P."jݍ!DpnƼխӻu'Y sګ \dƪBuW}*J(lVSjyQVJ ^bKPYw[H(rJ,WJ,Q_.UB:J:y1˕rJbj-E+HD =0nys)Y]T n5 Zuֱ/`rM*Z]E_fR6S6v41Ësٽ1VۊrDeg؁03hHR&q Bkq} l\݉F# Y 3R):x#9CDw Cү˖vq$DF$j䗚F= VRPGBBAǫ[TtKB=]-Gh] }6U#n&94&7m# ^U) ,g?0Zic?q7ͪ9C[MI7Fު5nzqliR׊f@)Q 󠸌 h̵v$Oo2 /Hyrԫ4Waz;AsѡɉoI5%Z|)iCru(I%gk6J%@!ߣ]4ƴQVjpmg>v[8 `=zb&ssQR*ߌM# ()mt#J(,'u~rh^%뼟nԍ}KOHph@ѻ;ntύ+0Z)lޣ ,N?AnQ©\;~cSTBw*ߘwEztn 2BeU:6W R,yǫ[w5Nt(p endstream endobj 70 0 obj << /Length 4112 /Filter/FlateDecode /Name/Im5 /Type/XObject /Subtype/Form /BBox[0 0 2384 3370] /FormType 1 /Matrix[1 0 0 1 0 0] /Resources<< /ProcSet[/PDF] >> >> stream x휹y eGލ3zasnZ!Hadou^j3&G_V:?*?~~;~f Ѽћ`fUG2v ٿ [LzWkutΐ4.ONU?GLݯx}M)sKwژ>6f7|NAvl޲q aA:]Z6$d{&zuZ Jgi_)% [aTŧ-J(Qo +gT%-'3RdӦ)Ur̠v§,d?p] NG):9_& ΣXN [No<@xٮ1[lE*5]OKo6_D93!oy1WכMafЛ+>E?Uܢq7Z]1YQ;{n{ mNGk:nL^֖z?&luJHGEQ q-aెt&Z40`\<sz ^cDK9`ɖ\x 28n l0HlGBJ<"A 5F4k*Xr/W[3HQhIלYlc+F<TǘyBp yNM#'1Q$9oD8<"3xt`S8Jj:iöHc`R=G&0[qoTFHZC)sAxhoC9|v84)xءlP8"J'  2;T'\k8 sПpUZ!O1(y̓t^2x_ Ĭ%8ٖC鉥Y,W #,v3kn6`- UɈ89kT3ɦbw24b^))16gj:1[7`qE( pD ei]$omx hK 4(^S)Pޓ'JJ䃻ҙx,[- Z][tJwR5 _3Z{P@]=5lz%I(Uog IyT`alvɺ;B\To(ۆIJprtCk1HfX"ikj*C5K!uxITR;EG碥RI {d[;VRV:NBa$A\'V)C<4cZ;&L9bz󋕺e ~Jt:<a%{3Q9F).AO0ɥjo(NRB8kt$A=DN>FkG8 o>Y\6'N(.6~&Ŕ=487]:<a%C %Շd&TvXQ`&l坏$opK-h7>%  s/ *í?7_'j+Qb,B)F-p]YX0*~<{XgL)6 D@Ou7 ϗ$FYQކvܻ͑n|7 Z}Gd8?I9Y2_WwCaqFGD&1M`5B`A\B8LX4zcZdeYvxjG%^}y^$ veHjKJ wz:eos',C'}#wmԹOYPhyEJVYO:EG9GM6>03M`!X)X0Ԡb-4Uf,2szm+#:H9˩*餞 3aHG/(xF'C0J0Tɑ. qn3U 6 EUT*htELDyy:5? %nq4}9GĉBj)ÿwB΄iUCwC̃5ĥ027{26'n[4令gMR~w#*xW*z)L('LI|+/IFwh+$GOW{_^}\${3q"ֱW1>ǀ-U7 ;G(!,VZ# Kp9d{,ADl Ҙa=ymLpw\!rJ?+W1b D&ˌp_+dzۋ`hspQ-37&bRV/;'C+#,ҵB2 jF!*,6b˙ R [AʊOHxo62=(,Q:i<&êL+'bi(]O#ǒFX$'u[|D,V &կ]̗[89Շ%%Ay 4Bt1E|aA)8BۣwiNtf>۷ 17tJ,.o={+%ًAvCM;c7XU^,A=Ԗ endstream endobj 71 0 obj << /Length 2408 /Filter/FlateDecode /Name/Im6 /Type/XObject /Subtype/Form /BBox[0 0 2384 3370] /FormType 1 /Matrix[1 0 0 1 0 0] /Resources<< /ProcSet[/PDF] >> >> stream xˮZ@VY'^x1*o%^!i 0ݧZDH}N=Mɿ|~}yɗ?/(_ϗjwJ[G_/vVonȱڃb9^ܮn>šQZiw#,\-ԴʖJ~xKJQe[pYQLnBqhm#ڝGΩ"gV꾐EkZeK%?#3O<&f “FFLf [ wR.ݺR.śj)eo)e=RN/ՏF O Vْ{ྼ:ՃX~#e6b mW(uKbd~K+ qb ,aCLIF.ކ1*ݣXT }1 }R0¾8G)TPiX Y(p i("V(hkQYS]FF!\(+C&4w)|:}Zj'9ȧ-[F 냾Ȣ#xt<@*)i3""Ĕ.]DLpCK΋L\Ԗ_ :XU5] WXCK㎸a)t\%'ëNo^b+B{-%G*# jb N%b^rRZ%xFRpxXr7%O.KhOr.YXYZ=_zN,FeZҋ/C!(H>.oq=բT(ci۵s>e9S4DKޓlVdNJfHU= a,m3N)֣/y2b(їlnm2! %-#[Qj [FcD夡(rk I)k^#05KKf>h雥zv8ߍn6囶yϻ cgdzb!!H"9D$oE:b)"b%SdJMXH-aY@^ ԫ B= |s(XvZ䛾N+e=@ުȄz|ѬѧzCȇZHnG'TPCac '{Q '@u-{BLq:-MyANb&CBr}82Z9_C_Szrk;8^h0QGAcQP? Uh] :_e/K]uK,Փ/r:R FQ1IK]rp55)sj&)5PY )Q &3sݡȱQ-":E la}[V?+ ::63ģ("+;5 DOJ  D6fw] \u 5Xq~ k { 5?Xv4(K檳9RC_T*c_R[=ya˿Br endstream endobj 72 0 obj << /Length 2586 /Filter/FlateDecode /Name/Im7 /Type/XObject /Subtype/Form /BBox[0 0 2384 3370] /FormType 1 /Matrix[1 0 0 1 0 0] /Resources<< /ProcSet[/PDF] >> >> stream xɎ:0#l'F˼E)P@gU4"+.feNi1_[2_ ~/?-{Ђ^7t%T iUz!7f+VtUIhu\ 1 j$AB>*0JR]{$FAo{hdԙ hQy4K aD%XHt% 2M) ky,$" 0MK3fϭ KMrR IJnGL{hXX)݃kܡxB5nQw߼d ܷBĸ׸0RvqA1 "8S3᛽F{l]]Ҷ}['I6auNCҘE*#q-z,8)4tilnAX83vqAc9`7;غ@9@uO\T㗥W1l\k=oSVDS1--LbYthd c=0E2qYIH0 r"”|af6}:)Z03bq )EVo]~F,MD·8^SBcv sCzL`Tq9M`f o ;Sh U{=f`i0-Oaj1)Uy;LMa"ɂ#`zr|)hy-X0z|i䢯::#c#@w rZӀ/^Zy/mVOVF|E$}+VOz(nr|EZBؗR%&I,^QJ ^Z|l?DY[%"~Ye!%nY1{|l1) 8.C~^bcMb%?m^×o*ֺ 0I̩ToC\z oPTP»J71aIjWŅ*꬞):fB*֌GIѳNR[{=֙ЧmL(&aQX$Y+#, ~ޛtElg.(d` =,P<ےc;IZWB.[բ˺46BP+ RܢļvVPVhv{HqU/)YNP>Ȁ)ߤe]({O/:3Tڪ&2S`dS/R(ҘbU |Q 2Y "S$E/4;m]:R+yC8IAERN+ܴm]_HK6*8S`(RzY[vR,Rk^M!k*:mon8_(z[lEz[׆QiܖYЎ7 j*]AyB$ߪEC?8-c邢um8iMnFlܲ@!«B.~l7GEW|XܪEl) lMT}41> stream 0.00 g 0.00 G BT/F1 6.97 Tf -23.03 36.85 TD[(4)]TJ ET q 0.488 0 -0 0.488 -14.56 -87.94 cm /Im4 Do Q BT/F1 7.97 Tf 38.6 -98.2 TD[(\(a\))]TJ ET q 0.492171 0 -0 0.492171 112.71 -87.94 cm /Im5 Do Q BT 165.65 -98.2 TD[(\(b\))]TJ ET q 0.488 0 -0 0.488 239.98 -87.94 cm /Im6 Do Q BT 293.14 -98.2 TD[(\(c\))]TJ ET q 0.488 0 -0 0.488 367.25 -87.94 cm /Im7 Do Q BT 420.19 -98.2 TD[(\(d\))]TJ/F1 8.96 Tf -443.22 -15.9 TD[(Fig.)-258(3:)-259(Mo)14(v)15(ement)-258(of)-259(diagonal)-259(and)-259(column)-259(histograms)-259(in)-259(the)-259(circular)-259(k)9(ernel)-258(approximated)-260(by)-259(an)-259(octagon.)-259(\(a\))-259(Layout)-259(of)-259(the)-259(\002)24(v)15(e)-258(side)-259(histograms)]TJ 0 -11 TD[(one)-376(ro)24(w)-376(abo)14(v)15(e)-376(the)-377(current)-377(one.)-377(\(b\))-377(Histograms)-377(being)-377(lo)24(wered)-376(to)-377(the)-377(current)-377(ro)24(w)65(.)-376(\(c\))-377(Position)-377(of)-377(histograms)-377(when)-377(centered)-377(on)-377(the)-377(current)]TJ 0 -11 TD[(ro)25(w)65(.)-349(\(d\))-350(Octagonal)-350(k)9(ernel)-349(mo)14(ving)-349(horizontally)64(.)]TJ ET 0.8 w -23.03 -158.51 m 227.95 -158.51 l S BT/F4 8.96 Tf -23.03 -167.07 TD[(Algorithm)-374(3)]TJ/F1 8.96 Tf 51.04 0 TD[(Median)-349(\002ltering)-350(in)-350(constant)-350(time)-350(for)-350(3-D)-350(data.)]TJ ET 0.4 w -23.03 -171.21 m 227.95 -171.21 l S BT/F4 8.96 Tf -23.03 -179.52 TD[(Input:)]TJ/F1 8.96 Tf 28.89 0 TD[(Image)]TJ/F7 8.96 Tf 25.53 0 TD[(X)]TJ/F1 8.96 Tf 11.45 0 TD[(of)-350(size)]TJ/F7 8.96 Tf 27.68 0 TD[(m)]TJ/F11 8.96 Tf 10.17 0 TD[(\243)]TJ/F7 8.96 Tf 9.21 0 TD[(n)]TJ/F11 8.96 Tf 7.6 0 TD[(\243)]TJ/F7 8.96 Tf 9.22 0 TD[(o)]TJ/F1 8.96 Tf 4.46 0 TD[(,)-349(k)9(ernel)-349(radius)]TJ/F7 8.96 Tf 55.87 0 TD[(r)]TJ/F4 8.96 Tf -190.08 -11.01 TD[(Output:)]TJ/F1 8.96 Tf 35.36 0 TD[(Image)]TJ/F7 8.96 Tf 25.54 0 TD[(Y)]TJ/F1 8.96 Tf 10.53 0 TD[(of)-349(the)-350(same)-350(size)]TJ -62.47 -11 TD[(Initialize)-277(k)9(ernel)-277(histogram)]TJ/F7 8.96 Tf 97.5 0 TD[(H)]TJ/F1 8.96 Tf 8.33 0 TD[(,)-278(planar)-277(histograms)]TJ/F7 8.96 Tf 71.46 0 TD[(h)]TJ/F9 5.98 Tf 5.3 3.81 TD[(1)]TJ 0 -5.45 TD[(1)]TJ/F12 5.98 Tf 3.66 0 TD[(:::o)]TJ/F1 8.96 Tf 13.45 1.64 TD[(and)-277(column)]TJ -199.7 -11 TD[(histograms)]TJ/F7 8.96 Tf 42.48 0 TD[(h)]TJ/F9 5.98 Tf 5.31 3.81 TD[(2)]TJ 0 -5.45 TD[(1)]TJ/F12 5.98 Tf 3.65 0 TD[(:::n;)]TJ/F9 5.98 Tf 13.67 0 TD[(1)]TJ/F12 5.98 Tf 3.66 0 TD[(:::o)]TJ/F4 8.96 Tf -68.77 -9.37 TD[(f)25(or)]TJ/F7 8.96 Tf 14.36 0 TD[(i)]TJ/F8 8.96 Tf 5.71 0 TD[(=)-285(1)]TJ/F1 8.96 Tf 17.47 0 TD[(to)]TJ/F7 8.96 Tf 10.11 0 TD[(m)]TJ/F4 8.96 Tf 11.26 0 TD[(do)]TJ -49.95 -11 TD[(f)24(or)]TJ/F7 8.96 Tf 14.36 0 TD[(j)]TJ/F8 8.96 Tf 6.84 0 TD[(=)-285(1)]TJ/F1 8.96 Tf 17.47 0 TD[(to)]TJ/F7 8.96 Tf 10.11 0 TD[(n)]TJ/F4 8.96 Tf 8.7 0 TD[(do)]TJ -48.51 -11 TD[(f)25(or)]TJ/F7 8.96 Tf 14.36 0 TD[(k)]TJ/F8 8.96 Tf 7.62 0 TD[(=)-285(1)]TJ/F1 8.96 Tf 17.46 0 TD[(to)]TJ/F7 8.96 Tf 10.12 0 TD[(o)]TJ/F4 8.96 Tf 7.59 0 TD[(do)]TJ/F1 8.96 Tf -48.19 -11.01 TD[(Remo)14(v)15(e)]TJ/F7 8.96 Tf 32.75 0 TD[(X)]TJ/F12 5.98 Tf 7.61 -1.06 TD[(i)]TJ/F13 5.98 Tf 2.66 0 TD[(\241)]TJ/F12 5.98 Tf 5.75 0 TD[(r)]TJ/F13 5.98 Tf 3.66 0 TD[(\241)]TJ/F9 5.98 Tf 5.76 0 TD[(1)]TJ/F12 5.98 Tf 3.65 0 TD[(;j)]TJ/F9 5.98 Tf 5.67 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)32(;k)]TJ/F9 5.98 Tf 9.61 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)]TJ/F1 8.96 Tf 7.3 1.06 TD[(from)]TJ/F7 8.96 Tf 20.56 0 TD[(h)]TJ/F9 5.98 Tf 5.31 3.81 TD[(2)]TJ/F12 5.98 Tf 0 -5.74 TD[(j)]TJ/F9 5.98 Tf 3.4 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)32(;k)]TJ/F9 5.98 Tf 9.61 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)]TJ/F1 8.96 Tf -145.66 -9.07 TD[(Add)]TJ/F7 8.96 Tf 18.57 0 TD[(X)]TJ/F12 5.98 Tf 7.61 -1.06 TD[(i)]TJ/F9 5.98 Tf 2.67 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)33(;j)]TJ/F9 5.98 Tf 8.94 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)32(;k)]TJ/F9 5.98 Tf 9.61 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)]TJ/F1 8.96 Tf 7.3 1.06 TD[(to)]TJ/F7 8.96 Tf 10.11 0 TD[(h)]TJ/F9 5.98 Tf 5.3 3.81 TD[(2)]TJ/F12 5.98 Tf 0 -5.74 TD[(j)]TJ/F9 5.98 Tf 3.41 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)32(;k)]TJ/F9 5.98 Tf 9.61 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)]TJ/F7 8.96 Tf -111.08 -9.07 TD[(h)]TJ/F9 5.98 Tf 5.31 3.81 TD[(1)]TJ/F12 5.98 Tf 0 -5.75 TD[(k)]TJ/F9 5.98 Tf 4.07 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)]TJ/F11 8.96 Tf 6.72 1.94 TD[(\303)]TJ/F7 8.96 Tf 11.77 0 TD[(h)]TJ/F9 5.98 Tf 5.31 3.81 TD[(1)]TJ/F12 5.98 Tf 0 -5.75 TD[(k)]TJ/F9 5.98 Tf 4.07 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)]TJ/F8 8.96 Tf 6.21 1.94 TD[(+)]TJ/F7 8.96 Tf 9.21 0 TD[(h)]TJ/F9 5.98 Tf 5.31 3.81 TD[(2)]TJ/F12 5.98 Tf 0 -5.75 TD[(j)]TJ/F9 5.98 Tf 3.4 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)32(;k)]TJ/F9 5.98 Tf 9.61 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)]TJ/F11 8.96 Tf 6.21 1.94 TD[(\241)]TJ/F7 8.96 Tf 9.21 0 TD[(h)]TJ/F9 5.98 Tf 5.31 3.81 TD[(2)]TJ/F12 5.98 Tf 0 -5.75 TD[(j)]TJ/F9 5.98 Tf 3.4 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)32(;k)]TJ/F13 5.98 Tf 9.61 0 TD[(\241)]TJ/F12 5.98 Tf 5.76 0 TD[(r)]TJ/F13 5.98 Tf 3.66 0 TD[(\241)]TJ/F9 5.98 Tf 5.75 0 TD[(1)]TJ/F7 8.96 Tf -147.85 -9.07 TD[(H)]TJ/F11 8.96 Tf 10.89 0 TD[(\303)]TJ/F7 8.96 Tf 11.78 0 TD[(H)]TJ/F8 8.96 Tf 10.38 0 TD[(+)]TJ/F7 8.96 Tf 9.21 0 TD[(h)]TJ/F9 5.98 Tf 5.31 3.81 TD[(1)]TJ/F12 5.98 Tf 0 -5.74 TD[(k)]TJ/F9 5.98 Tf 4.07 0 TD[(+)]TJ/F12 5.98 Tf 5.59 0 TD[(r)]TJ/F11 8.96 Tf 6.2 1.93 TD[(\241)]TJ/F7 8.96 Tf 9.22 0 TD[(h)]TJ/F9 5.98 Tf 5.3 3.81 TD[(1)]TJ/F12 5.98 Tf 0 -5.74 TD[(k)]TJ/F13 5.98 Tf 4.08 0 TD[(\241)]TJ/F12 5.98 Tf 5.75 0 TD[(r)]TJ/F13 5.98 Tf 3.66 0 TD[(\241)]TJ/F9 5.98 Tf 5.76 0 TD[(1)]TJ/F7 8.96 Tf -97.2 -9.07 TD[(Y)]TJ/F12 5.98 Tf 5.35 -1.06 TD[(i;j)7(;k)]TJ/F11 8.96 Tf 17.35 1.06 TD[(\303)]TJ/F8 8.96 Tf 11.77 0 TD[(median\()]TJ/F7 8.96 Tf 32.76 0 TD[(H)]TJ/F8 8.96 Tf 8.33 0 TD[(\))]TJ/F4 8.96 Tf -84.52 -11 TD[(end)-349(f)24(or)]TJ -8.97 -11.01 TD[(end)-350(f)24(or)]TJ -8.96 -11 TD[(end)-349(f)24(or)]TJ ET 0.4 w -23.03 -337.68 m 227.95 -337.68 l S BT/F1 8.96 Tf -14.07 -368.23 TD[(Each)-252(ne)24(w)-251(dimension)-253(requires)-252(a)-253(ne)24(w)-251(set)-253(of)-252(histograms)-253(whose)-252(size)-253(is)]TJ -8.96 -11.01 TD[(the)-330(product)-332(of)-331(the)-331(sizes)-331(of)-332(lo)24(wer)20(-order)-330(dimensions.)-331(This)-331(e)14(xponential)]TJ 0 -11 TD[(scaling)-608(will)-609(quickly)-610(mak)9(e)-608(it)-609(impractical)-609(for)-609(higher)-609(dimensions.)]TJ 0 -11 TD[(Ho)25(we)25(v)15(er)40(,)-375(it)-376(w)9(ould)-375(al)9(w)10(ays)-376(be)-376(possible)-376(to)-376(process)-376(the)-376(data)-376(in)-376(h)4(yper)20(-)]TJ 0 -11.01 TD[(stripes)-353(\(see)-355(Section)-354(III-B\),)-354(which)-355(w)9(ould)-353(let)-354(one)-355(impose)-354(an)-354(arbitrary)]TJ 0 -11 TD[(limit)-403(on)-405(memory)-404(usage)-405(at)-404(the)-404(cost)-405(of)-404(increasing)-405(the)-404(importance)-404(of)]TJ 0 -11 TD[(the)-431(linear)-432(terms)-433(caused)-432(by)-432(border)-432(ef)24(fects.)-432(As)-432(for)-432(the)-432(runtime,)-432(one)]TJ 0 -11.01 TD[(can)-370(see)-371(that)-371(the)-371(inner)-372(loop)-371(is)-371(still)]TJ/F7 8.96 Tf 128.69 0 TD[(O)]TJ/F8 8.96 Tf 7.26 0 TD[(\(1\))]TJ/F1 8.96 Tf 15.1 0 TD[(in)-371(the)-371(k)9(ernel)-370(size.)-371(It)-371(scales)]TJ -151.05 -11 TD[(with)-370(the)-372(number)-371(of)-371(dimensions)-372(as)]TJ/F7 8.96 Tf 130.02 0 TD[(O)]TJ/F8 8.96 Tf 7.26 0 TD[(\()]TJ/F7 8.96 Tf 3.59 0 TD[(N)]TJ/F8 8.96 Tf 8.33 0 TD[(\))]TJ/F1 8.96 Tf 3.58 0 TD[(,)-371(as)-371(each)-372(added)-371(dimension)]TJ -152.78 -11 TD[(requires)-428(one)-430(more)-429(histogram)-429(summation.)-429(It)-430(is)-429(interesting)-429(to)-429(notice)]TJ 0 -11.01 TD[(that)-387(a)-388(single)-389(ne)24(w)-387(pix)14(el)-387(from)-388(the)-388(source)-389(image)-388(is)-388(accessed)-388(for)-388(each)]TJ 0 -11 TD[(pix)15(el)-349(of)-350(the)-350(destination)-350(image)-350(to)-350(be)-350(computed.)]TJ/F2 8.96 Tf 0 -27.14 TD[(C.)-499(Cir)36(cular)-349(K)34(ernel)-349(Appr)44(oximation)]TJ/F1 8.96 Tf 8.96 -14.66 TD[(A)-411(popular)-411(e)14(xtension)-410(to)-411(man)14(y)-410(\002lters)-411(is)-411(an)-412(approximately)-411(circular)]TJ -8.96 -11 TD[(k)10(ernel.)-521(Such)-522(a)-523(k)9(ernel)-521(shape)-522(is)-522(closer)-522(to)-522(the)-522(theoretical)-522(perfectly)]TJ 0 -11.01 TD[(circular)-532(k)9(ernel)-531(as)-532(de\002ned)-533(on)-532(continuous)-533(data)-532(and)-533(minimizes)-532(the)]TJ 0 -11 TD[(artif)10(acts)-530(caused)-531(by)-530(a)-531(square)-531(k)9(ernel.)-530(The)-531(proposed)-531(algorithm)-530(can)]TJ 0 -11 TD[(be)-528(e)14(xtended)-528(to)-528(an)-529(octagonal)-529(k)9(ernel,)-527(as)-529(sho)24(wn)-528(in)-529(Figure)-528(3.)-529(Fi)24(v)15(e)]TJ 0 -11.01 TD[(histograms,)-383(each)-384(one)-384(corresponding)-384(to)-384(one)-384(side)-384(of)-383(the)-384(octagon,)-384(are)]TJ 0 -11 TD[(used)-326(instead)-327(of)-327(a)-328(single)-327(column)-327(histogram)-327(in)-327(the)-327(square)-327(k)9(ernel)-326(case.)]TJ 0 -11 TD[(The)15(y)-291(can)-291(be)-292(preserv)14(ed)-290(across)-292(ro)24(ws)-291(in)-291(much)-292(the)-291(same)-292(w)9(ay)65(.)-291(Instead)-291(of)]TJ 0 -11.01 TD[(one)-345(set)-346(of)-346(column)-346(histograms,)-347(\002)24(v)15(e)-345(sets)-346(are)-346(no)24(w)-345(needed:)-346(one)-346(for)-346(the)]TJ 0 -11 TD[(v)15(ertical)-257(sides)-258(to)-258(the)-258(right)-258(and)-258(the)-258(left,)-258(and)-258(four)-257(for)-258(the)-258(diagonals.)-258(Note)]TJ 0 -11 TD[(that)-378(diagonals)-380(need)-379(separate)-380(sets)-379(for)-379(the)-380(left)-379(and)-380(right)-379(side)-379(because)]TJ 0 -11.01 TD[(the)15(y)-349(ha)19(v)15(e)-349(dif)24(fering)-349(orientations.)]TJ 8.96 -11.24 TD[(The)-469(algorithm)-469(is)-470(still)]TJ/F7 8.96 Tf 85.06 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\(1\))]TJ/F1 8.96 Tf 11.77 0 TD[(,)-469(albeit)-470(with)-469(a)-469(higher)-470(constant.)-469(Fi)24(v)15(e)]TJ -113.06 -11 TD[(sets)-470(of)-471(histograms)-471(must)-471(be)-471(k)9(ept)-470(up)-471(to)-471(date)-471(instead)-471(of)-471(one)-471(in)-471(the)]TJ 262.94 505.24 TD[(square)-521(k)9(ernel)-520(case.)-522(Mo)14(ving)-521(the)-521(k)9(ernel)-521(histogram)-521(from)-522(one)-521(pix)14(el)]TJ 0 -11.01 TD[(to)-628(another)-628(no)24(w)-628(requires)-629(three)-628(histogram)-629(summations)-629(and)-628(three)]TJ 0 -11 TD[(histogram)-428(subtractions)-430(instead)-429(of)-429(one)-430(of)-429(each)-429(in)-430(the)-429(square)-429(k)9(ernel)]TJ 0 -11 TD[(case.)]TJ 8.96 -11.41 TD[(Although)-438(our)-438(implementation)-439(of)-438(the)-438(octagonal)-439(\002lter)-438(is)-438(not)-439(opti-)]TJ -8.96 -11 TD[(mized,)-450(we)-451(can)-451(e)14(xpect)-450(a)-450(f)9(ast)-450(one)-451(to)-451(be)-451(about)-451(5)-451(times)-451(slo)24(wer)-449(than)]TJ 0 -11 TD[(the)-434(square)-434(k)9(ernel.)-434(It)-434(should)-435(be)-434(possible)-435(to)-434(de)24(vise)-434(better)-434(geometric)]TJ 0 -11.01 TD[(constructions)-309(which)-311(could)-310(possibly)-310(lo)24(wer)-310(the)-310(constant)-310(while)-310(k)9(eeping)]TJ 0 -11 TD[(the)-567(algorithm)]TJ/F7 8.96 Tf 56 0 TD[(O)]TJ/F8 8.96 Tf 7.27 0 TD[(\(1\))]TJ/F1 8.96 Tf 11.77 0 TD[(.)-568(As)-568(another)-569(e)14(xample,)-567(he)14(xagonally-tessellated)]TJ -75.04 -11 TD[(CCDs)-415(such)-416(as)-415(those)-416(made)-416(by)-416(Fuji)-415(could)-416(bene\002t)-416(from)-416(a)-415(he)14(xagonal)]TJ 0 -11.01 TD[(k)10(ernel,)-463(which)-465(w)9(ould)-463(be)-465(b)19(uilt)-463(follo)24(wing)-463(a)-465(similar)-464(reasoning.)-464(What)]TJ 0 -11 TD[(should)-439(be)-439(pointed)-440(out)-439(is)-440(that)-440(the)-439(constant)-440(scaling)-439(of)-440(the)-439(proposed)]TJ 0 -11 TD[(algorithm)-349(does)-350(not)-350(depend)-350(on)-350(the)-350(k)9(ernel)-349(being)-350(rectangular)54(.)]TJ/F1 8.96 Tf 99.59 -26.5 TD[(V)-50(I)-50(.)-550(R)]TJ/F1 7.17 Tf 23.96 0 TD[(E)-60(S)-62(U)-62(L)29(T)-60(S)]TJ/F1 8.96 Tf -114.59 -16.22 TD[(The)-328(ne)24(w)-328(algorithm)-329(w)9(as)-328(compared)-329(ag)4(ainst)-327(Photoshop)-329(CS)-329(2,)-329(which)]TJ -8.96 -11 TD[(features)-386(an)-387(implementation)-387(of)-387(Huang')54(s)-386(classic)]TJ/F7 8.96 Tf 175.16 0 TD[(O)]TJ/F8 8.96 Tf 7.26 0 TD[(\()]TJ/F7 8.96 Tf 3.59 0 TD[(r)]TJ/F8 8.96 Tf 4.41 0 TD[(\))]TJ/F1 8.96 Tf 7.05 0 TD[(algorithm,)-387(and)]TJ -197.47 -11.01 TD[(ag)5(ainst)-366(Pixfoliate,)-368(a)-367(Photoshop)-367(plugin)-368(distrib)19(uted)-366(by)-367(W)79(eiss)]TJ/F1 5.98 Tf 218.56 3.81 TD[(1)]TJ/F1 8.96 Tf 3.49 -3.81 TD[(,)-367(imple-)]TJ -222.05 -11 TD[(menting)-326(his)]TJ/F7 8.96 Tf 45.71 0 TD[(O)]TJ/F8 8.96 Tf 7.26 0 TD[(\(log)]TJ/F7 8.96 Tf 17.02 0 TD[(r)]TJ/F8 8.96 Tf 4.41 0 TD[(\))]TJ/F1 8.96 Tf 6.52 0 TD[(algorithm.)-327(The)-327(latter)-327(is)-327(the)-328(f)9(astest)-326(2-D)-327(median)]TJ -80.92 -11 TD[(\002lter)-431(algorithm)-433(kno)24(wn)-431(to)-432(the)-432(authors.)-433(T)34(iming)-431(w)9(as)-431(conducted)-432(on)-432(a)]TJ 0 -11.01 TD[(Po)25(werMac)-425(G5)-426(1.6)-426(GHz)-426(running)-426(Mac)-426(OS)-425(X)-426(10.4.)-426(An)-426(8-me)14(g)5(apix)15(el)]TJ 0 -11 TD[(\()]TJ/F8 8.96 Tf 2.98 0 TD[(3504)]TJ/F11 8.96 Tf 20.12 0 TD[(\243)]TJ/F8 8.96 Tf 8.85 0 TD[(2336)]TJ/F1 8.96 Tf 18.43 0 TD[(\))-328(RGB)-330(image)-329(with)-329(typical)-329(content)-329(\(sho)24(wn)-328(in)-329(Figure)-329(4\))]TJ -50.38 -11 TD[(w)10(as)-456(\002ltered)-457(with)-456(a)-457(v)24(arying)-456(\002lter)-456(radius.)-457(The)-457(results)-457(are)-456(displayed)]TJ 0 -11.01 TD[(in)-442(Figure)-442(5.)-443(One)-443(can)-443(see)-442(the)-443(\003at)-443(trace)-442(generated)-443(by)-443(the)-442(proposed)]TJ 0 -11 TD[(algorithm,)-349(indicati)24(v)15(e)-349(of)-350(its)-350(constant)-350(runtime)-350(comple)14(xity)65(.)]TJ 8.96 -11.4 TD[(The)-389(optimizations)-390(of)-390(sections)-390(III-C)-389(and)-390(III-D)-390(are)-390(data-dependent)]TJ -8.96 -11 TD[(and)-317(there)-317(e)14(xist)-317(pathological)-317(cases)-318(designed)-317(to)-317(disrupt)-318(the)-317(h)4(ypotheses)]TJ 0 -11.01 TD[(on)-489(which)-490(those)-490(optimizations)-490(rely)64(.)-489(One)-490(such)-490(case)-490(is)-490(the)-489(rainbo)24(w)]TJ 0 -11 TD[(image)-359(sho)24(wn)-360(in)-360(Figure)-360(4e,)-360(for)-360(which)-361(per)19(-pix)15(el)-359(processing)-360(time)-360(w)9(as)]TJ 0 -11 TD[(measured)-425(to)-425(be)-426(about)-425(twice)-426(as)-425(long)-426(as)-426(for)-425(the)-426(sails)-425(image,)-426(with)-425(a)]TJ 0 -11.01 TD[(peak)-368(ratio)-368(of)-368(2.33)-369(at)]TJ/F7 8.96 Tf 79.49 0 TD[(r)]TJ/F8 8.96 Tf 7.29 0 TD[(=)-320(100)]TJ/F1 8.96 Tf 23.85 0 TD[(.)-368(Figure)-369(4f)-368(sho)24(ws)-368(the)-368(resulting)-369(output)]TJ -110.63 -11 TD[(featuring)-309(an)-309(unusual)-310(smoothly)-309(v)24(arying)-308(signal,)-310(defeating)-309(optimization)]TJ 0 -11 TD[(III-D.)-274(As)-275(for)-275(the)-275(the)-275(best)-274(case)-275(\(solid)-275(black\),)-275(it)-275(w)9(as)-274(processed)-275(twice)-274(as)]TJ 0 -11.01 TD[(f)10(ast.)-236(T)34(iming)-236(with)-237(an)-236(assortment)-237(of)-237(stock)-237(photographs)-237(produced)-236(results)]TJ 0 -11 TD[(identical)-449(to)-449(those)-450(of)-450(Figure)-449(5.)-450(T)79(able)-449(I)-449(sho)24(ws)-449(dif)24(ferent)-448(processors')]TJ 0 -11 TD[(af)25(\002nity)-308(for)-309(the)-308(proposed)-309(algorithm.)-309(All)-308(four)-309(optimizations)-309(were)-308(used)]TJ 0 -11.01 TD[(on)-349(those)-350(processors.)]TJ 8.96 -11.4 TD[(It)-298(may)-298(appear)-298(surprising)-298(that)-298(the)]TJ/F7 8.96 Tf 121.09 0 TD[(O)]TJ/F8 8.96 Tf 7.26 0 TD[(\(1\))]TJ/F1 8.96 Tf 14.45 0 TD[(algorithm)-297(is)-298(so)-298(much)-298(f)9(aster)]TJ -151.76 -11 TD[(than)-386(the)]TJ/F7 8.96 Tf 33.33 0 TD[(O)]TJ/F8 8.96 Tf 7.26 0 TD[(\()]TJ/F7 8.96 Tf 3.59 0 TD[(r)]TJ/F8 8.96 Tf 4.41 0 TD[(\))]TJ/F1 8.96 Tf 7.05 0 TD[(algorithm)-387(for)-387(small)-387(k)9(ernel)-387(sizes.)-387(From)-387(e)14(xperience,)-386(a)]TJ -55.64 -11.01 TD[(reduction)-279(in)-279(comple)14(xity)-279(often)-279(comes)-280(at)-279(the)-280(price)-279(of)-280(an)-279(increase)-280(in)-279(the)]TJ 0 -11 TD[(associated)-345(constant.)-347(In)-346(this)-346(case,)-346(our)-347(algorithm)-346(is)-346(both)-346(less)-346(comple)14(x)]TJ 0 -11 TD[(and)-446(more)-446(ef)24(\002cient)-446(by)-446(a)-447(lar)17(ge)-445(mar)17(gin)-446(at)-446(all)-446(k)9(ernel)-446(sizes)-446(compared)]TJ 0 -11.01 TD[(with)-364(the)-365(classic)-365(algorithm.)-366(It)-365(could)-365(also)-365(be)-365(ar)17(gued)-364(that)-365(it)-365(is)-366(simpler)]TJ 0 -11 TD[(by)-349(comparing)-350(Algorithms)-350(1)-350(and)-350(2)-350(side)-350(by)-350(side.)]TJ/F1 5.98 Tf 7.96 -18.38 TD[(1)]TJ/F1 7.97 Tf 3.49 -2.81 TD[(http://www)64(.shellandslate.com/pixfoliatemacdemo.html)]TJ ET endstream endobj 74 0 obj << /F1 10 0 R /F4 19 0 R /F7 30 0 R /F11 44 0 R /F9 36 0 R /F12 47 0 R /F8 33 0 R /F13 50 0 R /F2 13 0 R >> endobj 75 0 obj << /Im4 69 0 R /Im5 70 0 R /Im6 71 0 R /Im7 72 0 R >> endobj 68 0 obj << /ProcSet[/PDF/Text/ImageC] /Font 74 0 R /XObject 75 0 R >> endobj 78 0 obj << /Length 67 /Filter/FlateDecode /Name/Im8 /Type/XObject /Subtype/Form /BBox[0 0 2384 3370] /FormType 1 /Matrix[1 0 0 1 0 0] /Resources<< /ProcSet[/PDF/ImageC] /XObject 79 0 R >> >> stream x+T032472T0AdNr.W1X@53CcS2 s|@  endstream endobj 79 0 obj << /R7 80 0 R >> endobj 80 0 obj << /Subtype/Image /ColorSpace/DeviceRGB /Width 750 /Height 500 /BitsPerComponent 8 /Filter/DCTDecode /Length 27008 >> stream AdobedC  $, !$4.763.22:ASF:=N>22HbINVX]^]8EfmeZlS[]YC**Y;2;YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY" }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?4)ESnyYXPI)Ws9ʌc5 df"Xv<T 92wjduQ"`IϥUK1ox#Qb۞j TJi2x"gr+x6e2=1N9${k{؊P 2hJZ(J(,L)0ǯҸ$.7p};"TXdTO*Uz+5FZMj:hNM"nBr2:b۸|H۵^A"c51j\\{Ume_QTd.,iNI sנj0n/@VpNj$qdyv;OZ \[c ?+UT-LdzT+rȱ_~}D߻WjMӥ8>XǫWHij1'D@bp[X&wnuF0 v»{ 定pˢ4 i_ Vvj`,`8憹'd>@SUP{9. =kUM#76XRI&Y1?Z*H«_ZruVtjPO(m.*'@ˆCL5?joz>Ud#8vc)[R ڢQZ$T0S =}ivm3(pNmo@p~¤t@FWnV ,`O3 ۞uuqjeb{K+1f%II5҆p>.S过ܔW0`К}?P~C^񞿇NƩlq,{nSUՍlZ Ѝ2 qbU,RG*xNnsIt`R{Y#1["Zkr*)ؤl@W1֗ ~?Hm#N=s#.?v <ϟUh%Uؕ|z+ F>ͣ>$gpZw(ȧZFm#ڗVŵG *2j@FpF+ƪWD)950⡼-=rOT X/9ޱ.uB"7_Cy{sGoz{)`X'֫ۙ7}YIؼzD=)ʘ4⡻+QEHƄH^=՝ 7Nc~6c ғ .zUR1VdăT5v!Iފ*6AE@%Q@J`)(RRPIKE%Q@%Pފ(@E-䝢RE4ю)hl\hϭ;4b@qbĸ'n F)1 sRp*XcnjFҠ cO:HFߖ2)sL[8aUHMpS~wڧSi%*=nd5l_OD;b}zWZݳ"(C_>Tk'b@jP6V NE<  T:V1}(GSXfN*(H#9TqC`1 8Qw?A\s bF@2I⡗Ԛ|q~VѷiGg>֧""dW{5!q`j$qdM旐r:*s)S=? ]̿}r=E` yRHG[~(°+22?Q ~Tr1H꜠Mkق/uVO_zʽ֭ #$Sۈqj۾3AO#.Ȩѥ9lsV<{U-<5Q[8i e0֣eA#ӽU*sҵRLŕ)*BiDRbE-!EP!))Ԇ IJqE ))(ފ@%4RRShNТ((i`hM1rs5u J4 HQpsULRhje$4~CqBIqTʡT05Wi!4֐ LhjAE;KE %-CsqFI"^-dj:Vي fk6VE UX[)۹W،\=EUŒ U^y Df_C4kCzuT}RRQ@ q~48ypV\I#R>r2.C7?Xj{^yCv,Od։Z Za G.=+mnu"%?꤬)ؤ#H ڋ)M*hžƉwSǻjبUp*n<?ZFlfUG뒾˙68l~`;D嗣T'0]H sTf,tFW q^A$m$a RgeYM%}H5ۤC|av6VB܈3ST_ъbj׍8wq*?;\m'5[ ,HH\sJUnZi(u!L}rR 0CK)ء%AN#4 JWq_КnS>}. ww*?!d}q$QqN0ʟjb6ȤTIdx) s-+[jfqADr?Ɯt+cu ؚϚ 8܎wlqZڎE!W#851DCT .;Z3Y#yֵF$ ,#=c'Qͳ+Ҡny3E&898<J PS6 G4PRRPQEJ(QE J(aIGjZ`&))hzQ^I%TM2mv@8?=Uyj'Y%ǩ5*SD;&-LPFihJudiS%!Rk5'&+L -ݍGW1$>JK=}G5m!VzhRnBY2=FzΞj (_Sޛ YԔ&)h KG4=GXsudtE%!kX-AC*麚^}W)ؿA5'OAϵ4pkGGf8g + M>}Ԥ)zuȥ=(ɺ06]z"ʶ8aTsM #vohHr:]2°Ȭ=oj7=M8 ǒ23~p򢏻[bU#f/_~#{SOZ #F^r8>$}=P!i1KIL-JJJZCLRuIKIL JZ((z%EV,-Wvt>I弟@` Z`5QQvz p%-QERQI@ KIE-%u ;QԓҀo97@;?Ju t2cVl6ś|=M;w%˰%+GZ(V>'֤UaEHB6z"3CZKPK$@,6)3@z}eNүT^ZvFT*HV}E!)i(tъCR}NƗ<bZ]O&|xֹ&95qW]_,̗jvֹe(AUqX7 7s/~KySx?;9W*By`_T,?,#3\?R(U"D?UiU-KzvYJf6Q`L^>c𠛏䟃R2 ÌGӃS̥֡Qȡ܌3FBz??Ƥr0+@\C9iNӈoɞ$V丙:?9xހ62l2K$\βIOLo*`ۿkz2O-:G}*"t܆%0M<%oME??*G{GqX~=i>Ɨ̐t_BFߺF= (Q-Ni eUS){݇q4Gg\ϰ69HF?G}˸COXWsH]$Qci)ᓼr) G5?֎ IO_f#N?홣+E.bF 3O0s9X;T),G 99_cթi(y`RZ(P)i)hQEQA IV;17cFQ3#eDMsW:?A}jw2JĒrYImA9Zz"5c"b4⊍~F(-%7<f z4OZ&s6~`_3٪JWvggMk!A DBW|Z#&C?\Wx:E%̧@3֬ XAjê2p*%"1EBBdD~Zozu!f O`C3H)OZk{sDܱn7^>څLQa pySE-Q"aUeic _^>Dw,)=EvAmϿj(朵WĶI0OSSOj6qKMfuOҲ*_8RD!; N`=1@bAc5Z,SM!)iO=hZA[c4e}R,oO_Evve?Cu3a3V(z(eD]{Ožx37B@=0h){Q Cs%0Pd?ǨҭO;Oq@ɦeNJzS}h ?zR )tBFCBJSIܑ(@ INcM49^@ ،KAM0H %))i)RR⒘&KHhvQZ# =geɏ^3 p/JuFO&KIKH4PTwžg;Tu-j+\~αc$YsښW%˱bTPc< jT#Q=¯ DՍ H))EID(<  e2L7)ic`wQKE%Q@W[v(wG :V:Qր)\xQ\HajҷfíViJM1Gu>ƋkS򘧌H۪=jEmx=)`i9j@SכcS?Ak^%Sb}3E0z xFn.u [bcҒj0d'皈RVZnN)pXԫnsF+ӇJ@ mB䃜z:E*mpBD UesH}sR9hŀ4i*mpsLG~CٍSPK*nlTGafϛi=/paQ"FcqPS. )E֔0e 2PQnqwa2x$ޭ) 6'pxⓂdmH{c?wԋt0K(ǡ~X't|zSb꬧#5%O' UEemBz"]. ?zbdȹ#֓a@΅?ĤSmdsԨסjRW!e# <f*S~4b+^IGqV v>s_&1gUGj+NRE8d>UH]`$;¿? 擭41+R;^s*9]n+s].րeoZک pIzTY5H-cAg9i]vы{X#@3My=s]-&sI\fhZ ޷,b nΣ. 케*JHn)*.[\r)qOЎTST9YlvUA(T,AW!^8A l8?SkQ<%3T*'6Q l o}G"RJR1S9\IXEL뎆Vm`ȀzqVwFRVdG1#J0U\)wǛp25dI#XӠ}Bā6tqB>5,+|GʌuJ lZHd"_CU#jlQrGtcy:Ўo=ƒ.ߵ06U9eME(~i~,G6dqƫ](yRh::^:7*Y$PCҚV ܧMt >a43֐D9(q!:T׏ܞP1))ԌRSSg֊):PLȣ&@嵍e2$mކ 4GIJTNE&s]Q X) U))i())ԔJBKފaz҃zJbHb0iq@ ES9R JyAdl_yl|v:u-K}E[VI a;dqy5;+Hsc}Mg+HwusXyO~=MOoiY/66@N=;ZDT 2:tx?}xj (QERy_:PgqiV޽qH:Z))hC@6HX9:0VIh)yU'kr,QںډRlhKқ&PIGaZ 2ȥ-ҹoi%G_ZGSҁj\ݍ+l;vӊA80.1QrQZu%- ҚC@2fF:@NqRJ5IטGo6هUFHK%f++@ ]@m1Ī~bN$S]aa^KRqӥ4ϵ<:t359sK%?:ZV6ł%:ÊFd2EvZK؇ )Pޥ+ZtpG856ϽYE܇="J`O?S|q 2Nhb=nSHPFRE nJ`P)!(2VB\S{qHV! I>*O [ۑTemAI^RdwP>V)%K!w?Z@CpFu17^E0ƾRl& 7cJEG)>ocRM=h=4ǸZ)MPyjLM(=4YE0=m-%-%n JZO֘ EPQEd`n N)XR#I\W1 J D Tu&U@k1Zf8q$ߢjTjJstr膷{9V.=0,CO9F1ךMIXE\ RR^aI.px`?NzRHDf6q>D*cy=ɖPqz3-a[Ɗ\WLc(a=j h+OS! ZZKEQE%iM4GMh8?O sf?¿ٲ\`sqpQ|@sJ:|v?~@ܗsZdŻWQ伊FqYzza*&Ġr9XV$D`qں ̷6L7Q:H4j'c?LE5[$FOӱEJ@V]Cv$:~ʰvӑR%f:$̹9W>C SȺ8~d1A#(aj0"lނ)3qn풍?z^o/0O7VwQJ=_l;g>Y#`AjDyL<~T``GՓӸv]YeQց}24ga HE0H'GWpGPzaJHKRb E40#)ujlSY29#75r:CJAyKbQEX EPQERR J#`~29wbsk56իL?ʥ`[–=)$jqZANaZJ)FpÐ} H(8*Zp&/A"SQ@ EQI@ E%RtA%:+gSS7pߝ;4J " ?5W_O=e5H)@ pI prhx]Y9.yi?d;#oZW3l5sI1RfH@6jJLfT2)QE%QIL [{sNjezIO$iK|Y~6PA$cO&M[lV;UK7 m+?TtApstE\;Ҹ*27^IYԵK6LL Ae{kx !Z89 FEP:DžTR7SCLK}*g7dR*72]7'8 h;Sc R}eW>}cPݵ_uuM 7O/ˊb=i1QoATtt?J`7&>V6Ӷ+:*fJ+xU6KI[%E QEԌ \sJSגvPKIE (ZmȀV=h(*rCKUH)&yﶬGz`-QH)I(J(JJ`Q2}Wҥ;O 7qH ٴ{AS-w"=!b4~+@rj֘Οy"HOUp j- SOZri R(QE JZ())i)QI(f&5F8aƁЩO#?¸>БC)@d#?Č9^aktk'EY6v0zB8Wln`HH qM1ƭR3W1ڴg=)*vZVBN1̇ WA\omD7nE뵗k>MEgM4IJK[V.J$w:`gε}rrWC|}x4'bS~`F߭=j26:T78x V!L37 NF:r)&tĤQ`L_JC%o?^(oZPi{(oZ@-QE0KG9t@4FA+P)S pGzvhϭ3p6c^Ѯ}@Fl?#ȟMFM1nSJ_2~;j`[j:x5OcQ<0BO!`˜Gj" ]~j lKrGU\f &>E ZS]Q XJCKEPQ^Ab\@ EPKIE-Q@ %ȫ@ʐA|%>u @((BQE! 4qy#-Lr|U70?׬z4(F"uO1/Ef=]M̟ޟ5Sb9J ZC(HiSsA4MC8ַPii WA8l.SӧҐI ^ϭqڥ3`c5'`aԙ+qQ0r*̫5 9в"w܀*U`j3I.jV[[_=Ҫ#=kR9$M\ WP` YXml l*Ď8➑\B3ܣL_JOC[{GaT jqXfJ<;_pj#"yZl8Sՠs@2.BHJS<>1?5OsI~/֒ʗx=h~Q4Ay'4@ i+o%NA*mg [mdQց棖5 4UWY:0eaGzvjMja(@ #?犉ҥ?!&@Š>j>G_'aE󎠢(i( (JZ((>῝H8#Y2p+zSGh4%JZJ(AGZ(aI %ijEĿ6oҀM[Qq]zYD+*<CðI,CVgnd_CV-5ejW+}JREOшJVܫc5QT-3PVk9%}Ҭp)TP[!FeH* A*Y9F$A`۹Ҫ؋Q`YX?ެ2^7@pF@4|8AuHqNkBU9JE ZLCJL+GZ{P*{sR04c=} JGңҘ b19 )ZnP!?ˏs&(:~A2':J@VATNxqڀD+G-QOGzڑ[u췵1=̟_HAҘ'z&šAIњ`DGL搁5)_šAfJLEq̽ҙ˔aZ:KQ@(0(i(J(h֊JFP)PҤ?`wK@pzu1fycMVO%s>7fo'zQTPTt~O }3V3U Aogj:Da$$gzhWe $ ꨺qb9U/R,NJud m-3bE&).(ACaS%8i LE!u!"#g?QMK>W"4km~jfc]lk\7ҵ2)JN9 P5!$t5fe4iO)OC<ձ3G!zM zJC5[_*.T|@S"JŘj892+KBL0iHQg#94 Wu+&+Aۨb>+Xzm'A 1P|˘?'9g_[WUr*)ma}E;kV^OzD QNdJNVIQ 1 &?qc֐SH4)6ȦaVG>ŠEqFjB)gBACNWҗ`5/K㧽% Q-ǯv҂z"˂A0*2Gpj0>?O4 Z% aȧ1Fڀ:jhGCԔW1W\0NLGCQ#FvK7X4QE(Q@Sh))i(QE 6[J:"Y>#֜֞iC@$fg֢! p|;PĻ-e3֮?ye5هQ~zu0i(5E Od׊V,}KQBG[)cf5ң :P8@1SDB9AZK$wui G=jj͢( (4RSu%0 N=T*uP}@4#t HMT)JzZn8<{KfnO[SEl- IN[h[\#OCQlRg9u+fP@?(~ySRUU50M:舐~ZWD*bdx9KMmJDLg?ኴ84*)Iq֘"61lPZ*U^w/# 9EHbo@cozaF =>Hb=UO0!2cEUw T~t-_Z#8,HW4pv)(M!{Rb}dR %*a;I<{{T9zI7܃[@ǵzRb tWfY>ޣ}EL&=)k zK.w!(ǯRy8m :(sMT;S(`%<dr)YC)VrŐOP)Ȳ.G=E>Z(QE-%P0 J(ZZBSIv 4y!a7j-Zo?UҶ?:}\PX5r>,{E%oLm@fOU:#5=B{$ĐsVm>J҅M$11f=KqJ'SW:.cm;քܮjmB,H·0kQQ0${Kak0&/#*<#{lY8>-#(n抃k~d=*DdSP褥AE%-)(QރE%Q@њ)  ZZi4!Ji27^IЈ[妽ryzeSWLQLbυ|E=ֱZLjz 4=JMjc~ݪS gTÕZ$X(m !{Ԣn IE))i)RQFh))QEq<)cTKJ))i(`5:=$N^0O7SP [P;Af9 sw¸ie2R"5߱j36#o=jA֓WC[IhW!V2k6tW)h.Qs\ܶg|M?*Rzjr9N)fL=A֌ޤy~ab78 8a5yi^'q`JER(4MRQILAEPIE_IQ I@L@M6I&w/Tvڝw o?c;>ewWdhZ*y j+S"#ޙR0hxFعgRʬyoxe?^wtѰa]*^[OROaڔՎq QF8#ҜAE" ѳRUS4)Ӵ}Gf.n14DfSFi&h9PE6zRE4oCK;QM J !i)&}E&qFh wG;4t~★&sE+>Gǚ~!P^.-dz2:ȡSЃK}tdFWQDܧGph)i+ZJ((AEP0(8#1 ^< *EusOoǽB9brȪhZ%2or\SԑQ @{pNG 7 zi A,) % ztsFh'fSsL$1);֌P!zt2aa֝EHnѥp{ ¤XQت"y( YhA§֐GOݞbjJ "1MF:1G@)Ɛ!81KQM. t8qLB&sړ>&hFi^{LQϨ棚B~y)+Z)(JZJ(( (PQE-&h(M4EցL= <^޲1MBiՏPPR@WAĺv>+s­:y=E JiM4f\E4 6ifQA418z)CTExDB?ƕ\5zkKX.Jƙ2O>jErďqYaa MHe:mɭau"RC:FBMHs0V*Ar*Iey皥W,I n_X׍sJo[+jkB:J}Tƣ"l˜g(sZAӣlS!6%Q"G*$D{E-3'8kVe&+oG\t98i3j;"EU[nWsKf ahIu(Nh9/4`zъ\SHHhZJIΛh lݹ4\u4psN=i})6G.>(ɠGM3QMIXg(4RPEPEPE (A4SMRMi٦@ڎSf8*wp*+żT,riM%-% QZ l_tЅevMn&h=O֒()3@! Ӛ)ь`.(&4B*6j*{S@ȪwW;%/3*Fb[*A8?h-#$%9V:ÜջyC;u\,drI/0*{P)Ȫ.LҎl$p+?q)ZCr ,i ZV!ic\v ؞󎆲]Z{B{\IrۺLc 0DiTE&Y?QVfF9U jܜzdVCX+J{p 9Uwv4J;Tn~'vl q u{EouGTyzszMxS~R7++P08l~2:bE'znR}iZ1LDxHE&f1HF{cހRqߊy"(E;m!Z44p)@hj2(bNtgց.xOqQ$sn2'ns%sApsHȯsQ\|PU·zԫ"7CQA4)(ES(&>QE;RREMv؟Zxqipޑ5a=*Ɵr&_IAŠ(=m[櫊3M ȧKP6+vHSSHuPh BvzS,@`&⒢yv].hbfqM3 obtSޚϑHaB 5 5B!w:˿)ؒq.wqޫݾiO3TDWr1_qڴo%!׫ 沤5̌ZjlbpkrV.70dxWl| aSQ@ TȧA(f(r/C @撣G|(uM4zRgj@9)YjnMT>]7}q#LGPzR,Z(4 zuSӭ{'l.q\é7og'qZ* h1EfњLBh,E>4ڣSJ 50 I\%s׽^m6w1DѬOI*TzL" B&Ls.}3;w<?lj@p8⤢)ے?NX@*Mt$O y"ǿjfF_ڝش";AzvA4Ӹj斒5 )33@Z(@%@( ;hRQځE!<H(4q@MOJsI]?9=hAXQERE;?lפz@ zDO<6׮$DM3Lzk>(fWrؤva\5A yYEh{W̍ I#dfM4Ki89p'/qQt8Qdy/j$ݱ+@/j5a6 kS;RSQ:@Ģ &*yN9 8BgVƼoMٕ*'x4w_"Ɏ01YG)Q#susTb/+Q ?GZׂ3\îynl$~GR?1ޙZQK@ EnXA'2oY\Gp( EP\M RV X5FiV:֌%3O+.hQ 4o|טAVao Us*MĊar:\L^$#$'UV嵠>OΣq]%͈]T]D}󧠬xR+i֙,p"}0pzӳ`6sE%Rfjf(J(4fQL-%-'z3EPzb`!4֐ E/i_M)),V-jXp*Ys)*yZF̆d;z&F*([ܕY~[q5HI>Q;S#ǏJM\iPInIUT?Z+SRm\#s4{Jn&fhyZa| PP*KbI$\ĄNj ZURB͹\Q2cnCl VUg8$ɹAܣ*RwZYt&i )-%0 J;P 4QETHT}(&5;*V ֱ|NbD:~Q1HO-wt 6j=R/s'soSyo\*'l~*<*((hSQHQLAIE QEPHzQE(QLnPz(;~5(QRX%PEP^1}6՛ EU ,ahej]Ek V[ht?P3Ea!#$;$_(J#''oz(y{gR4qɧG< Pf$Hɢd1d)s EZCED4JZ(!)OJ(bQEuP"@`8a:>1 [nTkcDwX4+MW1-PIEUmX)( TQEQE%-PEPEPEPEPEPEP endstream endobj 81 0 obj << /Length 70 /Filter/FlateDecode /Name/Im9 /Type/XObject /Subtype/Form /BBox[0 0 2384 3370] /FormType 1 /Matrix[1 0 0 1 0 0] /Resources<< /ProcSet[/PDF/ImageC] /XObject 82 0 R >> >> stream x+T032472T0AdNr.W XL 5300040602Wp B9 endstream endobj 82 0 obj << /R7 83 0 R >> endobj 83 0 obj << /Subtype/Image /ColorSpace/DeviceRGB /Width 750 /Height 500 /BitsPerComponent 8 /Filter/FlateDecode /DecodeParms<< /Predictor 15 /Columns 750 /Colors 3 >> /Length 239417 >> stream xܽymYk;<= $'c,;6ll3p* 2TD *A**v1{z9{XSw{9 Ȫ{5|ࡔ2RCJk% +\cu~B _uXm ]}Nݏ*1i")ͤJ0Qܣ >iEMۊ^- hmmuۈ۪ښ@ AIzxKDP 5?H129J$>n x| 'S'Zt"J<H"k %>Rxx{ a6t3a/Cڵ{DCowC3ץMkR R T+{m(&*Y,*R vBaה`sπNHz4^S/4 b?ɟ^DX $Vwgmf2['o}J}"˲\FDB{hH^&>g iWLe[%nV\Wn[V i֮nMXӸѲn֦\^}Kz[7G`2sZifYRy\WTyC,iz݀C=^/Fts-;٭"37$V4L@+FɍFlb{Yօ*4T87޳7w|[}kܗcbyx@G,Z"WQ֋Ma vl漱uc?\oms*ehiv3Bffr.y5޿.8$ ]7HlQ狝u5hR<Ԗcw3ڠ 62n0ww7=I !Y=4BsD%uE|ptSBXP"#(# %Q;s]$L>EPF; 4')n8ɨe ʂ[Í-k햮n$" 5 =흜\LXUһ<:dg""3e,z7qD,x2z! q0L𓜃2@ L<̰cb L2 P*D֕4։J ($UG28+ euKfSiXp 6~'~eQ9Ġ2kVR'aQZ U|~w=u$ˏr-k 5 a"X|ndhv +MX {p5`]; 4rW?Z]nekTD zT`7I&(@ A4K)2yĒ1G-ԯG583q 6& DYM p FcՖvs\S9#.%-'g7o~ѻs32|;+J@G<f-D-EcE徂JFibiꠌzH"CbH+##8buW AU+'VEn։eLehO228gFX'4aJmjT,C׺_@P5 1M\{克ݮ-sgQQ(55I~LZPFE@ye"Ȕ@FΐΜ6WP/Qnxt S٦"(GiXyvɭ?NO@JJp,Q oXW-L @jM.$MRN4A8xq qcbI-x(mi)+P6> xC 2_2ӡuR`lvHc|Ѥ9(3xH;)|`Bckyڡ<?7L]q?{5@d-'l=fOL,`?ʠi^$UԎ]c`߀{ CP8NaHue+@{c00 V#K_ME'BHY^!#V+ctwL3c &Pf@ ʐ>خcXXP&S`xcpzC QVxPN Ocp戥} )q S 4A4y2l akOS"#Q"k+K Vʴl%fi`F[ @p-tPfQ~%3CÜvguf^wu3nZPy|lb4OX-e`W7{zAmvÒZHQߠ3]eϔ4Z:(2 ]G`/W#t`)&l@1M$מ25&AfK DŢ7Ic'g}P TC@)@|SHMLGF;;Ndf5!k%Ka+2%DT99K1e{PFtbbAsa(eG?ʫP=d1~o;I([,Er +8L$e7|>aT$/j\i4訌ehPhKbl/?x^m.j@6 ̍(| (0IKʏt3ftO28eM-@Soui.,EjQwT䋥J_E5޼N6baR654)D|8 IFfeTǏUohlW哿f peE^s{oc_ޯ*E'p [72L0%cc)-`aR ihu TJv;}?f 1/Vr=j}QoFw!6Ĥ8@0%LEXe240)Ʊ0ᘋyGlh DJUSnf˵#JpMt8݊$yq2ɻ[K̍z{/^\>qPn-qN(㚫6٨/ʄ|#psMԍژ|1xN eb=kBN݌,7vpA]2%ruBdo)̏lƿtx3v=_RȣHl2"2莈q ;qi?jl-h[v4G;ьC@_K6zl% (D0%PH3dW@>o_"IAVNZq&htb(Y؜W c$-R;9LMSB .1>mLDE=8%)(%)*w؏}Եli=.sDa$:h\}_/W]:p{}렌y&RW$¼, Thcۣ [D_lSia<ɗ#`/Q+ NKaaUnUI{Y%t+DkXdE= >He V.3iF+3֛5}q =% 1.VT2UYU@Yt.Qx=0!'5!Fٷse %`:hS_`u+D)l)pԹi B2qRvAVPf0a\4% A'~WPa3eTqxֿyS7tFUdE>P)3 J#ѷ9x#;A 3j`I3 %2x XQ?~Aylw02AkrybGHF_^tP!#TH#het7frō"4Ǫطj!T%r&h?g=Zy'!OoϾwm ELP<o/"ŰujK𒱕e6eKP2g=~ՍM ` ? dVb,n&.v& "2tӺx&%oCʌG> e4yrESyLH ߳Q_UPI)S.ՙ(/ZкeCG Ljʴi-72`(NrvdaL x126=Tz#3v},wN$@*ĊVMt,pLxGL\Ӥ5Pu㶒Ex`hZ؏eA۶"2p )y#PC1ƨ:4>8$2(ߜۺ7MS'f j!jcLڑ2F|o- 2.PrX') LK9|PRtIW%^X\,AFT.a=Ȱ eЛӡz:xf} x44aLb@>ʊ(ȳ\&9'.xHgGS䐞|zF愡 y{aJ>Ee^U땮+?w8&)8IFe`LD7g_}[YfZ\";t.ZqXWuZc m]lk\L t"k6."Hv Ոl {\%46u,tCNJ3z;}:(?>?'vtP&~VsWv˾K!wzP&|(<)'sDk5|8їkɰ*mi-(.[4)G!qKp^9(#PH-X`XJxfωC7^'=:V+3ݰ26v]?~~|A{S9 e&maBt(DA>ńnXqXo/h:V8bplP FPTMK)/%1uiC,keGkeɯA1&YN(ӗ"|Ƃ>\h!  ه| A($8qF>Ĉ"(*q۲i%]t{ A[K-TpkHǒRTb€ ( 4 edسXTd%woS?3mh29 H& k\g-3Fg$2-dt3'%0lFμG1 O"b"A㖊e? 29<|W7妄lC9%@9}(Od,EPpF3Pf@*X|EѓZ&5M]n.zNP4ãt -W:\۳/(f@զ~:~-(MAl+v@ҋ%\nZPH .2 "am(|E-} y *Ҥ=%t'B37MUY)GpŐnd7C[^f;}eܶI2woLLǀ 8,g<)MҀE='SʎA4v͙$jjSA*Vj]r ε2&k9Fak KB;&rLP&^s"zȇw&,Pe n`}_\U6+Nvf  44dC\Z F |79 ů e&9^}eiJeգG] h|ܻie3*"$9Ze eV \pwF|oLO$͜*,mBEvsx{qRayR勣ѱZYs*)M=Pd*Q{ܗ>9u&L}b2b sf{4Qo9_wede(/;.c00Vsxk82n\,Hw.aFQK&XLMprNQ 37s@sß+Y*\)jM`,Sqt3m0NHrj. C)Uڲn1: Req51OJTBV&CWp&1 _!*܃J( #Q~Z1ӯ[ւo'?sMCӃ'8Jʎo}sn |lw>J J|SjN~m1gYZ"A]$?2*/O`d2T.V-xːVFľ`-80K˼_,ߥַDW̐to!`?R%dgTTݬ|1E-ZQl8>IOlCGPK힕{n14m!_wBdH3)Żą])(#Fvb|>OGPƠ(@`3h.6)N k Q=+D\`y^DS)C}IʈFYZ9v0DRH A<"Ka)JOp0yy-2iHBEK-$-àH4M$fN8(i1LI@h ={d۹(\#-?>:DU=(o:HyC?+nM۶2tH)mzFǂrD{o1l3rL$ /CqdZ2 n#(#onp-=k۵4tqqq^wE 7'"3o82˓e4@13mbj?\34Tz}qQyDBOHEL^-OofiJ!{ ITKz~|)w̱Cu_}$GǷfjlj]z] %_VT;&N9ih6m kb j(8&;eÍwsX=-1dgZ2pѫ;6y1rvʌ{%i\l1 \LJYb6>G8*9/0[`z7slwq.e#%gãJ $s8Z:;4,@Q*ő/xj2zkB}PlR„Ju۬Ev+ZȭքXYE,@9_F%!Ԛ@fhC@?~msbꚹ\c?lO7"%oİtom^޿LQWz'2JZ %E(i`ٷ &.VyHŚeI//'D6 w_m]](`c>wоh1CÐ CdQ$yΏgGV-YVDk,6V{/W瘺6M<"|^Y4$W=|۞} `[9Wxg(0ލpIįA~nB_TVP5]4d60tDG @D5WO3qL}g*B= █3s2~uԵf197xNܑquk0İ{x[?sypyZn:LpZ wjZ`89Z,#i Z&]VzQK:wk ݊Zqhm܉x2וҫc?x7e&P(l, ĀIeBKCAycx1\'02wCLZ >Kq=C3B\`бZeT21헠 o, )C~s7U(`s0D;?#{ tu&L$yaMaDAY5A-N[rN-rI*Rv(YHCj_F 'IDYzi)4.!m$FF$`xHǥ3&,Eټ3行v]o7'~g~8RåF` ~iw=[I $óBĆJ І'r@#HTI22 a D֜]orJKEYgiZᡌATe2vGeT0nE耀,pr}smS HSw;L8;:(Gr6Ezrt[<{At-ef@)XA#Q/k1)"@4neM ejU- 0PtrʹQ(FBb=ၵv7~|s4 ec-Ɉ*XPFv'o@6xp5C vi>ǰ6e;h 0ў9PI}U-ƧA eT L52X+c1k)hLɔoy8W n$:[pXk)(Qvilp/U6E 2f=8EH4idey%KTNio=Ťm9k!^8 m[mq"GBR,^22Arے{)*4VR \Q&3V ehFݯę{,8,qԐGz񅻠lxqʐ/How?nkkY17Z(K+csPzGuDx-i`R~gXamVÑ.'?~[UmeHk{z19:(S,dRPPc)eϹkh\ 5U67۵ S5O JNn>ztP&JҊ";޹}ԡH֜=VMQX_lP;iBۍr)0]EkJozJ>$ڐv$*i;} 9@x0ʮu񟜦pf,m$c.7, exv?ا2S0]ٙGt1Q:IUcL+"p"?X+IA!$猤*cEЊ7TКƲ @*zy%]&4 9: +:l bRJSb8Z)+^1UaJ4o.BEe (2iE** 9M3 (/d*lK1[L^sд`XXq}jL뺩ku,WC ʘMe(Hಢ.SeD4csɜ8u ܉h]Q!VyLHimg1NH:@hI1)^&=6"V<\L'|-:(C8x B1P1nԡœ6=8]H1L.Y,Nv$% q]FW) f*5v2CjQY`ZJ T+1בO?s88i.TK6XA] vN74y-o>\,0 ؛0O!̳2 :]Q#K cudƥUcm^CҦlJ *>^d G{B@0~/xLf" 6)w_6g92=ꚿx鎧MӒϺ3W6#!&,ʐ'|OuebON*Ve(&%D2gNMp M'mY#|+O<G3~5?. LLvU?rqcPr?Eo8n%Y*,)2" 1m6M!X LKcĈD1o'n董0:`kI TrKe@=4XnA#KbhpQFYzŠh뜩nDoy Ac?f]C/t/M™萐[ Uo8#2ܚ>1k*k.Q?p&28Ăe.ݨ(2KB~+J|6Dެ7w_{^m7 {DQSmם?jaeTRA<54 8ʳu`)7OR.5/a6T*Tz隘Lhg? rl V֜>{~UaIozXʐ`[p)v >ں愢X#݀Ld%B"^x1t<дXnnWp`j' L>'"calf@92y5@]xk2"潱P៨t,QIXs(raZگXGlrzyQdED$pC5M{*wNLV$4rm8.Ǩ"D$ Oberb D'?_Hg H+KIR6-  H_Hr.C|R5Qߚ c<۶ne&X1uXwBNG*QirvSˏYn :I%nUYEwʅػ|!020 CxIo@!mFُdh--5j題4en@xk n:ں_ybum9-B:? `*Xynү]LbBX:"c,yhum\:\a ̗G7ox(@O&}E-lFA bE99>>>=w:_bw۾Zg%$*"?H5jm|N`ǵc(Ùk`Hq.rXBBBL7^z[7 5Û;ŽW_,-"%*DNA| ҂T2M]?ypamanQ\:/n߸ms_R^`gM&nRʒLJGEQ` Ɉ\C 3.cٴMJUWz[5UZ*.ъ΂ ά;gV/rUFtpG;~5L0-XLh؛eGedO2\o7(;d(=量.3q6Z  B32@DeVN dz]?zx~Z ]cAlytr|N$0>(!ʠ䓰U(k4\o9`IɷCGoxRR:|T^ LE+z }cimwBOz#n)ev =^#oV&>zd1izJ!z$gfvz3( EJ(Pu_R]7:XF_d5`,I2P,F¨QyEÆ8T`PjРKBZB})F4ep\ȅx-${  #0=X"o0ѪUI۶۲n)j9l/cMA7@bPL~' !u7DA)ުr+|cVR5V~xr̀OMe~(uJbEN0I|w1H&m &qu*sVq8@m7}s_qY@s>0*PK=bFo\8o} "BN!aeH+_yŗ6u.]DiBb8|9(Xǔ`:d5211Mwg fݮ//<_ES0 Qͨl_j1 MHdQ3F 4ph{nMY*Sc{o§GL8-je(a*(}M΅VTP!.])VɎ|/YbaE)aZ_4|MHک?¨N~@gW>-;Yn.wrěӞ 6ļOB{*ƥ{Q7fCUH."Q)*Q#9%&w2J]`hb#o+*°2%Sgx%3ȥiGBD1TƒÚ'湑 A#;<.$_Z}X yjP0gLɗ& IbQ$T[Eڰ=A[;_N(t_+rs֘e=\Ǐ@LN&>i0G PM:k^>P8i_>K% P qpK[;ࠓl[_by!f(} κW>PpهOȖZ44{$E%fݠ/\AqI@E}bǎ+KXk'3@EwT$ ul ''+}W50Iщ=۽R2VroH}6MGᏼ‹:q/nߟ$6<]Fn6Ɗ_kujf؂b}<%CeW7C(g,P+B2))TAFbN9*׫ŧ^b]כ Lj8&icn*) Sr"_Ap6!MUחr-ܖE:Tiw||vfB#1$e4#*.Z:w{ GgsM7o޼q|\B'4d O1>hʐ,(cAkm034^];ð(ɻ፭J#-1Xl+XP&еe[@īO0f4DļvGRWTz >ktAo f sO7pJmd냁NpRc!-}v46Iڋl }Jo!1T&1 !ޅjuAд6#q3v6&m19\E)رF*Mz`R.B:>dws;SW/# d=dBC;!} >:*xuLyD5^~C uqIگ}c? y@8w3ˁbA'vaB7?w-3̔&P޻7XǍrVAS6ttPFvvyZ3ypd)b_2^l oZ]w?X7&dCC]m2Y&eEpQ ƈQz')1KFfy֗ "-o[,go}e&2Ϩu@ Hs'YOO PW7o޺yzcX,( ޠ&]_)H37Nkd~]5݁vc(cD,IСkT!U2Xla>8ֲx{@f[7WW {BwNB9 ʃR);&wcexH*Wh"bh4K=pc-1a# #`70GF|2-LԘfڠ;P&Fc1Pf@(!ax(1IPGˤb@xO»@;LLO6"{ca7 ava}Xe2s+Z"RV 'qOk1J8 3z2«Pٲ1iÇ_~'tgP-i(q+y>cˇl(3PX-|y|pqv8'I0ܹJ6?SFDCqs } ўCPe,{ƌ|NXP`$ -^E:ñټ@H XeUכ^ժ]CM26*bPtzufQDrH 2~Mݬ<|*7 a`*[S(:"JĮ<- ×NGp}y= C0e[`$G7o<=ia\p恸$0d!/( p zO]7e%Q(:]^(c ajT[CF`dL4Fָf/T2x:&?>9i$ڟB1e&MBԲg" m-mw2 b+hdE? qիdPHRՠރp Fvo9 H$,v3epw8eJOu_)JW^<&\?XGϧɢ14BY2 ]%%CRǛ2o˾QSWvbD ;5:PtoXb % uh&Z QPNb.QW'?]mco! `bm4+]#_<*SL =f(hʌ ϐQKNn֗'7v0!ADCrRNoN覠'ya\:keA2d.؆f c\8r.ƍglPqf!Hxuq!z{"1}208B.@+YbSP&>3F9b7UF5vxyyf2N@ 9S@{5ܶ2>(xיѨ1ϡznW?FL+N E +Bco0oq-Y%8k*zt1`jv!.:1%[E}9B" Rs#z԰}Wx\1$wfR,RHHݻwcn_g =sRVc. 8nja'4U??[˦LuVQ J 5Tɭw|wIBBPI5t*/xP2iʭijaZAA 7*)G7o;:YqV"Q7 @w KP"CbP.=VEQ("Yý$<<:d /X7xx9I_(ݏ?xB5LN3uc*+;ej!Цpι _c: o C=2y(3_o43Goߣ(. eOtC1E|y@"+z/ SJ S6@w```8g|d|> 9j0GykC"LCiG7N/葬g!#} ŭrc(eRl PxX~Yu 8X @NdHҀc(if>ÿ{>9mݝDIƋUY|W74&IYȎwz(Cf&aw]8풐PJWxˌcy 3tJ[>o\cj۪.7[7߽6MU5 I,>2bl߼ԟ\ 4Sy@Tv)oeIx:=&=x7j[U yYARFL/ k L7n?sprf4T4G$in&P1L Hq2 ,"/NOnܸqPd (.F8TRh^>]4Cg󓑔'_|ZV{ {b7LX0|u֠ k0bRef5#\>PfsPo.vK7A;|e[6h5z|F"s#+43H]\ZFRپ2$~*bƇ&aXSmr62)C-җFdVTsWCNƼS &=Mt]W>x+\W>('EiѬ 6( Bla4zsMbJ֐m[lyxxrlT9|-CY)]!i ?)k&E@q+@%\qVCo}8#BL9qIi}ZBBNq9cV<1S@RKYmB po wfTO g%hz즳o[hZL<ׄ2N &^^]P!]ʈ\c(}A2ǷDB;ek~%%P+$ KNM蹘Vr`bFʞ璁H%2)F>42 !A؊$8#@,8h_%%jt}޽_z[#s}btQ2z.Kbpg2:p$kFW%"G?ʤVMƨ2h+ɶɿk>gk+,8&>^J1~(03IW /b(9 LX^ȍl: x̠OLYWUw>\+(-YE@x2>0YJa%yO2S-QsĈ(9,e"U)7rmB(Hﲃy@{G'ޡIJv>nZ4Ck3\xڧ؎Z(2+> V^&1)Jw1ߛ%i]`df8 (Gm֦YtO? iPaȢxmљ3Ehʭ2{y">}3+}7b$zwNgbz2\ZEz*VV]EY6 !tQ̕F l ,ḀgTD2':7::G4(-yJeSPvf)ڝ1.4%EV6{t/|v-ЉnOw cC2ՒP0kI~DCV@p藬bE,W|wo Р*i@M (,`tD *$KjZ2pTE0]lpS!N %il޶_z饗r/0(ɫvxYq;(}!)" ~ΛnŌ5hfsnλ]Aշ[Tb}x|a٬@Y^y@1j'*1SQ:̀)X|P5;wS~Z^3^fI?QA]<Lgk @QP! ]?2B]@#Xx3Ҵ߂~fRSs8 Y!IW'iMB(JSx\(9I J޽ʈ L}N*Ӆw,J4`[w래솕n7$yUh8#Xv{vIxo R@J4~;v*L`_cx_Fu}5Blܻ} c?'㻟ozD8["ַL8j(lDa940iŠ+%TGgeoG3] ehlgcx"[ki~źeH Dea6  ٞ<͹a0Jzqpt[/_)5jGibP&oF2!lm+{zIFƩPZqV)iXj'6Z"SHwb5StƔܓ~r\c) ͽl6u`e΋[(@볬a?<}xƍ_&ˆ!g/Mk*ARwTBsPzC/r?<+鹅kyo_ ?gF*PFv<ɖQdHƘ oxD[B.!JbԩLEI:fQ+$ ٞoxڶ6YPo$4EI0ͪ2aE$ߵm=?۝@ ꏃM}TX]:~mf]$¶JV`7Zg5f;I {1G}!,Tד3Vxǻ>RU ! ?lNfp2ESD{rQ;6ew )1=f( /U &L:?\88AMOWiҲ9 VbzR]eš<nH*hd PƧxy~We'9 jxl* &p 42FKx qrm #!IV)0:%jG9I29Se2`q뷮 ]]ˆsP4f 35p*nvm@$3$wȃ ]4jup|e}t<8fQQ*YO0LLޙӕ~y:`fY\N;Ja\ aĮ0̶U@g $Чi׃xf'MCvCՄ=3lf\vuG-xyao~ܙmt<1%h'{)<3e`%7nʐi(?W2e1|ϭN]@7MR4ᆹgץM=l4f#։gtPf~*+*@Lm4n޾UB`n ш5,F^;Vy5_ZQ T K@K냿k/^IЀc+෥ WBev{_n °Wԩ:glmrLPƆ!72hĄ:1vh`H!3QI,0Dӓt-@|'PF S52MAĭ/|A~$sfwö-oiԒ-V gb4G : 31(EPc@2D ^<ipgvtp||p\XRO˖N. CB :F4ݡyAM`لh5x=h 祯L _wS.:~ #[2ff22b`^C!o(3R{$a:+e{:rVC%(9j Ѕʠ/td{( t)Txt|EIIlwvF0NTop]Ҕ7nx绍!1 Nf88lK:F> 5ɻ $ケ2)8!y)/!: xU\-}aSsr}J-!o=E9<"FT)JA坳>7.Qܺ 6<4Pf@^F8̿ՙ7Pl+"tCP&o^i|}4}wf+u_ϣn|? ΧRqHQ,0=Js!B>;td0LpP^y(#z PԽ6 +Ǘ׫æƀEx1(CgDny:&1Ap֐ z ug?vP]fPZ3 ﵍n'N`]]x#sp)y;ZoD/T兿lPӄĕdz+~^#!# }8i c/j a̲ Xd+/ʯީ-Ds%ƏFl Cƹ>FW 2bZ[2C 2h-ʀZY(nE4ZbB]߷^{<8mVoZp&%]?S86ANȂ0bGJYouJF3춪8Ӷ Bf0 fy,z\/%k-J2go>":2|XjĈ;ӘE *:] )j>:d ,: SY㾥c ;O! L$ٴcue ^#,F _ qv)^>zlΉU ˜%03V8j)j-.Fг9`>a+clfR4gl}'M ^LɅLkqaU o(IP&ʖB[3l>ZxΫ7q95gZ*TX,/sPfY5MvI}Ţ`0Ů&lL[\A>L>qU5?t@B@0RV H練 _K14č!N9yxͻnw'p)P#PC-n) ֤B(͉@kPng̰D}Ib(SWM (sxyu6Psm -ޓ)>gI?٦bb!- 1X+o3?`<ҟ&+aJk*FЍ}9@2F r3:ځ,D3VG0 #K;Q;P&Y(pP&ir c eDu2"-FI(s1PRd!9E=7 5T3,:]30%iteFB sn1oܾwK/nvf[Vx%_W7Br4)(WH+09\|C9`lgzy7d֒m &4Aى;U]yzL↡oq:E3N\z)L-Bej4v {C9LERDb wv{~z;7_}ٞm뀧tȕ2S # 5ƅ RAӃ3>2vM5ul Nb2A\./ʘ{EI*l0MPfj8qLW+3e7!a,fXw\:\y4Kpzn"(GnZ%T%(*VdkK++G`tMp/£Ѡ ?y(Cnތ֌[= b6QBF.u,BBYJ"(3TfRʰ!u7 L&zʗk3LSk`ç(c31[r_$fr Iݧ " Ի޺1P拾~Y_ qH= ' B@Y3&Y-ѳ}٘p*Z ؝?xpś/=89}mw|~4 vʐ + rHԿ1s6]~U !)PY)[.rW.\+]Twb[FRx *%{?+Wq9J0#z<[ pa{lU"kΡLpYy(#w`*di N {73aelD'9G#|^b keQDpv3҃ 'w(>=K'Drf DR$eVJ%#2f&%@DD#l>| 1dB2g*jw$aAg?ļeߥfqc"9CuzF9TXqܹ& K+"織IBLḬ#0c)_&^ =f^ʃ j9đě™g[$g(at Ѷow̘:+a8#Y- R!Z9B>4d4yM0PfY&36ŏuAp]+,YfhyneJgk̮xy\Cq"q(hz?{#a1yvmGP)>3C]Lbҳg*?:\E/N KILZNTBTC+fRT0q 4) it̒IG7mUCX I!LMj12ֲif1 楗nݒ`@$}I23!!:sϼQMTLJJg*GoFz ?pwo4&Au݉?=3= Id Z;e|MR( ':#O耩@% ( eJEgrYPW*eYrupZ5EjAŰih.  _dSN2Ԯ$ ^1碙`Wыx!qIbOwKli͇᤹ʸ~@Ol&xw]P88; U%G'4d}V*cnoD͜Yu>Cʸ^b:ǃg~c?w~7Ybo;dY  <@܉ ė}Wgۗ Y#;XJ95sxsx12׊72]HB9 hܫĸE+}4luv^qe=hR\*/0d׬-1BX7Z յ Q$&viGYY? p X{hI#K%Snb MuR2󅸟d|֩)xQ]][iAxe5єP ZLʜq[$a4&f"(BPixD%n22s2)RmR qQQ$Ӏ䔓6Ӥ25"D\IPг K-t744}BR-zPqqRN$^,™󈱻"vPȔsAJ??/z> t I;ҚGv:P&}.IkG`d.,~w?ߵsMـDe̸%seW}>l@N/4L 2bSP= ﰂ%FC]xV).COx+Ndn;Ւ ɏO-fP[nšJw5%!l0KP6\LW,׫jрD2US'T链?IҐB)r.3n^6`gLpMAޫkey (çPJxIITU1}<~JaDgCQ4!ZDdII@ 9%{-Z!Fp8Ueq{/\v=gJ^R#@FǴؒC]G(D CPv5ȟ%2Uax $ ;U\?(žA)d(JeȣeNQ䖮Cǁ*HDFP *P@Ң(AgŖCNSS/C4nܹٮ=Ah7)(r@(&c'{ Kw-h!E(S7}sX/exUL@je89Z"YSj٩ Q2o.5VԥT Oz?tW_~[ևOuP`;Gm)2::uvSNm6xU4 `FNwРO#5:[&!I@L9YsÉgq>A9(#EQqb>^=~*㛸f5\50)Z-=[zqSw9*d䭊XexN39T#OB:bghc:,n9g1 i|Q887QE(~5˓'2{@txsAx}!6c{mH 6eتK߷v@΍RVFq‘dNEPuȤP ,[ fk mGb:I%=Vv;uݻwO7g{h[׋G=4pJb9.TV8c$ RKX.VD2(DTPWeEpSgVhJ@pʥ!lJ:WЈ[b'prueGޫm{ݵteIuhmb̹};R:gW'2Qӄ E>ICf̻pERߔѵ'dx0B@"yU`/(ӛh'5$KaA\6*wL_G'S{=3z5RaZy>sі6D~Fku%`&%1.cNKK渌jE_4:^.H^i$ K0rډW/ӏwEِKR[«5̥5_?n/X#mMr2`ȣ iX"_MNv}e^yOwCn29 f"(ӣsdʐlf(#A*.E7Y.J@2CuZSNNQGfG`ԔKWjQ Eٔ~Ԫ@=k\(t:ʀT׷]PΘP؜r8H el7IMǧ{Q/&*iq7#s-NLͿf 1K'X!Wɣ߻ܤ]0"BJʈ= P,aGso 1,D^BVk{[w7 Q`]-y(MB(SteP#k gdP !n}y2it P'v+T8Bҝ%s#0@\N[rqdEqLSTaƕa_YUY,^4e]Z Vcy'S;̸LAq\4FKΌB)"[jq>|mŪj +E=eh_ʀ̮^wP0.G !jy5P&D32XQ:јy,(jqen財D4TJZTc,I8!&h哥f~Ƶ[-% ?8]p`Z+]Vj*EpG릌'CbiȜ"Jd]`x!pT?;41]rټӾOպ83vpSVdL,VN vሎ2[QW&2pQh1Ә9a m5PfLzɮ;ٮtpBq]&4-$9Q-0NPLl2"F8@iz] 0)k@ TZL1MOd®љhhۆ{֖S U}Hr`83AXp*j bTfz}MB9~;°SrAmwjhġ`Ќ2nR2njS c9ieRž> hʈF[@R!Yws1+# I??sH {Ɯ7e"/oǔXOwd7.O8]{s/\53ef$2Z($/(Ҟ+&2(E-`FXnA$v]?@8ÇѹA78n^9&s"i v h@ӻ' a#PDCcPLX.UX`iIMJJk.8FyfqO4c(z\<2LِQ8X0eJ'qD42;p9KǗu"BMF<pm`q#y|y-m hL4"bbhf8hw3#(Mv8?.quK:3۾r8Fe?s)(#=Y9|-BXV^I֥=}40 `kc-Dض_|mbh53zhr_i^AROv[%pA%= 683+n^wlP#d h |Wny[ů{|!U~*Mʢ/XeEdPgVHyqc̨8I0.EPM*Yؖ#OHի4(l f<}ͧn08CN!7+)b+t kAΦy4mg%H`֨n#lJw<~8F,-bbv03Kӟ:9E#&G!c Z\[J=Z$%w]AQ;+$!)Zw0 .SށЉd㉱5 ή#E`c8]MDj% ̚9]|G5b"n%R d$9cPJ%<2h}CtѦ)3̼dPF$Cke܌@]m]{fyg>ʃ w@ΏDfeXod3y aPHP!2v 7%} eXi ƊF9|7{i14@TF[*(4`BPF12pcj~iqꜚE.rxH ,A3PftM{!ԱBFCe8Nzw$C̰e,eX55ʀ/1vc̟s\.4T:zAl x iPRÃ˫a!!\:|ydNJRXa cjK5We`f j 8FCڒ?=U[֎#Z(3Mfw<;(#f #k_b~2[o(K9%f2bb5S<6pl籭<ٻTUǴ0[w}w n:=;r 5;ޛ|:L(@^rZ)aЇ~>rl8Hl題^S %5纨j5 VZ-zFvR6Z(!'@AM:x&'p("pw5DPFxqFz T|wrY6Yׂ+a 8F-=lEsZ5ŵD{)x5:$`0TQբY4jTYuNKdb+ģnt##K4lpP*=yW.MKv]/AbZECRhݡrL eI6B.Cg0'2eWB_>v R8PF •2ނKG2>9ߜ&2o H6дۈxm ZEаx{:!_]%-CPYV*]?3w"ɮl y(# n![w~O ȱ$jr8g ꑔMrىO}W/ˏvR!X(DQ. 2P&m킋@_Qd*TFUALFUu-A3R-e@a;;;yd|wm bB(#2D/V&KF ;x4*\1sբZ,YrQVӛd4D3DɓbF+;wA3l&;300](ѢY4s:6PfQ-4#0;`&2|Wx A(ʿ7ɶގLN \Vɳ;)_|P#)05Y(3?XJ':gEnE'(#Ɓ2QC ˌ! ݍ~ho޼yڵ3 Dt$G yFټ)R^͖LY eh/  w?_WupӪH2`"cI <(W9|ϻ>w@D(WQ6_0y <hV8i u 9#LR(S`H˄}E^HXQ\ Zf0Lm6lN6nӵ0I6YM]@df)FVaOe ҁyzAx֋r}T/WŪ ,XϮJGhF?2i'\-e"#[Aj7 OO ShxaqII\X͔@hXoPNSpWӵ^و;w‰JiD2 LMM0VhQ^C$4su;C&& z|˗C?TNO 6VsPϧ79buDNf~72I[F-͆)g?w_gJOm[Z_TU}f72ٳ(OLєf_R^~}`5Ѻ4m8EwZ(w}տ!cU.BU%vʀ@9(#D@aֈ]mbb(%Je !jvDrF= U:ҵ,J̬GsYÇv`h2l~ng''ev٠pJҝ B@=N;ĖC-# p n (d/7r`E]2c8fd89/2fQ:"Dq]2f!cy b2X s<2qլ(˚BwY(c;tYuJ>.%o?mVAC J`:eh-_S(j?z7N1y4<"4CLܺ={)C9exdXs֮7jbnہ,]SdcMC@U'\\\kNY/,س|] 'l.ΩAtyGJY.l\p]| :?2-j3 Pk7meəW!~IJ߁Br4n*!FVC\@(sAjX5ւOowM>m9ɪ;@WuO`iy( Py-kDP>lZ@eOAߪJ7t|s~٘~mv;`d 균6#"#.ƌA\b"8uB(#X P.h=^s]&rUbɓO1D ?H&5(PIG0\K?wK)QŘꠠa5ڠ¶Nv 4O-[ YN%e5J4KzQTr}xxt\- iTț33GC)"wzO#1W LtsO(G]PXw-+D^VGKFEfJ 9\)rM*khpҴ7s Pl _E&F_e"!3'9BtsF>dWX,5QCEHUN|K{cBWDk`Pf캧eE>TaJiM\hA3iJ|`P]YȲ|oÿVb'nJui, JPho/3l)WTGq啭_"[Xا qLL1u |DdJioH9k4ezEGNDb9BHp|<(Tez R6f@N@u9gB [^l.eUCK#2j }Ec2z (G %@XΰZ{,1'(<:ݔ\翫+܌4ABTw36::+3p:h 7zbQ`s e  eAMUBP"%51uhoHR2$j±|SR( 㱆TOB7ZE)Srlm :WUa *Th|#<.x~AV:(3c?c'x&!& >goү"cX%9[?4L!*!I$IL*VGY_ѴpEDpPW'jD]}F!:]2H vOP \,u?;h=FG~βyqδk؞ʰ>ʘ6@a<`b"(Y֍A%<В sb7tvsf@n20Ckɀ Aǀ#͔֓, <Ҭʔt*5"2 eux*RgoN*㯃LS_gobRh^mTjVfkt7r``kVKCaO-؝$ԤvPhcg5Rfޙ'\@lL4l{(3Nj~!D^#,x}̫APƧ@DL= D16M]=8}d@̝{wS .͂{\, `f5yjUl\ҏ!e@P~kwF1ER$D=81{ΡX6~>;dqFmIrf02QR3'ɥsP ~ T@/IuexɊ1,BVb w+:у6]8cBZeCi:JidSʍ034*2NշaV}$1M49y;Fd9ܨ E\gh&e9U  }x[],rlzy\e aArnRޛyHBq^q_Sܓu@2pT5D-:PF, ͝i]Zzvl CaPHT59D}ΡLJe(CL3}}vD>B&bH፲~W_4WH?b\ĝAdT;?s}`ey,%kH-2qLC$ʏ e(~e̍]fA B1 [,|{ LB(̠ @0mvfۂ`]h>e@W[4b\@H:95,/@zUieVg ]$B(y3E#KR4=Jͳfa>(0vs<_SN"9"DO1IͯEX-QSVu +#OL4S%zt!XA dJ16΀R3OSR'h&2S햤y8QH>xGO93h>D-Ji7{@ֹSvP&'2[Dr#N3gfZ%_M9ү DoSϦ{)*ɥ2Ob>`hFkňԸ ̢5I0DN,0w^z)c22X%7|͐5󕋚LЧeDH_ȇȑ!L $.~7?? yu};XQ-KAb + 1a%Q]oydөywd % :0e,3cH$hG1!&!BZ. e0'hCv=ǘ eO9.ăvؾ7 Pt9;KP<4;Q$\_;B$t _׀zx++ 0iC-߱ӄ8AyyBQ7 cCqIa^+u.(Q(<02$c~a8]zAء[OcT{'С I:[jHb_\,"zw RO]xTEBH{G3i5=2_PīLPFhӠ"=f)*\}۷o+T-+0*!45`rHٓ&t~\(3Yh|"? ݘW?w74 )j%F(CT%`CE||oqx!QYnex=mL{_ǣvnIN)a-F`*rs8J:c86dNuo Y(#G홅2]  ` C1f?!D.K)J Zp>8: i ,KDv]ar+Qb&3>`ǰ"7u 9~g2xR Om[8cޥDj$Y(vũhPF̮y _3P *8\|;?* pĐJ҆BDx^՟׼O;%E[ʤhf 6"ʤ/ h\10%:f%_t}CTJKeχH#'HUq` 3m*Ȯ-b Ӯ(N+`_жBX3:A @R' j pAl2Jdv2vC#9L QKF3i?iPv^q!2x$(ƅ28F$+ tۃ:>6֛7o޸b3CbעH;6VJqVLb~&1 _^~;#n ZO-sz=X5e(d_hTN_ GϜvڼm /gl`¸E:y7 G4@ i˖"O!U_4dHMjݞl]3| ^P̰ElP$iʞF@ĭ ѺY,*B}X~"(K ()ayJz"@לnakpQ2c{gdYc]ꭗLZ6Rx fpzR<{NPF{}"(ni'D]e23q9'T̤)',9%WO:*0[ūo>ې٤_x@!t0<7 P&ISĜjhT5o߾qf"+7X h1@*BJ83d);_!Kؿ+O+r+vd.t?wR#={v")0ʷl.TlWhwwrjw=nX< Kf:tHp' Ġ8(C;M5TCKPF2,H rѹ*b& *h9 Qð4=mI(u`Z2e y<|y" @z}|bY{l-y;0 el+Sf6`3?i>GàC߳ BZW eJ\ɘߛ5EPFxIC+V ձ' RJcTSJ#(CS2 WSgQYj.yݶ_?U٘v@)X A/rf'zٯ giY/ 2 V*c 8lNjp+'\QċfFs{b qiecYR%raG~Gm PiߏGUVAyg~˷o"^Y4 ʌUBDLl.s&LcGnm#A)E̗=1IbT?w9wBcM۞S3 ;N Z;Mm 8k]1#T/3) qɕf1gcN*3lr8Hr{4`ʈ|B|*2QimR?e*eU rQ %4) ˑ< (Y{SP&9̯?ni/|o1>?NJ^",+pznݺv9u<=|6LO#*<֤\6~ gⶔ"d#RLJ 'I"2H^" ~//- (tJ2c.FC֗ f 2\zG~_,`ɠP5Qdp(M XR$Ӗ8>w'/ OSن`DL@CYumov=cE>PZϭgkDE8[96(-$4֯ISި,+AL=O Zp(ʩȥ4Bڌ%w(EHIHj4`T2ngLR f^MXD!ˌ?g̞,;ԇOδSUTQ=hMzJkef?IO OPʀwT2E_>swܱE=*dQi)b1ASnն[TH`D5 :fAb 0Y*'t y0GtIyLD7.._g(saQdE%.23y̅͡5l`4V㵽@w}><1WHkM| lW/tS\ pQdfϔ-ded"4l 2Mݏ<#Ѯk&sǾD R ! Pח;;>6}/X,‚7p2燘%+BÑ(X#K9ڕ1 E'UivRo|;]u~83({ʄ~E$z\38-N6(1 T X3oNOhEPF\c634EAOL݉$!QLe&(QBcQ(Sr34j cIo+ 7-ƲN f_QVèҵm2Z_ RlC.eH ykPF3@ZeqOuKBeۯuk~!͚9ߝ 7oDluNg)OZJb]mGDN; eeHJV$Q*q(`qmw'}A(v] )H:o{:JBF\5& '24klT<=$1˾: c([T-\T ~,#{z9PFSJeY -R4 ʌ͙8`C9o>fiN}e"FgmS)n -Йsc}LZfɦ)I0 ]i'W1ַ,&boV$jÈdDrl=;=v;S 4Vo^; TV%f?/>RQʠ/b#f e Ȭ7}+W}Nl.kd7рq\4 @Y}wҡN2Ob1! 9gXI_ nw xքL_>ـe%kFO0EW'4J eL֧`.2r"XbeO(%픲=-ۮ٧ 3%wčybҲz) Km.lf1LXPo!8I!= 9IgCM#HڔLTLǧʈJqM'q?^"*/m޸qڵA &.YkS[b_WؗjQ!W`qEXX=]1h?0 bi`#cۏLȮ&Ӷ_J#۪۝om~@gIIѻ @,Q헆C3eYS8ꂠ{(3e-t-Ձe~3Ǽ!"ќKwb8;|uT3(S*)FgWɄehQ*]A,AYe7%A$Sd<|w2lgfSW('mjbPI ]xM/ʈܢ˶52owK̜'" 7I/;' f/twq=|g޽[ThUH hA֑ȍ5JY✹G)Ϊh^ \0_ۙ ju>WV˟TLD\( )qcA :e[r|Շlt]; PmRd3"< CMѮ{x`i>{Y !yq(Sjp7B@TkGΝ7Џ>%;@9j:"H`9=`Lc }W|f68ZgQe PCguF e7q:?i\>)'O48\3݅ P X(sgqݸf^LFݖI  GO" 2>KքP0fQ+ӕŞ\TBm(geר0>efo; w) '[ 2 P6'sի?kt'aE,Gvb/H"ڵf|&sLB"MO $bĚʤX"Q@(3K1 &28̀Mv ePWs(+eEl+4ɶP&ʠP.U)@KɚS&9"WRhkss[]4MܨB죊A`$+nN%2&is[ LAZ}"Y /Yɶ]-'CIsKPZʾeʗ|Tɷ~AꊥTzPQ2BCXl/]vʕ Ĥb1(#R(H^2u+w9K" : eDv+yxnL52Bx+!tf///vs8ݺIMi"D2PHWTmG5'{pE qP=#1 #k*D)~ `{Yi&՜pY0s.Abpcl`L4Hi8S`@h.^v!jRxT[͐o# }$[oMRX5G?,xJ%ߕH.ܿ*_Kf X2VT|pXrfMPf0ӤB .zG,8\Hį>dt.R_2/?@T]!]BXQAFvB޴ܲ '>l>CYKFk؎+#NbC%6mYJ-^|Vv@$0/@ 9MRmOwo|+(@UDG %3zڣk_͗^>%ؽ")d}+;(Cg;j)ܜAx oġL9;%=PƧؖL*2DA0?סL,; eP* fwy`ɣD*#G@侓!h(A fȀ2!8+3U)`:Y2zB޽+C9.TS`S;<n4w'MRu 8aRl@Xo,e(6NJue&Z0+seyy哓s4Jbg$OKeگ()] e!?`\Y'*q#bPlp1Gz{LӬT;)8گD2o,|_UMr(CuQ@X (fQe<ͺ~jybm3L6XH8A}l)G-=gk~^PU]0xA%8L޶Pb0VQ@ d3$3ًd ޱ+ Sݖ˪\S&({?wx}/T20 e$Z6uflO#i&$X5P_2JX. `5K)&u ^imYiջʬp8 |qwWSHa~WBTH_`yhKg#1HIwRƻl^$lVzqʇ2(Kʈs? ]P»-ןfHE#ghew')񹧃 o$TT2yMZ!3 Q .sfX$meS^Dq(4\,p2JxjFa&)i=NӰM0L3$RB>8դ8 e^ !LbV5.ϙd*2)v GqT+$ |E0؉~%KK"< ʔz!K9/$[|zC; _ PhkΈn6 ~ף9ljZql_DГ ,;9n5X}ZVjr~wedtn.AF2u~B̹2ʸOgf0S۴<˗oܸARk v!'C\#Hw*깼5UȥXL >wYy}UK_2 x䤈 FxO~clYUBB&v +ٚfm^2o?,S_sp쫺eB rc |\7LNP%%+=m RN3S7kZ,{K@0&)f)t2xfS! HI׌m8$Vt0c 4Ii&EQΙwQx1\6K9 _W\Z%fĠY:/_ʹފń/Cl"u$/4vON.W8i~?cW^ Hm^xL[c%RjG(H2X\u|mY2N @4Sša%Nq8Z50 ׮]{rW0).eXd1s?q|XP&T ^$jpBi17ee滊c0cy,6{Oxg D pD72LȄ2A[hƛ.eb.F۵Aq;L4oӚP`029RʜLø^YQ&GKN x߀7e:+#vLsʒgm^-@( e c'C|_5֞U#k;'y. ~HO2lX43`v/Tu[jWGrp>@!2m _~YFw.X|D7,bQ/f_d4Sw?mKyæݼygq ʼDa! `Ņq Nd7 5W\CJ9^ǺRZ= àSWî>|ߺyseܵj!hlz髿K[OPbυ2/㝙W̚2PF& @e9 #<D OAa>qP1O)'$P ЖxQ%P@#IvLYPẐ\ֽ t}>fMeAv 6%d M e|'l2gS n5ezfM[p'ZNk*W)eVm)goKעt-f^x!=2E 8dYxD3`CEH 0a;A;K Jϧyum= "L8mPCL6d+eP&sχ"BUe{;l@IvLomw29%_ jp2ZN5-3gz~j#t.SJ<p;5O/OY`I  $!,tN1P'ђ1 ^2[d$1$bwʃV /52`IKԧe~ 䴳k LtC265]ۣʬ֜}2r?[PBL.nɬҦΞx?D 썱9z ĽM eP>eeC r*!~^[$U2>43%ȧ]NX{PԄze[;??޵G8cۙg`]@ eQͥ ^~}ܢQ"P3`gBи4aNt.MסH8@l9#ʠ32RMʌ8fo:/1:He3ӹB~+OЈLd3okP{I8]!J9L({e>ʞ~UGK/,X1_L[ d>C-sfC+%n6+ $ZXAhJ^2\H]6R۳cr>2ʔ &>LVD$J ?b5UTeZ-ZA J1Wr>|W_vW;m^y< Z_a ,V$K "Sji#T([c]wRs-Y΁)x`D'cxHi?o-G)I&Lll\hFȣnK}.TH!xH]9#- ŏ?54{ObKM=:_JKW$-j`h\'z5'F0ƞ"a FL9ސR6]\55=vQqD(xRp5%ώ]UBZE,.F_dKe3.KT6VR 6#cr?4Y:E5QEL(mZ '['NT' gT B(9Ps SZsBfkzS/bSu Z9]2d_;b:wXF륲F._ IUXP_:2yoAP+s/6KvvI]}ޝ 'mUFFsnR2x+29-cC!˽Q!yPZ?esV)0jJP&,fti?0@>}tmHjȸǢŌtM?_z'}}iZ،Fftj3(#OP&\Od$B+|NOMV#'~VXe9cM%E%A"9q%PFom 8|B9z1&㡌fu%jZ(]BDIՈN!*̄#84Jq(6C*2CŰE2_2+~e{7q\~bIgP&wשA9qsIb0d 4f3&sS{PGrKťBG+RyPTN' tP&kLy e;I+ ɈJ?x 5U=q4"APRa%a"8 jGo+y;}zIƌzF_aPICp4\-e>ҥ S͠ 25RU’K2YJKP5ԪВ3MK-;h!q=@O4 H2nqfdT))WeOB}g&@dֹ6=y%4% Ey!qn-eaIb0yOc GuA6#pI< T b8xGBKN0\-=n]ud|T(E1wezlG( kG8{2^̚6F4)`&\K)=!pëCEsa7+aD%)]AwQіuE,]A3nW~dwGQk}oD"Yӂ232–:Ynw")%=Wva2*Z6c% mwەo2/Nz7p]l_X޹'J;ݼakܨ&jm iu}7+qRmھƅ-x0"Ux:cM2%2X?viD'=Bp/a~>@CQ5(5A bɔ%q"iHE:2 _vu6Dp 2Td8MMZǨK]GЗo1XV |_\/Lmˑjd8idee(#% @j%Cײ'~@\\@+LVAJe fYd%2nNRk1eAS_ŵ^<elPư C_jl8{GvufѠу*CH!] Cre D`YB@έc,vl1oqɟۣa(n~۷;KLS'2`K˿پـ9/S(#, 0VyyQ4[:ǝv-|(^vnGT5D)<&ɘJ_a %de>#(C2weF` H>M-1$eIPc4ip،cr$:CF7}'uFC83g-KQijP&C'f(XqNP7[Ov ^2tYP/¡=4xF.H Pk>CAc6.,%4s)WL`:5ʚ\GGVe2HWgD9#i ʨ9('*K)jL>w>ׯ˶q}{r!#pSB2mefzZ2vʾн~N&s4{m ߈F(Sew3 zX6Q=ZQwn^O3aA&ƨ"$Kώ  9ͳCF񌉈&C Lq`PG ),r 1ei|2g eʟtMh[呼J'6 פH xFlƙa.S(AC㦆PqRՠӴ?€3ґjU%ײEew2.U>1|P)n6GUcGvؗ{| )Y2Nݵ2lnܾ|i zg2lɞGyP)S27W肧a@՞wWBzw-A5T<|Ag ((CkSg}ן3%RI^ul>5[I551AP 5F/JK )gw2-!ʗ `mZ,D|*1J6aS20'f=LBqX  u2"C$U1>" zS&2`бWeνθn_83/@rxʞ:ƟZ"Zۄ1&@]TY&IiI,S*HiDKo~M+D v1j $d|C sf ({V!u;ŬVӤטT\;Ԇagl&91 4|G]5 `n r܅tU!2JK%}-[ad/1`J:5.kR-~\Oqb7C}XG1\HI$d^n5øddj"V^_mip٣{Ra2jJPf ].3CLi׸ɨ@寔|єv`2hDy XxZ #C1p'2MsUI32|Wpz]ʰokV V̆A*Y\2bDhw- Oz]2Jv" z6ڊtL(9-1L (j޵I3CoAZ2v,8d: hXNn@k̠&pԌ V(g$8rB2xe8 |9sjzi)\*!FЀUA rm@m']-8=WJCt4?exL4ECԙFF_8:`ϩR,vAQtK6V@x$F/JjAiSN >{$֏40ڲ0mV=W\yu,ak=kwL\bGE DƤ|7SGb=2>E A}BSI~7fʴ]{>cuΩ#d]"r2BFlfQy_vf׎覃B`1 u}dY)/!B]{`DC&Ƹ=)j&JP3: Lφg˘f,bTAG~e95mei%qVyk+Z-$}lP01 Ro_ 9В'wz!f%i$^l9S:dD,]2mK|ʹnIِD ؖ#8 Lf$4@@@K(,tH[z粙ʯk'?KzF#S[-W)_审]?_waĂ5HI$yO{PңyWx#Ɔab{t߃*=Y$NxJc2(StBn/TY**ئ"PSs @(sMбj EiBJґrixگ[~'nC 9!1 wL+;/O<9QEG'dp")>[p B[CRbq"{@)rȅ AHɄNoƈepMjdrzA\L+UK Fb(E2fh& ' L ظџɈ2e8Lhq-0$3IeTn8v"e@ [H}ӹPF2 ɣ4[9dLvZJ(P B h:4fBk~3[-ʠR"#ˑ_(Y ;n2 W 2kexu?U\WI5-HʪShxؾNP&2u o#D,/~4Uckٷ7KK T&J,fZ[ITR3k!Г˜z zk]`LA (xEԊ<ѣ@Wyhr۾cw=. cNY2%_كG.a< :*mn6JI%jfwG2N#t\D-*ςa:8LzГychnIԊgαP$Fqj G.pKe,0Lƽ&dN*rDL>tTm Ϙ@4_}v:Y2r1)["Z~!NOC) O1sʬ[(-b'cID4&#;f̪YLڄ @8CZ/r>T1 JJeK9rJɂ̀fR$-e;(*yO _oqc)wNo_|0#vhm 6ҁ1VTqn QXH &'Uw\m͚ Q$~T<C$US2EBSu/O.0EȪ9"(3Gg|~4-ԧ`DL @[hBoq(S&ё_RHبβNo9[f6Qʋ5 FmtOφ48*OT#3(R _DN=h1?(R!tj+.uXBsL2A<.g$C8ͬ/`i8rpk PFW 0zrEC _ (ePX⣫GLH-Pp?v# HHq.Rg0x,0HSl5I`S֩j[yBGvvyt?z@Cwd*_:J;dj[ 蘍Y(V*|UYJ*H 2&V|_sr\g.̖塕΁toȷovH붤)0[yhF_ ,Z]%̌k]Yl@ o NTc68ڪKG[˅7 h@El%nkЧ#9/SŒ!}'Mtk&g@x tQ "EIx D9rQ3eδ2y"A3՞p.x&TϢu &](edJɀZrnF(qP"C0T~(ExϥH$5?R(/j)yp&PeB$&Gؿ08PA.CPojQرu3& D,E<՚x.g,o vz'e?t^eکHPN2XVH|V8j5"9ܙ un2`1O˕~SQ8? xf`(>[i$~Qb`g^[nIfY2$Vpr(,MỤ!2 V̹kҺ;rJf B`Ǧ˿O'2EMQl`!beӡ Euۋm~/{ ӣw.dAD|"K(_p*LQPfoK7h౶k4pܸQ"$`{ڗTK0 J1 bw`U&)pPcVGd#@!` ``  !"pʃH3t2@N@BzBIF疖pDRBgN!`Bٌl1dㄲЙ~'2fȐ6X?aFN^8Y2UrˉL"@bt]i?MFR%'ZgeRWD eOxf|ef7V Ll_`8d:$l f 83V. 'J a.]IuO eN8r.eʼneD1U(w8IR02)B6(e.Th , YI :C75`t7EZKbm V^XcWz4g)?eDABVjEfUWc<(s`P&PpQּCE\ O3~n(qcDo4Ȱ=Qq)'VhBgl%E]tC?BˁeC:# Pt ,Tc(e<3B2iרNuuqm8Fu dmIcoq(?.1ڳl~_(\7t[ ~8`-50La]78=UC |w6]Bv',@][8;(&e&vdn cD24QA-2Ձ]0S4GK[B~T#AtldER,5N cSPr8ϗe% Pf^2_p6IiBilB&EFyEkA>vP=g]ljsl2 /ٶǭP&xS߅ܭTƭq?y(Ru2 Q.QL T<8@ϛY#㖺|̺ ~ɝ?y;|r4qYʰ>+*VqX)UZUUmRZ*sPP<àLj-E )<~re"Fْ$L'ʀiQ] dbۏ/SVpgwv2~T2|J%,z zSr]סH׻.:3&!$T߉PF 㡌}ar :%eip 8qt&F gcE\,lNt!+'2(&[`o5/Jj)fьeIRe 'qCҧ1u}T{ ed7%eg8cdy-*| 1"eO :Uo2<ʰ; 'dˎ'_zˏv{z̆m®5DPW^8-v*_}=;v$IZIepi^ZNǴ4}n!ӶN Z'mr}R[CIbIf}$%Qs<B"pڻ4cAkYePٵ$ px,9i?<}b̰=q( |"~a ͜elK#f7x 'f#q"f.PE3%1) qYcA!R$ LSQء(ry3@ 9䢢]4ɜ,@f)0"O&o4v[(: ն1N`3`T >dh#%|CIk)k\LwjPOlJ؟2P)$GCZ3 {t<n2p\ ;jPdPF$\qLZZԶrt)ӓ+W6 JLf:YZ% sC 4/B*PJ,j7 n ֣Kepf54zQyZ{u/oyx60Q6 IP(݀F—6xa6LVy@c(@p2ځ(DӸKG ܞ] A!  WD->ݙ yˬwtr;ۍ';q6#>3efgm]`B&ˢFܚMnLΉOXݒGub`l2ލ} S8&-+ŧe[#qĢK( dmʔ+z.e P *?T8|)QB݄G4#2uFiiZ#!Wդ22EcЍ`'DnLlv"@J VR,8ae4EjA]»,N­ ntD je8X6Փg<4m/*O?7ol:Ǵ,]BT*Ѳ*iM eVYGcrCˆTa5(~ ,]-{:$J٨ܺuzcWW"MD^/Z=f|W|}/S%lhhz;C=G32̡RJ]skMsi/ma[QHKg^|5یr$|m3j2 тBM OQYB(pnnͧ{{ z3{Pű8TS3T\M2] Np!(Civ#4"Y1 !2 0acd3Lv(LZMbln Eo񎉣LeuaE$^#); eµ+uf [LsdlhR(:eH[u5 5<3s>BDCZ,uKP&(~kB[):s-sŊ1W ]n(}: %,XRh ??@$3jbk\j)tOz ZFo!8o>C? twL>N[BY0-Q(#h(-۶22D2PxCn:mjh%" eDo>&RaBNh׃w(=N> Q#wf:1fK>!#eR3;of`t = k_, ;hC0\*{fBr0ꖊmNgbbPB([_(!R )Lɾjd/wK(I>3%N&U9PnPT"܀2#Xn385:JcCRkWxya)=u"iZ5P{l IdP&6~Z bF :nmןzut8R $I2%I2gętFMs!c-_b8Oe&Y=[}$vZשn~w|[e':tk 'ĵ88Ltǧ~_q$d'KD3t͑l' q[/D׊K]w騿ol@dD*nR-@uP^U_7OJYݐG ,S:Иif QP̚ ho)ʩuxy]Mf5x!_;  ¡XX"ʄ,s̈́#'-Vɡ+TZ:)5B|OHT<ߐ:tUՐwQqPҫ<ʄin2EQy:Y9C~eڠAjҚY;". t`z'ZސTFiwmV?56H4(Lh}>asg , vf=NNw<3MۢK)C h?@ %j!*͂IyV1z((Lq'·2PlT]WAw`-o~7ڭ2@ YY 'l4}s_U> A=QBx԰P&CML . rIrq/!:A6,p"@8}+5;. ux%_oʐEGɉ,g8(sgl 'x6Nt:NgylYse8 GOh,FE`4 (k/2moCZ4dy?l?^HDnU6+lsnQqH+$ȥ2x}:}TRV + WJhSHZn52͸l(H]|ϐp?0w e;ovX2έρPX7^TetJ3&&=ַ ã=28g! j݁lwvV/yW|Wg^=E(ŏ70s0 Rꕱ8撅2`Q\4d͑2Qϛ5a) wnPg9yC0U[0[Í[OO-x-n;`fFMpXX $-ƌvl!mu\iq$P& A FfJ5oˣP9"U,sR=5K LʼnZ|-fd9Xx<V`DK&Ayn#ul1++tlд {vù=2&_E e)'y,&Gf|KbB#eJԇeDaePfDKݐk/!&rWAK$ ̀Vef2:E :,|y衇ڸw , @ w.Hl /(ILaY!\/pewwI628ͲYL/e9g3O?w>FuF$C`ho-g-tsv^}+?_h!gʻmB 5`%G8Fᘶi.u Z-<u6*MhcH:,a"ZP>v霃;tGg3@GpPs:Nnܺsrvg?i ; mvڐ2ZA_>@ao M9iyZ(σ_A28 }dül"aR* ^DW>z2|!=/C'L65e3nVy^Ss4:ԛ+uƤ8+o-a/n'bz (!U֩@&.򑻿߅_DU4L{zF(":$9Pf%D%A<(T2fAPfX*lҕ 1Dl4\d׀L .',jKw5#a.}(-AE4B2(ag|x&taʃ_ͦuKWwJ E'4ӂiSsi4-7q:u֭/?O 8O|P` 5$#(Lxv|p\ʈt52]B!w. eb.eάP&Ѭp0.YG}˭[v%wMn7oPqPНA_P7PF[y/oyafZd] J(3J3fpQҮ}˜mw5GZcPT쳷NCl d,9zf@eP*390HSDŽ̃f/Z2aR%Pk xHdTmQ2ҫ &vI@>ELa}ϛe3y{]~9Z[)n3(# ]cf([6{2ny24ZE=w1( E/X߭4FJۍƣEב̤[:j$RI 9~ËHE'4)\/2EvAە֑K0 e@)i9j td68 N4M UZ y`v]ƀ$7(RlGv}=4h`L_6Q{'rE3}#w쾔kG-%^YIQ^: }QD>tv~~P6/-jSϫrt/ R4/Tж7j8x3?7۩,(FUK:vh:G<8WhjQwzߛø6̽E{'!HgS)e <K;n6mB Jb,AM.X]Tn٫}~$LIpkF n$Je `44p>8wN C '(d8Q74 1L$kE6qOmjQ1ܛa& / aH*jZd ]JϐTY`̐f(ad -RЕas^N>=Ji 76qkv Y .!;1io1tMrBZNXgO.גK,'1\)3yQsc!?P/0>S*SV2(Lʰoˡx(#P {Ox P[|;r[7jZ|O;%⠌$HCoN**K7.vDuͦ/9jX&ڂG M P>zL&gTl޾=E,P5`ҡg3!۠uxIvuƻqPAE]an_{gyMn7q @ThE9`p24[&KU(z@y)``M vUNIH{<)M-K:gk".U)e^wX3T aR2L2ŋz8Kgiq9L T'9y!sO)U["0eh1M/ь3\<~]GP/eXV;$k ,M$ 6bG] ќAitLzZxlxRTݣu͡ 1[M+=Sɞ|٧x=G2> N,D@,==^ћI2BDZeUGi ʤ,o d|.ui2`;Lw?ry*b=7|tDx "mO;U8v>ӿo,@ƆsCb#,6z9@yK/uБNׂ<:mj4evU.D"hIÜ伐A]:a$cKP07B Ȇk H(3WэOw2~B!$4A=4"tcSOq-[<[Ӟ0f{ >~Ԡ Y/W \ $~L ·2Io{-Ze$8H\ů]}~g.? DA'$l0()9ey3%Fktm6#9 0.pI"\X}&IM,hR1iR 9l"Rb q ʸ)2tb0m2lLa?Ե}nfl82geO#̠dpshTht eI$yPnNm6]HY'g),HeD&-fԩ*Lj2,q޳dA"Z9Pf<_?6kZZBYyٯқRAW@סNkS7M̚6N;̩c zIM>+u8 eDP&x(;Ce|у ʌ~8 P D')f(b,tˬfpR>mvF]MvE8'ĸ%[70\PI-:^nT ͍:<|1( |92LfF?oxy.&_N+[`pY>I_o{ЙV)΅2Iv=v6xn[D^0%S͡ E]%J=Igoj/OJ)"=T&KeP,& 42O=uPp0 ʜ ,oHKc^ڛc+[$&6 Bmo;#yiku$4Gц5 S" eB 2B&S2B?2(3O&@?L2øFC A$(C0ـdsSw eE۪UCWTbR9)ӿv1kZ'b<ۼD?* 9hF Ma# j#04- AllzMHPTv$! my'}{Gu91Ϲ7gks֬f//F2&oz l]Xۢ_>ۯqL"&} Hgq`鮭Q Q]^) ĎF1q6fiLVآW7.<6OCS(S.yyl& m4ڝf zy7ibUt6whe)O(oa (Sq_*]kw1 gA|9eKBgm#R.+}^)xKHLOLg%Нl1q}\#?=sSmbAw(m>1|+~˾E,(CW~H݀e^?h pѮKdJiP1 {aS<e:"f5C8Оg8D宙Hc = 7'M?(sqq~Goa8z/g(/dj}B|l9 X&َ͏}q"]`M(8rpLS*1s1KV0#{i 0@g>\6"{JK _T~ :ņyOp.ihqLs)ʆM!UО 4LIQ1f\j-7hHi4I%o: &yh>dOmzl~d(1S?_I̠Wşp=r(H4:H E8h#fU-c`Av9Y_ogzZ#7 A}qHS4.A,KèhǑ{mRe%앒MEabȳjP& !]b~';+d@i@d=gP7֪imoV-Tƅs0%XQ,O\å4[:XȶcO"q$2(2=ɤ2ҟ/Cnj1`ٔ?:ΒMʰ)ʸ'ߌƨ=AGw.v41 ;&'AXeT%忩e[A4G ,F5-0dR>WSZ7EHz˔|K{ IdW[A"k J5R>jCf!UT9\CQG2Q~=}5K?o`aUD Ӳ,0EVY:@P&!12|DͯO@W24 @@4};&$kV 3v}^?4%$9T3D'lUBks]x%+a>L<S>UHFgJ(BCҕ^ȏֶaAvnHx'G=|7~oV {e<1Y:Du]iѵ7J%ă(Mnr ~nڝђgeJwCG3wDIX0삩䍕B\ޯ$shU%#{>24f=%nAgXgkEϛIxIơD@OƺSdxzʸ%k2ݟljJ;iw硌FUx IZ-CTRY<2 C~ 87#5c&EMߺ;2jWgS PR+C۳1S><4)y2~BI ʘ_?v<7#(9b]8X2!jѲ݋~K^g8$p6P S$kР]6Ǯu;umٮ-j$G!dXN B#ALAEuD%wE{D(÷O^ TWFՖ~>(szzrzvSN{iv`gPF1g0na;MIF!zJ,X#) e/Z%3(Ce< wqLeˌ)K.S JHh_ }~ہT"%8`~$ $d?ǧ\$<ġ̔.P2TIe4~ih$Cj`ZB&kӤH}74rng_3(ue esr.< lڪ4PA pH;]`3g-c/0$\6 Q充C;~.1x>M#G+`{2-lTɨq C@ًPƎVU:oO{9==ٍ BQa+zijj~˥aϽmsn:֞ӱ3$:ݾh 8lcѯKRb,2^H:exlմ`/o 9\5 B0:(N-z\^. '<>ð界EkL/!Vn!J/.ʜ]_\,x@S/֗1("&xW5]vBƦ%hAe@5(?Ka׾,IeSS˟D++~8Yl0^h&A0mw?B8{˹PԢ] CnAP4%3X0#mT &@nZl6"2) {2","2"5E40Pʢd=P Ҳ|GU#X Ѻi2FEvhDr A$t?x9Ӧ01\IL|9FbE8W19:/ )nT@%b(G󶗧ӳzs gb PƼe:F\fPF3EcOxeT%\,-DYiNfC͸-C0AxB<%9R, KuLm' ;X(s Q"'g9(MeIaG>Ձ?,ZrDkjL:;>o-?Ios :e|ϓPF'79lDHA$H դa@#Ht5zvh JJz\Y=gk![p[-0nIG襻6 @H񼒈߮,e(栌@dF_x(CKQ':P{@qnݼ󖷼}~>D|(EU(T/_[>K9,xJ6 ѝKyqxp@,Ru356.Lx̪-9?1MV,?j ZLbTl ] (sv~i:}g-m/c8ܬ\npȡ te MoxfqN/" 郥{Bu 2(c@`^0¸G38!ua*); /׊uK5/V>]h&4/rDR@k^q~4FqpEi:ظ$yA jzҝ Ձ_3Ld7]HLۯC-u.PRk_/?*ʘsz|H5PdY ;ON^D=4v{bП ݛm1[ʯgi~̼s)DL2|JvBF\/2釅262oْr(ꖃ#);7yLX7Z̀wLzWʸw#dCر?e$iev~!zޭ\-KLD,1-W6}3%dy^'יQu|ex!kE6G&;-n-1+pNYzT~}iRy\ $bȃ'==X`u4Tb_Q΍ACz I2[9O>$eHqR8+st&0('w4L1%A `7gm>[!{R.Mj$zLW#55-ˋ?\'>=5݅e+vPMR*8s)&ε knlK$g(jVz]xϽ7ݹutg*p4r+:K7h&y^'Јim=gQfjn, 9\K״ 0$Ԟ(9P8SK*N< &f$4rWaE(#EPL ^**)N!"bL-ttFe]6Ђ 4a2g:m`t_vB5L e t>p#_!,xNRL=Hu@3=8=?>8]RV٠B[hk-DŴd A0^PiIWK'eM% .9n8/گ NO~kvpnP7dηF72±KΜ{dSH)$LTМ_Azf -Ѓh IZxJ~3@ǁc ev&N |ee lD\ðR,b7J000e -u^s P&r``Gϊx̞XD{0.*/P*Jd\$+ rdsSpܟjP\l GdLKս~oa(jj".y(5=r;|oٗ񯻔jԢEPX-k yv~@S;qL Suc%=l(c.$2-k70 Q_fo戴1CѶ=hA7}rvqёD0g2 TSK4~g[>fʀ5%Eb dXCOOnul8s@3Fi1LoEJ#( ER^$׺pK3Ӿ(ζ%uH{C-顼['Kѭ^BI[M^Go?E ea"i)BQ@;e0BrVhzL8:Ø;yLD~1!r;2<"IeTΒHȞPf^s( r8ms&~"ь 5glA Jb}֭;ǧI_n@FU)r f (KS61[Mk%z =w:4 Üpfù@ 1I6֖ަɕơdò>" _)\+smO"Lց8Njvͨm=l;ֽFG–5y6gtm1pqȠ {V'E ѡe _ i&^:][.mZ2hNLw}w9"~'+.TepSl|/8 R!L2Xy62KU' |\[v92tEEoYUP(+np[-IwA_cC0:זW(#`N?NeЙ \0'qd=Чꄌx"i)M9޾}u Ype =T:㽐Q+EW@3pԈPFda̳C3<"9QyXS=2,YeD%֘>VAf>Rʅl+)~/4Ŏ*AFe@uUx@M(dhߦWh'e (;j| L;]ɼA(#كҌRg92A2h0mӓce rJI\/Tp e"} 'ϟ\N%ve(S+K v6|_eQ.=l'.^W?ijǴ׵_p9\ Ѝ嵯9ksx7a *|],$זuP(J! B2@hIe"s\,^)@1/,ê A/Ppr#04e& MaKE2΢2߿yl pKl#+LJr:oʠη$PF"/Ľ1ddM Tu!%ګ@Z9%1EOO2Keue(x1^:#Vm2 O.&I63MՁ ‡ل[+#8MP&yw(T2towg 8)3KcΎ?rru '"`BgDJN&vcġc33j/˲% [ ;YF{(Óx?e0$(zݯݻwHb=ÀEzsJ7]m=32<"8B] e(,Cj<V F[mq:jDmUj Γ2x0A(#Rnl3_>At੷ D F7-:]. ;4traBLeAjUKH{SE+{=TP3_!<)NN(Citp#K8zGILldЍt|@4% 5g;ܻ쇳uY3Yec"luAWfʈ &g蠓<$y.r~)xRB!fLpUs@,2𑴜O{o~-V.ZRaS#[)#NN}0O`քnM(SEp$5C]_P(di ʐBdI*R4JKH&.L*>iΕnYwL{dxi ό5+) UցzkdWU4n: eaZ,ZQGsmKh Iޝ{wy䘁ю4}bHq_0AiJ޲MOcمpJ-9'߇ʰP@3)CjjQD$_8DIe8!YJg;1˫x9j)@L[<:e.u狾寺[03B %D2E hsDZ QtrhVt]0$A &2P.IcƧ|/">HPFuP nGB0n(F &ИF5mtrr'gzMw/,~SeЪBON( 19Lz䟳LLOGƧ!3'9Ӏj9%8C(ßll+"j#:L߭VZ ?`S`!i8 ]4-(%;m(2{ ϟl0̡LiKEJF+> u ’[(7p;w/^a4)q1ٌų5*3Dh(Ȭzr QG7~DyjWN\tFR#}dY_9%$W<<{7~ʠLT/p3.om ۬xAR;Tۯɝ4ZLȾ ՁzA[AT\=*OJ%\/uWYbϗ4!v\\n (oA.IvC[ Pon7C#Zݶ fTcS! /@`t͢] ]0b4fT=ђg-ru_kJ^P&xVOpʀ$bY: y MM<@P̫ W# cSу[BaLƌIcp}@ 6n1y(tfiO(O98Y䧢ll=DWS$Dܿbگ=U@\x|٤pǙ8T'Be#2 e'-&ƋTlﯦT['=-IOþ<<)H8dC2kz~5 jM?_}stǜHDShbFwPVNg} !E &zjڥ+483֡Ǝ-#ڜI6,+~'|3~~O֢;E1YԻT;fc}@~W}_נvpGUPk4%WvٵNRC(z gD 2Ry: =>Υ2Q_>Lq[D%<N (ʀ"!VpBe@eэ 3|p~q֋-8ףblFa PH`2+F;ʔ3:y=)*ϒ?\3>CL3WW kL7UE(Sl5PhF17މg pnB6m6M,ysgzK)IFlfgH2(Hk 5+ O=̇fi8 JӒ h&1@5ﺵ +KRr̒luڒTs(LD`˞s󐏣Q#?].\*)&2 ,ifiݨ}o^<gZٶRi\=;#!mE Қeg (Ӹ@~cݼ*/ıB,I Ͱy%o-ܚ>q\-k:2Q,f4^3ADufP#17f^?8=;;y^o)2CwY AY(өY}R y$(eS5FlF2(nIKjR|ʩB ej@e VAy`kaW{%]2MS~J6n "kAڨ.hr /u $.žPgej⤨@?/ R0 e%'8Vwn׿sW}n](X6Vv-ѱZ:cZW-VM R >iĂ1NH&|ቛط2>ey$@A\DFHE/ȌlAgI`0hu-/c_;>1g|E.;1@i"] P"ILbrGzM*N3cΦEF8(SUej˰:@_&u]dNQ6M?vs޽w Pf;^k 9K=@siۓ"N6a xjeehƀ&\>QBvsΚ&zk*,[:*'(<%>QS!Ow2Q!?sZ,zNsIJq#^/\f#(CmS1CQF 6 fDfX'eo] ʈ0,ӛ݉851O LazFְhzâiy(۔<}`=#z7ᣰNv%]]YxhACKxJA4td&HI.O<"ævxcd,'JX py857^7p\\[5V24F/:pi 4L  VB4JÚN!pm~v}A܆jPƿ6e=by )d'E9"L ȨI?9}xq|krq :$e*%TƠ2Pi[MTdn e.cyn7I=I L<'sxΧ^gW'2O3yuի Pӌ`g')<>Ӽ%Ƽ=S9!ǒ q)5̞7Mˏ7pP,РI)Gw2)]e,ХT`bFTĜtys]\Z@ ,:=&I@L0} #e(Cl9/sl2.Y!ULCJ^hU> w]V76UtYJ0t z nBͲ[-n|WٿاNz׵bIYXj QĤ7MCPFщ~lu)omJi;R] 4++y2Y{g{?9 "'ALJC!cN}r{ynI*CPFe(R(BӭNn.2:I!diI,x/S^&2/xSB{3fK,I-Q}тMH5erV\0S{β"6/v3P&d\Ȇr.4o21+\3M nuXf 8K(kClwNVW2,ֆ# em4;w?7k"W\|p/H֫y1#eo(és&s(͵=z^ bj A!)A5á t]j/SV2؟ z'u}_{!N-᜝H,Z SO_W']k7V"cP\ pYVn*6z@ɭQ^dB ;?.]3 +r($P@'-)<ʌ}.}c7ڪ4n`t}e..֗}ϡdSa쳨@NX4@QcҤ34ZP&ߦ4N%_%i'$,<&o@󉡌1D;&EH]2>eX~%(3-Bd᤬; I7aa5) 5^VsYNA _A6q.0'>an &$P&@:7T< I;>٪E^/A$x8?TlfWԑ>(tW0~׽ @3\?ј1 Qil?Ηfaw} n:]]]}pl=q xH<ƼP8J @j$$~: Lfa,nB<7#Z=]n1|wY//z2# и6)W e 8*ewе]#2I{b?P&B91m*ML_PF顒cfU0P4ƮNINgPޤ1k竜*R EqW~)s8t3 n&d>vAm٠{P&Tx\H;ׅMqe>s' @AW2eyZ 6LC~y;o޽+A%{7gápY*1[sbmd $PF/P&L1g[_{ʇM,N(#Jr:,n5ۥ}MTN3?"9(PF0Yc.\tIw+Bin'l}Et'S6:[BUT:@ӂh$4/8S$oyۉZcWaiMǸMuoxe| qˢ<(RaԇUM^+\-GS2P _䴕)yL#&_Nhy 3hI( ok_m^6 Wr5 KUu+^߳\~ju]#9uLQHJ$9JU,ȃۻ}ihQB dɫiHBu 8}^ׯJI_޺͛7?} )') +ȗʘʛY.vP$CPh?A*#]@z b&JU?C*%-r%2) !1dG&?9[ћG0~~eg% %QfK^fb!X).}f+knt94hFr4 R㤦QM "i HDP];Y\hb-j;AjPV|ˏ͍?(ۅ`FOVy¡BefSxo KW[R(Gy>V=ʞpg<5(0|gZxP̒hŽw_oݶm%*rVLeKYBcPm?KO88lb8;9;c#\PH^[HCB22@"e_(#JȿPƷ-$0Fq(+$;^oܳzg\~`eί`P&WM 'xø\. !GH.21 \Y3\pL eɿ)K9URB2E"A6KCqI՚1 ehKK@1 (S({$0l5ZtpFGHSS7jPIe~G6ФPFԩ5RakʨRL)2\qCV^9S8(#Ԕtd[2I-(q1KZr}g,&ùO}_;}Jxppw{4Nux 9LW=ܩvj?ßoǮ]Ã8XբJnDؽFٺWHkg_(PxQWM"Kci1u}B)E,IumZvrM`Q55wp+s-5OIwBI_e? DkÔ'Oa$X`)<!(10b}gx'o޹}=[`X宛E Ԡm88X.WMpS2^GQ OȀ^0v")ý7';E!cx ݒa*]0(M-717z_BHHUun/d3h4c2;I& eրע8'KlUr(7.sLmS4j.2kBQ"ʒ"ՎuU%ҵXգYedI*#$HA0Low@UF]V[@.sc9pth> [y?}r5uQkHeBZf?0|A>Q9S<ݠx(C`ehKW68:\ɧ>SOݺsd{[Hmq|Ȣ?wBPXHp:X@tFY(Wh2 /tj߃/M0s͐3&*SފPV\Bd.BedjOk1N*|&wدlɍ׵(_F@V#КIRjg,TA(3SaA푊} T',MPkgVA3?_x9Mpy ;MW2w[ Ip/cRl(*~F5SȞc_ÈcO"2hא̀ s uyYuԖǼ*QVAp[/+vlvيNg7޷qk̓Z29 PFцB٫C빏;ڑ@;g+:SovG2ʄC;jk@Wxwn.æ35e;Y-f@5vZʴ˅ g`J^S*AITE&W dU9Upko(p2kBΎ) ƼlPZ{ג%k,/-jo a ݛOE I~%_=.Y݆ dFxaݹ-yIs"֞l˟ʨ[yʈE`lűNz(;xiҕeL|AN3PKJ(T4sofR:,D'r4jt@i D6W/?ڲ;( 3jr(C2t#2LbMZL@(%)뚃eZJg!3P,t^bs.)~.wV.nT=i̇5Ni(m%UXy^\W5qG먶ً4>7pd+M(AMGx sc$d$P8%KE2¡"eUlJmM5/ܽCW2ܧtrT, $xޠc. r8F @&Lfp N׾l.d`#NJx\o t1P~xDz/zF[c AV5+bBFtf@a/Aȯ*(s*)%Id @2Ru~@gs|; fKDܳ & U ],d@!&pX2C)=U/M6~_*pP~)]S %PFZ}$$LjlyT>4~L͔Z/{ 4)-.ÏdlFrs8 <\e8m'?coeLj/5yX A}na&ii{6>|h:sko"j!K99+ەt6,X\Gh !܇`=mRе#; a[\Hkˮ]u{4-hd-Hi?`2% i1/G;o&|wzyKGVfvSP8`kBI&¯Ph.~{>>̃ˋ o&RʅץI'f W[,vMtJb 15<5X9YER-S: p7i?/:((|EYO#ʫ>dHY3_l^N82s)6ʬ~Dv a!W+O=o|,4bS2ס 2'A냇0x|BLx l2&]q(1NibB{8!֜/rOɠώi,zrfW(ʬ qM3P5)ǶAe_Ut/>4mliK(3S(=,ڃٟrF29Q"@vmj}ʧ[^󒗼Dýhh%p^.NM~Y]/>Һ"7ĿL'/˔p<JvԒA%O|/wO/ ya] en[$"oβVʙ@R m2u%"?C,&a^LMG1,och>֢嫯XjNvelT8[/I& BP6' [+:I۞B(z6ѕЌ~}HƬ/8uT0نM| jbvr@ W25Q*Pa8Y$ ]x8S2" <7/ΐ{.U̳|J2ņ͗y}D(S'e` e%\3x_ć7Md#[3YgVɶX%/o{݋^"2pF6X^@Iw ]))2$F*׊FZ-AQCPp\λ?ߴgvZ~?qPJ.3ݾy5y)sc(# W$GѸ,k~oykFIC|m]L{AVe1"ܵe#ˇ?_f1Σۿ e.ηw_zٌPLT kjaug&ߊ:?Dx43 6(S^?FĴ.uѻE2S!u[1eXZvQ\ `"2%R2BДYkejTS~O27NPFU <9x87!l-U\5f;lh?l&(PLS@vEr%WXۃs(S#t^Toč!k h HBZN}ZXn.('٧+Pf}X*CtM\sLD +?aR9IRDu__l i&-sg en}|2W1>?Ɂ`?dՠ\ +pd(F{(}]~źߎco0%ŀx `I8\+{6&~aP6 H<~Y\Mb&mh COKkSƉd@T+*YqlNƶs(Co~v_CH7J*6;3/)A;(#2ҙ[iA.*USi'ڿe L]9aά~ ~Mo~r<31^&#Fv 6l Wkf6PRy(Cmbhl䔔SB!}#2\\؊;PZ.([>D&IL<{׻o=nWXg:G^Gh?:2ցW7Q'"(bM`&]>6J6Źk2)IMp\=ҚC6(H]W2b?Ͽer&2uGLUF # ۯEV;P[ʳsq@S퉜Aa#tഀh*A?tCBG}LR.R "UB,(JO2ϻJu!sQk|}i.aO|2[3 e%-܆{xٴpMÿ7ֿ?ZLmb42dT)2 4ŸK_%奁2\YDW)z KiPgLu>(N2R{6gP@VKƗLg;2_N'g<{/}䉧ۍ7I* V7L5dᵒNXL*ccek\JbO54-v@9Db:9_0(N(k+JxP&!\8-. zWO-|<^ٙ3,R"겓2H[9_7> rڳa]נS(ӂjj8M~< .IϮ/2^WC eER k6e9r.JB uw/>aepdAbb T&@)e\/Pw[EJ3`,:vX4U Lj[ZH_čDFS,2Qk<̤e V($%OG6$ $2̊גL7_(1L42 /`FGBTIL}n X4uE-uG6\H,Ü=TFS\9G1OF_3+%"˦ЯN!.ΕSlL!gw!eٮ>Ӏ(P3G9a`hh C_lf-9HdtxX DPm?f[h~j)He|ӕA=ɵ!ɤ13ܐt%M%/̕.ӰJͮ# `lD{rzvO<>:9n-gߏb@Ltamh3Vq@i|Ah0R@\1H]t`ߠvZhGe}!(.4Pn–Mkȷ^8%e&WA?%;wd$ SL埘A)K{][5=ބޏL0vX(R$p6M7qyM 8FBJgЄ- zXDnrٗ?w[)gjPfוI~̤▟0)S,(޵?-~O;E\O23}-˧2Ir֠ F3/A!2˄ Iee>|w^S9ze;:y 2&B@O9")հLdيw#1Auvk;> Զp÷FEm,''˽wp4㯐r([(#lYD 2hQ(å)8'~G6?LSpb(OheBW~;`7%**dʈlDLE,)\ \Kv=\2|dj6&1h EeLkϠ>r=`r[ȷ?D2">/wJf`ՔR2 E,2sę @- 9}8I{W>1gX*3X}Msa>?HPƐ0 ?G?ΟV]"],P)ᄑCـiɵk7̊zK^oǮQ^0Ly Iȕ.8;}4(#CRKSwIY|댜j@ApBT_\ܾ}>}r~42h,*:(+2%_˳ɵfR8ehw8-&5a d5b.J_e k.8UDMKȱ:\e}zeJ{W8v~i397B,1ց`SOi;Au?4b[ 0i% L>F:\HZ;(LhՂh,!Ft1L`jD#uդ2vk$o'>ɣB`݄`l+ / 21E ^E< |l6ێT N|&ӞARf? ~dĉ47qn2ИA3=!Oz X eL9#JxŊDa($e&S^2! eهD6Zyʡ:䘩|R|H?_~߇{XOx/e賷1P떫aOUzrm#ڥ#OqP!Tg+n6WXK="lw$']5(Rdobɫї eOi?P/(_(6ZBu9(#zbBQ`.(,! ʌ | ȷhύR=)e6<{e~PO\ ʸ/kʩe|1$A+He)ZہYeT2UU{俦vŊ߲i]J..cP>(Ё뺟Z v@, I2[Msٗ}22, ߁͞2]4Aknnc+]gI?2.fUT?"ZyaNn+ W2} tA1xv|̭yNNz􀍧1!CJ g#(CmvkfT%;4CPb4@őv4HgBq-3(cs֡L+*;(p*YmS`rj$_| @ 1 e|S'ؠ:F&rjta&_E6spH,|q%{Lm(wN6c]$2$Len{$DUC',8!,@|bd'[o2ި[f.2ڣ bjr pSgigP~ eF |;\7F1#Ci JieP\[tf~7}|˶k@6TaE8uQ(Sz*rZh.E09 @sVAP2VA)4L۪ \˛wOyp|#&g9M)k eE2%;/xmp$ ` A6huo(N0$^Ys[QѪ7 ϙ<\H&2ec(Sw\^lL2J UJ2`hqO#PuѓrM EF8d4R/@4W۪TFTJUy de"{oެznQYeZ 5JX<֕NGOTP[TYrckɀ+SKE]"0NyZ8@H7~?Z <(+oڪf}k_9;~bsJDq v/0`7o*^ВaD^k['Y$47'YTc89 5{ gڀGܺs7O/ף\z;ۿuٟ5 p2ܚohRp ]/COF5OS{2Ӝ0ͷe2y(4&!!J/..=~pݺ{rb[`cҌ9wՎ "(/cCU+#ߠF%!mmedl'"HWmaɴg(ٵƹwD0>P*?q}JP̈H"P?41~H6hp"&eSÅG帿s2yk-2A0Zk7"-`y;#Z)1f*>.= 7.QtMDE-22ISey{,liLWPSI_eMhdy"O |R"@e0?=}?R8>~G(i=ou6)IJ18 U(3udAşLl"uZUuA*@g(T]O=8usw nUVu5l,BL!2$@ cE0xL" %B A%Pl+r B@,X$`Kꁞ[={wtNUNͻj }ԩq_ڵdlًZ;aqTրFpRH]jp\2Lf58ŌqWgM*33O>KnSy`[ȯw b _I]f # 1P%#_\)1'C%Cel Bw~Խ"jYMv' Vd0D)qq]K+t3v&Y54j7Fߕ.Jk*Aס>@ نpBAe޲($ҺfLn=Dl0%߆#ae[-eFr s^O{__W2ZL{ ~~n$he(2rL_ -齃2 U\qv"_ N"(v3\K1) 3 uHO]x|yg/kuֽ sN qB{5K#7e8ejc.TNʨp0[A: XdE 0{5]' ,Y#1z⋮hUʸzfQfII'Qj|zZm eXchsu^qBxEhN2he\8UvgUlޭsL(%2ey(cr e|`߅x#cb(] y0DYJE(C,f$Z yj@$sBZeue%P-mo~kooo2>2 ivwo}y?vB_塌 V572Fz$ vtn~+L^Oy% R<&$P9plnv}-ahQ:0ڋd~przk7gn%R4;}^g|zIR+5u&D@]e1i m6=tuA;04)B 7MYkGy# _,T]el}O(C=Prs=&pVI)SuR=3:̤BnNu&pGu5 Vy/aj3 CVfxg݌}z24˲iPH  (T,$3(/7*3$z.LZd~o?ܶ-C>7 ex2}W}ٗ~^J!VmJ6 La"hycexGU:sTBUa3s elb7<c&%+ՁY^~p|dYtb=`fA@E(hkt IlF s,fZV)3_o1 7&^sp纫HW*f|$ߐ$)YexnH8xM4P,N@P'yٹCX 1E X_hs}-i>dzIybt3 g e tOΓ$ t5 %DC(I! h#E {h`!k%qH6G6sAe9pWnu]7p_`neI׺j&;;{_/].'ZߞӸxE[Ht͈į>ZvoW0H㳲6H\IZ,4HȲxe\N{[٬vYU2`{Tf2LfݪߴZ-VI Ѿ*hXw[ڲ c'f$U[+ BG_J6ɈU m%do<‚^+54CLuʵG'׏N98>Yzrd$̶a1AK`PV^"L eq4$]Q@5KRQD2$I76r`#GT0zóBS>n% Kh{ ɂ~( Ch1DIk\rZHCf5U%@B͈@]m}kt3J=gz{v exd`"),}X9|C] Re` !-̬1ݚ+-qǨ)yX]S~]xT]/̕ (˾o~b1@hQD 2W/ 4:+8xLTzf}Xʿl'IXvTaHui e2agU21R<`;rЊ>kC5T0EIfE`*8c0W ٟdGyϵ)lL]ُ+vϽ2V 365\Vf2W9#:3i0P+ BK8SUtSXhz:2^z-e,V,W7hX,78<8>?>zxzr Xֽ1V&4OYCfu]G@Qwex 2,L=q^&|*#n^Fxve6)rf%9A$ \­ɨ&>灭 ):@5O rD~90*MSjvZ@U=Uj*x_~ڌ[qw M=c*FEC7)"oM?=PF'6*ǁɯi$kEz~kzGfjj7@?0i1i7u>c6ȯQ]?8zэNkk1T9&O9(:(L7PF!MPǗ1A(S>-LB5=@E{*`݌_{FVm3s!)EZ?j,pw%µC wCm4$:Њp}~kWЌO^H#P c(0ofο[Nr͇d+gIrKn@TWFz̔+Aҫy,Q|7b^P1tBS(9Al2t?i\ &eUG`(%29LbM]`3qIbaه9Fq q<22^j ٵNv6^óEώݲWPFnN3e2@pNM`Mx253۔\x8"c&$M.$){c&f~VfO3qNRݍ %kD!clYjÞ?Gܷ=lGZ+W4-w\=i(~DdHd{+&p;"n~P~(5tv4ЌVj%~(P&Ӷ?4IP$E?wPg.g2> GoL0wsO2._4WJOM;Ї>torh P?T2U;ٕ ?{OAՍ' s%(+C-Izѱ ;V2 !2g"#as{DҭWW$k6\0)E7ϯ\qxt?>?<9YN;j 6@WS߾E(cu0g\4  ea4S[U0jma1z?WX+␯6հPĘ6PV\fxTY22>.9WP[!秏4c2{ｿަLWBxT=!ʴ|wn0'tϑKt"_Nu:֐10v$8&yNloQ87\HO;gIf=V1 cBҭ`dtfg$I2|! e k*)'6WP+:2$E$ژs(Xi|{Lw^!@f:c_sdʤ "F @Fc|L1FCAWw#X$G5#LL4/EԮZꙓcZAg^qxv2_8@k*#z{D"ιG3̘ѣN(BG%( PLgr; šBoHpKhrkͧ ʜ]25\7rb=|/Wzź^sL2Xz5ccʘ eD] L7/1kcOUuQk(cp NjBa.wr4$2ǾLSf "`2s'ɔE>dK_rHof2ً.ϓs'99,`>̦[ +1“BB H*MR=_㾀L-p'W!F,u~מuue+7 *C(Ә,oY.;[.N۶20־^fx(ÁP#7e.2_N I2ۢwz7.1P}螣 \ e|U\988:UYb٭~3{>Z~HpMf]Ͼ۾/\4ۯ5tbCZkc(FL z\("!ʘ= swEPK96tg\{٫ggObeXڜZ!/$YτZiZ>@ݩ"7 e|Ϙ D+Tgv +{ 8mp,[;fdNcގ2ɸgxNx%uLIer^q9P`f">+ލVmHwOQg Ҥ?kI,X?8Bz >Q[A%`Ym ;*K,IkN(2KͮhQN19ZvҾR0w@;sD8WQbKe_߸\jM:ު Z Kks3\+`ֹKp6^HuO/L*6OrLe|:wlA/ bF7={pWh_?G037OWkuЌ:B3ʤ5dh&ʀ3F`< CKTי<ѳͦf0wGRn*}Ү3aSʈJؓp.WZfC7#'l DJ9(}A\ fIJ u\lsNt ê'V$>$ʄe\p{%n`m W/jǭG֟93ʰ|3}Ey}(( ˌ\ dʒZ֚o4ӷl}enAL0Pi exKb)W|zu.eŬP&$c(bNj Pm3EGtXʝ=Y+sᦠ-w~|$ k`zZ橣ڎ:T28=[1 Оd:ݻSzWJLK(S)TW;ֶK4Tb-i*f´5h"#3RQPo52QVy.n r3yyH )>,#Ł(et8'CP\= ERP iAXdQSm)6ĶY`*rPA_J` &J#/jVXSn_mL/\EnbVtܺW\y+'[ y:_-ע\ w3hnH>'((+d2DS2\*UZ)1 ikswgAh@5 ζۋ."UߒFd \y9t3[I>Ǻo-d&F\|ԹB!ӁQ $4%+gBp|ڋ\rYztT: }A$0e6?qS6X4T S+>I=su*S,-{sVal_;_s>a 2~5!CezWŲ "W܌Į$VFÜP5K"?_Y26.e8P{VHTX ^l~8_]qpX Nݹ\->. s瘔u9(#unVi&˻t22M5>wPu}2X˺3nX C*>hh,$>$pl^D 'p= 59imB/0QHa)[A(Hi#k_t3cˣLgsiLnT^ԏm1)Hʶ~K&ly ^ RٯBZ \n2y'X/)Vgp[ ;`Q= _vL!p [GFP&t II^2ҭ# Ʋ͟~٧^;Óǃ<[eߟ/CU/HŌ:QNgѿz8?9lj2kw/_eŵ_Nej!i목XSۻ\J?|ahMl= L-5^evD&֡#CLAcfXB-5\ 4I5H:)=i,U2bMA@9V(VƆAw_fo+"Y = Bʌ\ dY(!0(y A6M,&eBGτ%h>"Ǎ tue|{bO0 P?y ejdE2L<WgṣQ R35Q]S>}̋-O0*nwgH(Ý>|*$/opՎVRCƬaWՕ+>ԕ@t|=@q>W{2# ꨥv* L&n۫'P[ e|CpEMLLIryd^gi=JFH>H "BBRFXc\޺ug`8j%l&6P} DccfR@]SI9BLʉYO6GJe"OEddI?a.3 0G;ؘNw[ַ⤞H$k'Y?< ̄l>?;~۞W1ћY1> {ebtmsexf1>VƦϮ7*pP34Epي[ UF` 41 ~`i<-cJғp?C&t}۽ܼPFkC=vE(csDFA[d_w/}epap vX] /Z$hl 1Wͤ[Z"cZ Ę Z)N,flKo}{~f{N(]tg#2&(Ӌs>~]ɬfaȊO ÃLmV-=m.-2L/c2y2tr`G1ifA)+%2Qbedtu3[|O^qxZ_;8<:;_K Vrݭ^ˋA7#v2M PMfe_`ekݸڐvj˻ rW[O&("٘[1AXp.Њ|0ߑ`n&ןoJ' ĉv }5-n-29ɇ| A3Qzs3)@0*ԓ1Ɔr5e"\Obֺ?I>!'5\!D0ǯM7˜*81e_ZW]GhXl<$P!z]^3XjèH^Ç0<0}ULPF)B\@_H+ 8ᘸq3P<ͥmBq0pJ3PFvtrÏX\?:̹YR_ N{FAcfmT+6*n3UGJyiT `(PfʨT(N;k Hfx  !4t)PPe'lx.RTE'%b(V" Y3>d)M -V`f}{#pBW亲G6g( B;gx2,3#oc <,4(έ 3ڶ}'_{G щK#pbc1w2U -;ɔW璘OXPvLjիeCS(wy(Z G9aY!oV?F2{-E+@qE(!zl?ijjl1_wg^Cԭݩl٫l P4XtZSoZ6hK/˘F ]L[:he /-+P|C 5n@2 &f '$lRÍ'ӦŤֆ*Q"f!42$~ 3Y6ܤ M8smVoC@/eBo !LxǦ6O4.i9aS]9w>I2 x,H$ 2K^"KwwբY/uW"q {C:(;@;ku2$FRƈ]` =kU+E=Âge@ "Cʰ͜=+W\HZ4~:pm$BoE|!0PfCNe C:M&qKk+fnr]GQ9j>tn8$ )$HtqsWx\2WO.7c^U5@{~qVOϯ' `N o$Ťnw]]?~P:ښsjLݥKs_İ:dnά1TSC/"ݕ &݆[6Ih["ŵOc3̊^MJǃeߵכ/ABss$'>:9W-N,׫uRԇ Tڷ3(Xc *9 TlgvDM4j K[^iR4΍*(_f@uEq VwtFuRјiO`pщ6ͽ1̓ &78WIm{a0 PofrrՆ{U˨!$Ih(\5IJ\|v!hB"2 ?ʲת(ʄ4P2:29((RBD,7ϬQ`*hX0exۼ_W~ڛ[]ua(щ2%/}Űn7ZPǵVǪLfAh @d eB;.e)مOF16~KFkR26$R<#W^?_˵ cp}H=~y -v"y%=An>2N3yɷ87#sh)AAfr+1ć(9FO)P_EQw-8 cd,|XR &EAx&9C63adna"%kB2$R(PxLg tK)cM]]rtez&uϼg43!4|@("%"I/+XO[uYP=&eGc̜*s9 erL8ʌ'OܠߑP '\ T@e2Oa-z>> X~P:xz1@^ڝ?c/g5Ne| jeX4AjGZfLCV@CFVSfbŭδafsP!0PƳPF\6D/}x= |1-V !ΖNyʨ0-tHOӝK;ݩ24[XD$ZYR+bneMp)YA͡sPƥN) BהHlJ"@V "3e}$Q`d3(vOrJ%eX\aWdP&mIآ\e_T.GKzP7`#xk5flknʐ5P9~c12ߠ1$|2"`$;H+ e-Z,UJy9<쳷ã`.jY5?~ >Sv=;jh sw0;mx-qGPN NI(҂`0c^vƋ)Vtp 0 3KF@\2E&BDP+a<Еk|VPf+(ce^1F,CPie# em/6Q[Gّ8XCF[(`h!wIӡ d\ש}ȏ? Ro81h4mv|Șd7yv3, @|zlSB Pe 8,^[W'}|_4sdJ79Glʪgp愗dӽ&RI@9 9Ok+PdL K`.xmdH`"b(SF'>Uw~'|Ҧ蓰Fz(dnb~M͘U1>fl PC RA6g\t`)0^`MA ֍2lٯ%%c O=cO櫃|/V7PFYt}OhҀ@@N&Z1Í_K6p*yv;m| RGCN@19@d\%C`c` 0vW2e>\$$l\@3(*e;59(0,dCjcK7JBeR80ݺfj>0\.N<2C䍗"[f`幕3#V!Iuuځxb#BnlM9f^i1{ؙo_ŦHi,p Ys pe8k_iO_ym]nF֊y'xޥ'6ܭLX37eW!0weNNpL9L4Iߺ&c9pPqg̛L4:<9}-'|-t%0e15\Wj([Ojh1 6'Ru3n3K &V;HfDcMaGe;1m( to ]Lk` O1_V.RM~&cS.s 'Ns+\I ZdL' '>sEgr)KS?0 ʰl CB80Y3/hs9Ht$$"iP)v]gnmwwj:ئ~BC^6x 9$3(.[E8 2ě'ú[U|DE(CK^m25g8)!U4%tu522Lo+}pDo$DÇY,8:4θטQoaB]tv̨gųKwLT!dHōPV)[u(fH @C3x9ϐ8GV3P&$ 0̸3 Pf1suQz0e6hesMR4XkUimvvJS8k >/,c#LfIBoځd`PLԱa+~"Inv8$\QcZ$eO+$t$&  }c M c$[ΐ腠 nCB9r/ICj teL.2$lIgPVefof~LvV C̗ͷ|ke\aT:2zkN0id?Vʸ*϶2ɇ9V+"M $@Pk٤Qiϓ~bpVf|?|:݉+jZAN,VBԮKЊ,flI;x@)ʺe2m;eRY,c7Je>׃@Kv 5ʂʕ 4d;2v榬: $[Nmׂ2sgYY1&dEP]v>[+ʹml׶Z p ȈXKl A+@ 3OD2@MMP&>A䅡 & CrAd?bU7-2ȅvngg>xwN1p~DM| ڻֵj,VC!U Ѥ~C݁a=1"F`oeͤ-P!N`y!ąQE D:.M1"d9-._i=SO?l՝U/_e4/܆]fbR_wA;ZPPWMSaN59TY s nj獵MBHU2]A@1~H4 Иu n mbd2ȩo3mD2'[?^"s+)F(Ðn/L|cn][ ~e'Ppd?0,݌yP f+J"%z:Y E¡rPɄH(#!I#zEUW??S?5mwźLjE l2Vhe[(NEϐVbr֒Mh*w\j$wG'$"^F̝E3t qPL%㨤MjB.,otZ7B_k?'uw\/1|((ڿ4@SЀ5%8leF9/eܔg;|7,qPƈo;wjYXTZ C x[G/[(ͤ64IL_s32l瘴hyؚo:-7A}aqj#hOIV/wF&Stӈ<PFG'm1V|wxr嵃R96麵|+(0hFPF(-Mf|TR!( ن@ngť~Y;|VpFQʌiWB'ߍ @ԑϞ 1@Ƽ7FL%gI<2Վ&&Kkʰ&zR̸[Ѧ0Ɵ:/lt2ͤPUa]u[k,1F>fLz\0ƼVF=GPFё:wb.&^\%,|'pEơh >hv3҄"!wBr5 e 29Ф'`D,q(C3'HO0kMSQSzQ؄WICPWt 29(*;( uw6D62砌+S;(_O^ڋ~4U@7>D+ư^-k񤡌_2lm eWMPwL;(7C-2tT~da:@u#Lso<3>jux:?<=;PF,rZ_ e\)RP>4iT@WdY3mڶ5>TX\nSXZ6UnF/(dNY۝^ڙN[=lF:퍤4qm&{ 9e=Ш9OG{}bgk@Dͨ8Qg.m[QXzQYyՕ`gJ b7e[2E?4@C[}h6mvwglE=g3{L 'lfk͍Yf+:! 1:!C8RF ??[:TEGvL1E1-|еec>L4,mx&*(r@\$DBQTUx]C>PŽ.* AI`ȉoXoےƉ69N(H&eDRW~~g~g4KL桌4}k^O̿T~2aSjp`@:B?22Xڵ2U?[zt!:1HaLG[e@MRB&s2'_fbHK?[g&@O=̃<<@ӳ,:ʴв & eL}el݊P1@!l&m5Mv/5ӉZ6D3&e(]G[K(Cp̐hx{SO?:n\BOHI?R0"><>EdYpYI |`5$QVBu,7 2G} PnML2Li0n~sb~áVy1嘺 o2l eWpc4C @Sde.n{׻/#Q('S{5_ eV!'?ZM1ݙ9KT5>3LIw%__2X`VC ~(@6@@&WʨQ >x}'|~ꍹ.X u$2,[ ϲt^l6S4iVy<|LY2q^eUdi!O(g*9htu:#eOZIp-DLf1C,@g̚~x>rW'uQ9fX@NI2%1UKrʯ.\8\nyunII8IA+4=L LZs=}P-=TĢ)AW**'cM]8/;_K{޴maLf L{fzw9`p)2JW87&u0;50h7;4ti6 $?@{%d &ekaMD=C qh'{ &.@Ʃ-9ƭC`h&S-;SԜa1< 0bc@-Ck٨n|~h20WKՒ(Sm1{XtEʘt7JjI7iժ &+} lbNChn I8c7FdRD̮ 0 t<,8:UA dTKAuy"L3̇K\>mA3+<'@P&'jN,8),^ASD,42ɨ$%=[@'$;&sn9 7] H!SY10@=8.LA WoS7x3Lx7 ejm;3>^}{{4:Zsp7uVvz—dŃBpsSeoLy3C2N RPry|i\ f2e e|-^fwwҥvRxzY,QTKeW:ƀl-B?+X2 ǨWup4j(( :2ܝL:*'18ӗ.X'o+i H2,𐐽"Y'{~72Sh~hkBq$3-េYϥ7p4qҟ@ocBrohxPl67+.T>P.! :#t>+ԥ4uS/ɏj2LSV@~OiL={Ô^[L/*3naӫxh`L*5#"@wC-,Olag!L_+OjuE^+#7<-\ XAs`*F`og3 W/3Lj<6*hlym!UPs.Y&)=hM >De%hw u<+s 8eK,~G۾"c\&]x|zhk 2\6Ҷ߹7i2sAysx.pU|&L((#ǻ_t"@LZj >e3P1t٥Fʷ[?ڙPˑPDuP2n }Kd;2j2jVx`Ѧ_亢e6:#v!of8O3P>>Ut0&,KD m2·ʘ+ uW?^_v|Rƿ+T(Rw)B(Բ uMt0 XψLm$~biA_a o Wy(2>h!D"l/_N(};RlȎ,pTIBNM@p-/CIӟ9әp~'3̡&CNR)krPq_ku{-kL1wps.Oe| eLѶ14@ɴRPfN/)F1pg1OJ sd{Νs5Fc38}(,2q 16?eP]"(]eb0k䢇2fiuzzz-||qK~7 je:Ł-v#dz+<c C<r P6\`iL\ xw$QX[xa)c/~?X׳d1RCs5PW}Ge*c2 z+vLU&` rv5X_H("(8OcOd|@ 5sG>cy|:/\q\WºNR(Sْ-|q1h7a~`Uc}#;6 $L2"I`>!3aMD<|&OdM!fHBM#r`oalilEEi*Ɇ$7*z"%sqBUe"b8c0zZ|\޹9m< (t߅vPfW. w"6C' xIeDgle;{7' FHh3ދzw ʰaa](^Ԭ-Κ}?o[B62uIƣ2){ˆbMՑlygfKN[@F(èeTʤH2:(J8;;~xoλjUu3]T241jʰx~(nr6ך*}nf;˗з.S5R֬P&3gL̺^&- BHJqKUor %DLH|*w#^ JG1x.1t[B gKvVDKGbLȲ0>fq?@M< LeAĀ.6r$I=V9:>z|-ϗRCj%^ݝOEZ`TАOc`}€Rqwwzd@"lK{[2!Y']7B€Ϲj6lwTP=lBc@Ӕp -u۫ -HraҾa8I~wr!t_%(33Hć .L9f^\lsH c>Y>b`Z3yn(BkT{yO5Zu0-mejͬ+ms*}D7_ݗ }fmcc(³qbD e~.# a[(#8M5:ƻvk]2b2s!˂+{_2ZO?X-G+}dXNttBP etݔe禭._ꔝpRaAy|Ɂe|o[ʄg8}yLNcʉkr}Ldm"P3Fʘ28g%00d. edFM)% l 'VI mj>cBdGL8dȝ68} D7g@MJWԦiҀPfW}Wa5<&3`J(ca2OW%V;˰PF*YBaw}n!G*bpW#AW"XueFs~vKR?ÇGɵE'W~nPm0 e`ʐsJ̍q?strҬkeJÛQP2 hek 04S\+2qDڲ$OrPFmhx\I7r{@n3N$ҁ.W-Vzpsl"B@L*_% e$Z-m>Vĭ­*$o11Pf ɁϟȁR(~s!}߸>_:w,{ EQ B_~~ Pάm ie2a`E>Ϊe }(ֈ̓2 se̓Ey(#] D;U\`(3}cO<}ryr~ŀcVh(Xw(ØexQ:F+fv/6zx2&}Jzh"CE(ÊH>\13ATPs4eeȐ| $23dRt ejɅ޹Hب-le`wlaXsI@!6\(EFCr2fUJM=e 67:(?𖷼XźXxD4J8[SF BY_}?>(2 sx*2 #t'jw2&ojچ@ 0ټ" ge(crİ(6[<+g,i2ɟ*u[U\v;ry\]-cZ#6af}' J u. Pf2kIm: PѨp^H_GS3vRؐa1AL4|?AbYbǀXl _PgFRp.7oBoMACTj 6#WٶcdFI'aiƫmf IeAsek|KzzCQ~?&;*jiC8АN/&@%WyXm@3@bgspb*);$ʕreSe(\&ElY32 eU&A,)+ 14}߻un9o߾>LB[c?o~W VVyM1SڂpoS L%gא2bxb73PFplfLVRw1cߎQ(py:A+Vw...z[5BZ;%>RPf(2(}ekP`Z̗3͙ʢ@ t;3WB(#A `B)1\p6bȢu(R3hWyQIh7R> eP)Y+ eLrQPzR -=Uɉsd}0ꗩ.N~Zpؐ"4D,YbcJѭ-E#zj(P"Xubں)'?o.d X9h186+x S_%_2Yi~1+;IH[y;ĦTh[>7p%2d5t&ρ+ȮK 뙘g  .c[Ws3sгoےML&!Q T&5?4\3\ۅf+ZC~h-#C¥$kr2e?}կJB_bEY]eH;@drhuC3ʨL ߂.B, |5Lv=`BP&YXhIؐqveb(Z{3Y8Ր-<`w}ԺU='vs^߾{zn2OU۵F~P/Ƭ-ãÇr4-Nݒ4yPf( ܏ˤuUJȋ%c HL:LEt]1Q8!+@9:(X(+SZHF;.s "v'Ϟ ` mWG ʰD@"nJ؍o4m[jgLI16f0ЕPFCbuW|Mo}+_ޯ{bYBdKv~uvG]һ#HY Pz Y%fi&†(?ffPX^~0˥fjrBK`bZNOOnMӭjsz`.11vkKv ܪ3f?:_WEQ֑V 'RNW]a) ]%7eTlam ]k>?rGZF(5Rm~Z)2&,ƨUvΝ7Mn陱γ5ic7LTefPF3Ŭmˇ_{ O執ZVr17fZ豰9b2(+F氿։ e؉6 NX,,@8p)1ўAuIE"y 6ʄoNTU;99?Zd>iz)kPF&] e`' imYG{L1/b! ;,8Fx-Bt $2ĝGiA"iSp3'!pP&` BWl<2+|+j:k%e)7G$,]ˮoyiM6r)UԢKҀPfRMJbh 衲eZh)2M٭=ZP,l֙œwf16^NK@/FE'Ux(Ⱥ\Ե/?WjIsC9-[]Ű 𲙡oX0$lkLI-*B JHExd qDNmm,Hз"-xӝO f@ӳ>>Cˋ\lZnZ0PFgTgB0PFe+TF]KN{ˣZuʔ2Dz e . 2:7"e%eq/P&o M8PP ѶN>2^QDfm'ÝD?w,,LSyL1?ޟyr!s>JRCb(vB=ьbh jD}HiV.~o>-&UFWapꀊ>Z2 5~#[.U%/ӏY.Ţz0)u^f(3l{QYŸyW< S"(3$# т2ANTw`-1mF۷{4sn\UUݭ7ն6]OeJX:۟e97^| G].p~6\1('"(_E324O߲R#?'29L 5k~gь ģue`)㗱i-Yk&g9EBpׄΠs]n-Vs;{4@EJ*㏟'iJ exCDlJ1N<P&lҘQ([w|5Ka4`gn;@wѹƵ<^#]$N ʤ@9xF]På30Ip.O|FF[$ڦ bDa) Pf0_L0>KyMӿ*Tp7Cf^ 2C?ol.e+̆WH뮡\k=deemw`ВC)P=(ÂP. 72J;rL2B گ/@xۺm}^i//;TNbjNʋc5X*j:::LY,ڤ:E gEI ~6st @O60Q@K -g4dјY[")a is|RԧA 'I<9n*y)g, Ձhdvچ^cjP(e@^tePv2X"0P&H÷ѩHKŨJ1)ʐNfCa\6@G-̥)fG~~Xvb} ZDg"OW^ͬ,˫_xw*RSxk[ݖϪg\%pѽ#@;e /FBǟ,]ETz@ٙ ٷa) T.L}e@M8VUu||g>yYoœ;'Nkm}%6xPfsKfL1ZJu?<1˃vҘy5@.~\g-t5R`X72&m{~~O|l]総OvzF4uk3"s8)N2+M 5{ܲZ>eb&5pFYE$Dz8^9Dp\Ә1 CLP@i \pP*VץEǫxÌʀ LSpLf5I14̦İ;Ao$>k!+D+~2)U_eZ.R#%A! e2K[f^r`(  МȽgbݨoZ.e 6"eѡYVe L)-\˩d,?p҈q:Q|P*eXk}N \bj&([{:? ӷ]mXnTvjj[ymSWj[7Xw 2K3;1q˩~𲇎{ 1Wfʈ17DXxuu`8@ ʜPF6!ʖfHLcd+s5tXƂ5&MdPd$R?]C|\$&[$],Τ&R<$aF&4LOyݐu0$rnpB(Ypl6'^6,ݻs׼\soMLm8"ePfQ/Nm˞kmb%RH'E,2v T楁2z*et-eg;dbH^ U}],{ZEjEݾO~j4w//Vk6uce* :q1mj }P̵93LL85 pR7M "L02􀉖բI2@)`f(>>4'}ʀo1([ puG>6w24h(3Ե "[o#,1e`b2Mc|>G}TU1J+e@yeyknCyJL]0OL DT& e'@u(JIؽm0:TzЏ 1x e|n*eYcS3{Bm{yv'==ɋ'U+Ug<tݙʘlPJeM샽[jV&ff\4SWo4)2}2 0A 95Lw7?]2 < _LO3H*Ykcz{&Z/[ֹTugG3; hEezwO^Y}j `))ѕ1z)(S^_8EeRX >Pf &"10ڕJA&oA? "v#!FG =ZPAnz}^soT.i]w[}T/b6  Ԥ@ 9xO,,W4ƓtRcAxW0ٛhsj[vJ ^M@) HW&_+EteDdHyX2Bp9vZœ"]NH_Zqnh+Qßs>C:%[T-k:I-1K vU+N-Bl)(#|'5RQ7R^1P*Q6M}{EUU39,B'[z(SVhNbZw_;ﮛj6o2 Y2?3+FJmsXXL@;4Z PjЃQA EZ7K~H|2Wr"d'M];@>z{O~^w||~Uw"f꺭[+ᡌu*Yx @c(;Iv;Tbph_{.B^7: 5PlרcGED43|wHQڕe6ʄ ImA {"qYJʞ:f. H4TgºNTAȊCے1!8H'xyT!Q(tvJҐ `c(gyPJ 2*3)>?#L\t,=~mz)p3Ts(yDA;PfQ|wr}bV\Q{wc[@"b0NLa0ͷΟ9(RsQo.SP%ZICLt)e ưP&i2s1/NϞu^{||ӵJl[PS5q*xVX]ҧ\n}45=_%P !&$@8*eBOIe`*%1E\a`4#jA2bvWO߾wY\m['MP5PLК2l| <@6@L %?ߚ%[*P SE%63@{37:6]Z'% L8Us_H,%=C'Q>&zۑR2Nq j v2L k L`9%otC<2lvnZʔf¶R<"{}n-?a. fڽoP&b1,RRTʈۇ)P'as/T wMnjimݬ{Ped[ّ:N(D<һJ P[/WsYc&+16@ nٌFi_pIK*f3>WuW|qI.2:RMojBsmXLk_F%%S[!) ؖei>\ѠgwfRR@ "5I37S~K g3ƴ%蕈;ʯD4Msrr==ݦQVm2t*Rc2V%0(gyC=#4civR};+b'}V6~ʤ ,,WYW]XPF-Gx wZQQx᥀2PP!HYXrLW^Ζ Ve83@DKReA(k1˫޽{Uۜ_pj=& eԵ2)1;fj?6'O(7zupp0[.No3,GRi؟APoP~ 02<90eLt A %ڑV)':<ehmQzخ2(GQ~<` a7Jv,>n6 p#ZΟ#a 'Ĥ2읜~,B4c=Z,?7:צ UTCڮ-4`󈠌A(-?M3,WiohLGVmU_y{`# tCP]Vq+ e\$p\{/2x"9+  e C eLV۷x{Sm/כԜ̶6MtVW94"1Z_MBaubtL2K%0€]QuE6n<41AC!g|4T lʐ,ʤh}c%̅䖛_n|3, %@Pf+tB`q%(kC xGHflt#P&v=Eac]eL ;w|; ,qiCQd].,ho|7e23]+ P&lZCn{|B(KP4HsCD@P&d( Ѱ03TP26;lދϿpquVn7Z֛Jc y(c=c;MQy,z0_ #1NM#_~y0ݝ:7Z_bMs='H pA-,c.ׇ2(bఞdBW&ӽV`J1#2'kI+ A25N;aPF*24a |0,09 s 瞄2E%Uo`r5+x{(?}}KJY1Z_Jk* PFY Bo_}_A'Nlߪ(Sa;؛lݺ#Ӻ*$2v!GP&t>&!sJ2l̓؏ACӰ` a-2\2iqn֗/>ɦ5/ @/19L, `P_7e4*{xxX.J1)*3-k#ҋ!]%2,NE,00SC1i T6 "ftaIV;Cs?p) Rr)"N0xa4dm&""K3ZWHl< c)pTi!X<=Es ̔ƊǠ [ M0|~dѴ&bIsʝqh5w~p;eZS9ex S~miA7&r۔mUi_ eYQv~w # c/8`jS NC?PG]VOAD mAPN7f2Xr0ʄEhۃ2CQnfs޽C;w.fӨ6[5uݶ5')q8? e@3]+"LO3^AjCj9)zSоZ>Lyӡ}-Y+l{oMʄypTM2Cp$𞜡] ʐ2:"ygylVOeEKn7:pA*3eū]!EbNL`A)T T@簡"KD^4<0Ny>[^MϨWXFC|ӛ_C~_]8u'm kW=.˃Mw_*d/c3 eBs3n+ Y>ҋH-ym$rou7ܐE$E.BP(g/ue~g)dL/打vn)r*H #06oaMjWC4VO׌RѺ/=Uӵ/;svmT݈ǴԘXʶd:,c^7ޞtbf5uwYy)n98 2H]Pq ݈:nDcL"%X/gѺ_ ,B+`éC>cԽWa,J@/Ko?PrFÚ-P&}祧tG1]eLv<XCPB-΃A.ϟm>>LjZ N P0 3-ʸ */.u'*hl`.d ,vX:GJ+< ٠QF<Q\VͤHW"'IB z1.S-em؇?rR[gp}0:Ty&Ag$ Oz.>MmFV/1SZ$U="[vC2%y5CaTt_v(BH2=9~^wrZ҄͟0l; ת^$23ࠌF$@ ^(rV׮ʤ8{j8RvA(!r(Ca8bP&* {R;X'o@~RaѶmΝ;/޹ueכ>cۦnkIɭ|)Zσ+~ۃ10S[E1f?".7U ]`(cϰl2P t%b.]5ʤL*nF?TE'[ǜ*ĐU"@؟6mh?XD*/P"3XD`wD!څfa3L(d*8(#LXٜ49,k7z߉ љa|^J.bosri(HeBEi]|b(9KC L2A]$CKe)ύ'-<`RUgV5{ziNή֍]iGݶi!uH581BA1gL}r&վqbE3U eLaC3P-:EFKDL Kb|2] D4Ɠ5TU!_(ğt:Hʠ0}_oupbo?yvRR[ n0Iv{MC8I+! ˸ԓ|2T4j=%5#5?3b4*eB?;PSeVտe!mۢF(3+Zz,L, #1:1N*J)4؃2.GP0b"Oe`&}J-Ȯv2\&ALf`'ѐ5Y~FuOn\\Uui4SmP91@Uzw (l̲KLZfSȠJQI=+#uP0`MCCw{dD#P  (cCv/4;Mo\K(}piɰ鹂> ]T|$O,|tD VkL(/ }B(Td) 3m8(?kOweʰ52K@Rb~{(lb5Lzkyؒ|llץċj $PJs3WS|d(-9p5(.u޳7gp\R<:@V]*lfsw]oź2fl2ӄ<%hX_<֘KYV=Ӿט Thk2-2)aG0ubC1/~x Lhe r3ٹ0e`SřsMˊ&^Nʅ"ݥ$!yU#q{pˢ>~`r}>35}sʔ3\MQUF)Eg!6?xG}J>n~ #A 8F_e@Bkο[(ZΌ'&}գmY:|IY/q*Gxi/d@Lf BBtF*oBz塹M4/pqTz][fӵgL&دY<\hu]Wob= pA:՘ q@PᘑHe! eaAti)}Fwq!zI[C,<٘ mO?'؃h tV}P:xp6*B: u@L)i(R0'B(+߈'jb)INVhL+V>̍w$ zPF|Cb~= [X.z~ߕ+Kg* AR1Ē)N 5eB}zʁmyꪽ A2@X)@W z^]\h(3zݎUCћJxkݒ3W+2I\ϤY"5$p)a-C!7'=k&n>-o_*0|FDžN;3]òXk{\grVuә2]\aS$|~[co(_R^`4֙w KCe0>:y(C u S iсJn?ukja1 fm-UUWjc=&]ji{}֚t@YqZ̵wI>άLC&a*<t2:sWqX&K]j2P&`bK9=) >kzmY8shfp{D$**N09ۘ ʌ`2?Lad) M+6 ΐ!eJ>'{U.c+a; ⸣іrsz('ZÃjfNɘKho3%@L7o&2*#7eB2FN̐, eL:JI/2eg;w޽n֛;'6MC{@3fs+uQ&8\}N.s]R}63&b( #%8fqJHTySi(gN>癑w38GB[T$L=Ѽ0*XX%MYAw`TЍLsD"MB5a!RHhzP (^!(]$UD($: }t!/..xO}S 9KqA2\XkP˿|o ag6*01l`HoʸAg[MB!0׀2P& L2PF ci:C^eMē"u3dz(cR{vvvί.{(srqy|۴V{nTx0hd 8+=>xBcamaj?ڟQ2x!Fp*d77fr?Ge}uDnD_A !\ccDXVlI2R*[ߢ(6P Y&h{D ?`OT3}ؕI CX(b/m=G?8r\J}$ـ]g?&eЈ?I 3P&Y8emM2"ڈP+h4MF׮ʜ^7+}VmǤ/e۬$2>`(P?elļXo-sl1 lƠa1c;{I2Q(L_ULTfhQ e`3(Ն tX*o) 6IPThʨx J@ꞴISPN4uۃ+l>^ Zu5v*qWR)s+y:1 \ 1 er2ZbtefgyǫM`pveRPeP档bO.糲B8EXt{]2~t6ǻ8IPf,+-b#@*2 HeP(c ʘAgP4IoƿV'_`fCBZnf12n(|S 5uhUh-y+0t&.J11EPfMp|9U Q 0kЖ9+lb09TntL8 Wh!^@(c e!|7,0'"(#v`OhvS S䗜)P5j#B)e"w߯p7>:`tDR o;d̼<|2}++nXnunٴ@ t?O2LLC0C3ȏ>"x_X`c)CXh,TӓNTg'wnٶPjͶPF2Ttw[-,e\g"H~PZ`U@HiQd=((Q4DC.b uxk=Gg,\~& 'AқcTZn"eR3~ (C@qHV@ ÷]Kc_<)!gy pnj1L#u;- eb+2E [/۵#*L\Si(ФPX=yL\y͡Z(椳P ̢,c!xx0P.Ad]뺩$f!i v$آPi: 7el&TVB2(>imhj:>>6㫪6=)Tnn  jd+J+^`ϘfŘ0{-J´R`ACM%q re ޸dܠ!b:)p)Ǟ)8h >2%ѐiH7(:`ˋ[`2Zƌ.mI(3Y}n30srb6^\BW&\NlCGhA'(y~]{UWw)Ҡx eTtwgRfrvC?<hv?ZPwΝͶ\_=>ZudTʿ2>Cb2*ec=*op`6wPF;( KS͹s,L3i*uόxVr"iR1Kt 1ǫs.I$bU-RFAeQqY2&JPFzڴ!ȴk2OA^c8l:?r4B 뜸a* eƀf?dO $JXCN3wz~Orfܔ7HB(R3Ŭ#f; 3B8Q3crI|?N$e|Ƶِz;s&q`D#S2|Bn- 43Hu]/Vx;sJX[aIS0Aŷ-{eq^w|Åh ta ICͮrs2LG0$(3K3e)-b_b謱tkTT'''Wˋui2MӈG3MYP#Qe@JJV6cX|Z'-˽bpCOo 2sÌ~|ȲP]PCTϧ\oRaU;)L>N\Gpm>'LhQPQO! eR2LZy(.dHV4RP2ޢ")`I' b(3|H|_gR͗O=GW{(v6 LSމr1?(ޫwlҙf/f2=tsP&<&XP$fY(2hF PB"&kJPHe1z>9;=bۊnuW52F*1ai`Тʄ١Dk>Apևyau_ LR.%xvPFc'e2hƴ1ҐY6Hb0u I۝o0PF,|,&,R(QiP-. JJ5_t9PRf։dGQL]s.xYcp#@%3T[ OӶ=bm;Iy֢HKiSPF]eZ߉bP<{^+Ee27hR3' AUVwYhVpgluӉ2E-P`k/Q÷XW&ag=:c@=9z ӵmY__m6{gJUVV1W&L<+% Pfh' OJOF=::uVϘ4Rj2]w?& k LeL$4Hy𐥛|2X5eh}IoTa@"HٖeV Mi2eW:4!哅2Y~82UҜՊM} 2K DǪi%eux )qwI(#b)Pܢr1J_CWsh ^; nxem6A})\(c", @T젇> e؝&j"U )bTZhҴlg'妫<@j{X1=`*|ņ PyO"Vr^{,cMa ^D^"Y KV)8(jMLhuP&! XJ؆I' FPfx}&*!q:V/]#5%W2(mE<X[usPFJnR5;W T(q$rP}EClLIzED" 1Ѕ%3,} 7{giWw,:ZC˒E ˲?}yի>r91)WqW@O4yy2s$; HPz +wo%I9[se2^UUf}v~o\o.͕zRbB  5lF:,T;,Qì]VL3%[v 6-~EPFBOtԊv倠Lh1wY(i(SuE/1Y,^k 7椠LņR]X*d'fݨ(ڦ>WLs ʰ)(C 81qǗ&~iC!CM3Ut󄪁 "K(* euroC:~{v |NkBP2}B?OG^޶MpC B)yL\b(vF`(3?"PF8[Q( p0ZRdLR4.fvۺڜ7mi]lhEVc2WN!W u]3\ehTʸNݚib3&mcFFkHeDķ@U<Er5 54aW)+!EL*b&*L/+:6a| @3e ?OPicˡH0Q q$Ax>a6v$$ҁV& iٔ\Tk̝֍GQm{+ŧ}Z.&t,r6u^]I3!Gcc,x/֚N;`*{-P#}{U^gKP6W{2)Oh; #C 5,u*fX#H zt%QSo Au[tEI eB3Xl]:L?KSv-YuUmzggJcڶbu[u嶪HnK%H#հ37#VRR̭[δ%a4p\vl@Nfg(ϲu FQ:>Hx&;w3Ě\Kr;̍%֊[WO$XOez U"V\'6eTcUt]I JO6[BCN8L3fJ&>YN>ؐ2yPg?c.1I(3 >PfJ`%s^e65P桌wMU52 e~BR C6h!(# P>`~YM;f{z[oz/Mũue@IAШ4[LX`ZC~>̄4- dlQ ˧,ķфϻA@ P&҄e @,BOCzXb.X*C)'wwv"P>P&w: |="Cv?c`L0ac ͎<:2 6öHVv$tX@'LNf?{'JwmE0uUB[S]] (e;^RaPN(e@@&+UV0ᦃYBƠ fsfL\1drs2o# UxǸ^K= 5mnzCfsuzm\UmukjΘ%3FPCaˊ ,]V[x%+ތ2A(R#2He졭=xrJL9(S(&u]b=BA|HTXFǡL\2RFW31Khh>шC(C6=q?vexl&*%w a#ǤnPdS 2j?:聘ȋ(>ޅ CbO>`*?iP`bL8_/.5^͜+Q`c$A*I!Gƒΰc痺.3=`e|z~U˕7S(om ;tVAn{"ƒTMjӴ&5iՎ(/fYwn`n0g/|>?B&C|巎4eL=6OaQ(cSS&>^p1a!ENlbF@ShE$)̲]D>!$̗r’8*C `3J .dIe%' e_巽mqz`ptBmO57CAh L()P+Oz29K)dT~xKoQ0`(Ю+2P&ꞛ2dt-8`:݁Q QR(Q]OVmUWf̽ӓ:Q=ijxTn6g(1| >6pЇ[\@4%BuD/fC&;԰!P&ė?!"DP&_ b BXuBh5mΔ4h>`䛼j<@I n(3c)p$`ʷ{S v"aK2g?ws!=.bAN`F*oZʅݡM*v8NC6hL_A.r^P-Â@A{Zx#X 2"~|M(cu P8ٌ2'2&"2Zvn {㛮lhǴuY_Umuyr~vqʿ21k]KP0Axc{^=54=ݸg­Ū PJe…>2 $#OL2(@s7(%|H9‘V2v:+P $x|2bY?OnxUjP' JS{OsD-zILaK™DXx6wJOu6 \ BV ag#IN3QI2Cl^0f~%H 2m~?woh7/>.$X eBV S4v\w+ɍ幼g]Xs`ǰ_6oj'lU JP&ڋ'B ʸZ(  3J6ah(MUt /ђ GOk֫hl[m;n{SYvvخ/EeWUmLZ0SkL`rUh_nQETW㺮v\wpLƭAa\8d6q3 b,;PT\N[>Ðh*ӁY)[;-:)ejKf|L!=D34Ǹ>0MuMa|v2Œ>+.!U: n9p솹[$J}qC:Ljo@^U C{˕2a<(#Re',P&۶ Kc)~$~_ZnAw? W'F@\+(77`׀2P塌@L cWP0PBӒk1~%e硌4j9mSwݶm۴ݶ4fjl-Y :GPFmLLChmWTBׅ>'PƎӀ:1(c# i2ܰS<ƣ0S> jZUpAe0-D#%cʇ@IVZ)⎢m!XPEEtDCԹHhvMS5(3LQ!P4^inz-esaTmiR%  $5{aO=?[W]8K֭miA1hlCR;bn3֎ fb__E}{~S4ă cd#)C+Fpzp1ȃl4:P*a`h(ot;"mJUU5-g{ps}:` tkϏt flɄS'*c,>fj[mgf{ܫ6볫nVԍmWԵ>;R=*Cl(~İ=♙8-ƛcb&Ü U H)D6eACuЍ+@U xED!1nZe[ME 3HO92C ]dm۶>CO,x U@ :tA$IxzP&U4ee(׶3M b(C;-%SԨRft_ }&x%SX) /*y޻O~hSMk((h{5C)pyQʀ[~(;S|k,h"sۏ"I^9Jy` e\%=v 2*28fNi63S]5v{هfSUe֕jedesR/6CB(K-<8;8҂>{L-(YaE`IC~vBaڡ (K=\)(1D6KQAvepj&*AOd3 6)TuHFPqYepM@ʸD EZ,d&DA!D6}L2 elCZ{ĥ" +Њiljm!}@V‡ .ۖv2Q)(TcN kkWs6d?7x(K.tI `ʏ\_BRP&|;ʼ=~/OA9>ZʌUd+d阞AD"p% e|A ?lVPkwvduh=VTncEHe5l L0L=̕232ݶ^UH5R1*@3@/2Tڻ`jf=)T@ꊶe/! CAv" p4 ҉r>!EAi.S"Yk Ђ1dZAXX(P2ԧ ERs(#%Ldsٙ^--$$p<IT> U֭>bc sxnrR S52}xOƼ\hiELaBx3_7eh/ᮈt@صK}A [IJC[yIRb)M#eZDQ:e`A\<+g;m2['eqP$@n$ 8 @*?7Fv}unח e6=i5tul]m1 ϰC}# wxx8j.a<(#b 9ۊ6a&"W 4I]Ng4X |H[l"a8&_^4 ɝDR+#ؙCX^\AʫBjϴBfD9θi%2NY4 δ"QlV41>S2y.I+8rg&gyiڭP/ lz,#.D˽AmV@ f=XOK7> [VZA ˃pA?L?Q@s_UP~:TO@nVa%U$"8y pr.v}>'q.ٿ eBࠌP2cP9Hx+ Oڣ0Q,AyÔ2l3#n%LE2A Q#`v}8y.2!5/tmJhԓףx]si]7W=̶̶ 鶵PFV]uU>+NcfW6ZT[֯2"рÂioYymov d|U.;#@9v i1GM+p!3{v'*ȄE;VL~pu+,0(3(ۉP1|ڢ(af&MZ;T%8Ot3! "ZbgjNvԃ2Ox'&>:PƆzz2=njY Pe  '"q5N÷!2IVR:\(RUH` G-=(/͍*OqCȶc2hO .R%KEkĐ Bk5C(kr7tDPH*3V%#r ŝ1uΝ׿ѓf\5:`t"P&$FPBU+yB|>+ryHDdL"w^!G2J e7-/T& CiLaX%ɠLOȂF6Uk2٢)U7tNh=>x Ac 9y^kkt~I>cR>NF BA+ipi'^WUݬs[q6=鑍 PFs TTƵ78tdlyC^eQ3}I>g0^2o|X#ܝ)U : pF9Z sNџQBw\ T: "[sB[I#08^ѷm&XS <Ġ&gk31LfA D7_*CcIȐ,o2w2P(Tq a9})}䴇2SG35s ʸ%?eضP&7VB34qȽ$io/e$8{f#^)PM! I " ڸ72N$RJ{v .u!PZ{g3<'pu~a~{N/2 mp5slHeUe^{(ȫ_av&t@؟zP!4Bz$&*@+hWR0'$k27gcP]{-F iƌA'vTcd㡌5Udט+Zgьn굾jP&cC&0%U@KēW3ѭri0^>K09p~6jF,i&3YcS&ME*tM _9kJÎZxދ$C()@9!SPUFK?IS}w?P&U83I> r`*֎n>2;ԛ7Bۇ׀2AHs e _C/㯬m#dbB?JC/zr: ɵS# |L"v!2<h4&^} 4ĤIc1|%ĉဩf{$cΪim}t(cnHi3j\2Y]b'R}bV/CS< e젔ii@"!(1@ÿy K|JF3=`BeR%h&)d VPT(.6()]΃Td~"i)ҔLZw J[fձf o#pL :7Yt|c#F/ Jy(cPf>;x+=yV2"H x1<qPVu:FU|&u C1ݰ]RE+Uf$Je:{4@{e؛H7{Ta|m{LlL eyݖ~0Ηz(h:Xs e5ki)\o%"@&b.DMe&&4"70QԐg4!0fbbQfi2}UUgB=TuhL.(p;=8mTFV6{rSm6Θj+2f>BKh WP&D"ҝʭٲXVGBکd1i?X8.*R3 h!i]&< T$PLd !z2>Ij@wgHZn 3'(p+ة2 u -eJQ;CuD2|bdlR>`O)A͑B8ry(Yx d7U-HepwXnc__|r6oPgVn Ci+ȅL5z(~ן(#Lʸ.A 2ذoRh- 5}cں)ΏvnW5^݃8"ƟY(C֙V;ﻠO8sQ}[]{յʴV"@d&! CHH촣.MƒZP”PG7@WL*73 /a kA5RN2-8͇QJy'1HFqml3d.t=jU -]U7'A x5B(3]~eR R̽ wU}y}HH6ġ0¸SqA*cD]@pjbb2bfF3Zi Z,$ȘU"a'0A3v9}߾_>KYZ7gرWb*Bl=Z^w9;qOePee"a#2~#yޘdz+kA9#^epP>O,2A JߒҌ!)6yceP vSD"/1W!j<`"(Ȥ69̻%^ @0%vL{Ǡ0vaz Cf'D -;^U)(cDcrP!'W"@6C: eR?46NuRkSqz2=HY L~a`v6jBVBD*_,secs2wedbYjʷ /UQ,I=꾬RCBqWT XS+Q4(w =|=;}csq u0aH-tI%Muu-R2eB&oZ- p˵Z̶U bPFݬt޺@) C OyO*EAZ'6 [] *Bd%(e-pzWI%ӈ!3cS2D7|[36#~A/Ic00j8(sQ ÇSPn+LC*˝C3ti8uv8"h$Q5MXcLV' @\ ~~~q\u }m ̻4[8Rᛋb!}ד֠fTrMsvFZzg]߄Y|,ʲN[Di>%|+;ʃKteOZ`iAN~u5EkV.ȫ*֘}*ɠjȅZ]xIPf~7b{6(#P&Ǡ jʸ1ه}؇'}\!+[r2XGB+P P@Bj %閯;ABYU>aQ;2` Eݏ`h_q f$ٛUmIh=%'Mp:igpIǿpPfؘ҇F2b9'` rӡ{;9?}vҊ@ aepܵhMhҘΙ.iKS9t:edB'vlS2)R@wF$jgay<ۀFel6L^0eKj֤M Y|bЦHP D &w|'u$_2Ňq:]6YtDJ)+$N8 MىԒffDse&]n0%4r(3qʀ2q:84seqhe@F16$G \Mxɕ H>nԥ=6@9%Pb23Fe xmWhvz}؜5FL( zFqLEyՙBg3ӃE&*Q; ~B,R\Du!1r-:/]΃\b6Z\S٪FR2iK=wACfr'݂21'L //3]T!Kϭi."k2 2'mX2O#uLj+jI ʐ,֯$y B<pS'|nbU)Ւߜ|L˗+J# (_t2]ެ/y^ҟ?q qKKk~ >TL!Ζ++h10 %.5kd[#|6Z ]Q^[L}nekfP0A#jj4 Mth?oT?wVd" t2iplɛ_EXŠLɮ!73^zIگ e(t!0i ܸ]R})ͺ/f5;d\Mn2;Kr((B9/k@ dl"Iҭ盳m eP%sJȝdO^WBDptyt6 2ybrCS$㍙gkPUVEƔ@Zy"r*:V+VҨҪ_ 1loF:eMmu"Albɧە F URr!D5 +W vWXYA, ,7Zg/6 &ʨɼ/92t rL8(㎜ggg=g|Ƨ;VfnC:(@c| !/v0 P 5fna3pϙd3vèdu`b_DZaJx?KsĠ 1`GsuqR/hPƢ$tτ%IS),7QPPx39"1e #Q$+w| \һE>8GL$Yc#n 3 3H*a:O+zLf穉wc!=}U]՟ڳU U oLSgmZ챓l7:ڡY`%_,(jUsdsyPJ eT@̕؈.kEǛJL:ʴS|#LJI~%!5(C>+/E(Ã28#Ajz~72'(ꝹdirY(ӊd|;թ4:R:͍[ObWm3.#떉%(l\쐼3PƢSI g:(su5^AA0Npk ڃQU6rZ̈qYuZ|QT2:ѹuwvb{~¿"=m ӅqeCC(҂UP2lj IaY5M'F 3K n[DUz0~Q"RO eCVh?tb.a :ʜ]w.zPB\HVq$'<dc|͊szh,8m[뱕|Mߧ+\2E:ɺn^dZrmRԡ :P+[[c;\`(I^j-Yd;wfQHɤY-IV]ٖfFސ؟y>(2W?q}7~C 5>Pͧ2/򳮨A^Vg.Y(<^ѧحyG6Lx ioB23V|2P@Q21eva2á ISjQGӌȘ9(u0㥱cƁ02%=&L;A^a>e9cn[fۍuPqC1AbFE7-XN6aCpWs+&MjBXfPFKkfvҫU*G9 esP_@iE"ŋXEP@s+u5zDYqtLI*E.NuJk=K*q&AZy*PMʆ&Y"?K &l52& 2Aqupf?zWZSQ<,A'Q\`5ӄf`|ms}2ԂԔ oԱ).t,)٭s7h.'t N 4;V\\60OCSJucmOѲUsg뱻7QJ؊ >8#osY)be_IЋޏv7n 氟.%HLWa1jDb;ʄGf%{6-peСy78Ljb 7 d82KCǙ9[߾n@ExDH~2|m+}iZΕQ|]cebeɜCU_JOn3 fډeIWM(srO Uy2Lf֕`㭭+c/ǴVW[@!Te (9(s||! & 8ں3;\~˷o>g9oMWRX5HBqb"7Nd+flQ+m$rR6OuOۤ+neRM)/&vo]2va2ʠد4f8LO8svLvpJc RPܐ N O앺H1VkAeP+a цt,78+gSJ2 L7]9 A=&v'"qV7JP>PH,~[KIX*AJ˱d>t:x&Y ejynF 3w4}7?@jּOeYͫNfGYְi 6k2OzHip,m]eχS KĿeF(c@1Qmkʘb \L!L׭ʰ=2XN|ȊU"H>YNjW YYV&ʴ<7QS;?P-Y3Y+x x=hw QVrPfw58(h3 a|G2g3@Ec㍃']P]3*=(s0KU`J G*M( mm(}~u~v?W5¿e֩ LhK։N efD2Zr=(Ef ={wșo2J8ׅ2k04a*"X-&rgY2AZȡb03Lј2.%v>$Ϗ1]Kwj`{uV%ʧ;$+JIpsJ1[-;-gd2LCՄo)Ox+^ҎlZ 7o<4- E@e[?gg.?wz#_kkni+V1L̪+Jh̷М¦&4SsZ0MeΑy9 nX5n/v%M9x槛B~Ll14i?jݑl"Wfy|Al-O˄+' N_\>+p_lG mh,89$3*)to+~Tŋrm k<ƿ˜5}M%Y)FBqw_>5 \,•aQ1od M(FexPf)O%.޶Lso@@3sոخl_2>)vVT_q 8~?/2q h{ __&( 5`{8@hsZET6yjpW[5!SM&[)j&a*KE^uB%qA=<^5ՎiXu$A$]2p}|W/;OCߢR95j52bT)+45r%¶o+Cujow.c{wM\=(v@oY:L|wlAE (PSp] {T +cb;Ӓ 5r"ug`qמQ9`92fI$fUzL91`ngCR/M(%o:I_7w* g?8 鈥"_:gU:Si(c6dfL+ ͜"(lfFVnQV}+'<"/#gҒP&[$ z2oWxկYu UA@j! B[U~W\H'ׄ2RLa;Kf y]G#69TECOQ𠍮mYb-sb3b.AH {0G=wƢ.pe`PDtB~jPF!Fm$+C M繬A\A#2HN ZoEJcB \2瀴P![ۜݾ}۬S+d\j^mXeZ43G39IPx.ɦ=+[d6=62"2Ef2ܾF4>@H3gykS1NL{opk9+ZP8Vh+IUCfLf;7:YgLeLh,ޔ沆N96ѳmoyCtAU(w^m ʸ%_?~7O{ϕ4_LC4jPFhp)%-,o[X-Fjap6A4mʤ:f G C8ODlҔt G~xWGKP"WCX/G; [7@R`N̕C3Ƃ["s@Sq I &ۀ2vS:~UoKnlv fٖK=&r-7Ѩ"<-P./xr6+hrj\Jׇ2.yehp*gsc!bd+tRuv bUHΐ*mF^+ h$+nAӀ3P]S=/ͯV/ͼN>H{+x6*7PfZ_ozvqFe=?i^ prʴ0a?H܆[k5jAmr;.g }ZM1=fYqnC+8b"`GN9 f`^]:^a"0j mFV( vGfyo>ۥrPi[٣vP nWfʤWWv|۫Atcdq\o:2`q623;Ľ&Ty:|z̄UUX-*kQVVM`2\v&gAdPWl߉xcY,Ͽ^EڕV’4U(ckG%vz}=ɛ< a>,INdU[L6|}fKP@L2l.E(/}?o~w^4+1BĨ mR P&IP̲r?,2+jP:xSVCE/60k4*߈5m0? M+r \mm,e.O=qP5Ը2J ;&k(} dI;(~ L hqfLÿR+;S(@0x`6( @ 9818=&}ޕ2A%[N1ܜ7Tƭ/ @HkS+UqebIt7Y*:ZYyu\ejfl\!قuK(S?l s_NnO.IK&`9i*ʛ)Ыl@:g]f4Ou3~s.1:vPy w,E(CgO"cAYم۝K1A=c$fy(cAJm^ɩhE)ZbT-"l/eB]#8{晹 IG01HɌ0߀u[?8d}p \1~.PRHO9(1%[%BDŽPc @n\ܾ&(3"oqjҞYZgNp +rW|W*Lk-2RcU|oes+)xM4cڶ-"JփBf pǛehAG%I, U\7_D|>-ȮaseFr7`|ؒ҇8,j|*αR5ng\+8}>DLOg/{C+SXne׭aZ7|~ h0:?PŪB|H rPҦx6ޖI'шr g'AsKbjb$n}v*t$IޗF~ ,]4x!JLK>?nEL@ J5\#˿6^ثF%+2V0g2MX5{0W țqiF0*f?tFeegt_La ͠zU wCLPロ)i4יefڬϞr[z 3nٮ4iA2X 6)6HD&NP&b2eM4T%&NekCm+<!ɔ42E5 s#s\PMdoۉ8;m2&p6,I S $\Pj`3m/z~'Y](_W\|g}߽CnDrT-p;aHtjP$=oŇx;RhoUHq=s#w&܊/EM\nklJ #D$I@wBOPv@a^1xydC@̠_l=!LoWqnt9\L: I 7KeZVdh8L#eɵdPpexo"qk,"wgoζkteiAy2;Y8Ti+:w΢Ty(#rJ6^]@U[Sxίe=(m.Yki]0**'9 pmRJ t.#"2 LIgWFʜ*뚾2KLHU;f]Zn%P' XBLn7y~f޸C&@V'+#fsvg=o<Ѓ`ϣ3$[<ƐM5E *Q vl/FRܶ+S%eTmʆ/\i&c$o@o.c_$S`/uzB힉6tD} F$wD2 L`CCvGšL"H n+7BzL )$A K3m22/,SHۏV[%Z@ؒA< (tW&..:ZMMVfPOƦ˻4n-sEbۅ%́+eITXY#Y(jĄ는՟ J({5[|5KdhCP#u(smrޛ[fV̧U3{rDb7Ir\Dji8>oşjmǩ_\0]+e=:lҩrK$_eDRO3HpKZrelz8PF36,hfl DJؕ?ѕr%piIsd\>`'RwЃdQ&5!`e_f1vE`ȳyAtfrf"6seL-V|Cfa¤ӣGU&V Ez(3_EPda&xߖq|m2$W۷6g[_JCVM~[ILWFBr|1&%eWK`Mvs,fceRl-h"'b3¥TnMfL X'n k{(3PL6Sד+r9zr,7n`ɅLf"% YGTaPf{W~uۭx(.2ĕqP/_ԇ~x{Eٴh~ ~veEϗ䀭{2gVN3lpKaʤ%k5W+3N/i7C$eX,e@JFL0%1 :4`f| A~@B7^nS +ƌ%(3'6Ffer3dC! q"-b{qޯW(k&U!1Y 5H(joLE3P&9bP&[l>Oq$eX%cX4'\P'm4[ebOBLqM! ><Їd`DžӒ3:Oؿ}SM)n"&PC@3ޛ͟fh㉉˟k0 O0^MAս/7~A'R}Dk<(ӓX"BUsG}ϖlEf\d./:-iY+c޳L"a+5@CcTeo×2e227䇇Ԩw]_4Щ e9H֪}i}MSG `͹6)>Oʡ:˪fP.qS)^O rUKZ bmLkC4lqO٩%Pu\ݥ]^>y}᷷5x!n@/ k@1CHf|'|wUapJNZefHRnO򂉸2#)j> %~OZ=4 p[ B qĎk#«#ަXo֧gv\DfdoZ"+t_#]ˌn.'^kDio|iH nˣm] {٩+e2&Orpj< :2lU>N@O5Oc,E2@KKeт7uE9GJI0;9vITIƠRٲJɶ|ڢ3;Z6%%etXQnAOf<eZ_q+I9S qVSAf)|4uHfՋƹ[F _ YY'WKu;)媛>.Z6dC }x0ѥzuw?'׽5>, D4-*|dH^6HaL(%lBA<р-xBRrV&VIY!O]Q(^ qVШCϔшhv m*Mg(X:&Q_pkH¿$k J\0HFE ʖe #ռXSğ7`xo; ,#0<`cŒ ,>c'iPMamn]kV8)y<<8&4văFi"`W̸~QH[@~PpA~6eO]G<њ3K4'KUx[bne,  "[}E1n_g eu`߅lu_e2{.H|e"CtRPr]04(*2ӒM2%zֳaB 0M21$:6gyd&一]i@Pǐ%*Q(/LwȖdImpѫqG<_Ĩno?zׁ^5!l3ɵle.21eI? Yo7ۋvՁζf^è(;[[jAy#3mʿe AB:'2HU2"k5OmB0PhVki%Ck׸6}VI2'4hfDJⴌKОWBhi/LoێS)AjU[]"'McN pI(4V߹>@娔$2Z5y?8x(CR;!tL|Y)#Ǣ+N JE*Pir`ELLCƅ jb"I&e5kfX^]4E^o9&21n7fH*&kFAxȂ\;w̠ [Ѩac"U\G_{T]n8h`[[J#t Zf bͬŶf@"1ZA^ U"x}(#2*Z@b.D6U(L&c$ξj  D*Fi(4KN.걒dU vkV7o5*ohqe8p!Nɕ ʔ$=~>+~dRe~7 ۮsk<\ZXe^VU?^W'~8:PB \ .({%}l5:0ѬLʖ<) 301LZf>:\ܰQ-KD^E{"nbo4˄F 5@ȧpL!/@㉄cM ʜ m vBGuV++g`MLTrP$8uT/|IA7TcmQNN:!1XK?DJ^`4ZJlM{a:<Pf'GV^M^4P5f4z⚌( j<Ӯ!37Z/\$!%* \B40Dhb7h *Zju4֝e5JAu J+[SKeb?~b #CP/JV=nU/9DH>%{yfBeD2p ڎmE +=|,RCGVZ?ةQ~meuV˷ʧJ?H'ە.Vuaۧ`rd֒Mf ղ1FUĆ/?^%W{1?d-%(+[PU Ṷ2xR_.Ο_]]ڤD%gZe=ԤYㅎH_/e 8^rL ݚ=pee0/qTH8fBo ,Nqx.2Ƴ <7G %AT6(>;pƋN *+ A]'ZEߊ]0w#6˨{2V(W!tbPH<.bBe2.n3w4V^kC.*QpUYee 0#RB*,JO)eT~neJs2Psuu/%&}ex#ea j)8u8 3D]_5BGZʄ3>4-x3̊L1INb8?6Xrm8;Ā 0|PTc <ƣEaas0נ)qCJϕLْeo ~vEdV`ިKfc!P]&2fx|dLv(@*Egp\|C6Y@ gˬв+Y(N)OfO%l蓆q|XqgިE[ZT'_Fo yj< TΡJ:: ?/ %ۓPU(CL}n/]?w?4| 9(Å%|[=[ԧ2MkC49(C2pF4xB!: WAS%wPbx]W)cMS$%jX\!j)hޮp aǗ2sPz_!ū8(cXuBC3A[y6*rm2( .ie`ۋ-pBᔀk(hdS PF' !kls"8Q3T,(+Cd I÷eV#cfy`) Ok| n'^M A(na[xy"ƉoXnlhJ!!r2oF>k/Q%{ftL 2q`8?E=JŕČ1w42f5ؘl6ps^tPFEϼB)7NђF*+YdI}2efHM:Ӎ|(sg5f&ΡWja2 ja9z{i.[Cw(1[,iVc;py%!їSǟOCz?3' (#;Vx'¡ms ?0JJ@l8r2 +N% RpCNQ&Zv,Ww)Mk6'c~hxe)=N.0W&J7A=ƌEC DļIrޒRC.ͽ$Xnꓘ B)!W}C }UPq .KUe`z$H9Z2bqތxA8hrRWxvWPF\_78d!,& ˹d(_ >i{j!2# ߑ Fx*\peҳbl/JnDMed1]ߟwjՑ ]XY{ǐEC)S"ͮPVfzZ*"8LDӸQfk.eT1h|"?oeHިNl~vMʊyHP(x϶M6Aɀ2r SJ^0աL- \高ϳ&'[|.29l&Mǐke~ MEU(Sɶa2Ju@$q VAg?~ix#^܋̜j,Ь”̛l9n |'b}l2*`wʨ8q"2ptPAaxT\$K7 cOzNB8^|[,_=[x3pm4 k&AE.eP8wP Jvz3\)&j!IQa"hnun +C1W6| 7^ h˲p*cp$ .Y..JV $ V[OI'4K/oFE4;[|,,Q|U| YP*c Bi9UlSQ+}kS,NeN2'r"9WKY8M})!1,J8bw_`;2OP2rAw @lG_Ͽ_M2]2AkqZ H>SX&y*D-.bU"vӎ ATf6 1N,d07LO[D ?L 렌1nvPfA/ ~R .J7$@apb#KC1vmdҷVN.ZŞZ/&݃gAՁ2d`LOd A(Kfxl#qɧoti-`OMU^WdFVՅnM^[Up\@ "$LW4U~%Ăʤ=KfFWfȹ2\)6J[8 | PdZʢITXH*Q1oD9♬k+ e``"YXF,olwBn7NJn%ݱv ĭyخ&GBh:NB>u9~̊JϋjLu\{"q'w|nAz 7L}߻8^m~s<ϽE/<*֡ e0P[N=#y|(9TIB|@i'LJɺnI&06S>կ}Xh#LKifa~a- k>l,/IL%chU;yKۦBיP(vAN L(WKjw2a"1tQElRf&ΓQUcSWȞELy3(pev` (cAxhA0::,!ǚJ3S4z*4+Tg2n! v %y`T'(co+c/9Qf(vNA/)=?ԁߓS+4C6a "^W E(TPCQefRJʙ>#tPfɮ4,3ih*m2';~49IOd/6ъkeG+)U}9SU@o&$rhW}M|qBɟѮ5~$+A4G9K(dkg>?q8WL=հUcfH9+MEKr.pQMor$@İi:MPvHM)>_%( ? F{ l(6Ĭ+Mc:--F{m&>sbPH hN^z ѱ=n@E(3ZPF#z$]>};fxoZz/[!dK@i0(hŁ.T>jen "kpQكț2.oC/٣Mbb ͨDclU3FYf>!1k`9gH@+S$f!N:|gQ^;X Avbeb8 OKxLZ•iik2A]oe̿8甬Fp J( a+e),]i`FCU?PF ( +5A{絯ݟ8i<~h5wNzmkgo+Th:!2[:Jh3%(;#!B3c .@f -BHe"!K2X!.WH\WJRb׆bm5W ;ЙMNiϽ6U3OxsJRm+|SXo]]1E'˔W]ёQAiA,)y3uւ; Z(jEFMGz6!|nŷr8W/}OsPfG}A|\O}E]fW>cjEjvzWP&m qe?W7Y0MRZ'2Jd/I]]wY-J(mw0ۤ` :Z{ iMʙr{i5[*yD?3ʙ=g5qA?LK/BIph`_v=ѓFjG`|MQ^b:MČ mrE (tMO0F2Wy#) g\2=dcJvh|1 _?Wȑ=KP0><1DQlȊK Ɉs&='ĜAPT7_[+Z5Y~a'WzL; ed]k͙ߗ\Jhlъlt@aVn(Z]MF#e.nRYxUqMĕyK^(PF1$n/{ֳ>'gT@[XLh-JV$=9䩴 aI.]dI/,rW=͗!2 雥oȾTALf1]dW~Xy`UORO emaZb>tAWK{eobA*P&%4(FI*f$;/CV˭d/tTIZo~TE |A}=BMVl#Y)3HY OqR{Ey3G4X9teԈ << J}N5+8C 4 RDH̠L $1Ij.AaxXyVw`wL4hkEKmn yqi;3lyw6Ӊ}îZyR|= ϰuShl.*AO+M2sk~#[R.+mf(LVT}'e\ l}L.Ʈ]e|b[pB3HOX2={C eJIPfq/\Itʔ%Fr(chDCB ~ukK&3 E>m+ c+XeՒaƌ%0ɀ޵2Ż$ AxQ!(+Ay-(=RTUA{C,}"!Me 4reKup<cf8) P4Yʃ/M\7F@<*NM%S,j`dko&|$ *;4 ?F`i^-L=6CL̈́j\Ipe8 q]";YjfnyμJœ[F5+s (6_2YLչY72 W(l -pA(&ؼ94k=<6u7S psʊP췡QxOXa2=]U K4i`g coNO%w\5Z ¡ WTC[%oZmΖGPa+.Tɕ)ҟ,0TK“eT[O,f&l_-(-SJs`*C 3P&Mo&,2gUbeDx  R>_n^WLKOqXN뵃2_䫿+  )+lTCP,&PK)LD_ژE$2鳚Q^f"Oγȉ>Z HR>3ZygrO%4ō1_ųf' ٥_RONl6z{<+꛾./L lB_XY e?F\Iڐ.f:vcv,4UqEP&N^)á X , AeeHx/. BhyT8BAsj P&5Mx}Q6xtiHVf[5 [bĘ'j?cr@WЧ 5T764.O< =U<֭[O{.nv4mcQd2cuW Fޏ1 h(%(rU_@fΕ)&OYsw 4Ud->lXu>L*BeWoGX L!^VfnI#tz P 􏴆<#%c)ߤl,Qxi\ט *.B/__9=A/Pfl7~=|;׽bF$&ĮM3?t&dVO"?F1(D@j(j*HD CTulM :%ÿٕ(WG"Ec2%۠BV,F3.8L\r tEp$DI߈&6!Pff|ެBMUZnT2z1P1!ve' & v( xg/#h4xx@Ȣď+OOg<~ {o1X ـW0Ĩ֠e$s$C @q(^s*|[I/y6lDܒD|łKTRf+|θ mJR_b]lYILe,m 3P -JNmErA}fu%]f@1'3 oB)*2/~K*j㜑([7!;q_t˿F.1X:6ͫ c::jv|8 LޓoIE{4ƐcP2ԟ6ɬxVBY%jwdf,T|5^-5sJm=&><Ɗ2" K8,赤rȒQ2`4jtl](9\Q%JDyF9=Ţ(:uLj-gy7mm&YPbrV1h;9wǥ'ʃ .\0y\b1'3viP/^ (#J>|GBޣ4sO}G|G~DZ;l9?SGrtc=v[1=d^ݨ#9@4y&' s\RFHTp6{Nm' DC|rhFbٳQ"U;UN=M_re?YP$eZ9,͉L clͩ1;D.Cۉ;'>pLxe"FhBTC](w<Oz =&3ⅺoH1tqG(CJaLj(oLf'p/r6;RHu[ET7Fm<w]UƐgK~ х_GI?"LxmdKPF.ײ1r؅a(3&M SLnHIޙ|8rݚT|~@urrb{zPF 8b n2?wyiX 9ӞUa(ђq"P×CPƋQWq/ۍB qV;=8B5lZR\_G`s/sFЇA.z28fnZuh숽D-(CCKl-0j싈cw^Ii(}fT+-)d VE(j8wNy+~ &!-jpp 1ՙo^g>{t*()8lE%rg5zш/~ї>eLYB-gfbfͳ1BAUHC<$.·cQ >a"Eg>yS;e ғSAby9;%:< ,"uRʄ?!0`i?<ރ&= oJ]}Ǡȑ /YGGG?c}"(#YT$h*{ځ7 !@⫾/]:8ki2[<} AlcdKf]6㸟QR2e21$jڧ@S衕 b>Ę'ւ!Æ \A[K=$r}Ē<OBi! nA3ePK[+AJCA>g6Ds`S211M ВK-I*3Pi=if:?+cuDBЮVAh2^fR]?e 1#'p,2 + dB;a$"hkO7 EKMAxl$v5kdC@(2X~g]p=븱!e/h+z#KWY\_T:hL2C ֧Pfg |vtr2kxքVFPlԨi yk_c{" eN bW'A|^PF_iw_l%,/ ԶIgu`H.`Pƚ1;XC(C4< e,AZĕw|R]1hvB385 dkE ]VpFP z<-`]@H!j3WF1N p\z,+%]EuʐEZ5ʸxLn kf"H\Yn2 R5VCPAmn\yGS jЬ]# j۝ar̙e S5K0&=4`y= W=pl$6g MxǭzxkbxDΛ el?Nwi~2tQ(݀md| (#Bȭ|120͐&?:.~2g=NߧM{{dVP&% POy5T1(ڵk<ӕ,А6C)PI @{aӮl[-++jQ+"0-B8"6 2~@v+`2N5Ձ4 iO-/ _^ˎv&BeutH jҤPFte 2_{qo{ POH5>DvC$CWzj|>`? E7,0ju!˦_/g;ffs )cW @ i$&1Q%_DH7$1#b(Ή_Kve򷤓|ZpO[&;OXPhSH7ZNCOrseűQmBRL OweNK! eфJ?/ 1CW؏+z$lP;_~2@JAIT3,3v&wG[ݥ G3h4VwԒj$@*d~ 1y ܑ}pAQti}^f2[ƹʈpPF0"&=#;Cҵ͊t±ml@Le7CP.:NeXt}#ʳd$0E @r|\pkZmF@&5D̅Yn[!⬁˾kΔhi(ʀOrFn(CqeyI#E2eT YDeZNP NgKR"z%-[$e^L3heDHu#u ϖ-'}pQq~#]#+'elJ4N ĸ)o +c;p@ }cGR43^ϐ{-ȅCk׮7\+F!"Z8i0bbַ~7śGdz -s16O^0q Eɴ:pӊL=(5Ew0o4Of1ɀw~gQAp(#i{c*k8M/4uYJ:ESЈp ]b~u3=4Y~/b‰,Kʲ3Ƈ>l}3ȢJ9#X;&A7<5b_}J]*Z]rUkPR 'ܼ~Gz助UxQ>L7E/td$3#`@1LN 2"ڙjG~k Ebb6 {җ(O9E2!ۮ흞fK痕TW2uEdkgܸ -Z[CPfdkyUP'%@-BDʁtOH$e(}v"qԃ3W\y͏u~̼<7oPFәc2ᛟIerhE$Ӄ %B| c"RWAل$YdmYMv̅<:4SAuUMيzs?Bx-ƒ$yʬ!:eҪPF8hH:$-Y2TMbVz \kQ؃ju,,pEy(#eLi\O0lkAHטo5ͪ2dY]߼v|u.) ӀfsJb!Qdc0m2 Qڰe"[Y"pP&Lhdֈ(' DfnOk 5aoFI҇?1S[M}qo'Lp]'6ʷk4XyZHi?#3TE"CDZO#OO?5GWPr0n;ҟ)}g}H2;_Hx^7(e;(nQS&b5SI¢ɳSU- 4ǐ/" ,% Jc4LEN 4AFK[8o գ(g<0 7 yɣOUeԁ5ZY_ڃ.g(<6W1(32ѝJl-}ċ"ʿf#1ՅhPy)hu Zu(*=d!(\1.)$TGR]F7~'v*Xb#%`qk(c!b/ g#!wy@ Zp׵3&. |D/%"i^%rP&r<}KO|IWO笁k≁m|"!w@LZ&PC匧L#iyPTecވG}LX(ӗCNB 1H/|_Ze,yl6_7NVPoQiu!pc43 ,@h{;luʂr"Map0rD 4 J# qͷ>60U!8("'goȐ{3PFA|%+cZL5F+P_]mYW踍:Ob!(=Rd[2#| /z(C Bg8"ؗ #12I,`@Jj2]h 1ݸ~'vZAE Jm e5j3fjK MO*|8!n%5;QϽ#Ȅ+,+=^1 P.9*Dj/R(#P N9w&gD1fȰUlL䭭>7GzSE/$bS 8ԇrtP!Y(#5۪ʈ(?uPf6=??~|)-v0(c0X᠌>z+_IMte2mL ;(Cc6]Tf lOZ3@hC)5K+v{ YE@~G(ePJه[8A^3V C/u1AIj9rPw(32 xL!CBop0#ʬ Ւ blIU׭A8h9|ʄ *U oPeg[ֺkZ2G7o\~׮-b3F,OSEVT0x1XJ@3))Ѝm J3F'k]Em?))C 3" <Ɏxj@ռ4WqsEBK&_L#pT^8hC}{Գ=OwexBD7e+2=ѧ+CwR(_4LGyO#( PFetux?>>Y uu'L8lY=iv!V[1Dh 4-9:Պuh, #Es_aDڞۋJhf,I\ (Pt* X7m 0fPZѧ --p=2Q(f (34"Z<9L[)-B.$8(. .Ї(CEYp2vJ0*6 ]8d8kn޸c?y%,[NJ2=iH2s_eϟX#̼`S<&2hm@AM$a~xUلd:4Āl%@<e|N`.z䆷:OBoAWZʻR[0q 0I }c %Dqc졶xjTNYiBž.yN3Pme.~^卣)PnG@9a _=k 4+==z=~P{6+ ~Ssfei XՒPך+^྇"V OJ{GY̳q@m-%PpA<΅ņ"ȑ 0PFt,%20@vNF(oots:q%fP(#kc8zUš2 (%2W2Śj-2̀yWy 82@1sV )MMM`wĞ4u}\s(~hۯ2O(~9D^DBV*r c5vM %&_ qk\ɠFb#)Fu|rt~#txS21Grƅ iڑR,͌fȔ le4g0|:i *eΩ$uȥ<,CV x?%Qx)~~Z(s7&y衇 Y<ehs)D"klefDݯ~Uٳ V06J }I13=3I?wy^5@PFXoOa G< 5٭ <'u].f*fʀ4gW?!~u ~3!P<^^`T%43#F5L 3e#Rxo&Y` HcLwANG _B?SO$ZB(VkI.ьioȦG'~Yt[\-U$48C, cN?1vYUW|˷|[n%N_a(۶ˍx9:;"&.H!dG-\ImcX \z۞^*Pa[lP5\x&/T'bL;CnVYcܤ;&,A ˹a %(V4Q9% i8~3wh @T`ߢ Ͷj# R7tTpazӔfەVvugY˧zʕ+M4GcCȞz`3%:=8~ -EYa-W30hrVY;&seٱTF3!r:\zXW$ma ]'m-<bh,C IKpI &7/ߍ*qpkIcN!$R$;/:,498 -8!2`o XfA\C2tS?l ڰ)҅5RXD?n((e. D>Zo˚%!UV+RuLQgq;R^qLFZ>庁]+@}GɶBӪuu'@Ro@Tp)ʤ#;D71&֜-soIŲ o<[I~f@P擟2B;".>vU[@jiU}WwJ2A|nLq(٨2k&2 [°:/lrhMOf꽵h[fյ'{˓O_~ruFPm 9 739ib\pE/z|w82fJ'˙LJ6: O(\A@P&;p:C|=)_Pčs r鱋&'of@2 uX\PƂhhfQabA, 1N8ʐ2*?;eJ iirnevRgDS=7]] /&??!(#IAd(#Izv}_{n[EFaadZ+%Lv߰yitMo>i[ceWv/N\:LWk ҈10@n)hIRF~LݨuݮZn:PA3~F(v}Z(͇}c*0F* \!ȞK&m L(Ev: )4{k]kEPf )p!s7o\kJrs,mW2?g38$Ϊ ^ leʐ AOV?t?S J.92NQF[$s7ƒPS>vBBK@2+(O&ԱO̾pǔkFCZhK&tP>%9SL~X37MDI&vB^Zӡɶi 噪AMi\Y7Rx/eg}rlel^3nxd(|1l(?s(c{삌; Eҽy{ժAK> !SStw̕ʐeb r\xmM`ތvgPXEBn_u_sr@R V\ C}iEN1ɐ;:2GuzЧaǢXڡ:V<-s ./t*!!Ƴ@Li \]5j5+ 8(P&}q(iq{PY(WBb 6`bhF: hs(#P]}UmI:1U2@מrM)T yhS8E<vͶS-; Iĸ٠[ͪ*Xi@:ȞIp^?& _B tP^y0$Z{^q*y5a:'O%Ewঀ{8 Ya?De!WGOU[|gIVH7etP,ebc\[=#NSTmarP&Mzcuyo!׼;U򕢷h%(ݿ{Dn *I1Bm)q<1(x3n6ۙv7|7eUXt Ga8B0o6h}̊>[bkVH}7ДI{5a r^^~-zl>g|n@& /L*2iŪM4[p5X Ac@x}6fP&rt, yN?;S= R] cjK$ `kP_4;ɂ\nRWfծ'uo\壣Gꈚ Sk+^{ |q3g]ppp0ӌՏ)+ef9)Qcơ7袑X$vpe-c8!BUb@)p7.cɾd-Lr@8.Ax9p_p^SDk"2Lvۄ w8̉L:Nwد.0x9w(R @\dJMࢨY4 ҙl޴~pe&:fsJ7<ewiɣA("(s*~J-r 4 UdE~!sp!k% Ui7|N 5`U㉗Xet8{n\!hYX" 1RĻ78R;Voc47Lm[F3E2 ͖Ӹu{QL@5Jwuz3usRZՍ E4 tE \Z[W1BceJ3`}ȺW޲+\1әE6--ٶzC(ȧzkmLaLWtryrcyG?iJ% yMJ4s̙r>3TeEyU9PTATvO2جa&&"XL}S!\0A(w]JN"ն#E׎8BE&t@< kՂ-?Hn!K#)qq:- ^6|zjEAN#FD?]1|:+題VkkD4wEr`Oyq?7PkfPmVlB 9)t\ex?Gwh~~'@6B+9(e`D6LT"Eˮ)޴,.A,`{#2-9ue}6{ܬIݝu0(2h=hf(#m LQ#(#d[ȵVKj!) ;jXjS "BXBG@WA(s\]ѓOL#i|k3VI{{{Ν=oV|c_UlrV-je-f j@3(ù2`s(#,ojv0\4gcre ,U]XLLjpj?g&pv*{-yҦgm mNj2|s!Wο.Gst< VgǵOgs~9$(ɆB?!"iʒqZM\~emc#7;7sWE#*-#:- A`FJVBz?wۡf~!I1Y/O]׼z^#WK!%n'28 G93YܫL 8ߥ;x-SQ'fj }ۜd(wPZI.٭kRU+PQkp31fc(SBi@l4lH>euD%Cu`9ǡfb&|+!JZ~Jjf49vC LxGetz}ܜkhn^zښWC-nAH7h; {3`ot;|6_s`̠סơ0YᡌG2"4A2%P4^$M JDO{u:ьv+5g{cZ ")C'1י Lv&oXc/rFWf٬nkO O<(g-E2C7 hP͜9{0\ƌ7 `/N|2#^d2Cɥ̮SMw8_&a"8a'=8@؉K AZ4I౩zjnBV栯-d΄G$==%![-PpJ_xӿ1 mZ6|9D(#_2댰 (/Jn e(:v̾ >`5sNoʈ)uAlx:K1[#'5'(cU;? ystBd@P&Fs`I(njݮd?[6Fdec.H~tSejQƕ>~?q(CEUȮVb) A-c[Ccfur}}|[\y'LM5& ⶡ<1f:u&i:`1`f梨f` )l!KDJX!Ӭ"#hDX$sJǕI!]:~5!pH2rCa=e *J*K)8Ɇr}7C P5kiQH/`87s'&MmQLO}/Y|j$CHT n)w8ŊXom?я94O>-b(!1DEY7__w:͓,n?4qF,:/oDP& I;ySpPA1}˿Yu*d%(Ss^򒗼=u7VC %3 x7il#ĕ{gd_E0d2sݞ 0)%AfLk 1@첬πRC6x q@|N ig/h藄GY(#tNPF!RY e#kPAZU/rytC>뮭22#2r砌:S=ZiBj.vwϜ9S;1z( pœdIP?VOlEq-1/!oJ/B" T@nlRTnpE9A °g:'"rPFXNT?.MxR:X[4?@,/ }/kx'e){3RL:[)ihɐ}.=qNWLt!rDy~;O?|~Gs%Sτ?QOX[<)alP殻~wf6+ s)&Ԅ@٭īc(v t`M.NQoXB`<6ۡ!-p㋰`ɀJPз#,Blg0@\I h1ďZvtvn0Z2xQ}ޖD/p}G9Q!.-3ՁXiqRZ` e: ١M tYN'GO?gNn\-t[ `aԴ46&ĀQg952e5 @@3i%D6 1F xuLi < b`p3!R "NKxEDk )8~]'L_e J}VaY?U3㢄;Trd3<8>f[2۷eXu⌐Me;| j/s gOJ|: YA `~CPfTDloy۾/}jTS9 V { L.TvQ4ld9&=[EP&i Oo0[6~te\0S /b]j4^jY%8xծ-#1#QKA϶P2UskpGZ5AVDf0]IͣWz˟B|,V |6_Df-={֠9 gbM1>8A,xq3 PI c\+I$XVEĶ*z(|bnZ+^dm2Q'lsh22]|JĕSPʰ^Ќ?!iݓ\a-?"%QC]iMiK h$Ȗ$_tHU|@A^+d ?~te[1"[%[N(C[-rnH_[C" "k ex%.;xn Q _0=Iѫop(Ӊ>OzD8 T~NK&(*IP\`֤ʬ ZSj2Gfם&(B`I=(Hb[(AaN w.2kRԠ (2EwvLpoV5uyr+O|*UDՇb=g~e5KYUe@!x[-%WlgV`p]&plAahC* /; _2/ VA؋L[֚r tREǨP)•SBLct.Q9_i`?1e.I2I!c\h?XÁ)`+ }=RC(-%Dy ]Y&@8M++I3)lAH2+@GJQOo`liWG) 0+pJtYe2&\.L/Z&L8gdN!j pwsOkI:~`2'qey zl|c~o9Yf[}Tz{(#rCo)^Ig+ثB԰ь52&wY][xGׯwͩn;GlaЌI|^gLTJl=+TȖ-jD]{@ K?K`i LtmMʤ&Boon e_q 'Aex9(Ó6Vcc6h'ŷ _x?.=ʸ:#PwbG;(cY@Uݶ+;_OճNe )L#Ƈq \XлlCr%@[7i.t#Zt6Lڙַd >f77Czf:{OO`Z5YT  6>:U(A 0` \;u[w#/L^s0#EhCɚ"$1~P&S:L'878(c0s&6B>3Ӫl(.Z*PVIj~ ws@_+P&1>2"YDfnB4ތ^ [Rr塦g`Wgqe`u>9ԕ/_;e>~]Iۻ-љj·2PmOg̔9ZŬ큯bKa߿ ~ UxWe_?x`M!d FMTK 4?ޏՇm DDMƂݖH ޭeoZL#8f[oꚏ%휠׉B$|6ktƨL`&kL ~S b=UV>؅e:]Z|ZctkXݧxxVl.i4`kh7ܠo*/`e0K& #W^a1KW7kP̕aB} xmWKCּ@%9Y3Г$j߀,>91߿x=bg"!D꾒ֶ_@GNC AAzVBZr'I%OS8p"`зV -)P,(£Mx(Ë{J49u!eA(Hh֔3 M CT2h&;|{7dY}#^T3seN]}:~˟L fES5Hʸ%a@I\1FY?…s.O᳇ݝɲr (돦ʈ\PQŋ~|f]rzH DXɼCK%>c|Q=ϋ +EKO=Q̐[8 6-yG'ˁ!7?]jen@T5Ӫm׵X bnZCTkCt(~٬sP:A{Eyj@.#Tkԕ9AkL1y ~,RF^`捫a3 #Q'٣ ୡ_7FV~-jp#}#JywY2Q<B 8:-'e2C8jHzD()ʡ߮x!#h8Z(eʘ \iP8yPF0y /e 25f_>9YV=AP26##{XrĶqȅOvp0_e[pt’!$Q^ۘec uN1O5l5X/.О{'7#jsBAWl e4Ӓ?JR M.K`q%׀?`pb%% xH8uW,sr꓏>ȧ,b[ _ W>\J۔$ y|0":?(mΝŋϖ|* .M7!"ދr`",#qKPX@< ;b˞1Ч?#(#zɗ3 ei~{R?N N{R4oh! HN6Q*yZm5*9NcոsAƯtWf7ev_L绪+^3?m7n(c .*ʺgUIܖqHNW6M2""ξpЂj +NL8 cB{-JxRrmnȒѭ*NyZ?\6%?5*EU6fX{ 1n12DzNƘlPhq%]n6dNPON%E ?.CGpWxo1!$m^.v/^2ݗ0ݽuW+$u,&U_*#ђ)keĤ7oyYp h2F>}d3en vƜSRʤk-)$Ifk5q7# eNkho~crJUEP2(xIH]&0D\$UN9 _4Xl--+t3V0 w@Vta>hѱo|5Z[unnW5<*(FgpLBy&BY@hikaNR;}+S;o P71JvECP7H~3 MZ-~@+mV>2D9G"* Q~0Q|u]< YjRUV;{gx{9w™órgWzYE e k@ׁjpQD%d"{3."f}KiHX70Xc6PFUi-Tm|Kܖ@0LL)IʩWMkBLFPojV`swXyeF"!(Z0њYQTlg~y,KK U^|/_zH+<̏y6z1jfZ%C@2&݋ca$CqJ=[k& T eZZ62(!@TOrLP)o\2"1{CϒZ I꺁2keojG6eĕ1mu.z>'Up`)In3?C5H"2l׽4~!a6P*#sjx .]gvwwLQD-pU2 1^gx([Sh&dǻ] MmYiخOLpOd{P&.AX}aiL7Ә<:G&if ,A2n$e;CΉu+ӭ Ưtg=&(;\yU.'?}Y/ gUZ8[qzԷwŠ?"O,x΍Po>e#NP;Xνox0Nᷟ͘ 4<ܶh'ܚՠ!$҆Yt0 sqR7$J1fK 3(&6"li!>w"yP& hBء&CJ]1v#d"IsH@oR9.Xoض!} ׸-4Pfc<Cw+3RNpA)y̩!W^PQ`ױSLBSEpF(+~ه2O~I{Gi e7}YiB)WPhPjӸd 9]MhrGǪ,}"C3gϟx]wuxl18_2nr|뜐@,!yx)=[ .*`_02|8o}9[20 AM5N)FD3f)B$PoBVܡNJumJߞe QȄ2z+6RMqwK^D[teh9QeF:G+MWE<_?AN%a?Ɨ40QS(CWWB v_MS?4bJ`t\5hbk3 QħSWi~k,[6Y]:8m VL2|){RGC&XU!: 8e)ϘqzE$`bP?z:6su{}rG W4+{3e5y^L(e@]N̪3{o}0d-7e0PJe3tmÍ b w[h;}w)Ɣ,]]܅͌3ZRsV 䯠J/;] M2V[7OӵjjUdT_, 0\~GL'x H.B@]B0 AV H Ou6+O~>y P P:̞5GۘF Q 4@xf@Wkz=w]9^ǍIt;lg;6)BL02) M:qB/Q9-D>MW$=,S]ei +3ĢL2Ѥޓ:gy(nCė"C R("лH"<;s(މҘ:g ?2xn@md#-`IZQDJ+BƠfOZ(#d#ՒM([Ap8]%QP2]걇'R_7e,yjhH,`~0E?6;)މ4e9ߚ(Ha5C;gW,`J{/2Cpz(6"3G~0e2Rr'oAV|!:T 28 N97@ ԧ~ތuXe+wHЧ9d!1悤 v`tr?׭g7`8CV[ҴNeLO:|$\ldb}W\h;h& AlWL2bJ@Y'i< `MۊwQw>X]uqsE89 lE? C]3geYT%b)5A0>?NLp%~<`@~4V44 6d=lhs &߼VrT}#rns0B ~/GbNN N};cueNe@r\=7t}!ܧn"B2Uh;wf;*M!;Wr6TP_r֕AφN5$j5c{{%C~]F Y;̵Z!&W|s^@u$NbqfԺ) eM໐/c4l Ա:2CH3}!X#j:-q~f3qLmK{@Ef7GۘhF4#kkf 視^롌.f}q3}3ׯ\. kAE\S/(#wPp}8`HT݋)"=x]tk:tK0=p=]wX߻*fQ#URnR'U$;siHf!%W弯4DY~zRSVPf'Bl']klR4%Zo~2|*2^.6!픡nŷOwvϚ0M~~q޶]̃p{FsU藴I 2$ėkEw Wء<c7Bhb ȃcd̗|ƴj sjZ uSRNk֡ OgTԠnb[k-2k)jh8UC4V]PK˴mFcɵg|sW.?aP1m#6y+(#n!$tU> _2;9[~-YFk/R6}QP 2Y5x]w}` fwzLh3Ta 73tvw;dB,,NZ3)m8YϗFr67/$x$E.v W*ˁ{MIĤ?>ljBWl4)bαK:ENc Huc#-ЇrmU}% Zwh(9emQ;2i5/̳\0I۞%_gcM[:xPA U'Ck2T@PȘd2f:2Rm^6ˣ e>G{v2y ~K^hseF RHFC˔@'ذ 8U5HF .^8 /33|&Y} =`Q:r4 I{1$Vyi OSLC)t:UAMSCM'\2PF'xcʽ@ۡMG\ĕ!(SӛfQXD1?h%/Wg\?vvݲ\$@❸s Oq ߿2cmG@>SIJB0W[gNM"K‰kyt' uμ_ۉ˱/#Dx6p `:02}!*$1MA&u)!$8B;(sfZ|ph'-国-AEKuVο_@})&`vz)A ܅Kʘmh@7ͺ^\ݸ~z7? ["(ɲ1kHd :s*,Q{ 3mJpvb(D>RaA-T'b6;39ץs⥻ϝ=s1dG#@DX mIR*+" l5S7 ⱘq(cW֐[L`TNP>+R:E >H2릱<]Q^'&f”w-lܿ<*1D\Wț.½rw\BMCD@Rp} gC":q<&a+\"=ƒ$%ʏs9 {Uu}ů`IDrD$"&%D!A,Hdʼn@@-(R 1 1!!#vΞٝKUyꧪ{zvO>鮮˯+xr*H(ek I\DQgOn^=؆&MyhL%7\ӓC)&@B@1H_env]\+Q#xeL$RY2)q:28~k~(#4€Ke(DaiEZB UQբZWOO|+Kf4Em5f,#jۼ O:ht!3'ǥDdcSh_7щ'Dž1]~VݝV/}{(LmwD•0sA"?w:Ğ+ʸ42ղƛv5>=MJeHD2/ehez? wс+5/, T% onOz]@NV" %hc90eR4-Stf7dPBiL+>T/RVNʀ U-~d%J1|CӉc  p_;!k_&Wmub},i^xsa#DOXYGPFCeGA(^FGo ə\Յh6}!E'vCD2lID™e{}UϞ|j)WysJۨKBxeqE )VJ,ƯC@<AfV,K`$F;:>=8sѣǯ"Çr(( QMyNf^Ury.R|2S~s`Tp=Հ-Qt+h~Bx~+:%t=5 ~{-#97)XJz+ K  pƼ%Uӟُw1ârV@D3l&,Z!R>q"T<1Olc\uMxACJcVt:q2*PDY`keis@HQTq@3VE} =#EexjwoD)0"-ir(Ӏjeب:(34?$]TY'$7grkKYބ(ʘ! $ 7mi`. 껶Y^?9{ճOZѨV4H]J˅K  v@,MCی>g"%eEP%LMߟ>y>xtrrrxx{bv`?!ZR{A\2CkWG:_SG/e"Sbw>av:19n?=(3<9ŷѣ9Jͬ?CP&hQ 5q :A;`c(L]`z^(E'/҃2Hl=c>gAd9BL 6^$눲(XьuC2MYcx_T&iJ5_k5^%BB#qSL8 n@{b+ݕ[ )[ Qm} r)ƷL'chTA@ `RfG䵷>|ǧG\d5 652>^8XKख़g*~8;0E4$NrB^\D %&s鑻DQ^J2WzN>#Oȍp[>t ;-)ZPMqLR?#X3U̮ŏ؇~R8?BZNuQhwApoQQ-;i5Fs%'}4ꘃmZ] ŵrPcB>Ya,*  V_ڒGQ2۰Gz4[βP5~?B.&vv1(CF$bFm_H90ۨ!RlK H<0o9 D|9TK4?EhzJv<]8EEe_IZlwW4+}2BL2 v S ճc)? eOvȺbBxQ'kYQo}/g{ehp(#)V!(/`(b?/~NJ=eQp>ƙ(PHGᦾ:1^)"9(B: V!#d (1DKiA DK4$oDͪRUĕKiޗo f՝. XBy%]P @S @Ȼ "()ZϐH`%0ݠv Uj 2|2`R@T=2&5 MTX0VXpkL]H*icMXcƥ߆aeb rxvξY@E:y&70~Dap7B\@AB\d&x\ep41`Rkr1xcheR\=sk#6=o2[JHF(Cn:L@g'2~dkT9(?z??=;(g{eLIPܸ@H8Ӱ3qci@l~T! #qԶ`~'@)5a(Bi ok Mfgspn°k ?c|GLJǥ@_`BF-L|qkqzz ?q&.޳o,Q_3b">2&))P"F`ej$(p\^l(0M2z )bӔrܣL1+pyH T&Q0%(C2-.&h|`w(oh@bG2zTАuraLt_H^*# a`R* .lQHٿ  z9E(#CD;H?嫡fMҋoL -Bˠ!5yT-5Ru Aeb*H0)eVbxp2v;H!v*@$t6(Yʈ5 f0h#R脆mєдU۬zs8[\?4&xM X6zU^,yIKԈ3NP%C9-IyiV=Ȕ9?88@Pf mݙӗy it% _U~2<=Ƒm_uÔ*87tޔom&o'sB(8nv"]u ~>r^{/;F=3 -df^H\Q#2ALXjUS (!U ]0[F4+ 3h\30,̣L AwHĈ2&ΤAﴨ`;J@q(q\9&AՒEjSL:jRHuR׈2ie<28Jp#"˞^ L/#u4;Bys 1*dÖ54( FCA1n4dMlt6Wųo,Ϛ5tU3;WRhx /$e,J[ɂ3si%Q gZw$EAg(3+[HNm gR2B ދxz/8 UFi߭tH/ʤ2gfO'^V#A,_L0?'Q; JH{Z?x7W;y@tbReH۹V!Ő<2 a\xqlVFy"F6GW \< Qr2 .g@/B{4$ōPfmhG+|,e_y fb0c( y&usf[m'&xm C. ÑCe\2. f `%z:tVͮWFh= GqhKAgG "/imcRH:X9prhI$mjsZ\_/..=٬ouA2_QbK Ĥײeء*r$/C(3>*mPt <*{̜3z+",iq'V9 ñLl ʘ.wkPnCLo ʘx뜠Tē$(uq 7~w\K9+AQ)`Atd%~KQ/CXۺqjʴ. KJ\%e%=@JQBE4z2lFL%4gI"189]KQv0]M})pprS QDYu(# 3eHEEc!Q 44ǯ6^2 QܳfZ Cc LzhRcGu}s}Z,-М?El,jT*+yi _q&N"p _˷& &a~*VGr(sPsR0Ѳ26:]^w̹!J7|~mONg#T#?s(5A^F{oB"<%2 QŻZ88}㌍tLemٟ 3MX{.%AfH1,O7'~?gO -XJo+7>ߴ, eJے]1,Є/ cطQ/'AI@JۀLt6{m d {ↂ/j=8l||!Y/`X)˱hrLаxK8⦲MENU};@w>ŪU2삔7N;.6OiSm4{riH]2KȒ &.kB-8ăc6…ڃ,Xj]oVKK3ˋ3-A`9q QfqdڇyV~}r!yR~ e *%Rhn6x L>`@-|Q&/OL3̌]ΏVGO~=ެsU35`^P*|1T}D#6>0$?eL:8喝"pvs)Ei ·~BS_LkPCJeq5в\[H@["KE1cǠ Z nțֹ̈{YEi@D'QfN -?T)&vXBZ`.+Hd!FJ׶ɶvb+Sa|Yɾfci^o.Ϯ.6 f7ܢ^2T0Sf&NRfxoʮ(h8ƝOW~z=szPbR竑=L%#w5I*['(-E}el\ZFuiWOf-.iX,'Q_G(u??#?nܟbK>p mLp`2/ق@h֓(5H8X+eB_Y 䑔(4A_A )y8wLKwIޡJ݂Q܈!ϲj2$!߮i>FM0v뫓D\=;A בC ؕ};]zPh*%o0o3_ [ʠOS[h!liYWjlSb(31z']םQm^D8nLK((}?I9v@8S1=#AU[=u64F#l6.= wAm=QϏ܃1yꊎoCpeA*l DhLCZ~_{څcNQ»Y@KPPk2P_-B81g+;q'\QYvA%D;8|aJ͟P SNԽ9(C l(0&31>c6зF{"kjK2=(;m<5#dw{mv\3,eĿaY:He^C<4sd=3ނdMSzY/n˧Wˋ׫K;P&jJyN-3Cϸ{tgՠA6;+Lv7$ 2;ha|g:1Er3#!8EO!=tw[Ur3882e`݀O~11/ e $B l\9Zw?_9:9=:2ŬPw~.( 0%.hD2n  Z[P&ӪhcX櫒U8Ē";LlȆFaaBOoת& C?h⢏=M뽲)) eeBHPءj!C~WL0 nd^BpQNk'7Imӏ":Dzncՠ%MA:)c5ȍF1s[1ʝ #1.h}4ai>bAexQy+p!IBQ6[Aل9/ epc@0GL5J7|uu\_-/M][eFѻ@ɽ-g\t/5bh| Qfrj+Q&?{o44RQrgf2wCEo$F9p1B^ÃKv"Ϡ3 X֢|s_Ͻ!(csP&ʐTFF~x׻mQfV+cBDWдv[0`C(qkPSEa&P Ih6=uYθwD;qA!rNj(%:own$(8"4MRCN hA! <>-h*8`YU*zG'Ia9oC>gB n9e/@!s'vGZa!F:[Hd? 6cc7uX0]zZ>Y}1>~ϵBV1@ lG 2P\]MO 鲬0*B&V5_J-|(aHGul`G%$;KA54.$ i@cXi}^2ogI]n2PFMGL(pP$w(RH*(S hlScWb (gW[MS7WWO7o.C7Uo CO52-|V1#^w~:V,rC !\8ǭI>?r&WQпL #J}uL,q^ %oW>Q{b}]4X 3)[Ji%[WK_̧| 6%!_iw ƒ ?3L.fgLK{@M GO,(AUe|Eh@K`CS|(eԣ- )IYOCNΆ}2wq d-\!1j. "D1_۠"qNpx/{TrYa"Ij+EIBk,h.+C%C;[K&QÜE-n@_ d MxG-o֧BVeVճfsSM^M^>yN­sv@ݣxfkGLWڑRZQFtC?p(S)GQ eziO?4&J{)C,pv폴;eHA(iL6M1RWJe06l/~%DR (S?1/Ĕ?%xӯ9L&gæd4ʠq@L !`3e4^wDMݗGH") 9k7mE©QؾD/-p"I鼬MɬJ)j0ҰP&F/_/HZbpeJ>+eL;Q&Y~ 'G(?AdQ@?&$ AH_ 1fT…5"jz./֫k 4Giǵy2;VM2_etCa"_ԦnpLZ`@7n.yxG>pa~+x3%H$P&ܮe fwI& zMP܍8ʀzQf(C~cz] ,^a&XEp&HV@>uR՛( Eոqe7.kFP@09d=ʠШ<ƾpف=." ;Fw ܂B@P yU+ Sxn(\_d.GXG^&2~q(#UM(tE(c[R0v(C!<߀2lz(Z,ESSjn8^}̽\}eBI/e)^^$fWQFV2l POU eb ս(c(l[RCBUq`G~{l 'ӶmQ"L{zR2uvInNjmQfU{k>̢ S Qxsp q'Hk2t0P)D:FnE!3[֎?T&)IDߤA(eD_ܡ\[1B1uQVen-ʬ/o,,2] e^- endstream endobj 84 0 obj << /Length 50 /Filter/FlateDecode /Name/Im10 /Type/XObject /Subtype/Form /BBox[0 0 2384 3370] /FormType 1 /Matrix[1 0 0 1 0 0] /Resources<< /ProcSet[/PDF/ImageB] /XObject 85 0 R >> >> stream x+T032472T0AdNr.WJ+s!R endstream endobj 85 0 obj << /R7 86 0 R >> endobj 86 0 obj << /Subtype/Image /ColorSpace/DeviceGray /Width 512 /Height 512 /BitsPerComponent 8 /Filter/FlateDecode /DecodeParms<< /Predictor 15 /Columns 512 >> /Length 17784 >> stream x] 6ޝNT@@@LU\ٝTTbT/s"])Z\=w io d#yJo3gqLHxGrYsU~ Hok5@m Hu3CB$l+foqEy2`M7~T۱u ]G\4<2{f',< tIk\Zu5ϣm]4: Q/VK6~ <A]OZ ƎQ>ͨ:bΠ>/ N/B7Q/FY_\@mDd@U ׬.p F耐97 }7rM @/ٸ 4uS(` P eT( V}. }>WxYc[ZXQ϶<N,e.~ )o J@K`L9:nץP|X?4'JF-4Tg&xʖ7=iw]ϻY 9$Y-y(/Rg UtE ~ S:G Z[`@rkCs*l(0ͻ -`$ߛJsB L!QcZY{cȚ+QY.l/gnOƌUj}Ak *Ua;el. !{1QBH? D346w^cT (1qmdh2j)u&CPumL @ vSq7!,`ikg❯Gh(|)dC1t+\c%>\Lo Be*t!iR@})I3sAn;m4Psc=q awÛ"$9D}Q8݂Qj'_YzAëx(dHHJ9bv~St-K_I+4J0BjF¸sHsv4%`S~z ؋ ];b{%AB: il-) Je@DZ;)`-[5]Ӝy0^UI|i.CNkp& "o M. F*O>OLbkX#10 TV9r T\;*3v Ԩ':g)YAj9&iT{7IJUt&Zir@˥$ T<(zӹy8)jxg _!0>o%es.D;\rv cy!@wJTZglnҧ%{yR 7і:e½ n12\v=Bml#nYj.drl+^< 0 *r|RqMGup->zඪCbzO#̠,:\oA<s%Ђn+1ڰ07MjӛaaLѕfaqRC)CA#8&;Vt@ݗHWT"Aޘ֞Y$ B.X7y8t?8,YkCN̮\^c`k&%dVb`|kv9&/`R[KAR f@;֫Ey_/- kðgFkbz\vFIϮ ̭hj`K{m s2FQ{ M0U/"a@/jp\NM|1O@_㠣mZ '@Ep9oR ]~ zmF DYk[X ׁL :St _/mqw]O4mEbv<)v}5)65]UG^żm4PHe)1[w^ +,Mv,1URID[$w'zޚݶs! %dX[݁,ણiӐ'PU4$@WYWkY(oX}Q^q!C lp=d4wOq.ZmV1iDx >Ձ -~qF4 o*[gY^!y4}tyNGWY4p}#JS1]Q_BVP:n-PW1NB8 ~܉`ڛ{ ELyB+4 o.|{0יTV%+dڈԬ w㗋3G<ӮUSP]*uP:%S(o0/٨{ܱ_Ao"V]@6S \$ \K j[AJgN™CSoSYH@5n]9( \f u3G+ +(7 ^ cj_C"2]lɹ@؛3i #<zc.*qOE7Ȫc,88.-̺0l%A~c4\ϢpOBOR8ؒBQ@k=z:RV 2b/XG~2?i P, |[ t1g# jD-]\4~Bjuf(fvx.w9(P<[78n<5^1khq }wCȉB pV抚:ɝ@al'tӏ-@:3Nfw?| :_ d+vv*գa@XG5=T0v]CeC͗F+d Vxn#*܆ ~^/3sս(Eڶ=l0|z1v~zmtPZrr_1Ѯ, AljuF!9"Z+b-i @VM PBEFjYi^+ E{{ȳGjhߠ1ffز }1aP8pD"[U+сW2ZyTaB+iz*=3| 0Dv0Y 7rBq~u3Tg0Fg"'Nc~:D, EoF{GX͒09K!X(: s7.E6eAh`E$ 1YB+#MuC">a `ϴ=f"qG^6m,ۏ8NXyoWR]@ui&\HqAĆg@YA :Bh8 a{[q;[vspacNt-,%.`<ڄ`SRki В#8nwYM Y 8=Lz%Ot+&!L j2\ NdFAzRJ.@|[b,Si3uܤzX+L.NXac1qcb"DVPw2g@*=)<|zgg ]8:VcNdm߲+@eI .A|*1CC&X?cBeGLXo L`\9{lxToLjp1yhּUJ ˺$7R5X<_ [w~ *auhPo:=b9X,X1A ˱ & c* vcӇX- X R ZFFvGsO:G`p p+R W(wa,=K `[ x"zQ=dS-nd-x(o*~SQʩv*ܶDb(}T<0p@tF*@1H8t\Զ`,=G' zf9DD']U)ι8L2(Mmn6d6I|:( YwVu_J~j>JvJ^Yq 0qJxJ}LŽ"1r!{}v{:胁crw.o[27vӗHl. 8 0Fnj2B칀F%s{#}LPDfG0,C,cn,E).J3{)Z}9Eve #L|@`0z#Vyeڛ`}j94yS]@3v͙9#ػ,_V-]enjɈ{Yd@DP:}F`WSg3LZ8]nX`iFlզp3W[pΜTpyrb ~/ ^6]~CDȪjvPR #w\}X [L@(43 `Lʵ |D꣚-C\2>*NH#3]* py,Z=o"@ HO-~.[Hxh| `;\{by&+ذjLVzΖn-aθY _\~>v6k'\๹ΈEF^&:gUm}(I4_6㝑B(;Z`U c[RZ̿n#{-#G(TEF:'Hߠ@ը*(PxAq4oQљ HP Z=!(12*m4zpn t_JHo]Ɩkt3ui ,3*5Y4 U㍀3,az1rw*h.*w$].WѠzz%q5!j6>΁̔9f/$ [<O9 lw!'o=۱ŗ?QvSU<.yA,U Nq(]fCRhO} D+xE4aYk0@uc4 0^~&l s MCL4bc˶8uls]J\l 8 q>dTj#.w|p[e)wG#DFZ*%,"[@O jb%U>_n.mImmi0W~ @u{)F/Ṋ}4M )se[gw[kV1>}? W`dq7^-80y u:'!%Qv;jx P p[!ܱ[?[l#?w sAs*p}?ӕQ"XvtxT Pm,caHԻno(J,@@{2Jz ^V? &l#uw2Hi~mw8 rz5xOSv* /WGO|:Tj\8Dc.&&Q\ZȽ9NNE?zOFp`e.z.RK&&73aݤal܏&\p+,|184Fn\@NJ/ll6k_!ONDƗ8([pt+Ft~8)rM/^x|HUZ!5JoR|8c0QrH/o$i[bsԟB9ٲ];`+Z亼WY)x^@џ] q1@,6IygjДH3 lC@|Wc沱6x5%)^{,Lx`%#—Nśa %Gǂ#rRC.-Fܢۀ*Wz`' .^`;k\61ɛ>&y. 9֫4 Bھz#zJPd.\,T <&}aC \\LHpDU!e;[!*J ػX@{ mMʂxb`p;Q@7b4G{K&=h %\p~KK>cpK0XԑNc0r汱.6@GԼׁ wƛj H@TDřۗ,8_n9gz\)')FpzA3XܢbHGIvZ s(y Y@&9-ӨNqPBh7#~ >1m?Bd /kL_ s(X-FW/˟ysS;E%e=T`AlT!IWfvp U@(V;.Ҁ]^MFz= 2`'Z6X,1O0w1`f9 d˹CQ  n7y-6qw3ͭ.P% *]@IMd$Νy~i,,T~)mIj)~j҅ӏ-eH&[X2Ty@%e=E#K"䓵}lQȦ\)tJ{8!{rJLj7AHmBY-C%K(io40}j!jBء&aBuQDAPIH#]#AQARh E"sj4da=Y7x *tAy`0# ')[МԪ$`d>W!,K"QE53˟.9t#" ;shH<]R0W"'9cG~+I `uqs Q4'y*b.V @ i/5,J179ed^MGh{/*u'`mP%¼=7%5(3Y:"ffFr8vuh<$c9wa&bd"R{; der&ةn> Ћ 7MX d+6.S5M鏉lW$Jb@F.ïLid6)5?&6\ kQexƍ3<%7|N| LV.Uz(Xg@g)_ITy;},{'9 K @nu(ks8}ȥbx2įIv@n{y]XA/`ve T$\H{] RH\]gllٜ,hb+󺌬0C{%ƴTŤc P͝]oZFf+<̲Y"cbkX ˜ fta>*wBSg\Һ\=yF. w\~5$S51Q~|0*|% cK)u,+u+N93Bڂ"-;@W&GkN<(ʩ>OE0d v=gTuϓp|6iDR`2nc>ױD ѐ@Re g xņg" n$ pJ@c?G rT2:%P]N888Lsb T,/O["GKWFlP68{0T& A@r P p \@ iϢbC6Yis.JN T%& ڌ` Ati#S_@m||rX6"s4 ALRgiu!ErI@ O<H.{Ux?T+lq{(g)5.$.fi= 5X&IN Ǫr =b4|W|G `~zJ>F|GmYn\Ӿ}(iAw [Ht S#$xZ 2 /TFyC7S`MʢXxa; '`}KM4CRm*"UaLGG&5_4vW:@(j8HÿQ]9@ PnMkNC 2~D^0(]bB?'b>h&b:cӂEQPEo`A:pD'AE77$Py.p7|M.(Y8n\dnmpVQb!U4̹@T ݙYt 0!9wUX'L&(!F0?g!X}苒 u"p5 r(L8\:lrAj6 |m8[ӪJgp$ :Yjp!洩BЪka6dg@i-n\`]"O!̶B @L 't~aePtw?x U{`󔻽I Z ]6qz=l01/C.F6K=\tQ9ZU[R%Y֌ԧ76Ыϕ}trbcs[xG 0v |a"(섄}ZRl`O_<&;5 Z5[rY#:scBc\>f!j8Ik$+ĩ21jLgm{֛.~~#i~!(-LfQG fh0Ş>H6ƫILRq 2my1HN7#D“y]"yF _ /Fgp`EdhK ]fk^h0 RX"6 VC` 8mNFSeºi4{1=|Ʃz~7V%迟:s HpDegG &%q(N]ԝm}6S)Iq1LG" dT,q ,V:m Y /87f>dANWw @=p:xsr@و Fh#ܢ?~x:hp@@ݠV Hkl0Y.XT?L9 S%WmJWT%נ`v]J",(ڽJ wff: X1LN@MAs\ RmD=Ӆlb׼;+\@#R}Hfl{ bN.PwXR} @4F" H0lRItGO.1/1( ٥H"[fE/g@a] *.螸 HPjK9)9J#툚oB0 }HbŴ,j&ʲ@~b#6Ag?>Hu%k(>JqT([ Ԟ*X$Y|֋AO 6O>Ԧ쳠 4a:2 on h @w㍟e@c8 V |S=@ di|"=(3 go5R"/w\O3 \aE$nෛ| C;,juSl+& QZ!.QO;kXPc+cé1dl ְ3=wNtyK|9KtQE"G1PTNh^l1@kC8]_ZpG:F{i|fS9:N7hfھ>ȋgD@^&ޟZ/*)uUOԤT?,ᆶw} Tp4yHʽD%W`O GH9`{DYB!!Ts _$.*[nM`͸r:x4w0.`ݙdff^[cP'>Ҳp!YM:osQ]0  Ȼ;x|+vW⽕N^%#4 3Ej1L7ܑ^ALN0њfv;x Hϗ&</$WoWsrЗwm,׃VתIL󏕅J ͿKZ[ ѝڲݠ3`\#_d.ukm{TNqDJt &qM߱CLWmm"siA_OƸndv@]LjYrVC[s,Gˏ8B1BV))4x.psm.jR`mw7KToYj5p5d- o$>!R߳Eq D{o~k/XiϺoCq7cgѮ ZxJU[|.+1m~N7줁CKO?ԈSv.|,``ti*v~ ý.f" OoR`Qw[(j)>zh_Q89iÎ( in8A6+J@xiAc2wQflξ~"ݮ^|@%, WDDuw]oZQ|l[4f%b1G-BdZ #B7Ý0+4>MR2EgbQeG !"v|gTn=$~Dzn^HPd2*N\NFii}Ɖ! G+k Pf7`.'@gk%Ӳ@pAkm`ġ'E& ҧέ'Ex aX-j5d q`YE|2dFy7b)iZGA닂L- }k:u ,pPoYt Ќ[D*<M%0;6,QuI|=slvb2ml{t08Cș1vAup 7 "1@::Cϡ@.ppy"Wd̈SYZۉi?.Ջ3@(}7pYV2xC͔-{dER0%YMl?d.~OY%Hd3ha&JU=o( ;G%^#G9| w(h`9\\Xn1E҃pO>2);-G@IXMF|PP4|6H_͔Tv2NyvRXMyj@  {f%浩L2iDFeY1! 2`k(ː${ Fmv:[ss܋OV >&}G  LYpX;C+ 7U-DsAz%mahۂ4 x0-\c(#W/VE rbJ-_hdV|# ֪*Q x~XfssZTȸYqax`śDl)_|@}4o,F[1q< p к2L1Ɍ/y8ۗȓ'#ZY6M.TWh'4mԖmAk6`~7baDiUڭh 7tI# 1}#;`X3BPoީ饼L-SުGv@H$ xmvO\v+2u Iz8n)M58h|ԽEK2oEr 0,&rQ7[()$E6K]y'C~$NjlP6P/W/FJ`^ h?YȶS vt,4Y'PNX~Z#UZ-)HB`Y`@0vz("/NI/s:mˬl ƕ#@JMe)\I|( gl~ha\[`xN^?1|/l[X#v,N)k@ ªbg3G'7%Qo׿5a fip5l $K騊F@lڥy,B2AIQPzF# ಀ~0CƳ㧱Brk^v,@)"o%L&Yk% 4ζqe>B)`X9|l^N7ώwie.zAi61 D:]yڽ TKgIkm*iN2qEocXڗ (Zf8e/{ӅeXc~VE!GW܂ K|,3tݸ'/@`>/[" 7_%3?q;3j xQOjoJ(4! &e˼m. Y0ӼF% dQ=b X_tT]#T {FPxn q;LJ=t~ t />  5# \KY[# 1事 ɷ0NG sn Y3"' X3j>E\tWCfc3H> >> stream x+T032472T0AdNr.WJ+s!R endstream endobj 88 0 obj << /R7 89 0 R >> endobj 89 0 obj << /Subtype/Image /ColorSpace/DeviceGray /Width 512 /Height 512 /BitsPerComponent 8 /Filter/FlateDecode /DecodeParms<< /Predictor 15 /Columns 512 >> /Length 21699 >> stream x]$+hPy4 k͜LB6}40ɒ>O]?j>>?ޣc87_ $خpV\<îqrǧcB1QrHQ/f+-Q0Yʳ(ĺgU UH FJIwXDD(D2>@BEu|n0,07@Lkᢱj$5*ܾg\FT錀?6QCDtiəgLhmzF !B<, {*@I#U /[$~dT9I "x tI1<@{J_3jN,S! Y[aC:xyzlg?Li:2H-Kmƃ͇ӝ#hz]8η)aj!  E%ս @nr iesq;Wdm @pR"68@_JigZ8MXoҘ) zw^k\4<"?P:fഠHjSKg ,~?(Ru~ s5JU]pH5w|LXG 'tm23dBy/s$^3`cMlrɆ=dwiJ!z30$$34;S6^f%ӰI+⮇cbi..c<؃VLƭB;P!iv:yBc8鏛Gc'=lȭPx]j <Ju *tU Wf XN#t?2Уޜ,tǣ5n8vv| ꃴvZp(O70e2Vh?o"QkV#'uBE*q#|=]T 'AWXqy5l?J @K]d/[J]ԫ8/n b5!gW<'f3KokTγn<4 or#81& |\@0yϳ ^ lu)3LDs wp 5 Za1.bW ,7Yi o?m0+X,tZ-rAJ*!P oZ(@C ã1jrdz.A&BN18n>6,af=NCdM^PrZzxۓ!д+ƺv .\4?K1vT,_wԯ(b󟷒 gVACIK2NT$`ٛƗ?᝱]pdc8y1EW\2g/ Sgsgb3h,zr_p+[ډxg!O vb$"tUz`L hɤ͌`i~8w m~Am%Zu, n`P֙/`#5M3|&=W'ħeχK,s!uv_u@@ !xzhL!r.yw1Œ Ϊ`ޤ$7' zb%M%uheq׉*Tr^IAQE6n.޶[Css1C]oH|5kXd 6ln(ya!ӆjuXѶ:qwfl.qޟ53_uR`vaI7Oꐾ :2AVdjD)\ۂO Bu}U#g),dolL,3e=T_Kk# REG:%;}nr$V79DEQ:&MisfD F,GA# bq(?$&PNF+dծyD[TfQ'hOU0] 9zz_˛4xPp#S(KP>ǖ23~<`(qa+X6|LKHU31+WU4}j3nemWrOTLŠ8y%֕)%B\a4}'_mQr^MFDjTisQFa$T:)_s+Z55#H t59;%44&By%~YB;j4]nR'VksRɰWbBx\l%b|ewhņR w5K_ k`9XWQ4P:;V%F zC(c~kp ^a0p+ɷa+rJwd*q'y7*3Җ _cU|t#<jeu$bBVc6e1 a9qqaNZ[ztcR@D bqR39̾25P- 8~HPpǕOxp}4}zww8^bgOXM*w%NϏy;{@ ε @]XuӉ\,>W=~8,Z5C#$-Rp2YsfQP`Zą3 T1BijLu1T[-.BL$PDjAROw$ʅAy=g_1zG/>`$aJ7<6xd .(:9:H( бnOVulG0};} Kn[WTTgu\p he`$ ѶkA5+*\nYV!al`">}84yī'j^C :"ێ(d%Ոa]M -k/$['HASJ8^]Jx.J}ڛKB@<D%"+$(kQ(,ǦX4Ē=$Bv=5@_4Y>fѡK} ۇ5~e#?Zǂa;7W &RihcA$^έ_>" _v%$ăs ;/{$Jڱw߈`Ewzŧ,dnܔ(pt1;dlJ*4Xřğqk!zfuc+uv<;HK=ɑ3_xVN!LWrD$ lF S'eG vcn͍l% i'pDF'0<=܋$߫~!y Qw) ,4߰@.X$6m"agk?cSak]ʘOıvږ8u)o.h܂B5J.~€ h!0d #q \3VTf#k7.)m:@j@AJ ) @+ x]GcA͍Ezt AqfDWNh0.;ϱVXYT-`3ow M@`jA duJD82A-uJwܙs@ Nj5Ihx0@bɦ]ѫmM]S:UcĐx=v|j}Е 9s9, y =cz1F27>0z .b )R০'!}eZY4|EBDq uT<R@@ a "˹`dӴ 6RpNR'mMmNWHԥµ ''@knc@&$yQ=?;l]CO*L_sɛOQxF(dէ [24se[j~)Q$ l P NIWec )fs@diZ'&#å1' 35Q-)F9W@ I̿ ۔4F)4 Bd}s!2Y<* o|iۙȬ翢V)$md|Op"2GkaMŋG_K]wJ._/HhRu%ik0vMn]ke* ]m0+IpHVZA VΛ+bƔ؞/;XŪK.hEfg6pR\.T_d ua7 nFdJ@Ru(m\?kpc7pKim~2D{xk>tnpBSv,{ypWIfzJ'A #.9g>E?s;5^ާ-oSdl-{|lE<܃xNޱ^ +DCvRKrx™Ѓk[_%fO j#4Sa`O5r,b?@&~9Tt3uE 1dp>zpؿ@;usk.nQyҜ6T  |` ಓ |xd:4-D} /FimϷ, ;F k'/Է>~[3 /9^Ʊ\. ȴxpM||ܪVE>n 5N"x!i0x8?ϠVO&g;\/N޸*?7+'$tssnl@GB1ЍyP-wPF-6Mb kgLjϼ+?3Y GB7fR}"e-UPD+|ZDDMHByXlY;~ 8592>-4=^3Ix8J'bMNNSndтYM3H_-^]̔S4\pbbiRg~z̓/5>凫ʳ[ zZ~1a b h%^X{Yqptϗ T)ů㢞 #bEC [zpޙ0B|1O7a~o︂Bˌ4=ҸS-~;`B[vAk)uCCnQ \GTSyJ,92雘>5o uB7D^(qCM|<.  |' ?[(KP+MBNko0P@Dg5j_w#3o i@k%q n<]#0]D2Y'jb@6\/f&෹Vr<ފX 7+7<g"q{&'A*DP$VKcb o̓ĻHh9ڵc ">?J'DǫoIJ줨 \r EL?ߎ-<@NbbfJ Vgw<>|8cfn+HbN 'J\i-we'#M_yile |ftcpB7Vkm^ffƋ(k-@؍td?L߭T?!%([Ύ%=\Epac J-0u hONs4410b@uM -J1L`!ֲ 86.ѰVvThbqe1  vHx "\3b1Ϲ#JnI,<<۹Eps@4BɵՈ'>lP\%MEWO" DpD] 3Ԯy<_8[DB,Q\pr1$86xe?ДOR&($NYӄ.C s!*kwq&qE#l%|H#dGAJЭIZsؠ)m:N0>uP!9P=ӈL#CG73?qiY:`S'9RP>jC5e~WsjP ><:{ gjYYnx$U,4h',sB.xVT::*@T&zVKTN4}s NoD1hpqҺveFҭ-z&:W#ά 1WcK >z +@Q2E'K:!HY6JաWwh#VsQJ)qc^VRz0-x q}UߟDK؋Y4O[EL sɵ+8wSMXxN]JWW_qV!iU [)p 5LݬL+'\@W+@um2H 4CIM!69l/~Z "HzG=R ڕW,+~q`@ Ͽ%abo3ܚTD%NW뿘.%poZ7eb JQ-_>Sߐ'mDRvO|o/r "TH0pְig*CMWV#n]0 *ay2]Iv|/(K+0m0z^(0X~6A0l1@~ٍK;9fI!w9B&YK$=*$y 8zXE"W<,h < Pj]ZE)yKe{7ۅ)tq+(ՎI#m07 wZ1NC }ŒӮ@;巅,\#d]ON .VO\>&gRURKݍ]ȩBB8e.aaط4ΔI\sd?h1A@4nhWE6?"(?9tRZOM7wYRh*{+ A^gf_U;UJ_,"-*#^Rvp ;f;BTtS/p4VL9#IC+ =nߦT RAAG):/Qj nDK4Jߡĥ9UƆ~cRB/ycNz%? ݄\kt*qy# YtZԁ=|*͋]k*7^/@>!5{ _a/|O,L$1smǹo,qϷhߡAYkZ}V&.:ޘA0zK'lFª0-FH `Fr=G^.Һ3)K38ҙ*[4iBAWĂ4Mk]p64ɥz7U4 ƅŅۗZ`ӫ9#s+ |2۶Y~\^7RUu OLY߀18Վ8B5?v(ݽQTSOl~kƺ)*h`|W pKbE`F#K{O?GZdx#Jyg.6Xo{؎∲dJO6 ?r$cUҧbO Z;!N׸@k*naʒ:F%;|J-á'0'5>,mJ_)=Nj/Xwd^ f5ʂ㡙c>X~Fnkۡ%&GH83V-@>% 켪DAX\"wȼg,&18!uODݙǫ˸n /K@uԓZeb]F`E<D,1enзg@E26}ζװ h qxLLFi(bBaC&Ι8 h%|t7B+ >"K} #[@6L9ۋ8#ѽM2;t%|~Vf54 Q 1J i=2DvtDWG3c̅>RT҇MEߤ!0KەK6m0/*9vW⣕dJy N%R$vCH|̀8&7Kӥwr+m1 u|c/Zl~ \z%f]pДI~#z.2>IH RPta)"lD vqxۥIj{?yNCZb=Q'S\,m ehKjE?[\ %NrAfn(bz RWg06SQ;@IfN?/.G/P\Ijɝ0t'AM('Xbv"N@CmydzNXd ֘pqRZA_vjvDXIFØtLR.8*&͈VMpLW#1|Zv5aR/\׬{)B &Q [;Hljg<չ4Gc@0 jV⿉uy!ժ⧼x_VJuv6`50/O= `6]Y10e'QT_b;6B_A痥l>%P~-,gk S5A KbNh?%/!u*0@ r"h`QP.!aVst pw Yz=$$I*(t3(Dxtw8a`6{33tzdLAt̓Fdۿ厑 `kؾ4<9{b#ˬ|m먞*贐Al_wmRxCsO?s(>CnYǿʧӼV |Џ ~`j$\=A\2 X !8wI`*Ρ9@o.yd=y⍇O:܎B̶;X? x }j|_%7X`d>,N_Y ѭh> `JրSm[_q?w&XL~Vj;J]"r d^BxNq Ej^S31t,hm@ ,]:vdW1/$TuO{jEUhmZ6:P} y|.~9t6U l$ R:7:eG.> 'D%Na,:){a h2͍֝n~!Hblk%!/sc_JѨ+cM#4qIK$$fhuwm@&K&P2zAV '-KbYƎzf-KĒr (G)<󊀛dM`ղ^:<,_`X"֔=e3 t\ڬt |3+W;Vw }K v]صt|FҰP/?j٣2kLJ h>'c3=]lfNvf+ur7eWe)GY`Q;lƸJ&4HGMbti4sf[Ξ9*T:0'0xXC kl[J@33Š&PZrkPdB&IO'[B~iANKTM ~6'G((V!&,k8.5\st֓zSflq 'mۜ Ir5hhj:zNbh}5H(4;Ʃ&.2!Y̎rܫ;>$_2Pe[?"%|jKb^pY<:i¶ZUi䎨^]p. I (nINBVg,4HߒȔX!K}y{ h먀yD67 vrIB<#H!X␹8Z^uekXEu)ܐ]uXH|@vڋk{A,hKwBIk=*׶x\gc'OPT;ؿnH%Twc=f-iDv;Ra E߶;X!Qb{9g7u: }ң (*NV;e;KȨ`ԆfqUg'R1bd$Y ?SxR<U"i HU~!xQw[>B ,"# !lGTϔΫu+s+QOΞy2`Zn$ ArhҷP_Ur[ɸpPYXbP["3<=Uѹ.4o|*%JrMT ׺6 ' iD]6oΙ>@'gEW.Q ۣ4p>|HXc+?!U~yU[46Dح;dvW}W]@/]"q;l(.ɡAFOHY-ebW Q~Z}QrZB67^UEqm/Ϳ${^SS(!8)}tN.QRZ + +*'&thHkQ Ҵ5ZbOk@>rpv  "*5cAK, h)a Drg {V;AhE ÄfH>R-!`&M B!(C2|gA!: V]ʟyKHv (yj˽um,vb)4EW2EJOBd /I{㝥e Vh  'T7U_ ߹@8ὁ7ڛBlt]D{YL}wtX-olqG/+"@$dU{@#ݢ @Xe7hb*y@*R$6܍\VRErtp0S`)dQ΁G94gvDVZ !סxsދ/y=ùx̱Lx`}>ӊSWPRn&{TuCGNa+a+Mo y#9$帅 e=3uE\Pqfp <268eZZ0ԙC$,hH#Pq0]o#;P VImX9`@(Ć= fZϗCqtZ4KqgBŶXh; 9E, (qKvIdK A.:%HY.eIKpV&z\1L&,@o$m?+Ev8Cb=X V>'*V+%4]4Z.|!\LN7,aPgtCzSXnt# <}؍s#{ VEGsIfOWi<oe\ܖ@e@w dL86}]0/+T YnV3ܟM@XLiþk()Y 6l r6lp:Hi$J9f 4R0B 2S(^؉;r4*<o3#f4t  be Y(?NiA&D`<-(&ݱV]`֑ 6NUks0BIDp 9&ϘA,- A*~*tcj5I k_ QmQ :RR NbZsSЁ&n$c]{n"(-I~Q&T?D.cτCPFCi~tI sKTRRb@,ppg6X=ZasŭQ?armsN{E x`VQp":9سc+5=h * i]@3ek/uѬAd* l!33 lAKCz@[ Lo(yF!R!vxk V Z~\hx]`; =gcdX쩗̵mZ|)oyi>IbֶrTҜ )ZٟWb ݙpUR )NǸ%+0raJB'?ُ'͐9|-$}n$##dÇĜ. 0?5~b,92Ll wɹ8 iT4,~a#4@#5k4 S~ $ @btP#d(5mG甲">[M;D(@|J<Qנn.O-5~@{/ʆ|q¶>?l(k}{ؔV cR.U ~5V 0z㗙bak¾ܛ ؆yW™/"0Ȝ! X^j^DWaY)ޮ06pt>Q`W@o,|#EkK oWVX&xdxb Y?,Aa f}鲘(wCb&6O.s5E@u0¹ GιR#@f!}$~%R}r;Xn!^5`I|:Krq F_ā˔ɤ^ч OP0A $h ~H˾;jP,EZW-b5 u;&LS`J<0T 3 u%\OKeT/灩5klK,LI( ; udEza@p#'aO @M頄2nGb1!| rÁ_ܞU 0֜Y`U ¯K l. hjkB)ie?8=VS`(XhfP8an$ɠ:bJyzOVȎ4/$v]: "cR{hlM,6XxS0З8_@Oa:1uI__/UxL8 E)a:l:)rŢ$u3"B%m8eD qXQUr>oSGiBM I_!s=<oD{~31A,Ьg[e˽㫠T)rz+PJev`Eims*Z =0Y;8vrTw1ad6 JnK /ϡmb-^#|EDBŶ9;e/>2㻒~$%|\]ܥCbk}"}cy'K%ìYcdpo#ђnmwaHҾxwDNty4}%v9sMn{ ,d9_*(Fi39 =]ըީ2^J2aRHODޯwz1 ׉5VxCSi,҈ )e7,]!x$lh/XTLKA$!s*HuwSSf&HTnG? @VIxQNCz eϫM~c~>Ѧ po` (wt kh[" ܟx"8 :* _gd Q&/ K:94oV[eC7䪷5B&W @IoEDW6P&bx }Db$W[Q`#lOu¿TN]1ēt1C3h!̬tVzП(y^`H[!ۓ؏r+3xVBխWOwsMN3m<;'븳-@Sz̄NY-[_n|CʟtgvVc|Y?t7ck+/SWHJߢfjB,dD\t'RMy|n=(D,xnoit'id -[Y׮U[`0RX27RƸ͒hPWl}⭽da̓(@R(dݙ@| wC^-Q,) 7m$`9z>̔Y#CTP+ 2*ɏK>op)Y.maK $Yţ)P)L%7?d0+"ũrB8lWv P܂! \[TҾ^UAx_:6ڴC1̃eIbex/;b;+wY6x ml 6Ox+<|:^"1G.|o@P(N-pPTHߘpJg^(%M<,%GYκ̌)f3vtM2սEW!#>5se6^uH Tr%_QV x-@ r=E(Na \89HT%@ihUNEHE-^WϿv523x.O>9P bA: rKpI@f\@/5MPZgA{:r% TM ϭm3XMaא~HsƆAg?<@AʃMOͽv֏Lzh/T0Ez:Q>GT@c{ t zւ4QsesE#R^LHάvF-;!J_x뤏\M Aa&K\t{Gub6{Wd 4yM*ɬ}RGQTλpƻT Q2oR?W `u@( N%~IF endstream endobj 90 0 obj << /Length 50 /Filter/FlateDecode /Name/Im12 /Type/XObject /Subtype/Form /BBox[0 0 2384 3370] /FormType 1 /Matrix[1 0 0 1 0 0] /Resources<< /ProcSet[/PDF/ImageC] /XObject 91 0 R >> >> stream x+T032472T0AdNr.WJ+s!R endstream endobj 91 0 obj << /R7 92 0 R >> endobj 92 0 obj << /Subtype/Image /ColorSpace/DeviceRGB /Width 512 /Height 512 /BitsPerComponent 8 /Filter/FlateDecode /DecodeParms<< /Predictor 15 /Columns 512 /Colors 3 >> /Length 117878 >> stream x;$دs0HH<%!$ $$$1a aG3H  ! 0}gf"Y;sweweܫS]*jz>s\|qr_#9Gέ]X9@nMu+ҏ9nOp[ 8"/suUW>O'T.~\>=w8"J/::;{>VßÝ5^6=~ݙQz?r¯k ֲӻ-׼Ox;}<}w>ycL.Z{oqxjcW呵99:21fU8^xy\KzҿWHOӨjUqZǂ!: fUz}oƔVQ [?UbmxWܥmHiOnR~W:]%0qүȎ呭`^lNB~\u_#4 [-Þ.P/{n}jX3,pGޕ(o:Dgn"X[2y }Z.'lvԲ}h)HGxt[VZOOߙaѦ(iX|dV}zgewpfVb>[~-yo/&IlH%;HM]ēy1lNܳذUz}7X\s*|da+E?Y@A-L=- ~pc+OHk +=-;d)rm3x5,k]Fɓ+<şy'Kɑta#?(q6)>'WN:f6Rx5{ZQOvW>m l.6^*=W˖=1OA Ubv+v m$Ofq}OVdYo+Ғg:_<h`Rb?vXμKqO&Nݛqž'Meܹb-KyGm?".3yv+sHX;_׵Q6'u6H^ X6"Z$(=sq0L Ъv !K ?aW/EX,@ '7س+MU(0+X Ӑ5ON+:OыOBK@~Vr r_9 Wx򱎃@,R`kt?/{7V 3bjxF/o]_lH^B/ do +-Fd`/[g]s `#@ZGWcGZX<{aXǩǭh Sv[_ 6R|XaI nr]o@ɡT=T^'lah2Hv&25DX"7MKÒ9 ]@. R]ljz^8JRNKp9lX ޡ{,CA6=' [xmxc޿oh%IasI vX0l +ı({%fKRj4g^gIjW-/^?rKJ)Vl g9ZV?ye"1ʀE m-Sܾc qb㑉ohD xphssס3B$V7ND)sΟFꨲɽ#mثmG*=?- <^NZZR5^}VY"yh} k`.{vQ0vV4ڕ?8D-gdNڈҡ[*J]zSsa 2 8;" 'H[X{Al -nTҊA _ qo`k?ZQS;af^&޳1TiiYk^R`!fB\2ēJ<^ _%KG8K}StfX(n؞\{nek*- iqRÂO 3 C59!ڨ]ꨊkc/nލwR`F-$ŐgOֺѭQZr1PJkyt}Pa)nnϢɈE,e-n<$^kre7՞rH ɕAr](p%X;*}aD˄16fSAr> 6*kDr#&s{b&w2+I2K03V-ӚyYOy'|MPpDJZχ˙>;z#$j)GrDJEaXV0 6Nk/FN/~E/[@2 ٹ.HzoUal)j'}1o++(gn4h5g~ZΪ,tH% EcV1wɇpǩC'9bip}x gmT\B0\1 T캒g CSP/VK y40(]ٍymD41?TcG]Ioy+/3x: JS̕:J3iuGڼlT~GQI̽ց}1"%OI} !Zz96C c?}3i[#,.%!1G,;4Jti#g3F?S}[@-8D O{L!#/ԡj3ȁkK|Y.Tꄴ!p}?xʹ*(;3~ZqD<^,0`?3;d4Ô$ [`|}!uf"Hk'=*;d}֐9MBU+J 0й+Z=e+sbc3gv;!KO>"MV㑲HQLD(0h6XyJ =2*.ɾxsO0=j%e]3ӛ;ٹ@\-#OZ>9Yhg򧾇@M9 jR,@iXaNceZ|RX܇ڟx:myJ[7<'6M;D90q!J- тqY A:YZڐYI @*W,>Gn46,:%MN>9/~tܸ~eBF$ 8d[7떛l -,trO_B Qs W`G9gsuB:C*+7Ldws3.i]\.9X'@ xA8%qI:$UR‰eUxyfU&F'6ʛ'܇R ZgxEhM̜m, ܙ +d@}{.la1}gDsߪ(#%>ϯ 4xkT:+} 0'3A *=?`j^~wOwpܯ'U+ZK*, @kmA /٘dE,dv_~t1T]${J? ڄK2 o6oG1`=㽳1*TC.W:ȓ.-"M*-YyAV9C;2Ueh k0L؀ؙ!2?7QrP+]=cd'((ml׆!7`+nCDDH8G=*GYy*h|PɅ6Ϥ"ue+YWȒ' a/כ>^P23K/N|쌏~BnJl@Kw}D &HRXxI\U;ƽ^+ndG{Z`y@Ui/[@:&(D5еѲ[f}ZѢ~ e)*: ɰdiyi%DSH(V(Ys[m @z>X uӿ l:?ϰ ا;-Q//oU{ 7,d;'>B |hr 1%/G}l?i08fG=>K?zpNR~Xb-tIӯ`uQG8`i8(&x/.puC_Iٲ޾Kۂ;.k5,gė(9 'ٰeK^'i5⯱ A K&;gCy=Լg Eo}v*=TbOԟiei?yDkeC5))OñCwh'#цC,X>8E'z޿l"1[C,Ȗ,Z+W\ N2Q<{:#Ώxqiy=x-p|$̰$` xV, 004m|84{'< u9fޅC2gw.'XCy7_2(uAҰ~<8)> e,2oWh'pZG6 _e?`Hg?KM*NJr&tF̸gMy_E O=K"}f!n@F|M#t gʼnzM8ءw6K|I$ż79k[6.yIٛ 0d `]N*vx<  !Ve-b~KOe) |0w/fxW[3Ja4ɰw,_+} h֓$B'g7- ￏ 6S} w4rjKN-XqU޿jÐ#:=8uԐ CQZ _)xDSIr$d dY`E]l"scbhs`?]>M~/+V Ma=~~(￵^dqOy^.HrNZjK vk+D2ݐW7FPuI{RtٌҏtxHؖ֕w$<˖?tg9y LCO3c% ,)u$jJn=|qKO4!ࠓ_UB^$KSKaYޟ=(] d璉ֆ%hKjMu7lW(+98_֠T3pb{cd+k E[Bw366.iiZyI9䦝y0y]09\"mSâZiJnsPC>E໚g].Tc^PdJ*o]ޟN2 6>«܏ Mws,Ё=YghOy5u piRH2gǠiU3c? 1FhFTJ\6y3 Q_tWZ.P*H m$zS#.ּ(3#^3}EyS-o.FcsZsS?IyvZqtʴ4$=>RlO¼xp7t7( 'r1+j^\բqaKK1,3yk@j?,{%rgow` O}R(P_oReޟ+,!.JV1K-W; -30hy ~U(U(M siBkw_Jeޟ ?zj=(lT\,w$k]2陿,w\<}g֙s}ڡ?1 j0+~_s_TDPZW$Q܂ ņ^Ĥy9%G eaޟ$'fXX<=Bo);S5{gk TkϜn/N-# yE@#-s?_//ۍ`6鳚|ʻKC 0~4YwiO*lW[b\*٥y }ȱ2:!RC s5|};gн0ck%')8r#}jj,^ֈOV~W3GZߣX~Zʙ8_[e8ߚ<%w2sl9 kF-?)HqdSas/q?KDdq7Z8yqv?u;$ʼ Akw(K[LI564ޟo cTgǧnxysI ef}:@yP' |}}<}Pya@ Ɉ4^wɭNgovNթ&d_g r QEM,+rߠQU߿:=}vd*@n\GCG;]ٓ=hz,޿lS'R ObJҐ?90Hx|5KvPHgc+i_"}e7;+'7 k]\yXWO %WbXSkh1c0K?*d1cNm~pZdbޟryAn>}euLXAI1Ng4ne0$>AyU Ia O8=ya@'o$ߕ,?3\$oیޱ҈Z@ XxzPM-who- r9do_2B떻:wZ(91?|Q$m5/X($ <߹޸P?\HŭQ$ީHT {}ӉBI|2> D? ﹂/hL}rG9*u>wz?l'Iamavi<|X?cـ`({YFU%;sE^;l'W *_1%qe/?䜥uÅo|gk?U}zNpm@0oޟ*`#U ({2jxeKݐ?X..yhҶ  oM8h !#:)<Äk>JN}]-٫Oryn z h=D)9_FqW(VkbV^xsRLM冯[0ky#$ ;L^EZO}nG\}x9%  v/'~%G Nz֧TˈX0_D>v&29T:+ Zy[ށS)~8M3nP$ԓ%E-x<\+X[ƶm|[YdX|`UrC]0}ܓkWXd;yߛ!򾋺l2~H)1iŕ,Mg,Zs=чy ;,O\&xC~ֵHA:S;_4yB?]i= 'ͰH`l:_wWo?? }V\(ɍ} 3>G# H>TT2օVq Yڐ,ZH^Oa?}ʒќ,|/^J0sS \GQ@:?d 2TaJEqdH foE=)fq2)hd@x })T @"K|caPeբSL})q#\WJa/$ 0(`* ن^yέ ~ 䰟w#+*q~D)VZR6^`Mg+P*睠|zOoii;A8{,;э>SN]}Q<Sy)Bd_ӲCxGF5ￛ?s= TM/, ::],[S?>>rK**' Spmn¢I>00/A( _[PGZW}`AAv+5L)/yһ;^\}m[idYC!6'x\+꫼e+҇k2xi}Q޿1gx2{Z0yMOn+we HvoҐB݆yxHiԩmH'7j A3_tuKϽ 6ǧ$r yfw C`)+ޕ?guwxU[Z:ܐxp) \x=Sd%ߚ $?Y HWۋo) {Nya~jLS\})ݙvhs *CM3U￲ݛK#q,:Cy5h$_O\L肍qĈ.m}[v]sG7oXluױ0u&6Qd:<g.Gi߅8i_7Źʭۏ#ι&j a\gO%FH5¥ ;;o+u(lMo?gOnkX&y (|1ol@ hrf!`iLX?Eu0?]xr[//[OfU}N>myT&yF_,Rm U;Gk6mx l g~aB^=UGU+P'~/xM|QXt ;/?gOݶ~ $SwutՁJү [&(-x^߿=YR oGJȳxi-*mרpkk\\k8{CNm?oi%uȸ),CMy!}*-LPHeyϒ<38A?}NqyT :پ(וy(lr.ɳ`Fkyj^ 6|q qoY$uN8)_c*,9Q i8T'> N p'07"f7u9qRh=_y*R߿ }]qE9bslX (@MʼnP1ͯ0orAQ{ M+;պBՒt{GO:;Ӫ36)}8;wP]Fɟ[ hQx,8Ye blnoc>XR8]/?L@FBSH>e+F_l]+ y ʼ8米xQZ9ά;Pl)p%eC?!Gn]v$z:PjH8/G<9qiQ}JoeQ 7D8lH[-wwVlly[ea@'ar]t,GJj_qW坍'{=J]ZNe3'ӕyJJC4Oဿ+TSMIZ6 _<&K;7o;=(ZUwKdN(S[k^OD) ^3vMoCp阇Znmfo?@2Ӣ29,?+ޘjJX7qvB5sB5[k?CKja}`6g- x7VeIim߽ݍ7%å [vRZ`a"3P^Um9 (Ճv|Owt@\|$~16WnY:jfda`y.&{r1km+\}e w^byg?H_\`<,Yy肮\nsg ?l̑:y];!(ufHjsDAߟ߉pm]MKyJ`xϚZuƯs2yi}:@Ùiޟ8}N{qhpOe?-#,O{({sB6κ xOQԡ3GW@6PS'=[6YUk'us}HǮLo4 6W37xS['(y5Z+䝡\,FƑ4uS+hpT3@Fc4 ~7D&]=37"I%@3/Z= >BKOԼn/E[v/NQHDf(q_޿85 }V/lY ݓQl\;Aw&L[yDdɈ× _V'= >rx,}V3\򠙳,Ff #g WxA`.` G7O{|mֺҜqϙe2O? RP]Kc[x|&jK#]8Wm @u<gyȅkJQ!|?K*`Zɇ>Ox3:mq(XȴW -!I&o=r6Q1}xȁe!O;i~c'~%Gu6 Gy }Q %j ~?r9$ :O.Qmʬ›+_B./jgxE^[`d'pl8"H hC`b'NezGKř,ޟV T*@nХ <^8cS=Լ.ESc6 ޟ r>owM%cu8/:vFve~[6񫆄:OFSee0G?!`IC\AQ,=RyϦ7xE-1qޟM%Q/ >Ip}xsXb4='>=ey5 [FfWU-T?/xI}S g_eo?5ￋ ^ِeI/V"ekc;/!O~/NnIℾ\ߣJںy.z#}<&? Ӹql(|4ㄾqkoS11Q#tcL_[)qeDe޿C@SE=~OޅI_hdN[[=jcltrd(1$JPߒJߟ\ˋq-z.￴H!E.?)*yRsҐ!yx JXs`);XoQ2׼]ۥ$TAκ4 S\F?wO-?ZiR 8($7x{0VjQ>7y2I$q QF>xVtY2? ~?S\b'SQ9Bމ)b`lZ_f :ZWx ',:N1C(P ٭t>?_?P1BImFI/K AiZqK׷S:Ft..:Ss(4Omkc9\(0("^< S/ROosj)*; Ff*~jC?{%,ʡq0órW?2ZtM 1{J^ hdBc|v^9.Ju!x'UH;ǞfKz^!_) vމ jb7 -Tu|tWsa?7{Q=:2(@۬.Gu&h:^{8gޟZ{B/`$K@ߋ/+n?̄T>LADgHHˠxzJ"Wcu.<ת֙9~x } F"gK?`m_5<ǁ3ܳ;3mZ*9g޿;l͚ܼ~Q:Wޟ/@p12#Bkp.Ed$}͵~_SC.--Kߏ+6_r7*{- z,,Z"_YW1/>I?&?_V?A ȆχYTVB$M}* @{yNdS-_0Oq('j_]KDDMd,W"^Qbykc5J> ĭ&(Bާl]yJg~hoX),i wRHIETPl AĴ‡}Lo[+I^?r`FӾYtnrwo II$LYy"H9|Mmi S&?_8b ~G|4Zl +;zw2y_ŹoWMrؕ[y,Gh9"=_G'>*eoJ`S8,c}J_WSm~,x|e }e3F3;k^@8G~΁cFgRWU@R?.bIB;3__a-kFLm-Ч!RM%XD &|X G0gkP6#мoO97_Z?&2^N]Uâelv7hV\X^h`<3)6U&]nkuMeJwoDdOW A_HGl,i&￷u?S_l S;?RdpB9#͚6{4mWQZ/RKg\*/Fyܺ$$Tf\.ou 1  Fxoo'Փw armm: }&1JF܂*!q{^'{ ^qO^31n$pq@-XEtx*}7﯎VObXμ]"7yF \8y)i vk,:35R߿9)f{E@~g:?(߬,}6اywO#Ea!lT&kdri2ﯓ[mxW}dzq_\.4KN?.2jakˡ̢=8!,fgc@(N(p1K1nlOb'MEףzJlQtȜ[#5DjX[>'(4ߋn)OmyP+y)}ݐeKF}yV9f_)hyba:`&2g__ Öo_a8B wuV>xBP]PyZtܳ ^lU#yɃdCdr];lkh=ﯶI7sŋίy jeܳ7,y{{Mq??yiQ[@ߪ9_KwlO}7F"0'׸Goɯj~ڕ[F2OcǼ? F| lpOk_;Ң0 (-Yx_4r%C?(S77yoGP2wrt<Lyj:#|}K -°҇HoJs6?W}xXvm% ʀDm?c &a{EN4suyfFݰ@~n^˜_ *WRzQ{L߉TyZGǙwi#q5Pq8RM;vp zZiӟ5I} Ɂzגݼ$|]3QX#.1N4rǢ,{Sا҃V=Pdx9HmxB'\ڿ5 }E狊9߈1g" ;fa[D7^K%Lޟ^p8S߿ȳ' ) B1PnNK`+6ڱ#Ӑ!y򽾿:G݇Q޿]C.7/Gymyta#@7m`i}y @<ٔf]J_GߟS0^>Z+;w ys+ x `_C6PڰxS%fCrt$RfYֲh7H(M|7osSN"졽R7);wq&_Yr%Nr*}MfL®Co#o/葊b,}iC#,9lGD܄@SIe?dZr tgR }FСh @d񻧴=y lcf|=}^Z]A򾻒_>_wl;Sİ^1,FmoӶϟl} ~гH#ﴊ~)kk]~+[y!}9%_gm|f ]HJH߄.%X~K2]VdZ[&?'D) bxɎW80=qWMy,9FM[ {G_:!z Z\}åF&7#'HV6?0?БĪ-+x\\Vyr^m?)H}X}B{A}-ȊR'-K7W?Hmx-1_\΂ǠDg1nP;oNs+&1h5CO3y)} )wfJ;TbIkF]z Ug6or? Ra\;; WyWSʂu(Ri 6Sޟfs247רfG06ˆpɇ^WͷXXS&^r\ E!FCn AaU&]1kX'h_n_mykYdx4/%ԏ7R wҮS̚"M n;:3xՈaL%]$aǥ(&r謎_@3Be(_ |t^פW(BOxqO ߩ3?L/X68 !WqRcLEEQ@0G B#V:6eZS35 |n`ٍ!yROC,<^}|)_ZzGg IFxg8-oC$xY_rEm~9/G澜@6d(.x 1(?4{ ؃t;30oLzSdAWA=' yP%{S[`ho8￵)4Yܱol&_Z@CSrj}#}PbZ%xDH /& 8;d3wIRo!_gg x\SBu/xOXP?>`FK2zuD k; qP/=ӳ"l\\D7V[@ࡈEy_M8lX8O F/?9oCU8QPαnsȽjQ(1R߯tK&SZdB8hg7yE9bs@1Uk@J%D!J8Ew9h#xn]O4p;Mh8&n3[A*x٫Q~z;?pl$y}?TW?Z4S:? +}qޟw0 ^[@" ŗC`ݧS9Tî׼2Fߟ`&eCeؽϼq-RPWۥ_|Sh;t;1"'U}J+A7kRS7SKI?KTN&?1?[EG\Ķz[@k?߄^7vgo?7% kXR@4|t[=jclDu3}2u!@ 6%\&N0,;_ M\)7`+ {y;صae_+޿W.!^wEɩ`] Bz]ZC[tJϦ 0/L؈5 'x j#Qcʵ}><޿kJ°Wk )W25jd~\9Q"J5?"5Zs=7E},/CnGrx.&|ҩ%T7|@%;ZV{/5EO+{::~'H OSټk[+3f>DG b4p8J"ݩ9z69UYey?brD)f~N)̻ltV X}R$>OI(z1d?3,X#.z)WfX_s=Ggkrx)H5JJeK{k|oQOFUaZTpR5̽+竼^W%%t"OSɼ*{+FT6Qtz. `!œʰ3;`%pD@v(-6w%͎G,#J|à%; {)oRԏ ey2<Ì}6 [b { ç܉ŹQ=} JE}H:MkC 6ҟy7xФkLN95ŀ#%ᕼudקof.:흿dￄ@pOi1_L35"5zqk]~=K&mFd1]I  L2ğw[uK Bͯ<ѓe2Se:@;$^V۽yg".y\}zrIygj$LZbv80SqE}9 g!^"#Q3wnI9ZDhmmR?o GBY\Oxlsx/nrvwXRwIM!,^[--jhI  7\# NI* ]|}I)Uz};?`a~趯qssugড>KopBX# A9WP LNO^KuZy:6w;;#?CY;侮ڡG#u;}O"XX,8FIy vnޟr77-а?^߿]T~cxi}į((/byI"kyM1 ?Ϝ/Hnb) ;[OP?($,/ ZO [Xfʓ艰)@߿!S8MNeF2Xbx /3WYQWM2 $I_w{??;!z-"nsS@T]F{f/<\ J[Wwr6L}N؆?K}>Ty4$0_ne+ddU$d/dngя{k1e.*]ޕ_y oJ3<]wYKeIid)|qM'?TGa?VI?`ܘTMQ|DI<r#}M}hP5,lJ ][V}eCO̠6g+pO+鿎aͮ c">k_I%sxo Yߟ/Ex݆Be",SEddbe?OHzi_Ǯɝ}D c4\F߿VYc7?I昼V24^A&5ocm'~e2x5@4gb޿}7eOoV㼿QAp=/}֋|P.y`o|OTpmxxgV=^ jxZ 蟽?!t@ ܡIۏw.P(.C[86?7 ŲJ?%~1ckL#o/qĿk]>^;- {RN7d-C<%?%ez${O)@o?]|#ޟ])J2[9zr%wޟSKkOߊ{Iϣ:(à " Wfpp%.d\+AAp3J]FAܸqpBq OwGfF9>DfDuFUDeUpsYU\wVs&a+oGxs`<4G6ة;<!/gdA̻K4ü8gAx)RB3ܠ"~*ch(TH/tچ c)?{gi@43Azh˄BV{KUW Н||1O&`޿shd9)% yeq e_y1+ i!</DcL285/KǼ?oZb0Gϥ-^4Xv@!)?d?f[0OVO­2Yd T8C;l޿KI*jhљ4}sػU$!),tò?c+x~S0wRߞ/?Q7EZ_kY ņ,Pȹ'][k{Wy_M@p`9ޟ>9 Bp+z_XTis\I:LFv7m^>P㎡/%s?VxtfNj$Y_ƩQ`?݅E ^IJLNK]mt0޿|:ѿiiݰwCbLʛUjޟ$E/}ך?2]QpdҨ'kP{y} OP2ju_r:% #Ұmp/WR*r A?DNR!4D vQ>^]"D9|>^ 4.L!M>Q~* iv$Ow6`,a/9x6ӓϰyL㟛$~ F03y[uzZnR7!~SY% ؓv$~$ YM4M6>߿02D@ :'4.wr/ cߠeyF]OSOz6^E vw/,<hMUc _dv} tĎiQvlQm񮘅i4i2{ ki$a_dxʕETѺϗv|bg=FA*˧ouX%4NޟU9A4FU;t#w]g:aP7mj+U JI??[;xi%[3^ASޟr1@|z*Җ 鮷->d,֒{E ~ẸM9{/,pkQ?Jt `/_EЀ~C`~h?D޿G"@xFHt[Jy-WDpi?J+SEDߒ.̲4ya={=H6&U&Dxbmř?W'f-ʓ=L)}AET^o<7 j;Tv#S{wO9^=޿I˚6&,,w$ټ@EmmW&Wy Xü^y|WI;u߆M?ccOxWU!Ei"M# i۶&[ly y1BFyљJ 3hKM[Yo*͚l`s߿^.ٴq"ߧdc6U? cPvW,WzU74цkF|!w-ưilNpSfemA?6?=S}ݛj1iw[*eireJ({=Әx$f7 }c}f~Nx\7,z-S*F#jWB91|Cܱ?ɸ*k+3dz[S IB|h*UEGlHǓ/WΑy1\ȟty[Gdu&UŏI^_OwR$;&d`6$@t#xSoF|rAPJG'w~ €؍um ׳K4}t %U_o:A'3?I%x[6pOn ޙB iRoCzҜK=xx7*o{9We#a'W? e?'#܃VV!{ZOa>M0yUe#8y;O,Yԑ{/pw;wGwoo؆,TBy:$oY1ȌUK%2Ŀ} ub0jDM/)=LӡV% p*t ?rڋxg"kcj?y?Ax;?x1=8٤$WXay=9:x8J])}6, H48eRdl ??i@aHG:K|yw4??hjԾLC?~?K943;5?~_8f ?diՆmaxoBbD &>3ԱA(ܿAS^=3 ?ߩ kѿFxکPwt)J:;:Pg{ wA>iWkaCs?I5x?˛S0񲫙{}Oo?wmXN?=Rpb9/!\x 4ZEsM7;|٥,U/ܾr'$%&'X*JٍGnߥ`޿Q2fE,IFpCoϼ? 06m(k<k`W;ak,}^V꫎9K!AsA!_j꾿. R Gf/u :uU1OB)/3 ]I ,,>5-Bw 7߿ٻ_?x3&[|\g¢Ǜ#g4g@G+&aN+-hN|2 W.KuB  N| "m']tY|=ђ,p`ucSTC_<?N:㼿= 4-WwN0%ihG|/ϼ?TuH Mi*hjj7rإ}{9aݿ8[Ø=ܩ ;LeqcZzeRGKTOa&N; {8&ԷR$i\NAԜx͛h#wnE#1 ?xM[R/Ao68HΞ3m$DޟSmsh@l? > w:y"97WmlJˇ2{Xo0\a^&| w?:>%nic.ecp_q;?ɨ>@Ye 3J&A)r?KXqB[VWwй[@NPo+ .=]bޟbr{3j(q,a%QgKdޟ)x]!$\{!ØzRY ^DJk6&}2" Et\bѿR̩=33v1{}ߟd?"NNWzV^x^Q|yüJcc{ yU\si[T7JѿSqŔ{O?r>g*3+0r8E x@YVRi`g ֚D3+u"GBOx *i@}c1e&e^Pa"=rE% xfO{ o? 4/|w5)_3M ]xxZM$!L72`.?On4A u>'ûY8=$BN8wMdsoY},$N3uFkQ0\"m;UA0Olc=Q0硂cXj5Z~ERȽVAf. ]r:_Vy$:;yyPQ%xR?I99ZV S_^zm왼1R5/za3^G\[Kʧr~:‰8绂fPLfG!f{oeDO,EzX y0]P /XLi |?ķAx.1Υnu*Cowj"q`*DlOy1wSޟ44Aʓ^ֺi W', ]c(VfԆ~dd5$2ug^C6@|d)NizOxc2{O1 ,F$G㉼$ql<47g $U.*.2p^v #\D= ꈿ#{+A9>xsMЋ 96L)p4 DLqRԢ/㻽?}.x|WO SnIF3X=V5K_eZǴY8./\YRi1d{xDabNA@!Kzw3k-x6jzԂ(PkXhE-pp)oȈOj:y f>}ޟ'wuy5fI 5 Q0%j1׮/)?ά  4Ϟ43 !r*ر'/Q(R{܇E_[Ph2d"$jO*%,ud9#n?9>5ٴgļ?%x!Byjy1!pa=i~gXCYcI6a)]uۥxH]^.YOOinmǁMIt\zq](R-pkQ 3K  cz LQ:͵8eI,(j :_*mh ˣptC M3wNEt)5ݢc" >X!& 4 n1m'X!qy=\$e1lb" ۅy7JM}2~tCo4 N)j`&7@@,nO`<8ß#T]_Α׮ǰTiЉ!Š>wx}!*(s?Vhsx$ f9٤w<0w@De3cD ee*XRѶ цkݕYSމznOT]ro}#iRN, üaC~M_ e},OɍfU z%H:Bvf3a޿R\Ԟ*gFL)ee"9>xE;Dz H&gZsfGY>_󷵷^+V*(#w&*C?%nz!XzR'[7% b9o9 {_G|2xnn]y"tg^K A{rFy Sx^8`L'Ʋ=OkS?FYCY |K.boy/2A4nD:ڙ_f]h)QnZkm(ZOwf$?i؊T~;[ |nܣzޙ+&x;0Ʋro@:?beƠSbROrd kS꿧O>icsD{J [^x J'bL|o;^[noR؊? ; &0C81޿k!+1ߊ4o=Bm_@Xy6+N F[ߍ@zNzȭS5, |AὡqNd {fҤ|RTٽ:ޟY lk}G@;Tw /=03@z 9 &sOS¼G 67}jէxOg yO^һ|M^_ǎSy\ּ &>S %Rj9oXM]~$0?r! }9vR00Tdƞł8bܐJ[`lY;޿L y1;Uh|l |n #x, ],o3C&+HjNA{aK Sy}_!$N\?Xr hA-_i5oUo.J U5 CҩSԫ\.ZOEu2),, U}ßtw)L擑Ԃ].3- uijBx Aq.-y%|ڭ ƭr&e1K3TfKޅoE!B'yrd*wߕ-P?]}]I?ߟ@8t8!ySC? AޟXNኮ)-zL9:OnT}zm .@Ўx;%ԤB#n߿ |T`"Gxd?1YN1_oiT[?3[`8xn-гCx1;7hU돟yG8>>BN.W}'.BF>1xT_t {8dKڄP1WivL-FG'mVlJ +aJ!pӃۜfNüXC&'b5dA;rHfKO->+w4xKZZKj?>?_JǬwVq#-OnBH)IW|0Dk [2R&et-2;Uv:abHCnݍ!cD1Iv]MK ?LY!^oF^ -c?tD]qb'x;S|?yZ9T^ex zoU+LsB 3t3?37<\ū`^Lwi/WxՑ4n^nz-_F)8Ucяxg= 6\J _}eư}c[/xFgW؏0}oJ(?߿:d_G)`Lwy&7w۸ {xayyQo87o.?{hHa^q.,$\ԗ^y\AFGx8kum??ޯdқ@%f?_)S} ,L/n&w&maTwz?ߏ}y1 q_np[Wď?oQ?x=qi# k=3 ZH&uCHs>wtϦR0e1]2yqOu9wX{^F_R_N7 ¯Yx 8Fs=n06?On=p|[#V:&o>GdY3JHedž?$\HzEXmz(~1tIN6_:kւ% E8j _vH SR &b%Yx.N {?D87ӷ3gGݶy_/ſ$ k)CR(Fn4*yio2 o!*T\1eVc\GT<PaYrV甎&p B|YO7_9Gv֑MdKp%*1`C\}{wiJL؃>Db}rƢ wMmwu$u?o%(K8?E E?EK'CkPFB<#iiSx,`} _4E%Tr9-(ͷXYcՊ5%d!ELGp~|S{'poO<,Jq؆>*,I3xyTq |kVydh4{G A&;IxZ+;DV{r/N >ⴸ )yދCp0ڌ!1MP7?B?royF ˞ny=?6c9o6$h $ +CNy}2p:U#cJ7!_:$֌ߘw W3o7_x i[pO iJOG oW&В;/0*]3RY_)ٻG&eclx1K}?ބIXTQkS%pi7y`_-8dM;ŏM ;9%7N0o7#AgV =ٶ ytIl9-yO>]]}6>6?TgÄQ.@gC߀gOPb%K!9t/T;wOo40]֧UʭJ$v0ݍs gw m\ Z 5¼[T:/;BdƋOZ~]g1+GQ=lr3f޿沼M7HL e)e# /sɪίB4޿T:})$Fu\-' x_Z1+T{O:Gt'|Bb*0?$ {t3w}ψT _'DROV KmJM?Σ6=)^LޒB =':rѥAU%..N.s1 9FH2Yg(iyUqޟ@$Nyf ,MlIҿcA3.syҳRumߞXRuȷ'^xzQxh_اvAHX~?Uhu rL~? :uCY邓sI$ȼ? !YX[uw;u{hhExf@JA/jGye?A} ȊTФnBeotjb5|F9EޏF>سwy#/傗Rx14OVHVjN%7 ;,u'Gx`6}0<{+/x3>]%V?X*MOhr m߈@辰2 1K;'PGUN,1tlò'G8yϝEqW\iWG׹Zxp4B98yL:uY 8Z@1V^'C}%iZy~c!mC$ a޿[K.O9gCtMޖWo݇UT%WV_%))kO#ϑxz tw+9hi¼#:X: \ =:xy/Skfqￒ 7Ⰶr3oi gn?=N*B ӿ`=S5Y9O6RQ./!kcL{.sw \HXkaSQ `.73pq>_h{!sObħzTAK\dUi7š<^x <}5C <~&J^p;ԱP܏xj eTSܲGlI]U^^=dJ3 i PսkR@a+X]sV"jx9?߿.+̶ 3rW'ZyNyEK{y7_u\_gvip+=Ƨ=zaS$K@'91|y*5kHm= Ȫ;;,wI&Z_4i(Tf_)>; ￖ ?0_1r=L=SI""}?rK/8YDn5^)HÓ]߿]yB?V=Rح_߿QWJbމr<UnWБgJIQzP_FzMVHU*(00PxJ椘~o$y0_=k5EϡZWӝ&oys9c$X 4Е#\Eeh>7HtTY>p8ck$vJKa;V-;ׅt,l,OkϐIWs}WJ2S{8Ĩ&&YaMK\UKD1xg6^Go?h` {FY-`Wϸd3,IB4?w:ѫȌyKWnl~%O%U>y8B56wroBT1Ұ44JjDׇ.a|zgIHo:yMsg14@*(\xc}C޿r;CXҦ/J-qW'Oܸ>_F^(=J%iPߢZUy3gxI}g*zqgx i3޿SxoIIDf#F8JOü*s- )zm:}*\ngbԮTO~S=??Pr@ͳQS鋯o7߿t1[Xޤ툿/Y4{R!qIC٣ZO Rpw3?ϯ`4: '/]{om$c%q"wü*/(fC]kxc޿}R y9m-v VMMwߏ$ jM_e>ܑێޟ{+*voS0ߘ4rQɖ{"ӈIO9^yWkh)p%:>,N4eWd,iWԛ1 _ Xg ^\p?pVn&y{5$!n-Dh@ZI|چj_*Yr`fЪ0-ٍBSx_HE.h7͇WQ>܋_[g`lP{/$Lfţ[1UI.n+7ￎ|:-I+X vxGZx+ oRIJh+ai]p#14rz{WtrpR F6!:. gĪxz^ Jd0AiMׅi:aR HLü?N> da^\O{J +?oߟI܊cՆyx+uVxa09SZ üK#fįtodaZTm,-( ^"ɾWg\Qaޟ7ROd(wOi/mtt&o5T2C}7z[XD\{@=uG+0@ x}CgM_whe}PZywj> hŒG^!ni:VUo|ޟ^M7'iil?肨כ{0r8oM_e̊ro$@JBMyӲm VxE"gJQ)ymRiޟ 1/r| W7Ǽ?Sy7ߜ !B#޿]}?~$' IdW&'>]3y!v̏ }oБ{n(›8q?X'0 g}"?Ч Gs_[ȯxg j;=q]>qٞYjזּmIY0,/$P@OO,X '2XUB#,;>]Uuu!??W.u}.r ^ W(Ur@l~~9gQ̤3/)UM4PLSRd=]WTL() >Ew=?Ssx?ACv"݂Hem+i >SJHA%RwnJ~f$z(NOKїq(iwTz1/ or;6vSx/`V, %}Ȑ*{rl%뱋o$.oCNb-߈/Dat? C˨JAi/6(?_r0=a5Ji~6 <4(P3yxbòMJ.?xO|,j0?9 2|(6=# 7(kF;Y΃_m)^"FK#TBoFa _dF_0ǔ(pO >-ZAyv[/4| & Rxr('ƦXH~p!ޢ[uNü?&͞ `9x*qTEʌ~=o# t`(Y&b'l<3()F/ft)޿vR"ğ<6k3Ǘ½? <'tKc_y9M46tK(#&in6wxQABob\iWetA2j;@zҜK=xxc!X);]wD& R%p 9a4霅E%1\, #.8xخwFñoT{f62dq,x_?hLW :Y?Vg  -Nba _ҕWtGxPȑɃg(M@D3}+qP:;IhPFӗ;ZNbԝ!!f4z3eZZ}_KDkaGӚNyހzgalj|reK}k|`kƚYa'xmTlX6~aCZKNj)gq3oDLkolrڋQbrSIV"V ֫ 4T^~ĀI'ѿ ?oy_!O:Fwox''%hIZ_gS,0Pjm?BZwOxiY~oal4^OykUBdVAü?辸6™?QPW|*Z7\҅E!I4>9YJ[ |=,֧4?`Pڗ}s޿8!0 <[Axyuꃼ9-P} O* $/)?+w |w(CRfuuuUЋ;]U\ bS1oaJy7"|~)pHe` \;;;) CDZW~q%Ag|1=ORE,,ݰz')}lGheW37 QC"BnyT=97#/}e?N;6akذ&MWL*xr0b:yto7?@/O?vI߿Q2fHJ,h?z]#C)y+yf#2]U R8 <bMq`Ŧڝ?89gwn?Pi b׊(MIY˔ӏ=˃\Dz ȹ6``!:J?Cweԫu %iR+/P#JSxk[p6 h- .;%\S4gGxW Ș*. `,w&Aqϵ*'F>w>A-(_Ө5A&O0}G2K[vm\%Ww7g_/.41ޟh\7[f?7& y=hx1?0b(*zwґ>m@lTNP_5̫46 땰P9e\oӝMC^9Zxיx>P&ba_omV`pW~T^wq%Ed5C gx_Ufِ?DFҋ3xO)GH^`!>r?Yi,p<ֽ:VyI.0X>zC@_\iݔ_8TL  ;aW߻/-dHڔ.f ˛tU-L+RݎtzW%J4h%G(m7WS K֮{sc?53fX5ǭM/{r▝(4:{A$ذG,4̓[$>ao~GiBPw(4҅R$ *M'TkTIloǿ>ig#c S6t a ]KOH.e ?MGyo3*6RTI\iY?h%"BS7Yϵg3ZOnJdJbEü?W \LOI&&V mC5 ]X'Pe1ӳa`R#1ҝel+y<?M{={>/tVSxo"L2_ȋR%5KwS;K{Its-oS|*)k-_Nxo@q[_h3y+ oRIJh+iW<ZVt%pMCL3cuk@VKӮ7?0K83rtմiiup R}QCj;H*c͇V.R&9~L;Y7hSeOژT+݀ z &Tu&4p>HiZ*|8_Q^c4BB?zK)7zfm Vϼ&8N]UIM 27x5Iik뗿}! Zr&-p.R~3[0J,m դ ,? WXX.h<')_%YҶ1@ӿ xUZ(ü?LGK%Sy{lGAz >E6&6/g޿ (ͫD5WwY' 5@3v@ _J'K?% q: hƎʁ}O\8雸y7 yXذL]>7o$Rϟr8h)' _bgU1Umxq̪_3>O?k9`KyF/!n fY}1YDWOIZ/RQe@h34YlqX ^Gމ \o9vI5&_kX/Y7~#^<By޿@49y>_LS)d8FA>Y[9xP6޿y+?Sш(%eqyh|I3;{%?QD""$IV4+N!Eُ|XKky/V4 Sיlzrç(CA/ /g?NZ]'K~7X})Sh-C2&$NxRwӸgxI+U8Rv)xZ-uCeexTq\:Đp1y/.OQfA%ߟ3)ͼ?_M^ዩԎYtI/vǍ~npz}yU`I4?Nޞ_ڢYuf_e4\5J e. JO.2_z!6O,`~:;VL|fI% zZ4} x˧9%*f. M( k|0Qk\ɨJ1>Nxx YPf k?hPK~icO N{,zc.`sߟ Q#2Na7z>OA׷C:PrJ5nV]uOJ|h>VEN Yf%2J&yKT#v^Ӑ VDX\տ)yI=5oT2P)4ۙ _?*h%4CC[UvG_Sߐp " 5r}zCS)\eymn3<k?P"IL%)7N vX.g4HӨ,0[|KW/x60[yJWJIM/J޿R\Ԟ)J>n*L"Aqǿ$6J _)魡: Z#uU3QptvNmi@±/wQP6syfpyw?|A{pO\ߨq &IV Ugu%{<N}RZmy1kS<䬰9_OR?ŞeZ*ʯo,d4I0O}keOoq@ ,{?VL~4!7h<+1O &$/hZ/>xNCLeC*4ua `wcy}?}xO8/q˃ a^)-~x1xSF"NON䔬׹ߜټzvQs>^xrL&0$%q`S&ۇmx$SYp@__O;k4=gAiR^aniKnYhk&0a`>$Ve+_ ˨/GAv$޿} [rlKf.p镼?ᡑC;KEj{,Bb K …J&l$B=S&L\H챁u CfZK=Gx;KqȦX^#Lux?-ݢ&5=}Gbh&Crw`6wf:_?lGDX$E۟B8hݾY&w6^mnJ|6RG+%A`>`І=ljrkl `*EaLx(?i R_5*4SXH<^Nz:v)T!|`;rT%t&!'ayL]IiT/oDX?z!ݴ%G6_3ZWxLpg @R3Wօ'=B-!+t?߹mD%%2./eE?wmX) "9(?'Sy+*ʅv)sq:?*La^)t&@[z: 8F$'R->2ٍI@`=Vw@D?I$O0 /F>/]kQIo@1xPܑ%Im%X G6a 3_gu(_6 o!?)މcҡJ!j}E(&q߃U-?=!޿|0HʡDi"(Gܓ:üѿ8 ٨\2𠏍)yo2%4ߟ5w_a>'خBPWB)=1=xeQ޿]<$ 1{՘? LW ꗿKB#޿]}{??v+iY G%v{]px/p(Se?zVύ2j6D5^Hs=>'G ,WP}>OLd/ֈ1P=Ũ;/4 ?41?ψý|yt%>2xoż?ݘ8쨼L=} #:*J ĸ? W$޿IFM+rXUy(*4tƗ?bb*]@ /I= ?cd■w:,5:,f@G7=.s';y?^{^Wsu"_QJwDCRmwӾݚK*}ݺ+(d5M刾F.uxO;0n1ޟ[s8wlYO =}_#?$uw,`&>5%?If"zx} 7Baa#N3in; ]GLğe~u4.ZvKm3}pLl'~vGww2RF;'6"@Y hZ ͢?EV9wOiU?PHer7[ZfD(YJ?G^__7\+f7 ¯Ey9!/Z/Lm{ _S)O?ﲃW^y='8$x K=Q&o'u36ۧ<\XXsJixoLtiT<2zǧXqDy#{?RC^Si[.?0 :_t*8'JCmR޹yS0EvUy7ITI/|Rcpѳ3J@/tڃw9I|ǘ6}Pek7mҨ!p}}_̆ґ#|+t;2R:N *%D}󊈕}DDiQtȞ(DAġ/ :Z/ B8H 6쪼pbeU;Wʬ6]vʈxB5xYi'=}h;>L^RXГ@/sr9Rðݫp`[Gꞛ}& #y <.ڒ|r>JbD.]ڨx!XJ}޿ިjA[;eV+Tڕm[_^ޟp¼FYΆ> P@[ޟ\#1uxwg3t͋}?̊qQ[AH?Nu`o.uJ# -/b˔ f7>]?T"S&qaM3!@ ɼ`2ߛr]~Y6^1LoiH>T"]xEѐ3~xY; <ϰQ"L%Ss=d?M/}ߓqxؐE=ޕ j:s_O? lR7 xCqO'S}8Z]y! rn´ .GG&["Mc{;I?smx!~n 6쵱GYnwgڧzym?(M?` ѻ1- +)uJm%RɈ$*ﯭ:4OݏJٹEs9HİJf1?NBqۉ*X__s!8M/gi(yy2p@(q?K7ǹom5%>h/,ƔG1˅yG|S ›͈cxs-Iv}?+Q r5-y߂wy!,S Y[9,j˧]z0HFÇ2š7dUIŧ*TOglrxy{\HH'{; (HF'2{y>9Y?Qb$Ԗ,0ny6ĬŻ0_5|yE/@GBk_ry9+:~5GncRZ6q yi#ZL⶝ 1X[aywP{L pJ9ۈsVS__J)-,h34UEX0 :oBb&jFUD 1_\[(qm=H'͟M'_/ϒQ@A{iýG mkv s3r+ac߃S@ղ=Gn}Őma3922CޟwO^sР=,& ?OQ(J|ׅį]兩gW7/Ow;5F3(,Px+6|^?yO˹E)765d~ m)XL=7Ouz_O#y/# r'&9(>rGmΝ?r!!o+rOgtX>!i %)y˸ lZor33YZm>[mg'YJ/v0c䛶'~{uaY'T(du jG_!:qo2m|*xuM <&?>~߿!CiSS_eJޟ `G+)-YUWP?OH%JgGqS忸\٬ V>zl? הwX\^R@cA#w8Vmީӎݵ5K9,zwǼyE$ (>yd֯C #Wk(p S_YR-: tAOnfo:y+yHpJ WW8}*֜msbiDŊzJޱ_ {y|<k_/<`)k݁ f{yu`-O\,0ٹ'ŧ/w͞Mʲv,~jƫfqIQ_!ȧYړc7 6$x5n!CUo7,f6pc?6sJlriYG3M?}ϑggۺ?/D2ʄ$ _>d-vYS#+E4W8K&""'Ij[X/m(ޔE[4b![2WiF: VXH׻cs `R0|:9Gݎy2TӴ81( I/ے `k/T%oo4(O"Gr/@ 2 UJj>"ޟCENk)K$U ޟr#E F%3c'  T6.p^|kWy*@pig& {+"?_F W7W[c!^x:j֨9W :[w\]upO{'߿(Qy|.gȴ7YtxqyU6%.Ƞu|}){ oZiJh*~t_K h(hqH+OծOXCG}UR5Hs@x?H>; :?_azv:1 "781%ڏerq)WYgA ryWGDy~bǁ/nߟA}9p<Go$pvheqDE!#-. Je&9~a@Go3}4n/!,L5?ed~1_qǴPd5_-?/l~JR$?%Z%Wr^7{&y" X4 ,,X9lxh+ Al5Zy1u" áK$.|Rbৄw00d6uD+#0䦰>C%"JiH0_>3DB(J*T^e67Oj{/?Uj#9XbUY쎇9Ќʪ/X<ջx׵m'gw?omAQ \=JL+IU:`d_YNj:y?2'jب1 {:vpG5\_U{*ߌߕ8b/fL I?U lZMOxX |xb}ijn4'mmU$+~eDL":tyONjBѮ evK%W[9ￆȚdΤ--pnMџ .37I!c*Cw*,Lxwq̹6qݧ?Y[;Ь7޿-lYUJ`VRt7?%|eRJ( /΍q4r Q i/xg(8'5@_R`cNʖ CwA͒[w^ђAP^3?k8iI@/SkQvIś+ʸ5_thOEoH:"ɼ?ݐ_B฾obnûGI'cXZ6,~%Ɋq@&4iSS,D/?_(YY`Q#$|}Olo蟴./mu4+2";1 \Cծ9T M RFkĽjWFm b]sLNy[> !ߚ+1]%,R9<BT~JVg#(\Wk0à _ ú I -ʟvֻv]D𹔿?׃T':e(_k `~6+_|Yz޿Ld3*k DLyE1C?=&zsav޿Eo+[ݲr9n LߢU/v7?[eQ<$;N⃬/^\ A0ֽ i}7@w%A _?yf5+@[XXF}FNLNv/?>sP#fqV4MejKz_'ed1 qxRʨS~Onx=̭*]^*p1P~_xj%"0?(_2y!.V|Dgo~KS֙G) W\PS)`yL06?vx#h@T.ےywuέzN 6R{өV:U]mT§T=? Hy,蓮O)ڰmJ`dGg}[ޖct}oWk'D4" Z{)$tZONf3Sy8pwFe >-#[]LrMP?r-7]*22.,-t8'Ywgo W+4R]4ߟ" a~TbH")pf)VR=cx|sܪ֒2}Ivm/ ]+#[Ki a ➪:En65ZxD돒v] '!o=86U9w8܏#ձ%r˅yk) | 0_td&:<_ħ,; i;{yKLHһ:X_j;f3c -kfRH_~KXj{8I4yzt9'?5L*8r3ǣ`C-l&W3*g=|/ς$)hߕ9W -Ͽhk/g'}6iK NyttIsIIv 6R4 `}Al{,^_8ކ~e qc),x"? ,߭FG(kTO16d$zQ&?~H4R.fr+4?4{?߭3KcXWцM0;UYSxi7 @!ɜl%s&2٫?'3yQ lvѿ6鏺]P>[ qp=h7~*f1otdjURx q` PTeG~tbm#YYXiEy[cPo?+p$=xx5E~Plۺ6OY DFU;8gs#{g␿_Ov?9yz)iHS ϑ_fFZ4QsG袨,JibB#Gzu\X $@g'PnsT?| mJ;i^so￥&O}0P.D< /_".+ѫs ӘOJ@=⛗O~|t/EpLB:]_>m.[ex&`Yx' Kټs{=H@N'pQ?G'6ϒOM޿*UrGyo5' ei ve2kGш7UcRYu{Wɓxַ7iL @# 54Q(yذ;"OYd(_yV 3\[\9%l/;BmiuVa~hAycY~>ݡ^HJ@R,p?RzN/3V@zy9)cld͛.*f; >};XD(#4Ėp`mj17Mu2x!޿SZno1hbr梼X8i;2.6jO~l?ba`N ')k? o~ ӾG*@I} +K]_ۢ_+(Ϊ'ayI+3{Za.xy_hֲ;*y:EFQ\*Nh2R9<Aޟt/Qҹޟ9L\@颼X(OL+JvƩ?U;a "!ɓEj05KΌx;~op_Mp_I1b by;"&QޟE+?3F|g%Q;*?Yuځ/3Ը1īl11%w~ValiuNoEm-cj8?/|1@9)v35k|tW7Γse_v__VS|Ҡ'`ޟx+7I) .ܷsgl#4G"" xZ>hOb="JP͵c<+'y; 4z >:Y`E?0S7cq_u-ˤR֮oi0ߚ4e3a|7r@D=$r'￝x T3<ޟ@*'}jdaŹy3qKJ?+P&E}4߿۔iդWZK6d?'y!DP13N|{yjmaLRE>ߟkkj m]QHޏlcoӑyVj5,V]@¼H9Qϳq_ׯbӪay,%)Yq87GVxt Vx/Y2!_۫ ߃wyDÖMѹ(.&ܭ7 ]I6u/e®emg"oҗǤwO2l谈7%k5[8#7jٴʇkDA=Mn߿rܣAO oG,_r}?OPb| _O`b-na2ҥSMЛJ[NVS;"˜lFoF#5= ep'0@L|s/6J$!WcgɓtJ{v7#yT6YgE'Ie(Ժ?iovkVCEZ}eyEΑrg(& xfi3:JUEݳ"f PZ'}*߶ ~7<;Y(yT@ 5Js7KdQkж{'B]c,qⲔ?x; c=ƧKScyً2: !Zg3ș4-~wk﹜f\)(?0:a]>Z6|WNbgGgNZZ3Xi]^$YJF5 ZcNh~LfS1ٟW_4(3.v!Z[|qu+#RH<~>`yBΑ?9X?Cx OΠh:ΊޟY[];[=IwKǙs9v2l_a `W匭ΐ-݋]?V޿)qy_VotyIlBpZ[X$#gr$o+%M١ol$W|=hHy #ywYZnFI{ςILo׼9eEn"tO]CRyt6p #?)+o<?A8>jɐ(6 xwNn$ļB%~xؼxrNyn~#ғVv^x?̔}nC.{ZH ˢ$VNI4t+O|qH?^ykpmrՙwш^)"؃ޟUhY"#'iVx;s-VPO'i+/f.5.S/EEE&x?X̢Yx_4K*Z|M23% 6ʻ=8g$xAO:S2RaC ?J$$XpFy$#tݡ-Jm Kqp-F[ dqK40&޵ky}Ru&Wz&}L`}B խ_Lj9!s#sĺC}y˪M)$ߊrH=\[(qm.}D~3u02Gx+QMw{T/{#^FU8_׾rﺼ ^Vcn"ju;:gqOAn.ݼƋ+71; j$_v"Nh`u)Xt?/zcExry4Q\TTU& roOڒ|o_]G(ɼYl/~~?^է5&&A {\D&2m@N] PMZ&TS.ؘ9ܧyVC9@Ǻ.I*fSJ0ke%6ԣł,H55yp*zF!x!Lu[v۳,k:]ݥkv^ "}.ul_t!.3J$4 εQS~Gu!.ugCYhJ~W/}vלTyVB\=F&N4Msg; c뜨wuy9ɗ qᵅ%QNj*+ qB%YYj+Ck$d5?]w?/=y u7w%N*i%1$Z8y?US+R II'&Mɖh;~/ Zy`KV:U%x=ΧG3ǿ']tޟG8i-OB?[H|1W*] Ԟw(\U #F #9=ij`  (a7h`m'S/M0aI;+C?g>3Py]RN\?X-MVU>sO] aX>x5 ף%YK{Oj+;c. bX[ ?3Ijeӏu veKl0~#`g0b@W#|c鼄XX*Ť?:<4_q~N mG|j3,K;]s@Gh =kB<@]ߟ/E@e7DNo&ųdt_; |A@Xg_Gs#6r[KkoWUx\ Pzs J?/|1gw&W-JOEڏy TbE_Esu ˇ'$)2NQOx!K@hPZ8?RI1ʞL:;oKt7&^{C'k>6WG YJyVa18I5VBϐ NJ/Q2m_.]tMEqI젷r߿7Aa?o;"\e6Qkzpa77ϑoSbf&b<%x!#8w(tγ@YPUַs͢ /PA!og7{3zf_4ʥyފ<4D+16$M'~Άxg87((D˓+~'UPl Q頜&+:;hich?B2ܩm'ZisŊ#OL JZL::<:y'%0ﴻ ͯyf&X-4_^޿IZsPMTX x͹B4L?^I50Eŵ671-d| {vxyQޟn;˜ȋcM3P}޿7ݱmo XY7/[Kp*!DYn?oMJ u:S;Byd 9W1-x<Z0=Hg7kKauSN1pæZ6|΋SV $Rmחx'&aj]zjEG~SU?wpytF5zE,&j#6Vy-:{ fn/~RY%I]_Em*mLY1У@ /א*-8[Z6y}!nD/rСDH-߿^v7"<:?E[F3ݏΎ1%]٭wslK7o)0wg) aG`[GKQ _h"ӄ[2qo1b..bN kwcCQ;{j7u"rhj^F>4w m~,x٧6,l?nC-S]=X¼j~mK'H G OyӼ 5 v&|nQ)\?' vxADPN(:M?n`ԁS{Sς@(gxsi, dn0&:#^?33Z'{z=a 4S[fEkƗqb28El#7󢔽?ߟI[9ϤJJ'Sx_&7ͬu:}:زDMIb??QrsJ@*[*سBaYx/hy) D#W41[5gL{](OO_ ڧzT,ǂ JQH)}Ѽy|tyXV DGL%a߶ah?y.Py%[2~oc2ϙYV]X.^ߛFZy+7N6"9({{_II LP!ׅߩ~09z l?E|KQ(BXD-_{&{# ί Xs' ȁkQ?]&Ɇrk[Tn|ZO-]ld\vgyyf ; PY򽼿^'hayg%v4w%)zG,{OuB +r<~ԇ;p2+yu6ޟYTS_eՃ uCEc}ӛ~ޟтߛs0 t øOY8_[H➺o0Ϝ9@XV?VRfLLj# D>ȝS{&u$.P5NyrW Yu,O?Ř@\wyx;=l Q'F?.I"{iW"afu/.u'2_241&x汙J~o֚7TW4NޚT |'J=1,<\;c+*wBl" Zٶ `{_( %OЭ͓'wy*0+2-±pvv.HLKUxY"c)jtJ O*/rwN?Ph] tYxdS*W Vü]%|cy18#X;00K mgDž<9~9yIZ]_eHD^EKgvwh"O0^N=7 <(cV-tQoo8J^l~/!N1Ȓ \(`*9xH-hJ' A!޿S=k2yX?n5x(XMmԸ /&՞L9J@OFrm7;M;-&ޟR?B0+y{׹J̔&}zx-26ۨ&X$sn-wV8_Z JR̫鵈@'ya-sz~cyICPE%?U:'}?u?H%oX?iĿXU_\G=S?_D>YJ>#ￄvfs󩼉x:}JPI\O3pظH1sr+Q_/sXh8XmVNH i7@:_/ip૗wJ"5j id4Y\ulOvZ[=1/IDJ@xa oN7h&JC,86 ~ޟn5u`5/=(ҎkOz"uf]XG <`㤤v8Omxl[/*Aüv(GlxK_Ʊ|S``:xc71[>G_}N&ykJMU dTxn,1`S}(IƂczյoz!bXđ`b%kj.__q7'?NR4sIAQG\&L!K*KgH~qTҼK!IXXqz~q?e zZ~ ޟ FG+3ey .xw3[RwWf2Pf6M-ή\ z) [Z]oPIRgAx. 1,Jk*tNc &ť'K8Y Dd_RBP40ӧxfJUSSwλelHp,|:J8i>5 ˷V  OTBfP|*@ujɑPȐ,K&Z5Jٚa׵_7Yv;x5;Z9(z`:DA'?u:0S޿4;)W{3t+Ung~\t_`yyH2 R*V]>Re[yyM* ;St`?2jo,´qXs Ч%sۼ:;{)BHMVpYok 5}G-p_\#} $wڪ#yKQ6uO$8S$Or4M?y^"+EjǠ^bzkS+??%@iSq-?O'ݷ5spm)d2+pCL1? m !N5Aey+[FH)$ڶ߇ C)FXX+WSaea&M)\X[Ryk!yKaj6^wuš[ ?`]X+W2##SuU)qp_oWYI4"tj$hC൏֑7t_AJ_s vb%[],!x4H^ǔ\"|;M/>{2G |Po8a 6]拟lťVq0,[:y!W_Xs-\?ueBT f?- l'[Xu$+^b܈S.,?AЁ*M.f֔3ۏM2sgfpnmUŁ 0sy @C;}TOOd\ Z d% =֊i?].*k*ռ COW^yN*)UN>$A?vM@jzII~MR LcVJW'rPkg#vyoyZQ:'ݒj[y/E}ԣx90kzU_> K;JD/_2u4wDyA1tw UEkq#Y"ً)ϝ577]bZl4 I='l6zC >]UCdkt?JYc0t(q;pߵS8\tØa.ino-?ϻ [ܓ<9b[/hw|[$INOi;n/;[1rg:_RD.S䐢d BpSlRpiRSD`,#xjk8j`^>{F-QD٧F{Wv$b5?a?C3-x'XY1#xWHKޟ"`t iva* `B{m9)- x'gg0YdYF?F'rx,Fa|&N+v-hc\im`d1yMVZ|O,{Zs|gRͼrGp2z M vZ쌟J8 ٗ4B9_9U7E^nP:J݁+-iU3R v6~]?WH@%?z#) H_/xQZu /U]DT1ev$[M 4Yň/vK?ubj4)!ɰCkNML fr#Zˎ,5n:o#yU~? 9CY|4I6E}<`Hv PK@,+9Ꙣ?tBxtZ֖d(ODg9% brbt @Ee @+].S#W/9rDfMi`M^wJh+-tFhCo>yd}^?7 Yi1y*0GTr:AiqW?_xF~/aG;Z(R]-d՚>c-yhBkGT~W"l țKL*+x;&U(0S<]9\p㦽/@_ܢ'ȼ :0nPIŁI߿W bivUCIQ؛N1^vӆ ?8}C?^^0zǵW}~x[ml PC hu:pp{: `VfA\Xo]qyoEڟ6]ZeЩ_rz f%Df3wf(M;k9ΙrߛSwP{)hm}߿wq[lİlaFò1[aW~/s/4ζ{yE) usAZƇ -HdPXLo~taչp?/os9w~fewz߯mYoy ;OGrOlVm/x'K+OLübٖdmkGya˅ev]޿aGs( ,? yAu#p;D_Dr:%G,4S^ߟWHF6̏sSy(\X[]m7; @"C;<"\˭ݡBRM͠pDjZҰyWߒdɊ- `ˉJ2Gw|FduZoZqX^mEjƣ͢S~63>vpϩu c ؤoɪƯZS52u[JtN(.#yGG?d E~79WmxKiv{|k4rbp" K,pߟ6;F-?X9SC4gfWHO{c77ek_}bYC-> EUK]-~(FfT|e#\1pOH]oG\_o6_J:` +]xgE[|RcrR pf'k(`f|w_6,0[ ʂ>g9jK.JOA6NXwZg{eE42Y(?g 5/m?wm!JeoBTiJ%e޿\^\ ^d'+wv֟2sVn?Nkn?DžHydd_ٔ! $a|hGO,sUw!n<^?wTp.t[.ͷR@$a{wDh= W]aט>(r#u]?TZm1j 55cʒ`.>X]2%?gfmYbZY5 3lk%lmm.-k.7G6ãz~‚/|mK; xkMI@u/y_R˚"y[qc^&֩ۤ6ļBG߿?_-Wz.NHkRG$` \X~Ku?U)t=V~Lv {/fF||Ss$NטD5C#ky7TExD~B ɚYgD^OxđZAޟ[=*?=AG!G]}3*w*}k/~rG>.f65yP"V Z\WI!e*ŸhN-vp/LH׶"/ߕP>FWڰ cM~L$fTжL.wy*}DVH*eo1>i`$V ' uYy_,VMYb kv#UF7ɕ ߦTX4.N z؃$ycC?E*+-4Kp޿aofg_S[y[FxhyeU @ڃ`XAx}H|rh_HbgRҊkNnsG'ixu,/c4)"3/&]azWn p"KLxHAm]w=3 ȿ^+%NH>"Y΂~5_-(|_}! oIro7|_wJ7ZS DFi֦țk=$&.\ 1:߿؏.wJFri9AWt_C9ɾ˱xy ` UwDۆH3,|jKgҴ!q,:?0S\w(N)UH?o焙7G6|yv ZG'J0w;XuW LX!_P3#ޱec2Daw0zM}[ꯕ=q~DEy{}eX^i*NkO.)ͼNŁI'^7?v!^8 i߱h,b] вHߵ->߁ꑹ6xVx\o= Dtx">RzL^@fɏI]mE-Y݉"oH/;~PC'~-S(mc#nZYcJ=3ڵwh>W(:L'-ϼMyOZ\B̫鵈mj8YhG$#x>/.B'䩴"9WIM 8ߟ 4*KSLiJ!(|CLɛ/#ޟ%n I<ۇf?rʉذ);}y&>v}c>c&'>TxqQܺ&7?|/7H6Bxr0zY?Ϲi&d$H/ϒQ@|b*ܯձ{P[68}Qp' "8p $#qCF Nd$AB@Q2pA{룻WWgUսϪ{qr9w}٫W~#ǼkV{;xT8 sb$T՗O&`S> ']@XP3_y2@o:s8eߑto|l'2 #M'm= b;7$mįqxY6-wҜߟ /ba |TL c 7c| Xur=8Z@ jeA~-6v /t`I 9u6WGܓVu ]+;?;1oz*;qs(ir*6o2y c&[ma$i27ۤ |wĺrWLK3}7qfaC,r $Z'm<`A $`ԭ-x-6? Z4JlmņӺt3ￃh,F0pa]q2H6? @%}T0XovTj^oKu &kM)87:[TaD!2-T" ,<ۉY'Sf9I/N9 ډݥ$?/a%1JC#T%ulF>"bgboEkxߊ`~ c0H0'@R!myR&jg6mԌljֽFxX1ѳ3T\x 0Sy-J0H ?7}.׆`xGEil(Ԝ# BS;+lڌǰ@c6_'ˇ=#?GvXY,{ xZr}ɨvrlNG?@x!B(bJ<M;>Zƒ9/d oG\0 gٮĠviod !a^%-fY I{}E:Zє)aEc F5@U"S:ڧ|41߿)y?/̆vNא;Ux;MT z\ܣ?<*_rJ *hRjT^R{wU3]eairI) k8@ :LH -.p_OӬ. &fDyax=wC]S #]9iEOB% Xk_;pIy=&1g^gsM]3,y1bR-O!eZl-0=(AxYatJBe8Af#a؈cQrKUNNK+#b /a7f|/΋Ny ?fKZw{?,7Q΀`Q3Wx|F`ZJyhM;"96h6&0g%j c{:E%lJ쓼DWia1 Vm,zB^5ڲ:OX1dS*@įxʍ_2 pr"O 1h&/*Z:xJ S}M+|zxu]xc1F*I~xuIW'lZjɂ;Sk; e>1*t]iۘʝ/?o|pkݡ+-/W ;b~(( O8f+fYVü:Ƚ"=Nü_???yT =rIp0sTBi{#n&z=OKw 5gqvXk'kCc C{ ψt ԇ `;oNB(+,\4 _ϰޟvBQKoA%Q"FԨЭal0OJyoMc"RYv8} |1YcPX}%8.Dxm\U xV I0=OixFO`[yP`;MdqK>j.;^ ߄H V=#g3)7<]re6Cf~nbh]Wco/_-Gh~Ʒޟ:~'Jhؐ=!Q_HGx2 c5IɎWz'`RᏭRv&ُuB륏+C24f޿ʯy!-ٰ}ڇ, Zp0;g܄]xp(֩\lq#F6]b6i0j d7/*d`WB^:2!?c? Fx64 bUޟ?E ?滔Ex$`m[Mfa_%Uj UO&?Zx^es+lD 7&eYy t82 `9W5}7thxBcLjh$kbp%E6ªj}J4>d{!qLxBJb9HA^=wgޟN*R_a!fN@ɕ_?䯖'' aEysߔ_'V.u:o}#aW=^yyT*>Cx' 59'SCɉxt%FCF_%#9} _ {øgqo2yG?N:vaaXY~@c&*y ߒF=sI7;D*yN6)Ԏx& }?֟Af۪F't$Ǯ<:#a޿V _+⸲i @W ;YXxy3j6-qy5M(P-9/oFN S0._,/.o<,:K K4z[!>XOyDkd]0oR ʰ_rJk.7ـ6|2?ΈL]_M,_Ve8t6Jx5x&?dYXBQ!߆:u8  Y(,yЮ;(yy0?;x9A(*gtD&Sܻ՚̋->w7~,>yW06C9p]kLˆa-%ɁT-Ҳ *+d&Be`u_]$%$S3-,*G3Mkյ(h!hK-c޿qa>;נX4v弩zXyQ?NθvTo%N:{wT 0az};pޔQ[,^&Yz)U3 Tũ?}IyaWFqaWZYA_ oWFJ{VP4 W,s|/a}' DW}J$4)Q@LQ, `)_$4"xg˭ BI(E-79 c.X_̢>$!ax;sc^q\oNeTS2ҘwN`1w/#VDOH3#?~nxOjY;"hCx[T@B/CP5aE2nZϞZcӃ`-3+jNo 5s rqk܊cQ 28 D?Ul3#bPDh?K0! rY?q1SRL-%忉&xE純7G JI!1vH9A_t|p8 ϯxg4X3Wav`<`!hW8 /(xB+wK:=-aID;qphÿ%54cYy uq-$x[Qw ki8ي^im$5R0sr$?HD,paSbf!o")| kHF3z|I@y%,{~5?OD/Xptq Ԗ=8fJJ/`I*y+b~ 8#|O; \џ{|Lf ##/Ʈ߿< Rؘ4?N`m#Rc'AK!<dYU]/?RylH\,,툰 %Lh9!yi0v߿ D@Λ+\J>7z0! O$y U 7o/X0Lē$_CiԻ%F280 /CR}JM x迷Z{ ;']1P ܁?^GxV* [ɔqQcQɹ0! @)(:uiF}#b\/ SQ!))E{*K<x5`!Aq<^ x$M 6D߷djĬ7K5CP8T;G5r"ĭNH؛ k y-~WWH@$T޿A9bTsGk?]/ZH'ٻшO/ DۺE!?Tk2 k zRS쯟"kBH!@SaJ\2gTJ_^{ى] Og=V̧riG5S (xJ@'גqv}'p7aoL$JJ7}1 "o=v&߿lE~!^'߰}?&Ri.yguTcAegἀx#&FMK$p 9y7x`e/TRhiOԁ<&S&zpE*{5wߗ^QK C]/W&=Ҷ?)œn CxeIy)ds|ޏx+&xSwrQ^mTB!Un̰6x1paqqOb~:&1'_H f=~iKc՗_ /'/ vUr-p+b9.xbd?;nUjH@Uy FO{I(]x `҂Ê~7M ;GeɽM?wuphCI*g] IMah֦n@`]HO!Q 6FyC!y)å#ޟ:t2{vG "c-ZiuX~6\[i:Qqmnj}~Yt0[G_ť 'Ѽ%x%97ēu$N~Lí1?fS=Oe%?Bt+oR x9)F 5?a]mqڟkoFF,'?Ws[EMUjdu3; uI+#X镦HYw7oz3=џ1 F;iS_%Ђ{T ?-^lAX6Ӣ}z+]o@,ohKC P_^jByʂqܟ0%=6mhvKH@uҩSgcQz|/v SdQR!pk B&kO mj#/:zFmHkc'+cW 1|Ȱ4}m?"ae O]?Q,*_9O' ~E`06@m("I^@#_YTih_h?u7ڸdu='į!ҥB-'*tT1\+> ^@Cuq'^ ,J7 .6o\E(^f>S#SpE;a=*YxEAسKKH8X4B޿u˓:KDJ=/=_$@X6_(dCc|XC)Orow<2":̏!ܼ?V`< y=6N2\zw okAWU 98)!_EeRM{kㇼLR0j߿K2l? m(dcQJ_/x'=ib%W1^"Y!?y;@Ù:JFEo,9=/2+C$xKi 3'%P=f,d;Gł+y1<4u'~OߤĭzC&0Fw+C`9xcb5p;y\@oVK%#gh@HWXeGk1ޒ?g%]L-&3+Ko?OPhkwژLH_FI@޳Gk5qFxk$%dŐ8-i% &\ߟ4e}޿C]& hs-rW DޟH)c/m$q_[)"JYLNxc;=IC`hx?-eRo +Uo0RY[s6:;LGuFN?#kUKV@&g@F-,3ߟ&i^yoV5yWfWRGH >@bǼCy k${2yw~c(^v >&pM^@qy7YA].x!p/Iގk2KΟ_,1mGo}S*m+?eASW0ekA6es5+o qr h?wy*v %Wݣ-}y]O$uv+D9N߮*?1p?,8x>)ZIΎX0(_PN:ڍ;,WQy TΫWu'JB/5/Ł㹌v/*ϓ[ޒk# {/6߿QS* +џj9`gK"x*YX/QV_/& ]|K@!mxCt\&t Mu(֎UO7#Ma'Fk]c"c?& {5@0oс>"a~ü&y~q_/&_sNTg%bkMƣ'G"a/[J<t':.F1vxڋ8bȯGk6 SӅV.FZm+qH1Mix>{~zN/w? y( >WM&'{4ŭ_blt5KǼ>wu3Ա>nq-sG߿ 淪^I:>)JL (;yHK?,+ P8:3 :u5+߿NC_8hJY)pt߮^ uz.y|Ac#rKe|0BE eΓ#LbMڑ cGL(6|y1:D OJx$:th6c=xܳxMci'QSx|~]GȒϹ;BN%X~* ͩ`XxND]3OmUQ7ǼF:C^$y]j{¥VfiGܓ>f:=-{psgDq-14$gs7\gژo O`wQ-,,c= bb,hA<@r%0ڵa?*Тjyo)16"P,<F$r  N 8\oWӖteh&eAөMmHW~1GotsT /.h] #?O{?v`/<߯Xa޿F{5z82.s1iX8-en|eSGߒD&c޿aj\yJd>H~Q J\ݧzsSsü?S_>-wTffo25" Cr2dR%2{O#KSbau~xko?&<2$刿?co/soN]N?}gO 0>b?BPOޟuz0DwU,aAƧywAwZҘ#mz{R:#[kPH?JDA?*?yh/>䂚0￰ZZeN>yV#,N0y XAZp;i ry xbd< ?*?߸r${_%sȄgRY$ <'/TEXRg&aWQZX3b΂@fm(y| /ߎ{'ݯ} d|żF'mS%gjwa׃ 0aVm%ɉxJxRp284w7Y/ٶ%>lC3ߊ^R0օg9Aѵ 6=]nK?*?߿})u̫IvIGFFPޟ?_#dOc?7Ow';B7#1sZη&|Mkw]sW'ɩ0)$_%!w$??/8z͘!ci' [bϼ_K 9+]=?=_J&9XQy-!ܰcHB}ï?GWZf d4Fˍ8BtHoW"d oڻsK%o"FxⅩ\BpOHNt݄oIr_iv$Ȼ/%-)?y߿&dޟFt R!9n2yFPS|+S* ~?UPvWݔ ,{,GQf9rQ=Ҭӌ-}vk|~rdM_[y:tڙXY8hxUzK?TDyԲhث [{ l{ _L'I?{VID|F&夼ɼ ײn@&rh\_iq%(KG&z yW?}gWǁ~Ӽ)r+C)og1ٝ}Nx_&";I!VM8ޟLc+K;2|üߟix";(no@g (]o/9`oAʏ΀y ġq_9wxqze,F΀;u(%ܼ.$djA7M GJv5&,wYyImעU4*$tJgm0 OX @XQ& ;cCh)o.qM?;8#O R:y^~$嬿im_1m"bbHxk$[|77H$ @jMTlZXFO,d stt_(3r=?IC FGyͺހR[J*y-v XT<<ߌOeac !He޿pJb щU8yIGv8_D-JCyC4EҾrTD8>NB\\ PYgw➁'P'U`+Ij}8_<+￵FJDy< :[YݵPix4t:nX:Fn`aZ3o#3햗/vü!xʜ?Z4d4P@qsRx߯*tR-7fxȕ\Y`nwRLv˅H Tgw O]7YGh+ xQ4Y}TJ.z߯߯aD˷JyW'sdyQ޿|PK~7COY*:xqcޟdE ̼{-dkwf?L*}_*M%< ߶cZ'ڂ-n!–T)+`TځfxtOd# 8Q 6, ]L?=Ju 7x`’yR '0A ROfV_8JI0z[!Qk2BqɷH]K.or+>kKaO@E뜏_aTMUz.2_({g$6 3^̒ o)WRy*A.OU!&<%hߦaZ + s19!>s-oߟo0DžbA ff.@$<[b'pQ&iSjv*c. nߟ:r(LCO5 ߱Z?siK./w m Gu['^is2t*￈N/\.?ZJCZ+fsDC83￲eȖ7S)Jˁ5*(R F9~_&#FY5ЂxS"9A(20outx꾳!v u:LO# \:ÃK=ɐTN-s,c8߿] 7CGnc; )A - r 9j«)qdA<+?Ey%RYc("xP }_h"Ssy TXLP>_E I>=߿a Rh_5>FlW':9nX /skNP] s2yd3I4I_iHTE260sK+/>]SIWpiIiء/kGy*C #F*&'W i¥rSxY#]&Y#Ӟgusgʣ6dj, Z_G:+b"3?u)j( apaY1N_xZXa·}jCp޿%>vdf9֓d$Q߿5TICLZޟcVhOR%>0W:} (& ׍dʁDޟЂ`5_Rgu$M_NJ 2xS'lxzE{y 6IK8օ$ AKry=]+'#߬Rޟ&yxljG/lKaOVXxb>L_]) ۯp ~-?xBjThr1i(EG'd 'DU7kx_Hh\E.OP?oƼ)\_)'ȯd2 ^R޿KT3MD AgzU? DN*vvh)?0@~&VZ#QHٹjD>+۰dp |B 3ϣF"wNSӰ`o7Ce*L>Kn:[(K]ޑ*Ur#a! Qd;ylU2x| ` sϺcBbJ> OZizY$8߯rytKOI:I@$u'׽֒yIiڈ@,~wx~M@6_$OWB>_߿>bAor"'K \F }m#λ[' 0@aĪf p\>jlg pS]߷j ?_ixt 5)OQ>?'qS6-PJ|1 9MڑZ$ˇ:~]JDž =qژ<>t5?uDrSj 9;m>/5KM2xIMs/Lg 1>ad姿?$\_%!w$|O;i*b꟧/H@;٧ w-Q=mWv˅څx?*(|P;y@_N$:Gp;r~b@4? 1|X xBB?W"d oA޿ыSs*?!ށF\xrj9Uj*chhq\ǥxRy|cz`޿0Rn.T],FD?SOw& X6z/kG(AQK՟QޟNiuRDix񏳿CXCfrIü3 9ߴ~5_B (qb|B\<s*_`dR޿(nKij@_' ׁ!GĆJϢxauCO?S>'jp'o84 {3?tYO? _H]kT u৿?}(*8K8XL?scIql!'ug!5Eu0?rU{'Oiio߿V ʉ_dxs:D"͐..at~:޿e- AJ$6'G-}#w|fva%% ^C"E{?O>Qu7~"fxS,/xLW) `^Is5 67Ky.%Z?`kD^-%'̍oMZ?ZR0/؉8>NBDxqf\՞o_@As' L[J.R)g$?d!Ix݊S@2{e$ t\sbЇu"?ocɜgd F 6H;w˼#uЂqnŴOqE?*d{-yh̼^DD~' ?{#${n4방- YA1i/I> rU XDXXNi׌;ؒ~! "HGx#h%q$ EiY/fFRV:=o DJWiX N-#@ZY nBm&?G8ۧ^@M?BS ;k*drI"o-]gCeQg¹beCYq_ LM8OWd]1{Me@^J;^=$R / {h(ސ{cˡ xk$iI8ceDm4$?e2 @A'!~<Bx@TJ8`\GI? '}¯Daoa1AVSwN*nh{ۼ:IJxt7K:ǻoD$/@p}\jzU?IC FGy4Q;jgIڟ2/aS[2> W`Qφa?, +)5,u010`FküTH2˅ʑtO@q_/r"u" ӏrA֭N$>{nU>] s-@WlRY}:?ߟ,q-x* $>ￒ}:z:8?0աd702>j?M0mYHIc,R,@ ɒ y^Ip!YO nI*^3yna*MU Rچ uJIMNSBYy6` D *E&T1?Ac[\OC(2 87GNx*7}&ix'U{\ QM)R^!o.h$z1hi3=Æ_\xR ?K5Hݡ~9`gvӼ%ΑoxOBRް l1xgqL:ek 5841d,gw^jpAcY{*ACmƴরDMB-}u"_&Ou^#Đ}!΄cx̛Bk"Oԥ 7 ;Kխ U#x\ sodPJ*爅 3\e?*,b}R҈A޿!lZ8=<Ƴ"< >r##1O{!.I$V)FV7L@ EW/`Uu%!mxEJE@z?KI #7ݥs2beTt]~^!(pF4ϱ8 -Ż߿,3k| /KۏO! /P;;5CVW07B?BPG5z üSpsەaqTVyFxֲg1oGcE'4hLcoRy k$sS\U!cRlTi t7+6Qb}.4yo pLiއ{\??hk¡|/(/B` /2wֲjj̜ujl5Y| 0\hXo=JT|ǹqGw| 㮄/[Dl7[:^?Ӌ<':%üŖ,,>y:}!s?װg%b;pr>PGgkꝺ@gpe(]N0K]5}Jal?&Z"-mE>,t|W׹W-b_NJvRDdφteDGsym* F`P=;<ᕜ̷<@rF*+H4̑O_%y4B3n--oIQ9+@sNK`fMC@m`\)f 1ck^ +@> >> stream x+T032472T0AdNr.WJ+s!R endstream endobj 94 0 obj << /R7 95 0 R >> endobj 95 0 obj << /Subtype/Image /ColorSpace/DeviceRGB /Width 512 /Height 512 /BitsPerComponent 8 /Filter/FlateDecode /DecodeParms<< /Predictor 15 /Columns 512 /Colors 3 >> /Length 36999 >> stream x.W]'?kdg"1!AHATh`+^q*854/pFh[A@qTD@ srHrQA9[g?UP԰j׋Iu?SW~+ZSRSz#gJ?ϐ}?&H?>ޑ_P_߆}Yq_5 z4W v!c?¾n?IhWCvWu]O}[ٓF~LǻК}̾쌰RO7Ϭϐ=mڳ5Ѫ~d>Ik*gU%i?yVTnzhU^1[W:IfgN_֜l}b:b ?}Y a+Z,${/jϗװ+*L|ٞ*{Bcd{q!b-ogRSgbv%a_)[$_$~%u(WU~}OeD^jg_`~%_V]]d[$~փ}l _yl 엁Sjw-]C+[r^׌F,9˔V/UP댲ϜQyW]_yRWXW`vcVn1|-bN׈P| 7+-U~dO⿱1$X'_T~!Rd'oC\{۲u֮J՝\ؚ%? _ ح~'g{t~ пN.&ًLqr*/>[g,]^4rD޹g yA]_y?@XsR뛕l~w|6>7QsgCa~cӱ'7|4>&RY\'_s2/|lYR)?b7Ֆ?n?z?;}BB:9vsǛ]w}SǮ//1,;:F ۠?ov}?^%n?;?K~z''=п_{ۗNrcL~Ҭgߩs%?$?kˠ[Bc_܀;&?X}0V_vǣ/Is~Z@3?4>ks~[//M>GbZ&?菽/07fꯝ-\q?,ήo-r$QoצMMr˾Jl#ˍOOz7>Kտi|OGM~ӇM7?oY_~Q<ѿ$;j=w}LS?R?ap9Gןcy'rKϾ<&h|KP҈%z݇?'wb_V}_hsguCW}+wE_9DxG?;;%GeQO{+ֿw(!'*AП1Oz?jg'HyNoW>9g`뿔$7<;bIo_,_N^sp'}2gGA|_a1a\V%?B_?@G_$?R'HOߢ֟-J?خHؾ?wy! i|;֝.oe)% r^vWMKŮ/E?_0&ֿުy?z7DTKg|j>UbQ <`𴗣U=" 쏡^ }9gd G|fRj}9?+_O@_?6 &}%TREb ?}??e˳g ^A;;Tܘ('?c ɏ^{-mvrg7|~wwF}"8 m=+''<q=i%OC / Gk7u$?+߲qra! dW;;J̩h iHוr#N6RΏT?@voV`{ϖCŶɏNO{wuo%?_l?XnB鿰kO#+S'?B>Skߩig/vzOAsϱ:孔ΏYY'?ǫ˶sw}=rgU/YX⮯{ҿyyϊ@WԾYm|{0ΏYNv}aO7QX?W}]UCϗ;_|r>;˦?l'sOEbvɏS'n7?/BC?u5>=Tq;J~F7'@B8Ze>cߠR1g')Y]ߕ޹'y>C*;?ٿbW $`VvY6}ݯ\ey&Hh;w~6SڭkhO*%iw?i|R~<.')xY[K,k};qv};?|_Ώٟ_OrwY_]?I4OV!\4K}ٟK'i߹OR8@aX~;?vɏs߿ g~aO'<\kå  ҾM{Bǥd7+g/b'I1? 6s[H/owO~̝}n\ٟ[6]}r3,ƧAYZ-%?}ګ'h.^v/rqNJa϶xgǰJ;;s? 5fG~n:h,WOGir$N[[wuzE]_Ծ D"S]bc;O`_Iձҿ|oQX g_O'+M_pO7;'lś1sP)[`b(~+۟NS'?YAg{4>fIC4/;Z'⎞}B;٫yN \N*&؂}5v}??4ɪ?H:?M]18gB]U/Sߋ'sQ_^KsRK_{QrS޴ɏ* N~Cs;wz&?\w};yn6]7Xȹ/~.OT{Nm?ebޝǽbLo>?~_ܤ=u<֟eO{Y&}+]gHŮo|//Jg,5>3>#lg?oq=89_֟=7;{U3_GvOߪ|_>?cjWgH~xeM6aԳ3հ?Y:y.ܿן]xi?bHWz/Z/oqw֟ƭ]}FOSM;?^f}s?z𭧙]Lfاlw|o3@q֟zSgk=)N /TqfqU-_?f?_1ӿW?Sh#;?o?C'[rZӌϤfF0[&n̦W)oDvuo|*%.ѿxxPyi{t~E?X=9Ώ ik'g+/Ng~JgZBwwt~< -뛉'Ώl%Gпׯ>+Ox&?zJ~'<HC$ ;=dǤ?[7@;+sᓟM}L*Osz BKvϓZ\ >?HC5򬯍w.]8-廾T#[ow}#@ɏZF~@ׯ?^ 'KO- ue_:s~i}O羿Uп.(ϗj??e?j7>|+o^zW㳸U?lL78^'cCs3>(hf~;7mqY賾?WM:ӟw~&MS"KŮlqͳ>DbzyC6%_#\:^ߠ)o[2r?IH@?5ŗG0b?ѿ7hg?B_[OĞ毿{/O"MIﭿ.~gG9a?2;/.)ORm`?[wU?g}'W݂۰7ךJyœCHqwӓfs @~?j3;JP?iH~+)oan?3Пg]__?XO]Ͻ|]Mܿ!V]_ggx3$??&ku}o?__ko__gʾ?_oC{AsTɏԿ?3D^'@?Tֿܿ>5׿R!ggV? g"4[s)Q=' 3ϓ5g|F_{^K:߿@!1}7O󻻄?N~,a'DT[5a)GxkIINvkO?l|׷>&L>&&}20lz풟T:?wU[V{ߤkw}ɱVXH'<Ł[5_l O{e09}:?F}s%!fY?Y?m?5n+g]c?~]RI=[iЃcKirȾNǠg~QO`ɹqשoҟ >ߨr7ec?jg/~:?oZ pn/~쎽x7i/BJْ?V+'.E|_g~=5~鯙Un^(FBv}Qg7׃?'܉?d`E'?Kxھ?dg0h|F" (?߱,K`7}ǗuJ.O~_hO>碿S#?g_'?,_=e?,f?i|߾I]7Ǭ>&?B7?a닐燓!/7qgK9oӾHg,_J~r "o{* ŞQBOGz³НNTϔW 6筿.W//J\'J >L"[=f^YWV'f՝OBݗ :?9?-gϑ{v~ѿj[х@qo+gUyE)b'iR3ۜq|˲~<?vӿΏX|Wr@Ū, :?@s90wWR:Ϲ·+Ffg:h|;?>Syߑi3XƧQw}]rr4e_{ǁ:?Ԯ쏥gSX쏧P9?:EgH>I$a:ɏOrEۯߴoN~Ҷnu1&?0iŻ7 e;vɏX'q[%?b&#%?n#otZbSo!M}\痣KO9ٟva6 P%?sElF{62g?_39eN9ҟ- 6r?Vc]߁γOi|F?t7Ϲ?]_קNUc^}㝵\c﮿2ߪ󃠿n}ߵT}T^m()ӿٻG_@Uܿ,IY/qj|jgWc;y]RB=Ur/fOt}gyI$?rvzL_AgW,-w}}a3u/2~gnj_Bo?YZl'ɏA"п]鿽YOwMȝi/ܟccN~?i|=ٿC=?iG:?U]_Lw^.ug}wB2 .6gR\{ 䧪%Hdb)'O?ϟ/m2Hso,/8+k`k6 Oyr62O_R [%?|}?HnY~3|? B#ݽ?}뻔wKTo ]gAFw? 5>aG#v}'4g!xo]gAw1җg}/s_̨5uҟ/U?ѳ@;$?jz `K'Oܿ׿.% H~::&?ΏBI!K'$3>5\/Òg}cUs ɏԿ}}oϙp1'h׬?׿;?:AOz@տ=5XOܟtozG^+GB=rH~x}Qڑ`,_ރ]_Yҿ?fsVA3Կ;Fxg9~HPW'ѿBg )Yn| υ[(DJ^d 9iXt;&?3keߤ&0~{ٮqK~rտK*^4:?~W!}r?ЮC'Po߉`ISt`?Ytw')Y<TՖo|v}{#?EsAsǪ奔^{ٟn/,l|Fӟלs֟}Gܿc=F5Q[Ώ?ws6xgPϿ f<2MAqwės3WB* g'[_L>?®?soF[fȾ?[]?\DuOƳ,?vu}8-Og>v~>/ 4H$?fPSN7L|{y ŗmx/Kʽ 닢z*lf 򬯇[_NU|/'J~X_D߿ӿ5Co;g?Kj_h|"뿓7rc7>'ExWy[g1;?B>?,RNܤ9{$?0׊XG֟uC%?ns<SaCѿUvų+Y_z[נ?Duo5CK~Y:J~ĬmSP'qg?LBe= ?6Smw}sDS~I1U&SiA;7>f_O y7OS"g_ww}ϦC?I~OTOD?g?]?~?_i h/ '?K;&?Q 4Wb]׫?[f/'?؍OAѿ@便NڑGS9[O<墿?pls/juϼ fYMEo?J_8Wfst߰#$?>M"/^tcԴ_Oo42>O)ݮB IqZf,RŮ@ߦ/2}?I\T?쏣Vrlgc;?;?$!ng?ZM_¦h|oWDƧm&?zu?Iih}''/MGًBfq}՟]wvdWn+3R?v}gOT#&{_]s]_iJZ]_7 אͮ{6ps~J~\G֥ga}kyom|5&woN~;F^A73>g~<<)Bith?|5r/ՍO>CSukʾFgw=g O<ߨf,s4>}U-'V}m՟7q?Ԯok?5Y]+/k'=5 3;}ZM}o|'?B3OSnGH~Bv}3֟ GASxl$ c :?}JҟǓTƻϾ󮯪.|7>7W:?ffMOUoxWa_i4>ŝ_ҟW >#u~o|f?>?@g{~Ct'<|o/k?[nɏRyY# 텬9WWd6C>F}&ٕ/=4G{gA0}\5닣֧+g 臝?SF?#.C̮/'Vo_Jv%~ƧA&'~}/ƧXg]_ }ls]4!Oel|s0kE/6Oݘo/Үt7}_ ?*;9v?KsK;Ey)Q'0uN;߅MI2$2N~ˣϗj7s ?`v~_܃OBQ{?DszחW06ag,'ς_@ߟ߳Qa}ojoI=K~sPwxk$??K%<_@?u}thj9Kn}TIiػT:f }g2Ԥ_`yꁡ.lp??A߾8ǝq_[//p:?[oTKhIpO{qUK_IÊz/jgݝ{?3ԟr6'1 i|3W쏣:q2O6+l8CUɏԿ3t,K@.~ɏ)h|.v~n$F[?|p>[ߏ8G|ַ_?zro|ng$L~_F? P~s|$?ȻTg|NspFع,%\kuwh7o\5={}r9sq7uɏп]3zݓoK?-q?)oY'?Ycc}g'?Yxo/j%ПAo.7-ˆ?Ci|&֟u 2w~KfϙT -e+N~L oK QM䇯k_Q\_;o˨)G[¦?rR>}`u~w=߿GZ2 ?ɓlOaϱϠY=_cA$1r_#iOޟЫS~g-+v+~Wdo͔gX+tQv'u'_d'śqԿՋ^*?mIqw_,M%lwQ?7q.]pOCxo_qgC$?[߿?इܿ8˘נ?{<qGM~_,۱{=v}U}e/oOsB_܉K Ⱦ?@ <]4L>.w}'}CgW_?>`N~IGM~tw?N,:?{o/?_o_}w}Z~=Y߱i?/~|G$q?#/^c_\Գjח=ȇrJ)Ngz('??Imr\'\vWg'o\Sވ|=[}Up?kbTfɏ ~_Qgya;?|oD!i[}=ُE:x/l3?QJ|?׿O~\8Bͻo{돘?q>ANwNRk}v!wM7 k|.%?^}D J~srO~Lg5@e]CgTCfG?讯sע϶_~?"QN RXw ?Z:}y+/^!O@g?>W>\N3Пz^n1,g*ze1[߹u;gw.}SO<9?c͍OdgIٟ_o-!G_D?ҿJ:H~0g˝[qOŊ/.ٿ ֿ] ^!;Ms2{w~6*}BY][O6S)Vl-H_['zFiG?`:7$?B8￨ӷ.s~5>S_5,RMH4[3A7'j_FmGFjUO^1Zc0;sY:?#JПPt J?,_0֟]fPO0[7;?ҟWYܿ׿~'leKKqEq:?4>M}r'}Sg_/SfC |{'u!M Ĥ%oč6ӟPrZJ~^(? [>˳Yy/.Կ]*_yXE4>1;9ct?5v;Z3z5`{m|f9/_Jp}KwWx |[YqG\[M_U??pɏПMw}{lrh?WvW'?5`p?('d1kϮԿn]@?Nߟ>FM~hIcg }$17_=l|jM?F_C.w};տ{'ooF?f}5+ @??`=9mJwM~,W4>;'Q3i5?l|O ?ϯG/1DGן/dO8I-^7?Ak|/VR9 t2ߔȈ&E??/t䇈k'c-T_pc9Zvл', Z]/'?| k|?9џ/uO~[UR7Ji|bz7$75> QGҿ:#IUkϱi|f]_gߟ!џwCA Oz0 W]^R.}?gO#s2m|G3e4п}.&VB~B[{>5_o?Y N5aw}q{@ +mwi}wyH Y fo?H:5Of?V_b_ܘv~_5߰oz|!g fMf׷l%owҟ/a8_Kп'Jd{Wu MwE{רN\./7>ճ|/iI~cQrQwb?E]Nc_OM'hgNd? +_!v~,gv?IAԿ}M.~MO'F^I3韟'NOKC%}O%j7:vxٟ҃'ByC'\"dK4@^E_Gw~Ƨ8ݲ-}, DП-p;?Bt$H~2ҟ񉩿cg/K~vV,Q$?B,Z@o?%?K afq? n|=5ףx®/]v}cH~ G~o w}wS'P$g}Dֿ$.7L~D%c߻gZ9y,Op{S3&>Wz2t~POF3>rk|߾\z_䃟:?Oz]ww9Ώb??Qo ӟퟞ6fM(WTTw?J}s [?g??G'}i׷gd1+Ow}g=A7> Gzګ_닥?TAǍOdOe^LGs#ֻٓOR?|We/L~)o]_k|#Iga;??8OoNI ϰ%?!@O)gd}@Z7B9  M\^Ͼ?Vc/Neߟ֤7?H{Ͻ9V;?7׿G83C!g˫ӟvE'?q߾?3ɏ<>=u̍`wOԿwƧ߮Y{lj#% gwL+z~23IƧ?7}*WSnr;o;O-tݮ|'O~B_Wٿh7g__Cw},==㋍O|{{ ?|K~տܿy׷@?,+G/gע!i7ں-?o?='r=rh|7(PƧֹ?7>u3Iw~?_qto}wvG}WM4/ɏп/!cOld($7ݽe/D/ 8K!J>߿q}ope.!8;Ap߿k_,*P򳠿X]<:?Y6(v&?`ԟ ըg)`7O+rFkџD+u뗣}oI?ǧ_?o)O?x6l%zO؍Ͼ\g^}^~b7CmsnfW"Ow{b/^+D2xW MwD/4>sO?Ut~ﭿ_wU6>l{QaNע4>_Fw-5>gwg,Ur/XП,_ǣo_\O׿U|G_v7V Xys?8OiQe=oɏD߹F~7rI~f?o}(Ox%?(OsM/^}!};?RI Yʇ^[6>Wu~Tpn|zJ |۟ ?W,p3<*d} ujK~wv ?4{<+%7>-ooI7X] oџ]Y8SY9{7bCw}H~6oLM}7/w}C:K*? ?$gB]YD$-F}?SqПf?wNxNӟ*:?$_[J~fCS\wO&*y= ^Y R~H~Yv~tWs~wx'<%?7Dd?0G7xwPݓ2Xsw|k}O{p}+fqO?G?`H'?{1άJvU?%?*)ٿo]?`?U7SwuųW&?йsѿ?8?,jk_O}ɏuoĂ?lחE!{ֿWaHco@o;ff?_駿;K~&?Ǣ%rםXJ܀hwOܟ_UBƾooL~u~4>CccvO:?7&??V3A*>/V:8A?Dm|Z3gO?ߘ'2r]_vM?aFn7ËO1ftwޣ,?>E] q?p?~zg$D﮿u?'P_&?DΙ"o%Z ؽ??Dgjf џmjy!h|_jTuHv?$:?s~g}qf}^λdпfwrcs]raW}gj_v}G7(m]gg ׷tav~zI~g]߸5>?]Cg{2 w/ Y߮c?Ls'?G?W.}9]#+辿'q]s=9Z@!*+g6v}f'*c*Ľ 'O]_+'f~蟮؍ϵJ~0?/uw @? ?W^ӿ6;?Yz_qoS|Ĭ\>s_ r:?}}?Gʔ'<˥߂lgQ\Ctŝk6?}vɏe?o_u) 6>Cܓ+OإCf)oǠ?54>ϼ?Ut~\Fӟ4L3New|i+;nL/>צ !?ƾ³Q_L`3P*}wkàO^v.gϸ/5Qm~;?Gs|Bf}Ǖ{$?ĸ닠 gK79#oɏg5 oS`OK~fח`t~Bot?yWw{SPpkf/п})vM?!sq}֗_^R=לY $o#~uwSW߮:.LrOsH~"O|q8&?⋠}gQYBw}Jՠ7;;S?߉;Sv3j D]ߤ?g{ݭŠ{*˘GO}ҿ} AxO"V" w~#}Tt\6us&oO4g?7>|^7>I. bO:?J!宯_wҿ]]ϮoErG[X/ʾ?FSOϨOc#W>/g\_~DCs n>\ESW Ds?q3Srf/K? z JYߕ ՟!5}ƭW :?]J]П\f'=1?H]_ Yiwk~Ֆ?ڭnE@|Dڢ=_s!)N? OqCQ_g~O#H&?7'?ljv}}g'mgI~4wϮBٟ]?_5&?2m|G߫_ÞaD,?j4j75>}/s+|Ļt Ek]+gt86i?gWmyJϥ3>7&?wwI?q1??GQԟSdIjL~OVTy6(@Oٟ3O~]+ObB?ŽIKI~'=6 ?ʮ^ G1W=5_;jY_MOaAB&?m}lWG]8h|ӟ ?ܮ/0ZOWOz':Ho@}ϖ pɦ?/o@f{TF0ξ#oS5K?LOƧ)+?п!*ɧן[Xٟ-o˷\п+z7L"s5>w9b?t;k߷9׿J[N?ھ? ӟ4UjԮ? R"ei/d79?J߿HJ{MgƧ͉ oo4zwߡSLL~%%cv~JK|y=czӊO^Q7>3opg3Aӱuѿ"v}mw~E{Ykߧ#,!fglEР&<ϩy,3>y__:3Oje/X/B_v}չ^v}߅7T-_YE`gktd,/^;cRV}D?OwvMqU݊?×gCb/AOy;Ű;ZzU3__ۋ+Gџ_F9;RI~J׾V쏪ÞYrN~Ǜ{7P6]oR;"gO?m|R蟢R_f? ESDKqeoXZ9?M~?|Ei럢?gX;Gߦ^a˹?Ϩ']_쾿 mGїm<e_h}Tdޅ~76씷uۻkkysq\fGtk &YOO]]DP_7TVs~2N~^ρԟw~DկB]G:ٿ ﻊbUv~'ϱ"Ki%1{YO|(f@O;|kI'VF=%vm/ἂ xK\?hX5>;T/Ûѿk|:/y6>`׷SF vϊo]6_?ovwwzc桿GskgN'ҿOl={I?j[j{yBoϣ3k|򿥭@S Qg__Gl|?FTSw:ߞ(| 迢?J男\g+_a\'?џՊgNϒ;TSg?[wZT%COVYBQg }/]b!Smw+AMo_*_l\y|J֟-Fqg{1˾?5cz_}X9z@~)omf;;"wjO-NyX5>W$uX[ ߹?h?M~/>}Y:ySƧ9뛓g;_`? )ԿsO}ШrZ^VO{{eQO{-qGK~sGҿ.VL_H~Hׅ<=?R㣿%?}Az_95+S鯛vF}C=KϮnhp?KCt~'g}G䧰]ߑiCɑURE|r?i,;?X?toz+'O:?v?TCrۧsҿB}26l3Zs鏩?~Ө?oNPf?쏡?\[;h%RmNxI~|W9v}pD:?s7^蓟?5h|?k|vlpg\Wןc'?*a7ãɏNO^ܿ䇤v~,NxMܾK}8w{7c\[r]סO?N}\繿Y ?[替>On}3>3տ7`Rgf~!w~vT,HOAOVK65%_c%? 䤇8}U⧽G6>C+ԟ߹$sA_?՛q[o;&?鳾qJrp@ܿ2DY7r-Oxџݏ?]NѪmx7E['?IQf?_!7Qs9[/n^{OtQw__4D ߵYU5 JwϾy2gLO0oOMwX !77¹~I~pU^)$?YX5>N}5&?YkEVm<P?[p aרWS &㮯uS7 w}ӟOjgչ/fF_7k`?M~K OΏkr?FE*?#?G]m|}\u?$3ι|יù/XYy @F?qp09JA{1zw}E%7?ww?5?;I~rpiX}>gx#?8_$X,:??nMsCK*[3w ghoa9!q獖؝,ooԿ閶ٟ (s̰5O/#BfqЍ_#hnOR”nF8B_{Y랑(gL>;FOxv:wt~G9/yO~ ?g ?J~}QGkkSޖ$=;37#{a=ĺCEs<[]_'*+O~tK;՟{=?h|fX"OoW@l W[5?Ƨl7\f'>V?R3a\S}5?ψN~\m}h!g4꿓-}g4>/ǡ?sϟ?>B秄ƧCO D.]xYӜf@.rֿWS쟾77>'?bBvӟrww&j_`?Qd}D[%?Zc?![oK7R/E'o%w}}\/oW1g/1Azwٵ:f?LcOƧ쏥xVX|G%5w,~e/Cn|vֿ#o.gvfg|L~֫쿬?pҗ%ܿrqh|b/-O~`W^K~e?n|f y.?:ߠs[Ϸyv}5wo"+#Ó=3$^wlNzqّT\@Ώ/(/v~o| OyoN~K<+_._'c} [( Ɋ%QOP ҟ/a2w+P/ըs*o5П^\*U?%3i| ɏPO{ ߶{1M3g_HgB ӿzksE ['?N{Fa ٵrSnĘϗ 8AiY'ܟO,dӿK~=5>s֟zg1&]_v7?g,z7.~N55_5>ꔷX}ߤ-e_Lw_܃+;?R?oRw^NyZ! 4>riCɴ8/8O{%?ǩ?zJqߟ}ǟ H_u#oJ~b#n74> }e}}g?fWLRaӆsNKOMvg$?>5>47j]֟]Fyz=}xk΍O/ ~׷ٟ KnWw.˦ƧS(/9}Ͼfڬ?_Ԁ]_w[%?0}(}?s~2ԟOߣ5՟_wuK~q݃U/AP]Ys/6VOE^bٿ-%>,~c/QaNzsׁOOĤ?'A?Kvs﮿kן /F7s'g|.?I~֨,)XO1j_X"Zk!rK~?OyPO]_nfdɏJ}M~ՃE<Y3> 4>1OxO?w}Jْ7Yu~?AV~GOv}{e?X~`P7ܧ쏐7>?g7qʩ]ߋ+lYZ=Կ xZ#{ŷĜ#/>_ui/ܟlOg'!蟸" k|F?qo?ǜ[MO.3~/W|x)W1v~zwi|.0g _&?O;?\ϳQ8o;?Ϲ\g5C.W?H~niJٯ>J~?ogƧ^:=w}ﳾ'߮iҟ OqE_п\l7ɏa|?O/O#s_44$?K鏔xG(0XUfZ3 fJw~;?Bo{io0soݝ87$?<˘}D֟Ս  G_hSwF6Eߠ }ͭ9?= @{2_hDXڂ^=lKzGתFO JXK~$? w+JCFn";aRE/UFu)ĜF۫H"3HsgK_}1>韛?~[r]{Fo)ܿeo}?*[55h|ov endstream endobj 96 0 obj << /Length 5071 /Filter/FlateDecode /Name/Im14 /Type/XObject /Subtype/Form /BBox[0 0 2384 3370] /FormType 1 /Matrix[1 0 0 1 -92 -221] /Resources<< /ProcSet[/PDF/Text] /Font 97 0 R >> >> stream x\KGޟ_1a9[$XbAXX77o v_O|%]5U_M?s߷cy9m/H,u-}4}~G4˟o/yOgo}%m?K౧-RsO y [vp"@#Sœ:W`5+(j"4ly !J^M2Q< Xiy?FYlVL56< \=Λ.MG`SE&iz\_[ 5=Gm'GQXXsԹ :"6,ʰ'`;[zs2yFlYa VO6>S[=ElYa V}ZnwlYa VOVax彅{D@3+=Dm =#6,ʰ'`yo2M-QҞS&Y`*=e&L`łLm < 2E |Hˮj"2Rh ؤ8 y-lYa V:Ѥb˰(=b͂ͬ [xl-U(ܧ&hSά \z2GO@9Gh B\Sm-h1, NtHfd(xuI?2QNa=nmU,-;g7r`=Vu T3x?ʙh+M OhLPj4}}kJ_R$`c@ q 26P baUwOj/!j`{q SW"#Ms`2[s4F`(0`͂2;3F(|ɐ?X.sACg!.c!nPSr&sl`sٳ,C \e9l"týF8jt'Fh"5fy8&`t)40)i:%ݓҔ9qҔ@ضɏiգɺ8hg,<Y+H1&SP` /$Ҥ\e&QQ,e)84[˒H&P2tؼkpNrHfaظ}G+"EӑRbRi +e\lب=!3!. #aBe/Bf!%f;0Q^+]{s !$0GbaQ>&TfM,S#17h{`Cssja(Úm#1(p$M,4yaɇ&DEV@v&@ IޞGGС %L+PiӴIWnx[ -kmMk`햴 Kg%>Wt|O9MI5*Am)^ R8VKs`ee YFd!300اp/jHxp*ZfQ\@qkLAbTkYeǑLSvTP {Tp g-ڞ)ٳ"m>d7X A-:X2 MeFU`?SV*""dKL5<na aɃs8qq(7 {i0p\Ƹ-wGAeA-DuwIaaACHA+Dm&AU(4s\ð*mvŽOU-n݃ɚiy`B3 \!j5 N v*u1,=_*l,̓ssS"S\CXbA Dk$A~T1hNK|ϸO^;md@Y%&Йm!:~8hdl~ &H{!: -wbAqPED C C7{#&NA_wMaPź0@@`Ak#P3!w.@@@%pK$ p A^Y(=Lu @>C# Q\e>MC=ffD(MLa`q{1bTk+@4r f;Ò?ˁMP ? 0g |+O,|`Bn3'dO9B #=\ ΅PNMV.@ e ԁ"r l)YC ZYf7 55gBHqFu h^A,4{Jb%:ѾT:WŸH*QdI# 0H\I0ac%\<\SK@ Ae}ACo=px 7G[si7A+1 \kl&ks XT6i_:`/ T)àυ?&wdSLe 2rB!5j5Z`d$ B`$y5`9pn(ÒG@<E7R#ԁ[d!&O< P`` ަF Q^E/49Pf!y0b  N4E*0,žW[DtLyDY0`Tr <?Y"p7r7n AWӮK%2dÌ`9f(Ú?H4K7nd:ys!X[T[A` .8P{6AV<-XsMM9ЯI|X/,R}ӏQv>2-}6Bb_ C>~IB}nA~؂PsE߼~틗_O_o)~:#\hӯ)3{G4*RVtgcԜ;0lx\Ƴ bQ DB5&}!BPfWyVcW8tc<߼}EKn6s|9#Q47#~y@QpGaݗULja2 2>_}'KrjU?qXg?L_~|}  d:Ds3~6{r1=:Bd4dI!rtnC=9`N>ZS?d(P> endobj 98 0 obj << /BaseFont/Helvetica /Type/Font /Encoding 99 0 R /Subtype/Type1 >> endobj 99 0 obj << /Type/Encoding /Differences[45/minus] >> endobj 100 0 obj << /Length 8595 >> stream 0.00 g 0.00 G BT/F1 6.97 Tf 487.41 36.85 TD[(5)]TJ ET q 0.7198 0 -0 0.7198 11.94 -125.10 cm /Im8 Do Q BT/F1 7.97 Tf 115.49 -135.36 TD[(\(a\))]TJ ET q 0.28792 0 -0 0.28792 239.98 -125.10 cm /Im9 Do Q BT 343.31 -135.36 TD[(\(b\))]TJ ET q 0.224938 0 -0 0.224938 -14.56 -263.17 cm /Im10 Do Q BT 38.6 -273.43 TD[(\(c\))]TJ ET q 0.224938 0 -0 0.224938 112.71 -263.17 cm /Im11 Do Q BT 165.65 -273.43 TD[(\(d\))]TJ ET q 0.224938 0 -0 0.224938 239.98 -263.17 cm /Im12 Do Q BT 293.14 -273.43 TD[(\(e\))]TJ ET q 0.224938 0 -0 0.224938 367.25 -263.17 cm /Im13 Do Q BT 420.86 -273.43 TD[(\(f\))]TJ/F1 8.96 Tf -443.89 -15.89 TD[(Fig.)-352(4:)-353(Ef)24(fect)-352(of)-353(median)-353(\002ltering.)-352(\(a\))-353(Original)-353(8-me)14(g)5(apix)15(el)-352(RGB)-353(image.)-353(\(b\))-353(The)-353(same)-353(image)-353(after)-353(applying)-352(the)-353(median)-353(\002lter)-353(with)-353(a)-353(square)]TJ 0 -11.01 TD[(k)10(ernel)-376(of)-377(50)-376(pix)14(els)-376(radius.)-377(Notice)-377(sharpness)-376(of)-377(edges)-377(while)-377(small)-376(structures)-377(ha)19(v)15(e)-376(been)-377(lost.)-376(\(c\))]TJ/F8 8.96 Tf 357.7 0 TD[(512)]TJ/F11 8.96 Tf 16.05 0 TD[(\243)]TJ/F8 8.96 Tf 9.39 0 TD[(512)]TJ/F1 8.96 Tf 17.2 0 TD[(image)-376(of)-377(uniform)-376(binary)-377(noise)]TJ -400.34 -11 TD[(\002ltered)-330(with)-331(a)-331(square)-331(k)9(ernel)-330(of)-332(20)-331(pix)14(els)-330(radius.)-331(\(d\))-331(Same)-331(image)-331(\002ltered)-331(with)-331(an)-331(octagonal)-331(k)9(ernel)-331(of)-331(20)-331(pix)14(els)-330(radius.)-331(Notice)-331(disappearance)]TJ 0 -11 TD[(of)-347(horizontal)-349(and)-348(v)14(ertical)-347(line)-349(artif)9(acts.)-347(\(e\))-348(Closeup)-349(of)-348(pathological)-348(case)-349(which)-348(tries)-348(to)-349(defeat)-348(the)-348(optimizations)-349(of)-348(sections)-348(III-C)-349(and)-348(III-D.)]TJ 0 -11.01 TD[(It)-349(is)-350(a)]TJ/F8 8.96 Tf 24.84 0 TD[(512)]TJ/F11 8.96 Tf 15.87 0 TD[(\243)]TJ/F8 8.96 Tf 9.21 0 TD[(512)]TJ/F1 8.96 Tf 16.96 0 TD[(re)15(gion)-349(of)-350(an)-350(8)-350(me)13(g)5(apix)15(el)-349(image)-350(of)-350(a)-350(periodic)-350(truncated)-350(triangle.)-350(\(f\))-350(Output)-350(after)-350(\002ltering)-350(at)]TJ/F7 8.96 Tf 341.25 0 TD[(r)]TJ/F8 8.96 Tf 6.97 0 TD[(=)-286(100)]TJ/F1 8.96 Tf 23.55 0 TD[(.)]TJ -438.65 -35.21 TD[(T)93(ABLE)-634(I:)-635(Comparison)-635(of)-635(the)-635(proposed)-635(method')54(s)-634(ef)24(\002cienc)15(y)-634(on)]TJ 0 -11 TD[(dif)25(ferent)-349(processors.)-350(\()]TJ/F7 8.96 Tf 79.97 0 TD[(r)]TJ/F8 8.96 Tf 6.97 0 TD[(=)-285(50)]TJ/F1 8.96 Tf 22.08 0 TD[(on)-349(an)-350(8-me)14(g)5(apix)15(el)-349(RGB)-350(image.\))]TJ ET 0.4 w -23.03 -383.05 m 236.17 -383.05 l S 0.4 w -23.03 -392.21 m -23.03 -383.25 l S 0.4 w 70.23 -392.21 m 70.23 -383.25 l S BT/F1 7.97 Tf 89.11 -389.52 TD[(SIMD)]TJ ET 0.4 w 127.91 -392.21 m 127.91 -383.25 l S BT 133.88 -389.52 TD[(L2)-350(cache)]TJ ET 0.4 w 169.64 -392.21 m 169.64 -383.25 l S BT 175.61 -389.52 TD[(Clock)-350(c)14(ycles)-349(per)]TJ ET 0.4 w 236.17 -392.21 m 236.17 -383.25 l S 0.4 w -23.03 -401.18 m -23.03 -392.21 l S BT 8.11 -398.49 TD[(Processor)]TJ ET 0.4 w 70.23 -401.18 m 70.23 -392.21 l S BT 76.21 -398.49 TD[(instruction)-349(set)]TJ ET 0.4 w 127.91 -401.18 m 127.91 -392.21 l S BT 142.58 -398.49 TD[(size)]TJ ET 0.4 w 169.64 -401.18 m 169.64 -392.21 l S BT 178.71 -398.49 TD[(output)-350(element)]TJ ET 0.4 w 236.17 -401.18 m 236.17 -392.21 l S 0.4 w -23.03 -401.38 m 236.17 -401.38 l S 0.4 w -23.03 -403.37 m 236.17 -403.37 l S 0.4 w -23.03 -412.53 m -23.03 -403.57 l S BT -15.11 -409.84 TD[(Po)25(werMac)-349(G5)-350(1.6)-350(GHz)]TJ ET 0.4 w 70.23 -412.53 m 70.23 -403.57 l S BT 86.9 -409.84 TD[(AltiV)111(ec)]TJ ET 0.4 w 127.91 -412.53 m 127.91 -403.57 l S BT 136.75 -409.84 TD[(512)-350(kB)]TJ ET 0.4 w 169.64 -412.53 m 169.64 -403.57 l S BT 196.93 -409.84 TD[(102)]TJ ET 0.4 w 236.17 -412.53 m 236.17 -403.57 l S 0.4 w -23.03 -412.73 m 236.17 -412.73 l S 0.4 w -23.03 -421.89 m -23.03 -412.93 l S BT -16.28 -419.2 TD[(Intel)-349(Core)-350(2)-350(Duo)-350(E6600)]TJ ET 0.4 w 70.23 -421.89 m 70.23 -412.93 l S BT 90.21 -419.2 TD[(SSE2)]TJ ET 0.4 w 127.91 -421.89 m 127.91 -412.93 l S BT 134.76 -419.2 TD[(4096)-350(kB)]TJ ET 0.4 w 169.64 -421.89 m 169.64 -412.93 l S BT 196.93 -419.2 TD[(153)]TJ ET 0.4 w 236.17 -421.89 m 236.17 -412.93 l S 0.4 w -23.03 -422.09 m 236.17 -422.09 l S 0.4 w -23.03 -431.26 m -23.03 -422.29 l S BT -13.09 -428.57 TD[(AMD)-350(Sempron)-350(2400+)]TJ ET 0.4 w 70.23 -431.26 m 70.23 -422.29 l S BT 89.11 -428.57 TD[(MMX)]TJ ET 0.4 w 127.91 -431.26 m 127.91 -422.29 l S BT 136.75 -428.57 TD[(256)-350(kB)]TJ ET 0.4 w 169.64 -431.26 m 169.64 -422.29 l S BT 196.93 -428.57 TD[(296)]TJ ET 0.4 w 236.17 -431.26 m 236.17 -422.29 l S 0.4 w -23.03 -431.46 m 236.17 -431.46 l S 0.4 w -23.03 -440.62 m -23.03 -431.65 l S BT -17.06 -437.93 TD[(Intel)-350(Pentium)-350(4)-350(1.8)-350(GHz)]TJ ET 0.4 w 70.23 -440.62 m 70.23 -431.65 l S BT 90.21 -437.93 TD[(SSE2)]TJ ET 0.4 w 127.91 -440.62 m 127.91 -431.65 l S BT 136.75 -437.93 TD[(256)-350(kB)]TJ ET 0.4 w 169.64 -440.62 m 169.64 -431.65 l S BT 196.93 -437.93 TD[(628)]TJ ET 0.4 w 236.17 -440.62 m 236.17 -431.65 l S 0.4 w -23.03 -440.82 m 236.17 -440.82 l S BT/F1 8.96 Tf -14.07 -474.8 TD[(The)-310(ne)24(w)-310(algorithm)-311(performs)-311(better)-310(or)-311(w)9(orse)-310(than)-311(W)79(eiss')]TJ/F7 8.96 Tf 209.75 0 TD[(O)]TJ/F8 8.96 Tf 7.26 0 TD[(\(log)]TJ/F7 8.96 Tf 17.02 0 TD[(r)]TJ/F8 8.96 Tf 4.41 0 TD[(\))]TJ/F1 8.96 Tf -247.4 -11 TD[(depending)-394(on)-394(the)-395(v)24(alue)-393(of)]TJ/F7 8.96 Tf 101.6 0 TD[(r)]TJ/F1 8.96 Tf 4.41 0 TD[(.)-394(The)-395(crosso)14(v)15(er)-393(is)-395(at)]TJ/F7 8.96 Tf 80.4 0 TD[(r)]TJ/F8 8.96 Tf 7.73 0 TD[(=)-369(40)]TJ/F1 8.96 Tf 19.69 0 TD[(,)-394(although)]TJ -213.83 -11.01 TD[(the)-424(traces)-424(are)-424(f)9(airly)-424(parallel.)-424(This)-425(gi)24(v)15(es)-423(the)-425(crosso)14(v)15(er)-423(point)-425(a)-424(high)]TJ 0 -11 TD[(sensiti)25(vity)-409(to)-410(e)14(xperimental)-410(conditions.)-410(Since)-410(W)79(eiss')-409(Pixfoliate)-410(soft-)]TJ 0 -11 TD[(w)10(are)-321(is)-323(only)-322(a)19(v)25(ailable)-322(on)-322(the)-322(Po)24(werPC)-322(architecture,)-322(comparison)-322(w)9(as)]TJ 0 -11.01 TD[(only)-355(carried)-357(out)-356(on)-356(this)-357(platform.)-356(A)-356(slight)-356(reduction)-357(of)-356(the)-356(constant)]TJ 0 -11 TD[(on)-365(current)-366(or)-366(future)-367(architectures)-366(w)9(ould)-365(greatly)-366(lo)24(wer)-365(the)-366(crosso)14(v)15(er)]TJ 0 -11 TD[(radius.)]TJ 8.96 -12.5 TD[(Gi)25(v)15(en)-266(the)-266(similar)-266(timings)-266(of)-266(the)-266(tw)9(o)-265(best)-267(algorithms,)-266(the)-266(dif)24(ference)]TJ -8.96 -11 TD[(lies)-381(in)-382(tw)9(o)-381(places.)-383(First,)-382(the)-382(tree)-382(of)-382(histograms)-382(in)-382(W)79(eiss')-381(algorithm)]TJ 0 -11 TD[(mak)10(es)-305(the)-305(implementation)-306(f)9(airly)-305(con)39(v)20(oluted)-304(and)-306(generally)-305(unsuitable)]TJ 0 -11.01 TD[(for)-415(custom)-416(hardw)9(are.)-415(Also,)-415(as)-416(a)-416(higher)-416(tree)-416(is)-416(required)-415(for)-416(greater)]TJ 0 -11 TD[(radii,)-336(dif)24(ferent)-336(implementations)-337(need)-337(to)-337(be)-337(generated,)-336(each)-337(one)-337(han-)]TJ 0 -11 TD[(dling)-267(a)-268(portion)-268(of)-268(the)-268(radius)-268(range.)-268(In)-268(contrast,)-268(our)-268(implementation)-268(of)]TJ 0 -11.01 TD[(the)-263(proposed)-264(algorithm,)-264(including)-264(optimization,)-264(totals)-264(about)-263(275)-264(lines)]TJ 0 -11 TD[(of)-337(C)-339(code)-338(and)-339(handles)-338(all)-339(of)-338(the)-339(radius)-338(range.)-338(Second,)-339(the)-338(proposed)]TJ 0 -11 TD[(algorithm)-229(has)-230(the)-231(adv)24(antage)-229(of)-230(constant)-230(comple)14(xity)65(.)-230(This)-230(means)-230(that)-230(it)]TJ 0 -11.01 TD[(will)-264(perform)-266(better)-265(than)-266(one)-265(of)-265(higher)-266(comple)14(xity)-264(as)-266(the)-265(k)9(ernel)-264(radius)]TJ 0 -11 TD[(increases.)-291(Gi)24(v)15(en)-291(the)-293(trend)-292(to)24(w)10(ard)-291(higher)19(-resolution)-291(images,)-292(requiring)]TJ ET q 0.602704 0 -0 0.602704 239.91 -570.51 cm /Im14 Do Q BT 288.17 -587.01 TD[(Fig.)-349(5:)-350(T)34(iming)-349(of)-350(the)-350(proposed)-350(algorithm.)]TJ -48.26 -65.33 TD[(correspondingly)-450(higher)-451(\002lter)-451(k)9(ernel)-450(radii,)-451(this)-451(mak)9(es)-450(the)-450(proposed)]TJ 0 -11.01 TD[(algorithm)-595(future-proof.)-596(F)14(aster)-594(hardw)9(are)-595(with)-596(better)-595(v)14(ectorization)]TJ 0 -11 TD[(capabilities)-349(will)-350(also)-350(contrib)19(ute)-349(to)-350(lo)24(wering)-349(its)-350(time)-350(constant.)]TJ ET endstream endobj 101 0 obj << /F1 10 0 R /F8 33 0 R /F11 44 0 R /F7 30 0 R >> endobj 102 0 obj << /Im8 78 0 R /Im9 81 0 R /Im10 84 0 R /Im11 87 0 R /Im12 90 0 R /Im13 93 0 R /Im14 96 0 R >> endobj 77 0 obj << /ProcSet[/PDF/Text/ImageC] /Font 101 0 R /XObject 102 0 R >> endobj 105 0 obj << /Length 8999 >> stream 0.00 g 0.00 G BT/F1 6.97 Tf -23.03 36.85 TD[(6)]TJ/F1 8.96 Tf 89.32 -29 TD[(V)-49(I)-50(I)-50(.)-550(C)]TJ/F1 7.17 Tf 27.38 0 TD[(O)-61(N)-62(C)-62(L)-61(U)-62(S)-62(I)-62(O)-61(N)]TJ/F1 8.96 Tf -107.74 -13.82 TD[(W)80(e)-274(ha)19(v)15(e)-273(presented)-274(a)-274(f)9(ast)-273(and)-274(simple)-274(median)-275(\002lter)-274(algorithm)-274(whose)]TJ -8.96 -11.01 TD[(runtime)-431(and)-431(storage)-432(scale)-431(in)]TJ/F7 8.96 Tf 110.95 0 TD[(O)]TJ/F8 8.96 Tf 7.26 0 TD[(\(1\))]TJ/F1 8.96 Tf 15.65 0 TD[(as)-431(the)-431(k)9(ernel)-431(radius)-431(v)24(aries.)-431(W)79(e)]TJ -133.86 -11 TD[(ha)20(v)15(e)-274(proposed)-276(a)-275(fe)24(w)-274(optimizations)-276(that)-275(mak)9(e)-274(this)-275(algorithm)-276(as)-275(f)9(ast)-274(as)]TJ 0 -11 TD[(the)-337(f)9(astest)-337(currently)-338(a)19(v)25(ailable,)-336(to)-338(the)-338(e)14(xtent)-337(of)-338(our)-338(kno)24(wledge,)-336(while)]TJ 0 -11.01 TD[(remaining)-491(much)-492(simpler)54(.)-492(W)39(ith)-491(its)-492(straightforw)9(ard)-491(instruction-le)24(v)15(el)]TJ 0 -11 TD[(parallelism,)-325(it)-327(is)-326(suitable)-327(for)-326(CPU-based)-327(as)-326(well)-327(as)-326(custom)-326(hardw)9(are)]TJ 0 -11 TD[(implementation.)]TJ 8.96 -11.01 TD[(Signi\002cant)-448(issues)-449(re)14(g)5(arding)-448(the)-449(e)14(xtensibility)-448(of)-449(the)-449(algorithm)-449(to)]TJ -8.96 -11 TD[(ne)25(w)-449(situations)-450(ha)19(v)15(e)-449(been)-450(addressed.)-450(In)-450(particular)39(,)-449(\002ltering)-450(data)-450(of)]TJ 0 -11 TD[(higher)-335(dimensionality)-337(or)-336(precision,)-337(as)-336(well)-337(as)-336(an)-336(approximation)-337(to)-336(a)]TJ 0 -11.01 TD[(circular)-408(k)9(ernel,)-407(ha)19(v)15(e)-408(been)-409(discussed.)-408(W)79(e)-408(ha)19(v)15(e)-407(also)-409(sho)24(wn)-408(wh)4(y)-407(the)]TJ 0 -11 TD[(Gil-W)80(erman)-238(theoretical)-238(lo)24(wer)-238(bound)-238(of)]TJ/F8 8.96 Tf 143.18 0 TD[(\255\(log)]TJ/F7 8.96 Tf 23.67 0 TD[(r)]TJ/F8 8.96 Tf 4.41 0 TD[(\))]TJ/F1 8.96 Tf 5.72 0 TD[(on)-238(the)-239(comple)14(xity)-237(of)]TJ -176.98 -11 TD[(the)-288(2-D)-289(median)-289(\002lter)-289(does)-289(not)-289(apply)-289(to)-289(traditional)-289(algorithms)-289(making)]TJ 0 -11.01 TD[(use)-349(of)-350(histograms)-350(for)-350(sorting)-350(the)-350(data.)]TJ 8.96 -11 TD[(An)-468(implementation)-468(in)-468(C)-468(of)-468(the)-468(proposed)-468(algorithm)-469(is)-468(a)19(v)25(ailable)]TJ -8.96 -11 TD[(freely)-323(on)-324(the)-323(authors')-324(website)]TJ/F1 5.98 Tf 109.18 3.81 TD[(2)]TJ/F1 8.96 Tf 6.39 -3.81 TD[(and)-324(has)-323(been)-324(included)-324(in)-324(the)-323(popular)]TJ -115.57 -11.01 TD[(and)-240(free)-241(OpenCV)]TJ/F1 5.98 Tf 63.05 3.81 TD[(3)]TJ/F1 8.96 Tf 5.65 -3.81 TD[(computer)-240(vision)-241(library)64(.)-240(W)79(e)-240(are)-240(c)-1(on\002dent)-240(that)-241(ne)24(w)65(,)]TJ -68.7 -11 TD[(cle)25(v)15(er)-283(optimizations)-285(will)-284(further)-284(lo)24(wer)-284(its)-284(time)-284(constant.)-285(W)79(e)-283(hope)-284(the)]TJ 0 -11 TD[(simplicity)65(,)-329(speed)-329(and)-330(adaptability)-329(of)-330(this)-329(ne)24(w)-329(algorithm)-329(will)-330(mak)9(e)-328(it)]TJ 0 -11.01 TD[(useful)-349(across)-350(a)-350(wide)-350(range)-350(of)-350(applications.)]TJ/F1 8.96 Tf 81.77 -23.1 TD[(A)]TJ/F1 7.17 Tf 6.6 0 TD[(C)-61(K)-62(N)-62(O)-28(W)-62(L)-62(E)-61(D)-62(G)-62(E)-61(M)-62(E)-62(N)-62(T)-61(S)]TJ/F1 8.96 Tf -79.41 -13.83 TD[(Man)15(y)-510(thanks)-511(to)-511(Jean-Daniel)-510(Desch)]TJ 135.18 0.05 TD[(\210)]TJ -0.5 -0.05 TD[(enes,)-510(Philippe)-511(Lambert,)-511(and)]TJ -143.64 -11 TD[(Nicolas)-480(Martel-Brisson)-481(for)-481(helpful)-481(feedback.)-481(Thanks)-480(to)-481(St)]TJ 223.61 0.04 TD[(\264)]TJ -0.5 -0.04 TD[(ephanie)]TJ -223.11 -11 TD[(Brochu)-349(for)-350(the)-350(use)-350(of)-350(her)-350(sails)-350(picture.)]TJ/F1 8.96 Tf 100.39 -23.11 TD[(R)]TJ/F1 7.17 Tf 6.43 0 TD[(E)-61(F)-61(E)-62(R)-62(E)-61(N)-62(C)-62(E)-61(S)]TJ/F1 7.97 Tf -102.84 -14.48 TD[([1])-562(J.)-264(T)44(uk)10(e)15(y)65(,)]TJ/F2 7.97 Tf 44.35 0 TD[(Explor)15(atory)-263(Data)-264(Analysis)]TJ/F1 7.97 Tf 85.53 0 TD[(.)-713(Addison-W)79(esle)15(y)-263(Menlo)-264(P)14(ark,)-263(CA,)]TJ -116.11 -8.96 TD[(1977.)]TJ -13.77 -8.96 TD[([2])-562(P)110(.)-348(Maragos)-348(and)-349(R.)-348(Schafer)39(,)-348(\223Morphological)-348(Filters\226P)14(art)-348(II:)-348(Their)-349(Rela-)]TJ 13.77 -8.97 TD[(tions)-264(to)-264(Median,)-264(Order)19(-Statistic,)-264(and)-264(Stack)-264(Filters,)69(\224)]TJ/F2 7.97 Tf 166.06 0 TD[(IEEE)-264(T)54(r)15(ans.)-263(Acoust.,)]TJ -166.06 -8.96 TD[(Speec)14(h,)-349(Signal)-350(Pr)44(ocessing)]TJ/F1 7.97 Tf 85.43 0 TD[(,)-350(v)19(ol.)-349(35,)-350(no.)-350(8,)-350(pp.)-350(1170\2261184,)-350(1987.)]TJ -99.2 -8.96 TD[([3])-562(T)73(.)-457(Huang,)-458(G.)-458(Y)99(ang,)-457(and)-458(G.)-458(T)79(ang,)-457(\223A)-458(F)14(ast)-457(T)79(w)10(o-Dimensional)-457(Median)]TJ 13.77 -8.97 TD[(Filtering)-409(Algorithm,)69(\224)]TJ/F2 7.97 Tf 72.14 0 TD[(IEEE)-408(T)54(r)15(ans.)-408(Acoust.,)-409(Speec)14(h,)-408(Signal)-409(Pr)44(ocessing)]TJ/F1 7.97 Tf 159.1 0 TD[(,)]TJ -231.24 -8.96 TD[(v)19(ol.)-349(27,)-350(no.)-350(1,)-350(pp.)-350(13\22618,)-350(1979.)]TJ -13.77 -8.97 TD[([4])-562(J.)-271(Gil)-271(and)-271(M.)-271(W)79(erman,)-269(\223Computing)-271(2-D)-271(Min,)-271(Median,)-271(and)-271(Max)-271(Filters,)69(\224)]TJ/F2 7.97 Tf 13.77 -8.96 TD[(IEEE)-334(T)54(r)15(ans.)-334(P)79(attern)-333(Anal.)-335(Mac)14(hine)-333(Intell.)]TJ/F1 7.97 Tf 137.5 0 TD[(,)-334(v)19(ol.)-334(15,)-334(no.)-335(5,)-334(pp.)-335(504\226507,)]TJ -137.5 -8.96 TD[(1993.)]TJ -13.77 -8.97 TD[([5])-562(B.)-374(Chaudhuri,)-373(\223An)-374(Ef)24(\002cient)-373(Algorithm)-374(for)-373(Running)-374(W)39(indo)25(w)-373(Pel)-374(Gray)]TJ 13.77 -8.96 TD[(Le)24(v)15(el)-305(Ranking)-306(2-D)-306(Images,)69(\224)]TJ/F2 7.97 Tf 94.95 0 TD[(P)79(attern)-305(Reco)9(gnition)-305(Letter)9(s)]TJ/F1 7.97 Tf 88.63 0 TD[(,)-305(v)19(ol.)-305(11,)-306(no.)-306(2,)]TJ -183.58 -8.97 TD[(pp.)-350(77\22680,)-350(1990.)]TJ -13.77 -8.96 TD[([6])-562(B.)-378(W)79(eiss,)-376(\223F)14(ast)-377(Median)-378(and)-377(Bilateral)-378(Filtering,)69(\224)]TJ/F2 7.97 Tf 175.38 0 TD[(A)30(CM)-377(T)54(r)15(ansactions)-377(on)]TJ -161.61 -8.96 TD[(Gr)14(aphics)-349(\(T)17(OG\))]TJ/F1 7.97 Tf 53.43 0 TD[(,)-349(v)19(ol.)-349(25,)-350(no.)-350(3,)-350(pp.)-350(519\226526,)-350(2006.)]TJ -67.2 -8.97 TD[([7])-562(L.)-422(Alparone,)-421(V)128(.)-421(Cappellini,)-422(and)-421(A.)-422(Garzelli,)-422(\223A)-421(Coarse-to-Fine)-422(Algo-)]TJ 13.77 -8.96 TD[(rithm)-324(for)-324(F)14(ast)-322(Median)-324(Filtering)-324(of)-324(Image)-324(Data)-324(W)39(ith)-323(a)-324(Huge)-324(Number)-324(of)]TJ 0 -8.97 TD[(Le)24(v)15(els,)70(\224)]TJ/F2 7.97 Tf 28.69 0 TD[(Signal)-349(Pr)44(ocessing)]TJ/F1 7.97 Tf 58.2 0 TD[(,)-350(v)19(ol.)-349(39,)-350(no.)-350(1-2,)-350(pp.)-350(33\22641,)-350(1994.)]TJ -100.66 -8.96 TD[([8])-562(D.)-423(Knuth,)]TJ/F2 7.97 Tf 50.17 0 TD[(The)-423(Art)-423(of)-423(Computer)-423(Pr)44(o)10(gr)15(amming)-422(V)110(olume)-422(3:)-423(Sorting)-423(and)]TJ -36.4 -8.96 TD[(Sear)36(c)15(hing)]TJ/F1 7.97 Tf 31.9 0 TD[(,)]TJ/F6 7.97 Tf 5.68 0 TD[(2)]TJ/F9 5.98 Tf 4.23 2.81 TD[(nd)]TJ/F1 7.97 Tf 12.27 -2.81 TD[(ed.)-1376(Addison)-463(W)79(esle)15(y)-462(Longman)-463(Publishing)-463(Co.,)-463(Inc.)]TJ -54.08 -8.97 TD[(Redw)9(ood)-349(City)64(,)-349(CA,)-350(USA,)-350(1998.)]TJ -13.77 -8.96 TD[([9])-562(T)73(.)-484(Nelson)-484(and)-485(D.)-485(Pretorius,)-485(\223Three-Dimensional)-484(Ultrasound)-485(of)-485(Fetal)]TJ 13.77 -8.96 TD[(Surf)9(ace)-500(Features,)69(\224)]TJ/F2 7.97 Tf 64.21 0 TD[(Ultr)14(asound)-501(in)-501(Obstetrics)-501(and)-502(Gynecolo)9(gy)]TJ/F1 7.97 Tf 141.05 0 TD[(,)-501(v)19(ol.)-500(2,)]TJ -205.26 -8.97 TD[(no.)-350(3,)-350(pp.)-350(166\226174,)-350(1992.)]TJ -17.75 -8.96 TD[([10])-561(P)110(.)-297(Carayon,)-298(M.)-298(Portier)39(,)-297(D.)-298(Dussosso)9(y)65(,)-297(A.)-298(Bord,)-298(G.)-298(Petitpretre,)-298(X.)-298(Canat,)]TJ 17.75 -8.97 TD[(G.)-352(Le)-352(Fur)39(,)-351(and)-353(P)110(.)-351(Casellas,)-352(\223In)39(v)20(olv)15(ement)-351(of)-352(Peripheral)-353(Benzodiazepine)]TJ 0 -8.96 TD[(Receptors)-514(in)-514(the)-514(Protection)-514(of)-514(Hematopoietic)-514(Cells)-514(Ag)4(ainst)-514(Oxygen)]TJ 0 -8.96 TD[(Radical)-350(Damage,)69(\224)]TJ/F2 7.97 Tf 61.44 0 TD[(Blood)]TJ/F1 7.97 Tf 19.04 0 TD[(,)-349(v)19(ol.)-349(87,)-350(no.)-350(8,)-350(pp.)-350(3170\2263178,)-350(1996.)]TJ -98.23 -8.97 TD[([11])-561(G.)-451(Arce,)-451(\223Multistage)-450(Order)-451(Statistic)-450(Filters)-451(for)-450(Image)-451(Sequence)-450(Pro-)]TJ 17.75 -8.96 TD[(cessing,)69(\224)]TJ/F2 7.97 Tf 30.87 0 TD[(IEEE)-306(T)54(r)15(ans.)-305(Signal)-306(Pr)44(ocessing)]TJ/F1 7.97 Tf 100.02 0 TD[(,)-306(v)19(ol.)-305(39,)-306(no.)-306(5,)-306(pp.)-306(1146\2261163,)]TJ -130.89 -8.97 TD[(1991.)]TJ/F1 5.98 Tf -9.79 -72.24 TD[(2)]TJ/F1 7.97 Tf 3.49 -2.81 TD[(http://nomis80.or)18(g/ctmf.html)]TJ/F1 5.98 Tf -3.49 -7.05 TD[(3)]TJ/F1 7.97 Tf 3.49 -2.81 TD[(http://www)65(.intel.com/technology/computing/opencv/)]TJ ET endstream endobj 106 0 obj << /F1 10 0 R /F7 30 0 R /F8 33 0 R /F2 13 0 R /F6 27 0 R /F9 36 0 R >> endobj 104 0 obj << /ProcSet[/PDF/Text/ImageC] /Font 106 0 R >> endobj 9 0 obj << /Type/FontDescriptor /CapHeight 850 /Ascent 850 /Descent -200 /FontBBox[-168 -281 1000 924] /FontName/NimbusRomNo9L-Regu /ItalicAngle 0 /StemV 85 /FontFile 8 0 R /Flags 4 >> endobj 8 0 obj << /Length1 1645 /Length2 43829 /Length3 532 /Length 46006 >> stream %!PS-AdobeFont-1.0: NimbusRomNo9L-Regu 1.05 %%CreationDate: Wed Dec 22 1999 % Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development % (URW)++,Copyright 1999 by (URW)++ Design & Development % See the file COPYING (GNU General Public License) for license conditions. % As a special exception, permission is granted to include this font % program in a Postscript or PDF file that consists of a document that % contains text to be displayed or printed using this font, regardless % of the conditions or license applying to the document itself. 12 dict begin /FontInfo 10 dict dup begin /version (1.05) readonly def /Notice ((URW)++,Copyright 1999 by (URW)++ Design & Development. See the file COPYING (GNU General Public License) for license conditions. As a special exception, permission is granted to include this font program in a Postscript or PDF file that consists of a document that contains text to be displayed or printed using this font, regardless of the conditions or license applying to the document itself.) readonly def /Copyright (Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development) readonly def /FullName (Nimbus Roman No9 L Regular) readonly def /FamilyName (Nimbus Roman No9 L) readonly def /Weight (Regular) readonly def /ItalicAngle 0.0 def /isFixedPitch false def /UnderlinePosition -100 def /UnderlineThickness 50 def end readonly def /FontName /NimbusRomNo9L-Regu def /PaintType 0 def /WMode 0 def /FontBBox {-168 -281 1000 924} readonly def /FontType 1 def /FontMatrix [0.001 0.0 0.0 0.001 0.0 0.0] readonly def /Encoding StandardEncoding def /UniqueID 5020931 def currentdict end currentfile eexec `,i"[[5j5mTʻ^+݄fKitrޟm%9۩*++`[&NfA-O!J"|UY+; <Ԟ2?.P2QhnDtw=y0)n*[ Y]~ ΁RzYi[AXm>mܘ4<Л1"%}ƛg)n+f]riZO uDnH1I QD23naVhR=DRG1a]L$6콗T|DŶ'{9?; 44Y;UF78ʄ5tQqw,FΆEy|"ǎx7mp(poj1'cKKߑhgB5lŶݷ@]/'E;h2 )Lwbq UC*=Iam C 7 7 Aq^[iZUVv#@{@AARqS\M HSm-?_xn+*H0V׊.\ q8|թȧ!(ѝ:MJIpc&$a3'ZQ;Pw~5> <>3MRAȔd$J_GkDAbDm J|Jl8E0ڮ)ӗ8KZƍb4#szVQlaB*y%ЬaGke]uwQ߿;~tl3BR^ [x%( gWH|ia&0i+bqx;~E^LLb?l7@REz  DNH=͹,i1Zo2^meߜ٣.=:;϶]FЊ`gVa;=^v 9H6 S@$>d CRV3ɛuy}T~$ #% a}9Nx|C{ePN(/F !]&$ bq+Y^n1#% N |,(X9 |lg] RѨǸ)&tQ%Z~ꪃiU Ss0~3)VxA7͜iD 4!YO^%4߬}KU@3GLut3k̜vPzq}_|pRXIt{?@(WO:İ1GC UmhmQ<[H0 )EsMrpgςG+5XBkK^ٝ䄭HD W}!kf>Ax檔;{s.'ǏW׺-`Yq)2B-s{evwS՞k?Bꬴoov8j 77&sK[M2{qO3ߥ>V OGr;]8Q ɴ &;i>2TCنT պؙL65)쥝W92ب7H'kՇ/xE$^&4U)PamxEpc9ݻEɜe6l(:klL\+j(}+*lD2~{;AiKp ch-gpq}eR8`I՚#,;L=ȝxSV?io퉽P| }>BBĭ˰0jK,`xgYt̠3(`Mo,+ؒn)^B 8\DS{"ՉvX>8V,+Sz[V=6SR4j7š?1@ʕ?Mo#6×rNgScć{f! '͙}t?:VߩvhlUd?亞5O>=7tMxT uJZ0 g"vIB峋ਲ਼䤠ʼzmk:Ks;Mh`t!n>6&6V@=v8e,&,pk兖tɷ &F__ 1Vkh*R)zsKɍjM<>Mry! _ks}R ]ܧ"&6c_HgGiQes$NA`ꚦ6Z+z.ԁt}rwv9$l(<(k;JH*Xpntfpb, !;{m(يgi/[?D$稝- :z^CjP/)2rۏ=81!H+w'JQ,AtZ<ܸ ][˅q7A0空B^m0 d.WOi1%sAC!w۔&?ȱ[tA6˭#untYkt'ptg.p 8gzܬB!i .{ ɸ$zz>= bnna}gV~qX*RǍr >6%k}̠.$53.S@d|3F%)$&W)%t򼔖5ZҭK 2 CB ${~rkvc&zP:s:z+!#fdxҵOU>$Im?U{{'s%|۹ሎǡ,0DHFF2zֈ+r9Pu &Hk(_}6 $5˕lGIә@W9Im<+e?Fj:HGdjB{Ưa7x#vH$re|Pncpe u|Cl3­} 6wpEU^B~ߦ& $╗I,!i0*J UH.P^ #=t0RE6BXWXlPLfoQʺotu:j1ԤTJ=c7YJϜY =AG÷\d xc.)cx֟SG{z>ы/F'œ'>GD#"rש1#j"¨/U' 9\B]Z>Y>zC:S;Pث`t:0굺×Xzm.cJ4vgQa9*-~$8K+du#//DYWb$D,htEnT}ݵ~qꛖ1"9(pk-ո,n6KvrS]^tԈa N?V~Ct)tA wW|gKENdK\[yzJ,n =NĞn i9铀nMHI9y9~.4'/˝{8/J_+ {Iy9EDp9cFhi IkC?FD䳝%'tcda;I;t_3kKVaVkO &Q,vW$dР3eHf"_^h=|)6)2;.$Hkwat bZ0_ƚ˝/Z:*qKO1rU֓TMD*NVh! +_+?фȮCr#c3URuէ7ւ/R O(a5~=%aZj*('AznL).ϗcm n6ZW0qp,͊|g 䟮EQn5=C2!謤op +L}ˍr-9P) \acK?|ߟ1ʀN0zu'i?  $Ǖk|:TKA;J-ڀ6ZthCr7gyF]MK7"6up̷M: 2) X;`4Y a&g^.8?b\W/!2Wj&o9MFhٰefT8p =+iwN}ɶ"JٜkR kY__Dž֣ -arhX7! L4юe㣿77u|-E!j5bT\r^<8ϲ ;ıi#=Q!Kӱ/tJs<嚘NȘk RRRD}RYXqӁXrɖ&*+W;2Mk"AOa1ҥ @Pf )@PXV3w?P:eg e_rEQtr>g!-\*ݵx/EJԳf+SH4Ps,6MR,|8Y~x݇I2ܿr<):\1z<м.Z 'mR󘃮&a)c)lx_gB _$ʤҾј)%OuZCi c3c@ٳ!ۚTW<CtϷqKF~a J'sKZ.F߇HE`Zc,}-ⓏP}$ %wBwbH,t;$&bJ092w7A[k^7kDG7uyG֫Ѡ1<;5o+Yw.(-& 9Z#+դ8<S=דGw@G&b-tBIʴ#Ro )TAQ"YU*1)B-HL oȖj)^inlŸݭTAZȳjPudQzwsV ,ZKz6CK$-e7e1DMtF4w:"@ϦCK$/&]mJ?Cr.}LM*7Tį+὜`\v|7Ӥ^6OycLu"GNt_pB`,+OW)SJaJnyt߯OE,1)ϭ7 7 sAd9x,13RTQ ޥnPIcctuY?ErױT҅=.UtT}W8pD:24:w\Dh"N5'dŔ~?hXFwZ#9h{RJ9h)[\~s*-/S䡈Tɫ*J$'j,+i*xuYLqLGԢ!u񠣏4_~n} :,̢d?}n7'G b٢c,wǒXG3H D=! {|U+\D-BGQQ[gPL]ƏM!Cj@$Cv }rw7[S0x*c^LFo+wH r`]Ʈ:ױzUM"6fAmc/mgx\2S]ƌ'T%9JF'C x_G!kDVP!WxiLL}/_yBebq@7/0L_Ź!_%%#(o=Oz <̭rtpDYX)ϬPS,$l"6av$#xMysLŋY`M<i;_?keaY/E ֑9᭠7u.ZRz\X@ HP!4V&Euo.,gu7܆Co$Nc֦(ƒ>-m^&,PLN[AHFޓ3v#G/7ܚ9H@`8Xq~'G6b`EwS_gR+|;<Y,H$$P P6ۇpM/tow]X}܌ zf+r+7HʱǐM',Wl~%N툅Res-=PI1r?=Hc)0*_V)X9-!YkՖC*1~6D'HFw3tNQbϲ|۲C \bl-;a~ aΟ{dr;<8 Qo#©˩t=~CZS|6uaY+t%]oebDKN $T專Cߗ5wrmL*dks ; ([`-f??Xq1ȹxL+;:?×"tT ^ h*~=SVaߚz]k=(8y[N PM-/Yd슲R)X.|jkL)Wϔ;o' cMilth.AbwdN(8$B4ưVP|=C zjP MP<2:/X{MLWeĭË+xLq+7@*hw ̀[%BNzwCio5 b"ZS+<@u+Y_T:È!QF΃.2ͷÓm0~!' 2Z[b\lNl~*q_8a\Y{&hmVY"#8s{UV a#jd;`ϴxۡ$JT8EH"O4li-ђ.H4HyH; O8f[3LCهNF0Z_N![67EV5yD&6:cjُF*x&/J >ca=r%޿ )t Sϔp|7rD hpq;9q؊^+Όv:'e^iw3,ik0%7o.1ZW x@<`ݶ#`L\w8Q4߹y%zNM'L(`cd; gآ Z]FM%]ڝ8i=FG1&8pY?D-3^waB2,4;VjkSO\ڟvL]B#/!4Z3/L_"nRDewhΆ؎w#T5!,g=W 0t@h){<"KCa~ *8qkFY捣a#n˻m[~a)gӼ%!YU.[dũm3ͼi7I>UZ#ˣ: P5QТqE'UUKL/XxjӚzG|ߜ-RzB[v~bvu|K1*j]*n+U׳%H6v{_CĤb,B{d9("- o{.Mc8Ka{HYw2I%,Mտk=eܶN}x>{^笭nB,FU!q%(i{AHL6" nD&pd tYVNb6+ivIÆRi؊4 eNL]Tv޹c=3iuz~ @찕Y!癫u'1Q C|ai X=œ9W5_PPU@U jGܔކҒ! $ۍ$eK b&2&8җ{s!?GZ_DTH -˞P0逜CL\9̪ﾋq.FĭgE1MqA\p1vιM N#e4Z?[62n< /Tc EҾz7I*ːsvIqJ~@g0\ D;氓Ռmp[t]jЫo}Qaͤv b.^āT[ލ;Qu L6 o;0Π{bX+*!IHY=9vij}ڄgR1]:4/kbŐQKq:Y.qH;>e8[.p>w# 47o5u1 atWcﵓޭJ{ AJ-=C#x@L^OG VT׼b$A1̔hN)\[ 닾9mOLU "折@ !(Iaf5|J翻4OqآS-*^tW6\K2!#cF'w8P3Ӈ$ێ2@v ,7+?% 9#hwbk:P5mx3]kJ(v@ ">/*/aR86sjRSnHޞU. iŊ6Qaª럠v#~ sLRXr|n!DA]`$\#fI_W]@M/ ϥD( w(R2l@ Η8Jj2*S!Eť̗F JgXVV̟fWZ]?R2u'evkQ 57d o CDDFEnE[, @P:Os+ nn̮wMKQ_uFHqM j~@k>C9% $]Bϛ[ղ29jEl LHOsCr X,&̙0I>fm䄄ګ6aq!Q#h +t]Gl+LCDF?n}7<8j iNO+toxݓMl\9아pc+Qш\ixj.|O-wkk]ǽ{!dZ ӳc}c. +@k%3=0b?Ƥ֭ u[9YW=:#9;p 6ZY']ϛªp[u +0Hi<ѮTθ-: MB\H3!>$[8ۚK2ޅzeBCN t T.N4S8=nza_KK"BU~YԐ}c1f谨9 *?n<}Vp+uc/W%s%߇0&'$m鞚Qu2/la,b{^+F(A,)h<Ϙ4l@}@ݖz m ~ߦC4#{0L+As,bjJnYMUYM5Oo@ݝ<'s$~ EgΜڢ F[O0kf5^aSI0𧮃|H#$cSyc "٫θ+';{h @肬_g$G75&; YQA[9ALQ#Kwm8`ܜ'6 [cMŅgسbON|F|j _40jقaR<;3d6_-~'o!FB; ;;iѤՅ2V0l4m $݇'3'2LޗaM+5WTyE[uyz޷eq ָ⎋&M;d_W-zkAu!'3g fJnb~ӭz{oIOjiUv MWބ2<+|nAbOk}$f8JLg庥i&-U7Y=X&shozX'2( '/璄Z~\!ׅVN۾csj|8 5"(#٩ j QB9]4O Xj6놈NC 9]x_B7)VWq3m\=?y(kzx4YGO2k29MX^N?? ) @^n)aq(3L1ሹxAJʆZJ~C&"\r"sG )IVkZ-*UHѷ{N垃yA3TߵQO3З GlC-.$rs"3>ɏ)g6ӄUAB)z?7ScGҍws ӱF!@nt[+JP\' 8/od;bG]GL 5%z!Lj@& +?gcaf n|lL* ^#({DMx';z[7ں:^Wc&gU|X4\^~qݶV#yKÏ3J|4]Igdg\!"/ۢgR!so!YGAis_8T޺U"70m@*}x\W$ 0 !+P%9Iyd+CcLBk-j^ w{$T D}M=U7X Ÿ#@UO˽N.8ǡםT}vt0.#ѮMԕIO ύt'iok%hI.3aS@WX|ƺ; Ի@ FVebAGP_3jKhCӊW%L2q!0SY(K_U/Kks`6 tשY6{CbFo2FtXN} OłБt 1I,Ǣ|bKP]gӪ^qš𭶌|i0i Kt,Vhy%+ϫe'Wc1[Ag0,֙a %H%674bхM/Y( )(p@ˑ~VnAr}4."Ttf"Ѹ̱.+@[lm)""mX/jvLϩiV\PS9b}D_[ÃMiŷ OWɮ#E޼}3Tj*>|Bt5׼ȫ=(zw(ED]j8q*[>qFӹmg,yV8uSUf)0Bԟ\*rbJ+g[.$Ɩ z3F[g4/S[Z}vi5|˳ۍו])d:wʲ(W@kE57[{|78m89֋; W3}Ejad@RfR<Þi(7A#po Tp°΍d3ulYǐo='E6eM%uz'_E;iT-KE0_gfB Ls㣚I/?J&:zW!zZm~ -*~آ\b{g_>x'fjUIF`!JČX m}qk <Ȓ*V぀ME'%YUTGq=ШeKw¦[ut\F`QIS\^L%!Dt3OsgO56>*K3$mcr9FQKu*(ᛖܙa*֚jF@3sf Ds8dqwf5Az6.*H``^9Χ؃!-jc(R | ˙qǹ3QVvHH~c[@#"\{_Qm~l~6k+yFP! +CeD/0Zr4 TmN4=djN1ĎR>\j(QiT{3-t*d UHCf˝dC4w L\n֠ *^6YAX~S0¾5VҗO N5'%[V*oO~="Fkʚ5y*!! m*Z(=`سaM@I̹vGJ0X#xb؆PӋ.77o>@`ЕrXibA5_,RPy}v K4^Qu QTlke0uХa,a^)Jo=뽋*/H~z rJw>RQ<ܕ{XPۑEq^ҫhc+RO=uƭW&KN BD )iMZӌ #E8]cWꥀd#gk'Hvst_LY#3 g067 $іev:(Gu99*)0êub]Y"MU{܈v2?v! ,~PlQ98:2);fg}_s&fnQpbCQl3/i 3CDa;=Xk"πyui#RjDhUoX~JsSX<6R ˜0.(n1p`O[TN4M/\]I*87z&3] 0`x\U`/ij0H Tw>ayME_,Bn] Y0 h+_pA=0MS5~WNɤdϴBqZ,eW8 Dl?s5ǹQ䷾_jN G̉GAK(p3 eT/0W>a=]ϏH;yu ρ搂q /5l9: YC_Q3"*= a>;NFzZ-1daPc~JD_e XԵ75:oZwzyd2+H.6P oL["'_Yig1g{~x[Xń;IX7O.:~*vP]M yj> ӑp~S)"( K8J6>e{Ml Z"l ]ná 2oV(Զk4rS=3Ԑ2WB\zn[Upi .^Bq6=I¨[i1O‘)I;5:]fY'{(RMfn>KpP=TZj L/5s?$"BO>k؃hp\a7H3EʆRWW%%ߊʦɌm#oۍ*7jPMcbɤ%ێȔ@d!sxo9j[ !+1 `` J0|Z~=5.%gig*gz3_W)8Ɨbf3 '[tZn='4Gs6C\b@ߚ?%]'n^Gx9dsT6}ORLv3}ۚ'tml nBl룔*$"y'MVq>M| w0cuX%9ph8j,R9ĆtO+x+QnIC͟J *ILQ6M-n[7[~ Ū64сC9r` 'ϸG1 _\\O?a>hwϝ#D^b=nk엍%|jSd<ߐx$5 n_{qt(jY/> NGJ6v0G 3X#d^K8dXY8ȸ$Iv΁@bb1&D6D]Y1o!ue)4 [_%RcIN % ']8KhEGJ_uڅo:߈,ÃYc0|q&p2vBe_Fԕ*O֊ /9f4=dXtUlcG[Fv]c85M-ģy`Uj HQZB9Wy2-g%SS~C߄WrYge/@EWۉP܃` K HAN@BߵT:N*@Ѵ 4h(NsQاvMD6%¹8:~"Gcffoo#|;u@b*"8W ג ‹ [BxtcSY۾s^;[seo+U5цW5p#ߟ[~4P-)=˸30StxSmB. u4I.9E ia3c¨{X/@Ո5mG }bpodnezmG^Mfz$iQ#HmV]8@Mfj .ըl0QNyVh2+8?.hG[ClGzÞ9IdR8c=T 9[xer̖t9x܃‚*p, |7XڊCxm}3|e!NA_g?C[]n=`4rzQIT#zX6LcF`qya4$^ͷjK(A܍{>R{iW-*|UMcʀIO `U8|SMXn~ɦWj,2e<vj ޯuqe Uo`)'7|Li *>1H}T&m)(a\p<=8ҠoLvJ1Y2o?45 VLn az/%xItU%`_;@6 l&ۺް@O4ޘ8נb QBLг,Ibjo}zz|=vj#@rq!_o+q4D?b/RQz">? oBDsT/&B^^'n`H?b.߾Nر{zk2P& ȫt f]zii}StaIɆVHJR-fՅ15^j &.ʔa&OQZD6<7ܘ?36P o~㛑\:+\wMJ+j:@bk%BSu]ɜ8 II9;nkW"mL L\=>{2(HjYyVBVఈ{u"/Yn|\]_j%&aolܘQH64Ӳ_F_.8l((Im22cFV0z~ݳUn?\1FJj~XF:d 7$VL\M~#0d>)r6IAKk}8湊Z,ھp^Q_H| &DyQY>JMr7>>W$D9Nٮ6V=]I$$$B}Ĥ1ܾ(E|$^:z ϖu}[׈zhk'Fx>ùdhŨʃl{&c[mW5&0WU;`{? V(#W+1`W7d4^϶:[eQBq;GFR5?Ӓ85Dȧ;C" R0x"0u)i+ix\`fvDN]EWс2[$ 48(3QOmn_Lhmd Kb^9hK([t*W$37}p˱A$7>,"WnX3^XGòMIϊISNș9R&02ݢ*(ϒwT́xԩo03Ht;P)$*tz>x 4~O[AEDz0SIz3㪅U͛\\Ԣ7[`0:(JC7v`a +ΐ*4W~ucV&;8HHJjGT*ipBWldlrEʃMO;}[A] *c`a~m?@.iY~WP07mF6V2" yd1NT7s3ssvzJ15;L52Tz!oi CzOSZgJ\GtuCĊ;${,?cAh]-r8|ae:̒j˷xvAxvx,RQH>;sK¹KQ7Y^jNQIT1& BbQ[߳`cm+W+V~$oe…lB$S_ulqɵw_~!8 "@,5I~VSvrB_xAA@B+&۫nc↠ScYU$GEy7@ ݐөA(5bJO zYh6(L VäEn~plM9OKo^{x(0=>5Sd7wR j Da1Kи^YeηOG#݈B3SH'ҭ3Rq~&tG$4nHFm`b03S 2Z%X/0"jzdɿ0~rX}=\nf@ǖ<05Ugaf|( PjF,-P[7b=݅\jEmoH)'0N:-22PصWYg_G;υ L74MQ:[c w 9A X6JdB ~1~'0KM%pN?iIER0#&-(v` $) m=wKg>ŖlSZ; 'bձ =!ɓY/((Kؑkk_l { (^3:!7swa>oK-j@\AٽkEy3SkGLI(6Msi-h9@e΂i{+{fu&Ti{ФTN{7t⋫Y],ftJ[m vx\_6fƎX5з^-=JS J~fʶʒ"81/t:/J_$?;"9<12 h+h*) ;"\$%߁BvY-~uG[mwʜgu3gu@v{4;0.E-V#dpyگ>f-[+he[<+ r~ϝ_ȇ _SՈK9,WT}<)zRIk*8h$ (H EƗwwrV)GrK$lba()ܫujW%Wy?k#V8n%5Y ,0dCt. )ǯm[;/Wb[M{-w%g(sBK N#SET^2DE0 % 5mH5|5lWq,[ YU7R0M"=/+cYMފm-ߐMj[˖cxѐ=\P uiʁ4-z(i$Hș02M X.[†WgzA؋˫ qf^r+vDE6osKZCpnuTFM☤L5%.NoO\m'l9DU}g@gtyjl Zhp=+cX o3浉 uɃ<%gAfA"#oK;2`ezX_˛&tw8#gf<,*[{vfX\ۢԦ~lHGER -Y'ݰ'xL6*- 40Q+~J^8'wռBwOʎ_KGR_S7nmJpI@qz9_@)2ϋ N#15l ¢VpV]_ ;瘞S,( uPvfR|8z[PiDD>5PUɣ/OϺW#:wuQLFlJ>9ǣБM;\urO,]{1-o=p1uŋJsFTdz^pF bv.Tpe9 3fnrl9n-WJo^Iczc JP3ׂ5p !dszlMXˢe8Z5%cRr$`hsЮH hFGڝ| ,OF6N+#V=VCEF@OƏf3)Uj p@nVINF2Mp !Y6ɇ |}6SF61'dU}KV15-6d4n F;ZJ!yƜEÿc~$|ׂKfv7J̝"M+'xz4QLa%X3an?C1g1؍?s /:)wMK` q #۟Z9t]hkȋv8/ASb5%@8,'EX8%=p0/O$-(\mM_"} SObYr@:f Pէv^dt@еJ%hXxCU@H6(4tެJ:5HT _\1d[:r:w+ҍ{u"Ko!Çt}h,Κ`V'c2R0R2"Нn0@x$hh"o䭗qhxQŢ=A#'+iSVX[+hn"/rÇ.Ta{Ri1LT{ %;Jqi<" o\KuAd24mVd+d8#CЉ\FaWAe!/ [ź`QUɷlo\aF|)Φ^J 9%jYp7XZd)i;pZF{ަ !ak= J`֢ "m.'Ŧ2&P.rۈY@^wdUE'EԋMyl+ri `K D(y@O?EXc͸w[Lo,޼NYT}O&sTر9n#uJyEXxTNt!~A2{[[x,|&^ݍVZdnw8S ,h:ag``cvRtj =h["H`|&,) fPKZ{(w()FFIubPE JC,Oo4#'菼&To>`Ppy LB{'bcR e< PJI d`|K})7"9ޤ%ksw#jl0}-'fPí֤nFufm0JJR_ ${!)bc*l]z"h :nL"qS,P$yqsrڎ>kY봜MW,oCe!zLҿ }bcy m",n5C6w#>a[Pfv["9z@[PGB8\թ9t>u_zş2>kM,![o@]PQ.ϰ8"84 p ]gib("[jmcRЍSmvθ}idsK²"1^}zc,[o17,R/e, $aDє./!bPgS hKco-u4tKkXvriCqKmLJf(mb~2l/(R$w& {.MM͐U Wa6t7;F KM@bs6˵"PZ B_L%vQS޿]qFu&hڈ!4H%#Bs֩jwP J!0`Z'#6sH@sn i7 M9ǰBk9a&vA,9d,sO*XjZX 0[;۸4m6D\giݦu /E%|0n~:~e2(>ʃtlѵ[눜;0 )JR" uƩTb\ऱn(I}$ XO&:~HM?':ӧՁ| 5I 5Y-AK;/="t.sY*BǎezvZヸ\!*e 4e uLiUǒ8iΛhȢd8ޯE¢|sL-9NkIᕚVeG XaC9=q2ޒpSo Dh:K.O9J5]vK5,&/ e$PŻJI֒ˠKhaN{L>2[mDvYss}+ogQA!:LCw , *L5p,4}.wPc*sbztI/)aAotX,U~еJ?VѾfw'C`" Hk,e5ӕO0xia)R"EW\?~.!pOsJ`oC̶rkNiI eJ1;<072j a6a7\&J7iPG*~p: Iv*Ft'[.4f1(Z{ {@;QUQZ-&NK3|w򳝀h%D=Ռz"7j~ ^ϥJr]z!i^ׇd1Qr*A2"t"2; Z[Kd0}m_[ (/r|r%߸; 4$H5ب v{78Kjm{5f*xhFzPQ8hD1%@Ö5T8;)GbAr\ D5/3ykquuVMtK:&_}QVaBSdS9*~78Uؚנ ԢK"[S8 GD˪hCA]waN(L@ kdp Ž ywwT v.1ڢ-2u\(%MЅlBn@69*q@t\X a%62WQ|fJҳ@9G%fK1~bK5|KLu@R\ǶLT$c@oٶ. <\G ZtR_mE=`lo=Vm+oɗ'TIC ڵsOE̥RBSJv ڜFm5xmcu )Qp!m ^W,g $.%e;*N {N!b 8ڴ|NmȚ > )JUNsI왌# ۦ*Gj#7GuqC` Te(s0SliT]./L͔ &'%aI#mCC. 8Ôf\4'4dy?)Jt-$)h)ѿRT[ TAo^?!!^枻x:;K39^G'kw#@LDMԤb^ zTJƷ1#kR1Ho规sv}#e%]10%SQ׳MwB+LL E (Ή5w@oj1l6R4У`DPԒ& pxho3 'B9=0(L@*hW1r\kM%&oBʟ Y -Pt< V"m2󕙶iyo ),'D.KO*9]/*:";LU|ntG4:p}_tEEZ3 .!?KurY*v0RsTJ^3f uig8EF× zr]pilHýNЗ<-ul4K(akIyر(_oy]рVFo 4of>e>KsIsH: aGQy3Hp5XlE C\N|Gpώ熈N0h\TublG,L2]u+m~ u$w 1F&VfW~ ǭ'>|'d+IȺ:ރ\w_o8_2N.u> :yF_/l){;v7a\uto`OTJg&3)]`v}\GN|毎\0lj^ 4^_ 8s%6'Vљ͜~2Ylqr0^"`"N(Qmsդ֒KUAlq>:y,0d=%8쒭q̙Ʋz= %L>=.}fM`ҟ.Nxn ֶE˶ls8xb5m+xm<,.!W^Ukي䌘MLGL|}&Szk7Qݏ':PeandsǭH]U'?ҧFO'<@ȠQ[F:눱f/mApr9'NFRMhZ*^qU3_feM:Ƅ{Fw^ Fś[ISCQKr\]~9wl%LG 2QwBw^8T8LU9pNė ̩*);w씄v2:JwXC#%0 0w/Z1(Rw }JMkvSzjh&μç#/(c\NL5 +ᕑ2i͠;s!ΙZ|oݘ%ߜ<<-y4PjOU7d^OSpR rAamGr#{_[pn'1Ws#Ժ9aG!'ҫ r즚=?~j$MTHTՕB]EҖRt?sfOaB~“L_oͦ}'?؎I!o=-1.`E63?~0mݶ0mz+n Òؼ1\6ޣ7V ?՘'$Kڛ4 M0 VG6%w64:Z^Sq5#K_uݥczb{x#лo_@@gkj{\f8!m0Locs<`F^<܆?a{D_L0&|7'&vR)4 q@ lvT"5@5BCB40%Px4)xji(,yql tijxVo| gX٥O17uL_"n\=61=F>b,'m/Gᩀg:+(uU+>qvO!ق>zlsoN Б&Wm%)t5ptw-Hz\Z*Ʌ5th37!; $1^Ћŋ|c?@ 3!֭w=c{'P]KuA ^E4\.m33z7mq"2-Gake&^=4$9,kq$π"H LY,̲+RZ~2N^Mbwǂ@֣ -y -U_5d]jNŋBS{l=-[PYu1hvaL ) 1tr1Ĩӹ E=&P4nQ~hpntxw#[QmzCijw鋾7\hk&*/AKi iSZ~ ȧ@,rs+jYs];n' kFrvw(N9;vI`mln}aVYJMD)_G !c-p1X3ZPi>4K] 8Fb|8R-dS?΃_&0CFkCRDVIǀyl&ᶥ0B{N3 aq ;37533,W]T9,o!EM/}8HZKsq?L1k"9) z4K(_%Vį?$$bB`wyEA0&G_ĩJl HF3ݘˠ(ljVxs.+jF*/\dpMX{:֯k`ܖ'ѯ$mSqSnTs %K2u`, ]y]c dUp13q|ޒn4\<ŅS ッJ|{7Ak`E3=2p\5Luv|OR@z"=qUMG.ih\xu@TDJyNuSOUzw:WhΑ˸+Nvle+E|vMRaK@D >JjN槆z feSX6fTE5`nUJ:W uDụC2w@=S2ǗǨUnmFˁ NZ/nJ9< W&aPVtN^ºgl}flɁ1IÅL@2L\CFML;-vELAHMPK1u.L/xIπO.ϒMa D8z$(w25y  %#g&EY`q/jMw$=k˔#jB`wYl(VUxkpZ/5V1g`(WZ94{PϖZ!FZhsiYب <xYaBnAVn[ 80[D{_l u&ݏש*oEg_ lQwϟep4kd$b5DNQbғ}~^!$;Zm~T#\$6VbD|&m { ROE#QʧJ╍䗨?^D+o?ǡꛤAl ;=0_ ܊i[kymˀW7;M2 )4?A$ Rrd=ֶ{FsO[*!@nņN*eU/B"3bq+?`t 5Yh,tjz֖A*Zo&;Hz Sua-_OfU'#J)/%Bx)-H+F3(nrNԓv;74*`]=a7+֩en"3ڦ_ pkFpngC(\giوEW4g_~kCqw4V3OW1I"ˑvXCU`(z_f!A s4  K„7s˵,tw<4J۲o {0*ڲ#V/(ঞ=( `s[z  lfg޳q}̻:NIo9rxfwO<ϻ t4yڑI>¼iC >ͩ %L^kJ AH!Xc"f7r[+ӴBVz:GDk߉&{|v]0] ehEGPekP,W1~ pi6[cwTR,~X?xLf`]ӓLi];Jao޷{cbkGnSZW3aqė?dTYy^EUL,^F3'U7>W9-*MfQy6lUT(m\,--؎2EL}5Y8O)["tE7#}+%/Zz.?yB> endobj 11 0 obj << /Length1 1662 /Length2 43244 /Length3 532 /Length 45438 >> stream %!PS-AdobeFont-1.0: NimbusRomNo9L-ReguItal 1.05 %%CreationDate: Wed Dec 22 1999 % Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development % (URW)++,Copyright 1999 by (URW)++ Design & Development % See the file COPYING (GNU General Public License) for license conditions. % As a special exception, permission is granted to include this font % program in a Postscript or PDF file that consists of a document that % contains text to be displayed or printed using this font, regardless % of the conditions or license applying to the document itself. 12 dict begin /FontInfo 10 dict dup begin /version (1.05) readonly def /Notice ((URW)++,Copyright 1999 by (URW)++ Design & Development. See the file COPYING (GNU General Public License) for license conditions. As a special exception, permission is granted to include this font program in a Postscript or PDF file that consists of a document that contains text to be displayed or printed using this font, regardless of the conditions or license applying to the document itself.) readonly def /Copyright (Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development) readonly def /FullName (Nimbus Roman No9 L Regular Italic) readonly def /FamilyName (Nimbus Roman No9 L) readonly def /Weight (Regular) readonly def /ItalicAngle -15.5 def /isFixedPitch false def /UnderlinePosition -100 def /UnderlineThickness 50 def end readonly def /FontName /NimbusRomNo9L-ReguItal def /PaintType 0 def /WMode 0 def /FontBBox {-169 -270 1010 924} readonly def /FontType 1 def /FontMatrix [0.001 0.0 0.0 0.001 0.0 0.0] readonly def /Encoding StandardEncoding def /UniqueID 5020937 def currentdict end currentfile eexec `,i"[[5j5mTʻ^+݄fKitrޟm%9۩*++`[&NfA-O!J"|UY+; <Ԟ2?.P2QhnDtw=y0)n*[ Y]~ ΁RzYi[AXm>m_mcbk$uصC4uli"bcB|*/?;f-ߣI4BkG3 +_v=`d޸3xFVT }HNx)cl6dB[KB9rraJP)iޏf_X#8=W|pS;ˑ߶1\2[a$EW/MMH9U -+V/g] t<*GP(gl(}`ZdIԅ6iP$J[E#x]TDݻ Z[?HX(7t&ɳ=}YM@SHM\X_XwŸ N?dw߀\ėˁ|J&`:Bf2Yrx0AQp` ,/̜V#SE>ret5Җ t3J@_,(ȃv=WGSTqc)!,̢ױ)'zZtHr+`!&_P졆o=pC#03ao$?gaeޫ8[4[x60Ia?>t5WQٗXEjU2sC wΗw~GGbb:d-fb[dԲL% ~Ρ;gÂ'rxR#VE51L*}Oğa/-vC>9yk`;J!C z5)E N~4;eGΜ>sܺѠ?·2T@5l4%HI⚂.oQ_WӐw'S#6⽪ +ބ3SZY!˽mL"0Mk |g O!52-e8OXru74,ۥ0y\ʨ!WzL[GzR}"ߘl~NJu<0Ԥ:I!h"`ɐ4^7hL͎RA}CA_ki(oyA8^<,D1GF~QGOȮ\{J)&D,yfZ53[]oTٸu\qh[VXcuGI0Xy0Zt#{V(#8d79#j]ԨPi7LlZ}?Z?`ŋ O:%/<ҩ,,n 6< -TLQTa9Qf ; jDo#t%CYpDp?^)P*$l +`2~+9t\!+;Ts=@_y2 nkSuC㞂TIr1 "%ٕޯ p]lU ?wв`W0ygFܭ X2q8I'T?i eϷ[{PXCct[&/NL9E9M۰d^o ܠC@"eOf*yh {'=7oEHZ)b_&\/'X m^~85}N8.*HOMr+\8w^Hڲ"Pa[q=_yOBV +bsg,K[C\ӝaOvas!= e)uT79`qN ¼{:E j 2qXb1߆/Fㄋsgh ersbmMݺi#n&ϟ"1JB15:6yU>y |ɥhNs)9td:xhAi5ҳLȑؗ3yDc(ĉ2f{YO98h^1Hp8hNF /xO7~:Eꁼm,!A-!EM~Z|3i:K[0:ߥUAjf)k\loJp>>>m-tx *“-tF&չ0פr:@qXhƉf/eNc#"~a"w@1tGP~֍W$pE1%; O$-Q-<=~q_wAGwݿOF'c^\2I) QDZՄ^3'Xբ?xM/ >: ",;ɖq#/ruqRx}iK@4=] ѯc օpa+4 t!} Gcԑ؈iER?U-4K`2B^;zcryt T*1CKMDL(fLMcY .+>;g SI\1(s FLC:D/%쐪hmJ c -Qz5EC:މ> Fk> :@1`nIfз˘I=~5<*9HJ~:Ǘw$.t(՝Qճ8]7QOAx DV4-aro[#+\gP%E MAR~\$Prɺ껡2 ]Tk~`c4*\GqMf&5ߪ'kbm,m&:u9']+!2>#b+f_A xV@s!&h )㶛*?V_X.`۩ m׉. =@ P؞{ !_yODJyssSZ?1$mAɭa%bOy%[9t,G$mlWL6>1җa+*<`pv{*x:H5O9>S9Opi,X՜7ytMBq7P"S.'[ {PFjb"`ãVeѭK /C'/ĉUTy_8/صɉ6:Gp.aWwH^D>8 Z7h-l @Sj-hgo;`~m !UOdjN$,cmnO6nw`CO}JV^ySgtւ#˥>tӄ{西1+4YOe3htVyjCBQUgRHvv\fy, \Zz nFZ# Ԫ|Vx83G%6,kI~n0Ӟq-T@_DZ%lWjtmk,Llbc!_{ѕ^lI܆6 y'j%BݴjK?0 ۘ%95 4僸Ʀmū!bΗ"n$dCh(tZ[XS{t~Yg0[%Ԫ֋a HX%,D-tpffag6ShTD [VA3!geC(w,2hM  OJ[r%;Z[+z SJl햿d{ zqK1=R'Q9۽ 1Ӯy6y%/4QSsk@jgYߪNJR Y(~X푒^z;eezYLh%OnheAhU |:;ʶ8dnU/_e:Zx挰ަVh]~Ԙ,% b656l+>xk̡2Syx6 R62NH\61NnIׁ<=5c#OuU^׍phi2_:Ek'c%c30z K[2˂oG72Änף7)cOj+;zv6r^33mR%ޯF$du&6o޺&^xv]B]t;FKktb31hLF_]T狍'9 ,iRBD-lz?SPƱ,(!'a{ӾmIcO5~lĜ ƚޣ{O//UWW_p4g4r]w=T,5MlYHU},=dfdG1G)Qe !RHd2]uZ)(^Ԉ!};QDebi(PrX_Jg!D@"%H)9YiCgӓ^Է1 ZBPz29V?"|a^#:yawqWA, k?ezbu-d C@^j=!YsK 6Z+zDLoҳg ϥ&|noH|$fԘ=]h?)me6W%nWE)::+ 9ٓb ;R+R-fiSxLI*GzY`jiU=u*<CDÄx5)T;6tvFu_zgx-WU(*Y_4k7O&ҥNqwvs4ӫOadB1ɗge@.P9uD+Me>z|O{ BȪtNxZ2xG`Y,ncT{wMf ҏ17|T w?Wt>jDN_C$Lp)/'a7w(XѨ[xлWcp@g W-z-d`kmםù~h1q ;uQט/]jXDv)NOFW֟kqBo !LT^w$Tu\n!b&N 2CSK53bsG0܄q4SQN]Sqg_0 1?`v:т8Rx⣶ȣzvH80R4InC )WUm?3KƼz鮕~QQ3NJurp+~:fZ@]aw"F_hmk(ԗ1^!:L;?>}:toȳ<;֦.BѷMJeH06H=;D7J%S,:>5Iag25B+W_@B/ܶ ʁm[7XՑtsAͮ2C5/mlۯU1g0Ϲy܈F2/e8*qI|5+z(&ΨU^PRNSC\ ztd?XHx2v%9SI&ttd\% ^uCrOޘ?'8mlt _ov7ؗm@{Y},ID;̳pO"Dץ"~nOzݮTk|AEN[a^wCv.C SNWߙ_3D0ѡۑ.w(ctv>2 CTdUwF@ £`Bͽf\QXl"X!DI(7TҰɮ[l+*<*Y4\ZqOG4H63ÆQA_(\X\JbEiSiFj!IrL <*'pAiqDI+{ym? ZIQn aþRWf ;"@W ?0i*R$RIjq$H%k^onJ?7^|Tb&K\R=@~/$bf PN3)o)"K>R шПcS:^0Rk桮̀HHzҵ+l.ύ~#g Hl&z_l ^FzG; jL^SɹVE}{d\"YP ,P^35p+3ږڌ2]C_ɰN&_|A:_SYQLEnw;'cz]G `X [ 2@ Q?仸烦os_x+fqcѠxͳlRNI2N-nýO47a\@BΈdf:MPBYJx?|\s==Z.hwnN]z%8.ܑ QЁՍ2R;f6\hbhR~bӼe̙*LF§cfB"ׄe"Rt8IU%'\p,{wI CdPf[]78gIBnv\W'/vcmvupD BNsz߀\=TL(@e'b =XǮ(#&/0{ۖIu!j{3٣|T \,B GlTEO6nV)2f<_q(0va7:| EH&H~uv5ւi1.rn'{h)]&G ̴+{Rɯ*In@+j8 ^L>s:;7^Mфe5Xyuz q$MZs9Gv0s]E}ypD6ٱ$F<[A6Kާy0 Cu]:IC†Dg|aiSdhcFrkmsh|톦yD'(/c |bik P8!*GyAzu}k3Kkw$|͝x(Z1ȓ`}ԃb0 ИW ;8.zd?У5yl-ؾ8j@/utSxeƲ,ӕ&$g=+MzJE;IUH#) nI֛-a njzd^M?B76=AM4]aa{UWE9AmjZ8E|Vr| <)1+|MJXܧ:W5Y1]VDhl~kL:A@I&k %4+g~ REjD|qjb'Ƒx.$uddw"u~f tc~s(T3}MxQJ<@uj2V 8nKǰ([>X+;N ?).iMۧ! $_u4K:.RWJ81}RioӯKʵ FX7i}lk(23JC-GǦ3*:T"d=riؿdfhBsA gqoȒ9Tpl$4]:+x> -U;H pZ|it[jNL--n,5c[SL[xe6rOĺCCԨ1>pYN@PWՔaB<Ԗe"5##ٟBd&-u4HdHZɶ>#bըRqj!fY/Th 5 /3OkblC>adOiI\ᓑ3Q {{y{`(u0^ TbTy]>#&vI R8eNwbG~R;{ 'Bq)7LxX;| ۙ&ٍY N܇3&_ɱZK..Qi;ѰIJ9˻l8gަН#֙~QuS홆MbZe J֏bv֩{9PBȷP2 >yǬ_ɑ(#1E6}Հb:IXONo!By.~z 1מx4jT,VTbZct5˼".D t]{$W$ɢǽWuǽ̏#lLɋl4=RJ!)[)8\9xNtXS\T.i4& 3{qr]He0P_$o![]/VҖR|Q^ceFnP33J9?/3E/-#i_8w[ĨfX/4 _&xh-ZZKC;JYH:mB ŧ@&*xXOx0;Hf42JDUF&h+&v;Zh/MGk U[>p[S! \"2(T `  J*"UM넟@?Zͤke&-xQ@98k5%-W{DۊJ5\ W%b!1x8PwDLtGz P;I=ErJoz$wʴm},8kRPCwsW@ĪEJT0IG e-ʶ=3Mzs+F]J+ףDR~@0c[9w2;U&~)6T!IZ޸un_^VYnƛnzqvwȸNiP4(1쮨*A79ZX ¾f%( Ok\G(ܷ2Q7l`JvuMt_7\\mBbԶFq{c૵WJ+==F$j%@Rg6b? ]eany|,Fĺ OE@lp*8o 4RuVۥVG$J6%`+v![h*66 ɛ(Y]?E 7ʄ?h0m0b5 6-B-XLJ<۾cu2aP,fY^ mx,`u>@Gf`e]|GY8=i"JuڭA6Ih` ڰ^6D ̷õʀ?- N|bSOWms ZozQBG\bl\C}^[tE7hNk,b 77om}E8]}gmuu'p#^Ȣ@l -fos6p9 )*ITԚ`{ofn.e !/xA%s5EH3r*^Bl)LM,GCbk.m:'?*&[:*/td]1'Q+dcQ_#PYC$ 5d 0٨QI, BTԘpf!RD![!r&cZ*P`C$;|<53A{/~t{5,Z5<`Q@Kk8NI%IWrv o0n(v~KxbSh-0b*W4'Cz ao=gFdJ"VE?b[' s QU= j1[XPz>j& krT[7nfJ&l*z},q#=".(-n5:'t#Ri ɀ|wrj*JR۪au\"^c!y5/:tG'OŌzt,J{*z" e>kwێsq 835͋HN9^̓^5q2sJK3:zOmhOJ#*H׶!c?M2XO cizKz-xZW娴gZ^SYij1 u*gvA8)٧gzKnJgS&I4-­Ꮰ6DhX䜧醇^!!KtcPVB4!Q ="h);af/K&*Jb&7 =Q~T@?i}c&&_&P-sp_Ae[U֤ɠjʀyX;>Q^p4TX7-tZsL0o³7ƒ^ -I0y=zd(j"卬jUn' uc柼̋杊M,k znH DܧKS4O;8@׻Aߎ|Ÿ[,!bIsfث~1C2pdcL/Eo2'aƇ~e.%/FN>xx fnsN><-E w KGջ_ biMh{]st4ŵV Ѱ v :YA֖]\8|kea9d9̦TtV)gK0b֞ޡI/--G2)B` a7@u*-id̩t\aDso8@:"ۻwƞJRuzҚI8=Z&F9a,zU35Ρޗ`S5[EMmo Q11ɏY0_-w 1K`Q #W.:SzY@U#l7^(џ8`;QoR<'7i#,wzbmslIj),n&m۩Fj.m ,<^Iz7~c갬/.(꾫c&2 ?Z.s M-yo.?ݲu/oC[鶇Hn[T_Z(4mn6L)BwQ 4@Z5[\8߉= ъfmO;i8\.Z_@sqnz$UC=Fiz(4ĥ`D6qSHv-%J$ $ܧZ/tHu {gUܹ%L`m%@I:bϼS݊zy!k?i5PZQޅIw/~;T(zp&vO K1;I:.4,ˏEo5QKCV埛GC X7pG{B_s] e><<_q?BcMrT{i}鄪6Qwľi~Z\qi`.GY0(R!oySHR9Y.njwȴ|c+Ʊ&1*!]vƜPݾ^¹(RpEL2/,Cp`a[6E2B[,gN沱_&'){͐)ɾ IU'KIpvtARP)%We8C]#D9jIp MRN)©oVf <0施b\y5ZiBpeEYnA9l\k!$ؕH#4ãP\:l̮`&ײ Ib " r@K6ۦi Xn%Yk+u]z'%{ziiSH툈'/1MN`.-smVlB4ɾ). /s^eى_\L?Xf 8gzM0^)AKkQ!E\SW*ѦSY)VmKv4Z *S(d*\b"!(PI+*^(;T5`Dsa!^J7UbZiBJe7afqiKVY(l`#8O;k-omÏ۽re  RQgǐV4Zrq66(P"<(n$P7ڠsmoB-h9k$pR*fR|_ƜkdVz;[ `BMga"ۂ4ۢNJ$ijD; =kWXho?&;6weiIЍ%ZsSMڄ0Ykmq-|2j%v=PM-%Q.ϡ};ꎧş;H }N+ N:L$_s<m yDEM=ʻnb-l4im`T}ϥofބΐE/5>!B E!  UKizNTl5wzޓhLjqw>\G]7x0#JUD;_!(9Qwu՞~r4YmŸ676./zߧlj*r˒&7~w?5'3}$aWpcD QVhbQU֫Otv 1[`3"k2$P@wkTkMG)rh !c[!/:fK.B;'NT"ɤkBxpHĉ(BHcOh}5W70mDea+] ?ׇi Z^%荟)dr:Z /p[QMDP x77hucߝ63ٿO'jJX5FHWQ. p'CAJBrIV Zόjc8c aYU&{V1p8KZe( ~\}(-2O^M;vx˶XQ&0+rUw<|ci NqG_i Hd c9*٣j, `~OaTO"phfg(&b[`F)̚ML?P$zzH.=E[ Zols59:Ӈu@pGdIC}xMv&D~T,nPI{6^ JO{VW"w|m{8S)LhYXv78i᲻ʰ#i?8TCaJ3 ䷓X_g 2t?z5LK<7`c"Jr 딡/R $ˀ\(1M&NGfkNEM?#3G2>5RTР KwDJ}qSe)p$aB-x2cix!H˨HJ.cL%{bw8 IW [*r7U`^R)!T[㇥ %ݓnUE | {#SL;4}u-$Xm*'L\i^4/n6%kAf7[ዷ'nr3qf0͕n5y.p!Fbw.݃"l%&CC٨̀/V'}3a xAS/יh Yj \}c[<댒s7쌆>OFU~T;L,K.+2BQOCL#!Ң5J}[1]O Gl#zZ9`%WIȓQrj4qauu 怴6]JBF* #v/!j-+b$E6FUcUS}ΨaMQ-ؐ7AGjX:Cuqql 7Gp!ꋍ!ǡep,dOtSI19*!v$`߯LtdZ jiC8C~.>,e8d5Q?::οOAn)rєs8-(W/GHBgqexr`\ )Il~KP- Ilѱ٧ŎsK=k =CZ?JZҞwt;hC7W<{JvW-YWSL[6?p6vJގWe@t| nB=uNT0-,p3|'R\ c]})iVC5W*]z$ڱoДT60)ҫN4[_X&?p[8IO>O|=%U,e{\̂\$q[CEKN'f :%?nm0=]i:jTqk#\CnXhVx'pwF[">:atDV^ {Œi)lapTlɾ JEW,FC]ԌZ߰X%YJ[,U 4ppnZ)UT85eܲ`"m7LRLI#j]ADž|hr-bQ3L%Iu51}Z3іl+WMW, +Rj.$f@I 'Eٵ>G%{`Cj05Ӻ`I(Z,D66'/sKD>Yi R0^[FEޯr)NHkYЩn֜;w.15Y5nkkL`XAp^+"r\7I:f N1YZQi׷ UƆ,%*0 F2WE&ͳf)Z mt{;RcyY J * 0euPDX͚8ϪLCۏigW^M-pOU tanJ.uYjH_ݵaDA]wKxbo6ʲ`ˮ8N8ezYcF6h{@r&z c06A:{` ;fq$٥~-j{q-h 4Ȍf1-6h…lm5ȟx0Trpxk ?x(wcnE$_YO92ډӰ1ZT(m\,- $:jUg^Br~џ+RvIBѶPm7,Kʆ'OOg[׷ȍF Y~ F)T<رF,hhVi$ӪJ֒ .4/<4 Wk!B0ۮ&GmHʳ{dcx {>;az6^ȹ}9jB4x Qn%Th={谔⮚xQ*-UI#!`K[5?a5hc@@`0 mr'^hK@LL&GyYb21* kZnD]x>1eƵg( HS/Po,G 2Stnd]"kxF?s%dѹK~d:csO9M~1dsnkղF_KyLb-H7!Q&X#WI3&;$S!]Q6 @*gi7V!{Y l K> ?O@ibk8>'pDYm'Y]pu:3hH|zlsb5hϣEa(UQ58V;lӤ=AK[y&(Z M3yv¯jˁL3vO#]I(`)"aZ(czjM*l"ȪF3?]lC[Z;{ OOc(t! J粐65ubsPw&B~Ÿ#m5҈U$rICLtJB&gR+`r9]|Ji*ո fH yb1vAtԪ=G#Lf0qM_^X" B<>n` ONMt fztVOꧨrwD,}-Mx5s|St0>!xr4Kٵ rbwTur9V쎮YEcCG ObZo:7{ô q;\8_1v ~҃:pp͎ ^Mv$\?t(,Azca_Sv@A[Y = uxȫ"e:dͅE) \69LY"FDV5[)ӑ-yt ~*q&L&~Z8z \C=y ddȟEq*ckN?Ն8-00s8m().yf#x|,Ф`˫H MDcFk؝Pwv$1+3n~T־A]q!`*hkS%A&nٵ${;)+G@e`N9 Oa&뗑fK$ _8o5NIB 51EF J*\ rT:HJ'6i-<Ǟc 좛W7L v3m| K$,`fD0(IN @uu<"&86VyO 8;LRIgk5x$PnlP#QWQp=1v2Y:%I s640 .ERUDDDښB?D't||X\;Ȼˬ3P%KfBv+7ʔ93Zf ^\{+F:&;}yO*}FJqګIi縀G0zYƕܯ_\j{+0k)2$zSq1c@JwG{4P77>k4X 1ϙG4>]yVm9F8j6a; VCOAXuOᄹbXuҒy կxywQk N? 7SaQHhrG Tt[Ch[%[Λ)um#|Mi)d8 8t&Vv.Z©m.I@tGsʯ (1tOWu Y [6\5I Q[A_6B7VԵR^L|fbU?7=pm#N c׊}h޹uF);Kf\dHi$Eٱ^ƿ'՛}  @|:\tTWA{iUkpRJ+ȡaq>5YMk 6E9o-st$[M2fHRos&,)7 40t_JgNHd͊@ r CB/f㥑*tGwB1TNsTѐŁbt%s#IΉ?$d `)[aHgx-`D{~U meME ؅4=mSW񯅅m# XTa ya.:6ڌ^Cؕ@q #,YȆrA$TVDg(!Ԩ8߅ ȈzTa~/f1*X(U<1W$oc2?;u2Y en bPa(#_-cc*݀&ۡQx(AӔ( !,Uk ]j>,b4@&aVؼx Kv/v>eةt`R4$WE Ջ<92Y֎Vd[^̺5 Agttl Na`T=syѪѫZc dL''uHbO,>au͆qF BOpQn~w:OH}i`؏zƢ !)}ΑI) c${Ļ.0scv1o/#s, y-b`LK4X e!cmbss' f6KK?á{\.ڻ ݹ=A,+嚻gQM- 0G}(=g}Ɠ<<*zҐ. Y*3gl.GLȿ<6S}k̀Ālgib5~>I@Tt& mW@%)dpoZQk.'#~+ảogBVMie{W{z[Uf)N#`BWK88 qzaVy(6*Gq,ݰT >P3F\ybcu)T;u[J=ݹ1݈ȷK!c<aB1V;ґ4S<++˕:'qchCNßZM'Pb 1ܻ%jP$#\HCBa 7҅Ցc^?j) /-*u+x(Fb%z^!]5fl,77gvcyMUξlɳsH*$-OBmfAcɞWeG% ū"C6tj-IȎ 1'o_I%[G|[Lq.$ZI EOTgk2P1[OrVf'˖Y%+]a S>Ш=t#%5GC­]ǡ;q[v /܎n\D^RLhO:IO̱-9i_e5*E[h))*dV]|B&&XסٗVxU"]>wZ꒿7_eA_^xS @EI^ ZLMD9te@drbJX:B9'X(_V:Jamw_K'wK(@ރ93 4#`Ƃn*M,l8l}m_D wrvގ^ &`70AC/Qes8&/EdU&8uu]ܹNgu3g=Ozb!ؑϓ_1QIL!d^5'~1t>RUN-I kS[wDw/ƒ"YƕWhdxXCDкb8#PF"۫gGe'`[,w.^vtq2;yYۦ"z;r.0'icBKPóʶ4UG%NF.n$`J]%^hx겝ae+!OwQu7#s.AY/Uoe`K[ Hz kkF~qHu ZG| k ifjE[(m>8P>|m#֣f6_o]4 s!Z/BRӷeqOk'VaE"I i}q2Qݮƌ68.rlqCA&۞Eevswmyff|8gWdU즊1Zpq'Qbv.7k jť~ ],-28Yw$:亊cG{6B"$yi=dAFΒSO}H`5CFTZ3|ڍ*,2 ᠈5+c*/:?ݖgs.x˔368bYyQ3>PQɲex0 BB_r+߸ҴYTLUtc`~\{yDC6_wBM(ߨ/:AX[DQNn%#$Mp; CLUSvQd_-QZϝg6ͅ*ݖRYJo[2 aq E`vW=[F )l/S)rҒ-G}# FTL9"#_?VcRw?0Ĝ d\tCޞnC詏0_uCxs+R '^"4D0GdLSlfNh w^s ڻ+վ]k(6pDJ{ !/> raj@-/#q~/dQ4orkɏPA}b&zN2S#͝! )jSAe*܍P ;2Peo|HRdnk 'xVǫBZ+nBVYQo0ܥ 1g􉺽Ex0'"ZM(u>~h^c;=pkG&%*;%ԕfwNhdž7mRW92shUxvU{ saB۷!)SO}&4͙~;Y X}eLS4zfF`nN8g//8>@^Wl)ž6qi E#MruUռ!K&X,jНS=C3ŻUG~ͲOgF?RAʍ ז%CA7!‹l#ubksZ^9QPO!fwg[PB8=)}a~F6ޯ,dOR(,ZJ?!΋P`ۜ(*z)<,kmd`Ef9[7eA ?yB3 SH)~۴,\g&)Y8O$z+[ig/f7{0~kAz?y@AaGEu%^KH|:KQ݈t}QvFjd t3&@ ٤:IVZ_"sV(aOP"VgڞD˾1{N1[쇕p!- {Yh,պf'yU=^X.#r{mj5L]ӷ5|m𡵞aMfL)ݷŐ\6do-3]%"tqsh՚hWw 4u@sĽ0jlthA8s묋@bo>wK}߭)~债)^};!ӎ EWq͂=eE>]MC2oq |Tsb!`-|K־}T ;>%6qA@3c=|6mrh7>go3aL7 Lːpz`Pw(b[4]* _q:T©|;z= 7E4G@x@rć3p ˡ!.qÞqyd ԻtSX 7ƮPvٱ-S$rymu[Gj+m{ұ$0KBobad|"'?|aa@[S7!к)Kǰ\hX!vAUN xՋ8]f]CHGօk1nx@mޠQWl^X{'7 i!rq:n<1`d֓ nbI% 9FϨYp(ҵZQ%4BjYS|NO /91حn) \{xJ'1i[01z8Z'B;qIp \D tM< " #x S>{0`qz|iX4ԝӯuOuN[ҐAzXwm/`Uw Xe&~DGE[ƼN.Py6,ɧ\P!<΀^[]Z2,NՒTS2qu,ي̨cwocCa};PPg^qM@I2~5]z>#zjz`㳵b1l@uJ*ɗ/N1{h% <`\u>"1/FbQ9 'ac))M2$k>K,_d=I`e,T.goV3d̉NmZ3ێyBDaO2'r7J  2amxTA~Vٲ?z Ѓ[YԮpFqlXJ;8MJ-Zqy%WTs\bO,P[}R mnB0c+/V_ypft;3j[F- $YW=ѡF}M ';i[ȉ[_.cD\S^ oqIXr> ߾n1O6.5>0tO]HT|ca4IΩ0c8,׆S.qzFjC<)`5͜LBgXVp,MzFne7iZ.cbTvWiXF{@2fޅ}=U:r^xE u*h85#;ZojS3#A-`f/MC-&熚xa2ߴ P

:mWoHlo\z0-d0X6ў/(J vvwTGj{@ uBM~5醂J{wuGr ̶1aPHzQvyu'%\99/ sUP^H#o꛰2;`+ =7$tM:2ϞqWf HZeɟZ.l]նHw FqΣw>5(4?xu=0/cp`|υPdЃsL|A/ &pHѥ+QEہtHwujD t>p7P@0p=41'suNGhjEEb:ں\UtamFNs]/A-<`Q|C0(4qKV4Ϡ6'B=N빏mӽqqϪ^Y3A!d}66H^P'=\"5^N{?6HjZ=8~XHaJ3Ή/ Wj>&GZUȚ~cʿ3w.M=Jm_05wB]]Fkq?w'=F&>-*jj67_(<\ic'|Ij((ڧh>ƲQLVPx<])!pm6PbǃJ4q6Sb0]~*F¡5?mװA XL=SbXLt(GeG4Oέ'"{oy.Gɠuw33f0‘vRn/ 9Zquro~P)=ZW4N_#eY] 껑 tcb#y6D$W=1fMCot嬖 `C kwo 4&LY>\Se&G%"ȬuO Fef=ImXVS2q&t7R|胯iK)?J/ad<}s;Y!·/<\q0 F$L鎕wޒ(YDd7xI-v l;3 K8hzR:'Ui筗X h‚\ˇn?)/Ic<9vȗ*@:lJ42DCMR:Ž \#g q{m'Pߙ7PV#p;mćS.}Z@Z>WnW륩wNM@=~ `G!թ"=Vt?#7bQv?8 %WYPt{ ?VFֈeK"Mr2WGK!h(ݷˌG_0?oMW Ώo,vܫy.f$8@6VT$ !Wt?&}:Ϟx⚲6WFsv]fYNC~^ָ; ܈b"r>K=߲zdpHV.A{jv𭃤iP4d%A8QCQ]ߘ5Ȑ 0¥s6^#ȫrlo_ϱq1 ȍd*z[=j5b~84fs%9cH%*Xx [E,%]nӷ֨<>mJx1[W|·H-&_x:3 z%^`.׶V{DL 雙J F:g1I$Wi^g*!Q&Q*/e`Xr&7gBw~ɞΤcUi$4wBUli]M^JÒ±| !9*SK32d{]|)&Sgo/ܮfO7$i?:;^E͵ՈOGrؤk2b <˳@n;\8yg]Fkaa ³fQCw1(=J<OO['Du *d}[嗎'!VI0Rv͚K J* QtS5l}cKޛ|]_3*tGP[kΌ@b97{vK~dSQq12V}.$.Q&El_fhkHSK6)]i -(bFp{#]>w1_İV&a*tOD$o.$U&=!^7Zt5_,TifL\ ?}TN֍4r->\CC`vj_p(v׈tU5H$E=.9ٽWօ m8 9+"&tp4CQ< 7Ix = *É:$Ǜ=j6Ǘ _mvtNv I@9)-6Cw{㷸4}7EV7=`tP+LoϦռv~4}!dX^TpöǷZW&kϳw6|otr q#df=e!Ѷ58:FÎ@1o0O6d,F#0H0ͩ3鸣t<78 gc ) \o+goZ1<+|2g21*LU~d3 ĢEO=o zUc! ;d܋"d53cve7kk[gG`σqX-,vRu`ܵ߂͚Vj8K,%/BDDv#YC%0B&K8i&oVMf*}fJw lŹ,аN9[ګPidDT>M:(&:4.^\H_okh!ĎФ̻߶hVlF79ǪN,cv.9HqVKO.O2N^WV %h+yM[ (b@0O5gdܪ oa>TVg=Fk}T*^ę ]j1.0y Ajī(yp$q<+8ùy?* y$Q_~ᥘeC"9evR_`/Sݺ٥^NP!-,:7CAPTIEt!(nV.ԍ-EyiW9Gk2օbG’(^&~]Mz7ͷ$ OkqϺbq:dd#io-,Qӧ`M8;)AgSu&Ij,/r?],T\Sn`]25)"҈oSJ$6m Tm {}iUH@Ev(;)I,挘T xC%S;KV.wd ZxR7Pԗ0mmG9.uwa2DCNؗCkCmB"E/.>W {/k{hOjƁ}Y 2{m=g!1SUz"{{%O(6؜5Q{]Ȑ gY]zb+ i.t% rTd?QvSM}aZ/)W#m6аRi7TenNPG 0F/qS= kmB<L%]C)R\f^gҼnO'cUO7x~Gze*5'_#_qXsF`ZfWD܊='[T:d'֧YʮdװKV~E8:ȗ.wPM)Z*VK<2Jm[E53=՘7c8]gJl,R>c FR/7ǻ_o)淔UjB_)dw#Lh&U&'~T \ߔ҈VlQoV5؋_w{<KKj6+=-w!m=Y]%#og6W./~@:YsZA${.>X( oZ'P$p̨\47r.3F+? @ Axzvd OJvBN_Le J #V<H[~STWBe:J ^5r~Fg+Fmg {+l~_G |6F} -H;Oz(O ي?xӓWӬL;Y˝ܰ٣R:`Cn IH.!j6WlSdrj6&B@YJ{D@ URtsPt5S2a6sK}| TO*+Ętzxx2Z7ȗ?Dz[~k1:ͺw#xjE/Ę}t[~A̵<5N:&K Q3e4.aVtkޭu;Q? 9M'H$*8{#񯛰n>p$nbjFKu.TJgǍy {:ܫ` =txE&zJjֽ'W܂Ls3+ rF8F2@z_z#O -?8s|p X@띋nWƂ܎ЛD}ET uWCɱGީժ*u)RMÛ$ iһKMF~+&od@>A"{;!$vhD^5w9!D8krh&uUWhRc⾴fdP_D_9,U6Ⰸo Mh.7 —{`[͐Ն; /&O؁B-N+j+I%U!`ز5D3(u8hc~sz>"i%uCjÌSv_ox *pd8& IٷWh(7E֔:xn}*5FRЦD`pgŅ/s O[ FbM\UBn8!Z^=0R5G'g& lh𦊻?m='S &LG փkb+ӥJ@ ii{Tg+Q\BtǪ@UN@ X5 wPL ҍن"zf\K^PZHqUT2ϽfZh^ڱ>I.'d\d׉ʎิw6Ҙ>~2l*n'ӫ-~b)>K B.W~GwQ-f؋'(r 28m_Q{4$xuAyLyR䨉y/K  |g|7@8}!NJRp"oHIwL;r^8>u2Pt){4̖$M[ k[^7Dc} Kf WjTnBWS'ť`JoxO".}AW,P}UH;/"/gs,<:1ڜ͏z\ݸJAQ;q7;kl3TDT'-brA[4} Sj|gY8gUg0SmK D~tGF:&ݔ KpV /u--TIrψwzdE3E L:槶Śʩ2寈`ν|2EQ%E8v[Qgk ?Z_ȱM8Vő?ҨXL8+Ű'tK9!&*A 2խ#zDXzReDԥҽ|Lrs`XHQJN*dONXjcͲZKix|;?!laboCg|kE5 sT18%H..^%/#'X:'kL]7ՌS)앁1EcCkJ=1}qa'9*@L&ʅנỉѼ 0 ;e6eol3i"8p..2ҽ/oDg\]C߆h@TV>1`N(z|vl<\@@v=֪}\4 6"^S$߂p$mo4{CzI_ bGv&5aPP^D6pN;iǦId$!ȀtPmW6Xxc' 7ƝwDma&׮Q-<|&h5VxCj]lF*3"wDŔSa?q3/-+?.&Ut:]6{zu61RcV}ɹOw;qss]5T5LyuNy/4 l[̀$p;i!OXpm.m*0L-/Cse71ub*LAj`oRgQ6"G.aY[d<n=b)n[xV+X2.9٘8Ȁ0! rq/OA9N } $JxMtw$V Z-hP%n g:^9rp>"R˿R!Z"> endobj 14 0 obj << /Length1 1657 /Length2 42447 /Length3 532 /Length 44636 >> stream %!PS-AdobeFont-1.0: NimbusRomNo9L-MediItal 1.05 %%CreationDate: Wed Dec 22 1999 % Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development % (URW)++,Copyright 1999 by (URW)++ Design & Development % See the file COPYING (GNU General Public License) for license conditions. % As a special exception, permission is granted to include this font % program in a Postscript or PDF file that consists of a document that % contains text to be displayed or printed using this font, regardless % of the conditions or license applying to the document itself. 12 dict begin /FontInfo 10 dict dup begin /version (1.05) readonly def /Notice ((URW)++,Copyright 1999 by (URW)++ Design & Development. See the file COPYING (GNU General Public License) for license conditions. As a special exception, permission is granted to include this font program in a Postscript or PDF file that consists of a document that contains text to be displayed or printed using this font, regardless of the conditions or license applying to the document itself.) readonly def /Copyright (Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development) readonly def /FullName (Nimbus Roman No9 L Medium Italic) readonly def /FamilyName (Nimbus Roman No9 L) readonly def /Weight (Bold) readonly def /ItalicAngle -15.3 def /isFixedPitch false def /UnderlinePosition -100 def /UnderlineThickness 50 def end readonly def /FontName /NimbusRomNo9L-MediItal def /PaintType 0 def /WMode 0 def /FontBBox {-200 -324 996 964} readonly def /FontType 1 def /FontMatrix [0.001 0.0 0.0 0.001 0.0 0.0] readonly def /Encoding StandardEncoding def /UniqueID 5020939 def currentdict end currentfile eexec `,i"[[5j5mTʻ^+݄fKitrޟm%9۩*++`[&NfA-O!J"|UY+; <Ԟ2?.P2QhnDtw=y0)n*[ Y]~ ΁RzYi[AXm>mPhɊP)cJ&/FFZ >o^A9vX f9&7G~2z 3DؼԯïI/Cj3nOz-G9k0ES`ټ"m* &%{c2n4zyh>8u)E"+-v/O5:Saޖis&F0кxH D 'i@cw݊SzÚ5Ak8P{&}5@鴕GT?T[N;}xc=WlBrg ܅+L6y(օKGg(⤝W6)ڙyc$0`Ɣd1}`}x%%Gk0ލN=4yX0ۚj9e5te <^{O ?^ч~uF|J#, &"U6o=BQG@%1-IGn a5B[vPե_b)DWT~BQMmmR &iaa7`Orp iD UvJ./ kmݪ!0@>,$$kQK*ۙPIr2ΛJ4g [{؁aGϋfj?dAB˹!oO: I ?L?m֚vαWv[2N ! QcjIjw& 2A;(oc% 2!Dž7gMAAfgOa#ՑOHҋ?aRIRD)R~Url:AIPj*X/ 騁nYpW?I[4hhH.R8ۉ)J8ӫb~,N (}-$%zDM6^i?i`\CAaG˾MZ3wX1UÕý>S&-=Dh ^TI1 +]oEs&[1I[pfpd.?W_LCDȆ`E9•MTBot[u/hpf^2jca1=F -J  Pєy+(x9f"7/Iw!*SEi.ԒEUM~CT-n Pq8,=L{"Ɋ3 Sxݪ= GFxXp&"LE ΟJ<1ic[CLԂ}/HW{F-y&GێH/ͼ J9osHK*Len Eg@;&fȹzpQ=pBFr43ֆ$O3hY 2dԜtQEѐҘ=DS+,foLZaSn_u APc$QDc K?к$ۚT? XI ;Q"IMxX3" 毗P|qr;PhKNN+?>ص4O TF(}Q,%)tELHܫ5Hzwުs4 yeMZδ%b.'g"إݫcvnv\ V L-X9<;{eY$\C킑aq Evh0Nw3en'Oj 4k.8$q5vټXNB8 |}m&ٿ=A F._(YyPzF Wwfnh>a}pN&=Fmq*@W:׿N̞Z1+vnbD 툁&W(U@uIYATCYߠ<x1z)hR2)g,|.t)Zn.ȇǢ7"w`/LMϵG>wA4rvz]'Qg〓yS3FV^DgRվ |t~̕s꿝@)IPulmBe_PL.ó]mPn;/ow b=1Od:=_rTySe,k3bj)n1*՗:Plc @nfkB> !: PIpYr<ñZ1LY'\Zןj#{lߴ_}dwKPJ}: i\*ti$1$@4Z`]hFkL>-# -W-"t*;Ĕ4@#w41!qz|kYGP/O8ҨF3>evl4?A߽[+:!$d0}4 hwbޜ^/: YoNp,<E/d(cKnow>a{ρ?gWΆp?ZUh$5H .R+<;c_ ѻA΍b#Uv$^p1tgsm+~ [PQJ*6g~;sC &8y \!MϨt݈(@rC2$yFPj3?o7: 'N%H!uϱ#bG/Q*nڜoBqD~tTN\{&Zʙ\62Gj4*e 9xY'g`%~F([Ⱥ泡&4!I?enDuY2TJY8dNurF_gYŖѰAlf" QYh;9^l}_X0uؑ_)oԓCj/QL"&QyXl-"z2RNIƓ4s/:N;BŁKOp; 0XtԮgF}wRhUt] SpLɩq.r~W֘51a/G+U?"ZVvlP}BW2lhiм\Ej$e;\<(ۙB›; V۬z=Ih lVv1Mγ F3tk*~bs0}g1z\NKufOR ~+qN:˾"p(kyc{RWLL! '-&mL-M|p9Yػo>(@šQZkÙȳ:Cō)j'K E Ij~몙fȍ(_‚%i h]}= `mk cHE;l w :lïi:.;hVrCŷYץuToi5kQL\hf0,@o)1ugUxKolPڃ33b@4]z8i93eÄF, OaF1B|\"4ZR6 dG9M]ְSu-W1up/N~ % ^tRmv$+MܳwY}$e&b"'haoJU*UU@MčtYy,Y}H,2o QQo?[aZr@&CI_FR.}sPSmʯ;y]4(OZt@\~=edꪧbFv Vx^N$%FFeh1GEѝrD}/"h`\$ I湖+Ym4/D;eË4B'{;7֛J1k/ωR1$1wW!~Q xwt &Oś~\x_ kS!n7VPF4Y* Gx"mplTaGr }:!&&A)@86;hۚF:+17 tXx٣Y*eT$'5v` @P%; |_H;L e?Wf*qBѪ-s`/' LJN_jKsxee9'fj3p:We2Ϭpy:} E hB}?e8'5zmCTZM 2Ioq/ڟ8oέiиѯVrM{\c{=ͦx$]ƞ`Pڏ=BSvF)`8fԂ:!]Fwα]4j:,h:ֽk&}&u іӟnG& ql[ޞD垠:NNa.spN2krT;6뿉m{y;OP\d4S&f'/|FznRНCC*!:?DÅ_"_+ *QԿ_ ,7^ r0Yw1 | ^PcJKaM [X5}l@PɔN`<"f[el-u=j}"niHFn 4ָ D 5z嘌WɹEɃ5=.h>1h-d^擏DW*iX[y x!sYr]ZX)8_Th8<[L(b5 Q[br}f;¨a}aF$Ev~:'S<.'@~Nɜ Ckހ2=VT',D01w&akɖʠme"7FiنϡcM~qhc䗪XפV8>zOC/WFf.]K,Cuv?xI R\8OϚ/ceS]Z1 h;#Iy?muZ-õ'̃RZ98Z"Nsc3uJ9iA=>!mngB @ "v\>91`4Q5_? k'eVD6F|2c+ + Z/hy-T,Yaȳ֚m  r$XAo׋R[%b (m;ejd)QJ(zTJjޤ0CGΜl{eexH' d"qZCA;vqOxdיQr LQ1dOkMF (v*Kt&-w)fəlMC4c+i)oY[E`u1xSaG;.Py&^|f$˷!6*ᖋgmN*ַ]J>Z~ɷFO]SYV x3_@|żVtyz\FKّٕꔏ f\GS_~J%PҀlÑ9H.(> :rtyZƬz L0 D\7̃VNfWM٪%c%W;|pop,CNiN+!ǬtxOQU{YnnIhDI<>z 4pd&B5/[!{- &o3yVbsp%6,EG/ %*o_6^m݃`0Ccx -cf}A'<vE1nqUh!=}ķeMf}]<\:RkT"2W"+kg+ٜ@_ tt3QfQǚ)yYNt(fړvWy y4ְ xfVsOO˒XkNחrl!5W^X-~lU pb%*`;>녚Pgq)b|ܻ>*EzL'ݔ0iB  MpS2F^CpN}vJFP4̷aݬ_F}6Cض3٨z |7tb?|J9a7+cDd9׭#` 0hz"Bn?G]V(`9PB9evv8pV@(Us@=h?7&Ctːl|G@Qm GKLQxd!j]#I8N#ndaw̫Q+ 0x5JJgh)2ٵWvb>ֱ&atnV?zUt.y >4; ZWCF ȭ=Л@ڰwrO B\ۢL/%hi~@RY息`KwR1話fo&vj+{mN:](Poק pYqb"zc9ĔK.Ә':a/=t=q T+72&LfZ/w>' nakŗv}C_!~$8vBP+av6r$Ӯ2O|VltrSN QQuuG{F`.Q5Ȉ(=Lr}<v?yq-}Oz!YCӳ62ȓ,M`*c,C']j0˷/(A:Qt˨zL ةG>&o E5o1%H%opv?qJT<MkJ?UE6xiY]kDˎ,MFh{+>ŋw]aXC0~v>vUX06E3^`J]%9ox(O#G2'j/-_)7^!LGuXH7NJ: )3w{k56 ۼb+gi)Qyz^@BXuМөpkBPpM\Z p%iu={;-+NKUYUf)N#-S4>zQLT,]PVjҶS:hfh'VHP*:O]frjT7s\]4Rg96 (D|rl3w)e40U`b 7$d\ЭB墥~HVx6Ղcwѻ#Luw O ό xhFNKd_VL2IYfa?^ CNEY_ĘADx[R73ajwAT17`HY[ 9B;%}&(}^R+Jց6$BC{O($B ,~ ZdtӄthnE6y:&ׯ1I qhكW,&|,=[OZhKow5 $%QIMD8P8YC- ]ܿ20<`WR|X``̌ i2 C?:#Q:گhHҶr/ Ӣx6=={<+nsp3N9]CxJ򴼆-WO<#O.ΐV1!F.7IBwjV>]FJ|hQPUS?}|\r o!@?h/ḇS]f ``X]uwYri/n ;UGnrP:T~--F0U:GnH.of`~؄| SlIpb!@}3\D$]ïjcJB"`٩*+5V`eÞzC*"1,-~1MmcjVl{Í!F>E h+V=@fā:oĨG4_SZlP<{h0J2Vwl\YRdc]<^Um)PiH-U`^t<5zJ *41Ma=uwtLS`AMM5xml7" LϚM6~_&JEީATd `.hz雂4KJ~Q#dL ȵ*{apvGP4!qvwVuZs"(ȬR+;~oENJd`t.L}R% P!u| 69OhW } =Aݽ_I}-sNR|I42EiF5t432v`ƾb˨NBM.7屁 p!Rr@Cr큇/h_@Qܹh 40#=&_)0LHƭ#`9ˌ}Shgwr"OǢ7*f>vͪ4B|"YIG_8C #r3MJLFc.̺'%5om\dZʸbzPo }\!FqIsxc Amٵ$jRظh Y>0jeu CffH׎ޭ_<NicgU谋VW3o{Ӛ(| ~4+ 49e#9u?6IgOtnSgBX GP9*Ѝ QE?_{iB#Lq0银:,e=&jVd&cB_&kLJJƽvXIN@.V7Wèzl@t;͟qWiǠ 6iyj.zqR(z 3fYmR`g(#zE&cv2I0OOZ11EE wz+8:Dز4]yJhv2%`՟:gqXx[͹D l60 ok\>2⊭Hv>9|Zr} 4^SZ}1㟎I|?U~ hDmƄf׋oTeW){E-keyE hx`tWjK󔥢xAukKIفxu#*j~z%&wРƕ_섿L8g42J KUPn?Boc"fw[.)sξ2:7w |,O& X)sArQ6* ±ɉӿ`,HȱnȬ wYjHΘI=h#"VylϏ'D:9-ZSWάGBH$*GPam"s \7P׾ 9oV[43i!ʄJDl w}ۀ? YP˜r$TÖXK{i:ON&)=m~ͮi>sM!h^^1JcBz0`g;z4G1aN1i+(D^KA0J*Dtgxv{ 2͞׏9옟W7㻂I>@cǟ^=d֭21aZOMqJ~,WLlQ>>P~1*Eռ!HA戔/BNx^@o- E):|c{]D}'*E<<z6 1*@/įېo\]av2AbixeR0uİЂ1Rmlaγ2Nu6 jlV]VH  q^o1U+PM;j\Ҡ̝Z28iB *fG;%#Zk7ڟ▆El|зB1/=F->٢" Mt隨,u$%k4 ?:kRzX$<#B<3u&t)-ZJ( hGʖ$sP0`XYQTks&qđHѻsfr4C .^: *|?irN[wǾ 9uIҷhmNse*J+`'܉Et+ɹ %tի$>;(>[:dqs7+\s*Jω-NGOw!=d_/i 6*Jp[ϟG}6GU:z6kՠcIT`By~ @Y !~Ljt=is 0qpz7ρ)6Cn x %7!^!sHr-ݪtmB7=ރb3>4l7KBL2 K 7Wy&HB陣;=˿(Rg.nP^sfk0n|7i0IA{m4tK\\(9`1׈5t[.$'낖Qwj)gfF&[F_>P`o)6-ї&BGRPBYsCS X5ϐS/RzK8+l!!r۔(re-UM>MHȞVOAqY1iκ)o:E(n 4_we5M*Nb. ] AYƏaC#1L@<_+,M+[q/)+&`LgB*}tMK qa6C0]U8]<d;Xg^O3Uk/nb_?#j]}AmQH i$$PD>bǯ9fBR)˿i}8Ʋ}#!;$cP(Pf^iMEW m,]0EmD*oΣ9MW:pYNjrf\0[QO]е &G5T&+pV2U/ 8ŢtX&hXӋŋ8Ht2@YQO@>L" #hBKRde!Cn|VB{D&rLUaT50ՒUUٱp6 9ސұ΃F q!aa,2 fcZ{#ʄʵT MW; "%ʝÿC 6@aua!Jtg=ƻ)iC5ۥ{[3[\&EսeMo oA{.{Hx^:4&-mjĽ.U`_8J{,}~@gd?𨸺OpL\#sys Fsl:;#c0T_hnĢ:z LA 1N6ZE|)iϾ55p]T1d1w1ћ=P(\1:^}jMsȰ #;PZ%$buL> 5V+?rzf%|(P[!X9(qO?A݄#6vAu}\(C_Fbا5 ]!]KcĞx5GXyڣn{+P3i%hPQ,-Y;a#aV .$Ut`>s8Zo0< m(_dHhlVѱLKоDJ 3Ŕե"8X9ST/LJKN$|~o9ǒ~G/R\OWfe`Be,}C? Sr#93k{π o++ΰ﬍{Nߴ5υHl{&py='ױkӂCr>r eȬ3PhCxM=|K5j[g!hʤ"I~l:pwn!HeL/2vv" 3sOj~ѯx%)'%*hS}tƽD6j\-3Ncr891Pl(?E9q#؍h2q\ԯ DE<@Js,HUC8Nb&Y}=4qk[oGl$aЭɢ_o_7X! {{cER_ Eg'm\0#B Cb~BA Z〰xU^:!KVe2dl[xMM2ăf؊Nr0.xR\a@AmpzB0($xZC^?}}\mSXX09Aٝ^?YQ:H|3Y BD!ưͯjn\g[SO:-ohBG91B\0=3;\XbA4#Cv3T4=m !h'|l 0ؤB=zs'U_"':Pydp2[)3?{$C=h䖾MfYJ`뗺D5 տ!P\X/F=T7Z{+AC@&fli!&s3@ei}uqc$eUWw^=eWOWfrg;`bZ I1"gy)t{mBq;zbѦnj4XR H\pW}Z$H/q/q!{0N:ŝS, R5孧:J{%P*j8P1B_y&&1+ ]9N!cpEХmJ[,v~BѰ옠VS~eMW!Nɒq5"'8g;Vj[H-t7ף ` {F!,(Oժ&$c_P Q?}$AJ {(b\.MBmʹ>i'Y{'|,ՔfҒkPF-e"6\Oc]@(0OwǞ!_Hc6]`GBzğsgS7?.9RMe@H9Y߂)ë:,!b FAxC"7(jI g0髚D^Lt*Trg9s*F}(խ\1u!J7A ~T},@DOG#of 犜]1,{4AVk_S \e?]L=bdUaș<* Mqvi_NДERnpkGEȑEY(rI'DH]*[ڥDF해ł&~kQ JDq\S Gd]rܽ-6$eDYPDa)76)JFr]^*+ʐ4/3x_df7-\H̃czJKAjɥJ& y\y2m!dVi1k25OghN˴ֹlHz &DMUt /= 2a?olCx!=D,&ே˲"]/{d _="5)$@oM=n'Nؤ[-cExJeʗ4 ??paT21JsOYAA V,*|F0-g&c}G.MPH>Ԁ4>KgA`SܣEAIGiu2#;wM&N',өH؄H;daTsK8|VS$ Gwpb=f R o)# OjI:$aR3?ӓYmY $4f}S{]9|@phJoпXXOֵ+]Щ\pHbOTfƨ_VqaR6 -wo_fvA.d3 1̳IS{hYC,uG0GGU7зDٳpcfH"t\ 'M/GOGܳKV[Mp,3 %LRCGSV lj<-i"ni`CcՎ5췳ٕ!Vy\vt *jl])7GaOKD34\Ϝ*wY+.I_:WLQHZ;呹wyaocw ҥhCa;w}><6F6 lga(< p P%K?r_+9XbO"zʫCJ'%{+xXx _Ve3Ʈ9%I<(: 39Im+:I 2cVB_qɆZ$궱&ܝ^Ԇw>A2ZƒS3uHB9ÚV#W.FB-#P'&ʺ66=etnӹ0_™q%s`g̈́j ̤\?S7\ɡK,rӷ)IΡ_˱gTYTHl'Э[<]q=nTw* Д >WUu8 "Z@_^!XD/_v&6YG]Rh*BHas'lO0 |8M S ;3|l ̗a=y]L%MhڅWcjGuϒQslJqKt[[xD>؊3aKyD#!0=c%h D| F #}T(mzrdIxU0jLEfV%,-e~g>.{T*=[cHxěaI! Ú2Y+F q?"X K r釋AF?Ǚ} O;\(!cVo2 0,dϭ$+MShʌWq?x3*f:Jjl>E0]FG ,DFg 3*C%Ilj V7/vz[ qr-|Yy~OZ-"$/B]D@\d.>ثRRGW]3h~Oh_}5tuJ Qd ɱia (,lz#&GZ>O$^ZuXQ,Le[iv<{AZl Y "\2w[puR(f/e/H\Ҕ6 v`t,M%9co  ,TGWb]H[9 􈬖mHtye3h+VER!X%"g[B @NGsf$e%Ud7(!ã~JoO+ PUc}shLw } [B;!P#;Abϥ%Y s߁ս<<1&m+,gv91zGryn:h<<؊aIaj3J4~s?K'2PҐ+`֩&=vά]lj#X}2Vz\}|Zjo !A–:- eY}kg~{9EȁWK+8T\÷t2;FBKH?#BFb'~K:Yh 37eu3e14S8_~Y'e hw" ,$ z[Fe x\/mfC u ҡz :uzV42+W5GCiX8(MeHϕ'u]&t&]TeHMkhAeI1a*~M,b4Sm3␹+.lQ0< `IfTcMA*բkH^)q+l*jM pH$SbMnKa #=~th绖md K8¥_fa@(z'nKl *Sfˠ.]db= 'lt'5^N L6SТb(%t~$^;Ćnxjdmd89+KVY )zR_Sح WhϬ,@mdQ KzSM6ojJhak繅z ,jwQ3c+ru7Vو_HEUws,;LN[}#gv"PY,[ە/ n|B%xd nE3ɫGX?8 y@5vT!fKԣjO$^ѕmC?#k,)vf]hAN*"1U~ɕ:5x;<$piguHtMdx.M;a@v#aYpQT}B&QB185p҆%1=~쟧@ -(*kXX%eE#u9Q 9*)Oy=qMZiwf `>A 0^y9 pɔ+-H8B9Qiؼ9C~OMbPvGi!vXg9usBb1%z< ,/yd+ $S q-ExЗFXUbvS"SZ) fn&,آƊMR>ڬ(1)һW4\k, CTjw.ʁX%Mw.RT@C|AX˽J4]`dt馊PLg.η|_o{k&5@ET]وGT'cfK?l2 ed]l^ E4|+KV7`Uk0S<6W,`-6FnITiywJ!}(4Jj?#a0ר mwo,mm2F,p9GeŤ͡3j0x*V=^˄9+-9Ӧ @rb0@7q1@;)PIw[` w2艮*4!x"rMh8B7WV>divI&m3!PyDMä\%\z!s1>N9^SyO|H#Vr(jVNpG&ܨ# $6 oE׿Ɗ`i ple*Ӧ!vC=9Ȧ f*Z^ Xddt~騑ؾ3I~8Rqerѭ8kfx^l?$@XR6 ݕǢΝhL ;G;@HTOrLGpgt>'޾9z9MJ_~ȟҎ@)HYeՓ!m/E=⦩]vmLKՄi\~.1Wx e\D9_ziCr>ƣN"YC s.ny,+sc{>&@-bKߎ#Yng'ίA'75oZ0~>3S||MC?ff?/H[L$L!{+fKxmeD }@Ё"p{3a,׾"V 8U~K+/h{J-AG鱺^@QVaW 2 ޹TF9 s{"R#Cwqu$rW+DV!Rmw O1{4VFaT9rIV47-JQe矍xs+w$D/]gz!9 Ѭ11닣cR/=7h$$oB$bpR|k 3uRj? ykWΔL$^0[w#[+6B! aeFWaFa-S'#bc1 Gx۴,H F<!A1]U+9tI\q,ϟ>gbߜz*l4uP$ 2bkPHH#l깻MJݞ{#`3Vu[X$PNCc$I,ikg~v\7.ɧ.7e9e6@;Qµ}⯤j>nc?c 8 EpeO X _»wϹɥO,6/!lF H<,I;UO>zʒ#W>8ݳM.S*1ʑqÄ]8D [?nL w(Y#j,8&[/hd-码vQd 'SL2׀Qܿh4NA<'=e{@'גw.#a#u`%뺶 ͍yaIJ~;0?5xNVbV+P*?z+0`3ԎC { &n Lީ㹴Uυ8 -ÇXpoČ \GV2Z/WјIzӤJz${A pj]}>6!qB3;4Aݺ%bGyR@HQdwڟD_2)~0M)+l(JeH[SZ՟o7:=[{W¸_>m~ 56G+8Y^EwSZNP}N 說] DSa8zD!'d|ص{ 3 *j<7@ tŰ,;\=Ώ5ţ  r'" 𬘿rȶe@`%T#}B}mƙTzC+yq]6[PIO:%x?@>ȸ:[aMKTDj4 0_!';g YNuMD >aLGmp]|]^$n=&u_p"Ho}%=PŶa/;J|!W j[F*Т{(in2c5[vRR3mD1GfRF:#k(`2 :خYlOi F_01amQ'P?hL[v]siٿ!>YEIZ1QF?cHp44'Z"+PzL7S@g"F&%m4I3aV/@ U07=TIיaO(w^ FF<\p$HSfoZջmN wߑQa:c9zoӵ GJL3|tA/ʄSo\UÌ^OSs o#tRrF0QsU)BGiAe9x !~{YxuJx6$'!s"=~232WT aq'`MZ!27">lJ_u.|" lZ7k ](oTiEZbU9!w_Jx%C<_ja}b;%_rhpI- b=׿YUK(40r'D=-VDP|ͫg_%C L#:_nL~hdI ]NGƻ޷97v^[J] hdzٰ 3R7iOФBGM!™يy.TǟKO3t( oN ܲΊe ,S~?<w>O'w"{nswRS_moPoԔ7M-\AisGP pO%/jм=T~_l PBiWx&QoM9{||RB_2LBq?ېmC]T(f`/h$3ErJroB=7lu8x@E6|}RhwyY3a-bP(/TrZwhF«+2dw":mT"%֌*9c{&|lܸDrELq \[p٨r_Lیwo.lJbr_=֑A29Tt7)m?Sژ) lLrnKsJ N5?~kr)iro&h0&¦4ѾqVff8ZV{'ć#d\Go;$Κ 5)rM,]Z.N3t?IG8B\F~ dEsDs8wJI`pN#"\J2$ 6v4|= g i.;gyhV9c5NRt(U)d R7( 9,>@?YR΁vX:Fze!uʈ~g2O=>XmlXKY6ǶA:N[Ace1k{V ۺL-l'EGs*}S>lҧLc/=u*ٻI "/޸ S?^R'VTM[S0=*2-Ts#)yDV!h1RdE3q nu>CB'Ux&eVTdD"ߏFr*Tn4hz0+7Hv+ET>sadX>Y=@>3!6_CcbBeA]F*c={ ZKo-[:H[IAuTvR$Iwv*1.ȡzip{H)+'Nxr ͮ~qbӟ|X.}ǥtChVU+)#i)52Cɗ$^7~N dJ%xYȹ)C s^+׳9|!:ˢ ]T9x'=J; ;(7u7g>6;vGX݆/:$A֬>oG'=ʥ|Dn=,-n!?5d '˃HVmtH\la{QS˙;BF>kPR" |9HR4$[fOꁘgWȣ榰*yW  -+r@ѩEVΊ;d,}M~5['|4wߎ2IX~\A`bзV.C7fA,5)^W;S;Woj7:tNA3|\iu^}vD;H35hzM0`óWΫBq&0߸566vF"gѵrf2"gK 6QHL.T*$JDRUzJ푦st_'"a.<0Fk/=`tY؈T$Tt3lY4~a 3'%zɜnj+*O+rϟezI L|;`yLa:_M/Rl3cw F"l{Շ%-̤o Rxѥ&Bs vtC8 .~y) 2)2UH^ўe:|O9t$:^y/`쉪GYy)~MV>x!4[{,f(t= `>sn%SjjZI^$ܨuB$ez2-+ZqJDP/<B4t'F,C\bXiFDF 7aV nc!`#~Kq{T\})= 0T]ɂUFl yf) QI \WhSc}k5hƳT??vt0Ĝgfǽ;lP/Oe=%S;0Ŋ`Ǚ3:%I0zw79<v[l!R jcP [҃Qaxγ]MPp{Y z"0Glw|XN䤒!:@Cp&^_1S/H9?,$AG/_}E!hTΙ<0tkĴ˽LU--:L%dqDb8i W_ 9 ޹~,c 0m7o ZIٿ`:.:q';Y" 4Υ|i'l16;\D |:dKK;hqeT?>]EtW_DK@=Tt?[]/aaG8,cT#4qHrUՙq=DZJ5VNѧ`YxfH 4LfW{.enL8gãQ5aq]`,@ e܎-bavO.ܥ}W{ ؑYpG3[|\h$?~5C.[krr?~WHOuoaCkMV%~ٶ@ es) ڝ1&k6q_gvB<z0̸(x$^hhS0X =QԿrFNVC_˟x؈g4"fb7ZI*۶Jb zQ%NU p%EE|b[:`*GOQAJIjF݊TkF)A wn=p*9Xϊ0Wf7$g36;Lq ! |2ErY$,ik?/ OcIcuo^Z,z65䆵<^ …kNzHbMV7}Ck9`N;.2Ap;IcMwTj,Yrmf6I";` JeiZA"~'`\YxQPպq&WnlDb5Cen,o/- Pۏ=]!k!Q\ ?G%1٭ 'W sfr s1sk~(Oxe4HͿ~:`o`qogE*9%?wdޥ4bPn1.dh㦨?*ː;n mm;Pv}G5 )띓gDv2TOŤ6c}(d#0u_iԥ>FM^H9ɱ7:-7qka}J𒤸mݪe5P#+>hR:"D]Yw䱢:3ӈ֗`'~7f}Ut ^P]av2 v牄fO! ?N7]P؝SDʹE#5tĒ6vEg0UR>6)ٴ˻ÞŷRWn|f2pXf?p\7i)`ۣpO6׏bJS 0<>^gFfiwHBY]IL>a;KJ#bQކ9@іW#bGH3䯡.z[ߦo =X*C> /+zEJf *!{{醄&t1;&6: af)OgA]Pӻ5-`MQtzLDkF~ea3zD˙WCҶfږBpp <'npy=Q}/SG.闑tH\骁R,ԣhcMΞ|JQBI7~;#'9Ü"a[Fa6F tE:hla!A ,/<7DRUٷH{uvd,G [485$Bs4Uͨy`ԜԑiW:n<}*1Ƹ=4U:,,n͞G'<`j aݿP;R xSN!<03:e8Lt3XoiLpZVWҀpy83̅s 7D!!*>{t;hVȲ"\.t_ TKN6մsK3#z&;}(( q"9,g1dRPBzqT3]Ǘt5\ ˊ"3g"8nzJX/8`l.Q| r+bv:ly^81@A# W#Xmy 4K:8g\cxZZNonb#SlGZ:toB.l&ɕZ!&3\Jgn(W`Ev1'3}:d03%CDgL\qv}ֹ̹UJlLʾ=ZDee136/ߑx]/]5NS.vm{ߍ.# k%m,k?AZ+(߱xTRGKIc>n׮۔_Q;t1aD*S>H j 8&}IHX$6[Hd܈#5ymDvA&cd ||1m;TS(ӛ/*gaB x0|T+F#NFHR6xQ~}2zzCt Ez,Nk=wc8yא_ҔY#ˆ E2rw2 9 \1&օ綪?/dE 0wpI"u5aKyG8~"(;HWKϥꌑ1!4c- -VGtig6EB6ICϹ GƢ rMwM,z(t|RGݳwN_)]=zi8]Ġ؂=Gil^4U4 ,=m.{O Rw7<,Y5& E2¼'\֌ %CX辛t cXX//%`|a3'L`3|9\P^Jk{} o)u ت\Ȁ`cɑdЊeP@(THz'wmCBOm}+G|LyʨߕbDz NLi5[3!{"^}:$.(*ЛZr[̒SL(("H5:ģRO J:\o}͊+8kO+mցT}3cU IdƟQFK絞&}QMeM=}{dYɬ JcdEv%e'R>Gu-*&6&j6XTѽU!nuΐNP+d-4GM,|ۆ)>:Ԏd5bxNdh+_$ͼ݁^I $unK 3Y0*jhӟ=BYqꄰc4`LK rYɯD3GOo\?Xp}1̎8Im`ӯٙW KCTNeS?nZԂ~{ggR1Cs i3}FuKo1qOu3p8'1fTzӾ^Ș101Jb'N2pLCxg&Tj: 21;4WoV2{eԁqg`"rFfs Q ~Fyas^E ]o Z>5:S ỊQ"8Re"8dDgҍR O|2^q]}4./(-58\0G. / 7Zϻd7 l4e~*͈(ke)stH{Ȏ1M@Bno߽?b{Hj|BTw<޾W=Xiz:k7NvV|,M Ɉ8,FJ7P1-cد9Z"-tgynR1켢ܶ[S^ȍ^~%SoPf6j/-nJ9lt4<:j.GZRǀ.CLpyg'f$mItR~V_!}:c9-C1\l}j3iJ Luy<1 ] B=!e[}L]OPBgr&v9%ׂ7v6*IHsVN~71 x"+gMNe+Z=3(Fkx'*nxh\36c7%9k݋lK0.T:]W}mE{@S(Q@wܣ8ڸr'1>U -[Y`fETW7/C0dM'l۪i3kTCR_Z5I 7<)WYNb"x`Ă,[Oze+)7Ɗ ʽ; uEw|U]`A{Ԍnd[W[s\nOA5leYYT.OwlW koLe$7lAy:jr'nm DR\62 DW0 ol;DGO^ dIb y ,$Xy֡;+`0|,P6^.6yd XknP9=!@'/!3h;lN;znMpTJbq9i|y֚\T3rUEVRy2'8hA Zܦד˺<TRR3 UW[Q.JU m?U<;n%K0{$am+lpqkurV^6YRA 52 j%rRM^>kZ.1Ѿ\k|̠>Uj!K{B>PEO+3m QWmׄ#SQ3ǣ~Ej\TiC6s%4;[Ba`6mn@=媅nB<[:r@k㮃'+/bo^G9m97!{缇Y!k^'U=ʸQL|ZGHey,j ].u9NsN#Lq& 02IOdK#B羇$wWe6a['a^eno .eZr'JʼT5w>cbد,'*6<1H;41v,΁Jʻh-#\ JFB_cc9)bxW6ǸƊxk=m"U&EdcJ&-hS90'[t0s{ XbORcJpsi C(=D ˖o}=Mmފ)*2G?SvԂL:/_f9ULm:ǛBm'RHhlseb8.٠DX4]R"2!a+х~\.EYI;me]M^.!;H*:ȁ- :k w֪S;A^ zrpDCVM3ƾ' [0R9{x8cvmt9#Yq`*/1͸E SRhh`' lIH}o}(cyujIa%<Y84rQRZM<;G3T,iU;ຯhG zQ4L{h}7Z3 uyAf|;ekx>sVa27zeDi^F;|6f<ߌ~5O>e옌RckvOks6]Wz]@΂|ӽ)UQR]BQ2뒡n]R_~Ϋ.N\Mz?>"f|C-^:s $mU kTu@&O `V1J-)*T]GqlW6j~VuiR&@vB}M!Iσ8c<a$N#@_h Wv㠠 dROzyv؃uܪ=LWš-rیa33`kAV >AOC7F&)a5QQz '^Vs= B,yOc )ywzXNbZ?a^ z!&:{UC>Hd9CvjDvl:f9Yw$` 䉱ӞV0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 cleartomark endstream endobj 18 0 obj << /Type/FontDescriptor /CapHeight 850 /Ascent 850 /Descent -200 /FontBBox[-168 -341 1000 960] /FontName/NimbusRomNo9L-Medi /ItalicAngle 0 /StemV 140 /FontFile 17 0 R /Flags 4 >> endobj 17 0 obj << /Length1 1641 /Length2 42536 /Length3 532 /Length 44709 >> stream %!PS-AdobeFont-1.0: NimbusRomNo9L-Medi 1.05 %%CreationDate: Wed Dec 22 1999 % Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development % (URW)++,Copyright 1999 by (URW)++ Design & Development % See the file COPYING (GNU General Public License) for license conditions. % As a special exception, permission is granted to include this font % program in a Postscript or PDF file that consists of a document that % contains text to be displayed or printed using this font, regardless % of the conditions or license applying to the document itself. 12 dict begin /FontInfo 10 dict dup begin /version (1.05) readonly def /Notice ((URW)++,Copyright 1999 by (URW)++ Design & Development. See the file COPYING (GNU General Public License) for license conditions. As a special exception, permission is granted to include this font program in a Postscript or PDF file that consists of a document that contains text to be displayed or printed using this font, regardless of the conditions or license applying to the document itself.) readonly def /Copyright (Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development) readonly def /FullName (Nimbus Roman No9 L Medium) readonly def /FamilyName (Nimbus Roman No9 L) readonly def /Weight (Bold) readonly def /ItalicAngle 0.0 def /isFixedPitch false def /UnderlinePosition -100 def /UnderlineThickness 50 def end readonly def /FontName /NimbusRomNo9L-Medi def /PaintType 0 def /WMode 0 def /FontBBox {-168 -341 1000 960} readonly def /FontType 1 def /FontMatrix [0.001 0.0 0.0 0.001 0.0 0.0] readonly def /Encoding StandardEncoding def /UniqueID 5020933 def currentdict end currentfile eexec `,i"[[5j5mTʻ^+݄fKitrޟm%9۩*++`[&NfA-O!J"|UY+; <Ԟ2?.P2QhnDtw=y0)n*[ Y]~ ΁RzYi[AXm>m$Jin`hf$:Y< kx\M y~r0gZb %f%;kցƹ GTN}fRz낇O lӼ2_񑆺͟Q)@dSX%Pd@eYہ~9+2ցwA-"͡nLZ Œh큡AIfW#^g0w4=l]I"m^8&1y)"nsmu4/2a %rOlܱG@ao <]0dQо(zOhY yx]?C~~N=9ď/wcg" IWgÒęAevsj18-셒kvpUXgt˗dW;3%_QqC6CW11 4/hVv;r ,IKSg K!ۢJV;q#رzlּ7ة'N5^΍ůc97SW.:daSs_)}`YY[쥅ί>jf7Ҏy08)!HT$ȐP}do4bO:)uB3.uvbf3$K5T/#щRnmbwƒ7V?--4ODN^et0.׺tm݉OFDT)G;,G`j:z:eȝ`͵a+1S:HˎlINaL0TV*̡Cmށ-LOVIGLw?qv'g;kSg $iy·: )HիVJH 3$)f(BWH0b,ҬW.*:QAG璻  a= @V8`}tjV>%s׽Z:AܝoEz75Z!WAZ˸f*M!g"rjGX5K m^" ~Yauʔ[Yl@5Pjث<&/+$òm %~KU C>w(GǹlZ`xBdn&fٺ-2qgVxc?Xi1mG'k^wehUÊҖ'sT'vZ=. Po:fmkQʫJx,lKl?{jm3 7 y<7&fBz}8mDkX_2.7ŲSY[(IBjL$Y~J*B٘ 2?_fC0_ܤ!Ic=Ǜp CmN@aOkE:I`c]|D7fb@ $M=kcY듒@xĵ;QqaP~ewj/W~lBjZН8JgzC(C*^{8oڛOjYt&7/"/s7qu4 (7R[9|Q !WYz(:Mhb"Ѽ v(ڕ<jzb[̼Y&uF;=yηb@P%Io|n_.OyR!ңw*ݭʨIasԃSUXxW(^f+S[WxzlhUrt\0πsݚ@0b߫ǩm8s٦,YS9O?XK9lbd[S?XmE{V7syW1\fQPFge%U@z[OSAIzkDi}Ev{4RvynJmU?/-Rmr;'+k.hHNگ e`Ek*0m}Վ*|O]yZ%F-!N 죥$D{I`w ͛l+Ho;J!U}A0BPpȉTuTT[0fT؛_A⹨[/f&'[ rxD[=dc"b~}X =v*.Cv/^|EZ d=ZY쒫gآ[KN:W ߳8Wy8D`4;4(g;mo*ȶy({Pl͟ /196/6hh\Z)<'u6"AQ@b&9͟Sެ,d:ѨkΒ<P Z=mzhn$)0X]Ljqa6$X'[9xxʰߟDZ|Y[4}Ct10LNgl/^r\c֗?7 AjnE~-Zu5BD Y9 28{&x1AoƝu2b3v?q ~6ϤNj0&O/qZ fH ]56BlPidD*{TI3"czej6fJ=C) h,|5*HL|V?DY#eQ0\B'^WI疓s5SJr#e=8 on:kp>*l .C:9"KwEԈW}Wq#4 Cv(7p]h| 4Bمg EQr.lu*1ozD?r۳(wqP z x!3Crct[-k"(ei$T} GZ‡PK ,& Si_i8˺S/<lܣ.E.,LF74$<`IA;0iڏ bB@[pj@2>K[p ̴LEK="𸉄0V5Yd[ǭ]nWB^hiΘDvz!B1gߚ߮y G:,XqG>+f}xA[2Q.;}oq2 SⳀmsQ¿w yՌ+&4LjI#wVT+2aK #]Đ'+C~cLyOe` |.)b+Tdt{͐ZQжTj&e< <$o4;笅^~+.q'#O,VZ?pUW ;5 }`7άM>dT n !1uˤ.{bBY-XfS9xQ_zk˥CFȄ1Cʵ: +bL%m90MBaIc|g}G:?י}`j. ٧fZ8/I R)̍dlv$c4Pc* PfQn[ =_'۔G@R.N"}r ܚwVl8h[ĐO&ڒJ@Z*A`]vGqߎ"o,`*G`L՜k}4xLPNB3i(r,z>v[7 q" ARI̊R-o.E;jwZ%P8Tju?;7L76E΅D  fr{2Sq؏Mj/oQ{ f](?YKiLDZL ^ؤG⨔r7iIgQ6ӭUlQie[a lvEΊcpӸ\A[F(7~ݭշ+%/ |mXƭDK+5*X ~!?GM:h 2 x^]*7zKʛTzxc[)Yml-"z7j\QbPE%mRtNdo7hys~9J44FCOѧψ.#?-֧t#&Twi#mь5#!عhL:R%,:::BkXᬝ O%_E ӥ!MdELD͗`6r[ͻ}D+p˒hC'!>a>r̥e.vZ/y eiJ]ntY>lx*}G!+yboN ?ŵ)Ϭ7Hʠ͖(:pK[T{htN꟠2 hL00: A7~q΄2P]ݓ[wb4cn`Ҁ]"w0dgzf[g=E/Mg#V?}di$CB^jrҟ_6;2nnԏ  v,M8co휰|/P¤܂:ʹ< ,m U4)0QhcuS]S|3UZpB T.r; s-a[\8Ar][ٰjo}!>`ǝ j#}-x`CSO^@nVy0\m#Ԭ$?lL-!4R˥:Ȳ]4,` >,Th>)JӤ%TN'R@7'UV闩E&  (۔ː Kz&IoheíJ|) zdRx*B@'_[@CJ[[R@8C]D%w,2{/d-يÇ`:ï>cqDXRk/T4YO phr!HDsgR&4N6!sl1+{ȮjQ]Ȼ9p'n4H#ݡ$Jo,@";|\5!\b'teh4 FJVc]/#BVAMC0#yYy;.`zKv/U .F۹qqx*n\&){DGMn?G7A^yw o,¢MW[B4< s'Ps&hHCuĪǓ)炇 y80/ [wL1pxӬqN#Vӏ ya@кPexDZkxFDr혼 R(̘ZqzR& e^@Y2$ڱ-ܢ=r h<¡CZGeX < dtiV<&gba`=D\ato\WW'fVeyX,17: %c(4`heOLEyɵ.k#{6=lX)]&ҡKr3BBӸFQ&Ԇ[* GqNryDyJ̯B8ж^tbt!@0³ٜca 6uǝzhy."Іpa0wCZ6-|t"4l^ R//=8Ť!\ WbNJ{sX|*тg~SGǚ2ة- /|eF3őT~`gji+Gcf]>i;dez=b-2KdS24j,9%7T;S[HP[Ë#*6 trZYC}$mNױ"3{O7NW;[s Y+2s5]l3wI.MCIsLR&IL/j861F7JCWo)]spȧ<= 4> ś O(ٺFA:6unFqH3:t=&۝JL]LGd|`uʲ#Hș4=a{6:0^_CaᲩR; sAz_b|PA T* p(G[o۹ 6ƽ?ϯ^VGA/" - [5iN|u>玠DGn~zE{G=fkuaGt/rnIZ+atsHsm?ߝz93km/98x 3LEDY/A6 h`ܓEN{ř,%(ŋ8N)o# /׊5:=*(@0w1Z#I)"ݥ{652eOTϠM?Nu\LlU/@yQHPmQxt&fS1K&?tO -@$l K 5ok҅sLjNlim,ކGCCDpʬ)1Y. W<̋txNArbGzm2'cA(}݁#-{9!zV= bj ;@+7 $>Fh1\>͵ԍy8bW_o\*ycrޭ|\$j#M liWcemtBIR+K-|Ti0`Ifo1z'<+}1!$!,%N&d6VM)z#*6`='zCeݕѧd+* n)7j[n_t0@f~K)f/ _E8$R=}~ruC=]$AR)j[Az'1lq\ûa \GM4H֡!H1DZ~4,dce=SGTU9WꞕE},¶gJd)_4#=Thp`\Lm׼OMh;<XCV)jF"R8e]/9:P<&],`[݊#N;!lJׅi$H +#d,a3a'WiuDM 5\'"l eCM>oxlb4ہzK6/UoIZDPh˃mXB6.ZjU({^Z5Cs]ooQ*lp]YQI׻I q9֧@;s<͘l0GUyK;eJrёell= Z ,?9ҒKJ;KIvZ9>QőM%>nb{}Q0QE&AM1\9yEc&,pdzHehl4Y1ʚ̙ofk8Р_t&Vւ.+rct5lwq<_OD푞U%~Lq^;I;uGD^PǍe4e5=QN2!NcAsٲ0ubgX?YNȕ|5au3̅so+)Qۅ򖋄\%|[f}Ӯl z>*Xr-H2:NӷxL{3t`8ɷ5/ 27q,WV7͢'kh:}Xq6{[82URSdJt0Uyh%cRV$ۇ>!ĿSnȋ[sSű㐘fIo2_}UNNE;D- ?J@vWAQ'x)E]y\޳1',xVC-^3o2pX1O' uSkW$&=6/cƣT4;컒N\rF4C\\I0aWp?&*ZD-ibJБ7X Ү1:daj]?N2n=z#l5X*}N&E= ㎷h?c&#W#95GF7?)xsleѱre];(@Gb&x>]ԥug*09j䥫! xVkX3b<֥//ݛyVD84q>%&S.,:TC;'2s)ҕ 뢬?ѓ@D[i' Ecbf%~Sv4>^}L`t?=ƈ'n (8jҪM@h/$j^LKGXexõ)Ifx"q[`˚j?eR#D4k֭v+Jz.͏\Y:hv.ԁEb6.S$&t(-f2R3 d7]dzؙe[Foԣ=qKOKcW#6/`F-:9C+c˚IŰ lǀd+`2{2ed1Elc)GN.e]MTʹnD,~-֗3!x,05f幺`?vZg N%MF~u8\zŒ9T``8i qDR٦cYSD"es0w YU}[h8T́$'f0e+lYK&O?nlE q-G2weBNDT4w&{kE$Xخ8#|'DfWxL/L~B!MBU\)T2C2c5I,q|j20bVlZ-IB>H$ H3W&TW W>:6!0ǟp@ & =a83RjHd{9xK5o  0L^*Y& "-`xr*,IDZ)wr!Bڎ$IC%%w\a!%Y"~)/R Q(UHÍ(N}m/5' \SFoK,739)63~ ZT)ȫ&[-cx>O6ʭmd$ IOE%IK@OƩ EPr^Uš_˱r[xeCQ m Z9+w**!^qʯZLƳ9YR/s5im _K~3=EeMTȣ|>皷|>:2L s8tJ {܈)2ŔVYI`'ڳU!NI.6]'Gl"<5rC>0<M8UqpBmޫ\n1R氻wzьɂ1h~ qSLbjlހmL|v9v&D$(/<]G7yp <#(sO",n#m'œ+zŇcxV}zK#%ގ(7Aڮt Xr1p'҆;dx^VN0[ 8Ujfwi>-IcEt'@<CMsqRe'0̖gY 6tHёѥu>ɆI)Y-Hu-(s<[*9GsbOR|~r;vSq7/ްz,stOnӮTzPNg5޸`bjцsi%)%wЇ},bgMMn}ON˳_@J9sQӅhpJמ:ePoMM21fiPņ_#ٓ~+Os1;oq8 xsܚWDk#:ܱ=;zAٿs0q=Hg XWMk2E*]z=]ďgr΃\HTBr9"㜡-z꡸O}: 3gԫ~JHC\8;܊WO~/rg.bKb)wM!'{D? Njd,C ypsvH-cAc& ^1[r}*8f|ge-6Tu1vJQRwlSY֖^cLqJHTW&zmHh! ̖}ZWt }/fcS1ny 7nSkH/ l8hZ'}_~ g _.GK<-'%HA )9eh`hı]e LTKjobAV3W1/a+ncm,A?Ef-}(YdIkfA '9_~[H 2ϔ|,g޿0aonL, 5n3;}UNђ3k=\1TtKncA&^_w1[vhdrN!Te簫y]P8;=c`Ţ?&N+}yyLO9up3w3"SY}"f5W'fȞ凌yZ(EiL8V'[} Qv+~KvRlMz3]o!L9BW8~\ 塪TDxt=dȽ|4HOi9"KB,?ꬼV$Kl%+9N͒27b媐\VP:=Z*eձR>CJg[= \U7[,7a:9,Vl/.ljolH08b/:*C@QF SO}F[8?.2k\L#Ѫ2y?4_ QJUNB0d{x۴Ԓ6TOBE4l#4Tv5~pQpuX()7K.dRp{@0ڕNIt + {`oÐ389EQX$U5N:8ొK]5Mќ;IUYjəȽ EA/9ag!séHh#,)9'n">\u06(ΟQO2{ax \e1`K!s ̩`):;vq ?ApURKs lF8,ik?42Ri9?*b !ft~7L1WsoWcI0??j[(aa:r:/ս-g5XTwU讒{-~Y' *aAk31`ѝo2a_*`#0ǞKMw uᠳsA}4_7; .,W\i" ]#q~^Eu_x@ͬ3 |-t iĬSxC}ѤmEbJŵq|(iEe"G c4`B{-I;ߩ+,,uJw|+ۮtS]I Bvǿˎ{#X/#Ԥ_TGJ߄W˥l1mqʳO:5t>&z׷U,49gARˢfJ;"id8nZʒe\ƧQX ]@&^." F,J.$!9H#7Ɔgݥu^n_&;@{{#^-v Pg9RiMkDRn$`dK<`О_w] r61c8Lln6ĨlX/bGb$Zofql":b(]?Q>WtwNT@MQDҼq` zz_銜?c /mt2OсoCV}ҒH% HMڰ*uv4;$-83o[_q]\|XFQRf-L*i/~}#ՊM\K^M'0[?x9nsȯ 4,Ai@R<2f/hN8Vb x az"OuCP^E X<PE˙ޛ4 d*bT2vYsX0(^hIavu]10_\ $3~[f*l'ËCTNtj S)l"o5Hc[$=K{ɾ.zc>HꦁxϠ:55 c}E!^^OQe!׼bҾJdqeF2Q#$x- l1StVr"h5[J<ئgzܣIali0V񛬤ciάNJwfNS*ݬHrVf-`)-\ 0>[{$D8:4 ~R!dL$ w,OrsOz92\C/ n:>y0/5WPb{:n-ۼ1zṪQ Vp ݞ6 ^6 ۔sp]!YDzw}\ ȏw},W=MLx ɑڧ+6h 49/QDIJr9굱Lj2Ff vNGA)x=nNØA&Ԃ4{9`܈jƩIf]&UpshUXwDwqˍrk2[r'=Od]\ie*`> "d¶hn-Z[F}KCs6LN,1JskgU[SxzK E~Xl-3$UwDQϛ_nSS=Pԃ{'K1}ƪđe\pl.[|@5pAmФ-| 6s4+h_} ]%f+'+޼2aM0կDl5"p;q/ur~[k$rֶ֣ZJX3*f5 Ӣ]؊Rgpj!pD&8~2&x߱l,8G$_މ tGk^WJ_ u,҉ko<|^=N_~6q;r>ū{9qYˆ뮼iPMPqv9NZTo}k5"sp{<;e.7k;C ~ъZ>H)a(i~S9ǁG+i#'|Bj[^M3*kհ" cm3P&Yƾi[>NҺ|sY@(\21tErY+M$ ˽oh”˭_,@8dLMKq\a]QsNK`f))EKS:E {id$AI2Mv 3YרZ=ǘ'k&.V?hV".L VAA&<7K$5 2% VBKˊpyPCXӴ( "8,Lem.0N?IP88ӹ1az֦H#KJma~wvP {ZZWx쬚SS,޳D6MawC) <&r}ATy\qe1k:(VsEjm}9PmɧÚeu"$r⋲()FvI`JN7߳Ym0X˜K̀K>f[ .,cpxO-3KeB<,Qze]}jGeSY)8S5QygN}~ 8XoY8WpϹ{NlU>Xrg X 8XZ>相0"o) ?s&ڐgN{ӝ&Q>ϓDHiQfd6>Ry/m`;yf!~ }`]i88ϒ?8Iᕞܧ L:5#ȔUǩOƪEpZ[XS{+QquV@&d]]dN[l cȃD/Ï3ڐӃV``֩e-\ i=s:i()+@kxx#N\l8cLM#sX 𬲟H$|T'WQn,6[7k /IVWw=Ht'&GaNJK⅂%&mrkeP,>'} 5.sda;>^d"OM4·%3nUޯ6uY7\T݈!'=Ið2&" ) 5838G3Y6$y^ëI lh nNo Sz?7C4V5HãySx<0}LgIxgk T*vN7 /˯jw?4$/!]:=y{L2}PMG/FLƷp 0W>C:LGuA<֌= w.К*O,Lt] h)u"3`MjY0H Ռ<6faOLM(([=gПP^- {>^7Wǚҥ+E\HؿXx)/RR 1;*!%)bnB7Q0)Ie&GI~ͺ>L= _8@oa ywzdbh.I_ߛ?}"83ƭ /ƳstBsBK}`}db®A;6ƅSe_9J=j%mދ >4| ',6A :av;!}2 aIg7WWO_|+Ι^\\_7E(2pn֍!{3r#d PNgA`xi $e߸S'pɻҽ:}<d:,ȳVgë֌9qT}kuk"RyOsZ^]U/*BoΟfI | @LrF[ίVݙ3QR8VUDrda?k^y$d0Ҳ@2kԠNę6™ŏ lN 8ׄgϗ&%͑SKFOؐ\,O#:.ʍg 8c>з!|5ēc؀x%43X\Z%ct% olW6H}t6';uSWŵ 7'rAֲ,d [ۙ7l^mBj_7as|De eS1.rؤ v5#q&Xh1's=ry7 Ǐ"vSY&{=QjEpcl'X]}њ(÷hNw ]m-f)n[Tk YSoVD'q]9NV{_Nش6h jzXWU ?|Ќ V"JluU\{`3;lR/ӊW ت^\í峡#CB ÕK𳷪eds1w.xa=]C2S# i0-LICʼtY+;2Y1^Wtō{ >{P KIwJӀ?p?]&8Z"0g6Gn*fbϓ--%>e]돻`r(p\Qk&6jdwDӎK dחSb7ӼZ ARd'1>bMODPѩ؆q@Rf6"k_*\b^)o 곓 |FF@\:1#.>RAJ \YkG.u^-R@*0 wތAdcVT%W5"eI)N7# 9;\~4z1.̬ y'ڢ &˱l>WuЄq%#"~-Q4*F:Me-fn<, un<޴!Q-ps$ 8ZA7bX;{@Sa)hFa^ ňxʳTtB.0<)0w H\gAq9!H)*T+Chi,e] XY"Rÿ  }Ar5vnBTQGLRfٳU&YMV$\~]Ј^4MXxV[\), ~ͣ:f?0;=-nFU;i!Ǟ|3!B[N G/Pt^FĖ 8/M+qq&8p{UoolkD&D-wH'z5cBHt&r5=&]o[RpZt6PO2qg+M.VHn-ؼr+B ;dtJ48tć f%ӆ,|qW&ux1^$%v!`6 Ӊ+QNKrv\zN'f(Oͧay58F d]qJ(U(ϊDH̘NJބ~ca(x)x8J4lt94g6v ?eloU5;JIR \l;%H~oղҋ)5%}!D#tD/%&':MJT|,~A,İ0L.`7Q͉)Y >CʗT?E b17Ȧ<wwZ<2aXC]1̇wt23&ٝ^ǐ) " t&k7ޢ<ԇ;1Ѷ@bqU*G@Ch,pZF3_O-M]esrV굛vEbU<%NNa+ )CHXK=Yε.&|><Z#axO3)ygG4p٧|/X¥%@]nv i]` Ә"g-L0.W6S۪„>9>%)F+"F}ʄ[Iu1wM_Ys z&T<&AXc+&Z 8yRQxA<b։r(uO_:bf)al̪QW?')^I ƥׯi `<{aͮ;Џ1otϹq l+{WyDHN>N4Rhqepm.V i=r!Re}lA>@🹹Tq*C wQPh\|̕c%ߌx1Cw`>kD{7nJYu9DU@RFx_)KYǏo#"%}*_}aSBM=(sRy)9;^ FQGMΝSjj yRd,wsKHJb}JEHG}=c {;9 Պ8y=ƅJP'y=&~v*Qn< `y%{Rp}LƄƜw+lQ#b0F&(?&=E LM Q~Xb u2p$s3* P Z ȿy *O6tmل(Y{Ӷ鷔Xj vv$)?36vDk: PsVHiԳC̱!DYg+kkCeu/ x*{PI^m*a$I3XS^p=ALl0Whd(q#%˓CrK "TRyNP8G.`E{BCp|'6gʘA}ΦCGLzϏbҙ;4J~抚ŵ r6l B5bCBo::`= _"}7UPCA;3V:5 oe" MȝLEr,9NW;,($)pxQ.ĺ4hM;03UVNά#uϨN[|.J#Խt^$mWj2&x@O7Tu%Ѻo["ہC?M(Od}B iꨝ>#(=H^B1g3^Jri].}iۍ#f5R[=:nN8n \S% Qa}q-<gBO4a2P=RXE8P{z+WS`CIZrS_>"6U`6٠ b)89۵* ގ(FB۝Q~EK|JRN[9(] )长:" ZahcX%l7Y. OsƊdQ>VI߀˵:α*!kԶh &T B/O)8H^;پn|ܯ#FIkoX;h!y$qN^'Xhnf`W!uiyZuC[Nz::9҇΂ÓQE= &'Y¤@'Zes0XmI|`Ub0 WM)TYS &qƯ#:]^ZZwk9*wqsΫ"bD'gZE.fzFbi_=;AEQ&oH 7V|J2~ЀM#$:ٝECj"th8wTA-r8.ʏ/ {0GqɊ;ĤO^]CXm,k&L+uƄܳg-5PV>i\lA?N&,U4w-v$3&hZ2-{Ll9k?w@+E!Mf. 1)2x.jyhgr Emchp~NTTЬ^%zH7x;f`CuClt'qg(/CPq= 4#1S1<`5Wna!(zIg]?lJB>J`1T6^o!{Nx;i׳G yuu'A$Zlsr@$ ^“7XD,n6ΤʹTwRCtvMm@Rsu8 <:٢, oVk{ƔU01U4ъ}&;>.i%mk eyjM goqpvҾMo$ =k<>p + 1%">JV.,R,WAR/^6q/@ aVަqqOs /z-s:z1>I,O:OW1g?xr HN(ОR++4]^mUj3JԂ +]M'XX+oRD6.@zuC>J3oԱάf;5Xʭ)~)ǩ&9uK DŽz km#/79!uAʢ9˛` uj#w.vƷL`|r *@ ڎ=y&V C]']?A|vW~F~# uyu2](q"]O. [φɻe9q~Z|i'vG3C;̠wR&TeZ<(l8!ˠLؠ~%} 2A$q QLh"50W.L*3Kʕ;6w>PV=㎵4ȚC gyg}Adhll7^O]`~|ǎ-}6ᵫdV5ZE%QYpGڃɀK1q˓gB=i7'dH=KY"Mjqhr̿3.I?gU8ު$\e3IbrHxH҄4T)JY'LS܍jSmvs~cmYwosm+ (7V?- SN[gC>S%9ɚcRP"?Bw51~'k sOD86%iC:3s$¾`@kܙ ?d3B [}JrSs Kc$~4jݝZr1@'nşu9[s*jic.ʢ'3s8zns?Iy 99;j~B0|N֛ 4bE26 lvV ADI.PȮm۠X! l4ͬO|}<Sw[rՖ4{,_$S~:6*Fߚioͣc& RK`zG.Y9̈ϔ:dbR/`וPvb! ]=Eq`o:} |QMד &&fBI$ TnHѱNyJC|%B57/ F3\S9x0\7I SK/F[=1%ZX?N{g<NuHzK ~OdY e<%Mۙ(׵% H@ CڷtN<-j@S?ɮ~-C~VKޞ}\t\@V8ʼnWE*խBh01&,5#L͹ Z'OQGj 2  B9X< SRU%BẄ́]'Z! p4+C,D&ǶxvWf?> "梹=Йz"!䂚d`Y6;ҙ7|6[Rsz3Ƅ3#T? L+w<ܱr(ͦurXz֗h"p9}sŐt9a_T!m_7J%aqbj9 gKt^2rJfyfa.:bU' 2lLm"SqEXr@胷Wo{P`=6;MӍ-y*T?Bg"hZO$dcޜK>mYU8[#c˙O}@1\*#2U(YvrUww9d&c1Gɂ0%$ KP($=.=KĖ\T>Ptp/yJy2Ѽ2@^' -Ugsl:<'O᧝L0rmJepuA͉øw/nP ~ob1T :9ֆ4W'3Y#.F?^w%WviRJ$m' xeD8N"U$OX`e HXaYL[ËBh8nqtE_/ Q$x_`H |IԵxFP'T|5$¸+ tyi ˙vC@ΕyRkm',㖛}5fx3!, u$\hr?EE"6蘄3>:|-~.=)d-kĤcNTs0u:vGh(֢*AS%d oll[f[5J'܎-[3quϛ&M؎a]roKn?p'dfT7fSSHX r \_GdoV 3O&ѥ2;"\瑛탮MzWl" Ylá%ڋ`J%)\!}/Tb-F> Z@8~eO/[QCmW,RS,$ZXʙ %@h:HAajQ5G^c,,~댈QR+;`5L")l6UͶ_C~"eHj>cޟͅ y .iseKWg#е׆՛0FI+]ۘ7(d<%Rv>-v._WI\nлI'@)ݤκ\\k0ֽMFW=}<:"^iæg7~} ǣuOőˀLNÓ,ܥy^OKkͳgP+)JۅZsvbā<_ZM>=̌ dz68<L2+o.mZ.CE>e e0Ca##oD oE()&]؝KEEk|Jy"Ì0d0b5@y/Ŏ+tG4K9`<4M՚5;`NzKjQ%r95c?^F[ww*URyz|ء9.c/^ bc&Mz|]| GHu1WX@]cHf9uf2œS{iQieTw-DV6Ua-5-(~p-]w JӼϾZPumݵ 0Uܵ]N &(l/⵾\67p 5 kJP-xC3G$-j:̞}Bp>evAaRASszgϒPI `` ?f/x2~{6!1odm4"bvBcQثäךD(#NdhIAf^|DN.,_G8kf5 j Ӑ㮟?V5%Oʔ`RA!(LXM3lX/[0pVu?=x m{d tEkAQ/@t&pC5"/ޏ7<;p.<3Os|'M2y<'i}'M\/aZS^ JJZIǕ g@dVx%j1˫3]-7Mq ?e-; ct B80T/ۇnz[f2Z)vI_#g/dQT\RޅBmoBթy\ל مy0Xc1YgE-`Urce5Tt^ !<$DՁJ^%Ng>#[ {& !,@[^oI K*-fè;UN<7J*V<ʒmxqI ףiE*BXL8´ hT=YhŦ, Ҋ8bTiՓpy#K NJkzag׆5޹K~dݑm=Ry)[$|؅4@fELƟB|*I_uEt7r%Htؒw@{-Y~XtQ$ݴ;8 `.<&be'#?~xC:s}e0(MHlI<6EoPߺ[5ƙQX \Q}޳+;я7 ~[$/PۤOEt/=42}h2?p2!3yV"m쨲? q.8$%>.-b7KҰEHh]foUX]>y*n A{8;KPA)ǩFACR*C~j`K}E\Rr)1kd7eyx&CUY\"abyM9# f  ->1Ij9minC6ĉ"AbQ3ssy(@MȣA2~vF/ AZKAA+j} n= @/8>"X9aO7w[N0i*Bĕ A \Ƹlf-i1go3<`&7ͭ J=(w~xf9C?I";|潓Ciǝ+$m~|긁F35qBd(hI6kv uV4nMzaCNs3QlF+ |ɜcž5ZQ:v,CWچKLA"5k` <%wYvFwv[q!">G?J`uct Mx Q.᭗V5AGz\抭%JO,xz%uv'&$ ġtc irD+OUF1ԾDZClf[9$ *n[~R#ΡEa2u Vf31b7?_7ojFeA6іUsmԯ()}/oG[4DTRmbrCRsYe.PoV LB_РA68Y|Dl /ި9n $q"hzc xDN?BX#>2{ @o4}U~vǷ'p9ZFLi@~(A(jkwsgSI#l[_u#<U> ?J=2bq^MlZ~~ -#ƷSal?*y*%ėƇ0eg҅w+p;Hv w2l,S`Zf*"嵋ABq1gF_\#O#y=*:{9b6?N%#sr7p ojf3 <=&gJF=P%L7wc9%ȳ1p^(3<GZ$iz֤6'(B<824փI14@9+_ lFn,TlLvQ1lGy#JPh%Zs?T;cdS戙T2HQ%r_e0Gq{ ږi˿E3KV@ג=c9 HlFJ֗@OɷvCQV4IU&STp ,!<|-J9ｵ"Z$gSNk0sF1˟?P.} .t_'oDWA'2R52ķm(?ęcV0D`RxNYۦOё\!<=SInܰ LJRAC!3[AUb \#ݸe.:8G8w mlPk,PsL}wux9Z3d[\AFOSPǘkKf@E7~EQL߼q?htu ܋ b\GHvk R,[X:L>A\0zᨊJv6ta|I+QS'U!B]aÀS3) 4t)E"ZQ Z;$`(zUfzuPjFXF\󻱽dw..vKWEAXz2N{2VE%UT\&D7+HMfh5)UéY7yB)۵\$+ZaL;3PМL bZQ|13Z?IZ*3RJ(ฒ.4_Z閧9s3#DƊjz<>%G=`,~3I4S 0k86~WQu KK3^SZ5)_3+]0]rV va:=vy1\r6s9 jjQ0d+[/kB6N&VwUN.kiu^ޱKB2ʒnqf)O%.J+fjL¼K B6c;] eڣX,[ĩƸv8 u6,qbRCI2A} QJ R+Nnn+v[qw,{%HﬔI(2Gek ).匃֥SDQ8AcX'J,@PdLlNE%T3;?f(ef|Y14ԆIp ȚIdpnrm]NŏRU5Uǜw  na`sdx]' ԡ;M@̆,E03KZLAP.cXB85vTFQa&՞P|~SU"͛x\Eteno_V]Av{075F 闠Mz>DeTE)le2U $=^6jR=C =p6k^{sّ@ݥ׎w8ՑVϿJ >`+U!\diNBPPVc,,Oznlyz BY?5Mxs̢:)M\n}4V7j09|Pa༄ZżGj" d(!~kU>u-+aX|VF7+^._k: RcOAˎv3_apf=mKsMVHvz\!EGͣQKIU%`?[]:{_g?58BE?:д%}mۋRQC?&yߎ#6M?Ǘ''4:SŽ ޢvQZہ*⻚K'؅Τć5pLIPD:6&|ͦ?J3QX.b&YBpʖ4Q.Ȧ9nBFK5T #e'v'QISYVUً1ou!MBw,v'-:Ea0%#eB\v 1 D!9?fl|A1 fWFtqʖHSdRMa9) c팪”l8Bןj2qP.I=8$~Xa@K(NÛv[6&@d8Sh9痞S}*m@'_ʸ@f ӰVzafh[y (7,430^xߚ.s|0RVއW@r<EU^ryxj` [@ft۱P/j*A2}ڃ&IPh՚YLi@2\NN*.;Qo9`hcTLS1 } nQ1y9lo4`RN\?p)nPYS]֐*? ?1ɢ4cL!@NVuIH+c4 > endobj 21 0 obj << /Length1 3664 /Length2 26236 /Length3 533 /Length 30433 >> stream %!PS-AdobeFont-1.1: CMMI8 1.100 %%CreationDate: 1996 Jul 23 07:53:54 % Copyright (C) 1997 American Mathematical Society. All Rights Reserved. 11 dict begin /FontInfo 7 dict dup begin /version (1.100) readonly def /Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def /FullName (CMMI8) readonly def /FamilyName (Computer Modern) readonly def /Weight (Medium) readonly def /ItalicAngle -14.04 def /isFixedPitch false def end readonly def /FontName /CMMI8 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def /Encoding 256 array 0 1 255 {1 index exch /.notdef put} for dup 161 /Gamma put dup 162 /Delta put dup 163 /Theta put dup 164 /Lambda put dup 165 /Xi put dup 166 /Pi put dup 167 /Sigma put dup 168 /Upsilon put dup 169 /Phi put dup 170 /Psi put dup 173 /Omega put dup 174 /alpha put dup 175 /beta put dup 176 /gamma put dup 177 /delta put dup 178 /epsilon1 put dup 179 /zeta put dup 180 /eta put dup 181 /theta put dup 182 /iota put dup 183 /kappa put dup 184 /lambda put dup 185 /mu put dup 186 /nu put dup 187 /xi put dup 188 /pi put dup 189 /rho put dup 190 /sigma put dup 191 /tau put dup 192 /upsilon put dup 193 /phi put dup 194 /chi put dup 195 /psi put dup 196 /tie put dup 0 /Gamma put dup 1 /Delta put dup 2 /Theta put dup 3 /Lambda put dup 4 /Xi put dup 5 /Pi put dup 6 /Sigma put dup 7 /Upsilon put dup 8 /Phi put dup 9 /Psi put dup 10 /Omega put dup 11 /alpha put dup 12 /beta put dup 13 /gamma put dup 14 /delta put dup 15 /epsilon1 put dup 16 /zeta put dup 17 /eta put dup 18 /theta put dup 19 /iota put dup 20 /kappa put dup 21 /lambda put dup 22 /mu put dup 23 /nu put dup 24 /xi put dup 25 /pi put dup 26 /rho put dup 27 /sigma put dup 28 /tau put dup 29 /upsilon put dup 30 /phi put dup 31 /chi put dup 32 /psi put dup 33 /omega put dup 34 /epsilon put dup 35 /theta1 put dup 36 /pi1 put dup 37 /rho1 put dup 38 /sigma1 put dup 39 /phi1 put dup 40 /arrowlefttophalf put dup 41 /arrowleftbothalf put dup 42 /arrowrighttophalf put dup 43 /arrowrightbothalf put dup 44 /arrowhookleft put dup 45 /arrowhookright put dup 46 /triangleright put dup 47 /triangleleft put dup 48 /zerooldstyle put dup 49 /oneoldstyle put dup 50 /twooldstyle put dup 51 /threeoldstyle put dup 52 /fouroldstyle put dup 53 /fiveoldstyle put dup 54 /sixoldstyle put dup 55 /sevenoldstyle put dup 56 /eightoldstyle put dup 57 /nineoldstyle put dup 58 /period put dup 59 /comma put dup 60 /less put dup 61 /slash put dup 62 /greater put dup 63 /star put dup 64 /partialdiff put dup 65 /A put dup 66 /B put dup 67 /C put dup 68 /D put dup 69 /E put dup 70 /F put dup 71 /G put dup 72 /H put dup 73 /I put dup 74 /J put dup 75 /K put dup 76 /L put dup 77 /M put dup 78 /N put dup 79 /O put dup 80 /P put dup 81 /Q put dup 82 /R put dup 83 /S put dup 84 /T put dup 85 /U put dup 86 /V put dup 87 /W put dup 88 /X put dup 89 /Y put dup 90 /Z put dup 91 /flat put dup 92 /natural put dup 93 /sharp put dup 94 /slurbelow put dup 95 /slurabove put dup 96 /lscript put dup 97 /a put dup 98 /b put dup 99 /c put dup 100 /d put dup 101 /e put dup 102 /f put dup 103 /g put dup 104 /h put dup 105 /i put dup 106 /j put dup 107 /k put dup 108 /l put dup 109 /m put dup 110 /n put dup 111 /o put dup 112 /p put dup 113 /q put dup 114 /r put dup 115 /s put dup 116 /t put dup 117 /u put dup 118 /v put dup 119 /w put dup 120 /x put dup 121 /y put dup 122 /z put dup 123 /dotlessi put dup 124 /dotlessj put dup 125 /weierstrass put dup 126 /vector put dup 127 /tie put dup 128 /psi put dup 160 /space put readonly def /FontBBox{-24 -250 1110 750}readonly def /UniqueID 5087383 def currentdict end currentfile eexec 4y9B0i H1r^ v.Hntµ'W"xp'DpԄ&,6 6WS:W0H:eTA7J.>Դ{8"ahγDn'$8NC z[wM 3FSj'SKx=xr!0u\/0:jm;FS'01NJ)m+yA%״~zlL/ڌ%FR$tY፟z^NWUmm:s&l!V~ZO};S)4ҭpkB3)S̬19"cHkh}(Jw䉅C&wV>GT|#İ V_]AFȸS#HTkYp_Km\ {ck3IUS V'z3",éuR`{W\T{bv59iq Y{F35͉FVA"Z:z:e>yö[eNJo&l:A8*1SuQO#vAL_qK׮k69k*[ۀǸOP*Ɍonͷu ݧRK|/I 'E#>AWZSI8 +[H~4aA1R#wjW+ơwX.rJ>:M7WXkH"q%=t>]HIZXqqp1Em@bT!a%.Piq~+xu6\ }5+0 Qjrq; `.;C) nVĻs-{qk*iˆ! Zí(M>Mwk͝=ʼB¥U~}1 =k3 LI*(BCn&C!V1Yf\k+; DA=f cn`Ri>L2?Oaj:x<'25Kt0wM{1tDK&EaEce_X>O%%\gKV^\UUm<i!A @/{1{f) WCkA4ꦆ߫KI (Y$2)PdA>F*9OUEfVF 0-<5qLN%T0ї\&tum)o= Xw$5X#-ܗ{=K LQk.h`-} zG?[Zjv?OY]$o>.әu?>< g,(b&ۜtu%6Bg w8/\>D0qP&s_T1솏 -ѣ Ťhԣޗp5DȸPwjtb5 6ON>uxu+sPHx{Jҹ0dÅ!߳ yΐ6&JU[C阦zҫ4M}>&S#&w4GP(Ah7\)LJIf!4h>+@y3ԞԱ S '.'1TkY#yF_/ pn8VqLXoݾٌl de%FF,޽Ptl|wƠO_@ CUK$RRZ _b IaauCB@tR KWX`S>%j`;CbEi0j{pZZ:l'_򅬃y QE>Ҡ}@Plt"^Y%ehM]6u ہPAaFY@\:N W6BS[Bgum9dJz>+?WvχXEbMcX`CCm pov76# qv ::huvDzYEjP5ΦǬ~^4 e_8VtG|s*B+}Ķm(ijr~s_c9HTz]7n,c7w)/Դ:U>ܡ\3XJ5؟MJ@Sz 6T\1첣BYڞi)>X `rJ^|,<q+}9dxL4V÷]yek -x䋑 _[|%&ZbIW={&F\*@GA] @w#/U2'inњj4H;m pE.7l-\Fg&LAc%+II^/'ާǣ{t6IT6}ؖjw,D*`Th| `᳎m83~9vK! qy`q8|X̑yrĴmuu\.#NwE( >F{$C TGFܔW pL-fw5*Ҹ05(f,#Y#pU>BVx%5p6wblB ؛v#a:P"f#@\cU__`E|HԦ$jQ&K`G<)*c'>g@j-~%uZ:]jyZtVؙ>s4"i cf䧉OBݐt4bIG潺n׹c.sQBB=f#7Wt̜wRsIhWBFs nJ.VW]m zL:9"Ju(YަQl\93SOf~eM;67^^f3)u? f]_rfA2J:+ |gF,  <-̢Gc'63zQ#R>Ч1jkĒG1&énLʛ:!1$NSSͷl\6͓j[bW?n~fXTPU&b{5X?%}ܣ#SJa'\a*Ŝ<4o=OdNgfb@+ٷMlck@F7.#WӘ]hd=]A$OkDtw&/P%$Uk#I[UQjmhS5+믛8 ~[ y4$[l'HJ@:B־ S9 ;Eh0yQk\.Ռt"G$(zl_m)+]t4)ᛕ"4 b|#gaF|~}lE}Xc;mR9އg?vl&v o:-ɡ~Ū`V_7H,NHKN7>_װB_GJ/0npc=Zt׬'ḙ;pZNJ>JOAB ]NI\C_&,?eB-Yzl1au6~dI%m6|̢3~l#JɩAKI)tEqj #kj0V.OH^_Jvc!sLcUOv,kgVbhJBpMXƻi#t@6S;ׇ-|l>r?GcSe0;󂗀a[gQ0ȵkVoG*>M]ފY1*!'.#I˄{=dԜPr+袔~*f UUYa&EGȳx~"N#B`,ߋ1ej!vS %“Br;u%PBsX&>28 A9U?pw,>Lvk]&Şy6dA' a1iZ:9>eqn2F^!u*2^hB4gvPexk:"')J:(z$҈ڴe>E-119FJ۫|«>ǠCwtiDTK +TK]K lxpI'^enY)ˣc]OR)fv{T%'Z@~ϟXEC. o#:rkAբ d1so3~(=OM2Y)"\&GYtﰖ[c-,v.ڌuRzo 뽍MUafoۿ5==@V?ݤsmrA>P ƒBPzY4am)_Hp jd!;\Y$tQ {t0Ht4*kZKqB\SP&f>.0>px[7J< A( ?y,1['fn~Q#LOb68 IF߈AШ'r 6 1l,tp159|\ur!8k[Hb9jkZS]QF%o,77\m랝efC%8T+ qR_=,.,;n/O EXk1O> >s;Xov A8pc񸭛CX5!z|kW{G{H,}E=sr 7mo8ͶB}N@ok(WAJy q6;ET~Rvz-Ro`jxxE9=VY.B#u13Ocx;W9]sg%7z:hТ"-=I<IQ͚]9c97tbcǮNMrmp.=qIR:([,FˮX%~E!(yBRӣHzLW7)X~}#Y֒E#״C@FLRbYKDd쪰Wq s BAg{ JZTY#44KYN'qXEXCD H *ʆ(CŘWPH>'u7G\OGqLޘG m'{n7zI&iAZ[^U$sߛ@=)-49fms7E97>r&Z|p+8Dݛo,s\?kQN%gmJAkR!}ą&cz?5EԒ{G ù(I󳉱Aw怖rh)G\d=̃#[W(O RIL}6y8,VZBDKQFR_>&l6 qC3=z"ļ!`<"o'?a)a`k r6ӠA弿qa%1*@ C6N`Q^UaH0ch5LþsvWEtmר&+wOKk8'l>$zal~Ԙ{`P#:e}9v,dV%IT]~ɻ tјrxQ;E:0@%8ܰN_$FƣK!ͣ6833\gaME:E0v4 ?Pv#}j+-,q]Pu Mj'x<>~ak'&ۘV@*\T[BICjm%B2Ayg*$1U鎅p;Q\jkki=j"< 䇌9 d)&ܺ" [sjr`١㩇wVKrCqq^jf}%ؽ^.2{D2N ,uSX''ӎQʚV[5_F:e-wDҶYPjގUqtMd٘n=Ǫйp5\yu7 yO*֎gmqXj~mLB5&`YޞlAϥĠa7At3ϑ*5|NK4 E>K QG/ЄN!꫐،_LH!=s=Bru[qEP-,Aܥq zLM/@ JW˙ɕ9􇭥xiSz`~Xݷwkv4-qƍ TJUjl:HO펨W=A,?`'58@kr8gVRXjts |R9W2>NgW=2Ol1̛AMP~38g]{IL~,i[L8Q r عQ[K.?5 gj^76-58yj7u$"2;–b"]Wֻ*'+WA +5\ȇɚRdZ>#u3@NV?}wwzؾ7njzx|I&3붚?} TI vG7 H]c ~YH_MG>$ N Wb .P53J^ ]Q>g} -tƱQ$tdK7^L+ *!_DGo%5|1d3wrw\Ni% k)UNYG3/0|&@Hoˍv'WϺ)9C{fò_< 9fp`k  xex1:bUZSy:rqg=3%TCJh ֩KB9] e#^uܱHP0 H,zJ:+j7p_^ OJ&YIyLU>^U,-~j9%l:o͞^MGhpWbfw)d]6qF"kQCBn4:_6wl>z&A 9@t65O QbY1R1Q>aE,0w'"dȢ˓EOd?~o9l̞x Juv_70_~|'QJq$Y~Sҿ `;}+kL{g G(\ :5rC+CGkID,TeyW4>Uh2}_3cC tIzH?FHf%?b:M9k,fM6TK`@R3WXhM݄Op&*!0×WzP^ 9WŴ#}7wS5et|kntmM|7,-˾mgnv$F-Db}5zma²`!>U {O@YW'(avE\ -ك&#PFrg `9= rsw3 %d# HsOE@"?mE.QE`f&pc=gέ(Dz;(#Jkd,64;CZ>!Z} (SWdC("%B\MIۆ:)4^,&%Q/YBB >UN;N^ĥ<1ַ'2-x F;抦Or[Ȼ?%{z&>z!z.ZD7{|y ,֔8vVUGAX'vx=ZL}Z8#Sg^{|@)syK泥+s8:O@!wOFz$_04ŊcyñoiW4>{c#HLlu7 lR5(y}(Ĵ{\r*$KHNcuՌDbmq#b֠԰ء,BB>+} IU@Z[- amo]_!=)™'4@!8IG{!HA^PZ7 kCц>1(x ^ܐ{I\ .UXCJS6- c7(L`6)gJ[s6"|S4[PI&bDuR{ȥ_8^!+aPz+ !e x f^7XPKq_lx )BRW~-XPb|sؒRISu..w9Q>^_ݧp^oA8u Ѓ.'J.!<,~\b)n @҃FZ/q4w+Q7l9.h G]>wِ\9oLSRjO6$sg ˭;rQ yL H9]BREoYŲً:W Z~brwQ[;9TXseF+7X7+#Dxbo #L< Pdf.Ci0 /lPl.E-J6,rp\e4XNy:wԠV 4Ȓi 8͋0̓̓QMe֓TJV b̘7QK!$e_ )rECIpfH HmRHLbr10fKITd(rO [I\e VJ--(ǀFMҋ,Ա֞vWGXJh::eY_jW֟MjDPbq6BZ E*ctZˢǃ"H}ڀ^.S}tT`,M^־(bbhC L=~'ȬX&HlLWG;xSf@Yk굃15JN?.!鲟-9VVڗLB!ŠL ڰ!y%% DV=ʯ8UkxJhY"v ϶ _x]ݹ꼐1i`~B w(v\\XEKŰ ;&^r^L?p:Sȡ'rc nݢaV =]c)FyIg> &,@yB$NR\#5r.x?m}MEKp`ܟq~͸qMp1ss`wuK/AqO,/3 ӏ3ĉA [Vy-{}͇Z_%yh Ŷ BzEE0CWrdoZsئkc &`'omF eBc/0o1S+@Y*q.t9N;B>O+ omvR_3^zڢ oXvNqS}m[Dޅ$Ʉf. ȌӢh(YQn7)XH8{DDMB)Ҷ%hqn88n9ҩBNΛhiP4:bQ#mD n}ĤlѺUq]&+r-l4h<Z\<\I])Ӭ@RPQ>v2A?ogmҏSa9:Q&C1':1 ~V)3ol9dZ7UZ¾oQQ;$*$7/ M9 ̡v?c 8`a X8zۉ^W|߮Uh++h} U&J޸%>AmR.L kImAV5-xS/Ķb&tKS؞:q$W cYCߑXAɘ]#J,>d'8IL N7l;KNԕ<9Ƕ_7R ǣ q Hw^_8z3,RI+DU#HqZ'D$!_!>eOI"x|4z Q7rT%r4j/dFs4 @_-gF϶ÑO" {,lIfqp&d߲/ӗ6 z1}WzAc*S?$W,7@e n\l Op˔ zuu*c{<6 ]v3XY>؄& _Id W}tj#v}KjrzSdDhW1>ny4ejfHX7{ >H&bl"OK?ͭK!D>4޺nFcz񀒘~i pdF# B܀jAj1)$!un_x8VKoP:an=44tCf|jM/Kgf U!3b~wT(i} V*we*\uI0Lb5D,r9IUJW? U\LB҃ɜ "4g UUJ rUvCXc 5^ aAY{rNGcHtN&qX }ݿ7r--24ª>Su( W\zd7STVq}y m6un@HO2KI,DhIdE <)L%)ʵNcxv .XX*=;%8 T)6'ScZ(8M"BZ=>A*tW. y4OlEDe0Swht6s+nw,]Ϊ->5UrF8?^o,IzEܠ\1lsW3 *oN *' t-oޭAk-A8ҫTW{ѥHR?/,F&}J!P1sDn$NIF#FK^ a0re!7)? Nt20bJ0?* X0ǫv>µ1DwCPDGbqb ï;//hʐiXU91]^-j)1% rSVՐnEL]j:!y(M (Fmdp"Tlzd{ XvcE $CabnoXVKG@-i|˼e,%n.%d HDۅ%,EcD:`5M!,1lK:b֧<i*d&I( ?2 Ab9ܮ/TvSPzm}}$dj~L. ,f8( mu"OJIUΒJMf0la$dOOᕙa7va(VAS)Vf;+Ʈc ÷~nt/'kBW -Ve&ozE,k!m{.Jw JQ@Pd֬{y" HLAA"k_J|ݩK& MCr=f3Ђ~x}&,Ӧ#gĔS'vɦ.PANE}0J1B44d {WH,O AdfnwPO Yf8j InNh`-Tdꁰ\-J'E [6ud~f /J$O^$;^0[]b6Yzݡ3vY_tןtb{ k|Ol]b'M$lYI@Fj}Tmn Ǖ̀,F(tDssƜnWSքbpx[;AR W9dCF(a )Z!eąA%[nR?J^I/3[X/߼km*ӆ ՄzqZimL:g<߰hu;uZB] ^+ c'W]fIkg`%S}N B8!SC#m$'|ZnO2 +RA4Ezjn޶hdx+8=fC:Z} yFT< ?'j:(׻7(Pd{d ,Z vIGq׸D]`K?xV&Mz0LJc*qIV)9kȈ\)}+pI}K-7qE3y^gg)2'r=r%>j3ё/8X"oq @6}' 8D  fRo 0)Hߖ2GS О[ŽoOXw6R - %?Hw)̑ ;#UoVГ.P yV3c4 Ӄ:᤟|4qh^F. .7}+IrL*aE$fr:4֒/|`Ils\zӲڢ ]#nɴ "켰"M@/b2RD$m*aOPaX⺟MX+5]* a܀4VM5;$@2%;^gE0vB f3/6i*+xy|T;p46ar$etT8- BYD`9]'Tso$yP08ӧ"V"5#V0̨&J;`>*4qM~C.qmPٜS<pUtijbdRpZչC6D>7?kl"wG8ē ̾"qVo26`]ZN2#Sk iHAQu˷p~D ۉgr\?5]W)T:S*Esw3T9qvX' k=Qd6#r@h!UϵZC1s krʞzF0_UF'oVuC^zžy8ҮɊ]0FFs;^ml꡷Ցd%v] p )戦+,u?HzU9e8OFdѢHL jY/w~XkozD P NlE֦9BT.G앉,\R& ݑqF$0` 9S$#KV&Jr׷ݹکmS/O3%VL^度&C_̠4vx†|mP@FG$qNF%@U; NXHun;֫F+&L"͊ya?2yAؑGYL6rrp4 Jlw&8|92&h@[> bC `{Q޾zџK8h:YIpZ\]:Zd MW$=q2zTrz5q6Ƨ]Nu-ө*ZV=TI&uk"pE!g^!ω@ &"ձjF`̂M>1[EzA#x{+sd;V Mֱٝ`ccF[=S((rt8<;6J}O|+Y]ܹ^ksECcKcnwIQtHCToB7ƛPrgw|t&ᢐ] 3 r$?g*s%, dFY J xZ 3SQ{.Qf{IC5n@t|nR3L8z^Lvh)6YAu)#P*\Buh($PH [p`Ӵ"coD5·mS@2-yL.793ݞ6kDym% Yxyq;[5[ ʁ |BZcgobo;{T8,)}| _ےj$\J$2bW?= cboy)χ@غIN/W^HVbp9P cӈw!e0G7E9UbZ$g\:و \% )EC!f ";/9ؙ;$IR#2Hbz#~C0D6-D8OmT(]iфEȧ ,\+Pr䪐yno7[:TxEK@X;'Ö?Cuq'T?܍z%\ 5ŕmW 'Lٮòؤ+3n$v5#Ld*d݆JU7D^#]AZqr{U񨤨j , ՜Vzv)v_tcƓypޞanzj-v绪F[K_\?iT`WaMK~P2yȫ8fkP041ޖDb\:4]TH^&kS^2EdZMYȠ>gϑ][#V.]j #, D;;MtÑ~CRԙmH"Ǩn'wn/grpnʘa'5fq*VR1(|vɷ]/+EcBK0_kkخ;x1̍A;͂l?M;IbZE8^'57:yyY `5f(3Ǭrtgj hD .2b^ HhE&HgnG+hӧȬ${i8-,?ܟg\E{TCL1 u廈F緘BJ :-@8!r7q)#C,c4OfRFlIiUasK1!aЖNn>On~vwʋUL9)lȕY>f`QG|*jU:azǷ)Y%b5t /wY_n%bmG>t3(ںEG~ۖd1CٛBsY;'45mp_VOP#%#p<%KFɑά]5;2NyFyLF|^ys9?qiz3KkiIk']_fq a ILOAb+q}Twd@c1mvAgbtm Qƈe/=U{ob2/{M*vg%~X6" W mQrgk ~c0M13R c_`}M:*<_@5)mFzg.ļ(_?Jn"N ǔ[YUtM#`[W|kiN?T[nZTkT/U4L6( -.L5$EU,#g7B1ۑ ‚Uo~E2?ݿ F% ?;_"EReqH2}C>'`rkj$ߣ\?ƭuV_yh3Y,)Vm ?mL ҍ1yya4}ɤǮ_Cz)K ;DžCO,c0ѧpPq]tY1KWړ`='gceUM%x/قyayhMP+림lrұb6 ~eqnk0[J;Q@J~i qBkӵs+{Ҡ+^pL;Efc_7˧\ʩ w.߇!FVC CAcg#;Z%{%:q{%ޮ^3^y`1Re2Kܴ;̋I:aUwH&A{4kNONSW)J $H-yR~T Yj5!^K6q:z!WQ@q#5Ҳܐ -F]@r .42HZߺBSe{ї8Sq9ԘH]ݎ0$@QR S45RS5͟C#rdFv`c)lEӄn`{Эq1M+5?̌ K];nA y*I;5;4o\j1Y 'b&rl+Z.#U%:kz )+<+l{Jx,d0*a?GxDH fA&|^eK^Tt+Œ?ys`4JK f-k<* rJ?/(`]!Wf?RIwPp[ 5Tׂaؚnި8,. `8g 51X>)01֭(Fhͼ#g1#d|Xcޭ~pRwc:!( :W"4,CH8)< M5 BL(G?[^hS@Ҕv Eo( "@J5!AfĂP1X 4ua"\Rvz+m8tN+S狨fGUڒ%O֦_x3 žOܥ|xgײvcMDA$stͧ6*@)BVʆ.$'8cGB"X (<}*GG` Pu-ڧTQ*ES PؤW6Jܟ b3IZwb>t,j *\*k:Zocr0~u'#kڲ ? pa#dCaEA{sȄޕcbT%Wwo6}$hWپfp"%]ŗjGv!J6Noz_)Om4(NUa$evEWGHX?*a7u`h00V~D3A["(_~$3;m (D@NFTlY;bYu;b)\94w܈G%Ϡy1;(pbAG88*4[yH.iX> %S4`4Kr~ ~"͌[$V:c[%~mtLbf$WM} SśDjFTGG% WN"C:! m9.Trr]jJ:ef29](P{9^oQ!M6j'R˻O8:_H E&n,`҄I lNVqBg[-hNלw94ڎN#?]Ԓ1Hb3#qkU]?Q׫NY= dKHʢ>yB!5j4HvBh!sR"n`*%n`i/~^KAWx _vY_T@1t[ ǜh$x\LyY%V?joK Ұu}"0r9;5}/t^#YI$/}?h`Мeˏw;[9EQeO}s6z `dty{figgC{M*AzK ㈺!-;o #_nH/0u= USs/xnzś7&{GM HϐAv$95':;B5j6_;)paYC ~$C LDѥ7}AHa剙h/J~h=1|8ʸ4gO@k9;~X @l07LͻTmVX %{( -c30qkևX qب= 4Tj͘ˑ1o)THAgM'=809>3d2{-jG2",sDK3І@/(ƍ"p*HV[S-r /{r_?(8&=s#7 nt:w5=+|ՇYחY ALx45TԸ u6^Ue1|j C~؈Agm) )U<96S bs AdC} {Hig{h|ZjDj=U3)@Ѧm!jdzOf[Y31tkƋr|ERjv`@j=o9)Pc,}k1q]/HOq-}20> endobj 25 0 obj << /Length1 3603 /Length2 20976 /Length3 533 /Length 25112 >> stream %!PS-AdobeFont-1.1: CMR8 1.0 %%CreationDate: 1991 Aug 20 16:39:40 % Copyright (C) 1997 American Mathematical Society. All Rights Reserved. 11 dict begin /FontInfo 7 dict dup begin /version (1.0) readonly def /Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def /FullName (CMR8) readonly def /FamilyName (Computer Modern) readonly def /Weight (Medium) readonly def /ItalicAngle 0 def /isFixedPitch false def end readonly def /FontName /CMR8 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def /Encoding 256 array 0 1 255 {1 index exch /.notdef put} for dup 161 /Gamma put dup 162 /Delta put dup 163 /Theta put dup 164 /Lambda put dup 165 /Xi put dup 166 /Pi put dup 167 /Sigma put dup 168 /Upsilon put dup 169 /Phi put dup 170 /Psi put dup 173 /Omega put dup 174 /ff put dup 175 /fi put dup 176 /fl put dup 177 /ffi put dup 178 /ffl put dup 179 /dotlessi put dup 180 /dotlessj put dup 181 /grave put dup 182 /acute put dup 183 /caron put dup 184 /breve put dup 185 /macron put dup 186 /ring put dup 187 /cedilla put dup 188 /germandbls put dup 189 /ae put dup 190 /oe put dup 191 /oslash put dup 192 /AE put dup 193 /OE put dup 194 /Oslash put dup 195 /suppress put dup 196 /dieresis put dup 0 /Gamma put dup 1 /Delta put dup 2 /Theta put dup 3 /Lambda put dup 4 /Xi put dup 5 /Pi put dup 6 /Sigma put dup 7 /Upsilon put dup 8 /Phi put dup 9 /Psi put dup 10 /Omega put dup 11 /ff put dup 12 /fi put dup 13 /fl put dup 14 /ffi put dup 15 /ffl put dup 16 /dotlessi put dup 17 /dotlessj put dup 18 /grave put dup 19 /acute put dup 20 /caron put dup 21 /breve put dup 22 /macron put dup 23 /ring put dup 24 /cedilla put dup 25 /germandbls put dup 26 /ae put dup 27 /oe put dup 28 /oslash put dup 29 /AE put dup 30 /OE put dup 31 /Oslash put dup 32 /suppress put dup 33 /exclam put dup 34 /quotedblright put dup 35 /numbersign put dup 36 /dollar put dup 37 /percent put dup 38 /ampersand put dup 39 /quoteright put dup 40 /parenleft put dup 41 /parenright put dup 42 /asterisk put dup 43 /plus put dup 44 /comma put dup 45 /hyphen put dup 46 /period put dup 47 /slash put dup 48 /zero put dup 49 /one put dup 50 /two put dup 51 /three put dup 52 /four put dup 53 /five put dup 54 /six put dup 55 /seven put dup 56 /eight put dup 57 /nine put dup 58 /colon put dup 59 /semicolon put dup 60 /exclamdown put dup 61 /equal put dup 62 /questiondown put dup 63 /question put dup 64 /at put dup 65 /A put dup 66 /B put dup 67 /C put dup 68 /D put dup 69 /E put dup 70 /F put dup 71 /G put dup 72 /H put dup 73 /I put dup 74 /J put dup 75 /K put dup 76 /L put dup 77 /M put dup 78 /N put dup 79 /O put dup 80 /P put dup 81 /Q put dup 82 /R put dup 83 /S put dup 84 /T put dup 85 /U put dup 86 /V put dup 87 /W put dup 88 /X put dup 89 /Y put dup 90 /Z put dup 91 /bracketleft put dup 92 /quotedblleft put dup 93 /bracketright put dup 94 /circumflex put dup 95 /dotaccent put dup 96 /quoteleft put dup 97 /a put dup 98 /b put dup 99 /c put dup 100 /d put dup 101 /e put dup 102 /f put dup 103 /g put dup 104 /h put dup 105 /i put dup 106 /j put dup 107 /k put dup 108 /l put dup 109 /m put dup 110 /n put dup 111 /o put dup 112 /p put dup 113 /q put dup 114 /r put dup 115 /s put dup 116 /t put dup 117 /u put dup 118 /v put dup 119 /w put dup 120 /x put dup 121 /y put dup 122 /z put dup 123 /endash put dup 124 /emdash put dup 125 /hungarumlaut put dup 126 /tilde put dup 127 /dieresis put dup 128 /suppress put dup 160 /space put readonly def /FontBBox{-36 -250 1070 750}readonly def /UniqueID 5000791 def currentdict end currentfile eexec i_,+`"WP 5 l.jkP P(?~M;^yy*f˼[:-Z/e_[+5{^dtp!~dZ+س:cEwK+_nCdZy2}m3U@-UӴHhX.⤠HH<;]|& :|p[C#\zC)k;rc‘nZ E~ N K EAE6z\$Vӹ _t #mȚVxb6@mNl4qXZ;w)Ee&}9Nqqu-:^g9 MtC]ٖ#塌 #v:ˆ8NHI^R9kGfUna2WC$K28(b;Gj24츠*??3w@f$bXXOŻlk:7& -%S\aGT9[]x]Als .#! $2Ê]G;bBI_J>0f- LҐ-sld|i?%(Ө`" #-Iژ/h[(`Rg7B K|H%ƖR OšD.c3U C<#HGrѱti>6,sr0+P`أs OEwtPjȁc,șKd)#,fgWTYc:&H5PE\ɫGà%P2F3aط (hY%:d 9>ݥo%n K3)ssxrꌣr^qZÊ۠@  ld()MK-`V;ЈԚץlt"InQ {g'#yMw|gV]n/=3e9e_o f-G7DsrXN5&y 3m V,֌|[]&/۹5-90D}5HzY ~:YVGD6Vghզc#!WnhZ- (3g1?R\EWhdB*fa&r݇v8;T[6&tV7aa@'<59kJ\eb# sWiuPps !e XpEG u#) . 6JO*щ$'Ee[cL5bSVe[e<=P.·nj+PAEO:-k %km d{^:rgC=bWb&(c 45-9@uH= NԋAr3`- ]{4iN:cf'?4x2IdD'vp,ؓi&1;y EMs_a:_oM!o)R~X%Éʈe]FOW [5z 67 ES,\Ɛ =R9:ϳ%'|3&\.ԋ`W%Z/F&4DaIW (0wYV&"M:>a&ڈJa2DM\u jcDcк&FωhmO= e" ")4v}8J˦N IC,UQv W_{7gͬ0^ॡJ[€@f1*ë|\zʳl*ٟ ;Fz! F!oQLESP3`sb 9GÀa4;bcg؏YCrlfdwᦚ0tng)Z$1˰PV5'gu5oH8"HS?!6೦1<13 Yͺ8_.|dY )jL2F:`6.쎂), FD '8@9i.y):n\Ǻ0Dh11h+R)0ڟƤ;7M͠X#5<Llf7m3#8LcVfkO9SM=So]|˻ٷ+9~ٝIz 9.ׂ ^wɚzx~= NPd9f[,Y0yd[HEe )yGltf,vZ/@*Khb9XPn(͙*INH˷f3B1kz)0iO Ta}w%Hu~ 0J~` 5Na}ioeĸCQtaNN<4)>eՏ0j ?v|}]hޕ!g5JbK_h&˦OgDmg1|CR pc5[A5,VwՕKDEX&E$﵀K/:{us`g{)A ;t-A]FkAW= :VWr{9-ה 5zC_$J SiBþ/g;h:#|7m1XFR8i`zp@"i񵟁?wmF΍ y`8#Ѝvoo9c6$RWy?m)_ 6M59Sx3iv3pf^I-MlI%0p!D fY^2Hi4$d{"Ϛ_ڐS#j&*d9) 12;pw-2l\}L @Ѡ`xlEtЦ``.u9/tM 37a,acwh`h,EЧT X7sj6f]ĆpwS9fY;tXVC^V05Qw?ʯr7kQZ;׉MN[.1 SKL<$ZgOV /MاLoP43H_6!Z$w [sWL RF.&&oyJt"Ya> l:qi »a\?EQr8$z ׾,!z usaT-ҡ;?]3"k$ˆWZ4 ioq]rpIpL]47T5NƽOQb.B8D(l7Bo-urr sA3)f߮`u&F#.JdqzmmԷ /M.wGlvY><EW񭖗_⮇p>U=<˥(Ί6m{hsyvcob.3FΑk_#щ~"L{TNTg$GXO!M ai>G|+A*hα;td4:I"Eeyh!O\x#Q}p0{1+USV4M+uXhjse%IڷT}j$1WO ͚*.m.4 E(V:0ԥ_)Z8 ['!I5"- `Z)$4`(g$kyn&ĭc3N81=TѢxq'pW%IOǬzӢ} P71Y'c<>ACH/,$g09m)NH#> nFG2riNu9)%aԵ5ӪA) "/Zܷ: 5s(quuн"jpF߉]F5'qi[Z=hE0tr yi  )s,yCz!_UM&N=]Woylw1 !T!f08BwXmCW9' [2Hvі"03U0 O2e=̀qL +!Rǡ2lUDJgL4+5ȳ`(+0aw'\}(RF*\fP_uF_P>w6 "@{ϲiRC8'`:f*p+kS)A , {-Y" {)-^wx* #N}#+ܡa}ц8,<7d2SI'DۻR.[gOc79ec/2^.3 8 @=MF\)T;"lTzϝđDM&Dvɪ<_)%ch@>JUE{dBKe@k[Ͼ|c{+$띵|L|#26x A꼯}Պ6(^Y>EtIxR'A9<)7~fTΝc =n8یPL$)x(.L3kû>tybm,"8W5Eb1'֒9i1AZy/.!l#M@##'zM!*Lp38l3SYQ)1:! QEFL@r ze=bA,V(CL f B,1֑z5~tKMc$%}fwd~ ҹ҂ڬ6!)~+Rۉudl `^'O{?BYn'VYGX1ceW2r=4 &0p>!( 7EGn>A1"x|ٵ4,S$YǤ Xg[)qe ~ Ě^[Ow]/ǰ$vH1Y5@O^F]ۺwJLU9y:҅{aKbg/ !Q8< mcȼћ ה|A`$w=;xE ]Ah7ذtYc An#M6Ƙ͵߇#tMIP}!0ȬmuE(h;hѲs4őJ. xk )SI/}7i,~N 6-נz\aI\6ֵ^{FUQq&NZӨ3>G- &L+Fb*vٵPkSY^NY K`60*#=9Da~`lV؜XBnAwɳ1u0۴sk/P)?j,P.)7&i@'+:UFרĄ! ,*FNvvtӆ1 e ~լ1Ԃ[feQ<!LgLz#Sdu "u25 5;Kmjo_uraYgwrKE~ÎĂY>99֦P&BZeV*uc ΰpzFH~)lXTvB BTnߊ^X*U(JNmgL15P$?uy{YrGy362;Ǫ6!#{h;HƋmد,7& 1ذBe_Q*p $j3jtO.ZeS>U@۾r J/E-V-G fnc0#&X!ijtqAULfOXV){-W{N4i;7tٛ~Uq?| !\\#|Qy&|br:.Qqd/͇ر9LÕQo"$Ppo6'y曮[\BWR6v2j~*dذ `cQbh<ʭ0Hnҩ !%0~_h 0Q*gؙ/f|IBIc1k=ѥ˺@zx1MIIϦrwKb  ueȎmv1y?pɢ47&ЪQcE)0Ub;a@,Piq|WL6L= d#PyL"fiTWh_F*. T30.uif+`fCHOJVq%?:бGҀtaGoBحzρ,PCCM`?bڒƝಯ4N"llsR z 5tX{ݶt]۷c]R0n8oӅm_R3 LYQx%[8 pu;%)flxpFfd`p^Pdc 'RWkY QOL(> :t NMܾ%_BTi*mdr&: HxsV m y}%>e}DDR MjpyISp :0c!,a!n p#E%r"P <> 99S&T*D#)[R,*`1~ 9EM;_1 j=YF{*^|,# ىEK'§pBDv7DLV{5_#,9mtڳ!<"NU0E7-nj@g)afO~~C90*2'ـ!zWfLgD1r`>Nq-r} 7jSRޓ^saWyy"NڦA}ަxz)t(oGkSP +GT!U]6 0)m'7#~wGݦ=ΫQ0u20#mŇ*7. ZSǮֱFQt\i^C殜/T^K!}it"ӹ[H5{ >¦GI5}B0&E8d5WѶ'hA*̵18f3'P"?6i}Vmu$#;D~*&E$E2 0ك^ ?' }gKB#Gg>h0IDgOU1sыWknhADK/ЕCgS ,#ol\Τ?_5cdN0IHKX[t'aEYP^;VVLQf;yV<%= nU0톕RqM/IP-aǸqNN${ m4ǖum֟7(Y)M| 9 I|@4›(/%WzP>@Яnfmk40ה֟|dHrZImGc-+*~;54M_R^UHAEZ;aV`+A~,@[Sx>eZޒR ls?HԣGf;sŽh fl.DN$A,3r)X; 82_7 DZmЉm@r"1h;H\nCҥwnگˤ=-L4B P!a]"+P]me(3_Fm'R BD 3M8/+59Ob9zwu!ͽP7&}^Ѯ|eٗkWց[8IpN҅ߚu3L; iEvU6Nl.O#̶O"iV/|eǨjXa°A \fTbA;L`oj̋ Ztf&;tq*l dx '/E!Aj=bʙj/ቤDϹ{_B~ ɹKhGfgP#a'M} -߉Pgt&\tLR " #G]"'tI*ud 14Ng:>& xՅHBv؈3X`CD;|d.qpĐH~1S~cmWX0U☶Q"|FjQ0&@2>{MR_#ϲz67!̕Bb$/x087q<(as<'.^w8YPJ:;0aXhX8*} (' ?3j2”MO1Z_5F]/'YIΑgJ}w`ɜ1=d ݚ[إ bФYwU`en3>OAbZv(k_bKL`֌ǹXԓݫTR%P4ODaGx`$T)1fVcG\d56J oU0b%^*P5np.9,_>Ek0 /y BzhCR*Pے @8D~3m.CH⭪ 2A׽DLٓqɋ|Nģ]zZz :H|IpU{V^tOCshx\m2_Cq!|%WDRnsi%YtO_=жCaFo2WlFBK3ʁkԏCt48rۋ+jQf]y&3ƉQ [d(G>JSN}ų8mw6xk $]qB!)4ԏgמ8*yqbdj(YW0Gg ..>QX 0&i[Єoeִ˞^ (CK$ /g!9Ŋ$&X_VcgFMbSNqQH,.O= }i)/OAA8DZL_ޱ%dQLᴼڶ"z$Fd?HrkK!H}a\RqH$ҺBộ`,PS(mN?rk6}/a ?ڇs9|3S-x nWJOm –ϲ__/{6ZP?b(:]+jՇEB;7F]/f^oU>`_7Q/,&ppcpȣ-Ԥ_W4/ $;'ȧCЍ; 4a.tsl&vAc}樰@u/g3{Jˀfޥ[6op<î`!+ A7LҙC*EiwK̰fmѫ!>*Io(mw'D=Vc4}\N>>,u ;T 4 3ĭ'L&ĴQHSEwz;YV,7o?<ݩc>Ck_,zݾNjUd: $cb$75!ouOݺg0e ~-0nlioOXXΔUd/pM˾ W*̉ Ʊ՛Ua񆜔{]@f.OMNttbm12] ׻vJti#f"JWŰqi?GDݛ >vAx;%ۨL˱nt?4t5zk c3o=51w~ pF h*,9t o-t5u{_ ?iU";̂v)!FB38 #15IS1)@,C=m0/@_,߫䟾᝷됸e@EXMnb|SRӖܖ{9 &.܁rX +`>:7xcAroY,;&r/lID8Kם^9M#&,Ϯ_gjLPd"#7t@F6D " y hE|Iw/#0%x u9R b!RU{r}>ߔgWq#'J|ȓ%8v. )6mŹb&ϑ@bZ02z2=(:AbF&e Q>XkArpr&GU8CS'1 W$gUy8RSlP( @@ #U/0&CR5|whqqN#6nƢ֬5S=Wh)]8L Wu?4$Y :Y꓄81#h^7x3_-sd F&kKztP5p9S֋>9u3kj1<ιYY$s3# =n h x?˷Dr?Q@fQ=~'*l,H bp+*Fc0gQ"0#tb)~ fӜT2ٸ. ZIH^AlkVp'9S]"6ONAsoy;R7y($qu\U2ٜԗ9{W|q NR.CʢZw*WYVRҥ [Lh0\P:t8EL5ag(QG ;OV 7RO~fFjP׿l}Ďu ׳hX]P\/ ^iu_ , Q~Қ}az@`C )}(G҅t N $@Hc ,ľ1.V@d oNplҗ ʣk< ګ/ g:tV~;|y~o|F*y+`8k!6 c>SsZR̳Di'md)0爤:¡Є}LwNvzdh5fcXfȅɒ?UĔlUq`s^IK%`G (G9"#"G)\x R:zEq@L0WFRD8\ u\4㡕OڂĄ ja6YޚC c$Al %Iy'>I"C(qLzS; i!F b z`ENnץ=3G쌟m̰y&^{cM.yg@r^-wFW04'ޘ_2Դ;-+J xax*tX%s^8tJǐhG]sUw rgN2qH !hb ܍DA ~#|AJS>#m~$<Zl8x)'H{?+%jw >LCuݎITp 6RZwj8.#?/GI5BgaSlbĔ(x 8f2or?ˉ7Xz 3).h9rV>õL{gцMaL~{ 8 skGbp~_->NSO$t !P΢{Db]k.LM+=KDE=;'+2g,=t7dҤdEiƿrH2vuZPZ'i;q:3~5e/#uaԅf-$` Z@ueްEaEz`'ݮCˁ'p ׊ xmժ^5k;d"Mnh\8?%~<' XҪHGػSga} mryQҭκ}`bIPCHJ7~7Ԇ=MиKvܲ $;T=n$+\7WiqZ!%Ÿ6GVp L)j8}T+f9&ʹGXW`Ka,5-HY=G)|YWhU禄ͭ>7yVϣUM4ݑ|u*|Vϯ4v78Jxu 0Sk7YXaD1,RߵƷҏ$lj:=*t>7( CjcjX{[Q4rctv;]l(㡪,ݓ~p HtCSu>1?0*m]i厞NRGKkJU&v zO`Qw[2RYf?zxLA"҇be]$.;z|՝#)>j,>Mh\A%鞯`rKؤVE^tٯ̡oi4Z_ u5>k/ڤpug F\O~Vs„WLf{xYe7q hݞ\I"@UġS [@eQ-K`50T؍E[Đo029@! ^grK]OcKQڀp%)'мAqE;\ŝ88AW;Փ g^вP=C:ZTL ֻD{b+7? !jx/:hLvAH4>jAeJsVƁsܽ]I%`A.<_Mn>}nY]=1vץViUç) C:2`Ayޣ傞_ n(|{G掻 a]`Vll':=\o08qo~"{x>"훩&ܾ?>=bȭeP&e }&Q =%Iw5Rv/8+`b[bڇK "zo?|0XrDAѳW; 6EǜU16>|3N]373arN#)/ ?TW1DLoP%;AIZ ¦dv}*[E[DPEJF!LPCh%Q"Lp똟u>8kF ? I.Rڒ=۲{ǧ6|zt; ݰ'Jˢ<):$-z˪f&s~(0wfTO`>& G~!ᎇTu~n0V"knӄ=pdiH^ZmxK~;$aG5`mX~>7o.K1N9ڬ-TrןkH:F;A`p izY9"mS(`1oO`~.zDuWCuLFyAX'"i4cOU VO O"/+ACz^d BkpTCn2l6`kS`$J.('23kEטS. ,w]B!/AAL_k TA,{nuCb ؀v( |(KI]X0#xlwΰq(췒8y2Sfl|6Id>(-]lW壡^` J47;C ` > endobj 28 0 obj << /Length1 3664 /Length2 26750 /Length3 533 /Length 30947 >> stream %!PS-AdobeFont-1.1: CMMI9 1.100 %%CreationDate: 1996 Jul 23 07:53:55 % Copyright (C) 1997 American Mathematical Society. All Rights Reserved. 11 dict begin /FontInfo 7 dict dup begin /version (1.100) readonly def /Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def /FullName (CMMI9) readonly def /FamilyName (Computer Modern) readonly def /Weight (Medium) readonly def /ItalicAngle -14.04 def /isFixedPitch false def end readonly def /FontName /CMMI9 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def /Encoding 256 array 0 1 255 {1 index exch /.notdef put} for dup 161 /Gamma put dup 162 /Delta put dup 163 /Theta put dup 164 /Lambda put dup 165 /Xi put dup 166 /Pi put dup 167 /Sigma put dup 168 /Upsilon put dup 169 /Phi put dup 170 /Psi put dup 173 /Omega put dup 174 /alpha put dup 175 /beta put dup 176 /gamma put dup 177 /delta put dup 178 /epsilon1 put dup 179 /zeta put dup 180 /eta put dup 181 /theta put dup 182 /iota put dup 183 /kappa put dup 184 /lambda put dup 185 /mu put dup 186 /nu put dup 187 /xi put dup 188 /pi put dup 189 /rho put dup 190 /sigma put dup 191 /tau put dup 192 /upsilon put dup 193 /phi put dup 194 /chi put dup 195 /psi put dup 196 /tie put dup 0 /Gamma put dup 1 /Delta put dup 2 /Theta put dup 3 /Lambda put dup 4 /Xi put dup 5 /Pi put dup 6 /Sigma put dup 7 /Upsilon put dup 8 /Phi put dup 9 /Psi put dup 10 /Omega put dup 11 /alpha put dup 12 /beta put dup 13 /gamma put dup 14 /delta put dup 15 /epsilon1 put dup 16 /zeta put dup 17 /eta put dup 18 /theta put dup 19 /iota put dup 20 /kappa put dup 21 /lambda put dup 22 /mu put dup 23 /nu put dup 24 /xi put dup 25 /pi put dup 26 /rho put dup 27 /sigma put dup 28 /tau put dup 29 /upsilon put dup 30 /phi put dup 31 /chi put dup 32 /psi put dup 33 /omega put dup 34 /epsilon put dup 35 /theta1 put dup 36 /pi1 put dup 37 /rho1 put dup 38 /sigma1 put dup 39 /phi1 put dup 40 /arrowlefttophalf put dup 41 /arrowleftbothalf put dup 42 /arrowrighttophalf put dup 43 /arrowrightbothalf put dup 44 /arrowhookleft put dup 45 /arrowhookright put dup 46 /triangleright put dup 47 /triangleleft put dup 48 /zerooldstyle put dup 49 /oneoldstyle put dup 50 /twooldstyle put dup 51 /threeoldstyle put dup 52 /fouroldstyle put dup 53 /fiveoldstyle put dup 54 /sixoldstyle put dup 55 /sevenoldstyle put dup 56 /eightoldstyle put dup 57 /nineoldstyle put dup 58 /period put dup 59 /comma put dup 60 /less put dup 61 /slash put dup 62 /greater put dup 63 /star put dup 64 /partialdiff put dup 65 /A put dup 66 /B put dup 67 /C put dup 68 /D put dup 69 /E put dup 70 /F put dup 71 /G put dup 72 /H put dup 73 /I put dup 74 /J put dup 75 /K put dup 76 /L put dup 77 /M put dup 78 /N put dup 79 /O put dup 80 /P put dup 81 /Q put dup 82 /R put dup 83 /S put dup 84 /T put dup 85 /U put dup 86 /V put dup 87 /W put dup 88 /X put dup 89 /Y put dup 90 /Z put dup 91 /flat put dup 92 /natural put dup 93 /sharp put dup 94 /slurbelow put dup 95 /slurabove put dup 96 /lscript put dup 97 /a put dup 98 /b put dup 99 /c put dup 100 /d put dup 101 /e put dup 102 /f put dup 103 /g put dup 104 /h put dup 105 /i put dup 106 /j put dup 107 /k put dup 108 /l put dup 109 /m put dup 110 /n put dup 111 /o put dup 112 /p put dup 113 /q put dup 114 /r put dup 115 /s put dup 116 /t put dup 117 /u put dup 118 /v put dup 119 /w put dup 120 /x put dup 121 /y put dup 122 /z put dup 123 /dotlessi put dup 124 /dotlessj put dup 125 /weierstrass put dup 126 /vector put dup 127 /tie put dup 128 /psi put dup 160 /space put readonly def /FontBBox{-29 -250 1075 750}readonly def /UniqueID 5087384 def currentdict end currentfile eexec 4y9B0i H1r^ v.Hntµ'W"xp'DpԄ&,6 6WS:W0H:eTA7J.>Դ{8"ahγDn'$8NC z[wM 3FSj'SKx=x ՊE@ؗ&$F׵̽U e?bhvhcxN(01*H dn%oɟLaEn.'s:fd#~W /Sk_6їS0N_<hBH>(H#U#ȸE Of߱?h''HKchTOo<=7@ȱON-&g~|%RYQ~iwo+7 \Pj\> ,n|Rn59 ř%DL )2ϟՀc49 u|;j Zd@*& {u!7wLCWHjŖ⮓-,D7)[a<|*"O4gvшU\܋|:ps,e%>I>AL#PlGu@#z 8Jy.u,HapL٠pZV"hAcfE hVi@IYH2U ``zs.tNLbj:`I'Q΃]ѽi@X>Hռ y3|qd>HxqM5";8nޖT?j@rU˷C, yz4;Vױ:GoJt9}䖁xxHek}k5LmR رȼÙ0:O*;wL]F|62IJ_jqMt,P" t U`&*MB9W1=y~f г] @N'r U\+q$a+!oFZW$F?R鵪oЋ?&dMNose9J2V$XBgy5rIWC3zEx"i^EՓ4iD^;:$Ig8jOU0}Wʚu=ſƋm7*ٹwS,:n*Jn"E M }7,w/{`-Y4;'8⾢KQ 0X ƲZcfi:9SևΔX*P3W/7 !tB{HǎQp1+S+W{h ƛ2ÿgCF|Оhr(+ Y*U/K, ҋKFzh %uK[z2e;΂P {jQQaCh R\&ojrcT+V_ dKG\^XcVzc ̀6^oOx00ED3 >&d)i['ݵ~,|np"]5"83l& ߶~y9g=BɈiGa 7 q&QzA^g#~2pu;姌^$y;Os~a nN8ݗ2 iXl~7=P瘰_Go #Lr ?ɜ2xBBU )U4UTF*:U63\ #?e,v)tO`qQ:]-WT\)t4n2j"$l@ (tۯ,-O(Aӭ4(<,jzPKKN3̨|< =W [4#MVL\A71G+tJCdMOFۜf4΢?5(?us8&8XݦųS752rȰXtm ,}"lxQ 30k[J{Fr֚BG`83Xue,V>˦3utUt*+FlsO{zy@!q+бe;k7wIȍ$^9; YT.9_0׼8*7IXRojU&Y xPOڎc /L΂+=A|1Tdgkah ,y6,8 zg.ʙ%7 aFD*VpCX0j1Fgv7 _eGGC99݂S>#5N㖜2x F:+{29b[CStc!ṗVʬ=Q&96".颔0ܠ[V`lA}Y0|ջG=Y8WMN&_G\ +"sYU4ێĝu! ](r"K00w9&ORVW]ȈWJ6_u3Qf9JoFbt]n_|izDr(WR[@#h6+ //AJr[`wveq<͸nz&Ӿz%$?! Wi:RKl8%r Q׃]v5L`R%^= g OCLO*t+t@1 -ά.S|sPC xPtk Od̒'N QڦD` xz]eKIR!6џ$ sD/-pg5>+އpPGAf؉Km[US ?0}X^X k+P=b# ]ϒy '|O!N9.R"8x.VJ4YΝRө0޻3JtY[қD3fS遢qjذO"ܘG{y pJKu]ct .IkhY t-Z8_|sXvg2 vfG)nrfw n~m)=|yU38^G=#kK9)S~xd hԙxK\,Xv6sW=kG6`ȶ%#Z/kB{]"muv VlKٷ/9k95ua4vvX?w>$~1yqMu؈d[L"wKHNnrЖ6_;ڢFqLsK0τ  ]Hty(M \vQE^4QircoƁNLQyw?7F] ,ZSvP>EO]%s-[=4.iV_wS~MSBi^fk]QXe.'=xClؒ,fQBݔ ~8Jqw_g[li8՗Vʘ}/S:ՅyПC96⿩}63.xo"Vvvc4gBLkElg} Ưj8/,ВK?aKHIҿF5 ,Tx?Z*BxBh0q!RWߙho{$,=c[N!½P~vZg2/Oz1J*ܩ1jJ]K<Ĩ'Bnz~/1p>_7qNu0 1<ϚC&KyG5@~aXz#]ęoK!{FԈ)WjHaZ{Ѭmc2&ddA9^#?TaVNJ84mQ]f&u~t%M^"C7, OЙǷX,mIz [Jj='qb/hg͵BJ?$~~5 ։g/Odyj҉,)y6 9õ~܅(jk:M<[p),S$f#O'1°\V25[({De7+g.[r>1a99  ,h 5gj`%mǨbj_Z%ZUЙ z`Aa|l9"U#̪񶚯F7b<\5&4GN){͊%;[Ku_s|`M_VNOp0Y<#Zbqj}1ƌRANPF{38 (m6+P9_<%[dq1ZDI7jUbƳbjoF=ITQU[ջ/R o=SkkFYR6]xSa/đ Hgg -֭4@JщDMe H_&х7,N-ÀT|v50>nw/dz&p'˹1x6@g< Nr1jYj RL;xozC5SίTY숁#?c6# W#XBc''٫=@ N=( H9oxjv 1?Y)`8$k"`"_H5z7URהC@,y8#r@-]| ^"( kE4Y+R1l{5la&)>Kh#%np*}5 SpPH0Nt帋l"Ye'OȞ,ȾM-5ί?աP QEL+(7E3kѴDX*=Z,$C,TН2As'qOˆzqrfEč[YºN3V~Ng Q=um{LXUĹOdw /VXtTGws=dLH;:,h^?agnEUgDVD!֣Dd:P c4T>g|2}XžP`hmeH8riR PWݾ+uwl[Kѥ&y+򫦢MKlEbU?FkꐆˉGpq0ȜGTq+et=|031г2!Y/Hk<1#?J5dK4_no%lfG=2"\VO18٤r]ISkzœqjCvڔs|,/N'rQ./wk<,`s$'.x!gOng~9@&t=?/kVڝV5taz ϺՌl.gbkA/Rtr4`He*EB,v=ws=l4l_s_+%s@4<}d -ғdbpO%ark5}@jb,q,xE7yUˏqa^L{ TB+t[)g9jq7}Ͷ ,N(0'_~a\m Z=q;Kr1aw2J{BZ{Ktu#ANhҐlO[˔U%$@f=N1該&p~Z\$-/l>N`[n^bAĤG Ć7"p58ƱDŸ?B]]t8fciᙗd屔J(Od=<(~2ess)NVrsd|a:LߩA8 1XZ䘒 ]>1FcHYJ2J~aϲ!J LC4 wybڄ._MŽ gEi|6sГ$צt9Nĩ,Rhu~Wڐd]Q;RvM(oXE}YwhjY2Wi1'[@$d㓐Jrɂ.McIEā?{FaM(\(>>=#%r%8_l VXBοutmWv)R81A] [ճA.<#!3CRۍ 8-^V wC&m,>]*J95%WXG72l+ VY0isi۞Լ]êѰB~*^غ4;lSIp!UYverlVEOkƐ]T~/r  MBz|S]_Y]oVjq?!CIy4{td)@G[-f-T`,PjQ0vH3pd?Edha-ܕWZS7hM"PJZش*;(RVZ=O2E]Y^"T ” io>}oÀk!blh)qz 4dvu7hQinsXz0C^X[9mݒyVqVWGjxC'(/u C\~DEf{a9 )xb9iZ<"E)5fR bCr[52Eɧ $p(D3s5<1%m Ik0nfv؁n F2JF}i˜ 9)[3&XbW'=1 W/r]%-!.a__": p֨u 0xm*FAarILE)F1S,$=lZeͬr:4Uswa4Շd4Z|.t~6 Ga(QTu{aY=HIXe=e(|/Cn*hD7UqT`9z|@%5Jzy1U7&w2ˏ2T&-]$f͒Ʀ 4[DS mw"1=5T$:RcQ  o[>oōLyR`@OxlTTG'dtµ%Qx$/8JI oe4CG6]%#;κ$6$:Kx,٨rw8UX$oV-ɆNH^8|ҀK?Tu*lZsSUO7ycY?"(HR8 q|l:b'fLCb(3&q~^Atd1<Jc?2Hc7*Nn&W[SֈD`ckU xl/A6~b NP\kZ*pwm5? y'''h!Y׍[xpc?-r{Қiy`zbHQ]{"LUstJWqG3@zkaB5_؉y3w.9 ّW!ζ{3،#Fb%0NϦ@2ЋT*Ҿ=&ff5Kfm޳Q>Aoζ;O=kquHXU=`j~ } ljkr(qxtVl[3$2.< da&7HoE|%}E+V0W|T OrnUDAt\JA} ل;=$µe_0f lJNgOJrko sMC =K :<^舙X6=!,2i7~, ꄹqISě=8Ǜ,[.%i%c'Gdu`8N' GҔd1Lz&kKlBMgK7sʯ c8qDj^VJ4K;uI5n>^ӭ(<`5]{,ٰqQ L5ȣZ!Gݬقcok xL(-^R ՚5AH4+=_Ss;2CҘR3LڮI2jce0J~R6Am*eu]"B7hr3b{,WhG m@ќg\(He$?$◾y\5A75工 sC2T2n4@#ȹ<%ikPm+-1QtP#Co8< ) o]x rV+Fua<KU;ldw$g"0a؃ ;;+dC$ĖwZV N ggl>(x2!E{x{_@0 9``Gi,;{U"eSiyTQ6~P|tm5~OՅ{nT6P.$'T͇, $h] C%O)Eۧ&UFmcsFU]e^[Yz{5{9oD[IsvZǖȮ~-V% )_FCr [b35T6ARSҭSތC;,}Eb3M$!P~:"5P ׶qǣ:@(_ B& Тg]?6'ZsN_y}CGc &;>,I`NR/^4ѦwaB5HdVp xn^/ĘNָꅁ@ *@-n~>P=›Q8BiaafYU*]1Ihn=(9kr}Y<=`ח4IG`;?rAJh[yYDp%x_{So.H!l֖KMg7X2 }"oA M\!EM1WBH\Zn%^$-?Q߄#89^Msu9_ 'J\"VЪUN\K$$QX5$nr˰IֵL+q+ I~`lO4bYR6cb'm{?f|V.@b\CgҟiaԗsshӐ8_|uA'7ښN B|MVw(dg8ctdVB7J=b%?z{*R$Z"ح8X Jt^8Z>)-t6}d ̨h}:q}R ]z Wwmpt} |6i&l N[dCܭDӴ1/n[ǮWPbM= HLN$|VMTztk`{G׭2ǼT҈-0j~ ;"ؘps# rsz35c=_6{r;5!5BP`e1_ 6xv@sIyےTvG@֪aY ['g0ʥX\j/fIb2@cL$6>ziawWi!mSu' J=DƵ7թy4=w炓7'%@I_j9X .y% (?rJ\ڷ bRcC ^e)`r+Ï 0U_N'f7W"¬?1Wl 2Tڼ&X$[ġJ"/\T`gK3ȁG0Hf92ZEK [5*7/=IoY;o $:}ޅyqFbjGA,b;Ysw9rįCk(>_q ڢSR oC !!B:uߠ β}񓧹rC/ј˾k.n9Z\$NKDJtgU ao;c'HTi}V9vXS* l$pDNW0uz s#uPcPYQaᒱ4Wd2-%zG`ayEbIٕ~o&H_V7yQsʋ]3ku'J+)IO}` FUy_RENLq=(y\ȌP=R)ephCdN6 aX O݃ HSv;-xP#E<MS |B`ڄ /epFCfcA9QbR7k1Ԕ{Q{|w"XpLkwY?Mlv3ruѠ LָÅ~'{*Ra2ngb IvkStmmA׃!h`a%?`o@?VTy]|8Y[f ss|xP"ナ =8h>$REx,S55[n=qN2J^a.(.- B HB3jјTs0Y4o)Bc('"`A!#mQ$x=l(,H#,ԊY|n)X9U pX4\ٚj[=<+坫qƬ)蛖ij}D.1$B3 \y&n-JϘڔ!lk*K;r™ O :Rȫǖ~X%$~zxKfT`v2GcIzk.mJk\5|s.g[ceto7['Xoȟ^O^ˠq p!?6L3ΰ[=w̸ZFwdvϾ;]\a!#2\ ޽.Ԑ=pFXu\!URԤ3S`;nqJ7{wNEKh<Ĉm CГ\G}*E=KIե2\&I .'B@:ĽnlOGXT.?lt q{( %˭kQݱnNh ./ 2dVa˃G&{ޯΧ޶_ʨJsU&p!Ug֓p\ᵺ BWM^pTu XOj|-q$jjw} zCT2-{KI̎<,qkJJiZᷘ,Qmk 6zYǮ65k|{W^̕P6)B y<f5PQ8p+Y?==@ $be ~S% h3s(qTqO9&CL}\>WcR!c0Vʸ$Dgs _%U7av04aɆRnU>ߥ\Zs.!IJBR+e.4 M_OS9qOpY[4k>R;0(ϊe|sqEbع3I$Í#QHGZԗ.A<>"o/(UJҴByG3 N<\Ǩ&c "΅`Nw_KEzV!=5!GY!y6-yEw|Yk4TsiT fpLrH?y31w5 IU2tkrN^CG L+lVnV$p 68cBT}j: ^%HÉ9/cI.Nlf.v|얶ΒHqT ah̐$cyZXHClZ9k9aa[gdthZFU?T=/멚61}x|ٰG-`$F=0  y$%8Cb> Wrw$nWVte;۔ c U!B2K.{F08smMo  skk nmHcԯboXY.A/>$Ш#!@# ^cSPT?ᒇҡ*MR+;(Bf%`tѢ;k& Oa읥jme@㼇oB^1^.rfqDb̩9cL܊E rW.fBfpb^8UbZ+nܪtT0TM3 ^6uL'-dםOE*R)_:a~hJh_2%mF(c93 +5¡})׍.JlŦ#*G3q _[ jbfB39FWRM3ӨnWl_]uy$!w4(|qV~T^}댭Wĺb$Ԓ6WBMК>٬4J2-ohaw-Ep PlWM+];bY*I_xz9Fb'{nbcFzvu%߳w.1%ȣa]wؠESWy PρuR:)v`̒M߂~brH07HY/. ؊# 㛧IVTPGx1du~YF8 fr6${ͧrjƕ?@5(Wfa2SzcN[f$ I"Nθ@ɸ1_%;9@rN(t{PEUUAMj[JC|3b>{0@6}f~ tj8CMb@4Ӑ @[N2&[\0BTx7/3 t_]" SX*gKxU萛,`qR̃oP1Cʯ/br7Gq¦Myq)qJ3Jpn斈JW?JZfY y) P~-҂Ow mpR]ZeѕҒ#͸"c% ex.4c~1񚨟#R7ҩbJz}f-ی&7#5bFk v'ee؆H̾o۹%cr%Px~Jؿ@k8>)&b6Pŏ]Ԁ(:|.s?!h 0>8"ҎM8/X/ .M>;ŎiN-y`֙3:j0[Tƅ41䗄 6Zdy څ0q z"1E 킐n wPZjgLaXXoP@cGݰia1p9RR^3w]w-6Ӽ"ةx}6-ȍGRχ;K^r-S s*8_zQI86IEҾŁi̼kجBgLrWb HR_V@j^an*5(r- TQxӲC >!7ȿG-lqsx{zt_[enG$Afڇ fphgUqw8+`~2Ae5Bd#6"R|pd;.I .Be'7sݐ~3E4 @ۃu>=zy/m ,8}*8VyF-obaQY=]X#忂R?86ƶmXe$L(Eh MPaWWjL&\İA8%_~[|4VyB)[W`T(CuTˇv#Tyٳo}[\Pwq`#;դ HENu3pvjʡsFqs\fnRT-t&3uTx?d}e} \]):D^!ôXlqKOmYrrcuݸe.bb|tM_U\*]8ݞƁt˗YċZ[/)xa|{1M|sfβpI..yRLrMLZH[2KD<2#N+q\o6\ϗP|pdbbƲQ /Tk5I-#vHQ!1;~mAtVic5>t⴪ڗz6EwNH bCQ8AK8V]p ('Sas/5ʞ+h[A_:V>hD^;oݹdW@7lFBŜ:﯎FNNEԳq\K+4A{%Qu? f/j"s,2Q\{h3aQ b rcuafyz}H}E}~@=#i+J0߱.6BjsA~lG|J6zܙ {LvL$7D-}5:9d pqk Ȝ5ih^lUE]I`;_ qFtZ/ C'H0TYUnGMH:C @mn]Bv@DaZ 7sSVkK C: Olr{9ѿzr^c?WOC^>Hwea%"uoTvz$ &) r39/&2pfluB}26>s椦ȅvk2)\%컩#DÈ/Gx8ȿ+wN6aٴ8o1}7pjU pI[tU:|kT* Q}8 [&R 1' K6׽|&{s={@ gM9UUaCQm*5Nw|!NBZs=6&pFR]$~P5" ܒ,&L|~mM o'@-C)$eizƂuP&ʝpfSWOܾ7jhDt.:Q\{KEDH_f ޳HuA(GJau~%g"5mF<8݂VFH<c]{(t]Fz_Vd+ٜ~`%1dd0BHf:|K%&fpvմ?5]=x2GY _JA,l|{0aRq1PsLsjش1-Fjg_66H7fTyEC^͠4>ij)WzM<$a3#0^b\F؛\zԅjS!Q8H%-/`{<򗮷HǡǀWVES;i8r;0DL`rQk[,z[,duC. \Ss|^9+9F!/.٥˞Zt/ OqʥhIKi߆'k< }hO&TCwR+qG}+Ð-Iq#|Wm"oН/*4ˎ}eCUWZq*t])awI4Zq$ /HY % f1H5Zдtwb=q#sإLLrLf. ʐJHyoS9qMǵZΠ}{uyZ)^?Nreo1+Ɨx&xH.?]ZM7eOH1˕MFrhbTZ0D3+Fء*S~\M5r# Mt[GMi<W b&tH敇ߓ>';Q1 ҝGldYڗJ{6\"=~ FJB[D35Ռ{boو! kYt.ƫ(ֳa&;^,$O QnzL,?ȺuJ)F۪Jf>ݍny U'ܦѷYI@ oF~~8t@Mƛ 7-ݚ)Gԃn*GqmJBkJ_`RTh8s,$7s$*lQ֦9(Ze({$VzكME_;Cl9|,i g{3 ;j.Pci;f~dr2MPT70X[NԌ@3i%2Qc06ʆ$CǢ5@xe_>Iyc8h3ZǑ fQeVSDC=5T4S΃ՋrzҾr8'`3,e3r/]pꓖJvOJ&469V}QE rg bgUO#U%Z#c4pt8#ܪPoщ3r5`Op4TO;),,ܐhh5k#sfe*O+LSXg] Y>?F,P .ؐ]%:^h-NY:H*rts:íX{ Vh-qZSgiU_c|IK}cJȀO$g8xG_UeZN|#{^s4Um߸EvJC"BZC'XS6= .o0=KYItm`ieK)*nUQF1)㫚1s'Vnӛ"*J:FVeƔÉZb#&PĞ=|wUlJLiyq YH3c[ix<{[ 2M'M ^燞t8=PYtc ߐ,OR 7(]@Ix2bNvD6ǟҒ9Q玿VT }gM34}8|?OCQxwA,1ufDz<3Ğ xҟ*`N`,j!Iҿc fF>*`Zi124B,l<~iV s9 |8lI)4I^Pxs? {V VF6]%hOV]TCbC/a)J5d39zTvFAHV#`Ӟ(]WGm(nRĥE͇ڣsOԀZ yofI6|m 8j%ZuȻ"߀> *tꃱοPר4StY, C?W>iy3i5DbdHq#{qѥD9 + & _ط[G^i<[+=0 y)0 6S sΜ}é2$7P8T^e3 +JrxAu\*e 0bvEiD w4˗QK΄9{^Z3Ts$pJO|ϕ{ô7;2Xܢ'8 4S!twȓjen i&k;xZ4A*Uʝ, jϥ:@Wcdb莚sǞ~EקۇEqJoxk%A)&OհΠ ;GE^]s$e_k1h|nY<͝/̈́e|cZQ!}rU@t!hR۞@%{b2lЦr`wJ%>\'5;m̒61`qUmva,5"9=q[ uu } ȉQLD]Nʇ2UJkkI+d:>hh>-RT*cE-ϻ( (ELz_܂:b!=bE#:tnt D3?VH~FL|xvD!/ +jP&^v% EC-#[%%j[W+X`I=:O+BZirsm$,YUrCԿubސwHɰ!)j#0ׯan8qJoFk SCLv v[$~gYocw*NAaCQ"| tp&_v-8v_21ugf\AM>O%ʮ/S(YbT'k!XA ܭ՞C?z ?'Xv ;MBP^.[jj\UbdCDW h$ zgj&.83a)tѻdѨTuάwȊZ*L cFj(ɭ )v%>w6YR<,o\t݃V)[&Ty~vcW-|FOi,I#|6Qg݁~#ۗ) jwɕt~\' 3{Cರgy@@ih?qYл2(GEW_zalgD>@}NkԐT!4ZZ0ϫۥXGH nl 颅:txD$V "92`2q넘X[߼4@u.ߍXM4μ搛=: wMt}4w߼O\(Cֆfxak9'ZcxV$T*{|ȉ:ϒLt)ߓx\"Z30000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 cleartomark endstream endobj 32 0 obj << /Type/FontDescriptor /CapHeight 850 /Ascent 850 /Descent -200 /FontBBox[-39 -250 1036 750] /FontName/CMR9 /ItalicAngle 0 /StemV 74 /FontFile 31 0 R /Flags 4 >> endobj 31 0 obj << /Length1 3603 /Length2 21130 /Length3 533 /Length 25266 >> stream %!PS-AdobeFont-1.1: CMR9 1.0 %%CreationDate: 1991 Aug 20 16:39:59 % Copyright (C) 1997 American Mathematical Society. All Rights Reserved. 11 dict begin /FontInfo 7 dict dup begin /version (1.0) readonly def /Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def /FullName (CMR9) readonly def /FamilyName (Computer Modern) readonly def /Weight (Medium) readonly def /ItalicAngle 0 def /isFixedPitch false def end readonly def /FontName /CMR9 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def /Encoding 256 array 0 1 255 {1 index exch /.notdef put} for dup 161 /Gamma put dup 162 /Delta put dup 163 /Theta put dup 164 /Lambda put dup 165 /Xi put dup 166 /Pi put dup 167 /Sigma put dup 168 /Upsilon put dup 169 /Phi put dup 170 /Psi put dup 173 /Omega put dup 174 /ff put dup 175 /fi put dup 176 /fl put dup 177 /ffi put dup 178 /ffl put dup 179 /dotlessi put dup 180 /dotlessj put dup 181 /grave put dup 182 /acute put dup 183 /caron put dup 184 /breve put dup 185 /macron put dup 186 /ring put dup 187 /cedilla put dup 188 /germandbls put dup 189 /ae put dup 190 /oe put dup 191 /oslash put dup 192 /AE put dup 193 /OE put dup 194 /Oslash put dup 195 /suppress put dup 196 /dieresis put dup 0 /Gamma put dup 1 /Delta put dup 2 /Theta put dup 3 /Lambda put dup 4 /Xi put dup 5 /Pi put dup 6 /Sigma put dup 7 /Upsilon put dup 8 /Phi put dup 9 /Psi put dup 10 /Omega put dup 11 /ff put dup 12 /fi put dup 13 /fl put dup 14 /ffi put dup 15 /ffl put dup 16 /dotlessi put dup 17 /dotlessj put dup 18 /grave put dup 19 /acute put dup 20 /caron put dup 21 /breve put dup 22 /macron put dup 23 /ring put dup 24 /cedilla put dup 25 /germandbls put dup 26 /ae put dup 27 /oe put dup 28 /oslash put dup 29 /AE put dup 30 /OE put dup 31 /Oslash put dup 32 /suppress put dup 33 /exclam put dup 34 /quotedblright put dup 35 /numbersign put dup 36 /dollar put dup 37 /percent put dup 38 /ampersand put dup 39 /quoteright put dup 40 /parenleft put dup 41 /parenright put dup 42 /asterisk put dup 43 /plus put dup 44 /comma put dup 45 /hyphen put dup 46 /period put dup 47 /slash put dup 48 /zero put dup 49 /one put dup 50 /two put dup 51 /three put dup 52 /four put dup 53 /five put dup 54 /six put dup 55 /seven put dup 56 /eight put dup 57 /nine put dup 58 /colon put dup 59 /semicolon put dup 60 /exclamdown put dup 61 /equal put dup 62 /questiondown put dup 63 /question put dup 64 /at put dup 65 /A put dup 66 /B put dup 67 /C put dup 68 /D put dup 69 /E put dup 70 /F put dup 71 /G put dup 72 /H put dup 73 /I put dup 74 /J put dup 75 /K put dup 76 /L put dup 77 /M put dup 78 /N put dup 79 /O put dup 80 /P put dup 81 /Q put dup 82 /R put dup 83 /S put dup 84 /T put dup 85 /U put dup 86 /V put dup 87 /W put dup 88 /X put dup 89 /Y put dup 90 /Z put dup 91 /bracketleft put dup 92 /quotedblleft put dup 93 /bracketright put dup 94 /circumflex put dup 95 /dotaccent put dup 96 /quoteleft put dup 97 /a put dup 98 /b put dup 99 /c put dup 100 /d put dup 101 /e put dup 102 /f put dup 103 /g put dup 104 /h put dup 105 /i put dup 106 /j put dup 107 /k put dup 108 /l put dup 109 /m put dup 110 /n put dup 111 /o put dup 112 /p put dup 113 /q put dup 114 /r put dup 115 /s put dup 116 /t put dup 117 /u put dup 118 /v put dup 119 /w put dup 120 /x put dup 121 /y put dup 122 /z put dup 123 /endash put dup 124 /emdash put dup 125 /hungarumlaut put dup 126 /tilde put dup 127 /dieresis put dup 128 /suppress put dup 160 /space put readonly def /FontBBox{-39 -250 1036 750}readonly def /UniqueID 5000792 def currentdict end currentfile eexec i_,+`"WP 5 l.jkP P(?~M;^yy*f˼[:-Z/e_[+5{^dtp!~dZ+س:cEwK+_nCdZy2}m3U@-UӴHh[ a2:Y ]<}3bפ@ie3d_5=vHD`8niњ9T lZEz' +; UsF>zJ2(^K0ҀT}ΜhiG hy+vR3~ًʑ9v&ZŔ S"JD{^\ PO3PeYO;$T@ud] {UC]&Kln:FEs(!+,#QdB&U/G-twhPǟ.w*vA%HSAJqc٭ZF!>˄»#[b ec~( l5A;%0K3xЖ@ HɖSxfo"z5 `Rg!-:e9yGP\e2twK TÄphܰW\V/Z!v`,%^BjC%0Sdz/5ɪP_0"3`/Ҝ^*y^ EP"qqJ ,`1 ʥ?HiUu6H(XR:VQjSsl( jB5"؃{UpoxBx41E3:SƽWh=" -@;qjh2!!U9mBLD'[\rG qO}@D;_֜mUfQyHEӌ? ʖ,I8]kN~~z+3^.@T˧6I >oaԴZ0zqTQ:ku&Vl,ZOiW-wx Q;7@%%4𼪜u^ai{|Oń;L망PB[!`;~#f]`t)RI _0r lEA#⠙3="h>y)](n[wLMPv? g\E_?%&=.11Y=e`l&BT|jK$̳d&#EyΥ~hqy ISԌB6&U?JjC6otCԢ0sV&+ISB_ͱ ~ J]μ`o|O='{R4TpQRi~jmsXcPaOS]01^ǛeNh{C(X`Cjh9V۷IХ4Gf#jf)e&0(VUq,/8 {"LX%H4,|Xt:0CRk,a]B.)U0p )#l%~tDj+عuUfQe-㷙wЛME6v#cCÐE0j=2=&>\`$OBmtO$F:ZԢLmijkbcf_]@PӀUGx!sX^?@6^$`O%w5r%1@(f2-`% ?656*>2!rȵ3CgL"c!ՀeSY%׭ ɹ4GaNz3 4F.ێ1f=+慁_*QX@b;Rů| /`r~Sg T%6(5y:-Cvlz´'Ki(7Z8y3E ~_u 6a:^(j{ź s:^l͌{Gȭ ^Qt4_ɺ Wh쓯j I;RMpB.:낓3;3K /2wyA`W.UA#B軫\ i:42,vB@ >FlL[> r'N(-wLW?!ubN:QԲ!;GW \P:!:Ei|.Z&[ɲ zU\+A A?/ONGAZU"MW=K@ƕXǗif٭ g꽑Dj %h㓿?׆EQ8aOt^C 5u;+:Ya=VJeYpSU~[J2I$!@K5b 7W,f}x/le]w dvYnB>3!;k<Sr1xbZ܄]j"g9FOJ_h8# s=j@N\Y}ІYR.JBBG'է%:bG]KMsPXj0V m\0,Xlda78kбRJ=4sZU(M,M2pnFh9W@I hѱ6>Jd{[<`&^0,-r!28KpO/r\sqfc^L/>$4z$_A5_7byڣ&.$OnNB1.Lu7>/ x!߾ְRgmB'MGM~ZQzǐ$>J<+9921 4=n@}͙q+jՉn\5?cyߪ2 2 \"JF i68zW 9K`. f݀%3\xyV@Ll=5aTlQ+ߙUH<2N۬tTٙY%u^N&3?>OT2EPISR~#/%n)r$0z-h +#~E9ZgGsA +3;U]^>Z.ㄖ*USiyk_ih`g ~eO91+:-5 eb=9>Kuo]S~Ġ ˣ1`fW@V2Z48"3@$:%e9#'7sQe}/ TZ)2Ec3]N&OB% |?&R+pLk$ᲗPTC0;ƵEhջ_߳@ -q }:8-;S_v0mT |Cv\]JCo n?/V*'fUC~de\NH$u.5ZI.WB5:H Nej+Hbz[[O~sb{728|w}{~qΨT}(!lu F HL|hޏ)=9A؜֩ Oaԟ-$h&NLVM&Wd(N@Z*OBVR8/%9 ݩSxd!bгt}P_IClMk#L ߈X $g~x},ρl$;ڽ..bGC.q(=U~҄**meQk8eH/h8I!.0Ys9*VsR͵Jgus@i!S1W60|wbC鑘̛*_\5#Eyw`8v1'qc) e t@[WL ylrUWPsH *i6߈u:rxG e{/r.oa}8_Dѭ}}~ %OiS*.[Uv§nJU~] I{5+Ł˶M:"{4D6I 뢿~j㐻Ig,\ave+߫e<ulN#C?R#_MO)'HZF&*Ƀ6EҔvw0,\s|4 fĘFh2oqB"~'5a,U0r\e#O trn|foNpOAh#"%/YV'[b2)JB!mb6J^ 20v͚:y@`=g蜗2?$~2?[;^ADrڤ6Ma?+V"hY=.SI >BuYX{Db7\ʻ$%iG9]ti]\;tgnk0`=Hqp޹0ZI=vbxbI t,i@Z/ Uxv.TwtH_1Ii@;3xv'^:Q;~O5\>J!1T9dDְ^]9K YW;ߡmiR,O2s${eJbo7?Գ 9a)x[~|YM~5,m_QR-2k `]2:S+o[}@-F50v eLHancr/R*ݛJ[\lTRj~eIsîqޮ™rp?ZjɓI!}jVkegK;qT|ڏWMVn;MPAJ1 ?|z@aBܵx~04fm};(Ӎ#wհ֠|7Ғ1BS $^,J6]VвlW(Yqnva`dB's,`[YBNjkaAFӭLe31GtX4FͣDSwcW.w^TD)ҷW">W¿==7NP 1IH:٨+,2$hV#%e05c5Y,"qi*ڡGAmcܕ !Ry+р M/*X=W]L?,.]@_da&Jk[CphNԉcȓqwٽ\qq_Caa05&G_O~.RVTHe Tln Pi쌬Ǜd PfnHZ9%^PAږ}Uò 3Vxi%0` ?0LBaz GX[?ưܣfH1GhpS2@ү;K$!ulC]nf]v4I6Υ"DFP}-:4/ ο X~$m ѽiUlq`gF\x9|^]ݵօDҞ)+vUᵅ넸ZM0؊twwA^k? %iCӼ^W-хW=gu3у"#2hgYsQv}1yiA.zp=i)jP5v-> &7n׻86¶ j`TCkO-By(9ậE'?۝qb)ɒy=]G0-(-z }N |6ӡ#&?'gAʈQ~FmWEhVg]HPgoz,?cZllʾ\w'N*:~m ((Şw;d~w{d+~{Ea΄癰6#?ZMB].b`'H91dIK *ƻE=R[V)23:N$$Jثp2|;;f:ܰ,{_}.#n))[bqht¿ {Go듛qF"Bȑڸ V#i' {N%}8m#(/yV=s JC.~ {yl"He 8!]vYE(9@Yy[2u;ZZ bیB?{I 3L2|# (64cZ6J ԾsfݘJt#2&Z{](4S:73 {x4Yu@Iu!d>"|gP-y%բ(ckb$d7-9pZ-.*hI)4V+V\" p#8U< ѴPa Z`4[!P3&l1OOB]g5q/U&+)FK4Od"/5lXl}{%)$j;Vc0;ʎ̍sg 2Sc =_u#ĥ܍-x,\!xvkzw"Gf5DŽ.+JێcEFh5q;CXv}n>'VK1uNu?ri5>#q, mۯhJzL=pG"@q`i,jsyk|vw`Ҍ:Qzg,$iyv 7/;2k&s'\cj`] pFs(dS~hrm_;o3 :`cygn|ʼnȚ >FOE*ycSYZ"I?يT`'e:}T%5sffJ3 S佼Dδօix ;ȗ 5#&b+[cwUܤ;Er<ns7SF /VCZ[ݬUwܘй1Q8)?4*j7eo悙5\StQ03oZmTys}z]b{ZB¬hs ]pB.d<^a3o6eMQ֜ŷZmKC/;f 4aapQQpu"m95=%,8MGf0Bٜr5 ;Az[h: x0g0HP[{Υm 9-dxxS \ P{>{tt5}M ]_L_ߨUY R[ZܹE 8L)[ŽeFLLW#˚~t18ZqwV \UՒxfL/D[TG:xa8DĘB=g$nqC~ˋ?,%ʄ Z77 Xu EMsk-|j?x(CJCdshۙ1Qq R@)8Mhb$$;5sej8Mʆ͸~#$^j"[*YG`2c­5`q;yxY36`i%侌@=b;K<~ٔǐ(N֭8x.CwzTj] 핥MmîORRMu-K8J:[k8Qe:9ڽxdR{"E%bwŦkU35E`W;d8MtgQ8Fp_9"xS饴̚ Nʁ.(#M~6)ݭpUUń0 i0`}8.O,hR@/3?ۚojUv|:C-P٫SjIcHKYXv07F9L0.#yR4D~i5E4XokWJ6A('# }E.;蘤rgI&З*K Ya";PgC}zDREm_;@&B *w |sӣ3 &};qH08l-Z5Bh A,0߀.W QITbRPߊ;/: 5߳K~P@F@zz#ϙU2/{jl=,;W5`/{O:b%:k܃ R~@9T[!]3!vv=#h^0Бhgjs7;F"N dj p`|bUMSwtd,[;^2тzEwP!ÃfadW͇h`"'kEW2gtl?]ܺ(,mygm*# N!I ԧx˽؍p(c<%V'R3')1@B1.M/i“8w2yTpZHe#ȶKȃ)l8Oh4o/ ޴kG yաy K_!b+  Ah>WJEm_!&;̌ރ'F.AX9@={NE&/kص,HzM/}Yxݟ}sōLSJ*mv;XV^4ShV-dR'J&<a02JoVL.{ K5˄J~A_l0|=ٟ_7&񄔽I#0a\; o>.w܃Hc96ҭjdqz+בJ!18baNm G}{ (TqheQØe2P \5BLY>3@k몎Gsl(K>b)$5ԔꐧCE?F"I24+}UQ8!޵߻6A>N9KhҵP*Peq(pA[G+;|+/q-hסg;D X¡[n_WC>u4c ~bU ׷N =piѷ֛sAqt='2OF7Ԣjb=1D)mr"C,Q䌡u~fsYR速KsxccK4s 6ޭPB&Po&ЈcT8cYnK~6%-J;Yg{ok5jx̕xp'PH*hZ^z8aÔL.qJ?ߍBf )F~ws^ s Zir~ܱʮx%T|,_ hIYYP2(J@i 050W稜su=uq$aE&O7Ir H'{s Η،g̪4D`ځv?r$`#"iG#PAI5#.GϋS޶g̀tgp^+/ٟ(#G! [qN/lҰn#;BΉlc紴RtgJYoܸr"{a׏'䡩beT\条7J\/T kQQUx[x,$ ި.fRstǛY۽&*+7rm$#%.A'0(ρ#̐x64Gfp5Z*%ϕ.S0q8_TfxJ{wpK'r-1Ł6@;ɑhOZ,~rgT{|wAMuNfI]yc ]uӞs%8TF_m֋CW9&܌sks蜢[nIہї[ǴSjV|[yW9]n I<ORć ѿnRD]/aE\Кq!D 7XeC٩LE Esy :|hUdD0~@ڏ@ 'Xe7]}_A¿]$zG$Kb*v6)kl׏ǾKMv'_*H$$:YlH+GΉPv Q6<|0Anq@@R+d Ma2BHI@y2YGok ̗qoa},zb&hyb0eOV3xVEh^Cllͱ6VG+"Mo 4|X']D^%DgЛ15S0_"vGwUqyRUj/jzO ٝ*!!Ufp.*ϩw?ox{MBb#`PÔ[Ф;cD,߂eeLJڎ"MY牔 Ue(H=Hpp䔡ݪ{"xZGԚrпΉYs _eyCt׃Qhƨy| ޶)N4R>(ôgt}[Q'7S5سed؋VzcX"ϑ? ̌S,,joѢmm?+.Apb!y'cX7^u%hBL]#݇@AIgJ(ILjׄ8wt@wBUB/ժ_hȖӥL}_ʩ['Q*)w\yVQ[AT,-mGOU?@pR(~?DR(iYCEY=axC2JSyq_fJZqa1$>iKF V\5e?Zc96a,u{ۏnW2AP'S"}giL.3՚1~<"E ts%8 ~Glca~b͜ψy:og9F!vY\ ڮs?zz!O_g7S3V}C>fO;*^oEA^UX`EE4ӥilRݰvޖ?uM qC|V_1l_ R~_w{ؙXڬaB' K3I澸Sz@mD;GeU1wO&NL)NB([x l7?e2@B׳(>ҾM/7 +H2GSoΤBƕm,GB;ιh2g C  䆙^^B.v"Z.TC\i1z4i ܩd䴃+g3;~9Ay0B}dե#",yڤ&wѼ'ZNsrC{YZK U aC~/'O9`uMw/@]#Vh{H,MF Q |%j LeAr]mv$x@E)˭)[XFIWe00Ye;̉ n"DB͹o! GmBizF A ('ʀm]-DDI cfG:_͹ms ?*.&; Ѳ~Mp/oq4#sáO^` UXyذ0|3D=5p 腟IXYԜVۥ#۝@bk*+I4=m'Ԧ0JZ 8 upf9 5>:6o3Q`++/w2m\$6Z7疁 @9e{_!.;*O |EBj (UyA'= Ҍjo|NhJ$R3R<Ӷr|lޭxcP*&ߖPP''6n5ƍ>v6d蒯|!j[W`i s+aʸu,߯Uoepk©yyMi Giq@"tֶWjd[N[,p! Ԥ'ƁPDOdRH<%KWR^[YB)>Wб AME~h*ؤYt *5DsOLZ6VK ]h59u Ο(sG`>4bfݴ@y۹#kL\A6dϤ;<'QMʌku|2o ha&M=znU_W FMb SIi1 9C.s ( _Oo0jplV]A)ԩ}A *;j͆|\_tb&-A= V D{?,`lBq6`2:ym!kYfi<52?EM΋Qpp~Ƀeo3S77b5aR9@#@p?za*<{z2+s#4iYz$&l@ASdIY'#×s.t65&4.bDI%4;u{؉=әS(\ Y5%,x)vhf͒/ >H Lg2HkAЩQzݖ`o7T547n-_Я N+0peW2wwjngK뾕\ߒg*Ri4|"3ti4`6`|Ne \O{]8<[m!O"9p|4SE2uwQbu:ZE|xc`rMF, B{Ss3M~S>ɆzUaGIUPKQDoGsHҢd侷zӒg4R-裗l21%L]·y'+-'oW欢2J#yO_5\o=H$9:6\9f$i-gթfhs֑ڏ [2=^@ 'ȉh݇ȕ<5ӃPㄕ8tǭ2:㝓\Y+< YJ Sj!՟GKKV P\4Hf_[ʵbDݨiog3mjOD9ElCûhL"!lEdgSTɽYY1928uh=`yٙj0;+^xnS)|w劶ۤyh?QQS9H.=W%o /&vGrBDBXDN:@Ǝڔ6u-y.5 DME~p,38UH{nՄ뗇7eu3x?G'ЩU~/Xc@4SGoF [wb4 ;cRcsj>XdU^} 4),)oN1]֣5)؃>4;Oϔv[G7FIҠX hН5HH ֯l%.eʶ]щtŤ*,WzbTZ4 װ1PF(8 L;lJD5I5&5lII 6(ӽ'z{3z؞& .qbgPJ3Lz7aȥu>(uvF\V`K>SnVw mѲmח۰ 2=kgX0~Uf|V [JPß7ԜV32(5 ,T>AP+ZÓ;ׇw߶plhP=.PCM.9v ޝ./6t_wln/W.D~isL"|j&?KP)>Y ~z#(L º S ߋ??bP  Wȏ(uY#|Z8j+pAXR* ޫYy[dlu1K>u?*}P%^B|,qsMpjY`7}A-k2x/|,`ޜVT3fP.xhePqWP<| h2UWO`xi%3ck͏8Q.mm{#i/Ɵό왪WN Wax<}&Q9uZ p0=Oܞ9as*(IxX+y'L`P;o31 KTP}47O j4 WRRxBJO}SnI0r_RNJ]X4]Icּ2Gę~-N?Xx~ʷbz-Qڐ'Z HyY40@8Vreneu$\c%!Q@M\,,菽ӧ|s۠d'/Iiwx,E7O6GƢFuB.'!bؙ6$] 5/M[XwO$G!HP43<#!T*$T)bwALiuƊ{9ٽqQ {u#C˂0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 cleartomark endstream endobj 35 0 obj << /Type/FontDescriptor /CapHeight 850 /Ascent 850 /Descent -200 /FontBBox[-20 -250 1193 750] /FontName/CMR6 /ItalicAngle 0 /StemV 83 /FontFile 34 0 R /Flags 4 >> endobj 34 0 obj << /Length1 3603 /Length2 21052 /Length3 533 /Length 25188 >> stream %!PS-AdobeFont-1.1: CMR6 1.0 %%CreationDate: 1991 Aug 20 16:39:02 % Copyright (C) 1997 American Mathematical Society. All Rights Reserved. 11 dict begin /FontInfo 7 dict dup begin /version (1.0) readonly def /Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def /FullName (CMR6) readonly def /FamilyName (Computer Modern) readonly def /Weight (Medium) readonly def /ItalicAngle 0 def /isFixedPitch false def end readonly def /FontName /CMR6 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def /Encoding 256 array 0 1 255 {1 index exch /.notdef put} for dup 161 /Gamma put dup 162 /Delta put dup 163 /Theta put dup 164 /Lambda put dup 165 /Xi put dup 166 /Pi put dup 167 /Sigma put dup 168 /Upsilon put dup 169 /Phi put dup 170 /Psi put dup 173 /Omega put dup 174 /ff put dup 175 /fi put dup 176 /fl put dup 177 /ffi put dup 178 /ffl put dup 179 /dotlessi put dup 180 /dotlessj put dup 181 /grave put dup 182 /acute put dup 183 /caron put dup 184 /breve put dup 185 /macron put dup 186 /ring put dup 187 /cedilla put dup 188 /germandbls put dup 189 /ae put dup 190 /oe put dup 191 /oslash put dup 192 /AE put dup 193 /OE put dup 194 /Oslash put dup 195 /suppress put dup 196 /dieresis put dup 0 /Gamma put dup 1 /Delta put dup 2 /Theta put dup 3 /Lambda put dup 4 /Xi put dup 5 /Pi put dup 6 /Sigma put dup 7 /Upsilon put dup 8 /Phi put dup 9 /Psi put dup 10 /Omega put dup 11 /ff put dup 12 /fi put dup 13 /fl put dup 14 /ffi put dup 15 /ffl put dup 16 /dotlessi put dup 17 /dotlessj put dup 18 /grave put dup 19 /acute put dup 20 /caron put dup 21 /breve put dup 22 /macron put dup 23 /ring put dup 24 /cedilla put dup 25 /germandbls put dup 26 /ae put dup 27 /oe put dup 28 /oslash put dup 29 /AE put dup 30 /OE put dup 31 /Oslash put dup 32 /suppress put dup 33 /exclam put dup 34 /quotedblright put dup 35 /numbersign put dup 36 /dollar put dup 37 /percent put dup 38 /ampersand put dup 39 /quoteright put dup 40 /parenleft put dup 41 /parenright put dup 42 /asterisk put dup 43 /plus put dup 44 /comma put dup 45 /hyphen put dup 46 /period put dup 47 /slash put dup 48 /zero put dup 49 /one put dup 50 /two put dup 51 /three put dup 52 /four put dup 53 /five put dup 54 /six put dup 55 /seven put dup 56 /eight put dup 57 /nine put dup 58 /colon put dup 59 /semicolon put dup 60 /exclamdown put dup 61 /equal put dup 62 /questiondown put dup 63 /question put dup 64 /at put dup 65 /A put dup 66 /B put dup 67 /C put dup 68 /D put dup 69 /E put dup 70 /F put dup 71 /G put dup 72 /H put dup 73 /I put dup 74 /J put dup 75 /K put dup 76 /L put dup 77 /M put dup 78 /N put dup 79 /O put dup 80 /P put dup 81 /Q put dup 82 /R put dup 83 /S put dup 84 /T put dup 85 /U put dup 86 /V put dup 87 /W put dup 88 /X put dup 89 /Y put dup 90 /Z put dup 91 /bracketleft put dup 92 /quotedblleft put dup 93 /bracketright put dup 94 /circumflex put dup 95 /dotaccent put dup 96 /quoteleft put dup 97 /a put dup 98 /b put dup 99 /c put dup 100 /d put dup 101 /e put dup 102 /f put dup 103 /g put dup 104 /h put dup 105 /i put dup 106 /j put dup 107 /k put dup 108 /l put dup 109 /m put dup 110 /n put dup 111 /o put dup 112 /p put dup 113 /q put dup 114 /r put dup 115 /s put dup 116 /t put dup 117 /u put dup 118 /v put dup 119 /w put dup 120 /x put dup 121 /y put dup 122 /z put dup 123 /endash put dup 124 /emdash put dup 125 /hungarumlaut put dup 126 /tilde put dup 127 /dieresis put dup 128 /suppress put dup 160 /space put readonly def /FontBBox{-20 -250 1193 750}readonly def /UniqueID 5000789 def currentdict end currentfile eexec i_,+`"WP 5 l.jkP P(?~M;^yy*f˼[:-Z/e_[+5{^dtp!~dZ+س:cEwK+_nCdZy2}m3U@-UӴHhX.⤠HH<;]|& :|p[C#\zC)k;rc‘nZ E~ N K?=}'z݈ IS;ڄWFsqWeOCPp~G'c &SqF6h]xF>vVMN5r8L)ш0S˵/ w+:9UuF@0.Jto*6(Rps+T?RO~_xw`3j%2ryK4˚XYWؼ!.KFnȔpc-Y.4@~^FeK![bиWh2C7`C2+m̌x 2CgnkhA.搱 npT Q{PuqnK,ve?+s{o{orQڎ_y BVoO1s }z ǣ[ AMB[s'?,a\1 0"(wrSajW"Ŋ~"!m8W\p+`N& 0lKG^t*aCRҞcM&Hn,@IE<ίpγtȻw*>F8Ťn-Vв^eÃ۱;Xϋ S$mZ5ӀK>"u{ ʸv(en[R =4eQ ]k S]O7(7#XޖGhf"7c aef.6@Q*cV2 rܽ dqPu~~@'-עs`gSHH8 癊cIoLbHiS~nF0N96ϴ-Q+P&Z(X-J90c5 ~Fu SA7Eh_W0EL5ɶ{R_|8Dx>JHy8c&"R9x`&̝.Z[͋B*nCBrw̴,aGIrASG5kAZn>[x/^-?904fQHZbʕNzybalyz6fvql㧩~Ft03D "o) \ w"tBa^-h:xװ5*x]0]5I'&͏ YONA+v借ª@Dj k F=uO|mDe1zsݣ *b*)?V_%IjQ1Sy|M|, )ոo\CЌ*ƨzۓ?@ZXQp!¹@:5 KKu"1KYlG9G*gQdרJ0@Z(ra>!X73Qعv48U 90{3bE \V7BUxh F)4mihv`J!4 8"g дICמ|1 xJPCh!B.CcC{\III;Zv$˒j͔@n_2k"yx跨ޢ5j/K;LNKoSAe}dR=" zR5Gϙr uԻ,. ,.b[ ́w d^; btj…Dxy02Ƹ5Ž1QF:JD $%(O9OrXc_n!y_F LV!&Ij|^}y+!:_{= 7m%ǏC >cbkV8O&^ yX֒F o|Z2^f3Y,* /?gon-0Ҷ{i ¯raE%R_+3n 6L~JBuDa/LȰj1za 8/> YT5F X[_=r0Hqm|!@>/w|gAcoj\$ZlUuɟ񞒧)s/f6[$ (>a?;țLV3aRo3M4>ƑUE~ω*LD}f >u8i(m]g ias|{ dv_6>섟|~OsC ^c1$ &tJ([ wҙyA#>g)}BFT0ֺaL1 9bj qm.|o%f16-'̇'1aT(v%Ȃ:[DԳ#MXxRr *{o4u}* !.&VY>pzpRS/5qǺC]M7¶&nz.'^ʶRmD%c E8]' + $<~EdKJ1a|(F2d$PteJ1)Y̢F! u##abف(44Ir\BYlWUlVi#bBsOkP'Kx;H'3Xn8x[2ɸ۹.pE'&TA2Elnߴᱴak%x62i*&\gɚׄj#߸! <_gAsgk|D@}dh`014);ZRIJa31;GrgCn|3?F5/ŭb Q'z6~'>w9'`@(X WFm~ύ9ɳoAl b%N7  G柗E'qUA JȤ"o1` SH-"cd3 或ⵤ7;Ȟo'@ziƎ޴O\&j*f;1^wgu+7z6LNN݇ny/<)#"(@某9 "/p\O`_k]7l_3tջ#i>\ ^-1,thr:'!||>6hhD ?A\M:P(T)8.L}＞K Y8]>B_orqϓNQ:щ|βyug fJa9gYl=9WgAka̕YAa.k|oQ5k-io ާ◵tW,YG1:=wz͌^O-Nqe;cuBVL&JѪEϔv(K*XTiO`9΀$h)f1|ίm=s;'!Qၙa"Sܜ9 PeS_ҝ;ari0t+Ob$SUzX3r6{ei<FLu hDF58M;:,  /j%l@v{'[gEC+l>ܱ{`O*#3٦)&ȰЯl AV%PyKxp1voED1ݾH/ V)U%N +%C& r1v5) ص~ omL\!݀N?n5"]k5w&=8<ds"㥮U/&nײ|Zay:]:ȠOn9!ܹ[1yAܚڵ ӀAS7|ύT!S쑅{qӔ׌L)؆xJ9L#oZ؁*j2ͼY1 h\fW[D{mVuɺH -g`+ڵ̇ixƋGY#x'q\6i z!SEL#.GimķNbu{+]X}8ؖ 43C@lLpMՕΟXG% uHF5 cP[DuX#>,-2b=`÷ҖOOM$GpȌSVv|Y(sZPIVnv|Kv_lLↇ{o4C5Zlw}M@$G﷤)]D/b{ιpe%+9RH~1ey'^!%Q=u1+R4RP:=-w]qp& Wwuhf"N<@BLYڛJfԱ4zƓ}wS zFWbf T/4OTYʰ@9a̾I~kLqՄ.qN 6ۃumc7U7֬-HYb r3x77n:&u{ cLEwDͨ"lb\R+/+ZQtV=L;%&L]Gjs*_hB.UmtcXxaըw*CrIΧf0GC;"JAbAXmuc;o,t٭AfJW[Jy=Bƚp`ܒcW/IxװڈA bc4I'N:9;]'YQz(9lqhEv-.^0wïOo-P07C^F̫ GĢ"g}Xߺh; y.<-YjZ&Yb[eIx#Et5I;N` LNJr ^*hB_R/\Qz#5[&㱆mf)%>=$]JgWSIcLO`E)@w{P!]m<0!7,G#$'GEid)E(ߓZG٭q(I&%]г67gȔP˿əљ59$DjUEYZVy,"ih9lEUS9 Zrvxa;̞W]̮#Ncb9y/IE$; 69U9ߤ2ױ900ӊ@r ~2 QE$7F(.V|Π riU&E!Q8ŗE,uhV5,t[!W9AELV$ĥ7HzFǼ^G)~-p}l_UGfwv M˨^}I1 {i>} v8d=$j' V?m4F-q-}HGGN'O]#R0lRtTe'L=Q "C 988PҟI RQqfUsY$zϠ7N^4TL#;_{_ z-7cZr @.KR\f#w.>:D${I4w|%kuû_;$h(!qBlo!6l(#tOWZs7*ұif~r׹xj&XOhXblQG;W=Z g藘bXPIk@4\`3JgZCdB [̯8ˮEZRpNX9&%l(]4Re:\͡>ۚ["涳qn@ù ,? [ /`"׻ez!02G7\4X!f1  ;FL&`Z=kpi&pKmSy`z/*LO~:uPL^wuJ{TmFcyf,u./EȓmDؽ4bJ%P]`bOBF=r jM?[WaƟiZ-.*XIpFIUX-RƩru.m4`U#80wdlt*\ZTDyպق*]^pdH {2;-[׆rXi GŎ44XǽA^*);:=UA'=:^Sn%o6R+R2PGpNz~y:us>ٸsG=>>~&QS,+ITK2! D^:T;BhI598w71?wړRH_k^znp;>mԳWbmPcz8!cy}qUI%U2gīJ(?ŠzEٷWk\ @6ק:dZjI>-A[%PS[3@Hi} ȁM5Ȕc]q 钚f6ch sI/>:GdL@)*~KAN/{Vسk)٥a[bMHsqIP'P`Qz{nz}?{/ħ}*q( yLbμ5W2'DZWީű|Cb>1hEWX<*Fni?`yl C 5lxKR-ՐX!TmuKlnZfרF}Di-u3Y,&ek==Vov"vRAuNd͊S'GEk>*sX ңUk> !B'HxS8mZj%rd<3x8B!%O߱JlO$NS!^!7x+9PCcmCr镶1hyG'z<%> K_ۗ&ٱCGFV8' {u0hMpOa\2.8xvΈyO1mK5u|*?@87!+iªݶ ,* zFYA懃/r (5"/!+ێa>6kGI@p[@-֎.el3%/J)jqt ! z32F*oi4kWӟ)%3.|E7}(K;[}p@}Y1( maf;P];SCzls:¥9u10q=}=!>F|"(]8=ýD4$kzm:Q.cldkuZ6;]^Rqbo(;^()ĘJn@l/똀3P,>S)2w!tl)84_m3>vNEbج :TVmM' FB/_vxIl{ Xݲ%7n[SP-P>j_~6%,T^{cwFmf|z&*j}1|e'Nԡ|B(C`ul πDGn#0jD^Nbvs@zRؕ.5&{{4WQޙ cȤ%WtYkp 7eǂc[~ԧ;[:J,=%hC _;C¿'R:˛y CҞk9#14D'F:M7|S ?SӦcۛgB$j뻫 fvIK"x@KoDTP#C#<"AD[ؑBtiƵPzwD/mP"ҝ*p\F~zSi2s aA>u'Y>m1O;2(r01 iلHYglLbP( URODd.٭q=XDA>OQPk GkK}ks3AdCv Y+Թ/N^2<"GVrY #rA>,VRuGN,펚 0[c3Α%~Ȗ{4k\F::H<[>zU:t^6NבBE πR[~l{qk75]+nkQYGMܙT#?030,!n:#}ɼyBإ3zҖm?V`ˣEᄠ\ׇygO" $ptmYQظdQ"!*5ZQǩw(f {YĒA1{fj}W4CYp')pNqƽTp i(]bA !L93ֱ\Mww@F9Iζ;{hywKlv0&"%♳:]Z9.)W*z8F]'ɛjd" VNsgqАE6es":F3$r槪`K\fwg:o=qWWG9'q,P*5#N1?$裍#+D\YcOeI0cOFHWy"Yl]?rНe{VE AN/||r6E/).' 1W> ~ȩVmΪ 5IoQZ,W"Zs,n@U6>ۖnq,!ҷ{*s/_e83>OK=:K +TD@5RnҴK=Qc9;y_x ]'^ -N&oѣZ^⧀Hclv܈&4s·ce^Ǖ ǃ}/昢I?CM|~3h iMD%Bo+>(ţ=n֜y2MX|Vʲ+^{׿uYxT> ?t 2cb$DS*I]F_ QYhd, {H0㕁jRfmf)$wU I"*Z,Կ-.PM ԝyhD:MޘtC7Δ޶/x@ "Wv51hyI"BU;ii믫7oVK8Jb*d*nM.c?TWJA@ >0׼㳲6,-2Z}sKUn Gw|l˙Jt7!q<\ =W ]M۠}yq1.JʧKUTTP݇#ڞ%4z &+$qmJнs$}e+ZmLևt4fSӏ0i押4BAa\{*E%t} !{ap~c1ySՁcGH. *@pW:n?7ׅCJ{Zm-UA5-rqH + ҿ>C$°o1~ޓEx*cGt+3c\Tx@.}VSDd`GTvnXjp*:Tx\hm6 vo uAw9HI~⢘w(zO&J* =P$yoF5Y+U k2z~ uS+GdAÉsE[b~ 5; Wwd8{k`pM6:c K* YQPnf,F% 2T^#)AoV0 Ibҍ-&#W#%Z9^H{Vaؔr'G k)5,4T\?Gx1^s3 'T\F፨$|`,1p\#Gd Wν0aX1~ビ`x9rTw3ֿY}),֮F4mWHX`I0Ea3co>dJ Wp%Vt%i d0lrLn7yѤaQI`PSx+̛[?I„aFjiܗli]>;.Ǝ?i̓xG+'Z6fM|yXqg4SiK< b#^-n5D0!`2,~{7DCsvl](.O[T4gPӡ҅c͜K cY)/k;! P{Pn'/zLaJKD+U"MVV(8=y\} [탅LL,a/?RXmKFңdx.T=ѩby?Ix 2(v<شP[A7\w4G5P/j:To#vi[G9!TmHfa6FWx URv >hlUc{ښA:W6brd*JG.{HG7|񎓏(/(aVLa 4ٚQ5W/TI9~r4 W3*R頌=;.Ojj3s:0ztĵaaj.r"oj.R8!6o-ZvuDqt!iBN`8Q @q{t@ًIS#VR}%j6fP*_Q y#Ίnj 2'?H*NtȰl\ RROh[k?20Urɛ oh\D'c<ԁQ<+^6"w.ҿwL[wxH`xdO}ș!/g_T4!M: #i m읻i R > +֓$Tu˴H C a '9+\tQeAppJvD8Eqxq ,~u$:Ér~"R"%i4J_-/RI{cOWE#FUSo:M]PʴSBDc%{ ىshRV7[Xo/&oXz%8/Oڭwb2t&eVϽ ;ƭCu'# sJ*Oi)[)>G={dwZ17yfCpY5V sp6D7jaeBdck*K0<\qbE gW1M&E!A`my$_:ʟn;GJg0%_yH-UC8'_Pj B`>F*S*}+B4'i%3Y]mSFQE):Khv1p"SЏ3pyQTsyMLbwS 7@b1tbCfY6v{Kwvmm_;QZzU.h:=3SQ+'K _޸ ;hB^E*a$+!v=-Y2~\_!iBooP3O{F$Ip~}t>&N:u-}6kv1/U9Xr߉N7̥#'Q-U&|ŒTπd1(Pu9z* T }ie75Gf5Z"S7"ykݹx-^D @.At.y遖ɧMaI5w]uD{ "$r'd 23e|5ϼCjn9QbN#+>0ƎHZVNOт= Ekvjʾ{(Ñp$ ' e3ri?vji;V0d%U1E+3qkt96%JpeؽO_gpLlSlgs7%>I$^kwBWx )O'>IT(_i;O/ N5`C \x49B{D _"Br|XYK^#_!Yx/kXW4'o=qydV?*[깦+qf܊wX43 pJjIHgP`_} ?\#qE"i0ǯkgrd K:5oHgpb҉ugnQp.JtpA <3E"~T1S7`JedQ+.o,J{]x]#(3fLWM7cSH+YL]SdZXd? Na?̈́!3ڰRQy"ΊL+_>sӚ/10/=6zSaRN[,v3˖vΒ-yz2B?Zt=s)i,->i7~E;_7osHQ+ 猷+ [O3&);52ƤHʂ?_,]N眠DZ_@9J=w)HUIC54sVZf{AM%VJ%8L"ǷNʫ{>8&? Q^P=\q~}&Mqp޲XkgS0I{?.mpjkѭG]{2GD"y:ӮDTZrÑϊh^-׈mgšjqIjzҹ(/v^kbL Pݤ!KA(gmqp?˫C¨i8Z>ZU׽Q} gf☄{ؕڊe #pxjqo&noX">@ӺW5,2l:d=kQ_2r_2PqOqp GEof `qa TQ[#:/[X!TS=޶-H"A@ɬFWZ"myau!,K r'GO^TNrBV!u'_N~c\t#$n0\kH5DK27IRcXJdӠ_#_a(z^L~}Eg9dts& NDo_!n{*`9IfN؂WC}S}@w(WcXpfFBT81FB5t^^$'/f#1sƒ|%eC^ROŦ2_'@5hŀ!sE|?,%.. 62UBmY-~& z 9Uo7O |wAF aFJ8]Q6yC5 BXȷD Z/I}%d7lYMT)v>~$$U S%^ɜGr=8Fb^>zMToZst};zȃtN+FjDk5Q.NqO- =3;H{{25d-D  jkGoGyuTWQ>:ZiЮ w`J9p ˡJh 4X)b' yf7ul0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 cleartomark endstream endobj 39 0 obj << /Type/FontDescriptor /CapHeight 850 /Ascent 850 /Descent -200 /FontBBox[-30 -955 1185 779] /FontName/CMSY8 /ItalicAngle -14.035 /StemV 89 /FontFile 38 0 R /Flags 68 >> endobj 38 0 obj << /Length1 4310 /Length2 22093 /Length3 533 /Length 26936 >> stream %!PS-AdobeFont-1.1: CMSY8 1.0 %%CreationDate: 1991 Aug 15 07:22:10 % Copyright (C) 1997 American Mathematical Society. All Rights Reserved. 11 dict begin /FontInfo 7 dict dup begin /version (1.0) readonly def /Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def /FullName (CMSY8) readonly def /FamilyName (Computer Modern) readonly def /Weight (Medium) readonly def /ItalicAngle -14.035 def /isFixedPitch false def end readonly def /FontName /CMSY8 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def /Encoding 256 array 0 1 255 {1 index exch /.notdef put} for dup 161 /minus put dup 162 /periodcentered put dup 163 /multiply put dup 164 /asteriskmath put dup 165 /divide put dup 166 /diamondmath put dup 167 /plusminus put dup 168 /minusplus put dup 169 /circleplus put dup 170 /circleminus put dup 173 /circlemultiply put dup 174 /circledivide put dup 175 /circledot put dup 176 /circlecopyrt put dup 177 /openbullet put dup 178 /bullet put dup 179 /equivasymptotic put dup 180 /equivalence put dup 181 /reflexsubset put dup 182 /reflexsuperset put dup 183 /lessequal put dup 184 /greaterequal put dup 185 /precedesequal put dup 186 /followsequal put dup 187 /similar put dup 188 /approxequal put dup 189 /propersubset put dup 190 /propersuperset put dup 191 /lessmuch put dup 192 /greatermuch put dup 193 /precedes put dup 194 /follows put dup 195 /arrowleft put dup 196 /spade put dup 0 /minus put dup 1 /periodcentered put dup 2 /multiply put dup 3 /asteriskmath put dup 4 /divide put dup 5 /diamondmath put dup 6 /plusminus put dup 7 /minusplus put dup 8 /circleplus put dup 9 /circleminus put dup 10 /circlemultiply put dup 11 /circledivide put dup 12 /circledot put dup 13 /circlecopyrt put dup 14 /openbullet put dup 15 /bullet put dup 16 /equivasymptotic put dup 17 /equivalence put dup 18 /reflexsubset put dup 19 /reflexsuperset put dup 20 /lessequal put dup 21 /greaterequal put dup 22 /precedesequal put dup 23 /followsequal put dup 24 /similar put dup 25 /approxequal put dup 26 /propersubset put dup 27 /propersuperset put dup 28 /lessmuch put dup 29 /greatermuch put dup 30 /precedes put dup 31 /follows put dup 32 /arrowleft put dup 33 /arrowright put dup 34 /arrowup put dup 35 /arrowdown put dup 36 /arrowboth put dup 37 /arrownortheast put dup 38 /arrowsoutheast put dup 39 /similarequal put dup 40 /arrowdblleft put dup 41 /arrowdblright put dup 42 /arrowdblup put dup 43 /arrowdbldown put dup 44 /arrowdblboth put dup 45 /arrownorthwest put dup 46 /arrowsouthwest put dup 47 /proportional put dup 48 /prime put dup 49 /infinity put dup 50 /element put dup 51 /owner put dup 52 /triangle put dup 53 /triangleinv put dup 54 /negationslash put dup 55 /mapsto put dup 56 /universal put dup 57 /existential put dup 58 /logicalnot put dup 59 /emptyset put dup 60 /Rfractur put dup 61 /Ifractur put dup 62 /latticetop put dup 63 /perpendicular put dup 64 /aleph put dup 65 /A put dup 66 /B put dup 67 /C put dup 68 /D put dup 69 /E put dup 70 /F put dup 71 /G put dup 72 /H put dup 73 /I put dup 74 /J put dup 75 /K put dup 76 /L put dup 77 /M put dup 78 /N put dup 79 /O put dup 80 /P put dup 81 /Q put dup 82 /R put dup 83 /S put dup 84 /T put dup 85 /U put dup 86 /V put dup 87 /W put dup 88 /X put dup 89 /Y put dup 90 /Z put dup 91 /union put dup 92 /intersection put dup 93 /unionmulti put dup 94 /logicaland put dup 95 /logicalor put dup 96 /turnstileleft put dup 97 /turnstileright put dup 98 /floorleft put dup 99 /floorright put dup 100 /ceilingleft put dup 101 /ceilingright put dup 102 /braceleft put dup 103 /braceright put dup 104 /angbracketleft put dup 105 /angbracketright put dup 106 /bar put dup 107 /bardbl put dup 108 /arrowbothv put dup 109 /arrowdblbothv put dup 110 /backslash put dup 111 /wreathproduct put dup 112 /radical put dup 113 /coproduct put dup 114 /nabla put dup 115 /integral put dup 116 /unionsq put dup 117 /intersectionsq put dup 118 /subsetsqequal put dup 119 /supersetsqequal put dup 120 /section put dup 121 /dagger put dup 122 /daggerdbl put dup 123 /paragraph put dup 124 /club put dup 125 /diamond put dup 126 /heart put dup 127 /spade put dup 128 /arrowleft put readonly def /FontBBox{-30 -955 1185 779}readonly def /UniqueID 5000818 def currentdict end currentfile eexec i_,+`"Wٰ'Z1NςRoN]+,󡈙5Н; lƸKprKn YOu^ a4B0P$~MMmv0vV )6 6 7N!$IE9aJg%d^kQ G20,D+4~Q|w^e1v|0Sp;K ']da{$K**o)&Fy Ětcz~v$jg&qA+sVt؆[>1rm;(Fxjf|uJm+#f`xB-H;U^* O[A[;ސIzG<-*螨wt2*%PNϜbI~^n2r Q{ؘwYXEFt2o6ڐCn6< (,1diw`z`,cZ2ݽ $2!ak/&;)zygqeuVBcŗG@qD_V4+癪qiЃ GQ"5Ps9r7x]7eBïzG.\X,~I$=J/9el_ŅAͽH 2NHhZ` (1h_!F= X)kʦzINt1< c?cB½OK$l/-zϛ $̹%$oE>0qr݉q]Ä%Mjp z>-tn4og9)05~UF J`-K}G!765wF`C1UMՔ=_%K]?qfN_Å'ʍ7%5dNGl~W%=9:(DC5IP01X."¿ $Z^ _TP3kiOw;? ǧn'-*1㷚g[?()nYQ΋sA <e8e# 7J~MEM<.nfN3@2%uJ.QXEZ2=N^qWxxp%.U|@Bqyhmh\O8R BR]Vc |fҏNV}+P?Mͩ4p!=9{1*#ɩ.#m^, TȚ T/EY]?^ O #"bNaxd?k&~+1()%u2+Ӯ(RGPe ¬>Gde&mvƇܡdNsbF9j5 R{pdT\jRxa xě jUZIϴC<ݝSP c>?_˧EI\W;|Coh9Dm xJ%%Ap>d?wMSKrůK3j㹖c Y;~Z)/ݲ FE-Lx<_m60 :IhCr솻n$h&n'-Mug5Oy>QSbɕR8d~y^T@ug&7.Hȹ}抋QH7Mxu{Cfj(FyCNJAn^C˒ Mg/: \ q߰|Är@i{ bo35_c/=D)ۡ@t$~;:'GbbvI@"(9+X!i.>@C)4F@.Pm=W %KͣQwqWk,n6gwI! )BX|ȱpWBga.G 8 `54Y{>37G}oM #s}K\C(AƙP?V}/ vs 'M _ Nʅz#${(f6O"3&nZ̞: L)\Rn}c ]ji0 R}L|Bv(4eIs 7&"3s ah.Oa U^(,A]nЙA=$qT/pEx* ] ;EZ.z_Tp:5D>'"JH׈ɸJy!g1kRH73Y/‰*?`zzBNj{e0(|}!"fR/FgBXPee /{4e6I8W^t:S$'ĸ͊2&`\sRS5Y-o)Ƚ/ٯ}pJh&HX%QmC8]OUEY7"=Lf>aÄ%&z.l~L17q'#·n6)om7|7aȥTOTgz:9 Lp ^;@-xCK ~H7I6P<4ߪ2fiԓ txKiQs3SQ8yЎ8Ţ&w䦢Ғ}}UkC̘eJCGHwU 4[z, m^@XʴiBXyX3rhLXS~/sf.ĺDi4D5vmA.pclK2 yPiUam;Uxr;d$a=snd[Z.ͺ'FX}5vg%tT8eR[HK:ҞJ7ۍ s/Q]eN~' ;eSтT5TA+$m@~Уۢ&T=0ۜ0K/ӈbJLkvi=KJqS1_ "(:uXZp5-56xPWUVX0O  Ix?hWSJcvayɬ$~Rt_ iu@&qV {`/(xϝ>Z{uTgBi( F N,KurNn˾lCcP]A-u3k^MRd ILGphN atΉMqy ь&;a~3{m!6x ^޷A ͬDNV\3J5תN2qMq+Zl=ĉ[-?9ElW3SKxCX)l4[WuL` d@kz[0R DJgVnM?%ncywٿLL s{/Sc0iS4]._ѿc45ώ^݄ >?O4gjmhGٍI{ ^]9J XwTO%b'AhW2A 蘕y"; q{t̄߶%%B6:pƽ,eȸ*'1((r @@7wu8Ѧ({je;l+P.#3GΏu߷ -F҇뚧}xgXi )zm9(g%E<.\*Zr?n=;6-)rw-2`\ާсũ}FBjwcGB]a! |rw(aĔu$_WL s]K lCfD>^f("v7\^zmmFT 챨09xh3Br1W윺C=}7'\hp̔T.mߧA:>dѹp W㟆BZϼTٽ `tc=oeaKH~bxֆOn6wTa {Yi|_2[w\s0rf1f3c5-m&~e3Zb `~Y`t3v 6`޲/rv>}[.V8&4hȍD8}4&q]xZvո&"H:-kSs̾zV7Wk .W< F}<1=mйE[O/ɡ}IOc828Qu!ы":0=Bsm|54`7٨<_u e_RwB' sgO|gRj RM=ϯuN+\΁{$Ulo]@Ҫ֡M!tWWH,yA>.~ ]Sze3*-8bm|bly?}$|<=%ijcf|)j9EvO\'E*g}A.{A-ĂkL -;}-l.;YLphzn[&cA2TΖn:&\7KJCGq~XpA*.'Dd<u)T}@iJ|:fXq>z9&w>!ws"!mYFjQ?ٮR]Qfz^V8$`j03!>^!yfVBQ$,:PI'[ޥFū\(gk@JX Uo3UotݤGZ=՞tN _|\6L+mɍ SW]@ 0DLFG/I)"ebeբGAojac]!0OCrAΣ5 4=Dl7mOOBJYbXs;9j4tTԕr3NOr<ŧBPp:,?*9aI}yֆB|M*y`5X.b%qWɛ PLƄ8-#_Ḣ5=柑dNL=\< ,SJ JMJO`DMcj>fFaa=Zɚ6CgO\˅ hg|Ŷ:CqoI&51^|ME>ʁAɜMYc9T' 70d" po| nMm4~WƜPP??<6%6EJVgcR|C^r(XYb.${N pI9Vwy] y[_ti}}ίC+\bIwk_`UI|@|rPa{̗zyx\Wb(Z <2P$W@9Q@Onsص.f"A֙MFu,~ν%.:CQ`ek$.f _;GQn%4xi2h@:6 H[m01RubO}_DJ!1[25\=<9.hN+ *PnP_4H1b:kQCƯ /qTE{EPϰjK`}Fs7373r L™pļDtc3]\5e@!5GpZG4\ + 3iC0˨~DphH,e萔V8dʧPy(i.`  zRPPw:Dr'n v I͍ؠEjY,BֈVzܕm_x>Tl67_b(Rͫ 4 2 K;z c s%*P6(T0:j%}iD" lpfi04)f3$bVl1Ff@~ t8PPw{9wrG- ]j3d$6睤Bt natBAvg`; kkL0N>T!ݐ829 1K9^ٰ˚9^ފ4StMCX+W\0*L4dU;g:m]5MZLWt .DŽTx%q4'P޲%KЏJ34ZlȞ _N!O?p"C*׵(ߴU#cV׭ bR$W" =B M/cSLœrW . tOʾ^`sҹgh2J:K0%!I >$< EDي|P.[:^Oe"U`$K;}R㵌g>p±N)Ζ +ɟ7a:ʄԊR!frTjgXMC (E{}h@Of6Bo=S(SmEH4N\&^r1q !kȈOxmJV TQ|~[i(SW+Jkv;+fx2/r<41%8y\w\TǟbPQD)Sit^i)]B@ͫo!c$BLmRR2DŽ[2lݫO%!8kl*>~B(N,HyiFbF#Ln!N~@ބRv~HL]m. 薠㥵8F%lGGθ`Hex6^!YZɪkST gMa9E>̿IToiH.9zpMmht6l'鬠$(Fte:ߔxP_qh![Mq7JP/7c=$=uv.oo@q}d`CX,$ j[*n{D-2kڐ˺j. I ^\G~jVK``N'Ȧ3LCxh2B.j˲hrC D/[9˫*Ȏo9aN\Gz*EX6aGw < {}뵐<^pP+{ #R-'M6`mʨHrfr4V v=pe+5Y]gnٯgț^XʲcD!cv 15뱚SHM -ɕ{ Y*Р;~Vx2vU04آtsǻdW0c'v3cV3S˷aL%4k`6\q+ZCF. C`Usg!u*zU߉uxYNd90  +o`gsj*T(ͳ^UIӊxn "}5+prDMEFҌkq~w*:{ chu5Ɲn hy_//݄DwPh@cc/|mX _ ^p\cӜ>4 c]T!vf67w;I+e7fCӱ,q|JijvJ+ο:.PEQOX^å\o VOPJzP+߾ΗB n유'jW$uz,.D5l -iğDqNx%SR؉<`D׭^_/`SSsPJ9red2]V\,Lm=̈_i;\dh6'֓J>b;eMoҒ)/UݸcX<@_X{Q~XN0} qj˅C+b2ޱ&SɌ3r4թ'Ù7ee#ʓZSyƪLPN5a>i1s.1O Z &~'%П쒢lomyj_GRwp9 >G\OO$Bwun`nU"BT`[+T.' :|qOuem3g8d'Z4mD^shYm\fr3U|ax$Qi%)"hP~ep}7D$ &8Hm JnOU'amվC= 38 #Ξ6mcB'\[4y5hVbL<ܨ<*{x|ؓ}5[6ft/Q_z0ᦁ !)c{U b!Fm0;D)/wN Bn?i~(,w-L }TP/"lgW1~h1І[\S\%ޜr1K%{+Ș>rmH[PC:ыbQ[YdKfG)Or0ҳvJ> pظ:NRPlUVӠ{^̇r]Kb"HF7btHp8Y'aJݪl )@lNB+#8b!!YF407psp %7ӡ NW m_Sg{N ߭@*&w#mj*%jy1h-[5H?P?>Mӗ˹zr$<(xĿi3H")ԛCMPxvBsqlvTk+nSfOh1*Q @sPNr]sa#x,9p85 }2Nj4o݋5(T[^9TA%ۜ#}/ZƐ5aڒv(O~j H6S픦= ^?a{cu'm%qQP>E/ϗX0WϖIsF:N?PݾqWڒe/{M<4( "2 soA(k08zނZup)# XV[qiF%z>]>Y/Y߈S;AUX\WxČI,T'a6ܭ)pHJSB9}$q>k4AgSoH8)lb!G۶n[=yv٨O%Lv'ڑX0Jld BBH߾]E%JHyɺNJ &h8$[t?-,Aƌc %3=8[BhB~k&CЫÍo)Q[V ٘7:kwq7WfI'nbvniݒ"CU0a`k/FCގAX⒉q^x1¶f2*"+8 p0ͣ|NF']r '+)_6 KW%3%o#jJ C4OdIEiD &KGuE'Yi"DIm95 qQޤq-De+2\!iĬV%^OLi X$(FCavd4y&~'џAc1#E[Xu,sqݙ}wn-Όn6] 9eB܊9d{!>V;n$RxT 刦6qhϋ +· [˜YˇieHdW8If+mШJQ7 d[F9\A6;c\)ShoH2} P9A}2B~)"UZ[- #U1Ͱ7i7r*nMtLK=o]+oBsmD̖8DE*ƹI\$'_ `_lm&$>xT+O Q ʬcS8nY`1f/z`Y64,LwJ}KQiiw`qj1}k#*[XK*Į`ޗ@G^5 T"Y3:/)} fiY70VuJ*7Qc"qrT>C)U}YsxQΌܖcxE^e#Z\I b^9 C L>l8 ˬW=)cFl6ќ UrË$4I-Gz$F#-2(nϤJ^QXDmi:)|Dm-yV|֩nC7-*1 R[\P|S} iѩ$(m<0t-W{5'9PC6niܠDž 1=17I5j8f d $~(S}%~:v5SW0].].G,GŰWM\ rZ,yUd0L2ʆ*(v܄Z))`@o6 Rq^8g2?B'Ǩǡ}PG6aPz$34~NX&`8*/_[}ϳ h9`"uY-aTZ/ qcȔcMд %7 ?{̵W2vPp`ԝ>E]:DB uozUx̘yL5ޱifˡLy̯3m1شbssp >-N9ܣY=j&G{2SY]9jc]`'>,tCo;2eq/AjL|(ޚVL +"G-uE1ig(K=%cW޺y Qk;rK.hᱞId95-kZ4iz !"E5@DX[QZ8%Lx@i*+z z9Q~#*ZV7k*tDD꿄˳k]pϫ6n\r9o^Yݼ*7 xBwH$^KCEGI̅ ]ks*6}ClA0_8It@=.ߝkq qT$s Ý曐FyC3kPI7MRTcCyJC)>]]|V*”*3ը³V2$580:+Srz&[DySE}ku LWݩ 0AeeGoF7a8#.LS2XPRg sdZB# LO`q[E瘔N*HD!a.W]J4̱\n gJYPjMuΝ%afPr֓%NC3/'IXcktcz>Xh }5̈́is(*T+^Ui3 8*}`p}°3mM[\9Pޱq}6Q\hF鈎`tKyKd4Yk=8=,ڂrKhZP,V"}622{6(PKG{ut}=i?^:*['O.F ~حrgp99ڸh< 主|aˋ}sf>k\t q&n5^I=4P /}w@mHiR/#{wܕ>Jg>vi6s@9[e;&6Нݼ% NIy%/ׯd6defȐYh%o{2%XI ^.ѓF}V\>/{jp*Ead3" yW((%J3kⅪx3[!Ǎuyi'>~JKe-M.EStFl ZDGk;u]*:+AULSgV-g7McD/7bNw6@\<4h QtwJY@T)2O3 |teu\l$t;|q%}!swm;|Fum[KuzkN 3lyCmc8 i? U'Fbt3>.*72k֙ˊ-ɠNrhk_b'1 wU a#h, ?I9ܥq F~av:bF!csFs8AZ<Πub1^rr5jnAr)\XbuI8mͥZ5Tfv/x[߈G%GCJ_Ws[QDŎjnP A֣+9"^҃ҧu^2nWk2Zw0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 cleartomark endstream endobj 43 0 obj << /Type/FontDescriptor /CapHeight 850 /Ascent 850 /Descent -200 /FontBBox[-30 -958 1146 777] /FontName/CMSY9 /ItalicAngle -14.035 /StemV 87 /FontFile 42 0 R /Flags 68 >> endobj 42 0 obj << /Length1 4310 /Length2 22083 /Length3 533 /Length 26926 >> stream %!PS-AdobeFont-1.1: CMSY9 1.0 %%CreationDate: 1991 Aug 15 07:22:27 % Copyright (C) 1997 American Mathematical Society. All Rights Reserved. 11 dict begin /FontInfo 7 dict dup begin /version (1.0) readonly def /Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def /FullName (CMSY9) readonly def /FamilyName (Computer Modern) readonly def /Weight (Medium) readonly def /ItalicAngle -14.035 def /isFixedPitch false def end readonly def /FontName /CMSY9 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def /Encoding 256 array 0 1 255 {1 index exch /.notdef put} for dup 161 /minus put dup 162 /periodcentered put dup 163 /multiply put dup 164 /asteriskmath put dup 165 /divide put dup 166 /diamondmath put dup 167 /plusminus put dup 168 /minusplus put dup 169 /circleplus put dup 170 /circleminus put dup 173 /circlemultiply put dup 174 /circledivide put dup 175 /circledot put dup 176 /circlecopyrt put dup 177 /openbullet put dup 178 /bullet put dup 179 /equivasymptotic put dup 180 /equivalence put dup 181 /reflexsubset put dup 182 /reflexsuperset put dup 183 /lessequal put dup 184 /greaterequal put dup 185 /precedesequal put dup 186 /followsequal put dup 187 /similar put dup 188 /approxequal put dup 189 /propersubset put dup 190 /propersuperset put dup 191 /lessmuch put dup 192 /greatermuch put dup 193 /precedes put dup 194 /follows put dup 195 /arrowleft put dup 196 /spade put dup 0 /minus put dup 1 /periodcentered put dup 2 /multiply put dup 3 /asteriskmath put dup 4 /divide put dup 5 /diamondmath put dup 6 /plusminus put dup 7 /minusplus put dup 8 /circleplus put dup 9 /circleminus put dup 10 /circlemultiply put dup 11 /circledivide put dup 12 /circledot put dup 13 /circlecopyrt put dup 14 /openbullet put dup 15 /bullet put dup 16 /equivasymptotic put dup 17 /equivalence put dup 18 /reflexsubset put dup 19 /reflexsuperset put dup 20 /lessequal put dup 21 /greaterequal put dup 22 /precedesequal put dup 23 /followsequal put dup 24 /similar put dup 25 /approxequal put dup 26 /propersubset put dup 27 /propersuperset put dup 28 /lessmuch put dup 29 /greatermuch put dup 30 /precedes put dup 31 /follows put dup 32 /arrowleft put dup 33 /arrowright put dup 34 /arrowup put dup 35 /arrowdown put dup 36 /arrowboth put dup 37 /arrownortheast put dup 38 /arrowsoutheast put dup 39 /similarequal put dup 40 /arrowdblleft put dup 41 /arrowdblright put dup 42 /arrowdblup put dup 43 /arrowdbldown put dup 44 /arrowdblboth put dup 45 /arrownorthwest put dup 46 /arrowsouthwest put dup 47 /proportional put dup 48 /prime put dup 49 /infinity put dup 50 /element put dup 51 /owner put dup 52 /triangle put dup 53 /triangleinv put dup 54 /negationslash put dup 55 /mapsto put dup 56 /universal put dup 57 /existential put dup 58 /logicalnot put dup 59 /emptyset put dup 60 /Rfractur put dup 61 /Ifractur put dup 62 /latticetop put dup 63 /perpendicular put dup 64 /aleph put dup 65 /A put dup 66 /B put dup 67 /C put dup 68 /D put dup 69 /E put dup 70 /F put dup 71 /G put dup 72 /H put dup 73 /I put dup 74 /J put dup 75 /K put dup 76 /L put dup 77 /M put dup 78 /N put dup 79 /O put dup 80 /P put dup 81 /Q put dup 82 /R put dup 83 /S put dup 84 /T put dup 85 /U put dup 86 /V put dup 87 /W put dup 88 /X put dup 89 /Y put dup 90 /Z put dup 91 /union put dup 92 /intersection put dup 93 /unionmulti put dup 94 /logicaland put dup 95 /logicalor put dup 96 /turnstileleft put dup 97 /turnstileright put dup 98 /floorleft put dup 99 /floorright put dup 100 /ceilingleft put dup 101 /ceilingright put dup 102 /braceleft put dup 103 /braceright put dup 104 /angbracketleft put dup 105 /angbracketright put dup 106 /bar put dup 107 /bardbl put dup 108 /arrowbothv put dup 109 /arrowdblbothv put dup 110 /backslash put dup 111 /wreathproduct put dup 112 /radical put dup 113 /coproduct put dup 114 /nabla put dup 115 /integral put dup 116 /unionsq put dup 117 /intersectionsq put dup 118 /subsetsqequal put dup 119 /supersetsqequal put dup 120 /section put dup 121 /dagger put dup 122 /daggerdbl put dup 123 /paragraph put dup 124 /club put dup 125 /diamond put dup 126 /heart put dup 127 /spade put dup 128 /arrowleft put readonly def /FontBBox{-30 -958 1146 777}readonly def /UniqueID 5000819 def currentdict end currentfile eexec i_,+`"Wٰ'Z1NςRoN]+,󡈙5Н; lƸ:(1Zz fT%|#!q'/:;Ę=of0"ީ^ƫ*R|** GyMH_ij|Y cd8л&_ c;8t*"/ DFF c6swi'?#wBs`lt 9AQR~@T%&MWevń뿨eEynd LmwCS6XͲ~֥.LgOo?~]Z&m (aE=LݾAl6}ЦE=f]TsN^ X/Y~(|UKKrQ#0 Iarw UAʄoվ4Mc4}qf%Q@$pzi%\5g:mK ?[Yqbo9>迶,+6ݺ[aejGmkIqwdpV>!N"NE YS]jw 㾍ËѼb3hJ觙nO7S˴ Ff!7- ԪIșPchg!^J.•~=5JKE+-KqtN;3=9"gu^%x p8-c',U·O)aQS me!'*G<…4vҫ B̏xzder0P"[oEwd7yn=XAu\!٥Y!E`J)>$J;ppRVn>UO :wK:j7aq5 D tB> 刕碶_D5@q>Ǩo6Էt|/D!6@TY>@:!;gB.h 9XK0xhluK\Ε@[s EBh_oas뺞2mK8tN2;2D*mF;yB(ϴeYp'ϣ5t^6@fa6a.vBU ^K?Ļ '4IYᑧ~xJSmj!qjU) KY2~!O&$>h?>pG9#-,n4/ 0:EY-K("Ob).'0` pVӠn V$FMf1DV)WTNS9PN nвD#GEwuA v\»'؆&TljmDV)6m'Z,S@E:øY.(rb_Yl$!,<|R1Dw⸆w|Ip.#`sMNJИO}X@%/9Nn]3 UxtpjșuQԼu qs ˉ'JTi~laj- 蚟3uk ސPl=QB`H-)r)l]OLv5moYXσH%w1(gj%'4j˃:ICL4tm`rwK){ᜠf+,4!Y"gp[HifOhЛis ?!t\CZ@qۆlHV8hR0˔7`d(T={9'E7n41Թ.1%,ĺOXmj_ 䦿oY偑(?gi66ǃҁST$#I6T~7垖.xJ4 +^X}efxi|~!Y]F-<\dgԕ'wU."'+KݒUF;O븀!Xmr*mstϽXZ}:#ǎR>6EJVޓCˉV}K5,mnÜ䞁g)6>z" EMfc!OxP2^t&idvx+;^I4)ԗ9K+T(&ᄂ%'_{ 3:MX$R|1_Hͪ҆nFZޤy=n08drI݈uYW=],bS7X٣4nrTվ㥛n&ŧWMS7t.\#ZNK17k,AÃ8Ƶ *|JH\J]~ɿyjoSt_\;TΑ ˺= CGX4ы; N+4ҫ1sċxb RUgk㫩Gɧ\ A}?C%( ^N!,ԘyOUJ{!O.Q$^.Fs c_*gߦ_dEA] C WKV]SJ1Yvq >=@(e$na7Kƞ1u`3]iRĦoױ.A!?\s! Vr=R#fFwUmM$% ]oaჀq;{|pS)F&Ya1LӸb3Y8x0)ou4I1&e YˁLkk6\*<9:%Δ􀑁S ZWAڝ.6,O. 0L]ctv(?{IM'OG0zJFV*bxC\i^O:1gr^UV9JE&v,D92g!eX~>ThvDϰ2UJH&+t:R3%1豼kr yapn_ܺŵTR˗kqKW@`ky7wJs8_:rL<Ȣa3PB{.އIۜ+f6I4~%O.̂a2qїQX`F~l&Dn3ɠ{_-zU;RoS :0W1:&[= N=>C9>ӈLڴTWDa[ngh$XSZ,t ?\3YO? }tT  6^jmo6]Qvy+mWi^5bʭDSq毗͸ṙJ.-rdwXFnۡJj3Qt7 Zhn!4;L5ԨQu[X=+ fʜQcrC FjD2m4W>NCD^Ѥf1=uy4! ZP:m1^lun%H ,#w QWV ? ? տ z60k 4?yAǶ^"2-w.aĕ"A4 ). _/ٽIUz&1 ;/ BѪuq5/F{2/ ƴ2'_[oKV$d=c~C-jq҃,;q *wǞ1QI+AF9Rxˣ?wAjU T(ٌR=D, m'$B-J{/u]ùN.~ 2b+ꫣ Qu!tB/mzL?W2 #R-/m5' ՒZ J0י1Oj2"Zf%w$~\U ?N>(ķXBVHWg+ ϙmu*]r O1ʹVfĭضvT:f)%:Bc%,e$ޭ&O֎3 ؾB#`CgFow[;,VP@X$K"/|Zۄ8}}ԧqEmj3P=VnK7@ sDDeEB>([$kՅRfo&Ul>PkM*4N1CxHnzךP5F`$lE! : qa$ X vO!a-;"(n(4nrdp6m@:_})we΅²x"j4У?嵻0p -[)a 3AjR)_/"0U'.xbU&6vknepdvr„fGWݎ]hy%F4ZXcv·='Π&Sދu᳷E^>/xz^:/zrb7,zn;ZLiq ;FcX,[tA1$Y8`?sfB4>0`KJ5@TlӰh֬AK":>~, sSC`~Ysl1ʇO^ȃTW rѝXdlC`ſH+}a>oIrXBR0QIj`[}b*k38oJ(ɡ#R.JJ \< H.,X~(&<κl3̎ =ii|)7ʮTo 4qf f< m3d-:]b?D3i2%%+nM 7iUd.JXDt*zGz̐'(dS^͚8"ͶףJio3Q!b+q48 cpuU{ve\a,n@$qi㘏BEymnI^ƿ.Ú1.Xpc]ez^.^FWi7Ѱ?9H[Ѝšf\\|Xsu& b2BQ/ab' ʫ9*?D IYV!jՑ VCqe-k*a'u%4,\xvˇףVEY 0-hzQjN+^iO# }2SBbs%` $xn "6~oV^^2]_fn?qfH SK&5n e?\yv_|nsԌ$|+v^$ RID_p=d  EO5 ^B0YxO?2Tjl&Tu:Nm;Bj{9- /6rA*@\eft0.R҂3ĬCXJM 1»= =w]`y>N}r/wTxQهjaEzBqx:@Ȳ%M./ByYŻ:):鑗؄En|.jƞQL*x_^b!H 4Ki`n egC1#N_bsVrȰ``[T ]䮜%Xk(wDv.q1%ZD(R%ECg}Y ˯ r4m #ke7ޭjgMJm{fjt*]˳ts,1߁&aBhTrY818&"e*@'taLV~hb#rꗾ#-j~i;>K`JAK(0K"^>bt?^hOU]8n@AZphP{cMN/+;X?E1vk9\tfj Pά4=Yvf|GxP\YxSS so!Ccɰc\\IR1O˛ cZϳ_oBKóI!;w+BHW#Ej^m) d!sV}NSĥ{Xpulhu)PB8򧙟Ap(u@ =gcoSl-/w' ՉdGc=I`1ox1'৳::0,}>ao36 u{j;ӍO!eM<읇[KCOC*.;+aS'2O( Ǫr{ZR~zŐ߹.|Xu2[~DUOqqgK#<12S1\vƕЉ)M:WJrTԂCnxT(|iqӼ \%xdW|Мt2.׶!TS^iQfQO8`Ҹ{Y{:qĄ5QOf 5 O¾\/ 4@ 6 %S,ۨZ"Bzњq`DxM۟5 3 /s"Uǂ3X]A8WCb$="Q쭸(gU3u>'p#)qP0K:{Gc|rEG{)DTP:駑B,߳lqy('&&:U^E.Y$thN7DI=M&auMqhʵa#ڦdtIӡ(X _fVr]-נ4 W.K@偯tpekۡ9*kt #QL!A-˹pRjf*bmlT(+yLfZ8M~iAP!Y]|j%,wx7o4U{xv| Ż}M9c2WD8bǡPYѓ9]ϫ;a>ܾ g ([Mv:bg/cpXș2#j:uLa3V!q'}9v͌R׎\9:, fB# ?izult>7Ui[WܙW AqQf!j|XB#osbwA~J(3aggD%-iZ)Ke{aSz(Bט?j|{tGLf@]-h_Y!<ceD2:Y&u1k •ơUހ 4B:AwXsU~Kl"K࿲z}M;x8mx] N,oHF ضP`^®{U:L#OW#5 GWB;MiֻTV#]Ey|3=ІשǽA".1p4@ 3IUִQ ʮ;P $AҢUFpl 01U#p -8u7`Jrg^)XoGAI3ZLAЉlvG%]_#?t2oa~` *qx3~['$[9 $d64i1574yGV:r}P!\N -. 8ַ npaWG /<9՟^lt==7%]2TuOdt\ o$rFBe]EBGõ 4CPC|j_m} 4Ia)Q_G^YB7wbW"%Х RpکwI-č'ķ<ϜU0| ҍTLh>ţOPZY6hHgi3A[IS1`k[\nV%Jl4E ?i:`Mi}D=sZ\F8 A3q_a[E?"LIH7OSX@6L/]n~xQ)"u]ca z}3(FWxM, ]]F}ו\D?=r xOF9z\A$\ԭ&Kg!Jeᠢ5䦀%E%EݛsygoC쀞ߞq/+.bAAqD[%$:b87d'aр~.(66acEH1č[TU}itkV:*j}|0}3EfoĊtgp,Mnq* blg獃R*ok U d F6t!DTQ_\ +S;A2Ƶ뻨x돹EL!/Q.H1_* DʋnNxW6o"Ed ;O"S6eMfKAjl$mtKys\W<۝JCLӅ٫(H)~E _p -lÂɆayAwsVgSRGL9n,' a?1/M:hF륙ꊏdSB2HLzFv.h9ǣ GxM(XS*r,$+%IMmԑ3 "%Wbp-M ԩrh t6ѼOj?]_ "5ou Nš:\KHG8lw 5&?Doݮ s.IcԂ!pAmwc&f61vb[e5R((AcZ|Ѣ9rtK B@BS'SzԵ.F(PInM.ȲNb2kH~G?kշq28 f3<TyuM3`S{ Gel2u&06U}5R\?lt1XQSzim;>i"cɵj/T\ұf(1o슴u'm تn|U 7)RJ RIҋTĪ(2Q>V(w&0\ WKu1@kyf'撵4jY˓(llF;B 䳻}^*]`!Ӌy2ݥ? +jץ/dd*}[~D+PzA">VxEHW<ȫG%ަ*4p{e:9Mjjݹwd(|ۃz&eDf .%OaHPYzro9zN-v {;ÛŒ j츖Em496Ub-8e{?U7P->G] Iwf!>ey &@~j?;>jqj P^넁ى&ry Nɢ9! 8>F|b#z[baL~[߻%<IG Лz c :btXg/vQ=&F?8jX1IfEm MeXFf^qXEu4)uZEE,YM$oPR;mu)I7ۉdq;fY?M㪛.h`zT^[ e *&2b*7܋s4(gKarNWsc5ߝ%nΩXi'ubOvu!oJd3[GNH[utA`1W iO6/.3{1tNl @Bi5Hf3 FL =y6@'B$ $N2;2N<ނiE꽎{#&#}Az&ԡ0I4~/HPtP'<CH;y$ณ,q5K8Axq>u6Juǹc }Ufzϡ=m#I%$y_P" oŽt9-HM%Fj )QT!#.TX$srm\%9srO>%}]@JvzV3MI}`Bq/U@RdUPО\DcB 7iY< rNUN0?dJ@jqs`I:Ų#:h_`gf4*L0%\*J(6_1ͻ#W>dF4*s=Cǣ~c[d/Tӊ :0nI9Ңa=*_&CWm5 ʒV xgX \{7ef؉?OB^tpdZ}ۋ.̋7u$q<`?]ǎ.I Jb,MM8 E5a%Nڊ1?J|2ҡb7\MWyu,J IOȹga5$y1UxrPBÀ5p[[F;uN:#Cr1T\E$FW~u _l.k+_BoQ2&KCNZ;L8j:JM)N$PÔՑڎ?X"0rڽSK(uOYNډ h"2fH߭Ɯ9E+|K+;}pt_dd{`8ک+g+#P$s'?XT>Ac(>L4d,}s\L.&QLMqjonL6FՇo2RHm# xyI,dbB~YӮ&5!, 0).yC|u:;WX) 6KNX ?9$eLQM蓝ap,@cI 9O7g*}+9e{ăZ@CV͗$d*a3Ȟ:4aՆ|3b BiAaB/DCg~Q5|!!f.,|jJ'8&迓 Q8땷J?b1f$g"!Mr W6J)ҚYdc8Wt`M>@n$bj"F)Qk"-:c+һ_íۤ`9"{`S?f:Xiux>T;?W]XwJ|,1B>3PB[^CJi^O.(Uȥtt|m}j!pÍĻ(T-S\Ag++[8K`[ .?\3˂xØɚݣ*vY D KqtOnLRKKnG AvН\P{8}l%ǃC1R!T'j|>v5\?b(WEێO7iXL [;^^ڧ5cwқ ;Gשx2*ƂK؛UB)hW}7u9<~̕jM: ɖD0J/yd1O,6lH[V +3_q:rZPT?*Q6Xe:ƯGZi[҃FT`/B!ZOd:fvwlGݎaXݐ**&RbV.k[ {L. J=%Nږnuq4~6(C )QjQʲؙL^P2P HTE#7x[ŭ%ƫҩ%Y:䯚U]myڋ=8K *Zq?>X4?FSC_qcwV&\g쾜\ ٕ('< L)fЧKW̺4*P_.4~Y%[[HɂL@R:+.;]M, gZ`#Uq'O>Jm9 aJ#´;#gǭ7m | ]6py:V_y w-k:Kև(L\c]8p"A 5g A X<~,'YAa?zhBgF2ՌO+-q|eGͦ{RDEo%NK#y[?EvLs:n7"-孷.R:s W<*-dCd+  Sɛ`wV AFj c6L$gf!f u랸ΝcE(3>e$oܝennIng,4E)Z7 ?QJnP $>ѓkaYe,%'=SK[:QI^(FxDz¼|Q`I"xӝCb<5g(qs˺lu2_# .7Pv)>^d%@)2nkVUqS?W8=zP.SyP->A|ںJm* vB~Lvu=PmbU3*"˂Sٽjžx.A =8< Rt,gtLԁ鮵 +DžwP%ʄ뤫N']Wq. ghb1 cԭ{P݄\l\DU?XY֍4ve5*(+vމDNv-DLSj8L7 [&>ؗ>ٮn{Yhr Zˆ"}A"j{**ra(jQP2n-w%ہqɜ2o#+rMrVA:Ѓk!sİH e wаs"7ߨ#߬(ݙiuf?Ȏ)(:q~czPI TYN>sD@ 'Q˹933\UL'7zF.*Keꣅ#;lGs]Fի1vM9RFCqKDžc '9#P<ݼ?`S'YL ?m2x;gmӰ(ږW'5ߡB`z٥#;jUzܭ٨6j6N3/"FO'?=KmՀ Pz$+$!rČfEk*d ݠ~UY%K0W#C"WvzPr 7[-$IRAgJk##>0Mx2ƼdHHhv(9HNE&Ց^&60yǔgHws,ȿՀ1i#47Kq;AluA@GrƋb%c+=߳3nuV!7dꑺ`&QKlϺ*^i=.Ƀ%VHKͫ^BWAs[ΨftΟ;6rXmRN2NـYx/ 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 cleartomark endstream endobj 46 0 obj << /Type/FontDescriptor /CapHeight 850 /Ascent 850 /Descent -200 /FontBBox[11 -250 1241 750] /FontName/CMMI6 /ItalicAngle -14.04 /StemV 85 /FontFile 45 0 R /Flags 68 >> endobj 45 0 obj << /Length1 3663 /Length2 27056 /Length3 533 /Length 31252 >> stream %!PS-AdobeFont-1.1: CMMI6 1.100 %%CreationDate: 1996 Jul 23 07:53:52 % Copyright (C) 1997 American Mathematical Society. All Rights Reserved. 11 dict begin /FontInfo 7 dict dup begin /version (1.100) readonly def /Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def /FullName (CMMI6) readonly def /FamilyName (Computer Modern) readonly def /Weight (Medium) readonly def /ItalicAngle -14.04 def /isFixedPitch false def end readonly def /FontName /CMMI6 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def /Encoding 256 array 0 1 255 {1 index exch /.notdef put} for dup 161 /Gamma put dup 162 /Delta put dup 163 /Theta put dup 164 /Lambda put dup 165 /Xi put dup 166 /Pi put dup 167 /Sigma put dup 168 /Upsilon put dup 169 /Phi put dup 170 /Psi put dup 173 /Omega put dup 174 /alpha put dup 175 /beta put dup 176 /gamma put dup 177 /delta put dup 178 /epsilon1 put dup 179 /zeta put dup 180 /eta put dup 181 /theta put dup 182 /iota put dup 183 /kappa put dup 184 /lambda put dup 185 /mu put dup 186 /nu put dup 187 /xi put dup 188 /pi put dup 189 /rho put dup 190 /sigma put dup 191 /tau put dup 192 /upsilon put dup 193 /phi put dup 194 /chi put dup 195 /psi put dup 196 /tie put dup 0 /Gamma put dup 1 /Delta put dup 2 /Theta put dup 3 /Lambda put dup 4 /Xi put dup 5 /Pi put dup 6 /Sigma put dup 7 /Upsilon put dup 8 /Phi put dup 9 /Psi put dup 10 /Omega put dup 11 /alpha put dup 12 /beta put dup 13 /gamma put dup 14 /delta put dup 15 /epsilon1 put dup 16 /zeta put dup 17 /eta put dup 18 /theta put dup 19 /iota put dup 20 /kappa put dup 21 /lambda put dup 22 /mu put dup 23 /nu put dup 24 /xi put dup 25 /pi put dup 26 /rho put dup 27 /sigma put dup 28 /tau put dup 29 /upsilon put dup 30 /phi put dup 31 /chi put dup 32 /psi put dup 33 /omega put dup 34 /epsilon put dup 35 /theta1 put dup 36 /pi1 put dup 37 /rho1 put dup 38 /sigma1 put dup 39 /phi1 put dup 40 /arrowlefttophalf put dup 41 /arrowleftbothalf put dup 42 /arrowrighttophalf put dup 43 /arrowrightbothalf put dup 44 /arrowhookleft put dup 45 /arrowhookright put dup 46 /triangleright put dup 47 /triangleleft put dup 48 /zerooldstyle put dup 49 /oneoldstyle put dup 50 /twooldstyle put dup 51 /threeoldstyle put dup 52 /fouroldstyle put dup 53 /fiveoldstyle put dup 54 /sixoldstyle put dup 55 /sevenoldstyle put dup 56 /eightoldstyle put dup 57 /nineoldstyle put dup 58 /period put dup 59 /comma put dup 60 /less put dup 61 /slash put dup 62 /greater put dup 63 /star put dup 64 /partialdiff put dup 65 /A put dup 66 /B put dup 67 /C put dup 68 /D put dup 69 /E put dup 70 /F put dup 71 /G put dup 72 /H put dup 73 /I put dup 74 /J put dup 75 /K put dup 76 /L put dup 77 /M put dup 78 /N put dup 79 /O put dup 80 /P put dup 81 /Q put dup 82 /R put dup 83 /S put dup 84 /T put dup 85 /U put dup 86 /V put dup 87 /W put dup 88 /X put dup 89 /Y put dup 90 /Z put dup 91 /flat put dup 92 /natural put dup 93 /sharp put dup 94 /slurbelow put dup 95 /slurabove put dup 96 /lscript put dup 97 /a put dup 98 /b put dup 99 /c put dup 100 /d put dup 101 /e put dup 102 /f put dup 103 /g put dup 104 /h put dup 105 /i put dup 106 /j put dup 107 /k put dup 108 /l put dup 109 /m put dup 110 /n put dup 111 /o put dup 112 /p put dup 113 /q put dup 114 /r put dup 115 /s put dup 116 /t put dup 117 /u put dup 118 /v put dup 119 /w put dup 120 /x put dup 121 /y put dup 122 /z put dup 123 /dotlessi put dup 124 /dotlessj put dup 125 /weierstrass put dup 126 /vector put dup 127 /tie put dup 128 /psi put dup 160 /space put readonly def /FontBBox{11 -250 1241 750}readonly def /UniqueID 5087381 def currentdict end currentfile eexec 4y9B0i H1r^ v.Hntµ'W"xp'DpԄ&,6 6WS:W0H:eTA7J.>Դ{8"ahγDn'$8NC z[wM 3FSj'SKx=xr!0u\/0:jm;FS'01NJ)m+yA%״~zg~A%GW" Hc*Ʊ߃8[2qq3A>G~.dz:> F 9u9D>dKuC{{o|j!yH9MB7k0 \2~$k/kmtm9}a _ Wd=:xyV/7%CL S츩RrBs jD=eG"17GL&WÍƥh0=T$K};[Q[vمB2[k(3BŵbZP9$Z 2uR538M/R'28JT} <~A\p|@XvnUaB>v8=A]'錣Vx_ks@tԂZBs|޹4ڀG";63U`Z9vj#>S@B.::`+U\j%x:n#b)Paj6bevH/6 255Va6 C=  i*eaLަNڕXQ&bĕԽ[iEqr=dZG׍hk0.YbD Xޓy}]#Xju3Jj%s3pc d(y`>FX$V%p)w\W6zy-Kv/Qj~IZ9,ʼ~[]neIMrcW }؆"t8P$jmnC@Q5涙&6k Тr~<ƊzHjilVҨ`iQ]x_t1ʍ,e2QABu–̅8W}y2 tчE5m$|55@x?Һ!}4ߢ4yv%׫,@g.ԹlU SjA'Z50bn]ǙgF*❱KD<%-bS H$ߌh.@A?-w `V&2\Ci;O=M4MĘ08hs餂#_cnܼNλK9!!p@JSϡPVByo5$hCG5*8vA*DPxڿr{-G0t"3a}eQG .P/w.VWcety[-ZKtHo2ilgWUmEea o}Ew2;5(b=$^!gr5G.3 $?IYmք49³Q oJuZQR^#iZ@ K JϴbFqtc1oUNؖx*]1l[|cykBk~ WqVLj+z$$}^ġx=*ly:cYBJd$H&+]7Ge鞉ѶۨTm朚v?xj4$ݕʢg!r!skXTONzMeM*%U$!6 =K }8M9CEvI@T88M ~MlQ% i*@+lSpddI 3;2^s$(OQ<ҬaߒS}CxC]:h)s ᧶?vUH" ,S]a\4i,Qۚ^D7o[ޣ>9ʦBo!S_dBjAa' ͭH^Є[TۺǘFɸ[6Ԧnu1%="paP(hW7E-޲\%Yb% QUoîT0ȿxI ɚwa B/!!WZXO}ڼ^ϲ@h+(OJ.~zUQVR-NRWDCH͇~jA|wG-{0ZY5XB:uQwBS/a.m'Bhӽ/ENޕeWD} Gl?Bo+&H8ZaUY߼:W4*nP+4!ˍ" . .SdP rus?:AJ(\R"b"[zPshk=);QXh2޺Dzh g/E9 PT G|lsѻ|h0LsOWSЮ rH&g6 !)361_εO4BPC,_4O)o-Ťk൒()ɟ擔5; '0yw3x=1/wlզlQcaQO0$}(#H0k_r7U'W:'|hȨ0Zi-7J ~ \3=w#H#^'nMm6Pá)K*UcXJ6Z'vKوEXnw%kɱfO٫=`)"hn-Rz'詗.{#~\orAG^c#+FE=Kh&K<ӐWmt☣[{A<]EXhJ}N6pe!(JFˠӰ4g?` x)՜E6J5aTSQ4p޲kO^2]pe[t$Uo?VkX*/3U[h35 ӪR OlOX^vy]ii?笯&2 /+u6]s+<GBG.ah9!j#zȫp|4rO hhNX=G~Aג_dT%^`^ dk&jњN3= OϰI bFDxXIk??2UsqͨsF3t(uBކPccJ@4]"`__6؍;\ᖩ=Ӷ"$)VaDiO ֕ W+U>H&kt3է̶F&|IP!m,;};$1!dx xV?6Po!7={t<{FS@4Q+Ǫ P,E?7wt?p3"B!"ZBVk(It mxӗ3*]r=8s&(6 o"O/]=Ç"w<ɯn<nKrg+XI- E`p!?֞}GRce7r:IC('94G=#2: b j™c&o;"f2U),+r9H^\A?Hupւ<4ʗrE -v’~rABf#^-Ex*~@k qUvNeC2?Ö+z^Kq~W+]>g'r'-M p-uHL<|{KgoHe *߆3QE#x.Z|};?|~)CC,%J) D|sn„"i0W0rk:s$PJ聕Jς#U)%H+zq8Mbײ8 :$翽\+"Wm0 "cn )]j3_ĉz8惡r}H'N-܏E9/ŗ`^ֵ8B@)P`SFDOROͬcx~fq*̽$cV+=`<,y '(^w ō;p̾Y[EZbUx]5٨lTDJH\טӧ[t.Ⱥ $+]uR_i&1A)]rԜϟ!i xV &>.:U2@NºӥW3llÛ+p w7د-10µ5ƬXI›>3O] z1au+} H= 6#U*E}w2{3:+ mNI":h3)nVK~rܡXZݍ~ؔ 93zu:i#X9vz %Q.w'_ T)B!.x(@D},cz<,8H3n / R3L̳BDxdwԍ/'Ƞ:1ҫ! 8^jYi6I6&vϠr\d%p81W%V_$]~yQ^_>>iۅi&.DsgZ\Z|7.XxYS: .} }0D%agsJ2_O ՞9!@ * 1L 4LPnz.]iyw9k'zm/f :v`sRi?\ZH;lc6Psbh&:iu-RƆ[mWfL VES]0e٪-Lc5 ~4K>Zyft7EL-J%Ȃ2=$ƒj%t-.ΒK|O)BOZ,"g-4x_Q춃c 8*ԖM-8*B|JkJcEs5 @ ('^y,O Eؖ@do_n6|055- T1Gg?^ezNh[Iz`Sof#sj wOtܖ?mZ:/M4s[>|(~?f ~ˆ~sg~cbBV&XW 9bd{3?b1$}"Gu/+͑gulc;,dNCY:LJ+ѻC)wb&) C Rjmp{;)C<$AfK=UKb٢ r̶?Mgڮbhb7R|!L0$\&iA6_K=p=e{|ahC. h)P!jsJ1FE;YnI|~SSgx뉉ܨ;:h(z}CBR5.mAxPSbH9GEG!kebdejqk'f#te7ul(ќSP><mf?Qjz Yp*j_Iuj4BEWWͿN SʰwP_Mm6h5g W%ʦAh 2uElg (`@W4 Vn 8eKmX2zkz8DCho4PoKa>Jq(v[L4 xS,Ot4 D"n֥Nj)| bY#ۍl8M]P: B&|6Ӝ9{WfDCpk(NnlOSRrH8Z 0?ѷ2@ʸV(T;UJ4:բ꽓7Gme@, g|xp7 sP|e dMRskPF4sk|wI.a4]4ftiFޤF7@00r"&B%j)d4*[j:PѫN/}uG蜛"- r*\Ij1u|}ҷYn^_ aQsB_`ZJ/v2^E?iu8 LN=PT U,S`@qunpH}`"NK2\LgP ϺNe 4zjHH taɓjAo)0l(U<ʔ?7=ߚ')|{Q+9>QP 3LRgv&j%s>̱@n]uwr3Ane,W(0O]z05Ni >WW ,18,D&$ ^WŧЮ50DX`DwFTkxIQ,k ~ɝ%ڴIrpXDgE8"?כW2>0#FeVAu'l {*V%78g qYQ]yU4[2FqXLC1͏Da[C12eN%^_'-3wd 1{%Cg^տGm~FUdi=~,ө}c&5 vV—UJ*t_j Cvt2>fؕ`c"$3Pj`̓UZc] ( ;#/dQ i֍;_Sti H@P- G8>R *k͎If*X7'ڜ4UZ$!Pa.Πl{L1B#.'{'>cq OIWdFrƚN_Rl$̇pRTǫ%L[V1E>+ɐ=~Gx lvce=%=g=˂T,RnSNd3I݄}Vy#QRfLd757 LPExxzr㇥\V(Q8A u&fN;^B0b:(bѥT$JpI L}`Tw>4 ךxX1+{+oh~aӉ+hqU^Stߴ{Tb yX˞&wgqP>ry<"Q鬺JY{4z*HX?jǓW4Ւ (7Qu&=ikpI XhFËgT,{-%la:{蓴j#3x L |1UZA}VMݰFgdQCPױmXlK] nrʳG&)w=,Wr#}W:1i7p˩'--UԣO$ 1Pck~L/SӺ*oYlI\of ]HI?'!fhf ~|BcUKPJǒbVW~kj~IVTfpU2?/`m E9\kwA͈v$)aJa5I D {tWy($T Lo+l[:dySg2D ^|Xt@nO*R8I\ʼnCV4A L:t1"'G'7^EYx@!6:yͪ戚oh  MjkUl`.'i}%cj. gt1Ґ/g=1渵\=Ԩ_vE%Owd qsv\[@/Z7TA+ DGqgܸ=p7&!ʒ@T񚘀SxXƼRG;4ȶ׾o=ln6%R#B?@ք"ވJzl񜘫%4@jjiק|8Jiصɶt4H @Rb /aj=|]Ʈs٤%4'O2]?4|CNQ gn`Dʛ{}q ?GKV\G~-93o\8: ,s>ZZ:mA~y_BW)4 XHM$icZlcM)&8el^Qs0b"`?w޷iJ8'o4%UVW$mH]A˙yzYHg^gR9"_Ӏjrn)Ʈhpdmx$Taf-l\hΈ(̓߅EH덺{ʲ| QO67p֡(:gc%ZXJ#z Xw.T El_8M m՝OgQwdALϯqys.THsYB_n`Hh>,5 FU $&Á+礹Qo#gx$!ړa:Opiwbd֖hk]6C?guGNvt+ʠL: LvگF?ecIPlDnwv0TSsqs/p6t~MJFB5)`SL;sw:WmqIUۏofv!8ӠH&,w/!K!)x# Aŀ؛ EH" S؂ /=G0 X5ktMr.248WEQ{Nځxޛ007 ni޲ogR!1SSbL7 re*uk$xJQ!G鉙H? |oX\](e/~!W Xt ҶΝlQ P Kqk~.w|5cp+H7yh0%$H@zNe88CVLXX`UIň l.{k̓湮K\J2N $t|ю( 1~`Cy_YxuiəЙag^řINfs] ~n魘,3-ۣ3%hvVËquo`ALz6sV T$|=6owM}z :^+NkM98p ruAEgxBơqڽhd%Wn"F,]x).ωaULib@F6c^A%Bl!r?O, Cazh(y F\25 kЉ\sD'+$3 I@iU,\ &Uo[ٮSyU1z j/8_ '2ֆ(Zt| J _KS<+G*aH@9^Ğ?an| HQC~ F94=7IU@j@eʅG Ydc 1ԟ MXv "A~=d$ ݢE4`ySʐLPljtVo^֏l/l}.KeAS㩃QM'Uzf k Z==,S5"%89cX/"u崩zFsF~ Z(KM46-@jW׳§>4i2}+5 3:'D*l's5yLߛAf3|ͶA @L"E!^^Gc:Zf<ΒN#\EWҤL$(k}#DK)!uX0}{RQ̓pXH ̻,:Jpkc[&pQC X I;ԝ|g <6d2x5)seܕۏ(C1+Pi ؎JJz\ 'NCCu5 ǰ&56!&* qƙnrPdzv/}*8ձ6Hujtt/ fOU9X#s}L7^GӤ\It ZKo~WLau^pU+ A!?W)lm ݼL!GРtYe!ZxQZ mǻjKKHϷ#p $eRJJp&2vz<)EuiٯD6.ulGYuQt`]x7!}3e--rL9I]Y\ 8%Z[9) D5-[vT_Q$o1(X\an  k2}RRZy)fx^VcmI|##Jڋ 8鸏9:k\n Q %rru*' Ֆ'WX󾤜$|53 3ضtr봕GȔp<ީSBXL7^"dJ:46 JrѪmeeC1ݐ6WaQ药fjX"YWŎU7&zt'I*)_wM|d'#gpDv@g2e]k" p? L_%Ħ9 ;\gEXJg?@V'7c|r*$Wl7L:OV@vK쟲tcfB/bs@uXKaŤ\=ajӖC#]Xg~(ʑ#PDv]r*k)`u+VxE&Ym5o pe/BS{pMQv=LFYUyrNEA5R+IY]AE6-zf.h4xsBNn(#gL;pXt"nWa&f&Lst8^tssnV pO:3 yTee{)N}`Ow( }DS!CYDg5 jh4.b,czLlPW'?{Z^ZPV92DyӊcV ԋX57]B(r7j~<2dzz $Mx10h%GFC2pբ%tuzؠD3. s5p0XcE c 'DWP"!W^igJ`\>%t'_j4>s5̞͚=É>{+fZy"Ttm4xXW] s./t2(aHM$%; }f?yQt ?@,&shK_'APت}=5 c>J  7$# ׾֚adJ>LQTF52q#4IfE,}r)inf|^cH=+ż_ 1j]|)<~tJyDEU߶?(3a,|0'&mR -ST{r5!>` PblrHrLՌ[¦}*G^"|f0 9j:cdtWP]i w+;5Vh&X?Sp|ړ\9pV,б3MtrfzYU긤/wהıj7]?BBoT[G5`ghdRpGl$WgcP5ՔgyBLѓG]TyDz E ߱8XBHB¦rhI Utv,* O1 *F~uYZ=7'82HdgU ncyl}Hwz/?>؝E5 S*Jp$o\C\;`<~Y6߶, pYSx&s眅q:0\־ wS-C ݒ3!j3:ѝl6 .n jƷnb!DWrE$~U4%|ܐI섄&sdwҜCȒNkȧ*, [[mV:EefAPAMUO)C`i Ҳu22q<;@(Cp7u,Y-X'Y)e^h|g:Ƹz0֯=g{TRF.os=YCu4_C&?~}tk'9@:JbA!1[osG$:LǥdAj#4U<^q=)_1&_~*^ >9,3W FFl7fB,duݲ4i,>v+bi(z˦>>48}ѵnTJJ ag$#K|8|k#IHB8*_{8\m+FHBh|{ Ǒݫֹ'$>sB 9 lJވ9:G׏_ހSV7 u=~y]3,/0\[=ZEzث?XQ񕅁zCeݱ}|nYyRW <9_/2'4cmhygG7f0dY0hRq|iC@{AVDBN2z w9OG>eЂ\>^t-ֆ)7InRZy#PeA rN7a6U'B| πޜ葚7*G. 力~h0MO u?L}&3V Jc:C  h"UdcSoN-Y0_{M 2>V2%$h6UlБ_I0u ^qpQ{*9ٟ/>eF^Iğ0/} S:OxX_g`J.gN3P\q?q< q/@<3`Šg5 ][=] ։4̛o~ n>!_Y몆Ҳ;18 '@AN}CxP|y;6ft1Lj8A f;@ۜY/Ysxaʶ嫙,wʍ"Z$};R3s9~HbR#$l8@zƤ_mburI{ /) aץW͔'3ߚx&f+ Ҥm~"~V#u Qλ ̚L%t{D@6Of+*Û"^j"ș o b *=M,opr>IDN>\b"YuƫyM퉀]ꯞL)uK 7"ldX+N-{,1sb|J?y*TA"0 Ж՞5(9dd,~YoMˍi61= &dwuE? X3휈@n_YR>ḅZbZH $I!δv?U%J ,CzfIb'՟ m0-$W-?Kw33k3rm74|Ou:sKθFYB1 fz% $ۺh}u*5Bϱ(] BE\u{P3@"aTn+Dq>ᰞQF6}P`6R&qqtT$E$ 6kb6r-09uF/q.SaL/Qb- ֹ>Z QgUB<5͆r% _@ߛFjǡgG~NȇO&Ŀ0B/EԞZS!LaBl'BRI?q{SN^Iܵ5cGz:R"1pӦkR@ 39p Jcn+6s;>> Q5^2$"BT`n ۵R@m,$"~t~]#xb/8Ez6.Ca2'䙿G֑KUFY_]r$,MB^'JP&'Їlp' Spk[(YHT )n } oqx}㲖|r xya?=&u`Yq?7>Kp~d%_$K1e+"P[]TtԶ'Lm4H ǦIOg Lʺrf *3h [ gK8%#`JyT,c%Կ|2V׿@Ï@;<5J_Da&ʲ0-ѲE0q`0 Gb{9dz5b,*U\ubՑVk4r-JգpYV \jɢNg VO$.E簱Wv#Y=$hMl/JV"$c$41mJ2ŧ5F`!ebO4O 1,`ΏU1f^EGIꨡGzR+pvr@8Gf ߘaeayE\*`e9I=ǜHʈBƫV%ƂXOk\})xc{i֐ُ?MB *jdQJ<5`lQdKsZ2ur'G>\j3m;XbU-'ؑ)ngx T1K8+6W$G{6:@[\n0/Vש:=Bd{L4 .*Z'>/xww_<؋ >;7GӢ_[moV,0rF^"4Suًwf%̬0+[xe?|p99V@$̫ ܊p7Cl b^XfyʟwD4̶⚆Rr_!+0>TɜG&Fru}hx8V('/{MZ1Z#8J+'/f,+m)?piBQK,sY5?q8߹V ~G춲ƛT 9 Kdt'O$/:r,o+r4`֤]B騸 Dג-H1D` WUapX_X.vc];Xc}o?r՗"A.'OP(.uT ~Rɑ_ֈ:]云ϺI8Jա)yCias8 /ܧi:FDPCD@ ?"UgNaCj?D?" JCPиn5j|3|` GBb{K(g)ַput:˺;YYMR5^V. }NMUGd[*T1D/e=4sDսe @iDZBh5G7VΪQW Y"qk:EWN~0*H:㎈G9^ӂNS'/UxC0{19tfiS 9!IKfު %XxT o&|m S-XTGҏu&vg:YN5T:gAX,6_a1+³~H44 bBtgu RMӌʊ Kp^>L-T_X0slHjg7@6C |pؚ mzT&: ;q;& xDxL }!R]"L5dW1h{4#Ā,Rą`ZĬWl vx)ƍzyE5D=!RoEᆨRҽ-AOJ^3"/}) 2ܰxCLDkACqVv/eLD&TWW@q4@^K~ 1/^fGsj^f9)Ӏ 9 D%}r](:&&OhT_w.)A jSl !vN|`N۴-4ۮe3*;^u䌸T_t>|8є28eOM|!zi.3RH0bHsAJ S*^9{5„qS~ZH ]WV2YܷXa/}=Ǜ:%ZI5r`&k,HPks&Ppцe/Gǽ^ H:k 楠 <$閎fӮ;,,kH+ HAL̀ _vX]jM&XWb7, 8W5" XO:#Omo#Hmk T>p{'*d+E ds,x.1ܹ%'BmiI@hdōm[M 9< dV2fYod0GH(i\7L"߯dk{x݉aM![jb:*WvX :~OEæٜ+Zȝ鑑[b|HCNm@`kIu'!`zKuꆏVNwX~+>g˂N Yu:σj rB=cW R;9GMBFFu"`δwH1%h$.sd8! ɁsE\*R w*F-[Ur1Ae\(l{,,_n$Mb}mMĘ1 q hyn3K pK8˖u5gi4 -&}/頑Kk [9}z=!žSXy#ގcy I~˵/&[͚c&rCaӓM= z[GksV7Oߜ%Ѽ_ct.pDqjI9cH%89|{g~vչC'ɹu,u|N֓ʵX`[APC<ה#4hy68mL KV)dj]u6#VOl_Q8dް'l>܋'@<窈ܢc?g:Z2zle2(;e;pu7p[j~4X[s?Q]9.[tIn{]R_>hyVwbgW>Ij?<*Zf9˔/Qgo-ٱ87@Gn8=vUyckx{OF׭K2]f#Ϫw؟.r7p8Z[PӢ,0Sn啃mzl-"OyX>3#r/$ftAJl>$UM9Ν۹O9dmf* -]qЫйo̧Sc[#qKJ$+F ?x VK}MkL"aR! 3F\.CJY{'*5Fkayn0ȮupTaü%[qU|槻܊׭T9I(3_!096GQY΀E^4H_t]jGѴ1KcH >ky ~RF~B'QZC (9ª. t$9cl-rEỿX *niuK'|-wԚgvQCSYAof301W9ek s!!?ֲ?Hէ++FrCU0 *aWŝR~XW:zHx> endobj 48 0 obj << /Length1 4309 /Length2 22148 /Length3 533 /Length 26990 >> stream %!PS-AdobeFont-1.1: CMSY6 1.0 %%CreationDate: 1991 Aug 15 07:21:34 % Copyright (C) 1997 American Mathematical Society. All Rights Reserved. 11 dict begin /FontInfo 7 dict dup begin /version (1.0) readonly def /Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def /FullName (CMSY6) readonly def /FamilyName (Computer Modern) readonly def /Weight (Medium) readonly def /ItalicAngle -14.035 def /isFixedPitch false def end readonly def /FontName /CMSY6 def /PaintType 0 def /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0] readonly def /Encoding 256 array 0 1 255 {1 index exch /.notdef put} for dup 161 /minus put dup 162 /periodcentered put dup 163 /multiply put dup 164 /asteriskmath put dup 165 /divide put dup 166 /diamondmath put dup 167 /plusminus put dup 168 /minusplus put dup 169 /circleplus put dup 170 /circleminus put dup 173 /circlemultiply put dup 174 /circledivide put dup 175 /circledot put dup 176 /circlecopyrt put dup 177 /openbullet put dup 178 /bullet put dup 179 /equivasymptotic put dup 180 /equivalence put dup 181 /reflexsubset put dup 182 /reflexsuperset put dup 183 /lessequal put dup 184 /greaterequal put dup 185 /precedesequal put dup 186 /followsequal put dup 187 /similar put dup 188 /approxequal put dup 189 /propersubset put dup 190 /propersuperset put dup 191 /lessmuch put dup 192 /greatermuch put dup 193 /precedes put dup 194 /follows put dup 195 /arrowleft put dup 196 /spade put dup 0 /minus put dup 1 /periodcentered put dup 2 /multiply put dup 3 /asteriskmath put dup 4 /divide put dup 5 /diamondmath put dup 6 /plusminus put dup 7 /minusplus put dup 8 /circleplus put dup 9 /circleminus put dup 10 /circlemultiply put dup 11 /circledivide put dup 12 /circledot put dup 13 /circlecopyrt put dup 14 /openbullet put dup 15 /bullet put dup 16 /equivasymptotic put dup 17 /equivalence put dup 18 /reflexsubset put dup 19 /reflexsuperset put dup 20 /lessequal put dup 21 /greaterequal put dup 22 /precedesequal put dup 23 /followsequal put dup 24 /similar put dup 25 /approxequal put dup 26 /propersubset put dup 27 /propersuperset put dup 28 /lessmuch put dup 29 /greatermuch put dup 30 /precedes put dup 31 /follows put dup 32 /arrowleft put dup 33 /arrowright put dup 34 /arrowup put dup 35 /arrowdown put dup 36 /arrowboth put dup 37 /arrownortheast put dup 38 /arrowsoutheast put dup 39 /similarequal put dup 40 /arrowdblleft put dup 41 /arrowdblright put dup 42 /arrowdblup put dup 43 /arrowdbldown put dup 44 /arrowdblboth put dup 45 /arrownorthwest put dup 46 /arrowsouthwest put dup 47 /proportional put dup 48 /prime put dup 49 /infinity put dup 50 /element put dup 51 /owner put dup 52 /triangle put dup 53 /triangleinv put dup 54 /negationslash put dup 55 /mapsto put dup 56 /universal put dup 57 /existential put dup 58 /logicalnot put dup 59 /emptyset put dup 60 /Rfractur put dup 61 /Ifractur put dup 62 /latticetop put dup 63 /perpendicular put dup 64 /aleph put dup 65 /A put dup 66 /B put dup 67 /C put dup 68 /D put dup 69 /E put dup 70 /F put dup 71 /G put dup 72 /H put dup 73 /I put dup 74 /J put dup 75 /K put dup 76 /L put dup 77 /M put dup 78 /N put dup 79 /O put dup 80 /P put dup 81 /Q put dup 82 /R put dup 83 /S put dup 84 /T put dup 85 /U put dup 86 /V put dup 87 /W put dup 88 /X put dup 89 /Y put dup 90 /Z put dup 91 /union put dup 92 /intersection put dup 93 /unionmulti put dup 94 /logicaland put dup 95 /logicalor put dup 96 /turnstileleft put dup 97 /turnstileright put dup 98 /floorleft put dup 99 /floorright put dup 100 /ceilingleft put dup 101 /ceilingright put dup 102 /braceleft put dup 103 /braceright put dup 104 /angbracketleft put dup 105 /angbracketright put dup 106 /bar put dup 107 /bardbl put dup 108 /arrowbothv put dup 109 /arrowdblbothv put dup 110 /backslash put dup 111 /wreathproduct put dup 112 /radical put dup 113 /coproduct put dup 114 /nabla put dup 115 /integral put dup 116 /unionsq put dup 117 /intersectionsq put dup 118 /subsetsqequal put dup 119 /supersetsqequal put dup 120 /section put dup 121 /dagger put dup 122 /daggerdbl put dup 123 /paragraph put dup 124 /club put dup 125 /diamond put dup 126 /heart put dup 127 /spade put dup 128 /arrowleft put readonly def /FontBBox{-4 -948 1329 786}readonly def /UniqueID 5000816 def currentdict end currentfile eexec i_,+`"Wٰ'Z1NςRoN]+,󡈙5Н; lƸ7 8׸00 _Q@v@r/"!k(RM{<\*^HbBW wtY~[@ k-_<- r(p߭q_ o(Q]k$2삑&$2셠L憂Hr(jgٞѧs[L1|yk*Fq=Q炛*@Z7X,dMP(P_QACZ?#\q`NQ[hJ]k ;M(2@]+?3q W}]f :9ZNs't ~j!M4 ZSNp\9Q˖ "Y*fW&bܼӬ>{ôqK'!/jImlpo.ظ9K8S>"Dv FNY)PrP+ El F/gF&0AVDe=SDݧ?WWziw[SպҢUu\~ ,]R%^6AW$',,(Cjd>K p(C4.E Ens[72 OqBp_?##IW-dy6TЩte]*zqꐪG8$'LMBUsܧ`;צDT}G<`R@'_I}uEQw _wσV#zCfA60P<٘0uwRZ~ /R\۴-G%q;*p% r&0'K} E2E9,5i(-ltY L6峷JAvFrdfkqK:68ǺɭU{ 9߿7e!>*X묣5 nm x1ßHoGĿ)WUϥ;Sx[H.N^e>i1u"6LyZetAI$^RiV[e˲5ț~3Aɂ.K*t9) A=/3{g\g#u4KdcDtIWw?Oq ǒ2nMհ,]honS& y[rX1{\sJSۂZ0>:I1ϓap(w,9}x/U4``Oo9CHm"=Y`}'cX6zNnpqV: Џ?t@O4C)5y(ͧ|ecMnd0hߛzf9[6y%X3+kQ?*Bm"4\SمP8uI6sf 9_\{wMcDp0  gq*+wl$!{2I)~sPjfʣ[wp$=>X\nĈ?. ]Mb!O+cY-ZUV)` eUDm5ɢ1.›~36wgM@$dNEPv=x$%o3 '5|u dч$iJc7‚!k|zӈBk+~tEPBjAWO/ȹdzbqcݾ OoZ~ R=rOFFeOғ=&l* ֔NQiflP(:^ƚkj* s`NN3esZo<6B9>E7نc/f碙04R23 v>$鉶L6Qz(xE(c2s2`IG}`G2>/ /e\czk"DeׇU{;ܣnrv#|vgEfe6m|?){ُJMm')sLq%'{nLCڜ <`)ԱY»o( DF MPmTK3rE&2ՃM#a(]CUNjR2 Sgbf#Kn6ǿ'MUnWv)ץ.8j`,%%k6hcpTbs1y3 :nRD7;˫Q'nFjZ&wz8Rh); onyౘe ȾCO6ȃi Y+ґ~uNO䶗O=q I=Wv1|s yc@z0egaD=A{3m|,B8X]A!۫i^ͷ-$N $)VHW;Z /~VBӁ o2&ؓKq[>^b65Et?ؿ' %" ,ыnb4Υ&"=R Op1ǽ*E6Cysueٕ^R4sa4l+rjc%Qݢ'=\K`ƴ/l~u9&j}{{Aɗ`5s#q$&h>1s-'*ۿb= 0ƑFq {+yw>ŦNjb $t3 !)ш/X~pՎʪCy>*m";GX5<ӤօXQ2ylBWHbǑ_|}EҴu +РLb6sH?"4Hm @zikEl{hߵJb|޳)a7v 2AJ #e!;d;Nt$B**J7uɗj.A o4 M'R3!z0̸0~Zߊ+J0u'tCX6l*+]<6-X]FKcEHYv\&ࡷٻ۶z/1X.? C +&\_vkІ |w݄uGך6v/ebSWzIx^[k[زX1鸋o9-GC`a$U`îr_&h_b[oMVz91}g">Ǟޟ >'"xs$yhPa$]mc3I~=j|^g8o7ñ" ww8{fòB/1S zo]!ǑWܠD"2ʢVdVfC $M5H-f;Xt9t581a=kZ+e2|cv75BcLN!`Zf>\tX{a{歘Qْ;r;BDC!œ( %C}+tW 1ΔkĀyX\{-9UmxI$3DӅ|l~2Vx r- .nۦEo]3N!)JU(1pCȅ-\4ܵ J";XG jWğs:lB,?pʱLJ93  /vi9e4Gm+DiQcdaiw`{+oZoeXПcotLu [\aW:8ݐ qOʗf[n0 5I 06]M֫)#'s#PDǶ4$h-P*U,CFNAF @Dèp^?2"5r~I3O(ПlǑ#2˜/ { mp84} Po1.CۇRR O%f @,K@2FzX8 HfG4sk`'"<-[;6gpgD<C$ˌ*4r{ ݣlqaԦ}7^I?}0E{afWvN^Jb)̬3Ŵ6@U+-dLֳ6nY8 ]7%]J4M͟2R v+[7!D,>3SYH`,g.Yv-odNS&)RN+LaءNH7t2[<,GbBaD)'zB̭}3.^ Eta$)v7[|j 6tH*$tW'ʎRz%NcOWisk 9xڸ`~װd bNsG.:գ7bG&$9X{S=+g~@XRVXDT:v_ކ8s MYWN&OU*i)sZ&}(u{8:Qdjkl5,28C▆K >. ` 3g=l"lHEev6KmU7+Uה%j`|=J (N.s< d6 9 c|H3Zn7aHfwC*[ [Ψq W̻KRQ;8Zl,g`(-Qzp=Ҷ,R3b%Լ9T$j YxvETjs h@^._y> L ^hМTSƚ`g}M ݧBZN>_7u%Ů'=:KL‘xFЛn!Ub,eѧ6qI!=|\F%@;d0ZlNapv,v&-tr!94QR3^ZVl@w}M?,*N㗄!I:+& dn'XPh_~ԅ W5匔b 96 l{blo&Wx@iIrDHճ}G 9 0>QJgU҄rmN/\+8-IWgsYe I:CWXR$>D;.Rt@JB"Ug|H42?p-S H*fMl*RJBŪ(ly2pUY&rމ dȌf݅pbƧ|;Y51V/~tۆ g9,Fx}%bVLDik цT30߸Vڙ,! -q{u MMXj&8*jdLSX:[UR)k-h§63Qv; $pj`A]aQO&8WtP2/Hռ*3< .o4 yʇ3! JP 㢌YTyp} V/G"6!C276ҝ߆. X@xX_EdA+>772jPqW`1pΈ_BΡ;ƷokH;]./4EAmKTW_>զG#K=5mEVY9V&B4.!νqN]-mۑ=I U\, -(=v8=?R8Am5LG/HJNW'Ͻ'e4 2b{xڛ"KQF:B7&bkcӳL ;Nw}?i H)΁ X?ltp4PRK#F" 24q\>Rpp]vw#՝=gyt?Zo$(xј{T(3#Ey)CB]uИ<q+H!&*u m񧍒&{)Եc}5Qf.K_|6(VSҀkÉ.d&@{s{?JAڃW*L{nPD1f8gwֽBݞK:0.řKDti]<.'`L6ܮ'=D% z@a^i\KR8AEηKVp.eb,Ykʰ\j䘨ug)oڲܵ*cz+:w rMijQ;d`L"Ra+[>'"jAJ:yh$űG&#Jpȗ v6S~=g mosyikܤ H3v(&Wƛ{OS{[!ڏP%@nFhT_h*wH-9cLAuZr]%=Ro@c!8ھolpM>[]w9<_(K'NYm9 9RZO-R1n@;H)yYArR&u фi~pVyԇ1>' wUHQR~SmT=#)7~6‚GrA ?hěnPf遥&nlMtаD hB{hhcZ)"&,pWbg" g&z5܉vdN k7`TEG\AUl$kS_[铜uVhn(I.6 yȜ=X֏} =Uݴ6X_5V7})XЕ-xtj$;y9^lҳ[2ggИמhl ;"$`ŸrUK"Ä9jS4}^_gkSXڠN52Jn>4Z(mQvfuA0z)56F϶7R~=a[08 ]kH5xwR _>'ap &bc$Dh|}q12\I>bMjǷlh⿝4~\NWB,݃NOV@9%,K,>YݠeozXw1A;uB?DF[%x c &{*S6׫'ߥȦmd6m>2E_XEJCP*/g"(Ҕ %m,{#mfm/ID-̦o1q⚞InF4 UP*^6tMjCA88QrG:0Î ΥԘ[YQ?Ys]*lrz{gči~Y2u9=tnp}< σsTo: Kk;~Y=e a} h_N8w: `yW̯s>co q.ra xl#|^\(h~n4$ްD+c } EZy 9MOÉa}!1Of9չZAD, AɠEMΡHcm>FBY_ϣ#Tdj8YӸzT-A ;׌N\@C V&H̊=@h-6?5Ƨv#Hx 6m0[ #loG3YG*'̤sqoя.(GbB 8$UjIeSW/ʉz($ǝ܋W n7'8 #iut241%H[@d ET7䍏iNGVJҡURbߢʪ @G|G4QX6p2 imҗ {nTszu Q8դO^UdÙui&Z(rDP&Db'3/۔tK 'ݨR۽uFƀ.RX[XJeQ^#=2u07P:ԕUv4q Mxa5UqQT .k^:Ǻ pӢ(~A.E$D\ ݮu˦K6ڬ SK qv 2"l&kJ!KB]r< W *:`Vی_"TTMzʰp67Z!Ar*iX &/:XȆB/& V}#i,8!2)1'ѸO'/ c4kx8q[V(NP:vŪB$Ɖ^=Liw$uWWƐbE#w#C cZzx53L/^UygʟBfl)3y/"I!Lx"^ >ItNrKGw'1OU.a[7!_=YR g.؍`Ts1bw0ur!vaQog-ĕxm r(SpC}/`f/S ki3@ԭj*nrjN ݪx>ꮏ?+R4_ `89Jb%~!(Q6ӝXjngۊnop0P?xbEUvPi`qWz y'v$ ׊r*R UW1;K@ٺxK`C% ]'Í[.IRly޹wqHe"jubHjf*с+Qe@lۿP5(Fu-Lԛ㓐M@G̀PTFl(9$>5S=,o ʘ]V:MݏIYX.m $_+a [z߽=8Jlwa0Lh HI m̢7ˈ<$)9 W+o, T?ſƬsW_q:IQIqr*Ü/y=#((lQ?SBi.@ζ~$#C柈QmH`k)j:eu[D @8%ۊ _xψu=:/KjeF >cżk12X̑kJ{שGYILX ;޹_GEJzt!2.GPYIgn!Z.WTPNI#CTс1.^^Lk2B"XdT]c$3%k#92~ d[vn+(0hh8ܠT< Ċ#+gQyyIb@sж^f-C Ӄ4Ke?L"[i!{O`#jhU ꏪr aTśh_A8$ýǞk>Kqj|V"$&#odٱR%rᡤF.}-Dy)C.oGEOɾ ۱.  >cQrY8`aRKs@I)%ґ5Z P*08ZH{Z,Zw@n$̷vCVZcD*fAۚPF$ "6gq]yyrK:@:5qdLDh&[AP~=T3P kWs!2aG&fU]}a'P!88>_ts{j&mV OF`{ZL` r^dN+%e T4Ea=5sH2Vfb{JTO h/ڲmYf zaf `Aˮ{&YEPRfP?-`{tV?{Al|*;.ThRB:zقE'#z[X.~t,cPA4oϊ\1X3{N~R7hהr6Kswb^N@O{ouqE*]5DAuKAF2Xb8*xJ}̣C"y?)rGe:LY//RV9=q2Tn _=͢M*+>fxnrmX uՉ>rZ"\xC_Yly7 h[\0V%į+XT/Td-L=0,bWfX$4K;8"[#l"rKE@yFXk[螩^q.gH%)xY eo^4:zq^o)VpjG3CW+kB` !mKFM.nXEO\3w {`]|=R RHwp3mveW a^Va_BzΘ Hz(luba3ma<ݪ%zrgvQO4,[hk5|zɈŕQ8jQݪkq`@ꯝOTR1[v[ vc{KTFks~AyL)Z&mXQ;K2{Ъf08oz5Ȃxj9|T 9_yawڪzU;̍D&Ws+&[%%\F `:2sĞg;r󡗳L UCoP ԼY4ya7M&i^gGEDJ?FnaRGg\Mןx_̺*P j?L(ydT w;=x$BqM,r{w_ X.#Φ߹:D$ʞOuFy@ !A%͹##Q|з[ւ]'5C#x{(0;z- /VL7%0c)Jj"tlv-i#uf d#ġa HH`_fLc1}{C ;,\[$]qSyi A CZ}H)-$t'Dz%e_RwqTȴGnܡyywQe6B[\VVlՀ #AH$Oc\o.i]fq<Ty,.3O5uǠ&'?\SdY>팆=Jq؍0,և- Cv!Xԉx{ϭ/O^sr p]%W6mt9tlaC΅>-7vayo]l~Ov񻲜ޔ(ad|{6T*A;Ww{>ԉmu qT!מ3/ځ L ,ؙM{`L8R1(TleuF!L女Zg%`9YKG)_zu^NobO b^Qt^͕Q02DQxUˇ6w~Iy8Li'*9ؖ :Չx:,/6s4kmMy|tB+l֒s;伅nPT\8A|V=ׄs/1QOxC h+Z=ݶZUmI&c~ Fu 4߃iY ϼaxLYZq7Ċ@CI1>K\7ۖfC-+zg WVfC)2J`'0h%=6d92(kd;R +Vi{X7xr5\*j=jEMm8[#Jm1ؒ_b\mIQz@pW"tLu&$y@xn"sҠӹR DP ?Z pI@aDǒyjC ~AZo BoUr;ZD|DN0K\=KB.6}Òoa;rP RѤfry+k &,gtt?D)v8:+#R3fQu]򯛆\̊Y/ .n5&d = YO~^.HN; sP`yH ~N8hb]Ӓn&' ]P郄WOk7 tן0om? 'T_d#Woj * ) '1-Y+P>O*0M~&\Wч s"3Gh"Ny][.ڽS YDz gu5?`mS:[6n'J\қ}QfnS*2F._0`ܫ>z=,ZwŅٹT4g)/N>#Ã6G!a44=R UK١*C: U;@$7dRCN`kmx@h+%YW?bx_cUR5>߅ȼHB?OG<|Du#ЕlÎ-a*⸩#yǍYc7>]2fsƮ"4v4kULgt:Vv, hB4y\A8JB,XFǤhucYiT.g|kKJdO76[m|he" IuOu0.{^ /&=d'kkm/˴8{vPlonwL'=30k]2ֻ0<8r&tw4 3c-38K7W E ͓C;W%M.:tޠ豢?enI2YLQÁ m\?O n;JD?:)D:W t7KtfW/u\<<1cP OU`ƭ{eLp7u]G,GLtSq7R;t Boďg FC1.0y5Bl1%//PQEx^*(Kn%cg*#m+6ﶈT ׋QPjɘT]]qődgeʛ.މ>,47jo>o^u~Im4D ׅ1.zc 9;8xeĪ {93r_ه1G%;p{@"7~ 3WSgH >ܜGl.g;L=a *>" lƏm]nvlҦvVlKb55Kd䎊vׯo("9]B'YǾKHSBBiϓbɠGXmaJ Ѐ }?jE5;ՏY;8ܣN}cUs .CqE/,&e[ГB(Ћ(R08j-D|;<s0IXԬI -nn@풺ycxo80&}M3Pv4C[Yfem PܴkSV%ն+ZEI&Nr!.{tM坯C>#}u|O,\d(7K)N1)ߡold_vz 2Pu*n5/ G-u*4UE4 hw''Ir6ކa64ոDZc#ObSܿ^m,TODz -68Ʈ7BF[#ME(c7ֲ}8HxhA $lh}H8u) ni^&# Yi+P - !:v3CqY<J>_iTM$7:€܂u2) .0O+ڴ~n :n=n;Yb- z:[FbeuLQgMPN4PS!4)R-͖]μeTg_:sb#Pk髊fu,ν $@x8=s$EbK*GmnEoNP/O:Dšؽж]d3˯b~VB W5'PrNvm-7t.g53,0>|sb(j'Od Y'gA4|KVzd at\i0,v&< D( 80eL_3τ\/gO߹+rx$8xOliW }3d$kb2D||GW[ry*lĆujg u >tFd]:hi𢛫Yd.jp4R̡:j)Dh h>ƾ׃ۦ;G,x<`y3Dؚ@nzy}X!_Z/Lat\p`nC eTq90'amIgW@ Vˉ,AuGp4U&4#چ4VfGs<``}"gP+A~6nD#)VZ"^q[]^]w 'cn(@m}Ni d&*GhnI;򝺋J/b!GI"&;Qy,S2NKk1QtC"pN%#NA/^YmLxr"`Cx)D 1nQesG BPt.Z,&yF~`,,%%P4! GP֎8ƫ{Qԑlz({ <*;P"YL5g ч,?h9A0c >@Q+Txmy{tzŪA,!$c.L*,qſ-'[ 2q)I0 qT%t̓he4+U6b.C䎘G"EC+BpJlۀ{Q/yIլ'>#;ͯq2,0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 cleartomark endstream endobj 1 0 obj << /Creator( TeX output 2007.07.11:1541) /Producer(dvipdfm 0.13.2c, Copyright \251 1998, by Mark A. Wicks) /CreationDate(D:20070711154123-05'00') >> endobj 5 0 obj << /Type/Page /Resources 6 0 R /Contents[51 0 R 4 0 R 52 0 R 53 0 R] /Parent 3 0 R >> endobj 56 0 obj << /Type/Page /Resources 57 0 R /Contents[51 0 R 4 0 R 60 0 R 53 0 R] /Parent 107 0 R >> endobj 63 0 obj << /Type/Page /Resources 64 0 R /Contents[51 0 R 4 0 R 65 0 R 53 0 R] /Parent 107 0 R >> endobj 107 0 obj << /Type/Pages /Count 2 /Kids[56 0 R 63 0 R] /Parent 3 0 R >> endobj 67 0 obj << /Type/Page /Resources 68 0 R /Contents[51 0 R 4 0 R 73 0 R 53 0 R] /Parent 3 0 R >> endobj 76 0 obj << /Type/Page /Resources 77 0 R /Contents[51 0 R 4 0 R 100 0 R 53 0 R] /Parent 108 0 R >> endobj 103 0 obj << /Type/Page /Resources 104 0 R /Contents[51 0 R 4 0 R 105 0 R 53 0 R] /Parent 108 0 R >> endobj 108 0 obj << /Type/Pages /Count 2 /Kids[76 0 R 103 0 R] /Parent 3 0 R >> endobj 3 0 obj << /Type/Pages /Count 6 /Kids[5 0 R 107 0 R 67 0 R 108 0 R] /MediaBox[0 0 612 792] >> endobj 51 0 obj << /Length 1 >> stream endstream endobj 53 0 obj << /Length 1 >> stream endstream endobj 4 0 obj << /Length 30 >> stream 1.00028 0 0 1.00028 72 720 cm endstream endobj 109 0 obj << >> endobj 110 0 obj null endobj 111 0 obj << >> endobj 2 0 obj << /Type/Catalog /Pages 3 0 R /Outlines 109 0 R /Threads 110 0 R /Names 111 0 R >> endobj xref 0 112 0000000000 65535 f 0001028650 00000 n 0001029949 00000 n 0001029601 00000 n 0001029802 00000 n 0001028814 00000 n 0000038811 00000 n 0000000009 00000 n 0000595322 00000 n 0000595130 00000 n 0000001823 00000 n 0000641625 00000 n 0000641422 00000 n 0000002954 00000 n 0000687361 00000 n 0000687158 00000 n 0000004088 00000 n 0000732287 00000 n 0000732092 00000 n 0000005225 00000 n 0000006362 00000 n 0000777277 00000 n 0000777091 00000 n 0000007316 00000 n 0000008308 00000 n 0000807984 00000 n 0000807805 00000 n 0000009213 00000 n 0000833377 00000 n 0000833191 00000 n 0000010207 00000 n 0000864598 00000 n 0000864419 00000 n 0000011201 00000 n 0000890138 00000 n 0000889959 00000 n 0000012163 00000 n 0000013157 00000 n 0000915608 00000 n 0000915421 00000 n 0000014773 00000 n 0000015774 00000 n 0000942826 00000 n 0000942639 00000 n 0000017549 00000 n 0000970032 00000 n 0000969847 00000 n 0000018542 00000 n 0001001565 00000 n 0001001379 00000 n 0000019524 00000 n 0001029702 00000 n 0000020457 00000 n 0001029752 00000 n 0000038608 00000 n 0000038777 00000 n 0001028915 00000 n 0000060161 00000 n 0000038888 00000 n 0000040635 00000 n 0000042744 00000 n 0000059991 00000 n 0000060115 00000 n 0001029020 00000 n 0000078532 00000 n 0000060239 00000 n 0000078431 00000 n 0001029204 00000 n 0000107676 00000 n 0000078594 00000 n 0000081224 00000 n 0000085531 00000 n 0000088134 00000 n 0000090915 00000 n 0000107482 00000 n 0000107606 00000 n 0001029307 00000 n 0000585845 00000 n 0000107754 00000 n 0000108037 00000 n 0000108070 00000 n 0000135229 00000 n 0000135515 00000 n 0000135548 00000 n 0000375174 00000 n 0000375441 00000 n 0000375474 00000 n 0000393457 00000 n 0000393724 00000 n 0000393757 00000 n 0000415655 00000 n 0000415922 00000 n 0000415955 00000 n 0000534042 00000 n 0000534309 00000 n 0000534342 00000 n 0000571549 00000 n 0000576839 00000 n 0000576872 00000 n 0000576957 00000 n 0000577017 00000 n 0000585665 00000 n 0000585733 00000 n 0001029413 00000 n 0000595066 00000 n 0000585925 00000 n 0000594977 00000 n 0001029125 00000 n 0001029521 00000 n 0001029881 00000 n 0001029904 00000 n 0001029926 00000 n trailer << /Size 112 /Root 2 0 R /Info 1 0 R >> startxref 1030047 %%EOF april-ann-0.3.1/packages/imaging/median_filter/package.lua000066400000000000000000000022561234204160600234700ustar00rootroot00000000000000 package{ name = "median_filter", version = "1.0", depends = { "Image" }, keywords = { "image", "median filter" }, description = "Filter of images represented as matrix using datasets", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_median_filter.lua.cc", dest_dir = "include" }, }, target{ name = "build", depends = "provide", use_timestamp=true, object{ file = "c_src/ctmf.c", --include_dirs = "${include_dirs}", dest_dir = "build", }, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_median_filter.lua.cc", dest_dir = "build" }, }, target{ name = "document", document_src{}, document_bind{}, }, } april-ann-0.3.1/packages/imaging/median_filter/test/000077500000000000000000000000001234204160600223445ustar00rootroot00000000000000april-ann-0.3.1/packages/imaging/median_filter/test/median_filter.lua000066400000000000000000000005601234204160600256520ustar00rootroot00000000000000-- usage: april median_filter.lua orig.png radio dest.png orig_filename = arg[1] radio = tonumber(arg[2]) dest_filename = arg[3] print"loading" image = ImageIO.read(orig_filename, "png"):to_grayscale() print"filtering" print(image) dest_image = image:median_filter(radio) print"saving" ImageIO.write(dest_image:to_RGB(), dest_filename, "png") print"done!" april-ann-0.3.1/packages/knn/000077500000000000000000000000001234204160600157365ustar00rootroot00000000000000april-ann-0.3.1/packages/knn/kdtree/000077500000000000000000000000001234204160600172145ustar00rootroot00000000000000april-ann-0.3.1/packages/knn/kdtree/binding/000077500000000000000000000000001234204160600206265ustar00rootroot00000000000000april-ann-0.3.1/packages/knn/kdtree/binding/bind_kdtree.lua.cc000066400000000000000000000070201234204160600241660ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2014, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C #include "bind_matrix.h" #include "bind_mtrand.h" #include "matrixFloat.h" //BIND_END //BIND_HEADER_H #include "kdtree.h" using namespace KNN; //BIND_END ///////////////////////////////////////////////////// // KDTree // ///////////////////////////////////////////////////// //BIND_LUACLASSNAME KDTreeFloat knn.kdtree //BIND_CPP_CLASS KDTreeFloat //BIND_CONSTRUCTOR KDTreeFloat { LUABIND_CHECK_ARGN(==,2); int D; MTRand *random; LUABIND_GET_PARAMETER(1,int,D); LUABIND_GET_PARAMETER(2,MTRand,random); obj = new KDTree(D,random); LUABIND_RETURN(KDTreeFloat, obj); } //BIND_END //BIND_METHOD KDTreeFloat push { LUABIND_CHECK_ARGN(==,1); MatrixFloat *m; LUABIND_GET_PARAMETER(1,MatrixFloat,m); obj->pushMatrix(m); LUABIND_RETURN(KDTreeFloat, obj); } //BIND_END //BIND_METHOD KDTreeFloat build { obj->build(); LUABIND_RETURN(KDTreeFloat, obj); } //BIND_END //BIND_METHOD KDTreeFloat print { obj->print(); LUABIND_RETURN(KDTreeFloat, obj); } //BIND_END //BIND_METHOD KDTreeFloat searchNN { MatrixFloat *point; double distance; LUABIND_GET_PARAMETER(1,MatrixFloat,point); int idx = obj->searchNN(point,distance,0); LUABIND_RETURN(int, idx+1); LUABIND_RETURN(double, distance); } //BIND_END //BIND_METHOD KDTreeFloat searchKNN { MatrixFloat *point; int K; LUABIND_GET_PARAMETER(1,int,K); LUABIND_GET_PARAMETER(2,MatrixFloat,point); april_utils::vector indices; april_utils::vector distances; obj->searchKNN(K,point,indices,distances,0); april_assert(indices.size() == distances.size()); lua_newtable(L); // stack: newtable for (size_t i=0; igetMatrixAndRow(index-1,row); int coords[2] = { row, 0 }; int sizes[2] = { 1, obj->getDimSize() }; LUABIND_RETURN(MatrixFloat, new MatrixFloat(m, coords, sizes, false)); LUABIND_RETURN(MatrixFloat, m); } //BIND_END //BIND_METHOD KDTreeFloat size { LUABIND_RETURN(int,obj->size()); } //BIND_END //BIND_METHOD KDTreeFloat stats { int number_of_processed_points = obj->getNumProcessedPoints(); LUABIND_RETURN(int, number_of_processed_points); } //BIND_END april-ann-0.3.1/packages/knn/kdtree/c_src/000077500000000000000000000000001234204160600203055ustar00rootroot00000000000000april-ann-0.3.1/packages/knn/kdtree/c_src/kdtree.cc000066400000000000000000000016261234204160600220770ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2014, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "matrixFloat.h" #include "kdtree.h" namespace KNN { template class KDTree; } april-ann-0.3.1/packages/knn/kdtree/c_src/kdtree.h000066400000000000000000000363541234204160600217470ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2014, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef KDTREE_H #define KDTREE_H #include #include "MersenneTwister.h" #include "referenced.h" #include "point.h" #include "qsort.h" #include "matrix.h" #include "maxmin.h" #include "min_heap.h" #include "pair.h" namespace KNN { /// KDTree class for KNN search. It is not a complete KDTree, it isn't allow /// to insert or remove points. All data is pushed as bi-dimensional matrices, /// and after that the KDTree is build. template class KDTree : public Referenced { typedef april_utils::vector< Point > PointsList; static const size_t MEDIAN_APPROX_SIZE=40; // For median computation struct MedianCompare { const int axis; MedianCompare(int axis) : axis(axis) { } bool operator()(const Point &a, const Point &b) { return a[axis] < b[axis]; } }; // Node of the KDTree class KDNode { Point point; KDNode *left; KDNode *right; const T split_value; ///< Used to split the hyperspace in two. public: KDNode(Point &point, KDNode *left, KDNode *right, T split_value) : point(point), left(left), right(right), split_value(split_value) { } ~KDNode() { delete left; delete right; } const Point &getPoint() const { return point; } const KDNode *getLeft() const { return left; } const KDNode *getRight() const { return right; } T getSplitValue() const { return split_value; } }; /// Class base for KNN search. It implements the interface for searching /// decisions, stores the k-best (or 1-best), and indicates when to stop. class Searcher { public: virtual ~Searcher() { } virtual void process(const Point &node_point) = 0; virtual int side(const T split_value, const int axis) const = 0; virtual bool leftIntersection(const T split_value, const int axis) const = 0; virtual bool rightIntersection(const T split_value, const int axis) const = 0; }; /// Specialization of Searcher for the NN search class OneBestSearcher : public Searcher { Point &X; int best_id; double best_distance; const int D; public: OneBestSearcher(Point &X, const int D) : X(X), best_id(-1), best_distance(DBL_MAX), D(D) { } virtual ~OneBestSearcher() { } virtual void process(const Point &node_point) { const double current_distance = X.dist(node_point, D); if (current_distance < best_distance) { best_distance = current_distance; best_id = node_point.getId(); } } virtual int side(const T split_value, const int axis) const { if (X[axis] < split_value) return 0; else return 1; } virtual bool leftIntersection(const T split_value, const int axis) const { const double diff = X[axis] - split_value; const double intersection_distance = diff*diff; return !(intersection_distance > best_distance) || X[axis] best_distance) || !(X[axis] &a, const april_utils::pair &b) { // we use > instead of < to convert the min_heap into a max_heap return a.second > b.second; } }; /// Specialization of Searcher for the K-NN search. It uses a max_heap where /// the points are ordered by distance (desceding order), allowing to use /// the furthest point to define the hypersphere. class KBestSearcher : public Searcher { typedef april_utils::pair HeapNode; typedef april_utils::min_heap MaxHeapType; Point &X; double kbest_distance; const int D, K; MaxHeapType max_heap; public: KBestSearcher(const int K, Point &X, const int D) : X(X), kbest_distance(DBL_MAX), D(D), K(K), max_heap(K,KbestPairLess()) { } virtual ~KBestSearcher() { } virtual void process(const Point &node_point) { const double current_distance = X.dist(node_point, D); if (current_distance < kbest_distance || max_heap.size() < K) { HeapNode e(node_point.getId(), current_distance); if (max_heap.size() == K) max_heap.pop(); max_heap.push(e); const HeapNode &top = max_heap.top(); kbest_distance = top.second; } } virtual int side(const T split_value, const int axis) const { if (X[axis] < split_value) return 0; else return 1; } virtual bool leftIntersection(const T split_value, const int axis) const { const double diff = X[axis] - split_value; const double intersection_distance = diff*diff; return !(intersection_distance > kbest_distance) || X[axis] kbest_distance) || !(X[axis] &indices, april_utils::vector &distances) { indices.resize(max_heap.size()); distances.resize(max_heap.size()); for (int i=max_heap.size()-1; i>=0; --i) { april_assert(!max_heap.empty()); const HeapNode &top = max_heap.top(); indices[i] = top.first; distances[i] = top.second; max_heap.pop(); } } }; // properties const int D; ///< The number of dimensions int N; ///< The number of points /// A vector with matrices which contains the data april_utils::vector< Matrix* > matrix_vector; /// A vector with indices of first point index in matrix_vector april_utils::vector first_index; /// The root node of the KDTree KDNode *root; MTRand *random; ///< A random number generator // for stats int number_of_processed_points; // private methods /// Builds a point given its index Point makePoint(int index) { int row; Matrix *m = getMatrixAndRow(index,row); return Point(m, row, index); } /// Returns the position of the median given a list of point indices and the /// axis where to compare Point computeMedian(const PointsList *points, const int axis) const { const size_t size = april_utils::min(MEDIAN_APPROX_SIZE, points->size()); PointsList aux( static_cast(size) ); for (size_t i=0; irandInt(size-1)]; MedianCompare predicate(axis); return april_utils::Selection(aux.begin(), size, size/2, predicate); } /// Splits into two PointsList using the given pivot (excluding it) void split(const PointsList *points_list, const Point which, const int axis, PointsList *left, PointsList *right) { T value = which[axis]; for (const Point *it = points_list->begin(); it != points_list->end(); ++it) { if ( (*it) != which) { if ( (*it)[axis] < value ) left->push_back( *it ); else right->push_back(*it); } } } /// Builds recursively the KDTree, returning the node which contains all the /// underlying points KDNode *build(const PointsList *points_list, const int depth) { if (points_list == 0 || points_list->size() == 0) return 0; int axis = depth%D; Point median = computeMedian(points_list, axis); PointsList *left_split, *right_split; left_split = new PointsList(); right_split = new PointsList(); left_split->reserve(points_list->size()/2); right_split->reserve(points_list->size()/2); split(points_list, median, axis, left_split, right_split); // KDNode *node = new KDNode( median, build(left_split, depth+1), build(right_split, depth+1), median[axis]); // delete left_split; delete right_split; return node; } /// Generic search method, uses an instance of Searcher to compute /// intersections with hyperplane and the search hypersphere. void searchKNN(Searcher &searcher, const KDNode *node, const int depth) { if (node == 0) return; const Point &node_point = node->getPoint(); const T split_value = node->getSplitValue(); const KDNode *left = node->getLeft(); const KDNode *right = node->getRight(); const int axis = depth%D; // ++number_of_processed_points; searcher.process(node_point); switch(searcher.side(split_value,axis)) { case 0: searchKNN(searcher, left, depth+1); if (searcher.rightIntersection(split_value,axis)) searchKNN(searcher, right, depth+1); break; case 1: searchKNN(searcher, right, depth+1); if (searcher.leftIntersection(split_value,axis)) searchKNN(searcher, left, depth+1); break; default: ; } } /// For debugging purposes void print(const KDNode *node, int depth) { if (node == 0) return; for (int i=0; igetPoint().getId(), node->getSplitValue()); print(node->getLeft(), depth+1); print(node->getRight(), depth+1); } public: KDTree(const int D, MTRand *random) : D(D), N(0), root(0), random(random) { IncRef(random); first_index.push_back(0); } ~KDTree() { DecRef(random); for (typename april_utils::vector< Matrix* >::iterator it=matrix_vector.begin(); it != matrix_vector.end(); ++it) DecRef(*it); delete root; } /// Returns a matrix and a row from an index point Matrix *getMatrixAndRow(int index, int &row) { april_assert(index >= 0 && index < N); int izq,der,m; izq = 0; der = static_cast(first_index.size()); do { m = (izq+der)/2; if (first_index[m] <= index) izq = m; else der = m; } while (izq < der-1); row = index - first_index[izq]; return matrix_vector[izq]; } void pushMatrix(Matrix *m) { if (m->getNumDim() != 2) ERROR_EXIT(256, "Incorrect number of dimensions, expected bi-dimensional\n"); if (m->getDimSize(1) != D) ERROR_EXIT2(256, "Incorrect number of columns, expected %d, found %d\n", D, m->getDimSize(1)); // accumulate the number of rows in order to compute the total number of // points N += m->getDimSize(0); matrix_vector.push_back(m); IncRef(m); // first_index.push_back(N); } /// Builds the KDTree with all the pushed matrix data. Previous computation /// will be deleted if exists. void build() { delete root; PointsList *points_list = new PointsList(N); int i=0; for (size_t j=0; j *m = matrix_vector[j]; for (int row=0; rowgetDimSize(0); ++row, ++i) { april_assert(i(m, row, i); } } root = build(points_list, 0); delete points_list; } /// Method for 1-NN search, it receives a matrix with one point, and returns /// the best point index (in the order of they were pushed), the distance to /// the best, and a matrix with the best point (if needed, that is, result /// pointer != 0). int searchNN(Matrix *point_matrix, double &distance, Matrix **result) { if (root == 0) ERROR_EXIT(256, "Build method needs to be called before searching\n"); if (point_matrix->getNumDim() != 2 || point_matrix->getDimSize(0) != 1) ERROR_EXIT(256, "A bi-dimensional matrix with one row is needed\n"); if (point_matrix->getDimSize(1) != D) ERROR_EXIT2(256, "Incorrect number of columns, expected %d, found %d\n", D, point_matrix->getDimSize(1)); Point point(point_matrix, 0, -1); OneBestSearcher one_best(point,D); number_of_processed_points = 0; searchKNN(one_best, root, 0); int best_id = one_best.getOneBestIndex(); distance = one_best.getOneBestDistance(); if (result != 0) { int best_row; Matrix *best_matrix = getMatrixAndRow(best_id, best_row); int coords[2] = { best_row, 0 }; int sizes[2] = { 1, D }; *result = new Matrix(best_matrix, coords, sizes, false); } return best_id; } /// Method for K-NN search (with K>1). Tt receives a matrix with one point /// and the K value, and returns a vector of indices, a vector of distances, /// and a vector of matrices (if needed, that is, result pointer != 0). void searchKNN(int K, Matrix *point_matrix, april_utils::vector &indices, april_utils::vector &distances, april_utils::vector< Matrix *> *result=0) { if (root == 0) ERROR_EXIT(256, "Build method needs to be called before searching\n"); if (K == 1) { double distance; Matrix *resultM; int best_id = searchNN(point_matrix,distance,(result!=0)?(&resultM):0); indices.push_back(best_id); distances.push_back(distance); if (result) result->push_back(resultM); } else { if (point_matrix->getNumDim() != 2 || point_matrix->getDimSize(0) != 1) ERROR_EXIT(256, "A bi-dimensional matrix with one row is needed\n"); if (point_matrix->getDimSize(1) != D) ERROR_EXIT2(256, "Incorrect number of columns, expected %d, found %d\n", D, point_matrix->getDimSize(1)); Point point(point_matrix, 0, -1); KBestSearcher k_best(K,point,D); number_of_processed_points = 0; searchKNN(k_best, root, 0); k_best.getBestData(indices,distances); if (result != 0) { result->reserve(static_cast(indices.size())); for (size_t i=0; i *best_matrix = getMatrixAndRow(best_id, best_row); int coords[2] = { best_row, 0 }; int sizes[2] = { 1, D }; result->push_back(new Matrix(best_matrix, coords, sizes, false)); } } } } int getDimSize() const { return D; } int size() const { return N; } /// For debugging purposes void print() { if (root == 0) ERROR_EXIT(256, "Build method needs to be called before print\n"); print(root, 0); } int getNumProcessedPoints() const { return number_of_processed_points; } }; typedef KDTree KDTreeFloat; } #endif // KDTREE_H april-ann-0.3.1/packages/knn/kdtree/c_src/point.h000066400000000000000000000102751234204160600216140ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2014, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef KNN_POINT_H #define KNN_POINT_H #include "matrix.h" namespace KNN { /// Class which defines a sample (a point in the space) for the KNN algorithm /// and KDTree class. This class depends on a memory pointer which depends on /// a Matrix. To retain the Matrix, the KDTree class has the pointer to the /// Matrix object. template class Point { const T *base; int stride, id; public: /// Constant iterator over the point components class const_iterator { friend class Point; const T *ptr; int stride; const_iterator(const T *ptr, int stride) : ptr(ptr), stride(stride) { } public: const_iterator() : ptr(0) { } const_iterator(const const_iterator &other) : ptr(other.ptr), stride(other.stride) { } ~const_iterator() { } const_iterator &operator=(const const_iterator &other) { ptr = other->ptr; stride = other->stride; return *this; } const_iterator &operator++() { ptr+=stride; return *this; } const_iterator &operator--() { ptr-=stride; return *this; } const_iterator &operator+=(int v) { ptr+=stride*v; return *this; } const_iterator &operator-=(int v) { ptr-=stride*v; return *this; } const T &operator*() const { return *ptr; } const T *operator->() const { return ptr; } bool operator==(const const_iterator &other) const { return other.ptr == ptr; } bool operator!=(const const_iterator &other) const { return other.ptr != ptr; } bool operator<(const const_iterator &other) const { return other.ptr < ptr; } bool operator<=(const const_iterator &other) const { return other.ptr <= ptr; } bool operator>(const const_iterator &other) const { return other.ptr > ptr; } bool operator>=(const const_iterator &other) const { return other.ptr >= ptr; } }; // Point() : base(0) { } Point(const Point &other) : base(other.base), stride(other.stride), id(other.id) { } Point(const T *base, int stride, int id) : base(base), stride(stride), id(id) { } Point(const Matrix *m, int row, int id) :id(id) { april_assert(m->getNumDim() == 2); int coords[2] = { row, 0 }; base = m->getRawDataAccess()->getPPALForRead()+m->computeRawPos(coords); stride = m->getStrideSize(1); } ~Point() { } Point &operator=(const Point &other) { base = other.base; stride = other.stride; id = other.id; return *this; } bool operator==(const Point &other) const { return other.base == base; } bool operator!=(const Point &other) const { return other.base != base; } const T &operator[](int pos) const { return base[stride*pos]; } const_iterator begin() const { return const_iterator(base, stride); } const_iterator end(const int D) const { return const_iterator(base+D*stride, stride); } int getId() const { return id; } // WARNING: this function must to be redefined if the type T is not a plain // type (like a Complex number). double dist(const Point &other, const int D) const { const T *this_ptr = base; const T *other_ptr = other.base; double d = 0.0; for (int i=0; i max then best_class,max = c,counts[c] end end return best_class end function knn.kdtree.posteriorKNN(result, get_class_function) local posteriors = {} local cte local best,argbest=-math.huge,-1 for i=1,#result do local c = get_class_function(result[i][1]) local logp = -result[i][2] posteriors[c] = (posteriors[c] and math.logadd(posteriors[c],logp)) or logp cte = (cte and math.logadd(cte,logp)) or logp end for i,v in pairs(posteriors) do local logp = v - cte posteriors[i] = logp if logp > best then best,argbest=logp,i end end return posteriors,argbest,best end function knn.kdtree.regressionKNN(result, get_target_function) local posteriors = {} local cte for i=1,#result do local logp = -result[i][2] posteriors[i] = logp cte = (cte and math.logadd(cte,logp)) or logp end local wrap_table = { matrix = function(a) return a end, matrixComplex = function(a) return a end, table = function(a) return matrix(#a, a) end, number = function(a) return matrix(1,{a}) end, } local wrap_func = function(a) return assert(wrap_table[type(a)](a), "Incorrect type returned by get_target_function, expected a matrix, a table or a number") end local logp = posteriors[1] - cte posteriors[1] = logp local result = wrap_func(get_target_function(result[1][1])):clone(): scal(math.exp(logp)) for i=2,#posteriors do local logp = posteriors[i] - cte posteriors[i] = logp local target = wrap_func(get_target_function(result[i][1])) result:axpy(math.exp(logp), target) end return result,posteriors end april-ann-0.3.1/packages/knn/kdtree/package.lua000066400000000000000000000022571234204160600213200ustar00rootroot00000000000000 package{ name = "knn.kdtree", version = "1.0", depends = { "util", "random", "matrix" }, keywords = { "KDTree for KNN utilities" }, description = "KDTree for KNN utilities", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "test", execute_script{ file={ "test/test-digits.lua", }, }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_kdtree.lua.cc", dest_dir = "include" } }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_kdtree.lua.cc", dest_dir = "build", } }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/knn/kdtree/test/000077500000000000000000000000001234204160600201735ustar00rootroot00000000000000april-ann-0.3.1/packages/knn/kdtree/test/test-digits.lua000066400000000000000000000046461234204160600231500ustar00rootroot00000000000000local dir = string.get_path(arg[0]) local data = ImageIO.read(dir .. "../../../../TEST/digitos/digits.png"):to_grayscale():invert_colors():matrix() local TOP_PCA = 10 local EPSILON = 1e-05 local PCA_EPSILON = 0.024226 local KNN = 7 local DO_PCA = false local train_data = matrix(800,256) local val_data = matrix(200,256) local i=1 for sw in data:sliding_window{ size={16,16}, step={16,16}, numSteps={80,10} }:iterate() do train_data(i,':'):rewrap(16,16):copy(sw) i=i+1 end local i=1 for sw in data:sliding_window{ size={16,16}, step={16,16}, numSteps={20,10}, offset={1280,0} }:iterate() do val_data(i,':'):rewrap(16,16):copy(sw) i=i+1 end if DO_PCA then local U,S = stats.pca(train_data:clone("col_major")) U=U:clone("row_major") S=S:clone("row_major") train_data = stats.pca_whitening(train_data,U,S,PCA_EPSILON) -- print(stats.pca_threshold(S,0.99)) train_data = train_data(':',{1,TOP_PCA}) val_data = stats.pca_whitening(val_data,U,S,PCA_EPSILON) val_data = val_data(':',{1,TOP_PCA}) end -- local D = train_data:dim(2) local kdt = knn.kdtree(D,random(213824)) kdt:push(train_data) kdt:build() local errors=0 local errors2=0 for i=1,val_data:dim(1) do local pat = val_data(i,':') local result = kdt:searchKNN(KNN,pat) -- MAJORITY VOTE local best_class = knn.kdtree.classifyKNN(result, function(id) return (id-1)%10 end) local dist=result[1][2] -- print(i,best_class,counts[best_class]) local target_class = (i-1) % 10 -- POSTERIORS local posteriors = knn.kdtree.posteriorKNN(result, function(id) return (id-1)%10 end) local best_class2 = iterator(pairs(posteriors)):map(table.pack): reduce(function(acc,b) return (b[2]>acc[2] and { b[1], b[2] }) or acc end, { -1, -math.huge })[1] -- CLASSIFY if best_class2 ~= target_class then errors=errors+1 end -- -- iterator(ipairs(posteriors)):select(2):map(table.unpack):apply(print) -- NAIVE CLASSIFIER local naive_result = {} for j=1,train_data:dim(1) do local trainpat = train_data(j,':') local dist = (trainpat - pat):pow(2):sum() table.insert(naive_result, {j, dist}) end table.sort(naive_result, function(a,b) return a[2] < b[2] end) naive_result = table.slice(naive_result, 1, KNN) for i=1,KNN do assert(math.abs(result[i][2] - naive_result[i][2])/result[i][2] < EPSILON) end end print(100*errors/val_data:dim(1) .. "%", errors) april-ann-0.3.1/packages/knn/kdtree/test/test.lua000066400000000000000000000017771234204160600216710ustar00rootroot00000000000000local N = 1000000 local D = 6 local rnd = random(1234) local m1 = matrix(N,D):uniformf(-1,1,rnd) local m2 = matrix(N,D):uniformf(-1,1,rnd) -- local kdt = knn.kdtree(m1:dim(2),random(8424)) kdt:push(m1) kdt:push(m2) kdt:build() -- KDTREE SEARCH local p = matrix(1,D):uniformf(-1,1,rnd) local bestid,bestdist,best = kdt:searchNN(p) print(p) print(bestid, table.concat(kdt:get_point_matrix(bestid):toTable(), " ")) print(bestdist) print("stats:",kdt:stats()) -- KNN SEARCH local result = kdt:searchKNN(4,p) for i=1,#result do print(i, result[i][1], result[i][2], table.concat(kdt:get_point_matrix(result[i][1]):toTable(), " ")) end print("stats:",kdt:stats()) -- NAIVE LINEAR SEARCH local besti local bestd = math.huge for i=1,m1:dim(1) do local aux = m1(i,':') local d = (aux-p):pow(2):sum() if d < bestd then bestd,besti = d,i end end for i=1,m2:dim(1) do local aux = m2(i,':') local d = (aux-p):pow(2):sum() local j = m1:dim(1)+i if d < bestd then bestd,besti = d,j end end print(besti) print(bestd) april-ann-0.3.1/packages/misc/000077500000000000000000000000001234204160600161035ustar00rootroot00000000000000april-ann-0.3.1/packages/misc/gzio/000077500000000000000000000000001234204160600170535ustar00rootroot00000000000000april-ann-0.3.1/packages/misc/gzio/binding/000077500000000000000000000000001234204160600204655ustar00rootroot00000000000000april-ann-0.3.1/packages/misc/gzio/binding/bind_gzio.lua.cc000066400000000000000000000077211234204160600235270ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C //BIND_END //BIND_HEADER_H #include "buffered_gzfile.h" //BIND_END //BIND_LUACLASSNAME BufferedGZFile gzio //BIND_CPP_CLASS BufferedGZFile //BIND_CONSTRUCTOR BufferedGZFile { LUABIND_ERROR("Use open class method instead of the constructor"); } //BIND_END //BIND_CLASS_METHOD BufferedGZFile open { const char *path, *mode; LUABIND_GET_PARAMETER(1, string, path); LUABIND_GET_OPTIONAL_PARAMETER(2, string, mode, "r"); BufferedGZFile *obj = new BufferedGZFile(path, mode); if (obj->good()) LUABIND_RETURN(BufferedGZFile, obj); else { LUABIND_RETURN_NIL(); delete obj; } } //BIND_END //BIND_METHOD BufferedGZFile close { obj->close(); } //BIND_END //BIND_METHOD BufferedGZFile flush { obj->flush(); } //BIND_END //BIND_METHOD BufferedGZFile seek { int offset; const char *whence; int int_whence; LUABIND_GET_OPTIONAL_PARAMETER(1, string, whence, "cur"); LUABIND_GET_OPTIONAL_PARAMETER(2, int, offset, 0); if (strcmp(whence, "cur") == 0) int_whence = SEEK_CUR; else if (strcmp(whence, "set") == 0) int_whence = SEEK_SET; else { int_whence = SEEK_END; LUABIND_FERROR1("Not supported whence '%s'", whence); } int ret = obj->seek(int_whence, offset); if (ret < 0) { LUABIND_RETURN_NIL(); LUABIND_RETURN(string, "Impossible to execute seek"); } else LUABIND_RETURN(int, ret); } //BIND_END //BIND_METHOD BufferedGZFile read { /* "*n" reads a number; this is the only format that returns a number instead of a string. "*a" reads the whole file, starting at the current position. On end of file, it returns the empty string. "*l" reads the next line (skipping the end of line), returning nil on end of file. This is the default format. number reads a string with up to that number of characters, returning nil on end of file. If number is zero, it reads nothing and returns an empty string, or nil on end of file. */ int argn = lua_gettop(L); // number of arguments int num_returned_values=0; if (argn == 0) num_returned_values += obj->readAndPushLineToLua(L); else { for (int i=1; i<=argn; ++i) { if (lua_isnil(L, i)) num_returned_values += obj->readAndPushLineToLua(L); else if (lua_isnumber(L, i)) { int size; LUABIND_GET_PARAMETER(i, int, size); num_returned_values += obj->readAndPushStringToLua(L, size); } else { const char *format; LUABIND_GET_PARAMETER(i, string, format); // a number if (strcmp(format, "*n") == 0) num_returned_values += obj->readAndPushNumberToLua(L); // the whole file else if (strcmp(format, "*a") == 0) num_returned_values += obj->readAndPushAllToLua(L); // a line else if (strcmp(format, "*l") == 0) num_returned_values += obj->readAndPushLineToLua(L); else LUABIND_FERROR1("Unrecognized format string '%s'", format); } } } if (num_returned_values == 0) LUABIND_RETURN_NIL(); else LUABIND_INCREASE_NUM_RETURNS(num_returned_values); } //BIND_END //BIND_METHOD BufferedGZFile write { int argn = lua_gettop(L); // number of arguments for (int i=1; i<=argn; ++i) { const char *value; LUABIND_GET_PARAMETER(i, string, value); obj->printf("%s", value); } } //BIND_END april-ann-0.3.1/packages/misc/gzio/c_src/000077500000000000000000000000001234204160600201445ustar00rootroot00000000000000april-ann-0.3.1/packages/misc/gzio/c_src/buffered_gzfile.cc000066400000000000000000000016021234204160600235740ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "buffered_gzfile.h" template class BufferedMemory; april-ann-0.3.1/packages/misc/gzio/c_src/buffered_gzfile.h000066400000000000000000000047651234204160600234530ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef BUFFERED_GZFILE_H #define BUFFERED_GZFILE_H #include #include #include "buffered_memory.h" class GZFileWrapper { gzFile f; bool need_close; public: static bool isGZ(const char *filename) { int len = strlen(filename); return (len > 3 && filename[len-3] == '.' && filename[len-2] == 'g' && filename[len-1] == 'z'); } GZFileWrapper(GZFileWrapper &other) : f(other.f), need_close(false) { } GZFileWrapper(gzFile f) : f(f), need_close(false) { } GZFileWrapper() : f(0), need_close(true) { } ~GZFileWrapper() { closeS(); } bool isOpened() const { return f != 0; } bool openS(const char *path, const char *mode) { f = gzopen(path, mode); need_close = true; return f != 0; } void closeS() { if (need_close && f != 0) gzclose(f); f = 0; } size_t readS(void *ptr, size_t size, size_t nmemb) { return gzread(f, ptr, size*nmemb); } size_t writeS(const void *ptr, size_t size, size_t nmemb) { return gzwrite(f, ptr, size*nmemb); } int seekS(long offset, int whence) { if (whence == SEEK_END) ERROR_EXIT(256, "gzFile doesn't support whence=SEEK_END\n"); return gzseek(f, offset, whence); } void flushS() { gzflush(f, Z_SYNC_FLUSH); } int printfS(const char *format, va_list &arg) { char *aux_buffer; size_t len; if (vasprintf(&aux_buffer, format, arg) < 0) ERROR_EXIT(256, "Problem creating auxiliary buffer\n"); len = strlen(aux_buffer); if (len > 0) len = gzwrite(f, aux_buffer, len); free(aux_buffer); return len; } bool eofS() const { return gzeof(f) != 0; } }; typedef BufferedMemory BufferedGZFile; #endif // BUFFERED_GZFILE_H april-ann-0.3.1/packages/misc/gzio/lua_src/000077500000000000000000000000001234204160600205035ustar00rootroot00000000000000april-ann-0.3.1/packages/misc/gzio/lua_src/gzio.lua000066400000000000000000000016301234204160600221560ustar00rootroot00000000000000-- modificamos el io.open local io_old_open = io.open io.open = function(name, mode) local f if string.get_extension(name) == "gz" then f = gzio.open(name, mode) else f = io_old_open(name, mode) end return f end local io_old_lines = io.lines io.lines = function(name, ...) if name~=nil and string.get_extension(name) == "gz" then local arg = { ... } local f = gzio.open(name) return function() local values = { f:read(table.unpack(arg)) } if #values == 0 or values[1] == nil then f:close() return nil end return table.unpack(values) end else return io_old_lines(name, ...) end end local function gzio_lines(self, ...) local arg = { ... } return function() local values = { self:read(table.unpack(arg)) } if values[1] == nil then return nil end return table.unpack(values) end end class_extension(gzio, "lines", gzio_lines) april-ann-0.3.1/packages/misc/gzio/lua_src/tar.lua000066400000000000000000000207621234204160600220030ustar00rootroot00000000000000----------------------------------------------------------------------------- -- tar - Lua Tape ARchive module -- -- Code for managing tar files -- -- Version 0.1 (21 AUG 2007) -- -- Author: Judge Maygarden (jmaygarden@computer.org) -- -- Copyright (c) 2007 Judge Maygarden ----------------------------------------------------------------------------- local public = {} local private = {} local TarFile = {} local TarInternalFile = {} tar = public TarFile.__index = TarFile TarInternalFile.__index = TarInternalFile ----------------------------------------------------------------------------- -- Closes file ----------------------------------------------------------------------------- function TarInternalFile:close() end ----------------------------------------------------------------------------- -- UNSUPPORTED: Saves any written data to file ----------------------------------------------------------------------------- function TarInternalFile:flush() error('Tar file output flushing is unsupported.') end ----------------------------------------------------------------------------- -- Returns an iterator function that returns a new line from the file -- @return String repressenting a line from the file without the newline ----------------------------------------------------------------------------- function TarInternalFile:lines() return function(s, var) return self:read("*l") end, self, nil end ----------------------------------------------------------------------------- -- Reads the file according to the given formats as follows: -- "*n": reads a number -- "*a": reads the whole file -- "*l" reads the next line -- number: reads a string with up to this number of characters -- @param variadic list of formats (default "*l") -- @return list of strings (or numbers) or nil if end of file or format error ----------------------------------------------------------------------------- function TarInternalFile:read(...) local eof = self.offset + self.size if self.pointer >= eof then return nil end -- eof local t = {} self.archive.file:seek("set", self.pointer) for i, v in ipairs{...} do local s if "*a" == v then s = self.archive.file:read(eof - self.pointer) elseif "*l" == v or "*n" == v or "number" == type(v) then s = self.archive.file:read(v) else error('bad argument %d to %s (%s)', i 'TarInternalFile:read', 'invalid format') return nil end local last = self.pointer self.pointer = self.archive.file:seek() if s and self.pointer < eof then table.insert(t, s) elseif s then table.insert(t, string.sub(s, 1, eof - last - 1)) self.pointer = self.offset + self.size break else break end end return table.unpack(t) end ----------------------------------------------------------------------------- -- Sets and gets the file position measured from the given base as follows: -- "set": base is position 0 (beginning of the file) -- "cur": base is current position -- "end": base is end of file -- @param base position (default "cur") -- @param offset in bytes (default 0) -- @return final position ----------------------------------------------------------------------------- function TarInternalFile:seek(whence, offset) local whence = whence or "cur" local offset = offset or 0 local eof = self.offset + self.size local final local err if "cur" == whence then final, err = self.archive.file:seek("set", offset + self.pointer) - self.offset elseif "set" == whence then final, err = self.archive.file:seek("set", offset + self.offset) - self.offset elseif "end" == whence then final, err = self.archive.file:seek("set", offset + eof - 1) - self.offset else final, err = self.archive.file:seek(whence, offset) end if not final then return nil, err elseif final < 0 then final = 0 elseif final > self.size then final = self.size end self.pointer = final + self.offset return final end ----------------------------------------------------------------------------- -- UNSUPPORTED: Sets the buffering mode for an output file -- @param "no" - no buffering, "full" - full buffering, "line" - line buffering -- @param size of the buffer for "full" and "line" modes ----------------------------------------------------------------------------- function TarInternalFile:setvbuf(mode, size) error('Tar file output buffering is unsupported.') end ----------------------------------------------------------------------------- -- UNSUPPORTED: Writes the value of each of its arguments to the file -- @param string or numbers values only ----------------------------------------------------------------------------- function TarInternalFile:write(...) error('Tar file writes are unsupported.') end ----------------------------------------------------------------------------- -- Opens a file inside the tar file archive -- @param pathname of a file inside the tar file -- @return file handle or nil if the file is not found ----------------------------------------------------------------------------- function TarFile:open(filename) if not self.list[filename] then return nil end local file = {} file.archive = self file.filename = filename file.offset = self.list[filename].offset file.pointer = file.offset file.size = self.list[filename].size setmetatable(file, TarInternalFile) return file end ----------------------------------------------------------------------------- -- Returns an iterator over all files in the tar archive -- @return interator function, tar file handle ----------------------------------------------------------------------------- function TarFile:files() return next, self.list, nil end ----------------------------------------------------------------------------- -- Data for parsing tar header fields ----------------------------------------------------------------------------- private.HEADER_DATA = { -- { field, offset, size, octal } { "name", 0, 100 }, { "mode", 100, 8, true }, { "uid", 108, 8, true }, { "gid", 116, 8, true }, { "size", 124, 12, true }, { "mtime", 136, 12, true }, { "chksum", 148, 8, true }, { "typeflag", 156, 1, true }, { "linkname", 157, 100 }, { "magic", 257, 6 }, { "version", 263, 2 }, { "uname", 265, 32 }, { "gname", 297, 32 }, { "devmajor", 329, 8, true }, { "devminor", 337, 8, true }, { "prefix", 345, 155 }, } ----------------------------------------------------------------------------- -- Converts an octal string into a number -- @param string of octal digits -- @return number or nil if an invalid string was passed ----------------------------------------------------------------------------- private.octal = function(s) if string.match(s, "[^0-7]") then return nil end local n, m = 0, 0 for i = string.len(s), 1, -1 do n = n + (string.byte(s, i) - 48) * 8 ^ m m = m + 1 end return n end ----------------------------------------------------------------------------- -- Decodes a tar file header -- @param 512-byte string containing a tar file header block -- @return table containg the header fields ----------------------------------------------------------------------------- private.decode = function(header) local t = {} for _, field in ipairs(private.HEADER_DATA) do local s = string.sub(header, field[2] + 1, field[2] + field[3]) local s = string.match(s, "[^%z]*") if field[4] then t[field[1]] = private.octal(s) else t[field[1]] = s end end if 0 < string.len(t.prefix) then t.pathname = t.prefix..'/'..t.name else t.pathname = t.name end return t end ----------------------------------------------------------------------------- -- Opens a tar archive by attaching to the provided Lua file handle. -- Ownership of the file handle is transferred to the returned table and -- should no longer be referenced by the user. -- @param open file handle -- @return tar file handle ----------------------------------------------------------------------------- public.open = function(file) assert(file, 'invalid file handle') local archive = {} archive.file = file archive.list = {} local p = file:seek("set") while true do local block = file:read(512) if not block or not string.match(block, "[^%z]") then break end local header = private.decode(block) if 0 == header.typeflag then archive.list[header.pathname] = { ["offset"] = file:seek(), ["size"] = header.size } end local p = file:seek("cur", 512 * math.ceil(header.size / 512)) end setmetatable(archive, TarFile) return archive end return tar april-ann-0.3.1/packages/misc/gzio/package.lua000066400000000000000000000022531234204160600211530ustar00rootroot00000000000000 package{ name = "gzio", version = "1.0", depends = { "util" }, link_libraries = { "z" }, keywords = { "gzio" }, description = "read and write tar/gz files", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "test", execute_script{ file={ "test/test.lua", "test/test.lua", }, }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_gzio.lua.cc", dest_dir = "include" } }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_gzio.lua.cc", dest_dir = "build", } }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/misc/gzio/test/000077500000000000000000000000001234204160600200325ustar00rootroot00000000000000april-ann-0.3.1/packages/misc/gzio/test/a.tar.gz000066400000000000000000000003211234204160600213750ustar00rootroot00000000000000KԿ0}ߗ &c|7zg&_Y ?~B,]S{y(;6.cppM&X̪m|*+(april-ann-0.3.1/packages/misc/gzio/test/test.lua000066400000000000000000000016271234204160600215220ustar00rootroot00000000000000-- gzio is used exactly the same way as standard module io f=gzio.open("test.gz", "w") f:write("Hello, World.\n") f:close() f=io.open("test.gz") assert(f:read("*l"), "Hello, World.") f:close() for line in io.lines("test.gz") do assert(line, "Hello, World.") end os.remove("test.gz") -- the tar module reads tar files, can be used with gzio in order to read tgz f=gzio.open(string.get_path(arg[0]).."a.tar.gz") t=tar.open(f) data = { ["dos.txt"] = { "Hola, soy dos.txt.", "Tengo mas lineas que uno.txt.", "Pero no muchas mas.", "Adios.", }, ["uno.txt"] = { "Hola, soy uno.txt.", }, } for i in t:files() do assert(data[i], string.format("File %s is not expected",i)) f2=t:open(i) local all = f2:read("*a") assert(all == table.concat(data[i],"\n"), string.format("Problem with file %s, expected\n%s\nFound\n%s\n", i, table.concat(data[i],"\n"), all)) f2:close() end april-ann-0.3.1/packages/misc/matlab/000077500000000000000000000000001234204160600173435ustar00rootroot00000000000000april-ann-0.3.1/packages/misc/matlab/binding/000077500000000000000000000000001234204160600207555ustar00rootroot00000000000000april-ann-0.3.1/packages/misc/matlab/binding/bind_matlab.lua.cc000066400000000000000000000244241234204160600243060ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013 Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ //BIND_HEADER_C #include "bind_matrix.h" #include "bind_matrix_complex_float.h" #include "bind_matrix_char.h" #include "bind_matrix_int32.h" #include "bind_matrix_double.h" int elements_iterator_function(lua_State *L) { MatFileReader *obj = lua_toMatFileReader(L,1); MatTaggedDataElement *element = obj->getNextDataElement(); if (element == 0) { lua_pushnil(L); return 1; } lua_pushMatTaggedDataElement(L, element); return 1; } //BIND_END //BIND_HEADER_H #include "matlab.h" typedef MatFileReader::DataElementInterface MatDataElementInterface; typedef MatFileReader::TaggedDataElement MatTaggedDataElement; typedef MatFileReader::CellArrayDataElement MatCellArrayDataElement; typedef MatFileReader::StructureDataElement MatStructureDataElement; //BIND_END //BIND_LUACLASSNAME MatFileReader matlab.reader //BIND_CPP_CLASS MatFileReader //BIND_LUACLASSNAME MatDataElementInterface matlab.__element_interface__ //BIND_CPP_CLASS MatDataElementInterface //BIND_LUACLASSNAME MatTaggedDataElement matlab.tagged_element //BIND_CPP_CLASS MatTaggedDataElement //BIND_SUBCLASS_OF MatTaggedDataElement MatDataElementInterface //BIND_LUACLASSNAME MatCellArrayDataElement matlab.cell_array //BIND_CPP_CLASS MatCellArrayDataElement //BIND_SUBCLASS_OF MatCellArrayDataElement MatDataElementInterface //BIND_ENUM_CONSTANT matlab.types.matrix MatFileReader::MATRIX //BIND_ENUM_CONSTANT matlab.types.int8 MatFileReader::INT8 //BIND_ENUM_CONSTANT matlab.types.int16 MatFileReader::INT16 //BIND_ENUM_CONSTANT matlab.types.int32 MatFileReader::INT32 //BIND_ENUM_CONSTANT matlab.types.int64 MatFileReader::INT64 //BIND_ENUM_CONSTANT matlab.types.uint8 MatFileReader::UINT8 //BIND_ENUM_CONSTANT matlab.types.uint16 MatFileReader::UINT16 //BIND_ENUM_CONSTANT matlab.types.uint32 MatFileReader::UINT32 //BIND_ENUM_CONSTANT matlab.types.uint64 MatFileReader::UINT64 //BIND_ENUM_CONSTANT matlab.types.single MatFileReader::SINGLE //BIND_ENUM_CONSTANT matlab.types.double MatFileReader::DOUBLE //BIND_ENUM_CONSTANT matlab.types.utf8 MatFileReader::UTF8 //BIND_ENUM_CONSTANT matlab.types.utf16 MatFileReader::UTF16 //BIND_ENUM_CONSTANT matlab.types.utf32 MatFileReader::UTF32 //BIND_ENUM_CONSTANT matlab.classes.cell_array MatFileReader::CL_CELL_ARRAY //BIND_ENUM_CONSTANT matlab.classes.structure MatFileReader::CL_STRUCTURE //BIND_ENUM_CONSTANT matlab.classes.object MatFileReader::CL_OBJECT //BIND_ENUM_CONSTANT matlab.classes.char MatFileReader::CL_CHAR //BIND_ENUM_CONSTANT matlab.classes.sparse MatFileReader::CL_SPARSE //BIND_ENUM_CONSTANT matlab.classes.double MatFileReader::CL_DOUBLE //BIND_ENUM_CONSTANT matlab.classes.single MatFileReader::CL_SINGLE //BIND_ENUM_CONSTANT matlab.classes.int8 MatFileReader::CL_INT8 //BIND_ENUM_CONSTANT matlab.classes.uint8 MatFileReader::CL_UINT8 //BIND_ENUM_CONSTANT matlab.classes.int16 MatFileReader::CL_INT16 //BIND_ENUM_CONSTANT matlab.classes.uint16 MatFileReader::CL_UINT16 //BIND_ENUM_CONSTANT matlab.classes.int32 MatFileReader::CL_INT32 //BIND_ENUM_CONSTANT matlab.classes.uint32 MatFileReader::CL_UINT32 //BIND_ENUM_CONSTANT matlab.classes.int64 MatFileReader::CL_INT64 //BIND_ENUM_CONSTANT matlab.classes.uint64 MatFileReader::CL_UINT64 ///////////////////////////////////////////////////////////////////////////// //BIND_CONSTRUCTOR MatDataElementInterface { LUABIND_ERROR("Abstract class"); } //BIND_END //BIND_METHOD MatDataElementInterface get_type { LUABIND_RETURN(uint, obj->getDataType()); } //BIND_END //BIND_METHOD MatDataElementInterface get_class { LUABIND_RETURN(uint, obj->getClass()); } //BIND_END ///////////////////////////////////////////////////////////////////////////// //BIND_CONSTRUCTOR MatFileReader { LUABIND_CHECK_ARGN(==,1); const char *path; LUABIND_GET_PARAMETER(1, string, path); MatFileReader *reader = new MatFileReader(path); LUABIND_RETURN(MatFileReader, reader); } //BIND_END //BIND_METHOD MatFileReader reset { obj->reset(); } //BIND_END //BIND_METHOD MatFileReader get_next_element { MatTaggedDataElement *element = obj->getNextDataElement(); LUABIND_RETURN(MatTaggedDataElement, element); } //BIND_END //BIND_METHOD MatFileReader elements { LUABIND_RETURN(cfunction,elements_iterator_function); LUABIND_RETURN(MatFileReader,obj); } //BIND_END //////////////////////////////////////////////////////////////////////////// //BIND_CONSTRUCTOR MatTaggedDataElement { LUABIND_ERROR("abstract class"); } //BIND_END //BIND_METHOD MatTaggedDataElement get_matrix { bool col_major; LUABIND_GET_OPTIONAL_PARAMETER(1, bool, col_major, false); char name[MAX_NAME_SIZE]; MatrixFloat *m = obj->getMatrix(name, MAX_NAME_SIZE, col_major); if (m != 0) { LUABIND_RETURN(MatrixFloat, m); LUABIND_RETURN(string, name); } } //BIND_END //BIND_METHOD MatTaggedDataElement get_matrix_complex { bool col_major; LUABIND_GET_OPTIONAL_PARAMETER(1, bool, col_major, false); char name[MAX_NAME_SIZE]; MatrixComplexF *m = obj->getMatrixComplexF(name, MAX_NAME_SIZE, col_major); LUABIND_RETURN(MatrixComplexF, m); LUABIND_RETURN(string, name); } //BIND_END //BIND_METHOD MatTaggedDataElement get_matrix_double { char name[MAX_NAME_SIZE]; MatrixDouble *m = obj->getMatrixDouble(name, MAX_NAME_SIZE); if (m != 0) { LUABIND_RETURN(MatrixDouble, m); LUABIND_RETURN(string, name); } } //BIND_END //BIND_METHOD MatTaggedDataElement get_matrix_char { char name[MAX_NAME_SIZE]; MatrixChar *m = obj->getMatrixChar(name, MAX_NAME_SIZE); LUABIND_RETURN(MatrixChar, m); LUABIND_RETURN(string, name); } //BIND_END //BIND_METHOD MatTaggedDataElement get_matrix_int32 { char name[MAX_NAME_SIZE]; MatrixInt32 *m = obj->getMatrixInt32(name, MAX_NAME_SIZE); if (m != 0) { LUABIND_RETURN(MatrixInt32, m); LUABIND_RETURN(string, name); } } //BIND_END //BIND_METHOD MatTaggedDataElement get_cell_array { char name[MAX_NAME_SIZE]; MatCellArrayDataElement *c = obj->getCellArray(name, MAX_NAME_SIZE); LUABIND_RETURN(MatCellArrayDataElement, c); LUABIND_RETURN(string, name); } //BIND_END //BIND_METHOD MatTaggedDataElement get_structure { char name[MAX_NAME_SIZE]; MatStructureDataElement *s = obj->getStructure(name, MAX_NAME_SIZE); lua_createtable(L, 0, s->size()); for (MatStructureDataElement::HashType::iterator it=s->begin(); it != s->end(); ++it) { const char *ename = it->first.c_str(); MatTaggedDataElement *e = it->second; lua_pushstring(L, ename); lua_pushMatTaggedDataElement(L, e); lua_rawset(L, -3); } LUABIND_RETURN_FROM_STACK(-1); LUABIND_RETURN(string, name); delete s; } //BIND_END //BIND_METHOD MatTaggedDataElement reset { obj->reset(); } //BIND_END //BIND_METHOD MatTaggedDataElement get_num_bytes { LUABIND_RETURN(uint, obj->getNumberOfBytes()); } //BIND_END //BIND_METHOD MatTaggedDataElement get_next_subelement { if (obj->getNextSubElement() != 0) LUABIND_RETURN(MatTaggedDataElement, obj->getNextSubElement()); else LUABIND_RETURN_NIL(); } //BIND_END ///////////////////////////////////////////////////////////////////////////// //BIND_CONSTRUCTOR MatCellArrayDataElement { LUABIND_ERROR("abstract class\n"); } //BIND_END //BIND_METHOD MatCellArrayDataElement compute_coords { LUABIND_CHECK_ARGN(==,1); int raw_idx; LUABIND_GET_PARAMETER(1, int, raw_idx); if (raw_idx < 0 || raw_idx >= obj->getSize()) LUABIND_FERROR3("Incorrect raw index, found %d, expected betwen [%d,%d]", raw_idx, 0, obj->getSize()); int *coords = new int[obj->getNumDim()]; obj->computeCoords(raw_idx, coords); for (int i=0; igetNumDim(); ++i) coords[i]++; LUABIND_VECTOR_TO_NEW_TABLE(int, coords, obj->getNumDim()); LUABIND_RETURN_FROM_STACK(-1); delete[] coords; } //BIND_END //BIND_METHOD MatCellArrayDataElement raw_get { LUABIND_CHECK_ARGN(==,1); int raw_idx; LUABIND_GET_PARAMETER(1, int, raw_idx); if (raw_idx < 0 || raw_idx >= obj->getSize()) LUABIND_FERROR3("Incorrect raw index, found %d, expected betwen [%d,%d]", raw_idx, 0, obj->getSize()); LUABIND_RETURN(MatTaggedDataElement, obj->getElementAt(raw_idx)); } //BIND_END //BIND_METHOD MatCellArrayDataElement size { LUABIND_RETURN(int, obj->getSize()); } //BIND_END //BIND_METHOD MatCellArrayDataElement get { int argn = lua_gettop(L); // number of arguments if (argn != obj->getNumDim()) LUABIND_FERROR2("wrong size %d instead of %d",argn,obj->getNumDim()); int *coords = new int[obj->getNumDim()]; for (int i=0; igetNumDim(); ++i) { LUABIND_GET_PARAMETER(i+1,int,coords[i]); if (coords[i]<1 || coords[i] > obj->getDimSize(i)) { LUABIND_FERROR2("wrong index parameter: 1 <= %d <= %d is incorrect", coords[i], obj->getDimSize(i)); } coords[i]--; } MatTaggedDataElement *e = obj->getElementAt(coords, argn); delete[] coords; LUABIND_RETURN(MatTaggedDataElement, e); } //BIND_END //BIND_METHOD MatCellArrayDataElement dim { int argn = lua_gettop(L); // number of arguments if (argn == 1) { int idx; LUABIND_GET_PARAMETER(1, int, idx); if (idx < 1 || idx > obj->getNumDim()) LUABIND_FERROR3("Incorrect dimension number, found %d, expected " "between [%d,%d]", idx, 1, obj->getNumDim()); LUABIND_RETURN(int, obj->getDimSize(idx-1)); } else { const int *d = obj->getDimPtr(); LUABIND_VECTOR_TO_NEW_TABLE(int, d, obj->getNumDim()); LUABIND_RETURN_FROM_STACK(-1); } } //BIND_END ///////////////////////////////////////////////////////////////////////////// //BIND_CONSTRUCTOR MatStructureDataElement { LUABIND_ERROR("abstract class\n"); } //BIND_END april-ann-0.3.1/packages/misc/matlab/c_src/000077500000000000000000000000001234204160600204345ustar00rootroot00000000000000april-ann-0.3.1/packages/misc/matlab/c_src/matlab.cc000066400000000000000000000755511234204160600222200ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include #include #include #include #include // mmap() is defined in this header #include #include #include #include "unused_variable.h" #include "matlab.h" #include "endianism.h" #include "ignore_result.h" #include "error_print.h" #define MOD8(v) (v)&(0x07) using april_utils::swap_bytes_in_place; using april_utils::string; int inflate(const void *src, int srcLen, void *dst, int dstLen) { z_stream strm; strm.next_in = 0; strm.total_in = strm.avail_in = srcLen; strm.total_out = strm.avail_out = dstLen; strm.next_in = (Bytef *) src; strm.next_out = (Bytef *) dst; strm.zalloc = Z_NULL; strm.zfree = Z_NULL; strm.opaque = Z_NULL; int err = -1; int ret = -1; // 15 window bits, and the +32 tells zlib to to detect if using gzip or zlib err = inflateInit2(&strm, (15 + 32)); if (err == Z_OK) { err = inflate(&strm, Z_FINISH); if (err == Z_STREAM_END) { ret = strm.total_out; } else { inflateEnd(&strm); return err; } } else { inflateEnd(&strm); return err; } inflateEnd(&strm); return ret; } template inline void sanity_check_float_precision(T num) { if (num >= 16777216 || num <= -16777216) ERROR_PRINT("The integer part can't be represented " "using float precision\n"); } template<> inline void sanity_check_float_precision(int8_t num) { UNUSED_VARIABLE(num); } template<> inline void sanity_check_float_precision(uint8_t num) { UNUSED_VARIABLE(num); } template<> inline void sanity_check_float_precision(int16_t num) { UNUSED_VARIABLE(num); } template<> inline void sanity_check_float_precision(uint16_t num) { UNUSED_VARIABLE(num); } template<> inline void sanity_check_float_precision(float num) { UNUSED_VARIABLE(num); } template inline void sanity_check_int32_precision(T num) { if (llabs(num) >= 2147483648) ERROR_PRINT("The integer can't be represented using int32 precision\n"); } template<> inline void sanity_check_int32_precision(int8_t num) { UNUSED_VARIABLE(num); } template<> inline void sanity_check_int32_precision(uint8_t num) { UNUSED_VARIABLE(num); } template<> inline void sanity_check_int32_precision(int16_t num) { UNUSED_VARIABLE(num); } template<> inline void sanity_check_int32_precision(uint16_t num) { UNUSED_VARIABLE(num); } template<> inline void sanity_check_int32_precision(int32_t num) { UNUSED_VARIABLE(num); } template inline void sanity_check_double_precision(T num) { UNUSED_VARIABLE(num); } template<> inline void sanity_check_double_precision(int64_t num) { if (num >= 9007199254740991 || num <= -9007199254740991) ERROR_PRINT("The integer can't be represented using double precision\n"); } template<> inline void sanity_check_double_precision(uint64_t num) { if (num >= 9007199254740991) ERROR_PRINT("The integer can't be represented using double precision\n"); } template void readMatrixData(MatrixFloat::col_major_iterator &m_it, MatrixFloat::col_major_iterator &end, const T *ptr, const uint32_t nbytes) { UNUSED_VARIABLE(end); for (uint32_t ptr_pos=0; ptr_pos < nbytes; ptr_pos += sizeof(T), ++ptr) { april_assert(m_it != end); sanity_check_float_precision(*ptr); *m_it = static_cast(*ptr); ++m_it; } } template void readMatrixData(MatrixComplexF::col_major_iterator &m_it, MatrixComplexF::col_major_iterator &end, const T *ptr_real, const T *ptr_img, const uint32_t nbytes) { UNUSED_VARIABLE(end); if (ptr_img != 0) { for (uint32_t ptr_pos=0; ptr_pos < nbytes; ptr_pos += sizeof(T), ++ptr_real, ++ptr_img) { april_assert(m_it != end); sanity_check_float_precision(*ptr_real); sanity_check_float_precision(*ptr_img); *m_it = ComplexF(static_cast(*ptr_real), static_cast(*ptr_img)); ++m_it; } } else { for (uint32_t ptr_pos=0; ptr_pos < nbytes; ptr_pos += sizeof(T), ++ptr_real) { april_assert(m_it != end); sanity_check_float_precision(*ptr_real); *m_it = ComplexF(static_cast(*ptr_real), 0.0f); ++m_it; } } } template void readMatrixData(MatrixDouble::col_major_iterator &m_it, MatrixDouble::col_major_iterator &end, const T *ptr, const uint32_t nbytes) { UNUSED_VARIABLE(end); for (uint32_t ptr_pos=0; ptr_pos < nbytes; ptr_pos += sizeof(T), ++ptr) { april_assert(m_it != end); sanity_check_double_precision(*ptr); *m_it = static_cast(*ptr); ++m_it; } } template void readMatrixData(MatrixChar::col_major_iterator &m_it, MatrixChar::col_major_iterator &end, const T *ptr, const uint32_t nbytes) { UNUSED_VARIABLE(end); for (uint32_t ptr_pos=0; ptr_pos < nbytes; ptr_pos += sizeof(T), ++ptr) { april_assert(m_it != end); *m_it = *ptr; ++m_it; } } template void readMatrixData(MatrixInt32::col_major_iterator &m_it, MatrixInt32::col_major_iterator &end, const T *ptr, const uint32_t nbytes) { UNUSED_VARIABLE(end); for (uint32_t ptr_pos=0; ptr_pos < nbytes; ptr_pos += sizeof(T), ++ptr) { april_assert(m_it != end); sanity_check_int32_precision(*ptr); *m_it = static_cast(*ptr); ++m_it; } } ///////////////////////// TaggedDataElement ////////////////////////////////// MatFileReader::TaggedDataElement *MatFileReader::TaggedDataElement:: getNextSubElement() { if (data_pos < getSizeOf() - TAG_SIZE) { TaggedDataElement *sub_element = getDataElement(reader, data + data_pos); data_pos += sub_element->getSizeOf(); // FOR THE PADDING OF 64 BITS (8 BYTES) size_t mod8 = MOD8(data_pos); if (mod8 != 0) data_pos += (8 - mod8); april_assert(data_pos <= getSizeOf()); return sub_element; } else return 0; } uint32_t MatFileReader::TaggedDataElement::getClass() { if (getDataType() != MATRIX) { ERROR_PRINT1("Impossible to get CLASS from a non " "Matrix element (type %d)\n", getDataType()); return 0; } // ugly hack to force the extraction of array_flags from the first sub-element int old_data_pos = data_pos; data_pos = 0; // end of hack TaggedDataElement *array_flags = getNextSubElement(); // returning data_pos to its original position data_pos = old_data_pos; const char *flags = array_flags->getData(); // CHECK: [0] only for little_endian uint32_t cl = static_cast(flags[0]); delete array_flags; return cl; } MatFileReader::CellArrayDataElement *MatFileReader::TaggedDataElement:: getCellArray(char *name, size_t maxsize) { if (getDataType() != MATRIX) { ERROR_PRINT1("Impossible to get a Matrix from a non " "Matrix element (type %d)\n", getDataType()); return 0; } if (getClass() != CL_CELL_ARRAY) { ERROR_PRINT1("Impossible to get a cell array from a non cell array " "element (class %d)\n", getClass()); return 0; } TaggedDataElement *array_flags = getNextSubElement(); TaggedDataElement *dims_array = getNextSubElement(); TaggedDataElement *array_name = getNextSubElement(); if (array_flags==0 || dims_array==0 || array_name==0) ERROR_EXIT(128, "Impossible to found all ARRAY elements\n"); int num_dims = dims_array->getNumberOfBytes()/sizeof(int32_t); const int32_t *dims = dims_array->getData(); CellArrayDataElement *cell_array = new CellArrayDataElement(reader, dims, num_dims); TaggedDataElement *cell; int idx=0; while( (cell = getNextSubElement()) != 0 && idx < cell_array->getSize()) cell_array->setElementAt(idx++, cell); if (array_name->getNumberOfBytes() > maxsize-1) ERROR_EXIT2(128, "Overflow at array name, found %u, maximum %lu\n", array_name->getNumberOfBytes(), maxsize); strncpy(name, array_name->getData(), array_name->getNumberOfBytes()); name[array_name->getNumberOfBytes()] = '\0'; delete array_flags; delete dims_array; delete array_name; reset(); return cell_array; } MatFileReader::StructureDataElement *MatFileReader::TaggedDataElement:: getStructure(char *name, size_t maxsize) { if (getDataType() != MATRIX) { ERROR_PRINT1("Impossible to get a Matrix from a non " "Matrix element (type %d)\n", getDataType()); return 0; } if (getClass() != CL_STRUCTURE) { ERROR_PRINT1("Impossible to get a structure from a non structure " "element (class %d)\n", getClass()); return 0; } TaggedDataElement *array_flags = getNextSubElement(); TaggedDataElement *dims_array = getNextSubElement(); TaggedDataElement *array_name = getNextSubElement(); TaggedDataElement *fname_length = getNextSubElement(); TaggedDataElement *fnames = getNextSubElement(); if (array_flags==0 || dims_array==0 || array_name==0 || fname_length == 0 || fnames == 0) ERROR_EXIT(128, "Impossible to found all ARRAY elements\n"); StructureDataElement *structure = new StructureDataElement(reader); TaggedDataElement *field; // size of every name int32_t fname_length_value = fname_length->getData()[0]; // compute the number of fields (size) int size = fnames->getNumberOfBytes()/fname_length_value; // pointer to the current name const char *current_name=fnames->getData(); for (int i=0; isetElementByName(current_name, field); current_name += fname_length_value; } if (array_name->getNumberOfBytes() > maxsize-1) ERROR_EXIT2(128, "Overflow at array name, found %u, maximum %lu\n", array_name->getNumberOfBytes(), maxsize); strncpy(name, array_name->getData(), array_name->getNumberOfBytes()); name[array_name->getNumberOfBytes()] = '\0'; delete array_flags; delete dims_array; delete array_name; delete fname_length; delete fnames; reset(); return structure; } // ONLY IF CHAR ARRAY MatrixChar *MatFileReader::TaggedDataElement:: getMatrixChar(char *name, size_t maxsize) { if (getDataType() != MATRIX) { ERROR_PRINT1("Impossible to get a Matrix from a non " "Matrix element (type %d)\n", getDataType()); return 0; } uint32_t cl = getClass(); if (cl != CL_CHAR) { ERROR_PRINT1("Incorrect array class type: %d\n", cl); return 0; } TaggedDataElement *array_flags = getNextSubElement(); TaggedDataElement *dims_array = getNextSubElement(); TaggedDataElement *array_name = getNextSubElement(); TaggedDataElement *real_part = getNextSubElement(); if (array_flags==0 || dims_array==0 || array_name==0 || real_part==0) ERROR_EXIT(128, "Impossible to found all ARRAY elements\n"); int num_dims = dims_array->getNumberOfBytes()/sizeof(int32_t); int *dims = new int[num_dims+1]; const int32_t *const_dims = dims_array->getData(); for (int i=0; i(const_dims[i]); MatrixChar *m; m = new MatrixChar(num_dims, dims); delete[] dims; // traversing in col_major the real/img part of the matrix will be traversed // last, so it is possible add all real components in a first step, and in a // second step to add all the imaginary components MatrixChar::col_major_iterator it(m->begin()); MatrixChar::col_major_iterator end(m->end()); // this loop traverses all the real components, and later all the imaginary // components (if any) switch(real_part->getDataType()) { case UTF8: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case UTF16: case UTF32: ERROR_EXIT(128, "UTF16 and UTF32 formats are not implemented\n"); break; default: ERROR_EXIT1(128, "Data type %d not supported, use only UTF8\n", real_part->getDataType()); } if (array_name->getNumberOfBytes() > maxsize-1) ERROR_EXIT2(128, "Overflow at array name, found %u, maximum %lu\n", array_name->getNumberOfBytes(), maxsize); strncpy(name, array_name->getData(), array_name->getNumberOfBytes()); name[array_name->getNumberOfBytes()] = '\0'; delete array_flags; delete dims_array; delete array_name; delete real_part; reset(); return m; } MatrixFloat *MatFileReader::TaggedDataElement::getMatrix(char *name, size_t maxsize, bool col_major) { if (getDataType() != MATRIX) { ERROR_PRINT1("Impossible to get a Matrix from a non " "Matrix element (type %d)\n", getDataType()); return 0; } uint32_t cl = getClass(); switch(cl) { case CL_CELL_ARRAY: case CL_STRUCTURE: case CL_OBJECT: case CL_CHAR: case CL_SPARSE: ERROR_PRINT1("Incorrect array class type: %d\n", cl); return 0; default: ; } TaggedDataElement *array_flags = getNextSubElement(); TaggedDataElement *dims_array = getNextSubElement(); TaggedDataElement *array_name = getNextSubElement(); TaggedDataElement *real_part = getNextSubElement(); TaggedDataElement *img_part = getNextSubElement(); if (img_part != 0) { delete array_flags; delete dims_array; delete array_name; delete real_part; delete img_part; reset(); return 0; } if (array_flags==0 || dims_array==0 || array_name==0 || real_part==0) ERROR_EXIT(128, "Impossible to found all ARRAY elements\n"); int num_dims = dims_array->getNumberOfBytes()/sizeof(int32_t); int *dims = new int[num_dims+1]; const int32_t *const_dims = dims_array->getData(); for (int i=0; i(const_dims[i]); MatrixFloat *m; m = new MatrixFloat(num_dims, dims, (col_major)?CblasColMajor:CblasRowMajor); // traversing in col_major MatrixFloat::col_major_iterator it(m->begin()); MatrixFloat::col_major_iterator end(m->end()); switch(real_part->getDataType()) { case SINGLE: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case INT8: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case UINT8: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case INT16: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case UINT16: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case DOUBLE: case INT32: case UINT32: case INT64: case UINT64: default: ERROR_EXIT1(128,"Data type %d not supported\n", real_part->getDataType()); } if (array_name->getNumberOfBytes() > maxsize-1) ERROR_EXIT2(128, "Overflow at array name, found %u, maximum %lu\n", array_name->getNumberOfBytes(), maxsize); strncpy(name, array_name->getData(), array_name->getNumberOfBytes()); name[array_name->getNumberOfBytes()] = '\0'; delete array_flags; delete dims_array; delete array_name; delete real_part; delete img_part; delete[] dims; reset(); return m; } MatrixComplexF *MatFileReader::TaggedDataElement:: getMatrixComplexF(char *name, size_t maxsize, bool col_major) { if (getDataType() != MATRIX) { ERROR_PRINT1("Impossible to get a Matrix from a non " "Matrix element (type %d)\n", getDataType()); return 0; } uint32_t cl = getClass(); switch(cl) { case CL_CELL_ARRAY: case CL_STRUCTURE: case CL_OBJECT: case CL_CHAR: case CL_SPARSE: ERROR_PRINT1("Incorrect array class type: %d\n", cl); return 0; default: ; } TaggedDataElement *array_flags = getNextSubElement(); TaggedDataElement *dims_array = getNextSubElement(); TaggedDataElement *array_name = getNextSubElement(); TaggedDataElement *real_part = getNextSubElement(); TaggedDataElement *img_part = getNextSubElement(); if (array_flags==0 || dims_array==0 || array_name==0 || real_part==0) ERROR_EXIT(128, "Impossible to found all ARRAY elements\n"); int num_dims = dims_array->getNumberOfBytes()/sizeof(int32_t); int *dims = new int[num_dims]; const int32_t *const_dims = dims_array->getData(); for (int i=0; i(const_dims[i]); MatrixComplexF *m; m = new MatrixComplexF(num_dims, dims, (col_major)?CblasColMajor:CblasRowMajor); // traversing in col_major MatrixComplexF::col_major_iterator it(m->begin()); MatrixComplexF::col_major_iterator end(m->end()); if (real_part->getDataType() != img_part->getDataType()) ERROR_EXIT(256, "Found different data-type for real and imaginary part\n"); switch(real_part->getDataType()) { case SINGLE: readMatrixData(it, end, real_part->getData(), img_part->getData(), real_part->getNumberOfBytes()); break; case INT8: readMatrixData(it, end, real_part->getData(), img_part->getData(), real_part->getNumberOfBytes()); break; case UINT8: readMatrixData(it, end, real_part->getData(), img_part->getData(), real_part->getNumberOfBytes()); break; case INT16: readMatrixData(it, end, real_part->getData(), img_part->getData(), real_part->getNumberOfBytes()); break; case UINT16: readMatrixData(it, end, real_part->getData(), img_part->getData(), real_part->getNumberOfBytes()); break; case DOUBLE: ERROR_PRINT("Warning, casting from double to float\n"); readMatrixData(it, end, real_part->getData(), img_part->getData(), real_part->getNumberOfBytes()); break; case INT32: case UINT32: case INT64: case UINT64: default: ERROR_EXIT1(128,"Data type %d not supported\n", real_part->getDataType()); } if (array_name->getNumberOfBytes() > maxsize-1) ERROR_EXIT2(128, "Overflow at array name, found %u, maximum %lu\n", array_name->getNumberOfBytes(), maxsize); strncpy(name, array_name->getData(), array_name->getNumberOfBytes()); name[array_name->getNumberOfBytes()] = '\0'; delete array_flags; delete dims_array; delete array_name; delete real_part; delete img_part; delete[] dims; reset(); return m; } MatrixDouble *MatFileReader::TaggedDataElement::getMatrixDouble(char *name, size_t maxsize) { if (getDataType() != MATRIX) { ERROR_PRINT1("Impossible to get a Matrix from a non " "Matrix element (type %d)\n", getDataType()); return 0; } uint32_t cl = getClass(); switch(cl) { case CL_CELL_ARRAY: case CL_STRUCTURE: case CL_OBJECT: case CL_CHAR: case CL_SPARSE: ERROR_PRINT1("Incorrect array class type: %d\n", cl); return 0; default: ; } TaggedDataElement *array_flags = getNextSubElement(); TaggedDataElement *dims_array = getNextSubElement(); TaggedDataElement *array_name = getNextSubElement(); TaggedDataElement *real_part = getNextSubElement(); TaggedDataElement *img_part = getNextSubElement(); if (array_flags==0 || dims_array==0 || array_name==0 || real_part==0) ERROR_EXIT(128, "Impossible to found all ARRAY elements\n"); if (img_part != 0) { delete array_flags; delete dims_array; delete array_name; delete real_part; delete img_part; reset(); return 0; } int num_dims = dims_array->getNumberOfBytes()/sizeof(int32_t); int *dims = new int[num_dims]; const int32_t *const_dims = dims_array->getData(); for (int i=0; i(const_dims[i]); MatrixDouble *m; m = new MatrixDouble(num_dims, dims); // traversing in col_major MatrixDouble::col_major_iterator it(m->begin()); MatrixDouble::col_major_iterator end(m->end()); switch(real_part->getDataType()) { case INT8: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case UINT8: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case INT16: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case UINT16: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case INT32: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case UINT32: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case INT64: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case UINT64: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case DOUBLE: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case SINGLE: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; default: ERROR_EXIT1(128,"Data type %d not supported\n", real_part->getDataType()); } if (array_name->getNumberOfBytes() > maxsize-1) ERROR_EXIT2(128, "Overflow at array name, found %u, maximum %lu\n", array_name->getNumberOfBytes(), maxsize); strncpy(name, array_name->getData(), array_name->getNumberOfBytes()); name[array_name->getNumberOfBytes()] = '\0'; delete array_flags; delete dims_array; delete array_name; delete real_part; delete img_part; delete[] dims; reset(); return m; } MatrixInt32 *MatFileReader::TaggedDataElement::getMatrixInt32(char *name, size_t maxsize) { if (getDataType() != MATRIX) { ERROR_PRINT1("Impossible to get a Matrix from a non " "Matrix element (type %d)\n", getDataType()); return 0; } uint32_t cl = getClass(); switch(cl) { case CL_CELL_ARRAY: case CL_STRUCTURE: case CL_OBJECT: case CL_CHAR: case CL_SPARSE: ERROR_PRINT1("Incorrect array class type: %d\n", cl); return 0; default: ; } TaggedDataElement *array_flags = getNextSubElement(); TaggedDataElement *dims_array = getNextSubElement(); TaggedDataElement *array_name = getNextSubElement(); TaggedDataElement *real_part = getNextSubElement(); TaggedDataElement *img_part = getNextSubElement(); if (array_flags==0 || dims_array==0 || array_name==0 || real_part==0) ERROR_EXIT(128, "Impossible to found all ARRAY elements\n"); if (img_part != 0) { delete array_flags; delete dims_array; delete array_name; delete real_part; delete img_part; reset(); return 0; } int num_dims = dims_array->getNumberOfBytes()/sizeof(int32_t); int *dims = new int[num_dims]; const int32_t *const_dims = dims_array->getData(); for (int i=0; i(const_dims[i]); MatrixInt32 *m; m = new MatrixInt32(num_dims, dims); // traversing in col_major MatrixInt32::col_major_iterator it(m->begin()); MatrixInt32::col_major_iterator end(m->end()); switch(real_part->getDataType()) { case INT8: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case UINT8: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case INT16: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case UINT16: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case INT32: readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case UINT32: ERROR_PRINT("Warning, casting from uint32 to int32\n"); readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case INT64: ERROR_PRINT("Warning, casting from int64 to int32\n"); readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case UINT64: ERROR_PRINT("Warning, casting from uint64 to int32\n"); readMatrixData(it, end, real_part->getData(), real_part->getNumberOfBytes()); break; case SINGLE: case DOUBLE: default: ERROR_EXIT1(128,"Data type %d not supported\n", real_part->getDataType()); } if (array_name->getNumberOfBytes() > maxsize-1) ERROR_EXIT2(128, "Overflow at array name, found %u, maximum %lu\n", array_name->getNumberOfBytes(), maxsize); strncpy(name, array_name->getData(), array_name->getNumberOfBytes()); name[array_name->getNumberOfBytes()] = '\0'; delete[] dims; delete array_flags; delete dims_array; delete array_name; delete real_part; delete img_part; reset(); return m; } //////////////////////// CellArrayDataElement ////////////////////////////////// MatFileReader::CellArrayDataElement:: CellArrayDataElement(MatFileReader *reader, const int *dims, int num_dims) : DataElementInterface(reader), dims(new int[num_dims]), stride(new int[num_dims]), num_dims(num_dims), total_size(1) { for (int i=0; idims[i] = dims[i]; this->stride[i] = total_size; total_size *= dims[i]; } elements = new TaggedDataElement*[total_size]; for (int i=0; i= 0 && raw_idx < total_size); if (elements[raw_idx] != 0) ERROR_EXIT(128, "The given position is not empty\n"); elements[raw_idx] = e; IncRef(e); } MatFileReader::TaggedDataElement *MatFileReader::CellArrayDataElement:: getElementAt(const int *coords, int n) { if (n != num_dims) ERROR_EXIT2(128, "Incorrect size of coords vector, found %d, expected %d\n", n, num_dims); return getElementAt(computeRawPos(coords)); } MatFileReader::TaggedDataElement *MatFileReader::CellArrayDataElement:: getElementAt(int raw_idx) { assert(raw_idx >= 0 && raw_idx < total_size); return elements[raw_idx]; } //////////////////////// StructureDataElement ////////////////////////////////// MatFileReader::StructureDataElement::StructureDataElement(MatFileReader *reader) : DataElementInterface(reader) { } MatFileReader::StructureDataElement:: ~StructureDataElement() { for (HashType::iterator it=elements.begin(); it!=elements.end(); ++it) DecRef(it->second); } void MatFileReader::StructureDataElement:: setElementByName(const char *name, TaggedDataElement *e) { string key(name); TaggedDataElement *&value = elements[key]; if (value != 0) ERROR_EXIT1(128, "The given name '%s' is occupied\n", name); value = e; IncRef(value); } MatFileReader::TaggedDataElement *MatFileReader::StructureDataElement:: getElementByName(const char *name) { string key(name); return elements[key]; } //////////////////////////// MatFileReader ///////////////////////////////////// MatFileReader::MatFileReader(const char *path) : Referenced(), mmapped_data_pos(0) { if ((fd = open(path, O_RDONLY)) < 0) ERROR_EXIT1(128,"Unable to open file %s\n", path); // find size of input file struct stat statbuf; if (fstat(fd, &statbuf) < 0) { ERROR_PRINT("Error guessing filesize\n"); exit(1); } // mmap the input file mmapped_data_size = statbuf.st_size; if ((mmapped_data = static_cast(mmap(0, mmapped_data_size, PROT_READ, MAP_SHARED, fd, 0))) == (caddr_t)-1) ERROR_EXIT(128, "mmap error\n"); // EXTRACT HEADER header = getCurrent(); addToCurrent(HEADER_SIZE); // union { char magic_char[2]; uint16_t magic_int; } Endianism; Endianism.magic_int = header->magic; swap_bytes = (Endianism.magic_char[0]=='M' && Endianism.magic_char[1]=='I'); if (swap_bytes) ERROR_EXIT(128, "ENDIANISM LOGIC NOT IMPLEMENTED\n"); } MatFileReader::~MatFileReader() { munmap(mmapped_data, mmapped_data_size); close(fd); while(!decompressed_buffers.empty()) { delete[] decompressed_buffers.front(); decompressed_buffers.pop_front(); } } MatFileReader::TaggedDataElement *MatFileReader::getNextDataElement() { if (mmapped_data_pos < mmapped_data_size) { TaggedDataElement *element = getDataElement(this, getCurrent()); if (element->getDataType()!=MATRIX && element->getDataType()!=COMPRESSED) ERROR_EXIT1(128, "Incorrect data type, expected MATRIX or " "COMPRESSED, found %d\n", element->getDataType()); addToCurrent(element->getSizeOf()); if (element->getDataType() == COMPRESSED) { int len = static_cast(element->getNumberOfBytes()); char *buff = 0; int err; do { len = len << 1; delete[] buff; buff = new char[len]; } while((err=inflate(element->getData(), element->getNumberOfBytes(), reinterpret_cast(buff),len)) == Z_BUF_ERROR); delete element; element = getDataElement(this, buff); decompressed_buffers.push_front(buff); } return element; } else return 0; } MatFileReader::TaggedDataElement *MatFileReader:: getDataElement(MatFileReader *reader, const char *ptr) { TaggedDataElement *ret; FullTagDataElement *full_data; full_data = new FullTagDataElement(reader, ptr); if (full_data->isSmall()) { delete full_data; ret = new SmallTagDataElement(reader, ptr); } else ret = full_data; return ret; } april-ann-0.3.1/packages/misc/matlab/c_src/matlab.h000066400000000000000000000200621234204160600220450ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ /****************************************************************** * * Readers of MAT format of Matlab * http://www.mathworks.com/help/pdf_doc/matlab/matfile_format.pdf * ******************************************************************/ #ifndef MATLAB_H #define MATLAB_H #include #include #include "matrixFloat.h" #include "matrixComplexF.h" #include "matrixChar.h" #include "matrixInt32.h" #include "matrixDouble.h" #include "list.h" #include "hash_table.h" #include "mystring.h" #define MAX_NAME_SIZE 256 #define HEADER_SIZE 128 #define HEADER_TEXT_SIZE 124 #define TAG_SIZE 8 #define SMALL_TAG_SIZE 4 #define SMALL_DATA_SIZE 4 #define MAX_NUM_DIMS 32 #define DATA_TYPE 0 #define NUMBER_OF_BYTES 1 class MatFileReader : public Referenced { public: enum MatFileDataTypes { INT8=1, UINT8=2, INT16=3, UINT16=4, INT32=5, UINT32=6, SINGLE=7, RESERVED1=8, DOUBLE=9, RESERVED2=10, RESERVED3=11, INT64=12, UINT64=13, MATRIX=14, COMPRESSED=15, UTF8=16, UTF16=17, UTF32=18, NUMBER_OF_DATA_TYPES, }; enum MatFileClasses { CL_CELL_ARRAY=1, CL_STRUCTURE=2, CL_OBJECT=3, CL_CHAR=4, CL_SPARSE=5, CL_DOUBLE=6, CL_SINGLE=7, CL_INT8=8, CL_UINT8=9, CL_INT16=10, CL_UINT16=11, CL_INT32=12, CL_UINT32=13, CL_INT64=14, CL_UINT64=15, NUMBER_OF_CLASSES, }; private: struct HeaderType { char text[HEADER_TEXT_SIZE]; uint16_t version; uint16_t magic; }; struct FullDataTag { union { char hbytes[4]; uint32_t data_type; }; union { char lbytes[4]; uint32_t number_of_bytes; }; }; struct SmallDataTag { union { char hbytes[2]; uint16_t data_type; }; union { char lbytes[2]; uint16_t number_of_bytes; }; }; /************* DATA ELEMENTS ****************/ public: class DataElementInterface : public Referenced { protected: MatFileReader *reader; public: DataElementInterface(MatFileReader *reader) : Referenced(),reader(reader) { IncRef(reader); } virtual ~DataElementInterface() { DecRef(reader); } virtual uint32_t getDataType() const = 0; virtual uint32_t getClass() = 0; }; // forward declaration class CellArrayDataElement; class StructureDataElement; class TaggedDataElement : public DataElementInterface { friend class MatFileReader; protected: const char *data; size_t data_pos; TaggedDataElement(MatFileReader *reader, const char *ptr) : DataElementInterface(reader), data(ptr), data_pos(0) { } public: virtual ~TaggedDataElement() { } virtual uint32_t getDataType() const = 0; virtual uint32_t getNumberOfBytes() const = 0; virtual size_t getSizeOf() const = 0; template T getData() const { return reinterpret_cast(data); } void reset() { data_pos = 0; } // SUB-ELEMENTS TaggedDataElement *getNextSubElement(); // FOR NUMERIC TYPES (casting) MatrixFloat *getMatrix(char *name, size_t maxsize, bool col_major=false); // FOR NUMERIC TYPES (casting) MatrixComplexF *getMatrixComplexF(char *name, size_t maxsize, bool col_major=false); // FOR NUMERIC TYPES (casting) MatrixDouble *getMatrixDouble(char *name, size_t maxsize); virtual uint32_t getClass(); // ONLY IF CELL ARRAY CellArrayDataElement *getCellArray(char *name, size_t maxsize); // ONLY IF STRUCTURE StructureDataElement *getStructure(char *name, size_t maxsize); // ONLY IF CHAR ARRAY MatrixChar *getMatrixChar(char *name, size_t maxsize); // FOR NUMERIC TYPES (casting) MatrixInt32 *getMatrixInt32(char *name, size_t maxsize); }; class CellArrayDataElement : public DataElementInterface { int *dims, *stride, num_dims, total_size; TaggedDataElement **elements; int computeRawPos(const int *coords); public: CellArrayDataElement(MatFileReader *reader, const int *dims, int num_dims); ~CellArrayDataElement(); TaggedDataElement *getElementAt(const int *coords, int n); TaggedDataElement *getElementAt(int raw_idx); void setElementAt(const int *coords, int n, TaggedDataElement *e); void setElementAt(int raw_idx, TaggedDataElement *e); int getNumDim() const { return num_dims; } int getDimSize(int i) const { return dims[i]; } const int *getDimPtr() const { return dims; } int getSize() const { return total_size; } virtual uint32_t getDataType() const { return MATRIX; } virtual uint32_t getClass() { return CL_CELL_ARRAY; } void computeCoords(int raw_pos, int *coords) { for (int i=num_dims-1; i>=0; --i) { coords[i] = raw_pos / stride[i]; raw_pos = raw_pos % stride[i]; } } }; class StructureDataElement : public DataElementInterface { public: typedef april_utils::hash HashType; private: HashType elements; public: StructureDataElement(MatFileReader *reader); ~StructureDataElement(); TaggedDataElement *getElementByName(const char *name); void setElementByName(const char *name, TaggedDataElement *e); virtual uint32_t getDataType() const { return MATRIX; } virtual uint32_t getClass() { return CL_STRUCTURE; } HashType::iterator begin() { return elements.begin(); } HashType::iterator end() { return elements.end(); } unsigned int size() const { return elements.size(); } }; private: struct FullTagDataElement : public TaggedDataElement { const FullDataTag *tag; public: FullTagDataElement(MatFileReader *reader, const char *ptr) : TaggedDataElement(reader, ptr+TAG_SIZE), tag(reinterpret_cast(ptr)) { } virtual uint32_t getDataType() const { return tag->data_type; } virtual uint32_t getNumberOfBytes() const { return tag->number_of_bytes; } virtual size_t getSizeOf() const { return tag->number_of_bytes+TAG_SIZE; } bool isSmall() const { return (tag->hbytes[2]!=0 || tag->hbytes[3]!=0); } }; struct SmallTagDataElement : public TaggedDataElement { const SmallDataTag *tag; public: SmallTagDataElement(MatFileReader *reader, const char *ptr) : TaggedDataElement(reader, ptr+SMALL_TAG_SIZE), tag(reinterpret_cast(ptr)) { } virtual uint32_t getDataType() const { return static_cast(tag->data_type); } virtual uint32_t getNumberOfBytes() const { return static_cast(tag->number_of_bytes); } virtual size_t getSizeOf() const { return TAG_SIZE; } }; /********************************************/ /************** PROPERTIES *****************/ char *mmapped_data; size_t mmapped_data_size; size_t mmapped_data_pos; int fd; const HeaderType *header; bool swap_bytes; april_utils::list decompressed_buffers; /** MMAPPED DATA POINTER ACCESS **/ template T getCurrent() { return reinterpret_cast(mmapped_data+mmapped_data_pos); } void addToCurrent(size_t p) { mmapped_data_pos += p; april_assert(mmapped_data_pos <= mmapped_data_size); } /*********************************/ public: MatFileReader(const char *path); ~MatFileReader(); TaggedDataElement *getNextDataElement(); void reset() { mmapped_data_pos = 0; } static TaggedDataElement *getDataElement(MatFileReader *reader, const char *ptr); }; #endif // MATLAB_H april-ann-0.3.1/packages/misc/matlab/lua_src/000077500000000000000000000000001234204160600207735ustar00rootroot00000000000000april-ann-0.3.1/packages/misc/matlab/lua_src/matlab.lua000066400000000000000000000126711234204160600227450ustar00rootroot00000000000000matlab = matlab or {} -- this table keeps a dictionary of functions which receives an element of a -- given class and returns an April-ANN Lua object local class_tolua_table = { [0] = function(e) return e end, } -- auxiliary function to add new class builder functions local function add_wrapper(class_number, f) if not class_number then error("Incorrect class number") end class_tolua_table[class_number] = f end -- this function receives an element and returns its corresponding April-ANN Lua -- object function matlab.tolua(element,col_major) if element:get_type() == matlab.types.matrix then local func = class_tolua_table[element:get_class()] if func then return func(element,col_major) else error("Not recognized class: " .. matlab.classes[element:get_class()]) end else error(string.format("Not implemented yet for type '%s'", matlab.types[element:get_type()] or tostring(element:get_type()) or "nil")) end collectgarbage("collect") end ----------------------------- -- CLASS BUILDER FUNCTIONS -- ----------------------------- local function tomatrix(e,col_major) local elem,name = e:get_matrix(col_major) if elem ~= nil then print("# Loading matrix float element: ", name) else elem,name = e:get_matrix_complex(col_major) print("# Loading matrix complex element: ", name) end return elem,name end local function tomatrixdouble(e,col_major) local elem,name = e:get_matrix_double() if elem ~= nil then print("# Loading matrix double element: ", name) else elem,name = e:get_matrix_complex(col_major) print("# Loading matrix complex (casted from double) element: ", name) end return elem,name end local function tomatrixint32(e) local elem,name = e:get_matrix_int32() if elem ~= nil then print("# Loading matrix int32 element: ", name) else error("Not supported complex numbers for integer data types") end return elem,name end local function tomatrixchar(e) local elem,name = e:get_matrix_char() print("# Loading matrix char element: ", name) return elem,name end local function tocellarray(e,col_major) local cell_array,name = e:get_cell_array() local wrapper = class_wrapper(cell_array) wrapper = class_instance(wrapper, getmetatable(cell_array)) wrapper.get = function(obj, ...) return matlab.tolua(cell_array:get(...),col_major) end wrapper.raw_get = function(obj, ...) return matlab.tolua(cell_array:raw_get(...),col_major) end print("# Loading cell array element: ", name, cell_array) return wrapper,name end local function tostructure(e,col_major) local dictionary,name = e:get_structure() for ename,elem in pairs(dictionary) do print("# Loading structure element: ", name, ename, elem) dictionary[ename] = matlab.tolua(elem,col_major) end return dictionary,name end -- addition of all the functions to class_tolua_table -- FLOAT matrix add_wrapper(matlab.classes.single, tomatrix) -- DOUBLE matrix add_wrapper(matlab.classes.double, tomatrixdouble) -- INT matrix add_wrapper(matlab.classes.int8, tomatrixint32) add_wrapper(matlab.classes.uint8, tomatrixint32) add_wrapper(matlab.classes.int16, tomatrixint32) add_wrapper(matlab.classes.uint16, tomatrixint32) add_wrapper(matlab.classes.int32, tomatrixint32) add_wrapper(matlab.classes.uint32, tomatrixint32) add_wrapper(matlab.classes.int64, tomatrixint32) add_wrapper(matlab.classes.uint64, tomatrixint32) -- CHAR matrix add_wrapper(matlab.classes.char, tomatrixchar) -- CELL array add_wrapper(matlab.classes.cell_array, tocellarray) -- STRUCTURE array add_wrapper(matlab.classes.structure, tostructure) ----------------------------------------------------------------------------- local function process_element(data,name) local out = {} local prefix="" if name and #name > 0 then table.insert(out, string.format("# name= '%s', type= %s\n", name, type(data))) prefix=name.." " else table.insert(out, string.format("# name= nil, type= %s\n", type(data))) end if type(data) == "table" then if data.size then for i=0,data:size()-1 do table.insert(out, string.format("# %s[%s]={\n", prefix, table.concat(data:compute_coords(i), ","))) table.insert(out,process_element(data:raw_get(i)).."\n") table.insert(out, "# }\n") end else for name,elem in pairs(data) do table.insert(out, string.format("# %s.%s=\n", prefix, name)) table.insert(out, process_element(elem).."\n") end end else if type(data) == "matrixChar" then local t = data:to_string_table() table.insert(out, table.concat(t, " ")) else table.insert(out, tostring(data)) end end return table.concat(out, "") end ------------------- -- MAIN FUNCTION -- ------------------- -- reads a MAT file and returns a Lua table with all the elements, indexed by -- its names, and recursively containing matrix, cell_array or struct objects -- with all the data function matlab.read(path,col_major) assert(path and type(path)=="string", "First argument must be a path string") local col_major = col_major or false local reader = matlab.reader(path) local elements = {} for e in reader:elements() do local lua_element,name = matlab.tolua(e,col_major) elements[name] = lua_element end setmetatable(elements, { __tostring = function(self) local out = {} for name,data in pairs(self) do table.insert(out,process_element(data,name)) end return table.concat(out, "") end }) return elements end april-ann-0.3.1/packages/misc/matlab/package.lua000066400000000000000000000020021234204160600214330ustar00rootroot00000000000000package{ name = "matlab", version = "1.0", depends = { "matrix", "util" }, keywords = { }, link_libraries = { "z" }, description = "", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_matlab.lua.cc" , dest_dir = "include" }, }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", dest_dir = "build", -- flags = "-std=c99", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_matlab.lua.cc", dest_dir = "build" }, }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/misc/matlab/test/000077500000000000000000000000001234204160600203225ustar00rootroot00000000000000april-ann-0.3.1/packages/misc/matlab/test/test-output.log000066400000000000000000000045761234204160600233560ustar00rootroot00000000000000# Loading matrix double element: x # Loading cell array element: C instance 0x23e5c40 of matlab.cell_array # Loading structure element: X y instance 0x23e7460 of matlab.tagged_element # Loading matrix double element: # Loading structure element: X w instance 0x23e73f0 of matlab.tagged_element # Loading matrix double element: # Loading structure element: X z instance 0x23e74d0 of matlab.tagged_element # Loading matrix double element: # Loading matrix complex (casted from double) element: A 1.34187 -1.77726 -1.73478 -0.267141 0.67945 -0.864671 0.695942 1.12934 -1.25044 -0.710154 -0.932328 0.59467 0.332692 -0.420799 0.1242 0.361931 -0.221126 0.779788 -0.00665479 -0.327634 -0.254006 -2.86238 0.877438 0.200538 0.0397533 -0.127615 -0.429599 0.648093 -1.11046 -1.33459 1.87333 -0.572296 1.6083 -1.5067 0.707522 0.600558 0.589124 2.37575 0.0483031 -0.646724 1.3571 -1.62239 -1.25601 -0.480216 1.70552 0.00754286 -0.5679 -0.661177 -0.730054 1.2651 1.26294 -1.13459 0.799178 -0.0603598 0.967635 -1.4987 -0.419339 -1.61902 -0.597403 0.307181 0.885625 -0.303865 0.206848 0.669164 0.339318 2.30403 0.386978 -1.62213 -1.12447 -0.457475 -0.130334 0.767747 2.3219 -1.03111 -0.389085 2.80222 -0.427865 0.995131 -0.948442 -0.0218299 -0.999233 1.33908 0.968717 -0.68929 0.443295 -0.128687 0.590557 1.77715 -0.783717 -0.956102 0.564968 0.322677 -1.05338 -1.69783 1.7779 0.523945 0.810198 0.865949 -1.6916 0.827797 # MatrixDouble of size [10,10] [0x23e5310 data= 0x23b1140] # Loading matrix double element: 1 2 3 4 5 6 # MatrixDouble of size [2,3] [0x23eaed0 data= 0x23dbe20] # Loading matrix double element: 7 8 9 10 11 12 # MatrixDouble of size [2,3] [0x23eb760 data= 0x2393130] 2 # MatrixDouble of size [1,1] [0x23e76c0 data= 0x2397020] 1 # MatrixDouble of size [1,1] [0x23e7850 data= 0x23d4220] 3 # MatrixDouble of size [1,1] [0x23e79a0 data= 0x23d2fa0] 1-2i 4-4i -1+2i -4+4i # MatrixComplex of size [2,2] in row_major [0x23e7d30 data= 0x23d8850] april-ann-0.3.1/packages/misc/matlab/test/test.lua000066400000000000000000000004741234204160600220110ustar00rootroot00000000000000dir = string.get_path(arg[0]) test1 = matlab.read(dir.."test1.mat") test2 = matlab.read(dir.."test2.mat") test3 = matlab.read(dir.."test3.mat") test4 = matlab.read(dir.."test4.mat") print(test1.x) print(test2.C:get(1,1)) print(test2.C:get(1,2)) print(test3.X.y) print(test3.X.w) print(test3.X.z) print(test4.A) april-ann-0.3.1/packages/misc/matlab/test/test1.mat000066400000000000000000000017301234204160600220660ustar00rootroot00000000000000MATLAB 5.0 MAT-file, written by Octave 3.6.4, 2013-07-30 10:21:30 UTC IMP x KHx?kggAпH(w1(?;hg?%[P5? W? Y ˮ WY\ڶ7?HsoCje?gH&?%@P hQ!M8I':?@rӿ'b? Lql?C[nԼ?Z=*(J?-kr?э+?!&Nޒ?.y?}>@A}?17ѿ)_=`ڿżD>8?ךuqۻ޿+ty箿'ԯi?-6nAζeT*-[ ?-y˿?Z?ˋr?HEI?/M?\'6c?%Mؿ2^?Q[Ir?[0a뿚d)?{XUf47?&C~?ORn@/]_j@y[x6<)?"(E?RM̿P~ۿ0?Ͻ<,'0rڿ|>?:{E"bۿ*S?ʉ$?e?5 ?Z,?kd@XV)\(tC?4o?ٵ?kwTeB B{}g|qkQ0? \A㿙֪YT58 .y濭hԿ׮|ZY=?ubܨ?ZTEGݿR EZ_bCO}?april-ann-0.3.1/packages/misc/matlab/test/test2.mat000066400000000000000000000006001234204160600220620ustar00rootroot00000000000000MATLAB 5.0 MAT-file, written by Octave 3.6.4, 2013-07-30 14:25:38 UTC IMC` 0?@@@@@` 0@$@ @&@"@(@april-ann-0.3.1/packages/misc/matlab/test/test3.mat000066400000000000000000000007401234204160600220700ustar00rootroot00000000000000MATLAB 5.0 MAT-file, written by Octave 3.6.4, 2013-07-31 10:24:48 UTC IMXX `wyz8 ?8 @8 @april-ann-0.3.1/packages/misc/matlab/test/test4.mat000066400000000000000000000004001234204160600220620ustar00rootroot00000000000000MATLAB 5.0 MAT-file, written by Octave 3.6.4, 2013-08-19 12:26:08 UTC IMxA ?@ @@april-ann-0.3.1/packages/misc/rlcompleter/000077500000000000000000000000001234204160600204335ustar00rootroot00000000000000april-ann-0.3.1/packages/misc/rlcompleter/binding/000077500000000000000000000000001234204160600220455ustar00rootroot00000000000000april-ann-0.3.1/packages/misc/rlcompleter/binding/bind_rlcompleter.lua.cc000066400000000000000000000154041234204160600264640ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013 Francisco Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef LUA_USE_READLINE #error "rlcompleter package needs READLINE support" #endif // GitHub link: https://github.com/rrthomas/lua-rlcompleter/ // // Original MIT License: // /************************************************************************ * Lua readline completion for the Lua standalone interpreter * * (c) 2013 Francisco Zamora-Martinez, adapted to April-ANN * (c) 2011 Reuben Thomas * (c) 2007 Steve Donovan * (c) 2004 Jay Carlson * * Permission is hereby granted, free of charge, to any person obtaining * a copy of this software and associated documentation files (the * "Software"), to deal in the Software without restriction, including * without limitation the rights to use, copy, modify, merge, publish, * distribute, sublicense, and/or sell copies of the Software, and to * permit persons to whom the Software is furnished to do so, subject to * the following conditions * The above copyright notice and this permission notice shall be * included in all copies or substantial portions of the Software. * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ************************************************************************/ //BIND_HEADER_C #include extern "C" { #include #include #include #include #include #include } #include "unused_variable.h" char breaks[] = " \t\n\"\\'><=;:+-*/%^~#{}()[].,"; extern int rl_completion_suppress_append; #ifdef __APPLE__ #ifdef __HOMEBREW__ extern const char *rl_basic_word_break_characters; #else extern char *rl_basic_word_break_characters; #endif #else extern const char *rl_basic_word_break_characters; #endif /* Static copy of Lua state, as readline has no per-use state */ static lua_State *storedL; /* Lua 5.2 compatibility */ #if LUA_VERSION_NUM > 501 static int luaL_typerror(lua_State *L, int narg, const char *tname) { const char *msg = lua_pushfstring(L, "%s expected, got %s", tname, luaL_typename(L, narg)); return luaL_argerror(L, narg, msg); } #endif /* Directory iterator */ static int dir_iter (lua_State *L) { DIRRef *d = lua_toDIRRef(L, lua_upvalueindex(1)); struct dirent *entry; if (d && d->d) { if ((entry = readdir(d->d)) != NULL) { lua_pushstring(L, entry->d_name); return 1; } else return 0; /* no more values to return */ } else return 0; /* an error occurs */ } /* This function is called repeatedly by rl_completion_matches inside do_completion, each time returning one element from the Lua table. */ static char *iterator(const char* text, int state) { UNUSED_VARIABLE(text); size_t len; const char *str; char *result; lua_rawgeti(storedL, -1, state + 1); if (lua_isnil(storedL, -1)) return NULL; str = lua_tolstring(storedL, -1, &len); result = static_cast(malloc(len + 1)); strcpy(result, str); lua_pop(storedL, 1); return result; } /* This function is called by readline() when the user wants a completion. */ static char **do_completion (const char *text, int start, int end) { int oldtop = lua_gettop(storedL); char **matches = NULL; lua_pushlightuserdata(storedL, (void *)iterator); lua_gettable(storedL, LUA_REGISTRYINDEX); rl_completion_suppress_append = 1; if (lua_isfunction(storedL, -1)) { lua_pushstring(storedL, text); lua_pushstring(storedL, rl_line_buffer); lua_pushinteger(storedL, start + 1); lua_pushinteger(storedL, end + 1); if (!lua_pcall(storedL, 4, 1, 0) && lua_istable(storedL, -1)) matches = rl_completion_matches (text, iterator); } lua_settop(storedL, oldtop); return matches; } //BIND_END //BIND_HEADER_H extern "C" { #include } #include "referenced.h" class DIRRef : public Referenced { public: DIR *d; DIRRef() : d(0) { } virtual ~DIRRef() { if (d) closedir(d); } }; //BIND_END //BIND_FUNCTION rlcompleter._set { if (!lua_isfunction(L, 1)) luaL_typerror(L, 1, "function"); lua_pushlightuserdata(L, (void *)iterator); lua_pushvalue(L, 1); lua_settable(L, LUA_REGISTRYINDEX); } //BIND_END //BIND_FUNCTION rlcompleter.redisplay { rl_forced_update_display(); } //BIND_END //BIND_FUNCTION rlcompleter.readline { const char* prompt = lua_tostring(L,1); char *line = readline(prompt); LUABIND_RETURN(string, line); /* readline return value must be free'd */ free(line); } //BIND_END //BIND_LUACLASSNAME DIRRef rlcompleter.dir //BIND_CPP_CLASS DIRRef //BIND_CONSTRUCTOR DIRRef { const char *path; LUABIND_GET_PARAMETER(1, string, path); /* try to open the given directory */ obj = new DIRRef(); obj->d = opendir(path); if (obj->d == NULL) { /* error opening the directory? */ fprintf(stderr, "\nCannot open %s: %s\n", path, strerror(errno)); delete obj; LUABIND_RETURN_NIL(); } else LUABIND_RETURN(DIRRef, obj); } //BIND_END //BIND_METHOD DIRRef iterate { /* creates and returns the iterator function (its sole upvalue, the directory userdatum, is already on the stack top */ lua_pushDIRRef(L, obj); lua_pushcclosure(L, dir_iter, 1); LUABIND_INCREASE_NUM_RETURNS(1); } //BIND_END //BIND_CLASS_METHOD DIRRef isdir { const char *path; LUABIND_GET_PARAMETER(1, string, path); struct stat aux; int r = lstat(path, &aux); if (r != 0) LUABIND_FERROR2("Unable to lstat %s: %s", path, strerror(errno)); LUABIND_RETURN(boolean, S_ISDIR(aux.st_mode)); } //BIND_END //BIND_STATIC_CONSTRUCTOR rlcompleter { storedL = L; rl_basic_word_break_characters = breaks; rl_completer_word_break_characters = breaks; rl_attempted_completion_function = do_completion; } //BIND_END april-ann-0.3.1/packages/misc/rlcompleter/lua_src/000077500000000000000000000000001234204160600220635ustar00rootroot00000000000000april-ann-0.3.1/packages/misc/rlcompleter/lua_src/rlcompleter.lua000066400000000000000000000143641234204160600251260ustar00rootroot00000000000000-- Lua side of readline completion for REPL -- By Patrick Rapin; adapted by Reuben Thomas -- Adapted to April-ANN by Francisco Zamora-Martinez, 2013 -- The list of Lua keywords local keywords = { 'and', 'break', 'do', 'else', 'elseif', 'end', 'false', 'for', 'function', 'if', 'in', 'local', 'nil', 'not', 'or', 'repeat', 'return', 'then', 'true', 'until', 'while' } -- in case you want to use this software without April-ANN local luatype = luatype or type -- This function is called back by C function do_completion, itself called -- back by readline library, in order to complete the current input line. rlcompleter._set( function (word, line, startpos, endpos) -- Helper function registering possible completion words, verifying matches. local matches = {} local function add(value) value = tostring(value) if value:match("^" .. word) then matches[#matches + 1] = value end end -- This function does the same job as the default completion of readline, -- completing paths and filenames. Rewritten because -- rl_basic_word_break_characters is different. -- Uses binding functions for directory traversal (based on LuaFileSystem) local function filename_list(str) local path, name = str:match("(.*)[\\/]+(.*)") path = (path or ".") .. "/" name = name or str local d = rlcompleter.dir(path) if d then for f in d:iterate() do if rlcompleter.dir.isdir(path .. f) then add(f .. "/") else add(f) end end else add("") end end -- This function is called in a context where a keyword or a global -- variable can be inserted. Local variables cannot be listed! local function add_globals() for _, k in ipairs(keywords) do add(k) end for k in pairs(_G) do add(k) end end -- Main completion function. It evaluates the current sub-expression -- to determine its type. Currently supports tables fields, global -- variables and function prototype completion. local function contextual_list(expr, sep, str) if str then return filename_list(str) end if expr and expr ~= "" then local v = load("return " .. expr) if v then v = v() local t = luatype(v) if sep == '.' or sep == ':' then if t == 'table' then for k, v in pairs(v) do if luatype(k) == 'string' and (sep ~= ':' or luatype(v) == "function") then add(k) end end end if getmetatable(v) then local aux = v repeat local mt = getmetatable(aux) if mt.__index and luatype(mt.__index) == 'table' then for k,v in pairs(mt.__index) do add(k) end end aux = mt.__index until not aux or not getmetatable(aux) end elseif sep == '[' then if t == 'table' then for k in pairs(v) do if luatype(k) == 'number' then add(k .. "]") end end if word ~= "" then add_globals() end end end end end if #matches == 0 then add_globals() end end -- This complex function tries to simplify the input line, by removing -- literal strings, full table constructors and balanced groups of -- parentheses. Returns the sub-expression preceding the word, the -- separator item ( '.', ':', '[', '(' ) and the current string in case -- of an unfinished string literal. local function simplify_expression(expr) -- Replace annoying sequences \' and \" inside literal strings expr = expr:gsub("\\(['\"])", function (c) return string.format("\\%03d", string.byte(c)) end) local curstring -- Remove (finished and unfinished) literal strings while true do local idx1, _, equals = expr:find("%[(=*)%[") local idx2, _, sign = expr:find("(['\"])") if idx1 == nil and idx2 == nil then break end local idx, startpat, endpat if (idx1 or math.huge) < (idx2 or math.huge) then idx, startpat, endpat = idx1, "%[" .. equals .. "%[", "%]" .. equals .. "%]" else idx, startpat, endpat = idx2, sign, sign end if expr:sub(idx):find("^" .. startpat .. ".-" .. endpat) then expr = expr:gsub(startpat .. "(.-)" .. endpat, " STRING ") else expr = expr:gsub(startpat .. "(.*)", function (str) curstring = str return "(CURSTRING " end) end end expr = expr:gsub("%b()"," PAREN ") -- Remove groups of parentheses expr = expr:gsub("%b{}"," TABLE ") -- Remove table constructors -- Avoid two consecutive words without operator expr = expr:gsub("(%w)%s+(%w)","%1|%2") expr = expr:gsub("%s+", "") -- Remove now useless spaces -- This main regular expression looks for table indexes and function calls. return curstring, expr:match("([%.%w%[%]_]-)([:%.%[%(])" .. word .. "$") end -- Now call the processing functions and return the list of results. local str, expr, sep = simplify_expression(line:sub(1, endpos)) contextual_list(expr, sep, str) -- FIXME: Is this feature good to be really used? if false and #matches == 1 and word == matches[1] then print("\n----------------- DOCUMENTATION ----------------------") local m = matches[1] local id = expr or "" local mt if expr and #expr > 0 then local v = load("return " .. expr) if v then v = v() if v then mt = getmetatable(v) end if mt and mt.id then id = mt.id:match("^[^%s]+") end end end local prefix = id if #prefix > 0 then prefix = prefix .. "." end april_print_doc(prefix .. m, 2) local v = load("return " .. prefix .. m) if v then v = v() if v then mt = getmetatable(v) end if mt and mt.__call then april_print_doc(prefix .. m .. ".__call", 2) end end print("------------------------------------------------------") end return matches end ) april-ann-0.3.1/packages/misc/rlcompleter/package.lua000066400000000000000000000015141234204160600225320ustar00rootroot00000000000000package{ name = "rlcompleter", version = "1.0", depends = { "util" }, keywords = { "rlcompleter" }, description = "manages autocompletion", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", provide_bind{ file = "binding/bind_rlcompleter.lua.cc", dest_dir = "include" }, }, target{ name = "build", depends = "provide", use_timestamp = true, build_bind{ file = "binding/bind_rlcompleter.lua.cc", dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/mutual_information/000077500000000000000000000000001234204160600210645ustar00rootroot00000000000000april-ann-0.3.1/packages/mutual_information/lua_src/000077500000000000000000000000001234204160600225145ustar00rootroot00000000000000april-ann-0.3.1/packages/mutual_information/lua_src/mutual_information.lua000066400000000000000000000101741234204160600271360ustar00rootroot00000000000000stats = stats or {} stats.MI = stats.MI or {} local LEVELS = 256 local EPSILON = 1e-03 -- extracts the histogram from the matrix, using the image package local function get_histogram_from_matrix(m, levels) assert(m, "A matrix is needed") -- the matrix is adjusted to be between 0 and 1, and rewrap to fit a image of -- only one row local maux = m:clone():adjust_range(0.0, 1.0):rewrap(1, m:size()) local h = image.image_histogram.get_histogram(Image(maux), levels or LEVELS) -- sanity check assert(math.abs(h:sum() - 1) < EPSILON, "The image_histogram hasn't got bin probabilities") return h end april_set_doc("stats.MI.entropy", { class = "function", summary = "Computes the entropy of a given matrix or histogram", description = { "Computes the entropy of a given matrix or histogram.", "The two arguments are optional, but one of them must be", "present.", "If the matrix is given (and not the histogram),", "the entropy is computed interpreting the matrix data", "as a continuum sequence of data points, making i.i.d.", "assumptions.", }, params = { "A matrix [optional], ignored if given a histogram", "A histogram matrix [optional]", "The number of histogram bins [optional], by default 256", }, outputs = { "The entropy in base 2" }, }) -- computes the entropy given a matrix or a histogram function stats.MI.entropy(m, histogram, levels) assert(not histogram or histogram:is_contiguous(), "Histogram must be contiguous matrix") if histogram then if m ~= nil then fprintf(io.stderr,"If a histogram is given, the matrix will be ignored\n") end -- we don't know if the histogram has probabilities or raw counts local s = histogram:sum() if s~=1.0 then histogram:scal(1/s) end end local histogram = histogram or get_histogram_from_matrix(m, levels) -- the entropy is computed as -sum_i[ p_i * log_2(p_i) ] return -histogram:clone():plogp():sum()/math.log(2) end april_set_doc("stats.MI.mutual_information", { class = "function", summary = "Computes the Mutual Information between two matrices", description = { "Computes the Mutual Information between two matrices.", "The two matrices must have the same size. The MI is", "computed interpreting the matrix data as a continuum", "sequence of data points, making i.i.d. assumptions.", }, params = { "A matrix", "Another matrix", "The number of histogram bins [optional], by default 256", }, outputs = { "The Mutual Information between given matrices", "The Normalized Mutual Information between given matrices", }, }) -- this function computes the mutual information between two matrices of the -- same size function stats.MI.mutual_information(m1, m2, levels) local levels = levels or LEVELS assert(m1:size() == m2:size(), "Two matrices must be of the same size") -- the matrices are first adjusted to be between 0.0 and levels-1, and -- re-wrapped to be a vector local m1 = m1:clone():adjust_range(0.0, levels-1):rewrap(m1:size()) local m2 = m2:clone():adjust_range(0.0, levels-1):rewrap(m2:size()) -- the joint histogram is a 2-dimensional matrix local h12 = matrix(levels,levels):zeros() local sz = m1:size() -- the two matrices has the same size -- auxiliary function which computes the bin of a given matrix value function get_bin_idx(v) return math.floor(v)+1 end for i=1,sz do local i1 = get_bin_idx(m1:get(i)) -- bin row position local i2 = get_bin_idx(m2:get(i)) -- bin col position local c = h12:get(i1, i2) -- the previous count h12:set(i1, i2, c + 1) end h12:scal(1/sz) -- marginalization for m1 and m2 histograms computation local h1 = matrix(levels):zeros() local h2 = matrix(levels):zeros() for i=1,levels do h1:axpy(1.0, h12:select(2, i)) -- by columns h2:axpy(1.0, h12:select(1, i)) -- by rows end local entropy1 = stats.MI.entropy(nil, h1) local entropy2 = stats.MI.entropy(nil, h2) local entropy12 = stats.MI.entropy(nil, h12) -- returns the Mutual Information and Normalized Mutual Information return entropy1+entropy2-entropy12 , (entropy1+entropy2)/entropy12 end april-ann-0.3.1/packages/mutual_information/package.lua000066400000000000000000000022341234204160600231630ustar00rootroot00000000000000 package{ name = "stats.MI", version = "1.0", depends = { "util", "matrix", "image_cleaning" }, keywords = { "mutual_information" }, description = "Mutual information", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", -- copy{ file= "c_src/*.h", dest_dir = "include" }, -- provide_bind{ file = "binding/bind_image.lua.cc", dest_dir = "include" }, }, target{ name = "build", depends = "provide", use_timestamp=true, -- object{ -- file = "c_src/image.cc", -- include_dirs = "${include_dirs}", -- dest_dir = "build", -- --debug = "yes", -- }, luac{ orig_dir = "lua_src", dest_dir = "build", }, -- build_bind{ file = "binding/bind_image.lua.cc", dest_dir = "build" }, -- build_bind{ file = "binding/bind_image_RGB.lua.cc", dest_dir = "build" }, }, target{ name = "document", document_src{}, document_bind{}, }, } april-ann-0.3.1/packages/ocr/000077500000000000000000000000001234204160600157335ustar00rootroot00000000000000april-ann-0.3.1/packages/ocr/off_line_param/000077500000000000000000000000001234204160600206745ustar00rootroot00000000000000april-ann-0.3.1/packages/ocr/off_line_param/binding/000077500000000000000000000000001234204160600223065ustar00rootroot00000000000000april-ann-0.3.1/packages/ocr/off_line_param/binding/bind_off_line_param.lua.cc000066400000000000000000000014441234204160600273350ustar00rootroot00000000000000//BIND_HEADER_C //BIND_END //BIND_HEADER_H #include "geom_param.h" #include "bind_image.h" //BIND_END //BIND_FUNCTION ocr.off_line.param.geom { LUABIND_CHECK_ARGN(>=, 1); LUABIND_CHECK_ARGN(<=, 2); ImageFloat *img; const char *param_list; LUABIND_GET_PARAMETER(1, ImageFloat, img); LUABIND_GET_OPTIONAL_PARAMETER(2, string, param_list, "siepd"); MatrixFloat *result = OCR::OffLineTextPreprocessing:: GeomParam::extract(img, param_list); LUABIND_RETURN(MatrixFloat, result); } //BIND_END //BIND_FUNCTION ocr.off_line.RLSA { ImageFloat *img; int threshold; LUABIND_GET_PARAMETER(1, ImageFloat, img); LUABIND_GET_PARAMETER(2, int, threshold); OCR::OffLineTextPreprocessing::RLSA(img,threshold); // LUABIND_RETURN(ImageFloat,img); } //BIND_END april-ann-0.3.1/packages/ocr/off_line_param/c_src/000077500000000000000000000000001234204160600217655ustar00rootroot00000000000000april-ann-0.3.1/packages/ocr/off_line_param/c_src/geom_param.cc000066400000000000000000000247671234204160600244230ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2014, Salvador España-Boquera, Jorge Gorbe-Moya, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "geom_param.h" #include "clamp.h" #include "derivative.h" #include #include using april_utils::clamp; using april_utils::derivative1; using april_utils::derivative2; namespace OCR { namespace OffLineTextPreprocessing { const float GeomParam::THRESHOLD = 0.7; #define SQR(x) ((x)*(x)) // val = (val - base) * scal; void GeomParam::copyNormVector(float *v, MatrixFloat *mat, int ncol, float base, float scal) { int n = mat->getDimSize(0); int nparams = mat->getDimSize(1); april_assert(ncol < nparams); for (int i=0; iheight - 1; int inf_contour = 0; int row = 0; float val = (*img)(col, row); while ((val < THRESHOLD) && (row < img->height - 1)) { ++row; val = (*img)(col, row); } sup_contour = row; row = img->height - 1; val = (*img)(col, row); while ((val < THRESHOLD) && (row > 0)) { --row; val = (*img)(col, row); } inf_contour = row; // when inferior and superior contours cross, they will be placed in the // text center. if (sup_contour > inf_contour) { sup_contour = inf_contour = int(text_center); } *sup = float(sup_contour); *inf = float(inf_contour); } // OJO! Este parametrizador asume que 0 = blanco y 1 = black, al contrario que // la clase Imagen a julio de 2009 :P // // params es una cadena que puede contener las siguientes letras: // S: contour superior // I: contour inferior // E: energy // P: posicion media de la energy (momento de primer orden) // D: desv. tipica de la posicion de la energy (momento de segundo orden) // // T: numero de trazos // // Q: derivative1 del c. sup // A: derivative1 del c. inf // // Z: derivative2 del c. sup // X: derivative2 del c. inf // // H: "Altura" -> inf_contour - sup_contour // J: Derivative de H // // M: Derivative de la posicion media de la energy // // R: Density de pixels entre el contour superior y el inferior. // // Si se ponen en minusculas se normalizan respecto a las lineas base MatrixFloat* GeomParam::extract(const ImageFloat *img, const char *params) { // variance epsilon, considered as zero const float EPSILON = 0.01; // inferior and upper baselines (from a projection-based algorithm) int lower_base, upper_base; OCR::OffLineTextPreprocessing::baseLinesRLSA(img, &lower_base, &upper_base); // WARNING! because coordinates are (x,y) instead of (row,col) // the inferior line has a higher y coodinate :P float text_height = lower_base - upper_base + 1; float text_center = (lower_base + upper_base)/2.0; int matrix_size[2]; MatrixFloat *result; int NPARAM = strlen(params); // the matrix has as many rows as columns in the image, and as many // columns as parameters matrix_size[0] = img->width; matrix_size[1] = NPARAM; result = new MatrixFloat(2, matrix_size); // temporal vectors which store all the parameters float *v_sup_contour = new float[img->width]; float *v_inf_contour = new float[img->width]; float *v_height = new float[img->width]; float *v_energy = new float[img->width]; float *v_density = new float[img->width]; float *v_mean_energy_pos = new float[img->width]; float *v_stddev_energy = new float[img->width]; float *v_sup_derivative = new float[img->width]; float *v_inf_derivative = new float[img->width]; float *v_derivative2_sup = new float[img->width]; float *v_derivative2_inf = new float[img->width]; float *v_derivative_pme = new float[img->width]; float *v_derivative_height = new float[img->width]; float *v_orig_nstrokes = new float[img->width]; float *v_nstrokes = new float[img->width]; // after voting (2 of 3) // traverse all the columns for (int col = 0; col < img->width; ++col) { float energy = 0; float mean_energy_pos = 0; float mean_pos_squared = 0; float variance = 0; // contours contours(img, col, text_center, &v_sup_contour[col], &v_inf_contour[col]); int sup_contour = int(v_sup_contour[col]); int inf_contour = int(v_inf_contour[col]); // height v_height[col] = inf_contour - sup_contour; // energy levels, mean position (weighted) and variance for (int row = sup_contour; row <= inf_contour; ++row) { float val = (*img)(col, row); energy += val; //float row_norm = (row - upper_base)/text_height; //mean_energy_pos += row_norm * val; //mean_pos_squared += SQR(row_norm) * val; mean_energy_pos += row * val; mean_pos_squared += SQR(row) * val; } if (energy > 0) { mean_energy_pos /= energy; // var(x) = E(x^2) - (E(x))^2 variance = mean_pos_squared / energy - SQR(mean_energy_pos); if (fabsf(variance) < EPSILON) variance = 0; } else { mean_energy_pos = text_center; variance = 0; } v_energy[col] = energy; v_density[col] = v_height[col] > 0 ? energy/v_height[col] : 0; v_mean_energy_pos[col] = mean_energy_pos; v_stddev_energy[col] = sqrtf(variance); // number of strokes. // starts at black and ends at black. const float THRESHOLD = 0.8; // energy threshold bool black=true; int cblack=0; int nstrokes=0; const int STROKES_THRESHOLD=1; for (int row=sup_contour; row<=inf_contour; ++row) { if ( (*img)(col,row) > THRESHOLD ) { // black pixel black=true; cblack++; } else { // white pixel if (black) { if (cblack >= STROKES_THRESHOLD) { ++nstrokes; } cblack=0; } black = false; } } if (black && cblack >= STROKES_THRESHOLD) ++nstrokes; v_orig_nstrokes[col] = nstrokes; } // derivatives derivative1(v_sup_contour, v_sup_derivative, img->width); derivative1(v_inf_contour, v_inf_derivative, img->width); derivative1(v_mean_energy_pos, v_derivative_pme, img->width); derivative1(v_height, v_derivative_height, img->width); derivative2(v_sup_contour, v_derivative2_sup, img->width); derivative2(v_inf_contour, v_derivative2_inf, img->width); // compute strokes by voting for (int col=0; col < img->width; ++col) { int izq, der; // nstrokes izq = clamp(col - 1, 0, img->width - 1); der = clamp(col + 1, 0, img->width - 1); if (v_orig_nstrokes[izq] == v_orig_nstrokes[der]) v_nstrokes[col] = v_orig_nstrokes[izq]; else v_nstrokes[col] = v_orig_nstrokes[col]; } // put the required parameters in the result matrix int i=0; while (params[i]) { float inv_text_height = 1.0/text_height; switch(params[i]) { case 'S': result->putCol(i, v_sup_contour, img->width); break; case 's': copyNormVector(v_sup_contour, result, i, upper_base, inv_text_height); break; case 'I': result->putCol(i, v_inf_contour, img->width); break; case 'i': copyNormVector(v_inf_contour, result, i, upper_base, inv_text_height); break; case 'E': result->putCol(i, v_energy, img->width); break; case 'e': copyNormVector(v_energy, result, i, 0, inv_text_height); break; case 'P': result->putCol(i, v_mean_energy_pos, img->width); break; case 'p': copyNormVector(v_mean_energy_pos, result, i, upper_base, inv_text_height); break; case 'D': result->putCol(i, v_stddev_energy, img->width); break; case 'd': copyNormVector(v_stddev_energy, result, i, 0, inv_text_height); break; case 'Q': result->putCol(i, v_sup_derivative, img->width); break; case 'q': copyNormVector(v_sup_derivative, result, i, 0, inv_text_height); break; case 'A': result->putCol(i, v_inf_derivative, img->width); break; case 'a': copyNormVector(v_inf_derivative, result, i, 0, inv_text_height); break; case 'T': result->putCol(i, v_orig_nstrokes, img->width); break; case 't': //TODO: Normalizar? copyNormVector(v_nstrokes, result, i, 0, 0.3); break; case 'H': result->putCol(i, v_height, img->width); break; case 'h': copyNormVector(v_height, result, i, 0, inv_text_height); break; case 'J': result->putCol(i, v_derivative_height, img->width); break; case 'j': copyNormVector(v_derivative_height, result, i, 0, inv_text_height); break; case 'M': result->putCol(i, v_derivative_pme, img->width); break; case 'm': copyNormVector(v_derivative_pme, result, i, 0, inv_text_height); break; case 'Z': result->putCol(i, v_derivative2_sup, img->width); break; case 'z': copyNormVector(v_derivative2_sup, result, i, 0, inv_text_height); break; case 'X': result->putCol(i, v_derivative2_inf, img->width); break; case 'x': copyNormVector(v_derivative2_inf, result, i, 0, inv_text_height); break; case 'R': case 'r': result->putCol(i, v_density, img->width); break; default: ERROR_EXIT1(128, "param: invalid character '%c' in parameters string!\n", params[i]); } ++i; } delete [] v_sup_contour; delete [] v_inf_contour; delete [] v_height; delete [] v_energy; delete [] v_mean_energy_pos; delete [] v_stddev_energy; delete [] v_sup_derivative; delete [] v_inf_derivative; delete [] v_derivative2_sup; delete [] v_derivative2_inf; delete [] v_derivative_pme; delete [] v_derivative_height; delete [] v_orig_nstrokes; delete [] v_nstrokes; return result; } } } april-ann-0.3.1/packages/ocr/off_line_param/c_src/geom_param.h000066400000000000000000000062661234204160600242570ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2014, Salvador España-Boquera, Jorge Gorbe-Moya, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef GEOM_PARAM_H #define GEOM_PARAM_H #include "matrixFloat.h" #include "utilImageFloat.h" namespace OCR { namespace OffLineTextPreprocessing { template void RLSA(Image *img, int threshold) { const float BINARIZING_THRESHOLD = 0.5f; // for each image row, seek white pixel runs between two blacks. If the // run length is inferior to a threshold, the run will be filled with // black. for (int row=0; row < img->height; ++row) { int left=-1; int right=0; int run_length=0; while (right < img->width) { // a black pixel if ((*img)(right, row) > BINARIZING_THRESHOLD) { if (left != -1) { if ((run_length > 0) && (run_length < threshold)) { for(int col=left; col<=right; ++col) (*img)(col,row) = 1.0; // FIXME:CTENEGRO } } run_length=0; left=right; } else { // a white pixel ++run_length; } ++right; } } } template void baseLinesRLSA(const Image *img, int *lower, int *upper, const float projection_th=0.5f) { // if the projection is inferior to this threshold, it won't be placed // between text baselines const int RLSA_TH=30; // work copy Image *i2=img->clone(); RLSA(i2, RLSA_TH); T *projection = new T[img->height]; i2->projection_h(projection); T maximum = 0; for (int i=0; i < img->height; ++i) { if (projection[i] > maximum) maximum = projection[i]; } int u=0; while (u < img->height) { if (projection[u] > projection_th * maximum) break; ++u; } int l = img->height - 1; while (l >= 0) { if (projection[l] > projection_th * maximum) break; --l; } *upper = u; *lower = l; delete i2; delete[] projection; } class GeomParam { public: /// Threshold which defines when the pixel energy is considered ink static const float THRESHOLD; static MatrixFloat *extract (const ImageFloat *i, const char *params); private: static void contours(const ImageFloat *img, int col, float text_center, float *sup, float *inf); static void copyNormVector(float *v, MatrixFloat *mat, int ncol, float base, float scal); }; } } #endif // GEOM_PARAM_H april-ann-0.3.1/packages/ocr/off_line_param/lua_src/000077500000000000000000000000001234204160600223245ustar00rootroot00000000000000april-ann-0.3.1/packages/ocr/off_line_param/lua_src/param.lua000066400000000000000000000012441234204160600241300ustar00rootroot00000000000000function ocr.off_line.param.help() print[[ Paquete ocr.off_line.param -------------------------- Metodos (de clase): - ocr.off_line.param.geom(img, PARAMS_LIST) PARAMS_LIST es una cadena que puede contener las siguientes letras: S: contorno superior I: contorno inferior E: energia P: posicion media de la energia D: desv. tipica de la posicion media de la energia T: numero de trazos Q: derivada1 del c. sup A: derivada1 del c. inf Z: derivada2 del c. sup X: derivada2 del c. inf H: "Altura" -> contorno_inf - contorno_sup M: Derivada de la posicion media de la energía Si se ponen en minusculas se normalizan respecto a las lineas base ]] end april-ann-0.3.1/packages/ocr/off_line_param/package.lua000066400000000000000000000020611234204160600227710ustar00rootroot00000000000000 package{ name = "ocr.off_line.param", version = "1.0", depends = { "util", "matrix", "Image" }, keywords = { }, description = "Feature extraction for handwritten words", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_off_line_param.lua.cc", dest_dir = "include" } }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_off_line_param.lua.cc", dest_dir = "build" } }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/ocr/off_line_text_preprocessing/000077500000000000000000000000001234204160600235235ustar00rootroot00000000000000april-ann-0.3.1/packages/ocr/off_line_text_preprocessing/binding/000077500000000000000000000000001234204160600251355ustar00rootroot00000000000000bind_off_line_text_preprocessing.lua.cc000066400000000000000000000071251234204160600347360ustar00rootroot00000000000000april-ann-0.3.1/packages/ocr/off_line_text_preprocessing/binding//BIND_HEADER_H #include "off_line_text_preprocessing.h" #include "utilImageFloat.h" #include "bind_image.h" #include "vector.h" #include #include #include "geometry.h" //BIND_END //BIND_FUNCTION ocr.off_line_text_preprocessing.normalize_image { using april_utils::vector; using april_utils::Point2D; LUABIND_CHECK_ARGN(==,2); ImageFloat *img; int dst_height; LUABIND_GET_PARAMETER(1, ImageFloat, img); LUABIND_GET_PARAMETER(2, int, dst_height); ImageFloat *result = OCR::OffLineTextPreprocessing::normalize_image(img, dst_height); LUABIND_RETURN(ImageFloat, result); } //BIND_END //BIND_FUNCTION ocr.off_line_text_preprocessing.normalize_size { using april_utils::vector; using april_utils::Point2D; LUABIND_CHECK_ARGN(>=,7); LUABIND_CHECK_ARGN(<=,9); ImageFloat *img; float ascender_ratio, descender_ratio; int dst_height; bool keep_aspect; LUABIND_GET_PARAMETER(1, ImageFloat, img); LUABIND_GET_PARAMETER(2, float, ascender_ratio); LUABIND_GET_PARAMETER(3, float, descender_ratio); LUABIND_CHECK_PARAMETER(4, table); LUABIND_CHECK_PARAMETER(5, table); LUABIND_CHECK_PARAMETER(6, table); LUABIND_CHECK_PARAMETER(7, table); LUABIND_GET_OPTIONAL_PARAMETER(8, int, dst_height, -1); LUABIND_GET_OPTIONAL_PARAMETER(9, bool, keep_aspect, false); int point_vector_length[4]; vector point_vector[4]; for (int vec=0; vec<4; vec++) { LUABIND_TABLE_GETN(vec+4, point_vector_length[vec]); point_vector[vec].resize(point_vector_length[vec]); for (int i=1; i <= point_vector_length[vec]; ++i) { lua_rawgeti(L,vec+4,i); // punto i-esimo, es una tabla, los vectores estan en pila[4-7] lua_rawgeti(L,-1,1); // x LUABIND_GET_PARAMETER(-1, float, point_vector[vec][i-1].x); lua_pop(L,1); // la quitamos de la pila lua_rawgeti(L,-1,2); // y LUABIND_GET_PARAMETER(-1, float, point_vector[vec][i-1].y); lua_pop(L,2); // la quitamos de la pila, tb la tabla } } ImageFloat *result = OCR::OffLineTextPreprocessing::normalize_size(img, ascender_ratio, descender_ratio, point_vector[0], point_vector[1], point_vector[2], point_vector[3], dst_height, keep_aspect); LUABIND_RETURN(ImageFloat, result); } //BIND_END //BIND_FUNCTION ocr.off_line_text_preprocessing.add_asc_desc { LUABIND_CHECK_ARGN(>=,2); LUABIND_CHECK_ARGN(<=,4); ImageFloat *img; MatrixFloat *mat; int v_threshold; int h_threshold; LUABIND_GET_PARAMETER(1, ImageFloat, img); LUABIND_GET_PARAMETER(2, MatrixFloat, mat); LUABIND_GET_OPTIONAL_PARAMETER(3,float,v_threshold, 5.0f); LUABIND_GET_OPTIONAL_PARAMETER(4,int,h_threshold, 20); MatrixFloat *result = OCR::OffLineTextPreprocessing::add_asc_desc(img,mat, v_threshold, h_threshold); LUABIND_RETURN(MatrixFloat, result); } //BIND_END //BIND_FUNCTION ocr.off_line_text_preprocessing.normalize_from_matrix { using april_utils::vector; using april_utils::Point2D; LUABIND_CHECK_ARGN(>=,4); LUABIND_CHECK_ARGN(<=,6); ImageFloat *img; MatrixFloat *mat; float ascender_ratio, descender_ratio; int dst_height; bool keep_aspect; LUABIND_GET_PARAMETER(1, ImageFloat, img); LUABIND_GET_PARAMETER(4, MatrixFloat, mat); LUABIND_GET_PARAMETER(2, float, ascender_ratio); LUABIND_GET_PARAMETER(3, float, descender_ratio); LUABIND_GET_OPTIONAL_PARAMETER(5, int, dst_height, -1); LUABIND_GET_OPTIONAL_PARAMETER(6, bool, keep_aspect, false); ImageFloat *result = OCR::OffLineTextPreprocessing::normalize_size(img, mat, ascender_ratio, descender_ratio, dst_height, keep_aspect); LUABIND_RETURN(ImageFloat, result); } //BIND_END april-ann-0.3.1/packages/ocr/off_line_text_preprocessing/c_src/000077500000000000000000000000001234204160600246145ustar00rootroot00000000000000april-ann-0.3.1/packages/ocr/off_line_text_preprocessing/c_src/off_line_text_preprocessing.cc000066400000000000000000000547061234204160600327270ustar00rootroot00000000000000#include "off_line_text_preprocessing.h" #include "utilImageFloat.h" #include "utilMatrixFloat.h" #include "vector.h" #include "pair.h" #include "swap.h" #include "max_min_finder.h" // para buscar_extremos_trazo #include "unused_variable.h" #include #include #include "interest_points.h" using april_utils::vector; using april_utils::pair; using april_utils::min; using april_utils::max; using april_utils::max_finder; using april_utils::min_finder; using april_utils::swap; using april_utils::Point2D; static Point2D get_next_point(vector v, int index, int width, float default_y) { assert(index+1 >= 0 && "Invalid index"); if (v.size() > 0) { if (index < int(v.size())-1) { return v[index+1]; } else { return Point2D(width-1.0f, v.back().y); } } else { return Point2D(width-1.0f, default_y); } } static Point2D get_first_point(vector v, int width, float default_y, int *index) { UNUSED_VARIABLE(width); Point2D result; if (!v.empty()) { result.x = 0; result.y = v[0].y; if (v[0].x == 0) { *index = 0; // index is the last index we have used in v } else { *index = -1; } } else { result.x = 0.0f; result.y = default_y; *index = -1; } return result; } // Reduce a section of one column to one pixel static float column_reduce(ImageFloat *src, int col, float src_top, float src_bottom) { float epsilon = 1e-7; assert(src_top >= 0 && "Top source must be >= 0"); // assert(src_bottom <= src->height || // (0, printf("Bottom source must be <= src_height. (%f/%d)\n", // src_bottom, src->height))); assert(src_top <= src_bottom && "Top pixel has to be lower than bottom"); int pxl_top = floor(src_top); int pxl_bottom = floor(src_bottom); float rst_top = src_top - pxl_top; float rst_bottom = src_bottom - pxl_bottom; float total = 0.0f; //if (pxl_top == pxl_bottom) // return (float) (*src)(col, pxl_top); for(int x = pxl_top; x < pxl_bottom; ++x) { total += (*src)(col, x); } if (rst_top > epsilon) { total -= rst_top * ((*src)(col, pxl_top)); } if (rst_bottom > epsilon) { total += rst_bottom * ((*src)(col, pxl_bottom)); } return total/(src_bottom - src_top); } // Given a contour matrix (baseline, topline) and a line points // bool xComparator(Point2D &v1, Point2D &v2) { return v1.x < v2.x; } bool yComparator(Point2D &v1, Point2D &v2) { return v1.y < v2.y; } bool yComparatorReversed(Point2D &v1, Point2D &v2) { return v1.y > v2.y; } static void filter_asc(vector *points, MatrixFloat::random_access_iterator &line_it, int width, float vThreshold = 10.0f, int hThreshold = 20) { bool *valid = new bool[width]; for (int i=0; i *new_points = new vector(); april_utils::Sort(&(*points)[0],points->size(),yComparator); for(int i = 0; i < (int)points->size();++i) { Point2D &p = (*points)[i]; int x = int(p.x); if (line_it(x,0) > p.y+vThreshold && valid[x]) { new_points->push_back(p); int first = max(x-hThreshold,0); int last = min(x+hThreshold,width-1); for (int i=first; i<=last; ++i) valid[i]=false; } } // sort new_points by x april_utils::Sort(&(*new_points)[0],new_points->size(),xComparator); // delete points and change to new_points vector *aux = points; points->swap(*new_points); delete new_points; delete[] valid; } static void filter_desc(vector *points, MatrixFloat::random_access_iterator &line_it, int width, float vThreshold = 5.0f, int hThreshold = 20) { bool *valid = new bool[width]; for (int i=0; i *new_points = new vector(); april_utils::Sort(&(*points)[0],points->size(),yComparatorReversed); for(int i = 0; i < (int)points->size();++i) { Point2D &p = (*points)[i]; int x = int(p.x); if (line_it(x,1) < p.y-vThreshold && valid[x]) { new_points->push_back(p); int first = max(x-hThreshold,0); int last = min(x+hThreshold,width-1); for (int i=first; i<=last; ++i) valid[i]=false; } } // sort new_points by x april_utils::Sort(&(*new_points)[0],new_points->size(),xComparator); // delete points and change to new_points vector *aux = points; points->swap(*new_points); delete new_points; delete[] valid; } // Scales the source column to the target column // Recieve: // Two Images (Source and target) // Column to be reduced // the initial and final x of the source image // the initial and final x of the target image static void resize_index(ImageFloat *src, ImageFloat *dst, int col, float src_top, float src_bottom, float dst_top, float dst_bottom) { //We are assuming that the row of the column can be viewed //as a float between range 0 and height (inclusive) assert(src_top >= 0 && "Top source must be >= 0"); assert(dst_top >= 0 && "Top dest must be >= 0"); assert(src_bottom <= src->height && "Bottom source must be <= src_height"); assert(dst_bottom <= dst->height && "Bottom dest must be <= dest_height"); assert(src_top <= src_bottom && "Top src pixel has to be lower than bottom"); assert(dst_top < dst_bottom && "Top target pixel has to be lower than bottom"); //if (src_top >= src_bottom) // src_bottom = src_top+1; double epsilon = 1e-7; float ratio = (src_bottom - src_top)/(dst_bottom - dst_top); float cur_top = src_top; float cur_bottom; //Compute the first row rest int first_row = (int) ceil(dst_top); int last_row = (int) ceil(dst_bottom); float rst_top = first_row - dst_top; if (rst_top > epsilon) { cur_bottom = src_top; cur_top = (first_row-dst_top)*ratio; (*dst)(col, (int)floor(dst_top)) += column_reduce(src, col, cur_top, cur_bottom); } for (int row = first_row; row < last_row; ++row) { // fprintf(stderr, "Assert src_cur %f, src_next: %f, top: %f , bottom: %f, height: %d\n", src_cur, src_cur+ratio, src_top, src_bottom, src->height); cur_bottom = ((row +1 - dst_top)*ratio) + src_top; float dst_value = column_reduce(src, col, cur_top, cur_bottom); cur_top = cur_bottom; (*dst)(col, row) = dst_value; } //Compute the last row rest float rst_bottom = dst_bottom - last_row; if (rst_bottom > epsilon) { cur_bottom = src_bottom; (*dst)(col, (int)ceil(dst_bottom)) += column_reduce(src, col, cur_top, cur_bottom); } } namespace OCR { namespace OffLineTextPreprocessing { ImageFloat *normalize_image(ImageFloat *source, int dst_height) { int width = source->width; int height = source->height; int dims[2] = {dst_height, width}; MatrixFloat *result_mat = new MatrixFloat(2, dims); ImageFloat *result = new ImageFloat(result_mat); for(int col = 0; col < width; ++col) { resize_index(source, result, col, 0, height, 0, dst_height); } return result; } ImageFloat *normalize_size (ImageFloat *source, float ascender_ratio, float descender_ratio, vector ascenders, vector upper_baseline, vector lower_baseline, vector descenders, int dst_height, bool keep_aspect ) { // Precondition: upper_baseline and lower_baseline must contain, at least, one point each assert(!upper_baseline.empty() && "Upper baseline must not be empty"); assert(!lower_baseline.empty() && "Lower baseline must not be empty"); int width = source->width; int height = source->height; int BASELINE_SLACK=int(0.02f*height); //printf("BASELINE_SLACK = %d\n", BASELINE_SLACK); if (dst_height < 0) dst_height = source->height; int ascender_size = int(roundf(ascender_ratio*dst_height)); int descender_size = int(roundf(descender_ratio*dst_height)); int body_size = dst_height - ascender_size - descender_size; /* Definimos 4 alturas relevantes en las imagenes * * IMAGEN DESTINO IMAGEN ORIGEN * * - 0 --------------------------- cur_asc - * | ascenders | * - dst_upper ----------------- cur_upper - * | body | * - dst_lower ----------------- cur_lower - * | descenders | * - dst_height-1 --------------- cur_desc - */ int dst_upper = ascender_size; int dst_lower = ascender_size + body_size; int dims[2] = {dst_height, width}; MatrixFloat *result_mat = new MatrixFloat(2, dims); // FIXME: For non inverted matrix result_mat->fill(0.0f); ImageFloat *result = new ImageFloat(result_mat); int asc_idx = 0; int upper_idx = 0; int lower_idx = 0; int desc_idx = 0; Point2D next_asc, next_upper, next_lower, next_desc; Point2D prev_asc, prev_upper, prev_lower, prev_desc; prev_asc = get_first_point(ascenders, width, 0.0f, &asc_idx); next_asc = get_next_point(ascenders, asc_idx, width, 0.0f); asc_idx++; prev_desc = get_first_point(descenders, width, height-1.0f, &desc_idx); next_desc = get_next_point(descenders, desc_idx, width, height-1.0f); desc_idx++; // Default value won't be used due to precondition prev_upper = get_first_point(upper_baseline, width, -9999.9f, &upper_idx); next_upper = get_next_point(upper_baseline, upper_idx, width, -9999.9f); upper_idx++; // Default value won't be used due to precondition prev_lower = get_first_point(lower_baseline, width, -9999.9f, &lower_idx); next_lower = get_next_point(lower_baseline, lower_idx, width, -9999.9f); lower_idx++; int body_columns=0; float body_size_sum=0.0f; for (int column = 0; column < width; column++) { if (column > next_asc.x) { prev_asc = next_asc; next_asc = get_next_point(ascenders, asc_idx, width, 0.0f); asc_idx++; } if (column > next_desc.x) { prev_desc = next_desc; next_desc = get_next_point(descenders, desc_idx, width, height-1.0f); desc_idx++; } if (column > next_upper.x) { prev_upper = next_upper; next_upper = get_next_point(upper_baseline, upper_idx, width, 9999.9f); upper_idx++; } if (column > next_lower.x) { prev_lower = next_lower; next_lower = get_next_point(lower_baseline, lower_idx, width, 9999.9f); lower_idx++; } float cur_upper = max(0.0f, prev_upper.y + ((column - prev_upper.x) / (next_upper.x-prev_upper.x)) * (next_upper.y - prev_upper.y) - BASELINE_SLACK); float cur_lower = min(height - 1.0f, prev_lower.y + ((column - prev_lower.x) / (next_lower.x - prev_lower.x)) * (next_lower.y - prev_lower.y) + BASELINE_SLACK); if (cur_upper > cur_lower) { swap(cur_upper, cur_lower); } float cur_asc = min(cur_upper, prev_asc.y + ((column - prev_asc.x) / (next_asc.x - prev_asc.x) ) * (next_asc.y - prev_asc.y)); float cur_desc = max(cur_lower, prev_desc.y + ((column - prev_desc.x) / (next_desc.x - prev_desc.x)) * (next_desc.y - prev_desc.y)); // Center // // First normalize the body and calculate the normalization rasize float body_ratio = (cur_lower - cur_upper)/body_size; if (cur_lower-cur_upper >= 1.0f) { body_columns++; body_size_sum += cur_lower-cur_upper; resize_index(source, result, column, cur_upper, cur_lower, dst_upper, dst_lower); } // Ascender float expected_top = dst_upper*body_ratio; float top_cut = cur_asc; if (keep_aspect) { top_cut = cur_upper - expected_top; } //Fill the blanks float dst_asc = 0; if (top_cut < 0) { dst_asc = -top_cut/body_ratio; top_cut = 0; } if(cur_upper - top_cut >= 1.0f) resize_index(source, result, column, top_cut, cur_upper, dst_asc, dst_upper); //printf("x=%d, 1=%f, 2=%f, 4=%f, 5=%f\n", column, cur_asc, cur_upper, cur_lower, cur_desc); // Descenders float expected_bottom = (dst_height - dst_lower)*body_ratio; float dst_desc = dst_height; float bottom_cut = cur_desc; if (keep_aspect) { bottom_cut = cur_lower + expected_bottom; } if (bottom_cut > height) { dst_desc = dst_lower + (height-cur_lower)/body_ratio; bottom_cut = height; } //printf("dst_dsc :%d, dst_height: %d, bottom_cut:%d, height: %d, ratio: %f\n", dst_desc, dst_height, bottom_cut, height, body_ratio); assert(dst_desc <= dst_height && "Something went wrong"); if( bottom_cut - cur_lower >= 1.0f) resize_index(source, result, column, cur_lower, bottom_cut, dst_lower, dst_desc); } return result; } ImageFloat *normalize_size (ImageFloat *source, MatrixFloat *line_mat, float ascender_ratio, float descender_ratio, int dst_height, bool keep_aspect ) { // Precondition: upper_baseline and lower_baseline must contain, at least, one point each int width = source->width; int height = source->height; MatrixFloat::random_access_iterator line_it(line_mat); assert(line_mat->getDimSize(0) == width && "The number of columns does not fit"); assert(line_mat->getDimSize(1) == 4 && "There are no 3 areas on the image"); if (dst_height < 0) dst_height = source->height; int ascender_size = int(roundf(ascender_ratio*dst_height)); int descender_size = int(roundf(descender_ratio*dst_height)); int body_size = dst_height - ascender_size - descender_size; /* Definimos 4 alturas relevantes en las imagenes * * IMAGEN DESTINO IMAGEN ORIGEN * * - 0 --------------------------- cur_asc - * | ascenders | * - dst_upper ----------------- cur_upper - * | body | * - dst_lower ----------------- cur_lower - * | descenders | * - dst_height-1 --------------- cur_desc - */ int dst_upper = ascender_size; int dst_lower = ascender_size + body_size; int dims[2] = {dst_height, width}; MatrixFloat *result_mat = new MatrixFloat(2, dims); ImageFloat *result = new ImageFloat(result_mat); for (int column = 0; column < width; column++) { float cur_upper = line_it(column, 1); float cur_lower = line_it(column, 2); float cur_asc = line_it(column, 0); float cur_desc = line_it(column, 3); // First normalize the body and calculate the normalization rasize float body_ratio = (cur_lower - cur_upper)/body_size; if (cur_lower-cur_upper >= 1.0f) { resize_index(source, result, column, cur_upper, cur_lower, dst_upper, dst_lower); } // Ascender float expected_top = dst_upper*body_ratio; float top_cut = cur_asc; if (keep_aspect) { top_cut = cur_upper - expected_top; } //Fill the blanks float dst_asc = 0; if (top_cut < 0) { dst_asc = -top_cut/body_ratio; top_cut = 0; } if (cur_upper - top_cut >= 1) resize_index(source, result, column, top_cut, cur_upper, dst_asc, dst_upper); //printf("x=%d, 1=%f, 2=%f, 4=%f, 5=%f\n", column, cur_asc, cur_upper, cur_lower, cur_desc); // Descenders float expected_bottom = (dst_height - dst_lower)*body_ratio; float dst_desc = dst_height; float bottom_cut = cur_desc; if (keep_aspect) { bottom_cut = cur_lower + expected_bottom; } if (bottom_cut > height) { dst_desc = dst_lower + (height-cur_lower)/body_ratio; bottom_cut = height; } assert(dst_desc <= dst_height && "Something went wrong"); if(bottom_cut - cur_lower >= 1.0f) resize_index(source, result, column, cur_lower, bottom_cut, dst_lower, dst_desc); } return result; } // From the points of the topline and baseline, adds the ascenderes and descenders MatrixFloat *add_asc_desc (ImageFloat *img, MatrixFloat *line_mat, float v_threshold, int h_threshold ) { // Precondition mat size must be columns assert(line_mat->getDimSize(0) == img->width && "Matrix points does not fit with the image"); int width = img->width; int height = img->height; // Generate the 4 matrix dim int dims[2] = {width, 4}; MatrixFloat *result = new MatrixFloat(2, dims); MatrixFloat::random_access_iterator line_it(line_mat); MatrixFloat::random_access_iterator result_it(result); // Compute local maxima and local minima vector *ascenders = new vector(); vector *descenders = new vector(); // The true is because the image is inverted InterestPoints::extract_points_from_image(img, descenders, ascenders, 0.6, 0.4, 6, 15, true ); // Filter the points that are over the size filter_asc(ascenders, line_it, width, v_threshold, h_threshold); filter_desc(descenders, line_it, width,v_threshold, h_threshold); // Compute the interpolated lines Point2D next_asc, next_desc; Point2D prev_asc, prev_desc; int asc_idx = 0; int desc_idx = 0; prev_asc = get_first_point(*ascenders, width, 0.0f, &asc_idx); next_asc = get_next_point(*ascenders, asc_idx, width, 0.0f); asc_idx++; prev_desc = get_first_point(*descenders, width, height-1.0f, &desc_idx); next_desc = get_next_point(*descenders, desc_idx, width, height-1.0f); desc_idx++; for (int column = 0; column < width; column++) { float cur_upper = line_it(column,0); float cur_lower = line_it(column,1); if (cur_upper > cur_lower) cur_upper = cur_lower; if (column > next_asc.x) { prev_asc = next_asc; next_asc = get_next_point(*ascenders, asc_idx, width, 0.0f); asc_idx++; } if (column > next_desc.x) { prev_desc = next_desc; next_desc = get_next_point(*descenders, desc_idx, width, height-1.0f); desc_idx++; } float cur_asc = min(cur_upper-1.0f, prev_asc.y + ((column - prev_asc.x) / (next_asc.x - prev_asc.x) ) * (next_asc.y - prev_asc.y)); cur_asc = max(0.0f,cur_asc); float cur_desc = max(cur_lower+1.0f, prev_desc.y + ((column - prev_desc.x) / (next_desc.x - prev_desc.x)) * (next_desc.y - prev_desc.y)); cur_desc = min(height-1.0f, cur_desc); // Add the new lines and copy the old ones if (descenders->size() == 0) cur_desc = height; if (ascenders->size() == 0) cur_asc = 0; if (cur_upper >= cur_lower) { cur_upper = max(cur_lower-1.f, 0.0f); } //printf("Liada %d %f %f,(%f,%f) (%f,%f)\n", column, cur_asc, cur_upper, prev_asc.x, prev_asc.y, next_asc.x, next_asc.y); //printf("Liada2 %d %f %f,(%f,%f) (%f,%f)\n", column, cur_desc, cur_lower, prev_desc.x, prev_desc.y, next_desc.x, next_desc.y); result_it(column, 0) = cur_asc; result_it(column, 3) = cur_desc; result_it(column, 1) = cur_upper; result_it(column, 2) = cur_lower; } delete ascenders; delete descenders; return result; } } //namespace OffLineTextPreprocessing } // namespace OCR april-ann-0.3.1/packages/ocr/off_line_text_preprocessing/c_src/off_line_text_preprocessing.h000066400000000000000000000041721234204160600325610ustar00rootroot00000000000000/* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2014, Salvador España-Boquera, Jorge Gorbe-Moya, Francisco * Zamora-Martinez * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef OFF_LINE_TEXT_PREPROCESSING_H #define OFF_LINE_TEXT_PREPROCESSING_H #include "image.h" #include "utilImageFloat.h" #include "pair.h" #include "vector.h" #include "geometry.h" using april_utils::Point2D; namespace OCR { namespace OffLineTextPreprocessing { MatrixFloat *add_asc_desc (ImageFloat *img, MatrixFloat *line_mat, float v_treshold = 5, int h_threshold = 22.0f ); ImageFloat *normalize_size(ImageFloat *source, float ascender_ratio, float descender_ratio, april_utils::vector ascenders, april_utils::vector upper_baseline, april_utils::vector lower_baseline, april_utils::vector descenders, int dst_height = -1, bool keep_aspect = false); ImageFloat *normalize_image(ImageFloat *source, int dst_height); ImageFloat *normalize_size (ImageFloat *source, MatrixFloat *line_mat, float ascender_ratio, float descender_ratio, int dst_height, bool keep_aspect ); april_utils::vector* extract_points_from_image(ImageFloat *pimg); } } #endif april-ann-0.3.1/packages/ocr/off_line_text_preprocessing/package.lua000066400000000000000000000022231234204160600256200ustar00rootroot00000000000000 package{ name = "ocr.off_line_text_preprocessing", version = "1.0", depends = { "util", "Image", "matrix", "interest_points" }, keywords = { "off_line_text_preprocessing" }, description = "Handwritten text preprocessing utilities", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_off_line_text_preprocessing.lua.cc", dest_dir = "include" } }, target{ name = "build", depends = "provide", use_timestamp = true, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_off_line_text_preprocessing.lua.cc", dest_dir = "build", } }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/ocr/off_line_text_preprocessing/test/000077500000000000000000000000001234204160600245025ustar00rootroot00000000000000april-ann-0.3.1/packages/ocr/off_line_text_preprocessing/test/prueba-norm.png000066400000000000000000001535601234204160600274510ustar00rootroot00000000000000PNG  IHDR(v-y IDATx=gXTgNaޤ7Ql("-؈I61ULiƸMĘ]X v `az/~? EDp[{NaUWWW " 'HHH0 !I$I'9sƍ-vOv7jnnX,JuKp3|{˖-J?3g߈$I*+W455z$v$tDGG[,mذ`w7%)Xg}'ZѼhij]n݉'p۵kϧh薼/ b޽{Z̚5kҤIB _@,,,ܰaCMM N;wԩSO>j(0 J>8 Jl$F)..#IܰaM}>}Z7n\TTP;4M@P(~Db6n'ѣň#JKK͛#;5kM-[EGG(JZjO:u…oXxhЕ㓐PVVvȑ'$$|'&Lpuu(zRN/Ǐ쬯Gr qww%KtRT*eBn7͛1 x޽{ vl6N0!88 nbM6m„ СC"(**ip=dЋ/t:H$Y"3Z :::jYH&w3rd28BP( qqq:8~ ɈF9r̙K,YziӘLnl<o핕f)"""""I7ߴX,Ahڇ~X j߅Kzw ÇWTT`+y*JLԩS]]] cɒ%K.MLLtssKIFtr4?`"""kjjۭVkyyySSӌ3\\\}8?qljIII)g֭vg?o̝;zw0 3...W0jח ?.L&bY,6=HN+'q4eh4.kZ;::Ri~~ѣGG9rȁnG~w|>;000::zĈuuu"6))).. W`DGG]ӳrytt4:hw\ROƊDܴ]vUVV Bp8;AGGGvvZvss[~=rM.N7ah>د#G:`CY,`G/wޑd3gDw}Νp8ND?on:'{U V( cK,7o^UU_|q={;vlҤI)S@ݹ^^TH6⩧ }A̩[~_;>5%~bl6|W 9|>r:)))OHSSbiԯ5*͂ dѣGp62rQ@ ƈ#7'N4XF\b|;eXԐ|_#Ӱ^'Ua-bZl6t0OOO,.đPaB?hiiټys[[իѓGT;g t:Fe(9lj8fP_t$ @; ?, Ѐ`=UWW`0F q'p_=) "Fsuuń4&Iӑ$br&/ԳCvl@"@SZVN a```_t m6[]]W_}u:p8\nrr2# bؐWXX[[[cYV777ww???77Ajh5ȖV DXam6FQfd BlL>t:=66v͛6mtǏ_5oʎ8NLL:ujzzV=|ŋn}DCv;>bΝ0, 7V}l6Fh*I'sb RkW`26JfU*Njb2C>n:(rɓ#""0ʱ} D}566>|X $$$xyyY+Wfffb]\\9sp8I-{-22݀6mrƍ۴iӜ9sP_1 [q7 K(CMWEaWPP?N2e q =7s߿򋟟ߦMRSS]8E'$jw%JII0 ԣHX!$p8F#Nw20f偁uG&rͦZmggU*\+˖-L&zx;1t600 s8ӧO_reTTL&J?X,֭#D`L&oy{z+00p8qQoMHHطo߻W_\|t|fIQ6hzzz.f Ə?rH`bΰ{IdBB3VXCyGPzpZV@ *Z}}}*k4)*0F JZ <7vP;&R{A#B.WTT fh,_~%"a(//GJ`cFwV---H$jZV 0K~G`!IR \r͍|&)ٳv@n:@o>W\\X.pC_~:lݾk׮:BZLfUUUEEѣW\9gΜhX/b`v;Jzh|>ӈsss駴4R㸗WHHȌ3BCC@ ÂlN N"(>>>zR]B$UUU]xjfz暚#G~嗣G{_+7o\RRRjkklڴ 1 jmmm-((8}tNNhtss={|V͡ G{{;FKLLvHGvcpX,۬Y|#Gû6F?>+..v8111M˓Q"v&5.S򖖖6V " '?KR\\^{?F~M6YW^y-6IJD"9s̡C t;ＳqFPF^w}ꫯZ,,FSTw|FʙsΝ;0q ___oo[_tpĤvX hT*t:v r3ٳgl6ZVVVUU5~[m/xG}ҥK@oܸ=ֶmvYXcƌG"m/do~g {qqS0 عs P0=:.d>aG~G?7n<ٳ^)|]hX,NNNV( {Ǒd_̉0fYCVh^p8X,@ /]8mڴ7 V Ri5v+pO=X,0N'''gddm~K( |'O y36lpر?11)8ydff&Pŋc $P(^z%$,Ҥ(..~嗥Ri]]d:Eؽ{wQQO?CIn! hoG).h Ņ ^rėzxxYfʕ, Fo:M4`QPPe˖<nݺ@!8yM&O?4q5kP63 b'''p8d2YKK FkllJII?~MX&9e> VU$UVVÞ3✀? nX,zje0aaaFzǓWͻ\.ǃ ΂fkmm0 `rqqq *$שl6?$￟dFFFR>lp`0466䔕)J00jt:Q\\&)NՅM/@0H$~ A=p8̙c6 FVV֚5kMBBB``={rssSSS,X~ ߼^~~~Nk':t}Lhu̙<Y\~>l@@@\\P(D(cVVO?t[lXTīP(t:]{{kDDDRRRTT_@@P(dX:IvI2L,"C$5:MH$Rh4RYm n6ʕ+BfSJp8z}{{b: /CVwttTVV655Ff2Z[[/]`%v([ ԕFIsa6!CTfH:֗k׮7.%%eԩȁF:T *;w zB/oZm2hii),,;wn2AJ*РRPahЋW^@ ex @ҥKA* ϟ}Y,VPPЍ7z}NNNJJ :D`ms Cvvv~~Zx3fW4} JbT*d` qssZ===eee{Ybń t:jfjG"ڪj/h_ۀ &d2 v! f JXɓ';=wX,>sBhGF$ԤjVkvv ^OAB{쮮~0D"ZرcWZ5vXr@tU._\[[k4V+ûIII0$ !vw @.;pԩsw}wDNDMMg}'b> :>i$f3晑a2F9vXH ޳gݻd^t燅UWW1KXlllhhhee%(@Riee%Kffq8쒒Z \[NiΝKO<0 9PN8PSSo߾k׮r${FWUU䴴H$oo!}cj N8i4W\\\dd$6%̬Jȉ` "m Bвc:сiDf̘+g6kkkϝ;STT!`0Y/<`0JJJN@| oۥRiIIɸqn_ZCPd2FC6[mMT۷ 0?1qJEKKKϟ?p¾{n\U*Օ+WVp\\t:h-1  1f\M IDATDvU^ իWA  \P(looW˗/p:tTwAW^={L&Jn4kkk/_ AqZF}8d2þa`(]]]g̘en8b N Ql`#n_~bšj0w0̙3O(I&3f?HwPM$UTTI$JZ-hh4!9VjT&@-$?qHlkkCQ$Ij4uƹ?^.222BBB|~_tZA@:{>/((H$nnnbҘ`($YSS#t:ݶm@6t/d2KJJxdbb"FѺ`Cŋ\nwwwII bvF)**qZ pK.8>ymc+;ĈSLZ{=K|s&{]Z o0 Fqqqkk+Il6h4|\HB|O6\w6 ᫯rMt&^t,Q;v숍;w.ġSP(Ξ= Jݻw Bd鹂wN9DTYYY/_ <8ļ#7: )ʽ{Κ5 vH=8(ÇK$ R#Fpuuoil6ŤRBP* B24qqqԴq}WX[[ ޸hybbA`%%%mmmRu ~AAASLYxݻ'^/J.zjMQ{zz B$A8S( gmm-I<0(($$&&Θ1cp#ogFʢNh40} s\ovn;ww,p%(;*PBaaaWWI0RYPP+㽩2:/4t\NWAeeeuuu/: #IK$q1c@&& rggm8Ӆ0Lף Tro;77TfqSѣk֬@;}VI!|0kkk_sT} o=|ݻ!-vL7t7xd͛7B"3gNR@*A|IPNEԉNϟ??//O@%K 9'IR*v .áb1Z[R.Y,JF2D"8׮]Rf2jkkfA/kT*Ο?zd2B1cdzp4LrR+ F1b@u|7aXܹs'Nэ7~N~z=zykSd`G8sh4T:] 8 )S \n۷mqơe;>@0mڴphDTVV~iii  2~@S]]}Fp8?9s`/ Jj2[Bm6?~ERI#""~{z}CCCIIIIIBt/bFFdN@\IF}hѢ(;u}AwǙL& T.WWW_~\/\`6ACaXmmR4Z]]m۹\e¦O&)>>Q؅ *Rnf)o/@A:… v7nt'@ɓ*~===6fN-J'LlCp銊V\IARTT=2#G&%%3F׃zKVVVBr䊊 >o0_>k֬x6nqj_8½aƞR5ddmDDDHHĉ4 X璉J{BV1c@ l6[SSSUUUQQYHrRfH$%%%gϾ/qjPcxkccccc#083 T9 ĸt:Z}s.Zڱmmm &77VwFcEEŞ={]}($NP$j˫R)X Hȍ^9v؊+bp$4*$Ir8xĞHC*8ҡ ΧFcMMJ"zzzN4)))`X,|>zXVH$/7]>Mh)@a֭[9,-KUU<6n㔃/JPQA&$%%=ӓ&Mr> aVEEE/o _bz!???'k7F:VSSs @i( u*:]@Nh O*] ,RF.@D"cax۬ǂӰ>{o.[VVf68qG}499:yQ,XjժB r]pq_fOvھ-gKKɓ':X椾qJ~Aff̘R]]}ܹcǎ577#MH @[lZ% aDiOOϵkZ,ׯwvvt::#11V5@ۑ0͖{̙b:RH4LJI|Wm _dK:*B7aP%<<|qn/\̙Ge2v„ Q^^AN͎4i<zԩ.NmmmE׋۷GFFnڴ)((+/h4o20rG]r%lATVV~4G Ze8֘GdQQA|MMMzzRܴiI3fx?n6-HUNCB*PBrb8pɓ( ͞={+xwww0AWWWVRR !wXM&nkkf2sYzull8$N:5!!aYYYJr|ڵ.\@ hSPP_KK aP$ɏ>h~p8=? T('Oܾ}{[[3™3gz{{zzzr\J+Xt1 ĽVb %If'%%_3<<UhJ;aaa>T*=}tzzzss3 bNNNee I<_Fczz\.GvtkR2*f`kjjh4J$F*qnhh=8`wV0$KKKeժUVQl6?utttMMMnnL&ϏN IR 2K{.h[Bl{\\ѣ###'NFK/ N>ttt@ܡH>R1mhh `6^zԩ |t:ooo'r@z{l`u*uބ ===N)^_W_t UfXƍl"5 `щ0Zo7.(($ɈGFĚ~ցvylqc~999Ν FAD(P(\]]e28]xqڴiuuu(bhF%qp S(I`8G p]rcM2d<$G]]]sssgg'$O(..Ύ-((hkkCLJfb ^,/ h+_A, NMI6/o1w\Z/X*** ڵkg̘ +by<^WWױc DP|ᇓ'O w!5؍7.]"7ܜb]\\hhhJ۷o76݉D8n6_6 0H$ꤡî]?$ܬT*!VuWWWIIɶmjkk]R"/b̙Ǐ?~$ۻwk0 c{שIT` GyS\rHfBawwٳg/\O=z4::ի%%%==="9 cǎMJJjmm%TYYI1ttASWWwaV F[lk_xCH/a@)@Xɰ`Zjkk1 c ,xG___OF8H v…e˖8i 0 C{O @C-[,[,88؉РsxKsw8UUUǏV`xxx,_|ٲe8e*(Mvtww:x1cƈDkN8n؂p1b@ PTYAJKK7n~gggGG=uW6qH`|`ـ6mZ^^0DٱN<9??3ۜ9spA)RPO8JLLD}"I?Pgzt999(f{{{GFF5j ,\BPT) CCC}||1l6effRY"C !.zcDzJpq?J$J ...J.wtt=t|j@d"{yy!m N1`PGNjmll_lŋ!V_ܦ人:s||/ٹs'a~YH r FQP+,HfH$B>@epZ ;o/p…p8 ~K8zQj;::gOz:`F;w& &'NwF^0OO5k֠b68\ކ"YYYu0L& [e w׭[7e???(b6 ŕ+WϯDN>}\Gq/Fa}qwwOIIȀlooDi ¢ ֎;iԕŞPfb o"5o_S'Nvtt8%ZlټyaQ[[V pqq2eӃd2LR>VbꜜLjIT"(""VYP@\ &XFPAfff/8X,PJvSG`)Rg$c(qqq0l???p''I2**Fuww%nd;NFFDՀ.֯_fwww4#Fp\/aL&ڵk"ׯ_Qٳg_v =/@0򺸩0 EIp8QQQ6mrww'Y~ҥK $!$I@u$[ZZGjjI9sF << ˜GRܠ;t9-c-[oTho(C[RSSGuԩ as˝:ujSSSaaN#I1ir2̙3zvIYb'M6lf2|>_sҥYfQ='X,_~%JFӽ M" Z޽U @&Vպo߾ӧ߅ G/((NB1È%ev8rZjpgeeA<;5jԢEO>~xZzn]\\tzTTԺu뚚@SSS>f}wP> "G!JXU=<<|rRR(D=rIA$w&9@dww7T5 DDQ:AAAAPWʨPonnnhh@^{TE</&&Exzzh4p"q筷`aX,֌3 hŲuׯC @7nddd;vL0 4(H, 5k$ ÁGtH777ȪMdɒx`̙+V8aܸqGz)5 ׯ_a~?O / ÌFs>VXqhǿ, c `7),aPAN4ii4Zxx-[RSSPwyyy(zYfL$Ij3gtuu95ֶs⬬,T%juH 00SS&9ydȴ@}?P@XرcAa|+V@%b(CrԈ@*d20=CO>drrrRRRdd$bFw}G%  ~7L&K8B-E! #rWX0o޼QF0L>?m4;@8GGGO=Ԝ9s`^$OhҊ$I G2dsZ?M0W\9q$Q5kּ+[n}W^4|Y! ! A jR &u86+a߾}]]]RܹsmmmCPDobbbb;kr"a0#Fy z8Ab=:a7[*ԩSNzjSS6-hێN7bĈɓ'O6J~4#G^'ɴm6tttd2Ps{8[, `+NeWF4tBa0juaaݻޚ6$eFFƺunaǃjfdExeBz+D;zB ŇT`󋍍裏ԨEy)))jr8p^l l㾾<rt2uuužYZvϞ=_h%7+x}(@Rt???z0n744 1BR]t믿.))0beR333 Sfl޼y׮]G9<5@n.P2bp[x#G@)` HNTT6lXhP2“$)322Apgy&99;E}!^qcC[gV]]@$'!PcƌzU/++ܹs* T,' @za5@MDOt___`m6[ss3R`]\\FaÆ3g: !':zaaFEE͞= '2;rڵkj0zzzq6~WNl6ۑ#GdTfk(O~ B~v=\JJb >Fxqҥ˗/JgJ|||`hmm9vߤe͝ڷX,׮];zJ&OQEq8#G.^vuuaa5B0999<<ԈNQkVjF1--߱cGee%sAP(~kkkaa!a4- W_MJJ4"8e&vvE`@ЛNjqgjJ' ...B\q… tG\.oii1$I";{zz.]gϢ ARyZxb6 nqWFcvvm f?﷌2} (0 4iRdd$kuu5(j#}~ZV J]{ivm~G9>Ӱ… q$77yԨQ&M0\rܸq'$ܲ2Rj6ϟ?Dk??/Z衇hj>pRz:LvvzA"۷Ҡطc*ӶϙɴLzH/$B BGŊ"VUY?wUѵ+* J&5@ Nz}R&)9כwv& uuw~9y]'ħHQh]QBaڦ&`F}!:i~ꩧbccT |0ghvqq5kٳGpUcrcccQgEQO? \l롥%33b*BBBBCC͛ /$''#ui0a,Kkkkww8ϩc/N>0T*;wnTT@ @Pꭷ". pg>"W^ݵkׅ  ȑ#|Y  i4D2L8Fqww=z?Y4M=h999͜93$$j%J HCߍ x5eeeΝFΛ$'''f|޽EEE xP+VJ`J}'EQ+WܰaT*D`g۶mcaUݛT*QxbTz ҙۤχ?kڵw}7?ׯg,ǏC'F4MeR\]]FcgggUURn,X J DL6*`Z?rܧz*%%E*bz}UUUeeG;8&41x<"+ŋF#ݴiӨ(џDd2) lw0-[*0(@ľvGwuuUVVz''0 T>Ox !`0ٳN壃z}/#!M6D?Ξ7ٯBQkkkAM;|W_}7:t/^,,,dsE5qXXXBBXfdɒ%Z6Rp lLW-)r!!!999+a8۸q#JgZr >4rG?UL&{뭷9N\\``zC ka/^4444,,lƌ/ Cod2GbK"d޲'0n޼W/_X,W~>H?c@?p0 5͵@8)o?/744T*-[Fl?z<oΜ9vz''O4P0VZc`o }bEӴh9j~D5 Y -_djZ}}}EEEor8HeDŽvϐJ6@2i5ɗwFCCCh]3yfC#J-ZoNNN%Ĥ<q!M6lHNNrvvdmpppϞ=`G?c; Om|:W(k֬ILL bxhhHR!V^I0BS/F}6MӁ \cٳ/Kbp\ XbS(_^"8.))ٷo_jjbqrrD";{8$NG{܉GrppgppwMQNɁhZe2#ne??2;GMraaaZZpQ-ePL9,ZWWWLFJvb*++u̙LJSNd' NNN@(ʚBV5X5FQVgggw}4E+jP(G};w.8@M|1f7$1j*ŋ=H$1cƻKh— r0L``?]-G֠B@ ;{)7}}}EEDD 7o^OOFqx ??A7xBM4<9sc=vU1[tݡI AX֯Z / l P<::?5ki'l pww{ !lA:ZizݺuF6_|$Hqf8@_(T.Dgg+Wi }}}:I,wwwI& QA;ݛ1]A4E l6fdS[_|EQ2,44Ԉ ԸH0P(p88m}}}]]]ɴ'\.㎥ JVÃ<ݎ)Sٗh .Ul6[EEЎQQQ6mGlV[P(r@LT"b7[l6[gggaacT;iҤ7nݺuʔ)]]]_d8vJ/a"6A <O2EPkr@3޽Np&QmNNNjzΜ9bxi|dddPPPZZMZ[ZZ+я>XQo~ ô^~Ӧ (hV*/\WTXhZfppb߾}]FlEM:ˊaZ[[:DB ))jjjH 86܁,F5@lL|XT[|xxdZ$44T$DPNG(NyܹsSSS tHh4.\P*?4hMċuѣGT*8SRRŻΉ)IRPtA???r%=EBP__҂:MF!]K(U,{yyv1 m#up*/[ ?pǎl~ [ CiiJذaCbb"|v:A9#p=NI95aފ⾾>UUU9<&A`l6)H$ .tRww7Qhf"ܪ;(BLcH»Z޻w/akEd*"M$:Dc!''GPL&Pץlٲn{$#6c﫣>z4!cڝLwwwnjQ IDATKDfj '889ބG}۱ /^&m:;;333AFQOIIYz9888::(T*": `قph4tM&P(@c A]\\vT6 X,K "9 ~UҥK333Q]<[la9;v E Qn2^F^ 3![4MO6mɒ%8Iu5@"bD_p沲2\%gdbt999vCEEEqq|Pˡ"Mq4MGDDܸqh^;vԆAstd2pR$X, BTtPc8hH$k׮ݷo_ee%֭ӦMsO~׮Dns4 к^aw,Vul/N700BaXX^¶ v ܲL&mjO"L5k֠/,Cd0C@lV(׮]Ceαb)..NOO?vXmmVr @mϞ=fwimm]jɓVyIjb& ￟ 3f,]T&?lc8Ky[.X\vNA.|L&Wr9@-6 '\.ZV$ _V[[}Ϛ5GM}iF$,((<6 enj3 *8@JB8MГzҤI$cOcccp]Ѐ--Z4N]#ixx6rGGڽ&UH P[ab`9CEֈtXYWW*`4I`al߰ar}a~ߩT$6ڵK(>c?('''wwӧ ,?ųX,/_kkkz!Y,P844TWW 0~ ===dXN<ϓ `_|h4VWW)J///ǁW^ERD?>}yEx?񏷻/ jH ^_\\QRRVǍ&8ZȤd)))D/LjE ]f$ձO:5]$+ifh4@O wX׳d2*pMnyCr+AjZEP?:668@AClN]4o]6o lnnnfGxBp7oDex<'fsbbKJJJ__?p ?8@v4-JJ%!0*J aaaׯ/**Jr>∜4i7XYZu'~߮h4,7===z^պ) l6HM4'lyyyHLF쁷+HZb桡'$$D"?J79rʕ>lSNݶmۦMuv!vm2jjj>Kl6___DVUV3 KddZz? ]j׮]6lMH~*iz̙p)"===Ǐ:uʕ+|>l7l PDX.0h{&HtEˍF]ub5V[YY)GDM\O+W#EFju{{;aD;jgM( mnn3g4MLׯUTT ~\Ul(8|bAuqv!H0~g;Z|u??izڴi~3g~ᇪ*=#lj-../[ZZYr /` 5p***z)wwwS*{deΜ9"mnXt)ԣ~JjllT*UUUgΜ1 TNVWWWӟ<P(\``p8D1d}駟~izz:"؜*"ipNDX ?I&͙3g֭2 |ii)754Mt2 hP͛' 5MII'|A-">rLFX0 "@~p_}ջm"-x,Aܐ]6Ǜ%%%=hHi&櫏d2T Z<@Ez?1l,>D 6DDD,[ 1ӥR)%%%xq CfXr ŎP© * 6;hD3l+)*++MZ:..2A$,,G! UW0G ,Xॗ^rss èT*fgLq$1wK$=ΩSΞ={'xgݶmҥK lnz#F}bvRɞ^^^o&<_*ƍ~%eee$X""##s\? Wy<^XX@ L&S[[ݻ T* ?`4Fy, 1u ~ h뫪:D":|>?$$d͚5ӧO'3ƍvt$RyܹQcHgO(GP(9s& c   MMbQBj 8ю5 6AǫT*PAtɤjwŞ0 ()***&&m&[Fyse+oEq89s,Yd3f̘?~rrr\\ܫc`3ONCduTUU4(`0 G882y䀀*-O?-[L2%888 ))8}:::HDtş'MCU#{(VIǒndQ*ؖz뭽{ IIIb844O>AoOOɩO)%QRzFpp0Mfe}Ũh:::=<#G+VعsO>) [oٳgڴiDRAmS_qSA95Hh4ǎ322V$]zBBɓ$ [GvK{XPCx<^HHȔ)S9*+|Įg+4{{"| djiik>!%"y<޲e~Y9_ ݻw_~]8B!;z[RQ(2HnsVm%,(B@!\>X,ljj";I|mD':::88\l2Ez{{򲲲SBX(""PŅ%w~(***ʱ@Vrrƍe2NNNc%ۉ74p7'@m#(. 7O "::++tdDjßJh4Ϯo @644'dzs8777`F$2'')j jEQZXT|#ɒRRR֮]!@~ĉ{~B}Lׯ Xx1yI&r--ac]988,7e0;;^PN8ޖNNNaaa$@ף4u jjǑkafVLD޽^z'7n{{{/_7sssP;''ex 0ǎ(*44tE͟??""p\N?OieݺuRaoŎ+bHi"|>_.K燇_7ӟsXZv0 a;rG ?dP*w%חaZzر=}kꫯ~w` ~衇~픔hE"ѽ{^{ O=zw{쩬dݨۣ^rW\9k,QCCC?3&JHHa`_ALagFGGR@344D܅EjdmbOgg'h!nKo`0 ; P[ZZ^V#Eutt?~~~~SLquu9㷓ŒhZ'Ao)ˠ/__߹s#b ?g,q4+\.6LUUU=6?9s\FP,w lvMMM<Kq燅joo糖Hl_3f̐d!!!_} \pL/ 3~-XG^Y"x{{߿Ŋ(--O>K> 4''/\^GG0w&iׯ_lG *w&g񍍍?~d4M#pN<冇LvA3#dS򈈈'x9@o). oƈa9Ν+))imm944t鱱2)11VM___cccYYY]]tD&ɮXct͖2PCa7\.j#0 vד@AYY` UV!n⒑ԅ * TkGI)SiFR b6 mmmuuu}}}xӧO_b p>۷޳˷U(,p☓JD󚛛+**bbba1 tgƍfD"7775Rܿo&-~&Fe6C L4\dINNNAAB}}}N:wժU>`HH!ӡF\!v.<џ xyy  &rDFD. 4yR_YY >;=3X˝>>s=U}~ԩS7n(((o| \3|}}[[[)cgat:]kk+ۺu+9[.:b2cbs8իW;v… :ѣ)))sεZgϞH$?9d̴+ 1'MP9ւ{pۭ5<$Yܹs G;88xƍ'N455MaNwE1##..¼nݺeݵ|۷o322v]RRjxŝeeeׯ_v-L׸?4MϘ1#))I.枞ٳg;sN' ,Ν ZYf>/ EQG H$& dJAAAba F8P.%s!Ɵ}||Y__ZP*#]J]~}||8OPf̘1w~޽{]\\`򵶶)P+ *(--1!EiZ"xyy[nʕȿ.4MbĠ4 ʳgςl_E%&&FAZٳg}N5 IDAT7nlڴ# okkcH!_okk+--i=55iNTYY HbbbrrH%U*_zu׮]eƍ6:>z>o0>)gߖ^p8ʕ+̙mcѢE'NP4Mggg;E2 (vאq[4WSL!Buu5NJN:uҥNN(++B<<<N1˜x9vQPPPHHHkkkkkkDDĨQ355d2yzz(.lnmm#(gmھhڸTOG?#_B'${LZN>H)KOOOOO]Ϗ 4MϚ5+111==]նt|///DB~aeee$5$_ӥ) 0?"Z0z"]4MxЀ+V|0;;;Ϝ9*{ｗͳ9-rb;pzTTTp8Z W MӠ|뮻.]$a\|hIlLOOohhG瞨իWK&B±%FGGϦ f3IޢV/?q\#,X0Ѻ:<^BBG{{lp²eBBBS1>sOOJ!={vggh驩9zM\\\F#k@:8 @kZ###G񯳳30&)??}1k0O?thhD"h4---N*,,ԃ(T}vWW5kִ}W==='N51N! }~7-[vҥ#G899566h[o6Ǜ7Xnppi#@R42n.{}}2ollܷoϏ+-]!fΜ4cƌCGA```@@@ddŋ|||n=htttDDG~EQVڷo_ww7+{bןCCCG|2qp]i7w޼yV… Rf4M;;;/X $$-(FhꪬժUO=f͚5eʔld0H{|c Eks`';l:d``nh4oRr5INNNOOGicFSVVV^^CVOeIz#Rԟ9s& ڀ|pݺu7olllqV5L mmm~aBBDv Q&Dz$-qA)g6oKspvvA;܎AYl7\pjcǎ[.V6̈r`PDDĺu뀩8ˉhJoFqq1BXގjVkNJ(Cyyy111 ֮Ю(,Xu (R޽yyF,o޼yΝ&_I&q?Igez bX߯P(juoo/bb VZy{}`///9s&m;책 pyWYY4ZU񂃃Á+izڴio=<<كȭׯ_TQv1CCCI5;;mcccQQQee%R#˗رC.rX Vv3p 766VWW9s%(ſnnneeegff8p஻lHbwV+RPB)^^^=\GGGzz:O`%%%pڶbfv먡yEDD!߶E;===QX*.\pƌSL)..tjZ*ŋe2ٝggg P+D0 @x쌈!mmmF' }7xc``ܹsW^=uŋoٲ%((hgVE8nef_|gT*]tXmiwʕ* | ի3g |>;"ġo!V{̙CuvvJ$Lxuqq1nqwtt+-h݆i@[oUUUUUU}uuuZ677WRCU#> ͨ{Ȩ"˷mꫯl7|"!vd_y@+VL6 \BKx9֬YSZZs4(,,dF8M&ӥKO< #d2p8GyWm 555'O >#ѣG9?7mѱdh@!z'** 3oB8Ν gkEEũS} 쐟Cp lANBEQ@ `簳Qm+V>|zNaaΝ;CCCQcQ㴡ˈSXXXPig׮]x"d{Fݚp@R#ō;ꫯ9@PzӧO;wtPPؙr~+JuaBqeP8yd&@&999>>>''_mm-FI&=w-YdF !T8y/~:цaMM>u~tRu6l _ʡkFǷ*ǒ###+**,˵kjjj*++333 Xp l2;#vfV ӧ׮]K2=d d DF*%^^^[lL&SYYG}B`ZY|͜9sxxɓ>BN_bb"Gqss_Uee'|rwiӦQ,N֋/#C\!=؎;AQTDDŋsrr,k֬Y3$0WOOOIIIBBGF;995>>^.?~ΝvCCC%%%okٙىGK$8Y+>hѢdR(i``СC7n9ttuXXXLLB`j2 dVGRtܹ3f̠iҥK?>믽pҏE2X, Aȼrvv@i__Fh<2쮙;w.69;;i>p &2߃?H^^^VyTnY,//7>,&&?WZsύ_uZ ̚5 0aMMMpMMYf}wx555q8ټ~zniC9FuNw{ N!r…#HQ{؎]GA lذ}06F;FHrr_WY;blidN xhhHRKє)SBCCiӦyyy Oֶ4u̙˗&%%AUe3MӁ---(]|(V*Ԉh"9#BBBjkkG?7Q,H(;v N/SN 4pz$̞={SNE\K, 9h\p!ԀB Lltnfk׮I@sssx,d-JMMeϞ=ϟ_zٳ'O=0 c_5BaXXآEzzzG"4fӦMEDe˖eff"dhhȎΥ8-=tZ|yNNH͛裏8*f͚+SNmݺ_r’蘘@񎎎yoo@71c^ Pavss+--sߙ0 s7oL&@`GHR >ئۋrssSSSQc/8cuǻ`G}D?#HR)f=`$uuuh4'44(P<c5&&fO=7U;3M6wǏ?~/\r%jEl3H1vN{?W(eee}Ν;?Otuu}衇233-B())agX,gpٳM&/ d2YXX(J322`X9;;O4d2)JT-Iggܹs/^<@tYYJ*--ϿyRDB[BBBJJJddH$T*Ϝ9cu:][[[ooo[[V]zuUUUaaaKKKUUUgg'vi@O"_,JJ%1ߔ8X,$IZ(ؐa$悂tM"HPl޼Y.wuul s%k_.]p`0@*((Z&M...&IPh4/vww4M骱)))?N+--p8z^Pܹ3,, nnnl#inn9u6u] 6X//K.=lZ:;;?d^"l߾gÑd/w}t9abqHH1֐[HQH$Bh``bGN$%''?swnc Ezzzoo/fܹ-"nh4fggcPSTTEQ\.7>>7 5>6y䢢"1t]w-Y︟ dĮ- PojjȠ( V͛7 H3 ۺu}݇(X>, FinnE3gN #Ҭ%P*0aaa}j#ٹTRAPYYJۓv>X__F}UKK;'N$nwwE=#qٳg`fڵv1{ .ZVX,9s T*USSSAAA^^͛7Ϟ={ś7oZ4$t>xojyyyǎr dLl۶ݝ4 # ??F;낦鼼$3<}('''oo︸_ׄv5_u#LCP8gΜK%>6\B±jAچ;):qDQQ==.]j5z=NBall!C+0{|D& >Ȃ-0M⒒o#;C$6.ҫa&Iŋ8( J ֮]8n߾}X&Mj6{ㅅڵ \臊P:ۙA/bAv}!$IB1cƌy|JSF 1t 00055U&$hT*gƌݘ|TN"z)18@,I NCBBNjVkPPPll82'{zz~W*++nfպwM6mݺ^:>>Z^oaĂ(+gBpѢEHVX* xb|W| RYUUUalM;YWWWWTT:uرcYYY2Ү.Z3hOtV>ajoo(---.....W*aaa۶mDdذa.++_(4q!$TVV655%%%͘1{$YRRHN^h_l+# >p+~C9@ʣ~ ^$ @R!dXT*T*im􌊊:~8Ri%˰$HRٌ@:N7s̸8///^/#G%& B+**p~\RRRPP֖y!b=c 6E+H:::Z[[FcAAuIڐ$ c_~y N FBpcRE0B|˖-G[[X,vwwsرcW\ T=AZUUz#I\ӦM듴!HRSSO>ѣ555}effyw@@yF|u<oo6By{{lذ!22޳2 *d AAAXpQ:b:@ 0aEСCHWVV{:=}ܸqqdP(LKK4  "ϋH$2dNZ[n?U*B4j3Z:dB&nlcF FRkH$ FH$ioyD22 Ǐʢo'0ʹӏSS1<===%,,}-q]+$/H! ^pD/+Db>>>))) .dn{ﾃ{UVTfRtGSyx Reee֭S(7sX: XN8Q\\l0;NRcPx̙ǏcxysvhH$9s9Ø{/44Qx'N|ꩧH荠(q` |' icǎRqCY֬YvziievȐ!7n|'*++VbX.KιED+V\Iʎ92w\4cF,ϛ7|ݺub6MM"6uԔ$s꽮(8ӽmsN`F$0gc3V'M,W9$I&%%@_ Etww;v tD"z=܍[[[kkkgBh4 #G_wݷo$zT[aC+"t:RHS(.\jcxX=}1ff3,KNN?Ϣ"g͚-'<<<22ٳ---=&Eyxx[>s=|理! ZfS{= F```VVҢBOohh@|E1̟?y6[Bpwv[tt֭[au"zSVUU1ϊhSzj_~e"bbb\[[uA[$`NÆ Q( A jd999Zie5)R#}„ K_駟U]]gϞaÆEDD`ȑ$hii)VX,HbFqww9sf||FJ|>EEEf9)BQ?N>?jԨI&ww ziر7nlhh)))yO.f ++l0b-RVGDDj4>==mmmEEE֭;|dz'T*e-?s;v)@ D`V$)JL&Jδ4pXFdbA9hSuuÇa(G Ҳrh<{֬Y)Td2٬Y= Yx ѫvuuM4m۶mR4((;!!a̙/^LKKvލsn n|'|}}Y~!S͛7ܹٳAH$'~*J"0%KX@t:ݘ1c<&D???ZGM\?$ =<<ϟXR u޽{ڲsrr~I& DG "00gef;nLM:xH#[(sΞ=tfu!I2&&nnni{@$Q)԰˗#4O>fJUSSn@r˗Y&441MMMÆ {gFZ^vmBB/ )Xjukkk^^$Ib$N;vwޙ`?>&&ԩS$IܹsܹL󣣣cccA08rblQgyFӕ^&^AgArb5j^^^ @(N0oE Y,x3fnUH$;v,bqV7:V plO^\\ãX|>䏸wdcV7ܺu+3` 2=99yʔ)R ¸t$K5 AR{j}}}=P\.j*;--->>Âߘ1c@EM 8  ۷o!z枞;ydĂoRRÇj52s\Igc׶٫QQQO}y䑡C",FndժU 2ŋy7l~@;(JT:lذy9stʕ>L& JNNF! -Byfbٳgݺu Ç PV]]]]UU 4(`S9qĻ;88q UjW^MOO:qKI2,F.Ϟ=ݝVQ  $I^6yXEcժU_}" /\+JOOO///J}ѣ0(p\nZy:tЀ8vm<<?3H^駟@/s)߸#pСCϟ$s)\G #.;8%%ix8 ?y$I-lj P(RSS@fJZdIaa!vL(E%''JW^ٓ8ͭmoo/--7RliiillLHH0ͫW@QQF >$$d̘1rƍ;;;y->gd畗EGGcr P$3k,8f>֢!Czј~vm[n}7o0d2ZFAǔonnFV(e˖VՍz{{k֬Y~h3Em۶ !h</111>>>%%' ((Z0٘1cN8X>?SZZR0 ZOO^1YYY.\8qDAAqƭZ@.\Th({j$0|~DDo*k Y`SpbLV={vrr27[@ 7nWtt-[ꠖ\{cǎUTT@x衇>8sL'%%Ɔ :Hdok-7Xh*++)'JR1c,XjS9mmm4=MԤrNz衈 jDuwߎ;@  bZZړO>I>b8888""bѢE&M2LvC5 c͘1#66{۶m{ŎZBWZZڢE@/h1ADEE[nŊRl g aC Yp!N ]MRJTgdd֪T1cL2e̘1|IOOύ7ZKZ6$$ߵ]$I\\ܲeː9ӓ$Q*+V6mfCBB:;;lrR33h2F##!Rbb˙hѫ G;(@9<'F_o9 778rxIkZ"$dž4N*J!L+W~WyH*d/ K```XX t|j$ǶU*z) >444l߾4f r(++۳gN>t(`SSO=5c Me/bذayN޴ 7=h dk ѣG8p3<U 0bX EaaaUUbTTfԨQIII\\wܑA4.7-[D"8 "TfǠAn:P^EtwwG.nfo,]4==]T* c;$$4dθ12fzH$s̙8qbQQQ^^^KKKnnٳgf3dFBSBE`SO=ec$GU}?6lի&p~pѵĉٔJeww@ !+?v @P!RBֆt|f?OJJB3D)͎zO8VMdsn޼ Z2_Okz]/VZ E8|B#0SJRL5i$_G˗/7 ?L&{w:TPP ZmTTN1bDLL ދ~54" vXe)/"h|;}֯__RR~tǏٳgNb%Kd2Wdddxx8õJSSSfY׏9 Yj1D?s?xUUrmK $(A\`nnniiiTTԛoYTTt宮 |>ٳk|ٳgS=Z vss[titt4I >r?uVG}4000&&|הL,Lyпjt;v6X-_<::E=ojZϜ9rJ??k0 Ί[[[z-__ŋʜP?|P ~~~'N0unCQTSSѣGOxIIIAV&rIDAT=|zs kμȚ{ĠAbcc޻ H"Ntȑ^{M#H$Š=uԹspnsw6M<,%gnnnRtȑSNMKKWfvM*JPHQ`sgg' DhtAc؈wܰaom F={FMIQT{{IQܹs¸khؼy3F>NZLRpp~zĉѣGuK?wxQ̞={ڴiLh{#B`lzSTr/trAât.<{옘sTPcǎO?433'rܹsPaVG^77kw}T󐰺~Y@ -)nKXZ˖-;{laa`t}ٔ)Sp3me>* T~kFˠ/ҥK tmNOOx:.,,,7`栠  Y;K3PԃF`溴W#Ak֬^~=s޻`s{:wܪU`|#%wwwJ wI%2tuu>}'d% a>| y! 566?~\&EDDq㻺 11=Kw1cRf=8(3gW>HDSQCxHHHO|>V+-P(,X0}h ?܊ɓ'ֺ߿߮ 2lС 2`x7/^\ZZP(#AOKR^^^PPB(*..W_}饗phVWWj}]ȃ_ 777H/*[@5XMeeeLL`Ӱa~aX?,Q.\jC˨QN^KcMC?DaaaX`Y⯒=ӓ U\~Ǎ7Vvm!$WccK΢b k---t:B$~h&ܷCP@zzCA:rȑ#G#ñB=N}SӃzlE$ɰ0FyEX֌>ר{fڵk׭['J7mڔI G f}ךRXb"}}ǎG9vXAAP(|}VM )++ۻw-Khh t:4mEQ˗/www_~}MϿ{EsNf\9,o1\.4hВ%KiZ=ǍʪrSLW{6ܠU/wu=ꫣFr@^驩$IR*zxxpmtFA>O , t~3\dffL<V-j!222T*U``M## {! @dtxY>|8d{F Guu58g0X,fY&9Y156lGi4;wzyy1vY֢͛7oٲ+6^^^_|EhhcKh,++{wMDhh?$y C81ZZZSSSMX<P"&88xĈÇˤ+?w\UUA#p::^toʽl4r\VusM!x{sI& YklCCĉCCCqс-XUUUZZ 8 itoAG O5a Ȼhٌ*F1b3MǏ'$$T*,79lnhh(..>y vM6zIʖY(шBD~= t7Rd2utt>}zܸqm&Xs<lb 3 v!v%>#*mذ6YH^^^XXr ⠯FCÒ%KC|Yѭ M Ç+!C,X`tb) h4\p ·z$ICBB}/xEВRؙqЍv8h^`!z?1gۡc m'a2Hhwkg>c 7蟜|/gqf +++333ovII }H` (}YWWWllavu꫑{oWlyw~ѣGcN"ꊭ"d6PnذacwJN2 _Et+7ݬ7X{190Kb}\ɴgϞ˗۷o< cUяWc>'Y?=vLیF#]NLRQFlj}]̱l3v S|> Q[mMTO$;L5`, ҘQ*bZo_|ɓן7 gJB{zz̄A z9 [KM`x`?Ԡ8B`xtƱ5m+ X%Ͱ)2A<!eÒwU">|ܹ^^^^foq#E&$$%jn޼9-- vjzdmsP'96HOÙ-؞ld;͙ V,d"&p{h4СC<o̙Wl$kaʺ6ӫÞHJ `^\oBCCG,ܙ)Syfp%3'X7sc[V-b˻O>M\.om{"؛KW|۫yq\Ń.̒ abXRs@vq^H"0`+pHe-ܖq'c{m,nKqw\ٛe36֐puͰ\{xx5/2mJdAtW03ghY0s@^qJy6h4KJJ(R(~~~NYU;s({+@6+rƍnt"`d 6TbMXYIchsmdnDujUVVΜ9?${Ν6cX.w(8ـf ;A3toD?4}O_Qk3rMG`Q \k\e_aiSʒX#S2\Fgݼysgg'Ǜ8q͛5 kgzZsi̢0e2#-ׄqSL al(pi3f55 fv3+b5\cKקR{ߪ| }58Yi?+w3, 7#^ ~YT:י:P%Q(-x_ZP/v*@u> "g9VkeeܹsO:EQTll'@+]0%`| ,t#;8pRWpn֖YUU5gVK]Bbs}D*uA,]oNڰaK/'7*a@Lˑ@ 1#sC . 7&\ FLpuj\p}O8x"IeYp7X.?ŋ  Njj*܍o`RPPaÆ˗/b4qD]. . .\`}AD8\P\pẂiZFx|>7XtwƞۦjX,z۷o(//d O?̙3]p\p\pnU(;;;_{,gXMv]w<@]p ===EXСC"[>999GqssdjZ"B ,h4L<;;1??h4jZB1nܸԘ zMo/]ۻ<<0?1bHh&d2sP4LA{ݣG8q9.)@]ehBy^PXV3%%%''I1*!!!!!!!!!!!!Ѷҁ$AkVؑǏkׯ6mڌ3>kZA 3kI Pb{7+++=Wj6~xرcBŒ.2,˒$q/JE B. oXN{*F%ݨD[G%$$$$ZճTY;wSݻWJ>##cڵsٶm۵k,X *zm!y\_v|^^xFZAV">>d2j5y$Ie)8~i:**i<ϗ©h; u=]3$$$$$$Z?6@Ibp9 cT=reee]|v4}db&NTT7o|wxٳg; :Pik!yyy0ɓ'WPiB%---99Y|bwMC`mS ?Yt-V4ѨD3LgeeUTTA]%$$$$\;uW&B<ϗ 4믿K/M}h478%(b(L.^GEGGwAPxn@iD!EOv&=ŀ'_U_wnI {ğ˗/_|l.++?|pIVA(('PU2 s֭;IC?x[l4B(:i4>V\;9~H,..&"---///<<Υ16om ,..k׮52c qڵky٬Ə_FI_ۀjs)98ƍAk ZѧOM&Ӯ]f͚%lI41ZVj4NQEu!ZC8hT=6`#IB4(HbD{56x:thϞ=V$IJխ[+V 8P.BHQn?guZ(D%$$ZZy~޽oSDz=󕕕IRe#P~x hN{VߒzO< cǂm1eo߾<ܹ)Sڵ ,EAhѨhFZV|xI9²lz7z%\R5оO dZFa+++ dDP(5(PJ]h(b1bx{{{xxPPWꋚC'T+A}\BBEzg֢j˵ t& !e˖0ː=5(jK. ߄ɕT$i\`ĂA:u"Ia9B<ϳhZ?5j3<3p:7&MP( RL&Seee\\\QQQppp3U_x"fٳg<17oڵksBҁ ;WTT߿LTza Jp\###yVgϞ={Bup6ء8 `0ǥjLQ0y^IosPѨM+zxk׮kРA111;w+H@Γ$i++c ;E >H$$$loZ·v/y$℄ d2و#|Ͱ0E]Ʀ{CP֯GkT- k6$I0[xT*;ӱcΝ;3gxFFE۷>=hР;wk 6E]YC|:AAAA ݻw޼yH4u/ ~jGu5 bccϟ߷ovd֡J+>ɓ'nnn%%%`m() 2dǎcŲ (Jlwy88nc*yfseeeK']# r#nnjbSRR^}Փǎ!PYJIA[)%nsYIINQQQTTի!ЉyR(!VidWE`RRҚ5k̙O xy 0ݼyx{{?~Сc6H4n$6;<{L ijh*qFEDDIEG֭R8p q:<@rrS<==0۷oΜ96mSAlvmܸqE :!MDݟ{>}gl'.yӦM;thd&++ʕ+111\ON ]b$M {6;~~~ À;DK!!"B2 !DF1ic͍.\(++޽{G$Rb'h$$P㔘N5klذbdee <8$$|Z<ϟ>}r )ޥڊJ3UK#Kkxj*3$1BDoD6ZZtzi}||F1dȐcǎ_*jҴ²ȩSs;v$bW7J7bZo߾ޭ[7T j3gb9;wMĆG͓~D)ʱcǪ][pڧ߿gc\0"HG;vDl/!j\o1[nߺ?^'gD?8(x옱^ҒRF,r,g{7O;#((i10fӮQ(* C,g^߲IjtAa4g<9C.H}@&N /@Fr_?CɌy98Du~$nalkXRRRL&,$={j wRYH dnS իNX,<H$T* O[c4ezGiub$ógGt[xaj5q$A'gXh۷Y _iKcQ{92u!6Q&$;w q?y/))9zԣ111 4} 8#u UE 0@&AׯL&77<Jjaԏw ]C!2wzv{qʁf;&g=q޽{sss- BC$?~…/Yk'NXơo R( ð,jyZ}[B& vjFktul"x;1x7 P1|777<<<._jZUrss׬YCA$"9 I|3l|~~~Vc+WCCCj/т4rmC5c|ʕ2 >NSIaTl 8p Ð$b<[Wb+Wddd}#P;1l6NWYYgϞӧמsύ?>66/,,x!ݻv?^nԦwBrss7mtuJ0GЫW#F$==<@SO9sF>!dN:U0˲p:~{{yѲ 7$4l7oܺu?(I2iժjCCخi۵С]C: DCӴhSQǬD"4b̪(((y^=zT˫`F _6+KFdF z}xx8!^qH6T!oo={"0׮];v옸^[:X_ڼyA`h# 射Dv-)W+ydY6--uiZR;VP`M&˗o߾ E%h0nݺUZZDKR[3$.<7<|8B8^m6A#Ђ|²,˲;vp9- yѝ;w^~=;;5 s!o HBp'Eu'yt֭^zσ 0''g֭V*++CTiӦ}'sرJ?MrrVVVee&Nz̓UXg-ĖMOkqO1 i޽7oބ d2X7"IO>u/^ܶm[U3RgA6^\.`7gl9(7 bZݿ8βliii8-$I Hv B È6m;F0h4'OdYxa-XՅ0L<ɽz/[f`g=4n R45iRZyA۴i^nݺ-X`ժU֭{7~阘_~yʔ);w 6mȑ#It$Z-z+! u;B1MRBxm6IEt+A5 IDATVp٫S5saÆrb* ]_V;zZeoԅ>x`0L&e]~?^rell}.]IJFAUVV8Y[*Xՙ#&&f̘1ko47m$m} P*3fXhȑ#ޖ$!!!VL(*//0T*(cXRR"DR ~=`Zbmqfd2zNzlO,뺧Sޥq3g@e!Vb.EQӧOl6V>pxV֢g;.# Q! | h0ĔhfQV{xxZlllz衁"z}ffs=W^^.@e199뱱!mSPD7=kpH\@CjS&i۶m򪿟?ERAhW_}_x5 ԩ7|jժ]v\RV;{ٔhq4LEk׮{y2ZFڼy3(bٲeIj]Z^d I ڵk˖-&9@Āw8N}7pBQԃ>7HIIz ׇ?-[o… 2 #l2N:%(*uFd2Y,ф銋srrشqӺ۱cGRRR" ţ>ڡC1q{Sw%[VZUPPq'N;ud_QlB{7? DU/V!f`hH 1vw<ϓ)T'"JRTUnn7n_s˗/U[i2gm8j0gddHKX]BCuvk"SPǩ) Dzw 5|]!„`@Ɣ-tJ%ќ!__` B(00 8a'N˰Eiz^Vi*`jPRRbkjskHkn~5k\O& 0`ѢE .6lXݟIƏ-EfS@kXK\.y`0>|hv`$9|7xCр5ŋϟ?/IнУGKs\b\!^NO2 QYzK.oH٫W/ Ξ;wU$Ry/h[TeKJJV^' ܣGr;t;93a~oDѾ5f9((h=P gM&ӷ~;uT\0a'''C2hР~Aiŋn0 pZd[Wo!5$$I +~A;EQ h;^SU(D78p$J) +FOO0],)-y |CBB:Y$k7@RmoAL&?IyP.!}6c___$d2 Xg6K- cY/_#<^Wj֘|Ka0fBA5/xkΝVTKG0#hd,$I7nӦM!kG9O';׵l~b2͇_$:;vjSE;vÆ 7n@ +V/` ^ 4̙3?wGWn_wWGT| NBɥT*{r*HV{Ǐt:;~ *euKnݺZ=5u#G _~|(>eI~~~~8`͛7?˗/Cٳ[Aڭ)U#ɬV+qlކvNdlna07nܸqF bT.[uVhy՟~?""b{>}v'1$4[Ǜ6'o SQQBUl6zkAa;v8w'| gPPЍ7>555SD1Q8Pv\$$B www__L MO<񄿿ٳ9H|'JyTTT/10#G1a_+bjw. vm{V'z !TJ{cѓ&MZr%(O:UPPOr0+//y~Vȅv:u+S%} 0 HӴ_r .d5]vx'{P(BwZ_A`m~jJq`)-Ʉ}L& H=zt߾}k_f4ݻ~a &EAh¿nnn4MCT^ mXK+<_\\,+ gp󼼼M6iZ$JeDDWǎJKK y~qL&8ۭnyyy2333'';m~ΝhhOjܹ hBQXXxB#IRRrMPtޝN:+qՈ]tjaT$&&~wnnn iWuT'W>zsN' ~JgϞV?('%//~驧*++C$!b={œl6,[{٬ـKII3gNO?2X f/l\ ^^^Nh"Vn; F#F_C P9,@Y!l.,)"5RCÆa5/!(D!T=P (  tw.d$Ea!C 2!Vݰa.9ꩧBBB \.d4M7rJF1c~ؙ?_r0VgRR'|0oTT?rHrrr^xᅿ 9s&jxl1c x8<Ϗ7s۶m;{jE1 S\\jR#u-ۼ/ &ATﯿj4 b;w.s7/E9rÆ ̜1c(\I$Ihd&--aZ1˲ׯ+333<<6ht:(*ohxA3qq\NNӉQ<ϧ f͚:uDKû!n:t萝 8qbƌp)B+ RiZf(@]XdruL^0YرcVaÆ}a..'%+i JAX֒(R F^?w!!wuMr16lغuknn.ؐ2$::իSiq\IIlP* @}QܳAF3~ݻwWVV,~1cƠe-TG.T*10^t.\jiPhh)S@ (h7DEe˖޼y!ԹsؘzeP~JEEltj?OCBRicq8?~Ϝ9sw3tƒ W c?7X%Ir˖-o^$%%޽;%%4ZٳΝ[z5$)<<<)) ARMR6 a8h4^^^`Fjv r\VCʻuֿ˗/Ö!y:dU?,$ɟt9W_}~KuM{ųcM<}իW} oG(ӮT|-ADDD\t1cյiЩTsGe2$F; D5cEX/ʑ8"EpXt;@@$q#˲߄h BժO8h{w8^E ˟xpX,3g&СC^7 YYYo=|paa;Mӡ~0ƍ7mڴk.'(j-iVbk}D b mr#ly :>ʤ^O]?_ڭk1ǼK?\5uuhx5TWK?h__L.e B!WwdLFhѲhx8] A4MGDDnr4MO0a\ʂ> |i>I@-9BaC~ va,@[ڊ'On޼~E$w^JXՈQyx_(P>y1x<_ZZ%i {tlAau$$ZN /EQ-]ZsN$Zz_+yf9j2AW^x[o0);u)޽{?TYY)@"K[aFcjj* ]?UKYUFoj!je0ɛ6mꫯ@܄ ,Y2=zBӒ'8ծOW_}R)r"A(@( h4cRlٲz"tG^]!R}\R^pˇA(~ƍsdxaF;BH?r䈟_DD߱cG???[kN@U(A{n#-h4#GPV>-^P6 8Z q2l[FK4e_d2Ƃ7i4.<=3I~~~6mfP[,wy'22Rًr1{o.]1V`d>>>!d_N)oo)SE>N@LL⨈Zm6y/))ILLh[)Ah,))i#^YB?u5k֘L&X2eg}L%`#Y, Lkz 5A߿eY}ׯt {CH-q4M?S[lYՂ 6lذyf'22btg^pT& U{>~? yk]{Aw*ok ˗/'''ҋR\\|/X`ذa4M 0@&hH>|իWMWP͙3l6o޼yذaӧOo;"//+] ?~\x娨(7ϻy944V0 ܹDEܙۭlp//#F "d;GQ uַK3gtF:|:Z z 3BjҮPQT90qɝJzKJJV+f͆MhݜRј{aRRR{ｮ]N4pJܫ(P3 udYfAjuַ~Vbcc'd,66v h4)(ɔJe߾}{｜cX,5k̙3',,LR4MӴ\.BO4n3N>߫L $G!\p3At2c"˧NZUݮ+++>.RnWCa}_ 58VFoٲԩSc;M7$^gϞXd Q9>o";w[pXQfRka2AH n}Fc\=)渃]Њh MC#o7i$hf͚:RWf&33s„ 0+&B&|Gmfzzѣ˗/_~ ooذk'a={6`T*###qgXl]SktYU;DxĉPJ… ŏZ]s% &H~P{woN5G Œ\.0`@~~~Ki?ʮq,l6F`4!J[9#î _`x#6O5FyKKK͂5G:<ϛLdo'N%HnMPP9_x/\O?uB:uN+..޾}>VAFǎϟ{n h}ʊY[lի **%%cjj4Xڵknn8)V3πBMKKs6,{aׁ(OO˗C50V<< Žqp ˇp6/Z]{vUW:! ՈzC<Ծ-E|[ɤV+ ,(UJ{wB(pSP%B/.61oOq@tHHȶm6n{zrrr>WnڴIx1Z\x+// :tѣz)AAMx"M>>>&Lf6=X,999ƍ;{,тH;}^2(*8@qϺQuV[UUVmRgN[ EDdoH ٹSN Z׾ӆs|P(@ GrL"Ih"Zx tٟ4NVwC|zPC#CCd5dylų\ZZbX[nF  -$`\\Og^o1. >]@6BX^^N5\7fZI` C~g?m@~#%NÔiN9xxx@f^ ?`;(J* HܸVvZNNǁbL>wҤI}{%*PTG SAx<@жm۞={c ܐduuuIIIjZ[.33s͚5l6dk֬)**b2.\߿?lk3T,(ȡعGq|>QQQ=?z-[@K1:'!័IW HJk5ZsA1C EQV,300 ϟZ2zaUФUWW_v-==(pTڿȑ#\B={{5,'&!J׮]{1 Xory<̙3LJZp;w@Ox keeehhhyy98uql6H~y<{MM 3Ebڕnj3!lIƍGHq”=ѣoϞ=ǎ+^)nhh<~*<<|߾}L&S;88̙3N1 :|Gggg۷oڵOf?裤DN>|xll,fTWB$IjLCQH$A1n"@˼<`ԘL˪U_8Ù7oӧ šùX,cBtҐ!C@Us=x<1(AP6hG 8pױ`h.]4lYYى'ݻ~Dc*eT*! !.413=5>Q,b|||mpQWPPP[[\TTt+Wmۖrv`x!H~$T x؁233?AB!dzDBO#BXU\_s8]v#5'dT꼼Ǐ?!pFݏ۷/G$99277džV' A T*}ɳgjjjJJJ$ h?bM##]\\L8PXXؖ-[~w:r ,طoK$m _#sM<og!BP\~}Ν֭xUAI-[Qeaa7o<#ʈh8ѵkן~ig2p>SAP\|9%%eŊ۷ zNA)o޼YPP`iiz#G|ah_^ S?0̯6|EmB|_VZ}Bm۶_MXi՝-ެgςhee5iҤ W_jB j<}4A=B`. eС3gδ% ^FhLI҂Fcccu|[,%EQK\\\Ο?oooO/\^g=o߾nݺ `>|˗DS9N1 Hyry^^(@YpvvF1`2"To bҥN 8883fȑ@[Cz}TTΝ;8YZZkĉG{_cbb?!RTӝ8qBӭ]VDEEKR&Zrp@9s7<޽{DDW^]nx}QJ]]ŋ]pz}uu5mF$ [re~~烃q fYS\JYYY EB`㱆ԸD"СCǎ|``<`0ŦJ 3 ''u֍=hs[=xxx`R??sq2$$dѢEXڜ P@DRRÇ/^l ZNBq8gg#Gצj Czz |>n׮wy*cB6mff֡C5kյS޽o!ݎ;O`l;v-9rSEQ lٳ!lIYYY~~~`[GNW6\_M1&>111$$O>Ypɓ'Z^@pO滺nڴIѴÿnʔ)b% :Cо}{\ɍe9p69233ɷ`Xacǎqt?Upr{9`qww?}4q51 ۶m3 wrrz9ł 8pnׯ_U,[8- L~06mmmO?4%%E&dK.߿ѢE>>>x<ѣkjjo*7Zѩ$Ij4BQ[[uՃn޼Ƿ$.K ZdIInEQ|ܯnݺЛy04~߅woZחrLa2o4 ]οP(R~Ŋm۶p8C Q(xt>>?Qa8N+--xD"J**33s|>*z7n4b Z_A_&(ʄ睊b;//￐@U 36cl6B* AAA999\ZsڿVܣ/\q8'|KZZZΝu_|B ݼy__o&99y({!!!ip^ӧcq?$_d)V1 uuurvvJJJ.\;wj.^&|H B_C2L͛7M X@P9fϞmffȏ?[0-‡AW^ $IVvI4g,[ 26OBp$|D"WaÆ VM 6ahMwwɓ'$| Rرc%%%9jڌjݺu?}_f͚ VKL`0ŁήW^%jAPCC=I󈄴mll;v 4btp.Lj;>0lze@$ryIIHd IDATo#1DFF;wr Zx1FO>VSSW_az} `&>ߧOj}7ǣ("55ԩSg޳gOmm- f{6D¯Pos"!88xܸqs]r-[>Yf3 WSѣ{%ߏ(DAoI! ?ߟ_HՖDDD?~o]z+֭[}6~e!r,&1I ]-.Z׮]t3RT{QQ}Mo a?_as &NNC{g%i U:::"Hxot*du+Wn- ,6"A A0XL"Ν:Ϟ5 NS}`0,?oAoc^]{s Ky,`{ĉlHlO' ۷o/ J9۵IQk>ֽ-cP`l\=8bZb,&`7꽂D!ۭ^GH@TEyMmm8lÅ6@RFGG߿ܹ=?_،`++S$BѣGmllB,l~Sb;VR|-Z$a%+++33J'''Ǜ!PMiIM,6d26L`{ʕ80-NO.]:k֬%Kl۶m߾}QQQw=|xxxnn. ,&{ۣG^^{=ERQ" :.77sk0P d܈\.Pi _a]|y|>p-٘`D"Aرc=zp8A.?~=G35 eeaVG$1LNN+WJQVwnEy݇듓#Hvvv'O[E$yzz熆]ak(GGGO 1cƀl 6}h``c.\h1|%hژ+WFx/^~=T͌2f̘qIOOOB bڴi%%%t#Ght:]RR0) Cqq1]yɾo[[[EQ&<<.V$YQQq-\#=a+l5זܺ_^<@j5Y0\x)ӧχQO0pbH4~xi !kkknii m~}gaaa[BǏ/@eP(&N:F(\ʊ_|+$<9hРy999-Xniph􋉐9B64lŠ|evvvUT*I2LPdeeu,ot;[> ٙrH`O_+1f鋣oOFDDhZ@fffF 3)S9sbiÇh!`X|/?6 &ePTTPWWɓ'w;;Яqs`0H$0dN:56ꇢĜ0ObxѢEcǎE%$$@gnذJMɉbW {m:#PƂ?,~J=}<<|NFŗ/_^jvl`CCݻwo޼yJA555s̉jcơoDRUWWm iԆ۷o-|>lξ}vvv3'OB6F)**Zz5ˠF䥗;'uu0c=zq8o":wbffVYYt 1.))>}ӧX![YYZ}%"11Q"S$dWتVƍ{Q( ʪM6,BxÇkkk%IBB֭[޽s m#$III_{AsKdiidɒTWW3̘Vr)Zp.挌 VA4 J "|>8SN(GRyҥ*< 6R̙3ϝ;GϠ 8Nwr$O@ a$ITzQFA4)XYYAHSqqqMMk`JF?-_i)BZΝI'>0!;;G!20?]^fϞ=p@{{{V+˃=zҥ:NWPP|gѹb$Ibb{.]$03o0 L&4ń C,cI}}͛7.]Łx=zxޚ{}.A k0JJJ<<>~선ŭ:$>!F{ktāaaa=(l6O?0MRbAQlݻğ?\p'4D@ZVx9o޼'Oj4L7aÆd-:r()PNıcE)DOOYf=+[Pa04YMMMrrrVV4ApӧϚ5 (ǬYnݺU\\ ]o"́LMy0򘘘b k֬YnGDD;wX+WiӳgsM889.y-[s,,X,[BL&3++kذaFBM6V8q⯿z!\ \.6l؝;w1}y]‰xբhg pj[>}^:D"{00PʭQu? aDDDd@dff&8}`dpS5 SNku8p`Q=zt…P@_s#:T*ϟ?fX,KKKGG;w?>qa4<ITTZS.S ЧR|izz:X@$Dct^Ν>|X___SS?t!z}QQ /l (U틚BG$cU\.L;{˔?>$$&9sf׮]G=租~l6;11ɓƍKHH !T*\]]V^=(t Z.,,޽;AQ⬹kg(..>roڵ{W!55U$?'gddHD<5{{{OOϊ ^ 軆QJuu5xz.Kо'#7.[,---//!p^x1p@GG:ܸq!X_|DC DO5hAP6ggg^Jwb `?B5jc YYYǎ;twBFP #ѣǡC.NQ177wpp|iQׇ Qw ޮ㕕F~ ;6eQ>}xxx@<`_`.k`0 6EoGBwpp077Rn޼bŊҷvvv׷cǎP2܉uvv.//eßrFZYSr===O8`$f8 R 6is///B$r!c>(**/d +ץEP8eʔ0XZZqA/_>~xuuP((t<:GQbA)":ݭ&͛7 a ݍHBGs\^߯_?# E0```X*ɰ:Zf͚իW;eΝ;͛ SYY_Hn'i޼yəۄg%EQ$I_AW~_aO4/-cٻv{Ç-[֧Oggg++5385iI0ֆQJ.iii?ILL+} `DӘ1c^XZ[[c=1۷o7o^YY(++KKK;{|U BCCo߾ vtttww'I2==.%%ׯ"K ѣG`V}Sm:ydhh( rӦM۸q#.ػw9s޽[ѰX-[5ʴX+H nnn@u"##AUEEE)))))) III 2 ܁O~UUU1Ȃhb&OEEE%H,YFQT@@T PT3fm)ʴÇĸ۷]vF.맧8pNm}S //?822ӧZfxXE1 M՗!.mdӼ4yBMvҩ\n]TT)VFG[Ɩ/D Ћuuu>>>72 i _Q:cOxT*W^^y}}+W<YK@r͛;\ײeܹSZZ`0d2٣G={\|j]g Xp!'0_1b&"111CE.//yHYp|[`40^xaoo/JA ͛˗/_.!$LKKkhhQ$aÆEGGK$+**Μ9Lo=OrqՖG(8?̘1sj^.]#fzٳguuuF,WVV” 0h!߿K.>t2֭[#Gd2nݺpBZZ1˫w I`;l0ط ג0Px:T*Ta/]xܸq8+++==P"VT{U(X$!gϞ˖-ۺuk]]˛2eիWqgӱI$+W<~ H|YHQ굢 D_/fІt'W8"_qss[|ɓ'޽VXXXYY)ɔJFEJR* r\*VVV {B B}:555:=ə*m۶ 6 0Pp.+#lll?S(sdnٲ(fXnڴ 1n E>g͚}111/RN:sT*Us >uԬY0@_zD"_WܿL&|ѣM$xc-\:g`R*eee O޺u{צMA $ ex]2gi\b}s=tPLL \"h\WWw1" -[AWإKΉC-++۱cc6k.L ?y&L'=;!SW_}*:::XBRm%`Dl{]f̓.\~NRڵ #?$Ifeem޼yڵݭgΜixu:]jj!m􌍍UTcDI b޽pl,,,&MC^ea)*--]j(H$ӧ䫂CmCѲO4 #nvtŋyyyxC&k:w^~s?R2EEEH)L:t( @ɓ19&iUnxJ7֬Y憝VZx= N슭[_W^N@sssǏ[񜝝ڨȎ;!a2{DF:.,,;0S/'@ٳ .l޼C(éWgggȩ=dȐ 6\r%;;'x[CHTTgφXZZر5Kj/EEEiA`o IIIlѣ+++q`j!""`0+Wf\4w\PWApӦM3d555Ïϝ;W^Y,Q"|\%͛l ft_5qFdd!CM2\~IqzP._>֖bYXX :R5weBBB s+VصkƍL>89q\kkO>HRedd̞=wbñ֭[VV>~?wRp!x#$CQTtttQKӉ4HP|7"T׮]={F5o>>>/?YvvvˏaNj`r/Oahz#}` ۷/08qIFdjj*]H$M z*\.W,8pjZ~5k1wbeecLWL*N82$**>>7> scK.OV\\߮]k׮-#t(6l)aD"Q=薧R{_.8Á ̚5+..BZx<77w׮]PXs aXԴZ{va޽YՎ>l> ̚5{˖-555FӨh{=ݻׂ޳gO`666+I*o%:uꔕ_ײ x[@Lt7nݻwɒ%mڴ&=&䔚j |Ӷm"D"ŋ!A+w`0\~VVV/^R"˷mh,`eeխ[:ׯ]9/^tvvl3`h4YYYk֬y\+|P^ BH4tPLR o"0_7i$tF*ؙ3gbaϞ= ݻMi׮]HHQur|ƌ#yyym޼Ν;ݻwvABLKK :l0b/@@ !SsXYYYYYh4___Xi>rH3R(\È7n$ ZVWUUeggC*tF~d3I3[RREQ@-&ȳ˟**jѢE:uAunnNKIIٺuI\]]---IlhhdZ677ĉbruu?y52޽[>쳬,33gϞ#6=--DEEE2 f뇤Aϟ#|)Sƌ3bj$I2 ww~]~8!^аu֝;wC-7L&sȑ'Ov9~x妤޽Ν;P}ٳgϟ? w(/_XXXHZ>tPPPPS=Eq\ j://޽{!(WչsgWWW@`ggjgg*Il6p܆ 7hmڴ1bDff&lB@d KTp˷oVz/ .'9 7@&b퉧g BZPTғ+edE򘘘ÇcVែ$>>>66^с Cqq7|CD`0~3gXXX]: fTTEAA]s9\wvv5jvx{{r=4nu啕 ?dꨨ((n@5p}|}}M+b{{{˗?lV;P̬gϞ#e[l{Arr2_@O>g01c<{lΝp֮]5xt5yoou֕򥂯 +fad2]]]jjj@N_I:-/,I555aaa!!!HEMMMxxŋJۮtqq۷ojj*EQ2'NRUq^xqE cEE R܍9pqqԩS||<6!!YA1cFnM6O#fkk IgϞ]b-?vXPddPEEő#GpwwHGӤT*O?>s]+ϋ :'''Th\.8$ nFs޽{B,[ZZVWW G]S_OQTǎO;5 O6l-՘[tt' BH$} ǿ C!|u---]788xôk׺i?xb}}+}aakjj }L_|A½{_"8:ٵkEn!^3QHDNsU~]s"X,V.] &iޅաVtb^ F7ӦM6-_xw^H u{oߎߕŀjX,V P49h]IlӦ )S@XӕfggMShh(!ST*W^!Aʹiӌ‚NJ_8/]7(w' cǎA0zK^Iŗ.]ڴi#vCbN)|ٹs琐,(Mx%|xyPc 6vBIϜ1 Dm_|EJJRčہOpssj.24<<ԊcffЬvرϟ:u*tk-;w?~|޽7o޸qu>aÆyyyYYY 8c;vB@F$Iٳ "c PYY$5:F*J{w}6 … A&j/^T*jZ&8qt,o߾J*N6 ql΂i }.$I^pr"x<__Ç=ztʕG7o޺u8pETJ̄L,AXXX̚5NMetׯeupp0".|kEAI.]\Z;UVa AAAA+VP*^t$d+WMҜv`0a;wB-,Bذa88m^NZ ,,죏> 2.;*9r4;뿘LP(>}zjjQtEw)Kvtt?~ݻwu9N:[>ptttttD|>k*l6&@xr"B\.wܸq[nme$јuԸqpvl$ tH AѣN++iӦԴ'OΟ?o߾8 ښfgi L_~ spp?Q :7C\\od2͗-[V__5 CIIɰa  70"8ԩS1իZJM(-`d"G#n[(uIPeff>}\RK.( 4qrr"I"(( @ RSSǨ(9ճYjU޽Ӝ݉f>~(--E #""<<|ѽ{Μ9 2Ci]׶m[Px(m4lAȼ{?~رcǎ;&L2|nݺYXX^pajj۷["Iq Ap8cǎ={6X{LA ?f*ծ]nݺP.W^6nt7ޖ. Xtixx'OQ900(˫BΌo@_2Lz`s!D\.///7XÁ 8[9&ǖg3gΌu [x?ŗ9ҷo__Ν;`dž O?c3'N$J޽;w\)-?6$I\BiZ Xdc*uBIY-.1 ıl`kkKO$xxx@XM(R% h?gϞݻw$IL~aժUٷo߾>.r+**T*/^ wZ-!SSS|~vv'O\\.tJ0//2::B6f:ŋuuuݻwO<dB嚹MEQ$I߾}?t8*ѣ.]ĎN`HHHxYXX￿dpxPS%Hn޼닝F1ׇk #\|9 1޿F_޼yft:l@`tD"ѣ̙ӛ;B#.^ѣ7]ubgyyyNNTOَ; j>T*pB( zzb}gH"hqqqSUUԷo_X)ė p ҥϜ9s@{W{ｗj^z5>*ݻ'O.`F0$DrY???@L'O~FJN Ojn롦̙3Orrr<<<,--O~ڵJJ=<<6lneF_YY >!HOxB0`@BBFihh4п``033d:NVKh?t7n܈>xN|3g,**uT*U(%%%P/V7THA4jTWAxBVYYٹsiӦ $t$@SsY(#קOWW'O@oo޽{/X૯sNRRRuu5 tvvQT5MTTԋ/t2tbO>yܹs$Ir8HbŊŋ &8q899ٳg+Wҥ EQtڵkR[Xz!GΟ?ή0e,++ȀRϰ0L7F6m/55U+GM4I=t۷o߽{t Q(J<}TV[C_N:uy(%ާOdK]ѱڵk9џ8 nR= "h֭K$F\ǎ[z7JJJKKYfM=.\0f̘b&}u̬˩!:u ǖr} P#hGY"䏐?z9>^z Ŗ\.7 `ӦMO< 6p &@:bŊUUUpN<9k, G]|9##ܫݻw{xxr _~|ÇY,vmԨQƍ!AƄ  o>(&H !44]tYj$1$ѣgΜٰap蕢(%3|5M2;L$5jԨQA"l(ad" -+!>B~-4jL7GG+W|7:cҥ@!&`0p8PWiZ0 eݻT*);v7Q 1]f!ۜy#@%<7.$8NknZիW\y&x_~4ggoܸQ*ŋ3fRFھ};Dx PT YOMgggP(mlllZ?`///[- V1+^Rğŷ۴iSQQJ.>~BPg̙39s愆Bc'OO1jԋF}4d@ wxgd{J- %DB 䂀 қtDP "E?/MAiA%@ T,d|fZ{|0̞9s--Zԩ J'ȦQFԩSV+ɓ''''wk&ûvCؒٳ Ο?1.\P\\\]] )OMM}w7χT*eﵜ>,Q~~>z:+=9kH$j߾}TT͛7m6N[bƍٜi{?e˖K.!IEq57= ]>vѣGmĉ۷l#G={ϟ@ ""֭[0\}v׬YsٱcjT\י筬,))9|ˆCb8???11ծ3+?C~~j-))oٚ>h~˗wܙA`0\r*;;{3gΌ,1;wz:pm(2e9maVVٳgll8wܞ={u:{n^/xyy%&&FGG.ZW^iiiV͛?` U*!!!͚5X,0AW2jԨCdff -̆]!&&&!!ixojб & r!1>7+%'o]4DK3˗/( &qVhѢm۶5hРE`( HoeeentA8r̞=[P7ɀ=+!!:o34 s0 ~zH1_YYYYY HC1 /^}$k׮m۶ڵkEDDjJArdZO>ݽ{ݻwCt\oZn]XXXÆ !W0Wd7\.?SZ1,UTSN|Ns5xo/o߾7n|B3NLh||||}}CBB4hФIbV ?7n$lW\h4hrU z1 C}Ֆ吢ŋǏѣw8%%%7o☓s)Sx^pA4 꼽{9u5cz&`$$$h4'rN:utt0Lzz_RRxPHeBрhܼy/@D+**~;v:uh4L'bχ|NLիW:}/! A _UU[oAK;-Z@Qq/F@D 4 ӦM=z-[vaH,--UTb/ܵk׺u됛S:4ͰaΟ?oXD"իW ޠAɝt6k Bk; |YYپ}{pZlƍh`0 NjsrrP u:$$cǎ3f̀ݔJeϟ?;ڵCGIMׯ_i8u\4M۷aÆ0lHׯΜ9s~~~)));v0 X7_oig<ݝ>2F۳eAeWܷoM Țā\԰aJC$l b;DFF9s>>zn݂LT Ыe2_j˖-AAAp\.?tp}bNVWWϜ93::ZVFEE5h """>>^0a¦MٳgϱcΟ?uΝҊ*cSZZwϙ3'::=7:<j:twAG?BbYt) ׯݻ9=sv/Xr% qҥK111l!h46mbX^i6ś=zPqh|q… J(J⊢(o z1pϻtp̘1 ZN6A`~ N/]=fĉ͚5dPyXRRnРAjjjZZZ>}xw=""j{1 d/&LgϞAֆ`:믋P rWo?HJJ;r#KRFV_}W_}511Sрio~zd2v٨Q#:JejjaæL2c PL8K.pN  kVXZeB^]]Gj4P/""q))):tܹѣ7nQ=L&ӯaXnV%-+V2eJrr2haG־}{N; eYc99-cX,YG4-JaN'|2rHXG=l͛7ϛ7-E ҴiW^yeȐ!o D"Nt,9cdP쎇~4k® 稙JƩ>t΄'il6X⫯#G+&#0kd2XT*UZZڔ)SѺU*CugΜ_L剉!pEEEΝ]1׿ Fٍg2k֬{ q b<юO ",,L.#GuҥK ***##y4h޽{Q 4@ PTƍ1bX[yYpӧO?$I6idŊ/2*cdN}(Zz… i DH161b֭[BaW^NEEEsݱceffS.~ X,_}լYPpLP(.]L6lL&Dfɒ%#<v7l(*++ rby/ȂpX,WM&Zl9sW_}0e1#LgϞVE"QYYٳg,Yruxoo ?h4[O?-++Bj5غ Bd /^bH(0A?--'8\$E-_O?eQ|w:JPĹ+VZ YޏaHRRiEEEQQQee%xE {i޼9gk2.^8o޼la`C{un_Y,l?YCaPغuk///ݮ/_jiIWddçMZџ@вe]vɢ`}i+UVVN4i߾}p@BDSÆ kӦJՃ7`n,htOӴ`())t˗n2,))/d[繩?MΝ;ۙ3g~RRi.]K؅ܿo駟.\( r%$$EFFFT]]]VV 0#a|j /P^^0ӧv;ҥȑ#@+HyyѣGۣG\$5ko4D5TOݰddֺu봴^{iӦl=rkPr>\gvZPPjrʕ+_yGu:rss o;R!rig!jlwޝ9s!xA$'446m/w TUU}6l&'kӦ (P%{ot ?5:t/(((\y "hb 48R=}_uiaׯoذaڵ`VBJ ի׸q㢢&d]=O81al bKR0\۷v{NNƍ׭[#-{<;&Ifz뭷%fs~~͛7_g`Q+!Y\ӡCP}>ja5-rJp݅⇊ aM=¥? س6I5ܨ IUpg ˗z=I*JP+ HlyuE7l PfrrcPGܔڵK(jjڵh Ys׭E i!$VVڵkaÆAs/dDҴiS@AQԡC&O\RR"}}}u6uD .;N"A+V۷/vA@5v1cmkۻujժ`oj/_{$>} &@`2oٲwNNX,X,;vAIa'|.H5k6zÇ(Vu| L \r]ݮÞ+W|駧N(ȃ9G.7n8111,,, @V+J81Е@Rj4 CEEjN 9 M Ir|3f %~l`D ~!??իw9v!HBҺu`41S_~NvPGkl /-RT*'NزeKXpaII &((G:tUUU&)33ss DҪUiӦk; öm}]O4x={Hǽ}ӯ䤥ݹsGP4o|رb… ٳgAAX,9rŋjCn#G 6ǧaÆ;v숎?®]6o޼w^E"Mӻv?.tus{RS&v ?~|^^I3gD8³m.]:tZ@ 3! NTBXZTәf/AJN@q@ںu͛@r0H$& RuݸqΝ;h&QI3f̛oT 0 EEE[zzL&paGدp O:2ܻw/00O?$X,O<޽{3 ODA0w˖-͛׶m[]gVʕ+ӦMt4)wuر :$gz|xvz5:<زS ~E'=@$rzqSo<Ͷ0L+WaoCQTWX/B'!JOv{FF$#X/63..nӦM᝿%j˖-߼y3`flXZ-ؙhc0 0`S5@ؗ;az8,ڶm&#ylEujӿaij޽˗/00I山;v4hrn2&O_!_yo< Pl6^x177ŋnM _W$ YBBB4hzѸwbЮVvD:r_E CϨ(??.]N%z:ށӎxeeeW^}h,,,KKK A&9b?f̘qtⅴ+k׮-BGEEEPrDDDRR҄ tIH8uvۺu+fi:""ɓ,TNm۶%%%`/LСC7mD: jOXO~3Cqwq5AN3twMklvV$uCO5a(|xNj~|||گ_?WNj԰eVsu3 [tkAW,8;~pz*C#GƍWPP0D";w{g<`Msʕ_vMP|G.0r$<{w^Xa GyI0%An|(ĒNw Nq:G4=wƍK9rSgi#F8pSSS݋BY_/X ??i\ /k& |CPؠA۷n-8gf @8iܓ'@V"O</ }Cxpx ޱcG.]C8lEݻwo۶mt!C :ys^7,]T ,X`At\)C.17#l1)ꁍ'wqUp=Wsg8kzmG+x/AEUUUeggWUUA~9pav_`fǎodqqq֭k߾=nXgлk- in߾}ҥ켼<YU $씁91$$d]v/7}.^[pԩS9?Kx0 j0e>}@&_9G@yO;ԃ vj֋gGU;DC>Aaj=D"fGft2Sy޺d|߂1͛7oޱc(}]BBH$dk }nKxiɤP|1Gj/4?b:gms/g8]<VuٲeV2qqq}XX'ub7>?Xmn uaAӴP( dJVœrD;W\aG3D:tʕ&%TVV.X`Æ z12aHRZZb Z=qqf1|%+$t^ذՠ/7p8<Μ9SZZ*⢢`O.gZ%Gfou1<&tź啭ao G7K9}H Sٳg}||ƌxb® !jdpeeeYBH sT*mܸqPPRtX=zt޽W\a' 8~UrJߤIN:AuUàs:OtuuuNNίoiZܱc&MHw6[f xӋDĎ;N81..b/>}:AR488ڵkߥGIwuw,qszM|yvoE@p [-I̞xpvO_NNO8 ԇ-\Y6γ.=ye6< EQOٱclj'h ~~~|MN ÌeIa5!Qu{erճ҅yxj5~ɔA&IRT8pɒ%JN|Μ9۶mZ0ق~tت@ B' <L]j|L83p`Q_H@86g(pM^pZUhq#E;7kT]jGK3*#Fɐ`09~`bYWÎ ''r>9|묅t`b9rd7oF 6_~jb54Mg϶Z2M6Da@9͓U;<cЍ*ɴ9wk=)MQJ~Sؾ͖"8RZ b844tڴiGv4=PD"{sy'$HO'WTT̙3g}Y޽A$&Y VևwvlڴijѢEӧOGuV ta+J`P+!ģr\uZ~8LW{i;g[qmZUU{mڴ ۵kwpa.a:$f6Wg9n Dxa&UARWs>EQfY(b'@0fvڗ_~uVJQH$JHHx]gtȑ#333!uFU[j<* 7NKr6<=b&F6mnݺ"d2Rhϟ߮];///N.l;wFٺukhh(VbjOjc0lv9ׯ3 #Jnڷo_~+8bڽj9su@ݙ 7_ awGQTVVV߾}޽KD:JՅnኰPaӿx>09L KSt8qĘ1cn߾-BBBN>gBfPttÍĞ=y g!a/(Vի/_V*2;zyy4m0~׭[۷OQk 69j+GY֏?xɒ%4MUV 4}ms[8VCy@ 5kdffD"ӫW֭[$ɟdo0FMSnvU5*n(**bvy>=ɩh:l^{ ˗/ :Dݚ^"0f͚ݸq#++kɒ%o6dp܋{sEN ag+. {_]gͣ6e5 0zàEڵg͚e26l'Ox{rODN/v_ L +03dx:$I߇ 2$//ΒJerrr}}}e2BeL:WJյk͛2?zj^^V(ѣӧOOII/zn^^^'~8x-_7urHc  g֬Y\LǓ. TVVv .\pml`l#on۶ ¢ݻ755k?H ܈`ԇWƑF!COQ'L(a@ٽ-+7+ pqP ` F>x}~FSBn:thڴiUUUzfA7Db8888&&QF!!!F@PH$P]( TwYhQFFbi:22R.3fȑjt(d'0ݻw8־}{TZ7G`0l$BOc=A]6hРkײHR Hv؁-@1̓#87n!-I H'/xbUogHҶm=zc^6Щ `0O``yDiii+W޽{jZn6sssܹsq BL& oԨQ&MT*BJ>>> B(vB!^{5|P駟.X. 9bLhhѣk Qs#`0Pl6;NڻPdNRv- `M4 iBdaa!'ڰB} $,˫-Kuu5OOb5vCJZ)+ݻb'< z倩@E"K/d:ut)$ KKK޽ݻg2t:]uug BJj޼ylllddT*MIId eeeZ6??_ {mٲ%((Gihf{s6`!s?X,M3,9!ADwi Ha<D Wt:PhٔJ?]5sIF.a6ˉ?+ (0K`0%u ->za% SH,h"11q4777??_ח[,nZO8q)D2LFDDHRL&ɤR^l>zĉ5 #Αd>}؋Ch4uvد_}P yLmP(}Z 2O>åk0 X,A- zT`'`(@<H ++h4J$aZhụ͛ǎjb(1 `jsX2Kd6qqqqqq]t!B7M&SAAAuuJj/B\\G|pd? A#G@Z-< FI'N N+?j%`05b0:dbH$ڵ+b0 `j;[(a3!&dH~a'P^^nAK$Vb0EQϟUYfOg`Buuի7mTZZ*IOJJzzu`0 yNp% IDATNG9FbTP(?yT4  橡j D"QBB!-Ncw 0w޹sgnn.UV`0 т0N-̓! C !S+@1̓ *Fc0:we d 7aNgϞ_~eϞ=Z @;@0~Wb0 `[=>2 Ec1sGnn.IE Bl`$IB:6D"u: =(H.Ho4m4O.\8w\&M ZJ"lh!???''য়~?f3A@,=ޒOi0 `xӃ`0ualFX,+ Iy`0 `(0&i֭EαG^^^A\ p^)dQm,Jj7TTTzNgXh H$JCd vڷo_HD<} `0 `5 I߻vjbH$yfpp0 a0'9 tkȩW:z%%s\n", src_name, dst_name) img_dest = ocr.off_line_text_preprocessing.normalize_from_matrix(img, top_prop, base_prop,line_mat) img_dest = img_dest:invert_colors() ImageIO.write(img_dest, dst_name) collectgarbage("collect") april-ann-0.3.1/packages/ocr/off_line_text_preprocessing/test/test_smooth.lua000066400000000000000000000031441234204160600275570ustar00rootroot00000000000000local img = ImageIO.read(arg[1]) local points_file = arg[2] w, h = img:geometry() local smoothed = matrix.fromTabFilename(points_file) local bodyMat = matrix(w,2) --Fill until first point local first_col = smoothed:get(1,1) local first_up = smoothed:get(1,2) local first_low = smoothed:get(1,3) local last_col = smoothed:get(smoothed:dim(1),1) local last_up = smoothed:get(smoothed:dim(1),2) local last_low = smoothed:get(smoothed:dim(1),3) for c=1, first_col do bodyMat:set(c, 1, first_up) bodyMat:set(c, 2, first_low) end for c = last_col, smoothed:dim(1) do bodyMat:set(c, 1, last_up) bodyMat:set(c, 2, last_low) end for i=1,smoothed:dim(1) do local col = smoothed:get(i,1) local top = smoothed:get(i,2) local lower = smoothed:get(i,3) bodyMat:set(col,1,top) bodyMat:set(col,2,lower) end local finalMat = ocr.off_line_text_preprocessing.add_asc_desc(img:to_grayscale():invert_colors(), bodyMat) local img2 = img:clone() for i = 1, finalMat:dim(1) do local asc = math.max(0,math.round(finalMat:get(i,1))) local desc = math.min(h-2,math.round(finalMat:get(i,4))) local upper = math.max(0,finalMat:get(i,2)) local lower = math.min(h-2,finalMat:get(i,3)) print(i,asc, desc, w, h) img:putpixel(i,asc,1,0,0); img:putpixel(i,desc, 0,1,0); img:putpixel(i,upper,1,0,1); img:putpixel(i,lower, 0,0,1); end imgNorm = ocr.off_line_text_preprocessing.normalize_from_matrix(img2:to_grayscale():invert_colors(), 0.1,0.2,finalMat,40) finalMat:toTabFilename("prueba.mat") ImageIO.write(img, "prueba.png") ImageIO.write(imgNorm:invert_colors(), "prueba-norm.png") print (bodyMat) april-ann-0.3.1/packages/tied_model_manager/000077500000000000000000000000001234204160600207475ustar00rootroot00000000000000april-ann-0.3.1/packages/tied_model_manager/lua_src/000077500000000000000000000000001234204160600223775ustar00rootroot00000000000000april-ann-0.3.1/packages/tied_model_manager/lua_src/tied_model_manager.lua000066400000000000000000000053601234204160600267050ustar00rootroot00000000000000local tied_model_manager_methods, tied_model_manager_class_metatable=class("tied_model_manager") ---------------------------- -- Constructor ---------------------------- function tied_model_manager_class_metatable:__call(tiedlist_file) local obj = { tiedlist = {}, name2id = {}, id2name = {}, } class_instance(obj, self, true) local id = 1 for line in tiedlist_file:lines() do local tokens = string.tokenize(line) if tokens[2] then obj.name2id[tokens[1]] = obj.name2id[tokens[2]] else obj.name2id[tokens[1]] = id obj.id2name[id] = tokens[1] id = id + 1 end obj.tiedlist[tokens[1]] = tokens[2] or tokens[1] end return obj end function tied_model_manager_methods:get_model(phone) return self.tiedlist[phone] end -- Searchs a triphone. search_triphone("a","b","c") looks for -- "a-b+c", falling back to diphones and monophones if it's not -- found function tied_model_manager_methods:search_triphone(left, phone, right) local selected if left and right then -- both contexts -- If triphone matches, OK. Else down to diphones and so on. if self.tiedlist[left.."-"..phone.."+"..right] then selected=left.."-"..phone.."+"..right elseif self.tiedlist[left.."-"..phone] then selected=left.."-"..phone elseif self.tiedlist[phone.."+"..right] then selected=phone.."+"..right elseif self.tiedlist[phone] then selected=phone else error("can't find triphone for "..left.."-"..phone.."+"..right) end elseif (not left) and right then -- Right context only if self.tiedlist[phone.."+"..right] then selected=phone.."+"..right elseif self.tiedlist[phone.."+sil"] then selected=phone.."+sil" elseif self.tiedlist[phone] then selected=phone else error("can't find triphone for (nil)-"..phone.."+"..right) end elseif left and (not right) then -- Left context only if self.tiedlist[left.."-"..phone] then selected=left.."-"..phone elseif self.tiedlist["sil-"..phone] then selected="sil-"..phone elseif self.tiedlist[phone] then selected=phone else error("can't find triphone for "..left.."-"..phone.."+(nil)") end else -- Monophone if self.tiedlist[phone] then selected=phone else error("can't find triphone for (nil)-"..phone.."+(nil)") end end return self.tiedlist[selected] end function tied_model_manager_methods:search_triphone_sequence(sequence) local result = {} for i=1,#sequence do local left = nil local right = nil if i>1 then left = sequence[i-1] end if i<#sequence then right = sequence[i+1] end table.insert(result, self:search_triphone(left, sequence[i], right)) end return result end april-ann-0.3.1/packages/tied_model_manager/package.lua000066400000000000000000000011651234204160600230500ustar00rootroot00000000000000 package{ name = "tied_model_manager", version = "1.0", depends = { "util" }, keywords = { "tied_model_manager" }, description = "", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "build", depends = "init", use_timestamp = true, luac{ orig_dir = "lua_src", dest_dir = "build", }, }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/trainable/000077500000000000000000000000001234204160600171115ustar00rootroot00000000000000april-ann-0.3.1/packages/trainable/lua_src/000077500000000000000000000000001234204160600205415ustar00rootroot00000000000000april-ann-0.3.1/packages/trainable/lua_src/qlearning.lua000066400000000000000000000260301234204160600232250ustar00rootroot00000000000000local trainable_qlearning_trainer_methods, trainable_qlearning_trainer_class_metatable=class("trainable.qlearning_trainer") ----------------------------- -- QLEARNING TRAINER CLASS -- ----------------------------- function trainable_qlearning_trainer_class_metatable:__call(t) local params = get_table_fields( { sup_trainer = { isa_match=trainable.supervised_trainer, mandatory=true }, discount = { type_match="number", mandatory=true, default=0.6 }, lambda = { type_match="number", mandatory=true, default=0.6 }, gradients = { mandatory=false, default=matrix.dict() }, traces = { mandatory=false, default=matrix.dict() }, noise = { mandatory=false, default=ann.components.base() }, clampQ = { mandatory=false }, nactions = { mandatory=false, type_match="number" }, }, t) local tr = params.sup_trainer local thenet = tr:get_component() local weights = tr:get_weights_table() local optimizer = tr:get_optimizer() local obj = { tr = tr, thenet = thenet, weights = weights, optimizer = optimizer, gradients = params.gradients, traces = params.traces, discount = params.discount, lambda = params.lambda, noise = params.noise, nactions = params.nactions or thenet:get_output_size(), clampQ = params.clampQ, } assert(obj.nactions > 0, "nactions must be > 0") return class_instance(obj, self) end -- PRIVATE METHOD -- updates the weights given the previous state, the action, the current state -- and the observed reward local function trainable_qlearning_trainer_train(self, prev_state, prev_action, state, reward) local noise = self.noise local weights = self.weights local thenet = self.thenet local optimizer = self.optimizer local gradients = self.gradients local traces = self.traces local nactions = self.nactions local discount = self.discount local lambda = self.lambda local clampQ = self.clampQ -- add random noise if given noise:reset(1) local prev_state = noise:forward(prev_state, true) noise:reset(0) local state = noise:forward(state, true) local error_grad = matrix.col_major(1, nactions):zeros() local loss,Qsp,Qs loss,gradients,Qsp,Qs,expected_Qsa = optimizer:execute(function(it) assert(not it or it == 0) thenet:reset(it) local Qsp = thenet:forward(state):get_matrix() local Qs = thenet:forward(prev_state,true):get_matrix() local Qsa = Qs:get(1, prev_action) local delta = reward + discount * Qsp:max() - Qsa local diff = delta local loss = 0.5 * diff * diff error_grad:set(1, prev_action, -diff) thenet:backprop(error_grad) gradients:zeros() gradients = thenet:compute_gradients(gradients) if traces:size() == 0 then for name,g in pairs(gradients) do traces[name] = matrix.as(g):zeros() end end traces:scal(lambda*discount) traces:axpy(1.0, gradients) return loss,traces,Qsp,Qs,expected_Qsa end, weights) self.gradients = gradients return loss,Qsp,Qs,expected_Qsa end -- takes the previos action, the current state (ANN input) and the reward, -- updates the ANN weights and returns the current output Q(state,a); -- this method updates on-line, using eligibility traces function trainable_qlearning_trainer_methods:one_step(action, state, reward) local Qsp if self.prev_state then local loss,Qs,expected_Qsa loss,Qsp,Qs,expected_Qsa = trainable_qlearning_trainer_train(self, self.prev_state, action, state, reward) self.Qprob = (self.Qprob or 0) + math.log(Qs:get(1,action)) -- printf("%8.2f Q(s): %8.2f %8.2f %8.2f E(Q(s)): %8.2f ACTION: %d REWARD: %6.2f LOSS: %8.4f MP: %.4f %.4f\n", -- -self.Qprob, -- Qs:get(1,1), Qs:get(1,2), Qs:get(1,3), -- expected_Qsa, -- action, reward, loss, -- self.tr:norm2("w."), self.tr:norm2("b.")) else self.noise:reset(0) local state = self.noise:forward(state,true) Qsp = self.thenet:forward(state):get_matrix() end self.prev_state = state return Qsp end -- returns an object where you can add several (state, action, next_state, -- reward) batches, and at the end, build a pair of input/output datasets for -- supervised training function trainable_qlearning_trainer_methods:get_batch_builder() return trainable.qlearning_trainer.batch_builder(self) end -- begins a new sequence of training function trainable_qlearning_trainer_methods:reset() self.prev_state = nil self.traces:zeros() self.Qprob = 0 end function trainable_qlearning_trainer_methods:calculate(...) return self.tr:calculate(...) end function trainable_qlearning_trainer_methods:randomize_weights(...) return self.tr:randomize_weights(...) end function trainable_qlearning_trainer_methods:set_option(...) return self.tr:set_option(...) end function trainable_qlearning_trainer_methods:set_layerwise_option(...) return self.tr:set_layerwise_option(...) end function trainable_qlearning_trainer_methods:get_option(...) return self.tr:get_option(...) end function trainable_qlearning_trainer_methods:has_option(...) return self.tr:has_option(...) end function trainable.qlearning_trainer.load(filename) return util.deserialize(filename) end function trainable_qlearning_trainer_methods:save(filename,format) util.serialize(self, filename, format) end function trainable_qlearning_trainer_methods:to_lua_string(format) return string.format("trainable.qlearning_trainer{%s}", table.tostring({ sup_trainer = self.tr, noise = self.noise, discount = self.discount, lambda = self.lambda, traces = self.traces, gradients = self.gradients, clampQ = self.clampQ, }, format)) end ------------------------------------------------------------------------------ -- the batch object helps to implement NFQ algorithm: -- -- http://citeseerx.ist.psu.edu/viewdoc/download?doi=10.1.1.72.1193&rep=rep1&type=pdf -- -- Martin Riedmiller, Neural Fitted Q Iteration - First Experiences -- with a Data Efficient Neural Reinforcement Learning Method, ECML 2005 local trainable_batch_builder_methods, trainable_batch_builder_class_metatable=class("trainable.qlearning_trainer.batch_builder") function trainable_batch_builder_class_metatable:__call(qlearner) local obj = { qlearner = qlearner, batch={} } return class_instance(obj,self) end function trainable_batch_builder_methods:add(prev_state, output, action, reward) assert(isa(prev_state, matrix), "Needs a matrix as 1st argument") assert(isa(prev_state, matrix), "Needs a matrix as 2nd argument") assert(type(action) == "number", "Needs a number as 3rd argument") assert(type(reward) == "number", "Needs a matrix as 4th argument") table.insert(self.batch, { prev_state:clone("row_major"):rewrap(prev_state:size()), action, reward, output:clone("row_major"):rewrap(output:size()), }) if self.state_size then assert(self.state_size == prev_state:size(), "Found different state sizes") end self.state_size = prev_state:size() end function trainable_batch_builder_methods:compute_dataset_pair() assert(self.state_size and self.state_size>0, "Several number of adds is needed") local discount = self.qlearner.discount local inputs = matrix(#self.batch, self.state_size) local outputs = matrix(#self.batch, self.qlearner.nactions):zeros() local mask = outputs:clone() local mask_row local Qs local state local acc_reward = 0 for i=#self.batch,1,-1 do local prev_state,action,reward,output = table.unpack(self.batch[i]) -- acc_reward = reward + discount * acc_reward Qs = outputs:select(1,i,Qs):set(action,acc_reward) mask_row = mask:select(1,i,mask_row):set(action,1) -- state = inputs:select(1,i):copy(prev_state) end if self.qlearner.clampQ then outputs:map(self.qlearner.clampQ) end return dataset.matrix(inputs),dataset.matrix(outputs),dataset.matrix(mask) end function trainable_batch_builder_methods:size() return #self.batch end ------------------------------------------------------------------------------- trainable.qlearning_trainer.strategies = {} trainable.qlearning_trainer.strategies.make_epsilon_greedy = function(actions, epsilon, rnd) assert(type(actions) == "table", "Needs an actions table as 1st argument") assert(#actions > 1, "#actions must be > 1") local epsilon = epsilon or 0.1 local rnd = rnd or random() local ambiguous_rel_diff = 0.1 return function(output) local coin = rnd:rand() local max,action = output:max() local min = output:min() local diff = max - min local rel_diff = diff / max if coin < epsilon or rel_diff < ambiguous_rel_diff then action = rnd:choose(actions) end return action end end trainable.qlearning_trainer.strategies.make_epsilon_decresing = function(actions, epsilon, decay, rnd) assert(type(actions) == "table", "Needs an actions table as 1st argument") local epsilon = epsilon or 0.1 local decay = decay or 0.9 local rnd = rnd or random() return function(output) local coin = rnd:rand() local max,action = output:max() local min = output:min() local diff = max - min local rel_diff = diff / (max + min) if coin < epsilon or rel_diff < 0.01 then action = rnd:choose(actions) end epsilon = epsilon * decay return action end end trainable.qlearning_trainer.strategies.make_softmax = function(actions,rnd) assert(type(actions) == "table", "Needs an actions table as 1st argument") local rnd = rnd or random() return function(output) assert(math.abs(1-output:sum()) < 1e-03, "Softmax strategy needs normalized outputs") local dice = random.dice(output:toTable()) local action = dice:thrown(rnd) return action end end april-ann-0.3.1/packages/trainable/lua_src/supervised.lua000066400000000000000000001560271234204160600234500ustar00rootroot00000000000000------------------------------- -- LOCAL AUXILIARY FUNCTIONS -- ------------------------------- local math = math local table = table local string = string -- local ipairs = ipairs local pairs = pairs local assert = assert -- local type = type local isa = isa local iterator = iterator local get_table_fields = get_table_fields local april_assert = april_assert ----------------------------------------- local wrap_matrices = matrix.dict.wrap_matrices ------------------------------ -- SUPERVISED_TRAINER CLASS -- ------------------------------ april_set_doc("trainable.supervised_trainer", { class = "class", summary = "Supervised machine learning trainer", description ={ "This class implements methods useful to", "train, evalute and modify contents of", "ANN components or similar supervised learning", "models.", "IMPORTANT: Any method of this class could be overwritten", "on object instances, and the overwritten methods will be", "copied by clone method. Example:", "t = trainable.supervised_trainer(ann.components.base())", "t.train_step=function() print(\"Hola\") end", }, }) local trainable_supervised_trainer_methods, trainable_supervised_trainer_class_metatable=class("trainable.supervised_trainer") ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.__call", { class = "method", summary = "Constructor", description ={"Constructor of the supervised_trainer class.", "This class implements methods useful to", "train, evalute and modify contents of", "ANN components or similar supervised learning", "models.", "If the component is in build state, the", "constructed trainer is in build state also.", }, params = { "ANN component or similar supervised learning model", "Loss function [optional]", "Bunch size (mini batch) [optional]", "An optimizer [option], by default is ann.optimizer.sgd", { "A gradient smoothing boolean flag [optional], by default", "it is true.", "This parameter scales the gradients depending in the", "bunch_size and in the number of times the weight was used", }, }, outputs = { "Instantiated object" }, }) function trainable_supervised_trainer_class_metatable:__call(...) if select('#',...) == 1 and type(select(1,...)) == "table" then -- Loading from a previously saved object, the first argument is a table local t = select(1,...) local model = t.model local connections = t.connections local loss = t.loss local bunch_size = t.bunch_size local optimizer = t.optimizer local smooth_gradients = t.smooth_gradients or true local obj = trainable.supervised_trainer(model, loss, bunch_size, optimizer, smooth_gradients) local weight = connections if not isa(connections, matrix.dict) then weights = matrix.dict() for name,wdata in pairs(connections) do local m = wdata if not isa(m, matrix) then m = wdata.w:rewrap(wdata.output,wdata.input) end if m:get_major_order() == "col_major" then weights:insert(name,m) else weights:insert(name,m:clone("col_major")) end end end obj:build{ weights = weights } return obj else -- Constructor of a new object local ann_component,loss_function,bunch_size,optimizer,smooth_gradients = ... local optimizer = optimizer or ann.optimizer.sgd() local smooth_gradients = smooth_gradients or true if loss_function and not isa(loss_function, ann.loss) then error("The second parameter must be an instance of ann.loss") end if optimizer and not isa(optimizer, ann.optimizer) then error("The fourth parameter must be an instance of ann.optimizer") end if bunch_size and not tonumber(bunch_size) then error("The third parameter must be a number") end local obj = { ann_component = assert(ann_component,"Needs an ANN component object"), loss_function = loss_function or false, optimizer = optimizer, smooth_gradients = smooth_gradients, weights_table = matrix.dict(), components_table = {}, component2weights_dict = {}, weights2component_dict = {}, weights_order = {}, components_order = {}, bunch_size = bunch_size or false, weight_grads = matrix.dict(), } obj = class_instance(obj, self, true) return obj end end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.get_component", { class = "method", summary = "Returns an instance of ann.components", outputs = { "An instance of ann.components" }, }) function trainable_supervised_trainer_methods:get_component() return self.ann_component end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.set_loss_function", { class = "method", summary = "Modifies the loss function property", params = { "Loss function" }, }) function trainable_supervised_trainer_methods:set_loss_function(loss_function) assert(isa(loss_function, ann.loss), "Needs an instance of ann.loss") self.loss_function = loss_function end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.get_loss_function", { class = "method", summary = "Modifies the loss function property", params = { "Loss function" }, }) function trainable_supervised_trainer_methods:get_loss_function() return self.loss_function end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.set_optimizer", { class = "method", summary = "Modifies the optimizer property", params = { "An instance of ann.optimizer" }, }) function trainable_supervised_trainer_methods:set_optimizer(optimizer) assert(isa(optimizer, ann.optimizer), "Needs an instance of ann.optimizer") self.optimizer = optimizer end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.get_optimizer", { class = "method", summary = "Returns the optimizer property", outputs = { "An instance of ann.optimizer" }, }) function trainable_supervised_trainer_methods:get_optimizer() return self.optimizer end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.set_option", { class = "method", summary = "Sets a global option of the optimizer", params = { "An string with the option name", "A number with the value", }, }) function trainable_supervised_trainer_methods:set_option(name,value) local opt = assert(self.optimizer, "The optimizer has not been defined") opt:set_option(name,value) end april_set_doc("trainable.supervised_trainer.get_option", { class = "method", summary = "Gets a global option of the optimizer", params = { "An string with the option name", }, outputs = { "A number with the option value", } }) function trainable_supervised_trainer_methods:get_option(name) local opt = assert(self.optimizer, "The optimizer has not been defined") return opt:get_option(name) end april_set_doc("trainable.supervised_trainer.has_option", { class = "method", summary = "Returns true/false depending on the existence of a global option of the optimizer", params = { "An string with the option name", }, outputs = { "A boolean", } }) function trainable_supervised_trainer_methods:has_option(name) local opt = assert(self.optimizer, "The optimizer has not been defined") return opt:has_option(name) end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.set_layerwise_option", { class = "method", summary = "Sets an specific weights layer option of the optimizer", description = { "Sets the value of an optimizer option specifying the", "layer name by a Lua regular expression, so the option is set", "for all weight layers which match the given name", }, params = { "An string with the Lua regular expression", "An string with the option name", "A number with the value", }, }) function trainable_supervised_trainer_methods:set_layerwise_option(layer_match, name, value) local N=0 local opt = assert(self.optimizer, "The optimizer has not been defined") for cnn_name,cnn in self:iterate_weights(layer_match) do opt:set_layerwise_option(cnn_name,name,value) N=N+1 end april_assert(N>0, "0 layers match the given layer_match= %s", layer_match) end april_set_doc("trainable.supervised_trainer.get_option_of", { class = "method", summary = "Returns the optimizer option value for a given layer name", description = { "If the layer has a layer-wise option, it will be returned,", "otherwise the global option value will be returned", }, params = { "An string with the Lua regular expression", "An string with the option name", }, outputs = { "A number with the value", }, }) function trainable_supervised_trainer_methods:get_option_of(layer_name,name) local opt = assert(self.optimizer, "The optimizer has not been defined") return opt:get_option_of(layer_name,name) end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.get_input_size", { class = "method", summary = "Gets the input size of its component", outputs = { "The input size (a number)" }, }) function trainable_supervised_trainer_methods:get_input_size() return self.ann_component:get_input_size() end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.get_output_size", { class = "method", summary = "Gets the output size of its component", outputs = { "The output size (a number)" }, }) function trainable_supervised_trainer_methods:get_output_size() return self.ann_component:get_output_size() end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.size", { class = "method", summary = "Returns the model size (number of weights)", outputs = { "A number" }, }) function trainable_supervised_trainer_methods:size() if #self.components_order == 0 then error("It is not build") end return self.weights_table:size() end ------------------------------------------------------------------------ function trainable_supervised_trainer_methods:to_lua_string(format) assert(#self.components_order > 0, "The component is not built") local t = { } table.insert(t, "trainable.supervised_trainer{ ") table.insert(t, "model=") table.insert(t, self.ann_component:to_lua_string(format)) table.insert(t, ",\n") table.insert(t, "connections={") for _,wname in ipairs(self.weights_order) do local cobj = self.weights_table(wname) local w = cobj table.insert(t, string.format("\n[%q] = ", wname)) table.insert(t, w:to_lua_string(format)) table.insert(t, ",") end table.insert(t, "\n},\n") if self.loss_function then table.insert(t, "loss=") table.insert(t, self.loss_function:to_lua_string(format)) table.insert(t, ",\n") end if self.optimizer then table.insert(t, "optimizer=") table.insert(t, self.optimizer:to_lua_string(format)) table.insert(t, ",\n") end if self.bunch_size then table.insert(t, "bunch_size=") table.insert(t, self.bunch_size) table.insert(t, ",\n") end if self.smooth_gradients ~= nil then table.insert(t, "smooth_gradients=") table.insert(t, tostring(self.smooth_gradients)) table.insert(t, ",\n") end table.insert(t, "}") return table.concat(t, "") end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.save", { class = "method", summary = "Save the model at a disk file", description = { "Save the model and connection weights at", "a disk file.", "Only works after build method is called.", }, params = { "A filename string", { "A string indicating the matrix format: ascii or binary", "[optional]. By default is binary." }, }, }) function trainable_supervised_trainer_methods:save(filename, format) assert(#self.components_order > 0, "The component is not built") local f = io.open(filename,"w") or error("Unable to open " .. filename) f:write("return ") f:write(self:to_lua_string(format)) f:write("\n") f:close() end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.load", { class = "function", summary = "Load the model and weights from a disk file", description = { "Load the model and connection weights stored at", "a disk file. The trainer is loaded at build state.", }, params = { "A filename string", "Loss function [optional]", "Bunch size (mini batch) [optional]", "An optimizer, instance of ann.optimizer [optional]", }, }) function trainable.supervised_trainer.load(filename, loss, bunch_size, optimizer) local f = loadfile(filename) or error("Unable to open " .. filename) local obj = f() or error("Impossible to load chunk from file " .. filename) if type(obj) == "table" then -- OLD FORMAT LOADER obj = trainable.supervised_trainer(obj) end obj.bunch_size = bunch_size or obj.bunch_size obj.loss_function = loss or obj.loss_function obj.optimizer = optimizer or obj.optimizer return obj end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.count_components", { class = "method", summary = "Count the number of components", params = { { "A match string: filter and count only components", "which match [optional], by default is '.*'" }, }, }) function trainable_supervised_trainer_methods:count_components(match_string) local match_string = match_string or ".*" if #self.components_order == 0 then error("It is not build") end local count = 0 for i=1,#self.components_order do if self.components_order[i]:match(match_string) then count=count+1 end end return count end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.count_weights", { class = "method", summary = "Count the number of connection weight objects", params = { { "A match string: filter and count only connections", "which match [optional], by default is '.*'" }, }, }) function trainable_supervised_trainer_methods:count_weights(match_string) local match_string = match_string or ".*" if #self.components_order == 0 then error("It is not build") end local count = 0 for i=1,#self.weights_order do if self.weights_order[i]:match(match_string) then count=count+1 end end return count end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.iterate_components", { class = "method", summary = "Iterates over components", description = { "This method is an iterator function to be used at for", "loops: for name,component in trainer:iterate_components()", "do print(name,component) end", }, params = { { "A match string: filter and iterates only on components", "which match [optional], by default is '.*'" }, }, }) function trainable_supervised_trainer_methods:iterate_components(match_string) local match_string = match_string or ".*" if #self.components_order == 0 then error("It is not build") end local pos = 0 return function() repeat pos = pos + 1 if pos > #self.components_order then return nil end until self.components_order[pos]:match(match_string) local name = self.components_order[pos] return name,self.components_table[name] end end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.iterate_weights", { class = "method", summary = "Iterates over weight connection objects", description = { "This method is an iterator function to be used at for", "loops: for name,connections in trainer:iterate_weights()", "do print(name,component) end", }, params = { { "A match string: filter and count only connections", "which match [optional], by default is '.*'" }, }, }) function trainable_supervised_trainer_methods:iterate_weights(match_string) local match_string = match_string or ".*" if #self.components_order == 0 then error("It is not build") end local pos = 0 return function() repeat pos = pos + 1 if pos > #self.weights_order then return nil end until self.weights_order[pos]:match(match_string) local name = self.weights_order[pos] return name,self.weights_table(name) end end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.component", { class = "method", summary = "Returns a component given its name", description = { "This method returns a component object", "which name is the given argument.", "This method is forbidden before build method is called.", "If an error is produced, it returns nil." }, params = { "A string with the component name" }, outputs = { "A component object" } }) function trainable_supervised_trainer_methods:component(str) if #self.components_order == 0 then error("Needs execution of build method") end return self.components_table[str] end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.weights", { class = "method", summary = "Returns a connections object given its name", description = { "This method returns a connections object", "which name is the given argument.", "This method is forbidden before build method is called.", "If an error is produced, returns nil." }, params = { "A string with the connections name" }, outputs = { "An ann.connections object" } }) function trainable_supervised_trainer_methods:weights(str) if #self.components_order == 0 then error("Needs execution of build method") end return self.weights_table(str) end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.get_weights_table", { class = "method", summary = "Returns the table with all weights", outputs = { "A table with all the weights, indexed by names" } }) function trainable_supervised_trainer_methods:get_weights_table() if #self.components_order == 0 then error("Needs execution of build method") end return self.weights_table end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.randomize_weights", { class = "method", summary = "Initializes randomly model weights and biases", description = { "This method initialies the weights, following an uniform", "distribution, in the range [c*inf,c*sup].", "Constant c depends on fan-in and/or fan-out fields.", "If fan-in and fan-out are false, then c=1.", "If fan-in=true and fan-out=false, then c=1/sqrt(fanin).", "If fan-in=false and fan-out=true, then c=1/sqrt(fanout).", "If fan-in and fan-out are true, then c=1/sqrt(fanin + fanout).", }, params = { ["name_match"] = { "A match string [optional], if given, only the connection", "weights which match will be randomized", }, ["random"] = "A random object", ["inf"] = "Range inf value", ["sup"] = "Range sup value", ["use_fanin"] = "An [optional] boolean, by default false", ["use_fanout"] = "An [optional] boolean, by default false", }, }) function trainable_supervised_trainer_methods:randomize_weights(t) local params = get_table_fields( { name_match = { type_match="string", mandatory=false, default = nil }, random = { isa_match = random, mandatory = true }, inf = { type_match="number", mandatory = true }, sup = { type_match="number", mandatory = true }, use_fanin = { type_match="boolean", mandatory = false, default = false }, use_fanout = { type_match="boolean", mandatory = false, default = false }, }, t) assert(#self.components_order > 0, "Execute build method before randomize_weights") for i,wname in ipairs(self.weights_order) do if not params.name_match or wname:match(params.name_match) then local current_inf = params.inf local current_sup = params.sup local constant = 0 local connection = self.weights_table(wname) if params.use_fanin then constant = constant + ann.connections.get_input_size(connection) end if params.use_fanout then constant = constant + ann.connections.get_output_size(connection) end if constant > 0 then current_inf = current_inf / math.sqrt(constant) current_sup = current_sup / math.sqrt(constant) end ann.connections.randomize_weights(connection, { random = params.random, inf = current_inf, sup = current_sup }) end end end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.build", { class = "method", summary = "Executes build method of the component", description = { "This method executes the build method of its", "ann_component property, and weights_order, weights_table,", "components_order and components_table properties are", "also built. The method returns two tables with the", "content of weights_table and components_table, in order", "to provide easy acces to components and connections.", }, params = { ["weights"] = "A dictionary weights_name => ann.connections object [optional]", ["input"] = "The input size of the component [optional]", ["output"] = "The output size of the component [optional]", }, outputs = { "The caller object", "Weights table, associates weights_name => ann.connections object", "Components table, associates component_name => ann.components object", } }) function trainable_supervised_trainer_methods:build(t) local params = get_table_fields( { weights = { mandatory = false, default=nil }, input = { type_match="number", mandatory = false, default=nil }, output = { type_match="number", mandatory = false, default=nil }, }, t or {}) self.weight_grads = matrix.dict() self.weights_table = wrap_matrices(params.weights or matrix.dict()) -- BUILD CALL _, self.weights_table, self.components_table = self.ann_component:build{ input = params.input, output = params.output, weights = self.weights_table, } -- self.weights_order = self.weights_table:keys() table.sort(self.weights_order) self.components_order = {} self.component2weights_dict = {} self.weights2component_dict = {} for name,c in pairs(self.components_table) do table.insert(self.components_order, name) if c:has_weights_name() then local wname = c:get_weights_name() self.component2weights_dict[name] = c:get_weights_name() self.weights2component_dict[wname] = self.weights2component_dict[wname] or {} table.insert(self.weights2component_dict[wname], c) end end table.sort(self.components_order) return self,self.weights_table,self.components_table end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.get_weights_of", { class = "method", summary = "Returns a the object connections related to given component name", params = { "A string with the component name" }, outputs = { "An instance of ann.connections" }, }) function trainable_supervised_trainer_methods:get_weights_of(name) return self.weights_table(self.component2weights_dict[name]) end april_set_doc("trainable.supervised_trainer.get_components_of", { class = "method", summary = "Returns a table with the components related to given weights name", params = { "A string with the weights name" }, outputs = { "A table of ann.components instances" }, }) function trainable_supervised_trainer_methods:get_components_of(wname) return self.weights2component_dict[wname] or {} end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.train_step", { class = "method", summary = "Executes one training step", description = { "This method executes one training step of its component", "with the given pair input/target output.", "It returns the loss for the given pair of patterns and", "the gradient computed at component inputs.", }, params = { "A table with one input pattern or a token (with one or more patterns)", "The corresponding target output pattern (table or token)", "The loss function [optional]", "An optimizer [optional]", "The bunch size [optional]", "A smooth gradients boolean [optional]", "A mask [optional]", }, outputs = { "The mean of loss function at current batch", "A matrix with the loss of every given pattern", } }) function trainable_supervised_trainer_methods:train_step(input, target, loss, optimizer, bunch_size, smooth_gradients, mask) if type(input) == "table" then input = matrix.col_major(input) end if type(target) == "table" then target = matrix.col_major(target) end if type(mask) == "table" then mask = matrix.col_major(mask) end local loss = loss or self.loss_function or error("Needs a loss object") local optimizer = optimizer or self.optimizer or error("Needs an optimizer object") local bunch_size = bunch_size or self.bunch_size or 1 local smooth_gradients = smooth_gradients or self.smooth_gradients if mask then if not isa(mask,matrix) then mask = mask:get_matrix() end if not isa(target,matrix) then target = target:get_matrix() end target = target:clone():cmul(mask) end local tr_loss, _, tr_loss_matrix = optimizer:execute(function(it) local self = self local loss = loss local model = self.ann_component local grads = self.weight_grads local target = target local mask = mask model:reset(it) local output = model:forward(input, true) if mask then if not isa(output,matrix) then output = output:get_matrix() end if not isa(target,matrix) then target = target:get_matrix() end output = output:clone():cmul(mask) end local tr_loss,tr_loss_matrix tr_loss,tr_loss_matrix = loss:compute_loss(output, target) if not tr_loss_matrix then return nil end local gradient=model:backprop(loss:gradient(output,target)) -- grads:zeros() -- local grads = model:compute_gradients(grads) self.weight_grads = grads -- gradient smoothing if smooth_gradients then for name,mat in pairs(grads) do local N = mat:get_shared_count() N = ( N>0 and N) or 1 mat:scal( 1.0/math.sqrt(N * bunch_size) ) end end -- the loss, the gradients, and the loss matrix return tr_loss, grads, tr_loss_matrix end, self.weights_table) if tr_loss_matrix then loss:accum_loss(tr_loss_matrix) end return tr_loss,tr_loss_matrix end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.validate_step", { class = "method", summary = "Executes one validate step", description = { "This method performs one forward step and computes", "the loss for the given pair input/target output.", }, params = { "A table with one input pattern or a token (with one or more patterns)", "The corresponding target output pattern (table or token)", "The loss function [optional]", }, outputs = { "The mean of loss function at given batch", "A matrix with the loss of every pattern", } }) function trainable_supervised_trainer_methods:validate_step(input, target, loss, mask) if type(input) == "table" then input = matrix.col_major(input) end if type(target) == "table" then target = matrix.col_major(target) end if type(mask) == "table" then mask = matrix.col_major(mask) end local model = self.ann_component local loss = loss or self.loss_function model:reset() local output = model:forward(input) if mask then if not isa(mask,matrix) then mask = mask:get_matrix() end if not isa(output,matrix) then output = output:get_matrix() end if not isa(target,matrix) then target = target:get_matrix() end output = output:clone():cmul(mask) target = target:clone():cmul(mask) end local tr_loss,tr_loss_matrix = loss:compute_loss(output, target) if tr_loss_matrix then loss:accum_loss(tr_loss_matrix) return tr_loss,tr_loss_matrix end end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.compute_gradients_step", { class = "method", summary = "Executes one gradients computation step", params = { "A table with one input pattern or a token (with one or more patterns)", "The corresponding target output pattern (table or token)", "The loss function [optional].", "A table with matrices where to store the gradients [optional]", }, outputs = { "A table with the gradient matrices.", "The mean of loss function at given batch", "A matrix with the loss of each pattern.", } }) function trainable_supervised_trainer_methods:compute_gradients_step(input, target, loss, weight_grads) if type(input) == "table" then input = matrix.col_major(input) end if type(target) == "table" then target = matrix.col_major(target) end local loss = loss or self.loss_function local weight_grads = weight_grads or matrix.dict() local tr_loss,tr_loss_matrix,gradient self.ann_component:reset() local output = self.ann_component:forward(input, true) tr_loss,tr_loss_matrix = loss:compute_loss(output, target) if tr_loss_matrix then loss:accum_loss(tr_loss_matrix) gradient = loss:gradient(output, target) gradient = self.ann_component:backprop(gradient) -- iterator(pairs(weight_grads)): apply(function(name,mat)mat:zeros()end) -- weight_grads = self.ann_component:compute_gradients(weight_grads) return weight_grads,tr_loss,tr_loss_matrix end end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.grad_check_step", { class = "method", summary = "Executes one gradients check step", params = { "A table with one input pattern or a token (with one or more patterns)", "The corresponding target output pattern (table or token)", "A boolean, true if you want high verbosity level [optional]", "The loss function [optional].", }, outputs = { "A boolean, true or false if the gradient is correct or not", } }) function trainable_supervised_trainer_methods:grad_check_step(input, target, verbose, loss) if type(input) == "table" then input = matrix.col_major(input) end if type(target) == "table" then target = matrix.col_major(target) end local loss = loss or self.loss_function self.ann_component:reset() loss:reset() local output = self.ann_component:forward(input, true) local tr_loss,tr_loss_matrix = loss:compute_loss(output, target) if not tr_loss_matrix then return true end local gradient = loss:gradient(output, target) gradient=self.ann_component:backprop(gradient) self.weight_grads = self.ann_component:compute_gradients(self.weight_grads) local epsilond = 0.3 local epsilon = 1e-03 local ret = true local bunch_size = tr_loss_matrix:dim(1) local it = 1 for wname,cnn in self:iterate_weights() do local w = cnn -- The shared parameter has no effect in gradients check, only bunch_size local ratio = 1/bunch_size local ann_grads = self.weight_grads(wname) for i=1,w:size() do local orig_w = w:raw_get(i-1) w:raw_set(i-1, orig_w - epsilon) self.ann_component:reset(it) it=it+1 local loss_a = loss:compute_loss(self.ann_component:forward(input,true), target) w:raw_set(i-1, orig_w + epsilon) self.ann_component:reset(it) it=it+1 local loss_b = loss:compute_loss(self.ann_component:forward(input,true), target) w:raw_set(i-1, orig_w) local g = (loss_b - loss_a) / (2*epsilon) local ann_g = ann_grads:raw_get(i-1)*ratio if verbose then fprintf(io.stderr, "CHECK GRADIENT %s[%d], found %g, expected %g\n", wname, i-1, ann_g, g) end if ann_g ~= 0 or g ~= 0 then local abs_err = math.abs(ann_g - g) local err = abs_err/math.abs(ann_g+g) if err > epsilond and abs_err > 1e-02 then fprintf(io.stderr, "INCORRECT GRADIENT FOR %s[%d], found %g, expected %g ".. "(error %g, abs error %g)\n", wname, i-1, ann_g, g, err, abs_err) ret = false end end end end return ret end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.calculate", { class = "method", summary = "Executes one forward", description = { "This method performs one forward step and returns", "the computed output for the given input.", }, params = { "A table with one input pattern, a col-major matrix or a token (with one or more patterns)", }, outputs = { "A col-major matrix with the computed output", } }) function trainable_supervised_trainer_methods:calculate(input) if type(input) == "table" then input = matrix.col_major(input) end self.ann_component:reset() return self.ann_component:forward(input):get_matrix() end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.train_dataset", { class = "method", summary = "Executes one training epoch with a given dataset", description = { "This method performs one training epoch with a given", "dataset traversing patterns in order, and returns the", "mean loss of each training step.", "Each training step is performed with bunch_size patterns.", }, params = { ["input_dataset"] = "A dataset float or dataset token", ["output_dataset"] = "A dataset float or dataset token (target output)", ["mask_dataset"] = "A dataset float or dataset token (mask target output)", ["loss"] = "A loss function. It is [optional] if loss given at constructor", ["optimizer"] = "An optimizer. It is [optional] if optimizer is given at constructor", ["bunch_size"] = { "Bunch size (mini-batch). It is [optional] if bunch_size", "was set at constructor, otherwise it is mandatory.", }, }, outputs = { "A number with the mean loss of each training step", "A number with the sample variance of the loss", } }) april_set_doc("trainable.supervised_trainer.train_dataset", { class = "method", summary = "Executes one training epoch with shuffle", description = { "This method performs one training epoch with a given", "dataset traversing patterns in shuffle order, and returns the", "mean loss of each training step.", "Each training step is performed with bunch_size patterns.", }, params = { ["input_dataset"] = "A dataset float or dataset token", ["output_dataset"] = "A dataset float or dataset token (target output)", ["mask_dataset"] = "A dataset float or dataset token (mask target output)", ["shuffle"] = "A random object used to shuffle patterns before training", ["loss"] = "A loss function. It is [optional] if loss given at constructor", ["optimizer"] = "An optimizer. It is [optional] if optimizer is given at constructor", ["bunch_size"] = { "Bunch size (mini-batch). It is [optional] if bunch_size", "was set at constructor, otherwise it is mandatory.", }, }, outputs = { "A number with the mean loss of each training step", "A number with the sample variance of the loss", } }) april_set_doc("trainable.supervised_trainer.train_dataset", { class = "method", summary = "Executes one stochastic training epoch with replacement", description = { "This method performs one stochastic training epoch with a given", "dataset. Patterns are choosed randomly with replacement", "until a given replacement size. The", "mean loss of each training step is returned.", "Each training step is performed with bunch_size patterns.", }, params = { ["input_dataset"] = "A dataset float or dataset token", ["output_dataset"] = "A dataset float or dataset token (target output)", ["mask_dataset"] = "A dataset float or dataset token (mask target output)", ["shuffle"] = "A random object used to shuffle patterns before training", ["replacement"] = "A number with the size of replacement training", ["loss"] = "A loss function. It is [optional] if loss given at constructor", ["optimizer"] = "An optimizer. It is [optional] if optimizer is given at constructor", ["bunch_size"] = { "Bunch size (mini-batch). It is [optional] if bunch_size", "was set at constructor, otherwise it is mandatory.", }, }, outputs = { "A number with the mean loss of each training step", "A number with the sample variance of the loss", } }) april_set_doc("trainable.supervised_trainer.train_dataset", { class = "method", summary = "Executes one stochastic training epoch with distribution", description = { "This method performs one stochastic training epoch with a given", "set of datasets with different a-priory probabilities.", "Patterns are choosed randomly with replacement following", "given a-priori distribution, until a given replacement", "size. The mean loss of each training step is returned.", "Each training step is performed with bunch_size patterns.", }, params = { ["distibution"] = "An array of tables with input_dataset,".. " output_dataset and probability fields", ["shuffle"] = "A random object used to shuffle patterns before training", ["replacement"] = "A number with the size of replacement training", ["loss"] = "A loss function. It is [optional] if loss given at constructor", ["optimizer"] = "An optimizer. It is [optional] if optimizer is given at constructor", ["bunch_size"] = { "Bunch size (mini-batch). It is [optional] if bunch_size", "was set at constructor, otherwise it is mandatory.", }, ["smooth_gradients"] = "A smooth gradients boolean [optional]", }, outputs = { "A number with the mean loss of each training step", "A number with the sample variance of the loss", } }) function trainable_supervised_trainer_methods:train_dataset(t) local params = get_table_fields( { -- This following commented parameters will be checked by -- trainable.dataset_pair_iterator: -- -- shuffle = { isa_match = random, mandatory = false, default=nil }, -- replacement = { type_match = "number", mandatory = false, default=nil }, -- input_dataset = { mandatory = false, default=nil }, -- output_dataset = { mandatory = false, default=nil }, -- distribution = { type_match="table", mandatory = false, default=nil, -- getter = get_table_fields_ipairs{ -- input_dataset = { mandatory=true }, -- output_dataset = { mandatory=true }, -- probability = { type_match="number", -- mandatory=true }, -- }, -- }, bunch_size = { type_match = "number", mandatory = (self.bunch_size == false) }, loss = { isa_match = ann.loss, mandatory = (self.loss_function==false), default=self.loss_function }, optimizer = { isa_match = ann.optimizer, mandatory = (not self.optimizer), default=self.optimizer }, smooth_gradients = { type_match = "boolean", mandatory = false, default=self.smooth_gradients }, }, t, true) assert(#self.components_order > 0, "Execute build method before call this method") local loss = params.loss local optimizer = params.optimizer local smooth_gradients = params.smooth_gradients local mask_dataset = params.mask_dataset params.loss = nil params.optimizer = nil params.smooth_gradients = nil params.mask_dataset = nil params.bunch_size = params.bunch_size or self.bunch_size -- set to ZERO the accumulated of loss loss:reset() if not mask_dataset then params.assert_input_size = self:get_input_size() params.assert_output_size = self:get_output_size() for input_bunch,output_bunch,bunch_indexes in trainable.dataset_pair_iterator(params) do self:train_step(input_bunch, output_bunch, loss, optimizer, #bunch_indexes, smooth_gradients) end else params.datasets = { params.input_dataset, params.output_dataset, mask_dataset } params.input_dataset = nil params.output_dataset = nil params.assert_pattern_sizes = { self:get_input_size(), self:get_output_size(), self:get_output_size() } for input_bunch,output_bunch,mask_bunch,bunch_indexes in trainable.dataset_multiple_iterator(params) do self:train_step(input_bunch, output_bunch, loss, optimizer, #bunch_indexes, smooth_gradients, mask_bunch) end end return loss:get_accum_loss() end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.grad_check_dataset", { class = "method", summary = "Executes gradient check with a given dataset", params = { ["input_dataset"] = "A dataset float or dataset token", ["output_dataset"] = "A dataset float or dataset token (target output)", ["loss"] = "A loss function. It is [optional] if loss given at constructor", ["bunch_size"] = { "Bunch size (mini-batch). It is [optional] if bunch_size", "was set at constructor, otherwise it is mandatory.", }, ["max_iterations"] = "Number [optional]", ["verbose"] = "A boolean, true if you want high verbosity [optiona]", }, outputs = { "A boolean", } }) function trainable_supervised_trainer_methods:grad_check_dataset(t) local params = get_table_fields( { -- This following commented parameters will be checked by -- trainable.dataset_pair_iterator: -- -- input_dataset = { mandatory = false, default=nil }, -- output_dataset = { mandatory = false, default=nil }, bunch_size = { type_match = "number", mandatory = (self.bunch_size == false) }, loss = { isa_match = ann.loss, mandatory = (self.loss_function==false), default=self.loss_function }, verbose = { type_match = "boolean", mandatory = false, default=false }, }, t, true) assert(#self.components_order > 0, "Execute build method before call this method") local loss = params.loss local verbose = params.verbose params.loss = nil params.verbose = nil params.bunch_size = params.bunch_size or self.bunch_size params.assert_input_size = self:get_input_size() params.assert_output_size = self:get_output_size() -- set to ZERO the accumulated of loss loss:reset() local ret = true for input,output,bunch_indexes in trainable.dataset_pair_iterator(params) do if not self:grad_check_step(input, output, verbose, loss) then printf("Error processing pattern bunch: %s\n", table.concat(bunch_indexes, " ")) ret = false break end end return ret end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.validate_dataset", { class = "method", summary = "Executes one validation epoch with a given dataset", description = { "This method performs one validation epoch with a given", "dataset traversing patterns in order, and returns the", "mean loss of each validate step.", "Each validate step is performed with bunch_size patterns.", }, params = { ["input_dataset"] = "A dataset float or dataset token", ["output_dataset"] = "A dataset float or dataset token (target output)", ["mask_dataset"] = "A dataset float or dataset token (mask target output)", ["loss"] = "A loss function. It is [optional] if loss given at constructor", ["bunch_size"] = { "Bunch size (mini-batch). It is [optional] if bunch_size", "was set at constructor, otherwise it is mandatory.", }, }, outputs = { "A number with the mean loss of each validate step", "A number with the sample variance of the loss", } }) april_set_doc("trainable.supervised_trainer.validate_dataset", { class = "method", summary = "Executes one validation epoch with shuffle", description = { "This method performs one validation epoch with a given", "dataset traversing patterns in shuffle order, and returns the", "mean loss of each validate step.", "Each validate step is performed with bunch_size patterns.", }, params = { ["input_dataset"] = "A dataset float or dataset token", ["output_dataset"] = "A dataset float or dataset token (target output)", ["mask_dataset"] = "A dataset float or dataset token (mask target output)", ["shuffle"] = "A random object used to shuffle patterns before validate", ["loss"] = "A loss function. It is [optional] if loss given at constructor", ["bunch_size"] = { "Bunch size (mini-batch). It is [optional] if bunch_size", "was set at constructor, otherwise it is mandatory.", }, }, outputs = { "A number with the mean loss of each validate step", "A number with the sample variance of the loss", } }) april_set_doc("trainable.supervised_trainer.validate_dataset", { class = "method", summary = "Executes one stochastic validation epoch with replacement", description = { "This method performs one stochastic validation epoch with a given", "dataset. Patterns are choosed randomly with replacement", "until a given replacement size. The", "mean loss of each validate step is returned.", "Each validate step is performed with bunch_size patterns.", }, params = { ["input_dataset"] = "A dataset float or dataset token", ["output_dataset"] = "A dataset float or dataset token (target output)", ["mask_dataset"] = "A dataset float or dataset token (mask target output)", ["shuffle"] = "A random object used to shuffle patterns before validate", ["replacement"] = "A number with the size of replacement validate", ["loss"] = "A loss function. It is [optional] if loss given at constructor", ["bunch_size"] = { "Bunch size (mini-batch). It is [optional] if bunch_size", "was set at constructor, otherwise it is mandatory.", }, }, outputs = { "A number with the mean loss of each validate step", "A number with the sample variance of the loss", } }) function trainable_supervised_trainer_methods:validate_dataset(t) local params = get_table_fields( { -- In this case, we check all the given parameters, because all the -- dataset iteration schemes are not available for validate_dataset input_dataset = { mandatory = true }, output_dataset = { mandatory = true }, mask_dataset = { mandatory = false }, bunch_size = { type_match = "number", mandatory = (self.bunch_size == false) }, loss = { isa_match = ann.loss, mandatory = (self.loss_funcion==false), default=self.loss_function }, shuffle = { isa_match = random, mandatory = false, default=nil }, replacement = { type_match = "number", mandatory = false, default=nil }, }, t) assert(#self.components_order > 0, "Execute build method before call this method") -- ERROR CHECKING assert(params.input_dataset ~= not params.output_dataset, "input_dataset and output_dataset fields are mandatory together") assert(not params.input_dataset or not params.distribution, "input_dataset/output_dataset fields are forbidden with distribution") local loss = params.loss local mask_dataset = params.mask_dataset params.loss = nil params.mask_dataset = nil params.bunch_size = params.bunch_size or self.bunch_size -- set to ZERO the accumulated of loss loss:reset() if not mask_dataset then params.assert_input_size = self:get_input_size() params.assert_output_size = self:get_output_size() for input_bunch,output_bunch in trainable.dataset_pair_iterator(params) do self:validate_step(input_bunch, output_bunch, loss) end else params.datasets = { params.input_dataset, params.output_dataset, mask_dataset } params.input_dataset = nil params.output_dataset = nil params.assert_pattern_sizes = { self:get_input_size(), self:get_output_size(), self:get_output_size() } for input_bunch,output_bunch in trainable.dataset_multiple_iterator(params) do self:validate_step(input_bunch, output_bunch, loss) end end return loss:get_accum_loss() end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.use_dataset", { class = "method", summary = "Computes forward with a given dataset ".. "provinding output dataset", description = { "This method performs forward with all patterns of the", "given input_dataset, storing outputs at an", "output_dataset with enough space.", "If output_dataset field is given, it must be prepared to", "store all input_dataset:numPatterns().", "If output_dataset field is nil, a new dataset will be", "constructed. The method returns the output_dataset in", "both cases.", "Each forward step is performed with bunch_size patterns.", }, params = { ["input_dataset"] = "A dataset float or dataset token", ["output_dataset"] = "A dataset float or dataset token [optional].", ["bunch_size"] = { "Bunch size (mini-batch). It is [optional] if bunch_size", "was set at constructor, otherwise it is mandatory.", }, }, outputs = { "The output_dataset with input_dataset:numPatterns().", } }) function trainable_supervised_trainer_methods:use_dataset(t) local params = get_table_fields( { -- In this case, we check all the given parameters, because all the -- dataset iteration schemes are not available for use_dataset input_dataset = { mandatory = true }, output_dataset = { mandatory = false, default=nil }, bunch_size = { type_match = "number", mandatory = (self.bunch_size == false) }, }, t) assert(#self.components_order > 0, "Execute build method before call this method") local nump = params.input_dataset:numPatterns() local outsize = self.ann_component:get_output_size() if params.output_dataset then if isa(params.output_dataset, dataset) then params.output_dataset = dataset.token.wrapper(params.output_dataset) end elseif isa(params.input_dataset, dataset) then params.output_dataset = dataset.matrix(matrix(nump, outsize)) t.output_dataset = params.output_dataset params.output_dataset = dataset.token.wrapper(params.output_dataset) else params.output_dataset = dataset.token.vector(outsize) t.output_dataset = params.output_dataset end if isa(params.input_dataset, dataset) then params.input_dataset = dataset.token.wrapper(params.input_dataset) end local output_dataset = params.output_dataset params.bunch_size = params.bunch_size or self.bunch_size params.datasets = { params.input_dataset } params.assert_pattern_sizes = { self:get_input_size() } params.input_dataset, params.output_dataset = nil, nil local ann_component = self.ann_component for input_bunch,bunch_indexes in trainable.dataset_multiple_iterator(params) do ann_component:reset() local output = ann_component:forward(input_bunch) output_dataset:putPatternBunch(bunch_indexes,output) end return t.output_dataset end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.show_weights", { class = "method", summary = "Print connection weights (for debug purposes).", }) function trainable_supervised_trainer_methods:show_weights() for _,wname in pairs(self.weights_order) do local w = self.weights_table(wname):toTable() print(wname, table.concat(w, " ")) end end ------------------------------------------------------------------------ april_set_doc("trainable.supervised_trainer.clone", { class = "method", summary = "Returns a deep-copy of the object.", description = { "Returns a deep-copy of the object.", "This method copies user functions on given object instance,", "so user can overwrite any of methods in this class.", }, }) function trainable_supervised_trainer_methods:clone() local obj = trainable.supervised_trainer(self.ann_component:clone(), nil, self.bunch_size, nil) if self.loss_function then obj:set_loss_function(self.loss_function:clone()) end if self.optimizer then obj:set_optimizer(self.optimizer:clone()) end if #self.weights_order > 0 then obj:build{ weights = self.weights_table:clone() } end -- add possible user functions for i,v in pairs(self) do if type(v) == "function" then obj[i] = v end end return obj end april_set_doc("trainable.supervised_trainer.norm2", { class = "method", summary = "Returns the maximum norm2 of the weights which name matches", params={ "A connection weights name Lua pattern string [optional], by default it is .*", }, outputs = { "A number with the maximum norm2", }, }) function trainable_supervised_trainer_methods:norm2(match_string) local norm2 = 0 for _,cnn in self:iterate_weights(match_string) do norm2 = math.max(norm2, reduce(function(a,b) return math.max(a,b:norm2()) end, 0, cnn:sliding_window():iterate())) end return norm2 end function trainable_supervised_trainer_methods:train_holdout_validation(t) error("DEPRECATED: use the class trainable.train_holdout_validation") end function trainable_supervised_trainer_methods:train_wo_validation(t) error("DEPRECATED: use the class trainable.train_wo_validation") end april-ann-0.3.1/packages/trainable/lua_src/trainable.lua000066400000000000000000000731231234204160600232130ustar00rootroot00000000000000------------------------------- -- LOCAL AUXILIARY FUNCTIONS -- ------------------------------- local math = math local table = table local string = string -- local ipairs = ipairs local pairs = pairs local assert = assert -- local type = type local isa = isa local iterator = iterator local get_table_fields = get_table_fields local april_assert = april_assert ----------------------------------------- local MAX_SIZE_WO_COLLECT_GARBAGE=50*1024*1024 -- 50 MB ----------------------- -- TRAINABLE CLASSES -- ----------------------- ------------------------------------------------------------------------------- -------------------------------- -- DATASET_ITERATOR FUNCTIONS -- -------------------------------- april_set_doc("trainable.dataset_pair_iterator", { class = "function", summary = { "A function which returns an iterator which", "does a dataset pair loop (input_dataset and output_dataset)" }, description ={ "This class is useful to implement a loop over a dataset.", "It implements different loop schemes, in all the cases", "returning a bunch_size patterns.", "It admits the following traversals: sequential, shuffled,", "shuffled with replacement, shuffled with distribution.", }, }) function trainable.dataset_pair_iterator(t) local params = get_table_fields( { input_dataset = { mandatory = false, default=nil }, output_dataset = { mandatory = false, default=nil }, distribution = { type_match="table", mandatory = false, default=nil, getter = get_table_fields_ipairs{ input_dataset = { mandatory=true }, output_dataset = { mandatory=true }, probability = { type_match="number", mandatory=true }, }, }, bunch_size = { type_match = "number", mandatory = true }, shuffle = { isa_match = random, mandatory = false, default=nil }, replacement = { type_match = "number", mandatory = false, default=nil }, assert_input_size = { type_match = "number", mandatory = false, default=0 }, assert_output_size = { type_match = "number", mandatory = false, default=0 }, }, t) -- ERROR CHECKING assert(params.input_dataset ~= not params.output_dataset, "input_dataset and output_dataset fields are mandatory together") assert(not params.input_dataset or not params.distribution, "input_dataset/output_dataset fields are forbidden with distribution") assert(params.assert_input_size ~= not params.assert_output_size, "assert_input_size and assert_output_size are mandatory together") if params.input_dataset then params.datasets = { params.input_dataset, params.output_dataset } params.input_dataset, params.output_dataset = nil end if params.distribution then iterator(ipairs(params.distribution)): apply(function(_,data) data.datasets = { data.input_dataset, data.output_dataset } data.input_dataset, data.output_dataset = nil, nil end) end if params.assert_input_size then params.assert_pattern_sizes = { params.assert_input_size, params.assert_output_size } params.assert_input_size, params.assert_output_size = nil, nil end return trainable.dataset_multiple_iterator(params) end ---------------------------- april_set_doc("trainable.dataset_multiple_iterator", { class = "function", summary = { "A function which returns an iterator which", "does a dataset loop through multiple datasets" }, description ={ "This function is useful to implement a loop over a dataset.", "It implements different loop schemes, in all the cases", "returning a token with bunch_size patterns.", "It admits the following traversals: sequential, shuffled,", "shuffled with replacement, shuffled with distribution.", }, }) function trainable.dataset_multiple_iterator(t) local cgarbage = collectgarbage cgarbage("collect") local assert = assert local table = table local iterator = iterator local april_assert = april_assert -- local TOO_LARGE_NUMPATTERNS = 1000000 local params = get_table_fields( { datasets = { mandatory = false, default=nil }, distribution = { type_match="table", mandatory = false, default=nil, getter = get_table_fields_ipairs{ datasets = { mandatory=true }, probability = { type_match="number", mandatory=true }, }, }, bunch_size = { type_match = "number", mandatory = true }, shuffle = { isa_match = random, mandatory = false, default=nil }, replacement = { type_match = "number", mandatory = false, default=nil }, bunch_major = { type_match = "string", mandatory = false, default="row_major" }, assert_pattern_sizes = { type_match = "table", mandatory = false, default={ } }, }, t) -- ERROR CHECKING assert(not params.datasets or not params.distribution, "datasets field is forbidden with distribution") assert(params.datasets or params.distribution, "datasets or distribution are needed") -- local bunch_size = params.bunch_size -- local to_dataset_token = function(ds_table) local nump return iterator(ipairs(ds_table)): map(function(_,ds) if nump then april_assert(nump == ds:numPatterns(), "Incorrect number of patterns, expected %d, found %d", nump, ds:numPatterns()) else nump = ds:numPatterns() end return isa(ds,dataset) and dataset.token.wrapper(ds, params.bunch_major) or ds end): table(), nump end -- TRAINING TABLES -- for each pattern, index in dataset local ds_idx_func if params.distribution then -- Training with distribution: given a table of datasets the patterns are -- sampled following the given apriory probability assert(params.shuffle,"shuffle is mandatory with distribution") assert(params.replacement,"replacement is mandatory with distribution") params.datasets = { } local aprioris = {} local sizes = {} local sums = { 0 } local num_ds -- params.datasets = iterator(ipairs(params.distribution.datasets)): map(function() return dataset.token.union() end): table() -- for i,v in ipairs(params.distribution) do local nump if num_ds then april_assert(num_ds == #v.datasets, "Incorrect number of datasets, expected %d, found %d", num_ds, #v.datasets) else num_ds = #v.datasets end v.datasets = to_dataset_token(v.datasets) table.insert(aprioris, v.probability) table.insert(sizes, nump) table.insert(sums, sums[#sums] + nump) -- iterator(ipairs(params.datasets)): apply(function(k,union_ds) union_ds:push_back(v.datasets[k]) end) end -- for i,v in ipairs(params.distribution) -- generate training tables local dice = random.dice(aprioris) local i = 1 ds_idx_func = function() if i <= params.replacement then i=i+1 local whichclass=dice:thrown(params.shuffle) local idx=params.shuffle:randInt(1,sizes[whichclass]) return idx+sums[whichclass] end end else -- if params.distribution then ... else -- local num_patterns params.datasets,num_patterns = to_dataset_token(params.datasets) -- generate training tables depending on training mode (replacement, -- shuffled, or sequential) if params.replacement then assert(params.shuffle,"shuffle is mandatory with replacement") local i=1 ds_idx_func = function() if i <= params.replacement then i=i+1 return params.shuffle:randInt(1,num_patterns) end end elseif params.shuffle then assert(num_patterns < TOO_LARGE_NUMPATTERNS, "The number of patterns is too large, use a shorter replacement, or non-shuffled training") local ds_idx_table = params.shuffle:shuffle(num_patterns) local i=0 ds_idx_func = function() i=i+1 if i<= #ds_idx_table then return ds_idx_table[i] else ds_idx_table = {} end end else local i=0 ds_idx_func = function() i=i+1 if i<= num_patterns then return i end end end end -- SANITY CHECK iterator(ipairs(params.assert_pattern_sizes)): apply(function(k,psize) local ds_psize = params.datasets[k]:patternSize() april_assert(psize == 0 or psize == ds_psize, "Incorrect patternSize at dataset %d, found %d, expected %d", k, ds_psize, psize) end) -- -- ITERATOR USING ds_idx_func local k=0 local bunch_indexes = {} if #params.datasets > 2 then local pattern_size = iterator(ipairs(params.datasets)):select(2): call('patternSize'):reduce(math.add(), 0) local bunch_mb_size = bunch_size * pattern_size * 4 return function() local ds_idx_func = ds_idx_func local bunch_indexes = bunch_indexes local table = table local insert = table.insert table.clear(bunch_indexes) repeat local idx = ds_idx_func() table.insert(bunch_indexes, idx) until not idx or #bunch_indexes==bunch_size -- end condition, return nil if #bunch_indexes == 0 then cgarbage("collect") return end local data = {} for i,v in ipairs(params.datasets) do data[i] = v:getPatternBunch(bunch_indexes) end insert(data, bunch_indexes) k=k+bunch_mb_size if k >= MAX_SIZE_WO_COLLECT_GARBAGE then cgarbage("collect") k=0 end return table.unpack(data) end elseif #params.datasets == 2 then local ds1,ds2 = params.datasets[1],params.datasets[2] local pattern_size = ds1:patternSize() + ds2:patternSize() local bunch_mb_size = bunch_size * pattern_size * 4 return function() local ds_idx_func = ds_idx_func local bunch_indexes = bunch_indexes local table = table local insert = table.insert -- general case table.clear(bunch_indexes) repeat local idx = ds_idx_func() insert(bunch_indexes, idx) until not idx or #bunch_indexes==bunch_size -- end condition, return nil if #bunch_indexes == 0 then cgarbage("collect") return end local bunch1 = ds1:getPatternBunch(bunch_indexes) local bunch2 = ds2:getPatternBunch(bunch_indexes) k=k+bunch_mb_size if k >= MAX_SIZE_WO_COLLECT_GARBAGE then cgarbage("collect") k=0 end return bunch1,bunch2,bunch_indexes end else -- ( #params.datasets == 1 ) local ds1 = params.datasets[1] local pattern_size = ds1:patternSize() local bunch_mb_size = bunch_size * pattern_size * 4 return function() local ds_idx_func = ds_idx_func local bunch_indexes = bunch_indexes local table = table local insert = table.insert -- general case table.clear(bunch_indexes) repeat local idx = ds_idx_func() insert(bunch_indexes, idx) until not idx or #bunch_indexes==bunch_size -- end condition, return nil if #bunch_indexes == 0 then cgarbage("collect") return end local bunch1 = ds1:getPatternBunch(bunch_indexes) k=k+bunch_mb_size if k >= MAX_SIZE_WO_COLLECT_GARBAGE then cgarbage("collect") k=0 end return bunch1,bunch_indexes end end end ------------------------------------------------------------------------------- ------------------------------------ -- TRAIN_HOLDOUT_VALIDATION CLASS -- ------------------------------------ april_set_doc("trainable.train_holdout_validation", { class = "class", summary = "Training class using holdout validation", description ={ "This training class defines a train_func which", "follows a training schedule based on validation error or", "in number of epochs. Method execute receives a function", "which trains one epoch and returns the trainer object,", "the training loss and the validation loss. This method", "returns true in case the training continues, or false if", "the stop criterion is true.", }, }) local train_holdout_methods, train_holdout_class_metatable = class("trainable.train_holdout_validation") april_set_doc("trainable.train_holdout_validation.__call", { class = "method", summary = "Constructor", description ={ "Constructor of the train_holdout_validation class.", }, params = { epochs_wo_validation = { "Number of epochs from start where the validation is", "ignored [optional], by default it is 0", }, min_epochs = "Minimum number of epochs for training [optional]. By default it is 0", max_epochs = "Maximum number of epochs for training", stopping_criterion = { "A predicate function which", "returns true if stopping criterion, false otherwise.", "Some basic criteria are implemented at", "trainable.stopping_criteria table.", "The criterion function is called as", "stopping_criterion({ current_epoch=..., best_epoch=...,", "best_val_error=..., train_error=...,", "validation_error=... }). [optional] By default it is max_epochs criterion.", }, tolerance = { "The tolerance>=0 is the minimum relative difference to", "take the current validation loss as the best [optional],", "by default it is 0.", }, first_epoch = "The first epoch number [optional]. By default it is 0.", }, outputs = { "Instantiated object" }, }) function train_holdout_class_metatable:__call(t,saved_state) local params = get_table_fields( { epochs_wo_validation = { mandatory=false, type_match="number", default=0 }, min_epochs = { mandatory=true, type_match="number", default=0 }, max_epochs = { mandatory=true, type_match="number" }, tolerance = { mandatory=true, type_match="number", default=0 }, stopping_criterion = { mandatory=true, type_match="function", default = function() return false end }, first_epoch = { mandatory=false, type_match="number", default=1 }, }, t) assert(params.tolerance >= 0, "tolerance < 0 is forbidden") local saved_state = saved_state or {} local obj = { params = params, state = { current_epoch = saved_state.current_epoch or 0, train_error = saved_state.train_error or math.huge, validation_error = saved_state.validation_error or math.huge, best_epoch = saved_state.best_epoch or 0, best_val_error = saved_state.best_val_error or math.huge, best = saved_state.best or nil, last = saved_state.last or nil, }, } return class_instance(obj, self) end april_set_doc("trainable.train_holdout_validation.execute", { class = "method", summary = "Runs one training epoch", description ={ "This method executes one training epoch. It receives an", "epoch function which where the user trains the model,", "and which returns the trained model, the train loss, and the", "validation loss.", }, params = { { "A function which trains a model and returns the trained model,", "the training loss and the validation loss", }, first_epoch = "The first epoch number", }, outputs = { "True or false, indicating if the training continues or not" }, }) function train_holdout_methods:execute(epoch_function) local params = self.params local state = self.state -- check max epochs if state.current_epoch >= params.max_epochs then return false end -- check stopping criterion if ( state.current_epoch > params.min_epochs and params.stopping_criterion(state) ) then return false end -- compute one training step by using epoch_function state.current_epoch = state.current_epoch + 1 state.last, state.train_error, state.validation_error = epoch_function() assert(state.last and state.train_error and state.validation_error, "Needs a function which returns three values: a model, training error and validation error") -- update with the best model if ( state.validation_error < state.best_val_error or state.current_epoch <= params.epochs_wo_validation ) then local abs_error = state.best_val_error - state.validation_error local rel_error = abs_error / state.best_val_error if state.best_val_error == math.huge or rel_error > params.tolerance then state.best_epoch = state.current_epoch state.best_val_error = state.validation_error state.best = state.last:clone() end end return true end april_set_doc("trainable.train_holdout_validation.set_param", { class = "method", summary = "Modifies one parameter of which was given at construction", params = { "The parameter name", "The parameter value", }, }) function train_holdout_methods:set_param(name,value) april_assert(self.params[name], "Param %s not found", name) self.params[name] = value end april_set_doc("trainable.train_holdout_validation.get_param", { class = "method", summary = "Returns the value of a param", params = { "The parameter name", }, outputs = { "The paremter value" }, }) function train_holdout_methods:get_param(name) return self.params[name] end april_set_doc("trainable.train_holdout_validation.get_state", { class = "method", summary = "Returns the state of the training", outputs = { "Current epoch", "Train loss", "Validation loss", "Best epoch", "Best epoch validation loss", "Best trained model", "Last trained model", }, }) function train_holdout_methods:get_state() local state = self.state return state.current_epoch, state.train_error, state.validation_error, state.best_epoch, state.best_val_error, state.best, state.last end april_set_doc("trainable.train_holdout_validation.get_state_table", { class = "method", summary = "Returns the state table of the training", outputs = { current_epoch = "Current epoch", train_error = "Train loss", validation_error = "Validation loss", best_epoch = "Best epoch", best_val_error = "Best epoch validation loss", best = "Best trained model", last = "Last trained model", }, }) function train_holdout_methods:get_state_table() return self.state end april_set_doc("trainable.train_holdout_validation.get_state_string", { class = "method", summary = "Returns the state of the training in string format, for printing", outputs = { { "A string with the format ('%5d %.6f %.6f %5d %.6f',", "current_epoch,train_error,validation_error,best_epoch,best_val_error)" } }, }) function train_holdout_methods:get_state_string() local state = self.state return string.format("%5d %.6f %.6f %5d %.6f", state.current_epoch, state.train_error, state.validation_error, state.best_epoch, state.best_val_error) end april_set_doc("trainable.train_holdout_validation.is_best", { class = "method", summary = "Returns if current epoch is the best epoch", outputs = { "A boolean" }, }) function train_holdout_methods:is_best() local state = self.state return state.current_epoch == state.best_epoch end function train_holdout_methods:to_lua_string(format) local insert = table.insert local t = { } insert(t, "trainable.train_holdout_validation(") -- insert(t, "\n\t") insert(t, table.tostring(self.params, format)) insert(t, ",") insert(t, "\n\t") insert(t, table.tostring(self.state, format)) insert(t, "\n)") return table.concat(t, "") end april_set_doc("trainable.train_holdout_validation.save", { class = "method", summary = "Saves the training in a filename", description = { "Saves the training in a filename.", "If the filename exists, it is renamed as filename.bak", }, params={ "The filename", { "The format for matrix data ('ascii' or 'binary'),", "[optional] by default 'binary'", }, { "Extra data dictionary (a table) [optional].", "It is useful to store random objects.", "The serialization of this objects is automatic", "if they has a 'to_lua_string(format)' method, or", "if they are Lua standard types (number, string, table).", }, }, }) function train_holdout_methods:save(filename,format,extra) assert(format==nil or luatype(format)=="string", "Second argument is a string with the format: 'binary' or 'ascii'") local f = io.open(filename, "r") if f then f:close() os.execute(string.format("mv -f %s %s.bak", filename, filename)) end local f = io.open(filename, "w") or error("Unable to open " .. filename) f:write("return ") f:write(self:to_lua_string(format)) if extra then f:write(",\n") f:write(table.tostring(extra, format)) end f:write("\n") f:close() end april_set_doc("trainable.train_holdout_validation.load", { class = "method", summary = "Loads the training from a filename", params={ "The filename", }, outputs = { "A train_holdout_methods instance", "A table with extra saved data or nil if not given when saving", }, }) function trainable.train_holdout_validation.load(filename) local f = loadfile(filename) or error("Unable to open " .. filename) local obj,extra = f() april_assert(obj, "Impossible to load chunk from file %s", filename) return obj,extra end ------------------------------------------------------------------------------- ------------------------------------ -- TRAIN_HOLDOUT_VALIDATION CLASS -- ------------------------------------ april_set_doc("trainable.train_wo_validation", { class = "class", summary = "Training class without validation", description ={ "This training class defines a train_func which", "follows a training schedule based on training error or", "in number of epochs. Method execute receives a function", "which trains one epoch and returns the trainer object and", "the training loss. This method", "returns true in case the training continues, or false if", "the stop criterion is true.", }, }) local train_wo_validation_methods, train_wo_validation_class_metatable = class("trainable.train_wo_validation") april_set_doc("trainable.train_wo_validation.__call", { class = "method", summary = "Constructor", description ={ "Constructor of the train_wo_validation class.", }, params = { min_epochs = "Minimum number of epochs for training [optional]. By default it is 0,", max_epochs = "Maximum number of epochs for training", percentage_stopping_criterion = "A number [optional]. By default it is 0.01", first_epoch = "The first epoch number [optional]. By default it is 1", }, outputs = { "Instantiated object" }, }) function train_wo_validation_class_metatable:__call(t,saved_state) local params = get_table_fields( { min_epochs = { mandatory=true, type_match="number", default=0 }, max_epochs = { mandatory=true, type_match="number" }, percentage_stopping_criterion = { mandatory=true, type_match="number", default = 0.01 }, first_epoch = { mandatory=false, type_match="number", default=1 }, }, t) local saved_state = saved_state or {} local obj = { params = params, state = { current_epoch = saved_state.current_epoch or 0, train_error = saved_state.train_error or math.huge, train_improvement = saved_state.train_improvement or math.huge, last = saved_state.last or nil, }, } return class_instance(obj, self) end april_set_doc("trainable.train_wo_validation.execute", { class = "method", summary = "Runs one training epoch", description ={ "This method executes one training epoch. It receives an", "epoch function which where the user trains the model,", "and which returns the trained model and the train loss.", }, params = { { "A function which trains a model and returns the trained model", "and the training loss", }, first_epoch = "The first epoch number", }, outputs = { "True or false, indicating if the training continues or not" }, }) function train_wo_validation_methods:execute(epoch_function) local params = self.params local state = self.state -- stopping criterion if (state.current_epoch > params.min_epochs and state.train_improvement < params.percentage_stopping_criterion) then return false end -- check max epochs if state.current_epoch >= params.max_epochs then return false end -- compute one training step by using epoch_function state.current_epoch = state.current_epoch + 1 local model,tr_err = epoch_function() assert(model and tr_err, "Needs a function which returns two values: a model and training error") -- local prev_tr_err = state.train_error local tr_improvement if state.current_epoch > 1 then tr_improvement = (prev_tr_err - tr_err)/prev_tr_err else tr_improvement = math.huge end state.train_error = tr_err state.train_improvement = tr_improvement state.last = model return true end april_set_doc("trainable.train_wo_validation.set_param", { class = "method", summary = "Modifies one parameter of which was given at construction", params = { "The parameter name", "The parameter value", }, }) function train_wo_validation_methods:set_param(name,value) april_assert(self.params[name], "Param %s not found", name) self.params[name] = value end april_set_doc("trainable.train_wo_validation.get_param", { class = "method", summary = "Returns the value of a param", params = { "The parameter name", }, outputs = { "The paremter value" }, }) function train_wo_validation_methods:get_param(name) return self.params[name] end april_set_doc("trainable.train_wo_validation.get_state", { class = "method", summary = "Returns the state of the training", outputs = { "Current epoch", "Train loss", "Train relative improvement", "Last trained model", }, }) function train_wo_validation_methods:get_state() local state = self.state return state.current_epoch, state.train_error, state.train_improvement,state.last end april_set_doc("trainable.train_wo_validation.get_state_table", { class = "method", summary = "Returns the state table of the training", outputs = { current_epoch = "Current epoch", train_error = "Train loss", train_improvement = "Train relative improvement", last = "Last trained model", }, }) function train_wo_validation_methods:get_state_table() return self.state end april_set_doc("trainable.train_wo_validation.get_state_string", { class = "method", summary = "Returns the state of the training in string format, for printing", outputs = { { "A string with the format ('%5d %.6f %.6f',", "current_epoch,train_error,train_improvement)" } }, }) function train_wo_validation_methods:get_state_string() local state = self.state return string.format("%5d %.6f %.6f", state.current_epoch, state.train_error, state.train_improvement) end function train_wo_validation_methods:to_lua_string(format) local insert = table.insert local t = { } insert(t, "trainable.train_wo_validation(") -- insert(t, "\n\t") insert(t, table.tostring(self.params, format)) insert(t, ",") insert(t, "\n\t") insert(t, table.tostring(self.state, format)) insert(t, "\n)") return table.concat(t, "") end april_set_doc("trainable.train_wo_validation.save", { class = "method", summary = "Saves the training in a filename", description = { "Saves the training in a filename.", "If the filename exists, it is renamed as filename.bak", }, params={ "The filename", { "The format for matrix data ('ascii' or 'binary'),", "[optional] by default 'binary'", }, { "Extra data dictionary (a table) [optional].", "It is useful to store random objects.", "The serialization of this objects is automatic", "if they has a 'to_lua_string(format)' method, or", "if they are Lua standard types (number, string, table).", }, }, }) train_wo_validation_methods.save = train_holdout_methods.save april_set_doc("trainable.train_wo_validation.load", { class = "method", summary = "Loads the training from a filename", params={ "The filename", }, outputs = { "A train_wo_validation_methods instance", "A table with extra saved data or nil if not given when saving", }, }) trainable.train_wo_validation.load = trainable.train_holdout_validation.load ------------------------------------------------------------------------------- ------------------------- -- STOPPING CRITERIA -- ------------------------- april_set_doc("trainable.stopping_criteria", { class = "namespace", summary = "Table with built-in stopping criteria", }) trainable.stopping_criteria = trainable.stopping_criteria or {} -------------------------------------------------------------------------- april_set_doc("trainable.stopping_criteria.make_max_epochs_wo_imp_absolute", { class = "function", summary = "Returns a stopping criterion based on absolute loss.", description = { "This function returns a stopping criterion function", "which returns is true if current_epoch - best_epoch >= abs_max." }, params = { "Absolute maximum difference (abs_max)" }, outputs = { "A stopping criterion function" }, }) function trainable.stopping_criteria.make_max_epochs_wo_imp_absolute(abs_max) local f = function(params) return (params.current_epoch - params.best_epoch) >= abs_max end return f end -------------------------------------------------------------------------- april_set_doc("trainable.stopping_criteria.make_max_epochs_wo_imp_relative", { class = "function", summary = "Returns a stopping criterion based on relative loss.", description = { "This function returns a stopping criterion function", "which returns is true if not", "current_epoch/best_epoch < rel_max." }, params = { "Relative maximum difference (rel_max)" }, outputs = { "A stopping criterion function" }, }) function trainable.stopping_criteria.make_max_epochs_wo_imp_relative(rel_max) local f = function(params) return not (params.current_epoch/params.best_epoch < rel_max) end return f end april-ann-0.3.1/packages/trainable/package.lua000066400000000000000000000024161234204160600212120ustar00rootroot00000000000000 package{ name = "trainable", version = "1.0", depends = { "util", "dataset", "random", "ann", "ann.loss", "ann.optimizer" }, keywords = { "Trainable" }, description = "Define a wrapper with common methods of trainable models", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "test", execute_script{ file={ "test/test.lua", }, }, }, target{ name = "provide", depends = "init", -- copy{ file= "c_src/*.h", dest_dir = "include" }, -- provide_bind{ file = "binding/bind_trainablesuper.lua.cc", dest_dir = "include" } }, target{ name = "build", depends = "provide", use_timestamp = true, -- object{ -- file = "c_src/*.cc", -- include_dirs = "${include_dirs}", -- dest_dir = "build", -- }, luac{ orig_dir = "lua_src", dest_dir = "build", }, -- build_bind{ -- file = "binding/bind_trainablesuper.lua.cc", -- dest_dir = "build", -- } }, target{ name = "document", document_src{ }, document_bind{ }, }, } april-ann-0.3.1/packages/trainable/test/000077500000000000000000000000001234204160600200705ustar00rootroot00000000000000april-ann-0.3.1/packages/trainable/test/.gitignore000066400000000000000000000000401234204160600220520ustar00rootroot00000000000000best_out.txt best_qlearning.net april-ann-0.3.1/packages/trainable/test/qlearning_test.lua000066400000000000000000000140631234204160600236160ustar00rootroot00000000000000-- MOUNTAIN CAR TEST (http://en.wikipedia.org/wiki/Mountain_Car) local strategies = trainable.qlearning_trainer.strategies local num_runs = 10 local num_of_episodes = 101 local max_episode_length = 1000 local epsilon = 0.5 -- probability of random action, epsilon greedy local epsilon_decay = 0.9999 local learning_rate = 0.1 local momentum = 0.4 local weight_decay = 1e-04 local L1_norm = 0.0 local max_norm_penalty = 4 local winf = -1 local wsup = 1 local bunch_size = 1024 local discount = 1.0 -- discount-rate parameter local lambda = 0.9 -- trace-decay parameter local weights_random = random(12384) local exploration_random = random(2394) local shuffle_random = random(23824) ------------------------------------------------------------------------------ -- two dimensions: velocity, position local function start_state() return matrix.col_major(1,2,{0.0, -0.5}) end local function stop_condition(state) return state:get(1,2) >= 0.6 end -- three actions: left, neutral, right local LEFT,NEUTRAL,RIGHT=1,2,3 local actions = { LEFT, NEUTRAL, RIGHT } local function update(state, action) local action_values = { -1, 0, 1 } local next_state = matrix.as(state) local p = state:get(1,2) local v = state:get(1,1) + action_values[action] * 0.001 + math.cos(3 * p) * -0.0025 local p = p + v next_state:set(1,1, math.clamp(v, -0.07, 0.07)) next_state:set(1,2, math.clamp(p, -1.2, 0.6)) local reward if stop_condition(next_state) then reward = 10 else reward = 0 end return next_state,reward end ------------------------------------------------------------------------------ local best_length = max_episode_length/2 local best_net for run=1,num_runs do ------------------------------------------------------------------------------ local take_action = strategies.make_epsilon_decresing(actions, epsilon, epsilon_decay, exploration_random) local thenet = ann.mlp.all_all.generate("2 inputs %d softmax" % { #actions }) local sup_trainer = trainable.supervised_trainer(thenet, ann.loss.mse(), bunch_size, ann.optimizer.rprop()):build() local qtrainer = trainable.qlearning_trainer{ sup_trainer = sup_trainer, discount = discount, lambda = lambda, clampQ = function(v) return math.clamp(v,0.0,1.0) end, } qtrainer:randomize_weights{ inf = winf, sup = wsup, random = weights_random, } if qtrainer:has_option("learning_rate") then qtrainer:set_option("learning_rate", learning_rate) end if qtrainer:has_option("momentum") then qtrainer:set_option("momentum", momentum) end if qtrainer:has_option("weight_decay") then qtrainer:set_option("weight_decay", weight_decay) qtrainer:set_option("L1_norm", L1_norm) qtrainer:set_option("max_norm_penalty", max_norm_penalty) for _,hyp in ipairs{ "weight_decay", "L1_norm", "max_norm_penalty" } do if qtrainer:has_option(hyp) then qtrainer:set_layerwise_option("b.*", hyp, 0) end end end local best for episode=1,num_of_episodes do collectgarbage("collect") -- RUN EPISODE qtrainer:reset() -- clear traces and other stuff local batch = qtrainer:get_batch_builder() local state,action = start_state(),NEUTRAL local output = qtrainer:calculate(state) local i = 0 local acc_reward = 0 while not stop_condition(state) and i < max_episode_length do local next_state,reward = update(state, action) acc_reward = acc_reward + reward if episode < num_of_episodes then batch:add(state, output, action, reward) end output = qtrainer:calculate(next_state) --qtrainer:one_step(action, state, reward) if episode < num_of_episodes then action = take_action(output) else _,action = output:max() end --print(i, table.concat(output:toTable(), " "), reward, action, table.concat(state:toTable(), " ")) -- i = i + 1 -- state = next_state end print(run, episode, i, acc_reward) if episode < num_of_episodes then -- BATCH TRAIN local in_ds,out_ds,mask_ds = batch:compute_dataset_pair() -- for ipat,pat in out_ds:patterns() do print(ipat, table.concat(pat, " "), table.concat(mask_ds:getPattern(ipat), " ")) end local train_func = trainable.train_wo_validation{ max_epochs = (acc_reward > 0 and 100) or 10, min_epochs = (acc_reward > 0 and 40) or 2, percentage_stopping_criterion = 0.01, } while train_func:execute(function() local tr_error = sup_trainer:train_dataset{ input_dataset = in_ds, output_dataset = out_ds, mask_dataset = mask_ds, shuffle = shuffle_random, } return sup_trainer,tr_error end) do -- print(train_func:get_state_string()) end else -- if episode < num_of_episodes then ... if i < best_length then best_length = i best_net = sup_trainer:clone() end end -- if episode < num_of_episodes then ... else ... end end -- SHOW BEST RUN if best_net then best_net:save("best_qlearning.net") local f = io.open("best_out.txt", "w") local state,action = start_state(),NEUTRAL local output = best_net:calculate(state) local i = 0 while not stop_condition(state) do local next_state,reward = update(state, action) output = best_net:calculate(next_state) _,action = output:max() fprintf(f, "BEST %d %s %s %f %d\n", i, table.concat(state:toTable(), " "), table.concat(output:toTable(), " "), reward, action) -- i = i + 1 -- state = next_state end f:close() end april-ann-0.3.1/packages/trainable/test/test.lua000066400000000000000000000075461234204160600215660ustar00rootroot00000000000000digits_image = ImageIO.read(string.get_path(arg[0]).."../../../EXAMPLES/digits.png") m1 = digits_image:to_grayscale():invert_colors():matrix() -- TRAINING -- -- a simple matrix for the desired output train_input = dataset.matrix(m1, { patternSize = {16,16}, offset = {0,0}, numSteps = {80,10}, stepSize = {16,16}, orderStep = {1,0} }) m2 = matrix(10,{1,0,0,0,0,0,0,0,0,0}) -- a circular dataset which advances with step -1 train_output = dataset.matrix(m2, { patternSize = {10}, offset = {0}, numSteps = {800}, stepSize = {-1}, circular = {true} }) -- VALIDATION -- val_input = dataset.matrix(m1, { patternSize = {16,16}, offset = {1280,0}, numSteps = {20,10}, stepSize = {16,16}, orderStep = {1,0} }) val_output = dataset.matrix(m2, { patternSize = {10}, offset = {0}, numSteps = {200}, stepSize = {-1}, circular = {true} }) bunch_size = 32 thenet = ann.mlp.all_all.generate("256 inputs 128 tanh 10 log_softmax") if util.is_cuda_available() then thenet:set_use_cuda(true) end trainer = trainable.supervised_trainer(thenet, ann.loss.multi_class_cross_entropy(), bunch_size) trainer:build() -- trainer:set_option("learning_rate", 0.01) trainer:set_option("momentum", 0.01) trainer:set_option("weight_decay", 1e-04) trainer:set_option("L1_norm", 1e-05) -- we avoid weight_decay in bias trainer:set_layerwise_option("b.", "weight_decay", 0) trainer:set_layerwise_option("b.", "L1_norm", 0) trainer:randomize_weights{ random = random(52324), use_fanin = true, use_fanout = true, inf = -1, sup = 1, } training_data = { input_dataset = train_input, output_dataset = train_output, shuffle = random(25234), } validation_data = { input_dataset = val_input, output_dataset = val_output, } clock = util.stopwatch() clock:go() --print("# Epoch Training Validation") -- print("Epoch Training Validation") train_func = trainable.train_holdout_validation{ min_epochs=10, max_epochs = 20, stopping_criterion = trainable.stopping_criteria.make_max_epochs_wo_imp_relative(1.1), tolerance = 0.1, } -- training loop tmpname = os.tmpname() while train_func:execute(function() local tr = trainer:train_dataset(training_data) local va = trainer:validate_dataset(validation_data) return trainer,tr,va end) do train_func:save(tmpname, "binary", { shuffle = training_data.shuffle }) train_func,extra = trainable.train_holdout_validation.load(tmpname) training_data.shuffle = extra.shuffle end train_func:save(tmpname, "ascii") train_func = trainable.train_holdout_validation.load(tmpname) os.remove(tmpname) os.remove(tmpname..".bak") clock:stop() cpu,wall = clock:read() num_epochs = train_func:get_state_table().current_epoch clock:stop() cpu,wall = clock:read() best = train_func:get_state_table().best local val_error,val_variance=best:validate_dataset{ input_dataset = val_input, output_dataset = val_output, loss = ann.loss.zero_one(10) } local out_ds = best:use_dataset{ input_dataset = val_input } best:use_dataset{ input_dataset = val_input, output_dataset = out_ds } for input,bunch_indexes in trainable.dataset_multiple_iterator{ datasets = { val_input }, bunch_size = 1 } do local out = best:calculate(input) local target = matrix(out:dim(1),out:dim(2), out_ds:getPattern(bunch_indexes[1])) assert(out:equals(target)) end --printf("# Wall total time: %.3f per epoch: %.3f\n", wall, wall/num_epochs) --printf("# CPU total time: %.3f per epoch: %.3f\n", cpu, cpu/num_epochs) --printf("# Validation error: %f +- %f\n", val_error, val_variance) local img = ann.connections.input_filters_image(best:weights("w1"), {16,16}) ImageIO.write(img, "/tmp/filters.png") april-ann-0.3.1/profile_build_scripts/000077500000000000000000000000001234204160600177605ustar00rootroot00000000000000april-ann-0.3.1/profile_build_scripts/DISCLAIMER.lua000066400000000000000000000006101234204160600220740ustar00rootroot00000000000000return { '"April-ANN v" APRILANN_VERSION_MAJOR "." APRILANN_VERSION_MINOR "." APRILANN_VERSION_RELEASE " COMMIT " TOSTRING(GIT_COMMIT) " Copyright (C) 2012-2014 DSIC-UPV, CEU-UCH"', '"This program comes with ABSOLUTELY NO WARRANTY; for details see LICENSE.txt.\\nThis is free software, and you are welcome to redistribute it\\nunder certain conditions; see LICENSE.txt for details."', } april-ann-0.3.1/profile_build_scripts/VERSION.lua000066400000000000000000000001771234204160600216150ustar00rootroot00000000000000return { '-DAPRILANN_VERSION_MAJOR=\'"0"\'', '-DAPRILANN_VERSION_MINOR=\'"3"\'', '-DAPRILANN_VERSION_RELEASE=\'"1"\'', } april-ann-0.3.1/profile_build_scripts/build_debug_NOBLAS.lua000066400000000000000000000065171234204160600237770ustar00rootroot00000000000000dofile("binding/formiga.lua") formiga.build_dir = "build_NOBLAS_debug" local packages = dofile "profile_build_scripts/package_list.lua" table.insert(packages, "rlcompleter") -- AUTOCOMPLETION => needs READLINE luapkg{ program_name = "april-ann.debug", verbosity_level = 0, -- 0 => NONE, 1 => ONLY TARGETS, 2 => ALL packages = packages, version_flags = dofile "profile_build_scripts/VERSION.lua", disclaimer_strings = dofile "profile_build_scripts/DISCLAIMER.lua", global_flags = { debug="yes", use_lstrip = "no", use_readline="yes", optimization = "no", platform = "unix", extra_flags={ "-pg", "-DNO_POOL", "-DNO_BLAS", "-DNOOMP", "-fPIC", }, extra_libs={ "-fPIC", "-pg", "-rdynamic", "-Wl,-E -ldl" }, shared_extra_libs={ "-shared", "-llua5.2", }, }, main_package = package{ name = "main_package", default_target = "build", target{ name = "init", mkdir{ dir = "bin" }, mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file = formiga.os.compose_dir(formiga.os.cwd,"lua","include","*.h"), dest_dir = "include" } }, target{ name = "clean_all", exec{ command = [[find . -name "*~" -exec rm {} ';']] }, delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "clean", delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, }, target{ name = "document_clean", delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "build", depends = "provide", object{ file = formiga.os.compose_dir("binding","c_src","*.cc"), include_dirs = "include", dest_dir = formiga.global_properties.build_dir, }, link_main_program{}, create_static_library{}, copy_header_files{}, dot_graph{ file_name = "dep_graph.dot" }, use_timestamp = true, }, target{ name = "test", depends = "build", }, target{ name = "document", echo{"this is documentation"}, main_documentation{ dev_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_dev.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, }, user_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_user_ref.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, } }, }, }, } if arg[2] == nil then arg[2] = "." end if arg[1] ~= "document" and arg[1] ~= "test" then formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "bin")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "lib")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "include")) formiga.os.execute("cp "..formiga.os.compose_dir(formiga.build_dir,"bin",formiga.program_name) .." "..formiga.os.compose_dir(arg[2], "bin", formiga.program_name)) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"lib") .." "..arg[2]) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"include","april-ann.debug") .." "..formiga.os.compose_dir(arg[2], "include")) end april-ann-0.3.1/profile_build_scripts/build_debug_atlas.lua000066400000000000000000000066461234204160600241300ustar00rootroot00000000000000dofile("binding/formiga.lua") formiga.build_dir = "build_debug" local packages = dofile "profile_build_scripts/package_list.lua" table.insert(packages, "rlcompleter") -- AUTOCOMPLETION => needs READLINE luapkg{ program_name = "april-ann.debug", verbosity_level = 0, -- 0 => NONE, 1 => ONLY TARGETS, 2 => ALL packages = packages, version_flags = dofile "profile_build_scripts/VERSION.lua", disclaimer_strings = dofile "profile_build_scripts/DISCLAIMER.lua", global_flags = { debug="yes", use_lstrip = "no", use_readline="yes", optimization = "no", platform = "unix", extra_flags={ "-pg", "-fopenmp", "-fPIC", }, extra_libs={ "-fPIC", "-pg", "-lpthread", "-lblas", "-lcblas", "-latlas", "-L/opt/lib", "-lgfortran", "-rdynamic", "-llapack_atlas", "-llapacke", }, shared_extra_libs={ "-shared", "-llua5.2", }, }, main_package = package{ name = "main_package", default_target = "build", target{ name = "init", mkdir{ dir = "bin" }, mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file = formiga.os.compose_dir(formiga.os.cwd,"lua","include","*.h"), dest_dir = "include" } }, target{ name = "clean_all", exec{ command = [[find . -name "*~" -exec rm {} ';']] }, delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "clean", delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, }, target{ name = "document_clean", delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "build", depends = "provide", object{ file = formiga.os.compose_dir("binding","c_src","*.cc"), include_dirs = "include", dest_dir = formiga.global_properties.build_dir, }, link_main_program{}, create_static_library{}, copy_header_files{}, dot_graph{ file_name = "dep_graph.dot" }, use_timestamp = true, }, target{ name = "test", depends = "build", }, target{ name = "document", echo{"this is documentation"}, main_documentation{ dev_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_dev.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, }, user_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_user_ref.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, } }, }, }, } if arg[2] == nil then arg[2] = "." end if arg[1] ~= "document" and arg[1] ~= "test" then formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "bin")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "lib")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "include")) formiga.os.execute("cp "..formiga.os.compose_dir(formiga.build_dir,"bin",formiga.program_name) .." "..formiga.os.compose_dir(arg[2], "bin", formiga.program_name)) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"lib") .." "..arg[2]) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"include","april-ann.debug") .." "..formiga.os.compose_dir(arg[2], "include")) end april-ann-0.3.1/profile_build_scripts/build_debug_cuda_and_mkl.lua000066400000000000000000000075361234204160600254240ustar00rootroot00000000000000dofile("binding/formiga.lua") formiga.build_dir = "build_debug_cuda_and_mkl" local packages = dofile "profile_build_scripts/package_list.lua" table.insert(packages, "rlcompleter") -- AUTOCOMPLETION => needs READLINE luapkg{ program_name = "april-ann.debug", verbosity_level = 0, -- 0 => NONE, 1 => ONLY TARGETS, 2 => ALL packages = packages, version_flags = dofile "profile_build_scripts/VERSION.lua", disclaimer_strings = dofile "profile_build_scripts/DISCLAIMER.lua", global_flags = { debug="yes", use_lstrip = "no", use_readline="yes", optimization = "no", platform = "unix64+cuda", ignore_cuda = false, no_shared = true, extra_flags={ -- For Intel MKL :) "-DUSE_MKL", "-I/opt/MKL/include", -------------------- "-march=native", "-msse", "-pg", "-DNO_OMP", "-DNO_POOL", --"-fPIC", -- For CUDA "-I/usr/local/cuda/include", "-L/usr/local/cuda/lib", }, extra_libs={ --"-fPIC", "-pg", "-rdynamic", -- For Intel MKL :) "-L/opt/MKL/lib", "-lmkl_intel_lp64", "-Wl,--start-group", "-lmkl_intel_thread", "-lmkl_core", "-Wl,--end-group", "/opt/MKL/lib/libiomp5.a", -- For CUBLAS "-lcublas", -- "-lpthread", }, shared_extra_libs={ "-shared", "-llua5.2", }, }, main_package = package{ name = "main_package", default_target = "build", target{ name = "init", mkdir{ dir = "bin" }, mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file = formiga.os.compose_dir(formiga.os.cwd,"lua","include","*.h"), dest_dir = "include" } }, target{ name = "clean_all", exec{ command = [[find . -name "*~" -exec rm {} ';']] }, delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "clean", delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, }, target{ name = "document_clean", delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "build", depends = "provide", object{ file = formiga.os.compose_dir("binding","c_src","*.cc"), include_dirs = "include", dest_dir = formiga.global_properties.build_dir, }, link_main_program{}, create_static_library{}, copy_header_files{}, dot_graph{ file_name = "dep_graph.dot" }, use_timestamp = true, }, target{ name = "test", depends = "build", }, target{ name = "document", echo{"this is documentation"}, main_documentation{ dev_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_dev.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, }, user_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_user_ref.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, } }, }, }, } if arg[2] == nil then arg[2] = "." end if arg[1] ~= "document" and arg[1] ~= "test" then formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "bin")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "lib")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "include")) formiga.os.execute("cp -f "..formiga.os.compose_dir(formiga.build_dir,"bin",formiga.program_name) .." "..formiga.os.compose_dir(arg[2], "bin", formiga.program_name)) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"lib") .." "..arg[2]) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"include","april-ann.debug") .." "..formiga.os.compose_dir(arg[2], "include")) end april-ann-0.3.1/profile_build_scripts/build_debug_homebrew.lua000066400000000000000000000077751234204160600246400ustar00rootroot00000000000000dofile("binding/formiga.lua") formiga.build_dir = "build_debug_homebrew" local packages = dofile "profile_build_scripts/package_list.lua" table.insert(packages, "rlcompleter") -- AUTOCOMPLETION => needs READLINE luapkg{ program_name = "april-ann.debug", verbosity_level = 0, -- 0 => NONE, 1 => ONLY TARGETS, 2 => ALL packages = packages, version_flags = dofile "profile_build_scripts/VERSION.lua", disclaimer_strings = dofile "profile_build_scripts/DISCLAIMER.lua", global_flags = { debug="yes", use_lstrip = "no", use_readline="yes", optimization = "no", platform = "unix", extra_flags={ "-D__HOMEBREW__", "-mtune=native", "-msse", "-DUSE_XCODE", "-F/System/Library/Frameworks/Accelerate.framework", "-pg", "-DNO_OMP", "-fPIC", "-I/usr/local/opt/readline/include", -- homebrew, change if necessary }, extra_libs={ "-L/usr/local/lib", -- homebrew, change if necessary "-L/usr/local/opt/readline/lib", -- homebrew, change if necessary "-lpthread", "-lpng", "/System/Library/Frameworks/Accelerate.framework/Versions/A/Accelerate", "/System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib", "/System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libLAPACK.dylib", "-pg", "-rdynamic", "-fPIC", "-llua" }, shared_extra_libs={ "-flat_namespace", "-bundle", }, }, main_package = package{ name = "main_package", default_target = "build", target{ name = "init", mkdir{ dir = "bin" }, mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file = formiga.os.compose_dir(formiga.os.cwd,"lua","include","*.h"), dest_dir = "include" } }, target{ name = "clean_all", exec{ command = [[find . -name "*~" -exec rm {} ';']] }, delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "clean", delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, }, target{ name = "document_clean", delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "build", depends = "provide", object{ file = formiga.os.compose_dir("binding","c_src","*.cc"), include_dirs = "include", dest_dir = formiga.global_properties.build_dir, }, link_main_program{}, create_static_library{}, copy_header_files{}, dot_graph{ file_name = "dep_graph.dot" }, use_timestamp = true, }, target{ name = "test", depends = "build", }, target{ name = "document", echo{"this is documentation"}, main_documentation{ dev_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_dev.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, }, user_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_user_ref.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, } }, }, }, } if arg[2] == nil then arg[2] = "." end if arg[1] ~= "document" and arg[1] ~= "test" then formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "bin")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "lib")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "include")) formiga.os.execute("cp -f "..formiga.os.compose_dir(formiga.build_dir,"bin",formiga.program_name) .." "..formiga.os.compose_dir(arg[2], "bin", formiga.program_name)) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"lib") .." "..arg[2]) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"include","april-ann.debug") .." "..formiga.os.compose_dir(arg[2], "include")) end april-ann-0.3.1/profile_build_scripts/build_debug_macports.lua000066400000000000000000000075721234204160600246530ustar00rootroot00000000000000dofile("binding/formiga.lua") formiga.build_dir = "build_debug_macports" local packages = dofile "profile_build_scripts/package_list.lua" table.insert(packages, "rlcompleter") -- AUTOCOMPLETION => needs READLINE luapkg{ program_name = "april-ann.debug", verbosity_level = 0, -- 0 => NONE, 1 => ONLY TARGETS, 2 => ALL packages = packages, version_flags = dofile "profile_build_scripts/VERSION.lua", disclaimer_strings = dofile "profile_build_scripts/DISCLAIMER.lua", global_flags = { debug="yes", use_lstrip = "no", use_readline="yes", optimization = "no", platform = "unix", extra_flags={ "-mtune=native", "-msse", "-DUSE_XCODE", "-F/System/Library/Frameworks/Accelerate.framework", "-pg", "-DNO_OMP", "-fPIC", }, extra_libs={ "-L/opt/local/lib", -- macports, change if necessary "-lpthread", "-lpng", "/System/Library/Frameworks/Accelerate.framework/Versions/A/Accelerate", "/System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib", "/System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libLAPACK.dylib", "-pg", "-rdynamic", "-fPIC", }, shared_extra_libs={ "-flat_namespace", "-bundle", assert(io.popen("pkg-config --libs 'lua >= 5.2'"):read("*l")) }, }, main_package = package{ name = "main_package", default_target = "build", target{ name = "init", mkdir{ dir = "bin" }, mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file = formiga.os.compose_dir(formiga.os.cwd,"lua","include","*.h"), dest_dir = "include" } }, target{ name = "clean_all", exec{ command = [[find . -name "*~" -exec rm {} ';']] }, delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "clean", delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, }, target{ name = "document_clean", delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "build", depends = "provide", object{ file = formiga.os.compose_dir("binding","c_src","*.cc"), include_dirs = "include", dest_dir = formiga.global_properties.build_dir, }, link_main_program{}, create_static_library{}, copy_header_files{}, dot_graph{ file_name = "dep_graph.dot" }, use_timestamp = true, }, target{ name = "test", depends = "build", }, target{ name = "document", echo{"this is documentation"}, main_documentation{ dev_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_dev.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, }, user_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_user_ref.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, } }, }, }, } if arg[2] == nil then arg[2] = "." end if arg[1] ~= "document" and arg[1] ~= "test" then formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "bin")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "lib")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "include")) formiga.os.execute("cp -f "..formiga.os.compose_dir(formiga.build_dir,"bin",formiga.program_name) .." "..formiga.os.compose_dir(arg[2], "bin", formiga.program_name)) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"lib") .." "..arg[2]) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"include","april-ann.debug") .." "..formiga.os.compose_dir(arg[2], "include")) end april-ann-0.3.1/profile_build_scripts/build_debug_mkl.lua000066400000000000000000000071631234204160600236020ustar00rootroot00000000000000dofile("binding/formiga.lua") formiga.build_dir = "build_debug_mkl" local packages = dofile "profile_build_scripts/package_list.lua" table.insert(packages, "rlcompleter") -- AUTOCOMPLETION => needs READLINE luapkg{ program_name = "april-ann.debug", verbosity_level = 0, -- 0 => NONE, 1 => ONLY TARGETS, 2 => ALL packages = packages, version_flags = dofile "profile_build_scripts/VERSION.lua", disclaimer_strings = dofile "profile_build_scripts/DISCLAIMER.lua", global_flags = { debug="yes", use_lstrip = "no", use_readline="yes", optimization = "no", platform = "unix", extra_flags={ -- For Intel MKL :) "-DUSE_MKL", "-I/opt/MKL/include", -------------------- "-march=native", "-msse", "-pg", "-fopenmp", "-fPIC", }, extra_libs={ "-fPIC", "-pg", "-lpthread", "-rdynamic", -- For Intel MKL :) "-L/opt/MKL/lib", "-lmkl_intel_lp64", "-Wl,--start-group", "-lmkl_intel_thread", "-lmkl_core", "-Wl,--end-group", "-liomp5" }, shared_extra_libs={ "-shared", "-llua5.2", }, }, main_package = package{ name = "main_package", default_target = "build", target{ name = "init", mkdir{ dir = "bin" }, mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file = formiga.os.compose_dir(formiga.os.cwd,"lua","include","*.h"), dest_dir = "include" } }, target{ name = "clean_all", exec{ command = [[find . -name "*~" -exec rm {} ';']] }, delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "clean", delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, }, target{ name = "document_clean", delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "build", depends = "provide", object{ file = formiga.os.compose_dir("binding","c_src","*.cc"), include_dirs = "include", dest_dir = formiga.global_properties.build_dir, }, link_main_program{}, create_static_library{}, copy_header_files{}, dot_graph{ file_name = "dep_graph.dot" }, use_timestamp = true, }, target{ name = "test", depends = "build", }, target{ name = "document", echo{"this is documentation"}, main_documentation{ dev_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_dev.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, }, user_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_user_ref.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, } }, }, }, } if arg[2] == nil then arg[2] = "." end if arg[1] ~= "document" and arg[1] ~= "test" then formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "bin")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "lib")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "include")) formiga.os.execute("cp -f "..formiga.os.compose_dir(formiga.build_dir,"bin",formiga.program_name) .." "..formiga.os.compose_dir(arg[2], "bin", formiga.program_name)) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"lib") .." "..arg[2]) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"include","april-ann.debug") .." "..formiga.os.compose_dir(arg[2], "include")) end april-ann-0.3.1/profile_build_scripts/build_debug_no_omp.lua000066400000000000000000000066551234204160600243130ustar00rootroot00000000000000dofile("binding/formiga.lua") formiga.build_dir = "build_debug_no_omp" local packages = dofile "profile_build_scripts/package_list.lua" table.insert(packages, "rlcompleter") -- AUTOCOMPLETION => needs READLINE luapkg{ program_name = "april-ann.debug", verbosity_level = 0, -- 0 => NONE, 1 => ONLY TARGETS, 2 => ALL packages = packages, version_flags = dofile "profile_build_scripts/VERSION.lua", disclaimer_strings = dofile "profile_build_scripts/DISCLAIMER.lua", global_flags = { debug="yes", use_lstrip = "no", use_readline="yes", optimization = "no", platform = "unix", extra_flags={ "-pg", "-DNO_OMP", "-fPIC", }, extra_libs={ "-fPIC", "-pg", "-lpthread", "-lblas", "-lcblas", "-latlas", "-L/opt/lib", "-lgfortran", "-rdynamic", "-llapack_atlas", "-llapacke", }, shared_extra_libs={ "-shared", "-llua5.2", }, }, main_package = package{ name = "main_package", default_target = "build", target{ name = "init", mkdir{ dir = "bin" }, mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file = formiga.os.compose_dir(formiga.os.cwd,"lua","include","*.h"), dest_dir = "include" } }, target{ name = "clean_all", exec{ command = [[find . -name "*~" -exec rm {} ';']] }, delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "clean", delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, }, target{ name = "document_clean", delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "build", depends = "provide", object{ file = formiga.os.compose_dir("binding","c_src","*.cc"), include_dirs = "include", dest_dir = formiga.global_properties.build_dir, }, link_main_program{}, create_static_library{}, copy_header_files{}, dot_graph{ file_name = "dep_graph.dot" }, use_timestamp = true, }, target{ name = "test", depends = "build", }, target{ name = "document", echo{"this is documentation"}, main_documentation{ dev_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_dev.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, }, user_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_user_ref.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, } }, }, }, } if arg[2] == nil then arg[2] = "." end if arg[1] ~= "document" and arg[1] ~= "test" then formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "bin")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "lib")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "include")) formiga.os.execute("cp "..formiga.os.compose_dir(formiga.build_dir,"bin",formiga.program_name) .." "..formiga.os.compose_dir(arg[2], "bin", formiga.program_name)) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"lib") .." "..arg[2]) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"include","april-ann.debug") .." "..formiga.os.compose_dir(arg[2], "include")) end april-ann-0.3.1/profile_build_scripts/build_debug_pi.lua000066400000000000000000000066321234204160600234270ustar00rootroot00000000000000dofile("binding/formiga.lua") formiga.build_dir = "build_debug_pi" local packages = dofile "profile_build_scripts/package_list.pi.lua" table.insert(packages, "rlcompleter") -- AUTOCOMPLETION => needs READLINE luapkg{ program_name = "april-ann", verbosity_level = 0, -- 0 => NONE, 1 => ONLY TARGETS, 2 => ALL packages = packages, version_flags = dofile "profile_build_scripts/VERSION.lua", disclaimer_strings = dofile "profile_build_scripts/DISCLAIMER.lua", global_flags = { debug="yes", use_lstrip = "no", use_readline="yes", optimization = "no", platform = "unix", extra_flags={ "-pg", "-DNO_POOL", "-DNO_OMP", "-DNO_MM_MALLOC", "-fPIC", }, extra_libs={ "-fPIC", "-lpthread", "-lblas", "-lcblas", "-latlas", "-rdynamic", "-llapack_atlas", "-llapacke", }, shared_extra_libs={ "-shared", "-llua5.2", }, }, main_package = package{ name = "main_package", default_target = "build", target{ name = "init", mkdir{ dir = "bin" }, mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file = formiga.os.compose_dir(formiga.os.cwd,"lua","include","*.h"), dest_dir = "include" } }, target{ name = "clean_all", exec{ command = [[find . -name "*~" -exec rm {} ';']] }, delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "clean", delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, }, target{ name = "document_clean", delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "build", depends = "provide", object{ file = formiga.os.compose_dir("binding","c_src","*.cc"), include_dirs = "include", dest_dir = formiga.global_properties.build_dir, }, link_main_program{}, create_static_library{}, copy_header_files{}, dot_graph{ file_name = "dep_graph.dot" }, use_timestamp = true, }, target{ name = "test", depends = "build", }, target{ name = "document", echo{"this is documentation"}, main_documentation{ dev_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_dev.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, }, user_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_user_ref.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, } }, }, }, } if arg[2] == nil then arg[2] = "." end if arg[1] ~= "document" and arg[1] ~= "test" then formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "bin")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "lib")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "include")) formiga.os.execute("cp -f "..formiga.os.compose_dir(formiga.build_dir,"bin",formiga.program_name) .." "..formiga.os.compose_dir(arg[2], "bin", formiga.program_name)) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"lib") .." "..arg[2]) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"include","april-ann") .." "..formiga.os.compose_dir(arg[2], "include")) end april-ann-0.3.1/profile_build_scripts/build_release_NOBLAS.lua000066400000000000000000000065241234204160600243270ustar00rootroot00000000000000dofile("binding/formiga.lua") formiga.build_dir = "build_NOBLAS_release" local packages = dofile "profile_build_scripts/package_list.lua" table.insert(packages, "rlcompleter") -- AUTOCOMPLETION => needs READLINE luapkg{ program_name = "april-ann", verbosity_level = 0, -- 0 => NONE, 1 => ONLY TARGETS, 2 => ALL packages = packages, version_flags = dofile "profile_build_scripts/VERSION.lua", disclaimer_strings = dofile "profile_build_scripts/DISCLAIMER.lua", global_flags = { debug="no", use_lstrip = "yes", use_readline="yes", optimization = "yes", platform = "unix", extra_flags={ "-march=native", "-msse", "-DNDEBUG", "-DNO_BLAS", "-DNOOMP", "-fPIC", }, extra_libs={ "-fPIC", "-rdynamic", "-Wl,-E -ldl" }, shared_extra_libs={ "-shared", "-llua5.2", }, }, main_package = package{ name = "main_package", default_target = "build", target{ name = "init", mkdir{ dir = "bin" }, mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file = formiga.os.compose_dir(formiga.os.cwd,"lua","include","*.h"), dest_dir = "include" } }, target{ name = "clean_all", exec{ command = [[find . -name "*~" -exec rm {} ';']] }, delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "clean", delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, }, target{ name = "document_clean", delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "build", depends = "provide", object{ file = formiga.os.compose_dir("binding","c_src","*.cc"), include_dirs = "include", dest_dir = formiga.global_properties.build_dir, }, link_main_program{}, create_static_library{}, copy_header_files{}, dot_graph{ file_name = "dep_graph.dot" }, use_timestamp = true, }, target{ name = "test", depends = "build", }, target{ name = "document", echo{"this is documentation"}, main_documentation{ dev_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_dev.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, }, user_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_user_ref.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, } }, }, }, } if arg[2] == nil then arg[2] = "." end if arg[1] ~= "document" and arg[1] ~= "test" then formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "bin")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "lib")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "include")) formiga.os.execute("cp -f "..formiga.os.compose_dir(formiga.build_dir,"bin",formiga.program_name) .." "..formiga.os.compose_dir(arg[2], "bin", formiga.program_name)) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"lib") .." "..arg[2]) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"include","april-ann") .." "..formiga.os.compose_dir(arg[2], "include")) end april-ann-0.3.1/profile_build_scripts/build_release_atlas.lua000066400000000000000000000066511234204160600244560ustar00rootroot00000000000000dofile("binding/formiga.lua") formiga.build_dir = "build_release" local packages = dofile "profile_build_scripts/package_list.lua" table.insert(packages, "rlcompleter") -- AUTOCOMPLETION => needs READLINE luapkg{ program_name = "april-ann", verbosity_level = 0, -- 0 => NONE, 1 => ONLY TARGETS, 2 => ALL packages = packages, version_flags = dofile "profile_build_scripts/VERSION.lua", disclaimer_strings = dofile "profile_build_scripts/DISCLAIMER.lua", global_flags = { debug="no", use_lstrip = "yes", use_readline="yes", optimization = "yes", platform = "unix", extra_flags={ "-march=native", "-msse", "-DNDEBUG", "-fopenmp", "-fPIC", }, extra_libs={ "-fPIC", "-lpthread", "-lblas", "-lcblas", "-latlas", "-fopenmp", "-rdynamic", "-llapack_atlas", "-llapacke", }, shared_extra_libs={ "-shared", "-llua5.2", }, }, main_package = package{ name = "main_package", default_target = "build", target{ name = "init", mkdir{ dir = "bin" }, mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file = formiga.os.compose_dir(formiga.os.cwd,"lua","include","*.h"), dest_dir = "include" } }, target{ name = "clean_all", exec{ command = [[find . -name "*~" -exec rm {} ';']] }, delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "clean", delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, }, target{ name = "document_clean", delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "build", depends = "provide", object{ file = formiga.os.compose_dir("binding","c_src","*.cc"), include_dirs = "include", dest_dir = formiga.global_properties.build_dir, }, link_main_program{}, create_static_library{}, copy_header_files{}, dot_graph{ file_name = "dep_graph.dot" }, use_timestamp = true, }, target{ name = "test", depends = "build", }, target{ name = "document", echo{"this is documentation"}, main_documentation{ dev_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_dev.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, }, user_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_user_ref.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, } }, }, }, } if arg[2] == nil then arg[2] = "." end if arg[1] ~= "document" and arg[1] ~= "test" then formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "bin")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "lib")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "include")) formiga.os.execute("cp -f "..formiga.os.compose_dir(formiga.build_dir,"bin",formiga.program_name) .." "..formiga.os.compose_dir(arg[2], "bin", formiga.program_name)) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"lib") .." "..arg[2]) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"include","april-ann") .." "..formiga.os.compose_dir(arg[2], "include")) end april-ann-0.3.1/profile_build_scripts/build_release_cuda_and_mkl.lua000066400000000000000000000075241234204160600257530ustar00rootroot00000000000000dofile("binding/formiga.lua") formiga.build_dir = "build_release_cuda_and_mkl" local packages = dofile "profile_build_scripts/package_list.lua" table.insert(packages, "rlcompleter") -- AUTOCOMPLETION => needs READLINE luapkg{ program_name = "april-ann", verbosity_level = 0, -- 0 => NONE, 1 => ONLY TARGETS, 2 => ALL packages = packages, version_flags = dofile "profile_build_scripts/VERSION.lua", disclaimer_strings = dofile "profile_build_scripts/DISCLAIMER.lua", global_flags = { debug="no", use_lstrip = "yes", use_readline="yes", optimization = "yes", platform = "unix64+cuda", ignore_cuda = false, no_shared = true, extra_flags={ -- For Intel MKL :) "-DUSE_MKL", "-I/opt/MKL/include", -------------------- "-march=native", "-msse", "-DNDEBUG", "-DNO_OMP", "-DNO_POOL", --"-fPIC", -- For CUDA --"-I/usr/local/cuda/include", --"-L/usr/local/cuda/lib", }, extra_libs={ --"-fPIC", "-rdynamic", -- For Intel MKL :) "-L/opt/MKL/lib", "-lmkl_intel_lp64", "-Wl,--start-group", "-lmkl_intel_thread", "-lmkl_core", "-Wl,--end-group", "/opt/MKL/lib/libiomp5.a", -- For CUBLAS "-lcublas", -- "-lpthread", }, shared_extra_libs={ "-shared", "-llua5.2", }, }, main_package = package{ name = "main_package", default_target = "build", target{ name = "init", mkdir{ dir = "bin" }, mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file = formiga.os.compose_dir(formiga.os.cwd,"lua","include","*.h"), dest_dir = "include" } }, target{ name = "clean_all", exec{ command = [[find . -name "*~" -exec rm {} ';']] }, delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "clean", delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, }, target{ name = "document_clean", delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "build", depends = "provide", object{ file = formiga.os.compose_dir("binding","c_src","*.cc"), include_dirs = "include", dest_dir = formiga.global_properties.build_dir, }, link_main_program{}, create_static_library{}, copy_header_files{}, dot_graph{ file_name = "dep_graph.dot" }, use_timestamp = true, }, target{ name = "test", depends = "build", }, target{ name = "document", echo{"this is documentation"}, main_documentation{ dev_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_dev.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, }, user_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_user_ref.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, } }, }, }, } if arg[2] == nil then arg[2] = "." end if arg[1] ~= "document" and arg[1] ~= "test" then formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "bin")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "lib")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "include")) formiga.os.execute("cp -f "..formiga.os.compose_dir(formiga.build_dir,"bin",formiga.program_name) .." "..formiga.os.compose_dir(arg[2], "bin", formiga.program_name)) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"lib") .." "..arg[2]) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"include","april-ann") .." "..formiga.os.compose_dir(arg[2], "include")) end april-ann-0.3.1/profile_build_scripts/build_release_homebrew.lua000066400000000000000000000077361234204160600251670ustar00rootroot00000000000000dofile("binding/formiga.lua") formiga.build_dir = "build_release_homebrew" local packages = dofile "profile_build_scripts/package_list.lua" table.insert(packages, "rlcompleter") -- AUTOCOMPLETION => needs READLINE luapkg{ program_name = "april-ann", verbosity_level = 0, -- 0 => NONE, 1 => ONLY TARGETS, 2 => ALL packages = packages, version_flags = dofile "profile_build_scripts/VERSION.lua", disclaimer_strings = dofile "profile_build_scripts/DISCLAIMER.lua", global_flags = { debug="no", use_lstrip = "yes", use_readline="yes", optimization = "yes", platform = "unix", extra_flags={ "-D__HOMEBREW__", "-mtune=native", "-msse", "-DNDEBUG", "-DUSE_XCODE", "-F/System/Library/Frameworks/Accelerate.framework", "-DNO_OMP", "-fPIC", "-I/usr/local/opt/readline/include", -- homebrew, change if necessary }, extra_libs={ "-L/usr/local/lib", -- homebrew, change if necessary "-L/usr/local/opt/readline/lib", -- homebrew, change if necessary "-lpthread", "-lpng", "/System/Library/Frameworks/Accelerate.framework/Versions/A/Accelerate", "/System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib", "/System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libLAPACK.dylib", "-rdynamic", "-fPIC", }, shared_extra_libs={ "-flat_namespace", "-bundle", }, }, main_package = package{ name = "main_package", default_target = "build", target{ name = "init", mkdir{ dir = "bin" }, mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file = formiga.os.compose_dir(formiga.os.cwd,"lua","include","*.h"), dest_dir = "include" } }, target{ name = "clean_all", exec{ command = [[find . -name "*~" -exec rm {} ';']] }, delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "clean", delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, }, target{ name = "document_clean", delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "build", depends = "provide", object{ file = formiga.os.compose_dir("binding","c_src","*.cc"), include_dirs = "include", dest_dir = formiga.global_properties.build_dir, }, link_main_program{}, create_static_library{}, copy_header_files{}, dot_graph{ file_name = "dep_graph.dot" }, use_timestamp = true, }, target{ name = "test", depends = "build", }, target{ name = "document", echo{"this is documentation"}, main_documentation{ dev_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_dev.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, }, user_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_user_ref.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, } }, }, }, } if arg[2] == nil then arg[2] = "." end if arg[1] ~= "document" and arg[1] ~= "test" then formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "bin")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "lib")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "include")) formiga.os.execute("cp -f "..formiga.os.compose_dir(formiga.build_dir,"bin",formiga.program_name) .." "..formiga.os.compose_dir(arg[2], "bin", formiga.program_name)) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"lib") .." "..arg[2]) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"include","april-ann") .." "..formiga.os.compose_dir(arg[2], "include")) end april-ann-0.3.1/profile_build_scripts/build_release_macports.lua000066400000000000000000000075511234204160600252020ustar00rootroot00000000000000dofile("binding/formiga.lua") formiga.build_dir = "build_release_macports" local packages = dofile "profile_build_scripts/package_list.lua" table.insert(packages, "rlcompleter") -- AUTOCOMPLETION => needs READLINE luapkg{ program_name = "april-ann", verbosity_level = 0, -- 0 => NONE, 1 => ONLY TARGETS, 2 => ALL packages = packages, version_flags = dofile "profile_build_scripts/VERSION.lua", disclaimer_strings = dofile "profile_build_scripts/DISCLAIMER.lua", global_flags = { debug="no", use_lstrip = "yes", use_readline="yes", optimization = "yes", platform = "unix", extra_flags={ "-mtune=native", "-msse", "-DNDEBUG", "-DUSE_XCODE", "-F/System/Library/Frameworks/Accelerate.framework", "-DNO_OMP", "-fPIC", }, extra_libs={ "-L/opt/local/lib", -- macports, change if necessary "-lpthread", "-lpng", "/System/Library/Frameworks/Accelerate.framework/Versions/A/Accelerate", "/System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib", "/System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libLAPACK.dylib", "-rdynamic", "-fPIC", }, shared_extra_libs={ "-flat_namespace", "-bundle", assert(io.popen("pkg-config --libs 'lua >= 5.2'"):read("*l")) }, }, main_package = package{ name = "main_package", default_target = "build", target{ name = "init", mkdir{ dir = "bin" }, mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file = formiga.os.compose_dir(formiga.os.cwd,"lua","include","*.h"), dest_dir = "include" } }, target{ name = "clean_all", exec{ command = [[find . -name "*~" -exec rm {} ';']] }, delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "clean", delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, }, target{ name = "document_clean", delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "build", depends = "provide", object{ file = formiga.os.compose_dir("binding","c_src","*.cc"), include_dirs = "include", dest_dir = formiga.global_properties.build_dir, }, link_main_program{}, create_static_library{}, copy_header_files{}, dot_graph{ file_name = "dep_graph.dot" }, use_timestamp = true, }, target{ name = "test", depends = "build", }, target{ name = "document", echo{"this is documentation"}, main_documentation{ dev_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_dev.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, }, user_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_user_ref.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, } }, }, }, } if arg[2] == nil then arg[2] = "." end if arg[1] ~= "document" and arg[1] ~= "test" then formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "bin")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "lib")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "include")) formiga.os.execute("cp -f "..formiga.os.compose_dir(formiga.build_dir,"bin",formiga.program_name) .." "..formiga.os.compose_dir(arg[2], "bin", formiga.program_name)) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"lib") .." "..arg[2]) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"include","april-ann") .." "..formiga.os.compose_dir(arg[2], "include")) end april-ann-0.3.1/profile_build_scripts/build_release_mkl.lua000066400000000000000000000071431234204160600241320ustar00rootroot00000000000000dofile("binding/formiga.lua") formiga.build_dir = "build_release_mkl" local packages = dofile "profile_build_scripts/package_list.lua" table.insert(packages, "rlcompleter") -- AUTOCOMPLETION => needs READLINE luapkg{ program_name = "april-ann", verbosity_level = 0, -- 0 => NONE, 1 => ONLY TARGETS, 2 => ALL packages = packages, version_flags = dofile "profile_build_scripts/VERSION.lua", disclaimer_strings = dofile "profile_build_scripts/DISCLAIMER.lua", global_flags = { debug="no", use_lstrip = "yes", use_readline="yes", optimization = "yes", platform = "unix", extra_flags={ -- For Intel MKL :) "-DUSE_MKL", "-I/opt/MKL/include", -------------------- "-march=native", "-msse", "-DNDEBUG", "-fopenmp", "-fPIC", }, extra_libs={ "-fPIC", "-lpthread", "-rdynamic", -- For Intel MKL :) "-L/opt/MKL/lib", "-lmkl_intel_lp64", "-Wl,--start-group", "-lmkl_intel_thread", "-lmkl_core", "-Wl,--end-group", "-liomp5", }, shared_extra_libs={ "-shared", "-llua5.2", }, }, main_package = package{ name = "main_package", default_target = "build", target{ name = "init", mkdir{ dir = "bin" }, mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file = formiga.os.compose_dir(formiga.os.cwd,"lua","include","*.h"), dest_dir = "include" } }, target{ name = "clean_all", exec{ command = [[find . -name "*~" -exec rm {} ';']] }, delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "clean", delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, }, target{ name = "document_clean", delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "build", depends = "provide", object{ file = formiga.os.compose_dir("binding","c_src","*.cc"), include_dirs = "include", dest_dir = formiga.global_properties.build_dir, }, link_main_program{}, create_static_library{}, copy_header_files{}, dot_graph{ file_name = "dep_graph.dot" }, use_timestamp = true, }, target{ name = "test", depends = "build", }, target{ name = "document", echo{"this is documentation"}, main_documentation{ dev_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_dev.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, }, user_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_user_ref.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, } }, }, }, } if arg[2] == nil then arg[2] = "." end if arg[1] ~= "document" and arg[1] ~= "test" then formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "bin")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "lib")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "include")) formiga.os.execute("cp -f "..formiga.os.compose_dir(formiga.build_dir,"bin",formiga.program_name) .." "..formiga.os.compose_dir(arg[2], "bin", formiga.program_name)) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"lib") .." "..arg[2]) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"include","april-ann") .." "..formiga.os.compose_dir(arg[2], "include")) end april-ann-0.3.1/profile_build_scripts/build_release_no_omp.lua000066400000000000000000000066601234204160600246410ustar00rootroot00000000000000dofile("binding/formiga.lua") formiga.build_dir = "build_release_no_omp" local packages = dofile "profile_build_scripts/package_list.lua" table.insert(packages, "rlcompleter") -- AUTOCOMPLETION => needs READLINE luapkg{ program_name = "april-ann", verbosity_level = 0, -- 0 => NONE, 1 => ONLY TARGETS, 2 => ALL packages = packages, version_flags = dofile "profile_build_scripts/VERSION.lua", disclaimer_strings = dofile "profile_build_scripts/DISCLAIMER.lua", global_flags = { debug="no", use_lstrip = "yes", use_readline="yes", optimization = "yes", platform = "unix", extra_flags={ "-march=native", "-msse", "-DNDEBUG", "-DNO_OMP", "-fPIC", }, extra_libs={ "-fPIC", "-lpthread", "-lblas", "-lcblas", "-latlas", "-fopenmp", "-rdynamic", "-llapack_atlas", "-llapacke", }, shared_extra_libs={ "-shared", "-llua5.2", }, }, main_package = package{ name = "main_package", default_target = "build", target{ name = "init", mkdir{ dir = "bin" }, mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file = formiga.os.compose_dir(formiga.os.cwd,"lua","include","*.h"), dest_dir = "include" } }, target{ name = "clean_all", exec{ command = [[find . -name "*~" -exec rm {} ';']] }, delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "clean", delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, }, target{ name = "document_clean", delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "build", depends = "provide", object{ file = formiga.os.compose_dir("binding","c_src","*.cc"), include_dirs = "include", dest_dir = formiga.global_properties.build_dir, }, link_main_program{}, create_static_library{}, copy_header_files{}, dot_graph{ file_name = "dep_graph.dot" }, use_timestamp = true, }, target{ name = "test", depends = "build", }, target{ name = "document", echo{"this is documentation"}, main_documentation{ dev_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_dev.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, }, user_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_user_ref.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, } }, }, }, } if arg[2] == nil then arg[2] = "." end if arg[1] ~= "document" and arg[1] ~= "test" then formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "bin")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "lib")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "include")) formiga.os.execute("cp -f "..formiga.os.compose_dir(formiga.build_dir,"bin",formiga.program_name) .." "..formiga.os.compose_dir(arg[2], "bin", formiga.program_name)) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"lib") .." "..arg[2]) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"include","april-ann") .." "..formiga.os.compose_dir(arg[2], "include")) end april-ann-0.3.1/profile_build_scripts/build_release_pi.lua000066400000000000000000000066421234204160600237620ustar00rootroot00000000000000dofile("binding/formiga.lua") formiga.build_dir = "build_release_pi" local packages = dofile "profile_build_scripts/package_list.pi.lua" table.insert(packages, "rlcompleter") -- AUTOCOMPLETION => needs READLINE luapkg{ program_name = "april-ann", verbosity_level = 0, -- 0 => NONE, 1 => ONLY TARGETS, 2 => ALL packages = packages, version_flags = dofile "profile_build_scripts/VERSION.lua", disclaimer_strings = dofile "profile_build_scripts/DISCLAIMER.lua", global_flags = { debug="no", use_lstrip = "yes", use_readline="yes", optimization = "yes", platform = "unix", extra_flags={ "-DNDEBUG", "-DNO_POOL", "-DNO_OMP", "-DNO_MM_MALLOC", "-fPIC", }, extra_libs={ "-fPIC", "-lpthread", "-lblas", "-lcblas", "-latlas", "-rdynamic", "-llapack_atlas", "-llapacke", }, shared_extra_libs={ "-shared", "-llua5.2", }, }, main_package = package{ name = "main_package", default_target = "build", target{ name = "init", mkdir{ dir = "bin" }, mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file = formiga.os.compose_dir(formiga.os.cwd,"lua","include","*.h"), dest_dir = "include" } }, target{ name = "clean_all", exec{ command = [[find . -name "*~" -exec rm {} ';']] }, delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "clean", delete{ dir = "bin" }, delete{ dir = "build" }, delete{ dir = "build_doc" }, }, target{ name = "document_clean", delete{ dir = "build_doc" }, delete{ dir = "doxygen_doc" }, }, target{ name = "build", depends = "provide", object{ file = formiga.os.compose_dir("binding","c_src","*.cc"), include_dirs = "include", dest_dir = formiga.global_properties.build_dir, }, link_main_program{}, create_static_library{}, copy_header_files{}, dot_graph{ file_name = "dep_graph.dot" }, use_timestamp = true, }, target{ name = "test", depends = "build", }, target{ name = "document", echo{"this is documentation"}, main_documentation{ dev_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_dev.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, }, user_documentation = { main_documentation_file = formiga.os.compose_dir("docs","april_user_ref.dox"), doxygen_options = { GENERATE_LATEX = 'NO', }, } }, }, }, } if arg[2] == nil then arg[2] = "." end if arg[1] ~= "document" and arg[1] ~= "test" then formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "bin")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "lib")) formiga.os.execute("mkdir -p "..formiga.os.compose_dir(arg[2], "include")) formiga.os.execute("cp -f "..formiga.os.compose_dir(formiga.build_dir,"bin",formiga.program_name) .." "..formiga.os.compose_dir(arg[2], "bin", formiga.program_name)) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"lib") .." "..arg[2]) formiga.os.execute("cp -R "..formiga.os.compose_dir(formiga.build_dir,"include","april-ann") .." "..formiga.os.compose_dir(arg[2], "include")) end april-ann-0.3.1/profile_build_scripts/package_list.lua000066400000000000000000000014401234204160600231100ustar00rootroot00000000000000return { -- BASIC PACAKGES -- "plotter", "util", "utest", "stats", "dataset", "matrix", "random", "cmdOpt", "profiler", "mathcore", "gzio", "matlab", "stats.MI", "autodiff", "autodiff.ann", -- MACHINE LEARNING "clustering.kmeans.matrix", "knn.kdtree", "trainable", -- "function_interface", -- NEURAL NETWORKS "ann", "ann.loss", "trainable", "ann.autoencoders", -- LANGUAGE MODELS -- "fnnlm", -- IMAGE HANDLERS "Image", "ImageIO", "libpng", "median_filter", "image_metrics", -- IMAGE PREPROCESSING "binarization_filter", "image_cleaning", "interest_points", "image_connected_components", -- --"libtiff", "ocr.off_line.param", "ocr.off_line_text_preprocessing", -- HMMs "hmm_trainer", "rates", } april-ann-0.3.1/profile_build_scripts/package_list.pi.lua000066400000000000000000000004671234204160600235270ustar00rootroot00000000000000return { -- BASIC PACAKGES "util", "utest", "stats", "dataset", "matrix", "random", "cmdOpt", "mathcore", "gzio", "trainable", "ann", "ann.loss", "knn.kdtree", "trainable", "ann.autoencoders", "Image", "ImageIO", "libpng", "stats.MI", "autodiff", "autodiff.ann", } april-ann-0.3.1/tools/000077500000000000000000000000001234204160600145325ustar00rootroot00000000000000april-ann-0.3.1/tools/ANNs/000077500000000000000000000000001234204160600153315ustar00rootroot00000000000000april-ann-0.3.1/tools/ANNs/convert_all_all_to_new_format.lua000066400000000000000000000003701234204160600241170ustar00rootroot00000000000000input_filename = arg[1] output_filename = arg[2] bunch_size = tonumber(arg[3] or 32) thenet = ann.mlp.all_all.load(input_filename) trainer = trainable.supervised_trainer(thenet, nil, bunch_size) trainer:build() trainer:save(output_filename) april-ann-0.3.1/tools/HMM_ANN/000077500000000000000000000000001234204160600156475ustar00rootroot00000000000000april-ann-0.3.1/tools/HMM_ANN/README.md000066400000000000000000000033751234204160600171360ustar00rootroot00000000000000HMM_ANN directory ================= Here there are scripts for estimation of Hidden Markov Models hybridized with Artificial Neural Networks, as described at this primary reference: - *Improving Offline Handwritten Text Recognition with Hybrid HMM/ANN Models*. S. España-Boquera, M.J. Castro-Bleda, J. Gorbe-Moya, F. Zamora-Martinez. IEEE Transactions on Pattern Analysis and Machine Intelligence. 2011. ## The algorithm idea BOULARD CITE DESCRIPTION OF EM ALGORITHM FOR HMM/ANNs ## Directory structure ``` HMM_ANN/ | |-- evaluation/ NOT READY YET | |-- recognition/ NOT READY YET | |-- segmentation/ Utilities to compute supervised segmentation of corpora | with trained models. | |-- nbest/ NOT READY YET | |-- training/ Utilities and scripts to train HMM/ANNs. \ -- other/ NOT READY YET ``` ## Works which uses this approach - *Improving Offline Handwritten Text Recognition with Hybrid HMM/ANN Models*. S. España-Boquera, M.J. Castro-Bleda, J. Gorbe-Moya, F. Zamora-Martinez. IEEE Transactions on Pattern Analysis and Machine Intelligence. 2011. - *Cache Neural Network Language Models*. F. Zamora-Martinez, S. España-Boquera, M.J. Castro-Bleda and R. de-Mori. International Conference on Acoustics, Speech and Signal Processing. 2013. - *Hybrid HMM/ANN models for bimodal online and offline cursive word recognition*. S. España-Boquera, J. Gorbe-Moya, F. Zamora-Martinez and M.J. Castro-Bleda. International Conference on Pattern Recognition. 2010. - *Unconstrained Offline Handwriting Recognition using Connectionist Character N-grams*. F. Zamora-Martinez, M.J. Castro-Bleda, S. España-Boquera and J. Gorbe-Moya. IEEE International Joint Conference on Neural Networks. 2010. april-ann-0.3.1/tools/HMM_ANN/evaluation/000077500000000000000000000000001234204160600200165ustar00rootroot00000000000000april-ann-0.3.1/tools/HMM_ANN/evaluation/compute_WER.lua000066400000000000000000000023751234204160600227210ustar00rootroot00000000000000if #arg ~= 2 then printf("SINTASIS: %s REF 1BEST\n", string.basename(arg[0])) os.exit(1) end local rf = io.open(arg[1]) local target = io.open(arg[2]) SER = 0 n = 0 rates_list = {} for correcta in rf:lines() do local reconocida = target:read("*l") if not reconocida then print("Warning!!! target shorter than reference") break end if reconocida ~= correcta then SER = SER + 1 end n = n + 1 table.insert(rates_list, { correcta, reconocida }) end resul = rates{ datatype = "pairs_lines", data = rates_list, rate = "ie", } resul_cer = rates{ datatype = "pairs_lines", data = rates_list, rate = "ie", words_width = 1, confusion_matrix = true, } tot = resul.borr + resul.sust + resul.ac printf ("WER: %f %% i:%f %% d:%f %% s:%f %% a:%f %%\n", resul.rate, resul.ins/tot*100, resul.borr/tot*100, resul.sust/tot*100, resul.ac/tot*100) printf ("CER: %f %%\n", resul_cer.rate) printf ("SER: %f %%\n", SER/n*100) local f = io.open("confus.matrix", "w") fprintf(f, "------ matriz de confusion -------\n") for i,j in pairs(resul_cer.confusion_matrix) do for k,l in pairs(j) do fprintf(f, "%-8s x %-8s -> %2d (%s)\n",i,k,l, (i==k and "DIAG") or "NOT-DIAG") end end fprintf(f, "----------------------------------\n") f:close() april-ann-0.3.1/tools/HMM_ANN/evaluation/compute_tasas_for_sentences_with_unks.lua000066400000000000000000000030211234204160600303740ustar00rootroot00000000000000if #arg ~= 3 then printf ("SINTAXIS: %s DICT REFERENCE TARGET\n", string.basename(arg[0])) os.exit(1) end dict=lexClass.load(io.open(arg[1])) ref = io.open(arg[2]) tar = io.open(arg[3]) list_unks = {} list_nounks = {} local SER = 0 for correcta in ref:lines() do local w = string.tokenize(correcta) local has_unk = false for i=1,#w do if dict:getWordId(w[i]) == nil then has_unk = true break end end local out = list_nounks local recog = tar:read("*l") if has_unk then out = list_unks elseif recog ~= correcta then SER = SER + 1 end table.insert(out, { correcta, recog }) end ref:close() tar:close() local resul_val_WER = tasas{ typedata = "pairs_lines", -- words_sep valor por defecto data = list_unks, tasa = "ie", -- para calcular wer } local resul_val_CER = tasas{ typedata = "pairs_lines", -- words_sep valor por defecto data = list_unks, tasa = "ie", -- para calcular wer words_width = 1, } printf ("%7d sentences with UNKS: WER %5.2f CER %5.2f\n", #list_unks, resul_val_WER.tasa, resul_val_CER.tasa) local resul_val_WER = tasas{ typedata = "pairs_lines", -- words_sep valor por defecto data = list_nounks, tasa = "ie", -- para calcular wer } local resul_val_CER = tasas{ typedata = "pairs_lines", -- words_sep valor por defecto data = list_nounks, tasa = "ie", -- para calcular wer words_width = 1, } printf ("%7d sentences without UNKS: WER %5.2f CER %5.2f SER %5.2f\n", #list_nounks, resul_val_WER.tasa, resul_val_CER.tasa, SER/#list_nounks*100) april-ann-0.3.1/tools/HMM_ANN/evaluation/extract_WER_weights.lua000066400000000000000000000106541234204160600244500ustar00rootroot00000000000000opt = cmdOpt{ program_name = string.basename(arg[0]), argument_description = "", main_description = "WER/CER extractor", { index_name="type", description="WER or CER or SER", short="t", argument="yes", }, { index_name="nbest", description="Nbest lists.", short="n", argument="yes", }, { index_name="reference", description="Reference transcriptions.", short="r", argument="yes", }, { index_name="feats", description="Output features.", short="F", argument="yes", }, { index_name="scores", description="Output scores.", short="S", argument="yes", }, { index_name="prev_feats", description="Previous features.", short="E", argument="yes", }, { index_name="prev_scores", description="Previous scores.", short="R", argument="yes", }, { index_name="filter", description="Lua filter (post-process).", short="f", argument="yes", }, { description = "shows this help message", short = "h", long = "help", argument = "no", action = function (argument) print(opt:generate_help()) os.exit(1) end } } optargs = opt:parse_args(args) if not optargs.nbest or not optargs.reference then error("Needs a target and a reference files!!!") end local rf = io.open(optargs.reference) if optargs.filter then filter = dofile(optargs.filter) else filter = function (str) return str end end local currentn = 0 local correcta local type = optargs.type or "WER" local nbestf = io.open(optargs.nbest) lista_tasas = {} features = {} correcta=rf:read("*l") scoresf = io.open(optargs.scores, "w") featsf = io.open(optargs.feats, "w") if optargs.prev_scores then prev_scoresf = io.open(optargs.prev_scores, "r") prev_featsf = io.open(optargs.prev_feats, "r") end local kk = 0 while true do nbest_line=nbestf:read("*l") if nbest_line then n,reconocida,f,p = string.match(nbest_line, "(.*)|||(.*)|||(.*)|||(.*)") if n == nil then reconocida = nbest_line f = "0" p = "0" n = kk kk = kk + 1 end end if not nbest_line or tonumber(n) ~= currentn then fprintf(io.stderr,".") io.stdout:flush() local output_scores = {} local output_features = {} local size = 0 -- procesamos las NBEST local resul_val if type == "WER" then resul_val = tasas{ typedata = "pairs_lines", data = lista_tasas, tasa = "raw", } elseif type == "CER" then resul_val = tasas{ typedata = "pairs_lines", data = lista_tasas, tasa = "raw", words_width = 1, } elseif type == "SER" then resul_val = {} for i=1,#lista_tasas do resul_val[i] = { na=0, ns=0, ni=0, nb=0 } if lista_tasas[i][1] == lista_tasas[i][2] then resul_val[i].na = 1 else resul_val[i].ns = 1 end end else error ("Incorrect type: " .. type) end for i,j in ipairs(resul_val) do -- Aciertos Sustituciones Inserciones Borrados table.insert(output_scores, string.format("%d %d %d %d", j.na, j.ns, j.ni, j.nb)) size = size + 1 end if prev_scoresf then local line = prev_scoresf:read("*l") while true do local line = prev_scoresf:read("*l") if line ~= "SCORES_TXT_END_0" then table.insert(output_scores, line) size = size + 1 else break end end end fprintf(scoresf,"SCORES_TXT_BEGIN_0 %d %d 4 Acc Sub Ins Del\n", currentn, size) fprintf(scoresf, table.concat(output_scores, "\n").."\n") fprintf(scoresf,"SCORES_TXT_END_0\n") fprintf(featsf,"FEATURES_TXT_BEGIN_0 %d %d 3 hmm lm wip\n", currentn, size) fprintf(featsf,table.concat(features, "\n").."\n") if prev_featsf then local line = prev_featsf:read("*l") while true do local line = prev_featsf:read("*l") if line ~= "FEATURES_TXT_END_0" then fprintf(featsf, "%s\n", line) else break end end end fprintf(featsf,"FEATURES_TXT_END_0\n") if not nbest_line then break end -- reiniciamos lista_tasas = {} features = {} correcta=rf:read("*l") if not correcta then error("Incorrect number of sentences") end size = 0 currentn = tonumber(n) end table.insert(lista_tasas, {filter(correcta), filter(reconocida)}) table.insert(features, f) end fprintf(io.stderr,"\n") nbestf:close() scoresf:close() featsf:close() if prev_featsf then prev_featsf:close() end if prev_scoresf then prev_scoresf:close() end april-ann-0.3.1/tools/HMM_ANN/generate_conf.lua000066400000000000000000000016071234204160600211550ustar00rootroot00000000000000conf=arg[1] optargs = {} if io.open(conf) then local t = dofile(conf) for name,value in pairs(t) do optargs[name] = value end i=2 else i=1 end while i <= #arg do local t = {} if string.sub(arg[i], 1, 2) == "--" then local r = string.tokenize(arg[i], "=") if r[1] ~= "--defopt" then t[1] = string.gsub(r[1], "%-%-", "") t[1] = string.gsub(t[1], "%-", "_") t[2] = r[2] end else t[1] = string.sub(arg[i], 2, 2) if t[1] ~= "f" then if string.sub(arg[i+1] or "-", 1, 1) == "-" then t[2] = string.sub(arg[i], 3, #arg[i]) else i=i+1 t[2] = arg[i] end end end if #t == 2 then optargs[t[1]] = t[2] end i=i+1 end print("return {") for name,value in pairs(optargs) do printf(" %s=", name) if tonumber(value) then printf ("%g,\n", tonumber(value)) else printf ("\"%s\",\n", value) end end print("}") april-ann-0.3.1/tools/HMM_ANN/nbest/000077500000000000000000000000001234204160600167625ustar00rootroot00000000000000april-ann-0.3.1/tools/HMM_ANN/nbest/nbest-lattice-sri.lua000066400000000000000000000024451234204160600230230ustar00rootroot00000000000000scale=arg[1] nbestfilename=arg[2] local outdir=os.tmpname() os.execute("rm -f " .. outdir) os.execute("mkdir " .. outdir) nbestf = io.open(nbestfilename, "r") fprintf(io.stderr, "GSF: %f\n", scale) local i = 1 local prevn = nil local outf = nil for line in nbestf:lines() do local n,sentence,score = string.match(line, "(.*)|||(.*)|||.*|||%s*(.*)%s*") if i % 1000 == 0 then collectgarbage("collect") end i = i + 1 if tonumber(n) ~= tonumber(prevn) then fprintf(io.stderr, "Converting to SRI format nbest list %d\n", n) prevn=n if outf then outf:close() end outf = io.open(outdir .. string.format("/nbest_%06d.txt",n), "w") outf:write("NBestList1.0\n") end fprintf(outf, "(%s) %s\n", score, sentence) end outf:close() local auxlist=os.tmpname() os.execute("ls ".. outdir .. "/* > " .. auxlist) -- -no-reorder -prime-lattice local f = io.popen("/home/experimentos/HERRAMIENTAS/bin/nbest-lattice ".. " -lattice-wer -nbest-files ".. auxlist .. " -rescore-lmw 1 -posterior-scale " .. scale) fprintf(io.stderr, "Minimizing WER\n") for line in f:lines() do local t = string.tokenize(line) fprintf(io.stderr, ".") print(table.concat(t, " ", 2, #t)) io.stderr:flush() io.stdout:flush() end fprintf(io.stderr, "\n") os.execute("rm -Rf " .. auxlist .. " " .. outdir) april-ann-0.3.1/tools/HMM_ANN/nbest/rescoring-only-recog.sh000077500000000000000000000021671234204160600233760ustar00rootroot00000000000000#!/bin/bash prefix=$1 feats=$2 nbest=$3 trie_size=$4 nnlm=$5 vocab=$6 use_ccs=$7 if [ -z $use_ccs ]; then use_ccs="yes" fi if [ -e $prefix ]; then echo "ERROR, exists $prefix, sure this is PREFIX???" exit 12; fi april=~experimentos/HERRAMIENTAS/bin/april tools=~experimentos/HERRAMIENTAS april_tools="$tools/april_tools" generate_conf=$april_tools/HMM_ANN/generate_conf.lua echo "# computing NNLM feature" stdout=$prefix.NNLM_feature if [ ! -e $stdout.gz ]; then $april ~experimentos/HERRAMIENTAS/april_tools/NBEST/compute_nnlm_score.lua \ $nbest $nnlm $vocab $trie_size $use_ccs $use_ccs 2> $prefix.time.txt | gzip -c > $stdout.gz fi nnlmfeats=$prefix.`basename $feats .gz`.nnlm.gz if [ ! -e $nnlmfeats ]; then echo "# substituting LM features with " $nnlmfeats $april ~experimentos/HERRAMIENTAS/april_tools/NBEST/substitute_feature.lua 2 $feats $prefix.NNLM_feature.gz | gzip -c > $nnlmfeats fi if [ ! -e $prefix.recog.out ]; then echo "# rescoring" $april ~experimentos/HERRAMIENTAS/april_tools/NBEST/rerank.lua \ weights.txt $nbest $nnlmfeats $prefix.reranked-nbest.out.gz > $prefix.recog.out fi april-ann-0.3.1/tools/HMM_ANN/nbest/rescoring-with-cache-nnlm-only-recog.sh000077500000000000000000000037211234204160600263470ustar00rootroot00000000000000#!/bin/bash prefix=$1 feats=$2 nbest=$3 trie_size=$4 nnlm=$5 vocab=$6 extra_cache_set=$7 use_ccs=$8 scale=15 epsilon=0.0001 if [ -z $use_ccs ]; then use_ccs="yes" fi if [ -e $prefix ]; then echo "ERROR, exists $prefix, sure this is PREFIX???" exit 12; fi april=~experimentos/HERRAMIENTAS/bin/april tools=~experimentos/HERRAMIENTAS april_tools="$tools/april_tools" generate_conf=$april_tools/HMM_ANN/generate_conf.lua feats0=$prefix.reranked-feats.run0.out.gz nbest0=$prefix.reranked-nbest.run0.out.gz if [ ! -e $nbest0 ]; then ln -s $nbest $nbest0; ln -s $feats $feats0; fi nbest=$nbest0 feats=$feats0 prevrun=0 run=1 while true; do echo "# computing NNLM feature at run $run with $nbest" stdout=$prefix.NNLM_feature.run$run if [ ! -e $stdout.gz ]; then $april ~experimentos/HERRAMIENTAS/april_tools/NBEST/compute_nnlm_score.lua \ $nbest $nnlm $vocab $trie_size $use_ccs $use_ccs $extra_cache_set 2> $prefix.time.run$run.txt | gzip -c > $stdout.gz fi nnlmfeats=`basename $feats .gz`.nnlm.gz if [ ! -e $nnlmfeats ]; then echo "# substituting LM features with " $nnlmfeats $april ~experimentos/HERRAMIENTAS/april_tools/NBEST/substitute_feature.lua 2 $feats $stdout.gz | gzip -c > $nnlmfeats fi if [ ! -e $prefix.recog.run$run.out ]; then echo "# rescoring at run $run" $april ~experimentos/HERRAMIENTAS/april_tools/NBEST/rerank.lua \ weights.run`cat finished.txt`.txt $nbest $nnlmfeats \ $prefix.reranked-nbest.run$run.out.gz \ $prefix.reranked-feats.run$run.out.gz > $prefix.recog.run$run.out fi stop=0 if [ -e $prefix.recog.run$prevrun.out ]; then diff=`diff $prefix.recog.run$prevrun.out $prefix.recog.run$run.out | wc -l` if (( "$diff" == 0 )); then stop=1 fi fi if (( "$stop" == 1 )); then echo $run > $prefix.finished.txt break; fi nbest=$prefix.reranked-nbest.run$run.out.gz feats=$prefix.reranked-feats.run$run.out.gz prevrun=$run run=`expr $run + 1` done april-ann-0.3.1/tools/HMM_ANN/nbest/rescoring-with-cache-nnlm.sh000077500000000000000000000061571234204160600243010ustar00rootroot00000000000000#!/bin/bash deven=$1 nbest=$2 trie_size=$3 nnlm=$4 vocab=$5 extra_cache_set=$6 use_ccs=$7 if [ -z $use_ccs ]; then use_ccs="yes" fi scale=15 epsilon=0.0001 echo $@ > rescoring.conf if [ ! -e init.opt ]; then echo "Needs a init.opt file!!!" exit 1; fi april=~experimentos/HERRAMIENTAS/bin/april tools=~experimentos/HERRAMIENTAS april_tools="$tools/april_tools" scorer="$april $april_tools/HMM_ANN/extract_WER_weights.lua" generate_conf=$april_tools/HMM_ANN/generate_conf.lua mert="$april $april_tools/optimizer_weights.lua -s WER -t simplex -a 2 " nbest0=dev.run0.reranked-nbest.out.gz if [ ! -e $nbest0 ]; then ln -s $nbest $nbest0; fi nbest=$nbest0 prevrun=0 run=1 while true; do echo "# computing NNLM feature for run $run using $nbest" stdout=NNLM_feature.run$run if [ ! -e $stdout.gz ]; then $april ~experimentos/HERRAMIENTAS/april_tools/NBEST/compute_nnlm_score.lua \ $nbest $nnlm $vocab $trie_size $use_ccs $use_ccs $extra_cache_set 2> time.run$run.txt | gzip -c > $stdout.gz fi if [ ! -e scores.run$run.dat.gz ]; then $scorer -r $deven \ -S scores.run$run.dat \ -F feats.run$run.dat \ -n $nbest gzip scores.run$run.dat gzip feats.run$run.dat fi feats=feats.run$run.dat.gz scores=scores.run$run.dat.gz nnlmfeats=`basename $feats .gz`.nnlm.gz if [ ! -e $nnlmfeats ]; then echo "# substituting LM features with " $nnlmfeats $april ~experimentos/HERRAMIENTAS/april_tools/NBEST/substitute_feature.lua 2 $feats $stdout.gz | gzip -c > $nnlmfeats fi if [ ! -e mert.run$run.log ]; then echo "# MERT" weights=( $(tail -n 1 "init.opt") ) sizew=${#weights[@]} seed=$RANDOM if [ -e seed.run$run.txt ]; then seed=`cat seed.run$run.txt`; fi echo $seed > seed.run$run.txt $mert -n 20 -d 3 -S scores.run$run.dat.gz \ -r $seed \ -F $nnlmfeats -i init.opt >& mert.run$run.log grep -i "best point: " mert.run$run.log | cut -d':' -f 2 | cut -d'=' -f 1 > weights.run$run.txt weights=( $(tail -n 1 "weights.run$run.txt") ) new_gsf=`echo "scale=$scale; ${weights[1]}/${weights[0]}" | bc` new_wip=`echo "scale=$scale; ${weights[2]}/${weights[0]}" | bc` echo "1 $new_gsf $new_wip" > weights.run$run.txt fi if [ ! -e dev.run$run.recog.out ]; then echo "# rescoring at run $run" $april ~experimentos/HERRAMIENTAS/april_tools/NBEST/rerank.lua \ weights.run$run.txt $nbest $nnlmfeats dev.run$run.reranked-nbest.out.gz > dev.run$run.recog.out fi echo "# Evaluando el resultado at run $run" $april $april_tools/HMM_ANN/compute_WER.lua $deven dev.run$run.recog.out > results.run$run.log stop=0 if [ -e results.run$prevrun.log ]; then wer=`grep WER results.run$run.log | awk '{ print $2 }'` prevwer=`grep WER results.run$prevrun.log | awk '{print $2}'` diff=`echo "scale=$scale; $prevwer - $wer" | bc` res=`echo "scale=$scale; $diff*$diff > $epsilon*$epsilon" | bc` # echo $diff ">" $epsilon "=" $res if (( "$res" == 0 )); then stop=1 fi fi if (( "$stop" == 1 )); then echo $run > finished.txt break; fi nbest=dev.run$run.reranked-nbest.out.gz prevrun=$run run=`expr $run + 1` done april-ann-0.3.1/tools/HMM_ANN/nbest/rescoring.sh000077500000000000000000000041551234204160600213210ustar00rootroot00000000000000#!/bin/bash deven=$1 nbest=$2 trie_size=$3 nnlm=$4 vocab=$5 use_ccs=$6 if [ -z $use_ccs ]; then use_ccs="yes" fi scale=15 echo $@ > rescoring.conf if [ ! -e init.opt ]; then echo "Needs a init.opt file!!!" exit 1; fi april=~experimentos/HERRAMIENTAS/bin/april tools=~experimentos/HERRAMIENTAS april_tools="$tools/april_tools" scorer="$april $april_tools/HMM_ANN/extract_WER_weights.lua" generate_conf=$april_tools/HMM_ANN/generate_conf.lua mert="$april $april_tools/optimizer_weights.lua -s WER -t simplex -a 2 " echo "# computing NNLM feature" stdout=NNLM_feature if [ ! -e $stdout.gz ]; then $april ~experimentos/HERRAMIENTAS/april_tools/NBEST/compute_nnlm_score.lua \ $nbest $nnlm $vocab $trie_size $use_ccs $use_ccs 2> time.txt | gzip -c > $stdout.gz fi if [ ! -e scores.dat.gz ]; then $scorer -r $deven \ -S scores.dat \ -F feats.dat \ -n $nbest gzip scores.dat gzip feats.dat fi feats=feats.dat.gz scores=scores.dat.gz nnlmfeats=`basename $feats .gz`.nnlm.gz if [ ! -e $nnlmfeats ]; then echo "# substituting LM features with " $nnlmfeats $april ~experimentos/HERRAMIENTAS/april_tools/NBEST/substitute_feature.lua 2 $feats NNLM_feature.gz | gzip -c > $nnlmfeats fi if [ ! -e mert.log ]; then echo "# MERT" weights=( $(tail -n 1 "init.opt") ) sizew=${#weights[@]} seed=$RANDOM if [ -e seed.txt ]; then seed=`cat seed.txt`; fi echo $seed > seed.txt $mert -n 20 -d 3 -S scores.dat.gz \ -r $seed \ -F $nnlmfeats -i init.opt >& mert.log grep -i "best point: " mert.log | cut -d':' -f 2 | cut -d'=' -f 1 > weights.txt weights=( $(tail -n 1 "weights.txt") ) new_gsf=`echo "scale=$scale; ${weights[1]}/${weights[0]}" | bc` new_wip=`echo "scale=$scale; ${weights[2]}/${weights[0]}" | bc` echo "1 $new_gsf $new_wip" > weights.txt fi if [ ! -e dev.recog.out ]; then echo "# rescoring" $april ~experimentos/HERRAMIENTAS/april_tools/NBEST/rerank.lua \ weights.txt $nbest $nnlmfeats dev.reranked-nbest.out.gz > dev.recog.out fi echo "# Evaluando el resultado" $april $april_tools/HMM_ANN/compute_WER.lua $deven dev.recog.out > results.log april-ann-0.3.1/tools/HMM_ANN/other/000077500000000000000000000000001234204160600167705ustar00rootroot00000000000000april-ann-0.3.1/tools/HMM_ANN/other/compute_mlp_posteriors.lua000066400000000000000000000105051234204160600243110ustar00rootroot00000000000000april_print_script_header(arg) dofile(string.get_path(arg[0]) .. "../utils.lua") cmdOptTest = cmdOpt{ program_name = string.basename(arg[0]), argument_description = "", main_description = "Generate the MLP posterior matrix", { index_name="n", description = "MLP file", short = "n", argument = "yes", mode = "always", }, { index_name="p", description = "File with the corpus mfccs data", short = "p", argument = "yes", mode = "always", }, { index_name = "context", -- antes ann_context_size description = "Size of ann context", long = "context", argument = "yes", mode = "always", default_value=4, filter=tonumber, }, { index_name = "feats_format", description = "Format of features mat or mfc", long = "feats-format", argument = "yes", mode = "always", default_value="mat", }, { index_name = "feats_norm", description = "Table with means and devs for features", long = "feats-norm", argument = "yes", filter = dofile, }, { index_name = "step", description = "Dataset step", long = "step", argument = "yes", mode = "always", default_value="1", filter=tonumber, }, { index_name = "dir", description = "Output dir", long = "dir", argument="yes", mode="always", default_value="posteriors", }, { index_name="f", description = "Force overwritten output files", short = "f", argument = "no", }, { index_name = "cores", description = "Number of cores (processes) to use", long = "cores", argument="yes", mode="always", default_value="2", filter=tonumber, }, { description = "shows this help message", short = "h", long = "help", argument = "no", action = function (argument) print(cmdOptTest:generate_help()) os.exit(1) end } } local optargs = cmdOptTest:parse_args() if type(optargs) == "string" then error(optargs) end filenet = optargs.n valfile = optargs.p dir = optargs.dir context = optargs.context step = optargs.step format = optargs.feats_format cores = optargs.cores feats_mean_and_devs = optargs.feats_norm force_write = optargs.f os.execute("mkdir -p " .. dir) -- trainer = trainable.supervised_trainer.load(filenet, nil, 128) num_emissions = trainer:get_output_size() frames_loader = nil if format == "mat" then frames_loader = load_matrix else frames_loader = load_mfcc end ----------------------------------------------------------------------------- local feats_f = io.open(valfile) local list = {} for feats_filename in feats_f:lines() do table.insert(list, feats_filename) end which_i_am,child_pid = util.split_process(cores) for index=which_i_am,#list,cores do collectgarbage("collect") local feats_filename = list[index] print ("# Loading frames: ", feats_filename, index .. "/" .. #list) local frames = frames_loader(feats_filename) local numFrames = frames:dim()[1] local numParams = frames:dim()[2] local parameters = { patternSize = {step, numParams}, offset = {0,0}, -- default value stepSize = {step, 0}, -- default value, second value is not important numSteps = {numFrames/step, 1} } local current_ds = dataset.matrix(frames, parameters) if feats_mean_and_devs then current_ds:normalize_mean_deviation(feats_mean_and_devs.means, feats_mean_and_devs.devs) end current_ds = dataset.contextualizer(current_ds, context, context) local output_mat = matrix(numFrames, num_emissions) local output_ds = dataset.matrix(output_mat) trainer:use_dataset{ input_dataset = current_ds, output_dataset = output_ds, } local base_name = string.remove_extension(string.basename(feats_filename)) if string.match(feats_filename, "%.gz") then base_name = string.remove_extension(base_name) end local outfile = string.format("%s/%s.mat.gz", dir, base_name) print ("# Saving MLP output: ", outfile) if io.open(outfile) and not force_write then error(string.format("# Output file '%s' exists, use -f to force overwritten\n", outfile)) else output_mat:toFilename(outfile, "ascii") end end if child_pid then -- esperamos a los hijos util.wait() end april-ann-0.3.1/tools/HMM_ANN/other/generate_initial_hmm_from_models_nstates_table.lua000066400000000000000000000040261234204160600311370ustar00rootroot00000000000000if #arg ~= 2 then fprintf(io.stderr, "SINTAXIS: %s TIEDLIST NSTATESFILE\n", arg[0]) os.exit(128) end tiedfile = arg[1] nstates_file = arg[2] -- objeto con informacion sobre modelos ligados tied = tied_model_manager(io.open(tiedfile)) local model2nstates = {} for line in io.lines(nstates_file) do local model_name, nstates = table.unpack(string.tokenize(line)) name = tied:get_model(model_name) if model2nstates[name] and model2nstates[name] ~= tonumber(nstates) then error ("Two tied models has different number of states :S " .. model_name .. " " .. name) end model2nstates[name] = tonumber(nstates) model2nstates[model_name] = tonumber(nstates) end local num_models = 0 local hmms = {} local next_emission = 1 local trainer = HMMTrainer.trainer() for model_id,name in ipairs(tied.id2name) do m = tied.tiedlist[name] if name == m then local num_states = model2nstates[name] if not num_states then error ("Inexistent model: " .. name) end local ploops = {} for i=1,num_states do ploops[i] = 0.5 end num_models = num_models + 1 local hmm_emissions = {} -- generamos el vector de emisiones for i=1,num_states do hmm_emissions[i] = next_emission next_emission = next_emission + 1 end -- este es el representante local desc = HMMTrainer.utils.generate_lr_hmm_desc(name, hmm_emissions, ploops, {}, name) local model = trainer:model(desc) hmms[name] = { model = model, emissions = hmm_emissions, } end end print("return { {") for name,model_info in pairs(hmms) do print("['".. string.gsub(name,"'","\\'") .. "'] = {") print("\tmodel=HMMTrainer.model.from_table(") printf("%s", model_info.model:to_string()) print("),") print("\temissions={".. table.concat(model_info.emissions, ",") .."}") print("},") end print("},") print("{") num_emissions = next_emission - 1 for i=1,num_emissions do printf("%g, ", 1/num_emissions) end print("},") print("}") april-ann-0.3.1/tools/HMM_ANN/other/generate_ose_string_from_viterbi_alignment.lua000066400000000000000000000164151234204160600303350ustar00rootroot00000000000000cmd = cmdOpt{ program_name = string.basename(arg[0]), argument_description = "", main_description = "Generation of Oversegmenter strings from viterbi forced alignment", { index_name="a", description="Force viterbi alignment file indexes", short="a", argument="yes", }, { index_name="t", description="Phone transcription file indexes", short="t", argument="yes", }, { index_name="m", description="HMMs models, in LUA format", short="m", argument="yes", }, { index_name="w", description="Whitespace/silence symbol", short="w", argument="yes", }, { index_name="mark_before_w", description="Mark frontier before whitespace/silence symbol (default no)", long="mark-before-w", argument="yes", }, { index_name="mark_after_w", description="Mark frontier before whitespace/silence symbol (default yes)", long="mark-after-w", argument="yes", }, { index_name="s", description="Use sure frontier (default no)", short="s", argument="yes", }, { index_name="d", description="Dest directory", short="d", argument="yes", }, { index_name="f", description="Filter the transcription to generate phon transcription", short="f", argument="yes", }, { description = "shows this help message", short = "h", long = "help", argument = "no", action = function (argument) print(cmd:generate_help()) os.exit(1) end } } optargs = cmd:parse_args() local mark_before_w = ((optargs.mark_before_w or "no") == "yes") local mark_after_w = ((optargs.mark_after_w or "yes") == "yes") local vit_index_filename = optargs.a or error ("Needs -a option!!!") local phn_index_filename = optargs.t or error ("Needs -t option!!!") local dest_dir = optargs.d or error ("Needs -d option!!!") local hmms_filename = optargs.m or error ("Needs -m option!!!") local white_symbol = optargs.w or error ("Needs -w option!!!") local sure_frontier = ((optargs.s or "no") == "yes") local filter = optargs.f if filter then filter = dofile(filter) else filter = function(str) return str end end if not mark_after_w and not mark_before_w then error("Is mandatory to mark frontiers before or/and after silences!!!") end m = dofile(hmms_filename) models = m[1] emiss2phon = {} phon2emiss = {} for name,model_info in pairs(models) do phon2emiss[name] = {} for _,e in ipairs(model_info.emissions) do emiss2phon[e] = name phon2emiss[name][e] = true end end local vit_file = io.open(vit_index_filename) local phn_file = io.open(phn_index_filename) for orig_filename in vit_file:lines() do collectgarbage("collect") local destname = dest_dir .. "/" .. string.basename(orig_filename) destname = string.gsub(destname, "%.mat.*$", ".ose") fprintf(io.stderr,"# Generando desde \t%s\ta\t%s\n", orig_filename,destname) local orig_phn_filename = phn_file:read("*l") local phn = filter(io.open(orig_phn_filename):read("*l")) local mat = matrix.fromFilename(orig_filename) local ds = dataset.matrix(mat) phn = string.tokenize(phn) local words = { } for i=1,#phn do if phn[i] == white_symbol then if phn[i+1] and phn[i+1] ~= white_symbol then table.insert(words, {}) end else if #words == 0 then table.insert(words, {}) end table.insert(words[#words], phn[i]) end end -- words es una tabla que contiene tablas con los fonemas de cada -- palabra, eliminando los de silencio local current_frame = 1 local current_word = 1 local current_phone = 1 -- primera frontera, se marca siempre local frontiers = { util.ose.compose_frontier{ util.ose.generate_output } } local last_value = -100 if ds:patternSize() ~= 1 then error ("Incorrect segmentation file") end function add_void_frontier() table.insert(frontiers, util.ose.compose_frontier{}) end function add_frontier() if sure_frontier then table.insert(frontiers, util.ose.compose_frontier{ util.ose.mark, util.ose.generate_output, util.ose.remove_marked } ) else table.insert(frontiers, util.ose.compose_frontier{ util.ose.generate_output }) end end function skip_silence() local skipped = false -- buscamos el primer frame que no es espacio while (current_frame < ds:numPatterns() and emiss2phon[ds:getPattern(current_frame)[1]] == white_symbol) do --print(current_frame, #frontiers) -- metemos la frontera despues del frame actual add_void_frontier() -- pasamos al siguiente current_frame = current_frame + 1 skipped = true end return skipped end -- buscamos el primer frame que no es espacio skip_silence() if current_frame ~= 1 then -- current_frame apunta al primer frame diferente de silencio, -- eliminamos el ultimo y anyadimos frontera table.remove(frontiers) if mark_after_w then add_frontier() else add_void_frontier() end else current_frame = 1 end -- a partir de este momento frontiers va siempre un frame por detras while current_frame < ds:numPatterns() do local last_e = -100 while (current_frame < ds:numPatterns() and emiss2phon[ds:getPattern(current_frame)[1]] == words[current_word][current_phone] and last_e <= ds:getPattern(current_frame)[1]) do -- anyadimos la frontera vacia del frame anterior al actual add_void_frontier() last_e = ds:getPattern(current_frame)[1] -- pasamos al siguiente current_frame = current_frame + 1 --print("O", current_frame, #frontiers) end -- anyadimos porque vamos retrasados un frame, por tanto esta va -- antes del simbolo local marked_before = false if mark_before_w and emiss2phon[ds:getPattern(current_frame)[1]] == white_symbol then add_frontier() marked_before = true end -- se ha producido el cambio de fonema, evitamos el silencio local skipped_silence = skip_silence() if skipped_silence and mark_before_w then -- eliminamos la ultima, para que vuelva a ir un frame por -- detras table.remove(frontiers) end --print("O", current_frame, #frontiers) -- pasamos al siguiente fonema current_phone = current_phone + 1 if current_phone > #words[current_word] then current_word = current_word + 1 current_phone = 1 -- cambio de palabra, metemos una frontera if current_frame < ds:numPatterns() then if mark_after_w or not marked_before then add_frontier() else add_void_frontier() end else -- ultima frontera, se marca siempre if skipped_silence then table.insert(frontiers, util.ose.compose_frontier{ util.ose.generate_output }) else add_frontier() end end -- corremos un frame current_frame = current_frame + 1 end end if current_word ~= #words+1 then error ("Incorrect words number") end if #frontiers ~= ds:numPatterns() + 1 then error ("Incorrect number of frontiers: " .. #frontiers .. " instead of " .. ds:numPatterns()+1) end local f = io.open(destname, "w") if not f then error("File not found!!! " .. destname) end f:write(table.concat(frontiers, "")) f:close() end april-ann-0.3.1/tools/HMM_ANN/other/mat2htk.lua000066400000000000000000000020771234204160600210530ustar00rootroot00000000000000-- recibe un fichero indice y un directorio destino index_list = arg[1] dest_dir = arg[2] function load_matrix(MFCCfilename) local f = io.open(MFCCfilename) or error ("No se ha podido encontrar "..MFCCfilename) local aux = f:read("*a") local ad = matrix.fromString(aux) f:close() return ad end gc_count = 1 for mat_filename in io.lines(index_list) do if gc_count > 100 then collectgarbage("collect") gc_count = 1 else gc_count = gc_count+1 end -- cargamos el dataset correspondiente a la frase actual -- local basename = string.remove_extension(string.basename(mat_filename)) print ("# loading matrix", mat_filename) local mat = matrix.fromFilename(mat_filename) local basename = string.basename(mat_filename) local extension = string.get_extension(basename) basename = string.remove_extension(basename) if (extension == 'gz') then basename = string.remove_extension(basename) end local dest = dest_dir .. '/' .. basename .. '.htk' print("# writing file ",dest) htk_interface.write_matrix_as_mfc_file(mat,dest,"USER") end april-ann-0.3.1/tools/HMM_ANN/other/tree2binary.lua000066400000000000000000000007501234204160600217230ustar00rootroot00000000000000if #arg < 3 or #arg > 4 then print("Usage: tree2binary vocabulary file.tree file.btree [swap_bytes]") else vocabulary = lexClass.load(io.open(arg[1])) treemodel = parser.new_one_step.treeModel{ filename = arg[2] } swap_bytes = ((arg[4] or "no") == "yes") if swap_bytes then print("Swapping bytes, changing endianism") end treemodel:save{ filename = arg[3], vocabulary = vocabulary:getWordVocabulary(), binary = true, swap = swap_bytes, } end april-ann-0.3.1/tools/HMM_ANN/recognition/000077500000000000000000000000001234204160600201675ustar00rootroot00000000000000april-ann-0.3.1/tools/HMM_ANN/recognition/barrido-EM.sh000077500000000000000000000006471234204160600224560ustar00rootroot00000000000000#!/bin/bash conf_file=$1 outdir=$2 ini=$3 fin=$4 april=/home/experimentos/HERRAMIENTAS/bin/april recog=/home/experimentos/HERRAMIENTAS/april_tools/HMM_ANN/recog.lua mkdir -p $outdir for i in `seq $ini $fin`; do $april $recog -f $conf_file -m models/hmms/ci?_cd?_em$i.lua \ -n models/redes/ci?_cd?_em$i.net 2> $outdir/resultados.em`printf "%02d" $i`.log > $outdir/resultados.em`printf "%02d" $i`.out; done april-ann-0.3.1/tools/HMM_ANN/recognition/onepass.lua000066400000000000000000000470251234204160600223520ustar00rootroot00000000000000-------------------------------------------------- -- command line options -------------------------------------------------- opt = cmdOpt{ program_name = string.basename(arg[0]), argument_description = "", main_description = "HMM/ANN recognition with April toolkit new one pass decoder", { index_name="defopt", description="Load configuration file (a lua table)", short="f", argument="yes", }, ---------------------------------------------------------------------- { index_name = "recog", description = "Recog type: asr, htr [default=asr]", long = "recog", argument = "yes" }, ---------------------------------------------------------------------- -- relacionados con la red neuronal { index_name="n", description = "MLP file", short = "n", argument = "yes", }, { index_name="bunch_size", description="Size of bunch for MLPs [default 96]", long="bunch-size", argument="yes", }, { index_name = "context", description = "Size of ann context [default=8]", long = "context", argument = "yes" }, { index_name = "feats_norm", description = "Table with means and devs for features", long = "feats-norm", argument = "yes", }, ---------------------------------------------------------------------- -- con la carga de los modelos { index_name="m", description = "hmms file", short = "m", argument = "yes", }, { index_name="t", description = "HTK unit's tied list", short = "t", argument = "yes", }, { index_name="d", description = "HTK dictionary", short = "d", argument = "yes", }, { index_name="pt", description = "pronunciation tree model", long = "pt", argument = "yes", }, { index_name="bpt", description = "pronunciation tree model is binary [default true]", long = "bpt", argument = "yes", }, { index_name="lm", description = "Language model [default=dont use LM]", long = "lm", argument = "yes", }, { index_name = "use_context_cues", description = "Use context cues", long = "use-context-cues", argument = "yes" }, ---------------------------------------------------------------------- -- con los parametros de configuracion { index_name="beam_width", description = "Beam width [default=400]", long = "beam-width", argument = "yes", }, { index_name="histogram_size", description = "Histogram pruning size [default=5000]", long = "histogram-size", argument = "yes", }, { index_name="gsf", description = "Grammar Scale Factor [default=10]", long = "gsf", argument = "yes", }, { index_name="pt_gsf", description = "Prefix Tree Grammar Scale Factor [default=1]", long = "pt-gsf", argument = "yes", }, { index_name="wip", description = "Word Insertion Penalty [default=0]", long = "wip", argument = "yes", }, ---------------------------------------------------------------------- -- { index_name="p", description = "File with the corpus mfccs data", short = "p", argument = "yes", }, { index_name="prep", description = "File with the corpus preprocessed data", long = "prep", argument = "yes", }, { index_name="txt", description = "File with the corpus transcriptions", long = "txt", argument = "yes", }, { index_name = "filter", description = "Fiter output sentence before tasas, is a file that return a LUA function [default=nil]", long = "filter", argument = "yes", }, { index_name = "view_filter", description = "Fiter output sentence to show result, is a file that return a LUA function [default=nil]", long = "view-filter", argument = "yes", }, { index_name = "feats_format", description = "Format of features (mat, raw, mfc) [default mat]", long = "feats-format", argument = "yes", }, { index_name = "wadvance", description = "Window advance in ASR, in milliseconds [default=10] used to compute the real time factor", long = "wadvance", argument = "yes", }, { index_name = "cache_size", description = "Size of cache for NNLMs [default=20]", long = "cache-size", xargument = "yes", }, { index_name = "trie_size", description = "Size of TrieVector for NNLMs [default=24]", long = "trie-size", argument = "yes", }, { index_name="ose_file", description = "Over SEgmenter index file, with one string for each corpus file [optional]", long = "ose-file", argument = "yes", }, { description = "shows this help message", short = "h", long = "help", argument = "no", action = function (argument) print(opt:generate_help()) os.exit(1) end } } optargs = opt:parse_args() if type(optargs) == "string" then error(optargs) end if optargs.defopt then local t = dofile(optargs.defopt) for name,value in pairs(t) do if not optargs[name] then fprintf(io.stderr,"# opt %s = %s\n", name, tostring(value)) optargs[name] = value end end end dir = string.gsub(arg[0], string.basename(arg[0]), "") dir = (dir~="" and dir) or "./" loadfile(dir .. "utils.lua")() -- deprecar -------------------------------------------------- -- algunas funciones -- function load_matrix(filename) -- local f = io.open(filename) or error ("No se ha podido encontrar "..filename) -- local aux = f:read("*a") -- local ad = matrix.fromString(aux) -- f:close() -- return ad -- end guarda_frames = ASR.VectorFrameConsumer() vad = ASR.VAD{ -- beginVoiceDuration = 5, -- beginVoiceScore = 0.3, -- stopVoiceDuration = 10, -- stopVoiceScore = 0.1, frameConsumer = guarda_frames, } parametrizer = ASR.Parametrizer{ HzSamplingAD = 8000, preemphasis = 0.95, msWindowSize = 25, msWindowAdvance = 10, nparam = 12, decorrelation = "FF1", output = vad } function load_raw(filename) guarda_frames:reset() parametrizer:applyFile(filename) return guarda_frames:getMatrix() end -------------------------------------------------- -- log fprintf(io.stderr,"# HOST:\t %s\n", (io.popen("hostname", "r"):read("*l"))) fprintf(io.stderr,"# DATE:\t %s\n", (io.popen("date", "r"):read("*l"))) fprintf(io.stderr,"# CMD: \t %s %s\n",string.basename(arg[0]), table.concat(arg, " ")) -------------------------------------------------- -- Red neuronal filename_ann = optargs.n -- Fichero de HMMs filename_hmm = optargs.m -- Fichero HTK filename_hmmdefs = optargs.hmmdefs -- filename_tiedlist = optargs.t or error ("Needs a tiedlist!!!") filename_dict = optargs.d or error ("Needs a dictionary!!!") filename_prontree = optargs.pt or error ("Needs a pronunciation tree!!!") binary_prefix_tree = optargs.bpt or true filename_test = optargs.p filename_prep = optargs.prep filename_txt = optargs.txt or fprintf(io.stderr,"Warning!!! running without transcriptions --txt!!!\n") filename_lm = optargs.lm dataset_step = tonumber(optargs.step or 1) feats_format = optargs.feats_format or "mat" feats_mean_and_devs = optargs.feats_norm features_filename = optargs.features recog_type = string.lower(optargs.recog or "asr") wsize = (optargs.wsize or 25) / 1000 -- para pasar a segundos wadvance = (optargs.wadvance or 10) / 1000 -- para pasar a segundos beam_width = tonumber(optargs.beam_width or "400") hist_prun_size = tonumber(optargs.histogram_size or "5000") hist_prun_step = 1000 max_hyps = 1000000 trll_log2_hash_size = 21 trll_log2_max_nodes = 21 cache_size = tonumber(optargs.cache_size) trie_size = tonumber(optargs.trie_size) gsf = optargs.gsf or 10.0 pt_gsf = optargs.pt_gsf or 1.0 wip = optargs.wip or 0.0 ose_file = optargs.ose_file if recog_type == 'htr' then word_sil = "@" else word_sil = "." end initial_ngram_word = '' final_ngram_word = '' unk_ngram_word = '' mfcs_matrix_format = (feats_format == "mat") use_context_cues = ((optargs.use_context_cues or "yes") == "yes") ----------------------------------------------- if feats_mean_and_devs then feats_mean_and_devs = dofile(feats_mean_and_devs) end ----------------------------------------------- if optargs.filter then filter = dofile(optargs.filter) else filter = function (str) return str end end ----------------------------------------------- if optargs.view_filter then view_filter = dofile(optargs.view_filter) else view_filter = function (str) return str end end ----------------------------------------------- -- tied list ----------------------------------------------- tied_model = tied_model_manager(io.open(filename_tiedlist)) ----------------------------------------------- -- dictionary ----------------------------------------------- dictionary = lexClass.load(io.open(filename_dict)) ----------------------------------------------- -- HMMs ----------------------------------------------- local m = dofile(filename_hmm) hmm = {} hmm.models = m[1] hmm.aprioris = m[2] hmm.units = parser.lr_hmm_dictionary() hmm.unit2id = {} for id,phone in ipairs(tied_model.id2name) do local model_info = hmm.models[phone] local lprobs = {} for _,t in ipairs(model_info.model.transitions) do if t.from == t.to then lprobs[t.from-3] = math.exp(t.lprob) end end hmm.unit2id[phone] = hmm.units:insert_unit { emiss_indexes = model_info.emissions, loop_probs = lprobs, } end -- convertimos el diccionario a formato lrhmm hmm.lrhmm = parser.new_one_step.LR_HMMs(hmm.units) ----------------------------------------------- -- language model ----------------------------------------------- if filename_lm then ngram_model = ngram.load_language_model(filename_lm, dictionary, initial_ngram_word, final_ngram_word, -- EXTRA { cache_size = cache_size, trie_size = trie_size, }) else ngram_model = ngram.lira.loop{ vocabulary_size = #dictionary:getWordVocabulary(), final_word = dictionary:getWordId(""), } end ----------------------------------------------- -- pronunciation tree ----------------------------------------------- pronunciation_tree = parser.new_one_step.treeModel{ filename = filename_prontree, vocabulary = dictionary:getWordVocabulary(), is_mmaped = binary_prefix_tree, desired_gsf = pt_gsf, } ---------------------------------------------------------------------- -- construmos el lmtrellis: if getmetatable(ngram_model).id == ngram.nnlm.meta_instance.id then lmtrellis = parser.new_one_step.NNLMPBTrellis{ lm = ngram_model, trellis_log2_hash_size = trll_log2_hash_size, trellis_log2_max_nodes = trll_log2_max_nodes, initial_word = dictionary:getWordId(initial_ngram_word), final_word = dictionary:getWordId(final_ngram_word), gsf = gsf, wip = wip, } else lmtrellis = parser.new_one_step.LiraPBTrellis{ lm = ngram_model, trellis_log2_hash_size = trll_log2_hash_size, trellis_log2_max_nodes = trll_log2_max_nodes, initial_word = dictionary:getWordId(initial_ngram_word), final_word = dictionary:getWordId(final_ngram_word), gsf = gsf, wip = wip, use_context_cues = use_context_cues, } end ---------------------------------------------------------------------- -- creamos un heappruner: pruner = parser.new_one_step.HeapPruner(hist_prun_size, beam_width) ---------------------------------------------------------------------- -- construimos el lexdecoder: lexdecoder = parser.new_one_step.LexDecoder{ tree_model = pronunciation_tree, max_hyps = max_hyps, hist_prun_size = hist_prun_size, hist_prun_step = hist_prun_step, lr_hmms = hmm.lrhmm, pruner = pruner, lm_trellis = lmtrellis, silence_index = tied_model.name2id[word_sil]-1, -- FIXME hay que restar 1 :( si no se lo resto no va } ---------------------------------------------------------------------- -- crear el objeto decoder, que es un consumidor: decoder = parser.new_one_step.decoder{ lexdecoder = lexdecoder, a_prioris = hmm.aprioris } ---------------------------------------------------------------------- -- cargamos el MLP ann = {} ann.left_context = tonumber(optargs.context or 8) ann.right_context = tonumber(optargs.context or 8) ann.bunch_size = tonumber(optargs.bunch_size or 96) ann.bunched_net = mlp.load(filename_ann, ann.bunch_size) ann.emiss_func = ann.bunched_net:get_function() ---------------------------------------------------------------------- -- los datos de prueba test = field_manager() recog.generate_filenames{ corpus_data_manager = test, filename_mfc = filename_test, prepfilename = filename_prep, txtfilename = filename_txt, } -- local frames_source local frames_normalization local frames_contextualizer AUXF = io.open("aux.log", "w") local total_num_words = 0 local lista_tasas = {} local count_gc = 0 -- numero total de tramas procesadas, sirve para medir al final el -- tiempo CPU por trama: local total_processed_frames = 0 -- total de frases correctas, para calcular el SER local correct_sentences = 0 cronometro = util.stopwatch() local last_recog_lm_wids = nil local index = 0 local mfcc_filename if ose_file then ose_file = io.open(ose_file, "r") end num_sentences = #test:get_field('mfcc_filename') for index = 1,num_sentences do count_gc = count_gc+1 if count_gc >= 10 then collectgarbage("collect") count_gc = 0 end mfcc_filename = test:get_field('mfcc_filename')[index] -- cargamos el dataset correspondiente a la frase actual local tr_filename if filename_txt then tr_filename = test:get_field('transcription_filename')[index] end local prep_filename if filename_prep then prep_filename = test:get_field('prep_filename')[index] end local basenamestr = "" if mfcc_filename then basenamestr = remove_extensions(string.basename(mfcc_filename)) end local tr_string if tr_filename then fprintf(io.stderr,"# Cargando transcripcion: \t%s\n", tr_filename) tr_string = io.open(tr_filename):read("*l") end local frames local actual_ds local numFrames = 1 local numParams = 1 fprintf(io.stderr,"# Cargando frames: \t%s\n", mfcc_filename) if feats_format == 'mat' then frames = load_matrix(mfcc_filename) elseif feats_format == 'raw' then frames = load_raw(mfcc_filename) end -- if mfcs_matrix_format then -- frames = load_matrix(mfcc_filename) -- else -- frames = load_mfcc(mfcc_filename) -- end numFrames = frames:dim()[1] numParams = frames:dim()[2] local parameters = { patternSize = {dataset_step, numParams}, offset = {0,0}, -- default value stepSize = {dataset_step, 0}, -- default value, second value is not important numSteps = {numFrames/dataset_step, 1} } actual_ds = dataset.matrix(frames, parameters) if feats_mean_and_devs then actual_ds:normalize_mean_deviation(feats_mean_and_devs.means, feats_mean_and_devs.devs) end actual_ds = dataset.contextualizer(actual_ds, ann.left_context, ann.right_context) -- cargamos la transcripcion ortografica local correcta = tr_string -- RUN ONE STEP PARSER duration = wsize + numFrames*wadvance fprintf(io.stderr,"# RUN %4d/%d (%d frames %s secs)\n", index,num_sentences,numFrames,duration) t1cpu, t1wall = cronometro:read() cronometro:go() if ose_file then -- carga la sobresegmentacion de fichero local current_ose_filename = ose_file:read("*l") local current_ose = io.open(current_ose_filename) local frontiers = current_ose:read("*a") current_ose:close() -- print("frontiers has lenght",#frontiers) decoder:set_frontiers_string(frontiers) fprintf(io.stderr, "# Loading frontier %s\n", current_ose_filename) end ann.emiss_func:calculate_in_pipeline{ producer = functions.dataset_producer(actual_ds), consumer = decoder, input_size = ann.emiss_func:get_input_size(), output_size = ann.emiss_func:get_output_size(), } path,logprob=decoder:get_result() cronometro:stop() t2cpu, t2wall = cronometro:read() if path then reconocida = table.concat(dictionary:searchWordsSequenceFromWIDs(path)," ") print(reconocida) fprintf (io.stderr,"###########################################\n") fprintf (io.stderr,"# logprob N-grama: %f\n",logprob) fprintf(io.stderr,"# Correcta: %s\n",(correcta or "N/A")) fprintf(io.stderr,"# Reconocida N-grama: %s\n",view_filter(reconocida)) if correcta and filter(reconocida or "") == filter(correcta) then correct_sentences = correct_sentences + 1 end total_num_words = total_num_words + #string.tokenize(reconocida) tWall = t2wall - t1wall tCPU = t2cpu - t1cpu if tWall > 0 then framesPerSecond = numFrames/tWall else framesPerSecond = 0 end if recog_type == "asr" then RTfactor = tWall/duration fprintf(io.stderr,"# Tiempo: %.2f (cpu) %.2f (wall) %.2f frames/s (%.2f x RT)\n", tCPU, tWall, framesPerSecond, RTfactor) else fprintf(io.stderr,"# Tiempo: %.2f (cpu) %.2f (wall) %.2f frames/s\n", tCPU, tWall, framesPerSecond) end fprintf(io.stderr,"###########################################\n") total_processed_frames = total_processed_frames + numFrames + 1 ------------------------------------------------------------ -- para tasas if correcta then table.insert(lista_tasas,{filter(correcta), filter(reconocida)}) AUXF:write(filter(correcta).."="..filter(reconocida).."\n") end ------------------------------------------------ else fprintf(io.stderr,"# Correcta: %s\n",(correcta or "N/A")) fprintf(io.stderr,"# Reconocida N-grama: \n") if correcta then table.insert(lista_tasas,{filter(correcta), ""}) if filter(reconocida or "") == filter(correcta) then correct_sentences = correct_sentences + 1 end end fprintf(io.stderr,"# Error, no se ha encontrado camino!!\n") print("") end fprintf(io.stderr,"\n") io.stdout:flush() io.stderr:flush() -------------------------------------------------------- end AUXF:close() if filename_txt then local resul_val = tasas{ typedata = "pairs_lines", -- words_sep valor por defecto data = lista_tasas, tasa = "ie", -- para calcular wer } fprintf(io.stderr,"Tasa WER: %f\n", resul_val.tasa) local resul_val = tasas{ typedata = "pairs_lines", data = lista_tasas, tasa = "ie", -- para calcular wer words_width = 1, } fprintf(io.stderr,"Tasa CER: %f\n", resul_val.tasa) fprintf(io.stderr,"Tasa SER: %f\n", 100*(1 - correct_sentences/num_sentences)) end total_cpu_time, total_wall_time = cronometro:read() fprintf(io.stderr,"Total time: %.2f (cpu) %.2f (wall), cpu_time/sentence %.4f cpu_time/word %.4f\n", total_cpu_time, total_wall_time, total_cpu_time/num_sentences, total_cpu_time/total_num_words) fprintf(io.stderr,"wall_time/sentence %.4f wall_time/word %.4f", total_wall_time/num_sentences, total_wall_time/total_num_words) if recog_type == "asr" then RTfactor = total_wall_time/(total_processed_frames*wadvance) fprintf(io.stderr,", RT factor: %.2f x RT",RTfactor) end fprintf(io.stderr,"\n") april-ann-0.3.1/tools/HMM_ANN/recognition/opt.lua000066400000000000000000000235211234204160600214770ustar00rootroot00000000000000return cmdOpt{ program_name = string.basename(arg[0]), argument_description = "", main_description = "HMM/ANN recognition with April toolkit", { index_name="defopt", description="Load configuration file (a lua tabla)", short="f", argument="yes", }, { index_name="server", description="Execute in server mode, listening in the specified port. The server receives the parameters vector.", long="server", argument="yes", }, { index_name="bunch_size", description="Size of bunch for MLPs", long="bunch-size", argument="yes", }, { index_name="one_step", description="One step algorithm [default='no']", long="one-step", argument="yes", }, { index_name="n", description = "MLP file", short = "n", argument = "yes", }, { index_name="m", description = "hmms file", short = "m", argument = "yes", }, { index_name="hmmdefs", description = "hmms HTK file", long = "hmmdefs", argument = "yes", }, { index_name="t", description = "HTK unit's tied list", short = "t", argument = "yes", }, { index_name="d", description = "HTK dictionary", short = "d", argument = "yes", }, { index_name="optsil", description = "Use optional silence at begin and end of a sentence [default='no']", long = "optsil", argument = "yes", }, { index_name="beginsil", description = "Use optional silence at begin of a sentence [default='no']", long = "beginsil", argument = "yes", }, { index_name="endsil", description = "Use optional silence at end of a sentence [default='no']", long = "endsil", argument = "yes", }, { index_name="wordsil", description = "Add optional silence between words [default='no']", long = "wordsil", argument = "yes", }, { index_name="nested", description = "Parallelize emission evaluation and step viterbi when compiled with openmp [default='no']", long = "nested", argument = "yes", }, { index_name="p", description = "File with the corpus mfccs data", short = "p", argument = "yes", }, { index_name="input_lattice", description = "File with an input lattices list", long = "input-lattice", argument = "yes", }, { index_name="use_input_lat_lm_score", description = "Force to use the input lattice LM scores [default='no']", long = "use-input-lat-lm-score", argument = "yes", }, { index_name="input_lat_log_base", description="Base of the logarithms in lattices [default=exp(1)]", long="input-lat-log-base", argument="yes", }, { index_name="prep", description = "File with the corpus preprocessed data", long = "prep", argument = "yes", }, { index_name="txt", description = "File with the corpus transcriptions", long = "txt", argument = "yes", }, { index_name="ose_file", description = "Over SEgmenter index file, with one string for each corpus file [optional]", long = "ose-file", argument = "yes", }, { index_name="lm", description = "Language model [default=dont use LM]", long = "lm", argument = "yes", }, { index_name="ngram_nstates", description = "Number of max states for ngram parser pruning [default=10000]", long = "ngram-nstates", argument = "yes", }, { index_name="ngram_beam", description = "Beam for ngram parser pruning [default=2000]", long = "ngram-beam", argument = "yes", }, { index_name="ngram_size", description = "Histogram size for ngram parser pruning [default=400]", long = "ngram-size", argument = "yes", }, { index_name="viterbim_size", description = "Vector size for viterbi_m decoders", long = "viterbim-size", argument = "yes", }, { index_name="wgen_nstates", description = "Number of max states for wgen pruning [default=4000, one-step=no]", long = "wgen-nstates", argument = "yes", }, { index_name="wgen_beam", description = "Beam for wgen pruning [default=1000, one-step=no]", long = "wgen-beam", argument = "yes", }, { index_name="wgen_size", description = "Histogram size for wgen parser pruning [default=200, one-step=no]", long = "wgen-size", argument = "yes", }, { index_name="gsf", description = "Grammar Scale Factor [default=10]", long = "gsf", argument = "yes", }, { index_name="wip", description = "Word Insertion Penalty [default=0]", long = "wip", argument = "yes", }, { index_name="seg", description="Save segmentation [default=no]", long="seg", argumento="yes" }, { index_name="save_input_wg", description="Save the acoustic/optic word_graph filtered with the NBest", long="save-input-wg", argument="yes", }, { index_name="dog", description = "DOG or DAF :-) the Oversegmenter is always dummy", long = "dog", argument = "yes", }, { index_name = "use_word_probs", description = "Use probs. stored in dictionary [default='yes']", long = "use-word-probs", argument = "yes" }, { index_name = "apply_gsf_word_probs", description = "Apply GSF to word probs [default='no']", long = "apply-gsf-word-probs", argument = "yes" }, { index_name = "context", description = "Size of ann context [default=4]", long = "context", argument = "yes" }, { index_name = "filter", description = "Fiter output sentence before tasas, is a file that return a LUA function [default=nil]", long = "filter", argument = "yes", }, { index_name = "view_filter", description = "Fiter output sentence to show result, is a file that return a LUA function [default=nil]", long = "view-filter", argument = "yes", }, { index_name = "max_h_out", description = "Max HOut for NBest graph [default=0]", long = "max-h-out", argument = "yes", }, { index_name = "save_nbest_wg", description = "Word Graph of NBest filename", long = "save-nbest-wg", argument = "yes", }, { index_name = "nbest", description = "Number of nbest", long = "nbest", argument = "yes", }, { index_name = "save_nbest", description = "Filename for save Nbest list", long = "save-nbest", argument = "yes", }, { index_name = "features", description = "Filename for save Nbest list features", long = "features", argument = "yes", }, { index_name = "uniq_nbest", description = "For indicate UNIQ nbest paths [default=yes]", long = "uniq-nbest", argument = "yes", }, { index_name = "lattice_tool", description = "For indicate the use of lattice-tool for nbest [default=no]", long = "lattice-tool", argument = "yes", }, { index_name = "cache_size", description = "Size of cache for NNLMs [default=20]", long = "cache-size", argument = "yes", }, { index_name = "use_ref_annotations", description = "Use reference annotations for hte CACHE [default=no]", long = "use-ref-annotations", argument = "yes", }, { index_name = "trie_size", description = "Size of TrieVector for NNLMs [default=24]", long = "trie-size", argument = "yes", }, { index_name = "feats_format", description = "Format of features (mat or mfc)", long = "feats-format", argument = "yes", }, { index_name = "feats_norm", description = "Table with means and devs for features", long = "feats-norm", argument = "yes", }, { index_name = "recog", description = "Recog type: asr, htr, online [default=htr]", long = "recog", argument = "yes" }, { index_name = "ose", description = "Oversegmenter type: dummy, htr, maxdiff, online [default=dummy in asr recog type, htr in htr recog type, online in htr-online recog type]", long = "ose", argument = "yes", }, { index_name = "cells_per_frame", description = "Number of cells per frame in the parametrizer (default: 20)", long = "cells-per-frame", argument = "yes", }, { index_name = "wadvance", description = "Window advance in ASR, in milliseconds [default=10] used to compute the real time factor", long = "wadvance", argument = "yes", }, { index_name = "output_lm_words", description = "Output LM Words instead of OutSyms [default=no]", long = "output-lm-words", argument = "yes", }, { index_name = "use_bcc", description = "Use BCC during decoding [default=yes]", long = "use-bcc", argument = "yes", }, { index_name = "use_ecc", description = "Use ECC during decoding [default=yes]", long = "use-ecc", argument = "yes", }, { index_name = "unk", description = "Generate UNK words at the recognizer output given the difference ".. "threshold: a positive number [default NONE]", long = "unk", argument = "yes", }, { index_name = "cache_txt", description = "Transcriptions for CACHE before each recognition step (default: nil)", long = "cache-txt", argument = "yes", }, { index_name = "discriminative_smoothing", description = "Apply discriminative smoothing (linear interpolation) with given parameter (default: nil)", long = "discriminative-smoothing", argument = "yes", }, { index_name = "right_left", description = "recognise going from right to left (default: no)", long = "right-left", argument = "yes", }, { description = "shows this help message", short = "h", long = "help", argument = "no", action = function (argument) print(cmdOptTest:generate_help()) os.exit(1) end } } april-ann-0.3.1/tools/HMM_ANN/recognition/recog.lua000066400000000000000000001251051234204160600217750ustar00rootroot00000000000000dir = string.gsub(arg[0], string.basename(arg[0]), "") dir = (dir~="" and dir) or "./" loadfile(dir .. "utils.lua")() fprintf(io.stderr,"# HOST:\t %s\tload avg: %s\n", (io.popen("hostname", "r"):read("*l")), (io.open("/proc/loadavg"):read("*l"))) fprintf(io.stderr,"# DATE:\t %s\n", (io.popen("date", "r"):read("*l"))) fprintf(io.stderr,"# CMD: \t %s %s\n",string.basename(arg[0]), table.concat(arg, " ")) -------------------------------------------------- cmdOptTest = dofile(dir .. "/opt.lua") optargs = cmdOptTest:parse_args() if type(optargs) == "string" then error(optargs) end if optargs.defopt then local t = dofile(optargs.defopt) for name,value in pairs(t) do if not optargs[name] then fprintf(io.stderr,"# opt %s = %s\n", name, tostring(value)) optargs[name] = value end end end if optargs.bunch_size then error("Bunch mode not implemented!!!, we are working in it ;)") end log10 = math.log(10) -------------------------------------------------- --optargs.fast_nn_lm = true server_port = optargs.server one_step = ((optargs.one_step or "no") == "yes") -- Red neuronal filenet = optargs.n -- Fichero de HMMs filem = optargs.m -- Fichero HTK filehmmdefs = optargs.hmmdefs -- Fichero OSE ose_file = optargs.ose_file -- dictfile = optargs.d or error ("Needs a dictionary!!!") use_optional_sil = (optargs.optsil == "yes") use_word_sil = (optargs.wordsil == "yes") nested_openmp = (optargs.nested == "yes") lattice_tool = optargs.lattice_tool output_lm_words = ((optargs.output_lm_words or "no") == "yes") save_seg = (optargs.seg or "no") == "yes" testfile = optargs.p input_lat = optargs.input_lattice use_input_lat_lm_score = ((optargs.use_input_lat_lm_score or "no") == "yes") input_lat_log_base = optargs.input_lat_log_base if (input_lat_log_base or use_input_lat_lm_score) and not input_lat then error ("Needs --input-lat") end if not input_lat and not server_port and not testfile then error ("Needs a corpus testfile -p option or a --text-input option!!!") end tiedfile = optargs.t or (input_lat==nil and error ("Needs a tiedlist!!!")) prepfile = optargs.prep txtfile = optargs.txt or fprintf(io.stderr,"Warning!!! running without transcriptions --txt!!!\n") ose_type = optargs.ose recog_type = optargs.recog langmodel = optargs.lm if use_input_lat_lm_score and langmodel then error("Forbidden to use a LM when use-input-lat-lm-socre='yes'") end inputwg = optargs.save_input_wg dataset_step = tonumber(optargs.step or 1) max_h_out = tonumber(optargs.max_h_out or 0) cache_size = tonumber(optargs.cache_size) trie_size = tonumber(optargs.trie_size) feats_format = optargs.feats_format or "mfc" feats_mean_and_devs = optargs.feats_norm wg_filename = optargs.save_nbest_wg nbest_filename = optargs.save_nbest num_nbest = tonumber(optargs.nbest or 0) features_filename = optargs.features uniq_nbest = optargs.uniq_nbest or "yes" wadvance = (optargs.wadvance or 10) / 1000 -- para pasar a segundos unk_threshold = tonumber(optargs.unk or "NONE") cache_txt = optargs.cache_txt use_ref_annotations = ((optargs.use_ref_annotations or "no") == "yes") right_left = (string.lower(optargs.right_left or "no") == "yes") cells_per_frame = tonumber(optargs.cells_per_frame or 20) use_bcc = ((optargs.use_bcc or "yes") == "yes") use_ecc = ((optargs.use_ecc or "yes") == "yes") if cache_txt then cache_txt = io.open(cache_txt, "r") or error ("File not found: " .. cache_txt) end if server_port then server_port = tonumber(server_port) end if use_ref_annotations and not txtfile then error ("use_ref_annotations needs a txtfile") end viterbi_m_size = optargs.viterbim_size recog_type = string.lower(recog_type) if num_nbest > 0 and max_h_out == 0 then error("max_h_out must be > 0 when nbest > 0!!!") end if right_left and wg_filename then error ("Forbidden Output WordGraph and RightLeft feature") end if features_filename then features_file = io.open(features_filename, "w") or error("Cant create file: " .. features_filename) end if nbest_filename then nbest_file = io.open(nbest_filename, "w") or error("Cant create file: " .. nbest_filename) end read_mfcs_in_matrix_format = (feats_format == "mat") if feats_mean_and_devs then feats_mean_and_devs = dofile(feats_mean_and_devs) end if server_port then prepfile = nil txtfile = nil testfile = nil end ---------------------------------------------------------------------------------- use_word_dict_probs = ((optargs.use_word_probs or "yes") == "yes") apply_gsf_word_probs = ((optargs.apply_gsf_word_probs or "no") == "yes") ann = {} ann.left_context = tonumber(optargs.context or 4) ann.right_context = tonumber(optargs.context or 4) -- Parsing grammar_scale_factor = optargs.gsf or 10.0 word_insertion_penalty = optargs.wip or 0.0 nolm = (optargs.lm == nil) viterbi_type = "viterbi_m" -- viterbi_m" --"hash_fast_it" -- viterbi_m, array_swap, active_envelope, hash_array_swap, hash_fast_it if not one_step then if not input_lat then wgen_hist_pruning_conf = { beam_width = optargs.wgen_beam or 1000, size = optargs.wgen_size or 200, max_states = optargs.wgen_nstates or 4000, } wgen_feedback = true end else if optargs.wgen_beam or optargs.wgen_size or optargs.wgen_nstates then fprintf(io.stderr, "# Warning!!! WGEN pruning parameters are ignored when one_step=\"yes\"\n") end end hist_pruning_conf = { beam_width = optargs.ngram_beam or 2000, size = optargs.ngram_size or 400, max_states = optargs.ngram_nstates or 10000, } -- parametros de NGRAMAS initial_ngram_word = '' final_ngram_word = '' unk_ngram_word = '' -- SSE if ose_type and ose_file then error ("ose-file and ose are incompatible") end if not ose_type then if recog_type == "asr" then ose_type = "dummy" elseif recog_type == "htr" then ose_type = "htr" elseif recog_type == "online" then ose_type = "online" else error("Incorrect recognizer type: " .. recog_type) end end if ose_type == "dummy" then segmenter = nil sse_type = "dummy" elseif ose_type == "htr" then segmenter = DFS_CC_Oversegmenter() sse_type = "from_string" -- dummy, from_string, max_diff elseif ose_type == "online" then segmenter = nil sse_type = "from_string" elseif ose_type == "maxdiff" then segmenter = nil sse_type = "maxdiff" else error("Incorrect Oversegmenter type: " .. ose_type) end if ose_file then sse_type = "from_string" end if optargs.dog then segmenter=nil sse_type = "dummy" end sse_past = 5 sse_future = 5 sse_dist_max_front = 3 sse_distance = "inf-norm" -- 1-norm, 2-norm, inf-norm if optargs.filter then filter = dofile(optargs.filter) else filter = function (str) return str end end if optargs.view_filter then view_filter = dofile(optargs.view_filter) else view_filter = function (str) return str end end -- objeto con informacion sobre modelos ligados if tiedfile then tied = tied_model_manager(io.open(tiedfile) or error("File not found: " .. tiedfile)) end -- objeto con el diccionario fprintf(io.stderr,"# Loading dictionary\n") dictionary = lexClass.load(io.open(dictfile) or error ("File not found: " .. dictfile)) pairid2wordstr = {} for i=1,dictionary:pairsTblSize() do table.insert(pairid2wordstr, tostring(i)) end ---------- -- HMMs -- ---------- hmm = {} unk_pair_ids = {} if filem and filenet then -- HIBRIDOS m = dofile(filem) hmm.models = m[1] hmm.aprioris = m[2] --------------------------------------- -- cargamos la red neuronal lared = Mlp.load{ filename=filenet } emissions_func = lared --------------------------------------- -- creamos las unidades LR hmm.tree = {} hmm.tree.unit2id = {} hmm.tree.units = parser.lr_hmm_dictionary() local id = 1 for name,model_info in pairs(hmm.models) do id = id + 1 local lprobs = {} for _,t in ipairs(model_info.model.transitions) do if t.from == t.to then lprobs[t.from-3] = math.exp(t.lprob) end end if right_left then hmm.tree.unit2id[name] = hmm.tree.units:insert_unit { emiss_indexes = table.reverse(model_info.emissions), loop_probs = table.reverse(lprobs), } else hmm.tree.unit2id[name] = hmm.tree.units:insert_unit { emiss_indexes = model_info.emissions, loop_probs = lprobs, } end end -- CREAMOS EL OBJETO LEXICO EN ARBOL hmm.tree.lexicon = parser.tree_lexicon() -- ahora metemos el diccionario -- para cada par (word,outsym) for pairid=1,dictionary:pairsTblSize() do local wid,oid = dictionary:getPair(pairid) local data = dictionary:getData(pairid) local us = data.units -- la transcripcion if data.word == unk_ngram_word then table.insert(unk_pair_ids, pairid) end if #us > 0 then -- si units es mayor que 0, entonces lo metemos en el lexico local t = {} -- para cada unidad de la transcripcion for j,u in ipairs(tied:search_triphone_sequence(us)) do table.insert(t, hmm.tree.unit2id[u]) if not hmm.tree.unit2id[u] then error("ERROR incorrect hmm model in tiedlist: [ "..u.." ]") end end -- sacamos el outsym index local prob = data.prob or 0.0 if apply_gsf_word_probs then prob = prob * grammar_scale_factor end prob = math.exp(prob) if not use_word_dict_probs then prob = 1.0 end -- insertamos en el tree_lexicon if right_left then t = table.reverse(t) end if prob ~= 0 then hmm.tree.lexicon:insert_word(t, pairid, prob) end -- else print (wid, paird, prob, -- dictionary.oid2outsym[dictionary.pairs[pairid].oid]) end end end elseif filehmmdefs then -- HTK if right_left then error('right_left is not currently supported for HTK models') end hmm.tree = {} hmm.models = htk_interface.load_hmm_set(filehmmdefs) hmm.tree.units,htk_triphone_table = htk_interface.build_lr_hmm_dictionary(tied, hmm.models) hmm.tree.lexicon = htk_interface.build_tree_lexicon(dictionary, tied, htk_triphone_table, forbiden_words) emissions_func = functions.join(table.invert(hmm.models.all_mixtures)) hmm.tree.unit2id = htk_triphone_table elseif not input_lat then error ("arg's -m and -n, or --hmmdefs, are needed!!!") end -- Silencios gsub_sils = "" if not input_lat then if recog_type == "htr" then hmm.silences = { ["@"] = { prob = 1.0, output = 0 -- lambda } } begin_sil = "@" end_sil = "@" word_sil = "@" gsub_sils = "%@" elseif recog_type == "online" then hmm.silences = { } begin_sil = "" end_sil = "" word_sil = "" gsub_sils = "" else hmm.silences = { ["."] = { prob = 1.0, output = 0 -- lambda }, ["("] = { prob = 1.0, output = 0 -- lambda }, [")"] = { prob = 1.0, output = 0 -- lambda } } begin_sil = "(" end_sil = ")" word_sil = "." gsub_sils = "%.%(%)" end end -------------------------------------- -- Cargamos el modelo de ngramas... -- -------------------------------------- fprintf(io.stderr,"# Cargamos el modelo de ngramas y creamos el parser\n") if langmodel then -- estadistico ngram_model = ngram.load_language_model(langmodel, dictionary, initial_ngram_word, final_ngram_word, -- EXTRA { cache_size = cache_size, trie_size = trie_size, }) else -- NO LM fprintf(io.stderr, "# Loop LM\n") ngram_model = ngram.lira.loop{ vocabulary_size = #dictionary:getWordVocabulary(), final_word = dictionary:getWordId(final_ngram_word), } end --ngram_model:sanity_check() ----------------------- -- CREAMOS EL PARSER -- ----------------------- if not one_step then model_parser = ngram.load_parser(ngram_model, dictionary, initial_ngram_word, final_ngram_word, max_h_out) if not use_bcc then model_parser:set_use_begin_context_cue(false) end if not use_ecc then model_parser:set_use_end_context_cue(false) end end ---------------------------------------------------------------- -- GENERAMOS EL MODELO DE MARKOV HMM para el lexico en arbol -- ---------------------------------------------------------------- if not input_lat then if not one_step then hmm.tree.lexicon_model = hmm.tree.lexicon:tree_lr_hmm_model(hmm.tree.units) if viterbi_m_size then hmm.tree.lexicon_model:set_size_active_state_vector(viterbi_m_size); end hmm.tree.lexicon_factory = parser.factory[viterbi_type](hmm.tree.lexicon_model) else hmm.tree.lexicon_model = parser.one_step.treeParserModel(hmm.tree.units, hmm.tree.lexicon) end --hmm.tree.units:print() --hmm.tree.lexicon:print() -- silencios if use_word_sil then if not one_step then hmm.tree.word_sil = parser.tree_lexicon() hmm.tree.word_sil:insert_word({hmm.tree.unit2id[tied:search_triphone(nil, word_sil, nil)] }, hmm.silences[word_sil].output, hmm.silences[word_sil].prob) hmm.tree.word_sil_model = hmm.tree.word_sil:tree_lr_hmm_model(hmm.tree.units) hmm.tree.word_sil_factory = parser.factory[viterbi_type](hmm.tree.word_sil_model) end end if use_optional_sil then hmm.tree.begin_sil = parser.tree_lexicon() hmm.tree.end_sil = parser.tree_lexicon() hmm.tree.begin_sil:insert_word({hmm.tree.unit2id[tied:search_triphone(nil, begin_sil, nil)] }, hmm.silences[begin_sil].output, hmm.silences[begin_sil].prob) if not one_step then hmm.tree.begin_sil_model = hmm.tree.begin_sil:tree_lr_hmm_model(hmm.tree.units) hmm.tree.begin_sil_factory = parser.factory[viterbi_type](hmm.tree.begin_sil_model) else hmm.tree.begin_sil_model = parser.one_step.treeParserModel(hmm.tree.units, hmm.tree.begin_sil) end hmm.tree.end_sil:insert_word({hmm.tree.unit2id[tied:search_triphone(nil, end_sil, nil)] }, hmm.silences[end_sil].output, hmm.silences[end_sil].prob) if not one_step then hmm.tree.end_sil_model = hmm.tree.end_sil:tree_lr_hmm_model(hmm.tree.units) hmm.tree.end_sil_factory = parser.factory[viterbi_type](hmm.tree.end_sil_model) else hmm.tree.end_sil_model = parser.one_step.treeParserModel(hmm.tree.units, hmm.tree.end_sil) end end end ---------------------------------------------- -- CREAMOS UN PARSER_FACTORY_AUTOMATA if not input_lat then if unk_threshold then if one_step then error ("Not implemented 'unk' option for one step algorithm!!!") else if #unk_pair_ids > 1 then error ("Forbidden more than one " .. unk_ngram_word .. " pair in dictionary!!!") end local filler_parser_factory = parser.simple_filler(unk_pair_ids[1], hmm.tree.units) local lexicon_plus_oov_factory = parser.factory.lexicon_plus_oov{ lexicon_parser_factory = hmm.tree.lexicon_factory, filler_parser_factory = filler_parser_factory, } hmm.tree.lexicon_factory = lexicon_plus_oov_factory end end if not one_step then if use_optional_sil then transitions = { {from="ini",to="med",prob=1,arc=hmm.tree.begin_sil_factory}, {from="ini",to="med",prob=1,arc=hmm.tree.lexicon_factory}, {from="ini",to="fin",prob=1,arc=hmm.tree.lexicon_factory}, {from="med",to="med",prob=1,arc=hmm.tree.lexicon_factory}, {from="med",to="fin",prob=1,arc=hmm.tree.end_sil_factory}, {from="med",to="fin",prob=1,arc=hmm.tree.lexicon_factory}, } else transitions = { {from="ini",to="med",prob=1,arc=hmm.tree.lexicon_factory}, {from="ini",to="fin",prob=1,arc=hmm.tree.lexicon_factory}, {from="med",to="med",prob=1,arc=hmm.tree.lexicon_factory}, {from="med",to="fin",prob=1,arc=hmm.tree.lexicon_factory}, } end if use_word_sil then table.insert(transitions, {from="med", to="sil", prob=1, arc=hmm.tree.word_sil_factory}) table.insert(transitions, {from="sil", to="med", prob=1, arc=hmm.tree.lexicon_factory}) end hmm.tree.factory_automata = parser.factory.automata{ initials = { {"ini", 1} }, finals = { {"fin", 1}, }, transitions=transitions } end end --print(hmm.tree.lexicon_factory) --print(hmm.tree.factory_automata) --hmm.tree.factory_automata:print() -- ------------------------------------- -- -------------- -- DATAFLOW -- -------------- test = field_manager() if not server_port then -- nombres de ficheros recog.generate_filenames{ corpus_data_manager = test, filename_mfc = testfile, input_lat_filename = input_lat, prepfilename = prepfile, txtfilename = txtfile, } end -- local frames_source local frames_normalization local frames_contextualizer if not one_step then -- dataflow the_dataflow = dataflow() -- if inputwg then -- iohandler = dataflow.process.iohandler{ -- dataflow = the_dataflow, -- service_name = "iohandler" -- } -- -- df_serializer = dataflow.process.serializer{ -- dataflow = the_dataflow, -- io_service_name = "iohandler", -- filename=inputwg, -- } end -- if not server_port then if not input_lat then -- leemos de dataset frames_source = dataflow.process.dataset_source{ dataflow = the_dataflow, } end else iohandler = dataflow.process.iohandler{ dataflow = the_dataflow, service_name = "iohandler" } -- leer de socket y aplicar medias y desviaciones frames_source = dataflow.process.deserializer{ dataflow = the_dataflow, io_service_name = "iohandler", host = "0.0.0.0", port = server_port, } if feats_mean_and_devs then frames_normalization = dataflow.process.mean_and_devs_normalization{ dataflow = the_dataflow, means = feats_mean_and_devs.means, devs = feats_mean_and_devs.devs, } end local dim = emissions_func:get_input_size() / (ann.left_context + ann.right_context + 1) frames_contextualizer = dataflow.process.contextualizer{ dataflow = the_dataflow, left = ann.left_context, right = ann.right_context, input_dim = dim, } end if not input_lat then -- gausianas df_emissions = dataflow.process.function_box{ dataflow = the_dataflow, the_function = emissions_func:get_function(), } if filehmmdefs==nil then logp = dataflow.process.df_logp { dataflow = the_dataflow, prior_probs = hmm.aprioris, -- en este punto se podria poner un vector de indices para -- reordenar las emisiones que llegan a los modelos del -- seq_graph_gen } end -- sse if sse_type == "maxdiff" then sse = dataflow.process.sse_maxdiff_simple{ dataflow = the_dataflow, past = sse_past, future = sse_future, dist_max_front = sse_dist_max_front, distance = sse_distance, } elseif sse_type == "dummy" then sse = dataflow.process.sse_dummy{ dataflow = the_dataflow } elseif sse_type == "from_string" then sse = dataflow.process.sse_from_string{ dataflow = the_dataflow } end -- creamos el grafo de palabras wgen = dataflow.process.df_seq_graph_gen{ dataflow = the_dataflow, automata = hmm.tree.factory_automata, } wgen:configure_histogram_pruning(wgen_hist_pruning_conf) else -- en este caso WGEN es una fuente de grafos wgen = dataflow.process.word_graph_out{ dataflow = the_dataflow, force_topologic_order = true, } end -- -- ngram a_parser = dataflow.process.parser{ dataflow = the_dataflow, parser = model_parser, lex_table = dictionary:getCObject(), } -- -- sse_spy = dataflow.process.filter_spy{ -- dataflow=the_dataflow, -- path="sse2.log", -- name="sse_spy" -- } -- sink a_sink = dataflow.process.dummy_sink{ dataflow = the_dataflow, } if inputwg then -- WORD GRAPH IN -- -- creamos una caja para el word_graph_in wgraph_in = dataflow.process.word_graph_in(the_dataflow) ------------------- end --------------------------------------------- if not input_lat then if not frames_normalization then if not frames_contextualizer then dataflow.connect ({frames_source, "output"}, {df_emissions, "input"}) else dataflow.connect ({frames_source, "output"}, {frames_contextualizer, "input"}) dataflow.connect ({frames_contextualizer,"output"}, {df_emissions, "input"}) end else dataflow.connect ({frames_source, "output"}, {frames_normalization, "input"}) if not frames_contextualizer then dataflow.connect ({frames_normalization, "output"}, {df_emissions, "input"}) else dataflow.connect ({frames_normalization, "output"}, {frames_contextualizer, "input"}) dataflow.connect ({frames_contextualizer, "output"}, {df_emissions, "input"}) end end if filehmmdefs==nil then dataflow.connect ({df_emissions, "output"}, {logp, "input"}) dataflow.connect ({logp, "output"}, {sse, "input"}) else dataflow.connect ({df_emissions, "output"}, {sse, "input"}) end dataflow.connect ({sse, "output"}, -- {sse_spy, "input"}) -- dataflow.connect ({sse_spy, "output"}, {wgen, "input1"}) end if inputwg then dataflow.connect ({wgen, "output1"}, {wgraph_in, "input"}) dataflow.connect ({wgraph_in, "output"}, {a_parser, "input"}) else if input_lat then dataflow.connect ({wgen, "output"}, {a_parser, "input"}) else dataflow.connect ({wgen, "output1"}, {a_parser, "input"}) end end -- BESTPROB FEEDBACK -- if wgen_feedback and not input_lat then dataflow.connect ({a_parser, "output2"}, {wgen, "input2"}) end ----------------------- -- NGRAM PARSER -- dataflow.connect ({a_parser, "output1"}, {a_sink, "input"}) ------------------ else model_parser = ngram.one_step.load_parser(ngram_model, dictionary, initial_ngram_word, final_ngram_word, hmm.tree.begin_sil_model, hmm.tree.end_sil_model, hmm.tree.lexicon_model) end -- configuramos el parser model_parser:configure_histogram_pruning(hist_pruning_conf) model_parser:set_grammar_scale_factor(grammar_scale_factor) model_parser:set_word_insertion_penalty(word_insertion_penalty) --AUXF = io.open("aux.log", "w") local total_num_words = 0 local lista_tasas = {} local count_gc = 0 -- numero total de tramas procesadas, sirve para medir al final el -- tiempo CPU por trama: local total_processed_frames = 0 -- total de frases correctas, para calcular el SER local correct_sentences = 0 cronometro = util.stopwatch() local last_recog_lm_wids = nil local last_correcta = nil local index = 0 local mfcc_filename local input_lat_filename if ose_file then local name = ose_file ose_file = io.open(ose_file, "r") or error("Not found file: " .. name) end while true do index = index + 1 if not server_port then if not testfile then if index > #test:get_field('input_lat_filename') then break end input_lat_filename = test:get_field('input_lat_filename')[index] else if index > #test:get_field('mfcc_filename') then break end mfcc_filename = test:get_field('mfcc_filename')[index] end end count_gc = count_gc+1 if count_gc >= 10 or server_port then collectgarbage("collect") count_gc = 0 end -- cargamos el dataset correspondiente a la frase actual local tr_filename if txtfile then tr_filename = test:get_field('transcription_filename')[index] end local prep_filename if prepfile then prep_filename = test:get_field('prep_filename')[index] end local basenamestr = "" if mfcc_filename then basenamestr = remove_extensions(string.basename(mfcc_filename)) end local tr_string if tr_filename then fprintf(io.stderr,"# Cargando transcripcion: \t%s\n", tr_filename) local ftr = io.open(tr_filename) or error ("File not found: " .. tr_filename) tr_string = ftr:read("*l") ftr:close() end local frames local actual_ds local numFrames = 1 local numParams = 1 if not server_port then if not mfcc_filename then fprintf(io.stderr,"# Word Graph input: \t%s\n", input_lat_filename) local wg = word_graph.from_htk_lattice(input_lat_filename, dictionary, use_input_lat_lm_score, "!NULL", input_lat_log_base) wgen:set_word_graph(wg) else fprintf(io.stderr,"# Cargando frames: \t%s\n", mfcc_filename) if read_mfcs_in_matrix_format then frames = load_matrix(mfcc_filename) else frames = load_mfcc(mfcc_filename) end numFrames = frames:dim()[1] numParams = frames:dim()[2] -- nCCs+1 local parameters if right_left then parameters = { patternSize = {dataset_step, numParams}, offset = {numFrames/dataset_step-1,0}, -- default value stepSize = {-dataset_step, 0}, -- default value, second value is not important numSteps = {numFrames/dataset_step, 1} } else parameters = { patternSize = {dataset_step, numParams}, offset = {0,0}, -- default value stepSize = {dataset_step, 0}, -- default value, second value is not important numSteps = {numFrames/dataset_step, 1} } end actual_ds = dataset.matrix(frames, parameters) if feats_mean_and_devs then actual_ds:normalize_mean_deviation(feats_mean_and_devs.means, feats_mean_and_devs.devs) end if filehmmdefs==nil then actual_ds = dataset.contextualizer(actual_ds, ann.left_context, ann.right_context, right_left) end end else fprintf(io.stderr,"# Esperando frames en: \t%d\n", server_port) end -- cargamos la transcripcion ortografica local correcta = tr_string if one_step then if server_port then error("ONE STEP forbidden with server port!!!") end t1cpu, t1wall = cronometro:read() cronometro:go() local frontiers = nil if sse_type == "from_string" and not input_lat_filename then if ose_file then -- carga la sobresegmentacion de fichero local current_ose = io.open(ose_file:read("*l")) or error ("File not found!!") frontiers = current_ose:read("*a") current_ose:close() elseif recog_type == "htr" then if not prep_filename then error ("Needs a preprocessed files list --prep options!!!") end fprintf(io.stderr,"# Cargando datos prep: \t%s\n", prep_filename) -- generamos la segmentacion a partir de las imagenes preprocesadas local img = ImageIO.read(prep_filename):to_grayscale() local _,img_height = img:geometry() local max_intraword_space = 999999 -- 50 -- frames local fatFrontiers = false frontiers = segmenter:oversegment(img, cells_per_frame, max_intraword_space, fatFrontiers) elseif recog_type == "online" then -- genera las fronteras para el online. TODO: pasar a C++ este codigo frontiers = { util.ose.compose_frontier{ util.ose.generate_output } } for ipat,pat in dataset.matrix(frames):patterns() do if pat[#pat] > 0 or ipat == numFrames then table.insert(frontiers, util.ose.compose_frontier{ util.ose.generate_output }) else table.insert(frontiers, util.ose.compose_frontier{ }) end end frontiers = table.concat(frontiers, "") end if #frontiers ~= numFrames+1 then error(string.format("Generated frontiers: %d, number of frames: %d", #frontiers, numFrames)) end --print(string.byte(frontiers,1,#frontiers)) --print(#frontiers, frontiers) if right_left then frontiers = util.ose.reverse(frontiers) end end -- RUN ONE STEP PARSER fprintf(io.stderr,"# RUN\n") model_parser:reset() model_parser:do_viterbi{ input_dataset = actual_ds, emissions_func = emissions_func:get_function(), a_prioris = hmm.aprioris, sse_string = frontiers, nested_openmp = nested_openmp, } cronometro:stop() t2cpu, t2wall = cronometro:read() else -- RUN AL DATAFLOW if inputwg then cpp_lex_wg = WordGraph() lex_wg = word_graph(cpp_lex_wg, dictionary) wgraph_in:set_word_graph(cpp_lex_wg) end if not server_port then if mfcc_filename then frames_source:set_dataset(actual_ds) end end if sse_type == "from_string" and not input_lat_filename then local frontiers = nil if server_port then error("FROM STRING ose is forbidden with server port!!!") end if ose_file then -- carga la sobresegmentacion de fichero local current_ose = io.open(ose_file:read("*l")) or error("File not found!!!") frontiers = current_ose:read("*a") current_ose:close() elseif recog_type == "htr" then if not prep_filename then error ("Needs a preprocessed files list --prep options!!!") end fprintf(io.stderr,"# Cargando datos prep: \t%s\n", prep_filename) -- generamos la segmentacion a partir de las imagenes preprocesadas local img = ImageIO.read(prep_filename):to_grayscale() local _,img_height = img:geometry() local max_intraword_space = 999999 -- 50 -- frames local fatFrontiers = false frontiers = segmenter:oversegment(img, cells_per_frame, max_intraword_space, fatFrontiers) elseif recog_type == "online" then -- genera las fronteras para el online. TODO: pasar a C++ este codigo frontiers = { util.ose.compose_frontier{ util.ose.generate_output } } for ipat,pat in dataset.matrix(frames):patterns() do if pat[#pat] > 0 or ipat == numFrames then table.insert(frontiers, util.ose.compose_frontier{ util.ose.generate_output }) else table.insert(frontiers, util.ose.compose_frontier{ }) end end frontiers = table.concat(frontiers, "") end if #frontiers ~= numFrames+1 then error(string.format("Generated frontiers: %d, number of frames: %d", #frontiers, numFrames)) end --print(string.byte(frontiers,1,#frontiers)) --print(#frontiers, frontiers) if right_left then frontiers = util.ose.reverse(frontiers) end sse:set_frontiers_string(frontiers) end fprintf(io.stderr,"# RUN\n") t1cpu, t1wall = cronometro:read() if ngram_model:has_cache() then ngram_model:restart() local wids_tbl = last_recog_lm_wids if use_ref_annotations and last_correcta then local correcta_tbl = string.tokenize(last_correcta) local correcta_wids = dictionary:searchWordIdSequence(correcta_tbl) wids_tbl = correcta_wids fprintf(io.stderr,"# Processed last %d reference words\n", #correcta_wids) elseif last_recog_lm_wids then fprintf(io.stderr,"# Processed last %d recog words\n", #last_recog_lm_wids) end if wids_tbl then for i=1,#wids_tbl do ngram_model:cacheWord(wids_tbl[i]) end end if cache_txt then local cache_txt_line = cache_txt:read("*l") local cache_words = string.tokenize(cache_txt_line) for i=1,#cache_words do if cache_words[i] == "" then ngram_model:clearCache() elseif cache_words[i] ~= "" then local w = dictionary:getWordId(cache_words[i]) or dictionary:getWordId(unk_ngram_word) ngram_model:cacheWord(w) end end fprintf(io.stderr,"# Processed %d extra cache words\n", #cache_words) end --ngram_model:showCache() end cronometro:go() resul=the_dataflow:run() cronometro:stop() t2cpu, t2wall = cronometro:read() if inputwg then local dot_str = lex_wg:to_dot() local f = io.open(string.format("%s_%s_%05d.dot", inputwg, basenamestr, index), "w") f:write(dot_str.."\n") f:close() cpp_lex_wg = nil lex_wg = nil end if not resul then fprintf(io.stderr,"Error al hacer dataflow:run()\n") end end -- GET WORDGRAPH -- wgraph = wgraph_in:get_word_graph() -- local wgf = io.open("grafo.dot", "w") -- wgf:write(wgraph:to_dot(dictionary:getVocabulary())) -- wgf:close() -- -- GET BESTPATH if save_seg then path,seg,logprob = model_parser:get_best_path_and_segmentation() fprintf(io.stderr,"%s\n",table.concat(path, " ")) fprintf(io.stderr,"%s\n",table.concat(seg, " ")) else path,logprob = model_parser:get_best_path() end -- if not server_port then if mfcc_filename then fprintf(io.stderr,"# %s\t%s\n",test:get_field('mfcc_filename')[index], index .. "/" .. #test:get_field('mfcc_filename')) elseif input_lat_filename then fprintf(io.stderr,"# %s\t%s\n",test:get_field('input_lat_filename')[index], index .. "/" .. #test:get_field('input_lat_filename')) end end if path then if right_left then path = table.reverse(path) end -- print ("# DAG VERTEX:", table.concat(segmentation, ", ")) fprintf (io.stderr,"###########################################\n") fprintf (io.stderr,"# logprob N-grama: %f\n",logprob) local get_tr = function(path) local reconocida if optargs.dog then reconocida = table.concat(dictionary:searchOutSymsSequence(path), "") reconocida = string.gsub(reconocida, "[".. gsub_sils .. "]", " ") reconocida = table.concat(string.tokenize(reconocida), " ") else if output_lm_words then reconocida = table.concat(dictionary:searchWordsSequence(path), " ") else reconocida = table.concat(dictionary:searchOutSymsSequence(path), " ") end end return reconocida end local get_lm_tr = function(path) local reconocida = table.concat(dictionary:searchWordsSequence(path), " ") if optargs.dog then reconocida = table.concat(dictionary:searchWordsSequence(path), "") reconocida = string.gsub(reconocida, "[".. gsub_sils .. "]", " ") reconocida = table.concat(string.tokenize(reconocida), " ") end return reconocida end reconocida = get_tr(path) last_recog_lm_wids = dictionary:searchWordIdSequenceFromPairID(path) fprintf(io.stderr,"# Correcta: %s\n",(correcta or "N/A")) last_correcta = correcta fprintf(io.stderr,"# Reconocida N-grama: %s\n",view_filter(reconocida)) print(reconocida) if correcta and filter(reconocida or "") == filter(correcta) then correct_sentences = correct_sentences + 1 end total_num_words = total_num_words + ((correcta and #string.tokenize(correcta)) or #string.tokenize(reconocida)) if save_seg then fprintf(io.stderr,"# Segmentacion: %s\n",table.concat(seg, " ")) end tWall = t2wall-t1wall tCPU = t2cpu-t1cpu if tWall > 0 then framesPerSecond = numFrames/tWall else framesPerSecond = 0 end if recog_type == "asr" then RTfactor = tWall/((numFrames+1)*wadvance) -- sumamos 1 pq windosize es aprox 2 wadvance fprintf(io.stderr,"# Tiempo: %.2f (cpu) %.2f (wall) %.2f frames/s (%.2f x RT) %d frames\n", tCPU, tWall, framesPerSecond, RTfactor, numFrames or 0) else fprintf(io.stderr,"# Tiempo: %.2f (cpu) %.2f (wall) %.2f frames/s %d frames\n", tCPU, tWall, framesPerSecond, numFrames or 0) end fprintf(io.stderr,"###########################################\n") -- OJO: he quitado el +1 para poder medir frames/sec, en lugar de -- RT factor. Al final, para calcular el RT factor se le suma -- num_sentences para compensar total_processed_frames = total_processed_frames + numFrames -- -- para tasas -- if correcta then table.insert(lista_tasas,{filter(correcta), filter(reconocida)}) --AUXF:write(filter(correcta).."="..filter(reconocida).."\n") end -- ------------------------------------------------- -- NBEST local output_wg = nil local wg_file = nil if wg_filename then output_wg = WordGraph() end if nbest_file then local sri_filename local sri_filename2 local sri_file if lattice_tool then local wg = model_parser:get_trellis_wordgraph() local str = wg:toSLF(pairid2wordstr) sri_filename = os.tmpname() sri_file = io.open(sri_filename, "w") sri_file:write(str) sri_file:close() sri_filename2 = os.tmpname() os.execute("rm -f ".. sri_filename2) sri_filename2 = sri_filename2 .. ".out" os.execute("mkdir ".. sri_filename2) os.execute(string.format("%s %s -read-htk -in-lattice %s -nbest-decode %s ".. "-htk-lmscale 0.000000001 -htk-acscale 1 -htk-wdpenalty 0.000000001 ".. "-out-nbest-dir %s -htk-logbase 2.7182818284590451", -- -nbest-viterbi", lattice_tool, (uniq_nbest=="yes" and "-nbest-duplicates 0") or "", sri_filename, num_nbest, sri_filename2)) os.execute("rm -f " .. sri_filename) sri_filename = sri_filename2 .. "/dummy.gz" sri_file = io.open(sri_filename, "r") sri_file:read("*l") -- leemos la 1 best else if output_wg then model_parser:configure_eppstein(output_wg) else model_parser:configure_eppstein() end end local reconocida = get_tr(path) local output = {} write_features = function(path,logprob) if features_file then local wids = dictionary:searchWordIdSequenceFromPairID(path) local lm_score = ngram.get_prob_from_id_tbl(ngram_model, wids, dictionary:getWordId(initial_ngram_word), dictionary:getWordId(final_ngram_word), use_bcc, use_ecc) if apply_gsf_word_probs then for i=1,#path do lm_score = lm_score + dictionary:getData(path[i]).prob end end hmm_score = logprob - lm_score*grammar_scale_factor - #wids * word_insertion_penalty table.insert(output, string.format("%f %f %d",hmm_score,lm_score,#wids)) end end write_features(path,logprob) local uniq = {} fprintf(nbest_file, "%d||| %s ||| %s ||| %f\n", index-1, reconocida, output[#output] or "", logprob) if uniq_nbest == "yes" then uniq[reconocida] = true end --epp = model_parser:get_eppstein(nbest_wg_file ~= nil) local nbesti = 1 local num_it = 0 while nbesti < num_nbest and num_it < num_nbest*20 do num_it = num_it + 1 local path local logprob if lattice_tool then local line = sri_file:read("*l") -- leemos la siguiente if line then local t = string.tokenize(line) logprob = tonumber(t[1])*log10 path = {} for i=5,#t-1 do table.insert(path, tonumber(t[i])) end end else path,seg,logprob = model_parser:next_best_path() if right_left then path = table.reverse(path) end end if not path then break end local reconocida = get_tr(path) local do_print = true if uniq_nbest == "yes" then if not uniq[reconocida] then uniq[reconocida] = true else do_print = false end end if do_print then write_features(path,logprob) fprintf(nbest_file, "%d||| %s ||| %s ||| %f\n", index-1, reconocida, output[#output] or "", logprob) nbesti = nbesti + 1 nbest_file:flush() end end if lattice_tool then sri_file:close() end if features_file then features_file:write(string.format("FEATURES_TXT_BEGIN_0 %d %d 3 hmm lm wip\n", index-1, nbesti)) features_file:write(table.concat(output, "\n").."\n") features_file:write("FEATURES_TXT_END_0\n") features_file:flush() end if sri_filename then os.execute("rm -Rf " .. sri_filename2) end elseif wg_filename then model_parser:configure_eppstein(output_wg) model_parser:compute_nbest(num_nbest-1) end if output_wg then -- salvar word graph local wg_file = io.open(string.format("%s_%s_%05d.slf", wg_filename, basenamestr, index), "w") local wg = word_graph(output_wg, dictionary) -- TODO: usar GSF y WIP --wg_file:write(wg:to_slf(nil,grammar_scale_factor,word_insertion_penalty).."\n") wg_file:write(wg:to_slf(nil,0,0).."\n") wg_file:close() end ------------------------------------------------ else fprintf(io.stderr,"# Correcta: %s\n",(correcta or "N/A")) last_correcta = correcta fprintf(io.stderr,"# Reconocida N-grama: \n") if correcta then table.insert(lista_tasas,{filter(correcta), ""}) if filter(reconocida or "") == filter(correcta) then correct_sentences = correct_sentences + 1 end end fprintf(io.stderr,"# Error, no se ha encontrado camino!!\n") print("") last_recog_lm_wids = {} -- NBEST if nbest_file then if features_file then features_file:write("FEATURES_TXT_BEGIN_0 %d 1 3 hmm lm wip\n", index-1) end fprintf(nbest_file, "%d||| ||| %f %f %f ||| %f\n", index-1, 0, 0, 0, 0) write_features = function() if features_file then fprintf(features_file,"%f %f %f\n",0,0,0) features_file:flush() end end write_features() if features_file then features_file:write("FEATURES_TXT_END_0\n") end end if nbest_wg_file then end end --printf("%d %d\n", --hmm.tree.lexicon_model:get_num_vectors(), --hmm.tree.lexicon_model:get_num_states()) fprintf(io.stderr,"\n") io.stdout:flush() io.stderr:flush() -------------------------------------------------------- end if nbest_file then nbest_file:close() end if features_file then features_file:close() end num_sentences = index --AUXF:close() if txtfile then local resul_val = tasas{ typedata = "pairs_lines", -- words_sep valor por defecto data = lista_tasas, tasa = "ie", -- para calcular wer } fprintf(io.stderr,"Tasa WER: %f\n", resul_val.tasa) local resul_val = tasas{ typedata = "pairs_lines", data = lista_tasas, tasa = "ie", -- para calcular wer words_width = 1, } fprintf(io.stderr,"Tasa CER: %f\n", resul_val.tasa) fprintf(io.stderr,"Tasa SER: %f\n", 100*(1 - correct_sentences/num_sentences)) end total_cpu_time, total_wall_time = cronometro:read() fprintf(io.stderr,"Total time: %.2f (cpu) %.2f (wall), cpu/sentence %.4f cpu/word %.4f ", total_cpu_time, total_wall_time, total_cpu_time/num_sentences, total_cpu_time/total_num_words) fprintf(io.stderr,"wall/sentence %.4f wall/word %.4f ", total_wall_time/num_sentences, total_wall_time/total_num_words) fprintf(io.stderr,"frames/cpu %.4f frames/wall %.4f", total_processed_frames/total_cpu_time, total_processed_frames/total_wall_time) if recog_type == "asr" then -- sumamos num_sentences porque wsize es casi 2 wadvance -- (hay que sumar 1 por cada frase = num_sentences) RTfactor = total_wall_time/((total_processed_frames+num_sentences)*wadvance) fprintf(io.stderr,", RT factor: %.2f x RT",RTfactor) end fprintf(io.stderr,"\n") april-ann-0.3.1/tools/HMM_ANN/recognition/template-recog-conf.lua000066400000000000000000000013611234204160600245260ustar00rootroot00000000000000 return { recog="htr", m="BESTMODELS/hmms.lua", n="BESTMODELS/mlp.net", --hmmdefs="...", -- HTK HMMs and GMMs context=4, t="tiedlist.Graves.id", d="/home/experimentos/PAMI_MODELOS/Graves/lexicon_20000.intersected.SILOPT", lm="/home/experimentos/PAMI_MODELOS/Graves/latticeArpa_f.intersected.lira.gz", gsf=9, wip=-15, optsil="yes", feats_format="mat", feats_norm="pats/means_and_devs.PRESERVANDOX.lua", ngram_beam=2000, ngram_size=400, ngram_nstates=10000, -- one_step="no", -- nested="no", -- dog="no", -- filter="...", -- cache_size=18, -- trie_size=25, -- ose="htr" -- use_word_probs="yes", -- unk=nil, -- only valid for two steps algorithm wgen_beam=1000, wgen_size=200, wgen_nstates=4000, } april-ann-0.3.1/tools/HMM_ANN/recognition/tuning.sh000066400000000000000000000121061234204160600220270ustar00rootroot00000000000000#!/bin/bash initrun=$1 lastrun=$2 defopt=$3 lm=$4 devtarget=$5 tuningdir=${6}/ numnbest=${7} # por defecto 500 maxhout=${8} # por defecto 100 use_prev_nbest=${9} # por defecto yes initweights=${10} if [ -z $APRILANN_ROOT ]; then echo "APRILANN_ROOT environment variable is needed" exit 1 fi gsf=10 wip=0 scale=15 epsilon=0.00001 if [ -z $use_prev_nbest ]; then use_prev_nbest="yes" fi if [ ! -z $initweights ]; then waux=( $(tail -n 1 "$initweights") ) gsf=`echo "scale=$scale; ${waux[1]}/${waux[0]}" | bc` wip=`echo "scale=$scale; ${waux[2]}/${waux[0]}" | bc` fi if [ -z $maxhout ]; then maxhout=100; fi if [ -z $numnbest ]; then numnbest=500; fi optimizer=simplex; objfunc="WER"; aprilann_tools=$APRILANN_ROOT/tools aprilann=$APRILANN_ROOT/bin/april-ann recog=$aprilann_tools/HMM_ANN/recog.lua scorer="$aprilann $aprilann_tools/HMM_ANN/extract_WER_weights.lua" generate_conf=$aprilann_tools/HMM_ANN/generate_conf.lua mert="$aprilann $aprilann_tools/optimizer_weights.lua -s WER -t simplex -a 2 " if [ -z $lm ]; then tm="nil"; fi if [ $lm = "nil" ]; then lm=""; else lm="--lm=$lm" fi if [ -z $tuningdir ]; then tuningdir=tuning; fi mkdir -p $tuningdir if [ $initrun -gt 1 ]; then prevrun=`expr $initrun - 1` if [ ! -e $tuningdir/run$prevrun/weights.txt ]; then echo "ERROR!!! $tuningdir/run$prevrun/weights.txt not found" exit 128 fi weights=( $(tail -n 1 "$tuningdir/run$prevrun/weights.txt") ) gsf=`echo "scale=$scale; ${weights[1]}/${weights[0]}" | bc` wip=`echo "scale=$scale; ${weights[2]}/${weights[0]}" | bc` else cp $defopt $tuningdir/tuning-conf.lua fi if [ ! -e $tuningdir/tuning-conf.lua ]; then cp $defopt $tuningdir/tuning-conf.lua fi endrun=$initrun echo $0 $@ > $tuningdir/last_tuning_exec.sh chmod +x $tuningdir/last_tuning_exec.sh rm -f $tuningdir/finished.txt for run in `seq $initrun $lastrun`; do mkdir -p $tuningdir/run$run nbestlog=$tuningdir/run$run/run$run.best$numnbest.out tuplenbestlog=$tuningdir/run$run/run$run.tuplebest$numnbest.out featlog=$tuningdir/run$run/run$run.feats.opt stdout=$tuningdir/run$run/run$run.out stderr=$tuningdir/run$run/run$run.err # cargamos los pesos y generamos gsf y wip echo "FECHA: "`date` echo "Reconociendo... etapa $run (esto puede tarder MUCHO tiempo)" $aprilann $generate_conf $tuningdir/tuning-conf.lua $lm \ --uniq-nbest=yes --gsf=$gsf --wip=$wip > $tuningdir/run$run/conf.lua $aprilann $recog --nbest=$numnbest --save-nbest=$nbestlog --features=$featlog \ --max-h-out=$maxhout \ -f $tuningdir/run$run/conf.lua > $stdout 2> $stderr if [ $? -ne 0 ]; then echo "ERROR!!!" exit 128; fi gzip -f $nbestlog gzip -f $featlog # scorer refs=$devtarget prevsc="" prevfe="" if [ $run -gt 1 ]; then if [ $use_prev_nbest = "yes" ]; then prevsc="-R $tuningdir/prev-scores.dat.gz" prevfe="-E $tuningdir/prev-feats.dat.gz" fi fi $scorer -r $refs \ -S $tuningdir/scores.dat \ -F $tuningdir/feats.dat \ -n $nbestlog.gz $prevsc $prevfe if [ $? -ne 0 ]; then echo "ERROR!!!" exit 128; fi echo "MERT" echo "1 $gsf $wip" > $tuningdir/init.opt oldpwd=`pwd` seed=$RANDOM if [ -e $tuningdir/run$run/run$run.seed.txt ]; then seed=`cat $tuningdir/run$run/run$run.seed.txt`; fi echo $seed > $tuningdir/run$run/run$run.seed.txt cd $tuningdir/ $mert -n 20 -d 3 -S scores.dat \ -r $seed \ -F feats.dat -i init.opt >& run$run/run$run.mert.log if [ $? -ne 0 ]; then echo "ERROR!!!" exit 128; fi cd $oldpwd gzip -f $tuningdir/scores.dat gzip -f $tuningdir/feats.dat mv -f $tuningdir/scores.dat.gz $tuningdir/prev-scores.dat.gz mv -f $tuningdir/feats.dat.gz $tuningdir/prev-feats.dat.gz lastwfile=$tuningdir/run$run/weights.txt grep -i "best point: " $tuningdir/run$run/run$run.mert.log | cut -d':' -f 2 | cut -d'=' -f 1 > $lastwfile weights=( $(tail -n 1 "$tuningdir/run$run/weights.txt") ) new_gsf=`echo "scale=$scale; ${weights[1]}/${weights[0]}" | bc` new_wip=`echo "scale=$scale; ${weights[2]}/${weights[0]}" | bc` stop=1 diffs="" echo GSF= $new_gsf WIP= $new_wip aux=`echo "${gsf[$i]} - ${new_gsf[$i]}" | bc` diff=`echo "scale=$scale; sqrt($aux * $aux)" | bc` # hack FEO para valor absoluto diffs="$diffs $diff" res=`echo "$diff > $epsilon" | bc` if (( "$res" == 1 )); then stop=0 fi aux=`echo "${wip[$i]} - ${new_wip[$i]}" | bc` diff=`echo "scale=$scale; sqrt($aux * $aux)" | bc` # hack FEO para valor absoluto diffs="$diffs $diff" res=`echo "$diff > $epsilon" | bc` if (( "$res" == 1 )); then stop=0 fi echo "sizew= 3 stop= $stop dir= $tuningdir" endrun=$run if (( "$stop" == 1 )); then echo $endrun > $tuningdir/finished.txt break; fi gsf=$new_gsf wip=$new_wip done cp -f $tuningdir/run$endrun/conf.lua $tuningdir/conf.lua oldpwd=`pwd` cd $tuningdir rm -f last ln -s run$endrun last cd $oldpwd echo $endrun > $tuningdir/finished.txt echo "Stop en la etapa " $endrun echo "OK" april-ann-0.3.1/tools/HMM_ANN/segmentation/000077500000000000000000000000001234204160600203445ustar00rootroot00000000000000april-ann-0.3.1/tools/HMM_ANN/segmentation/forced_viterbi_alignment.lua000066400000000000000000000272701234204160600261030ustar00rootroot00000000000000-- FIXME: Este SCRIPT solo tiene en cuenta trifonemas dentro de las -- palabras, pero entre palabras april_print_script_header(arg) dofile(string.get_path(arg[0]) .. "../utils.lua") cmdOptTest = cmdOpt{ program_name = string.basename(arg[0]), argument_description = "", main_description = "Force Viterbi Alignment with April toolkit", { index_name="defopt", description="Load configuration file (a lua tabla)", short="f", argument="yes", filter=dofile, }, { index_name="posteriors", -- antes filenet description = "Posteriors file list", long = "posteriors", argument = "yes", }, { index_name="n", -- antes filenet description = "MLP file", short = "n", argument = "yes", }, { index_name = "m", -- antes filem description = "hmms file", short = "m", argument = "yes", }, { index_name="hmmdefs", -- antes filehmmdefs description = "hmms HTK file", long = "hmmdefs", argument = "yes", }, { index_name="t", -- antes tiedfile description = "HTK unit's tied list", short = "t", argument = "yes", mode = "always", }, { index_name="p", -- antes testfile description = "File with the corpus mfccs data", short = "p", argument = "yes", mode = "always", }, { index_name="txt", -- antes txtfile description = "File with the corpus transcriptions", long = "txt", argument = "yes", mode = "always", }, { index_name="phdict", description = "Dictionary for generate transcriptions (only if txtfile is not a phonetic transcription)", long = "phdict", argument = "yes", }, { index_name="silences", description="HMM models for silences (a blank separated list)", long="silences", argument="yes", filter=string.tokenize, }, { index_name="begin_sil", description="Add this model as Begin Silence (must be in --silences list)", long="begin-sil", argument="yes", }, { index_name="end_sil", description="Add this model as Begin Silence (must be in --silences list)", long="end-sil", argument="yes", }, { index_name="transcription_filter", description="Filter the transcriptions to generate phonetic sequences", long="transcription-filter", argument="yes", filter=dofile, }, { index_name = "context", -- antes ann_context_size description = "Size of ann context", long = "context", argument = "yes", filter = tonumber, mode = "always", default_value = 4, }, { index_name = "feats_format", description = "Format of features mat or mfc", long = "feats-format", argument = "yes", mode = "always", default_value = "mat", }, { index_name = "feats_norm", description = "Table with means and devs for features", long = "feats-norm", argument = "yes", filter = dofile, }, { index_name = "step", description = "Dataset step", long = "step", argument = "yes", mode = "always", filter = tonumber, default_value = "1", }, { index_name="force", description = "Force overwritten output files", long = "force", argument = "no", default_value = false, }, { index_name = "dir", description = "Output dir", long = "dir", argument="yes", mode = "always", }, { index_name = "phondir", description = "Output dir for phonetic transcription", long = "phondir", argument="yes", mode = "always", default_value = nil, }, { index_name = "cores", description = "Number of cores", long = "cores", argument="yes", mode = "always", default_value = "2", filter = tonumber, }, { description = "shows this help message", short = "h", long = "help", argument = "no", action = function (argument) print(cmdOptTest:generate_help()) os.exit(1) end } } local optargs = cmdOptTest:parse_without_check() if type(optargs) == "string" then error(optargs) end local initial_values if optargs.defopt then initial_values = optargs.defopt optargs.defopt=nil end optargs = cmdOptTest:check_args(optargs, initial_values) fileposteriors = optargs.posteriors filenet = optargs.n filem = optargs.m filehmmdefs = optargs.hmmdefs tiedfile = optargs.t valfile = optargs.p txtfile = optargs.txt dir = optargs.dir phondir = optargs.phondir context = optargs.context step = optargs.step format = optargs.feats_format transcription_filter = optargs.transcription_filter phdict = optargs.phdict silences = optargs.silences begin_sil = optargs.begin_sil end_sil = optargs.end_sil cores = optargs.cores feats_mean_and_devs = optargs.feats_norm force_write = optargs.force os.execute("mkdir -p " .. dir) os.execute("mkdir -p " .. phondir) if not fileposteriors and not filenet then error("Needs --posteriors or -n arguments") end if not silences then fprintf(io.stderr, "# WARNING!!! NOT SILENCES TABLE DEFINED\n") end if (not (filenet or fileposteriors) or not filem) and not fileHTK then error ("Needs a HMM/ANN or HTK file") end if fileHTK then error ("Not revised!!! probably not implemented!!!") end if filenet then ann_trainer = trainable.supervised_trainer.load(filenet, nil, 128) else posteriors_f=io.open(fileposteriors)or error("Unable to open "..fileposteriors) end -------------------- -- parametros RNA -- -------------------- ann = {} ann.left_context = context ann.right_context = context -------------------- -- Corpus -- -------------------- corpus = { } corpus.filename_val = valfile corpus.filename_txt = txtfile -- objeto con informacion sobre modelos ligados tied = tied_model_manager(io.open(tiedfile)) --------- -- HMM -- --------- -- creamos el trainer y le metemos los modelos acusticos hmm_trainer = HMMTrainer.trainer() hmm = {} hmm.silences = {} hmm.silence_tbl = {} for i=1,#silences do hmm.silences[silences[i]] = 1.0 table.insert(hmm.silence_tbl, silences[i]) end if begin_sil and (not silences or not hmm.silences[begin_sil]) then error ("Begin silence must be in --silences list") end if end_sil and (not silences or not hmm.silences[end_sil]) then error ("End silence must be in --silences list") end if ann_trainer then num_emissions = ann_trainer:get_output_size() end -- cargamos los HMMs hmm.models,num_models,num_emissions_hmm_file,emiss_to_hmm = load_models_from_hmm_lua_desc(filem, hmm_trainer) num_emissions = num_emissions or num_emissions_hmm_file if num_emissions ~= num_emissions_hmm_file then error(string.format("Incorrect number of emissions at HMMs file, ".. "expected %d and found %d", num_emissions, num_emissions_hmm_file)) end ann.output_dictionary = dataset.identity(num_emissions, 0.0, 1.0) collectgarbage("collect") -- si nos dan el diccionario fonetico, generamos modelos para las -- palabras local mangling -- sirve para el name mangling de las palabras if phdict then print("# WARNING!!! Verify that your dictionary contains optional silences ".. "as alternative pronunciations") print("# Using dictionary for generate phonetic transcriptions") _,mangling=HMMTrainer.utils.dictionary2lextree(io.open(phdict), tied, hmm.silences, hmm_trainer) collectgarbage("collect") end -------------------- -- Carga de datos -- -------------------- -- -- nombres de ficheros test = field_manager() recog.generate_filenames{ corpus_data_manager = test, filename_mfc = valfile, filename_fon = txtfile, } -- local frames_loader if format == "mat" then frames_loader = load_matrix else frames_loader = load_mfcc end collectgarbage("collect") list = test:get_field('mfcc_filename') which_i_am,child_pid = util.split_process(cores) for index=which_i_am,#list,cores do mfcc_filename = list[index] collectgarbage("collect") -- cargamos el dataset correspondiente a la frase actual local tr_filename = test:get_field('phon_filename')[index] local basenamestr = remove_extensions(string.basename(tr_filename)) print ("# Loading transcription: ", tr_filename, index.."/"..#list) local tr_string = io.open(tr_filename):read("*l") print ("# Loading frames: ", mfcc_filename) local frames = frames_loader(mfcc_filename) local numFrames = frames:dim()[1] local numParams = frames:dim()[2] -- nCCs+1 local parameters = { patternSize = {step, numParams}, offset = {0,0}, -- default value stepSize = {step, 0}, -- default value, second value is not important numSteps = {numFrames/step, 1} } local actual_ds = dataset.matrix(frames, parameters) if feats_mean_and_devs then actual_ds:normalize_mean_deviation(feats_mean_and_devs.means, feats_mean_and_devs.devs) end if filehmmdefs==nil then actual_ds = dataset.contextualizer(actual_ds, ann.left_context, ann.right_context) end local segmentation_matrix = matrix(numFrames) local mat_full if ann_trainer then print ("# Generating posteriors...") mat_full = matrix(numFrames, num_emissions) local mat_full_ds = dataset.matrix(mat_full) ann_trainer:use_dataset{ input_dataset = actual_ds, -- parametrizacion output_dataset = mat_full_ds -- matriz de emisiones } else local filename = posteriors_f:read("*l") print ("# Loading posteriors: ", filename) mat_full = frames_loader(filename) end print("# Building HMM model") -- filtramos la transcripcion if transcription_filter then tr_string = transcription_filter(tr_string) end -- anyadimos los silencios if begin_sil then tr_string = begin_sil .. " " .. tr_string end if end_sil then tr_string = tr_string .. " " .. end_sil end tr_string = string.gsub(tr_string, begin_sil.." "..begin_sil, begin_sil) tr_string = string.gsub(tr_string, end_sil.." "..end_sil, end_sil) local themodel if phdict then -- generamos el modelo a partir del diccionario fonetico, necesita -- name mangling local tbl = table.imap(string.tokenize(tr_string), function(str) assert(mangling[str] or hmm.silences[str], "Word without transcription: " .. str) return mangling[str] or str end) themodel=generate_models_from_sequences(tbl, hmm_trainer,nil,hmm.silences) else -- generamos la secuencia de esta frase themodel=generate_models_from_sequences(string.tokenize(tr_string), hmm_trainer,tied,hmm.silences) end printf ("# Segmentation... ") io.stdout:flush() -- ahora generamos la salida de Viterbi local logprob,phon_output = themodel:viterbi{ input_emission = mat_full, do_expectation = false, output_emission_seq = segmentation_matrix, emission_in_log_base = true, } printf("%12.4f score\n", logprob) -- print(segmentation_matrix) print(phon_output) local output_filename = dir .. "/" .. remove_extensions(string.basename(mfcc_filename)) .. ".mat" print ("# Saving " .. output_filename) if io.open(output_filename) and not force_write then error(string.format("# Output file '%s' exists, use --force to force overwritten\n", output_filename)) else segmentation_matrix:toFilename(output_filename, "binary") end if phondir then output_filename = phondir .. "/" .. remove_extensions(string.basename(mfcc_filename)) .. ".phon" print ("# Saving " .. output_filename) if io.open(output_filename) and not force_write then error(string.format("# Output file '%s' exists, use --force to force overwritten\n", output_filename)) else local f = io.open(output_filename, "w") f:write(phon_output .. "\n") f:close() end end end if child_pid then -- esperamos a los hijos util.wait() end april-ann-0.3.1/tools/HMM_ANN/segmentation/old/000077500000000000000000000000001234204160600211225ustar00rootroot00000000000000april-ann-0.3.1/tools/HMM_ANN/segmentation/old/convert_initial_segmentation_to_n_states_hmm.lua000066400000000000000000000060211234204160600330350ustar00rootroot00000000000000-- recibe dos numeros, el numero de estados de la segmentacion -- inicial, y el numero de estados de cada HMM que queremos que tenga orig_states = tonumber(arg[1]) orig_dir = arg[2] dest_states = tonumber(arg[3]) if not dest_states then dest_states = {} local i=0 for line in io.lines(arg[3]) do dest_states[i] = tonumber(line) i = i+1 end else local n = dest_states dest_states = {} for i=0,100 do dest_states[i] = n end end dest_dir = arg[4] if orig_dir == dest_dir then error ("NO PUEDES SOBREESCRIBIR EL ORIGEN Y EL DESTINO") end semilla = 1234 rnd = random(semilla) -- recorre cada fichero del directorio for i,file_name in ipairs(glob(orig_dir.."/*")) do local file_basename = string.basename(file_name) local m = matrix.loadfile(file_name) local msize = m:dim()[1] local t = {} local ini_pos = 1 local ant_ch = -1 local ant_emiss = -1 local ch = -1 local num_emisiones_perdidas = 0 collectgarbage("collect") -- para cada patron de la matriz original local ds = dataset.matrix(m) for j=1,msize do local pat = ds:getPattern(j) -- sacamos el indice de caracter que representa la emision ch = math.floor((pat[1]-1)/orig_states) -- si hemos cambiado de caracter o hemos llegado al final de la -- matriz -- print(j, "ant_ch: "..ant_ch, "ant_emiss: "..ant_emiss, "ch: "..ch, "emiss: "..pat[1]) if ch ~= ant_ch or pat[1] < ant_emiss or j == msize then -- si no estamos en la primera iteracion if j > 1 then local size = j - ini_pos local ini_emiss = ant_ch*dest_states[ant_ch] + 1 local fin = j-1 -- si hemos llegado al final de la matriz, entonces iremos de -- ini_emiss hasta msize, en otro caso sera de ini_emiss a j-1 if j == msize then fin = msize size = size + 1 end -- sacamos el numero de tramas por estado y las que me han sobrado local tramas_por_estado = math.floor(size / dest_states[ant_ch]) local sobran = size % dest_states[ant_ch] local aux_vec_estados = {} for k=1,dest_states[ant_ch] do aux_vec_estados[k] = tramas_por_estado end local shuffled_vector = rnd:shuffle(dest_states[ant_ch]) for k=1,sobran do local v = aux_vec_estados[shuffled_vector[k]] aux_vec_estados[shuffled_vector[k]] = v + 1 end local sum=0 for k=1,dest_states[ant_ch] do sum = sum +aux_vec_estados[k] end -- print("sum ",sum,size,j-ini_pos) for k=1,dest_states[ant_ch] do for rep=1,aux_vec_estados[k] do t[ini_pos] = ini_emiss + k - 1 --print(ds:getPattern(ini_pos)[1], t[ini_pos], size, tramas_por_estado, sobran, j) ini_pos = ini_pos + 1 end end -- print("wop",ini_pos,j) end ant_ch = ch end ant_emiss = pat[1] end -- comprobamos que no haya ERRORES if #t ~= msize then error("#t no es correcta ".. #t .. " " .. msize) end local dest_file_name = dest_dir .. "/" .. file_basename local auxm = matrix(#t, t) matrix.savefile(auxm, dest_file_name, "binary") print(i, file_basename) end april-ann-0.3.1/tools/HMM_ANN/segmentation/old/generate_initial_segmentation.py000066400000000000000000000040031234204160600275510ustar00rootroot00000000000000# lee un fichero con este formato: # 08730_533_10850:271_f2_unknown 34 uu 0 (164,0) (165,1) (166,1) (167,1) (168,0) # 08730_533_10850:271_f2_unknown 26 nn 3 (124,0) (125,1) (126,1) (127,1) (128,0) # 08730_533_10850:271_f2_unknown 4 pause 6 (16,0) (17,17) (18,15) (19,26) (20,0) # 08730_533_10850:271_f2_unknown 14 ch 64 (64,0) (65,7) (66,3) (67,6) (68,0) # 08730_533_10850:271_f2_unknown 10 an 80 (44,0) (45,4) (46,1) (47,3) (48,0) # 08730_533_10850:271_f2_unknown 12 bb 88 (54,0) (55,2) (56,1) (57,3) (58,0) # # cada linea es de la forma: # fichero indice fonema primeratrama segmentacion dentro del fonema # # la segmentacion dentro del fonema es una lista de (estadoHMM,numero # de tramas) si sumamos los numero de tramas de todos los estados # vemos que concuerda con el indice de trama del siguiente fonema # # el script genera una matriz unidimensional donde cada elemento es el # indice del tipo de emision de HMM from random import randint phone_list = open("phone_list.txt").read().split() print(phone_list) file_list = open("train.txt").read().split() for filename in file_list: print(filename) output_sequence = [] for linea in open("/labo/data/Media/SEG_CI/"+filename+".seg").readlines(): aux = linea.split() phone = phone_list.index(aux[2]) ristra = [int(x.split(',')[1].replace(")","")) for x in aux[5:-1]] numstates = len(ristra) numframes = sum(ristra) # print phone,ristra if numstates > 3: ristra[2] += sum(ristra[3:]) del ristra[3:] if numstates < 3: ristra = [0,0,0] cociente = numframes / 3 # in python3 use // resto = numframes % 3 for i in range(3): ristra[i] = cociente for i in range(resto): ristra[randint(0,2)] += 1 st = 3*phone for i in range(3): for j in range(ristra[i]): output_sequence.append(st+i) f = open("initial_segmentation/"+filename+".sgm","w") f.write("%d\nascii\n" % (len(output_sequence),)) for i in output_sequence: f.write("%d\n" % (i,)) f.close() april-ann-0.3.1/tools/HMM_ANN/segmentation/resegment.lua000066400000000000000000000101751234204160600230440ustar00rootroot00000000000000---------------------------------------------------------------------- -- argumentos file_name_frames = arg[1] origin_directory = arg[2] destiny_directory = arg[3] origin_numstates = tonumber(arg[4]) dest_numstates = tonumber(arg[5]) espace_index = 53 ---------------------------------------------------------------------- -- funciones ---------------------------------------------------------------------- segmentation = {} -- namespace function segmentation.load_hmm_seq(tbl, numstates) -- recibe un vector de tipos de emision a nivel de estado HMM, -- devuelve otro vector de pares {fin,tipo}, asume que todos los -- estados a nivel HMM son left to right con el mismo numero de -- estados local numframes,resul resul = {} local counter = 0 local prev_state_index local prev_model for i,state_index in ipairs(tbl) do state_index = state_index-1 -- pq empiezan en 1 local model = math.floor(state_index/numstates) -- print(i,state_index,model) if model ~= prev_model or state_index < prev_state_index then if prev_model then table.insert(resul,{counter,prev_model}) -- print("inserto",counter,prev_model) end end prev_model = model prev_state_index = state_index counter = counter + 1 end if prev_model then table.insert(resul,{counter,prev_model}) -- print("inserto",counter,prev_model) end return resul end function segmentation.crop(tbl, initial_space, final_space) local index_begin = 1 local index_end = #tbl local time_offset = 0 if #tbl > 0 and tbl[1][2] == initial_space then index_begin = 2 time_offset = tbl[1][1] end if tbl[#tbl] ~= nil and tbl[#tbl][2] == final_space then index_end = index_end-1 end local resul = {} for i=index_begin,index_end do table.insert(resul, {tbl[i][1]-time_offset,tbl[i][2]}) end return resul end -- tbl es una tabla con pares {instante_fin, modelo} function segmentation.save_hmm_seq(tbl, numframes, numstates) local r = random() local resul = {} local last = tbl[#tbl][1] local ratio = numframes/last local prevframe = 0 for i,pareja in ipairs(tbl) do local lastframe = math.round(pareja[1] * ratio) -- print('proceso',i,pareja[1],pareja[2],lastframe) if i==#tbl then lastframe = numframes end local model = pareja[2] local num = lastframe - prevframe prevframe = lastframe local ristra = {} local aux = {} -- lo que todos se llevan seguro local atodos = math.floor(num/numstates) for i=1,numstates do ristra[i] = atodos aux[i] = i end local sobran = num-atodos*numstates aux = r:shuffle(aux) for i=1,sobran do ristra[aux[i]] = ristra[aux[i]]+1 end local aux=0 for i=1,numstates do local st = model*numstates+i for j=1,ristra[i] do aux = aux+1 -- print(" ",aux,"inserto", st) table.insert(resul,st) end end end return resul end function mat2tab(mat) -- auxiliar resul = {} d = mat:dim() if #d ~= 1 then error("expected unidimensional matrix") end d = d[1] -- print('dimension',d) for i=1,d do table.insert(resul,mat:getElement(i)) end return resul end function tab2mat(tbl) resul = matrix(#tbl) for i,j in ipairs(tbl) do resul:setElement(i,j) end return resul end ---------------------------------------------------------------------- -- programa principal ---------------------------------------------------------------------- for line in io.lines(file_name_frames) do line = string.tokenize(line) filename = line[1] numframes = line[2] print(filename) f = io.open(origin_directory .. "/" .. filename,"r") if f == nil then print("ERROR, NO ENCUENTRA FICHERO ", filename) else m = matrix.fromString(f:read("*a")) f:close() tbl = mat2tab(m) tbl = segmentation.load_hmm_seq(tbl,origin_numstates) tbl = segmentation.crop(tbl, espace_index, espace_index) tbl = segmentation.save_hmm_seq(tbl, numframes, dest_numstates) m = tab2mat(tbl) m:toFilename(destiny_directory .. "/" .. filename,"ascii") end --os.exit() end april-ann-0.3.1/tools/HMM_ANN/training/000077500000000000000000000000001234204160600174625ustar00rootroot00000000000000april-ann-0.3.1/tools/HMM_ANN/training/README.md000066400000000000000000000144651234204160600207530ustar00rootroot00000000000000HMM_ANN/train directory: training of HMM/ANNs ============================================= The most important script here is `train.lua` script, which is prepared to train HMM/ANNs following previous described algorithm. This wiki is a mere description of the scripts. Currently non tutorial is available, but you can follow HTK tutorial in order to understand the meaning of all options presented here. Besides, ANN basic knowledge will be helpful. The script receives a lot of parameters which are shown executing `april-ann train.lua --help`: ``` USAGE: train.lua [-fVALUE] --train-m=VALUE --train-f=VALUE [--train-s=VALUE] [--train-phdict=VALUE] --val-m=VALUE --val-f=VALUE [--val-s=VALUE] [--val-phdict=VALUE] [--begin-sil=VALUE] [--end-sil=VALUE] [--count-values=VALUE] --num-states=VALUE --h1=VALUE --h2=VALUE -nVALUE [--train-r=VALUE] [--val-r=VALUE] --tiedfile=VALUE [--context=VALUE] [--feats-format=VALUE] [--feats-norm=VALUE] [--step=VALUE] [--mean=VALUE] [--var=VALUE] [--seedp=VALUE] [--firstlr=VALUE] [--epochs-firstlr=VALUE] [--lr=VALUE] [--mt=VALUE] [--wd=VALUE] [--rndw=VALUE] [--seed1=VALUE] [--seed2=VALUE] [--seed3=VALUE] [--epochs-wo-val=VALUE] [--epochs-wo-imp=VALUE] [--epochs-wo-exp=VALUE] [--epochs-max=VALUE] [--epochs-first-max=VALUE] [--em-it=VALUE] [--initial-mlp=VALUE] [--initial-hmm=VALUE] [--initial-em-epoch=VALUE] [--transcription-filter=VALUE] [--silences=VALUE] [(-h|--help)] DESCRIPTION: HMM/ANN training with April-ANN toolkit -fVALUE Load configuration file (a lua tabla) (optional) --train-m=VALUE MFCC file for training set --train-f=VALUE FON file for training set --train-s=VALUE Initial segmentation file for training set (optional) --train-phdict=VALUE Phonetical dictionary for training (optional) --val-m=VALUE MFCC file for validation set --val-f=VALUE FON file for validation set --val-s=VALUE Initial segmentation file for validation set (optional) --val-phdict=VALUE Phonetical dictionary for validation (optional) --begin-sil=VALUE Initial silence (optional) --end-sil=VALUE Final silence (optional) --count-values=VALUE (optional) [DEFAULT: ] --num-states=VALUE Number of states per each HMM [DEFAULT: false] --h1=VALUE First hidden layer size --h2=VALUE Second hidden layer size -nVALUE Number of parameters per each frame --train-r=VALUE Replacement for training (0 for disable) (optional) [DEFAULT: 300000] --val-r=VALUE Replacement for validation (0 for disable) (optional) [DEFAULT: 0] --tiedfile=VALUE HTK unit's tied list --context=VALUE Size of ann context (optional) [DEFAULT: 4] --feats-format=VALUE Format of features mat or mfc or png (mat, png or mfc) (optional) [DEFAULT: mat] --feats-norm=VALUE Table with means and devs for features (optional) --step=VALUE Dataset step (optional) [DEFAULT: 1] --mean=VALUE Mean of gaussian perturbation (default 0) (optional) [DEFAULT: 0] --var=VALUE Variance of gaussian perturbation (0 for disable) (optional) [DEFAULT: 0.015] --seedp=VALUE Perturbation seed (optional) [DEFAULT: 86544] --firstlr=VALUE First learning rate (optional) [DEFAULT: 0.005] --epochs-firstlr=VALUE Num epochs for first learning rate (optional) [DEFAULT: 100] --lr=VALUE Learning rate (optional) [DEFAULT: 0.001] --mt=VALUE Momentum (optional) [DEFAULT: 0.005] --wd=VALUE Weight decay (optional) [DEFAULT: 1e-06] --rndw=VALUE Size of the random inf/sup for MLP (optional) [DEFAULT: 0.1] --seed1=VALUE Seed 1 (optional) [DEFAULT: 1234] --seed2=VALUE Seed 2 (optional) [DEFAULT: 4567] --seed3=VALUE Seed 3 (optional) [DEFAULT: 9876] --epochs-wo-val=VALUE Epochs without validation (optional) [DEFAULT: 4] --epochs-wo-imp=VALUE Epochs without improvement (optional) [DEFAULT: 20] --epochs-wo-exp=VALUE Epochs without expectation step (optional) [DEFAULT: 5] --epochs-max=VALUE Number of epochs for maximization step (optional) [DEFAULT: 100] --epochs-first-max=VALUE Number of epochs for first maximization step (optional) [DEFAULT: 500] --em-it=VALUE Number of EM iterations (default 100) (optional) [DEFAULT: 100] --initial-mlp=VALUE Initial MLP for continue an stopped training (optional) --initial-hmm=VALUE Initial HMM for continue an stopped training, or to use as a first HMM description (optional) --initial-em-epoch=VALUE Initial EM epoch for continue an stopped training (optional) --transcription-filter=VALUE Filter the transcriptions to generate phonetic sequences (optional) --silences=VALUE HMM models for silences (a blank separated list) (optional) [DEFAULT: ] -h, --help shows this help message (optional) ``` There are a lot of options to configure the training. In the following, when we talk about **files list**, they are files which contains a list of filenames, one per line (the files could be gzipped): ``` corpus/n02-000-00.mat.gz corpus/n02-000-01.mat.gz corpus/n02-000-02.mat.gz ``` The most important options are those which are not marked as `(optional)`. - `train-m`: A files list which contains the parametrization used as input. This list is used for model parameter estimation (training). - `train-f`: A files list which contains textual transcriptions of parametrized files contained in previous option. This list is used for model parameter estimation (training). If this file is not a phonetic sequence, the parameter `transcription-filter` is needed to convert the textual sequence in phonemes. Otherwise, the option `train-phdict` could replace the transcription filter. - `val-m`: Idem as `train-m` but for for early stopping (validation). - `val-f`: Idem as `train-f` but for for early stopping (validation). - `h1`: Number of neurons at the first layer. - `h2`: Number of neurons at the second layer (zero is valid, only one layer will be used). - `n`: Number of parameters on each frame. - `num-states`: Number of states per each phoneme. - `tiedfile`: A list of valid phonemes, following HTK tied-list. april-ann-0.3.1/tools/HMM_ANN/training/cmdopt.lua000066400000000000000000000240341234204160600214560ustar00rootroot00000000000000cmdOptTest = cmdOpt{ program_name = string.basename(arg[0]), argument_description = "", main_description = "HMM/ANN training with April-ANN toolkit", { index_name="defopt", description="Load configuration file (a lua tabla)", short="f", argument="yes", filter=dofile, }, { index_name="bunch_size", description="Bunch size (mini-batch size)", long="bunch-size", argument="yes", mode="always", filter=tonumber, default_value=32, }, { index_name="train_m", description="MFCC file for training set", long="train-m", argument="yes", mode="always", }, { index_name="train_f", description="FON file for training set", long="train-f", argument="yes", mode="always", }, { index_name="train_s", description="Initial segmentation file for training set", long="train-s", argument="yes", }, { index_name="train_phdict", description="Phonetical dictionary for training", long="train-phdict", argument="yes", }, { index_name="val_m", description="MFCC file for validation set", long="val-m", argument="yes", mode="always", }, { index_name="val_f", description="FON file for validation set", long="val-f", argument="yes", mode="always", }, { index_name="val_s", description="Initial segmentation file for validation set", long="val-s", argument="yes", }, { index_name="val_phdict", description="Phonetical dictionary for validation", long="val-phdict", argument="yes", }, { index_name="begin_sil", description="Initial silence", long="begin-sil", argument="yes", }, { index_name="end_sil", description="Final silence", long="end-sil", argument="yes", }, { index_name="count_values", description="Blank separated list of Viterbi count values, for use with multiple corpora", long="count-values", filter=function(s) return table.imap(string.tokenize(s, " ,\t\n\r"),tonumber) end, argument="yes", mode="always", default_value="", }, { index_name="num_states", description="Number of states per each HMM", long="num-states", filter=tonumber, mode="always", argument="yes", default_value=false, }, { index_name="h1", description="First hidden layer size", long="h1", argument="yes", mode="always", filter=tonumber, }, { index_name="h2", description="Second hidden layer size", long="h2", argument="yes", mode="always", filter=tonumber, }, { index_name="n", description="Number of parameters per each frame", short="n", argument="yes", mode="always", filter=tonumber, }, { index_name="train_r", description="Replacement for training (0 for disable)", long="train-r", argument="yes", mode="always", default_value=300000, filter=tonumber, }, { index_name="val_r", description="Replacement for validation (0 for disable)", long="val-r", argument="yes", mode="always", default_value=0, filter=tonumber, }, { index_name="tiedfile", description = "HTK unit's tied list", long = "tiedfile", argument = "yes", mode="always", }, { index_name = "context", description = "Size of ann context", long = "context", argument = "yes", mode="always", default_value=4, filter=tonumber, }, { index_name = "feats_format", description = "Format of features mat or mfc or png (mat, png or mfc)", long = "feats-format", argument = "yes", mode="always", default_value="mat", }, { index_name = "feats_norm", description = "Table with means and devs for features", long = "feats-norm", argument = "yes", filter = dofile, }, { index_name = "step", description = "Dataset step", long = "step", argument = "yes", mode="always", default_value=1, filter=tonumber, }, { index_name = "mean", description = "Mean of gaussian perturbation", long = "mean", argument = "yes", mode="always", default_value=0, filter=tonumber, }, { index_name = "var", description = "Variance of gaussian perturbation (0 for disable)", long = "var", argument = "yes", mode="always", default_value=0.015, filter=tonumber, }, { index_name = "salt", description = "Salt noise percentage", long = "salt", argument = "yes", mode="always", default_value=0, filter=tonumber, }, { index_name = "seedp", description = "Perturbation seed", long = "seedp", argument = "yes", mode="always", default_value=86544, filter=tonumber, }, { index_name = "firstlr", description = "First learning rate", long ="firstlr", argument="yes", mode="always", default_value=0.005, filter=tonumber, }, { index_name = "epochs_firstlr", description = "Num epochs for first learning rate", long ="epochs-firstlr", argument="yes", mode="always", default_value=100, filter=tonumber, }, { index_name = "lr", description = "Learning rate", long ="lr", argument="yes", mode="always", default_value=0.001, filter=tonumber, }, { index_name = "mt", description = "Momentum", long ="mt", argument="yes", mode="always", default_value=0.005, filter=tonumber, }, { index_name = "wd", description = "Weight decay", long ="wd", argument="yes", mode="always", default_value=1e-06, filter=tonumber, }, { index_name = "l1", description = "L1 norm regularization", long ="l1", argument="yes", mode="always", default_value=0.0, filter=tonumber, }, { index_name = "mp", description = "Max normalization penalty, a negative value to disable it", long ="mp", argument="yes", mode="always", default_value=-1, filter=tonumber, }, { index_name="rndw", description="Size of the random inf/sup for MLP", long="rndw", argument="yes", mode="always", default_value=0.1, filter=tonumber, }, { index_name = "seed1", description = "Seed 1", long ="seed1", argument="yes", mode="always", default_value=1234, filter=tonumber, }, { index_name = "seed2", description = "Seed 2", long ="seed2", argument="yes", mode="always", default_value=4567, filter=tonumber, }, { index_name = "seed3", description = "Seed 3", long ="seed3", argument="yes", mode="always", default_value=9876, filter=tonumber, }, { index_name = "epochs_wo_val", description = "Epochs without validation", long ="epochs-wo-val", argument="yes", mode="always", default_value=4, filter=tonumber, }, { index_name = "epochs_wo_imp", description = "Epochs without improvement", long ="epochs-wo-imp", argument="yes", mode="always", default_value=20, filter=tonumber, }, { index_name = "epochs_wo_exp", description = "Epochs without expectation step", long ="epochs-wo-exp", argument="yes", mode="always", default_value=5, filter=tonumber, }, { index_name = "epochs_max", description = "Number of epochs for maximization step", long ="epochs-max", argument="yes", mode="always", default_value=100, filter=tonumber, }, { index_name = "epochs_first_max", description = "Number of epochs for first maximization step", long ="epochs-first-max", argument="yes", mode="always", default_value=500, filter=tonumber, }, { index_name = "em_it", description = "Number of EM iterations", long ="em-it", argument="yes", mode="always", default_value=100, filter=tonumber, }, { index_name = "dropped_em_iterations", description = "The number of EM iterations where the ANN is reinitialized from scratch", long ="dropped-em-iterations", argument="yes", mode="always", default_value=0, filter=tonumber, }, { index_name="pretrained_mlp", description="Initial pretrained MLP", long="pretrained-mlp", argument="yes", }, { index_name="initial_mlp", description="Initial MLP for continue an stopped training", long="initial-mlp", argument="yes", }, { index_name="initial_hmm", description="Initial HMM for continue an stopped training, or to use as a first HMM description", long="initial-hmm", argument="yes", }, { index_name="initial_em_epoch", description="Initial EM epoch for continue an stopped training", long="initial-em-epoch", argument="yes", filter=tonumber, }, { index_name="transcription_filter", description="Filter the transcriptions to generate phonetic sequences", long="transcription-filter", argument="yes", filter=dofile, }, { index_name="silences", description="HMM models for silences (a blank separated list)", long="silences", argument="yes", filter=string.tokenize, mode="always", default_value="", }, { index_name="clamp_lower", description="Indicates the lower value for input clamp (after normalization)", long="clamp-lower", argument="yes", filter=tonumber, }, { index_name="clamp_upper", description="Indicates the upper value for input clamp (after normalization)", long="clamp-upper", argument="yes", filter=tonumber, }, { description = "shows this help message", short = "h", long = "help", argument = "no", action = function (argument) print(cmdOptTest:generate_help()) os.exit(1) end } } local optargs = cmdOptTest:parse_without_check() if type(optargs) == "string" then error(optargs) end local initial_values if optargs.defopt then initial_values = optargs.defopt optargs.defopt=nil end optargs = cmdOptTest:check_args(optargs, initial_values) return optargs april-ann-0.3.1/tools/HMM_ANN/training/compute-mean-and-dev.lua000066400000000000000000000013261234204160600240750ustar00rootroot00000000000000if #arg ~= 1 then print("SINTAXIS: %s file_list\n".. "file_list must contains filenames of ".. "matrix parameters (April format)\n", arg[0]) os.exit(0) end lista = arg[1] local ds = {} for fichero in io.lines(lista) do fprintf(io.stderr, "# Loading: %s\n", fichero) local f = io.open(fichero) or error ("File not found: " .. fichero) local mat = matrix.fromFilename(fichero, "row_major") table.insert(ds, dataset.matrix(mat)) f:close() end ds = dataset.union(ds) means,devs = ds:mean_deviation() printf("-- %d patterns, %d params\n", ds:numPatterns(), ds:patternSize()) printf("return {\nmeans = {\n%s\n},\ndevs = {\n%s\n}\n}\n", table.concat(means, ", "), table.concat(devs, ", ")) april-ann-0.3.1/tools/HMM_ANN/training/extract-EM-epoch-best-entroy-values-from-log.sh000066400000000000000000000002201234204160600303430ustar00rootroot00000000000000#!/bin/bash grep -v "#" $1 | awk 'BEGIN{n=1;last=0;}{ if ($2 != n) { printf("%d %f\n", n, last); n=$2; } else last = $12; }' april-ann-0.3.1/tools/HMM_ANN/training/template-train-conf.lua000066400000000000000000000013201234204160600240320ustar00rootroot00000000000000return { -- "@" for HTR, "( ) ." for ASR silences="@", tiedlist="tiedlist_CONCOMILLADOBLE.id", train_m="pats//list.train.mat", train_s="pats//list.train.sgm", train_f="pats//list.train.txt", val_m="pats//list.val.mat", val_s="pats//list.val.sgm", val_f="pats//list.val.txt", train_r=300000, val_r=200000, num_states=7, n=60, context=4, h1=192, h2=128, rndw=0.1, lr=0.001, mt=0.005, wd=1e-6, firstlr=0.005, epochs_firstlr=100, epochs_wo_val=4, epochs_wo_imp=20, epochs_max=100, epochs_first_max=500, feats_format="mat", feats_norm="pats/means_and_devs.PRESERVANDOX.lua", mean=0, var=0.015, seedp=86544, seed1=1234, seed2=4567, seed3=9876, epochs_wo_exp=5, em_it=100, } april-ann-0.3.1/tools/HMM_ANN/training/train.lua000066400000000000000000000570601234204160600213120ustar00rootroot00000000000000-- This script is for HMM-ANN training using EM algorithm -- -- Following algorithm is a general description of how it works: -- -- Viterbi initial segmentation or use a given one -- For each em iteration or until stop criterion -- Train MLP until stop criterion -- Viterbi segmentation using previous MLP -- End -- april_print_script_header(arg) dofile(string.get_path(arg[0]) .. "../utils.lua") optargs = dofile(string.get_path(arg[0]) .. "/cmdopt.lua") table.unpack_on(optargs, _G) trainfile_mfc = optargs.train_m trainfile_fon = optargs.train_f trainfile_sgm = optargs.train_s valfile_mfc = optargs.val_m valfile_fon = optargs.val_f valfile_sgm = optargs.val_s means_and_devs = feats_norm dataset_step = optargs.step format = feats_format error_function = "multi_class_cross_entropy" if trainfile_sgm and not valfile_sgm then error ("Needed validation initial segmentation") end if initial_mlp then -- sin segmentacion inicial trainfile_sgm = nil valfile_sgm = nil end if not num_states and not initial_hmm then error ("Needs a number of states per HMM or an initial HMM file") end if not silences or #silences==0 then fprintf(io.stderr, "# WARNING!!! NOT SILENCES TABLE DEFINED\n") end if not begin_sil or not end_sil then fprintf(io.stderr, "# WARNING!!! NOT BEGIN AND END SILENCE SYMBOLS DEFINED\n") end if transcription_filter then fprintf(io.stderr, "# Using transcription filter\n") end -- pasar esto como parametro local perturbation_random = random(seedp) if var > 0 then dataset_perturbation_function = function(ds) return dataset.perturbation{ dataset = ds, random = perturbation_random, mean = mean, variance = var, } end end if salt > 0 then local old_dataset_perturbation_function = dataset_perturbation_function dataset_perturbation_function = function(ds) return dataset.salt_noise{ dataset = old_dataset_perturbation_function(ds), vd = salt, zero = 0, random = perturbation_random, } end end if initial_mlp or initial_em_epoch then if not initial_hmm or not initial_em_epoch or not initial_mlp then error("Continue a training needs: initial-em-epoch, initial-mlp, initial-hmm") end end ------------------------------------------------------------------------------ models_dir = "models" nets_dir = models_dir.."/nets" hmms_dir = models_dir.."/hmms" -------------------- -- parametros HMM -- -------------------- hmm = {} hmm.num_states = optargs.num_states hmm.num_params = optargs.n hmm.silences = {} for _,sil in ipairs(silences) do hmm.silences[sil] = 1.0 end -------------------- -- parametros RNA -- -------------------- ann_table = {} ann_table.left_context = context ann_table.right_context = context ann_table.num_hidden1 = h1 ann_table.num_hidden2 = h2 ann_table.first_learning_rate = firstlr ann_table.num_epochs_first_lr = epochs_firstlr ann_table.learning_rate = lr ann_table.momentum = mt ann_table.max_norm_penalty = mp ann_table.l1_norm = l1 ann_table.weight_decay = wd ann_table.weights_seed = seed1 ann_table.shuffle_seed = seed2 ann_table.shuffle_seed_val = seed3 ann_table.replacement = (train_r ~= 0 and train_r) or nil ann_table.replacement_val = (val_r ~= 0 and val_r ) or nil ann_table.rndw = rndw ------------------- -- parametros EM -- ------------------- em = {} --em.epoca_cambio_fb_viterbi = 0 em.num_epochs_without_validation = epochs_wo_val em.max_epochs_without_improvement = epochs_wo_imp em.num_emiterations_without_expectation = epochs_wo_exp em.num_maximization_iterations = epochs_max em.num_maximization_iterations_first_em = epochs_first_max em.em_max_iterations = em_it -------------------------------------------------------------- -------------------- -- Corpus -- -------------------- corpus = {} corpus.filename_trn_mfc = trainfile_mfc corpus.filename_val_mfc = valfile_mfc corpus.filename_trn_fon = trainfile_fon corpus.filename_val_fon = valfile_fon corpus.filename_trn_sgm = trainfile_sgm corpus.filename_val_sgm = valfile_sgm os.execute("mkdir "..models_dir) os.execute("mkdir "..nets_dir) os.execute("mkdir "..hmms_dir) -- objeto con informacion sobre modelos ligados tied = tied_model_manager(io.open(tiedfile)) --------- -- HMM -- --------- -- creamos el trainer y le metemos los modelos acusticos hmmtrainer = HMMTrainer.trainer() -- modelos HMM models = {} if initial_hmm then models,num_models,num_emissions = load_models_from_hmm_lua_desc(initial_hmm, hmmtrainer) else models,num_models = generate_hmm_models_from_tiedlist(tied, hmm.num_states, hmmtrainer) num_emissions = num_models * hmm.num_states hmmtrainer.trainer:check_cls_emission(num_emissions) -- local aprioris = iterator(range(1,num_emissions)): map(function()return 1/num_emissions end): table() -- hmmtrainer.trainer:set_a_priori_emissions(aprioris) end ann_table.output_dictionary = dataset.identity(num_emissions, 0.0, 1.0) collectgarbage("collect") -- ENTRADAS Y SALIDAS DE LA ANN ann_table.num_entradas = hmm.num_params*(ann_table.left_context+ann_table.right_context+1)*dataset_step ann_table.num_outputs = num_emissions ------------------ -- Red neuronal -- ------------------ -- -- estructura de la red local best_trainer local global_best_trainer local mlp_str local weights_random = random(ann_table.weights_seed) function initialize_neural_network() print("# INITIALIZING THE ANN") ann_table.thenet = nil mlp_str = nil if ann_table.num_hidden2 > 0 then mlp_str = string.format("%d inputs %d logistic %d logistic", ann_table.num_entradas, ann_table.num_hidden1, ann_table.num_hidden2) else mlp_str = string.format("%d inputs %d logistic", ann_table.num_entradas, ann_table.num_hidden1) end -- generamos la red if initial_mlp then print("# LOADING ANN FROM PREVIOUS HMMANN") mlp_str = initial_mlp ann_table.trainer = trainable.supervised_trainer.load(initial_mlp, ann.loss[error_function](ann_table.num_outputs), bunch_size) ann_table.thenet = ann_table.trainer:get_component() elseif pretrained_mlp then print("# LOADING PRETRAINED ANN") mlp_str = pretrained_mlp ann_table.trainer = trainable.supervised_trainer.load(pretrained_mlp, ann.loss[error_function](ann_table.num_outputs), bunch_size) ann_table.thenet = ann_table.trainer:get_component() else print("# CREATING ANN FROM SCRATCH") ann_table.thenet = ann.components.stack() mlp_str = string.format("%d inputs",ann_table.num_entradas) -- if ann_table.num_hidden1 > 0 then mlp_str = string.format("%s %d logistic", mlp_str, ann_table.num_hidden1) ann_table.thenet:push(ann.components.hyperplane{ dot_product_name="w1", bias_name="b1", dot_product_weights="w1", bias_weights="b1", input = ann_table.num_entradas, output = ann_table.num_hidden1, }): push(ann.components.actf.logistic{ name="actf1" }) end -- if ann_table.num_hidden2 > 0 then mlp_str = string.format("%s %d logistic", mlp_str, ann_table.num_hidden2) ann_table.thenet:push(ann.components.hyperplane{ dot_product_name="w2", bias_name="b2", dot_product_weights="w2", bias_weights="b2", input = ann_table.num_hidden1, output = ann_table.num_hidden2, }): push(ann.components.actf.logistic{ name="actf2" }) end -- mlp_str = string.format("%s %d log_softmax", mlp_str, ann_table.num_outputs) ann_table.thenet:push(ann.components.hyperplane{ dot_product_name="wN", bias_name="bN", dot_product_weights="wN", bias_weights="bN", output = ann_table.num_outputs, }): push(ann.components.actf.log_softmax{ name="OUPUT" }) -- ann_table.trainer = trainable.supervised_trainer(ann_table.thenet, ann.loss[error_function](ann_table.num_outputs), bunch_size) ann_table.trainer:build() ann_table.trainer:randomize_weights{ inf = ann_table.rndw, sup = -ann_table.rndw, random = weights_random } end best_trainer = ann_table.trainer global_best_trainer = ann_table.trainer end initialize_neural_network() collectgarbage("collect") -------------------- -- Carga de datos -- -------------------- -- --[[ La funcion corpus_from_audio_filename carga un field manager con estos campos: - audio_filename => Nombre de los ficheros de audio - frames => Acusticas de cada fichero - frames_size => Numero de tramas en cada fichero - hmm_emission_sequence => Tabla con la emision que corresponde a cada trama - hmm_c_models => Modelo de Markov de cada fichero - contextCCdataset => Dataset contextualizado con las tramas - segmentation_matrix => Matriz con la segmentacion inicial (la mejor) - segmentation_dataset => Dataset para la segmentation_matrix --]] -- -- TRAINING print ("# LOADING TRAINING...") training = {} if not string.match(corpus.filename_trn_mfc, "%.lua$") then if count_values[1] then error ("Count values are forbidden without distribution!!!") end table.insert(training, corpus_from_MFC_filename{ filename_mfc = corpus.filename_trn_mfc, filename_fon = corpus.filename_trn_fon, filename_sgm = corpus.filename_trn_sgm, phdict = train_phdict, begin_sil = begin_sil, end_sil = end_sil, hmmtrainer = hmmtrainer, tied = tied, left_context = ann_table.left_context, right_context = ann_table.right_context, mlp_output_dictionary = ann_table.output_dictionary, models = models, silences = hmm.silences, transcription_filter = transcription_filter, hmm_name_mangling = false, dataset_step = dataset_step, means_and_devs = means_and_devs, clamp = { clamp_lower, clamp_upper }, dataset_perturbation_function = dataset_perturbation_function, format = format, }) else local mfc = dofile(corpus.filename_trn_mfc) local fon = dofile(corpus.filename_trn_fon) local sgm = {} if #mfc ~= #fon then error ("Incorrect number of fields in Lua MFC or FON file") end if corpus.filename_trn_sgm then sgm = dofile(corpus.filename_trn_sgm) if #mfc ~= #sgm then error ("Incorrect number of fields in Lua SGM file") end end corpus.distribution = {} training = {} for i=1,#mfc do if not count_values[i] then error ("Incorrect number of count_values parameter") end sgm[i] = sgm[i] or {} if not sgm[i][1] then if not initial_mlp then print("# WARNING!!! training with equidistant initial segmentation for " .. mfc[i][1]) else print("# Ignoring initial segmentation, MLP given") end end table.insert(training, corpus_from_MFC_filename{ filename_mfc = mfc[i][1] or error("Incorrect MFC field"), filename_fon = fon[i][1] or error("Incorrect FON field"), filename_sgm = sgm[i][1], phdict = train_phdict, begin_sil = begin_sil, end_sil = end_sil, hmmtrainer = hmmtrainer, tied = tied, left_context = ann_table.left_context, right_context = ann_table.right_context, mlp_output_dictionary = ann_table.output_dictionary, models = models, silences = hmm.silences, transcription_filter = transcription_filter, hmm_name_mangling = false, dataset_step = dataset_step, means_and_devs = means_and_devs, clamp = { clamp_lower, clamp_upper }, dataset_perturbation_function = dataset_perturbation_function, format = format, }) table.insert(corpus.distribution, { -- OJO: i == #training input_dataset = dataset.union(training[i]:get_field('contextCCdataset')), output_dataset = dataset.union(training[i]:get_field('segmentation_dataset')), probability = tonumber(mfc[i][2]) }) end end -- VALIDATION print ("# LOADING VALIDATION...") validate = corpus_from_MFC_filename{ filename_mfc = corpus.filename_val_mfc, filename_fon = corpus.filename_val_fon, filename_sgm = corpus.filename_val_sgm, phdict = val_phdict, begin_sil = begin_sil, end_sil = end_sil, hmmtrainer = hmmtrainer, tied = tied, left_context = ann_table.left_context, right_context = ann_table.right_context, mlp_output_dictionary = ann_table.output_dictionary, models = models, silences = hmm.silences, transcription_filter = transcription_filter, hmm_name_mangling = false, dataset_step = dataset_step, means_and_devs = means_and_devs, clamp = { clamp_lower, clamp_upper }, format = format, } -- ESTO ERA PARA EVITAR QUE PETARA CON LOS MODELOS QUE NO APARECIESEN -- EN LAS FRASES: --aux_c_tbl = {} --for i=1,table.getn(modeloAcustico.phones_list) do -- local ph = modeloAcustico.phones_list[i].name[1] -- local desc = HMMTrainer.utils.str2model_desc(ph) -- aux = hmmtrainer:model(desc) -- table.insert(aux_c_tbl, aux:generate_C_model()) --end -- -------------------------- -- creamos los datasets -- -------------------------- -- TRAINING if not corpus.distribution then corpus.input_ds_trn = dataset.union(training[1]:get_field('contextCCdataset')) corpus.output_ds_trn = dataset.union(training[1]:get_field('segmentation_dataset')) end -- VALIDATION corpus.input_ds_val = dataset.union(validate:get_field('contextCCdataset')) corpus.output_ds_val = dataset.union(validate:get_field('segmentation_dataset')) printf ("# RANDOM: Weights: %4d Shuffle: %4d VAL RPL shuffle: %4d\n", ann_table.weights_seed, ann_table.shuffle_seed, ann_table.shuffle_seed_val) printf ("# ANN PARAMS: step:%d l%d r%d %d %d lr: %f mt: %f wd: %g mp: %g l1: %g\n", dataset_step, ann_table.left_context, ann_table.right_context, ann_table.num_hidden1, ann_table.num_hidden2, ann_table.learning_rate, ann_table.momentum, ann_table.weight_decay, ann_table.max_norm_penalty, ann_table.l1_norm) printf ("# first lr: %f epochs: %d\n", ann_table.first_learning_rate, ann_table.num_epochs_first_lr) printf ("# ANN STR: %s\n", mlp_str) printf ("# HMM PARAMS: states: %d numparams: %d\n", hmm.num_states or 0, hmm.num_params) printf ("# EM PARAMS: val: %d stop: %d expectation: %d it: %d %d em: %d\n", em.num_epochs_without_validation, em.max_epochs_without_improvement, em.num_emiterations_without_expectation, em.num_maximization_iterations_first_em, em.num_maximization_iterations, em.em_max_iterations) if not corpus.distribution then printf ("# Input pattern size: %d\n", corpus.input_ds_trn:patternSize()) printf ("# Training num patterns: %d\n", corpus.input_ds_trn:numPatterns()) else printf ("# Input pattern size: %d\n", corpus.distribution[1].input_dataset:patternSize()) printf ("# Training num patterns:") for i=1,#corpus.distribution do printf (" %d (%f)", corpus.distribution[i].input_dataset:numPatterns(), corpus.distribution[i].probability) end printf ("\n") end printf ("# Validation num patterns: %d\n", corpus.input_ds_val:numPatterns()) printf ("# Replacement: %d\n", ann_table.replacement or 0) printf ("# Replacement val: %d\n", ann_table.replacement_val or 0) -- log if not trainfile_sgm then if not initial_mlp then print("WARNING!!! training with equidistant initial segmentation") else print("# Ignoring initial segmentation") end end if initial_mlp and initial_hmm then printf ("# CONTINUE TRAINING: %s %s %d\n", initial_mlp, initial_hmm, initial_em_epoch) elseif initial_hmm then printf ("# INITIAL HMM: %s\n", initial_hmm) elseif initial_mlp then printf ("# INITIAL MLP: %s\n", initial_mlp) end ann_table.trainingdata = { shuffle = random(ann_table.shuffle_seed), replacement = ann_table.replacement, } if not corpus.distribution then ann_table.trainingdata.input_dataset = corpus.input_ds_trn ann_table.trainingdata.output_dataset = corpus.output_ds_trn else ann_table.trainingdata.distribution = corpus.distribution end ann_table.validationdata = { input_dataset = corpus.input_ds_val, output_dataset = corpus.output_ds_val, } if ann_table.replacement_val then ann_table.validationdata.replacement = ann_table.replacement_val ann_table.validationdata.shuffle = random(ann_table.shuffle_seed_val) end collectgarbage("collect") -------------------------------------------------- -------------- -- TRAINING -- -------------- totaltrain = 1 em_iteration = 1 firstbestce = 11111111111 bestce = 11111111111 bestce_em = 11111111111 bestepoch = 0 bestepoch_em = 0 if initial_em_epoch then em_iteration = initial_em_epoch -- resegmentamos validacion local va_score = generate_new_segmentation{ field_manager = validate, func = ann_table.trainer, num_emissions = num_emissions, do_expectation = false, emission_in_log_base = true, } -- reinicializamos contadores del trainer de hmm hmmtrainer.trainer:begin_expectation() -- -- EXPECTATION -- -- resegmentamos training con expectacion local tr_score = 0 for i=1,#training do local sc = generate_new_segmentation{ field_manager = training[i], func = ann_table.trainer, num_emissions = num_emissions, count_value = count_values[i], do_expectation = true, emission_in_log_base = true, } tr_score = tr_score + sc end print("# INITIAL HMM SCORE TR= ", tr_score) print("# INITIAL HMM SCORE VA= ", va_score) -- collectgarbage("collect") -- hmmtrainer.trainer:end_expectation{ update_trans_prob = (em_iteration > em.num_emiterations_without_expectation), update_a_priori_emission = true, } -- actualizamos las probabilidades de transitar de los modelos for name,model_info in pairs(models) do model_info.model:update_probs() end end while em_iteration <= em.em_max_iterations do -- -- entrenamos la red neuronal max = em.num_maximization_iterations if em_iteration == 1 then max = em.num_maximization_iterations_first_em end bestepoch = totaltrain global_best_trainer = ann_table.trainer:clone() if em_iteration > 1 then ann_table.trainer:set_option("learning_rate", ann_table.learning_rate) else ann_table.trainer:set_option("learning_rate", ann_table.first_learning_rate) end ann_table.trainer:set_option("momentum", ann_table.momentum) ann_table.trainer:set_option("weight_decay", ann_table.weight_decay) ann_table.trainer:set_option("max_norm_penalty", ann_table.max_norm_penalty) ann_table.trainer:set_option("L1_norm", ann_table.l1_norm) ann_table.trainer:set_layerwise_option("b.*", "weight_decay", 0.0) ann_table.trainer:set_layerwise_option("b.*", "max_norm_penalty", 0.0) ann_table.trainer:set_layerwise_option("b.*", "L1_norm", 0.0) -- -------------------------------------- -- ANN TRAINING (MAXIMIZATION STEP) -- -------------------------------------- local train_function = trainable.train_holdout_validation{ epochs_wo_validation = em.num_epochs_without_validation, min_epochs = em.num_epochs_without_validation, max_epochs = max, stopping_criterion = trainable.stopping_criteria.make_max_epochs_wo_imp_absolute(em.max_epochs_without_improvement), } while train_function:execute(function() local tr_loss = ann_table.trainer:train_dataset(ann_table.trainingdata) local va_loss = ann_table.trainer:validate_dataset(ann_table.validationdata) return ann_table.trainer,tr_loss,va_loss end) do local state = train_function:get_state_table() if train_function:is_best() then bestepoch = state.current_epoch end printf("em %4d epoch %4d totalepoch %4d ce_train %.7f ce_val ".. "%.7f %10d %.7f %.7f :: %.7f %.7f\n", em_iteration, state.current_epoch, totaltrain, state.train_error, state.validation_error, bestepoch, state.best_val_error, ann_table.trainer:get_option("learning_rate"), ann_table.trainer:norm2("w.*"), ann_table.trainer:norm2("b.*")) totaltrain = totaltrain + 1 if (totaltrain > ann_table.num_epochs_first_lr and em_iteration == 1 and totaltrain % 10 == 1 and ann_table.trainer:get_option("learning_rate") > ann_table.learning_rate ) then ann_table.trainer:set_option("learning_rate", ann_table.trainer:get_option("learning_rate") - 0.001) end if state.current_epoch == em.num_epochs_without_validation then firstbestce = state.validation_error printf ("# FIRST BEST CE FOR EM: %.7f\n", firstbestce) end io.stdout:flush() end local result = train_function:get_state_table() -- nos quedamos con la mejor red ;) totaltrain = bestepoch ann_table.trainer = result.best ann_table.thenet = result.best:get_component() --print("tiempo entrenar red ",os.clock() - t1) if bestepoch == em.num_epochs_without_validation then ann_table.trainer = global_best_trainer:clone() ann_table.thenet = ann_table.trainer:get_component() -- break -- BREAK DEL EM end if result.best_val_error < bestce_em then bestce_em = result.best_val_error bestepoch_em = bestepoch end collectgarbage("collect") ------------------------------------------ -- VITERBI ALIGNMENT (EXPECTATION STEP) -- ------------------------------------------ -- resegmentamos validacion local va_score = generate_new_segmentation{ field_manager = validate, func = ann_table.trainer, num_emissions = num_emissions, do_expectation = false, emission_in_log_base = true, } -- reinicializamos contadores del trainer de hmm hmmtrainer.trainer:begin_expectation() -- -- EXPECTATION -- -- resegmentamos training con expectacion local tr_score = 0 for i=1,#training do local sc = generate_new_segmentation{ field_manager = training[i], func = ann_table.trainer, num_emissions = num_emissions, count_value = count_values[i], do_expectation = true, emission_in_log_base = true, } tr_score = tr_score + sc end print("# HMM SCORE TR= ", tr_score) print("# HMM SCORE VA= ", va_score) -- collectgarbage("collect") -- hmmtrainer.trainer:end_expectation{ update_trans_prob = (em_iteration > em.num_emiterations_without_expectation), update_a_priori_emission = true, } -- actualizamos las probabilidades de transitar de los modelos for name,model_info in pairs(models) do model_info.model:update_probs() end -- salvamos a disco los modelos local filem = string.format(hmms_dir .. "/lc%d_rc%d_em%d.lua", ann_table.left_context, ann_table.right_context, em_iteration) save_models_from_hmm_lua_desc(filem, models, hmmtrainer) -- collectgarbage("collect") -- salvamos la red filenet = string.format(nets_dir .. "/lc%d_rc%d_em%d.net", ann_table.left_context, ann_table.right_context, em_iteration) print("# Saving "..filenet) ann_table.trainer:save(filenet,"binary") -- collectgarbage("collect") em_iteration = em_iteration + 1 if em_iteration <= dropped_em_iterations then initialize_neural_network() end end april-ann-0.3.1/tools/HMM_ANN/utils.lua000066400000000000000000000607731234204160600175270ustar00rootroot00000000000000recog = recog or {} local aux_local_vars = {} -- local valid_recog_parameters=table.invert{ "input_lat_filename", "corpus_data_manager", "filename_mfc", "filename_fon", "filename_sgm", "prepfilename", "txtfilename", "convert_MFCname_TRname", "convert_MFCname_FRname", "silences", "transcription_filter", "hmmtrainer", "tied", "models", "left_context", "right_context", "mlp_output_dictionary", "format", "hmm_name_mangling", "means_and_devs", "clamp", "dataset_perturbation_function", "dataset_step", "begin_sil", "end_sil", "phdict" } function check_params(args) for key,v in pairs(args) do if not valid_recog_parameters[key] then error ("The parameter '" .. key .. "' is incorrect!!") end end end function remove_extensions(path) if string.sub(path, #path-2, #path) == ".gz" then path = string.remove_extension(path) end return string.remove_extension(path) end function generate_frontiers(segmenter, mask, numFrames, a_lo_bunke) local frontiers = {} local ant_frames = 0 for i,img_name in ipairs(glob(mask.."*")) do local img_m = matrix.loadImage(img_name, "gray") local img = Image(img_m) local _,w,h = img:info() local segments = segmenter:segment(img) -- print("Segments: "..table.concat(segments," ")) -- dividimos por 20 para sacar la trama a la que corresponde este -- pixel local inc = (a_lo_bunke == "a_lo_bunke" and 1) or (h/20) local ant = 0 -- primera frontera if ant_frames == 0 then table.insert(frontiers, ant_frames) end for j,pixel_pos in ipairs(segments) do local current = math.floor(pixel_pos/inc) -- printf("divido %f entre %f y da %d\n",pixel_pos,inc,current) -- si el frame no cambia, no hacemos nada if current ~= ant then table.insert(frontiers, current + ant_frames) ant = current end end -- metemos el ultimo frame local last_frame = math.round(w/inc) if ant ~= last_frame then table.insert(frontiers, ant_frames + last_frame) end ant_frames = ant_frames + last_frame end if frontiers[#frontiers] < numFrames then table.insert(frontiers, numFrames) end return frontiers end function save_models_from_hmm_lua_desc(filem, models, hmmtrainer) print("# saving "..filem) local modelf = io.open(filem, "w") modelf:write("return { {\n") for name,model_info in pairs(models) do modelf:write("['".. string.gsub(name,"'","\\'") .. "'] = {\n") modelf:write("\tmodel=HMMTrainer.model.from_table(\n") modelf:write(model_info.model:to_string()) modelf:write("),\n") modelf:write("\temissions={".. table.concat(model_info.emissions, ",") .."}\n") modelf:write("},\n") end modelf:write("},\n") modelf:write("{".. table.concat(hmmtrainer.trainer:get_a_priori_emissions(), ",") .."}\n") modelf:write("}\n") modelf:close() end function load_models_from_hmm_lua_desc(initial_hmm, hmmtrainer) local num_models = 0 local num_emissions = 0 local m = dofile(initial_hmm) local models = m[1] local aprioris = m[2] local emiss_to_hmm = {} for name,model_info in pairs(models) do num_models = num_models + 1 num_emissions = num_emissions + #model_info.emissions model_info.model.trainer = hmmtrainer for _,t in ipairs(model_info.model.transitions) do emiss_to_hmm[t.emission] = name end hmmtrainer:add_to_dict(model_info.model, name) end if aprioris then hmmtrainer.trainer:set_a_priori_emissions(aprioris) end return models,num_models,num_emissions,emiss_to_hmm end function generate_hmm_models_from_tiedlist(tied, num_states, hmmtrainer) local emiss_to_hmm = {} local num_models = 0 local hmms = {} local next_emission = 1 local ploops = {} for i=1,num_states do ploops[i] = 0.5 end for model_id,name in ipairs(tied.id2name) do m = tied.tiedlist[name] if name == m then num_models = num_models + 1 local hmm_emissions = {} -- generamos el vector de emisiones for i=1,num_states do hmm_emissions[i] = next_emission emiss_to_hmm[next_emission] = name next_emission = next_emission + 1 end -- este es el representante local desc = HMMTrainer.utils.generate_lr_hmm_desc(name, hmm_emissions, ploops, {}, name) local model = hmmtrainer:model(desc) hmms[name] = { model = model, emissions = hmm_emissions, } -- TODO: IMPORTANTE!!! esto puede petar si palabra = name, -- PETA!!! hmmtrainer:add_to_dict(model, name) end end return hmms, num_models, emiss_to_hmm end -- -- esta funcion carga un objeto tipo field_manager -- con todos los datos que necesitamos extraer del corpus -- function recog.generate_filenames(args) check_params(args) -- local corpus_data_manager = args.corpus_data_manager local filename = args.filename_mfc local input_lat_filename = args.input_lat_filename local prepfilename = args.prepfilename local txtfilename = args.txtfilename local phonfilename = args.filename_fon local sgmfilename = args.filename_sgm -------------------- -- Carga de datos -- -------------------- -- CORPUS_DATA_MANAGER -- cargamos las listas de nombres de ficheros -- nombres de ficheros de audio if filename then corpus_data_manager:load_lines{ field = 'mfcc_filename', filename = filename, } end if input_lat_filename then corpus_data_manager:load_lines{ field = 'input_lat_filename', filename = input_lat_filename, } end if sgmfilename then corpus_data_manager:load_lines{ field = 'sgm_filename', filename = sgmfilename, } end if phonfilename then corpus_data_manager:load_lines{ field = 'phon_filename', filename = phonfilename, } end if prepfilename then corpus_data_manager:load_lines{ field = 'prep_filename', filename = prepfilename, } end if txtfilename then corpus_data_manager:load_lines{ field = 'transcription_filename', filename = txtfilename, } end end function recog.load_frames(args) check_params(args) -- local corpus_data_manager = args.corpus_data_manager local format = args.format -- CORPUS_DATA_MANAGER -- cargamos las tramas acusticas corpus_data_manager:apply{ input_fields = {'mfcc_filename'}, output_fields = { 'frames', -- campo con matrices: frames acusticos de cada frase 'frames_size' -- campo con el numero de frames de cada frase }, the_function = function (filename) printf ("# Loading MFCCs '%s'\n", filename) collectgarbage("collect") local m,size if format == "png" then local img_gray = ImageIO.read(filename):to_grayscale():invert_colors() m = img_gray:rotate90cw(1):info() size = m:dim()[1] elseif format == "mat" then m,size = load_matrix(filename) else m,size = load_mfcc(filename) end return m,size end } end -- DEPRECATED ???? -- function recog.load_transcription_string(args) -- check_params(args) -- -- -- local corpus_data_manager = args.corpus_data_manager -- local tied = args.tied -- -- cargamos la secuencia de texto -- corpus_data_manager:apply{ -- input_fields = { -- 'transcription_filename', -- }, -- output_fields = { -- 'transcription_string' -- campo con la transcripcion de la frase -- }, -- the_function = -- function (filename) -- printf ("# Cargando '%s'\n",filename) -- local f = io.open(filename, "r") or -- error ("No se ha encontrado ".. filename) -- local tr_str = f:read("*l") -- f:close() -- -- hay que substituir el silencio por word_silence -- return (string.gsub(tr_str, " ", word_silence)) -- end -- } -- end function recog.load_fon_string(args) check_params(args) -- local corpus_data_manager = args.corpus_data_manager local tied = args.tied local phdict = args.phdict -- cargamos la secuencia fonetica corpus_data_manager:apply{ input_fields = { 'phon_filename', }, output_fields = { 'phon_table', }, the_function = function (ph_filename) printf ("# Reading '%s'\n",ph_filename) local f = io.open(ph_filename, "r") or error ("No se ha encontrado ".. ph_filename) local ph_str = f:read("*l") f:close() if transcription_filter then ph_str = transcription_filter(ph_str) end ph_tbl = string.tokenize(ph_str) if not phdict then ph_tbl = tied:search_triphone_sequence(ph_tbl) end return ph_tbl end } end function recog.generate_initial_equidistant_hmm_emission_sequence(args) check_params(args) -- local tied = args.tied local models = args.models local corpus_data_manager = args.corpus_data_manager -- -- generamos secuencia de emisiones en partes iguales a partir de -- la secuencia fonetica y del numero de frames corpus_data_manager:apply{ input_fields = { 'phon_table', -- campo con la transcripcion de la frase 'frames_size', 'phon_filename', }, output_fields = { 'hmm_emission_sequence', -- tabla con lista emisiones corresp. a cada frase }, the_function = function (tbl,numframes,name) print("# Generating equidistant segmentation " .. name) return generate_initial_hmm_emission_sequence(tbl, numframes, tied, models) end } end function recog.generate_hmm_models(args) check_params(args) -- local corpus_data_manager = args.corpus_data_manager local hmmtrainer = args.hmmtrainer local tied = args.tied local silences = args.silences local phdict = args.phdict local begin_sil = args.begin_sil local end_sil = args.end_sil local transcription_filter= args.transcription_filter --------- -- HMM -- --------- -- generamos los modelos para las frases corpus_data_manager:apply{ input_fields = {'phon_table','phon_filename'}, output_fields = { 'hmm_c_models', -- modelo hmm en c generado con el hmmtrainer }, the_function = function (tbl,name) print("# Generating HMM model for: ".. name) if not phdict then if begin_sil then tbl = string.tokenize(begin_sil .. " " .. table.concat(tbl, " ")) end if end_sil then table.insert(tbl, end_sil) end return generate_models_from_sequences(tbl, hmmtrainer, tied, silences) else return generate_models_from_words(tbl, hmmtrainer, tied, silences, begin_sil, end_sil, transcription_filter) end end } end function recog.load_initial_hmm_emission_sequence(args) check_params(args) -- local corpus_data_manager = args.corpus_data_manager -- generamos secuencia de emisiones en partes iguales a partir de -- la secuencia fonetica y del numero de frames corpus_data_manager:apply{ input_fields = { 'sgm_filename', }, output_fields = { 'hmm_emission_sequence', -- tabla con lista emisiones corresp. a cada frase }, the_function = function (sgm_filename,numframes) print("# Loading initial segmentation " .. sgm_filename) local m = matrix.fromFilename(sgm_filename) local t = m:toTable() collectgarbage("collect") return t end } end function recog.generate_datasets(args) check_params(args) -- local mlp_output_dictionary = args.mlp_output_dictionary local left_context = args.left_context local right_context = args.right_context local corpus_data_manager = args.corpus_data_manager local means_and_devs = args.means_and_devs local clamp = args.clamp local dataset_perturbation_function = args.dataset_perturbation_function local dataset_step = args.dataset_step -------------------------- -- creamos los datasets -- -------------------------- corpus_data_manager:apply{ input_fields = {'frames'}, output_fields = { 'contextCCdataset', -- campo con dataset contextualizado de frames acusticos 'nocontextDataset', -- campo con dataset de frames acusticos }, the_function = function (frames) Cds,ds = contextCCdataset(frames, left_context, right_context, means_and_devs, dataset_perturbation_function, dataset_step, clamp) return Cds,ds end } corpus_data_manager:apply{ input_fields = {'hmm_emission_sequence','frames_size', 'phon_filename'}, output_fields = { 'segmentation_matrix', -- campo con matriz de emisiones del mejor camino -- version que guarda secuencia de indices de emision 'segmentation_dataset', -- dataset para entrenar la red neuronal con la matriz anterior }, the_function = function (segmentation,numframes,filename) print("# Generating emitions matrix and dataset: ", filename) return generate_emitions_matrix_and_dataset(segmentation, numframes, mlp_output_dictionary) end } end -- -- esta funcion carga un objeto tipo field_manager -- con todos los datos que necesitamos extraer del corpus -- function corpus_from_MFC_filename(args) check_params(args) -- -------------------- -- Carga de datos -- -------------------- -- CORPUS_DATA -- cargamos las listas de nombres de ficheros corpus_data_manager = field_manager() args.corpus_data_manager = corpus_data_manager -- nombres de ficheros recog.generate_filenames(args) collectgarbage("collect") -- fonetica recog.load_fon_string(args) collectgarbage("collect") -- modelos HMM if args.phdict then recog.load_phdict(args) end recog.generate_hmm_models(args) collectgarbage("collect") -- tramas acusticas recog.load_frames(args) collectgarbage("collect") -- emisiones de los HMMs if args.filename_sgm then recog.load_initial_hmm_emission_sequence(args) else recog.generate_initial_equidistant_hmm_emission_sequence(args) end collectgarbage("collect") print("# Generating datasets") -- datasets :) recog.generate_datasets(args) collectgarbage("collect") -- return corpus_data_manager end --------------------------------------------- -- Funcion para recalcular las matrices de -- -- emisiones del modelo acustico -- --------------------------------------------- function generate_new_segmentation(args) local corpus_data = args.field_manager local func = args.func local do_expectation = args.do_expectation local num_emissions = args.num_emissions local emission_in_log_base = args.emission_in_log_base or false local without_context = args.without_context or false local current = 1 local count_value = args.count_value local total_score = 0 -- -- resegmentamos validacion corpus_data:apply{ input_fields = { 'hmm_c_models', 'segmentation_matrix', 'contextCCdataset', 'nocontextDataset', }, output_fields = { }, the_function = function (themodel,segmentation_matrix,contextCCdataset, nocontextDataset) printf ("# Segmentation... %6d ",current) io.stdout:flush() collectgarbage("collect") -- matriz de salida para la red neuronal local mat_full = matrix(segmentation_matrix:dim()[1], num_emissions) local mat_full_ds = dataset.matrix(mat_full) -- local auxm = nocontextDataset:toMatrix() -- matrix.saveImage(auxm, string.format("tmp/image_%03d.pnm", -- current)) -- generamos la matriz de emisiones dada la -- parametrizacion de la frase actual if without_context then func:use_dataset{ input_dataset = nocontextDataset, -- parametrizacion output_dataset = mat_full_ds -- matriz de emisiones } else func:use_dataset{ input_dataset = contextCCdataset, -- parametrizacion output_dataset = mat_full_ds -- matriz de emisiones } end -- DEBUG BEGIN -- first = nocontextDataset:getPattern(1) -- out = func:use(first) -- print(table.concat(out, " ")) -- print("========================") -- print(table.concat(mat_full_ds:getPattern(1), " ")) -- DEBUG END -- local aux = mat_full:clone():exp() -- aux:adjust_range(0,1) -- matrix.saveImage(aux, -- string.format("tmp-new/mlp_matrix_%03d.pnm", -- current)) -- ahora generamos la salida de Viterbi local logprob = themodel:viterbi{ input_emission = mat_full, do_expectation = do_expectation, output_emission_seq = segmentation_matrix, -- output_emission = mat_full, -- para DEBUG emission_in_log_base = emission_in_log_base, count_value = count_value, } printf("%12.4f score\n", logprob) total_score = total_score + logprob io.stdout:flush() -- mat_full:adjust_range(0,1) -- matrix.saveImage(mat_full, string.format("tmp-new/hmm_matrix_%03d.pnm", -- current)) -- print(segmentation_matrix) current = current + 1 end } -- return total_score end ------------------------------------------------- ------------------------------------------------- -- FUNCIONES PARA TRABAJAR CON UN SOLO FICHERO -- ------------------------------------------------- ------------------------------------------------- function load_frontiers(w, h, frames_size) local c = dofile(frontiers_filename) local t = {} local inc = c.height/20 local ant = 0 -- primera frontera table.insert(t, ant) for i,fr_pos in ipairs(c.frontiers) do -- dividimos por 20 para sacar la trama a la que corresponde este -- pixel local current = math.floor(fr_pos/inc) -- si el frame no cambia, no hacemos nada if current ~= ant then table.insert(t, current) ant = current end end -- metemos el ultimo frame if ant ~= frames_size then table.insert(t, frames_size) end return t end local MFCC_cache = {} -- carga la matriz de CCs a partir de un nombre de fichero function load_matrix(MFCCfilename) -- cargamos la parametrizacion de MATRIX --if MFCCfilename == 'corpus/n02-082a-s05.fea' then os.exit() end local ad = MFCC_cache[MFCCfilename] or matrix.fromFilename(MFCCfilename) MFCC_cache[MFCCfilename] = ad return ad,ad:dim()[1] end -- carga la matriz de CCs a partir de un nombre de fichero function load_mfcc(MFCCfilename) -- cargamos la parametrizacion de MATRIX --if MFCCfilename == 'corpus/n02-082a-s05.fea' then os.exit() end tmpname = os.tmpname() local ad if string.sub(MFCCfilename, #MFCCfilename - 2, #MFCCfilename) == ".gz" then os.execute("gzip -d ".. MFCCfilename .." -c > ".. tmpname) ad = htk_interface.read_matrix_from_mfc_file(tmpname) os.execute("rm -f ".. tmpname) else ad = htk_interface.read_matrix_from_mfc_file(MFCCfilename) end return ad,ad:dim()[1] end -- genera la segmentacion a partes iguales function generate_initial_hmm_emission_sequence(tbl, numframes, tied, models) local ini local fin local m local emitions local num_emitions local seg_tbl = {} local size_tbl = #tbl local act_frame = 1 -- recorremos todos los fonemas del fichero for i=1,size_tbl do m = tied:get_model(tbl[i]) ini = act_frame fin = i*(numframes/size_tbl) if not models[m] then error ("Error, modelo no definido: "..m) end emitions = models[m].emissions num_emitions = #emitions -- dividimos el fonema en sus emisiones for k=1,num_emitions do -- metemos una entrada por cada frame emitido while act_frame < ini + k*(fin-ini)/num_emitions do table.insert (seg_tbl, emitions[k]) act_frame = act_frame + 1 end end -- rellenamos hasta el final while act_frame <= fin do table.insert(seg_tbl, emitions[num_emitions]) act_frame = act_frame + 1 end end -- while act_frame <= numframes do table.insert(seg_tbl, emitions[num_emitions]) act_frame = act_frame + 1 end -- return seg_tbl end ------------------------------- ------------ HMM -------------- ------------------------------- function recog.load_phdict(args) -- si nos dan el diccionario fonetico, generamos modelos para las -- palabras aux_local_vars.mangling = nil -- sirve para el name mangling de las palabras print("# Using dictionary for generate phonetic transcriptions") _,aux_local_vars.mangling=HMMTrainer.utils.dictionary2lextree(io.open(args.phdict), args.tied, args.silences, args.hmmtrainer) collectgarbage("collect") end function generate_models_from_words(tbl, hmmtrainer, tied, silences, begin_sil, end_sil, transcription_filter) local tr_string = table.concat(tbl, " ") -- filtramos la transcripcion if transcription_filter then tr_string = transcription_filter(tr_string) end -- anyadimos los silencios if begin_sil then tr_string = begin_sil .. " " .. tr_string end if end_sil then tr_string = tr_string .. " " .. end_sil end local themodel -- generamos el modelo a partir del diccionario fonetico, necesita -- name mangling local tbl = table.imap(string.tokenize(tr_string), function(str) assert(aux_local_vars.mangling[str] or silences[str], "Word without transcription: " .. str) return aux_local_vars.mangling[str] or str end) return generate_models_from_sequences(tbl, hmmtrainer,nil,silences) end function generate_models_from_sequences(tbl, hmmtrainer, tied, silences, output) local w local result = {} if tied then w = table.imap(tied:search_triphone_sequence(tbl), function(str) return tied:get_model(str) end) else w = tbl end local desc = HMMTrainer.utils.tbl2model_desc(w, silences, output) local aux = hmmtrainer:model(desc) -- print(aux:to_string()) collectgarbage("collect") return aux:generate_C_model() end -------------- -- datasets -- -------------- -- contextualiza la parametrizacion function contextCCdataset(m,leftcontext,rightcontext,means_and_devs,dataset_perturbation_function,dataset_step,clamp) local numFrames = m:dim()[1] local numParams = m:dim()[2] -- nCCs+1 local parameters = { patternSize = {dataset_step, numParams}, offset = {0,0}, -- default value stepSize = {dataset_step, 0}, -- default value, second value is not important numSteps = {numFrames/dataset_step, 1} } local orig_ds = dataset.matrix(m, parameters) if means_and_devs then --print(means_and_devs.means,#means_and_devs.means,means_and_devs.devs,#means_and_devs.devs) orig_ds:normalize_mean_deviation(means_and_devs.means, means_and_devs.devs) end if clamp[1] and clamp[2] then orig_ds = dataset.clamp(orig_ds, clamp[1], clamp[2]) end if dataset_perturbation_function then orig_ds = dataset_perturbation_function(orig_ds) end local ds = dataset.contextualizer (orig_ds,leftcontext,rightcontext) return ds,orig_ds end -- carga las etiquetas de salida de la red -- a partir de la tabla de segmentaciones function dslabels(mat,dictionary) local numFrames = mat:dim()[1] -- table.getn(m_tbl) local parameters = { patternSize = {1}, offset = {0}, stepSize = {1}, -- default value numSteps = {numFrames} } local ds_aux = dataset.matrix(mat,parameters) local ds = dataset.indexed(ds_aux,{dictionary}) return ds end ------------------------------------- function generate_emitions_matrix_and_dataset(seg_tbl, frames, mlp_output_dictionary) local previous = 1 local i = 0 local time,phone local emissions local num_emissions -- creamos la matriz expandiendo los valores local aux_mat = matrix(frames,seg_tbl) local aux_ds = dslabels(aux_mat, mlp_output_dictionary) return aux_mat,aux_ds end function asisted_recognition(dataflow, parser, correcta, correcta_words, dictionary, cronometro) -- RECONOCIMIENTO function corregir_reconocimiento(path, reconocida, correcta_words) local valid_prefix = {} for i=1,#reconocida do if correcta_words[i] == reconocida[i] then valid_prefix[i] = path[i] else break end end if #valid_prefix >= #correcta_words - 1 then if #valid_prefix ~= #correcta_words then return valid_prefix,1 end return valid_prefix,0 end return valid_prefix,1 end ------------------------------------------------------------ local num_corrections = 0 print ("# RUN") t1 = cronometro:read() cronometro:go() resul=the_dataflow:run() cronometro:stop() t2 = cronometro:read() print(t2-t1) if not resul then print("# Error al hacer dataflow:run()") end -- GET BESTPATH path,prob,logprob = model_parser:get_best_path() end april-ann-0.3.1/tools/NBEST/000077500000000000000000000000001234204160600154055ustar00rootroot00000000000000april-ann-0.3.1/tools/NBEST/add_feature.lua000066400000000000000000000015101234204160600203500ustar00rootroot00000000000000featuresfilename = arg[1] f = {} for i=2,#arg do f[i-1] = io.open(arg[i], "r") end -- leemos las features features = {} local n = 1 local fbegin = "FEATURES_TXT_BEGIN" local fend = "FEATURES_TXT_END" featsf=io.open(featuresfilename) for line in featsf:lines() do if string.sub(line, 1, #fbegin) == fbegin then features[n] = {} local t = string.tokenize(line) printf("%s %s %s %d %s", t[1], t[2], t[3], tonumber(t[4])+#arg-1, table.concat(t, " ", 5, #t)) for i=1,#f do printf(" FEAT%d", i) end printf("\n") elseif string.sub(line, 1, #fend) == fend then n = n + 1 printf("%s", line) for i=1,#f do printf(" FEAT%d", i) end printf("\n") else printf("%s", line) for i=1,#f do printf(" " .. f[i]:read("*l")) end printf("\n") end end featsf:close() for i=1,#f do f[i]:close() end april-ann-0.3.1/tools/NBEST/compute_a_posterioris.lua000066400000000000000000000054021234204160600225270ustar00rootroot00000000000000opt = cmdOpt{ program_name = string.basename(arg[0]), argument_description = "", main_description = "A posterioris computation in April toolkit", { index_name="t", description="NBest target file", short="t", argument="yes", }, { index_name="l", description="L0 value (default 1, in HTR/ASR inverse of GSF)", short="l", argument="yes", }, { index_name="k", description="Use only first k-best", short="k", argument="yes", }, { index_name="e", description="Show prob instead of logprob (defauly no)", short="e", argument="yes", }, { description = "shows this help message", short = "h", long = "help", argument = "no", action = function (argument) print(opt:generate_help()) os.exit(1) end } } optargs = opt:parse_args() if type(optargs) == "string" then error(optargs) end nbest = optargs.t or error ("Needs a NBest file") lambda0 = tonumber(optargs.l or 1.0) maxk = tonumber(optargs.k or -1) doexp = optargs.e function logAdd(a, b) if a>b then return a + math.log(1 + math.exp(b-a)) else return b + math.log(1 + math.exp(a-b)) end end id2voc = {} voc2id = {} nextid = 1 f = io.open(nbest, "r") data = {} uniq = {} sum = 0 currentn = 0 next_sentence_id = 1 while true do local line = f:read("*l") local n,sentence,feats,score n = -1 if line then n,sentence,feats,score = string.match(line, "(.*)|||(.*)|||(.*)|||(.*)") n = tonumber(n) score = tonumber(score) sentence = table.concat(string.tokenize(sentence), " ") end if n ~= currentn then -- Compute posteriors for i=1,#data do data[i].posterior = data[i].score - sum end table.sort(data, function(a,b) return a.posterior > b.posterior end) -- Print sentences for j=1,#data do if doexp == "yes" then data[j].posterior=math.exp(data[j].posterior) end printf("%d ||| %s ||| %g\n", currentn, data[j].sentence, data[j].posterior) end io.stdout:flush() io.stderr:flush() -- RESET, hemos terminado con esta lista data = {} uniq = {} next_sentence_id = 1 currentn = n sum = 0 collectgarbage("collect") end if line then if maxk == -1 or #data < maxk then local id = uniq[sentence] if not id then id = next_sentence_id uniq[sentence] = next_sentence_id next_sentence_id = next_sentence_id + 1 end -- para ajustar la escala local v = score*lambda0 -- sum for posteriors sum = logAdd(sum, v) if not data[id] then data[id] = {} data[id].score = v data[id].sentence = sentence else data[id].score=logAdd(data[id].score,v) end end else break end end april-ann-0.3.1/tools/NBEST/compute_errors.lua000066400000000000000000000236161234204160600211700ustar00rootroot00000000000000scores = arg[1] objfunc = arg[2] num_rep = tonumber(arg[3] or 0) baseline = arg[4] maxnbest = arg[5] confidence = tonumber(arg[6] or 0.95) if maxnbest then maxnbest = tonumber(maxnbest) end results = {} sizes = {} nscores = 0 score_func = nil if objfunc == "WER" then -- the scores order is: Acc Sub Ins Del score_func = function(data) return (data[2]+data[3]+data[4]) / (data[1]+data[2]+data[4]) end nscores = 4 elseif objfunc == "TER" then -- the scores order is: Errors / Length score_func = function(data) return data[1] / data[2] end nscores = 2 elseif objfunc == "BLEU" then -- the scores order is: 1gr TGT-1gr 2gr TGT-2gr 3gr TGT-3gr 4gr TGT-4gr 1gr-REF score_func = function(data) local logBP = 0 if data[2] <= data[9] then logBP = 1 - data[9] / data[2] end local b1 = math.log(data[1]) - math.log(data[2]) local b2 = math.log(data[3]) - math.log(data[4]) local b3 = math.log(data[5]) - math.log(data[6]) local b4 = math.log(data[7]) - math.log(data[8]) local logBLEU = (b1 + b2 + b3 + b4)/4 + logBP if data[1] == 0 or data[3] == 0 or data[5] == 0 or data[7] == 0 then return 1 end return 1 - math.exp(logBLEU) end nscores = 9 else error ("Incorrect objective function: " .. objfunc) end fprintf(io.stderr, "Loading data and errors\n") -- this function loads the scores of each sentence from Nbest lists, keeping the -- best set of scores for the given objective function function load_data(filename) local f = io.open(filename, "r") or error("File not found: " .. filename) local sentences_data = {} local results = {} local sizes = {} local n = 1 while true do local line = f:read("*l") if not line then break end local begin_line = string.tokenize(line) assert(begin_line[1] == "SCORES_TXT_BEGIN_0", "Incorrect scores file, header error: '%s'", begin_line[1]) assert(tonumber(begin_line[4]) == nscores, "Incorrect number of scores") local size = tonumber(begin_line[3]) local best = nil local bestdata = nil sentences_data[n] = sentences_data[n] or {} for i=1,size do local data = string.tokenize(f:read("*l")) if not maxnbest or i <= maxnbest then for i=1,#data do data[i] = tonumber(data[i]) end local sc = score_func(data) if not best or sc < best then best = sc bestdata = data end results[i] = results[i] or {} table.insert(results[i], bestdata) sizes[i] = (sizes[i] or 0) + 1 table.insert(sentences_data[n], bestdata) end end n = n + 1 local end_line = f:read("*l") assert(end_line == "SCORES_TXT_END_0", "Incorrect scores file, footer error: '%s'", end_line) end return results, sentences_data, sizes end -- this function receives a sorted list of points and computes the confidence -- interval function compute_confidence_interval(points, confidence) local ic,size = (1 - confidence) / 2, #points local pos = math.round(ic * size) local a,b = points[pos+1],points[size-pos+1] local median = math.median(points) return { median, (b-a)/2 } end function overlapped(a1,b1,a2,b2) if a1 < a2 and b1 < a2 then return false end if a2 < a1 and b2 < a1 then return false end return true end -- this function receives pair of sorted point lists and computes the -- confidence for which the intervals are not overlapped function compute_significance(p1, p2) local p2 = p2 or map(function() return 0 end, ipairs(p1)) assert(#p1 == #p2, "Incorrect list sizes") local median_pos = math.round(#p1/2) local sz = #p1 for i=1,median_pos-1 do local a1,b1 = p1[i],p1[sz-i+1] local a2,b2 = p2[i],p2[sz-i+1] if not overlapped(a1,b1,a2,b2) then return (sz - i*2) / sz end end return 0.0 end -- cargamos los datos del target results,sentences_data,sizes = load_data(scores) if baseline then -- y del baseline en caso de ser necesario baseline_results,baseline_sentences_data,baseline_sizes = load_data(baseline) end -- compute confidence interval fprintf(io.stderr, "Computing confidence interval\n") -- para cosas aleatorias rnd=random(os.time()) -- tendra el intervalo de confianza del target local intervals = {} -- tendra el intervalo de confianza del baseline local baseline_intervals = {} -- pairwise en forma de PUNTOS de mejora + intervalo local pairwise = {} local pairwise_significance = {} -- pairwise en forma de PROB de ser mejor a nivel de frase + intervalo local comparison_probs = {} -- pairwise en forma de PROB de ser mejor a nivel del conjunto local total_probs = {} -- este es para mostrar el tiempo que queda por pantalla local cronometro = util.stopwatch() cronometro:go() -- para cada repeticion for n=1,num_rep do -- variables auxiliares local aux = {} local baseline_aux = {} local probs = {} local nums = #sentences_data -- para el tamanyo de la muestra for i=1,nums do -- sacamos una frase al azar local rand_i = rnd:randInt(1, nums) -- para cada N de la lista de NBest for j=1,#sentences_data[rand_i] do aux[j] = aux[j] or {} -- para cada componente for k=1,#sentences_data[rand_i][j] do -- sumamos los scores de la funcion de error correspondiente a esa -- frase, y para cada N de la lista de NBest aux[j][k] = (aux[j][k] or 0) + sentences_data[rand_i][j][k] end -- calculamos la probabilidad de que sea mejor a nivel de frase if baseline and baseline_sentences_data[rand_i] and baseline_sentences_data[rand_i][j] then probs[j] = probs[j] or 0 if score_func(sentences_data[rand_i][j]) < score_func(baseline_sentences_data[rand_i][j]) then -- sumamos uno cuando es mejor probs[j] = (probs[j] or 0) + 1 end end end if baseline then -- sumamos los scores del baseline para la funcion de error y esta frase for j=1,#baseline_sentences_data[rand_i] do baseline_aux[j] = baseline_aux[j] or {} for k=1,#baseline_sentences_data[rand_i][j] do baseline_aux[j][k] = (baseline_aux[j][k] or 0) + baseline_sentences_data[rand_i][j][k] end end end end -- calculamos los intervalos y el pairwise for i=1,#aux do local r = score_func(aux[i]) intervals[i] = intervals[i] or {} table.insert(intervals[i], r) if baseline then if baseline_aux[i] then local base_r = score_func(baseline_aux[i]) -- pairwise pairwise[i] = pairwise[i] or {} table.insert(pairwise[i], base_r - r) total_probs[i] = total_probs[i] or 0 if base_r - r > 0 then -- calculamos la probabilidad de ser mejor a nivel de muestra total_probs[i] = total_probs[i] + 1 end end end end if baseline then -- calculamos los intervalos y probabilidades del baseline for i=1,#baseline_aux do -- probabilidad a nivel de frase en esta muestra probs[i] = probs[i] / math.min(sizes[i], baseline_sizes[i]) comparison_probs[i] = comparison_probs[i] or {} table.insert(comparison_probs[i], probs[i]) -- resultado en esta muestra local r = score_func(baseline_aux[i]) baseline_intervals[i] = baseline_intervals[i] or {} table.insert(baseline_intervals[i], r) end end -- tiempo estimado fprintf(io.stderr, "\rElapsed time: %6d seconds, ETA: %6d seconds", cronometro:read(), cronometro:read()/n * (num_rep-n) ) io.stderr:flush() end local ic = (1 - confidence) / 2 -- calcula los intervalos a partir de las repeticiones fprintf(io.stderr, "\nSorting intervals\n") for i=1,#intervals do table.sort(intervals[i], function(a,b) return a < b end) end if baseline then -- lo mismo para el baseline y los diferentes scores de pairwise for i=1,#total_probs do total_probs[i] = total_probs[i] / num_rep end for i=1,#baseline_intervals do table.sort(baseline_intervals[i], function(a,b) return a < b end) end fprintf(io.stderr, "\nSorting pairwise\n") for i=1,#pairwise do table.sort(pairwise[i], function(a,b) return a < b end) pairwise_significance[i] = compute_significance(pairwise[i]) pairwise[i] = compute_confidence_interval(pairwise[i], confidence) end for i=1,#comparison_probs do table.sort(comparison_probs[i], function(a,b) return a < b end) comparison_probs[i] = compute_confidence_interval(comparison_probs[i], confidence) end end -- mostramos por pantalla fprintf(io.stderr, "Computing errors\n") print("# N SCORE SCORE-MEDIAN INT BASE BASE-MEDIAN INT PAIRWISE PROBS-SENTENCE PROBS-CORPUS :: SIGNIFICANCE PWSIGNIFICANCE") for i=1,#results do -- for each Nbest local data = {} for j=1,#results[i] do -- for each repetition for k=1,#results[i][j] do -- for each score data[k] = (data[k] or 0) + results[i][j][k] end end if baseline then significance = compute_significance(intervals[i], baseline_intervals[i]) baseline_intervals[i] = compute_confidence_interval(baseline_intervals[i], confidence) end intervals[i] = compute_confidence_interval(intervals[i], confidence) local r = score_func(data) local r2 = (intervals[i] or {0,0})[1] if objfunc == "BLEU" then r = 1 - r r2 = 1 - r2 end printf("%d\t%8.4f %8.4f %8.4f", i, r*100, r2*100, (intervals[i] or {0,0})[2]*100) if baseline then local data = {} for j=1,#baseline_results[i] do for k=1,#baseline_results[i][j] do data[k] = (data[k] or 0) + baseline_results[i][j][k] end end local r = score_func(data) local r2 = (baseline_intervals[i] or {0,0})[1] local p = (pairwise[i] or {0,0})[1] if objfunc == "BLEU" then r = 1 - r r2 = 1 - r2 end printf(" bs: % -10g % -10g % -10g", r*100, r2*100, (baseline_intervals[i] or {0,0})[2]*100) printf(" pw: % -10g % -10g", p*100, (pairwise[i] or {0,0})[2]*100) printf(" p: % -10g % -10g", (comparison_probs[i] or {0,0})[1]*100, (comparison_probs[i] or {0,0})[2]*100) printf(" pW: % -10g", total_probs[i]*100) printf(" 1-p-value: % -10g", significance) printf(" 1-pw-value: % -10g", pairwise_significance[i]) end printf("\n") end april-ann-0.3.1/tools/NBEST/compute_errors.sh000077500000000000000000000056321234204160600210220ustar00rootroot00000000000000#!/bin/bash refs=$1 nbest=$2 score=$3 numreps=$4 baseline=$5 maxnbest=$6 confidence=$7 # by default 0.95 april_tools=$APRIL_TOOLS_DIR april=$APRIL_EXEC refs2=`mktemp /tmp/april_XXXXXXX` refs3=`mktemp /tmp/april_XXXXXXX` cp $refs $refs2 zcat $refs2 > $refs3 || cat $refs2 > $refs3 refs=$refs3 nbest2=`mktemp /tmp/april_XXXXXXX` zcat $nbest > $nbest2 || cat $nbest > $nbest2 nbest=$nbest2 if [ ! -z $baseline ]; then baseline2=`mktemp /tmp/april_XXXXXXX` baseline3=`mktemp /tmp/april_XXXXXXX` cp $baseline $baseline2 zcat $baseline2 > $baseline3 || cat $baseline2 > $baseline3 baseline=$baseline3 fi scores=`mktemp /tmp/april_XXXXXXX` feats=`mktemp /tmp/april_XXXXXXX` scores2=`mktemp /tmp/april_XXXXXXX` feats2=`mktemp /tmp/april_XXXXXXX` if [ $score = "WER" ]; then scorer="$april $april_tools/HMM_ANN/evaluation/extract_WER_weights.lua" $scorer -r $refs -S $scores -F $feats -n $nbest || exit if [ ! -z $baseline ]; then $scorer -r $refs -S $scores2 -F $feats2 -n $baseline || exit fi elif [ $score = "CER" ]; then scorer="$april $april_tools/HMM_ANN/evaluation/extract_WER_weights.lua -t CER" $scorer -r $refs -S $scores -F $feats -n $nbest || exit if [ ! -z $baseline ]; then $scorer -r $refs -S $scores2 -F $feats2 -n $baseline || exit fi score="WER" elif [ $score = "SER" ]; then scorer="$april $april_tools/HMM_ANN/evaluation/extract_WER_weights.lua -t SER" $scorer -r $refs -S $scores -F $feats -n $nbest || exit if [ ! -z $baseline ]; then scores2=`mktemp /tmp/april_XXXXXXX` feats2=`mktemp /tmp/april_XXXXXXX` $scorer -r $refs -S $scores2 -F $feats2 -n $baseline || exit fi score="WER" elif [ $score = "TER" ]; then echo "NOT IMPLEMENTED" exit -1 scorer="$april_tools/MT/compute_TER.sh" $scorer $refs $nbest $scores || exit $april $april_tools/MT/add_head_to_scorer_from_nbest.lua $scores $nbest > $scores.2 mv -f $scores.2 $scores if [ ! -z $baseline ]; then scores2=`mktemp /tmp/april_XXXXXXX` feats2=`mktemp /tmp/april_XXXXXXX` $scorer $refs $baseline $scores2 || exit $april $april_tools/MT/add_head_to_scorer_from_nbest.lua $scores2 $baseline > $scores.2 mv -f $scores.2 $scores2 fi elif [ $score = "BLEU" ]; then echo "NOT IMPLEMENTED" exit -1 scorer="$tools/bin/extractor" $scorer -r $refs \ --scconfig "reflen:closest" \ -S $scores \ -F $feats \ -n $nbest || exit if [ ! -z $baseline ]; then scores2=`mktemp /tmp/april_XXXXXXX` feats2=`mktemp /tmp/april_XXXXXXX` $scorer -r $refs \ --scconfig "reflen:closest" \ -S $scores2 \ -F $feats2 \ -n $baseline || exit fi else echo "Invalid score type: $score" exit fi echo "# $@" ($april $april_tools/NBEST/compute_errors.lua $scores $score $numreps $scores2 $maxnbest $confidence && rm -f $scores $feats $scores2 $refs2 $nbest2 $baseline2 $baseline3 $refs3) || echo $scores $scores2 > /dev/stderr april-ann-0.3.1/tools/NBEST/convert_nbest_to_sri_format.lua000066400000000000000000000015241234204160600237140ustar00rootroot00000000000000fprintf(io.stderr,"# CMD: "..table.concat(arg, " ").."\n") nbestfilename = arg[1] outdir = arg[2] os.execute("mkdir -p " .. outdir) nbestf = io.open(nbestfilename, "r") local i = 1 local prevn = nil local outf = "" log10_cte = 1.0/math.log(10) for line in nbestf:lines() do local n,sentence,probs,score = string.match(line, "(.*)|||(.*)|||(.*)|||%s*(.*)%s*") probs = string.tokenize(probs, " ") if i % 1000 == 0 then collectgarbage("collect") end i = i + 1 if tonumber(n) ~= tonumber(prevn) then printf("%d\n", n) prevn=n outf = io.open(outdir .. string.format("/nbest_%06d.score.gz",n), "w") --outf:write("NBestList1.0\n") end --fprintf(outf, "(%s) %s\n", score, sentence) for i=1,#probs do fprintf(outf, "%f ", tonumber(probs[i]) * log10_cte) end fprintf(outf, "%s\n", sentence) end outf:close() april-ann-0.3.1/tools/NBEST/extract_features.lua000066400000000000000000000037151234204160600214660ustar00rootroot00000000000000opt = cmdOpt{ program_name = string.basename(arg[0]), argument_description = "", main_description = "NBest feature extractor", { index_name="nbest", description="Nbest lists.", short="n", argument="yes", }, { index_name="feats", description="Output features.", short="F", argument="yes", }, { index_name="filter", description="Lua filter (post-process).", short="f", argument="yes", }, { description = "shows this help message", short = "h", long = "help", argument = "no", action = function (argument) print(opt:generate_help()) os.exit(1) end } } optargs = opt:parse_args(args) if not optargs.nbest then error("Needs a target nbest file!!!") end if optargs.filter then filter = dofile(optargs.filter) else filter = function (str) return str end end local currentn = 0 local correcta local nbestf = io.open(optargs.nbest) features = {} featsf = io.open(optargs.feats, "w") local kk = 0 while true do nbest_line=nbestf:read("*l") if nbest_line then n,reconocida,f,p = string.match(nbest_line, "(.*)|||(.*)|||(.*)|||(.*)") if n == nil then reconocida = nbest_line f = "0" p = "0" n = kk kk = kk + 1 end end if not nbest_line or tonumber(n) ~= currentn then fprintf(io.stderr,".") io.stdout:flush() local output_features = {} local size = 0 -- procesamos las NBEST local nfeats = #string.tokenize(features[1]) fprintf(featsf,"FEATURES_TXT_BEGIN_0 %d %d %d", currentn, #features, nfeats) for i=1,nfeats do fprintf(featsf, " f%d", i) end fprintf(featsf, "\n") fprintf(featsf,table.concat(features, "\n").."\n") fprintf(featsf,"FEATURES_TXT_END_0\n") if not nbest_line then break end -- reiniciamos features = {} size = 0 currentn = tonumber(n) end table.insert(features, f) end fprintf(io.stderr,"\n") nbestf:close() featsf:close() april-ann-0.3.1/tools/NBEST/extract_one_best_from_posteriors.lua000066400000000000000000000011571234204160600247600ustar00rootroot00000000000000nbest = {} local max = -11111111111111111111 function logAdd(a, b) if a>b then return a + math.log(1 + math.exp(b-a)) else return b + math.log(1 + math.exp(a-b)) end end if io.read("*l") ~= "NBestList1.0" then error ("Only allow NBestList1.0") end for line in io.lines() do local score,sentence = string.match(line, "^%(([^%(%)]*)%)%s*(.*)%s*$") score = tonumber(score) if not nbest[sentence] then nbest[sentence] = score else nbest[sentence] = logAdd(score, nbest[sentence]) end if nbest[sentence] > max then sentmax,max = sentence,nbest[sentence] end end printf("%14.6f \t %s\n", max , sentmax) april-ann-0.3.1/tools/NBEST/minimum_bayes_risk_decoding.lua000066400000000000000000000220051234204160600236310ustar00rootroot00000000000000-- PAPER: "Minimum Bayes Risk Decoding for BLEU", Nicola Ehling and -- Richard Zens and Hermann Ney, in ACL 2007 -- REVISAR TAMBIEN: "Task-Specific Minimum Bayes-Risk Decoding using -- Learned Edit Distance", Izhak Shafran and William Byrne opt = cmdOpt{ program_name = string.basename(arg[0]), argument_description = "", main_description = "Minimum Bayes Risk Decoding in April toolkig", { index_name="t", description="NBest target file", short="t", argument="yes", }, { index_name="f", description="Loss function (WER, SER, CER, BLEU, PER)", short="f", argument="yes", }, { index_name="n", description="Take the first N hipothesys for compute risks (default take ALL)", short="n", argument="yes", }, { index_name="k", description="Extract the one-best from the K first hipothesis, but using the rest N for compute risks (default takes N previous parameter)", short="k", argument="yes", }, { index_name="l", description="L0 value (default 1)", short="l", argument="yes", }, { description = "shows this help message", short = "h", long = "help", argument = "no", action = function (argument) print(opt:generate_help()) os.exit(1) end } } optargs = opt:parse_args() if type(optargs) == "string" then error(optargs) end nbest = optargs.t or error ("Needs a NBest file") lossf = optargs.f or error ("Needs a Loss function") maxnbest = tonumber(optargs.n or -1) lambda0 = tonumber(optargs.l or 1.0) maxk = tonumber(optargs.k or -1) function logAdd(a, b) if a>b then return a + math.log(1 + math.exp(b-a)) else return b + math.log(1 + math.exp(a-b)) end end id2voc = {} voc2id = {} nextid = 1 f = io.open(nbest, "r") data = {} uniq = {} mem_counts = {} sum = 0 currentn = 0 next_sentence_id = 1 function normalize1(s) --s = string.lower(s) return table.concat(string.tokenize(s), " ") end function normalize2(s) s = string.gsub(s, "([^%s])([%'\"%(%)%[%]%,%.:;%-%!%?%_%%%+%-%*%$])", "%1 %2") s = string.gsub(s, "([%'\"%(%)%[%]%,%.:;%-%!%?%_%%%+%-%*%$])([^%s])", "%1 %2") --s = string.gsub(s, "[%'\"%(%)%[%]%,%.:;%-%!%?%_%%%+%-%*%$]", "") --s = string.lower(s) return table.concat(string.tokenize(s), " ") end function normalize3(s) --return string.gsub(s, "%s*", "") return table.concat(string.tokenize(s), " ") end function normalize4(s) s = string.lower(s) --s = string.gsub(s, "([^%s])([%'\"%(%)%[%]%,%.:;%-%!%?%_%%%+%-%*%$])", "%1 %2") --s = string.gsub(s, "([%'\"%(%)%[%]%,%.:;%-%!%?%_%%%+%-%*%$])([^%s])", "%1 %2") s = string.gsub(s, "[%'\"%(%)%[%]%,%.:;%-%!%?%_%%%+%-%*%$]", "") return table.concat(string.tokenize(s), " ") end function compute_none(s) return { s = s } end function compute_grams(s) s = string.tokenize(s) r = { [1] = {}, [2] = {}, [3] = {}, [4] = {}, len = #s, } local gram2 = {} local gram3 = {} local gram4 = {} for i=1,#s do if not voc2id[s[i]] then voc2id[s[i]] = nextid id2voc[nextid] = s[i] nextid = nextid + 1 end s[i] = voc2id[s[i]] local gram1 = s[i] r[1][gram1] = (r[1][gram1] or 0) + 1 if i-1 > 0 then local gram2 = table.concat(s, "#", i-1, i) r[2][gram2] = (r[2][gram2] or 0) + 1 if i-2 > 0 then local gram3 = table.concat(s, "#", i-2, i) r[3][gram3] = (r[3][gram3] or 0) + 1 if i-3 > 0 then local gram4 = table.concat(s, "#", i-3, i) r[4][gram4] = (r[4][gram4] or 0) + 1 end end end end return r end function compute_words(s) s = string.tokenize(s) r = { words = {}, len = #s, } for i=1,#s do r.words[s[i]] = (r.words[s[i]] or 0) + 1 end return r end function compute_wer(hyp, hypp) local resul = tasas{ typedata = "pairs_lines", data = { {hyp.auxdata.s, hypp.auxdata.s} }, tasa = "ie", } return resul.tasa*0.01 end function compute_cer(ref, hyp) local resul = tasas{ typedata = "pairs_lines", data = { {ref.auxdata.s, hyp.auxdata.s} }, tasa = "ie", words_width = 1, } return resul.tasa*0.01 end function compute_ser(ref, hyp) if ref == hyp then return 0 end return 1 end function compute_per(ref, hyp) local diff1=0 local diff2=0 for w,rep in pairs(ref.auxdata.words) do diff1 = diff1 + math.abs(rep - (hyp.auxdata.words[w] or 0)) end for w,rep in pairs(hyp.auxdata.words) do diff2 = diff2 + math.abs(rep - (ref.auxdata.words[w] or 0)) end return (diff1 + diff2)/ref.auxdata.len end -- hyp es la REFERENCIA y hypp es la hipotesis ??? function compute_bleu(hyp, hypp) -- hypp and hyp are tables with -- { -- id, -- score = v, -- sentence = sentence, -- grams = { -- grams1, grams2, grams3, grams4, len -- } -- } local BP = 0 if hypp.auxdata.len < hyp.auxdata.len then BP = 1 - hyp.auxdata.len/hypp.auxdata.len end local counts local prod = 0 local memid = hyp.id .. "_" .. hypp.id if hypp.id < hyp.id then memid = hypp.id .. "_" .. hyp.id end if mem_counts[memid] then counts = mem_counts[memid] else counts = {0,0,0,0} for i=1,4 do for gram,c in pairs(hyp.auxdata[i]) do if hypp.auxdata[i][gram] then counts[i] = counts[i] + math.min(c, hypp.auxdata[i][gram]) end end if i > 1 then counts[i] = math.log(counts[i] + 1) else counts[i] = math.log(counts[i]) end end mem_counts[memid] = counts end prod = prod + (counts[1] - math.log(hypp.auxdata.len)) for i=2,4 do --prod = prod + (counts[i] - math.log(hyp.auxdata.len - i + 1)) prod = prod + (counts[i] - math.log(hypp.auxdata.len - i + 2)) end prod=prod*0.25 return 1 - math.exp(prod+BP) end if lossf == "BLEU" then compute_loss = compute_bleu compute_auxdata = compute_grams normalize = normalize1 elseif lossf == "WER" then compute_loss = compute_wer compute_auxdata = compute_none normalize = normalize3 elseif lossf == "CER" then compute_loss = compute_cer compute_auxdata = compute_none normalize = normalize3 elseif lossf == "SER" then compute_loss = compute_ser compute_auxdata = compute_none normalize = normalize4 elseif lossf == "PER" then compute_loss = compute_per compute_auxdata = compute_words normalize = normalize3 else error("Incorrect loss function: " .. lossf) end while true do local line = f:read("*l") local n,sentence,feats,score n = -1 if line then n,sentence,feats,score = string.match(line, "(.*)|||(.*)|||(.*)|||(.*)") n = tonumber(n) score = tonumber(score) end if n ~= currentn then -- Compute posteriors for i=1,#data do data[i].posterior = math.exp(data[i].score - sum) end table.sort(data, function(a,b) return a.posterior > b.posterior end) -- compute MBR local min = nil local best = 1 local last = #data if maxk ~= -1 then last = math.min(maxk, #data) end for i=1,last do local score = 0 for j=1,#data do -- si son frases identicas, la funcion de perdida es 0, y por -- tanto no hay que entrar en este if if j ~= i and data[i].sentence ~= data[j].sentence then -- calculamos la funcion de perdida (1 - BLEU) local lossv = compute_loss(data[i], data[j]) --print(lossv) --print(data[i].sentence) --print(data[j].sentence) --print(j, data[j].posterior, data[j].score, lossv, score, min) --print(lossv, math.exp(data[j].score), data[j].posterior, math.exp(sum)) -- sumamos a la puntuacion de esta frase la combinacion del -- la probabilidad a posteriori y la funcion de perdida, y -- asi calculamos el riesgo score = score + data[j].posterior*lossv end -- si el score supera el mejor minimo, paramos if min and score > min then break end end --printf("%f %s\n", score, data[i].sentence) if not min or score < min then -- nos quedamos con aquella frase que tiene menor riesgo min = score best = i end end print(table.concat(string.tokenize(data[best].output), " ")) fprintf(io.stderr, "%-14g %s (%d)\n", min, data[best].sentence, data[best].id) io.stdout:flush() io.stderr:flush() -- RESET, hemos terminado con esta lista data = {} mem_counts = {} uniq = {} next_sentence_id = 1 currentn = n sum = 0 collectgarbage("collect") end if line then local realsentence = sentence sentence = normalize(sentence) if maxnbest == -1 or #data < maxnbest then local id = uniq[sentence] if not id then id = next_sentence_id uniq[sentence] = next_sentence_id next_sentence_id = next_sentence_id + 1 end -- para ajustar la escala local v = score*lambda0 -- sum for posteriors sum = logAdd(sum, v) if not data[id] then data[id] = { id = id, score = v, sentence = sentence, output = realsentence, auxdata = compute_auxdata(sentence), } else data[id].score = logAdd(data[id].score, v) end end else break end end april-ann-0.3.1/tools/NBEST/rerank.lua000066400000000000000000000050131234204160600173710ustar00rootroot00000000000000weightsfilename = arg[1] nbestfilename = arg[2] features = arg[3] out_reranked = arg[4] or "reranked.nbest.out.gz" out_feats = arg[5] or nil local featsf = nil if out_feats then featsf = io.open(out_feats, "w") end local g = io.open(out_reranked, "w") -- leemos los pesos weights = string.tokenize(io.open(weightsfilename, "r"):read("*l")) for i=1,#weights do weights[i] = tonumber(weights[i]) end if features ~= nil then features = io.open(features) end -- leemos las nbest y hacemos el rescoring local currentn = 0 local best = nil local best_score = nil local f = io.open(nbestfilename) local reranked = {} if features then features:read("*l") end for line in f:lines() do local n,line,feats = string.match(line, "(.*)|||(.*)|||(.*)|||") n = tonumber(n) if features then if n ~= currentn then features:read("*l") features:read("*l") end feats = features:read("*l") end if n ~= currentn and best then print(table.concat(string.tokenize(best), " ")) table.sort(reranked, function(a,b) return a[3] > b[3] end) if featsf then fprintf(featsf, "FEATURES_TXT_BEGIN_0 %d %d %d", currentn, #reranked, #weights) for j=1,#weights do fprintf(featsf, " f_%d", j) end fprintf(featsf, "\n") for i=1,#reranked do fprintf(featsf, "%s\n", reranked[i][2]) end fprintf(featsf, "FEATURES_TXT_END_0\n") end for i=1,#reranked do fprintf(g, "%d|||%s|||%s|||%f\n", currentn, reranked[i][1], reranked[i][2], reranked[i][3]) end reranked = {} best_score = nil best = nil currentn = n end score = 0 local feats = string.tokenize(feats) for k=1,#weights do score = score + weights[k]*tonumber(feats[k]) end if not best_score or score > best_score then best_score = score best = line end table.insert(reranked, { line, table.concat(feats, " "), score }) end print(table.concat(string.tokenize(best), " ")) f:close() table.sort(reranked, function(a,b) return a[3] > b[3] end) if featsf then fprintf(featsf, "FEATURES_TXT_BEGIN_0 %d %d %d", currentn, #reranked, #weights) for j=1,#weights do fprintf(featsf, " f_%d", j) end fprintf(featsf, "\n") for i=1,#reranked do fprintf(featsf, "%s\n", reranked[i][2]) end fprintf(featsf, "FEATURES_TXT_END_0\n") end for i=1,#reranked do fprintf(g, "%d|||%s|||%s|||%f\n", currentn, reranked[i][1], reranked[i][2], reranked[i][3]) end reranked = {} g:close() if featsf then featsf:close() end april-ann-0.3.1/tools/NBEST/substitute_feature.lua000066400000000000000000000020141234204160600220330ustar00rootroot00000000000000feature_pos = tonumber(arg[1]) featuresfilename = arg[2] f = io.open(arg[3], "r") -- new feature file alpha_linear_comb = tonumber(arg[4] or 0.0) -- alpha for nbest list feature, 1 - alpha for new feature -- leemos las features features = {} local n = 1 local fbegin = "FEATURES_TXT_BEGIN" local fend = "FEATURES_TXT_END" featsf=io.open(featuresfilename) for line in featsf:lines() do if string.sub(line, 1, #fbegin) == fbegin then features[n] = {} local t = string.tokenize(line) if not tonumber(t[4]) then fprintf(io.stderr, "%s\n", line) end printf("%s %s %s %d %s", t[1], t[2], t[3], t[4], table.concat(t, " ", 5, #t)) printf("\n") elseif string.sub(line, 1, #fend) == fend then n = n + 1 printf("%s", line) printf("\n") else local t = string.tokenize(line) t[feature_pos] = (t[feature_pos]*alpha_linear_comb) + ((1-alpha_linear_comb)*tonumber(f:read("*l"))) printf("%s\n", table.concat(t, " ")) end end featsf:close() f:close() april-ann-0.3.1/tools/README.md000066400000000000000000000011061234204160600160070ustar00rootroot00000000000000Tools directory =============== This directory contains Lua scripts prepared to run experiments for different tasks using April-ANN. Currently, you can find following directories: ``` tools/ | |-- ANNs/ With utilities to transform ANNs from different formats. | |-- HMM_ANN/ Scripts to train HMM/ANN models. | |-- statistics/ Different statistic measures for confidence computation and other stuff. | |-- april_utilities Utilities to deal with the april structure. \ -- trainable/ Utilities to do meta-training as hyper-parameter optimization. ``` april-ann-0.3.1/tools/april_utilities/000077500000000000000000000000001234204160600177345ustar00rootroot00000000000000april-ann-0.3.1/tools/april_utilities/create_package.lua000066400000000000000000000062101234204160600233540ustar00rootroot00000000000000local PACKAGE_NAME = arg[1] local GNU_LICENSE = [[ /* * This file is part of APRIL-ANN toolkit (A * Pattern Recognizer In Lua with Artificial Neural Networks). * * Copyright 2013, Salvador España-Boquera, Francisco * Zamora-Martinez, Joan Pastor-Pellicer * * The APRIL-ANN toolkit is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 3 as * published by the Free Software Foundation * * This library is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * for more details. * * You should have received a copy of the GNU General Public License * along with this library; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ ]] if not PACKAGE_NAME then error("A name as argument is required") end local root_dir = PACKAGE_NAME local PACKAGE_INFO = string.format([[ package{ name = "%s", version = "1.0", depends = { }, keywords = { }, description = "A new awesome april package!", -- targets como en ant target{ name = "init", mkdir{ dir = "build" }, mkdir{ dir = "include" }, }, target{ name = "clean", delete{ dir = "build" }, delete{ dir = "include" }, }, target{ name = "provide", depends = "init", copy{ file= "c_src/*.h", dest_dir = "include" }, provide_bind{ file = "binding/bind_%s.lua.cc", dest_dir = "include" }, }, target{ name = "build", depends = "provide", use_timestamp=true, object{ file = "c_src/*.cc", include_dirs = "${include_dirs}", dest_dir = "build", }, luac{ orig_dir = "lua_src", dest_dir = "build", }, build_bind{ file = "binding/bind_%s.lua.cc", dest_dir = "build" }, }, target{ name = "document", document_src{}, document_bind{}, }, } ]],PACKAGE_NAME, PACKAGE_NAME, PACKAGE_NAME) print ("Creating Root dir "..root_dir) os.execute(string.format("mkdir -p %s %s/binding %s/c_src %s/doc", root_dir, root_dir, root_dir, root_dir)) print("Creating sources") local fheader = io.open(string.format("%s/c_src/%s.h", root_dir, PACKAGE_NAME), "w") fheader:write(GNU_LICENSE) fheader:write(string.format("#ifndef %s_H\n#define %s_H\n\n\n#endif\n",string.upper(PACKAGE_NAME), string.upper(PACKAGE_NAME))) fheader:close() local fsource = io.open(string.format("%s/c_src/%s.cc", root_dir, PACKAGE_NAME), "w") fsource:write(GNU_LICENSE) fsource:write(string.format("#include \"%s.h\"",PACKAGE_NAME)) fsource:close() print("Creating Binding...") local fbinding = io.open(string.format("%s/binding/bind_%s.lua.cc", root_dir, PACKAGE_NAME), "w") fbinding:write(GNU_LICENSE) fbinding:write(string.format("//BIND_HEADER_H\n#include \n#include\n#include \"%s.h\"\n//BIND_END\n",PACKAGE_NAME)) fbinding:close() print("Setting configuration file...") local fconf = io.open(string.format("%s/package.lua", PACKAGE_NAME), "w") fconf:write(PACKAGE_INFO) fconf:close() print("Package created") april-ann-0.3.1/tools/gnuplot.lua000066400000000000000000000144461234204160600167360ustar00rootroot00000000000000local gnuplot = {} -- module gnuplot --------------- GNUPLOT OBJECT METHODS --------------------- local gnuplot_methods = {} ----------------------- -- PRIVATE FUNCTIONS -- ----------------------- -- Writes using format and a list of arguments local function writef(self,format, ...) self.in_pipe:write(string.format(format,...)) return self end -- Writes the given strings (separated by blanks) local function write(self,...) self.in_pipe:write(table.concat(table.pack(...), " ")) return self end local function read(output,value,format) local format = format or "%s" if not value then return "" end return string.format("%s "..format, output, tostring(value)) end -------------------- -- PUBLIC METHODS -- -------------------- -- Writes a line using format and a list of arguments function gnuplot_methods:writeln(format, ...) writef(self,format,...) write(self,"\n") self:flush() return self end -- Sets a parameter function gnuplot_methods:set(...) write(self,"set ") write(self,table.concat(table.pack(...), " ")) write(self,"\n") self:flush() return self end -- Forces to write in the pipe function gnuplot_methods:flush() self.in_pipe:flush() return self end -- Plots (or multiplots) a given table with gnuplot parameters function gnuplot_methods:plot(params, range) -- remove previous temporal files for _,tmpname in pairs(self.tmpnames) do self:writeln(string.format("!rm -f %s", tmpname)) end self.tmpnames = {} local plot_str_tbl = {} if range then table.insert(plot_str_tbl, string.format("plot%s", range)) else table.insert(plot_str_tbl, "plot") end local tmpnames = self.tmpnames if not params[1] then params = { params } end for i,current in ipairs(params) do local data = current.data local func = current.func assert(data or func, "Field data or func is mandatory") local using = read("u", current.using or current.u) local title = read("title",current.title or current.t,"%q") local notitle = read("notitle",current.notitle,"") local with = read("w",current.with or current.w) local other = current.other or "" assert(type(other) == "string") if type(data) == "matrix" or type(data) == "matrixDouble" then local aux_tmpname = tmpnames[data] if not aux_tmpname then assert(data.toTabFilename, "The matrix object needs the method toTabFilename") aux_tmpname = os.tmpname() tmpnames[data] = aux_tmpname data:toTabFilename(aux_tmpname) end data = aux_tmpname end if data then if #data > 0 and string.sub(data,1,1) ~= "<" then local f = assert(io.open(data), "Unable to open filename " .. data) f:close() end data = string.format("%q", data) end table.insert(plot_str_tbl, string.format("%s %s %s %s %s", data or func, using, with, title, other)) if i ~= #params then table.insert(plot_str_tbl, ",") end end table.insert(plot_str_tbl, "\n") print(table.concat(plot_str_tbl, " ")) write(self,table.concat(plot_str_tbl, " ")) self:flush() return self end -- Closes the gnuplot pipe (interface) function gnuplot_methods:close() -- remove previous temporal files for _,tmpname in pairs(self.tmpnames) do self:writeln(string.format("!rm -f %s", tmpname)) end self.in_pipe:close() self.in_pipe = nil end --------------- -- METATABLE -- --------------- ------ METATABLE OF THE OBJECTS -------- local object_metatable = {} object_metatable.__index = gnuplot_methods object_metatable.__call = gnuplot_methods.writeln function object_metatable:__gc() self:close() end ----------------- -- CONSTRUCTOR -- ----------------- -- builds an instance for interfacing with gnuplot function gnuplot.new() local f = io.popen("which gnuplot") local command = f:read("*l") f:close() assert(command, "Impossible to find gnuplot binary executable") local in_pipe= io.popen(command, "w") local obj = { in_pipe = in_pipe, tmpnames = {} } setmetatable(obj, object_metatable) return obj end -- gnuplot() is equivalent to gnuplot.new() setmetatable(gnuplot, { __call = gnuplot.new }) ------------------- -- HELP FUNCTION -- ------------------- function gnuplot.help() print[[ Help of module 'gnuplot'. This module is a wrap around gnuplot command, allowing to make drawings of matrix objects (not lua tables), filenames or gnuplot functions (expressions). The module allow to declare as many gnuplot objects as you need, none of them will share anything, so every object has its own gnuplot window. CONSTRUCTOR: builds a gnuplot object instance > gp = gnuplot() -- the __call metamethod is defined > gp = gnuplot.new() -- both are equivalent HELP: shows this help message > gnuplot.help() METHOD __call: METHOD WRITE LINE: writes a sentence line to gnuplot arguments: format: is a string with a printf format string ... : is a variable argument list > gp(format, ...) > gp:writeln(format, ...) METHOD SET: executes the set command of gnuplot arguments: ... : a variable argument list, all of them strings > gp:set("format x '%20f'") > gp:set("xrange [-10,10]") METHOD PLOT: plots multiple data arguments: params: a table with as many tables as data you want to plot together. Each table contains the following fields: - data: mandatory if not given func field. It is a string with a filename path, or a matrix with data. - func: mandatory if not given data field. It is a string with a gnuplot expression. - using or u: a string with the using property of plot [optional] - with or w: a string with the with property of plot [optional] - title or t: a string with the title property of plot [optional] - notitle: any value different than false and nil [optional] - other: a string with any list of plot properties [optional] range: an optional string with the range property of gnuplot > gp:writeln('f(x) = 4*x') > gp:plot({ { data='filename1', u='1:2', w='l', t='A' }, { data='', u='4:5', w='p', t='P' }, { func='f(x)' }, }, "[-10:10][20:40]") METHOD FLUSH: flushes all the pending data (normally it is not necessary) > gp:flush() METHOD CLOSE: closes the connection with gnuplot > gp:close() ]] end return gnuplot april-ann-0.3.1/tools/lgi/000077500000000000000000000000001234204160600153055ustar00rootroot00000000000000april-ann-0.3.1/tools/lgi/gtk.lua000066400000000000000000000046661234204160600166110ustar00rootroot00000000000000-- module gtk local gtk = {} local lgi = require "lgi" local Gtk = lgi.Gtk local GdkPixbuf = lgi.GdkPixbuf function gtk.show(...) local windows = {} for i=1,select('#',...) do local param = select(i,...) local gtk_image = nil local tmp_file = nil if type(param) ~= "string" then local img = nil if type(param) == "Image" or type(param) == "ImageRGB" then img = param elseif type(param) == "matrix" then if #param:dim() == 2 then img = Image(param) else img = ImageRGB(param) end else error("Not supported data type: " .. type(param)) end tmp_file = os.tmpname() ImageIO.write(img, tmp_file, 'png') param = tmp_file end local sx,sy = 1,1 local pixbuf = GdkPixbuf.Pixbuf.new_from_file(param) local window = Gtk.Window { title = 'Prueba', Gtk.Box { id = 'vbox', orientation = 'VERTICAL', spacing = 8, border_width = 8, Gtk.Box { id = 'top', orientation = 'HORIZONTAL', spacing = 8, border_width = 8, Gtk.Button { id = 'fit', label = 'fit', }, Gtk.Box { orientation = 'VERTICAL', Gtk.Button { id = 'zoomIN', label = '+', }, Gtk.Button { id = 'zoomOUT', label = '-', }, }, Gtk.Button { id = 'exit', label = 'exit', }, }, Gtk.Frame { shadow_type = 'IN', halign = 'CENTER', valign = 'CENTER', Gtk.Image { id='image', pixbuf=pixbuf }, }, }, } local function scale() local scaled_pixbuf = pixbuf:scale_simple(pixbuf.width * sx, pixbuf.height * sy, 'BILINEAR') window.child.image.pixbuf = scaled_pixbuf window.child.image:queue_draw() collectgarbage("collect") end function window.child.exit:on_pressed() for i=1,#windows do windows[i]:hide() end Gtk.main_quit() end function window.child.fit:on_pressed() local w,h = window.width-40,window.height - window.child.top.height - 50 local ratio = pixbuf.height/pixbuf.width if w*ratio > h then sy=h/pixbuf.height sx=sy else sx=w/pixbuf.width sx=sy end scale() end function window.child.zoomIN:on_pressed() sx,sy = sx*1.1,sy*1.1 scale() end function window.child.zoomOUT:on_pressed() sx,sy = sx*0.9,sy*0.9 scale() end window:show_all() table.insert(windows, window) if tmp_file then os.remove(tmp_file) end end Gtk.main() end return gtk april-ann-0.3.1/tools/statistics/000077500000000000000000000000001234204160600167245ustar00rootroot00000000000000april-ann-0.3.1/tools/statistics/compute-box-whiskers.lua000066400000000000000000000012501234204160600235240ustar00rootroot00000000000000-- COMPUTES BOX AND WHISKERS, PLUS MEAN AND VARIANCE datafilename = arg[1] column = tonumber(arg[2]) if datafilename == "-" then datafilename = nil end data = {} local sum = 0 local sum2 = 0 for line in io.uncommented_lines(datafilename) do local t = string.tokenize(line) local v = tonumber(t[column]) table.insert(data, v) sum = sum + v sum2 = sum2 + v*v end table.sort(data) local q0 = 1 local q1 = math.round(#data/4) local q2 = math.round(#data/2) local q3 = math.round(#data*3/4) local q4 = #data local mean = sum/#data local stddev = math.sqrt( (sum2 - sum*sum/#data)/(#data - 1) ) print(data[q0], data[q1], data[q2], data[q3], data[q4], mean, stddev) april-ann-0.3.1/tools/statistics/pearson-correlation-coefficient.lua000066400000000000000000000037201234204160600256730ustar00rootroot00000000000000if #arg ~= 5 then print("Syntax error!") printf("\t%s [FILENAME | -] NUMCOL1 NUMCOL2 SEED CONF\n", arg[0]) printf("\t\tuse - as FILENAME for stdin\n") printf("\t\tNUMCOL1 and NUMCOL2 are column indexes of your data\n") printf("\t\tSEED is a random number generator seed for bootstrap confidences\n") printf("\t\tCONF is the confidence value (0.95 for example)\n") os.exit(1) end filename = arg[1] col1 = tonumber(arg[2]) col2 = tonumber(arg[3]) seed = tonumber(arg[4]) conf = tonumber(arg[5]) reps = 100 if conf > 0.5 then reps = 1000 end if conf > 0.95 then reps = 10000 end if conf > 0.99 then reps = 100000 end local f if filename == "-" then f = io.stdin else f = io.open(filename, "r") end function zero_if_null(v) if v == "None" or v == "Undefined" or v == "Unintialized" or v == "Null" then v = 0 end return v end local points = iterator(f:lines()): map(string.tokenize): -- remove commentaries filter(function(t) return string.sub(t[1],1,1) ~= "#" end): -- filter null values map(function(t) return zero_if_null(t[col1]),zero_if_null(t[col2]) end): -- check numbers map(function(a,b) local a = tonumber(a) or error("Impossible to convert to number col1: " .. a) local b = tonumber(b) or error("Impossible to convert to number col2: " .. b) return {a,b} end): -- table conversion table() local N = #points local rnd = random(seed) fprintf(io.stderr, "%d repetitions, %d points\n", reps, N) local boot_result = stats.boot{ verbose = true, data = points, R = reps, statistic = function(it) local c = stats.correlation.pearson() for k,v in it do c:add(table.unpack(v)) end return { c:compute() } end, } local rxy1,rxy2 = stats.boot.ci(data, conf) local alpha,beta = util.linear_least_squares(points) printf("rxy= % .4f +- % .4f [% .4f, % .4f]\n", (rxy1 + rxy2)/2, math.abs(rxy1-rxy2)*0.5, rxy1, rxy2) printf("y= % .4f + % .4f x\n", alpha, beta) april-ann-0.3.1/tools/statistics/time-series-autocorrelation.lua000066400000000000000000000020161234204160600250640ustar00rootroot00000000000000if #arg < 3 then print("Syntax error!") printf("\t%s FILENAME|- NUMCOL LAG1 [LAG2 [LAG3 [...]]]\n", arg[0]) os.exit(1) end filename = arg[1] col = tonumber(arg[2]) lags = {} for i=3,#arg do table.insert(lags, tonumber(arg[i])) end if filename == "-" then filename = nil end function zero_if_null(v) if v == "None" or v == "Undefined" or v == "Unintialized" or v == "Null" then v = 0 end return v end local data = {} local sum = 0 local sum2 = 0 for line in io.uncommented_lines(filename) do local t = string.tokenize(line) local v = zero_if_null(t[col]) table.insert(data, v) sum = sum + v sum2 = sum2 + v*v end local mean = sum/#data local var = (sum2 - sum*sum/#data)/(#data - 1) printf("mean: %g\nvariance: %g\n\n", mean, var) for _,lag in ipairs(lags) do local i = 1 local j = 1 + lag local sum = 0 while j <= #data do local x,y = data[i],data[j] sum = sum + (x - mean) * (y - mean) i, j = i + 1, j + 1 end printf("LAG %d %g\n", lag, (sum/#data)/var) end april-ann-0.3.1/tools/trainable/000077500000000000000000000000001234204160600164735ustar00rootroot00000000000000april-ann-0.3.1/tools/trainable/compute-generalization-statistics.lua000066400000000000000000000113461234204160600260600ustar00rootroot00000000000000if #arg < 5 then print("Syntax error!") printf("\t%s FILENAME VAL_MEAN_COL VAL_VAR_COL TEST_MEAN_COL TEST_VAR_COL [W_REPS [EXP_REPS [EXP1_SIZE [EXP2_SIZE ...] ] ] ]\n", arg[0]) printf("\nThis script computes the generalization ability given a set of experiments\n") printf("using different hyperparameters.\n\n") printf("\tuse - as FILENAME for stdin\n") printf("\tVAL_MEAN_COL is the column with the MEAN for your loss-function\n") printf("\t over all validation samples\n") printf("\tVAL_VAR_COL is the column with the VARIANCE of the MEAN for your\n") printf("\t loss-function over all validation samples\n") printf("\tTEST_MEAN_COL idem but with TEST\n") printf("\tTEST_VAR_COL idem but with TEST\n") printf("\tW_REPS is the number of simulation repetitions to compute\n") printf("\t generalization weights (by default 1000)\n") printf("\tEXP_REPS is the number of simulation repetitions to compute\n") printf("\t box-whiskers plots for each size (by default 1)\n") printf("\tThe following arguments are as many experiment sizes as you need\n") printf("\t(taken as subset of all your data), by default num_lines_of(FILENAME)\n") printf("\n\tSee 2012, Bergstra and Bengio, 'Random Search for Hyper-Parameter Optimization'\n") printf("\tfor more details: http://jmlr.csail.mit.edu/papers/volume13/bergstra12a/bergstra12a.pdf\n") os.exit(1) end datafilename = arg[1] val_mean_column = tonumber(arg[2]) val_var_column = tonumber(arg[3]) test_mean_column = tonumber(arg[4]) test_var_column = tonumber(arg[5]) repetitions = tonumber(arg[6] or 1000) expsize_reps = tonumber(arg[7] or 1) expsizes = {} for i=8,#arg do table.insert(expsizes, tonumber(arg[i])) end if datafilename == "-" then datafilename = nil end function sample_random_from_bash() return tonumber(io.popen("od -N2 -An -i /dev/urandom"):read("*l")) end -- read data data = {} for line in io.uncommented_lines(datafilename) do local t = string.tokenize(line) local val_mean = tonumber(t[val_mean_column]) local val_var = tonumber(t[val_var_column]) local test_mean = tonumber(t[test_mean_column]) local test_var = tonumber(t[test_var_column]) table.insert(data, { val_mean = val_mean, val_var = val_var, test_mean = test_mean, test_var = test_var, sum_mean2_var2 = (test_mean*test_mean + test_var*test_var), distribution = random(sample_random_from_bash()) }) end if #expsizes == 0 then table.insert(expsizes, #data) end ----------------------------------------- rnd = random(sample_random_from_bash()) -- for each random experiment size for _,expsize in ipairs(expsizes) do -- table to keep computed test means local test_means_tbl = {} for rep=1,expsize_reps do -- populate expsize-sized random experiment local wins = {} local population = {} for i=1,expsize do local idx = rnd:randInt(1,#data) if #expsizes == 1 and expsize_reps == 1 then idx = i end table.insert(population, data[idx]) table.insert(wins, 0) end -- sampling loop for estimation of random experiment weights for i=1,repetitions do local min = nil local argmin = 0 -- sample from each hyperparameter set distribution for j,one_exp in ipairs(population) do local sampled_error = one_exp.distribution:randNorm(one_exp.val_mean, one_exp.val_var) if argmin == 0 or sampled_error < min then argmin,min = j,sampled_error end end -- wins measures how many times a given set of hyperparameters was the -- best, so at the end is possible to compute weights normalizing this -- table wins[argmin] = wins[argmin] + 1 end ----------------------------------------- -- compute test mean and test variance local test_mean = 0 local test_var = 0 for i,one_exp in ipairs(population) do local weight = wins[i]/repetitions test_mean = test_mean + weight * one_exp.test_mean test_var = test_var + weight * one_exp.sum_mean2_var2 end test_var = test_var - test_mean*test_mean ----------------------------------------- if #expsizes == 1 and expsize_reps == 1 then print(expsize, test_mean, test_var) end table.insert(test_means_tbl, test_mean) end if #test_means_tbl > 1 then -- sort test_means_tbl table.sort(test_means_tbl) -- compute box-whisker data local q0 = 1 local q1 = math.max(1,math.round(#test_means_tbl/4)) local q2 = math.max(1,math.round(#test_means_tbl/2)) local q3 = math.max(1,math.round(#test_means_tbl*3/4)) local q4 = #test_means_tbl print(expsize, test_means_tbl[q0], test_means_tbl[q1],test_means_tbl[q2],test_means_tbl[q3], test_means_tbl[q4]) end end april-ann-0.3.1/tools/trainable/random-search-hyperparemeter-optimization.lua000066400000000000000000000277651234204160600275200ustar00rootroot00000000000000help_string = [[ Command line args must be: april-ann random-search.....lua conf.lua ["all_hyperparams.TAG.option='blah'" "global_vars.working_dir='blah'" "global_vars.n=blah" "global_vars.seed=blah"... ] This script executes a random search optimization of hyperparameters of any executable (not only april scripts). It receives one mandatory argument, a configuration file which must fullfil following template: return { hyperparams = { { option="--o1=", value=10, tag="o1", sampling="fixed", hidden=true }, { option="--o2=", value=20, tag="o2", sampling="fixed" }, { option="--r1=", tag="r1", sampling = "log-uniform", type="integer", values= { { min=1, max=10 }, { min=20, max=100 } }, filter = function(hyperparams) hyperparams["r1"] = "200" return true end }, { option="--r2=", tag="r2", sampling = "uniform", values= { 1, 2, 3, 4, 5 } }, { option="--r3=", tag="r3", prec=3, sampling = "gaussian", values= { mean=0, variance=0.1 } }, { option="--r4=", tag="r4", sampling = "random", filter = function(hyperparams) if hyperparams["r2"] == "1" then hyperparams["r4"] = "0" end return true end }, { option=nil, tag="r5", sampling="random" } }, filter = function(hyperparams) hyperparams['r5'] = '0.4' return true end, script = "", exec = "echo", working_dir = "/tmp/", -- seed = ANY_SEED_VALUE (if not given, take random from bash) n = 50, arguments_maker = function(args_list) return iterator(ipairs(args_list)): map(function(_,t) return "%s%q"%{t.option,t.value} end): concat(""," ") end } and any number of arguments which modify configuration file values. This arguments could access to: - all_hyperparams table which could be indexed by TAGs => all_hyperparams.TAG.option='blah' - global_vars table which could be indexed by any global var => global_vars.seed=blah ]] if #arg < 1 then printf("%s\n", help_string) error("Syntax error") end april_print_script_header(arg) ------------------------ Auxiliar functions --------------------------------- -- This sample random numbers from urandom device function sample_random_from_bash() return tonumber(io.popen("od -N2 -An -i /dev/urandom"):read("*l")) end -- This function check the correction of random_hyperparams local fixed_hyperparam_valid_options = table.invert{"option", "tag", "value", "hidden", "sampling" } local random_hyperparam_valid_options = table.invert{"option", "tag", "values", "sampling", "prec", "filter", "type", "size", "hidden" } local random_hyperparam_values_table_valid_options = table.invert{"min","max","step", "mean", "variance", "size" } function check_hyperparam(hyperparam) if not hyperparam.sampling then error("Each hyperhyperparameter needs a sampling") end if not hyperparam.tag then error("Each hyperparameter needs a tag") end if hyperparam.sampling == "fixed" then for name,v in pairs(hyperparam) do if not fixed_hyperparam_valid_options[name] then error("Incorrect fixed hyperparam option name: " .. name) end end hyperparam.filter = function(hyperparams) return true end else if not hyperparam.prec then hyperparam.prec = 10 end if not hyperparam.filter then hyperparam.filter = function(hyperparams) return true end end for name,v in pairs(hyperparam) do if not random_hyperparam_valid_options[name] then error("Incorrect random hyperparam option name: " .. name) end end if hyperparam.sampling == "gaussian" then if not hyperparam.values then error("Each random hyperparameter needs values") end if not hyperparam.values.mean or not hyperparam.values.variance then error("Gaussian sampling needs mean and variance") end elseif hyperparam.sampling == "uniform" or hyperparam.sampling == "log-uniform" then if not hyperparam.values then error("Each random hyperparameter needs values") end if type(hyperparam.values) ~= "table" then error("Uniform sampling needs values table") end if type(hyperparam.values[1]) == "table" then if hyperparam.type ~= "integer" and hyperparam.type ~= "real" then error("Needs integer or real type field for TAG "..hyperparam.tag) end local size = 0 for _,p in ipairs(hyperparam.values) do for name,v in pairs(p) do if not random_hyperparam_values_table_valid_options[name] then error("Incorrect random values table option name: " .. name) end end if not p.step then p.step = 1 end if not p.min or not p.max then error("Values need min and max (optionally step) hyperparameters") end p.size = (p.max - p.min)/p.step if hyperparam.type == "integer" then p.size = math.floor(p.size) end size = size + p.size end hyperparam.size = size end elseif hyperparam.sampling == "random" then -- NOTHING TO DO else error("Incorrect sampling type") end end end -- This function sample one value from the given hyperparam distribution and random -- number generator function sample(hyperparam, rnd) local v if hyperparam.sampling == "fixed" then v = tostring(hyperparam.value) elseif hyperparam.sampling == "gaussian" then v = string.format("%."..hyperparam.prec.."f", rnd:randNorm(hyperparam.values.mean, hyperparam.values.variance)) elseif hyperparam.sampling == "random" then v = tostring(sample_random_from_bash()) else -- uniform and log-uniform if type(hyperparam.values[1]) == "table" then local pos = rnd:rand(hyperparam.size) for k,p in ipairs(hyperparam.values) do pos = pos - p.size if pos <= 0 or k==#hyperparam.values then if hyperparam.type == "integer" then local r if hyperparam.sampling == "uniform" then r = rnd:randInt(0, p.size)*p.step + p.min else if p.step ~= 1 then error("Step must be one for log-uniform integers") end r = rnd:rand(math.log(p.max)-math.log(p.min)) + math.log(p.min) r = math.round(math.exp(r)) end v = tostring(r) else -- if hyperparam.type == "integer" ... local r if hyperparam.sampling == "uniform" then r = rnd:rand(p.max-p.min) + p.min else r = rnd:rand(math.log(p.max)-math.log(p.min)) + math.log(p.min) r = math.exp(r) end v = string.format("%.".. hyperparam.prec .."f", r) end -- if hyperparam.type == "integer" else ... break end -- if pos <= 0 or k == #hyperparam.values ... end -- for k,p in ipairs(hyperparam.values) else -- if type(hyperparam.values[1]) == "table" ... if hyperparam.sampling == "log-uniform" then error("log-uniform sampling don't works with a finite table") end v = tostring(rnd:choose(hyperparam.values)) end end return v end ------------------------------------------------------------------------------ local conf_table = (dofile(arg[1] or error("Needs a configuration file")) or error("Impossible to load configuration file")) local global_vars = {} global_vars.n = conf_table.n or error ("The configuration file needs ".. "a n option") global_vars.seed = tonumber(conf_table.seed or sample_random_from_bash()) global_vars.working_dir = conf_table.working_dir or error("Needs a working_dir option") global_vars.exec = conf_table.exec or error("Needs an exec option") global_vars.script = conf_table.script or error("Needs a script option") global_vars.filter = conf_table.filter or (function(hyperparams) return true end) local hyperparams_conf_tbl = conf_table.hyperparams or {} all_hyperparams = {} -- ERROR CHECK -- for _,hyperparam in ipairs(hyperparams_conf_tbl) do check_hyperparam(hyperparam) if all_hyperparams[hyperparam.tag] then error("The following tag is repeated: " .. hyperparam.tag) end all_hyperparams[hyperparam.tag] = hyperparam end -- Modify hyperparams by command line local valid_cmd_options = table.invert{ "seed", "working_dir", "exec", "script", "filter", "n" } for i=2,#arg do -- load the chunk local chunk_func=loadstring(arg[i]) or error("Impossible to load string: ".. arg[i]) -- execute the chunk chunk_func() -- printf("# Executed chunk string: %s\n", arg[i]) end local n = global_vars.n local seed = global_vars.seed local working_dir = global_vars.working_dir local exec = global_vars.exec local script = global_vars.script local filter = global_vars.filter local rnd = random(seed) local arguments_maker = conf_table.arguments_maker or function(hyperparams_list) return iterator(ipairs(hyperparams_list)): map(function(_,t) return "%s%q"%{t.option,t.value} end): concat("", " ") end printf("# Seed %d\n", global_vars.seed) printf("# Sampling over %d hyperparameters\n", #hyperparams_conf_tbl) -- N random iterations for i=1,n do collectgarbage("collect") local hyperparam_values = nil local args_table = nil local filename_tags = nil local filename = nil local skip = false local max_iters = 1000 local iter1_count = 0 -- First loop, until the combination of hyperparams were unique repeat iter1_count = iter1_count + 1 if iter1_count > max_iters then error("Possible infinite loop, all possible hyperparam values ".. "are sampled yet") end -- Second loop, until hyperparam filter function returns true local iter2_count = 0 repeat iter2_count = iter2_count + 1 if iter2_count > max_iters then error("Possible infinite loop due to global filter function\n".. "Check that it is not always returning false or nil") end hyperparam_values = {} args_table = {} filename_tags = {} -- auxiliar function function put_value(option, tag, value, hidden) local value = tostring(value) if option then local v = value table.insert(args_table, { tag=tag, option=option, value=v }) end if not hidden then table.insert(filename_tags, string.format("%s:%s", tag, string.gsub(value, "/", "_"))) end end for _,hyperparam in ipairs(hyperparams_conf_tbl) do -- Third loop, until current filter function returns true local v local iter3_count = 0 repeat iter3_count = iter3_count + 1 if iter3_count > max_iters then error("Possible infinite loop due to filter function of: ".. hyperparam.tag .."\n".. "Check that it is not always returning false or nil") end v = sample(hyperparam, rnd) hyperparam_values[hyperparam.tag] = v until hyperparam.filter(hyperparam_values) end until filter(hyperparam_values) for _,hyperparam in ipairs(hyperparams_conf_tbl) do local tag = hyperparam.tag if type(hyperparam_values[tag]) ~= "string" then print("WARNING!!! Please, check that all filter functions set".. " hyperparams to string type values, at least this ".. "one: " .. tag) end put_value(hyperparam.option, tag, tostring(hyperparam_values[tag]), hyperparam.hidden) end filename=string.format("%s/output-%s.log", working_dir, table.concat(filename_tags, "_")) skip = (io.open(filename, "r") ~= nil) if skip then printf ("# Skipping file %s\n", filename) end until not skip printf("# ITERATION %d :: %s\n", i, table.concat(filename_tags, " ")) printf("# \t output file: %s\n", filename) local args_str = arguments_maker(args_table) assert(type(args_str) == "string", "arguments_maker must return a string") local cmd = string.format("%s %s %s", exec, script, args_str) printf("# \t executed string: %s\n", cmd) printf("# \t hyperparam values:\n") for _,hyperparam in ipairs(hyperparams_conf_tbl) do printf("# \t \t %s = %s\n", hyperparam.tag, hyperparam_values[hyperparam.tag]) end local f = io.popen(cmd) local g = io.open(filename, "w") or error(string.format("Impossible to open logfile '%s'", filename)) for line in f:lines() do g:write(line.."\n") g:flush() end f:close() g:close() end