drygdryg/calc
1
0
Fork 0
mirror of https://github.com/lcn2/calc.git synced 2025-08-16 01:03:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

Release calc version 2.12.0

Browse Source
This commit is contained in:
Landon Curt Noll
2006-05-21 01:11:18 -07:00
parent 7165fa17c7
commit 58d94b08d8
342 changed files with 8845 additions and 6327 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
matfunc.c
View File

@@ -17,8 +17,8 @@
* received a copy with calc; if not, write to Free Software Foundation, Inc.
* 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
*
* @(#) $Revision: 29.4 $
* @(#) $Id: matfunc.c,v 29.4 2004/02/23 14:04:01 chongo Exp $
* @(#) $Revision: 29.6 $
* @(#) $Id: matfunc.c,v 29.6 2006/05/20 08:43:55 chongo Exp $
* @(#) $Source: /usr/local/src/cmd/calc/RCS/matfunc.c,v $
*
* Under source code control: 1990/02/15 01:48:18
@@ -379,29 +379,29 @@ matpowi(MATRIX *m, NUMBER *q)
*/
if ((power <= 4) && (power >= -2)) {
switch ((int) power) {
case 0:
return matident(m);
case 1:
return matcopy(m);
case -1:
return matinv(m);
case 2:
return matsquare(m);
case -2:
tmp = matinv(m);
res = matsquare(tmp);
matfree(tmp);
return res;
case 3:
tmp = matsquare(m);
res = matmul(m, tmp);
matfree(tmp);
return res;
case 4:
tmp = matsquare(m);
res = matsquare(tmp);
matfree(tmp);
return res;
case 0:
return matident(m);
case 1:
return matcopy(m);
case -1:
return matinv(m);
case 2:
return matsquare(m);
case -2:
tmp = matinv(m);
res = matsquare(tmp);
matfree(tmp);
return res;
case 3:
tmp = matsquare(m);
res = matmul(m, tmp);
matfree(tmp);
return res;
case 4:
tmp = matsquare(m);
res = matsquare(tmp);
matfree(tmp);
return res;
}
}
if (power < 0) {
@@ -1405,12 +1405,7 @@ matcopy(MATRIX *m)
v2 = res->m_table;
i = m->m_size;
while (i-- > 0) {
if (v1->v_type == V_NUM) {
v2->v_type = V_NUM;
v2->v_num = qlink(v1->v_num);
} else {
copyvalue(v1, v2);
}
copyvalue(v1, v2);
v1++;
v2++;
}