Sponsored links: Algebra eBooks
 

Help Index

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

The Maxima on-line user's manual

Algebra Calculator

Search:

Eval Calculator

Eval

-- Special symbol: eval As an argument in a call to ev (<expr>), eval causes an extra evaluation of <expr>. See ev.

Example:

:lisp (defun enum-interval (low high &optional p)  (let* ((result nil)         (end-result 0))    (do* ((low low (+ low 1)))      ((> low high) (if (not p) end-result (values-list end-result)))      (setf end-result (reverse (push low result))))));
:lisp (defun group (source n)  (if (zerop n) (error "zero length"))  (labels ((rec (source acc)             (let ((rest (nthcdr n source)))               (if (consp rest)                   (rec rest (cons (subseq source 0 n) acc))                   (nreverse (cons source acc))))))    (if source (rec source nil) nil)));
:lisp (defun row-sum (min max n)  (let ((list (enum-interval min max)) (result))    (values-list     (dotimes (i (length (group list n)) (values (nreverse result)))       (push        (list (mapcan (lambda (x) (if (numberp x) (list x)))              (nth i (group list n)))              (format nil "sum: ~a" (reduce

          (%i1) [a:b,b:c,c:d,d:e];
          (%o1)                            [b, c, d, e]
          (%i2) a;
          (%o2)                                  b
          (%i3) ev(a);
          (%o3)                                  c
          (%i4) ev(a),eval;
          (%o4)                                  e
          (%i5) a,eval,eval;
          (%o5)                                  e

There are also some inexact matches for eval. Try ?? eval to see them.

(%o1)                                true
(%i2) 

Eval Example

Related Examples

eval-exp-integrate

F1: t * exp(-s*t);

F2: 2 * exp(-s*t);

Res1: integrate(F1, t...

Calculate

eval-exp

eq1: 1/s1*exp(-0.5*(x...

eval(eq1,s1=1,s2=2);

Calculate

eval-expand-integrate-pi-sin-sqrt

b(n):=(sqrt(3)/%pi)*(...

b1:expand(b(1));

expand(b(2));

Calculate

eval-ratsimp-rhs-solve

Np(p):=1+(p0-p)/e;

Ng(p,Nq) := kp * Np(p...

Sp:solve(Ng(x,1)=Ng(p...

Calculate

eval

eval (3+2);

(3+5);

Calculate

eval-sqrt

s1=sqrt(12)*Sum( ( ...

s2=truncate (sqrt(12)...

eval(s1);

Calculate

eval-plot2d
plot2d(t*1000,[R2,0,4700]);

R1: 4700;

x:0;

Ri1: R1*R2/(R1+R2);

Calculate

eval-integrate-sin

h1(x):=A*sin(m*x+f1);

h2(x):=B*sin(n*x+f2);

e:integrate( h1(x)*h2...

Calculate

eval-if-labels-lambda-rest-reverse-sum

:lisp (defun enum-int...

:lisp (defun group (s...

:lisp (defun row-sum ...

Calculate

eval-linsolve

e1:(x-1)*a+x*b=1;

e2:x*a+(x-1)*b+x*c=0;

e3:x*b+(x-1)*c+x*d=0;

Calculate