### Related

##### fpprintprec-solve

fpprintprec:8;

eq1: (10+x)^2 = 100 +...

eq2: y^2 = z^2 + w^2;

Calculate

x: 4.7;

a: 7.6;

b: 8.14;

Calculate

##### fpprintprec-numer-true

numer : true;

fpprintprec : 6;

f (x, y) := y-5*x^2;

Calculate

##### fpprintprec-linsolve

eq1:x*4+y-2=y;

eq2:x+2=y;

linsolve([eq1,eq2],[x...

Calculate

##### fpprintprec-linsolve

eq1:x*4+y-2=y;

eq2:x+2=y;

linsolve([eq1,eq2],[x...

Calculate

fpprintprec:10;

U:6;

T:0.00001;

Calculate

kill(all);

fpprintprec:5;

ratprint:true;

Calculate

fpprintprec :3;

x:3054534.5145;

Calculate

##### fpprintprec-is-rootscontract-sqrt

is(sqrt(4)*sqrt(4)=sq...

is(sqrt(7)*sqrt(8)=sq...

is(sqrt(8)=2*sqrt(2));

Calculate

? fpprintprec;

Calculate

### fpprintprec

Run Example
```(%i1)load (descriptive);
(%o1) /usr/share/maxima/5.21.1/share/contrib/descriptive/descriptive.mac
(%i2) s: matrix([1,-2,0],[-2,5,0],[0,0,2]);
[  1   - 2  0 ]
[             ]
(%o2)                           [ - 2   5   0 ]
[             ]
[  0    0   2 ]
(%i3)                 fpprintprec:4 ;
(%o3)                                  4
(%i4) res: principal_components(s, data=false);
[  1   - 2  0 ]
[             ]
(%o4)         principal_components([ - 2   5   0 ], data = false)
[             ]
[  0    0   2 ]
(%i5) ```
Run Example
```fpprintprec:5;
(%o1)                                  5
(%i2)  u0:0;
(%o2)                                  0
(%i3)  u1:15;
(%o3)                                 15
(%i4)  u2:5;
(%o4)                                  5
(%i5)  u3:3;
(%o5)                                  3
(%i6)  u4:2;
(%o6)                                  2
(%i7)  T:2;
(%o7)                                  2
(%i8) j:makelist(j,j,[15,5,3,2]);
(%o8)                            [15, 5, 3, 2]
(%i9)  k:4;
(%o9)                                  4
(%i10)  xn:0;
(%o10)                                 0
(%i11) xk:%pi;
(%o11)                                %pi
(%i12) N:11;
(%o12)                                11
(%i13) dx:(xk-xn)/(N-1),numer;
(%o13)                               0.314
(%i14) Uvx(x):=u0+s:sum(j*cos((2*%pi*j)/T),j,1,k), numer;
2 %pi j
(%o14)          Uvx(x) := u0 + s : sum(j cos(-------), j, 1, k)
T
(%i15) for x:xn thru xk step dx do display(Uvx(x)),numer;
Uvx(0) = 2.0

Uvx(0.314) = 2.0

Uvx(0.628) = 2.0

Uvx(0.942) = 2.0

Uvx(1.2566) = 2.0

Uvx(1.5708) = 2.0

Uvx(1.885) = 2.0

Uvx(2.1991) = 2.0

Uvx(2.5133) = 2.0

Uvx(2.8274) = 2.0

Uvx(3.1416) = 2.0

(%o15)                               done
(%i16) ```
Run Example
```load (fft) ;

(%o1)           /usr/share/maxima/5.21.1/share/numeric/fft.lisp
(%i2) fpprintprec : 4 ;
(%o2)                                  4
(%i3) L : [1, 2, 3, 4, -1, -2, -3, -4] ;
(%o3)                  [1, 2, 3, 4, - 1, - 2, - 3, - 4]
(%i4) L1 : fft (L);
(%o4) [0.0, - 1.811 %i - 0.1, 0.0, 0.6 - 0.31 %i, 0.0, 0.31 %i + 0.6, 0.0,
1.811 %i - 0.1]
(%i5) L2 : abs (L1);
(%o5)           [0.0, 1.814, 0.0, 0.68, 0.0, 0.68, 0.0, 1.814]
(%i6) plot2d([discrete, makelist(i*%pi/8, i, 0, 8),                            L2]);
plot```

### Related Help

Help for Fpprintprec