/*
Prove elementari 
*/

/*
Qualche esperimento con la linsolve e con la solve etc.
*/

a:3$

b:5$

a+b /* esempio di commento in linea */;

factor(2010);

factor(299792458) /* 299792458 sarebbe la velocità della luce in [m/s] */;

factor(1024000000000007) /* dovrebbe essere un numero primo */;

%gamma /* la costante Gamma di Eulero Mascheroni */;

fpprec:50;

bfloat(%gamma);

equaz1:3*x+4*y=7$

equaz2:2*x+3*y=13$

linsolve ([equaz1, 2*x + equaz2], [x, y]);

/*
notare: le liste tra parentesi quadre sono appunto LISTE. Esistono
appositi operatori per operare su di esse.
*/

expand((x^2+25)*(x-3)*(x+1));

solve( x^4-2*x^3+22*x^2-50*x=75 , x );

/*
dichiaro che la variabile r dipende dalle variabili x, y e z.
*/

depends(r,[x,y,z]);

derivabbrev:true;

diff(r,x);

diff(1/r,x,2);