mirror of
https://github.com/lcn2/calc.git
synced 2025-08-16 01:03:29 +03:00
Release calc version 2.11.0t10.1.3
This commit is contained in:
@@ -22,7 +22,7 @@ EXAMPLE
|
|||||||
"chongo was here"
|
"chongo was here"
|
||||||
|
|
||||||
LIMITS
|
LIMITS
|
||||||
fd must be associaed with an open file
|
fd must be associated with an open file
|
||||||
|
|
||||||
LIBRARY
|
LIBRARY
|
||||||
none
|
none
|
||||||
|
@@ -159,9 +159,9 @@ define mod_inv(a)
|
|||||||
|
|
||||||
define mod_div(a, b)
|
define mod_div(a, b)
|
||||||
{
|
{
|
||||||
local c, x, y;
|
local c;
|
||||||
|
local obj mod x;
|
||||||
obj mod x, y;
|
local obj mod y;
|
||||||
if (isnum(a))
|
if (isnum(a))
|
||||||
a = lmod(a);
|
a = lmod(a);
|
||||||
if (isnum(b))
|
if (isnum(b))
|
||||||
|
@@ -471,8 +471,9 @@ define plist(s) {
|
|||||||
define deg(a) = size(a.p) - 1;
|
define deg(a) = size(a.p) - 1;
|
||||||
|
|
||||||
define polydiv(a,b) {
|
define polydiv(a,b) {
|
||||||
local q, r, d, u, i, m, n, sa, sb, sq;
|
local d, u, i, m, n, sa, sb, sq;
|
||||||
obj poly q, r;
|
local obj poly q;
|
||||||
|
local obj poly r;
|
||||||
sa=findlist(a); sb = findlist(b); sq = list();
|
sa=findlist(a); sb = findlist(b); sq = list();
|
||||||
m=size(sa)-1; n=size(sb)-1;
|
m=size(sa)-1; n=size(sb)-1;
|
||||||
if (n<0) quit "Zero divisor";
|
if (n<0) quit "Zero divisor";
|
||||||
|
@@ -18,7 +18,7 @@ static char *program;
|
|||||||
#define MAJOR_VER 2 /* major version */
|
#define MAJOR_VER 2 /* major version */
|
||||||
#define MINOR_VER 11 /* minor version */
|
#define MINOR_VER 11 /* minor version */
|
||||||
#define MAJOR_PATCH 0 /* patch level or 0 if no patch */
|
#define MAJOR_PATCH 0 /* patch level or 0 if no patch */
|
||||||
#define MINOR_PATCH "10.1.2" /* test number or empty string if no patch */
|
#define MINOR_PATCH "10.1.3" /* test number or empty string if no patch */
|
||||||
|
|
||||||
/*
|
/*
|
||||||
* calc version constants
|
* calc version constants
|
||||||
|
Reference in New Issue
Block a user