1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
|
/* ************************************* */
/* iemmatrix */
/* ************************************* */
/* objects for simple matrix operations */
/* ************************************* */
/*
* IEMMATRIX is a runtime-library
* for miller s. puckette's realtime-computermusic-software "pure data"
* therefore you NEED "pure data" to make any use of the IEMMATRIX external
* (except if you want to use the code for other things)
*
* you can get "pure data" at
* http://pd.iem.at
* ftp://iem.at/pd
*/
/*
* Copyright (c) Thomas Musil; IEM KUG, Graz, Austria; 2001-2005
* Copyright (c) IOhannes m zmölnig (forum::für::umläute), IEM KUG, Graz, Austria; 2001-2005
*
* For information on usage and redistribution, and for a DISCLAIMER OF ALL
* WARRANTIES, see the file, "LICENSE.txt," in this distribution.
*
*
* "pure data" has it's own license, that comes shipped with "pure data".
*
* there are ABSOLUTELY NO WARRANTIES for anything
*/
#ifndef INCLUDE_IEMMATRIX_H__
#define INCLUDE_IEMMATRIX_H__
#ifdef __WIN32__
/* MinGW automaticaly defines __WIN32__
* other windos compilers might have to define it by hand
*/
/* m_pd.h expexts MSW rather than __WIN32__ */
# ifndef MSW
# define MSW
# endif
# ifndef NT
# define NT
# endif
# pragma warning( disable : 4244 )
# pragma warning( disable : 4305 )
#endif /* __WIN32__ */
#include "m_pd.h"
#ifndef M_PI
#endif
#ifdef HAVE_CONFIG_H
# include "config.h"
#endif /* HAVE_CONFIG_H */
#ifndef VERSION
#ifdef PACKAGE_VERSION
# define VERSION PACKAGE_VERSION
#else
# define VERSION "(unknown)"
#endif
#endif /* VERSION */
#include <math.h>
#include <stdio.h>
#include <string.h>
#include <memory.h>
#ifdef __WIN32__
#ifndef fabsf
# define fabsf fabs
#endif
#ifndef sqrtf
# define sqrtf sqrt
#endif
#ifndef powf
# define powf pow
#endif
#ifndef atanf
# define atanf atan
#endif
#endif
#ifdef __APPLE__
# include <AvailabilityMacros.h>
# if defined (MAC_OS_X_VERSION_10_3) && MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3
# else
/* float intrinsics not in math.h, so we define them here */
# define sqrtf(v) (float)sqrt((double)(v))
# define cosf(v) (float)cos((double)(v))
# define sinf(v) (float)sin((double)(v))
# define tanf(v) (float)tan((double)(v))
# define logf(v) (float)log((double)(v))
# define expf(v) (float)exp((double)(v))
# define atan2f(v,p) (float)atan2((double)(v), (double)(p))
# define powf(v,p) (float)pow((double)(v), (double)(p))
# endif
#endif
typedef double t_matrixfloat;
/* the main class...*/
typedef struct _matrix
{
t_object x_obj;
int row;
int col;
t_atom *atombuffer;
int current_row, current_col; /* this makes things easy for the mtx_row & mtx_col...*/
t_float f;
t_canvas *x_canvas; /* needed for file-reading */
t_outlet *x_outlet; /* just in case somebody wants an outlet */
} t_matrix;
typedef struct _mtx_binscalar
{
t_object x_obj;
t_matrix m; /* the output matrix */
t_float f; /* the second input */
} t_mtx_binscalar;
typedef struct _mtx_binmtx
{
t_object x_obj;
t_matrix m; /* the output matrix */
t_matrix m2; /* the second input */
} t_mtx_binmtx;
/*
G.Holzmann: the following is now implemented
in iemmatrix_utility.c
*/
void matrix_free(t_matrix*x);
/* utility function */
void setdimen(t_matrix *x, int row, int col);
void adjustsize(t_matrix *x, int desiredRow, int desiredCol);
void debugmtx(int argc, t_float *buf, int id);
t_matrixfloat *matrix2float(t_atom *ap);
void float2matrix(t_atom *ap, t_matrixfloat *buffer);
/* basic I/O functions */
void matrix_bang(t_matrix *x); /* output the matrix stored in atombuffer */
void matrix_matrix2(t_matrix *x, t_symbol *s, int argc, t_atom *argv); /* store the matrix in atombuffer */
/* set data */
void matrix_set(t_matrix *x, t_float f); /* set the entire matrix to "f" */
void matrix_zeros(t_matrix *x, t_symbol *s, int argc, t_atom *argv);
void matrix_ones(t_matrix *x, t_symbol *s, int argc, t_atom *argv);
void matrix_eye(t_matrix *x, t_symbol *s, int argc, t_atom *argv);
void matrix_egg(t_matrix *x, t_symbol *s, int argc, t_atom *argv);
void matrix_diag(t_matrix *x, t_symbol *s, int argc, t_atom *argv);
void matrix_diegg(t_matrix *x, t_symbol *s, int argc, t_atom *argv);
/* get/set data */
void matrix_row(t_matrix *x, t_symbol *s, int argc, t_atom *argv);
void matrix_col(t_matrix *x, t_symbol *s, int argc, t_atom *argv);
void matrix_element(t_matrix *x, t_symbol *s, int argc, t_atom *argv);
/*
in iemmatrix_binops.c
*/
void mtx_bin_matrix2(t_mtx_binmtx *x, t_symbol *s, int argc, t_atom *argv);
void mtx_binmtx_bang(t_mtx_binmtx *x);
void mtx_binmtx_free(t_mtx_binmtx *x);
void mtx_binscalar_bang(t_mtx_binscalar *x);
void mtx_binscalar_free(t_mtx_binscalar *x);
/* some math */
/* invert a square matrix (row=col=rowcol) */
/* if "error" is non-NULL, it's content will be set to 0 if the matrix was invertable, else to non-0 */
t_matrixfloat*mtx_doInvert(t_matrixfloat*input, int rowcol, int*error);
/* transpose a matrix */
t_matrixfloat*mtx_doTranspose(t_matrixfloat*output, int row, int col);
/* multiply matrix A=[rowA*colA] with matrix B=[rowB*colB]; C=A*B; colA=rowB=colArowB */
t_matrixfloat*mtx_doMultiply(int rowA, t_matrixfloat*A, int colArowB, t_matrixfloat*B, int colB);
/* for debugging purposes */
#define MARK startpost("MARK[%s:%d@%s]", __FILE__, __LINE__, __FUNCTION__), post
#endif
|
