开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多媒体 > midi > 查看源码
builtin_funcs.h
资源名称：vlc-1.0.5.zip　[点击查看]
上传用户：kjfoods
上传日期：2020-07-06
资源大小：29949k
文件大小：5k
源码类别：

midi

开发平台：

Unix_Linux

builtin_funcs.h：源码内容
  1. /*****************************************************************************
  2.  * builtin_funcs.c:
  3.  *****************************************************************************
  4.  * Copyright (C) 2004 the VideoLAN team
  5.  * $Id: 8c6cb5767d1b12cc6c242b5c8fccba87c039528d $
  6.  *
  7.  * Authors: Cyril Deguet <asmax@videolan.org>
  8.  *          code from projectM http://xmms-projectm.sourceforge.net
  9.  *
  10.  * This program is free software; you can redistribute it and/or modify
  11.  * it under the terms of the GNU General Public License as published by
  12.  * the Free Software Foundation; either version 2 of the License, or
  13.  * (at your option) any later version.
  14.  *
  15.  * This program is distributed in the hope that it will be useful,
  16.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  17.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18.  * GNU General Public License for more details.
  19.  *
  20.  * You should have received a copy of the GNU General Public License
  21.  * along with this program; if not, write to the Free Software
  22.  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
  23.  *****************************************************************************/
  26. #include <math.h>
  27. #include <stdlib.h>
  28. #include <stdio.h>
  29. /* Values to optimize the sigmoid function */
  30. #define R  32767   
  31. #define RR 65534   
  32.  
  33. static inline double int_wrapper(double * arg_list) {
  35.   return floor(arg_list[0]);
  37. }
  40. static inline double sqr_wrapper(double * arg_list) {
  42. return pow(2, arg_list[0]);
  43. }
  46. static inline double sign_wrapper(double * arg_list) {
  48. return -arg_list[0];
  49. }
  51. static inline double min_wrapper(double * arg_list) {
  53. if (arg_list[0] > arg_list[1])
  54. return arg_list[1];
  56. return arg_list[0];
  57. }
  59. static inline double max_wrapper(double * arg_list) {
  61. if (arg_list[0] > arg_list[1])
  62.   return arg_list[0];
  64. return arg_list[1];
  65. }
  67. /* consult your AI book */
  68. static inline double sigmoid_wrapper(double * arg_list) {
  69.   return (RR / (1 + exp( -(((double)(arg_list[0])) * arg_list[1]) / R) - R));
  70. }
  73. static inline double bor_wrapper(double * arg_list) {
  75. return (double)((int)arg_list[0] || (int)arg_list[1]);
  76. }
  78. static inline double band_wrapper(double * arg_list) {
  79. return (double)((int)arg_list[0] && (int)arg_list[1]);
  80. }
  82. static inline double bnot_wrapper(double * arg_list) {
  83. return (double)(!(int)arg_list[0]);
  84. }
  86. static inline double if_wrapper(double * arg_list) {
  88. if ((int)arg_list[0] == 0)
  89. return arg_list[2];
  90. return arg_list[1];
  91. }
  94. static inline double rand_wrapper(double * arg_list) {
  95.   double l;
  97.   //  printf("RAND ARG:(%d)n", (int)arg_list[0]);
  98.   l = (double)((rand()) % ((int)arg_list[0]));
  99.   //printf("VAL: %fn", l);
  100.   return l;
  101. }
  103. static inline double equal_wrapper(double * arg_list) {
  105. return (arg_list[0] == arg_list[1]);
  106. }
  109. static inline double above_wrapper(double * arg_list) {
  111. return (arg_list[0] > arg_list[1]);
  112. }
  115. static inline double below_wrapper(double * arg_list) {
  117. return (arg_list[0] < arg_list[1]);
  118. }
  120. static inline double sin_wrapper(double * arg_list) {
  121. return (sin (arg_list[0]));
  122. }
  125. static inline double cos_wrapper(double * arg_list) {
  126. return (cos (arg_list[0]));
  127. }
  129. static inline double tan_wrapper(double * arg_list) {
  130. return (tan(arg_list[0]));
  131. }
  133. static inline double asin_wrapper(double * arg_list) {
  134. return (asin (arg_list[0]));
  135. }
  137. static inline double acos_wrapper(double * arg_list) {
  138. return (acos (arg_list[0]));
  139. }
  141. static inline double atan_wrapper(double * arg_list) {
  142. return (atan (arg_list[0]));
  143. }
  145. static inline double atan2_wrapper(double * arg_list) {
  146.   return (atan2 (arg_list[0], arg_list[1]));
  147. }
  149. static inline double pow_wrapper(double * arg_list) {
  150.   return (pow (arg_list[0], arg_list[1]));
  151. }
  153. static inline double exp_wrapper(double * arg_list) {
  154.   return (exp(arg_list[0]));
  155. }
  157. static inline double abs_wrapper(double * arg_list) {
  158.   return (fabs(arg_list[0]));
  159. }
  161. static inline double log_wrapper(double *arg_list) {
  162.   return (log (arg_list[0]));
  163. }
  165. static inline double log10_wrapper(double * arg_list) {
  166.   return (log10 (arg_list[0]));
  167. }
  169. static inline double sqrt_wrapper(double * arg_list) {
  170.   return (sqrt (arg_list[0]));
  171. }
  174. static inline double nchoosek_wrapper(double * arg_list) {
  175.       unsigned long cnm = 1UL;
  176.       int i, f;
  177.       int n, m;
  179.       n = (int)arg_list[0];
  180.       m = (int)arg_list[1];
  182.       if (m*2 >n) m = n-m;
  183.       for (i=1 ; i <= m; n--, i++)
  184.       {
  185.             if ((f=n) % i == 0)
  186.                   f   /= i;
  187.             else  cnm /= i;
  188.             cnm *= f;
  189.       }
  190.       return (double)cnm;
  191. }
  194. static inline double fact_wrapper(double * arg_list) {
  197.   int result = 1;
  198.   
  199.   int n = (int)arg_list[0];
  200.   
  201.   while (n > 1) {
  202.     result = result * n;
  203.     n--;
  204.   }
  205.   return (double)result;
  206. }