### Related

n:4;

a:2;

b:x;

Calculate

##### print-string-values

:lisp (dotimes (i 9) ...

:lisp (defun mkstr (&...

:lisp (defun symb (&r...

Calculate

##### print

mesA : 12;

mes : 0;

while mesA<mes do ...

Calculate

print(eq[1]);

Calculate

##### print

eq1: -(1/2)*((12-3*z*...

eq2: series(eq1,z=-1,4);

print(eq2);

Calculate

##### print

print ("Risolviamo il...

eq1:x+2*y=1;

eq2:2*x+y=0;

Calculate

print(10^-1);

Calculate

##### print-sin-taylor

taylor(sin(x),x,0,5);

?print(%);

Calculate

a: 9.8;

t: 3;

Vo: 10;

Calculate

c:a+b;

where;

a:1;

Calculate

### print

Run Example
```(%i1):lisp (defun r (n) (labels ((f (k l z) (let ((ln (+ (* 1.003 l) (* 0.006 z))) (zn (+ (* 0.0069 l) (* 1.026 z)))) (if (<
k n) (f (1+ k) ln zn) (cons (/ ln l) (/ zn z)))) (f 0 10 1000))))) (print (r 100));

NIL
NIL
(%i1) ```
Run Example
```taylor(sin(x),x,0,5);
3    5
x    x
(%o1)/T/                     x - -- + --- + . . .
6    120
(%i2) ?print(%);

"```
Run Example
```d(n):=divsum(n)-n;
(%o1)                        d(n) := divsum(n) - n
(%i2) abu(n):=if d(n) >
n then true else false;
(%o2)                   abu(n) := if d(n) > n then true
(%i3) l : list();
(%o3)                               list()
(%i4)  for i : 0 thru 100 do (if abu(i) then (print(i,d(i)),l:append(l,list(i))));
0 1
12 16
18 21
20 22
24 36
30 42
36 55
40 50
42 54
48 76
54 66
56 64
60 108
66 78
70 74
72 123
78 90
80 106
84 140
88 92
90 144
96 156
100 117
(%o4)                                done
(%i5) l;
(%o5) list(0, 12, 18, 20, 24, 30, 36, 40, 42, 48, 54, 56, 60, 66, 70, 72, 78,
80, 84, 88, 90, 96, 100)
(%i6) ```

Help for Print